Lunar Jetman: Routine at 802C

802C: Routine at 802C

Used by the routine at B9BC.

802C

CALL $84D8

Call 84D8.

802F

CALL $F410

Call F410.

8032

CALL $84D8

Call 84D8.

This entry point is used by the routine at 8000.

8035

CALL $80D1

Call 80D1.

8038

LD A,$F7

Read from the keyboard;

Port Number	Bit
Port Number	0	1	2	3	4
F7	1	2	3	4	5

803A

OUT ($FD),A

803C

IN A,($FE)

803E

CPL

Flip the bits.

803F

LD E,A

8040

LD A,($5E00)

This entry point is used by the routine at B9BC.

8043

LD ($5E7C),A

8046

BIT 0,E

8048

JR Z,$804C

804A

RES 0,A

804C

BIT 1,E

804E

JR Z,$8052

8050

SET 0,A

8052

BIT 2,E

8054

JR Z,$8058

8056

AND $F9

8058

BIT 3,E

805A

JR Z,$8060

805C

AND $F9

805E

OR $02

8060

BIT 4,E

8062

JR Z,$8068

8064

AND $F9

8066

OR $04

8068

LD ($5E00),A

806B

LD A,$EF

Read from the keyboard;

Port Number	Bit
Port Number	0	1	2	3	4
EF	0	9	8	7	6

806D

OUT ($FD),A

806F

IN A,($FE)

8071

CPL

Flip the bits.

8072

BIT 4,A

8074

JP NZ,$81BB

8077

LD A,($5E00)

807A

LD C,A

807B

LD A,($5E7C)

807E

XOR C

807F

PUSH AF

8080

BIT 0,A

8082

CALL NZ,$80FD

8085

POP AF

8086

AND $06

8088

JR Z,$809A

808A

LD DE,$BA9E

808D

LD A,C

808E

AND $06

8090

LD L,A

8091

LD H,$00

8093

ADD HL,DE

8094

LD E,(HL)

8095

INC HL

8096

LD D,(HL)

8097

CALL $B9BC

809A

LD HL,$810F

809D

LD A,($5E00)

80A0

LD C,A

80A1

BIT 0,C

80A3

JR NZ,$80BE

80A5

CALL $80C3

80A8

LD B,$03

80AA

LD A,C

80AB

RRCA

80AC

AND $03

80AE

JR Z,$80B9

80B0

CALL $80C6

80B3

DEC A

80B4

DJNZ $80AC

80B6

JP $8035

80B9

CALL $80CD

80BC

JR $80B3

80BE

CALL $80CA

80C1

JR $80A8

80C3

SET 7,(HL)

80C5

INC HL

80C6

RES 7,(HL)

80C8

INC HL

80C9

RET

80CA

RES 7,(HL)

80CC

INC HL

80CD

SET 7,(HL)

80CF

INC HL

80D0

RET