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 PDF.
Page Count: 80

DownloadPROMPT_48_6MHz_Upgrade PROMPT 48 6MHz Upgrade
Open PDF In BrowserView PDF
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.
fr~

2)

Remove power
power cord).

Prompt-48 (turn off power and remove
.

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 a11 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

2

50

911

ij~
40

40

4~

1/0 PORl5.
CO"NE~TOR

PROfYJPT-4g
PANEL

prompt 48

w

w
P!lOG.RAMt.ltNG
50Ct::t:T

-:
jTJ

.0·

;~.

EXECtJTiOI\I

socur

""D:lMIAAI'oIDI FUNC':O,N

(

em",p

- - - - -

)

:

_ _ _I _ _
_ _ _I _ _!:>AlA
___
IL _ _ _IfUI3" OJ)

7

sa

1) A ) f)

c.xtt

"J)($T

(+ /"'2.)

2.0

\\\1 l(bR. C'1:<.L l..ouP

IVc.....

~~ao

ICJ

TTL TX l)AT-A

].1

5

f"2J)1'

18

20

u;·-e..p

l1A0J)

006

'" ~ vA)"}\

n

2.

(o\..)\]

Rts-r? To. $(S'1.)J)

't
/D
!l

,,-

•

I

<;nn
+ 6v
300
~

Iii

~"D~

<=; b DO n~(1)
4 L.)1> KA \C Co~

15

::'2.

U'T

2'")

TT'7 I"2.X L.ooP

2'1

l' ~

'2.0

T T\t t~
GilD

R.)

T"(

L frO tp

LOOt:>

LCD.p

10

CO'IVtV

W

---

------- -.- -----------_._-----.

--_._-_._---- -----------9800583A

1515-11 MCS-48/UPI-41 MACRO ASSErlBLER,
PROMPT"'48 SYSTEM MONITOR V3.0 6MBZ
LOC

OBJ

SEQ.

w.e

PACE

1

SOURCE STATEMElIT

1 STIn..E ('PROllPT-48 SYSTEl'l MONITOR V3.8 6MBZ')
2 ;*************************************************

3' ;

4 ;
.5 ;
6

INTELLEC/PROMPT-48
VEl!SION 3.0
~ FEB 1977

FIR1nfARE

7 ;
8 ;*************************************************

9
10
11
12

(C) 1976,1977 INTEL CORPORATION.
.
ALL RIGHTS RESERVED. NO PART OF THIS PROGRAM OR PlJBLICATION
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
21
22
EX>\. I' MOD
23
GO
2425
26
N/BI{ , PROG
SS , REG
27

:----------------:----------------:

:----------------:----------------:

28

:----------------:----------------:

29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

1/'/BI{ , DATA

:

CLEAR! PREV
'ENTRY !

:----------------:----------------:
;

:----------------:----------------:

; 
;
;
;< nibble>
; < her-d ig-U>

: :=
::=
::=
: : =< her-d igi t>
::=<0!1!2!3f4!5!6f7!8!9!A!B!C!DTE!F>

;

; P2-MAP COMlW..AND SYMBOL "p2 II
::=2
::=(~byte>!
;
49 ;PROGRAM-PROM COMMAND
SYMBOL ·Pr 8755 R ,"Pr 874150;
::=3
51 ;
: :=< trom-addr> < NEXrTEND> < to_ddr>«EX

E> f

52
<~
53 ;
54 ;BYTE SEARCH COMMAND
SYMBOL ·S< I.E>
X: :=·
55
::=4
56 •
< byte search-c lause> : : =< from-addr>< NEXT! END> < to-addr> <'HEXr
fEND>
57

58
::=
59 ;
: :-=«byte>

>

69

61 ;
62 ;WORD SEARCH cor·1M.<\ND
SYMBOL ·S<2.X>
X: :=·
63
::=5
64 ;
: :=< iro::n-addr> < NEXr!END> < to-addr>

65 ;

< for-c lanse>

ISIS-U ~I-'l

P!IOl"JPT-IWI SYSJ:lth
LOC

OB.J

lW:Bo ASSJ!'MBt.EB.. VD.&

!JOB'rroa va ••

6I!JSZ

PAc:&

2

SOUBa STA'l'E1'D:ln"

SEQ.

.67 ;


< for-olause>: '.«byte> : :.< byte>

66 ;

>

,

70
71 ;lIEX-ARI"1'mJETIC COmIAND SYrmOL -BE72
::=6

13;
74
'Z'3

76
77

' :'<_lue>< NEXT!El'f])><_lue>::'7
,
::=«EX

Dr

.

 -< 1'I'EXr!EXE> >

. 78 ;
79 ,

se ; COm'AIlE-PROl!l

81
82 ;
83

Dr

COtmAM)
SY1!1BOL "Co·
: :=8< compare prom-ellulse>
::=«EX

84 •

<~ •
86
:: =9< type-op t ion>< Il10..,.. IllelllOrrc l.ase>
87 •
::=
88;
<~~!EXE>
89
::"(PROG!BEGtDATA>

9.

;

91 ; ACCESS COl"mAl."'fD SYMBOL "Ac II

92
93
94
93
96
97

 : :. aA< aeceslI-c laus.>
;
~:"«hyte>!
;
; BllltAXPO INT COl'mA.ND
SY!mOL wbr·
::'B
;
::=«~!r!<~~!P~»
99 ;
< Id> : : =< lllbb Ie>
Ie.
: :-

leI ;

182 ;CLEAR-MEMORY COMMAND
SY!IBOL "C<1O
X::="
1e3 ;
: :=C< typ.-optloU>
104 ,
::=
1es

1e6 ;

SYMBOL "4<10
X: :·(P!r!d>·
1e7 lDtJ1IJP COmIAllD
188 ;
 : ::( trom-uddr>< NEXT! El'fD> < NEX:rTEXE>
:::(PROGtREG!DATA>
118 ;
111 ;

112 ;ElfTJ!!R COMl!fAlm SYf!BOL wr
x: :"·
113 ;
::aE
11~
::=:' ::
113
116 ;
::=
117 t
.
118 ; FF:I'Clt-PROJ.II COrJlllA1'm
sn!8OL MFP"
119
: :=F
120 ;
:1=«E3!)
!

121
<~
122 ;
123 ;GO COm:t.um
SYMBOL MC
X: :=<0 !b!S>·
124
::=GO
::=«addr>!
125
126
< type-option): ::
127' ;

128 ,EXAMI.NE COmIAIm
SYm!OL ·E
X: :: •
129
::=EX

PAGE
LOC

OBJ

SEQ

3

SOURCE STA'l"EMErfT

130

:::«f !< NEXT!PREV>)) 


133 •
134 ;*-*-*-*-lfC-*-lfC-lfC-*-*-lfC-*-*-*-*-*-*-*-*-lfC-*-*-*-*-*
133 ;
136 ; Il!TELLEC/PROMP'l' SYS'l'DI CONSTANTS

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

137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
134
155
156
157
158
139
160
161
162
163
164

;"
; 82:5 1 lJSART SYS"l'EH CONSTAN'l'S
;!DDE INSTRUCTION DEFINITIONS

;
R64X
R16X
R1X
SYl'fC

CL8
CL7
CL6
CL5
PErm
PEVEl'J
S1"2
ST15

ST1
;

EQU
EQU
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U

;CO~

;
TXEN
DTR

RXEN

SBCH

CLERR
RTS
USRST

.El'fIm
165 ;

166
167
168
169
170
171
172
173
174

~e0011B

00000010B
00000091B
00000000B
00001100B
00001060B
00000100B
00000000B
00010000B
00100000B
11000000B
10000000B
o1000000B

; 64 X BAUD RATE
; 16 X BAUD RATE
; 1 X ".BAUD RATE
;SYNC MODE
; CRi\RACTER LENGTIi .. 8
;CHARACTER LENGTH = 7
; CHARACTER LENGTH
; CHARACTER LENGTH
;PARITY ENABLE
;EVEN PARITY
;2 STOP BITS
; 1. 5 STOP BITS
;1 STOP BIT

=6

=

5

INSTRUCTION DEFINITIONS

EQU
EQU
EQ.U
EQ.U
EQ.U
EQ.U
EQU
EQ.U

00000001B
00000010B
90000100B
00001000B
00010000B
00HJ0000B
01000000B
10000000B

";STATUS BIT DEFINITIONS
;
EQ.U
TltDY
00000001B
" 00000010B
RRDY
EQ.U
TXBE
EQ.U
00000 1013B
RPAR
EQ.U
00001000B
EQ.U
ROV
00010000B
00100000B
RFR.
EQ.U
EQ.U
SYID>
o1000000B
175 DSR
EQ.U
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

176 ;

eeCF
002:5" .
8027

00'll
0002
00041
0008
0010
0020
0040
0080
00E0
0043

177
178
179
180
181
182
183
184
185

;:#I-*-*-*-*-*-*-*-*-*-lfC-lfC-*-lfC-*-lfC-*-*-lfC-*-*-*-*-*-*

;
; CONSOLE/TAPE HEADER COlfl'ROLS
;
!lODE
EQU
ST2 OR CLa OR R54X
; USART noDE INITIALIZATION WORD
COl'W
EQU
RXElf OR 'I'XEN OR RTS
; USART COMMAl'm WORD INITIALIZATION
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
EQ.U
000000 HlB ; PORT B - INPUT
19 I PB I
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.
6mtz

PAGE

w.e

.LOC

000B

8009

OB.J

202
203
204
205
206
·207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262

263
264
265
266
267
268
269
270
2.71
272
273
274

; MErlORY MAPPED I/O PORT DEFINITIONS
;
MClIST
EQ,U
;1'fACBlNE STATUS
OBR
; INPUT:
;80
+PROP! EN
;B1
-8753
;82
-11101'1 EIn'RY

;SS
;84
;B5
;86
;B7
+ORIENT OK
; OU'TPUT:
;B0
PROM Elf
;81
·WER ACCESS
;82
-OUTEX
;B3
l1R MEr!

;84

-P0WR

;B5
;B6
;B7

-RUN

~~

L~

MEn

;*-*-*-*-*-*-*-*-*-*-*

;
KDDAT
EQU
09B:
; KEY BOJUtD DATA INPUT Al'fD
; PORT 2 MAP
"; INPUT:
;80
KEYBOABD INCODED DATA (0)
;B1
KEYBOARD mCODED DATA (1)
;82
KEYBOARD INCODED DATA (2)
;.83
KEYBOABD ROW 0
;84
KEYBOARD ROW 1
;85
KEYBOABD ROW 2

;86

;B7
;

; KEY
; PRESSED
;0

VALUE

VALUE

10R

0R
lR
2R
3R

;1

lUI

;2
;3

12R
13R
14H
15R
16R
17B
08R
09R
OAR
OBR
8CR
ODR
OEs:
OFR
20H
21H
22H
23H
24H
25R
26H
27D:

;4
;5
;6
;7
;8
;9
;A
;B

;e

;D

;E

;F
; PREVIOW
;PRoe
; DATA

; REG
;EX
;GO

; NEXT
; EXECUTE.

.

;OtlTPUT:
;B0
PORT
;B1
PORT
;B2
PORT
;B3
PORT
;B4
;85
;B6
;B7

ENCODED

KEYBOARD

2
2
2
2

BIT
BIT
BIT
BIT

0
1
2
3

4H
5R
oR
7B
8R
9R
AR
BR
CR
DH
ED:
F1I
lOH
11H
12K
13H
14H
lSR
l6R
17H

nAP
HAP

(1
(1

MAP (1

MAP Cl

;*-*-*-*-*-*-*-*-*-*-*

,.

,.

,.
,.

InPUT,0
INPUT,O

UfP1l'l'.0
INPUT. fit

,.
,.

,.
,.

OUTPUT)
OUTPUT)
OUTPUT)
OUTPUT)

ISIS-II l'1CS-4lY'UPl .... l lI!A.CltO ASSDBLEB.
PROtIPT-48 :ns lU now tTOR V3. 0 6!JBZ
LOC
8eeA

0008
8~n8

0011

0812
e013
8014
0013
e816
e017'

0020
e021

OBJ

va.0

SOO'BCE STATEmll'IT
275 EXMEM
276 P0LIN
2rt DOOPT
278 DeIPT
279 DG2PT
280 DeaPT
281 DG4PT
282 DC3PT
283 DG6PT
284 DG7P.T
285 USADA
286 USACT

EQ.U
EQU

0Al[

,EX m:MORY 1WU)WARE SWITCR

e8K

E~U

10K

EQU
EQ.U

11K
12K
13K
14K
13K

; 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

EQU
EQU
EflU
EQ.U
EflU
EflU
EflU

16K
17'R
20K
2lH

287' ;*-*-*-*~*-*-*-*-*-*-*

0040
8041

0042

00F0
0008
0000
0001

0002
9003

0004
0003
0006
0007'

288 :
40K .
289 PP IPA
EflU
;DOT DATA BUS BIDIRECTIONAL
290 PPIPB. EflU
; DUT AND PROGRAM COln"ROL
41H
29 1 ; OUTPUT:
292 ; B0
. P2( 0) ADDRESS
293 ;Bl
P2(l) ADDRESS
294 ;B2
'1'0
295 ;B3
RST
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
; PROCRA.PmER COl'M'ROL AL"ffl STATUS
42K
302 ; OUTPUT:
383 ;B8
ACK CTL
304 ;Bl
DUT DATA ElfABLE
305 -; 52
ADDR HI
306 ;B3
307 ;B4-B7 STATUS
308 ;*-*-*-*-*-*-*-*-*-*-*
309 ;
318 MSXPC
EQU
0FeH
;M.o\SJC FOR P2 PACUfG
311 ~IOU
EQ.U
08K
; ~IEMORY lIAPPED I/O UPPER BYTE
312MI!:PG0
EQ.U
0K
;DATA ME.l"'lORY PAGE 0
313 l1EPGl
EQ.U
lR
;DATA ~lE1':ORY PAGE 1
314 m:PG2
EQ.U
.2f£
;DATA MEr!ORY PAGE 2
313 SPC3
EQ.U
3K
;DATA MEMORY PAGE 3
316 m:PG4
EQ.U
4H
;DATA UEMORY PAGE 4
317 l'1EPCS
EQU
5R
;DATA MEMORY PAGE 5
;DATA ME!10RY PACE 6
318 Sl'C6
EQ.U
6H
319 l'1EPG7
EQU
1H
;DATA MEMORY PAGE 7'
320 ;*-*-*-*-*---*-*-*-*-*
321 ;
322 ; EX'I'EBl'fAL RA!I m:MORY PO lIfTERS

323 ;
8080

324 RGPTR

EQ.U

128

,REGISTER TABLE POIrrrER 
RGP'm+45R
; I/O TABLE POIlfI'ER
;P3 BIT9=T0.BITl=Tl,BIT2=~ANK.BIT3=EXEI
;BIT4=~~TING,BIT5=TF,BIT6=TRUN.BIT7=CNTR

IOPT.R+4K

;BREAK POUlT TBL P()INTER"B0-T EACH

TWO BYTE
00D9
00DA

000B
000C

0000
00C4
00C8
0008

331 AXPTR

EQU

BXPTR+16

332 RNPTR
333 P2PTR
334 KONRT
333 ASPTR
336 RGffAX

Eau

AXPTR+ 1

EQU
EQU
EQ.U

P2PTR+l

;ACCESS STATUS
; MON FLAG FOR RUN REAL TIME
;P2 MAP
; PO INTER FOR BREAK ROUTINE .reP TBL

~OlfRT+ 1

; I/O ASSIGNMElfT FLAG

337 lOMAX
338 BXMA.X

EQU
EQU
EQ.U
tQU
EQ.U
EQU
EQ.U

P~TR+l

IOPT.R-l
BXPTR-l
AXPT.R-l

0009

339 Ala-IAX

00DB
0000

340 P2l\L~~
P2PT.R
341 ASt:IA..~
ASPTR
342 m:rIAX
0FFH
343 ;*-*-*-*-*-*-*-*-*-*-*
344 ;
345 ; I.NTElU1AL RAM MEMORY PO llI'I'ERS

00FF

AXPTR

PAGE

ISIS-II !1CS-4tvUPI-41 MACllO ASSDfBLE1\. V2.0
PROHPT-48 S'YSTEM HOlflTOR V3. 0 6MBZ

Loe
003F
0038
0037
0036
003~

00340033
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

OBJ

SEQ.

346
347
348
349
350
351
352
353
354
35~

356
357
358
359
360
36 1
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403

SOURCE STATEMENT
;
IMTOP
DIPTR
DICNT
DPMSK
UPLMH
UPLML
WRKH
WRKL
WRKIH
WRKIL
WRK2H
WRK2L
WRK3H
l'iRK3L
BASER
BASEL
ENODE
B lASH
BIASL
CKSUM
PIWYTE
nmOT

EQ.U
EQU
EQU
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U
EQ.U

3FH
38H
DIPTR-l
DICNT-l
DPMSK-l
UPLMH-l
UPLML-I
WRKH-l

WRKL-t

WRXIH-l
WRXIL-l
WRK2K-l
WRK2L-l
'\oIRK3H-I
WRK3L-l
BASEH-l
BASEJ..-l
E1IIODE- 1
BIASH-l
B IASL-l
CKSUM-l
20H

;*-*-*-*-*-*-*-*-*-*-*

; 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

;
;1II0DE FLAG VALUES FOR DATA PROCESSING
,
PlEMMD
EQ.U
0
; E/I'! MEMORY MODE
RECMD
EQ.U
«NOT MEmm)AND 0FFH)
;E/M REG MODE
;*-*-*-*~*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

;
; CONDITIONAL ASSEPtBLY SWITCHES
;
FALSE
EQU
o
( (NOT FALSE) AND 0FFR>
TRUE
EQ.U
;
;GLOBAL DEFINITIONS
;
EQU
; ASCII VALUE OF CARRIAGE RETURN
CR
0DfI
EQ.U
; ASC I I VALUE OF LINE FEED
LF
0AR
;.

A

F.

. B

• G •

E .

• C
D

------------------------.CFEDCBA
,
DC0
DCl
DC::!
DC3

404 DC4
405 DC5

406
407
408
409
410
. 411
412
413
414
415
416
417
418

6

DC6

DC7

Dca

DC9
DCA
DeB
Dec
DCD

DCE
DCF

DCG
DCES

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

---~---

1100000013
11111001B
10100100B .
10110000B
10011001B
10010010B
10000010B
11111000B
10000000B
10011000B
10001000B
10000011B
11000110B
10100001B
10000110B
10001110B
11000010B
00001110B
11111111B

;' 0'
; , 1•
; t2t
3'
;

t

; '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.
PROMPT-48 SYSTEM MON lTOR V3. e 6l'Jl1Z

LOC

OBJ

ee7F
0eCl
00C7
0089
008C
00A7
0eAD
00A3
00E3
00AF
eoBF
00B7

SEQ
419
420
..21
422
423
424
425
426
427
428
429
430
431
432
434
435
436
437
438
439
440
441
442
443
444
445

EQ.U
DCP
01111111B
EQU
DCU
11000001B
EQU
DCL
l1000111B
DCH
EQ.U
10001001B
DCpe
EQU
10001100B
EQU
DCLCC
10100111B
EQU
DCLCH
10101011B
EQ.U
DCLCO
10100011B
EQU
DCLCU
11100011B
EQU
10101111B
DCLCR
EQU
10111111B
DCDSH
EQU'
DCEQ
10110111B
;
; ENCODED KEYBOARD CHAR VALUES
D8748
D8741
D8755
NEXT
EXECUTE
PREV
PRCKY
RECKY
DA1rAY

'EQU
EQU
EQU
EQU
EQU
EQ.U
EQU
EQ.U
EQU

.'
, .,

~

'U'

; 'L'
'II'
t P'
; 'LCC'
f
;

; 'LCH'
! 'LCO'
; 'LOU'
; 'LCR'

,
; ,=

• ,,_ t
t

0
1
2
16H
17R
10H
I1H
13R
12R

;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
;
;BECIN PROCRAM

446
447

0000
0000
0000 15
0001 240D

SY3HlIZ SET
FALSE
448
FALSE
PACE 1
SET
449
450
DIS
I
451
JHP
HUT
452
453 ; EXTElU"fAL INTERRUPT VECTOR
454

0003 A4Cl
0007
0007 MC1
0009
00(}B
000D
000F

PAGE

SOURCE STATEMENT

433 ;

0000
0001
0002
0016
0017
0010
0011
e013
0012

va. e

449C
449C
44A4
00

0010
0010 35

0011 1413

455
456
457

JHP

REFSH
7H
REFSH

SEL

Ra0

;GO TO DISPLAY' REFRESH DRIVER

458 SAllE0:
459 UBKS:
460
RETGO
JHP
461
RETSS
JHP
462
JHP
RETGS
463
DB
o
464
465 ; El'fI'RY PO.INT FROM USER PROGll.ut
466
1eH467
ORC
468 BREAK:
469
TeNTI
DIS
470
471 ; SAVE PROCRAM COUl'l'TER ON STACK
472
;
473
SAVPC
CALL
474 SAVPC:
475
476 ;SAVE REG CONTEl'IT IN TEl'IP LOCATIONS IN EXT BAr!
477

0013 05
0014 90
0015 42
0016 90
0017 F9
0018 90
0019 F8
001A 90
001B
001B 0A
001C 90

JHP

ORC

; INITIALIZE SYSTEM HEM AND I/O

4178

@R0,A
;
A,T
480
@lR0,A
; 
481
482
MOV
A.R1
@lR0,A
;
483
~IOVX:
A,RO
484
~IOV
;< R9>
@RO,A
485
~IOVX
; TE~:IP STORAGE USED DURING BREAK
EQU
$ MID 0FFlI
486 R0T1.IP
A,P2
487
IN
;
@R0 A
488
MOVX
489
490 ; SET UP FOR REG TABLE EJ.'ITRIES
49 1 ; NOPS ARe TO MOVE THE MEM BANK CHECK CODE OUT
479

HOVX
HOV
MOVX

t

".
PACE
LOC

OBJ

0UID 0U
08IZ 90
0tHl 8U
0020 00
0U21 27
0022 8428

8

SEQ
492 ; 01 T.BE AREA WBEBE PROGRAM ADDaESS ARE FORCED.
493
494
1'I'0P
491$
1'I'OP
496
1'I'OP
497
1'I'OP
498
A
CI.R
499
JlIP
MBIRT
300

501 ;ALIGN ClCl!IB AT AN ADDRESS CORllESl»Ol'fDLNC TO CXMB IN l'!Bl

502
0024 60
0025. 00

503
504
303

0026 27
0027 83

506

cxam:

507

NOP
NOP

CLR

A

Al'I'L

P2,#MSXPG
P2.#MEPGl
Re , ... IOP'rRi'3

RET

508 MB1RT:
0028 9A.F0
002A 8A01

00:';:C BaCS

002E 4329
8030 1634

0032 :S3Dl

509
310

511
512

513 ;BUILD 113 COl'M'ENT IN  BO"'T0,Bl=TI
31""

515
516
517
518 TFt:

8034

26~8

319

00~6

4301

~529

0038 463C
003A 4302
Q03e A9

003D 8Q

003E 3380
8840 49
0041 90

521 NT0:
522

.523

524 NTl:
525
526
327

528

ORL
JTF
ANL

JNT0
ORL·

ORL

JNTI

NTl
A,#2

MOV
MOVX

Rt,A
A,@M

Al'I'L

A,#80&

ORL
MOVX

A,Rt
@RO.A

l'lOV

Re,ol'RGTOP
RI,#ImoP

;<1'3>
529
330
531 ;SET POIrrrE...1:!S FOR SAVIl'I'G Il'fT REGS
532

0042 BaBl
0044 B931

533

0046 11
00""7 90

537

0048 CS
00""9 E9""6

ORL
MOV

534
535 UBKl:
536
538
539
540

MOV
MOV

MOVE:

DEC
DJNZ

A,eRl
@M,A
R0

Rl.UEKI

541 ;GET REG COlfI'E!fT

542

"""B

B91B
00""D 81
004E 90
""'"
0050 C9
C9
00lS 1 18

0052 81
0053 90
005"" B8CI

0056 B192

543
544
345

546
3""7

548
549
550
551
352

553 UEX2:
0058 C9

554

005A 81

555
556

0059 C9
005B 90
005C ca
005D

usa

0951 B91D

557
558
559
560

0061 BaC7

561

0063 81
006"" 90
0065 C8

562
563

564

MOV

MOVX

MOW
DEC
DEC
INC

~lOVX

ramI

Rl
R0

A,@Rl

DEC
DEC

Rl
Rl
A,8Rl

DJNZ
MOV

MOV
HOVX

novx
DEC

;

Rt

@Re.A

DEC

TD'lP RA!! LOC Al'ID SAVE IN REG TBL

Rl • #R0Tl'!P
A,@Rl
eR9.A

MOW
MOV
MOV

MOVX
MOVX

;SAVE Il'f!ERl'fAL REGIS'l"EllS

;

Re, "'RGTOP+2
R7,#2

@RO.A

ru>

;

R7,UBIQ
Rl • #R0TI1P+2
R0,#IOPTR+2
A.@Rl
;<1'2>

ISIS-II MCS-48/UPl:""'l MACRO AS8zr:'1BLER. V2.D
PROMPT-cia SYSTEl! HONITOR va.& 6D4'~

LOC

OBJ

SEQ

SOURCE

PACE

S'i'A:i'Ema~.

565
566 ;CET PI VAL AND SAVE IN TBL

0066 09
0067 90

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

007D FF
~07E

007F
0081
0083
008a
0087

C5
B908
9697
2318
14FD
D5

567
568
IN
A.Pl
eR0,A
;
569
MOVX
570
571 ; CX: IF USER IS SERVIC INC AN Il'n'ERRUPT OR
572 ; IF USER EXT INTERRUPTS ARE· ENABLED
573 I ENABLE REFRESH INTERRUPTS
574
575
CLR
A
R.O,IDICNT
576
MOV
577
GR0,A
MOV
578
SEL
RBI
579
!tov
R7,A
580
SEL
M0
R9,#P0LIN
581
!10V
P2. #rr..sla"C
582
ANL
P2. #l'1EIOU
583
ORL
A,#TRUE
584
MOV
585

ANL
OR!..
SEL

587
588

589
590 ;R7
591
592
593
594
595
596
397

= FY = NOT
MOV
BEL
MOV

JNZ

598

599

600

0088 FF
0089 C5
008A A9
008B 15
008C 14FD

MOVX

586

~

601

R7

= FF

602
603

; SELECT RArI m:MORY PACE 1

RBI

NESTED BUT EN I TRUE
A,R7
RIl0

Rl, ISH

UBK9

A,#IGH

CALL
SEL

RESTORE
RBI

= NESTED AND EN I TRUE
NOV·

606
607

P2.#MSKPC
P2,#MEPCl

MOV

SEL

604
605

@RO,A

A,R7

RBO

lIOV
DIS

Rl,A

CALL

RESTORE

I

; CLEAR ANY l'fESTlNC

608 ; CHECK USER r!EM BANK SELECT

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

609
610

MOV
CALL
SEL
MOV

611

612
613

614
615

MOVX

OR!..

~10VX

616
617 UBK9:
618
619
620

DIS

JB7

nov

621
622
623
624

.

625

626
627

628 TRUI'{:
629

630

MOV
MOV
MOVX

XRL

MOV
JZ
MOV

STOP
JTF

63 1 TRUl'Tl:

632
633

IIIO\'
MOVX

OR!..
ORL

634

635

636

rIOVX

C

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

;SAVE USER lNT STATUS

Am)

TRUN' FLA

PAGE

ISIS.... II lI1CS-4&fUPI .... l J!ItACBO ASSEl'1BLEll. V2.0
PBOPIPT-48 S'YSTE!l MONITOR V3.0 6l'1B%
LOC

OBJ

00n 14FD
00S0
00Bl
00B2
00B4
00B3
00B6
00B8

80S9
80BA
80SB
80BC
008D
00BE
80C0

C7
07
3307
AA
E7
0308
A9

Fl
AC
19
Fl
AE
S30F
AD

00Cl 27
80C2 D7
00C3 F5

00C4 Ba04
80C6 BF03
00C8 8479

00CA
0ecc
00CD
00CE
00CF
00D0
00Dl

BSC4
FD
90
FC
08
90
C8

80D2 FE
80D3 53F0
00D5 4A

00D6 B3
80D?' 7608
00D9 4308

00DB 90

00DC
00DE
00E0
00El
00E3
00E4
00£.6
00E8
00EA
00ES

8446
4380
90
B808
80
9Ar0
8AOI
B8C5
90
8446

SE.Q.
637
638
·639
640
641
642
643
644
645
646
641'
648
649
650
651
. 652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674·
675
676
677
678
679
680
681
682
683
684
683
686
687
688
689
690
691
692
693
694
695
696
697
698
699
790
701
702
703
704
705
706
707
708
709

1.

SOUBCE STA'I'DENT
CALL

RESTORE

; CLEAR ABY NESTING

; COHPll'l'E STACK ADDRESS

1II0V
DEC
Al'fL
lIIOV
RL

ADD
.HOV

A.PSW
A
A.#711
R2,A
A
A,-8
Rl,A

;POINT TO ADDRESS ON STACK

; GET USER PC FOM STAClt

.HOV
l'1OV
INC
1II0V
1II0V
Al'fL
1II0V

A,ORI
R4,A
Rl
A,aRI
R6,A
A.-0FR'
M.A

;LOW PC

;111 PC
;SAVE PSW NIBBLE
;MASK PSW

; INITIALIZE IrrrERNAL RAM FOR l1Ol'fITOR .
CLR
1II0V
SEL

A
PSW.A
MBI

; CLEAR SP A1ID BEL 1m0

; DEC USER PC 3 TIMES

PIOV

"MOV

CALL

. R0."4
R7,#3
DEDBL

;SAVE USER PC IN REG TBL

.HOV
.HOV
.HOVX
1II0V
DEC'
1II0VX
DEC

R0, #l\CTOP+5
A,1\5
OR0.A·
A,R4
1\0

@RO,A
R0

;
;

; ADJUST SP IN USER PSW
l'IOV

Al'fL

OaL

A,R6
A,#0F011
A,ft2

; INSERT F 1 IN USER

UBK3:
I SAVE

CPL
JFl
Om.

;GET PSW UPPER NIBBLE
;

PS~(

Fl
UBK3

A,#8

;FLAG 1

sRO.A

;

=t

USER PSW

.HOVX

;GET PO LATCII VAL Al'fD SAVE IN TBL
CALL
OaL
MOVX
MOV
PIOVX
ANI.

OaL
1II0V

now:
CALL

INIl
A.#80R'
@R0,A
RO,#POLIN
A.@R9
P2,#MSKPG
P2,#MEPGl
R0,#IOPTR
@R0,A
INIl

.....

lSIS-Il lICS-48I'UPI-41 MACRO ASSEMBLER. W.O
PROfJPT-48 S'YSTEl'f MONITOR VS.O 6l'IBZ

LOC

OBJ

SEQ

PAGE

11

SOURCE STATEMENT

eOED 94ED
00EF E5

710

00F0
00F2
00F4
00F6
00F7
00F9

712
713 ;FIND WHITCH MONITOR COImAND WAS USED AND
714 ;RETURN TO THAT ROUTINE.
715
P2,#MSKPG
716
An
717
P2,#MEPGl
ORL
718
MOV
RO, #MONRT
719
A,@R0
MOVX
720
A. #UBK6 Am) 0FFH
ADD
721
JMPP
EtA
722 UBK6:
723
« UBK5+0) AnD OFFH)
DB
( (UBK5+2) AND 0FFH)
724
DB
( (UBK5+4) AND 0FFH)
725
DB

9AFO
8A01
B8De

80
03FA
B3

00rA: 09
00FB 0B
00FC 0D

CALL

711

SEL

BLKI
lm0

; IN IT DISPLAY TABLE

726

727 IF «SAME0 AND 0FF00H) LT ( S AND 0FF00B»
728 MOV
A,SPERR ;SAfJE PAGE ERROR
729 ENDIF

00FD 93

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
SEL
MDI
741
CALL
BLKAD
742
RI,#ERTBL AND oFFH
nov
743
CALL
MESG
744 ERRW:
745
MOV
A,#'E'
RO,#PRBYTE
746
nov
747
@RO,A
MOV
748 ERRl:
749
SEL
MHO
750
JMP
CMDEl
751
752
753 ; INITIALIZE SYSTEM ~1IDIORY AND I/O

;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

00FE
00FF
0101
0103

F5
B406
B95B
D44B

0105 2345
0107 B825
0109 A0
010A E5
010B 245B"

;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

754 ;

010D 35

755 INIT:
756

010E 9AFO
0110 8A0S

757

DIS

ANL
ORL

TeNT I
P2,#MSKPG
P2,#MEIOU

MOV
MOV
MOVX
MOV
MOVX
MOV
MOVX
CALL
MOV
MOVX

R0,#USACT
A,#MODE
@RO,A
A,#TADV
@R0,A
A,#COMD
@RO,A
DELAY
RO,#USADA
A,@RO

779

CLR

A

780 nn3:
781
782

MOVX

758

; SELECT MEMORY MAPPED I/O

759
760 ; INIT USART
0112 B821
0114 23CF
0116 90

0117 2327
0119 90
0llA 2325
011C 90

761
762
763

764
765
766
767

768

011D F4M

769

0llF B820
0121 80

770

0122 BF04
0124 B8D9
0126 9AF~
0128 8AOI
012A 27
012B 90
012C 18

; IlUT USART MODE
;INIT

US~~T CO~~

; nnT USART COMMAND

771
772
773 ; INIT MONITOR FLAGS IN Eh.'TElU'fAL RAI1
774
R7, #( (MONRT - A..'n'TR) + 1 )
775
MOV
776
R0,#AXPTR
~IOV
777
P2.#f:1SKPG
ANL
P2,#MEPGl
778
ORL
; SELECT RAM MDZORY PAGE 1

nrc

@RO,A
RIi)

12

ISIS-II MCS-46/lJPI-41 MACRO ASSEMBLER. W.0
l'ROMPT-48 SYS1'.E.P1 MONITOR V3.0 6l'1BZ

LOC

OBJ

012D EF2B
012F B6C2
0131 Br03
0133 90
0134 18
0135 £F33
0137 37
0138 Br03
0l3A 90

013B
0l3C
0l3E
013F
0140
0142
0144

18
£F3A

37 .,

90

BaDD

2380
90

0145 F5
0146 B42E
0148 94F2
014A B96E
014C D44B
014E E5

014F 2456

SEQ.

783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
607
808
809
810
811
812
813

814
815
816
817
813
819
820
821
0151 F5
0152 94F2
0154 946E

0156 232D
0158 8825
015A A0
015B
015C
01SE
0160

F5
74FA
8446

0162
0164
0166
0167
0168
0169
016A
016C
016E
0170
0172
0174
0176
0177

233F
B825

7·110

A0

F5
27
D7

B49F
BB2A

B4Al
B90F
B495
94ED
E5
FE

822

SOURCE STA.TEME.1IfT

DJNZ

R7, un3
R0, #RGTOP+3
R7,#3

; ZERO NFu"'IT RA.l1 toe

MOVX
INC

; 

DJNZ

@!R0.A
R0
R7, 1l'f14

CPL
MOV

A
R7,#3

MOVX
INC

DJNZ

@!R0,A
R0
R7,INI5

CPL
fIOVX

A
@R0,A

HOV

R0,#ASPTR

MOV
MOVX

@lRO,A

MOV
MOV
INI4:

UrIS:

;<1'0, PI, P2>

;<1'3>

A.,#80H

; IlUT PPI AND :MACHINE STATE
SEL
CALL
CALL
MOV
CALL
SEL

JMP

lim 1
INIPPI

BLANK

R1,#INTBL

AND OFFH

HESe.

MB0

CMDMD

;ALL DONE

;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

;MAIN COMMAND LOOP.
; THIS LOOP IS THE STARTING POINT OF ALL COMMAND SEQUENCES.
; IN THIS CODE THE PROMPT CHARACTER IS DISPLAYED.
;WHErr A CHARACTER IS ENTERED FROM THE CONSOLE KEYBOARD, IT
; IS CHECKED FOR VALIDITY, TBElf A BRANCH TO THE PROPER
;PROCESSING ROUTINE IS COl'lPUTED.
;

CMDLV:

SEL
HBl
823
CALL
BLANK
824
CALL
PlUlPT
825
826 ; TURN' ON REFRESH ENABLE
827
828 CHDMD:
A,#'-'
829
:MOV
830
MOV
RO.#PRBYTE
@lR0,A
HOV
831
832 CMDE1:
MBl
833
SEL
834
ENRFS
CALL
835
nUl
CALL
836
GETKB
CALL
837 CMDEN:
A,#'?'
838
MOV
R0,#PRBY'I'E
839
MOV
@lR0,A
840
MOV
MBl
841
SEL
842
A
CLR
MOV
843
PSW.A
SEWKO
844
CALL
R0.#BASEL
845
MOV
SET00
846
CALL
Rl,#OFR
847
MOV
848
CALL
SEULX
349
BLK!
CALL
850
SEL
MBO
851
HOV
A.R6

; PROMPT FOR COMMAND

; GET KEYBOABD ClIAR

; CLEAR STACK PTR

;BIJU~

852 SAl1El:

0178 03SF
017A AS
0l7B 0359

853
854
855

ADD

A. #( BRTBL Al'ID 0FFID

~lOV

RO,A

ADD

A.#(-BRTCH) AND OFFR

THE DISPLAY

PAGE

LOC

0&1

817D
817F
8180
0181
8183
818:5
8186
8187
8188
8189
018A
818B
818C
818D
018E

F656
F8
A3
0328
M3r

AA
AS
Al
C9
lA
FA

AS
Al
F8
B3

13

SOURCE &TATEMElM'

SEQ,

860
861

JC
:noV
:novp
ADD
:noV
NOV

862

l'lOVP

863
864
865

DEC

8G6

857
858
851}

NOV
INC
MOV
MO\'P
MOV
MOV
JMPP

866

CMJ)MD
A,R0
A,@lA
A,#(CDTBL - BRTCDO AND 8FFK
R1,#DIPTR.+7.

B2, A
A,eA .
ORl,A
Rl
R2
A,R2
A,eA
ORl,A
A.R8
OA

867
868
·869
870
871
872
873
BIW.'fCH TABLE.
874 ;
875 ;TJ:tIS TABLE CONTAINS THE El'fTRY POINTS OF
876 ,;ALL THE COMMAND PROCESSING ROUTINES. NOTE TlIAT AN ENTRY TO 'ERROR

;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
;comwm

81B1
01.83
01B5
81B7
81B9
81BB
81BD

M18
6421
44FF
24F7
A401
84EI
M4F
A424
4415

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
;ERROR '0'
882 DB (BRTCH + 2 ) Al"fD 0FFH
;ERROR ' I'
883 DB (BaTCH + 4 ~ ) AND 0FFH
,P2DEF
'2' PORT 2 MAPPING
884 DB (BRTCH + 6 ) AND 8FFH
; PROMS
' 3 ' PROO PROM 8755-8751
885 DB (BRTCH + 8 ) AND 8FFH
; BYSEARCH
' 4 'SEARCH MEMORY
886 DB (BRTCH + 10 ) AND 0FFH
I WDSEARCH
' 5' SEARCH MEMORY
887 DB (BRTCH + 12 ) AND 0FFH
;BEXAR '6' HEX ARITmfETIC
888 DB (BRTCH + 14) AND 0FFH
;PROMP '7' Pl\OG PROM 8748
889 DB CBRTCH + 16) AND 0FF1I
;COMPARE 'S' COMPABE PROM.
898 DB (BRTCH + 18) AND 8FFH
; MOVE
' 9' MOVE MEMORY
891 DB CBRTCH + 28) AND 8FFH
; ACCES
' A' SET USER ACCESS
892 DB (BRTCH + 22) AND 0FF11
; BRKPT ' B' SET AND CLEAR USER BllE
AX POINTS
893 DB CBRTCH + 24) AND.0FFII
;CLEAR 'C' CLEAR BUFFER
894 DB (B~rcH + 26) AND 0FF1I
;WRITE 'D' (DUMP) WRITE TrY
895 DB (BRTCH + 28) AND 0FFH
; READ
' E' (ENTER) READ TrY
896 DB (BRTCH + 30) AND 0FFH
; FETCH ' F' 'l'RANSFER PROM: TO RAM
897 DB (BRTCH + 36) AND 0FF1I
; CHDLV PREVIOUS DELIMITER
898 DB CBRTCH + 38 ) AND 0FF1I
;RT OR PROO
899 DB (BRTCH + 38 ) AND 0FFH
; W/BK OR DATA
900 DB (BRTCH + 38 ) AND 0FF11
ISS OR REG
901 DB (BRTCH + 34) AND 0FFH
;EXAlUNE MODIFY
; GOCMJ) , GO '
902 DB (BRTCH + 32) AL'I'D 0FFH
903 DB (BRTCH ~ 36) AND 0FFH
; NEXT
904 DB CBRTCH + 36) AND 0FFH
;CHDLV EXECUTE DELIM:lTER
905
906 BRTCH:
907
JlIfP
; '8'
ERROR
908
JMP
ERROR
; , 1•
909
; '2' PORT 2. lIIAl'PING
JMP
P2DEF
; , 3' PROG PROU 8755-8751
910
JMP
PROm
911
JMP
SEARCH
; '4' B'i"SEARCH MEMORY
; , 5' WDSEARCH MEMORY
912
JMP
WDSEAR
; '6 to HEX ARITJ:tMETIC
913
JMP
BEXAR.
; '7· PROG PROM 8748
914
JMP
PROMP
.mp
915
; '·8' COMPARE PRon
COl'JPARE
916
JMP
MOVE
; '9' MOVE ME:MORY
;' A! SET USER ACCESS
917
JMP
ACCES
; tB' SET AND CLEAR USER BREAK POIN
918
BRKPT
JMP

8lBF
OICl
0lC3
81C5
01C7
0lCc)
0lCB

84E7
E406
C469
84E4
4488
649E
24;)1

919
920
921
922
923
924
925

818F
8198
8191
8192
8193
8194
8193
8196
8197
8198
8199
819A
819B
819C
019D
8l9E
819F
8lA8
81Al
81A2

81AS
81A4
81M
81.A6
81A7
8lA9
81AB
81AD

01M

A7
A9
AB
AD
AF
Bl

B3
B5
B7
B9
BB
BD
BF
Cl
C3
C5

en
CD
CD
CD
C9
C7
CB
CB

04FE
04FE

MrB

TS
JMP
Jl'IP
JMP
Jl'IP

·JMP
JMP
JMP

CLEAR
WRITE
READ
FETCR

COCrlD
DICm>
C1IDLV

;
;
;
;
;

, 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
LOC

OBJ

0tCD 04FE
0lCF
01D0
01Dl
01D2
01D3
011)4
01D5
01D6
01D7
01D8
91D9
01DA
01DB
01DC
01DD
01DE
0lDF
01EO
01El
01E2
0lE3
01E4
0lE5
01E6
91E7
01E8
91E9
01EA
9lEB
01EC
OIED
01EE
91EF
01F0
91Fl
01F2
01F3
01F4
01F5
01F6

Cl
Al
Cl
Al
8C
A4
8C
AF
92
F9
92
A4
89
86
8C

'14

SOURCE STATEMEl'fT

926
Jl'1P
927
928 CDTBL:
929 DB DCU, DCD

ERROR

;'PROC,REC,l)ATA'
; ERROR '0'

930 DB DClI. DCD

; ERROR '1'

931 DB DCPC.DC2

;P2DEF '2' PORT 2

932 DB DCPC.DCLCR

;PROM5 '3'

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'

C6
A3

937 DB DCC,DCLCO

;COMPARE 'S'

AS

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

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

94S DB DCU,DCD

;ERROR 'PROC,REG,DATA'

~PINC

'PROG PROM' 8755-8751

'PROC PROM' 8748

AF

FF
88
A7
83
AF
C6
1F
Al
FF
AF
FF
8E
8C
C2
FF
86
FF
BF

FF

Cl
Al

01F7 F5
0lFS BA00
. 01FA 74D0
01FC 74D~

eiFE
0200
0202
0204
0206

SEQ.

PAGE

B804
B932
94DA
B905
9476

949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972

'COMPARE PROM'

READ 'E' ( ENTER> READ TTY

NEXT. EXECUTE ,PREVIOUS

IF «SAlIIEt AND 0FF00H) LT ( 51 AND 0FF00ID )
A,SPEBR ;SAME PAGE ERROR
END·IF

~IOV

;END BRANCH TABLE

;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
;HEX ARITHMETIC

;COMPUTE ~~ECIHA.L SUM AND DIFFERENCE.
;
;TRIS ROUTINE EXPECTS TWO HFXADEClMAL PARAME'I'ERS.
; IT COMPUTES 'I'1IE SUM AND DIFFEMIiCE OF THE TWO VALUES
;AND DISPLAYS THEM AS FOLLOWS:
; , 
•

BEXAR:
SEL
MOV

CALL
CALL

MB1

R2.#0
GTP0
GTP0

;DISPLAY SUM IN ADDRESS FIELD

973

MOV
MOV

974

CALL

975

MOV

976

CALL

RO,#4
Rl. #w1Ua.
ADDBL
Rl,#5
DADDFL

977
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

LOC

OBJ

0208
0201\
920C
920E
0210

0032
B930
94D6
B933
9486

SECl
979
980
981
982
983
984
985

9213 F5

0216 B834
0:J18 230F
021A B900
021C MA3

021E
0220
0222
0224
0226

B82A
23C9
B49B
94B8
D410

0228 323C

022A F63F

022C C631
922E E5
922F 04FE

0231 BE10
0233 BC00
0235
0236
0238
023A

F5
D408
B<;FD
EE35

023C E5
023D 2451

R0 .... WRIa.,
R1.#WRK1L
SunBL
R1,#WRXII

CALL

DXXAD

DONE
SEL
JMP

988

989

991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1905
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042

MOV

nov
CALL
nov

987
990

US

SOURCE STATEMENT

986 ; ALL

0212 E5
9213 2456

PAGE

MB0

CMDMD

;*-*-*-*-*-*-*-*-*-*-*

; BREAKPOINT: ;THE BREAKPOINT CmIMAND ALLOW ACCESS TO THE BREAKPOIl'IT STATUS.
lErrrRY OF A H," FOLLOWING THE ADDRESS SPECIFICATION
; WILL RETURN THE DATA, WICH MAY BE lIIODIF lED. OR
; PRESERVED. AlfD A FURTHER".· ENTRY WILL ACCESS THE
;NEXT ADDRESSABI.E DATA. BP.EAJ{POINTS MAY
lBE CLEARED BY ENTERING TIlE BREAKPOINT NUMBER
;WITHOUT AN ADDRESS ARGUlIlENT. ALL BREAKPOINTS MAY
;BE CLEARED BY ENTERING "BII WITH NO ARGU1lENTS.
;
BRKPT:
MB1
SEL
;SET PTR1VH = VAL/VAIl

nov
nov
nov

R0.#UPLML
A.#(BXM1\X-BXP11O
1t1 • #0 .
; EXl' MEH UPPER LIMIT
PRSET

CALL
;SET PTRIL/H

= VAVMEPGl
R0.#BASEL
A,#BXPTR
SETPt
CAUDR
PUSH

MOV

nov

CALL
CALL
CALL

; CET ADDRESS
;SAVE DELIMITER

; IF DELUIITER = CLEAR ENTRY t'HEJ.'"1 ABORT
JBt

BRK9

; IF ADDRESS NOT ENTERED THEN CLEAR ALL BREAK POIl'I'l'S
JC
; IF DELUUTER
BRA"'3:

JZ
SEL

BIIX2:

Jl'IP

BRKI
(>

; IF ADDRESS ENT

EXEClITE TBEl'f ElUtOR
BRK2

;NO ERROR

l'm0

ERROR

;CLEAR ALL BREAK POINTS
BRK10:
NXBRK:

1043

1044
1045

1046 BRK9:
1047
1048

MOV

R6,#«BmAX - BXPTR) +1)

MOV

R4.#0

SEL
CALL
CALL
DJNZ

STOlVK

SEL

MBl

HfWRK

R6.N¥BRK
MBO

JNP

C1IDLV

CALL
CALL

El'rsBl

;ALL DONE

1049 BRKl:

023F 7408
0241 74~8

1050
1051

EMSBI

;MULTIPLY BY 2

w.e

ISIS-It MCS-48I'WI-41 MACRO A..CSEl'lBLER.
PROMPT-4S SYSTDf MONITOR V3.0 6MBZ
LOC

OBJ

0243 E62E
02415 0422

02417 964E

0249 BE02
024B E5
024C 4433

024E
0250
0251
0252
02541
0255
0256
0257
0258

025A
825C
825D
825E
825F

B832
FO
77
B905
AC

27
AD
F5
9476

MAS
AC

19
81
AD

SEQ
1052
1053
1054
1055
1656
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081

F2SF
B838
BF03
23BF

0268
0269
826A
026C
026D

AO
18
EF68
E5
4471

026F 9484

16

SOURCE STATEMENT

; IF ADDRESS> UPPER LIMIT 'I'B:EN ERROR

JNC

BRK3

CALL

POP

; IF DELIMITER

=

;CLEAR

ONE

; IF ERROR

;GET DELIMITER

EXECUTE THEN CLEAR ONE BJ:lEAK POIl'IT

JNZ

BRK4

;IF NOT EXECUTE

BREAK POINT

MOV
SEL

R6.#2
MHO

BRK10

JI'lP

BR..'«4:

;DISPLAY ADDRESS
MOV
MOV

R0,#1'o'RKL

RR

MOV
MOV

A
Rl,#5
R4.A

CLR

A
R5,"A

CALL

DADDFL

A.~R0

MOV
SEL

MBl

;GET A BP..EAx: POINT VALUE FROM EXl' RAM

1082

1083
1084
1085
1086
1087

F'EWRK
R4,A
Rl
A,@R1

CALL

MOV
INC

MOVX
MOV

as,A

1088
1089 ;DISPLAY '---'

0260
0262
8264
0266

PAGE

1090
1091
1092
1093
1094
1095 BRK6:
1096

1097

1098

1099
1100
1HH BRK5:
1102

; GIlT

LOW BYTE

;GET RI BYTE

IF BREAK POINT IS CLEARED

JB7
MOV

:nov
~IOV

:nov
me

BRIa)
R0,#DIPTR
R7.#3
A,#DCDSR

; IF NOT CLEARED

@RO.A

;DISPLAY '-'

R.0

DJNZ

R7,BRK6

SEL
JMP

MHO

CALL

D45AD

BRK7
;DISPLAY OLD DATA

1103 BRK7:

0271
0272
0274
0276

F5
B902
B40C
D410

0278 E67F

1104
1105 ;GET DATA FROM KB AND ECHO IN DATA FIELD
1106
1107
MB1
SEL
Rl,#2
1108
:nOV
1109
CALL
GDATA
1110
PUSH
;SAVE DELIMITER
CALL
1111
1112 ; IF NEW DATA ENTERED 'I'B:EN STORE NEW DATA
1113
1114
;IF NO DATA ENTERED
JNC
BRKS
1115

1116 ;STORE. NEW DATA
1117

027A
027C
027D
027E

D408
19
FD

91

1H8

CALL

STOliK

; SAVE LOW BYTE

1119
1120
1121
1122 BRm:

UfC

Rt
A,R5
@Rt,A

; SAVE RI BY'l'E

1123

1124 ;CK

~10V

MOVX

DELIMI~~

AND ADDRESS

._ .... _ ...-1

PAGE

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
LOC

OBJ

027F
0281
0283
0285
0286

547D
547D
F64E
E5
2451

0288
0289
028B
028D
028E
028F
0291
0293
0295
0297
0298

F5
5494
B8DA
90
FE
D410
5445
B4E7
0422
E5
32A2

029A 64A6

029C
029D
029F
02A0

F5
545D
E5
449A

02A2 64A6

SEQ.
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197

17

SOURCE STATEMErrr
CALL

EMSB4

CALL

E1'15B4
BRK4

JC
SEL

JMP

; NOT DONE • DO NEXT ADDRESS

MaO

;ALL DONE

CJ.lIDLV

;*-*-*-*-*-*-*-*-*-*-*

;GO TO
;
GOCml:

THE PROPER GO-ROUTIl'fE
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

;*-*-*-*-*-*-*-*-*-*-*

rSINGLE STEP: ;THIS Co.~~ CAUSES THE PROCESSOR TO EXECUTE ONE
; INSTRUCTIo.N o.F USER CODE, THEN RETURN TO MONITOR
;Fo.R EXAMINATION, ETC. IF THE MADDRw ARGUMENT IS
;OMrUTrED, THEN EXECUTIon PRo.CEEDS FROM THE LAST
; ADDRESS. THE MONITOR REJ.lIAINS .IN TlJE SINGLE STEP
; MODE
UNTIL
So.ME o.THER COMl'IAND IS EXECUTED,
; ALLo.WING THE USER TO. STEP THROUGH HIS PROGRAM, BY
;Co.NSECUTIVFJLY ENTERING .,B. AFTER EACH
; INSTRUCTIo.N IS EXECUTED, THE CURRENT ADDRESS IS
; o.UTPUT WITH THE C.o.NTE1{TS o.F THE ACCUMULATOR.

;*-*-:.t

;GO(REAL TIME): ;THIS CAUSES EXIT FROM THE MONITOR PRo.GRAM: TO THE
;USER PROGRAM Lo.CATED AT " ADDR " , NO. BREAKPo.INTS
;ARE POSSIBLE IN THIS MODE, ArID THE USER PROGfuUI
;EXECUTES AT FULL SPEED. THE USER PROGRMI MAY o.NLY
;BE INTERRUPTED BY A "Mo.N RTN" COMI1A1"lD FROM THE
; KEYBOARD.
;
GOAGN:
;RUN REAL TIm: OR STEP o.NE INSTRUCTION
RETSS:
RETGO:

JMP

; DISPLAY

 AND



MBI
WAIT

MaO
GOAGN

;*-*-*-*-*-*-*-*-*-*-*

;GO(SINGLE STEP): ;THIS MODE ADVAItCES THRo.UGR THE USER PROGRAM AS
;FAST AS POSSIBLE. WHILE DUMPING THE CONTENTS OF
; THE PROCESSOR AT EACH INSTRUCTION' Bo.UNDARY, A."fD
;PERFORMING A SOFTWARE cmlPAi'lE AGAINST THE VARIOUS
;BREAKPo.INTS. (SEE BRE.\KPOINT) EXECUTIOIt BEGINS AT
; "ADDR" IF THE ARGUMENT ~"AS ErITERED. OTHERWISE
;EXECUTION corITIIfUES FRDM TIrE LATEST BREiu'Q'OUIT.
•
; STEP ONE UiSTRUCTION

COSSl:
RETGS:

JMP

ISIS- II 1'1CS-48/UP 1-411 MACRO ASSElmLER. V2. 0

PAGE

PROlJPT-48 SYSTEl"I MOW lTOR V3. 0 6HBZ

LOC

OBJ

€12M 9AF9
€12M 8AOI
€12M FlS

SEQ.

SOURCE STATEl'IENT

1198
1199
1200
1201

92A9 BB2A
92AF B49F

92Bl
92B3
02B5
€l2B6
92B7
€l2B8
92B9
92BA
92BC
92BD

B930
B8C3
89
Al
18
19
89
530F
Al
BE08

92BF
92C0
92C2
92C3

F5
MAS
AC
B4FD
B4Aa
AD
B4FD
FD
530F
2D
37

92C5
02C7
92CS
92CA
92CB
92CD
02CE

92CF F2D9

P2,#MSKPG
P2,#PJEPGl

ANt
ORL

SEL

1202 ;SET PTRIVR
92AB 23C9
02AD B4CJB

18

1203
1204

nov

1215

PAGE 1

RQ,#BASEL
A,#BXPTR

SETPI
SEWK0

Rl,#WRKlL
R0.#RGTOP+4
A.@lR0

nov

@lRI,A

INC

Rl

INC

1216

~RY

= VAVPJEPGl

1205
I!l:OV
1206
CALL
1207
CALL
1208
1209 ; GET USER 
1210
1211
nov
1212
nov
1213<
novx

1214

; SELECT RArI

MB1

;GET 

RO

A,@R0
1217
novx
;GET 
A,#0FR
1218
ANL
@lRl;A
1219
nov
R6,#«(BXMAX - BXPTR> + 1) " 2)
nov
1220
1221
1222 ;GET BREAK POINT CONTENT
12231224 GOSS2:
1225
SEL
MBI
1226
FEWRK
;GET LOW BYT.E
CALL
R4,A
nov
1227
INWRK
1228
CALL
1229
CALL
FEWRK
RS,A
1230
nov
1231
; nrc BXPTR. TITI C'!!!
CALL
INlIRK
A, as
1232
nov
A,#0FH
1233
ANL
1234
XCR
A.as
1235
CPL
A
1236
1237 ;GET NEXT BX IF TIllS ONE IS CLEARED
1238
1239
JB7
GOSS4
; IF CLEARED
1240
124d ;COlJPARE BX TO 

1242
92Dl
92D3
92D5
02D7

BOO4
B930
B462
B6U

92D9 EEBF

nov

1243

1244
1245
1246

MOV
CALL
JF0

1247 GOSS4:
1248

DJNZ

RO,#4
Rl,#WRKlL
CKDBL

GOSS3

;IF PC=BX

R6,GOSS2

;CE: NEXT BX

1249
92DB
02DD
92DF
02El

,)AY0

1250 ; IF 1'!OlHTOR El'l'TRY PRESSED TIIEl"f RETURN TO COmIAND LEVEL
1251
P2, #lIJSKPG
1252
ANt

8A08
Ba0B
80
02E2 37
02E3 52E7
02E5 545D

1254
1255
1256
1257
125S

02E7 E5

1260

1253

1259

02EB 44A2

nov
novx

om.

P2,#MEIOU
RO.#MCHST
A,@lRQ

CPL

A

JB2
CALL

WAIT

SEL
JMP

GOSSI

GOSS6

~SS6:

1261

1262

MaO

;l'fO BX MATCm:D

1263 ;DISPLAY BX IDENTIFIER IN CHD FIELD, ,
1264
02EA BS3E
02EC FE
02ED 37
02EE 17
02EF 0308

1265 GOSS3:

nov

RO, #DIPTR+6

~IOV

A.R6

1269

CPL
INC

A
A

1270

ADD

A,

1266
1267

1268

#(

«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
LOC

OBJ

82Fl
02F2
02F4
82F5
82F?

AA
1M31
18
2383
AO

82F8
02FA
02FC
e2FD

940»
343F
E3
44A2

02FF B82D
0301 27
0302 37
0303 A0
8304 C8
0305 AO
0306 7474
0308°7485
030A Ba2F
030C FC
030D A0

030E
830F
0310
0312
0314
0316
0317
0318
03tA
031C
03lD
031E
031F

0321
0323
-0324
0325
0326
0327
0328

A5
FA
C635
7485
882C
FC
A0
7483
882D
FC
AO
A5
6435

B82D
27
A0
37
C8
A0
7474

032A A5
032B B5

19

SOURCE STA'l'QIEl'fT

SEQ
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
·1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343

PAGE

PlOV
CALL
INC

R2.A

!!OV

DECRX
Re
A,#DCB
GRe.A

CALL
CALL
SEL
J'l'JP

DIPAW
WAIT2
lfB0
COSS!

HOV

;DISPLAY

HEX

DIG

COSS5:

;*-*-*-*-*-*-*-*-*-*-*
;SEARCH MEMORY FOR DOUBLE

BYTE VALUE.

;THIS ROUTINE E.t~ECTS FOUR HEXADECIMAL PAR.UJETERS.
;AND OPTIONALLY SIX PARAl.IETERS.
•
; TIlE FIRST ni'O OF WHICH ARE INTF.RPRETED AS THE MEMORY
; AREA TO BE SEARCHED, AND THE THIRD AN]) FOURTH BEING 'I1IE
;DOUBLE BYTE TO BE FOUND. TIlE FIFTH AND SIXI'lI ARE
;A DOUBLE BYTE MASK. THE ADDRESSES OF ANY VALUE l'!ATCBES ABE
;DISPLAYED IN THE ADDRESS FIELD.
;
WDSEAR:
MOV
R0.#WRK3H
CLR
A
A
CPL
HOV
GRe,A
;SET l'!ASK III TO ALL BITS
DEC
R0
@Re,A
PlOV
; SET l'!ASK LOW TO ALL BITS
SEA7
; GET ADDIIS AND DATA LOW
CALL
;GET DATA HI
CALL
SEAS
PlOV
R0.#WRX2H
A,R4
!!OV
eRe,A
MOV
;IF DEL

= EXECUTE
CLR
MOV
J'Z
CALL

mv
MOV
mv
CALL
mv
MOV
MOV

CLR
J'ftP

TBllf NO ftASK

Fl

A,112
SEA9
SEAS
Re,IIIWRX3L

; RESET BYTE SEAlI.ClI FLAG
; GET l'!ASK LOW

A.M
GRO.A
SEAS
Re.#WlUC3H

; GET l'!ASK III

GRO.A
Fl
SEA9

; RESET BYTE SEARCH FLAG

A.M

;*-*-*-*-*-*-*-*-*-*-*

; SEARCll MEMORY FOR BYTE VALUE~
;TRIS ROUTINE EXPECTS TBilEE BEXADECUfAL P.ABAMF.TERS.
;AND A F01m.m OPTIONAL PARAMETER.
;THE FIRST TWO OF WIlICH ~ UfTElU"RETE» AS THE MEMORY
;AREA TO BE SEARCHED. AND TIlE THIRD BEINe THE BYTE
;TO BE FOUND. THE FOURTH IS A BYTE HABK.
; THE ADDRESSES OF ANY VALUE lfATCBES ARE
;DISPLAYED IN THE ADDP.ESS FIELD.
;
SEARCH:
PlOV
Re. #liRK311
CLR
A
mv
IiM.A
; SET MASK HI TO DON'T CARE
CPL
A
DEC
R9
@R0.A
;SET l'!ASK LOW TO ALL BITS
MOV
SEA7
CALL; IF DEL

= EXECUTE
CLR
CPL

Fl
Fl

THEN NO 1!ASK
; SET BYTE SEARCH FLAG

ISIS-II ms-48;'UPI-41 J.lfACRO ASSE1!mU:1l. V2.8
PMl'IPT-48 SYS1'Jm MONITOR W.8 6z.a1Z
LOC

OBJ

SECl

932C
032D
032F
0331
8333
8334

FA
C633
7485
B82C
FC
A8

8335
8337
8339
833A.

892£
7492
F5
D49F

033C
033D
033F
0340
8341
8342
0343
8345
034·1
0349
0348
834D
034E

F5
84A8
AC
AE
27
AD
7650
B4FD
8452
E663
B4A8
AD
B475

0350
0351
·0353
8354
0356
0358
035A

E5
7490
F5
B804
B92E
8462
B666

835C
835D
835F
8361

F5
MFD
8452
F63C

1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358.
1359
1360
1361
1362
1363
1364
1363
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
,1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416

0363 E5
8364 2451
0366
8367
83G8
036A
036C
036E
036F

FE
AC
9474
9470
5451'
E5
643C

0371 E5
0372 04FE
0374
8373
0377
0379
0378
037C
037£
0300
0381
0383
0384

F5
5480
74B6
8406
E5
7485
892£
F5
8486
Eli
83

0385 F5
0386 B400
03sa 8410

0SSA 3263

PACE

2ft

SOUBCE STA'l'DlENT
A.B2
SEA9
SEAS
R0.#WRX3L
A.R4

;GET lfASIC

MOV
CALL
SEL
CALL

Rl.#l/R!2L
SEA11
l'JB1

; MASK: THE FOR CLAUSE

BEL

Dl
FEliRK

!lOV

SEA9:

SEA2:

JZ
CALL
MaV
MOV
HOV

CALL

HOV

SEA3:

SEM:

SEAl:
SEA4:

SEA6:
SEA7:

SEAS:

Oae.A

WBIClA

; GET F IBST 8YTE

HOV
CLR
MOV
JFl
CALL
CALL
JNC
CALL
MaV
CALL

R4.A
1l6.A
A
M.A
SEA3·
INWRK
CWKWI
SEAl
FEWRK
M.A
DEWRK

SEL
CALL
SEL
HOV
MOV
CALL
JF0

MB0
SEA10
MB!
1\0,#4.
Rl,#WRX2L
CKDBL
SEA4

; MATCH FOUND

SEL
CALL
CALL
JC

l'JBl
INWRK
CWKWI
SEA2

;NOT DONE

SEL
JMP

MB0
ClmLV

mv

A.R6
R4.A
DAFLD
DDTJi'D
WAI1'2

MaV
CALL
CALL
CALL
SEL
JMP

MBO

SEAS

BEL

MB9
ERROR

SEL
CALL
CALL
CALL
SEL
CALL
HOV
SEL
CALL
SEL
RET

MB1
GEXIY

JMP

SEL
CALL
CALL

t

IF 8YTE SEARCH

;IF ALL'DONE
tGET SECOND BYTE

;COMPARE DATA

; CONTINUE SEARC1l

G2PlU1

BLICAD
MB0
SEAS
Ill.#WBX2L
MB1
MVR45
MB9
MBI
BLICDA
GB1""T.E

; GET lmXl' BYI'E

; IF DEL = CLEAR ENTRY TBEl'f ABORT
JBI

SEAl

.

-.

-

.....

ISIS-II HCS-48I'UPI-41 MACRO ASSErmLEEl. w.e
PROMPT-4& SYS'l'E![ !!OrJITOR V3. 0 6MBZ

LOC

OSJ

038e E671
03SE E5
038r 83

SEQ.

PAGE

21

SOURCE STATEl'!El'IT

1417 ; IF NO DATA El'fTEREI) THEN ERROR
1418
1419
JNC
SEM
1420
SEL
MHO
1421
RET
1422 SEAIO:
1423
1424 ; MASK DATA
1423

0390 B904

MOV

1426
1427 SEAll:

mv
mv

R0,#WRK3L
R7,#2

1431

MOV

1432

ANL
HOV
INC
INC
DJNZ
RET

A,aR0
A,@Rl
@Rl,A
R0
Rl
R7,SEA12

0392 B82C
0394 BF02

1428
1429

0396
0397
0398
0399
039A
039B
039D

1430 SEAI2:

F0
lJl
Al
18
19
EF96
83

1433
1434
1435
1436
1437
1438

1439
1440
1441
1442
1443
1444
1445
1446
1447

;*-*-*-*-*-:lC-*-*-*-*-*
;EY.AMINE/MODIFY PROGR~ nEL'IORY
;*-:lC-:IC
;EXAI'lINVUODIFY DATA HEnORY ;:IC-*-*
;EXAIUNVMODIFY REGISTER; ;*-:lC-*

-

;THE VM COMMAND ACCESSES DATA IN RAl'1 MEMORY.

; ENTRY OF AU •• FOLLOW-IrIG TIlE ADDRESS SPECIFICATION
1448 ; WILL RETUF..N THE DATA, WHICR HAY BE l'IODIFIED, OR
1449 ;PERSERVED, AND A FURTHER •• II ENTRY WILL ACCESS THE

039E
039F
03Al
03A3
03A4

F5
343D

546E
E5
2451

1450 ; NEXT ADDRESSABLE DATA.
1451 ;
1452 Er'ICHD:
1453
SEL
MBI
1454
CALL
GEXTY
1455
CALL
El'ISUB
1456
rm0
SEL
1457
Cl'IDLV
JMI'
1458

03M
03A7
03A9
03AB

03AD
03AF
03B0
03B1
03B3
0385
03B6

15
B920
9AF0
8A01

B8CS
80
37
B2B7
23FF
62
55

1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477

; RETURN TO COmfAND LEVEL

;*-*-*-*-*-*-*-*-*-*-*

;THIS ROUTINE WILL RESTORE THE PROCESSER'S
; STATE TO THE USER COND ITIONS AND EriTER THE USER

; PROGRAM.
;
ENTER:
DIS

MOV

ANL
ORL

I
Rl,#IMBOT
P2,#MSKPG
P2,#l'IEPGl

; SELECT RAM MEl'IORY PAGE 1

; RESTORE TIMER FLAG

1478

MOV
MOVX
CPL
JBS

MOV
MOV

STaT

R0, # IOPTR+3
A,@RO
A

ENTt4
A,#0FFR
T,A
T

1479 ErrT14:
1480
0~B7 B3C2
03B9 80

03EA A5
03BB B5

1481 ;STORE A TEm' TABLE IN I:rrI'ERrTf.L RAM
1482
R0, #RGTOP+3
1483
MOV
A,@RO
;GET PSW
1484
MO\'X
1485
1486 ;RESTORE Fl
1487
Fl
148&
CLR
Fl
i489
;Fl
1
CPL

=

--

PAGE

[SIS-II PlCS-4&lUPI-41 !fACl\O ASSE:mLER. V2.8
tBOftPT-48 S'YSTD aDWl1'OR va. 8 6ImZ
LOO

OBJ

03BC 128F
83BE A5
03BF
0SC1
0SC2
0SC4
0SC5
03C6
8SC1
OSC9
8SCA
83CB
03ce

83CD
83CF
03Dl
0SD2
03DS
03D40
0SD6
0SD1
0SD8
0SD9
03DB
e3DC
03DD
03Dl
83E0
03El
03£2

53F7
17
53F7
Al
19

13

])477

E:S

18
Al
Be

9600
2SBl
51
Al
19
DS81
80

Al
19
nanB
80
AF
BaC7
Be

4F
Al
19

03E3 B89F
03E5 80
03E6 Al

83E7
03E9
03EB
03EC
t3EE
03F0

B920
B880
80
BF05
03FC
AS

03Fl
83F2
03F4
83F3
03F6
03FT
03F8
8319

F8
537F
AS
Fl
90
19
18

EFFI

8aFB BSC8

03rD
03FF
0460
8401
0403
0404
0405

B937
80
37
9206
27
Al
05

SEQ
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
HS0e
1$01
1G02
1583
US04
1505
1506
1507
1588
1509
1518
15 11
1512
1513
1514
1515
1516
1317
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1353
1554
1555
1556
1557
15G8
1559
1560
1561

22

SOURCE STATEl'JEDT

El'fl'7:

JB3
CLR

El'fl?

Fl

,Fl = e

Al'fL

A,#eriB
A
A, 1It0FTH
GRI.A
Rl
Pml
GETAC

;mK OUT Ft
;ADJUST SP

INC

ANI.

NOV
INC
SEL
CALL
SEL
INC
MOV
MOW

NOV
ANL

MOV
EN'I'9 :

INC
MOV
MOVX
NOV
INC

NOV
NOVX
MOV
NOV
NOVX
ORL
NOV
INC
;SET mIS

~.

NOV
NOVX
NOV

I

GET USER ACCESS CODE

MB8

Re
@RI.A
A, EIRe

;SET RtIN BIT IF FLAG

.mz

,SAVE 

II

; GET RU1'f REAL TIl'!E FLAG

GORT

ENT9

A, I( (NOT 401D AND oFFlD
A,eRI
; SAVE MACRINE STATE
@Rl,A
Rl
R0, IRCPTR+ 1A,I:JR0
@Rt,A
R1
R0. I P2PTR
A,C!lR0
R7,A
R0, -IOPTR+2
A,1:J1t0
A,R?
@RI,A
R!

;GET 

;GET 

LOC" 

R0, -:a.cPTR+31
A,.I:JR0
ORI.A

;GET 

; PUT TE1lP TBL IN EXTElUfAL RAl.l' 'l"EI1P LOCATIONS

El!T2:

MOV
MOV
NOW
MOV
ADD
NOV

R1,#IMBOT
R0,IRGPTR
A,@Re
;GET 
R7,#$
A,I(-4) AND eFFlI
M,A

NOV

A,RO
A,17Fl1
M,A
A.@RI
ORe. A
Rt

ANI.

NOV
NOV
MOVX
INC
INC
DJNZ

R9

R7,El'fT2

; IF USER INT FLAG .. TRUE TBErf PLACE CPU Il'I AN
; I:trl'E.BRUPT SERVICE STATE
MOV

R0,#IOPTR:!-3
Rl,#DICNT

MOVX
CPL
JB4
CLR
MOV

A.@R9
A

nov

EN

ENT4
A

@Rl.A
I

; GET 1NT FLAG
; IF

NO

NESTING

;S/B NESTED

EriT4:

1~62

..~

PAGE

IS IS- II MCS-48/UP 1-41 :rrACR() ASSEnBLER. V2. 8
PROMPT-48 SYSTEM MONITOR V3.8 6l'.1BZ

LOC

OBJ

8406 7209
0408 05

0409
040B
040C
040E
0410
0412
0413
0415
0416
0417
0419

BaDB
80
9AF0
8A08
B809
90
0008
27
90
9AF0
8AOI

041B BA3D
041D B8B.F
041F B93F
0421
0422
0423
0424
0425
0427
0428

0429
042B
042D
·042E
042F

80

Al
C8
C9
Ef.21
S0

Al

B9C8
BSCI
81
37
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

SOURCE STATElIIENT

SEQ
1363
1564
1565
1566
1567
1568
1369
1570
1571
1572
1573
15141575
1516
1517
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592

; IF USER INT FLAG := TRUE 'I'BEN ENABLE EXT INTERRUP'IS

JB3

;IF INT DISABLED

ENTl0
I

EN
El'IT10:

; SET P2 MAP AND PIS IMULATOR

MOV
novx

ANL

R0.#P2PTR
A.@lRO
P2.#M.SKPG

;GET P2 MAP

P2,#MEIOU

ORL
nov
MO\'X

nov

cu.

MOVX
ANL

ORL

R0.#KBDAT
@lR0,A
R0,#P0LIN
A
@lR0.A

;SET P2 MAP

;DISABLE REFRESH INTERRUPTS

P2,#M.SKPG
P2.#MEPGl

; RESTORE I:N'I'ERNAL REG

.R2,#3DH
RO.#RGTOP
Rl,#urrop

~IOV

.
ENT5:

nov
KOV
MO'lt'X

nov

DEC
DEC
DJNZ

1593

1594
novx
1595
nov
1596
1597 i RESTORE THIER
1598
1599
nov

nov
novx

1600
1601
1602

CPL

1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635

23

A,@lRO
@lRI,A
R0
Rl
R2.ENT5
A.@R0
@lR1.A

Rl , # IOPTR+3
RO.#RGTOP+2
A,@lRI

A
TeNT

STOP

; IF Cl'IT WAS RUImING 1'BEN TIMER .. TInER
JB7

ENT15

STRT

CNT
ENTII

JrIP

; IF TI:MER WAS NOT RUNrfING THEN TIMER

= TIMER

El'IT15:

ENTll

JB6

;IF TIMER WAS RUNNING TDEN
STIlT

novx

ANL

; IF TIMER

<

T
A, aRt)
A.#0FElI

2 TIiEN TH1ER

= 0 ELSE

ENTI3
; TlI'!ER

= TIMER -

2

MOVX

A,@RO

ADD

A.#(-2) AND OFFH
ENT13

J!'lP
ENT11:

El.TI13:

;GZT 

MOV

T,A

ISIS-II m::S-48rUPI-41l'{ACRO ABSlmBLER. V2.0
PROMPT-4t8 SYSTEl![ MONITOR V3.0 6ImZ
LOC

0444
044:J
0'446
0447
0449
044A
044C
044D
044E
044F
0450
0451
0452
0453
0454
0455
0456
0457

045-3
. 045A
045B
045C
045D

OBJ

18
80
A9
5307
E7
0308
29
Al
18
80
21
19Al
18
80
21
31
At

B8C0
80
D5
AF
C5

03FO
03F4
03F8
03FC

045E B8C8
0460 80
0461 52A2

0463
0465
0466
0468
0469
046B
046C
046D
046E
046F
0470
0471
0473
04':'4
0475
0476
0478
0479
047'A
047B
047'C
04'7E
0480
0482

B880
80
03FC
A9
537F
A8
19
19
80
18
28
537F
28
D7

C5
928D
80
AS
F9
28
9AF0
SA08
B9CB
91

0483 80
0484 A9
0485 18

L __

SEQ
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
16.50
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1'703
1704
1'705
1706
1707
1708

PAGE

24

SOURCE STATEl'1EN'I'
; INC SP AND PLACE USER PC ON STACK
INC
MOVX
l'1OV
ANL
RL
ADD
XCR
MOV
INC

R0
A,@R0
Rl,A
A,#7R
A
A.#8
A,Rl
@lRt.A
RO
A,@lR0
A,@lRl
Rl
@lRt.A

MOW

KCB
. INC
MQV
INC
MOW.
KCB
KCHD
MOV

no

A,@RO
A,@R1
A,@R1
@lRl.A

;GET PSW

;GET PCL
; PLACE ON STACK .

;GET PCR
; PLACE PCB ON STACX

;PUT  IN Ral

tNUSO
nrnSl
INUS2
I HUS3

MOV
MOVX
SEL
MOV
SEL

R0. #RGTOP+ 1
A.@R0

EQU
EQU
EQU
EQU

03F011
03F4H
03F811
03FCB

;GET 

RBI

R7.A
REO
; ENTRY
; ENTRY
;ENTRY
; ENTRY

PO HIT
POINT
POINT
POINT

FOR
FOR
FOR
FOR

RBO. rIBO
RBl • .cm0
REO.Hal
RBI, ~ml

; DETERl'1INE EIfI'RY VECTOR FOR MEr! BAJ."lfKS
MOV
MOVX
JB2
; RESTORE

MB0VE:

mRE

MOV

mvx
ADD
mv
ANL

MOV
INC
INC
MOVX
INC
XCB
ANL
KCB
MOV
SEL
JB4
MO\"'X
MOV

nov
KCB

ANL
ORL

MOV
MOVX

RO. # IOPTR.+3
A.@R0
1'1S1VE

;GET PORT3

REG AND DETEruUNE ENTRY VECTOR
R0,#RGPTR
;GET 
A.@Re
A,#(-4)AND OFFH
Rl,A
A,#7FB
R0,A
Rl
Rl
A, @IRe
;GET 
; PO INT TO MACHINE STATE
no
A.RO
A,#7FJI
A,RO
PSW,A
RE0
;USER IS USING RBI
ENTB
A,@RO
; GET MACHINE STATE
R0.A
A,Rl
; GET USE!"l. 
A,RO

. P2,#~KPG
P2. #!\!EIOU
Rl. ,1'MCBST
@Rl,A

;OUTPUT STATE

; FINISH REG AND PORT RESTORE
lI!OVX

noy
INC

A,@RO
RI.A
RO

;GET 

tSIS-1I MC9-4lV'OPt-411 NACBO ASSEl'IBLEll. va.O
PROPJPT-48 S1'ST.El'I MDl'fl'l'OR V3. 0 6l'UlZ

we

OBJ

SEQ

8486
8487
8488
8489
848A

80
3A
18
80
D5

1789
1718
1711
1712
1713
171+
1715
1716
1717
1718
1719
1728
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1132
1733
1134
1735
1736
1737
1738
1739
1740
1741
1742
1143
1144
1745
1746
1747
1148
1149
1750
1751
1152
1153
1754
17515
1756
1751
1738
1759
1768
1161
1762
1763
1764
1161)
1166
1767
1768
1769
1770
1771

848B 64F0
848D
048E
848F
0490
0491
8493
04915
0497
8498
8499
049A
049B
049C
049D
049£
849F

80
AS
F9
28
9A.F0
8A.08
890B
91
80
A9
18
80
3A
18
80
D5

8+A0 64F4
84~.2 B880
04A4 80
84A5 03FC
04A1 A9
O.. A8537F
04M AS
04AD 19
04AC 19
04AD 80
84AE 18
04AF 28
04B0 337F
04B2 28
04B3 D7
04B4 C5
0485 92CC
0481 80
0488 A8
0489 F9
048A 28
HBB 9AF0
048D 8A08
048F 8908
04Cl 91

04C2
0403
04C4
04C5
04C6
0401
04C8
04C9

80
A9
18
80
3A
18
80
D5

1772

1773
1774
1775
1776
1777
1778
1779
1789
1781

PAClt

2S

SOURCE STA"l'Elm.'"

novx
OUTL
INC

now

SEL

A.aRO
P2,A
RO
A,8R&
RBI

,GET 

;GET Bat

;GO 'l'O USER PROGRAM AT VECTOR FOR RE8
ENT8:

JBP

nmS8

mvx
nov

A,4IIRO
R8,A
A.Rl
A,RO

MOV

XCR

; GET MACRINE STATE
; GET USER <'88>

; WRITE. MORINE STATE
A.NL

OR!.

mv

MOVX

P2,#MSKPG
-P2,#MEIOU
Rt,#HCRST
@RI.A

IOtrI:PUT STATE

;FINISH REG AND PORT RESTORE
MOVX
MOV
INC
HOVX
OUTL
INC

novx

SEL

A.GR0

;GET 

RItA

R8
A.@RO
P2,A
RO
A,@M
RBI

;GET 
iGET 

;GO 'l'O USER PROGRAM AT ENTRY VECTOR FOR RBI
l'!81VE:

nIP

I NUS 1

HOV
MOVX
ADD
HOV

RO.#RGPTR
;GET 
A,@RO
A,#(-4)AIfl) OFFU:
RI.A
A,#7FR
R9,A
Rl
Rl
;GET (PS"W>
A.eRe
;POINT TO lIfACRlNE STATE
R8
A.R0
A,#7FR
A.R0
PSWyA
RBO
;USER IS USING RBI
ENT8A
; GET nCRINE STATE
At@RO
ROtA
I CET USER 
A.Rl
A,RO
P2.#MSKPG
P2, #flEIOlI
Rl,#MClIST
; OUTPUT STATE
ORltA

An

HOV
INC
INC
MOVX
INC
XCR
ANL

XCR

mv

SEL
J84
MOVX
HOV
MOV
XCR
A.NL

OR!.
MOV
MOVX

; FINISH REG AND PORT RESTORE
l'!OVX

nov

INC
MOVX
OUTL
INC

MOVX

SEL

AfORO
Rl,A
.RO
A ••R0

P2,A
lt9
AfGRe
RBI

;GET 
;G'ZT 
;GET Bat

ISIS-II Mr.S-48/UPI-t-1 MACRO ASSEMBLER. V2.0
PROllPT-48 SYSTEl't mlNlTOR W.0 6l'1BZ
LOC

OBJ

04.CA 64F8
04CC
04CD
04CE
04CF

80
A8

F9
28

04D0 9AF0
04D2 .SA08
04D4 B90B
04!D6 91

04D7
04D8
04D9
04DA
04DB
04DC
04DD
04DE

80
A9
18

80
3A

18
80
D5

04DF 64FC

04El F5
04E2 24E3

04E4 F5
04E5 0400

04E'% F5
04£8 5480

04EA 74B6
04EC D49F
04EE
04F9
04F2
04F4

BC00
D408
B4FD
B452

04F6 F6EE
04F8 E5
04F9 2451

'.

PAGE

26

SEQ.

1782
1783
1784
178lS
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1307
1808
1809
lS10
1811
1812
IS13
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1&50
1851
1852
1853
18S4

; 00 TO USER PROGRAM AT VECTOR FOR RB0

ENTSA:

JMP

INUS2

MOVX

A,@lR0
RO.A
A.Rl
A,RO

MOV

MOV
XCH

; GET MACBINE STATE
; GET USER



;-WRITE MACHINE STATE

ANL

P2."MSlQ'G
P2.#MEIOU
RI.#MClIST
GRl.A

ORh

MOV

MOVX

; OUTPUT STATE

11' INISH REG Al'fD PORT RESTORE

MOVX
MOV
INC

A.@R0
Rl,A
R0
A,@lR0

OUTL

P2.A

MOVX
SEL

RO
A.@lRO
RBI

MOVX

nrc

;GET 
; GET



;00 TO USER PROGRAM AT El'ITRY VECTOR FOR RBI

INUsa
;*-*-*-*-*-*-*-*-*-*-*
JMP

;COMPAHE PROM
;THE PROl'I DATA SPECIFIED WILL BE COMPARED AGAINST PROGRA:M
;MEMORY AND ANY DIFFERENCES WILL BE DISPLAYED.
;
COMPARE:
SEL
Mal
JllP
COMPX

;*-*-*-*-*-*-*-*-*-*-*

;FETCB PROM: ;THE PR01'! DATA SPECIFIED WILL BE TRANSFERRED TO THE PROCRAH
; MEMORY FOR VERIFICATION/MODIFICATION.
;
FETC1I:
SEL
Mal
FETDT
JMP

;*-*-*-*-*-*-*-*-*-*-*

;CLEAR BUFFER: ; mIS COMl'l4.ND IS USED TO CLEAR THE EXTERNAL DATA. PROGRAH OR REG
;BUFFERS PRIOR TO PROM PROGRAroIING ETC.
; (NOTE THAT mIS CO~lAND WILL INVALIDATE ANY
;PROGRAM OR DATA WHICH HAS BEEU SAVED IN THE E."'ttERNAL
; BUFFERS. )
;
CLEAR:
SEL
Mal
CALL
GEXTY
CALL
G2PRM
CALL
WRK1A

cumx:

R4,#0
STOlvtC

MOV
CALL

CALL

INWRK

CALL

CWIaH

; IF WORK ADDRESS

>

; CLEAR A BY'I'E
; INC ADDRESS

UPPER LIMIT ntE...'1 ALL DONE

JC

CLRNX

SEL
J1'lP

~!B0
c~mLV

;NOT DONE • DO NEXT BYTE
;ALL DONE

ISIS-II MCS-4tYUPI-·U MACRO ASSEm3LER. W.O

PAGE

27

PROm'T-48 SYSTEl'! MONITOR V3.0 6MBZ
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
0511
0313
0S15
0517

F5

B95F
D44B
B901

14F4

0519 3221
051B B969
0S1D D44B
051F B902
0521 F9
0522 04FC

SEQ.
1855
1856
1857
1858
1859
1860
1861
1862
1863
18641865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1830
1881
1882
188a
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899

SOURCE

STAT.E~

;*-*-*-*-*-*-*-~-*-*-*

;THIS ROUTINE ALLOWS THE USER TO SPECIFY THE
;BIT BY BIT DIRECTION OF P2. EITHER OF THE a
;BITS MAY BE ASSIGNED AS INPUT OR OUTPUT.
I

P2DEF:

MOV
l'IOV
Jl'lP

R2,#OFFH
A,#P2PTR
ACCS

;*-*-*-*-*-*-*-*-*-*-*

; PROGRA.WVERIFY (BURN) ;
,THIS COMMAND INITIATES THE PROM PROGRAMMING.
THE
;PROGR-\1"1 NEMORY SPECIFIED WILL BE PROGRAMMED INTO THE
; PROM, AND SHOULD BE SUITABLY MODIFIED BEFORE
; EXECUTION OF THIS COMMAND.
;
;PROGRAM 8748
PROMP:
SEL
MD1
MOV
R1,#P48TBL AND 0FFH
CALL
MESG

CALL

PRB:

JBt
SEL

PM:

JMP

CKD

PM
Ml30
ERROR

CLR
A
Jl'lP
PRPRO
;PROGRAM 8755-8751
PROm5:
MBI
SEL
:MOV
Rl,#P41TBL
CALL
MESG
Rl,#D8741
MOV
CALL
CKD
JB1
PRC
MOV
R1,#P55TBL

.

CALL

AND 0FFH

AND

OFFR

MESC

1'1OV

Rl,#D8755

MOV

A,R1
PRPao

PRC:

JMP

1900

0524 BA05
0526 23D9
~528 B82A
·0S2A F5
052B B49B
052D 27
052E AI)
052F FA
0530 B834
0532 B4A3

1901
1902
1903
1904
1905
1906

;*-*-~-*-*-*-*-*-*-*-*

; mIS ROUTINE ALLOWS THE USER. TO SPECITY THE
;l'IACRINE HARDWARE CONFIGURATION.
;
ACCES:
MOV
1907
MOV
1908 ACCS:
RO,#BASEL
1909
MOV
1910
SEL
MD1
1911
CALL
SETPI
1912
CLR
A
1913
nov
RI,A
MOV
A,R2
1914
RO,#UPLML
1915
~IOV
PRSET
1916
CALL
1917
1918 ;DISPLAY OLD DATA AND GET NEW DATA
1919

1920 Ace3:
8534 54FA

0536 324(;

1921
CALL
EI'1SB3
1922
1923 ; IF DELIMITER = CLEAR EnTP.Y 1'1mN ABORT
1924
1925
JB1
ACCI
1926
1927 ; IF NO DATA El'ITEllED TI:IEri EXIT

ISIS- I I !1CS-48/UPI-41 HACM 'ASSEl"!BLER. V2.e .

P.!\GE

28

PROm'T-48 SYS'TEM MONITOR V3.e 6MBZ

·LOC

OBJ

SEQ

SOURCE STATEm:NT

0552 74BA
0554 D49F

1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
19'40
1941
1942
1943
1944
194!i
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
19621963
1964
1965
1966
1967

0556 B82F

1968

0558 D4Al

1969
1970
1971 ;ClIECK IF MOVING UP OR OO~il'f
1972
1973
Fl
CLR
R0,#WRK2L
1974
J.lIOV
Rl,#l/RKL
1975
HOV
1976
CKDBL
CALL
;MOVE DOWlf
1977
~IV3
JC
1978
1979 ; CHECK IF MOVE BLOCK WILL CO OVER .MEH TOP
1980
1981
CPL
Fl
1982
1983 ;R4.5 -= WRIt!
1984
R0 ,1~offiXIL
1985
~IOV
Rl,#4
HOV
1986
1987
CALL
MVREG
1988
1989 IR4.5 = WRIt! - WRK
1990
R0.#4
1991
- MOV
RI. #lffiKL
1992
MOV
1993
SUDBL
CALL
1994
1995 IR4.5
WRK2 + (n~l - ~
1996
R0,#4
1997
NOV
Rl , # ~ffiK2L
HOV
1998
1999
ADDBL
CALL
2000

0538 E64:C

OS3A
053B
053C
0153E
053F

FC
AA
:J3EF
AC
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

055A A5

055B B82E
055D B932
055F B462
0561 F692

0563 B5

0564 BS30
0566 B904
0568 B488

056A a804

056C B932
056E 94D6

JNC
; IF DATA

UPPER LUIIT 'I'BEN ERROR

MOV
MOV

A,R4
EI2.A

AM.

A,#0EFlI

MOV
CLR
MOV
CALL

R4.A
A

JC
ACC... :

SEL

JI1P

R5,A
C45UL
ACC2

MB0
ERROR

ACC2:
~IOV

A,R2

MOV

R4,A

;STORE NEW DATA

CALL
ACC1:

SEL

JMP

STOWK

MB0
CJ.lIDLV

;*-*-*-*-*-*-*-*-*-*-*

; MOVE MEMORY : ;MOVE A BLOCK OF .MErl0RY.
;TRIS ROUTINE EXPECTS TIIREE HEXADECIlIfAL .pARAl'fETERS FROMTBE
;FRONT PANEL. THE FIIIST AND SECOND PARABTERS ARE THE BOUNDS OF
; THE .ME~IORY AREA TO BE MOVED. THE TRIRD P AR.AHETER. IS THE
;STARTING ADDRESS OF THE DESTINATION AREA.
;
MOVE:
SEL
MBI
CALL
GEXTY

CALL

G3PRM

CALL

WRKlA
RO , #llRX2l1
WRKA

HOV
CALL

=

0570 B804
0572 B92E
0574 94DA

>

Acel

IS1S- II ncS-4fYUPI-41 MACRO ASSEMBLER. V2. e
PROPIPT-48 SYSTEl'! !lON'ITOR V3. e 6l'.1BZ
LOC

057'6
057'8
057'A
057C
057'E

OBJ

B8n4
B92E
B468
13458
F692

0560 B804
0582 B934
0584 941)6

SEQ
2001
2002
2003
2004
- 2005
2006
2007'
2008
2009
2010
2011
2012
2013
2914
2015
2016
2017

; ADJUST DESTINATION ADDR TO UPPER DEST AnDR
; WRI{2 ..

0SSC BB2Z
05SE B904
0590 94D6

0592
0594
0596
0597
0599
059B

B830
B4M
AC
769C
MA8
AC

059C B82E
059E D40A
05A0 76B2

nov

05A2 B4FD
05A4 B62E
05A6 B4FF

05A8
05A9
05AH
05AD

F5
B452
F2AF
F692

05AF E5
05B9 2451

05B2
05B4
05B6
0588
05BA
05BC
05BE
05BF

BF01
5830
B479
BF01
BS2E
B479
E5
MA8

2066

20-67
2068
20'59
207{)

2071
207'2
2013

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

;"WRKI

;WRK2

.
..

RO,#4 .
Rl,#UPLm.
SUDDL

MOV
MOV
CALL

"WRK1 - OVERFLOW

R0,#WRKIL
Rl,#4
SUDBL

MOV
MOV
CALL

.ffiK2 - OVERFLOW

RO,#WRK2L
Rl,#4
SUDBL

MOV
MOV
CALL
;GET MOVE DATA
MV3:

MOV
CALL
~IOV

JFl
CALL
MOV

RO, #l'iRKIL
FEXDA
R4,A
MVt

FEmu<:
R4,A

; STORE MOVE DATA
MVl:
~lOV

CALL
JFl

~044

2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065

WP.:K.2 -+- (WRKI - WRIO

MOV
CALL
CALL
JC

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

29

SOURCE STATEMEl'IT

2018

0586 8830
0588 B904
058A 94D6

PAGE

R9,#WRK2L
SEXDA
MV2

; IF MOVING UP

; INC POntTERS FOR MOVING DOWN
CALL
~IOV

CALL

lIDiRK

R0,#tlRK2L
INnBL

;CBECK IF DONE
MVS:
SEL

MV4:

CALL
JB1
JC

SEL

JPIP

~DEC POINTE...~
~IV2:

:tIOV

niH
C'tVKWl

MV4
MV3
~m0

CnDLV

;NOT DONE

;ALL DONE

FOR MOVIl'fG DOW
R7,#1

NOV

R0.#~iRKIL

CALL
MOV
NOV
CALL

DEDBL
R7,#1
RO.#W1U\2L
DEDEL

SEL
J1!IP

5:80
MV5

--

ISIS-II. M:S-48I'UPI-41 nCRO ASSElmLER. W.O
PROMPT-48 SYSTEH mrnTOR V3. 0 6!lBZ
LOC

05C1
05C2
05C3
05C4
05C5
05C7
05C9
05CA
0sec
05CD
05CE
05CF
0SDO
05Dl
05D3
05D4
05D5
05D7
05D9
05DA
05DB
05DD
05DE
05DF
05E0
05E1
05E2
05E3
05E4
05E5
05E7
05E9
05EA
05EB
05EO
05EE
05FO
05Fl
05F'S
05F4
05F5
G5F6
05F7

OBJ

D5

AF
0A

AE

B838
B937
Fl

2091
IN
A,P2
2092
MOV
;SAVE 
R6.A
2093
R0,#DIPTR
MOV
2094
Rl,#DICNT
~10V
;LAST COUNT
. ;GET COUNT
A,ORI
2095
MOV
2096
JNZ
REF2
2097
MOV
A,R7
2098
RB0
SEL
2099
RET
2100 REF2:
2101
R2,A
MOV
;SAVE COUNT
2102
MOV
Ra,A
Rl,#DPMSK
2103
MOV
• 2104
A,@Rl
MOV
2105 REFS:
2106
RR
A
2107
RS,REF3
DJNZ
A,#80H
2108
ANL
2109
CPL
A
, ~IOV
2110
Ra,A
Rl,#DGGPT
2111
MOV
A,R2
MOV
2112
2113
ADD
A, R0
; COMPUTE DIPTR
2114
MOV
R0,A
A,R2
2115
MOV
2116
A,Rt
ADD
;COMPUTE DIG PTR
2117
~IOV
Rt ,A
2118
DEC
R0
2119
DEC
Rt
P2,#MSKPG
2120
ANL
P2,#MEIOU
2121
ORL
2122
MOV
A.@R0
tGET CBAR
2123
ANL
A.R3
@Rl,A
2124
; OUTPUT CHAR
~IOVX
R2,REFl
2125
DJNZ
;POINT TO NEX1' DIG
R2,#8
2126
MOV
; SET PTR BACK TO START
2127 HEFl:
2128
MOV
A,R2
;GET NEW COUNT
Rt,#DICHT
MOV
2129
@lRt,A
2130
;SAVE COUNT
MOV
A,R6
MOV
2131
2132
P2,A
; RESTORE P2 VALUE
OUTL
2133
MOV
A,R7
; RESTORE 
2134
RETR
2135
2136 ;:IC-:lC-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-~-~-~-~
2137 ;
2138 ;Em> OF MONITOR COMM.B
060C
060E
0610
0611
0613
06140
0616
0617
0618

FC
F5

1>410
E5
47
530F
AC
ME7
F4AD
F5

0422
E5
530F
AC
D4E7
F4AD
F5
D422
E5
B826
60
A9

83

0619 B821
0618 9AF0
061D 8AVS
061F 80
062e 5301
0622 C61F .
0624
0625
0627
0628

FC
B820
90
83

SEQ.

21541

ANL

nov

CALL
CALL
SEL
CALL
SEL
MOV
ADD

MOV
RET

90

0640 F4A0

MBO
A

A.#0FB
R4.A
CONV
TYPO
MB1

; CONVERT HEX TO ABC I I
;PUNCH HI NIBBLE

- POP

MB0

A,#0FH
M,A
CONV
TYPO

MBl

; CONVERT HEX TO ABC II
;PUNCH LOW NIBBLE

POP
MB0

R0 , #cx.surI
A,@JR0
@R0,A

;UPDATE CHECKSUM
; SAVE

;EXTEMALLY REFERENCED ROUTINE
;CONSOLE OUTPUT CODE. VALUE EXPECTED IN R4
;
;REG USED: A,R0,P2
;REG MODIFIED: A,RO,P2
; NESTING: 0
;
TYCO:
R0,#USACT
MOV
P2,#MSKPG
ANL
P2.#MEIOU
ORL
COl:
; INl'UT CONSOLE STA'l'US
MOVX
A.@RO
A,#TRDY
;TEST FOR TRANSMITTER READY
ANL
; CONTINUE TO CHECK STATUS UNTIL BE
JZ
COl
ADY
MOV
; LOAD CHARACTER
A.R4
R0,#USADA.
MOV
@RO,A
;OUTPUT IT
MOVX
RET

2208
2209 RI05:
2210
2211
2212
2213
2214
2215
2216
2217
2218

C632
2327

A,R4
MDt
PUSH

;*-*-*-*-*-*-*-*-*-*-*

0630 C4D8

5304

MOV

CALL

2207

80

ANL

SEL

062F 97

9AF0
8A08
E821

CALL
SEL
SWAP

SEL

FS
062A 74AA
062C E5
062D C632

0632
0634
0636
0633
0639
063B
063D
063F

MOV
SEL

CALL
CALL

2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206

06~9

31

SOURCE STA'l'UlEl'IT

2147 PBYTE:
2148
2149
2150
2151
2152
2153
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2118
2179
2180
2181
2182
2183
2184
2185
2186
2181

PACE

;*-*-*-*-*-*-*-*-*-*-*

;EXl'ElWALLY REFERENCED ROUTINE
; READER INPUT CODE
; VALUE RETURNED IN A
;
;REG USED: A,R0-R3,P2
;REG MODIFIED: A,RO-R3,P2
; NESTING: 2
;

TYRI:
SEL

CALL
SEL
JZ

CLR

MDt
CICASIO
MHO

Rl05
C

JMP

TYCI

ANI.
OR!.

P2.#MSKPG
P2,#~IEIOU

l'IOVX

AXlL

RO.#USACT
A,@RO
A.#TXBE

JZ

!tICS

1'10'VX

@RO,A

CALL

DELAY

1'10V

MOV

A.,#TADV

: 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.
PBO!IPT-48 S'!STDI s)l'UTOR W.0 6ImZ
LOC

OBJ

0642 2325
9644 90
0645 B8FA
0647
0648
064A
064C
064E
0660
0651
0652
0653

80
~302

9654
F4A8
EB47
27
97
A7
83

0634 BB20
0656 80
0657 97
0658 83

0659
065A
065C
065D
065£

F5
74AA
E5
C660
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
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
22~3

2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291

w.e

PAGE

32

SOURCE STATDIENT
MOV

mvx

MOV

A,-COE
@R0.A
11.3,#258

; OUTPUT STOP COl'Jllt.UlD
;SET TIMER FOR.25& MS

RII0:
~IOVX

ANt.
JNZ
CALL
DJl'fZ
CLR

CLK

CPL
RET
RIl5:

MDV
~toVX

RI20:

CLK

A.aRO
A.#RRDY
RIlS
DELI

R3.R.110
A
C
C
R0,#USADA
A.@R0

C

; INPUT READER STATUS
; CK FOR RECEIVER BUFFER READY .
;DATA READY
;DELAY 1 MS
;TIMER NOT EXPIRED
; READ EBB.OR

; INPUT DATA
; CLEAR ERROR FLAG

RET

;*-*-*-*-*-*-*-*-*-*-*.

; PUNCH LEADER ON TTY PUNCH
;
; REG USEl): A. R0. R4. P2
;REG MODIFIED: A,R0,R4,P2
; NESTING: I
;
LEAD:
SEL
nBl
CKASIO
CALL
nB0
SEL
JZ
LEAD2
RET
LEAD2:
mv
R7,#?2
MOV
R4.-0
LEAD1:
CALL
TYPO
DJNZ
R7,LEAD!
RET

;*-*-*-*-*-*-*-*-*-*-*

; READ TrY (ENTER): .;THIS ROUTINE READS A BEXADECIl'!AL FILE FROM THE TTY
;READER DEVICE AL"fD LOADS IT INTO ~RY. orre HEXADECIJ!AL
,PARAMETER IS EXPECTED. THIS PARAMETER IS A BASE ADDllESS
;TO BE ADDED TO THE HDlORY ADDRESS OF EACH DATA BYTE El'l'COUN"l'ERED.
; IN THIS WAY, HEXADECIMAL FILES HAY BE LOADED INTO MEMORY
; IN AREAS OTBER THAN TB'A.T FOR l'lRIClI .TREY WERE ASSDlBLED.
;ALL RECORDS READ ARE CBECXSumJED AND COMPARED AGAINST THE
;CBECI<5UM IN THE RECORD. IF A CHECKSUM ERROR (OR TAPE READ ERROR>
; OCCURS, TRE ROUTINE TAKES AN ERROR EXIT. NORMAL LOADING IS
l'l'ERI'fINATED WHEN AN EOF RECORD IS ENCOUNTERED.
;
READ:

SEL
CALL
CALL

MDI

GEXTY
GIPRM

;SAVE BIAS ADDRESS
MOV

RI.-BIASL

CALL

?lVR45

READS:
; SCAN 1'0 RECORD MARIC
SEL
CALL
.~D

JNZ
; CLEAR CBECXSUM

MS0
RTTY
A,#(-':')
READS

;GET BIAS ADDRESS

ISIS- It l'!CS-4&lU'PI ....n MACRO ASSE:MBLER. V2. e
PROMPT-48 SYSTEll( MONITOR w.e 6MBZ
LOC

OBJ

0679
067B
067C
e67E
067F
0651
0682
0684
0686
0687
0688
068A
068C
068D

B826
A0
MF5
FC
C6B0
AE
D4F5
B833
FC
A0
D4F5
B832
FC
AO

068E F5

068F
0691
0693
0695

B832
B927
94DA
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
06B3
06B5
06B6

06B8
06BA
06BC
06814
06C0
06C2
06C4
06C6

F5
9474
E5.
04FE

031>0
E6CC
03E9
F6CC
0306
F6C8
0307
F6CC

96CB 039A
06CA 97
96CB 83
06CC 97
06CD A7

SEQ

33

SOURCE STATEMENT

2292
2293
2294
2295

mv

MQV
CALL
:MOV

2~96

2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
• 2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364

PAGE

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

; LOAD ADDRESS = LOAD ADDRESS + BIAS
SEL

;(PTR1L/H)

MBl

= (PTRlL/H)

+ (PTR2L/H)

R0,#WRKL
Rl.#BIASL
ADDBL

MOV
MOV
CALL
SEL

MB0

CALL

RBYTE

; RECORD TYPE

RBYTE

;READ DATA

;STORE DATA
; INC LOAD ADDRESS

JNZ

CWKUL
READ2
.R0,#lffiKH
WRKA
STOWK
INWRK
J.lm0
R6.READ5
RBYTE
READ2

JI1P

BEAD3

; LOOP TI L DONE
; READ CHECKSUM
; ex: SUM ERROR
; GET ANOTHER. RECORD

JMP

CWLV

;ALL DONE

SEL
CALL
SEL

lIml

READ6:
RL\D5:

CALL
SEL
CALL
JNC
MOV
CALL
CALL
CALL
SEL
DJNZ
CALL

MDI

READ4:
READ2:

JMP

DAFLD
~m0

ERROR

;*-*-*-*-*-*-*-*-*-*-*

; DECODE ASC II CHAR IN  INTO HE.~ IN 
;
; REG USED: A
;REG MODIFIED: A
; NESTING: 0
;
NIBBLE:
A.#(-'0'} AND 0FFR
ADD
NIBI
;DIG < '0'
JNC
A, #( ( , 0' - 'G') MID 0FFH}
ADD
NIBI
;DIG > 'F'
JC
A.~6
ADD
;DIG>
NIB2
JC
A, 117
ADD
;DIG > • 9'
NIBI
JC
NIB2:
ADD

CLR

;RETURN HEX N!BBLE

RET
liIBI:

CLR
CPL

C
C

IS IS- II MCS-481'UP t-41 MACRO ASSEMBLER. V2. e
PROMPT-48 Sl'S'l'Erll'!ONlTOR V3.0 6MBZ
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
06E8
06EA
06EC
06ED
06EF

FC
03F6
E6F0
FC
0307
AC

06F0
06Fl
06F3
06F4

FC
0330
AC
83

SEQ.
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
'2389
2390
2391
2392
2393
2094
2395
2396
23'}7

PAGE

34

SOURCE STATEl'lE!fl"
; RETU'RN ERROR , NOT HEX DIG

;*-*-*-*-*-*-*-*-*-*-*

;GET CHAR FROM TrY AND l'IASK OFF PARITY BIT
;
;REG USED: A,R0,R2.R3,P2
;REG MODIFIED: A,R0,R2,R3,P2
; NESTING: 3
;

ltI'TY:

CALL
JC
ANL

RTYt:

TYRI

RTY1
A,#7FR

; IF READ ERROR

RET
JMP

ERROR

;*-*-*-*-*-*-*-*-*-*-*

;EXTERNALLY REFEllENCED ROUTINE
; CONSOLE INPUT CODE, VALUE RETURNED IN A
;
;REG USED: A,R0,P2
;REG lIIODIFIED! A,R0,P2
; NESTING: 0
;
TYCI:
R0,#USACT
MOV
P2,#.MSKPG
ANL
P2.#MEIOU
ORL
Cl1:
A,@RO
; INPllT CONSOLE STATUS
MOVX
A,#RRDY
;CRECK FOR RECEIVE BUFFER READY
Arm
; CONTINUE TO CHECK STATUS UNTIL BU
JZ
CI1
FFER FULL
R0,#USADA
2398
lIIOV
A,OR0
2399
1I10VX
; READ TlIE CHARACTER
; RETURN
2400
RET
2401
2402 ;*-*-*-*-*-*-*-*-*-*-*
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:
MOV
A,R4r
2410
A.#(-10) AND 0FFR
2411
ADD
; DIG < 10, (0-9)
2412
JNC
CONY 1
2413
MOV
A.R4
A.#7
;ADJUST FOR (A-F)
2414
ADD
MOV
2415
R4.A
2416 CONYt:
2417
A,R4
MOV
A,#'0'
2418
; ADD BIAS FOR ASCI I
ADD
2419
R4,A
MOV
2420
RET
2421
2422 ;*-*-*-*-*-*-*-*-*-*-*
2423 ; READ TIrO ASCII CHARACTERS, DECODE INTO 8 BIT BINARY
2424 ;RETURN BIl'l'ARY IN R4 AND CHECKSUM IN 
2425 ;

2426

i

REC USED: A, RC, P.2-R4, P2

2427 ;REG MODIFIED: A,R0,R2-R4,P2
2428 ; NESTING: 4
2429 ;

06F5
06F7
06F9
06FA
06FB
06FD

D4!CF

D4B8
47
AC
D4CF
D4B8

2430 RBYTE:
2431
2432
2433
2434:2435
2436

CALL
CALL
SWAP

RTI'Y

CALL

RTI'Y~

MOV

CALL

NIBBLE

A

R4.A

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

PAGE

35

ROM:PT-48 SYSTEM: 110NITOR W.0 6MltZ

LOC

OBJ

SEQ

06FF
0700
0701
0703
0704
0705

4C
AC
B826
60
A0

2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
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

0706
0707
0709
070B
070D
070E

83

F5
548D
74B6
D49F
E5
D459

0710 BD00
0712 BCl0
0714 F5·

0715 B804
0717 B932
0719 94DA

071B
071C
071D
071F
0720
0721
0722
0724

0725
0727
0729
072B
072C
072E
0730

FC
37
0301
AC
FD
37
1300
AD

B804
B930
94DA
E5
E632
BE10
E436

0732 FC
0733 0311
0735 AE
0736 FE
0737 :}63B

0739 E475
073B
073D
073F
0741
0742
0744
0745
0746
0747

F497
BC3A
F4AD
27
Ba26
AO

FE
AC
B4FS

2503

:!504
2505
2506
2507
2508

2509

SOURCE STATEM:ENT

om..
nov
nov
ADD
nov

A,R4
R4.A
R0,#CKSmt
A,@R0

; UPDATE

~R0.A

CBEcxsun

RET

;; *-*-*-*-*-*-*-*-*-*-*
.
WRITE 'MY (DUMP): ; 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:

WRI3:

SEL
CALL
CALL
CALL
SEL
CALL

MBl
GEXI'Y
G2PRM:

;GET FIRST ADDRESS

WRKIA

Ma0·

LEAD

; COllPUTE RECORD LENCTH
l'IOV

nov

SEL

M,#O
R4,#16

ron

; (PTRIVID = ( PTRIVID + (PTR2L/ID
l'IOV

nov

CALL

R0,#4
Rl,#WRKL
ADDBL

; TWO'S COMPLEMENT R4, R5

nov

ADD

nov

A,R4
A
A,#l

MOV

R4,A
A.M

CPL

A
A,#0
M.A

CPL

ADDC

nov

; ( PTRIVHJ = (E'TRIVH) + (P'l'R2VH)
.nOV
MOV

CALL
SEL
JNC

l'IB0

JMP

WRIS

nov

A,R4

l'IOV

R6,A

JNZ

nov

A.R6
lffl.19

jpjp

WR.!6

CALL

CRLF
R4, #':'

CALL
CUt
!'lOV

TYPO

nov

WRI4:

ADD

lffl.I5:

R0,#4
Rl,#WRKIL
ADDBL
WRI4
R6,#16

; RECORD LEN

<

16

; RECORD LEN = 16

A,#l?'

; ZERO RECORD LEN, ALL DONE

WRI9:

nov

nov
~10V

!'lOV
CALL

; PUNCH CR, LF

A
R0 , #CKSUJ.I{

@R0,A
A.Ro
R4.A
PBYTE

; CLEAR CBEexsuM
; PUNCH RECO!u) LENCTII

PACE

ISIS-II MC5-48/UPI-4l Jf4CRO ASSEl'lBLER, V2.0
PROlfPT-48 SYSTEl'I l'1ONlTOR V3.0 6MBZ
LOC

0749
074B
074D
074E
0750
0751
0752
0753
0754
0756
'0757
0758
075A
075B
075C

OBJ

B832
B904
F5
M88
E5
2C
2D
2C
MFS
2D
2C
84F8
27
AC
MF8

075E F5
075F 84A8
0761 E5
0762· AC
0763 B4F8
0165 F5
0766 B4FD
0768 E5
0769 EE5E
076B B826
076D F0
076E 37
076F 17
0770 AC
0771 MF8
0773 E410

0775
0777
0779
077B
077C
077£
077F

F497
BC3A
F4AD
27
B826
A0
BE03

0781
0783
0785
0787
0789
078B
07SC
078D
078E
078F
0791
0793
0795

BC00
84F8
EE81
BC01
B4F8
F0
37
17
AC
MFS
F';97
D459
2451

SEQ.
21$10
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2335
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2346
2547
2548
2549
2550
2551
2552
2t:i53
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571

." ..

SOURCE STATEl'JENT
; MOVE ADDRESS VALUE FROM WRXI/R TO R4/R5 ZERO MS NIBBLE AT R5

WRI7:

MOV
MOV
SEL
CALL
SEL
XCH
XCR
XCH
CALL
XCH
XCH
CALL
CLR
MOV
CALL

R0. #WRXL
Rt,#4
Mal
MVREG
Ma0
A,R4
A,R5
A.R4
PBYTE
A.R5
A,R4
PBYTE
A
R4.A
PBYTE

SE!.
CALL
SEL
MOV
CALL
SEL
CALL
SEL
DJflZ
MOV
NOV
CPL
INC

MSl
FEWRX
Ma0
R4.A
PBYTE

nov

l'lRI6:

CALL
J:MP

r:ml

IrnlRK

MBO

R6. WRI7
R0,#CKSUl'I
A.@R0
A
A
R4,A
PBYTE

0797
0799
079B
079D
079F

BeOD
F4AD
BCOA
F4AD
83

f

PUNCH HI ADDRESS

; PUNCH LOW ADDRESS
; PUNCH RECORD TYPE
;GET DATA
; PUNCH DATA
; INC POI'NTE..'1.
; CONTINUE TIL RECORD liRl'I"I'EN

; PUNCH

CHECKStJ1II

l'I"RI3

; PUNCH END OF RECORD WUlK
CALL
1I10V

WRI8:

CALL
CLR
MOV
MOV
1Il0V
MOV
CALL
DJ1'fZ
MOV
CALL
NOV
CPL
INC
1I10V
CALL
CALL
CALL
JlIlP

CRLF
R4,#':'
TYPO
A
R0,#CXSUM
@R0.A
R6,#3
R4,#0
PBYTE
R6, WRl8
R4,#1
PBYTE

; CLEAR CBECESUM

1 PUNCH

RECORD TYPE

A,@R0

A
A
R4,A

PBTIE

;PUNClI

CHECKSUM

CRLF

LEAD

CMDLV

;*-*-*-*-*-*-*-*-*-*-*
; PUNCH CR, LF ON TTY PUNCR

I'\1!!t''''''''''' I

2573
2574
2575
2576
2577
2578
2579

36

;REG USED: A,RO.R4,P2

;REG MODIFIED: A,RO,R4,P2
; NESTING: 1
,
CRLF:
R4.#CR
NO';
TYPO
CALL
R4,#LF
2589
nov
2581
TYPO
CALL
2582
RET

;ALL DONE

ISIS-II MCS-48/UPI-41 MACRO ASSEl'fBLER. V2.0
PROHPT-48 SYS'I'EP! MONITOR V3.0 6MB.Z

LOC

OBJ

87A9 2328
07A2
87A4
07A5
07A7

F4A8
07
96A2
83

07A8 BAC8

87AA EAAA
87AC 83

07AD C419

87M B821

87Bl
07B3
0785
07B6
07B8
07BA

9AF0
8A08
80
5302
CoBC
23FF

07BC 83

07DC

07DC F5
07DD 84F2
07DF F5
07E0 64FA
07E2 A4Cl
07E4 F5
07Eo 8423

SEQ.
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
26048
2649
2650
2651
2652
2653
2654.

PAGE

3T

SOURCE STATEl'JEl'M'

;*-*-*-*-*-*-*-*-*-*-*

; DELAY <10. MILLISECONDS
;
; REG USED: A, R2
;MG 'MODIFIED: A,R2
; NESTING: 1
;
DELAY:
DEL3:

nov

A, #40

CALL
DEC
JNZ
RET

DELI
A

DEL3

DELI:
IF NOT SY3MHZ
MOV
ELSE
ENDIF
DEL2:

;1

nov

DJNZ
RET

ns

; 1 liS

R2,DEL2

;5 US

;*-*-*-*-*-*-*-*-*-*-*

;EXTERNALLY REFERENCED ROUTINE
; PUNCH OUTPUT CODE, VALUE EXPECTED IN R4
;
;MG USED: A,R0,P2
;REG MODIFIED: A,R0,P2

;NESTING~

;
TYPO:

6

JHP

TYCO

; PUNCH OUTPUT

;*-*-*-*-*-*-*-*-*-*-*

; EXTERNALLY REFERENCED ROUTINE
;CONSOLE INPUT STATUS CODE
;
;REG USED: A,R0,P2
;.REG MODIFIED: A,R0,P2
; NESTHrG: 0
;
TYCSTS:
l'IOV
R0,#USACT
P2,#MSKPG
ANL
P2, #l'lEIOU
om.
A,@RO
MOVX
A,#IUU)Y
.<\Nt.
CSI
JZ
A, #TRUE
NOV
CS1:
RET

INPUT CONSOLE STATUS
CHECK FOR RECEIVE BUFFER READY
RET FALSE IF ON DATA
; RETURN

;*-*-*-*-*-*-*-*-*-*-*
ORG

(BOOH - 36)

;ALIGN AGAINST TOP OF 2K

; El'ITRY VECTOR TABLE FOR MONITOR ROUTINES
ELK:

ENREF:

REFS:
KBST:

SEL
JMP

Mal
BLANK

SEL

~ml

JI1P

ENRFS

; ENABLE EAi' INTI:RRCPTS FOR
;DISPLAY REFRESH

JHP

REFSII

;REFRESH DISPLAY

SEL

MDl

JMP

KBSTS

;BLAnK DISPLAY

;GET KEYBOARD STATUS

PAGE
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

38

SOURCE STATnIEl'fT

2656 KanT:
2657
SEL
MBI
2638
JMP
GTEEY
;GET KEYBOARD ClIAR
2659 DBIN:
2660
.SEL
MBl
2661
J'NP
GETl
; GET ICEYBOARD ClIAR
2662 DGOUT:
2663
SEL
MBI
2664
DTBLU
Jl'iP
;UPDATE DISPLAY WIm 7 SEC CIIA.R
2665 BXOUT:
2666
SEL
MBI
2667
J'NP
DECBX
; DECODE HEX CHAR TO 7 SEG
2668
;AND UPDATE DISPLAY
2669 DGSTC:
2610
SEL
MBl
21;71
UDDFL
JMP
;DECODE HEX STRING TO 7 SEG
2672
;AnD UPDATE DISPLAY
2673CSTS:
2614
; TrY STATUS
TYCSTS
2613 CI:
2676
J'NP
TYCI
; TrY CONSOJ,.E IN
2677 CO:
2678
JHP
nco
; TrY CONSOLE OUT
2679 RI:
2680
RIOS
; 'tTY READER IN
2681 PO:
2682
; 'tTY PUNCH OUT
JMP
TYPO
2683
2684 t END TABLE
2683 ;*-*-*-*-*-*-lfC-lfC-lfC-lfC-lfC
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
10000000B ;ORIDT TEST
2694 PROG
EQ.U
01000000B ;PROG PIN
2695 EA
EQU
00100000B ;EA PIN
00010000B ;VDD PIN
2696 VDD
EQU
2697 RST
EQU
00001000B ;RESET PIN
2698 T0
EQU
00000100B ;T0 PIN
2699 DUTDEN EQU
00000000B ; DUT DATA ENABLE
00000001B ;DUT DATA IN
2700 DUTDIN EQU
00000001B ; PROM PROCBAMINC ENABLE
2701 PROMEN EQU
2702 ;
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
CALL
ORIENT
2712
2113 ;DEVICE ORIENT IS OK EA IS ON AND PBO:MEN IS ON
2714
2713 FETI:
2716
;GET DUT DATA
CALL
GDUTD
2717
STOWE:
;STOfIE DATA IN EXT RAM
CALL

2718

CALL

INWIQ

; INCRU.!E.1"fT ADDRESS

CWKWl
;CK FOR DONE
2719
CALL
2720
2721 ; IF ADDRESS > UPPER Lll!lIT TBE1T ALL DONE
27,22
2723
JC
FETl
; GET NEXT BYTE
2734
; CHECK PROM DATA
PRG4
CALL
2725 ,
.rnP
CO~lP6
27'26
2727 ;*-*-*-*-*-*-*-*-*-*-*
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
LOC
081F
081F
0820
0821
0823
0824

OBJ

00
00
2304
E5
0428

0826 2304
0828 83

0829
082A
082B
082D
082E
082F
0830
0831
0832
08C4

FC
AB

145B
FB
2C
AE
DC

97
C635
A7

0835 83

0836
0838
08SA
083C
003D
083F
0841

0842
0844
08406
0848
084A
084B

084C
084E
0850
0852
0854
0856
0857
0859
085A

5842
9AF0
8A00
80
5304
4301
90

2304
ll42C
541D
B840
80
AC

2304
542C
B842
9AF0
8M8

80
53<34
90

83

SEQ
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
·2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801

PAGE

39

SOURCE STATEl!IENT
ORG

nop

NOP

;CKMB:

8IFR

~IOV

A.#4

SEL
JMP

MBO

MBIRT

MOV
RET

;*-*-*-*-*-*-*-*-*-*-*

; VERIFY DUT DATA WITH l!JEmRY DATA
;
;REG USED: A.RO,Rl,Ra,R5.R6,P2
;REG MODIFIED: A,RO,Rl,R3.R5,R6,P2
; NESTING: 3
;
VERIFY:
;GET 1'!EM: DATA
MOV
A.R4
~IOV
; SAVE
Ra.A
;GET DUT DATA
GDUTD
CALL
A,Ra
MOV
; RESTORE MEM DATA
A,R4
XCR
R6,A
MOV
; COMPARE DATA
XRL
A.R4
;NO ERROR
CLR
C
JZ

VERI:

CPL

VERI

C

; ERROR

RET·

;*-*-*-*-*-*-*-*-*-*.*

; FETCH DATA FROM DUT
;
;REG USED: A,R0.R4.R5.P2
;REG MODIFIED: A,R0,R4.R5.P2
; NESTING: 1
;
FEDUT:
R0,#PPIPC
MOV
P2,#MSKPG
ANL
; SELECT MEM PAGE
P2.#MEIOU
ORL
A.@R0
MOVX
A, #4
;SAVE MS ADDR BIT
ANL
A.#(DUTDEN + DUTDun
ORL
@R0,A
;SET BUS TO INPUT
MOVX
; TOGGLE B IT IN CONTROL WORD AND PORT

mv

CALL
CALL
HOV
MOVX
MOV

A,#TO
TOGROU
D20US
RO, #PPIPA
A,@R0
R4,A

;20 US DELAY
;GET DUT DATA
;SAVE DATA

;TOGGLE BIT IN CONTROL WORD AND PORT
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

;*-*-*-*-*-*-*-*-*-*-*

;SAVE I1S AnDR BIT

;SET BUS TO OUTPUT

; ALGORITIIE.M FOR FETCHING DATA FROM THE DUT
,
;REG USED: A.R0,Rl.R5.P2

IS IS- II !lCS-4&ftJPt-41 l'l'ACRO ASSDlBLER. V2. e

va. 0

PBOMPT-48 SYS"fE1II rfDIUTOR
LOC

085B
0850
085r
0861
0863
0865
0867
0869

OBJ

146A
5410
5426
5410
1436
5425
5426
83

086A
086C
086E
0870
0872
0873
0875
0876
0877
0879
087!\.
087B
0870
087E

8842
B92F
9AF0
8A08

0880
0881
0882
0883
0884
0885

90
C8

rl

5304
90
FD
53FC
AD
FI
5303
40
AD

087F C8
C9
rl

90

83

SEQ.
2882
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
.2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2849
2841
2842
2843
2844
2845
2846

PAGE

48

6l'UJZ

SOURCE STA'l'E1'WI I
;BEG lIODIrIED: A.R0.Rl.R5.P2

; NESTING: 2
;

GDUT»:

; ADDRESS T.BE OUT
;20 US DELAY
I RELEASE RESET

ADDtlT

CALL

CALL

D20US

TOGttST

CALL
CALL
CALL
CALL
CALL

D20US

;20 us DELAY
; GET DATA FROM OUT
; 10 us DELAY

rEDUT

Dleus
TOGRST

RET

;GROUND RST

;*-*-*-*-*-*-*-*-*-*-*
I WRITE ADDRESS TO DtlT
;

;BEG USED: A.R0,Rl,RS,P2
;REG NODlrIED: A,R8,Rl,RS.P2
; NESTING: 0

;
ADDtlT:

R0,#PPIPC
Rl,#WRK2H
P2.#PJSKPG
P2,#MEIOU
A,eR!
A,#4
@Re,A
A,RS

HOV

NOV

ANt.

Om.

NOV
ANL

mvx
NOV

; SELECT l'!EM PAGE
;GET ADDR HI
;SAVE MS ADDR BIT
; SET BUS rOR OUTPUT

A,#0rCH
R5,A

ANL

NOV

mv

A,ORl

I

DEC
:MOVX

DEC

RO
OR0.A
R0

IOUTPUT HI ABna. AND COl'M."ROL

DEC

Rl

GET ABDR 111
; lfASlC TO 1K
; l'lASK IN DUT CONTROL

A,#3
A,R5
R5,A

ANt.

Om.
nov

nov

A,i!DRI
@ROtA

MO\'X
RET

; GET ABDR LOW
; OUTPUT ABDR LOW

;*-*-*-*-*-*-*-*-*-*-*
;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

0886 14CD
0888 B90r
088A B495

e88e 882A
088E 2303
0890
0892
0894
0896

B964
MA3
B802

BA00
0898 0410

089A 9488
089C 74D6

089E CB

089F 74C3

08Al B832
G8A3 B92E

2851 ;
2852 ORIEN'r:
2853
CALL
2854
NOV
2855
CALL
2856
2857 ;SET PTRIVlI
2858
PIOV
2859
2860
MOV
2861
NOV

2862
2863
2864
2865
2866
2867

2868

CALL

NOV

nov

CALL
CALL

CALL

ORI3

RI.#0F11
SEULX
11

VAL/VAll

Re,#BASEL
A, #0
Rl,#MEPG4
PRSET
Ra,#2
R2,#0
PUSH

; FROl!1 ABDR

GAODR
GTP5

DEC
Ra
2369
G'TP3
CALL
2870
2871 ; IF DEL :: EliD TBEN PROl!1 ABBR
2872
RO,#WRXL
2873
l'10V
Rt , #If"R.TCZL
2874
l'1OV

;TO ADDR
2'

FROM: ADDR

... - i

ISIS-II MCS-4&'UPI-41 lfACRo A.,.CilSEm3LER. 'V2.0

PROMPT-48 SYSTElI MONITOR V3.0 6MBZ
LOC

OBJ

08A5
08A7
08A8
08M
08AC

8488
FE
C6B0
B907

B495

08AE 74D0

08B0 B832
0882
08B4
08B6
08B8
08BA
08BC
08BE
08C0
08C2
08C3
08C5

B92C
8488
B82E

B927

B4sa
BD08

B446

4301
90
D49F
C6CA
08C7 4301
08C9 90
08CA 542A
08CC 83

08eD B42E
08CF BDOF

SEQ.

MVREG

A,R6
ORI6
Rl, #ft!EPG7

SEULX

> 2K TlIEN ERROR
GTP0

;PROM ADDR

R0.#WRKL
Rl,#WRK3L
MVREG
R0,#WRK2L
Rl,#BIASL
MVREG

R5,#RST
INII
A,-PROMEN

; INITIAL CONTROL STATUS

@R0,A
WRKIA
ORI7

; ENABLE PROM ACCESS

@RO,A

; ENABLE PROM ACCESS

CALL
RET

TOGEA

;EA PIN TO HI V

CALL

INI1'1'I
R5,#OFH

2900 GRI7:
2904

A,-PRONEN

08D1 BF02
08D3 5426

2905
2906
2907

08D5 2380
08D7 542C

2909
2910 ;TOGGLE BIT IN CONTROL WORD AND PORT
2911
A,#ORTST
2912
MOV
2913
TOGROU
CALL

08D9
08DB
08DD
08DF
08E0

2308
5421
B80B
80
F2ED

08E2
08E4
08E6
08E8

2380
5420
EFD5

B4ZE

08EA E5
08EB 04FE

08ED B42E
08EF 8a

08F0 B929
08F2 Fl
08F3 83

08F';'
08F6
08F8
08FA

B80B
9AFO
8A08
80

2908 ORI2:

41

SOURCE STATEI1E..."lT

2875
CALL
2876
MOV
2877
JZ
2878
MOV
2879
CALL
2880
2881 ; IF PRON ADDR
2882
2883
CALL
2884 ORI6:
2885
mv
MOV
2886
.2887
CALL
2888
MOV
2889
~IOV
2890
CALL
2891 ORI4:
MOV
2892
.2893
CALL
2894
ORL
2895
MOW
2896
CALL
2897
JZ
2898
ORL
2899
MOVX
2901
2902
2903 ORI3:

PAGE

MOV
MOV
CALL

R7,#2

TOGRST

2914

; NUJ.I1BER OF TRIES
; RELEASE RESET

2915 ; ORIENT = 1
2916 ;DELAY A MULTIPLE OF 10 MICROSECONDS
2917
A,#8
2918
MOV
2919
;80 US DELAY
CALL
USTIME
RO,#HeRST
MOV
2920
A,@R0
2921
; GET STA.TUS
MOVX
2922
JB7
ORll
; IF ORIENT OK
2923
2924 ;TOGGLE BIT IN corITROL WORD AND PORT
2925
A.,#ORTST
MOV
2926
2927
CALL
TOGROU
;ORIENT = &
;TRY AGAIN
2928
R7,ORI2
DJNZ
2929
CALL
INI1'PI
2930 ORIS:
SEL
~mo
2931
2932
JMP
ERROR
2933 ORl1:
2934
INIPPI
CALL
2935
2936 ;DEVICE ORIENT IS OK
2937
RET
2938
2939 cnID:
Rl , #E.L"'IODE
; GET PROGl'tIW:ING HODE
2940
MOV
A,@R!
2941
~OV
2942
RET
2943 CX]):

2944

MOV

2945
2946
2947

ANL

Om..
MOW

R0,#M:CHST
P2, .... ~!SKPG
P2,#MEIOU
A,@RO

PAGE

ISIS-ll MCS-4&'UPI-41 ~.ACB.O ASSDfBLER, W.0
PROl'JPT-48 SYSTEl'1 IroN ITOR va. e 6MBZ
LOC

OBJ

08FB 83

0SFC 8829
08FE A0
08FF 1486

0901 14F~
0903 9660

0905
0907
0909
090B

090D
090F
0911
0913
0915
0917
0918
0919
09lA
091B
091D
091F
0921
0923
0925
0927
0929

L

B834
23EF
8903
B4A3

9AF0
GA01
B800
B933
BF0D
F1
90
C9
18
EF17
BaF0
B9D7
BF10
B4F1
BF0A
B934
B833

092B
092C
092D
092E
092F
0930
0932

F9
A3

0934
0935
8936
0937
0938
0939
093A
093B
09ac
093D

01
F0
01
FF
03
F0
01
F0
00
00

093E
0940
0942
0943
0945
0947
0949

B829
2301
AO
B62E
B927
B488
3464

A0

co
19
EF2B
243E

SEQ
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003

SOURCE STATEm!lfr
RET

;*-*-*-*-*-$-*-*-*-*-*

; PROGR..uf/VERIFY (BURN>: ;THIS COMMAl"m' INITIATES THE PROM PROGRAl'IMING.
THE
;PROGRAM BUFFER SPECIFIED liILL BE PROGRA.MMED INTO THE
;PRON, AND SHOULD BE SUITABLY MODIFIED BEFORE
;EXECUl"ION OF THIS CO~~.
;
PRPRO:
MOV
R0.-EMODE
@R0,A
MOV
ORIENT
CALL
;DEVICE ORIENT IS OK
CALL

JNZ

!IOV
MOV
~IOV

CALL

CKMD
PRG6

R0,-UPLML
A,#0EFH
Rl,#MErG3
PRSET

;PUT PROG UfFO IN Ext RAK

ANL
ORL
MOV
MOV
PRG?:

mv

MOV
MOVX
DEC
INC
DJNZ
MOV
MOV

MOV

CALL

MOV
MOV

PRGS:

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

MOV

R0,#~'RKR

MOV
DEC
INC
DJNZ
JflP

A.R1
A,@lA
@R0,A
R0
Rt
R7,PRGS
PRG9

DB

l,OFOH.l.0FFR.3,oF0H

DB

l,0F0H,0,0

MOV
!IOV

R0 • #EI'10DE
A.#D8741
@R0,A
R0,#WRK2L
Rl,#BIASL

CALL
CALL

PRGS

r10VP

MOV

ProrI'BL:

3005 PRG9:
3@06
3007
3008
3009
3012

EA IS ON AND PROMEN IS ON

; SET PTRIVH = VAL/VAH

3004

3010
3011

42

r'10V

MOV
~!OV

~1VREG

---- - -- ISIs-n MCS-4tVOPI-41 lIACM ASSDIBLE!l, W ••
PROMPT-48 SYSTEl'l MONITOR V3.0 6MB:Z

PACE

43

SOURCE STA'1'E1'!ENT

LOC

OBJ

SEQ

094B
894D
094F
0951
0953

B933
B800
BF0D
9A.F0
8A0t

0955
0956
0957'
0958
0959
095B
09tSD
095F

88
Al
C9
18
EF55
B829
2300
A0

RI,#WRXB
3013
MOV
U,#0
3014
MOV
R7, #( ( lilUaI- B lABU + 1)
MOV
301:5
P2, #l'1SKPG
3016
AlI'L
P2,#MEPGI
3017
ORL
3018 PRete:
A,@M
3019
MOVX
@RI,A
3020
MOV
. Rt
DEC
3021
3022
INC
R.8
3023
R1.PRG10
DJl.'fZ
R0,#EMODE
MOV
3024
A.#D8748
MOV
3025
aR0,A
3026
MOV
3027 PRC6:
3028
CALL
PRG5
CmIP6
3029
J~IP
3030 PRGS:
3031
FElIRK
CALL
R4,A
3032
MOV
3033
3034 ; IF PBOlII DATA '" MEM DATA THEN SKIP
3035
3036
VERIFY
CALL
3031
JNC
PRG2
3038
3039 ; IF D8155 THEl'f IF PRO!! DATA <> 0FFH THEN ERROR
3040 ; ELSE IF PROM DATA (> 0 THEN ERROR
3041
c:ta!D
3042
CALL
RI,#0FFR
3043
MOV
PRell
JBI
3044
RI.#0
3045
MOV
3046 PRGll:
A,Rl
3047
XClI
3048
XJ.U.
A.R6
3049
JNZ
PRGI2
A,RI
3050
MOV
3051
3052 ; IF D8748 TBEN IF PROM ADDR MSIt IX >: 3F0H THEN SKIP
3053
3054
J1'fZ
PRe13
R0.#WRI<2L
3055
nov
Rl,#6
3056
MOV
3057
nvREG
CALL
MOV
A,R1
3058
A,#3
3059
ANL
R7,A
3060
MOV
R0,#6
MOV
3061
Rl,#UPLlfL
MOV
3062
3063
CKDBL
CALL
3064
JI'TC
PRC2
3865 PReI3:
;# OF FIRST PASS nuFS
3066
MOV
;# OF SECOND PASS TRIES
3067'
nov
3068 PRel:
; SAVE COUl'ITER VALUES
PUSH
3069
CALL
; ADDRESS Dtrr
ADDtrr
CALL
3070
;20 us DELAY
D20US
CALL
3071
; RELEASE RESET
CALL
3072
TOGRST
; 10 us DELAY
D10US
3073
CALL
;OUTPtrr DATA TO Dtrr
3074
CALL
WRDtrr
3075
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

0960 3464
0962 24E9

0964 B4AS
0966 AC

0967' 1429
8969 E6CE

896B
096D
096F
897'l

14F8
B9FF
3273
B900

097'3
097'4
097'5
097'7

29
DE
96BC
F9

097'8
097'A
0ne
097E
0980
0981
0983
0984
0986
0988

968C
B82E
8906
84188
FF
5303

Al'
8806
8934
84162
M8A E6CE

098C BA01
098E BB01
0990
0992
0994
0996
0998
099A

0410
146A
341D
5426
5425
5436

099C
099E
e9A0
09A2
09A4
09A6

2310
542C
5425
BFCH
54GA
5425

------.

ISIS-II MCS-+8.IUPt-u lUCRO ASSEMBLER. V2.0
PlWPJPT-48 SYS'I'Ell MONITOR V3. 0 6m!Z

LOC

OBJ

09A8
09AA
09AC
99AE
09B0
09B2
0984
09B6
09B8
09BA

2310
342C
5426
5425
1429
E6CE
0422
EA.90
BAOI
EB90

098C AS
09BD 542A
09BF B42E

09Cl
09C3
09C5
09C5
09C7
09C9
09CB
09CC

B92F
9476
FE
AC
947C
76FE
E5
2405

09CE B4F9
09D0 B452

0902 F664
09D4
09D6
09D8
09DA
09DC
09DE

B82C
B932
B4G8
B327
B92E
D48a

09E3 AS
09El 24F0

09E3 1486
09E5 A5
09E6 B5
09E7 34F0
0~E9 542A
09EB B42E
09ED E5
09EE 2451

09FO
09F2
09F3
09F5

B4A8
AC
1';29
F6BD

09F7 B4F9
09F9 B452
09FB F6F0
I!i~FD

83

09FE 545F

SEQ.
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3 140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
31:56
3157
3158

PAGE

44

SOURCE STATEMENT

PRG12:
PRG3:

MOV
CALL
CALL
CALL
CALL
JNC
CALL
DJNZ
MOV
DJrfZ

A.#VDD
TOGROU
TOGRST
D10US
VERIFY
PRG2
POP
R2,PRGl
R2,#1
R3,PRGl

CLR

Fl

CALL
CALL

TOGEA
INIPPI

;WD PIN TO 5 V
;RESET DEVICE
; 10 US DELAY
; CK DUT DATA WITH m:M DA.TA
;PROGRAMED OK
; GET COUNTER VALUES
;TRY 1 TIME
; TRY 1 TIME, 1 TIME MORE

;EA PIN TO 0 V

; DISPLAY ADDRESS OF ERROR
~IOV

CALL

nov

PRG2:

MOV
CALL
JFl
SEL
JMP
CALL
CALL

R1,#WRX2H
DADDFL
A,R6
R4,A
DDTFD
COMP4
MBO

ERRW

INWK2
CWKWI

;WILL NOT PROGRAn
; INCREMENT ADDRESS

. ; ex: FOR DONE

; IF ADDRESS > UPPER LIMIT 'l"BEN ALL DONE
PRG4:

JC
MOV

nov

PRG5
R0,#WRK3L

CALL
NOV

Rl,#WRKL
MVREG
R0,#BIASL
Rl,#WRK2L

CALL

MVREG

nov

; PRGG NEXT BYI'E .

;COl'fPARE PROM
CLR
JMP

Fl
COMP2

;*-*-*-*-*-*-*-*-*-*-*
; COM' ARE PROM

;
COMPX:

CALL
CLR
CPL

ORIErrT
Fl
Fl

CALL

COMP2

CALL
CALL
SEL

TOGEA

CO~lP5:

COMP6:

COl'lP2:

J~lP

CALL

nov

COr1Pl:

COrlP4:

CALL
JC
CALL
CALL
JC
RET
c...\LL

INIPPI
UB0
crmLV
FE'WRK
R4,A
VERIFY
PRG3
INWl{2
C'i1Kwl

COMP2

WAIT2

.....

----.
ISIS-II acs-.......UPI-41 l'IACRO ASSErlBLER.
PROl'JPT-48 S~ MOlfITOR V3.0 6MBZ
LOC

OBJ

eA0e 14CD
eM2 14BC
eA04 24F7

w.e

SOURCE STATEl'fENT

3159
3160
3161
3162
3163

CALL
CALL
J!!P

ORI3
ORI4
COMPI

;*-*-*-*-*-*-*-*-*-*-*

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

eA06 230A

3174 IF NOT SY3r1BZ
3177

nov
nov

3179

CALL

3175

3176 ELSE
3178 ENDIF
eA08.5421

; 0.1 l"!S DELAY

USTIME

3180 PULPROC:
3181

3182 ;TOGGLE BIT IN CON'lltOL WORD AND PORT
3183

MOV

eA0A 234e
eAOC 542C

3184

eME B814

3187
3188 ELSE

3185
CALL
3186 IF NOT SYSMBZ
3189

0A10 23FA
0A12 5421
eA14 EB10

230100

542C
EF06

83

nov
nov

3190 ENDIF
3191 PUL2:
3192
3193 ;DELAY A MULTIPLE OF 10 mCROSECONDS 3194
A,#250
3195
MOV
;2.5 lIS DELAY
3196
CALL
USTIME
Re,PUL2
3197
DJNZ
3198
3199 ;1'OCCLE BIT IN CONTROL WORD AND PORT

3200
0A16
0A18
0AIA
0AIC

A,#PROG

TOGROU

3201
3202
3203
3204
3205
3206

nov

CALL
DJl'fZ

A,"'PROG

TOCROU

R7 ,PULl

RET

;*-*-*-*-*-*-*-*-*-*-*

3207 ; DELAY ROUTINE

0AID 00
0AIE 00

0A1F 4425

0A21 07
0A22 C0

0A23 9621
0A25 83

; TOTAL DELAY =  THIES 10 nIcnosECOImS
;
;REG USED: A
;REG MODIFIED: A
;NESTING: 0
;
D20US:
IF NOT SY3MBZ
3216
NOP
3217
NOP
;26 us DELAY
3218
JUP
Dleus
3219 ELSE
3220
RET
3221 ENDIF
3222 USTU1E:
DEC
3223
A
3208
3209
3210
3211
3212
3213
3214
3215

32243225
3226
3227

3228
3229
3230
3231

nop

Dums:

JNZ

USTUIE

; 10

RET

*-*-*-*-*-*-*-*-*-*-*
THIS ROUTINE WILL TOCCLE

us

DELAY

A BIT OR BITS IN T3E PROOllAl!
. TIlE COl'fTROL WORD

CONTROL WORD '-As DEF I NED BY

....J

-ISIS-II l'ICS-48/OPI-41 MACRO ASSEMBLER, W.0
PRDHPT-48 SYSTEM MOl'fITOIl W.8 6ImZ
LOC

OBJ

0A2A 2320
0A2C B841
8A2E9AFe
eA30 8A98
0A32 DD
0A33 AD
0A34 90
0A35 83

0A36
0A38
OA3A
0A3C
0A3D
0A3F
0A40
·0A42
0A43
0A44.

B842
9AF0
8A08
80
5304
90
B848

FC
9~

83

SEQ
3232
3233
3234
3235
3236
3237
3238
3239
324.0
3241
3242
3243
324.4
324.5
324.6
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276

PAGE

46

SOURCE STATEl'JEN I
; WILL. BE OUTPUT TO PPIPD AND  WILL BE UPDATED
;
;EXPECTS: BIT SET IN 
;
;REG USED: A.R8.R5.P2
;REG MODIFIED: A.RO.M.P2
; NESTING: 0
;
TOGRST:
A,#RST
mv
; 1'OOOLE RESET P Ilf
TOGROU
JmP
TOGEA:
; TOGGLE EA PIN
TOCROU:
R0,#PPIPB
mv
P2.#MSKPG
AN!.
P2.#}1EIOU
;SELECT MEllI PAGE
ORL
; TOGGLE THE BIT
A.R5
XlU.
M,A
mv
;SAVE STATE
10UTPUT CONTROL
l'lOVX:
GRO.A
~

;*-*-*-*-*-*-*-*-*-*-*

r WRITE DATA TO DUT

;
; REG USED: A. RO. R4. P2
;REG MODIFIED: A.R0.P2
; NESTING: 0
;
WRDUT:
mv
R0,-PPIPC
P2,#MSXPG
AN'L
P2.#l'1EIOU
ORL
!IOVX
A.@R0
A,#4
AN'L
l'lOVX
aRO.A
Re,#PPIPA
MOV
HOV
A.R4
l'lOVX
aRe. A
RET

;SELECT lI1El't PAGE

;SAVE MS ADDR 'BIT
; SET BUS TO OUTPUT
;OU'l'PUT DATA

;*-*-*-*-*-*-*-*-*-*-*-*-*-~*-*-*-*-*-*-*-*-*-*-*

;

;END OF PROG~ ROUTINES, BEGINNING OF MONITOR SUBROUTIl'tES

;

3277 ; *-*-*-*.-*-*-*-*-*-*-*-*-*-*-*-~*-*-*-*-*-*-*-*-*
3278 ; ENTRY LEVEL ROUTINE FOR GO AND SNGL STP COMMA."mS

3279
3280
3281
3282

;
;REG USED: A.R8-R7,P2.FO
;REG l'lODIFIED: A,RO-R7.P2.F0
; NESTING: ..

3283 ;
3284 GOSUS:
3285

0A47
0A48
OMA
8A4B

37
324D
E5

24.51

0A1tD9AF0
0MF &01
0A51 E65C
0A53 B8C3
0A55 Fe

CALL

3286
3287 ; IF DEL
3288
3289
3290
3291
3292
3293 caSUI:

CPL

3294

AN!.

CADDil

;GET ADDRESS

= CLEAR ENTRY THEN ABORT
A

JBl

COSOl

JlIP

C!IDLV

SEL

MB0

; SELECT RAn l'lEmlRY PAGE 1
3295
ORL
3296
3297 ; IF ADDRESS ENTERED TBEl'l STORE IN USER {PC>
3298
3299
JNC
COSU2
331}0
3301 ;UPDATE USER 
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

LOC

OBJ

0AS6 90
0A57 FD
0AS8530F
0ASA 18
0A5B 90
0A5C 83

OASD

9~4

9A5'F
0A61
9A63
OA64

233F
Ba2S
A0
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

SEQ.
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
'3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368

PAGE

47

SOURCE STATDrel'IT
MOVX
MOV
A.NL

INC
MOVX

IltR0,A

;PCL

A.#0FR
RO
I!tRO,A

;PClI

A.as

GOSU2:

WAIT:

RET

;DISPLAY  AND 
WAIT2:

CALL

DIPCA

MOV

A,#'?'
R0,#PRBYTE
@RO,A

nov

MOV
CALL

GtTKB

;GET KEYBOABD DIG

; IF KB <> NEXT THEN GO TO COmrAl'fD, LEVEL WITH NEW COHl!AND
IF KB = NEXT THEN GO AGAIN

~

WAIT1:

ADD
JNZ
RET

A, #( -NEXT) Am> 0FFlI
WAITI

SEL

MB0
CMDEn

J!lP

; EXIT

;*-*-*-*-*-*-*-*-*-*-*

;EXAMINE / MODIFY ROUTINE

,
;REG USED: A.RO-R7,R24,R25,R31,P2
;REG MODIFIED: A,R0-R7,R24,R25,R31.P2
; NESTING: 6
;
El'lSUB :

CALL

GIPRM

CALL
CALL

EPISB3

;GET ADDRESS

E..."13:

DAFLD

; IF NEW DATA ENTERED 'l"BEn m:M( WRIO = NE"'rT DATA

D12:

JNC
CALL

EM:!

STOW!{

; IF NO DATA E1'ITERED

;CK DELIMITER AND ADDRESS
CALL
JC
RET

EMSB4
EMS

; NOT

DONE, DO NEXT ADDP.ESS

;*-*-$-*-*-*-*-*-*-*-*

;CK DELIMITER FOR ALL DONE
;CK ADDRESS FOR ALL DONE
;ALL DONE = (CY=0)
;
;REG USED: A,R0-R2,R24,R25.R31,F0
;REC MODIFIED: A,RO-R2,R24,R25,R31,70
; NESTING: 1
;

E..."1SB4:

CALL

POP

3369

3370 ; IF DELIl'lITER = EXECU'l'E THEN RE'I'UlUf (ALL DONE)

0A7F C68B

3371

3372
3373
33741
3375

IF DELlI'll 1'£1t = PREV 'l'HEIT DEC POIl'l'l'L."'t
ELSE INC POINTER

3376

IF WORK ADDRESS

3377

JZ

>

UPPER LHIIT TIlll:N" RETOnJ.1' (ALL OOl'fE)

-

-.

PAGE

ISIS-II l'IC8-48/UPI .... l MACRO ASsumLER. W.O
PROPlPT-48 SYSTErr PlONlTOR V3.0 6MBZ
LOC

OBJ

DASI 3287
DAB3 B4FD
DA8S A45E

DAB7 B475
0AS9 A4SE
DA8B 97

eASe 83

SEQ

3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392

48

SOURCE STA'l'EHtNT

JBl
CALL

EI'JB:

Em:

JMP

ElIB
INlIRIC
CWKUL

CALL

DEWRK

JlIIP

CWKUL

CLR

C

RET

;*-*-*-*-*-*-*-*-*-*-*
;RETURN A VALUE (0.1 OR

2) FOR TYPE BRANTCRING

;

;REG USED: A,R0.Rl.R6,R7,P2
;REG MODIFIED: A.R0,RI,R6.R7.P2
3393 ; NESTING: 3

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

92
DAAC 83

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

CALL

GTYPE

nov

R0 ,#ExrBL AND 0FFR .

CALL
RET

DTYPZ

CALL

GTYPE
R0. #GOTBL AND 0FFl1
DTYPE
P2.#MSKPG
P2.#HEPGl
R0,#MONRT
@R0.A

nov

CALL
ANL

ORL

nov

PIOVX
RET

nov
nov
novp
nov
nov

ADD

RET

A.R6

A,R0
R0,#DIPTR+6
A,@A
@RO,A
A,R6

DB

DCLCO, DeS,DCB

DB

DCPC,DCLCR,DCD

0AAB

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

3420 EXI'BL:

3421

3422 IF «SAME4 AND 0FF00H) LT ( S AND 0FF00ID)
3423 nov
A. SPERa ; SAI1E PAGE ERROR
3424 ENDIF
3425 GTYPE:

3426
3427

CALL

nov

3428
CALL
3429
3430 ;SET PTRIL/R
3431
nov
3432
nov
3433
3434·
nov
3435
CALL

3436
3437

nov
XBL

GETKB

RI,-OFR
SEULX

= VAL/VAX
RO,#BASEL
A,#0
RI. #l'lEPG4

PRSET
A.R6

A.#PRGKY

3438
JZ
GTY4
3439
3440 ;SET PTR1VR = VAL/VAll
3441

0AG3 B334
0AC5 2348

0AC7 B960
0AC9 B4A3

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

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

0AFC MAl
0AFE MAS
0B08 AC

0B01
0B03
0805
0B07'

947C
8410
0410
83

49

SOURCE STA'J."Elw.El'fT

SEQ

3447 ;SET PTRIVH = VAVMEPGl
3448
R8,#BASEL
mv
3449
nov
A.#RGPTR
3450
CALL
3451
SETPl
3452
MOV
A.B6
A.#BEGKY
3453
XRL
3434
J'Z
GTY3
3455
3456

I'IOV

3457
34G8
3459
3460
3461 GTYS:
3462
"3463
3464
3465
3466

3467
3468
3469
3470
3471
3472 GIT1:
3473

34B0
34Bl

Rl."MEPOO

CALL
CALL

SEULX

JZ

CTY5

NOV
CALL

SEULX

MOV

Re,#BASEL

CALL

SET00
A.R6
A,"DATXY'
GTY2

MOV

XRLJZ
MOV

CKASIO
Rl."MEPC3

A.R6

XRL
IN'Z

A,#PREV

J~

CMDLV

SEL
SEL

3474'
3475 CTY2:
34'16
34'17 GTY3:
3478
3479 GTY4:
3482

0AFA B833

PACE

GTYI
~m~

MBO

JMP

ERROR

INC

A

INC

A

nov

R6,A

RET

3483

;*-*-*-*-*-*-*-*-*-*-*

3502
3503

;*-*-*-*-*-*-*---*-*-*

3484 ; GET RAM DATA BYTE
3485 ;DISPLAY DATA IN DATA FIELD
3486 ; GET DATA BYl"E FROM KB
3487 ;SET UP FOR DATA ENTERED TEST
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:
R0,#WRIQI
3494
nov
3495
CALL
WRKA
CALL
3496
FElffiX
349'1
MOV
R4.A
CALL
DDTFD
3498
3499
GBYTE
CALL
lSAVE DELIlIJ:lTER
PUSH
3500
CALL
3501
RET
3504
3505
3506
350'1
3508

;MASK UPPER NIBBLE IN IUS
; ADD (R4, R5) TO CWRIQ./ID
; RET CY = 0 IF (llRKt..I'lI) ) (UPLm./U>
;
;REG USED: A.R0.Rl,R4.R5,F0
3509 ;REG ~DIFIED: A.R0,Rl.R5.FO
3510 ; NESTING: 1
0B08 FD
0B09 530F

0BOB AD

3511 ;
3512 El':ISB.1:

3513
3514
3515

. MOV
ANL

MOV

A.R5

A.#0FlI

as,A

3516

3517 ; ADD ADDRESS TO BASE ADDRESS
3~S18

OBOC 9400

3519

CALL

AliK45

; ZERO lS NIBBLE OF ADDRESS

_---.

IS IS- I I !lCs-M;'UP 1-41 KACl\O ASSEImLER.
PROl'!IPT-48 SYSTEl'l MONITOR w.e 6m1Z
LOG

OB.J

eBOE M5E

0BI0
0Bl1
0B13
0B15
OB17
0B18
0B19
OBIA
0B1C
OBIE
0BIF
0B21
0B23
0825
0827
0829
OS2A
0B2C
082E

05
7"'AA

C658
122F
27
90
F3
9423
F672
E5
Io'4AF
C619
D"'D8
5371'
C619
F5

74AA

2301
90

0B2F
0830
0831
0B32
0B34
0835
0836

FC
AF
E5
B825
F0
AC
D419

0838
0B39
083A
0B3C
0B3E
0840
0842
0843
0844
0845
0B46
0847
0B49
0848
084D
084F

F5
E5
F"'AI'
C638
D4D8
537F
AE
F5
FF
AC
FE
D2DC
7231
9253
8255
64DC

0851 9200
0853 8200
0855 15
0856 649D
0858 9AF0
085A 8M8
085C B809
0SSE 03

SEQ
3320
3521
3522
3523
352'"
3325
3526
3527
3328
3529
3330
3531
3332
3533
333'"
3535
3336
3537
3538
·3539
3540
3541
3542
35"'3
3544
35"'3
3546
3347
3348
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3366
3567
3568
3569
3370
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592

~.

e

SOURCE STATEMEl'IT
J!IP

CWKUL

;*-*-*-*-*-*-*-*-*-*-*

; EXI'ERNALLY BEFERENCED ROUTINE
;GET A DIG FR01'[ THE KEYBOARO
;RETmllf DIG III A AND SET 1'0 IF NOT HEX DIG
;
IBEG USED: A,Re,R6,1l7.P2
;BEG MODIFIED: A,RO,R6,R7'.P2
; NESTING: 1
;
GETm:
I
EN
Cf".ASIO
CALL
; KEYBOARD
GET!
.12;
;TrY PORT
JB0
GET2
CLK

GETS:

NOVX

SEL

CALL
JC
SEL
CALL
JZ

CALL

ANL

JZ

SEL

CALL

NOV
MOVX

A

@lRe,A
MBl
KBSTS

GTKEY

; KEYBOARD

MHO

TYCSTS'
GET3
TYCI
A.#7FlI
GET3
lOU
CKASIO
A,#1
@R0,A

CE'I2.:

;Gtt CHAR FOmt TrY PORT
MOV

NOV
SEL
MOV
MOV
MOV
KEn:

R7,A

CALL

SEL
SEL

MDI
MBO

CALL

CALL
ANL

MOV
SEL
NOV
MOV
MOV
.186
.183
JB4

,SAVE 1\4

MB0

R0,#PRBYTE
A,@RO
R"',A
TYCO

JZ

NT"':

A,Rot

TYCSTS
KEY2

TYCI
A.#7F1I
R6.A
MBl

; l'IASK PARITY

A.R7

R4.A
A,R6
GTP2
NT'"

; BESTORE R'"

NT5

JB5
J!IP

KOK
GTP2

.184

CTP2

JB5

GTP2

N'l'5:

KOK:

DIS
GET1:

KEY1:

I

JMP

ECKEY

ANL

ORL

nov

P2,#MSXPC.
P2, #~:IEIOU
R0,#KBDAT

EN

I

; SET UP XEnOARD P'I'R

....

.

ISIS-II rtCS-48I'UPI.... l lfAQ\O ASSEl!BLEll.

l'ROl'JPT-48 SYSTEl! HONlTOR.
LOC

OBJ

eB3F BF03
8861 15
8B62
8B64
8B6IJ
8B67
8869
8B6B
0B6C
8B6D
0B6E
8B78
0B72
9B73
9B?5
8B77
8B79

062
88

533F
963E
EF62
05
88

15
5330
C66B
US
9AY8

8A08
B809
BF02

0B?B BUA
8B7D EE7D
8B7F EF?8
0B81
8B82
0B84
0B83
0B81
0B89
8B8B

80
333F
AE

?28D
928F
8291
646B

8B8D 9281
8B8F 8281
8B91 'BFeA
8B93
8B94
8B96
8B9?
OB98
8B99
8B9B

80
533F
37
6E
17
9681
EF93

8B9D
8B9E
8BA8
8SA!
0BA2
8BA4

FE
532F

8BM
8BA7
eBAB
8BM

03FO
AE
93
83

0BM
OBAC
0BAE
0BB0
0BBl

9AF0
8A01
B8DD
88
83

AE
85

B2A5
83

va.e

SEQ

6l'JBZ

V2.e

PAGE

_.... ----- -'---' -. -'-'

51

SOURCE STA'I'D'IEl'IT

3593
R.? -5
NOV
3594
DIS
I
3595 KEY:
3596
R6.REY.
DJNZ
3597
A.OR0
MOVX
3598
AN'L
A.-3FB
3399
; WAIT TIL l'f0 KEY PRESSED
JlfZ
KEYI
3688
R7.KEY
DJNZ
3601 BOlEY:
3602
I
EN
3683
MOVX
A.OR8
3604
DIS
I
A,#3811
3605
UL
3606
NOKEY
JZ
3687 GTKEY:
3688
DIS
I
3699
P2.#m!lXPG
UL
P2,#MElOU
3619
ORL
; SET UP ICEYBOAlU) PTR
3611
R8,-ICBDAT
MOV
R.7,#2
3612
MOV
3613 WT2:
3614
MOV
R6.'250
3615 liTl:
R6, lITl
3616
DJNZ
;WAIT APPROX 5' MSEl'fD
3617
DJNZ
R1.wt2
3618 RESOL:
A, ORe
; CET ICB ClIAR.
3619
MOVX
A,#3FK
3620
ANL
3621
MOV
R6.A
3622
;CHECK IF MlLTY KEY PRESSED
JB3
NOT4
3623
NOTS
JB4
3624
.lB5
KEYOK
3625
NOKEY
JMP
3626 NOT4:
3627
JB4
llESOL
3628 l\'0T5:
3629
RESOL
JB5
3638 KEYO!::
; SET REDmmucy cm
3631
mv
8.7,'le
3632 REDUN:
; DO :READ REDUl'fDANCY CHECK
3633
MOVX
A.OR8
A,#3FK
3634
ANL
3633
CPL
A
A,R.6
3636
ADD
3637
INC
A
3638
RESOL
JNZ
3639
DJlfZ
R7.REDUl'f
3648 ECKEY':
,
A,R6
3641
mv
A.#2FH
3642
A.NL
;ENCODE KB CHAR
3643
mv
R6,A
F0
3644·
CLK.
; IF NOT REX KEY
3645
JB5
SPEC
; BETORN HEX DIC
3646
RET
3647 SPEC:
;COnP ENCODING FOR SfEC CHAR
3648
ADD
A,-eF8K
mv
3649
R.6.A
; SET Fe FOR NOT HEX ClIAR.
3658
CPL
F0
l RETURN SPEC IAL ClIAR.
3651
RET
3652 cnsto:
P2,#MSXPC
3653
ANL
P2,#MEPGl
3654
ORL
R0,#ASPTR
MeV
3655
A,OR.0
3636
MOVX
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
LOC

OBJ

PACE·

---,

32

SOURCE STATEMENT

SEQ

3666 ;
3667 GIPBM:
0BB2 BBel
eBB4 64BC

3668

~ov

0BB6 BBe2
0BB864BC

3669
3670 G2PBM:
3671

3672

nov

0BBA BB03
8BBe BAoe
8BBE 7400
eSC0 EaC3
0BC2 83
0BC3 74DO

3673
3674
3675
3676
3677
3678
3679
3688
3681
3682
3683
3684

3683

8BC3 8832
8BC7 B930
8009 8462
88CB E6DC
8BCD EBBE
OBCF 83

3686
3687

8BD0 0410
88D2 8406
0BD4 9488

3693

88D6
OBD7
0BD9
08DA

37
32DF
E5
2451

0BDC E5
8BDD e4FE

eBDF E6DC
8BEI 37
8BE2 AE

0BE3
08E4
0BE6
OBE7
OBE9
8B£8
OBED
0BEE
8BF0
0BFl
6BF2
0BF3
08F5
08F6

FD
5301"

AD
8458
E6DC
D422
FA
03F7
A3
.\9
lA
B486

FE
83

08F7 32
0BF8 30
OBF9 2E

G3PRK:
GTPRK:
&TP4:

Jm'
RS,#2
GTPBM

JMP

MOV
MOV
CALL

GTP3:

RS,GTP3

CALL

GTP0

; IF THIS ADDR

MOV
MOV

3688

CALL

3689
3690
3691
3692 GTPO:

DJtfZ
RET

3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733

JNC

CALL
CALL
CALL
; IF D~

GTP0

DJNZ
RET

=

< LAST ADDBESS TBEl'f

EBROR

R9,-WtUa..
Rl , #1fflKIL
CKDBL
GTP2
RS,GTP4
PUSH

BLKAD
CADDR

CLEAR ElM"RY 1'BE1'f ABORT

CTP5:

A
GTPl

CPL
JBl

MSO

SEl"

&TP2:

JMP

ClIDLV

MBa

SEl"

&TP1:

Jm'

EIIROR

; IF NO ADDRESS ENTERED 'IlIEN ERROR

JNC

GTP2
A
M,A

CPL
~OV

; IF ADDRESS

> UPPER LImT TBEl'f EBHOR

MOV
ANL.
~OV

CALL

JNC

A,M
A,-0FS:
M,A
C45UL
GTP2

CALL

POP

ADD

A, #CTI'BL AM) 0FFJI··

MOV

SAm!5:
MOW

HOV
INC

CALL

MOV

A,R2

A, SA
Rl,A

R2

MVR45
A,R6

RET

GTl'BL:

DB

WltKL. WRKlL. WBX2L

3734 I'F «SAPlE5 AND OFF00H> LT ( $ Am> 0FF00ID)
3735 MOV
At SPElUl ; SAME PACE E.."IROR
3736 ENDIF

- .....1

_.'--.
PA.GE
Loe

OBJ

SOURCE STATEIm'fT

0C23 Ba09
OC23 9AF0
OC27 BA08

3737
3738
3739
3748
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
376e
3761
3762
3763
3764
3765
3766.
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800

0C29 80

3801

8BFA
0BFC
0BFE
0C00
0C02
0C03

B898
9AF0
SA08
23FF
90
83

8C04 BaSE
0C96.23C6
ece8 A0
0C09 18
0C0A 2300
0C0C A0
0C0D
eC0F
eCll
0C13
0C14
0C13
9C16
eC17
OC18

9AF0
8A01
B8C3
80

AC
18
80

AD
B905
ettA 9476
0CIC B8ce
eCIE 80

eCIF AC
eC29 947C
0C22 83

0C2A 533F
0C2C 97
0C2D C630

0C2F A7

53

;*-*-*-*-*-*-*-*-*-*-*

; EX'I'ERNALLY BEFERENCED ROUTINE
;ENABLE EA"I'ERNAL INTERRUPTS FOR DISPLAY REFRESH
;
,UG USED: A.M.P2
;REG MODIFIED: A.R0.P2
;NESTING: 8
;

ErrRFS:

mv

AlCL
ORL

mv

MO\'X
RET

Ret'POLIN
P2.':MSKPG

P2,#flEIOU
A,'TRUE
GR0,A

; ENABLE INTElUU1PTS
;RETtJRN

;*-*-*-*-*-*-*-*-*-*-*

;DISPLAY 'PC' IN COMMAND FIELD.
;USER  IN ADDRESS FIELD Am>
; USER  IN DATA FIELD
;
;REG USED: A,Re-R2,R4.1U'),R7.P2
;REG MODIFIED: A,Re-R2.R4,1U'),R7,P2
; NESTING: 2
;
DIPCA:
;D}SPLAY 'PC' IN DISPLAY'S COmJAm) FIELD

mv
mv
INC
mv

Re,'DIPTR+6
A,'DeC
GRe,A
Re

AlCL

P2~#:MSKPG

'MOV

DIPAY:

MOV

ORt
MOV
MOVX

mv

INC
MOVX
MOV
MOV
CALL

MOV

. MOVX
MOV
CALL
RET

;GET DISPLAY BUr PTR

A,'Depe

GRe,A

P2,#flEPGl
Re, #RGTOP+4
A,@Re

R4,A
Re
A,@Re

as.A

;GET 

;GET 

Rl.#5

DADDFL
Ret'RGTOP+l

A,GRO
R4.A
DDTFD

;GET 

;*-*-*-*-*-*-*-*-*-*-*

; IEYBOAlU) INPUT STATUS CODE
;
;REG USED: A,R0,P2
;REG MODIFIED: A.M.P2
; NESTING: 8
;
XBSTS:
HOV
R6.'KBDAT
ANL

P2.#HSKPG

ORL
MOVX

P2.#MEIOU
A, GOO

CLR
JZ

C

ANL

3302
3803
3804

3805

CPL

A.#3FK
KBSI

; SELECT l'.IEr.tORY lI!A.PPED I/O
; INPUT KEYBOARD STATUS
; CRECK FOR KEY PRESSED
;RET FALSE IF ON KEY

C

3806 XBSt:
0C33 83

3807
3808
3309

RET

;RET'OBN

;*-*-*-*-*-*-*-*-*-*-*

--

•
ISIS-II m::S-4&rUP1-41 HACRO ASSEMBLER. V2.0

PAGE

PROMPT...48 SYSTD1 MONITOR W.O 6MBZ

LOC

OBJ

eC3t 7410
OC33 843B
OC3lS 9423
0C37 E642
eC39 7472
OC3D
0C3D
OC3E
eC3F
OC41

03E9
97
A7
C642
97

OC42 83

0C43
0C45
eC47
OC48
eC4tA
0C4B

7410
13836

AF

2348
A0
FF
B65A
2C
47

0C4C
eC4E
0C4F
ecse
0CSI
eCS3
eC54
eC55
eC56
0CS8
eC59

83

0C5A
0C5C
OC5E
OC5F
OC61
0C63
0C64
eC66

03E9
C66D
FE
03EA
C66C
FE
03F9
C66B

AD

S3F0
4C
2C
FD
43Y0

AD

eC68 E5
0C69 04FE

OC6B 17
OC6C 17
0C6D 83

SEQ
3810
3811
3812
3813
381<11
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
384.1
3842
3843
3844

3845
3846
3847
3848
3849
3850
3831
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
38S0
3881
3882

54

SOURCE STA'l'EmmT
; IF KEYBOARD KEY PRESSED THEN IF ClIAR = EXECUTE THEN RET CY-t
; ELSE RET CY=O
•
;BEG USED: A.R0,R6.R7,P2
;REG MODIFIED: A.RO,R6,R7,P2
; NESTING: 2
;
KBDOT:
CALL
GETKB
STA3
Jm'
KBSTA:
KBSTS
CALL
STA2
JNC
; IF NO KEY PRESSED
CALL
GTKEY
STA3:
A,#(-EXECUTE) AND 0FFH
ADD
CLR
C
; TRUE
C
CPL
JZ
; IF KEY = E."'iECUTE
STA2
; FALSE
CLR
C
STA2:
RET
;*-*-*-~-*-*-*-*-*-*-*

;GET KEYBOARD HEX DIG AND BUILD VAL IN R4,R.')
;IF NOT HEX DIG, CHECK FOR PROPER DELIMITER
•
;REG USED: A.R0,R4,RS.R6,R7.P2.F0
;REG MODIFIED: A.R0,R4.R5,R6,R7,P2.FO
; NESTING: 2
;
GDGSH:
CALL
GETKB
R0,#DPr.5K
MOV
rlOV
R7,A
A,#48H
MOV
@RO,A
MOV
A,R7
MOV
JF0
NTBEX
A,R4
;GET LOW BYTE
XCB
SWAP
A
;NIBBLE 1 TO NIBBLE 2
MOV
as,A
;NIB 2 TO NIB 3
A,#0F0H
ANL
A,R4
; RESTORE NEW NIB
ORL
;NEW NIB TO NIB 1
KCB
A.R4

MOV

ORI.

MOV
RET
NT8EX:

A,as

A,#0F0H

;SET THE HEX CHAR VALl]) FLAG

as,A

ADD

A,#(-EXECUTE)AND 0FFH

JZ

DELOK
A,R6

MOV
ADD

A,#(-NEXT)AND OFFH

JZ

DEL02
A,R6

MOV
ADD

A.#(-PP~V)AND

JZ

DELO!

SEL
Jr1P

MBO
ERROR

INC

A

INC

A

0FFH

; Ct{ IF EXECUTE

;CK IF NEXl'
;Ct{ IF PREVIOUS

GDERR:
DEL01:
DEL02:
DELOK:

; ILLEGAL KEY

RET

;*-*-*-*-*-*-*-*-:1:-*-*

;DISPLAY PRO!1PT ('-') IN
;
; F.EG USED: A. R0."32
;REG lIIODIYIED: A,RO,R2

coromrm

FIEl..D

------

ISIS-II MCS-48I'UPI.... 1 HAC1tO ASSE!JBLE1t. W.8
PROlJPT-48· SYS'1'E}I1 llONITOB. W.0 6m1Z

LOO

OBJ

806E BABY
8078 B83F
8072 0438

SEQ

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
8092
0093
0095

97
FF
1296
A7

8096 Fl
8097 E69A
8C99 47
809A
OC9C
809D
8C9F
8CAl
00A2
80M
8CA6
0CAS
8CA9

530F

AA

96AB
B6AD

FF

D30l
C6AD
23FF
A0
84AF

eCAS 85
0CAC 95

55

SOUllCE STA'I'E1JEl'n'

3883 ; NESTING: 8
3884 ;
3885 pmJPT:
B2,#DCDSlt
nov
3886
RQ,#DIPTR+7
3887
l'IOV
;UPDATE DISPLAY
JlJP
DTBLU
3888
3S89
3890
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
nov
Rl,-WRm
3906 DADDFL:
3907
NOV
RO,#DIPTR+5
3908
.MO"V
R7,#3
3909
J.MP
UDDFL
3910 ;UPDATE DATA FIELD WITH BYTE IN R4
3911 DDTFD:
Rl,#4
3912
NOV
3913 DDAFD:
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:
Rl,#5
3919
.MOV
3928 DXXAD:
3921
.MOV
RD.#DIPTR+2
3922
NOV
R7,#3
3923
JMP
UDDFL
3924 ; END SPEO Err1'RY
3925 ;
3926 UDDF1'f:
3927
OLR
F0
F0
3928
CPL
3929
NXl
J.MP
3930 UDDFL:
3931
OLR
3932 NXl:
3933
OLR
C
3934
l'IOV
A,R7
; IF LOW NIBBLE
3935
JB8
UDD3
3936
OPL
o
3937 UDD3:
.MOV
A,aRt
3938
;IF LOW NIBBLE
3939
JNO
UDD4
3940
A
SWAP
3941 UDD4:
A,#OFll
3942
AM.
3943
MOV
B2.A
3944
JNZ
NZl
f IF NOT ZERO SUPPBESS
3945
JFO
NZERO
;a IF LAST DIG
A,RT
3946
nov
A,#1
3947
xm.
3948·
NZERO
JZ
A,#DCBt.
;BLANK DIG
3949
NOV
@R0,A
3950
:?tOV
3951
UDD2
JMP
3.952 NZl:
3953
F0
CLE.
F8
3954
CPL
3955 NZERO:

;*-*-*-*-*-*-*-*-*-*-*

8C74 B933

PAGE

..

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

LOC

OBJ

eCAD D431
eCAF
OCBO
OCBl
OCB3

FF
37
12B4
C9

OCB4 C8
OCBS EF91
OCB7 83

OCB8 27
OCB9 A.C
OCBA AD
OCBB
OCBD
OCBF
OCCI
OCC3
OCC5

9443
B6C7
B905
B400
9476
84BB

OCC7
OCC8
OCC9
eCCA.
OCCB
0CCD

AA
FD
97
37
F2CE
A7

OCCE FA
0CCF 83

00DD B832
0CD2 B904
0CD4 84DA

0CD6 85
0CD7 95
0CD8 84DB
0CDA 85

\ -

SEQ
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
-3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002
4003
4004
4ee5
4e06
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
4027
4028

PAGE

56

SOURCE STATEl'1E1'IT
lJDD2;

CALL

mv

;DISPLAY DIG

A,a?

CPL

A

JDO

OODl:

DECHX

DEC

UDDI
Rl

DEC

R0

DJNZ

;IF 111 NIBBLE

R7,NXl

RET

;*-*-*-__ *-*-*-*-*-*-*

; GET ADDRESS VALUE FROlI{ KEYBOAP..D
; RETtJ'ItN VALUE IN R4,.R5
;F0 SET
;A:0 IF DEL
~(ECUTE
;A:1 IF DEL
NEXT
;A=2 IF DEL
PREY
;cy= 1 IF DATA WAS El'ITERED
;
;REG USED: - A.RO-R7,P2,F0
;REG UODIFIED: A,RO-R7,P2.FO
; NESTING: S
;
GADDR:
CLR
A
mv
R4,A
HOV
iUS.A
; CLEAR INPUT BUFFER

=
=
=

NXADV:

CDCSH
DADDR
Rl,#fj
BLXDA
DADDFL

;GET A DIGIT
; DEL mITER Fomm

JNP

NXADV

MaV
MaV
CLR

I12,A

;SAVE DELIPIITER

CALL
JFO

MaV

CALL
CALL

DADDR:

CADDI:

CPL
JB7
CPL

MaV

A,.R5
C
A

;NO DATA

C

;DATA ENTERED

A.B2

; RESTORE DEL FLAG

GADDI

El'f'I'EBE1)

RET

;*-*-*-*-*-__*-*-*-*-*

; ADD TWO ADDRESS VALUES LOCATED IN INTElU'fAL &'\M AND
;PLACE RESULT IN nIT RAlI AT PTR1.
; OR SUBTRACT PTR2 FROM PTRI AND
; PLACE RESULT IN INT RAlII AT PTRl.
;RE'I't1R1f CY
1 IF OVERFLOW ON' ADDITION
; E."'a'ECTS PTBIL IN M AND PTR2L IN Rt
;
;REG USED: A,RO,Rt
;REG MODIFIED: A.RO,Rl
; NESTING: 0
;
;SPECIAL El'ITRY POINT FOR
; ADD ING R4. R5 TO lffiKL/H
AlIIC45:
HOV
RO,#WQKL
HOV
Rl,#4
JMP
ADDBL
;END SPEC ENTRY
;
SlJDBL:
F0
CLR.
F0
CPL

=

ADDBL:
ADD1:

J~IP

ADDl

CLR

F0

_--.

· IS IS- II I1CS-48I'lJPI..... l MACRO ASSEmILER. ft ••

PROMPT-48 SlS"l'El! mNlTOR VS •• 6l'1BZ
LOC

OB.J

SEQ.

0CDB
0CDC
0CDD
0CDE
0CEO

95
Fl
97

4029
..030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4Q44
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4e77
4078
4079
4080
4081

B6E2

1..7
0CEI 37
0CE2 70

OCE3
0CE4
OCE5
0CE6
0CE7
0CE?

1..0
18
19

PI

B6EA
37

0CEA 7Q
0CED 1..0
0CEC 83

0CED B836
OCEF 2348
0CF! 1..0
0CF2
OCF4
OCF6
OCF7
0Cli'8

BF08
FF
1..0

OCF9
0CFB
0CFC
OCFD
0CFF

23FF
1..0
18
EFF9
83

8837

18

OD60 B838
0D02 BF03
OD04 84F9

OD06 B83B
0D08 8F03
0D0A 84F9

4082

4083
4084
4085
4086
4087
4088
4089
4090
4091
4~92

eDOC BB00
OD0E A412
0D10 8B01
OD12 27

4093
4094
4095
4096

4097
4098
4099

4100
4101

SOU'RCl! STATOEl'fr
CPL

mv

ADD2:

CLR
JF0
CPL
CPL

C

ADDC

A,Ctll0
SU,A

INC
INC

ll0

mv

!JOV

JF0
CPL

ADD3:

F0
A.SRI
ABD2

C

A
; ADD LOW BYTE
; STORE LO'W StJ1I1

Rl
A,@lRI
ADDS
A

;ADD HI BY'I'E

ADDe
HOV

;STORE HI St.n1

RET

;*-*-*-*-*-*-*-*-*-*-*
;BLANK DISPLAY

;
;REC USED: A..R0,R7
;REC l1ODIFIED: A,R4),R1'
; NESTING: 0
;

BUI:

BLAMe:·

BLDX:

mv
MOV
mv
my
mv
mv
my
INC

HOV

mv

INC
DJNZ·
RET

;liLANK
BLImA:

Re,-DP!5K
A.-48H
liRe. A
RO,#DIen
R7,-8
A.R7
@M,A
R0
A.-DeBL
@lRO.A
R0
R7.BLXNX

;CET DISPLAY PT.R.

,COUNT

; INIT CO'ONTER
;POINT TO FIRST DIS CHAR
;DISPLAY ClL\R BLANK
; BLANK ALL DIGS

DATA FIELD

my
my
JMP

;BLANK ADDRESS FIELD
BLItAD:

mv

KaV
JMP

R0, #DIPTR+3
R1' ,-3
BLKNX

;*-*-*-*-*-*-*-*-*-*-*
; GET DATA VALUE FROM KEYBOARD

;BUILD VAL IN R4,RS
;RETUltN VALUE IN R4,B5, F0 SET A.ND DELIMITER IN A

;
;REG USED: A,R0-R7,P2.F0
;REG MODIFIED: A.R0-R7,P2.F0
; NESTING: 3
;
GDATA:
HOV
R3.~
DAV3
Jm'
GBYI'E:
HOV
DAV3:
CLR

A

IS IS- I I HCS-48I'UP 1-41 neRO ASSElmLER. V2. &
PBOnPT-48 SYSTElIl MOlnTOR V3.8 6MBZ
Loe

SEQ.

08.1

8D13 AC
9D14 AD
8D15 AS
0D16
8D18
0D19
8DIB
001C

9443
95
B61E
95
84C7

001E 7623
0020 MO+)
0022 B5
0D23
0024
0026
0028

FB
962A
9484
MI6

002A 9470
002C A416

002E
0D30
9032
0D34
0D36
0D37
0039
0D3A
0D3B
0D3C
0D3E
0D3F
0040
0D41

9AF0

8A08
B843
23E0
90
23FF
08
9&

C8
530F
90
C8
27
90

0D42 27
0D43 8809
0D45 90
0D46
0048
004A
0D4C

0477
53DF
9AF0
8A08
0D4E B80S
0D50 90
0D51 83

0D52 D832
0054 B930
0056 A462

»

PAGE

58

SOURCE STATE'MEDT

4102
mv
R4,A
M,A
; CLEAR· INPUT BUFFER
4103
HOV
;CLEAR NOT FIRST DIC FLC
4104
Fl
CLK
4105 NXDAV:
;CET A DICIT
4106
CDGSII
CALL
4107
F0
CPL
DAV2 .
4108
JF0
F0
4109
CPL
DADDR
4110
JMl'
4111 DAV2:
;IF NOT FIRST DIG
DAVl
JFl
4112
BLKDA
CALL
11113
4114
Fl
CPL
4115 DAV1:
A,ro
MOV
4116
DAYS
4117
JNZ
D45AD
4118
CALL
4119
NXDAV
JMl'
4120 DAViS:
~DISPLAY NIBBLE
4121
CALL
DDTFD
rfXDAV
4122
JMP
4123
4124 ;*-*-*-*-*-*-*-*-*-*-*
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:
P2.#MSKPG
4132
ANI.
; SELECT MEMORY MAPPED I/O
P2,#MEIOU
4133
ORL
R0,#PPICT
HOV
4134
A,#PPUID
; PP I MODE WORD
MOV
4135
@RO,A
4136
HOVX
A,#TRUE
4137
HOV
4138
R0
DEC
;PPI PORT C
GRO,A
4139
HOVX
R&
4140
DEC
A.#0FH
4141
ANI.
9Re,A
;PPI PORT B
4142
~IOVX
Re
4143
DEC
4144
CLR
A
@R0,A
;PPI PORT A
4145
MOVX
4146 INI2:
4147
CLR
A
R0,#KBDAT
4148
HOV
@lRe,A
4149
:MOVX
4150 INn:
CETAC
4151
CALL
A,#0DFH
4152
ANI.
P2. #l'ISKPG
4153
ANL
P2.#NEIOU
4154
ORL
R0,#MCHST
4155
~10V
GRe,A
:MOV-X
4156
4157
RET
4158.
4159 ;*-*-*-*-*-*-*-*-*-*-*
4160 ;CBECK TWO ADDRESS VALUES
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:
RO, #WRKL
4171
:MOV
4172
Rl.#WRKlL
:MOV
CKDBL
4173
JMP
4174 045UL:

ISIS-II MCS-4&o"UPI-41 geM ASSEmJI.Elt. W.O
PROMPT-48 SYS1'ErI mNITOR V3.0 6MBZ

LOC

OBJ

0D58 B804
0D5A B934
0D5C A462
ODGE a832
0D60 B934

0D62
OD63
0D64
0D65
0D66
0D67
0D68
0D6A
0D6B
0D6C
0D6D
0D6E
0D6F
0D70
0071
9D73

85
97
A7
F0
37
71
966B

95
27
18
19
FI()

37
71
C674
85

0D74 83

PACE

59

SOURCE STATElIJENT
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208

nov
nov

JMP

B9,#4
Rt , #UPUlL

CKDBL

; (UPUll/H - WRKVH)
CWIaJL:
MOV
B9,#WRKL
nov
Rl,#UPUlL

;END SPEC ENTRY
;

CKDBL:

CLR
CLR
CPL
MOV

CPL

ADDC

CKI:

JNZ
CPL

CLR
INC
INC
HOV

CPL

ADDC

JZ

CK2:

CLR

FO

;RESET EQUALITY FLAG

C
C

A,eRO

A

A,eRt·
CKI

FO

;SUBTRACT

LOW BYTE

; SET EQUAL FLAG

A

RO
Rt

A,eM

;POINT TO HI BYTE

A

A,@Rl

; SUBTRACT HI BYTE

CK2

FO

; HI BYTE NOT EQUAL

RET

;*-*-*..*-*-*-*-*-*-*-*

; DECREMENT AN ADDRESS VALUE  THIES
; EXPECTS PTRtL II( RO AND  IN R7
;
4209 ;REG USED: A RO.R7
4210 ;REG MODIFIED: A,RO,n?
4211 ; NESTING: 0

4212 ;
0D75 BF01
0D77 8832

0D79 23FF
0D7B 60
0D7C A0

0D?» 18
0D7E 23FF
0D80 70
0D81 A0
0D82 C8
0D83 EF79
0D85 83

4213 DElmK:
4214
HOV
HOV
4215
4216 DEDBL:
4217
4218 ;ADD NEGATIVE ONE TO PTRIVH
4219
4.220
HOV
A.#OFFH

4221

ADD

4222
4223
4224
4225
4226

MOV
INC
MOV
ADDC

MOV
DEC

4227
4229
4229
4230
4231

DJNZ

A,@M
@RO,A
RO

; STORE LOW BYTE

A,#OFFH
A,@RO

@lRO,A
RO
R7,DEDBL

; STORE. HI BYTE
;DEC

AGAIN

RET

;*-*-*-*-*-*-*-*-*-*-*

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
4236 •
4237 ;REG USED: A,RO
4238 ;REG ~ODIFIED: A,R0
4239 ; NESTHIG: 0

4240 ;

0D86 13804

4241 ;SPECIAL ENTRY POIIIT FOR
4242 ; MOVE R4. as TO PTR2L
4243 I1VR45:
4244
nov
R0. #4
4245 ;END SPEC EnTRY
4246 ;

4247 MVREG:

II(

1'.1

PAGE

ISIS-II ncS-48/OPI-41 l'fACRO ASSnmLER. V2.&

PROl'IPT-48 SYSTEl'! l'1ONITOR V3.& 6MBZ
LOC

OBJ

SEQ

GD88
0D89
0D8A
0D8B
0D8C
0D8D
0DSF
0D90
0D91
0D92

FO
At
18
19
Fe
530F
Al
C8
C9

4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270
4271
4272
4273
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284
428..")
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
43 16
4317
4318
4319
4329

83

0D93 B903
0D95 B834
0D97 23FF
0D99 MA3
0D98 B901
0D9D MA3

0D9F B832
0DAI 27
0DA2 A9

0DA3
0DA4
0DA5
0DA6
0DA7

A0
18
F9
A0
83

0DA8 B832

0DM 34AE
0DAC 81
0DAD 83

0DAE 18

l _

6G

SOURCE STATEl'JEl'fT
A,@R0
@RI,A
R0
·Rt
A,@Re
A,#0FH
GRI,A
R0
Rt

MOV
MOV
INC
INC
MOV

ANL

MOV
DEC
DEC
nET

; GET LOW BYTE

;MOVE IT

;GET HI BYTE
; ZERO UPPER NIBBLE

;MOVE IT

;*-*-*-*-*-*-*-*-*-*-*

; SET INITIAL ADDRESS' VALUE Uf ,11IT RAn
; EXPECTS PTRtL IN R0 , VAR IN Rt AND VAL IN 
•
,REG USED: A,R0,Rl
;REG MODIFIED: A,R0,Rt
; NESTING: 0
;
;SPECIAL ENTRY POINT FOR
; SET uPLML = MEMORY MAX
SEULMX:
MOV
RI.#MEPC3
SEULX:
MOV
R0,#UPLML
MOV
A.#MEMAX
JMP
PRSET
;SET UPLMH = MEMORY PAGE I
SETPt:
MOV
Jl'IP
;
;SET WRXL/H
0/0
SEWK0:
R0,#WRKL
MOV
SET00:
CLR
A
MOV
Rt, A
;END SPEC ENTRY
;
PRSET:
@R0,A
MOV
t STORE LOW BYTE
INC
R0
A,Rt
MOV
!!!IR0,A
MOV
; STORE HI BYTE
RET

=

;*-*-*-*-*-*-*-*-*-*-*

; FETCH FORM EX'l'EBNAL RAM , ONE BYrE OF DATA TO 
;ADD BASE TO POINTER
; EXPECTS P1'R. IN R0
; PTR POINTS TO LS BYTE OF EX"I'EBNAL MEM ADDRESS
; RETURN DATA IN  IE: 'I'I!E'NEX'l'
INC

RO

fGET DATA

~'iEM

wrm

BASE 0

ISIS-Il ncS-48I11PI-41 MellO ASSEnBLER. w.e
PROMPT-48 SYS'I'E!l MONITOR W.0 6MBZ

PAGE

61

LOC

OBJ

SEQ.

eDAF
eDB0
0DBI
ODBS
eDBS
0DB7
0DB9
ODBB
ODBC
0DSD
0DSE
0DSF
0Dce

Fe
C8
530C
C6C2

0DC2
ODC4
0DC3
ODC6
0DC7
0DC8
0DC9
0DCA

B92A
F0
61
AA
18
FO
19
71

0Dcn
ODCD
ODCE
ODCF
0DDl
0DD2
0DD3
0DM
0005
0DD6

330F
A9
OA
53F0
49
3A
C8
FA
A9
S3

0DD7
ODDS
0009
0DDA

2F
C5
E5
83

0DDB
ODDC
0DDD
0DDE

2F
00
E5
83

0DDF
0DEg
ODEI
ODE2

2F
C5
F5
83

nov
A. @1M
4321
R0
4322
DEC
A.#0CH
4323
Al"fL
FEX2
4324
JZ
P2.#nsKPG
4325
ANL
P2.#l'IEIOU
4326
ORt.
R1.#EXMEM
4327
MOV
novx
GRI.A
4328
l'1OV
4329
A.eR0
nov
4330
R2.A
INC.
4331
R0
MOV
A. aR0
4332
FENa
4333.
JnP
4334 FEX2:
MOV
Rl.#BASEL
4335
A. @IRe
nov
4336
4337
ADD
A.aRI
!!OV
4338
R2.A
4339
INC
RO
A.@lR0
4340
nov
INC
Rl
4341
A,@Rl
.4342
AnDC
4343 FEX3:
A.#0FD:
4344
ANL
4345
MOV
RI.A
4346
IN
A.P2
A.#OFOD:
4347
ANL
4348
ORt.
A.Rl
; SET PAGE PTR
4349
OUTL
P2.A
4350
DEC
R0
4351
MOV
A.R2
Rl,A
4352
~IOV
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:
4364
XCD:
A.R?
RBO
4365
SEL
~m0
4366
SEL
4367
RET
4368 ; INUS!:
4369
XCD:
A.R?
4370
NOP
rIB0
4371
SEL
4372
RET
4373 ;INUS2:
4374
XCH
A.R7
RB0
4375
SEL
4376
rIB!
SEL
4377
RET
4378 ;INUS3:
4379
XCH
A.R7
4380
NOP
4381
SEL
rIBl
4382
RET
4383
4334 ;END TADLE
4385
4386 CODE1:
4387
4388 ; PUT RENTER CODE IN USER m:rroRY TOP
4389
R0,#OF0D:
4390
MOV
Rl,#(CODE AHD OFFED
MOV
4391
R7,#16
4392
~10V
P2,#MSKPG
4393
ANL

9AF0

8A08
B90A
91
F0
AA
18
F0
A4CB

2F
0DE4 00
0DE;) F5
0DE6 83

~DE3

0DE7 B8F0
0DE9 B9D7

ODEB BFIO
ODED 9AF0

SOURCE STATDfEl'IT

"-'

ISIS-II !lCS-4&rO'PI..... t BellO ASSE1'SBIJl:R. va.O
PIlOlJPT-48 S'rSTlm ftOl'U'OOl\ V3. e 6l'JBZ .
'LOC

OBJ

eDU 8A07
eDFl F9
eDF2 A3

ODFS
ODF4
ODFl}
ODF6
ODF8

90
18
19
UF1

.83

ODF9 B82E
eDFB B4FF.
ODFD 0832

ODFF FO
OEOO 0301
OE02
OEO.3
eEe4
eE05
OE06
OE07

A0
18
27
70
A0

83

OE08 B832,

OEOA MAE

OEOC FC

0EOD 91
0EOE 81

OEOF 83

OElO D5

SEQ
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410
4411
4412
4413
4414
44HS
4416
4417
4418
4419
4420
4421
4422
4423
4424
4435
4426
4427
4428
4429
4430
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444
4445
4446
4447
4448
4<1149
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
44:60
4461
4462
4463
4464
4465
4466

PAGE

62

SOURCE STA'l'El'lEli't

0Rt.
CODE2:

MOV
A,Rl
MOVP
A,OA
,GET CODE FROn TABLE
IF « CODE AND OFF001l) LT ( • AND OFF001l)
MeV
A. SPEBll ; SAME PAGE ERROR
ENDIF
MOVX
OM,A
; OUTPUT CODE
INC
Re
INC
R1
DJNZ
87,CODE2
; STORE NEXl" BYTE
RET

;*-*-*-*-*-*-*-*-*-*-*
; INCBEHENT ADDRESS VALUE
I

IN INTERNAL RAl'l

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:
R0,#WRK2L
MOV
CALL
INDBL
INWlUC:
MOV
RO,#WRKL
;END SPEC ~~Y
;
IrrD8L:
A, ORe
MOV
A,#1
ADD
MOV
ORO,A
INC
R0
CLR
A
ADoo
A.oRe

MOV

@Re,A

; GET LOW BYTE
; INC LOW BYTE
; STORE LOW BYTE
; INC III BYTE IF CY
;STORE HI BYTE

RET

;*-*-*-*-*-*-*-*-*-*-*

; STORE DATA IN EXTERNAL RAl'f
; EXPECTS PTR 11'1' R0 AND DATA IN R4
; PTR PO UITS TO LS BYTE OF EXI'ERNAL :MEM ADDRESS
;ADD BASE TO POINTER
;
;REG USED: A,RO,RI,R2,M,P2
;REG MODIFIED: A.RO,Rl,R2.P2
; NESTING: 1
;
;SPECIAL ENTRY POINT FOR
; S'l'ORE AT w'BIa../H

STOWK:

nov

ft9,#WRKL

CALL

FEXI
A,R4
ORI.A
A,oRI

;END SPEC ENTRY
;
SEXDA:

MOV

l'lOVX
MOVX
RET

;*-*-*-*-*-*-*-*-*-*-*

; STORE DATA
I CLEAR EXI1EH FF

;SAVE R6,R1,R2,Ra AND A (OF BANK 0)
; RA!I AT ~IEllIORY BO'ITOM.
;
;REG USED: A.R24,B25,R31.RO-R3
;REG lIlODIFIED: 1124,R25,831
; NESTING: 0
;
PUSH:

SEL

RBI

IN INTERl'fAL

=1

ISIS-II rlCS-4IYUPI-41 HACRO ASSErmLER. W.O
PROl'IPT-48 SYSTElI1 MONITOR VS.0 61'!BZ

PAGE

63

LOC

OBJ

SEQ.

0Ell
0El3
0E15
OE1't
0EIS
eEl9

B820
BF04
B900
A0

4467
MOV
;MEn PTR
R0.#IHBOT
4468
MOV
R7.#4
;REG COUNT
Rl,#0
4469
MOV
;REG PTR
@R0.A
;STORE A
4470
MOV
R0
4471
INC
4472
MOV
82,A
4473 PUSNX:
A,@Rl
4474
MOV
4475
MOV
;STORE REG
@R0.A
4476
INC
R0
4477
INC
Rl
4478
DJNZ
; PUSH NEXT REG
R't.PUS!fX
4479
~IOV
A!~
4480
RETR
4481·
4482
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
SEL
RBI
4492
MOV
R0.#IMBOT+4
;MElII PTR
4493
R7.#4
;REG COUNT
MOV
;REG PTR
4494
MOV
Rl.#3
4495 POPNX:
A,@R0
;POP REG
4496
MOV
• MOV
4497
; RESTORE REG
@Rl.A
4498
DEC
Rl
4499
DEC
R0
4500
; RESTORE NEAT REG
DJNZ
R7.POPNX
A,@l\0
4501
MOV
;RESTORE A
4502
RETR
4503
4504
4505 ; EXTERNALLY REFERENCED ROUTINE
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
MOV
A,R2
A,#0FH
4S15
ANL
A. #( CHPTR AND 0FFID
4516
ADD
4517
4518 ; MASK .WD TO BYTE VAL

18
AA

0EIA 11
0EIB A0

0EIC 18
0EID 19
0EIE EFIA

0E20 FA
0E21 93

SOURCE STATEMEl'fT

;*-*-*-*-*-*-*-*-*-*-*

OE22
0E23
0E25
0E27

D5
B824
BF04
B903

0E29 F0
0E2A Al
0E2B C9
0E2C C8
0E2D EF29
OE2F FO
0E30 93

;*-*-*-*-*-*-*-*-*-*-*

0E31 FA
0E32 530F
0E34 033B

4519
0E36 A3
0E37 AA

4520
4521
4522
4523
4524
4525
4526
4527
4528

SAJ."'1E2:

4532

~

MOVP

A,@A

nov
82,A
;*-*-*-*-*-*-*-*-*-*-*

; GET CHAR FROM TABLE

; EXTERNALLY REFERENCED ROUTINE

;DISPLAY TABLE UPDATE

; EXPECTS 7 SEGHENT CHAR IN R2 AND CHAR PTR IN R0
;
4529 ;REG USED: .'\..R0.R2
4530 ; REG 1I10DIFIED: A
4531 ;NESTING: 0
4533 DTBLU:
0E38 FA
0E39 A0
0E3A 83

4S34

r-!OV

4535
4536
4537

~IOV

4538
4539

A.R2
@RO.A

RET

TABLE OF "' SEGrmNT ClIARACTORS

; UPDATE BUFFER

PAGE

ISIS-II KCs-t4YUPI ...... l BCRO ASSDBu:R. V2.8
PBDBPT-48 SYS'l'El'! !IOIfITOR V3. 8 6m1Z

10.__

LOC

OBJ

8E3S
8E3C
0E3D
0E3E
0E3F
0E40
0E4l
0E42
0E43
0E44
0E45
0E46
0E47
0E48
0E49
0E4:A

C8
F9
A4
BD
99
92
82
F8
80
98
88
83
C6
Al

0E4B
0E4)}
0E4E
0E4F

B836
27
A0
8838

0E51
0E52
0EG3
0E55

F9
A3
9656
83

0E56
0E57
0E58
0ES9

Ae
18
19
C451

0E5B
0E5C
0E5D
0E3E

AF
AF
86
00

0E5F
0E60
0E61
0E62
0E63

F9
99
F8
80
00

0E64
OE63
OE66
0E67
0E68

80
99
Fa
80
00

I;)E69
0E6A
0E6B
0E6C
0E6D

92
92
F8
80
00

OE6E
0E6F
OE70
OE71
OE72
OE73

CO
87
92
92
86
C6

a6

8E

SEQ.

SOU'RCE STATEl'JEl'IT

..

64

4340 CBP'IR:
'
1.1800000B
40340 1
DB
, tIt
11111001B
405402
DB
; '2'
40543
DB
10100100B
, '3'
4544
10110000B
DB
10011001B
4545
DB
1'4'
10010010B
; 'S'
405406
DB
; '6'
45407
10000010B
DB
; '7'
111110f)0B
40548
DB
; '8'
4549
10000000B
DB
; '9 t
4550
10011000B
DB
;' A'
43tH
10001000B
DB
; 'B'
10000011B
4352
DB
; 'C'
4533
DB
1l000110~
; 'D'
4554
10100001B
DB
; JE'
40555
10000110B
DB
10001110B
40556
DB
; • 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:
my
40569
R0, -DP1'1Slt
457e
CLR
A
@RO,A
4571
lIOY
!lOy
4572
M.-DIP'IR
4573 lI.IESG1:
4574
MOY
A.R1
4573
MOVP
A.@A
4576
MESca
JNZ
4577
RET
4:578 l"1ESG2:
HOy
QR0,A
4:579
4580
INC
R0
4581
INC
Rl
4582
~.lESGI
JM:P
40583 ERTBL:
DCLCR. DCLCR.. DCE , 0
4584
DB

,

4585 P4:lTBL:
40586
DB

DCl,DC4.DC7,DC8,0

4S87 P48TBL:
4588
DB

DC8,DC4,DC7,DC8,0

4S89 P55TBL:
4590
DB

DC5,DC5.DC7,DCB.0

4591 INT.BL:
4592

DB

DCO, DCE(l. DC5 ,DeS

4593

DB

DCE,DCC,DCC, DCA. 0

ISIS-II ftCS-4&/UPI--t1 MCRO ASSEm3LER. V2.0
PROlfPT-48 SYSTEM: MON"lTOR V3.0 6lmZ

LOC

OBJ

SEQ.

0E74 C6
0E75 88
0E76 ~0

0E77 9AF0
0E79 BAO!

OE7B B8D9
0E7D 80
0E7E 928D
0E8S
0E81
0E83
OE84
0E86
0E88

AS
03F4
-F8
B8D9
E689
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
0E9A
0E9B
0E9C
0E9D
0E9E

6C
FC
6E
68
F8

6A

4394
4595
4596
4597
4598
4599
4600
4601
4602
4603
·4604
4605
4606
4607
4608
4609
4610
4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
• 4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644
4645
4646
4647
4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662
4663

PACE

63

SOURCE STATErlENT

IF «MESGl AND 0FF00ID LT ( S AIm GFY00H»
HOV
A. SPERR ; SAME PAGE ERROR
ENDIF

;*-*-*-*-*-*-*-*-*-*-*
; GET USER ACCESS BYTE
;

;REG USED: A,R0,P2

;REC MODIFIED: A,R0,P2
;NESTINC: 0
;
GETAC:
Am.
ORL

P2,#MSKPG
P2,#MEPGl

; CET USER ACCESS BYTE
R0,#AXPTR

HOV
HOVX
JB4

GAl

HOV

R0,A

MOV
HOV
JNC
CLR

A.RO
R0,#AXPTR.
CAS
A

ADD

A, #( AX'I'BL AND 0FFID

fIOVP

A,@A

AD))
ANL
JMP

A,#6
A,#OFlI

A,@R0

; GET ACCESS BYTE

CA2:

ADD

GAS:
SAME3:
CAl:

AX'I'BL:
;BIT0
;BITI
rBI1'2
;BIT3
;BIT4
;BIT5
;BIT6
;BI17

A,#-CLAX'I'BL-AXTBL) AND 0FFlI

RET

;CET TABU!! VALUE

CA2

+PROlIEN
+USRAC

-OUTEX

-WIU'1EH
-P0WR
+ RENTER

-RUN

+XTIfL

;ACCESS CODES 0 TO 5
DB
DB
DB
DB
DB
DB

o 1100100B
11110100B
01100110B
01100000B
111100008
01100010B

;ACCESS CODES 10 TO 15
DB
DB
DB
DB
DB
DB

01101100B
11111100B
01101110B
01101000B
11111090B
01101010B

LAXl'BL:
IF « SAI1E3 AND 0FF00H) LT ( $ AND 0FF00H»
HOV
A. SPERR ; SAME PACE EPoROR
EIfDIF
vIRK1A:

ISIS- II rICS-4&fUP 1-41. MACRO ASSE!!BLER. va. 8
PlWl'lPT-48 S"YS'I'El'1 I'IDNITOR va.8 6MBZ
LOC

OBJ

SECt

0E9F Ba31
OEAt
0EA2
0EM
8EA6
8EA8
OEAA
0EAC
0EAE

FO
530C
C6M
9AFO
8Aea
B80B
2390
90

0EiU' 83

OEB'.)
OEB4
0EB8
0EBC
0ECO
0EC4
0EC8
0ECC
0EDO

28432929
31393736
2C313937
3720494E
54454C20
434F5250
56455253
494F4E20
332E30

USER SYMBOLS
ACCI
054C
0080
ACTIl
ASMAX 00DD
BASEH 002B
BLKAD 0D06
BRKl0 0233
BRK7
0271
BXMAX 00D8
. CII
06DE
0026
CKMB
CL8
000C
CMDLV 0151
CODE2 0DFI
COMP6 09E9
CR
00tlD
D10US 0A25
DADDFL 0C76
DAV3
0D12
DC4
0099
0088
DCA
DCE
0086
00C7
DCL
DCP
007F
DEDBL 0079
DEL02 0C6C
DC3PT 0013
DGSTe 07F3
DSR
0080
DXXAD OCH6
0A87
EMS
EPlSUB 0A6E
ENTl3 0443
ENT7
03BF
ERROR COFE
FALSE 0000
FEXl
ODAE
G3PRI.'! OBBA
002S
C.MIl
CDCSH 0043
GETAC 0E77

I.

PAGE

66

SOURCE STA'fElIfElIT
;IF WlU<:1 > lIC THEN ENABLE EX"I'ER.NAL ACCESS

41664
4665
4666
4667
4668
4669
4670
4671
4672
4673
4674
4675
4676
4677
4678
4679
4680
4681
4682

;
COPYRICRT:
DB

4683

DB

WRKA:

nov

R0, -WlU<:lR

nov

A,@R0
A,-0CR
CETAI
P2,-MSKPC
P2,-MEIOU
R0,-NCHST
A,-90B
SRO,A

ANL

JZ

ANL

ORL
NOV
nov
CETAl:

mvx

RET

;*-*-*-*-*-*-*-*-*-*-*
' (C) 1976.1977 INTEL CORP'

'VERSION 3.0'

4684 :
4685 ;*-*-*-*-*-*-*-*-*-*-*
4686 :
4687 END

ACC2
ADDl
ASPTR
BASEL
BLKDA
BRK2

0348
0eDB
00DD
002A
0000
0231
BRKS
027F
BXPTR 00C9
CKl
0D6B
cnID 08F0
CLEAR 04E7
CMDMD 0156
COW
0025
COl\JPAR 04El
CRLF .0797
D20US OAID
DADDR 0CC7
DAV5
OD2A
DC5
0092
DCB
0083
DCEQ
00B7
DCLCC 00A7
DCPC
008C
DELI
07A8
DELOK 0C6D
DC4PT 0014
DICNT 0037
DTBLU 0E38
EA
0020
EI'IC1ID 039E
ENmI
0080
ENT14 03B7
ENT8
048D
EItRlf
0105
FEDUT
FE.."'{2

GAl
GA1'12
GDUTO
GETI'-B

0836

0DC2
0E8D
004()
08SB
0B10

ACC3
ADD2
AWK45
BtASH
BLKI
B.RK3
BRK9
C45UL
C1<2

cx:sun

CLERR
CO
COMPI
COllPX
CSI
D45AD
DAFLD
DC0
DC6
DCBL
DCES
DCLCM
DCU
DEL2
DEWRK
DG3PT
.DIPAW
DTR
ECKEY
ENODE
ENREF

EJ."IT15
ENTaA
ERTBL
FETI
FEX3

GA2
CBM!
CETI
CEXI'Y

0534
9CE2
0CD0
0028
0CED
022E
023C
0D58
0D74
0026
0010
07FA
09F7
09E3
07BC
0C84
0C74
00CO
0082
00FF
000E
00AB
OOCI
07AA
OD75
0015
0COD
0002
089D
0029
07DF
0435
04CC
0E5B
08G2
ODCB
0E80
0004.0B58
0A8D

ACC4
ADD3
AXMAX
BtASL
BLKNX
BRK4
BRKPT
CDTBL
CKASIO
CL5
CLRNX
COl
COMP2
CONV
CSTS
08741
DATKY
DCl
DC7
DCC
DCF
DCLCO
DDAFD
DEL3
DCOPT
DC6PT
DIPCA
DTYPE
EM2
EPlSBl
ENRFS

0545
0CEA
06D9
0027
0CF9
024E
0215
01CF
0BM
0000
04EE
061F
09F0
06E7
07F6
0001
0012
00F9
00F8
0006
008E
00A3
0C7E
07A2

0010
0016
0C04
0M2
0A78
0B08
08FA
03Fl
ENT2
03D3
ENT9
EXECUT 0017
FETCH 64E·1o
FEADA ODAA
0E89
CA3
GBYTE 0D10
CET2
0B2.F
GCOTY

0A94

ACes
ADDBL
AXPTR

BLANK

0528
0CDA
00D9
0CF2
0010
026F
018F
0E3B
08F4
0004
015B
0DD7
09FE
06FO
0D5E
0000
OD23
OOM
0080
00Al
00C2
00AF
0C7C
07AO
0011
0017
0038
0000
OA70
0AFA
0409

BREAK
BRKS
BRTBL
ClIPTR
CKD
CL6
CMDEI
CODE
COMP4
CONVI
CWKUL
D8748
DAVI
DC2
DC8
DeD
DCC
DCLCR
DDTFD
DELAY
DeIPT
DC7PT
DtPTR
DUTOEN
E1I3
EPlSB3
£NT10
£NT4
0406
ENTE...t:t
E..~.lEM

03A6
C00A

FETDT 0800
CIPRl'1 0BB2
GADDI eCCE
CDATA 0D~C
0B19
CETS
COACN 029A

ACCES
ADDl!T
AXl'BL
BLI<:
BRKl
BRK6
BRTCH
Cl
CKDBL
CL7
CMDEN
CODEt
COMP5
COPYRI

0524

086A
0E93
07DC
023F
0268

otAT

CliKWl

0718
0D62
0008
0162
0DE7
09E7
0EB0
0D52

EiITBL
FEWP..x:

0DA3

D8755 0002
DAV2
ODIE
DC3
0080
DC9
0098
DCDSH 00BF
DCR
0089
DCLCU 00E3
DECRX 0E31
DELOI OC6B
DC2PT 0012
DCOUT 07ED
DP~1SK
0036
DUTOIN 0001
E.M.7
0A8B
E~!sB4
0A7D
ENTII 0442
EI-TT5
0421
ERRl
Ol0A
C2PRl'r
GADDR
GDERR'
GETAI
GOC!1D

OA..W

0BB6
0cne
0€68
0EAr

0288

PAGE

ISIS-II MCS-48I'UPI-41 MACRO ASSDmLER. W.O
PROlIJPT-48 S"YSTEl:'! MONITOR W.O 6Ml1Z

COSSI
COSU'l
CTPI
GTTBL
GTYPE
INII
INIT
INWE2
nIN

02A2
OMD

OBDF
OBF7

COSS2
COSU'2
GTP2
GTYI

0AB0

BEXAR

0046
OIOD
ODF9
07E7
KEY
OB62
LEAD
0639
l:'JBl VE 04A2
!!EPGl 0001
MEPG7 0807
MOVE
054F
l{V5
05A8
NIBBLE 06B8
NT4
OMI
NXDAV 8D16
8SBC
ORI4
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

TYPO
trsIC6
UDDFL
lJSRST
WAITI
WRI5
WRKIA
WRK3L

88AS

87AD
"FA
8C98
8848

0A6B
0736
OE9F
002C

INI2
INTBL
INWRK
KBSI
KEY I
LEAD 1
HeRST
l'!EPC2
MESG
MSKI'G
MVR45
NOKEY
IfI'S

NZI
ORIIS
P2DEF
PAGEl
PEN8
PPIM!)
PRSYTE
PRG12
PRG6
PRm'BL
PRSET
ROntP
READ2
REF 1

REGH))

- RFR-

RI10
RRDY

SAMEe
SAVPC
SEA2
SEA8
SEU'LX

I".

028F
0A5C
OB])C
OAF3
01F'?
0042
OE6E
ODFD
OC3e
OB5E
0664
808B
0002
OE4B
00FO
0D86
0B6B
OB53
OCAS
08EA
04FB
0eFF
0010
00E0
0025
09BC
0960
0934
ODA3
001B
0682
05FO
00FF
1)020
0647
0002
0009
0013
e33C
0385
0D95

.eee

'lIfO
....
TOGitOV .A:ad
TXBE e8e4
TYRJ
UBK9

8629
"97

ODDFlf

ocac

U'STlmt 8A2l
WAIT2 OA5F
WRI6
0773
WRKIH 6031
WRKA

ASSEHBLY COPIPLETE.

0EAl

1'1'0 EP.RORS

COSS3
COSUB
CTP3
GTY2

82EA
0A45·
0Bea
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

.nB

ec.:t
.....

TOG.., .Mll

'I'XEK . M81
UBJCl
te46

COSS4

0209

GOTBL

0AAA

GTP4
GTY3
IMBOT
INI4
INU'SI
IOPTR
KBSTA
KEYOK

oaBE
OAF7
0020
0133
03,..
00CS
0C35
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
0001
RIX
READ4 06B0
REF3
051)4
RESTOR 00FD
RGP1'R. .0080
RI20
0658
---B:IS. 8828
SAHE2 0E36
0363
SEAl
SEA4
8366
SEARCH 0321
SEXDA 8E0A

;~
TRDf

ODDl

QCM

U'PUfIl
VDI)
WDSEAR
WRI7
WRKIL
WlUOi

0835
00le

Trel
UBIC2
U'DD2
U'PUIL
VERl

02FF

WRDU'T

075E
0030
0033

WRI8

WR..1{2.lI
WR.'
PPIPA
PPIPB
PPIPC
PRA
PRB
PRBYTE
PRC
PREV
PRG1
PRGI0
PRGll
PRG12
PRG13
PRG2
P'RG3
PRG4
PRG5
PRG6
PRG7
PRGB
PRG9
PRGlCY
PRMPT
PruITDL
PROG
PROM5
PROMEN
PROMP
PRPRO
PRSET
PULl
PUL2
PULPRO
PUSH
PUSNX
R0TMP
R16X
Rix
R64X
RBYTE

333#
334
18S9
45854587#
1876
4589#
18941
448- 26891941912147# 2508
190193#
149#
150#
2681*'
1056
1144
4495# 4500
199# . 4134
198# 4135
269# 2782
290# 3246
S01*' 2769
ISS3#'
1879

~.

w.e

PAGE

340

1317

1571

1863

2520

2523

2526

2532

2542

2557

2158

2165

3093

3368

3722

4490#

2790

2823

3262

833

839

3319

3559

2560

3268

188~#

367#
1893
439#
3068#
3018#
3044
3049
3054
3037
30992724
3012
2965
2981#
29943001
440#
824
2992
26949H}
2701#
914
1885
1010
3170#
3191#
3082
1018
4473#
486#
142#
143#
141#
2295
921
2324
2282#
2297
2320#
2318#
3632#
2125
2096
2105#
2651#
455

READ
READ2
READ3
READ4
READS
READ6
REDUN
REF 1
REF2
REF3
REFS
REFSH
441#
REGKY
374#
REGm>
RESOL 3618#
RESTOR 597
RETGU
460
RETGS
462

746
1897#
3468
3094
3023
3046#
3097#
3065#'
3064
3151
3120#
3028
3027#
2986
3000
30053437
3885#
3002#
3184
1887#
2894
1874#
1899
1916
3203
3197
31801110
4478
543
181
2299
2273#
2332
2289
2334#
2330

3866
3996

3092

3113#

3030#

3119

3201
2898
2957#
2862

2972

3435

3445

4274

4278

428S#

1141

21S0

2865

3069

3500

3693

4465#

2319

2321

2331

2430#

560

2303
2336#
2333

3639
2127.'
2100#
2107
457
3453

2088#

2652

3627
606
1174#
1197#

3629
637

3638
731#

2565

6

,

'ISIS-II ASSEl!lBLER
llETSS
RFR

461

In-

3363211#
325#
3776
2679#
RI
2206
RI05
RIle
22222225
RIllS
Rl20
2236RNPm 332#
ROV
172'"
171#
BPAR
RRDY
169RST
2697162#
RTS
2287
RTTY
2376
RTY1
159#
RXEN
438#
SAllE0
852#
SAllE 1
SArlE2 4520#
SMlE3 4620#
SAME4 3413#
--_ SAllE5 3725#
473
SAVPC
160#
SBCH
SEAl
1365
SEA10 1371
SEAl I 1352
SEA12 14301355#
SEA2
SEA3
1362
SEA4I
1376
1377#
SEA5
1393#'
SEA6
SEA7'
1299
SEAS
1300
1309
SEA9
SEARCR 911
SET00
846
SETPI 1016
SEULMX 4269SEULX
848
SEWK9
844
SEXDA 2043
SPEC
3645
153#
ST1
152#
ST15
151#
S1'2
STA2
3822
3819
STAS
STOWE: 1043
SUDBL
982
SY3MBZ 447#
144#
SYNC
17'4#
SYlfD
2698#
TO
185#
TADV
TFl
516
TOGEA 2901
TOGROU 2780
TOGRST 2808
168#
TRDY
TRUE
380619
TRW
TRW 1
630
TXBE
170157#
TXEN
TYCI
2208
2180#
TYCO
TYCSTS 2627#
TYPO
2156
2202#
TYRI
RGMAX
RGPTR
RGTOP

\ -

SYl!BoL CBOSS BElEl'lEKCE:.

PACZ

V2.8

?

1173327
551

1513
620

220')#
2227
2232#

2215

2688

333

1138

2224
2892
183
2374#
2379#
183
727
950
4557
4659
3422
3734
474#

2396
3241

2632

2431

2435

13821422#
1427#
1436
1381
13691385#
1392
1419
1338
1310
1319
1331#'
3463
1206

1413

325
533
3784

2855
1207'
4450#
3647#
181
3828
3824#
1118
1993
2599
2779
76S
ISl8'"
3100
2789
2812
2186
584
,626
631#
2214
183
2390#
2617
2674
2163
2375

1528
673

./

--

1533
784

1679
1212

1746
1483

3303

.-.--......~

,

-,

13961314
1345

1346
1350#

1402

4283#
1911

3451

4276#

3428

3456

3460

4271#

1938
2021
3186

232'T

2717
4022#

3349

4446#

2027
3215

3143
2913
2907

3243#
2927
3072

3e79
3089

3088
3240#

3185

3202

3242

2634
628#

2689

3750

4137

257'6
2678
3543
2256

3545
3562
3566
2.502

3568
2581

2616#

2682

.....

..........

---

1408#

3830#
1846
2015
317'4

1659

--,~

'.,.

2879
4281#

345.
1600

3443
1586

2788
2216

2550

2379

3245#

...

.,,:

._-----_._--_._---

r--·--·

ISIS-II ASSE!IBI..ER sntBOL CltOSS REPElWfCE.
533#
539
353#
5S9
692#
690
459#
723
720
722595
617UDDI
3960
39623957#
3951
UDD2
3931#
3935
UDD3
3941#
3939
UDD4
3909
UDDFL 2611
3926#
UDDFN 3916
331#
UPLMH
352
332#
UPun.
333
286#
752
USACT
283#
770
USADA
163#
USRST
USTlME 2919
3179
2696# 3078
VDD
2758#
VERI
2756
VERIFY 2747# 3036
WAIT
1179 "12:>8
3329#
WAITI 3327
WAIT2 1278
1390
1292#
lIDSEAR 912
3261#
WRDUT 3074
2457# 2543
WRI3
2491#
WRI4
2488
2495#
1mI3
2490
2544#
WRI6
2493
2527# 2536
WRI7
1mI8
2555- 2558
1mI9
2497
24992450#
WRITE
920
18..3
WlUC1A 1334
353#
356
WRKIH
356#
357
WlUCIL
4172
35~#
358
WRK2H
358#
WlUC2L
359
2874
2888
359#
WRDH
360
36....
WlUCJL
361
1969
2326
WBXA
353#
WlUQI
354
334#
355
WRKL
2885
3122
3615# 3616
liT 1
3613# 3617
liT2

W.O

PACE

8

UBKI

UBK2
UBK3
UBK3
UBIC6
UBK9

.

724

725

3923

3938#

1007
2181
2189

1913
2212
2233

2014
2391
2398

3196
3087

3222#

3225

3091
3312-

3158

3138

3317#

1967
4666
981

2454

2896

4662#'

1211

1244

1985

1301
1351
3089
1293
1311
3495
983
973
3685

1968
1374
8855
1315
1347
4667#
230e
980
3733

282..
14eS
3125
1332
1428

3105
1974

23211
1071
4017

CROSS REFERL.'VCE COMPLETE

3062

3442

4176

4181

4272

2019

2932

2867

241m

3687

3733

STSS

1998
4418

2885

2825

2M2

2949

287.

2886

3121

2979
1975
4171

2988
1992\
418e

2993
2304
4215

3el3
2314
4282

3e15
2468
4309

3494
2512
4421

2873
4447

2969
2628

3ge1l

.
Source Exif Data: 
File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.6
Linearized                      : No
Create Date                     : 2017:03:05 11:30:21-08:00
Modify Date                     : 2017:03:05 11:43:15-08:00
XMP Toolkit                     : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19
Metadata Date                   : 2017:03:05 11:43:15-08:00
Producer                        : Adobe Acrobat 9.0 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:71ac87f4-e250-a14a-9ba0-34420974d586
Instance ID                     : uuid:90db09e3-3b28-ad41-af4e-49da6b3b1052
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 80
EXIF Metadata provided by EXIF.tools

Navigation menu