7571: Jetman Walk
| 7571 |
CALL StoreEntity |
| 7574 |
CALL ReadInputLR |
| 7577 |
BIT 0,A |
| 7579 |
JR Z,$75E2 |
| 757B |
BIT 1,A |
| 757D |
JP Z,$75F4 |
| 7580 |
LD (IX+$05),$00 |
| 7584 |
CALL ReadInputThrust |
| 7587 |
BIT 3,A |
| 7589 |
JR Z,$75B4 |
| 758B |
CALL $761D |
| 758E |
BIT 2,E |
| 7590 |
JR Z,$75B4 |
| 7592 |
BIT 3,E |
| 7594 |
JP Z,JetmanThrust_16 |
| 7597 |
LD A,(IX+$05) |
| 759A |
AND A |
| 759B |
JP NZ,JetmanThrust_16 |
| 759E |
BIT 6,(IX+$00) |
| 75A2 |
JR Z,$75AA |
| 75A4 |
DEC (IX+$01) |
| 75A7 |
JP JetmanThrust_16 |
| 75AA |
INC (IX+$01) |
| 75AD |
LD (IX+$05),$20 |
| 75B1 |
JP JetmanThrust_16 |
| 75B4 |
LD A,(IX+$00) |
| 75B7 |
AND $C0 |
| 75B9 |
OR $01 |
| 75BB |
LD (IX+$00),A |
| 75BE |
LD HL,($5D01) |
| 75C1 |
PUSH IX |
| 75C3 |
LD IX,$5D48 |
| 75C7 |
LD A,(IX+$00) |
| 75CA |
AND A |
| 75CB |
JR NZ,$75D7 |
| 75CD |
LD (IX+$00),$03 |
| 75D1 |
LD ($5D49),HL |
| 75D4 |
CALL $6894 |
| 75D7 |
POP IX |
| 75D9 |
DEC (IX+$02) |
| 75DC |
DEC (IX+$02) |
| 75DF |
JP JetmanThrust_16 |
| 75E2 |
INC (IX+$01) |
| 75E5 |
RES 6,(IX+$00) |
| 75E9 |
RES 6,(IX+$04) |
| 75ED |
LD (IX+$05),$20 |
| 75F1 |
JP $7584 |
| 75F4 |
DEC (IX+$01) |
| 75F7 |
SET 6,(IX+$00) |
| 75FB |
SET 6,(IX+$04) |
| 75FF |
LD (IX+$05),$20 |
| 7603 |
JP $7584 |
| 7606 |
EX AF,AF' |
| 7607 |
LD A,(IX+$00) |
| 760A |
AND $3F |
| 760C |
CP $03 |
| 760E |
JR Z,$7613 |
| 7610 |
EX AF,AF' |
| 7611 |
JR $7631 |
| 7613 |
EX AF,AF' |
| 7614 |
SUB $09 |
| 7616 |
JP P,$7631 |
| 7619 |
ADD A,$09 |
| 761B |
JR $7631 |
