Prev: 9270 Up: Map Next: 9375
92C5: Routine at 92C5
Used by the routine at 9270.
92C5 LD A,($7207) Return if *7207 is not equal to 00.
92C8 CP $00
92CA RET NZ
92CB LD A,($99EE) Write *99EE to *99AA.
92CE LD ($99AA),A
92D1 LD HL,$7200 HL=7200.
92D4 CALL $9439 Call 9439.
92D7 LD IX,$7200 IX=7200.
92DB BIT 6,(IX+$06) Test bit 6 of *IX+06.
92DF JR NZ,$931E Jump to 931E if A is not zero.
92E1 LD A,($7238) Jump to 9303 if *7238 is equal to 00.
92E4 CP $00
92E6 JR Z,$9303
92E8 DEC A Decrease A by one.
92E9 LD ($7238),A Write A to *7238.
92EC BIT 2,A Test bit 2 of A.
92EE JR NZ,$9303 Jump to 9303 if A is not zero.
92F0 AND %00000011 Keep only bits 0-1.
92F2 CP $03 Compare A with 03.
92F4 LD A,($7206) A=*7206.
92F7 CALL Z,$9619 Call 9619 zero.
92FA AND %00011000 Keep only bits 3-4.
92FC LD E,A E=A.
92FD LD IX,$7200 IX=7200.
9301 JR $9309 Jump to 9309.
9303 CALL $936C Call 936C.
9306 CP $20 Return if A is equal to 20.
9308 RET Z
9309 LD A,($7206) A=*7206.
930C AND %00011000 Keep only bits 3-4.
930E CP E Jump to 9316 if A is equal to E.
930F JR Z,$9316
9311 LD (IX+$06),E Write E to *IX+06.
9314 JR $933B Jump to 933B.
9316 BIT 5,(IX+$06) Test bit 5 of *IX+06.
931A JR Z,$9324 Jump to 9324 if A is zero.
931C JR $9311 Jump to 9311.
931E RES 6,(IX+$06) Reset bit 6 of *IX+06.
9322 JR $933B Jump to 933B.
9324 LD HL,($7201) HL=*7201.
9327 CALL $9375 Call 9375.
932A BIT 5,A Test bit 5 of A.
932C RET NZ Return if {} is not zero.
932D BIT 4,A Test bit 4 of A.
932F JR NZ,$935C Jump to 935C if A is not zero.
9331 BIT 0,A Test bit 0 of A.
9333 RET NZ Return if {} is not zero.
9334 LD ($7204),HL Write HL to *7204.
9337 SET 5,(IX+$06) Set bit 5 of *IX+06.
933B LD IX,$7200 IX=7200.
933F LD BC,($99BA) BC=*99BA.
9343 CALL $9403 Call 9403.
This entry point is used by the routine at 9270.
9346 LD A,($7206) A=*7206.
9349 LD IX,($99BA) IX=99BA.
934D CALL $95C6 Call 95C6.
9350 LD IX,$7200 IX=7200.
9354 LD BC,($99BA) BC=*99BA.
9358 CALL $941E Call 941E.
935B RET Return.
935C SET 6,(IX+$06) Set bit 6 of *IX+06.
9360 CALL $939D Call 939D.
9363 LD DE,$7208 Write 7208 to *99B8.
9366 LD ($99B8),DE
936A JR $933B Jump to 933B.
936C CALL Handler_Controls Call Handler_Controls.
936F LD A,E Return if E is not equal to 28.
9370 CP $28
9372 RET NZ
9373 POP HL Restore HL from the stack.
9374 RET Return.
Prev: 9270 Up: Map Next: 9375