Prev: 7088 Up: Map Next: 7161
709D: Routine at 709D
Used by the routine at 72C3.
709D LD C,(HL)
709E BIT 7,C
70A0 RET NZ
70A1 INC L
70A2 DEC (HL)
70A3 RET NZ
70A4 LD A,C
70A5 AND $0F
70A7 LD (HL),A
70A8 INC L
70A9 DEC (HL)
70AA JR NZ,$70AE
70AC LD (HL),$0E
70AE LD A,C
70AF RLCA
70B0 RLCA
70B1 SBC A,A
70B2 BIT 5,C
70B4 JR Z,$70B7
70B6 INC A
70B7 INC L
70B8 ADD A,(HL)
70B9 LD B,A
70BA CP $08
70BC JR NC,$70FF
70BE INC L
70BF LD E,(HL)
70C0 LD D,$BB
70C2 LD A,(DE)
70C3 ADD A,B
70C4 LD E,A
70C5 LD D,$C3
70C7 LD A,(DE)
70C8 BIT 5,A
70CA JR Z,$70EB
70CC INC L
70CD LD A,(HL)
70CE XOR $80
70D0 LD (HL),A
70D1 DEC L
70D2 LD E,(HL)
70D3 INC E
70D4 LD D,$BB
70D6 LD A,(DE)
70D7 AND $3F
70D9 LD E,A
70DA ADD A,A
70DB ADD A,A
70DC INC A
70DD LD (HL),A
70DE LD A,$60
70E0 XOR C
70E1 LD C,A
70E2 DEC L
70E3 DEC L
70E4 DEC L
70E5 DEC L
70E6 LD (HL),C
70E7 INC L
70E8 INC L
70E9 JR $70AE
70EB DEC L
70EC LD (HL),B
70ED INC L
70EE INC L
70EF RLCA
70F0 JR NC,$70F3
70F2 DEC (HL)
70F3 RLCA
70F4 JR NC,$70F7
70F6 INC (HL)
70F7 RES 4,(HL)
70F9 RLCA
70FA AND $10
70FC OR (HL)
70FD LD (HL),A
70FE RET
70FF INC L
7100 INC L
7101 INC L
7102 LD A,(HL)
7103 DEC L
7104 AND $1F
7106 CP $1E
7108 JR NZ,$710E
710A BIT 7,B
710C JR Z,$70CD
710E CP $08
7110 JR NZ,$7116
7112 BIT 7,B
7114 JR NZ,$70CD
7116 LD E,$01
7118 INC L
7119 INC (HL)
711A LD A,B
711B RLCA
711C JR NC,$7122
711E DEC (HL)
711F DEC (HL)
7120 LD E,$04
7122 DEC L
7123 DEC L
7124 DEC L
7125 AND $07
7127 LD (HL),A
7128 LD B,A
7129 INC L
712A PUSH HL
712B LD C,(HL)
712C INC C
712D LD B,$BB
712F LD A,(BC)
7130 INC L
7131 INC L
7132 INC L
7133 RLCA
7134 JR C,$713B
7136 INC E
7137 INC (HL)
7138 RLCA
7139 JR C,$713D
713B DEC E
713C DEC (HL)
713D LD A,E
713E ADD A,A
713F ADD A,E
7140 LD E,A
7141 LD A,(HL)
7142 DEC L
7143 LD L,(HL)
7144 LD H,A
7145 CALL GetRandomNumber
7148 AND $0C
714A JR Z,$714E
714C XOR $0C
714E CALL $699A
7151 POP DE
7152 EX DE,HL
7153 INC E
7154 LD (HL),E
7155 LD A,(DE)
7156 DEC L
7157 ADD A,(HL)
7158 LD E,A
7159 LD D,$C3
715B LD A,(DE)
715C JR $70ED
715E NOP
715F NOP
7160 NOP
Prev: 7088 Up: Map Next: 7161