Sharp MZ-80B - Page 71

66
0912
D6AO
::;U8
160
0'714
18ED
.JR
PRT2+1
0'71/:..
0916
PRNT: ENT
0'716 FEOD
CP
ODH
091:::
2:::9e.
,
JF:
z
,LETNL
091A C5
PU ::;H
8C
0'71 8
4F
LD
C,A
0'
71 C CDEE08
CALL
' ?PRT
091F
7'7
LD
A,C
0'7'20
C1
POP 8C
0921 C9
RET
0'722
t)•=J22
:: ; CROL
DATA IN
0922
< SCROST) = :: ;TART LINE
0'7'22
<
::;CREND) ==END LINE
0922
INITIAL: 1
'
24
0'722
::::t::: :RSET:
ENT
0922 F5
PUSH
AF
0923 C5
PUSH 8C
0'7'24 D5
PUSH DE
0'725
E5
Pu:::;H
HL
0' =126
" 3A0800
LD
A,
<SCR0:3T)
0'72'7 47
LD
8,A
0'7'2A 4F
LD
C,A
0'728 21D8CF LD
HL , :: ;CRN-40
092E 112800
LD
DE,0028H
0931 19
ADD
HL,DE
0'7'32
lOFD
[I,JNZ
-1
0934 221300 LD
(:;: ;eRST)
,HL
0937
0'7'37 3AOCOO LD
A,
(:;: ; CREND>
O'i3A
3C
INC:
A
0938
91
SI..J8 c
<Y:13C 47
LD
8,A
0'7'3[1
210000
LD
HL,OOOOH
0'7'40 l'i ADD
HL,DE
0'7'41 10FD
D.JNZ
-1
0'7'43
221800
LD
< :: ; CRS I Z) ,HL
0946
3E06 LD
A,06H
0'7'48 CD6EOA
CALL ? DPCT
0948
El POP
HL
0'7'4C
Dl
POP
DE
0'i4D
C1
POP BC
094E Fl
POP AF
094F
C9
RET
0'750
0950
0950
..
,
0950
KEY:
ENT
O''l50
D8E8
KSWEP:
IN
A,
<ESH)
0'7'52
E6FO
AND FOH
0"7'54
F/:..18
OR 18H
095e.
57
LD
D,A
;
D=::;TROB
0957
D3E8
CJUT
<E : :: : H)
,A
o·:;s·:;
AF
XOR A
0'7'5A 322600
LD <KDATW>
,A
095[1
322700
LD
<KDATW1)
,A
0960
D8EA
IN
A,
<EAH>
0'=)(:.2
2F
CF'L