Sharp MZ-700 - Page 184

-...J
CO
**
ZBO ASSEMBLER SB-7201 < 1Z-013A >
PAGE 27
01 0748 ;
02 0748 ;
03 0748
DEFS +17
04 0759 ;
05 0759 ;ORG 0759H;DLY1
06 0759 ;
07 0759 ; 107 MICRO SEC DELY
OB 0759 ;
09 0759
DLYl:
ENT
10 0759 3E15 LD A, 15H
11
0758 3D DEC A
12 075C C25B07 JP
NZ,-1
13 075F C9 RET
14 0760
;
15 0760
;DRG 0760H;DLY2
16 0760
;
17 0760
DLY2: ENT
18 0760 3E13 LD A, 13H
19 0762 3D DEC A
20 0763 C26207
,TP
NZ,-1
21 0766 C9 RET
22 0767
;
23 0767
;
24 0767
;
25 0767 ;
26 0767
;
27 0767
;
1 BYT E WRITE
28 0767
;
29 0767
WBYTE:
EN T
30 0767 C5 PUSH BC
31 0768 0608
LD
B,+B
32 076A CD1AOA
CA LL LONG
33 076D WBY1:
ENT
34 076D 07
RLCA
35 076E DC!AOA
CALL
C,LONG
36 0771 D4010A
CA LL NC,SHORT
37 0774 05
DEC B
38 0775 C26D07
,Jp
NZ,WBYl
39 0778 Cl POP
BC
40 0779 C9
RET
41 077A ;
42 077A ;
43 077A
; GAP + TAPEMARK
44 077A
;
45 077A
; E=:;>L:;) LONG GAP
46 o77A
; = @S@ SHORT GAP
47 077A
;
48 077A
GAP:
ENT
49 077A C5
PUSH BC
50 077 B D5
PUSH
DE
51 077 C 7B
LD A,E
52 07i D 01F055
LD . BC,55FOH
53 0780 112828
LD OE,2828H
54 0783 FECC
CP CCH
55 0785 CABE07
,Jp
Z,GAP1
56 07 88 01F82A
LD BC,2AF8H
57 078 8 111414
LD
DE,1414H
58 07 8E
GAP!:
ENT
59 07 8E CDO!OA
CALL
SHORT
60 0791 OB
DEC
BC
04.07.83
;
18*21+20
; 18*19+20
\",
; .~ L .~
**
ZBO ASSEMBLER SB-7201
< 1Z-013A > PAGE 28
04.07.83
01 0792 "78
LD A,B
02 0793 Bl
OR c
03 0794 20FB
JR
NZ,-6
04 0796 GAP2:
ENT
05 0796 CDlAOA CALL
LONG
06 0799 15
DEC D
07 079A 20FA JR NZ,-4
08 079C GAP3:
ENT
09 079C CDOlOA
CALL SHORT
10 079F lD DEC
E
11
07AO 20FA
,JR
NZ,-4
12 07A2 CDlAOA CAL L
LONG
13 07A5 Dl
POP DE
1'4 07A6 Cl
POP BC
15 07A7 C9
RET
16 07AB ;
17 07A8 ;
MEMORY CORRECTION
18 07AB ;
Cot1MAND ' M'
19 07A8 ;
20 07AB MCOR:
ENT
2 1 07AB CD3D01 .
CALL HEXIY ; CRRECTI ON ADR.
22 07AB
MCR1:
ENl:
23 07AB CDFA05
CALL NLPHL ;
COR . ADR. PRINT
24 07AE CDB103
CALL
SPHEX
; ACC Q ASCII DISP.
25 07Bl CD2009
CALL
?PRTS ; SPACE PRINT
26 07B4 CD2F01
CALL
BGETL
;
GET DATA & CHECK DATA
27 07B7 CD1004
CALL
HLHEX ; HU·ASCI I< DEl
28 07BA · 381B
JR
C,MCR3
29 07BC CDA602
CALL
.4DE ;
<INC DEl*4
30 07BF 13
INC DE
3 1 07CO CD1F04
CA LL 2HEX ;
DATA CHECK
32 07C3 3BE6
JR C,MCRl
33 07C5 BE
CP <HL>
34 07C6 20E3
, JR
NZ,MCR1
35 07CB 13
INC DE
36 07C9 lA
LD A, <DEl
37 07CA FEOD
CP ODH ; NOT CORRECT! ON 7
38 07CC 2806
JR Z,MCR2
39 07CE CD1F04
CALL 2HEX
;
ACC 1-HL< ASCI I l
40 07D1 38D8
,TR
C,MCR!
41 07D3 77
LD <HL>, A
; DATA CORRECT
42 07D4
MCR2:
ENT
4 3 0704 23
INC
HL
44 07D5 1BD4
JR
MCR1
45 07D7
;
46 07D7 6(1
MCR3:
LD
H,B
;
MEMORY ADR .
47 o7Ds 69
LD
L,C
48 0709 !BDO , TR
MCR!
49 07DB
50 07 DB
51 07DB
52 07DB
53 0708
54 07E6
ORG
07E6H
55 07E6
56 07E6
57 07E6
58 07 E6
GET 1 LINE STATEMENT
*
59 07 E6
60 0 7E6
DE = DATA STORE LOW ADR.