Prev: 9110 Up: Map Next: 9265
911E: Move the ducklings
Used by the routine at 9858.
911E LD A,($6EEB)
9121 CP $08
9123 JR C,$9128
9125 CP $10
9127 RET C
9128 LD HL,($736C)
912B INC HL
912C LD H,$00
912E LD ($736C),HL
9131 LD C,$01
9133 BIT 0,(HL)
9135 JR Z,$9138
9137 DEC C
9138 LD HL,$7356
913B LD A,(HL)
913C INC A
913D CP $05
913F JR NZ,$9142
9141 XOR A
9142 LD (HL),A
9143 SLA A
9145 SLA A
9147 ADD A,$57
9149 LD H,$73
914B LD L,A
914C LD E,(HL)
914D LD A,E
914E XOR $FF
9150 RET Z
9151 INC HL
9152 LD D,(HL)
9153 INC HL
9154 LD A,(HL)
9155 EX DE,HL
9156 XOR A
9157 CALL $929C
915A EX DE,HL
915B LD A,(HL)
915C CP $07
915E JR C,$9178
9160 LD C,E
9161 SUB $06
9163 LD (HL),A
9164 LD B,A
9165 CP $02
9167 JR Z,$916D
9169 LD A,E
916A SUB $08
916C LD E,A
916D EX DE,HL
916E XOR A
916F CALL $929C
9172 LD A,B
9173 LD L,C
9174 CALL $929C
9177 RET
9178 CP $03
917A JR NC,$91F3
917C BIT 2,E
917E JR NZ,$91A5
9180 LD B,A
9181 CALL $9265
9184 LD A,E
9185 ADD A,$08
9187 JR C,$91A1
9189 DJNZ $918F
918B SUB $10
918D JR C,$91A1
918F LD E,A
9190 DEC D
9191 EX DE,HL
9192 CALL $9438
9195 EX DE,HL
9196 AND A
9197 JR Z,$91A1
9199 CP $03
919B JR C,$91A5
919D CP $05
919F JR Z,$91A5
91A1 LD A,$03
91A3 SUB (HL)
91A4 LD (HL),A
91A5 LD B,(HL)
91A6 DEC HL
91A7 LD D,(HL)
91A8 DEC HL
91A9 LD A,(HL)
91AA ADD A,$04
91AC DJNZ $91B0
91AE SUB $08
91B0 LD (HL),A
91B1 INC B
91B2 LD E,A
91B3 EX DE,HL
91B4 LD A,B
91B5 CALL $929C
91B8 INC DE
91B9 INC DE
91BA BIT 2,L
91BC RET Z
91BD DEC C
91BE RET NZ
91BF PUSH HL
91C0 LD HL,($736C)
91C3 LD A,(HL)
91C4 POP HL
91C5 LD C,$02
91C7 BIT 1,A
91C9 JR Z,$91DF
91CB PUSH HL
91CC LD A,H
91CD SUB $08
91CF LD H,A
91D0 CALL $9438
91D3 POP HL
91D4 DEC A
91D5 JR Z,$91DB
91D7 DEC C
91D8 JR NZ,$91DF
91DA RET
91DB LD A,$03
91DD LD (DE),A
91DE RET
91DF PUSH HL
91E0 LD A,H
91E1 ADD A,$10
91E3 LD H,A
91E4 CALL $9438
91E7 POP HL
91E8 DEC A
91E9 JR Z,$91EF
91EB DEC C
91EC JR NZ,$91CB
91EE RET
91EF LD A,$04
91F1 LD (DE),A
91F2 RET
91F3 BIT 2,D
91F5 JR NZ,$920E
91F7 SUB $02
91F9 LD B,A
91FA LD A,D
91FB ADD A,$10
91FD DJNZ $9201
91FF SUB $18
9201 LD D,A
9202 EX DE,HL
9203 CALL $9438
9206 EX DE,HL
9207 DEC A
9208 JR Z,$920E
920A LD A,$07
920C SUB (HL)
920D LD (HL),A
920E LD B,(HL)
920F DEC HL
9210 LD A,(HL)
9211 DEC HL
9212 LD E,(HL)
9213 ADD A,$04
9215 DEC B
9216 DEC B
9217 DJNZ $921B
9219 SUB $08
921B INC HL
921C LD (HL),A
921D LD D,A
921E EX DE,HL
921F LD A,B
9220 ADD A,$03
9222 CALL $929C
9225 BIT 2,H
9227 RET NZ
9228 DEC C
9229 RET NZ
922A INC DE
922B LD A,H
922C SUB $08
922E LD H,A
922F PUSH HL
9230 LD HL,($736C)
9233 LD A,(HL)
9234 POP HL
9235 LD C,$02
9237 BIT 1,A
9239 JR Z,$9250
923B PUSH HL
923C LD A,L
923D SUB $08
923F LD L,A
9240 CALL $9438
9243 POP HL
9244 CP $05
9246 JR Z,$924C
9248 DEC C
9249 RET Z
924A JR $9250
924C LD A,$01
924E LD (DE),A
924F RET
9250 PUSH HL
9251 LD A,L
9252 ADD A,$10
9254 LD L,A
9255 CALL $9438
9258 POP HL
9259 CP $05
925B JR Z,$9261
925D DEC C
925E RET Z
925F JR $923B
9261 LD A,$02
9263 LD (DE),A
9264 RET
Prev: 9110 Up: Map Next: 9265