Sharp MZ-80B - Page 68

63
07F3 7E GLOP1:
LD
A,
<HL>
07F4
B7 OR
A
07F5 CC0608 CALL z
,SP ACE
07F8 77 LD <HL>
,A
07F9 23 INC HL
07FA 10F7 DJNZ GLOP I
07FC
3600
GLOP2:
LD <HL>
,ODH
07FE
2B DEC
HL
07FF 7E LD
A,
<HL>
0800 FE20 CP 20H
0802
28F8 JR
z
,GLOP2
0804
18A2 JR GETLR
0806 3E20
SPACE:
LD
A,20H
0808 C9 RET
0809
FE1B
FTAB:
CP 1BH
080B 282C JR z
,TAB
0800 FE1A CP 1AH
080F
284E JR z
,FOO
0811 E60F AND
~H
;00-09 F1-F10
0813 3C INC
A
0814 47
LD
B,A
0815 218011 LD HL.FARE
•
1180-121F
0818
54 LD
D,H
0819
50
LD E.L
081A 70 LD
A.L
0818 FE20 CP 20H
FARE
END
0810
2810
JR z
,+18
081F
7E LD
A. <HL>
0820
~7
~~ INC HL
0821 FEOD CP
ODH
0823 20F5
JR NZ
,-9
0825 10F1 DJNZ
-13
0827 1A
MRUN:
LD A.
<DE)
0828 FE7F
CP 7FH
;?CR
082A
CAB007 JP z
.GTCR
0820 FEOD
CP ODH
082F
CA7307 JP z
.KFINO
0832 4F
LD C.A
0833 CDEE08
CALL
?PRT
0836
17
~
INC DE
0837 18EE JR
MRUN
0839 3E03
TAB:
LD
A.03H
0838 CD6EOA CALL
?DPCT
083E
3A5111
LD
A. <DSPXY>
0841 B7
OR A
0842 CA8007
JP z
.GTCR
0845 214011
LD
HL,TABDAT
;TAB DATA
ARER
0848
~7
k~
TAB1: INC HL
0849 3E27
LD
A,39
0848
BE
CP <HL>
084C
DAB007
JP C.GTCR
084F
3A5111
TAB2:
LD
A,
<D SPXY>
0852
96
SUB
<HL>
0853 CA7307
JP
z .KFINO
0856 30FO
JR
NC,TAB1
0858
3E03
LD
A,03H
0~5A CD6EOA
CALL ?DPCT
085D
18FO
JR
TAB2
085F
112300
FOO:
LD DE.FOARE
0862
CDCD08
CALL MSGX