A1AA: Routine at A1AA
A1AA |
LD A,($5E42) |
A1AD |
RRCA |
A1AE |
LD C,A |
A1AF |
AND $03 |
A1B1 |
ADD A,$2A |
A1B3 |
LD (IX+$00),A |
A1B6 |
LD B,$00 |
A1B8 |
LD HL,$A313 |
A1BB |
LD A,C |
A1BC |
RRCA |
A1BD |
RRCA |
A1BE |
AND $03 |
A1C0 |
LD C,A |
A1C1 |
ADD HL,BC |
A1C2 |
LD A,(HL) |
A1C3 |
LD (IX+$07),A |
A1C6 |
BIT 3,(IX+$08) |
A1CA |
JP NZ,$A0F8 |
A1CD |
BIT 7,(IX+$08) |
A1D1 |
JR Z,$A1F8 |
A1D3 |
CALL $A522 |
A1D6 |
JR C,$A1E0 |
A1D8 |
LD A,(IX+$08) |
A1DB |
AND $02 |
A1DD |
LD (IX+$08),A |
A1E0 |
LD A,($5EA3) |
A1E3 |
AND A |
A1E4 |
JR NZ,$A1F8 |
A1E6 |
CALL $A4BA |
A1E9 |
JR NC,$A1F8 |
A1EB |
LD A,$01 |
A1ED |
LD ($5EA3),A |
A1F0 |
SET 3,(IX+$08) |
A1F4 |
RES 2,(IX+$08) |
A1F8 |
CALL $ABB4 |
A1FB |
LD A,($6078) |
A1FE |
CP $11 |
A200 |
RET NC |
A201 |
BIT 2,(IX+$08) |
A205 |
JP NZ,$A15B |
A208 |
CALL $945C |
A20B |
JP NZ,$A12C |
A20E |
RES 1,(IX+$08) |
A212 |
LD A,($6078) |
A215 |
CP $11 |
A217 |
RET NC |
A218 |
CALL $A4FC |
A21B |
RET NC |
A21C |
CALL $933E |
A21F |
RET Z |
A220 |
PUSH IX |
A222 |
POP HL |
A223 |
LD BC,$60A8 |
A226 |
AND A |
A227 |
SBC HL,BC |
A229 |
JP Z,$A30A |
A22C |
LD A,($60AC) |
A22F |
LD HL,($60AA) |
A232 |
LD DE,($607C) |
A236 |
LD ($607C),A |
A239 |
LD A,L |
A23A |
AND $F8 |
A23C |
LD L,A |
A23D |
LD ($607A),HL |
A240 |
LD A,E |
A241 |
SUB $0C |
A243 |
LD ($5E6A),A |
A246 |
LD A,($6078) |
A249 |
DEC A |
A24A |
AND $F7 |
A24C |
INC A |
A24D |
LD ($6078),A |
A250 |
JP $A299 |
A253 |
LD DE,$AA1B |
A256 |
LD HL,$AA4B |
A259 |
LD B,$10 |
A25B |
LD (HL),$80 |
A25D |
INC HL |
A25E |
LD A,($5E6A) |
A261 |
LD (HL),A |
A262 |
INC HL |
A263 |
LD A,(DE) |
A264 |
INC DE |
A265 |
LD (HL),A |
A266 |
INC HL |
A267 |
LD A,(DE) |
A268 |
INC DE |
A269 |
LD (HL),A |
A26A |
INC HL |
A26B |
LD A,(DE) |
A26C |
INC DE |
A26D |
LD (HL),A |
A26E |
INC HL |
A26F |
DJNZ $A25B |
A271 |
RET |
A272 |
XOR A |
A273 |
LD ($5E69),A |
A276 |
LD A,($5E7B) |
A279 |
DEC A |
A27A |
LD ($5E7B),A |
A27D |
CALL $B8F2 |
A280 |
LD IX,$AA4B |
A284 |
LD B,$10 |
A286 |
PUSH BC |
A287 |
CALL $A993 |
A28A |
LD BC,$0005 |
A28D |
ADD IX,BC |
A28F |
POP BC |
A290 |
DJNZ $A286 |
A292 |
LD A,($5E69) |
A295 |
AND A |
A296 |
JR NZ,$A272 |
A298 |
RET |
A299 |
DI |
A29A |
LD DE,$BA2A |
A29D |
CALL $B9BC |
A2A0 |
RST $38 |
A2A1 |
XOR A |
A2A2 |
LD ($5E7B),A |
A2A5 |
CALL $A253 |
A2A8 |
CALL $A272 |
A2AB |
LD IX,$6078 |
A2AF |
CALL $8640 |
A2B2 |
CALL $A253 |
A2B5 |
CALL $A272 |
A2B8 |
CALL Handler_ResetLaserBeamSlots |
A2BB |
LD A,$01 |
A2BD |
LD ($5E68),A |
A2C0 |
CALL $A2F5 |
A2C3 |
CALL MessageTeleporting |
A2C6 |
CALL $8BA5 |
A2C9 |
CALL $9356 |
A2CC |
JP StartGame_1 |
A2CF |
LD A,($607C) |
A2D2 |
SUB $0C |
A2D4 |
LD ($5E6A),A |
A2D7 |
CALL $A253 |
A2DA |
CALL $AA9B |
A2DD |
CALL $AB2F |
A2E0 |
XOR A |
A2E1 |
LD ($5E7B),A |
A2E4 |
CALL $AB9D |
A2E7 |
CALL $AB48 |
A2EA |
CALL $AB9D |
A2ED |
CALL $AB48 |
A2F0 |
XOR A |
A2F1 |
LD ($5E68),A |
A2F4 |
RET |