8000: Routine at 8000
| 8000 |
LD HL,$F97F |
| 8003 |
LD B,$00 |
| 8005 |
LD D,$00 |
| 8007 |
LD C,$00 |
| 8009 |
LD E,D |
| 800A |
RRC E |
| 800C |
RRC E |
| 800E |
RRC E |
| 8010 |
LD (HL),E |
| 8011 |
DEC HL |
| 8012 |
LD A,B |
| 8013 |
RLCA |
| 8014 |
RLCA |
| 8015 |
RLCA |
| 8016 |
OR C |
| 8017 |
ADD A,$DF |
| 8019 |
LD (HL),A |
| 801A |
DEC HL |
| 801B |
INC C |
| 801C |
LD A,C |
| 801D |
CP $08 |
| 801F |
JR NZ,$8009 |
| 8021 |
INC D |
| 8022 |
LD A,D |
| 8023 |
CP $08 |
| 8025 |
JR NZ,$8007 |
| 8027 |
INC B |
| 8028 |
LD A,B |
| 8029 |
CP $03 |
| 802B |
JR NZ,$8005 |
| 802D |
LD D,$20 |
| 802F |
LD HL,$FA00 |
| 8032 |
LD B,$00 |
| 8034 |
LD A,$80 |
| 8036 |
LD C,$08 |
| 8038 |
LD (HL),B |
| 8039 |
INC HL |
| 803A |
LD (HL),A |
| 803B |
INC HL |
| 803C |
RRCA |
| 803D |
DEC C |
| 803E |
JR NZ,$8038 |
| 8040 |
INC B |
| 8041 |
DEC D |
| 8042 |
JR NZ,$8036 |
| 8044 |
LD D,$20 |
| 8046 |
LD HL,$FC00 |
| 8049 |
LD B,$00 |
| 804B |
LD A,$80 |
| 804D |
LD C,$08 |
| 804F |
LD (HL),A |
| 8050 |
INC HL |
| 8051 |
LD (HL),B |
| 8052 |
INC HL |
| 8053 |
RRCA |
| 8054 |
DEC C |
| 8055 |
JR NZ,$804F |
| 8057 |
INC B |
| 8058 |
DEC D |
| 8059 |
JR NZ,$804D |
| 805B |
RET |
