869B: Routine at 869B
| 869B |
DEFB $00 |
| 869C |
DEFW $0000 |
| 869E |
DEFB $00 |
| 869F |
DEFB $00 |
| 86A0 |
DEFB $00 |
| 86A1 |
PUSH HL |
| 86A2 |
PUSH BC |
| 86A3 |
PUSH AF |
| 86A4 |
LD HL,($869C) |
| 86A7 |
LD A,($869E) |
| 86AA |
LD C,A |
| 86AB |
LD A,($86A0) |
| 86AE |
AND A |
| 86AF |
JR NZ,$86C6 |
| 86B1 |
LD A,($869F) |
| 86B4 |
AND A |
| 86B5 |
JR Z,$86C6 |
| 86B7 |
LD B,A |
| 86B8 |
LD A,$20 |
| 86BA |
CALL PrintPropChar |
| 86BD |
LD A,($869B) |
| 86C0 |
DEC A |
| 86C1 |
LD ($869B),A |
| 86C4 |
DJNZ $86B8 |
| 86C6 |
POP AF |
| 86C7 |
PUSH AF |
| 86C8 |
CP $0D |
| 86CA |
JR NZ,$870D |
| 86CC |
LD A,$01 |
| 86CE |
LD ($B704),A |
| 86D1 |
XOR A |
| 86D2 |
LD ($86A0),A |
| 86D5 |
CALL $8B22 |
| 86D8 |
PUSH BC |
| 86D9 |
LD A,($B716) |
| 86DC |
AND A |
| 86DD |
JR NZ,$86F3 |
| 86DF |
LD BC,$8000 |
| 86E2 |
XOR A |
| 86E3 |
IN A,($FE) |
| 86E5 |
AND $1F |
| 86E7 |
CP $1F |
| 86E9 |
JR NZ,$86F7 |
| 86EB |
DEC BC |
| 86EC |
LD A,B |
| 86ED |
OR C |
| 86EE |
JR NZ,$86E2 |
| 86F0 |
POP BC |
| 86F1 |
JR $8701 |
| 86F3 |
DEC A |
| 86F4 |
LD ($B716),A |
| 86F7 |
POP BC |
| 86F8 |
XOR A |
| 86F9 |
IN A,($FE) |
| 86FB |
AND $1F |
| 86FD |
CP $1F |
| 86FF |
JR NZ,$86F8 |
| 8701 |
LD HL,$5020 |
| 8704 |
LD C,$01 |
| 8706 |
CALL ScrollLine |
| 8709 |
LD A,$2A |
| 870B |
JR $8753 |
| 870D |
CP $08 |
| 870F |
JR NZ,$8722 |
| 8711 |
CALL $8761 |
| 8714 |
LD A,$20 |
| 8716 |
CALL PrintPropChar |
| 8719 |
CALL $8761 |
| 871C |
LD A,($869B) |
| 871F |
INC A |
| 8720 |
JR $8753 |
| 8722 |
CP $41 |
| 8724 |
JR C,$872C |
| 8726 |
CP $5B |
| 8728 |
JR NC,$872C |
| 872A |
OR $20 |
| 872C |
PUSH HL |
| 872D |
LD HL,$B704 |
| 8730 |
INC (HL) |
| 8731 |
DEC (HL) |
| 8732 |
JR Z,$8740 |
| 8734 |
CP $61 |
| 8736 |
JR C,$8740 |
| 8738 |
CP $7B |
| 873A |
JR NC,$8740 |
| 873C |
RES 5,A |
| 873E |
LD (HL),$00 |
| 8740 |
CP $2E |
| 8742 |
JR NZ,$8745 |
| 8744 |
INC (HL) |
| 8745 |
POP HL |
| 8746 |
CALL PrintPropChar |
| 8749 |
LD ($86A0),A |
| 874C |
LD A,($869B) |
| 874F |
DEC A |
| 8750 |
JP Z,$86D1 |
| 8753 |
LD ($869B),A |
| 8756 |
LD ($869C),HL |
| 8759 |
LD A,C |
| 875A |
LD ($869E),A |
| 875D |
POP AF |
| 875E |
POP BC |
| 875F |
POP HL |
| 8760 |
RET |
| 8761 |
LD A,C |
| 8762 |
SUB $06 |
| 8764 |
LD C,A |
| 8765 |
RET NC |
| 8766 |
ADD A,$08 |
| 8768 |
LD C,A |
| 8769 |
DEC L |
| 876A |
RET |
