A80C: Routine at A80C
A80C |
PUSH BC |
A80D |
PUSH AF |
A80E |
PUSH HL |
A80F |
LD B,$0A |
A811 |
LD DE,$97B9 |
A814 |
CALL $AA0C |
A817 |
DEC A |
A818 |
JR Z,$A828 |
A81A |
LD C,$10 |
A81C |
INC DE |
A81D |
DEC C |
A81E |
JR NZ,$A81C |
A820 |
DJNZ $A814 |
A822 |
POP HL |
A823 |
POP AF |
A824 |
POP BC |
A825 |
LD D,$01 |
A827 |
RET |
A828 |
LD IXh,B |
A82A |
LD HL,$983F |
A82D |
DEC B |
A82E |
JR Z,$A844 |
A830 |
LD HL,$0000 |
A833 |
LD DE,$0010 |
A836 |
ADD HL,DE |
A837 |
DJNZ $A836 |
A839 |
PUSH HL |
A83A |
POP BC |
A83B |
LD DE,$984E |
A83E |
LD HL,$983E |
A841 |
LDDR |
A843 |
INC HL |
A844 |
LD B,$0A |
A846 |
LD (HL),$00 |
A848 |
INC HL |
A849 |
DJNZ $A846 |
A84B |
LD BC,$0006 |
A84E |
PUSH HL |
A84F |
POP DE |
A850 |
POP HL |
A851 |
PUSH HL |
A852 |
PUSH DE |
A853 |
LDIR |
A855 |
LD C,$0B |
A857 |
LD H,$17 |
A859 |
LD DE,$AD67 |
A85C |
LD L,$00 |
A85E |
LD B,$0F |
A860 |
LD A,(DE) |
A861 |
INC DE |
A862 |
CALL $9C40 |
A865 |
INC L |
A866 |
DJNZ $A860 |
A868 |
DEC H |
A869 |
DEC H |
A86A |
DEC C |
A86B |
JR NZ,$A85C |
A86D |
CALL $ABAD |
A870 |
LD HL,$5800 |
A873 |
LD A,$03 |
A875 |
LD B,$0F |
A877 |
LD C,$04 |
A879 |
CALL $AA37 |
A87C |
INC A |
A87D |
LD C,$09 |
A87F |
CALL $AA37 |
A882 |
LD A,$02 |
A884 |
CALL $AA37 |
A887 |
CALL $A960 |
A88A |
LD A,$07 |
A88C |
CALL $9CEB |
A88F |
CALL $A960 |
A892 |
POP HL |
A893 |
LD BC,$000A |
A896 |
AND A |
A897 |
SBC HL,BC |
A899 |
EX DE,HL |
A89A |
LD A,IXh |
A89C |
SLA A |
A89E |
INC A |
A89F |
LD H,A |
A8A0 |
IM 1 |
A8A2 |
LD L,$10 |
A8A4 |
LD A,$B7 |
A8A6 |
CALL $9C40 |
A8A9 |
LD A,($5C04) |
A8AC |
XOR $FF |
A8AE |
JR NZ,$A8A9 |
A8B0 |
HALT |
A8B1 |
LD A,($5C04) |
A8B4 |
XOR $FF |
A8B6 |
JR Z,$A8B0 |
A8B8 |
LD A,($5C08) |
A8BB |
CP $0D |
A8BD |
JR Z,$A8E4 |
A8BF |
CP $0C |
A8C1 |
JR NZ,$A8D1 |
A8C3 |
LD A,L |
A8C4 |
CP $10 |
A8C6 |
JR Z,$A8B0 |
A8C8 |
XOR A |
A8C9 |
DEC DE |
A8CA |
LD (DE),A |
A8CB |
CALL $9C40 |
A8CE |
DEC L |
A8CF |
JR $A8A4 |
A8D1 |
CP $20 |
A8D3 |
JR C,$A8B0 |
A8D5 |
LD B,A |
A8D6 |
LD A,L |
A8D7 |
CP $19 |
A8D9 |
JR Z,$A8B0 |
A8DB |
LD A,B |
A8DC |
LD (DE),A |
A8DD |
CALL $9C40 |
A8E0 |
INC L |
A8E1 |
INC DE |
A8E2 |
JR $A8A4 |
A8E4 |
POP HL |
A8E5 |
POP AF |
A8E6 |
POP BC |
A8E7 |
LD D,$02 |
A8E9 |
IM 2 |
A8EB |
RET |