28669: Routine at 6FFD
| 28669 |
LD A,(23330) |
| 28672 |
OR A |
| 28673 |
RET NZ |
| 28674 |
LD A,(23331) |
| 28677 |
OR A |
| 28678 |
JR Z,28792 |
| 28680 |
CP 3 |
| 28682 |
JR Z,28792 |
| 28684 |
LD A,(23347) |
| 28687 |
OR A |
| 28688 |
JR Z,28721 |
| 28690 |
LD HL,(23345) |
| 28693 |
LD DE,(23332) |
| 28697 |
CALL 28820 |
| 28700 |
JR NZ,28721 |
| 28702 |
CALL 28829 |
| 28705 |
LD A,3 |
| 28707 |
LD (23331),A |
| 28710 |
XOR A |
| 28711 |
LD (23347),A |
| 28714 |
LD A,75 |
| 28716 |
CALL 28515 |
| 28719 |
JR 28758 |
| 28721 |
LD A,(23297) |
| 28724 |
OR A |
| 28725 |
JR Z,28758 |
| 28727 |
LD HL,(23298) |
| 28730 |
LD DE,(23332) |
| 28734 |
CALL 28820 |
| 28737 |
JR NZ,28758 |
| 28739 |
CALL 28829 |
| 28742 |
LD A,3 |
| 28744 |
LD (23331),A |
| 28747 |
XOR A |
| 28748 |
LD (23297),A |
| 28751 |
LD A,75 |
| 28753 |
CALL 28515 |
| 28756 |
JR 28792 |
| 28758 |
LD HL,(23332) |
| 28761 |
LD DE,(23328) |
| 28765 |
LD A,D |
| 28766 |
CP H |
| 28767 |
JR NZ,28792 |
| 28769 |
LD A,E |
| 28770 |
INC A |
| 28771 |
SUB L |
| 28772 |
JR C,28792 |
| 28774 |
CP 3 |
| 28776 |
JR NC,28792 |
| 28778 |
CALL 28112 |
| 28781 |
LD A,3 |
| 28783 |
LD (23331),A |
| 28786 |
LD A,1 |
| 28788 |
LD (23330),A |
| 28791 |
RET |
