Digital PDFs

AH-F170C-MC

October 1985

99 pages

Original

46MB

view download

OCR Version

62MB

view download

Document:	CRDTAC0 DT07 DT07 UNIBUS SW DIAG OCT 1985 gray
Order Number:	AH-F170C-MC
Revision:	000
Pages:	99
Original Filename:	CRDTAC0__DT07__DT07_UNIBUS_SW_DIAG__AH-F170C-MC__OCT_1985_gray.pdf

OCR Text

DT07 UNIBUS SW DIAG

CRDTACO

AH-F170C-MC

1or1

ocriess

EEORED
MADE IN USA

A >; .MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 1

SEQ 0001
1
2
3

REM_

PRODUCT CODE:

PRODUCT NAME:

9
10
11

PRODUCT DATE:

AC-F169C-MC

CRDTACO DTO7 UNIBUS SW DIAG
1 MAY 1985

lg
1
14
15

MAINTAINER:

CSS/NSG NETWORKS SYSTEMS GROUP

17
18
19

COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES
THEROF, MAY NOT BE PROVIDED OR OTHERWISE MADE
AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND

THIS SOFTWARE IS FURNISHED UNDER A LINSCE AND MAY BE
USED AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF
SUCH LICENSE AND WITH THE INCLUSION OF THE ABOVE

OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED.

2l
22
23
24
25
26
27
28
2
30
31
32
33

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT
COPORATION:
DEC
DECUS
DECTAPE
MASBUS
PDP
UNIBUS

g&
S
37

38
39

40
41

THE INFORMATION IN THE SOFTWARE IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL ASSUMES NO RESPONSIBLITY FOR THE USE OF OR
RELIABILITY OF ITS SOF TWARE ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.

VAX

1979,1985 BY DIGITAL EQUIPMENT CORPORATION

MAIN.

MACRO M1200

TABLE OF CONTENTS

111111111212131314
1616
161617-

32-

404040-

41-

4]
-

43-

44
.464646
46
46
-

46
46
46
46
46
4646
-

46
-

47-

338
345
346
346
348
350
351
351
351
523
524
547
547
603

24-MAY-85 11:37

PAGE 2

BASIC DEFINITIONS
MEMORY MANAGEMENT DEFINITIONS
TRAP CATCHER
STARTING ADDRES(ES)
ACT11 HOOKS
APT PARAMETER BLOCK

COMMON TAGS

APT MAILBOX-ETABLE

ERROR POINTER TABLE

PROGRAM START
INITIALIZE THE COMMON TAGS
TYPE PROGRAM NAME

GET VALUE FOR SOFTWARE SWITCH REGISTER
MULTIPORT TEST
BIPORT TEST IN DTO3 MODE
MANUAL INTERVENTION TEST
END OF PASS ROUTINE

USER ROUTINES

TYPE ROUTINE
APT COMMUNICATIONS ROUTINE
READ AN OCTAL NUMBER FROM THE TTY
TTY INPUT ROUTINE

BINARY TO OCTAL (ASCII) AND TYPE
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
ERROR HANDLER ROUTINE
ERROR MESSAGE TYPEOUT ROUTINE
SCOPE HANDLER ROUTINE

POWER DOWN AND UP ROUTINES
TRAP DECODER
TRAP TABLE
RANDOM NUMBER GENERATOR ROUTINE
ASCII MESSAGES

SEQ 0002

<MAIN,
43
a4
45
46
47
48
49

S0
S1
S2
S3

54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

MACRO M1200

24-MAY-85 11:37

PAGE 3

1.0

ABSTRACT:

THIS DIAGNOSTIC IS DESIGNED TO TEST THE FUNCTIONS
AND CAPABILITIES OF THE DTO7 UNIBUS SWITCH.
THE DIAGNOSTIC
IS DIVIDED INTO THREE MAJOR SECTIONS AS FOLLOWS:
MONOPORT;

THIS SECTION TESTS A SINGLE PORT WITHOUT INTERACTION WITH OTHER PORTS.

MULTIPORT;

THIS SECTION TESTS THE DTO7 PORT WITH THE OTHER
PORTS IN THE SYSTEM.
MANUAL INTERVENTION; THIS SECTION TESTS CERTAIN FUNCTIONS
WHICH REQUIRE OPERATOR ASSISTANCE.
NPR TEST;

THIS TEST CHECKS OUT THE NPR LINE ON THE SWITCH BUS.

NOTE::
THIS DIAGNOSTIC WAS ASSEMBLED USING THE FOLLOWING ASSEMBLE
AND LINK COMMANDS ON A VAX/VMS SYSTEM
HC: HAS CRDTAC,CRDTAC/ -SP=SYSMAC .MLB/ML,CRDTAC.P11
TK
MCR
CRDTAC.TSK/-HD/-MM,CRDTAC/CR/-SP=CRDTAC.0BJ
PAR=GEN: 0:376000
STACK=0
CORSIZ=16
RAY BALDWIN - MODIFIED MULTIPORT SECTION (4/20/85) TO BE COMPATAB
LE
WITH VAX DIAG. AND FACILITATE FOR THE 400+ MS

LOCK OUT OF EXTERNAL INTERRUPTS AFTER BUS CONNECTS

SEQ 0003

<MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 4

SEQ 0004
76
77
78
79
80
81
82

84
85
86
87
88
89
90
91
92
93
94
95
96

2.0 REQUIREMENTS:
2.1 EQUIPMENT
PDP 11-COMPUTER
ASR-33 TELETYPE OR EQUIVALENT

DTO7 PORT MODULE

MANUAL CONTROL PANEL (OPTIONAL BUT NEEDED FOR MANUAL INTERVENTION TEST!)

UBE <UNIBUS EXERCISER> (OPTIONAL BUT NEEDED FOR NPR TEST)

2.2 PROGRAM STORAGE
PROGRAM REQUIRES 8 K WORDS OF MEMORY

2.3 SOFTWARE
ABSOLUTE LOADER OR OTHER INPUT MEDIUM

<MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE S

SEQ 0005
98
99
100
101
102

103
104
105
106
107
108

109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

3.0 SWITCH REGISTER ASSIGNMENTS:
SWO8(1)=LOOP ON TEST IN SWR<7:0>
SW08(0)=D0 ALL TESTS IN SEQUENCE
SW09(1)=LOOP ON ERROR

SW09(0)=CONTINUVE ON ERROR

SW10(1)=BELL ON ERROR

SW10(0)=NO BELL ON ERROR

SW11(1)=INHIBIT ITERATIONS
SW11(0)=ALLOW ITERATIONS

SW13(1)=INHIBIT ERROR TYPEOUTS
SW13(0)=ALLOW ERROR TYPEOUTS
SW14(1)=LOOP ON TEST
SW14(0)=DON'T LOOP ON TEST
SW15(1)=HALT ON ERROR
SW15(0)=CONTINUE ON ERROR
NOTE:
COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A
SOFTWARE SWITCH REGISTER LOCATED IN MEMORY AT LOCATION
176 CALLED SWREG.
THIS LOCATION CAN BE CHANGED EITHER
MANUALLY OR BY TYPING THE CNTL+G KEYES TOGETHER
THEN RESPONDING TO THE TERMINAL DIALOGUE.

MACRO M1200

24-MAY-85 11:37

PAGE 6

SEQ 0006
128
129
130
131
132
133
134
135
136
137
138
139
140

141
142
143
144

145

146

4.0

STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES
SHOULD BE USED.
IF THE PROGRAM RESIDES ON A MASS STORAGE DEVICE SUCH AS
MAGTAPE OR DISK REFER TO THE XXDP USER'S GUIDE.
5.0

STARTING PROCEDURE:

S.1

STARTING ADDRESSES

200.INPUT PARAMETERS AND ALLOWS TEST SELECTION

5.2

STARTING SEQUENCES

5.2.1

STARTING SEQUENCE UNDER XXDP(CHAIN),APT OR ACT

147
148
149

150
151
152
153
154
155
156
157
158
159
160

LOADING PROCEDURE:

START AT ADDRESS 200 ONLY.

5.2.2

(DEFAULT PARAMETERS)

NORMAL STARTING SEQUENCE
LOAD PROGRAM ACCORDING TO LOADING PROCEDURE

LOAD AND START ADDRESS 200
INPUT ACTUAL PARAMETERS AND SELECT TEST

5.3

RESTART ADDRESSES

RESTART ADDRESSES ARE THE SAME AS STARTING ADDRESSES

-MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 7

SEQ 0007
162

6.0

164

163
165
166
167
168
169

17C
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196

PRELIMIMARY OPERATIONS:
DEVICE ADDRESSES AND VECTOR ADDRESSES
THE STANDARD DEVICE ADDRESS IS 177420.
THE STANDARD DEVICE VECTOR ADDRESS IS 350.
THE STANDARD DEVICE PRIORITY LEVEL IS 7.

DEVICE/OPTION SETUP
INSURE THAT THE DTO7(S) ARE IN PROGRAMMABLE MODE.

PRELIMINARY PROGRAMS NEEDED
NONE
OPERATIONAL PROCEDURES:
NORMAL OPERATION WOULD BE TO LOAD THIS PROGRAM,
INSURE THAT ALL DTO7 PORTS ARE IN THE PROGRAMMABLE MODE,
RUN THE MONOPORT TEST ON EACH PORT IN THE SYSTEM,THEN
RUN THE MULTIPORT TEST ON ALL PORTS IN THE SYSTEM.
IF YOU HAVE A MANUAL CONTROL PANEL, RUN THE MANUAL INTER:@:T%ggTTEST'IF YOU HAVE UBE ON THE SWITCH BUS,.RUN THE

THE PARAMETER INPUT ROUTINE IS TO BE USED WHENEVER YOU WISH TO INPUT OR CHANGE DIAGNOSTIC PARAMETERS
INCLUDING DEVICE ADDRESS,VECTOR ADDRESS,INTERRUPT LEVEL,
NUMBER AND I.D.#S OF OTHER PORTS TO BE TESTED.
THE PARAMETER INPUT ROUTINE WILL BE ENTERED AUTOMATICALY

FROM THE MULTIPORT TEST IF NO PARAMETERS HAVE BEEN ENTERED

PREVIOUSLY.
WHEN USING THE MULTIPORT SECTION, AFTER PARAMETERS
HAVE BEEN ENTERED OR WHEN RESTARTING THE TEST, THE CPU
WITH THE LOWEST NUMBERED DTO7 PORT MUST BE STARTED LAST.

«MAIN.

MACRO M120C

24-MAY-85 11:37

PAGE 8

SEQ 0008
198

8.0

ERRORS:

8.1

MONOPORT SECTION ERRORS

ALL ERRORS IN THE MONOPORT SECTION HAVE THE GENERAL FORMAT;
ERROR PC,TEST#,GO0D DATA,BAD DATA,BAD DATA ADDRESS.
CONTROL
OF ERROR PRINTOUT AND LOOPING IS BY THE SWITCH REGISTER OPTIONS.
8.2

MULTIPORT SECTION ERRORS
ERRORS IN THE MULTIPORT SECTION PRINT AN ERROR ID.#, A MESSAGE
BRIEFLY DESCRIBING THE ERROR AND THE CSR CONTENTS.
ALL ERRORS
IN THIS SECTION ARE FATAL AND, THEREFORE, THE TEST MUST BE RESTARTED
ON ERROR.
THERE IS NO ERROR LOOPING AND ERROR PRINTOUT IS AUTOMATIC.
ERROR ID.#S 1A THRU SA IDENTIFY ERRORS IN THE DTO7 MODE
MULTIPORT TEST AND ERROR ID.#S 6 THRU 16 IDENTIFY ERRORS IN THE
DTO3 MODE MULTIPORT TEST.

8.3

MANUAL INTERVENTION SECTION ERRORS
ERRORS IN THIS SECTION PRINT AN ERROR ID.#, A BRIEF MESSAGE DESCRIBING THE ERROR, AND THE CSR CONTENTS AT ERROR TIME.
THERE IS
NO ERRCR LOOPING AND ERROR PRINTOUT IS AUTOMATIC; HOWEVER,
PRESSING CONTINUE, AFTER ERROR, WILL CAUSE THE FAILING SUBTEST TO
REPEAT EXECUTION.

8.4

NPR TEST

Eg:g:SPEN THIS TEST PRINT A BRIEF MESSAGE DESCRIBING THE ERROR AND
8.5

MISCELLANEOUS ERRORS
THERE ARE TWO SUBROUTINES USED TO DETERMINE DEVICE MODE AND DEVICE
TIMING.
ERRORS IN THESE ROUTINES ARE SELF-EXPLANATORY AND ARE
FATAL.
THESE ERRORS USUALLY OCCUR BECAUSE ONE OF THE PORTS
WAS LEFT IN THE MANUAL MODE.

-MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 9

SEQ 0009
237
238

239
240
241
242
243
Sed
245
246
247
248
249

250
251
252
253
254
255
256
257
258

9.0

TEST DESCRIPTIONS:

9.1

MONOPORT TESTS

TEST1.

TEST POST-RESET BIT PATTERN IN CSR.
THIS TEST CHECKS THE CONTROL STATUS REGISTER CONTENTS
SFEE:ESESET TO INSURE THAT ANY RESET-CLEARABLE BITS ARE

TEST2.

TEST READ/WRITE BITS IN CSR.

TEST1S.

IN THE PARAMETER BLOCK.
RESET HOLD (HLD) TEST
THIS TEST CHECKS THAT THE HLD BIT WILL HOLD THE

THIS TEST CHECKS THAT BITS O AND 6 CAN BE SET AND CLEARED
IN THE CSR.
TEST3.
TEST BYTE ACCESS IN CSR.
THIS TEST CHECKS THE BYTE ACCESS CAPABILITY OF THE CSR.
TEST4.
CONNECT TEST WITHOUT INTERUPT ENABLE.
THIS TEST VERIFIES THE PROPER OPERATION OF THE CONNECT
PROCESS WITH INTERUPTS DISABLED.
TESTS.
RELEASE TEST WITHOUT INTERUPT ENABLE.
THIS TEST VERIFIES THE PROPER OPERATION OF THE RELEASE
PROCESS WITH INTERUPTS DISABLED.
TEST6.
CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE.
THIS TEST CHECKS THE PROPER OPERATION OF THE DEVICE
WHEN THE CONNECTION PROCESS CANNOT CONNECT TO THE SHARED
BUS WITHOUT INTERUPTS ENABLED.
TEST?.
RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE.
THIS TEST CHECKS THAT THE DEVICE WILL RELEASE THE SHARED
BUS WHEN UNIBUS MASTERSHIP CANNOT BE OBTAINED AND
INTERUPTS ARE DISABLED.
TEST10. CONNECT TEST
EEESA;ES;'gERIFIES THE CONNECT PROCESS UNDER INTERUPT CONTROL.
TEST11.
THIS TEST VERIFIES THE RELEASE PROCESS UNDER INTERUPT CONTROL.
TEST12. CONNECT FAILURE TEST
THIS TEST VERIFIES THE PROPER OPERATION OF THE CONNECT
PROCESS,UNDER INTERUPT CONTROL ,WHEN THE DEVICE CANNOT
OBTAIN BUS MASTERSHIP.
TEST13. RELEASE TEST WITHOUT BUS MASTERSHIP
THIS TEST VERIFIES THE THE PROPER OPERATION OF THE RELEASE
PROCESS, UNDER INTERUPT CONTROL, WHEN THE DEVICE CANNOT
OBTAIN BUS MASTERSHIP.
TEST14, RESET (RST) TEST
THIS TEST CHECKS THE OPERATION OF THE DEVICE RESET BIT

(RST) IF AN EXTERNAL DEVICE REGISTER HAS BEEN INSERTED

TEST16.

BUS DURING AND AFTER A BUS RESET.

SHARED

HI-SPEED SWITCHING TEST
THIS TEST CAUSES THE DEVICE TO CONNECT AND DISCONNECT
AT HIGH SPEED 1000 TIMES WHILE CHECKING FOR ERRORS.
TEST17. RESET-IN-NEUTRAL TEST
THIS TEST CHECKS FOR RESET-IN-NEUTRAL IF AN EXTERNAL
DEVICE REGISTER IS PRESENT AND PRINTS OUT THE RESULT ON
THE FIRST PASS.

.MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 10

SEQ 0010
9.2

MULTIPORT TEST
THE MULTIPORT TEST IS ACTUALLY TWO SEPARATE TESTS: ONE FOR
THE DTO7 IN DTO3 MODE AND ONE FOR THE DTO7 IN DTO7 MODE.
IN DTO7
MODE THE PORT I.D.#S OF ALL THE PORTS TO BE TESTED ARE ARRANGED
IN ASCENDING NUMERICAL ORDER THEN A MENU OF FUNCTIONS TO BE
PERFORMED IS CREATED.
EACH DTO7 PORT WILL HAVE A TURN AS MASTER
WHILE THE OTHER PORTS ARE SLAVES.
THERE ARE TWO MASTER FUNCTIONS
AND THREE SLAVE FUNCTIONS; THESE BEING: FUNCTION1 (MASTER) DETECT
SELECTED SLAVE REQUEST AND REJECT IT, FUNCTION2 (MASTER) DETECT
SELECTED SLAVE REQUEST AND IGNORE IT, FUNCTION3 (SLAVE) SEND REQUEST
AND EXPECT REJECTION, FUNCTION4 (SLAVE) SEND REQUEST AND EXPECT
CONNECTION,AND FUNCTIONS (SLAVE) OBSERVE REQUEST INDICATORS.
IN DTO3 MODE BOTH DTO7S HAVE A TURN AS MASTER THEN AS SLAVE.
THERE ARE TWO MASTER FUNCTIONS AND TWO SLAVE FUNCTIONS;
THESE BEING: 1. RECEIVE REQUEST AND RELEASE THE SHARED BUS,
2. SEND REQUEST AND EXPECT REJECTION, 3. SEND REQUEST AND EXPECT
CONNECTION, AND 4. DETECT REQUEST AND REJECT IT.

9.3

MANUAL INTERVENTION TEST
THE MANUAL INTERVENTION TEST VERIFIES THE PROPER OPERATION
OF CERTAIN DEVICE FEATURES THAT REQUIRE MANUAL ASSISTANCE TO TEST.
THIS TEST ALSO REQUIRES THE OPTIONAL MANUAL CONTROL PANEL FOR
PROPER OPERATION.
THE FEATURES TESTED ARE: MANUAL MODE,
PORT POWER OK AND SWITCHED BUS POWER FAIL.

9.4

NPR TEST
THE NPR TEST CHECKS OUT THE NPR LINE ON THE SWITCH BUS.

.MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 11

SEQ 0011
322

323
324
325
326
333: 000000

.NLIST MC,MD,CND,ME
.LIST
SEQ,LOC,BIN
: .ENABL ABS
.ASECT

329

-MCALL

330
331
ggg

334

.MCALL
-MCALL
.MCALL

335
ggg

167400
000001

$SWR=167400
$TN=1

339

177420

ABASE=177420

340
341
342
343
344

160350
001124
001126
000001
001122

AVECT1=160350
GOOD=$GDDAT
BAD=$BDDAT
REQ=BITO
BADA=$BDADR

.HEADER, .SETUP,

.$TRAP,.$RDOCT,.KT11,.$RAND

TYPNAM,TYPOCS, . $POWER, . $40CAT, . $TYPOCT, .EQUAT, . $CMTAG
.SWRHI,.$EOP,.$ERROR, . $ERRTYP, . $ TYPDEC, . $SCOPE
.$READ,.S$TYPE,.$ACT11,.$APTHOR,.$APTBLS, . $APTYPE

;:BASE DTO7 BUS ADDRESS EQUATE

;BASE DTO7 PRIORITY & VECTOR ADDRESS EQUATE

SRR

.MAIN.
MACRO M1200
ACT11 HOOKS

349

24-MAY-85 11:37

001000

PAGE 12

SEQ 0012
.=1000

.MAIN.
MACRO M1200
APT MAILBOX-ETABLE

351

001206

24-MAY-85 11:37

001206
001210
001212
001214
001216
001220
001222
001224

000000
000000
000000
000000
000000
000000
000000
000000

001226
001227
001230
001232
001234

000
000
000000
000000
000000

001226

—

.EVEN
$MAIL :

SEQ 0013

MSGTY:
FATAL:
STESTN:
SPASS:
$DEVCT:
SUNIT:
$MSGAD:
MSGLG:

.MORD
.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
.MORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

SENV:
SENVM:
SWREG:
SUSWR:
$CPUOP:
i

.BYTE
.BYTE
.MORD
.WORD
.MORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

$ETABLE::

001240

000000
000
000
000000
000
000
000000
000
000
000000
160350
000000
177420
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

001312
001314
001316

000000
000000
000000

001310

001320

000000

;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER
;;PASS COUNT
;;DEVICE COUNT
;;I/0 UNIT NUMBER
;;MESSAGE ADDRESS
;;MESSAGE LENGTH

+sAPT_ENVIRONMENT TABLE

;;ENVIRONMENT BYTE
;;ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;;USER SWITCHES
;;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

11/04-01,11/05202, 11/20+03,11/40+04, 11/45+05

BIT 10=REAL TIME CLOCK

;e
;e
$MAMS1:
SNTYPL:
i
i*
x
T
SMADRL:

.BYTE
.BYTE

AMAMS1
AMTYPL

.MORD

AMADRL

BIT 9=FLOATING POINT PROCESSOR
BIT 8<MEMORY MANAGEMENT
;;HIGH ADDRESS.M.S. BYTE
;;MEM. TYPE,BLKe1
MEM.TYPE BYTE
-(HIGM BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0S=003
;:HIGH ADDRESS,BLK®1

$MAMS2:
SNTYP2:
$MADR2:
$MAMS3:
SMTYPS:
SMADR3:
$MAMSA:
SMTYP4:
SMADR4:
VECT1:
$VECT2:
BASE:
SDEVM:
SCOW1:
SCOW2:
$DDWO:
$DDW1:
$DDN2:
SODW3:
$ODNA:
SDDMS:
$DDN6:

.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.MORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.MORD
.WORD
.MORD

AMAMS2
AMTYP2
AMADR2
AMAMSS
AMTYP3
AMADRS
AMAMSA
AMTYPA
AMADR®
AVECTL
AVECT2
ABASE
ADEVM
ACDWi
ACDW2
ADDWO
ADDWL
ADDM2
ADDW3
ADDWA
ADDWS
ADDW6

;;HIGH ADDRESS,M.S. BYTE
;;MEM.TYPE,BLK#2
;;MEM.LAST ADDRESS,BLK#2
;;HIGH ADDRESS,M.S.BYTE
;;MEM.TYPE,BLK#3
;;MEM.LAST ADDRESS,BLK®3
;;HIGH ADDRESS,M.S.BYTE
;;MEM.TYPE,CLKM
;;MEM.LAST ADDRESS,BLK®4
;;INTERRUPT VECTOR®1,8US PRIORITY®1
;;INTERRUPT VECTOR#2BUS PRIORITY#2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
;;CONTROLLER DESCRIPTION WORD®1
;;CONTROLLER DESCRIPTION WORD®2
;;DEVICE DESCRIPTOR WORD®O
;;DEVICE DESCRIPTOR WORD#1
3;DEVICE DESCRIPTOR WORD#2
;;DEVICE DESCRIPTOR WORD#3
;;DEVICE DESCRIPTOR WORD®4
;;DEVICE DESCRIPTOR WORD®S
;3DEVICE DESCRIPTOR WORD#6

.WORD
.WORD
.WORD

ADDM®
ADDW9
ADDW10

;;DEVICE DESCRIPTOR WORD#®
;;DEVICE DESCRIPTOR WORD#9
;;DEVICE DESCRIPTOR WORD®10

001242
001243
001244
001246
001247
001250
001252
001253
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306

+1APT MAILBOX

11/70=06,PDQ=07,Q=10

000
000

——

PAGE 13

001236
001237

SDDW7:

$DDW8:
$0DW9:
$00W10:

.MORD

$00M11: .MORD

ADDW?

ADDW11

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF

+sDEVICE DESCRIPTOR WORD#7

;;DEVICE DESCRIPTOR WORD®11

“TYPE*

ABOVE

JMAIN.
MACRO M1200
APT MAILBOX-ETABLE

001322
001324
001326
001330
001332

24-MAY-85 11:37

000000
000000
000000
000000

PAGE 13-1
SEQ 0014
sDOMW12:
$ODW13:
$ODW14:

$DDW1S:
SETEND:

.WORD
.WORD
.WORD
.WORD

ADDW12
ADDW13
ADDW14
ADDW15

1 sDEVICE
+sDEVICE
+sDEVICE
+ sDEVICE

DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR

WORD#12
WORD#13
WORD#14
WORD®15

MACRO M1200
.MAIN,
ERROR POINTER TABLE

24-MAY-85 11:357

PAGE 14

SEQ 0015

.SBTTL

ERROR POINTER TABLE

18THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
+sLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEN IN THE TABLE IS PERTINENT.

:1*NOTEL:
:1&NOTE2:

001332
352
353 001332
354 001334
355 001336
356 001340
357
358 001342
359 001344
360 001346
361 001350

363 001352
364 001354
365 0C1356
001360
367
001362
369 001364
370 001366
371 001370

372
373 001372
374 001374

G
is
i
i

EM
DM

$ERRTB:

033332
034563
035134
000000
033400
034563
035134
000000

033437
034563
035134
000000
033473
034563
035134

;ERRORQL

;:ERROR®2

001376
001400

001402
379 001404
001406
001410

033605
034563
035134
000000

001412
001414
001416
001420

033630
034563
035134
000000

001422
001424
001426
001430

033662
034563
035134
000000

001432
001434
001436
001440

033710
034563
035134
000000

::POINTS TO THE DATA
::POINTS TO THE DATA FORMAT

S:{

;POST-RESET CONDITIONS NOT MET IN CSR

DT1
0
SHE

EM4
DH1
DT1
0

;ERROR IN CONNECT PROCESS

g:s
1
DT1
0

;INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED

EM6
DH1
DT1
0

;COULD NOT CONNECT

EM7
DH1
DT1
0

;ERROR IN RELEASE PROCESS

;ERROR®S

;ERROR&7

DT1
0
;:BYTE ACCESS FAILURE IN CSR

;ERROR®4

;ERROR®6

;READ/WRITE BIT FAILURE IN CSR

EM3
DH1
DT1
0

000000

033525
034563
035134
000000

:sPOINTS TO THE ERROR MESSAGE
;sPOINTS TO THE DATA KEADER

0T
DF

;ERROR®3

IF SITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

;ERROR#10

EM10
DH1
DT1
0
;ERROR®11
EM11
DH1
DT1
0

;ERROR®12

;NO INTERRUPT DETECTED

;INTERRUPT AT WRONG PRIORITY

.MAIN.
MACRO M1200
ERROR POINTER TABLE
398 001442

399 001444

400 001446
401 001450
402
403 001452
404 001454
405 001456
406 001460
407
408 001462
409 001464
410 001466
411 001470
412
413 001472
414 001474
415 001476

416
417
418
419
420
421
422
423

033744
034563
035134

000000

033777
034563
035134
000000
034041
034563
035134
000000

001500

034120
034563
035134
000000

001502
001504
001506
001510

034154
034563
035134
000000

001512

034175
034626
035150
000000

424 001514

425 001516
426 001520

427

428 001522
429 001524
430 001526
431 001530
432
433 001532
434 001534
435 001536
436 001540
437
438 001542
439 001544
440 001546
441 001550
442
443 001552
444 001554
445 001556
446 001560
448
449
450
451
452
453
454

24-MAY-8S 11:37

034242
034563
035134
000000
034311
034677
035164
000000
034342
034760
035150
000000

027252
035052
035176
000000

001562
001564
001566
001570

027302
035052
035176
000000

001572
001574

027334
035065

PAGE 14-1

SEQ 0016
EM12
DH1
oT1
0

sCONNECT CONDITION FAILURE

EM13
DH1
DT1
0

;ERROR IN CONNECT FAILURE PROCESS

EM14
DH1
oT1
0

;ERROR IN RELEASE TEST W/0 BUSS MASTERSHIP

EMIS
DH1
DT1
0

;RELEASE CONDITIONS NOT MET

EM16
DH1
DTl
0

:TMO BIT NOT SET

:ERROR®13

;:ERROR®14

;:ERROR®15

;:ERROR®16

;ERROR&17

EM17
DH2
D12
0
;ERROR#20
EM20
DH1
0Tl
0

;ERROR%21

EM21
DH3
DT3
0

;:ERROR®22

EM22
DH4
T2
0
;:ERROR+23
EM23
DH5
DT4
0
;ERROR +24
EM24
DH5
DT4
0
;:ERROR+25
EM25
DH6

;COULDN'T READ/WRITE EXTERNAL DEVICE

;RESET HOLD (#LD) DIDN'T DISABLE RESET

;RESET (RST) DIDN'T WORK

;RESET-IN-NEUTRAL OPERATION HAS CHANGED

;ERROR:NPR DATO NOT DONE

;ERROR:NPR DID NOT SET RDY

;ERROR:UBE DID NOT INTERRUPT WHEN NPR FINISHED

.MAIN.
MACRO M1200
ERROR POINTER TABLE

455 001576
456 001600
457
458 001602
459 001604
460 001606
461 001610
462
463 001612
464 001614
465 001616
466 001620

24-MAY-85 11:37

035202
000000
027412
035052
035176
000000
027504
035052
035176
000000

PACE 14-2

SEQ 0017
DTS
0
:ERROR+26
EM26
DHS
0T4
0
:ERROR+27
EM27
DH5
DT4
0

:TWO LOC WRITTEN WHEN ONE NPR AND INT ON DONE ENABLE

;ERROR:DEVICE DOESN'T EXIST ON SWITCH BUS

24-MAY-85 11:37

468

469

488
489 001634
490 001636
491 001640
492 0C1642
493 001644
494, 001646
495 001650
496 001652
497 001654
498 001656
499 001660
500 001662
501 001664
502 001666
503 001670
504 001672
505 001674
506 001676
507 001720
508 001722
509 001724
510 001726
511 001730
512 001732
513 001744
514 001746
515 001750
516 001752
517 001754
518 001756
519 001760
520

177420

SEQ 0018

ws w0 v

470
471 001622
472
473
474
475 001624
476 001626
477
478
479
480 001630
481
482
483
484
485
486 001632
487

PAGE 15

(Yeor o we
w
o

.MAIN.
MACRO M1200
ERROR POINTER TABLE

000350
000352

DTO7 BUS REGISTER ADDRESS POINTERS

177420

;COMMAND/STATUS REGISTER

DTO07 VECTOR ADDRESS POINTERS

VEC2:

350
352

:NORMAL INTERRUPT VECTOR
:

DTO7 DEVICE LEVEL
000340

PRI:
:

COMMAND STATUS REGISTER BIT ASSIGNMENTS

H
H

000000

177777
177777
177777
177777
000000
177777
177777
177777
177777
177777

001660
001662

177777
000000

000000
000000
000000
000000
000000
000000
000000
000001

177777
000000

COMMON PROGRAM LOCATION(S)

TSTNUM: 0
H

000000
000000
000000
000000
177777

340

bttt

ttadedt L LT T T T

;PROGRAM PARAMETER BLOCK

DT03:
DPEVAD:
DEVRMW:
DEVRC:
PORTNO:
EXPRT1:
EXPRT2:

0000
0000
0000
(000
-1
-1
-1

EXPRT3: -1
EXPEND: -1
EXPTCT: O
SEQ:
-1
-1
-1

SEQPTR:

NEXENT:

MENU:

SEQ

SEQ+2

.BLKW
9.
-1
CURFUN: O
CURID:
©
CYCLE:
O
CoviD:
O
TEMP1:
.BLKW S
ONOFF:
O
TIMA:
0
TIMB:
0
KONST:
O
DEVCON: 1
TRIN:
-1
USEPAR: 0

;CONTAINS TEST NUMBER ON ERROR
LT

R Y

SISy

;DT03/DTO07 MODE INDIACATER,0=DTO7
;EXTERNAL DEVICE REGISTER ADDRESS
;READ/WRITE BITS IN ABOVE
+MASK OF RESET CLEARABLE BITS IN ABOVE
;THIS PORT'S ID#
;EXTERNAL PORT ID (-1=NO PORT)
:
”
»
»

:
"
"
s
;TABLE TERMINATOR
;# OF EXTERNAL PORTS
; SEQUENCER

;SEQUENCER POINTER

sNEXT ENTRY POINTER

;MENU STORAGE
;MENU TERMINATOR
;CURRANT FUNCTION
;CURRANT SLAVE ID
:SUBPASS COUNT
;CONVERTED SLAVE ID
; TEMPORARY STORAGE
;sMASTER/SLAVE INDIACATOR

;RESET-IN-NEUTRAL CONDITION FLAG
;TEST RESET IN NEUTRAL FLAG
;USING PARIN FLAG 0=NOT USING

.MAIN.
MACRO M1200
PROGRAM START

24-MAY-8S 11:37

PAGE 16
SEQ 0019

3523

524 001762

START:
.SBTTL

001762
001766
001770
001774
001776

012706
005026
022706
001374
012706

001100

002002
002010
002016
002024
002032
002040
002046
002054
002062
002070
002074
002100
002106
002114

012737
012737
012737
012737
012737
012737
012737
012737
016767
005067
005067
112767
012767
012767

032446
000340
031762
000340
033146
000340
032740
000340
017276
177076
177074
000001
002106
002114

002122
002126
002134
002142
002150
002156

013746
012737
012767
012767
022777
001012

002160
002162
002166
002170
002176
002204
002210
002214
002222
gggzg;
2
525 002232

9000403
012716
000002
012767
012767
012637
005067
132767
001403
012767

526 002240
527 002242
528 002246
529 002252
Sgg 002254

012737
005000
016700
042700
000300
010067

001140

177007
176772
176766

64:

000176
000174
000004
177000
000200

177005

001230

176706

026222

000004

176742
176736

6S$:
664%:

=
67%:
SETUP1:

177010
000777
177350

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOVB
MOV
MOV

#$SCOPE, 8¢IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE
#340,80I0TVEC+2 ;;LEVEL 7
@$ERROR, B#EMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE
#340,89EMTVEC+2 ;;LEVEL 7
#$TRAP,84TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#340,80TRAPVEC+2;LEVEL 7
@$PWRDN, 80PWRVEC ; ;POWER FAILURE VECTOR
€340, 94PWRVEC+2 ;;LEVEL 7
$ENDCT,$EOPCT
;;SETUP END-OF -PROGRAM COUNTER
$TIMES
+ s INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
:sCLEAR THE ESCAPE ON ERROR ADDRESS
@1, $ERMAX
:sALLOW ONE ERROR PER TEST
€. ,3LPADR
+ s INITIALIZE THE LOOP ADDRESS FOR SCOPE
@.,$LPERR
i ;SETUP THE ERROR LOOP ADDRESS

MOV
MOV
MOV
MOV
CMP
BNE

8¢ERRVEC, -(SP)
9644 ,09ERRVEC
#DSUR, SWR
®DDISP ,DISPLAY
#-1,8SWR
66%

;;SAVE ERROR VECTOR
:3SET UP ERROR VECTOR
:sSETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
:sBRANCH IF NO TIMEOUT TRAP OCCURRED

BR
MOV
RTI
MOV
MOV
MOV
CLR
BITB
BEQ
MOV

654
#654,(SP)

: :BRANCH IF NO TIMEOUT
:3SET UP FOR TRAP RETURN

#SWREG, SWR
:sPOINT TO SOFTWARE SWR
#DISPREG,DISPLAY
(SP)+,80ERRVEC
;;RESTORE ERROR VECTOR
$PASS
;sCLEAR PASS COUNT
QAPTSIZE,$ENVM
;;TEST USER SIZE UNDER APT
674%
:s YES,USE NON-APT SWITCH
#$SWREG, SWR
:sNO,USE APT SWITCH REGISTER

MOV
CLR
MOV
BIC
SWAB
MOV

#TRAP4 ,90ERRVEC
;POINT TO TRAP ROUTINE
RO
$VECT1,RO
;GET PRIORITY LEVEL
#777,R0
;CLEAR UNWANTED BITS
RO
RO,PRI
;SAVE DEVICE LEVEL

:sAND

THE HARDWARE SWR IS NOT = -1

ggg

g;g

#3CMTAG,R6
+3FIRST LOCATION TO BE CLEARED
(R6)+
s sCLEAR MEMORY LOCATION
#SWR ,R6 ;;DONE?
.6
+:LOOP BACK IF NO
@STACK,SP
+:SETUP THE STACK POINTER

:3SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
+:EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER.

000004
176776
176772
176762

002170

MOV
CLR
CMP
BNE
MOV

s s INITIALIZE A FEW VECTORS

000020
000022
000030
000032
000034
000036
000024
000026
017266

g;g 002260

INITIALIZE THE COMMON TAGS

+:CLEAR THE COMMON TAGS ($CMTAG) AREA

001100

000004
002162
177570
177570
177777

.SBTTL PROGRAM START

016767

176776

177334

NOW SETUP BUS ADDRESS VALUES

SETUP2: MOV

:
3

$BASE,CSR

:STORE

NOW SETUP VECTOR ADDRESSES

BUS ADDRESS

.MAIN.

MACRO M1200

24-MAY-85 11:37

INITIALIZE THE COMMON TAGS
538 002266
539 002272
540 002276
541 002302
542 002304
543 002310
544 002314
545 002316
546 002322

012700
016701
042701
010120
062701
022700
001372
005737
001052

002324
002330
002332
002340
002342

005227
001047
022737
001443
104401

002346
002352
002354
002362
002364
002372
002374
0C2376
gggzgg

005737
001012
126727
001406
026727
001005
104406
000403
112767

002406

000420

547

002450

548 002450
549 002454
550 002456
551 002464
552 002472
553 002476
554 002500
555 002502
556 002504
557 002506
558 002512
559 002520
560 002526
561 002532
562 002540
563 002546
564 002554
565 002562
566 002566
567 002574
568 002600
569 002606
570 002612
571 002620
572 002626
573 002632
574 002636

005767
001024
012777
012777
005077
000005
000240
000240
000240
005067
017767
042767
012706
012737
012737
012737
012737
000177
012767
000167
012767
000167
012767
012767
005067
000167
012767

SEQ 0020

001624
176760
177000

MOV
MOV
BIC
SETUP3: MOV
ADD
cMP
BNE
TST
BNE

000002
001630

000042

002410

.SBTTL

000042

176646

000001

176550

000176

000001

176526

177240
177104
173777
001100
000002
000002
000002
000002
000104
002676
177162
007556
177150
000001
024534
023352
177124
002650

23:

1:658:
64%:

177304

022600
000340
177124

#VECO,RO
$VECT1,R1
#177000,R1
R1,(RO).
#2,R1
OVEC2+2,R0
SETUP3
8042
13

+SETUP VECTOR POINTER
:GET BASE VECTOR ADDR
sCLEAR UNWANTED BITS
:PUT ADDRS
:INCR.TO NEXT LOC.
;DONE ALL LOCATIONS?
:BR,IF NOT DONE
s TEST CHAIN MODE UNDER XXDP
:BR,IF CHAIN MODE

.SBTTL TYPE PROGRAM NAME
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777

021416

PAGE 16-1

1%:

177140
177134

177232
177224

000512
000516
000522
000526
000076
000064

177140
000044
000026

INC
e-1
:sFIRST TIME?
BNE
644
: sBRANCH IF NO
CMP
@$ENDAD, 8042
:3ACT-117
BEQ
644
: sBRANCH IF YES
TYPE
654
i3 TYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SHlTCH REGISTER
TST
8042
i sARE WE RUNNING UNDER XXDP/ACT?
BNE
664
: sBRANCH IF YES
CMPB
$SENV, 91
i sARE WE RUNNING UNDER APT?
BEQ
66$
: sBRANCH IF YES
CHP
SWR, #SWREG
+ s SOFTWARE SWITCH REG SELECTED?
BNE
674
: :BRANCH IF NO
GTSWR
:sGET SOFT-SWR SETTINGS
BR
674
Move
@1,$AUTOB
+3SET AUTO-MODE INDICATOR

.ASCIZ

TST
BNE
MOV
MOV
CLR
RESET
NOP
NOP
NOP
CLR
MOV
BIC
RESTRT: MOV
MOV
MOV
MOV
MOV
JMP
ROUT1:
MOV
JMP
ROUT2:
MOV
JHP
ROUT3:
MOV
MOV
CLR
JMP
ROUT4:
MOV

644

:sGET OVER THE ASCIZ

USEPAR
RESTRT
#00PS, BVECO
#340,8VEC2
8CSR

;PARIN IN USE?
:BR=YES; SKIP OVER DEVICE ADDRESS DEPENDENT CODE
;LOAD UNEXPECTED INTERUPT RETURN
:SET PRIORITY 7 ON INTERUPT
;DETERMINE STATUS OF PWR OK BIT
;RESET THE BUSS

<CRLF>/MAINDEC-11-CRDTAC

DTO7 TEST/<CRLF>

KONST
8CSR ,KONST
:SAVE CSR
@173777,KONST
;MASK EVERYTHING EXCEPT PWR OK
@STACK,SP
;RESET STACK POINTER
02,80512
;PUT RTI IN UBE VECTORS
@2,80516
;:DITTO
92,80522
:DITTO
92,80526
:DITTO
SROUTE
;GO DO IT
OMONPRT,ROUTE
;SET UP FOR MONOPORT
START
@MULPRT,ROUTE
;SET UP FOR MULTIPORT
START
@1 ,USEPAR
:SET FLAG
@PARIN,ROUTE
;SET RETURN
PARFLG
;CLEAR PARAMETER FLAG
START
1% ,ROUTE
:SET UP RETURN

.MAIN.
MACRO M1200 24-MAY-85 11:37 PAGE 16-2
GET VALUE FOR SOFTWARE SWITCH REGISTER

575 002644
576 002650
577 002656
578 002662
579 002666
580 002672
581 002674

000167
012767
004767
004767
000167
002676
000000

177112
015056
020434
020066
012164

583 002676
584 002676
585 002702
586 002706
587 002710
588 002714
589 002720
590 002724
591 002730
592 002732
593 002736
594 002740
595 002744
596 002746
002752

004767
005767
100402
004767
004767
004767
005737
001053
005767
001046
005767
001422
104401
000416

023474
023276

0C3010
597 003010
598 003012
003012
003016
003046
599 003046
003052
600 V03054
601

016746
104402
004767

1¢:

ROUTE:
TEMP2:

021074
020034
020372
000042

MONPRT
:

1$:

176256
176670
002754

;:658:

64$:

000421

104401
000413

000014

003020

176572
016460

2$:

SEQ 0021

MOV
JSR
JSR
MONPRT

PC,DTIME
PC,DMODE

MANIN

+SET _UP FOR MANUAL INTERVENTION TEST
1GO GET DEVICE TIMING
;GO GET DEVICE MODE
iMAIN TEST DISPATCHER

JSR
TST
BMI
JSR
JSR
JSR
TST
BNE
TST
BNE
TST
BEQ
TYPE

PC,CNTLC
PARFLG
13
PC,GETADR
PC,DMODE
PC,O0TIME
8042
TST1
$PASS

.ASCIZ

<200>/THIS DTO7 IS IN DTO3 MODE./

TYPE

::67$:

.ASCIZ

3s:

MOV
TYPOC
JSR

66$:

START

@MANIN,ROUTE

+IS IT CONTROL C ?

:XXDP CHAINMODE OR APT/ACT?
:SKIP PRINTOUT IF ANYONE OF THE ABOVE
;0 PASSES?
;BR=NO
;WHAT MODE IS DEVICE?
:BR =DTO7 MODE
::s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

;GO START TESTS
i TYPE ASCIZ STRING

664
: ;GET OVER THE ASCIZ
<200>/THIS DTO7 IS PORT#® /
PORTNO, -(SP)
PC,WAIT10

i SAVE PORTNO FOR TYPEOUT
:3:G0 TYPE--OCTAL ASCIICALL DIGITS)
;WAIT ONE SECOND

.MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 17
SEQ 0022

603

.SBTTL

605

LRI

003060
003062
003070
607 003074
003102
609 003110
610 003116
611 003120
612 003122
613 003124
614 003132
615 003140
616 003146
617 003150
618 003152

;#TEST 1
000004
012767
004767
012767
012777
016767
000005
005200
001376
017767
016767
026767
001401
104001

000062
023302
000340

000101

176636

176102

TST1:

174674
176512
176006

1%:

176472
176464
175760

175774
175762

175760

2%:

SCOPE
MOV
JSR
MOV
MOV
MOV
RESET
INC
BNE
MOV
MOV
CMP
BEQ
ERROR+1

P Y

P YT

TEST POST-RESET BIT PATTERN IN CSR.IDX1
L

#50.,$TIMES
PC,CNTLC
#340,PSW
©101,8CSR
KONST, GOOD

RO
1s
8CSR,BAD
CSR,BADA
GOO0D,BAD
24

YTy,

:300 50. ITERATIONS

:IS IT CONTROL C?
;RISE PRIORITY
;SET SOME BITS
:STORE GOOD DATA
:INIT. BUS
:DELAY AWHILE

;STORE CONTENTS OF CSR AND
;ADDRESS
; COMPARE

;:BR IF 0K

;POST-RESET CONDITIONS NOT MET IN CSR
;GO TO NEXT TEST

.MAIN.
T2

MACRO M1200 24-MAY-85 11:37
PAGE 18
TEST READ/WRITE BITS IN CSR.IDX2

620

SEQ 0023

1188888580000

0 0000 R

+#TEST 2

003152
003154
003162

000004
012767
004767

003166
003174
003200
003206
003214
003222
003230
003236
003244
003252
003260
003262
003264
003272
003300
003306
003314

012767
005077
016767
062767
012767
016777
017767
042767
042767
026767
001401
104002
016767
062767
012767
Siel77
017767
042767
026767
001401
104002
016767
012767
016777
017767
026767
001401
104002

0C3322
003330
003336
003340
003342
003350
003356
003364
003372
003400
003402
003404

000062
023210

176010

000340
176422
176546
000001
003200
175676
176366
120600
000074
175646

174602

176462

000100
003264
175612
176302
120600
175570

176404
003342
175542
176232

175526

T1ST12:

175716
175710
175666
176372
175670
175662
175654
175646

1%:

175632
175624
175602
176306
175604
175576
175570

3s:

175554
175532
176236
175534
175526

4%:

S$:

bRkt kbbb bb bbb bbb bbb bbb bbb

kbbb kbbb bbb

TEST READ/WRITE BITS IN CSR.IDX2

SCOPE
MUV
JSR
MOV
CLR
MOV
ADD
MOV
MOV
MOV
8IC
BIC
CMP
BEQ
ERROR+2
MOV
ADD
MOV
MOV
MOV
BIC
CMP
BEQ
ERROR+2

MOV
MOV
MOV
MOV

#50.,$TIMES
PC,CNTLC

+3:00 50. ITERATIONS
:IS IT CONTROL C?

340 ,PSW
8CSR
KONST, GOOD
€1,G00D
#1$, SLPERR
GOO0D,8CSR
8CSR ,BAD
#120600,BAD
@74,BAD
GOO0D,BAD
3

;LOCKOUT INTERUPTS
:ZERO CSR
:STORE GOOD DATA

KONST, GOOD
€100,G00D
@3$, SLPERR
GOO0D,8CSR
8CSR,BAD
120600, BAD
EQOO.BAD
KONST, GOOD
944, SLPERR
GOOD,8CSR
8CSR,BAD
GOO0D,BAD

CMP
BEQ
S
ERROR+2

PP YT Y

YTy

:SET LOOP-ON-ERROR ADDRESS
:SET BIT PATTERN
:STORE CONTENTS OF CSR
sMASK THE CONNECT PROCESS INDIACATORS
:MASK RQO-3
: COMPARE
:BR IF OK
;READ/WRITE BIT FAILURE IN CSR
:STORE GOOD DATA
:SET LOOP-ON-ERROR ADDRESS
:SET BIT PATTERN
:STORE CONTENTS OF CSR
sMASK THE CONNECT PROCESS INDIACATORS
: COMPARE
:BR IF OK
;READ/WRITE BIT FAILURE IN CSR
;STORE GOOD DATA
:SET LOOP-ON-ERROR ADDRESS
:SET BIT PATTERN
:STORE CONTENTS OF CSR
; COMPARE
:BR IF OK
;READ/MWRITE BIT FAILURE IN CSR
;G0 TO NEXT TEST

.MAIN.
T2

MACRC M1200 24-MAY-85 11:37
PAGE 19
TEST READ/WRITE BITS IN CSR.IDX2

653
654

SEQ 0024
IR

+¢TEST 3
003404
003406
003414

000004
012767
004767

003420 - 005077
003424 016700
003430
112710
003434
vl6767
003442
062767
003450
011067
003454
026767
003462
001401
003464
104003
003466
005077
003472
016767
003500
112760
003506
011067
003512
026767
003520
001401
003522
104003
0C3524

000012

022756

176176
176172
020376
176312
000100
175452
175444

176130
176254

000377

175414
175406

175556

Py P

Yy YT

TEST OF BYTE ACCESS IN CSR.IDX3

L T

TST3:

SCOPE
MOV
JSR

10, ,$TIMES
PC,CNTLC

:300 10. ITERATIONS
+IS IT CONTRL C?

8CSR
CSR,RO

:CLEAR CONTENTS OF CSR
:STORE ADDRESS OF CSR
sTRY TO LOAD LOW ORDER BYTE
;STORE GOOD DATA

8RO, BAD
GO0D,BAD
24

:STORE BAD DATA
;sCOMPARE
:BR IF OK
;LOW BYTE ACCESS FAILURE IN CSR
;CLEAR CSR
:STORE GOOD DATA (PWR 0OK)

CLR
MOV
Move
MOV

175462
175454

175444

175424
000001

2%:

175406
3s:

ADD
MOV
CMP
BEQ
ERROR+3
CLR
MOV
MOve
MOV
CcMP
BEQ
ERROR+3

376 ,8R0
KONST, GOOD
#100,G00D

8CSR
KONST, GOOD
€377,1(R0O)
8RO, BAD
GO0D,BAD
34

; TRY LOADING HI ORDER BYTE OF CSR

;:STORE CONTENTS OF CSR
; COMPARE
18R IF 0K
;HI-BYTE ACCESS FAILURE IN CSR
;GO TO NEXT TEST

.MAIN.
T3

MACRO M1200 24-MAY-85 11:37 PAGE 20
TEST OF BYTE ACCESS IN CSR.IDX3

675

676

679 003540
680 003542
681 003550
682 003554
683 003562
684 003570
685 003576
686 003604
687 003610

005000
012767
005077
012777
012767
016767
062767
005767
001003

689 003620
690 003626
691 003634
692 003642
693 003650

012777
017767
042767
026767
001403

695 003654

001364

697 003660
698 003666
699 003674

012767
016767
062767

000000
176060
020201

174110
175230
175222

701 003704
702 003712
703 003720
704 003722
705 003724
706 003726
707 003730
708 003734
709 003736
003736
003740

017767
026767
001403
005200
001367
104004
005077
000406

175712
175206

175214
175206

012600
012600

711 003750

104005

062767

700 003702 005000

710 003742 017767

712 003752
713

000012
022636

175436

000000
176046
003736
000340
176156
020001
176024

174226

000400

000001
175770
000074
175256

TST4:

012777

€10. ,$TIMES
PC,CNTLC

+300 10. ITERATIONS
:IS IT CONTROL
C?

CLR
MOV
CLR
MOV
MOV
MOV
ADD
TST
BNE

RO
€0,PSH
8CSR
#84,8VECO
#340,PSW
KONST, GOOD
920001 ,G000
0T03
11%

+SET DELAY TIMER
sLOWER PRIORITY
;CLEAR CSR
+SET RETURN
sRISE PRIORITY
:STORE GOOD DATA (SWB ACT,PWR OK,REQ)
:DTO3 MODE?
s8R _IF DTO3

MOV
MOV
BIC
CcMP
BEQ

OREQ,8CSR
8CSR,BAD
#74,BAD
GO0D,BAD
54

+SET _REQ (BITO)
1STORE CONTENTS OF CSR
sMASK RQO-3
s COMPARE
i8R IF OK

BNE

:BR_IF NOT DONE

S$:

MOV
MOV
ADD

64:

CLR

#0,PSW
KONST, GOOD
920201 ,G00D

MOV
8CSR,BAD
CMP
GOO0D,BAD
BEQ
74
INC
RO
BNE
6%
ERROR+4
CLR
8CSR
BR
94

sRESET DELAY

1STORE CONTENTS OF CSR
1 COMPARE
iBR IF OK
sDELAY
1BR IF NOT DONE
:CON(BIT7) NOT SET
sCLEAR CSR AND DISCONNECT
sEXIT

MOV
MOV

(SP)+,RO
(SP)+,RO

#3POP STACK INTO RO
+3POP STACK INTO RO

1%:

176042
174206
175326
175320
175304

175774
175272
175264
175256

114:
2%:

ADD

INC

175666

74:
8s:

175654
022600

175156
175644

SCOPE
MOV
JSR

005200

696 003656 104004

CONNECT TEST WITHOUT INTERUPT ENABLE.IDX4

40004400044804 000000808488 880004888044848040880080

PI0RS040E
000000400E0
2444 40004084
040
488 00800400
400
00000 0080484
04
4

000004
012767
004767

694 003652

:#TEST 4
P8R0S0

003524
003526
2;; 003534

688 003612

SEQ 0025

9%:

ERROR+4

#400,G00D

+SET BRQ IF DTO7

sDELAY

1SWB ACT (BIT13),BRQ OR REQ NOT SET

MOV

8CSR,BAD

MOV

00PS, SVECO

ERROR+S

sLOWER PRIORITY
+STORE GOOD DATA (SWB ACT,PWR OK,CON,REQ)

1STORE CONTENTS OF CSR

s INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED

;RESET RETURN

1GO TO NEXT TEST

.MAIN.
T4

——

MACRO M1200 24-MAY-85 11:37 PAGE 21
CONNECT TEST WITHOUT INTERUPT ENABLE.IDX4

SEQ 0026

715

716

P8RS0 04084448440088808080488888884888888488888888888488088888808

1¢TEST S

003760
003762
:’li.: 003770

000004
012767
004767

000012
022402

175202

719 003774
720 003776

005000
012777

000001

175616

721 004004
722 004012
723 004020
724 004026
725 004034
726 004042
727 004044
728 004046
729 004050
730 004052
731 004054
732 004062
733 004070

734 004072
735 004100
736 004106
737 004114
738 004120
739 004122
740 004130
741 004136
742 004144
743 004146
744 004150
745 004152
746 004154
747 004162
748 004170
749 004172
750 004200
751 004206

752 004210
753 004212
754 004214
755 004216
756 004220
004220
004222
757 004224
758 004232
759 004234

760

016767
062767
012767
017767
026767
001404
005200
001367
104006
000461
012777
012767
005000

042777
016767
062767
005767
001003
062767
017767
026767
001403

005200
001367
104007
012767
016767
005000
017767
026767
001403

175742
020201
000000
175570
175064

175112
175104
173750
175072
175064

004220
000340

175542
173706

000001
175646
020200
175514

175522
175016
175010

000400
175466
174762

174774
174770
174762

TSTS:

1%:

23%:

34:

4$:

000000
175564

173614
174734

S$:

175424
174720

174726
174720

6%:

005200
001367
104007
000406
012600
012600
017767
104005
012777

RELEASE TEST WITHOUT INTERUPT ENABLE.IDXS

§5888888884888308880888480888488048884884880888888888888888080484

74:
8s:
175372

174674

022600

175362

94:

SCOPE
MOV
JSR

910, ,$TIMES
PC,CNTLC

+300 10. ITERATIONS
+IS IT CONTROL C?

CLR
MOV

RO
1,8CSR

:SET DELAY TIMER
s CONNECT

MOV
KONST,GOOD
ADD
920201 ,G00D
MOV
#0,PSH
MOV
8CSR,BAD
CHP
GO0D ,BAD
BEQ
34
INC
RO
BNE
B
ERROR+6
BR
74
MOV
#84,8VECO
MOV
#340,PSH
CLR
RO

BIC
#REQ,8CSR
MOV
KONST, GOOD
ADD
920200,G00D
TST
0T03
BNE
as
ADD
#400,G00D
MOV
8CSR ,BAD
CHP
G000 ,BAD
BEQ
54
INC
RO
BNE
a4
ERROR+7
MOV
#0,PSW
MOV
KONST, GOOD
CLR
RO
MOV
8CSR,BAD
CHP
GOO0D ,BAD
BEQ
74

:STORE GOOD DATA (SWB ACT,PWR OK,CON,.REQ)
sDROP PRIORITY
1STORE CONTENTS OF CSR
s COMPARE
1BR IF CONNECTED
sDELAY
:BR IF NOT DONE
sCOULD NOT CONNECT

$EXIT TEST
+SET RETURN
sRISE PRIORITY
$SET DELAY TIMER

1CLEAR REQUEST
1STORE GGOD DATA (SWB ACT,PWR OK,CON)
;
+0T03 MODE?
1BR IF YES
+ADD BRQ IF DTO7
1STORE CONTENTS OF CSR
1COMPARE
1BR IF OK

1DELAY
tBR_IF NOT DONE
1BRQ NOT SET OR REQ NOT CLEARED
sDROP PRIORITY
1STORE GOOD DATA (PWR OK)
sRESET DELAY
1STORE CONTENTS OF CSR
s COMPARE
1BR IF OK

INC
RO
BNE
64
ERROR+7
BR
94

sDELAY
1BR IF NOT DONE
1CON OR SWB ACT NOT CLEARED
$EXIT

MOV
MOV
MOV

(SP)+,RO
(SP)+,RO
8CSR,BAD

MOV

#00PS, OVECO

13POP STACK INTO RO
13POP STACK INTO RO
+STORE CONTENTS OF CSR
s INTERUPPT DETECTED WITH INTERUPT ENABLE CLRD
1RESET RETURN

ERROR+S

1GO TO NEXT TEST

MAIN.
T6

MACRO M1200

24-MAY-85 11:37

762

SEQ 0027

11008888 808088000040000400080008088480084882048040000004400084080844

1¢TEST 6

004242
004244
763 004252
764
765 004256
766 004260
767 004266
768 004272
769 004300
770 004306
71 004314

772 004322
773 004326
774 004330
775 004336
776 004344
777 004352
778 004360
779 004366
780 004370
781 004372
782 0C4374
783 004376
784 004402
785 004404
786 004412
787 004420
788 004422
789 004430
790 004436
791 004444
792 004446
793 004450
794 004452
795 004454
796 004462
797 004470
798 004472
799 004500
800 004506
801 004510
004512
803 004514

004516
805 004522

807
€08
809
810
811

PAGE 22

CONNECT FAILURE TEST MWITHOUT INTERUPT ENABLE.IDX6

004524
004526
004530
004536
004540
004542

000004
012767
004767

005000
012767
005077
012777
012767
016767
062767
005767

001003
062767
012777
017767
042767
026767
001403
005200
001364
104013
005767
001024

016767
062767
005000
017767

042767

026767
001403
005200
001364
104013
016767
062767
005000

017767

026767

001403
005200
001367
104013
005077
000407
012600
012600
017767

104005
000766
012777

CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE.IDX6

110008000000000000000000000000000400000000000408800804000408880444

000012
022120

174720

000000
175330
004524
000340
175440
020001
175306

173510

000400
000001

175252
000074
174540

T1ST6:

1%:

175324
173470
174610
174602
174566
175256
174554
174546
174540

175232

11%:
2%:

3s:

SCOPE
MOV
JSR

CLR
RO
MOV
#0,PSHW
CLR
8CSR
MOV
@8%,8VECO
MOV
9340,PSW
MOV
KONST, GOOD
ADD
€20001,G00D
TST
DT03
BNE
11%
ADD
©400,G00D
MOV
OREQ,8CSR
MOV
8CSR,BAD
8IC
@74,BAD
cMP
GOO0D,BAD
BEQ
3
INC
RO
BNE
2
ERROR+13
TST
DT03
BNE
S
MOV
KONST, GOOD
ADD
920401,G00D
CLR
RO

175342
020401

174512
174504

175174

43:

174462

174476
174470
174462

175272
100000

174442
174434

S$:

MOV
ADD

175124
174420

174426
174420

63:

MOV

000074

175100

74:

8%:

175066

174370

022600

175054

9s:

€10.,$TIMES
PC,CNTLC

MOV

8CSR,BAD

BIC
@74,BAD
cMP
GOO0D ,BAD
BEQ
S$
INC
RO
BNE
4
ERROR+13

KONST,GOOD
#100000,G0O0D

CLR

CcMP

GOO0D,BAD

8CSR,BAD

BEQ
74
INC
RO
BNE
6$
ERROR+13
CLR

8CSR

1300 10. ITERATIONS
+IS IT CONTROL C?

+SET DELAY TIMER
sLOWER PRIORITY
:CLEAR CSR
1SET RETURN
;RISE PRIORITY
:STORE GOOD DATA (SWB ACT,PWR OK,REQ)
;0TO3 MODE?
;B8R IF DTO3
;ADD BRQ IF DTO7
;SET REQ (BITO)
;STORE CONTENTS OF CSR

:MASK RQO-3

;COMPARE
:BR IF 0K
sDELAY
:BR IF NOT DONE
;SWB ACT (BIT13) OR REQ NOT SET
;DT03 MODE?

:BR IF YES
;STORE GOOD DATA (SWB ACT,.PWR OK,BRQ,REQ)

;RESET DELAY
;STORE CONTENTS OF CSR

:MASK RQO-3

; COMPARE
:BR IF 0K
;DELAY
;BR IF NOT DONE
;BRQ(BIT8) DID NOT SET
;STORE GOOD DATA (TMO,PWR 0OK)
;RESET DELAY
;STORE CONTENTS OF CSR
; COMPARE
;:BR IF 0K

;OELRY

;BR IF NOT DONE
; TMO(BIT1S) NOT SET
;CLEAR CSR AND DISCONNECT

B8R

EXIT

MOV
MOV
MOV
ERROR+S
BR

(SP)+,R0O
(SP)+,RO
8CSR,BAD

::POP STACK INTO RO
::POP STACK INTO RO
:STORE CONTENTS OF CSR
:INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED
;GO CLEAR CSR
;RESET RETURN
;GO TO NEXT TEST

MOV

€00PS,aVECO

MAIN.
T6

MACRO M1200

24-MAY-85

11:37

PAGE 23

CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE.IDX6

813
814

1 0 8 8 380 0

000800000000000 0080480000884 0000404000080880880880800008

s TEST 7
000004
012767
004767

004762
004770
004776
005000
005002
005004
005006
005010
005010
005012
005014
005022
005024

005000
012777
016767
062767
012767
017767
026767
001404
005200
001367
104006
000461
012777
012767
005000
042777
016767
062767
005767
001003
062767
017767
026767
001403
005200
001367
104014
016767
062767
005000
017767
026767
001403
005200
001367
104014
000406

RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE.IDX7

1108000000000 000048000000000400000080000000800008084008008000004804

000012
021612

174412

000001
175152
020201
000000
175000
174274

175026
174322
174314
173160
174302
174274

005010
000340

174752
173116

000001

174732
174226
174220

175056

020200
174724
000400

18717:

1%:

2$:

3s:

174204
174200
174172

175002
100000

174152
174144

S$:

174634
174130

174136
174130

6%:

43
:

78:
8%:

012600
174602

174104

012777

022600

174572

SCOPE
MOV
JSR

CLR
MOV
MOV
ADD

174676
174172

012600
017767

104005

SEQ 0028

9s:

MOV
MOV
cHP
BEQ
INC
BNE
ERROR+6
BR
MOV
MOV
CLR
8IC
MOV
ADD
TST
BNE
ADD

010, ,$TIMES
PC.CNTLC

+300 10. ITERATIONS
+IS IT CONTROL C?

RO
@1,8CSR
KONST, GOOD
©20201,G00D
#0,PSW
8CSR ,BAD
GO0D,BAD
34
RO
2

:SET DELAY TIMER
;CONNECT
;STORE GOOD DATA (SWB ACT,PWR OK,CON.REQ)

78
@84,8VECO
9340,PSW
RO
OREQ,8CSR
KONST, GOOD
920200,G00D

DT03

44
#400,G00D

MOV
8CSR,BAD
cMP
GO0D,BAD
BEQ
S5$
INC
RO
BNE
4%
ERROR+14
KONST, GOOD
MOV
ADD
100000, GOOD
RO
CLR
MOV
8CSR,BAD
CcHP
g?OD.BAO
BEQ
RO
INC
BNE
64
ERROR+14
9s
BR
MOV
MOV
MOV
ERROR+5
MOV

(SP)+,RO
(SP)+,RO
8CSR,BAD
#00PS,3VECO

;DROP PRIORITY
;STORE CONTENTS OF CSR
; COMPARE
;BR IF CONNECTED
;DELAY
;BR IF NOT DONE
;COULD NOT CONNECT
sEXIT TEST
:SET RETURN
sRISE PRIORITY
;SET DELAY TIMER

;CLEAR REQUEST

:STORE GOOD DATA (SWB ACT,PWR OK,CON)
;0T03 MODE?
:BR IF YES
;ADD BRQ IF DTO7
;STORE CONTENTS OF CSR
; COMPARE
;:BR IF 0K
;sDELAY
;BR IF NOT DONE
;BRQ NOT SET OR REQ NOT CLEARED
;STORE GOOD DATA (TMO,PWR OK)

;RESET DELAY
;STORE CONTENTS OF CSR
; COMPARE
:BR IF 0K
;DELAY
;BR IF NOT DONE
;TMO NOT SET
;EXIT
::POP STACK INTO RO

::POP STACK INTO RO
;:STORE CONTENTS OF CSR
; INTERUPPT DETECTED WITH INTERUPT ENABLE CLRD
;RESET RETURN
;GO TO NEXT TEST

.MAIN,

MACRO M1200

24-MAY-85 11:37

PAGE 24

RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE.IDX7

360
861

1 80828 8 8

0008880088808880 0400840000000 0 000000t dbbtbtdbdbtbtte

+#TEST 10
PR ARAAAEE

005032
005034
862 005042

000004
012767
004767

864
865
866
867
868

005077
012767
016767
012767
012777
012777
032777
001774
162767
000240
000240
000240
162767
001366
104010
000425

005046
005052
005060
005066
005074
005102
870 005110
871 005116
872 005120
873 005126
874 005130
875 005132
876 005134
877 005142
878 005144
879 005146
880 0C5150
005150
005152
881 005154
882 005162
005164
884 005166
885 005174
886 005202
887 005210
888 005216
889 005220
890 005222
891 005226
892 005232
893

012600
012600
026767
001401
104011
017767
016767
062767
026767
001401
104012
005077
005067
012777

000012
021330

174130

174550
000340
174544
000340
005150
000101
020000

172716
174036
174032
174522
174512
174504

000040

172650

000040

173764

TST10:

173744

174430
174552
020301
173710

173732
173722
173714
173710

174374
172544
022600

3s:

43:

174364

0000000000040 044040040400000000040000000404

€10. ,$TIMES
PC,CNTLC

::00 10. ITERATIONS
+IS IT CONTROL C?

8CSR

;:CLEAR CSR
sRISE PRIORITY
;STORE PRIORITY LEVEL
;STORE ACTUAL PRIORITY INDIACATOR

9340,PSW
PRI, GOOD
#340,BAD
@24,8VECO
€101,8CSR
022000.0CSR

2%:

173744

CONNECT TEST.IDX8
AR08

SCOPE

JSR

1s:

S$:

SEQ 0029

suB

40,PSH

:1SET RETURN
;SET I.E. AND REQ
;WAIT FOR SWB ACT TO APPEAR
;BR IF NOT THERE
;LOWER PRIORITY UNTIL INTERUPTED

:
INDIACATOR
;:BR UNTIL DONE
:NO INTERUPT DETECTED
(EXIT

MOV
(SP)+,RO
MOV
(SP)+,RO
cmP
GOO0D,BAD
BEQ
3
ERROR+11
MOV
8CSR,BAD
KONST, GOOD
MOV
ADD
#20301,G00D
CcMP
E?OD.BAD
BEQ
ERROR+12
CLR
aCSR
PSW
CLR
MOV
#00PS, 9VECO

::POP STACK INTO RO
::POP STACK INTO RO
;CORRECT BREAK LEVEL?

iR IF OK

:INTERUPT AT WRONG PRIORITY
:STORE CONTENTS OF CSR
:STORE GOOD DATA (SWB ACT,PWR OK,CON,IE,REQ)

; COMPARE
;BR IF 0K

;CONNECT CONDITION FAILURE

;CLEAR
;LOWER
;RESET
;GO TO

CSR
PRIORITY
RETURN
NEXT TEST

.MAIN.
T10

MACRO M1200

24-MAY-85 11:37

PAGE 25

CONNECT TEST.IDX8

SEQ 0030

895
896

1108208200000 000000000000ttt
bttt bbbt bt ddbdtb
bbbt bbbb bbbttt

+#TEST 11
L

005240
005242
005250

000004
012767
004767

005254
005256
005264
005272
005300
005306
005314
005322
005324
005326
005330
005332
005334
005340
005342
005344
0C5352
005360
005366
005374
005376
005400
005402
005410
005416
005424
005430
005436
927 303444
928 005452
005454
005456
005462
005470
005476
934 005504

005000
012777
016767
062767
012767
017767
026767
001404
005200
001367
104006
000422
005767
001420
005000
042777
016767
017767
026767
001401
104015
000446
012777
052777
042777
004767
016767
062767
017767
104010
000420
012706
016767
062767
017767
026767
001401
104015
005077
012777

935
936
937
938

005512
005514

005516

005522

000012
021122

173722

000001
174462
020201
000000
174310
173604

174336
173632
173624
172470
173612
173604

000001
174374
174236
173532

174250
173544
173540
173532

005456
000100
000001
014136
174316
000100
174152

174214
174204
174176

001100
174264
000100

SCOPE
MOV
JSR

1%:

CLR
RO
MOV
#1,8CSR
MOV
KONST, GOOD
ADD
©20201,G00D
MOV
©0,PSW
MOV
8CSR,BAD
cHP
GO0D,BAD
BEQ
3
INC
RO
BNE
2
ERRCOR+6
BR
78
TST
0T03
BEQ
3
CLR
RO
8IC
OREQ,8CSR
MOV
KONST, GOOD
MOV
8CSR,BAD
CMP
GOOD,BAD
BEQ
7
ERROR+15

2s:

S$:
6%:

78:
8s:

173466
173460
173454

174120
173414

173434
173426
173422
173414

174100
022600

174074

RELEASE TEST

TST11:

3s:

174274

9s:

10¢:

BR
MOV

€10.,$TIMES
PC,CNTLC

10$
@94,8VECO
#100,8CSR
@1,8CSR
PC,WAITOS
KONST, GOOD
#100,G00D
8CSR,BAD

BIS
BIC
JSR
MOV
ADD
MOV
ERROR+10
BR
104
MOV

#STACK,SP

MOV
KONST, GOOD
ADD
#100,G00D
MOV
8CSR,BAD
CMP
GOOD,BAD
BEQ
10%
ERROR+15
CLR
8CSR
MOV
#00PS, QVECO

.IDX9
Yy

I YT IIIT

:300 10. ITERATIONS
+IS IT CONTROL C?

;SET DELAY TIMER
;CONNECT
;STORE GOOD DATA (SWB ACT,PWR OK,CON,REQ)
;DROP PRIORITY
;STORE CONTENTS OF CSR
; COMPARE
;BR IF CONNECTED
;sDELAY
;BR IF NOT DONE
;COULD NOT CONNECT
:EXIT TEST
;0TO3 MODE?
;:BR=NO
sSET DELAY TIMER
;:CLEAR REQUEST
;STORE GOOD DATA (PWR OK)
;STORE CONTENTS OF CSR
; COMPARE
;BR IF OK
;RELEASE CONDITIONS NOT MET
;GO TO NEXT TEST
:SET RETURN
s 2EY 1.E.
;CLR REQ.
;GO WAIT
;LOAD GOOD

;:NO INTERUPT
;EXIT
;RESET STACK
;LOAD GOOD

:CLEAR AND DISCONNECT
;RESET RETURN

.MAIN.
T11

MACRO M1200

24-MAY-85 11:37

RELEASE TEST .IDX9

PAGE 26

SEQ 0031

940
941

itttk

bbbt db

;#TEST 12
005530
005532
005540

000004
012767
004767

005544
005550
005556
005560
005566
005574
005602
005606
005610
005616
005624
005632
005640
005642
005644
005646
0C5650
005652
005654
005662
005664
005666
005670
005672
005672
005674
005676
005702

005077
012767
005000
012777
016767
062767
005767
001003
062767
012777
017767
026767
001404
005200
001367
104016
000414
005000
012767
005200
001376
104010
000404
012600
012600
005077
012777

000012
020632
174052
000340

173432

TST12:

SCOPE
MOV
JSR

005672
174160
100100
174026

174036
173330
173322

000400
000101
173772
173266

173306
173776
173274
173266

000000

172114

64:
1¢:

11%:
22%:

2%:

173720
022600

173714

CLR
MOV
CLR
MOV

172220

4%
:

S$:

b tbbd bt bbdb bbbt bbb bbb

bbb bbbt bbbt bbb bbb it

CONNECT FAILURE TEST.IDX10
ST

MOV

10, ,$TIMES
PC,CNTLC

+3:00 10. ITERATIONS
;IS IT CONTROL C?

8CSR
9340,PSW
RO
@24 ,8VECO
KONST, GOOD
100100, G00D
DT03
64
#400,G00D
#101,8CSR
8CSR,BAD
GO0D,BAD
11¢
RO
13

;CLEAR CSR
sRISE PRIORITY

MOV
ADD
TST
BNE
ADD
MOV
MOV
CHP
BEQ
INC
BNE
ERROR+16
BR
S
CLR
RO
MOV
#0,PSW
INC
RO
BNE
224
ERROR+10
S5
BR

MOV
CLR

(SP)+,RO
8CSR

#00PS, 8VECO

YT YT Y}

:SET DELAY TIMER

:SET RETURN

;STORE GOOD DATA (TMO,PWR OK,IE)
;DTO3 MODE?
;BR IF DTO3
;ADD BRQ IF DTO7
;SET I.E. AND REQ
;STORE CONTENTS OF CSR
; COMPARE
;:BR IF 0K
;DELAY
;BR IF NOT DONE
;TMO NOT SET
sEXIT
;RESET DELAY
;DROP PRIORITY
sDELAY
;BR IF NOT DONE
;NO INTERUPT DETECTED

;EXIT

::POP STACK INTO RO
::POP_STACK INTO RO
:CLEAR CSR
;RESET RETURN
;GO TO NEXT TEST

.MAIN.
T12

MACRO M1200

24-MAY-85 11:37

CONNECT FAILURE TEST.IDX10

972
973

PAGE 27

SEQ 0032
') ““‘..“t.‘t.““‘t‘.“‘tt"t...‘“tt‘t‘..“

‘.“.“‘.‘.“““‘

:#TEST 13

000004
012767
004767

006114
006122
006124
006132
006134
006136
006140
006142
006142
006144
006146

005000
012777
016767
062767
012767
017767
026767
001404
005200
001367
104006
000461
012777
012767
005000
012777
017767
016767
062767
005767
001003
062767
026767
001404
005200
001353
104016
000420
016767
062767
005000
012767
005200
001376
104010
000402
012600
012600
012777

000012
020452

173252

000001
174012
020201
000000
173640
173134

173666
173162
173154
172020
173142
173134

006142
000340

173612
171756

000100
173566
173710
100100
173556

173572
173070
173060

000400
173032

18:

2%:

3s:

4% :

173052
173036

173032

TST13:

41s:

RELEASE TEST WITHOUT BUSS MASTERSHIP.IDX11

173010
173002

000000

171644

S$:

S1s:

64:
022600

173450

78:

el LT T

#10. ,$TIMES
PC,CNTLC

CLR
MOV
MOV
ADD
MOV
MOV
CMP
BEQ
INC
BNE

RO
#1,8CSR
KONST,GOOD
$#20201,G00D
#0,PSW
8CSR,BAD
GOO0D,BAD
3
RO
2%

ERROR+6
BR
74
MOV
#64$,8VECO
MOV
#340,PSW
CLR
RO
MOV
€100,8CSR
MOV
8CSR,BAD
MOV
KONST,GOOD
ADD
#100100,G00D
TST
D703
BNE
414
ADD
#400,G00D
CMP
GOOD,BAD

BEQ
INC

BNE
ERROR-16

173640
100100

SCOPE
MOV
JSR

S$
RO
4

BR
74
MOV
KONST,GOOD
ADD
#100100,G00D
CLR
RO
MOV
#0,PSW
INC
RO
BNE
S1$
ERROR+10
BR
74
MOV
MOV
MOV

(SP)+,RO
(SP)+,RO
#00PS, 8VECO

PP PP TP PP,

+300 10. ITERATIONS
+IS IT CONTROL C?
:SET DELAY TIMER

s CONNECT

:STORE GOOD DATA (SWB ACT,PWR OK,CON,REQ)
;DROP PRIORITY
;STORE CONTENTS OF CSR
; COMPARE
:BR IF CONNECTED
sDELAY
;BR IF NOT DONE
;COULD NOT CONNECT
sEXIT TEST
:SET RETURN
;RISE PRIORITY
:SET DELAY TIMER
;:CLEAR REQUEST AND SET IE
:STORE CONTENTS OF CSR

:STORE GOOD DATACTMO,PWR OK,IE)
;DT03 MODE?
;BR IF DTO3
;ADD BRQ IF DTO7
; COMPARE
;BR IF OK
;DELAY
;BR IF NOT DONE
;TMO NOT SET
sEXIT

;STORE GOOD DATA (TMO,PWR OK,IE)
;RESET DELAY
;DROP PRIORITY
:DELAY
;BR IF NOT DONE
;:NO INTERUPT
sEXIT
::POP STACK INTO RO
i ;POP STACK INTO RO
;RESET RETURN
;GO TO NEXT TEST

.MAIN.
T13

MACRO M1200 24-MAY-85 11:37
PAGE 28
RELEASE TEST WITHOUT BUSS MASTERSHIP.IDX11

1016
1017
1018

ETEE E

SEQ 0033

;#TEST 14

006154
006156
1019 006164
1020
1021 006170
1022 006174
1023 006176
1024 006202
1025 006204
1026 006210
1027 006212
1028 006216
1029 006220
1030 006226
1031 006234
1032 006240
1033 006242
1034 006246
1035 006250
1036 0C6256
1037 006264
1038 006272
1039 006274
1040
1041 006300
1042 006304
1043 006310
1044 006312
1045 006314
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061

1062
1063
1064
1065

006320
006326
006334
006340
006346
006352
006360
006362
006364
006366
006374
006402
006406
006414
006416
006422
006474
006476
006504
006512

000004
012767
004767
005767
001562
005767
100557
005767
001554
005767
001551
012767
012777
105777
100417
005777
100372
017767
016767
062767
104006
000167
004767
005767
001403
104027
000167

016777
017767
005167
046767
005167
026767
001402
104017
000466
052777
012767
004767
032777
001430
104401
000424
000000
017767
036767
001413

000012
020206

173006

TSTi4:

173020
173552
173426

173424
000000
000001
173362

171550
173366

1%:

173354
173346
173470

020201

172650
172640
172632

000242

020034
020026

28:

000222

173314
173304
173300
173274
173266
173262

001000
000002
013172
001000

173310
172572

20¢:

172560

173226
013236

34:

173206

31%:

::658:

644:

172422
172414

TST
BEQ
TST
BMI
TST
BEQ
TST
BEQ
MOV
MOV
TSTB
BMI
TST
BPL
MOV
MOV
ADD
ERROR+6
JMP

JSR

TST
8EQ

4s:

BR
BIS
MOV
JSR
BIT
BEQ
TYPE
BR

.ASCIZ

HALT
MOV

BIT
BEQ

YT Y T YT T T

T T
P PP YT PP res

@10. ,$TIMES
PC,CNTLC

::00 10. ITERATIONS
;IS IT CONTROL C?

$PASS
S
DEVCON
S5
DEVAD
-1
DEVRC
S
€0,PSW
OREQ,8CSR
8CSR
2%
8CSR
1s
8CSR,BAD
KONST,GOOD
#20201,G00D

+FIRST PASS?
:SKIP TEST ON FIRST PASS
sRESET IN NEUTRAL?
:BR=NO RESET IN NEUTRAL
;IS A DEVICE REGISTER PRESENT?
;EXIT IF NOT
sRESETABLE BITS PRESENT?
:BR=NO SO EXIT
;:DROP PRIORITY
s CONNECT
:CONNECTED?
:BR IF YES
;sTIMEOUT?
:BR IF NOT
;STORE CONTENTS OF CSR

PC,CKADR

FLAG
20

ERROR+27
JMP
S$
MOV
MOV
CoM
BIC

RESET (RST) TEST.IDX12

DEVRW, 8DEVAD
S8DEVAD,BAD
DEVRW
DEVRW,BAD

DEVRW

CMP
DEVRW,BAD
BEQ
34
ERROR+17

006424

173134
173132

SCOPE
MOV
JSR

COoM

172546

S$
#1000,8CSR
#2,T0CK
PC,WAIT
#1000, 8CSR
44
,65%
64

:STORE GOOD DATA(SWB ACT,PWR OK,CON,REQ)
sCOULDN'T CONNECT
;GO CHECK DEVICE ADDRESS EXIST?
+IF FLAG=1,TRAPPED
;EXIT

:SET READ/WRITE BITS IN EXTERNAL DEVICE REGISTER
:STORE CONTENTS OF DEVAD
;COMPLEMENT R/W BITS
;CLEAR OUT BITS NOT UNDER TEST
;RESTORE ORIGINAL PATTERN
;:DID THEY SET?

iBR IF YES

;COULDN'T SET READ/WRITE BITS IN DEVAD

(EXIT
:SET RST

:SET UP FOR 22MSEC COUNT

;STILL SET?
;BR=NO
;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ
<200>/ERROR! RST(BIT9) DIDN'T CLEAR IN TIME./

8DEVAD,BAD

DEVRC,BAD
5$

;STORE CONTENTS OF DEVAD
;RESET CONDITIONS MET?
;BR IF YES

.MAIN.
T14

MACRO M1200

24-MAY-85 11:37

RESET (RST) TEST.IDX12

1066 006514
1067 006516
1068 006520
1069 006526
1070 006532
1071 006540
1072 006542

005200
001367
016767
005167
046767
104021
005077

173116
172372
172366
173054

PAGE 28-1

SEQ 0034

172376
172366
S$:

RO
INC
a4
BNE
MOV
DEVRC, GOOD
COM
GOOD
8IC
GOOoD,BAD
ERROR+21
CLR
8CSR

sWAIT AWHILE

:SAVE DEVRC
;HI LITE BAD BITS
sRESET (RST) DIDN'T WORK
:SHUT DOWN AND GO TO NEXT TEST

.MAIN.
T14

MACRO M1200 24-MAY-85 11:37
RESET (RST) TEST.IDX12

1074
1075

PAGE 29

SEQ 0035
i8R

AR AR AR R0k A

;#TEST 15

1076
1077
1078

1079
1080
1081
1082
1084
1085
1086
1087
1088
1089
1091
1092
1093
1094
1095
1096
1097

000004
012767
004767
005767
001043
012767
012777
105777
100416
005777
100372
017767
016767
062767
104006
000414
052777
000005
017767
032767
001001
104020
005077

000012
017614

172414

TST1S:

173046
000000
000C01
173012

1%:

173004
172776
173120
020201

172300
172270
172262

000002

172746

172740
000200

172242
172234

172720

SCOPE
MOV
JSR
TST

171200
173016

444444020000 404400400040008000000000 s

RESET HOLD (HLD) TEST.IDX13

TSTB

3s:

€10.,$TIMES
PC,CNTLC

:300 10. ITERATIONS
+IS IT CONTROL C?

DT03
34
#0,PSW
OREQ,8CSR
8CSR
24
8CSR
13
8CSR,BAD
KONST, GOOD

;DTO3 MODE
:BR IF YES
;DROP PRIORITY
; CONNECT
;CONNECTED?
:BR IF YES
;:TIMEOUT?
:BR IF NOT
;STORE CONTENTS OF CSR

920201 ,G00D

2s:

L L L L T

ERROR+6
BR
34
#2,8CSR
BIS
RESET
MOV
8CSR,BAD
#200,BAD
BIT
BNE
3
ERROR+20
CLR
8CSR

Y Y

:STORE GOOD DATA(SWB ACT,PWR OK,CON,REQ)

;COULDN'T CONNECT
sEXIT
:SET HLD(BIT1)
;D0 RESET
:STORE CONTENTS OF CSR
s STILL CONNECTED?
:BR IF YES
sHLD DIDN'T DISABLE RESET
:SHUTDOWN AND GO TO NEXT TEST

.MAIN.
T15

MACRO M1200

24-MAY-85 11:37

RESET HOLD (HLD) TEST.IDX13

1099
1100
1101

PAGE 30

SEQ 0036

LRI

006702
006704
1102 006712
1103
1104 006716
1105 006722
1106 006730
1107 006736
1108 006742
1109 006744
1110 006750
1111 006752
1112 006760
1113 006766
1114 006774
1115 006776
1116 007000
1117 007006
1118 007014
1119 0C7016
1120 007024
1121 007032
1122 007034
1123 007036
1124 007040
1125 007042
1126 007044
1127

000004
012767
004767

012701
012767
012777

105777

100416
005777

100372

017767
016767
062767

104006
000422
042777
016767
005000
017767
026767
001402
104015

000012
017460

001750
000000
000001
172660

172260

171046
172664

TST16:

11%:
1$:

172652
172644
172766
020201

172146
172136
172130

000001
172740

172614
172110

2$:

172600
172074

172102
172074

38:

AL Rt

SCOPE
MOV
JSR
MOV
MOV
MOV

BMI
TST
BPL
MOV
MOV
ADD

007060
007064
007066
007072
007072
007076
007102
007104
007106
007112
007116
007120
007124
007132
007140

005767
001012
000167
004767
005767
001437
104027
000167
005767

001002

000167
012767
012777
105777

000001

172112

TST17:

13%:

017242
017234
000426

172524

000414
000000
000001
172456

15¢:

170644
172462

14%:
14:

PP R

€10.,$TIMES
PC,CNTLC

+:00 10. ITERATIONS
:IS IT CONTROL C?

€1000. ,R1
€0,PSW
OREQ,8CSR
8CSR
24
8CSR
14
8CSR,BAD
KONS7,GO0D
920201 ,5000

:SET COUNTER
;DROP PRIORITY
;CONNECT
;CONNECTED?
:BR IF YES
;sTIMEOUT?
:BR IF NOT
;STORE CONTENTS OF CSR

P Y

Y Y

Y YT Y

bd bt

YT YT

:STORE GOOD DATA(SWB ACT,.PWR OK,CON,REQ)
T CONNECT
;COULDN'
sEXIT
:RELEASE CONNECTION
:STORE GOOD DATACPWR OK)
:SET DELAY TIMER
:STORE CONTENTS OF CSR
: COMPARE
:BR IF OK
;RELEASE CONDITIONS NOT MET
sEXIT
:COUNT A SUBPASS
:BR IF CONTINUVE
:SHUTDOWN AND GO TO NEXT TEST

#1,8CSR
:gNST.GOOD

bbb tt i

172552
000446

jidkitib

000004
012767

AR PR

S¢

BIC
MOV

;#TEST 17

007050
00705~

HI-SPEED SWITCHING TEST.IDX14

S$:

43:

172552

RIS

MOV
8CSR,BAD
CMP
GOO0D ,BAD
BEQ
43
ERROR+15
BR
S
DEC
R1
BNE
11%
CLR
8CSR

000402

005301
001327
005077

1128
1129
1130
1131

1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147

s#TEST 16

bbbttt i bbbbbbbbbbbdtbbbbbdd
bbbttt
bbbt

RESET-IN-NEUTRAL TEST.IDX1S
R

PRy

PP PP R

T Y Y

SCOPE
MOV

#1,8TIMES

+:00 1 ITERATION

TST
BNE
JMP

DEVAD
154
12%

;IS A DEVICE REGISTER PRESENT?
;CONTINUE TEST IF PRESENT
;GO EXIT

JSR
PC,CKADR
ST
FLAG
BEQ
2%
ERROR+27
JMP
124
ST
DEVRC
BNE
148
JMP
12¢

MOV

MOV
TST8

#0,PSW

#REQ,8CSR
8CSR

;CHECK IF DEVICE ADDRESS EXIST?
:IF FLAG=1;TRAP OCCURED
:BR:NO TRAP
;GO0 EXIT
;ANY RESETABLE BITS?
;BR=YES
;GO EXIT
;DROP PRIORITY
; CONNECT
;CONNECTED?

MACRO M1200

1148 007144
1149 007146
1150 007152
1151 007154
1152 007162
1153 007170
1154 007176
1155 007200
1156 007202
1157 007202
1158 007210
1159 007216

1160 007222
1161 007230
1162 007234
1163 007242
1164 007244

1165 007246

1166 007250
1167 007254
1168 007260

1169 007262
1170 007270
1171 007276
1172 0C7302
1173 007304
1174 007310
1175 007312
1176 007320
1177 007326
1178 007334
1179 007336
1180 007340
1181 007346
1182 007354
1183 007356
1184 007362
1185 007364
1186 007366
1187 007372
1188 007374
1189 007376
1190 007400
007404
007454
1191 007454
1192 007456
007456
007462

1193
1194
1195
1196
1197

24-MAY-85 11:37

RESET-IN-NEUTRAL TEST.IDX1S

007522
007522
007526
007530
007534
007536

100752
005777
100372
017767
016767
062767
104006
000557
016777
017767
005167
046767
005167
026767
001402
104017
000534
005077
105777
100775
012767
012777
105777
100416
005777
100372
017767
016767
062767
104006
000500
017767
036767
001403
012702
000401
005002

005767
001056
005702
001427
104401
000423

PAGE 30-1

SEQ 0037

172450
172442
172564
020201

172432
172422
172416
172412
172404
172400

171744
171734
171726

172426
171710

171676
171664

3s:
4%:

172346
172342
000000
000001
172320

2%:

170506
172324

Ss:

172312
172304
172426

020201

171606
171576
171570

172272
172270

171560
171552

64:

1771777

171622

7%:
8s:

007406

::658:

644:

000422

9s:

104401
000417

007464

010267
000404
020267
001401
104022

172226

100

172220

11%:

3670

BMI
TST
BPL
MOV
MOV
ADD
ERROR+6
BR

13$
8CSR
14
8CSR,BAD
KONST, GOOD
920201 ,G00D
12¢

MOV
DEVRW, 8DEVAD
MOV
S8DEVAD,BAD
COM
DEVRW
BIC
DEVRW,BAD
DEVRW
COM
CHP
DEVRW,BAD
BEQ
3
ERROR+17
BR
124
CLR
8CSR
TST8
8CSR
BMI
ER
MOV
€0 ,PSW
MOV
OREQ,8CSR
TST8
8CSR
BMI
64
TST
8CSR
BPL
-1
MOV
8CSR,BAD
MOV
KONST, GOOD
ADD
©20201,G00D
ERROR+6

MOV
BIT
BEQ
MOV
BR

124

S8DEVAD ,BAD
DEVRC,BAD
74
e-1,R2
8

CLR

10¢

TST
BNE
TST
BEQ
TYPE
BR
.ASCIZ

TYPE

BR
.ASCIZ

;BR IF YES
; TIMEOUT?
;sBR IF NOT
;STORE CONTENTS OF CSR

;STORE GOOD DATA(SWB ACT,PWR OK,CON,REQ)
sggg%DN'T CONNECT
;

;SET READ/WRITE BITS IN EXTERNAL DEVICE REGISTER
:STORE CONTENTS OF DEVAD
;COMPLEMENT R/MW BITS
;CLEAR OUT BITS NOT UNDER TEST
;RESTORE ORIGINAL PATTERN
;DID THEY SET?
:BR IF YES
sggg%DN'T SET READ/MWRITE BITS IN DEVAD
:

;sDISCONNECT
;DONE?
;BR=NO
;DROP PRIORITY
s CONNECT
;CONNECTED?
:BR IF YES
s TIMEOUT?
;:BR IF NOT
;STORE CONTENTS OF CSR

:STORE GOOD DATA(SWB ACT,PWR OK,CON,REQ)
sCOULDN'T CONNECT
$EXIT
sSTORE CONTENTS OF DEVAD
sRESET CONDITIONS MET?
1BR=YES
:SET R2 FOR NO RESET

:SET R2 FOR RESET
;:FIRST PASS?
:BR=NO
;CHECX RESET CONDITION
:BR=RESET
;s TYPE ASCIZ STRING
:3GET OVER THE ASCIZ
<200>/THIS DTO7 INHIBITS RESET-IN-NEUTRAL./

$PASS
11%
R2
94
658
644

674

::TYPE ASCIZ STRING

664
:sGET OVER THE ASCIZ
<200>/THIS DTO7 RESETS IN NEUTRAL./

MOV
R2,DEVCON
BR
12%
cHP
R2,DEVCON
BEQ
12%
ERROR.22

;STORE CONDITION
'gssflgt CHANGED?
H

sRESET-IN-NEUTRAL OPERATION HAS CHANGED

.MAIN.
7

MACRO M1200 24-MAY-85 11:37
RESET-IN-NEUTRAL TEST.IDX1S

{133 007540
1
1200

005077

172056

PAGE 30-2

SEQ 0038
12¢%:

CLR

8CSR

:CLEAR AND DISCONNECT

-MAIN.
7

MACRO M1200 24-MAY-85 11:37
RESET-IN-NEUTRAL TEST.IDX1S

PAGE 31

1202

1203

1204 007544
iggz 007552

012767
000167

002526
011552

011656

MONEND: MOV
JMP

ORESTRT, $RTNAD
$EOP

+SET RETURN
;GO DO END PASS

MAIN.
T

MACRO M1200 24-MAY-8S 11:37
RESET-IN-NEUTRAL TEST.IDX1S

1208
{ggg

1211 007556
1212 007556
1213 007562
1214 007566
1215 007570
1216 007574
1217 007600
1218 007606
1219 007612
1220 007614
1221 007620
1222 007622
1223 007630
1224 007634
1225 007636
1226 007642
1227 007646
1228 007654
1229 007662
1230 007666
1231 007672
1232 0C7700
1233 0C7704

PAGE 32
SEQ 0040

.SBTTL
004767
005767
100404
004767
004767
012767
005767
001003
005067
000403
012767
005767
001404
004767
000167
012777
012777
004767
004767
012767
026705
001063

MULPRT:

016614
016416

016602
014734
000100
172142
172136

177777
172000
016534
002672
022600
000340
012210
012552
000000
171740

MULTIPORT TEST

172120

1$:

172126

2%:

171750
171744

3s:

170076

JSR
TST
BMI
JSR
JSR
MOV
TST
BNE
CLR
BR
MOV
TST
BEQ
JSR
JMP
MOV
MOV
JSR
JSR
MOV
CMP
BNE

PC,CNTLC
PARFLG
13
PC.CNTLC
PC,PARIN
64. ,CYCLE
DEVCON
24

TRIN
28+6
@-1,TRIN
D703
33
PC.CNTLC
MULDT3
©00PS, BVECO
9340,8VEC2
PC, SEQMAK
PC,SEQINT
+C.PSW
~JRTNO,RS
SLAVE

+IS IT CONTROL C?
1CHECK FOR PARAMETERS
iBR=YES
+IS IT CONTROL C?
1GO _INPUT PARAMETERS
sSET COUNTER
sRESET IN NEUTRAL OPTION USED?
:BR=NO
1SET FLAG FOR TEST
sCONTINUE
sSET FLAG FOR NO TEST
:DTO03 MODE?
:BR=DT07 MODE
:IS IT CONTROL C?
;GO DO DTO3 MULTIPORT
1SET RETURN
:SET LEVEL
;GO CONSTRUCT SEQUENCER
sINIT. SEQUENCER
:DROP PRIORITY
sMASTER OR SLAVE?
:BR=SLAVE

<MAIN,
MACRO M1200
MULTIPORT TEST

1235
1236
1237
1238
1239 007706
1240 007714
1241 007720

1242
1243
1244 007722
1245 007726
1246 007730
1247 007734
1248
1249
1250
1251 007740
1252 007740
1253 007744
1254 007750
1255 007754
1256 007762
1257 007766
1258 007772
1259 0C7774
1260 010000
1261 010004
1262 010010
1263 010012
1264 010014
1265 010015
1266 010022
1267 010024
1268 010030
1269 010034
1270 010036
1271 010042
1272 010050

24-MAY-85 11:37

PAGE 33

SEQ 0041
TRO0ARR00R

AR RRRRRAAANERA00E0000000008040

004000800000040008844

: ON FIRST PASS WAIT BEFORE CONNECTING TO THE SWITCHED BUS SO THAT SLAVES CAN
«

CLEANUP AND READY THENSELVES FOR THE NEXT SEQUENCE,MASTER
NOT AHEAD OF SLAVE

012767
004767
000407

000632
011660

026705
001404
004767
000167

171716

011724

el L

MOV
JSR
BR
DISPAT: cMP
BEQ
JSR
JMP

016442
000114

sMASTER
004767
004767
005067
116467
005067
111467
000241
006167
012703
066703
011303
004713
005724
022714
001352
004767
005367
001402
000167
012767
000167

016432
012236
171746
000001
171736
171732

JSR
JSR

CLR
MOvB
CLR
MOovBe
CLC

171740

ROL

MOV

177777
012436
171672

007556
011256

PC,WAIT
MASTER

PORTNO,RS

MASTER
PC,CNTLC

SLAVE

LTI T

$SET CLOCK FOR S SEC

:GO TO MASTER CODE AFTER SYNC WAIT
:MY TURN AS MASTER?
:BR=YES
;IS IT CONTROL C?
;GO BE SLAVE

TESTS DISPATCHING

MASTER:

171722
012524
171712

177660

9632, TOCK

011360

2s3:

ADD
MOV
JSR
TST
CcHP
BRE
JSR
DEC
BEQ
JMP
MOV
JMP

PC,CNTLC
PC ,MASMEN
CURFUN

:IS IT CONTROL C?
;GO MAKE MASTER MENU
s INSURE NO EXTRANEOUS BITS PRESENT
:GET CURRANT FUNCTION
;CLEAN IT OUT
:GET CURRENT ID

CURFUN

CYCLE

;00UBLE IT
;LOAD BASE ADDRESS
;ADD OFFSET
;GET ACTUAL ADDRESS
;GO DO IT
;STEP THRU MENU
;DONE MENU?
;BR=NO
;GO STEP SEQUENCER
; COUNT

@MULPRT, SRTNAD
$SEOP .2

;GO START AGAIN
:SET UP RETURN
;GO DO END PASS

1(R4),CURFUN
CURID
(R4),CURID

9TABM-2,R3

CURFUN,R3

8R3,R3
PC,8R3
(R4).

PC,SEQSTP

23
DISPAT

;a1 IF DONE

.MAIN,

MACRO M1200

MULTIPORT TEST
1274
1275
1276 010054
1277
1278 010060
1279 010064

1280 010072
1281 010076
1282 010102
1283 010104
1284 010110
1285 910114
1286 010120
1287 010122
12568 010124
1289 010126
1290 010132
1291 010134
1292 010140
1293 010144
1294 010146
1295 010152
1296 010160

24-MAY-85 11:37

PAGE 34

SEQ 0042
SLAVE TEST DISPATCHING

004767

012214

005067
116467
005067
111467
000241
006167
012703
066703
011303
004713
005724
022714
001352
004767
005367

171636
000001
171626
171622

001402
000167
012767
000167

SLAVE:

CLR

CURID

(R4),CURID

JMP
MOV
JHP

CURFUN
@TABM-2,R3
CURFUN,R3
8R3,R3
PC,8R3
(R4).
¢-1,(R4)
13
PC,SEQSTP
CYCLE
23
DISPAT
SMULPRT, SRTNAD
$SEOP.2

;DOUBLE IT
;LOAD BASE ADDRESS
;ADD OFFSET
;GET ACTUAL ADDRESS
;GO DO IT
;STEP THRU MENU
;DONE MENV
:BR=NO
;GO STEP SEQUENCER
; COUNT
:BRIF DONE
;GO START AGAIN
;SET UP RETURN
;GO DO END PASS

MOvB

MOve
CLC
R0L
MoV
ADD
MOV
JSR
TST
cMP
BNE
JSR
DEC
BEQ

171602

177777
012326
171562

011250

@2s:

PC,SALMEN
PC,SYNCUP

1GO MAKE SLAVE MENU
:GO SYNCUP! 2 MINUTE TIME OUT
;CLEAN I7
:GET CURRENT FUNCTION
;CLEAN IT
:GET CURRENT ID

CLR

171630

171612
012524

177550
007556
011146

JSR
JSR

CURFUN

1(R4),CURFUN

.MAIN.
MACRO M1200
MULTIPORT TEST

1298
1299
1300
1301 010164
1302 010164
1303
1304 010170
1305 010174
1306 010176
1307
1308 010200
1309 010204
1310 010210
1311 010216
1312
1313 010224
1314 010226
1315 010232
1316 010234
1317 010236
1312 010240
1315
1320 010242
010246
010340
1321 010340
1322 010346
010352
1323 010354
1324 010356
1325 010360
010360
010362
1326 010364
1327 010372
1328 010400
1329 010402
010406

1330

1331
1332
1333
1334
1335

1336

1337

1338
1339
1340

0104€4
010464
010470
010472
010474
010476
010504
010506
010512
010600
010600
010604
010606
010610
010612
010620

24-MAY-85 11:37

PAGE 35

SEQ 0043
(RARRAARAAA

AR AR AL AR RAAARASA SRR SR 4RS00 ARAAA00 000000
04044

sEXTERNAL CONNECT REQUEST REJECTED
bt

004767

01620¢

012700
005300
001376
004767
004767
012777
112777

005000
012701
005200
001376
005301
001374
104401
000434

FUNCTL:

017767
032767
001036
104401
000426

N O

(MASTER_TEST_1)
P

100000

MOV
DEC
BNE

#100000,RO
RO
.2

;KILL TIME FOR OTHERS TO SEE TRANSISTIONS
j<¢<=ss
j<<ns=

011246
011300
010360
V0101

JSR
JSR
MOV
MOVB

PC,CONNEC
PC,CONID
#14,8VECO
#101,8CSR

;GO CONNECT
;GO CONVERT SLAVE ID
;SET RETURN
;ENABLE INTERUPT

CLR

171406
171376

000060

Ss:

010250

171256
170554

170560

MOV

1$:

171232
010000

170534
170526

010410

66$:

170436

171226

170422

2%:

010514

68$:

170322

000101
022600

171002
170776

3s:

:SET TIMER

#60,R1

sMULTIPLIER¢< 2222222222

BNE
DEC
BNE

-2
R1
S$

;BR IF NOT DONE
sALLOW TIME FOR HDW DELAY¢<¢==zsss===
sAFTER CONNECTING 70 THE SWITCHED BUS<<=zs==

TYPE
BR
.ASCIZ

,654
64
<200>/ERROR1A!

MOV
MOV

8CSR,BAD
BAD, -(SP)

INC

;xrgc

:;69‘:

016746
104402
000000
000776
012777
012777

;IS IT CONTROL C?

5:?70:

016746
104402
000000
000776
036767
001042
104401
000432

PC,CNTLC

012600

JSR

;3653:

017767
016746
104402
000000
000776

;TINE OUT<¢=snzzas

:: TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
NO EXTERNAL REQUFST INTERUPT DETECTED

:SAVE CSR
: sSAVE BAD FOR TYPEOUT

::G0 TYPE--OCTAL ASCIICALL DIGITS)

MOV
MOV
MOV
BIT
BNE
TYPE
BR

(SP)+,RO
(SP)+,RO
8CSR,BAD
#10000,BAD
28

;:POP STACK INTO RO
::POP STACK INTO RO
;STORE CONTENTS OF CSR
sMAKE SURE EXT INT IS SET
:BR = 0K

66$

;sGET OVER THE ASCIZ

.ASCIZ

MOV
TYPOC
HALT
BR
BIT
BNE
TYPE
BR

.ASCIZ

MOV

TYPOC
HALT
BR

MOV
MOV

CSR= /

,67$

;s TYPE ASCIZ STRING

<200>/ERROR1B! EXTERNAL INTERUPT NOT SET.

BAD, -(SP)

.-2
COVID,BAD
34
,69$

684

CSR= /

: :SAVE BAD FOR TYPEOUT
:3G0 TYPE--OCTAL ASCIICALL DIGITS)
;CORRECT SLAVE .D?
;BR=YES
:s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<200>/ERROR1C! EXTERNAL REQUEST FROM WRONG PORT.

BAD, -(SP)

CSR= /

: :SAVE BAD FOR TYPEOUT

::GO TYPE--OCTAL ASCIICALL DIGITS)

-2
#101,8CSR
#00PS, QVECO

;CLEAR EXT INT REJECT THE REQUEST FROM SLAVE
;RESET RETURN

.MAIN.
MACRO M1200
MULTIPORT TEST

24-MAY-85 11:37

PAGE 35-1

SEQ 0044

1341
1342 010626
1343 010632
133:; 010634

012700
005300
001376

100000

MOV
DEC
BNE

#100000,R0
RO
-2

sKILL 50ME TIMEc<c===
§<Cnae

133:3 010636

005077

170760

CLR

8CSR

:DIST SWB TO NEUTRAL STATE¢<¢==szzzzssssss

012700

001600

MOV

1348 010642

1349 010646
ggo 010650
1
1352 010652
1353 010656

005300
001376

005067
000207

167120

#1600,R0

iKILL SOME TIME<¢===

DEC
BNE

RO
e

:S0 OTHERS CAN SEE XSION<<===
;OF SWB.ACT BIT 0=>1
«<c¢===

CLR
RTS

PSW
PC

;LOWER PRIORITY

MACRO M1200
JMAIN.
MULTIPORT TEST

1355
1356
1357
135#
1359
1360 010660
1361 010660
1362
1363
1364
1365 010664
1366
1367 010670
1368 010672
1369
1370 010674
1371 010700
1372 010704
1373 010712
1374 010716
1375 010720
1376 010726
1377 010734
1378 010736
010742

011030
1379 011030
011034
1380 011036
1381
1382 011044
1383
1384 011052
1385 011056
1386 011060
1387 011062
1388 011064
1389 011066
1390
1391 011070
011074
011166
1392 011166
1393 011174

- 011200

1394 011202
1395 011204
1396 011206
011206

011210
1397 011212
1398 011220

1399 011226
1400 011230
011234

24-MAY-85 11:37

PAGE 36

SEQ 0045
bttt
L L T T T
Y
Y P YT YT I I L

;EXTERNAL REQUEST IGNORED
+ (MASTER FAILS OVER TO SLAVE)

(MASTER_TEST_2)

Ly
YT T I It

004767

FUNCT2:

015512

JSR

012700

100000

010552

010604
011206
171040

170712

170714
170706

170710
170702

010744
é‘gSO:

177777

170712

112777

000101

170550

012701
005000
005200
001376
005301
001374

000060

104401
000434

011076

017767
016746
104402
000000
000776

170430
167726

170602

:STALL TIME FOR OTHERS TO SEE SWB.ACT.=Qccszsss

DEC

iD0 SOME TIME HERE <<=ssssssszs

6$:

PC,CONNEC
PC,CONID
@1$,8VECO
TRIN
6%
DEVRW, 8DEVAD
DEVRW, 8DEVAD
64
,65¢

.ASCIZ

<200>/ERROR2F!

644

DEVAD, -(SP)

167732

1%:

T T

:GO CONNECT
;GO _CONVERT SLAVE ID
:SET RETURN
:CAN WE TEST RESET IN NEUTRAL?
:BR=NO
;LOAD READ/WRITE BITS
;LOADED?
;:BR=YES
;s TYPE ASCIZ STRING

;:GET OVER THE ASCIZ

COULDN'T LOAD EXTERNAL DEVICE REGISTER.../

: : SAVE DEVAD FOR TYPEOUT

#-1,TRIN

::G0 TYPE--OCTAL ASCIICALL DIGITS)
;SET FLAG FOR NO TEST

MOVB

#101,8CSR

;ENABLE INTERUPT

MOV
CLR

#60,R1
RO

sMUST ALLOW SUFFICIENT TIME FOR HRDW DELAY<===
;SET TIMER

BNE

;BR IF NOT DONE

;THIS IS ABOUT 4 SECS.

gég73:

<<ssssssas

j¢C(sszss=ss
L

JSR
JSR
MOV
TST
BNE
MOV
CMP
BEQ
TYPE

INC

; TIME OUT

DEC

BNE

15¢

;NE= ADD ANOTHER LOOP<¢=====

678

;s TYPE ASCIZ STRING

TYPE

167706
167700

:THEN =1 FOR THE WINK OF SWB.ACT.

TYPOC
MOV

15%:

011236

#100000, RO

MOV

016746
104402
012767

170404
010000

MOV
BNE

012600
012600
017767
032767
001036
104401
000426

+IS IT CONTROL C?

;ALLOW TIME FOR OTHERS TO DISPATCH AND SEE THE SWB.ACT. GO 0 TO 1

005300
001376

004767
004767
012777
005767
001052
016777
026777
001443
104401
000432

PC,CNTLC

j(¢(s=zazzzsz=

BR
.ASCIZ

66$
<200>/ERROR2A!

MOV
MOV

8CSR,BAD
BAD, -(SP)

.~2

MOV
MOV
MOV
BIT
BNE

(SP)+,RO
(SP)+,RO
8CSR,BAD
#10000,BAD
24

;:POP STACK INTO RO
;:POP STACK INTO RO
;STORE CONTENTS OF CSR
;MAKE SURE EXT INT IS SET
;BR = 0K

::GET OVER THE ASCIZ

TYPOC
HALT

TYPE

,694

:sGET OVER THE ASCIZ
NO EXTERNAL REQUEST INTERUPT DETECTED.
:SAVE CSR
;s SAVE BAD FOR TYPEOUT

G0 TYPE--OCTAL ASCIICALL DIGITS)

;s TYPE ASCIZ STRING

CSR= /

MACRO M1200
.MAIN.
MULTIPORT TEST

24-MAY-85 11:37

016746
104402
000000
000776
036767
001042
104401
000432

011426
1407 011426
011432
1408 011434
1409 011436
1410 011440
1411 011446
1412 011452
1413 011456
011462

016746
104402
000000
000776
012777
005067
004767
104401
000430

1402
1403
1404
1405
1406

SEQ 0046
é5290:

011312
011312
011316
011320
011:22
011324
011332
011334
011340

1401

PAGE 36-1

011544
1414 011544
011550
1415 011552
1416 011554
1417 011556
011556
011560
011562
1418 011564
1419 011570
1420 011572
011576

012600
012600
012600
005777
100436
104401
000423

011646
1421 011646
1422 011654
011660
1423 011662
1424 011664
1425 011666
1426 011674
1427 011700
1428 011704

017767
016746
104402
000000
000776
012777
005077
005067
000207

017746
104402
000000
000776

167610

170400

167574

2%:

011342
33 718:
708:

167474

011556
166324
010110
011464

170156

3$:

$3738:
72%:

170052

4%:

.ASCIZ

<200>/ERROR2B! EXTERNAL INTERUPT NOT SET.

MOV
TYPOC

BAD, -(SP)

: sSAVE BAD FOR TYPEOUT

o=@
COVID,BAD
34

;CORRECT SLAVE ID?
:BR=YES

704

:;GET OVER THE ASCIZ

HALT
BR
BIT

BNE
TYPE
BR
.ASCI1Z
MOV
TYPOC
HALT
BR
MOV
CLR
JSR
TYPE
BR
.ASCIZ

MOV
TYPOC
HALT
BR

718

:360 TYPE--OCTAL ASCIICALL DIGITS)

13 TYPE ASCIZ STRING

<200>/ERROR2C! EXTERNAL REQUEST FROM WRONG PORT.

BAD, -(SP)
-2
®44,8VECO
PSW
PC,WAITOS

. 738

724
<200>/ERROR2D!

8CSR, -(SP)

::SAVE BAD FOR TYPEOUT

:SET RETURN
;LOWER PRIORITY
sWAIT

:: TYPE ASCIZ STRING

+;GET OVER THE ASCIZ
SLAVE DIDN'T TAKE SHARED BUSS.

:sSAVE 8CSR FOR TYPEOUT

::G0 TYPE--OCTAL ASCIICALL DIGITS)

170032

::POP STACK INTO RO
:sPOP STACK INTO RO
::POP STACK INTO RO
; TIMEOUT SET?

011600

. 754

;s TYPE ASCIZ STRING

167750
167246

167252

022600
167722
166072

167730

744
<200>/ERROR2E!

8CSR,BAD

BAD, -(SP)

S$:

CSR= /

-2

.8
©00PS, 8VECO
8CSR
PSW
PC

CSR= /

+:G0 TYPE--OCTAL ASCIICALL DIGITS)

(SP)+,RO
(SP)+,RO
(SP)+,RC
8CSR

$:75%:
74%:

CSR= /

;BR=YES

;sGET OVER THE ASCIZ
NO TMO ON INTERUPT.
CSR= /

:SAVE CSR

:sSAVE BAD FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
;RESET RETURN
:CLEAR CSR
;:LOWER PRIORITY
JEXIT

.MAIN.
MACRO M1200
MULTIPORT TEST

1430
1431
1432
1433
1434
1435 011706
1436 011706
1437 011712
1438
1439

1440
1441 011716
1442 011722
1443 011724
1424 011726
1445 011730
1446 011732
1447
1448 011734
1449 011742
1450 011750
1451 011752
011752
011754
1452 011756
1453 011762
1454 011764
1455 011772
011776

1456
1457
1458

1459
1460
1461

1462

012044
012044
012050
012052
012054
012056
012062
012070
012074

24-MAY-85 11:37

PAGE 37

SEQ 0047
it
L L t
T
T
LT
LT T
t
T

+SEND CONNECT REQUEST EXPECT REJECTION
e

004767
004767

FUNCT3:

014464
007724

JSR
JSR

PC,CNTLC
PC,SYNCUP

(SLAVE_TEST_3)
Y

TT T

TTTrTrr YTM

:+IS IT CONTROL C?
;WAIT FOR MASTER TO START

L T L L PN

+ALLOW 400 + M.S. FOR HROW DELAY TO PASS SO EXT REQ. CAN BE SEEN BY MASTER
012701
005000
005200
001376
005301
001374
012777
012777
000001
012600
012600
005777
100435
017767
104401
000422

000010

MOV
15¢:

011752
000101

167662
167652

;STALL FOR 300 + MS<<=zasssas

gng

ROZ

iSPIN LOOP= 65KX300X10-6 OR 300+4M.S.<<s22=

DEC

j<C¢=sass

BNE

154

;00 ANOTHER LOOP=NE

WAIT

MOV

167640
167134

167534

4s:

#3$,0VECO
#101,8CSR

j¢(¢(=sssssssssss

(SP)+,RO

(SP)+,R0O

8CSR
44
8CSR,BAD

644

.ASCIZ

MOV
TYPOC
HALT
BR
CLR
MOV
CLR
RTS

:SET RETURN
;SET IE + REQ

““.“““‘..‘...‘.‘.

:WAIT FOR INTERUPT

TST
BMI
MOV

TYPE

167056

167540
022600
165702

#10,.R1

MOV
MOV

é‘?SO:
016746
104402
000000
000776
005077
012777
005067
000207

;‘““““.“.““‘.““.““““““‘.“““..“‘.“‘.“

167632
012000

CLR

,65%

::POP STACK INTO RO

; TIMEOUT?
;BR=YES
:SAVE CSR

+sTYPE ASCIZ STRING

:sGET OVER THE ASCIZ

<200>/ERROR3B! NO TIMEOUT DETECTED.

BAD, -(SP)

:sSAVE BAD FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

-2

8CSR
#00PS, BVECO

PSW

CSR=/

;CLEAR + DISCONNECT
;RESET RETURN

;LOMER PRIORITY

sEXIT

MACRO M1200
.MAIN.
MULTIPORT TEST

24-MAY-85 11:37

PAGE 38

SEQ 0048

1464

1466
1467
1468 012076
1469 012076
1470 012102
1471
1472
1473
1474 012106
1475 012112
1476 012114
1477 012116
1478 012120
1479 012122
1480
1481
1482
1483
1484
1485
1486
1487
1488 012124
1489 012132
1490 012140
1491 012142
012142
012144
1492 012146
1493 012152
1494 012154
1495 012162
012166

1465

012240
012240
012244
012246
012250
012252
012256

004767
004767

P Y

Y YT

]

(SLAVE_TEST_4)

FUNCT4:

014274
007534

JSR
JSR
L

012701
005000
005200
001376
005301
001374

000010

PC,CNTLC
PC,SYNCUP

;IS IT CONTROL C?
;WAIT FOR MASTER

012777
012777
000001

012600
012600
105777
100437
017767
104401
000424

012767
005077
012777
005067
000207

MOV

#10,R1

;STALL FOR 300 + MS<<¢===zsssss=

gng

Roz

:SPIN LOOP= 65KX300X10-6 OR 300+M.S.<c==2=

DEC

j<<(==u=s

CLR

15¢:

BNE
LRI R

MOV

218
H
H
;

012346
012346
012354
012360
012366
012372

1507
1508

;ALLOW 400 + M.S. FOR HRDW DELAY TO PASS SO EXT REQ. CAN BE SEEN BY MASTER

1497
1498
1499
1500
1501 012260
1502 012266
1503 012270
012274

1504
1505

:SEND CONNECT REQUEST EXPECT CONNECTION

016746
104402
000000
000776
005767
001036
036777
001432
104401
000424

1496

SIS

012142
000101

167472
167462

166744

166662

167356

BIT
BEQ
DEC
BNE

#20000,8CSR
FUNCT4
;BR=NO
TEMP1
214

;SWB ACT SET?

MOV

#34$,8VECO

:SET RETURN

TEMP1

#101,8CSR

LRSI

;SET IE + REQ

;WAIT FOR INTERUPT

MOV
MOV
TST8
BMI
MOV

(SP)+,RO
(SP)+,RO
8CSR
44
8CSR,BAD

BR
.ASCIZ

644
;:GET OVER THE ASCIZ
<200>/ERROR4B! CONNECT REQUEST FAILED.

MOV

BAD, -(SP)

;s SAVE BAD FOR TYPEOUT

-2
TRIN
S$
DEVRC, 8DEVAD

;CAN WE TEST RESET IN NEUTRAL
;BR=NO
;RESET CONDITIONS MET?

654

ITrIIIIIINYY

;:POP STACK INTO RO
;sPOP STACK INTO RO
;CONNECTED?
;BR=YES
:SAVE CSR

;3 TYPE ASCIZ STRING

CSR=/

S$:

MOV
CLR

@-1,TRIN
8CSR

;CANCEL FURTHER TESTING OF RESET IN NEUTRAL
;CLEAR + DISCONNECT

CLR

PSW

;LOWER PRIORITY

167350

167236

éé678

4s:

167402

;00 ANOTHER LOOP=NE
P

TYPOC
HALT
BR
TST
BNE
BIT
BEQ
TYPE
BR
.ASCIZ

012276

177777
167242
022600
165404

;SET TIMER

TYPE

6‘?5.

TIMA,TEMP1

ASL

WAIT

167450

167500

15
LA

MOV
$:

167442
012170

j¢¢(sssazsssasss

MOV

RTS

,67%

+:6G0 TYPE--OCTAL ASCIICALL DIGITS)

;BR=YES

;s TYPE ASCIZ STRING

66$
;3sGET OVER THE ASCIZ
<200>/ERRORAC! NO RESET IN NEUTRAL DETECTED./

#00PS, 8VECO

;RESET RETURN
;EXIT

.MAIN.
MACRO M1200
MULTIPORT TEST
1510
1511
1512
1513
1514
1515 012374
1516 012374
1517 012400
1518 012404
1519 012406
1520 012412
1521 012420

1522 012422
1523 012424
1524 012426
1525 012430
1526 012432
012436

012510
012510
012512
012514
012522
012524

1527
1528
1529
1530
1531
1532
1533
1534 012526
1535 012530
1536 012532
1537 012534
1538 012536
1539
1540

24-MAY-85 11:37

PAGE 39

SEQ 0049
;tt.“t..“.““‘.t‘.t“tt“““.“““““

“““‘“‘.“.“.“‘..“0“‘...‘...

;OBSERVE REQUEST INDICATORS
PRRAAAAAELAARAE AR RA

004767
004767
005000
012701
036777
001035
005200
001372
005301
001370
104401
000424

FUNCTS:

013776
007104
000400

167312

167202

1s:

012440

;:658:

000000
000776
036777
001374
000207

010164
010660
011706
012076
012374

6454:

167210

167100

28:

TABM:

AR AR

JSR
JSR
CLR
MOV

PC,CNTLC
PC,CONID
RO
#400,R1

BNE
INC

24
RO
14
R1
1

BIT

BNE
DEC
BNE
TYPE
BR

_ASCIZ

MMM

COvVID,8CSR

,65%

644

<200>/ERRORSA!

(SLAVE_TEST_S)

0044400000440 00 0000000000 00440044

;IS IT CONTROL C?
;GO CONVERT PORT ID
;:SET TIMERS

;LOOK FOR REQUEST

;BR=FOUND IT
;TIME OUT

:sTYPE ASCIZ STRING

;:GET OVER THE ASCIZ

NO REQUEST

ACTIVITY DETECTED.”/

HALT

BIT
BNE
RTS

FUNCT1

FUNCT2
FUNCT3
FUNCT4
FUNCTS

-2

COvVID,8CSR

24
PC

;DID IT GO AWAY?

;BR=NOT YET
sEXIT

:DISPATCH TABLE FOR MULTIPORT TEST

.MAIN.
MACRO M1200
MULTIPORT TEST

24-MAY-85 11:37

1542
1543
1544

1545
1546
1547

1548
1549
1550
1551
1552

.SBTTL
.SBTTL
.SBTTL
012540
012540
012544
012552

1553 012556
1554 012564

1555 012570

1556 012576
1557 012600

1558 012602
1559 012610
1560 012616

1561 012622

013632
000000
167044
002000
006774
020000

167024

1%:

012777

104401

006730

167014
167004

11$:

004767

012726
000101

012630

000432

1562 012714

017746

1563 012722
1564 012724

000000
000776

012720

MULDTS:

004767
012767
005077
012767
005067
032777
001401
000464
012777

012626

p—

104402

165224

167142

agso:

166702

001100
165049
166660

2%:

1572 012752
1573 012756
ig;g 012762

005067
000167
012767

166766
001166
177777

21s:

100007
000240
000240
000240

BIPORT TEST IN DTO3 MODE

JSR
MOV
CLR
MOV
CLR
BIT
BEQ
8P
MOV

PC,CNTLC
90,PSW
8CSR
€2000,CYCLE
TRIG
#20000,8CSR
11%
214
924 ,8VECO

JSR

PC,WAIT20

644

MOV

8CSR, -(SP)

MOV

.ASCIZ

TYPOC

012706
005067
005777

012742
012744
012746
012750

SEQ 0050

TYPE

1565 012726
1566 012732
1567 012736
1568
1569
1570
1571

166754

ig;g

3§:

HALT
BR

€101,8CSR

654

:IS IT CONTROL C?
;LOWER PRIORITY
sSTART WITH A CLEAR REGISTER
:SET SUB COUNT
;:CLEAR TRIGGER
;ACTIVE?
:BR=NO
1GO BE SLAVE
:SET RETURN

:SEND REQUEST
;GO WAIT

+:TYPE ASCIZ STRING

+3GET OVER THE ASCIZ

<200>/ERROR6! NO INTERUPT AFTER CONNECT REQUEST.

::SAVE 8CSR FOR TYPEOUT

1360 TYPE--OCTAL ASCIICALL DIGITS)

MOV
CLR
TST

#STACK,SP
PSHW
8CSR

;RESET STACK
;LOWER PRIORITY
: TIMEOUT?

CLR
JMP
MOV

ONOFF
SECT4
@-1,0NOFF

s INDIACATE FIRST SLAVE
:GO TO SECTION 4
:INDIACATE FIRST MASTER

BPL
NOP
NOP
NOP

CSR= /

:BR=NO

;SECTION 2 : WAIT FOR EXTERNAL REQUEST THEN RELEASE SWITCH

1578 012770
1579 012774
1580 012776

005767
001052
016777

1582 013012
1583 013014
013020

001443
104401
000432

013022

1584 013106

016746

166524

1585 013114
1586 013122
1587 013130

012767
012777
012767

177777
013246
000632

1589 013142
013146

104401
000432

013150

1581 013004

——

PAGE 40

013112

1588 013136

026777

104402

004767

166762

166636

166630

SECT2:

166632

166624

006436

TRIN
2
DEVRW, 8DEVAD

:CAN WE TEST RESET IN NEUTRAL
1BR=NO
:LOAD DEVICE REGISTER

BEQ
TYPE
BR

24
.654
644

iBR=YES
13 TYPE ASCIZ STRING
:sGET OVER THE ASCIZ

MOV

DEVAD, -(SP)

MOV
MOV
MOV

¢-1,TRIN
14,8VECO
9632, TOCK

TYPE
BR

674
66%

CMP

agSO:

166634
166474
006502

TST
BNE
MOV

.ASCIZ

TYPOC

2%:

JSR

DEVRW, 8DEVAD

<200>/ERROR7A!

PC,WAIT

;0K?

COULDN'T LOAD EXTERNAL DEVICE REGISTER../

s :SAVE DEVAD FOR TYPEOUT

+3G0 TYPE--OCTAL ASCIICALL DIGITS)

;CANCEL FURTHER TESTING OF RESET IN NEUTRAL
:SET RETURN
:SET DELAY FOR S5 SECONDS
::TYPE ASCIZ STRING
:sGET OVER THE ASCIZ

MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 40-1
SEQ 0051

o—

1590 013234

013240
1591 013242

ag":

017746

104402
000000

1592 013244
1593 013246
1594 013252
1595 013260
1596 013266
1597 013274
1598 013276
013302
pop—

000776
012706
016767
062767
026777
001435
104401
000425

1599 013356

017746

1600 013364

000000

1602 013370

000401

013362

1601 013366
1603 013372
1604 013374
1605 013402
1606 013406
1607 013412

104402

166362

001100
166474
030301
165632

3290
166240

166174

1611 013430
1612 013434
1613 013442

000167
012767
012777

000230
000401
013556
164322

177726
166154

1615 013454 004767 006072

1616 013460
013464

104401
000427

013466

1617 013544
013550

017746
104402

166052

1619 013554
1620 013556

000776
012706

1622 013566
1623 013570
013574

100705
104401
000426

1624 013652
013656

017746
104402

1626 013662
1627 013664
igg 013670

000776
005077
005067

1618 013552

1625 013660

izgg

MOV

8CSR, -(SP)

sRELEASE TYPE SWITCHBACK

.-4

:BR=NO

JHP
SECT2B: MOV
MOV
CLR

SECT2C
#401,SECT2A
#14,8VECO

:GO TO EXIT
1 TURN SWITCHBACK
+SET RETURN

JSR

PC,.WAIT20

;GO WAIT FOR TIMEOUT

.ASCIZ

<200>/ERROR9!

BEQ

1%:

3270

TYPE
BR

.-6

PSHW

654
644

;GO DO PASSIVE RELEASE
1 TURN SWITCHBACK
sDROP SWITCH ACTIVELY
;LOWER PRIORITY
1DROPPED?
sPICKED UP?

;LOWER PRIORITY

13 TYPE ASCIZ STRING
13GET OVER THE ASCIZ

NO TIMEOUT INTERUPT DETECTED.

8CSR, -(SP)

BR
MOV

=2
@STACK,SP

sRESET STACK

BMI
TYPE
BR

SECT20
674
664

1BR=0K
33 TYPE ASCIZ STRING
13GET OVER THE ASCIZ

MOV
TYPOC

8CSR, -(SP)

TST

.ASCIZ

BR
SECT2C: CLR
CLR

8CSR

<200>/ERROR10!

.2
8CSR
PSHW

1BR=NO

MOV
TYPOC

HALT

165732
164102

+:G0 TYPE--OCTAL ASCIICALL DIGITS)

920000,8CSR

013576

000000

:3SAVE GCSR FOR TYPEOUT

BIT

BMI

HALT

165744

$3G0 TYPE--OCTAL ASCIICALL DIGITS)

SECT28
9240,SECT2A
8CSR
PSW
8CSR

000000

001100

.-2

CSR= /

:sSAVE 8CSR FOR TYPEOUT

BR
14:
MOV
SECT20: CLR
CLR
TST8

ugSO

1621 013562 005777 166034
"

-2
@STACK,SP
sRESET STACK
KONST, GOOD
€30301,G000
GOO0D,8CSR
sMAKE SURE IT'S AN EXTERNAL REQUEST
SECT2A
:BR=0K
694
13 TYPE ASCIZ STRING
684
:sGET OVER THE ASCIZ
<200>/ERROR8! UNEXPECTED INTERUPT TYPE.
CSR= /

020000

—

BR
MOV
MOV
ADD
CHP
BEQ
TYPE
BR
.ASCIZ

SECT2A: BR

032777

005067

8CSR, -(SP)

HALT

1609 013420

1614 013450

MOV

TYPOC

177766

001774

1%:

013304

000240
166214
164364
166204

1610 013426

165644
165636
166326

000776

100775

<200>/ERROR7! NO EXTERNAL INTERUPT REQUEST SEEN.

TYPOC
HALT

000420
012767
005077
005067
105777

1608 013416

.ASCIZ

F
CSR= /

::SAVE 8CSR FOR TYPEOUT
+36G0 TYPE--OCTAL ASCIICALL DIGITS)

sMAKE SURE IT'S A TIMEOUT

INTERWT NOT CAUSED BY TMO.

CSR= /

13SAVE GCSR FOR TYPEOUT
3360 TYPE--OCTAL ASCIICALL DIGITS)
:CLEAR CSR
:LOWER PRIORITY

sSECTION 3 : SEND REQUEST EXPECT REJECTION

-9

«MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 40-2

SEQ 0052

1632 013674
1633 013702
1634 013706
1635 013714
1636 013722
1637 013726
013732
o

1638 014004
014010
1639 014012

012767
004767
012777
012777
004767
104401
000424

000001
005672
014016
000101
005624

005736
165710
165700

013734

a?SO:

017746
104402
000000

1640 014014 000776
1641 014016 012706
1642 014022 005777
1643 014026 ° 100437
1644 014030
104401
014034 000427

165612

001100
165574

14:

014036

1645 014114
014120
1646 014122
1647 014124
1648 014126
1649 014132
1650 014136
1651 014142
iggg 014144

w‘m

017746
104402
000000
000776
005077
005067
005767
001402
000167

165502

165470
163640
005422

MOV
JSR
MOV
MOV
JSR
TYPE
ASCIZ

000644

1,T0CK
PC,WAIT
#14,8VECO
€101,8CSR
PC,WAIT20
1659
644

8CSR,-(SP)

BR
MOV
TST
BMI
TYPE

o2
#STACK,SP
8CSR
24
674
664

ASCIZ

$SET MINIMUM TIME
1GO WAIT
:SET RETURN
sSEND REQUEST
sGO WAIT FOR TITMEOUT
:3TYPE ASCIZ STRING
33GET OVER THE ASCIZ

<200>/ERROR11! NO INTERUPT DETECTED.

MOV
TYPOC
HALT

MOV
TYPOC
HALT
BR
CLR
CLR
TST
BEQ
JMP

24:

i:g;
1656
1657
1658
1659

SECT3:

<200>/ERROR12!

8CSR, -(SP)
-2
8CSR
PSW
TRIG
SECT4
MULEND

CSR= /

$3SAVE 8CSR FOR TYPEOUT
+360 TYPE--OCTAL ASCIICALL DIGITS)
tRESET STACK
s TIMEOUT?
1BR=YES
13 TYPE ASCIZ STRING
1 3GET OVER THE ASCIZ

INTERWT NOT CAUSED BY TMO.

CSR= /

$3SAVE 8CSR FOR TYPEOUT
1360 TYPE--OCTAL ASCIICALL DIGITS)
tCLEAR CSR
tLOWER PRIORITY
1IS TRIGGER SET?
1BR=NO
tFINISHED A SUB PASS

+SECTION 4 : SEND REQUEST EXPECT CONNECTION
014150
014156
014164
014170
014174
A

1660 014246
014252
1661 014254
1662 014256
1663 014260
1664 014264
1665 014272
1666 014300
1667 014306
1668 014310

014314

1669 014362
014366
1670 014370
1671 014372
1672

012777
012777
004767
104401
000424

014260
000101
005362
014176

165446
165436

SECT4:

agSh

017746
104402
000000
000776
012706
016767
062767
026777
001432
104401

000422
017746
104402
000000
000776

164632
164624
165314

MOV
TYPOC
HALT
BR
MOV
MOV
ADD
CHP
BEQ
TYPE

14:

014316
a:'":

165234

.ASCIZ

#14,8VECO
€101,8CSR
PC,WAIT20
654
644

<200>/ERROR13!

1SET _RETURN
sSEND REQUEST
1GO WAIT FOR TIMEOUT
13 TYPE ASCIZ STRING
13GET OVER THE ASCIZ

NO INTERUPT DETECTED.

CSR= /

165350

001100
165462
020301
164620

MOV
MOV
JSR
TYPE
BR

ASCIZ

8CSR, -(SP)

-2
#STACK,SP
KONST,GO0D
#20301,G000
GOO0D,8CSR
SECTS
674

669

<200>/ERROR14!

MOV
TYPOC
HALT
BR

@CSR, -(SP)

$3SAVE 8CSR FOR TYPEOUT
$3G0 TYPE--OCTAL ASCIICALL DIGITS)

sRESET STACK
sCONNECTED?
1BR=YES
13 YYPE ASCIZ STRING

13GET OVER THE ASCIZ

COULD NOT CONNECT.

CSR= /

$3SAVE 8CSR FOR TYPEQUT
#360 TYPE--OCTAL ASCIICALL DIGITS)

MAIN.

MACRO M1200

24-MAY-85 11:37

PAGE 40-3

SEQ 0053
1673
1674
1675 014374
1676 014400
1677 014402
1678 014410
1679 014412

+SECTION S :DETECT EXTERNAL REQUEST AND REJECT IT
005767

014416

001041
036777
001435
104401
000427

014476
1680 014476
1681 014504
1682 014512
1683 014516
1684 014522
014526

012767
012777
005067
004767
104401
000430

1685

014610
014610
014614
014616
014620
014622
014626

1686
1687
1688
1689
1690 014634
1691 014642
1692 014650
1693 014652
014656

017746
104402
000000
000776
012706
016767
062767
026777
001433
104401
000423

014726
014726
014732
014734
014736
014740
014746
014754

017746
104402
000000
000776
012777
012777
005067

1694

1695
1696
1697
1698
1699
1700
1701 014760
1702 014764
1703 014766
1704 014772
1705 014776
1706 015000
1707 015002
1708 015010
1709
1710 015014
1711 015020
1712 015022
1713 015030
i714 015034
1715 015042
1716 015046
1717 015052

005367
001402
000167
005767
001401
000405
012767
000167
005767
001405
012767
000167
012767
000167
004767
000167

165356
165234

SECTS:
165226

TST
BNE

014420

177777

014622

163260
005030
014530

654
644
<200>/ERROR15A!

165252
165112

165120
030301
164256

014%,8VECO
PSHW
PC.WAIT20

164270
164262
164752

8CSR, -(SP)

1$:

CMP
BEQ

014660

TYPE

::69%:
68$:

164670

.ASCIZ

o8
#STACK,SP
KONST,GOOD
#30301,G00D
GOOD,8CSR
2%
.69%
68$
<200>/ERROR16!

MOV
TYPOC

8CSR, -(SP)

.-2
€101,9CSR
©00PS, SVECO
PSW

HALT

000101
022600
163016

164654
164650

2%:

MOV

MOV
CLR

164742

DT3SP:

175776
164746

DEC
BEQ

1¢:

TST
BEQ
BR
MOV
JMP

177777
175754

004554

164724
012540
004276
015046
004264
004500
175462

004400
004366

2%:

MULEND: TST
BEQ
MOV

1$:

2%:

lg:NN:E TEST RESET IN NEUTRAL?
F

+RESET CONDITION MET
1BR=YES
$3TYPE ASCIZ STRING
13GET OVER THE ASCIZ

COULDN'T DETECT RESET IN NEUTRAL./

;CANCEL FURTHER TESTING OF RESET IN NEUTRAL
:SET RETURN
;LOWER PRIORITY
;GO WAIT
33 TYPE ASCIZ STRING
:3GET OVER THE ASCIZ

678
664
<200>/ERROR1S! NO EXTERNAL REQUEST DETECTED.

::678:
66%:

165006

001100

TRIN
34
gEVRC.GOEVAD

JMP
MOV
JMP
JSR
JMP

CYCLE
1$
SECT2
ONOFF
24

MULEND
¢-1,TRIG

SECT2

2NOFF
¢

OMULDT3, SRTNAD
$EOP .2
923, SRTNAD

$EOP+2

PC,WAIT20
MULDT3

CSR= /

:3sSAVE 8CSR FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

sRESET STACK

sEXT. INT. ?
;BR=0K
s TYPE ASCIZ STRING
:3GET OVER THE ASCIZ

UNEXPECTED INTERUPT.

CSR= /

:sSAVE 8CSR FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

;CLEAR EXT. INT.
;RESET RETURN
;:LOWER PRIORITY

:COUNT A SUBPASS
:BR=DONE
s CONTINUE
;FIRST MASTER OR SLAVE
:BR=SLAVE
:MASTER REPORTS ENDPASS
:SET TRIGGER FOR SLAVE
;CONTINUE SLAVE AT SECT2
;WAS THIS FIRST SLAVE?

;BR=YES

:SET RETURN

;GO DO ENDPASS
:SET RETURN
;GO DO ENDPASS

;WAIT 2 SECONDS
;GO TO IT!

MAIN.

MACRO M1200

24-MAY-8S 11:37

PAGE 41

SEQ 0054

1719
1720
1721
1722
1723 015056
1724 015056
1725 015062
1726 015066
1727 015070
1728 015074
1729 015074
1730 015100
1721 015104
015110

1732
1733

1734
1735
1736

015170
015170
015172
015174
015202
015204
015210

015272
1737 015272
015276
1738 015300
1739 015302
1740 015306
1741 015310
1742 015316
1743 015324
1744 015326
015332

1745
1746
1747
1748
1749

1750
1751
1752
1753
1754

015422
015422
015426
015430
015432
015436
015440
015440
015444

015522
015522
015524
015526
015534
015536
015542

015626
1755 015626
015632
1756 015634

.SBTTL
.SBTTL MANUAL INTERVENTION TEST
004767
005767
001402
000167
004767
005077
104401
000427

104410
012600
032777
001042
1044301
000430

MANIN:

011314
164546
001060

MANMOD
:

011276
164516
015112

::658:
64%:
002000

164420

1s:

015212

017746
104402
000000
004767
000724

104401
000426
104410
012600
032777
001041
104401
000431

€6$:

164324

164304
164276

2$:

::698:
68$:

164174
010740

3s:

015446

;:718:
708:

164066

72%:

8CSR

654
64

+IS IT CONTROL C?
sCHECK DTO3 MODE

:BR=DTO7 MODE
:SKIP OVER MANUAL MODE TEST IF DTO3

+IS IT CONTROL C?

:CLEAR CSR

+:TYPE ASCIZ STRING
:sGET OVER THE ASCIZ

<200>/PUT THIS DTO7 IN MANUAL MODE THEN TYPE <CR>./

ROCHR

(SP)+,RO

BIT
BNE

#2000,8CSR
28

.ASCIZ

66
<200>/ERROR1!

BR
MOV
BIT
BEQ
TYPE

.ASCIZ

MOV
TYPOC

TYPE

.ASCIZ

67$

::POP STACK INTO RO

sMANUAL MODE SET?
:BR=YES

;s TYPE ASCIZ STRING

;:GET OVER THE ASCIZ
MANUAL MODE (BIT10) IS NOT SET.

CSR= /

8CSR, -(SP)

::SAVE 8CSR FOR TYPEOQUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

PC,CNTLC
MANMOD

:IS IT CONTROL C?
;GO TRY AGAIN

#1,8CSR

;TRY TO SET REQ IN MAN.MOD.

;SET?

33
:BR=NO
.69%
;s TYPE ASCIZ STRING
68
;:GET OVER THE ASCIZ
<200>/ERROR2! REQ BIT NOT DISABLED IN MANUAL MODE.

8CSR, -(SP)

CSR= /

::SAVE 8CSR FOR TYPEOUT

::G0 TYPE--OCTAL ASCIICALL DIGITS)

PC,.CNTLC

;IS IT CONTROL C?

s TRY AGAIN

L718

;s TYPE ASCIZ STRING

704
;;GET OVER THE ASCIZ
<200>/CONNECT THIS DTO7 MANUALY THEN TYPE <CR>./

RDCHR

BIT
BNE
TYPE

015544

163770

TYPE
BR
.ASCIZ

HALT
JSR

::738:

017746
104402
000000

PC,CNTLC

HALT
JSR

015334

000001

JSR
CLR

MOV
TYPOC

011070

000001
000001

PC,CNTLC
DT03
MANMOD
PWROK

TYPE

::678:

017746
104402
000000
004767
000672
012777
032777
001445
104401
000433

JSR
TST
BEQ
JMP

.ASCIZ

MOV

TYPOC
HALT

(SP)+,RO

#1,8CSR
4

. 738

724

<200>/ERROR3!

9CSR, -(SP)

;:POP STACK INTO RO

;IS REQ SET NOW?
;:BR=YES

;s TYPE ASCIZ STRING

:sGET OVER THE ASCIZ

REQ.

BIT

NOT

SET

WHEN CONNECTED.

: s SAVE 8CSR FOR TYPEOUT

CSR=

::G0 TYPE--OCTAL ASCII(CALL DIGITS)

~MAIN.

MACRO M1200

24-MAY-8S 11:37

MANUAL INTERVENTION TEST

1757 015636
1758 015640
1759 015642
1760 015650
1761 015652
015656

000700
000005
032777
001034
104401
000424

000001

SEQ 0055

163752

1766
1767
1768
1769
1770

1771
1772
1773
1774
1775
1776
1777

1778
1779
1780
1781
1782

1783
1784
1785
1786
1787
1788

016034
016034
016036
016040
016046
016050
016054
016142
016142
016146
016150
016152
016154
016154
016160
016164
016170
016236
016236
016240
016242
016250
016252

016256
016330
016330
016334
016336
016340
016342
016346
016352
016356

016426
1789 016426
1790 016430
1791 016432

017746
104402
000000
000737

104401
000432
104410
012600
032777
001442
104401
000432

017746
104402
000000
000673
004767
005077
104401
000422

015660
;31758
748

015730

015730
015734
015736
015740
015742
015742
015746

PAGE 41-1

163666

5s:

015750

3 778:
76%:

002000

163554

::79%:
78%:

017746
104402
000000
0L 2705
005067
004767
10442
000423

104410
012600
032777

MOV
TYPOC
HALT
BR
TYPE
.ASCIZ

PWROK:

010216
163436
016172

.ASCIZ

163352

::678:
66%:

163266

161430
003100

2%:

U1n360

::698:
68$:

744

13GET OVER THE ASCIZ

. 758

+3:TYPE ASCIZ STRING

<200>/ERROR4! RESET CLEARED REQ. BIT.

8CSR, -(SP)

: sSAVE 8CSR FOR TYPEOUT
+:G0 TYPE--OCTAL ASCII(CALL DIGITS)

JT78

+: TYPE ASCIZ STRING

764
:sGET OVER THE ASCIZ
<200>/PUT THIS DTO7 IN PROGRAMMABLE MODE THEN TYPE <CR>./

(SP)+,RO

#2000, 9CSR
PWROK

798

78$
<200>/ERRORS!

8CSR, -(SP)

:;POP STACK INTO RO

sMAN.MOD.
;BR=YES

GONE?

:: TYPE ASCIZ STRING

:sGET OVER THE ASCIZ
MANUAL MODE (BIT10) DIDN‘T CLEAR.

: s SAVE 8CSR FOR TYPEOQUT
::G0 TYPE--OCTAL ASCII(CALL DIGITS)

TYPE

654

.ASCIZ

8CSR

;CLEAR DEVICE

i3 TYPE ASCIZ STRING

64
:sGET OVER THE ASCIZ
<200>/POWER UP ALL DTO7S THEN TYPE <CR>./

(SP)+,RO

::POP STACK INTO RO

#4000,8CSR

;PWROK OK?

67%

i s TYPE ASCIZ STRING

664

:BR=YES

:sGET OVER THE ASCIZ

<200>/ERROR6! PWR.OK (BIT11) NOT SET.

MOV
TYPOC
HALT

aCSR, -(SP)

BR
CLR
JSR
TYPE

PWROK
PSW
PC,CONNEC

.ASCIZ

;IS IT CONTROL C?

694

163162

BIT

CSR= /

:sSAVE 8CSR FOR TYPEOUT

::6G0 TYPE--OCTAL ASCIICALL DIGITS)
;LOWER PRIORITY
;GO CONNECT

:: TYPE ASCIZ STRING

68
::GET OVER THE ASCIZ
<200>/POMER DOWN OTHER CPU THEN TYPE <CR>./

ROCHR

004000

CSR= /

PC,CNTLC

BIT
BNE
TYPE

016260

tREQ STILL THERE?
iBR=YES

JSR

RDCHR
004000

;RESET THE BUSS

@1,8CSR
5

CLR

64%:

ROCHR

MOV
TYPOC
HALT

;:658:

104410
012600
032777
001034
104401
000424

.ASCIZ

BIT
BEQ
TYPE

016056

163454

BR
RESET
BIT
BNE
TYPE

(SP)+,RO

::POP STACK INTO RO
;PWROK NOT OK?

CSR= /

.MAIN.
MACRO M1200 24-MAY-85 11:37
MANUAL INTERVENTION TEST

1792 016440
1793 016442
016446

016526

1794 0.6524
018532
1795 016534
1796 016536
1797 016542
1798 016544
1799 016552
1800 016554
016560

1801
1802
1803
1804

016624
016624
016630
016632
016634
016640
016640
016644

Ci6734
1805 016734
016736
1807
1808 016740
1809 016740
1810 016744
1811 016750
1812 016754
1813 016762
1814 016770
1815 016774
017000
1816
1817
1818
18:9
1820

1821

1822
1823
1824
1825
1826
1827

017056
017056
017060
017062
017070
017072
017076

017152
017152
017156
017160
017162
017164
017170
017172
017176
017202

001441
104401
000427
017746
104402
000000
004767
000677
032777
001032
104401
000421
017746
104402
000000
000167

104401
000433

PAGE 41-2

SEQ 0058
BEQ
TYPE

015450
Tt
H
708

163070

3s:

::738:
72%:

162772

4%
:

016646
;:758:
74%:

004767
005077
013746
012737
012777
005067
104401
000426

104410
012600
032777
001112
104401
000425

017746
104402
000000
000702
012706
005746
012637
104401
000440

007432
162652
000024
017164
000100
161002
017002

SWBPWF:

000024
162632

9200,8CSR
4

;STILL CONNECTED?
:BR=YES

728

:3GET OVER THE ASCIZ

.ASCIZ

TYPE

.ASCIZ

;:658:

JSR
CLR
MOV
MOV
MOV
CLR
TYPE
BR
.ASCIZ

::678:

RDCHR
MOV
BIT
BNE
TYPE
BR
.ASCIZ

1¢:

645%:
040000

162532

017100

16 2424

001100

664
:

11%:

000024
017204

;:69%:

<200>/ERROR7! PWR. OK (BIT11) NOT CLEARED.

;IS IT CONTROL C?

RDCHR
MOV

104410
012600

13 TYPE ASCIZ STRING

zs.cuth

BR
BIT
BNE

MOV
TYPOC
HALT

177314

13GET OVER THE ASCIZ

Jcfl

TYPE

016562

708

8CSR,-(SP)

163050

:BR=0K

718

MOV
TYPOC
HALT

007634
000200

.ASCIZ

MOV
TYPOC
HALT
BR
MOV
TST
MOV
TYPE
BR
.ASCIZ

,738

::SAVE 8CSR FOR TYPEOUT

360 TYPE--OCTAL ASCIICALL DIGITS)

:3TYPE ASCIZ STRING

<200>/ERROR8! LOST SHARED BUSS.

8CSR,-(SP)

CSR= /

::SAVE 8CSR FOR TYPEOUT

:3G0 TYPE--OCTAL ASCIICALL DIGITS)

PWROK
758

743

CSR= /

'
::TYPE ASCIZ STRING

:3GET OVER THE ASCIZ

<200>/RCCTORE ALL DTO7S TO ORIGINAL STATE THEN TYPE <CR>./

(SP)+,RO

::POP STACK INTO RO

PC,CNTLC
8CSR

;IS IT CONTROL C?
;CLEAR DEVICE

@118 ,80PWRVEC
€100,8CSR
PSW

;SET RETURN
:SET I.E.
;LOWER PRIORITY

64%

::GET OVER THE ASCIZ

(SP)+,R0O

::POP

678
664

:: TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

8¢PWRVEC, -(SP)

654

: ;PUSH 34PWRVEC ON 5TACK

::TYPE ASCIZ STRING

<200>/POMWER DOWN THE SHARED BUSS THEN TYPE <CR>./

#40000,8CSR
24

<200-/ERROR8!

8CSR, -(SP)
18
#STACK,SP

-(SP)
(SP)+,3%PWRVEC
,694

68
<200>/ERROR9!

574Uk INTO RO

;SWB PWF Sefl?
;:BR=YES

SWB PWF (BIT14) NOT SET.

CSR= /

;s SAVE 9CSR FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
;RESET STACK

;POSITION STACK
::POP STACK INTO 3#PWRVEC
;s TYPE ASCIZ STRING

::GET OVER THE ASCIZ
TRAP THRU POWER FAIL VECTOR WHEN DISCONNECTED.

CSR= /

.MAIN,
MACRO M1200
24-MAY-85 11:37
MANUAL INTERVENTION TEST

1832
1833
1834
1835
1836

017372

017372
017374
017376
017404
017406
017412

017474
1837 017474
017500
1838 017502
1839 017504
1840
1841 017510
1842 017514
1843 017522
1844 017530
1845 017534
1846 017540
1847 017546
017552

017622
1848 017622
1849 017630
1850 017634
017640
017734
1851 017734
017740
1852 017742
1853 017744
1854
1855 017746
1856 017746
1857 017752
1858 017760
1859 017766
1860 017774
1861 020002
1862 020004
1863 020012
1864 020020
1865 020026
1866 020034
1867 020036

104401
000423

104410
012600
032777
001441
104401
000430
017746
104402
000000
000167
017510
005077
012737
012777
005067
004767
052777
104401
000423

012767
004767
104401
000435

SEQ 0057
684:

162312

TYPOC

8CSR, -(SP)

: s SAVE GCSR FOR TYPEOUT

::G0 TYPE--OCTAL ASCIICALL DIGITS)

HALT

017?

2%:

017746
104402
000000
000611

N
ny

017304
1828 017304
017310
1829 017312
1830 017314
1831 017316
017316
017322

PAGE 41-3

;718
mns.

TYPE

.ASCIZ
RDCHR

040000

162216

BIT
BEQ
TYPE

017514
;3738
72%:

162122

MOV
TYPOC
HALT

177260
162106
017746
020602
160242
001712
000100
017554

011470
001744
017642

017746
104402
000000
000661

161662

004767
017767
042767
042777
012737
000000
017767
016767
062767
026767
001465
104401

006424
161644
000400
000100
020004

.ASCIZ

000024
162074

ERREN=.
3s:

CLR
MOV
MOV

TYPE

002010

::758:
74%:

.ASCIZ

MOV

JSR
TYPE

s:778:
76%:

718

s s TYPE ASCIZ STRING

704
: sGET OVER THE ASCIZ
<200>/POWER UP SHARED BUSS THEN TYPE <CR>/

(SP)+,RO

:DID IT CLEAR?
iBR=YES

72%
<200>/ERROR10!

: sGET OVER THE ASCIZ
SWB PWF (BIT14) DIDN'T CLEAR.

8CSR, -(SP)

020044

:s TYPE ASCIZ STRING

: s SAVE 8CSR FOR TYPEOUT

.ASCIZ

8CSR

;:CLEAR IT

@PFVSEV, 80PWRVEC
:SET RETURNS
#PWFSER, 8VECO
PSW
PC,CONNEC
;GO CONNECT
#100,8CSR
sSET 1.E.

754

:: TYPE ASCIZ STRING

744

<200>/POWER

THE

: ;GET OVER THE ASCIZ

SHARED BUSS DOWN

THEN UP./

11470, TOCK
PC,WAIT

:SET TIMER FOR 1 MIN.

764
<200>/ERROR11!

;sGET OVER THE ASCIZ
NO EVIDENCE OF POWER FAILURE DETECTED.

JT74

MOV
TYPOC

8CSR, -(SP)

JSR
MOV
8IC

PC,CNTLC
8CSR,BAD
#400,BAD
#100,8CSR

s TYPE ASCIZ STRING

: s SAVE 9CSR FOR TYPEOUT

::G0 TYPE--OCTAL ASCIICALL DIGITS)

PFVSEV:

161146
161140
161626
000024
162662
161104
161076
161072

BIC
MOV

1$:

CSR= /

+:60 TYPE--OCTAL ASCII(CALL DIGITS)

HALT

161612
161734
060301
161072

: ;POP_STACK INTO RO

#40000,8CSR
3

CLR
JSR
BIS

162054

SWBPWF

HALT
MOV

ADD

cMP
BEQ

TYPE

#1%,94PWRVEC

:IS IT CONTRZL C?
:SAVE CSR CONTINTS

iMASK B8RQ IF PRESENT
:DROP I.E.
;POINT TO POWER UP ROUTINE

:IF YOU STOPPED HERE NO POWER UP TRAP OCCURED

aCSR, TEMP2

KONST, GOOD
#60301,G00D
GO0D,BAD
2%

.65¢

;STORE CSR

;ASSEMBLE GOOD DATA

;CORRECT AT PWR DOWN?
;BR=YES

i s TYPE ASCIZ STRING

CSR= /

.MAIN.
MACRO M1200 24-MAY-85 11:37
MANUAL INTERVENTION TEST
020042
020132

v16746
104402
104401
000410

020166
1870 020166
020172
1871 020174
1872 020176
1873 020202
1874 020204
1875 020210
1876 020216
1877 020224
1878 020232
1879 020240
1880 020242
020246

016746
104402
000000
012706
005746
000167
016767
042767
162767
026767
001460
104401
000432

020334
1881 020334
020340
1882 020342
020346

016746
104402
104401
000410

020370
1883 020370
020374
1884 020376
1885 020400
1886 020402
1887 020410
1888 020412
020416

016746
104402
000000
000676
032777
001442
104401
000430

1889

1890
1891
1892
1893

1894
1895
1896
1897
1898
1899
1900

020564

SEQ 0058

000433

1868 020122
020136
1869 020140
020144

020500
020500
020504
020550
026524
020514
020516
020516
020522

PAGE 41-4

017746
104402
000000
004767
000630

104401

000420

020564

BR
.ASCIZ

160770

MOV
TYPOC
TYPE

020146

1:67$:
66$:

160732
001100
177300
162460
000400
020301

160666

11¢:
160710
160702
160672
160666

2%:

::698:
68$:

020350
;s 71s:
708:

160530

040000

161212

020420
::738:
72%:

161116
005662

4%:

020524

::75%:

012706
005746

012637
000167

000024
000454

02060¢

017767

161014

.ASCIZ

POSTSV=,

001100

160316

PWFSER:

<200>/ERROR12!

GOO0D, -(SP)

: s SAVE GOOD FOR TYPEOUT
:3G0 TYPE--OCTAL ASCIICALL DIGITS)

O#STACK,SP

;RESET STACK
;POSITION STACK

-(SP)

ERREN
TEMP2,BAD
9400,8A"
92030.
. GAoD
GO0D,BAD
34
694
684
<200>/ERROR13!

.ASCIZ

<200>/IT SHOULD

J 718
70

MOV
TYPOC
HALT

GOO0D, -(SP)

BIT
BEQ
TYPE

#40000,8CSR
4%
. 738
724

MOV
TYPOC
HALT
JSR
BR

.ASCIZ

CSR WAS 7/

674
66$
6éG§T OVER THE ASCIZ
<200>/IT SHOULD

BAD, -(SP)

.ASCIZ

::GET OVER THE ASCIZ

CSR INCORRECT & POWER DOWN TIME.

: sSAVE BAD FOR TYPEOUT
:3G0 TYPE--OCTAL ASCIICALL DIGITS)
::TYPE ASCIZ STRING

MOV
TYPOC
TYPE

TYPE

74%:

020564
020570
020572
020576

MOV
TYPOC
HALT
MOV
TST
JMP
MOV
B8IC

CMP
BEQ
TYPE

020250

160566

.ASCIZ

644

114

;:GET PWR UP DATA
:MASK BRQ IF PRESENT
;CORRECT GOOD DATA
;CORRECT @ PWR UP?
:BR=YES
::TYPE ASCIZ STRING
:sGET OVER THE ASCIZ

CSR INCORRECT & POWER UP TIME. CSR WAS /

: sSAVE BAD FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
+: TYPE ASCIZ STRING

aéGsT OVER THE ASCIZ

::SAVE GOOGC FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)
;DID SWB PWF CLEAR?
;BR=YES
:: TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

<200>/ERROR14!

SWB PWF (BIT14) DIDN'T CLEAR.

8CSR, -(SP)

:sSAVE 8CSR FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

PC,CNTLC
11%

;IS IT CONTROL C?

758

:: TYPE ASCIZ STRING

CSR= /

744
;+CFT OVER THE ASCIZ
<200>/THIS DTO7 TR2A7S ON POMER FAIL!/

MOV
TST
MOV
JMP

#STACK,SP
-(SP)
(SP)+,3¢PWRVEC

MANEND

:RESET STACK
;POSITION STACK
::POP STACK INTO 89PWRVEC

MOV

8CSR,BAD

:SAVE CSR

MAIN.
MACRO M1200 24-MAY-85 11:37
MANUAL INTERVENTION TEST

1901 020610
1902 020616
1903 020624
1904 020632
1905 020640
1906 020642
020646
020726

1907 020726

020732
1908 020734
020740

020756
1909 020756
020762

1910 020764
1911 020766
1912 020772
1913 020774
1914 021000
1915 021006
1916 021012
1917 021020
1918 021026

1919 021034
1920 021042
1921 021044
021050
021134
1922 021134
021140
1923 021142
021146
1924

1925
1926
1927

021164
021164
021170
021172
021174
021176
021176
021202

042767
016767
062767
026767
001457
104401
000427

000400
161130
060301
160266

016746

104402
104401
000406

64$:

160174
020742

::678:

016746
104402
000000
012706
005746
000167
012767
004767
017767
042767
162767
026767
001455
104401
000431

017746
104402
104401
000406

66$:

160142
001100
176510
000632
000566
160604
000400
060201
160064

118:
000632

1$:

160106
160100
160070
160064

021052

160462

;:698:
68$:

021150

016746
104402
000000
000674

157734

104401
000423

021204

:3718:
70%:

2%:
::73%:

177306

1930 021256
021256
021262

104401
000420

021264

1931 021324
1932 021326

160310
160300
160272
160266

::658:

000167

021324

SEQ 0059

020650

021252
lggg 021252
1

PAGE 41-5

72%:

MANEND:

::658:

000000
000776

644:

BIC
MOV
ADD
CMP
BEQ
TYPE
BR

#400,BAD
KONST, GOOD
#60301,G00D

+MASK BRQ IF PRESENT
sASSEMBLE GOOD DATA

GOO0D,BAD

;CORRECT @PWR DOWN?

.65%

:3sTYPE ASCIZ STRING

:BR=YES

ASCIZ

644
<200>/ERROR15!

MCV

BAD, -(SP)

TYPOC
TYPE
BR

.ASCIZ

MOV
TYPOC
HALT
MOV
ST
JMP
MOV
JSR
MOV
BIC
suB
CMP
BEQ
TYPE
BR
_ASCIZ

MOV
TYPOC
TYPE
BR
.ASCIZ
MOV
TYPOC
HALT
BR

:3GET OVER THE ASCIZ
CSR INCORRECT & POWER DOWN.

s s SAVE BAD FOR TYPEOUT

674

+3G0 TYPE--OCTAL ASCIICALL DIGITS)
s TYPE ASCIZ STRING

GOO0D, -(SP)

:3SAVE GOOD FOR TYPEOUT

664
: sGET OVER THE ASCIZ
<200>/SHOULD BE /

+:GO TYPE--OCTAL ASCIICALL DIGITS)

@STACK,SP
;RESET STACK
-(SP)
;POSITION STACK
ERREN
#632, TOCK
:SET TIMER FOR SSEC.
PC,WAIT ;GO WAIT
8CSR,BAD
:SAVE CSR
#400,BAD
iMASK BRQ IF PRESENT
#60201,G00D
sCORRECT DATA
GO0D,BAD
:CORRECT NOW?
2%
iBR=YES

694

684
<200>/ERROR16!

8CSR, -(SP)

:: TYPE ASCIZ STRING

i ;GET OVER THE ASCIZ
CSR INCORRECT AFTER POWER UP.

: s SAVE 8CSR FOR TYPEOUT

718

GoOD, -(SP)

i s SAVE GOOD FOR TYPEOUT

704
::GET OVER THE ASCIZ
<200>/SHOULD BE /

::GO TYPE--OCTAL ASCII(CALL DIGITS)

11%

724
: sGET OVER THE ASCIZ
<200>/THIS DTO7 INTERRUPTS ON POWER FAIL!/

JMP

POSTSV

TYPE
BR

644

HALT
BR

CSR WAS /

::G0 TYPE--OCTAL ASCIICALL DIGITS)
;s TYPE ASCIZ STRING

TYPE
BR
.ASCIZ

_ASCIZ

WAS /

. 738

,65%

<200>/MANUAL

s TYPE ASCIZ STRING

: ;GET OVER THE ASCIZ

INTERVENTION

TEST

DONE./

.MAIN.
MACRO M1200 24-MAY-85 11:37
MANUAL INTERVENTION TEST
1934

PAGE 42
i

SEQ 0060

NEWTST

<<INSERT NEXT TEST HERE>>

.MAIN.
MACRO M1200
END OF PASS ROUTINE

24-MAY-85 11:37

PAGE 43

SEQ 0061

1936

.SBTTL

END OF PASS ROUTINE

L
T T T LT
T

021330
021330
021332
021336
021342
021346
021354
021356
021360
021362
021364
021366
021370
021374
021400
021402
021406
021412
021414
021416
021420
021422
021424
021426
021426
021430
021432
021435
021440
021443
021446
021451

+#INCREMENT THE PASS NUMBER ($PASS)
1#TYPE "END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER)
;#IF THERES A MONITOR GO TO IT
i#IF THERE ISN'T JUMP TO RESTRT

000004
005067
005067
005267
042767
005327
000001
003022
012737
000001
021356
104401
016746
104405
104401
013700
001405
000005
004710
000240
000240
000240
000137
002526
377
015
116
120
123
000

$EOP:

157544
157630
157646
100000

157640

021435
157614

SCOPE
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT
TYPE

MOV
TYPDS
TYPE
$GET42: MOV
BEQ
RESET
$ENDAD: JSR
NOP

021432
000042

NOP

$DOAGN:

377
012
104
101
040

000

105
040
123
043

$RTNAD:
$ENULL:
$ENDMG:

NOP
JMP
.WORD
.BYTE
.ASCIZ

$TSTNM
$TIMES
$PASS

+:ZERO THE TEST NUMBER
:sZERO THE NUMBER OF ITERATIONS
: s INCREMENT THE PASS NUMBER

#100000, $PASS
(PC)e

:sDON'T ALLOW A NEG. NUMBER
;:L00P?

$DOAGN
(PC)+,8(PC)+
1

i YES
: sRESTORE COUNTER

. SENDMG

$PASS, -(SP)
. $ENULL
8042 ,R0
$DOAGN

PC,.(RO)

;s TYPE "END PASS #*

::SAVE $PASS FOR TYPEOQUT
:3G0 TYPE--DECIMAL ASCII WITH SIGN
;s TYPE A NULL CHARACTER
::GET MONITOR ADDRESS
; ;BRANCH IF NO MONITOR
;sCLEAR THE WORLD
::G0 TO MONITOR
: s SAVE ROOM

;:sFOR

;3ACT11
8(PC)+
: sRETURN
RESTRT
-1,-1,0
: sNULL CHARACTER STRING
<15><12>/END PASS &/

-MAIN.
MACRO M1200
USER ROUTINES
1938
1939
1940
1941 021452
1942 021460
1943 021464
1944 021466
1945 021470
1946 021476

1947 021504

1948 021506
1949
1950 021510
1951 021516
1952 021522
1953 021524
1954 021526
1955 021532
1956 021534
1957 021536
1958
1959 021540
1960 021546
1961 021552
1962 021560
1963 021564

1964 021566

1965 021574
1966 021600
1967 021606
1968 021612
1969 021614
1970 021620
1971 021622
1972 021626
1973 021630
1974 021634
1975 021636
1976 021640
1977
1978
1979
1980
1981 021642
1982 021644
1983 021650
1984 021656
1985 021660
1986 021662
1987 021664
1988 021666
1989 021670
021674
021736
1990 021736
021742

24-MAY-85 11:37

PAGE 44

SEQ 0062
.SBTTL USER ROUTINES

012767
105777
100410
000774
012777
012767
000765
000207

000240
160136

000006

000001
000774

160124
177762

012767
016700
001405
000241
006167
005300
000772
000207

000004
160202

160212

012767
000167
012767
000167
000000
012767
000167
016767
005777
000400
005367
001372
005367
001364
005267
000207
000000
000000

000122
000026
000244
000014

005000
012701
032777
001434
005200
001372
005301
001370
104401
000420
017746
104402

CONNEC: MOV
14:
TST8
BMI
2$:
BR
MOV
MOV
BR
34:
RTS

@1,8CSR
774,24
14
PC

CONID:

#4,COVID

MoV

000000
160142
160010

BEQ

CovID

;SHIFT ID
;COUNT DOWN TO ZERO

24:

RTS

RO
14
PC

000072

WAIT10:

MOV

000060

WAIT20: MOV

000044

TRIG:
WAITOS:

1s:

000030

WAIT:

1$:

000
MOV
MOV

TST

(EXIT

#122,TOCK
WAIT
9244, TOCK
WAIT

:SET CLOCK

51, TOCK

:SET CLOCK

WAIT
TIMA,TICK
8CSR
.2

:SET CLOCK

:SET BASE TIMER

TICK

000012
000004
TICK:
TOCK:

0
©

SYNCUP:

CLR

157744

BEQ
INC
BNE
BNE
TYPE

021676

157660

;CONVERT SLAVE ID

:SAVE CURRANT ID
:BR IF DONE

000016

000400
020000

;SET SWITCH
sALL READY CONNECTED?
:BR = YES
: CONTINUVE
s CONNECT
;RESTORE SWITCH
iBR_UNTIL CONNECTED
sEXIT

CURID,RO
2%

160176

000051

#240,24

8CSR
3s
13

;:65%:
644:

.ASCIZ

MOV
TYPOC

1
TOCK
WAIT
TOCK
PC

RO
€400,R1
g%OOO0.0CSR

:SET DELAY TIME
;BUSS ACTIVE?
:BR=NO
;TIME OUT

RO
1
R1
1
654
:: TYPE ASCIZ STRING
644
:sGET OVER THE ASCIZ
<200>/SYNCRONIZATION FAILURE!
CSR= /

8CSR, -(SP)

i s SAVE 8CSR FOR TYPEOUT
::60 TYPE--OCTAL ASCIICALL DIGITS)

-MAIN.
MACRO M1200
USER ROUTINES
1991 021744
1992 021746

1993 021750
1994 021752
1995 021756

24-MAY-85 11:37

000000
000776

005000
012701
032777

1996 021764
1997 021766
1998 021770

001043
005200
001372

2000 021774
2001 021776

001370
104401

1999 021772
022002

000427
017746

2003 022070
2004 022072

000000
000776

2005 022074

2006
2007
2008

2009

2010 022076
2011 022102
2012 022106

104402

012701
012702
012703

005067

2015 022120
2016 022124
2017 022126

005267
005711
100373

2018 022130

012122

020112
001407
005722
100374
005201

2027 022160
2028 022162

001366
000404

2030 022166
2031 022172
2032 022174
2033 022200
2034 022204
2035
2036
2037
2038

2039 022206
2040 022214
2041 022220
2042 022224
2043 022230

h—

022701

011223

157540

157532

177777
000462
001676
157444
000001

DEC

BNE
INC
BNE

44
RO
3

38
678

66$

MOV

8CSR, -(SP)

.ASCIZ

HALT
BR

RTS

;BR=YES
s TIME OUT

+s TYPE ASCIZ STRING

:sGET OVER THE ASCIZ

<200>/MASTER PORT DIDN'T TAKE SHARED BUSS!

.-2

CSR=

:sSAVE 8CSR FOR TYPEOUT

JEXIT

(R1)+,(R2)+

sFILL TEMP

CLR

MOV

38:

64:

sCLEAR PORT COUNT

INC
TST
BPL

EXPTCT
8R1
14

CLR

;LOAD DETECTOR

CMP
BEQ
TST
BPL
INC

R1,(R2)
S
(R2)+
33
R1

;ID FOUND?
;BR=YES
:STEP AND TEST FOR LAST
:BR IF NOT DONE
:STEP DETECTOR

BNE
BR

24
64

;BR IF NOT DONE
sFINISH UP

MOV

CMP

Ss:

EXPTCT

#-1,8R2
OTEMP1 ,R2

4 ,R1

MOV

8R2,(R3)+

RTS

MOV
BR
DEC
MOV

9400,8R2
4%
EXPTCT
9-1,68R3

+:G0 TYPE--OCTAL ASCIICALL DIGITS)

1$:

24:

157530

;BUSS ACTIVE?

:STORE ADDRESS OF DATA
+SET TEMPORARY STORAGE POINTER
;LOAD FIRST SEQUENCER ADDRESS

MOV

157456
177777

;RESET DELAY TIME

#PORTNO,R1
OTEMP1,R2
#SEQ,R3

000004

012767
004767
012701
117721
112721

000207

RO
#0,R1
#20000,8CSR

SEQMAK: MOV
MOV
MOV

4%:

000400

.-2

CLR
MOV
BIT

;CONSTRUCT SEQUENCER

001644
001732
001660

012712
000765
005367
012713

HALT
BR

TYPOC

4%:

001732

022142
022144
022146
022150
022152

2029 022164

157534

012702

2021
2022
2023
2024
2025

SEQ 0063

BNE
TYPE

g?”:

177777

005001

2026 022154

3$:

022004

012712

2019 022134

2020 022136

157636

000207

2013 022112

2014 022116

24:

005301

2002 022062

022066

000000
020000

PAGE 44-1

;:COUNT THEM
;LAST ONE
:BR=NO

;:TERMINATE DATA
sRESET DATA POINTER

;CHECK FOR DONE

:LOAD SEQUENCER

;ERASE ENTRY
s CONTINUVE
;CORRECT EXTERNAL PORT COUNT
: TERMINATE SEQUENCER
(EXIT

;ROUTINE TC ASSEMBLE MENUS

MASMEN: MOV
JSR
MOV
1$:
MOVB
MOVB

#-1,0NOFF
PC,FLUSHM
OMENU,R1
SNEXENT,(R1)+
€1,(R1)»

;SET MASTER/SLAVE INDICATOR
;G0 FLUSH MENV
:SET POINTER
:LOAD MENU WITH SLAVE ID
:LOAD FUNCTION 01

——

-MAIN.
MACRO M1200
USER ROUTINES

2044 022234
2045 022240

2046 022242
2047 022246
2048 022250
2049 022254
2050 022260
2051 022262
2052 022266
2053 022272
2054
2055
2056 022274
2057 022300
2058 022304
2059 022310
2060 022316
2061 022320
2062 022324
2063 022330
2064 022334
2065 022336
2066 022340
2067 022344
2068 022350
2069 022352
2070 022356
2071 022360
2072 022364
2073 022370
2074 022372
2075 022400
2076 022402
2077 022406
2078 022412
2079 022416
2080 022420
2081 022424
2082 022430
2083 022432
2084 022436
2085 022442
2086
2087
2088
2089
2090 022444
2091 022452
2092 022460
2093 022464
2094 022466
2095 022474
2096 022500
2097 022502
2098 022506
2099 022514
2100 022522

24-MAY-85 11:37

004767
000771
004767
000405
012711
012704
000207
117721
112721
000763
005067
004767
012701
027767
001010
117721
112721
004767
000765
000405
117721
112721
000767
004767
000405
012711
012704
000207
027767
001014
117721
112721
004767
000765
012711
012704
000207

117721
112721
000763

PAGE 44-2

SEQ 0064
000302

JSR

000274

24:

PC,STPNEX
34

177777
001676
157406
000002

34:

157444
000376
001676
157360

SALMEN:

157326

157350
000003
000206

:‘2 + STPNEX

#MENU,
R4
PC
SNEXENT,(R1)+

ONOFF
PC,FLUSHM
OMENU, R1
g:EXENT +PORTNO

1¢:

SNEXENT,(R1)+
#3,(R1).

24:

:E.STPMX

157330

43
SNEXENT,(R1)+

000164

2
PC,STPNEX
S$

000005

177777
001676
157276

157244

¢-1,8R1
OMENU, R4
PC
%EXENT.PORTW

S$:

157266

SNEXENT,(R1)+

000004
000124

64:

PC,STPNEX
S$

177777
001676

¢-1,6R1
OMENU,
R4

157236
000005

74:

SNEXENT,(R1)+
s.(fll)o

sGET NEXT SLAVE ID
s CONTINVE
:GO GET NEXT ID
:BR=NOT FINISHED
s TERMINATE MENV
:STORE MENUS
sEXIT
;LOAD FUNCTION @2
s CONTINVE

sCLR MASTER/SLAVE INDICATOR
:GO FLUSH MENV
+SET POINTER
:IS THIS ME?
:BR=NO
sLOAD SLAVE ID
sLOAD FUNCTION 3
;GO GET NEXT ID
:BR=NOT DONE
iGO TO NEXT SET
sLOAD FUNCTION S

sCONTINVE
:GO GET NEXT ID
1GO_CONTINUE
s TERMINATE MENV
1 STORE MENUS
$EXIT
+IS THIS ME?
:BR=NO

sLOAD FUNCTION 4

s TERMINATE MENV
:STORE MENUS
sEXIT
sLOAD FUNCTION S
s CONTINVE

sROUTINE TO INIT SEQUENCER
012767
012767
017705
000207
062767
005777
100761
017705
016767
062767
005777

001660
001662
157206

157220
157214

SEQINT: MOV
MOV
MOV

#SEQ,SEQPTR
#SEQ+2 ,NEXENT
:(S:EGPTR RS

000002

157176

SEQSTP: ADD
TST
BMI

02,SEQPTR
S8SEQPTR
SEQINT
G8SEQPTR,RS
SEQPTR ,NEXENT
02 ,NEXENT
SNEXENT

157172

157164
157160

000002

157146

157160
157152

RTS

+SET POINTER TO FIRST ENTRY
1GET NEXT ENTRY
sLOAD RS
$EXIT
+STEP SEQUENCER
sCHECK FOR END
+RELOAD IF DONE
:STEP NEXT ENTRY
;OFF THE END?

+MAIN.
MACRO M1200
USER ROUTINES
2101 022526
2102 022530
2103 022532
2104 022540
2105 022542
2106 022550
2107 022554
2108 022556
2109 022564
2110 022570
2111 022572
2112 022576
2113
2114
2115 022600
2116 022604
022610
022670
2117 022670
022674
2118 022676
2119 022700
2120
2121 022702
2122 022706
2123 022712
2124 022716
2125 022720
2126 022722
2127 022724
2128 022730
2129 022734
2130 022740
2131 022742
2132 022746
2133 022750
2134 022752
2135
2136
2137 022754
2138 022754
2139 022762
2140 022770
2141 022776
2142 023004
2143 023006
2144 023014
2145 023016
2146 023024
2147 023026
2148 023032
2149 023036
2150 023042
2151 023044
2152 023046
2153 023050

24-MAY-85 11:37

100401
000207
012767
000773
062767
005777

100003

012767
027705
001002
062716
000207

14:

001660

157134

24:

000002

157124

STPNEX
:

157120

001660
157104

157110

000002

011667
104401
000427

156322
022612

016746
104402
000000
00776

156232

012700
012701
012720
005301
001374
000207
012700
012701
012720
005020
012720
005301
001374
000207

001676
000013

012767
012777
017767
032767
001010
032767
001765
012767

PAGE 44-3

14:

24:

00PS:

$:658:

644:

24
PC
O#SEQ,NEXENT
14
92 ,NEXENT

i.:EXENT

O#SEQ,NEXENT
ONEXENT,RS

24
92,85P
PC

1BR=YES
sNO! EXIT
sCORRECT POINTER
sEXIT
;STEP NEXT ENTRY
;OFF THE END?
;BR=NO
sRESET
sBACK TO CURRENT DTO7?
1BR=NO
$SET UP FINISHED RETURN
sEXIT

8SP,BAD
654

$SAVE ERROR PC
13 TYPE ASCIZ STRING
13GET OVER THE ASCIZ

BAD, -(SP)

$:SAVE BAD FOR TYPEOUT
1360 TYPE--OCTAL ASCIICALL DIGITS)

644
<200>/UNEXPECTED INTERUPT FROM DTO7 AT ADDRESS.../

0-2
FLUSHM:

17mn

1%:

001634
000017
177777

FLUSHP :

1mnm

14:

000340
000001
156626
000400

156130
156122

100000

156112

mmm

156610

156602
156070
177703

155014

DMODE :
34:
4%:

OMENU,
RO
1. ,R1

R1
14
PC
#0T03,R0

1SET POINTER
$SET FLUSH COUNT
sFLUSH WITH -1
s COUNT
sCONT.
EXIT
s1LOAD POINTER
$SET COUNT
1FLUSH

R1
14

sFLUSH WITH -1
s COUNT
sCONT
sEXIT

sRISE PRIORITY
1 CONNECT
1SAVE CSR
;LOOK FOR BRQ
1BR=FOUND
sDID ME TIME OUT?
1BR=NO
s INDIACATE DTO3 MODE

i EXIT
+INDIACATE DTO7 MODE
1SAVE IMAGE
sSAVE ONLY RQO-3

sCONVERT RQ BIT

JMAIN.
MACRO M1200
USER ROUTINES
2154 023052

2155 023056

2156 023060
2157 023062
2158 023064

24-MAY-85 11:37

032700

001051

005202
000241
006000

000001

2159 023066

022702

000004

2161 023074
023100

104401
000433

023102

2162 023170

016746

155732

2163 023176

000000

2165 023202

010267

2160 023072
—

023174

2164 023200
2166
023206
2167 023210
2168 023212

2169 023214

023220

023276

2170 023276

101367

104402

000776

000241
006000
001436

104401

000426

2179 023330
2180 023334

012767
005067

000340
156416

2181 023340

2182 023342
2183 023346
2184
2185
2186
2187

023352
023354
023360
023362

023366
023422

005077
105777
100775

005277
005777
100424
005267
001372
104401

000415

005067
012767
005377
005777

156300
000340
156140
156134

2197 023466
2198 023470
2199 023474

100430
005267
001372

154452

DTIME:

1$:
2%:

::65%:
64%:

000001
156160

100375

8s:

023370

012777
105777

2192 023442

;:678:
664
:

156366

2190 023430
2191 023436
2193 023444
2194 023450
2195 023456
2196 023462

18IT SET?

INC
cLC
ROR

sSTEP INDIACATOR

154346

156254

156164

3s:

1BR=YES

04 ,R2

;700 HIGH?

TYPE
BR

658
644

33 TYPE ASCIZ STRING
:3GET OVER THE ASCIZ

MOV

BAD, -(SP)

.ASCIZ

MOV

cLC
ROR
BEQ

<200>/ERROR!

-2

:BR =NO

BRQ DETECTED WITHOUT ANY RQ.

BIT SET.

:sSAVE BAD FOR TYPEOUT

$:G0 TYPE--OCTAL ASCIICALL DIGITS)

;FATAL ERROR BRQ SEEN BUT NO RQ

R2,PORTNO

;LOAD PORT ID®

RO
8s

;MAKE SURE ONLY ONE RQ IS PRESENT
:BR=0K

67$

;s TYPE ASCIZ STRING

66$

MOV

BAD, -(SP)

CLR

RTS

8CSR

;CLEAR AND DISCONNECT AND EXIT

MOV
CLR

#340,PSH
TIMA

;LOCK OUT INTERUPTS
;CLEAR TIMERS

.ASCIZ

TYPOC
HALT
BR

CLR
TST8

BMI

<200>/ERKROR!

-2

8CSR
8CSR
18

INC
TST

8CSR
8CSR

BMI
INC
BNE
TYPE

.ASCIZ

HALT

34
TIMA
24
,65%

PSW

BPL

4s:

5¢:

CLR
MOV
DEC
TST

BMI
INC
BNE

:3GET OVER THE ASCIZ

MORE THAN ONE RQ. BIT SET.

#1,8CSR
8CSR

TIMB
#340,PSW
8CSR
8CSR
64
TIMB
S$

CSR= /

::SAVE BAD FOR TYPEOUT

:3G0 TYPE--OCTAL ASCIICALL DIGITS)

;CLEAR DEVICE
;MAKE SURE IT'S CLEAR
;SET REQ
;TMO SET?

;:BR=YES
; COUNT

;3 TYPE ASCIZ STRING

:3GET OVER THE ASCIZ

<200>/ERROR! TIMING TOO LONG!/

CLR

MOV
TST8

154320

CMP

TYPE

156254
156250

000000

005067

74:

156266
156262

2188 023422

2189 023424

01,RO

BNE

TYPOC

023222

156306

000207

BIT

BHI

156436

005077

2174 023314
2175
2176
2177 023316
2178 023324

2173 023310

SEQ 0066

MALT

155624

104402
000000
000776

6%:

3253:

016746

023302
2171 023304
2172 023306

PAGE 44-4

;LOWER PRIORITY

;CONNECT
;CONNECTED?

;CLAER WATCHDOG TIMER
;RISE PRIORITY
;DROP REQ
;LOOK FOR TMO
;:BR=FOUND

CSR= /

MACRO M1200
MAIN.
USER ROUTINES

2200 023476
023502

023546
2201 023546
2202 023550
2203 023554
2204 023560
2205 023562
2206 023566
2207 023570
2208 023572
2209 023574
2210 023576
2211 023600
2212 023602
2213 023604
2214 023610
2215 023612
023616
023676
2216 023676
2217 023700
2218 023702
2219 023706
2220 023710
023714
023776
2221 023776
2222 024000
2223 024002

2224
2225
2226
2227
2228
2229
2230
2231
2232

2233
2234
2235
2236
2237
2238
2239

024006

24-MAY-85 11:37

104401
000421
000000
016700
016701
005002
012703
060002
005303
001375
160102
005203
020102
101774
020327
103034
104401
000427

PAGE 44-5

SEQ 0067
023504

TYPE

1:678:
66$:

156172
156170

63:

000031
78:

8s:

000033

023620

000000
000776
005077
000207

.ASCIZ

68$:
000044

9s:

023716
;s71s:
708:

155614

11:

674

13 TYPE ASCIZ STRING

66%

1:GET OVER THE ASCIZ

TIMA,RO

sCOMPARE TIMING FOR PROPER RATIO

<200>/ERROR! WATCHDOG TIMING TOO LONG!/

HALT

MOV

TIMB.R1

CLR
MOV
ADD
DEC
BNE
SuB
INC
cHp
BLOS
CMP
BHIS

R1,R2
8s
R3,033
9s

BR
.ASCIZ

684
:sGET OVER THE ASCIZ
<200>%ERROR! WATCHDOG/REQUEST TIMER RATIO TOO LOW'Ss

TYPE

::698:

000000
000776
020327
101435
104401
000430

R2
#25. ,R3

RO,R2
R3
7
R1.R2
R3

693

sMULTIPLY TIMA BY 25

:BR=NOT DONE
;:DIVIDE TIMA BY TIMB

:DONE?
:BR=NO
;700 LOW?
:BR=NO

s TYPE ASCIZ STRING

HALT

BR
cMP
BLOS

TYPE
BR
.ASCIZ

R3, %44
11%

718
708
<200>%ERROR!

:TO0 HIGH?
:BR=NO
:: TYPE ASCIZ STRING
:sGET OVER THE ASCIZ
WATCHDOG/REQUEST TIMER RATIO TOO HIGH's

HALT

BR
CLR

RTS

.8
8CSR

;CLEAR AND DISCONNECT

;PROGRAM PARAMETER INPUT ROUTINE
024010
024016
024022
024026
024032

012767
005067
004767
104401
000433

024122
024122
024124
024126
024132
024136
024142
024144
024150

104410
012600
110067
104401
022700
001173
104401
000444

024262
2240 024262
024266

104401
000411

177777
155736
176676

024034

002166

GETADR: MOV
CLR
JSR
TYPE
BR
-ASCIZ
;:658:

64%:

RDCHR
MOV

002054
026206
000131

024270

::67%:
66$:

:SET PARFLG
;:CLEAR FLAG
;GO FLUSH OUT PARAMETER BLOCK
654
:: TYPE ASCIZ STRING
64
:;GET OVER THE ASCIZ
<200>/D0 YOU WANT TO CHANGE THE DEVICE ADDRESSES?(Y OR N)/

(SP)+,RO

MOvVB

RO,ECHOB

cMP
BNE

@'Y,RO
104

TYPE

024152

@-1,PARFLG
USEPAR
PC,FLUSHP

TYPE
BR
-ASCIZ
TYPE

:STORE CHAR.

.ECHOB

:YES?
:BR=NO

678
:: TYPE ASCIZ STRING
664
::GET OVER THE ASCIZ
<200>/IN THE FOLLOWING THREE PRINTOUTS TYPE THE NEW DATA OR O IF NO CHANGE./
694

68$

:: TYPE ASCIZ STRING

:sGET OVER THE ASCIZ

-MAIN,

MACRO M1200

USER ROUTINES

024312
2241 024312
024316
2242 024320
2243 024324
2244 024326
2245 024330
2246 024332
2247 024336
024336
024342

024366
2248 024366
2249 024372
2250 024376
024400
2251 024402
2252 024406
2253 024410
2254 024412
2255 024414
2256 024416
2257 024420
2258 024424
2259 024430
024430
024434

2260
2261
2262
2263

024456
024456
024462
024466
024470
024472
024474

2264
2265 024500
2266 024502
2267 024504
2268 024506
2269 024510
2270 024512
2271 024516
2272 024520
2273 024526
2274 024532
2275 024532
2276 024534
2277 024534
2278 024540
2279
2280 024546
2281
2282 024552
2283 024556
2284 024562

24-MAY-85 11:37

PAGE 44-6

SEQ 0068

016746
104402
104401
104412
012600
001402
010067
104401
000411

016700
042700
010046
104402
104401
104412
012600
001402
010001
000404
016701
042701
104401
000410

016700
042700
000300
010046
104402
104401
104412
012600
001405
000300
060100
010067
000405
042767
060167

1:69%:
68$:

155304
034425

154724
118:

024344

33 718:
70%:

154664
177000
034425

.ASCIZ

<200>/DEVICE ADDRESS= /

MOV
TYPOC
TYPE
RDOCT
MOV
BEQ
MOV

CSR, -(SP)

11%
RO, $BASE

TYPE
BR
.ASCIZ

718
#: TYPE ASCIZ STRING
704
:;GET OVER THE ASCIZ
<200>/DEVICE VECTOR= /

MOV
8IC
MOV
TYPOC
TYPE

$VECT1,RO
€177000,R0
RO, -(SP)

+SPACE
(SP)+,RO

+SPACE

:sSAVE CSR FOR TYPEOUT
+:G0 TYPE--OCTAL ASCIICALL DIGITS)
:STORE INFO

::SAVE RO FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

(SP)+,RO

154632
177000

12%:
14s:

024436

::738:
72%:

154574
000777

12¢
RO,R1
14%
$VECT1,R1
#177000,R1

:SAVE
:JUMP
:SAVE
sMASK

738
72%

:: TYPE ASCIZ STRING
::GET OVER THE ASCIZ

IT TEMPORARILY
OVER NEXT TWO LINES
OLD VECTOR ADDRESS
OUT JUNK

<200>/BREAK LEVEL= /
$VECT1.RO
#777.R0
RO

034425

+SPACE

:sSAVE RO FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

(SP)+,RO
13$

RO
R1,RO
RO, $VECT1
10$
#777,$VECT1
R1,$VECT1

154540
000777
154524

154530

13s:
10¢:

000207
004767
012767

177250
024552

000167
024552
004767
004767
005767

155210

176176
176534
155046

PARIN:

156124

REPAR=,
JSR
JSR
TST

;:RETURN

PC,GETADR
®REPAR,ROUTE

:SET RETURN

START
PC,DMODE
PC,DTIME
0703

;GO GET MODE AND ID#
;GO GET DEVICE TIMING

;WHAT MODE?

MAIN.
MACRO M1200
USER ROUTINES
2285 024566
2286 024570
024574

024632
2287 024632
2288 024634
024634
024640

001422
104401
000416

;:658:

644:

000421

024670
2289 024670
024674

016746
104402

154750

024702

104401
000447

024704

2294 025032
025036

104412
012667
001523
104401
000442

BEQ
TYPE

024576

024642

00>/ 0=NONE /
025022
2291 025022
2292 025024
2293 025030

PAGE 44-7
SEQ 0069

104401
000413

2290 024676
024676

24-MAY-85 11:37

20§:
::678:
66%:

1%:
::69%:

68$:
154606

:sGET OVER THE ASCIZ

;CONTINUVE AT 1

TYPE

674
: s TYPE ASCIZ STRING
66$
:sGET OVER THE ASCIZ
<200>/THIS DTO7 IS PORT® /

.ASCIZ

s3718:

<200>/THIS DTO7 IS IN DTO3 MODE./

MOV
TYPOC

PORTNO, -(SP)

: s SAVE PORTNO FOR TYPEOUT
::G0 TYPE--OCTAL ASCIICALL DIGITS)

TYPE

694
684

::TYPE ASCIZ STRING
;sGET OVER THE ASCIZ

(SP)+,DEVAD

:STORE IN DEVAD
;SKIP OVER NEXT TWO QUESTIONS IF NO DEVICE
:sTYPE ASCIZ STRING
:sGET OVER THE ASCIZ

.ASCIZ
RDOCT

BEQ
TYPE

025040

:BR=DTO7
+: TYPE ASCIZ STRING

20$
654
644

.ASCIZ

<200>/TYPE THE ADDRESS OF AN EXTERNAL DEVICE REGISTER ON THE SHARED BUSS./<2

2%
718
70$
<200> # TYPE AN

OCTAL MASK OF READ/WRITE BITS IN ABOVE DEVICE REGISTER..%<20

025144
2295 025144
2296 025146
2297 025152
025156

. .%<200>
2298
2299
2300
2301
2302

2303

2304
2305
2306
2307
2308

2309
2310
2311
2312
2313

025272
025272
025274
025300
025304
025306
025306
025312

025372
025372
025374
025400
025402
025406
025412
025412
025416
025454

025454
025456
025460
025462
025464
025464
025470

104412
012667
104401
000445

104412
012667

005767
001067
104401
000427

104412

012667
001431
012700
016701
104401
000416

70%:
154466
025160

72%:

025314

2%:
3%:4%:

::75%:
74%:

154256

001646
154244
025420

5%:
6$:
::778:
76%:

104412
012620
005301
001353

104401
000422

TYPE

::738:

154342
154330

RDOCT

BR
.ASCIZ
RDOCT

(SP)+,DEVRW

738
724

<200> # TYPE AN OCTAL MASK OF RESET-CLEARABLE BITS IN ABOVE DEVICE REGISTER.

(SP)+,DEVRC
DT03
74

:STORE BIT PATTERN
:NO NEED TO CONTINUE IF DTO3 MODE
:BR=DTO03

. 754
744

::TYPE ASCIZ STRING
:sGET OVER THE ASCIZ

<200>/HOW MANY OTHER PORTS ARE THERE TO BE TESTED?/

(SP)+,EXPTCT

:STORE EXTERNAL PORT COUNT
;GO TO 7%
:SET POINTER

78
76$

:: TYPE ASCIZ STRING
::GET OVER THE ASCIZ

7%
#EXPRT1,RO
EXPTCT,R1

<200>/TYPE IN EXTERNAL PORT ID../

(SP)+,(RO)+

025472

74:

:STORE BIT PATTERN
:: TYPE ASCIZ STRING
::GET OVER THE ASCIZ

R1
64

. 7194
784

;STORE IT
;COUNT IT

;CONTINUVE LOAD IF NOT DONE

:s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

MACRO M1200
MAIN.
USER ROUTINES

025536

2314 025536
2315 025540
2316 025542
2317 025544
2318 025550
2319 025552
2320 025556
2321 025560
2322 025564
2323 025570
2324 025572
025576
025624
2325 025624
2326 025626
2327 025632
2328 025634
2329 025640
2330 025642
2331 025646
2332 025650
025654

025742
2333 025742
2334 025744
2335 025750
2336 025752
025756
/

24-MAY-85 11:37

SEQ 0070
$:798:
78%:

104412
012600
001003
104401
000745
022700

000004

8%:

022700

000644
000004

18¢:

001002
000167

101016
104401
000412

034427

025600

;:818:

000717
022700
001044
005767
001041
005767
001036
104401
000432

80%:
000002

9s:

154016
153766
025656

000002

026110
026110
026112
026114
026120
026124

026176
026176
026200
026202
026204
026206

2341
2342
2343
2344
2345
2346
2347 026212
2348 026214
2349 026216
2350 026220
2351
2352
2353 026222
026222
2354 026224
026230

000241
006100
016016
104401
000424

104410
012600
000207
000000
000

012600
104401
000422

(SP)+,.RO
84

BR
cMP
BNE
JMP
CMP
BHI

TYPE
BR
.ASCIZ

BR
CMP
BNE
TST
BNE
TST
BNE
TYPE
BR
.ASCIZ

+SELMS

74
#4 ,RO
18$
TSTNPR
#4 ,RO
9

;:TEST FOR NPR?
;NO:BR
;GO CHECK FOR NPR LINE
;VALID TEST?

818

+: TYPE ASCIZ STRING

7%
#2,R0
21$
EXPTCT
21$
DTO3
21$

sMULTIPORT?
:BR=NO
;ONLY ONE PORT?
;BR=NO
;:DTO3 MODE?
;BR=YES

80$
i ;GET OVER THE ASCIZ
<200>/INVALID SELECTION!/

7%
#2,R0
224

sMULTIPORT TEST?
;BR=NO

::85¢%:

844
i ;GET OVER THE ASCIZ
<200>/THE DTO7 WITH THE LOWEST PORT# MUST BE STARTED LAST WHEN
RUNNING/<200>

824
; ;GET OVER THE ASCIZ
<200>/CAN NOT RUN THE MULTIPORT TEST WITH ONLY ONE PORT!/

.85%

84%:
22%:
026212
026126

RO
TX(RO),(SP)

878

;:87%:
86¢%:

000000
002566
002600
002636

RDOCT
MOV
BNE
TYPE

000

(0 FOR HELP MESSAGE)/

21s:

025760

200

<200>/SELECT TEST.

:: TYPE ASCIZ STRING

;:838:

000650
022700
001057
104401
000454

.ASCIZ

.83$

82%:

THE MULTIPORT TEST!/

2337
2338
2339
2340

PAGE 44-8

PARFLG:
ECHOB:

86¢

i TYPE ASCIZ STRING

:: TYPE ASCIZ STRING

: ;GET OVER THE ASCIZ

<200>/TYPE <CR> WHEN READY TO CONTINUE TEST./

(SP)+,RO
PC

0,200,0

(EXIT
;PARAMETERS PRESENT FLAG
;ECHO BYTE

(SP)+,RO
.65%
64$

i :POP STACK INTO RO
:: TYPE ASCIZ STRING
::GET OVER THE ASCIZ

TX:

TRAP4
:

026232

-MAIN.
MACRO M1200
USER ROUTINES

026276
2355 026276
026300
2356 026302
2357 026304
2358
2359 026310
2360 026310
2361 026316
2362 026322
2363 026330
2364 026334
2365
2366 026336
2367
2368 026340
2369 026342
2370 026346
2371 026352
2372 026360
2373 026364
2374 026366
2375 026370
2376 026372
2377 026374
2378
2379 026376
2380 026376
2381 026402
2382 026404
2383 026410
2384 026414
2385 026420
2386 026422
2387 026426
2388

24-MAY-85 11:37

PAGE 44-9
SEQ 0071
é‘?SO:

010046
104402
000000
000167

016637

005267
016666
011666
000002

105777
100011
117746
042716
022726
001002
000167
000207

<200>/UNEXPECTED TRAP TO VECTOR 4 FROM../

MoV
TYPOC

000004
000014
000002
000002

JMP
000004

ERROUT:

000004

MOV
INC
MOV
MOV

RTI

153270

000004
026310

177752

152542

s sSAVE RO FOR TYPEOUT
::G0 TYPE--OCTAL ASCII(CALL DIGITS)

HALT

153452

000000
010246
016702
013746
012737
005067
005712
000240
005726
010226
000207

.ASCIZ

START
4(SP), 80ERRVEC

+ADJUST STACK

2(5P),4(SP)
(SP),2(sP)

;PS
;PC

FLAG

FLAG:

CKADR:

MOV
MOV
MOV
MOV
CLR
TST
NOP
TST
MOV
RTS

(SP)«
R2,(SP)+

:RESTORE OLD TRAP ADDRESS
;RESTORE R2

TSTB
BPL
MOVB
BIC
CcMP
BNE
JMP
RTS

93 TKS
1s
8$TKB, -(SP)
@+C177,(SP)
#3,(SP)«
13
ROUT3
PC

;IS CHAR THERE?
:NO RETURN
;PUT CHAR ON STACK
;:STRIP OFF UNWANTED BITS
+IS IT CONTROL C?
:NO RETURN
;GO TO START AGAIN

000004

CNTLC:

152536
177600
000003
154164
1$:

:SAVE R2
;DEVICE ADDRESS IN R2
80ERRVEC, -(SP)
:SAVE OLD TRAP ADDRESS
#ERROUT, 9ERRVEC
:NEW TRAP ADDRESS
FLAG
sINITIALIZE FLAG
(R2)
:IS ADDRESS ADDRESSABLE?
DEVAD,R2

-MAIN.
MACRO M1200
USER ROUTINES

2390
2391
2392
2393 026430
2394 026430
2395 026434

2396 026440
026444
026504
2397 026504
026510
026544
2398 026544
2399 026544
2400 026550
2401 026554
2402 026562
2403 026566
2404 026572
2405 026600
2406 026606
2407 026612
2408 026614
2409 026620
2410 026622
2411 026630
2412 026636

2413 026644

2414
2415
2416
2417
2418
2419

026646
026652
026656
026656
026662
026666

2420 026670

2421 026674
2422 026702
2423 026706
2424 026712
2425 026720
2426 026726
2427 026734
2428 026742
2429 026744
2430 026750
2431 026752
2432 026754
2433 026760
2434 026762
2435 026766
2436 026772
2437 027000
2438 027006
2439 027014
2440 027020

24-MAY-85 11:37

PAGE 45
SEQ 0072
3

:CHECK OUT NPR LINE ON THE SWITCH BUS
:

005067
005067

104401
000417

TSTNPR:

000526
000526

026446

::65$:

104401
000415

004767
005267
012767
012702
012706
012767
012777
105777
100421
005777
100372

026512

::67%:

177626
000412
000003
027236
001100
000000
000001
153010

152774
153116
020201

005077
000167

152750
153734

004767
022702
001504

177514
027246

012737
004767
005067
012777
012777
012777
012777
000240
004767
005704
001037
005767
001445
005067
005067
012777
012777
012777
005267
012277

000340
000670
000300
1777177
027212
177777
003041

012706

66$:
NPR:

000402
151176
153014

153002

017767
016767
062767
104006

64%:

152276
152266
152260

001100

177776

000250

000246
000236
00023%

000702
000232

000224
000222
027040
027212

177777

000144
000152

000204
000166
000156

74:

CLR
CLR
TYPE
BR

.ASCIZ

TYPE

PASS
:CLEAR PASS COUNT
NUM
;CLEAR NUM
654
i s TYPE ASCIZ STRING
644
: ;GET OVER THE ASCIZ
<200>/TEST NPR LINE ON SWITCH BUS/
67$

i3 TYPE ASCIZ STRING

BR
.ASCI1Z

66$
s :GET OVER THE ASCIZ
<200>/TYPE CONTROL C TO EXIT/<200>

JSR
INC
MOV
MOV
MOV
MOV
MOV
TSTB
BMI
ST
BPL
MOV
MOV
ADD
ERROR+6
CLR
JMP

JSR
CMP
BEQ
MOV
MOV
JSR
CLR
MOV
MOV
MOV
MOV
NOP
JSR
TST
BNE
TST
BEQ
CLR
CLR
MOV
MOV

MOV
INC

MOV

8CSR
8
8CSR
74

8CSR,BAD

KONST, GOOD
€20201,G00D

8CSR
ROUT3
PC,CNTLC
@BREND ,R2
S
#STACK,
SP
#340,890PSW
PC,CLRREG

BUFF1

€177777,8BEBD
#BUFF1,8BEBA
@177777,8BECC
#3041, 8BECR1
PC,CRDY
R4

BUFF1+2

#3%,89INTVEC

#BUFF1,8BEBA

#177777,8BECC

BRCNT
(R2)+,8BECR1

+IS IT CONTROL C?
;COUNT NUMBER OF ITERATION
;COUNTER FOR BR LEVEL
;POINTER TO BRLEVEL TABLE
;RESTORE STACK
;DROP PRIORITY
: CONNECT
sCONNECTED?
:BR IF YES

; TIME OUT?
:BR IF NOT
;STORE CONTENT OF CSR
:

:STORE GOOD DATA
;COUNTN'T CONNECT
;CLEAR CSR
;

:IS IT END OF TABLE?

:YES:BR

;RESTORE STACK
;LOCK OUT INTERRUPT
;CLEAR ALL UBE REGISTER
;CLEAR BUFF LOCATION
iLOAD UBE DATA REG WITH TEST DATA
;LOAD UBE ADDRESS REG WITH BUFF ADR
:SET UBE TO DO ONE CYCLE
;HAVE UBE SEND DATA VIA NPR
;ALLOW UBE TO SET BUS
;CHECK READY SET
;:DID RDY SET?
:BRANCH TO ERROR IF RDY DIDN'T SET
;WAS DATAO DONE?
:BRANCH TO ERROR IF NPR NOT DONE
;CLEAR BUF LOCATION
;CLEAR BUF LOCATION PLUS 2
:SETUP FOR INTERRUPT
:LOAD TEST ADDRESS
:SETUP UBE TO DO 1 CYCLE
;COUNT BR LEVEL
+HAVE UBE DO DATO NPR+INT

.MAIN.
MACRO M1200
USER ROUTINES

24-MAY-85 11:37

PAGE 45-1

SEQ 0073

2441

2442
2443 027024
2444 027030

2445 027034

2446 027036
2447
24438 027040
2449 027044

2450 027046
2451 027050
2452
2453 027052
2454 027054
2455 027062
2456 027066
2457 027072
2458 027074
2459 027076
2460 027100
2461 027100
2462 027106
2463 027110
2464 027114
2465 027120
2466 027124
2467 027126
2468 027132
2469 027136
2470 027142
2471
2472 027146
2473 027152
2474 027156

2475
2476
2477 027162
2478 027164
2479 027166
2480 027170
2481 027172
2482 027174
2483 027176
2484 027200
2485 027202
2486 027204
2487 027206
2488 027210
2489
2490 027212
2491 027234
2492
2493 027236
2494 027240
2495 027242
2496 027244
2497 027246

sWHEN DONE VIA DIFF BR LEVEL
005037
004767
104025
000443

177776
000616

005767

000150

001440
104026
000436

104024
012777
005037
004767
000425
104023
000423

022767
001013
005267
104401

016746
104405
104401
005067
004767
000167

004767
004767
000167

000000
000020
000000
170000
170002
170004
170006
170010
170014
000510
000000
000000
000000
003143
003145
003151
003161
000000

CLR
89PSW
JSR
PC.CRDY
ERROR+25

sALLOW UBE TO INTERRUPT
;WAIT FOR INTERRUPT OR READY TO SET

006003
177776
000560

000114

3s:

TST
BUFF1+2
BEQ
44
ERROR+26
4%

:DID NPR WRITE MORE THAN ONE LOC?
;GO TO END OF TEST

1¢:

ERROR+24
MOV
#6003, 8BECR1
CLR
94PSW
JSR
PC,CRDY
BR
44
ERROR+23
BR
43

;ERROR:NPR DIDN'T SET RDY
+HAVE UBE SET ITS READY

24:

001750

000060

S$:

000046
027560
000036
027555
000030
000466
177376
000456
177220

;RESTORE TRAP

11%:

4%:

177474

CMP
BNE
INC
TYPE
MOV
TYPDS
TYPE
CLR
JSR
JMP NPR
JSR
JSR
JMP

sWAIT TILL SET
;RESTORE TRAP

€1000. ,NUM
114
PASS
. ENDMG
PASS, -(SP)
+NULL

NUM
PC,RCATCH
PC,RCATCH
PC,CNTLC

;RESTORE TRAP
i
:

PASS:

0
0
NUM:
0
BEBD:
.WORD
BECC:
.WORD
BEBA:
.WORD
BECR1:
.WORD
BECR2:
.WORD
BERE
:
.WORD
INTVEC: .WORD
0
0

BRCNT:

BUFF1:

.BLKW
0

BRLV:

3143
3145
3151
3161
0

BREND:

170000
170002
170004
170006
170010
170014
510

:DATO AT BR4
:DATO AT BRS
:DATO AT BR6
;:DATO AT BR?7

-MAIN.
MACRO M1200
USER ROUTINES

24-MAY-85 11:37

g:gg 027250

000000

2500 027252
027255
027260
027263
027266
027271
027274
027277
2501 027302
027305

105
117
116
040
124
116
040
116
105
117

027310
027313
027316
027321
027324

027327
027332
2502 027334
027337

027342
027345
027350
027353
027356
027361
027364
027367
027372
027375
027400
027403
027406
027411
2503 027412
027415
027420
027423
027426
027431
027434
027437
027442
027445
027450
027453
027456
027461
027464
027467
027472
027475
027500
027503
2504 027504
027507

116
040
104
117
123

040
131
105
117

125
040
104
117
111
105
125
040
105
116
040
116
110
000
105
117
124
040
103
122
124
040
105
117
040
122
116
111
040
040
116
105
102
000
105
117

PAGE 45-2

SEQ 0074
0

122
122
120
104
117
117
104
105
122
122
120
104
040
124
105
122
000
122
122
102
104
040
124
116
122
120
127
116
120
106
111
105

122
072
122
101
040
124
117
000
122
072
122
111
116
040
124
104

EM23:

.ASCIZ

/ERROR:NPR DATO NOT DONE/

EM24:

.ASCIZ

/ERROR:NPR DID NOT SET RDY/

122
072
105
111
116
040
124
122
124
110
040
122
111
123
104

EM25:

-ASCIZ

/ERROR:UBE DID NOT INTERRUPT WHEN NPR FINISHED/

122
122
127
114
040
111
105
127
116
116
116
040
104
116
117
104
105
116
114

122
072
117
117
127
124
116
110
040
105
120
101
040
124
116
117
040
101
105

EM26:

-ASCIZ

/ERROR:TWO LOC WRITTEN WHEN ONE NPR AND INT ON DONE ENABLE/

122
122

122
72

EM27:

.ASCIZ

/ERROR:DEVICE DOESN'T EXIST ON SWITCH BUS/

MACRO M1200
USER ROUTINES

24-MAY-85 11:37

027512
027515
027520
027523
027526
027531
027534
027537
027542
027545
027550
027553

104
111
040
105
047
105
123
117
123
124
040
123

027555
2507 027560
027563
027566
027571
027574

377
015
116
120
123
000

2505

PAGE 45-3

SEQ 0075
105
103
104
123
124
130
124
116
127
103
102

126
105
117
116
040
111
040

377

000

012

104
101
040

040
111
110

125

105
040
123

NULL :
ENDMG:

.BYTE
.ASCIZ

-1,-1,0
;NULL CHARACTER STRING
<15><12>/END PASS &/

043

.EVEN

:SUBROUTINE TO TYPE PC OF ERROR MESSAGE
; TERRPC:BIT
‘
BNE
;
TYPE
;
?egoc
i

i18:

RTS

#SW13, BSWR
15
+MSG15
$ERRPC, -(SP)

;INHIBIT ERROR PRINT OUT
:BRANCH IF YES
:TYPE PC OF ERROR MESSAGE
:SAVE $ERRPC FOR TYPEOUT

;SUBROUTINE TO CLEAR ALL UBE REG
027576

027576

027602
027606
027612
027616
027622
027626

005077
005077
005077
005077
005077
005077
000207

177400
177372
177304
177326
177350
177342

CLRREG:

CLR
CLR
CLR
CLR
CLR
CLR

RTS

8BERE
8BECR2
8BECR1
8BEBA
8BECC
9BEBD

;CLEAR
;CLEAR
;CLEAR
;CLEAR
;CLEAR
;CLEAR

ERROR CONDITION
BECR2 REG
BECR1 REG
BEBA REG
BECC REG
BEBD REG

;SUBROUTINE TO RESTORE TRAP CATCHER TO UBE VECTOR AREA
027630
027632
027636
027640
027644
027646
027650

014546
016705
005725
010577
005015
012605
000207

177346

RCATCH:

MOV
MoV

TST
MOV
CLR
MOV
RTS

177340

RS,-(SP)
INTVEC,RS

(RS)+
RS,9INTVEC
(RS)
(SP)+,RS
PC

:SAVE RS ON STACK
:GET INTVEC

sCALCULATE INTVEC.2
:PUT INTVEC+2 IN INTVEC
;PUT HALT IN INTVEC.2
;RESTORE RS

;SUBROUTINE TO CHECK RDY BIT SET
027652

027654
027656

005004
005005
005205

CRDY:
2%:

CLR
CLR
INC

R4
RS
RS

;UPDATE COUNTER

.MAIN.
MACRO M1200
USER ROUTINES

2546
2547
2548
2549
2550
2551
2552
2553
2554

027660
027664
027666
027672
027674
027700

24-MAY-85 11:37

105777
100405

032705
001771
012704
000207

PAGE 45-4

SEQ 0076

177312

TST8
BMI
BIT
BEQ

000200
000001

1$:

RTS

@BECR1
13

#200,RS
2%
@1,R4
PC

;SEE IF RDY SET
:BRANCH IF SET

;WAITED>100MICROSEC
:CONTINUVE TO LOOK FOR RDY IF RS NOT=128
;SET R4=1 TO INDICATE ERROR
;RETURN

.MAIN.
MACRO M1200
USER ROUTINES
1

24-MAY-85 11:37

PAGE 46

SEQ 0077

2556

.NLIST
.SBTTL

2557

MC,MD,CND
TYPE ROUTINE

P800S 404004004040008088084884840408888804804084

884080808848808

+*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
+#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
s¢NOTE1L:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

;#NOTE2:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRE
D.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;#NOTES3:
s

;#CALL:
i#1) USING A TRAP INSTRUCTION

:#0R

027702

027706
027710
027712
027714
027716
027722
027730
027732

027740

027742
027746
027752
027754
027762

105767

$TYPE:

1%:

000002
000001

151276

000100

151267

030032

030036
030042
030044
030050
030054
030056
030062
030066

TSTB

BPL

BR
MOV
MOV
CMPB
BNE
BITB
BEQ

000004
000220

MOV

151245

614:
624:

24:

JSR
.WORD
BITB

BNE

MOVB

BNE

TST

000002

604:
3%:

MOV
ADD

000011

4s:

CMPB

S4:

64:

151104
000001

000032
000072

BEQ

ST
TYPE
$CRLF

000130

000056
151114

RTI

CMPB
BNE

000200

030016

030020
030022
030024
030030

+sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE
MESADR

HALT

000040

+MESADR

i®

151251

027764

027766
027770
027772
027774
030000
030002
030006
030010
030014

TYPE

7%:

CLRB
BR

$TPFLG

33IS THERE A TERMINAL?
::BR IF YES
::HALT HERE IF NO TERMINAL
33
1 sLEAVE
RO, -(SP)
:3SAVE RO
82(SP),RO
:3GET ADDRESS OF ASCIZ STRING
QAPTENV, $ENV
: sRUNNING IN APT MODE
624
$3NO,GO CHECK FOR APT CONSOLE
QAPTSPOOL , $ENVM 1:SPOOL MESSAGE TO APT
624
33NO,GO CHECK FOR CONSOLE
RO,614
+3SETUP MESSAGE ADDRESS FOR APT
PC,$ATY3
::SPOOL MESSAGE TO APT
O
: sMESSAGE ADDRESS
QAPTCSUP, $ENVM
:sAPT CONSOLE SUPPRESSED
60
s3YES,SKIP TYPE OUT
(RO)+,-(SP)
+:PUSH CHARACTER TO BE TYPED ONTO STACK
44
:3BR IF IT ISN'T THE TERMINATOR
(SP)+
+3IF TERMINATOR POP IT OFF THE STACK
(SP)+,RO
s sRESTORE RO
02,(SP)
3+ :ADJUST RETURN PC
s sRETURN
OHT,(SP)
:sBRANCH IF <HT>

OCRLF,(SP)
S$
(SP)«

$CHARCNT
24

PC,$TYPEC

BNE
MOV

24
$NULL, -(SP)

DECB

BLT

JSR

gscs

::POP

<CR><LF> EQUIV

isTYPE A CR AND LF

JSR

CMPB

:sBRANCH IF NOT <CRLF>

$FILLC,(SP).

1(SP)

PC,.S$TYPEC

$CHARCNT

sHORIZONTAL TAB PROCESSOR

:3CLEAR CHARACTER COUNT
:3GET NEXT CHARACTER
3360 TYPE THIS CHARACTER
$3IS IT TIME FOR FILLER CHARS.?
33IF NO GO GET NEXT CHAR.
:3GET & OF FILLER CHARS. NEEDED
$:AND THE NULL CHAR.
:3:D0ES A NULL NEED TO BE TYPED?
#3BR IF NO--GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
::00 NOT COUNT AS A COUNT
::LOOP

.MAIN.
MACRO M1200
TYPE ROUTINE

2558

24-MAY-85 11:37

030070
030074
030100
030106
030110
030112
030114
030120
030122
030130
030136
030140
030144
030146
030154
030156
030160
030162

112716
004767
132767
001372
005726
000724
105777
100375
116677
122766
001003
105067
000406
122766
001402
105227
000000
000207

030164
030172
030200
8;32%

112767
112767
000403
112767

030210
030212
030214
030220
030222
030230
030232
030240
030242
030246
030254
030260
030262
030266
030270
030272
030276
030300
030304
030312
030314
030322
030330
030334
030340

010046
010146
105767
001450
122767
001031
132767
001425
017600
062766
005767
001375
010067
105720
001376
166700
006200
010067
012767
000413
017667
062766
016746
004767
000000

030342
030346
030350
030354
030356

105767
001416
005767
001413
005767

030342

030362

001375

—

PAGE 46-1

SEQ 0078
000040
000014
000007

000052

151030
000002
00001S

151022
000002

000014

8s:
94:

MOVB
¢ ,(SP)
s sREPLACE TAB WITH SPACE
JSR
PC,4TYPEC
ssTYPE A SPACE
8178
@7, $CHARCNT
$3BRANCH IF NOT AT
BNE
94
s:TAB STOP
TST
(SP)«
+3POP SPACE OFF STACK
BR
24
$3GET_NEXT CHARACTER
$TYPEC: TSTB
94TPS
$sWAIT UNTIL PRINTER IS READY
BPL
$TYPEC
MOVB
2(SP),847PB
#3LOAD CHAR TO BE TYPED INTO DATA REG.
CMPB
#CR,2(SP)
33IS CHARACTER A CARRIAGE RETURN?
BNE
13
+ sBRANCH IF NO
CLRB
$CHARCNT
33 YES--CLEAR CHARACTER COUNT
BR
$TYPEX
s sEXIT
1%:
CMPB
OLF,2(SP)
+3IS CHARACTER A LINE FEED?
BEQ
$TYPEX
+ sBRANCH IF YES
INCB
(PC)»
$3COUNT THE CHARACTER
$CHARCNT: .WORD ©
3 sCHARACTER COUNT STORAGE
$TYPEX: RTS
PC
.SBTTL APT COMMUNICATIONS ROUTINE

000012

000002

000001
000001

000236
000226

$ATY1:
$ATY3:

000001

000220

::};z

1 8 8 8 8 80 080488088080848888884008884848880084488880888800008000

000206
000001

150776

000100

150767

000004
000002
150726

000004

150734

14:

24:

150724

150720
000004
000004
000002
147442
177342
000062

150674

000016
000004

34:

4%:

Ss:

104:

150652
150624

118%:

MOVB
MOVB
BR
MOVe

01, 4FFLG
01,$FLG
SATYC
#1,4FFLG

MOV
MOV
TST8
BEQ
CMPB
BNE
BIT8
BEQ
MOV
ADD
TST
BNE
MOV
TST8
BNE
Sus
ASR
MOV
MOV
BR
MOV
ADD
MOV
JSR
MORD

RO,-(SP)
R1,-(SP)
$MFLG
54
QAPTENV, $ENV
34
@APTSPOOC
, $ENVM
L
34
84(SP),RO
#2,4(SP)
$MSGTYPE
14
RO, $MSGAD
(RO)»
24
$MSGAD ,RO
RO
RO, $MSGLGT
4, SMSGTYPE
-1
84(SP) .44
#2,4(SP)
177776, -(SP)
PC.4TYPE
O

TST8
BEQ
TST
BEQ
TST
BNE

$FFLG
124
SENV
124
SMSGTYPE
11

1370 REPORT FATAL ERROR
1370 TYPE A MESSAGE

33TO ONLY REPORT FATAL ERROR
13PUSH RO ON STACK
33PUSH R1 ON STACK
$3SHOULD TYPE A MESSAGE?
#3IF NOT:
BR
1 sOPERATING UNDER APT?
13IF NOT:
BR
; ; SHOULD SPOOL MESSAGES?
#3IF NOT:
BR
13GET MESSAGE ADODR.
13BUMP RETURN ADDR.
$3SEE IF DONE W/ LAST XMISSION?
33IF NOT:
WAIT
#3PUT ADDR IN MAILBOX
13sFIND END OF MESSAGE
13SUB START OF MESSAGE
$3GET MESSAGE LNGTH IN WORDS
$3PUT LENGTH IN MAILBOX
s3TELL APT TO TAKE MSG.

33PUT MSG ADDR IN JSR LINKAGE
11BUMP RETURN ADDRESS
13PUSH 177776 ON STACK
13CALL TYPE MACRO
13SHOULD REPORT FATAL ERROR?
s:IF NOT:
BR
1 1RUNNING UNDER APT?
13IF NOT:
BR
s sFINISHED LAST MESSAGE?

33IF NOT:

WAIT

MAIN.
MACRO M1200 24-MAY-8S 11:37
APT COMMUNICATIONS ROUTINE

030364

030372

030400

005267

030410

105067

030404

105067

030414
030420
030422

105067
012601
012600

030426
030427
030430

000
000
000

030424

017667

062766

000004

000002

150602

SEQ 0079

150616

MOV

000004

000020

ADD

000207

SMSGTYPE

$3TELL APT TO TAKE ERROR

1 1BUMP RETURN ADDR.

SFFLG

CLRB
MOV
MOV

SMFLG
(SP)+,R1
(SP)+,RO

1 3CLEAR MESSAGE FLAG
13POP STACK INTO R1
1:POP STACK INTO RO

O
0
0O

1 3MESSG. FLAG
:3L0G FLAG
:sFATAL FLAG

RTS

SMFLG:
SLFLG:
$FFLG:

;;GET ERROR ¢

CLR8

CLRB

000006

S4(SP) ,SFATAL
02,4(SP)

INC

12%:

000013

.BYTE
.BYTE
.BYTE

.CVEN

000200
000001
000100

SLFLG

13CLEAR FATAL FLAG

+3CLEAR LOG FLAG

3 sRETURN

APISIZE=200
APTENV=001
APTSPOOL =100

000040

2559

PAGE 46-2

APTCSUP=040
.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

;;.tOttt.tttttt.t.t.t‘t.‘ttt0‘..‘00.‘.....‘00“..

0tttt.t‘tttt..tt

+#THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND

;#CHANGE

;#CALL:

030432 011646

030434
030442
030444
030446

016666
010046
010146
010246

030452

012600

030450

005001
005002

030462

001412

030464

030466
030470
030472
030474
030476
030500
030504

030506

030510

030512
030516
030522
030524
030526

2560

030530
030532

000004

104411

030454
030456

030460

000002

2s:

006301

006102
006301
006102
006301
006102
042716
062601

010166
010267
012602
012601
012600

000002
000000

RDOCT

RETURN HERE

4(SP),2(SP)
RO, -(SP)
R1,-(SP)
R2,-(SP)

MOV

(SP)+,RO

ROLIN

000012
000010

3s:

$HIOCT:

.SBTTL

:sREAD AN OCTAL NUMBER

:;LOW ORDER BITS ARE ON TOP OF THE STACK
:sHIGH ORDER BITS ARE IN

:sPROVIDE SPACE FOR THE

:sREAD AN ASCIZ LINE

:sGET ADDRESS OF 1ST CHARACTER

R1
R2

:sCLEAR DATA WORD

BEQ

::1F ZERO GET OUT

MOVB

B8R

TST

MOV
MOV
MOV
MOV
MOV

RTI
.WORD

(RO)+,-(SP)

$HIOCT

: s INPUT NUMBER
::PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK

CLR
CLR

ASL

177770

(sP),-(SP)

MOV
MOV
MOV
MOV

ROL
ASL
ROL
ASL
ROL
BIC
ADD

000764
005726

TO BINARY.

$RDOCT: MOV

18:

112046

::PICKUP THIS CHARACTER

542

R2
R1
R2
R1
R2
@+C7,(SP)
(SP)+,R1

:3STRIP THE ASCII JUNK
:3ADD IN THIS DIGIT

(SP)e

: ;CLEAN TERMINATOR FROM STACK

TTY INPUT ROUTINE

1344

;348

::LOOP

::SAVE THE RESULT

::POP STACK INTO R2
:3:POP STACK INTO R1
::POP STACK INTO RO

: sRETURN
; sHIGH ORDER BITS GO HERE

F ;tt‘tt“tt.ttt.tt‘tttt‘t.ttttttt‘t‘t‘tttt

.ENABL

LSB

t“‘tttttt‘tttt‘t“tttt

3 ;ttt‘ttttttt.tttt‘t‘t“t“‘t‘.‘t‘t.tttt‘ttt“tt‘ttt

ti‘tttt.tt‘tt

MACRO M1200

TTY INPUT ROUTINE

24-MAY-85 11:37

PAGE 46-3

SEQ 0080

1#SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
1#SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL

030534
030542
030544
030550
030552
030556
030562
030566
030570
030576
030600
030604
030610
030614
030616
030622
030624
030626
030632
020634
030640
030644
030650
030652
030656
030662
030664
030670
030672
030676
030700
030706
030712
030716
030724
030726
030734
030736
030742
030746
030750
030754
030756
030762
030766
030770
030772
030774
030776
031002
031006
031010
031014

000176

150376

150374
150370
177600

000007

150340

000001

031261
031266
147362
031277

s*WHEN OPERATING IN TTY FLAG MODE.

SCKSWR:

CMP
BNE
7ST8
BPL
MOVB
BIC
CMP
BNE
CcMPB
BEQ
TYPE
SGTSWR: TYPE
MOV

19%:

150312

7%:

TYPOC
TYPE

CLR
CLR

17578

BPL
MOVB

150306
177600
000025

9s:

CcMP

031254
000006

208:

ADD

000015

10s:

CcMP

118:
14%:

ADD
TYPE

000004

000002
000006
001203
150213

000001

000100

150210

177152
000060

150232

15%:
16%:

000067

RTI

JSR

CMP
BGT

000060
000002

O@SWREG, SWR
154
83TKS
154

847KB, -(SP)
0+C177,(SP)
@7,(SP)«

15¢

$SAUTOB,
01

15%
+3CNTLG

SWREG, -(SP)

« SMNEW
-(SP)
-(SP)
93 TKS

74
93TKB, -(SP)
@+C177,(SP)
(SP),e25
10¢

+SCNTLY

6,5P
19¢
(SP),®15
164
4(SP)
114
2(SP),aSWR
6 ,5P

+ $CRLF

$INTAG,®1
15%
#100,83TKS
PC,$TYPEC
(SP),#60
184

(SP),#67
184
#60,(SP)+
2(SP)
17s

000002
177776

17%:

001202

18¢:

ASL

INC

TYPE
BR

(SP)
(SP)
(SP)
2(SP)
-2(SP),(SP)
7%

. $QUES

20¢

$3IS THE SOFT-SWR SELECTED?
;s sBRANCH IF NO
:sCHAR THERE?
:3IF NO, DON'T WAIT AROUND
:3SAVE THE CHAR
s sSTRIP-OFF THE ASCII
$3IS IT A CONTROL G?
:sNO, RETURN TO USER
:sARE WE RUNNING IN AUTO-MODE?
: sBRANCH IF YES
:3ECHO THE CONTROL-G (tG)
:: TYPE CURRENT CONTENTS
s s SAVE SWREG FOR TYPEOUT
+:G0 TYPE--OCTAL ASCIICALL DIGITS)
s sPROMPT FOR NEW SWR
s sCLEAR COUNTER
s s THE NEW SWR
: sCHAR THERE?
:3IF NOT TRY AGAIN
::PICK UP CHAR
ssMAKE IT 7-BIT ASCII
$:IS IT A CONTROL-U?
: ;:BRANCH IF NOT
::YES, ECHO CONTROL-U (tU)
: s IGNORE PREVIOUS INPUT
:;:LET'S TRY IT AGAIN
::IS IT A <CR>?
: ;BRANCH IF
+:YES, IS IT THE FIRST CHAR?
: sBRANCH IF YES
: s SAVE NEW SWR
:sCLEAR UP STACK
::ECHO <CR> AND <LF>
: sRE-ENAGLE TTY KBD INTERRUPTS?

; sBRANCH IF NOT
: sRE-ENABLF TTY KBD INTERRUPTS
; sRETURN

: ;ECHO CHAR

;;CHAR < 0?
; ;BRANCH IF YES
;;CHAR > 7?
: ;BRANCH IF YES
::STRIP-OFF ASCII
::IS THIS THE FIRST CHAR

: ;BRANCH IF YES

PRESENT

Y
CHAR OVER TO MAKE
H
ROOM FOR NEW ONE.
: sKEEP COUNT OF CHAR
::SET IN NEW CHAR
;:GET THE NEXT ONE

;s TYPE 2<CR><LF>

: s SIMULATE CONTROL
-U

.MAIN,
MACRO M1200
TTY INPUT ROUTINE

24-MAY-85 11:37

PAGE 46-4

SEQ 0081
.DSABL

LSB

bt
L L L
L
L L
T
T

+#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
;oCALL
:
i *
RDCHR
: s INPUT A SINGLE CHARACTER FROM THE TTY
;e
RETURN HERE
+ ;CHARACTER IS ON THE STACK
L
:sWITH PARITY BIT STRIPPED OFF
031016
031020
031026
031032
031034
031042
031050
031056
031060
031064
031066
031072
031076
031102
031104
021106
031114
031116
031124
031126
031134

011646
016666
105777
100375
117766
042766

026627
001013
105777
100375
117746

042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

000004

150112

150106
177600
000004

000002

$ROCHR:

18:

000004
000004
000023

150060

2%:

150054
177600

000021

000004

000140

000004

000175

000040

000004

3s:

43 :

MOV

MOV
TSTB
BPL
MOVB
BIC
CMP
BNE
1578
BPL
MOVB
BIC
CMP
BNE
BR
CMP
BLT
CMP
BGT
BIC

RTI

(SP),-(SP)

4(SP),2(SP)
93 TKS
14
93TKB,4(SP)
@tC<177>,4(SP)
4(SP),#23
3s
93 TKS
2%
83$TKB, -(SP)
tC177,(SP)
(SP)+, 821
24
1s
4(SP), @140
44
4(SP), 0175
43
#40,4(SP)

::PUSH DOWN THE PC
$:SAVE THE PS
;s WAIT FOR
:sA CHARACTER
s;READ THE TTY

:3GET RID OF JUNK IF ANY
+3IS IT A CONTROL-S?
; ;BRANCH IF NO
:sWAIT FOR A CHARACTER
::LO0OP UNTIL ITS THERE
:3GET CHARACTER

;sMAKE IT 7-BIT ASCII

3:IS IT A CONTROL-Q?
;s
IF NOT DISCARD IT
::YES, RESUME
:3IS IT UPPER CASE?
; ;BRANCH IF YES
:3IS IT A SPECIAL CHAR?
: ;BRANCH IF YES
:sMAKE IT UPPER CASE
::G0 BACK TO USER

e
L
T
T

031136
031140
031144
031150
031152
031154
031156
031162
031164
031170
031172
031176
031202
031206
031210
031214
031220
031222
031224
031232
031240
031242

010346
012703
022703
101405
104410
112613
122713
001003
104401
000763
111367
104401
122723
001356
105063
104401
012603
011646
016666
012766
000002
000

:#THIS ROUTINE WILL INPUT A STRING FROM THE TTY
;&CALL:
i*
RDLIN
:sINPUT A STRING FROM THE TTY
i*
RETURN HERE
: sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
L
: s TERMINATOR WILL BE A BYTE OF ALL 0'S
$ROLIN: MOV
R3,-(SP)
::SAVE R3
18:
MOV
#S$TTYIN,R3
::GET ADDRESS
2%:
CcMP
@$TTYIN.8
,R3
.
:sBUFFER FULL?
BLOS
4%
::BR IF YES
RDCHR
::G0 READ ONE CHARACTER FROM THE TTY
MOVB
(SP)+,(R3)
::GET CHARACTER
10¢:
CMPB
#177,(R3)
::IS IT A RUBOUT
BNE
3
;s SKIP IF NOT

031244
031254

000177

001202

4s:

000044
031242
000015

3s:

177777
001204

000004
031244

0000602
000004
9s:

TYPE

BR
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
MOV
MOV
MOV
MOV
RTI
.BYTE

. $QUES

1$
(R3),9s
.9
#15,(R3)+
23
-1(R3)
JSLF
(SP)+,R3
(SP),-(SP)
4(SP),2(SP)
#$TTYIN,4(SP)
0

;s TYPE A

' 2

:sCLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER
: sCHECK FOR RETURN
::LOOP IF NOT RETURN
i :CLEAR RETURN (THE 15)
::TYPE A LINE FEED
i sRESTORE R3
:sADJUST THE STACK AND PUT ADDRESS OF THE
i

FIRST ASCII CHARACTER ON IT

; ;sRETURN
: s STORAGE FOR ASCII CHAR. TO TYPE

MACRO M1200
.MAIN.
TTY INPUT ROUTINE

2561

031243
031244
031254
031257
031261
031264
031266
031271
031274
031277
031302
031305

24-MAY-85 11:37

PAGE 46-5

SEQ 0082

000

.BYTE

.BLKB
.ASCIZ

8.
/tU/<15><12>

: s TERMINATOR

: sCONTROL

136

015

$TTYIN:
$CNTLU:

136
012
015
127
075
040
105
075

015

SCNTLG:

.ASCIZ

/tG/<15>¢<12>

123
040
000
116
040
Cc00

$MSWR:

.ASCIZ

<15><12>/SWR = /

$MNEW:

.ASCIZ

012

.SBTTL
L

: sRESERVE 8 BYTES FOR TTY INPUT
; sCONTROL "U*

"G"

NEW = /

BINARY TO OCTAL (ASCII) AND TYPE
T

Y Y YT

;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
:#0CTAL (ASCII) NUMBER AND TYPE IT.

;#8TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
;#CALL:

i
i
i

i
i

MOV
TYPOS
.BYTE
.BYTE

NUM, -(SP)

; sNUMBER TO BE TYPED
;sCALL FOR TYPEOUT
;sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

:sM=1 OR O

;:1=TYPE LEADING ZEROS
; :0=SUPPRESS LEADING ZEROS

;#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;#$TYPOS OR $TYPOC

;#CALL:

i
s

031310
031314
031322
031326
031332
031334
031342
031350
031356
031360
031362
031364
031370
031372
031376
031402
031406
031412
031414
031416
031429
031422

017646
116667
112667
062716
000406
112767
112767
112767
010346
010446
010546
116704
005404
062704
110467
116704
016605
005003
006105
000404
006105
006105

000000
000001
000207
000002
000001
000006
000005

MOV

TYPON

NUM, -(SP)

: sNUMBER TO BE TYPED
:;CALL FOR TYPEOUT

s‘éxYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
;#CALL:
i*
MOV
NUM, -(SP)
: sNUMBER TO BE TYPED
ik
TYPOC
::CALL FOR TYPEOUT

000211

000171
000165
000154

$TYPOS:

$TYPOC:
$TYPON:

000145
000006
000132
000125
000012

MOV
MOVB

MOVB
ADD
BR

MOVB
MOVB
MOVB
MOV
MOV
MOV
:2;8
ADD

MOvVB

1s:
2%:

MOVB
MOV
CLR
ROL
BR
ROL
ROL

8(SP),-(SP)
1(SP), $OFILL

: sPICKUP THE MODE
::LOAD ZERO FILL SWITCH

::SET THE
:sSET FOR
:3SET THE
:sSAVE R3
:sSAVE R4
::SAVE RS
::GET THE

96,R4

: sSUBTRACT IT FOR MAX.

$OFILL R4
12(SP) RS
R3
RS
33
RS
RS

::GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
:sCLEAR THE OUTPUT WORD
: sROTATE MSB INTO “C*
::G0 DO MSB
: :FORM THIS DIGIT

R4, $OMODE

;;NUMBER OF DIGITS TO TYPE
s sADJUST RETURN ADDRESS
ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

:sSAVE IT FOR VUSE

ALLOWED

.MAIN,
MACRO M1200
24-MAY-85 11:37
BINARY TO OCTAL CASCII) AND TYPE
006105
010503
006103
105367
100016
042703
001002
005704
001403
005204
052703
052703
110367
104401

031500
031502
031504
031506
031510
031512
031514
031516
021524
031526
031530
031531
031532
031533
031534

003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

.031474

2562

105367

SEQ 0083

3s:

000076
177770

4 :

000060
000040
000040
031530

S$:

000032

000002

74:

000004

ROL
MOV
ROL
DECB
BPL
BIC
BNE
ST
BEQ
INC
BIS
BIS
MOVB
TYPE

RS
RS.R3
R3
$OMODE

74
®177770,.R3

DECB

+3GET LSB OF THIS DIGIT
:s TYPE THIS DIGIT?
:3BR IF NO
+3GET RID OF JUNK
:3TEST FOR O
: s SUPPRESS THIS 0?
::BR IF YES
:sDON’'T SUPPRESS ANYMORE 0'S
s sMAKE THIS DIGIT ASCII
:sMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
;:G0 TYPE THIS DIGIT
:;COUNT BY 1
:3:BR IF MORE TO DO
::BR IF DONE
: s INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
: sRESTORE RS
; sRESTORE R4
; ;RESTORE R3
:3:SET THE STACK FOR RETURNING

BGT
BLT
INC
BR
6$:
MOV
MOV
MOV
MOV
2(SP),4(SP)
MOV
(SP)+,(SP)
RTI
; sRETURN
8s$:
.BYTE
: s STORAGE FOR ASCII DIGIT
.BYTE
: s TERMINATOR FOR TYPE ROUTINE
$OCNT:
.BYTE
:;0CTAL DIGIT COUNTER
$OFILL: .BYTE
;3 ZERO FILL SWITCH
$OMODE: .WORD
: sNUMBER OF DIGITS TO TYPE
.SBTTL
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
[-X-F-Y-¥)

031424
031426
031430
031432
031436
031440
031444
031446
031450
031452
031454
031460
031464
031470

PAGE 46-6

Y At
T T T T T TT T
T YYYYOrrwrres

031536
031536
031540
031542
031544
031546
031550
031554
031560
031562
031564
031572
031574
031600
031604
031606
031612

+#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT
;#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
+#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
+#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;#*REPLACED WITH SPACES.
;#CALL:
i&
MOV
::PUT_THE BINARY NUMBER ON THE STACK
i*
TYPDS
::G0 TO THE ROUTINE

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105

$TYPDS:

020200
000020
000055

031752
000040

031742

000001

1¢:

2%:
3s:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOVB
CLR
MOV
MOVB
CLR
MOV
SuB

RO, -(SP)

R2,-(SP)
920200, -(SP)

20(SP),RS

1$
RS

RO
@$DBLK,R3
# ,(R3).
R2
$DTBLCRO),R1
R1,RS

:;PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
:sGET THE INPUT NUMBER
::BR IF INPUT IS POS.
i iMAKE THE BINARY NUMBER POS.
i sMAKE THE ASCII NUMBER NEG.
::ZERO THE CONSTANTS INDEX
:sSETUP THE OUTPUT POINTER
::SET THE FIRST CHARACTER TO A BLANK
i ;CLEAR THE BCD NUMBER
:sGET THE CONSTANT
::FORM THIS BCD DIGIT

.MAIN.
MACRO M1200 24-MAY-85 11:37
PAGE 46-7
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2563

031614
031616
031620
031622
031624
031626
031630
031632
031634
031636
031640
031646
031652
031656
031660
031662
031666
031670
031672
031674
031676
031700
031702
021710
031712
031714
031716
031720
031722
031724
031730
031736
031740
031742
031744
031746
031750
031752

002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012

4s:

S$:
000001
000060
000040

177777

6$:
78:

000010

8$:

177777

177776

031752
000002

000004

9s:

$DTBL:

$DBLK:
.SBTTL
e

SEQ 0084
BLT
INC
BR
ADD
TST
BNE
TST8
BMI
ASLB
B8CC
6
MOVB
1(SP), -1(R3)
BIS
#'0,R2
BIS
® .R2
MOVB
R2,(R3)+
TST
(RO)+
CMP
RO,#10
BLT
BGT
MOV
BR
TST8
BPL
MOVB
-1(SP),-2(R3)
CLRB
(R3)
MOV
(SP)+,RS
MOV
(SP)+,R3
MOV
(SP)+,R2
MOV
(SP)+,R1
MOV
(SP)+,RO
TYPE
+ $DBLK
MOV
2(SP),4(SP)
MOV
(SP)+,(SP)
RTI
10000.
1000.
100.
10.
4
.BLKW
ERROR HANDLER ROUTINE
bt

::BR IF DONE
+ s INCREASE THE BCD DIGIT BY 1
;sADD BACK THE CONSTANT
:sCHECK IF BCD DIGIT=0
ssFALL THROUGH IF 0
+sSTILL DOING LEADING 0'S?
::BR IF YES
;s MSD?
:3BR IF NO
:sYES--SET THE SIGN
:sMAKE THE BCD DIGIT ASCII
:sMAKE IT A SPACE IF NOT ALREADY A DIGIT
:sPUT THIS CHARACTER IN TME OUTPUT BUFFER
3+ s JUST INCREMENTING
;sCHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
::G0 TO EXIT
::GET THE LSD
::6G0 CHANGE TO ASCII
;sWAS THE LSD THE FIRST NON-ZERO?

::BR IF NO

:sYES--SET THE SIGN FOR TYPING
:3SET THE TERMINATOR
::POP STACK INTO RS
;:POP STACK INTO R3
;:POP STACK INTO R2
::POP STACK INTO R1
;:POP STACK INTO RO
:sNOW TYPE THE NUMBER
: sADJUST THE STACK

i sRETURN TO USER

T T

YYrrrOTYwYN

+#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
i#AND GC TO $ERRTYP ON ERROR
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;#SW15=1
;#SW13=1

;%SW10=1
;#SW09=1

;#CALL

031762
031762
031764
031772
031776
032000
032006

104407
116767
105267
001775
016777
032777

147112
147105

147640

147076
002000

147134
147124

ERROR
i
$ERROR:
CKSWR
MOVB
74:
INCB
BEQ
MOV
BIT

HALT ON ERROR
INHIBIT ERROR TYPEOUTS

BELL ON ERROR
LOOP ON ERROR
N

i ;ERROR=EMT AND N=ERROR ITEM NUMBER

+; TEST FOR CHANGE IN SOFT-SWR
:SET UP TEST & ON ERROR
;ERFLG
::SET THE ERROR FLAG
#:DON'T LET THE FLAG GO TO ZERO
$TSTNM,8DISPLAY : :DISPLAY TEST NUMBER AND ERROR FLAG
@BIT10,9SWR
: :BELL ON ERROR?
$TSTNM, TSTNUM

.MAIN.
MACRO M1200 24-MAY-85 11:37
ERROR HANDLER ROUTINE
032014
032016
032022
032026
032032
032040
032046
032054
032056
032062

001402
104401
005267
011667
162767
117767
032777
001055
021627
101046

032064
032072
032100
032104
032110

032116
032122
032126
032132
032134
032140
032142

016667
162767
104401
016746
104402
104401
162716
011667
016746
104402
104401
022626
000422

032147
032152
032155
032160
032163
032166
032171
032174
032177

075
040
116
120
124
040
101
124
000

032112

032144

032200
032200
032204
032210
032210
032216
032220
032226
032232
032233
032234
032236
032242
032244
032246
032250
032256
032260
032264
032270
032272
032276

200

001176
147064
147064
000002
147052
020000

SEQ 0085

1%:
147056
147046
147064

001002

000004
000002
032144
147006

PAGE 46-8

147024
147016

000004
146770
146764

001203

120

103

000
125
130
103
104
122
040
040

000106
001203

122767
001007
116767
004767
000
000
000777
005777
100002
000000
104407
032777
001402
016716
005767
001402
016716

000001

147010

146670
175750

000004

146624
146704
146676

11s:

208:

21s:
22%:
2%:

146676

001000

10$:

12%:

004767
104401

146662

13
+ $BELL
$SERTTL
(SP), $ERRPC
@2, $ERRPC
S3ERRPC, $ITEMB
#BIT13,8SKWR
204
(SP), #1002
124

$:NO - SKIP
: sRING BELL
:sCOUNT THE NUMBER OF ERRORS
+sGET ADDRESS OF ERROR INSTRUCTION

:3STRIP AND SAVE THE ERROR ITEM CODE
+sSKIP TYPEOUT IF SET
+ $SKIP TYPEOUTS
::IF RETURN PC LESS THAN 1002
i ;ERROR IS ILLEGAL TRAP
: ;PROCESS UNEXPECTED TRAP OR INTERRUPT
MOV
4(SP), $ERRPC
::GET PC AT TIME OF FALSE TRAP
SuB
@2, $ERRPC
3+ sADJUST PC
TYPE
.10%
:: TYPE HEADER
MOV
$ERRPC, -(SP)
: :SAVE $ERRPC FOR TYPEOUT

032152

040
040
105
105
105
124
120
117

BEQ
TYPE
INC
MoV
SuUB
MOve
BIT
BNE
CMP
BHI

3$:
4%:

54:

TYPOC
TYPE
SuUB
MOV
MOV
TYPOC
TYPE
CMP
BR

ASCIZ
ASCIZ

118

#4,(SP)
(SP), $ERRPC
$ERRPC, -(SP)
+ $CRLF
(SP)+,(SP)+
204

+:G0 TYPE--OCTAL ASCII(ALL DIGITS)

:3GET FALSE TRAP VECTOR ADDR
s sSAVE $ERRPC FOR TYPEOUT
+3G0 TYPE--OCTAL ASCII(CALL DIGITS)

::POP FALSE TRAP VECTOR PCEADDR

<200>'PC= '
'

UNEXPECTED TRAP TO '

.EVEN
JSR
TYPE

PC, $ERRTYP
+$CRLF

::G0 TO USER ERROR ROUTINE

CMPB
BNE
MOvVB
JSR
.BYTE
.BYTE
BR
TST
BPL
HALT
CKSWR
BIT
BEQ
MOV
TST
BEQ
MOV

QAPTENV, SENV
24
$ITEMB,21$
PC,$ATY4
0
0
22%
8SWR
34

: iRUNNING IN APT MODE
: iNO,SKIP APT ERROR REPORT
+sSET ITEM NUMBER AS ERROR NUMBER
i sREPORT FATAL ERROR TO A°T

#8IT09,8SWR
4
$LPERR,(SP)
$ESCAPE
5$
$ESCAPE, (SP)

: :APT ERROR LOOP
; sHALT ON ERROR

: s SKIP IF CONTINUE
:sHaLT ON ERROR!
i s TEST FOR CHANGE IN SOFT-SWR
::LOOP ON ERROR SWITCH SET?

::BR IF NO

: sFUDGE
:sCHECK
::BR IF
: :FUDGE

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

.MAIN.
MACRO M1200 24-MAY-85 11:37
ERROR HANDLER ROUTINE

2564

032276
032304
032306
032310
032310

022737
001001
000000

021416

PAGE 46-9

SEQ 0086

000042

CHP
BNE
HALT

6%:

000002

#3$ENDAD, 8042
6

+3ACT-11 AUTO-ACCEPT?
: :BRANCH IF NO
13 YES

RTI

.SBTTL

s ;RETURN

ERROR MESSAGE TYPEOUT ROUTINE

b
bttt
T T
T
T
Ty

032312
032312
032316

032320
032322
032326

032330

032334
032336
032340
032342
032344
032346
032350
032354
032360
032362
032364
032366
032372
032376
032400
032402
032404
032410
032412
032414
032416
032422
032424
032424
032426
032430
032432
032434
032440

032442

2565

+#THIS ROUTINE USES THE "ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH
+#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ( $ERRTB),
i#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

104401
010046

005000
153700
001004

016746

104402
000426
005300
006300
006300
006300
062700
012067
001404
104401
000000
104401
012067
001404
104401
000000
104401
011000
001004
012600
104401
000207

$ERRTYP:

001203

TYPE
MOV
CLR
BISB
BNE

001114

146562

MOV

1%:

001332
000004

24:

001203
000004

3s:
4%:

001203

54:
6%:

001203

74:

013046

104402
005710
001770
104401
000771

040

032442

040

000

8¢:

.SBTTL
e

+ $CRLF
RO,-(SP)
RO
80$ITEMB,RO
13
$ERRPC, -(SP)

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BEQ
TYPE
.WORD
TYPE
MOV
BNE
MOV
TYPE
RTS

MOV

8(RO)+,-(SP)

TYPOC
TST
BEQ
TYPE
BR

232'1‘2

6%
RO
RO
RO
RO
#3$ERRTB,RO
(RO)+,2¢
34
O
+ $CRLF
(RO)+,4s
S

(RO)
6%
.84
7%

i s "CARRIAGE RETURN” & “LINE FEED"
:sSAVE RO
+sPICKUP THE ITEM INDEX
+3IF ITEM NUMBER IS ZERO,

i3 TYPE THE PC OF THE ERROR

JUST

i s SAVE $ERRPC FOR TYPEOUT

: sERROR ADDRESS

G0 TYPE--OCTAL ASCIICALL DIGITS)
:3:GET OUT
+ s ADJUST THE INDEX SO THAT IT WILL
i
WORK FOR THE ERROR TABLE
::FORM TABLE POINTER
: ;PICKUP "ERROR MESSAGE"” POINTER
+:SKIP TYPEOUT IF NO POINTER
i TYPE THE "ERROR MESSAGE"
i "ERROR MESSAGE” POINTER GOES HERE
i3 "CARRIAGE RETURN" & “LINE FEED"”
:sPICKUP "DATA HEADER” POINTER
: s SKIP TYPEOUT IF 0O
::TYPE THE "DATA HEADER"
i3 "DATA HEADER” POINTER GOES HERE
i3 "CARRIAGE RETURN" & “LINE FEED"
:sPICKUP “DATA TABLE” POINTER
::G0 TYPE THE DATA
: sRESTORE RO
i "CARRIAGE RETURN” & "LINE FEED"”
s sRETURN

1 :SAVE 8(RO)+ FOR TYPEOUT

::G0 TYPE--OCTAL ASCIICALL DIGITS)
i3IS THERE ANOTHER NUMBER?
::BR _IF NO
+: TYPE TWO(2) SPACES
::LOOP

::TWO(2) SPACES

SCOPE HANDLER ROUTINE
e

;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
i#AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08>
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;4SW14=1
LOOP ON TEST

.MAIN.
MACRO M1200
24-MAY-85 11:37
SCOPE HANDLER ROUTINE

PAGE 46-10

SEQ 0087

;#SW1l1=1

INHIBIT ITERATIONS

;%SW09=1
;#SW08=1

LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

;#CALL

032446

104407

032450
032454
032456
032462
032470

021627
101002
000167
032777
001114

032472

000416

032474
032500
032506
032512
032516
032520
032522
032526

013746
012737
005737
012637
000463
022626
012637
000423

032530
032536
032540
032546
032550
032554
032556
032564
032566
032574
032576
032604
032606
032612
032616
032620
032626
032630
032634
032636
032642
032650
032652
032660
032666
032672
032700
032704
032710
032714
032722

032777
001404
127767
001465
105767
001421
126767
101015
032777
001404
016767
000446
105067
005067
000415
032777
001011
005767
001406
005267
026767
002024
012767
016767
105267
116767
011667
011667
005067
112767
016777

032530

i
SCOPE
$SCOPE:

: s SCOPE=IOT

CKSWR

001002
177300
040000

;s TEST

FOR CHANGE IN SOFT-SWR

::G0 TO ERROR ROUTINE IF RETURN PC LESS THAN 1002
; s OTHERWISE CONTINUE

146450

1$:

CMP
BHI
JMP
BIT
BNE

(SP),#1002
14
$ERROR
#8IT14,8SuWR
$OVER

: sUNEXPECTED TRAP OR INTERRRUPT
: sARE TRAPPED HERE VIA IOT
::G0 PROCESS UNEXPECTED TRAP
::LOOP ON PRESENT TEST?
;s YES IF SWi4=}

; #0004START OF CODE FOR THE XOR TESTER®9000

$XTSTR: BR
000004
032520
177060
000004

000004

5$:

000004
000400

146402

146374

146334

146327
146333

146317

001000

146344

146306

146302

146271
146354
004000

146312

146360
146242
146324
000001
000052
146210
146204
146202
146200
146260
000001
146154

146234
146224
146304
146312

146173
146212

MOV
MOV
TST
MOV
BR
CMP
MOV
BR

SQERRVEC, -(SP)
#53 ,80ERRVEC
84177060
(SP)+,80ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+,80ERRVEC
7%

::IF RUNNING ON THE “XOR” TESTER CHANGE

:3sTHIS INSTRUCTION TO A “NOP” (NOP=240)

;;SAVE THE CONTENTS OF THE ERROR VECTOR
:3SET FOR TIMEOUT
:: TIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR
;G0 TO THE NEXT TEST
:sCLEAR THE STACK AFTER A TIME OUT
;;RESTORE THE ERROR VECTOR
::LOOP ON THE PRESENT TEST

6$:;00000END OF CODE FOR THE XOR TESTER®00O®

BIT
BEQ
CMPB
BEQ
24:
TST8
BEQ
CMPB
BHI
BIT
BEQ
7$:
MOV
BR
4%:
CLRB
CLR
BR
3$:
BIT
BNE
TST
BEQ
INC
CMP
BGE
1$:
MOV
MOV
$SVLAD: INCB
MOVB
MOV
MOV
CLR
MOVB
$OVER:
MOV

#BITO08,8SWR
;:LOOP ON SPEC. TEST?
24
;3BR IF NO
OSWR, $TSTNM
;sON THE RIGHT TEST?
SWR<7:0>
$OVER
::sBR IF YES
$ERFLG
;sHAS AN ERROR OCCURRED?
33
;3sBR IF NO
$ERMAX, SERFLG ; ;MAX. ERRORS FOR THIS TEST OCCURRED?
33
;3sBR IF NO
#B8IT09,8SWR
;;LOOP ON ERROR?
44
;3BR IF NO
$LPERR, $LPADR
+sSET LOOP ADDRESS TO LAST SCOPE
$OVER
$ERFLG
;s ZERO THE ERROR FLAG
$TIMES
:sCLEAR THE NUMBER OF ITERATIONS TO MAKE
1
:;ESCAPE TO THE NEXT TEST
#B8IT11,8SWR
; s INHIBIT ITERATIONS?
1
::sBR IF YES
$PASS
::IF FIRST PASS OF PROGRAM
1
T
INHIBIT ITERATIONS
$ICNT
: s INCREMENT ITERATION COUNT
$TIMES, $ICNT
: sCHECK THE NUMBER OF ITERATIONS MADE
$OVER
:sBR IF MORE ITERATION REQUIRED
#1,$ICNT
: sREINITIALIZE THE ITERATION COUNTER
$MXCNT,$TIMES
;;SET NUMBER OF ITERATIONS TO DO
$TSTNM
;s COUNT TEST NUMBERS
$TSTNM,$TESTN
;;SET TEST NUMBER IN APT MAILBOX
(SP),$LPADR
::SAVE SCOPE LOOP ADDRESS
(SP),$LPERR
: s SAVE ERROR LOOP ADDRESS
$ESCAPE
:sCLEAR THE ESCAPE FROM ERROR ADDRESS
#1, $ERMAX
:sONLY ALLOW ONEC1) ERROR ON NEXT TEST
$TSTNM,8DISPLAY ;;DISPLAY TEST NUMBER

.MAIN.

MACRO M1200

SCOPE HANDLER ROUTINE

2566

032730
032734
032736

24-MAY-85 11:37

016716
000002
003720

PAGE 46-11

SEQ 0088

146152

MOV
$LPADR,(SP)
: ;FUDGE RETURN ADDRESS
RTI
s sFIXES PS
$MXCNT: 2000.
: sMAX. NUMBER OF ITERATIONS
.SBTTL
POMER DOWN AND UP ROUTINES
L

032740
032746
032754
032756
032760
032762
032764
032766
032770
032774
033000
033006
033010

012737
012737
010046
010146

010246
010346
010446
010546
017746
010667
012737
000000
000776

033104
000340

000024
000026

146144
000110
033012

000024

- 033064

033072
033074
033076
033100
033102
033104
033106
033110
2567 033112
033115
033120
033123
033126
033131
033134
033137
033142
033145
2568
2569

012737
016706
005067
005267
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
033112
012716
002526

$PWRDN: MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
zng
BR

033104
000064
000060
000054

000024

146076

032740
000340

000024
000026

000002
000000

000776
000000
015
105
101

105
106
115
117
122
101

000

012
123
122
104
122
040
127
040
111

122
124
124
040
117
120
105

;POWER DOWN ROUTINE

033012
033020
033024
033030
033034
033036
033042
033044
033046
033050
033052
033054
033056

T Ty

#$ILLUP,0PWRVEC ;;SET FOR FAST UP
©340,80PWRVEC+2 ;;PRIO:7
RO, -(SP)
::PUSH RO ON STACK
R1,-(SP)
::PUSH R1 ON STACK
R2,-(SP)
i ;PUSH R2 ON STACK
R3,-(SP)
::PUSH R3 ON STACK
R4,-(SP)
:sPUSH R4 ON STACK
RS,-(SP)
::PUSH RS ON STACK
8SWR, -(SP)
: :PUSH @SWR ON STACK
SP, $SAVR6
1 :SAVE SP
@$PWRU
, 80PWRVEC
P ;;SET UP VECTOR
.-2

ettt

;POWER UP ROUTINE

i iHANG UP
L

L LT

PP PP PP

PP,

$PWRUP: MOV
MOV

#$ILLUP,@¢PWRVEC ;;SET FOR FAST DOWN
$SAVR6,SP
::GET SP

1s:

INC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE
$PWRMG: .WORD
MOV
$PWRAD : éggRD

$SAVR6
;s WAIT FOR THE INC
1$
;:0F
WORD
(SP)+,8SWR
;:POP STACK INTO 8SWR
(SP)+,RS
::POP STACK INTO RS
(SP)+,R4
;:POP STACK INTO R4
(SP)+,R3
;:POP STACK INTO R3
(SP)+,R2
:;POP STACK INTO R2
(SP)+,R1
;:POP STACK INTO R1
(SP)+,RO
;sPOP STACK INTO RO
#$PWRDN, 8¢PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,80PWRVEC+2 ;;PRIO:7
s ;REPORT THE POWER FAILURE
PWRMSG
:;POMER FAIL MESSAGE POINTER
(PC)+,(SP)
i sRESTART AT RESTRT
RESTRT
: sRESTART ADDRESS

$ILLUP:

i+ THE_POWER UP SEQUENCE WAS STARTED
i BEFORE THE POWER DOWN WAS COMPLETE
i sPUT THE SP HERE
<15><12>/RESTARTED FROM POWER FAIL/

CLR

$SAVR6

$SAVR6:
PWRMSG:

HALT
BR
0
.ASCIZ

.EVEN
.SBTTL

TRAP DECODER

; sWAIT LOOP FOR THE TTY

114

PiRAAAARAAAAANAR

LSRR AE

N RAAR A0 000000000000
000000044
0

i#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION

.MAIN.

MACRO M1200

TRAP DECODER

24-MAY-85 11:37

PAGE 46-12

SEQ 0089

033146
033150
033154
033156
033160
033162
033166

010046
016600
005740
111000
006300
016000
000200

033170
033172
033200

011646
016666
000002

+#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
+#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:#G0 TO THAT ROUTINE.

$TRAP:

000002

MOV
MOV
TST
MOVB
ASL
MOV
RTS

033202

RO,-(SP)
2(SP),RO
-(RO)
(RO),RO
RO
$TRPAD(RO)
,RO
RO

:sSAVE RO
:3GET TRAP ADDRESS
; sBACKUP BY 2
:sGET RIGHT BYTE OF TRAP
;sPOSITION FOR INDEXING
;;INDEX TO TABLE
;360 TO ROUTINE

;3 THIS IS USE TO HANDLE THE “GETPRI” MACRO

000004

000002

$TRAP2: MOV
(SP),-(SP)
MOV
4(SP),2(SP)
RTI
.SBTTL
TRAP TABLE

:sMOVE THE PC DOWN
:sMOVE THE PSW DOWN
: sRESTORE THE PSMW

+#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;#BY

033202
033204
033206
033210
033212
033214

033216

2570

033220
033222
033224
033226

033170
027702
031334
031310
031350
031536

THE

"TRAP”

ROUTINE

‘

.......

$TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

030604

$GTSWR

030534
031016
031136
030432

.SBTTL
PiA A RAE

INSTRUCTION.

$TRAP2
;;CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS

;;CALL=GTSWR

$CKSWR ; ; CALL=CKSWR
$RDOCHR
; ; CALL=RDCHR
$ROLIN
;;CALL=RDLIN
$RDOCT
;; CALL=RDOCT
RANDOM NUMBER GENERATOR
S04

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TRAP+6(104406)

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
ROUTINE

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

GET SOFT-SWR SETTING

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY

000008000008 080040008000000 080000000800 444

+#THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
:#WITH A RANGE OF O TO 2(+33)-1.

;&CALL:

i*
i

JSR
RETURN

PC, $RAND

033230

033230
033232
033234
033236
033242
033246
033252
033254
033256
033260
033262
033266
033270
033274
033300
033302
033306

; sNUMBER

010046
010146
010246
016700
016701
012702
006300
006101
005202
001374
066700
005501
066701
062700
005501
062701
010067

$RAND:

000066
000060
177771

000042

000032
001057
047401
000016

18:

:sCALL THE ROUTINE
: sRETURN HERE THE RANDOM
WILL

s s SHINUM, $LONUM

MOV
MOV
MOV
MOV
MOV
MOV
ASL
ROL
INC
BNE
ADD
ADC
ADD
ADD
ADC
ADD
MOV

RO,-(SP)
R1,-(SP)
R2,-(SP)
$LONUM,RO
$HINUM,R1
®-7,R2
RO
R1
R2
1
$LONUM,RO
R1
$HINUM,R1
#1057,R0
R1
947401 ,R1
RO, $LONUM

:sPUSH RO ON STACK
:sPUSH R1 ON STACK
:3PUSH R2 ON STACK
:3SET RO WITH LOW
$3:SET R1 WITH HIGH
:3SET SHIFT COUNT
:3SHIFT RO LEFT AND
:sROTATE CARRY INTO R1 AND
: sCHECK FOR DONE
: sCONTINUE SHIFT LOOP
::ADD NUMBER TO MAKE X 129
: ; PROPOGATE CARRY
:sADD NUMBER TO MAKE X 129
:3ADD LOW CONSTANT
: i PROPOGATE CARRY
:sADD HIGH CONSTANT
::SAVE RO

-MAIN.
MACRO M1200 24-MAY-8S5 11:37
RANDOM NUMBER GENERATOR ROUTINE
033312
033316
033320
033322
033324
033326
033330

010167
012602
012601
012600
000207
176543
123456

000010

PAGE 46-13

SEQ 0090
MOV
MOV
MOV
MOV
RTS
$HINUM: .WORD

$LONUM:

R1, $HINUM

(SP)+,R2
(SP)+,R1
(SP)+,RO

176543
123456

:sSAVE R1
::POP STACK INTO R2
$:POP STACK INTO R1
+:POP STACK INTO RO
s sRETURN

MAIN.

MACRO M1200

ASCII MESSAGES

24-MAY-85 11:37

PAGE 47

SEQ 0091

gg;“;

2574 033332
033335

120
124

117
055

123
122

033346

117

116

104

033357

040

116

117

033365

105

124

040

033376
2575 033400

056
122

000
105

.SBTTL

ASCII MESSAGES

EM1:

.ASCIZ

/POST-RESET CONDITIONS NOT MET IN CSR./

033403
033406
033411
033414
033417
033422
033425
033430
033433

104
122
105
111
106
114
105
116
123

057
111
040
124
101
125
040
040
122

101

127
124
102
040
111
122
111
103
056

EM2:

.ASCIZ

®READ/MWRITE BIT FAILURE IN CSR.s%

2576 033437
033442

131
040
103
123
101
125
040
040

124
101
105
040
111
122
111
103

EM3:

.ASCIZ

/BYTE ACCESS FAILURE IN CSR./

033445
033450
033453
033456
033461
033464

102
105
103
123
106
114
105
116

0
2577 033473

105

122

EM4:

.ASCIZ

/ERROR IN CONNECT PROCESS.”

2578 033525

111

116

124

EMS:

.ASCIZ

/INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED./

033436

MAIN,
MACRO M1200
ASCII MESSAGES

033571
033574
033577
033602
2579 033605
033610
033613
033616
033621
033624
033627

2580 033630
033633
033636

033641
033644
033647
033652
033655
033660
2581 033662
033665
033670
033673
033676
033701
033704
033707
2582 033710
033713
033716
033721
033724
033727
033732
033735
033740
033743
2583 033744
033747
033752
033755
033760
033763
033766
033771
033774
2584 033777
034002
034005
034010
034013
034016
034021
034024
034027
034032

24-MAY-8S 11:37

114
103
101
104
103
114

116
040
116
103
000
105
117
111
122
105
105
122
105
056
116
111
105
120
104
105
105
000
111
105
120
101
127
116
120
117
124

000

103
116
124
117
111
117
114

105
105
117

111
103
116
124
101
125
040
117

PAGE 47-1

SEQ 0092
105
114
122
056
117
104
117
103
116
124

122
122
116
105
101
040
117
123
000
117
116
122
124
105
103
104
116
122
124
124
122
107
122
122

131

117
105

040
116
124
116
101

125
056
122
122
116
117
105

040
111
122

120
103

040
105
105
000

125

EM6:

.ASCIZ

/COULD NOT CONNECT./

.ASCIZ

/ERROR IN RELEASE PROCESS./

EM10:

.ASCI1Z

/NO INTERUPT DETECTED./

EM11:

.ASCIZ

/INTERUPT AT WRONG PRIORITY./

116
103
103
104
111
040
111
122

EM12:

.ASCIZ

/CONNECT CONDITION FAILURE./

122

EM13:

.ASCIZ

/ERROR IN CONNECT FAILURE PROCESS./

040
124

117
105
056
122
040
040
114

123
120
103
123

040
124

125

124
124
056
124
125
040
117

040
111
111
056

000
040

040
116
103
106
114
105
122
105

MAIN.
MACRO M1200
ASCII MESSAGES

034035
034040
2585 034041
034044
034047
034052
034055
034060
034063

034066
034071
034074
034077
034102
034105
034110
034113
034116
2586 034120
034123
034126
034131
034134
024137
034142
034145
034150
034153
2587 034154
034157
034162
034165
034170
034173
2588 034175
034200
034203
034206
034211
034214
034217
034222
034225
034230
034233
034236
034241
2589 034242
034245
034250
034253
034256
034261
034264
034267
034272
034275

24-MAY-8S 11:37

SEQ 0093

123

056

105
117
111
122
105

122
122

122
040
040
114

000

PAGE 47-2

116

105
101

040

123
127

110
124
125
040
123
122
111
000
105

EM14:

.ASCIZ

/ERROR IN RELEASE TEST WITHOUT BUSS MASTERSHIP./

EM1S:

.ASCIZ

/RELEASE CONDITIONS NOT MET./

117
111
116
040
124

EM16:

.ASCIZ

/TMO BIT NOT SET./

125
116
040
101
127
124
105
105

EM17:

-ASCIZ

#COULDN'T READ/WRITE EXTERNAL DEVICE.%

EM20:

-ASCIZ

/RESET HOLD (HLD) DIDN'T DISABLE RESET./

123
124

124
111
117
040
123
115
124
123
120
114
123
103

111
123
117
115
056

101

104
111
056
123

040

110
051
111
047
104
101

040

124

102

114
050
104

116
040
123
114

MAIN.

MACRO M1200

ASCII MESSAGES

034300

;

105

105
124
122
105
050

034325

104

034322

040

123
056
105
124
122

122
105
000
123
040
123

EM21:

.ASCIZ

/RESET

EM22:

.ASCIZ

/THE OPERATION OF THE RESET-IN-NEUTRAL HAS CHANGED./

SPACE:
SELMS:

.ASCIZ
.ASCII

.ASCII

<200>/1=MONOPORT TEST/

075
114
120
124
105

.ASCII

<200>/2=MULTIPORT TEST/

075
116
114
116
122
116
117
124
124
075

.ASCII

<200>/3=MANUAL INTERVENTION TEST/

.ASCIZ

<200>/4=TEST NPR LINE/

124

051

040

034330
034333
034336
034341

116
040
122
000

047
127
113

104
124
117
056

034350
034353
034356
034361
034364
034367

105
124
116
106
110
122

122
111
040
040
105
105

114

040

124
040

034372
034375
034400
024403

105
111
116
. 124

034411
034414

101
103

034406
034417

034422

2592 034425
2593 034427
034432
034435
034440
034443
2594 034446
034451
034454
034457
034462
034465
2595 034466
034471
034474
034477
034502
034505
2596 034507
034512
034515
034520
034523
034526
034531
034534
034537
2597 034542

PAGE 47-3

SEQ 0094

034303
034306
2590 034311
034314
034317

2591 034342
034345

24-MAY-85 11:37

116

104

040
200
124
123
105
101
200
115
117
122
124
124
200
115
124
117
040
123
200
115
125
040
124
126
124
116
105
200

111

110
117

124
116
105
122
123
110

107

056

000
060
110
040
123
107
061
117
120
124
105
062
125
111
122
124
124
963
101
101
111
105
105
111
040
123
064

105
120
101
117
117
124
040
123
055
055
125
101
110
040
101
105
000
075
111
115
123
105
075
116
117
040
123

(RST) DIDN'T WORK./

<200>/0=THIS MESSAGE/

.MAIN.
MACRO M1200
ASCII MESSAGES
034545
034550
034553
034556
034561
2598 034563
034566
034571
034574
034577
034602
034605
034610
034613
034616

2599 034617
034622

034625
2600 034626
034631
034634
034637
034642
024645
034650
034653
034656
034661
034664
034667
034672
2601 034674
2602 034677
034702
034705
034710
034713
034716
034721
034724
034727
034732
034735
034740
034743
034746
034751
034754
2603 034755
2604 034760
034763
034766
034771
034774
034777
035002
035005

24-MAY-8S 11:37

124
124
120
114
105
105
117
124
124
123
125
011
123
122
200
120

011
000

105
117
124
124
127
124
122
104
105
103
101
122
123
120
105
117
124
124
102
123
101
111
040
123
011
126
105
104
105
200
120
105
117
124
124
122
105
122
104

PAGE 47-4

SEQ 0095

105

040
122
111
000
122
122

105
043
110
114
127

123
116
040
116
122
011

117

103
102

011
105

122
122
105
043
122
105
105
011
126
105
104
105
200
103
122
122
105

122
011
123
011
117
011
101
104
111
040
104
123

043
111
040
111
116

122
105
104
111

040
104

123

103
122
122

105
043
105
124
105
011

.ASCII

/ERROR

.ASCIZ

/PC

DH2:

.ASCII

/ERROR

TEST#

WROTE

DH3:

.ASCIZ
.ASCII

/PC/
/ERROR

TEST#

BITS FAILING RESET

DH4:

.ASCIZ
.ASCII

/PC/
/ERROR

TEST#

RESET

TEST®

SHOULD

WAS

FROM/<200>

READ

DEVICE ADDRESS/<200>

123

011
117
104
101
106
115

011

DH1:

000
122
011
123
011
124
106
114
107
105
124
105
103
101
122
123
000

122
011
123
011
123
011
101
104

BE/

READ

DEVICE ADDRESS/<200>

MAIN.
MACRO M1200
ASCII MESSAGES
035010
035013
035016
035021
035024
2605 035026
035031
035034
035037
035042
035045
035050

2606 035052
035055
2607 035060
035063
2608 035065
035070
035073
035076
035101
035104
2609 035107
035112
035115
035120
035123
035126
035131
2610

2611 035134
035142
2612 035150
035156
2613 035164
035172

2614 035176
2615 035202
2616

24-MAY-85 11:37

105
103
101
122
123
120

SEQ 0096
126

105

105
114

104
105
200
103
040
040
040
040
111
000
122
122
120
000
122
122
040
040
040
122
120
040
040
040
040
126
000

001116
001126
001116
001126
001116
001636
001116
001116

001632
001122
001632
001636
001632
000000
000000
027164

040
040

002612

PAGE 47-5

111
040
104
123
040
040
040
040
040

.ASCIZ

/PC

.ASCII

/ERROR/<200>

.ASCIZ

/ PC 7/

.ASCII

/ERROR

.ASCIZ

/ PC

BITS/

124

122
200
103

DHS:

122
040
040
040
040
200
103
040
040
040
114

BR/<200>

LEVEL/

105

001124
000000
001640
000000
001126
000000

DT1:

.EVEN
$ERRPC, TSTNUM, GOOD ,BAD ,BADA, 0

DT2:

$ERRPC, TSTNUM, DEVRW,BAD,DEVAD,
0

DT3:

$ERRPC, TSTNUM,BAD,DEVAD, 0

DT4:
DTS:

$ERRPC,0
$ERRPC,BRCNT,
0
ROUT3
.END

LMAIN.
MACRO M1200
SYMBOL TABLE

24-MAY-85 11:37

PAGE 47-6

SEQ 0097

ABASE = 177420
ACOW1 = 000000
ACOW2 = 000000
ACPUOP= 000000
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000
ADDW13= 000000
ADDW14= 000000
ADDW15= 000000
ADDW2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDWS = 000000
ADDW6 = 000000
ADDW?7 = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000
AENV
= 000000
AENVM = 000000
AFATAL= 0C0000
AMADR1= 000000
AMADR2= 000000
AMADR3= 000000
AMADR4= 000000

027176
027200
BERE
027202
BITO
= 000001
BITO0 = 000001
BITO1 = 000002
BIT02 = 000004
BITO3 = 000010
BITO4 = 000020
BITOS = 000040
BITO6 = 000100
BITO7 = 000200
BITO8 = 000400
BIT09 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BITi4 = 040000
BIT1S = 100000
8IT2
= 000004
BIT3
= 000010
BIT4
= 000020
BITS
= 000040
BIT6
= 000100
BIT7
= 000200
BIT8
= 000400
BIT9
= 001000

035052
035065
DISPAT
007722
DISPLA
001142
DISPRE
000174
DMODE
022754
DSWR
= 177570
DTIME
023316
DT03
001634
DTl
- 035134
D12
035150
DT3
035164
DT3SP
014760
DT4
035176
DTS
035202
ECHOB
026206
EMT
= 104000
EMTVEC= 000030
EM1
033332
EM10
033662
EM11
033710
EM12
033744
EM13
033777
EM14
034041
EM15
034120
EM16
034154
EM17
034175
EM2
033400
EM20
034242

AMAMS2=
AMAMS3=
AMAMS4=
AMSGAD=
AMSGLG=

BRCNT
BREND
BRLV
BUFF1
CKADR

EM22
EM23
EM24
EM25
EM26

AMAMS1= 000000

AMSGTY=
AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=
APASS =
APRIOR=

000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000

APTCSU= 000040

APTENV= 000001

APTSIZ= 000200

APTSPO=
ASWREG=
ATESTN=
AUNIT =
AUSHR =
AVECT1=
AVECT2=
BAD
=

BADA
BEBA
BEBD
BECC

000100
000000
000000
000000
000000
160350
000000
001126

= 001122
027174
027170
027172

BECR1
BECR2

BPTVEC= 000014

CKSWR =
CLRREG
CNTLC
CONID
CONNEC
COVID
CR
=

CRDY
CRLF

CSR

104407
027576
026376
021510
021452
001730
000015

027652

= 000200

CURFUN
CURID
CYCLE
DDISP =
DEVAD
DEVCON
DEVRC
DEVRW

DH1
DH2
DH3
DH4

027164
027246
027236
027212
026340

001622
001722
001724
001726
177570
001636
001754
001642
001640

034563
034626
034677
034760

DHS
DH6

EM21

EM27
EM3
EM4
EMS
EM6
EM7
ENDMG

034311

034342
027252
027302
027334
027412

027504
033437
033473
033525
033605
033630
027560

ERREN = 017510
ERROR = 104000

ERROUT

ERRVEC=
EXPEND
EXPRT1
EXPRT2
EXPRT3
EXPTCT
FLAG
FLUSHM

FLUSHP
FUNCT1
FUNCT2
FUNCT3

026310

000004
001654
001646
001650
001652
001656
026336
022702

022724
010164
010660
011706

FUNCT4
FUNCTS

012076
012374
GETADR
024010
GOOD
= 001124
GTSWR = 104406
HT
= 000011
INTVEC
027204
IOT
= 000004
IOTVEC= 000020
KIPARO= 172340
KIPAR1= 172342
KIPAR2= 172344
KIPAR3= 172346
KIPAR4= 172350
KIPARS= 172352
KIPAR6= 172354
KIPAR7= 172356
KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDRS= 172312
KIPDR6= 172314
KIPDR7= 172316
KONST
001752
LF
= 000012
MANEND
021256
MANIN
015056

MANMOD

MASMEN
MASTER
MENV
MMVEC =
MONEND

015074

022206
007740
001676
000250
007544

PR3
= 000140
PR4
= 000200
PRS
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSW
= 177776
PWFSER
020602
PWRMSG
033112
PWROK
016154
PWRVEC= 000024
RCATCH
027630
ROCHR = 104410
ROLIN = 104411
RDOCT = 104412
REPAR = 024552
REQ
= 000001
RESTRT
002526
RESVEC= 000010
ROUTE
002672
ROUT1
002566
ROUT2
002600
ROUT3
002612
ROUT4
002636
R6
=%000006
R7
=%000007
SALMEN
022274
SCOPE = 000004
SECT2
012770
SECT2A

SECT28
SECT2C
SZCT20
SECT3
SECT4

MONPRT
MULDT3
MULEND
MULPRT
NEXENT
NPR
NULL

026544
027555

SEQPTR
SEQSTP

ONOFF

001744

SETUP2

NUM

00PS

PARFLG
PARIN
PASS
PFVSEV
PIRQ
=
PIRQVE=
PORTNO
POSTSV=

PRI

PRO
PR1
PR2

002676
012540
015014
007556
001674

027166

022600

SECTS
SELMS
SEQ
SEQINT
SEQMAK

002232

002260

SETUP3

SLAVE
SPACE
SRO
SR1
SR2
SR3
STACK
START

= 000000
= 000040
= 000100

STPNEX
SWBPWF
SWR

001630

014374
034427
001660
022444
022076
001672
022466

SETUP1

026204
024534
027162
017746
177772
000240
001644
020564

013370

013434
013664
013402
013674
014150

002302

=
=
=
=

010054
034425
177572
177574
177576
172516
001100
001762

STKLMT= 177774

022542
016740
001140

LMAIN.

MACRO M1200

SYMBOL TABLE
SWREG
SWO
SWO0
SWO1
SW02
SWO3
SWO4
SWOS

SW06
SWO07
SW08
SW09

f
|

=
=
=
=
=
=
=

=
=
=
=

24-MAY-85 11:37

SEQ 0098

000176
000001
000001
000002
000004
000010
000020
000040

TST12
TST13
TSTi4
TST1S
TST16
TST17
TST2
TST3

000100
000200
000400
001000
SW1
= 000002
SW10
= 002000
SWil
= 004000
SWi2
= 010000
SW13
= 020000
SWi4
= 040000
SW15
= 100000
SW2
= 000004
SH3
= 000010
SW4
= 000020
SHS
= 000040
SW6
= 000100
SW7
= 0C0200
SW8
= 000400
SW9
= 001000
SYNCUP
021642
TABM
012526
TBITVE= 000014
TEMP1
001732
TEMP2
002674
TICK
021636
TIMA
001746

TIMB

001750

TOCK

021640

TST4
TSTS
TST6
TST7

035210
000000
ERRORS DETECTED:

$AUTOB
$BASE
$8DADR
$BDDAT

$COM1

001266

$ATY3

$ATY4

$BELL

$CDW2

000064
000034
026222
021564
001756
000014
026430
001632
003060
005032
005240

$CHARC
$CKSWR
$CMTAG
$CM3
=
$CM4
=
SCNTLG
$CNTLU
$CPUOP
$CRLF
$DBLK
$DDWO

ABS.

005530
005710
006154
006546
006702
007050
003152
003404

003524
003760
004242
004550
026212
104405
104401
104402
104404
104403
001760
001624
001626
021600
021566
021540
021552
001000
030210
030164
030172
030202
001134
001262
001122
001126

X
TYPDS =
TYPE
=
TYPOC =
TYPON =
TYPOS =
USEPAR
VECO
VEC2
WAIT
WAITOS
WAIT10
WAIT20
$APTHD
$ATYC
$ATY1

TKVEC = 000060
TPVEC =
TRAPVE=
TRAP4
TRIG
TRIN
TRTVEC=
TSTNPR
TSTNUM
TST1
TST10
TST11

PAGE 47-7

001176

001270

030160
030534
001100
000000
000005
031261
031254
001234
001203
031752
001272

000
001

VIRTUAL MEMORY USED:
51568 WORDS
( 202 PAGES)
DYNAMIC MEMORY:
20060 WORDS
( 77 PAGES)
ELAPSED TIME:
%0 .77

CRDTAC,CRDTAC/ -#v: wi’. /C.HLB/ML, CRDTAC . P11

$0DW1
$0DW10
$00W11
$00W12
$00W13
$0DW14
$0DW15
$DDW2
$0DW3
$0DW4
$DDWS
$DDW6
$0DW7
$00W8
$0DW9
$DEVCT
$DEVM
$DOAGN
$DTBL
$ENDAD
$ENDCT
$ENDMG

$ENULL
$ENV
$ENVM
$EOP
$EOPCT
$ERFLG
$ERMAX
$ERROR
$ERRPC
- $ERRTB
$ERRTY
$ERTTL
$ESCAP
$ETABL
$ETEND
$FATAL
$FFLG
$SFILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HIBTS
$HINUM
$HIOCT

001274

001316
001320
001322
001324
001326
001330
001276
001300
001302
001304
001306
001310
001312
001314
001216
001264
021426
031742
C21416
021364
021435
021432
001226
001227
021330
021356
001103
001115
031762
001116
001332
032312
001112
001174
001226
001332
001210
030430
001156
001155
001120
001124
021406
030604
001000
033326
030532

$ICNT
$ILLUP
$INTAG
$ITEMB
SLF
SLFLG
$LONUM
$LPADR
$LPERR
$MADR1
$MADR2
$MADR3
$MADR4
$MAIL
$MAMS1
$MAMS2
$MAMS3

001104
033104
001135
001114
001204
030427
033330
001106
001110
001240
001244
001250
001254
001206
001236
001242
001246
$MAMS4
001252
$MBADR
001002
$MFLG
030426
$MNEW
031277
$MSGAD
001222
$MSGLG
001224
$MSGTY
001206
$MSWR
031266
$MTYP1
001237
$MTYP2
001243
$MTYP3
001247
$MTYP4
001253
$MXCNT
032736
$NULL
001154
SNWTST= 000001
$OCNT
031532
$OMODE
031534
$OVER
032722
$PASS
001214
$PASTM
001006
$PWRAD
033100
$PWRDN
032740
$PWRMG
033074
$PWRUP
033012
$QUES
001202
$RAND
033230
$ROCHR
031016
$ROLIN
031136
$RDOCT
030432
$RDSZ = 000010

$RTNAD

$SAVR6
$SCOPE
$SETUP =
$STUP =
$SVLAD
$SVPC =
$SWR
=
$SWREG
$SWRMK =
$TESTN
$TIMES
$TKB
$TKS
$TMPO
$TMPL
$TMP2
$TMP3
$TMP4
$TN
=
$TPB
$TPFLG
$TPS
$TRAP
$TRAP2
=
$TRP
$TRPAD
$TSTH
$TSTNM
$TTYIN
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT

021430
033110
032446
000137
177777
032666
000204
167400
001230
000000
001212
001172
001146
001144
001160
001162
001164
001166
001170
000020
001152
001157
001150
033146
033170

000013

033202
001004
001102
031244
031536
027702
030114
030162
031334
031350
031310
001220
SUNITM 001010
001232
$USKR
$VECT1
001256
$VECT2
001260
$XTSTR
032472
$$GET4 = 000000
$SOFILL
031533
$40CAT
000000
= 001000
. $X