Prev: A6FE Up: Map Next: A8EC
A80C: Routine at A80C
Used by the routine at A6FE.
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
Prev: A6FE Up: Map Next: A8EC