PROMPT_48_6MHz_Upgrade PROMPT 48 6MHz Upgrade
PROMPT_48_6MHz_Upgrade PROMPT_48_6MHz_Upgrade
User Manual: PROMPT_48_6MHz_Upgrade
Open the PDF directly: View PDF 
.
Page Count: 80
INTEL CORPORATIO[\j
3065 Bowers Avenue
Santa Clara, California
95051
(408) 987-8080
inteJ
Dear
Customer:
Enclosed
is
your
Prompt-48
high
speed
upgrade
kit.
Installation
of
this
kit
will
upgrade
your
Prompt-48
from
3MHZ
clocking rate to
6MHZ.
Please note
that
the
6MHZ
version of
Prompt-48
requires
use
of the
standard
8748
or
8748-4
parts.
Also
the
Prompt-48
firmware
is
clock
rate dependent
by
design
and
therefore, the
new
6MHZ
firmware
must
be
operated
at
6MHZ
only.
If
you
still
need
to design
at
3MHZ
DO
NOT
upgrade
your
Prompt-48
until
you
are ready to
use
the full speeOiParts.
To
install
the
upgrade
kit:
1)
Check
contents of
kit
with the attached
Prompt-HS4
packing
check
list.
2)
Remove
power
fr~
Prompt-48
(turn
off
power
and
remove
power
cord). .
3)
Remove
Prompt-48
panel
by
removing
the four
(4)
screws
(see figure
1),
and
sliding the
panel
down
and
up.
The
printed
circuit
board
is
attached to the front panel.
4)
Remove
the
power
harness
plug
(lower
left
corner of board)
from
the
circuit
board.
5)
Remove
circuit
board
from
front
panel
by
removing
the
eleven
mounting
screws
(see figure
1).
6)
Unsolder the
3MHZ
crystal (see figure
2)
and
solder in the
new
6MHZ
crystal.
7)
Replace
PROMs
in sockets
A1, A2,
A3
and
A4
with the
new
PROMs
52-783, 52-784,
52-785
and
52-786
respectively.
8)
Reassemble
Prompt-48
in reverse order
as
above
in steps
2-5) .
Utilizing the
8748
and
8035
supplied with the
kit,
your
upgraded
Prompt-48
will
perform
a
11
of the previ
ous
functi ons, plus
an
enhanced
set
of access
address codes. A greater variety of
I/O
and
memory
accessing combinations
are
now
available..
These
enhanced
access address
codes
are outlined in
Appendix
J of the revised
user's
manual
included with
this
kit.
Appendix
J
amends
paragraph 5-14,
page
5-6
of the
user's
manual
for the
upgraded
6MHZ
version of
Prompt-48.
Best regards,
Microcomputer
System
Division
Intel Corporation
9800584B
· .
o
<0
40
w
P!lOG.RAMt.ltNG
50Ct::t:T
o
ffiN~
ON
w
EXECtJTiOI\I
socur
40
2
50
ij~
911
1/0
PORl5.
4~
CO"NE~TOR
prompt
48
jTJ
--
""D:lMIAAI'oIDI
FUNC':O,
N
em",p
- - - - -
: ( ) :
I
IfUI<Cror.
I
ANi'''''::
I
!:>AlA
'j
I
L
__________________
~
inteI~
1~b,l'-llkJj
J 0
F/GUI\[ I
~
PROfYJPT-4g
PANEL
.0·
;~.
PWA
MOUNTlAJG
SCREW {II
PUJCFSJ
PROMPT
HS4
PACKING
CHECKLIST
[]
I.C.,
Intel
8748
[]
I.C.,
Intel
8035
[]
(4)
2708-type
ROMS
52-783, 52-784, 52-785, and 52-786
[]
6
MHz
Crystal
[]
Prompt-48
User's
Manual (9800402)
[]
Prompt-48
Reference
Cardlet
(9800404)
[]
Prompt-48 Monitor
Listing
(9800583)
« .
;.
•
~
b
7
~
't
/D
!l
11-
13
III
IS
,,-
n
18
ICJ
20
].1
<;nn
+
6v
Rx.
v~
T"A
(PJ)
300
131\(1)
T'X
1)1\,l\
(o\..)\]
\'\'-1.
il...vQ
c\n
L
u;·-e..p
Rts-r?
To.
$(S'1.)J)
(AJC)
006
l1A0J)
C I-
r"~
\b
~
"'""10D
\""'Lo D
BA0l)
'"
~
vA
)"}\
$$T'
It
i)v1
'-
L\
DO
>3" OJ)
Gn.U
DA
\~
sa
f"2J)1'
1)
A)
f)
c.xtt
"J)($T
(+
/"'2.)
\\\1
l(bR.
C'1:<.L
l..ouP
IVc.....
~~ao
~"D~
TTL
TX
l)AT-A
<=;
b
DO
n~(1)
15
4
L.)
1>
KA
\C
Co~
::'2.
U'T
R.)
L
frO
tp
2'")
TT'7
I"2.X
L.ooP
2'1
l'
~
T"(
LOOt:>
'2.0 T
T\t
t~
LCD.p
GilD
t
Iii
CO'IVtV
W
I
0(
3
2.
7
5
2.0
10
---
-------
-.-
-----------_._-----.
--_._-_._----
------------
9800583A
1515-11
MCS-48/UPI-41
MACRO
ASSErlBLER,
w.e
PROMPT"'48 SYSTEM MONITOR
V3.0
6MBZ
PACE
1
LOC
OBJ SEQ. SOURCE STATEMElIT
1
STIn..E
('PROllPT-48
SYSTEl'l MONITOR
V3.8
6MBZ')
2
;*************************************************
3'
;
4 ;
.5
;
6
7 ;
INTELLEC/PROMPT-48
FIR1nfARE
VEl!SION
3.0
~
FEB
1977
8
;*************************************************
9
10
(C)
1976,1977
INTEL CORPORATION. .
11 ALL
RIGHTS
RESERVED.
NO
PART
OF
THIS
PROGRAM
OR
PlJBLICATION
12
MAY
BE
REPRODUCED, TRA:rTSl'lITrED,
TRANSCRIBED,
STORED
IN
13
; A RETRIEVAL SYSTEM,
OR
TRANSLATED INTO
ANY
LAJ.'IGUACE
OR
COMPUTER
14
;
LANCUAGE,
IN
ANY
FORM
OR
BY
ANY
MEANS,
ELEcmornc,
MECHANICAL.
15
MAGNETIC,
OPTICAL,
CHEMICAL,
UANUAL
OR
OTHERWISE, WITHOUT
16 ;
THE
PRIOR
WRI'ITEN PERMISSION
OF
INTEL
CORPORATION,
17
3065
BOWERS
AVENUE, SANTA CLARA. CALIFORNIA
95051.
18
;
19
;*************************************************
20
;
:----------------:----------------:
GO
EX>\.
I'
MOD
:----------------:----------------:
N/BI{
, PROG
SS
, REG
:----------------:----------------:
1/'/BI{ , DATA :
CLEAR!
PREV
'ENTRY
!
:----------------:----------------:
:----------------:----------------:
21
22
23
24-
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
;
;
<addr>
;<byte>
;<value>
;<
nibble>
:
:=<nibble><nibble><nihhle>
::=<nibble><nibble>
::=<nibble!byte!addr>
: :
=<
her-d
igi
t>
::=<0!1!2!3f4!5!6f7!8!9!A!B!C!DTE!F>
; <
her-d
ig-U>
;
; P2-MAP
COMlW..AND
SYMBOL
"p2
II
<p2
map-command>::=2<p2
map-clause>
<p2
map-clause>::=(~byte>!<NEXTT~>
49
;PROGRAM-PROM
COMMAND
SYMBOL
·Pr
8755
R
,"Pr
8741-
50;
<program
prom-command>::=3<program
prom-clause>
51
;
<program
prom-c
lanse>:
:=<
trom-addr>
< NEXrTEND> <
to_ddr>«EX
E>
f
52
53
;
<~<prom-addr><rrEXT!~>
54
;BYTE SEARCH
COMMAND
SYMBOL
·S<
I.E>
X:
:=<Ptr!d>·
55
<byte
search-command>::=4<type-option><search-clause>
56
• <
byte
search-c
lause>
: :
=<
from-addr><
NEXT!
END>
<
to-addr>
<'HEXr
fEND>
57
<tor-clause>
58
<type-optlon>::=<PROGrREG!DATA>
59
;
<for-clause>:
:-=«byte><EXE;»
!«byte><NE..~<mask><NEXT1EXE>
>
69
<mask)::=<byte>
61
;
62
;WORD
SEARCH
cor·1M.<\ND
SYMBOL
·S<2.X>
X:
:=<P!r!d>·
63
<word
search-command>::=5<tYge-option><searcn-clause>
64
;
<word
search-c
lanse>:
:=<
iro::n-addr>
< NEXr!END> <
to-addr><NE..YI'
!END>
65
; <
for-c
lanse>
ISIS-U
~I-'l
lW:Bo
ASSJ!'MBt.EB..
VD.&
P!IOl"JPT-IWI
SYSJ:lth
!JOB'rroa
va
••
6I!JSZ
LOC
OB.J
SEQ.
SOUBa
STA'l'E1'D:ln"
PAc:&
66
; <type-optlon)::e<PROGtREGtDATA>
2
.67 ; <
for-olause>:
'.«byte><NEXr><byte><NE1fl'TEXE»
f«J.yte><NUr
66
69
>
, <
IIISS&>
:
:.<
byte>
;lIEX-ARI"1'mJETIC
COmIAND
SYrmOL
-BE-
70
71
72
13;
<has
arlthmetlc-commaDd>::=6<has
arithmetlo-elauae>
D
<has
al'lthme
tic-clause>'
:'<_lue><
NEXT!El'f])><_lue><m:xr!E..~
74
•
'Z'3
;PBQGRAJ!-PROl!
COmAlf'D
SYMBOL
·Pr
8'14S"
76
;
<pl'osram
pl'o~commaD4>::'7<pl'osram
pl'o~claus.>
77
,
<pl'osram
pl'o~clauae>::=<rroa-addr><KEXrtiND)<to-addr>«EX
Dr
.
.
78
; <
l'IEXI">
<
pl'o~addr>-<
1'I'EXr!EXE>
>
79
,
se
;
COm'AIlE-PROl!l
COtmAM)
SY1!1BOL
"Co·
81
<compare
prom-commaD4>: :=8<
compare
prom-ellulse>
82
;
<compare
prom-clause>::=<trom-addr><NtXr!END)<to-addr>«EX
Dr
83
<~<prom-addr><NEXTTEXE»
84
•
85
;
MOVE-
Ml!:nORY
COPll'fANl)·
snmOL
ltD<
10
X:
::
< P
Tr
f
d>
•
86
<
Il10_
melllOry-eollllllalld>::
=9<
type-op
t ion><
Il10..,..
IllelllOrrc
l.ase>
87
•
<mo_
memorrelause>::=<fromo-addr><NEXTtEND><to-addr><NEXT
fEND>
;
<dest-addr><~~!EXE>
<type-optloD>::"(PROG!BEGtDATA>
88;
89
9.
91
92
93
;
94
;
; ACCESS
COl"mAl."'fD
SYMBOL
"Ac
II
<
access-co_Dd>
:
:.
aA<
aeceslI-c
laus.>
<access-u1aus.>~:"«hyte>!<BEXTt~>
93
; BllltAXPO INT
COl'mA.ND
SY!mOL
wbr·
96
<bl'eakpoint-commaDd>::'B<breakpolllt-clause>
97
;
<breakpolAt-clause>::=<ldtal1>«~!<NE..~«addr>r<NEXrrp
BEV»r
•••••••.
98
•••
!«addr>!<~~!P~»<EXE>
99
; < Id> : :
=<
lllbb
Ie>
Ie.
<all>:
:-<EXE>
leI
;
182 ;CLEAR-MEMORY
COMMAND
SY!IBOL
"C<1O
X::=<Ptr!d>"
1e3
;
<clear
memory-eo_ad>:
:=C<
typ.-optloU><c
l.al'
melllOrre
Iau
e>
104
,
<clear
JIlelllOrrciause>::=<trom-addr><NEXTTEND><to-addr><NEX
TTEXE>
1es
1e6
;
1e7
lDtJ1IJP
188 ;
189 ;
118
;
111
;
<type-optlon)::=<PROGtREGtDATA>
COmIAllD
SYMBOL
"4<10
X:
:·(P!r!d>·
<dump-commBlld)::"D<tTPe-optioll><clump-clauae)
.<d1lJll'P-c
lause>
:
::(
trom-uddr><
NEXT!
El'fD>
<
to-addr><
NEX:rTEXE>
<t?pe-optloU>:::(PROGtREG!DATA>
112
;ElfTJ!!R
COMl!fAlm
SYf!BOL
wr<X>
x:
:"<P!l'rd>·
113 ;
<eDter-commBlld>::aE<tTP.-optlo:a.><ellter-clause>
11~
<eDter-clau
••
>::=<blas><NEX!TEXE)
113 < t'7'1M-optloU>:'
::<PROG!REGtDATA>
116
;
<blas>::=<addr>
117
t .
118 ;
FF:I'Clt-PROJ.II
COrJlllA1'm
sn!8OL
MFP"
119
<retch
P1"oar-co_Ad>:
:=F<retch
prom-clause>
120
;
<retch
prom-clause>:1=<rro~ddr><NEXTtEND)<to-addr>«E3!)
!
121
<~<prom-addr><NEXT!~>
122 ;
123
;GO
COm:t.um
SYMBOL
MC<X>
X:
:=<0
!b!S>·
124 <GO-commaDd>::=GO<type-optloll><GO-clause>
125
<CO-clause>::=«addr>!<NExr!~>
126 <
type-option):
::<N/SXrW/BKYSS>
127' ;
128
,EXAMI.NE
COmIAIm
SYm!OL
·E<X>
X:
::<P!r!d>
•
129
<esamille-oommaDd>::=EX<t?pe-optioll><e:ami.ue-clause>
LOC
OBJ
0003
0902
0901
0000
000C
0008
0004
0000
0010
0020
90C0
0080
0040
0001
0002
0004
0008
0010
0020
0040
00ae
0001
0002
0004
0008
0010
0020
0040
0080
eeCF
002:5"
.
8027
00'll
0002
00041
0008
0010
0020
0040
0080
00E0
0043
SEQ
130
131
132
133
•
PAGE
3
SOURCE STA'l"EMErfT
<examiAe-clause>:::<addr><NEXT!~~>«<b~te>f<NEXT!PREV»!.
...
r«
byte>
!<
NEXT!PREV>)) <
END>
<type-optlon)::=<PROG!REGfDATA>
134
;*-*-*-*-lfC-*-lfC-lfC-*-*-lfC-*-*-*-*-*-*-*-*-lfC-*-*-*-*-*
133
;
136
; Il!TELLEC/PROMP'l'
SYS'l'DI
CONSTANTS
137
;"
138
; 82:5 1 lJSART SYS"l'EH CONSTAN'l'S
139
;!DDE
INSTRUCTION
DEFINITIONS
140
;
141 R64X
142
R16X
143
R1X
144
SYl'fC
145
CL8
146
CL7
147 CL6
148
CL5
149
PErm
150
PEVEl'J
151
S1"2
152
ST15
153
ST1
134
;
EQU
EQU
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
~e0011B
00000010B
00000091B
00000000B
00001100B
00001060B
00000100B
00000000B
00010000B
00100000B
11000000B
10000000B
o
1000000B
;
64
X
BAUD
RATE
;
16
X
BAUD
RATE
; 1 X
".BAUD
RATE
;SYNC
MODE
; CRi\RACTER LENGTIi .. 8
;CHARACTER
LENGTH
= 7
; CHARACTER LENGTH = 6
; CHARACTER LENGTH = 5
;PARITY
ENABLE
;EVEN
PARITY
;2
STOP
BITS
;
1.
5
STOP
BITS
;1
STOP
BIT
155
;CO~
INSTRUCTION
DEFINITIONS
156
;
157
TXEN
158
DTR
139
RXEN
160
SBCH
161
CLERR
162
RTS
163
USRST
164
.El'fIm
165
;
EQU
EQU
EQ.U
EQ.U
EQ.U
EQ.U
EQU
EQ.U
00000001B
00000010B
90000100B
00001000B
00010000B
00HJ0000B
01000000B
10000000B
166
";STATUS
BIT
DEFINITIONS
167
;
168
TltDY
169
RRDY
170
TXBE
171
RPAR
172
ROV
173
RFR.
174
SYID>
175
DSR
176
;
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
00000001B
"
00000010B
00000
1013B
00001000B
00010000B
00100000B
o
1000000B
10000000B
; TRANSHIT
ENABLE
;
DATA
TERMINAL
READY
; RECEIVE
ENABLE
;
SEND
BREAIC
CHARACTER
;
CLEAR
ERROR
;
BEQ.t1'EST
TO
SEND
; USART RESET
;ENABLE
RUNT
MODE
;TRA.NSI'IIT
READY
;
RECE
lVE BUFFER
HEADY
;
TRA.N~UT
BUFFER EIiPTY
;BECEIVE
PARITY
ERROR
; BECElVE
OVERRUN
ERROR
;RECElVE
FRAMING
ERROR
;
SYNC
DETEC1"ED
;DATA SET
READY
177
;:#I-*-*-*-*-*-*-*-*-*-lfC-lfC-*-lfC-*-lfC-*-*-lfC-*-*-*-*-*-*
178
;
179
; CONSOLE/TAPE
HEADER
COlfl'ROLS
180
;
181
!lODE
EQU
ST2
OR
CLa
OR
R54X
182
;
USART
noDE
INITIALIZATION
WORD
183
COl'W
EQU
RXElf
OR
'I'XEN
OR
RTS
184
; USART
COMMAl'm
WORD
INITIALIZATION
185
TADV
EQU
DTR
OR
COMD
;TAPE
ADVAl'fCE
186 ;
187
;8255
PPI
SYS"I'EI'f
CONSTAlfTS
188
;l"lODE
INSTRUCTION DEFINITIONS
189
;
190
PC
IL
EQU
90999001B
; PORT C(
LOWER>
-INPUT
19 I
PB
I
EQ.U
000000
HlB ; PORT B - INPUT
192
GBM!
EQU
000G0100B
;GROUP
B
HODE
1
193
PCUI
EQ.U
00001000B
1PORT C(UPPER) -INPUT
194
PAL
EQ.U
00010~00B
;PORT A - INPUT
195
GAMI
EQ.U
00100000B
;G1tOUP
A
?-fODE
1
196
GAl12
EQ.U
01000000B
;
GROUP
A
MODE
2
197
ACTM
EQ.U
10000000B
;ACTIVE nODE
198
PPIHD
EQ.U
ACTIl
OR
GAI12
oll.
GAl'!1
;PPI
l'IDDE
WOR!)
199
PPICT
EQ.U
4311
;PPI
MEM
MAPPED
I/O
CONTROL
PORT
200
;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
201
;
ISIS-II
·m:s-wyUPI-41
MACllO ASSll:l'lBI.J!!It.
V2.i)
PBOlVT-48
SYS'IEl!!:
1I1Ol'flTOR.
w.e
6mtz
.LOC
OB.J
PAGE
202
;
MErlORY
MAPPED
I/O
PORT
DEFINITIONS
000B
203
;
204
MClIST
EQ,U
205
;
INPUT:
206
;80
+PROP!
EN
-8753
OBR
·207
;B1
208
;82
209
;SS
210
;84
-11101'1
EIn'RY
211
;B5
212
;86
213
;B7
+ORIENT OK
214
;
OU'TPUT:
215
;B0
PROM
Elf
216
;81
·WER
ACCESS
217
;82
-OUTEX
218
;B3
l1R
MEr!
219
;84
-P0WR
220
;B5
~~
221
;B6
-RUN
222
;B7
L~
MEn
223
;*-*-*-*-*-*-*-*-*-*-*
224
;
;1'fACBlNE
STATUS
8009
225
KDDAT
EQU
226
; PORT 2
MAP
227
";
INPUT:
09B: ;
KEY
BOJUtD
DATA
INPUT
Al'fD
228
;80
KEYBOABD
INCODED DATA
(0)
229
;B1
KEYBOARD
mCODED DATA
(1)
230
;82
KEYBOARD
INCODED DATA
(2)
231
;.83
KEYBOABD
ROW
0
232
;84
KEYBOARD
ROW
1
233
;85
KEYBOABD
ROW
2
234
;86
235
;B7
236
;
237
; KEY
KEYBOARD
ENCODED
238
; PRESSED
VALUE
VALUE
239
;0
10R
0R
240
;1
lUI
lR
241
;2
12R
2R
242
;3
13R
3R
243
;4
14H 4H
244
;5
15R
5R
245
;6
16R
oR
246
;7
17B
7B
247
;8
08R
8R
248
;9
09R
9R
249
;A
OAR
AR
250
;B
OBR
BR
251
;e 8CR
CR
252
;D
ODR
DH
253
;E
OEs:
ED:
254
;F
OFR
F1I
255
;
PREVIOW
20H
lOH
256
;PRoe
21H
11H
257
; DATA
22H
12K
258
;
REG
23H
13H
259
;EX
24H
14H
260
;GO
25R
lSR
261
;
NEXT
26H
l6R
262
;
EXECUTE.
27D: 17H
263
.
264
;OtlTPUT:
265
;B0
PORT 2
BIT
0
nAP
(1
,.
InPUT,0
,.
OUTPUT)
266
;B1
PORT 2
BIT
1
HAP
(1
,.
INPUT,O
,.
OUTPUT)
267
;B2
PORT
2
BIT
2
MAP
(1
,.
UfP1l'l'.0
,.
OUTPUT)
268
;B3
PORT 2
BIT
3
MAP
Cl
,.
INPUT.
fit
,.
OUTPUT)
269
;B4
270
;85
2.71
;B6
272
;B7
273
;*-*-*-*-*-*-*-*-*-*-*
274
ISIS-II
l'1CS-4lY'UPl
....
l
lI!A.CltO
ASSDBLEB.
va.0
PROtIPT-48
:ns
lU
now
tTOR V3. 0 6!JBZ
LOC
OBJ
8eeA
0008
8~n8
0011
0812
e013
8014
0013
e816
e017'
0020
e021
0040
8041
0042
00F0
0008
0000
0001
0002
9003
0004
0003
0006
0007'
8080
80BF
00C5
00C9
00D9
00DA
000B
000C
0000
00C4
00C8
0008
0009
00DB
0000
00FF
SOO'BCE
STATEmll'IT
275
EXMEM
EQ.U
0Al[
276
P0LIN
EQU
e8K
2rt
DOOPT
E~U
10K
278
DeIPT
EQU
11K
279
DG2PT
EQ.U
12K
280
DeaPT
EQU
13K
281
DG4PT
EQU
14K
282
DC3PT EflU 13K
283
DG6PT
EQ.U
16K
284
DG7P.T
EflU
17'R
285
USADA EflU
20K
286
USACT EflU
2lH
287'
;*-*-*-*~*-*-*-*-*-*-*
288
:
289
PP
IP
A
EflU
290
PPIPB.
EflU
29
1 ; OUTPUT:
40K
.
41H
292
; B0 .
P2(
0)
ADDRESS
293
;Bl
P2(l)
ADDRESS
294
;B2
'1'0
295
;B3
RST
,EX
m:MORY
1WU)WARE
SWITCR
; PORT 0 LATClI
IIfPUT
;DISPLAY
DIGIT
0
;DISPLAY
OIGIT
1
;DISPLAY
DIGIT
.2
;DISPLAY
DIGIT
3
;DISPLAY
DIGIT
4
;DISPLAY
DIGIT
5
;DISPLAY
DIGIT
6
;DISPLAY
DIGIT
7
;USART
DATA
; USART
CONTROL
;DOT
DATA
BUS
BIDIRECTIONAL
; DUT
AND
PROGRAM
COln"ROL
296
;
B4
VOD
(0=5V,
I=KI
V)
297'
;B5
EA
(O=0V,l=HI
V)
298
;B6
PROC
(0=9V,l=Hf
V)
299
; B7 ORIENT
(TEST:
1)
300
;
381
PPIPC
EQU
42K
302
; OUTPUT:
383
;B8
ACK CTL
304
;Bl
DUT DATA
Elf
ABLE
305
-;
52
ADDR
HI
306
;B3
307
;B4-B7
STATUS
308
;*-*-*-*-*-*-*-*-*-*-*
309
;
318
MSXPC
EQU
0FeH
311
~IOU
EQ.U
08K
312MI!:PG0
EQ.U
0K
313
l1EPGl
EQ.U
lR
314
m:PG2
EQ.U
.2f£
313
SPC3
EQ.U
3K
316
m:PG4
EQ.U
4H
317
l'1EPCS
EQU
5R
318
Sl'C6
EQ.U
6H
319
l'1EPG7
EQU
1H
320
;*-*-*-*-*---*-*-*-*-*
321
;
;
PROCRA.PmER
COl'M'ROL
AL"ffl
STATUS
;M.o\SJC
FOR
P2
PACUfG
;
~IEMORY
lIAPPED
I/O
UPPER
BYTE
;DATA
ME.l"'lORY
PAGE 0
;DATA
~lE1':ORY
PAGE 1
;DATA
MEr!ORY
PAGE 2
;DATA
MEMORY
PAGE 3
;DATA
UEMORY
PAGE 4
;DATA
MEMORY
PAGE 5
;DATA
ME!10RY
PACE 6
;DATA
MEMORY
PAGE
7'
322
;
EX'I'EBl'fAL
RA!I m:MORY
PO
lIfTERS
323
;
324
RGPTR
EQ.U
128
,REGISTER
TABLE
POIrrrER
<lte
-BaPH
)
325
RGTOP
EQ.U
326
;
RGTOP+
1
327
IOPTR
GU
328
RCPTR+3Fl1 <
A.
TlmtR.
PSW.
PCl..
PCB>
RGP'm+45R
;
I/O
TABLE
POIlfI'ER<P0,Pl.P2.P3>
;P3
BIT9=T0.BITl=Tl,BIT2=~ANK.BIT3=EXEI
;BIT4=~~TING,BIT5=TF,BIT6=TRUN.BIT7=CNTR
329
330
BXPT.R
EQU
IOPT.R+4K
;BREAK
POUlT
TBL
P()INTER"B0-T
EACH
TWO
BYTE
331
AXPTR
EQU
BXPTR+16
332
RNPTR
Eau
AXPTR+
1
333
P2PTR
EQU
P~TR+l
334
KONRT
EQU
P2PTR+l
333
ASPTR
EQ.U
~OlfRT+
1
336
RGffAX
EQU
IOPT.R-l
337
lOMAX
EQU
BXPTR-l
338
BXMA.X
EQ.U
AXPT.R-l
339
Ala-IAX
tQU
AXPTR
340
P2l\L~~
EQ.U
P2PT.R
341
ASt:IA..~
EQU
ASPTR
342
m:rIAX
EQ.U
0FFH
343
;*-*-*-*-*-*-*-*-*-*-*
344
;
345
;
I.NTElU1AL
RAM
MEMORY
PO
llI'I'ERS
;ACCESS STATUS
;
MON
FLAG FOR
RUN
REAL TIME
;P2
MAP
;
PO
INTER FOR
BREAK
ROUTINE
.reP
;
I/O
ASSIGNMElfT FLAG
TBL
ISIS-II
!1CS-4tvUPI-41
MACllO
ASSDfBLE1\.
V2.0
PROHPT-48
S'YSTEM
HOlflTOR
V3.
0
6MBZ
PAGE
6
Loe
OBJ
003F
0038
0037
0036
003~
0034-
0033
0032
0031
0030
002F
002E
002D.
002C
002B
002A
0029
0028
0027
0026
0025
0020
0000
00FF
0000
00FF
000D
000A
00C0
00F9
00A4
00BO
0099
0092
0082
00F8
0080
0098
0088
0083
00C6
00Al
0086
008E
00C2
000E
00FF
SEQ.
SOURCE
STATEMENT
346
;
347
IMTOP
EQ.U
3FH
348
DIPTR
EQU
38H
349
DICNT
EQU
DIPTR-l
350
DPMSK
EQ.U
DICNT-l
351
UPLMH
EQ.U
DPMSK-l
352
UPLML
EQ.U
UPLMH-l
353
WRKH
EQ.U
UPLML-I
354
WRKL
EQ.U
WRKH-l
35~
WRKIH
EQ.U
WRKL-t
356
WRKIL
EQ.U
WRXIH-l
357
WRK2H
EQ.U
WRXIL-l
358
WRK2L
EQ.U
WRK2K-l
359
WRK3H
EQ.U
WRK2L-l
360
l'iRK3L
EQ.U
'\oIRK3H-I
36
1
BASER
EQ.U
WRK3L-l
362
BASEL
EQ.U
BASEH-l
363
ENODE
EQ.U
BASEJ
..
-l
364
B lASH
EQ.U
E1IIODE-
1
365
BIASL
EQ.U
BIASH-l
366
CKSUM
EQ.U
B
IASL-l
367
PIWYTE
EQ.U
CKSUM-l
368
nmOT
EQ.U
20H
369
;*-*-*-*-*-*-*-*-*-*-*
370
;
; INTERNAL
MEl'IORY
1'OP
;DISPLAY BUFFER POINTER
;DISPLAY REFRESH
COUNT
;DISPLAY
DECI~
POINT
MASK
; UPPER
LIMIT
ADDilESS
HIGH
;UPPER
LIMIT
ADDRESS
LOW
;WORKING
ADDRESS
HIGH
;
WORKING
ADDRESS
LOW
;WORKING
ADDRESS
HI
;
WORKING
ADDRESS
LOW
;
WORKING
ADDRESS
HI
;
WORKING
ADDRESS
LOW
;
WORKING
ADDRESS
HI
;
WORKING
ADDRESS
LOW
;SOFTWARE
I10DE
CONTROL
;BIAS
ADDRESS
HI FOR
READ
; BIAS
ADDRESS
LOW
FOR
READ
;
CHECK
SUM
FOR
READ
AND
wRITE
;
PROMPT
CHAR
FOR
SERIAL
I/O
;
INTERNAL
NEJ.lIORY
BOTTOM
371
;1II0DE
FLAG
VALUES
FOR
DATA
PROCESSING
372
,
373
PlEMMD
EQ.U
0 ;
E/I'!
MEMORY
MODE
374
RECMD
EQ.U
«NOT
MEmm)AND 0FFH)
;E/M
REG
MODE
375
;*-*-*-*~*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
376
;
377
; CONDITIONAL
ASSEPtBLY
SWITCHES
378
; o
379
FALSE
EQU
380
TRUE
EQ.U
381
; ( (NOT FALSE)
AND
0FFR>
382
;GLOBAL
DEFINITIONS
383
;
384
CR
385
LF
386
387
;.
388
389
390
391
392
393
394
395
EQU
EQ.U
A
0DfI
0AR
F.
. B
• G •
E . • C
D
;
ASCII
VALUE
OF
CARRIAGE
RETURN
;
ASC
I I
VALUE
OF
LINE FEED
396
-------------------------
397
398
399
,
400
DC0
401
DCl
402
DC::!
403
DC3
404
DC4
405
DC5
406
DC6
407
DC7
408
Dca
409
DC9
410
DCA
.
411
DeB
412
Dec
413
DCD
414
DCE
415
DCF
416
DCG
417
DCES
418
DCEL
EQ.U
.EQ.U
EQU
EQ.U
EQ.U
EQU
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQU
EQ.U
EQU
EQU
EQU
EQU
EQU
EQ.U
.CFEDCBA
---~---
1100000013
11111001B
10100100B
.
10110000B
10011001B
10010010B
10000010B
11111000B
10000000B
10011000B
10001000B
10000011B
11000110B
10100001B
10000110B
10001110B
11000010B
00001110B
11111111B
;'
0'
; , 1 •
;
t2t
; t
3'
;
'4
t
;
'5'
;
'6'
;
'7'
;
'a'
;
'9'
; ,
A'
;
'B'
;
'C"
;
'D'
;
'E'
;
'F·
;
'G'
;
'ESC'
;'
,
IS
IS
..
I I
!!CS-48/UPI
-41
MACRO
ASSEl!IBLER.
va.
e
PROMPT-48 SYSTEM
MON
lTOR
V3.
e 6l'Jl1Z
PAGE
LOC
OBJ
ee7F
0eCl
00C7
0089
008C
00A7
0eAD
00A3
00E3
00AF
eoBF
00B7
0000
0001
0002
0016
0017
0010
0011
e013
0012
0000
0000
0000
15
0001
240D
0003
A4Cl
0007
0007
MC1
0009
449C
00(}B 449C
000D 44A4
000F
00
0010
0010
35
0011
1413
0013
05
0014
90
0015
42
0016
90
0017
F9
0018
90
0019
F8
001A
90
001B
001B 0A
001C
90
SEQ
419
DCP
420
DCU
..
21
DCL
422
DCH
423
DCpe
424
DCLCC
425
DCLCH
426
DCLCO
427
DCLCU
428
DCLCR
429
DCDSH
430
DCEQ
431
;
SOURCE
STATEMENT
EQ.U
EQU
EQU
EQ.U
EQU
EQU
EQU
EQ.U
EQU
EQU
EQU
EQU'
01111111B
11000001B
l1000111B
10001001B
10001100B
10100111B
10101011B
10100011B
11100011B
10101111B
10111111B
10110111B
432
;
ENCODED
KEYBOARD
CHAR
VALUES
433
;
434
D8748
'EQU
0
435
D8741
EQU
1
436
D8755
EQU
2
437
NEXT
EQU
16H
438
EXECUTE
EQU
17R
439
PREV
EQ.U
10H
440
PRCKY
EQU
I1H
441
RECKY
EQ.U
13R
442
DA1rAY
EQU
12R
.'
,
, .
~
'U'
;
'L'
f
'II'
; t
P'
;
'LCC'
;
'LCH'
! 'LCO'
; 'LOU'
;
'LCR'
•
,,_
t
,
; , = t
443
;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
444
;
445
;BECIN
PROCRAM
446
447
448
449
450
451
452
SY3HlIZ SET
PACE
1 SET
DIS
JHP
I
HUT
FALSE
FALSE
453
;
EXTElU"fAL
INTERRUPT
VECTOR
454
455
456
457
458
SAllE0:
459
UBKS:
460
461
462
463
464
JHP
ORC
JHP
JHP
JHP
JHP
DB
REFSH
7H
REFSH
o
RETGO
RETSS
RETGS
465
;
El'fI'RY
PO.INT
FROM
USER
PROGll.ut
466
467
468
BREAK:
469
470
ORC
DIS
1eH-
TeNTI
471
;
SAVE
PROCRAM
COUl'l'TER
ON
STACK
472
473
474
SAVPC:
475
CALL
SAVPC
;
INITIALIZE
SYSTEM
HEM
AND
I/O
;GO
TO
DISPLAY'
REFRESH
DRIVER
;<PC
= PC+3>
476
;SAVE
REG
CONTEl'IT
IN
TEl'IP
LOCATIONS
IN
EXT
BAr!
477
4178
479
480
481
482
483
484
485
486
R0T1.IP
487
488
489
SEL
HOVX
HOV
MOVX
MOV
~IOVX:
~IOV
~IOVX
EQU
IN
MOVX
Ra0
@R0,A
A,T
@lR0,A
A.R1
@lR0,A
A,RO
@RO,A
$
MID
0FFlI
A,P2
@R0
tA
490
; SET
UP
FOR
REG
TABLE
EJ.'ITRIES
;<A>
; <TIMER>
;<R1>
;<
R9>
;
TE~:IP
STORAGE
USED
DURING
BREAK
;<P2>
49
1 ;
NOPS
ARe
TO
MOVE
THE
MEM
BANK
CHECK
CODE
OUT
LOC
OBJ
0UID
0U
08IZ
90
0tHl
8U
0020
00
0U21
27
0022
8428
0024
60
0025.
00
0026
27
0027
83
0028
9A.F0
002A
8A01
00:';:C
BaCS
002E
4329
8030
1634
0032
:S3Dl
8034
26~8
00~6
4301
0038
463C
003A
4302
Q03e
A9
003D
8Q
003E
3380
8840
49
0041
90
0042
BaBl
0044
B931
0046
11
00""7
90
0048
CS
00""9
E9""6
"""B
B91B
00""D
81
004E
90
""'"
C9
0050
C9
00lS 1
18
0052
81
0053
90
005""
B8CI
0056
B192
0058
C9
0059
C9
005A
81
005B
90
005C
ca
005D
usa
0951
B91D
0061
BaC7
0063
81
006""
90
0065
C8
PACE
8
SEQ
492
;
01
T.BE
AREA
WBEBE
PROGRAM
ADDaESS
ARE
FORCED.
493
494
491$
496
497
498
499
300
1'I'0P
1'I'OP
1'I'OP
1'I'OP
CI.R
JlIP
A
MBIRT
501
;ALIGN
ClCl!IB
AT
AN
ADDRESS
CORllESl»Ol'fDLNC
TO
CXMB
IN
l'!Bl
502
503
504
303
cxam:
506
507
508
MB1RT:
509
310
511
512
NOP
NOP
CLR
RET
Al'I'L
ORL
MOV
A
P2,#MSXPG
P2.#MEPGl
Re ,
...
IOP'rRi'3
513
;BUILD
113
COl'M'ENT
IN
<A>
BO"'T0,Bl=TI
31""
515
516
517
518
TFt:
319
~529
521
NT0:
522
.523
524
NTl:
525
526
327
528
529
330
ORL
JTF
ANL
JNT0
ORL·
JNTI
ORL
MOV
MOVX
Al'I'L
ORL
MOVX
NTl
A,#2
Rt,A
A,@M
A,#80&
A,Rt
@RO.A
;<1'3>
531
;SET
POIrrrE...1:!S
FOR SAVIl'I'G
Il'fT
REGS
532
533
534
535
UBKl:
536
537
538
539
540
l'lOV
MOV
MOV
MOVE:
DEC
DJNZ
Re,ol'RGTOP
RI,#ImoP
A,eRl
@M,A
R0
Rl.UEKI
;SAVE
Il'f!ERl'fAL
REGIS'l"EllS
541
;GET
REG
COlfI'E!fT
ramI
TD'lP RA!!
LOC
Al'ID
SAVE
IN
REG
TBL
542
543
544
345
546
3""7
548
549
550
551
352
553
UEX2:
554
555
556
557
558
559
560
561
562
563
564
MOV
MOVX
MOW
DEC
DEC
INC
~lOVX
MOW
MOV
MOV
DEC
DEC
MOVX
MOVX
DEC
DJNZ
MOV
MOV
HOVX
novx
DEC
Rl
• #R0Tl'!P
A,@Rl
eR9.A
Rt
Rl
R0
A,@Rl
@Re.A
Re,
"'RGTOP+2
R7,#2
Rl
Rl
A,8Rl
@RO.A
ru>
R7,UBIQ
Rl
• #R0TI1P+2
R0,#IOPTR+2
A.@Rl
;<R0>
;<Rl>
;<Tlm:R.A>
;<1'2>
".
ISIS-II
MCS-48/UPl:""'l
MACRO
AS8zr:'1BLER.
V2.D
PROMPT-cia SYSTEl! HONITOR
va.&
6D4'~
LOC
OBJ
SEQ
SOURCE
S'i'A:i'Ema~.
0066
09
0067
90
565
566
;CET
PI
VAL
AND
SAVE
IN
TBL
567
568
569
IN
MOVX
A.Pl
eR0,A
PACE
;<Pt>
570
571
572
573
574
575
;
CX:
IF
USER
IS
SERVIC
INC
AN
Il'n'ERRUPT
OR
;
IF
USER EXT
INTERRUPTS
ARE·
ENABLED
0068
27
0069
B837
006B
A0
006C
D5
006D AF
006E
C5
006F B808
0071 9Alf0
0073
8A0a
007a
23FF
0077
90
0078
9M0
007A 8A01
007C
D5
576
577
578
579
580
581
582
583
584
585
586
587
588
589
I
ENABLE
REFRESH
INTERRUPTS
CLR
MOV
MOV
SEL
!tov
SEL
!10V
ANL
ORL
MOV
MOVX
ANL
OR!..
SEL
A
R.O,IDICNT
GR0,A
RBI
R7,A
M0
R9,#P0LIN
P2.
#rr..sla"C
P2.
#l'1EIOU
A,#TRUE
@RO,A
P2.#MSKPC
P2,#MEPCl
RBI ;
SELECT
RArI
m:MORY
PACE
1
590
;R7
=
FY
=
NOT
NESTED
BUT
EN
I
TRUE
007D
FF
~07E
C5
007F B908
0081
9697
0083
2318
008a
14FD
0087
D5
0088
FF
0089
C5
008A
A9
008B 15
008C
14FD
008E
BBCB
0090
1426
0092
E5
0093
AA
0094
80
0095
4A
0096
90
0097
15
0098
F2A5
009A B8CI
009C
42
009D
AA
009E
80
009F
DA
00A0
AA
00AI C6A5
00A3
BA40
00A5
65
00A6 16A8
00A8
Bacs
00M
89
00AB
49
60AC 4A
00AD
90
591
592
593
594
595
596
397
598
599
MOV
BEL
MOV
JNZ
MOV
CALL
SEL
A,R7
RIl0
Rl,
ISH
UBK9
A,#IGH
RESTORE
RBI
600
~
R7 = FF =
NESTED
AND
EN
I
TRUE
601
602
603
604
605
606
607
NOV·
SEL
lIOV
DIS
CALL
A,R7
RBO
Rl,A
I
RESTORE
608
; CHECK USER
r!EM
BANK SELECT
609
610
611
612
613
614
615
616
617
UBK9:
618
619
620
621
622
623
624
625
626
627
628
TRUI'{:
629
630
63
1 TRUl'Tl:
632
633
634
635
636
C
.
MOV
CALL
SEL
MOV
MOVX
OR!..
~10VX
DIS
JB7
nov
MOV
MOV
MOVX
XRL
MOV
JZ
MOV
STOP
JTF
IIIO\'
MOVX
OR!..
ORL
rIOVX
RO,#IOP'm+3
CKMB
MB0
R2,A
A,@R0
A,R2
@R0,A
I
TRUN
R0,#RCTOP+2
A,T
R2.A
A,@R0
A,R2
R2.A
TRUN
R2,#40H
TeNT
TRUNt
R0. #
IOPTR.+3
A,@R0
A,R1
A,R2
@RO,A
;
CLEAR
ANY
l'fESTlNC
;SAVE
USER
lNT
STATUS
Am)
TRUN'
FLA
ISIS
....
II
lI1CS-4&fUPI
....
l
J!ItACBO
ASSEl'1BLEll.
V2.0
PAGE
1.
PBOPIPT-48
S'YSTE!l
MONITOR
V3.0
6l'1B%
LOC
OBJ
SE.Q.
SOUBCE
STA'I'DENT
00n
14FD
637
CALL
RESTORE
;
CLEAR
ABY
NESTING
638
·639
;
COHPll'l'E
STACK
ADDRESS
640
00S0
C7
641
1II0V
A.PSW
00Bl
07
642
DEC
A
00B2
3307
643
Al'fL
A.#711
00B4
AA
644
lIIOV
R2,A
00B3 E7
645
RL A
00B6
0308
646
ADD
A,-8
00B8
A9
641'
.HOV
Rl,A
;POINT
TO
ADDRESS
ON
STACK
648
649 ;
GET
USER
PC
FOM
STAClt
650
80S9
Fl
651
.HOV
A,ORI
;LOW
PC
80BA
AC
.
652
l'1OV
R4,A
80SB
19
653
INC
Rl
80BC
Fl
654
1II0V
A,aRI
;111
PC
008D
AE
655
1II0V
R6,A
;SAVE
PSW
NIBBLE
00BE S30F 656
Al'fL
A.-0FR'
;MASK
PSW
80C0
AD
657
1II0V
M.A
658
659 ; INITIALIZE
IrrrERNAL
RAM
FOR
l1Ol'fITOR
.
660
00Cl
27
661
CLR
A
80C2
D7
662
1II0V
PSW.A
;
CLEAR
SP
A1ID
BEL
1m0
00C3 F5
663
SEL
MBI
664
665
;
DEC
USER
PC
3
TIMES
666
00C4 Ba04
667
PIOV
.
R0."4
80C6 BF03
668
"MOV
R7,#3
00C8 8479
669
CALL
DEDBL
670
671
;SAVE
USER
PC
IN
REG
TBL
672
00CA
BSC4
673
.HOV
R0,
#l\CTOP+5
0ecc
FD
674·
.HOV
A,1\5
00CD
90
675
.HOVX
OR0.A·
;<PCB>
00CE
FC
676
1II0V
A,R4
00CF
08
677
DEC' 1\0
00D0 90
678
1II0VX
@RO,A
;<PeL>
00Dl
C8
679
DEC
R0
680
681 ;
ADJUST
SP
IN
USER
PSW
682
80D2
FE
683
l'IOV A,R6 ;GET
PSW
UPPER
NIBBLE
80D3 53F0
684
Al'fL A,#0F011
00D5
4A
683
OaL
A,ft2 ;<SP>
686
687
;
INSERT
F 1
IN
USER
PS~(
688
00D6
B3
689
CPL
Fl
80D?'
7608
690
JFl
UBK3
00D9
4308
691 Om.
A,#8
;FLAG
1 = t
692
UBK3:
693
694
I
SAVE
USER
PSW
695
00DB
90
696
.HOVX
sRO.A
;<PSW>
697
698
;GET
PO
LATCII
VAL
Al'fD
SAVE
IN
TBL
699
00DC
8446
790
CALL
INIl
00DE
4380
701
OaL
A.#80R'
00E0 90
702
MOVX
@R0,A
00El
B808
703
MOV
RO,#POLIN
00E3
80
704
PIOVX
A.@R9
00E4 9Ar0 705
ANI.
P2,#MSKPG
00£.6
8AOI
706
OaL
P2,#MEPGl
00E8
B8C5
707
1II0V
R0,#IOPTR
00EA
90
708
now:
@R0,A
00ES 8446 709
CALL
INIl
.....
lSIS-Il
lICS-48I'UPI-41
MACRO
ASSEMBLER.
W.O
PROfJPT-48
S'YSTEl'f
MONITOR
VS.O
6l'IBZ
PAGE
11
LOC
OBJ
eOED
94ED
00EF
E5
00F0
9AFO
00F2
8A01
00F4
B8De
00F6
80
00F7
03FA
00F9
B3
00rA:
09
00FB 0B
00FC
0D
00FD
93
00FE
F5
00FF
B406
0101
B95B
0103
D44B
0105
2345
0107
B825
0109
A0
010A
E5
010B
245B"
010D
35
010E
9AFO
0110
8A0S
0112
B821
0114
23CF
0116
90
0117
2327
0119
90
0llA
2325
011C
90
011D
F4M
0llF
B820
0121
80
0122
BF04
0124
B8D9
0126
9AF~
0128
8AOI
012A
27
012B
90
012C
18
SEQ
SOURCE
STATEMENT
710
711
712
CALL
SEL
BLKI
lm0
;
IN
IT
DISPLAY
TABLE
713
;FIND
WHITCH MONITOR COImAND
WAS
USED
AND
714
;RETURN TO THAT ROUTINE.
715
716
717
718
719
720
721
722
UBK6:
723
724
725
726
An
ORL
MOV
MOVX
ADD
JMPP
DB
DB
DB
P2,#MSKPG
P2,#MEPGl
RO,
#MONRT
A,@R0
A.
#UBK6
Am)
0FFH
EtA
« UBK5+0) AnD OFFH)
( (UBK5+2)
AND
0FFH)
( (UBK5+4)
AND
0FFH)
727
IF
«SAME0
AND
0FF00H)
LT
( S
AND
0FF00B»
728
MOV
A,SPERR ;SAfJE PAGE
ERROR
729
ENDIF
730
731
RESTORE!
732
RETR
733
;
END
OF
BREAK ROUTINE
734
;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
735
;
ERROR
EXIT.
736
;
THIS
ABNORUAL
EXIT
IS
EXECUTED FOR
ALL
MONITOR
ElmOR
CONDITIONS.
737
;
DISPLAY
ERR IN
COMMAND
FIELD
738
;
739
ERROR:
740
741
742
743
744
ERRW:
745
746
747
748
ERRl:
749
750
751
SEL
CALL
nov
CALL
MOV
nov
MOV
SEL
JMP
MDI
BLKAD
RI,#ERTBL
AND
oFFH
MESG
A,#'E'
RO,#PRBYTE
@RO,A
MHO
CMDEl
752
;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
753
;
INITIALIZE
SYSTEM
~1IDIORY
AND
I/O
754
;
755
INIT:
756
757
758
759
DIS
ANL
ORL
760
;
INIT
USART
761
762
763
764
765
766
767
768
769
770
771
772
MOV
MOV
MOVX
MOV
MOVX
MOV
MOVX
CALL
MOV
MOVX
TeNT
I
P2,#MSKPG
P2,#MEIOU
R0,#USACT
A,#MODE
@RO,A
A,#TADV
@R0,A
A,#COMD
@RO,A
DELAY
RO,#USADA
A,@RO
; SELECT
MEMORY
MAPPED
I/O
;
IlUT
USART
MODE
;INIT
US~~T
CO~~
;
nnT
USART
COMMAND
773
;
INIT
MONITOR
FLAGS
IN
Eh.'TElU'fAL
RAI1
774
775
776
777
778
779
780
nn3:
781
782
MOV
~IOV
ANL
ORL
CLR
MOVX
nrc
R7,
#(
(MONRT -
R0,#AXPTR
P2.#f:1SKPG
P2,#MEPGl
A
@RO,A
RIi)
A..'n'TR) + 1 )
; SELECT
RAM
MDZORY
PAGE 1
ISIS-II
MCS-46/lJPI-41
MACRO
ASSEMBLER.
W.0
l'ROMPT-48
SYS1'.E.P1
MONITOR
V3.0
6l'1BZ 12
LOC
OBJ
012D
EF2B
012F
B6C2
0131
Br03
0133
90
0134
18
0135
£F33
0137
37
0138
Br03
0l3A
90
013B
18
0l3C
£F3A
0l3E
37
.,
013F
90
0140
BaDD
0142
2380
0144
90
0145
F5
0146
B42E
0148
94F2
014A
B96E
014C
D44B
014E
E5
014F
2456
0151
F5
0152
94F2
0154
946E
0156
232D
0158
8825
015A
A0
015B
F5
015C
74FA
01SE
8446
0160
7·110
0162
233F
0164
B825
0166
A0
0167
F5
0168
27
0169
D7
016A
B49F
016C
BB2A
016E
B4Al
0170
B90F
0172
B495
0174
94ED
0176
E5
0177
FE
0178
03SF
017A
AS
0l7B
0359
SEQ.
SOURCE
STA.TEME.1IfT
783
784
785
786
INI4:
787
788
789
790
791
792
UrIS:
793
794
795
796
797
798
799
800
801
DJNZ
MOV
MOV
MOVX
INC
DJNZ
CPL
MOV
MOVX
INC
DJNZ
CPL
fIOVX
HOV
MOV
MOVX
R7,
un3
R0,
#RGTOP+3
R7,#3
@!R0.A
R0
R7,
1l'f14
A
R7,#3
@!R0,A
R0
R7,INI5
A
@R0,A
R0,#ASPTR
A.,#80H
@lRO,A
;
ZERO
NFu"'IT
RA.l1
toe
; < PSW,
PCL,
PClI>
;<1'0,
PI,
P2>
;<1'3>
802
;
IlUT
PPI
AND
:MACHINE
STATE
803
804
805
806
607
808
809
810
811
812
SEL
CALL
CALL
MOV
CALL
SEL
JMP
;ALL
DONE
lim
1
INIPPI
BLANK
R1,#INTBL
AND
OFFH
HESe.
MB0
CMDMD
813
;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
814
;MAIN
COMMAND
LOOP.
815
;
THIS
LOOP
IS
THE STARTING
POINT
OF ALL
COMMAND
SEQUENCES.
816
; IN
THIS
CODE
THE PROMPT
CHARACTER
IS
DISPLAYED.
817
;WHErr
A CHARACTER
IS
ENTERED
FROM
THE CONSOLE KEYBOARD,
IT
813
;
IS
CHECKED FOR VALIDITY, TBElf A BRANCH
TO
THE PROPER
819
;PROCESSING ROUTINE
IS
COl'lPUTED.
820
;
821
CMDLV:
822
823
824
825
SEL
CALL
CALL
HBl
BLANK
PlUlPT ; PROMPT FOR
COMMAND
826
;
TURN'
ON
REFRESH ENABLE
827
828
CHDMD:
829
830
831
832
CMDE1:
833
834
835
836
837
CMDEN:
838
839
840
841
842
843
844
845
846
847
848
349
850
851
852
SAl1El:
853
854
855
:MOV
MOV
HOV
SEL
CALL
CALL
CALL
MOV
MOV
MOV
SEL
CLR
MOV
CALL
MOV
CALL
MOV
CALL
CALL
SEL
HOV
ADD
~lOV
ADD
A,#'-'
RO.#PRBYTE
@lR0,A
MBl
ENRFS
nUl
GETKB
A,#'?'
R0,#PRBY'I'E
@lR0,A
MBl
A
PSW.A
SEWKO
R0.#BASEL
SET00
Rl,#OFR
SEULX
BLK!
MBO
A.R6
;
GET
KEYBOABD ClIAR
; CLEAR STACK
PTR
;BIJU~
THE
DISPLAY
A.
#(
BRTBL
Al'ID
0FFID
RO,A
A.#(-BRTCH)
AND
OFFR
LOC
0&1
817D
F656
817F
F8
8180
A3
0181
0328
8183
M3r
818:5
AA
8186
AS
8187
Al
8188
C9
8189
lA
018A
FA
818B
AS
818C
Al
818D
F8
018E
B3
818F
A7
8198
A9
8191
AB
8192
AD
8193
AF
8194
Bl
8193
B3
8196
B5
8197
B7
8198
B9
8199
BB
819A
BD
819B
BF
819C
Cl
019D
C3
8l9E
C5
819F
en
8lA8
CD
81Al
CD
81A2
CD
81AS C9
81A4
C7
81M
CB
81.A6
CB
81A7
04FE
8lA9
04FE
81AB
MrB
81AD
M18
01M
6421
81B1
44FF
01.83
24F7
01B5
A401
81B7
84EI
81B9
M4F
81BB
A424
81BD
4415
8lBF
84E7
OICl
E406
0lC3
C469
81C5
84E4
01C7
4488
0lCc)
649E
0lCB
24;)1
PAGE
13
SOURCE
&TATEMElM'
JC
CMJ)MD
:noV
A,R0
:novp
A,@lA
SEQ,
8G6
857
858
851}
860
861
862
863
864
865
866
867
868
·869
870
871
872
873
874
875
876
ADD
A,#(CDTBL
-
BRTCDO
AND
8FFK
:noV R1,#DIPTR.+7.
NOV
B2,
A
l'lOVP
A,eA
.
NOV
ORl,A
DEC
Rl
INC
R2
MOV
A,R2
MO\'P
A,eA
MOV
ORl,A
MOV
A.R8
JMPP
OA
;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
;comwm
BIW.'fCH TABLE.
;
;TJ:tIS TABLE CONTAINS THE El'fTRY POINTS
OF
;ALL
THE
COMMAND
PROCESSING ROUTINES.
NOTE
TlIAT
AN
ENTRY
TO
'ERROR
,
877
;
IS
AN
ERROR
CONDITION,
I.E
••
NO
COMMAND
CORRESPODING
TO
'I'lfAT
878
; CHARACTER
EXISTS.
879
;
880
BRTBL:
881
DB
(BRTCH + 8 )
AND
0FFH
882
DB
(BRTCH + 2 )
Al"fD
0FFH
883
DB
(BaTCH
+ 4
~
)
AND
0FFH
884
DB
(BRTCH + 6 )
AND
8FFH
885
DB
(BRTCH + 8 )
AND
8FFH
886
DB
(BRTCH + 10 )
AND
0FFH
887
DB
(BRTCH + 12 )
AND
0FFH
888
DB
(BRTCH +
14)
AND
0FFH
889
DB
CBRTCH
+
16)
AND
0FF1I
898
DB
(BRTCH +
18)
AND
8FFH
891
DB
CBRTCH
+
28)
AND
8FFH
892
DB
(BRTCH +
22)
AND
0FF11
AX
POINTS
893
DB
CBRTCH
+
24)
AND.0FFII
894
DB
(B~rcH
+
26)
AND
0FF1I
895
DB
(BRTCH +
28)
AND
0FFH
896
DB
(BRTCH +
30)
AND
0FFH
897
DB
(BRTCH +
36)
AND
0FF1I
898
DB
CBRTCH
+
38
)
AND
0FF1I
899
DB
(BRTCH +
38
)
AND
0FFH
900
DB
(BRTCH +
38
)
AND
0FF11
901
DB
(BRTCH +
34)
AND
0FFH
902
DB
(BRTCH +
32)
AL'I'D
0FFH
903
DB
(BRTCH
~
36)
AND
0FFH
904
DB
CBRTCH
+
36)
AND
0FFH
905
906
BRTCH:
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
TS
JlIfP
JMP
JMP
JMP
JMP
JMP
JMP
JMP
.mp
JMP
JMP
JMP
JMP
Jl'IP
JMP
Jl'IP
·JMP
JMP
JMP
ERROR
ERROR
P2DEF
PROm
SEARCH
WDSEAR
BEXAR.
PROMP
COl'JPARE
MOVE
ACCES
BRKPT
CLEAR
WRITE
READ
FETCR
COCrlD
DICm>
C1IDLV
;ERROR
'0'
;ERROR '
I'
,P2DEF
'2'
PORT 2 MAPPING
;
PROMS
' 3 '
PROO
PROM
8755-8751
;
BYSEARCH
' 4
'SEARCH
MEMORY
I
WDSEARCH
'
5'
SEARCH
MEMORY
;BEXAR
'6'
HEX
ARITmfETIC
;PROMP
'7'
Pl\OG
PROM
8748
;COMPARE
'S'
COMPABE
PROM.
;
MOVE
'
9'
MOVE
MEMORY
;
ACCES
'
A'
SET USER
ACCESS
; BRKPT '
B'
SET
AND
CLEAR
USER BllE
;CLEAR
'C'
CLEAR
BUFFER
;WRITE
'D'
(DUMP)
WRITE
TrY
;
READ
'
E'
(ENTER)
READ
TrY
; FETCH '
F'
'l'RANSFER
PROM:
TO
RAM
; CHDLV PREVIOUS
DELIMITER
;RT
OR
PROO
;
W/BK
OR
DATA
ISS
OR
REG
;EXAlUNE
MODIFY
;
GOCMJ)
,
GO
'
;
NEXT
;CHDLV
EXECUTE
DELIM:lTER
;
'8'
; , 1 •
;
'2'
; ,
3'
;
'4'
; ,
5'
;
'6
to
;
'7·
;
'·8'
;
'9'
;'
A!
;
tB'
PORT
2.
lIIAl'PING
PROG
PROU
8755-8751
B'i"SEARCH
MEMORY
WDSEARCH
MEMORY
HEX
ARITJ:tMETIC
PROG
PROM
8748
COMPARE
PRon
MOVE
ME:MORY
SET
USER ACCESS
SET
AND
CLEAR USER
BREAK
POIN
; ,
C'
CLEAR BUFFER
;
'D'
(DUL-IP)
WRITE
TrY
;
'E'
(ENTER)
R.E.\D
TTY
; •
F'
TRANSFER
PROM
TO
RAn
; 'GOt
; •
E.",{'
EXAMINE
IIIOD
IFY
;
NEX1',
E.~CUTE,
PREV
IOUS
ISIS-II
MCS-4&'UPI-41
nCRO
ASSEl'IBLER.
W.0
Pl\OMPT-48 SYSTEl"!
MON
ITOR
V3.
0
6MBZ
PAGE
'14
LOC
OBJ
0tCD
04FE
0lCF
Cl
01D0
Al
01Dl
Cl
01D2
Al
01D3
8C
011)4 A4
01D5 8C
01D6 AF
01D7
92
01D8
F9
91D9
92
01DA
A4
01DB
89
01DC
86
01DD 8C
01DE
AF
0lDF
C6
01EO
A3
01El
AS
01E2
FF
0lE3
88
01E4
A7
0lE5
83
01E6
AF
91E7
C6
01E8
1F
91E9
Al
01EA
FF
9lEB
AF
01EC
FF
OIED
8E
01EE
8C
91EF
C2
01F0
FF
91Fl
86
01F2
FF
01F3
BF
01F4
FF
01F5
Cl
01F6
Al
01F7
F5
0lFS
BA00
.
01FA
74D0
01FC
74D~
eiFE
B804
0200
B932
0202
94DA
0204
B905
0206
9476
SEQ.
SOURCE STATEMEl'fT
926
Jl'1P
ERROR
;'PROC,REC,l)ATA'
927
928
CDTBL:
929
DB
DCU,
DCD
;
ERROR
'0'
930
DB
DClI.
DCD
;
ERROR
'1'
931
DB
DCPC.DC2
;P2DEF
'2'
PORT 2
~PINC
932
DB
DCPC.DCLCR ;PROM5
'3'
'PROG PROM'
8755-8751
933
DB
DClS,
DC
1 I BYSEARC1l
:MEMORY
•
4'
934
DB DCS, DC2 ;
WDSEARClI
:MEMORY
'5'
935
DB
DCH,DCE ;HEX
AIUTIlMETIC
'6'
936
DB
DCPC,DCLCR
;PROMP
'7'
'PROC PROM'
8748
937
DB
DCC,DCLCO
;COMPARE
'S'
'COMPARE PROM'
938
DB
DCLCM. DCBL ;
MOVE
ME210RY
• 9 '
939
DB
DCA.
DCLCC
;
ACCES
'A'
SET USER
ACCESS
940
DB
DCB,DCLCR
;BRKPT
'B'
SET
AND
CL&\R
USER
BREAK
POINTS
941
DB
DCC, DCBL ; CLEAR • C ' CLEAR BUFFER
942
DB
DCD,DCBL ;WRITE
'D'
(DUMP)
WRITE
TTY
943
DB
DCLCR, DCEL I
READ
'E'
(
ENTER>
READ
TTY
944
DB
DCF,
DCPC
; FETCH
'F'
TRANSFER
PROM
TO
RAM
945
DB
DCC, DCBL ; caCm>
'GO'
946
DB
DCE,DCBL
;EI1CMO
EXAMINE
MODIFY 'E.,,"{'
947
DB
DCDSH.DCBL
;C~mLV
NEXT.
EXECUTE ,PREVIOUS
94S
DB
DCU,DCD ;ERROR
'PROC,REG,DATA'
949
950
IF
«SAlIIEt
AND
0FF00H)
LT
(
51
AND
0FF00ID
)
951
~IOV
A,SPEBR
;SAME
PAGE
ERROR
952
END·IF
953
954
;END
BRANCH
TABLE
955
;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
956
;HEX ARITHMETIC
957
;COMPUTE
~~ECIHA.L
SUM
AND
DIFFERENCE.
958
;
959
;TRIS
ROUTINE EXPECTS
TWO
HFXADEClMAL
PARAME'I'ERS.
960
;
IT
COMPUTES
'I'1IE
SUM AND
DIFFEMIiCE
OF
THE
TWO
VALUES
961
;AND DISPLAYS
THEM
AS
FOLLOWS:
962
;<Pl+P2>
,
<P1-P2>
963
•
964
BEXAR:
965
966
967
968
969
SEL
MOV
CALL
CALL
MB1
R2.#0
GTP0
GTP0
970
;DISPLAY
SUM
IN
ADDRESS
FIELD
971
972
973
974
975
976
977
MOV
MOV
CALL
MOV
CALL
RO,#4
Rl.
#w1Ua.
ADDBL
Rl,#5
DADDFL
978
;DISPLAY
DIFFERANCE
HT
DATA
FIELD
ISIS-II
MCS-4&'1lPI-41
l'fACll.O
ASSEl'fBLER.
V2.0
PROMPT-48
SYS'I'El'!
MONITOR
V3. 0
6HHZ
PAGE
US
LOC
OBJ
0208
0032
0201\ B930
920C 94D6
920E B933
0210
9486
0212
E5
9213
2456
9213 F5
0216
B834
0:J18
230F
021A B900
021C MA3
021E
B82A
0220
23C9
0222
B49B
0224
94B8
0226 D410
0228
323C
022A F63F
022C C631
922E
E5
922F 04FE
0231 BE10
0233
BC00
0235
F5
0236 D408
0238
B<;FD
023A EE35
023C
E5
023D
2451
023F
7408
0241
74~8
SECl
979
980
981
982
983
984
985
SOURCE
STATEMENT
MOV
nov
CALL
nov
CALL
R0
....
WRIa.,
R1.#WRK1L
SunBL
R1,#WRXII
DXXAD
986
;
ALL
DONE
987
988
989
990
SEL
JMP
MB0
CMDMD
991 ;*-*-*-*-*-*-*-*-*-*-*
992
;
BREAKPOINT:
-
993
;THE
BREAKPOINT
CmIMAND
ALLOW
ACCESS
TO THE
BREAKPOIl'IT
STATUS.
994
lErrrRY
OF
A
H,"
FOLLOWING
THE
ADDRESS
SPECIFICATION
995 ;
WILL
RETURN
THE
DATA,
WICH
MAY
BE
lIIODIF
lED.
OR
996 ;
PRESERVED.
AlfD
A
FURTHER".·
ENTRY
WILL
ACCESS
THE
997
;NEXT
ADDRESSABI.E
DATA.
BP.EAJ{POINTS
MAY
998
lBE
CLEARED
BY
ENTERING
TIlE
BREAKPOINT
NUMBER
999
;WITHOUT
AN
ADDRESS
ARGUlIlENT.
ALL
BREAKPOINTS
MAY
1000
;BE
CLEARED
BY
ENTERING
"BII
WITH
NO
ARGU1lENTS.
1001 ;
1002
BRKPT:
1003
1004 SEL
MB1
1905 ;SET PTR1VH =
VAL/VAIl
R0.#UPLML
A.#(BXM1\X-BXP11O
1006
1007
1008
1009
1010
1011
nov
nov
nov
CALL
1t1
•
#0
. ; EXl'
MEH
UPPER
LIMIT
PRSET
1012 ;SET PTRIL/H =
VAVMEPGl
1013
1014
1015
1016
1017
1018
1019
MOV
nov
CALL
CALL
CALL
R0.#BASEL
A,#BXPTR
SETPt
CAUDR
PUSH
; CET
ADDRESS
;SAVE
DELIMITER
1020 ; IF DELUIITER =
CLEAR
ENTRY
t'HEJ.'"1
ABORT
1021
1022
1023
JBt
BRK9
1024 ;
IF
ADDRESS
NOT
ENTERED
THEN
CLEAR
ALL
BREAK
POIl'I'l'S
1025
1026
1027 JC
BRKI
;
IF
ADDRESS
ENT
1028 ;
IF
DELUUTER
(>
EXEClITE
TBEl'f
ElUtOR
1029
1030
1031
BRA"'3:
1032
1033
1034
BIIX2:
1035
JZ
SEL
Jl'IP
BRK2
l'm0
ERROR
1036
;CLEAR
ALL
BREAK
POINTS
1037
1038
1039
BRK10:
1040
1041
NXBRK:
1042
1043
1044
1045
1046
BRK9:
1047
1048
1049
BRKl:
1050
1051
MOV
MOV
SEL
CALL
CALL
DJNZ
SEL
JNP
CALL
CALL
R6,#«BmAX
-
R4.#0
MBl
STOlVK
HfWRK
R6.N¥BRK
MBO
C1IDLV
El'rsBl
EMSBI
;NO
ERROR
BXPTR)
+1)
;ALL
DONE
;MULTIPLY
BY
2
ISIS-It
MCS-48I'WI-41
MACRO
A..CSEl'lBLER.
w.e
PROMPT-4S
SYSTDf
MONITOR
V3.0
6MBZ
PAGE
16
LOC
OBJ
0243
E62E
02415
0422
02417
964E
0249
BE02
024B
E5
024C
4433
024E
B832
0250
FO
0251
77
0252
B905
02541
AC
0255
27
0256
AD
0257
F5
0258
9476
025A
MAS
825C
AC
825D
19
825E
81
825F
AD
0260
F2SF
0262
B838
8264
BF03
0266
23BF
0268
AO
0269
18
826A
EF68
026C
E5
026D
4471
026F
9484
0271
F5
0272
B902
0274
B40C
0276
D410
0278
E67F
027A
D408
027C
19
027D
FD
027E
91
SEQ
SOURCE
STATEMENT
1052
1053
;
IF
ADDRESS> UPPER
LIMIT
'I'B:EN
ERROR
1054
1055
1656
1057
JNC
CALL
BRK3
POP ;
IF
ERROR
;GET
DELIMITER
1058
;
IF
DELIMITER =
EXECUTE
THEN
CLEAR
ONE
BJ:lEAK
POIl'IT
1059
1060
JNZ
BRK4
1061
1062
;CLEAR
ONE
BREAK
POINT
1063
1064
1065
1066
1067
BR..'«4:
1068
MOV
SEL
JI'lP
1069
;DISPLAY
ADDRESS
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
MOV
MOV
RR
MOV
MOV
CLR
MOV
SEL
CALL
R6.#2
MHO
BRK10
R0,#1'o'RKL
A.~R0
A
Rl,#5
R4.A
A
R5,"A
MBl
DADDFL
;IF
NOT
EXECUTE
1081
;GET
A
BP..EAx:
POINT
VALUE
FROM
EXl'
RAM
1082
1083
1084
1085
1086
1087
1088
CALL
MOV
INC
MOVX
MOV
F'EWRK
R4,A
Rl
A,@R1
as,A
;
GIlT
LOW
BYTE
;GET
RI
BYTE
1089
;DISPLAY
'---'
IF
BREAK
POINT
IS
CLEARED
1090
1091
1092
1093
1094
1095
BRK6:
1096
1097
1098
1099
1100
1HH
BRK5:
1102
1103
BRK7:
1104
JB7
MOV
:nov
~IOV
:nov
me
DJNZ
SEL
JMP
CALL
BRIa)
;
IF
NOT
CLEARED
R0,#DIPTR
R7.#3
A,#DCDSR
@RO.A
;DISPLAY
'-'
R.0
R7,BRK6
MHO
BRK7
D45AD ;DISPLAY
OLD
DATA
1105
;GET
DATA
FROM
KB
AND
ECHO
IN
DATA
FIELD
1106
1107
1108
1109
1110
1111
SEL
:nOV
CALL
CALL
MB1
Rl,#2
GDATA
PUSH
;SAVE
DELIMITER
1112
;
IF
NEW
DATA
ENTERED
'I'B:EN
STORE
NEW
DATA
1113
1114
1115
JNC
1116
;STORE.
NEW
DATA
1117
1H8
1119
1120
1121
1122
BRm:
1123
CALL
UfC
~10V
MOVX
BRKS
STOliK
Rt
A,R5
@Rt,A
1124
;CK
DELIMI~~
AND
ADDRESS
;IF
NO
DATA
ENTERED
;
SAVE
LOW
BYTE
;
SAVE
RI
BY'l'E
._
....
_
...
-1
IS
IS-
II
ncs-48/lJP
1-401
l'JACRO
ASSEl!BU:R.
V2. 8
PROJ.llPT-48 SlSTI;l'1 MONITOR
V3.
0
6MBZ
PAGE
17
LOC OBJ
027F
547D
0281
547D
0283
F64E
0285
E5
0286
2451
0288
F5
0289
5494
028B
B8DA
028D
90
028E
FE
028F
D410
0291
5445
0293
B4E7
0295
0422
0297
E5
0298
32A2
029A
64A6
029C
F5
029D
545D
029F
E5
02A0
449A
02A2
64A6
SEQ.
SOURCE
STATEMErrr
1125
1126
1127
1128
1129
1130
1131
CALL
CALL
JC
SEL
JMP
EMSB4
E1'15B4
BRK4
MaO
CJ.lIDLV
1132
;*-*-*-*-*-*-*-*-*-*-*
1133
;GO TO
THE
PROPER GO-ROUTIl'fE
1134
;
1135
GOCml:
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
BEL
CALL
Mo.V
lIO\,X
nov
.
CALL
'CALL
CALL
CALL
SEL
JBl
MEl
GGOTY
R0,
#RJ.~PTR
IlIR0.A
A,R6
PUSH
GOSUB
CODE
1
POP
~m0
COSSI
1148
;*-*-*-*-*-*-*-*-*-*-*
1149
rSINGLE
STEP:
-
; NOT DONE •
DO
NEXT
ADDRESS
;ALL
DONE
1150
;THIS
Co.~~
CAUSES
THE
PROCESSOR
TO
EXECUTE
ONE
1151
; INSTRUCTIo.N
o.F
USER CODE, THEN
RETURN
TO
MONITOR
1152
;Fo.R EXAMINATION, ETC.
IF
THE
MADDRw
ARGUMENT
IS
1153
;OMrUTrED,
THEN
EXECUTIon
PRo.CEEDS
FROM
THE
LAST
1154
; ADDRESS.
THE
MONITOR
REJ.lIAINS
.IN
TlJE
SINGLE
STEP
1155
;
MODE
UNTIL
So.ME
o.THER
COMl'IAND
IS
EXECUTED,
1156
; ALLo.WING
THE
USER
TO.
STEP
THROUGH
HIS
PROGRAM,
BY
1157
;Co.NSECUTIVFJLY ENTERING
.,B.
AFTER EACH
1158
; INSTRUCTIo.N
IS
EXECUTED, THE
CURRENT
ADDRESS
IS
1159
; o.UTPUT WITH
THE
C.o.NTE1{TS
o.F
THE
ACCUMULATOR.
1160
;*-*-:.t
1161
;GO(REAL
TIME):
-
1162
;THIS
CAUSES
EXIT
FROM
THE MONITOR
PRo.GRAM:
TO
THE
1163
;USER
PROGRAM
Lo.CATED
AT
"
ADDR
" ,
NO.
BREAKPo.INTS
1164
;ARE
POSSIBLE
IN
THIS
MODE,
ArID
THE
USER PROGfuUI
1165
;EXECUTES
AT
FULL
SPEED. THE USER PROGRMI MAY o.NLY
1166
;BE
INTERRUPTED
BY
A
"Mo.N
RTN"
COMI1A1"lD
FROM
THE
1167
;
KEYBOARD.
1168
;
1169
GOAGN:
1170
;RUN
REAL
TIm:
OR
STEP
o.NE
INSTRUCTION
1171
1172
1173
RETSS:
1174
RETGO:
1175
JMP
1176
;
DISPLAY
<
USER
PC>
AND
<
A>
1177
1178
1179
1180
1181
1182
SEL
CALL
SEL
JMP
MBI
WAIT
MaO
GOAGN
1183
;*-*-*-*-*-*-*-*-*-*-*
1184
;GO(SINGLE
STEP):
-
1185
;THIS
MODE
ADVAItCES
THRo.UGR
THE
USER
PROGRAM
AS
1186
;FAST
AS
POSSIBLE.
WHILE DUMPING THE
CONTENTS
OF
1187
; THE
PROCESSOR
AT
EACH INSTRUCTION' Bo.UNDARY,
A."fD
1188
;PERFORMING A
SOFTWARE
cmlPAi'lE
AGAINST
THE
VARIOUS
1189
;BREAKPo.INTS.
(SEE
BRE.\KPOINT) EXECUTIOIt BEGINS
AT
1190
;
"ADDR"
IF
THE
ARGUMENT
~"AS
ErITERED. OTHERWISE
1191
;EXECUTION
corITIIfUES
FRDM TIrE LATEST BREiu'Q'OUIT.
1192
•
1193
; STEP
ONE
UiSTRUCTION
1194
1195
COSSl:
1196
1197
RETGS:
JMP
ISIS-
II
1'1CS-48/UP
1-411
MACRO
ASSElmLER.
V2. 0
PROlJPT-48
SYSTEl"I
MOW
lTOR
V3.
0 6HBZ
PAGE
18
LOC
OBJ
€12M 9AF9
€12M
8AOI
€12M
FlS
92A9 BB2A
92AB
23C9
02AD
B4CJB
92AF
B49F
92Bl
B930
92B3
B8C3
02B5
89
€l2B6
Al
92B7
18
€l2B8
19
92B9
89
92BA
530F
92BC
Al
92BD
BE08
92BF
F5
92C0
MAS
92C2
AC
92C3
B4FD
92C5 B4Aa
02C7
AD
92CS
B4FD
92CA FD
92CB
530F
92CD 2D
02CE
37
92CF
F2D9
92Dl
BOO4
92D3
B930
92D5
B462
02D7
B6U
92D9 EEBF
92DB
,)AY0
02DD
8A08
92DF
Ba0B
02El
80
02E2
37
02E3
52E7
02E5
545D
02E7
E5
02EB 44A2
02EA
BS3E
02EC
FE
02ED
37
02EE
17
02EF
0308
SEQ.
SOURCE
STATEl'IENT
1198
1199
1200
1201
ANt
ORL
SEL
P2,#MSKPG
P2,#PJEPGl
MB1
1202
;SET
PTRIVR
= VAVPJEPGl
1203
1204
1205
1206
1207
1208
nov
I!l:OV
CALL
CALL
1209
;
GET
USER
<
PC>
1210
1211
1212
1213<
1214
1215
1216
1217
1218
1219
1220
1221
nov
nov
novx
nov
INC
INC
novx
ANL
nov
nov
RQ,#BASEL
A,#BXPTR
SETPI
SEWK0
Rl,#WRKlL
R0.#RGTOP+4
A.@lR0
@lRI,A
RO
Rl
A,@R0
A,#0FR
@lRl;A
R6,#«(BXMAX
-
1222
;GET
BREAK
POINT
CONTENT
1223-
1224
GOSS2:
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
SEL
CALL
nov
CALL
CALL
nov
CALL
nov
ANL
XCR
CPL
MBI
FEWRK
R4,A
INWRK
FEWRK
RS,A
INlIRK
A,
as
A,#0FH
A.as
A
; SELECT RArI
~RY
PAGE 1
;GET
<PCL>
;GET <PCR>
BXPTR>
+
1)
"
2)
;GET
LOW
BYT.E
;
nrc
BXPTR.
TITI
C'!!!
1237
;GET
NEXT
BX
IF
TIllS
ONE
IS
CLEARED
1238
1239
1240
JB7
GOSS4
124d
;COlJPARE
BX
TO
<PC>
1242
1243
1244
1245
1246
1247
GOSS4:
1248
1249
nov
MOV
CALL
JF0
DJNZ
RO,#4
Rl,#WRKlL
CKDBL
GOSS3
R6,GOSS2
;
IF
CLEARED
;IF
PC=BX
;CE:
NEXT
BX
1250
;
IF
1'!OlHTOR El'l'TRY
PRESSED
TIIEl"f
RETURN
TO
COmIAND
LEVEL
1251
1252
1253
1254
1255
1256
1257
125S
1259
~SS6:
1260
1261
1262
ANt
om.
nov
novx
CPL
JB2
CALL
SEL
JMP
P2,
#lIJSKPG
P2,#MEIOU
RO.#MCHST
A,@lRQ
A
GOSS6
WAIT
MaO
GOSSI
;l'fO
BX
MATCm:D
1263
;DISPLAY
BX
IDENTIFIER
IN
CHD
FIELD,<USER
PC>
,<A>
1264
1265
GOSS3:
1266
1267
1268
1269
1270
nov
~IOV
CPL
INC
ADD
RO,
#DIPTR+6
A.R6
A
A
A,
#(
«Bxrw..X' -BXPTIU +
1)
/
2)
...........
--------
----_.---
ISIS-
It
I'!CS
..
48t'lJPI
-41
scito
ASSDJBLEB..
V2.0
PROftPT-48
SYSTEl'l
MOl'{
11'08.
V3.
0
6KHZ
PAGE
19
LOC
OBJ
82Fl
AA
02F2
1M31
02F4
18
82F5
2383
82F?
AO
82F8
940»
02FA
343F
02FC
E3
e2FD
44A2
02FF
B82D
0301
27
0302
37
0303
A0
8304
C8
0305
AO
0306
7474
0308°7485
030A
Ba2F
030C
FC
030D
A0
030E
A5
830F
FA
0310
C635
0312
7485
0314
882C
0316
FC
0317
A0
0318
7483
03tA
882D
031C
FC
03lD
AO
031E
A5
031F
6435
0321
B82D
0323
27
-0324
A0
0325
37
0326
C8
0327
A0
0328
7474
032A
A5
032B
B5
SEQ
1271
1272
1273
1274
1275
1276
COSS5:
1277
1278
1279
1280
1281
SOURCE
STA'l'QIEl'fT
PlOV
CALL
INC
HOV
!!OV
CALL
CALL
SEL
J'l'JP
R2.A
DECRX
Re
A,#DCB
GRe.A
DIPAW
WAIT2
lfB0
COSS!
1282
;*-*-*-*-*-*-*-*-*-*-*
;DISPLAY
HEX
DIG
·1283
;SEARCH
MEMORY
FOR
DOUBLE
BYTE
VALUE.
1284
;THIS
ROUTINE
E.t~ECTS
FOUR HEXADECIMAL PAR.UJETERS.
1285
;AND
OPTIONALLY
SIX
PARAl.IETERS. •
1286
; TIlE
FIRST
ni'O
OF
WHICH
ARE
INTF.RPRETED
AS
THE
MEMORY
1287
;
AREA
TO
BE SEARCHED,
AND
THE
THIRD
AN])
FOURTH
BEING
'I1IE
1288
;DOUBLE BYTE
TO
BE
FOUND. TIlE
FIFTH
AND
SIXI'lI
ARE
1289
;A
DOUBLE
BYTE
MASK.
THE
ADDRESSES
OF
ANY
VALUE
l'!ATCBES
ABE
1290
;DISPLAYED
IN
THE
ADDRESS
FIELD.
1291
;
1292
WDSEAR:
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
MOV
CLR
CPL
HOV
DEC
PlOV
CALL
CALL
PlOV
!!OV
MOV
R0.#WRK3H
A
A
GRe,A
R0
@Re,A
SEA7
SEAS
R0.#WRX2H
A,R4
eRe,A
1305
;IF
DEL = EXECUTE
TBllf
NO
ftASK
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
CLR
MOV
J'Z
CALL
mv
MOV
mv
CALL
mv
MOV
MOV
CLR
J'ftP
Fl
A,112
SEA9
SEAS
Re,IIIWRX3L
A.M
GRO.A
SEAS
Re.#WlUC3H
A.M
GRO.A
Fl
SEA9
1321
;*-*-*-*-*-*-*-*-*-*-*
1322
; SEARCll
MEMORY
FOR BYTE
VALUE~
;SET
l'!ASK
III
TO
ALL
BITS
; SET
l'!ASK
LOW
TO
ALL
BITS
; GET ADDIIS
AND
DATA
LOW
;GET
DATA
HI
; RESET BYTE
SEAlI.ClI
FLAG
; GET
l'!ASK
LOW
; GET
l'!ASK
III
; RESET BYTE SEARCH FLAG
1323
;TRIS
ROUTINE EXPECTS
TBilEE
BEXADECUfAL
P.ABAMF.TERS.
1324
;AND A
F01m.m
OPTIONAL PARAMETER.
1325
;THE
FIRST
TWO
OF
WIlICH
~
UfTElU"RETE»
AS
THE
MEMORY
1326
;AREA
TO
BE SEARCHED.
AND
TIlE
THIRD
BEINe
THE BYTE
1327
;TO BE FOUND. THE
FOURTH
IS
A BYTE HABK.
1328
;
THE
ADDRESSES
OF
ANY VALUE lfATCBES
ARE
1329
;DISPLAYED
IN
THE
ADDP.ESS
FIELD.
1330
;
1331
SEARCH:
1332
1333
1334
1335
1336
1337
1338
1339
PlOV
CLR
mv
CPL
DEC
MOV
CALL-
Re.
#liRK311
A
IiM.A
A
R9
@R0.A
SEA7
1340
;
IF
DEL = EXECUTE THEN
NO
1!ASK
1341
1342
1343
CLR
CPL
Fl
Fl
;
SET
MASK
HI
TO
DON'T
CARE
;SET
l'!ASK
LOW
TO
ALL
BITS
; SET BYTE
SEARCH
FLAG
ISIS-II
ms-48;'UPI-41
J.lfACRO
ASSE1!mU:1l.
V2.8
PACE
2ft
PMl'IPT-48 SYS1'Jm
MONITOR
W.8
6z.a1Z
LOC
OBJ
SECl
SOUBCE
STA'l'DlENT
932C
FA
1344
!lOV A.B2
032D C633 1345
JZ
SEA9
032F
7485
1346
CALL
SEAS
;GET
lfASIC
0331
B82C
1347
MaV
R0.#WRX3L
8333
FC
1348
MOV
A.R4
8334
A8
1349
HOV
Oae.A
1350
SEA9:
8335
892£
1351
MOV
Rl.#l/R!2L
8337
7492
1352
CALL
SEA11 ;
MASK:
THE
FOR
CLAUSE
8339
F5
1353
SEL
l'JB1
833A. D49F
1354
CALL
WBIClA
1355 SEA2:
033C F5 1356 BEL
Dl
033D 84A8
1357
CALL
FEliRK ;
GET
F IBST
8YTE
033F
AC
1358.
HOV
R4.A
0340
AE
1359
HOV
1l6.A
8341
27
1360
CLR
A
8342
AD
1361
MOV
M.A
0343
7650
1362
JFl
SEA3· t
IF
8YTE
SEARCH
8345
B4FD 1363
CALL
INWRK
034·1
8452
1364
CALL
CWKWI
0349
E663 1363
JNC
SEAl
;IF
ALL'DONE
0348
B4A8 1366
CALL
FEWRK
tGET
SECOND
BYTE
834D
AD
1367
MaV
M.A
034E
B475
1368
CALL
DEWRK
1369
SEA3:
0350
E5
1370
SEL
MB0
0351
7490
1371
CALL
SEA10
·0353
F5
1372
SEL
MB!
8354
B804
1373
HOV
1\0,#4.
;COMPARE
DATA
0356
B92E
1374
MOV
Rl,#WRX2L
0358
8462
1375
CALL
CKDBL
035A B666
1376
JF0
SEA4
;
MATCH
FOUND
1377
SEM:
835C F5
1378
SEL
l'JBl
835D MFD
1379
CALL
INWRK
835F
8452
1380
CALL
CWKWI
8361
F63C 1381 JC
SEA2
;NOT
DONE
1382
SEAl:
0363
E5
1383
SEL
MB0
8364
2451
1384
JMP
ClmLV
1385 SEA4:
0366
FE 1386 mv A.R6
8367
AC
1387
MaV
R4.A
83G8
9474
1388
CALL
DAFLD
036A
9470
1389
CALL
DDTJi'D
036C 5451'
1390
CALL
WAI1'2
036E
E5
1391 SEL
MBO
036F
643C
,1392
JMP
SEAS
;
CONTINUE
SEARC1l
1393
SEA6:
0371
E5
1394
BEL
MB9
0372
04FE
1395
JMP
ERROR
1396 SEA7:
0374
F5
1397
SEL
MB1
8373
5480
1398
CALL
GEXIY
0377
74B6 1399
CALL
G2PlU1
0379
8406
1400
CALL
BLICAD
0378
E5
1401 SEL
MB0
037C
7485
1402
CALL
SEAS
037£
892£
1403
HOV
Ill.#WBX2L
0300
F5
1404
SEL
MB1
0381
8486
1405
CALL
MVR45
0383
Eli
1406 SEL
MB9
0384
83
1407
RET
1408
SEAS:
0385
F5 1409 SEL
MBI
0386
B400
1410
CALL
BLICDA
03sa
8410
1411
CALL
GB1""T.E
; GET
lmXl'
BYI'E
1412
1413 ;
IF
DEL
=
CLEAR
ENTRY
TBEl'f
ABORT
1414
0SSA
3263
1415
JBI
SEAl
1416
.
-.
-
.....
ISIS-II
HCS-48I'UPI-41
MACRO
ASSErmLEEl.
w.e
PROMPT-4& SYS'l'E
[SIS-II
PlCS-4&lUPI-41
!fACl\O ASSE:mLER.
V2.8
tBOftPT-48
S'YSTD
aDWl1'OR
va.
8 6ImZ
PAGE
22
LOO
OBJ
03BC
128F
83BE
A5
03BF
53F7
0SC1 17
0SC2
53F7
0SC4 Al
0SC5
19
03C6
13
8SC1
])477
OSC9
E:S
8SCA
18
83CB Al
03ce
Be
83CD
9600
83CF
2SBl
03Dl 51
0SD2 Al
03DS 19
03D40
DS81
0SD6
80
0SD1 Al
0SD8
19
0SD9
nanB
03DB
80
e3DC
AF
03DD
BaC7
03Dl
Be
83E0 4F
03El
Al
03£2
19
03E3 B89F
03E5
80
03E6 Al
83E7 B920
03E9 B880
03EB
80
03EC BF05
t3EE
03FC
03F0
AS
03Fl
F8
83F2
537F
03F4
AS
83F3
Fl
03F6
90
03FT 19
03F8
18
8319 EFFI
8aFB
BSC8
03rD B937
03FF
80
0460
37
8401
9206
0403
27
0404
Al
0405
05
SEQ
SOURCE
STATEl'JEDT
1490
JB3
El'fl?
1491
CLR
Fl
,Fl
= e
1492 El'fl'7:
A,#eriB
1493
Al'fL
;mK
OUT
Ft
1494
INC
A ;ADJUST SP
1495 ANI.
A,
1It
0FTH
1496
NOV
GRI.A
,SAVE
<PSW>
1497
INC
Rl
1498
SEL
Pml
1499
CALL
GETAC
I
GET
USER
ACCESS
CODE
HS0e
SEL
MB8
1$01
INC
Re
1G02
MOV
@RI.A
1583
MOW
A,
EIRe
;
GET
RU1'f
REAL
TIl'!E
FLAG
US04
1505
;SET
RtIN
BIT
IF
FLAG
II
GORT
1506
1507
.mz
ENT9
1588
NOV
A,
I(
(NOT
401D
AND
oFFlD
1509
ANL
A,eRI
1518
MOV
@Rl,A ;
SAVE
MACRINE
STATE
15
11 EN'I'9 :
1512
INC
Rl
1513
MOV
R0,
IRCPTR+
1-
1514
MOVX
A,I:JR0
;GET
<R1>
1515
NOV
@Rt,A
1516
INC
R1
1317
NOV
R0. IP2PTR
1518
NOVX
A,C!lR0
1519
MOV
R7,A
1520
NOV
R0, -IOPTR+2
1521
NOVX
A,1:J1t0
;GET <P2>
1522
ORL
A,R?
1523
NOV
@RI,A
1524
INC
R!
1525
1526
;SET
mIS
~.
LOC" <RaI>
1527
1528
NOV
R0, -:a.cPTR+31
1529
NOVX
A,.I:JR0
;GET <Ra1>
1530
NOV
ORI.A
1531
1532 ;
PUT
TE1lP TBL
IN
EXTElUfAL
RAl.l'
'l"EI1P
LOCATIONS
1533
1534
MOV
R1,#IMBOT
1535
MOV
R0,IRGPTR
1536
NOW
A,@Re
;GET
<Re>
1537
MOV
R7,#$
1538
ADD
A,I(-4)
AND
eFFlI
1539
NOV
M,A
1540 El!T2:
1541
NOV
A,RO
1542
ANI. A,17Fl1
1543
NOV
M,A
1544
NOV
A.@RI
1545
MOVX
ORe. A
1546
INC
Rt
1547
INC
R9
1548
DJNZ
R7,El'fT2
1549
1550
;
IF
USER INT
FLAG
..
TRUE TBErf
PLACE
CPU
Il'I
AN
1551 ;
I:trl'E.BRUPT
SERVICE
STATE
1552
1353
MOV
R0,#IOPTR:!-3
1554
nov
Rl,#DICNT
1555
MOVX
A.@R9 ;
GET
1NT
FLAG
1556
CPL
A
1557
JB4
ENT4
;
IF
NO
NESTING
15G8
CLR
A
1559
MOV
@Rl.A
1560 EN I
;S/B
NESTED
1561
EriT4:
1~62
-
..
~
IS
IS-
II
MCS-48/UP
1-41
:rrACR() ASSEnBLER.
V2.
8
PROMPT-48 SYSTEM MONITOR
V3.8
6l'.1BZ
PAGE
23
LOC
OBJ
8406
7209
0408
05
0409
BaDB
040B
80
040C
9AF0
040E
8A08
0410
B809
0412
90
0413
0008
0415
27
0416
90
0417
9AF0
0419
8AOI
041B
BA3D
041D
B8B.F
041F
B93F
0421
80
0422
Al
0423
C8
0424
C9
0425
Ef.21
0427
S0
0428
Al
0429
B9C8
042B
BSCI
042D
81
·042E
37
042F
65
0430
F235
0432
45
0433
8442
0435
D242
0437
55
0438
80
0439
53FE
0435
C643
043D
80
043E
03FE
0440
8443
0442
80
0443
62
SEQ SOURCE STATElIIENT
1363
;
IF
USER
INT
FLAG
:=
TRUE
'I'BEN
ENABLE
EXT
INTERRUP'IS
1564
1565
1566
1567
El'IT10:
1568
JB3
EN
ENTl0
I
1369
;
SET
P2
MAP
AND
PIS
IMULATOR
1570
1571
1572
1573
1514-
1575
1516
1517
1578
1579
1580
1581
1582
MOV
novx
ANL
ORL
nov
MO\'X
nov
cu.
MOVX
ANL
ORL
R0.#P2PTR
A.@lRO
P2.#M.SKPG
P2,#MEIOU
R0.#KBDAT
@lR0,A
R0,#P0LIN
A
@lR0.A
P2,#M.SKPG
P2.#MEPGl
1583
; RESTORE I:N'I'ERNAL
REG
1584
1585
1586
1587
.
1588
ENT5:
1589
1590
1591
1592
1593
1594
1595
1596
~IOV
nov
KOV
MO'lt'X
nov
DEC
DEC
DJNZ
novx
nov
1597
i RESTORE
THIER
1598
1599
1600
1601
1602
1603
1604
nov
nov
novx
CPL
STOP
.R2,#3DH
RO.#RGTOP
Rl,#urrop
A,@lRO
@lRI,A
R0
Rl
R2.ENT5
A.@R0
@lR1.A
Rl
, #
IOPTR+3
RO.#RGTOP+2
A,@lRI
A
TeNT
;IF
INT
DISABLED
;GET
P2
MAP
;SET
P2
MAP
;DISABLE
REFRESH INTERRUPTS
1605
;
IF
Cl'IT
WAS
RUImING
1'BEN
TIMER
..
TInER
1606
1607
1608
1609
1610
JB7
STRT
JrIP
ENT15
CNT
ENTII
1611
;
IF
TI:MER
WAS
NOT RUNrfING THEN
TIMER
=
TIMER
1612
1613
El'IT15:
1614
1615
JB6
ENTll
1616
;IF
TIMER
WAS
RUNNING TDEN
1617
1618
1619
1620
1621
STIlT
novx
ANL
T
A,
aRt)
A.#0FElI
1622
;
IF
TIMER
< 2 TIiEN TH1ER = 0
ELSE
1623
1624
1625
ENTI3
1626
; TlI'!ER = TIMER -2
1627
1628
1629
1630
1631
ENT11:
1632
1633
El.TI13:
1634
1635
MOVX
ADD
J!'lP
MOV
A,@RO
A.#(-2)
AND
OFFH
ENT13
T,A
;GZT
<TI:MER>
ISIS-II
m::S-48rUPI-41l'{ACRO ABSlmBLER.
V2.0
PAGE
24
PROMPT-4t8
SYSTEl
tSIS-1I
MC9-4lV'OPt-411
NACBO
ASSEl'IBLEll.
va.O
PAClt
2S
PROPJPT-48
S1'ST.El'I
MDl'fl'l'OR
V3. 0
6l'UlZ
we
OBJ
SEQ
SOURCE
STA"l'Elm.'"
8486
80
1789
novx
A.aRO ,GET
<P2>
8487
3A 1718
OUTL
P2,A
8488
18 1711
INC
RO
8489
80
1712 now
A,8R&
;GET
Bat
848A
D5
1713 SEL
RBI
171+
1715
;GO
'l'O
USER
PROGRAM
AT
VECTOR
FOR
RE8
1716
848B 64F0 1717 JBP
nmS8
1718 ENT8:
848D
80
1719
mvx
A,4IIRO
;
GET
MACRINE
STATE
048E
AS
1728
nov
R8,A
848F F9 1721
MOV
A.Rl
;
GET
USER
< '88>
0490
28
1722
XCR
A,RO
1723
1724 ;
WRITE.
MORINE
STATE
1725
0491
9A.F0
1726
A.NL
P2,#MSKPG
8493
8A.08
1727
OR!.
-P2,#MEIOU
04915
890B 1728
mv
Rt,#HCRST
0497
91 1729
MOVX
@RI.A
IOtrI:PUT
STATE
1730
1731
;FINISH
REG
AND
PORT
RESTORE
1132
8498
80
1733
MOVX
A.GR0
;GET <Rl>
8499
A9
1134
MOV
RItA
049A 18 1735
INC
R8
049B
80
1736
HOVX
A.@RO
;GET <P2>
049C 3A 1737
OUTL
P2,A
049D 18 1738
INC
RO
iGET <Bal>
049£
80
1739
novx
A,@M
849F
D5
1740
SEL
RBI
1741
1742
;GO
'l'O
USER
PROGRAM
AT
ENTRY
VECTOR
FOR
RBI
1143
8+A0 64F4 1144
nIP
I
NUS
1
1745
l'!81VE:
84~.2
B880 1746
HOV
RO.#RGPTR
04A4
80
1747
MOVX
A,@RO
;GET
<RO>
84A5 03FC
1148
ADD
A,#(-4)AIfl)
OFFU:
04A1
A9
1149
HOV
RI.A
O
..
A8537F
1750
An
A,#7FR
04M
AS
1751
HOV
R9,A
04AD
19
1152
INC
Rl
04AC
19
1153
INC
Rl
04AD
80
1754
MOVX
A.eRe
;GET
(PS"W>
84AE
18
17515
INC
R8
;POINT
TO
lIfACRlNE
STATE
04AF
28
1756
XCR
A.R0
04B0
337F
1751
ANL
A,#7FR
04B2
28
1738
XCR
A.R0
04B3
D7
1759
mv
PSWyA
04B4
C5
1768
SEL
RBO
0485
92CC
1161
J84
ENT8A
;USER
IS
USING
RBI
0481
80
1762
MOVX
At@RO
;
GET
nCRINE
STATE
0488
A8
1763
HOV
ROtA
0489
F9 1764
MOV
A.Rl I
CET
USER
<
RO>
048A
28
1161)
XCR
A,RO
HBB
9AF0 1166
A.NL
P2.#MSKPG
048D 8A08 1767
OR!.
P2,
#flEIOlI
048F
8908
1768
MOV
Rl,#MClIST
04Cl
91 1769
MOVX
ORltA ;
OUTPUT
STATE
1770
1771 ; FINISH
REG
AND
PORT
RESTORE
1772
04C2
80
1773
l'!OVX
AfORO
;GET <Rl>
0403
A9
1774
nov
Rl,A
04C4 18 1775
INC
.RO
04C5
80
1776
MOVX
A
••
R0
;G'ZT
<P2>
04C6 3A 1777
OUTL
P2,A
0401
18 1778
INC
lt9
04C8
80
1779
MOVX
AfGRe
;GET
Bat
04C9
D5
1789 SEL
RBI
1781
'.
ISIS-II
Mr.S-48/UPI-t-1
MACRO
ASSEMBLER.
V2.0
PROllPT-48
SYSTEl't
mlNlTOR
W.0
6l'1BZ
PAGE
26
LOC
OBJ
04.CA
64F8
04CC
80
04CD
A8
04CE
F9
04CF
28
04D0
9AF0
04D2
.SA08
04D4
B90B
04!D6
91
04D7
80
04D8
A9
04D9
18
04DA
80
04DB
3A
04DC
18
04DD
80
04DE
D5
04DF
64FC
04El
F5
04E2
24E3
04E4
F5
04E5
0400
04E'% F5
04£8
5480
04EA
74B6
04EC
D49F
04EE
BC00
04F9
D408
04F2
B4FD
04F4
B452
04F6
F6EE
04F8
E5
04F9
2451
SEQ.
1782
;
00
TO USER
PROGRAM
AT
VECTOR FOR RB0
1783
1784
178lS
ENTSA:
1786
1787
1788
1789
1790
JMP
MOVX
MOV
MOV
XCH
INUS2
A,@lR0
RO.A
A.Rl
A,RO
1791
;-WRITE MACHINE STATE
1792
1793
1794
1795
1796
1797
ANL
ORh
MOV
MOVX
P2."MSlQ'G
P2.#MEIOU
RI.#MClIST
GRl.A
1798
11'
INISH
REG Al'fD PORT RESTORE
1799
1800
1801
1802
1803
1804
1805
1806
1307
1808
MOVX
MOV
INC
MOVX
OUTL
nrc
MOVX
SEL
A.@R0
Rl,A
R0
A,@lR0
P2.A
RO
A.@lRO
RBI
; GET MACBINE STATE
; GET USER <
M>
;
OUTPUT
STATE
;GET
<Rl)
; GET <P2>
; GET <
P0
on
run>
1809
;00
TO USER
PROGRAM
AT
El'ITRY
VECTOR
FOR
RBI
lS10
1811
1812
JMP
INUsa
IS13
;*-*-*-*-*-*-*-*-*-*-*
1814
;COMPAHE
PROM
1815
;THE
PROl'I DATA
SPECIFIED
WILL
BE
COMPARED
AGAINST
PROGRA:M
1816
;MEMORY
AND
ANY
DIFFERENCES
WILL
BE
DISPLAYED.
1817
;
1818
COMPARE:
1819
SEL
1820
JllP
1821
Mal
COMPX
1822
;*-*-*-*-*-*-*-*-*-*-*
1823
;FETCB
PROM:
-
1824
;THE
PR01'!
DATA
SPECIFIED
WILL
BE
TRANSFERRED TO THE
PROCRAH
1825
;
MEMORY
FOR
VERIFICATION/MODIFICATION.
1826
;
1827
FETC1I:
1828
1829
1830
SEL
JMP
Mal
FETDT
1831
;*-*-*-*-*-*-*-*-*-*-*
1832
;CLEAR
BUFFER:
-
1833
;
mIS
COMl'l4.ND
IS
USED
TO
CLEAR THE EXTERNAL DATA.
PROGRAH
OR
REG
1834
;BUFFERS
PRIOR
TO
PROM
PROGRAroIING ETC.
1835
; (NOTE THAT
mIS
CO~lAND
WILL
INVALIDATE
ANY
1836
;PROGRAM
OR
DATA WHICH
HAS
BEEU SAVED
IN
THE E."'ttERNAL
1837
; BUFFERS. )
1838
;
1839
CLEAR:
1840
1841
1842
1843
1844
cumx:
1845
1846
1847
1848
1849
SEL
CALL
CALL
CALL
MOV
CALL
CALL
CALL
Mal
GEXTY
G2PRM
WRK1A
R4,#0
STOlvtC
INWRK
CWIaH
; CLEAR A BY'I'E
;
INC
ADDRESS
1&50 ;
IF
WORK
ADDRESS
> UPPER
LIMIT
ntE...'1
ALL
DONE
1851
1852
1853
18S4
JC
SEL
J1'lP
CLRNX
~!B0
c~mLV
;NOT
DONE
•
DO
NEXT
BYTE
;ALL
DONE
ISIS-II
MCS-4tYUPI-·U
MACRO
ASSEm3LER.
W.O
PROm'T-48
SYSTEl'! MONITOR
V3.0
6MBZ PAGE
27
LOC
OBJ
04FB
BArF
04FD
23DB
04FF
A428
0501
F5
0502
B9M
0504
D44B
0506
14F4
0508
320D
0S0A
E5
050B
04FE
050D
27
050E
04FC
0510
F5
0511
B95F
0313
D44B
0S15
B901
0517
14F4
0519
3221
051B
B969
0S1D
D44B
051F
B902
0521
F9
0522
04FC
0524
BA05
0526
23D9
~528
B82A
·0S2A
F5
052B
B49B
052D
27
052E
AI)
052F
FA
0530
B834
0532
B4A3
8534
54FA
0536
324(;
SEQ.
SOURCE
STAT.E~
1855
1856
;*-*-*-*-*-*-*-~-*-*-*
1857
;THIS
ROUTINE
ALLOWS
THE
USER
TO
SPECIFY
THE
1858
;BIT
BY
BIT
DIRECTION
OF
P2.
EITHER
OF
THE
a
1859
;BITS
MAY
BE ASSIGNED
AS
INPUT
OR
OUTPUT.
1860
I
1861
P2DEF:
1862
1863
1864-
1865
MOV
l'IOV
Jl'lP
R2,#OFFH
A,#P2PTR
ACCS
1866
;*-*-*-*-*-*-*-*-*-*-*
1867
; PROGRA.WVERIFY (BURN) ;
1868
,THIS
COMMAND
INITIATES
THE
PROM
PROGRAMMING.
THE
1869
;PROGR-\1"1
NEMORY
SPECIFIED
WILL
BE
PROGRAMMED
INTO
THE
1870
; PROM,
AND
SHOULD BE
SUITABLY
MODIFIED
BEFORE
1871
; EXECUTION
OF
THIS
COMMAND.
1872
;
1873
;PROGRAM
8748
1874
PROMP:
1875
1876
1877
1878
1879
1830
PRB:
1881
1882
188a
PM:
SEL
MOV
CALL
CALL
JBt
SEL
JMP
MD1
R1,#P48TBL
AND
0FFH
MESG
CKD
PM
Ml30
ERROR
1884
CLR A
1885
Jl'lP
PRPRO
1886
;PROGRAM
8755-8751
1887
PROm5:
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
PRC:
1898
1899
1900
SEL
:MOV
CALL
MOV
CALL
JB1
MOV
CALL
1'1OV
MOV
JMP
.
MBI
Rl,#P41TBL
AND
0FFH
MESG
Rl,#D8741
CKD
PRC
R1,#P55TBL
AND
OFFR
MESC
Rl,#D8755
A,R1
PRPao
1901
;*-*-~-*-*-*-*-*-*-*-*
1902
;
mIS
ROUTINE
ALLOWS
THE
USER.
TO
SPECITY
THE
1903
;l'IACRINE
HARDWARE
CONFIGURATION.
1904
;
1905
ACCES:
1906
1907
1908
ACCS:
1909
1910
1911
1912
1913
1914
1915
1916
1917
MOV
MOV
MOV
SEL
CALL
CLR
nov
MOV
~IOV
CALL
RO,#BASEL
MD1
SETPI
A
RI,A
A,R2
RO,#UPLML
PRSET
1918
;DISPLAY
OLD DATA
AND
GET
NEW
DATA
1919
1920
Ace3:
1921
1922
CALL
EI'1SB3
1923
;
IF
DELIMITER
= CLEAR EnTP.Y
1'1mN
ABORT
1924
1925
1926
JB1
ACCI
1927
;
IF
NO
DATA El'ITEllED
TI:IEri
EXIT
ISIS-
I I
!1CS-48/UPI-41
HACM 'ASSEl"!BLER.
V2.e
.
PROm'T-48
SYS'TEM MONITOR
V3.e
6MBZ
P.!\GE
28
·LOC OBJ
0538
E64:C
OS3A FC
053B
AA
053C
:J3EF
0153E
AC
053F
27
05·~0
AD
0541
M58
0543
F-648
0545
E5
0546
04FE
0548
FA
0549
AC
054A
0408
004C
E5
054D
2451
.054F
F5
0550
548D
0552
74BA
0554
D49F
0556
B82F
0558
D4Al
055A
A5
055B
B82E
055D
B932
055F
B462
0561
F692
0563
B5
0564
BS30
0566
B904
0568
B488
056A
a804
056C
B932
056E
94D6
0570
B804
0572
B92E
0574
94DA
SEQ
1928
1929
SOURCE STATEm:NT
JNC
Acel
1930
1931
1932
1933
;
IF
DATA > UPPER
LUIIT
'I'BEN
ERROR
1934
1935
1936
1937
1938
1939
19'40
1941
ACC
...
:
1942
1943
1944
ACC2:
194!i
1946
1947
MOV
MOV
AM.
MOV
CLR
MOV
CALL
JC
SEL
JI1P
~IOV
MOV
1948
;STORE
NEW
DATA
1949
1950
1951
ACC1:
1952
1953
1954
CALL
SEL
JMP
A,R4
EI2.A
A,#0EFlI
R4.A
A
R5,A
C45UL
ACC2
MB0
ERROR
A,R2
R4,A
STOWK
MB0
CJ.lIDLV
1955
;*-*-*-*-*-*-*-*-*-*-*
1956
;
MOVE
MEMORY
: -
1957
;MOVE A BLOCK OF .MErl0RY.
1958
;TRIS
ROUTINE EXPECTS TIIREE
HEXADECIlIfAL
.pARAl'fETERS
FROMTBE
1959
;FRONT PANEL.
THE
FIIIST
AND
SECOND
PARABTERS
ARE
THE
BOUNDS
OF
1960
; THE
.ME~IORY
AREA
TO
BE
MOVED. THE
TRIRD
P
AR.AHETER.
IS
THE
1961
;STARTING
ADDRESS
OF
THE
DESTINATION
AREA.
1962- ;
1963
MOVE:
1964
1965
1966
1967
1968
1969
1970
SEL
CALL
CALL
CALL
HOV
CALL
MBI
GEXTY
G3PRM
WRKlA
RO
, #llRX2l1
WRKA
1971
;ClIECK
IF
MOVING
UP
OR
OO~il'f
1972
1973
1974
1975
1976
1977
1978
CLR
J.lIOV
HOV
CALL
JC
Fl
R0,#WRK2L
Rl,#l/RKL
CKDBL
~IV3
;MOVE
DOWlf
1979
;
CHECK
IF
MOVE
BLOCK
WILL
CO
OVER
.MEH
TOP
1980
1981
1982
CPL
1983
;R4.5
-=
WRIt!
1984
1985
1986
1987
1988
~IOV
HOV
CALL
Fl
R0
,1~offiXIL
Rl,#4
MVREG
1989
IR4.5
= WRIt! -
WRK
1990
1991
1992
1993
1994
-
MOV
MOV
CALL
R0.#4
RI.
#lffiKL
SUDBL
1995
IR4.5
=
WRK2
+
(n~l
-
~
1996
1997
1998
1999
2000
NOV
HOV
CALL
R0,#4
Rl
, #
~ffiK2L
ADDBL
IS1S-
II
ncS-4fYUPI-41
MACRO
ASSEMBLER.
V2.
e
PROPIPT-48 SYSTEl'!
!lON'ITOR
V3.
e
6l'.1BZ
PAGE
29
LOC
OBJ
057'6 B8n4
057'8 B92E
057'A B468
057C
13458
057'E F692
0560
B804
0582
B934
0584
941)6
0586
8830
0588
B904
058A 94D6
0SSC
BB2Z
05SE B904
0590
94D6
0592
B830
0594
B4M
0596
AC
0597
769C
0599
MA8
059B
AC
059C B82E
059E
D40A
05A0 76B2
05A2
B4FD
05A4 B62E
05A6 B4FF
05A8
F5
05A9 B452
05AH
F2AF
05AD
F692
05AF
E5
05B9
2451
05B2 BF01
05B4
5830
05B6 B479
0588
BF01
05BA
BS2E
05BC
B479
05BE
E5
05BF
MA8
SEQ
2001
2002
2003
2004
-
2005
2006
2007'
2008
2009
2010
2011
2012
2013
2914
2015
2016
2017
2018
2019
2020
2021
2922
2023
2024
2025
2026
2027'
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037'
2038
2039
2040
2041
2042
2043
~044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
SOURCE
STATEMEl'IT
;
ADJUST
DESTINATION
ADDR
TO
UPPER
DEST
AnDR
;
WRI{2
..
WP.:K.2
-+-
(WRKI -
WRIO
nov
MOV
CALL
CALL
JC
R0,#4
Rl.#WR.K2L
MVREG
C45UL
MV3
;
SIZE
+
DESTINATION
< UPPER
Lll'lIT
;
ADJUST
UPPER
BLOCK
PTR
SO
THAT
SIZE
WILL NOT
00
OVER
'MEL"i
TOP
;R4,5
..
OVERFLOW
MOV
RO,#4 .
MOV
Rl,#UPLm.
CALL
SUDDL
;"WRKI
..
"WRK1
-
OVERFLOW
MOV
R0,#WRKIL
MOV
Rl,#4
CALL
SUDBL
;WRK2
..
.ffiK2 -
OVERFLOW
MOV
RO,#WRK2L
MOV
Rl,#4
CALL
SUDBL
;GET
MOVE
DATA
MV3:
MOV
RO,
#l'iRKIL
CALL
FEXDA
~IOV
R4,A
JFl
MVt
CALL
FEmu<:
MOV
R4,A
;
STORE
MOVE
DATA
MVl:
~lOV
R9,#WRK2L
CALL
SEXDA
JFl
MV2
;
IF
MOVING
UP
;
INC
POntTERS
FOR
MOVING
DOWN
CALL
lIDiRK
~IOV
R0,#tlRK2L
CALL
INnBL
;CBECK
IF
DONE
MVS:
SEL
niH
CALL
C'tVKWl
JB1
MV4
JC
MV3
;NOT
DONE
2059
MV4:
2060
SEL
~m0
2061
JPIP
CnDLV
;ALL
DONE
2062
2063
~DEC
POINTE...~
FOR
MOVIl'fG
DOW
2064
2065
~IV2:
2066
:tIOV
R7,#1
20-67
NOV
R0.#~iRKIL
2068
CALL
DEDBL
20'59
MOV
R7,#1
207{)
NOV
RO.#W1U\2L
2071
CALL
DEDEL
207'2 SEL 5:80
2013
J1!IP
MV5
--
l.
ISIS-II.
M:S-48I'UPI-41
nCRO
ASSElmLER.
W.O
PROMPT-48
SYSTEH
mrnTOR
V3.
0 6!lBZ
PAGE
39
LOC
OBJ
05C1 D5
05C2
AF
05C3
0A
05C4
AE
05C5 B838
05C7 B937
05C9
Fl
05CA
<J6CF
0sec
FF
05CD
C5
05CE
83
05CF
AA
0SDO
AS
05Dl B936
05D3
Fl
05D4
77
05D5
E13D4I
05D7
5380
05D9
37
05DA
AS
05DB
B910
05DD
FA
05DE
68
05DF
AS
05E0
FA
05E1 69
05E2
A9
05E3
C8
05E4
C9
05E5
9AF0
05E7 8A08
05E9 F0
05EA
5B
05EB 91
05EO
EAF0
05EE
BA08
05FO
FA
05Fl
B937
05F'S
Al
05F4
FE
05F5
SA
G5F6
FF
05F7 93
SEQ
SOURCE
STATE!JElIT
2074
2075
;*-*-*-*-*-*-:lC-:lC-*-*-*
2076 ;
E."'crE..'lNALLY
REFEl'..ENCED
ROUTl:NE
2077
;
DISPLAY
REFRESH
DRIVER
2078
I THIS
ROUTINE
IS
INTERUPT
DRIVEl'!'.
REG
BAl.lK
1
IS
USED
AS
2079
;SCRATCH
PAD.
WEN
ENTERED THIS
ROUTINE
WILL lffi.lTE
ONE
2080
; 7
SEGMEIfT
CHARACTOR
TO
THE D
ISPLA
Y.
UPOff
EACH
2081 ;INTERUPT A
DIFFERANT
DIG
POSITION IS
UPDATED
2082
;UNTIL
ALL
DIGITS·HAVE
BEEN
SCANED.
2083
;
2084
;REG
USED:
A,R24-R26,R30,R31,P2
2085
;REG
MODIFIED:
R24-R26,R30,Ral,P2
2086 ;
NESTING:
0
2087·
;
2088
REFSH:
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
REF2:
2101
2102
2103
•
2104
2105 REFS:
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
HEFl:
2128
2129
2130
2131
2132
2133
2134
2135
SEL
MOV
IN
MOV
MOV
~10V
MOV
JNZ
MOV
SEL
RET
MOV
MOV
MOV
MOV
RR
DJNZ
ANL
CPL
,
~IOV
MOV
MOV
ADD
MOV
MOV
ADD
~IOV
DEC
DEC
ANL
ORL
MOV
ANL
~IOVX
DJNZ
MOV
MOV
MOV
MOV
MOV
OUTL
MOV
RETR
RBt
R7,A
A,P2
R6.A
R0,#DIPTR
Rl,#DICNT
A,ORI
REF2
A,R7
RB0
R2,A
Ra,A
Rl,#DPMSK
A,@Rl
A
RS,REF3
A,#80H
A
Ra,A
Rl,#DGGPT
A,R2
A,
R0
R0,A
A,R2
A,Rt
Rt
,A
R0
Rt
P2,#MSKPG
P2,#MEIOU
A.@R0
A.R3
@Rl,A
R2,REFl
R2,#8
A,R2
Rt,#DICHT
@lRt,A
A,R6
P2,A
A,R7
,SAVE
<A>
;SAVE
<P2>
;LAST
COUNT
. ;GET
COUNT
;SAVE
COUNT
;
COMPUTE
D IPTR
;COMPUTE
DIG
PTR
tGET
CBAR
;
OUTPUT
CHAR
;POINT
TO
NEX1'
DIG
; SET
PTR
BACK
TO
START
;GET
NEW
COUNT
;SAVE
COUNT
;
RESTORE
P2
VALUE
; RESTORE <
A>
2136
;:IC-:lC-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-~-~-~-~
2137
;
2138
;Em>
OF
MONITOR
COMM.<UIDS,
BEGININNG
OF
I/O
SUBROUTINES
2139 ,
2140
;
*-*-*-*-*-*-*-*-:lC-lII-*-*-*-*-lII-*-lII-*-lI':-*-:lC-*-*-*-*
2141 ;
PUNCll
A
BYTE
AS
'M'TO
ASC
I I
CllARACTERS
2142
2143
2144
2145
2146
.
;REG
USED:
A,RO-R4,R24,R25,Ral.P2
;REG
NODIFIED:
A,R0,R4,R24,R25,R31.P2
;HESTING~
1
ISIS-II
MCS-48/UPI-41
MACRO
ASSEl'JBLER.
V2.0
PROMPT-48 SYSTEl"!
MONITOR
V3.0
6ImZ
LOC
OBJ
05F8
FC
05F9
F5
05FA
1>410
05FC
E5
05FD
47
05FE 530F
0600
AC
0601
ME7
0603
F4AD
0605
F5
0606
0422
0608
E5
0609
530F
06f>B
AC
060C
D4E7
060E
F4AD
0610
F5
0611 D422
0613
E5
06140
B826
0616
60
0617
A9
0618
83
SEQ.
2147
PBYTE:
2148
2149
2150
2151
2152
2153
21541
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
SOURCE
STA'l'UlEl'IT
MOV
SEL
CALL
SEL
SWAP
ANL
MOV
CALL
CALL
SEL
CALL
SEL
ANL
nov
CALL
CALL
SEL
CALL
SEL
MOV
ADD
MOV
RET
A,R4
MDt
PUSH
MBO
A
A.#0FB
R4.A
CONV
TYPO
MB1
-
POP
MB0
A,#0FH
M,A
CONV
TYPO
MBl
POP
MB0
R0
,
#cx.surI
A,@JR0
@R0,A
2172
;*-*-*-*-*-*-*-*-*-*-*
2173
;EXTEMALLY
REFERENCED
ROUTINE
PACE
31
;
CONVERT
HEX
TO
ABC
I I
;PUNCH
HI
NIBBLE
;
CONVERT
HEX
TO
ABC
II
;PUNCH
LOW
NIBBLE
;UPDATE
CHECKSUM
;
SAVE
2174
;CONSOLE
OUTPUT
CODE.
VALUE
EXPECTED
IN
R4
2175
;
0619
B821
0618
9AF0
061D
8AVS
061F
80
062e
5301
0622
C61F .
0624
FC
0625 B820
0627
90
0628
83
06~9
FS
062A
74AA
062C
E5
062D C632
062F
97
0630
C4D8
0632
9AF0
0634
8A08
0636 E821
0633
80
0639
5304
063B C632
063D
2327
063F
90
0640
F4A0
2176
;REG
USED:
A,R0,P2
2177
;REG
MODIFIED:
A,RO,P2
2118
;
NESTING:
0
2179
;
2180
TYCO:
2181
2182
2183
2184
COl:
2185
2186
2181
ADY
2188
2189
2190
2191
2192
MOV
ANL
ORL
MOVX
ANL
JZ
MOV
MOV
MOVX
RET
R0,#USACT
P2,#MSKPG
P2.#MEIOU
A.@RO
A,#TRDY
COl
A.R4
R0,#USADA.
@RO,A
2193
;*-*-*-*-*-*-*-*-*-*-*
2194
;EXl'ElWALLY
REFERENCED
ROUTINE
2195
;
READER
INPUT
CODE
2196
;
VALUE
RETURNED
IN
A
2197
;
2198
;REG
USED:
A,R0-R3,P2
2199
;REG
MODIFIED:
A,RO-R3,P2
2200
;
NESTING:
2
2201 ;
2202
TYRI:
2203
2204
2205
2206
2207
2208
2209
RI05:
2210
2211
2212
2213
2214
2215
2216
2217
2218
SEL
CALL
SEL
JZ
CLR
JMP
ANI.
OR!.
1'10V
l'IOVX
AXlL
JZ
MOV
1'10'VX
CALL
MDt
CICASIO
MHO
Rl05
C
TYCI
P2.#MSKPG
P2,#~IEIOU
RO.#USACT
A,@RO
A.#TXBE
!tICS
A.,#TADV
@RO,A
DELAY
; INl'UT
CONSOLE
STA'l'US
;TEST
FOR
TRANSMITTER
READY
;
CONTINUE
TO
CHECK
STATUS
UNTIL
BE
;
LOAD
CHARACTER
;OUTPUT
IT
:
SELECT
MEHORY
I'!APPED
I/O
;GET STATUS
;
CX:
FOR
TIlANS!H'ITER
BUFFER
Em'TY
;
TRY
AGA
IN
IF
NOT
EMPTY
;TAl'E
ADVAnCE
;
OUTPUT
ADVANCZ
CO:MH
..
4.I."ID
;
DELAY
40
N.S
ISIS-II
MC8-481'lJP1-41
~CllO
ASSDmLER.
w.e
PBO!IPT-48
S'!STDI
s)l'UTOR
W.0
6ImZ
PAGE
32
LOC
OBJ
0642
2325
9644
90
0645
B8FA
0647
80
0648
~302
064A
9654
064C
F4A8
064E
EB47
0660
27
0651
97
0652
A7
0653
83
0634
BB20
0656
80
0657
97
0658
83
0659
F5
065A
74AA
065C E5
065D
C660
065£
83
0660
BF48
0662
BCe0
0664
F4AD
0666
EF64
0668
83
8669
F5
066A
548D
066C
7482
066E
B927
0670
B486
0672
E5
0673
D4CF
0675
03C6
0677
9672
SEQ
2219
2220
2221
2222
RII0:
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
RIl5:
2233
2234
2235
2236
RI20:
2237
2238
SOURCE STATDIENT
MOV
mvx
MOV
~IOVX
ANt.
JNZ
CALL
DJl'fZ
CLR
CLK
CPL
RET
MDV
~toVX
CLK
RET
A,-COE
@R0.A
11.3,#258
A.aRO
A.#RRDY
RIlS
DELI
R3.R.110
A
C
C
R0,#USADA
A.@R0
C
2239
;*-*-*-*-*-*-*-*-*-*-*.
2240
;
PUNCH
LEADER
ON
TTY
PUNCH
2241
;
2242
;
REG
USEl):
A.
R0. R4.
P2
2243
;REG
MODIFIED:
A,R0,R4,P2
2244
; NESTING: I
2245
;
2246
LEAD:
2247
2248
2249
2250
2251
2252
LEAD2:
22~3
2254
2255
LEAD1:
2256
2257
2258
2259
SEL
CALL
SEL
JZ
RET
mv
MOV
CALL
DJNZ
RET
nBl
CKASIO
nB0
LEAD2
R7,#?2
R4.-0
TYPO
R7,LEAD!
2260
;*-*-*-*-*-*-*-*-*-*-*
2261
; READ
TrY
(ENTER):
.-
; OUTPUT STOP
COl'Jllt.UlD
;SET
TIMER
FOR.25&
MS
; INPUT READER STATUS
; CK FOR RECEIVER BUFFER READY .
;DATA
READY
;DELAY
1
MS
;TIMER
NOT
EXPIRED
;
READ
EBB.OR
; INPUT DATA
; CLEAR
ERROR
FLAG
2262
;THIS
ROUTINE
READS
A BEXADECIl'!AL
FILE
FROM
THE
TTY
2263
;READER DEVICE
AL"fD
LOADS
IT
INTO
~RY.
orre
HEXADECIJ!AL
2264
,PARAMETER
IS
EXPECTED.
THIS
PARAMETER
IS
A BASE ADDllESS
2265
;TO
BE
ADDED
TO THE HDlORY
ADDRESS
OF
EACH
DATA BYTE
El'l'COUN"l'ERED.
2266
;
IN
THIS
WAY,
HEXADECIMAL
FILES
HAY BE
LOADED
INTO
MEMORY
2267
;
IN
AREAS
OTBER
THAN
TB'A.T
FOR
l'lRIClI
.TREY
WERE
ASSDlBLED.
2268
;ALL
RECORDS
READ
ARE
CBECXSumJED
AND
COMPARED
AGAINST THE
2269
;CBECI<5UM
IN
THE
RECORD.
IF
A
CHECKSUM
ERROR
(OR
TAPE
READ
ERROR>
2270
;
OCCURS,
TRE ROUTINE TAKES
AN
ERROR
EXIT.
NORMAL
LOADING
IS
2271
l'l'ERI'fINATED
WHEN
AN
EOF
RECORD
IS
ENCOUNTERED.
2272
;
2273
READ:
2274
2275
2276
2277
SEL
CALL
CALL
MDI
GEXTY
GIPRM
2278
;SAVE
BIAS
ADDRESS
2279
2280
2281
2282
READS:
2283
MOV
CALL
RI.-BIASL
?lVR45
2284
2285
2286
2287
2288
2289
2290
2291
;
SCAN
1'0
RECORD
MARIC
SEL
MS0
CALL RTTY
.~D
A,#(-':')
JNZ
READS
;
CLEAR
CBECXSUM
;GET
BIAS
ADDRESS
ISIS-
It
l'!CS-4&lU'PI
....
n
MACRO
ASSE:MBLER.
V2.
e
PROMPT-48 SYSTEll(
MONITOR
w.e
6MBZ
PAGE
33
LOC
OBJ
0679
B826
067B
A0
067C
MF5
e67E
FC
067F
C6B0
0651
AE
0682
D4F5
0684
B833
0686
FC
0687
A0
0688
D4F5
068A
B832
068C
FC
068D
AO
068E
F5
068F
B832
0691
B927
0693
94DA
0695
E5
0696
D4F5
0698
D4F5
069A
F5
069B
B45E
069D
E6B2
069F
B833
06Al
D4Al
06A3
D408
06A5B·HD
06A7 E5
06AB
EE98
06AA D4F5
06AC
96B2
06AE
0472
06B0
2451
06B2
F5
06B3
9474
06B5
E5.
06B6
04FE
06B8
031>0
06BA E6CC
06BC
03E9
06814 F6CC
06C0
0306
06C2
F6C8
06C4
0307
06C6 F6CC
96CB
039A
06CA
97
96CB
83
06CC
97
06CD
A7
SEQ
2292
2293
2294
2295
2~96
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
SOURCE
STATEMENT
mv
MQV
CALL
:MOV
JZ
MaV
CALL
:MOV
:MOV
nov
CALL
MOV
MOV
MOV
R0,#CKSUM
.R0,A
RBYTE
A,R4
READ4
Ro,A
RBYTE
R0.#lVRKH
A,R4
@R0,A
RBYTE
R0.#WRKI..
A.R4
@lR0,A
;
GET
RECORD
LENGTH
;
ZERO
RECORD
LENGTR. ALL
OOftE
; R6 =
RECORD
LENGTH
;GET
LOAD
ADDRESS
HI
;GET
LOAD
ADDRESS
LOW
2308
;
LOAD
ADDRESS
=
LOAD
ADDRESS
+ BIAS
2309
2310
2311
SEL
MBl
2312
;(PTR1L/H) = (PTRlL/H) + (PTR2L/H)
2313
2314
2315
2316
2317
2318
READ6:
2319
2320
RL\D5:
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
READ4:
2335
2336
READ2:
2337
2338
2339
2340
2341
MOV
MOV
CALL
SEL
CALL
CALL
SEL
CALL
JNC
MOV
CALL
CALL
CALL
SEL
DJNZ
CALL
JNZ
JI1P
JMP
SEL
CALL
SEL
JMP
R0,#WRKL
Rl.#BIASL
ADDBL
MB0
RBYTE
RBYTE
MDI
CWKUL
READ2
.R0,#lffiKH
WRKA
STOWK
INWRK
J.lm0
R6.READ5
RBYTE
READ2
BEAD3
CWLV
lIml
DAFLD
~m0
ERROR
;
RECORD
TYPE
;READ
DATA
;STORE
DATA
;
INC
LOAD
ADDRESS
;
LOOP
TI
L
DONE
;
READ
CHECKSUM
;
ex:
SUM
ERROR
;
GET
ANOTHER.
RECORD
;ALL
DONE
2342
;*-*-*-*-*-*-*-*-*-*-*
2343
;
DECODE
ASC
II
CHAR
IN <
A>
INTO
HE.~
IN <
A>
2344
;
2345
;
REG
USED: A
2346
;REG MODIFIED: A
2347
; NESTING: 0
2348
;
2349
NIBBLE:
2350
•
2351
2352
2353
2354
2355
2356
2357
2358
NIB2:
2359
2360
2361
2362
liIBI:
2363
2364
ADD
JNC
ADD
JC
ADD
JC
ADD
JC
ADD
CLR
RET
CLR
CPL
A.#(-'0'}
AND
0FFR
NIBI
;DIG
<
'0'
A,
#(
( ,
0'
-
'G')
MID
0FFH}
NIBI
;DIG
>
'F'
A.~6
NIB2
A,
117
NIBI
C
C
;DIG>
;DIG
> •
9'
;RETURN
HEX
N!BBLE
IS
IS-
II
MCS-481'UP
t-41
MACRO
ASSEMBLER.
V2. e
PROMPT-48
Sl'S'l'Erll'!ONlTOR V3.0
6MBZ
PAGE
34
LOC
OBJ
06CE
83
06CF D429
06D1.F6D6
06D3 537F
06D5
83
06D6
04FE
06.D8
0021
06DA
9AF0
06DC
8A08
06BE
80
06DF
5302
06E1
C6DE
06E3 B820
06E5
80
06E6
83
06E7
FC
06E8 03F6
06EA E6F0
06EC
FC
06ED
0307
06EF
AC
06F0
FC
06Fl
0330
06F3
AC
06F4
83
06F5 D4!CF
06F7
D4B8
06F9
47
06FA
AC
06FB
D4CF
06FD
D4B8
SEQ.
2365
2366
SOURCE
STATEl'lE!fl"
2367
;*-*-*-*-*-*-*-*-*-*-*
;
RETU'RN
ERROR
,
NOT
HEX
DIG
2368
;GET
CHAR
FROM
TrY
AND
l'IASK
OFF
PARITY BIT
2369 ;
2370
;REG
USED:
A,R0,R2.R3,P2
2371 ;REG
MODIFIED:
A,R0,R2,R3,P2
2372 ;
NESTING:
3
2373 ;
2374
ltI'TY:
2375
2376
2377
2378
2379 RTYt:
2380
2381
CALL
JC
ANL
RET
JMP
TYRI
RTY1
A,#7FR
ERROR
2382
;*-*-*-*-*-*-*-*-*-*-*
2383
;EXTERNALLY
REFEllENCED
ROUTINE
;
IF
READ
ERROR
2384 ;
CONSOLE
INPUT
CODE,
VALUE
RETURNED
IN
A
2385 ;
2386
;REG
USED:
A,R0,P2
2387
;REG
lIIODIFIED!
A,R0,P2
2388
;
NESTING:
0
'2389
;
2390 TYCI:
2391
2392
2393
2094
Cl1:
2395
2396
23'}7
MOV
ANL
ORL
MOVX
Arm
JZ
FFER
FULL
2398
lIIOV
2399
1I10VX
2400
RET
2401
R0,#USACT
P2,#.MSKPG
P2.#MEIOU
A,@RO
A,#RRDY
CI1
R0,#USADA
A,OR0
2402
;*-*-*-*-*-*-*-*-*-*-*
; INPllT
CONSOLE
STATUS
;CRECK
FOR
RECEIVE
BUFFER
READY
;
CONTINUE
TO
CHECK
STATUS
UNTIL
BU
; READ
TlIE
CHARACTER
;
RETURN
2403
;CONVERT
4
BIT
NIBBLE
IN
R4
TO
ASCII
IN
R4
2404 ;
2405
;REG
USED:
A.R4
2406
;REG
MODIFIED!
A,R4
2407
;
NESTING:
0
2408
;
2409
CONY:
2410
2411
2412
2413
2414
2415
2416
CONYt:
2417
2418
2419
2420
2421
MOV
ADD
JNC
MOV
ADD
MOV
MOV
ADD
MOV
RET
A,R4r
A.#(-10)
CONY
1
A.R4
A.#7
R4.A
A,R4
A,#'0'
R4,A
2422
;*-*-*-*-*-*-*-*-*-*-*
AND
0FFR
;
DIG
<
10,
(0-9)
;ADJUST
FOR
(A-F)
;
ADD
BIAS
FOR
ASCI
I
2423 ;
READ
TIrO
ASCII
CHARACTERS,
DECODE
INTO
8 BIT
BINARY
2424
;RETURN
BIl'l'ARY
IN
R4
AND
CHECKSUM
IN
<A>
2425 ;
2426
i
REC
USED:
A,
RC,
P.2-R4,
P2
2427
;REG
MODIFIED:
A,R0,R2-R4,P2
2428
;
NESTING:
4
2429
;
2430
RBYTE:
2431
2432
2433
2434:-
2435
2436
CALL
CALL
SWAP
MOV
CALL
CALL
RTI'Y
NIBBLE
A
R4.A
RTI'Y~
NIBBLE
;
BE..~
CHAR
FROM
'ITY
;
CONVERT
ASC
I I
TO
HEX
;
SAVE
HI
NIBBLE
;GET
LOW
NIBBLE
ns-It
MCS-48/UPI-41
MACRO
ASSElmLER.
W.O
ROM:PT-48
SYSTEM:
110NITOR
W.0
6MltZ PAGE
35
LOC
OBJ
06FF
4C
0700
AC
0701
B826
0703
60
0704
A0
0705
83
0706
F5
0707
548D
0709
74B6
070B
D49F
070D
E5
070E
D459
0710
BD00
0712
BCl0
0714
F5·
0715
B804
0717
B932
0719
94DA
071B
FC
071C
37
071D
0301
071F
AC
0720
FD
0721
37
0722
1300
0724
AD
0725
B804
0727
B930
0729
94DA
072B
E5
072C
E632
072E
BE10
0730
E436
0732
FC
0733
0311
0735
AE
0736
FE
0737
:}63B
0739
E475
073B
F497
073D
BC3A
073F
F4AD
0741
27
0742
Ba26
0744
AO
0745
FE
0746
AC
0747
B4FS
SEQ
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
SOURCE
STATEM:ENT
om..
nov
nov
ADD
nov
RET
A,R4
R4.A
R0,#CKSmt
A,@R0
~R0.A
; *-*-*-*-*-*-*-*-*-*-* .
;
WRITE
'MY
(DUMP): -
;
UPDATE
CBEcxsun
;
THIS
ROUTINE EXPECTS
TWO
BEXADECHIAL
PARA...'1ET.EPS
"WHICH
ARE
IIl'ITERPRETED
AS
THE
BOUNDS
OF
A
MEMORY
AREA
TO
BE
ENCODED
I
INTO
HEXADECIMAL
FORMAT
AND
PUNCHED
ON
THE
TrY
PUNCH
DEVICE.
;
WRITE: SEL
CALL
CALL
CALL
SEL
CALL
MBl
GEXI'Y
G2PRM:
WRKIA
Ma0·
LEAD
;GET
FIRST
ADDRESS
2457
WRI3:
2458
2459
2460
2461
2462
2463
.2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
:!504
2505
2506
2507
2508
2509
; COllPUTE
RECORD
LENCTH
l'IOV
M,#O
nov
R4,#16
SEL
ron
;
(PTRIVID
= (
PTRIVID
+
(PTR2L/ID
l'IOV
R0,#4
nov
Rl,#WRKL
CALL
ADDBL
; TWO'S
COMPLEMENT
R4,
R5
nov
A,R4
CPL A
ADD
A,#l
nov
R4,A
MOV
A.M
CPL A
ADDC
A,#0
nov
M.A
; (
PTRIVHJ
=
(E'TRIVH)
+
(P'l'R2VH)
.nOV
MOV
CALL
SEL
JNC
nov
JMP
WRI4:
nov
ADD
l'IOV
lffl.I5:
nov
JNZ
jpjp
WRI9:
CALL
nov
CALL
CUt
!'lOV
nov
~10V
!'lOV
CALL
R0,#4
Rl,#WRKIL
ADDBL
l'IB0
WRI4
R6,#16
WRIS
A,R4
A,#l?'
R6,A
A.R6
lffl.19
WR.!6
CRLF
R4,
#':'
TYPO
A
R0
,
#CKSUJ.I{
@R0,A
A.Ro
R4.A
PBYTE
;
RECORD
LEN
<
16
;
RECORD
LEN =
16
;
ZERO
RECORD
LEN,
ALL
DONE
;
PUNCH
CR,
LF
;
CLEAR
CBEexsuM
;
PUNCH
RECO!u) LENCTII
ISIS-II
MC5-48/UPI-4l
Jf4CRO
ASSEl'lBLER,
V2.0
PACE
36
PROlfPT-48
SYSTEl'I
l'1ONlTOR
V3.0
6MBZ
LOC
OBJ
SEQ.
SOURCE
STATEl'JENT
21$10
;
MOVE
ADDRESS
VALUE
FROM
WRXI/R
TO
R4/R5
ZERO
MS
NIBBLE
AT
R5
2511
0749
B832
2512
MOV
R0.
#WRXL
074B
B904
2513
MOV
Rt,#4
074D F5
2514
SEL Mal
074E
M88
2515
CALL
MVREG
0750
E5
2516
SEL
Ma0
0751
2C
2517
XCH
A,R4
0752
2D
2518
XCR
A,R5
0753
2C
2519
XCH
A.R4
0754
MFS
2520
CALL
PBYTE
f
PUNCH
HI
ADDRESS
0756
2D
2521
XCH
A.R5
'0757
2C
2522
XCH
A,R4
0758
84F8
2523
CALL
PBYTE
;
PUNCH
LOW
ADDRESS
075A
27
2524
CLR
A
075B
AC
2525
MOV
R4.A
075C
MF8
2526
CALL
PBYTE
;
PUNCH
RECORD
TYPE
2527
WRI7:
075E
F5
2528
SE!.
MSl
075F
84A8
2529
CALL
FEWRX
;GET
DATA
0761
E5
2530
SEL
Ma0
0762·
AC
2531
MOV
R4.A
0763
B4F8
2532
CALL
PBYTE
;
PUNCH
DATA
0165
F5
2533
SEL
r:ml
0766
B4FD
2534
CALL
IrnlRK ;
INC
POI'NTE..'1.
0768
E5
2335
SEL
MBO
0769
EE5E
2536
DJflZ R6.
WRI7
;
CONTINUE
TIL
RECORD
liRl'I"I'EN
076B B826
2537
MOV
R0,#CKSUl'I
076D
F0
2538
NOV
A.@R0
076E
37
2539
CPL
A
076F
17
2540
INC
A
0770
AC
2541
nov
R4,A
0771
MF8
2542
CALL
PBYTE
;
PUNCH
CHECKStJ1II
0773
E410
2543
J:MP
l'I"RI3
2544
l'lRI6:
2545
2346
;
PUNCH
END
OF
RECORD
WUlK
2547
0775
F497
2548
CALL
CRLF
0777
BC3A
2549
1I10V
R4,#':'
0779
F4AD
2550
CALL
TYPO
077B
27
2551
CLR
A
077C B826
2552
MOV
R0,#CXSUM
077£
A0
2t:i53
MOV
@R0.A
;
CLEAR
CBECESUM
077F
BE03
2554
1Il0V
R6,#3
2555
WRI8:
0781
BC00
2556
MOV
R4,#0
0783
84F8
2557
CALL
PBYTE
0785
EE81
2558
DJ1'fZ
R6,
WRl8
0787
BC01
2559
MOV
R4,#1
0789
B4F8
2560
CALL
PBYTE
1
PUNCH
RECORD
TYPE
078B F0
2561
NOV
A,@R0
07SC
37
2562
CPL
A
078D 17
2563
INC
A
078E
AC
2564
1I10V
R4,A
078F
MFS
2565
CALL
PBTIE
;PUNClI
CHECKSUM
0791
F';97
2566
CALL
CRLF
0793
D459
2567
CALL
LEAD
0795
2451
2568
JlIlP
CMDLV
;ALL
DONE
2569
2570
;*-*-*-*-*-*-*-*-*-*-*
2571
;
PUNCH
CR,
LF
ON
TTY
PUNCR
I'\1!!t'''''''''''
."
.. I
2573
;REG
USED:
A,RO.R4,P2
2574
;REG MODIFIED:
A,RO,R4,P2
2575
; NESTING: 1
2576
,
2577
CRLF:
0797
BeOD
2578
NO';
R4.#CR
0799
F4AD
2579
CALL
TYPO
079B
BCOA
2589
nov
R4,#LF
079D
F4AD
2581
CALL
TYPO
079F
83
2582
RET
ISIS-II
MCS-48/UPI-41
MACRO
ASSEl'fBLER.
V2.0
PROHPT-48
SYS'I'EP!
MONITOR
V3.0
6MB.Z
PAGE
3T
LOC
OBJ
87A9
2328
07A2 F4A8
87A4
07
07A5 96A2
07A7
83
07A8
BAC8
87AA
EAAA
87AC
83
07AD
C419
87M
B821
87Bl
9AF0
07B3 8A08
0785
80
07B6
5302
07B8
CoBC
07BA
23FF
07BC
83
07DC
07DC
F5
07DD
84F2
07DF
F5
07E0 64FA
07E2 A4Cl
07E4 F5
07Eo
8423
SEQ.
SOURCE
STATEl'JEl'M'
2583
2584
;*-*-*-*-*-*-*-*-*-*-*
2585 ;
DELAY
<10.
MILLISECONDS
2586
;
2587
;
REG
USED:
A,
R2
2588
;MG
'MODIFIED:
A,R2
2589
;
NESTING:
1
2590
;
2591
DELAY:
2592
2593
DEL3:
2594
2595
2596
2597
2598
DELI:
nov
CALL
DEC
JNZ
RET
2599
IF
NOT
SY3MHZ
2600
MOV
2601
ELSE
2602
2603
ENDIF
2604
DEL2:
2605
2606
2607
nov
DJNZ
RET
A,
#40
DELI
A
DEL3
R2,DEL2
2608
;*-*-*-*-*-*-*-*-*-*-*
2609
;EXTERNALLY
REFERENCED
ROUTINE
; 1 ns
; 1
liS
;5
US
2610
;
PUNCH
OUTPUT
CODE,
VALUE
EXPECTED
IN
R4
2611 ;
2612
;MG
USED:
A,R0,P2
2613
;REG
MODIFIED:
A,R0,P2
2614
;NESTING~
6
2615
;
2616
TYPO:
2617
2618
JHP
TYCO
2619 ;*-*-*-*-*-*-*-*-*-*-*
2620
;
EXTERNALLY
REFERENCED
ROUTINE
2621
;CONSOLE
INPUT
STATUS
CODE
2622
;
2623
;REG
USED:
A,R0,P2
2624
;.REG
MODIFIED:
A,R0,P2
2625 ;
NESTHrG:
0
2626 ;
2627
TYCSTS:
2628
2629
2630
2631
2632
2633
2634
2635
CS1:
2636
2637
l'IOV
ANL
om.
MOVX
.<\Nt.
JZ
NOV
RET
R0,#USACT
P2,#MSKPG
P2,
#l'lEIOU
A,@RO
A,#IUU)Y
CSI
A,
#TRUE
2638
;*-*-*-*-*-*-*-*-*-*-*
2639
2640
2641
ORG
(BOOH
-
36)
;
PUNCH
OUTPUT
INPUT
CONSOLE
STATUS
CHECK
FOR
RECEIVE
BUFFER
READY
RET
FALSE
IF
ON
DATA
;
RETURN
;ALIGN
AGAINST
TOP
OF
2K
2642
;
El'ITRY
VECTOR
TABLE
FOR
MONITOR
ROUTINES
2643
2644
ELK:
2645
2646
2647
ENREF:
26048
2649
2650
2651 REFS:
2652
2653
KBST:
2654.
SEL
JMP
SEL
JI1P
JHP
SEL
JMP
Mal
BLANK
;BLAnK
DISPLAY
~ml
ENRFS
;
ENABLE
EAi'
INTI:RRCPTS
FOR
;DISPLAY
REFRESH
REFSII
;REFRESH
DISPLAY
MDl
KBSTS ;GET
KEYBOARD
STATUS
LOC
OBJ
07E7
F5
07E8
6472
07EA
FIS
07EB
64~8
07ED
FIS
87EE
C438
07FO
F3
87Fl
C431
07F3
FIS
07F4
8490>
07F6
E4AF
07F8
C4D8
07FA
C419
07FC C432
87FE
E4AD
8800
eeFF
0880
0040
0020
0010
0008
0004
0000
0001
0001
08e0
1486
8802
1458
0804
D408
0806
B4F9
0808
8452
080A
F602
080C
34D4
080E
24E9
SEQ
SOURCE
STATnIEl'fT
2656
KanT:
2657
2638
2659
DBIN:
2660
2661
2662
DGOUT:
2663
2664
2665
BXOUT:
2666
2667
2668
2669
DGSTC:
2610
21;71
2672
2673CSTS:
2614
2613
CI:
2676
2677
CO:
2678
2679
RI:
2680
2681
PO:
2682
2683
SEL
JMP
.SEL
J'NP
SEL
Jl'iP
SEL
J'NP
SEL
JMP
J'NP
JHP
JMP
2684
t
END
TABLE
MBI
GTEEY
MBl
GETl
MBI
DTBLU
MBI
DECBX
MBl
UDDFL
TYCSTS
TYCI
nco
RIOS
TYPO
2683
;*-*-*-*-*-*-lfC-lfC-lfC-lfC-lfC
PAGE
38
;GET
KEYBOARD
ClIAR
; GET
ICEYBOARD
ClIAR
;UPDATE
DISPLAY
WIm
7 SEC
CIIA.R
;
DECODE
HEX
CHAR
TO
7 SEG
;AND UPDATE
DISPLAY
;DECODE HEX STRING TO 7
SEG
;AnD UPDATE
DISPLAY
;
TrY
STATUS
;
TrY
CONSOJ,.E
IN
;
TrY
CONSOLE
OUT
;
'tTY
READER
IN
;
'tTY
PUNCH
OUT
2686
; BEGINING
OF
SECOND
2K
OF
PROGIW'r
l'JEMORY
2687
;
2688
ORG
seOB
2689
PAGEl SET
2640
;lfC-lfC-*-lfC-lfC-lfC-*-lfC-lfC-*-*
2691
;PRD~
PROGRAHING
DEFINITIONS
2692
;
2693
ORTST
EQU
2694
PROG
EQ.U
2695
EA
EQU
2696
VDD
EQU
2697
RST
EQU
2698
T0
EQU
2699
DUTDEN
EQU
2700
DUTDIN
EQU
2701
PROMEN
EQU
2702
;
10000000B
01000000B
00100000B
00010000B
00001000B
00000100B
00000000B
00000001B
00000001B
;ORIDT
TEST
;PROG
PIN
;EA
PIN
;VDD
PIN
;RESET
PIN
;T0
PIN
; DUT DATA ENABLE
;DUT
DATA
IN
;
PROM
PROCBAMINC
ENABLE
2703
; NOTE:
'mE
WORD
"DUT"
WILL
REFER
TO
THE
DEVICE
2704
;
UNDER
TEST
OR
THE
DEVICE
BEING
PROGRAMED
AND
VElUFIED.
2705
;lfC-lfC-*-*-lfC-*-*-lfC-*-*-*
2706
; FETCH PROn: -
2707
;
THE
PROM
DATA
WILL
BE
TRANSFERRED
TO
THE
DATA.
2708
;l'IENORY FOR
VERIFICATION/~IODIFICATION.
2709
;
2710
FETDT:
2711
2712
CALL
ORIENT
2113
;DEVICE
ORIENT
IS
OK
EA
IS
ON
AND
PBO:MEN
IS
ON
2714
2713
FETI:
2716
2717
2718
2719
2720
CALL
CALL
CALL
CALL
GDUTD
STOWE:
INWIQ
CWKWl
;GET
DUT DATA
;STOfIE DATA IN
EXT
RAM
;
INCRU.!E.1"fT
ADDRESS
;CK
FOR
DONE
2721
;
IF
ADDRESS
> UPPER
Lll!lIT
TBE1T
ALL
DONE
27,22
2723
2734
2725
,
27'26
JC
CALL
.rnP
FETl
PRG4
CO~lP6
2727
;*-*-*-*-*-*-*-*-*-*-*
;
GET
NEXT
BYTE
;
CHECK
PROM
DATA
2728
;VECTOR FOR BREAKING
FRO~
USER
PROGRAH
WITH
!1Bl
SELECTED
.
_.
..
-I
ISIS-II
l'lCS-48I'UPl-41
MACRO
ASSEMBLER.
V2.0
PROMPT-48
SYSTEM
MOWITOR
V3.0
6HHZ
PAGE
39
LOC
OBJ
081F
081F
00
0820
00
0821
2304
0823
E5
0824
0428
0826
2304
0828
83
0829
FC
082A
AB
082B 145B
082D
FB
082E
2C
082F
AE
0830
DC
0831
97
0832
C635
08C4
A7
0835
83
0836
5842
0838
9AF0
08SA 8A00
083C
80
003D
5304
083F 4301
0841
90
0842
2304
0844
ll42C
08406
541D
0848
B840
084A
80
084B
AC
084C
2304
084E 542C
0850
B842
0852
9AF0
0854
8M8
0856
80
0857
53<34
0859
90
085A
83
SEQ
2729
2730
2731
2732
2733
2734
2735
2736
;CKMB:
2737
2738
2739
SOURCE
STATEl!IENT
ORG
nop
NOP
~IOV
SEL
JMP
MOV
RET
8IFR
A.#4
MBO
MBIRT
2740
;*-*-*-*-*-*-*-*-*-*-*
2741
;
VERIFY
DUT
DATA
WITH
l!JEmRY
DATA
·2742
;
2743
;REG
USED:
A.RO,Rl,Ra,R5.R6,P2
2744
;REG
MODIFIED:
A,RO,Rl,R3.R5,R6,P2
2745
;
NESTING:
3
2746
;
2747
VERIFY:
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
VERI:
2759
2760
MOV
~IOV
CALL
MOV
XCR
MOV
XRL
CLR
JZ
CPL
RET·
A.R4
Ra.A
GDUTD
A,Ra
A,R4
R6,A
A.R4
C
VERI
C
2761
;*-*-*-*-*-*-*-*-*-*.*
2762
;
FETCH
DATA
FROM
DUT
2763
;
2764
;REG
USED:
A,R0.R4.R5.P2
2765
;REG
MODIFIED:
A,R0,R4.R5.P2
2766
;
NESTING:
1
2767
;
2768
FEDUT:
2769
2770
2771
2772
2773
2774
2775
2776
MOV
ANL
ORL
MOVX
ANL
ORL
MOVX
R0,#PPIPC
P2,#MSKPG
P2.#MEIOU
A.@R0
A,
#4
A.#(DUTDEN +
@R0,A
;GET
1'!EM:
DATA
;
SAVE
;GET
DUT
DATA
;
RESTORE
MEM
DATA
;
COMPARE
DATA
;NO
ERROR
;
ERROR
; SELECT
MEM
PAGE
;SAVE
MS
ADDR
BIT
DUTDun
;SET
BUS
TO
INPUT
2777
;
TOGGLE
B
IT
IN
CONTROL
WORD
AND
PORT
2778
2779
2780
2781
2782
2783
2784
2785
mv
CALL
CALL
HOV
MOVX
MOV
A,#TO
TOGROU
D20US
RO,
#PPIPA
A,@R0
R4,A
;20
US
DELAY
;GET
DUT
DATA
;SAVE
DATA
2786
;TOGGLE
BIT
IN
CONTROL
WORD
AND
PORT
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
MOV
CALL
MOV
ANL
ORL
MOVX
ANL
MOVX
RET
A.#TO
TOGROU
R0,#PPIPC
P2.
#r',sKPG
P2.#rIEIOU
A,@RO
A,#4
@RO,A
2798
;*-*-*-*-*-*-*-*-*-*-*
;SAVE
I1S
AnDR
BIT
;SET
BUS
TO
OUTPUT
2799
;
ALGORITIIE.M
FOR
FETCHING
DATA
FROM
THE
DUT
2800
,
2801
;REG
USED:
A.R0,Rl.R5.P2
IS
IS-
II
!lCS-4&ftJPt-41
l'l'ACRO
ASSDlBLER. V2. e
PBOMPT-48
SYS"fE1II
rfDIUTOR
va.
0
6l'UJZ
PAGE
48
LOC
OBJ
085B
146A
0850
5410
085r
5426
0861
5410
0863
1436
0865
5425
0867
5426
0869
83
086A
8842
086C
B92F
086E
9AF0
0870
8A08
0872
rl
0873
5304
0875
90
0876
FD
0877
53FC
0879
AD
087!\.
FI
087B
5303
0870
40
087E
AD
087F
C8
0880
90
0881
C8
0882
C9
0883
rl
0884
90
0885
83
0886
14CD
0888
B90r
088A
B495
e88e
882A
088E
2303
0890
B964
0892
MA3
0894
B802
0896
BA00
0898
0410
089A
9488
089C
74D6
089E
CB
089F
74C3
08Al
B832
G8A3
B92E
SEQ.
SOURCE
STA'l'E1'WI
I
2882
;BEG
lIODIrIED:
A.R0.Rl.R5.P2
2803
;
NESTING:
2
2804
;
2805
GDUT»:
2806
2807
2808
2809
2810
2811
2812
2813
2814
CALL
CALL
CALL
CALL
CALL
CALL
CALL
RET
ADDtlT
D20US
TOGttST
D20US
rEDUT
Dleus
TOGRST
2815
;*-*-*-*-*-*-*-*-*-*-*
2816
I
WRITE
ADDRESS
TO
DtlT
2817
;
2818
;BEG
USED:
A.R0,Rl,RS,P2
2819
;REG
NODlrIED:
A,R8,Rl,RS.P2
2820
;
NESTING:
0
2821
;
.2822
ADDtlT:
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2849
2841
2842
2843
2844
HOV
NOV
ANt.
Om.
NOV
ANL
mvx
NOV
ANL
NOV
mv
ANt.
Om.
nov
DEC
:MOVX
DEC
DEC
nov
MO\'X
RET
R0,#PPIPC
Rl,#WRK2H
P2.#PJSKPG
P2,#MEIOU
A,eR!
A,#4
@Re,A
A,RS
A,#0rCH
R5,A
A,ORl
A,#3
A,R5
R5,A
RO
OR0.A
R0
Rl
A,i!DRI
@ROtA
2845
;*-*-*-*-*-*-*-*-*-*-*
;
ADDRESS
T.BE
OUT
;20
US
DELAY
I
RELEASE
RESET
;20
us
DELAY
;
GET
DATA
FROM
OUT
;
10
us
DELAY
;GROUND
RST
;
SELECT
l'!EM
PAGE
;GET
ADDR
HI
;SAVE
MS
ADDR
BIT
; SET
BUS
rOR
OUTPUT
I
GET
ABDR
111
;
lfASlC
TO
1K
;
l'lASK
IN
DUT
CONTROL
IOUTPUT
HI
ABna.
AND
COl'M."ROL
; GET
ABDR
LOW
;
OUTPUT
ABDR
LOW
2846
;CHECK THAT TIlE DEVICE
IS
SOCD:I'ED
CORREC'I1..Y
2847 ;
2848
;REG
USED:
A,RO,R5,R7.24,25,31.P?
2849
;REG
MODIFIED:
A,RD,ns,R7,24,25,3l,P2
2850
;
NESTING:
1
2851
;
2852
ORIEN'r:
2853
2854
2855
2856
CALL
NOV
CALL
ORI3
RI.#0F11
SEULX
2857
;SET
PTRIVlI
11 VAL/VAll
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2369
2870
PIOV
MOV
NOV
CALL
NOV
nov
CALL
CALL
CALL
DEC
CALL
Re,#BASEL
A,
#0
Rl,#MEPG4
PRSET
Ra,#2
R2,#0
PUSH
GAODR
GTP5
Ra
G'TP3
;
FROl!1
ABDR
;TO
ADDR
2871
;
IF
DEL
::
EliD
TBEN
PROl!1
ABBR
2'
FROM:
ADDR
2872
2873
2874
l'10V
l'1OV
RO,#WRXL
Rt
,
#If"R.TCZL
...
-i
ISIS-II
MCS-4&'UPI-41
lfACRo
A.,.CilSEm3LER.
'V2.0
PROMPT-48
SYSTElI
MONITOR
V3.0
6MBZ
PAGE
41
LOC
OBJ
08A5
8488
08A7
FE
08A8
C6B0
08M
B907
08AC
B495
08AE
74D0
08B0
B832
0882
B92C
08B4
8488
08B6
B82E
08B8
B927
08BA
B4sa
08BC BD08
08BE
B446
08C0
4301
08C2
90
08C3
D49F
08C5
C6CA
08C7
4301
08C9
90
08CA
542A
08CC
83
08eD
B42E
08CF
BDOF
08D1
BF02
08D3
5426
08D5
2380
08D7
542C
08D9
2308
08DB
5421
08DD B80B
08DF
80
08E0
F2ED
08E2
2380
08E4
5420
08E6
EFD5
08E8
B4ZE
08EA
E5
08EB
04FE
08ED
B42E
08EF
8a
08F0
B929
08F2
Fl
08F3
83
08F';' B80B
08F6
9AFO
08F8
8A08
08FA
80
SEQ.
2875
2876
2877
2878
2879
2880
SOURCE
STATEI1E..."lT
CALL
MOV
JZ
MOV
CALL
MVREG
A,R6
ORI6
Rl,
#ft!EPG7
SEULX
2881
;
IF
PRON
ADDR
>
2K
TlIEN
ERROR
2882
2883
2884
ORI6:
2885
2886
.2887
2888
2889
2890
2891
ORI4:
2892
.2893
2894
2895
2896
2897
2898
2899
2900 GRI7:
2901
2902
2903
ORI3:
2904
2905
2906
2907
2908 ORI2:
2909
CALL
mv
MOV
CALL
MOV
~IOV
CALL
MOV
CALL
ORL
MOW
CALL
JZ
ORL
MOVX
CALL
RET
CALL
MOV
MOV
CALL
GTP0
R0.#WRKL
Rl,#WRK3L
MVREG
R0,#WRK2L
Rl,#BIASL
MVREG
R5,#RST
INII
A,-PROMEN
@R0,A
WRKIA
ORI7
A,-PRONEN
@RO,A
TOGEA
INI1'1'I
R5,#OFH
R7,#2
TOGRST
;PROM
ADDR
; INITIAL
CONTROL
STATUS
;
ENABLE
PROM
ACCESS
;
ENABLE
PROM
ACCESS
;EA
PIN
TO
HI
V
;
NUJ.I1BER
OF
TRIES
;
RELEASE
RESET
2910
;TOGGLE
BIT
IN
CONTROL
WORD
AND
PORT
2911
2912
2913
2914
MOV
CALL
2915
;
ORIENT
= 1
A,#ORTST
TOGROU
2916
;DELAY
A
MULTIPLE
OF
10
MICROSECONDS
2917
2918
2919
2920
2921
2922
2923
MOV
CALL
MOV
MOVX
JB7
A,#8
USTIME
RO,#HeRST
A,@R0
ORll
;80
US
DELAY
;
GET
STA.TUS
;
IF
ORIENT
OK
2924
;TOGGLE
BIT
IN
corITROL
WORD
AND
PORT
2925
2926
2927
2928
2929
2930
ORIS:
2931
2932
2933
ORl1:
2934
2935
MOV
CALL
DJNZ
CALL
SEL
JMP
CALL
A.,#ORTST
TOGROU
R7,ORI2
INI1'PI
~mo
ERROR
INIPPI
2936
;DEVICE ORIENT
IS
OK
2937
2938
2939
cnID:
2940
2941
2942
2943
CX]):
2944
2945
2946
2947
RET
MOV
~OV
RET
MOV
ANL
Om..
MOW
Rl
,
#E.L"'IODE
A,@R!
R0,#M:CHST
P2,
....
~!SKPG
P2,#MEIOU
A,@RO
;ORIENT
= &
;TRY
AGAIN
;
GET
PROGl'tIW:ING
HODE
L
ISIS-ll
MCS-4&'UPI-41
~.ACB.O
ASSDfBLER,
W.0
PROl'JPT-48 SYSTEl'1
IroN
ITOR va. e
6MBZ
PAGE
42
LOC
OBJ
08FB
83
0SFC
8829
08FE
A0
08FF
1486
0901
14F~
0903
9660
0905
B834
0907
23EF
0909
8903
090B
B4A3
090D
9AF0
090F
GA01
0911
B800
0913
B933
0915
BF0D
0917
F1
0918
90
0919
C9
09lA
18
091B
EF17
091D
BaF0
091F
B9D7
0921
BF10
0923
B4F1
0925
BF0A
0927
B934
0929
B833
092B
F9
092C
A3
092D
A0
092E
co
092F
19
0930
EF2B
0932
243E
0934
01
0935
F0
8936
01
0937
FF
0938
03
0939
F0
093A
01
093B
F0
09ac
00
093D
00
093E
B829
0940
2301
0942
AO
0943
B62E
0945
B927
0947
B488
0949
3464
SEQ
2948
2949
SOURCE
STATEm!lfr
RET
2950
;*-*-*-*-*-$-*-*-*-*-*
2951
; PROGR..uf/VERIFY (BURN>: -
2952
;THIS
COMMAl"m'
INITIATES
THE
PROM
PROGRAl'IMING.
THE
2953
;PROGRAM
BUFFER
SPECIFIED
liILL
BE
PROGRA.MMED
INTO
THE
2954
;PRON,
AND
SHOULD
BE
SUITABLY MODIFIED BEFORE
2955
;EXECUl"ION
OF
THIS
CO~~.
2956
;
2957
PRPRO:
2958
2959
2960
2961
MOV
MOV
CALL
R0.-EMODE
@R0,A
ORIENT
2962
;DEVICE ORIENT
IS
OK
EA
IS
ON
AND
PROMEN
IS
ON
2963
2964
2965
2966
CALL
JNZ
CKMD
PRG6
2967
;
SET
PTRIVH
= VAL/VAH
2968
2969
2970
2971
2972
2973
!IOV
MOV
~IOV
CALL
R0,-UPLML
A,#0EFH
Rl,#MErG3
PRSET
2974
;PUT
PROG
UfFO IN
Ext
RAK
2975
2976
2977
2978
2979
2980
2981
PRG?:
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
PRGS:
2995
2996
2997
2998
2999
3000
3001
3002
ProrI'BL:
3003
3004
3005
PRG9:
3@06
3007
3008
3009
3010
3011
3012
ANL
ORL
MOV
MOV
mv
MOV
MOVX
DEC
INC
DJNZ
MOV
MOV
MOV
CALL
MOV
MOV
MOV
MOV
r10VP
MOV
DEC
INC
DJNZ
JflP
DB
DB
MOV
r'10V
MOV
~!OV
!IOV
CALL
CALL
P2,-PfSKPG
P2,
-fIEPGl
R0,#0
Rl.#WRKlI
R7,#«WRKR-BIASL)+1)
A,@Rl
@lRO,A
Rl
R0
R7,PRG7
RO, #0F0EI
Rl,#(CODE
AND
0FFED
R7,#16
CODE2
R7,#0AR
Rl,#PRMTBL
AND
0FFR
R0,#~'RKR
A.R1
A,@lA
@R0,A
R0
Rt
R7,PRGS
PRG9
l,OFOH.l.0FFR.3,oF0H
l,0F0H,0,0
R0 •
#EI'10DE
A.#D8741
@R0,A
R0,#WRK2L
Rl,#BIASL
~1VREG
PRGS
ISIs-n
MCS-4tVOPI-41
lIACM
ASSDIBLE!l,
W
••
PROMPT-48 SYSTEl'l
MONITOR
V3.0
6MB:Z
PACE
43
LOC
OBJ
094B
B933
894D
B800
094F
BF0D
0951
9A.F0
0953
8A0t
0955
88
0956
Al
0957'
C9
0958
18
0959
EF55
095B
B829
09tSD
2300
095F
A0
0960
3464
0962
24E9
0964
B4AS
0966
AC
0967'
1429
8969
E6CE
896B
14F8
096D
B9FF
096F
3273
897'l
B900
097'3
29
097'4
DE
097'5 96BC
097'7
F9
097'8
968C
097'A B82E
0ne
8906
097E
84188
0980
FF
0981
5303
0983
Al'
0984
8806
0986
8934
0988
84162
M8A
E6CE
098C
BA01
098E
BB01
0990
0410
0992
146A
0994
341D
0996
5426
0998
5425
099A
5436
099C
2310
099E
542C
e9A0
5425
09A2
BFCH
09A4 54GA
09A6
5425
SEQ
3013
3014
301:5
3016
3017
3018
PRete:
3019
3020
3021
3022
3023
3024
3025
3026
3027
PRC6:
3028
3029
3030
PRGS:
3031
3032
3033
SOURCE
STA'1'E1'!ENT
MOV
MOV
MOV
AlI'L
ORL
MOVX
MOV
DEC
INC
DJl.'fZ
MOV
MOV
MOV
CALL
J~IP
CALL
MOV
RI,#WRXB
U,#0
R7,
#(
(
lilUaI-
B
lABU
+
1)
P2,
#l'1SKPG
P2,#MEPGI
A,@M
@RI,A
.
Rt
R.8
R1.PRG10
R0,#EMODE
A.#D8748
aR0,A
PRG5
CmIP6
FElIRK
R4,A
3034
;
IF
PBOlII
DATA
'"
MEM
DATA
THEN
SKIP
3035
3036
3031
3038
CALL
JNC VERIFY
PRG2
3039
;
IF
D8155
THEl'f
IF
PRO!!
DATA
< > 0FFH
THEN
ERROR
3040
; ELSE
IF
PROM
DATA
(>
0
THEN
ERROR
3041
3042
3043
3044
3045
3046
PRGll:
3047
3048
3049
3050
3051
CALL
MOV
JBI
MOV
XClI
XJ.U.
JNZ
MOV
c:ta!D
RI,#0FFR
PRell
RI.#0
A,Rl
A.R6
PRGI2
A,RI
3052
;
IF
D8748
TBEN
IF
PROM
ADDR
MSIt
IX >:
3F0H
THEN
SKIP
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3865
PReI3:
3066
3067'
3068
PRel:
3069
3070
3071
3072
3073
3074
3075
J1'fZ
nov
MOV
CALL
MOV
ANL
MOV
MOV
MOV
CALL
JI'TC
MOV
nov
CALL
CALL
CALL
CALL
CALL
CALL
PRe13
R0.#WRI<2L
Rl,#6
nvREG
A,R1
A,#3
R7,A
R0,#6
Rl,#UPLlfL
CKDBL
PRC2
PUSH
ADDtrr
D20US
TOGRST
D10US
WRDtrr
;#
OF
FIRST
PASS
nuFS
;#
OF
SECOND
PASS TRIES
; SAVE
COUl'ITER
VALUES
;
ADDRESS
Dtrr
;20
us
DELAY
; RELEASE RESET
; 10
us
DELAY
;OUTPtrr
DATA
TO
Dtrr
3076
;TOGGLE
BIT
IN coNTROL
WORD
AND
PORT
3077
3078
MOV
A,#VOD
3079
CALL
TOGROU
;
VDD
P IN
TO
HI
V
3080
CALL
DIOUS
;10
US
DELAY
3081
MOV
R7,#1
;#
OF
PROG
PULSES
3082
CALL
PULPROG
;PULSE
PROG
PIN
3083
CALL
D10US
;10
us
DELAY
3084·
,
3085
;TOGGLE
BIT
IN
CONTROL
WORD
AND
PORT
----
----
------.
ISIS-II
MCS-+8.IUPt-u
lUCRO
ASSEMBLER.
V2.0
PAGE
44
PlWPJPT-48 SYS'I'Ell
MONITOR
V3. 0 6m!Z
LOC
OBJ
SEQ.
SOURCE
STATEMENT
3086
09A8
2310
3087
MOV
A.#VDD
09AA
342C
3088
CALL
TOGROU
;WD
PIN
TO
5 V
09AC
5426
3089
CALL
TOGRST
;RESET
DEVICE
99AE
5425
3090
CALL
D10US
; 10
US
DELAY
09B0 1429
3091
CALL
VERIFY ;
CK
DUT
DATA
WITH
m:M
DA.TA
09B2
E6CE
3092
JNC
PRG2
;PROGRAMED
OK
0984
0422
3093
CALL
POP
;
GET
COUNTER
VALUES
09B6
EA.90
3094
DJNZ
R2,PRGl ;TRY 1
TIME
09B8
BAOI
3095
MOV
R2,#1
09BA
EB90
3096
DJrfZ
R3,PRGl ;
TRY
1 TIME, 1
TIME
MORE
3097
PRG12:
098C
AS
3098
CLR
Fl
3099
PRG3:
09BD
542A
3100
CALL
TOGEA
;EA
PIN
TO
0 V
09BF B42E 3101
CALL
INIPPI
3102
3103
;
DISPLAY
ADDRESS
OF
ERROR
3104
09Cl
B92F
3105
~IOV
R1,#WRX2H
09C3
9476
3106
CALL
DADDFL
09C5 FE
3107
nov
A,R6
09C5
AC
3108
MOV
R4,A
09C7 947C
3109
CALL
DDTFD
09C9 76FE
3110
JFl
COMP4
09CB
E5
3111
SEL
MBO
09CC
2405
3112
JMP
ERRW
;WILL
NOT
PROGRAn
3113
PRG2:
09CE B4F9
3114
CALL
INWK2
;
INCREMENT
ADDRESS
09D0 B452
3115
CALL
CWKWI
. ;
ex:
FOR
DONE
3116
3117
; IF
ADDRESS
>
UPPER
LIMIT
'l"BEN
ALL
DONE
3118
0902
F664
3119
JC
PRG5
;
PRGG
NEXT
BYI'E
.
3120
PRG4:
09D4
B82C
3121
MOV
R0,#WRK3L
09D6 B932
3122
nov
Rl,#WRKL
09D8 B4G8
3123
CALL
MVREG
09DA
B327
3124
NOV
R0,#BIASL
09DC
B92E
3125
nov
Rl,#WRK2L
09DE D48a
3126
CALL
MVREG
3127
3128
;COl'fPARE
PROM
3129
09E3 AS
3130
CLR
Fl
09El
24F0 3131
JMP
COMP2
3132
3133
;*-*-*-*-*-*-*-*-*-*-*
3134
;
COM'
ARE
PROM
3135
;
3136
COMPX:
09E3
1486
3137
CALL
ORIErrT
09E5
A5
3138
CLR
Fl
09E6
B5
3139
CPL
Fl
3 140
CO~lP5:
09E7
34F0
3141
CALL
COMP2
3142
COMP6:
0~E9
542A
3143
CALL
TOGEA
09EB B42E
3144
CALL
INIPPI
09ED
E5
3145
SEL
UB0
09EE 2451
3146
J~lP
crmLV
3147
COl'lP2:
09FO
B4A8
3148
CALL
FE'WRK
09F2
AC
3149
nov
R4,A
09F3 1';29
3150
CALL
VERIFY
09F5
F6BD
3151
JC
PRG3
3152
COr1Pl:
09F7 B4F9
3153
CALL
INWl{2
09F9 B452
3154
CALL
C'i1Kwl
09FB F6F0
3155
JC
COMP2
I!i~FD
83
31:56
RET
3157
COrlP4:
09FE
545F
3158
c...\LL
WAIT2
.....
ISIS-II
acs-
.......
UPI-41
l'IACRO
ASSErlBLER.
w.e
PROl'JPT-48
S~
MOlfITOR
V3.0
6MBZ
LOC
OBJ
eA0e
14CD
eM2
14BC
eA04
24F7
eA06
230A
eA08.5421
eA0A
234e
eAOC
542C
eME
B814
0A10 23FA
0A12
5421
eA14
EB10
0A16
230100
0A18
542C
0AIA
EF06
0AIC
83
0AID
00
0AIE 00
0A1F
4425
0A21
07
0A22
C0
0A23
9621
0A25
83
3159
3160
3161
3162
SOURCE STATEl'fENT
CALL
CALL
J!!P
ORI3
ORI4
COMPI
3163
;*-*-*-*-*-*-*-*-*-*-*
3164
;
TOCCLE
PROG
P
IW
TWICE
3163
;
3166
;REG USED:
A,Re,l\5,R7,P2
3167
;REG MODIFIED:
A,R8,l\3,R7.P2
3168
;NESTING:
I
3169
;
3170
PULl:
3171
3172
;DELAY A MULTIPLE
OF
Ie
nicROSECONDS
3173
3174
IF
NOT
SY3r1BZ
3175
nov
3176
ELSE
3177
3178
ENDIF
nov
3179
CALL
3180
PULPROC:
3181
USTIME ;
0.1
l"!S
DELAY
3182
;TOGGLE
BIT
IN
CON'lltOL
WORD
AND
PORT
3183
3184
3185
3186
MOV
CALL
IF
NOT
SYSMBZ
nov
3187
3188
ELSE
3189
3190
ENDIF
3191
PUL2:
3192
nov
A,#PROG
TOGROU
3193
;DELAY A MULTIPLE
OF
10
mCROSECONDS -
3194
3195
3196
3197
3198
MOV
CALL
DJNZ
A,#250
USTIME
Re,PUL2
;2.5
lIS
DELAY
3199
;1'OCCLE
BIT
IN
CONTROL
WORD
AND
PORT
3200
3201
3202
3203
3204
3205
nov
CALL
DJl'fZ
RET
A,"'PROG
TOCROU
R7
,PULl
3206
;*-*-*-*-*-*-*-*-*-*-*
3207
;
DELAY
ROUTINE
3208
; TOTAL
DELAY
= <
A>
THIES
10
nIcnosECOImS
3209
;
3210
;REG USED: A
3211
;REG MODIFIED: A
3212
;NESTING:
0
3213
;
3214
D20US:
3215
IF
NOT
SY3MBZ
3216
NOP
3217
NOP
3218
JUP
3219
ELSE
3220
3221
ENDIF
3222
USTU1E:
3223
3224-
3225
3226
Dums:
3227
3228
RET
DEC
nop
JNZ
RET
Dleus
A
USTUIE
3229
*-*-*-*-*-*-*-*-*-*-*
;26
us
DELAY
;
10
us
DELAY
3230
THIS ROUTINE
WILL
TOCCLE
A
BIT
OR
BITS
IN T3E
PROOllAl!
3231
CONTROL
WORD
'-As
DEF I
NED
BY
< A>.
TIlE
COl'fTROL
WORD
----.
....J
ISIS-II
l'ICS-48/OPI-41
MACRO
ASSEMBLER,
W.0
PRDHPT-48
SYSTEM
MOl'fITOIl
W.8
6ImZ
PAGE
46
LOC
OBJ
0A2A
2320
0A2C
B841
8A2E9AFe
eA30 8A98
0A32
DD
0A33
AD
0A34
90
0A35
83
0A36 B842
0A38
9AF0
OA3A
8A08
0A3C
80
0A3D
5304
0A3F
90
0A40
B848
·0A42
FC
0A43
9~
0A44.
83
0A47
37
0A48 324D
OMA
E5
8A4B
24.51
0A1tD9AF0
0MF
&01
0A51
E65C
0A53
B8C3
0A55
Fe
SEQ
SOURCE
STATEl'JEN
I
3232
; WILL. BE
OUTPUT
TO
PPIPD
AND
<R:I>
WILL
BE
UPDATED
3233
;
3234
;EXPECTS:
BIT
SET
IN
<A>
3235
;
3236
;REG
USED:
A.R8.R5.P2
3237
;REG
MODIFIED:
A.RO.M.P2
3238
;
NESTING:
0
3239 ;
324.0
TOGRST:
3241
3242
3243
TOGEA:
324.4
324.5
TOCROU:
324.6
3247
3248
3249
3250
3251
3252
3253
mv
JmP
mv
AN!.
ORL
XlU.
mv
l'lOVX:
~
A,#RST
TOGROU
R0,#PPIPB
P2.#MSKPG
P2.#}1EIOU
A.R5
M,A
GRO.A
3254
;*-*-*-*-*-*-*-*-*-*-*
3255 r
WRITE
DATA
TO
DUT
3256
;
3257
;
REG
USED:
A.
RO.
R4. P2
3258
;REG
MODIFIED:
A.R0.P2
3259 ;
NESTING:
0
3260
;
3261
WRDUT:
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
mv
AN'L
ORL
!IOVX
AN'L
l'lOVX
MOV
HOV
l'lOVX
RET
R0,-PPIPC
P2,#MSXPG
P2.#l'1EIOU
A.@R0
A,#4
aRO.A
Re,#PPIPA
A.R4
aRe. A
; 1'OOOLE
RESET
P
Ilf
;
TOGGLE
EA
PIN
;SELECT
MEllI
PAGE
;
TOGGLE
THE BIT
;SAVE
STATE
10UTPUT
CONTROL
;SELECT
lI1El't
PAGE
;SAVE
MS
ADDR
'BIT
; SET BUS
TO
OUTPUT
;OU'l'PUT
DATA
3273
;*-*-*-*-*-*-*-*-*-*-*-*-*-~*-*-*-*-*-*-*-*-*-*-*
3274
;
3275 ;END
OF
PROG~
ROUTINES,
BEGINNING
OF
MONITOR
SUBROUTIl'tES
3276 ;
3277
;
*-*-*-*.-*-*-*-*-*-*-*-*-*-*-*-~*-*-*-*-*-*-*-*-*
3278
; ENTRY LEVEL ROUTINE
FOR
GO
AND
SNGL
STP
COMMA."mS
3279
;
3280
;REG
USED:
A.R8-R7,P2.FO
3281
;REG
l'lODIFIED: A,RO-R7.P2.F0
3282
;
NESTING:
..
3283
;
3284
GOSUS:
3285
3286
CALL
CADDil
3287
;
IF
DEL
=
CLEAR
ENTRY
THEN
ABORT
3288
3289
3290
3291
3292
3293
caSUI:
3294
3295
3296
CPL
JBl
SEL
JlIP
AN!.
ORL
A
COSOl
MB0
C!IDLV
;GET
ADDRESS
;
SELECT
RAn l'lEmlRY
PAGE
1
3297
;
IF
ADDRESS ENTERED TBEl'l STORE
IN
USER
{PC>
3298
3299
331}0
JNC
COSU2
3301
;UPDATE
USER
<PC>
3302
3303
3304
nov
MOV
R0,#RGTOP+4
A.R4
--
ISIS-II
'MCS-48t'UP
1-41
HACltOASSElIIBLEB..
V2. 0
PROMPT-48 SYSTEM l'IONITOR
V3.0
6MBZ
PAGE
47
LOC
OBJ
0AS6
90
0A57
FD
0AS8530F
0ASA
18
0A5B
90
0A5C
83
OASD
9~4
9A5'F
233F
0A61 Ba2S
9A63
A0
OA64
7410
0A66 03EA
0A68
9668
0A6A
83
9A6B
E5
0A6C
2462
0A6E 74B2
0A70
9474
0A72
54F.!\.
0A74
E678
0A76 D4"8
0A78547D
0A7A
F670
0A7C
83
0A7D
D422
0A7F C68B
SEQ.
3305
3306
3307
3308
3309
3310
GOSU2:
3311
3312
WAIT:
3313
SOURCE
STATDrel'IT
MOVX
MOV
A.NL
INC
MOVX
RET
IltR0,A
A.as
A.#0FR
RO
I!tRO,A
3314
;DISPLAY <USER
PC>
AND
<A>
3315
3316
3317
WAIT2:
3318
3319
3320
3321
3322
CALL
MOV
nov
MOV
CALL
DIPCA
A,#'?'
R0,#PRBYTE
@RO,A
GtTKB
;PCL
;PClI
;GET
KEYBOABD DIG
3323
; IF
KB
< >
NEXT
THEN
GO
TO
COmrAl'fD,
LEVEL
WITH
NEW
COHl!AND
3324
~
IF
KB
=
NEXT
THEN
GO
AGAIN
3325
3326
3327
3328
3329
WAIT1:
3330
3331
3332
ADD
JNZ
RET
SEL
J!lP
A,
#(
-NEXT)
Am>
0FFlI
WAITI
MB0
CMDEn
;
EXIT
3333
;*-*-*-*-*-*-*-*-*-*-*
3334
;EXAMINE /
MODIFY
ROUTINE
3335
,
3336
;REG
USED:
A.RO-R7,R24,R25,R31,P2
3337
;REG
MODIFIED:
A,R0-R7,R24,R25,R31.P2
3338
;
NESTING:
6
3339
;
'3340
El'lSUB :
3341
3342
E..."13:
3343
3344
3345
CALL
CALL
CALL
GIPRM
DAFLD
EPISB3
;GET
ADDRESS
3346
; IF
NEW
DATA
ENTERED 'l"BEn
m:M(
WRIO
=
NE"'rT
DATA
3347
3348
3349
3350
D12:
3351
JNC
CALL
EM:!
STOW!{
3352
;CK DELIMITER
AND
ADDRESS
3353
3354
3355
3356
3357
CALL
JC
RET
EMSB4
EMS
3358
;*-*-$-*-*-*-*-*-*-*-*
3359
;CK DELIMITER
FOR
ALL
DONE
3360
;CK
ADDRESS
FOR
ALL
DONE
3361 ;ALL
DONE
= (CY=0)
3362
;
;
IF
NO
DATA
E1'ITERED
; NOT
DONE,
DO
NEXT
ADDP.ESS
3363
;REG
USED:
A,R0-R2,R24,R25.R31,F0
3364
;REC
MODIFIED:
A,RO-R2,R24,R25,R31,70
3365
; NESTING: 1
3366
;
3367
E..."1SB4:
3368
CALL
POP
3369
3370
; IF DELIl'lITER =
EXECU'l'E
THEN
RE'I'UlUf
(ALL
DONE)
3371
3372
3373
33741
3375
3376
3377
JZ
IF DELlI'll
1'£1t
=
PREV
'l'HEIT
DEC
POIl'l'l'L."'t
ELSE
INC
POINTER
IF
WORK
ADDRESS >
UPPER
LHIIT
TIlll:N"
RETOnJ.1'
(ALL
OOl'fE)
-------
---,--
..
--
-.
ISIS-II
l'IC8-48/UPI
....
l
MACRO
ASsumLER.
W.O
PROPlPT-48 SYSTErr PlONlTOR
V3.0
6MBZ
PAGE
48
LOC
OBJ
DASI
3287
DAB3
B4FD
DA8S
A45E
DAB7
B475
0AS9
A4SE
DA8B
97
eASe 83
0ASD
54B0
0A8F
B8AD
0A91
54A2
0A93
83
OA94
5450
0A96
88M
0A9854A2
0A9A
9MB
0A9C
8A01
0A9E
B8DC
0UD
99
0AAI
83
0M2
FE
9AA3
68
0AA4
B83E
0AA6
A3
0AA7
A0
0AAB
FE
0AA9
83
0AAA
A3
0AAB 92
DAAC
83
8AAD
8C
DAAE AF
0AAF
Al
0AB9
7410
0AB2
B90F
0AB4
B495
0AB6
B82A
0AB8
23G0
0ABA
B904
0ABC
B4A3
0ABE
FE
0ABF D311
BACt
C6F8
0AG3
B334
0AC5
2348
0AC7
B960
0AC9
B4A3
SEQ
3378
3379
3380
3381
EI'JB:
3382
3383
3384
Em:
3385
3386
3387
SOURCE
STA'l'EHtNT
JBl
CALL
JMP
CALL
JlIIP
CLR
RET
ElIB
INlIRIC
CWKUL
DEWRK
CWKUL
C
3388
;*-*-*-*-*-*-*-*-*-*-*
3389
;RETURN A
VALUE
(0.1
OR
2)
FOR
TYPE
BRANTCRING
3390
;
3391
;REG
USED:
A,R0.Rl.R6,R7,P2
3392
;REG
MODIFIED:
A.R0,RI,R6.R7.P2
3393 ;
NESTING:
3
3394
I
3395
GEXl'Y:
3396
3397
3398
3399
3400
GGOTY:
3401
3402
3403
3404
3405
3406
3407
3408
3409
DTYPE:
3410
3411
3412
3413
SAllE4:
3414
3415
3416
3417
3418
GOTBL:
3419
3420
EXI'BL:
CALL
nov
CALL
RET
CALL
nov
CALL
ANL
ORL
nov
PIOVX
RET
nov
ADD
nov
novp
nov
nov
RET
DB
3421
DB
GTYPE
R0
,#ExrBL
AND
0FFR
.
DTYPZ
GTYPE
R0.
#GOTBL
AND
0FFl1
DTYPE
P2.#MSKPG
P2.#HEPGl
R0,#MONRT
@R0.A
A.R6
A,R0
R0,#DIPTR+6
A,@A
@RO,A
A,R6
DCLCO,
DeS,DCB
DCPC,DCLCR,DCD
3422
IF
«SAME4
AND
0FF00H)
LT
( S
AND
0FF00ID)
3423
nov
A.
SPERa ;
SAI1E
PAGE
ERROR
3424 ENDIF
3425
GTYPE:
3426
3427
3428
3429
CALL
nov
CALL
GETKB
RI,-OFR
SEULX
3430
;SET PTRIL/R =
VAL/VAX
3431
3432
3433
3434·
3435
3436
3437
3438
3439
nov
nov
nov
CALL
nov
XBL
JZ
RO,#BASEL
A,#0
RI.
#l'lEPG4
PRSET
A.R6
A.#PRGKY
GTY4
3440
;SET
PTR1VR
=
VAL/VAll
3441
3442
3443
3444
3445'
3446
~IOV
~IOV
MOV
CALL
R0.#UPUIL
A,
#(
ImIAX-RCPTID
Rl,#0
PRSET
-
IS
IS-
n
IfCS-4tVUPI-41
lU.CRO
.\SSEJIfBLElt.
V2.
8
PBD!iPT-48
SYSTD'
MOl.'fITOR
V3.8
6!!BZ
PACE
49
LaC
ODJ
8ACB
B82A
0ACD
2380
0ACF
B498
0ADl
FE
0AD2
D311)
0AD4 C6F'1
0~
B908
0AD8
M95
8ADA'14AA
0ADC
C6E2
0ADE
8903
0AEO
B495
0AE2
882A
tAE4
84A1
0A)t6
FE
0AE7
0012
0AE9 C6F6
0AEB
FE
0AEC D310
0AEE
96F3
0AF0
E5
0AFl
2451
0AF3
E5
~
tAF4
04FE
OAF6 17
0AF7 17
OAFB
AE
OAF9
83
0AFA
B833
0AFC
MAl
0AFE
MAS
0B08
AC
0B01 947C
0B03
8410
0805
0410
0B07'
83
0B08 FD
0B09
530F
0BOB
AD
OBOC
9400
SEQ
SOURCE
STA'J."Elw.El'fT
3447
;SET
PTRIVH
= VAVMEPGl
3448
3449
3450
3451
3452
3453
3434
3455
3456
3457
34G8
3459
3460
3461
GTYS:
3462
"3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
GIT1:
3473
3474'
3475
CTY2:
34'16
34'17
GTY3:
3478
3479
GTY4:
34B0
34Bl
mv
nov
CALL
MOV
XRL
J'Z
I'IOV
CALL
CALL
JZ
NOV
CALL
MOV
CALL
MOV
XRL-
JZ
MOV
XRL
IN'Z
SEL
J~
SEL
JMP
INC
INC
nov
RET
R8,#BASEL
A.#RGPTR
SETPl
A.B6
A.#BEGKY
GTY3
Rl."MEPOO
SEULX
CKASIO
CTY5
Rl."MEPC3
SEULX
Re,#BASEL
SET00
A.R6
A,"DATXY'
GTY2
A.R6
A,#PREV
GTYI
~m~
CMDLV
MBO
ERROR
A
A
R6,A
;*-*-*-*-*-*-*-*-*-*-*
;
GET
RAM
DATA
BYTE
;DISPLAY
DATA
IN
DATA
FIELD
; GET
DATA
BYl"E FROM KB
;SET
UP
FOR
DATA
ENTERED
TEST
3482
3483
3484
3485
3486
3487
3488
3489
;REG
USED:
A.R0-R7,R24.R25,R31,P2.F0
3490
;BEG
MODIFIED:
A.B8-R?
,R240,825,1131,P2,FO
3491 ;
NESTING:
4
3492
;
3493
ElIfSB3:
3494
3495
3496
349'1
3498
3499
3500
3501
3502
nov
CALL
CALL
MOV
CALL
CALL
CALL
RET
R0,#WRIQI
WRKA
FElffiX
R4.A
DDTFD
GBYTE
PUSH
3503
;*-*-*-*-*-*-*---*-*-*
3504
;MASK
UPPER
NIBBLE
IN
IUS
3505
;
ADD
(R4,
R5)
TO
CWRIQ./ID
lSAVE
DELIlIJ:lTER
3506
;
RET
CY
= 0
IF
(llRKt..I'lI) )
(UPLm./U>
350'1 ;
3508
;REG
USED:
A.R0.Rl,R4.R5,F0
3509
;REG
~DIFIED:
A.R0,Rl.R5.FO
3510
;
NESTING:
1
3511
;
3512
El':ISB.1:
3513
3514
3515
3516
. MOV
ANL
MOV
A.R5
A.#0FlI
as,A
3517
;
ADD
ADDRESS
TO
BASE
ADDRESS
3~S18
3519
CALL
AliK45
;
ZERO
lS
NIBBLE
OF
ADDRESS
·
..•
_---.
IS
IS-
I I
!lCs-M;'UP
1-41
KACl\O
ASSEImLER.
~.
e
PROl'!IPT-48
SYSTEl'l MONITOR
w.e
6m1Z
LOG
OB.J
eBOE
M5E
0BI0
05
0Bl1
7"'AA
0B13 C658
0B15 122F
OB17
27
0B18
90
0B19 F3
OBIA
9423
0B1C
F672
OBIE
E5
0BIF
Io'4AF
0B21 C619
0B23
D"'D8
0825
5371'
0827
C619
0829
F5
OS2A
74AA
0B2C
2301
082E
90
0B2F
FC
0830
AF
0831
E5
0B32 B825
0B34 F0
0835
AC
0836
D419
0838
F5
0B39 E5
083A F"'AI'
0B3C C638
0B3E
D4D8
0840
537F
0842
AE
0843
F5
0844
FF
0845
AC
0B46 FE
0847
D2DC
0B49
7231
0848
9253
084D
8255
084F
64DC
0851
9200
0853
8200
0855
15
0856
649D
0858
9AF0
085A
8M8
085C B809
0SSE
03
SEQ
3320
3521
SOURCE
STATEMEl'IT
J!IP
CWKUL
3522
;*-*-*-*-*-*-*-*-*-*-*
3523
;
EXI'ERNALLY
BEFERENCED
ROUTINE
352'" ;GET A DIG
FR01'[
THE
KEYBOARO
3325
;RETmllf
DIG III A
AND
SET
1'0
IF
NOT
HEX
DIG
3526
;
3527
IBEG
USED:
A,Re,R6,1l7.P2
3328
;BEG MODIFIED:
A,RO,R6,R7'.P2
3529
; NESTING: 1
3330
;
3531
GETm:
3332
3533
333'"
3535
3336
3537
3538
GETS:
·3539
3540
3541
3542
35"'3
3544
35"'3
3546
3347
3348
3549
3550
3551
3552
CE'I2.:
3553
EN
CALL
.12;
JB0
CLK
NOVX
SEL
CALL
JC
SEL
CALL
JZ
CALL
ANL
JZ
SEL
CALL
NOV
MOVX
I
Cf".ASIO
GET!
GET2
A
@lRe,A
MBl
KBSTS
GTKEY
MHO
TYCSTS'
GET3
TYCI
A.#7FlI
GET3
lOU
CKASIO
A,#1
@R0,A
3554
;Gtt
CHAR
FOmt TrY
PORT
3555
3556
3557
3558
3559
3560
3561
3562
3563
KEn:
3564
3565
3366
3567
3568
3569
3370
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
NT"':
3581
3582
N'l'5:
3583
3584
KOK:
3585
3586
3587
GET1:
3588
3589
3590
3591
KEY1:
3592
MOV
NOV
SEL
MOV
MOV
MOV
CALL
SEL
SEL
CALL
JZ
CALL
ANL
MOV
SEL
NOV
MOV
MOV
.186
.183
JB4
JB5
J!IP
.184
JB5
DIS
JMP
ANL
ORL
nov
EN
A,Rot
R7,A
MB0
R0,#PRBYTE
A,@RO
R"',A
TYCO
MDI
MBO
TYCSTS
KEY2
TYCI
A.#7F1I
R6.A
MBl
A.R7
R4.A
A,R6
GTP2
NT'"
NT5
KOK
GTP2
CTP2
GTP2
I
ECKEY
P2,#MSXPC.
P2,
#~:IEIOU
R0,#KBDAT
I
;
KEYBOARD
;TrY
PORT
;
KEYBOARD
,SAVE 1\4
; l'IASK
PARITY
; BESTORE R'"
; SET
UP
XEnOARD
P'I'R
....
. _
....
-----
-'---'
-.
-'-'
ISIS-II
rtCS-48I'UPI
....
l lfAQ\O ASSEl!BLEll.
V2.e
l'ROl'JPT-48
SYSTEl!
HONlTOR.
va.e
6l'JBZ
PAGE
51
LOC
OBJ
SEQ
SOURCE
STA'I'D'IEl'IT
eB3F BF03
3593
NOV
R.?
-5
8861 15
3594
DIS I
3595
KEY:
8B62
062
3596
DJNZ R6.REY.
8B64
88
3597
MOVX
A.OR0
8B6IJ
533F
3598
AN'L
A.-3FB
8B67
963E
3399
JlfZ
KEYI
;
WAIT
TIL
l'f0 KEY
PRESSED
8869
EF62
3688
DJNZ
R7.KEY
3601 BOlEY:
8B6B
05
3602
EN
I
0B6C
88
3683
MOVX
A.OR8
8B6D
15
3604
DIS I
0B6E
5330
3605
UL
A,#3811
8B78 C66B
3606
JZ
NOKEY
3687
GTKEY:
0B72
US
3688
DIS I
9B73
9AY8
3699
UL
P2.#m!lXPG
9B?5 8A08
3619
ORL
P2,#MElOU
8B77 B809 3611
MOV
R8,-ICBDAT
; SET
UP
ICEYBOAlU)
PTR
8B79 BF02
3612
MOV
R.7,#2
3613
WT2:
0B?B
BUA
3614
MOV
R6.'250
3615
liTl:
8B7D
EE7D
3616
DJNZ
R6, lITl
8B7F EF?8
3617
DJNZ
R1.wt2
;WAIT
APPROX
5'
MSEl'fD
3618
RESOL:
0B81
80
3619
MOVX
A,
ORe
;
CET
ICB
ClIAR.
8B82
333F
3620
ANL
A,#3FK
0B84
AE
3621
MOV
R6.A
0B83
?28D
3622
JB3
NOT4
;CHECK
IF
MlLTY
KEY
PRESSED
0B81
928F
3623
JB4
NOTS
0B89
8291
3624
.lB5
KEYOK
8B8B 646B
3625
JMP
NOKEY
3626
NOT4:
8B8D
9281
3627
JB4
llESOL
3628
l\'0T5:
8B8F
8281
3629
JB5
RESOL
3638
KEYO!::
8B91 'BFeA 3631 mv
8.7,'le
; SET
REDmmucy
cm
3632
REDUN:
8B93
80
3633
MOVX
A.OR8 ;
DO
:READ
REDUl'fDANCY
CHECK
8B94
533F
3634
ANL
A,#3FK
8B96
37
3633
CPL
A
8B9? 6E
3636
ADD
A,R.6
OB98
17
3637
INC
A
8B99
9681
3638
JNZ
RESOL
8B9B EF93
3639
DJlfZ
R7.REDUl'f
3648
ECKEY':
8B9D
FE
3641
, mv A,R6
8B9E
532F
3642
A.NL
A.#2FH
8BA8
AE
3643
mv
R6,A
;ENCODE
KB
CHAR
8SA!
85
3644·
CLK.
F0
0BA2
B2A5
3645
JB5
SPEC
;
IF
NOT
REX
KEY
8BA4
83
3646
RET
;
BETORN
HEX
D IC
3647
SPEC:
8BM
03FO
3648
ADD
A,-eF8K
;COnP
ENCODING
FOR
SfEC
CHAR
8BA7
AE
3649
mv
R.6.A
eBAB
93
3658
CPL
F0 ; SET
Fe
FOR
NOT
HEX
ClIAR.
8BM
83
3651
RET
l
RETURN
SPEC
IAL
ClIAR.
3652
cnsto:
0BM
9AF0
3653
ANL
P2,#MSXPC
OBAC
8A01
3654
ORL
P2,#MEPGl
0BAE
B8DD
3655
MeV
R0,#ASPTR
0BB0
88
3636
MOVX
A,OR.0
0BBl
83
3657
RET
3658
3659
;*-*-*-*-*-*-*-*-*-*-*
3660
;
GET
ADDRESS
VALUE
FROM
KE'YBOABD
3661 ;BUILD
VAL
IN
WK.
WRKl,
i1lI.X2
3662
.
3663
;
REG
USED:
A.R9-R1,
R24,B23.R3I
,1'2,70
3664
;REG
MODIFIED:
A.RO-R1,R24,R25.B31,P2,F0
3665
;
NESTING:
5
,.
ISIS-II
l'lCS"'4&'UPl-t1
lIJACRO
ASSDmLElt.
w.e
PROlfPT-48
SYSTEl'f
MONITOR
V3.e
6MBZ
PACE·
32
LOC
OBJ
0BB2
BBel
eBB4 64BC
0BB6
BBe2
0BB864BC
0BBA BB03
8BBe
BAoe
8BBE
7400
eSC0
EaC3
0BC2
83
0BC3 74DO
8BC3
8832
8BC7
B930
8009
8462
88CB
E6DC
8BCD EBBE
OBCF
83
8BD0
0410
88D2
8406
0BD4
9488
88D6
37
OBD7
32DF
0BD9
E5
08DA
2451
0BDC
E5
8BDD
e4FE
eBDF E6DC
8BEI
37
8BE2
AE
0BE3 FD
08E4
5301"
0BE6
AD
OBE7
8458
OBE9
E6DC
8B£8
D422
OBED
FA
0BEE
03F7
8BF0
A3
0BFl
.\9
6BF2
lA
0BF3
B486
08F5
FE
08F6
83
08F7
32
0BF8
30
OBF9
2E
SEQ
3666
;
3667
GIPBM:
3668
3669
3670
G2PBM:
3671
3672
3673
G3PRK:
3674
3675
GTPRK:
3676
3677
&TP4:
3678
3679
3688
3681
GTP3:
3682
3683
SOURCE
STATEMENT
~ov
Jm'
nov
JMP
MOV
MOV
CALL
DJNZ
RET
CALL
RS,#2
GTPBM
GTP0
RS,GTP3
GTP0
3684
;
IF
THIS
ADDR
<
LAST
ADDBESS
TBEl'f
EBROR
3683
3686
3687
3688
3689
3690
3691
3692
GTPO:
3693
3694
3695
3696
MOV
MOV
CALL
JNC
DJtfZ
RET
CALL
CALL
CALL
R9,-WtUa..
Rl
, #1fflKIL
CKDBL
GTP2
RS,GTP4
PUSH
BLKAD
CADDR
3697
;
IF
D~
= CLEAR
ElM"RY
1'BE1'f
ABORT
3698
3699
CTP5:
3700
3701
3702
3703
3704
&TP2:
3705
3706
3707
&TP1:
3708
CPL
JBl
SEl"
JMP
SEl"
Jm'
A
GTPl
MSO
ClIDLV
MBa
EIIROR
3709
;
IF
NO
ADDRESS
ENTERED
'IlIEN
ERROR
3710
3711
3712
3713
3714
JNC
CPL
~OV
GTP2
A
M,A
3715
;
IF
ADDRESS
> UPPER
LImT
TBEl'f
EBHOR
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
SAm!5:
3726
3727
3728
3729
3730
3731
3732
GTl'BL:
3733
MOV
ANL.
~OV
CALL
JNC
CALL
MOV
ADD
MOW
HOV
INC
CALL
MOV
RET
DB
A,M
A,-0FS:
M,A
C45UL
GTP2
POP
A,R2
A,
#CTI'BL
AM)
0FFJI··
A,
SA
Rl,A
R2
MVR45
A,R6
WltKL.
WRKlL.
WBX2L
3734
I'F
«SAPlE5
AND
OFF00H> LT ( $
Am>
0FF00ID)
3735
MOV
At SPElUl ;
SAME
PACE
E.."IROR
3736
ENDIF
·
...
---,
- .
....1
Loe
OBJ
8BFA
B898
0BFC
9AF0
0BFE
SA08
0C00 23FF
0C02
90
0C03
83
8C04 BaSE
0C96.23C6
ece8
A0
0C09 18
0C0A
2300
0C0C
A0
0C0D
9AF0
eC0F 8A01
eCll
B8C3
0C13
80
0C14
AC
0C13 18
9C16
80
eC17
AD
OC18
B905
ettA
9476
0CIC
B8ce
eCIE
80
eCIF
AC
eC29 947C
0C22
83
0C23 Ba09
OC23
9AF0
OC27
BA08
0C29
80
0C2A
533F
0C2C
97
0C2D
C630
0C2F
A7
0C33
83
PA.GE
53
SOURCE
STATEIm'fT
3737
3738
;*-*-*-*-*-*-*-*-*-*-*
3739
;
EX'I'ERNALL
Y
BEFERENCED
ROUTINE
3748
;ENABLE
EA"I'ERNAL
INTERRUPTS
FOR
DISPLAY
REFRESH
3741
;
3742
,UG
USED:
A.M.P2
3743
;REG
MODIFIED:
A.R0.P2
3744
;NESTING: 8
3745
;
3746
ErrRFS:
3747
3748
3749
3750
3751
3752
3753
mv
AlCL
ORL
mv
MO\'X
RET
Ret'POLIN
P2.':MSKPG
P2,#flEIOU
A,'TRUE
GR0,A
3754
;*-*-*-*-*-*-*-*-*-*-*
3755
;DISPLAY
'PC'
IN
COMMAND
FIELD.
3756
;USER
<PC>
IN
ADDRESS
FIELD
Am>
3757
;
USER
<
A>
IN
DATA
FIELD
3758
;
;
ENABLE
INTElUU1PTS
;RETtJRN
3759
;REG
USED:
A,Re-R2,R4.1U'),R7.P2
376e
;REG
MODIFIED:
A,Re-R2.R4,1U'),R7,P2
3761 ;
NESTING:
2
3762
;
3763
DIPCA:
3764
3765
;D}SPLAY
'PC'
IN
DISPLAY'S
COmJAm)
FIELD
3766.
3767
3768
3769
3770
3771
3772
3773
DIPAY:
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
mv
'MOV
mv
INC
mv
MOV
AlCL
ORt
MOV
MOVX
mv
INC
MOVX
MOV
MOV
CALL
MOV
.
MOVX
MOV
CALL
RET
Re,'DIPTR+6
A,'DeC
GRe,A
Re
A,'Depe
GRe,A
P2~#:MSKPG
P2,#flEPGl
Re, #RGTOP+4
A,@Re
R4,A
Re
A,@Re
as.A
Rl.#5
DADDFL
Ret'RGTOP+l
A,GRO
R4.A
DDTFD
3790
;*-*-*-*-*-*-*-*-*-*-*
3791
;
IEYBOAlU)
INPUT
STATUS
CODE
3792
;
3793
;REG
USED:
A,R0,P2
3794
;REG
MODIFIED:
A.M.P2
3795
;
NESTING:
8
3796
;
3797
XBSTS:
3798
3799
3800
3801
3302
3803
3804
3805
3806
XBSt:
3807
3808
HOV
ANL
ORL
MOVX
ANL
CLR
JZ
CPL
RET
R6.'KBDAT
P2.#HSKPG
P2.#MEIOU
A,
GOO
A.#3FK
C
KBSI
C
3309
;*-*-*-*-*-*-*-*-*-*-*
;GET
DISPLAY
BUr PTR
;GET <PCL>
;GET
<PCB>
;GET
<A>
;
SELECT
l'.IEr.tORY
lI!A.PPED
I/O
;
INPUT
KEYBOARD
STATUS
;
CRECK
FOR
KEY
PRESSED
;RET FALSE
IF
ON
KEY
;RET'OBN
_.'--.
--
ISIS-II
m::S-4&rUP1-41
HACRO
ASSEMBLER.
V2.0
PROMPT
...
48
SYSTD1
MONITOR
W.O
6MBZ
PAGE
54
LOC
OBJ
eC3t
7410
OC33
843B
OC3lS
9423
0C37
E642
eC39
7472
OC3D
03E9
0C3D
97
OC3E A7
eC3F
C642
OC41
97
OC42
83
0C43
7410
0C45
13836
eC47
AF
OC48
2348
eC4tA
A0
0C4B
FF
0C4C B65A
eC4E
2C
0C4F
47
ecse
AD
0CSI
S3F0
eCS3
4C
eC54
2C
eC55
FD
eC56
43Y0
0CS8
AD
eC59
83
0C5A
03E9
0C5C C66D
OC5E FE
OC5F 03EA
OC61 C66C
0C63
FE
0C64
03F9
eC66
C66B
eC68
E5
0C69
04FE
OC6B
17
OC6C
17
0C6D
83
SEQ
SOURCE
STA'l'EmmT
3810
;
IF
KEYBOARD
KEY
PRESSED
THEN
IF
ClIAR
=
EXECUTE
THEN
RET
CY-t
3811
; ELSE RET
CY=O
3812
•
3813
;BEG USED:
A.R0,R6.R7,P2
381<11
;REG MODIFIED:
A.RO,R6,R7,P2
3815
; NESTING: 2
3816
;
3817
KBDOT:
3818
3819
3820
KBSTA:
3821
3822
3823
3824
STA3:
3825
3826
3827
3828
3829
3830
STA2:
3831
3832
CALL
Jm'
CALL
JNC
CALL
ADD
CLR
CPL
JZ
CLR
RET
GETKB
STA3
KBSTS
STA2
GTKEY
A,#(-EXECUTE)
C
C
STA2
C
3833
;*-*-*-~-*-*-*-*-*-*-*
;
IF
NO
KEY
PRESSED
AND
0FFH
; TRUE
;
IF
KEY
=
E."'iECUTE
; FALSE
3834
;GET
KEYBOARD
HEX
DIG
AND
BUILD
VAL
IN R4,R.')
3835
;IF
NOT
HEX
DIG,
CHECK
FOR PROPER DELIMITER
3836
•
3837
;REG USED:
A.R0,R4,RS.R6,R7.P2.F0
3838
;REG MODIFIED:
A.R0,R4.R5,R6,R7,P2.FO
3839
; NESTING: 2
3840
;
384.1
GDGSH:
3842
3843
3844
3845
3846
3847
3848
3849
3850
3831
3852
3853
3854
3855
GETKB
R0,#DPr.5K
R7,A
A,#48H
@RO,A
A,R7
NTBEX
A,R4
A
as,A
A,#0F0H
A,R4
A.R4
;GET
LOW
BYTE
;NIBBLE 1 TO NIBBLE 2
;NIB 2
TO
NIB
3
; RESTORE
NEW
NIB
;NEW
NIB
TO
NIB
1
3856
CALL
MOV
rlOV
MOV
MOV
MOV
JF0
XCB
SWAP
MOV
ANL
ORL
KCB
MOV
ORI.
MOV
RET
A,as
A,#0F0H
as,A
;SET
THE
HEX
CHAR
VALl])
FLAG
3857
3858
3859
NT8EX:
3860
3861
3862
3863
3864
3865
3866
3867
3868
GDERR:
3869
ADD
JZ
MOV
ADD
JZ
MOV
ADD
JZ
A,#(-EXECUTE)AND
0FFH
DELOK
A,R6
A,#(-NEXT)AND OFFH
DEL02
A,R6
A.#(-PP~V)AND
0FFH
DELO!
;
Ct{
IF
EXECUTE
;CK
IF
NEXl'
;Ct{
IF
PREVIOUS
3870
SEL
Jr1P
MBO
ERROR
;
ILLEGAL
KEY
3871
DEL01:
3872
3873
DEL02:
3874
3875
DELOK:
3876
3877
INC
A
INC
A
RET
3878
;*-*-*-*-*-*-*-*-:1:-*-*
3879
;DISPLAY
PRO!1PT
('-')
IN
coromrm
FIEl..D
38S0
;
3881
;
F.EG
USED: A. R0."32
3882
;REG lIIODIYIED:
A,RO,R2
•
------
ISIS-II
MCS-48I'UPI
....
1
HAC1tO
ASSE!JBLE1t.
W.8
PROlJPT-48·
SYS'1'E}I1
llONITOB.
W.0
6m1Z
PAGE
55
LOO
OBJ
806E
BABY
8078
B83F
8072
0438
8C74
B933
8C76
SS3D
0C78
BY83
8CTA
84ge
8070
B904
807E
B839
8C89
BF82
8C82
8480
0C84
B905
8ca6
B83A
8cas
BF03
8CSA
8490
8C80
85
0C8D
95
eCSE
8491
0090
85
8091
97
8092
FF
0093
1296
0095
A7
8096
Fl
8097
E69A
8C99
47
809A
530F
OC9C
AA
809D
96AB
8C9F
B6AD
8CAl
FF
00A2
D30l
80M
C6AD
8CA6
23FF
0CAS
A0
8CA9
84AF
eCAS
85
0CAC
95
SEQ
SOUllCE
STA'I'E1JEl'n'
3883
; NESTING: 8
3884
;
3885
pmJPT:
3886
3887
3888
3S89
nov
l'IOV
JlJP
B2,#DCDSlt
RQ,#DIPTR+7
DTBLU
3890
;*-*-*-*-*-*-*-*-*-*-*
;UPDATE
DISPLAY
3891
,UPDATE A DISPLAY
FIELD
USING
HEX
DATA
3892;
3893
;EXPECTS
3894
;!ISI)
PTR IN R8 .
3895
;
NUlIBER
OF DIG
IN
B.7
3896
;
HS
DATA
PTR
IN
Rl
3897
;
3898
,REG
USED:
A,R8,Rl,B2,R7.FO
3S99
;REG
~DIFIED:
A,RO,Rl,R2,R7,F8
3980
; NESTING: 1
3901
;
3902
;SPECIAL
ENTRY
POINT
FOR
3903
;
UPDATE
ADDaESS
FlEW
WITlt
ADDRESS
IN w:RKI/lt
3904
DAFLD:
3905
3906
DADDFL:
nov
Rl,-WRm
3907
NOV
RO,#DIPTR+5
3908
.MO"V
R7,#3
3909
J.MP
UDDFL
3910
;UPDATE
DATA
FIELD
WITH
BYTE
IN R4
3911
DDTFD:
3912
3913
DDAFD:
NOV
Rl,#4
3914
l'IOV
RQ,#DIPTR+l
3915
NOV
R7,#2
3916
J.MP
UDDFlf
3917.
;UPDATE
DATA
FIELD
WITH
ADDRESS
IN
R4/R5
3918
D45AD:
3919
3928
DXXAD:
.MOV
Rl,#5
3921
.MOV
RD.#DIPTR+2
3922
NOV
R7,#3
3923
JMP
UDDFL
3924
;
END
SPEO
Err1'RY
3925
;
3926
UDDF1'f:
3927
3928
3929
3930
UDDFL:
3931
3932
NXl:
3933
3934
3935
3936
3937
UDD3:
3938
3939
3940
3941
UDD4:
3942
3943
3944
3945
3946
3947
3948·
3949
3950
3951
3.952
NZl:
3953
3954
3955
NZERO:
OLR
CPL
J.MP
OLR
OLR
l'IOV
JB8
OPL
.MOV
JNO
SWAP
AM.
MOV
JNZ
JFO
nov
xm.
JZ
NOV
:?tOV
JMP
CLE.
CPL
F0
F0
NXl
C
A,R7
UDD3
o
A,aRt
UDD4
A
A,#OFll
B2.A
NZl
NZERO
A,RT
A,#1
NZERO
A,#DCBt.
@R0,A
UDD2
F0
F8
;
IF
LOW
NIBBLE
;IF
LOW
NIBBLE
f
IF
NOT
ZERO
SUPPBESS
;a
IF
LAST
DIG
;BLANK
DIG
\ -
ISIS-
It
ncs-MVll'P
1 ..... 1
l'fACRO
ASSE1'JBIJ!:lt.
W.O
PROPJPT
..... 8
SYS"I'El'1
I'lONlTOR
w.e 6HSZ
PAGE
56
LOC
OBJ
eCAD
D431
eCAF
FF
OCBO
37
OCBl
12B4
OCB3
C9
OCB4
C8
OCBS
EF91
OCB7
83
OCB8
27
OCB9
A.C
OCBA
AD
OCBB
9443
OCBD
B6C7
OCBF
B905
OCCI
B400
OCC3
9476
OCC5
84BB
OCC7
AA
OCC8
FD
OCC9
97
eCCA.
37
OCCB
F2CE
0CCD
A7
OCCE
FA
0CCF
83
00DD
B832
0CD2
B904
0CD4
84DA
0CD6
85
0CD7
95
0CD8
84DB
0CDA
85
SEQ
SOURCE
STATEl'1E1'IT
3956
3957
lJDD2;
3958
3959
3960
3961
3962
OODl:
3963
3964
3965
3966
CALL
mv
CPL
JDO
DEC
DEC
DJNZ
RET
DECHX
A,a?
A
UDDI
Rl
R0
R7,NXl
3967
;*-*-*-
__
*-*-*-*-*-*-*
3968
;
GET
ADDRESS
VALUE
FROlI{
KEYBOAP..D
3969
;
RETtJ'ItN
VALUE
IN
R4,.R5
3970
;F0
SET
3971
;A:0
IF
DEL
=
~(ECUTE
3972
;A:1
IF
DEL
=
NEXT
3973
;A=2
IF
DEL
=
PREY
3974
;cy=
1
IF
DATA
WAS
El'ITERED
3975
;
-3976 ;REG
USED:
-
A.RO-R7,P2,F0
3977
;REG UODIFIED: A,RO-R7,P2.FO
3978
; NESTING: S
3979
;
3980
GADDR:
3981
3982
3983
3984
NXADV:
3985
3986
3987
3988
3989
3990
3991
DADDR:
3992
3993
3994
3995
3996
3997
3998
CADDI:
3999
4000
4001
CLR
mv
HOV
CALL
JFO
MaV
CALL
CALL
JNP
MaV
MaV
CLR
CPL
JB7
CPL
MaV
RET
A
R4,A
iUS.A
CDCSH
DADDR
Rl,#fj
BLXDA
DADDFL
NXADV
I12,A
A,.R5
C
A
GADDI
C
A.B2
4002
;*-*-*-*-*-
__
*-*-*-*-*
;DISPLAY DIG
;IF
111
NIBBLE
;
CLEAR
INPUT
BUFFER
;GET A DIGIT
;
DEL
mITER
Fomm
;SAVE DELIPIITER
;NO
DATA
El'f'I'EBE1)
;DATA
ENTERED
;
RESTORE
DEL
FLAG
4003
;
ADD
TWO
ADDRESS
VALUES
LOCATED
IN
INTElU'fAL
&'\M
AND
4004
;PLACE
RESULT
IN
nIT
RAlI
AT
PTR1.
4ee5
;
OR
SUBTRACT
PTR2
FROM
PTRI
AND
4e06
;
PLACE
RESULT
IN
INT
RAlII
AT
PTRl.
4007
;RE'I't1R1f
CY
= 1
IF
OVERFLOW
ON'
ADDITION
4008
;
E."'a'ECTS
PTBIL
IN
M
AND
PTR2L
IN
Rt
4009
;
4010
;REG
USED:
A,RO,Rt
4011 ;REG
MODIFIED:
A.RO,Rl
4012
; NESTING: 0
4013
;
4014
;SPECIAL
El'ITRY
POINT
FOR
4015
;
ADD
ING
R4.
R5
TO
lffiKL/H
4016
AlIIC45:
4017
HOV
RO,#WQKL
4018
HOV
Rl,#4
4019
JMP
ADDBL
4020
;END
SPEC
ENTRY
4021 ;
4022
SlJDBL:
4023
4024
4025
4026
ADDBL:
4027
4028
ADD1:
CLR.
CPL
J~IP
CLR
F0
F0
ADDl
F0
..
_--.
·
IS
IS-
II
I1CS-48I'lJPI ..... l
MACRO
ASSEmILER.
ft
••
PROMPT-48
SlS"l'El! mNlTOR
VS
••
6l'1BZ
LOC
OB.J
0CDB
95
0CDC
Fl
0CDD
97
0CDE
B6E2
0CEO
1..7
0CEI
37
0CE2
70
OCE3
1..0
0CE4
18
OCE5
19
0CE6
PI
0CE7
B6EA
0CE?
37
0CEA
7Q
0CED
1..0
0CEC
83
0CED
B836
OCEF
2348
0CF!
1..0
0CF2
8837
OCF4
BF08
OCF6
FF
OCF7
1..0
0Cli'8
18
OCF9
23FF
0CFB
1..0
0CFC
18
OCFD
EFF9
0CFF
83
OD60
B838
0D02 BF03
OD04
84F9
OD06
B83B
0D08 8F03
0D0A
84F9
eDOC
BB00
OD0E
A412
0D10
8B01
OD12
27
SEQ.
4029
..
030
4031
4032
4033
4034
4035 ADD2:
4036
4037
4038
4039
4040
4041
4042
4043
ADD3:
4Q44
4045
4046
4047
SOU'RCl!
STATOEl'fr
CPL
mv
CLR
JF0
CPL
CPL
ADDC
mv
INC
INC
!JOV
JF0
CPL
ADDe
HOV
RET
F0
A.SRI
C
ABD2
C
A
A,Ctll0
SU,A
ll0
Rl
A,@lRI
ADDS
A
4048
;*-*-*-*-*-*-*-*-*-*-*
4049
;BLANK
DISPLAY
4050
;
4051 ;REC USED: A..R0,R7
4052
;REC l1ODIFIED: A,R4),R1'
4053
;
NESTING:
0
4054
;
4055
BUI:
4056
4057
4058
4059
BLAMe:·
4060
4061
4062
4063
4064
4065
BLDX:
4066
4067
4068
4069
4070
4071
mv
Re,-DP!5K
MOV
A.-48H
mv
liRe. A
my
RO,#DIen
mv
R7,-8
mv
A.R7
my
@M,A
INC
R0
HOV
A.-DeBL
mv
@lRO.A
INC
R0
DJNZ·
R7.BLXNX
RET
4072
;liLANK
DATA
FIELD
4073
4074
BLImA:
4075
4076
4e77
4078
my
my
JMP
4079
;BLANK
ADDRESS
FIELD
4080
4081
BLItAD:
4082
4083
4084
4085
mv
KaV
JMP
R0, #DIPTR+3
R1'
,-3
BLKNX
4086
;*-*-*-*-*-*-*-*-*-*-*
4087
;
GET
DATA
VALUE
FROM
KEYBOARD
4088
;BUILD
VAL
IN
R4,RS
;
ADD
LOW
BYTE
;
STORE
LO'W
StJ1I1
;ADD
HI
BY'I'E
;STORE
HI
St.n1
;CET
DISPLAY
PT.R.
,COUNT
; INIT
CO'ONTER
;POINT
TO
FIRST DIS
CHAR
;DISPLAY
ClL\R
BLANK
;
BLANK
ALL
DIGS
4089
;RETUltN
VALUE
IN
R4,B5,
F0 SET
A.ND
DELIMITER
IN
A
4090
;
4091
;REG
USED:
A,R0-R7,P2.F0
4~92
;REG
MODIFIED:
A.R0-R7,P2.F0
4093
;
NESTING:
3
4094
;
4095
GDATA:
4096
4097
4098
GBYI'E:
4099
4100
DAV3:
4101
HOV
Jm'
HOV
CLR
R3.~
DAV3
A
IS
IS-
I I
HCS-48I'UP
1-41
neRO
ASSElmLER.
V2.
&
PBOnPT-48
SYSTElIl MOlnTOR
V3.8
6MBZ
PAGE
58
Loe
08.1
8D13
AC
9D14
AD
8D15
AS
0D16
9443
8D18
95
0D19
B61E
8DIB
95
001C
84C7
001E
7623
0020
MO+)
0022
B5
0D23
FB
0024
962A
0026
9484
0028
MI6
002A
9470
002C
A416
002E
9AF0
0D30
8A08
9032
B843
0D34
23E0
0D36
90
0D37
23FF
0039
08
0D3A
9&
0D3B
C8
0D3C
530F
0D3E
90
0D3F C8
0040
27
0D41
90
0D42
27
0D43
8809
0D45
90
0D46
0477
0048
53DF
004A
9AF0
0D4C
8A08
0D4E
B80S
0D50
90
0D51
83
0D52
D832
0054
B930
0056
A462
SEQ.
4102
4103
4104
4105
NXDAV:
4106
4107
4108
4109
4110
4111
DAV2:
4112
11113
4114
4115
DAV1:
4116
4117
4118
4119
4120
DAViS:
4121
4122
4123
SOURCE
STATE'MEDT
mv
HOV
CLK
CALL
CPL
JF0
CPL
JMl'
JFl
CALL
CPL
MOV
JNZ
CALL
JMl'
CALL
JMP
R4,A
M,A
Fl
CDGSII
F0
DAV2
.
F0
DADDR
DAVl
BLKDA
Fl
A,ro
DAYS
D45AD
NXDAV
DDTFD
rfXDAV
4124
;*-*-*-*-*-*-*-*-*-*-*
; CLEAR· INPUT BUFFER
;CLEAR
NOT
FIRST
DIC
FLC
;CET
A DICIT
;IF
NOT
FIRST
DIG
~DISPLAY
NIBBLE
4125
;
INITIALIZE
PPI
AND
NAClt1NE STATZ
4i26
;
4127
;REC
USED:
A,R0,P2
4128
;REC
MODIFIED:
A,RO,P2
4129
; NESTING: 1
4130
;
4131
INIPPI:
4132
4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
INI2:
4147
4148
4149
4150
INn:
4151
4152
4153
4154
4155
4156
4157
4158.
ANI.
ORL
HOV
MOV
HOVX
HOV
DEC
HOVX
DEC
ANI.
~IOVX
DEC
CLR
MOVX
CLR
HOV
:MOVX
CALL
ANI.
ANL
ORL
~10V
:MOV-X
RET
P2.#MSKPG
P2,#MEIOU
R0,#PPICT
A,#PPUID
@RO,A
A,#TRUE
R0
GRO,A
R&
A.#0FH
9Re,A
Re
A
@R0,A
A
R0,#KBDAT
@lRe,A
CETAC
A,#0DFH
P2.
#l'ISKPG
P2.#NEIOU
R0,#MCHST
GRe,A
4159
;*-*-*-*-*-*-*-*-*-*-*
4160
;CBECK
TWO
ADDRESS
VALUES
;
SELECT
MEMORY
MAPPED
I/O
;
PP
I
MODE
WORD
;PPI
PORT C
;PPI PORT B
;PPI
PORT
A
4161
;
IF
(PTRIVH)
<
OR
=
(PTn2VID
THEN
RETURl'I'
CY
= 1
4162
;
IF
(PTRIVH)
=
(P1'R2VID
THEN
RETURrr
F0
" 1
4163
;EXPECTS
PTRIL
IN R0
AND
PTR2l.. IN
Rl
4164
,
4165
;REC
USED:
A,RO,RI,FO
4166
;REC
MODIFIED: A,RO,Rl,F0
4167
; NESTING: 0
4168
;
4169
;SPEOIAL
EtrrRY POINT FOR
4170
oman:
4171
»
4172
4173
4174
045UL:
:MOV
:MOV
JMP
RO,
#WRKL
Rl.#WRKlL
CKDBL
ISIS-II
MCS-4&o"UPI-41
geM
ASSEmJI.Elt.
W.O
PROMPT-48 SYS1'ErI
mNITOR
V3.0
6MBZ
PACE
59
LOC
OBJ
0D58
B804
0D5A
B934
0D5C A462
ODGE
a832
0D60
B934
0D62
85
OD63
97
0D64
A7
0D65
F0
0D66
37
0D67
71
0D68
966B
0D6A
95
0D6B
27
0D6C
18
0D6D 19
0D6E
FI()
0D6F
37
0D70
71
0071
C674
9D73
85
0D74
83
0D75 BF01
0D77
8832
0D79
23FF
0D7B
60
0D7C
A0
0D?»
18
0D7E
23FF
0D80
70
0D81
A0
0D82 C8
0D83 EF79
0D85
83
0D86 13804
SOURCE
STATElIJENT
4175
nov
B9,#4
4176
nov
Rt
, #UPUlL
4177
JMP
CKDBL
4178
;
(UPUll/H
-WRKVH)
4179
CWIaJL:
4180
MOV
B9,#WRKL
4181
nov
Rl,#UPUlL
4182
;END
SPEC
ENTRY
4183
;
4184
CKDBL:
4185
4186
4187
4188
4189
4190
4191
4192
4193
CKI:
4194
4195
4196
4197
4198
4199
4200
4201
4202
CK2:
4203
4204
CLR
CLR
CPL
MOV
CPL
ADDC
JNZ
CPL
CLR
INC
INC
HOV
CPL
ADDC
JZ
CLR
RET
FO
C
C
A,eRO
A
A,eRt·
CKI
FO
A
RO
Rt
A,eM
A
A,@Rl
CK2
FO
4205
;*-*-*
..
*-*-*-*-*-*-*-*
;RESET
EQUALITY
FLAG
;SUBTRACT
LOW
BYTE
; SET EQUAL
FLAG
;POINT
TO
HI
BYTE
; SUBTRACT
HI
BYTE
;
HI
BYTE
NOT
EQUAL
4206
;
DECREMENT
AN
ADDRESS
VALUE <
N>
THIES
4207
;
EXPECTS
PTRtL
II(
RO
AND
<
rr>
IN
R7
4208
;
4209 ;REG USED: A
RO.R7
4210
;REG MODIFIED: A,RO,n?
4211
; NESTING: 0
4212 ;
4213
DElmK:
4214
4215
4216
DEDBL:
4217
HOV
HOV
4218
;ADD NEGATIVE
ONE
TO
PTRIVH
4219
4.220
4221
4222
4223
4224
4225
4226
4227
4229
4229
4230
HOV
ADD
MOV
INC
MOV
ADDC
MOV
DEC
DJNZ
RET
A.#OFFH
A,@M
@RO,A
RO
A,#OFFH
A,@RO
@lRO,A
RO
R7,DEDBL
4231
;*-*-*-*-*-*-*-*-*-*-*
; STORE
LOW
BYTE
;
STORE.
HI
BYTE
;DEC
AGAIN
4232 ;
MOVE
ADDRESS
VALUE
FROM
PTRIVH
TO
P1'It2VH
4233
;
ZERO
UPPER
NIBBLE
OF
HI.BYTE
4234
;
4235
;
EXPECTS
PTRIL IN
1'.0
AND
PTB2L
II(
1'.1
4236
•
4237 ;REG
USED:
A,RO
4238
;REG
~ODIFIED:
A,R0
4239
; NESTHIG: 0
4240 ;
4241
;SPECIAL
ENTRY
POIIIT
FOR
4242
;
MOVE
R4.
as
TO
PTR2L
4243
I1VR45:
4244
nov
R0.
#4
4245
;END SPEC EnTRY
4246
;
4247
MVREG:
l _
ISIS-II
ncS-48/OPI-41
l'fACRO
ASSnmLER.
V2.&
PROl'IPT-48
SYSTEl'!
l'1ONITOR
V3.&
6MBZ
PAGE
6G
LOC
OBJ
GD88
FO
0D89 At
0D8A
18
0D8B
19
0D8C
Fe
0D8D
530F
0DSF
Al
0D90
C8
0D91
C9
0D92
83
0D93 B903
0D95 B834
0D97 23FF
0D99
MA3
0D98 B901
0D9D
MA3
0D9F B832
0DAI
27
0DA2
A9
0DA3
A0
0DA4
18
0DA5
F9
0DA6
A0
0DA7
83
0DA8
B832
0DM
34AE
0DAC
81
0DAD
83
0DAE
18
SEQ
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
SOURCE
STATEl'JEl'fT
MOV
MOV
INC
INC
MOV
ANL
MOV
DEC
DEC
nET
A,@R0
@RI,A
R0
·Rt
A,@Re
A,#0FH
GRI,A
R0
Rt
4259 ;*-*-*-*-*-*-*-*-*-*-*
; GET
LOW
BYTE
;MOVE
IT
;GET HI
BYTE
;
ZERO
UPPER
NIBBLE
;MOVE
IT
4260
; SET INITIAL
ADDRESS'
VALUE
Uf
,11IT
RAn
4261 ;
EXPECTS
PTRtL IN
R0
,
VAR
IN
Rt
AND
VAL
IN
<
A>
4262
•
4263
,REG
USED:
A,R0,Rl
4264
;REG
MODIFIED:
A,R0,Rt
4265 ;
NESTING:
0
4266 ;
4267
;SPECIAL
ENTRY
POINT
FOR
4268
; SET
uPLML
=
MEMORY
MAX
4269
SEULMX:
4270
4271
SEULX:
MOV
RI.#MEPC3
4272
MOV
R0,#UPLML
4273
MOV
A.#MEMAX
4274
JMP
PRSET
4275 ;SET
UPLMH
=
MEMORY
PAGE
I
4276
SETPt:
4277
4278
4279 ;
MOV
Jl'IP
4280 ;SET
WRXL/H
=
0/0
4281
SEWK0:
4282
4283
SET00:
MOV
R0,#WRKL
4284
CLR
A
428..")
MOV
Rt,
A
4286
;END
SPEC
ENTRY
4287
;
4288
PRSET:
4289
4290
4291
4292
4293
4294
MOV
INC
MOV
MOV
RET
@R0,A
R0
A,Rt
!!!IR0,A
4295 ;*-*-*-*-*-*-*-*-*-*-*
t
STORE
LOW
BYTE
;
STORE
HI
BYTE
4296 ;
FETCH
FORM
EX'l'EBNAL
RAM
,
ONE
BYrE
OF
DATA
TO
<
A>
4297
;ADD
BASE
TO
POINTER
4298
;
EXPECTS
P1'R.
IN
R0
4299 ;
PTR
POINTS
TO
LS
BYTE
OF
EX"I'EBNAL
MEM
ADDRESS
4300
;
RETURN
DATA
IN
<
It.)
4301 •
4302
;REG
USED:
A,R0-R2,P2
4303
;REG
MODIFIED:
A,R0-R2,P2
4304 ;
NESTING:
1
4305 •
4306 ;.sPEC
tAL
ENTRY
PO
INT
FOR
4307
;
FETCH
DATA(
WRKl./H)
4308
FEWRK:
4309
MOV
R0,#WRXL
4310
;END
SPEC
ENTRY
4311 ;
4312
FEXDA:
4313
4314
4315
43
16
FE."'{l:
4317
CALL
MOVX
RET
FL,<{l
A,@Rl
fGET
DATA
4318
;
IF
ADDR
>
IE:
'I'I!E'NEX'l'
~'iEM
wrm
BASE
0
4319
4329
INC
RO
ISIS-Il
ncS-48I11PI-41
MellO
ASSEnBLER.
w.e
PAGE
61
PROMPT-48
SYS'I'E!l
MONITOR
W.0
6MBZ
LOC
OBJ
SEQ.
SOURCE
STATDfEl'IT
eDAF
Fe
4321
nov
A.
@1M
eDB0
C8
4322
DEC
R0
0DBI
530C
4323
Al"fL A.#0CH
ODBS
C6C2
4324
JZ
FEX2
eDBS
9AF0
4325
ANL
P2.#nsKPG
0DB7
8A08
4326
ORt.
P2.#l'IEIOU
0DB9
B90A
4327
MOV
R1.#EXMEM
ODBB
91
4328
novx
GRI.A
ODBC
F0 4329
l'1OV
A.eR0
0DSD
AA
4330
nov
R2.A
0DSE
18 4331
INC.
R0
0DSF
F0
4332
MOV
A.
aR0
0Dce
A4CB
4333.
JnP
FENa
4334
FEX2:
0DC2
B92A
4335
MOV
Rl.#BASEL
ODC4
F0
4336
nov
A.
@IRe
0DC3
61
4337
ADD
A.aRI
ODC6
AA
4338
!!OV
R2.A
0DC7
18 4339
INC
RO
0DC8
FO
4340
nov
A.@lR0
0DC9
19
4341
INC
Rl
0DCA
71 .4342
AnDC
A,@Rl
4343
FEX3:
0Dcn 330F
4344
ANL
A.#0FD:
ODCD
A9
4345
MOV
RI.A
ODCE
OA
4346
IN
A.P2
ODCF
53F0
4347
ANL
A.#OFOD:
0DDl
49
4348
ORt.
A.Rl
0DD2
3A
4349
OUTL
P2.A
; SET
PAGE
PTR
0DD3
C8
4350
DEC
R0
0DM
FA
4351
MOV
A.R2
0005
A9
4352
~IOV
Rl,A
0DD6
S3
4353
RET
4354
4355
;*-*-*-*-*-~-*-*-*-*-*
4356
;
PUT
CODE
IN
USER
RAM
4357
;
4358
;REG
USED:
A.F.0.Rl.R7.P2
4359
;REG
MODIFIED:
A.
RO,
RI.
R7,n
4360
;NESTING: 0
4361 ;
4362
CODE:
4363
; Il'IUS0:
0DD7
2F
4364
XCD:
A.R?
ODDS
C5
4365
SEL
RBO
0009
E5
4366
SEL
~m0
0DDA
83
4367
RET
4368
;
INUS!:
0DDB
2F 4369
XCD:
A.R?
ODDC
00
4370
NOP
0DDD
E5
4371
SEL
rIB0
0DDE
83
4372
RET
4373
;INUS2:
0DDF
2F
4374
XCH
A.R7
0DEg
C5
4375
SEL
RB0
ODEI
F5 4376 SEL
rIB!
ODE2
83
4377
RET
4378
;INUS3:
~DE3
2F 4379
XCH
A.R7
0DE4
00
4380
NOP
0DE;)
F5
4381
SEL
rIBl
0DE6
83
4382
RET
4383
4334
;END
TADLE
4385
4386
CODE1:
4387
4388
;
PUT
RENTER
CODE
IN
USER
m:rroRY
TOP
4389
0DE7
B8F0
4390
MOV
R0,#OF0D:
0DE9 B9D7 4391
MOV
Rl,#(CODE
AHD
OFFED
ODEB
BFIO
4392
~10V
R7,#16
ODED
9AF0
4393
ANL
P2,#MSKPG
ISIS-II
!lCS-4&rO'PI ..... t
BellO
ASSE1'SBIJl:R.
va.O
PIlOlJPT-48
S'rSTlm
ftOl'U'OOl\
V3.
e 6l'JBZ .
PAGE
62
'LOC
OBJ
eDU
8A07
eDFl
F9
eDF2 A3
ODFS
90
ODF4
18
ODFl} 19
ODF6
UF1
ODF8 .83
ODF9
B82E
eDFB B4FF.
ODFD
0832
ODFF
FO
OEOO
0301
OE02 A0
OEO.3
18
eEe4
27
eE05
70
OE06 A0
OE07
83
OE08
B832,
OEOA
MAE
OEOC
FC
0EOD
91
0EOE
81
OEOF
83
OElO
D5
SEQ
SOURCE
STA'l'El'lEli't
4394
0Rt.
4395
CODE2:
4396
MOV
A,Rl
4397
MOVP
A,OA
,GET
CODE
FROn TABLE
4398
IF
«
CODE
AND
OFF001l)
LT
( •
AND
OFF001l)
4399
MeV
A.
SPEBll
;
SAME
PAGE
ERROR
4400
ENDIF
4401
MOVX
4402
INC
4403
INC
4404
DJNZ
4405
RET
OM,A
Re
R1
87,CODE2
;*-*-*-*-*-*-*-*-*-*-*
; OUTPUT
CODE
;
STORE
NEXl" BYTE
4406
4407
4408
4409
4410
4411
4412
4413
4414
44HS
4416
4417
4418
4419
; INCBEHENT
ADDRESS
VALUE
IN
INTERNAL RAl'l
I EXPECTS
PTRIL
IN
B.0
;
;
REG
USED:
A.
Re
;REG
MODIFIED:
A.RO
; NESTING: 1
;
;SPECIAL
ENTRY
POINT
FOR
; INC WRIa./l[
AND
lIRKIVH
INl/K2:
MOV
CALL
R0,#WRK2L
INDBL
4420
INWlUC:
4421
MOV
RO,#WRKL
4422
;END
SPEC
~~Y
4423
;
4424
IrrD8L:
4435
4426
4427
4428
4429
4430
4431
4432
4433
MOV
ADD
MOV
INC
CLR
ADoo
MOV
RET
A, ORe
A,#1
ORO,A
R0
A
A.oRe
@Re,A
4434
;*-*-*-*-*-*-*-*-*-*-*
4435
; STORE DATA
IN
EXTERNAL RAl'f
; GET
LOW
BYTE
;
INC
LOW
BYTE
; STORE
LOW
BYTE
;
INC
III BYTE
IF
CY
= 1
;STORE
HI
BYTE
4436
; EXPECTS PTR
11'1'
R0
AND
DATA
IN
R4
4437
;
PTR
PO
UITS
TO
LS
BYTE
OF
EXI'ERNAL
:MEM
ADDRESS
4438
;ADD BASE TO POINTER
4439
;
4440
;REG USED:
A,RO,RI,R2,M,P2
4441
;REG
MODIFIED:
A.RO,Rl,R2.P2
4442
; NESTING: 1
4443
;
4444
;SPECIAL
ENTRY
POINT
FOR
4445
; S'l'ORE
AT
w'BIa../H
4446
STOWK:
4447
nov
ft9,#WRKL
4448
;END SPEC
ENTRY
4<1149
;
4450
SEXDA:
4451
4452
4453
4454
4455
4456
CALL
MOV
l'lOVX
MOVX
RET
FEXI
A,R4
ORI.A
A,oRI
4457
;*-*-*-*-*-*-*-*-*-*-*
;
STORE
DATA
I
CLEAR
EXI1EH
FF
4458
;SAVE
R6,R1,R2,Ra
AND
A
(OF
BANK
0)
IN
INTERl'fAL
4459
; RA!I
AT
~IEllIORY
BO'ITOM.
44:60 ;
4461
;REG USED:
A.R24,B25,R31.RO-R3
4462
;REG lIlODIFIED:
1124,R25,831
4463
;
NESTING:
0
4464
;
4465
PUSH:
4466
SEL
RBI
"-'
ISIS-II
rlCS-4IYUPI-41
HACRO
ASSErmLER.
W.O
PROl'IPT-48 SYSTElI1 MONITOR
VS.0
61'!BZ PAGE
63
LOC
OBJ
0Ell
B820
0El3
BF04
0E15
B900
OE1't A0
0EIS
18
eEl9
AA
0EIA 11
0EIB
A0
0EIC 18
0EID 19
0EIE
EFIA
0E20
FA
0E21
93
OE22
D5
0E23
B824
0E25
BF04
0E27
B903
0E29
F0
0E2A
Al
0E2B C9
0E2C
C8
0E2D
EF29
OE2F
FO
0E30
93
0E31
FA
0E32
530F
0E34
033B
0E36
A3
0E37
AA
0E38
FA
0E39
A0
0E3A
83
SEQ.
4467
4468
4469
4470
4471
4472
4473
PUSNX:
4474
4475
4476
4477
4478
4479
4480
4481·
SOURCE
STATEMEl'fT
MOV
MOV
MOV
MOV
INC
MOV
MOV
MOV
INC
INC
DJNZ
~IOV
RETR
R0.#IHBOT
R7.#4
Rl,#0
@R0.A
R0
82,A
A,@Rl
@R0.A
R0
Rl
R't.PUS!fX
A!~
4482
;*-*-*-*-*-*-*-*-*-*-*
;MEn
PTR
;REG
COUNT
;REG PTR
;STORE A
;STORE
REG
; PUSH
NEXT
REG
4483
; RESTORE TO BANK 0
R0-
1\3
AND
A.
THE
4484
;SAVED DATA AT INTERNAL
RAM
MEMOEY
BOTIOM.
4485
,
4486
;
REG
USED:
A,
824,825.1\31,1\0-1\3
4487
;REG
MODIFIED:
A,R24.R25,R31,R0-R3
4488
,NESTING:
0
4489
;
4490
POp:
4491
4492
4493
4494
4495
POPNX:
4496
4497
4498
4499
4500
4501
4502
4503
SEL
MOV
MOV
MOV
MOV
•
MOV
DEC
DEC
DJNZ
MOV
RETR
RBI
R0.#IMBOT+4
R7.#4
Rl.#3
A,@R0
@Rl.A
Rl
R0
R7.POPNX
A,@l\0
4504
;*-*-*-*-*-*-*-*-*-*-*
4505
; EXTERNALLY REFERENCED ROUTINE
;MElII PTR
;REG COUNT
;REG PTR
;POP
REG
; RESTORE
REG
;
RESTORE
NEAT
REG
;RESTORE A
4506
;DECODE HEX
DIG
TO
7 SEGMEIiT
AND
UPDATE
DISPLAY
TBL,
4507
;EXPECTS
IIEX
DIG
IN
R2
(OR-FH)
AND
CHAR PTR
IN
1\0
4508
;
4509
;REG USED:
A,l\0,R2
4510
;REG
MODIFIED:
A
4511
; NESTING: 0
4512
;
4513
DECRX:
4514
4S15
A,R2
A,#0FH
4516
MOV
ANL
ADD
A.
#(
CHPTR
AND
0FFID
4517
4518
; MASK
.WD
TO
BYTE
VAL
4519
4520
SAJ."'1E2:
4521
4522
4523
MOVP
nov
A,@A
82,A
4524
;*-*-*-*-*-*-*-*-*-*-*
4525
; EXTERNALLY REFERENCED ROUTINE
4526
;DISPLAY
TABLE
UPDATE
; GET CHAR
FROM
TABLE
4527
; EXPECTS 7 SEGHENT CHAR
IN
R2
AND
CHAR PTR
IN
R0
4528
;
4529
;REG
USED:
.'\..R0.R2
4530
;
REG
1I10DIFIED: A
4531
;NESTING:
0
4532
~
4533
DTBLU:
4S34
4535
4536
r-!OV
A.R2
~IOV
@RO.A
RET
4537
4538
4539
TABLE
OF
"'
SEGrmNT
ClIARACTORS
;
UPDATE
BUFFER
ISIS-II
KCs-t4YUPI
......
l
BCRO
ASSDBu:R.
V2.8
PAGE
64
PBDBPT-48
SYS'l'El'!
!IOIfITOR
V3. 8
6m1Z
LOC
OBJ
SEQ.
SOU'RCE
STATEl'JEl'IT
4340
CBP'IR:
8E3S
C8
40340
1
DB
1.1800000B , '
..
8E3C F9
405402
DB
11111001B ,
tIt
0E3D
A4
40543
DB
10100100B ;
'2'
0E3E
BD
4544
DB
10110000B ,
'3'
0E3F
99
4545
DB
10011001B
1'4'
0E40
92
405406
DB
10010010B ;
'S'
0E4l
82
45407
DB
10000010B ;
'6'
0E42
F8
40548
DB
111110f)0B ;
'7'
0E43
80
4549
DB
10000000B ;
'8'
0E44
98
4550
DB
10011000B ;
'9
t
0E45
88
43tH
DB
10001000B
;'
A'
0E46
83
4352
DB
10000011B ;
'B'
0E47
C6
4533
DB
1l000110~
;
'C'
0E48 Al
4554
DB
10100001B ;
'D'
0E49 a6
40555
DB
10000110B ; JE'
0E4:A
8E
40556
DB
10001110B ; •
F'
4557
IF
«(SA!E2
AND
eFF0eR)
LT
( •
AND
eFFOOR»
40558
MOY
A, SPERll ;
SAllIE
PAGE
ERROR
4559
EImIF
4560
40361
;*-*-*-*-*-*-*-*-*-*-*
4562
;OUTPUT
A
MESSAGE
TO
DISPLAY
40563
I
4564
;REG
USED:
A.R0,Rl
4565 ;REG
MODIFIED:
A,R0,R1
4566 ;
NESTING:
0
40567·;
4568
!:IESG:
0E4B B836
40569
my
R0,
-DP1'1Slt
0E4)}
27
457e
CLR
A
0E4E
A0
4571
lIOY
@RO,A
0E4F
8838
4572
!lOy
M.-DIP'IR
4573
lI.IESG1:
0E51 F9
4574
MOY
A.R1
0E52
A3
4573
MOVP
A.@A
0EG3
9656
4576 JNZ
MESca
0E55
83
4577
RET
4:578
l"1ESG2:
0E56
Ae
4:579 HOy QR0,A
0E57 18
4580
INC
R0
0E58 19 4581
INC
Rl
0ES9 C451
4582
JM:P
~.lESGI
40583
ERTBL:
0E5B
AF
4584
DB
DCLCR.
DCLCR
..
DCE
, 0
0E5C
AF
0E5D
86
0E3E
00
4585
P4:lTBL:
0E5F F9
40586
DB
DCl,DC4.DC7,DC8,0
0E60 99
0E61
F8
0E62
80
0E63
00
4S87 P48TBL:
0E64
80
4588
DB
DC8,DC4,DC7,DC8,0
OE63
99
OE66
Fa
0E67
80
0E68
00
4S89 P55TBL:
I;)E69
92
4590
DB
DC5,DC5.DC7,DCB.0
0E6A
92
0E6B
F8
0E6C
80
0E6D
00
4591 INT.BL:
OE6E
CO
4592
DB
DCO,
DCE(l.
DC5
,DeS
0E6F
87
OE70
92
OE71
92
OE72
86
4593
DB
DCE,DCC,DCC,
DCA.
0
OE73
C6
10.__
ISIS-II
ftCS-4&/UPI--t1
MCRO ASSEm3LER.
V2.0
PROlfPT-48
SYSTEM:
MON"lTOR
V3.0
6lmZ
PACE
63
LOC
OBJ
0E74
C6
0E75
88
0E76
~0
0E77
9AF0
0E79
BAO!
OE7B B8D9
0E7D
80
0E7E
928D
0E8S
AS
0E81
03F4
0E83
-F8
OE84 B8D9
0E86
E689
0E88
27
0Ee9
0393
GE8B
A3
0E8C
83
0E8D
0306
GEaF
530F
0E91
C4a0
0E93
64
0E94
F4
0E95
66
0E96
60
0E97
F0
0E9862
0E99
6C
0E9A
FC
0E9B
6E
0E9C
68
0E9D
F8
0E9E
6A
SEQ.
SOURCE
STATErlENT
4394
IF
«MESGl
AND
0FF00ID
LT ( S AIm
GFY00H»
4595
HOV
A.
SPERR ;
SAME
PAGE
ERROR
4596
ENDIF
4597
4598
;*-*-*-*-*-*-*-*-*-*-*
4599
; GET
USER
ACCESS
BYTE
4600
;
4601
;REG
USED:
A,R0,P2
4602
;REC MODIFIED:
A,R0,P2
4603
;NESTINC: 0
·4604
;
4605
GETAC:
4606
4607
4608
Am.
ORL
P2,#MSKPG
P2,#MEPGl
4609
; CET USER
ACCESS
BYTE
4610
4611
4612
4613
4614
CA2:
4615
4616
4617
4618
4619
4620
4621
GAS:
4622
HOV
HOVX
JB4
R0,#AXPTR
A,@R0
;
GET
ACCESS
BYTE
HOV
ADD
MOV
HOV
JNC
CLR
ADD
GAl
R0,A
A,#-CLAX'I'BL-AXTBL)
A.RO
R0,#AXPTR.
CAS
A
A,
#(
AX'I'BL
AND
0FFID
AND
0FFlI
•
4623
SAME3:
4624
fIOVP
A,@A
;CET
TABU!! VALUE
4625
RET
4626
CAl:
4627
4628
4629
4630
AX'I'BL:
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
;BIT0
;BITI
rBI1'2
;BIT3
;BIT4
;BIT5
;BIT6
;BI17
AD))
ANL
JMP
+PROlIEN
+USRAC
-OUTEX
-WIU'1EH
-P0WR
+
RENTER
-RUN
+XTIfL
A,#6
A,#OFlI
CA2
4641
;ACCESS
CODES
0
TO
5
4642
4643
4644
4645
4646
4647
4648
4649
DB
DB
DB
DB
DB
DB
o
1100100B
11110100B
01100110B
01100000B
111100008
01100010B
4650
;ACCESS
CODES
10
TO
15
4651
4652
4653
4654
4655
4656
4657
4658
LAXl'BL:
DB
DB
DB
DB
DB
DB
01101100B
11111100B
01101110B
01101000B
11111090B
01101010B
4659
IF
«
SAI1E3
AND
0FF00H)
LT ( $
AND
0FF00H»
4660
HOV
A. SPERR ;
SAME
PACE
EPoROR
4661
EIfDIF
4662
vIRK1A:
4663
ISIS-
II
rICS-4&fUP 1-41.
MACRO
ASSE!!BLER.
va.
8
PAGE
66
PlWl'lPT-48
S"YS'I'El'1
I'IDNITOR
va.8
6MBZ
LOC
OBJ
SECt
SOURCE
STA'fElIfElIT
41664
;IF
WlU<:1
>
lIC
THEN
ENABLE
EX"I'ER.NAL
ACCESS
4665
0E9F Ba31
4666
nov
R0,
-WlU<:lR
4667
WRKA:
OEAt
FO
4668
nov
A,@R0
0EA2
530C 4669
ANL
A,-0CR
0EM
C6M
4670
JZ
CETAI
8EA6
9AFO
4671
ANL
P2,-MSKPC
8EA8
8Aea
4672
ORL
P2,-MEIOU
OEAA
B80B
4673
NOV
R0,-NCHST
0EAC
2390
4674
nov
A,-90B
0EAE
90
4675
mvx
SRO,A
4676
CETAl:
0EiU'
83
4677
RET
4678
4679 ;*-*-*-*-*-*-*-*-*-*-*
4680 ;
4681
COPYRICRT:
OEB'.)
28432929
4682
DB
'
(C)
1976.1977
INTEL
CORP'
OEB4
31393736
0EB8 2C313937
0EBC
3720494E
0ECO
54454C20
0EC4
434F5250
0EC8
56455253
4683
DB
'VERSION
3.0'
0ECC
494F4E20
0EDO
332E30
4684
:
4685 ;*-*-*-*-*-*-*-*-*-*-*
4686 :
4687
END
USER
SYMBOLS
ACCI
054C
ACC2
0348
ACC3
0534
ACC4
0545
ACes
0528
ACCES
0524
ACTIl
0080
ADDl
0eDB
ADD2
9CE2
ADD3
0CEA
ADDBL
0CDA
ADDl!T
086A
ASMAX
00DD
ASPTR
00DD
AWK45
0CD0
AXMAX
06D9
AXPTR
00D9
AXl'BL
0E93
BASEH
002B
BASEL
002A BtASH
0028
BtASL
0027
BLANK
0CF2
BLI<:
07DC
BLKAD
0D06
BLKDA
0000
BLKI
0CED
BLKNX
0CF9
BREAK
0010
BRKl
023F
BRKl0
0233
BRK2
0231
B.RK3
022E
BRK4
024E
BRKS
026F
BRK6
0268
BRK7
0271
BRKS
027F
BRK9
023C
BRKPT
0215
BRTBL
018F
BRTCH
o
tAT
BXMAX
00D8
BXPTR
00C9
C45UL
0D58
CDTBL
01CF
ClIPTR
0E3B
Cl
0718
.
CII
06DE
CKl
0D6B
C1<2
0D74
CKASIO
0BM
CKD
08F4
CKDBL
0D62
CKMB
0026
cnID 08F0
cx:sun
0026
CL5
0000
CL6
0004
CL7
0008
CL8
000C
CLEAR
04E7
CLERR
0010
CLRNX
04EE
CMDEI
015B
CMDEN
0162
CMDLV
0151
CMDMD
0156
CO
07FA
COl
061F
CODE
0DD7
CODEt
0DE7
CODE2
0DFI
COW
0025
COMPI
09F7
COMP2
09F0
COMP4
09FE
COMP5
09E7
COMP6
09E9
COl\JPAR
04El
COllPX
09E3
CONV
06E7
CONVI
06FO
COPYRI
0EB0
CR
00tlD
CRLF
.0797 CSI
07BC
CSTS
07F6
CWKUL
0D5E
CliKWl 0D52
D10US
0A25
D20US
OAID
D45AD
0C84 08741 0001 D8748 0000 D8755
0002
DADDFL
0C76
DADDR
0CC7
DAFLD
0C74
DATKY
0012
DAVI
OD23
DAV2
ODIE
DAV3
0D12
DAV5
OD2A
DC0
00CO
DCl
00F9
DC2
OOM
DC3
0080
DC4
0099
DC5
0092
DC6
0082
DC7
00F8
DC8
0080
DC9
0098
DCA
0088
DCB
0083
DCBL
00FF
DCC
0006
DeD
00Al
DCDSH
00BF
DCE
0086
DCEQ
00B7
DCES
000E
DCF
008E
DCC
00C2
DCR
0089
DCL
00C7
DCLCC
00A7
DCLCM
00AB
DCLCO
00A3
DCLCR
00AF
DCLCU
00E3
DCP
007F
DCPC
008C
DCU
OOCI
DDAFD
0C7E
DDTFD
0C7C
DECRX
0E31
DEDBL
0079
DELI
07A8
DEL2
07AA
DEL3
07A2
DELAY
07AO
DELOI
OC6B
DEL02
0C6C
DELOK
0C6D
DEWRK
OD75
DCOPT
0010
DeIPT 0011
DC2PT
0012
DC3PT
0013
DC4PT
0014
DG3PT
0015
DC6PT
0016
DC7PT
0017
DCOUT
07ED
DGSTe
07F3
DICNT
0037
.DIPAW
0COD
DIPCA
0C04 DtPTR
0038
DP~1SK
0036
DSR
0080
DTBLU
0E38
DTR
0002
DTYPE
0M2
DUTOEN
0000
DUTOIN
0001
DXXAD
OCH6
EA
0020
ECKEY
089D
EM2
0A78
E1I3
OA70
E.M.7
0A8B
EMS
0A87
EI'IC1ID
039E
ENODE
0029
EPlSBl
0B08
EPlSB3
0AFA
E~!sB4
0A7D
EPlSUB
0A6E
ENmI
0080
ENREF
07DF
ENRFS
08FA
£NT10
0409 ENTII
0442
ENTl3
0443
ENT14
03B7
EJ."IT15
0435 ENT2
03Fl
£NT4
0406
EI-TT5
0421
ENT7
03BF
ENT8
048D
ENTaA
04CC
ENT9 03D3
ENTE...t:t
03A6
ERRl
Ol0A
ERROR
COFE
EItRlf
0105
ERTBL
0E5B
EXECUT
0017
E..~.lEM
C00A
EiITBL
OA..W
FALSE
0000
FEDUT
0836
FETI 08G2
FETCH
64E·1o
FETDT
0800
FEWP..x:
0DA3
FEXl
ODAE
FE.."'{2
0DC2
FEX3
ODCB
FEADA
ODAA
CIPRl'1
0BB2
C2PRl'r
0BB6
G3PRI.'!
OBBA
GAl
0E8D
GA2
0E80
CA3
0E89
GADDI
eCCE
GADDR
0cne
C.MIl
002S
GA1
'
12
004()
CBM!
0004.-
GBYTE
0D10
CDATA
0D~C
GDERR'
0€68
CDCSH
0043
GDUTO
08SB
CETI
0B58
CET2
0B2.F
CETS
0B19
GETAI
0EAr
GETAC
0E77
GETI'-B
0B10
CEXI'Y
0A8D
GCOTY
0A94
COACN
029A
GOC!1D
0288
I.
ISIS-II
MCS-48I'UPI-41
MACRO
ASSDmLER.
W.O
PROlIJPT-48
S"YSTEl:'!
MONITOR
W.O
6Ml1Z
COSSI 02A2
COSU'l
OMD
CTPI
OBDF
GTTBL
OBF7
GTYPE
0AB0
INII
0046
INIT
OIOD
INWE2
ODF9
nIN
07E7
KEY
OB62
LEAD
0639
l:'JBl
VE
04A2
!!EPGl 0001
MEPG7
0807
MOVE
054F
l{V5
05A8
NIBBLE
06B8
NT4
OMI
NXDAV
8D16
ORI4
8SBC
POLIN
8008
P55TBL 8E69
PCU'I
0008
PPICT
0043
PRS 050A
PRGII
0973
PRGS
0964
PRrIPT
8C6E
PRPRO
oaFe
PU'SNX
OEIA
READ
0669
REDUN
0893
RECKY
0013
RETSS
029C
RIOS
0632
RPAR
oooa
RXEN
0004
.....
SAHES
OBF8
SEA12
0396
SEAt
0374
SEt1UJX
0D93
....
"
8888
''f'S1Id
.tM
'fOGEA
tAlA
1llUlll
88AS
TYPO
87AD
trsIC6
"FA
UDDFL
8C98
lJSRST
8848
WAITI
0A6B
WRI5
0736
WRKIA
OE9F
WRK3L
002C
COSS2
028F
COSU'2
0A5C
GTP2
OB])C
GTYI
OAF3
BEXAR 01F'?
INI2
0042
INTBL
OE6E
INWRK
ODFD
KBSI
OC3e
KEY
I
OB5E
LEAD
1
0664
HeRST 808B
l'!EPC2
0002
MESG
OE4B
MSKI'G
00FO
MVR45
0D86
NOKEY
0B6B
IfI'S
OB53
NZI
OCAS
ORIIS
08EA
P2DEF
04FB
PAGEl
0eFF
PEN8
0010
PPIM!) 00E0
PRSYTE
0025
PRG12
09BC
PRG6
0960
PRm'BL
0934
PRSET
ODA3
ROntP 001B
READ2
0682
REF 1 05FO
REGH))
00FF
-
RFR-
1)020
RI10
0647
RRDY
0002
SAMEe
0009
SAVPC
0013
SEA2
e33C
SEA8
0385
SEU'LX
0D95
I".
.eee
'lIfO
....
TOGitOV
.A:ad
TXBE
e8e4
TYRJ
8629
UBK9
"97
ODDFlf ocac
U'STlmt 8A2l
WAIT2
OA5F
WRI6
0773
WRKIH
6031
WRKA
0EAl
ASSEHBLY
COPIPLETE.
1'1'0
EP.RORS
COSS3
82EA
COSUB
0A45·
CTP3
0Bea
GTY2
0AF6
8XOU'T
07F0
INI3
012B
INU'S0
83F0
IO~JAX
00C8
KBST
07E4
KEY2
0838
LEAD2
0660
MEIOU'
0008
MEPG3
0803
MESGI
eE51
HVl 059C
MVREG
OD88
NOT4
0B8D
NTBEX
OC5A
NZERO
0CAD
ORI6
08BO
P2MAX
OODB
PAl
0010
PEVEN
0820
PPIPA
0040
PRC
0521
PRGl3 098C
PRG7
0917'
PROG
0040
PULl 0A06
RI6X
0002
READ3
0672
REF2
05CF
RESOL
OB81
RGMAX
00C4
RIIS
8654
BST8808
SAME
I
0178
SBCH
0808
SEA3
0350
SEA9
0335
SEWK0
0D9.F
STU ec.:t
.nB
.....
TOG..,
.Mll
'I'XEK
.
M81
UBJCl
te46
ODDl
QCM
U'PUfIl
0835
VDI)
00le
WDSEAR
02FF
WRI7
075E
WRKIL
0030
WlUOi
0033
COSS4
0209
GOTBL
0AAA
GTP4
oaBE
GTY3
OAF7
IMBOT
0020
INI4
0133
INU'SI
03,..
IOPTR 00CS
KBSTA
0C35
KEYOK
0891
LF
000A
l'IEMAX
00FF
MEPC4
0004
MESC2
0E56
l:'JV2
05B2
NEXl'
0816
NOT.)
0BOF
NXI
0C91
ORII 08E])
ORI7
00CA
P2PTR
00DD
PBI
0002
PO
07FE
PPIPB 0041
PREY
00U)
PRC2
09CE
PRGa
092B
PROt15
0510
PUL2 0A10
RIX
0001
READ4
06B0
REF3
051)4
RESTOR
00FD
RGP1'R.
.0080
RI20
0658
---B:IS.
-
8828
SAHE2 0E36
SEAl
0363
SEA4
8366
SEARCH
0321
SEXDA
8E0A
;~
::
TRDf
8eel
Trel
86M
UBIC2
":58
U'DD2
8CAF
U'PUIL
08S4
VERl
8835
WRDU'T
0A36
WRI8
0781
WR..1{2.lI
002F
WR.'<L
0032
PAGE
67
GOSSt'S
021'8
GTKEY
0B12
GTP5
0BD6
GTY...
OAFS
IMl'OP
003F
INI5
013A
INUS2
03F8
KBDAT
0009
KBSTS 0C23
KOK
0B53
MB0VE
0463
NEMMD
0000
MEPG3
0085
MODE
00CF
MV3
0592
NIBl 06CC
NTO
0038
NXADV
0CBB
ORI2 08D5
ORIENT
0886
P41TBL 0E5F
PBYTE
051<'8
POP
0E22
PPIPC
0042
PRCl
0990
PRG3
09BD
PRG9
093E
PROttEN
0001
PULPRO
0AOA
R64X
0003
READS
0698
REFS
07E2
RETGO
029C
RGTOP
00BF
RNPTR00DA
B'l:I'Y-
46CE-
SAME3
0E8B
SEAl0
0390
SEA5
035e
SET00
0DAI
SPEC
0BA1S
!iTO"
_U~
TADY
882'
TRUE
"PF
TreO
8619
UBK3
"DB
ODoo
0096
U'SACT
0821
VERIFY
0829
WRI3
0710
WRI9
073B
iVRK2L
002E
w"'l
0B7D
GOSS6
02£7
GTPO
0Boo
GTPml
0BBC
CTYS
0AE2
INDBL
0DFF
INIPPI
002&
INUS3
03FC
KBDOT
0C31
KDBIN
97EA
LAXI'BL
0E9F
M81RT
0028
PlEPC0
0080
MEPG6
0006
MONRT
00DC
1W4
05AF
NIB2 96CS
NTI
003C
!fXBRK
0235
ORI3
08CD
ORTST
0080
P48TBL 0E64
PCIL 0001
POPNX
0E29
PRA
050])
PRGI0
0955
PRG4
09D4
PRGKY
0011
PROHP
0501
PUSH
0E10
RBYTE
06F5
READ6
0696
REFSR
05Cl
:AETGS
02A4
RI 07FC
ROV
0010
B:rYl04D6.
SAME4
0AA6
SEAl I
0392
SEA6
0371
SETPI 0D98
STI
0040
fiUQiJ.
-CUlt
T!'1
"34
1'IUJ1I
80M
TYCS'l"!t
wr
AF
U'SD
0ee9
U'DD4
QC9A
{]SAnA
0828
WAIT
0MD
WRl4
0732
~iRI
TE
0706
W1U<..3II
002D
WT2
OB7E
ISIS-II
ASSEm3LEl\ SYm30L
CROSS
ru.:nZEiiCE.
w.e
PAGE
1
ACCI
1925
1929
1951-
ACC2
1940
1944#
ACC3
1920#
ACC4
1941#
ACC5
1864
1908-
ACCES
917
1905#
ACTM
197#
198
ADD
1
41025
4028#
ADD2
4032
4035-
ADD3
4041
4043#
ADDBL
9741
1999
2316
2469
2486
4e19
4026-
ADDUT
2806
2822#
3070
ASl'IAX
341#
ASPTR
335-
341
796
3655
AWK45
3519
41016#
AXr'IAX.
339#
AXPTR
331#
332
338
339
775
776
1997
4611
4618
AXl'BL
4616 4622
41630#
BASER
361#
362
BASEL
362#
363
845
1014
1204
1909
2859
3432
3<!49
3462'
4335
BIASII
364#
365
BIASL
365#
366
2280
2315
2889
2980
3010
3015
3124
BL;UlK
806
823
2646
4059#
BLK
2644#
BLKAD
741
1400
3694
4081#
BLKDA
1410
3988
4074#
4113
BLKI
710
849
4055#
BLKNX
4065#
4069
4077
4084
BREAK
463·"
BRIG
1026
1049#
BRK10
1039#
1066
BnK2
1030
1034#
BRK3
1031#
1055
BRK4
1060
1067#
1128
BRK5
1091
1101#
BRK:6
1095#
1098
BRK?
1100
1103#
BRKS
11141
1122#
BRK9
1022
1046#
BRKPT
918
1002#
BRTBL
853
880#
BRTCR
855
859
8Sl
882 883
884
885
886
887
888
889 890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
906#
BXUAX
338#
1008 1038
1220 1270
BXPTR
330#
331
337
1008
1015
1038
1205
1220
1270
C45UL
19:::;9
2007
3720
4174#
CDTBL
859
928#
CBPTR
4516
4540#
CI
2675#
Cll
2394#
2397
CKI
4191
4193#
C1(2
4200
4202#
CKASIO
2204
2248
3457
3533
3549
3652#
CKD
1878
1892
2943#
CI:DBL
1245 1375
1976
3063
3688
4173
4177
4184#
CKrm
50:l.~
611
CIalD
2939#
2964
3042
CKSUH
366#
367
2167
2293
2439
2504
2537 2552
CL5
148#
CL6
147#
CL7
146#
CL8
145#
181
CLEAR
919
1839#
CLEM
161#
CLRNX
1844#
1852
eMDE!
750
832#
eMDEN
837#
3331
crmL1T
821#
925
1048
1130
1384
1457
1854
1953
2g61
2335
2568
3146
3292
3471
3703
c:rmMD
8H}
828#
856
989
eo
2677#
COl
2184#
2187
CODE
2988
4362#
4391
4398
CODE1
1143
4386#
ISIS-II
ASSE1'JBLD
S'flIJBOL
CBOSS
RDEkEliCE.
w.e
PAGE
2
CODE:!
2990
439t5#'
44e4
corm
183#
183
161
2219
COMPI
31152#
3161
CO~lP3
3131 3141
3147-
3135
COMP4
3110
3157#
COMP3
3140-
COMP6
2723
3029
3142-
COMPAll
915
181a.-
COMPX
1820
3136#'
CONY
2155 2162
2409#'
CONVI
2412
2416#'
copmI
4681-
CR
384#'
2378
CRLF
2390
2548
2566
2577-
CSl
2633
2635#'
CSTS
2673#'
.
CWKUL
23:;:3
3383 3383
3520
4179-
CWKWI
1364
1380
IM8
20116
2719
311:5
315+
4170'
D10US
2Bll
3073 3080
3083 3090
3218
3226-
D20US
2781
2807'
2809
3071
3214#'
D45AD
1102
3918#
4118
DB141
435#'
1891
3007
D8748
434#
3025
D8735
436#
1896
DADDFL
976
1079.
3106
3783
3906'"
3989
DADDR
3986
3991#
4110
DAFLD
13S8
2338
3343
3904'"
DATICY
442#'
3465
DAVl
4112
4115#
DAV2
4108
4111'"
DAV3
4997
4100'"
DAV5
4117
4120#
DCO
400#
4592
J;H:l
40l#'
933
4586
DC2
402.#'
931
934
DC3
493'"
DC4
404#
4586
4588
DC5
405'"
933
934
3419
4590 4590
4592
4592·
DC6
406#
DC7
407#
4586
4588
4590
DC8
408# 4586
4588
4588 4590
DC9
409'"
DCA
410'"
939
4593
DCB
411#'
940
1274
3419
DCBL
418#
938
941
942 943
945
946
947
3949
4e66
DCC
412#
937
941
3768
4593
4593
DCD
413#'
929
930
942
948
3421
DCDSEl
429#
947
1094
3885
DCE
414#'
935
946
4584
4593
DCEQ.
430'"
4592
DCES
417#
DCF
415#
944
DCG
416#
945
DCll
422#
935
DeL
421#'
DeLCC
42...-
939
DCLCrl
42S'"
938
DCLCO
426'"
937·
3419
DCLCR
428#
932
936
940 943
3421
4584
4584
DeLCU
427#
DCP
419'"
DCPC
423#
9S1
932
936
944
3421
3nl
ncu
428#
929
930
948
DDAFD
3913#
DDTFD
1389
3109
3498 3737
3911'"
4121
DECl!X
1272
2667
3956
4513'"
DEDBL
669
2068
2071
4216#
4228
DELI
2226
2594
2598#
DEL2
2604#
2605
DELS
2593#
2596
DELAY
769
~18
2591#
DELOt
3867
3871#
DEL02
3864
3873#
DELOK
3861
·3375#
DEWRK
1363
3382
4213#
ISIS-II
ASS1tl'!BLElt
snIBOL
CMSS
RUtBENCE.
w.&
PAGE
3
DG0PT
2?7;11
2111
DGIPT
278#
DC2PT
279;11
DG3PT
28&;11
DG4PT
281;11
DGGPT
282;11
DG6PT
283;11
DG7PT
284#
DGOUT
2662"
DGSTC
2669;11
DICflT
349#
330
1S76
"US54
2994
2129
406&
DIPAW
1277
37'73-
DIPCA
3316
3763;11
DIPTR
348;11
349
860
1092
1266
2093
3412 3767
3887
39e7
3914
3921
4073 4082 4372
DP!'!SK
35f);II
351.
2103
3843
4056
4569
DBR
175;11
DTBLU
2664
38as
4533;11
DTR
15B#
183
DTYPE
3398
3403
3409#
DUTDEN
2699#
2774
DUTDIN
2700#
2'774
DXXAD
984
3920#
EA
2695;11
3244
ECKEY
3586
3640;11
EM2
3348
3350#
El'13
3342-
3355
Em
3372
3384#
EMS
3378
3381#
EnCW
924
1452;11
EMODE
363#
364
2940
2958
3006
3024
EMSB-l
1050
1051
3512'"
.
ErSB3
1921
·3344
3493#
Er'JSB4
1126
1127
3354
3367#
El'ISUB
1455
3340-
ENmI
164#
ENREF
2647#
ENRFS
834
2649
3746#
ENT10
1565
1567;11
ENTll
1609
1614
1631#
EflT13
1624
1630
1633#
ENT14
1475
1479#
ENT15
1607
1613#
ENT2
1540#
1548
ENT4
1557
1561;11
ENT5
158a-
1593
ENT1
1490
1492#
ENT8
1694
1718#
ENTBA
1761
1785#
ENT9
1507
1511#
ENTER
1172
1196
1464#
ElUU
748#
ElU\OR
739#
907
908
926
.
les3
1395
1882
1943
234e
2388
2932
3474
3706
3870
ERRW
744#
3112
ERTBL
742
4583#
EXECUT
438#
3825
3860
EXMEn
275#
4327
EXI'BL
3397
3420#
FALSE
379#
380
447
448
FEDlIT
2768#
2810
FETI
2715#
2723
FETCH
922
1827#
FETDT
1829
2710#
FEWRK
1083
1226 1229
1357
1366
2036
2529
3001
3148
34196
4308#
FEX!
4313
4a16#'
4451
FEX2
4324
4a34#'
FEX3
4333
4343#'
FEXOA
2033
4312#
GIPRI'r
2276
3341
3667-
G2PmI
1399
1842
2453
3670'"
G3PmI
1966
3673#
GAl.
4613
4626#
GA2
4614-
4629
GAS
4619
4621#
-
ISIS-II
ASSElmLEll
snmOL
CROSS llEJ'EBENCE.
V2.0
PAGE
..
GADDI
3996
3998#
GADDR
1017
2866
3285
369:5
3980#
GAMI
195#
198
GAM:!
196#
198
GBm
192#
GBYTE
1411
3499
4098#
GDATA
1109
4095#
GDElUt
3868#
GDGSB
3841#
3985
4106
GDUTD
2716 2750
2805#
GET 1
2661
3534
3587#
GET2
3535
3552#
GET3
3538#
3544 3547
GETAI
4670
4676#'
GETAC
1499
4151
4605#'
GETKB
836
3321
3426
3:531#'
3818
3842
GEXTY
1398
1454
1841
1965
2275
2452·
3395#'
GGOTY
1137
3400#
GOAGN
1169#
1181
GOC~ID
923
1135#
GOSSI
1146
1195#
1261
1280
GOSS2
1224#'
1248
GOSS3
1246
1265#
GOSS4
1239
1247#'
GOSS::;
1276#'
GOSS6
1257
1259#'
GOSUI
3290
3293#
GOSU2
3299
33H)#
GOSUB
1142
3284#
GOTBL
3402
3-418#
GTI<EY
2658
3541
3607#'
3823
GTP0
967
968
2883
3678 3682
3692#'
GTPI
3701
3707#
GTP2
3575
3579 3581
3583
3689
3704#'
3711
3721
GTP3
2869
3679
3681#
GTP4
3677#
3690
GTP5
2867
3699#'
GTPRH
3669 3672
3675#
GTTBL
3724
3732#
GTYI
3469
3472#
GTY2
3466
3475#
GTY3
3454
3477#
GTY4
3438
3479#
GTY5
3458
3461#'
GTYPE
3396
3401
3425#
BEXAR
913
964#'
BXOUT
2665#
IMBOT
368#'
1466
1534
4467
4492
Im'OP
347#
534
1581'
INDBL
2050
4419
4424#'
INll
700
709
835
2893
4150#
INI2
4146#
INI3
780#'
783
INI4
786#'
789
INI5
792#'
795
INIPPI
805
2904
2929 2934
3101
3144
4131#
INIT
451
755#'
IffTBL
807
4:591#
IffUSO
1665#
1717
IHUS1
1666#
1744
INUS2
1667#
1784
IffUS3
1668#
1811
INllK2
2718
3114
3153
4417#
INWRK
1044 1228
1231
1363
1379
1847
2048 2328
2534
3379
4420#
IOMA.,{
337# 3443
IOPTR
327#
330
336
511
561
610
632
707
1472
1529
1553
1599
1672
KBDAT
225#
1575
3590
3611
3798
4148
KBDOT
3817#
KBIN
2656#
KBSI
38~4
3806#
KBST
2653#
KBSTA
3820#
KBSTS
2655
3540
3797#
3821
KDBIN
2659#
ISIS-ll
ASSEl'mLER
SYMBOL
CROSS
REl"EB.ENCE.
V2.&
PAGE 5
KEY
3395#
3596
360&
KEY
1
3591#
3599
KEY2
3563-
3567
ICEYOK
3624
3630#
KaK
3578
3584#
LAXTBL
4616
4658#
LEAD
2246-
2456
2567
LEADl
2255#
2257
LEAD2
225&)
2252#
LF
385#
2580
MB0VE
1678#
MBIRT
499
508#
2735
MBIVE
1674
1745#
HeRST 2040#
1254
1701
1728
1768
1795
292&
2944
4155
4673
ME
IOU
311#
583
758
1253 1574
1700
1727
1767
1794
2121
2183
2211
2393 2630
2771
2792
2826
2946
3248
3264
3589
3610
3749
3800
4133 4154
4326
4672
MEMAX
342#
4273
ME1lrID
373#
374
HEPGO
312#
3455
MEPGl
313#
510 587
706
717
778
1199
1468
1581
2977
3017
3295
3405 3654
3775
4277 4607
MEPG2
314#
MEPG3
315#
2971
3459
4270
MEPG4
316#
2861
3434
MEPG5
317#
MEPG6
318#
MEPG7.
319#
2878
4394
MESG
743
808
1877 1890
1895
4568#
MESG1
4573#
4582
4594
MESG2
4576
4578#
MODE
181#
763
MONR'f
334#
333
118
775
3406
MOVE
9f6
1963#
MSKPG
310#
509
582
586
705
716
757
777
1198
1252 1467
1573
1580
1699
1726
1766
1793
2120
2182
2210 2392
2629
2770
2791
2825
2')45
2976
3016
3247
3263
3294 3404
3588
3609
3653
3748
3774
3799
4132 4153
4325 4393
4606
4671
MYI
2035
2041#
M.V2
2044
2065#
M.V3
1977
2008
2031#
2058
M.V4
2057
2059#
M.V5
2054#
2073
MVR45
1405
2281
3729
4243#
MVREG
1987
2006
2515
2875
2887
2890
3011
3057
3123
3126
4247-
NEXT
437#
3326
3863
NIBI
23'&1
2353
2357
2362#
NIB2
2355
2358#
NIBBLE
2349#
2432
2436
NOKEY
3601#
3606
3625
NOT4
3622
3626#
NOT3
3623
3628#
NT0
519
521#
NTI
522
524#
NT4
3576
3580#
Nn'
3577
3582#
NTBEX
3848
3859#
NXI
3929
3932#
3964
NXft..DV
3984#'
39ge
NXBRK
1041#
1045
mIDAV
4105#
4119
4122
NZI
3944
3952#
NZERO
3945
3948
3955#
ORII
2922
2933#
ORI2
2908#
2928
ORI3
2853
2903#
3159
ORl4
2891#
3160
ORI5
2930#
ORI6
2877
2384#
ORI7
2897
2900#
ORIEil"l'
2711
2852#
2960
3137
ORTST
2'693#
2912
2926
POLIN
276#
581
703
1577
3747
P2DEF
909
1861#~
P2MAX
340#
IS
IS-
II
ASSEl'!BLER
snlBOL
CROSS
~.
w.e
PAGE
6
12PTR
333#
334 340
1317
1571
1863
P41TDL
18S9
4585-
P48TBL
1876
4587#
P55TBL
18941
4589#
PAGEl
448-
2689-
PAl
194-
PBI
191-
PBYTE
2147#
2508
2520
2523
2526
2532
2542 2557
2560
2565
PCIL
190-
PCUI
193#
PENS
149#
PEVEN
150#
PO
2681*'
POP
1056
1144
2158
2165
3093
3368
3722
4490#
POPNX
4495#
4500
PPICT
199#
.
4134
PPIm>
198#
4135
PPIPA
269# 2782
3268
PPIPB
290#
3246
PPIPC
S01*'
2769 2790
2823
3262
PRA
1879
ISS3#'
PRB
188~#
PRBYTE
367#
746
833 839
3319
3559
PRC
1893
1897#
PREV
439#
3468
3866
PRG1
3068#
3094 3996
PRGI0
3018#
3023
PRGll
3044
3046#
PRG12
3049
3097#
PRG13
3054
3065#'
PRG2
3037
3064 3092
3113#
P'RG3
3099-
3151
PRG4
2724
3120#
PRG5
3012
3028
3030#
3119
PRG6
2965
3027#
PRG7
2981#
2986
PRGB
2994-
3000
PRG9
3001
3005-
PRGlCY
440#
3437
PRMPT
824
3885#
PruITDL
2992
3002#
PROG
2694-
3184
3201
PROM5
9H}
1887#
PROMEN
2701#
2894
2898
PROMP
914
1874#
PRPRO
1885
1899
2957#
PRSET
1010 1916
2862
2972
3435
3445
4274 4278
428S#
PULl
3170#
3203
PUL2
3191#
3197
PULPRO
3082
3180-
PUSH
1018
1110
1141
21S0
2865
3069 3500 3693
4465#
PUSNX
4473#
4478
R0TMP
486#
543
560
R16X
142#
Rix
143#
R64X
141#
181
RBYTE
2295
2299
2303
2319
2321
2331
2430#
READ
921
2273#
READ2
2324 2332
2336#
READ3
2282#
2289 2333
READ4
2297
2334#
READS
2320#
2330
READ6
2318#
REDUN
3632#
3639
REF
1
2125
2127.'
REF2
2096
2100#
REF3
2105#
2107
REFS
2651#
REFSH
455 457
2088#
2652
REGKY
441#
3453
REGm>
374#
RESOL
3618#
3627 3629
3638
RESTOR
597
606
637
731#
RETGU
460
1174#
RETGS
462
1197#
,
'ISIS-II
ASSEl!lBLER
SYl!BoL
CBOSS
BElEl'lEKCE:.
V2.8
PACZ
?
llETSS
461
1173-
RFR
In-
RGMAX
336-
RGPTR 3211#
325
327
1513
1528
1533
1679
1746
3443
345.
RGTOP
325#
533
551
620
673
784
1212
1483
1586
1600 1659
3303
3776 3784
RI
2679#
RI05
2206
220')#
2215
2688
RIle
2222-
2227
RIllS
2225
2232#
Rl20
2236-
RNPm
332#
333
1138
ROV
172'"
BPAR
171#
RRDY
169-
2224
2396
2632
RST
2697-
2892
3241
RTS
162#
183
RTTY
2287
2374#
2431
2435
RTY1
2376
2379#
RXEN
159#
183
SAllE0
438#
727
SAllE 1
852#
950
./
--
--,~
SArlE2
4520#
4557
.-.--......~
SMlE3
4620#
4659
'.,.
SAME4
3413#
3422
, -
--_
SAllE5
3725#
3734
SAVPC
473
474#
SBCH
160#
-,
SEAl
1365
1382-
1413
.....
SEA10
1371
1422#
..........
SEAl
I
1352
1427#
---
...
SEA12
1430-
1436
.,,:
SEA2
1355#
1381
SEA3
1362
1369-
SEA4I
1376
1385#
SEA5
1377#
1392
SEA6 1393#'
1419
SEA7'
1299
1338
1396-
SEAS
1300 1310
1314
1346
1402
1408#
SEA9
1309
1319 1345
1350#
SEARCR
911
1331#'
SET00
846
3463
4283#
SETPI
1016 1206
1911
3451
4276#
SEULMX
4269-
SEULX
848
2855 2879
3428
3456 3460
4271#
SEWK9
844
1207'
4281#
SEXDA
2043
4450#
SPEC
3645
3647#
ST1
153#
ST15
152#
S1'2
151#
181
STA2
3822
3828
3830#
STAS
3819
3824#
STOWE:
1043
1118
1846
1938
232'T
2717
3349
4446#
SUDBL
982
1993
2015 2021
2027
4022#
SY3MBZ
447#
2599
317'4
3186
3215
SYNC
144#
SYlfD 17'4#
TO
2698#
2779
2788
TADV
185#
76S
2216
TFl
516
ISl8'"
TOGEA
2901
3100
3143
3243#
TOGROU
2780
2789
2913
2927
3e79
3088
3185
3202
3242
3245#
TOGRST
2808
2812 2907
3072
3089
3240#
TRDY
168#
2186
TRUE
380-
584
2634 2689
3750
4137
TRW
619
,626
628#
TRW
1
630
631#
TXBE
170-
2214
TXEN
157#
183
TYCI
2208
2390#
257'6
3545
3568
TYCO
2180#
2617
2678
3562
TYCSTS
2627#
2674
3543
3566
TYPO
2156 2163
2256
2.502
2550
2379 2581
2616#
2682
TYRI
2202#
2375
\ -
r--·--·
._-----_._--_._---.
ISIS-II
ASSE!IBI..ER
sntBOL
CltOSS
REPElWfCE. W.O PACE 8
UBKI
533#
539
UBK2
353#
5S9
UBK3
690
692#
UBK3
459#
723
724 725
UBIC6
720
722-
UBK9
595
617-
UDDI
3960
3962-
UDD2
3951
3957#
UDD3
3935
3931#
UDD4
3939
3941#
UDDFL
2611
3909
3923
3938#
UDDFN
3916
3926#
UPLMH
331#
352
UPun.
332#
333
1007
1913
2014
2969
3062 3442
4176
4181
4272
USACT
286#
752
2181
2212
2391
2628
USADA
283#
770
2189
2233
2398
USRST
163#
USTlME
2919
3179 3196
3222#
3225
VDD
2696#
3078 3087
VERI
2756
2758#
VERIFY
2747#
3036
3091
3158
WAIT
1179
"12:>8
3312-
WAITI
3327
3329#
WAIT2
1278
1390
3138
3317#
lIDSEAR
912
1292#
WRDUT
3074
3261#
WRI3
2457#
2543
WRI4
2488
2491#
1mI3
2490
2495#
WRI6
2493
2544#
WRI7
2527#
2536
1mI8
2555-
2558
1mI9
2497
2499-
WRITE
920
2450#
WlUC1A
1334
18
..
3
1967
2454
2896
4662#'
WRKIH
353#
356
4666
WlUCIL
356#
357
981
1211
1244 1985
2019
2932
2867
241m
3687 3733
4172
WRK2H
35~#
358
1301
1968
282
..
3105
WlUC2L
358#
359
1351
1374
14eS
1974
1998
2885
2825
2M2
2949
287.
2874
2888
3089
8855
3125
STSS
4418
WRDH
359#
360
1293 1315
1332
.
WlUCJL
36
....
361
1311
1347
1428
2886
3121
WBXA
1969
2326
3495
4667#
WlUQI
353#
354
983
230e
23211
2979
2988 2993
3el3
3e15
3494
3ge1l
WRKL
334#
355
973
980
1071
1975
1992\
2304
2314 2468
2512 2873
2885
3122
3685
3733
4017
4171
418e
4215
4282
4309
4421
4447
liT
1
3615#
3616
liT2
3613#
3617
CROSS
REFERL.'VCE
COMPLETE
