Routines
Prev: 9368 Up: Map Next: 9745
95D4: Routine at 95D4
Used by the routines at Game_Over, Start_1UP_Game and AE26.
95D4 LD HL,$AA16 Call 95E1 using AA16.
95D7 CALL $95E1
95DA LD HL,$AA56 Call 95E1 using AA56.
95DD CALL $95E1
95E0 RET Return.
fffff
95E1 LD A,(HL)
95E2 LD ($9743),A
95E5 LD BC,$000A
95E8 XOR A
95E9 SBC HL,BC
95EB LD A,(HL)
95EC AND A
95ED RET Z
95EE DEC HL
95EF LD A,(HL)
95F0 AND A
95F1 INC HL
95F2 JP Z,$96CE
95F5 LD BC,$0004
95F8 ADD HL,BC
95F9 LD E,L
95FA LD D,H
95FB LD A,($9743)
95FE AND A
95FF LD A,(HL)
9600 JR NZ,$961A
9602 AND A
9603 JR Z,$9609
9605 DEC (HL)
9606 JP $9698
9609 DEC HL
960A DEC HL
960B LD A,(HL)
960C AND A
960D JR Z,$9613
960F DEC (HL)
9610 JP $962B
9613 DEC HL
9614 LD (HL),$01
9616 DEC HL
9617 LD (HL),$00
9619 RET
961A INC HL
961B CP (HL)
961C DEC HL
961D JR Z,$9623
961F INC (HL)
9620 JP $9698
9623 DEC HL
9624 LD A,(HL)
9625 DEC A
9626 DEC HL
9627 CP (HL)
9628 JR Z,$9613
962A INC (HL)
962B LD BC,$0005
962E ADD HL,BC
962F LD (HL),$00
9631 LD A,($9743)
9634 AND A
9635 INC HL
9636 LD A,(HL)
9637 JR Z,$9642
9639 SUB $04
963B LD (HL),A
963C INC HL
963D JR NC,$9649
963F DEC (HL)
9640 JR $9649
9642 ADD A,$04
9644 LD (HL),A
9645 INC HL
9646 JR NC,$9649
9648 INC (HL)
9649 PUSH DE
964A LD C,(HL)
964B DEC HL
964C LD L,(HL)
964D LD H,C
964E LD A,$01
9650 LD (DE),A
9651 LD A,($9743)
9654 AND A
9655 LD A,(HL)
9656 JR NZ,$965C
9658 LD B,A
9659 DEC A
965A LD (DE),A
965B LD A,B
965C INC DE
965D LD (DE),A
965E INC HL
965F INC DE
9660 LD A,(HL)
9661 LD (DE),A
9662 INC DE
9663 LD (DE),A
9664 LD HL,$0007
9667 ADD HL,DE
9668 EX DE,HL
9669 LD L,A
966A LD H,$31
966C LD A,$09
966E LD ($9744),A
9671 LD B,$39
9673 LD C,(HL)
9674 LD A,(BC)
9675 LD (DE),A
9676 INC DE
9677 INC B
9678 LD A,(BC)
9679 LD (DE),A
967A INC DE
967B LD A,($9744)
967E DEC A
967F LD ($9744),A
9682 JR Z,$968B
9684 LD BC,$003B
9687 ADD HL,BC
9688 JP $9671
968B POP HL
968C PUSH HL
968D LD BC,$0007
9690 ADD HL,BC
9691 LD A,(HL)
9692 CP $01
9694 CALL Z,$971E
9697 POP HL
9698 LD BC,$0004
969B ADD HL,BC
969C LD E,(HL)
969D INC HL
969E LD D,(HL)
969F INC HL
96A0 LD A,(HL)
96A1 INC HL
96A2 XOR (HL)
96A3 LD ($9743),A
96A6 INC HL
96A7 INC DE
96A8 INC DE
96A9 LD A,(DE)
96AA ADD A,(HL)
96AB LD (HL),A
96AC INC HL
96AD INC DE
96AE LD A,($9743)
96B1 AND A
96B2 LD A,(DE)
96B3 LD B,A
96B4 LD A,(HL)
96B5 JR Z,$96BA
96B7 SUB B
96B8 JR $96BB
96BA ADD A,B
96BB AND A
96BC JR NC,$96C1
96BE LD (HL),$00
96C0 RET
96C1 CP $5F
96C3 JR C,$96CC
96C5 CP $C8
96C7 JR NC,$96BE
96C9 LD (HL),$5F
96CB RET
96CC LD (HL),A
96CD RET
96CE LD C,(HL)
96CF DEC HL
96D0 LD (HL),C
96D1 INC HL
96D2 INC HL
96D3 LD (HL),$00
96D5 INC HL
96D6 PUSH HL
96D7 LD DE,$0006
96DA ADD HL,DE
96DB EX DE,HL
96DC LD HL,$9368
96DF ADD HL,BC
96E0 ADD HL,BC
96E1 LD C,(HL)
96E2 INC HL
96E3 LD B,(HL)
96E4 INC HL
96E5 LD A,(HL)
96E6 INC HL
96E7 LD H,(HL)
96E8 LD L,A
96E9 AND A
96EA SBC HL,BC
96EC PUSH HL
96ED LD A,($9743)
96F0 AND A
96F1 JR Z,$96FC
96F3 ADD HL,BC
96F4 LD BC,$0004
96F7 AND A
96F8 SBC HL,BC
96FA LD C,L
96FB LD B,H
96FC LD A,C
96FD LD (DE),A
96FE INC DE
96FF LD A,B
9700 LD (DE),A
9701 POP HL
9702 SRL H
9704 RR L
9706 SRL H
9708 RR L
970A LD B,L
970B POP HL
970C LD (HL),$00
970E LD A,($9743)
9711 AND A
9712 JR NZ,$9717
9714 LD A,B
9715 DEC A
9716 LD (HL),A
9717 INC HL
9718 LD (HL),B
9719 EX DE,HL
971A INC DE
971B JP $9649
971E INC HL
971F INC HL
9720 LD A,$03
9722 LD ($9744),A
9725 LD C,$04
9727 INC HL
9728 LD D,H
9729 LD E,L
972A LD B,$00
972C ADD HL,BC
972D LD A,(DE)
972E LD B,(HL)
972F LD (HL),A
9730 LD A,B
9731 LD (DE),A
9732 INC HL
9733 INC DE
9734 LD A,(DE)
9735 LD B,(HL)
9736 LD (HL),A
9737 LD A,B
9738 LD (DE),A
9739 LD A,($9744)
973C DEC A
973D LD ($9744),A
9740 JR NZ,$9727
9742 RET
9743 DEFB $00
9744 DEFB $00
Prev: 9368 Up: Map Next: 9745