B54A: Routine at B54A
| B54A | 
LD A,($B549) | 
| B54D | 
INC A | 
| B54E | 
JR NZ,$B576 | 
| B550 | 
LD ($B549),A | 
| B553 | 
LD A,($B179) | 
| B556 | 
BIT 7,A | 
| B558 | 
JR Z,$B576 | 
| B55A | 
LD A,$FE | 
| B55C | 
LD ($A035),A | 
| B55F | 
LD HL,($B178) | 
| B562 | 
LD ($A031),HL | 
| B565 | 
OR $01 | 
| B567 | 
RET | 
| B568 | 
LD A,($A010) | 
| B56B | 
CP $05 | 
| B56D | 
JR Z,$B54A | 
| B56F | 
LD A,($B179) | 
| B572 | 
BIT 7,A | 
| B574 | 
JR Z,$B57B | 
| B576 | 
LD A,$FF | 
| B578 | 
CP $FF | 
| B57A | 
RET | 
| B57B | 
PUSH IY | 
| B57D | 
LD IX,($B180) | 
| B581 | 
LD A,($A01D) | 
| B584 | 
AND $01 | 
| B586 | 
LD ($A038),A | 
| B589 | 
LD A,($A010) | 
| B58C | 
CP $05 | 
| B58E | 
LD IY,$D39B | 
| B592 | 
JR C,$B598 | 
| B594 | 
LD IY,$D36A | 
| B598 | 
CALL $B5A4 | 
| B59B | 
CP $FF | 
| B59D | 
LD ($B180),IX | 
| B5A1 | 
POP IY | 
| B5A3 | 
RET | 
| B5A4 | 
LD HL,$B178 | 
| B5A7 | 
CALL $B4A0 | 
| B5AA | 
CP $FF | 
| B5AC | 
RET Z | 
| B5AD | 
LD ($A035),A | 
| B5B0 | 
LD HL,$B16E | 
| B5B3 | 
SET 1,(HL) | 
| B5B5 | 
RET | 
| B5B6 | 
LD ($A01B),A | 
| B5B9 | 
LD IX,($9FF2) | 
| B5BD | 
LD ($9FF0),IX | 
| B5C1 | 
LD L,(IX-$02) | 
| B5C4 | 
LD H,(IX-$01) | 
| B5C7 | 
LD ($9FF2),HL | 
| B5CA | 
LD (IX-$02),$00 | 
| B5CE | 
LD (IX-$01),$00 | 
| B5D2 | 
RET | 
| B5D3 | 
LD A,($B16E) | 
| B5D6 | 
BIT 0,A | 
| B5D8 | 
JR Z,$B610 | 
| B5DA | 
LD A,($B183) | 
| B5DD | 
LD HL,$B178 | 
| B5E0 | 
JR $B5EF | 
| B5E2 | 
LD A,($B16D) | 
| B5E5 | 
BIT 0,A | 
| B5E7 | 
JR Z,$B5FC | 
| B5E9 | 
LD A,($B182) | 
| B5EC | 
LD HL,$B172 | 
| B5EF | 
CALL $B83C | 
| B5F2 | 
CALL $B5B6 | 
| B5F5 | 
LD HL,$6888 | 
| B5F8 | 
CALL $A59F | 
| B5FB | 
RET | 
| B5FC | 
CALL $B633 | 
| B5FF | 
LD HL,($B186) | 
| B602 | 
PUSH HL | 
| B603 | 
LD A,($B182) | 
| B606 | 
CALL $B5B6 | 
| B609 | 
LD HL,$6880 | 
| B60C | 
CALL $A59F | 
| B60F | 
RET | 
| B610 | 
CALL $B62F | 
| B613 | 
LD HL,$0000 | 
| B616 | 
PUSH HL | 
| B617 | 
LD HL,$B172 | 
| B61A | 
PUSH HL | 
| B61B | 
CALL $B633 | 
| B61E | 
LD HL,($B186) | 
| B621 | 
PUSH HL | 
| B622 | 
LD A,($B183) | 
| B625 | 
CALL $B5B6 | 
| B628 | 
LD HL,$687C | 
| B62B | 
CALL $A59F | 
| B62E | 
RET | 
| B62F | 
LD A,$28 | 
| B631 | 
JR $B635 | 
| B633 | 
LD A,$20 | 
| B635 | 
LD ($B649),A | 
| B638 | 
LD ($B658),A | 
| B63B | 
LD IX,($B18E) | 
| B63F | 
LD L,(IX+$04) | 
| B642 | 
LD H,(IX+$05) | 
| B645 | 
BIT 7,(IX+$07) | 
| B649 | 
JR NZ,$B64E | 
| B64B | 
LD HL,$0000 | 
| B64E | 
EX (SP),HL | 
| B64F | 
PUSH HL | 
| B650 | 
LD L,(IX+$02) | 
| B653 | 
LD H,(IX+$03) | 
| B656 | 
BIT 5,H | 
| B658 | 
JR NZ,$B65D | 
| B65A | 
LD HL,$0000 | 
| B65D | 
EX (SP),HL | 
| B65E | 
JP (HL) | 
| B65F | 
LD A,($A00F) | 
| B662 | 
CP $05 | 
| B664 | 
JR Z,$B671 | 
| B666 | 
CP $06 | 
| B668 | 
JR Z,$B671 | 
| B66A | 
LD A,($B173) | 
| B66D | 
BIT 7,A | 
| B66F | 
JR Z,$B678 | 
| B671 | 
LD HL,$6855 | 
| B674 | 
CALL $A59F | 
| B677 | 
RET | 
| B678 | 
LD HL,$B16D | 
| B67B | 
BIT 0,(HL) | 
| B67D | 
LD HL,$B172 | 
| B680 | 
CALL NZ,$B6DA | 
| B683 | 
CALL $B633 | 
| B686 | 
LD A,($B16D) | 
| B689 | 
LD HL,$B172 | 
| B68C | 
LD DE,($B186) | 
| B690 | 
PUSH DE | 
| B691 | 
BIT 0,A | 
| B693 | 
JR Z,$B69D | 
| B695 | 
CALL $B83C | 
| B698 | 
LD HL,$05B3 | 
| B69B | 
JR $B6A6 | 
| B69D | 
LD HL,$0000 | 
| B6A0 | 
PUSH HL | 
| B6A1 | 
PUSH HL | 
| B6A2 | 
PUSH HL | 
| B6A3 | 
LD HL,$05DB | 
| B6A6 | 
PUSH HL | 
| B6A7 | 
LD HL,$6894 | 
| B6AA | 
CALL $A59F | 
| B6AD | 
RET | 
| B6AE | 
LD A,($A010) | 
| B6B1 | 
CP $05 | 
| B6B3 | 
JR Z,$B671 | 
| B6B5 | 
CP $06 | 
| B6B7 | 
JR Z,$B671 | 
| B6B9 | 
LD A,($B179) | 
| B6BC | 
BIT 7,A | 
| B6BE | 
JR NZ,$B671 | 
| B6C0 | 
LD HL,$B16E | 
| B6C3 | 
BIT 0,(HL) | 
| B6C5 | 
LD HL,$B178 | 
| B6C8 | 
CALL NZ,$B6F0 | 
| B6CB | 
CALL $B62F | 
| B6CE | 
LD A,($B16E) | 
| B6D1 | 
LD HL,$B178 | 
| B6D4 | 
JR $B68C |