Prev: 7254 Up: Map Next: 74A4
72C9: Routine at 72C9
Used by the routine at 7254.
72C9 LD A,($66F3)
72CC OR A
72CD JP NZ,$740C
72D0 LD A,($66F1)
72D3 CP $04
72D5 CALL NZ,PrintHeader
72D8 JR NZ,$730A
72DA CALL PrintLives
72DD LD HL,$5940
72E0 LD C,$02
72E2 LD B,$E0
72E4 PUSH BC
72E5 PUSH HL
72E6 LD A,(HL)
72E7 CP $02
72E9 JR Z,$7302
72EB CP $10
72ED JR Z,$7302
72EF CP $16
72F1 LD A,$00
72F3 JR NZ,$72F7
72F5 LD A,$10
72F7 LD (HL),A
72F8 CALL ConvertAttributeToScreenBufferAddress
72FB XOR A
72FC LD B,$08
72FE LD (HL),A
72FF INC H
7300 DJNZ $72FE
7302 POP HL
7303 INC HL
7304 POP BC
7305 DJNZ $72E4
7307 DEC C
7308 JR NZ,$72E2
730A CALL DrawShip
This entry point is used by the routine at 7254.
730D LD A,($66A4)
7310 CP $01
7312 RET Z
7313 LD A,($66F1)
7316 CP $04
7318 JP NZ,$7407
731B LD A,($66D3)
731E OR A
731F RET Z
fgkjfdg
7320 CALL ClearScreen Call ClearScreen.
7323 LD DE,$61DB DE=Graphics_StarLarge.
7326 CALL FillScreenWithUDG Call FillScreenWithUDG.
7329 LD DE,$486E DE=486E (screen buffer location).
732C LD BC,$0445 BC=0445.
732F LD HL,$652B HL=652B.
7332 LD A,($667F) A=*667F.
7335 SRA A Shift A right (with carry).
7337 ADD A,$34 A+=34.
7339 LD (HL),A Write A to *HL.
733A CALL Configurable_PrintString Call Configurable_PrintString.
733D LD HL,$652B HL=652B.
7340 LD E,$8E E=8E.
7342 LD B,$04 B=04.
7344 CALL Configurable_PrintString Call Configurable_PrintString.
7347 LD C,$04
7349 LD HL,$4E6B
734C LD DE,$4F6B
734F LD B,$08
7351 PUSH BC
7352 PUSH HL
7353 LD BC,$000A
7356 LDIR
7358 POP DE
7359 PUSH DE
735A POP HL
735B DEC H
735C POP BC
735D DJNZ $7351
735F DEC C
7360 JR NZ,$7349
7362 LD C,$04
7364 LD HL,$498B
7367 LD DE,$488B
736A LD B,$07
736C PUSH BC
736D PUSH HL
736E LD BC,$000A
7371 LDIR
7373 POP DE
7374 PUSH DE
7375 POP HL
7376 INC H
7377 POP BC
7378 DJNZ $736C
737A DEC C
737B JR NZ,$7364
737D CALL Handler_Score
7380 LD IX,$0000
7384 LD B,$10
7386 PUSH BC
7387 LD B,$0B
7389 PUSH BC
738A PUSH IX
738C LD HL,$594A
738F LD DE,$030B
7392 LD A,$0C
7394 SUB B
7395 LD B,A
7396 PUSH BC
7397 LD A,IXl
7399 AND $3F
739B LD B,E
739C LD (HL),A
739D INC HL
739E DJNZ $739C
73A0 LD B,D
73A1 PUSH BC
73A2 LD (HL),A
73A3 LD BC,$0020
73A6 ADD HL,BC
73A7 POP BC
73A8 DJNZ $73A1
73AA LD B,E
73AB LD (HL),A
73AC DEC HL
73AD DJNZ $73AB
73AF LD B,D
73B0 PUSH BC
73B1 LD (HL),A
73B2 LD BC,$0020
73B5 SBC HL,BC
73B7 POP BC
73B8 DJNZ $73B0
73BA LD C,$21
73BC SBC HL,BC
73BE INC E
73BF INC E
73C0 INC D
73C1 INC D
73C2 INC IX
73C4 POP BC
73C5 DJNZ $7396
73C7 POP HL
73C8 PUSH HL
73C9 LD A,L
73CA AND $0F
73CC LD L,A
73CD LD H,B
73CE ADD HL,HL
73CF ADD HL,HL
73D0 ADD HL,HL
73D1 ADD HL,HL
73D2 ADD HL,HL
73D3 ADD HL,HL
73D4 LD B,$07
73D6 PUSH BC
73D7 PUSH HL
73D8 LD DE,$0002
73DB CALL $03B5
73DE DI
73DF POP HL
73E0 LD BC,$0014
73E3 ADD HL,BC
73E4 POP BC
73E5 DJNZ $73D6
73E7 POP IX
73E9 DEC IX
73EB POP BC
73EC DJNZ $7389
73EE POP BC
73EF DJNZ $7386
73F1 CALL ClearScreen
73F4 LD BC,$00C8
73F7 DJNZ $73F7
73F9 DEC C
73FA JR NZ,$73F7
73FC LD HL,$6898
73FF LD A,(HL)
7400 CP $04
7402 JR C,$740C
7404 DEC (HL)
7405 JR $740C
7407 LD A,($667F)
740A OR A
740B RET NZ
This entry point is used by the routines at TitleScreen and StartGame.
740C LD HL,$6680
740F LD DE,$6681
7412 LD BC,$006C
7415 LD (HL),B
7416 LDIR
7418 LD HL,$66F1
741B LD A,(HL)
741C SUB $04
741E LD DE,$703F
7421 JR NZ,$742D
7423 LD (HL),A
7424 INC A
7425 LD (DE),A
7426 PUSH HL
7427 CALL GameIntro
742A POP HL
742B JR $7431
742D INC (HL)
742E LD A,$04
7430 LD (DE),A
7431 LD A,(HL)
7432 PUSH AF
7433 AND $06
7435 LD HL,$667F
7438 LD (HL),$08
743A JR NZ,$743E
743C LD (HL),$0F
743E LD HL,$6637
7441 POP AF
7442 OR A
7443 JR NZ,$744A
7445 LD HL,$65FB
7448 JR $745A
744A CP $01
744C JR NZ,$7453
744E LD HL,$6619
7451 JR $745A
7453 CP $04
7455 JR NZ,$745A
7457 LD HL,$6647
745A LD DE,$65DD
745D LD A,($667F)
7460 ADD A,A
7461 LD C,A
7462 LDIR
7464 LD A,($66F1)
7467 CP $01
7469 JR NZ,$7470
746B LD BC,$4304
746E JR $7485
7470 CP $02
7472 JR NZ,$7479
7474 LD B,$41
7476 LD C,B
7477 JR $7485
7479 CP $03
747B JR NZ,$7482
747D LD B,$43
747F LD C,B
7480 JR $7485
7482 LD BC,$0643
7485 LD ($667D),BC
7489 LD HL,$66ED
748C LD (HL),$CE
748E LD A,($66F1)
7491 PUSH AF
7492 AND $06
7494 CALL NZ,TransitionEffect
7497 CALL PrintHeader
749A POP AF
749B CP $04
749D CALL Z,$696A
74A0 CALL DrawShip
74A3 RET
Prev: 7254 Up: Map Next: 74A4