29038: Routine at 716E
29038 |
LD A,(30743) |
29041 |
ADD A,A |
29042 |
ADD A,A |
29043 |
ADD A,A |
29044 |
LD C,A |
29045 |
LD A,(30745) |
29048 |
ADD A,C |
29049 |
LD C,A |
29050 |
LD HL,(30782) |
29053 |
LD B,8 |
29055 |
LD A,(HL) |
29056 |
INC L |
29057 |
INC L |
29058 |
LD D,(HL) |
29059 |
INC L |
29060 |
LD E,(HL) |
29061 |
INC L |
29062 |
INC L |
29063 |
INC L |
29064 |
RLCA |
29065 |
JR C,29171 |
29067 |
LD A,(HL) |
29068 |
ADD A,A |
29069 |
ADD A,A |
29070 |
ADD A,A |
29071 |
ADD A,E |
29072 |
SUB C |
29073 |
JR NC,29080 |
29075 |
CP 253 |
29077 |
CCF |
29078 |
JR 29082 |
29080 |
CP 68 |
29082 |
JR NC,29171 |
29084 |
PUSH BC |
29085 |
PUSH HL |
29086 |
SRA A |
29088 |
LD E,A |
29089 |
ADC A,144 |
29091 |
SUB E |
29092 |
LD B,A |
29093 |
DEC L |
29094 |
LD A,(HL) |
29095 |
DEC D |
29096 |
LD L,A |
29097 |
AND 224 |
29099 |
RLA |
29100 |
JR NC,29104 |
29102 |
SET 6,B |
29104 |
RLCA |
29105 |
RLCA |
29106 |
LD C,A |
29107 |
RLCA |
29108 |
RLCA |
29109 |
OR B |
29110 |
LD B,A |
29111 |
LD A,C |
29112 |
LD C,67 |
29114 |
AND A |
29115 |
JR Z,29139 |
29117 |
DEC C |
29118 |
CP 2 |
29120 |
JR Z,29139 |
29122 |
LD C,69 |
29124 |
DEC A |
29125 |
JR Z,29147 |
29127 |
INC C |
29128 |
LD A,D |
29129 |
CP 6 |
29131 |
JR C,29147 |
29133 |
AND 3 |
29135 |
ADD A,2 |
29137 |
JR 29147 |
29139 |
LD A,D |
29140 |
CP 8 |
29142 |
JR C,29147 |
29144 |
CPL |
29145 |
SUB 241 |
29147 |
BIT 4,L |
29149 |
JR Z,29152 |
29151 |
INC A |
29152 |
SRL A |
29154 |
JR NC,29158 |
29156 |
INC B |
29157 |
INC B |
29158 |
LD H,A |
29159 |
LD A,L |
29160 |
AND 15 |
29162 |
SUB H |
29163 |
LD D,A |
29164 |
LD A,B |
29165 |
DEC A |
29166 |
CALL 30423 |
29169 |
POP HL |
29170 |
POP BC |
29171 |
INC L |
29172 |
INC L |
29173 |
DJNZ 29055 |
29175 |
RET |