Digital PDFs

AH-E780C-MC

February 1981

166 pages

Original

8.1MB

view download

OCR Version

7.1MB

view download

Document:	CZDRLC0 DR11 DR11 GEN NPR INTFC FEB 1981 bw
Order Number:	AH-E780C-MC
Revision:	000
Pages:	166
Original Filename:	CZDRLC0__DR11__DR11_GEN_NPR_INTFC__AH-E780C-MC__FEB_1981_bw.pdf

OCR Text

ORL1

DR11

GEN

NPR

CZDRLCO

INTFC

AH-E7BOC-MC

e i1

FICHE 1 OF 1 %S%?&;’“ g

CIZORLCO=-DRI1 GEN NPR INTF(

MACRO M1113

27-0CT-80 15:53

PION) =

S OOV

=D b e

oad e ed =D

NO NI NN 2O OO0 NN

.REM

8
PAGE 2

SEQ 0001

)

IDENTIFICATION

PRODUCT COOE:

AC-E779C-MC

PRODUCT NAME:

CZORLCO DR11

DATE RELEASED:

OCTOBER, 1980

MAINTAINER-

DIAGNOSTIC ENGINEERING

AUTHOR:

DAN P. MILLEVILLE

GEN NPR INTF(

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT COPROPRATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT,
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY Of
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED COMPANIES.

DIGITAL
DEC

POV
DECUS

UNIBUS
DECTAPE

MASSBUS

CIPRLTO-DRIY GEN NPR INTFC
34
35

MACRD M1113

27-0CT-80 15:53

¢
PAGE 3

SEQ 0002

HISTORY

REV

DATE

NOTE

38
39
40

A
B
C

1977
1980
1980

INITIAL RELEASE
CORRECTION OF CODING ERRORS
11705 PROBLEM AND ENDLESS LOOP PROBLEM FIXED

CIORLCO-DRIT

GEN NPR

INTFC

MACRO M1113

27-0CT-80 15:53 PAGE &
TABLE OF

CONTENTS

ABSTRA(T
REQUIREMENTS

2.1
2.2
2.3

EQUIPMENT
HARDWARE SWITCH SETTINGS
STORAGE

TESTING MODES

3.1
3.2

DEFINITION
IMPLEMENTATION

LOAD AND START PROCEDURE
SWITCH REGISTER

5.1
5.2

5.3
5.4

OPTIONS
SOFTWARE SWITCH REGISTER

LOADING OF THE SOFTWARE SWITCH REGISTER
PROGRAM AND/OR OPERATOR ACTION

ERROR REPORTING
OPERATING MOOtS

7.1

MANUAL MODE
7.1.1
EDIT FUNCTION
7.1.2
LIST FUNCTION

7.1.3
7.1.4

8.0

7.2

RUN FUNCTION

AUTO MODE
RESTART AFTER PREVIOUS RUN
TESTING UNDER APT

MISCELLANEOUS

8.1

8.2
9.0

BURST (ALIBRATION FUNCTION

POWER FAILL

END-OF-PASS MESSAGE SPECIAL FEATURE

EXECUTION TIMES

SEQ 0003

CIDRLCO-DRT1 GEN NPR INTF(
39

MACRO M1113
10.0

88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
}}?
}}%

114

115
116

27-0CT-80 15:53

SUBROUTINE DESCRIPTIONS

10.1
10.2
10.3
10.4
10.5
10.6
10.7
10.8
10.9
10.10
10.11
10.12
10.13
10.14
10.15
10.16
10.17
10.18
10.19
10.20
10.21
10.22
10.23
11.0

PAGE 5

READ
ERCAPT
FTCAPY
FIXTBL
LODBUF
CHKBFF
INTA
DATCHK
CLENUP
CHKCAB
DATOCK
ERRCHK
DEVADS
BPINIT
DRGET
TYPCNF
(HK4DR
ASIZE
VCTADS
CATCN
PSTATE
PNTPRI
SETTUP

DATA STACKS

11.2
11.3

PATRNS

EXPATO
EXPATY

SEQ 0004

CIDRLCO-DRT1 GEN NPR INTFC
}}g

MACRO M1113
1.0

27-0(T-80 15:5%

PAGE 6

ABSTRACT

119
}%?

THIS DIAGNOSTIC PROGRAM 1S CAPABLE OF TESTING THE DR11-W
NPR GENERAL INTERFACE IN DR11-w OR DR11-B MODE.

}%%

IT HAS THE FOLLOWING FEATURES:

124

APT11/XXDP COMPATIBLE

125

MULTIPLE BOARD TESTING USING TABLE CREATED BY USER

127

INDEPENDENT 'LOGIC WRAP-AROUND' AND 'CABLE WRAP=-ARQUND' TESTING

126

BURST DATA LAVE CALIBRATION

SEQ 0005

MACRO M1113

27-0CT7-80 15:53

2.C

REQUIREMENTS

2.1

2.
3.

L.
2.2

PAGE 7

STANDARD COMPUTER

PDP11

1/0 TYPE TERMINAL
1-16 DR11-W MODULE(S)

DTAGNOSTIO)

HARDWARE

SWITCH SETTINGS

THE ADDRESS SELECTION SWITCH, E120, IS SET UP AS BELOW:

VIS

R
L L
T
x X Y T R L X
pEprr
2
T
prppa

ADDRESS BITS:

THIS SWITCHPACK MUST BE IN THE FOLLOWING

|
R
I
| DN I

VLSRN
—

QFFf

ON
OFFf
OFf

ON FCR -W MODE, OFF FOR -B MODE

2 CYCLE MODE - SWITCH HANDLE TOWARDS PACK E105

N CYCLE MODE - SWITCH HANDLE TOWARDS €94

THE VECTOR SELECTION SWITCH, E15, IS SET UP AS BELOW:

VECTOR BITS:

2.3

L Akl

DEVICE ADDRESS 172410, SWITCHES 1, 3, 5 & 10 SHOULD BE

SINGLE SWwl!CH NEAR THE F105 SWITCHPACK:

EXAMPLE:

LT L

OFF, AND ALL OTHERS SHOULD BE ON.

THE E105 SWITCHPACK:

OO0 NO NN
-

b
b
o
ed e
e

POSITIONS TO RUN THIS DIAGNOSTIC:

(O RV LV LU IV, IV 1V, 1V, IV, }

d e

LOOP BA(K CABLE (NEEDED 10 FULLY CHECK THE MODULE WITH THIS

EXAMPLE:

SEQ@ 0006

EQUIPMENT
1.

oW oW ol S

2 OOV

VIV TV T IV TV TV T

TV W

NO NS W) = O 000

—l-—b—b—l_‘—‘.—o—.—l_‘_‘_‘.fl-fl-fl—‘.—l_‘

N1 )

CZORLCO-DRI1 GEN NPR INTFC

VECTOR ADDRESS 300, SWITCHES 6 & 7 SHCULD BE

OFF, AND ALL OTHERS SHOULD BE ON.

STORAGE

THE PROGRAM USES APPROX. 52200 WORDS OF MEMORY

MACRO M1113

27-0CT-80 15:53

3.0

TESTING MODE
3.1

D e

COOOCOVOVIVOOVOOOOY 00 000000000000 000000~ ~N~J
NS NN OO0~
B WN—=OOVONONEWN—O OO

PAGE 8

SEQ@ 0007

DEFINITION

THE DR11-W DIAGNOSTIC ACCOMPLISHES DEVICE REGISTER BIT TESTS,

d e

INTERNAL '‘LOGIC'' WRAP-AROUND TESTS, AND WITH THE B(06-R WRAPAROUND CABLE IN J1 AND J2, PROVIDES EXTERNAL ''CABLE'' WRAP=-AROUND

TESTS.

IN ORDER TO FULLY CHECK THE MOOULE, THE DIAGNOSTIC MUST

D i

BE RUN WITH AND WITHOUT THE WRAPAROUND CABLE IN PLACE, RESTARTING
?;Eeoggg?‘s ;0(1) %;\cu TIME, OR EDITING TO CHANGE THE CABLE MODE

POPORINIR)
b D ed d s b b e =D b e

CIDRLCO-DRY1 GEN NPR INTFC

THERE ARE ONLY TWO LEGAL MODES OF OPERATION OF THIS DIAGNOSTIC:
1.

DR11 WITH NO CABLE(S)

IN USER SLOTS.

DR11 WITH WRAP-AROUND CABLE FROM J1 TO J2.

THIS DIAGNOSTIC IS NDT MEANT TO BE RUN IN THE FOLLOWING MODES:
1.

2.
3.2

DR11

CONNECTED TO ANOTHER DR11.

DR11 CONNECTED TO A USER DEVICE.

IMPLEMENTATION

DEVICE REGISTER BIT TESTS AND INTERNAL LOGIC WRAP-ARQUND TESTS
ARE EXECUTED UNCONDITIONALLY.

CABLE WRAP-AROUND TESTS ARE

EXECUTED ONLY IF THE BCO6-R CABLE IS IN PLACE BETWEEN THE J1
THE PRESENCE OF
AND J2 CONNECTGRS ON THE DR11-W UNDER TEST.

205
206
207
208

THIS CABLE [S "'SIZED'' FOR AUTOMATICALLY FOR EACH BOARD WHEN
THE DIAGNOSTIC IS STARTED AT ADDRESS 200. THE USER *MUSTe
VERIFY THAT THE ''SIZING'' OCCURRED CORRECTLY BY OBSERVING THE
OUTPUT OF IHE PROGRAM WHEN STARTING AT 200. (REFER TO SECTION
5.1 FOR EXAMPLE) IF THIS SUMMARY IS NOT NEEDED, RAISE BIT 12
OF THE SWITCH REGISTER BEFORE PROGRAM EXECUTION.

212
213
214

IN MANUAL MODE (STARTING ADDRESS = 204), THE USER CAN FORCE
UNIFORM TESTING PARAMETERS FOR ALL MODULES THROUGH USE OF THE

209
S}?

EDIT FUNCTION (REFER TO SECTION 7.1.1).

CIDRLCO-DRI1 GEN NPR INTFC
215

216

518

219

220
221

MACRO M1113

4.0

27-0CT-80 15:5%

PAGE 9

1
SEQ 0008

LOAD AND START PROCEDURE

LOAD PROGRAM INTO MEMORY.

RESPECTIVELY)
PRESS START.

LOAD STARTING ADDRESS 200, 204 OR 210.

(SEE SECTS. 7.1, 7.2, 7.3

ARV R R ALAL N AL NI AL NININININD

DIV IV IV IOV V] N1 NI, VI V1,81, V1.V
P SV P XV TSP Y
Vo Yo I NTo VP IV | V]

CZORLCO-DRTY GEN NPR INTF(

237

MACRO M1113

27-0C7-80 15:53

1
J
PAGE 10

5.0

SWITCH REGISTER

5.1

OPTIONS

SEQ 0009

SWITCH

OCTAL

FUNCTION

SW15=1

100000

HALT ON ERROR

THIS WILL CAUSE

Swi14=1

020000

THE PROCESSOR TO HALT AT THE

LOOP ON TEST

040000
THI S
TES T

SW13=1

ERROR.

WILL CAUSE THE PROCESSOR TO LOOP ON THE
IT

THEN EXECUTING.

INHIBIT ERROR TYPEOUTS

THIS WILL CAUSE ERROR TYFEOUTS TO BE
Sw12=1

010000

INHIBITED.

DO NOT PRINT BOARD CONFIGURATION
THIS WILL CAUSE THE LIST OF ALL BOARDS AND
THEIR SETUP DATA THAT THE AUTOSIZE ROUTINE
FOUND TO NOT PRINT.

Sw11=1

004000

TEST NUMBER TRACE ENABLING

THIS ENABLES THE PRINTING OF THE FOLLOWING AT
THE BEGINNING OF EACH TEST:
T

THIS CAN BE USED WHEN AN UNEXPECTED TRAP OCCUKS

IN A TEST, BUT LOOPING ON THAT TEST RESULTS IN

NO ERROR(S).

SW10=1

002000

BELL ON ERROR

THIS FUNCTION CAUSES THE TERMINAL BELL TO SOUND
THIS CAN BE USED IN CCNWHEN AN ERROR OCCURS.
JUNCTION WITH LOOP-ON-TEST AND INHIBIT-ERRORTYPEQUTS TO SEE If A LOOSE CONNECTION MAY Bt
CAUSING THE ERROR.

SW09=1

001000

LOOP ON ERROR

I
THIS FUNCTION WILL CAUSE LOOPING ON ERROR.
RORINHIBIT-ER
WITH
ON
CONJUNCTI
IN
CAN BE USED
TYPEQUTS WHEN USING A SCOPE TO FIND A FAULTY
COMPONENT
.

CIDRLCO-DRI1 GEN NPR IMTF(

273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
¢93
294
295
296
297
298
299
300
301
302

MACRO M1113

27-0(T-80 15:53

SW08=1

PAGE

K
11

SEQ 0010

LOOP ON TEST IN SWR<6:0>

000400
F

NCTION CAUSES THE CPU TO JUMP TO THE

BITS <6:0> AND EXECUTE THAT TEST UNCONN LY.
CHANGE THE SWITCH REGISTER TO EXIT.
3 TEA TIGHTER LOOP ON THAT PARTICULAR
I

, SET LOOP-ON-TEST (40000) IN THE SWR ONCE

TEST
3

Swi7=1

IS EXECUTING.

INHIBIT MULTIPLE ERROR TYPEOUTS

000200

ON ERROR CALLS IN LOOPS WHERE MULTIPLE ERRORS
ARE POSSIBLE, THIS FUNCTION INHIBITS ANY ADDIEIOuQLEDATA THAT MAY PRINT [N THAT LOOP.
XAMPLE

MULTIPLE

TYPEOUTS ENABLED:

CERROR MESSAGE]
[(DATA HEADER]

OO
XOOOOOC
XXXXXX
XXXXXX
OO

XXXXXX
XK
OO0
XXXXXN
XXXXXX

XXX
XXXXOC
XX
XAXXXAX
XXX

XNXXAX
XXXXXX
XXXXXX
XXXXXX
XXXXXX

>>>>>>NOTE< <LK

A MAXIMUM OF 17 (OCTAL) DATA LINES WILL
PRINT.
IF THERE ARE MORE, A MESSAGE WILL

PRINT AS FOLLOWS:

THERE ARE STILL MORE ERRORS, BUT WILL NOT BE PRINTED.

ERRORS WILL STILL BE COUNTED AND PRINTED AT THE EOP.
MULTIPLE

TYPEOUTS DISABLED:

[ERROR MESSAGE]
[(DATA HEADER]

XOOONC

XXXXXX

(NO MORE DATA WILL PRINT)

THE TOTAL NUMBER

OF ERRORS WILL STILL BE TOTALED AND PRINTED
AT

THE

EOP OR END.

CZORLCO-DR11 GEN NPR INTF(

MACRO M1113

L1
PAGE 12

27-0CT-80 15:53
5.2

SEQ 0011

SOF TWARE SWITCH REGISTER

If THE WARDWARE SWITCH REGISTER DOES NOT EXIST, OR

IF ONE DOES AND IT CONTAINS '=1' (177777) THEN THE
SOFTWARE SWITCH REGISTER (LOCATION 176) IS USED,

WHICH ALLOWS THE USER THE SAME SWITCH OPTIONS AS THE
HARDWARE SWITCH REGISTER.

5.3

LOADING THE SOFTWARE SWITCH REGISTER
THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF

SWITCH REGISTER (LOCATION 176) FROM THE TTY.

PLISHED AS FOLLOWS:

THE SOF TWARE

THIS IS ACCOM-

TYPE CONTROL G <“G> REPEATEDLY, AS RESETS AND INITS DONE

IN THE DIAGNOSTIC MAY CLEAR THE CHARACTER BEFORE THE
ONCE INPUT IS RECOGNIZED, THIS
CHARACTER [S RECOGNIZED.
A%L0U$E£¥E TTY TO ENTER DATA INTO LOCATION 176 AT THE END

THE MACHINE WILL TYPE: SWR=XXXXXX NEW=
(XXXXXX IS THE OCTAL
CONTENTS OF THE SOfTWARE SWITCH REGISTER)

AFTER THE
A.

NEW=' THE OPERATOR CAN DO ONE OF THE FOLLOWING:

TYPE A NUMBER TO BE LOADED INTO LOCATION 176 FOLLOWED BY A <(R>
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS

WILL BE ALLOWED).

IF A <CR> IS THE FIRST ENTRY THE SOFTWARE SWITCH REGISTER WILL

NOT BE CHANGED.

8.
5.4

[IF A CONTROL U <*U> IS DEPRESSED, THE PROGRAM WILL GO BACK

TO STEP 2.

PROGRAM AND/OR OPERATOR ACTION

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN
1S NORMAL LOGIC TESTING.
IF AN ERROR IS DETECTED,
THERE WILL BE A PRINTOUT.
WHEN AN ERROR IS DETECTED
AND IT IS NECESSARY TO SCOPE ON IT, PLACE 100000
(BIT 15) IN THE SWITCH REGISTER TO HALT ON ERROR.
AFTER HALTING AT THE ERROR TO BE LOOPED ON, ENTER 60000,
IF THERE S MORE
LOCP-ON-ERROR AND INHIBIT PRINTOUTS.
THAN ONE ERROR CALLED IN A TEST, AND YOU WISH TO LOOP ON
OTHER THAN THE 1ST ERROR, YOU MUST CORRECT THE CONDITION
CAUSING THE PREVIOUS ERROR(S) BEFORE YOU CAN LOOP ON THAT

ERROR.

NOP'ING THE PREVIOUS ERRORS WILL PRODUCE UNPREDIC-

TABLE RESULTS FOR ANY SUBSEQUENT ERRORS IN THE TEST.

CZORLCO-DRI1 GEN NPR INTFC

MACRO M1113
6.0

27-0(T-80 15:53

PAGE 13

ERROR REPORTING

EACH TEST Wicl CALL AN ERROR CONTAINING THE TEST NUMBER, ERROR P(
AND DATA THAT IS SIGNIFICANT TO THE PROBLEM THAT CAUSED THE ERROR.

IN THE CASE OF MULTIPLE BOARD TESTING, THE FAILING MODULE IS IDENTIFIED
BY THE DEVICE REGISTER ADDRESS, AND THE END-OF-DEVICE-TEST MESSAGE
FOLLOWING AL ERRORS FOR THAT PARTICULAR MCDULE.

SEQ 0012

CZDRLCO-DR11 GEN NPR INTFC
%;%

i;g

%;g

3178

MACRO M1113
7.0

27-0CT-80 15:53

PAGE 14

SEQ 0013

OPERATING MODE

7.1

MANUAL MODE (STARTING ADDRESS = 204)
DEFINED AS NON-AUTOMATIC USE OF THE DIAGNOSTIC.

THIS MODE IS INTENDED FOR USE IN MANUFACTURING WHEN APT IS

%gg

NOT AVAILABLE.

381
%g%

IN MANUAL MODE, ALL DR11-W HARDWARE MODULES *MUST+*BE*CONF IGURED®
*AS*FOLLOWS®:

384
%gg

> W/B, PRIORITY LEVEL, 2/N CYCLE AND CABLE STATES SET
*IN*ALL*MODULESY.

387
388
389
%g?

> ALL DEVICE ADDRESSES MUST BE SET IN A SERIES SPACED 10 LOCATIONS
AFART, STARTING WITH THE ADDRESS INPUTED TO THE PROMPT ‘'STARTING
DEVICE ADDRESS XXXXXX :'.
(ALL MODULES MUST BE ADDRESSED
WiTHIN THE LEGAL ADDRESS RANGE OF 171000 10 177000)

392
393

> ALL VECTOR ADDRESSES MUST BE SET IN A SERIES SPACED 10 LOCATIONS
APART.
(ALL MODULES MUST BE VECTORED WITHIN THE LEGAL VECTOR

396

> THE MODULE WITH THE LOWEST DEVICE ADDRESS MUST ALSO HAVE THE

%glso

397
398

Zgg

RANGE OF 300 10 770)

LOWEST VECTOR ADDRESS, THE MODULE WITH THE NEXT TO THE LOWEST
DEVICE ADDRESS MUST ALSO HAVE THE NEXT TO THE LOWEST VECTOR
ADDRESS, ETC.

28}

BOARD #

403
4«04

28(;

405

408
409
41?
4

IDENTICAL

FOR EXAMPLE:

DEVICE ADDRESS

VECTOR ADDRESS

0
1

172410
172420

300
310

172440

330

1724630

320

ETC.

ONLY UNDER MANUAL MODE DOES THE DIAGNOSTIC OFFER ‘'BURST
DATA LATE' CALIBRATION.
AFTER LOADING PROGRAM, DEPOSITING
SA 204, AND PRESSING START, THE PROGRAM TYPES THE FOLLOWING:

2}%

MULTIPLE BOARD DIALOGUE

4}%

ENTER COMMAND (CEIDIT, CLJIST, (BJURST CALIBRATION, [RIUN):

416
(17

THE PROGRAM WILL ALLOW ONLY 1 CHARACTER INPUT, AUTOMAT]CALLY
PRINTING A <CRLF> WHEN THE CHARACTER IS INPUTED.

CZORLCO-DRTY1 GEN NPR INTFC
418
619
420

MACRO M1113

27-0CT-B0 15:53
[ A

B 2
PAGE 15

SEQ 0014

WHEN [E] IS ENTERED, THE PROGRAM ENTERS THE EDIT FUNCTION

622
423

*NOTE+: TO EXIT THIS ROUTINE AT ANY RESPONSE AND RETURN
TO THE MBD PROMPT, ENTER CONTROL °C' (*C).
THIS DOES
NOTHING BUT EXIT THE ROUTINE, AND DOES NOT CHANGE ANY
TO RETURN TO THE PREVIOUS
VALUES PRESENT OR CHANGED.

425
426

'EDIT' RESPONDS FIRST BY PRINTING:

621

L2464

627
428
429
430
43
432
433
434
435
436
437
438
439
440
441
442
443

L44
445
446
447
448
449
4«50
451
452
453

454
455
456
457
458
459
46C
461
462
463
46l

465

466

“67
468
469
470
%4
472
473
474

PROMPT,

TYPE <ESC>.

# OF BOARDS UNDER TEST

PROGRAM ACCEPTS A MAXIMUM OF 2 DECIMAL CHARACTERS,
AN APPROPRIATE ERROR MESSAGE IS PRINTED IF THE NUMBER
INPUTED IS OUT OF RANGE, OR AN ILLEGAL CHARACTER WAS
INPUTED. ENTER <CR> IF PRESENT VALUE IS OK. NEXT:
XXXXXX :

STARTING DEVICE ADDRESS

THE USER SHOULD RESPOND WITH THE LOWEST DEVICE ADDRESS

IN THE SERIES. PROGRAM ACCEPTS A MAXIMUM OF 6 OCTAL
DIGITS BETWEEN 171000 AND 177000. AN APPROPRIATE ERROR

MESSAGE IS PRINTED IF THE NUMBER INPUTED IS OUT Of
ENTER <(CR>
RANGE, OR AN ILLEGAL CHARACTER WAS INPUTED.
NEXT:
If PRESENT VALUE IS OK.
XXX :

STARTING VECTOR ADDRESS

THE USER SHOULD RESPOND WITH THE LOWEST VECTOR ADDRESS

IN THE SERIES.

PROGRAM ACCEPTS A MAXIMUM OF 3 OCTAL

DIGITS BETWEEN 300 AND 777. AN APPROPRIATE ERROR
MESSAGE IS PRINTED IF THE NUMBER INPUTED IS OUT OF
ENTER <(R>
RANGE, OR AN ILLEGAL CHARACTER WAS INPUTED.
NEXT:
If PRESENT VALUE IS OK.
DR11-w OR B (W=0) CURRENT STATE = X :

PROGRAM ACCEPTS EITHER A O OR 1, REPEATING THE PROMPT
IF ANY OTHER CHARACTER IS INPUTED. ENTER <(R> [F
PRESENT VALUE

IS OK.

DEVICE PRIORITY PRESENT LEVEL = X :

PROGRAM ACCEPTS 1 CHARACTER BETWEEN O AND 7, REPEATING
THE PROMPT [F ANOTHER CHARACTER IS INPUTED. ENTER <(R>
If PRESENT VALUE IS OK.

2 OR N CYCLE BURST (2 Cv=0) PRESENT STATE = X .

PROGRAM ACCEPTS A 0 OR 1, REPEATING THE PROMPT [F ANY QTHER
CHARACTER IS INPUTED. ENTER <CR> IF PRESENT VALUE [S OK. NEXT:
DO CABLE TESTS (NO=0) PRESENT STATE = X :

PROGRAM ACCEPTS A O OR 1, REPEATING THE PROMPT [F ANY
OTHER CHARACTER IS INPUTED. ENTER <CR> [F PRESENT
VALUE IS OK. THEN THE COMMAND PROMPT IS REPRINTED.

CIDRLCO-DRI1 GEN NPR INTF(
475
L7¢
Wy
478
479
480
481
482
483
484
485
486
487
488
489

MACRO M1113

27-0C7-80 15:53
7.1.2

¢ 2
PAGE 16

SEQ 0015

WHEN [L) IS ENTERED, THE PROGRAM ENTERS THE LIST FUNCTION
THE DIAGNOSTIC THEN PRINTS THE FOLLOWING:

y OFf

START

BOARDS

REGADR

VECADR

XXXXXX

XXX

w-8

P-LEV

CYCLE

2-N

CABLE

AS PREVIOUSLY MENTIONED, ALL BOARDS MUST BE SPACED 10
ADDRESS LOCATIONS APART STARTING WITH THF °'REGADR'
VALUE ABOVE, AND VECTORS SPACED 10 ADDRESS LOCATIONS
APART STARTING WITH THE °‘VECADR' VALUE ABOVE.
THE
EXPECTED W-B, PRIORITY LEVEL, 2-N CYCLE AND CABLE TEST
STATES WILL BE THE SAME FOR ALL MODULES.

TESTS

CZDRLCO-DRT1
490

LN
492
493

GEN NPR

INTFC

MACRO M1113

27-0CT-80 15:53
7.1.3

D_2
PAGE 17

SEQ 0016

WHEN [B] IS ENTERED, THE PROGRAM ENTERS THE BURST DATA
LATE CALIBRATION ROUTINE, AND THE FOLLOWING IS TYPED:
BURST DATA LATE CALIBRATION IN PROGRESS..
ATTACH SCOPE PROBE...

494

TO CALIBRATE NEXT BOARD, TYPE ANY CHARA(CTER
DEVICE # 0O UNDER CALIBRATION

495
496
497
498
499
500
501
502

THIS ROUTINE WILL NOT EXECUTE IF YOU HAVE NOT USED
EDIT TO DEPOSIT A LEGAL STARTING ADDRESS AND VECTOR

ADDRESS, OR THE PROGRAM HAS ALREADY BEEN STARTED AT
200. THE MULTIPLE BOARD DIALOGUE (MBD) PROMPT
WiLL BE RETURNED IF THIS IS THE CASE. AS STATED IN
THE DR11 ENGINEERING SPECIFICATION, THE °'BURST DLT®
MULTIVIBRATOR TIME OUT MUST BE CALIBRATED SO AS TO BE
COMPATIBLE WITH THE USER DEFINED TRANSFER RATE IN
BURST MODE OPERATION. THE PROGRAM S{"TWARE ROUTINE
SETS THE CYCLE BIT IN THE CSR OF THE DR11, A SHORT
DELAY IS EXECUTED, AND THEN THE (YCLE .'T IS CLEARED.
THE DIAGNOSTIC THEN TESTS FOR ANY CHARACTER WAITING,
INDICATING THE USER WISHES TO GO ON TO THE NEXT BOARD.
If NONE, IT RE-EXECUTES THE SETTING AND CLEARING OFf
[F A CHARACTER WAS INPUTED, 1T CHECKS
THE CYCLE BIT.
FOR THE NEXT BOARD, AND IF ANY, SETS UP THE ADDRESSES

—

AV [V LV, [V, IV [V, LV IV, ]
b d ed b od d b s

503
504
505
506

=2 OO0 NO NS

FOR THAY MODULE, THEN PRINTS THE FOLLOWING:

DEVICE #

X UNDER CALIBRATION

(W TV T
PON)

IT THEN REACCOMPLISHES
"X' BEING THE DEVICE NUMBER.
THE SETTING AND CLEARING OF THE CYCLE BIT FOR THAT
IF NO FURTHER MODULES ARE FOUND, THE MESSAGE:
DEVICE.
BURST CALIBRATION COMPLETE

IS ISSUED, AND THE MBD PROMPT IS THEN RETURNED FOR
TOC ACCOMPLISH THE BURST DATA LATE
ANOTHER COMMAND.
CALIBRATION, ATTACH A SCOPE PROBE TO E83-7 ON THE
DR11-W (REFER TO PRINT SET M8716-0-1). A POSITIVE
THE PULSE SHOULD BE SET
PULSE WILL BE OBSERVED.
BETWEEN 3-30 US. BY ADJUSTING POT. R80.
7.1 .4

WHEN [R] IS ENTERED, THE PROGRAM BEGINS DIAGNOSTIC
TEST EXECUTION. THIS WILL BE BLOCKED If LEGAL STARTING
DEVICE ADDRESSES AND VECTOR ADDRESSES PAVE NOT BEEN
SET UP. IF THEY ARE, THE REGISTER AND VECTOR TABLES
ARE FILLED, AND NORMAL START ]S EXECUTED.

CIDRLCO-DRT1 GEN NPR INTFC

MACRO M1113

27-0CT-80 15:53
7.2

PAGE

E
2
18

AUTO=-SIZE MODE

SEQ@ 0017
(STARTING ADDRESS = 2 o0

THIS MODE IS THE NORMAL FIELD SERV I CE MODE.
IT SUPPORTS
R
UNDER ACTI
OPERATION
IPT
STANDALONE OPERATION AS WELL AS SC
OR XXDP (CHAIN).

THE DR11 DIAGNOSTIC HAS THE FOLLOWING RUN CHARACTERISTICS WHEN
OPERATING IN AUTO MODE:
A.

THE PROGRAM WILL TEST THE BOARDS RECOGNIZED BY THE AUTOSIZE
ROUTINE.
THE AUTOSIZE ROUTINE WILL LOOK AT ADDRESSES

BETWEEN 172414 AND 172604 IN STEPS OF 10 (20 OCTAL LOCA-

TIONS).
1T WILL INITIALLY DETERMINE IF THE LOCATION IT
FOUND TO EXIST IS A DR11 BY FORCING AN INTERRUPT.
IF THE
BOARD FAILS TO INTERRUPT, YOU MUST USE MANUAL MODE TO FORCE
TEST EXECUTION OF THAT MODULE.
THE PURPOSE OF THIS INITIAL
TEST 1S TO ELIMINATE TESTING A MOODULE THAT IS NOT A DR11,
AND DETERMINE THE INTERRUPT PRIORITY AND VECTOR OF THAT
MODULE.
THE ONLY LEGAL INTERRUPT VECTORS THE DR11 CAN BE

SET UP FOR ARE AS FOLLOWS:
40, 50-174, AND 254-774, ALL N
STEPS OF 4.
EACH BOARD CAN HAVE A VECTCR ANYWHERE IN THE
STATED RANGES WITH NO RESTRICTIONS, ALLOWING COMPLETE
FLEXIBILITY

IN THE

TEST

SEQUENCF.

IN THE CASE OF MULTIPLE DR11-W'S ON THE SAME CPU, EACH
DR11-W MUST HAVE ITS OWN UNIQUE DEVICE/VECTOR ADDRESSES.

THERE ARE NO CONSTRAINTS THAT THE BOARDS MUST START WITH
THE FIRST DEVICE ADDRESS 172410, OR THAT MULTIPLE BOARDS
ARE ASSIGNED CONSECUTIVE DEVICE ADDRESSES.
WHEN OPERATING

IN AUTO-SIZE MODE, THE USER SHOULD VERIFY THE ''SIZED"

CONF IGURATION BY KNOWING HOW THE BOARDS ARE SET UP AND

COMPARING WITH THE AUTOSIZE OUTPUT WHEN STARTING AT 200.
AUTO-SIZING WILL DETERMINE THE INTERRUPT PRIORITY, INTERRUPT VECTOR, W/B, 2/N CYCLE, AND CABLE STATES OF EACH
BOARD, INDEPENDENT OF THE STATES OF OTHER BOARDS.

CZDRLCO-DRT1 GEN NPR INTF(

572
573%

574

575
2;9
2;8

580
gg%

583

ggg

MACRO M1113

27-0CT-80 15:53

SEQ 0018

THE FOLLOWING WILL NOT BE OFFERED TO THE USER IN AUTOSIZE
MODE
1.
2.

BURST DATA LATE CALIBRATION
MULTIPLE BOARD DIALOGUE

THE DIAGNOSTIC WILL PRINT THE FOLLOWING:

DIAGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE
DRIT1=W(S) 1T HAS FOUND. USER *MUSTe DETERMINE ACCURACY

BOARD#
X

586

REGADR
XXXXXX

VECADR
XXX

Ww/B
X

P-LEV

{*X)

INHIBITS EOP'S,

CABLE
X

(*Y) FOR ERROR SUMMARY

gg%

CZDRLCO DR11 GEN NPR INTFC LOGIC TEST

609

RESTART AT ADDRESS XXXXXX

UNIBUS HANG?

605
606
607
608

2-N CY

HAS BEEN PRINTED.

gg?

594
595
596
597
598
599
600
601
602
603
604

DATA WILL CONTINUE TO PRINT UNTIL DATA FOR ALL MODULES

ggg

589

PAGE 19

THE CONTROL X (“X) FEATURE BYPASSES THE SECTIONS THAT PRINT THE
END-OF-PASS AND END=-OF-DEVICE MESSAGES. THIS IS TO IMPROVE THE
NUMBER OFf PASSES EXECUTED OVER ANY PERIOD OF TIME, AS WELL AS
MAKE OVERNIGHT OR WEEKEND RUNS USE LESS PAPER. ERROR TYPEQUTS
ARE NOT DISABLED IN THIS MODE. WHEN AN ERROR OCCURS, THE ENDOF-PASS (EOP) WILL PRINT FOR THAT PASS, AND, IF MORE THAN ONE
MODULE IS BEING TESTED, AN END-OF-DEVICE (EOD) AS WELL AS ENDOF=-PASS WILL PRINT SO YOU WILL KNOW WHICH DEVICE AND PASS WAS
EXECUTING WHEN THE ERROR OCCURED.
IN ORDER TO GET A PROGRESS
REPORT, HIV ANY KEY REPEATEDLY, SINCE INITS AND RESETS DONE
DURING THE EXECUTION OF THE DIAGNOSTIC MAY CLEAR THE CHARACTER
WAITING FLAG BEFORE THE CHECK FOR THIS 8IT. WHEN THE CHARACTER
IS RECOGNIZED, AN EOP, AND IF MORE THAN ONE MODULE, AN EOv
MESSAGE WILL PRINT GIVING THE USER A PROGRESS REPORT. 10 DISABLE THIS FEATURE, REPEATEDIY ENTER (*X) AGAIN UNTIL THE (PU
RECOGNIZES YCUR INPUT,

el
el
D
D

YV T STy o)

el
el
el
D

ny — —d

[@X
e}[0 XNTe SV, F

O
oo oocoocorcrOO

CIDORLCO-NRI1 GEN NPR INTFC

MACRO M1113

27-0CT-80 15:53

PAGE 20

SEQ 0019

THE CONTROL Y (*Y) FUNCTION CALLS FOR A SUMMARY OF DEVICE(S)
AND PASS(ES) THAT HAD ERRORS.
IF NO ERRORS OCCURED SINCE THE

BEGINNING OF THE DJAGNOSTIC, OR SINCE THE LAST ERROR REPORT,
THE

IS PRINTED:

FOLLOWING

NO ERROR TOTALS TO REPORT

THERE WERE ERRORS, THE FOLLOWING IS PRINTED:

SUMMATION OF ERRORS SINCE BEGINNING OR LAST REPORT
BOARD #

PASS #

ERRTTL

X
X

(ETC.)

THE INFORMATION IS STORED ON A STACK THAT wWiLi HOLD UP TO 150

(DECIMAL) DEVICE=-PASS ERROR DATA LINES ABOVE.
[F THE LIMIT IS
REACHED, DIAGNOSTIC WILL CONTINUE, BUT FURTHER DATA WILL NOT BE

THE DATA ACCUMULATED IS NOT WRITTEN OVER, BUT WHEN ("Y)
STORED.
IS CNTERED, THE FOLLOWING IS PRINTED JUST BEFORE THE ‘'SUMMATION...
STATEMENT ABOVE:

STACK IS FULL - DATA MAY HAVE BEEN LOST

WHEN THE DATA IS PRINTED, THE STACK IS REINITIALIZED AND WILL
START STORING UP TO ANOTHER 150 ERROR DATA LINES.

IN THE EVENT THE UNIBUS BECOMES HUNG, AND YOU HAVE NON-VOLATILE

MEMORY OR BATTERY BACKUP, RESTART THE PROGRAM AT THE ADDRESS

SPECIFIED BY THE 'UNIBUS HUNG...' PROMPT AT THE START OF THE

DIAGNOSTIC.

THE PRINTOUT WILL BE AS FOLLOWS:

DEVICE ADDRESS = XXXXXX, TEST NUMBER = XXXXXX, PASS NUMBER - XXXXXX

(PU WILL HALT,

HITTING CONTINUE WILL CAUSE THE PROGRAM TO

RESTART AS THOUGH YOU HAD STARTED AT 200.

CIDRLCO-DRT1 GEN NPR INTF(C
646

647
648
649
650
651
652
653
654
655
656
657
658

MACRO M1113

27-0CT-80 15:5%
7.3

PAGE 21

RESTARTING PRGGRAM [N MEMORY (STARTING ADDRESS = 210)

WHENEVER THE PROGRAM [S HALTED, ALL HISTORY OfF PREVIOUS TESTING
1T WILL REMAIN INTACT UNTIL:
IS SAVED.
1.

ANOTHER PROGRAM |S LOADED INTO MEMORY

THE USER RE-EDITS THE TABLE

THIS START
TO RESTART THE PROGRAM, ENTER SA 210 AND START,
PRECLUDES ANY SETUP AND NEGATES THE START MESSAGE OBTAINED
0O NOT START AT THIS LOCATION [F THE
WHEN STARTING AT 200.

DIASSOSTIC HAS NOT BEEN PREVIOUSLY ''STARTED'' AT EITHER 200

204.

SEQ 0020

CZDRLCO~DRI1 GEN NPR INTF(
659
660
661
662

663
664
665
666
667
668
669
670
671
672
673
674
675

676

677
€78
679
680
681
682

MACRO M1113
7.4

27-0CT-B0 15:53

[
2
PAGE 22

TESTING UNDER APT

(AUTOMATED PRODUCT TESTING)

TO SET UP FOR MULTIPLE BOARDS FOR TESTING UNDER APT CONTROL,
THE APT SYSTEM MANAGER SHOULD ANSWER THE APT QUERIES TO THE
FOLLOWING

ITEMS AS

INDICATED BELOW:

SOF TWARE ENVIRONMENT:

ENVIRONMENT MODE

697
698
699

700
(")
702
703
704
705
706
707
708
709
710

001

- SCRIPT MODE
DIAGNOSTIC)

(APT MONITORS

ACCORDINGLY

200 - DIAGNOSTIC MUST USE CONFfIGURATION SPECIFIED BY APT ($VECTI,
$VASE, S$DEVM, $DDWX)

VECTOR ADDRESS ($VFCT1):

300

DEVICE ADDRESS ($BASE):

172470

DEVICE MAP (SDEVM):

XXXXXX = EACH SET BIT INDICATES THAT
BOARD 1S PRESENT AND SHOULD
BE TESTED. EXAMPLES:

BIT 0 = BOARD #0 (DEVICE ADR = 172410, VEC ADR
BIT 1 = BOARD #1 (DEVICE ADR = 172420, VEC ADR
BIT 2 = BOARD #¢ (DEVICE ADR = 172430, VEC ADR

300)
310)
320)

BIT 15 = BOARD #15 (DEVICE ADR = 172600, VEC ADR = 470)

691

692

000 - DUMP MODE

(SENVM): 000 - LET DIAGNOSTIC AUTO-SIZE
(ONF IGURATOR AND TEST

683
684
685
686
687
688
689
690
693
694
695
696

SeEQ@ 0021

DEVICE DESCRIPTOR WORDS:

XXXXXX = THERE

IS 1

DESCRIPTOR WORD

FOR EACH DEVICE:

$DDWO 1S FOR DEVICE O
$DDW1 IS FOR DEVICE 1, ETC.
EACH DESCRIPTOR WORD MUST BE
SET UP AS FOLLOWS:

BIT O - DR11-W OR -B MODE
(W=0, B=1)
BIT 1 - 2/N_CYCLE
(0=2 Cvy, 1=N CY)
BIT 2 - CABLE TESTS
(0=NO,

1=YES)

BIT 5\
> DEVICE PRIORITY
BIT 6
/
7
BIT

e
—d

D e

D md o

NN NNNNNNN

O 00NN SN

CZORLCO-DRT1 GEN NPR INTFC

720

MACRO M1113

27-0CT-80 15:5%

8.0

MISCELLANEOUS
8.1

PAGE 23

POWER FAIL

IF A POWE!

FAILURE OCCURS AND BATTERY BACKUP MAINTAINS

THE PROGRAM IN MEMORY, OR A NON-VOLATILE MEMORY EXISTS,
THE PROGRAM WILL RESTART PRINTING THE FOLLOWING:
POWER FAILURE - RESTARTING PROGRAM

;%;

THE DIAGNOSIC WILL THEN RESTART AT ADDRESS 210.

723
724
725
726

IF CPU IS TURNED OFF WHILE RUNNING, THE ABOVE PROCEDURE
IS FOLLOWED. IF THE PROCESSOR IS HALTED FIRST, THEN
TURNED OFF, THE PROCESSOR WILL COME BACK UP HALTED. TO
RESTART THE PROGRAM, H[T CONTINUE, AND THE REMAINING

727

PROCEDURE [S THE SAME AS ABOVE.

SEQ 0022

CIDRLCO-DRT1

GEN NPR

INTF(

MACRO M1113

27-0CT-80 15:53
8.2

K
2
PAGE 24

SEQ 0023

END-OF =PASS MESSAGE

THE EOP WILL PRINT AS FOLLOWS WITH NO ERRORS ON THAT PASS:
END PASS # XXXXXX

gEElEgP WILL PRINT AS FOLLOWS WITH SOME ERRORS WHEN TESTING 1
)

END PASS # XXXXXX

TOTAL ERRORS SINCE LAST REPORT XXXXXX

THE EOP WILL PRINT THE SAME AS WITH NO ERRORS ON ANY PARTICULAR
PASS WHEN TESTING MORE THAN ONE DEVICE AND ONE OR MORE DEVICES
HAS FAILED, SINCE °'TOTAL EPRORS' IS MEANINGLESS AND WILL MORE
THAN LIKELY BE

INCORRECT.

THE PASS NUMBER IS CAPABLE OF GOING UP T0 99,999,999 DECIMAL,
1IN
OR ABOUT 3 MONTHS RUNNING WITH EOP DISABLED AND NO ERRORS.
DIAGNOSTICS.
OTHER
WITH
AS
LIMIT
THE
OTHER WORDS, 32767 IS NOT

CIORLCO-DRI1 GEN NPR INTF(
47

748

;gg

751

752

MACRO M1113
9.0

27-0CT-80 15:53

PAGE 25

EXECUTION TIME

ON A PDP11/44:

IN ALL MODES: APPROXIMATELY 8 PASSES PER SECOND WITH EOP MESSAGES

DISABLED AND NO ERRORS.

SEQ 0024

CIDRLCO-DRI1 GEN NPR INTF(
753

754
755

;29

MACRO M1113
10.0

27-0CT-80 15:53

10.1

DIGITS EXPECTED, SINCE A <CRLF> IS PRINTED WHEN THE LIMIT IS
REACHED. ENTERING A <CRLF> BEFORE THE LIMIT IS ACCEPTABLE, AS
IT WILL BE INTERPRETED AS A NON-NUMERIC CHARACTER AND EXIT.
IN ANY CASE, THE LAST INPUTED ASCII CHARACTER IS LEFT IN LOCATION "ANSWER'. IF A NUMERIC CHARACTER IS INPUTED, IT WILL
CLEAR ALL BUT THE 1ST & BITS IN LOCATION 'ANSWER', EXPOSING THE
VALUE OF THE DIGIT INPUTED, ROTATE R4 TO THE LEFT 3 PLACES TO
MAKE ROOM FOR THE INPUTED DIGIT, AND ADD IT TO R4&. LOCATION

*LRGSTC' 1S 70 BF LOADED WITH THE LARGEST ASCII NUMBER DIGIT

ACCEPTABLE FOR THIS NUMBER, [.E. 7 OR 9 (FOR OCTAL OR DECIMAL
INPUT RESPECTIVELY). ANY CHARACTER QUTSIDE ASCII '0' OR '7/9°
IS TREATED AS A NON-NUMERIC, TRIGGERING AN AUTOMATIC <CRLF>

774

775

AND EXIT.

10.2

779
780
781
782
;gg

ING ERRORS IS LOST.

10.3

WARNING THAT DATA MAY HAVE BEEN LOST.

;g;

10.¢

IN THE FIRST LOCATIONS IN STEPS OF 10 FOR EACH TABLE.

;gg

801

802

803

FIXTBL

THIS SUBROUTINE FILLS THE 17 OCTAL LOCATIONS STARTING AT
"REGADR' AND 'VECADR' FROM THE STARTING VALUES ALREADY LOADED

795
796
ggg

PTCAPT

THIS SUBROUTINE PRINTS THE DATA STORED BY THE ERCAPT SUBROUTINE
AND RESETS THE SPECIAL STACK POINTER. IF NO DATA WAS STORED, A
MESSAGE STATING NO DATA WAS STORED IS PRINTED. IF THE STACK IS
FOUND FULL, A MESSAGE ANNOUNCING THIS FINDING IS PRINTED,

787
788
789
790
;82

ERCAPT

THIS SUBROUTINE SAVES THE UNIT NUMBER, PASS NUMBER AND TOTAL
ERRORS FOR THAT DEVICE/PASS WHENEVER IT ENCOUNTERED ERRORS,
THIS ROUTINE SAVES DATA FOR 150 (DECIMAL) PASSES. IF THE STACK
SHOULD BECOME FULL, DATA STARTING WITH THE 151ST PASS CONTAIN-

783

784

READ
THE READ SUBROUTINE IS USED IN THE EDIT ROUTINE TGO INPUT UP TO
6 DIGITS IN OCTAL, 2 DIGITS IN DECIMAL, OR A SINGLE NONNUMERIC CHARACTER. R& IS USED AS THE LOCATION TO HOLD THE
NUMBER IN OCTAL, AND [S CLEARED FOR THAT PURPOSE AT THE START
OF THE SUBROUTINE. R3 IS TO BE PRELOADED WITH THE NUMBER Of

769
770
44
772
773

;;g

SEQ 0025

SUBROUTINE ABSTRACT

758
759
769
761
762
763
764
765
766
767
768

776

PAGE 26

10.5

LODBUF

THE INBUF BUFFER IS LOADED WITH AN INCREMENTING PATTERN

(0,1,2,3,...) BEGINNING AT THE STARTING ADDRESS OF INBUF.

THE

NUMBER ‘OF WORDS LOADED 1S DETERMINED BY THE CONTENTS OFf BUFLEN.

CIDRLCO-DRIT1 GEN NPR [INTFC

MACRO M1113

10.6

NTe JV P JV 1,§]

CHKBFF

ALTERNATING DATI-DATO SEQUENCE OF OPERATION.

10.7

INTA

THE 1€ BIT IS CLEARED IN THE CSR THEN THE CSR IS CHECKED FOR
THE ABSENCE OF THE ERROR BIT AND THE PRESENCE OF READY.
THE

WCR IS CHECKED TO SEE THAT [T IS EQUAL TO ZERO. THE CORRECT
CONTENTS OF THE BAR ARE CALCULATED AND CHECKED. THE PROGRAM
WILL FAIL TO UPDATE THE PC RETURN ADDRESS BY 2 IF ERROR IS SET,
READY IS CLEAR, READY AND ERROR ARE CLEAR OF THE (SR, W(R IS
NOT ZERO OR THE BAR CONTENTS IS NOT ZERO.
THIS WILL CALL THE
[IF ALL DATA
TEST.
THE
IN
CALL
JSR
THE
AFTER
JUST
IS
THAT
ERROR
THE SuBFROM
RETURN
THE
AND
UPDATED,
IS
PC
THE
ACCEPTABLE,
IS

[o B

hutrutr GuarQuir Gt

SEQ 0026

THE CHKBUF BUFFER [S LOADED WITH A MODIFIED INCREMENTING PATTERN (0,0,2,2,6,4,6,6,...) BEGINNING AT THE STARTING ADDRESS OFf
CHKBUF. THE NUMBER OF WORDS LOADED IS DETERMINED BY THE (ONTENTS OF BUFLEN.
THIS BUFFER IS LOADED ONLY FOR TESTS WHICH
USE THE MAINTENANCE MODE OF THE DR11-W WHICH HAS A SPECIAL

©o 0o 0o 00 0o OO 00

N_2
PAGE 27

27-0CT-80 15:53

ROUTINE

10.8

1S AFTER THE ERROR CALL.

DATCHK

THIS ROUTINE 1S ENTERED TO CHECK INBUF AFTER A MAINTENANCE MODE
OPERATION. THL CONTENTS OF INBUF AND THE CONTENTS Of CHKBUF
ARE CHECKED TO SEE THAT THEY ARE THE SAME. THE NUMBER OF (OMPARISONS MADE 1S DETERMINED BY THE CONTENTS OF BUFLEN. ANY

ERRORS RESULT IN AN RTS TO THE TEST TO CALL THE ERROR THERE. A
JSR BACK TO THE SUBROUTINE IS EXECUTED TO RESUME ITS CHECKING.

WHEN RETURNING, SP RETURN ADDRESS IS UPDATED BY 6 TO RETURN
AFTER THE ERROR CALL AND JSR RETURN.

10.9

CLENUP

THE ROUTINE IS ENTERED AT THE END OF SEVERAL TESTS TO CLEAR ANY
DATA THAT MAY HAVE BEEN LEFT IN ANY REGISTERS, AND TO RESTORE
THE

10.10

INTERRUPY VECTORS.

CHKCAB

THIS ROUTINE IS USED IN VARIOUS TESTS TO ALTER THE EXPECTED
DATA IF THE WRAP-AROUND CABLE IS OUT.
10.11

DATOCK

AFTER A STRING OF DATO'S HAS BEEN COMPLETED THIS ROUTINE CHECKS
THAT THE CORRECT DATA PATTERN WAS TRANSFERRED TO INBUF. THE
NUMBER OF COMPARISONS MADE IS DETERMINED BY THE CONTENTS Of

BUFLEN. AN ERROR IN THE CHECK RESULTS IN AN RTS TO THE TEST 10
CALL THE FIRST ERROR AFTER THE JSR CALL, WHERE A JSR RETURNS
CONTROL BACK TO THE SUBROUTINE FOR FURTHER
TIONAL CHECK IS MADE ON BUFLEN+2 TO INSURE
WORDS WERE TRANSFERRED. IF THEY WERE, THE
ALTERED SO THAT THE SECOND ERROR AFTER THE
NO ERRORS, RETURN [S ALTERED TO JUST AFTER

CHECKING. AN ADDITHAT NOT TOO MANY
PC RETURN ADORESS 1S
IF
JSR IS CALLED.
THE SECOND ERROR 7 °LL.

CIZDRLCO-DRT1 GEN NPR

INTF(

MACRO M1113

860
861
862
863
864
865
866
867
868
869

10.12

873

10.14

870
871
872

874
875
876
877
878
879
880
881
882

883

27-0CT-80 15:53

PAGE 28

3
SEQ 0027

ERRCHK

THIS ROUTINE CLEARS IE AND UPDATES THE PC FOR RETURN AFTER THE
ERROR IN THE TEST IF ERROR IS CLEAR.
IF SET, RETURN IS EXECUTED WITHOUT UPDATING THE PC RETURN SO THE ERROR CALL AFTER THE
JSR CALL IN THE TEST WILL BE CALLED.
10.13

DEVADS

THIS ROUTINE GENERATES AN ADDRESS TABLE LOCATED AT REGADR

g{:g;lgg #éTH THE BASE DEVICE ADDRESS (CONTENTS OF $BASE) IN
BPINIT

THIS SUBROUTINE RELOADS THE ''.+2'" AND "BPT'' INTO THE UNUSED
LOCATIONS BETWEEN & AND 776.
10.15

DRGET

THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR11 THAT INTERRUPTED AND LOADS THE ACCUMULATED DATA INTO THE DEVICE DESCRIFTOR WORD FOR

10.16

THAT BOARD.

TYPONF

THIS SUBROUTINE PRINTS THE BOARD CONM IGURATIONS THAT THE ASIZE

SUBROUTINE FOUND ON THE UNIBUS.
10.17

CHK4DR

THIS SUBROUTINE CHECKS FOR A LOCATION AS BELONGING TO A DR11 BY
TRYING TO FORCE AN INTERRUPT A TOTAL OF & TIMES WITH THE (PU AT
PRIORITIES 6 THROUGH 3.
IF THE ATTEMPT FAILS, ROUTINE CORRECTS
IF THE
THE STACK TO RETURN AFTER THE DR11 EXTRACTION ROUTINE.
LOCATION DOES BELONG TO A DR11, THE RETURN ADDRESS OF THE SUBROUTINE ON THE STACK IS MOVED DOWN ONE LOCATION, AND THE
ADDRESS+4 OF THE INTERRUPT VECTOR OF THE DR11 IS PUT IN THE
RETURN ADDRESSES PREVIOUS LOCATION., THE STACK 1S THEN POPPED 3
E{EESTEE ADJUSTING THE POINTER UP 6, AND A NORMAL RETURN IS
UTED.

10.18

ASIZE

THIS ROUTINE AUTOSIZES THE BOARD CONFIGURATIUN AND PRINTS THE
CONFIGURATION IF BIT 12 (10000) IS SET IN [HE SWR.
10.19

VCTADS

THIS ROUTINE GENERATES THE VECTOR ADDRESS TABLE STAKTING WlTH
THE ADDRESS IN LOCATION ‘'VECADR'.

CIDRLCO-DRTT GEN NPR INTFC

MACRO M1113

27-0CT-80 15:53
10.20

¢ 3
PAGE 29

CATCH

THIS ROUTINE REPORTS UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS THROUGH THE BREAK=POINT=TRAP LOADED IN LOCATIONS 4-776.
THE STACK IS CLEANED & TIMES BEFORE THE ERROR CALL, AND

8$S}SEE?R131CE AFTER THE ERROR CALL FOR RETURNING TO THE SOURCE
10.21

PSTATE

THIS ROUTINE PRINTS THE STATE OF THE BIT IN THE DDW THAT WAS

PRELOADED IN LOCATION ‘'BITTST',
10.22

PNTPR]

THIS ROUTINE PRINTS THE DEVICE PRIORITY IN THE DDW LOCATION.
10.23

SETTUP

THIS SUBROUTINE INITIALIZES THE TRAP AND INTERRUPT VECTORS.
10.24

TSTMM

THIS SUBROUTINE CHECKS FOR EXISTENCE OF MEMORY MANAGEMENT AND
IF IT EXISTS, CHECKS FOR THE ERROR CONDITION OF NO MEMORY LOCAIF MEMORY MANAGEMENT IS
TION, BUT NO ERROR AND NEX BIT SETS.

NOT THERE, AN EXIT UPDATING THE RETURN ADDRESS BY 2 IS DONE.
IF THERE, THE XBA16 AND XBA17 BITS OF THE EXPECTED DATA ARE
IF BOTH 2ERO, AN EXIT UPDATING THE RETURN ADDRESS BY
CHECKED.
2 1S DONE. IF EITHER OR BOTH ARE SET, THE UPPER BYTE GF THE

MEMORY MANAGEMENT LOCATION IS CHECKED FOR THE EXISTENCE OF

UPPER MEMORY, INITIALIZED AT THE BEGINNING OF THE DIAGNOSTIC.
IF NOT THERE (BITS O, 1 OR 2 OF UPPER BYTE CLEAR), A NORMAL
EXIT IS EXECUTED SO THE BRANCH IMMEDIATELY FOLLOWING THE JSR
CALL WILL CAUSE A CHECK FOR THE ERROR BITS IN THE EXPECTETM T0
BE SET FOR ANOTHER CHECK.

SEQ 0028

CIDRLCO-DRT1 GEN NPR INTFC
947
948
949
950
951
952
953
954
955
956

MACRO M1113
11.0

27-0CT-80 15:53
DATA STACK
1A

PATRNS

THIS SET OF 7 DATA WORDS [S USED TO CHECK ANY LOCATION FOR
STUCK OR SHORTED BITS.
11.2

EXPATO

THIS SET OF DATA WORDS IS USED IN TEST 31 TO CHECK ALL POSSIBLE COMBINATIONS OF SET BITS IN THE CSR WITH THE MAINTENANCE
BIT CLEAR.
IT CONTAINS THE EXPECTED DATA THAT THE (SR SHOULD
CONTAIN AFTER THE BIT COMBINATION IS WRITTEN TO THE (SR.

957
958

959
960
961
962
963
964
965
966

0 3
PAGE 30

1.3

EXPATY

THIS SET OF DATA WORDS IS USED IN TEST 3 TO CHECK ALL POSSIBLE
COMBINATIONS OF SET BITS IN THE (SR WITH THE MAINTENANCE BIT
IT CONTAINS THE EXPECTED DATA THAT THE CSR SHOULD CONTAIN
SET.
AFTER THE BIT COMBINATION IS WRITTEN TO THF (SR.

SEQ 0029

27-0CT-80 15:53

]

967

«NLIST
TITLE

968
1006

E 3
PAGE 31

SEQ 0030

MC,MD,CND

CZDRLCO-DR11 GEN NPR INTF(C

+*COPYRIGHT (C) 1980
+*DIGITAL EQUIPMENT_CORP.
:*MAYNARD, MASS. 01754

*PROGRAM BY DAN MILLEVILLE

THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977, MODIFIED FOR
THE CZDRLC DIAGNOSTIC. CHANGES ARE NOTED BY [;€8 1 IN THE
COMMENT FIELDS OF THE $SCOPE, SEOP, STYPE, SERROR, SCKSWR
$PWRDN, SPWRUP (ELIMINATED), SERRTYP AND $TYPDS ROUTINES.
NEWTST WAS MODIFIED IN FUNCTION AS DESCRIBED BELOW. CHANGES

WERE AS FOLLOWS:

$SCOPE:

$EOP:

_CHANGED TO RECOGNIZE WHETHER OR NOT THE USER WISHES
THE EOP MESSAGES PRINTED, AND PRINTS THE NUMBER Of
ERRORS IN THAT PASS IF THERE WERE ANY, AND TYPES AN
EXTRA <CRLF> IF THERE WERE ERRORS TO SPACE EOP FROM.
THE ERROR. CHANGED ALSO TO RECOGNIZE WHEN THE PASS
COUNT GOES NEGATIVE, AND IF SO, CLEARS THE PASS COUNT,
AND INCREMENTS THE NEXT LOCATION AFTER_$PASS TO COUNT
A BLOCK OF 32768 PASSES HAS OCCURED. THIS LOCATION
1S USED IN CONJUNCTION WITH $PASS TO PRINT UP TO

LR X Y
TRRRIR

PASS # 99,999,999 DECIMAL.

$TYPE:

INSTEAD OF USING THE STACK TO LOAD A CHARACTER INPUTED
WHILE PRINTING, LOOSING THE CHARACTER IN THE PROCESS,
LOCATION 'CHARCT' IS USED TO SAVE IT FOR $SCOPE TO USE.

$ERROR:

INCREMENT LOCATION °*ERRCNT' FOR POSSIBLE USE IN MULTIPLE

—r

LR E
X E A YR
PR TR PR TR TR A
R
PR PR R

o
-

END-OF-PASS MESSAGE DISABLING AND REENABLING CAPABILITY,
PLUS UPDATING STESTN JUST AFTER $TSTNM IS UPDATED, AS

WELL AS ANY NEEDED MESSAGES.

R AR

AR E P E A TEYE
TR PN PRPR
FE R FRE TR FE
N TR Y

.fl.....l...’l....l!.QlQ.DQ..I...’.Q..Q‘Q.II'I'

)

CZDRLCO-DRT1 GEN NPR INTF(

MACRO M1113

ERROR PRINTOUTS.

$CKSWR:

TESTING AND PROCESSING OF THE CONTENTS OF LOCATION

SERRTYP:

ADDED CAPABILITY TO PROCESS ERRORS WITHIN LOOPS (ERRORS

AL
h\Y

"CHARCT' WAS ADDED TO INCREASE CHANCES OF DIAGNOSTIC

CATCHING USER REQUEST FOR A SOFTWARE SWITCH REGISTER

WITH ERROR NUMBERS BETWEEN 201-377) SO THE MESSAGE AND

DATA HEADER ARE PRINTED DURING THE 1ST ERROR ONLY, WITH
_ DATA ONLY PRINTED FOR 2ND AND SUBSEQUENT ERRORS. 11
T (ANCELS DATA PRINTING AFTER 20 (OCTAL) ERRORS HAVE BEEN
DONE SO AS TO ELIMINATE MASSIVE ERROR TYPEQUTS, BUT
CONTINUES TO TALLY THE ERRORS IN LOCATION ‘'SERTTL' SO THE
EOP MESSAGE WILL SHOW THE TOTAL NUMBER OF ERRORS IN THATY
PASS. IF AN ERROR NUMBER BELOW 201 IS CALLED, °'ERRCNI'
1S CLEARED SO IF THIS ERROR IS IN A LOOP, ANY SUBSEQUENT
ERRORS WILL HAVE THERE HEADER REPRINTED.
201+
.

27-0(T-80 15:53
NEWTST:

MACRO M1113

SEQ 003

' PAGE' WAS ADDED SO EACH NEW TEST WOULD BE ON A NEW PAGE.
AT THE BEGINING OF EACH NEW TEST, THE TITLE AND TEST NUMBER
ARE WRITTEN IN A SUBTITLE SO THAT EACH TEST WILL APPEAR [N
THE TABLE OF CONTENTS AT THE BEGINING OF THE DIAGNOSTIC.
AN ADDITIONAL TRACE FEATURE WAS ADDED AT THE BEGINNING

BN B

THE SWITCH REGISTER.

THIS BIT SET, THE USER CAN SEE WHAT TEST WAS EXECUTING
WHEN THE OPERATION CEASED TO BE SEQUENTIAL.
$PWRDN:

2N BN

BN B

F_3
PAGE 32

OF EACH TEST TO CHECK BIT 11 OF

WITH

THE OPERATIONS TO SAVE REGISTER CONTENTS WERE ELIMINATED

DUE TO THE LACK OF THE NEED.
A LOAD OF THE $PWRUP ADDRESS,
LOCATED JUST AFTER THE POWER DOWN HALT, IS LOADED INTO THE

IR BN

POWER TRAP VECTOR SO THAT ON POWER UP, THE PROGRAM WILL
RESTART.
IF PROCESSOR IS UNABLE TO GET TO THE POWER DOWN
ROUTINE ON A PUWER FAIL (CPU HALTED WHEN POWER FAILURE

OCCURED), PROCESSOR WILL EXECUTE THE POWER DOWN ROUTINE AND
HALT.

HITTING CONTINUE WILL RESULT

IN THE POWER UP ROUTINE

EXECUTING AS IT WOULD IN THE FVENT CF A RESTORATION OF POWER

BF BE B
2N
B
I
S
SNV I
Y

INTF(

GEN NPR

L I

CIDRLCC-DRTT

AFTER A POWER FAILURE WITH THE CPU RUNNING.

$TYPDS:

THE ADDITION OF

THE STYPDE FUNCTION WAS ADDED.

THIS FUNCTION

ALLOWS THE PRINTING OF NUMBERS LARGER THAN 32767 DECIMAL.
THE LOCATION THAT CONTAINS THE COUNT

IS TO BE

THE

CALL.

TESTED AFTER

IF NEGATIVE, IT IS TO BE CLEARED AND A
BEING INCREMENTED.
SECOND (OVERFLOW) LOCATION IS TO BE INCREMENTED.
WHEN
CALLING THE ROUTINE, THE OVERFLOW LOCATION IS TO BE PUT ON
STACK,

THEN THE NUMBER,

THEN THE

THE

OVERFLOW

LOCATION IS NON-ZERO, IT WILL ADD 32768 TO THE ASCII NUMBER
FOR EACH COUNT

IN THAT

OVERFLOW LOCATION.

CIDRLCO~DRT1 GEN NFR INTF(

OPERATIONAL SWITCH SETTINGS
1008

MACRO M1113

6.3
PAGE 33

27-0(T-80 15:53

.SBTTL

SEQ 0032

OPERATIONAL SWITCH SETTINGS
eeeeees

B O

i
.
it
.t
o
N4
.t
ot
o

15
14
13
12
1"
10
9
8
7

X 2222222332322
22X
XRZXAZEXR2S 222200 2RRRRRRRRRRRRRRRRRRl

MR4

b
AN

eceoccssececsccsscecsccscces

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOQUTS
DO NOT PRINT BOARD CONFIGURATION
TEST NUMBER TRACE ENABLING
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<6:0>
INHIBIT MULTIPLE ERROR TYPEQUTS

THE "'TEST NUMBER TRACE ENABLINGTM ABOVE IS TO ENABLE PRINTING OF THE
TEST NUMBER AT THE BEGINNING OF EACH TEST, SHOULD YOU HAVE A PROBLEM
WITH THE DIAGNOSTIC JUMPING TO AN ILLEGAL LOCATION FRCM ANYWHERE IN
THE TEST. BY ENABLING IT, YOU CAN SEE THE LAST TEST ENTERED BEFORE
THE OUT-0F~-SEQUENCE JUMPING OCCURED.
THIS IS USEFUL IFf YOU ENCOUNTER
AN UNEXPECTED TRAP FROM A PARTICULAR TEST, BUT DISCOVER THAT THE TEST

. ¥

009009

P>52552>>>>>>>N0OTE <LK

.
.
v
.

=2 OV

b ad ad ed

D ed e

NOT WV
W00

SWITCH

PIN)

)
)
i
il
el
o
i
i

USE

le=lelelalalalolalelelefole]

D ol aned

RAN SUCCESSFULLY WHEN LOOPED.

2RI

223

XS R R

2 X2

AR R

AR RARERRRARARRRR

)

GEN NPR

BASIC DEFINITIONS

INTFC

1023

MACRO M1113

27-0CT-80 15:53

.SBTTL

001300
104000
000004

0000M
000012
000015
00020G

177776
177776
177774
177772
177570
177570

000000
000001
000002

000003
000004

000005
000006
000007
000006
000007

000000
000040

000100
000140
000200
000240
000300
000340
100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
000100

PAGE

H
3
34

SEQ 0033

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STA(CK POINTER ate 1300 #ne
STACK=
1300
ERROR=EMT
SCOPE=107

s*MISCELLANEOUS DEFINITIONS
1
;;CODE FOR MORIZONTAL TAB
LF=
12
:;CODE FOR LINE FEED
(R=
15
::CODE FOR CARRIAGE RETURN
CPLF=
200
;. CODE FOR CARRIAGE RETURN-LINE FEED
PS=
177776
::PROCESSOR STATUS WORD

HT=

PSW=PS

STKLMT= 177774

PIRQ=

177772

R1=
RZR3=

13
X2
X3

RS=
R6R7=

x5
X6
1 34

;o STACK LIMIT REGISTER

; ;PROGRAM INTERRUPT REQUEST REGISTER

: HARDWARE SWITCH REGISTER
177570
DSWR=
. ; HARDWARE DISPLAY REGISTER
DDISP=
177570
'GENERA%OPURPOSE REGISTER DEFINITIONS
RO=
..GENERAL REGISTER

R&4-

SP=

: GENERAL REGISTER

::GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER
;s GENERAL REGISTER
s GENERAL REGISTER
;:STACK POINTER

: ;PROGRAM COUNTER
PC=
X7
;*PRIORITY LEVEL DEFINITIONS
:.PRIORITY LEVEL
PRO=
0
PR1=
40
;sPRIORITY LEVEL
PRZ=
100
J;PRIDRITY LEVEL
;;PRIO R IT
PR3=
LEVEL
140
;PRI ORIT
PR4=
200
LEVEL
;PRI ORIY
R
PRS=
240
LEVEL
ssPRIORITY
R
PR6=
LEVEL
300
;;PRIORITY LEVEL
PR7=
340
|
IONS
J*''SWITCH REGISTER" SWITCH DE FINI

Swi5=
SWié=
sw13=
swi2=
SWwil=
SWwi0=
swo9=
Sw08=
Swo7=
swC6=
SW05=
Swh4=
swo3=
swo2=
Swol=
Swoo=

100000
40000

20000
10000
4000
2000
10C0
400
200
100
40
20
10
&
2
1
SW9=5w09
SW8=5w08
SW7=5uw07
SW6=Sw06

NONVNESNIAL
= O

CIDRLCO-DRT1

CIDRLCO-DRT1 GEN NPR INTF(

BASIC DEFINITIONS

000040
000020
000010
000004
000002
000001
100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

1024
1025
1026

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240
000004
172410
000300

MACRO M1113

27-0(T-80 15:53

PAGE

34-1

SEQ 0034

SW5=SW0S
SW&=SW04
Sw3=Sw03
SW2=5w0?2
SW1=5w01
SW0=5w00
J*DATA BIT DEFINITIONS (BITOO TO BIT15)
BIT15=
100000
BIT14=
40000
8IT13=
20000
BIT12=
10000
BIT11=
4000
BIT10=
2000
BIT09=
1000
BIT08=
400
81707=
200
8I1T06=
100
40
B81705=
BI1T04= 20
BIT03=
10
&
BIT02=
8IT01=
2
1
BIT00=
BIT9=BIT09
BIT8=BIT08
BIT7=B1107
BIT6=BIT06
BIT5=B1105
BIT4=B]T04
B8I1T3=BIT03
BI112=BIT02
BIT1=B1T101
BI1T0=BIT00
;*BASIC "'CPU'" TRAP VECTGR ADDRESSES
ERRVEC= &
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14

10TvEC= 20

PWRVEC= 24

EMTVEC= 30
TRAPVE(C=34
TKVEC=
60
TPVEC=

PIRQVE(C-240
BUSERR
=ERRVEC(
ABASE
=172410
AVECTY
-300

;:TIME

OQUT

AND OTHER ERRORS

:;K$§ESY$D AND ILLEGAL INSTRUCTIONS
;s TRACE

TRAP

: ;BREAKPOINT TRAP (BPT)

;2 INPUT/QUTPUT TRAP (10T)
; ;POMER

FAIL

««SCOPEre

:sEMULATOR TRAP (EMT) ««ERRORet
;" TRAP'' TRAP

;3 1TY XEYBOARD VECTOR
::TTY PRINTER VECTOR

: ;PROGRAM INTERRUPT REQUEST VECTOR
;BASE DEVICE ADDRESS
;BASE VECTOR ADDRESS

100000
100000

DEFINITIONS OF

3
SEQ@ 0035
THE CSR BITS

D
o
.
.

[aal

4t
4t =ttt

z >

[gn]

——t—t
e
— —_

VWNY

> DD

—

- .

B FNCT2 & FNCT3

= lvlololelolelo]

000001
00000¢
000004
000010
000016
000020
000040
000100
000200
000400
000400
001000
002000
004000
006000
005000
003000
007000
010000
020000
040000

.SBTTL

PAGE 35

iEE2222222222232
R
R0 R0 0l 22dddR0Rd])

CSR BITS

A NIWWNONE N =2
BP0 D AP = = NN
o)
o [eleolelelelaleleleoleolelelolo
o QOOOO0O OCOOOO
o OOOOOOO

THE

27-0(CT-80 15:53

A SR

DEFINITIONS OF

MACRO M1113

0000
NEX
00000 ;EIR
00000 ;ERROR

CIORLCO-DRT1 GEN NPR INTF(

27-0CT-80 15:53

CSR BIT COMPLIMENT DEFINITIONS

177776
=177775
177773
177767
=177761
=177757
=177737
177677
=177577
=177377
=176777
=175777
=173777
=171777
=172777
=1726777
=170777
=167777
=157777
=137777
=77777
=77777

: COMPL IMENT
; COMPLIMENT
: COMPLIMENT
s COMPLIMENT
: COMPLIMENT
+ COMPL IMENT
: COMPL IMENT
; COMPLIMENT
; COMPL IMENT
: COMPL IMENT
; COMPLIMENT
: COMPLIMENT
: COMPLIMENT
; COMPLIMENT
: COMPL IMENT
; COMPL IMENT
s COMPL IMENT
; COMPLIMENT
: COMPLIMENT
« COMPL IMENT
: COMPL IMENT
; COMPL IMENT

or7777
or7777

AR A E RN A RN NANANAAANANNAENNAARRRERAANOOERRNCE

60
FNCT
FNCT?

FNCT3
FNCTH € FNCT2 & FNCT3
XBA16
XBA17
1€
READY

CYCLE
DSTAT
DSTAT
DSTAT
DSTAT

DSTAT
DSTAT
DSTAT
MAINT
ATIN
NEX
EIR
ERROR

(a)

AR R C

NNSNN
N - ~N~

6777

RRANC

(e Xan Yon¥e
o}

NN SNSNSNSNSNSNSN
NN SN NN
SNESNNNSNSN ~N~
HNNO NN -~
NN SNWSNON o~

€GO
(F1
(F2
(f3
CFNC
Cxé
x7
ClE
(RY
ccy
CDSC
(DSB
(DSA
(DAB
CDAC
p8C
CDSTY
CMA
CAT
CNX
CEIR
CER

SEQ 0036

.SBTTL

;tt ARER RN RN

1776
7775

K
3
PAGE 36

>ODP>>OO

MACRO M1113

oTM

(2
()

i1 GEN NPR INTFC
MPLIMENT DEFINITIONS

CIDRLCO-DRI1 GEN NPR INTF(

COMPLEMENTS OF BIT DEFINITIONS
1076

1077

1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777
0s7777

MACRO M1113

27-0CT-80 15:53

(BITO
CBITY
CBIT2
(BIT3
(BIT4
CBITS
(BIT6
{BIT?
(BIT8
(BIT9
CBIT1)
(BIT11
(BIT12
(BIT13
(BIT14
CBIT15S
(B1513

L. 3
PAGE 37

SEQ 0037

.SBTTL

COMPLEMENTS OF BIT DEFINITIONS

=177776
=177775
=177773
=177767
=177757
=177737
=177677
=177577
=177377
=176777
=175777
=173777
=167777
=157777
=137777
=77777
=57777

;COMPLIMENT
.COMPLIMENT
;COMPLIMENT
;COMPLIMENT
.COMPLIMENT
;COMPLIMENT
.COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
.COMPLIMENT
COMPLIMENT
COMPLIMENT

R R RN TPt

AT e R

Of
OFf
OF
OF
OF
OF
OF
OF
Of
OF
Of
OF
OF
OF
OF
OF
OF

RN R AR R AN

E R RN

BITO
BITI
BIT?
BIT3
BIT4
BITS
BITé
BIT?7
BIT8
BIT9
BIT10
BITI
BIT12
BIT13
BIT14
BIT15
BIT15 & BI1

TEORAR e RN iR ROatrte

CIDRLCO-DRI1 GEN NPR INTF(

MACRO M1113

PRIORITY LEVELS AND OTHER DEFINITIONS

.SBTTL

M3
PAGE 38

PRIORITY LEVELS AND OTHER DEFINITIONS

;t'tt.t"tltttttt"'t"'t""""t".'.'.".'.""'.'.".."'..""

000033
000003
000015
177572
172304
172324
172344
172364

000250
000252
000004
000006

000003
024360

LEVELS
LEVELS
LEVELG
LEVEL?

£SC
CNTLC
CARETN
MMRO
KIPDR2
KDPDR2
KI1PAR?
KDPAR?

MMVECT
MMPS
TOVECT
TMOPSW
8PT
TST4O=ENDEV

OO O

LEVELS

POONINININ
~N
NN
N
8200
P
O

000140
000200
000240
000300
000340

WO S5PNOND =3 b b —d s 2 L L N NN
VIV NISNNSNSNWV
WSO
8-

d
e

e
d
d

i
i
i
D

i e
o

D
e

e
D
D

D
i
d
D

e
b

-t ed B b B OOOOO0O0OO0O [«
VIS AN = O 00D ~NO NS NN — o

1095

—d rd

27-0CT-80 15:53

572

364

;BRANCH TO TEST 40 = BRANCH TO ENDEV (THERE IS NO TEST 403

SEQ 0038

—O
VAN =2 COB~NON
NO
NS WN 2OV
NO
OB NN =2 OO

— o D e b oD e
b d d d D D e i o
b D mh cnd nd d D nd D D d i P e D d e

NN N NN NN N N NN NI PO NI

NI PNON) =

b b b

e ()

oO>®
orD D e td D end D D D i D D
D D d D D d D D D D d D d

Ve
D r~
—

DR11 GEN NPR INTF(C
MACRO M1113
LEVELS AND OTHER DEFINITIONS

27-0CT-80 15:53

N 3
PAGE 39

SEQ 0039

;ttt'ttttt't't'l"""""""'"l"'t""."""'.""'Q""""t'

;¢ ALL UNUSED LOCATIONS FROM 4=776 WILL CONTAIN A *'.+2,BPT'' SEQUENCE

;* 10 CATCH ILLEGAL TRAPS & INTERRUPTS TO THE 'CATCH' LOCATION
:* 0 CONTAINS O TO CATCH IMPROPERLY LOARED VECTORS

;ttt"Qtltt't'l't't't""'t""t'"t""".'t"'."'..""""""'

000014
000016
000042
000174
000176

000014

005536
000340
000042

BPTVCT:

000000
000000

DISPRE:
SWREG:

888?92

=14

.WORD
.WORD
.=42

CATCH
LEVEL?

.U?§2

.WORD
.WORD

O
O

:THE BPT TRAP VECTOR POINTS TO THE

ILLEGAL TRAP HANDLER '‘CATCH'"

;CLEAR THIS LOCATION (FOR APT MONITOR STARTING ADDRESS)

:".t".'fi."tittt""""""""tlQQQ'ttt""fi..!t'tt't.""t""

*PROGRAM STARTING LOCATIONS
.

;tfi"t'!tt'ttt'tti"""""'t't."i.'.t.'ttt'.'.t""'tt".t"t't'

000200
000204
000210

000137
000137
005037

010266
032130
001416

012737
012706

042456
010272

000214
000220
000224
000230
000234

005037
005037
005037
005037
005037

000252

88?836

000240
000246

002716
001422
001420
001414
002706
011006

JMP
JMP
STAGIN: CLR

042454

CLR
CLR
CLR
CLR
CLR

MOV
MoV
JM?OOO

START1
MBD
$PASS

¢NORMAL START
¢ENTER MULTIPLE BOARD DIALOQUE
;CLEAR $PASS

#CAPSTK,CAPNTR
#START,SP

;RESET THE CAPTURE POINTER
SRESET THE STACK POINTER
;JUMP TO BEGIN1 FOR RESTART WITHOUT HEADER PRINTING

$PASS2
SUNIT
$DEVCY
S$TESTN
EOPLOC

BEGINT

;CLEAR
;CLEAR
;CLEAR
;CLEAR
;CLEAR

$PASS?2
SUNIT
SDEVCT
STESTN
EOPLOC

0 RLCO-DR11

% 1 11 HOOKS

GEN NPR

INTF(

MACRO M1113

27-0CT-80 15:53

.SBTTL

147

B 4
PAGE 40

SEQ 0040

ACT11 HOOKS

:"t'tt't"'."t""""""""""ttQ"'t"'""'l"'t""i""'t

000046
000052
1148

001000
000046
024750
000052
000000
001000

;HOOKS REQUIRED BY ACT1
$SVP(=.
ve

:SAVE PC

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP

isgng

WORD

.SBTTL

.=$SVP(
APT PARAMETER BLOCK
AT

AR LTt

TE P

::2)SET LOC.52 TO ZERO

;. RESTORE PC
A AR

R AR

AR RN R RN

T aannansiadi

*SET LOCATIONS 24 AND &4 AS REQUIRED FOR APT
R

000024
000044

601000
000024
000200
000044
001000
001000

$X=.

;;SAVE CURRENT LOCATION

200
.=bé
5APTHDR
.$X

::FOR APT START UP
;;POINT TO APT INDIRECT ADDPRESS PNTR.
;;POINT TO APT HEADER BLOCK
;;RESET LOCATION COUNTER

::SET POWER FAIL TO POINT TO START OF PROGRAM

'ttttttt'tt'Qttt'tittt'ttttttt'ttttttQtittttt'tt'tt!'ttitttt"'ttt

SSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

001000
001000
001002
001004
001006
001010
001012

000000
001410
000001
000001
000000
000052

; INTERFACE SPEC.
$APTHD:

$HIBTS: .WORD
SMBADR: .WORD
_WORD
$TSTM:
$PASTM:
SUNITM:

.WORD
_WORD

.WORD

0
SMAIL
1
1
0

,.TUO HIGH BITS OF 18 BIT MAILBOX ADDR.
;ADDRESS OF APT MAILBOX (BITS 0-15)
,.RJN TIM OF LONGEST TEST
;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

5ETEND'SHA!L/2 ; ;LENGTH MAILBOX-ETABLE (WORDS)

CZDRLCO-DRi1 GEN NPR INTFC

COMMON TAGS

MACRO M1113

1150

27-0(T-80 15:53

.SBTTL

COMMON TAGS

PAGE 43

SEQ 0041
R

;*TH]IS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

001300
001300
001302
001303
001304
001306
001310
001312
001314
001315
001316

;*USED IN THE PROGRAM,
.=1300

001300

SCMTAG:

000000

$TSTNM:
SERFLG:
SICNT:
SLPADR:
SLPERR:
SERTTL:
$SITEMB:
SERMAX:
$EPRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

MORD

:2START OF COMMON TAGS

.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
WORD
.WORD

0
O
O
0
0
O
O
1
0
0
0
0
O
0

;;CONTAINS THE TEST NUMBER
:;CONTAINS ERROR FLAG
:;CONTAINS SUBTEST ITERATION COUNT
:;CONTAINS SCOPE LOOP ADDRESS
:;CONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED
:;CONTAINS ITEM CONTROL BYTE
:sCONTAINS MAX. ERRORS PER TEST
:;CONTAINS PC OF LAST ERROR INSTRUCTION
:CONTAINS ADDRESS OF °'GOOD' DATA
::CONTAINS ADDRESS OF °'BAD' DATA
;;CONTAINS 'GOOD* DATA
:;CONTAINS 'BAD' DATA
: :RESERVED==NOT TO BE USED

001320
001322
001324
001326
001330

000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000

001334
001335

000
000

$SAUTOB: .BYTE
$INTAG: .BYTE

0
0

::AUTOMATIC MODE INDICATOR
;: INTERRUPT MODE INDICATOR

177570
177570
177560
177562
177564
177566
000
002

.WORD
SWR:
DISPLAY: .WORD
$TKS:
177560
177562
$TKB:
177564
$TPS:
177566
$TPB:
$NULL: .BYTE
$FILLS: .BYTE

DSWR
DDISP

::ADDRESS OF SWITCH REGISTER
: ;ADDRESS OF DISPLAY REGISTER
;. TTY KBD STATUS
;. TTY KBD BUFFER
:;TTY PRINTER STATUS REG. ADDRESS
;;TTY PRINTER BUFFER REG. ADDRESS
::CONTAINS NULL CHARACTER FOR FILLS
:sCONTAINS # OF FILLER CHARACTERS REQUIRED

000007
000000
000000
000000
000000
000000
000000

7
.REPT
$TMPO: .WORD
$STMPY: .WORD
$TMP2: .WORD
$TMP3: .WORD
$TMP4: .WORD
$TMPS: .WORD
$TMP6: .WORD
$ESCAPE:0
SBELL: .ASCIZ
$QUES: .ASCII
$CRLF: .ASCII
ASCIZ
$LF:

001332

001336

001340
001342
001344
001346
001350
001352
001354
001355

001356
001357

001360
001362
001364
001366
001370
001372
001374
001376
001400
001404
001405
001406

000000

LMWORD

000000

LMWORD

$FILLC: .BYTE
$TPFLG: .BYTE

012
000

000000
000000
207
077
015
012

377
000

377

0
P4

12
0

;s INSERT FILL CHARS. AFTER A "'LINE FEED"
::"'TERMINAL AVAILABLE'' FLAG (BIT<07> 0-YES)

::USER DEFINED
:sUSER DEFINED
;sUSER DEF INED
:sUSER DEFINED
::USER DEFINED
O
;:USER DEFINED
O
;sUSER DEFINED
O
:;ESCAPE ON ERROR ADDRESS
<207><377><377> ,,CODE FOR BELL
;;QUESTION MARK
/?/
::CARRIAGE RETURN
<5
:sLINC FEED
<A

0
0
O

.'l."tit"t.t.'t"t'"'i""""l"t."'!'\t'tt'll"lt!tt!fi'ltt'!"

CIDRLCO-DRI1 GEN NPR INTF(

APT MA[LBOX-ETABLE

MACRO M1113

27-0CT-80 15:53

.SBTTL

¢
D
PAGE 4&

SEQ 0042

APT MAILBOX-ETABLE

;i"tt"Q"QQQ*"'Q'Q""""""'Q'i"'tt"'t't""'ttt'"QQ"Q"'

000000
000000
000000
000000
000000
000009
000000
000000

001436

000
000
000000
000000
600000

.EVEN
SMAIL:
$MSGTY: .WORD
$SFATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
SDEV(CT: .WORD
.WORD
SUNIT:
$MSGAD: .WORD
$MSGLG: .WORD
$SETABLE:
$ENV:
.BYTE
.BYTE
SENVM:
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP:

.WORD

AMSGTY
AFATAL
ATESTN
APASS

ADEVCT

AUNLT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

::APT MAILBOX
: ,MESSAGE TYPE (CODE

:;FATAL ERROR NUMBER

;s TEST NUMBER
;s PASS COUNT
;sDEVICE COUNT

::1/70 UNIT NUMBER

; sMESSAGE ADDRESS
;s sMESSAGE LENGTH
;s APT ENVIRONMENT TABLE
: ;ENVIRONMENT BYTE
:;ENVIRONMENT MODE BITS
::APT SWITCH REGISTER

:sUSER SWITCHES

::CPU TYPE,OPTIONS

BITS 15-11=(CPU TYPE

11/0464=01,11/05=02,11/20=03,11/40=04,11/45=05

o”

001440
001441

001442
001444
001445
001446
001450
001451
001452
001454
001455
001456
001460
001462
001464
001466
001470
001472

000
000

000000

000
000
000000
000
000
000000
000
000

000000
000300
000000

172410
000000
000000
000000

000000
000000

000000

SMAMST.

SMTYP1:

.BYTE
.BYTE

.WORD

AMADR1

.BYTE

AMAMS2
AMTYP?
AMADR2
AMAMS3
AMTYP3
AMADR3
AMAMS4
AMTYP4
AMADR4
AVECT
AVECT?

.BYTE

:
:
¢
:
:
:
:

.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD
.WORD

AMAMSA
AMTYPI

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ABASE
ADEVM

ACDW1
ACDW?
ADCWO
ADDW1
ADDW?

ADDW3

ADDW4
ADDWS
ADOW6
ADDW?

ADDWS
ADDW9

11/70=06,PDQ=07,Q=10
81T 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
;HIGH ADDRESS,M.S. BYTE
;;HEH. TYPE,BLK#1
(HIGH BYTE)
==
MEM.TYPE BYTC
900 NSEC CORE=001

300 NSEC BIPOLAR=00?
500 NSEC M0S=003
SS,BLK#1
ADDRE
H
:sHIG

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF °"'TYPE'' ABOVE
;:HIGH ADDRESS,M.S. BYTE
::MEM.TYPE ,BLK#?
::MEM.LAST ADDRESS,BLK#2

;sHIGH ADDRESS,M.S.BYTE

s sMEM.TYPE, BLKIB
:sMEM.LAST ADDRESS,BLKA3
:sHIGH ADDRESS ,M.S.BYTE
s MEM, TYPE, BLKlk

:;MEM.LAST ADDRESS ,BLK#4

: s INTERRUPT VECTOR01 BUS PRIORITY#
;s INTERRUPT VECYORIZBUS PRIORITY#?
; ;BASE ADDRESS OF EQUIPMENT UNDER TEST
..DEVICE MAP
:CONTROLLER DESCRIPTION WORDM

..CONTROLLER DESCRIPTION WORD#?
::DEVICE DESCRIPTOR WORD#0
::DEVICE DESCRIPTOR WORD#1
E
E
E
€
€
E
€
E

DESCRIPTOR WORD#?2
DESCRIPTOR WORDA3
DESCRIPTOR WORD#4
DESCRIPTOR WORDAS
DESCRIPTOR WORD#6
DESCRIPTOR WORDA?
DESCRIPTOR WORD#8
DESCRIPTOR WORDA9

CIORLCO-DRT1 GEN NPR INTFC

APT MAILBOX-ETABLE

001520
001522
001524
001526
001530
001532
001534

000000
000000
000000
000000
000000
000000

MACRO M1113

27-0CT-80 15:53

$00W10:
$ODWIT:
$ODW12:
$ODW13:
$D0W14:
$ODW15:
SETEND:
JMEXIT

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ADDW10
ADDW11
ADDW1¢
ADDW13
ADDW14
ADDW15

4
E
PAGE 44-1

SEQ 0043
TOR WORD#10
TOR WORD#11

TOR WORD#1?2
TOR WORD#13
TOR WORDA14
TOR WORD#1S

CIDRLCO-DRTY1 GEN NPR INTFC

ERROR POINTER TABLE

MACRO M1113

27-0CT-80 15:53

.SBTTL

PAGE 45

SEQ 0044

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION SITEMB., THIS NUMBER INDICATES WHICH ITEM IN THE TABLE [S PERTINENT.
1F SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().
;eNOTEL:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:
;«NOTEZ2:
.

115

001534

1152 001534
1153 001536
1154 001540
}}gg 001542
1157

1158 001544
1159 00'546
1160 001550
}}2; 001552
1163
1164 001554

1165 001556
1166 001560
}}gg 001562

1169

044766
050307
053052
000000

045022
050350
053064
000000
045070
050417
053100

045121
050463

}};2 001572

000000

1175

1176 001574
1177 001576
1178 001600
}}gg 001602
1181

1182 001604
1183 001606
1184 001610
}}gg 001612
1187

1188 001614
1189 001616
1190 001620
1191 001622

JITEM 3

JITEM 4

053112

045152
050532
053126
000000

045203
050576
053140
000000
045251
050417
053100
000000

EM?
DM?
DT?2
O

;CANNOT ACCESS DR11 REGISTER
:TEST # ERR PC ABRTPC REGISTER
;$TESTN,SERRPC,OLDPC1,DREG,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
MORD

EM3
D43
D13
O

:DR11-B OR W MODE INCORRECT (0=B, 1=w)
;TEST # ERR PC EXPMOD ACTMOD (SRADR
STESTN,SERRPC,$TMP1 ,BORW,(SR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.MWORD

EM4
DH4
DT4

;INIT FAILED TO CLEAR WCR
;TEST # ERR PC WCRADR WCRCONTENTS
:$TESTMN,$ERRPC,WCR,RWCR,0

;PRINT ALL DATA OCTAL

LMWORD
.WORD

EMS
DH>

;INIT FAILED TO CLEAR BAR
;TeST # ERR PC BARADR BAREXP

LMWORD

;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.MWORD

EM6
DH6
D16
0

;INIT FAILED TO CLEAR BDR
:TEST # ERR PC BDRADR BDRCONTENTS
;$TESTN,SERRPC ,BDR,RBDR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

Em7
ODH7
D17
0

;INIT FAILED TO CLEAR ALL (SR R-W BITS
;TEST # ERR PC CSRADR (SREXP (CSRCONTENTS
;STESTN,SERRPC,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM10
DH4
DT&
0

:RESET FAILED TO CLEAR WCR
;TEST & ERR PC WCRADR WCRCONTENTS
;STESTN,SERRPC ,WCR,RWCR,0
;PRINT ALL DATA OCTAL

.WORD

JITEM §

;ITEM 6

JITEM 7

;:POINTS TO THE DATA HEADER
::POINTS TO THE DATA
;;POINTS TO THE DATA FORMAT

.WORD
.WORD
.WORD
MWORD

.WORD

000000

1170 001564
1171 001566

1172 001570

;ITEM 2

:;POINTS TO THE ERROR MESSAGE

DH
o *
DT
i
DF
o
$ERRTB:
JITEMA

D15

;STESTN,SERRPC ,BAR,EBAR,RBAR,O

BARRCV

CIDRLCO-DRi1 GEN NPR INTF(

ERROR POINTER TABLE
1192

1193 001626
1194 001626
1195 001630
}}89 001632
1198

1199 001634

1200 001636
1201 001640
}%8% 001642
1204

1205 001644
1206 001646
1207 001650
}%88 001652
1210

045303
050417
053100
000000
045346

045400
050463
053112
000000

045450

1213
1214 001660
}%}g 001662

053154
000000

1217

1218 001664
1219 001666

1220
1221 001670
}g%% 001672

1¢24

1225 001674
1226 001676

1227
1228 001700
}%%8 001702
1231

1232 001704
1233 001706
1234 001710
}%gz 001712
1237

1238 001714
1239 001716
1240 001720
}S:} 001722
1243

1264 001724
1245 001726
1246 001730
1247 001732

27-0CT-80 15:5%

J1TEM 10

JITEM 1N

050463
053112
000000

1211 001654

1212 001656

MACRO M1113

;ATTEMPT TO SET ALL WCR BITS FAILED
;TEST # ERR PC WCRADR WCRCONTENTS
;STESTN,SERRP(C ,WCR,RWCR,0
;PRINT ALL DATA OCTAL

LWORD

EM12

;RESET FAILED TO CLEAR BAR

.WORD
.WORD
.WORD
.WCRD

£M13
DM5
D75
0

;ATTEMPT TO SET ALL BAR BITS TO 1 FAILED
;TEST # ERR PC BARADR BAREXP BARRCV
;STESTN,SERRPC
,BAR ,EBAR,RBAR,(
;PRINT ALL DATA OCTAL

;1TEM 13

JITEM 14

053154

000000
045563
050765

JITEM 15

053172
000000

045607
051100
053210
000000
G$4S470
051100
053210
00000C

045744
051100
053210
000000

SEQ 0045

EM11
DH4
DT&
0

050652

045537
050652

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
J1TEM 12

PAGE 46

S1TEM 16

JITEM 17

J1TEM 20

.WORD

DH$S
DTS
0

;TEST # ERR PC BARADR BAREXP
;STESTN,SERRPC,BAR,EBAR,RBAR,(
;PRINT ALL DATA OCTAL

BARR(V

.WORD

DH14

EM14

;CSR BIT TEST FAILED (FATAL - DIAGNOSTIC NOT CONTINUED)

.WORD
WORD

DT14
O

;TEST # ERR PC TESTED (CSRADR (SREXP
;STESTN,SERRP( ,BUT,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD

EM15
DH14

;CSR BIT TEST FAILE
BIT(S)
;

.WORD
.WORD

DT14

;TEST # ERR PC TESTED CSRADR CSREXP
;$TESTN,$ERRPC ,BUT,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD

EM16
DH16

;FiR BIT TEST FAILED
BIT(S)
:

.WORD
.WORD

DT16
0

;TEST # ERR PC TESTED EIRADR EIREXP
;STESTN,SERRPC,BUT,CSR,EEIR,REIR,O
;PRINT ALL DATA OCTAL

.WORD
MWCRD
LWORD
.WORD

EM17
DH17
D117
0

;READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN (SR
;TEST # ERR PC CSRADR CSREXP CSRCONTENTS
;STESTN,SERRPC,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
WORD
.WORD

EM20
DH17
D117
0

;ATIN AND ERROR FAILED TO SET PROPERLY
;TEST # ERR PC CSRADR CSREXP CSRCONTENTS
;$TESTN,SERRPC,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD

EM
DH17
DTV7

;ATTY AND ERROR FAILED TO CLEAR PROPERLY
;TEST # ERR PC CSRADR (SREXP CSRCONTENTS
;STESTN,SERRPC,CSR,ECSR,RCSR,0

.WORD

;

BIT(S)

;PRINT ALL DATA OCTAL

(SRCONTENTS

EIRCONTENTS

CIDRLCO-DRi1 GEN NPR INTF(
OO~ OO NNV N NANWTWNNANN
S~
WA =2 OO0 ~NO N
AN
OO [o

ek =D —

[[SI,ST,S1,CT,
ST, ST NT NI,
N1 N1, VT, ST V], ¥) ~N)

ERROR POINTER TABLE

046014
051100
053210
000000

001744
001746
001750
00175¢

046124
051100
053210
000000

001754
001756
001760
264 001762

056155
050463
053112
000000

001764
001766
001770
00177¢

046302
051109
053210
000000

001774
001776
002000
002002

046349
051100
053210
000000

002004
002006
002010
002012

046404
050532
053126
000000

002014
002016
002020
002022

046425
050532
053126
000000

002024
1292 002026
1293 002030
1294 002032

046516
051304
053254
000000

002034
002036
002040
002042

046577
051304
053254
000000

27-0(T7-80 15:53

ITEM 1

;1TEM 22

;ITEM 23

;1TEM 24

“1TEM 25

PAGE

SEQ 0046

.WORD
.WORD
.WORD
.WORD

;ERROR BIT SHOULD HAVE BEEN CLEAR
(SREXP

CSRCONTENTS

.WORD
.WORD
.WORD
.WORD

;READY OF (SR WAS NOT SET
;TEST #
ERR PC
CSRADR
CSREXP

CSRCONTENTS

.WORD
.WORD
.WORD
.WORD

;BI1T O OF THE BAR WAS SET
;TEST # ERR PC BARADR BAREXP

;TEST #

ERR PC

(CSRADR

;$TESTN,$SERRPC,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

;STESTN,SERRP(C,CSR,ECSK,RCSR,0
:PRINT ALL DATA OCTAL

;STESTN,SERRP(
,BAR ,EBAR,RBAR,0

BARRCV

;PRINT ALL DATA OCTAL

ARE NOT CLEAR

.WORD
.WORD
.WORD
.WOPD

Em30
DH17
D117

;FUNCTION BIT(S)

.WORD
.WORD
.WORD
.WORD

EM31
DH17
D117
0

;DSTAT A, B OR C ARE NOT AS EXPECTED

.WORD
.WORD
.WORD
.WORD

EM32

;BOR IS NOT CLEAR
;TEST # ERR PC BDRADR BDRCONTENTS
;STESTN,SERRP( ,BDR,RBDR,0

.WORD
.WORD
.WORD
.WORD

EM33

.WORD
.WORD
.WORD
.WORD

EM3S

.WORD
.WORD
.WORD
.WORD

EM36
DH34
DY34
0

;TEST #

ERR PC

CSRADR

(SREXP

;STESTN,SERRPC,CSR,ECSR,RCSR,0
.PRINT ALL

;TEST #

DATA OCTAL

ERR PC

(SRADR

(SREXP

;STESTN,SERRPC,CSR,ECSR,RCSR,0
;PRINT ALL

CSRCONTENTS

DATA OCTAL

—

D o

D ol

d e e

d o

D e

s e

001734
001736
001740
001742

MACRO M1113

1295
1296
1297
1298
1299
1300

JITEM 26

JITEM 27

JITEM 30

CITEM

DH6
D16

DH6
DTE

DH34
D134

;PRINT ALL

DATA OCTAL

;ALL BDR BITS ARE NOT SET
;TEST # ERR PC BORADR BDRCONTENTS
;STESTN,SERRPC,BDR,RBDR,0
(PRIPT ALL DATA OCTAL

;BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN
;TEST # ERR PC BDRADR BDREXP BDRCONTENTS
;$STESTN,$SERRP( ,BDR,EBDR,RBDR,0
;PRINT ALL DATA OCTAL

:BDR PATTERN NOT CORRECT

;VTEST # ERR PC BDRADR BDREXP
;STESTN,SERRPC ,BDR,EBDR,RBDR,0
;PRINT

ALL

DATA OCTAL

BDRCONTENTS

CIDRLCO-DRT1 GEN NPR INTFC

ERROR POINTER TABLE

1301

002054
002056
002060
002062

046665
051100
053210
000000
046715
051100
053210
000000

002074
002076
002100
002102

047017
051360
053270
000000

002104
002106
002110
002112

047050
051360
053270
000000

047120
051100
053210
000000

002130
002132

047233
051100
053210
000000

U U

N L

046627
051100
053210
000000

002064
002066
002070
002072

e W A L A A

» BN 5 B N NN NN N
w N=OOVONO VNS

=200V

NO NS W

2OV

NOWNE WA =200 (]

N N NN N N N N AN U U AN WA U U A AN AN AN N NN NN
=
b b b b d b b a2 O o
N N NN NN N NONPRIMNOMNIMNIN

002044
3 002046
002050
002052

002134
002136
002140
002142

047250
051424
053302
000000

002144
5
002146
52 002150
53 002152

047315
051360
053270
000000

MACRO M1113

27-0CT-80 15:53

ITEM 32

JITEM 33

;1TEM 34

JITEM 35

“ITEM 36

;ITEM 37

JITEM 40

;ITEM 6

JITEM 42

WORD
.WORD
.WORD
.WORD

EM37
DH1?
D117

[

PAGE 48

SEQ 0047

;READY IS NOT THE ONLY BIT SET
;TEST # ERR PC CSRADR CSREXP
;STESTN,SERRPC,CSR,ECSR,RCSK,0

CSRCONTENTS

;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

;READY SHOULD NOT BE SET
:TEST # ERR PC CSRADR (SREXP
;$STESTN,SERRPC,CSR,ECSR,RCSR,0

.WORD
.WORD
.WORD
.WORD

;READY WAS CLEARED BUT NEVER SET AGAIN
;TEST # ERR PC (SRADR CSREXP CSRCONTENTS
;STESTN,$ERRPC,CSR,ECSR,RCSR,0

.WORD
.WORD
-WORD
.WORD

;OR11

.WORD
.WORD
.WORD
.WORD

;DR11

.WORD
.WORD
.WORD
.WORD

;ERROR BIT SHOULD NOT BE CLEAR

.WORD
.WORD
.WORD
.WORD

;CSR IS WRONG

-WORD
.WORD
.WORD
.WORD

: TRANSFERS SHOULD HAVE BEEN INHIBITED

.WORD
.WORD
.WORD
.WORD

;DR11 SHOULD NOT HAVE INTERRUPTED A SECOND TIME

(CSRCONTENTS

;PRINT ALL DATA OCTAL

FAILED TO INTERRUPT

;TEST #

ERR PC

(SRADR

;STESTN,SERRP(C,CSR,R(SR,0
;PRINT ALL

(CSRCONTENTS

DATA OCTAL

INTERRUPTED, BUT IT SHOULDN'T HAVE

;TEST # ERR PC CSRADR (SRCONTENTS
;STESTN,SERRP(C,CSR,RCSR,0
;PRINT ALL DATA OCTAL

;TEST #

ERR PC

CSRADR

CSREXP

CSRCONTENTS

;TEST # ERR PC CSRADR (SREXP
:STESTIN,$SERRPC,CSR,ECSR,RCSR,0

CSRCONTENTS

;STESTN,$ERRPC,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

;PRINT ALL DATA OCTAL

;TEST # ERR PC WCRADR WCREXP WCRRCV BARADR
;STESTN,SERRPC ,WCR,EWCR,RWCR,BAR,EBAR,RBAR,O
;PRINT ALL DATA OCTAL

;TEST # ERR PC
CSRADR
CSRCONTENTS
;STESTN,SERRPC,CSR,RCSR,0

;PRINT ALL 2ATA OCTAL

BAREXP

BARR(V

CIDRLCO-DRi1 GEN NPR
ERROR POINTER TABLE

e
D
d rd mad
d o
i
— o

357 002160
58 002162
59
60
61 002164
62 002166
363 002170
364 002172
365
366
367 002174
368 002176
002200
002202

NN
AN NN

d i

1354
1355 002154
1356 002156

INTF(

047374
051360
053270
000000

047463
051230
053240

047500
051304
053254
000000

047556
051602

002210
002212

053342
000000

047606
051747

002220
002222

053362
000000

002224
002226
002230
002232

047645
052045
053376
000000

002234
002236
002240
002242

047730
052116
053412
000009

002244
1400 002246
1401 002250
1402 002252

047777
052225
053436
000000

002254
002256
002260
002262

047017
052274
053452
000000

1403
1404
1405
1406
1407
1408

27-0(T-80 15:53

;1TEM 63

.WORD
.WORD
.WORD
.WORD

;ITEM &4

000000

002204
002206

002214
002216

MACRO M1113

J1TEM 65

;1TEM 46

EMS?
DH43
D143

;1TEM 51

JITEM 52

;ITEM 53

;EXPECTED INTERRUPT DID NOT OCCUR
;TEST #

ERR PC
CSRADR
CSRCONTENTS
;STESTN,SERRPC,CSR,RCSR,0
;PRINT ALL DATA OCTAL

;BAR [S WRONG

.WORD
.WORD
.WORD
.WORD

;BAD DATA IN BDR

.WORD
.WORD

;BUFFER DATA NOT CORRECT
INPUT
INPUT
CHECK
CHECK
;
BUFDAT
BUFADR
BUFDAT
BUFADR
PC
ERR
#
;TEST
;STESTN,SERROC,$TMPL
,$TMP2 ,$TMPS ,$TMP3,(SR,0

;TEST #

ERR PC

BARADR

BAREXP

BARCONTENTS

BDREXP

BDRCONTENTS

;STESTN,SERRPC ,BAR,EBAR,RBAR,
;PRINT ALL DATA OCTAL

;TEST #

ERR PC

BDRADR

;STESTN,SERRP( ,BDR,EBDR,RBDR,
;PRINT ALL DATA OCTAL

(SRADR

;PRINT ALL DATA OCTAL

. TOO MANY WORDS USRE 8$ANSFERED

.WORD
.WORD

;

JTEST #

ERR PC

ION

EXPECT

ADRESS

;STESTN,SERRPC,$TMP2 ,$TMP3,(SR,0

.WORD
.WORD

;ITEM 50

SEQ@ 0048

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

4
J
PAGE 49

;PRINT

(SRADR

ALL DATA OCTAL

;UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW

.WORD
.WORD
.WORD
.WORD

;TEST #

ERR PC

WCRADR

OLDPC

TRAP ADR

;STESTN,SERRPC,WCR,OLDPC2,BDVECT,O
;PRINT

ALL DATA OCTAL

:CSR AND-OR WCR AND-OR BAR ARE INCORECT

.WORD
.WORD
.WORD
.WORD

EM62
D162

;TEST # ERR PC WCRADR WCREXP WCRRCV C(SREXP (SRRCV
;$STESTN,SERRPC ,WCR,EWCR,RWCR,ELSR,RCSR,EBAR ,RBAR,Q

.WORD
.WORD
.WORD
.WORD

EM63
DH63
DT63

;Dk11 INTERRUPTED AT WRONG LEVEL
;TEST # ERR PC EXPLVL RCVLVL CSRADR
;$TESTN,SERRPC,DRLEV,LEVEL,CSR,0

.WORD
.WORD
.WORD

EM43
DH64
D164
0

;DR11 FAILED TO INTERRUPT
;TEST # ERR PC EXPLVL CSRADR
;STESTN,SERRPC,$TMP1,(SR,0

.WORD

;PRINT ALL DATA OCTAL

;PRINT

ALL DATA OCTAL

BAREXP

BAR

CIORLCO-DRIY GEN NPR INTFC

ERROR POINTER TABLE
1409

1410 002264
1411 002266
1612 002270
1413 002272

050037
052333
053464

000000

MACRO M1113

27-0(T-80 15:53

J1TEM 54

.WORD
.WORD
.WORD
.WORD

EM65
DH65
DT65
O

PAGE 50

;2=N CYCLE BURST SWITCH IN WRONG POSITION
;TEST # ERR PC
CSRADR EIREXP EIRRCV
;STESTN,SERKPC,(SR,EEIR,REIR,0
;PRINT ALL DATA OCTAL

SEQ 0049

CIDRLCO-DRI1 GEN NPR INTFC

NN = OO0 NN P

d ad —

N W
¥
¥
F W
P ¥
¥ W
WP
RO N PO RO RO PO RO N — = b s s —

ERROR POINTER TABLE

053342
000000

002304
002306
002310
002312

050153
052451
053514
000000

002314
002316
002320
002322

04606
051230
053240
000000

002324
002326
002330
002332

046245
051154
053224
000000

002334
1443 002336
1444 002340

046577
051304
053254
000000

1448 002344
1449 002346

047435
052670
053564
000000

~NO

D —d
i
d
)
D
D
D
e

VNS

002300
002302

047556
051602

PAGE 51

27-0CT-80 15:53

ITEM 201

EMS?7
DHS7

;BUFFER DATA NOT CORRECT
CHECK
CHECK
:

.WORD
.WORD

D157
0

;STESTN,$SERRP(C,$TMP4
,$TMP2 ,$TMPS ,$TMP3,(SR,0

;1TEM 202

.WORD
.WORD
.WORD
.WORD

;TEST #

047520
051523
053324
000000

1466 002374
1467 002376
1468 002400
1469 002402

050203
052734
053576
000000

.WORD
.WORD
.WORD
.WORD

;ITEM 205

.WORD
.WORD
.WORD
.WORD

JITEM 206

.WORD
.WORD
.WORD
.WORD

ITEM 207

.WORD
.WORD
.WORD
.WORD

JITEM 210

.WORD
.WORD
.WORD
.WORD

JITEM 211

.WORD
.WORD
.WORD
.WORD

INPUT

BUFADR

EM26
DH26
D126

:BIT PATTERN TEST FAILED IN BAR
;TEST # ERR PC BARADR BAREXP

EM27
DH23
D123

;WCR DATA PATTERN NOT CORRECT

EM36

:BDR PATTERN NOT CORRECT

;STESTN,SERRP(C ,BAR,EBAR,RBAR,
;PRINT ALL

;TEST #

INPUT

BUFDAT

(CSRADR

(SRRLV

BARCONTENTS

DATA OCTAL

ERR PC

WCRADR

WCREXP

WCRCONTENTS

;TEST # ERR PC BDRADR BDREXP
;$TESTN,SERRPC,BDR,EBDR,RBOR,0

BORCONTENTS

;STESTN,SERRPC ,WCR,EWCR,RWIR,0
;PRINT ALL DATA OCTAL

DH34
D134

;PRINT ALL DATA OCTAL

EMS3
DH210
DT210

;WCR NOT EQUAL TO ZERO

EM54
DH26
DT26
0

;BAR IS WRONG

EM56

;DATA NOT TRANSFERED CORRECTLY

D156

;STESTN,SERRPC ,ANPR1,ENPR1 ,NPR1,(SR,0

1460 002364
1461 002366
1462 002370
1463 002372

;ITEM 204

BUFDAT

;PRINT ALL DATA OCTAL

;TEST #

ERR PC

WCRADR

;STESTN,SERRPC ,W(R,RWCR,0

WCRCONTENTS

;PRINT ALL DATA OCTAL

;TEST # ERR PC BARADR BAREXP
;STESTN,SERRP(C ,BAR,EBAR ,RBAR,
;PRINT ALL DATA OCTAL

;TEST #

ERR PC

NPR1AD

NPRIEX

BARCONTENTS

NPRIRC

C(SRADR

;PRINT ALL DATA OCTAL

—d
e

57 002362

047463
051230
053240
000000

.WORD
.WORD
.WORD
.WORD

BUFADR

;CSR PATTERN NOT CORRECT
;TEST # ERR PC (CSRADR PATLDD CSREXP
;STESTN,SERRPC,CSR,BUT,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

—

002354
002356
002360

;1TEM 203

ERR P(

EM202
DH202
01202

oOooOm

002350
002352

SEQ 0050

.WORD
.WORD

e
D
D
i
D
D
D
D
D
D
D el
D e
b

1445 002342

;THIS IS THE STARTING POINT FOR ERROR MESSAGES 201
; THROUGH 277.
THEY ARE USED FOR MULTIPLE ERROR MESSAGES.

ER200:

002274

002274
002276

&5 Y
Y
W
&H £ 2 LN NN N W
N N N N AN RO AU
~nN SOV
NV WA 2OV

MACRO M1113

;BDR AND-OR WCR AND-OR BAR ARE INCORE(CT

;TEST # ERR PC WCRADR WCREXP WCRRCV BDREXP BDRRCV
PC2 RBAR,O
,RCSR,EB"
ERR
,RWCR,ECSR
N,S
,WCR,EWCR
;STEST
;PRINT ALL DATA OCTAL

BAREXP

BAR

CIDRLCO-DRi1 GEN NPR INTFC
ERROR POINTCR TABLE
1470
1471 002404
1472 002406

1473 002410
1474 002412

047156
051100
053210
000000

MACRO M1113

27-0CT-80 15:53

;1TEM 212

.WORD
.WORD
.WORD
.WORD

EML6
DH17
D117
0

M4
PAGE 52

SEQ 0051

;FUNCTION BITS DIDN'T INCREMENT [N MAINT MODE
;TEST #

ERR PC

CSRADR

CSREXP

;$TESTN,SERRP(,(SR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

CSRCONTENTS

N &

CIDRLCO-DRT1 GEN NPR INTF(

STORAGE LOCATIONS

MACRO M1113

ig?é

1480

27-0CT-80 15:53

PAGE 53

SEQ 0052

STORAGE LOCATIONS
LA L

L L L L LTI LTI L TP

PR R LT

i%g% 002414 000001

QTYBRD: .WORD

;TOTAL # DR11 BOARDS BEING TESTED (DEFAULT = 1)

1484 002416
1485 002456
1486

REGADR:
VECADR:

16.
16.

;TOTAL:
;TOTAL:

}232

;REGISTER AND VECTOR ADDRESS STORAGE LOCATIONS FOR THE DR11 UNDER TEST

1489

1491

1490
002516
002520
002522
002524
002526
002530
002532
002534

1504
1505
1506
1507
08

002540
002542
002544
002546
002550

NN
A
Al
VIV

1=3=d=4
=il

) =D

)

b ol

VWV WA
PV RV NININONININION)
= b b b b b b b b bo
N=2OOVNO
NS WN=O o

WCR:

WORD
MORD
BAR:
WORD
CSR:
BDR:
WORD
.WORD
DRINV:
DRVS:
MWORD
SDRINV: .WORD
SODRVS:

,WORD

R R

AL AR

iRl

0
0
0
O
O
0
O

;'ttt't'.tttttt"ttt'tit'tt'ttt'tt.t.t.'i'itt"".t'li'tt'ttt""it

BUT:
LEVEL:
BDVECT:
DEVMSK:

.WORD
.WORD
.WORD
.WORD

0
0
0
0

DREG:
DRLEV:
NXTTST:
PASCNT:

.WORD
.WORD
.WORD
.WORD

0
0
0
0

000000
000000
000000
000000
000000

RCSR:
REIR:
RBDR:
RBAR:
RWCR:

.WORD
.WORD
.WORD
.WORD
.WORD

0
0
0
0
0

:CSR ACTUALLY READ
;EIR ACTUALLY READ
:BDR ACTUALLY READ
:BAR ACTUALLY READ
;WCR ACTUALLY READ

000000
000000
000000

ECSR:
EEIR:
EBDR:
EBAR:
EWCR:
ENPR1:
ANPRY:
BORW:
NPR1:
DIOMEM:
INBUF:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LMORD
.WORD
.WORD
.WORD

0
0
0
0
0
O
NPR1
0
52525
173000
X INBUF

;CSR EXPECTED
;EIR EXPECTED
:BOR EXPECTED
:BAR EXPECTED
sWCR EXPECTED
JEXPECTED OF NPR1
;ADDRESS OF NPR1

BUFLEN:

.WORD

052525

173000

040450
061452
000000

TABINX:

.WORD

(HKBUF: .WORD

RRRRi0RRRRdiR Rl

;BIT(S) UNDER TEST LOCATION
;BR LEVEL LOCATION

000000
000000
000000
000000
000000
000000
000000
000000
000000

L A AL

X 2232322223223 222222232223 2223 2333323223222

Dl iiD il

000000
000000
000000
000000
000000
000000
000000
000000

el
D e

A A

;DO NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS ABOVE

1503 002536

— el el

16 LOCATIONS FOR BOARD ADDRESSES
16 LOCATIONS FOR VECTOR ADDRESSES

;D0 NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS BELOW

1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502

VAN WA WA VA WA WA WA WA WA VA WA VLA VA WA

.BLKW
.BLKW

XCHKBU

FROM DE
FROM DE
FROM DE
FROM DE
FROM DE

UNDER
UNDER
UNDER
UNDER
UNDER

TEST
TEST
TEST
TEST
TEST

CIDRLCO-DRTY GEN NPR INTF(

STORAGE LOCATIONS

MACRO M1113

27-0CT-80 15:53

1532 002624
1533 002626
1534 002630
1535 002632
1536 002634
1537 002636
1538 002640
1539 002642
1540 002644
1541 002646
1642 002650
1543 002652
1544 002654
1545 002656
1546 002660

000000
000000
006000
000000
177560
177562
177564
177566
000000
000000
000000
000000
000000
000000
000000

1548 002664
1549 002666
1550 002670

000000
000000
000000

MWORD
LWORD
LWORD
MWORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LOOP:
ANSWER: .WORD
BDFAIL: .WORD
MANSIZ: .WORD

000000

OLDPS1:

.WORD

OLDPS2:
OfL:

.WORD
.WORD

1547 002662

000000

1551 002672

000000

1553 002676

000000

1552 002674

1554 002700
1555 002702

1556 002704
1557 002706
1558 002710
1559 002712
1560 002714
1561 002716

000000
000000

000000
000000
000000
000000
000000
000000

LENCHK:
BRWAIT:
WCLEN:
RDYCHK:
1KS:
TKB:
TPS:
TPB:
MSG:
ADDR:
MESSAG:
FLAG:
FNCCNT:
INBUF1:
TIME:

.WORD
.WORD
.WORD
.WORD

OLDPC1: .WORD

OLDPC2: .WORD

IRGSTC:
EOPLOC:
BITTST:
MEMGMT:
ERRCNT:

.WORD
.WORD
.WORD
.WORD
.WORD

$PASS2: .WORD

PAGE 53-1

SEQ 0053

O
0
O
O

177560
177562
177564
177566
0
0
O
0
0
O
O
O
0
0
0

;GENERAL PURPOSE TIMER
; GENERAL PURPOSE LOOP COUNTER

;LOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS

0
0
0

0
O
O
0
0

;LOCATION TO STORE PS

;LOCATION TO STORE PS
;FIRST CHAR FLAG

;LOCATION FOR LARGEST NUMBER CHARACTER FOR THE READ SUBROUTINE
;LOCATION TO HOLD FLAG DECIDING IF EUP MSGS ARE TO BE PRINTED
;LOCATICN TO PUT THE BIT STATE TO PRINT - USED BY SUBROUTINE PSTATE
;LOCATION TO HOLD FLAG SAYING MEMORY MANAGEMENT IS AVAILABLE
;LOCATION TO HOLD TOTAL ERRORS FOR A PARTICULAR TEST
;LOCATION TO HOLD OVERFLOW PASS NUMBER

CIDRLCO-DRIY GEN NPR INTF(

MACRO M1113

DEVICE DESCRIPTOR WORD BIT DESCRIPTION
1562

27-0CT-80 15:53
.SBTTL

1553

¢ 5
PAGE 54

SEQ 0054

DEVICE DESCRIPTOR WORD BIT DESCRIPTION
R

AR AR

ARl

}ggg

DESCRIPTION OF BITS IN THE DDW (DEVICE DESCRIPTOR WORD):

1566

;

BIT 0

DOR11-Ww=0,

1568

BIT 2

CABLE DOESN'T EXIST=0, CABLE DOES EXIST=1

1567

1569
1570
}2;;

1573 002720

:
:
:

000000

DOW:

BIT 1

BIT S
BIT 6
BIT

.WORD

DR11-B=1

2 CvCLE=0, N CYCLE=1
\

> BR PRIORITY

:LOCATION FOR STORAGE OF THE DEVICE DESCRIPTOR WORD

MACRO M1113
27-0(T-80 15:53
CZORLCO-DRT1 GEN NPR INTF(
SUBROUTINE TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMBER

i e

b mad

d e

OO
oo ooooorOrOrOrOrOOrOrOrOrOONONO
b d acd o wd ad b
WINLRLAL
NN NV NN P — b o

OV
LN =0
QOO0
~NO NS
Ry = OOV~

002730
002732
002740
002744
002746
002750
002754
002762
002764
002770
002772
003000
063002
003006
003010
003016
003022
003030
003032
003040
003042

.C3TTL

SEQ@ 0055

SUBROUTINE TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMBER

A
AL
A
B
B

TR
IR

LN N

:"ttttt"ttttQ"t"t"'t"'t'"""'tl"lt""'Q"ltt"l""t""'

THIS SUBROUTINE 1S USED IN THE EDIT ROUTINE TO INPUT NUMBERS AND A

SINGLE CHARACTER. R3 IS TO BE LOADED WITH THE NUMBER OF DIGITS
EXPECTED. THIS SUBROUTINE WILL EXIT IF A NON-NUMERIC CHARACTER IS
INPUTED, LEAVING THE CHARACTER IN LOCATION 'ANSWER'. IF A NUMERI(C
CHARACTER IS INPUTED, IT WILL CLEAR ALL BUT THE 1ST & BITS EXPOSING
THE VALUE OF THE DIGIT INPUTED, AND ADD IT TO Ré, WHICH WAS CLEARED
AT THE BEGINING OF THIS SUBROUTINE. LOCATION 'LRGSTC' IS TO BE LOADED
WITH THE LARGEST ASCII CHARACTER ACCEPTABLE FOR THIS NUMBER, I.E.
IT WILL ONLY ACCEPT
OR 9 (FOR OCTAL OP DECIMAL INPUT RESPECTIVELY).
IT WILL ONLY ACCEPT
THE NUMBER DIGIT EQUAL TO OR LESS THAN THIS DIGIT.
THE MAXIMUM NUMBER OF DIGITS SPECIFIED BY R3, PRINTING A <CRLF> WHEN
IF A <CR> IS INPUTED BEFORE THE MAXIMUM [S
THAT LIMIT IS REACHED.
REACHED, ROUTINE EXITS LEAVING THE INPUTED NUMBER IN R4,

1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592 002722
1593 002724

S
D
PAGE 55

tttttt.t'i"ittt"tt"ti'tt't"'tfi"'t't'ttiii'lt""it't"'QQ't"

005004
105737
001406
113737
105037
000403
104411

012637
022737
001003
104401
000453
022737
001003

104401
000444
113737
104401
022737
100016
123737
100427
013746

042716
006304
006304
006304
062604
005303
001330

030707
030707
002664
000003

002664

2%:

3%:

0026¢4
03507
000057

035071

49:

002704

002664

034762

000015
001405

RDCHR
MOV
CMP

BNE

5¢%:

6%:

(SP) ¢+, ANSWER
#CNTLC,ANSWER

;POP INPUTED CHARACTER OFF STA(K
;SEE IF A “C WAS INPUTED

;GET A CHARACTER

:BRANCH ARQUND IT$ PRINTING IF NOT

JTYPE:
'»(!
:KICK OUT OF THIS ROUTINE
;SEE IF AN <ESC> WAS INPUTED
;BRANCH AROUND ITS PRINTING IFf NOT
'<ESO>!
JTYPE:
;KICK QUT OF THIS ROUTINE
;MOVE CHARACTER FOR PRINTING
;GO TYPE THE INPUTED CHARACTER

BPL

:BRANCH TO R4 TEST IF SO

#'/ ,ANSWER

(MPB

LRGSTC,ANSWER

BIC

#60, (SP)

DEC
BNE
CMPB
BNE
CMP
BrL

002664

;CLEAR THE CHARACTER RECEIVER
;SEE IF A CHARACTER WAS INPUTED DURING PRINTING
:BRANCH TO INPUT A CHARACTER IF NOT
;MOVE THE CHARACTER TO THE ANSWER LOCATION
;CLEAR THAT SUCKER
:GO CHECK IT OUT, YOU DUMMY

LONTRLC
6%
#ESC,ANSWER
3
LESCAPE
6%
ANSWER ,LETNCR
LLETNCR

ASL
ASL
ASL
ADD

002704

R&
CHARCT
1%
CHARCT,ANSWER
CHARCT
2%

TYPE
BR
CMP
BNE
TYPE
BR
MOvB
TYPE

BMI
MOV

000007

000002

CLR
1ST8
BEQ
MovB
CLRB
BR

CMP

002664

002664
000060

022737
001402
062704
000207

1%:

002664

000033

900071

104401

002664

035073

122737
00101
022704
100006

READ:

030707

6%
ANSWER , = (SP)
R4
R&
R4
(SP)+,R4

R3
13
#'9,LRGSTC
6%
#7,RG
6$

CmP
BEQ

#CARETN,ANSWER
6%

TYPE
RTS

LSCRLF
PC

ADD

1 R4

;SEE IF A NON-NUMERIC/ALPH CHARACTER WAS [NPUTED
;SEE IF A NON-OCTAL/NUMER!C CHARACTER WAS INPUTED
:BRANCH TO EXIT IF SO
:MOVE ASCI1 TO STACK FOR PREPARATION

;CLEAR ALL BUT THE NUMBER INPUTED
;SHIFT R4 THREE PLACES

;70 MAKE ROOM FOR

;THIS CHARACTER
:ADD THE OCTAL NUMBER TO R&4

;SUBTRACT 1 FROM THE LOOP COUNTER AND
:BRANCH BACK if NOT ALL CHARACTERS INPUTED
;SEE IF NUMBER IS TO BE DECIMAL
BRANCH IF NOT
;SEE IF INPUTED NUMBER IS 7 OR LESS
:BRANCH [F SO

;SEE IF CARRIAGE RETURN WAS INPUTED
:BRANCH IF SO - R4 IS CORRE(T

;ADD 2 TO R4 TO MAKE OCTAL NUMBER THE DECIMAL EQUIVALENT

:PRINT A <CRLF>
JEXIT

MACRO M1113 27-0CT-80 15:53 PAGE Eb

CZDRLCO-DR1 GEN NPR INTF(
SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS

.SBTTL

SUBROUTINE TO CAPTURE UNIT ¥, PASS # § TOTAL ERRORS
s

RS20

643
1644
1645
1646
1647

003146
003152
003156
003162
003166

044736
0424654
001422
002716
001416
001312
062454

042454

R 002200200 RRARRRARRRRRlRRRRRRill
)

%
¥
»

THIS SUBROUTINE 1S CALLED BY SEOP AND ENDEV TO SAVE THE UNIT NUMBER,
PASS NUMBER, AND TOTAL ERRORS FOR THAT DEVICE/PASS FOR SAVING WHENEVER
A DEVICE PASS CONTAINS ERRORS.

CHARENRARNNNANNAER LR AR

022737
001414
013700
013720
013720
013720
013720
010037
000207

220

L2222

SEQ 0056

LTI
T
T
I Y

ERCAPT: (MP
BEQ
MOV
MOV

1%:

MoV
MOV
MOV
MOV
RTS

RN RN LR AR AR A AN ARAANRNANEAANERRANONRRROEARNROROS

#ENDSTK,CAPNTR
1%

CAPNTR,RO
SUNIT,(RO) ¢+
$PASSZ, (RO) ¢+

;SEE IF STACK IS FULL OF BULL
+KICK QUT [F FULL

$PASS, (RO)+
SERTTL,(RO) ¢

;MOVE CAPNTR CONTENTS TO RO
;PUT UNIT NUMBER ON STACK
;PUT OVERFLOW PASS NUMBER ON STA(K
;PUT PASS NUMBER ON STA(CK
;PUT TOTAL ERRORS ON STACK

JEXIT

RO,CAPNTR

;RESTORE CAPNTR TO NFW POINTER VALUE

F_
5
PAGE 57

MACRO M1113 27-0CT-80 15:53
CIDRLCO-DRTT GEN NPR INTF(
SUBROUTINE TO PRINT THE DATA STORED BY SUBROUTINE ERCAPT
.SBITL

IT PRINTS ALL DATA STORED IN THE °'CAPSTK' STACK STORED BY THE
*DATA®
"ERCAPT' SUBROUTINE, REINITIALIZES THE POINTER, AND RETURNS.

TEST.

PRINTED*15+L0OST+ BECAUSE OF THE REINITIALIZATION OF THE COUNTER.

003170
003176
003200
003204
003206
003214
003216
003222

022737
001003

104401
104401

034020

003226
003232
003236
003242
003246
003250
003254
003256
003260
003262
003266

012700
012701
005037
021037
001403
062700
000420
012046

042456

1064401

000462
022737
001002

104405
104401

012046
001002
1044601
012046

104406
104401

1680
1681
1682
1683

1690
1691
1692
1693
1694

THIS SUBROUTINE IS INVOKED BY ENTERING (%Y) DURING THE EXECUTION OF THE

1679

1685
1686
1687
1688
1689

SUBROUTINE TO PRINT THE DATA STORED BY SUBROUTINE ERCAPT

;t't'."t"""""""'"""'"'Q""""."""2""""".""0
Sem.
0.
e w.

1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678

SEQ 0057

012046
104405
104401

003336
003340
003346
003352
003356

020037
001347
005237
012700
005301
001341
012737
104401

105037
000207

042456

062454

0342M
044736

042454

1%:

2%:

000010

B8R
(MP
BNE

$
#ENDSTK, CAPNTR

TYPE
TYPE

(LR

(MP

BEQ
ADD

035250

B8R

MOV
TYPDS
TYPE
MOV

BNE

035250

5%:

035250

001405
042454

6%:

001362
042456

TYPE
MOV
TYPDE
TYPE
MoV
TYPDS
TYPE

CMP
BNE
INC

Mov

DEC
BNE

042454
7%:

R R R R 2RSSR

:EAPSTK.CAPNTR

MOV
MoV

000020
001362
001362

(MP
BNE

TYPE

034073

042454
001405
030707

X X222 XXX

PTCAPT:

MOV
TYPE
CLRB
RTS

NODATA

R0 RRRRRllRdd)

;SEE IF THERE IS ANY DATA TO PRINT
:BRANCH TO PRINT IT IF THERE I5
'NO ERROR TOTALS TO REPORT'
;TYPE:
;KICK OUT

;SEE IF STACK IS FULL OF BULL

#CAPSTK,RO

:BRANCH AROUND STACK IS FULL MESSAGE IF NOT
°STACK IS FULL = DATA MAY HAVE BEEN LOST'
;TYPE:
-TYPE°
"SUMMATION OF ERRORS SINCE BEGINNING OR LAST REPORT'
ERRTTL'
PASS #
'BOARD #
:MOVE ADDRESS OF STACK TO PRINT TO RO

$TMP1
(RO),$THPT
(3
#:0,R0
6%
(RO)+,-(SP)

:SEE IF UNIT NUMBER IS TO PRINT
;BRANCH TO PRINT DATA [f SO
;G0 TO NEXT SET OF DATA AND
;60 SEE IF ANY MORE TO CHECK
;MOVE UNIT NUMBER TO STACK FOUR PRINTING

LSTKIFL

.ERCHDR

#6. ,R1

. SPACES

(RO)+,-(SP)

5%
.SPACES

(RO)+,-(SP)

.SPACES

(RO +,-(SP)

JSCRLF

RO.CAPNTR
3%
$TMP1
#CAPSTK,RO
R1

FCAPSTK,CAPNTR

LJOCRLE

CHARCY

;MOVE 16 BOARDS TO SEARCH TO RO
;CLEAR $TMP1, DEVICE POINTER

;G0 TYPE UNIT NUMBER IN DECIMAL
;TYPE 2 SPACES

IMOVE OVERFLOW PASS NUMBER TO STACK FOR PRINTING
;BRANCH IF NON-ZERO
;TYPE AN EXTRA 2 SPACES - NUMBER WILL NOT BE EXTENDED

:MOVE PASS NUMBER TO
;60 TYPE PASS NUMBER
:TYPE 2 SPA(CES
;MOVE ERROR TOTAL TO
;GO TYPE ERROR TOTAL
;TYPE

<CRLF>

STACK FOR PRINTING
IN EXTENDED DECIMAL
STACK FOR PRINTING
IN DECIMAL

;SEE If ALL DATA HAS BEEN PRINTED
;BRANCH BACK IF NOT
: INCREMENT DEVICE POINTER

SINITIALIZE TO BEGINNING FOR ANOTHER POSSiBLE PASS
:DECREMENT THE LOOP COUNTER AND

:BRANCH UNTIL ALL DEVICE DATA PRINTED

;REINITIALIZE CAPNITR
;TYPE ANOTHER <CRLF>

ELE?R ANY CHARACTER ENTERED DURING PRINTING
X

MACRO M1113
CZDRLCO-DRi1 GEN NPR INTF(
SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES

=200
W
NN
=2 OO
SN

D
d
D
D
d
D
D e
d
d
D
b
d
e
D

NNNNNNSNNNNNNN
NN
AIPINIPNIN)
—d b b ed d acd eed ad ek d O

1695
1696
1697
1698
1699
17C9
1701
1702
1703
1704
1705
1706

27-0(T-80 15:53

.SBTTL

2 22222 X2 R
M

i
i

i
* %

003360
003364
003366
003372
003400

003402
003406
003410
003412
003416
003420

003424
003432

003440
003446
003454
003462
003464
003466
003470

001466

006137
002416
016263
062763
002456
016263
062763
913763
022223
0053C1

001466

001353
000207

5
SEQ 0058

SUBROUTINE TO FI.L ALL TABLE BOARD ENTRIES

XX R X2

RS RREZRR

RS RRR R RRRRRRR2RRRRRRRRARRRRARR
D)

THIS SUBROUTINE FILLS ALL TABLE BOARD ENTRIES FOR THE ADDRESSES AND
VECTORS FROM THE VALUES IN "REGADR' AND 'VECADR', AND SHOULD BE SET

UP BEFORE ENTERING THIS SUBROUTINE.

Ettttt"tQ"Qt't"'""""'0Q"""fi'i""i"""""".""""'.

005037
000261
006137
022737
001433
013701
005301
005002
012703
000261

PAGE 58

001466
C00001

FIXTBL:
002414

002414
000002

002416

000010
002456
000010
001474

002416
002416

002456
002456
001474

(LR

SEC

ROL

SDEVM

S$DEVM

;CLEAR THE DEVICE MASK
:SET THE CARRY BIT AND

ROTATE IT INTO $DEVM FOR 1 BOARD

SEE IF ONLY 1 BOARD PRESENT
:KICK OUT [F SO - TABLE DOESN'T NEED FILLING
“FILL ALL TABLE BOARD ENTRIES FROM FIPST
“DECREMENT SINCE 1ST POSITION IS ALREADY FILLEN
:CLEAR INDEX TO SEND POINTER
:PUT 2 IN INDEX TO RECEIVE POINTER
SET THE CARRY BIT AND
$DEVM
:ROTATE IT INTO S$DEVM
:REDEF INE REGADR AS RA FOR SPACE REASONS
;TRANSFER ADDRESS TO NEXT POSITION AND
RA(R2) ,RA(R3)

CMP
BEQ
MOV
DEC
CLR
MOV
18:
SEC
ROL
RA=REGADR
MOV

#1,QTYBRD
28
QTYBRD,R1
R1
R2
#2,R3

VA=VE CADR
MOV
ADD
MOV
CMP
DEC
BNE
RTS
2%:

REDEFINE VECADR AS VA FOR SPACE REASONS
VA(R2) ,VA(R3)
;TRANSFER VECTOR TO NEXT POSITION AND
ADD 10 FOR NEXT POSITION
#10,VA(R3)
$0DWC,$DDWO(R3) MOVE DEVICE DESCRIPTOR WORD TO NEXT POSITION
:UPDATE INDEX POINTERS
(R2)+,(R3)+
THE LOOP COUNTER
DECREMENT
R1
BRANCH BACK IF NOT DONE
18
JEXIT
PC

ADD

#10,RA(R3)

ADD 10 FOR NEXT POSITION

CIDRLCO=-DRT1 GEN NPR INTF(C

MACRO M1113

27-0(T7-80 15:5%3

SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN
1725

LSBTTL

1726

PAGE 59

Sc@ 0059

SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN

"..".".'.'.""""""""""".".'.""..""""""'.."'.'

1727

1728
1;%8

M
)

1731
1732 003472
1733 003476

:".""'."...."""".""""'."."'......."'."I'."'.""."
LODBUF: MOV
INBUF ,R2
:MOVE STARTING ADDRESS OF INBUF TO R?
MOV
BUFLEN,R3
;MOVE LOOP COUNTER TO R3

1734 003502
1735 003504
1736 003506
1737 003510
1738 003512
1739 003514
1740 003516

bR]

013702
013703

005203
005001
010122
005201
005303
001374
000207

002616
002622

1%:

THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS
NUMBERS STARTING WITH 1 INTO THE BUFFER.

INC
CLR
MOV
INC
DEC
BNE
RTS

R3
R1
R1,(R2)+
R1
R3
1%
PC

;CORRECT COUNTER
:CLEAR THE LOADING COUNTER
:LOAD NEXT BUFFER WORD
;INCREMENT THE LOADING COUNTER
;DECREMENT THE LOOP COUNTER AND
;BRANCH BACK IF NOT DONE
JEXIT

CIDRLCO-DRT1 GEN NPR INTF(

MACRO M1113

27-0(T-80 15:53

SUBROUTINE TO LOAD THE CHKBUF WITH EVEN #'S STARTING WITH 0
.SBTTL

SEQ 0060

SUBROUTINE TO LOAD THE CHKBUF WITH EVEN #'S STARTING WITH 0

%00

TRANRANRRNRRARRNECERRCECERRRRROCCEERANRRNRAANRRNARRRANRQERANRANRNOROOOORARRCOETRTS

1741
1742
1743
1744
1745
1746
1747

[

PAGE 60

*
L 4

THIS SUBROUTINE CLEARS THE FIRST LOCATION OF

EVEN NUMBERS STARTING WITH O INTO THE BUFFER.

23ISR

003520
003524
003530
003532
003534
003536
003540
003542
003544

013702
013701
005003
010322
010322
022361
005701
001373
000207

0026 2 0
0026 2 4

THE BUFFER AND LOADS

CHKBFF:

MOV
MOV

1%:

MOV
MOV
CMP
TST
BNE
RTS

2%:

CLR

R R

R XA

R RSS20 RRRRRRRRRRRRRRRRRRRRR
DA

CHKBUF ,R2
BUFLEN,R1
R3
R3,(R2)+
R3,(R2)+
(R3)+,-(RT)

;STARTING ADDRESS OF CHECK-BUFFER TO RZ
;MOVE LOOP COUNTER TO R1
;WIPE OUT R3
;MOVE K3 TO CHKBUF ADDRESS AND INC BY 2
;MOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2
;ADD 2 TO NUMBER FOR BUFFER £ SUBTRACT 2 FROM LOOP COUNTEPR

JEXIT

R1
1%

;SEE IF R1 HAS REACHED ZERO YET
;BRANCH BACK IF NOT DONE

CZORLCO-DRI1 GEN NPR INTFC

MACRO M1113

27-0CT-80 15:53

SUBROUTINE TO CLEAR IE, CHECK ERROR, READY, WCR=0, AND BAR
.SBTTL

1757
1758
1759
1760

SEQ 0061

SUBROUTINE TO CLEAR IE, CHECK ERROR, READY, W(R=0, AND BAR

;l"'ttt"t'Qt""t"'"""""'""t"""."."'."""."'t"t'
;t

THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR IN THE TEST.

1761
1762

IS TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL.

THIS SUBROUTINE MUST BE HANDLED AS FOLLOWS:

1763

THE ERROR

FUTURE USE OF

1764
1765
1766
1767
1768
1769 003546
1770 003554
1771 003560

1772 003564
1773 003570
1774 003576
1775 003604
1776 003606
1777 003614
1778 003616
1779 003620
1780 003626
1781
1782
1783
1784
1785
1786
1787

S
J
PAGE 61

003632
003636
003644

003652

003660
003666
003670
1788 003676
1/89 003700

1790 003706
1791 003710
1792 003714

JSR

ERROR

CONTINUE

HAg

:SUBROUTINE CALL
;ERROR CALL
;SUBROUTINE RETURNS HERE IF NOU ERROR

PC,INTA

+51

042777
013702
063702
063702
017737
032737
001005
032737
001401
005202
017737
005037
010237
013737
042737
052737
017737

001012
023737
001006
023737
001002
062716
000207

000100

176746

176726
010000

002560
002560

000004

002720

002622
002622
002616

176674

002566

100000
000200
176632

002572
002572
002572
002570

002560

002572

0025¢

002600

002602
002600
002560

000002

28222 222X

INTA:

BIC
MOV
ADD
ADD

#1E,3CSR
BUFLEN,R2
BUFLEN,R2
INBUF ,R2

BNE
BIT
BEQ
INC

1%
#B172,00W
1%
R2

MOV
BIT

18:

MOV
CLR

MoV

9CSR,RCSR
#MA RCSR

aBAR ,RBAR
EWCR

R2,EBAR

:CLEAR IE

:BUFFER LENGTH TO R2
:NUMBER OF XFERS TIMES 2

sCORRECT BAR
:MOVE RECEIVED DATA TO RCSR

;SEE IF WE ARE IN MAINTENANCE MODE
:BRANCH AROUND CABLE TEST IF WE ARE, BIT 0 WiLL BE CLEAR
sSEE IF THERE IS A CABLE
:BRANCH IF NO CABLE

:CABLE MODE TESTING LEAVES BIT O OF BAR SET. CHECK ODD ADRS
:MOVE RECEIVED DATA TO RBAR
sCLEAR EXPECTED LOCATION
sMOVE EXPECTED DATA TO EBAR

;MOVE EXPECTED DATA TO ECSR

MOV
BIC

RCSR,ECSR
#ER,ECSR

MoV

aWCR,RWCR

:MAKE SURE READY BIT [S SET
;MOVE RECEIVED DATA TO RWCR

CMP

RCSR,ECSR

:DOES CSR CONTAIN WHAT IT SHOULD

CMP

RBAR,EBAR

:DOES BAR CONTAIN WHAT [T SHOULD

ADD
RTS

#2,(SP)
PC

JEXI

BIS

BNE
BNE

BNE
2%:

2222223202222 2222222220220 RRRRRRdRRilRtRiRRRilld)

#RY ECSR

:MAKE SURE ERROR BIT

IS CLEAR

;BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL
:BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL
:BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL
:COR?ECT PC RETURN TO AFTER THE ERROR CALL

CIDRLCO-DR11 GEN NPR INTFC

MACRO M1113

27-0CT-80 15:53

SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION
1793
1794

1795

1796
1797
1798
1799
1800

A
o¥
B
.
o

}gg;

LR4

LSBTTL

PAGE 62

SEQ 0062

SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION
AR

R P PR

TR PR R AR AR

R R R R

RN A NRNNANRNRRRROOTONNRY

THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR [N THE TEST AND RETURN
TO THE SUBROUTINE.
THE ERROR AND RETURN JSR ARE TO BE LOCATED [N THE
TEST JUST AFTER THE JSR CALL.
YOU *MUST+* CLEAR LOCATION 'ERRCNT'
BEFORE EXECUTION OF THIS SUBROUTINE, OTHERWISE YOU MAY NOT GET ANY
ERRORS PRINTED, OR IF SO, JUST THE DATA WITHOUT THE HEADER. FUTURE

USE OF THIS SUBROUTINE MUST BE HANDLED AS FOLLOWS:

1803

JSR

PC,DOATCHK

:SUBROUTINE CALL

1805

JSR

PC,DATCHZ

sRETURN TO SUBROUTINE AFTER ERROR RTS

1804

}ggg

ot
%

1808

ERROR
CONT INUE

011637

001362

DATCHK: MOV

1812 003732
1813 003736
1814 003742

005037
005237
022223

002624
002624

DATCHY:

1815 003744

1816 003746

1817 003752
1818 003760
1819 003764
1820 003772
1821 004000
1822 004004
1823 004012
1824
1825
1826
1827
1828

004014
004022
004024
004030
004034

013702
013703

001423

013716

016237
010237
162737
016337
010337
162737
000207

023737
001345
013716
062716
000207

002620
002616

001362

:SUBROUTINE RETURNS HERE IF NO ERROR(S) OR WHEN DONE

(SP),ETMPY

;SAVE PC RETURN

CLR
INC
CMp

LENCHK
LENCHK
(R2)+,(R3)+

;CLEAR LENGTH CHECK
:MAKE A COMPARISON
;1S THE DATA CORRECT?

MOV

$TMP1, (SP)

MOV
MOV

BEQ

177776
001370
000002
177776
001372
000002

001364

002624

002622

001362
000006

*ERROR CALL

;ttitt'tttttt'ttttt'tttttttt'tt'ttitttttt'ttttt'i'.ttt.ttt'ttttttt'

1809 003716

1810 003722
1811 003726

+201

001370

001366
001372

MOV
MOV
sus
MOV
MOV
sus
RTS

DATCHZ2: (MP
BNE
MOV
ADD
RTS

CHKBUF ,R2
INBUF ,R3

DATCHE

-2(R2),$TMP2
R2,$TMP4
#2,8TMPS
-2(R3) ,$TMP3
R3,$TMPS
#2.,8TMPS
PC

LENCHK ,BUFLEN
DATCH
$TMP1, (SP)
#6,(5P)
PC

;STARTING ADDRESS OF CHECK BUFFER TO R2
:STARTING ADDRESS OF [N BUFFER TO R3

:BRANCH IF OK

sRESTORE ORIGINAL PC RETURN

;MOVE CHECK BUFFER CONTENTS TO $TMP?
;MOVE ADDRESS +2 TO $STMP4
;CORRECT SO IT POINTS TO ADDRESS CAUSING ERROR
:MOVE INPUT BUFFER CONTENTS TO $TMP3
;MOVE ADDRESS +2 TO STMPS
;CORRECT SO IT POINTS TO ADDRESS CAUSING ERROR
:RETURN TO ERROR CALL = PC ON STACK ALREADY POINTS THERE
;SEE If THE BUFFER HAS BEEN CHECKED
:6G0 BACK FOR ANOTHER TRY IF NOT
;RESTORE PC RETURN
:CORRECT IT SO RETURN IS AFTER THE ERROR CALL
sRETURN

CZDRLCO-DRT1 GEN NPR

INTF(

SUBROUTINE TO RESTORE DR11
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839

MACRO M1113

27-0(CT-80 15:53

INT VECT & SET CPU PRIORITY TO 7.
MR R

‘e

ot
M
1

004036
004044
004052
004056

012737
012777
005077
000207

000340
010000
176444

177776
176450

.SBTTL
X2

5
L.
PAGE 63

SEQ 0063

SUBROUTINE TO RESTORE DR11 INT VECT & SET CPU PRIORITY TO 7.
S

RRRRRRRRRRR

RRRRRRl])

THIS ROUTINE IS USED IN VARIOUS TESTS TO CLEAR ANY DATA THAT
MAY BE LEFT IN ANY REGISTERS, AND RESTORE CPU PRIORITY TO 7.

;Qtttt'tiitttttt'tt'tt""i'tttttt'ttfitttltt't'ttttt'tt"'ttt"""
CLENUP: MOV
#LEVEL7,PSW
:RESTORE CPU TO PRIORITY LEVEL 7
MOV
#MA,aCSR
:D0O AN INIT CLEARING WCR, BAR & BDR BY SETTING
:QN?TCLEARING THE MAINT BIT AND CLEAR THE (SR
gESR
g%g
JEX

CZDRLCO-DRT1 GEN NPR _INTFC

MACRO M1113

27-0CT-80 15:53

SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA
1840
1841

.SBTTL

1842

1847

1848 004060
1849 004066

1850 004070
1851 004076

ot
ot
ot
3

032737
001006

052737
052737

1852 004104 000207

000004

002720

127000
127000

002572
002536

T TR AL LA RAANRAAARRROREAORRAIARCAARERNLS

THIS SUBROUTINE CHECKS THE -DDW (DEVICE DESCRIPTOR WORD) FOR THE CABLE
BEING IN OR OUT AND SETS BITS 12, 10, 8 AND 6 IN THE EXPECTED DATA
LOCATION IF THE CABLE IS OUT.

:ttttttttttttttttttt'ttttttttttttt!ttttttttttttttttttttttttttttitt'

CHKCAB: BIT
i
BNE

#B172,0DW
1%

1$:

BIS
BIS

RTS

#127000,ECSR
#127000,8UT

SEQ 0064

SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA

CREERRARRRARARR AR

1843
1844
}g:g

PAGE 64

——

+CHECK FOR CABLE STATUS
EXIT IF CABLE DOES EXIST

SET BITS 12, 10, 8, 7 & 6 = CABLE DOESN'T EXIST
+SET BITS 12, 10, 8, 7 & 6 IN BITS UNDER TEST LOCATION T00

:RETURN

r—

CZIDRLCO-DRT1 GEN NPR INTF(

MACRO M1113

27-0CT-80 15:53

SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF
1853

R
i

1854
1855

1856
1857
}ggg

ot
ot
.

1860

)

1862

1861

1863

LSBTTL

PAGE 65

SEQ 0065

SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF
R L

AR R AR AR AR ARt iiall

THIS SUBROUTINE HAS THE NEED TO CALL 2 ERRORS. THE ERRORS ARE TO BE
LOCATED IN THE TEST JUST AFTER THE JSR CALL. FUTURE USE OF THIS
SUBROUTINE MUST BE HANDLED AS FOLLOWS:
JSR

PC,DATOCK

JSR

PC,DATOC?

ERROR

CONTINUE

*46

+4f

; SUBROUTINE CALL

ERROR CALL

:RETURN TO SUBROUTINE AFTER ERROR RTS

:2ND ERROR CALL

:SUBROUTINE RETURNS HERE WHEN DONE

}22@

1866

:ttttt'tttittttttttt't'tttt'ttt"ttt'tttttttt'ttttttttttti'tttt'tt'

1867 004106

011637

001362

DATOCK: MOV

1871 004126
1872 004132
1873 004134
1874 004136

005237
020223
001415
013716

002624

DATOC1: INC
CMP
BEQ
MOV

1868 004112 012702 052525
1869 004116 013703 002616
1870 004122 005037 002624

1875 004142
1876 004146
1877 004154
1878 004160

1879 004166
1880 004170
1881 004176

1882 004200
1883 004202
1884 004204

010237
016337
010337
162737
000207
023737
001353

001017
010237

016337
010337
162737

1889 004234

062716

1890 004240
1891 004242

1892 004246

1893 004252

001364
177776
001370
000002

001370

002624

002622

001366

020223

1885 004210
1886 004216
1887 004222

1888 004230

001362

013716

000207
013716

062716

000207

001364

177776
001370
000002
001362
000006
001362

000010

001366

LENCHK
R2,(R3)+
DATOC2
$TMP1, (SP)

:HAKE A COMPARISON
;1S THE DATA CORRECT?
sBRANCH IF 0K
MOVE OLD PC RETURN TO STACK

MOV
MOV
MOV
suB

R2,$TMP2
-2(R3) ,$TMP3
R3,$TMP4
#2,8TMP4

PC
LENCHK ,BUFLEN
DATOCT

:DATO NUMBER TO R2
:STARTING ADDRESS OF IN BUFFER TO R3
CLEAR LENGTH CHECK

;MOVE EXPECTED DATA TO $TMP2
MOVE RECEIVED DATA TO $TMP3
MOVE ADDRESS +2 TO $TMP4
;CORRECT ADDRESS SO IT POINTS TO ADDRESS CAJSING ERROR
RETURN TO ERROR CALL
:SEE IF THE BUFFER HAS BEEN CHECKED
:BUFFER CHECKED?

R2,(R3)+

:CHECK END OF BUFFER + 1

ADD

-2(R3) ,$TMP3
R3,$TMP4
#2,3TMP4
$TMP1, (SP)
#6,(SP)

:MOVE RECEIVED DATA TO $TMP3
;MOVE ADDRESS +2 TO $TMP4
:CORRECT ADDRESS SO IT POINTS TO ADDRESS CAUSING ERROR
CORRECT PC RETURN
POINT TO 2ND ERROR CALL AFTER JSR PC,DATOCK

ADD

#10, (SP)

MOV
MOV
sus

MOV

1%:

;SAVE PC RETURN

#5255 ,R2
INBUF, R3
LENCHK

RTS
DATOC2: (MP
BNE
CMP
BNE
MOV

001370

(SP) ,$TMP1

MOV
MOV
CLR

RTS
MOV

RTS

1%
R2,$TMP2

PC
$TMP1, (SP)
PC

BRANCH If NOT LOADED
HOVE EXPECTED DATA TO $TMP?2

JRETURN TO ERROR CALL
;RESTORE RETURN ADDRESS

POINT TO PROPER RETURN AFTER THE ERROR CALLS
JEXIT

B 6
PAGE 66

MACRO M1113 27-0CT-80 15:53
CZORLCO-DRT1 GEN NPR INTF(
SUBROUTINE TO CLEATM IE AND HALT IF ERROR IS SET

.SBTTL

1894
1895
1896
1897
1898
1899
1900
1901
1902
1903

SUBROUTINE TO CLEAR IE AND HALT IF ERROR IS SET

CHAARR RN R AN NN NN

RN AR AN NN RN RRNNERRANNARNARACROARNARCOROCOORNY

it
it
e
v

i
it

SEQ 0066

THIS SUBROUTINE HAS THE
1S TO BE LOCATED IN THE
THIS SUBROUTINE MUST BE
PC,ERRCHK
JSR

NEED TO CALL AN ERROR IN THE TEST,

CONTINUE

;SUBROUTINE RETURNS HERE [F NO ERROR

ERROR

+21

TEST JUST AFTER THE JSR CALL.
HANDLED AS FOLLOWS:

004342

042777
017737
013737
042737
052737
013701
012737
042701
022701
001002
062716
000207

000100
176234
002560

100000

000200
002560
000200
077577
000200
000002

176249

ERRCHK: BIC

001360

BIC
8IS
MOV
MOV

002560
002572
002572
002572

MOV
MOV

BIC

CMP
BNE
1%:

ADD
RTS

#1E,aCSR

aCSR,RCSR
RCSR,ECSR

#ER,ECSR
#RY ECSR
RCSR,R1
#RY,$TMPO

27757781
#RY R1
1%

#2,(SP)
PC

ERROR

; SUBROUTINE CALL
;ERROR CALL

2223222222223 2222222222022 22X 2220222208200

004254
004262
004270
004276
004304
004312
004316
004324
004330
004334
004336

THE

FUTURE USE Of

0dRRRlliRditdlla)

;CLEAR [E
JMOVE RECEIVED DATA TO RCSR
:MOVE cXPECTED DATA TO ECSR
;CLEAR THE ERROR BIT
;SET THE READY BIT
;MOVE DATA TO R1

FOR CHECKING

;MOVE EXPECTED DATA TO $TMPO
:CLEAR ALL BUT THE ERROR AND READY BITS
:SEE IF ERROR BIT IS CLEAR AND READY [S SET

:BRANCH AROUND PC CORRECTION SO ERROR WILL CALL
:EO??ECT PC RETURN - DATA 0K
JEX

MACRO M1113
CZDRLCO-DRT1 GEN NPR INTFC
'SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE

.SBTTL

1917
1918
1919
1920
1921

TETETR)

222222

1
19

1926
1927
1928
1929
1930
1931

004354
004360
004362
004366
004370
004372

002416
001464
000020
000010

000207

€.
6
PAGE 67

27-0(T-80 15:53

R R

SEQ 0067

SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE
A

ARl

R RRRRd

RRdRRRRiRRd))

THIS SUBROUTINE GENERATES AN ADDRESS TABLE LOCATED AT REGADR STARTING

]

WITH THE BASE DEVICE ADDRESS (CONTENTS OF $BASE) IN STEPS OF 10.

*
*

DEVADS:

1%:

R I

R 22222

R R

RdRRRRRRd]))

MOV

#REGADR ,R2

:POINT R2 TO THE DEVICE ADDRESS TABLE

MOV
MOV

6. R
RO, (R2)+

*MOVE LOOP COUNTER TO R1
"MOVE DEVICE ADDRESS TO TABLE

MOV

ADD

DEC
BNE

RTS

$BASE , RO
#10,R0
R
1

*LOAD BASE DEVICE ADDRESS IN RO

*POINT RO TO NEXT DEVICE ADDRESS
*DECREMENT THE LOOP COUNTER AND
:BRANCH [F NOT ALL DONE YET
JEXIT

"CIORLCO-DRT1 GEN NPR INTF(

MACRO M1113

27-0CT-80 15:53

SUBROUTINE TO RESET THE ‘'.+2'' AND 'BPT'' LOCATIONS
1932

.SBTTL

1933

}g%g

1935

1943 004410

1944 004412

1945 004414
1946 004416
1947 004422
1948 004424

. %

012700
012701
012002
012003
010204
005724
010422
012722

022424

1949 004426

020203
001372

1951 004432

001364

1954 004436

000004

1950 004430

}gg% 004434
1955 004444

PAGE 68

SEQ 0068

SUBROUTINE TO RESET THE ''.+2'' AND 'BPT'' LOCATIONS

:'""""'."""""""""""."'""""".""""'"""'.'

1934

1938
1939 004374
1940 004400
1941 004404
1942 004406

;."fi"""".."""""""'"""""'.""."".""""".'."
BPINIT: MOV
#BPTINT RO
:POINT RO TO TABLE OF BPT INIT LOCATIONS
MOV
#3,R1
;00 3 SETS OF ''.+2'' AND "BPT'' SETUPS
1$:
MOV
(RO)+,R2
;MOVE START ADDRESS TD R2
MOV
(RO)+,R3
;MOVE END ADDRESS TO R3

004436
000003

2$:

000003

MoV

R2,R&

:MOVE ADDRESS TO Ré&

MOV
MOV
CMP
CMP

R4, (R2)+
#BPT,(R2)+
(R4)+,(R4)
R2,R3

:MOVE THE NUMBER TO THE LOCAT]ON
:MOVE 'BPT'' TO THE NEXT LOCATION
;ADD & TO R4
:SEE IF WE HAVE DONE ALL FOR THIS LOCATION

DeC

;DECREMENT R

RTS

JEXIT

4,14,50

;ADDRESSES USED TO PUT ''.+2'" ¢ "BPT'' BA(K

TST

BNE

005301

BNE

000207
000174

THIS SUBROUTINE LOADS ''.+¢2'° AND 'BPT'' INTO ALL UNUSED LOCATIONS

BETWEEN 4-776.

000014

000254

000050

001000

BPTINT: .WORD
LWORD

(R4G)+

174,254,1000

: INCREMENT R4 TO PRODUCE THE ‘‘.+2'" NUMBER

;BRANCH BACK FOR ANOTHER TRANSFER IF NOT
;BRANCH BACK IF 3 GROUPS NOT DONE

CIDRLCO-DRT1 GEN NPR INTF(
MACRO M1113
27-0CT-80 15:53
SUBROUTINE YO EXTRACT INFORMATION ABOUT THE DR11
1956
1957
1958
1959
1960
1961
196¢

1981
1982
1983
1984

;i"tQt"'"'Q'.""'"'"""'"Q""""""'"""""""'i""

004452
004456
004460
004464
004466
004472
004476
004502
004506
004512
004516
004520
004524
004526
004534
004536
004542

004544
004552
004554
004560

1985 004564

1986 004572

1987
1988
1989
1990
1991
1992

SEQ 0069

LSBTTL
SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11
;'"i"""""""""'"""""Q'."'I""""""""'"".""
o
i
THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR11 THAT [NTERRUPTED
[
AND LOADS THE DATA FOUND INTO THE DEVICE DESCRIPTOR WORD FOR THAT
ot
BOARD.
o

1963

1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980

E
6
PAGE 69

004574
004600
004604
004610
004612
004620

1993 004622

1994 004626

012710
005010
016612
012616
162712
013711
005237
005237
052710
011037
005010
012710
005010
032737
001003
052711
000406

032737
001402
052711
011037

032737
001015

112710
011037
052710
005010
032737
001402

052711

000207

(10000

DRGET:

000002
000004
002540
001466
002414
100000
002562
010000

000001

002562

000001

000400
0060002
002560

127000

002562

002560

1%:
2%

000004

#MA, (RO)
(RO)
2(SP), (R2)
(3P)+,(SP)
¥4, (R2)
LEVEL,(R1)
$OEVM
QTYBRD
#EIR,(RO)
(RO) ,REIR
(RO)
#MA, (RO)
(RO)
#81T0,REIR
1%
#8170, (R1)
2%

;SET THE MAINTENANCE BIT AND
;CLEAR THE CSR TO DO AN INIT
sMOVE VECTOR+4 FOR THIS MODULE TO VECTOR LOCATION
;MOVE RETURN OF THIS SUBROUTINE TO ITS PROPER POSITION
;DUMB VECTOR IS WRONG - CORRECT [T
:PUT THE PRIORITY LEVEL INTO THE $ODWXX LOCATION
sINDICATE DEVICE EXISTENCE IN DEVICE MAP
s INCREMENT DEVICE COUNT
;GO TO EIR TO GET B/W STATE
;MOVE EIR TO REIP
;60 BACK TO CSR
;SET THE MAINT BIT
;00 AN INIT
;TEST FOR B/W STATE
:BRANCH IF A W
;SET STATE IN DEVICE DESCRIPTOR WORD
;60 TO CABLE STATUS TEST

8IT

#127000,RCSR

:CHECK IF ANY BITS ARE SET - THEY ARE [F NO CABLE

MovB
MOV
BIS
CLR
BIT
BEQ

#F2,(RO)
(RO) ,RCSR
#MA, (RO)
(RO
#AT,RCSR
3%

RTS

BIT
8tQ
8IS
MOV

BNE

000004
002560
010000
020000

MOV
CLR
MOV
MOV
SuB
MOV
INC
INC
BIS
MOV
CLR
MOV
CLR
BIT
BNE
BIS
BR

002560
3s:

BIS

#N2 ,REIR
2%
#8171, (RY)
(RO) ,RCSR
3%

#81712,(R1)

;CHECK 2/N CYCLE STATE
;BRANCH IF 2 CYCLE
sN CYCLE - SET BIT IN DEVICE DESC
:MOVE RECEIVED DATA TO RCSR TO GET CABLE STATUS
;BRANCH IF NO CABLE

;CABLE IS POSSIBLY IN = SET FN(CT?
;MOVE RECEIVED DATA TO R(CSR
;SET THE MAINTENANCE BIT
;CLEAR THF (CSR TO DO AN INIT
:TEST Th
ATTIN BIT
;BRANCH ,F NOT SET - NO CABLE

;SET _ABLE BIT IN DEVICE DESC
JEXIT

CIDRLCO-DRTY GEN NPR INTFC

MACRO M1113

27-0(CT-80 15:53

SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURAT]ONS
1995

1996

1997

}ggg

2000

2001 004630
2002 004634
2003 004640

2004 004644
2005 004650
2006 004652
2007 004656
2008 004662
2009 004664

2010 004670
2011 004676

2012 004700
2013 004702

2014 004706
2015 004710
2016 004714
2017 004716

005037
013705
012701

012702
005003
104401
013746
104405
104401

012700
032705
001466
013746

2019 004724
2020 004726
2021 004730
2022 004732

104405
104401
011146
104402
104401
011246
104403
003
104401

2024 004744
2025 004752

032737
001403

2018 004720

2023 004736

2026 004754
2U27 004760
2028 004762

2029 004766
2030 004772

2031 004776
2032 005002

2033 005010
2034 005012

016337

900020
000001

035257

104401

035266

104401
004737

035305
035266
005630

032737

000002

035316

2038 005030
2039 005036

032737
001403

000004

2040 005040

104401

035266

104401

035312

2044 005056
2045 005062

104401
104401
005237
022122

035307
001405
002662

2047 005066
2048 005072
2049 005074

062703
005300
001277

000002

2041 005044 000402
2042 005046
2043 005052

2046 005064

2050 005076
2051 005102

006205

104¢01
000207

002720

2%:
3%:

001405

SEQ 0070

SUBROLTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS
LA AR E TR R R PP AN NN RN AN NN AR

O NP E TR R R I RAANNNOOOOOCY

5%:

.BRVWP(

;TYPE THE NUMBER
;TYPE THE HEADER

8%
LOOP,-(SP)

;BRANCH IF NO
;PUT BOARD # ON STACK FOR TYPEOUT

#VECADR,R?
R3
,NOBUT
QTYBRD,=-(SP)
#16.,R0
#BITO,RS

:MOVE THE ADDRESS OF THE VECTOR ADDRESS TABLE TO R?
;CLEAR THE DEVICE DESCRIPTOR ADDRESS POINTER
;TYPE:
'NO. BOARDS UNDER TEST:
'
:MOVE THE QUANTITY TO THE STACK FOR TYPEOUT
;SET UP LOOP COUNTER FOR 16 BOARDS
;DEVICE UNDER TEST?

3.0
SPACE?

sPRINT BOARD # (0 TO 16)
;TYPE 6 SPACE CHARACTERS
;SAVE REGISTER ADDRESS FOR TYPEOQUT
;PRINT DEVICE REGISTER ADDRESS
;TYPE 6 SPACE CHARACTERS
:SAVE VECTOR ADDRESS FOR TYPEQUT
;PRINT VECTOR ADDRESS
:PRINT 3 DIGITS, LEADING ZEROS SUPPRESSED
;TYPE 7 SPACE CHARACTERS

#8170,00W
2%

;TEST WHICH STATE, B OR W, FOR THIS BOARD
;60 PRINT W STATE IF W

,SPACE6
(R1),-(SP)

L,SPACEG

(R2),-(SP)

TYPE
BR
TYPE

.B
3
M

:TYPE A '8
;60 TO NEXT CHECK
;'TYPE A W'

LSPACE?7

;TYPE 7 SPACE CHARACTERS

4%
N

;GO PRINT 2 STATE [Ff 2
;TYPE AN 'N'

. TW0

;TYPE A '2°

TYPE
JSK

,SPACE?
PC,PNTPRI

8IT

#B111,DDW

§s

TYPE

LSPACE?7

;MOVE DEVICE DESCRIPTOR WORD 1O DDW

;TYPE 7 SPACE CHARACTERS
;PRINT DEVICE PRIORITY
;TEST 2/N CYCLE STATE

GO TO NEXT CHECK

:TYPE 7 SPACE CHARACTERS

BIT
BEQ

#B112,00W
6%

GO TO LOOP CHECK

ASR

:SHIFT RS TO THE RIGHT TO MOVE BOARD BIT INTO BIT O

TYPE

6%:
7%:
8%:

:CLEAR THE BOARD NUMBER COUNTER
;GET DEVICE MAP
:MOVE THE ADDRESS OF THE REGISTER ADDRESS TABLE TO R1

‘DDUO(R3).DDU

BEQ
TYPE

A ¥

LOQP
$SOEVM,RS
#REGADR,R1

MOV

TYPE

002720

BEQ
MOV

BIT
B8EQ

035320

104401

MOV
BIT

TYPDS
TYPE
MOV
TYPOC
TYPE
MOV
TYPOS
.BYTE
TYPE

035257

2036 005020

2037 005024

1%:

002662

035303

2035 005016 000402

TYPDS
TYPE

035472

104401
000492
104401

001403
104401

MOV
CLR
TYPE
MOV

035433
002414

000001

THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS FOUND BY ASIZE

TYPCNF: CLR
MOV
MOV

002456

001474

R R R R

PAGE 70

;ttt'tiiQttttttttttttt"tt"t'ttt'tQt't'ttittt"'tt"ttt"tt"tt"'

002662
001466
002416

000
035266

.SBTTL

TYPE
TYPE
INC
cMP

ADD
DEC
BNE

TYPE
RTS

YeS

NG
LSCRLF
LOOP
(R1)+,(R2)+

#2,R3
RO
1%

,SCRLF
PC

;TEST CABLE STATE
;GO PRINT °NO' IF NO CABLE

;TYPE 'YES'

;TYPE °'NO'
TYPE A <CRLF>
;INCREMENT BOARD COUNT FOR POSSIBLE NEXT PASS
s INCREMENT COUNTERS

;ADD 2 TO THE DEVICE DESCRIPTOR WORD POINTER
;DECREMENT THE LOOP C(OUNTER AND
:BRANCH BACK FOR CHECK IF 16 BOARDS NOT DONt
:TYPE ANOTHER <CRLF>
JEXIT

MACRO M1113 27-0(T-80 15:53
(IDRLCO-DRI1 GEN NPR INTF(
SUBROUTINE TO CHECK FOR LOCATION BELONGING TO A DR11
LSBTTL

2052
2053

PAGE 71

SEQ 0071

SUBROUTINE TO CHECK FOR LOCATION BELONGING TO A DR11

;""tt"t"ttt"'t"t'"""'".Q.'t"""Q".'.""'Q'l""'.""
‘-'

)
e

THIS SUBROUTINt CHECKS FOR THE LOCATION BELONGING TO A DR11.

2322322222222 33 22 222X R R RS R R R

000340
005264
000004
000400
010000
000014
005222
177776

002540

CHK4LDR: MOV

002660

MOV

2%:
177776

000014
002540

000012

4$:
5¢:

005264
005270

000300
000200

000240
000140

LEVELS:

SLEVELS,.R3
26 R&

2400, TImE

#MA, (RO)

MOV
MOV
MOV

BPTVCT,$TMPY
#38,8PTV(T
(R3)+,PSW

MOV
DEC
BNE
MOV

(RO)
#IE+F2+GO,
TIME
28
#LEVEL7,PSW

SUB
DEC
BNE
BR

#40,LEVEL
R4
1%
4

MOV
MOV

$STMP1,BPTVCT
10(SP) ,6(SP)

ADD

#6,SP

MOV

062716
000207

177776
000016
000006

SLEVEL7.LEVEL

MOV

NOP

005216
005220
005222
005230
005236
005244
005250
005254
005256
005262

000340
001362
000010
000010
000006

MOV

CLR

001362
000014

000105
002660
000340
001362
000040

MOV

(RO)

$TMP1,BPTV(T

SLEVELT7,PSW

(sp),18(sp)

RTS

5%
¥12,(SP)
PC

.WORD
‘WORD

LEVEL6,LEVELS
LEVLL&4,LEVEL3

BR
ADD

R R R R

RRRRRARRRARRRRRl

:MOVE PRIORITY 7 TO LEVEL
:MOVE ADDRESS OF PRIORITY LEVELS TO R3
;D0 & PRIORITY CHMECKS
;SET UP WAIT LOOP COUNTER
:SET THE MAINTENANCE BIT AND
:CLEAR TO POSSIBLY DD AN INIT
:SAVE BPT TRAP VECTOR

;INTERRUPTS TO 3%
:SET CPU PRIORITY TO NEXT LEVEL
;KILL A LITTLE TIME

SET IE, FNCT2 AND GO ATTEMPTING ANOTHER INTERRUPT
;DECREMENT TIME
:BRANCH BACK UNTIL ZERO

:SET CPU PRIORITY BACK TO 7

;RESTORE BPT TRAP VECTOR

;PUT LOCATION 'LEVEL' AT NEXT PRIORITY - INTERRUPT FAILED
;DECREMENT LOOP COUNTER
;BRANCH BACK IF NOT ALL PRIORITY LEVELS CHECKED YET

SEXIT = THIS LOCATION DOESN'T BELONG TO A DR11%

;AHAH = THIS *IS+« A DR11 - SET (PU PRIORITY BACK TO 7
;RESTORE BPT TRAP VECTOR

;MOVE THIS SUBROUT NE'S RETURN UP ONE SPOT ON STACK
;:MOVE TRAP ADDRESS TO RETURN'S OLD LOCATION
:KICK GARBAGE' OFF STACK = GOT TO KgEP IT CLEAN
:BRANCH TO KICK OQUT

;CORRECT RETURN TO NOT DO DR11 SETUP
JKICK OUT

;PRIORITY LEVFLS TO LOAD INTO THE P>w

MACRO M1113
27-0CT-80 15:53
CZDRLCO-DRT1 GEN NPR INTFC
SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION

e
e
d
i e
D
d
i
D
D
D
D
D
D e
D
D e
i
D o
D
d
h od
d e
—h

WWWNIMNVMNNVNNIMNINNIN
= b
2 b e 2 b D 2000000
=2 OOV
NN
NN =2O VOO NO WV WN 2O 000 ~NO W&

MNIRNIRNIALRNINIANNLINININIAL
VN ROIRNINI NI NN NN N NN NI NN

.SBTTL

SEQ 0072

SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION

;""""tt'tt"'t""""""""'t'l"'.""'""t'tt.'..""t'.'
M

THIS

]

SUBROUTINE

PRINTING OF
CLEAR.

AUTOSIZES

THE BOARD CONFIGURATION AND CALLS FOR

THE CONFIGURATION IF BIT

12 OF

THE SWITCH REGISTER

THE

2088
2089
2090
2091
2092
2093
2094
2095
2096 005274
2097 005300
005304
005306
005310
005312
005316
005322
005326
005332
005340
005346
005354
005362
005366
005372
005376
005402
005404
005410
005414
005416
005422
005426
005430
005432
005434
005440
005442
005450
005456
005464
005466
005472
005474
005500

PAGE

012700
012701
005020

005301
001375

004374
004344
002414
001466
000004
005416
000006
000340
172604

1¢:

002672
000004
002676
000006

001532
002514
000020

2%:

005104
004452
162700

024142
0053905
001403
006337
000760
013737
013737
032777
001005
005737
001402
004737
000207

A2 2322222222222

ASIZE:

001474
000029

000004
000010

4%:

MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV

CLR
JSR
JSR
BR
ADD
SuB
CMP

202222022

#$00W0,
RO
#16. .R1
(RO)+
R
1%
PC,BPINIT
PC.DEVADS
QTYBRD

$DEVM
TOVECT,OLOPC!
#3$,TOVECT
TMOPSW,OLDPS1

FLEVEL?, TMOPSW

#172604 .RO
#$00W15.R1
FVECADR+36,R2
#16. RS

(RO)

PC,CHKLDR
PC.DRGET
48
£ ,5P
#10,R0
-(R1),-(R2)

ASL

000006
000004
173654

5%:

MOV
MOV

BIT

002414

004630

CLR
DEC
BNE
JSR
JSR
CLR
CLR

DEC
BEQ

001466
002674
002672
010000

MOV
MOV

6%:

BNE
TST
BEQ
JSR
RTS

OLDPS1,TMOPSW
OLDOPC1,TOVECT
#B1T12,3SWR
6%

QTYBRD

PC,TYPCNE
PC

2002

20200

R0RRRRRRRRRd)

:MOVE ADDRESS OF FIRST DEVICE DESCRIPTOR WORD TO RO
;CLEAR 16 WORDS OUT OF THE DICTIONARY
:CLEAR THE WORD = SORRY CAN'T LOOK IT UP ANY MORE
;DECREMENT THE LOOP COUNTER AND
;BRANCH BACK [F NOT DONE YET
;GO RESET THE ''.+2'° AND 'BPT'' LOCATIONS
;GENERATE DEVICE ADDRESS TABLE
JCLEAR DEVICE COUNT
JCLEAR DEVICE MAP
;SAVE TIMEOUT VECTOR

;SET TIMEOUT POINTER TO 3%
JSAVE TIMEOUT PS

:CPU PRIORITY TO 7
;POINT RO TO UNIT #16 CSR ADDRESS LOCATION
JLOAD DEVICE DESC ADDRESS

;POINT R2 TO UNIT #16 VECTOR ADDRESS LOCATION
;D0 16 BOARDS
JCHECK FOR REGISTER EXISTENCE

;60 CHECK FOR A DR11 AT THIS LOCATION IF IT DOES
;GO EXTRACT INFO FROM THE DR
BRANCH OVER THE STACK CORRECTION
sCORRECT STACK AFTER TIMEOUT
JPOINT RO TO NEXT DEVICE ADDRESS
;sPOINT R1

AND R2 TO NEXT DEVICE & VECTOR LOCATIONS

;DECREMENT LOOP COUNTER
SEXIT IF ALL DONE WITH 16 BOARDS
;ADJUST DEVICE MAP FOR NEXT UNIT CHECK
;60 CHECK NEXT LOCATION
;RESTORE TIMEOUT PS
sRESTORE TIMEOUT VECTOR
;CHECK FOR CONFIGURATION PRINT
;BRANCH ]F PRINT NOT REQUESTED
JSEE IF ANY BOARDS WERE FOUND
:BRANCH TO RETURN IF NOT - NO BOARD INFO TO PRINT
:gOI}YPE THE BOARD CONF IGURATIONS
EX

CIDRLCO-DRT1 GEN NPR INTF(

MACRO M1113

SUBROUTINE TO GENERATE VECTOR ADDRESS TABLE
2132

27-0CT-80 15:53

LSBTTL

2133

1_6

PAGE 73

SEQ 0073

SUBROUTINE TO GENERATE VECTOR ADDRESS TABLE

:lt'tttttttQt""t"'t""t'ttt"t"ttttfitfittit'ttttt'ttttt'ttttt"

2134

%}%2

2137
2138 005502
2139 005506

012702
013700

002456
001460

2141 005516
2142 005522

012701
010022

000020

2144 005530
2145 005532
2146 005534

005301
001373
000207

2140 005512 042700 177400
2143 005524 062700 000010

THIS SUBROUTINE GENERATES THE VECTOR ADDRESS TABLE.

Etttttttttltttfitttttttt"ttttt"ittfitt"ttt"tt'ttttt"'tt""ttt"
;GET LOCATION OF VECTOR TABLE
#VECADR,R2
VCTADS: MOV
;COPY BASE VECTOR
$VECT1,RO
Mov
1%:

BIC

#177400,R0

;CLEAR UPPER BYTE

ADD

#10,R0

;POINT RO TO NEXT VECTOR ADDRESS

MOY
MOV

DEC
BNE
RTS

#16.,R1
RO, (R2)+

R1
1%
PC

;D0 16 VECTORS
;PUT VECTOR ADDRESS IN TABLE

;:DECREMENT LOOP COUNTER
:BRANCH IF NOT ALL DONE YET
JEXIT

J
6
CIDRLCO-DRi1 GEN NPR INTFC
MACRO M1113
27-0(T-80 15:53 PAGE 74
ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS

2147

21(.8

A A R

2149

%}2?

2]52
2153 005536

2154 005544

012737
012637

000340
002542

2156
2157
2158
2159
2160
2161
2162

012637
012637
162737
104050
013746
013746
000002

002676
002700
000004

2155 005550
005554
005560
005564
005572
005574
005600
005604

012637

177776

002674

002700
002676

.SBTTL

RCUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS

A R

R R

e R

AR AR R AR

ARl Al ]

THIS IS THE ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS

Et"'t"tt"tttt't"tt"tt""'tttttt!"Qttttt""ttttt't"t't't!tt
CATCH:
MOV
#LEVEL?,PSW
;REESTABLISH CPU PRIORITY AT 7
MOV
(SP)+,BDVECT
:GET ADDRESS OF TRAP VECTOR + &

MOV

002542

SEQ 0074

MOV
MOV
5UB
ERROR
MOV
MOV
RTI

(SP)¢+,0LDPS

(SP)+,0LDPC2
(SP)+,0LDPS?
#4 ,BOVECT
+50
oLDPS2,-(SP)
OLDPC2,-(SP)

:SAVE PS

:SAVE PC OF ADDRESS OF INSTRUCTION CAUSING TRAP
;SAVE 2ND PS
:ADJUST TO POINT TO TRAP ADDRESS
:UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW
:RESTORE PS RETURN ON STACK
;RESTORE PC RETURN ON STACK
;RETURN

CZDRLCO-DRT1 GEN NPR INTFC

MACRO M1113

SUBROUTINE TO PRINT STATE OF A DDW BIT

27-0(T-80 15:53

.SBTTL

2163

216(,

PAGE 75

SEQ 0075

SUBROUTINE TO PRINT STATE OF A DDW BIT

;ttttttttttttt't't"'tt'""'tt't!"tQt't't'ttt."'tttt't"ttfittt"

2165

THIS SUBROUTINE PRINTS THE STATE OF THE BIT IN THE DDW THAT WAS
PRELOADED INTO BITTST,

2166
%}gg

ot
ot

2169
2170 005606
2171 005610
2172 005616
2173 005620
2174 005622
2175 005624

;tttt"ttttttt'tttit"t"t"'tt'l'ttttfit'ttl't.'tt"tttttttt'tQtt't
:SHOW STATE AS ZERC INITIALLY
-(SP)
PSTATE: CLR
BIT
BITTST,DOW
;CHECK STATE OF BIT IN DDW USING BIT SET IN BITTST
;:BRANCH IF NOT SET
1%
BEQ
;SHOW A '1' STATE FOR THAT BIT
(SP)
INC
1%:
TYPOS
:TYPE THE STATE, LEADING ZEROS SUPPRESSED
;TYPE 1 CHARACTER, SUPPRESS LEADING ZEROS
1,0
.BYTE

2176 005626

005046
033737
001401
005216
104403

001

000207

002710

000

002720

RTS

SEXIT

CIZORLCO-DRT1 GEN NPR INTF(

MACRO M1113

SUBROUTINE TO PRINT DEVICE PRICRITY
Q177

27-0CT-80 15:53

2178

%}g?

2179

o
b

2182
2183 005630
2184 005634

013746
006216

002720

2189 005646
2160 005652
2191 00565¢4
2192 005656

042716
104403
001
000207

177770

2185 005636
2186 005640
2187 005642
2188 005644

006216
006216
006216
006216

000

.SBTTL

L 6
PAGE 76

SEQ 0076

SUBROUTINE TO PRINT DEVICE PRIORITY
R

L R

ALl ll)

THIS SUBROUTINE PRINTS THE DEVICE PRICRITY

Etittttttttttt"t'tttt't'tttt'ttt'tttttt"ttt't.."t""tt""t"t'
PNTPRI: MOV
DOW,=(SP)
;PUT DEVICE DESCRIPTOR WORD ON STACK
ASR
(SP)
;SHIFT RIGHT STACK LOCATION 5 PLACES
ASR
ASR
ASR
ASR

BIC
TYPOS
.BYTE
RTS

(SP)
(SP)
(sP)
(SP)

#177770,(SP)

1,0

;MASK TO GET PRIORITY
;TYPE THE DEVICE PRIORITY
;TYPE 1 CHARACTER, SUPPRESS LEADING ZEROS
JEXIT

r'CD

oooooooooo
[V
P IV|

27-0CT-80 15:53
.SBTTL

3222222

M_6

PAGE 77

SEQ 0077

INITIALIZE THE COMMON TAGS SUBROUTINE

SRR R

RRRRRRRRRRtRRdd)

]

THIS SUBROUTINE INITIALIZES THE INTERRUPT VECTORS. USE IS AS FOLLOWS:

MOV

JSR

#STACK, SP
PC,SETTUP

;INITIALIZE THE STACK
;CALL THE SUBROUTINE

tt'ttt't'tt'it""t""""""ttfll'tttt"'.'t"'tt"tttt"'titti'

011637

001360

SETTUP: MOV

(SP), $TMPO

;SAVE RETURN ADDRESS

005664
005670
005672
005676
005700

012706
005026
022706
001374
012706

001300

MOV

FSCHTAG,R6

(R6)+

;;FIRST LOCATION TO BE CLEARED
::CLEAR MEMORY LOCATION

1008
#STACK, SP

;;LOOP BACK If NO
:iSETUP THE STACK POINTER

006020
006024
006032
006040
006046
006054

006056
006060
006064
006072
006100
006104
006110
006116
006120
006126
2203 006126
2204 006132

b
b i e
e ()

005704
005712
005720
005726
005734
005742
005750
005756
005764
005772
005776
006004
006012

D D

1 005660

—d e

Ny
-]
-r'
[(SLSTSUNTNT
NI NN ST
POND
D o b b b ot b b

Zr~

—

MACRO M1113
CO-DRT1 GEN NPR INTF(
ALIZE THE COMMON TAGS SUBROUTINE

001011

000402
062706
012737
012737
012637
005037
132737
001403
012737

013746
000207

:;CLEAR THE COMMON TAGS ($SCMTAG) AREA

100$:

001340
001300
027636
000340
031050
000340
027550
000340
031774
000340
024566
001376
000001
011246
011246
000004
006060
177570
177570
177777

000004
000176
000174
000004
001416
000200

001432

001360

CLR
CMP
BNE
MOV

000020
000022
000030
000032
000034
000036
000024
000026
024560

001315
001306
001310

..XNITIAhlZE A FEW VECTORS
#$SCOPE,@a#IOTVEC; ;10T VECTOR FOR SCOPE ROUTINE
MOV
MOV
Mov
MOV
MOV
MOV
MOV
MoV

#SERROR,@#EMTVEC: ;EMT VECTOR FOR ERROR ROUTINE

#340,Q#ENTVEC*2 ::LEVEL 7

#STRAP ,@#TRAPVEC;
; TRAP VECTOR FOR TRAP CALLS

#340, @8 TRAPVEC+2; LEVEL 7

; POWER FAILURE VECTOR
#SPURDN, @#PURVEC;

#340,9#PWRVEC+2 ;:LEVEL 7

;;SETUP END-OF -PROGRAM COUNTER
;sCLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST
;;INITIALIZE THE LOOP ADDRESS FOR SCOPE
;;SETUP THE ERROR LOOP ADDRESS

MoV
MoV
MOV
MOV

S#ERRVEC,-(SP)
#64S ,QFERRVEC

;;SAVE ERROR VECTOR
..SET UP ERROR VECTOR

#DDISP,DISPLAY
#-1,3SWR
66%

::AND A HARDWARE DISPLAY REGISTER
;s TRY TO REFERENCE HARDWARE SWR
; ;BRANCH IF NO TIMEOUT TRAP OCCURRED

65$
#4,5P

:sBRANCH IF NO TIMEOQUT
ssCLEAN UP STACK AFTER INTERRUPT

MOV

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;sEQUAL TO A ''=1'', SETUP FOR A SOFTWARE SWITCH REGISTER.

CMP
BNE

648
65%:

66$:

001431
001340

#340,a#T0TVEC+2 ;;LEVEL 7

SENDCT,SEOPCT
SESCAPE
71 ,SERNAX
#TST142,8LPADR
#TST142,8LPERR

CLR
Movs
MOV

000004
001340
001342
173264

001340
001342

#SWR,R6 ;;DONE?

67%:

ADD
MOV
MOV
MOV

#OSWR, SWR

#SWREG, SWR

#DISPREG,DISPLAY

;SETUP FOR A HARDWARE SWICH REGISTER

::AND

THE HARDWARE SWR IS NOT = -1

: ;POINT TO SOF TWARE SWR

BEQ
MOV

(SP)+,@#ERRVEC
$PASS
#APTSIZE,SENVM
67%
#S$SUREG, SWR

;;RESTORE ERROR VECTOR
: sCLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
;s YES,USE NON-APT SWITCH
:iNO,USE APT SWITCH REGISTER

MoV
RTS

$TMPO,-(SP)
PC

:PUT RETURN ADDRESS ON STACK AND
:RETURN TO THE CALLING ROUTINE

CLR
BIT8

CIDRLCO-DRT11 GEN NPR INTFC(
MACRO M1113 27-0CT-80 15:53
MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE

2205

.SBTTL

2206

PAGE 78

SEQ 0078

MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE

;t"tttttttttttt"i'ttttt'i'tttt'ttttt'ttt'tt'tt."tt'tltttt""t't

2207
2208

o
o*

2211
2212 006134

EtttQttttttttt't't"i"'ttt"t"t'tttttt't't!Qttt'tt't"tttt't't'tt
TSTMM: TST
MEMGMT
:TEST TO SEE IF MEMORY MANAGEMENT EXISTS

%%?8

o
- &

2213 006140

005737
001440

2215 006150
2216 006152
2217 006154

040227
000401
001032

2214 006142

2218 006156

012737

002712

000401

006152

000060

002572

2220 006166
2221 006174
2222 006176
2223 006204

032737
001005
132737
001420

000040

002572

000001

002713

2225 006210
2226 006216
2227 006220
2228 006226
2229 006230
2230 006232
2231 006240
2232 006242
2233 006246

032737
001005
132737
001407
000404
132737
001402
062716
000207

000020

002572

000002

002713

000004

002713

2224 006206

001426

000415

000002

BEQ

;:BRANCH IF NOT

BIC
.WORD
BNE

R2.(PC)+
CY+GO
43

;TEST TO SEE IF BOTH THE CYCLE AND GO BITS ARE SET
:LOCATION TO STORE THE CYCLE AND GO BITS
:KICK OUT IF CYCLE AND/OR GO ARE CLEAR

MOV
1$:

032737

2219 006164

THIS SUBROUTINE CHECKS FOR MEMORY MANAGEMENT EXISTENCE AND WHETHER OR

NOT A LOCATION IN UPPER MEMORY EXISTS.

BIT

BEQ

BIT
BNE
BITB
BEQ

2%:

3$%:
(8
5%

B8R

BIT
BNE
BIT8
BEQ
BR
BITB
BEQ
ADD
RTS

#CY+G0,1$%
#X6+X7,ECSR
43

#X7,ECSR
2%
#BI(O,MEMGMT+1
5$

#%6,ECSR
3%
#BITY1, MEMGMT+1
5¢
48
#BIT2,MEMGMT+1
5%
#2,(SP)
PC

:SET UP BIT TEST DATA

;SEE IF XBA16 OR XBA17 WERE SET IN EXPECTED DATA
;BRANCH OUT [F NOT

;SEE IF XBA17 IS SET
;60 CHECK STATUS OF XBA16 IF SET
;SEE IF 200000+4NOCARE WAS FOUND TO EXIST - [F NOT,
;G0 SET EXPECTED ERROR AND NEX BITS AND CHECK FOR ERROR

:BRANCH OUT IF LOCATION EXISTS

;SEE IF XBA16 IS SET
:BRANCH TO CHECK 600000+NOCARE IF SET
:SEE IF 400000+NOCARE WAS FOUND TO EXIST - [F
;GO SET EXPECTED ERROR AND NEX BITS AND CHECK
:BRANCH OUT IF LOCATION EXISTS
:SEE IF 600000+NOCARE WAS FOUND TO EXIST - [F
:GO SET EXPECTED ERROR AND NEX BITS AND CHECK
;CORRECT PC RETURN
.
;KICK OuT

NOT,
FOR ERROR
NOT,
FOR ERROR

-t D

—

[e ¢« ]

RLC

0-DR11 GEN NPR INTFC

PATTERN

’

MACRO M1113 27-0CT-80 15:53 PAGE 19

7
SEQ 0079

2234
2235
2236

LSBTTL BIT PATTERN
;'ttttQt'tt"ttt't"0"'0"""t't'Q!Qt't't"""t't'tt'tt't.t'tt't
v

%ggg

2237

2240
2241

2242
2243 006250
2244 006252
2245 006254
2246 006256
2247 006260
2248 006262
2249 006264
2250

THIS IS A BIT PATTERN TABLE THAT CAN BE USED TO CHECK ANY LOCATION FOR

ALL COMBINATIONS OF STUCK AND/OR SHORTED BITS.

;'nttntnnnnntnnnttnnnntnttttttnntnt"nttn'anttt
000002
177777
000000
052525
125252
031463
007417
000377
000010

PATRNS:

RADIX
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.RADIX

2
1111111111111111
0000000000000000
0101010101010101
1010101010101010
0011001100110011
0000111100001111
0000000011111111
8

:THIS ENABLES YOU TO SEE THE PATTERNS IN BINARY
;ALL SET BITS
;ALL CLEAR BITS
;EVEN BITS SET, 00D BITS CLEAR
;00D BITS SET, EVEN BITS CLEAR
;PAIRS OF BITS SET
;GROUPS OF 4 BITS SET
;UPPER BYTE CLEAR, LOWER BYTE SET
:THIS RETURNS MODE BACK TO OCTAL

[

CIDRLCO-DRT1 GEN NPR INTF(

MACRO M1113

EXPECTED DATA TABLE FOR CSR CHECK TEST 30

27-0CT-80 15:53

.SBTTL

¢ 7

PAGE 80

SEQ 0080

EXPECTED DATA TABLE FOR CSR CHECK TEST 30

2
3

:'t""tt't't""'t't'"'t"""t't""t.'tti"'t't"""i"'"'tI'

2266 006426
2267 006446

75 006646
76 006666
77 006706

2282 007026

2¢83 007046
2284 007066
2285 007106
2286 007126
2287 007146
2288 007166
2289 007206
2290 007226
2291 007246

THE BITS

IN THE CSR.

;"l"t'tttttti""'t""t"""'t"'l'i"tt"'.tti""'.t"".tt"

8
9 006266

THE "EXPAT' TABLE IS USED TO CHECK THE CONTENTS OF THE CSR AFTER SETTING

000200
004210
000220
004230
000240
004250
000260
004270
000300
004310
000320
004330
000340
004350
000360
004370
000600
004610
000620
004630
000640
004650
000660
004670
000700
004710
000720
004730
000740
004750
000760
004770

MAICLR:

000000
004010
000020
004030
000040
004050
000060
004070
000100
004110
000120
004130
000140
004150
000160
004170
000200
004210
000220

004230
000240

004370

005712
001722
005732
001742
005752
001762
005772

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

[4
é
5
4
3
2
1
0
0200,0000,1202,1002,122204,122204,123206,123206
4210,4010,5212,5012,126214,126214,127216,127216
0220,0020,1222,1022,122224,122224,123226,123226
4230,4030,5232,5032,126234,126234,127236,127236
0240,0040,1242,1042,122244,122244,123246,123246
4250,4050,5252,5052,126254,126254,127256,127256
0260,0060,1262,1062,122264,122264,123266,123266
4270,4070,5272,5072,126274,126274,127276,127276
0300,0100,1302,1102,122304,022104,123306,023106
4310,4110,5312,5112,126314,026114,127316,027116
0320,0120,1322,1122,122324,022124,123326,023126
4330,4130,5332.5132,126334,026134,127336,027136
0340,0140,1342,1142,122344,022144,123346,023146
4350,4150,5352,5152,126354,026154,127356,027156
0360,0160,1362,1162,122364,022164,123366,023166
4370,4170,5372,5172,126374,026174,127376,027176
0600,0200,1602,1202,122604,122604,123606,123606
4610,4210,5612,5212,126614,126614,127616,127616
0620.0220.1622.1222.1226%4.1226%6.1236%6.1236%6
4630,4230,5632,5232,126634,126634,127636,127636
0640,0240,1642,1242,122644,122644,123646,123646
4650,4250,5652,5252,126654,126654,127656,127656
0660,0260,1662,1262,122664,122664,123666,123666
4670,4270,5672,5272,126674,126674,127676,127676
0700,0300,1702,1302,122704,022304,123706,023306
4710,4310,5712,5312,126714,026314,127716,027316
0720,0320,1722,1322,122724,022324,123726,023326
4730,4330,5732,5332,126734,026334,127736,027336
0740,0340,1742,1342,122744,022344,123746,023346
4750,4350,5752.5352.,126754,026354,127756,027356
0760,0360,1762,1362,122764,022364,123766,023366
4770,4370,5772,5372,126774,026374,127776,027376

:CSR 00000x EXPECTED
sCSR 00001x EXPECTED
:CSR 00002Xx EXPECTED
00003x EXPECTED
00004X EXPECTED
00005x EXPECTED
00006X EXPECTED
00007x EXPECTED
00010x EXPECTED

00011Xx EXPECTED
00012x EXPECTED
00013x EXPECTED
00014X EXPECTED
00015x EXPECTED
00016Xx EXPECTED
00017x EXPECTED
00040X EXPECTED
00041X EXPECTED
0004%1 EXPECTED
0004 3x EXPECTED
00044X EXPECTED
00045X% EXPECTED
00046X EXPECTED
00047X EXPECTED
00050x EXPECTED
00051x EXPECTED
00052X EXPECTED
00053x EXPECTED
00054X EXPECTED
00055x EXPECTED
00056X% EXPECTED
00057x EXPECTED

EXPECTED DATA TABLE FOR CSR CHECK TEST 3
.SBTTL

SEQ 0081

PAGE 81

27-0CT-80 15:53
MACRO M1113
CIDRLCO-DRT1 GEN NPR INTF(
tXPECTED DATA TABLE FOR CSR CHECK TEST 3

faYaYeYel-YeoX=1-Y~-X1~-1~-X~-Y=-X~Y>Y-Y=-Y~Y~Y~YoYaYaVaaaaYaYaYaYa]
aascocaacaaoaacaacaacaacaacnocoaocacaocaoaocacaacococoacacaocaoacaaaoanoa
OO OOOOOOOOOOOOOOOOO0O0O0O0OO0O0OO0OO

e et ettt at btttk ok ok ok o ol ok ol ol af ad el ol ol ol o00o
OVOOVO0VVO0O
OVOOVOOVOOVO
VOO
OO
0OV
OP0 OO0e OO0

- Te
oooooooooooooooooooooooooooooooo
MM VW MY VY VY
— OISO OO O OOOO
— v r v v — vOCO
EFOOOC

([oYololololelalalolelalalelaleloleolelolelalalolelolelolelele]le
TOITOY
OITOIOTOITIO
OIOITIOITIOI
OTOTOIOITIOT

Lol sk el sk ek sl sl sl el sntl sl sl nefh 2ol mel Sl S S Sl . . el i a2 S A

CIDRLCO-DRT1 GEN NPR INTFC

MAIN PROGRAM -

MACRO M1113

INITIALIZATION ROUTINES

27-0CT-80 15:53

.SBTTL

E_7

PAGE 82

SEQ 0082

MAIN PROGRAM - INITIALIZATION ROUTINES

;t"lt"t"'tfitt'ttt""i'i""'tt""fi'Qt'tt"'t't'tt."""""'t

S LAV Lt et

"MAIN PROGRAM - INITIALIZATION ROUTINES
(4

LSTSTNISTSTNT ST, ST NT ST ST NTNT ST NT, ST ST ST, ST ST ST ST

NN N N AN AN N NN LN NN
W
BB
NNW
»
VSN =200~

;'tt"It""'"'tt"'t"""Q"""l't't""'tt'..'t"t"'t"tt't"

350

005037
005037
005037
005037
005037
005037
005037
005037
012737
012737
012706
004737
005037
005037
005037
005037
132737
001404
132737
001007
022737
001422
004737
000417
005037
013702
005702

00267C
001416
002716
001412
001410
001414
001420
001422
000006

005237
000241
006102
001371
004737
004737

002414

100002

010462

000003
001300
005660
001422
001420
001414
002706
000001

START1:
START:

000004
000006

MOV
MOV
Mov

001430

000200

001431

177777

002670

1%:

005274

001466

004344
005502

CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR

2%:
3%:
4%

JSR
CLR
CLR
CLR
CLR
BITB
BEQ
BIT8
BNE
CMP
BEQ
JSR
BR
CLR
MOV
TST
8PL
INC
cLC

MANSIZE

;CLEAR THE MANSIZE SO wE WILL AUTOSIZE

#8PT,TMOPSW
#STACK,SP
PC,SETTUP

; CATCHER ROUTINE
;INITIALIZE THE STA(CK
;GO TO THE SETUP ROUTINE TO INITIALIZE VECTORS
;CLEAR SUNIT
;CLEAR SDEVCT
;CLEAR STESTN
;CLEAR EOPLOC
;CHECK IF ON APT
;BR IF NOT APT
:DID APT SIZE
;BR, IF APT SIZED

$PASS
;CLEAR $PASS
$PASS2
;CLEAR $PASS?2
SFATAL
;CLEAR ERROR NO.
$MSGTYP
;CLEAR MESSAGE TYPE
$TESTIN
;CLEAR TEST NO.
$DEVCT
;CLEAR DEVICE COUNT
SUNIT
;CLEAR UNIT NUMBER
#TOVECT+2,TOVECT ;INITIALIZE TIMEOUT VECTORS T0 6

SUNIT
$DEVCT
$STESTN
EOPLOC
:21T0,$ENV

#21T7,$ENVH

#-1,MANSIZE

BEGIN

PC,ASIZE
BEGIN

QTYBRD

$DEVM,R2

ROL

BNE
JSR
JSR

PC,DEVADS
PC,VCTADS

;WAS CONFIGURATION SET UP [N MULT. BOARD ROUTINE?
;IF YES, SKIP SELF-SIZING
;AUTOMATICALLY SIZE FOR BOARD CONFIGURATION

:BRANCH
;CLEAR DEVICE CNT

;MOVE DEVICE MAP TO RZ
;TEST MSB OF DEVICE MAP
;BR, IF MSB IS ZERO
; INCREMENT DEVICE COUNT, IF MSB=1
;CLEAR THE CARRY BIT FOR THE ROL
;SHIFT NEXT BIT INTO MSB POSITION

;CONTINUE CHECKING SOEVM, IF MORE BITS SET
;GENERATE DEVICE ADDRESS TABLE
;GENERATE VECTOR ADDRESS TABLE

MACRO M1113 27-0CT-80 15:53
CIDRLCO-DRIY GEN NPR INTF(
DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE
005737
001145
005737
001142
005037
013737
012737
013737
012737
005737
105237

053700
000001

004400
004400
053700
000002
006400
006400

053700
000004

002672

BNE
CLR
MOV

BEGINT
MEMGMT
TOVECT,OLDPC1

002674

MOV

TMOPSW,OLDPS1

BEGIN:

TSt

010770
24616 01G774
261 011000
2412 011002

104401

012746
104402
104401

“SEE IF UPPER LOCATION HAS BEEN SET

#38, TOVECT

:TIMEOUT VECTOR TO 3%

"BRANCH IF NOT
"CLEAR THE MEMORY MANAGEMENT FLAG
-SAVE TIMEOUT VECTOR

:SAVE TIMEOUT PS

MOV

:PS TIMEOUT TO PRIORITY 7

000252

MOV
MOV
MOV

218, AMVECT
MMPS ,0LDPS2
SLEVELT.MMPS

*MEMORY MANAGEMENT VECTOR TO 1$
*SAVE MEMORY MANAGEMENT PS
:MEMORY MANAGEMENT PS TO PRIORITY 7

172344
172364

MOV
MOV

000006

TST
INCB
MOV
MOV
MOV

172304
172324
002676
000250
002700

INC

002713
172344
172364
002713
172344
172364

002713
1$:

000252
000250

000004
002674
002672
037170

000006
000004

037307

$PASS?2

SLEVEL?.TMOPSW

002700
002676

053622

MOV

000004

000004
177572

SEQ 0083

DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE
SSEE IF THIS IS THE FIRST PASS
$PASS
"BRANCH If NOT
BEGINT

002716

177572
002712
0774606
077406
000250
010722
000252
000340
177572
002400
002400

_SBTTL
TST
BNE

J01416

002712
000004
010750
000006
000340

PAGE 83

38
4$:

TST
BISB
MOV
MOV
ST
BISB
MOV
MOV
TST
BISB
BR
ADD

MMRO
MEMGMT
#77406.KIPDR2
#77406 .KDPDR2
MMVECT .OLOPC2

MMRO

*TURN ON MEMORY MANAGEMENT

NOCARE
#BITO,MEMGMT+1
#6400 KIPAR2
#6400 KDPARZ
NOCARE
#BIT1,MEMGMT+1
#6400 KIPAR2
#6400 KDPAR?2
NOCARE
#BIT2,.MEMGMT+1
28

"SEE IF BITS 12-0 OF NOCARE ADRS +240000 EXISTS
:SET BIT O OF UPPER BYTE OF MEMGMT IF IT DOES
-SET UP KIPAR2 1O ACCESS LOCATION 440000+BITS 12-0 OF
:SET UP KDPAR2 TO ACCESS LOCATION 440000+BITS 12-0 OF
“SEE IF BITS 12-0 OF NOCARE ADRS +440000 EX1STS
:SET BIT 1 OF UPPER BYTE OF MEMGMT IF [T DOES
:SET UP KIPAR2 TO ACCESS LOCATION 640000+4BITS 12-0 OF
:SET UP KDPAR2 TO ACCESS LOCATION 640000+BITS 12-0 OF
*SEE IF BITS 12-0 OF NOCARE ADRS +640000 EXISTS
-SET BIT 2 OF UPPER BYTE OF MEMGMT [f IT DOES
*BRANCH OVER STACK CORRECTION

#2400,KIPAR2
#2400 KDPARZ

8 ,5P

CLR
MOV
MOV
BR
ADD
MOV
MOV

MMRO
OLDPS2 ,MMPS
OLDPC2.MMVECT
4$
#4,SP
OLDPS1,TMOPSW
OLDPCY.TOVECT

MOV
TYPOC
TYPE

SUBHANG.-(SP)

TYPE

“TEST FOR THE PRESENCE OF MEMORY MANAGEMENT
“INCREMENT FLAG SHOWING MEMORY MANAGEMENT EXISTS
:MAKE KIPDR2 RESIDENT
:MAKE KDPDR2 RESIDENT
:SAVE MEMORY MANAGEMENT VECTOR

:SET UP KIPARZ TO ACCESS LOCATION 240000+BITS 12-0 OF NOCARE
:SET UP KDPAR2 TO ACCESS LOCATION 240000+BITS 12-0 GF NOCARE

“CORRECT STACK AFTER MM TRAP

*TURN OFF MEMORY MANAGEMENT
"RESTORE MEMORY MANAGEMENT PS
:RESTORE MEMORY MANAGEMENT VECTOR
"BRANCH OVER STACK CORRECTION
*CORRECT STACK AFTER TIMEOUT
:RESTORE TIMEOUT PS
:RESTORE TIMEOUT VECTOR

STYPE:

' (*X) INHIBITS EQP'S, (*Y) FOR ERROR SUMMARY'

'UNIBUS HANG? RESTART AT ADDRESS °
-MOVE ADDRESS OF HANG ROUTINE 10 STACK
16O TYPE THE ADDRESS IN OCTAL
"CZORLCO DR11 GEN NPR INTFC LOGIC TEST®
:

NOCARE
NOCARE

CIDRLCO- DR11 GEN NPR INTF(

2O
VBB WWWNIN

NOSNOSOcOSO

OOO0O0O0O0O0O0O0O0O
S OO0O0O00

OO0

ONNOOW

= 2O
O NNV S BBWHNN

NSO SOONONISOS

2 OO N

D
b
d
d
D
b
D od
d d
D
-

NNNINVNININ)
b b b ek b b bbb B b bbb b b

d
D
od
o

D
D

D ed
D o

D
d

d
D

D
ed D e
d eh od b

[eleloleleloc BN elelelelelolalolalsl=)

b
b
d D
d e
D o
d D
D D
b d
ot ot o
ot e

b
o

b o
D o

md
b

d
b

D
D

D o e
h D b

2613
2614
2615
2616
2617
2618
2619
2420
2621
2422
2423
24624
2425
2426
24627
2428
2429
2430
2431
2432
2433
2434
2435
2436
24637
2438
2439

ADDRESSES AND VECTORS FOR UUT

[eYel=l=ololelalelelolelelolelalelalolalelale]

PREPARE

MACRO M1113

012737
005037
033737
001026
005737
100013
005737
001361
005737
001356
104401

000000

000001
002546
002544

001416
002716

TST

BNE

BNE
TYPE

037037

006337
013702
062737
016200
012701
012703
010021
062700
005303
001373
016200
010021
062700
010011
016237
013737
042737

002544
002546
000002
002416
002516
000004

001006

001466

002544

010266
002544
000002
001422

004737
004737
105737

.SBTTL
BEGINT: MOV
CLR
TSTDEV: BIT
BNE
TSt
BPL
ST

000137
006337
062737
005237
000746

105037

002544

27-0CT-80 15:53

HALT
002546

1%:

2%:
002546

38:

000002

001474
002720

DEVMSK,SDEVM
28
DEVMSK
1%
$PASS

BEGINY

$PASS?2

BEGINT
,NODVPR

:CHECK TO SEE IF DEVICE IS TO BE TESTED
:BR, IF YES
‘SEE I1F BIT 15 IS SET
*BRANCH TO CONTINUE IF NOT SET
‘SEE IF THIS IS THE FIRST PASS

"BRANCH TO REINITIALIZE THE DEVMSK LOCATION If NOT

“SEE IF THIS IS THE FIRST PASS

“BRANCH TO REINITIALIZE THE DEVMSK LOCATION IF NOT
“TYPE:
'NO DEVICES RECOGNIZED - DIAGNOSTIC CANNOT BE RUN'
'RESTART AT 204 IF A DEVICE IS PRESENT'
;
*FATAL ERROR - HALT HERE

SJUMP TO START1 TO CHECK AGAIN FOR A MODULE
SSHIFT MASK TO CHECK NEXT $DEVM BIT

INC
BR

SUNIT
TSTDEV

S INCREMENT UNIT NUMBER
‘GO TEST NEXT BIT OF DEVICE MAP

ASL
MOV
ADD
MOV
MOV

DEVMSK
TABINX,R2
#2.TABINX
REGADR(R2)
RO
#ZR,R1

;UPDATE DEVICE MAP TEST MASK
‘MOVE TABLE OFFSET TO R2
"UPDATE TABLE OFFSET FOR NEXT DEVICE
:PUT UUT ADDRESS INTO RO
*POINT R1 TO STORAGE AREA FOR UUT ADDRESSES

MOV
ADD
DEC

RO, (R1)+
£2.R0
R3

:TRANSFER UUT ADDRESS
'POINT TO NEXT UUT REGISTER
*DECREMENT THE LOOP COUNTER AND

ADD
MOV
MOV
MOV

#2.R0
RO. (R1)
$OOWO(R2).DDW
DDW,DRLEV

*POINT TO NEXT VECTOR
“TOANSFER VECTOR TO TABLE AREA

ADD

MOV

REINIT: CLRB

JSR

TST8
BNE

002706

PREPARE ADDRESSES AND VECTORS FOR UUT
¥BI0,DEVMSK
:SET UP BIT MASK TO TEST SDEVM FOR DEVICES
*CLEAR LOCATION TO STORE TABLE OFFSETS
TABINX

START1
DEVMSK

BIC

177437

030707
004374
004036

SEQ 0084

JMP
ASL

BNE
MOV
MOV

002456

6 7
PAGE 84

#2, TABINX

#6 RS

{3
VECADR(R2)
RO
RO, (R1)+

79437, DRLEV

“INCREMENT TABLE

INDEX

*MOVE & ADDRESSES

:BRANCH IF NOT DONE TRANSFERING
:PUT UUT VECTOR INTO RO
"TRANSFER UUT VECTORS TO ACTIVE TABLE AREA
:SET UP DDW TO PROPER DEVICE DESCRIPTOR WORD
‘MOVE THE WORD TO THE DRLEV LOCATION

:STRIP ALL BITS EXCEPT BR LEVEL

CHARCT

"CLEAR THE CHARACTER LOCATION OF ANY CHARACTER

PC.CLENUP

"SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

PC,BPINIT
EOPLOC
TST1

160 RESET THE ''.+2" AND 'BPT'' LOCATIONS

“SEE IF *X IS ENABLED (IS THE PRINTER DISABLED)
260 DO TEST IF NOT

;ttttttttttt'tt"'t'Qt""t"t'!t't'ttfitiC't""i't"'tl't"t'i"l'

i
;e
i
i

e. BECAUSE OF THE SPEED OF THIS DIAGVE
TINE*RELOW
EMO
T*LOOP*ROU
T*R
¢+ THE ¢WAL
«DO*NO
NOSTIC (.125 SECOND FOR 1 PASS, NO ERRORS), SOME VIDEO TERMINALS PRINT ERRONEOUS
CHARACTER(S) WITH THE EOP MESSAGE DUE TO THE RESET EXECUTED IN TEST 4. THIS WAIT
BEFORE ITS EXECUTION.
LOOP ENABLES THOSE TERMINALS TO ‘CATCH UP'l"t't"'t"'
tt""

1$:
2%:

MOV
DEC
.JORD
BNE

;tt't'ttttlt'tt't"""t"'"""'l'tti'l'i"t.l

2464

2465
2466
2468
2469

012737
005327
010000
001375

010000

011240

#10000,2%
(PC)+
10000
1%

;REESTABLISH THE WAIT LOOP COUNTER
‘DECREMENT THE LOCATION TO KILL TIME
“LOCATION TO BE DECREMENTED
"BRANCH BACK UNTIL ZERO

;tttttttttt."."""""'i""t.".lt'i'l't't'lttt'tl"'tt'itt"t!

"MAIN PROGRAM - DEVICE TESTS
.

;t.t!tt'tt"t"""."t"."""Q'lllt'.t".'tlitt"lt'l"!t'tttl!l

CIORLCO-DRT1 GEN NPR INTFC

MACRO M1113

27-0(CT-80 15:53

TEST #1 - CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR?
24677

LSBTTL

PAGE 85

SEQ 0085

TEST #1 = CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR?

;'Q"Qi".t'tt"t"'Q'"""""'".'t""'.".'."'.'.""Q""".

CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR?

S*TEST 1
*

THIS TEST INSURES THAT THE CSR, BAR, BDR AND WCR REGISTERS CAN BE
agcsaaED FOR THIS DEVICE. [IF NOT, THE REST OF THE DIAGNOSTIC CANNOT

o
.®

011244
011252
011254
011260
011262

011272

032777
001407
104401
000404
124

011272
011274
2478 011302
2479 011306
2480 011314

000004
012737
005037
012737
013737

2482 011326

013737

2681 011322

2483 011334
2684 011340
26485 011346

2486 011352

2487 011360

005777

005777
013737
005777

013737
005777

004000

040

011302
001312
011410
002516
171170
002520
171160
002522
171150
002524
171140
002526
171130
001312

2692 011404
2493 011410
2494 011414
2495 011420
2696 011422
26497 011426

000137
012637
012637
104001
013746
013746

024360
002672
002674

012737

000006

2498 011432
2499 011434

000002

17006€

TST1:

043

1000S$:
1001$:

013737
005777
005737
001414

X222 22222222 22222 X222

011262

2488 011364
2489 011372
2490 011376
2491 011402

001310

000004
002550

999%:

002550
002550

1$:

002674
002672
000004

2§%:

BIT
BEQ
TYPE
BR
.?SEIZ

#BIT11,3SWR
1001$
.1000%
1001$%

SCOPE
MoV
(LR
MoV
MOV
TST
MoV
TST
MOV
TST
MoV
TST
MOV
TST
1ST
BEQ
JMP
MOV
MoV
ERROR
MOV
MOV
RTI

#999% ,SLPERR
SERTTL
#1$ ,BUSERR
WCR,DREG
awCR
BAR,DREG
3BAR
CSR,DREG
aCSR
BOR,DREG
aBOR
DRINV,DREG
aORINV
SERTTL
2%
ENDEV
(SP)+,0LDPCY
(SP)+,0LDPST
+1
OLDPS1,=-(SP)
OLDPC1,-(SP)

.EVEN

MOV

/T # V/<CRLF>

#6 ,BUSERR

RS R

22 R 22X

RRRR R RRRRRlRdl])

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;08 TYPE: ''T # 1"
.88 GET OVER ASCII
;88 THE ASCII MESSAGE

;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%
;CLEAR THE ERROR TOTAL - NEW PASS
;CPU ERROR VECTOR TO 1%
; SAVE ADDRESS FOR POSSIBLE ERROR TYPING
sACCESS REGISTER

;SAVE ADDRESS FOR POSSIBLE ERROR TYPING
;ACCESS REGISTER
;SAVE ADDRESS FOR POSSIBLE ERROR TYPING
sACCESS REGISTER

:SAVE ADDRESS FOR POSSIBLE ERROR TYPING
;ACCESS REGISTER

;SAVE ADDRESS FOR POSSIBLE ERROR TYPING
;ACCESS REGISTER
;SEE IF THERE WERE ANY ERRORS
;BRANCH TO CONTINUE IF NONE

;GO TO END OF DEVICE ROUTINE - FATAL ERRORS
;SAVE PC OF TRAP FOR ERROR PKINTOUT
;SAVE PS FOR RESTORATION AFTER ERROR CALL
:CANNOT ACCESS DR11 REGISTER
;PUT PS BACK ON STACK
;PUT PC BACK ON STA(CK
;RETURN TO PROGRAM

;RESTORE #6 TO BUS ERROR

CIDRLCO-DRT1 GEN NPR INTF(
MACRO M1113 27-0(CT-80 15:53
TEST #2 -~ CHECK B OR W STATUS IS AS EXPECTED
2506

JSBTTL

7
1
PAGE 86

SEQ 0086

TEST #2 = CHECK B OR W STATUS IS AS EXPECTED

:tt"'tt'tt'ttt"'t"'"'Q"'"""'fit"'..""Q"""'t"""'."'

CHECK B OR W STATUS IS AS EXPECTED

;eTEST 2
YRR

TR]

. %

*
*

THIS TEST INSURES THAT THE B OR W STATUS IN THE DEVICE DESCRIPTOR
WORD MATCHES WHAT THE EIR SAYS THE MODULE IS.

223 E2222

011442
011450
011452
011456
011460
011470

011470
011472
2507 011500
2508 011504
2509 011512
2510 011520
2511 011526
251¢ 011534
2513 011542
2514 011544
2515 011550
2516 011552
2517 011560
2518 011566
2519 011570

032777
001407
104401
000404
124

000004
012737
005077
012777
017737
042737
013737
042737
001403
005037
000403
012737
023737
001401
104002

004000

167670

TST2:

043

10008:

011460
040

1001§:

011500
171016
100000
171004
177776
002720
177776

001310
171010
002610

999%:

002610
001362
001362

001362

000001
002610

001362
001362

1%:
2§:

2322222222222 20222222

BIT
BEQ
TYPE
BR
.QSEIZ

#BIT11,3SWR
1001%
,1000%
1001$
/T & 2/<CRLF>

SCOPE
MOV
(LR
MoV
MoV
BIC
MoV
BIC
BEQ
CLR
BR

#9998 ,SLPERR
aCSR
#EIR,3CSR
a(SR,BORW
#CB1T0,B0RW
DDW,$TMPI
#CBITO,$TMPY
1%
$TMPY
2%

.EVEN

MoV
CMP

BEQ

ERROR

#1,87TMP1
BORW,$TMP1
TS13
+2

iRttt

illld

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;80 TYPE: ''T # 2"
;88 GET OVER ASCII
;88 THE ASCII MESSAGE

;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%
;GO TO (SR
;FORCE TO BE EIR
SATTEMPT EIR READ
;MASK OFF ALL BITS EXCEPT BIT 0
;GET DEVICE DESCRIPTOR WORD
;MASK OFF ALL BUT B OR W BIT
;BRANCH IF IT IS CLEAR
;CLEAR THE BiT
;60 TEST THE BIT
;SET THE BIT
;B OR W STATE AS EXPECTED?
;BRANCH [F 0K
;DR11-B OR W MODE INCORRECT (0=B, 1-W)

C IORLCO-DR11

1 EST

GEN NPR INTF(

MACRO M1113

27-0CT-80 15:53

#3 - CHECK CSR BIT PATTERNS WITH MAINT BIT SET

2527

LSBTTL
R

¥
ot
.
M

PAGE 87

SEQ 0087

TEST #3 = CHECK CSR BIT PATTERNS WITH MAINT BIT SET
I

T L

T T R I ORISR R

TR R R AR R R Y

CHECK CSR BIT PATTERNS WITH MAINT BIT SET

JeTEST 3
*

THIS TEST SETS ALL POSSIBLE COMBINATIONS OF SET BITS IN THE (SR WITH
THE MAINTENANCE BIT SET, AND COMPARES THE RECEIVED CSR CONTENTS WITH
THAT OF THE EXPECTED PATTERNS IN THE 'MAISET' TABLE.

[

011572

011600

011602

011606
011610
011620

032777

004000

104401

011610

001407
000404
1264

011620
011622

000004
012737

2529 011634
2530 011642
2531 011650
2532 011652
2533 011660
2534 011664

2528 011630

2535 011670

2536 011674
2537 011700
2538 011704
2539 011712
2540 011716

040

167540

043

012737
03c737
001003
052737
012701
012702

000200
000004

001362
002720

127000
007266
010000

001362

012700
012703
052777
005077
017737

000002
000200
010000
170604
170600

004036

170610
002560

001362

002572

2345 011744
2546 011752
25647 011760

013737
104032

012777
012777
010277

170544
170540

017737
011137
023737
001425
012737
040227

177777
053700
170536

170532
002572
002572

002560

000401

012016

000401
001013
032737
001407
052737
023737
001415

2561 012050 010237

2562 012054 104202

2563 012056
2564 012060
2565 012066
2566 012070

000411
012737
040227
000401

18:
2%:
999%:

3§:

002560

000060

002572

140000

002572

002536
000401

012070

#B1T11,3SWR

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

. 1000%

;88 TYPE: ''T # 3¢

1001$

1001%
/T 8 3/<CRLF>

.88 BRANCH IF NOT

;8% GET OVER ASCII
;88 THE ASCII MESSAGE

SCOPE
MoV

#9998 ,SLPERR

;PROCESS LOOPING AND TEST NUMSER INCREMENT
;SET LOOP ON ERROR T0O 999%

MOV
BIT
BNE
BIS
MOV
MoV

#RY,$TMPY
#B1T2,00W
18
#127000,8TMPY
#MAISET ,R®
#MA R

;MOVE READY BIT TO $TMP1
;TEST TO SEE IF CABLE IS IN
;BRANCH AROUND NON-CABLE SETUP [F IN
;SET THE BITS TO BE EXPECTED IN $TMP1
:MOVE ADDRESS OF EXPECTED PATTERNS TO R1
;START WITH JUST THE MAINTENANCE BIT

MoV
Mov
BIS
CLR
MoV

#2,RO
#200,k3
#MA ,3CSR
aCSR
aCSR,RCSR

;D0 2 SETS OF 200 PATTERNS
;MOVE 200 TO THE LOOP COUNTER
:SET MAINTENANCE AND
;CLEAR TO DO AN INIT
;MOVE RECEIVED DATA TO RCSR

$TMP1,ECSR
+32

;MOVE EXPECTED DATA TO ECSR
;CSR IS WRONG

aCSR,RCSR
(R1) ,ECSR
ECSR,RCSR
7%
#CY+GO,48
R2,(PC)+

:MOVE RECEIVED DATA TO RCSR
;MOVE EXPECTED DATA TO ECSR
;COMPARE EXPECTED WITH RECEIVED
;BRANCH IF OK
;REESTABLISH TEST PATTERN
;SEE IF BOTH CYCLE AND GO WERE SET

CMP
BEQ
MoV
ERROR

MoV
MOV
MOV
MOV
Mov
CMP

BEQ

MOV
BIC
.WORD

PC,CLENUP

ERRCNT

$TMP1,RCSR
3%

#-1,3WCR
#NOCARE ,3BAR
R2,3CSR

;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

;CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202

:MAKE SURE EXPECTED DATA CAME UP
;BRANCH IF SO

;MOVE 1 WORD COUNT TO WCR IN CASE OF IE ENABLED
;MOVE A NOT-CARE ADDRESS TO BAR FOR SAME REASON
;SET THE PARTICULAR FUNCTION BITS IN (SR

;LOCATION TO HOLD BOTH CYCLE AND GO BITS
;BRANCH TO ERROR ONLY [F CYCLE AND GO WERE SET
;SEE IF EITHER XBA16 OR XBA17 ARE SET
;BRANCH TO ERROR IF BOTH ARE CLEAR
;SET THE ERROR AND NEX BITS - EXPECT THEM TO SET

5$%:

BNE
BIV
BEQ
8IS

CY+GO
63
#X64X7 ,ECSR
63
#ER+NX,ECSR

6%:

MoV

R2,BUT

;MOVE THE BITS SET INTO CSR TO THE BUT LOCATION

108
#CY+G0,8%
R2,(PC)¢
CY+GO

;BRANCH AROUND MM TESTS
cREESTABLISH TEST PATTERN
;SEE IF BOTH CYCLE AND GO WERE StT
;LOCATION TO HOLD BOTH CYCLE AND GO BILTS

6$:

002560

.EVEN

JSR

002560

001362

2554 012016
2555 012020
2556 012022
2557 012030
2558 012032
2559 012040
2560 012046

BEQ

CLR

023737
001404

2548 011764
2549 011772
2550 011776
2551 012004
2552 012006
2553 012014

1000$:

BR
.eegll

002714

2541 011726
2542 011732

2543 011734
2544 011742

BIT

1001$:

001310

005037

T1s73:

TYPE

011704

004737

;it.ttttttl.tt""""""i"""'i""'t"..'tlt"'.."t"'t't""

7%:

8$:

CMP
BEQ

ERROR

BR
MOV
BIC
.WORD

RCSR,ECSR
108

+202

;NOW SEE IF DATA MATCHES
:BRANCH ARQUND ERROR If 1T DOES

:CSR PATTERN NOT CORRECT

MACRO M1113
27-0CT-B0 15:53
CIDRLCO-DRI1 GEN NPR INTF(
TEST #3 - CHECK CSR BIT PATTERNS WITH MAINT BIT SET

2567 012072
2568 012074
2569 012100
2570 012102
2571 012106
2572 012110
2573 012112
2574 012114
2575 012120
2576 012122

001003
004737
000754
062701
005202
005303
001274
062702
005300
001266

006134

9%:

000002

10$:

000200

BNE
JSR
BR

ADD

INC
DEC

BNE

ADD

DEC
BNE

K
7
PAGE 87-1

10%
PC,TSTMM

#2,R1
R2
R3
999%
#200,R2
RO

Sea 0088
*BRANCH AROUND MEM MGMT TEST [F EITHER OR BOTH WERE (LEAR
;60 CHECK FOR MEMORY MANAGEMENT EXISTENCE

;IF RETURN IS HERE, GO BACK TO SET EXPECTED DATA
: INCREMENT R1 TO NEXT EXPECTED PATTERN
; INCREMENT THE PATTERN
;DECREMENT THE LOOP COUNTER
;BRANCH BACK IF NOT DONE
;ADD 200 TO PATTERN LOCATION
;DECREMENT THE LOOP COUNTER AND
;BRANCH BACK IF 2ND OCTAL GROUP NOT DONE

CIDRLCO-DRT1 GEN NPR INTF(
MACRO M1113 27-0CT-b0 15:53
TEST #4 - CHECK WCR, BAR & BDR, & RESET CLRS & DEV REGS
2583

LOBTTL
iR

SRTEST &
X

SRR

012126
012132
012134

032777
001407
104401

004000

012142

124

040

012140
012152
012152

000404

2598 012264
2599 012272
2600 012274
2601 012302

000004
012737
012777
005077
012777
012777
017737
022737
001423
012737
000412
012777
017737
022737
001401
104010
032777
001361
012777
017737

2603 012316

001426

012154
2584 012162
2585 012170
2586 012174
2587 012202
2588 012210
2589 012216
2590 012224
2591 012226
2692 012234
2593 012236
2594 012244
2595 012252
2596 012260
2597 012262

2602 012310

2604 012320

2605 012326

022737

012737

2606 012334 000412
2607 012336
2608 012344

012777
017737

2610 012360

001401

2609 012352

2611 012362

022737

104012

167206

TST4:

043

1000$:

012142

10018

012162
010000
170326
010000
177777
170302
177777

001310
170332

012236

001310

177777
170246
177777

170252
002570
002570

001000

167046

177777
170212

170216
002566

177776

012336

177776
177777
170150

177776

170320
170306
002570
002570

170154
002566

017737

170114

002560

177777

002566

2618 012424

2619 012432

2620 012434
2621 012442
2622 012450
2623 012452

012777
017737

177777
170076

022737
001431

012737
012737
000415
017737

4$:

166746

170120

7%:

8$:

170102
002566

012452
177777

001310
002600

170044

002560

N AR

200020

RdRRdRRRaRd

)

R AR AR A E R RN RN ANRANRNANRAANRNRANANROAGRRAONCAOROERNS

BIT
BEQ
TYPE

#BIT11,35WR
1001$
1000%

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
188 BRANCH IF NOT
‘88 TYPE: T # &

'?3%#1

/T # 4/<CRLE>

88 THE ASCII MESSAGE

1001s

SCOPE
MOV
MOV
CLR
MOV
MOV
MOV
CMP
BEQ
MOV
BR
MOV
MOV
CMP
BEQ
ERROR

#9998 ,$LPERR
#MA,aCSR
aCSR
#MA,aCSR
#-1.3WCR
aWCR,RWCR
#-1,RWCR
48
#19,8LPERR
2%
#-1,aWCR
JWCR,RWCR
#-1,RWCR
3$
+10

CMP

#-2,RBAR

BIT
BNE
MOV
MOV

188 GET OVER ASCII

#B179,aSWR
1%
#-1,3BAR
aBAR, RBAR

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999$
*SET THE MAINTENANCE BIT AND
SCLEAR TO DO AN INIT
‘SET THE MAINTENANCE BIT TO DO THIS TEST IN MAINT MODE
*ALL ONES TO WCR
*MOVE RECEIVED DATA TO RW(R
*SEE IF DATA WAS LOADED PROPERLY
:BRANCH IF OK
;MOVE NEW LOOP ON ERROR LOCATION TO SLPERR
*BRANCH OVER LOOP SETUP
SALL ONES TO WCR
:MOVE RECEIVED DATA TO RW(CR
‘SEE IF DATA WAS LOADED PROPERLY
:BRANCH IF 0K
CATTEMPT TO SET ALL WCR BITS FAILED
SSEE IF WE SHOULD LOOP BACK
:BRANCH BACK IF SO
*ALL ONES TO BAR
:MOVE RECEIVED DATA TO RBAR

:BRANCH IF 0K

#5% ,8LPERR
#-2.EBAR

“SEE IF ALL BITS WERE SET (DON'T EXPECT BIT 0 TD SET)
:MOVE NEW LOOP ON ERROR LOCATION TO SLPERR
:MOVE EXPtCTED DATA TO EBAR

B8R

:BRANCH OVER LOOP SETUP

CMP

#-2 ,RBAR

“SEE IF ALL BITS WERE SET (DON'T EXPECT BIT 0 TO SET)

MOV
MOV

BEQ

ERROR

#-1,3BAR
aBAR, RBAR

+12

*ALL ONES TO BAR
:MOVE RECEIVED DATA TO RBAR

:BRANCH IF OK

“ATTEMPT TO SET ALL BAR BITS TO 1 FAILED

81T
BNE

#B119,aSWR
5%

MOV

ACSR,RCSR

CMP

#-1,RBAR

‘SEE IF ALL BITS WERE SET (*DO* EXPECT BIT O TO SET)

#9%,SLPERR
#-1.EBAR

*MOVE NEW LOOP ON ERROR LOCATION TO SLPERR
*MOVE EXPECTED DATA TO EBAR

BIS

MOV
MOV

BEQ

MOV
MOV
9%:

20RRRRR2

CHECK WCR, BAR & BDR, & RESET CLRS & DEV REGS

NRAN R

MOV

6%:

2220222220

SET, AND THAT A RESET CLEARS ALL 3 PLUS THE CSR REGISTER.

MOV
S$:

222222220

THIS TEST INSURES THAT THE WCR, BAR AND BDR REGISTER BITS CAN ALL BE

BEQ

002566

2615 012402

2616 012410
2617 012416

3$:

002600

001000

000001

2%:

001310

032777
001361

052777

1%:

002566

2612 012364
2613 012372

2614 012374

999%:

SEQ 0089

TEST #4 - (HECK WCR, BAR & BDR, & RESET CLRS & DEV REGS

22222222222

L 7
PAGE 88

BR
MOV

#GG,aCSR

#-1,3BAR
aBAR, RBAR

128

108
3CSR,RCSR

*SEE IF WE SHOULD LOOP BACK
:BRANCH BACK IF SO

'SET GO TO CLEAR READY TO PREPARE T0 SET BAR BIT 0
"READ CSR TO SET BIT 0 OF BAR
*ALL ONES TO BAR
*MOVE RECEIVED DATA TO RBAR

:BRANCH IF OK

‘BRANCH OVER LOOP SETUP
*ACCESS CSR TO SET BIT O OF BAR

27-0CT-80 15:53
MACRO M1113
CIORLCO-DRI1 GEN NPR INTF(
TEST #4 - CHECK WCR, BAR ¢ BDR, L RESET CLRS & DEV REGS

2624 012460
2625 012466
2626 012474
2627 012502
2628 012504
2629 012506
2630 012514
2631 012516
2632 012524
2633 012532
2634 012540
2635 012542
2636 012550
2637 012552
2638 012560
2639 012566
2640 012574
2641 012576
2642 012600

2643 012606
2644 012610
2645 012616

2646 012620
2647 012626
2648 012634
2649 012636
c650 012640
2651 012646
2652 012650
2653 012654
2654 012656
2655 012664
2056 012672
2657 012676
2658 012704
2659 012706
2660 012710
2661 012716
2662 012724
2663 012726

012777
017737
Q22737
001401
104012
032777
001356
012777
017737
022737
001423
012737
000412
012777
017737
022737
001601
104027
032777
001361
012777
000005

012737
017737
001401
104007
017737
001403
005037
104011
017737
012737
004737
023737
001401
104032
052777
017737
0014601
104026

177777
170026
177777

170032
002566

MoV
MOV

002566
108:
118:

001000

166624

177777
167774
177777

170000
002564

012552

001310

177777
167740
177777

167744
002564
002564

001000

166532

148:
15%:

010576

167704

16$:

012162
167664

001310
002570

167654

002566

12%:

002564

138

17§:

002600
002560
002572

010000
167602

167604
002564

18$:

#-1,RBAR
11$
+12
821T9.GSUR

MOV
MOV

#-1,3BDR
@BDR,RBOR

BNE

CMP
BEQ
MOV
B8R
MoV
MOV
cMP
BEQ
ERROR
BIT
BNE
MoV

RESET

19%:

#-1,RBOR
16$
#13$ ,SLPERR
148
#-1,3B0R
aBOR,RBDR
#-1,RBOR
15%
+27
l§£T9.iSUR
1
#10576,3CSR

MOV
MOV
BEQ
ERROR
MOV
BEQ

#999% ,SLPERR
aWCR ,RWCR
17%
+7
@dBAR ,RBAR
18%

ERROR
Mov
MoV

+11
aCSR,RCSR
#RY,ECSR
PC,CHKCAB
ECSR,RCSR
19¢
+32
#MA,aCSR
aBDR ,RBOR
TST5
+26

JSR

002560

#-1,8BAR
8BAR ,RBAR

CMP
BEQ
ERROR
BIT

CLR

167640
000200
004060
002572

n7
PAGE 88-1

CMP
BEQ
ERROR
BIS
MOV
BEQ
ERROR

EBAR

SEQ 0090
;ALL ONES TO BAR
MOVE RECEIVED DATA TO RBAR

;SEE IF ALL BITS WERE SET (+DO+ EXPECT BIT O TO SET)
:BRANCH IF 0K
;ATTEMPT TO SET ALL BAR BITS TO 1
;SEE IF WE SHOULD LOOP BA(CK

FAILED

;BRANCH BACK IF SO
:ALL ONES TO BDR

;MOVE RECEIVED DATA TO RBDR

;SEE IF DATA WAS LOADED PROPERLY
:BRANCH IF OK
;:MOVE NEW LOOP ON ERROR LOCATION TO SLPERR
;BRANCH OVER LOOP SETUP
:ALL ONES TO BDR
:MOVE RECEIVED DATA TO RBDR

:SEE IF DATA WAS LOADED PROPERLY
:BRANCH IF 0K
;ALL BDR BITS ARE NOT SET
;SEE IF WE SHOULD LOOP BACK
:BRANCH BACK IF SO
;SET ALL CSR WRITEABLE BITS
;RESET THE WORLD OF

ITS TROUBLES - HOPEFULLY

;RESET THE LOOP ON ERROR LOCATION
;WAS WCR CLEARED?
;BRANCH IF WCR WAS CLEARED
;RESET FAILED TO CLEAR WCR
:MOVE RECEIVED DATA TO RBAR
;BRANCH IF BAR WAS CLEARED
;CLEAR EXPECTED LOCATION
;RESET FAILED TO CLEAR BAR
:MOVE RECEIVED DATA TO R(CSR
:MOVE EXPECTED DATA TO ECSR

;GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
;SEE IF EXPECTED DATA WAS RECEIVED
:BRANCH [F IT WAS
;READY IS NOT THE ONLY BIT SET
:MAINT MODE (SO THAT IDR GETS ODR CONTENTS
:MOVE CONTENTS OF BDR TO RBDR

:BRANCH IF IT CORRECTLY REMAINS ZERO
;BDR IS NOT CLEAR

———

MACRO M1113

CIORLCO-DRT1 GEN NPR INTF(C

TEST #5 - DEVICE

27-0(T-80 15:55

INIT CLEARS CSR, WCR, BDR AND BAR

2669

.SBTTL

SEQ 0091

TEST #5 - DEVICE INIT CLEARS CSR, WCR, BDR AND BAR
R

I R

DEVICE INIT CLEARS CSR, WCR, BDR AND BaR

;*TEST 5
X

N 7
PAGE 89

R AR

THIS TEST INSURES THAT DEVICE INIT CLEARS THE CSR, WCR, BOR AND BAR.

*
*

032777
001407
104401
000404
124

000004

2675 013014
2676 013022
2677 013030
2678 013032
2679 013034
2680 013042
2681 013044
2682 013050
2683 013052
2684 013060
2685 013066
2686 013072
2687 013100

2088 013102
2689 013104

004000

012746

167536
177777
177777
177777
010576
010000
167470

017737
001403
005037

167460

104004

017737
012737
004737
023737
001401

104006

012777
017737
001401
104005

:
10008

040

005077
012777
012777
012777
012777
062777
017737
001401
104003

166402

I X 2 222

TSTS:

1001$:
999$:

002600
167444

000200
004060
002572
010000

167406

BIT

.ASCI1Z
.EVEN
SCOPE

/T # 5/<CRLF>

8EQ
TYPE
BR

CLR

MOV
MoV
MoV
MOV

002560
002572

2s:

002560
167410
002564

3$:

aCSR
#-1,3WCR
#-1,380R
#-1,3BAR

#10676,3CSR

MoV

#MA,aCSR
?gCR.RUCR

MOV

9BAR,RBAR

BIC

1%:

2 R R RS RRR RS0 R0

#BIT11,3SWR
1001$

BEQ
ERROR

BEQ
CLR
ERROR

MoV
MOV

JSR
CMP
BEQ
ERROR
MOV
MOV

BEQ

ERROR

2$
EBAR

+4
aCSR,RCSR
#RY ,ECSR
PC,CHKCAB
ECSR,RCSR

R0 R0

R0 RRRRRRRdd)

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH [F NOT
;8% TYPE: ''T & 5"
;88 GET OVER ASCII
;80 THE ASCII MESSAGE
;FORCE ACCESS TO (SR

;ALL ONES TO WCR
;ALL ONES TO BDR
¢ALL ONES TO BAR
;SET ALL WRITEABLE BITS IN THE CSR
;CLEAR THE MAINT BIT TO DO AN INIT
;MOVE RECEIVED CONTENTS TO RW(CR
:BRANCH IF WCR WAS CLEARED
¢INIT FAILED TO CLEAR WCR
;MOVE RECEIVED CONTENTS TO RBAR
;BRANCH IF BAR WAS CLEARED
;CLEAR EXPECTED LOCATION
;INIT FAILED TO CLEAR BAR
:MOVE RECEIVED DATA TO RCSR
:EXPECT READY BIT ONLY TO BE SET

;G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
;SEE IF EXPECTED DATA WAS RECEIVED

3%
+6

;BRANCH IF THEY WERE ALL CLEAR
;INIT FAILED TO CLEAR ALL CSR R-W BITS

aBDR,RBDR
T1ST6
+5

;MOVE RECEIVED CONTENTS TO RBDR
;BRANCH IF IT WAS CLEARED
SINIT FAILED TO CLEAR BDR

#MA,QCSR

;GO BACK INTO MAINT MODE (SO THAT IDR GETS ODR CONTENTS)

MACRO M1113 27-0CT-80 15:53
CZORLCO-DR*1 GEN NPR INTF(
TEST #6 - BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS

.SBTTL

2702

o
i
o
.t
oY

R R R X R R X222 220222

1044601

000404
124

715
716
717
718
719
720
721

013236
013242
013250
013254
013256
013260
013266

2723 013274
2724 013300
2725 013306
2726 013312
2727 013314
2728 013322
2729 013326
2730 013330
2731 013334
2732 013342
2733 013346
2734 013350
2735 013352
2736 013360
2737 013362
2738 013366
2739 013374
2760 013400
2741 013406

166206

040

004036
002714
006250
000007
010000

167316
167312
002564

043

167320

002564

032777
001363
005077
011177
017737
021137
001423
012737
011137

001000

166052

002570

013330
002602
167162
167156
002570

001000
167132
167126
002600
000001
002600

1$:

002564

167262
167256
002564

167226
167216
167212

10008 :
10018:

013236
002576

104205

TST6:

013142

012737
011137
000410
011177
017737
021137
001401

<>C"D<DC>SnBE;
=2
—a

2714 013234

000004
004737
005037
012701
012702
012777
011177
017737
021137
001423

MOS

2703 0
2704 013160
2705 013164
2706 013170
2707 013174
2708 013202
2709 013206
2710 013214
2711 013220
2712 013222
2713 013230

004000

THIS TEST RUNS 7 BIT PATTERNS THROUGH THE WCR, BDR AND BAR TO CHECK FOR
ANY STUCK OR SHORTED PINS. LOCATION SLPERR IS NOT SET UP AT THE START
SINCE A DIFFERENT METHOD OF ERROR LOOPING IS DONE. WHEN AN ERROR IS
DETERMINED TO EXISY, THE SLPERR IS INITIALIZED TO A ROUTINE SPECIFICALLY WRITTEN FOR THAT PARTICULAR ERROR TO CREATE A VERY TIGHT LOOP.

2$:

3:
4s:

5%:
002570
001310

002570

165760

002566
002600
002566

BIT
BtQ
TYPE
BR

6$:

7%:
8$:
9% :

R NN CRR RN RRRRNAANRRANNARRRNNARNRROOAROCRNRCORCRS

#BIT11,aSwWR
1001$
. 1000%
1001$

/T & 6/<CRLF>

;08 TEST TO SEE [F TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;88 TYPE: ''T # 6"
;88 GET OVER ASCI!
;88 THE ASCII MESSAGE

JSR
CLR

PC,CLENUP
ERRCNT

; SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
;CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +204

MoV
MoV

(R1) ,aBDR
aBDR,RBOR

:MOVE THE DATA TO BDR
;MOVE RECEIVED DATA TO RBDR

.eeggl

SCOPE

Mov
MOV
MOV

CMP

001310

RRAR ARRRRRRRRRRRARRRRRAl
Al

BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS

AR AREARARRAAREEN AR

032777
001407

SEQ 0092

TEST #6 - BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS

;*TEST 6
¥

B 8
PAGE 90

#PATRNS ,R1
#7,R2
#MA ,SCSR
(R1) ,RBDR

BEQ
MoV
MOV

5%
#2% ,SLPERR
(R1) ,EBOR

MOV
CMP
BEQ
ERROR
BIT
BNE

8BDR,RBOR
(R1) ,RBDR
4$
+205
#B1T9,aSuWR
2%

MoV
MOV

(R1) ,8WCR
SWCR,RWCR

BR
MoV

CLR

CMP
BEQ
MOV
MOV
BR
MOV
MOV
CMP

8EQ
ERROR
BIT
BNE
MOV
MOV
MoV

BIC

;MOVE ADDRESS OF BIT PATTERNS TO R1
;D0 7 PATTERNS
;GO TO MAINTENANCE MODE & SET GO TO DISABLE BAR BIT 0
;SEE IF EXPECTED DATA WAS RECEIVED

;BRANCH [F SO
;SET UP LOOP ON ERROR LOCATION
;MOVE EXPECTED DATA TO EBOR

3%
(R1) ,dBDR

;SKIP OVER LOOP ON ERROR SETUP
;LOAD BIT PATTERN TO BOR

8CSR

;CLEAR CSR TO DO AN INIT - WCR § BAR DON'T NEED MAINT MODE

(R1) ,RWCR
9
#6%,SLPERR
(R1) ,EWCR
4]
(R1) ,8WCR
SWCR, RWCR
(R1) ,RWCR

;MOVE RECEIVED DATA TO RBDR
;SEE IF DATA IS OK NOW
:BRANCH OUT IF SO - OK NOW
:BDR PATTERN NOT CORRECT
;SEE IF WE SHOULD LOOP BACK
:BRANCF BACK IF SO

;MOVE THE DATA TO W(CR
;MOVE RECEIVED DATA TO RW(R

sSEE IF EXPECTED DATA WAS RECEIVED
;BRANCH IF SO
;SET UP LOOP ON ERROR LOCATION
:MOVE EXPECTED DATA TO EW(CR

8%
+204
#BIT9,3SWR
é$
(R1) ,8BAR
8BAR,RBAR
(R1) ,EBAR

;SKIP OVER LOOP ON ERROR SETUP
:LOAD BIT PATTERN TO WCR
;MOVE RECEIVED DATA TO RWCR
+SEE IF DATA IS OK NOW
¢BRANCH OUT [F SO - OK NOW
;MCR DATA PATTERN NOT CORRECT
;SEE IF WE SHOULD LOOP BACK
:BRANCH BACK IF SO
;MOVE THE DATA TO BAR
;MOVE RECEIVED DATA TO RBAR
;MOVE EXPECTED DATA TO EBAR

EBAR,RBAR

;SEE IF EXPECTED DATA WAS RECEIVED

#8170, EBAR

;DO NOT EXPECT BIT O TO BE READ

(

013464
013466

002566
001000

165662

12%:

004036

(MP
BEQ
ERROR
BIT
BNE
TST
DEC
BNE
JSR

) ,@8BAR

1’

MOV
MOV

o o]
>

Z’

002566

108:

$,SLPERR

),RBAR

-t AN

167066
167062

001310

MOV

PAGE 90-1

9.,aSwR
<+

013426

BEQ

2747

001421
012737
000410
011177
017737
021137
001401
104203
032777
001363
005721
005302
001243
004737

[ ]

2742
2743
2744
2745
2746

TN
] (el
Dmd
AN 0 ODMNIN
DD 0 — — L
LW
OW 2
2 PO
W

MACRO M1113
27-0(CT-80 15:53
CIORLCO-DRI1 GEN NPR INTFC
TESY #6 - BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS

PC,CLENUP

SEQ 0093

:BRANCH [F SO
;SET UP LOOP ON ERROR LOCATION
;SKIP OVER LOOP ON ERROR SETUP
;LOAD BIT PATTERN TO BAR
;MOVE RECEIVED DATA TO RBAR
;SEE IF DATA IS OK NOW
;BRANCH OUT [F SO - OK NOW
;BAR DATA PATTERN NOT CORRECT
;SEE if WE SHOULD LOOP BACK
:BRANCH BACK If SO
;60 TO NEXT PATTERN
;DECREMENT THE LOGP COUNTER AND
;BRANCH BACK IF NOT DONE

;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

CIDRLCO-DRI1 GEN NPR ] +fF(
MACRO M1113
TEST #7 - TEST CSR AND EIR BITO

2762

LSBTTL

‘%

o
ot
*

032777
001407
104401

004000

013510

124

040

013506 000404
013520
013520

013530
000001

2765 013540
2766 013544
2767 013552

005077
012737
017737

166756
000001
166744

2769 013566
2770 013570

001407
013737

2772 013604
2773 013606
2774 013614

104014
012777
017737

2776 013630

001007

2768 013560 032737 000001

002560

2771 013576 042737 000001

100000
166702

2775 013622 032737 000001
013737

002562

2778 013640 052737 000001
2779 013646

104015

043

1000$:
:
10018

013522
2763 013530

2777 013632

TST7:

013510

000004
012737
032737

2764 013536 001444

165640

2222222

SEQ 0094

TEST #7 - TEST (SR AND EIR BITO

TEST CSR AND EIR BITO

;eTEST 7

013472
013500
013502

D 8
PAGE 91

27-0CT-80 15:53

THIS TEST INSURES THAT BIT O OF THE CSR IS CLEAR WHEN IN (SR MODE (BIT
15 CLEAR), AND SET WHEN IN EIR MODE (BIT 15 SET).
A

RS2 X222 222202022 2222220 0RddRRdRdRRRRaRRttRRaRRlRildd)

BIT
8EQ

TYPE

#BIT11,aSWR
1001$
1000%

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
‘88 BRANCH IF NOT
88 TYPE: "T # 7"

.eeggz

/T 8 7/<CRLF>

:88 THE ASCII MESSAGE

B8R

foo1s

88 GET OVER ASCII

SCOPE
MOV
BIT

#9998 ,$LPERR
#8170.BORW

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%
‘TEST TO SEE IF WE ARE TESTING A DR11-W

002536
002560

CLR
MOV
MOV

aCSR
#B170,BUT
aCSR,RCSR

*FORCE ACCESS TO CSR
‘MOVE BIT O INDICATOR TO BIT UNDER TEST LOCATION
"MOVE CSR CONTENTS TO RCSR

002572

BEQ
MOV

1
RCSR,ECSR

166706
002562

ERROR
MOV
MOV

+14
PEIR,ACSR
3CSR.REIR

PCSR BIT TEST FAILED
G0 TO EIR MODE
'MOVE CSR CONTENTS TG RCSR

BNE

TST10

"BRANCH IF NOT A ZERO

001310
002610

999%:

002560

BIT

002572

002562
002574

002574

BEOQ

BIC
18:

BIT

1ST10

#8170, RCSR
#8170.ECSR

#8170, REIR

MOV

REIR,EEIR

ERROR

+15

BIS

#B1T0.EEIR

"BRANCH TO NEXT TEST If A DR11-B
SCLEAR ALL SUT BIT 0

*BRANCH IF A ZERO
'MOVE CSR TO EXPECTED DATA, ECSR AND

“CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR

:CLEAR ALL BUT BIT D

"MOVE C(ONTENTS TO ECSR ALSO AND

“SET THE O BIT - EXPECTED IT TO BE 1
“EIR BIT TEST FAILED

MACRO M1113

CIORLCO-DRI1 GEN NPR INTFC

27-0(T-80 15:53

TEST #10 -~ ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS

2786

.SBTTL

E_ 8
PAGE 92

SEQ 0095

TEST #10 - ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS

:."I"t'iQQQttt""'""'"'"""'i't"'""l"""t""""'.'Q'

eTEST 10

ATTN CAN BE SET VIA FNCT2 €& ERROR BIT SETS

Lo
i
M

013650
013656
013660
013664
013666
013676

032777
001407
104401
000404
124

004000

013666
040

000004
012737
032737
001073
005077
012777
017737
022737
001404
012737
104016
112777

2798 013772

013701

002560

022701

120000

017737

2799 013776 042701
2800 014002

2801 014006
2802 014010

2803 014016
2804 014022
2805 014030
2806 014032
2807 014040

2808 014046

2809 014054
2810 014056

2811 014064
2812 014072

001411
013737

004737
052737
104017
042777
017737

032737

001411
013737
042737

004737

2813 014076 104020
2814 014100

005077

043

E""'"Qi"'t"""""f't""""Q""""""".."""l""""
TST10: BIT
#BIT11,3SWR
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
BEQ
1001$
88 BRANCH IF NOT
TYPE
,10008
‘88 TYPE: T # 10"
BR
1001
:88 GET OVER ASCII
1000$:
ASCLZ /T 10/<CRLF> :88 THE ASCII MESSAGE
1001$:

013676
013700
2787 013706
2788 013714
2789 013716
2790 013722
2791 013730
2792 013736
2793 013744
2794 013746
2795 013754
2796 013756

2797 013764

165462

013716
000001

001310
002720

166600
010000
166566
010200

166572
002560
002560

010200

002572

000004

166536

166532

002560

9998:

18:

004060
120000

002572

002560

002560
120000

002572
002572

166416

SCOPE
MOV
BIT

#9998 SLPERR
#8170,00W

ERROR
MOVB

+16
#F2,aCSR

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999$
TEST TO SEE IF WE ARE TESTING A DR11-w
*BRANCH TO NEXT TEST If A DR11-B
:FORCE ACZESS TO CSR
IMAINT
MOVE RECEIVED DATA TO RCSR
“SEE IF EXPECTED DATA WAS RECEIVED
“BRANCH IF THEY ARE
:MOVE EXPECTED DATA TO ECSR
“READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN (SR
SSET FNCT2

RCSR,R1

MOVE CONTENTS TO R1 FOR BIT TEST

FER+AT,R1

“TEST TO SEE IF ERROR AND ATTN ARE SET

BNE
CLR
MOV
MOV
CMP
BEQ
MOV
MOV

166462
002560

28:

aCSR,RCSR

#(81513,R1

BEQ
MOV

28
RCSR,ECSR

JSR
BIS
ERROR
EIC
MOV

BIT

BEQ
MOV

BIC
JSR

ST
aCSR
#MA,3CSR
aCSR,RCSR
FMA+RY ,RCSR
13
FMA+RY ,ECSR

BIC

CMP

020004
166456
120000

004060

JEV

MOV

057777

002560

THIS TEST INSURES THAT THE ATTN BIT (BIT 13) SETS VIA FNCT2 AND ERROR
BIT SETS.

ERROR
CLR

PC,CHKCAB
FER+AT,ECSR
+17
FAT+F2,aCSR
aCSR,RCSR

FER+AT,RCSR

MOVE THE CONTENTS TO RCSR

*CLEAR ALL BUT BITS ERROR & ATTN FOR TEST
:BRANCH IF IT IS PROPERLY SE1
:MOVE EXPECTED DATA TO ECSR

G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
“SET THE BITS THAT SHOULD HAVE BEEN SET
ATTN AND ERROR FAILED TO SET PROPERLY
*CLEAR ATTN & FNCT2
:MOVE CSR DATA TO RCSR

“BIT TEST ATTN AND ERROR BITS TO SEE IF THEY ARE CLEAR

38
RCSR,ECSR

‘BRANCH If ATTN IS CLEAR
:MOVE EXPECTED DATA TO ECSR

+20

ATTN AND ERROR FAILED TO CLEAR PROPERLY

FER+AT ECSR
PC,CHKCAB
aCSR

CLEAR THE BITS THAT WERE SUPPOSED TO BE CLEAR
GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
RETURN TO CSR

CIORLCO-DRT1 GEN NPR INTF(
MACRO M1113
TEST #11 - FNCT BIT 1 CONTROLS DSTAT BIT 9

2820

27-0CT-80 15:53

LSBTTL

N
M

SEQ 0096

TEST #11 = FNCT BIT 1 CONTROLS DSTAT BIT 9
R

J*TEST N
2

PAGE 93

FNCT BLT 1 CONTROLS DSTAT BIT 9

THIS TEST INSURES THAT FNCT BIT 1 CONTROLS DSTAT BIT 9.

;"Qttt't"'t'tt"t"""""'"t"""""""""'""."""""

014104

014112
016114
014120
0146122
014132

032777
001407
104401
000404
124

014132
0164134
2821 014142

000004
012737
005077

2825 014170
2826 014174
2827 014200
2828 014202
2829 014210
2830 014212
2831 014220
2832 014226
2833 014234

013701
042701
001404
042737
104024
052777
017737
013737
013701

2822 014146
2823 014154
2824 014162

2834 014240
2835 014244

2836 014250

2837 014252
2838 014260
2839 014266

012777
017737
013737

042701
022701

001407

042737
052737
104025

004000

165226

TST11:

043

10008$:

014122
040

1001$:

014142
166354

001310

010000
166342
002560

166346
002560
002572

000016

002572

002002
166276
002560
002572

166302
002560
002572

006000
001000

002572
002572

002572
177761

170777
001000

999%:

1§:

BIT
BEQ
TYPE
B8R
.QSEXZ

#BIT11,3SWR
1001%
,1000%
1001%
/T # 11/<CRLF>

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
.88 BRANCH IF NOT
;80 TYPE: ''T # 11"
;88 GET OVER ASCII
;8% THE ASCII MESSAGE

SCOPE
Mov
(LR

#9998 ,$LPERR
aCSR

;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%
;CLR FUNCT BITS AND FORCE ACCESS TO CSR

MOV
BIC
BEQ
BIC
ERROR
BIS
MOV
MoV
MoV

ECSR,R1
#CFNC,RY
19
#ENC,ECSR
+24
#F1,3CSR
aCSR,RCSR
RCSR,ECSR
ECSR,RY

:MOVE CONTENTS TO R1 FOR TESTING
;CLEAR ALL BUT THE FNCT BITS
;BRANCH IF THE FUNCTION BITS ARE CLEAR
;CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
sFUNCTION BIT(S) ARE NOT CLEAR
SSET FNCT
;MOVE CONTENTS OF CSR TO RCSR
;MOVE EXPECTED DATA TO ECSR
+MOVE CONTENTS TO R1 FOR TEST

.EVEN

MoV
MOV
MOV

BIC
CMP

BEQ

BIC
B1S
ERROR

#MA (SR
aCSR,RCSR
RCSR,ECSR

#CDST,RY
#0SC,R1

15712

#DAB,ECSR
#0SC,ECSR
425

;MAINT MODE
;MOVE CONTENTS OF CSR TO RCSR
;MOVE EXPECTED TO ECSR

;CLEAR ALL BUT BITS 9, 10 & 11
;SEE IF DSTAT A AND B ARE CLEAR & C IS SET

;BRANCH TO NEXT TEST [F ALL CLEAR

;CLEAR THE DSTAT A § B BITS THAT SHOULD HAVE BEEN CLEAR
;SET THE DSTAT ( BIT THAT SHOULD HAVE BEEN SET
:DSTAT A, B OR C ARE NOT AS EXPECTED

CIDRLCO-DRT1 GEN NPR_INTFC
MACRO M1113
TEST #12 - FNCT BIT 2 CONTROLS DSTAT BIT 10

2845

G 8
PAGE 94

27-0CT-80 15:53

LSBYTL

SEQ 0097

TEST #12 - FNCT BIT 2 CONTROLS DSTAT BIT 10

;*TEST 12

FNCT BIT 2 CONTROLS DSTAT BIT 10

ARl

THIS TEST INSURES THAT FNCT BIT 2 CONTROLS DSTAT BIT 10.

22X 2R

014270
014276
014300
014304
01430¢
014316
014316

014320
2846 014326
2847 014332
2848 014340
2849 014346
2850 014354
2851 014360
2852 014364
2853 014366
2854 014374
2855 014376
2856 014404
2857 014412
2858 014420
2859 014424
2860 014430

2861 014434

2862 01464436
2863 014444
2864 014452

032777
001407
104401
000404
124
000004
012737
005077
012777
017737
013737
013701
042701
001404

004000

165042

TST12:

043

10008:

014306
040

1001$:

014326
166170
010000
166156
002560
002572
177761

166162
002560
002572

042737
104024
052777
017737
013737
013701
042701
022701

000016

002572

166112
002560
002572

002560
002572

042737
052737
104025

005000
002000

002572
002572

001407

000004

001310

166116

170777
002000

999%:

1§:

X222 222 22202022
000
Rt R R R RRRRRRRR Rl

BIT
BEQ
TYPE
BR
.QSEIZ

MIT11,35WR
1001%
.1000%
1001$
/T # 12/<CRLF>

SCOPE
MOV
(LR
MoV
MOV
MoV
MOV
BIC
BEQ
8IC
ERROR
BIS
MoV
MOV
MOV
BI(
CMP

#999% ,SLPERR
aCSR
#MA,aCSR
aCSR,RCSR
RCSR,ECSR
ECSR,R1
#CFNC,RY
1%
#ENC,ECSR
+24
#F2,aCSR
aCSR,RCSR
RCSR,ECSR
ECSR,R1
#COST,R1
#DSB R1

BIC
8IS
ERROR

#DAC,ECSR
#0SB,ECSR
+25

.EVEN

BEQ

15718

;88 TEST TO SEE [F TEST NUMBER TRACER ENABLED
.88 BRANCH IF NOT
;00 TYPE: ''T # 12"
;8% GET OVER ASCII
;88 THE ASCII MESSAGE
;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%
. .LR FUNCT BITS AND FORCE ACCESS TO (SR
;MAINT MODE
;MOVE CONTENTS OF CSR TO R(CSR
;MOVE EXPECTED TO ECSR
;MOVE CONTENTS TO R1 FOR TESTING
;CLEAR ALL BUT THE FNCT BITS
;BRANCH IF THE FUNCTION BITS ARE CLEAR

;CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
;FUNCTION BIT(S) ARE NOT CLEAR
;SET FNCT2
:MOVE CONTENTS OF CSR TO RCSR
:MOVE EXPECTED DATA TO ECSR
:MOVE CONTENTS TO R1 FOR TEST
:CLEAR ALL BUT THE DSTAT BITS
;1F DSTAT A AND C ARE CLEAR & B IS SET

;BRANCH TO NEXT TEST IF AS EXPECTED

;CLEAR THE BITS THAT SHOULD HAVE BEEN C(LEAR
;SET THE BIT THAT SHOULD HAVE BEEN SET
;DSTAT A, B OR C ARE NOT AS EXPECTED

MACRO M1113
CIDRLCO=DRTY GEN NPR_INTFC
TEST #73 - FENCT BIT 3 CONTROLS DSTAT BIT 11

SBTTL

2870

SeTEST

]

o
]

b d
d
i
d
el
i
D
ad
e
o
e
il
e

287N
2872
2873
2874
2875
2876
2877
2878
2879
2880
2381
2882
2883

IS85855552 5~
v WAV VN
R
LY — b o000
=14 ono £M0N

[elelelelelelelelelolaolelaloe]e] o

014454
014462
014464
014470
014472

2884
2885

2886 014620

2887 014622
2888 014630
2889 014636

032777
001407

004000

104401

016472

124

040

000404

000004
012737
005077
012777
017737

014512
166004
010000
165772

002560
002572

052777
017737
013737
013701
042701
022701
001407
042737
052737

000010
165726
002560
002572
170777
004000

104025

TST13:

043

1000$:
1001$:

013737
013701
042701
001404
042737
104024

SRR

001310
165776
002560
002572

999%:

177761

000016

003000
004000

002572
165732

002560
002572

1%:

R R

RRRRRRRRRRRRRRRR

Rl )]

FNCT BIT 3 CONTROLS DSTAT BIT 11

THIS TEST INSURES THAT FNCT BIT 3 CONTROLS DSTAT BIT 11,

164656

SEQ 0098

TEST #13 - FNCT BIT 3 CONTROLS DSTAT BIT 11

222

H
8
PAGE 95

27-0(CT-80 15:53

BIT
BEQ
TYPE
BR

Tt Pttt

N AR et PR

NN E e R T eI eaNeneeeetes

#BIT11,a5uWR
1001%
,1000%
1001%

;88
;88
;80
;8%

SCOPE
MOV
CLR

#999% ,SLPERP
a(SR

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 699%
:CLR FUNCT BITS AND FORCE ACCESS TO CSR

MOV
BIC
BEQ
8:C
ERROR
BIS
MOV
MOV
MOV
8l1C

ECSR,R1
#CFNC,RY
1%
#ENC,ECSR
+24
#F3,3CSR
oCSR,RCSR
RCSR,ECSR
ECSR,R1
#COST .M

:MOVE CONTENTS TO R1 FOR TESTING
:CLEAR ALL BUT THE FNCT BITS
:BRANCH IF THE FUNCTION BITS ARE CLEAR
:CLEAR THE BITS THAT SHOULD HAVE BEEN (LEAR
;FUNCTION BIT(S) ARE NOT CLEAR
;SET FNCT3
:MOVE CONTENTS OF CSR TO RCSR
;MOVE EXPECTED DATA TO ECSR
:MOVE CONTENTS TO R1 FOR TEST
:CLEAR ALL BUT DSTAT BITS

.QSEIZ

/T & 13/<CRLF>

TEST TO SEE IF TEST NUMBER TRACER ENABLED
BRANCH JF NOT
TYPE: "'T # 13"
GET OVER ASCII

;88 THE ASCII MESSAGE

.EVEN

MOV
MOV
MOV

CMP

8tQ

BIC
BIS
ERROR

#MA ,a(SR
aCSR,RCSR
RCSR,ECSR

#DSA R
TST14

#0BC,ECSR
#DSA,ECSR
+25

:MAINT MODE
;MOVE CONTENTS OF CSR TO RCSR
;MOVE EXPECTED TO ECSR

;SEE IF DSTAT B AND C ARE CLEAR & A [S SET

;BRANCH TO NEXT TEST IF DATA 0K

;CLEAR THE BITS THAT SHOULD HMAVE BEEN CLEAR
:SET THE BIT THAT SHOULD HAVE BEEN SET
:DSTAT A, B OR C ARE NOT AS EXPECTED

CZORLCO-DRI1

GEN NPR

MACRO M1113

INTF(

8
]
PAGE 96

27-0CT-80 15:53

TEST #14 - EIR BLOCKS DATA XFERS FROM ODR TO IDR

LSBTTL

2897

SEQ 0099

TEST #14 - EIR BLOCKS DATA XFERS FROM ODR TO IDR

:t"t""'"""""""""" X2X2X222ZX2XX222X232X22X2232222222222820}

SeTEST 14
b

(Ri

C14640
014646
014650
014654
01465¢

014666
014666
014670
2898 014676
2899 014704
2900 014706
2901 014712
2902 014720

2903 014726
2904 014734
2905 014742
2906 014744
2907 014752
2908 014754
2909 014762
2910 014770
2911 014776
ey12 015004
2913 015012
2914 015014
2915 015022
2916 015024

032777
001407
104401

000404
124
000004
012737
032737

001451
005077
012777
012777
017737
022737
001404
012737
104031
052777
012737
012777
017737
022737
001404
012737
104030
004737

EIR BLOCKS DATA XFERS FROM ODR TO IDR

THIS TEST INSURES THAT GOING TO EIR MODE BLOCKS DATA TRANSFERS FROM

ODR TO IDR (ODR RECEIVES DATA WHEN WRITING TO THE BDR, AND WHEN READING
THE BDR, THE IDR [S READ).

:"t'tt""'t"'"i"""""""'t'...t"'l""'.'"""""Q"""

TsT14:

004000

10008 :

040

10018

165610

010000
052525

001310
002610
165602
165576

052525

002564
002564

052525

002576

165572

100000

165540

052525
125252

002576

052525

002564

165522

052525
004036

#BIT11,3SWR
1001$

BR
.gsgéz

1001$
/T # 16/<CRLF>

g8
128
‘88
8L
8%

SCOPE
MOV
BIT
BEQ

#9998 ,$LPERR
#8170.BCRW
TST15

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR T0 999%
“TEST T0 SEE IF WE ARE TESTING A DR11-W
"BRANCH TO NEXT TEST IF A DR11-B

MOV

#52525,aBOR

SSET ALT 0'S AND 1'S TO BDR

TYPE

014656

014706
000001

BIT
BEQ

999%:

.EV

CLR
MOV
MOV

CMP

BEQ
MOV
1%:

165526
002564

ERROR

aBDR , RBDR

+31

*BDR PATTERN NOT CORRECT

#52525 ,EBOR
#125255.3BDR

“MOVE EXPECTED DATA TO EBOR
:SET ALT 1'S AND 0°'S [0 BDR

1%
#52525,EBDR

3BDR ,RBOR

MOV

ERROR

JSR

*MOVE RECEIVED DATA TO RBDR

#52555,RBDR

MOV

MOV
MOV

*FORCE ACCESS TO (SR
“SET MAINT MODE (SO THAT IDR GETS ODR CONTENTS)

*SEE IF DATA WAS LOADED PROPERLY

#EIR,ACSR

BEQ

2%:

aCSR
#MA,aCSR

B1S

CMP

002576

,1000%

TEST TO SEE IF TEST NUMBER TRACER ENABLED
BRANCH IF NOT
TYPE: T # 14"
GET OVER ASCII
THE ASCII MESSAGE

#52525 ,RBOR
2%

#S.

+30

25,EBOR

PC,CLENUP

:BRANCH IF IT WAS
‘MOVE EXPECTED DATA TO EBOR
‘60 T0 EIR

‘MOVE RECEIVED DATA TO RBOR

STEST FOR OLD PATTERN

'BRANCH IF ORIGINAL PATTERN STILL THMERE
‘MOVE EXPECTED DATA TO EBOR

'BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN

"SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI T0 7

MACRO M1113 27-0CT-80 15:53
CZDPLCO-DRTY GEN NPR INTF(
TEST #15 - DRIV INTERRUPTS WITH CPU AT LEVEL 3

LSBTTL

2923

015030
015036
015040

015044
015046

015056
015056
015060
2924 015066

2928 015114

2929 015120
2930 015122
2931 015130
2932 015134
2933 015130
015144
934
2937 015166
2938 015174
2929 015202
2940 015206

2941 015210
2942 015216
2943 015224
2944 015232
2945 015234
2946 015240
2947 015242
2948 015246
2945 015254

032777
001407
104401

000404
124
000004
012737
012777
005077
012737
017737
105737

100406

004000

164302

015046
040

043

165410

002560

001310
165426

000200
004060

002572

165364
165360
015242
010000
001000
000105
002660

002532
002534

165306

002560
165302
165276

005077
000410
062706
013777
013777

165262

104035

10008:

002532
002534

000004
002532
002534

999%:

177776
002560

01,37
004737
104022
017737
017737
012777
012777
012737
052777
005337
001375
017737
013777
013777

165252
165246

AN ARRRARRRRRRRRRRAA)

THIS TEST INSURES THAT THE DR11 WILL INTERRUPT WITH THE CPU PRIORITY
AT LEVEL 3.

.23211
.

SCOPE
MOV
MOV
CLR
MOV

MOV
TSTB
BM]
MOV
JSR

1%:

ERROR

{001s

188 GET OVER ASCII

#9998 SLPERR

PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

/T # 15/<CRLF>

#MA,aCSR
aCSR
SLEVEL3,PSW
aCSR,RISR
RCSR
1%

#RY,ECSR
PC,CHKCAB

+22

88 THE ASCII MESSAGE

"SET MAINTENANCE BIT AND
“CLEAR CSR TO DO AN INIT
"STATUS AT LEVEL 3

'MOVE CSR CONTENTS TO RCSR
“SEE IF READY BIT (BIT 7) IS SET
“BRANCH IF IT IS

“SET THE BIT THAT SHOULD HAVE BEEN SET
60 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY

"READY OF CSR WAS NOT SET

MOV
MOV

3DRINV.SORINV
ADRVS, SORVS

:SAVE LOCATION.TO BE USED AS THE INTERRUPT VECTOR
“SAVE LOCATION TO BE USED AS THE INTERRUPT PS

MOV
BIS

#1000, TIme
FIE+FO+GO,aCSR

:SET THE TIME COUNTER
;1E, FNCT2 AND GO

SORINV.3DRINV
SDRVS,3DRVS

-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
"RESTORE LOCATION USED AS THE INTERRUPT PS

MOV
MOV

165346
165334

(2660
165320

22222222

E""."it"t"""""t"'"""""t""t""ttt""'tt."""'.'
TST15: BIT
#BIT1%,3SWR
.88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
BRANCH IF NOT
%8
1001$
BEQ
TYPE
10008
‘88 TYPE: "'T # 15"

10018

015066
010000
165422
000140

X222

DR11 INTERRUPTS WITH CPU AT LEVEL 3

SeTEST 15
te
i

SEQ 0100

TEST #15 - DR11 INTERRUPTS WITH CPU AT LEVEL 3

X 222222222222
. %

J_ 8
PAGE 97

DEC
BNE
MOV
MOV
MOV
ERROR
CLR
BR
ADD

MOV
MOV

#38,30RINV
#MAACSR

TIME
28
aCSR,RCSR
+35
aCSR
TST16
84 ,SP

SDRINV.3DRINV
SDRVS, 4DRVS

'SET UP INTERRUPT VECTOR
*MAINT MODE

*DECREMENT DOWN T0 ZERO
"BRANCH IF NOT THERE YET
‘MOVE RECEIVED DATA TO RCSR

*DR11 FAILED TO INTEPRUPT
*CLEAR THE CSR TO DO AN INIT
"BRANCH TO THE NEXT TEST
"CLEAN THE STACK AFTER THE INTERRUPT

-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
"RESTORE LOCATION USED AS THE INTERRUPT PS

CIORLCO-DRT1 GEN NPR INTF(

MACRO M1113

27-0(CT-80 15:53

TEST #16 - DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL
7
2956

JSBTTL

PAGE 98

SEQ 0101

TEST #16 - DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7

;ti'tit't'tttttt'"t""""i"t"i't'fitt""t"""""'i"'tt""

;TEST 16

v
. %

015262

032777

004000

015272

104401

015300

124

040

015270

001407

015276 000404
015300

015310

015310
015312

2957 015320
2958 015324

2959 015332

000004
012737

004737

017737

105737

2960 015336
2961 015340
2962 015346
2963 015352
2964 015360

100411
012737
004737
052737
104022

2967 015376
2968 0154064
2969 015412
2970 015420
2971 015426
2972 015434

012777
012777
012737
012777
052777
005337

2965 015362
2966 015370

2973 015440
2974 015442
2975 015446
2976 015454
2977 015462

2978 015464
2979 015470
2980 015476

2981 015502
2982 015510
2983 015516

017737
017737

001375
005077
013777
013777
000416

062706
017737
005077

013777
013777
104036

164050
043

001310

165172

002560

004036
002560
000200
004060
000200

002572

165140
165134

002532
002534

015464
000340
001000
010000
000105
002660

TST16:

1000$:

165054

002532
002534
000004
165026
165020

002532
002534

9998:

1%:

2%:

165052
165046
002560

165016
165012

AT LEVEL 7.

BIT

#B1T11,aSWR

88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

TYPE

10008

88 TYPE: T # 16"

BEQ

1001$

‘8% BRANCH IF NOT

B8R

{001s

SCOPE
MOV

#9998 ,$LPERR

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

MOV

aCSR,RCSR

‘MOVE CSR DATA TO RCSR

‘?3%#2

JSR

TSTB

002572
165122
165116
002660
165074
165066

THIS TEST INSURES THAT THE DR11 FAILS TO INTERRUPT WITH THE CPU PRIORITY

:ttttt'tttt"ti't"'i't"""'0'ttt'.'tt.ttt't"t""tt'ttt"'t""

10018

015320

DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7

BMI
MOV
JSR
8IS
ERROR

MOV
MOV
MOV
MOV
MOV
MOV
BIS
DEC

BNE
CLR
MOV
MOV
BR

ADD
MOV
CLR

MOV
MOV
ERROR

/T # 16/<CRLF>

PC,CLENUP
RCSR

188 GET OVER ASCII

88 THE ASCII MESSAGE

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
‘CLEAR ALL BUT THE READY BIT (BIT 7)

1%
#RY,ECSR
PC,CHKCAB
#RY,ECSR
+22

‘BRANCH IF IT IS SET
:MOVE EXPECTED DATA TO ECSR
;G0 CHECK CABLE STATUS AND ALTER EXPECTED IT NECESSARY
“SET THE BIT THAT SHOULD HAVE BEEN SET
‘READY OF CSR WAS NOT SET

#3%,30RINV
#LEVELT,aDRVS
#1000, TiME
#MA,3(SR
#LIE+F2+GO,aCSR
TIME

*SET UP INT VECTOR

3DRINV.SORINV
aDRVS,SDRVS

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS

28
aCSR

;SET TIME DELAY COUNTER
‘MAINT MODE
:1E, FNCT2 AND GO
*DECREMENT UNTIL WE GET TO ZERO
*BRANCH BACK IF NOT 2ERO YET
*CLEAR THE CSR TO DO AN INIT

#4,SP
aCSR,RCSR
aCSR

‘RESTORE STACK
*MOVE RECEIVED DATA TO RCSR
SCLEAR IE

SDRINV,3DRINV
SDRVS,aDRVS
TST1?

SORINV,3DRINV
SDRVS,aDRVS
+36

-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
"RESTORE LOCATION USED AS THE INTERRUPT PS
"BRANCH TO THE NEXT TEST

-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
"DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE

MACRO M1113 27-0CT-80 15:53 PAGE 59

CIORLCO-DRi1 GEN NPR INTF(

TEST #17 - DR11

8
SEQ 0102

INTERRUPTS AT CORRECT BR LEVEL

LSBTTL

2990

TEST #17 - DR11 INTERRUPTS AT CORRECT BR LEVEL

;'Qt"'tlt"lt""t'"'""'"ii"""'t"ttttt"'tttt"'t't't"'tt

DR11 INTERRUPTS AT CORRECT BR LEVEL

:'TEST 17
.
*

THIS TEST INSURES THAT THE DR11 WILL INTERRUPT AT THE CORRECT LEVEL AS
DEFINED IN THE DEVICE DESCRIPTOR WORD.

3027 016034
3028 016036
3029 016040
3030 016042

000004
012737
004737
013737
006237
006237

163612

TST17:

015536
040

043

1000$:
1001$:

015632
004036
002720
001362
001362
001362
001362
001362
177770
000003
005264
010000
164656
177776
164646
000200
004060

TYPE
BR

.ASC1Z
.EVEN

SCOPE

MOV
ASR
ASR
ASR
ASR
ASR
BIC
MOV
MOV
MOV
CLR
MOV
MOV
MOV

001362
164662

JSR

1%:

999%:

002560
002572

015622
000200

001310
002572

015632
164576
164572
016052
000340
010000
000400
000105
002660

001310
002532
002534

002552

BIT
BEQ

001362

002572

002532
002534
177776

I e I

MOV

002560

1646512

001310

164560
164554
164540
002660
1646524

VY,

104401

000404
124

004000

s,rO—
(=¥ Yo

e
g

3003 015644
3004 015650
3005 015656
3006 015664
3007 015670
3008 015675
3009 015700
3010 015706
3011 015714
3012 015716
3013 015724
3014 015732
3015 015740
3016 015746
3017 015754
3018 015762
3019 015770
3020 015776
3021 016002
3022 016004
3023 016010
3024 016016
3025 016024
3026 016032

032777
001407

O =b =2
[=1-d
oD
S~

osroo0no

OCOO0000

- ad i el

OOO0O0O

WVIVVATWAWIWY
WVVTILAW
VIVIWAWVIVY . VIV
WNINLNNIN)

002540

JSP
CMP
BEG

MOV
MOV

ERROR

2%:

MOV

MOV
MoV
MOV
MOV
MOV

BIS

DEC

BNE
CLR
MOV
MOV
MOV
TST

DEC
BNE
ERROR
L [1]")

X2 2R

R AR

#BIT11,3SWR
1001$
10008

foo1s

/T # 17/<CRLF>

#999% ,SLPERR
PC,CLENUP

DDW,$TMPY
$TMP1Y
$TMP1
$TMP1
$TMP1
$TMP1
#177770,8TMPY

#3,R0

FLEVELS,R1
#MA,3CSR

aCSR
(R1) ,PSW
8CSR,RCSR

#RY,ECSR
PC,CHKCAB
RgSR.ECSR

R Rt

RRRRRRRRRl i)

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;80 TYPE: "'T # 17"
;8% GET OVER ASCII
;88 THE ASCII MESSAGE
;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

:MOVE DEVICE DESCRIPTOR WORD TO $TMP1

;SHIFT THE LEVEL TO THE RIGHT 5 PLACES

sCLEAR ALL BUT THE PRIORITY
:D0 3 PRIORITY LEVELS
:MOVE ADDRESS OF CPU PRIORITIES TO R1
;SET THE MAINTENANCE BIT AND
:CLEAR TO DO AN INIT
:PUT PRIORITY INTO PSW
:MOVE RECEIVED DATA TO RCSR
;MOVE READY BIT TO ECSR

;60 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
;SEE IF RECEIVED DATA MATCHES EXPECTED

:BRANCH IF OK

+22

:MOVE EXPECTED DATA TO ECSR
+READY OF CSR WAS NOT SET

#LEVEL7,aDRVS

:SET UP INTERRUPT VECTOR
:SET UP INTERRUPT PS

2400, T1ME

;SET DELAY COUNTER

#1%,SLPERR
#RY.ECSR

#9998, SLPERR
ADRINV, SDRINV
aDRVS, SDRVS
#48,30RINV
#MA, aCSR

#1E+F2+G0,ACSR
TIME

aCSR
SORINV,@DRINV
SDRVS ,8DRVS
PSW, LEVEL
(R1)+
RO
999%

+53%
DRLEV,LEVEL

;SET UP FOR POSSIBLE LOOP ON ERROR FOR THIS ERROR ONLY
;RETURN ORIGINAL LOOP ON ERROR ADDRESS = DID NOT LOOP
;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS
;MAINT MODE

;1E, FNCT2 AND GO
:DECREMENT UNTIL WE GET TO ZERO
:BRANCH BACK IF NOT ZERQ YET
:CLEAR CSR TO DO AN INIT
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:SAVE OLD STATUS LEVEL

: INCREMENT R1 TO POINT TO NEXT PRIORITY LEVEL
:DECREMENT LOOP COUNTER AND

:BRANCH BACK FOR ANOTHER TRY [F NOT DONE

:DR11 FAILED TO INTERRUPT
;SET LEVEL TO CONTAIN THE ANTICIPATED LEVEL

CIDRLCO-DRT1 GEN NPR INTF(

MACRO M1113

27-0CT-80 15:53

TEST #17 - DR11 INTERRUPTS AT CORRECT BR LEVEL
3031 016050
3032 016052
3033 016056
3034 016062

000422
062706
005077

3035 016070

013777
013777

3037 016104
3038 016112
3039 016114

023737
001401
104052

000004
164440

($:

002532
002534

164436
164432

002540

002552

3036 016076 042737 177437 002540

BR
ADD
CLR
MOV

75120
#4,5P
(SR

B1C

#177487 LEVEL

MOV
(MP
BEQ
ERROR

PAGE 99-1

SORINV,3DRINV
SORVS ,@DRVS

LEVEL ,DRLEV
15720
+52

SEQ 0103
:BRANCH TO THE NEXT TEST
;RESTORE STACK
;CLEAR IE
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR

;RESTORE LOCATION USED AS THE INTERRUPT PS

:CLEAR ALL BITS BUT THE BR LEVEL

;SEE IF LEVEL INTERRUPTED MATCHES EXPECTED
;BRANCH AROUND ERROR CALL IF IT IS AS EXPECTED
;DR11 INTERRUPTED AT WRONG LEVEL

CIDRLCO-DRT1 GEN NPR INTF(
MACRO M1113 27-0CT-80 15:53
TEST #20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT
3046

.SBTTL

PAGE 100

SEQ 0104

TEST #20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT

;tt'ttQttttttt'tttttt't"t'"""t'Qtt'tti"t"tt"t't"t"'t"'t"

SeTEST 20
;'

‘e

i
* %

016116
016124
016126

032777
001407
1064401

004000

016134

124

040

016132

016144

000404

016144
016146

000004
012737

3048 016160
3049 016166
3050 016174
3051 016202
3052 016210
3053 016214
3054 016222
3055 016230
3056 016236
3057 016242
3058 016244
3059 016252
3060 016260

017737
017737
012777
012777
005037
012737
012777
052777
005337
001375
013777
013777
017737

3047 016154

3061 016266
3062 016270

3063 016274
3064 016276
3065 016302
3066 016310
3067 016316
3068 016324
3069 016326
3070 016334
3071 016342

004737

104035
005077
000512
062706

3076 016372

013777
013777
017737
100407
013737
052737
104037
017737
017737
012777
005077
012777

3078 016406
3079 016414
3080 016420
3081 016422

052777
005237
001375
013777

3072 016344
3073 016352
3074 016360
3075 016366

163216

016134
043

001310

164342
164336
016276
000140
177776
001000
010101
020004
002660

002532
002534
164324
164320

002532
002534
164236

164254
164250
002560

004036

002660
164272
164264

1000$:

9998:

1$:

164216
164212
002560

002560
100000

002572
002572

164156
164152
016454
164126

002532
002534
164140

177777

164116

000001
002660

164106

002532
002534
164060

164076
164072
002560

2%:

38:

3083 016436
3084 016444
3085 016446
3086 016452

013777

017737
104035
005077
000423

164050

foo1s

:88 GET OVER ASCII

SCOPE
MOV

#9998 ,$LPERR

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

MOV
MOV
MOV
MOV
CLR
MOV
MOV
BIS
DEC
BNE
MOV
MOV
MOV

aDRINV,SDRINV
:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
aDRVS, SDRVS
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS
#2%,30RINV
S INTERRUPT VECTOR TO 38
#LEVEL3,a0RVS : INTERRUPT STATUS TO LEVEL 3
PSW
PLET THE DR11 INTERRUPT
#1000, TIME
‘MOVE DELAY COUNTER TO LOCATION
#MA+1E+GO,aCSR :SET MAINT, IE AND GO
#AT+F2,aCSR
SSET ATTN AND FNCT2
TIME
:DECREMENT UNTIL WE REACH ZERO
1%
*BRANCH IF NOT ZERO YET
SORINV,@DRINV
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
SDRVS,aDRVS
:RESTORE LOCATION USED AS THE INTERRUPT PS
aCSR,RCSR
‘MOVE RECEIVED DATA TO RCSR

'23%#1

JSR

BR
ADD
MOV
MOV
MOV
BM]
MOV
BIS
ERROR

4$:

/T # 20/<CRLF>

PC,CLENUP

+35
aCSR
TsT21
06, SP

MOV
MOV
MOV
CLR
MOV

SORINV,3DRINV
SDRVS , 8DRVS
aCSR,RCSR
3s
RCSR,ECSR
#ER,ECSR
+37
aDRINV,SDRINV
aDRVS, SDRVS
#5%,30RINV
aBAR
#-1,aWCR

BIS
INC
BNE
MOV

#60,aCSR
TINE
48
SORINV.3DRINV

MOV

3077 016400 012737 001000 002660
3082 0166430

ERROR
CLR

164226

000004
002532
002534
164200

THIS TEST INSURES THAT SETTING THE GO BIT WITHOUT CLEARING THE ERROR

BIT CAUSES AN INTERRUPT.

E'tt'tttttttttt"t""t"'Qt'"'ttttt't"ttittt"'ttt"tt'tt'.t't't
1ST20: BIT
#BIT11,aSWR
;48 TEST TO SEE IF TEST NUMBER TRACER ENABLED
BEQ
1001$
148 BRANCH IF NOT
TYPE
10008
‘e TYPE: "'T # 20"

10018

016154

A GO WITHOUT CLEARING ERROR CAUSES INTRPT

MOV

MOV
ERROR
CLR
B8R

:88 THE ASCII MESSAGE

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI 10 7

:DR11 FAILED TO INTERRUPT
*CLEAR THE CSR TO DO AN INIT

‘BRANCH TO THE NEXT TEST
‘READJUST STACK AFTER THE INTERRUPT
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
‘RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR
:BRANCH If ERROR IS SET
:MOVE EXPECTED DATA TO ECSR
SSET THE BIT THAT SHOULD HAVE BEEN SET
:ERROR BIT SHOULD NOT BE CLEAR

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS
< INTERRUPT VECTOR TO 6$
‘PREVENT CAUSING ANOTHER ERROR
SSET-UP WCR

01000, TImE

*LOAD 1000 IN LOCATION TIME FOR WALT LOOP

SORVS,3DRVS

‘RESTORE LOCATION USED AS THE INTERRUPT PS

3CSR,RCSR
+35
CSR
15121

SET '6G0' IN CSR
‘DELAY = WAIT FOR INTERRUPT
‘BRANCH BACK IF NOT ZERO
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR

*MOVE RECEIVED DATA TO RCSR
:DR1Y FAILED TO INTERRUPY
“CLEAR CSR TO DO AN INIT
;BRANCH TO THE NEXT TEST

—

CIORLCO-DRi1 GEN NPR INTF(

——

MACRO M1113

—_—

27-0CT-80 15:53

TEST #20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT
3087 016454
3088 016460
3089 016466
3090 016474

062706
013777
013777
017737

900004
002532
002534
164022

164040
164034
002560

3092 016504
3093 016512
3094 016520

013737
042737
104021

002560
100000

002572
002572

3091 016502

100007

5%:

B 9
PAGE 100-1

SEQ@ 0105

ADD
MoV
Mov
MOV

#4,5P
SORINV,3DRINV
SORVS ,@DRVS
8CSR RCSR

;CLEAN UP STACK AFTER INTERRUPT
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
;RESTORE LOCATION USED AS THE INTERRUPT PS
;MOVE RECEIVED DATA TO RCSR = IS ERROR CLEAR

MOV
81C
ERROR

RCSR,ECSR
NER ECSR
+21

;MOVE EXPECTED DATA TO ECSR
;CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR
;ERROR BIT SHOULD HAVE BEEN CLEAR

BPL

TsTef

;BRANCH TO NEXT TEST IF IT IS

—

—_—

MACRO M1113

CIORLCO-DRT1 GEN NPR INTFC

27-0(T-80 15:53

TEST #21 - FUNCTION BITS INC WITH MAINT MODE TRANSFERS

LSBTTL

3101

c 9
PAGE 101

SEQ 0109%

TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS

:Gtt'i"'Qttt.t""""t"'"t""""""i"""t""'t"'iQtt""

FUNCTION BITS INC WITH MAINT MODE TRANSFERS

JeTEST 20
X

o
]

THIS TEST INSURES THAT THE FUNCTION BITS INCREMENT WITH MAINTENANCE

MODE TRANSFERS.

CRNARANRRARNN

016522
016530
016532
016536
016540

016550
016550

16764

16774

032777
001407
104401
000404
1264

000004
012737
012737
012737
004737
013777
017737
017737
012777
013777
013777
005037
012777
012737
052777
005337
001375
017737
013777
013777
104035
005077
000442
062706
013777
013777
017737
013701
042701
020137
001412
013737
062737
053737
104212

005237
162737
001264

004000

162610

Tst21:

043

10008 :

016540
040

10018$:

016574
000016
17771

004036
002616
163714
163710
016732
002540
001360
177776

001310
001364
001360
163712
002532
002534
163676
163672
163652

010000
001000
000501
002660

163644
002660
163630

163616

002560
163612

002532
002534

9998:
1$:

002532
002534
163544

002560
177761
001364

2%:

88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
148 BRANCH IF NOT
‘8L TYPE: T # 21"

/T # 21/<CRLF>

:88 THE ASCII MESSAGE

f001$

188 GET OVER ASCII

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

JSR

PC,CLENUP

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI 10 7

MOV
MOV

MOV

#16,8TMP2
2-7.8THPO

INBUF ,@BAR

MOV
MOV

SDRINV,SDRINV
aDRVS , SDRVS

MOV
MOV
CLR

LEVEL ,@DRVS
$TMPO,aWCR
PSW

8IS
DEC
BNE

#38,3DRINV

SSET UP FUNCTION COUNT COMPARE
*SET UP WCR LOAD VARIABLE
:SET-UP BAR

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS
S INTERRUPT VECTOR

*INTERRUPT VECTOR PRIORITY TO LEVEL OF DEVICE
*SET UP FOR NUMBER OF TRANSFERS IN $TMPO

#MA 3CSR

TLET THE DR11 INTERRUPT
‘MAINT MODE

#IE+CY+GO,aCSR
TIME
28

:1E, CYCLE & GO
:DECREMENT UNTIL ZERO
:BRANCH BACK IF NOT

SDRINV,3DRINV
SDRVS ,@DRVS
+35
aCSR

RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS
:DR11 FAILED TO INTERRUPT
*CLEAR THE CSR TO DO AN INIT

#1000, TIme

MOV

3CSR,RCSR

B8R

T$122

‘MOVE WAIT COUNTER TO LOCATION TIME

*MOVE RECEIVED DATA TO RCSR

*BRANCH TO NEXT TEST

ADD
MOV
MOV

8 ,SP
SDRINV,3DRINV
SDRVS, 8DRVS

SCLEAN UP STACK AFTER INTERRUPT
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
‘RESTORE LOCATION USED AS THE INTERRUPT PS

BIC
CMP

BIC

#CENC,RY
R1,$THP2
43
RCSR,ECSR
#FNCECSR

*CLEAR THE FUNCTION BIT(S) THAT WERE THERE AND

ERROR

+212

SFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE

22,8THP2

*SUBTRACT 2 FROM FUNCTION COUNT TEST LOCATION

MOV
MOV

BEQ
MOV

8IS
4$:

#BIT11,aSWR
1001$
1000%

#9998 ,$LPERR

MOV
MOV
ERROR
CLR

3s:

RN RN AN AN NN NAANCRANNNANNAROAEOENARAONRCNNS

SCOPE
MOV

MOV

002560
000016
001364

001360
000002

.esgfiz

MOV

163606

163562
163556
002560

B8R

MOV

163572

000004

BIT
BEQ
TYPE

INC

SUB

BNE

ACSR,RCSR
RCSR,R1

$TMP2,ECSR
$THPO

:MOVE RECEIVED DATA TO RCSR
‘MOVE RECEIVED DATA TO R1 ALSO AND
‘CLEAR ALL BUT THE FUNCTION BITS
*SEE IF FUNCTION BIT(S) HAD INCREMENTED PROPERLY
*BRANCH IF THEY HAD
*MOVE RECEIVED DATA TO EXPECTED LOCATION

*PUT FUNCTION BIT(S) EXPECTED IN THEIR PLACE

*ADJUST WCR LOAD LOCATION

*BRANCH BACK FOR ANOTHER TRY

MACRO M1113

CIZORLCO-DR11 GEN NPR INTF(

TEST #22 - TEST FOR 10 MAINT MODE TRANSFERS

27-0CT-80 15:53

LSBTTL

3143

D 9
PAGE 102

SEQ 0107

TEST #22 - TEST FOR 10 MAINT MODE TRANSFERS

X222 2222232222222 22222222 2222232222202 2222022220200 0RRd0RdRRRdd)

SATEST 22

TEST FOR 10 MAINT MODE TRANSFERS

. %

THiS TEST CHECKS IF 10 MAINTENANCE MODE TRANSFERS CAN BE DONE.

CRAARRARRE AN AR AN AR AN RN AR

017064
017064
017066
017074
017100
017106
017114
017120
017124

P )

~4
~N

—b

[olelalelelelelalalalalele] [=]=lelelelalalelelele)

032777
001407
104401
000404
124

000004

012737
005077
012737
013737
005437
004737
004737
013777
013777
012777
017737
017737
012777
013777
005037
012777
052777
012737
005337
001375
013777

17252
17260

004000

162274

TST22:

017054
040

043

1000$:
1001$:

017074
163422
000010
002622
002630
003472
003520
002630
002616
177777
163350
163344
017270
002540
177776
010000
000501
001000
002660

001310
002622
002630

999$:

163360
163354
163352
163332
163326

004737

004014

SCOPE

MOV

CLR

Mov
MOV

MOV

1%:

B1S
MOV
DEC
BNE
Mov

MOV
MOV

i
d wad
ad
e
e

002714
003716

LASCIZ
.EVEN

CLR

163306
163300

002532
002534
163244

000004
002532
002534
003546

TYPE
BR

MOV
MOV
MOV
MOV
MOV
MOV
MOV

002532
002534

002660

BIT
BEQ

NEG
JSR
JSR

163234

d
o

=200V NO VNS WN 2O O®~NOWV S
— OOV®NOWVNEBWN

~NNNNNNNNOOCOOPOONONONO
O VAWV
S B 8 2 - 0
~

00 ~NOMN SN

—t

W A

AN W U U L

i A

U Al L

W L W A

o U

—‘—A.‘—O—A—b—‘-fi—l—l—.—l-fl—.—l-—l—.-—l — o o

el D e

D d D ) el D b

N AN N AN NN WA

017036
017044
017046
017052
017054

2%:

ERROR
CLR
BR
ADD
MoV
MOV

JSR
ERROR
CLR
JSR
ERROR
JSR

#B1T11,aSWR
1001$
1000$

1001$

/T # 22/<CRLF>

#999% ,$LPERR
aCSR
#10,BUFLEN
BUFLEN,WCLEN
WCLEN
PC,LODBUF
PC,CHKBFF

WCLEN,8WCR
INBUF ,@BAR
#-1,8BDR
aDRINV,SDRINV
aDRVS,SORVS
#2838 ,8DRINV

LEVEL ,aDRVS

PSSV
#MA,3CSR
#IE+CY+GO,aCSR

#1000,TINE
TIME
1%

SDRINV,8DRINV
SDRVS,aDRVS
8CSR,RCSR

+35

a(SR

#,5P
SORINV,aDRINV

RN RN RANANNRANANRANORARAORARNORNCOECS

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;00 TYPE: ''T # 22"
;8% GET OVER ASCII
;88 THE ASCII MESSAGE

;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%
;FORCE ACCESS TO CSR

;BUFLEN=10
;PREPARE NUMBER FOR W(CR
:2'S COMPLEMENT OF BUFLEN
;LOAD IN BUFFER WITH INCREMENTING PATTERN
sLOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
:SET UP WCR
:SET UP BAR
sMAINT AIDE

;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
;SAVE LOCATION TO BE USED AS THE INTERRUPT PS
s INTERRUPT VECTOR

; INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
;LET DR11 INTERRUPT

sMAINT MODE

;1E, CYCLE & GO
;SET LOOP COUNTER FOR WAIT
;DECREMENT UNTIL WE GET TO ZERO
:BRANCH BACK IF NOT ZERO

;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR
;DR11 FAILED TO INTERRUPT
;CLEAR THE CSR TO DO AN INIT
;BRANCH AROUND THE STACK CLEANUP
;CLEAN UP STACK AFTER THE INTERRUPT

PC,DATCHK

;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
;RESTORE LOCATION USED AS THE INTERRUPT PS
;G0 LEAR 1E, CHECK ERROR, READY, WCR=0 AND BAR
;CSR AND-OR WCR AND-OR BAR ARE INCORECT
;CLEAR THE ERRCNT LOCATION FOR USE OF ERPOR +201
;CHECK INBUF AFTER A MAINTENANCE MODE OPERATION

PC,DATCH?

;60 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK

SORVS,aDRVS

PC,INTA

+51

ERRCNT

+201

;BUFFER DATA NOT CORRECT

MACRO M1113
CIORLCO-DRT1 GEN NPR INTF(
TEST #23 - TEST 10 MAINTENANCE MODE XFERS

27-0CT-80 15:53

JSBTTL

3185

:i
8

104051

017352

017372
004036
001000
000010
002622
002630
003472
003520
002630
002616
1777777
163044
163040
017572
002540
010000
000501
002660

001310

002532
002534
003546

2770
2764

002714
003716

004737
000415

004014
000004
002532

002534
162704

000523

10008 :
1001%:

005037
004737
104201

043

040

010000
001000

002630
002616

162646
162642
020042

002660

999%:

002622
002630

TEST #23 - TEST 10 MAINTENANCE MODE XFERS
TEST 10 MAINTENANCE MODE XFERS

THIS TEST CHECKS THAT 10 MAINTENANCE MODE TRANSFERS, ATTEMPTED BEFORE
SERVICING A PENDING INTERRUPT OF A PREVIOUS TRANSFER, ARE UNSUCCESSFUL.

B8R

1001$

18 GET oven ASCII

SCOPE
MOV

#999% ,SLPERR

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

MOV

#1000, TImE

SSET DELAY

.esglz
N

JSR

WCLEN, aWCR
INBUF , aBAR

MOV
MOV

3DRINV,SDRINV
aDRVS, SORVS

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS

MOV

LEVEL ,@aDRVS

“INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE

MOV

BIS
DEC
BNE
MOV
MOV

JSR

ERROR

162722
162716

38:

#-1,a380R

#2%,30RINV
#MA,aCSR

“LOAD IN BUFFER WITH INCREMENTING PATTERN
"LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
“SET UP WCR
*SET UP BAR

‘MAINT AIDE

:INTERRUPT VECTOR
‘MAINT MODE

FIE+CY+GO,aCSR
TIME
1s
SDRINV.@DRINV
SDRVS,aDRVS

:IE, CYCLE & GO
‘WAIT FOR TRANSFERS TO
‘BRANCH BACK IF WE ARE
-RESTORE LOCATION USED
*RESTORE LOCATION USED

+51

*CSR AND-OR WCR AND-OR BAR ARE INCORECT

PC,INTA

COMPLETE
STILL WAITING
AS THE INTERRUPT VECTOR
AS THE INTERRUPT PS

‘GO CLEAR IE. CHECK ERROR, READY, WCR=0 AND BAR

ERRCNT
PC,DATCHK

*CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
‘CHECK INBUF AFTER A MAINTENANCE MODE OPERATION

JSR

PC,DATCH2

160 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK

ADD
MOV
MOV

¥, SP
SDRINV,3DRINV
SDRVS,8DRVS

*CLEAN UP THE STACK FROM THIS INTERRUPT
RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS

ERROR

+36

:DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE

MOV

002560

PC,LODBUF
PC.CHKBFF

'8UFLEN=10
:PREPARE NUMBER FOR WCR
12'S COMPLEMENT OF BUFLEN

CLR
JSR

ERROR
2%:

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

MOV
MOV

MOV

1%:

PC,CLENUP

;88 THE ASCI1 MESSAGE

#10, BUFLEN
BUFLEN,WCLEN
WCLEN

MOV

022
006

/T # 23/<CRLF>

MOV
MOV
NEG

JSR
JSR

LV,
&~

004737
012737
012737
013737
005437
004737
004737
013777
013777
012777
017737
017737
012777
013777
01¢777
052777
005337
001375
013777
013777
004737

161776

b b d e C ) b d ek
o-ooooOrOO0O0NOO
NN AN N PO
NN N

b
d od
b
d
d
d
d
d
d
b

000004
012737

004000

—

124

AN UM AN AN AN A AN AN N NN

SEQ 0108

:'t'i't'ttt'.'t"""""""'"""""tt'""""'.'t'tt""""'
1s123: BIT
#B1T11,aSWR
;0L TEST TO SEE IF TEST NUMBER TRACER ENABLED
188 BRANCH IF NOT
1001$
8EQ
TYPE
,10008
‘48 TYPE: ''T # 23"

OO~

032777
001407
104401
000404

3¢01 017514
3202 017522
3203 017526
3204 017530
3205 017536
3206 017544
3207 017550
3208 017552
3209 017556
3210 017562
3211 017564
3212 017570
3213 017572
3214 017576
3215 017604
3216 017612
3217 017620
3218 017622
3219 017624
3220 017632
3221 017640
3222 017646
3223 017654
3224 017662
3225 017670

ttt't'ttt't"tt""t""""""'.'Q"""""'."Q"""""""'

.1551 23

017362
017362
017364
86 017372
87 017376
88 017404
89 017412
90 17420
91 017424
92 017430

PAGE 103

+201
3s

aCSR,RCSR

BR
MOV

15724
#MA,3CSR

MOV

WCLEN., aWCR

MOV
MOV

SDRINV,SDRINV
aDRVS, SORVS

MOV
MOV

MOV

#1000, TIme

:BUFFER DATA NOT CORRECT
*BRANCH TO CONTINUE

*MOVE RECEIVED DATA TO RCSR
*BRANCH TO NEXT TEST
‘MAINT MODE

:SET TIME LOOP COUNTER
sMOVE WCLEN TO W(CR

INBUF ,@BAR

‘MOVE INBUF TO BAR

#8%,30R [NV

“SET UP IWTERRUPT VECTOR

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS

MACRO M1113
DR11 GEN NPR INTF(
- TEST 10 MAINTENANCE MODE XFERS

012777
052777
005337
001375
013777
013777
017737
022737
001404
012737

104040

017737
022777
001004
023737
001412
017737
012737
013737
104041

3247 020040
3248 020042
3249 020046
3250 020054
3251 020062
3252 02C070

005077
000414
062706
013777
013777
017737
104042

6260
6257
0256
0256

MOV

CMP

BEQ

002572

532

177770

002566
162520

002616

002566

162502
177770
002616

002570
002602
002600

MoV

5%:

6%:

162462

7%:

000004
002532
002534
162434

8%:

162452
162446

002560

BlS
DEC
BNE

MCv
MOv
MOV

OO
—b b

162616
162610

27-0CT-80 15:53

ERROR

MOV

CMP
BNE
CMP
BEQ

MOV
MOV
MOV

ERROR
CLR
BR
ADD
MOV
MOV
MOV

ERROR

F
9
PAGE 103-1

#MA,ACSR
#IE+CY+GO,aCSR
TIME

48
SORINV,3DRINV
SORVS,aDRVS
aCSR,RCSR

g1o760,acsa

$
10700,ECSR
+40
9BAR,RBAR
#-10,8WCR
6%
INBUF ,RBAR
7%
aW(R, RWCR
#-10,EWCR
INBUF ,EBAR
+41
aCSR

18124

#4,SP

SDRINV,aDRINV
SDRVS,aDRVS
aCSR,RCSR
+42

SEQ 0109
sMAINT MODE

;IE, CYCLE & GO
:DECREMENT TO 2ERO WHILE WAITING
;BRANCH BACK IF NOT ZERO
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
;RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR
;SEE IF ONLY READY, MAINT, IE & CYCLE ARE CET
:BRANCH IF THEY ARE
;MOVE EXPECTED DATA TO ECSR
;CSR IS WRONG
JMOVE RECEIVED DATA TO RBAR
sCHECK THAT NO TRANSFERS WERE MADE
;BRANCH 70 ERROR If THERE WERE

;CHECK THAT NO
sBRANCH AROUND
;MOVE RECEIVED
:MOVE EXPECTED
sMOVE EXPECTED

TRANSFERS WERE MADE
ERROR F NONE
DATA TO RWCR
DATA TO EWCR
DATA TO EBAR

:TRANSFERS SHOULD MAVE BEEN INHIBITED

:CLEAR THE CSR TO DO AN INIT
;BRANCH TO NEXT TEST
:CLEAN UP STACK AFTER INTERRUPT

:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
;MOVE RECEIVED DATA TO RLSR
;DR11

SHOULD NOT HAVE

INTERRUPTED A 2ND TIME

6 9
PAGE 104

MACRO M1113
27-0(T-80 15:53
GEN NPR _INTF(
TE ST #24 - TEST FOR 200 NPR TRANSFERS IN MAINT MODE
(2 DRLCO-DR11

3258

LSBTTL

SEQ 0110

TEST #24 - TEST FOR 200 NPR TRANSFERS IN MAINT MODE

cHRRNtERARNRERRARNCECERORRRAROERNCOORRELROERRRRARRARARACRQOARNREOANROACOOACOQRARNRRNTRNTY

TeTEST 24

TEST

FOR 200 NPR TRANSFERS IN MAINT MODE

020072
0¢9100
020102
020106
020110
020120
020120
020122
3259 020130
020134
020140
020146
020154
020160
020164
020170
020176
020204
020212

020220
020226
020234
020242
020246
020254
020262
020270
020274
020276
020304
020312
020320
020322
020326
020330
020334
020342
020350
020354
020356
020362
3292 020366
3293 020370

032777
001407
104401
000404
124

000004

012737
004737
005077
012737
013737
005437
004737
004737
013777
013777
012777
017737

EQtt"ttt'ikt'I"""""""t"t'Q"..'.""""'Q"""'I'."""

004000

161240

TST24:

BIT

#B1T11,3SWR

;48 TEST TO SEE

043

10008 :

.?SEIZ

/1 # 24/<CRLF>

88 THE ASCI! MESSAGE

020310
040

1001$:

020130
004036
162362
000200
002622
002630
003472
003520
002630
002616
177777
162310
162304
020330
002540
177776
010000
001000
000501
002660

001310

999%:

002622
002630

CLR
MOV

aCSR
#200,BUFLEN

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%
"SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU °RI 10 7
*FORCE ACCESS TO CSR
‘LENGTH OF BUFFER = 200

NEG
JSR

WCLEN
- LODBUF

:2'S COMPLEMENT OF BUFLEN
*LOAD INBUF WITH INCREMENTING PATTERN

JSR

PC,CLENUP

BUFLEN.WCLEN

PC,CHKBFF

MOV
MOV
MOV

WCLEN, aWCR
INBUF ,aBAR
#-1,38CR

MOV

#2%,30RINV

SDRINV.SORINV
ADRVS , SDRVS

MOV
MOV
ERROR
CLR

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS
*INT VECTOR

SSET WAIT LOOP COUNTER

#IE+CY+GO,aCSR

MOV

*SET UP WCR
SSET UP BAkK
*MAINT AIDE

#1000, TIme

BIS
BNE

*LOAD CHKBUF WITH MODIFIED INCREMENTED PATTERN

"INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
SLET THE DR11 INTERRUPT

#MA , 3CSR

DEC

:PREPARE NUMBER FOR WCR

LEVEL ,aDRVS
Y

MOV

2%
3%

IF TEST NUMBER TRACER ENABLED
‘88 BRANCH IF NOT
‘L TYPE: T # 24"
‘88 GET OVER ASCII

#9998 ,$LPERR

MOV
CLR

1001$
,10008
10018

SCOPE
MOV

MOV
MOV

162174

002534
003546

"EVEN

JSR

002532
002534

000004
002532

BEQ
TYPE
BR

MOV

162220

004737

THIS TEST CHECKS FOR 200 NPR TRANSFERS IN MAINTENANCE MODE.

‘MAINT MODE

:1E, CYCLE & GO

TIME

:DECREMENT UNTIL WE GET TO ZERO

3CSR,RCSR

*MOVE RECEIVED DATA TO RCSR

:BRANCH BACK IF NOT ZERO

SDRINV.3DRINV
SDRVS ,@DRVS
+43
aCSR

:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
‘RESTORE LOCATION USED AS THE INTERRUPT PS
CEXPECTED INTERRUPT DID NOT OCCUR
“CLEAR THE CSR TO DO AN INIT

ADD
MOV
MOV

¥, SP
SORINV,3DRINV
SDRVS ,@DRVS

"CLEAN UP THE STACK AFTER INTERRUPT
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS

ERROR

+201

‘BUFFER DATA NOT CORRECT

002714
003716

JSR
ERROR
CLR
JSR

004014

JSR

£33

PC,INTA
+51i
ERRCNT
PC,DATCHK

PC,DATCH2

"BRANCH AROUND THE STACK CLEANUP

'60 CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR
*CSR AND-OR WCR AND-OR BAR ARE INCORRECT
*CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
“CHECK INBUF AFTER A MAINTENANCE MODE OPERATION
60 BACh TO SUBROUTINE AFTER ERROR RTS IN DATCHK

MACRO M1113 27-0CT-80 15:53
CIDRLCO-DRI1 GEN NPR INTF(
TEST #25 - DOING DATO TO DIODE MEMORY CAUSES NEX
.SBTTL

3300

PAGE 105

SEQ 0111

TEST #25 - DOING DATO TO DIODE MEMORY CAUSES NEX

;ttt"'."""""""t""""Q""""'Q""l"""t""""""'

DOING DATO TO DIODE MEMORY CAUSES NEX

JeTEST 25
b

]

HIS T ?T

]

(BIT 1

]

INSURES THAT DOING A DATO TO DIODE MEMORY CAUSES THE NEX BIT

TO SET.

020374
020402
020404
020410
020412

020422
020422
020424
020432
020436
020442
020450
020456
3306 020464
020472
3308 020500
3309 020506
020512
020520
020526
020534
020542
020546
020550
020556
3318 020564
3319 020572

3332 020662

032777
001407
104401
000404
126

000004
C12737
004737
005077
012777
013777
017737
017737
012777
013777
005037
012777
052777
052777
012737
005337
001375
013777
013777
017737
104035
005077
0004 31
062706
013777
013777
017737
013701
042701
022701
001407
013737
052737
104040

004000

160736

TS125:

BIT

020412
040

043

X2 L

R X R

AR XX RRRRRERRRZRRSR

#BIT11,aSWR
1001$
10008

{001$

/T & 25/<CRLF>

1000%:
1001%:

020432
004036

162060
177776
002614
162044
162040

020602
002540

001310
162046
162042

002532
002534

162026
162022

177776
010000
000062
000501
001000
002660

162002
161774
161766
002660

002532
002534

161750
161744

1617%°

#MA,3CSR

#E1eX6+XT7,8CSR
1%:

MOV

002560

ERROR
CLR

161712
161706
002560

140200

002560
140200

002572
002572

2%:

ADD
MOV
MOV
MOV
MOV

BIC
CMP
8eQ
MOV

BIS
ERROR

:8% GET OVER ASCII
;88 THE ASCII MESSAGE
;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999$

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET (PU PRI TO 7
;FORCE ACCESS TO (SR
;SET UP W(CR
;SET UP BAR

;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS
; INTERRUPT VECTOR TO 3$
:INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
SLET THE DR11 INTERRUPT
:MAINT MODE
;SET FNCTY, XBA16, AND XBA17

15126

SDRINV,aDRINV
SDRVS,8DRVS
8(SR, RCSR

;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE CSR DATA TO RCSR

#37577.R1

;CLEAR ALL BUT ERROR, NEX AND READY BITS
sSEE IF ALL THESE BITS ARE SET
:BRANCH TO THE NEXT TEST I THEY ARE ALL SET

#1000, TIME
BNE

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

;88 BRANCH IF NOT
88 TYPE: ''T # 25"

;SET 1E, CYCLE, AND GO
;SET DELAY COUNTER
;DECREMENT UNTIL ZERO
:BRANCH BACK IF NOT
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
;RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR
;:DR11 FAILED TO INTERRUPT
;CLEAR THE CSR TO DO AN INIT
;BRANCH TO THE NEXT TEST

#IE+CY+GO,aCSR

161722

000004
002532
002534
161574
002560
037577

#999% ,$LPERR
PC,CLENUP
a(SR
#-2,3WCR
DIOMEM,aBAR
aDRINV,SDRINV
aDRVS ,SDRVS
#2% ,3DRINV
LEVEL ,8DRVS
PSW

999%:

2R RARRRRRRARRRRRRRA])

TIME
1%

SORINV,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

+35

8(SR

#4,5P

RCSR,R1

lfaonxoav R
15126

RCSR,ECSR
#ER+NX+RY ,ECSR
+40

;RESTORE THE STACK

;MOVE DATA TO R1 FOR CHECKING

:MOVE EXPECTED DATA TO ECSR

;SET THE BIT THAT SHOULD HAVE BEEN SET

;CSR IS WRONG

MACRO M1113 27-0(T-80 15:53
CIDRLCO-DRI1 GEN NPR_INTF(
TEST #26 - CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR

LSBTTL

3339

[

PAGE 106

SEQ 0112

TEST #26 - CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR

;'tttt"t'tt"""""t'""""i""'i"t"'ltt.""'t"""t""'

CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR

;*TEST 26
2]

THIS TEST INSURES THAT CROSSING THE 32K BOUNDARY DOES NOT CAUSE A BAOF

OR FORCE ERROR.

RN R AN

020664

020672
020674
020700
020702
020712
020712
020714
020722
020726
020734
020742
020750
020756
020764
020772
021000
021004
021012
021020
021024
021026
021034
021042
021050

032777
001407
104401
000404
124

000004

012737
004737
012777
012777
017737
017737
012777
013777
012737
005037
012777
052777
005337
001375
013777
013777
017737
104035

000433
062706
013777
013777
017737
013701
042701
022701
001411
013737
052737
104040

005077

004000

160446

1ST26:

043

10008 :

020702
040

1001$:

020722
004036

177760
177776
161560

161554
021054
002540
001000
177776
010000
000563
002660

002532
002534
161454

000004
002532
002534
161422
002560

001310
161562
161556

002532
002534

161542
161536
002660
161510
161502

002560

161440

161434
002560

161360

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
2% BRANCH IF NOT
‘88 TYPE: ''T # 26"

'?35#2

/T # 26/<CRLF>

:88 THE ASCII MESSAGE

SCOPE
MOV

2%:

002572
002572

f001$

#9998 ,$LPERR

;88 GET OVER ASCII

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

JSR

PC,CLENUP

MOV
MOV
MOV
MOV

#-2 ,3BAR
aDRINV,SDRINV
aDRVS , SDRVS
#28 ,30RINV

'SET UP BAR FOR PROC
:SAVE LOCATION TO BE
*SAVE LOCATION TO BE
L INTERRUPT VECTOR TO

MOV
CLR

#1000, TIME
PSW

*SET WAIT LOOP COUNTER
“LET THE DR11 INTERRUPT

BIS

2565, 3CSR

“CYCLE. IE, FNCT1, XBA17, XBA16, AND GO TO CSR

MOV

DEC
BNE
MOV
MOV
MOV
ERROR
BR
ADD
MOV
MOV
MOV
MOV

BIC

140200
140200

#B1T11,aSWR
1001$
1000$

MOV

1$:

C RN ENRARANRNANACORANANRAORNAORROERANORORNNTS

BIT
8EQ
TYPE

MOV

161472
161466

037577

002560

999%:

RN AC AR R A AN NN R

CMP
BEQ

MOV

BIS

ERROR
CLR

#-20,3WCR

LEVEL ,@aDRVS
#MA ,3CSR

TIME
1%

SSET UP WCR

STATUS ADDRESS
USED AS THE INTERRUPT VECTOR
USED AS THE INTERRUPT PS
3$

“INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
‘MAINT MODE

04SP
SDRINV,@aDRINV
SDRVS ,@DRVS
aCSR,RCSR
RCSR,R1

‘DECREMENT 'UNTIL WE GET TO ZERD
*BRANCH BACK IF NOT ZERO
:RESTORE LOCATION USED AS THE INTERRUPT
‘RESTORE LOCATION USED AS THE INTERRUPT
‘MOVE CSR CONTENTS TO RCSR
:DR11 FAILED TO INTERRUPT
*BRANCH TO NEXT TEST
*CLEAN UP STACK AFTER INTERRUPT
RESTORE LOCATION USED AS THE INTERRUPT
‘RESTORE LOCATION USED AS THE INTERRUPT
'MOVE CSR CONTENTS TO RCSR
*MOVE CONTENTS TO R1 FOR TESTING

FER+RY+NX,R1
T$127

‘SEE IF ERROR, READY AND NEX ARE SET
'BRANCH TO NEXT TEST IF THEY ARE

SDRINV.SDRINV
SDRVS ,@DRVS

9CSR,RCSR
+35
15127

23759781

RCSR,ECSR

FER+RYSNX,.ECSR
+40
a(SR

*CLEAR ALL BUT THE ERROR AND READY BITS
‘MOVE EXPECTED DATA TO ECSR

:SET THE BITS THAT SHOULD HAVE BEEN SET
2CSR 1S WRONG
;CLEAR THE CSR TO DO AN INIT

VECTOR
PS

'CIDRLCO-DRi1 GEN NPR INTFC

MACRO M1113 27-0CT-80 15:53
TEST #27 - CHMECK ACTUAL POSITION OF 2-N BURST SWITCH

LSBTTL

3376

9
J
PAGE 107

SEQ 0113

TEST #27 - CHECK ACTUAL POSITION OF 2-N BURST SWITCH

'tt't'ti.t'tt't"'""'"'"'"'I"Q"""fi""""""'.""""'

CHECK ACTUAL POSITION OF 2-N BURST SWIT(H

'TEST 27

THIS TEST INSURES THAT THE 2-N BURST SWITCH IS IN THE POSITION THAT

THE DEVICE DESCRIPTOR WORD SAYS [T SHOULD BE.

]

032777
001407
104401
000404
126
000004

3377 021200
3378 021206
3379 02
3380 02
3381 02
3382 02
3383 02123¢
3384 021240
3385 021242
3386 021244
3387 021250
3388 02125+
3389 021260
3390 021262
3391 021264

33592 021266
3393 021272
3304 021274
3395 021276
3396 021304
3397 021312
3398 021314
3399 021322
3400 021324
3401 021332

3402 021334
3403 021342

012737
032737
001456
004737
012777
017737
005077
013701
000301
006301
042701
013707
042702
001402
005602
000402
012702
020102
001017
013737
032737
001404
042737
000403
052737
104054
032777
001322

004000

160170

1ST27:

021160
040

043

10008$:
1001s$:

021210
000001
004036
100000

161274
161266

001310
002610
161300

X2 X222

BIT
BEQ

TYPE
BR

LASCIZ
.EVEN

SCOPE

MOv

BIT

999:

002562

BEQ
JSR
MoV
MOV

CLR

002562

MOV

SWAB

ASL

BIC

MOV

BIC

BEQ
CLR
B8R
MOV
CMP
BNE

000002
002562
000400

002574
002574

009400

002574

000400

002574

3%:

040400

157776

5%:

MOV

BIT
BEQ
BIC
BR
BIS
ERROR
BIT
BNE

2222222202222

#B1T11,aSWR

1001%

,1000%

1001%
/T & 27/<CRLF>

#999% ,SLPERR
#B170,B0RW
INOOUT
PC,CLENUP
#EIR,3CSR
aCSR.REIR
aCSR
REIR,R1
R1
R1
#CBIT1,R

DDW,R2
¥CBITT,R2

1
R2

28
#B1T1,R2

R1,R2
5%

REIR,EEIR

gaxté EEIR

$
#BIT8,EEIR
49
#B1T8,EEIR
+54

AR R0 000RRRRRRRRRRRRRRRdll)

;88 TEST TO SEE [F TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;88 TYPE: ''T # 27"
:88 GET OVER ASCII
;8% THE ASCII MESSAGE
;PROCESS LOOPING AND TEST NUMESX INCREMENT

;SET_LOOP ON ERROR TO 999%
;TESTING A "B’ OR A "W'7?
:BRANCH TO INGOUT IF DR11-B

; SUBROUTINE TO CLEAR DEVICE REGISTERS & SET (PU PRI TO 7
;GO TO EIR MODE

:MOVE EIR DATA TO REIR
;GO BACK TO CSR
:MOVE DATA TO R1 ALSO
;GET BIT 8 INTO BIT O BY SWAPPING BYTES
;MOVE BIT 0 INTO BIT 1
;CLEAR ALL BUT BIT 1

:PUT DEVICE DESCRIPTOR WORD IN R2
;CLEAR ALL BUT BIT 1
:BRANCH IF IT IS CLEAR
;CLEAR THE BIT
;G0 TEST THE BIT
sSET THE BIT
;SEE IF RECEIVED MATCHES EXPECTED
;BRANCH TO CHECK FOR LOOP ON TEST
:MOVE EXPECTED DATA TO EEIR

;TEST STATE OF BIT 8
;BRANCH IF 1T IS CLEAR

;REVERSE STATE - EXPECTED CLEAR
;GO CALL ERROR
;REVERSE STATE - EXPECTED SET

:2-N CYCLE BURST SWITCH IN WRONG POSITION
#BIT14+B1T8,aSWR;SEE IF WE SHOULD LOOP ON THIS TEST
999%
;BRANCH BACK [F SO

CZDRLCO-DRi1 GEN NPR INTF(

MACRO M1113

27-0CT-80 15:53

CODF TO CHECK CABLE STATUS FOR EXECUTION OF CABLE TESTS
3404

%282

;

3407
gzgg

;
;

3410 021344
3411 021352

3412 021354

032737
001002

000137

000004

024360

002720

.SBTTL

PAGE 108

SEQ 0114

CODE TO CHECK CABLE STATUS FOR EXECUTION OF CABLE TESTS

CABLE MODE TESTING (WRAP-AROUND CABLE IN USER SLOTS)

TESTS 30 THRU 37 ARE PERFORMED IF BIT 2 OF DEVICE DESCRIPTOR WORD S
SET, INDICATING CABLE IS IN.

INOOUT: BIT
BNE

JMP

#8172,00W
TST30

ENDEV

:SEE IF CABLE IS IN
;BRANCH TO NEXT TEST IF CABLE IS IN

:JUMP TO ENDEV - TESTS ARE NOT TO BE DONE

CZDRLCO-DRi1 GEN NPR INTFC

MACRO M1113

27-0CT-80 15:53

EST #30 - CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR
LSBTYTL

3420

L 9

PAGE 109

SEQ 0115

TEST #30 - CHECK CSR BIT PATTERNS WITH MAINT BIT (LEAR

tt"""'tt'tQ"'""t"'t"""'".t.'t"""""".i"."""'.'

'TEST 30

:'
0t
ot

CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR

THIS TEST SETS ALL POSSIBLE COMBINATIONS OF SET BITS IN THE (SR WITH
THE MAINTENANCE BIT CLEAR, AND COMPARES THE RECEIVED CSR CONTENTS WITH
THAT OF THE EXPECTED PATTERNS IN 'MAICLR'.

* %

021360

032777

004000

021370

104401

021376

021366

021374
021376

021406

001407

000404
124

021406
021410

000004
012737

3423 021426
3424 021432
3425 021436
3426 021440
3427 021444
3428 021452
3429 021456
3430 021464
3431 021472
3432 021474
3433 021502
3634 021504
3435 021512
3436 021520
3437 0215264
3438 021532
3439 021536
3440 021544
3441 021546
3442 021554
3443 021556

012700
012701
005002
012703

3421 021416
3422 021422

3444 021560
3445 021562

3446 021566

3447 021570
3448 021576
3449 021600
3450 021606
3451 021614
3452 021616

004737
005037

052777
005077
017737
022737
001404
012737
104032
012777

012777
010277

017737
011137
023737
001427
012737

040227
000401
001016
005737
001404
032737
001407

052737

043

7TST130:

1000¢:
1001$:

021444

004036
002714

001310

000002
006266
000200
010000
161044
161040
000200

002560
002560

000200

002572

177777
053700
160776

161004
161000

161050

160772
002572
002572

002560

000401

021556

1%:
9998:

28:

002560

3%:

002712

000060

002572

140000

002572

002560

#BIT11,3SWR

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

TYPE

,1000%

88 TYPE: ''T # 30"

BEQ

BR
.esgkl
.EV

4$:

002536

5$:

062701
005202
005303
001303
062702
005300

000002

6%:

1001$

1001%
/T # 30/<CRLF>

;88 BRANCH IF NOT

:8% GET OVER ASCII
;88 THE ASCII MESSAGE

SCOPE
MOV

#999% , SLPERR

;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR 1O 999%

Mov
Mov
CLR
Mov

#2,R0
#MAICLR,RY
R2
#200,R3

;D0 2 SETS OF 200 PATTERNS
:MOVE ADDRESS OF EXPECTED PATTERNS TO R1
:START WITH PATTERN ZERO
;MOVE 200 TO THE LOOP COUNTER

8IS
CLR
Mov
CMP
BEQ
MOV
ERROR
MoV

MoV
MoV
MoV
Mov
CMP
BEQ
MOV
BIC
.WORD

BNE
TST

BEQ

002572

000200

BIT

JSR
(LR

023737
001403
010237

3453 021622 104202

3454 021626
3455 021630
3456 021632
3457 021634
3458 021636
3459 021642

040

157752

:"Qtt't't"ttt""""'"Q'""'Q""IQQ'."'Q.""Q'."fi"""t't

BIT
BEQ
BIS
CMP
BEQ
MoV

ERROR
ADD
INC
DEC
BNE
ADD
DEC

PC,CLENUP
ERRCNT

#MA,3CSR
aCSR
aCSR,RCSR
#RY ,RCSR
2%
#RY ECSR
+32
#-1,3WCR

#NOCARE ,aBAR
R2,3CSR
eCSR,RCSR
(R1) ,ECSR
ECSR,RCSR
6%
#CY+G0,38

R2,(PC)+
CY+GO
5%
MEMGMT
3
#x6+x7,ECSR
5%

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI T0O 7
:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202

;SET MAINTENANCE AND
;CLEAR TO DO AN INIT
:MOVE RECEIVED DATA TO R(SR
;MAKE SURE READY BIT IS THE ONLY BIT SET
:BRANCH IF SO
;MOVE EXPECTED DATA TO ECSR
READY IS NOT THE ONLY BIT SET
:MOVE1 WORD COUNT TO WCR IN CASE OF IE ENABLED

:MOVE A NOT-CARE ADDRESS TO BAR FOR SAMF REASON
;SET THE PARTICULAR FUNCTION BITS IN CSR
:MOVE RECEIVED DATA TO RCSR
;MOVE EXPECTED DATA TO ECSR
:COMPARE EXPECTED WITH RECEIVED
:BRANCH IF OK
;REESTABLISH BIT PATTERN
;SEE IF BOTH CYCLE AND GO WERE SET
:LOCATION TO HOLD BOTH CYCLE AND GO BITS

:BRANCH TO ERROR ONLY IF EITHER OR BOTH BITS WERE CLEAR
;SEE IF MEMORY MANAGEMENT IS OUT THERE
BRANCH IF NOT

ECSR,RCSR
6%
R, BUT

;SEE IF EITHER XBA16 OR XBA17 ARE SET
:BRANCH TO ERROR IF BOTH ARE CLEAR
;SET THE ERROR AND NEX BITS - EXPECT THEM TO SET
;NOW SEE IF DATA MATCHES
;BRANCH AROUND ERROR IF [T DOES
;MOVE THE BITS SET INTO CSR TO THE BUT LOCATION

2 .R1
R2
R3
999%
#200,R2
RO

s INCREMENT R1 TO NEXT EXPECTED PATTERN
: INCREMENT THE PATTERN
:DECREMENT THE LOOP COUNTER
:BRANCH BACK [F NOT DONE
;ADD 200 TO PATTERN LOCATION
;DECREMENT THE LOOP COUNTER AND

FER+NX ECSR

+202

:CSR PATTERN NOT CORRECTY

CIDRL 0-DR711 GEN NPR INTF(
MACRO M1113 27-0(CT-80 15:53
TEST #30 - CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR

3460 021644

001275

BNE

PAGE 109-1

SEQ 0116
;BRANCH BACK IF 2ND OCTAL GROUP NOT DONE

CIORLCO-DRT1 GEN NPR INTF(

MACRO M1113

TEST #31 - CHECK BAR WITH CSR CLEAR
3466

27-0CT-80 15:53

LSBTTL

A
1

SEQ 0117

TEST #3171 - CHECK BAR WITH CSR CLEAR
T

(eTEST 3
it

PAGE 110

CHECK BAR WITH CSR CLEAR

ARl

THIS TEST CHECKS THAT BAR BIT 0 IS CLEAR WITH CSR CLEAR (CSR=0).

[

;"t"tt"it'Q"'t'""Qt""t"".l.'""'t"'i"""""tt"'.'tt

021646
021654
021656

032777
001407
104401

021664

124

040

021662 000404
021674

021674
021676

000004
012737

3468 021710
34,69 021716
34,70 021724
3471 021732
3472 021736

3473 021740
3474 021742

012777
012777
01°737
001403
005037
104040
017737

3476 021756
34,77 021760

001407
013737

3479 021774

104044

3467 021704

004737

004000

157464

043

TST31:

1000$:
10018

021704

001310

001360
000001
160572

160602
160576
002560

004036

999%:

002572
160552

002566

3475 021750 032737 000001

002566

002600

3478 021766 042737 000001

002600

1%:

BIT
BEQ

TYPE

#BIT11,3SWR
1001$
1000$

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
148 BRANCH IF NOT

.esgéz

/T # 31/<CRLF>

:88 THE ASCI1 MESSAGE

LEV

SCOPE
MOV

foo1s

#9998 ,$LPERR
#$TMPO,3BAR
#G0,aCSR
ACSR,RCSR
1%
ECSR
+40
aBAR ,RBAR

:PUT AN ADDRESS IN THE BAR
*SET JUST THE GO BIT TO CLEAR THE READY BIT
*MOVE RECEIVED DATA TO RCSR
:BRANCH AROUND ERROR IF EQUAL TO ZERO
‘MOVE EXPECTED DATA TO ECSR
:CSR IS WRONG
:MOVE RECEIVED DATA TO RBAR

PC,CLENUP

BIT

#8170, RBAR

BEQ
MOV

BIC

ERROR

<08 GET OVER ASCII

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

JSR

MOV
MOV
MOV
8EQ
CLR
ERROR
MOV

‘6L TYPE: T # 31"

1$132
RBAR,EBAR

OBlTé.EBAR
+44

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI 10 7

:SEE IF THIS BIT IS CLEAR

*BRANCH TO NEXT TEST IF IT WAS
‘MOVE EXPECTED DATA TO EBAR

;CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR
;BAR IS WRONG

—

——

—_—

CIORLCO-DR11 GEN_NPR INTF(

MACRO M1113

27-0CT-80 15:53

TEST #32 - TIST 7 SINGLE DATI NON BURST MODE TRANSFERS
|

3486

.SBTTL

SEQ 0118

TEST #32 - TEST 7 SINGLE DATI NON BURST MODE TRANSFERS

AR AN AR RN AR RN AN RN AN E

R PR R AN AN AN RRANRARAARAANANRNACRANCNENS

TEST 7 SINGLE DATI NON BURST MODE TRANSFERS

;'TEST 32
X

8 10

PAGE 111

THIS TEST DOES 7 BIT PATTERNS OF SINGLE DATI NON BURST MODE TRANSFERS,

AND THAT THEY ARE DONE PROPERLY.

021776

032777

004000

022006

104401

022014

022004

022012
022014
022024

001407

000404
1264

040

157334
043

022050
000007

001310

3490 022050
3491 022056
3492 022064
3493 022072

017737
017737
012777
013777

160452
160446
022226
002540

002532
002534
160434
160430

3494 022100
3495 022104
3496 022112
3497 022116

3498 022124
3499 0.2132

3500 022136
3501 022142
3502 022150
3503 022156
3504 022162
3505 022166

005037
012777
005077
012777

012777
005077
011337
012777
052777

3508 022204
3509 022212
3510 022216
3511 022220

005037
005237
001375
013777
013777
017737
011337
104035
005077

3513 022226
3514 022232
3515 022240
3516 022246

062706
013777
013777
004737

3506 022170
3507 022176

3512 022224

000450

002714
006250

177776
010000
160404
177777

017737
011337
017737
005037
023737
001010
023737

10008$:

002612
160366
002612
000110
000401

002660
002660

002532
002534

160312
002604

18:
999%:

160372
160366

BIT

BEQ

28:

160330
160324

002560

160230
002576
160210
002602
002566

002564

002576

002570

002600

3s:

2 2 R 22X R R

#B81T11,3SWR

AR AR

1001%

.1000$

1001$
/T # 32/<CRLE>

R0 R0

R R0

RRdRdld)

;8% TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT

;80 TYPE: ''T # 32"

;88 GET OVER ASCII
;88 THE ASCII MESSAGE

SCOPE
MoV
MoV

#9598, SLPERR
#7,R2

;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%
;SET UP LOOP COUNTER - DO 7 BIT PATTERNS

MOV
Mov
MoV
MoV

aDRINV,SDRINV
aDRVS, SDRVS
#3$ ,aDRINV
LEVEL ,aDRVS

;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
;SAVE LOCATION TO BF USED AS THE INTERRUPT PS
sINTERRUPT VECTOR TO 4$
; INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE

CLR
MoV

MoV
MoV
BIS

160352
160344

160266
160262

BR
.23%&1

MoV
CLR

160276

000004
002532
002534
004254

CLR
Mov
CLR
MoV

150410

3517 (22252 104021
3518 022254 017737 160240 002566
3519 022262 012737 002615 002600
3520 022270
3521 022276
3522 022302
3523 022310
3524 022314
3525 022322
3526 022324

7sT32:

1001$:

000004
012737
012702

005037
012703

TYPE

022024
022026
3487 022034

3488 022040
3489 022044

ERRCNT
#PATRNS,R3

PSW
#MA,3CSR
SCSR
#-1,38WCR

#NPR1,3BAR
aBOR

(R3) ,NPR1
#F3+1E,3CSR
#CY+GO,3CSR
TIME
TIME
2%

;CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
;MOVE ADDRESS OF PATTERNS TO R3

;LET THE DR11 INTERRUPT
;D0 AN INIT BY SETTING AND
;CLEARING THE CSR MAINTENANCE BIT
:SET UP FOR 1 TRANSFER

: TRANSFER FROM BUS ADDRESS IN NPR1
:GET READY TO RECEIVE DATA
;SET UP TRANSFER DATA
;SET THE NON BURST (FNCT3) AND IE
;SET THE CYCLE AND GO BITS

aCSR,RCSR
(R3) ,ENPRY
+35
aCSR

;CLEAR THE TIME LOCATION FOR WAIT LOOP
: INCREMENT UNTIL WE GET TO ZERO AGAIN
;BRANCH BACK IF WE AREN'T THERE YET
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
;RESTORE LOCATION USED AS THE INTERRUPT PS
;MOVE RECEIVED DATA TO RCSR
;MOVE PATTERN TO ENPR1
;DR11 FAILED TO INTERRUPT
;CLEAR THE CSR TO DO AN INIT

JSR

#4,5P
SORINV,3DRINV
SDRVS,@DRVS
PC,ERRCHK

:CLEAN STACK AFTER INTERRUPT
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
;RESTORE LOCATION USED AS THE INTERRUPT PS
;CLEAR IE, CHECK FOR ERROR

MOV

8BAR RBAR

MoV
MOV
Mov
CLR
CMP
BNE
cMp

@BDR,RBDR
(R3) ,EBDR
aWCR ,RUCR
EWCR
RBAR,EBAR
3
RBDR ,EBDR

CLR
INC
BNE
MoV
MoV
MOV
MOV
ERROR
CLR

B8R

ADD
Mov
MOV

ERROR
MoV

SORINV,30RINV
SORVS,@8DRVS

+21
#NPR1+3,EBAR

;BRANCH TO SEE IF THERE ARE ANY MORE PATTERNS TO CHECK

;ERROR BIT SHOULD HAVE BEEN CLEAR
:MOVE RECEIVED DATA TO RBAR
:MOVE EXPECTED DATA TO EBAR
;MOVE RECEIVED DATA TO RBDR
:MOVE EXPECTED DATA TO EBDR
;MOVE RECEIVED DATA TO RWCR
;MOVE EXPECTED DATA TO EWCR
: COMPARE RECEIVED WITH EXPECTED
;BRANCH IF WRONG
:COMPARE RECEIVED WITH EXPECTED

MACRO M1113 27-0CT-80 15:53
CZORLCO-DRT1 GEN_NPR INTF(
TEST #32 - TESY 7 SINGLE DATI NON BURST MODE TRANSFERS

W
I
5H

[aS 1S IS T N1, S 1,8

3527 022332
334

001004
023737
001401
104211

062703
005302
001235

002570
000002

002602
4

5%:

BNE
cMP
BEQ
ERROR
ADD

DEC
BNE

¢ 10
PAGE 1111

49
RWCR,EWCR

5%
+211
#2,R3
R2
999%

SEQ 0119

;BRANCH [F WRONG

; COMPARE RECEIVED WITH EXPECTED

;BRANCH IFf 0K
:CSR AND-OR WCR AND-OR BAR ARE [NCORRECT
; INCREMENT TO NEXT PATTERN
;DECREMENT THE LOOP COUNTER
;BRANCH BACK IF NOT ZERO YET

MACRO M1113 27-0CT-80 15:53
CIORLCO-DR11 GEN NPR INTF(
TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS

LSBTTL

3539

D 10
PAGE 112

SE@ 0120

TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS

:tti"itt'ttttittt't'tttttt"tt"ti'"Q.Q.Qiit""'tflt'*"""itt'i

:'TEST 33
*

TEST STRING OF 200 DATIS BURST MODE XFERS

THIS TEST DOES 200 DATI TRANSFERS IN BURST MODE.

2222222222232 2222222222222 2222002222222 2

032777
001407
104401
000404
124

022404
022404
022406
3540 022414

3541 022420
3542 022426
3543 022432
3544 022440
3545 022446
3546 022454
3547 022462
3548 022470
3549 022476
3550 022504
3551 022512
3552 022516
3553 022524
3554 022532
3555 022540

3556 022544
3557 022546
3558 022554
3559 022562
3560 022570
3561

35
3567 022626
3568 022632

3571 022650
3572 022652
3573 022660

000004
012737
004737
012737
004737
012737
013777
013777
012777
017737
017737
012777
013777
005037

012777
052777
012737
005337
001375
013777
013777
017737
104035
012777
005077
000426
062706
013777
013777
004737
104051

017737
022737
001404
012737
104045

004000

156754

TST33:

022374
040

043

10008:

1001%:

022414
004036
00020¢C
003472
177600
002630
002616
177777
160040
160034
022606
002540
177776

001310

002622

999%:

BIT
BEQ
TYPE
BR
.ASCI2
.EVEN

SCOPE

MOV
JSR
MOV

JSR

002630

160022
160016

MOV
MOV
MoV
MOV
MOV
MOV
Mov
MOV

000100
000401
001000
002660

157776
157770
002660

MOV

002532
002534

157752
157746

160050
160044
160042

002532
002534

CLR
MOV
BIS

1%:

DEC
BNE

157734

002560

MOV
MOV
MOV

010000
157716

157722

MOV

000004
002532
002534
003546

157706
157702

ERROR

2%:

CLR
BR
ADD

MOV
MOV
JSR

ERROR

000177

002564
002564

MOV
CMP

c00177

002576

MoV

157664

BEQ
ERROR

#BIT11,aSWR

1001$%

,1000$

10018
/T # 33/<CRLF>

#999%, SLPERR
PC,CLENUP

#200,BUFLEN
PC,LODBUF

#-200,WCLEN

WCLEN.aWCR
F
. aBAR
INBU
#-1,3BDR
aDRINV,SDRINV
aDRVS, SDRVS
#28,30RINV
LEVEL ,8DRVS

PSW
#1E,aCSR
#CY+GO,aCSR
#1000, TIME
TIME
1%
SDRINV,aDRINV

SDRVS,aDRVS
aCSR,RCSR

+35

#MA,3CSR

aCSR
TST34

SDRINV,3DRINV
SDRVS,aDRVS
PC,INTA
+51
aBDR,RBDR
#177.RBOR
TST34
#177,EBDR
+45

22822 20000

iRt Rilll)

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
:88 BRANCH IF NOT
88 TYPE: ''T # 33"
188 GET OVER ASCII
;8% THE ASCII MESSAGE
;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

:LENGTH OF BUFFER=200
;LOAD THE BUFFER WITH INCREMENTING PATTERN
:PREPARE NUMBER FOR W(CR
:SET UP WCR
:SET UP BAR
:MAINT AIDE

;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS
:INT VECTOR

:INTERRUPT STATUS TO LEVEL OF DEVICE
;LET THE DR11 INTERRUPT
;SET INTERRUPT ENABLE
:CYCLE, GO

;WAIT FOR INTERRUPT

;DECREMENT UNTIL WE REACH ZERO
:BRANCH BACK IF NOT ZERO
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
;RESTORE LOCATION USED AS THE INTERRUPT PS
;MOVE RECEIVED DATA TO RCSR

:DR11 FAILED TO INTERRUPT

SET THE MAINTENANCE BIT AND

;CLEAR THE CSR TO DO AN INIT

;BRANCH TO NEXT TEST
;CLEAN UP STACK AFTER INTERRUPT
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
;RESTORE LOCATION USED AS THE INTERRUPT PS

160 CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR
:CSR_AND-OR WCR AND-OR BAR ARE INCORE(T
:MOVE RECEIVED DATA TO RBDR

;CHECK THAT WORD #200 OF INBUF IS IN BDR
:BRANCH TO NEXT TEST IF IT IS
:MOVE EXPECTED DATA TO EBDR
:BAD DATA N BDR

MACRO M1113 27-0CT-80 15:53
DRLCO-DRT1 GEN_NPR INTF(
TE ST #34 - TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

LSBTTL

3580

E 10
PAGE 113

SEQ 0121

TEST #34 - TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

;tfitt"tt'it'itt""t'i"'"""'t'tQ't'iii't'!t"ttt"'ttt"t"tt'

; TEST 34

‘e

TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

THIS TEST DOES 7 PATTERNS OF SINGLE DATO NON BURST MODE TRANSFERS, AND
THAT THEY ARE DONE PROPERLY.

022662
022670
022672
022676
022700

3581
3582
3583
3584
3585
3586
3587
3588
3589

3590
3591
3592
3593
3594

022750
022756
022764
022770

022776
023002
023010
023016
023022

3595 023026

3596 023034
3597 023042
3598 023050
3599 023054
3600 023056
3601 023064
3602 023072
3603 023100
3604 023104
3605 022106
3606 023114
3607 023120
3608 023122
3609 023126

P 8

—

~N
[V

—b

[~ ]

w
o~

3610 023134
3611 023142
3612 023146
3613 023150
3614 023156
3615 023160
3616 023164
3617 023166
3619
3620 023202

032777
001407
104401
000404
124

000004
012737
012702
005037
012703
017737
017737
012777
013777
005037
012777
005077
012777

004000

040

022734
000007
002714
006250

001310

023122
002540

157550
157544

10008 :

177776

002532
002534

1$:

999%:

010000
157520
177777

002612
002612

017737
001403
011337
104206
017737
022737

157342

001406

043

10018:

157566
157562

157476

000112
000401
001000
002660

157466
157460

002660

002532
002534
157424
001360

157442
157436
002560

010000
157402

157406

2%:

3s:

000004
002532
002534
004254

1001$

188 BRANCH IF NOT

foo1s

;88 GET OVER ASCII

SCOPE
MOV
MOV

#9998 ,SLPERR
#7.R2

MOV
MOV
MOV
MOV

#PATRNS,R3
3DRINV,SORINV
aDRVS , SDRVS
#3$,3DRINV

002570

002566
002566

'ngfiz

CLR

MOV
CLR
MOV
CLR
MOV
MOV
CLR
MOV
MOV
BIS
MOV

DEC

BNE

MOV
MOV
MOV
MOV
ERROR
MOV
CLR
BR
ADD
MOV
MOV
JSR

ERROR

001362
157326
002615

BEQ

TYPE

022700

012777
005037
011377
012777
052777
012737
005337
001375
013777
013777
017737
011337
104035
012777
005077
000445
062706
013777
013777
004737
104021

156450

:ttttttlttttt'tttt't"'t"t"t"ttt"t"'ifiiti'ttttfiittttt't"'tttt
TsT34: BIT
331111 aSWR
88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

4$:

1000$

/T # 34/<CRLF>

ERRCNT

LEVEL,aDRVS
PSW
#MA,3CSR
aCSR
#-1,aWCR
#NPR1,3BAR
NPR1
(R3),aBDR
#F1+F3+1E,aCSR
#CY+G0,aCSR
#1000, TIME

TIME
2%

88 THE ASCII MESSAGE

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%
‘DO 7 BIT PATTERNS

*CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201

‘MOVE ADDRESS OF PATTERNS TO R3
:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS
*INTERRUPT VECTOR TO 3$
“INTERRUPT STATUS TO LEVEL OF DEVICE
SLET DR11 INTERRUPT
‘D0 AN INIT
SFORCE ACCESS TO CSR
“SET UP FOR 1 TRANSFER

*TRANSFER TO BUS ADDRESS IN NPR1
*GET READY TO RECEIVE DATA
*SET UP TO TRANSFER DATA

DATO (FNCT1), FNCT3, IE

SCYCLE, GO
"CLEAR THE TIME LOCATION FOR WAIT LOOP

*DECREMENT UNTIL WE GET BACK TO ZERO
"BRANCH BACK IF NOT ZERO

SDRIMNV,3DRINV
SDRVS ,aDRVS

-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
"RESTORE LOCATION USED AS THE INTERRUPT PS

#4,5P
SDRINV,3DRINV
SDRVS,aDRVS

*CLEAN UP STACK FROM INTERRUPT
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS

aCSR,RCSR
(R3).$TMPO
+35
#MA,ACSR
acSR
63

PC,ERRCHK

+2f

MOV
BEQ
MOV
ERROR
MOV

aWCR,RWCR
48
(R3),$TMP1
+206
aBAR ,RBAR

BEQ

CMP

‘8% TYPE: "'T # 34"

#NPRi+3 RBAR

:MOVE RECEIVED DATA TO RCSR
*MOVE PATTERN TO STMPO
‘DR11 FAILED TO INTERRUPT
SSET THE MAINTENANCE BIT AND
*CLEAR THE CSR TO DO AN INIT
*BRANCH TO DO NEXT PATTERN

*CLEAR IE, CHECK FOR ERROR

*ERROR BIT SHOULD HAVE BEEN CLEAR
*MOVE RECEIVED DATA TO RWCR
:BRANCH IF IT IS EQUAL TO ZERO
‘MOVE PATTERN TO $TMPO
‘WCR NOT EQUAL TO ZERO
*MOVE RECEIVED ADDRESS TO RSAR

:COMPARE CORRECT BAR WITH BAR CABLE MODE TESTING LEAVES
'BIT O OF BAR SET. THEREFORE MUST CMECK FOR ODD ADDRESS
"BRANCH IF IT IS OK

CZDRLCO-DRI1 GEN NPR INTFC
MACRO M1113 27-0CT-80 15:53
TEST #34 - TEST 7 SINGLE DATO NON BURST MODE TRANSFERS
3621 023204
3622 023212
3623 023216
3624 023220
3625 023224
3626 023226
3627 023232
3628 023234
3629 023240
3630 023242

012737
011337
104207
021337
001403
011337
104210
062703
005302
001234

002615
001362
002612

002600
5%:

002604
000002

6$:

MoV
MoV
ERROR
CMP
BEQ
MoV
ERROR
ADD
DEC
BNE

F 10

PAGE 113-1

#NPRY+3 EBAR
(R3),$TMP1
+207
(R3),NPRY
6%
(R3) ,ENPR1
+210
#2,R3
R2
999%

SEQ 0122
;MOVE EXPECTED DATA TO EBAR
;MOVE PATTERN TO $TMPO
:BAR IS WRONG
;CHECK FOR CORRECT DATA
;BRANCH IF CORRECT DATA WAS TRANSFERRED
;MOVE EXPECTED DATA TO ENPR1
;DATA NOT TRANSFERED CORRECTLY
;POINT TO NEXT BIT PATTERN
;COUNT 1 PATTERN DONE
;BRANCH BACK IF NOT DONE

CIDRLCO-DRi1 GEN NPR INTF(

MACRO M1113

27-0CT-80 15:53

TEST #35 = TEST STRING OR 200 DATOS BURST MODE XFERS
3636

JSBTTL

610
PAGE 114

SEQ 0123

TEST #35 - TEST STRING OR 200 DATOS BURST MODE XFERS

:t"ttittttttttt't'tttttt'ttfi"tt'tt"tt'ttit"tt'tttttt"'t"t'tt'

:'TEST 35
:'

- %

023244

032777

004000

023254

104401

023262

023252

023260
023262

023272

001407

000404
124

040

156066

043

000004
012737

023302

001310

3638 023306
3639 023314

012737
004737

000200
003622

002622

3637 023302

3640 023320
3641 023326
3642 023332
3643 023340

005077

013737
005437
013777
013777

157214

002622
002630
002630

T1ST135:

1000%:

999%:

002630

3647 023370

017737
017737

3661 023476
3662 023500
3663 023506

3664 023512
3665 023520
3666 023524

3667 023526
3658 023532

3669 023534

MOV
JSR

#200,BUFLEN
PC.LODBUF

MOV

INBUF ,aBAR

CLR

aCSR

157124

LEVEL ,aDRVS
PSW
FIE+F1,aCSR

157030

3670 023540 104047

#999% ,SLPERR

MOV
CLR
MOV

010000
157024

004737

SCOPE
MOV

.EVEN

002540
177776
000102
002660

000004
002532

002534
003546
004106

004170

MOV

157130

157060
157054
002560

004737
104046

foo1s
/T # 35/<CRLF>

157146
157142

002532
002534
157042

013777
004737
104051

‘g TYPE: "'T # 35"

BR
.QSEIZ

aDRINV,SDRINV
SDRVS,SDRVS

157104
157076
002660

000421
062706
013777

,10008

MOV
MOV

000401
001000

005337
001375
013777
013777
017737
104035
012777
005077

TYPE

002532
002534

052777
012737

3653 023432
3654 023436
3655 023440
3656 023446
3657 023454
3658 023462
3659 023464
3660 023472

3651 023416
3652 023424

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

10018

157156
157152

023500

013777
005037
012777

#B817T11,38WR

BEQ

002616

012777

3648 023376
3649 023404
3650 023610

BIT

MOV
NEG
MOV
MOV

644 023346 012777 052525 157150
3645 023354
3646 023362

THIS TEST CHECKS 200 DATO TRANSFERS IN BURST MODE.

:ttttt't'tttit'Qttt'Q't"tt"ttttttttt'tt'fittttt'ttttt""'tttttt't

:
10018

023272
023274

TEST STRING OR 200 DATOS BURST MODE XFERS

157014
157010

1$:

2%:

BIS
MOV

DEC
BNE
MOV
MOV
MOV
ERROR
MOV
CLR

BR
ADD
MOV
MOV
JSR
ERROR

JSR
ERROR

JSR

ERROR

BUFLEN,WCLEN
WCLEN
WCLEN,aWCR

g8 BRANCH IF NOT

‘%8 GET OVER ASCII
88 THE ASCII MESSAGE

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%
;FORCE ACCESS TO CSR

*LENGTH OF BUFFER=200
:LOAD THE BUFFER WITH INCREMENTING PATTERN
:PREPARE NUMBER FOR WCR
:2'S COMPLEMENT OF BUFLEN
'SET UP WCR
'SET UP BAR

#5252%,aBOR

*SET UP BDR

#2$,3DRINV

“INTERRUPT VECTOR

#CY+GO.aCSR
#1000, TIME

TIME
1%
SDRINV,aDRINV
SDRVS ,aDRVS
a(SR,RCSR
+35
#MA,aCSR
a(SR

1ST136
#4,5P
SORINV.3DRINV

SDRVS, SDRVS
PC,INTA
+51
PC,DATOCK
46

PC,DATOC2

+47

:SAVE LOCATION TO BE USED AS [HE INTERRUPT VECTOR
SAVE LOCATION TO BE USED AS THE INTERRUPT PS

:INTERRUPT STATUS TO LEVEL OF DEVICE
sLET THE DR11 INTERRUPT
S1E, FNCTI
SCYCLE, 6O
:MOVE WAIT LOOP VALUE TO TIME LOCATION
:DECREMENT UNTIL WE REACH ZERO
*BRANCH BACK IF NOT ZERO

:RESTORE LOCATION USED AS THE
:RESTORE LOCATION USED AS THE
:MOVE RECEIVED DATA TO RCSR
:DR11 FAILED TO INTERRUPT
“SET THE MAINTENANCE BIT AND
:CLEAR THE CSR TO DO AN INIT
;BRANCH TO NEXT TEST
sCLEAN STACK AFTER INTERRUPT
-RESTORE LOCATION USED AS THE
:RESTORE LOCATION USED AS THE

INTERRUPT VECTOR
INTERRUPT PS

INTERRUPT VECTOR
INTERRUPT PS
WCR=0 AND BAR
READY,
ERROR,
CHECK
IE,
CLEAR
;G0
INCORECT
ARE
BAR
AND-OR
HCR
;CSR AND-OR
;CHECK INBUF
BUFFER DATA NOT CORRECT

;G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK

;700 MANY WORDS WERE TRANSFERED

MACRO M1°13 27-0(CT-80 15:53
CZORLCO-DR11 GFN NPR INTFC
TEST #36 ~ TEST STRING OF 200 DATIS NON-BURST MODE

JSBTTL

3676

H 10
PAGE 115

SEQ 0124

TEST #36 - TEST STRING OF 200 DATIS NON-BURST MODE

"t't""'"tt'"""""""""fi't'"i""('.'.'t"'ttt'Q'O"'t'

-1551 36

TEST STRING OF 200 DATIS NON-BURST MODE

THIS TEST DOES 200 DATI TRANSFERS IN NON BURST MODE.

* %

032777
001407
104401

023560

124

040

000404

3677 023600
3678 023604
3679 023610
3680 023616
3681 023622
3682 023630
3683 023634
3684 023642
3685 023650
3686 023656
3687 023664
3688 023672
3689 023700
3690 023706
3691 023712
3692 02372

3093 023720
3694 023734
3695 023740
3696 023742
3697 023750
3698 023756
3699 023764
3700 023766
023774
3702 024000
3703 024002
3704 024006
3705 024014
3706 024022
3707 024026
3708 024030
3709 024036
3710 024044
3711 024046
3712 024054

004000

000004
012737

004737
005077
012737
004737
01373"
00547%7
013777
013777
012777
017737
017737
2777
013777
005037
012777
052777
012737
005337
001375
013777
013777
017737
104035
012777
005077
000426
062706
013777
013777
004737
104051

017737
022737
001404
012737
104045

155570

043

:"i"".tt"tfi"'t""""'""t""lfi"""'.'Q't".'t"""Qt'tt
Ts136:
BIT
#BIT11,aSWR
.88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

10008 :
1001%:

023400
004036

001310

000200
003472
002622
002630
002630
002616
177777

002622

156712

999%:

002630

10018
,10008
1001$
/T # 36/<CRLF>

‘88
‘gL
‘8
:88

SCOPE
MOV

#9998 ,SLPERR

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999

CLR
MOV
JSR
MOV
NEG

aCSR
#200,BUFLEN
PC,LODBUF
BUFLEN,WCLEN
WCLEN

:FORCE ACCESS TO CSR
*LENGTH OF BUFFER=200
"LOAD THE BUFFER WITH INCREMENTING PATTERN
:PREPARE NUMBER FOR WCR
12'S COMPLEMENT OFf BUFLEN

EVEN

JSR

MOV
MOV
MOV

156654
156650

BRANCH IF NOT
TYPE: T # 36"
GET OVER ASCII
THE ASCII MESSAGE

BEQ
TYPE
BR
.esgxz

PC,CLENUP

WCLEN,aWCR
INBUF ,3BAR
#-1,380R

“SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

SSET-UP WCR
*SET-UP BAR
*MAINT AIDE

156644
156640

MOV
MOV

SDRINV.SDRINV
aDRVS , SDRVS

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS

002540

MOV
CLR
MOV

LEVEL,@DRVS
PSW
#F3+1E,aCSR

*INTERRUPT STATUS TO LEVEL OF DEVICE
"LET THE DR11 INTERRUPT
YENCT3, IE

MOV

024002

177776
000110
000401
001000
002660

1%:

156540

156556
156552
002560

010000

156526

002532
002534

156522

000004
002532

002534
003546

156512
156506

BIS
MOV
DEC
BNE

#CY+GO.aCSK
#1000, TIME
TIME
1%

MOV

aCSR,RCSR

ADD
MOV
MOV
JSR

#,5P
SDRINV.@DRINV
SDRVS,aDRVS
PC,INTA

MOV
MOV

2%:

#2%,30RINV

ERROR
MOV
CLR
BR

ERROR

*INT VECTOR

:CYCLE. GO
SSET WAIT LOOP COUNTER
*DECREMENT UNTIL WE REACH ZERO

+35
#MA,3CSR
aCSR
TS137

*BRANCH BACK IF NOT ZERO
-RESTORE LOCATION USED AS THE IMTERRUPT VECTOR
"RESTORE LOCATION USED AS THE INTERRUPT PS
*MOVE RECEIVED DATA TO RCSR
*DR11 FAILED TO INTERRUPT
"SET THE MAINTENANCE BIT AND
*CLEAR THE CSR TO DO AN INIT
"BRANCH TO NEXT TEST

+51

*CSR AND-OR WCR AND-OR BAR ARE INCORECT

SORINV,@DRINV
SDRVS ,@DRVS

‘CLEAN UP STACK AFTER INTERRUPT
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS
‘60 CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR

156470
000177

002564
002564

MOV
CMP

aBUR, RBOR
#177 .RBOR

‘MOVF RECEIVED DATA TO RBDR
*CHECK THAT WORD #200 OF INBUF

000177

002576

MOV
ERROR

#177.EBOR
+45

*MOVE EXPECTED DATA TO EBDR
‘BAD DATA IN BDR

BEQ

Ts137

‘BRANCH TO NEXT TEST IF OK

IS IN BOR

—

MACRO M1113
27-0CT-80 15:53
CIDRLCO-DRTY GEN NPR INTF(
TEST #37 - TEST STRING OF 200 DATOS NON-BURST MODE
.SBTTL

3718

110

PAGE 116

SEQ@ 0125

TEST #37 - TEST STRING OF 200 DATOS NON-BURST MODE

:Qt't""l.t't""'t""""t"t't'"Qt.'t"t'l""'t't"tttt'"t't

SeTEST 37
;t

it
b

024056
024064
024066
024072
024074

024104
024104
024106
024114
024120
024124
024132
024136
024144
024150
024156
024164
0246172
024200
024206

024214
024222
024226
024234
024242
024250
024254
024256
024264
3740 024272
024300
024302
024310
024314
024316
024322
3747 024330
3748 024336
3749 024342
3750 024344
3751 024350
3752 024352
3753 024356

032777
001407
104401
000404
124

000004

012737
004737
005077
012737
004737
013737
005437
013777
013777
012777
017737
017737
012777
013777
005037
012777
052777
012737
005337
001375
013777
013777
017737

004000

155254

Ts137:

043

10008 :
1001$:

024114

004036
156376
000200
003472
002622
002630
002630
002616
052525
156330

001310
002622

002630
156340

156324

1$:
156242
156236

002560

012777
005077
000421
062706
013777
013777
004737

010000
156206

156212

004737

004106

004737

004170

104051

104046

104047

156176
156172

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
BRANCH IF NOT
TYPE: ''T # 37"
GET OVER ASCII
THE ASCII MESSAGE

:88
‘g
-8
:88

SCOPE
MOV

#999%, SLPERR

:PROCESS LOOPING AND TEST NUMBER INCREMENT
SSET LOOP ON ERROR TO 999%

CLR
MOV
JSR
MOV
NEG
MOV
MOV

aCSR
#200,BUFLEN
PC,LODBUF
BUFLEN,WCLEN
WCLEN
WCLEN.aWCR
INBUF ,3BAR

*FORCE ACCESS TO CSR
:LENGTH OF BUFFER=200
“LOAD THE BUFFER WITH INCREMENTING PATTERN
*PREPARE NUMBER FOR WCR
:2'S COMPLEMENT OF BUFLEN
:SET UP WCR
:SET UP BAR

MOV
MOV

aDRINV.SORINV
aDRVS, SDRVS

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
<SAVE LOCATION TO BE USED AS THE INTERRUPT PS

MOV

LEVEL,DRVS

*INTERRUPT STATUS TO LEVEL OF DEVICE

BEQ
TYPE
BR
.esgxz
.

JSR

PC.CLENUP

#52525,3BOR

#2% ,3DRINV

*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

*SET UP BDR

- INTERRUPT VECTOR

CLR
MOV

PSW
#F1+F3+1E.3CSR

SLET THE DR11 INTERRUPT
:FNCT1, FNCT3, IE

MOV
MOV
MOV
ERROR

SDRINV,aDRINV
SDRVS,aDRVS
aCSR,RCSR
+35

:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS
“MOVE RECEIVED DATA TO RCSR
:DR11 FAILED TO INTERRUPT

BIS
MOV
DEC
BNE

MOV
CLR

28:

#BI1T11,aS5WR

1001$
,10008
1001$
/T # 37/<CRLF>

MOV

177776
000112
000401
001000
002660

000004
002532
002534
003546

BIT

MOV

156224

104035

999%:

024316
002540

002532
002534

THIS TEST DOES 200 DATOS IN NON BURST MODE.

;QttQ'ittttttttt't'ti"t"ttttt'ttt"'tt'ti.'tt'tt'ttt"tt'"ttt"t

024074
040

TEST STRING OF 200 DATOS NON-BURST MODE

B8R

#CY+GO,aCSR
#1000, TIME
TIME
18

#MA,3CSR
aCSR

TST40

ADD
MOV
MOV
JSR
ERROR

#4,SP
SDRINV,3DRINV
SDRVS,8DRVS
PC, INTA
+51

JSR

PC,DATOC2

JSR
ERROR

ERROR

PC,DATOCK
+4b

+47

:CYCLE, GO
:SET WAIT LOOP COUNTER
:DECREMENT UNTIL WE GET TO ZERO
"BRANCH BACK IF NOT ZERO

“SET THE MAINTENANCE BIT AND
<CLEAR THE CSR TO DO AN INIT

:BRANCH TO NEXT TEST

:CLEAN UP STACK AFTER INTERRUPY
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
SRESTORE LOCATION USED AS THE INTERRUPT PS
160 CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR
<CSR AND-OR WCR AND-OR BAR ARE INCORECT
:CHECK INBUF
"BUFFER DATA NOT CORRECT

160 BACK TO SUBROUTINE AFTER ERROR RTS IN DATO(K

:T00 MANY WORDS WERE THANSFERED

CIZDRLCO-DRT1 GEN NPR INTF(
END OF DEVICE PASS ROUTINE

MACRO Mi113

27-0CT-80 15:53

J 10

PAGE 117

SEQ 0126

.SBTTL

END OF DEVICE PASS ROUTINE

ENDEV:

SCOPE
CLR
CMP
BEQ
18T
BNE

:"t"".'tfi't'tt't't't'"""tttt.t"t"'"""'i"""""t"""

000004
005037
022737
001444
005737
001014
105737
001413
105737
001003
105737
001430
105237
000402

001302
000001

002414

001312
002706

1ST8
BEQ

002707

1518

BNE

030707

118

002707

1%:

104401
104401

001405
035322
001422

2%:
3%:

104401

036237
001312

1044601

034250
001312

013746
104405

004737
104401

005237
023737
001404
005237
000137

001422
011020

TYPE
TYPE
MOV
TYPDS
TYPE

TYPE
MOV
TYPDS

003126
001405

001420
002414

BEQ
INCB
BR

IST
BEQ

001420

005737
001407

013746
104405

L o

3756 024360
3757 024362
3758 024366
3759 024374
3760 024376
3761 024402
3762 024404
3763 024410
3764 024412
3765 024416
3766 024420
3767 024424
3768 024426
3769 024432
3770 024434
b144 024440
3772 024444
024450
3773 024452
3774 024456
3775 024462
3776 024464
3777 024470
3778 024474
3779 024476
3780 024502
3781 024506
3782 024512
3783 024520
3784 024522
3/85 024526

JSR

TYPE

INC
CMP
BEQ
INC
JMP

$STSTNM
#1,QTYBRD

SERTTL
$
EOPLOC

3%
EOPLOC+1
1%
CHARCT

5%
EOPLOCH#Y
3%
+SCRLF
.BOARD

SUNIT,-(SP)

,TSTCOM

SERTTL
43

LETDEV

$ERTTL,-(SP)
PC,ERCAPT

$CRLF

$DEVCT

QTYBRD,$DEVCT
$EOP

SUNIT

TSTDEV

;FOR POSSIBLE LOOP ON TEST

sCLEAR TEST NO. COUNT FOR SCOPE ROUTINE
;1S THERE MORE THAN 1 BOARD UNDER TEST?
;BRANCH IF NO

;SEE IF THERE WERE ANY ERRORS
;BRANCH AROUND EOP TEST IF SO
;SEE IF EOP MESSAGES ARE TO PRINT
;BRANCH IF SO
;SEE IF EOP WAS REQUESTED BEFORE
;BRANCH TO PRINT MESSAGE IF SO
;SEE IF EOD REQUESTED
;BRANCH AROUND MESSAGE PRINT [F NOT
; INCREMENT UPPER BYTE OF EOPLOC TO CALL EGP MESSAGE
;BRANCH IF NOT - NO ERRORS TO SPACE FROM
sTYPE A <CRLF>

;TYPE:

'BOARD # '

;TYPE:

:.SAVE SUNIT FOR TYPEOUT
;.60 TYPE--DECIMAL ASCI] WITH SICN
TESTING COMPLETE'’

;SEE IF ANY ERRORS THIS DEVICE

;BRANCH AROUND TOTAL ERRORS MESSAGE IF NONE
' - TOTAL ERRORS THIS DEVICE = '
;TYPE:
;MOVE NUMBER OF ERRORS TO THE STACK
;GO TYPE THE NUMBER
;G0 LOG THE UNIT #, PASS # € # OF ERRORS THIS DEVICE
;VYPE A <CRLF>
; INCREMENT DEVICE COUNTER
;ALL DEVICES TESTED?
;G0 TO END OF PASS ROUTINE [F SO
s INCREMENT THE UNIT NUMBER
;GO TEST NEXT DEVICE

CZORLCO-DRi1 GEN NPR [NTFC

END OF PASS ROUTINE

MACRO M1113

27-0CT-80 15:53

.SBTTL

3786

K 10
PAGE 118

END OF PASS ROUTINE
A

SEQ 0127
R

A A e R

;*INCREMENT THE PASS NUMBER (SPASS)

;*TYPE ''END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)

;*IF THERES A MONITOR GO TO IT

024532
024532
024534
024540
024544
024546
024552
024556
024560
024562
024564
024566
024570
024572
024576
024600
024604
024606
024612
024614
024620
024622
024630
024632
024636
024640

;*IF THERE ISN'T JUMP TO GOAGIN

000004

v05037
005237

001302
001416

005037
005237
005327
000001
003076
012737
000001
024560

001416
002716

100004

002706

105037
000405
005737
001402
104401
105037

030707

001443

013746
013746
104406
104401

005737
001413
022737
001007
104401

013746
104405
004737
104401
013700
001405
000Q05
004710
000240
000240
000240

SCOPE

CLR
INC

STSTNM
$PASS

::7ERO THE TEST NUMBER
*"INCREMENT THE PASS NUMBER

CLR

$PASS

88 CLEAR THE PASS LOCATION AND

BPL

INC

108:
DEC
$EOPCT: .WCRD

002707
030707

000007

18:

001405
002707
024767
002716
001416

2%
38

;88
8
‘%8
%8
"8
%8
88
%8

BEQ

$GET4L2

%8 BRANCH IF A (*G) - THIS NOT MEANT FOR EOP ROUTINE

BR
TST
BEQ
TYPE
CLRB
TYPE
MOV
MOV

3
$ERTTL
3
,S$CRLF
EOPLOC*?
,SENDMG
$PASS2,-(SP)
$PASS, - (SP)

%8 GET OVER SERTTL TEST AND <CRLF> PRINT
82 SEE IF AN EXTRA <CRLF> NEEDS PRINTING
‘g8 BRANCH IF NOT
‘%8 TYPE A <CRLF> TO SPACE EOP FROM ERROR
‘28 CLEAR THE UPPER BYTE OF EOPLOC
S:TYPE "END PASS #''
:£% MOVE OVERFLOW TO STACK FOR PRINTING
1 MOVE $PASS TO THE STACK FOR PRINTING

TYPE

,SENULL

S-TYPE A NULL CHARACTER

TYPDE

024764
001312
000001

003126
001405
000042

CHARCT

CMP

#1,QTYBROD

MOV
TYPDS

$ERTTL.-(SP)

JSR

TYPE
4$:
$GET42: MOV
BEQ

RESET

$ENDAD: JSR

NOP
NOP

$OOAGN:

#7.CHARCT

$ERTTL

BNE
TYPE

030710
001312

BEQ

002414

::L00P?

EOPLOC
1
$ERTTL
28
EOPLOCH1
1%
CHARCT
$GET4R

CLRB

001312

(PCH+
1

88 INCREMENT $PASS2 TO SHOW 1 OVERFLOW

TSTB
BEQ
ST
BNE
TSTB
BNE
TSTB
BEQ

CMPB

030707

$PASS?2

‘88 BRANCH IF STILL POSITIVE

;S YES
:-RESTORE COUNTER

$EOPCT

001312

108

$DOAGN
(PC)+,a(PC)+

BGT
MOV
SENDCT: .WORD

105737
001420
005737
001020
105737
001012
105737
001447
122737

104401

024760

$EOP:

NOP

SEE IF
BRANCH
SEE IF
BRANCH
SEE IF
BRANCH
SEE IF
BRANCH

EOP MESSAGES ARE TO PRINT
IF THEY ARE
ANY ERRORS THIS PASS
IF THERE ARE TO PRINT EOP
ERROR OCCURED IN ANOTHER DEVICE
IF ANY TO PRINT EOP
ANY CHARACTER WAS INPUTED
IF NOT

‘8% SEE IF OTHER THAT (*G) TYPED, REQUESTING EOP
‘88 CLEAR THE LOCATION

‘8% TYPE THE NUMBER IN EXTENDED DECIMAL

‘8¢ SEE IF ANY ERRORS THIS PASS

% BRANCH AROUND NUMBER OF ERRORS MESSAGE IF NONE

$
,TESLR

%8 BRANCH IF NOT - 'TOTAL ERRORS' IS MEANINGLESS
‘g8 TYPE: * TOTAL ERRORS SINCE LAST REPORT '

PC,ERCAPT
,S$CRLF
362 .RO
$DOAGN
PC, (RO)

‘8 SEE IF ONLY 1 BOARD IS BEING TESTED

-8 PUT SERTTL ON STACK FOR PRINTING
28 TYPE THE NUMBER OF ERRURS IN DECIMAL

‘88 GO CAPTURE THE DEVICE, PASS & # OF ERRORS

‘88 TYPE A <CRLF>
*;GET MONITOR ADDRESS
*'BRANCH IF NO MONITOR
“'CLEAR THE WORLD

160 TO MONITOR

'SAVE ROOM
:FOR

TACTI

—

CIDRLCO-DRi1 GEN NPR INTFC

END OF PASS ROUTINE
024760
024762
024764
024767

000137
025002
377
105

3787 025002

005037

377
116
001420

3790 025016
3791 025022

000137
005037

011206
001622

3788 025006
3789 025014

3792 025026

022737
001002

000137

000001

011006

MACRO M1113

000
106

002414

27-0CT-80 15:53

SRTNAD:
SENULL:
SENDMG:

PAGE 118-1

SEQ 0128

JMP
.WORD
.BYTE
.ASCIZ

a(PC)+
GOAGIN
=1,-1,0
/END PASS #/

; sRETURN

CMP
BNE

#1,QTYBRD
RSTRTY

;1S THERE ONLY ONE DEVICE UNDER TEST?
;BR, IF NOT

GOAGIN: CLR

RSTRT:

L 10

JMP
(LR

JMP

;sNULL CHARACTER STRING

$DEVCT

;CLEAR DEVICE COUNT

REINIT
SUNIT
BEGINI

;GO DO ANOTHER PASS
;CLEAR UNIT NUMBER
;GO BEGIN TEST OF NEXT DEVICE

CIORLCO-DRi1 GEN NPR INTF(

TYPE ROUTINE

MACRO M1113

3793

27-0CT-80 15:53

.SBTTL

M 10
PAGE 120

SEQ 0129

TYPE ROUTINE

R R
L e

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;+THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
'NOTE1
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
;'NOTEZ:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE3:
‘fi

s«CALL:
:*1) USING A TRAP INSTRUCTION
13
TYPE
+MESADR
.'OR

oY
A
;t

025032
025036
025040
025042
025044
025046

025052

105737
100002

001357

$TYPE:

000000
000430

010046
017600
122737
001011
132737

001405
010037
004737
000000
132737
001003

001430

000100

001431

025102
031534

000040

122716

001006
005726
104401

001431

TYPE
MESADR
TSTB

BPL
HALT
B8R
MOV
MOV

CMPB

BNE

BI1TB
BEQ

61$:

62%:
2%:

112046

001005
005726
012600
062716
000002
122716
001430

1%:

000002
000001

000002

60%:
3%

000011

4%:

MOV
JSR

.WORD

BITB

BNE

MOVB
BNE
TST

MOV
ADD

RTI
CMPB

BEQ

CMPB

000200

BNE
TST

TYPE

025374

025244
001356

013746

001354

105366
002770

000001
025244

025216

004737
105337
000770

025220

112716

000040

025374

5¢:
6$:

$CRLF
CLRB
B8R
JSR
CMPB
BNE
MOV

7%:

DECB
BLT
JSR
DECB
BR
-HORIZONTAL TAB

Bs:

; sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

MOVB

$STPFLG
1%

;218 THERE A TERMINAL?
::BR IF YES

;s LEAVE

;:HALT HERE

JF NO TERMINAL

::SAVE RO
;sGET ADDRESS OF ASCIZ STRING
#APTENV,SENV
;sRUNNING IN APT MODE
62%
::NO,GO CHECK FOR APT CONSOLE
zA:TSPOOL.$ENVH ::SPOOL MESSAGE TO APT
;3NO,GO CHECK FOR CONSOLE
RO,61%
:sSETUP MESSAGE ADDRESS FOR APT
PC,SATY3
::SPOOL MESSAGE TO APT

RO,<(SP)

a2(sP) RO

#APTCSUP,SENVM
60 $
(RO) +,-(SP)
4$
(SP)+
(SP)+,RO
#2,(SP)

: ;MESSAGE ADDRESS

..APT CONSOLE SUPPRESSED
;YES,SKIP TYPE OUT

..PUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK
: ;RESTORE RO

#HT, (SP)

::ADJUST RETURN PC
:;RETURN
;sBRANCH IF <HT>

#CRLF, (SP)

: ;BRANCH IF NOT <CRLF>

(SP)+

:.POP

SCHARCNT

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
;18 IV TIME FOR FILLER CHARS.?
;:1F NO GO GET NEXT CHAR.
:sGET # OF FILLER CHARS. NEEDED

PC,STYPEC
SFILLC,(SP)+
2%
$NULL,-(SP)

1(SP)
6%
PC,STYPEC
SCHARCNT
7%
PROCESSOR
& L (SP)

<CRX><XLF> EQUIV

:sTYPE A CR AND LF

:sAND THE NULL CHAR.

:sDOES A NULL NEED TO BE TYPED?
:;BR IF NO--GO POP THE NULL OFF OF STACK
;.60 TYPE A NULL
::D0 NOT COUNT AS A COUNT
;. LOOP

:sREPLACE TAB WITH SPACE

)

(o e Y-S IV P ¥ P JV [V 1N
oS OoONO LSOO
S

Z -~

004737
132737

[eleololelelolelelalale]

TYPE ROUT

GEN NPR INTFC

MACRO M1113

27-0CT-80 15:53

N 10
PAGE 120-1

SEQ 0130

[ a2

CIDRLCO-D

NIV
NI RN NN NI NON)
VI IV IV IV AV IV TV I IV TV
[STST ST ST ST NI NI, S ST1,N1, )

025244
000007

025374

154100

05777

000002
154060

154072

154056

030707
030707
030707

000200
000023

025274

3s:

154026

154022
000200
000021

000015

030707
030707
030707
000002

025374
000012
025374
025376

000000

000207

JSR
BITB
BNE
TST
BR
$TYPEC: TSTB
BPL
MOovB
1STB
BPL

000002

2s:

PC,$TYPEC

g;.sanacnr
(SP)+

as$TPs
STYPEC

2(SP),as$TPB

#8$71Ks$

Move

a8$TKB,CHARCT
#200,CHARCT
Q%S.CHARCT

TST8

a$TKS

BICB
CMPB
BNE
BPL
MOVB
BI(CB
CMPB
BNE

(MPB

BNE
CLRB
BR
CMPB
1%:
BEQ
INCB
$CHARCNT: .WORD

$TYPEX: RTS

a$TKB, CHARCT
#200,CHARCT
l%1,CHARCT

#CR,2(SP)
1$
SCHARCNT
S$TYPEX
#LF,2(SP)
$STYPEX
(PC)+

::TYPE A SPACE
:;BRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK
::GET NEXT CHARACTER
:WAIT UNTIL PRINTER IS READY

:sLOAD CHAR TO BE TYPED INTO DATA REG.
SEE IF KEYBOARD IS TALKING.
“'BRANCH IF IT ISN'T.

‘88 PUT CHARACTER IN CHARCT

‘88 BIT CLEAR PARITY BIT.
%8 SEE IF THIS IS A *S.

*:BRANCH TO CONTINUE IF IT ISN'T.
“'WAIT FOR ANOTHER INPUT.
'BRANCH BACK IF NOT READY.

‘88 PUT CHARACTER IN CHARCT
88 BIT CLEAR PARITY BIT.
‘8 SEE IF THIS IS A “Q.

BRANCH BACK FOR MORE WAIT IF NOT.
1S CHARACTER A CARRIAGE RETURN?
*'BRANCH IF NO
::Ei?;-CLEAR CHARACTER COUNT

IS CHARACTER A LINE FEED?
*'BRANCH IF YES
“'COUNT THE CHARACTER
::CHARACTER COUNT STORAGE

CIORLCO-DRT1 GEN NPR INTF(

BINARY TO OCTAL {ASCII) AND TYPE

3794

MACRO M1113

BN
PAGE 121

27-3CT-80 15:53

.SBTTL

SEQ 0131

BINARY TO OCTAL (ASCII) AND TYPE
LT

SRR

R T

R ALY

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCI1) NUMBER AND TYPE IT.

;#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OfF DIGITS TO TYPE
s*CALL:
MoV
]
13

TYPOS

.BYTE

o
:t

- (SP)
NUM,

BYTE

; ;NUMBER TO BE TYPED

::CALL FOR TYPEOUT
:sN=1 T0O 6 FOR NUMBER OF DIGITS TO TYPE

::M=1 OR 0
::1=TYPE LEADING ZEROS

;;0=SUPPRESS LEADING ZEROS

.t
"

;*$TYPOS OR $TYPOC

s*CALL:

ot
M
;t

(1))
TYPON

- (SP)
NUM,

: NUMBER TO BE TYPED
;s CALL FOR TYPEOUT

*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

J*CALL:

025400
025404
025412
025416
025422
025424

025432
025440
025446
025450
025452
025454
025460
025462

017646
116637
112637

000000
000601
025625
000002
000001
000006
000005

MOov8
MOVB
ADD

B8R
$TYPOC: MOVB
Mov8
$TYPON: MOVB

[0}
MOV
MOV
MOVB

025625

000006
025624
025623
000012

M~NO

2s:

3s:

orNoO

[elelelelelelelelalolial=d

VAV VAWAVA
WA WAVAVAWIWALW
VAWV
TRV VIV WA

1%:

0256264

MOV

M
TYPOC
$TYPOS: MOV

NEG
ADD
MOVB
Movs
MOV
CLR
ROL
BR

ROL

ROL
ROL
MOV

ROL

177770

000060
000040

43:

INC

5¢%:

8IS

- (SP)
NUM,

a(sP),~(SP)
1(SP),$OFILL
(SP)+,$0MODE
+1
#2,(SP)
$TYPON
#1,80FILL
#6,30MODE
+1
#5,80CNT
R3,-(SP)
R&4,-(SP)
RS5,=(SP)
$OMODE +1,R4
R4
#6,R4
R4 ,$0MODE
$OFILL,R4

12(SP) RS

R3
RS
3%
RS
RS
RS
R5,R3
R3
$OMODE
7%
2177770,R3

:sNUMBER TO BE TYPED
;s CALL FOR TYPEOUT
;:PICKUP THE MODE
:sLOAD ZERO FILL SWITCH
; sNUMBER OF DIGITS TO TYPE
:;ADJUST RETURN ADDRESS
:3SET THE ZERO FILL SWITCH

::SET FOR SIX(6) DIGITS
:2SET THE ITERATION COUNT

:;SAVE R3
::SAVE Ré
;s SAVE RS

::GET THE NUMBER OF DIGITS TO TYPE
:sSUBTRACT IT FOR MAX. ALLOWED
;s SAVE 1T FOR USE
¢;GET THE 2ERC FILL SWITCH
::PICKUP THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD
: ;ROTATE MSB INTO ''C"’
;.60 DO _MSB
::FORM THIS DIGIT

::GET LSB OF THIS DIGIT
;:TYPE THIS DIGIT?
J:BR IF NO

;:GET RID OF JUNK

:;TEST SOR 0
: s SUPPRESS THIS 0?
J:BR IF YES
::DON'T SUPPRESS ANYMORE 0'S
ssMAKE THIS DIGIT ASCII
:MAKE ASCI1

IF NOT ALREADY

—

[elelolelololele]

MNININIRNINININOND

[V_1V_ IV_ I

YPE

MACRO M1113

27-0CT-80 15:53

7%:

6%:

000002

000004
8%:

025624

0
000000

$SOCNT:
$OFILL:
$OMODE:

MOVB
TYPE
DECB

R3,8%

INC
BR

86T
BLY

MOV

MOV
MOV
MOV
MOV
RTI

.BYTE
.BYTE
.BYTE
.WORD

c1
PAGE 121-1

1
$OCNT
2$
6%

2$
(SP)+,RS

¢+ .R&
( SP)
(S P)+,R3

(SP)
2(S4P)
(SP)+,(SP)

OOO0O0O

CIDRLCO-DRT1 GEN NPR INTF(
BINARY TO OCTAL (ASCII) AN

SEQ 0132

::SAVE FOR TYPING
::60 TYPE THIS DIGIT
;:COUNT BY 1
::BR IF MORE 19 0O
:sBR IF DONE
+ s INSURE LAST DIGI T ISN'T A BLANK
::60 DO THE LAST D I617
:;RESTORE RS
:sRESTORE R&

:;RESTORE R3
::SET THE STACK FOR RETURNING
: ;RETURN
; ;STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE

;sOCTAL DIGIT COUNTER
;s ZERO FILL SWITCH
; sNUMBER OF DIGITS TO TYPE

———

MACRO M1113
CZDRLCO-DRI1 GEN NPR INTF(
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

27-0CT-80 15:53

.SBTTL

3795

o1
PAGE 122

SEQ 0133

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
L

T TR P T T

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
:«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER 1S 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:
;t
- (SP)
MOV
NUM,
4
TYPDS
.

::PUT THE BINARY NUMBER ON THE STA(CK
;:G0 TO THE ROUTINE

;88 IF YOU SHOULD HAVE A NUMBER GREATER THAN 32767 TO PRINT, LOAD THE
;88 MULTIPLE OF 32768 ON THE STACK, THEN THE REMAINDER AS YOU WOULD

FOR INSTANCE, WHEN INCREMENTING A COUNTER TO BE PRINTED,
ABOVE.
i{F NEGATIVE, CLEAR THE LOCATION AND INCREMENT
TEST FOR NEGATIVE.
A SPECIAL OVERFLOW LOCATION.
CALL:
- (SP)
Mov
OVFNUM,
17
;88 PUT OVERFLOW NUMBER ON STA(CK
NUM,-(SP)
MOV
.88
;88 PUT REMAINING NUMBER ON STACK
TYPDE
;88 GO TO THE ROUTINE
;82
#1,8TMP2
$TYPDE: MOV
;80 SHOW ENTRY AT STYPDE
$TYPD
B8R
;8% GO TO ROUTINE
$TMP2
$TYPDS: CLR
;48 SHOW ENTRY AT S$TYPDS
;88
;08
;88
;88

025626
025634
025636
025642
025642
025644
025646
025650

025652
025654
025660
025664
025666
025670
025676
025700
025704
025710
025712
025716
025720
025722
025724
025726

012737
000402
005037

000001

001364

$TYPD:

010046
010146
010246
010346

010546
012746
016605
100004

005405
112766
005000
012703
112723
005002
016001
160105
002402
005202

020200
000020

000055

000001

026142
000040

1%:

2%:

026132

3%:

4%:

5%:

000001
000060
000040

025772

000010

177777

6%:
7%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV

BPL
NEG
Move
CLR
MOV
Move
CLR
MOV

sus

RO,-(SP)
R1.-(SP)
R2,=(SP)
R3.-(SP)
RS- (SP)

#20200,-(SP)
gg(sp>“RS

RS
#-,105P)
RO
#$DBLK ,R3

LR+

$OTBL (RO) ,R1

BLT
INC
BR

STACK
STACK
STACK
STACK

; sPUSH R5 ON STACK

s;SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
:;BR IF INPUT IS POS.
; :MAKE THE BINARY NUMBER POS.
:sMAKE THE ASCI1 NUMBER NEG.
:;IERO THE CONSTANTS INDEX
:sSETUP THE OUTPUT POINTER
;sSET THE FIRST CHARACTER TO A BLANK
:sCLEAR THE BCD NUMBER
:sGET THE CONSTANT
:;FORM THIS BCD DIGIT
..BR 1F DONE
: INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CONSTANT
;:CHECK If BCD DIGIT=0
:;FALL THROUGH JF O
::STILL DOING LEADING 0°'S?

ADD

TST
BNE
1ST8
BMI

;;PUSH RO ON
:;PUSH R1 ON
;;PUSH R2 ON
:sPUSH R3 ON

(SP)

6%
1(SP),-1(R3)

#'0,R2
"

R2,(R3)+

(r)+

RO,#10
2%

;:BR IF YES
;:MSD?

::BR IF NO

:sYES--SET THE SIG N
:sMAKE THE BCD DIG l 1 ASCII

:sMAKE IT A SPAC 3 l f NOT ALREADY A D1G! 1
:sPUT THIS CHARAC T 3 R IN THE OUTPUT BUFF ER
;s JUST INCREMENTIN 6
;s CHECK THE TABLE | N DEX
::60 DO THE NEXT DI 6 17

MACRO M1113
CIDRLCO-DRTY GEN NPR INTF(
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
025774
025776
026000
026002
026004
026006
026014
026016

003002
010502
000764
105726
100003
116663
105013
005737
001405
005766
001402
004737

012605
012603
012602
012601
012600
026054
026060
026062
026070
026074
026076
026102
026110
026116
026120
026126
026130
026132
026142

104401

005737
001417
016666
012666
005726
105037
112737
112737
000002
016666
072616
000002
023420

27-0(T-80 15:53
8GT

MOV

8%:
177777

177776

1ST8
BPL
MmovB

CLRB

001364

TST

000020

0261564

10%:

026142
001364
000002
000002

BEQ
187
BEQ
JSR
MOV
MOV
MOV
MOV
MOV
TYPE
1ST

BEQ

000006

MoV
MOV

TST
CLRB

026151
000040
000040

026150
026142

000002

000004

118%:

001750

000144

$DTBL:
$0BLK:

MOVB
MOovB
RTI
M0y
MOV
RTI
.WORD

.BLKW

EN
PAGE 122-1

SEQ 0134

8%
RS .R2
6%

;:60 TO EXIT

9$
=1(SP),=2(R3)
(R3)
$TMP2

‘BR IF NO

(SP)+

“'GET THE LSD
1160 CHANGE TO ASCII
;iWAS THE LSD THE FIRST NON-ZERO?

..ves--ser THE SIGN FOR TYPING
SET THE TERMINATOR

‘82 WAS ENTRY AT STYPDS?
%8 BRANCH IF SO

PC,EXPAND

188 TEST THE OVERFLOW LOCATION
‘88 BRANCH IF NON-ZERO
‘%8 GO EXPAND THE DECIMAL NUMBER

(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0

::POP STACK
::POP STACK
:;POP STACK
;:POP STACK
;;POP STACK

$TMP?

;88 SEE IF ENTRY WAS AT S$TYPDS
;8% BRANCH IF SO
;88 ADJUST THE STACK

,S0BLK

1198
2(SP),6(SP,

(SP)+,2(SP)

(SP)+

$OBLK+7
#'

,S0BLK+6

,S0BLK

2(SP) ,4(SP)
(SP)+,(SP)

INTO RS
INTO R3
INTO R2
INTO R1
INTO RO

::NOW TYPE THE NUMBER

;88 REPLACE ORIGINAL TERMINATOR
;88 REPLACE ORIGINAL SPACE CHARA(CTER
;8% REPLACE ORIGINAL SPACE CHARACTER
;88 RETURN TO USER

:;ADJUST THE STACK

:;RETURN TO USER

10000.,1000.,100. .10.

CIDRLCO-DRi1 GEN NPR INTFC

MACRO M1113 27-0CT-80 15:53
SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767

.SBTTL

PAGE 125

SEQ 0135

SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767

026370
026374
026376
026402
026406
026410

000012

CLR

MOV

CLR

1%:

001360
001360

2s:

001360
3%

000060
000071

001362
000012
001362
026142

001362

001320

ADD

CMP
BGE
suB
MOV

DEC
INCB
BISB
CMPB
BGE
MOvB
suB
MOVB
CMP
BNE
DEC

BNE

CMP
BNE

001362
001360
000002

BIS

MOVB
DEC
TST

026145

000003

MOV
MOV
MOV
MOVB

013007

$NUMS:

MOV
MOV
RTS
.WORD

MOVE LOCATION OF LCD+1 TO R?
MOVE NEW LOCATION OF LCD+2 TO R3

MAKE SURE TERMINATOR IS THERE
MOVE THE 5 ASCII'S TO THEIR NEW LOCATIONS

-(R3)
-(R2),=(R3)
|~
o

000040
000040
000040
000040
001360
001360
001362
001362
026151
026420
000026
001360
000060
001360
000071

#SDBLK+12,R3

CLRB

MOVB
MovB
MOVB
MOove
MovB
Move
MOVB
MovBe
[[0}Y:]
MOV

#SDBLK+6,R2

020
0 X2

MoV

EXPAND: MOV

026150
026156

e
Ot b d d e e e e

026154
026160
026164
026166
026170
026172
026174
026176
026200
026204
026210
026214
026220
026224
026230
026234
026240
026264
026250
026254
026260
026266
026272
026300
026302
026310
026312
026314
026316
026322
026326
026330
026334
026342
026346
026352
026354
026356

—l—‘-‘—l-—l—.—.—.—l—.o—l—‘
WRINIRORD
£~ &~ £~ B 5O
N~ NN
O N~
SN
ROO
U LN L A
U N L o U
N AN RO

;t"tt"tt't"tt""i"""""Q'Q"".'Qi"tt""tt't"t.""""'

$TMP1,=(SP)
$THP1
#SDBLK+7,R1

#SNUMS+10,
R2
26(SP) ,RO

(R1),$TMPO
#0,$TMPO
(R2),$TMPO
26, $TMPO
4$
#10.,$TMPO

R1,RS

R3
(R3)
20, (R3)
#'9. (R3)

(R3),$TMP1
#10..8THPY

$TMP1, (R3)
#$0BLK,R3
3s

2%
$TMPO, (R1)
R1
-(R2)

MOVE & SPACE CHARACTERS TO THE & NEW LOCATIONS

SAVE $TMPO
CLEAR LOCATION TO USE AS ACCUMULATOR

SAVE $TMP1

CLEAR LOCATION TO USE AS 2ND ACCUMULATOR
MOVE ADDRESS OF LCD TO R2
MOVE ADDRESS+10 OF WORD STREAM OF 86 TO RZ
MOVE OVERFLOW LOCATION CONTENTS TO RO
MOVE ASCII TO THE TEMPORARY LOCATION
MAKE LOCATION AN ASCII IF NOT ALREADY
ADD THE NUMBER TO THE ASCII

MAVE WE SURPASSED ASCII

BRANCH iF NOT

'9'?

SUBTRACT 10 FROM THE ASCII AND
MOVE PRESENT ASCII ADDRESS TO R3
DECREMENT TO NEXT SIGNIFICANT ASCII DIGIT
ADD THE CARRY TO THE ASCII

SET BITS TO MAKE IT A NUMBER ASCII
SEE IF CARRY NEEDS TO BE TRANSFERED
BRANCH IF NOT
MOVE BYTE T0O LOCATION $TMP1
SUBTRACT 10 DECIMAL AND
& MOVE IT BACK
SEE IF ALL POSITIONS HAVE BEEN DONE
BRANCH BACK IF NOT
DECREMENT THE OVERFLOW LOCATION RO
BRANCH IF NOT ALL ADDED

MOVE NEW NUMBER TO LOCATION
POINT R1 TO THE NEXT ASCII LOCATION

(SP)+,$TMP1

POINT R2 TO NEXT DIGIT TO ADD
SEE IF ALL DIGITS HAVE BEEN ADDED
BRANCH IF NOT DONE
RESTORE $TMP1

RE TURN

::DBLKOS,Rl
(SP)+,$TMPO

3.,2,7,6.8.

RESTORE $TMPO

CIDR LCO-DR11 GEN NPR
T1Y INPUT ROUTINE

INTF(

MACRO M1113

27-0CT-80 15:53

LSBTTL

3796

XE I

"ENABL

JRR
PAGE 126

SEQ 0136

TTY INPUT ROUTINE
YRS E

LSB

X2 2R 2222222222200 RZRRRRRRRR202RRRRdRRRRRdRRRlld)

;*SOF TWARE SWITCH REGTSVER CHANGE ROUTINE.

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP (ALL
000176

026422
026430
026432
026436
026440
026444
026450
026452
026456
026460
026464
026470
026474
026476
026504
026506
026514
026516
026522
026526
026532

001340

. *WHEN OPERATING IN TTY FLAG MODE.

$CKSWR: CMP
BNE

030707

1S18

BEQ

030707
030707

MovB
CLRB

152666

1%:

152662
177600
000007

2%:

177776

030707

001334

000001

027202
027207
000176

026534
026540
026544

026546
026550

026554
026556
026562
026566
026572
026574
026600
026604
026606

3%:
$GTSWR:

19%:

152570

7%:

152564
177600
000025

9%:

027175
000006

20%:

000015

10%:

000004

026672

]
[ X

152466

000100

000001

—

001405
001335

TYPE
TYPE
MOV
TYPOC

TYPE
CLRB
CLR
CLR

1ST8

BPL
Move
8IC
(MP
BNE

28
asTKS
15%
as$TKB,-(SP)

#C177, (sP)
#7.(SP)+

3s
=2(SP) ,CHAR(CT

15%
M
$AUTOB,
158%

LSCNTLG
, SMSWR

SWREG,~(SP)

,SMNEW

88 BRANCH IF NOT
'8 MOVE CHARACTER TO THE STACK
‘88 CLEAR THE CHARACTER FROM CHARCT
‘88 GO CHECK IT ouT
1 CHAR THERE?

“'IF NO, DON'T WAIT AROUND
1:SAVE THE CHAR
S STRIP-OFF THE ASCII
2215 IT A CONTROL 6?

‘88 YES, BRANCH AROUND RETURN TO USER SETUP
188 MOVE CHARACTER BACK TO CHARCT
188 RETURN TO USER
::ARE WE RUNNING IN AUTO-MODE?
'BRANCH IF YES
S ECHO THE CONTROL-G (*G)
*'TYPE CURRENT CONTENTS

1 *SAVE SWREG FOR TYPEOUT
1160 TYPE--OCTAL ASCII(ALL DIGITS)
::PROMPT FOR NEW SWR

a887TkKS
4]
a$TKB, - (SP)

SUIF NOT TRY AGAIN

#°C177, (SP)
(SP),#25

BNE

MOV
ADD
TYPE

BLT
(MpP

‘88 SEE IF CHARACTER WAS INPUTED DURING PRINT

8% CLEAR ANY CHARACTER THAT WAS INPUTED DURING PRINT

=(SP)
-(SP)

BR
CMP

MOV
RTI
JSR
(MP

Si1S THE SOFT-SWR SELECTED?
S *BRANCH IF NO

CHARCT

TYPE
ADD

CMPB
BNE

—

152510

000067

BR
CMPB
BEQ

1%
(SP)
- T,
CHARC
CHARCT

TST

000002

025244
000060

8IC
CMP
BEQ

158
CHARCT

BEQ

(e 3V,
[ X

012777
000002
004737
021627
002420
021627

1578
BPL
Mmove

MovB

027220
030707

000006

SWR
#SWREG,

15
#100,8$1kS
PC,STYPEC

(SP),#60
18%
(SP) ,#67

:sCLEAR COUNTER
1:THE NEW SWR
*:CHAR THERE?
SiPICK UP CHAR

TIMAKE IT 7-BIT ASCII
231 IT A CONTROL-U?
*BRANCH IF NOT
LIYES, ECHO CONTROL-U (*U)
. 1GNORE PREVIOUS INPUT
TLLET'S TRY IT AGAIN
2218 IT A <CR>?
S:BRANCH IF NO
“IYES, IS IT THE FIRST CHAR?
SiBRANCH IF YES
1:SAVE NEW SWR
S:CLEAR UP STACK
;sECHO <CR> AND <LF>
“'RE-ENABLE TTY KBD INTERRUPTS?
S'BRANCH If NOT
*'RE-ENASLE TTY KBD INTERRUPTS
s 'RETURN
T ECHO CHAR
::CHAR < (?
::BRANCH [F

;:CHAR > I?

YES

)

CZDRLCO-DRTY GEN NPR INTFC

TTY

INPUT ROUTINE

026676
026700
026704
026710
026712
026714
026716
026720
026724
026730
026732
026736

003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

MACRO M1113

27-0(CT-80 15:93
BGT
8I(
TST
BEQ

000060
000002

ASL
ASL
ASL

000002

17%:

001404

18%:

TYPE

.DSABL

LSB

177776

INC

H 11

PAGE 124-1

SEGC 0137

; ;BRANCH IF YES

::STRIP=-0OFF ASCII

;218 THIS THE FIRST (CHAR
; :BRANCH IF YES
:iNO, SHIFT PRESENT
.

CHAR OVER TO MAKE

ROOM FOR NEW ONE.
M::KEEP COUNT OF (HAR
;:SET IN NEW C(HAR
;;GET THE NEXT ONE
1 TYPE

2<CR>SLF>

;:SIMULATE CONTROL-U

.'"t't"tt'tt.tl""""""'t'tt."'.t.'.t'..""'.t"""'i't"it

CIORLCO-DRI1 GEN NPR INTFC

ROUTINE TO INPUT A SINGLE

MACRO M1113

CHARACTER FROM TTY

27-0(CT-80 15:53

.SBTTL

I N
PAGE 125

SEQ 0138

ROUTINE TO INPUT A SINGLE CHARACTER FROM TTY

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
svCALL:
*

026740
026742
026750
026754
026756
026764
026772
027000
027002
027006
027010
027014
027020
027024
027026
027030
027036
027040
027046
027050
027056

000002

000004
000004
000023
2s:

152336
152332
177600
000021

026627
002407
026627
003003
042766
000002

000004

000140

000004

000175

000040

000004

RDCHR
RETURN HERE
Mov
MOV
7ST8
BPL
MOVH
BIC
CMP
BNE
1578
BPL
Mmove

B1C
CMP
BNE
BR

CMP

BLT
CMP
BGT
BIC
RTI

(SP),=(SP)

4(SP),2(SP)
asTKS
1%
a$TKB, 4 (SP)

P> 4 (5P)
4(sp)
. #2%
3$

a$TKS

as$TKB,-(SP)

#c17t, (sp)
(SP)+,#21
28

1%
4(SP),#140
48
AéSP),l17S
4

#40,4(SP)

;s INPUT A SINGLE CHARACTER FROM THE TTY
; sCHARACTER IS ON THE STA(CK
;;WITH PARITY BIT STRIPPED OFF
::PUSH DOWN THE ~C
:sSAVE THE PS

;:WAIT FOR

::A CHARACTER
:sREAD THE TTY
;:GET RID OF JUNK IF ANY
;218 IT A CONTROL-S?
: ;BRANCH [F NO
::WAIT FOR A CHARACTER
;:LO0P UNTIL ITS THERE
;:GET CHARACTER
:sMAKE IT 7-BIT ASCII

;218 IT A CONTROL-Q?
:s1F NOT DISCARD IT
;:YES, RESUME
;218 1T UPPER CASE?
; sBRANCH IF YES
;.18 IT A SPECIAL CHAR?
:;BRANCH IF YES
J;MAKE

1T UPPER CASE

;60 BACK TO USER

[

CZDRLCO-DRT1 GEN NPR INTFC

MACRO M1113

ROUTINE TO INPUT A STRING FROM TTY

27-0CT-80 15:53
.SBTTL

J 1

PAGE 126

SEQ 0139

ROUTINE TO INPUT A STRING FROM TTY

;""t""'t'i""t"t"'i""""""'"'QI'Q""""""""Q."'

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:

027060

010346

027074
027076
027100

104411
112613
122713

027062
027066
027072

012703
022703
101405

027104
027106
027112
027114
027120

001003
104401
000763
111337
104401

027130

001356

027136
027142

104401
012603

027124

027132

027144
027146
027154
027162

027164

027165

027166
027175
027202
027207
027220

122723

105063

011646
016666
012766
000002

1$:
2s:

000177

10%:

001404

027164
027164

000015
177777

000004

027166

000002
000004

000
136
136

$TTYIN:
SCNTLU:
SCNTLG:
SNSWR:

000

015
040

012
040

RDCHR
Movs
CMPB
BNE
TYPE
BR
Movs
TYPE

015
015

123
116

SMNEW:
.EVEN

R3,-(SP)

#STTYIN,R3
FSTTYINGT.,RY
43

(SP)+, (R3)
#177,(RY)
3%
,SQUES
1%
(R3),9%
.98

CMFB

#15,(R3) ¢+

CLRB

=1(R3)

TYPE
MOV

9%:
125
107

MOV
(of 1
BLOS

BNE

9001406

;;ADDRESS OF FIRST CHARACTER WILL BE ON HE STACK

RETURN HERE

$SROLIN: MOV

027166
027175

;s INPUT A STRING FROM THE TTY

RDLIN

:;TERMINATOR WILL BE A BYTE OF ALL 0'S
;s SAVE R3

;sGET ADDRESS
;.BUFFER FULL?
;:BR IF YES

::60 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
;218 1T A RUBOUT
;:SKIP IF NOT
;s TYPE A '
:3CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

;;CHECK FOR RETURN

::LO0P IF NOT RETURN

LSLF
(SP)+,R3

;sTYPE A LINE FEED
;sRESTORE R3

;:CLEAR RETURN (THE 15)
::ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCI[ CHARACTER ON 1T
M

MOV
MOV

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

BYTE

.BLKB
.ASCIZ
.ASCIZ
L.ASCIZ

::RESERVE 7. BYTES FOR TTY [NPUT
7.
/*u/Q15<
;s CONTROL "'V
/*G/<15><12>
;s CONTROL ''G"
<15><12>/SWR = /

MOV
RTI

.BYTE

L.ASCIZ

#STTYIN,L(SP)

:sSTORAGE FOR ASCI! C(HAR. TO TYPE
;s TERMINATOR

; sRETURN

NEW =/

CIZDRLCO-DR11 GEN NPR INTF(

MACRO M1113

READ A DECIMAL NUMBER FROM THE TTY

27-0(T-80 15:53

.SBTTL

3797

K 11

PAGE 127

SEQ 0140

READ A DECIMAL NUMBER FROM THE TTY

QtQt'ttttti""ti"""""""""Q't"'.'Q't""t"'fi""t'""'

(ASCII) NUMBER FROM THE TTY AND
IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS
+*ARE READ
A "' FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED.
;*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE
;*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS
;*THIS ROUTINE WILL READ
A DECIMAL

:*CHANGE 1T TO BINARY,

:+POSITIVE 32767 TO NEGATIVE 32768.

'CALL
i

027232
027234
027242
027244
027246
027250
027252
027254
027260
027262
027264
027270
027272
027274
027276
027300

027304
027306
027312
027314
027320
027322
027324
027326
027330
027332
027334
027336
027342
027344
027346
027350

011646
016666
010046

010146
010246
104412
012600
010037
005046
005002
122710
001001
112002
112001
001424
122701

003032
122701
002427
032716
001024
006316
011646
006316
006316
062616

102416
162701
060116

000004

$RDDEC: MOV

MOV
MOV

1%:

027400
000055
2$:

000060

000071
170000

000000
1046401

000720

ROLIN

Mov
MOV
CLR

CLR
CMP8
BNE
Movs
MOvB
BEQ
CMPB
BGT
cMPB
BLT
BIT

BVS
sus
ADD

BvVS

102412

000752
005702
001401
005416
012666
012602
012601
012600
000002
005726
105010

MOV
MoV

BNE
ASL
MOV
ASL
ASL
ADD

000060

3$:
000012

5%:

104401

027406

000002

001404

6$:

;;READ A DECIMAL NUMBER
;sNUMBER IS ON TOP OF THE STACK

RODEC
RETURN HERE

IST
BEQ
NEG
MOV
MOV
MOV
MOV
RTI
ST

CLRB
TYPE

(SP) ,=(SP)

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

(SP)+,RO
RO,6%
-(SP)

R2
£'-,(RO)
r4]
(RO) +,R2
(RO)+,R1
3s
£'0,R1
5%
#'9,R1
5%
#2C7777,(SP)
(
(SP),=(SP)
(
(
+,(SP)
(

4
R

(
(
(
(
(

(RO)

{

::PUSH R1

ON STACK

;:PUSH R2 ON STACK
;sREAD AN ASCIZ LINE

:;ADDRESS OF 1ST CHAR.

:sSAVE INCASE OF BAD INPUT
:sCLEAR DATA WORD
::SIGN SET POSITIVE
:2SEE IF A MINUS SIGN WAS TYPED
;:BR IF NO MINUS SIGN
::SAVE FOR LATER USE
::PICKUP THIS CHARACTER
::GET QUT IF ZERO
::MAKE SURE THIS CHARACTER

;1S ADIGIT BETWEEN 0 £ O

;;DON'T LET NUMBER GET TO BIG
..BR IF NUMBER WOULD OVERFLOW
*2

..SAVE FOR LATER

..OVERFLOU ISN'T ALLOWED
::STRIP AWAY THE ASCII JUNK
::ADD IN THIS DIGIT
::OVERFLOW ISN'T ALLOWED

::CHECK IF NUMBER IS NEG
::BR IF NO
;:YES==NEGATE THE NUMBER
;+SAVE THE RESULT
:;POP STACK INTO R?2
::POP STACK INTO R1
;;POP STACK INTO RO

.WORD

TYPE

;;PUSH RO ON STACK

;. LOOP

(SP)

; sPROVIDE SPACE FOR
::THE INPUT NUMBER

;;RETURN

:;CLEAN PARTIAL NUMBER FROM ST A(CK
::SET A TERMINATOR

::TYPE THE INPUT UP TO BAD (HAR.

:;POINTER GOES HERE
..l.a,..

OOCR

.nRY AGAIN

zlL

—_—

CZDRLCO-DRi1 GEN NPR INTFC

MACRO M1113

READ AN OCTAL NUMBER FROM THE TTY

27-0CT-80 15:53

.SBTTL

3798

L.
PAGE 128

SEQ 0141

READ AN OCTAL NUMBER FROM THE TTY

:tt"t'tit"t""'""""""'Q"llt't""'fit""""it'."'t""'

;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE IT TO BINARY.

;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ''?'' WILL BE TYPED

027410
027412
027420
027422
027424
027426
027430
027432
027436
027440
027442
027444
027446
027452
027454
027460
027462
027464
027466
027470
027472
027474
027476
027502
027504
027506
027510
027514
027520
027522
027524
027526
027530
027532
027534
027536
027540
027544
027546

000004

027536

000002

;*FOLLOWED BY A CARRIAGE RETURN- LINE FEED. THE COMPLETE NUMBER MUST
:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
;*CALL:
RDOCT
; sREAD AN OCTAL NUMBER
;X
HERE
RETURN
::LOW ORDER BITS ARE ON TOP OF THE STACK
;e
b
;sHIGH ORDER BITS ARE IN SHIOCT
(SP),=(SP)
$RDOCT: MOV
: sPROVIDE SPACE FOR THE
MOV
4(SP),2(SP)
s s INPUT NUMBER
RO,-(SP)
MOV
::PUSH RO ON STACK
R1,-(SP)
MOV
;;PUSH R1 ON STACK
R2,-(SP)
MOV
;;PUSH R2 ON STACK
ROLIN
1%:
;sREAD AN ASCIZ LINE
MOV
(SP)+,RO
;sGET ADDRESS OF 1ST CHARA(TER
MOV
RO,5%
; sAND SAVE IT
R1
CLR
;s CLEAR DATA WORD
28:

000060
000067

CLR
Move
BEQ
CMPB
BGT
(MPB
BLT
ASL
ROL
ASL

ROL
ASL
ROL

BIC

177770

000012
027546

000000
104401

000730
000000

001404

5%:

$SHIOCT:

R1
R2
R1
R2
R1
R2

#4C7,(SP)

BR
TST
MOV
MoV
Mov
Mov
MOV

(SP)+,R1
2%
(SP)+
R1,12(SP)
R2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+,RO

TST

(SP)+

ADD

3s:

R2
(RO)+,=(SP)
33
#'0,(SP)
LS
#'7,(5P)
43

RTI]

CLRB

(RO)

WORD

TYPE

.WORD

$QUES

:sPICKUP THIS CHARACTER
1F JERO GET QUT
;s
: sMAKE SURE THIS CHARACTER
::1S AN OCTAL DIGIT

sl
sovh

;.8
:sSTRIP THE ASCII JUNK
:;ADD IN THIS DIGIT
;:LOOP
;. CLEAN TERMINATOR FROM STACK
;s SAVE THE RESULT

::POP STACK INTO R2
:;POP STACK INTO R}
::POP STACK INTO RO
; ;RETURN

s CLEAN PARTIAL FROM STACK

;sSET A TERMINATOR
;s TYPE UP THRU THE BAD CHAR.
:;..?00

..CR'.

‘

.‘LF'.

+ s TRY AGAIN
;HIGH ORDER BITS GO HERE

—

CZIORLCO-DRi1 GEN NPR INTF(

TRAP DECODER

MACRO M1113

3799

27-0CT-80 15:53

.SBTTL

TRAP DECODER
L

PAGE 129

SEQ 0142

bbb

hbbbid

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
027550
027552
027556
027560
027562
027564
027570

010046
016600
005740
111000

027572
027574
027602

011646
016666

006300
016000
000200

000002

:*60 TO THAT ROUTINE.

$TRAP:

000002

027604

MOV

RO,=(SP)

MOV
ST
MOVE
ASL
MOV
RTS

2(SP) RO
-(RO)
(RO),RO
RO
$STRPAD(RO)
,RO
RO

; :SAVE RO

1:GET TRAP ADDRESS
2 *BACKUP BY 2
12GET RIGHT BYTE OF TRAP
1:POSITION FOR INDEXING
;;INDEX TO TABLE
1260 TO ROUTINE

;:THIS IS USE TO HANDLE THE ''GETPRI'' MACRO

000004

000002

(SP),=(SP)

$TRAP2: MOV
MOV
RTI
.SBTTL

4(SP),2(SP}

TRAP TABLE

:sMOVE THE PC DOWN
:*MOVE THE PSW DOWN
::RESTORE THE PSW

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE "'TRAP'' INSTRUCTION.

027612
027614
027616
027620
027622
027624
027626
027630
027632
027634

027572
025032
025424
025400
025440

$TRPAD:

.WORD

STYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

;;CALL=TYPOS
;;CALL=TYPON
;:CALL=TYPDS

TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$GTSWR ;;CALL=GTSWR
$CKSWR ;;CALL=CKSWR
$RDCHR ;; CALL=RDCHR
SROLIN ;;CALL=RDLIN
$SRDOCT ;;CALL=RDOCY
SRDDEC ;;CALL=RDDEC

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)

GET SOFT-SWR SETTING
TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
READ A DECIMAL NUMBER FROM TTY

$TYPOC

$TYPOS
$TYPON
$TYPDS

STYPDE

027232

STRAP?

; CALL=TYPE

;;CALL=TYPOC

;;CALL=TYPDE

TRAP+2(104402)

TRAP+6(104406)
N NN
PN

027604
027606
027610

ROUTINE

TYPE OCTAL NUMBER (WITH LEADING ZEROS)

TYPE DECIMAL NUMBER GREATER THAN 32767

CIDRLCO-DRT1 GEN NPR INTFC
SCOPE HANDLER ROUTINE

MACRO M1113

3800

27-0CT-80 15:53

.SBTTL

N1
PAGE 130

SEQ 0143

SCOPE HANDLER ROUTINE

.t'ttt'tt'tttttt"""'t"t't"t"'t""'.t'.""tl"""""."t"

:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

IT WILL INCREMENT

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

;«THE SWITCH OPTIONS PROVIDED BY THIS ROUTlNE ARE:
s eSW14=1
LOOP ON TEST
; ¢5W09=1
LOOP ON ERROR
; *#5W08=1
LOOP ON TEST IN SWR<6:0>
'CALL

032777
001406
005737
001403

00100C

151474

TST
BEQ

001310
151450

1%:

001306
2s:

002706

030707

\d-‘hJNfi:CDUKD

030707
030707

(v
~

002706
002706

030707

4$:

-Juuouguuumfl-‘

O NN=
YO NYNNO
-

= AN
N NN
NOQ W
£ NOLSHr
OO NN

8555238
<><>CDSEC> NS =2OO 3

6$:

151316

030707
030707
030707

7%:

83.

EOPLOC
6$
CHARCT
3$
CHARCT ,EOPLOC
CHARCT
3

8$TKS
8s

8$1kB,EOPLOC

Move
TYPE

8%
+HAKTPM

DECB
CLRB

630707

;: SCOPE=]OT
::LOOP ON ERROR?
$:BR IF NO
P'SEE IF THERE WERE ANY ERRORS YET
;:BR IF NOT YET
s SFUDGE RETURN
: sRETURN
#BIT14,3SuWR
::LOOP ON TEST?
23
S:BR IF NO
SLPADR, (SP)
..ruoss RETURN

#81709,3SWR
19
SERTTL
19
SLPERR, (SP)

#200,E0PLOC
#30,e0PLOC
5%
EOPLOC, CHARCTY

8I(8
CMPB
8EQ

CLRB

002706
030707

B8R
1ST8
BPL

Movs

5%:

030326

002706
030636
030707
030707

BEQ

MoV
RTI
TST8

MOVB
CLRB

3$:

002706
002706
002706

000200
000030

BIT

8EQ

002706

151404
000200
000030

151312

MoV
RTI]

1ST8

151410

0435

SCOPE

%scops 8IT

001312

040000

D)
b O b b
o e O b
OO0
-0000

027636
027644
027646
027652
027654
027660
027662
027670
027672
027676
027700
027704

ENPLOC

EOPLOC
CHARCY

1518

8%
CHARCY

1S18
BPL
MOvVB

8s
98 TKB, CHAR(CT

BNE

81(8
CMPB
BNE

CLRB
TYPE
CLRB
1518

8eQ

4]
#%7ks

#200,CHARCY
#30,CHARCT

8s
eopPLOC
EOPRSH
CHARCY
CHARCT
9%

iz TEST TO SEENOTIF EOP'S ARE TO PRINT
ETURN

188 BRANCH IF

‘L8 SEE IF A CHARACTER WAS INPUTED IN A PRINT ROUTINE
148 BRANCH TO CHECK KEYBOARD IF NOT
‘Ll MOVE THE CHARACTER TO EOPLOC
‘8 CLEAR THE LOCATION
188 BRANCH TO CHECK THE CHARACTER
8 SEE IF EOP REQUESTED
‘% BRANCH IF NOT
188 GET CHARACTER
‘8L CLEAR PARITY BIT
A (*X)
1L SEE IF
‘4L BRANCH IF IT IS
8L MOVE CHARACTER BACK TO CHARCT FOR POSSIBLE FUTURE USE
;88 CLEAR THE LOCATION
;88 BRANCH TO START SCOPE ROUTINE

;80 TYPE: 'WIT ANY KEY TO OBTAIN A PROGRESS REPORT, ’

217
B’

"ENTER (“X) TO RESUME EOP'S AND EOD'S’

"ENTER THE KEY REPEATEDLY, AS RESETS DONE [N THE D
'MAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE

;80 MAKE “X ANOTHER CHARACTER AND
tt CLEAR ANY CHARACTER THAT MAY BE THERE

.tt BRANCH TO START SCOPE ROUTINE
SEE IF A CHARACTER WAS INPUTED IN THE TYPE ROUTINE
GO TEST THME CHARACTER IF SO
88 SEE IF CHARACTER WAITING

BRANCH 1f NOT
MOVE THE CHARACTER FOR TESTING
CLEAR THE PAR]ITY BIT

;00 SEE IF ANOTHER (*X) WAS INPUTED
BRANCH [f NOT

;88 CLEAR EOPLOC 10 RESUHi EOP MESSAGES
TYPE: "EOP'S AND EOD'S WILL RESUME PRINTING'
;08 MAKE CHARACTER SOMETHING ELSE
;88 SEE IF A CHARACTER IS WAITING
;L8 BRANCH AROUND (*Y) TEST [F KOU

.
s

CIDORLCO-DRT1 GEN NPR INTF(
SCOPE HANDLER ROUTINE

000031

030076
030104
030106
030112
030116

122737
001004
004737
105037

030120

000416

030122
030126
030134
030140
030144
030146
030150
030154
030156
030156
030164
030166
030170
030174
030200
030202
030206
030210
030214
030220
030222
030224
030230
030234
030236
030240
030240
030242
030250
030252
030256
030262

013746
012737
005737
012637
000444
022626
012637
000432

000004

032777
001432
005046

000400

104410

17716

042716
001416
022716
002413
011637
011637
005316
006316
062716
013637
000426
005726
001406

MACRO M1113

030707

003170
030707

B_12
PAGE 130-1

CMPB

#31,CHARCT

CLRB
CKSWR

CHARCT

BNE
JSR

9%:

9%
PC,PTCAPT

SEQ 0144

;68 IS THIS A (*Y) (REQUEST FOR RUN SUMMARY)

16, BRANCH IF NOT
‘4L GO TO SUBROUTINE TO PRINT SUMMARY

‘68 CLEAR THE CHARCT LOCATION SO SUMMARY NOT REPEATED
STEST FOR CHANGE IN SOF TWARE SWITCH REGISTER

- AR#RRSTART OF CODE FOR THE XOR TESTER#NNNN
§XTSTR: BR
63
::1F RUNNING ON THE ''XOR'' TESTER CHANGE

030146
177060
000004

000004

151154

151144
000200

001302
001414

001310

SVERRVEC,-(SP)
#58 aFERRVEC

MOV
BR

(SP)+,a#ERRVEC
$SVLAD

ar1#7060

(SPY+,(SP)+

CMP

)
.

8s:
28:

001306

7$:

001303

001414

151022

::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT

::TIME OUT ON XOR?

::RESTORE THE ERROR VECTOR
::GO TO THE NEXT TEST

*'CLEAR THE STACK AFTER A TIME OUT

BEQ
CMP
BLT
MOV

8s
237, (SP)
8%
(SP),STSTNM

*'BRANCH IF BAD TEST NUMBER IN SWR
1:CHECK THE NUMBER IN THE SWR

DEC
ASL
ADD
MOV

(SP)
(SP)
(SP)
¥SSWOBTBL,
3(SP)+,SLPADR

1 BACKUP BY ONE
PISCALE ThE TEST NUMBER AS AN INDEX
::FORM THE ADDRESS OF TEST POINTER
::SET LOCP ADDRESS TO DESIRED TEST

ST
;TSTB

(SP) +
SERFLG

“ICLEAN THE BAD TEST NUMBER OFF OF THE STACK
*'HAS AM ERROR OCCURRED? ;88 ELIMINATED FOR CZDRLC

(SP).$TESTN

MOV

P1TMIS INSTRUCTION TO A 'NOP'' (NOP=240)

::RESTORE THE ERROR VECTOR
(SP)+ #ERRVEC
MOV
21LOOP ON THE PRESENT TEST
7%
BR
TESTERANNNN
XOR
THE
FOR
CODE
OF
6% :: MMRRNEND
BIT
#BIT08,aswR
;:LOOP ON SPEC. TEST?
SiBR IF NO
48
BEQ
A TEMP. LOCATION
P:CLEAR
-(SP)
CLR
THE DESIRED TEST NUMBER
1'PICKUP
aSwWR,(SP)
MOVB
UNDESIRED BITS
OUT
::MASK
#SSWRMK, (SP)
BIC

000037

030752
001306

MOV
MOV

001315

030710

27-0CT-80 15:53

BEQ

$SVLAD

:555:“"LPADR

4$:
CLRB
$SVLAD: INCB

MOVB
MOV
:?Y

‘6 UPDATE THE TEST NUMBER IN STESTN

160 LOOP ON THE TEST
TiBRIF NO

*'SET LOOP ADDRESS TO LAST SCOPE

SERFLG
STSTNM

::1ERO THE ERROR FLAG
1:COUNT TEST NUMBERS

#1,SERMAX

S1ONLY ALLOW ONE(1) ERROR ON NEXT TEST

STSTNM.STESTN
(SP),SLPADR
(SP) .SLPERR
$ESCAPE

MOVB
MOV
MOV
CLR

SOVER:

S$OVER

*'BRANCH IF TEST NUMBER IS OUT OF RANGE
*'UPDATE THE TEST NUMBER IN $TSTNM

::SET TEST NUMBER IN APT MAILBOX
:*SAVE SCOPE LOOP ADDRESS
:*SAVE ERROR LOOP ADDRESS
*'CLEAR THE ESCAPE FROM ERROR ADDRESS

$TSTNM,3DISPLAY ::DISPLAY TEST NUMBER
SLPADR, (SP)
::;g?gSNRETURN ADDRESS

200

HAKTPM: .ASCII

200

LASCIZ
EOPRSM: .ASCIZ

124

TESLR:

I1
I1

CHARCT: .BYTE

.ASCIZ

/*X/<CRLF>/HIT ANY KEY TO OBTAIN A PROGRESS REPORT,/<CRLF> ;88
111
/ENTER (*X) TO RESUME EOP'S AND EOD'S/<CRLF>
/ENTER THE KEY REPEATEDLY, AS RESETS DONE IN THE DIAGNOSTIC/<CRLF> ;&&
/MAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE CHARACTER/<CRLF> ;R
414
/*X/<CRLF>/EOP'S AND EOD'S WILL RESUME PRINTING/<CRLF>

;80 LOCATION TO HOLD INPUTED CHARACTER

TOTAL ERRORS SINCE LAST REPORT /

;88 ERROR MESSAGE FOR $EOP

—

.WORD
.WORD
.WORD
.WORD

TST11+30
T8T12+30
TST13+30
TST14+30
1ST15+30
TST16+30

1ST17+30
15120+30
1S121+30
TS122+30
TST23+3)
T8724+30
18125430
TS726+30
T8127+30
1$730+30
TST31+30
TS132+30
TS133+30
TST134+30
TS135+30
1S7136+30
TST137+30

TEST

TEST
TEST
TEST
TEST
TEST

)

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

YO N S

;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF

—2O

;STARTING ADDRESS+30 OF TEST

b —d b b =

WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

SEQ 0145

b =

$SWOBTBL:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD

024106

€12
PAGE 131

NOVNS NN =2 O NO VS LN =2 O NO WS W

) i
i
e
e
e
D oD e

oW JV LV IV [N
B

D
e e
o

AL O~ NN - YAV b Y = O SN
-l o ~NOMNIW QPO
NN NN
~N o oOro0
s oSO SIS

e
-

[0 Yo VIV IV U B

(elelololalolololalelalolalaloale]l
g

030752
030752
0307564
030756
030760
030762
030764
030766
030770
030772
030774
030776
031000
031002
031004
031006
031010
031012
031014
031016
031020
031022
031024
031026
031030
031032
031034
031036
031040
031042
031044
031046

27-0CT-80 15:53

AN N AN AN N AN N AN PO P PO PO PRI PONV D =

CIDRLCO-DRT1 GEN NPR INTFC

SCOPE HANDLER ROUTINE

MACRO M1113

—

CIDRLCO-DRi1 GEN NPR INTF(
ERROR HANDLER ROUTINE

MACRO M1113

27-0CT-80 15:53

.SBTTL

3801

D.12
PAGE 132

ERROR HANDLER ROUTINE
L

R R

SEQ 0146
T

L L

bbbtk

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO SERRTYP ON ERROR

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;eSW15=1
;eSW13=1
;*SW10=1
;*SW09=1
s*CALL
. *

$ERROR:

) end

b
nd

D ald md cnd

el
b

b
b
wd

D e
D

i e
) el

[e]eolelaleleleleleT
e
W W AN AN LN N NN NN

— ad

N NNONNNE
S5 BN =
NN=OrORSOOMNIONSONN

031050
031050

7%:

001303

CKSWR
INCB
BEQ

001400
001312
002714
001316
000002
150166
020000

TYPE

1%:

150200

001430

001314
031544

031170

208:

21s:

150140

22%:
2%:

001376

3%:

001376
001000

150112

001310
024750

000042

4s:

5%:

6%:

; ;ERROR=EMT AND N=ERROR JTEM NUMBER

;s TEST FOR CHANGE IN SOFT-SWR

$ERFLG
S'SET THE ERROR FLAG
78
“IDON'T LET THE FLAG GO TO ZERO
STSTNM,3DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10.3SWR

:*BELL ON ERROR?

LSBELL

;;RING BELL

ERRCNT

88 INCREMENT THE ERROR COUNT

1} 3

INC
INC

$ERTTL

suB
Move

#2,$ERRPC

MOV

001316
001314

000001

000002

ERROR

BIT

122737
001007
113737
004737
000
000

022737
001001
000000

BELL ON ERROR
LOOP ON ERROR

MoV

031250

100002
000000
104410
005737
001402
013716
032777
001402
013716

INHIBIT ERROR TYPEOUTS

001302
002000

004737

000777
005777

HALT ON ERROR

BIT
BNE
JSR

(mMPB
BNE
Move
JSR

.BYTE
.BYTE
BR
TST

BPL
HALT
CKSWR
TST

BEQ

(SP),$ERRPC

ISERRPC.SITEMB
#BIT13,3SWR
208
PC,SERRTYP
FAPTENV,SENV

28
SITEMB,21$
SC,$ATY4
0

22%
aSWR
3s

$ESCAPE
48

MOV

$ESCAPE, (SP)

MoV

5%
$LPERR, (SP)

BIT
8eq
CMP
BNE
HALT
RTI

::NO - SKIP

.COUNT THE NUMBER OF ERRORS

*;GET ADDRESS OF ERROR INSTRUCTION
::STRIP AND SAVE THE ERROR 1TEM CODE

1iSKIP TYPEOUT IF SET

1ISKIP TYPEOUTS
1:G0 TO USER ERROR ROUTINE
;:RUNNING IN APT MODE

*INO,SKIP APT ERROR REPORT
“'SET ITEM NUMBER AS ERROR NUMBER
*'REPORT FATAL ERROR TO APT
:;APT ERROR LOOP
S*HALT ON ERROR
PiSKIP IF CONTINUE
:*HALT ON ERROR'

S'TEST FOR CHANGE IN SOFT-SWR
1:CHECK FOR AN ESCAPE ADDRESS
1:BR IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE

#B179,3SWR

188 SEE IF WE ARE TO LOOP ON ERROR

FSENDAD,3#42

::ACT=-11 AUTO-ACCEPT?
*IBRANCH IF NO
JJYES

4L BRANCH OUT If NOT
28 FUDGE RETURN

;s RETURN

CIDRLCO-DRI1 GEN NPR INTFC

ERROR MESSAGE TYPEOUT ROUTINE

MACRO M1113

3802

27-0(T-80 15:53

.SBTTL

E_12
PAGE 133

SEQ 0147

ERROR MESSAGE TYPEOUT ROUTINE
L

S L

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ''ERROR TABLE'' ($SERRTB),
: *AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

$ERRTYP:

010046

005000
113700

001004
013746

001314

001316

1%:

010037 001360

042700 000200
105737

001360

023727
002404

002714

104401
000470
022737

036663

100041

003073

001415

123737
001011

RO,=-(SP)

; :SAVE RO

BNE
MOV

1%
$ERRPC,-(SP)

“'IF ITEM NUMBER IS ZERO, TYPE THE PC OF THE ERROR
::SAVE SERRPC FOR TYPEOUT

CLR
MOVB

104402
000513

005300
006300
006300
006300

MOV

TYPOC
BR

MOV

BIC

DEC
ASL
ASL
ASL

1STB

B8PL

CMP
BLT

000020

BGT

000001

002714

001360

031524

000200

147752

2%:

RO
afSITEMB,RO

148

**ERROR ADDRESS
1160 TYPE--OCTAL ASCII(ALL DIGITS)
LiGET ouT

#2060 ,R0

88 CLEAR BIT 7 IF PRECENT

RO, $TMPO

%8 MAKE POINTER AN INDEX
‘%8 SHIFT TO MULTIPLY BY 10 (OCTAL)

'¢8 BRANCH IF ITEM NUMBER IS LESS THAN 200

$TMPO
ERRCNT, #20
2$

'8 BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE

CMPB
BNE

STMPO.MEPITM
3s

000434
113737 001360
042700 177000

B8R
MOVB
BIC

STMPO,MEPITM

062700
000402
005037

104401
062700

ADD

031524

3$:

000540

002714

001405
001534

4$:
5$:

011000
001407
013046
104402

001405
031464

001405

TYPE
ADD

MOV

012037 031446
001404
104401
000000
104401
012037
001404
104401
000000
104401

ADD
BR
CLR

7%:
8$:

9%:
108:

BEQ
TYPE
.WORD
TYPE
MOV
BEQ
TYPE
.WORD
TYPE

MOV
BEQ
MOV

TYPOC

‘88 SEE IF 20 (OCTAL) ERRORS HAVE PRINTED
%8 BRANCH TO PRINT THE ERROR IF LESS

,NOMORE
148
#1,ERRCNT

177400

002300

'8 SEE IF ITEM NUMBER IS OVER 200

%8 BRANCH TO RETURN IF GREATER - NO MORE DATA IS TO PRINT

¥B1T7,aSWR
148
#177400,R0

062700

111
11

148

BIT
BNE
BIC

032777
001054
042700

‘42 MOVE RO TO STMPO FOR 200 TEST

RO
RO
RO
RO

TYPE
BR
CMP

BEQ

**CLEAR RO TO RECEIVE ITEM INDEX
“'PICKUP THE ITEM INDEX

#ER200+4 ,RO

98
2177000, R0

‘88 TYPE MESSAGE ANNOUNCING NO MORE PRINTING OF ERRORS
88 BRANCH TO RETURN
‘L8 SEE IF THIS IS THE FIRST ERROR
:8% SEE IF ITEM MATCHES LAST MULTIPLE ERROR
'8 BRANCH IF NOT - NEW HEADER NEEDED
‘%8 SEE IF SWITCH REGISTER BIT 7 IS SET
‘88 BRANCH TO RETURN IF SWITCH SET
%8 CLEAR UPPER BYTE OF RO EXPOSING ITEM BYTE
'LL POINT TO DATA TAf E ENTRY

‘8% BRANCH TO PRINT DATA
:0% MOVE ITEM NUMBER TO MEPITM FOR POSSIBLE FUTURE USE
‘48 CLEAR UPPER BYTE OF RO

#ER200-$ERRTB,RO:SL ADD 200 BASE POINTER TO RO AND
‘8% BRANCH AROUND ERRCNT CLEAR
S$
88 CLEAR ERRCNT SO MULTIPLE ERRORS GET NEW HEADER
ERRCNT
. S$CRLF
#SERRTB,RO

‘8L TYPE <CRLF>
::FORM TABLE POINTER

1iSKIP TYPEOUT IF NO POINTER
S:TYPE THE 'ERROR MESSAGE''
*1"ERROR MESSAGE'* POINTER GOES HERE
*L'CARRIAGE RETURN'' & "LINE FEED"
*'PICKUP 'DATA HEADER'' POINTER
1iSKIP TYPEOUT IF 0
S TYPE THE 'DATA HEADER"
1L“DATA HEADER'' POINTER GOES HERE
TICARRIAGE RETURN'' € '‘LINE FEED"

(RO)+,68

0
,$CRLF
(RO) +,8%
98
O
,S$CRLF

(RO) ,RO
138
3(RO)+,-(SP)

*'PICKUP "ERROR MESSAGE'' POINTER

*'PICKUP 'DATA TABLE'' POINTER
1160 AROUND ROUTINE TO TYPE THE DATA IF NONE
::PUT OCTAL DATA ON STACK FOR TYPING
“ITYPE AN OCTAL NUMBER

—

CIDRLCO-DRi1 GEN NPR INTF(
ERROR MESSAGE TYPEOUT ROUTINE
005710
001403
104401

000771
104401
012600
000207
00C000

MACRO M1113

27-0(T-80 15:53
ST
BEQ

035250

001405

TYPE

13%:
14%:
MEPITM:

TYPE
MOV
RTS

.WORD

F 12
PAGE 133-1

(R0)
13¢
SPACES

SEQ 0148

;1S THERE ANOTHER NUMBER?
::BR IF NO

f0s

::TYPE TWO(2) SPACES
2160 BACK TO PRINT THE OCTAL NUMBER

(SP)+,R0

*'RESTORE RO

JOCRLF

“I"'CARRIAGE RETURN'' & ''LINE FEED"
: :RETURN

‘88 LOCATION TO STORE 200+ ERROR [TEM NUMBER

CIDRLCO-DRT1 GEN NPR INTF(
APT COMMUNICATIONS ROUTINE

MACRO M1113

3803

031526

112737

031542

000403

031534

8%12?3

031552
031554
031556
031562
031564
031572
031574
031602
031604
031610
031616
031622
031624
031630
031632
031636

112737

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766
005737
001375
010037
105720

001376
163700

000001

000001
000001

001430

000100

001431

000004
000002
001410

000004

001424

031676
031702

004737
000000

025032

031704
031710
031712
031716
031720
031724
031726
031734

105737
001416
005737
001413
005737
001375
017637
062766

031772

031746
031752
031756

105037
105037
105037

031772
031771
031770

001410

000004
000002

031702
000004

3804

$ATY1:

MOVB

#1,$FFLG

SATYC

SATY3:
zfi;vé:
Y(C:

1$:

3$:

48:
5¢:

108 :

118:

001410
000004

000002

MOVB
MOVB

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
TST
BNE
MOV
TsT8
BNE
SUB

ASR
MOV
MOV
BR
MOV
ADD

MOV

001430

031742 005237 001410

031766
031770
03177
031772

APT COMMUNICATIONS ROUTINE

2%:

001426
000004

SEQ 0149

2222222222232
X2 2 XX R R 2 RS REXRRR RS2
22

001424

031672 013746 177776

012601
012600

031772

000001

006200
010037
012737
000413
017637
062766

031762
031764

031776

612

PAGE 134

.SBTTL

031770

031640
031642
031646
0316564
031656
031664

031704

031772

27-0CT-80 15:53

001412

000004

128:

#1.SMFLG

::T0 REPORT FATAL ERROR
2:TO TYPE A MESSAGE

#1,8FFLG

.:T0 ONLY REPORT FATAL ERROR

RO,-(SP)
RY.-(SP)
$MFLG
5$
WAPTENV,SENV
38
WAPTSPOOL,SENVM
38
34 (SP),RO
22,4(SP)
SMSGTYPE
1%
RO, SMSGAD
(RO)+

::PUSH RO ON STACK
L.PUSH R1 ON STACK
S:SHOULD TYPE A MESSAGE?
t:1F NOT: BR
::OPERATING UNDER APT?
<:IF NOT: BR
:;SHOULD SPOOL MESSAGES?
©:1F NOT: BR
:GET MESSAGE ADDR.
. BUMP RETURN ADDR.
;sSEE IF DONE W/ LAST XMISSION?
::1F NOT: WAIT
LiPUT ADDR [N MAILBOX
S FIND END OF MESSAGE

2%
$MSGAD , RO
RO
RO,$MSGLGT
84 SMSGTYPE
5$
3L (SP) ,48

#2,4(SP)

179776,~(sP)

::SUB START OF MESSAGE
S:GET MESSAGE LNGTH IN WORDS
TLPUT LENGTH IN MAILBOX
SSTELL APT TO TAKE MSG.

::PUT MSG ADDR IN JSR LINKAGE
. .BUMP RETURN ADDRESS

S PUSH 177776 ON STACK

JSR
WORD

PC,STYPE
O

S:CALL TYPE MACRO

TSTB
BEQ
ST
BEQ
ST
BNE
MOV
ADD

$FFLG
12
SENV
12$
$MSGTYPE
1%
a4 (SP) ,$EATAL
#2,4(SP)

::SHOULD REPCRT FATAL ERROR?
©:1F NOT: BR
::RUNNING UNDER APT?
::1F NOT: BR
S:FINISHED LAST MESSAGE?
TUIF NOT: WAIT
::GET ERROR #
: :BUMP RETURN ADDR.

CLRB
CLRB
CLRB

SFFLG
SLFLG
SMFLG

S:CLEAR FATAL FLAG
S:CLEAR LOG FLAG
::CLEAR MESSAGE FLAG

INC

MOV
MOV

RTS
.BYTE
.BYTE
'?'Efi

$SMSGTYPE

(SP)+,R1
(SP)+.RO

PC
0
O
0

.sTELL APT TO TAKE ERROR
:POP STACK INTO R1
L:POP STACK INTO RO
. *RETURN
SIMESSG. FLAG
11106 FLAG
S FATAL FLAG

000207
000
000
000

$SMFLG:
$SLFLG:
$FFLG:

000200
000001
000100
000040

APTSI12E=200
APTENV=001
APTSPOOL=100
APTCSUP=040
.SBTYTL POWER DOWN AND UP ROUTINE

RRRRA)

MACRO M1113

CIORLCO-DRT1 GEN NPR INTf{

POWER DOWN AND UP ROUTINE

27-0CT-80 15:53

H 12

PAGE 134-1

SEQ 0150

b
d O
e
- e

031774
032002
032010
2012

[eleleololelolelo]

"tt"ti"".""""""""'Q"i't'i'"'tQt"""""".""""

:POWER DOWN AND UP ROUTINE

032012
000340

000024
000026

$PWRDN: MOV

031774
000340
001300
000340
000210
001360
001360

000024
000026

SPWRUP:

1%:

032062
032062

120

117

$POWER:

MOV
HALT

MOV

MOV
MOV
MOV
MOV

CLR

INC
BNE

TYPE
RT]

.ASCIZ
"EVEN

#SPURUP,PURVEC
88 SET UP VECTOR TO RETURN TO THE HALT BELOW
lLEVEL?.PURVEC*Z £% RETURN PRIORITY 10 7
HALT PROCESSOR

#SPURDN, PWRVEC

tz RESET PWRVEC TO PWRDN ROUTINE AND

SLEVELS,-(SP)

:8% SET UP RETURN PRIORITY TO 7 AND

SLEVEL7.PWRVEC+2:88 PRIORITY TO 7
#STACK,SP
148 REINITIALIZE THE STACK,
FSTAGIN.=(SP)
$TMPO

$TMPO
1%

,$POWER

:88
;80
;88
;88

MOVE STAGIN ADDRESS TO STACK AND
CLEAR WAIT LOOP COUNTER

GIVE TTY TIME TO RECOVER FROM POWER FAILURE

BRANCH BACK UNTIL ZERO AGAIN

;88 TYPE THE POWER FAILURE MESSAGE ASCIZED BELOW
;88 RETURN TO PROGRAM

CCRLF>/POWER FAILURE - RESTARTING PROGRAM/<CRLF>

CIDRLCO-DRT1 GEN NPR INTF(

MULTIPLE BOARD DIALOGUE ROUTINE

MACRO M1113

.SBTTL

3806

3834 032256
3835 032262
3836 032264

3837 032270

3838 032274
3839 032300

MULTIPLE BOARD DIALOGUE ROUTINE

tt"'ti"t'i'tt""t""""'Q't't"'""""""""."""t""'

012706
004737
104401
105037
104401
012703
004737
022737

001300
005660
036531
030707
036564
000001
002722

104401

036340

013737
013746

001474
002414

013746

035253
002416

013746

035257
002456

001073

104405
104401

104402
104401

104403
003
1044C1

03273/
001403

000114

035303

104401
104401

035305
035266
005630
035266
000002

000402
004737
104401

032737
001003

000402
104401
104401

032737
001403
104401

000402
104401
104401

000671
022737
001020
005737
001003
106401
000657
005737
001772
004737
012737

MBD:

PROMPT:

002664

002720

TYPE

002720

12%:
13%:

BR
TYPE
TYPE

JSR
TYPE
BIT
BNE
TYPE
BR

TYPE
TYPE

8IT
BEQ

TYPE

148:
15$%:

035307
035333
002664

1%:

002416

034770

2%:

002456

3%:

003360
177777

TYPE
CLRB
TYPE
MOV
JSR
CMP
BNE
TYPE

BIT
BEQ

002720

655312

000122

JSR

.BYTE
TYPE

035316
035320
035266
000004

MoV

MOV
MOV
TYPDS
TYPE
MoV
TYPOC
TYPE
MOV
TYPOS

000

035266
000001

104401

3849 032346
3850 032350
3851 032354
3852 032360
3853 032362
3854 032370
3855 032372
3856 032376
3857 032400
3858 032404
3859 032406
3860 032412
3861 032414
3862 032420

SEQ 0151

:2>>>>>>MULTIPLE BOARD DIALOGUE ROUTINE<<C<<<LL

—_O
L X ]

3831 032242
3832 032246
3833 032254

112
PAGE 135

;t""l""tt'tt"""""""""i"""""""""t"I""""Q'

—

3807
3808
3809
3810 032130
3811 032134
3812 032140
3813 032144
3814 032150
3815 032154
3816 032160
3817 032164
3818 032172
3819 032174
3820
3821 032200
3822 032206
3823 032212
3824 032214
3825 032220
3826 032224
3827 032226

27-0CT-80 15:53

002670

B8R

TYPE
TYPE

8R
CMpP
BNE
ST
BNE
TYPE
BR
TST
8EQ
JSR
MOV

#STACK,SP

PC,SETTUP

LMBDIAL

CHARCY

JECELR

'1'R3

PC,READ
#'L ,ANSWER
1%

+HEADER

$00W0,D0W

QTYBRD,=-(SP)

.SPACE3

REGADR,=(SP)

JINITIALIZE THE STACK
:GO INITIALIZE THE COMMON TAGS
;TYPE:
°'MULTIPLE BOARD DIALOGUE'
:CLEAR LOCATION FOR POSSIBLE INPUT DURING PRINT
'ENTER COMMAND (CEIDIT, CLJIIST, [BIURST CALIBRATION,
;TYPE:
ZEXPECT 1 CHARACTER
;G0 READ 1 CHARACTER
;LIST PRESENT TABLE?
;BRANCH [F NO
'TYPE'

‘# OF

START

P-LEV
w-8
'BOARDS REGADR VECADR
*SET UP THE DEVICE DESCRIPTOR WORD FOR PRINTING
:MOVE NUMBER OF DEVICES TO STACK FOR TYPING
sMOVE THE DEVICE REGISTER ADDRESS TO THE STACK

3,0
,SPACE?7

;TYPE THE DEVICE VECTOR ADDRESS
:TYPE 3 CHARACTERS, LEADING 2EROS SUPPRESSED
:TYPE 7 SPACE CHARACTERS

,SPACE?

PC,PNTPRI

.SPACE?

sMOVE THE DEVICE VECTOR ADDRESS TO THE STACK

:SEE WHICH W/B STATE FOR BOARDS
W STATE If W
;G0 PRINT
A 'B'
;TYPE

:GO TO NEXT CHECK
;TYPE A W'

:TYPE 7 SPACE CHARACTERS
+PRINT DEVICE PRIORITY

;TYPE 7 SPACE CHARACTERS

12%

:SEE WHICH 2/N STATE FOR BOARDS
:G0 PRINT N STATE IF N

138

;GO0 TO NEXT CHECK

#8171,00W
., TWO
N

,SPACE?

#B8112,00W
14%
,YES
158
.NO

,CRLF2

PROMPT
#'K,ANSWER
43
REGADR

JMUSTED

PROMPT
VECADR

JTYPE A ‘2

;TYPE AN °N’
sTYPE 7 SPACE CHARACTERS

:SEE WHICH CABLE STATE FOR BOARDS
;G0 PRINT NO CABLE IF NONE
;TYPE

'YES®

TO CONTINUE
;BRANCH'NO'

:TYPE

:TYPE 2 <CRLF>'S

:BRANCH TO PROMPT ANOTHER COMMAND
:RUN PROGRAM?
:BRANCH [F NOT
;SEE IF REGADR HAS BEEN LOADED
;BRANCH TO CHECK VECADR IF SO

;TYPE: °'DEVICE ADDRESS AND/OR VECTOR TABLE NOT SET UP - MUS
:BRANCH BACK FOR PROMPT MESSAGE

sSEE IF VECADR HAS BEEN LOADED
:BRANCH BACK TO PRINT ERROR MESSAGE IF NOT

#-{,mANSTZE

IMOVE =1 TO MANSIZE TO INDICATE WE HAVE MANUALLY S1ZED

PC,FIXTBL

THE NUMBER OF DEVICES
sTYPE 3 SPACE CHARACTERS

:TYPE THE DEVICE REGISTER ADDRESS
:TYPE 6 SPACE CHARACTERS

¥B170,00W
10%
,B
1%

2-N

:TYPE

.SPACES

VECADR,-(SP)

CYCLE

;FILL TABLE

CZORLCO-DRT1 GEN NPR INTF(

MULTIPLE BOARD DIALOGUE ROUTINE

3863 032426
3864 032432
3865 032440
3866 032442
3867 032450
3868 032452
3869 032456
3870 032460
3871 032464
3872 032466

000137
022737
001414
022737
001235

MACRO M1113

010272
000105

002664

000102

002664

002416

002456
033612

4$:

27-0CT-80 15:53
JMP
(MP
BEQ
CMP
BNE
15T
BEQ
1ST
BEQ
JNP

J 12
PAGF 135-1

START

#'E,ANSWER

EDIT

#'B,ANSWER
PROMPT
REGADR

VECADR
2%
BOLCR

SEQ 0152

;JUMP TO START
;EDIT TABLE?
;BRANCH TO EDIT IF SO
;ENTER BURST DATA LATE CALIBRATION?
;BRANCH TO PROMPT IF COMMAND NOT RECOGNIZED
;SEE IF REGADR HAS BEEN LOADED
:BRANCH TO ERROR MESSAGE IF NOT
;SEE IF VECADR HAS BEEN LOADED
;BRANCH TO ERROR MESSAGE [F NOT

;JUMP TO BURST DATA LATE CALIBRATION ROUTINE

CZORLCO-DR1 GEN NPR INTFC

TABLE EDIT
RQUTINE

3873
3874 032472
3875 032476
3876 032502
3877 032504
3878 032510
3879 032514
3880 032522
3881 032526
3882 032532
3883 032534
3884 032542

MACRO M1113

EDIT:

002704

3888 032562

000033

002664

000003

002664

000015

002664

034307

1%:

2s:

000020
002414
036204
002416

035276
000006
000067
002722
000006

002704

000033

002664

000003

002664
5%:
6$:

032144

034432
000015
171000

002664

78:

8%:

177000

032740

032744
3924 032746
3925 032752
3926 032756
3927 032762
3928 032764
3929 032766

000721
010437
104401

013746
104403
003
104401

000
035276

JSR
CMP
BNE
CMP
BEQ
CMP
BEQ
CMP
BEQ

TYPE

BR
18T
8tQ
CMP
BMI

MoV
TYPE
MOV
TYPOC
TYPE
Mov
move
JSR
CMP
BNE
CMP

BEQ
CMP
BNE
JMP

TYPE

BR
CMP
8eaQ
BR
CMP
BHI
CMP
BLO

BEQ
TYPE

034600

002416
036150
002456

.SBTYTL

TYPE
MoV
TYPDS
TYPE
MOV
Mmovs

BIT

000007
104401

27-0CT-80 15:53

9%:
108:

MOV
TYPE
MoV
TYPOS

.BYTE

TYPE

K 12
PAGE 136

SEQ 0153

TABLE EDIT ROUTlNE

.NOBUT
QTYBRD,=-(SP)

. SPACEC
2,R3

29, LRGSTC
PC,READ

#2.R3

g%SC.ANSUER
ggNTLC.ANSUER
#CARETN,ANSWER
48

,BONERR

EDIT
R4
19
#20,Ré
1%
R4,QTYBRD

. SOADRS

REGADR,=(5P)

#6.R3

°'NUMBER OF BOARDS UNDER TEST: °
TYPE:
:PUT QUANTITY OF BOARDS ON STACK FOR PRINTING
gePERINI
THE OUANTITY OF BOARDS

SEXPECT MAX OF 2 CHARACTERS

:MOVE ASCII '9' TO THE LARGEST CHARACTER LOCATION
;GO READ 2 CHARACTERS
;SEE IF NON-NUMERIC WAS THE ONLY INPUT
:BRANCH IF NOT
;SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
:BRANCH TO PROMPT JUMP IF SO
:SEE IF USER WANTS TO EXIT (*()
;BRANCH TO PROMPT JUMP IF EXIT REQUESTED
;SEE IF A <CR> WAS INPUTED
;IF <CR> USE EXISTING NUMBER
°ILLEGAL NUMBER (# OTHER THAN 1-16) OR CHARACTER [NP
STYPE:

:BRANCH BACK FOR NEW INPUT
;CHECK FOR ZERO MODULES INPUT
;BRANCH TO PRINT ERROR MESSAGE IF SO
;SEE IF BOARD NUMBER IS ILLEGAL

;BRANCH TO PRINT ERROR MESSAGE If SO
;MOVE INPUTED NUMBER TO QTYBRD
;TYPE:
' STARTING DEVICE ADDRESS: °
:MOVE THE PRESENT ADDRESS TO THE STACK FOR PRINTING
;PRINT THE ADDRESS

;TYPE:

SEXPECT HAXIHUH 6 CHARACTERS

#'F,LRGSTC

iMOVE ASCII '7°' TO THE LARGEST CHARACTER LOCATION

#6.R3

;SEE IF NON-NUMERIC CHARACTER INPUTED
:BRANCH IF NOT
;SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT

PC,READ

#ESC,ANSWER

EDIT

#CNTLC
. ANSWER

PROMPT

.:DRERR

#CARETN,ANSWER
108
13

#171000,R4
6%
#177000,R4
6$
7 ,R4
9%

+ADLCHR

43
R4 ,REGADR
. SVADRS

VECADR,=(SP)

3,0

.SPACEC

;GO READ 6 CHARACTERS

:BRANCH AROUND ESC PRINT AND PREVIOUS PROMPT BRANCH IFf SO
;SEE IF USER WANTS TO EXIT (*C)
:BRANCH AROUND PROMPT JUMP IF NOT
;JUMP TO PROMPT A NEW COMMAND

,TYPE:

°'ADDRESS INPUTED IS NOT IN THE RANGE 171000 TO 17700

:BRANCH BACK FOR REINPUT
;SEE IF <CR> WAS ONLY CHARACTER INPUTED
:1F <CR> USE EXISTING REG ADDRESS
:BRANCH BACK = INPUT NOT LEGAL
;1S ANSWER BELOW 171000
:BRANCH TO PRINT ERROR MESSAGE If IT IS
;1S ANSWER ABOVE 177000
;BRANCH TO PRINT ERROR MESSAGE IF NOT

;TEST TO MAKE SURE A '0' IS PRESENT IN LOWEST OCTAL DIGIT
:BRANCH AROUND ERROR MESSAGE TYPE IF SO

IYPE

*ADDRESS INPUTED HAS OTHER THAN O FOR LEAST®

*SIGNIFICANT OCTAL DIGIT®
BRANCH BACK FOR REINPUT
s INSTALL NEW # IN TABLE
:TYPE:
°'STARTING VECTOR ADDRESS:
°
:MOVE PRESENT VECTOR TO STACK FOR PRINTING
;PRINT _THE PRESENT VECTOR ADDRESS
}::E 3 QHARACIERS SUPPRESS LEADING ZEROS

CZIDRLCO-DRi1 GEN NPR INTF(

TABLE EDIT ROUTINE

3930 032772
3931 032776
3932 033002
3933 033006
3934 033010
3935 033016
3936 033020
3937 033026
3938 033030
3939 033036
3940 033040
3941 033042
3942 033046
3943 033050
3944 033054
3945 033056
3946 033062
3947 033064
3948 033070
3949 033072
3950 033076
3951 033102
3952 033110
3953 033116
3954 033122
3955 033126
3956 033132
3957 033136
3958 033140
3959 033142
3960 033150
3961 033152
3962 033160
3963 033162
3964 033170
3965 033172
3966 033174
3967 033176
3968 033200
3969 033204
3970 033206
3971 033214
3972 033220
3973 033224
3974 033232
3975 033236
3976 033242
3977 033246
3978 033252
3979 033254
3980 033256
3981 033264
3982 033266
3983 033274
3984 033276
3985 033304
3986 033306

MACRO M1113

000003
002722
000003

MOV

000033

002664

000003

002664

000015

002664

000123

11$%:

034517
13%:

000003
034703
002456
036077
001474
000001
005606
035276
000001
002722

002720
002710

14%:
15%:

000015

002664

000003

002664

001474
002720

000033

002664

000003

002664

000015

MoV
TYPE
MOV
MoV

002664

17%:
18%:

#3°R3

11$

#ESC,ANSWER

#CNTLC,ANSWER

#CARETN,ANSWER

JSR
TST
BEQ
CMP
BEQ
CHP

BEQ
CMP
8EQ
BR

:SEE IF ??N;g?HERIC WAS THE ONLY INPUT
;BRANCH
;SEE [F USER WANTS TO GO BACK TO PREVIOUS PROMPT
sBRANCH TO PREVIOUS PROMPT IF SO
sSEE IF USER WANTS TO EXIT (*0)
:BRANCH TO PROMPT JUMP IF SO

JSEE [F <CR> WAS INPUTED
:BRANCH IF NO CHANGE WANTEQ
;BRANCH BACK = INPUT WAS ILLEGAL
sSEE IF ANSWER 1S BELOW 124
;BRANCH ARDUND ERROR MESSAGE IF NOT

"VECTOR INPUTED IS NOT IN THE RANGE OF 124 TO 777'

:BRANCH OVER ERROR PRINTING IF NOT
i
R4, VECADR
DR1WOB

$00W0, DDW

#BIT0.BITTST
PC,PSTATE

_SPACEC

R3
16$
#ESC,ANSUWER
10$

TYPE
MOV
JSR
TYPE
MoV

;G0 READ 3 CHARACTERS

:MAKE SURE LEAST SIGNIFICANT OCTAL DIGIT IS '0' OR ‘4’

TST

BNE
BIC
BIS

SEXPECT ONLY 3 CHARACTERS

BRANCH BACK FOR REINPUT

" ,R3

CMP
BEQ
CMP
BEQ
CMP
BEQ
BR
TST
BEQ
CMP

SEQ 015¢4

:TYPE:

MoV

BEQ

000001

PC.READ

BIT
BEQ

JSR
TYPE

16$:

L.12

PAGE 136-1

TYPE
BR

JSR

002664

001474
036035
001474
005630
035276
000001
002722

JSR
CMP
BNE
CMP
BEQ
CMP
BEQ
CMP
BEQ
BR
CMp
BMI

TYPE

000033

000001

27-0CT-80 15:53

PC.READ

#CARETN,ANSWER

18%
gCNTLC.ANSUER

#8170, $0DWO
R&,$00W0
DEVPRI

$00W0, DDV

PC,PNTPRI
L SPACEC
#1,R3
PC.READ
R3
19%
#ESC,ANSWER
15%
JCNTLC,ANSWER

26%

JCARETN,ANSWER

20
18%

;TYPE:

*VECTOR INPUTED SHOULD HAVE 2ERO AS LEAST DIGIT'

:BRANCH BACK FOR REINPUT

;INSTALL NEW VECTOR ADDRESS IN TABLE
= °
'DR11-W OR B (W=0, B=1) CURRENT STATE

:TYPE:

:MOVE DEVICE DESCRIPTOR UORD 10 DDW
:MOVE BIT STATE TO PRINT TO BITTST
¢PRINT C?RRENT W/B STATE
;TYPE:

:ONLY INPUT 1 CHARACTER
;G0 READ 1 CHARACTER
;SEE IF NON=-NUMERIC WAS THE ONLY INPUT
:BRANCH AROUND NON-NUMERIC TESTS IF SO
;SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
:BRANCH TO PREVIOUS PROMPT IF SO
:SEE IF ??EgOUANTS NO CHANGE

:BRANCH
;SEE IF USER WANTS TO EXIT (*(C)
:BRANCH TO PROMPT JUMP [F SO
:BRANCH BACK = INPUT NOT LEGAL
;CHECK FOR LEGAL INPUT
:BRANCH IF 0K
;CHECK FOR ILLEGAL INPUT
:BRANCH BACK IF ILLEGAL STATE INPUTED
ALTERED
A
;CLEAR THE BIT TO BE
:PUT USER INPUT INTO $DDWO
=
sTYPE:
'DEVICE PRIORITY PRESENT LEVEL
:MOVE DEVICE DESCRIPTOR WORD TO DDW
:PRINT DEVICE PRIORITY
:TYPE

o~Lv'1uPur'1 CHARACTER

;60 READ 1 CHARACTER
NON-NUMERIC WAS THE ONLY INPUT
AROUND NON-NUMERIC TESTS IF NOT

USER WANTS TO GO BACK TO PREVIOUS PROMPT

TO PREVIOUS PROMPY IF SO
JSEE IF USER WANTS TO EXIT (*C)
:BRANCH IF EXIT WANTED
sSEE IF <CR> INPUTED FOR NO CHANGE WANTED
:BRANCH IF NO CHANGE WANTED
:BRANCH BACK = INPUT NOT LEGAL

—

CIORLCO-DRi1
GEN NPR INTF(

TABLE EDIT ROUTINE
3987 033310
3988 033312

006304
006304

3952 033322

042737

000340

104401
012703
004737
005703
001415
022737
001704

035276
000001
002722

3989 033314
3990 033316
3591 033320

3993 033330
3994 033334
3995 033340
3996 033346
3997 033354

3998 033360
3999 033364
4000 033370
4001 033374
4002 033376
4003 033400
4004 033406

006304
006304
006304

050437
104401
013737
012737
004737

MACRO M1113

198:

001474

002664

4005 033410 022737 000003 002664

4006 033416
4007 033420
4008 033426
4009 033430
4610 033432
4011 033434
4012 033436
4013 03442
4014 053444
4015 033446

001473
022737
001414
000741
005704
001403
022704
001334
006304
042737

4017 033460
4018 033464
4019 033472
4020 033500

104401
013737
012737
004737

000015

218:

000001

000002

050437

001474

4021 033504
4022 03351C
4023 033514
4024 033520
4025 033522

104401
012703
737
005703
001415

035276
000001
002722

4027 033532

001700

4016 033454

4026 033524

4028 033534
4029 033542
4030 033544
4031 033552
4032 033554
4033 033556

4034 033560
4035 033562

000033

002664

022737
001421
022737
001415
000741
005704

000003

002664

000015

002664

001403
022704

4038 033572

228:

238:
036261
001474 002720
000004 002710
005606

022737

4036 033566 001334
4037 033570

001474

258:

0063

4039 033574 042737 000004 001474
4040 033602

4041 033606

050437
000137

001474
032144

BIC

SLEVEL7,300W0

;CLEAR OLD PRIORITY

,SPACEC
#1,R3
PC.READ
R3
218
#ESC,ANSWER
188

STYPE:
SONLY ONE CHARACTER TO INPUT
‘READ 1 CHARACTER
‘SEE IF NON-NUMERIC WAS THE ONLY INPUT
*BRANCH AROUND NON-NUMERIC TESTS [F NOT
*SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
*BRANCH TO PREVIOUS PROMPT IF SO

BIS
TYPE
MOV
MOV
JSR

TYPE
MOV
JSR
TST
8EQ
CMP
BEQ
BEQ
CMP
BEQ
BR
TST
BEQ
CMP
BNE
ASL
BIC

BIS

TYPE
MO/
MOV
JSR

TYPE
MOV
JSR
131
BEQ

BEQ

000001

006304

;PUT PRIORITY IN PROPER POSITION
‘BY SHIFTING TO THE LEFT S PLACES

CMP

248:

268:

SEQ 0155

R4
R4

CiaP

002664

M 12
PAGE 136-2

ASL
ASL
ASL
ASL
ASL

001474
208:
035747
001474 002720
000002 002710
005606

000033

27-0CT-80 15:53

R4
R4
R&

R&, $00WH
TORNCB
$00W0, DOW
#BIT1.BITTST
PC,PSTATE

FCNTLC,ANSWER

268
NCARETN,ANSWER
238
208
R4
228
#1,R4
20$
R4
#81T1,300W0

R4, $DOWO

*SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT

208

STYPE:
TINPUT ONLY 1 CHARACTER
160 INPUT 1 CHARACTER
*SEE IF NON-NUMERIC WAS THE ONLY INPUT
*BRANCH AROUND NON-NUMERIC TESTS IF NOT

:BRANCH TO PREVIOUS PROMPT IF SO

258
# R4

:SEE IF USER WANTS TO EXIT (*C)
‘BRANCH IF USER WANTS TO EXIT
:SEE IF USER WANTS NO CHANGE
*BRANCH IF USER WANTS NO CHANGE
‘BRANCH BACK = USER INPUT NOT LEGAL
*CHECK FOR LEGAL INPUT
‘BRANCH IF OK
SCHECK FOR ILLEGAL INPUT

*SHIFT INPUTED BIT OVER 2 PLACES

3¢
R4

BIC

#81712,300W0

JMP

PROMPT

8IS

*SET THE USERS INPUTED STATE TO $DDWO

#ESC, ANSWER

,SPACEC
#1,R3
PC.READ
R3
248

BNE

ASL

*BRANCH IF USER WANTS TO EXIT
:SEE IF USER WANTS NO CHANGE
‘BRANCH IF USER WANTS NO CHANGE
*BRANCH BACK = USER INPUT NOT LEGAL
*CHECK FOR LEGAL INPUT
*BRANCH IF OK
*CHECK FOR ILLEGAL INPUT
‘BRANCH BACK IF ILLEGAL STATE INPUTED
‘SHIFT BIT OVER 1 PLACE
*CLEAR OLD STATE

STYPE: °DO CABLE TESTS (NO=0, YES=1) PRESENT STATE= *
*MOVE DEVICE DESCRIPTOR WORD 70O DOW
:MOVE BIT STATE TO PRINT TO BITTST
:PRINT CABLE STATE

SCNTLC.ANSWER
268
SCARETN,ANSWER
26$
238
R&

ASL

-SEE IF USER WANTS TO EYIT (“C)

DOCTS
$D0OW0, DOW
#BIT2.BITTIST
PC,PSTATE

CMP
BEQ
CMP
BEQ
BR
TST

BEQ
CMP

*SET PRIORITY INTO DEVICE DESCRIPTOR WORD
“TYPE: '2 OR N CYCLE BURST (2 CY=0, N CY=1) PRESENT STATE =
*MOVE DEVICE DESCRIPTOR WORD TO DDW
:MOVE BIT STATE TO PRINT TO BITTST
'PRINT 2/N CYCLE STATE

R4, $0OWO

‘BRANCH BACK IF ILLEGAL STATE INPUTED

:CLEAR BIT TO BE CHANGED

*SET THE USERS INPUTED STATE TO $DDWO
1JUMP TO GET NEW DEVICE NUMBER

MACRO M1113
CIORLCO-DRT1 GEN NPR INTF(
BURST DATA LATE CALIBRATION ROUTINE

.SBTTL

4042
4043
4044
4045
4046
4047 033612
4048 033620
4049 033624

N.12
PAGE 137

SEQ 0156

BURST DATA LATE CALIBRATION ROUTINE

tttt"'tt.t.ti"t""""'t"""'t."'""t""'ll"""tt"""'

+3>>>>>>BURST DATA LATE CALIBRATION ROUTINE<<<C<<<<<

t""ttttt'ititt"t"ttt"""'."tt't't."l""'t""""""tt"

002670

BDLCR:

MOV

JSR

TYPE

002544

4052 033630
4053 033636
002544

001466

MOV
MOV
Mov

2s:

002544

034377
032144

48:

002544
001422

002522
000004
002526
035076
001422
035407
004036
146542
000077
000400
002660

002522

002660

146526

145336

4081 034010
4082 034016

27-0CT-80 15:53

017737
000730

146622

002660

5%:

6%:
78:

CLR
BIT

BNE
TST
8PL
TYPE
JMP
CMP
ASL

INC
BR

MOV
ADD
MOV

TYPE
MoV
TYPDS
TYPE
JSR

CLR

MOV

BIS
DEC
BNE

1S18
8PL
MOV
BR

#-1,MANSIZE
PC,FIXTBL

,BOLCRM

#8170,DEVMSK
#VECADR,RO
#REGADR,R1

SUNIT

gEVHSK,$DEVH

DEVMSK
48

,BCDONE

PROMPT
(RO)+, (R1)+
DEVMSK

SUNIT
28

(R1),CSR
04 ,CSR

(RG) ,DRINV
DEVICE

$UNIT,=(SP)
JUCAL

PC,CLENUP
(SR

#77,T1ME

#CY,aCSR
TINE

78
131
43
63
8TKB,TINME

‘s

;MOVE -1 TO MANSIZE
;G0 FILL TABLE
;TYPE:
'BURST DATA LATE CALIBRATION'

°TYPE'

'ATTACH SCOPE PROBE.

'TO CALIBRATE NEXT BOARD, TYPE ANY CHARACTER'
:SET UP BIT MASK TO TEST SDEVM FOR DEVICES
:MOVE VECADR T0 RO
:MOVE REGADR TO R1
;CLEAR SUNIT
;CHECK r0 SEE IF DEVICE IS TO BE TESTED
:BRANCH IF SO
;SEE IF BIT 15 IS SET
:BRANCH TO CONTINUE IF NOT SET
;TYPE:
'BURST CALIBRATION COMPLETE'
;JUMP TO PROMPT A NEW COMMAND

: INCREMENT THE TWO POINTERS

;UPDATE DEVICE MAP TEST MASK
s INCREMENT UNIT NUMBER
;GO TEST NEXT BIT OF DEVICE MASK
;PUT UUT CSR ADDRESS INTO DEVICE CSR LOCATION
:POINT CSR TO CSR ADDRESS
:PUT UUT VECTOR ADDRESS INTO DEVICE DRINV
;TYPE:

'DEVICE
#

:PUT UNIT NUMBER ON STACK FOR TYPEOUT
;GO TYPE THE UNIT NUMBER IN DECIMAL
;TYPE:
' UNDER CALIBRATION'

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
;CLR CYCLE BIT

:MOVE WAIT LOOP COUNTER TO TIME

;SET CYCLE BIT

sSUBTRACT 1 FROM TIME UNTIL ZERO
:BRANCH BACK IF NOT ZERO YET

;1S A CHARACTER WAITING INDICATING USER WANTS TO GO ON?

:BRANCH IF NOT

;WASTE THE CHARACTER, CLEARING THE CHARACTER FLAG
;G0 ON TO NEXT BOARD

114 035320

6115 035322
6116 035333
4117 035336
4118 035407
4119 035433
4120 035472
4121 035556
4122 035647
4123 035747
4124 036035
4125 036077
4126 036150
4127 036204

4128 036237
4129 036261
4130 036340
4131 036434
4132 036531
4133 036564
4134 036663
4135 036751
4136 037037
4137 037121
4138 037170
4139 037245

116

102
200
200
040
200
200
104
040
200
200
200
200
200

040
200
200
200
200

200
124
105

200
122
200
125

000

117
00
101
125
116
200
122
040
062
104
104
123
123

1264
104
200
10¢
200

105
110
122

116
105
050
116

200
102
200
040
114
122
104
103
104
103
123
105
123
000
126
125
124

117

STKIFL:
ERCHDR:
NODATA:

ADRERR:
VECERR:
ADLCHR:
VCLCHR:
ESCAPE:

MUSTED:

SPACE?7:

000

116
105
122

117
123
136
m

.
.

SPACES:

'R
NO:

105
117
043
117
115

.
.
.

gPACEC:

101
000
114
116
125
104
061
040
040
105
122
124
124

LETNCR:
CNTRLC:
DEVICE:
BDOLCRM:

000
040
040
040
072

123

ETDEV:
BONERR: .AS
:
BCDONE

SPACE3:
SPACE6:

131
200
13
055
114
125
104
105
104
105
105
104
125
000
103
105
102
101
1264
040
040
040
040
040
000
000
17
105
000

124

YES:
TWO:
N:

BOARD:

CRLF2:

BCFIN:
UCAL:
NOBUT:
BRVWPC:

TORNCB:
DEVPR]:

SVADRS:
SDADRS:
TSTCOM:
DOCTS:
HEADER:

DR1WOB:

MBDIAL:
ECELR:
NOMORE:
NODVPR:

M1:

.
.

136
200
136
040
11
102
101
126
101
126
074
200
115
040
136
104
200
200
200
040
040
040
040
040
102
127
116
131
062

123

4085 034073
4086 034154
4087 034211
4088 034250
4089 034307
4090 034377
4091 034432
4092 034517
4093 034600
4094 034703
4095 034762
4096 034770
4097 035051
4098 035071
4099 035073
4100 035076
4101 035110
4102 035144
4103 035172
4104 035250
4105 035253
4106 035257
4107 035266
4108 035276
4109 035303
4110 035305
4111 035307
4112 035312
4113 035316

200

[

4083
4084 034020

ASCII AND ASCIZ MESSAGES AND LOCATIONS

8.13

27-0CT-80 15:53

.AS

NU-ON.—-NU—NNNO-‘NNNNNNNN.—OO—ONNNNNNNNNNNNNNNNN.—!MNNNNMNNNNNNNNNN%N"’

MACRO M1113

@
CIIN IO AOICIOIAICIOIOICIOICIOIOIITIIIICIDICIOIIDIOIHYH
—4
EVEIIOIICIOIOIOIIOIOIOIOICICIOIOIOIOIOION
O IV
Lol T
Y
Y o
Y
Y
R
)
St Puaep Pumg Do S g Pt Sunp Grug S et Pump P ueg Pt Breg et Bisned Bt P St Bt S Dt B Pt Pug P Pt Do) Pt P Pt Pt P g Gt $np g G Pt S Bt B B bt S

CIDRLCO-DRI1 GEN NPR INTF(

PAGE 138

SEQ 0157

CII AND ASCIZ MESSAGES AND LOCATIONS
RLF>/STACK IS FULL = DATA MAY PAVE BEEN LOST/<CRLF><CRLF>
Y/<CRLF>/SUMMATION OF ERRORS SINCE START OR LAST REPORT/
ERRTTL/<CRLF>
PASS #
RLF><CRLF>/BOARD #
><(RLF>
REPORT/<CRLF
TO
TOTALS
ERROR
Y/<CRLF>/NO
= TOTAL ERRORS THIS DEVICE = /
/ILLEGAL NUMBER (# OTHER THAN 1-16) OR CHARACTER INPUTED/
/BURST CALIBRATION COMPLETE/

/ADDRESS INPUTED IS NOT IN THE RANGE 171000 T0_177000/
/VECTOR INPUTED IS NOT IN THE RANGE OF 124 10 777/
/ADDRESS INPUTED HAS OTHER THAN O FOR LEAST SIGNIFICANT OCTAL DIGIT/
5VE§ZO$ INPUTED SHOULD HAVE ZERO AS LEAST DIGIT/
<

<CRLF>/DEVICE ADDRESS AND-OR VECTOR TABLE NOT SET UP = /
;H?ST EDIT FIRST/
/*C/
/OEVICE # /
<CRLF>/BURST DATA LATE CALIBRATION/
<CRLF>/ATTACH SCOPE PROBE.../

<CRLF>/TO CALIBRATE NEXT BOARD,

TYPE ANY CHARACTER/<CRLF>

/8/

N/
/NO/
/YES/

/2/

/N/
/BOARD # /

CCRLF><CRLF>

<CRLF>/ALL BOARDS CALIBRATED - BEGINNING TEST/<CRLF>
/ UNDER CALIBRATION/<CRLF>
<CRLF>/NUMBER OF BOARDS UNDER TEST: /

CCRLF><CRLF>/DIAGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE/<CRLF>
/DR11-W(S) IT HAS FOUND. USER *MUST* DETERMINE ACCURACY/<CRLF><CRLF>

BOARD#

REGADR

VECADR

P-LEV

W-B

2-N (Y

CABLE/<CRLF>

<CRLF>/2 OR N CYCLE BURST (2 Cy=0, N CY=1) PRESENT STATE = /
<CRLF>/DEVICE PRIORITY PRESENT LEVEL = /
<CRLF>/DR11-W OR B (W=0, B=1) CURRENT STATE = /
<CRLF>/STARTING VECTOR ADDRESS:
/
<CRLF>/STARTING DEVICE ADDRESS: /

/ TESTING COMPLETE/
<CRLF>/D0 CABLE TESTS (NO=0, YES=1) PRESENT STATE = /

<CRLF><CRLF>/# OF
START
VECADR
REGADR
<CRLF>/BOARDS

V-8

<CRLF><CRLF>/MULTIPLE BOARD DIALOGUE/<CRLF>

P-LEV

CYCLE

2-N
CABLE/
TESTS/<CRLF>

<CRLF>/ENTER COMMAND (CEIDIT, CLIIST, [BIURST CALIBRATION, [RIUN):
/THERE ARE STILL MORE ERRORS, BUT WILL NOT BE PRINTED./<CRLF>
/ERRORS WILL STILL BE COUNTED AND PRINTED AT THE EOP,/<CRLF>

<CRLF>/NO DEVICES RECOGNIZED - DIAGNOSTIC CANNOT BE RUN/<CRLF>
/RESTARY AT 204 IF A DEVICE IS PRESENT/<CRLF>
CCRLF>/(*X) INHIBITS EOP'S, (“Y) FOR ERROR SUMMARY/<CRLF>
/UNIBUS HANG? RESTARY AT ADDRESS /

CIDRLCO-DRT1 GEN NPR INTF(

MACRO M1113

ASCII AND ASCIZ MESSAGES AND LOCATIONS

4140
4141
6142
4143
L1464

4145
4146
6147
4148
4149

037307
037360
037402
037423

200
104
054
054

037444
037446
040446
040450
040452

000000

.SAV:

000000
040450

BUFF:
XINBUF:

041452

XCHKBU:

042656

CAPNTR:
CAPSTK:
ENDSTK:

4150 041452
4151 041454
4152 0424654
4153 062456
6156 044736

000000

200
105
040
040

103
126
124
120

27-0(T-80 15:53

MA:
BARADR:
TSNUMB:
PASNUM:

JASCI2
.ASCIZ
.ASCI?
,ASCI?
.EVEN
,WORD
.BLKW
.WORD
.
.BLKW

.
.BLKW
.WORD
.BLKW
.WORD

["4

€13

PAGE 138-1

SEQ 0158

<CRLF>CCRLF>/CZORLCO DR11 GEN NPR INTFC LOGIC TEST/<CRLF>
/DEVICE ADORESS - /
/, TEST NUMBER - /
/. PASS NUMBER - /

«00

400
400

CAPSTK
600.
0

;LOCATION TO HOLD POINTER FOR CAPTURE STACK
;LOCATIONS TO STORE P TO 150 DECIMAL PASSES AND THEIR ERROR
;FLAG SIGNALING END OF THE STACK

CIDRLCO-DRT1 GEN NPR INTF(

MACRO M1113

ERROR MESSAGES

6155
4156 044740
6157 044766

6158 045022
4159 045070
4160 045121
6161 0645152
4162 045203
4163 045251
6164 045303
4165 065346
6166 045400
4167 045450
4168 045537
4169 045563
4170 045607
6171 045676
6172 045744
4173 046014
4174 046055
6175 046124
6176 046155
6177 046206
4178 046245
4179 046302
4180 046340
4181 046404
4182 046425
4183 046456

4184 046516

4185 046577
6186 046627
6187 046665
4188 046715
4189 046763
4190 047017

4191 047050
4192 047120
4193 047156
4194 047233

4195 047250
6196 047315
4197 047374
4198 047435
4199 047463
047
4200
4201 047520
4202 047556
4203 047606

4204 047645
4205 047730
4206 047777
4207 050037
4208 050110
4209 050153
4210 050203

124
103

104
m
m
m
m
122
101
122
101
103
103
105
122
101
10
105
102
122
102
102
127
106
104
102
10
102

105
101

123
116

122
116
116
116
116
105
124
105
1264
123
123
m
105
124
124
122
m
105
m
m
103
125
123
104
114
104

061
111
111
111
111
123
126
123
124
122
122
122
101
124
124
122
1264
101
1264
126
122
116
124
122
114
122

102
122
122
122
122
104

104
105
105
105
105
122

122
101
101
101
101
061

103

123

122

192

104
105
106
124
104
105
127
102
102
104
102
124

125
103
104
062
115
103
102

104

122
122
125

122
122
130
103
101
101
0
125
117

116
123
122
055
125
123
104

122

061
122
116

101
061
120
122
122
104
126
106
117

105
122
061
116
114
122
122

27-0CT-80 15:53

EMI:
EM2:

EM3:
EM4:
EMS:
EM6:
EM7:
EM10:
EMIN:
EM12:
EM13:
EM14:
EMIS5:
EM16:
EM17:
EM20:
EM21:
EM22:
EM23:
EM24:
EMDS:
EMc6:
EM27:
FM30:
EM31:
EM32:
EM33:
EM34:

EM35:

EM36:
EM37:
EM4O:
EMé1:
EM42:
EM4S:

EM&4:
EM4S:
EM46:

EM47:

EM50:
EM51:
EM52:
EMS3:
EM54:
EMSS:
EMS6:
EMS7:
EM60:

EM61:
ER42:
EM63:
EM6S:
EM66:
EM202:
EM211:

D13

PAGE 129

.SBTTL
LASCIZ
.ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ

ERROR MESSAGES
/TEST SEQUENCING ERROR/
/CANNOT ACCESS DR11 REGISTER/
/DR11-B OR W MODE INCORRECT (0=B, 1=W)/
/INIT FAILED TO CLEAR WCR/
/INIT FAILED TO CLEAR BAR/
/INIT FAILED TO CLEAR BDR/
/INIT FAILED TO CLEAR ALL CSR R-W BITS/
/RESET FAILED TO CLEAR WCR/
/ATTEMPY TO SET ALL WCR BITS FAILED/
/RESET FAILED TO CLEAR BAR/

ASCI2
ASCIZ

/CSR BIT TEST FAILED/
/EIR BIT TEST FAILED/

ASCIZ
ASCIZ

ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ

ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCI2
ASCIZ

.ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
.ASCIZ
_ASCIZ
ASCIZ
ASCIZ
ASCIZ

SEQ 0159
P

/ATTEMPT TO SET ALL BAR BITS TO 1 FAILED/
/CSR BIT TEST FAILED (FATAL - DIAGNOSTIC NOT CONTINUED)/

/READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN (SR/
/ATTN AND ERROR FAILED TO SET PROPERLY/
/ATTN AND ERROR FAILED TO CLEAR PROPERLY/
/ERROR BIT SHOULD HAVE BEEN CLEAR/
/BIT PATTERN NOT LOADED PROPERLY IN WCR/
/READY OF CSR WAS NOT SET/
/BIT O OF THE BAR WAS SET/
/BIT PATTERN TEST FAILED IN BAR/
/WCR DATA PATTERN NOT CORRECT/
/FUNCTION BIT(S) ARE NOT CLEAR/
/DSTAT A, B OR C ARE NOT AS EXPECTED/
/BDR IS NOT CLEAR/
/ALL BDR BITS ARE NOT SET/
/BDR FAILS TO HOLD A BIT PATTERN/

/BOR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN/

/BDR PATTERN NOT CORRECT/
/READY IS NOT THE ONLY BIT SET/
/READY SHOULD NOT BE SET/
/READY WAS CLEARED BUT NEVER SET AGAIN/
/READY CANNOT BE SET BY INIT/
/DR11 FAILED TO INTERRUPT/

/DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE/
/ERROR BIT SHOULD NOT BE CLEAR/
/FUNCTION BITS DION'T INCREMENT IN MAINT MODE/
/CSR IS WRONG/

ASCIZ
ASCIZ

/TRANSFERS SHOULD HAVE BEEN INHIBITED/
/DR11 SHOULD NOT HAVE INTERRUPTED A SECOND TIME/
/EXPECTED INTERRUPT DID NOT OCCUR/

ASCIZ
ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

/UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW/
/CSR AND-OR WCR AND-OR BAR ARE INCORECT/
/DR INTERRUPTED AT WRONG LEVEL/
/2-N CYCLE BURST SWITCH IN WRONG POSITION/
/MULTICYCLE BIT IN THE EIR IS WRONG/
/CSR PATTERN NOT CORRECT/
/BDR AND-OR WCR AND-OR BAR ARE INCORECT/

.ASCIZ
ASCIZ
ASCIZ
.ASCIZ
ASCIZ
ASCIZ

/MCR NOT EQUAL TO ZERO/
/BAR IS WRONG/
/BAD DATA [N BOR/
/DATA NOT TRANSFERED CORRECTLY/
/BUFFER DATA NOT CORRECT/
/700 MANY WORDS WERE TRANSFERED/

—

MACRO M1113

CIDRLCO-DRT1 GEN NPR INTFC

DATA HEADERS

6211
4212 050252
4213 050270
4214 050307
4215 050350
4216 050417
4217 050463

4218 050532
4219 050576
4220
4221
4222
4223

059¢€52
050701
050765
051014

4224 051100
4225 051154
4226 051230
6227 051304
4228 051360
4229 051424
4230 051523
4231 051602

4232 051660
4233 051747
4234 051776
4235 052045
4236 052116
4237 052176
4238 052225
4239 052274
4240 052333
4241 052402
4262 052451
4¢43 052530
4244 052614
4245 052670
4246 052734
G247

105
1264
124
124
124
126

1264
1264

040
124
040
124

124
1264
124
124
124
124
124
040

124
040
124
124
124
103
124
124
124
124
124
124
124
124
124

130
105
105
105
105
105

105
105

040
105
040
105

105
105
105
105
105
105
105
040

105
040
105
105
105
123
105
105
105
105
105
105
105
105
105

120
123
123
123
123
123

123
123

040
123
040
123

123
123
123
123
123
123
123
040

123
040
123
123
123
122
123
123
123
123
123
123
123
123
123

27-0CT-80 15:53

DH1:
DH2:
DH3:
DH&:
DH5:

DHé6:
DH7:

DH14:
DH16:

DH17:
DH23:
DH26:
DH34:
DH43:
DH50:
DH56:
DH57:
DH60:
DH61:
DH62:

DH63:
DHb64:
DH65:
DH66:
DH202:
DH203:
DH207:
DH210:
DH211:

.SBTTL
.ASCI]

LASCI
.ASCI2
.ASCI2
.ASCIZ
-ASCIZ
.ASCIZ
.ASCI2
.ASCII
LASCIZ
.ASCII

<ASCI2
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCII
JASCI2
.ASCII
LASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
ASCIZ
.EVEN

E 13

PAGE 140

SEQ 0160

DATA HEADERS

RECVD/<CRLF>
TEST #/
ABRTP(
ERR
EXPMOD
ERR
WCRADR
ERR
BARADR
ERR

ERR
ERR

ERR
ERR
ERR
ERR
ERR
ERR
ERR
ERR
ERR
ERR

ERR
ERR
ERR
BAREXP
ERR
ERR
ERR
ERR
ERR
ERR
ERR
ERR
ERR

WCRCONTENTS/
BAREXP BARRCV/

BDRADR BORCONTENTS/
CSRCONTENTS/
CSREXP
CSRADR
BIT(S)/<CRLF>
CSRCONTENTS/
CSREXP
TESTED
CSRADR
>
BIT(S)/<CRLF
TESTED
EIRADR EIREXP EIRCONTENTS/
CSRCONTENTS/
CSREXP
CSRADR
WCREXP WCRCONTENTS/
WCRADR
BARADR BAREXP BARCONTENTS/
BDRADR BDREXP BDRCONTENTS/
CSRCONTENTS/
CSRADR
WCRRCV BARADR BAREXP
WCREXP
WCRADR
NPR1AD
CHECK
BUFADR

NPRI1EX
CHECK
BUFDAT

WCRADR
WCRADR
BARRCV/
EXPLVL
EXPLVL
CSRADR

OLDOPC
WCREXP

DIDNOT/<CRLF>
ADRESS
EXPECT

PATERN

CSRADR
CSRADR

PATERN
WCRADR
WCRADR

NPR1RC

INPUT
BUFADR

CSRADR/

BARR(CV/

INPUT/<CRLF>
(CSRADR/
BUFDAT

CSRADR/
TRAP ADR/
CSREXP
WCRRCV

CSRADR/
CSRADR/
EIRRCV/
EIREXP
CSRRCV/
CSRADR
CSRRCV/
PATLDD
CSREXP
PATERN
CSREXP CSRCONTENTS/
CSRCONTENTS/
CSRADR
WCRCONTENTS/
RCVLVL

WCREXP

WCRRCV

BDREXP

BDRRCV

BAREXP

BARR(CV/

CIDRLCO-DRT1 GEN NPR INTF(

DATA TABLES

4248
4249 053044
4250 053052
4251 053064
4252 053100
4253 053112
42564 053126
4255 053140
6256 053154
4257 053172
4258 053210
4259 053224
4260 053240
4261 053254
4262 053270

4263 053302
4264 053324

001362
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414

001414
001414

4265 053342 001414
4266 053362
4267 053376
4268 0536412
4269 053436
4270 053452
4271
4272
4273
4274
4275

053464
053500
053514
053532
053550

4276 053564

4277 053576

001414
001414
001414
001414
001414

001414

001414
001316
001316
001316
001316
001316
001316
001316
001316
001316
001316
001316
001316
001316

001316
001316

MACRO M1113

000000
002672
001362
002516
002520
002524
002522
002536
002536
002522
002516
002520
002524
002522

002516
002606

27-0CT-80 15:53

OT1:
DT12:
D0713:
DT4:
DT5:
DT6:
O0T17:
DT14:
DT16:
DT17:
DT23:
D0T26:
DT34:
DT43:

DT60:
DT61:
DT62:
DT63:
DT64:

001316

002516

DT210:

001316

002516

.WORD

STESTN.SERRPC.STMP4.STMP2
STMPS STMP3,C(SR,0

.WORD
.WORD
.WORD
.WORDP
.WORD

001364
002516
002516
002552
001362

002522
002604
002522
002522
001362

DATA TABLES
$TMP1,STESTN,O

DT50:
DT56:

001316
001316
001316
001316
001316
001316
001316
001316
0013164
001316

.SBTTL
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
WORD
,WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

001316 001370 DTS7:

DT65:
DT66:
DT202:
DT203:
0DT1207:

DT211:

F 13

PAGE 141

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

STESTN,SERRPC,OLOPC1,DREG,0
STESTN,SERRPC,$TMP1,BORW,(SR,0
STESTN,SERRPC,WCR,RWCR,0
STESTN,SERRPC,BAR,EBAR,RBAR,O
STESTN,SERRPC,BDR,RBDR,0
STESTN,SERRPC,CSR,ECSR,RCSR,0
STESTN,SERRPC,BUT,CSR,ECSR,RCSR,0
STESTN,SERRPC,BUT,CSR,EEIR,REIR,O
STESTN,SERRPC,CSR,ECSR,RCSR,0
STESTN,SERRPC,WCR,EWCR,RWCR,0
STESTN,SERRPC,BAR,EBAR,RBAR,
STESTN,SERRPC,BDR,EBDR,RBDR,0
STESTN,SERRPC,CSR,RCSR,0
STESTN,SERRPC,WCR,EWCR,RWCR,BAR,EBAR,RBAR,D
STESTN,SERRPC,ANPR1,ENPR1,NPR1,CSR,0

STESTN,SERRPC,$TMP2,$TMP3,(SR,0
STESTN,SERRPC,WCR,0iDPC2,BDVECT,O
$TESTN,SERRPC,WCR,EWCR,RWCR,ECSR,RCSR,EBAR,RBAR,O
STESTN,SERRPC,DRLEV,LEVEL,CSR,0
STESTN,SERRPC,S$TMP1,CSR,0
STESTN,SERRPC,CSR,EEIR,REIR,0
STESTN,SERRPC,ENPR1,CSR,RCSR,0
STESTN,SERRPC,CSR,BUT,ECSR,RCSR,0
STESTN,SERRPC,CSR,$TMPO,ECSR,RCSR,0
STESTN,SERRPC,$TMP1,CSR RCSR,0

STESTN.SERRPC.WCR,RW(CR,0

$TESTN,$ERRPC,WCR,EWCR,RWCR,EBDR,RBDR,
EBAR,RBAR,0

SEQ 0161

CZORLCO-DRT1 GEN NPR INTF(

BUS HANG ROUTINE
4278

4279 053622
4280 053626
4281 053632
4282 053634

106401
013746
104402
104401

4284 053644
4285 053646
4286 053650
4287 053654
4288 053660
4289 053664
4290 053666
4291 053672
4292 093674

104403
002
104401
013746
013746
104406
104401
000000
000137

2%32

000001

037360
002516

037402

4283 053640 013746 001414

4293 053700

000000

000
037423
002716
001416
001405

010266

MACRO M1113

27-0CT-80 15:53

613

PAGE 142

LSBTTL

BUS HANG ROUTINE

MOV

$TESTN, - (SP)

UBHANG. TYPE
MOV
TYPOC
TYPE

TYPOS
BYTE
TYPE
MOV
MOV
TYPDE
TYPE
HALT
JMP

NOCARE: .WORD

END

.EN

"BARADR
WCR,=(SP)

TSNUMB

2,0
,PASNUM
$PASS2,-(SP)
$PASS, - (SP)
,$(RLF

START1

SEQ 0162
LTYPE:
'DEVICE ADDRESS - °
*PUT DEVICE ADDRESS ON STACK
:60 TYPE IT IN OCTAL
STYPE:
°, TEST NUMBER - '

*PUT TEST NUMBER ON STACK

160 TYPE IT IN OCTAL
‘TYPE 2 DIGITS, LEADING ZEROS SUPRESSED
STYPE:
°, PASS NUMBER - '
:MGVE OVERFLOW NUMBER TO THE STACK
‘PUT PASS NUMBER ON STACK
160 TYPE IT IN EXTENDED DECIMAL
“TYPE A <CRLF>
;WHOA = YOU GOTTA SERIOUSA PROBLEMA, BUDDY!
:JUMP TO RESTART PROGRAM

:LOCATION FOR USE WHENEVER CYCLE BIT OF (SR IS USED. THIS

;SHOULD *ALWAYS* BE THE LAST WORD LOCATION IN THIS DIAGNOSTIC

CIDRLCO-DRT1 GEN NPR INTF(

SYMBOL TABLE

MACRO M1113

27-0(T-80 15:53

ABASE = 172410
ACDW1 = 000000
ACDW2 = 000000
ACPUOP= 000000
ADDR
002646
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000
ADDW13= 000000

AVECT1= 000300
AVECT2= 000000
8
035303
BAR
002520
BARADR 037360
BCOONE 034377
BCFIN
035336
BDFAIL 002666
BDLCR
033612
BDLCRM 035110
BONERR 034307

CARETN= 000015
CAT
= 157777
CATCH
005536
(BITO = 177776
CBITY1 = 177775
(BIT10= 175777
(BIT11= 173777
(BIT12= 167777
(BIT13= 157777
(BIT14= 137777
CBIT15= 077777

AMADR1= 000000

81710 = 002000

CEIR

ADDW14= 000000
ADDW15= 000000
ADDW2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDWS = 000000
ADDW6 = 000000
ADDW? = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000
ADLCHR 034600
ADRERR 034432
AENV = 000000
AENVM = 000000
AFATAL= 000000

0025245
BOR
BOVECT 002542
010466
BEGIN
BEGIN1 011006
BITIST 002710
8I1T0 = 000001
81700 = 000001
BIT01 = 000002
81702 = 000004
BIT03 = 000010
BIT04 = 000020
BI1705 = 000040
81706 = 000100
81707 = 000200
BIT08 = 000400
BIT09 = 001000
BIT1 = 000002

AMADR2= 000000
AMADR3= 000000
AMADR4= 000000
AMAMS 1= 000000
AMANS2= 000000
AMAMS3= 000000
AMANS4= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 070000
AMTYP2= 000000

8IT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
B8IT2 = 000004
BIT3 = 000010
8IT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
8178 = 000400

AMTYP4= 000000
002606
ANPR1
ANSWER 002664
APASS = 000000
APRIOR= 000000
APTCSU= 000040
APTENV= 000001
APTSI2= 000209
APTSPO= 000100
005274
ASIZE
ASWREG= 000000
= 020000
AT
ATESTN= 000000
AUNIT = 000000
AUSWR = 000000

035322
BOARD
002610
BORW
BPINIT 004374
= 000003
BPT
BPTINT 004436
BPTVCT 000014
BPTVEC= 000014
BRVWPC 035472
BRWAIT 002626
040446
BUF f
BUFLEN 002622
BUSERR= 000004
002536
8uT
CAPNTR 042454
CAPSTK 042456

AMTYP3= 000000

8IT9

= 001000

H 13

PAGE 142-1

(BIT2 = 177773
(BIT3 = 177767
(BIT4 = 177757
(BITS = 177737
CBITé = 177677
(BIT7 = 177577
(8118 = 177377
(BIT9 = 176777
(B1513= 057777
ccy
= 177377
CDAB = 171777
COAC = 172777
CpBC = 174777
CDSA = 173777
(ps8 = 175777
cosSC = 176777
¢oST = 170777

= Q77777

= 077777
CER
CFNC = 177761
= 177775
CF1
= 177773
CF2
= 177767
CF3
= 177776
(60
CHARCT 030707
CHKBFF 003520
CHKBUF 002620
CHKCAB 004060
CHK4DR 005104
= 177677
CIE

CKSWR = 104410

CLENUP 004036
= 167777
CMA
CNTLC = 000003
CNTRLC 035073
= 137777
CNX
= 000015
CR
CRLF = 000200
035333
CRLF2
= 177577
CRY
002522
CSR
= 177757
(x6
=%
(x7
= 000400
cy
= 006000
DAB
005000
=
DAC

SEQ 0163
DATCHK 003716
DATCH1 003736
CATCHZ 004014
DATOCK 004106
DATOC1 004126
DATOC2 004170
pBC
= 003000
ODISP = 177570
DDW
002720
DEVADS 004344
DEVICE 035076

DEVMSK
DEVPRI
DH1
CH14
DH16
DH17
DH2
DH202
DH203
DH207
DH210
DH211
DH23
DH26
DH3
DH34
DH4

DH43

OHS
DHS0
DH56
DHS7
DH6
DH60
DH61
DH62
DH63
DHé4
DH6S
DH66

DH?7

002544
036035
050252
050652
050765
051100
050307
052451
052530
052614
052670
052734
051154
051230
050350
051304
050417

051360

050463
051424
051523
051602
050532
051747
052045
052116
052225
052274
052333
052402

050576

DIOMEM 00261
DISPLA 001342
DISPRE 000174
036261
DOCTS
002550
DREG
004452
DRGET
002526
DRINV
002552
DRLEV
002530
DRVS
DR1WOB 036077
DSA = 004000
= 002000
0S8
= 001000
0DSC
= 007000
DST
DSWR = 177570

T
DT14
DT16
D117
D12
01202
07203
DT207
01210
DT211
D123

053044
053154
053172
053210
053052
053516
053532
053550
053564
053576
053224

(1384

053140

D126
D13
D734
DT4
D143
DTS
D150
DT56
D157
DT6
DT60
D161
D162
D163
DT64
D165
D166

053240
053064
053254
053100
053270
053112
053302
053324
053342
053126
053362
053376
053412
053436
053452
053464
053500

002600
EBAR
002576
EBOR
036564
ECELR
002572
ECSR
032472
EDIT
002574
EEIR
= 100000
EIR
EMTVEC= 000030
044740
EM1
045251
EM10
045303
EM11
045346
EM12

EMm13

EMI4
EM15
EM16
EM7
EM2
EM20
EM202
EM21
EM211
EM22
EM23
EM24
EM25
EM26
EM27

045400

045450
v~223/(
045563
045607
044766
045676
050153
045744
050203
046014
046055
046124
046155
046206
0466245

CIDRLCO-DR1 GEN NPR INTF(

SYMBOL TABLE

MACRO M1113

27-0CT-80 15:53

EM3
EM30
EM31
EM32
EM33
EM34
EM3S5
EM36
EM37

045022
046302
046340
046404
046425
046456
046516
046577
066627

F1
= 000002
F2
= 000004
F3
= 000010
GO
= 000001
GOAGIN 025002
GTSWR = 104407
HAKTPM 030326
HEADER 036340
HT
= 000011

NXTTST
N2
=
OFL
OLDPCT1
OLDPC2
OLDPS1
OLDPS2
PASCNT
PASNUM

EM4S

047120

KDPAR2= 172364

PR1

ERCAPT 003126
ERCHOR 034073
ERRCHK 004254
ERRCNT 002714
ERROR = 104000
ERRVEC= 000004
ER200
002274
ESC
= 000033
ESCAPE 034762
034250
ETDEV
002602
EWCR
EXPAND 026154
FIXTBL 003360
FLAG
002652
= 000016
FNC
FNCCNT 002654

MMPS = 000252
MMRO = 177572
MMVECT= 000250
002644
MSG
MUSTED 034770
037170
M
M1A
037307
N
035320
035307
NO
035433
NOBUT
NOCARE 053700
NODATA Q34211
NODVPR 037037
NOMORE 036663
002612
NPR1
= 040000
NX

EM4
EM4LO
3,03
EM42
EMG3
EMLS

045070
046665
046715
046763
047017
047050

EML6
047156
EML?
047233
EMS
045121
EMS0
047250
EMS1
047315
EMS2
047374
EMS3
047435
EM54
047463
EM55
047500
EMS6
047520
EMS7
047556
EM6
045152
EM60
047606
EM61
047645
EM62
047730
EM63
047777
EMES
050037
EM66
050110
EN?
045203
024360
ENDEV
ENDSTK 044736
ENPR1
002604
EOPLOC 002706
EOPRSM 030636
ER
= 100000

1€
= 000100
INBUF
002616
INBUF1 002656
INOOUT 021344
INTA
003546
I0TVEC= 000020

KDPDR2= 172324
KIPAR2= 172344
KIPDR2= 172304
LENCHK 002624
LETNCR 035071
LEVEL
002540
LEVELS 005264
LEVEL3= 000140
LEVEL4= 000200
LEVELS= 000240
LEVEL6= 000300
LEVEL?= 000340
LF
= 000012
LODBUF 003472
LOOP
002662
LRGSTC 002704
MA
= 010000
MAICLR 006266
MAISET 007266
MANSIZ 002670
M80
032130
MBDIAL 036531
MEMGMT 002712
MEPITM 031524
MESSAG 002650

[ 13
PAGE 142-2

0025564
000400
002702
002672
002676
002674
002700
002556
037423

PATRNS 006250
PIRQ = 177772
PIRQVE= 000240
PNTPRI 005630
PROMPT 032144
PRO
= 000000

= 000040

PRZ
= 000100
PR3
= 000140
PR4
= 000200
PR5S
= 000240
PR6
= 000300
PR7
= 000340
PS
= 177776
PSTATE 005606
PSW
= 177776
PTCAPT 003170
PWRVEC= 000024
QTYBRD 002414
RA
= 002416
RBAR
002566
RBDR
002564
RCSR
002560
RDCHR = 104411
RDDEC = 10414
ROLIN = 104412
RDOCT = 104413
RDYCHK 002632
READ
002722
REGADR 002416
REINIT 011206
REIR
002562

RESVEC= 000010
RSTRT
025022
002570
RWCR
= 000200
RY
R6
=1000006
=%000007
R7
SCOPE = 000004
SDADRS 036204
SDRINV 002532
002534
SDRVS
SETTUP 005660
SPACEC 035276
SPACES 035250
SPACES 035253
SPACES 035257
SPACE? 035266

SEQ 0164
STACK =
STAGIN
START
START1
STKIFL
STKLMT=
SVADRS
SWR
SWREG

sWwo
swo0
sw01
sSw02
sw03
sw04

SW05

001300
000210
010272
010266
034020
177774
036150
001340
000176

TST12
TST13
TST14
TST15
TST16
TST17
1S72
TST20
TST21

014270
014454
014640
015030
015262
015520
011442
016116
016522

= 000040

1ST73

011572

= 000001
= 000001
= 000002
= 000004
= 000010
= 000020

sSw06 = 000100
sw0? = 000200
SWw08 = 000400
sw09 = 001000
swl
= 000002
SWw10 = 002000
SWw1il = 004000
SwWw12 = 010000
SWw13 = 020000
Swi4 = 040000
swis = 100000
swg
= 000004
Sw3
= 000010
Swé
= 000020
SWS
= 000040
swé
= 000100
sSw?
= 000200
sw8
= 000400
sSWw9
= 001000
TABINX 002546
TBITVE= 000014
TESLR
030710
TIME
002660
002636
TKB
TKS
002634

TKVEC = 000060
TMOPSW= 000006
TORNCB 035747
TOVECT= 000004
TPB
002642
002640
TPS
TPVEC = 000064
TRAPVE= 000034
TRTVEC= 000014
TSNUMB 037402
TSTCOM 036237
TSTDEV 011020
TSTMM
006134
ST
011244
013650
TST10
014104
TST11

1ST22
TST23
1ST26
TST25
15726
TST27

017036
017334
020072
020374
020664
021142

TST30
021360
TST31
021646
TST32
021776
1ST33
022356
TST34
022662
TST3S5
023244
TST36
023542
TST37
024056
1ST4
012124
TST40 = 024360
TST5
012730
TSTé
013124
1817
013472
TWO
035316
TYPCNF 004630
TYPDE = 104406
TYPDS = 104405
TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
UBHANG 053622
UCAL
035407
= 002456
VA
VCLCHR 034703

VCTADS 005502
VECADR 002456
VECERR 034517
035305
W
WCLEN
0v2630
002516
WCR
XCHKBU 041452
XINBUF 040450
= 000020
X6
= 000040
X7
035312
YES
SAPTHD 001000
SATYC
031552
SATY]1
031526
031534
SATY3
031544
$ATYL

053702
000000
ERRORS DETECTED:

WNOMNNIOMNIMNIMNINOWWNLNO
O OW
—=2O
~NO NEONNNO ===
NS W
~ — o NO S OMNNNSONOO
2 —
NN (V. OO L2ONSEO=2NOO
SN
ONONNY
~N~N o NNNOONO

NN OONNOSFCOWVINON
2O S NOONHOONO

SEQ 0165
$TMP6
$TN
$7PB
$TPFLG
$TPS
$TRAP

$TRAP2

$TRP
$TRPAD
$TSTM
S$STSTNM
STTYIN

$STYPD
STYPDE
$TYPDS
STYPE
STYPEC
STYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT

SUNITM
$USWR
$SVECTI

SMTYP4
$NULL
SNUMS
SNWTST=
$OCNT
025622
$OMODE

025624

000
001

( 220 PAGES)
56272 W0 RDS
( 78 PAGES)
DYNAMIC MEMORY:
20346 WORDS
ELAPSED TIME: 00:12:58

J 13

PAGE 142-3
[=le lolelelolelelelolalalolelelwlele

026522
000000
001000
027546

27-0CT-80 15:53

(5. 3V ] WO WVINO W N NN SN S N NN N = NS
ANV N =2 AN N N =8 NN 2 AN =2 O ON AN WO OO NN oo

[eleolelelololelalalelolololole
o o)

$GTSWR
$HD
=
$HIBTS
$HIOCT

$GE 142

. ABS.

O
OOWO OMNINOOMNINNINININVO
prSurSu SurSureF SoF ST
g M
QY X, "9 S

SERTTL
SESCAP
SETABL
SETEND
SFATAL
SFFLG
SFILLC
$FILLS
$GDADR
$GDDAT

SERRTY

-t

$DEVCT
$DEVM
$DOAGN
$OTBL
SENDAD
SENDCT
SENDMG
SENULL
SENV
SENVM
$EOP
SEOPCT
SERFLG
SERMAX
SERROR
S$ERRPC
SERRTB

—

SAUTOB 001334
001464
$BASE
$BDADR 001322
$8DDAT
001326
$BELL
001400
$COWY
001470
$COMW2
001472
SCHARC 025374
SCKSWR 026422
$CMTAG 001300
$CM3 = 000000
= 000007
$CM4
SCNTLG 027202
S$CNTLU 027175
$CPUOP 001436
SCRLF
001405
$OBLK
026142
001474
$O0OW0
001476
$O0W1
$OOW10 001520
$00W11
001522
$00W12 001524
$OOW13 001526
$00W14 001530
$OOW15 001532
$00W2
001500
$00W3
001502
001504
$O00W4
$0DW5
001506
$ODW6
001510
$00W7
001512
001514
$ODW8
001516
$O0WY

MACRO M1113

[=lel=d [=4
oOO0O (=]

CZORLCO-DRTY1 GEN NPR INTF(
SYMBOL TABLE

VIRTUAL MEMORY USED:

CZDRLC.BIN,CZDRLC.SEQ/~SP/NL:TOC=CZDRLC.MLB/ML,CZDRLC.P1

001370
001372

001422
001010

001434
001460
$VECT2 001462
$XTSTR
030120
$$GET4= 000000
$$5w08= 000049
SOFILL
025623
037444
.SAV
001000
. $X