Digital PDFs

AC-8954E-MC

April 1979

23 pages

Original

2.5MB

Document:	CZM9AE0-Bootstrap Terminator-M9301 M9400
Order Number:	AC-8954E-MC
Revision:	0
Pages:	23
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/M9301/AC-8954E-MC_CZM9AE0-Bootstrap_Terminator-M9301_M9400_Apr79.pdf

OCR Text

·Mt..ltl.

!-IMI! J~A(h152)

ClM9AE.P!1

17.APP-79
17-APR-79 10112

10114

PA'GE 2

SEY

!
2
3
4

• RE~' %

':5

7
R
9

t<'l
.11
12

13
14

15
16

IDI£t'JTIfICATION

19
20
21
22
23
24

PRODUCT cnDE:

AC-8954t-MC

FFODlJCT NAME:

CZM9AE\?

P,OOTSIRP.PIT~IHHNATOJo!

(M9JIll,

DATE;

26
27

PPOGQA~

~ArNTAINER;

APRIL, 1979
rlAGNOSTIC ENGINEERING

29
Ji'!

31
32
13
34
35
3"
37
38
39
40

42
43
44
45
46

TBt INFORVATION IN T~IS DOCUMENT'IS SUBJECT TO CHANGK WITHOUT
~OTICE ANG SHOULD NOT RE CO~5TRIIED AS A COMMlr~ENT bf DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIpMENT CORPORATION ASSUMES
MO RESPQN518lLITY FOR ANy ERRORS THAT MMAr APPEAM l~ THIS DncUM~~T
ThL SOFTWIR[ OI£SCRltiED IN THIS nOCliMENT IS FURNISH~D U~D~R A
LICI£NSE ~~D HAY ONLy AE U~En OF COPIE~ IN ACCORDANCE WITH Tht
TtRMS or ~UCH LICENS~.

DIGITAL EQUIpMENT CORPORATION ASSU~ES NO RESPONSIBILITY FOp
IMF U~E OR RELIABILITY OF 115 SOfT.ARE UN EQUIPM~Nr THAT IS
NOT SUPPLJED HY DIGITAL.

47
4B

CPPYRIGHI (el 1976, 1979 BY DIGITAL

EQUIP~~NT

CORPUBATIUN

M94~0)

00~1

.~AIN.

CZM9AE.Pl1
50
51

52
53
54
55

ytl

J0A(1~52)
17-APR-79
17-APR .. 79 10&12

1 (IJ 11

3
S~Q

*************************************

** 5UM~ARY or OPERATING INSTRUCTIONS **

*************************************

")7
58
59
6"'.
61

THE FOLIUWING PPOCFOURE CAN BE USEO TO RUN THIS DIAG~Q5TIC
IN A DEVICE VEPIFICATION MODE. IF THE PROGRAM DOES NOT
PU~ SUCCESSFULLY CONSULT THE FOLLO~rNG DOCU~fNT FOP ASSlSTANCE.
OP~RATI~G

PROCFDU~~I

63
64

1. - I,DAD THE PROGRAM USING NORMAL PROCEDURES.

LOAL ADDRESS 200

66
67

SET SWITCH NEGISTER TO SiLECT THE PROPER
VERSIO~ OF TH~ RO~ UNOE~ fEST.
CS~E INSTRUCTIONS If A SOfT~ARE SWITCH REGISTER
IS TO BE U5ED,)

PRESS START

TH[ P~OGRAM SHOULD TAKE ABOUT 1 SEC TO
COMPLFTE THE TEST AND ~RI~ll "END OF TEST".

IF THF. rRQGRA~ DOES NOT ~UN AS DESCRIBEO
APOvF., CONSULT THE FULL OPERATING INSTRUCTIONS
wHICH fOLLOW,

69
70
71
7'}
73
74
75
76
77
78

79
80
81

92
83
114
8'5
86

87'
88
89
90

* *

CAUTION

* *

BECAUSE THE CONTENTS READ FBOM LOCATION 773024
OF THE ~93~1 OPTION IS CONrIGUFATION nfPENDANTCSWITCH
PEGISTtF nEPENnANT), ThIS LOCATION IS NOT l~CLUDf.D IN
THE DATA CH[CK.
THIS LOCATI0~ CAN Bl VE~IFIEO BY EXAMINING IT O~ B~ USING
THE ALTFR~AtE STARTING ADDRESSCSEE S~CTION 2.1.3) TO
PPI~T OUT THIS LOCATION.

IOv)~'2

,MAIN.

MACYii

CZ M9AE.Pl1

30A(1~S2)
17.APP.79
17-APR·79 10112

10&14

PliGE 4
St.(.l

""'103

1 • rc

GENERAL PROGI'AM INfORi1ATION

1•1

PROGRAM PlJRPOSE

93
94
qS

96
97
98
99

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

........ .........

THIS DIaGNOSTIC PROGRAM IS INTENDED TO VERlfY T~E
ROM CONTENTS Of THE ROM SOOTSTRAP MODULES. Th~ PROGRAM
CO~PUTES AND CHECKS A CYCLIC REDUNDANCY CHAHACTER
AND A LONGITUOINaL PARITY CHARACtER FOR TH~ CONTENTS
OF THE ROM STORAGE AVAILA8LE IN AN ~93~1 OR M9400 MODULE.

100

101
lkl2

103
104
105

I SEPARATE ROtITIN£ INCLUDED A~LO~S THE USER TO TYPE
THE CONTE~TS OF THE RUM STORAG~ ON THE TELETYPE AS
A~ ~ID TO DE6UGGING.

10&
107
l~Hl

1.2

SYSTEM REQUIREMENTS

1.2.1

HARDWARE

109
11(.1

111
112
113

PDP/11 ppnCfSSOR
TELETYPE OR EQUIVALENT
41' Of MEMORY
~q301 OP ~9400 MOnULE

114
115

116

117
118
119
121'11

1.2.2

121
122

SOFTWARE
THIS PROGfAN IS WRITTEN TO h~ RUN ~S A STAND-ALONE PROGFA~.
HOWEVER, THE PROGRAM rs DESIGNEn TO RUN UNDFR AUIOMATtD
PRODUCT TEST SYSTEM (APT) IN 4LL THREE MODES.

123
124

125

THE

126

FROGPA~

CAN ALSO tiE RUN UNDEN THE ACT 11 MONITOR.

127
128

1.3

129
130
131

RFLATED DOCUMENTS AND
----... -.--_ ... --- ..... -...
STA~DARDS

DIAGNOSTIC [NGINEE~ING STANDARDS AND CONVENTIONS PROGRAMMING PRACTIClS
DOCUMENT NO. 175-003-009-00

132

133

APT

134

l~TERFACE

SPECIFICATION, REV. 13

135
136
137
138

1.4

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

NONE, HOWEVlR Trig CPU IS ASSUM£D TO BE FUNCTIONING

139
140
141

DIAGNOSTIC HIERARCHY PREREQUISITES

1 .5

FAILUk~

ASSUMPTIONS

142
143
144

THE PPOCESSO~ IS

ASSUM~O

TO tiK rUNCTION1NG PROPERLY.

.MAlN.~CHI

CZ M9AE.Pll

145
146
147

3011.(1052) 17.APR.79
17.l\Pk-79 1~t12

10:

SEU \!l011J4
2.V,

148
149

OfERATJNG INSTRUCTI"NS

-----p--- --.. --..

2.1

LOADI~G

2.1.1

AnD

-.-~

STA~TING

PRQCEDUR!S

150

151
152
153
154
155

15&
157

USE NORMaL PRnC~DURgS fOR LOADING DIAGhOSTIC
2.1.2

158

PROGRA~S.

.. -.... START
-_ ...

NORr~AL

159
160

101
1&2
163
1&4

LOAD SOFTWARE SWITCH REGISTER (IF UStO) TO SELECT THE
ROM VERSION UNDER TEST. (SEE 2.3)

LOAP ADDRF5S 200

165
lb6
167

loA

169
170
171

SET
FO~

?.1,3

172
173

hARD~A~E SWITCh R~GISTER (If AVAILABLE)
V~PSION UNDER TEST (SEE 2,3).

TO SELECT THt

STAPT

OI'TIONH ST1IRT
THE OPTIONAL

STAP1IM~

ADDRESS IS USED TO TYPE OUT THE CONTENTS

174

or THE RO~ fOR US~ IN VISUAL VEHlrICArIO~ OP AS A DEBUGG1N~

175

TOOL.

176

liSE THE gaME PROCEDURE AS A NO~MAL START ~XCEPT USE
ADDRESS 210 IN STEP 2.

177
178
179
180

181
182
tA3

184
185
186

187
188

189
190
191
192
193
194

195
196

197

2.2

.--- ... _._---_ .....
SPECl~L

E~VIRONMEN1S

THIS rROGPAP IS WRITTEN TO COMPLY wITH ALL THE REQUIREMENTS
OF TH~ APT INTERFACE SP~CIFICATION. IT wILL RUN UNDEN APT
IN EITHER QUICK VERIFi, PROGRAM OR RUN-TIME MODES.

THIS PROGRA~ IS WRITTEN TO CO~PLY WITH ThE ACT11/XXDP
INTfRFACf REQUIREMENTS.
PU~NrNG IN ACTl1 QUICK VERIfY OR XIDP CHAIN MODE
(LOC. 42 NOT ~), OR APT wurCK VERIFY AND PROGRAM MODE
THE PROGRAM ATTEMPTS TO RUN wITHOUT OPERATOR
INTEPVE~TrON OR SWITCH REGISTER SELECTIOh.
THE
COMPUTED CRe IS COMPARED AGAINST THE CRC rop ALL KNOWN
VERSIONS OF THE ROM BOOTSTRAP. WHEN A MATCH IS rOUND THE
VfRSION o~ THE MODULE IS TYPED fOR VISUAL VERIFICATION.
WH~N

,MAIN. ~ACYtl 30A(10S2) 17-APR-79
CZ~9AE.P'1
17-APR-79 101'2

10:14

PACE 0
SEIoI i7005

199

2.3

2001

201
2102
203
204

THE PROGRAM AUTOMATICALLY CHECKS FOR THE PRESENCi Of
A HA~D~AR~ SWITCH REGISTER. IF NO RESPONSE IS FOUN~ WHEN
ADDRESSING THE HARDWARE SwR (17757~), THE ADURE5S
OF THE SOFTWARE SWR (176) IS SUBStITUTED.

2105
2106

207
208

FOR PROCESSORS WITH NO HARUwARE SWITCH REGISTER, THE OPfRAI0H
SHOULD SET THE DFSI~ED S~ITCH VALUE IN LOCATION 176

209
2HI

211
212
213
214

----_.-

PPOGRAM OPTIONS

.........

WARNING ••• IN ORDER TO ALLOW TESTING or M7942.~B BOARDS ON THE VT71,
IF LOCATION 17& IS SET TO 6, THE sOfTWARE S~ITCH REGISTER WILL 6E
USED REGARDLESS Of HAROWARE S~ITCH REGISTER AVAILABILITY.
2.3,1

215

SWITCH SELECTION
p

•• -.-

• • • _._ • • •

THE SWITC~ REGISTER (H~RDWARE Ok SOFT~ARE) 15 USED TO SELECT
THE VERSIUN OF THE ROM BOOTSTRAP TO 8~ TES1ED
JCCORDING TO TH~ FOLLOWING TABLE. NOTE: THESE SlTTINGS ARK
OCTAL NUMMEPS. THEY ARE ~OT PARTICULAR SWITCHES SET TO A
ONE. FOP EXAMP~E, TO SELECT THE M9301-YH VERSION, SET
SwITCHES .3 AND #1 IN THE S~lTCH REGISTER. THIS
CORRESPONDS TO AN OCTAL 12.

216
217

218
219

220

221
222
223
224
225
226
227

228
229
230

SwR

MODULE. VERSION

1
2
3
4

M9301-YB

~19301-YA
~93el-YC
M94~0·YA

(OF IC)

231
234
233
234

23"i
2]0

237

11
12
13

23A

M9301~iJ

239

240

M9400-nJ
M93!1
REVISION

M9301-YF

~7942·Y8

M9301-YD

M9400-YH (OP lK)
~q311
REVISION
M9301-XH

* --- SEE NOTE BELOW ._.

M9301-yg

*** SEt N01~ b~LOW ***

241

242
243
244

245
246
247
248
249
250
251
752

253

NOTE:

fO~

M9311 ONLy •••••••••••

IF RO~ IN LOCATION l-5 IS #23-S24A9, THEN
YOU HAVE REVISION *. (I.E, USE SWR 11 SETTING)
IF ROM IN LOC.TION E-S IS #23-688A9, IH~N
YOU HAVi kEVISION A .e I.E. U~E SWR 16 SETTING)
If T~~ CRe AND LPC fOR NEW VERSIONS ARE KNOWN BUT
hOT IN THE ABOVE TABLE, SET THE SWITCH REGISTER TO ZEPO
AND Ah8~ER IHF TELE£YP~ DIALOG.

w
,MAIN, ~CY11 30A(1052) 17-APP-79
CZM9AE.Pl1
17-APP.7Q 10112

7
::;t:1.l f<HH:lb

TO DETERMINE THE CRC AND LPC FOR A NEW VERSION. START
THE DIAGNOSTIC AT 20~ WITH 5WP:0. ANSWE" ~ TO THE
REQUESTS FOP THE LFC AND CRC, THE RESULTING MESSAGES
WILL INDICATE THE CORRECT FIITURE RESPONSES fOR CRC AND
~PC PROVI~Fn THE TEST 15 HU~ ON A ~NOWN·GOOD MODULE.

254
255
256

257
258
259
260
261

2.3.2

TFLETYPE {'IIALnG

262
2&3
264

265
266

267
268
269
270

271
272
273
274
215
276

Jo17
278
279
280
281

282
283

SEVERAL Ql[STIONS ARE ASKED UF THF OPERATOR IN ORDER
TO OBTAIN SUFFICIENT INfOR~ATION FOR TESTING A ROM MODULE
NOT P~EVIOUSLY SUPPORTED IN THF DIAGNOSTIC, THE DIALOG
IS I"ITIATEP IF THE PROGRAM IS STARTED WITH THE SWR
~.
ALL P!SFO~StS APF IN OCTAL AhD TERMINATED ~y A
CARRI1Gf RETURN.

ILL PESFO~SES ARE CHECK~D FOR VALID OCTAL NUM~ERS.
IF AN JLLtGAL CHARACTER IS TYPED, rH~ PROG~AM wILL TYPE
A "1", CAPPIAGE FEtURN-LINE FEED AND
AwAIT THE PROPER INPUT.

If A ~I~TAKE IS ~OTJCED SrFORE THE CARRIAGE RETURN IS USED
TO TEPMIN_TE THE INPUT, A RUBOUr CAN BE
USED TO DELETf MISTYPED l~PUT.
TYPE C~C VALUE:
FEQUFSTS THE VALUE OF THE CYCLIC REDUNDANCY CdECK
PPlVTOUSLY CALCULATED FOR THIS V~RSION OF THE POM MODULE.
IT IS THE VALUE AGAINST WHICH THE UNIT UNO~R TESt'S CRC
~JLL Bt COMPAFED.
1.

T~IS

H4
285
286
287
288

2Rq

2. TYPE LPC VALUEI
THIS RfQUESTS iHE VAULE OF THE LONGITUDINAL PARITY CHECK
PREVIOUSLY CALCULATED fOR THIS VEFSIUn OF THE ROM MODULf.
IT IS THB VALUE _GAINST ~HICH THE UNIT U~DER T~ST'S LPC
wtLL BE COMPARED.

29~'

Hl
292
293
294
295
296
297
298
299
30~

30t

3. TYPE STARTING ADDR. Of 1ST ROM ADDR. aPACEI
THIS QUESTION REFERS TO THE 'Acr THAT THE ~OM SPACE IN
AROM BUOTSTRAP MODULE IS DIVIDED INTO 2 DISTINCT ADDRESS SPACES.
THF STARTIhG ADDRESS Of TH~ 1ST RANG~ OF ADDRESSES. THE
STA~DAFD M9301 & Mq400 B~Glh AT 173000.

4. TYPF LENGTH (BYTES) OF 1ST ROM ADOR. SPACE:
THIS REQUlSTS THE LfNGIH Of rH~ 1ST GROUP OF ROM ADDR~SSES
IN BYTE~. THE STANDARD M93Al & .M9400 HAVE AN lNITIAL ADDRESS Sf ACE
OF 1000 BYTES.
IF THIS SgCTION OF ADUR~SSES IS NOT
USED RY THIS VErSION, A~S~ER ~ TO THIS QUESTION.

302

303
304
W5
3,,'6

307
308

309

TYPE

5.
TYPE ~T~RTI~G ADDR. Of 2NU ROM ADDk. SPACE:
THIS REFERS TO THE fIRST ADDRESS IN THE SECOND DISTINCT
GPOUP Of hO~ ADnRESSES. THE RESPONSE fOR ~ STANDARD
M9301 & M94U0 WOULD AE lb5000.
~.
TYPF LFrGTH (PiTES) OF 2ND ROM ~D0R. SPACE:
THIS PEQUESTS THE L~NGTH OF THE 2ND GROUP OF HOM ADDR~SSFS
I~ HYTES.
THE SrANDAMD M9301 & M94M0 HAVE A SECO~O ADDRESS SPACE

·MAIN.

MACYl1 30A(1"52) 17.APR-79
17.APR-79 10112

CZ~9A!.Pll

10314

,sEQ 00167

OF 10~~ BYTES. IF THIS SECTION or ADDR~SSES IS NOT USED
EY THIS VEPSION, ANSWER ~ TO THtS QUeSTION.

3Hl
H1
312
313
314
315
316

317
3111
319

PAGE R

2.4

EXECUTIOtJ TIMES
..........
.....
THE DIAGNOSTIC COMPL£TlS 1 PASS IN LESS THAN 1 s~c.
ONCE ThE INPUT DIALOG HAS aE~N CO~PLETEO.
TnE PROGRA~ WILL HALT UPON COMPLETlON, HOWEVER, IF RUNNING
VNDfR APT TRE PROGRAM WILL CYCLE CONTINUOUSLY.

•

.1~AIN •
CZtlI9AE.PI \

320
371
322

1 30A(1057)

\7-APR-79

10'14

9
~E.i.l

17-APf!-79 hit 14

3.0

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

EFROR INfORMATION

323

324
325
326
327

WHEN THE ~IlGNOSTIC DiTECTS A DISCREPAhCY bETWEEN THE
fXPFCTFP ~~o COMPHTED CRC OR LPC BOTH ARE PRINTED
ON THE TEI·ETXPE.

328

ANY DISCREPANCY IN THE LPC CAN ASSIST IN ISOLATING THE
PROBLEM TO THE FOM IC.

329
330
3H

UNDER ArT THE ERROR Ii INDICATED BY DEPOSITING ERROR INfORMATION
IN THE APT MAIL~nx BEfORE riALTING.

332

333
334

4.0

335
336

337

PFOGRESS PEPORTS
.....
-.. --_ ....
AT lHE FNC 0' EACH PASS THE PROGRAM INCREMENTS TO THE
LOCATIO~ $PASS WHICH IS IN THE APT MAILBOX. THIS
LOCATION ~ILL ALWAYS CONTAIN TBE NUMB~P OF PASSES
COMPLETED. $PASS IS ~ESET wITH EVEFY RESTART.

338
339
340
341

ADDITIONALLY, T~E M~SSAG£ "END OF TEST" IS FRI~1ED ON THE CONSOLE
TELETYPE ~FTER EACH PASS. NORMALLY ONLY ONE PASS NEEDS
TO RUN TO VERIfY THF MODULE.

342

343
344

345
346

347
H8

349
350
351
352
353
354
355
356
357
358
359
360
361

3e2
363
364
365
366
367
368
369
37'"

371
372
373
374
375

5.0

ShOOTING
------- .....
---

TROU~LE

THE ALGORIT~M FOP CO~PUTING THE CRC IS [HE SAME AS THAT
USED ON q-T~ACK MAGNETIC TAPE ~ITH ODD PARITY. THE
cpe IS CALCULATED ON A BYTE-bY-BYTE BASIS. WHILE THE
ALGORITHM IS SUCCESSFUL Ih OET&CTING MULTIPLE ERRORS, ITS
USF .3 A Gt8UGGING A10 IS LIMITED.
THE LPC IS CALCULATED BY ASSEMBLING THE XOR OF EVERY
WORn IN T~E ROM, WHILE ONLY USEFUL IN CATCHING AN
ODD NUMPER OF ERFORS IN EACH BIT POSITION, IT IS VERY
USEFU~ IN IsOLATING THE PPOBLEM TO A CHIP.
8Y LOCATING wHICH
PIT POSITIONS AR~ IN DISCREPANCY, TH~ CORRESPOhDING ROM
CHIPS CAN BE ISOLATED.
IF NO OTH~R CLUES CAN Bi OBTAINED, stART ThE PROGRAM
AT 210 AND COMPAR~ THE PRINTOUT Of THE CODE WITH THE
LISTING FOR THf VERSION ~fING TESTED.

* *

CAUTION

BECAUSE THE CONTENTS READ fROM LOCATION

773~24

OF THE M9301 OPTION IS CONFIGURATION DEPENDANT(SWITCH

PEGISTER "[PENDANT), THIS LOCATION IS NOT INCLUDlD IN
THE DATA CHECK,
THIS LOCATION CAh Sf VENltlED BY EXAMINING IT OR BY USING
THE ALTER0ATE STARTING ADDRESS(SfE SECTIO~ 2.1.3) TO
PRINT nUT THIS LOCATION,

f6flllclS

.MAIN 1

MACYll

CZM9AE,Pli

'WA(10'52}

17-APP.,79

1~114

PAGE.

17.APR-79 I r l12

376
377
17B
IISTH:G

379
3B0
3B I
182
183

394

,MAIN,
"AOII 3"A(10SJ)
17-APR-79
CZM9AE,PII
\7-APR-79 le\12
385
386
387
)SA
389
190
391
392
39)
394
395
396
397
39A
399
400
401
402
40)
404
405
,106
407
40A
409
410
411
412
413
414

10.14

PAG.

,ENABLE ASS
ME
,LIST
• NLlSr MC,r·1O,C 1·1['I
~.00.0

aSwRB:':J

, a"TTL
001100

000011
0"~0~1

000015
000200
177776
177774
177772
177570
17757~

~0000.

00.001
~00002
0~0003

000004

415

000~0S

416
417
418
419
420
421
422
423
424
425
426
427
428
42q

00000.
0P00~7

0i)0006
n00007
'~000"

00004"
C00100
000140
,100200
00~240

000300
000340

43~

BASIC DH JNITIONS

I_INITIAL ADDRFSS OF THE STACK POINT~R *** t 10~ ***
STACK_
110.
,EQV IV EHT, ERROR
.IBASIC PfrINITION 01" ERROR CALL
lOT, SCOPE
, '~ASIC OHINlTION Of SCOPE CALL
.EDUIV
,"MISCELLANEOUS [lFfI"ITJO.S
HTo
II
• ,COOf. fOR HORIZO"TAL TAB
LF.
12
• ,CODE I"OR Lli\lE fEED
, ,CODE FOR CA"HlAG!. HETUR'
CPo
15
CRLf.
,.CODE fOR CARRIAGE RETUR"-LINE fEED
'00
PSz
177776
"POOCESSOH SlArus ~ORD
.[QUIV
PS,PSW
"STlCK LI"IT REGISTER
STnMT' 177774
PIRQ.
177772
• ,PROGRAM I"TERRUPI REQU~ST REGlSnR
DSWR=
177570
"HAPD'~PF SwITCH k~GISTER
DOISP,
17757~
• ,H~RD'AR!. DISPLAY kfGISTEk
: .GlNERAL PTJRPOS! REGISTER nHINI1JONS
R0.
I,G'"ERAL PF.GISTER
"GENERAL R~GISTER
Rl·
U
R2.
"GE~ERAL REGISTER
.2
P3.
,.GE~ERAL REGISTER
,~
R4.,GE"ERAL REGISTER
RS.
"GENERAL REGIST~R
\S
.,GENER~L REGISTER
R6H
P7.
"GENERAL REGISTER
t7
spa
\6
, 'ST~C' POI'TEk
PC.
,.PRO~RAM COUNTER
IT

'"
'J

;ftPRIOR1TY Ll::VEL rEf'lNITIOr-oS
"PRIORllY
40
• ,PRIORITY
PR2=
le0
""RIORlty
, ,PRIORITY
PR3140
, , PRIOR ITY
200
PR4PRS.
, .PRIORlTY
240
3P0
PR6"PRIORITY
PR7:
, ,F~IORITY
14~
pp.~1I:

PRill:

•

:*"SWITCH

431

432

I[lP000

433
434
415
436
417
438
4)9
440

~40"0e
P2000~

~EGISTE~H

Sill 1 !58
5W'114:

1"0000

5w13.

40~~~

~10000

511112.

200"0
1"0M

0040P0
002000
""1"0e

SWII_

4~0"

!'WHII=

2~00

~"'09=

0Vlltl400

swes=

10""
40P

0~0200

SiNe7!:

2~0

S"LTCH

Le;VEL
LEV •. "
LEVEL
LEVEL
LE~lL

LEVEL
L/:;V£L
L!:VEL

UfFI~ITlO'S

,MAIN, ~aCY1\ 3dA(!.!')
".A~R·'9
CZM9AE,PI!
!70APR.79 1",12

PAGE I~
BASIC Df.fINITlO'S

SW06=

swes=

I"~

~00_40

"~0020

SW'~41111

~~01

141
442
443
444
445

1~114

••

000~1~

S~0311

r."0~

6W"'2_

Sw~ll1

446

r""~02

447

O"0MI

SW00.

448
449

, EGUIV

SW~9,S'9

,~QUIV

SW0B, SoB

45~

,EQUJV
,EQUIV
,EQUIV

5W05,SW5

451
452
453
454

,E.QUTV

,tQUIV
,EQUIV
,EQUIV
,EQUIV

455

456
457
458
459
460
461
462
46)
404
465
466

SW~2,SW2

S\t;Pll,Swt
SW0i1', SW~

;*ClA't'A BIT O!.rt"lTIONS (BIT00
100000
40000
20000

020000
010000
"N000

san_
~ITII'

4~00

002000

8IT10BIT09a

2000

E>IT0B=

400
200
100
410
20

001000
00,,400
000200
000100
"00040
"00020

468
469
470

SIl:"4,SW4
S\ll03,SW]

B1T~7.

1~000

10~0

472
473
474

0eprl0
000004
r~.002

BIT"6_
BIT05.
BIT04.
RIT03=
BIT02=
BIT01a

475

000001

BIT"'~=

,EQUIV
,EQUIV
.EQUIV

BIT09,BlT9

471

476

477
479
479
490
491
482
4A3
4B4
485
486
4B7
4BB
489
490
491

,EaUIV

,EOtll v

.EQUIV
• EQUIV
,EQUIV
,EQUIV

aFQUIV

493
494
495
496

,MAIN, MACYlI 30AtI"52)
17·AP~-79
CZM9AE,PII
17.APP-79 1.'12
497
499
499

000060
1)00064
0!'P240

5~0

0r0000

TKVEC=
TPVEC.

523
514
525
526

~IT"3,BIT3

BIT02.BlTl
BIT.I,BITI
BIT"0,BIT"

SEY 0012
"TTY KEHOARD VECTOR
IITTY PRl~TER VECTOR
, ,PROGRA~ INTE~RUPT HyUEST

60
64

VECTO~

TPAP

CATC~ER

;,ALL UNUSED LOCATIONS fROM 4 • 776 CONTAIN A ".+2,HALT"
;'SEQUE~CE TO CATCH ILLEGAL TRAPS AND INfERRUPTS
I"LOCATION 0 CONTAINS 0 TO CATCrl IMPRDPE~LY LOADED VECTORS
r00174
000171
000176

.=t74

~00000

OISPREGI ,.ORU
SWR.G,
,.ORD

000200

,.2~0

0~0000

~0~2E0

~05067

0.r~24

~00204

000167
012767
000167

000001

000210
~00216

CLF

00~666

000612

00~b54

001000
~010e 2
0010~4

001006
~01"1kl

0'l1012
0"1~14

P01000
177570
177570
17 3~00
001000
15500"
001000
P00~~~

~~1016

00~0e0

00102"

0000e0
000000

0~1022
001~24
~01026

00103"

0000~0

000000
0000~0

'ISOFT.ARE DISPLAY ~EGISTER
'ISOfTwARE SWITCH REGISTER
T'/POUT

lHt'P

STAPT

MOV

" , TYPOUT
START

J~P

PS=I77776
TRAPVEC=34

177776
reM34

~27

53~

BIT04,~IT4

,_0

528
529
531
532
533
534
535
536
537
538
539
540
541
542
543
544

RIT07,BIT7
BIT06,81T6
RIT05,BIT5

.00

,SBTTL

5h-t

511
512
513
5\4
515
516
517
51 B
51"
520
521

BlTl'B,~lTR

PIRQVrC=24~

5~2
5~3

5~9

4
2

10114 PACE 13
eASIC DEF'lNtllONS

501
504
505
506
507
509

I·

1_SASIC "CPU" TRAP VECTOP ADDRESSES
"TIMF OUT AND DTH~R ERRORS
ERRVFr= 4
"RESERV~D AN~ ILLEGAL INST~UCTIDNS
RESVEC_ 10
TRlTVECSl4
II"T" BIT
TPTVECa 14
"TRACE TRAP
ePTVEC= 14
"BREA~POINT TRAP tBPT)
"INPUT/OUTPUT T~AP (lOT) *.SCOPE ••
IOrVEC. 20
PW~VfC' 24
"POWER FAIL
"EMULATOP TRAP (EMT) "ER~O~.*
E~TVEC. 30
TRAPVrC=34
,,"TRAP" TR~P

000004
000010
000011
000014
0"0014
000020
r00024
000030
000034

492

.0 RITI5)

SITUBITI4.
PITH-

IM000
';4"0~~

4.,

SW~7,SW7

SW"'6,SWfl

,.1"0~

a"R,
177570
DISPLAY I
ROMS~I' 17300"
DATLNII 512.
POMSA2' 165000
DAUN2' 512.
XORS I
0
LXCRC, 0
EXLPC, p
ACTCRC' 0
ACTI.PC I 0
PARCNT' 0
THUUT, 0
,SBTTL

177~7C

.CIII HOOKS

1 , ** **** ************ ************ ***** ... <110 . .
P~1032
0P~046

000052

;HDOKS REOUIRED BY ACTII
SSVPC',

*.* ** ... **** .****** ***** ***

,SAVE PC

.=4';

r."0046
00206"
000052

IENDAD
.-52
,WOPD

00~~00

001032

',I)SET LOC.4. TO ADDRESS OF lEND AD

,.$SV~C

,59TTL

APT PARAMETER BLOCK

,,2)SET LOC,52 TO
" RESTOR~ PC

~E~O

545
546
547

ISET

548

11**************************************************** *****.*****

JI*****************************4********************** **.* ••• ****

549

~01032

55~

551

552

g00024

000024
000200
000044

LOCATIO~S

.$X..
,024
200
,-44

A~O

44 AS REQUIRED

ro~

APT

"SAVE CURRENT LOCATION
I ,SET POWE~ rAIL TO POINT TO START Of PROGRAM
I' fOR APT START UP
'IPOINT TO APT INDIRECT AnORESS PNTR.

.S~OP

·MAIN,

M~CYll

CZM9~F,Ptt
~53

fl1J0~4 <1

J0A(Je52)

P-APR.79

i~'14

p ... A.PR ... 19 H;:12

APT

PAGE

~L~C~

SAPTHDR 'I?OltIT TO APT H~.ADf.R "LOCK
.=.SX
J JkESET LOCATION COUNTER

0"1"32
~~H ~ 11

554
555

PA~AMfTl~

;1·**********************4**************************** ***********

556

;IETU' AFT 'ARA."fP BLOCK AS

557
558
559
56.
561
502
563
564
565
566
567
568

;INTtRF'ACE. SPEC.
~01"J2
~01~J2

001'JJ4
"01"J6
0"104"
~~ 1"42
.01044

SA.THDI
GHIBTS'
a"BADR'
nST_1

"'CfHl0€
001"H
""0.02
"""002
000.00
0""014

578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
59]
594
595
596
597
598
599

600
601
602
b03
604
605
606
607
608

bl7
618
019
620
621
022
62]
624
6'S
026
627
628
.29
610
631
63.
01]

S"AIL

ITWO HIGH HITS Or 18 BIT M.AILI;OX ADDR,
'IADDRESS OF APT M~IL"OX (BITM 0-15)

TIM Of LONGEST TEST

J'~U~

$PASTI~ ,

,_OBD

S[l.ITI~1

,~ORD"

JlRl'N TIME IN SECS, N' 1ST PASS ON I UNII (UUIO VoklFY )
JlADDITlONAL RUN THI, (SECS) OF A PA.S FOk oAen ALDIrIONAU UNII
,,"'TE:ND-SIIAlI.12 "LENGTH MAILBOX-ETABLE('''ROS)

,SRTTL

,WOPD
APT MAIL6nX·ETAHL~

,EVEN
G~AIL'

0~104b

"01046
001050
""1052
001054

It:hHH~00

$MSCn I

• wORD

,o,MSGTY

0000".

SFATAL:

,wORD

VHAL
AnSTN
APASS
A"EVCT
AUNIT

~'~'H~e~

STfSTNZ

,l>iORD

O(H10"0

SPASSI
SDlVcn
SUNIT.

,WOPD
,"opn
,WORD

SM,sGA,[) I
IMsr::LGI

• wORD

A,·1SGAD

.~OPI)

A"SGLG

,BYTE
,RnE

AE:NyM

"~1056

Nl000~

"~1060

~00001i'

0.1062
0010b4

~"'rI000
U~0~0"

SETABLEI

0el~66

l'0t0&b
"01067
00107.
001072
"~I"H

SI:.(~VI

00"
00"

sF.NYMI

G.sWREG I • WORD

",~('J"091

AENV
AS,FEG

0.0000

8USWR I

• r)ORO

AUSf;R

~00~00

SCPUOP I

'o/IORO

ACPUOP

,,"
,"
,"
,.,"

I'API MAIL.OX
'I MESSAGE TnE CODE
"nTAL ERRUR NUMBER
, ,TEST i"4Uf\1fl,EP
"PASS COUNT
I,D, V10; COUNT
1,1/0 UNIT HUM.ER
., MESSAGE ADDRESS
II/'olT!'SSAlIE LENG1'1i
I,~PI ENVIRON"E_, TABLE
'IENVIRON.ENT BYTE
IIEliVIRO'''E'T MOD~ ~ITS
I' AFT S"!TCH REGISTER
"USER S~I1eHES
'ICPU TYPE,OPTIONS
~ITS IS-II.CPU TYPE
11/04'~I,11/05=_2,11/20=03,11/40=04,ll/'5=05
11/7~3~b,PDQ=~7,Q=1~

HIT 10".EAL TIME CLOCK
eiT
eIT

9=FLOATING POINT PROCESS0R
8=~EMORY fIAI;AGEMENl

SETEND I

001076

.r~EXJT
,,~t '-'76

~"5"67

""1102
0011 e6

0.'067
"12767

e'H'I~01

"011l4

012706

0~~500

STARTI

177746
17774.
1717]6

,S~TTL

CLR
CLF

SnUL
SMSGTYP

~OV

.1,$T~STH

INITIALIZ~ THE COP,.,.N
#~~~,,sp

ICHAR ERROR NO,
ICLEAR MESSAGE lYPE lAPT)
ISET HST NO,
TAGS

,.'OV

r rSe..fUP THE STACK

I,INITIALIZE A tEO VECTORS
MOV
'STRAP,.'TRAPVEC

·~112~

~12737

0~1126

el2737
0127]7

00~57C
00~340

0f>0~J4
0~0"lb

0"4412

M0~24

MOV

#34(:,,~#TRAPVF.:C+2rrJr..VEL 7
ISP~RD~'~'P~RVEC rlPOWlR

~12737

~0034"

00 •• 26

~OV

')40,~#PWPV~C+2

"13 7~6
012737
012767

000"~'4

001114
001142

MOV

fAILURE VECTOR

IrLEVFL 7

I,SIZE fOR' HARDwARE SOITCH "fGISTER,

0~ I I ~4

001162

0.121~

17757.

000e04
177610

P0117'
001176
<>012'14

012767
022777

001206
0"1210
001214

,'0@ 4~ 1

1715H
177177

If NOT fOUND 0. IT IS

~.E~RVEC,·CSP)

JJSAVE ERROR VECTOR

H4S'.'ERkVEC

IISU UP ER"O" nCTOR

PoIOV

.DSNR,SWk

"SETIlP rOR A HARDWARE SIIiICli

PAGE 15
INITIALIZE THE CO·.ON TAGS

1776"4

HOV

177~74

Cf.\P

SNI:.

'DOlSP,DISPLAY
# ... l,@SWP
66$

I,ANO A MARD'AP~ DISPLAY "EGISTER
.ITPI TO pEFEAIOCE HARD'IRE S~R
II"RANCH If NO TIMEOUT TRAP OCCURRED

"AND
.12716

~'61216

"'0~HH'2
~12767

012761
"126]7

0~I'l6

"~5~67

64S'
0""176
",,"W174

0~5276

177520

104401

001312

"17700

0~IH"

~"1421

\l01]2.
001322
001330
001136

""6300
016067
"10067

0f'4714
0'.llb44

016~67

~e4766

.~1144

016067
016067
016067
00A45"

"~5"36
~"51"6

0"144~

659
66~

A~1446

661
662
66]

001452
001454
C01456

664

0~1460

"RkANCR IF NO IIMEOU!
,.SET UP fOR TRAP RETURN

IS~pEG,SWR

"POINT TO

NOT = -1

:JIH~STOHE

CLR
RITR
BEQ
I'IOV

SPASS
I!APTSIZE:,$t.NVM
678
• SS~REG, SwR

.ICLEAN PASS COUNT
"T~ST USER SIZE UNOER ~PT
IIYES,USE NON-APT s_neM
.,NO,USE APr SWITCH REGISTKR

8NE

6.14

00144.
001444

#6~6'(SP)

(SP)+,IilH:PRV£C

PFSTRTI CMPA

635
bl.
617
6,18
619
640
641
642
64]
644
645
646
647
648
649
650
651
652
65]
654
655
656
657
6SA

"~137b

swp

65S

CMP
BFa
TYPE
TlTL

176556

0~!402

~12767

001404
£01106
1'01412
"01114
0~1 416
001420
001422
00142&
001430
0P1432
001434

THE HARDwARE

FR
HnV
RTI
MOV
MOV
MDv

SOfT~AP~

S~~

.D IS.REG, DISP~A 1
E!HlOFI Vl::crOf<

bHI
026727

121727
"@100]

001370
"01374

6661

177617

0127.7

001274
""1302

~~116.

6581

"~14A 3

".llp4

rel352
001160

177554
17755"

00"~04

132767

001242
001250
"01252
"0126"
0012610
.01206
0"12'"
001 ~72

PEGISTE~,

MOV

1~114

0el~ I 2

r,01224
"012].

POINTl~

'ITRAP VECTOR FOR IRAP CALLS

;;fQUAL TO A "_1", SETUP fOR A. SOFTwARE SwITCH
~~1150

,MAIN,
M~CYll 30A(1052)
17.A.R-79
CZM9AE,P!1
17.APR-79 1"112
609
ole
611
612
613
014
615
616

I{I

,OOP~

IN THE APT-PDPII DI~G"DSTIC

:1*************************·******··**********************.******

SbQ
570
571
572
573
514
575
57.
577

,wORD

,hOPU'

PK~I'ED

1$'
5121

"~5156

177470
177 460
177442
17743.
177412
177422

0.~ 161

001"45
122767
001441
0.5767
001012
1~4 40 I
005]11
104407
012667
104401
M5315
104407
012667
104401
005515
104407
012667
104401

MOV

I3S"'P,Fi0
GETl~

!XLPC(Re.),F.XLPC
TXCPC(R~),EXCRC

BR
TST
RN~

Cf'PR
BEQ

1ST
B~E

I ACT IU 10 MODE?
IYlf 501 "R

115 SOfr"AHE SWITCrl REGISTfR =bl
,IP NOT, TESI NO.M~LY
IIF SO USO TH, SOF1wAIE S_ITCH ";;G
,G~T swR
IIF ZEROI GET I.PUT

p>
IOLNI (R.),DATLNI
TR·SAI(p0),ROMSAI
TDLI'2(Ro),llATL N2
TRMSA2(P0),ROMSA2

POV

177462

.5WPEG,S~P

~IOV

MOV

177416

'" 117f), 116
IS

MOV

'lOV

GETlN'

CMEC~

4/.
CRfCK
It 1, $~r!v

C"FCK
TYPOUT
GET2

,FETCH EXPECT, (PC
If ETCH ;;XPECTED CRC
,FETCH 1ST LFNG1H
'r~TcH 1ST STARTING ADD~.
,FElCH 2ND LEN~TH
'FETCH 2.n STARlING ADDR
,GO COMPurK
IUNDEH ~cr AUT ACCEPT?
,IF SO, BR USE DEfAULT PARA"FloPS
'UNOEI APT?
,rf SO: 8~
'RO,., TYPE OPTION
,If 501
BR

TYPE
GETC'C
~DOCT

177370

MOV

(SP)+,E.XCRC

1771~0

TYPE
GEnpC
RDOCT
MOV
TYPE
SAl
RoDer

(SP)+, !XI,PC

POV

(SP)+,ROMSAI

GET21

177332

erS655
IH407
012667

MOV
MOV
RFQ
ASL

42,ISENDAD
RESTRT

177322

,STOFE EXPoCT, eRC
IT~PE LPC INPUT REQUKST

ISTORE EXHCTED LPC
IREQUEST 1ST ADDRESS SFACE
,INPUT SA

TYP~

,REQUEST LKNGIH OF 1ST AODR, SPACE

SIZEI
PDOCT

I INPUT LENGTH

MOV

(SP)+,DATLNI

,MAINi
17.APR·79
"ACY!1 3"A(l~52)
C1.M9AE,PII
17-APR-79 1.', 12
bb5

r~1464

IV.4401

666

0"1466
"0147J
00147.
""1476

"05575

001'!\r0

""5735
104407
012667
005767
"01402
"00167
<l05067

667

668
661
670

671

"~15"2

612
61l

.01504
."1510
001514
001516
0"1522
001526

674
675
676
&77
678

~"IS12

1044"'
012667

su
177 3 12

1044~1

0~5067

016700

177 302
177314
177274
177272
1772se

001536

~~1413

~0154~

"16701
004767
016 7 01
01670.
"b6'.0
""4767
"16701
01&700
001422

177240
0 •• 124
17723"
177226

0016~"

~04767

0~"'27"

001604

"16701
1>16700
•• 620.
"04767
122767

oBB

6a9
090
691
692
69]
694
6QS
&96
697
699
699
'00
701
702
703
704
70;
706
707
7~9

709
710
711
712
713
714
715

716

~'H 554
.~1562

00156&
0.1572
.01576
"~1610

,",01614
"01616
001622
001030
001632
0~ 16 36
001640
~01644

"2~767

001431

001654
001656
001660
,," 1664
001666
00167.
"01672
001676

104401
005361
016746
104402

0~17"0

026727
001404
122767
001007
012767
"12767
000000

~.t710
~01716

1'01720
001126
~017 34

lSI

0 •• 556
177216
177214

CH01

"'IOV
MOV
~EQ

177 176

~UV

0"0522

ASR
JSR

0000~1

C"~PB

17723&

Ha
TST
SEQ

176204
0"0656
177146

177150

lSI
CHU

J'~P

CMp

pgQ
TYPE
EXCPMr.
MOV
TYPOC
TYPE

177132

1~4401

u~S430

016746

CLR
Cl,R
"101/
8F.a
"OV
JSR
MOV
MeV
ASR
JSM

JSR
MaV

1772~~

"~1401

005767
001402
000167

V01652

001706

J~P

0"Jb6~

680
6Bl
682
b8l
684
685
686
687

"-.1560

CHECKI

ROOCT
MOV
THE
SIZE2
ROUCr
MOV
TST
BEa

~EQ

.~15

SE~

"016

I REaUEST BTA"T AOOR, fUR 2,00 SPAC"

TYPE

001544
00155.

10114 PAGE 16
INITIALIZE THE COl'flON TAGS

, rl~PUT SA
CsP1.,ROf'SA2
I BEQUEST LP'GTH OF 2"U SPACE
IINPUT LIC"GTH
rsP).,DATLN2
UPOUT
lS
TYPROf'
ACTCRC
ACTl.PC
nATl.NI,f;~

C~0

poMbAl,Pl
PC ,CRC
pnt-ISA t , R1

DATLN1,RO
RI'
~r.,LPC

J.H'lMSA2,Pl
DATlN2,R0
CHI
PC ,CRC
R{H1SA2, Rl
DATL~2,P0

PC, LPC
·1.GENV
IS
47
CHI
AUTAC!
EXCPC,ACTCRC
C-l

I IS TYPOU'! REQUt:STED?
IBRANC>; IF NOT
IGO HH OUT paM
IC.EAR SI'ORAGE FOR ACTUAL CRC
ICLEAP STORAGE FOR ACTULAL .PC
ISET LENGTH Of 1ST ROM SPACE
IIF NO VERSION SELECn;o.
~P
IPOINT TO StART Of 1ST PO- SFAC~
ICO"PUT~ FIRST hALF or CRC
IPOINT TO START Of 1ST ~m\ AODIoeS.
ISET LE~GTH OF 1ST ROM ADOtlS.
ICONVERl TO .ORDS
ICo"pun FINST hALf ur CRC
IPOINT TO 2ND RuM ADORS.
IS.T LENGTH Of 2ND ROM ADDRS.
IBP IF THIS SPACE NOT USED
ICOMPUlE REMAINDER Of C~C
IPOI~T TO SIAPT Of lND ~OM IWDRS.
ISET LENGTH OF 2ND ROM ADORS,
ICONV~PT TO .ORDS
ICUMPUTE REMAINO.R OF LPC
IUND~R APT?
BR
IIF SO I
I UNDt:P ACT AUTO ACCEPT?
Ilf NOl.
BR
ICUMPUTED •
IlF SO I
BR

EXP~CTED

ITYPE CRC ERROR 'ESG,
E(CRC,-CSP)

IPUT EXPECT CRC UN STACK
I TYP!: EXPECTED eRC
ITHE ACTUH CRC M!:;SSG

ACTCPC.-(SP)

IPUT ACTUAL CRC ON STACK
I TYPE ACTUAL eRe
IUNOEh ACI Auro MODE?
B~
Ilf 501
I'Jt'DER APT?
;IF NO'll SR
I MOVE TO MAILBOX liRROR NO,
***.
I SET MAILBOX FOk FATAL ERROR
ICRC liRROR

ACCR~G

177124

1~4402

1761 J6

002~6~

000001

171150

00~002

lSI

0.~.~1

177122
171112

177~62

177054

CKI'

MOV
TYPOC
eMP
BEQ
CMPR
"NE
"OV
>lOV
HALT

47,.SENDAD
18

'l,SENV
CKI
• 2, I FA T AL
# 1, I!IMSGTYP

****

717

718

001736

719

001744

72"

001746

.26767
001411
104401

,MAllol,
MACYll 3"A(1052)
17.APR.79
CZ M9AF,Pli
17.APR.79 1" 112

721
722
72l
724
725
726
"7
728
129

73.
731
732
733

001750
001752
"01756
001760
001762
0017H
~01710

001772

005404
~ 16746
104402

002030
"02040

74~

"0204<

026727
""1402
'044"1
005476
005267

741

£02050
"02054

001405

742

fJ02~36
002~42

0137~~

743
744

0"2e~6

0000~5

002~60

745
746

002~62

e0471"
000240

747
748
149
75e.
751
752
753
151
755
756

757
758
759
760
761
762
76]
764
765
766
767
766

~~2064
002~66

0011240

002070

"~'~167

~~2'174

016767
111104
022701

~"2110

~"1004

~021.2

~.2112

00~3p'0

005721
000770
004767
004767
000241
006004.
103014
052704
000241
010405
042705
005105
042705
042704
050504
010467
005300
001402

00212.
0~21 "
002126
002132
002134
002136
~32140

E021H
002146
0nl50
0~2154

002156

169

~02162

770

002166
002170
002174
002176

771

772
173
775

002200
002204

776

~P22I~

714

~00167

016704
005167

IPUT ~CTUAL LPC ON STACK
ITYH ACTUAL LPC
I UNDEB ACT AUTO Moon
I Tf' SO I oR
ItjNDE~ APT?
IIf NOI.
~R
IMOVE TO MAIL~OX !'RROR NO,
it ... **
I SET '~AlLBUX rOR fATAL ERROR
I LPC ERROR

~,OV

ACILPC,-CSP)
42 •• Gl~DAD

177"56

C~fPb

#l,SE~V

~lIE

r~2

lSI

MV
MOV
HALT

O),SFATAL
'1, SMSGlYP

CK21

CMP

42, "f,ND~D
IS

I~CT AUTO ACCfPT?
I If' SO I
BR
ITYPE liND Of TEST

lSI

TYPE
EOTST
INe

SPASS

SEQ
M0r03

177~30

MM"1

177~20

176e0'

~W2C16~

177004
0"0042

.E~DADI

~~ov

fu42,F~

~fQ

GO' GIN

IBUMP PASS COUNT
ICHECK APT
I~EEP GOING

RESt!
JSR

PC'(R0)

IACT HOOKS

NO~

rwp
Nap
GOAGINI JMP

1772M
170722

176712

CRC I
rt01

,~OV

~OVB

CHP

173" 24

~NE

0"53'~

_02114
~02116

,Pur EXPECTED LPC ON STACK
ITYH .-xPEClED LPC
ITYH ACTUAL LPC MES~".

e.2000

0~0140

0021M

EXLPC,-CSPl

176044
PJ00V1Al

739
739

TAGS

~CLPMG

~~1404

735
736
737

CO'W~N

ICOMPARE liXPT, LPC'ACIUAL LPC
Sk
In 501
ITYPE LPC EH~OR ~ESSG.

TYPOC
CMP

122767
001007
"\2767
012767
000000

002026

AC'!'tPC, E'XLI't:

177~)4

002"~~

0n020

EXLPMG
f'OV
TYPOC
TYP!:

177042

002002
.>02010
fl"2012

134

10.14 PAGE 17
INITIALIZE THE:

1.44~1

005453
016746
104402
026727

CMP
BEQ
TYPE

DEC

OEC
TST
~R

C~31

000114
000166

,
000400
eL11
177703
177703

ere

000~74

176620

177676
176b04
176600

JSR
JSR
CLC
ROR
BCC
BIS
Cr.C
MOV
ale
COM
BIC

BIS
MOV
DEC
SY.Q
JMP
CLLAST. MOV
COM

eL21

HATRT
AcrCpc, XORS
Ck II. R4
" 73~24,Pl
CLl
pe
R"
CR1).
CL0

IDO AGAIN
IGET CHA~.
ILOCATION EffECTED BY SwITCHES
IIF NOT.
BR
I FIX cou~r~ps

pr,XOR

,nx P01.TEA
ICONTINUE
I GO G~;T PARITY
IXOR CHAR

R4
CI,2
.400,R4

IROTATE I PO~. RIGHT
IIF NO CARRY. BR
ISET BIT '~INE

P4,P5
'177703,P5
RS
1177703, R5
.,.,R4
P5,R4
R4,XORS
Re
CLI,AST

ISAVE CHAR

~C, P~RITY

CL0
XORS,R4
XORS

.IF LAST CAR,I
IGET NEXT CHAR,

~R
~

*it**

,('1"1.1'1,

MAO II

CZM9H.Pll

777
779
779
'100

781
782
791
794
7B5
786

7.7
798
789
79J
791
792
793
794
795

796
797
798
7Y9
80~

801
802
803
804
805
806
807
809
809
810
811
812
813
914
815
916
917
818
819
820
821
922
823
824
825
82&
827
828
829
830
831
832

{)022 !4

I 7·1.~R.7Y
3"A(101?)
1 "1 .. APR ... 19 10112

."2232

"427b7
"42704
"50467
016767

'~02240

~.e2P7

002242

~05067

002222
0~222b

1~"2246

012703
"32704
001402
"05267
000.41
006004

"02252
002256
00226"
01>2264
"~2266

1'1'Cl!HI

FA~t

lH COr.'.r.,ON TIoG$

bIC
PIC
81S

177727
'7~5b2
176~56

Pj!TULI7~

176572

pav

,765'2

PTS
PAPITYI CLP

176560
0"001_

Ct.P.,

0N~")~t

176542
CL.PII

1f177"50,XQPS
#177727, R4

XOPS, ACTCRC
PC
PARCNT

;SET NO. OF 8115

IS<E IF OriE nIT
I IF NOli BR
I RUMP COUNnR

Cl,P1
PARCNT
~ I

Bt'E

CI,r0

~02320
~023n

002326
.'02332
002336
002342
002344
O02352
O02354
002360
en21&2
"0H66

~52704
00~207

CLP21
XOS.

176466
176462
176456
176452

,,16767

176454

004767

177732

[.pe21

1l~5300

~~0207

0024~2

1~44.1

'~~24.4

0~6023

~02406

~1670"

016701

L76416

176424

002432
002436
F02440
002442
002446
00245~

~"5476

~02452

~00000

0e2454

104401
006015

001460

0M~26

176356
176354

TYPRI.

0fHH106

EIIDOT I

np,

~327"0

0"1006
lal4"1

~025~2

104402
104401
""606~

00252~

~'''''P.2'''7

""2522
002524

"0500"
1162700
016027

~~2530
a~253b
~02S40

r26067
M1366

~02S5~

00255&
"02560
002566

.23727
0014"5
016067
1I1440!

1l~2S70

~~0\:H"~

0~2572

''16067
016"67

0112612
".2614
~02616

"02624
.02632

TYP2'

""0002
005226

RTS

XOP5,P1
PC

A(,:TLPC, XOFS

MOV
C"P
BEQ
JSP
DEC
BilE
MOV
FTS

n 73026,RI
LPC2
PC, XOR
Re
LFC 1
XORS,ACTLPC
PC

,LOCATIO" ~frECTEO 8Y S.lTCH.S
,I> 501 SKIP LOC, 8~ SRANCHI'G

~OV

kt)MSA1,Fc~~

~OV
~EQ

UATLN I, P 1
PI
TYFRI

JSR

PC:- ,TYP

,POINT OT 1ST RuM SPAC~
'PUT LoNGTH IN Rl
,CONTEFT TO 'ORr.S
IBRANCH IF 1ST POM SPACE "or USt:D
,GO TYPE 1ST ADDR, SPACE
IPUINT TO 2ND AODR, SPACE
,PUT LENGTH IN RI
ICUN~~PT TO ~ORDS
,BR If 2r~D ADO~. SPACE NOT USED
,GO TYPE ~NO ADCR. SPACE

MOY

MeV
ASH
BEQ
JSR
TYPE:
[OTST
HALT

ISEE IF ODD • Of
IIf 50.
,SET PA~ln BIT

O"~

, ~x IT

P4,-CSP)
XORS, CSP)
P4,XORS
CSP).,XORS

IXDS SUBROUTINE I

"4k)f"\, F4

WITH XURS

(R1)+,R4

I np~ HEADER

f<OM5A21F~0
DATL~2,Pl

~NUOT

PC', T'tP

B"
8IT

TYPJ

8NE

TYP2

TYPE
CARLf
MOV
TYPoe
TYPE
COLOI.

r"p

171777

.~4fi44

176254

0~0~42

0.20&0

0~S22b

000002

SEQ
C"P
f4t!E

CMP
BEQ
HOV

, ADOPESS "IILTIPIE OF 4?
IIF N01: B~

li3,R0

ADDR~SS

RO,-ISP)

IPuT
IT1PE ADDR.

(P"l+,"CSP)

IPUT DATA ON STACK
ITY? DATA
ITYPE 2 SPACIiS

FI
TYP~

,flNISHE.W?
,If NOTI BR

IREl'UH~

Fn':
#2,Rr

T"SG[P0)""1
AI)TES~

HCPC (P0) ,ACTCHC
AUTI
@'42,¥SlNU/lO
A"T3
TI'SGC~")

,AUT2

ON STACK

IBU~P TA"ME INDEX
,CHECK!.D A[.L KNOWt' VERSIONS?
IIF 80: bP
lOdES THIS CRC AGREE?
'Ir NOT' ~EEr LOOnNG
IUNDER ACT AUTO ACCEPT?
;lY so, 8.
:SET UP VERSION ~ES8AGE

TYPE
AUT2r

0114644
004714
177124

176216
176212

1"4401
000064
012767
0127&7

0.0001
00Mol

176224
1762H

AUT31

0
MOV
/·\OV

HCFCCPl'),EXCRC
TXLPC r R0), I:.~LPC

J~·H?

C~1

,sET nFECTEO CRC
, SET ,.XHCTED LPC
I
:CHECK "PC

AUTf,HP. TVP.,
AIJTF.:f.lt.~
~'OV

HOV
pALT

'HH~0""

tl,$fArAL
11 ,S~SGTYP

,MOVE TO MAILROX ERROR '0,
I S.T .~.lL~OX FOP fHAL lRRO~
,AUTO ACCEPT FAILED

Tn INPUT "OUTlNE

: , ... ******** ... *************** * *** *** *. . ****.**** ... *****.* ... *** *** .... ** ...

STKS.
STKBI
,ENABL

.wOPO

17756_

,WORD
LSB

177~62

,D~ABL

LSB

, I ITY ~8D STATUS
, I TTY KeD ~UfF~~

:,******************************4**** •• ************ •••••• _***._.*

,.THIS ROUTINE wlLL INPUl A SINGLE CHARACT~R FROM T~r TTY
I-CALLI
~DCHP
"IN~UT A SINGLE CHARACTEP FROM THE Tn
If
HTURN HEPE
I,CHARACT~R 15 ON THE STACK
1*
, ,WITH PARITY BIT STRI~PED OFF
:"

002640

~11646

S~DCHRI

I'.\~ 1 tI

BITS

TYPE
CAPLF

AUTACTI CLR
ADD
AUT!'

~00!67

177560
177562

~'OV

PT$

,Si3TT1,

002634
0"26J6

MOV
"IC
BIC
BIS

TYPOe
THE
SP2
DEC
eNE

O~I425

i"'2S46

~026 ••
"02606

TYP31

M0046

0"2516

00251~

np~1

~r~~~3

~"6015

012046
1044"2
1"4401
006020
005]01
001361

~025~4

00250&
002510
002512

CR1) +, R4

,'77400,P4
,I, rAPC'T
C[,P2

10114 HGE 19
!NITIALIZE THE COI,\~.ON TAGS

~00403

".'21~2

002166
002470
002472
"~24 74
0r2476
002500

f.~(1vn

RIC
8IT
8NE
alS
RIS

ASP

SEU

,eO"TINUE FOR ALL BITS

TYPROHI TyPE
TYPHDR
176372
176370

"~6201

001402
004767
016700
0167PI
"06201
001402
0"4767
104401

0~24S6

I,PC I
I,PC 11

171026

~01402

0~24M

~02426

176442

~12104

022701

O01370
016767

002412
P0HI6
002420
""2422

0""40~

"10446
046716
040467
r52667
016704
000207

on2372

C~2J7.

176516

I RuTAH TO NEXT BIT

O~C

177 40.

BIT COUNTER

#l~,IH

II t, F4

0e53~1

0~pi'''~ 1

IC"~AR

~OV

cel367
1121"4
IJ42H4
a32767
.01"02

"~22H

~"'l 7

ICO"PLEMfNT ALL BUT RITS J , 5

SIT
PEQ
!liC
CLC
POR

~0227"

fJ02276
002102
002310
"0211 2
i'02116

~I::(,I

R4,XOFIS

002272

.M.6.IN. "ACYl 1 30A(l052) 17-APR·79
CZM9AE ,PI 1
I7-APR-79 10.12
833
834
835
836
837
838
839
840
841
S42
843
844
845
946
847
948
849
&50
951
952
853
854
855
85.
857
858
859
960
8.1
862
963
8&4
865
B66
967
968
869
87"
871
872
973
974
875
B76
B77
878
879
8B0
9B 1
882
BU
9B4
885
886
887
8BB

1 (A 11 4

MOV

(S~),·

CSP)

, ,PUSH DOWN THE PC

·IHHt4

,MAlN,

M~CY!I

CZM9AE,Pti

seq

~h"2642

890
891
892
993
894

<'0265"

B95

896

a97
8gB
899
90"
901
902

002b5~

"A2.56
002&64
"02672
002700

002702
002706

3"'(1052)
\70APR.79
P-APR-79 10112
"16666

105777
I "~175

10,14

e.~HH;r-14

1777 ••

IS'

f:OV

4(5P).2(5P)

r,SAVE THE PS

TSTB
BPL

"ilKS
IS

II,AIT fOP
II A CHARACTER
II RnD THE TTY
IIGET RID OF JU.K If ANY
II IS IT A CO"THOL-S!
IIBRANCH If NO
IloAIT fOR A CHARACTE"
IILOOP U~TIL ITS THERE
II GEl CHARACTER
I/MAKE IT 7.SIT ASCII
1115 IT A COhTROL-Q!
II If Nor DISCARD It
IIYES. RESUME
1115 IT UPPER CASE!
"BRANCH If YES
I,IS IT A SPECIAL CHAR?
II"RANCH If IES
I,.AKE IT UPPER CASE
"GO BACK TO US!:;R

<J,0e04

HOVR

PST"Ro1(sP)

"42766

177600

000~04

SIC

'·C<177>.4(SP)

~26627

I'Jr!llHHJ4

000023

CMP

4(5Pl.#23

BNE
ISTR
BPL
MOVA
HIC
cr'p
A"E
BR
C"P
BLT
CMP
BGT
HIC
RTI

3S
.lrK5

117756

177754

0~ 1013

1~5777

171726

28'

10~n5

0"2710
002714
00212.

117746

177722

~'42716

1176~0

022627

e'll(i'102 J

"02724

~~IJ66

0~2126

~"0730

903

~"2710

~26627

904

002736

9"5

00274.

0"2407
026627

906
907
90a
909
910
911

1102746
U02750
"02736

38,

0030~3

~4"66

2S
B91I<B,-C,sP)

'"CI77,(SP)
(SP)+.#21
2$

4(SP)"140
48

4(SP)'#175

'4~.4(SP)

;,*.*. ** ***-. *'" •••••

4$,

000002

$RDLI N,

R3.-(SP)

~OV

917

002760
002762

,,05046

918

002764

012703
022703

923
924
925
926

002770
002774
002170
003000
003002
""3"06
003010
003012

927

003014

928
929

""3022
003026

112767
104401

•• 32 I 2

~12716

177777

930

003032
003034

0053e3
020327

0~3214

C~'P

'·I.eS?)
RJ
f.,3. 'STTYIN

003~40

103434
111367

B'~O

000144

HOVB
TYPE
BR
TST

919
920
921

922

931
932

93)
934
935
936

003042

01~J46

003224

1~14S6
1044~5

112613
122713
001022

106'

V~S7l6

~"1007
0~~134

~00170

6$1

~'J3212

937

~03054
0~3056

"01406

93B

003060

112767

liW'-'114

939
940

0~3066

0"3212

003072

941

003074

104401
005016
122713

942
943
944

003100

0~1.0J

005716

~031~2

104401

003106

000726

511

~03110

12271 3

003114
003116

~@101 I

1~44el

0~3124

104401
000717

"lOYS

(SP)+. (P3)

cr'PB

tl77,(RJ)
58

TST

(SP)

8NF

000025

7S'

8$1

• $CRLP

~ ,TYPE;

'ITYPE THE I~PUT STRING
II GO ~ICKCJP At,OTHt;R CHACTER
r ,1"rPE A ·1·
I,CLEAR THE BUFFER AND LOOP
I,~CHO THE CHARACTER

'1SolR3).

IICHECK 'OR ~ETUR~
"LOOP IF 'OT RETU~N
"CLFAR kErURN (1kt. I~)
I,TYPE A LINE fEt.D
"CLEAN RUBDUT KEY nOM THE STACK
, I RI;STOR!' R3
I,ADJUST THE SIAC' AND PUT ADD~ESS or
"
FIRST ASCII CHAkAcrEH UN IT

957
958
959

00315&

"03162

105063
104401

~01166

960

('"5726

"03170

012603

~OV

961
962
96]

.,03172

bl1646

003174

01.66.

0012~2
~03210

0127&6

461
lS,

~~3212

e"""IS
177777

001226

~1:l0002

003214
003224

"o1225

1'\5

~0322b

000012

~0323"

(" 3)

SR
TlPE
RR
MOVP

.os

2$
-!(RJ)
, $L~

(bP).
(SP)+.R3

.ov
MOV
"nv

000004
003214
9$,

(Sn.o(SP)
4CSFl.2(SP)

UTTlIN.4(SR)

~BYTF~

aTTYH' , ,BLK8

e52536

•• srI5

972

0~3235

IJ6

003242

005015
rH075
040
036440

011&5,,7
053523

00~'0 12

97)
974
975
976

020122

S~S.R'

04 'h~ 4 0

053505

S~NEW,

.ASCll

.S~TTL

READ

003250
~01253
00126~

rr.

978

983
994
98S
9B6

OCTAL NUMRER fROM THE TTY

990

991

0~3264

~ 11646

992
993
994

0~l266
~03a74

"16666

10~0

997
988
989

999

"G"

r J *.. ***4****~**4*. ***.",4 *************** **** *** •• ********.** ..... _.
I.THIS FOUTINF wILL READ AN OCTAL (ASCII) NUMBER r~OM THE TTY AND
I.CHANGE IT TO ~I~ARI,
.
I.THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEI AMI LEGAL
"OCT~L DIGITS. IF AN ILLEGAL CHARACTER IS READ A 'I" wILL ~E TYPED
;.FOLLO~EP ~I A CARRIAGE RETURN.LINE FEED, THE COMPLETE NUMBER HUST
'"THEN BE RETYPED, THE INpUT IS TERMINATID BY TYPING A CARRIAGE RETURN,
,.CALL,
RDOCT
"HEAD AN OCTAL NUMBER
RETURN HERE
"LOW ORDER BITS ~RE ON TOP OF IHE STAC~
I"
"hIGH ORDER BITS ARE IN GHIOCr

979
980
981
982

998

/-G/<15><12>
"CONTkOL
<15><t2>/S.R • 1

~HHHII4"

977

995
996
997

,ASC II
,ASC I I
• ABC I1.
,ABCIZ
.ASCIZ
,ASC IZ

A "eR" " liLY"

, ,RETURN
, ,STORAGE 'OR ASC U CHAR, TO TlPE
"TERMINATOR
B,
"RESEI'VE 8 BYTES FUR TTl INPUT
"1'
"QUESTION MARK
<IS>
,CARRIAGE RETURO
<12>
"LINE FHD
I"U/<IS><12>
"CONTROL "lJ"

RTl
,BYTE

SGUES,
SCRLf I
SLF'
SCNTt.U,
$CNTLG'

"00

,,15 CH~RACTER A ~·RP?
,,"RAIICH IF NO
"CLEAR THE CHAHAC!!:R

,STTYlN
28
.SQUES
IS
C03).9S

r~13"5

0H224
000~46

122. (R3)

TYPE

0031~4

00~

9~b

000
0000 I"
077

,SCNTLTJ

"CLEAR THE PUBOU! KEI
" IS CHARACTER A CTRL U?
IIBR Ir NO
"TIPE A CONTROL 'U'
" GO SURT OVER

BN£.
CLRB
TYPE

TYPE
CMPB
BilE
CLPB
TIPE
TST

0~3213

C"PH

104401

"03212

(SP)
'25. (P3)

"SET THE RUBOUT KEI
, ,BACKUP BY ONE
, 'STACK EMPTY?
1,8R If YEs
"SETUP TO TIPEOUT THE DELETED CHAR,
I,GO TYPE
"GO READ ANOTHER CHAR,
"RUBour KEY SET?
I'SP If' .0
"TIPE A BACK SLASH

PAG~ 21
TTY INPUT ROUTINE

0r~712

964

(R3).95

.qS
28
(SP)
71
#'\,9$
.91

"SAVE R3
I,CLEAR THE RUBOUT KEI
" GET ADDRESS
"BUffER FULL?
"SP H YES
"GO R~AD ONE CHARACTER 'ROM THE Til
"GET CHARACTER
, ,IS IT A RU~OUT
"BR IF NO
"IS THIS THE fIRST RUBOUTI
I,BR If NO
"TIPE A RACK SLASH

IPI14

003132

965
960
967
968
969
97P
971

.9'

TYPf
CLR
CMPB
BNF
TYPE
BR

0031 ]6
003140
003144
003150

11 1367
104401
1227H

.#,,9$

MOVR
TYPE
MOV
DEC

949
950
951
952
953
954
955

00313~

f'OV~

105~13

00312.

'STTYIN+e. ,~3

CMP
BLOS
ROCHR

PEQ

000124

,MAIN, ~Acnl 3PA[t052) I7-APR-79
CZM9AE,PII
17.APR-79 It.12

947
949

~,OV

B~E

001052

~03046

o(SP)
OSTTYIN.RJ

CLR
1$,
2S I

003214

104401
000746

945
946

.*.....

**4** *.** .**** ... ** **** ** ... ******.***.*
** *
;*THIS RODTINE ~I[L INPUT A STMING FROM THE TTl
:*CALLI
"INPur A STRI~G fROM THE TTl
POLIN
;'
"APDRESS 0. FIPST CHARACTER ~ILL BE O~
RETURN HF,RF
"TERMI"ATOR 'ILL BE A biTE or ALL 0'S
"I"

912
913
914

915
916

PAGE 20

Tn H'PUT ~ourH,E

003276

010046
1'110146

1'103300

010246

003302
003304
003306

104406
012600

003312
0033\4

005001
005002

010~67

eRDOCTI MOV
000002

IS'

(sr).-(sP)

HOV

4(SP).2(5P)

MOV
HOV

R•• -(SP)

MOV

R2.-(SP)

~I.·(SP)

ROLIN
MDV

(SP)+.R0

MOV
CLR
CLR

R0.51
RI
F2

"PROVIDE SPACE FOR THE
"INPUT NUMBER
, ,PUSH R0 ON STACK
"PUSH AI ON STACK
"PUSH R2 ON STACK
I,REAU AN ASCIZ LI~E
I,GET ADDRESS OF 1ST CHARACTER
"AND SAVE IT
"CLEAR DATA WORD

IH~

STACK

,MAHI,

MAC'ttl

ClM9AE,PII
1"-1
10n2

""Hlo

00])'.

1"'11]

h'"

1'03322
"~33 26

1-~5

~'iJjh'l

]0100?'521

17wAPp ... '?9

H'l;14

17-AFR.79 1"112

PAGE'2

READ AI' OCTAL
2$1

NU~f'E.

.0142.

~~~Q

122716

('~'pp.

.'~, (51')

;,MA~E

003026

FGT
CliPS

U
"',(SP)

illS AN

! 227! ~

0r3334

00242)

~LT

(10)33.

006301

I~"B

1103340

~'061~2

1009

~03142

006301

AS.
POL
AS!.

1"1"

0.3341

"06102

POt.

P2
PI
P2

001146

00bJ" 1

'51.

1~12

'40)15~

010~

pot.

1"13

00llS2
003356

~42716

BIC

.·C7,(SP)

.'2bOI

10115
1016

"~336r

~""756

"1,)162

005726

1017

00])64

1018

\'03370

.1~166
~1.2b7

1019

001374

1020

001176
00340"

1011

1_14

1021

102

(SP)t,Fll

2S
(SP).

"STRIP TH. ASCII JUN~
IIAOD IN THIS DIGlI
, ,LOOP
"CLl.AN rER,"INAIU. fRO"

Mnv

Rld2(SP)

;,SAVE THE RESULT

H2,SHIOCT

0126~2

MDV
"OV

')126~1

~ov

(&P).,RI

p.!nV

(SI')+,R0

1022

0~1402

r01404

0·~726

00340.

h15010
10)4401

1103412
003414

000000

1027

1028
1029

003420
001422

.".730
000100"

HI4401

17777?
30,

(0P).,R2

sal

'IYPE

J J*

"C~t:AN

("")

, JSf1

, sQl1E6
\$
0

11"1" "CP" & "LF"

1035
10)6

11;)7
1038
1039

1042

:.O~

1043

;iI-

1044
IC45

i*
1*

1046
~034H

1048

0~343"

1049

003432

lrS767
'""0"2

STYP~I

003434

00043~

0~3436

010046

1052
1053
1054

lH'I3440

017600

0.0"~2

"03444

122767

0v~'H'.·01

~03454

001011
132767

1056

00)462

0"14.~

,~AIN.

"ACYII

CZ~9Ar.PII

0<'010"

IS'
17511'

1754V5

3~ACI"52)
17.APR-79
17·APR·79 10'12

o I ~~61

e"'Hwc,4

0.04767

0"023~

J,Mf54DR IS FIPSl

TSTB

STPFLG
IS

,,15 THEkF A TERMI~AL?
"oR If ns
"HALT HERI IF _0 TERMINAL
"L"AH
"SAVE R~
"GET ADDRESS Of Ascn STRING
I,RUltJlNG IN APT MODE
I,NO,GO CHECK fUH APT CONSOLE
, ,SPOOL MESSAGE TO APT
:J~O'r,o CHEC~ ro~ CONSOLE

bP
MOV

R.,-(SP)

~OV

~21SP)

CNPB

#~PTENV,snlv

eNE.

621

,p.

BIT~

It APTSPO()L, $ENVM

SEU

625

MOV

FH'1,61$

JSR
.WOr:::o

PC,SATYJ

61 S,

6261

PITB

.~p,.csur,SE.r~VM

~NF

6e$

132767
Cel"")

1062

00)~~6

112046

~H)Vf<

(R0).,"(SP)

10b3
1064

"03510
C03512
r03514

.'10~5

EWE
TST

"05726

1 ~b7
1068

~000~~

175163

'~12b"f'
~627 1 6

(SP).

~OV

(SPl+,R~

, ,R~STUIol.E Rv.J

)$ I

ADD
RTI

'" (SP)

" ADJUST RETURN PC

4S.

C'~PB

.FT, (5P)
RS

"BRANCH If <HT>

00~er2

~03524

12271 6

.0353,)

"~Q
CMPB

1117'"

01l)5J2

1071
I ~72

0~3536

N'I000

RNE.

.03H0

"05726
1044" I

TST

(SP)+

107)
1"74

""3542
~03544

1075

003546

1~76

003552

000755

~~35S4

""47.7
126726

1079

~035b"

1~79

003564

0~1350

1080

003566

016746

SCRLF
CLR8
r~01H

6S'

CP,'PB

SCHAkC"T
2S
PC,STHFC
$FILLC,cSP).

BNF.

# J If

~OV

sr~ULL, .. (SP)

"GET, OF FILLKR CHARS, '''tDED

1.5J67
~0077"

1090
1091
1092
109)

""3612

112716

003630

0"137.

1094

003632
003634

",0724

~"4 7h 7

1.96

7$1

002170

I ~87
;HrRIZO~!AL

1~98

1097
1099
1099
1100
1101

11 ~2

,,03016

0~4n7

fl~J004J
~t?!ltW14

00362.

132767

~H~"~~r 7

~036)6

~"1644
~036S2

122766

003660
003662
003666

0010~)

~e3.70

'~I'lVR

9$1

JSR

"~5726

105777
100375
116677

003642

flSI

GTYP~C'

~e)676

1105
110b

0037M

105227

0~370'

0~~000

1107

~0)704

M0207

1109

003706

177564

1110
1111
1112

~01710

003712
00)713

177566
000

001402

000~12

1$1

W) GO GI::1

: ,AND THE

i~!lLL

I>lf,.XT CHAP..

CHAR,

1 (SP)

; ,DUH A NULL NJo:ED TO PO TYHD?
J ItjFl H ~4n· .. c;o POP THe: NULL Ofr or STACI'
"GO T¥PE A NULL

'CHAReN!

f,DO NOT COUNT AS A COIJHT

" !'oop

TAR PROCESSOk
" .csP)
PC,ITYPEC

BITS

17, SCHARCNT

RNE
TST
BR
TSTf
BPL

BNE
eLkB
SR

MOVB
eMPB

10~067

000406
122766

1103
1104

"CLt4" CHARACTKR COU~T
, ,GET NEXT CHARACTER
I,GO TYHTHIS CHARAC'fEP
1115 IT T)M! fOP fiLLER CHARS.?

PC, 'H~EC

l~a9

1095
1096

E(~UIV

JSR

003604
,,)0361 ~

1.53,,6

0.3576
00360"

5$1

DEce
BLT
JSR
DE,eB

",,3572

1083

1084
10B5

J ,POP

"IYPE A CR AND LF

eJ ,"H:' VI 56

1~81

1082

J,f.lglUtH~

'CPLf, (Sr)

HP.

00322~
1~~067

1077

ASCIZ STRING

I,snup MESSAGE ADDRESS fOR APT
"SPOOL MESSAGE TO APT
, ,MI:.SSAGE ADURESS
, ; APT CONSOLE SUPPRESSED
"YES,SKIP T~PE OUT
'IPUS~ C~ARACTER 10 "I:. TYPED O~TO STACK
'I"R If I I ISN'T THI:. TERMINATOR
"If TlAMINATOR pnp IT Off THf SlACK

60$ ,

1101430
122716

I~69

~AGE 23
TYPE: ROUTINE

1~61

P01516
C03522

10114

"03404
0q34 70
003474
003476
"03504

h'65

AUDR~SS

,M[SAnp

TYPE
t·:ESADP

API.

10~0

~~l452

TYPE

HAr.T

00011100

1051

1"-66

HER~

** ...... ".......... * ****** ....... * .... *it*.* .. if-lt .. * ...... *** .. ******* .*** ***** ..... ** ......

1041

1~57

BAD CHAR,

AGAIN

"TR~

,oCALL,
;*1) USINr. A TRI,P INSTRUCTION

1059
1060

TH~

"HIGH DRUER HITS GO

1040

1~58

A 'IERrH!lJATOFI

"nrE UP fHRU

I>ROUTINE TO HH ASCll ME-SSAGE, M~SSAGE MUST HR,"INATE WIIH A " B~n;,
I"THE ROUTI"E WIL~ INSERT A NU"8E~ Of NULL CHARACTERS AFIER A LINE fEID.
,0NOTEI'
,"DLL CONTAINS THi CHARACTaR TO BE USED AS THE fILLER CNARACT.R.
l'hOT~2'
5'llLS CONTAIIS THE NUMBER Of fILLER CHARACTERS REQUIRED.
IONOTE3'
SFILLC CONTAINS THE CHARACTE~ TO FILL AfTER,

1034

less

PARTIAL fROM STACK

(SP).

BF
SHIOCTI ,WORn
,Sq!TL TYPI'; ROUrINE,

1"'32
1033

"POP STACK INTO R2
"POP SrACK INTO RI
"POP STACK INTO R"

.!·10~O

~W3224

1~1I

STACK

, , PFTIHHI

BTl

TST
CL"A
TYPE

4$,

103.

1047

THIS CHAMAC1ER

OCTAL DIGIT

102)
1024

0~3410

3UR~

ADU

012"0"
0r0002

1025
H'26

I,PICYUP T"lo CHAPACrEP
"IF nRO GEl OUT

(~~)+,-{SP)

1007

I~"b

fPC" THE 111

MOve

11204b

C"Fa

SEU
INca
SCHARCNT I,WORD
nnEXI PTS

CSP) •
21
~STPS

I TYP!.C
2CSP),lSTPB
ICR,HSP)
SCHARCN!
GTYPEX
.LF,2(SP)
nHEX

CPC).
~

; ,REPLACE T'B _ITH SPACE
II TYPE A SPACE
"BPANCH If NOT AT
l,rAd STOP
"POP SPACE OFf STACK
"G!T NEXT CHAHAcr.p
"IAIT UNTIL PPINTER IS READI
"LOAD CHAR TO BE T~PED INTO DATA RF.G,
"IS CHARACTEP A CARRIAGE REr~RN?
"BRANCH IF' NO
'I~t5"CLEAR CHAR4CTER COUNT
, ,EXIT
"IS CHARACTER A LINE rF~D?
, ,BRANCk If IES
"COUNT THE CHARACIER
I,CHARACTER COUNT STORAGE

1108

0~2

UPSI
.WORD
STPBI
,WORD
SNIJLL I .BYTE
IFILLS I ,ern

177564
177566

o
2

I,TTY PRINTER STATUS REG, ADDRESS
"TT~ PHINTER BurrER REG, ADDRESS
"CONTAINS NULL CHARACTER FOR FILLS
"CONTAINS. Of FILLER CHARACTERS REQUIRED

MA l~j.

~ACYll

CZ~~9AE:. PI t

10'(1052)
1'·'P~·'9

1113
1114
1115
1116
1117
1118
1119

~0]714

.12

0~3715

0~~

0.3716
003724

112~

,1"'31 )2

1121
1122
I1H
1124
1125
1126
1127
112A
1129

003734
003742
00174 2
003144
.03146
003752
1101154
"03762
003764
003712
003774
004000
004006
oe4012
""4014
0"4020
004022
004024

1127b7
112767
"0M0]
11276,

113~

1131
1132
1113
1114
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1149
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168

,MAI~,

010046
010146
lJ5167
00145.
122767
0010li
132767
001425
017600
062766
005767

004032

01~067

~040]6

~12767

004044

oa0413
0!1H7
062766
016746
0047b7

004~62

oe4066
.04072
M4~14

004071

105767

.e410~

MI416

005767

.04121

U05767
001375
017667
062766

004132

~~~267

0~413~

~"4160

004161
004162

"INSERT FILL CHAHS, AYTER A "LIN!: FEW"
12
.rILLCI .~YTE
,,"nPMINA" AVAILABL~" fLAG [RIT<~1>.0=YE8 )
LG I .BYTE
0
APT COMMU~ICATIONS ROUTINE
.S~TTL

~hHHH"l

M0236

0HvHW-l

0"~226

0f.HH~01

00022"

MACYll

1169
1110
1111
1112
1173
1174
1115
1176
1177
1178
11 19
1180
1181
1182
1183
1184
1185
1186
1187
'168
1189
1190
1191
1192

SATy41
SATYCI

0"02.~

115101

"001~0

175075

'I,Sfnc
P0,-[sP)
RI,-(SP)
8"fLG
58
UPTENV,8ENV

000004
000002
17 sr J4

00M04

BNE
BrTB

1$1

MOV
ADD
TST

2B I

TSTA

B~E

MOV

175042

Rill!;

SUB
ASR
MOV

175~32

115"26
0M"04

175~02

0.0004

000016
000004

0U0~~2
17311~

401

551
10&1

."OV62
174760
17473.
0•• 004
0."~~2

11$1
174724
000004

174710

1211

0"~~2.

0"0013
0""006

N26~1

012bP0
000207
000

$MrLCI
.LYLGI
srnGI

.0~
0~0

seSGAD,R0

rov

#2,4(SP)
177776,-(sp)
PC, IIYPf
0

JSR

177112

.WOPD

" TO ONLY REPORT

~-ATAL

ERROR

'ISUB START OF MESSAGE
'IGET MESSAGE L"GTH IN wORDS
, I PUT LENGTH IN MAILBOX
'ITELL APT TO TAKE -SG,

l"H

MOV
ADD

,ITO TYPE A MESSAGE

'IPUSH R0 ON STACK
IIPUSH Rl 0' STACK
I ISHOULD TIP~ A MESSAGE?
"If NOTI BR
, ,OPE~AT ING UNUER APT?
3S
" If '~or I BP
UPTSPOOL. '<-NVI' IISHOIILD SPOOL MESSAG~S?
BR
"U' Nor,
38
@4(SP),R0
'IGET M~SSAGE ADOR,
IIBUMP RETURN ADDR.
'2,4(SP)
IISEE If DO Nt WI LAST XMISSION?
'",SGTYPE
1S
"IF NOTI WAll
R0,SMSGAD
IIPUT AQDR IN MAILBOX
, I fIND END 01' M~SSAGE
(R0).

R0,SMSGLGT
14,$MSGTYPF.
58

rov

lS:

I,PUI MSG ADDR IN JSR LINKAGE
"BUMP RETURN AOOR!;SS
'IPUSH 17777b ON STACK
IICALL TYPE MACRO

~4CSP),4$

I I SHOULD REPORT FATAL ERROR?
IIIf ~OTI BR
IIRU~NING UNDER APT?
"If NOTI 8R
IIfINISHEO LAST MESSAGE?
I,If NOTI WAlT
IIGET ERROR
I ,8UMP ~ETURN ADDR,
"TELL APT TO TAKE !:RROR
IICLEAR FATAL fLAG
'ICLEAR LOG FLAG
'ICLEAR MESSAGE fLAG
I I Pop STACK INTO Rl
I'POP STACK INTO R.
, ,Rf:TURN
I P'!ES5G. !LAG
'ILOG fLAG
IIFATAL fLAG

afnG
128

TSTB
BEG
TST
BEQ
TOT
BNE

175
8MSGTYPE
111

W)V

~4(SP),'FATAL

ADO
INC
CI,RB
ClRB
CLRB
MOV
MOV
RTS
,BYTE
,BYTE
.Byn;

12,4(SP)
SMSGTYPE

,~NV

•

8rFloG

.LfLG
'1-lrLG
(BP)+,RI
(SP).,R"
PC
0
0
0

• r:VEN

APlSIZEo200

30ACl~52)
17-APR-79
11·APR-79 lel12

10114 PAGE 75
APT cOMt-'UtlICAlIONS ponTINE
APTENV.0n
APTSPOOL=100
APTCsup.r40
,S8TTL "INA~Y TO OCTAL (ASCII) AND TYPE

"~"0~1

?00100
"00040

-._* .

;,0THIS
J"" .tJ.************
******* * •••
*******.*** *** ****.-.**********
POUTINE IS USED TO CHANGE A lo-BIT BI~ARY NUMBER In A b-DIGIT
;*oeTAL [ASCII) NUMBER AND TypE IT,
,*STYPOS-.-ENTER HERE TO SETUP SUPPFESS ZEROS UQ NUMBER Of DIGI TS TO T¥Pt.
,_CALLI
MOV
r.UM,-(SP)
I I ~U,'ijER TO BE TYPEU
I"
;
TYPOS
IICALL fOR TYPEOUT
.PyrE
IINol
TO 6 rop ~UM.ER Of DIGITS TO TYPE
1*
,B)TE
M
JIM-lOR '"
"I.rIPE LEADING ZEROS
I'
I ,0=SUPPRass LEADING ZEROS
I'

Ii *UYOON.---ENTEP

HF.Rf TO TYPE UUT .ITH THE SAME PARAMETERS AS TriE LAST

"STYPOS OR STYPOC
:*CALLI

MOV

~..

TYPON

~UM,-(SP)

"NUMBER TO BE TYPED
IICALL fOR TYPEOUT

"STYPOC---ENTF.R HERE FOR TYPEOUT Of A 16 BII NUMBER

: *CALL I

1194
1195
1196
1197

I'
I'
~~4164

119B

004 !1~

1199
1200
1201

904176

01764.
116667
112667

~U0r00

~~A~~2

0~"r01
0~~2~7

000211

~62716

1100406
1127~1

00~001

1127.,
112767

0011M6

0001~5

~"~00~

00e154

.04216
004124

1206

0~4234

1207
1208
1.09
1210
1<111
1212
1213
1214
1215
1216
1217
1218
1219

0~4236

~10546

00424"

116104
005404

~04232

~04244

004246
0~4252

0e4256
1'04262

004266
004270

0.4272
004274

994276
01'4]0.

1220

004302

1221

004304

1222

~04306

1223

004312
004314

~'W146

010446
0"~t45

0621~4

00~r'6

110467
116704

000132

~16605
~~5~03

000012

006105
000404
006105
006105
006105
010501
00610]
105367
100016
042703

8TYPOSI MOV
POVB
ADD

~04202

12~J

MOV
TYPOe

~OVB

0.42~6
.0421~

1204
1205

12H

~IOVB

srQ

I,TO REPORT fATAL EHRoR

'1, .ffLG
'1, SMrLG

.ATYe

MOV
MOV
TSTB
CHPB

1193

I ~"2

MoVF
MOVA
8R

5EQ
~~0.01

004164
000201!

CZ~9AE,PII

J J ... ** *** 4.************" ** ... *it* .. *... * *** * ..... * ...... * ... * -*******._.*** .....

,ATYII
SAHli

0~1413

105067
105067
"S067

,EU

$TP~

"~'0~"'r.

.flU02
e04106
004110
ee4111
004116

004142
004146
004152
004154
004156

PAGE 24

TYN ROUT1 ~E

10572~

001316
1667;)0
0062 0 0

004054

1~ 114

"~137S

010067

004030

004M6

17-APR.19
I" 112

.0~125

0P0171

STXPOC I ~OVB
MOVA
GTYPON I MOVB
MOV
MOV
MOV
Move
NEG
ADO
MOVS
MOVB
MOV
CLR
ROL
1"
SR

2$1

3$1
000e16
177770

ROL
ROL
ROL
MOV
ROL
DECB
BPL
PIC

NUM,-CSP)

'INUMoEF TO BE TYPED
IICALL fOR TYRf,OUT

~[SP),·(SP)

'IPItKUP THE MODE
IILOAD ZIRO fILL SwITCH
'INUMBEP OF DIGITS TO TIPE
"ADJUST RETUPN ADDRESS

1CSP),S0FILL
[SP)+,$OMODE+l
'2, [SP)
ST¥PON
'1,60!"lLL
06,SOMOOE.l
.~, SOCNT
R3,-(SP)
R4,-(SP)
RS,-CSP)
SOMODE.l,P4
R4
fl;6,P4

P4,SOMODE
."FILL,R4
12[SP),RS
R1
R5
18

RS
RS

"SET T~E Zt.Ro FILL swaCH

II S~T fOR SIX(6) OIGITS

"SET THE IT!;RATlUN COUNT
'ISAVE H3
I,SAVE R4
I,SAVE R5
IIGET THE NUMBER Of DIGITS TO TlPE
'ISUBTRACT IT FOR MAX, ALLOWED
'ISAVE IT FOR USE
'IGET THE ZF.PO fILL SWI1CH
"PICKUP THE INPUT NUMBER
"CLEAR THE OUTPUT ~ORD
'IROTATE MSB INtO "CO
'IGO DO MSB
"FORM THIS DIGIT

P5,P]
Rl
.OMOOE
7S
H7777~,P3

I,GET LSS Of THIS DIGIT
IITYPE THIS DIGITl
'ISR IF NO
IIGEl RID or JUNK

".lJ

•

,M~lr.,
MACnl );"(1052) 17-APR.1Q
CZM9AE,PII
17-'?P·79 HHI2

1225

1226
1227
1228
1229
123.
1231
1232
1233
1234
1235
1236
12J7
1238
1239
1240
1241
1242
1243
1244
1245
1246
1241
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
12.9
1270
1271
1272
1273
1274
1275
1276
1217
1278
1219
1280

.~AIN.

""432"
"04322
".432'
""4326
U~4~]"

.04334
0,14340
1104J44

Ir~3"7

0.3347
0.2402
"05204

Q04360
''''4362
r04364
0"4366
0-'4370
0043 72
~044 ••
004402

Il]]

IJl4
Ill5
1136

0N~~40

~OV~

'''~44~H

TYPE
DECP

7$,

0nell'32

00i;
'-'00

61.

000

410

'H:)0"'N~

,R3

sOCNT
2S

BLI
INC

6S
R4

RI<

MOV
I'OV
MDV

(SP)"', Rl

"R~STon

(SP)+,~5

CSP) ... ,R4

MOV

"RESTORE R4
R3
"SET THE: STACK

II RE-STORE

2(SP),4<SP)
(SP)+dSP)

POV

"'0kh:HH

fO~

RETURNING

J,kE1URN

f<Tl

8S.
,BYTE
, BYTE
10CNT. .~YTE
S0fILL. ,RHE
$M·ODEI • ~JnFlD
POWER
.5I::tTTL

00~

~.4407

1f·~.R3

R], RS
,B I

Rr.r

,W0744

0~4404

BIS

5$.

0lil~~H0

'HHW~2

~IS

Pl(,~rJ6"\

012b~S

" 126~4
"12603
0'6666
rl2616
000002

0044"5
004406
~04

15T
FED
INC

4S'

6EU kH?.l!:l

IlnST rOR "
"SUPPHESS THIS "7
:;BR U- YES
"DON'T SUPPRESS ANYMORE 0'S
"MAKE THIS DIGtT ASCII
"MAKE ASC 11 lr NOT ALREADY
"SAVE fOR TYPING
"GO TYPE THIS DIGIT
"COuNT RY I
" BH IF MORE TO DO
" dR H DONE
"INSURE LAST DIGIT UHj·r A BLA~ K
,:GO DO THE LAST DIGIT

4$
P4

BNF

~057.4

." 14e3
""'204
052703
052703
110367
1"4401

~04350

r•
oow~:

~ND

: 'STORAGE fOR ASC I I DIGIl'
'JTF~MINATOR FOR T~PE ROUTINE
I'UCTAL DIGIT COUNT.R
I,ZERO FILL S_ITCH
IINtlMBER O~- DIGITS TO TYPE
liP ROUTINES

,,***************************************************************

0"4412
0~4420

012737
012737

004426

01~.46

~04430

010146
010246

004432
004434
I'P4436
004440
004442
004446
004452
004460
004462

P04552
00034"

(110b61

012737

114332
000104
0"44b4

HAIIT

0,)4552
0C0"60

0~5067

00~054

~04502
~045~6

0U5267
001375
012677
.12605

00'.5'

M.CYII

00O,,24

,POWER DO •• ROUTI"E
"ILLUP,~~PWRVEC ,'SFT FOR FAST UP
SF"RDN' MOV
#34~,QIfFWHVFC+2 IIPPIO,7
MOV
IH';,-CSP)
P()V
I,PUSH R0 ON STACK
MOV
R I, - (~P 1
"PUSH RI ON STACK
IIPUSH R2 01, STAC~
I'OV
R2,-CSP)
MOV
Rl,-(SP)
".USH R3 ON STACK
P4,-CSP)
MOV
"PUSH R4 ON STACK
MOV
PS,-CSP)
"PUSH RS ON STACK
, ,PUSH ~S.R ON STACK
~OV
~S.R,·CSP)
,~ov
SP,sSAVf6
"SAVE SF
_SP~RPP'@'PWF!VEC "SET UP VECTOR
MvV

~00000

"12737
016706

~04526

e00026

000776

~04476

004511'
0"4514
604516
00452.
004522
004524

"00024

~10146

010446
010546
011746

004464
004472

CZM9AE,Pll

1281
1292
1283
1284
12B5
1286
12B7
128B
1289
1290
1291
1292
1293
1294
1295
1296
1291
1298
1299
1300
1301
1302
1303
\304
1J05
1306
1307
1308
1309
1310
1311
1112
1313
1314
1315
1316
1317
131B
1319
1320
1321
1322
1123
1324
1325
1326
1327
1328
1329
1330
1331
1332

r~ 1"'''2

004354
"~4356

\ ~ 114
PAG~ 26
B HlAPY 10 OCTAL (.SCIIl AND rYPt

000024

174264

"126~4

012603
~12602

"12b"1
OI26~'

30~(1~52)

17-APR.79

10.14

"04530
004536
004544
"0454b
004550
004552
004554
004556

012137
"12737
104401

~0456q

00S01~

0e4566

0~0122

PAGE 27

PO~>JEFi

17111'APR.19 1\>',12

DOWN MID np I-lnUTtJllES

>lOV
MQV
TYPE

II$P""Rptl,~"rWF:V~C

/II~4""~'PI>.H\iEC+2

, ,$E'" U? THE POWER OOwN VECTOR
I ,PF'IOs1

t I~OPD

SPO_ER

:REPORT TH PowEH FAlLUH
"POOLR fAlL MESSAGE POINT~R

,-2

I,THE POWER UP SEwUENCL WAS STARrED
" ~I!.FORE THl POWER DO •• WAS COMPLETL

0~4560

SPioiPMG I

000002

PTI
$lLLUP' HALT

0~00"'"

0e0776
0'000~

04752~

~42527

"HHG UP

, -2

, , _** .. it**** ... *_*** .. " . . ** **** *'" ......... ***** ........... ******'IHt .... *** *** .. *** **
,POWER UP ROUTINE
ISlLLUP,"P"RVEC "SET rON FAST DOWN
IF-RUP' MOV
M~V
SSAVR6,5P
"GET SP
,'W~IT LOOP fOR THE TTY
$~AVR6
CLR
SSAVR6
"WAIT FOR THE INC
I
~C
1$'
oNE
IS
" OF WORD
P-OV
(5P'+,@5wR
: ,POP STACK INTO fdSWP
(SP)+,RS
rov
"POP STACK IT< 10 R5
(bPl+,R~
I'OV
" POF STACK INTO "4
(S~l+,R3
I ,POP STACK INTO R3
PO"
(SP)+,Ft2
: ,POP STACK INTO "2
~OV
, ,POP STAC~ INTO RI
~nv
(SP). ,RI
MeV
CSP)+,FW
:: POP STAC~ INTO R0

SSAVR6' 0
SPOWER. ,ASCIZ

, ,PUT THE SP HERE

.lVEN

.SBTTL

TPAP OoCOP,R

;,>THIS
, *** •••ROUTINE
*"' .............
** .. ******* .. ********* .... ***************** ** ...... ..
_ILL PICKUP THE LO.EM BITt Dr TH~ 'TRAP' INSTRUCTION
"AND VSE IT TO I"eEK THpOUGH THE TRAP TABLE rOR THE

ST~RTING

ADUAESS

:.or ThE DESIRED POUT'OE, THEN USI"G rHE ADDH'S5 OBTAINED IT WILL
,>GO TO THAT HOUTIN"
004570
0"4572
004576
004600
e046w2

~10046

GTRAP,

01660"
0"574~

MOV

R~,·(SP)

~IOV

2(SP),P@

T5T

-CR~l

11100~

t-10VP

(R0), PO

r0630C!
016000

.SL
fiOV

PI'

".46~4
004b1~

r,r,i~2"~

004bl2

NI646

0~4b14

016666

(lr 4b 2 2

0000~2

STRPAD CR~), P0
RI'

"SAV. R0
, ,GET TRAP ~DDR'SS
1,6ACK"P A~ 2
"G~T RIGHT BYTE OF TP.P
"POSITION fOR I'~EXING
"INDEX Tn TA13LE:
"GO TO POU!!N.

:,THIS IS USE TO HANDLE TH, 'GETPR!' MACRO
$ TH02'

(SP),-CSP)
4(SP),2CSP)

I'OV
I~OV

ATI
,S8TTL

TRAP

"MOVE THE PC DO"~
"MOVE THE OS, DOWN
"RESTORE THE PSW

TARL~

,.THls lAeLE CO~TII"S rUE STARTING
;.AY T~E "TPAP" I~5T~UCTION.

ADDRESS~S

or THE ROUTINES CALLED

ROUT I.E
004624
O~46'6

004612
003424

hRPAn.

,~OPO

STypOs
STYPON

sTHP2
"OLL"HPE
"C ALL_TYPOe
I ,C ALL"TYPOS
I,OLL'lYPON

TRAP+ICI04401)
HAP'2 C104402)
TRAP+] (104403)
TRAP.4 (104404)

TT~ TYPEOUT ROUTI~E
TYPE OCTAL NUMBER (\dTH I.EADI"G ZI::ROS)
TYPE OCT.L NU"BER CNO LEADING ZEROS)
TYPE OCTAL NUM8ER (~S PF_R LAS! CALL]

SROCHR
.RDLIN
SRDOCT

"CUt.-PDCHR
I ,CALL-ROLIN
"CALL_ADOCT

TRAP+5C10440S)
TRAP+bCI0440b)
HAP." 104407)

TTY TYPEIN CHARACTER ROUTINE
TTl TYP~IN STRING POUTINE
READ AN OCTAL ~UMHER FROM TT~

STYP~

004610
004632
004634

~0421.

UYPOC

0041b4
004224

004636
004640
004642

0~264~
00276~

00]264

004644
004646
004650
004652

177777
000571
000457
000243

TXCRCI

-I
571
457
243

IM9301 • YA VERSION
IN9301 - YB V~RSION
11~9301 • IC VERSION

/I
,!'JAIN,

~ACY! I

CZ'9AE,PII
Ill7
1338
!319
114"

1341
1342
1343
1344
1345
1346
1347
!HR
1349

0~4656

~\I'02'"

2~7

00466@
004662
004664
004666

0~0.70

67.

~0467~

0~4672

"04674
00467.
0"470"
004702
0~.7~4

1351
1352
1353
1)54
1355
1356
1357
1358

~~4710

!39~

1391
1392

I ~ 114 PA.E 2 B
1 RAP THL.
635

0A41"6

\)59

I7-APR-79 1" 112
""0635

0~4654

1350

Jl60
1361
1362
1363
1364
1365
1366
1367
1]68
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1391
1382
1393
1394
1385
1386
13S7
!l88
1389

3~A(1~52)

11.APP·79

0~4712

004714
C~4716

00472~

004722
004724
004726
~04730

004732
004734
004736
~04740

004742
004744
004746
004750
0A4752
004754
e04756
004760
0N762
004764
C04766
004770
004712
.04774
004776
005000

374
630
536
752

"H-)0374
~.063~

"0~536

000752
0006]]
000650

633

650
710
-I

"0~710

177777
177777
177777
177777
177777
177777
133725
017563
141744
"47613
114175
146126
132161
143466
036751
125411

-I
-I
lXLPC I

~66246

177717

-I

-I
-I

TOI,NII

-I
1000
100~
1~00

~~1~00

1000
1000
4000
1000
1000

~01000
00100~

001000

I~9J01 - YA VERSIO~
I~9)"1 - YB Vli.RSION
I ~9)01 • YC VE~SIO~J
,M94e0 - YA(OR YC) VERSION
I M9301 • YF VEkSION
1>17942 - Y6 VE~SION
IM93~1 • YO VERSION
IM94~0 - YH(OR YK) VERSION
IM9J11 VERSION-· REVISION * (ORIGINAL R~V,)
IM9301 • YH V!';RSION
IM93~1 - YE VERSIO~
IM93"1 - yJ VERSION
1-9400 • YN VERSION
,f19HI VERSION-.REV IS ION A ( SECOND REV,)

-I

~~1~00

0~5004

-I
133725
175&)
141744
47613
114115
146126
132161
143466
36751
125411
066246
132367
3021ti1
36743
-I
-I

00100e

0~40.0

•• ~7

-I
-I

1323&7
030210
036743
177777
177777
177777
177777
177777
177777

~.5002

005006
00501"
005012
005014
005016
005020
005022
005024
005026

132

"0~1)2

S~Q

,.91.0 • YA(OR YC) VERSION
IM93~1 • Yf VERSION
,.7942 • YB V~RSION
,-9301- YD VERSION
,.9400 • YH (OR YKl VERSION
,.9311 VERSION -. REVI5ION • (ORIGINAL REV,)
IM9101 - YH VERSION
IM9]01 • Y~ VERSION
IM93~1 • YJ VERSION
IM940~ • YN VERSION
109311 VERBIO" -- RrV15ION A ( SECONO R.V.)

0010.~

001000

1~00

00~714

734
1000

~01000

001000
qEI000
001000
177777
171777

1~00

1000
1~00

,",9]01 • YA VER5IO.
I r9301 - va VE~ISION
I M9301 - YC VERSION
IN9400 • YA(OR te) V~RSION
,M9301 • YF VERSION
IM7942 - Y~ VERSION
I"93~1 - VO VERSION
IM940~ - tH(OR YK) VERSION
1-9 311 V~R5ION REVISION * (ORIGINAL VERSION)
I M9301 • YH VERSION
,,<9301 - n VE~SION
,.9)01 • YJ VERSION
1-9400 • YN VERSION
IM9311 VERSION- ~~VISIO~ A (SECOND VERSION)

-I
-I

; ~

,!-'lAIN,

MACH I 30A( 1052) 17-AP.·79
17-APR-79 1~112

CZ~19AE,PII

139)
1394
1395
1396
1397
1390
1399
140~

1401
1402
1403
1404
1405

1406
1407
1408
1409
1410
141 I
1412
1413
1414
1415
1416
1417
1118
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
JH0
1411
1432
IU1

005~3~

005032
005034
~~5036

(10S040
005042
005044
005~46

"'05~5~'

005052
005054
005056
~05060

005062
~C5~64

00506.
005~71'
0~5072
0~5074

005076
00510"
0~5102

"~5104
~0!1~6
~e5110

005112
305114
005116
005120
005122
005124

10114 P~GE 29
TRAP TABU,

177771
171771
117777

-I

-I
-I

117777
17100{1
17 3000
173000
17 3~00
17 30~0
17000"
17 )000
173000
163000
113000
173000
173000
173000
1630110
177777
177777
117771
177717
177177

TR~SAII

171771

TDLN2,

-I
173000
173~0.
173~00

173000
171"~.,

170000
17300"
1730~0

16l00r,
171000
173000
173000
173000
1~3~00

-I
-I

0~1 ~00

1~~0

00100fJ

1000

~01000

IP0~

001000
001000

1000

30000~

1~00

001000

1~0~

~01000

1000

001000

le00

065136

0~IM~

005140
005142
005144

00100r
0010\.0
171777
177777
177777
177777
117777

1434

0~5146

1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1449

005150
005152
A05154
005156
005160
005162
0UI64
005166

"0~164

001000

177777
1650"0
165~00

165~00

00517~

165000
165000

005172

0~0000

005174
005176

16500P
165000

I"93~1 • YA VERSION
1"·9301 • YB VgPSION
I ~9J01 - YC VERSION
If'9400 - YA(O. YC) VERSION
I~93~1 - yF VERSION
, M7942 • YB V,RSION
1"9)01 - yn VERSIO~
I"94~0 • y~(OR YK) VERSION
I~9J11 VERSION FEVISION * ( ORIGINAL VERSION)
IM93~1 • YH VF;RSI~~
,,,9301 - YE VEPSION
I~9301 • jJ VERSION
,. 9101 • Y~ VERSION
,,19J11 "RSION REVISIO~ A (SECOND VE~SlON)

-1
-I

005130
005132
005134

0~5126

SEY

164
1000
1000
1000
1~00

1"9301 - VA V~RSION
IM9301 - ~s VJ::RSION
I .93~1 - YC VERSION
I M94~~ ·~A(OR YC) Vf.PSION
I M931l1 -ff VERSION
,. 79 42 - YB VERSION
If19301 • YD nRSION
I M9400 - YH(OR YK) VERSION
1"9311 VERSION REVISION. (ORIGINAL REV,)
I M9101 • YH VERSION
I M9301 • YE VERSION
,M9301 • yJ VERSION
IM940~ - yN VERSIO~
1"9]11 VERSION REVISIOJ~ A (SECOND REV,)

-I

-I
-I
-I
-I

TRMSA21 -I
165P00
165000
165000
165000
165000
0
165~00

165000

1"9301 •
r M9301 IM9301 •
I M9400 •
P<93JI •
IM7942 •

YA VERSION
YB VERSION
YC VERSION
YA(OR YCl VERSION
YF VERSION
YS VERSION

,M9101 • yO VERSION
,M9400 • YH(OR YK) VERSIOh

~~28

IM~IN.

~ACYlI

CZM9AE,Pl1
,449

n1'1520~

I7-APB.79
]"'(1052)
17-APF<-1O 111 f 12

0"5202

16I1}t,C'l~)

1'115204

1 b!i0"'i~

005,06
"~521e

165f'00
165"00

0~~ 212

lb6"'Y'0.'

•• 5214
0"5216
"-522"
"05222

177777
177777

0"5226
0~523.

005232
"05234
005236
"0544"
005242
0~5244
~05246

t f.ti~Hh1
1650"0
16500.

t 71"7

177777
177777
177777
M6106
006123
"0614"
006155
OA6175
006212
1'06227
r06244

T"SG,

156S

, "93''1

-I
MSGI
HSG2
flSG3
HSG4
MSG5
HSC6
MSG7
MSGI"

~06270

MSGll

f'SGI2
MSel]
MSG14
MSGI5
MSGI6
-I

"05260
00526.
""52b4
005266
~"H7~

005272
005274
005276
005304
."5311
005316
"05324
005332
e05335
005342
005350
~05356

00~433

117177
177777
177777
177777
177777
005015
~42524

015
020105
040526

'''7942 - YB

V~HSION

,"9301 - YH
I r~ 9)'~ 1 - lE

V~RSION

,r"9J01 •

-I

030112
052123
052"12
051103
.52514

020~40

l~~H1

052012
050114
052514

.20115
000
050111
020103
035105

TlTL,

,ASC I Z

< 15><1 2>/P~" TEST I

GETCRC I ,ASCIZ

<15><!2>ITYPE CRC VAl-UE,

05l'131
.20103
035105

GETLPC'

,ASCIZ

<15>< I 2>/THE LPC VALUE,

020040

.HI"

~15

042412

,~SCIZ

<15><12>/EXPECILD CRC •

005374
005402
005404
."5412

"511~3

020103

05.130
020104
020075

EXCRMr.,

~42524

042412
042524
020103

050130
0201H
020A75

rXLPMG,

,ASC IZ

<15><12><12>/~XP~CTFD

LPC

047503
e4'10S
03&440

"50115
04144"
02.A40

ACCR"G,

,ASC IZ

<15)o<12>IC0J.1P1JT~D

CH.C

LPC

;:I

"U~0 4~

005015
041505
05£ 114
000040
005015
"52125
041522
"00

015

0054~.

PIlj252(~

0~5466

"50114

.~5474

f'lv'''04A

005476

005015
V47440

"~55~4
"~5512

005515
005522
PlIJS5 3~1

"0553&
~05544

"05552
H0!56~1

ue5566
"05571
~\,j5575

0G5602
"05&1"
\)0561b
M5624
"J56J2
005640
1l~5646

005654
005655
01'5&62
f'{1SbU'
1'.5676
0057,,4
005712
00572.
,,05726
rf'5711

~5212J

NI412
042524
020103

ACL.PMG I ,ASC I Z

c:t5><12>ICO~PUTEll

042 4 12

042116
"42524

EOTST,

,ASC IZ

<15><12><12>/1'. Of TESTI

05~131

~~ 1 ,

.ASCIZ

<15)(12)ITYPL

STAHTl~G

ADDM, OF 1ST FlOM ADDR, SHCf,

e50111
051101
040440
04744"
020104
04<101
050123
02."4.

SA"

,ASCIZ

<15><t2>/TYPl

5T.~T!NG

AOD~.

050131
043516
054502
04744"
021'124
042101
050123

SIZE1 ,

,ASC IZ

<15><12>/T~PE

tENCoT"

(~Y'1ES )

SIZa2 ,

,>SCIZ

<15><12>/TYpg

L~~GTH

(BYTES) OP'

CARLFI
SP21

TYP~DR ,

,ASCIZ
,ASClZ
,ASClZ

<'5><12.
I
I
< 15>< 12>1 ADDRESS

COLON 1
AUTERMI

,ABeIZ
,ASCIZ

<IS><12>/UN~NO.~

~SC1 I

,ASCIZ

C15><l2>/M9301 • VAl

.UI~6
~0~)

~IS

~52012

020105
044524
0421 "4
020106
047522
051104
041501
000
015

052123
043516
027122
0514'1
~2" 115
020056

rU'1~5

044524
A421"4
[>20106
rH7S22
051104
041501

035H~5

"52"2
052123
04351 b
027122
A47~62

02.115
~2 •. 056
0351»5
052012
042514
024040
024523
~514&1

0'01 15
02A056
035 1C5

047440
020124
042101
050123
"201)4"
Of 2f'j[) 1-o:0I>1 ADDR.

SPAC~'

un ROM ADD~.

SPAC. ,

02004~

~v,,,

052~12

MS742

'1201 "5
044124
042524

04'~14

006~14

.51101
C4~44"

000

015
020105
M4124
042524
020106
047522
"51! 04
>'41501
~1 5

0~575A

10' 14 PAr.F 31
TRAP TABLf

046517
e20104
020075

~~5715

005756
005764
00577 2
0060"0
006006

k'l1(l3fO

,M9400 - ~N V\;RSJON
M9311 REVISION ~ ( SECOND PEV.)

041505

005453

SELl

H~SION

YJ VE~S ION

0053~6

005426
005430
005436
M5444
"0H52

~k':.!9

•

005361

~"5i2"

SE(,I

( ORIGJ~AL ~~V,)
Ve:R.':iION ~EV ISION
- YH VERSION
YI:. nH~ION
YJ VEHSIO{'
- Y~ VERSION
VEPSI{JN REVISION A ( SECOND Rt-V,)

-I
-I
-I

015
C·20105
"4~52&

J t-:931r:11

,M94J0
, ~9311

006347
""63&4
006401
0"641.

"~525~

,"93"1

1 65000
1 cbNH~
-I
-I
-I
-I
-1

_'05252
"0~254

II-~ 9 311

1 b5\HH'1

~05250

17-APR.79
DMAIN, MACYll 3.A (105 2)
CZf'9AE,PII
170APR-79 1" 112
1505
1506
1501
1508
1509
1510
1511
1512
1513
1514
1 5 15
1516
1517
1518
1519
152r,
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
153 I
1532
1533
1534
15J5
1536
1537
1538
1539
l54e
1541
1542
1543
1544
1545
1546
1547
1549
1549
155A
1551
1552
1553
1554
1555
1556
1551
1558
1559

PAGl ]~
THAP TABLE

16f00"

145~

1451
1452
1453
1454
1455
1456
1457
1459
1459
1460
1461
1462
1463
1464
1465
1460
1467
1469
1469
147.
1471
1472
1473
1414
1475
1476
1477
1478
1479
1480
1481
1482
14S3
H84
1485
1486
1487
14BS
1489
1490
1491
1492
1493
1494
1495
1496
1491
1499
1499
1500
1501
1502
1503
15.4

V05224

1~ ,14

~201"6

047522
.51104
041501

024~40

024523
047062
020115
02C~56

0351,'5

050131
043516
~54502
~47440

~2~1"4
~421.1

050123
020040

~0"

015

000012

006015
0,'6020
n06MJ
006030
006036
006044
006052
006060
006064
006072
0.6100

042522
02004n
020040
042040
020072
005015
053517
052504

047125
020116
042514

047113
047515

006106

0A5015

034515

0l00bl

02004~

OJV)rI

~ 15

040412
051523
020040
020040
0,52101

2~!D

042104
020040
020040
020040
000101

01'C04~

DAHl

MODULE I

00~040

ROM ADDR. SPAn; ,

.~~

10114 r AGf 32
TRAP TAHl

17-APP-79
,MAlt••
MAnl1 leA!I"!')
CZM9IlE,Pt 1
17-APR-79 1.: 112
150 I
156'
1563

~0b 1 \4

"~6122

"'J6123

15b4
1565
1566
1567
156i
1569
1570
1571
1572
1513
1"'4
1515
157.
1577

02.00;1
~l""

"15

nnr,13lo'l

,: 3~46~

~.H~6136

""0102
iH'5"1'
"20061
0eo
015
030060
":!6101

0"614"
'106146
~0~154

006155
00610;2
""617.
""6115
006202
00621"
"06212
0~6220

0304bq
""5015
~20f)62

.~6226

0~O

0"6221

1579
158"
1581
1582
15B3
1594
15B5
1586
1587
15BB
1589
159"
1591
1592
159]
1594
1595
1596
1597
159B
159q
1600
16e1
160.
160]
1604
1605
1606
16"'
16M
1609
1610
1611
1012
16!3

~"6 2 J4

015
0]"460

~~6244

~'0"'1t144
"05~15

~"6252

020~6~

"06260
0.6266
006270
"06276
006304
00631 2

04'4SI~

1!)\~()320

~"6126

006114
k)l.:'b342

040531

040412
02644"

0]1471
OH440

MSG2.

,ASr.rZ

<15><12>1"9301 - YBI

014515
0'."55

03(11"1)]

1-15(.31

,ABC IZ

<15><12>/"9]01 - yel

MSG41

,ABC IZ

<15><12>1"9400 - YA, YC 1

~SG51

,ASC lZ

<15><12>/"9301 - YFI

046412

~n071

02644~

054440
00"
031471
0H440

041531
04611'
02b·H~'

0"0051
005015
.20061
£445:1]
020052
052101
.26505
.3146,
034501

0]2071
041131

MSG6:

.ASCIZ

(15)<12>IM1942 - yel

~2~r55

e46412
02644 ..

0]1411
054440

~SG11

,ASCIl

<15><12>/M9]01

~]4<15

030064
044111
045531

IISGI"I

,ASCIl

<15><12>/ M 94.,,,, ...

03016]
044526
.2."4.
041517
020116
020075
rn062
"0"

MSG11.

,ASCIZ

<15><12>1"9311

~EVIBIU.

MSCl21

,ASCIl

<15><l2>1"9]~1

- YHI

~]]515

020"55
02"122
034~15

042522
047111
04bl~51'

047511
02."65
~J2455

034515
0l""55

03~06]
~425]1

"SCI]I

,ASCIZ

<J5><t2>/M93,JI - HI

046412

031471

f'SG141

.ASCIZ

<t~)(12)IM9]~1

~2644"

~54440

~05015

0]4515

,ASCIZ

<15><12>IP9400 - YNI

020055

030064
047111

~SC151

r200b'~

031471
053105
020116
041517
020116
020075
0]4"7"

"SG161

,ASCIZ (15)<12>1"9]11 REVISION A (LOCATIO' E-S • 23-688A9)

a~6446

"~6454

~0011~
~0~0IS

e20061
000
"15
"30460
000112

~l1471

ACCR~IG

015
~]0461

051511
020\(11
.521~1

026505
031462
O145~1

046412
05104.
0475 II
kl16r.S0
04151/
020~65

033"55
020"51

569
7.7

ACDWI
"I 0 r,h1011
ACDW2 • eJo~M
ACLrMG 00545]
ACPUDP. 000~00
ACTCRC ~01.22
ACTLPC "010H

eOS430

569
125
569
52H

•

0~"G0~
~''~'''100

ADD"I~'

0~000~

ADOwllo
AnD.12.

I-HH;lI~PrJ

569
569
569
569

53~j

00"'0~1',I

~6q

569
569
569
569
5b9
569
569
569
569
509
569
5b9
569
569

AO!')w5 • "00000

ADo.6 :;: tHHJ000
ADDW7 • 00M00
ADDwa • i;J"M0
ADD"9 • e0~00.
ADEVeTo 00~"~0

"~~000

~ri(1000
AENV
AENVM • MJ@0"0
AFATAL- 0~0~0"
AMAcol_ CHHHh;l0
AMADP2. 00~"0~

AMAO~3a

~01Ok"vH~

AMAPR ,_ M"HH"~
AMA"Slo ~"000~
AMA>IS2. ~00~0.
AMAMSl. 00'000
AMAMS4. r00~00
AMSGAn. 00M0~
AMSGLG. O~000i1
AMSGry" ~~0~00
AMTYPI' O~0000
AMTlP2. 0000~0
AMTYn. 000000
AMTYP4. ~0C00~
APASS • 000.00
APR lOR. 0"00""
APTCSU. ~0~~4e
APTENV· """001
APTSI Z' 00.200
APTspe. 00~1.0
AS. REG. 000000
ATESTNO 000000
AU~IT

•

00_000

AUSWP •

000~00

AUTAeT

002522
006064

AUTERI~

56Q

569
569
509
569

,END

10114

PAG~

C~OSS

3'
HFERENCE "RLE -. USER 5YNPOLS

I~"II

15.51
SB4
676_
677.

699
718

515
580
591
572

"~9

5bq
569
569
569
569
569
5b9

569
569
569
569
569
569
106"
105J
621
1055
569
569
569
569
698
8~5

00~

~69

ADDW13C1 0nA00fl
ADDW14= "1.,H-"':\00
ADDWISo C0110~0
ADD'2 • k""'~0e(~
ADOW3 • '·I·H~001t1
ADD.4 II "'00~V!0

- YJI

Jr~

"00001

"~0M0

""J,

[-5 • 23-S24A9l 1

~54440

006462
110641.
006476
006504

(LOCATIO~

~2644~

•

ADEV!oI

~15

~06364

B;;o

VKJI

"l~460

AB~SE

ADDW!

IH(O~

n~b)!54

006372
"06400
Oll6401
006406
006414
U0641b
006424
006432
.064]]
006440

""Jl

~DI

020051
046412

,MAIN, MACYII ]~ACl052) !7-APR-79
CZ"9AE.PII
17-JPP-79 Ie 112

AO(')\tO~

~06347

,lc.6362

SlU

041511

~ff(l!l~H)

1578

00b242

~2"0~~

577
518
571

574
1171 #
1127
Ilbe.
1129
582

573
576

583
849.
15561

1169.
1110.

108
126

75"
B05

78~"

~12'

BS3

.MA.l~1
MACI!! )"A(lk'52)
17-APP·79
ClM9AF,Ptl
17.APR-7' I" 112
AUnp~

0~2612

~52

002524
'\~2~ 7r.
AUT2
AUT3
~J2572
AVECTI- '1~~00@
AVECn- "~C.0~
81T0 • '1~~0kH

856
5bO

AUTI

81100 •
BlT~1 •

.Ho1~Ql01

'ht~0Vl'2
~00e04

P1T_2 •
SIT.3 • 000010
BITA4
000020
BIT05
e~HHH0
BITVlb • .~~100
BIH7 • ~~002"~
BlT •• • 0004"~
BITI,:'9 • ~A1000
BITI • 0"0002
BIT 10 a CI"20~!0'1
BITII 31 004~~~
BITI2 • 0hl<H~0
BITI3 • 020000
BITI4 31 rl4£00"
BITI5 • 10~~"0e'
BIT2 • "'nA~04
BIT3 • 000010
BIN II 00002"
BITS • "'0~04"
BIT6 • 000100
Bll7 • ~002"'0
BlTB • 000400
BIT9
Af'Jl"'~t1
BPTVEC- 0"0014
CARLF
006Pl5
CHECK
001510
CH0
~01566
CHI
n01644
CKI
001736
CK2
002010
CLL~ST
002204
CLP'~
002252
CLPI
~02264
CLP2
002316
CL~
"02102
002146
CLI
CL2
~0217"
CLl
J02122
COLON
006~6~
CR
• ~U0015
CRC
~"2074
CRLf
00"200
DATLNI ~01~06
DATLN2 •• 1012
DeISP • 177570
DISPLA 001002
Ol5PRE 000174

~50 •
857.

177572
EMTVEC. 000030
ENDOT
002446
EOTST
005476
ERRVEe_ 0W0~~4
EXCRC
~01016
EXCRMG 005361
EXLPC
lH"02~
EXLPfiG 0054~4
GETCRC 005311
GETI'
~0137~
GETLPC "1l5335
GET2
~~1440
G~S

*** .... *

GOAGIN €0207~
00~011
HT
IOTVECc ~00.2C
Lf"
• 000012
0M144
LPC
002352
LPCI
0\~2366
LPC2
MSGI
00610'6
MSGI0
006244
MSGII
006270
MSGI2
006347
e~6364
MSGI3
MSGI4
006101
MSGI5
006416
MSGI6
006433
HSG2
M6123
MSGJ
006140
MSG4
~0615S
MSG5
006 P5
MSGb
006212
MSG7
;106227
PARChT 001026
PARITY on242
177772
PIRQ
paQVFo 0~0240
PR0
• 000000
II 000l14e
PRI
PR2
• 910"'100
PR3
• 000140
PR4
• 000200
PR5
• 0~0240
PR6
• 000300
PR7
• 30034"
P5
• 177776
paw
177776
PWRVEC. ~"0e24
POC~R • 104405
ROLIN • 1044e6
ROOCT • 1044e7
REs'rRT 001274
REaVEC_ 003010
ROMSAI 001004

·
·

IIS£~

5r""Ol,5

SYM~OLS

,w "~34

""JJ

8041
854
859.
~60'

5b9

485'

415'
474'
4731
4721
471'
47.1
469'
468 •
4671
4061
4841
465'
464'
4031
462'
461'
460'
483#
482'
481'
480.
4791
478'
4771
476'
4'20
832
642
679
688
700
719
773
7B40
785
794
751'
765'
762
753
841
4~~'

6BI
4010
5231
~'5'
4.H
521'
508'

485
194
483
482
481
49~

479
478
471
476

837
644
6860
697
713
711
775.

711'
758.
1555'
1099
689
1070
638+
640"
609
6~~9*

4A~'

b06
637.
1493#
636.
1497.
1485.
6431
1489 •
65"
1323
74B'

b!!H'

8~B

1462
1469
'471">
147 I

q28

6~3

691

818
ij23

TABL~

•• USER

1509.
607.
652_

61 S*
699

7~l4

860*

6560

718

722

861-

112~

1326

1329

1330

1331

1281_

1324
11"9
1109

1~96'

4~21

678
687

h17.

II ~l
693
a II
au'
1560.
1581#
1585.
15931
1599.
16021
1605.
156)1
1566.
1569,
157H
1575.
1578'
782_
782.

401'
4941
921
996
651
626
4BU
522'

11"9
750'
11.9
664.
672.

lk'b9

1473
1474
1175
1463
14~4

774

827'

1472

1465
,46b
1467
1468
531'
758
405'
499.
4221
421'
4241
425.
426.
4271
4a.
429'

862

10,14 PAGE 36
CQ05S REYER~NC~

608

034
• 54
648
5M
742
398'
49)1
399.
6RS
806'

6730

6991
718.
736<

6,7

406.
495.
825
739
5271
703
528#
721

1548'
646

787#
796.
757

.MAlt.., MACHI leA (105 2)
17-APP-79
CZM9AF,PII
17.APR-79 10112
DS.~

1"114 PAGf 35
CROSS PEF F.RENCF. T'PLE --

erst

786_

793

(0)

5161

6~2.

6~)o

1253.

12540

126h

12690

659
748

663

667

671

I31U

630.
639.

660.

680

692

817

13291
1330.
655

1262_

MACYI! 3"A(1052) 17·APR·79
!7-APR-n \[1'12

IMAIN~

!~'14

ROMSA2

""'J01~

SAl

005515

SA2
SIZEI

~05575

"~565S

005735
e~6~20
SP2
STACK. 001100
STAn
1)0107b
STKLMTm 117174
5T2
.0112"
SWR
001000
SWREG
"00176
awe
• 000001
5W00
• ""0~10'" 1
5W01 II f';0~1~02
5.02 III t1fMlIl:lJkl4
SW03 !II 0(100t('
8W04 • 000020
5W05 • 000040
sWeb • 00010"
8W07 • 000200
5W08 II 0~040M
5lZE2

5~09

SWI
SWIll

• 0d0002
• 002000

"""hHH't

• "04"""

5"11

5WI2 II iJ10~0fl
BWl3 • 020000
5Wl4
"4"0"~
aWls • 10000~
II 6:HHH104
5W2
aWl
II 1il"~9110
SW4
B 00k"!02"
II AP.004~
B.5
SW6
• 1'0010~
SW7
• 000200
SWB
a: ~"'~'00
S-9
~0U00
rBIIVE_ P~l001 ~
TDLNI
~04766
1'.,5106
TDLN2
TITL
005276
TKVEC as ,,",0e06~
TMBG
005226
TPVE;C • ~0e~64
TRAPVE. 0~0034
TFMSAI 00S~16
TP"SA2 ~05156
TPTVEC· 000014
TXCPC
~04644
0M714
TXLPC
TYP
002454
104401
TYPE

•

TYPHDP

.06023

524'
658
666
662
.70
815
393#
512

TYPO~ • 104404
TYPOS. 1044~1
TYPOUT a0103~
TYPROM 0024~2
~02426
TYPRI

43H

439 #
456#
411.
436'

490'
618
640
62g
497#
~51

4980
4°6'
639
641
49U
611
61 ..
921
627

951
Bib

30-0DE
'PASS
IIP~STM
IIPO~EP
SP~RON

USf:R

5Y~HOLB

6"'f'I*

601·

853
B61
B26
649
Y31
954
1550.

960
13540

13]]'

705
I J26.
1325 •
511"
675

831.

653
836
958

657
940
102~

7~9

723

727

839

513>
B15.
B2H
847
B4H
836'

532#

t41

673

809
171"

17S

176"

1.92

1101"

11~6'

969.

1030

1074

1115

625
645
b21

7 \ll
694
1"55

729
712

136

106~

1129

591'
594*
112111130

7140
1149

732"
115B.

II ~6'

1115

798.

75".

1095_

n2'

943

948
575'
54"
5R~'

5AU
579.
5&5
~72'

IIIS*
1_78
II 12'
1328
561lJ

62~

1125

1160"

11640

illS1140_
595'

113B

004560

004412

602

"01~62

~0l242

~"]712
veH~6
0~4410

1<>01054
001040

In4.

777'

179.

780

744'
1053

855
1127

1151

1141"

1153

799

97,.

570'

~01 ~46

B43

~Qe

59"

73~

Bbb-

1155"

1~53

715-

73l'

8b7·

1133

l11H
1233.
120l.
620'

12461
1208
140.

1211"

1222'

124BI

12891
12511

1291

720
939

724

7Jij

943

94B

Yl5
949

st:y

1119'

1286.
1030

0~4161

559'
1164
1122 ,

1~291

001064
001046

SNULL
SDCNT

10,14 p.Gr H
CPOSS RfHRENCF. TABLE

14613

1269
970.
1165.
565

'MNE~

,MS.R

934
13231

B51
51H
13970
14]91

1253
959
1159'
561
561'
1119>
9751
5770
578.
571'
9731
1090
1204·
11995741
56H
1284

'MSCAD
$M5GLG
tMSGTY

.~nG

7~2
~2B

1283

1376.
1418.
146H

1~180

~03226

001034
"M160
0£32S3

,MBADP,

&69
964
1232

449.

~~1032

$LHG
SMAlL

60S
858
1013

457
456
455
454
453
452
451
450
449
44P

14B1

'APT~D

SLY

661
B44
1027

1274-

4~1I

fl~I.14

~01~76

1261

452'

xo~s

GETEN~

633

61'
632

45~'

8341

SFATAL ~01~50
H'FLG
"'~4162
SFILLC 0<13114
iF ILLS "03713
5GTSWRB ******
&HIBTS 001032
003422
.~IOCT
SJLLUP _N552

632-

6Q18*

616

4531

B15
Bll
759
526'
812
553
1149
1120
III A.
1058
112\#
10751329

0'~ 106&

62h

5941

4330

~U2462

aETAB!,

616.

514

.~j5

412.
455.
4541

~~'5.4

.-It ......

822

414.

002470

**.".-

S~U

lISER SYMBOLS

415.

TYPO

$ASTAT=
SATYC
003742
001716
SATYI
0q3724
SA1Y3
003714
SArY4
$CHARC ~e3702
SCKSWpo ** ... ** U
SCMTAC.
U
SCNTLG M3235
SCNTLU 0"323~
SCPUOP ~e.I~74
sCPLF
0.l225
SOEveT 0~I"s6
SENDAD ~02~6"
r~I~66
SENV
,ENVM
"01067

T~A[,g

690

668*

40H

635.
520.
509'
45,.
44"
446.
445'
4441
443#
442'
441#
44"1

TYP2
TYP3
XOR

00232~

PEn:R~~CF.

686

611>
1512'
1521#
153O,
1539'
154Q.

,MAIN, MACyll 30A(l052l 17.'PP.79
p-APR.7. 10112
CZM9AE,PII

npoc • 104402

PAG~

CROSS

CZM9AE,Pli

1157.

B00"

801"

ij02

~k'S'"

~hUb

.14. IN. MACYlI ]~k(I~S2) 17.APP.19
,CZM9AE,Pll
17-APR-79 1~lIa
'P~RMC

1294.
1263
951

~04546
~~4464

,PWPUP
SQUES
110lZ24
,RDCHR ~02U0
'RDD!Ca ....... *
'RDLIN 002760
'ADoeT "eU64

8RDII •

UAVRE_

tsUR6
UETUP.
I5TUP •
UVPC •
UWR
U~RLG

eTESTN
SUB
UKS
ITPS
UPrLC
ITPS
STRAP
nRAP2
eTRP
STRPAD
nSTK

•

,nTlN

916.
99\1

Illi

"00~1~

004556

1262.
51U
510.
53U

.......
177777
001032
001100"
00107£
001052

]891
5~2'

57)'

8741
87]1

II~26Jb

"02634
003710
00]715
001706
004570
0"4613
1!01111111
004624
0"11136
I1II3U4

10981047
10q6
6V,,,
UIU
IllS.

1030

1115

1370
599

1271.
6"0

1272*
602

1288'
6~4

877

977

54]
1285
U3
5960
892
8911
1110,
1114,
11091

898

IllII'

IlJlt

Ill2.

5391
977

b41'
In!'

5U'
1109

IJ]~

IlZ6.

1l2H

\l29

9\9

931

949

9bl

96lt

10471
1"77

\146
1094

1097

1I~4

11I5
1091
1\071

Ual
10961

1I~2

U02'
12MI
119H
5761
564.
543'
119 . .
51''''
87]
\1\4
1119

U24
1204.
1325

12471
51'"
9U
\265

519.
969
1287

••••••

U~'"

uas,

56,.
9\8
\l27

......
••••••

896

1322
UH,

Ue5

ERRORS DrTrCTI:PI

1"27

~1'''014

1106511

st:Q

1312

,USUs
U
• 0010]2

• Aai.

l269.
9681
1129

9~U

enp8N.
U
tTYPDS.
U
MIIJ424
I1YPt
tTYPEC 0"3616
InPiX 00]704
ITYPOC 111642\1'
InpON "04224
tryPOS "164\64
.UNIT
""1060
'UNITM Pll042
.USWR
""11172
",rILl. 11044e7
• e06S11

n81

• •••••• UU

tR2A

10114 PAGr 19
CPOS:; PHEPENC[ t)&LE •• USER SlM60LS

549,

un.

12n·
5~H

874
1115
1122
554

In6

1212
5071
9671
11670

538
970

0110

CZM9AE,BIN,CZ~9AE,5EQ/CR"SOL/NLITOC.SYS"AC,SML,CZM9lE,PII
RU~.Tl~EI

38 33 I SECONDS
RUN-TIMl RATIOI 356174-4,'
CORE USEDI 12~ (63 PAGES)

,MAIN, MACYII 311.(1052) 17-APP-79
CZM9AE,PlI
"-APR-79 1~112

10114 PAGE 411
CROSS Rr'~RENCE TA8LF. _. \lUR

Sy~eOLS

54~

11111

55~'

1111

552'
1112

554'
IIIl

"~J7