Prev: 7167 Up: Map Next: 71F8
716E: Routine at 716E
Used by the routine at 7311.
716E LD A,($7817)
7171 ADD A,A
7172 ADD A,A
7173 ADD A,A
7174 LD C,A
7175 LD A,($7819)
7178 ADD A,C
7179 LD C,A
717A LD HL,($783E)
717D LD B,$08
717F LD A,(HL)
7180 INC L
7181 INC L
7182 LD D,(HL)
7183 INC L
7184 LD E,(HL)
7185 INC L
7186 INC L
7187 INC L
7188 RLCA
7189 JR C,$71F3
718B LD A,(HL)
718C ADD A,A
718D ADD A,A
718E ADD A,A
718F ADD A,E
7190 SUB C
7191 JR NC,$7198
7193 CP $FD
7195 CCF
7196 JR $719A
7198 CP $44
719A JR NC,$71F3
719C PUSH BC
719D PUSH HL
719E SRA A
71A0 LD E,A
71A1 ADC A,$90
71A3 SUB E
71A4 LD B,A
71A5 DEC L
71A6 LD A,(HL)
71A7 DEC D
71A8 LD L,A
71A9 AND $E0
71AB RLA
71AC JR NC,$71B0
71AE SET 6,B
71B0 RLCA
71B1 RLCA
71B2 LD C,A
71B3 RLCA
71B4 RLCA
71B5 OR B
71B6 LD B,A
71B7 LD A,C
71B8 LD C,$43
71BA AND A
71BB JR Z,$71D3
71BD DEC C
71BE CP $02
71C0 JR Z,$71D3
71C2 LD C,$45
71C4 DEC A
71C5 JR Z,$71DB
71C7 INC C
71C8 LD A,D
71C9 CP $06
71CB JR C,$71DB
71CD AND $03
71CF ADD A,$02
71D1 JR $71DB
71D3 LD A,D
71D4 CP $08
71D6 JR C,$71DB
71D8 CPL
71D9 SUB $F1
71DB BIT 4,L
71DD JR Z,$71E0
71DF INC A
71E0 SRL A
71E2 JR NC,$71E6
71E4 INC B
71E5 INC B
71E6 LD H,A
71E7 LD A,L
71E8 AND $0F
71EA SUB H
71EB LD D,A
71EC LD A,B
71ED DEC A
71EE CALL $76D7
71F1 POP HL
71F2 POP BC
71F3 INC L
71F4 INC L
71F5 DJNZ $717F
71F7 RET
Prev: 7167 Up: Map Next: 71F8