40810: Routine at 9F6A
| 40810 |
LD A,H |
| 40811 |
ADD A,16 |
| 40813 |
LD H,A |
| 40814 |
JR 40839 |
| 40816 |
CALL 45538 |
| 40819 |
RET NZ |
| 40820 |
LD HL,41064 |
| 40823 |
LD DE,24840 |
| 40826 |
LD BC,144 |
| 40829 |
LDIR |
| 40831 |
LD A,(24130) |
| 40834 |
LD H,A |
| 40835 |
LD A,(24128) |
| 40838 |
LD L,A |
| 40839 |
LD A,(24699) |
| 40842 |
ADD A,A |
| 40843 |
ADD A,A |
| 40844 |
ADD A,A |
| 40845 |
SUB H |
| 40846 |
JP P,40851 |
| 40849 |
NEG |
| 40851 |
CP 16 |
| 40853 |
JR C,40810 |
| 40855 |
LD A,(24723) |
| 40858 |
ADD A,A |
| 40859 |
ADD A,A |
| 40860 |
ADD A,A |
| 40861 |
SUB H |
| 40862 |
JP P,40867 |
| 40865 |
NEG |
| 40867 |
CP 16 |
| 40869 |
JR C,40810 |
| 40871 |
SRL H |
| 40873 |
SRL H |
| 40875 |
SRL H |
| 40877 |
LD (24842),HL |
| 40880 |
LD BC,64 |
| 40883 |
CALL 40962 |
| 40886 |
LD (24938),HL |
| 40889 |
LD BC,8 |
| 40892 |
CALL 40962 |
| 40895 |
LD (24962),HL |
| 40898 |
LD BC,64 |
| 40901 |
CALL 40962 |
| 40904 |
LD (24890),HL |
| 40907 |
LD A,(24224) |
| 40910 |
CP 99 |
| 40912 |
JR Z,40915 |
| 40914 |
INC A |
| 40915 |
LD (24224),A |
| 40918 |
AND A |
| 40919 |
JR Z,40938 |
| 40921 |
AND 3 |
| 40923 |
JR NZ,40938 |
| 40925 |
LD HL,24225 |
| 40928 |
INC (HL) |
| 40929 |
LD DE,47796 |
| 40932 |
CALL 47548 |
| 40935 |
CALL DisplayPlayerLives |
| 40938 |
LD A,(24224) |
| 40941 |
CP 16 |
| 40943 |
CALL NC,40959 |
| 40946 |
RLCA |
| 40947 |
RLCA |
| 40948 |
CPL |
| 40949 |
AND 60 |
| 40951 |
ADD A,81 |
| 40953 |
LD (24959),A |
| 40956 |
JP PrintPlayerLevels |
| 40959 |
LD A,255 |
| 40961 |
RET |
| 40962 |
ADD HL,BC |
| 40963 |
LD A,H |
| 40964 |
AND 31 |
| 40966 |
LD H,A |
| 40967 |
RET |
