B587: Routine at B587
| B587 |
LD HL,$00C0 |
| B58A |
LD ($FE62),HL |
| B58D |
LD HL,$0001 |
| B590 |
LD ($FE76),HL |
| B593 |
CALL $B55D |
| B596 |
LD A,$FD |
| B598 |
IN A,($FE) |
| B59A |
AND $02 |
| B59C |
JP Z,$B0BC |
| B59F |
LD A,($FE6E) |
| B5A2 |
AND $80 |
| B5A4 |
JP NZ,$B587 |
| B5A7 |
LD A,($FE5F) |
| B5AA |
AND A |
| B5AB |
JP P,$B587 |
| B5AE |
LD HL,$F000 |
| B5B1 |
LD ($FE5E),HL |
| B5B4 |
LD HL,$2800 |
| B5B7 |
LD ($FE60),HL |
| B5BA |
LD A,$40 |
| B5BC |
LD ($FE66),A |
| B5BF |
LD ($FE6A),A |
| B5C2 |
LD HL,$0040 |
| B5C5 |
LD ($FE62),HL |
| B5C8 |
LD HL,$0003 |
| B5CB |
LD ($FE76),HL |
| B5CE |
CALL $B55D |
| B5D1 |
LD A,$FD |
| B5D3 |
IN A,($FE) |
| B5D5 |
AND $02 |
| B5D7 |
JP Z,$B0BC |
| B5DA |
LD A,($FE6E) |
| B5DD |
AND $40 |
| B5DF |
JP NZ,$B5C2 |
| B5E2 |
LD A,($FE5F) |
| B5E5 |
AND A |
| B5E6 |
JP M,$B5C2 |
| B5E9 |
LD A,$FF |
| B5EB |
LD ($FE94),A |
| B5EE |
LD HL,$FF9C |
| B5F1 |
LD ($FE96),HL |
| B5F4 |
LD A,$A0 |
| B5F6 |
LD ($FE6A),A |
| B5F9 |
LD HL,$A800 |
| B5FC |
LD ($FE60),HL |
| B5FF |
LD HL,$1000 |
| B602 |
LD ($FE8E),HL |
| B605 |
LD HL,$0000 |
| B608 |
LD ($FE62),HL |
| B60B |
LD HL,$0005 |
| B60E |
LD ($FE76),HL |
| B611 |
CALL $B55D |
| B614 |
LD A,$FD |
| B616 |
IN A,($FE) |
| B618 |
AND $02 |
| B61A |
JP Z,$B0BC |
| B61D |
LD A,($FE6E) |
| B620 |
AND $20 |
| B622 |
JP NZ,$B605 |
| B625 |
LD A,($FE8F) |
| B628 |
AND A |
| B629 |
JP P,$B605 |
| B62C |
LD A,$03 |
| B62E |
LD ($FE78),A |
| B631 |
LD HL,$7530 |
| B634 |
LD ($FE70),HL |
| B637 |
LD HL,$0002 |
| B63A |
LD ($FE76),HL |
| B63D |
CALL $B55D |
| B640 |
LD A,$FD |
| B642 |
IN A,($FE) |
| B644 |
AND $02 |
| B646 |
JP Z,$B0BC |
| B649 |
LD A,($FE81) |
| B64C |
CP $04 |
| B64E |
JP P,$B637 |
| B651 |
LD HL,$4000 |
| B654 |
LD DE,$4001 |
| B657 |
LD BC,$1800 |
| B65A |
LD (HL),$00 |
| B65C |
LDIR |
| B65E |
LD BC,$02FF |
| B661 |
LDIR |
| B663 |
LD HL,$3C00 |
| B666 |
LD ($5C36),HL |
| B669 |
JP $B676 |
