32768: Routine at 8000
32768 |
LD HL,63871 |
32771 |
LD B,0 |
32773 |
LD D,0 |
32775 |
LD C,0 |
32777 |
LD E,D |
32778 |
RRC E |
32780 |
RRC E |
32782 |
RRC E |
32784 |
LD (HL),E |
32785 |
DEC HL |
32786 |
LD A,B |
32787 |
RLCA |
32788 |
RLCA |
32789 |
RLCA |
32790 |
OR C |
32791 |
ADD A,223 |
32793 |
LD (HL),A |
32794 |
DEC HL |
32795 |
INC C |
32796 |
LD A,C |
32797 |
CP 8 |
32799 |
JR NZ,32777 |
32801 |
INC D |
32802 |
LD A,D |
32803 |
CP 8 |
32805 |
JR NZ,32775 |
32807 |
INC B |
32808 |
LD A,B |
32809 |
CP 3 |
32811 |
JR NZ,32773 |
32813 |
LD D,32 |
32815 |
LD HL,64000 |
32818 |
LD B,0 |
32820 |
LD A,128 |
32822 |
LD C,8 |
32824 |
LD (HL),B |
32825 |
INC HL |
32826 |
LD (HL),A |
32827 |
INC HL |
32828 |
RRCA |
32829 |
DEC C |
32830 |
JR NZ,32824 |
32832 |
INC B |
32833 |
DEC D |
32834 |
JR NZ,32822 |
32836 |
LD D,32 |
32838 |
LD HL,64512 |
32841 |
LD B,0 |
32843 |
LD A,128 |
32845 |
LD C,8 |
32847 |
LD (HL),A |
32848 |
INC HL |
32849 |
LD (HL),B |
32850 |
INC HL |
32851 |
RRCA |
32852 |
DEC C |
32853 |
JR NZ,32847 |
32855 |
INC B |
32856 |
DEC D |
32857 |
JR NZ,32845 |
32859 |
RET |