Sharp MZ-700 Owner's Manual 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 BYTE WRITE
28 0767 ;
29 0767 WBYTE: ENT
30 0767 C5 PUSH BC
31 0768 0608 LD
B,+B
32 076A CD1AOA
CALL LONG
33 076D WBY1: ENT
34 076D 07 RLCA
35 076E DC!AOA
CALL
C,LONG
3 6 0771 D4010A CALL 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 ;
4 3 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 07iD 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 0788 111414
LD DE,1414H
58 07 8E GAP!: ENT
59 078E 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 CALL 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
CALL 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 07E6 GET 1 LINE STATEMENT
*
59 07E6
60 0 7E6
DE = DATA STORE LOW ADR.