Routines
Prev: 74DC Up: Map Next: 7839
7552: Lose a life
Used by the routines at 6833 and ECAB.
7552 LD HL,$7839 Decrease LIVES_REMAINING by one
7555 DEC (HL)
7556 LD C,(HL) Beginning at $50CB (in the screen buffer) draw the lives using the bike UDG. If the lives are "4" (i.e. a new game) then skip down to 756B.
7557 LD A,$04
7559 EXX
755A LD DE,$50CB
755D EXX
755E SUB C
755F JR Z,$756B
7561 ADD A,A
7562 LD B,A
7563 EXX
7564 LD L,$64
7566 CALL PRINT_BIKE_GRAPHIC
7569 DJNZ $7563
756B LD A,C
756C AND A
756D JR Z,$757E
756F LD B,C
7570 EXX
7571 LD L,$9C
7573 CALL PRINT_BIKE_GRAPHIC
7576 EXX
7577 CALL PRINT_BIKE_GRAPHIC
757A DJNZ $7570
757C RET
757D NOP
757E CALL $7420
7581 LD HL,($7848)
7584 LD DE,($7846)
7588 AND A
7589 SBC HL,DE
758B JR NC,$7599
758D EX DE,HL
758E LD ($7848),HL
7591 EXX
7592 LD DE,$51DB
7595 EXX
7596 CALL $7434
7599 LD A,$84
759B LD HL,$BA46
759E CALL PRINT_BIKE_GRAPHIC_1
75A1 CALL $6828
75A4 AND A
75A5 JR Z,$75A1
75A7 JP $E81B
This entry point is used by the routine at 6833.
75AA CALL $749C
75AD LD A,$05
75AF LD ($7839),A
75B2 LD H,$5A
75B4 LD B,$40
75B6 LD (HL),$04
75B8 INC L
75B9 DJNZ $75B6
75BB LD C,$04
75BD LD HL,$5000
75C0 LD B,$40
75C2 LD (HL),$55
75C4 INC L
75C5 DJNZ $75C2
75C7 INC H
75C8 INC H
75C9 LD L,$00
75CB DEC C
75CC JR NZ,$75C0
75CE LD C,$03
75D0 LD HL,$5A41
75D3 LD B,$04
75D5 LD (HL),$07
75D7 INC L
75D8 DJNZ $75D5
75DA LD A,L
75DB ADD A,$1C
75DD LD L,A
75DE DEC C
75DF JR NZ,$75D3
75E1 LD L,$C0
75E3 LD B,$20
75E5 LD (HL),$07
75E7 INC L
75E8 DJNZ $75E5
75EA LD C,$03
75EC LD HL,$C3E0
75EF EXX
75F0 LD DE,$5041
75F3 EXX
75F4 LD B,$04
75F6 CALL PRINT_STRING
75F9 LD A,(HL)
75FA EXX
75FB LD L,A
75FC LD A,E
75FD ADD A,$0E
75FF LD E,A
7600 CALL PRINT_BIKE_GRAPHIC
7603 INC L
7604 EXX
7605 CALL PRINT_BIKE_GRAPHIC
7608 INC L
7609 EXX
760A LD A,E
760B ADD A,$0C
760D LD E,A
760E EXX
760F DEC C
7610 JR NZ,$75F4
7612 EXX
7613 LD E,$C0
7615 EXX
7616 LD B,$06
7618 CALL PRINT_STRING
761B EXX
761C LD E,$D4
761E EXX
761F LD B,$07
7621 CALL PRINT_STRING
7624 LD HL,$0000
7627 LD ($7844),HL
762A CALL $742C
762D LD HL,($7848)
7630 EXX
7631 LD DE,$51DB
7634 EXX
7635 CALL $7434
7638 JP $754F
763B NOP
This entry point is used by the routine at 6833.
763C CALL $7420
763F LD HL,($783C)
7642 LD A,H
7643 CP $80
7645 JR C,$769A
7647 LD HL,($782E)
764A LD A,(HL)
764B DEC A
764C JR Z,$765C
764E CP $31
7650 CALL NC,$EBF3
7653 CP $2D
7655 CALL C,$EBF3
7658 NOP
7659 NOP
765A NOP
765B NOP
765C CALL $68AD
765F LD A,($7822)
7662 BIT 7,A
7664 LD A,$87
7666 JR NZ,$766A
7668 ADD A,$40
766A LD ($7834),A
766D CALL $6B2D
7670 LD A,$A9
7672 LD HL,$BA86
7675 CALL PRINT_BIKE_GRAPHIC_1
7678 LD D,$10
767A LD C,$01
767C LD HL,$1E00
767F LD A,C
7680 LD B,C
7681 OUT ($FE),A Set the border to the colour held in A
7683 XOR $10
7685 DJNZ $7685
7687 DEC L
7688 JR NZ,$7680
768A DEC H
768B JR NZ,$7680
768D INC C
768E DEC D
768F JR NZ,$767C
7691 LD HL,$3400
7694 LD ($783C),HL
7697 JP $7161
769A LD A,($7822)
769D BIT 7,A
769F JR NZ,$76A2
76A1 CPL
76A2 SUB $7E
76A4 SRL A
76A6 LD E,A
76A7 LD D,$00
76A9 AND A
76AA SBC HL,DE
76AC LD ($783C),HL
76AF JR C,$76D0
76B1 LD A,H
76B2 SRL A
76B4 SRL A
76B6 CPL
76B7 SUB $0C
76B9 LD L,A
76BA LD H,$BA
76BC LD DE,$5A65
76BF CALL $6893
76C2 LD HL,($783C)
76C5 LD A,H
76C6 CP $04
76C8 CALL NC,$6D50
76CB BIT 6,L
76CD CALL NZ,$6D50
76D0 JP $EBF3
76D3 NOP
76D4 NOP
76D5 NOP
76D6 NOP
This entry point is used by the routine at 6833.
76D7 CALL $692C
76DA LD A,($7825)
76DD AND A
76DE RET Z
76DF XOR A
76E0 LD ($7825),A
76E3 LD A,($782A)
76E6 AND A
76E7 RET NZ
76E8 EXX
76E9 LD A,C
76EA EXX
76EB CP $44
76ED JR C,$7744
76EF JR NZ,$7729
76F1 LD HL,$7840
76F4 LD A,(HL)
76F5 AND A
76F6 JP NZ,$EC2A
76F9 LD (HL),$01
76FB CALL $EC0F
76FE NOP
76FF LD HL,($7844)
7702 LD DE,$01F4
7705 ADD HL,DE
7706 LD ($7844),HL
7709 LD A,$96
770B LD HL,$BAA6
770E CALL PRINT_BIKE_GRAPHIC_1
7711 CALL $EC63
7714 CALL $7535
7717 XOR A
7718 LD ($7824),A
771B INC A
771C LD ($781A),A
771F LD HL,$0B6E
7722 LD ($7841),HL
7725 NOP
7726 CALL $6D49
7729 CP $46
772B JR NC,$7742
772D LD DE,$0032
7730 LD HL,($7844)
7733 ADD HL,DE
7734 LD ($7844),HL
7737 POP HL
7738 POP DE
7739 PUSH DE
773A PUSH HL
773B LD HL,$FFFA
773E ADD HL,DE
773F SET 7,(HL)
7741 RET
7742 JR NZ,$77A2
7744 NOP
7745 NOP
7746 NOP
7747 NOP
7748 NOP
7749 NOP
774A POP HL
774B POP DE
774C LD HL,($783E)
774F LD BC,$0008
7752 LD A,C
7753 SET 7,(HL)
7755 ADD HL,BC
7756 DEC A
7757 JR NZ,$7753
7759 LD HL,$FFFA
775C ADD HL,DE
775D RES 7,(HL)
This entry point is used by the routine at EBF3.
775F PUSH HL
7760 LD B,$06
7762 PUSH BC
7763 CALL $68AD
7766 CALL $6B2D
7769 LD C,$28
776B LD HL,$0800
776E LD A,$02
7770 OUT ($FE),A Set the border to the colour held in A
7772 XOR $10
7774 LD D,A
7775 LD B,C
7776 DJNZ $7776
7778 DEC HL
7779 LD A,H
777A OR L
777B LD A,D
777C JR NZ,$7770
777E CALL $68AD
7781 CALL $7314
7784 LD C,$14
7786 LD HL,$1000
7789 LD A,$06
778B OUT ($FE),A Set the border to the colour held in A
778D XOR $10
778F LD D,A
7790 LD B,C
7791 DJNZ $7791
7793 DEC HL
7794 LD A,H
7795 OR L
7796 LD A,D
7797 JR NZ,$778B
7799 POP BC
779A DJNZ $7762
779C POP HL
779D SET 7,(HL)
779F JP $6ED4
77A2 NOP
77A3 NOP
77A4 NOP
77A5 NOP
77A6 NOP
77A7 NOP
77A8 LD DE,$03E8
77AB LD HL,($7844)
77AE ADD HL,DE
77AF LD ($7844),HL
77B2 CALL $7420
77B5 CALL $68AD
77B8 NOP
77B9 NOP
77BA NOP
77BB NOP
77BC LD HL,$7839
77BF LD (HL),$05
77C1 CALL $ED39
77C4 LD A,$9F A=$9F
77C6 LD HL,$BAC6 HL=NEW_CODE_TEXT
77C9 CALL PRINT_BIKE_GRAPHIC_1 Calls the subroutine at PRINT_BIKE_GRAPHIC_1
77CC CALL $EC5E Calls the subroutine at EC5E
77CF CALL $6828 Calls the subroutine at 6828
77D2 AND A
77D3 JR Z,$77CF
77D5 CALL $7535
77D8 JP $6CAD
77DB NOP
77DC NOP
77DD NOP
77DE NOP
77DF NOP
This entry point is used by the routine at 6833.
77E0 NOP
77E1 NOP
77E2 NOP
77E3 NOP
77E4 NOP
77E5 NOP
77E6 LD A,$87
77E8 LD HL,$78AC
77EB CALL PRINT_BIKE_GRAPHIC_1
77EE CALL $EC68
77F1 LD HL,$7839
77F4 LD (HL),$01
77F6 JP $7552
77F9 NOP
77FA DEC B
77FB NOP
77FC INC BC
77FD LD (BC),A
77FE LD (BC),A
77FF LD (BC),A
7800 NOP
7801 INC BC
7802 NOP
7803 INC BC
7804 INC BC
7805 NOP
7806 NOP
7807 LD BC,$0400
780A NOP
780B NOP
780C INC B
780D LD (BC),A
780E LD (BC),A
780F NOP
7810 NOP
7811 LD BC,$0000
7814 NOP
7815 LD B,$1E
7817 LD B,$06
7819 NOP
781A NOP
781B NOP
781C INC B
781D INC B
781E NOP
781F NOP
7820 NOP
7821 INC B
7822 NOP
7823 NOP
7824 LD (BC),A
7825 NOP
7826 NOP
7827 RLCA
7828 RLCA
7829 RLCA
782A NOP
782B NOP
782C JR Z,$7896
782E NOP
782F NOP
7830 NOP
7831 INC BC
7832 INC BC
7833 NOP
7834 NOP
7835 INC B
7836 INC B
7837 INC B
7838 NOP
Prev: 74DC Up: Map Next: 7839