922C: Routine at 922C
| _922c |
922C |
PUSH HL |
|
922D |
LD E,(IX+$02) |
|
9230 |
LD D,$00 |
|
9232 |
LD HL,(Handle_Lockers) |
|
9235 |
ADD HL,DE |
|
9236 |
LD ($C588),HL |
|
9239 |
LD HL,($7C77) |
|
923C |
LD BC,($7C79) |
| _922c_0 |
9240 |
LD DE,($C588) |
|
9244 |
LD A,(DE) |
|
9245 |
AND $7F |
|
9247 |
CPIR |
|
9249 |
JR NZ,_922c_11 |
|
924B |
PUSH HL |
|
924C |
PUSH BC |
| _922c_1 |
924D |
DEC HL |
|
924E |
BIT 7,(HL) |
|
9250 |
JR Z,_922c_1 |
|
9252 |
LD C,$05 |
| _922c_2 |
9254 |
INC HL |
|
9255 |
BIT 7,(HL) |
|
9257 |
JR NZ,_922c_6 |
|
9259 |
LD DE,($C588) |
|
925D |
LD B,$05 |
| _922c_3 |
925F |
LD A,(DE) |
|
9260 |
AND $7F |
|
9262 |
CP (HL) |
|
9263 |
JR Z,_922c_5 |
|
9265 |
INC DE |
|
9266 |
DJNZ _922c_3 |
| _922c_4 |
9268 |
POP BC |
|
9269 |
POP HL |
|
926A |
JR _922c_0 |
| _922c_5 |
926C |
DEC C |
|
926D |
JR _922c_2 |
| _922c_6 |
926F |
LD A,C |
|
9270 |
AND A |
|
9271 |
JR Z,_922c_9 |
|
9273 |
LD B,$05 |
|
9275 |
LD DE,($C588) |
| _922c_7 |
9279 |
LD A,(DE) |
|
927A |
AND A |
|
927B |
JR NZ,_922c_8 |
|
927D |
DEC C |
| _922c_8 |
927E |
INC DE |
|
927F |
DJNZ _922c_7 |
|
9281 |
LD A,C |
|
9282 |
AND A |
|
9283 |
JR NZ,_922c_4 |
| _922c_9 |
9285 |
LD A,(HL) |
|
9286 |
LD HL,($C588) |
|
9289 |
LD (HL),A |
|
928A |
LD B,$04 |
| _922c_10 |
928C |
INC HL |
|
928D |
LD (HL),$00 |
|
928F |
DJNZ _922c_10 |
|
9291 |
POP BC |
|
9292 |
POP HL |
| _922c_11 |
9293 |
POP HL |
|
9294 |
RET |