30065: Jetman Walk
| JetmanWalk |
30065 |
CALL StoreEntity |
|
30068 |
CALL ReadInputLR |
|
30071 |
BIT 0,A |
|
30073 |
JR Z,JetmanWalk_4 |
|
30075 |
BIT 1,A |
|
30077 |
JP Z,JetmanWalk_5 |
|
30080 |
LD (IX+5),0 |
| JetmanWalk_0 |
30084 |
CALL ReadInputThrust |
|
30087 |
BIT 3,A |
|
30089 |
JR Z,JetmanWalk_2 |
|
30091 |
CALL 30237 |
|
30094 |
BIT 2,E |
|
30096 |
JR Z,JetmanWalk_2 |
|
30098 |
BIT 3,E |
|
30100 |
JP Z,JetmanThrust_16 |
|
30103 |
LD A,(IX+5) |
|
30106 |
AND A |
|
30107 |
JP NZ,JetmanThrust_16 |
|
30110 |
BIT 6,(IX+0) |
|
30114 |
JR Z,JetmanWalk_1 |
|
30116 |
DEC (IX+1) |
|
30119 |
JP JetmanThrust_16 |
| JetmanWalk_1 |
30122 |
INC (IX+1) |
|
30125 |
LD (IX+5),32 |
|
30129 |
JP JetmanThrust_16 |
| JetmanWalk_2 |
30132 |
LD A,(IX+0) |
|
30135 |
AND 192 |
|
30137 |
OR 1 |
|
30139 |
LD (IX+0),A |
|
30142 |
LD HL,(23809) |
|
30145 |
PUSH IX |
|
30147 |
LD IX,23880 |
|
30151 |
LD A,(IX+0) |
|
30154 |
AND A |
|
30155 |
JR NZ,JetmanWalk_3 |
|
30157 |
LD (IX+0),3 |
|
30161 |
LD (23881),HL |
|
30164 |
CALL EndAnimation |
| JetmanWalk_3 |
30167 |
POP IX |
|
30169 |
DEC (IX+2) |
|
30172 |
DEC (IX+2) |
|
30175 |
JP JetmanThrust_16 |
| JetmanWalk_4 |
30178 |
INC (IX+1) |
|
30181 |
RES 6,(IX+0) |
|
30185 |
RES 6,(IX+4) |
|
30189 |
LD (IX+5),32 |
|
30193 |
JP JetmanWalk_0 |
| JetmanWalk_5 |
30196 |
DEC (IX+1) |
|
30199 |
SET 6,(IX+0) |
|
30203 |
SET 6,(IX+4) |
|
30207 |
LD (IX+5),32 |
|
30211 |
JP JetmanWalk_0 |
| JetmanWalk_6 |
30214 |
EX AF,AF' |
|
30215 |
LD A,(IX+0) |
|
30218 |
AND 63 |
|
30220 |
CP 3 |
|
30222 |
JR Z,JetmanWalk_7 |
|
30224 |
EX AF,AF' |
|
30225 |
JR 30257 |
| JetmanWalk_7 |
30227 |
EX AF,AF' |
|
30228 |
SUB 9 |
|
30230 |
JP P,30257 |
|
30233 |
ADD A,9 |
|
30235 |
JR 30257 |
