A786: Routine at A786
| A786 |
PUSH IX |
| A788 |
AND $7F |
| A78A |
LD E,A |
| A78B |
ADD A,A |
| A78C |
ADD A,E |
| A78D |
ADD A,A |
| A78E |
SUB $06 |
| A790 |
LD E,A |
| A791 |
LD D,$00 |
| A793 |
LD HL,(Word_TableLen06) |
| A796 |
ADD HL,DE |
| A797 |
LD DE,$5B01 |
| A79A |
LD BC,$0006 |
| A79D |
LDIR |
| A79F |
LD A,$7D |
| A7A1 |
LD (DE),A |
| A7A2 |
LD A,$06 |
| A7A4 |
LD ($A770),A |
| A7A7 |
LD HL,($C78C) |
| A7AA |
LD DE,$0067 |
| A7AD |
ADD HL,DE |
| A7AE |
PUSH HL |
| A7AF |
LD B,$06 |
| A7B1 |
LD DE,$0006 |
| A7B4 |
RRD |
| A7B6 |
ADD HL,DE |
| A7B7 |
DJNZ $A7B4 |
| A7B9 |
POP DE |
| A7BA |
LD IX,$5B01 |
| A7BE |
LD B,$07 |
| A7C0 |
JP String_DrawToSign_4 |
| A7C3 |
ADD HL,DE |
| A7C4 |
LD DE,$3C00 |
| A7C7 |
CP $60 |
| A7C9 |
JR C,$A7CE |
| A7CB |
LD DE,$FC00 |
| A7CE |
PUSH HL |
| A7CF |
LD L,A |
| A7D0 |
LD H,$00 |
| A7D2 |
ADD HL,HL |
| A7D3 |
ADD HL,HL |
| A7D4 |
ADD HL,HL |
| A7D5 |
ADD HL,DE |
| A7D6 |
EX DE,HL |
| A7D7 |
POP HL |
| A7D8 |
DEC BC |
| A7D9 |
LD A,$08 |
| A7DB |
EX AF,AF' |
| A7DC |
LD A,(DE) |
| A7DD |
RRD |
| A7DF |
RRA |
| A7E0 |
RRA |
| A7E1 |
RRA |
| A7E2 |
RRA |
| A7E3 |
RLD |
| A7E5 |
INC HL |
| A7E6 |
RLD |
| A7E8 |
LD A,(HL) |
| A7E9 |
RRD |
| A7EB |
ADD HL,BC |
| A7EC |
INC DE |
| A7ED |
EX AF,AF' |
| A7EE |
DEC A |
| A7EF |
JR NZ,$A7DB |
| A7F1 |
RET |