Sharp MZ-700 - Page 187

CXl
U ZSO ASSEt1BLER SB-7201 < 1 Z-013A > PAGE 33
01 090E
02 090E
03 090E
04 090E
05 090E AF
06 090F 3294 11
07 0912 3ECO
08 09 14 1843
09 0916
10 0918
11 0918
12 0918
13 0918 3A9411
14 091B 87
15 091C CS
16 09 1D 18EF
17 091 F
18 0920
19 0920
20 0920
21 0920
22 0920
23 0920 3E20
24 0922 1811
25 0924
26 0924
27 0924
28 0924
29 0924 COOCOO
30 0927 3A9411
3 1 092A B7
32 092 B CS
33 092C D60A
34 092 E 38F4
35 0930 20FA
36 0932
37 09 35
38
0935
39 0935
40 0935
41 0935
42 0935
43 0935
44 0935 FE OD
45 0937 2805
46 0939 CS
47 093A 4F
48 093 B 47
49
093C CD4609
50 093 F 78
51 0940 Cl
52 0941 C9
53 0942
54 0942
55 0942
56 0942 4F4B21
57 0945 OD
58 '0946
59 0946
60 0946
NEWLINE
;
?L TNL: ENT
XOR
LD
LO
JR
OEFS
;ORG
0918H
?N L: ENT
LO
OR
RET
JR
DEFS
;ORG
0920 H
PRINT SPACE
?PRTS: ENT
LD
,JR
PRINT TAB
?PRTT: E NT
CALL
LD
OR
RET
SUB
JR
JR
DEFS
;ORG
0935H
PRINT
,
?PRN T:
IN ACC
ENT
CP
,JR
PUSH
LD
LO
CALL
LO
POP
RET
MSGOK: ENT
OEFM
DEFB
ORG 0946 H
A
( DPRNT>, A
1\,COH
PRNT 5
+2
A,< DPRNT>
A
z
?LTNL
+1
A~20H
?PRNT
PRNTS
A,< DPRNT>
A
z
+10
c,-1o
NZ,-4
+3
PRINT DATA <ASC I!)
OD H
Z,?LTNL
BC
C,A
B,A
?PRT
A,B
BC
' OK! '
OD H
PRINT ROUT!
NE
04.07 .8 3
ROW POINTER
CR
CR
** ZSO ASSEMB LER SB-7201 < 1Z-013A > PAGE 34 04 . 07 .8 3
01 0946
02 0946
03 0946
04 0946
05 0946 79
06 0947 CDB90B
07 094A 4F
08 0948 FEFO
09 09 40 CS
10 094E E6FO
11 0950 FECO
12 0952 79
13 0~53 2017
14 0955 FEC7
15 0957 3013
16 0959
17 0959 CDOCOO
18 095C FEC3
19 095 E 280F
20 0960 FEC5
2 1 0962 2803
22 0964 FEC6
23 0966 CO
24 0967 AF
25 0968 32941 1
26 096 B C9
27 096C
28 096C CDB50D
29 096F 3A9411
30 0972 3C
31 0973 FE5 0
32 0975 38 Fl
33 0977 0650
34 0979 lBED
35 097B
36 097B
37 097B
38 0978
39 097B
40 097B
41 0978
42 097B
43 097B 3A8Ell
44 097E 186F
45 0980
46 ' 0980
47 0960
48 0980
49 0960
50 0980
51 0980 CB6F
52 0982 2802
53 0 984 B7
54 0985 C9
55 0986
56 0986 3E20
57 0988 B7
58 09 89 37
59 09 8A C9
60 098B
1 CHA.
INPUT:C=ASCII DATA <?DSP+?DPCT)
?PRT:
ENT
LD
CAL L
LD
CP
RET
AND
CP
LD
JR
CP
JR
PRNTS: ENT
CALL
CP
JR
CP
JR
CP
RET
PRNT2: .X OR
LD
RET
PRNT3: ENT
CALL
PRNT4: LD
INC
CP
A,C
?ADCN
C,A
FOH
z
FOH
COH
A,C
NZ,PRNT3
C7H
NC ,PRNT3
?DPCT
C3H
Z,PR NT4
C5H
Z,PRNT2
C6H
NZ
A
< DPRNT>, A
?DSP
A,< DPRNT>
A
+80
JR C,PRNT2+1
SUB +80
cTR PRNT2+1
FLASSING BYPASS
1
FLASl: ENT
'
LD
JR
A,<FLASH)
FLAS2
BREAK SUBROUTINE BYF'ASS
CTRL OR NOT KEY
?
BR K2: •ENT
BIT 5,A
,JR z, ?BRK3
OR A
RET
? BR;: 3: LD
OR
SCF
RET
A,20H
A
ASCII TO DSPLAY
ZERO=ILLEGAL DATA
MSD CHECK
CRT EDITOR
HOME
CLR
TAB POINT+l
NOT OR CTRL
CTRL
NOTKEY A=7FH
CTRL D5=1
ZERO FLG. CLR