Sharp MZ-80B - Page 57

52
03BA E1
POP HL
03BB
37
SCF
03BC
CB15
RBY2:
RL
L
03BE
. -.c:-
..::. . _I
DEC
H
03BF 20E3
JR
NZ,RBYl
03C1
CD4604
CALL
ED13E
03C4
7[1
LD
A,L
03C5 E1
RBY3:
POP HL
03C6 C'=i
RET
03C7
03C7
03C7
03C7
C5
GAP:
PUSH BC
03C8
Ec. -
·-·
PU:::H
HL
03C'i 01F:::2A LD
BC,2AF8H
03CC 211414 LD
HL, 1414H
03CF CB4A
BIT 1
,[I
03[11
2004
.JR
NZ ,13APl
WD
03D3 011027 LD
BC,2710H 55FOH 0:::>
03[16
2'1
ADD
HL,HL
03[17
CD1D05
GAP 1:
CALL
:::HORT
03DA OB DEC BC
03DB
7·-·
·=·
LD
A,B
03DC
B1
OR
r·
03[1[1
20F:::
,JR
NZ ,13AP1
03DF
CD3'i05
13AP2:
CALL LONG
o:5E2 " 25 DEC H
0:3E3
20FA
.JR NZ ,13AP2
03E5
CD1D05
GAP3:
CALL
:::HORT
03E8
2[1
DEC L
03E'i
20FA
.JR
NZ ,13AF'3
03EB
CD3'i0!5
CALL LONG
03EE E1
RETHB1:
POP HL
03EF C1 POP BC
03FO C9 RET
03F1
03F1
03F1
03F1
E5
TMARK:
PUSH HL
03F2 2E14
LD
L. , 14H
03F4 CB5A
BIT
3,[1
03Ft.
2002
JR
NZ,TM1
03F::::
CB05
RLC
L
03FA 65
TM1:
LD
H,L
03FB CD4604 TM2:
CALL EDGE
03FE
3::::21
JF:
C,TMLJ
0400 CD5405
CALL DLYR
0403 DBE1
IN
A,
<E1Hl
0405 E640
AND
40H
0407
2::::F1
.JR
z
,TM1
0409
25
DEC
H
040A
20EF
,JR
NZ
,TM2
040C
(:.5
LD
H,L
040[1
CD4604
TM3:
CALL
ED13E
0410
3::::oF
.JR C,TM4
0412
(:[15405
CALL DLYF:
0415 DBEl
IN
A'
<ElH)
0417
E640
AND 40H
0419 20DF
.JR
NLTM1
041B
25
DEC
H