7571: Jetman Walk
| JetmanWalk |
7571 |
CALL StoreEntity |
|
7574 |
CALL ReadInputLR |
|
7577 |
BIT 0,A |
|
7579 |
JR Z,JetmanWalk_4 |
|
757B |
BIT 1,A |
|
757D |
JP Z,JetmanWalk_5 |
|
7580 |
LD (IX+$05),$00 |
| JetmanWalk_0 |
7584 |
CALL ReadInputThrust |
|
7587 |
BIT 3,A |
|
7589 |
JR Z,JetmanWalk_2 |
|
758B |
CALL $761D |
|
758E |
BIT 2,E |
|
7590 |
JR Z,JetmanWalk_2 |
|
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,JetmanWalk_1 |
|
75A4 |
DEC (IX+$01) |
|
75A7 |
JP JetmanThrust_16 |
| JetmanWalk_1 |
75AA |
INC (IX+$01) |
|
75AD |
LD (IX+$05),$20 |
|
75B1 |
JP JetmanThrust_16 |
| JetmanWalk_2 |
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,JetmanWalk_3 |
|
75CD |
LD (IX+$00),$03 |
|
75D1 |
LD ($5D49),HL |
|
75D4 |
CALL EndAnimation |
| JetmanWalk_3 |
75D7 |
POP IX |
|
75D9 |
DEC (IX+$02) |
|
75DC |
DEC (IX+$02) |
|
75DF |
JP JetmanThrust_16 |
| JetmanWalk_4 |
75E2 |
INC (IX+$01) |
|
75E5 |
RES 6,(IX+$00) |
|
75E9 |
RES 6,(IX+$04) |
|
75ED |
LD (IX+$05),$20 |
|
75F1 |
JP JetmanWalk_0 |
| JetmanWalk_5 |
75F4 |
DEC (IX+$01) |
|
75F7 |
SET 6,(IX+$00) |
|
75FB |
SET 6,(IX+$04) |
|
75FF |
LD (IX+$05),$20 |
|
7603 |
JP JetmanWalk_0 |
| JetmanWalk_6 |
7606 |
EX AF,AF' |
|
7607 |
LD A,(IX+$00) |
|
760A |
AND $3F |
|
760C |
CP $03 |
|
760E |
JR Z,JetmanWalk_7 |
|
7610 |
EX AF,AF' |
|
7611 |
JR $7631 |
| JetmanWalk_7 |
7613 |
EX AF,AF' |
|
7614 |
SUB $09 |
|
7616 |
JP P,$7631 |
|
7619 |
ADD A,$09 |
|
761B |
JR $7631 |
