B288: Routine at B288
| B288 |
CALL Character_Active |
| B28B |
JR Z,$B29E |
| B28D |
LD A,($B951) |
| B290 |
CP (IY+$0F) |
| B293 |
JR Z,$B29E |
| B295 |
LD A,(IY+$5F) |
| B298 |
XOR $01 |
| B29A |
LD (IY+$5F),A |
| B29D |
RET Z |
| B29E |
LD A,(IY+$00) |
| B2A1 |
INC A |
| B2A2 |
CP $06 |
| B2A4 |
JR C,$B2A7 |
| B2A6 |
XOR A |
| B2A7 |
LD (IY+$00),A |
| B2AA |
LD A,(IY+$3C) |
| B2AD |
CP $01 |
| B2AF |
JR NZ,$B2C6 |
| B2B1 |
LD A,(IY-$3C) |
| B2B4 |
OR A |
| B2B5 |
CALL Z,$81D4 |
| B2B8 |
LD A,(IY+$05) |
| B2BB |
ADD A,$02 |
| B2BD |
CP $F0 |
| B2BF |
JR C,$B2D5 |
| B2C1 |
LD A,$F0 |
| B2C3 |
JP $B2D5 |
| B2C6 |
LD A,(IY-$3C) |
| B2C9 |
OR A |
| B2CA |
CALL NZ,$81D4 |
| B2CD |
LD A,(IY+$05) |
| B2D0 |
SUB $02 |
| B2D2 |
JR NC,$B2D5 |
| B2D4 |
XOR A |
| B2D5 |
LD (IY+$05),A |
| B2D8 |
JP $E2FC |
