Routines
Prev: 35889 Up: Map Next: 36628
36000: Game Over Print
Used by the routine at StartGame.
GameOverPrint 36000 LD HL,16384
36003 LD DE,16385
36006 LD BC,6143
36009 LD (HL),0
36011 LDIR
36013 LD HL,22528
36016 LD DE,22529
36019 LD (HL),7
36021 LD BC,767
36024 LDIR
36026 XOR A
36027 OUT (254),A
Open the upper screen channel.
36029 LD A,2 A=2.
36031 CALL 5633 Call CHAN_OPEN.
36034 LD DE,36071 DE=GameOver_Copy (text).
36037 LD BC,509 BC=509 (counter).
36040 CALL 8252 Call PR_STRING.
36043 CALL GameOver_Keyboard Call GameOver_Keyboard.
36046 LD A,(23464) If ControlMethod is 2 then jump to GameOver_Joystick.
36049 CP 2
36051 JP Z,GameOver_Joystick
GameOverPrint_Loop 36054 LD A,127 Read from the keyboard;
Port Number Bit
0 1 2 3 4
127 SPACE FULL-STOP M N B
36056 IN A,(254)
36058 AND %00000001 Keep only bit 0.
36060 RET Z Return if "SPACE" has been pressed.
36061 LD A,239 Read from the keyboard;
Port Number Bit
0 1 2 3 4
239 0 9 8 7 6
36063 IN A,(254)
36065 AND %00000001 Keep only bit 0.
36067 RET Z Return if "0" has been pressed.
36068 JP GameOverPrint_Loop Jump to GameOverPrint_Loop.
Handles printing the "THE EPITAPH INSCRIBED ON POOR" text.
GameOver_Copy 36071 DEFB 17,0 PAPER 0.
36073 DEFB 22,0,0 PRINT AT (0, 0).
36076 DEFB 16,6 INK 6.
36078 DEFM "THE EPITAPH INSCRIBED ON POOR" "gameover-1".
Handles printing the "JASON'S TOMB," text.
36107 DEFB 22,1,19 PRINT AT (1, 19).
36110 DEFM "JASON'S TOMB," "gameover-2".
Handles printing the "DOES NOT SPEAK OF HIS EVENTFUL" text.
36123 DEFB 16,5 INK 5.
36125 DEFM "DOES NOT SPEAK OF HIS EVENTFUL" "gameover-3".
Handles printing the " LIFE," text.
36155 DEFB 22,3,26 PRINT AT (3, 26).
36158 DEFM " LIFE," "gameover-4".
Handles printing the "BUT OF HIS CARELESS DOOM..." text.
36164 DEFB 22,4,1 PRINT AT (4, 1).
36167 DEFB 16,6 INK 6.
36169 DEFM "BUT OF HIS CARELESS DOOM..." "gameover-5".
Handles printing the "'ON EMBARKING ON HIS MISSION HE" text.
36196 DEFB 22,7,0 PRINT AT (7, 0).
36199 DEFB 16,5 INK 5.
36201 DEFM "'ON EMBARKING ON HIS MISSION HE" "'ON EMBARKING ON HIS MISSION HE".
Handles printing the "WAS GIVEN CHANCES FOUR," text.
36232 DEFB 22,8,9 PRINT AT (8, 9).
36235 DEFM "WAS GIVEN CHANCES FOUR," "WAS GIVEN CHANCES FOUR,".
Handles printing the "BUT THE GEM WAS UNDISTURBED" text.
36258 DEFB 22,9,0 PRINT AT (9, 0).
36261 DEFB 16,6 INK 6.
36263 DEFM "BUT THE GEM WAS UNDISTURBED" "BUT THE GEM WAS UNDISTURBED".
Handles printing the "(FOR HE NEEDED SOMEWHAT MORE!)'" text.
36290 DEFB 22,10,1 PRINT AT (10, 1).
36293 DEFM "(FOR HE NEEDED SOMEWHAT MORE!)'" "(FOR HE NEEDED SOMEWHAT MORE!)'".
Handles printing the "HOW SAD A TALE OF FAILURE FOR " text.
36324 DEFB 22,12,0 PRINT AT (12, 0).
36327 DEFB 16,5 INK 5.
36329 DEFM "HOW SAD A TALE OF FAILURE FOR " "HOW SAD A TALE OF FAILURE FOR ".
Handles printing the "ONE SO CLOSE TO GLORY!" text.
36359 DEFB 22,13,10 PRINT AT (13, 10).
36362 DEFM "ONE SO CLOSE TO GLORY!" "ONE SO CLOSE TO GLORY!".
Handles printing the "BUT YOU COULD YET REWRITE THE" text.
36384 DEFB 22,14,1 PRINT AT (14, 1).
36387 DEFB 16,6 INK 6.
36389 DEFM "BUT YOU COULD YET REWRITE THE" "BUT YOU COULD YET REWRITE THE".
Handles printing the " HISTORY OF THIS STORY..." text.
36418 DEFB 22,15,7 PRINT AT (15, 7).
36421 DEFM " HISTORY OF THIS STORY..." " HISTORY OF THIS STORY...".
Handles printing the "SO PRESS THE " text.
36446 DEFB 22,17,0 PRINT AT (17, 0).
36449 DEFB 16,5 INK 5.
36451 DEFM "SO PRESS THE " "SO PRESS THE ".
Handles printing the "SPACE" text.
36464 DEFB 19,1 BRIGHT "ON".
36466 DEFB 16,6 INK 6.
36468 DEFB 17,2 PAPER 2.
36470 DEFB 18,1 FLASH "ON".
36472 DEFM "SPACE" "SPACE".
Handles printing the " KEY FOR" text.
36477 DEFB 19,0 BRIGHT "OFF".
36479 DEFB 16,5 INK 5.
36481 DEFB 17,0 PAPER 0.
36483 DEFB 18,0 FLASH "OFF".
36485 DEFM " KEY FOR" " KEY FOR".
Handles printing the "JASON'S REINCARNATION," text.
36493 DEFB 22,18,9 PRINT AT (18, 9).
36496 DEFM "JASON'S REINCARNATION," "JASON'S REINCARNATION,".
Handles printing the "AND THEN YOU MAY BEGIN A BRAND" text.
36518 DEFB 22,19,0 PRINT AT (19, 0).
36521 DEFB 16,6 INK 6.
36523 DEFM "AND THEN YOU MAY BEGIN A BRAND" "AND THEN YOU MAY BEGIN A BRAND".
Handles printing the "NEW MISSION EMBARKATION." text.
36553 DEFB 22,20,7 PRINT AT (20, 7).
36556 DEFM "NEW MISSION EMBARKATION." "NEW MISSION EMBARKATION.".
Handles printing the "FIRE" text.
36580 DEFB 19,1 BRIGHT "ON".
36582 DEFB 16,6 INK 6.
36584 DEFB 17,2 PAPER 2.
36586 DEFB 18,1 FLASH "ON".
36588 DEFB 22,17,13 PRINT AT (17, 13).
36591 DEFM "FIRE" "FIRE".
Handles printing the " " text.
36595 DEFB 19,0 BRIGHT "OFF".
36597 DEFB 16,5 INK 5.
36599 DEFB 17,0 PAPER 0.
36601 DEFB 18,0 FLASH "OFF".
36603 DEFM " " " ".
GameOver_Keyboard 36604 LD A,(23464) Return if ControlMethod is 1 (keyboard).
36607 CP 1
36609 RET Z
36610 LD DE,36580 DE=GameOver_Copy (text).
36613 LD BC,24 BC=24 (counter).
36616 CALL 8252 Call PR_STRING.
36619 RET Return.
Loops until "fire" is pressed from the Kempston joystick.
GameOver_Joystick 36620 IN A,(31) Read Kempston Joystick input.
36622 AND %00010000 Keep only bit 4.
36624 RET NZ Only return when fire button is pressed.
36625 JP GameOver_Joystick Jump to GameOver_Joystick.
Prev: 35889 Up: Map Next: 36628