Routines
Prev: 38356 Up: Map Next: 39976
38725: Routine at 9745
Used by the routine at Start_1UP_Game.
Game_Over 38725 CALL 40047
38728 CALL 40658
38731 CALL 40233
38734 LD A,(45392)
38737 LD A,(45392)
38740 CALL 45402
38743 CALL Game_Over_3
38746 AND A
38747 RET M
38748 LD A,64 Write 64 to 39977.
38750 LD (39977),A
38753 LD C,0
38755 CALL Game_Over_2
38758 LD C,64
38760 XOR A Write 0 to 39977.
38761 LD (39977),A
38764 CALL Game_Over_2
38767 LD A,(39980)
38770 CP 2
38772 JR NZ,Game_Over_1
38774 CALL 44801
38777 AND A
38778 JR NZ,Game_Over_0
38780 XOR A Clear the yin-yang images by writing 0 to P1_Points_Awarded and P2_Points_Awarded and calling Yin_Yang_1UP.
38781 LD (43528),A
38784 LD (43592),A
Game_Over_0 38787 CALL Yin_Yang_1UP
38790 XOR A Clear the yin-yang images by writing 0 to P1_Yin_Yang and P2_Yin_Yang and calling 38356, 48915.
38791 LD (43521),A
38794 LD (43585),A
Game_Over_1 38797 CALL 38356
38800 CALL 48915
38803 LD C,0
38805 LD A,64 Write 64 to 39977.
38807 LD (39977),A
38810 CALL Game_Over_39
38813 CALL Game_Over_48
38816 LD C,64
38818 XOR A
38819 LD (39977),A
38822 CALL Game_Over_39
38825 CALL Game_Over_48
38828 RET
38829 LD A,(43545)
38832 LD (43574),A
38835 LD A,(43609)
38838 LD (43638),A
38841 XOR A
38842 RET Return.
Game_Over_2 38843 CALL Game_Over_47
38846 CALL Game_Over_15
38849 CALL Game_Over_19
38852 CALL Game_Over_36
38855 CALL Game_Over_48
38858 RET Return.
Game_Over_3 38859 LD A,(39980) If Num_Players is not 0 then jump to Check_Quit_Game.
38862 AND A
38863 JP NZ,Check_Quit_Game
38866 LD A,R
38868 LD A,1 Write 1 to;
38870 LD (43590),A
38873 LD (43526),A
Should we start a 1 player game?
38876 LD A,36 Check if "1" key is pressed.
38878 CALL Keyboard_Test
38881 JR NC,Start_1UP If it is, jump to Start_1UP.
38883 IN A,(31) Take a reading from the kempston joystick port.
38885 BIT 5,A If the fire button is not being pressed, jump to Game_Over_4.
38887 JP NZ,Game_Over_4
38890 AND 16 Keep only bit 4 (fire), if it's not being pressed, jump to Game_Over_4.
38892 JP Z,Game_Over_4
Starts a 1 player game.
Start_1UP 38895 LD A,1 Write 1 to;
38897 LD (39980),A
38900 LD (43590),A
38903 DEC A Write 0 to;
38904 LD (43526),A
38907 CALL New_Round Call New_Round.
38910 LD A,128 A=128.
38912 RET Return.
Should we start a 2 player game?
Game_Over_4 38913 LD A,28 Check if "2" key is pressed.
38915 CALL Keyboard_Test
38918 JR C,Demo_Configs_Main No keys were pressed, continue on to Demo_Configs_Main.
Starts a 2 player game.
Start_2UP 38920 LD A,2 Write 2 to;
38922 LD (39980),A
38925 XOR A Write 0 to;
38926 LD (43526),A
38929 LD (43590),A
38932 CALL New_Round Call New_Round.
38935 LD A,128 A=128.
38937 RET Return.
Should we go to the config page?
Demo_Configs_Main 38938 LD A,35 Check if "0" key is pressed.
38940 CALL Keyboard_Test
38943 JR C,Game_Over_5 No keys were pressed, continue on to Game_Over_5.
38945 CALL Game_Configs_Main Call Game_Configs_Main.
38948 LD A,128 A=128.
38950 RET Return.
Checks if "G" and "H" are being held to quit a game.
Check_Quit_Game 38951 LD A,1 Check if "H" key is pressed.
38953 CALL Keyboard_Test
38956 JR C,Game_Over_5 No keys were pressed, continue on to Game_Over_5.
38958 LD A,6 Check if "G" key is pressed.
38960 CALL Keyboard_Test
38963 JR C,Game_Over_5 No keys were pressed, continue on to Game_Over_5.
38965 XOR A Write 0 to;
38966 LD (39980),A
38969 LD A,128 A=128.
38971 AND A
38972 RET Return.
Game_Over_5 38973 LD A,(43523)
38976 AND A
38977 JR Z,Game_Over_6
38979 LD (43525),A
38982 JP Game_Over_8
Game_Over_6 38985 LD A,(43526)
38988 AND A
38989 JR Z,Game_Over_7
38991 CALL 43740
38994 CALL 43786
38997 CALL 41104
39000 CALL 43763
39003 CALL 43798
39006 JR Game_Over_8
Game_Over_7 39008 LD A,1
39010 CALL 35615
39013 LD C,0
39015 CALL Game_Over_11
39018 LD A,(HL)
39019 LD (43525),A
Game_Over_8 39022 LD A,(43587)
39025 AND A
39026 JR Z,Game_Over_9
39028 LD (43589),A
39031 LD A,1
39033 RET
Game_Over_9 39034 LD A,(43590)
39037 AND A
39038 JR Z,Game_Over_10
39040 CALL 43810
39043 CALL 43856
39046 CALL 41104
39049 CALL 43833
39052 CALL 43868
39055 XOR A
39056 RET
Game_Over_10 39057 LD A,2
39059 CALL 35615
39062 LD C,64
39064 CALL Game_Over_11
39067 LD A,(HL)
39068 LD (43589),A
39071 RET
Game_Over_11 39072 BIT 5,A
39074 JR Z,Game_Over_12
39076 SET 4,A
Game_Over_12 39078 AND 31
39080 LD E,A
39081 LD D,0
39083 LD HL,39133
39086 ADD HL,DE
39087 PUSH HL
39088 LD HL,43543
39091 LD A,C
39092 ADD A,L
39093 LD L,A
39094 LD A,(HL)
39095 AND A
39096 POP HL
39097 RET Z
39098 LD DE,33
39101 ADD HL,DE
39102 RET
This entry point is used by the routine at Start_1UP_Game.
Game_Over_13 39103 LD HL,39980 HL=Num_Players.
39106 LD B,1 Set a counter of 1.
39108 CALL Populate_Score_Buffer Call Populate_Score_Buffer.
39111 CALL Zero_To_Space Call Zero_To_Space.
39114 LD HL,25 Point to Score_Buffer and call Print_String.
39117 LD DE,45092
39120 CALL Print_String
39123 LD HL,793 Point to Text_Player and call Print_String.
39126 LD DE,45118
39129 CALL Print_String
39132 RET Return.
39133 LD BC,1029
39136 LD BC,2307
39139 EX AF,AF'
39140 LD BC,1538
39143 RLCA
39144 LD BC,257
39147 LD BC,257
39150 LD C,10
39152 LD BC,3857
39155 DJNZ Game_Over_14
39157 INC C
Game_Over_14 39158 DEC C
39159 DEC BC
39160 LD BC,257
39163 LD BC,257
39166 LD BC,1029
39169 LD BC,1538
39172 RLCA
39173 LD BC,2307
39176 EX AF,AF'
39177 LD BC,257
39180 LD BC,257
39183 LD C,10
39185 LD BC,3340
39188 DEC BC
39189 LD BC,3857
39192 DJNZ 39195
39194 LD BC,257
39197 LD BC,1
Game_Over_15 39200 LD A,E
39201 CP 3
39203 JR NZ,Game_Over_18
39205 LD A,D
39206 CP 19
39208 JR Z,Game_Over_16
39210 CP 20
39212 JR NZ,Game_Over_17
Game_Over_16 39214 LD E,D
39215 RET
Game_Over_17 39216 LD HL,43542
39219 LD A,(39977)
39222 ADD A,L
39223 LD L,A
39224 LD A,(HL)
39225 AND A
39226 RET NZ
39227 LD HL,43529
39230 LD A,(39977)
39233 ADD A,L
39234 LD L,A
39235 LD A,(HL)
39236 AND A
39237 RET NZ
39238 LD HL,43524
39241 LD A,(39977)
39244 ADD A,L
39245 LD L,A
39246 LD A,(HL)
39247 CP 16
39249 RET Z
39250 CP 10
39252 RET Z
39253 LD HL,43277
39256 ADD A,L
39257 LD L,A
39258 LD A,(HL)
39259 AND A
39260 RET Z
39261 PUSH DE
39262 CALL Game_Over_49
39265 POP DE
39266 AND A
39267 RET Z
39268 LD HL,43524
39271 LD A,(39977)
39274 ADD A,L
39275 LD L,A
39276 LD A,(HL)
39277 LD HL,43302
39280 ADD A,L
39281 LD L,A
39282 LD E,(HL)
39283 LD HL,43529
39286 LD A,C
39287 ADD A,L
39288 LD L,A
39289 LD (HL),0
39291 LD HL,43542
39294 LD A,(39977)
39297 ADD A,L
39298 LD L,A
39299 LD (HL),0
39301 RET
Game_Over_18 39302 LD A,E
39303 CP 7
39305 RET NZ
39306 LD A,D
39307 CP 4
39309 RET Z
39310 CP 7
39312 RET Z
39313 LD E,24
39315 RET
Game_Over_19 39316 LD A,E
39317 CP 26
39319 JR Z,Game_Over_20
39321 CP 27
39323 JR Z,Game_Over_20
39325 CP 22
39327 JR NZ,Game_Over_22
Game_Over_20 39329 LD D,E
39330 LD HL,43544
39333 LD A,C
39334 ADD A,L
39335 LD L,A
39336 LD (HL),122
39338 DEC HL
39339 DEC HL
39340 LD (HL),0
39342 LD HL,43529
39345 LD A,C
39346 ADD A,L
39347 LD L,A
39348 LD (HL),0
39350 LD HL,43539
39353 LD A,C
39354 ADD A,L
39355 LD L,A
39356 LD A,(HL)
39357 AND A
39358 RET Z
39359 LD HL,43538
39362 LD A,C
39363 ADD A,L
39364 LD L,A
39365 LD A,(HL)
39366 CP 44
39368 JR Z,Game_Over_21
39370 CP 40
39372 RET NZ
Game_Over_21 39373 LD A,(40103)
39376 AND A
39377 RET NZ
39378 LD A,1
39380 LD (40103),A
39383 LD A,5
39385 LD (45392),A
39388 RET
Game_Over_22 39389 LD A,D
39390 CP E
39391 RET Z
39392 CP 1
39394 JR NZ,Game_Over_26
39396 LD A,E
39397 CP 17
39399 JR NZ,Game_Over_23
39401 LD D,18
39403 RET
Game_Over_23 39404 CP 7
39406 JR Z,Game_Over_24
39408 CP 16
39410 JR Z,Game_Over_24
39412 CP 10
39414 JR NZ,Game_Over_25
Game_Over_24 39416 LD D,4
39418 RET
Game_Over_25 39419 LD D,E
39420 RET
Game_Over_26 39421 LD A,E
39422 CP 7
39424 JR Z,Game_Over_27
39426 CP 16
39428 JR Z,Game_Over_27
39430 CP 10
39432 JR NZ,Game_Over_30
Game_Over_27 39434 LD A,D
39435 CP 4
39437 JR NZ,Game_Over_29
39439 LD HL,43529
39442 LD A,C
39443 ADD A,L
39444 LD L,A
39445 LD A,(HL)
39446 CP 1
39448 RET NZ
39449 LD D,E
This entry point is used by the routine at 45819.
Game_Over_28 39450 RET
Game_Over_29 39451 CP 18
39453 RET NZ
39454 LD HL,43542
39457 LD A,C
39458 ADD A,L
39459 LD L,A
39460 LD (HL),1
39462 RET
Game_Over_30 39463 LD A,D
39464 CP 18
39466 JR NZ,Game_Over_31
39468 LD A,E
39469 CP 17
39471 JR NZ,Game_Over_31
39473 LD HL,43529
39476 LD A,C
39477 ADD A,L
39478 LD L,A
39479 LD A,(HL)
39480 CP 1
39482 RET NZ
39483 LD D,E
39484 RET
Game_Over_31 39485 LD A,D
39486 CP 17
39488 JR NZ,Game_Over_32
39490 LD HL,43529
39493 LD A,C
39494 ADD A,L
39495 LD L,A
39496 LD A,(HL)
39497 CP 1
39499 JR NZ,Game_Over_32
39501 LD D,21
39503 LD HL,43542
39506 LD A,C
39507 ADD A,L
39508 LD L,A
39509 LD (HL),1
39511 LD HL,43527
39514 LD A,C
39515 ADD A,L
39516 LD L,A
39517 LD (HL),0
39519 LD HL,43531
39522 LD A,C
39523 ADD A,L
39524 LD L,A
39525 LD (HL),0
39527 LD HL,43529
39530 LD A,C
39531 ADD A,L
39532 LD L,A
39533 LD (HL),0
39535 RET
Game_Over_32 39536 LD A,D
39537 LD HL,46178
39540 ADD A,L
39541 LD L,A
39542 LD A,(HL)
39543 CP 128
39545 JR NZ,Game_Over_34
39547 LD HL,43529
39550 LD A,C
39551 ADD A,L
39552 LD L,A
39553 LD (HL),0
39555 LD A,E
39556 CP 17
39558 JR NZ,Game_Over_33
39560 LD D,18
39562 RET
Game_Over_33 39563 LD D,E
39564 RET
Game_Over_34 39565 AND A
39566 JR NZ,Game_Over_35
39568 LD HL,43542
39571 LD A,C
39572 ADD A,L
39573 LD L,A
39574 LD (HL),1
Game_Over_35 39576 LD HL,43529
39579 LD A,C
39580 ADD A,L
39581 LD L,A
39582 LD (HL),0
39584 RET
Game_Over_36 39585 LD HL,43531
39588 LD A,C
39589 ADD A,L
39590 LD L,A
39591 LD A,(HL)
39592 CP D
39593 JR Z,Game_Over_37
39595 INC HL
39596 LD (HL),D
39597 DEC HL
39598 LD (HL),0
39600 LD HL,43529
39603 LD A,C
39604 ADD A,L
39605 LD L,A
39606 LD (HL),0
39608 RET
Game_Over_37 39609 LD HL,43529
39612 LD A,C
39613 ADD A,L
39614 LD L,A
39615 LD A,(HL)
39616 CP 1
39618 JR NZ,Game_Over_38
39620 LD HL,43532
39623 LD A,C
39624 ADD A,L
39625 LD L,A
39626 LD (HL),0
39628 RET
Game_Over_38 39629 LD HL,43531
39632 LD A,C
39633 ADD A,L
39634 LD L,A
39635 LD B,(HL)
39636 INC HL
39637 LD (HL),B
39638 RET
Game_Over_39 39639 CALL Game_Over_47
39642 LD A,D
39643 CP 3
39645 JR Z,Game_Over_40
39647 CP 2
39649 JR NZ,Game_Over_41
Game_Over_40 39651 LD HL,43545
39654 LD A,C
39655 ADD A,L
39656 LD L,A
39657 LD B,(HL)
39658 LD HL,43574
39661 LD A,C
39662 ADD A,L
39663 LD L,A
39664 LD A,(HL)
39665 SUB B
39666 JR Z,Game_Over_41
Game_Over_41 39668 LD HL,43533
39671 LD A,C
39672 ADD A,L
39673 LD L,A
39674 LD A,(HL)
39675 AND A
39676 RET Z
39677 LD (HL),0
39679 LD HL,43523
39682 LD A,C
39683 ADD A,L
39684 LD L,A
39685 LD A,(HL)
39686 AND A
39687 JR Z,Game_Over_42
39689 LD E,A
39690 LD (39976),A
39693 RET
Game_Over_42 39694 LD HL,43542
39697 LD A,C
39698 ADD A,L
39699 LD L,A
39700 LD A,(HL)
39701 AND A
39702 JP Z,Game_Over_45
39705 LD A,D
39706 CP 17
39708 JR NZ,Game_Over_43
39710 INC HL
39711 LD A,(HL)
39712 XOR 1
39714 LD (HL),A
Game_Over_43 39715 LD HL,43527
39718 LD A,C
39719 ADD A,L
39720 LD L,A
39721 LD (HL),0
39723 INC HL
39724 INC HL
39725 LD (HL),0
39727 INC HL
39728 INC HL
39729 LD (HL),0
39731 LD D,1
39733 INC HL
39734 LD (HL),1
39736 LD HL,43542
39739 LD A,C
39740 ADD A,L
39741 LD L,A
39742 LD (HL),0
39744 RET
39745 LD A,D
39746 CP 10
39748 JR Z,Game_Over_44
39750 CP 16
39752 JR Z,Game_Over_44
39754 CP 7
39756 JR Z,Game_Over_44
39758 LD D,1
39760 RET
Game_Over_44 39761 LD D,4
39763 LD HL,43542
39766 LD A,C
39767 ADD A,L
39768 LD L,A
39769 LD (HL),1
39771 LD HL,43532
39774 LD A,C
39775 ADD A,L
39776 LD L,A
39777 LD (HL),4
39779 DEC HL
39780 LD (HL),0
39782 RET
Game_Over_45 39783 LD A,D
39784 LD HL,46178
39787 ADD A,L
39788 LD L,A
39789 LD A,(HL)
39790 AND A
39791 JR Z,Game_Over_46
39793 LD A,1
39795 LD D,A
39796 LD HL,43520
39799 LD A,C
39800 ADD A,L
39801 LD L,A
39802 LD (HL),D
39803 LD HL,43527
39806 LD A,C
39807 ADD A,L
39808 LD L,A
39809 LD (HL),0
39811 INC HL
39812 INC HL
39813 INC HL
39814 INC HL
39815 LD (HL),0
39817 RET
Game_Over_46 39818 LD HL,43529
39821 LD A,C
39822 ADD A,L
39823 LD L,A
39824 LD (HL),1
39826 RET
Game_Over_47 39827 LD HL,43525
39830 LD A,C
39831 ADD A,L
39832 LD L,A
39833 LD E,(HL)
39834 DEC HL
39835 LD D,(HL)
39836 RET
Game_Over_48 39837 LD HL,43524
39840 LD A,C
39841 ADD A,L
39842 LD L,A
39843 LD (HL),D
39844 INC HL
39845 LD (HL),E
39846 RET
Game_Over_49 39847 LD HL,43545
39850 LD A,C
39851 ADD A,L
39852 LD L,A
39853 LD D,(HL)
39854 LD HL,43545
39857 LD A,(39977)
39860 ADD A,L
39861 LD L,A
39862 LD E,(HL)
39863 LD HL,43543
39866 LD A,(43607)
39869 CP (HL)
39870 JR Z,Game_Over_54
39872 LD HL,43543
39875 LD A,C
39876 ADD A,L
39877 LD L,A
39878 LD A,(HL)
39879 AND A
39880 JR NZ,Game_Over_50
39882 LD A,E
39883 SUB D
39884 JR Game_Over_51
Game_Over_50 39886 LD A,D
39887 SUB E
Game_Over_51 39888 LD (39981),A
39891 LD HL,43524
39894 LD A,(39977)
39897 ADD A,L
39898 LD L,A
39899 LD A,(HL)
39900 LD HL,46206
39903 ADD A,L
39904 LD L,A
39905 LD A,(HL)
39906 AND A
39907 JR NZ,Game_Over_52
39909 LD A,(39981)
39912 CP 239
39914 JR NC,Game_Over_53
39916 CP 22
39918 JR C,Game_Over_53
Game_Over_52 39920 XOR A
39921 RET
Game_Over_53 39922 LD A,1
39924 RET
Game_Over_54 39925 LD HL,43543
39928 LD A,C
39929 ADD A,L
39930 LD L,A
39931 LD A,(HL)
39932 AND A
39933 JR Z,Game_Over_55
39935 LD A,D
39936 SUB E
39937 JR Game_Over_56
Game_Over_55 39939 LD A,E
39940 SUB D
Game_Over_56 39941 LD (39981),A
39944 LD HL,43524
39947 LD A,(39977)
39950 ADD A,L
39951 LD L,A
39952 LD A,(HL)
39953 LD HL,46206
39956 ADD A,L
39957 LD L,A
39958 LD A,(HL)
39959 AND A
39960 JR Z,Game_Over_52
39962 LD A,(39981)
39965 CP 3
39967 JR C,Game_Over_52
39969 CP 16
39971 JR NC,Game_Over_52
39973 LD A,1
39975 RET
Prev: 38356 Up: Map Next: 39976