A37D: Routine at A37D
| A37D |
XOR A |
| A37E |
LD ($A028),A |
| A381 |
LD A,($A35D) |
| A384 |
CALL $A2B1 |
| A387 |
PUSH HL |
| A388 |
POP IX |
| A38A |
PUSH HL |
| A38B |
CALL $A2BD |
| A38E |
CALL $C493 |
| A391 |
CALL $C4B2 |
| A394 |
POP HL |
| A395 |
LD A,($A01D) |
| A398 |
LD C,A |
| A399 |
PUSH HL |
| A39A |
LD DE,$0006 |
| A39D |
ADD HL,DE |
| A39E |
CALL $A880 |
| A3A1 |
POP HL |
| A3A2 |
CALL $A880 |
| A3A5 |
BIT 3,C |
| A3A7 |
JR Z,$A3E2 |
| A3A9 |
BIT 5,C |
| A3AB |
CALL NZ,$A880 |
| A3AE |
LD A,($A01E) |
| A3B1 |
BIT 7,A |
| A3B3 |
CALL NZ,$A880 |
| A3B6 |
LD A,($A35E) |
| A3B9 |
CP $FE |
| A3BB |
JR NZ,$A3C7 |
| A3BD |
PUSH HL |
| A3BE |
LD HL,($A02F) |
| A3C1 |
CALL $A419 |
| A3C4 |
POP HL |
| A3C5 |
JR $A3E2 |
| A3C7 |
PUSH HL |
| A3C8 |
LD HL,$A036 |
| A3CB |
CP (HL) |
| A3CC |
JR NZ,$A3D6 |
| A3CE |
LD DE,$055B |
| A3D1 |
CALL $A887 |
| A3D4 |
JR $A3E1 |
| A3D6 |
LD A,($A00F) |
| A3D9 |
CP $05 |
| A3DB |
LD A,($A35E) |
| A3DE |
CALL $A745 |
| A3E1 |
POP HL |
| A3E2 |
LD A,($A35F) |
| A3E5 |
CP $FF |
| A3E7 |
JR Z,$A414 |
| A3E9 |
BIT 2,C |
| A3EB |
JR Z,$A414 |
| A3ED |
BIT 5,C |
| A3EF |
CALL Z,$A880 |
| A3F2 |
LD A,($A01E) |
| A3F5 |
BIT 7,A |
| A3F7 |
CALL Z,$A880 |
| A3FA |
LD A,($A35F) |
| A3FD |
CP $FE |
| A3FF |
JR NZ,$A409 |
| A401 |
LD HL,($A031) |
| A404 |
CALL $A419 |
| A407 |
JR $A414 |
| A409 |
LD A,($A010) |
| A40C |
CP $05 |
| A40E |
LD A,($A35F) |
| A411 |
CALL $A745 |
| A414 |
LD A,$2E |
| A416 |
JP $A9B7 |
| A419 |
PUSH BC |
| A41A |
RES 7,H |
| A41C |
SLA L |
| A41E |
SRL H |
| A420 |
RR L |
| A422 |
LD A,$20 |
| A424 |
CALL $A9B7 |
| A427 |
LD DE,$00F0 |
| A42A |
CALL $A476 |
| A42D |
AND A |
| A42E |
JR Z,$A442 |
| A430 |
LD B,A |
| A431 |
LD A,$60 |
| A433 |
CALL $A9B7 |
| A436 |
CALL $A490 |
| A439 |
LD A,L |
| A43A |
OR H |
| A43B |
JR Z,$A467 |
| A43D |
LD A,$20 |
| A43F |
CALL $A9B7 |
| A442 |
LD DE,$000C |
| A445 |
CALL $A476 |
| A448 |
AND A |
| A449 |
JR Z,$A469 |
| A44B |
LD B,A |
| A44C |
CALL $A490 |
| A44F |
LD A,$2F |
| A451 |
CALL $A9B7 |
| A454 |
LD A,L |
| A455 |
AND A |
| A456 |
LD B,A |
| A457 |
JR Z,$A45E |
| A459 |
CALL $A490 |
| A45C |
JR $A467 |
| A45E |
LD A,$2D |
| A460 |
CALL $A9B7 |
| A463 |
XOR A |
| A464 |
LD ($A026),A |
| A467 |
POP BC |
| A468 |
RET |
| A469 |
LD B,L |
| A46A |
CALL $A490 |
| A46D |
LD A,$44 |
| A46F |
CALL $A9B7 |
| A472 |
LD A,$2E |
| A474 |
JR $A460 |
| A476 |
LD A,$FF |
| A478 |
INC A |
| A479 |
AND A |
| A47A |
SBC HL,DE |
| A47C |
JR NC,$A478 |
| A47E |
ADD HL,DE |
| A47F |
RET |
| A480 |
CALL $A476 |
| A483 |
ADD A,$30 |
| A485 |
DEC C |
| A486 |
INC C |
| A487 |
JR NZ,$A48D |
| A489 |
CP $30 |
| A48B |
RET Z |
| A48C |
INC C |
| A48D |
JP $A9B7 |
| A490 |
PUSH HL |
| A491 |
PUSH DE |
| A492 |
LD L,B |
| A493 |
LD H,$00 |
| A495 |
LD C,H |
| A496 |
LD DE,$0064 |
| A499 |
CALL $A480 |
| A49C |
LD DE,$000A |
| A49F |
CALL $A480 |
| A4A2 |
LD A,L |
| A4A3 |
ADD A,$30 |
| A4A5 |
CALL $A9B7 |
| A4A8 |
POP DE |
| A4A9 |
POP HL |
| A4AA |
RET |
