Sharp mz-800 Technical Reference And User's Manual page 86

••
Z80 ASSEMBLER 2Z-004C
<I
Z-013B> PAGE 27 03.06.85
••
Z80 ASSEMBLER 2Z-004C
<IZ-013B> PAGE 28 03.06.85
01 0748 :
01 0792 78
LD A,B
02 0748
I
02 0793 B!
OR
c
03 0748
DEFS +17
03 0794 20F8
JR NZ,-6
04 0759 :
04 0796 GAP2: ENT
05 0759
:ORG 0759H;DLY!
05 0796 CDIA0A
CALL LONG
06 0759
:
06 0799 15
DEC D
07 0759
l
107 MICRO SEC DELY
07 079A 20FA JR
NZ,-4
08 0759
.
08 079C
GAP3: ENT
09 0759 DLYI: ENT
09 079C CD0!0A
CALL SHORT
10 0759 3EIB LD
A,IBH : 1!!.39
micro sec
!0 079F ID
DEC E
11 075B 3D
DEC A
11 07A0 20FA
JR NZ,-4
12 075C C25B07 JP
NZ,-!
12 07A2 CDIA0A
CALL LONG
13 075F C9
RET
13 07A5 D!
POP DE
!4 0760
.
14 07A6 Cl
POP BC
15 0760
;ORG 0760H;DLY2
15 07A7 C9
RET
16 0760
.
16 07A8 :
17 0760 DLY2:
ENT
17 07A8
;
MEMORY CORRECTION
!8 0760 3E19 LD A,!9H : 103.45 micro sec
!8 07A8
: COMMAND 'M'
!9 0762 3D
DEC A
19 07A8
.
20 0763 C26207 JP NZ,-!
20 07A8
MCOR: ENT
21 0766 C9 RET
21 07A8 CD3D01
CALL HEXIY
; CRRECTION ADR.
22 0767
:
22 07AB
MCRI: ENT
23 0767 :
23 07AB CDFA05
CALL NLPHL
; COR. ADR. PRINT
24 0767 :
24 07AE CDB103
CALL SPHEX
; ACC ASCII DISP.
25 0767
l
25 07Bl CD2009
CALL
?PRTS ; SPACE PRINT
26 0767 :
26 07B4 CD2F0!
CALL BGETL
; GET DATA & CHECK DATA
27 0767 :
1 BYTE WRITE 27 07B7 CD1004
CALL HLHEX
; HLASCll<DE>
28 0767 : 28 07BA 381B
JR
C,MCR3
29 0767 WBYTE: ENT
29 07BC CDA602
CALL .4DE
; <INC DE>o4
30 0767 CS
PUSH
BC
30 07BF 13
INC DE
()()
31 0768 0608 LD
B,+8
31 07C0 CD1F04
CALL 2HEX ; DATA CHECK
0
32 076A CD!A0A CALL LONG
32 07C3 38E6
JR C,MCRl
33 076D WBYI: ENT
33 07C5 BE
CP <HU
34 076D 07 RLCA
34 07C6 20E3
JR NZ,MCRI
35 076E DC!A0A CALL C,LONG
35 07C8 13
INC DE
36 0771 D40!0A CALL NC,SHORT
36 07C9 !A LD
A, <DE>
37 0774 05 DEC B
37 07CA FE0D
CP 0DH
; NOT CORRECTION ?
38 0775 C26D07 JP
NZ,WBYI
38 07CC 2806 JR
Z,MCR2
39 0778 Cl POP BC
39 07CE CD1F04
CALL 2HEX
; ACCHL<ASCll >
40 0779 C9 RET
40 07Dl 38D8 JR
C,MCRI
41 077A :
41 07D3 77
LD <HU,A
; DATA CORRECT
42 077A :
42 07D4 MCR2:
ENT
43 077A : GAP + TAPEMARK
43 07D4 23
INC HL
44 077A :
44 07D5 !8D4 JR
MC RI
45 077A
: E=@L@ LONG GAP
45 07D7
.
46 077A
:
=@S@ SHORT GAP
46 07D7 60
MCR3: LD H,B
: MEMORY ADR.
47 077A
.
47 07D8 69 LD
L,C
48 077A
GAP: ENT
48 07D9 !8D0
JR MCR!
49 077A CS PUSH BC
49 07DB
50 077B D5
PUSH
DE
50 07DB
51 077C 7B LD
A,E
51 07DB
52 077D 01F055 LD BC,55F0H
52 07DB
53 0780 112828
LD DE,2828H
53 07DB
54 0783 FECC CP CCH ;' L'
54 07E6
ORG 07E6H
55 0785 CA8E07 JP
Z,GAP! 55 07E6
56 0788 01F82A
LD BC,2AF8H
56 07E6
57 078B 111414
LD DE ,!414H
57 07E6
58 078E GAP!: ENT
58 07E6 :
GET I LINE STATEMENT
•
59 078E CD0!0A
CALL SHORT
59 07E6
:
60 0791 0B DEC BC
60 07E6 :
DE = DATA STORE LOW ADR.