Routines
Prev: 8C31 Up: Map Next: 8F14
8CA0: Game Over Print
Used by the routine at StartGame.
GameOverPrint 8CA0 LD HL,$4000
8CA3 LD DE,$4001
8CA6 LD BC,$17FF
8CA9 LD (HL),$00
8CAB LDIR
8CAD LD HL,$5800
8CB0 LD DE,$5801
8CB3 LD (HL),$07
8CB5 LD BC,$02FF
8CB8 LDIR
8CBA XOR A
8CBB OUT ($FE),A
Open the upper screen channel.
8CBD LD A,$02 A=02.
8CBF CALL $1601 Call CHAN_OPEN.
8CC2 LD DE,$8CE7 DE=GameOver_Copy (text).
8CC5 LD BC,$01FD BC=01FD (counter).
8CC8 CALL $203C Call PR_STRING.
8CCB CALL GameOver_Keyboard Call GameOver_Keyboard.
8CCE LD A,($5BA8) If ControlMethod is 02 then jump to GameOver_Joystick.
8CD1 CP $02
8CD3 JP Z,GameOver_Joystick
GameOverPrint_Loop 8CD6 LD A,$7F Read from the keyboard;
Port Number Bit
0 1 2 3 4
7F SPACE FULL-STOP M N B
8CD8 IN A,($FE)
8CDA AND %00000001 Keep only bit 0.
8CDC RET Z Return if "SPACE" has been pressed.
8CDD LD A,$EF Read from the keyboard;
Port Number Bit
0 1 2 3 4
EF 0 9 8 7 6
8CDF IN A,($FE)
8CE1 AND %00000001 Keep only bit 0.
8CE3 RET Z Return if "0" has been pressed.
8CE4 JP GameOverPrint_Loop Jump to GameOverPrint_Loop.
Handles printing the "THE EPITAPH INSCRIBED ON POOR" text.
GameOver_Copy 8CE7 DEFB $11,$00 PAPER 0.
8CE9 DEFB $16,$00,$00 PRINT AT (0, 0).
8CEC DEFB $10,$06 INK 6.
8CEE DEFM "THE EPITAPH INSCRIBED ON POOR" "gameover-1".
Handles printing the "JASON'S TOMB," text.
8D0B DEFB $16,$01,$13 PRINT AT (1, 19).
8D0E DEFM "JASON'S TOMB," "gameover-2".
Handles printing the "DOES NOT SPEAK OF HIS EVENTFUL" text.
8D1B DEFB $10,$05 INK 5.
8D1D DEFM "DOES NOT SPEAK OF HIS EVENTFUL" "gameover-3".
Handles printing the " LIFE," text.
8D3B DEFB $16,$03,$1A PRINT AT (3, 26).
8D3E DEFM " LIFE," "gameover-4".
Handles printing the "BUT OF HIS CARELESS DOOM..." text.
8D44 DEFB $16,$04,$01 PRINT AT (4, 1).
8D47 DEFB $10,$06 INK 6.
8D49 DEFM "BUT OF HIS CARELESS DOOM..." "gameover-5".
Handles printing the "'ON EMBARKING ON HIS MISSION HE" text.
8D64 DEFB $16,$07,$00 PRINT AT (7, 0).
8D67 DEFB $10,$05 INK 5.
8D69 DEFM "'ON EMBARKING ON HIS MISSION HE" "'ON EMBARKING ON HIS MISSION HE".
Handles printing the "WAS GIVEN CHANCES FOUR," text.
8D88 DEFB $16,$08,$09 PRINT AT (8, 9).
8D8B DEFM "WAS GIVEN CHANCES FOUR," "WAS GIVEN CHANCES FOUR,".
Handles printing the "BUT THE GEM WAS UNDISTURBED" text.
8DA2 DEFB $16,$09,$00 PRINT AT (9, 0).
8DA5 DEFB $10,$06 INK 6.
8DA7 DEFM "BUT THE GEM WAS UNDISTURBED" "BUT THE GEM WAS UNDISTURBED".
Handles printing the "(FOR HE NEEDED SOMEWHAT MORE!)'" text.
8DC2 DEFB $16,$0A,$01 PRINT AT (10, 1).
8DC5 DEFM "(FOR HE NEEDED SOMEWHAT MORE!)'" "(FOR HE NEEDED SOMEWHAT MORE!)'".
Handles printing the "HOW SAD A TALE OF FAILURE FOR " text.
8DE4 DEFB $16,$0C,$00 PRINT AT (12, 0).
8DE7 DEFB $10,$05 INK 5.
8DE9 DEFM "HOW SAD A TALE OF FAILURE FOR " "HOW SAD A TALE OF FAILURE FOR ".
Handles printing the "ONE SO CLOSE TO GLORY!" text.
8E07 DEFB $16,$0D,$0A PRINT AT (13, 10).
8E0A DEFM "ONE SO CLOSE TO GLORY!" "ONE SO CLOSE TO GLORY!".
Handles printing the "BUT YOU COULD YET REWRITE THE" text.
8E20 DEFB $16,$0E,$01 PRINT AT (14, 1).
8E23 DEFB $10,$06 INK 6.
8E25 DEFM "BUT YOU COULD YET REWRITE THE" "BUT YOU COULD YET REWRITE THE".
Handles printing the " HISTORY OF THIS STORY..." text.
8E42 DEFB $16,$0F,$07 PRINT AT (15, 7).
8E45 DEFM " HISTORY OF THIS STORY..." " HISTORY OF THIS STORY...".
Handles printing the "SO PRESS THE " text.
8E5E DEFB $16,$11,$00 PRINT AT (17, 0).
8E61 DEFB $10,$05 INK 5.
8E63 DEFM "SO PRESS THE " "SO PRESS THE ".
Handles printing the "SPACE" text.
8E70 DEFB $13,$01 BRIGHT "ON".
8E72 DEFB $10,$06 INK 6.
8E74 DEFB $11,$02 PAPER 2.
8E76 DEFB $12,$01 FLASH "ON".
8E78 DEFM "SPACE" "SPACE".
Handles printing the " KEY FOR" text.
8E7D DEFB $13,$00 BRIGHT "OFF".
8E7F DEFB $10,$05 INK 5.
8E81 DEFB $11,$00 PAPER 0.
8E83 DEFB $12,$00 FLASH "OFF".
8E85 DEFM " KEY FOR" " KEY FOR".
Handles printing the "JASON'S REINCARNATION," text.
8E8D DEFB $16,$12,$09 PRINT AT (18, 9).
8E90 DEFM "JASON'S REINCARNATION," "JASON'S REINCARNATION,".
Handles printing the "AND THEN YOU MAY BEGIN A BRAND" text.
8EA6 DEFB $16,$13,$00 PRINT AT (19, 0).
8EA9 DEFB $10,$06 INK 6.
8EAB DEFM "AND THEN YOU MAY BEGIN A BRAND" "AND THEN YOU MAY BEGIN A BRAND".
Handles printing the "NEW MISSION EMBARKATION." text.
8EC9 DEFB $16,$14,$07 PRINT AT (20, 7).
8ECC DEFM "NEW MISSION EMBARKATION." "NEW MISSION EMBARKATION.".
Handles printing the "FIRE" text.
8EE4 DEFB $13,$01 BRIGHT "ON".
8EE6 DEFB $10,$06 INK 6.
8EE8 DEFB $11,$02 PAPER 2.
8EEA DEFB $12,$01 FLASH "ON".
8EEC DEFB $16,$11,$0D PRINT AT (17, 13).
8EEF DEFM "FIRE" "FIRE".
Handles printing the " " text.
8EF3 DEFB $13,$00 BRIGHT "OFF".
8EF5 DEFB $10,$05 INK 5.
8EF7 DEFB $11,$00 PAPER 0.
8EF9 DEFB $12,$00 FLASH "OFF".
8EFB DEFM " " " ".
GameOver_Keyboard 8EFC LD A,($5BA8) Return if ControlMethod is 01 (keyboard).
8EFF CP $01
8F01 RET Z
8F02 LD DE,$8EE4 DE=GameOver_Copy (text).
8F05 LD BC,$0018 BC=18 (counter).
8F08 CALL $203C Call PR_STRING.
8F0B RET Return.
Loops until "fire" is pressed from the Kempston joystick.
GameOver_Joystick 8F0C IN A,($1F) Read Kempston Joystick input.
8F0E AND %00010000 Keep only bit 4.
8F10 RET NZ Only return when fire button is pressed.
8F11 JP GameOver_Joystick Jump to GameOver_Joystick.
Prev: 8C31 Up: Map Next: 8F14