Sharp MZ-80B - Page 56

51
()35:::
(>35:::
(>35:::
<)35:::
1E02
TVRFY:
LD
E,2
035A C5
PU~::;H
BC
0358
E5
PU~::;H
HL
o:35c
CD4604
TVF1:
CALL EDGE
035F
3::: · :tE
.JR C ,F~ETHB
03~.1 CD5405
CALL DLYR
03~;.4
DBE1
IN
A,
<E1 H>
..
03~.~.
E640 AND 40H
03~.:::: 2:::F2
.]F\
z
,TVFl
036A CDA003
TVF2:
CALL R8YTE
036[1
3890
,JR
C,HETHB
036F BE
CP <HU
0370
20DB
.JR
NZ
, TAPER
0372 23
INC HL
0373 OB
DEC BC
0374
7•':J
·-·
LD
A,8
0375
Bl
OR
c
0376 20F2
.JR NZ,TVF2
037:::
2A3300
LD
HL,
<CSMDT)
0378 CDA003
CALL R8YTE
037E BC
CP H
:":..·
... _,
037F 20CC
.JR
NZ
,TAPER
.i;·
.
(>3::::1
CDA003
CAL.L F:BYTE
o:3:::4
BD
CP
L
t)3:::5
20C6
.JF~
NZ,TAPER
03::::7
lD
DEC .
E
(>3:::::::
CAFF02
,Jp
Z,RETHB
03::::8
El
POP
HL
o3:::c
C1
POP BC
03:::[1
1SC8
.JR TVRFY+2
03SF
03f::F
03f:F
03::::F C:5
WBYTE:
PU~::;H
BC
03'i0
o6o:::: LD
B, ::;:
03'12 CD3'105
CALL
LONG
03'15 07
WBYl: F:LCA
0396 DC3'105
CALL
C::, LCJNt3
03·:t·:t
[141[105
CALL
NC , ~::;HOF\T
03'1C
10F7
[I.JNZ
WBYl
039E
C1
POP BC
03':tF
C'1
RET
03AO
03AO
03AO
03AO
Eo::-
·-'
RBYTE:
PU~::;H
HL
03A1
21
0(H):;::
LD
HL , o:::OOH
03A4
CD4604
RBY1: CALL
EDt3E
03A7 381C
.JR
C,RBY3
03A·:t
CD5405
CALL
DLYR
03AC DBEl
IN
A
,
<E 1 H>
03AE
E640
AND
40H
0380 280A
.JR z
,F~BY2
0382 E5
PU~::;H
HL
0383
2A2800
LD
HL,
(
~:;UMDT)
0386 23
INC
HL
0387
222800
LD
<SUMDT>
,HL