Digital PDFs

AH-E780D-MC

April 1982

194 pages

Original

10MB

view download

OCR Version

8.3MB

view download

Document:	CZDRLD0 DR11-W DR11 GEN NPR INTFC APR 1982 bw
Order Number:	AH-E780D-MC
Revision:	000
Pages:	194
Original Filename:	CZDRLD0__DR11-W__DR11_GEN_NPR_INTFC__AH-E780D-MC__APR_1982_bw.pdf

OCR Text

DR11 GEN N#R iNTFc
:
DRII;H ~ i"r“CZPSLDO
7

e
:
Q?CEES?DOECI stz
o [[TR[THED

CZDRLDO-DR11 GEN NPR INTF(
;

MACRO M1113

02-NOV-81 16:08
.REM

2
5

8
PAGE 2

SEQUENCE

IDENTIFICATION

PRODUCT CODE:

AC-E779D-MC

PRODUCT NAME:

C.DRLDO DR11

DATE RELEASED:

OCTOBER, 1981

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

DAN P.

GEN NPR INTF(

MILLEVILLE

18
19

20
21
2%
14

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.

24
25

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

32
33

DIGITAL
DEC

AFFILIATED COMPANIES.

1977,

1982 BY DIGITAL ZQUIPMENT CORPORATION

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

CZDRLDO-DR11

GEN NPR INTF(C

MACRO M1113

(02-NOV-81 16:08

SEQUENCE

PAGE 3
HISTORY

REV

DATE

NOTE

A
B8
C
D

1977
1980
1080
1981

INITIAL RELEASE
CORRECTION OF CODING ERRORS
11705 PROBLEM AND ENDLESS LOOP PROBLEM FIXED
11/10 PROBLEM - FAILS TEST & MISTAKENLY
CORRECTION OF CODING PROBLEMS WHEN RUN
ON 11/34°'S.
ADDITION OF CODE TO CHECK THE POWER

(ALL REV_'D' FIXES ARE
HIGHLIGHTED BY ‘' ;DPMOU1’
IN THE COMMENT FIELD)

>
>

MONITOR BIT OF
IF ONE EXISTS.

THE CPU ERROR REGISTER,

CHANGED AUTOSIZE ROUTINE TO PROMPT USER

FOR DEVICE ADDRESS IF NON-OPTION MANUFACTURING ENVIRONMENT (IF OPYION MANF.,

SIZING OCCURS AS BEFORE), AND (IF MODULE
FAILS TO INTERRUPT)

PRIORITY.

ITS VECTCR AND

MACRO M1113

02-NOV-81

16:08

PAGE 4

TABLE OF

CONTENTS

ABSTRACT
REQUIREMENTS

2.1
P .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 SOF TWARE SWITCH REGISTER
PROGRAM AND/OR OPERATOR ACTION

ERROR REPORTING
OPERATING MODES

7.1

MANUAL
7.1.1
7.1.2
7.1.3
7.1.4

NNN
L] L] .
S wro

CZDRLDO~DR11 GEN NPR INTF(

AUTO MODE
RESTART AFTER PREVIOUS RUN
TESTING UNDER APT

MODE
EDIT FUNCTION
LIST FUNCTION
BURST CALIBRATION FUNCTION
RUN FUNCTION

MISCELLANEOUS

8.1
8.2

POWER FAIL
END-OF-PASS MESSAGE SFECIAL FEATURE

EXECUTION TIMES

SEQUENCE

CZDRLDO-DR11 GEN NPR INTFC
gg

MACRO M1113
10.0

100

106
107
108
109
110
M

123
124
125

ERCAPT
FIXTBL
LODBUF
CHKBFF
INTA

10.12

BPINIT

10.15
10.16
10.17
10.18
10.19
10.20

ASIZE
CATCH
PSTATE
PNTPRI
SETTUP
TSTMM

10.13
10.14

114
115
116
117
118
};8

11.0

READ

10.2
10.3
10.4
10.5
10.6

10.7
10.8
10.9
10.10
10.11

112
113

16:08

E
PAGE 5

SUBROUTINE DESCRIPTIONS

10.1

101
102
103
104
105

}g}

02-NOV-81

DATCHK
CLENUP
CHKCAB
DATO(K
ERRCHK

DRGET
TYPCNF

DATA STACKS

11.1

11.2
11.3

PATRNS

EXPATO
EXPAT1

SEQUENCE

16:08

PAGE 6

SEQUENCE

ABSTRACT
THIS DIAGNOSTIC PROGRAM IS CAPABLE OF TESTING THE DR11-W
NPR GENERAL INTERFACE IN DR11-W OR DR11-B MODE.

IT HAS THE FOLLOWING FEATURES:

e«

1.0

02-NOV-81

NN
—

MACRO M1113

“

d
D
D
d
d
b nd o
—d e

WINWN
NN NN NN
OV
W= OV~

CZDRLDO-DR11 GEN NPR INTFC

APT11/XXDP COMPATIBLE
MULTIPLE BOARD TESTING USING TABLE CREATED BY USER
BURST DATA LATE CALIPRATION

INDEPENDENT

'LOGIC WRAP-AROUND' AND

'CABLE WRAP-AROUND'

TESTING

WD =2 O 00NN NS NN =2 OV 00O NS AN = OO0 NON NS WA =2 OV 00~

MACRO M1113
2.0

02-NOV-81

2.1

SEQUENCE

EQUIPMENT
1.

PDP11

LOOP BACK CABLE
DIAGNOSTIC)

2.
3.

2.2

STANDARD COMPUTER

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

(NEEDED

TO FULLY CHECK THE MODULE WITH THIS

HARDWARE SWITCH SETTINGS
THE ADDRESS SELECTION SWITCH,

ADDRESS BITS:

EXAMPLE:

E120,

DEVICE ADDRESS 172610,

IS SET UP AS BELOW:

SWITCHES 1,

OFF, AND ALL OTHERS SHOULD BE ON.

THE E105 SWITCHPACK:

THIS SWITCHPACK MUST BE

- OFF

- ON FOR -W MODE,

OFF

IN THE FOLLOWING

FOR -8 MODE

SINGLE SWITCH NEAR THE E105 SWITCHPACK:

2 CYCLE MODE - SWITCH HANDLE TOWARDS PACK E105
N CYCLE MODE - SWITCH HANDLE

E15,

IS SET UP AS BELOW:

VECTOR BITS:

EXAMPLE:

2.3

TOWARDS E94

THE VECTOR SELECTION SWITCH,

VECTOR ADDRESS 300, SWITCHES 6 & 7 SHOULD BE

OFF,

AND ALL OTHERS SHOULD BE ON.

STORAGE
THE PROGRAM USES APPROX.

56000 WORDS OF MEMORY

5 & 10 SHOULD BE

—

POSITIONS TO RUN THIS DIAGNOSTIC:

= O V00NNV
WA

G
PAGE 7

WSS NN

D
b
D cd nd
b
D
D
D e
)
)
b md

d el =D

d e

) =D

d cad

)

) e

D e

C0O00O00AOO0000 NN NN NNNNNYNOOC OO OO

16:08

REQUIREMENTS

NN NNNN NN

D e

)

D e

)

D nd

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113
3.0

02-NOV-81

16:08

PAGE 8

SEQUENCE

TESTING MODE
3.1

DEFINITION

NO
O O O O 0 0 0O 0 0000 000

e o

CZDRLDO-DR11 GEN NPR INTF(C

THE DR11-W DIAGNOSTIC ACCGMPLISHES DEVICE REGISTER BIT TESTS,

S G

INTERNAL ‘LOGIC'' WRAP-ARQUND TESTS, AND WITH THE BCO6-R WRAP-

S W

AROUND CABLE IN J1 AND J2, PROVIDES EXTERNAL ‘‘CABLE'' WRAP-AROUND
TESTS.
IN ORDER TO FULLY CHECK THE MODULE, THE DIAGNOSTIC MUST
BE RUN WITH AND WITHOUT THE WRAPAROUND CABLE IN PLACE, RESTARTING

?£E20g25§5 ;0? g?CH TIME, OR EDITING TO CHANGE THE CABLE MODE
THERE ARE ONLY TWO LEGAL MODES OF

199

200
58;

1.
2.

%82

THIS DIAGNOSTIC:

DR11 WITH NO CABLE(S) IN USER SLOTS.
DR11 WITH WRAP-AROUND CABLE FROM J1 TO J2.

THIS DIAGNOSTIC IS NOT MEANT TO BE RUN IN THE FOLLOWING MODES:

205
589
583

OPERATION OF

1.
2.
3.2

DR11
DR11

CONNECTED TO ANOTHER DR11.
CONNECTED TO A USER DzVICE.

IMPLEMENTATION

210
21
212

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

216
217
g;g

VERIFY THAT THE ''SIZING'' OCCURRED CORRECTLY BY OBSERVING THE
QUTPUT OF THE PROGRAM WHEN STARTING AT 200. (REFER TO SECTION
5.1 FOR EXAMPLE)

220
221
222

IN MANUAL MODE (STARTING ADDRESS = 204), THE USER CAN FORCE
UNIFORM TESTING PARAMETERS FOR ALL MODULES THROUGH USE OF THE
EDIT FUNCTION (REFER TO SECTION 7.1.1).

213
214
215

AND J2 CONNECTORS ON THE DR11-W UNDER TEST.
THE PRESENCE OF
THIS CABLE IS ''SIZED'' FOR AUTOMATICALLY FOR EACH BOARD WHEN
THE DIAGNOSTIC IS STARTED AT ADDPESS 200.
THE USER «MUST«

CZDRLDO~DR11 GEN NPR INTF(

223
%gg
226
227
228
229

MACRO M1113

4.0

(02-NOV-81

16:08

[
PAGE 9

SEQUENCE ~

LOAD AND START PROCEDURE
1.
2.
3.

LOAD PROGRAM INTO MEMORY.
LOAD STARTING ADDRESS 200, 204 OR 210.
RESPECTIVELY)
PRESS START.

(SEE SECTS. 7.1, 7.2, 7.3

CZDRLDO-DR11T

GEN NPR INTFC

MACRO M1113

02-NOV-81

16:08

1
J
PAGE 10

5.0

SWITCH REGISTER

5.1

OPTIONS

SEQUENCE

SWITCH

OCTAL

FUNCTION

Sw15=1

100000

HALT ON ERROR
THIS WILL CAUSE THE PROCESSOR TO HALT AT THE
NEXT ERROR.

SWi1é=1

040000

LOOP ON TEST
THIS WILL CAUSE THE PROCESSOR
TEST IT IS THEN EXECUTING.

SW13=1

020000

INHIBIT ERROR TYPEGUTS
THIS WILL

Sw12=1

TO LOOP ON THE

010000

CAUSE ERROR TYPEOUTS

TO BE

INHIBITED.

100% AUTOSIZE MODE
THIS

TO BE USED BY OPTION MANUFACTURING ONLY.

BECAUSE OF THE LARGE ADDRESSING WINDOW, OTHER
OPTIONS HAVE BEEN FOUND THAT GIVE THE AUTOSIZER
THE IMPRESSION A DR11 IS WHERE IT IS NOT.
THIS
BIT SET WILL BYPASS THE ROUTINE PROMPTING THE
USER FOR THE DR11 ADDRESSES.

SWw11=1

004000

TEST NUMBER TRACE

ENABLING

THIS ENABLES THE PRINTING OF
THE BEGINNING OF tACH TEST:

THE FOLLOWING AT

T # XX
THIS CAN BE USED WHEN AN UNEXPECTED TRAP OCCURS

IN A TEST, BUT LOOPING ON THAT
NO ERROR(S).

SW10=1

002000

TEST RESULTS IN

BELL ON ERRCR
THIS FUNCTION CAUSES THE TERMINAL BELL TO SOUND
WHEN AN ERROR OCCURS.
THIS CAN BE USED IN CONJUNCTION WITH LOOP~ON-TEST AND INHIBIT-ERRORTYPEOUTS TO SEE IF A LOOSE CONNECTION MAY BE

CAUSING THE ERROR.

SW09=1

001000

LOOP ON ERROR
THIS FUNCTION WILL CAUSE LOOPING ON ERRGCR.
IT
CAN BE USED IN CONJUNCTION WITH INHIBIT-ERRORTYPEQUTS WHEN USING A SCOPE TO FIND A FAULTY

COMPONENT
.

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

(02-NOV-81
Sw08=1

16:08

PAGE 11

SEQUENCE

LOOP OM TEST IN SWR<6:0>

000400

THIS FUNCTION CAUSES

THE CPU TO JUMP TO THE

TEST IN BITS <6:0> AND EXECUTE THAT TEST UNCONDITIONALY.
CHANGE THE SWITCH REGISTER TO EXIT.
TO CREATE A TIGHTER LOOP ON THAT PARTICULAR

TEST,

SET LOOP-ON-TEST (40000)

THE TEST

SW07=1

000200

IS EXECUTING.

IN THE SWR ONCE

INHIBIT MULTIPLE ERROR TYFEOUTS
ON ERROR CALLS TN LOOPS WHERE MULTIPLE ERRORS
ARE POSSIBLE, THIS FUNCTION INHIBITS ANY ADDIgigflgtEDATA THAT MAY PRINT IN THAT LOOP.
MULTIPLE TYPEOUTS ENABLED:

CERROR MESSAGE]
[DATA HEADER]

XXXXXXN
OO
XOOOC

Ll Vele L NTa AV, F YU S

A NN N N N NN N NN

NNt
b e =P b b el D

OO
XXXXXX

322

XXX
XXX
XXXXXX

XXX
XXXXXX

XXXAXX
XXXXXX
XXX
XXXXXX
XXXXXX

XXXXXX
XXXXXX
XXXXXX

XXXXXX
XXXXXX

>>>>>>NOTE <<«

A MAXIMUM OF 17 (OCTAL) DATA LINES WILL
PRINT.
1F THERE ARE MORE, A MESSAGE WILL
PRINT AS FOLLOWS:
THERE ARE

STILL MCRE ERRORS, BUT WILL NOT BE PRINTED.

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

TYPEOUTS DISABLED:

LERROR MESSAGE]
[DATA HEADER]

XXXXXX

(NO MORE DATA WILL PRINT) THE TOTAL NUMBER
OF ERRORS WILL STILL BE TOTALED AND PRINTED
AT THE EOP OR EOD.

CZDRLDO-DR11 GEN NPR INTF(
g%g
329
330
3N
332
ggz

§§2

MACRO M1113

L_1
PAGE 12

02-NOV-81 16:08
5.2

SEQUENCE

SOFTWARE SWITCH REGISTER
IF THE HARDWARE SWITCH REGISTER DOES_NOT EXIST, OR
IF ONE DOES AND IT CONTAINS °'=1' (177777) THEN THE
SOF TWARE SWITCH REGISTER (LOCATION 176) IS USED,
WHICH ALLOWS THE USER THE SAME SWITCH OPTIONS AS THE

HARDWARE SWITCH REGISTER.

5.3

337
338

LOADING THE SOFTWARE SWITCH REGISTER

THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOf TWARE
SWITCH REGISTER (LNCATION 176) FROM THE TTY.
THIS IS ACCOM-

%28

PLISHED AS FOLLOWS:

341

347

THE MACHINE WILL TYPE:

%g?

AFTER THE

342
343
344
%22

gzg

352
353
354

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

IN THE DIAGNOSTIC MAY CLEAR THE CHARACTER BEFORE THE
CHARACTER IS RECOGNIZED.
ONCE INPUT IS RECOGNIZED, THIS
ALLOWS THE TTy TO ENTER DATA INTO LOCATION 176 AT THE END
OF A TEST.
SWR=XXXXXX NEW=
(XXXXXX IS THE OCTAL
CONTENTS OF THE SOFTWARE SWITCH REGISTER)

355

'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

%g?

NOT BE CHANGED.

358

%28

%g}

5.4

IF A CONTROL U <*U> IS DEPRESSED,

TO STEP 2.

THE PROGRAM WILL GO BACK

PROGRAM AND/OR OPERATOR ACTION

363
364
365
366
367
368
369
370

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN
IS 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,
LOOP-ON-ERROR AND INHIBIT PRINTOUTS.
[IF THERE IS MORE
THAN ONE ERROR CALLED IN A TEST, AND YOU WISH TO LOOP ON

272
373
374

CAUSING THE PREVIOUS ERROR(S) BEFORE YOU CAN LOOP GN THAT
ERROR.
NOP'ING THE PREVIOUS ERRORS WILL PRODUCE UNPREDICTABLE RESULTS FOR ANY SUBSEQUENT ERRORS IN THE TEST.

OTHER THAN THE

1ST ERROR,

YCU MUST CORRECT THE

CONDITION

CZDRLDO-DR11

GEN NPR INTF(

MACRO M1113
6.0

02-NOV-81

16:08

PAGE 13

SEQUENCE

ERROR REPORTING
EACH TEST WILL 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 ALL ERRORS FOR THAT PARTICULAR MODULE.

CIDRLDC~DR11 GEN NPR INTF(

MACRO M1113
7.0

(02-NOV-81 16:08

PAGE 14

SEQUENCE

OPERATING MODE

7.1

MANUAL MODE

(STARTING ADDRESS = 204)

DEFINED AS NON-AUTOMATIC USE OF
THIS MODE IS INTENDED FOR USE
NOT AVAILABLE.

THE DIAGNOSTIC.

IN MANUFACTURING WHEN APT

IN MANUAL MODE, ALL DR11-w HARDWARE MODULES *MUST+BE«(ONFIGURED*

*AS*FOLLOWS*:

> W/B, PRIORITY LEVEL,
*IN*ALL*MODULES~.

2/N CYCLE AND CABLE

STATES SET

IDENTICAL

> ALL DEVICE ADDRESSES MUST BE SET IN A SERIES SPACED 10 LOCATIONS

APART, STARTING WITH THE ADDRESS INPUTED TO THE PROMPT °'STARTING
DEVICE ADDRESS XXXXXX :'.
(ALL MODULES MUST BE ADDRESSED
WITHIN THE LEGAL ADDRESS RANGE OF 171000 TO 177000

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

THE MODULE wWwITH THE

b ed e

OO
~NO NS W

ADDRESS, ETC.

EaF S P W

LOWEST DEVICE ADDRESS MUST ALSO HAVE

THE

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

BOARD #

0
1
2
3

FOR EXAMPLE:

DEVICE ADDRESS

VECTOR ADDRESS

172410
172420
172430
172440

300
310
320
330

ETC.

ONLY UNDER MANUAL MODE DOES THE DIAGNOSTIC OF ER °'BURST
DATA LATE' CALIBRATION.
AFTER LOADING PROGRAM, DEPOSITING
SA 204, AND PRESSING START, THE PROGRAM TYPES THE FOLLOWING:
MULTIPLE BOARD DIALOGUE

ENTER COMMAND (CEJIDIT, CLJIST, [BJURST CALIBRATION, [RJUN):
THE PROGRAM WILL ALLOW ONLY 1 CHARACTER
PRINTING A <CRLF> WHEN THE (HARACTER [S

INPUT, AUTOMATICALLY
INPUTED.

CZDRLDO-DR11 GEN NPR INTF(
2%3

MACRO M1113

(02-NOV-81 16:08
7.1.1

PAGE 15

SEQUENCE

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

431
(32
633
434

*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 A ~ CHANGE ANY
VALUES PRESENT OR CHANGED. TO RETURN TO
£ PREVIOUS

2%;

'EDIT' RESPONDS FIRST BY PRINTING:

2%2

228

441
442
443
22g
229

448
449
450
451
452
222
222

457
458
459
460
461
22%

22?
466
467
228

2;?

472
473
2;?

2;9
478
zgg

2%}
483

484
485

PROMPT,

TYPE <ES(>.

# 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:
STARTING DEVICE ADDRESS

XXXXXX :

THE USER SHOULD RESPOND WITH THE LOWEST DEVICE ADDRESS
IN THE SERIES. PROGRAM ACCEPTS A MAXIMUM OF 6 OCTAL
DIGITS BETWEEN 171000 ANC 177000. 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:
STARTING VECTOR ADDRESS

XXX :

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 QUT OF
RANGE, OR AN ILLEGAL CHARACTER WAS INPUTED. ENTER <(R>
IF PRESENT VALUE IS OK. NEXT:

DR11-W OR B (W=0) CURRENT STATE = X :
PROGRAM ACCEPTS EITHER A 0 OR 1, REPEATING THE PROMPT
IF ANY OTHER CHARACTER IS INPUTED. ENTER <CR> [F
PRESENT VALUE IS OK.

DEVICE PRIORITY PRESENT LEVEL = X :

PROGRAM ACCEPTS 1 CHARACTER BETWEEN O AND 7, REPEATING
THE PROMPT IF ANOTHER CHARACTER IS INPUTED. ENTER <(CR>
IF PRESENT VAIUE IS OK. NEXT:

2 OR N CYCLE BURST (2 CY=0) PRESENT STATE = X :
PROGRAM ACCEPTS A O OR 1, REPEATING THE PROMPT IF ANY OTHER
CHARACTER IS INPUTED. ENTER <CR> IF PRESENT VALUE IS OK. NEXT:

DO CABLE TESTS (NO=0) PRESENT STATE = X :
PROGRAM ACCEPTS A O OR 1, REPEATING THE PROMPT IF ANY
OTHER CHARACTER IS INPUTED.
ENTER <CR> IF PRESENT
VALUE IS OK.
THEN THE COMMAND PROMPT IS REPRINTED.

CZDRLDO-DR11 GEN NPR INTFC
2%9
2%8

490

235

232

MACRO M1113

(02-NOV-81

16:08
7.1.2

c 2
PAGE 16

SEQUENCE

WHEN [L] IS ENTERED,
THE DIAGNOSTIC

# OF

THE PROGRAM ENTERS THE LIST FUNCTION

THEN PRINTS THE FOLLOWING:

START

BOARDS

REGADR

VECADR

XXXXXX

XXX

w-8

P-LEV

2-N

CABLE

CYCLE

495
496
497
498

AS PREVIOUSLY MENTIONED, ALL BOARDS MUST BE SPACED 10
ADDRESS LOCATIONS APART STARTING WITH THE °'REGADR'
VALUE ABOVE, AND VECTORS SPACED 10 ADDRESS LOCATIONS
APART STARTING WITH THE 'VECADR' VALUE ABOVE.
THE

500

STATES WILL BE THE SAME FOR ALL MODULES.

499

EXPECTED wW-B,

PRIORITY LEVEL,

2-N CYCLE AND CABLE

TEST

TESTS

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

501
28%

02-NOV-81 16:08
7.1.3

504
505
506

SEQUENCE

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...
TO CALIBRATE NEXT BOARD, TYPE ANY CHARACTER

ggg

DEVICE #

509
510
M
512
513
514
515
516
517
518
519
520
521
522
523
524
g%g

O UNDER CALIBRATION

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 MUDE OPERATION.
THE PROGRAM SOF TWARE ROUTINE
SETS THE CYCLE BIT IN THE CSR OF THE DR11, A SHORT
DELAY IS EXECUTED, AND THEN THE CYCLE BIT 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 OF
THE CYCLE BIT.
IF A CHARACTER WAS INPUTED, IT CHECKS
FOR THE NEXT BOARD, AND IF ANY, SETS UP THE ADDRESSES
FOR THAT MODULE, THEN PRINTS THE FOLLOWING:

gsg

DEVICE #

529
530
g%;

X UNDER CALIBRATION

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

g%z

BURST CALIBRATION TOMPLETE

535
536
537
538
539
gz?
542
543
544
545
546

D_2
PAGE 17

IS ISSUED, AND THE MBD PROMPT IS THEN RETURNED FOR
ANOTHER COMMAND.
TO ACCOMPLISH THE BURST DATA LATE
CALIBRATION, ATTACH A SCOPE PROBE TO E83~7 ON THE
DR11-W (REFER TO PRINT SET M8716-0-1).
A POSITIVE
PULSE WILL BE OBSERVED.
THE PULSE SHOULD BE SET
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 HAVE NOT BEEN
SET UP.
IF THEY ARE, THE REGISTER AND VECTOR TABLES
ARE FILLED, AND NORMAL START IS EXECUTED.

CZDRLDO-DR11 GEN NPR INTF(
gzg

MACRO M1113

02-NOV-8! 16:08
7.2

E 2
PAGE 18

AUTO-SIZE MODE

SEQUENCE
(STARTING ADDRESS = 200)

549
550
gg%

THIS MODE IS THE NORMAL FIELD SERVICE MODE.
IT SUPPORTS
STANDALONE OPERATION AS WELL AS SCRIPT OPERATION UNDER ACT11
OR XXDP (CHAIN).

553
ggg

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

556
557
558
559
560

561
562
563
564
565
566
567
568
569
g;?

THE PROGRAM WILL TEST THE BOARDS RECOGNIZED BY THE AUTOSIZE
ROUTINE.
THE AUTOSIZE ROUTINE WILL PROMPT THE USER FOR THE
STARTING ADDRESSES OF ALL BOARD(S) TO TEST.
IF THIS IS NOT
DESIRED, RAISE BIT 9 (1000) IN THE SWR *ONLY*IF *THERE*ARE*
*NO*OTHER*NON=-DR11*0PTIONS*THAT*LOULD*BE*M]
STAKENL Y *AUTO~*
*SIZED*IN*THE*160010+T0%172770*ADDRESS*RANGE*.
THE DIAGNOSTIC «WILL* FAIL IF IT FINDS A NON-DR11 OPTION AND STARTS
TO TEST IT AS SUCH.
IF THE BOARD WHOS ADDRESS YOU JUST
INPUTED FAILS TO INTERRUPT, THE AUTOSIZE ROUTINE WILL
PROMPT YOU FOR THE VECTOR AND PRIORITY.
ALL OTHER INFORMATION ON THE BOARD IS AUTO-SIZED.,
THE ONLY LEGAL INTERRUPT
VECTORS THE DR11 CAN BE SET UP FOR ARE 300-774, ALL IN
STEPS OF 4.
EACH BOARD CAN HAVE A VECTOR ANYWHERE IN THE
STATED RANGES WITH NO RESTRICTIONS, ALLOWING COMPLETE FLEXIBILITY IN THE TEST SEQUENCE.

572
573
574
575
576
577
578
ggg

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 150010, OR THAT MULTIPLE BOARDS
ARE ASSIGNED CONSECUTIVE DEVICE ADDRESSES.
WHEN OPERATING
IN AUTO-SIZE MODE, THE USER SHOULD VERIFY THE ‘'‘SIZED''

581
582
583
584

AUTO-SIZJNG WILL DETERMINE THE INTERRUPT PRIORITY, INTERRUPT VEC1uR (ONLY IF THE BOARD INTERRUPTS PROPERLY),
W/B,
2/N CYCLE, AND CABLE STATES OF EACH BOARD, INDEPENDENT OF
THE STATES OF OTHER BOARDS.

CONF IGURATION BY KNOWING HOW THE BOARDS ARE SET UP AND

COMPARING WITH THE AUTOSIZE OUTPUT WHEN STARTING AT 200.

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

02-NOV-81

F
2
PAGE 19

16:08
B.

SEQUENCE

LSSEFOLLOUING WILL NOT BE OFFERED TO THE USER IN AUTOSIZE
1.

BURST DATA LATE CALIBRATION

MULTIPLE BOARD DIALOGUE

THE DIAGNOSTIC WILL PRINT ONE OF

THE FOLLOWING:

DO YOU WISH TO RELOAD THE TABLE

(Y OR <CR>)

1I)
[F

INPUT DEVICE

X STARTING ADDRESS (<CR> IF NO MORE)

THE DIAGNOSTIC HAS BEEM RUN AND THE TABLE HAS BEEN LOADED,

IT WILL PRINT PROMPT I).

IF YOU ANSWER 'Y',

IT WILL PRINT

PROMPT 11), ALLOWING INPUT OF ALL DR11 DEVICE ADDRESSES.
IF
THE DIAGNOSTIC HAS NOT BEEN RUN, IT WILL BYPASS PRINTING I)
AND PROMPT I1) WILL APPEAR.
AFTER INPUTING A <CR> TO THE II)
PROMPT,

THE

FOLLOWING WILL

PRINT:

DIAGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE
DR11-W(S) IT HAS FOUND.
USER *MUST* DETERMINE ACCURACY

BOARD#
X

REGADR
XXXXXX

VECADR
XXX

W/B
X

P-LEV
X

2-N CY
X

CABLE
X

DATA WILL CONTINUE TO PRINT UNTIL DATA FOR ALL MODULES HAS BEEN

PRINTED.
IF YOU INPUTED OTHER THAN A 'Y' TO THE I) PROMPT, THE
S??YSNQEE$AGE WILL NOT PRINT.
THE FOLLOWING WILL PRINT UNCON-

(*X) INHIBITS EOP'S, (“Y) FOR ERROR SUMMARY
UNIBUS HANG?
RESTART AT ADDRESS XXXXXX

CZDRLDO DR11 GEN NPR INTFC LOGIC TEST

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

02-NOV-81

16:08

6 2
PAGE 20

THE CONTROL X

(“X)

SEQUENCE
FEATURE BYPASSES THE SECTIONS THAT PRINT THE

END~OF =PASS AND END-OF=-DEVICE MESSAGES.
THIS IS TO IMPROVE THE
NUMBER OF PASSES EXECUTED OVER ANY PERIOD OF TIME, AS WELL AS
MAKE OVERNIGHT OR WEEKEND RUNS USE NO PAPER (IF NO ERRORS).
ERROR TYPEOUTS ARE NOT DISABLED IN THIS MODE.
WHEN AN ERROR
OCCURS, THE END-OF=-PASS (EOP) WILL PRINT FOR THAT PASS, AND, IF
MORE THAN ONE MODULE IS BEING TESTED, AN END-OF-DEVICE (EOD) AS
WELL AS END-OF=-PASS WILL PRINT SO YOU WILL KNOW WHICH DEVICE
AND PASS WAS EXECUTING WHEN THE ERROR OCCURED.
IN ORDER TO
OBTAIN A PROGRESS REPORT, HIT 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 BIT.
WHEN THE CHARACTER IS RECOGNIZED, AN EOP, AND IF MORE THAN ONE
MODULE, AN EOD MESSAGE WILL PRINT GIVING THE USER A PROGRESS
REPORT.
TO DISABLE THIS FEATURE, REPEATEDLY ENTER (“X) AGAIN

UNTIL THE CPU RECOGNIZES YOUR INPLT.

CZORLDO-DR11 GEN NPR INTFC
637
638
639
22?

22%
gzé
646
647
648
649
gg?
652
653
654
655
656

ggg

MACRO M1113

0Z2-NOV-81 16:08

H 2
PAGE 21

SEQUENCE

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 DIAGNOSTIC, OR SINCE THE LAST ERROR REPORT,
THE FOLLOWING IS PRINTED:

NO ERROR TOTALS TO REPORT
IF THERE WERE CRRORS, THE FOLLOWING IS PRINTED:
SUMMATION OF ERRORS SINCE BEGINNING OR LAST REPORT
BOARD # PASS # ERRTTL
X
X
X
X
X
X
X
X
X (ETC.)
THE INFORMATION IS STORED ON A STACK THAT WILL HOLD UP TO 150
(DECIMAL) DEVICE-PASS ERROR DATA LINES ABOVE.
IF THE LIMIT IS
REACHED, DIAGNOSTIC WILL CONTINUE, BUT FURTHER DATA WILL NOT BE
STORED.
THE DATA ACCUMULATED IS NOT WRITTEN OVER, BUT WHEN (“Y)
IS ENTERED, THE FOLLOWING IS PRINTED JUST BEFORE THE ‘SUMMATION...'

STATEMENT ABOVE:

STACK IS FULL - DATA MAY HAVE BEEN LOST

661

WHEN THE DATA IS PRINTED,

664
665
666

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:

gg%

ggg

233
671
672

THE STACK IS REINITIALIZED AND WILL

START STORING UP TO ANOTHER 150 ERROR DATA LINES.

DEVICE ADDRESS = XXXXXX, TEST NUMBER = XXXXXX, PASS NUMBER = XXXXXX
CPU WILL HALT.
HITTING CONTINUE WILL CAUSE THE PROGRAM TO
RESTART AS THOUGH YOU HAD STARTED A1 200.

CZDRLDO-DR11 GEN NPR INTFC

2;2

675
g;g

678

ggg

681
682
683
684
685

MACRO M1113

02-NOV-81 16:08

7.3

I 2
PAGE 22

RESTARTING PROGRAM IN MEMORY (STARTING ADDRESS = 210)

SEQUENCE

WHENEVER THE PROGRAM IS HALTED, ALL HISTORY OF PREVIOUS TESTING
IS SAVED.
IT WILL REMAIN INTACT UNTIL:
1.
2.

ANOTHER PROGRAM IS LOADED INTO MEMORY

THE USER RE~EDITS THE TABLE

TO RESTART THE PROGRAM, ENTER SA 210 AND START.
THIS START
PRECLUDES ANY SETUP AND NEGATES THE START MESSAGE OBTAINED
WHEN STARTING AT 200.
DO NOT START AT THIS LOCATION IF THE
DIAGNOSTIC HAS NOT BEEN PREVIOUSLY ''STARTED'' AT EITHER 200
OR 204.

CZDRLDO-DR11 GEN NPR INTF(
ggg

688
689

28?

MACRO M1113
7.4

02-NOV-81

J_ 2
PAGE 23

16:08

TESTING UNDER APT

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:

696
697
698

ENVIRONMENT MODE

699
700

000 - DUMP MODE
001 - SCRIPT MODE (APT MONITORS

DIAGNOSTIC)

(SENVM): 000 - LET DIAGNOSTIC AUTO-SIZE CONFIGURATOR
AND TEST ACCORDINGLY (*NOTE+: STARTING
WITH REV ‘D' AND ABOVE, RUNNING DIAG
IN THIS MODE REQUIRES USER TO INPUT
THE STARTING ADDRESSES, AS IS WITH

;83

STANDALONE MODE).

703

200 - DIAGNOSTIC MUST USE CONFIGURA-

704
;82

TION SPECIFIED BY APT
$BASE, $DEVM, $DDWX)

;8;

VECTOR ADDRESS

(SVECT1):

300

;?8

DEVICE ADDRESS

(S$BASE):

172410

711
712

DEVICE MAP

(SDEVM):

;}2

715
716
;}g

XXXXXX = EACH Sci 8IT INDICATES THAT
BOARD IS PRESENT AND SHOULD

BE TESTED. EXAMPLES:

719

;%g

(SVECT1,

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

BIT 15 = BOARD #15

DEVICE PESCRIPTOR WORDS:

.
(DEVICE ADR = 172600, VEC ADR = 470)

XXXXXX - THERE IS 1 DESCRIPTOR WORD

UNTIL THE CPU

FOR EACH DEVICE:

727

$DDWO IS FOR DEVICE 0

730

EACH DESCRIPTOR WORD MUST BE

733
734
735
736
737
738

BIT 0 - DR11-W OR -B MODE
(W=0, B8=1)
BIT 1 - 2/N CYCLE
(0=2 CY, 1=N CY)
BIT 2 - CABLE TESTS
(0=NO., 1=YES)

;gg

;g;

739
740
741

VEC ADR = 300)
VEC ADR = 310)
VEC ADR = 320)

)

720
;g;

;52

(AUTOMATED PRODUCT TESTING)

692
693

23?

SEQUENCE

$ODW1

IS FOR DEVICE 1, ETC.

SEf UP AS FOLLOWS:

BIT 5 \
BIT 6
> DEVICE PRIORITY
BIT 7 /

CZDRLDO-DR11 GEN NPR INTFC
;z%
;2?
746
47
;28
;g?

MACRO M1113
8.0

02-NOV-81

16:08

K 2
PAGE 24

SEQUENCE

MISCELLANEOUS
8.1

POWER FAIL
IF A POWER FAJLURE 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

;g%

THE DIAGNOSIC WILL

THEN RESTART AT ADDRESS 210.

754
755
756
757
758

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, HIT CONTINUE, AND THE REMAINING
PROCEDURE IS THE SAME AS ABOVE.

CZDRLDO-DR11 GEN NPR INTF(C
;gg

MACRO M1113

(02-NOV-81
8.2

16:08

L 2
PAGE 25

SEQUENCE

END-OF ~PASS MESSAGE

761
;g%

THE EOP WILL PRINT ONCE EVERY 20 SECONDS, APPROXIMATELY (17
SECONDS ON AN 11/44), AS FOLLOWS WITH NO ERRORS ON THAT PASS:

;gg

END PASS # XXXXXX

766
767
768
769

THE EOP WILL PRINT AFTER 64 DEVICES HAVE BEEN TESTED.
[F THERE
IS ONLY 1 MODULE, THE EOP WILL PRINT AFTER 64 PASSES.
WITH
16 MODULES, THE ECP WILL PRINT AFTER ONLY & PASSES.
THE EOP WILL PRINT AS FOLLOWS WITH SOME ERRORS WHEN TESTING 1

;;9

DEVICE:

;;%

END PASS # XXXXXX

774
775
776
;;;

THE EOP WILL PRINT THE SAME AS WITH NO ERRORS ON ANY PART:CULAR
PASS WHEN TESTING MORE THAN ONE DEVICE AND ONE OR MORE DEVICES
HAS FAILED, SINCE °‘TOTAL ERRORS' IS MEANINGLESS AND WILL MORE

779
780
781

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

THAN LIKELY BE

TOTAL ERRORS THIS PASS ALL MODULE(S)

XXXXXX

INCORRECT.

—

[e—

—_—

——

(ZDRLDC-DR11 GEN NPR INTF(
782

784

785
786

MACRO M1113
9.0

(02-NOV-81 16:08

PAGE 26

SEQUENCE

EXECUTION TIME

ON A PDP11/44:
IN ALL MODES: APPROXIMATELY 64 DEVICE PASSES IN 17 SECONDS, ALL MODES.

(ZDRLDC-DR11 GEN NPR INTF(
787

MACRO Mi1'3
10.0

788
789

;g?

(02-NOv-81 16:08

10.1

THE READ SUB&OUYINE IS USED IN THE EDIT ROUTINE TO INPUT UP TO

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 LCCATION °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' IS TG BE LOADED WITH THE LARGEST ASCII NUMBER DIGIT
ACCEPTABLE FOR THIS NUMBER, [.E. 7 OR 9 (FOR OCTAL OR DECIMAL
INPUT RESPECTIVELY). ANY CHARACTER OUTSIDE ASCII '0' OR ‘7/9°
IS TREATED AS A NON-NUMERIC, TRIGGERING AN AUTOMATIC <CRLF>

g?g
D
D
d ad —ud =D
b ed

AND EXIT.

10.°2

L ele -RNTo NV, PoyV, [p8 by

—

READ

6 DIGITS IN OCTAL, 2 DIGITS IN DECIMAL, OR A SINGLE NONNUMER]C CHARACTER.
R4 [S USED AS THE LOCATION TO HOLD THE
NUMBER IN OCTAL, AND IS CLEARED FOR THAT PURPOSE AT THc START
OF THE SUBROUTINE.
R3 IS TO BE PRELOADED WITH THE NUMBER OF
DIGITS EXPECTED, SINCE A <CRLF> IS PRINTED WHEN TME LIMIT [S
REACHED.
ENTERING A <CRLF> BEFORE THE LIMIT IS ACCEPTABLE, AS
IT WILL BE INTERPRETED AS A NON-NUMERIC CHARACTER AND EXIT.

800
801
802
803
804
805
806
807
808
00 00 0o 0o 0o 0o 00 00 0o

SEQUENCE

SUBROUTINE ABSTRACT

792

793
794
795
796
797
798
799

N_2

PAGE 27

ERCAPT
THIS SUBROUTINE SAVES THE UNIT NUMBER, PASS NUMBER AND TOTAL

ERRORS FOR THAT DEVICE/PASS WHENEVER [T ENCOUNTERED ERRORS.
THIS ROUTINE SAVES DATA FOR 150 (DECIMAL)

PASSES.

THE STA(CK

SHOULD BECOME FULL, DATA STARTING WITH THE 151ST PASS CONTAINING ERRORS

10.3

820

821
822
gsz

IS LOST.

FIXTBL

THIS SUBROUTINE FILLS THE 17 OCTAL LOCATIONS STARTING AT
'REGADR® AND 'VECADR' FROM THE STARTING VALUES ALREADY LOADED
IN THE FIRST LOCATIONS IN STEPS OF 10 FOR EACH TABLE.

ggg

10.4

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 IS DETERMINED BY THE CONTENTS OF BUFLEN.

1 8

827
828
829

LODBUF

CZDRLDO-DR11 GEN NPR INTF(C

gg?

MACRO M1113

02-NOV-81

10.5

832
833
834
835
836

10.6

CHKBFF

INTA

IS ACCEPTABLE, THE PC IS UPDATED, AND THE RETURN fROM THE SUBROUTINE IS AFTER THE ERROR CALL.

gg%

10.7

ggz

10.8

854
855
856
857
858
859
860
gg;

DATCHK

THIS ROUTINE IS ENTERED TO CHECK INBUF AFTER A MAINTENANCE MODE
OPERATION.
THE CONTENTS OF INBUF AND THE CONTENTS OF CHKBUF
ARE CHECKED TO SEE THAT THEY ARE THE SAME.
THE NUMBER OF (COMPARISONS MADE IS 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 RETUPN
AFTER THE ERROR CALL AND JSR RETURN.

865
866
ggg

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 INTERRUPT VECTORS.

10.9

871
g;g

876
877
878
879
880
881
882
883
884
885

SEQUENCE

THE IE BIT IS CLEARED IN THE CSR THEN THE CSR IS CHECKED FCR
THE ABSENCE OF THE ERROR BIT AND THE PRESENCE OF READY.
THE
WCR IS CHECKED TO SEE THAT IT IS EQUAL TO ZERU.
THE CORRECT
CONTENTS OF THE BAR ARE CALCULATED AND CHECKED.
THE PROGRAM
WILL FAIL TO UPDATE THE PC RETURN ADDRESS BY 2 IF ERROR 1S SET,
READY IS CLEAR, READY AND ERROR ARE CLEAR OF THE CSR, WCR IS
NOT ZERO OR THE BAR CONTENTS IS NOT ZERO.
THIS WILL CALL THE
ERROR THAT IS JUST AFTER THE JSR CALL IN THE TEST.
[IF ALL DATA

849
gg?

g;g

ALTERNATING DATI-DATO SEQUENCE OF OPERATION.

841
842
843
844
845
846
847
848

ggg

PAGE 28

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

g%g

gzg

16:08

CHKCAB

THIS ROUTINE IS USED IN VARIQUS TESTS TO ALTER THE EXPECTED
DATA IF THE WRAR-AROUND CABLE IS OUT.
10.10

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 TO
CALL THE FIRST ERROR AFTER THE JSR CALL, WHERE A JSR RETURNS
CONTROL BACK TO THE SUBROUTINE FOR FURTHER CHECKING.
AN ADDITIONAL CHECK IS MADE ON BUFLEN+2 TO INSURE THAT NOT TOO MANY
WORDS WERE TRANSFERRED.
IF THEY WERE, THE PC RETURN ADDRESS IS
ALTERED SO THAT THE SECOND ERROR AFTER THE JSR IS CALLED.
IF
NO ERRORS, RETURN IS ALTERED TO JUST AFTER THE SECOND ERROR CALL.

CZORLDO-DR11 GEN NPR INTFC

ggg

MACRO M1113

(02-NOV-81

10.11

888
889
890
gg;

16:08

JSR CALL

ggg

10.13

895
ggg

IN THE

TEST WILL BE CALLED.

THIS SUBROUTINE RELOADS THE °'.+2'' AND 'BPT'' INTO THE UNUSED
LOCATIONS BETWEEN 4 AND 776.

900
901

DRGET

THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR1? WHOS ADDRESS
WAS INPUTED AND LOADS THE ACCUMULATED DATA INTO THE DEVICE
DESCRIPTOR WORD FOR THAT BOARD.

885
10.14

906
ggg

911
912
913
914
915
916
917
918
919
920

SEQUENCE

THIS ROUTINE CLEARS IE AND UPDATES THE PC FOR RETURN AFTER THE
ERROR IN THE TEST IF ERROR IS CLEAR.
IF SET, RETURN IS EXECU~
TED WITHOUT UPDATING THE PC RETURN SO THE ERROR CALL AFTER THE

10.12 BPINIT

3?8

ERRCHK

ggz

ggg

PAGE 29

TYPCNF
THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS THAT THE ASIZE
SUBROUTINE SIZED FOR ON THE UNIBUS.

10.15

ASIZE

THIS ROUTINE SEMI-AUTOSIZES THE BOARD CONFIGURATION (DUE TO THE
WIDE ADDRESS WINDOW, REV ‘D' WAS MODIFIED TO PROMPT USER FOR
STARTING ADDRESS(ES) OF THE MODULE(S) UNDER TEST.
AUTOSIZE
ROUTINE DOES GET CABLE STATUS, INTERRUPT PRIORITY, ETC. ONCE
ADDRESS IS INPUTED.
IF BOARD FAILS TO INTERRUPT, DIAGNOSTIC
THEN PROMPTS USER FOR THE VECTOR AND PRIORITY.
EVERYTHING ELSE
IS AUTO-SIZED) AND PRINTS THE CONFIGURATION IF THE TABLE WAS
NEWLY CREATED THIS RUN.
IF THE TABLE ALREADY EXISTS, THE
ROUTINE ASKS THE USER IF A NEW TABLE IS TO BE CREATED.
IF NOT,

THE ROUTINE IS BYPASSED.

CZDRLDO-DR11 GEN NPR INTF(
g%;

MACRO M1113

02-NOV-81 16:08
10.16

923
924
925
926
g%g

10.17

944
945
946
947
948
949
950
951
952
953
954
955

956

PSTATE

THIS ROUTINE PRINTS THE STATE OF THE BIT IN THE DDW THAT WAS
PRELOADED IN LOCATION ‘BITTST'.
10.18

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

10.19

32?
gz%

CATCH

OF THE TRAP.

%%9
8%8

SEQUENCE

THE STACK IS CLEANED 4 TIMES BEFORE THE ERROR CALL, AND
RESTORED TWICE AFTER THE ERROR CALL FOR RETURNING TO THE SOURCE

931
g%%
ggg

THIS ROUTINE REPORTS UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS THROUGH THE BREAK=-POINT-TRAP LOADED IN LOCATIONS 4-776.

927

928

PAGE 30

SETTUP
THIS SUBROUTINE INITIALIZES THE TRAP AND INTERRUPT VECTORS.

10.20

TSTMM

THIS SUBROUTINE CHECKS FOR EXISTENCE OF MEMORY MANAGEMENT AND
IF IT EXISTS, CHECKS FOR THE ERROR CONDITION OF NO MEMORY LOCATION, BUT NO ERROR AND NEX BIT SETS.
IF MEMORY MANAGEMENT IS
NOT THERE, AN EXIT UPDATING THE RETURN ADDRESS BY 2 IS DONE.
IF THERE, THE XBA16 AND XBA17 BITS OF THE EXPECTED DATA ARE
CHECKED.
IF BOTH ZERO, AN EXIT UPDATING THE RETURN ADDRESS BY
2 IS DONE.
IF EITHER OR BNTH ARE SET, THE UPPE? BYTE OF 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 ERRCR BITS IN THE EXPECTED TO
BE SET FOR ANOTHER CHECK.

CZDRLDO-DR11 GEN NPR INTFC
957
958
999

MACRO M1113
11.0

02-NOV-81

11.1

973
974
975
976

SEQUENCE

PATANS

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

966
9%7
968
%6
2l

PAGE 31

DATA STACK

961
3
e

16:08

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 CSR SHOULD
CONTAIN AFTER THE BIT COMBINATION IS WRITTEN TO THE CSR.
1.3

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

CZDRLDO-DR11 GEN NPR INTFC
977
978

MACRO M1113

(02-NOV-81 16:08

9
NLIST

MC,MD,CND

F.3
PAGE 32

SEQUENCE

CZDRLDO-DR11 GEN NPR INTF(
3032

MACRO M1113

02-NOV-81 16:08

PAGE 41

SEQUENCE

.TITLE CZDRLDO-DR11 GEN NPR INTF(
:*COPYRIGHT (C) 1981
;*DIGITAL EQUIPMENT CORP.
; *MAYNARD, MASS. 01754
* ¥

' *PROGRAM BY DAN MILLEVILLE
- %

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
s *PACKAGE
*

(MAINDEC-11-DZQAC-C5), JAN,

1981.

OPERATIONAL SWITCH SETTINGS

(02-NOV-81 16:08

.SBTTL
< x

SWITCH
15
—ad
e

B
B
N

SEQUENCE

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

100% AUTOSIZE
BELL ON ERROR

LOOP ON ERROR

LOOP ON TEST [N SWR<6:0>
INHIBIT MULTIPLE ERROR TYPEOUTS

A
B
i
o

THE °*'TEST NUMBER TRACE ENABLING'' 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 FROM ANYWHERE IN
THE TEST. BY ENABLING IT, YOU CAN SEE THE LAST TEST ENTERED BEFORE

3043
3044

ix
i

KRR

USE

3038

3039
3040
3041
3042

LR B

3037

PAGE 42

OPERATIONAL SWITCH SETTINGS

BE BE B

3034

MACRO M1113

OOMNIIN
S

CIDRLDO-DR11 GEN NPR INTF(

ARAN AN AR AR RN RANA RN A RN NN RN RA AN RANA RN RARRN

>>>>>>3>>>>>>>NDTE <<<LLLLLLLLLLLLL

THE OUT-OF=-SEQUENCE JUMPING OCCURED.
THIS IS USEFUL IF YOU ENCOUNTER
AN UNEXPECTED TRAP FROM A PARTICULAR TEST, BUT DISCOVER THAT THE TEST
RAN SUCCESSFULLY WHEN LOOPED.

%822

3047

:'ttttttt*tfitQtttttt*tt'tttttttititfittt*tttttitttttttfitttttttt.tt

CZDRLDO-DR11 GEN NPR INTF(

BASIC DEFINITIONS

MACRO M1113

(02-NOV-81 16:08

.SBTTL

3049

001300
104000

000004

STACK=

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

RO=

000000

PRO=
PR1=
PR2=
PR3=

100000

BASIC DEFINITIONS

1300

ERROR=EMT
SCOPE=10T

s *MISCELLANEOUS DEFINITION°

HT=

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

SEQUENCE

;*INITIAL ADDRESS OF THE STACK POINTER ### 1300 we«

000011
000012
000015
000200
177776
177776
177774
177772
177570
177570

000040
000100
000140
000200
000240
000300
000340

1.3
PAGE 43

LF=
CR=
CRLF=
PS=

12
15
200
;gs7;g

STKLMT= 177774
PIRQ=
177772
177570
DSWR=

)

;CODc FIR HORIZONTAL TAB

::CODE FOR LINE FEED
..CODE FOR CARRIAGE RETURN
:CODE FOR CARRIAGE RETURN-LINE FEED
: :PROCESSOR STATUS WORD
:sSTACK LIMIT REGISTER

; ;PROGRAM INTERRUPT REQUEST REGISTER

..HARDUARE SWITCH REGISTER
DDISP= 177570
:HARDWARE DISPLAY REGISTER
: *GENERAL PURPOSE REGISTER DEF INITIONS

R1=

R2=
R3=
Ré4=
R5=
R6=
R7=
SP=
PC=

%0
21

x3
x4
x5
26
X7
%6
X7

sGENERAL REGISTER

..GENERAL REGISTER

; ;GENERAL REGISTER

; ;GENERAL REGISTER
: ;GENERAL REGISTER
s - GENERAL REGISTER
; ;GENERAL REGISTER
: ; GENERAL REGISTER
::STACK POINTER
: : PROGRAM COUNTER

:*PRIORITY LEVEL DEFINITIONS
0
;;PRIORITY LEVEL 0

PR4=

40
100
140
200
240
300
340

;:PRIORITY
;;PRIORITY
;;PRIORITY
::PRIORITY
;:PRIORITY
..PRIORITY
;PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

PRS=
PR6=
PR7=
-%"'SWITCH REGISTER'' SWITCH DEF!NITIONS

Sw15="

SWi4=
swi13=
swi2=
SWil=
SW10=
Sw09=
Sw08=
sSwo7=
sWwo6=
SW05=
SWo4=
swo3=
SWw02=
Swi1=
SWw00=

100000

40000
20000
10000
4000
2000
1000
400
200
100
4G
20
10
4
2
1
SW9=SW09
Sw8=5w08

SW7=5W07
SW6=5wW06

1
2
3
&
5
6
7

CZDRLDO~DR11 GEN NPR INTFC
BASIC DEFINITIONS

000040
(00020
000010
000004
V00002
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

000004
000010
000014
000014
000014
000020
000024
000030

(02-NOV-81 16:08

BIT01=
BIT00=

SEQUENCE

2
1
BIT9=BIT09
8178=BIT08
8IT7=BIT07
B1T6=BIT06
BI1T5=BIT0S

BIT4=BIT04
8173=BIT03
BI172=BIT02
BIT1=8IT01
BI1T0=BIT00D
;*BASIC ''CPU'' TRAP VECTOR ADDRESSES

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
IOTVEC= 20
PWRVEC= 24

;:TIME OUT AND OTHER ERRORS
s sRESERVED AND JLLEGAL INSTRUCTIONS
ST BIT
;s TRACE TRAP
: ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (I0T) =«SCOPEw=
:;POWER FAIL

TRAPVEC=34
TKVEC=
60
TPVEC=
64

::"'TRAP'' TRAP
;:TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR

EMTVEC= 30

BUSERR

000300

J
3
PAGE 43-1

SW5=SW05S
SW&=SW04
SW3=Sw03
SW2=Sw0?2
SW1=Sw01
SW0=SW00
:*DATA BIT DEFINITIONS (BITOO 10 BIT1S)
BIT15=
100000
BIT14= 40000
BIT13= 20000
8IT12=
10000
BIT11= 4000
BIT10= 2000
81709=
1000
BIT08= 400
BIT07= 200
BIT06=
100
BIT0S= 40
BITO04= 20
BIT03=
10
BIT02= 4

PIRQVE(C=240

3050

3052

MACRO M1113

ABASE
AVECT1

=ERRVE(

=172410
=300

:sEMULATOR TRAP (EMT)

=«ERRORxt

: ;PROGRAM INTERRUPT REQUEST VECTOR

;BASE DEVICE ADDRESS
;BASE VECTOR ADDRESS

005000
003000
007000

010000

020000
040000
100000
100000

X NN
Y D=

000001
000002
000004
000010
000016
000020
000040
000100
000200
000400
000400
001000
002000
004000
006000

.SBTTL

K 3
PAGE 44

DEFINITIONS OF

SEQUENCE

THE CSR BITS

R 2222022022002
0R
R
R
] L23233322822002422
dR 22222/

;C?CNDCHDC“DZ <X <MNONZ
WA = O
mW)Ewmmm
DM
IPDO

16:08

.60

=20

FNCTI
JFNCT2
JFNCTS
JFNCT: € FNCT2 & FNCT3
JXBA1

=200

JREADY

=2000

;DSTAT

=6000
=5000
=3000

:DSTAT
;DSTAT
,;DSTAT

=20000
=460000

ATTN
NEX

=2
=4
=10

=16

=40
=100

=400
=400
=1000
=4000

=7000
=10000

JXBA17
J1E

:CYCLE
;2/N Bl
;DSTAT
,DSTAT

;DSTAT
;MAINT

=100000 EIR
=100000 ;ERROR

CSR BITS

02-NOV-81

Qe eeee

THE

mmMmEZ
3>
0 = 3 —4
P+

OEFINITIONS OF

MACRO M1113

CZDRLDO-DR11 GEN NPR INTF(

7777

077777

CAT
CNX
CEIR
CER

SEQUENCE

(SR BIT COMPLIMENT DEFINITIONS

0002222000

002

=177776 ;COMPLIMENT

=177775 ;COMPLIMENT

77773 ;COMPLIMENT
77767 ;COMPLIMENT
77761 ;COMPLIMENT

77757
77737
77677
77577
77377
76777
75777
73777
71777
72777
74777
70777
67777
S7777
37777
7777
7777

;COMPL IMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
. COMPLIMENT
;COMPLIMENT
;COMPL IMENT
;COMPLIMENT
;COMPLIMENT
;COMPL IMENT
;COMPLIMENT
. COMPLIMENT
;COMPLIMENT

2220202

R 2222222222222 2222222

60
FNCT
FNCT2
FNCT3
FNCT1 € FNCT2 & FNCT3
XBA16
XBA17
IE

READY

CYCLE
DSTAT
DSTAT
DSTAT
DSTAT
DSTAT
DSTAT
DSTAT
MAINT
ATTN
NEX
EIR
ERROR

CDAC
(DB(
cDST

PAGE 45

>»O>>>»DM

oM D=2
X NN

wn < <M NOZWN—=0O

o IOIOIOIOIIICION

(DSB

777

O =
~NWW VION NN NNNNNNWN
NN
NOHN2DWWNONN
NN
NNNNN ~
NN
NNNNN ~
NN
NNNNN ~

377

EEA22AR22

16:08

eceeoee

.SBTTL

177776
177775
177773
177767
177761
177757

02-NOV-81

CSR BIT COMPLIMENT DEFINITIONS

MACRO M1113

[an}

GEN NPR INTF(

[

CZDRLDO-DR11

CZDRLDO=DR11 GEN NPR INTF(

COMPLEMENTS OF BIT DEFINITIONS

3102

MACRO M1113

.SBTTL

3103

177776
177775
177773

(BITO
(BIT1
(BIT2

3108

177757

(BIT4

177767

3109

177737

177577

3113

176777

3110
3112

3114

315
3¢

317

318
3119
3120

16:08

ns3
PAGE 46

SEQUENCE

COMPLEMENTS OF BIT DEFINITIONS

R
T e
L LY R R Y

3104
3105
3106

3107

(02-NOV-81

(BIT3

(BITS

=177776 ;COMPLIMENT OF BITO
=177775 ;COMPLIMENT OF BIT1
=177773 .(OMPLIMENT OF BIT?

=177767 .COMPLIMENT OF BIT3

=177757 ;COMPLIMENT OF BIT4

=177737 .COMPLIMENT OF BITS

127677

(BIT6

=177677 .COMPLIMENT OF BIT6

177377

(BIT8

=177377 :COMPLIMENT OF BIT8

175777

173777
167777

152777

137777
07,777
057777

(BIT7

(BIT9

(BIT10

(BIT11
(BIT12
(BIT13

(BIT14
(BIT1S
(B1513

=177577 ;COMPLIMENT OF

8117

=176777 .COMPLIMENT OF BIT9
=175777

.COMPLIMENT OF

BIT10

2173777 ;COMPLIMENT OF BITI?
=167777 ;(OMPLIMENT OF BIT12
=157777 :COMPLIMENT OF BIT13

=137777 ;COMPLIMENT OF BIT14
=77777
;COMPLIMENT OF BIT15
=57777
;COMPLIMENT OF BIT15 & BIT

CIDRLDO-DR1Y GEN NPR INTE(

MACRO M1113

PRIORITY LEVELS AND OTHER DEF INITIONS

3122

02-NOV-81 16:08
SBTTL

000140
000200
000240
000300
000340
000033
000003
000015
177572
172300
172304
172324
172340
172344
172364
000250
000252

LEVELZ
LEVELG
LEVELS
LEVEL6
LEVEL?
ESC
CNTLC
CARETN
MMRO
KIPDRO
KIPDR2
KDPDR2
KJPARQ
KIPARZ2
KDPAR2
MMVECT
MMP S

=140
=200
=240
=300
=340
=33
=3
=15
=177572
=172300
=172304
=172324
=172340
=172344
=172364
=250
=252

3142

000003

BPT

3143

000004
000006

025622

PRIORITY LEVELS AND OTHER DEF INITIONS

R Rl L T
L
R T

3123
3124
3125
3126
3127
3128
3129
3130
311N
3132
3133
3134
3135
3136
3137
3138
3139

3140
3141

N_3

PAGE 47

TOVECT
TMOPSW

=4
=6

TST4O=ENDEV

JBRANCH TO TEST 40 - BRANCH TG ENDEV (THERE IS NO TEST 40)

SEQUENCE

CZDRLDO-DR11 GEN

"R INTFC

MACRO M1113

PRIORITY LEVELS AND OTHER DEFINITIONS
31 l.l.

(02-NOV-81 16:08

SEQUENCE

M _'ttttttttttttttt'ttttttttttttttttt*ttttt'tttt.ttttttt'tttttttttt

3145
314%

;% ALL UNUSED LOCATIONS FROM 4-776 WILL CONTAIN A ‘'.+2,8PT'' SEQUENCE
;% TO CATCH ILLEGAL TRAPS & INTERRUPTS TO THE °'CATCH' LOCATION

31?7

;* O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

3148
3149

3150 000014
3151 000016
3153
3154 000042
3155
3156 000174
3157 000176
31 58

. ;ttfitttttttttttttttttttttt'ttttttttttttttttttttttttttttttttttttt
=14
;THE BPT TRAP VECTOR POINTS TO THE

000014
006466
000340
000042
000000
000174
000000
000000

BPTVCT:

DISPRE:
SWREG:

.WORD
.WORD
.=42
.WORD
=174
.WORD
.WORD

CATCH
LEVEL?

ILLEGAL TRAP HANDLER ''CATCH''

JCLEAR THIS LOCATION (FOR APT MONITOR STARTING ADDRESS)

0
O

'-‘-ttttttttttttttttttttttt*ttttttttttfitttttttttttttttttttttttttt*t

3159
%}2?

:PROGRAM STARTING LOCATIONS

3162
3163 000200
3164 000204
3165 000210
3166 000214
3167 000220
3168
3169
3170
3171
3172
3173
3174

B 4
PAGE 48

000224
000230
000234
000240
000246
000252

000137
000137
005037
005037
005037
005037
005037
005037
012737
012706
000137
001000

011420
034230
001416
002716
001422
001420
(001414
002706
044652
011424
012356

:';ttittttttttttttttttttt*ttttttttttt*tttttttttttttttttttttttttttt
JMP
START1
:NORMAL START
JMP
MBD
JENTER MULTIPLE BOAKD DIALOQUE
STAGIN: CLR
$PASS
;CLEAR $PASS
CLR
$PASS2
:CLEAR $PASS?
CLR
SUNIT
;CLEAR SUNIT

044650

CLR
CLR
CLR
MOV
MOV
JMP
.=1000

SDEVCT
$TESTN
EOPLOC
#CAPSTK,CAPNTR
#START ,SP
BEGINI

:CLEAR SDEVCT
;CLEAR STESTN
:CLEAR EOPLOC
;RESET THE CAPTURE POINTER
<RESET THE STACK POINTERK
;JUMP TO BEGIN1 FOR RESTART WITHOUT HEADER PRINTING

CZDRLDO-DR11 GEN NPR INTF(
ACT11

HOOKS

MACRO M1113

02-NOV-81 16:08

SBTTL

3175

ACT11 HOOKS

000046

000052
3176

001000
000046
026324
000052
000000
001000

RN R AR

C 4
PAGE 49

TN RN RN

HOOKS REQUIRED BY ACT11
sszzc

AR RN RN RN NEANOANRRNRRAR

;c1)SET LOC.46 TO ADDRESS OF SENDAD IN .

‘WORD

S=$SVPC
APT PARAMETER BLOCK

2822223233232 2233323332320 3232328

::2)SET LOC.52 TO ZERO
*“RESTORE PC
3223222222302 R2232

8022232338

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
R

000024
000044

001000
000024
000200
000044
001000
001000

:SAVE PC

SE?BAD

(SBTT!

SEQUENCE

.$X=.

.=24
200
=44

22232¢80002221]
T

;,SAVE CURRENT LOCATION

;oSET POWER FAIL TO POINT TO START OF PROGRAM
.,FOR APT START UP
sPOINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ..POINT TO APT HEADER BLOCK
T

=.8$X

¢RESET LOCATION COUNTER
e

SETUP 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:
$MBADR:

.WORD
.WORL

0
SMAIL

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;.ADDRESS OF APT MAILBOX (BITS 0-15)

$PASTM:
SUNITA:

.WORD
WORD

1
O

,.RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
cADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

$TSTM:

.WORD

;;RUN TIM OF LONGEST TEST

SETEND-SMAIL/2 ;;LENGTH MAILBOX~E
TABLE (WORDS)

MACRO M1113

CZDRLDO-DR11 GEN NPR INTF(
COMMON TAGS

02-NOV-81 16:08

.SBTTL

3178

PAGE 52

SEQUENCE

COMMON TAGS

';tttttt.t'ttttttttfit*tt*t'tttittttt*tttttttitttttttttitt'tttttti

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

$TSTNM:
S$ERFLG:
SICNT:

$LPADR:
$LPERR:
$ERTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
$8DDAT:

.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
.WORD
SWR:
DISPLAY: .WORD

001
000000
000000
000000
000000
000000

$TKS:

$TK8:
$TPS:
$TPB:

$NULL:
$FILLS:
$FILLC:
$TPFLG:

001357

.REPT
$TMPO:
$TMP1:
$TMP2:

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

$TMP3:

$TMP4:
$TMPS:
$TMP6:

377

000

377

b =
b
b
—

ASNOO

:START OF COMMON TAGS

;s CONTAINS THE TEST NUMBER
.- CONTAINS ERROR FLAG
;o CONTAINS SUBTEST ITERATION COUNT
;. CONTAINS SCOPE LOOP ADDRESS
;,CONTAINS SCOPE RETURN FOR ERRORS
;o CONTAINS TOTAL ERRORS DETECTED
;cCONTAINS ITEM CONTROL BYTE
;: CONTAINS MAX. ERRORS PER TEST
;s CONTAINS PC OF LAST ERROR INSTRUCTION
;. CONTAINS ADDRESS OF °'GOOD' DATA
;;CONTAINS ADDRESS OF 'BAD' DATA
;;CONTAINS 'GOOD' DATA
;. CONTAINS °‘BAD' DATA
; JRESERVED=--NOT TO BE USED
::AUTOMATIC MODE INDICATOR
2o INTERRUPT MODE INDICATOR

:;ADDRESS OF SWITCH REGISTER
:;ADDRESS OF DISPLAY REGISTER
;;TTY KBD STATUS

177560

177562
177564
177566
.BYTE
.BYTE
.BYTE
.BYTE

7
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

$SESCAPE:0

;;TTY KBD BUFFER
::TTY PRINTER STATUS REG.

ADDRESS

;:TTY PRINTER BUFFER REG. ADDRESS
2 :CONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED

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

;sUSER DEF INED
;;USER DEF INED
2 sUSER DEFINED
:sUSER DEF INED
:sUSER DEF INED
:-USER DEF INED
s cUSER DEF INED
;;ESCAPE ON ERROR ADDRESS
550/><377><377> ::CODE FOR BELL
¢ QUESTION MARK
<15>
;- CARRIAGE RETURN
<12>
c.LINE FEED

$BELL:
$QUES:
$CRLF:
$LF:

.ASCI2
.ASCIlI
.ASCII
.ASCI2

SBTTL

APT MAILBOX-ETABLE

EVEN
SMAJL
:
$MSGTY:
S$FATAL:
$TESTN:
$PASS:

.WORD
.WORD
.WORD
.WORD

:;ttt*ttttttttttttttitttttttttttfitttt*tttitttttittttttttttttttttt
S

000000
000000
000000
000000

.WORD
_.BYTE
.BYTE
.WORD

[elelalelelelaleleleliJolalelolelelse
s

$CNTAG:

000000
000
000
000000
000000
000000
000000
000

O—=MNO

001300

OOO0OO0O0O0

001300
001300
001302
001303
001304
001306
001310
001312

s*USED IN TgSOPROGRAM.

13222322338323238223332332302382323823
2832232382280 23232223232232833002823083 2]

AMSGTY
AFATAL
ATESTN
APASS

:;APT MAILBOX
s ;MESSAGE TYPE CODE

.. FATAL ERROR NUMBER

: . TEST NUMBER
;s PASS COUNT

APT MA]ILBOX~ETABLE

000000
000000
000
000
000000
000000
000000

02-NOV-81

$DEVCT:
SUNIT:
$MSGAD:
$MSGLG:
$SETABLE

.WORD
.WORD
.WORD
.WORD

".BYTE

"BYTE

G: .WORD
$CPUOP:

.WORD
.WORD

16:08
ADEVCT
AUNIT

AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

E_4
PAGE 52-1

;sAPT ENVIRONMENT TABLE

;s ;ENVIRONMENT BYTE
; ENVIRONMENT MODE BITS
ssAPT SWITCH REGISTER
2 sUSER SWITCHES
::CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE

11/06=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,Q=10

BIT 10=REAL TIME CLOCK

S1:
TYP1:

» » »3X

000
000

S et GMHGH et
n

001440
001441

.BYTE
.BYTE

AMAMS1
AMTYP1

000000

. %

001442

$MADR1:

.WORD

001451
001452
001454

001455
001456
001460
001462
001464

001532
001534

000
000
000000
000
000
000000
000
000
000000
000300
000000
172410
000000
000000
000000
(90900
000000
000000
000000
000000
000000

000000

$MAMS?:

BYTE

$MADR3:

.WORD

AMADR3

:
SMTYP4
:
$MADRS
SVECT:
$SVECT?2:
$BASE:
$DEVM:
$COW1:
$CDW2:
$DDWO:
$DDW1:
$DDW2:

$ODW3:

$DDW4:
$DDWS:
$DDW6:

$DDW?7:
$DDW8:
$DDW9:
$DDOW10:
$DDWI1:
$DDW12:
$ODW13:
$DDWI4:
$DDW1S:
SETEND:
MEXIT

.BYTE

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

;sHIGH ADDRESS,.M.S. BYTE
s sMEM. TYPE ,BLK#1

MEM.TYPE BYTE

~--

(MIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003

;:HIGH ADDRESS.M.S. BYTE

SMTYP3:

.WORD

9=FLOATING POINT PROCESSOR
8=MEMORY MANAGEMENT

;sHIGH ADDRESS .,BLKA1

AMAMS?2
AMTYP2
AMADR2
AMAMS
3

SMTYP2:
$MADRZ:

BIT
BIT

AMADR1

001444
001445
001446
001450

SEQUENCE

;sDEVILE COUNT
2:1/0 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH

w, v,

001420
001422
001424
001426
001430
001430
001431
001432
001434
r01436

MACRO M1113

g:nl»nn

CZDRLDO-DR11 GEN NPR INTFC

AMTYP3

AMAMS
4
AMTYP4
AMADR4
AVECT1
AVECT?2
ABASE
ADEVM

ACDW]
ACDW2
ADDWO
ADDW1
ADDW2
ADDW3
ADDW4
ADDW5

ADDW6

ADDW?
ADDW8
ADDW9
ADDW10
ADDW11
ADDW12
ADDW13
ADDW14
ADDW15

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ''TYPE'®' ABOVE

::MEM.TYPE ,BLK#?2

s sMEM.LAST ADDRESS.,BLKA?2
. M.S.BYTE
;sHIGH ADDRESS

s sMEM.TYPE ,BLKA3

s sMEM.LAST ADDRESS.BLKA3
. M.S.BYTE
2 sHIGH ADDRESS

s sMEM,.TYPE ,BLKAS

;:MEM.LAST ADDRESS.BLK#4
;s INTERRUPT VECTORA1,BUS PRIORITY#
> s INTERRUPT VECTOR#2BUS PRIORITY#?2
s sBASE ADDRESS OF EQUIPMENT UNDER TEST
:;DEVICE MAP
2 sCONTROLLER DESCRIPTION WORDA1
2 ;CONTROLLER DESCRIPTION WORDA?
;;DEVICE DESCRIPTOR WORD#0
:;DEVICE DESCRIPTOR WORDA1
;;DEVICE DESCRIPTOR WORDA?2
2:DEVICE DESCRIPTOR WORD#3
2 :DEVICE DESCRIFTOR WORDA4
s sDEVICE DESCRIPTOR WORDAS
::DEVICE DESCRIPTOR WORD#6
s :DEVICE DESCRIPTOR WORDA#/7
;:DEVICE DESCRIPTOR WORDAS8
ssDEVICE DESCRIPTOR WORDA9
2 :DEVICE DESCRIPTOR WORD#10
:sDEVICE DESCRIPTOR WORD#11
:sDEVICE DESCRIPTOR WORD#12
s sDEVICE DESCRIPTOR 'WORD#13
s sDEVICE DESCRIPTOR WORD#14
;sDEVICE DESCRIPTOR WGRDA1S

CZDRLDO-DR11 GEN NPR INTF(

ERROR POINTER TABLE

MACRO M1113

(02-NOV-81

.SBTTL

16:08

PAGE 53

SEQUENCE

ERROR POINTER TABLE

s*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 IS PERTINENT.
;*NOTE1:

J*NOTEZ2:
ot

o
B

3179
3180
3181
3182
%}gz

001534
001534
001536
001540
001542

047162
052503
055246
000000

3185
3186 001544
3187 001546
3188 001550
%}gg 001552

047216
052544
055260
000000

319N
3192
3193
3194
%}gg

001554
001556
001560

047264
052613
055274

3197
3198 001564
3199 001566
3200 001570
gggg 001572

047315
052657
055306
000000

3203
3204
3205
3206
%ggg

001574
001576
001600
001602

047346
052726
055322
000000

3209
3210 001604
3211 001606
3212 301610
gg}z 001612

047377
052772
055534
000000

3215
3216 001614
3217 001616
3218 001620
3219 001622

047445
052613
055274
000000

001562

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().

$ERRTB:
JITEM

JITEM 2

JITEM 3

000000

JITEM S

JITEM 6

JITEM 7

;;POINTS TO THE ERROR MESSAGE

DH
DT

;sPOINTS TO THE DATA HEADER
2 .POINTS TO THE DATA

;;POINTS TO THE DATA FORMAT

.WORD
.WORD
.WORD
.WORD

EM?2
DH2
DT2
O

; CANNOT ACCESS DR11 REGISTER
sTEST # ERR PC ABRTPC
REGISTER
;STESTN,SERRPC,OLDPC1,DREG,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM3
DH3
DT3
O

;DR11-B OR W MODE INCORRECT (0=8, 1=W)
;TEST # ERR PC
EXPMOD
ACTMOD
CSRADR
;STESTN,SERRP(C,$TMP1 ,BORW,CSR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD

EM4
DHé
DT4

sINIT FAILED TO CLEAR W(CR
;TEST # ERR PC WCRADR WCRCONTENTS
;STESTN,SERRPC,WCR,RWCR,
O

.WORD
.WORD
.WORD
.WORD

EMS
DH5
DTS
O

INIT FAILED TO CLEAR BAR
;TEST # ERR PC
BARADR
BAREXP
sSTESTN,SERRPC ,8AR,EBAR,RBAR, 0
:PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM6
DHé6
DT6
O

JINIT FAILED TO CLEAR BDR
JTEST # ERR PC BDRADR BDRCONTENTS
sSTESTN,SERRP( ,BDR,RBDR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM?7
DH?7
DT7
O

INIT FAILED TO CLEAR ALL CSR R-W BITS
JTEST # ERR PC
CSRADR
CSREXP CSRCONTENTS
;STESTN,SERRPC,CSR,ECSR,RCSR.,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EMI0
DHé
DT4
O

JRESET FAILED TO CLEAR W(CR
JTEST # ERR PC WCRADR WCRCONTENTS
;STESTN,SERRPC ,WCR,RWCR,0
;PRINT ALL DATA OCTAL

.WORD

JITEM &

EACH ITEM IN THE TABLE CONTAINS & POINTERS EX~LAINED AS FOLLOWS:

sPRINT ALL DATA OCTAL

BARRCV

CZDRLDO-DR11 GEN NPR INTF(

ERROR POINTER TABLE

3220
3221 001624
3222 001626

3223 001630

%S%g 001632
3226

047477
052613
055274
000000

3227 001634
3228 001636
3229 001640
%g%? 001642

047542
052657
055306
000000

3232
3233 001644
3234 001646
3235 001650
gggg 001652

047574
052657
055306
000000

3238

3239 001654
3240 001656
3241
3242 001660
ggzz 001662

047644
053046

%gg? 001672

000000

3260 001704
3261 001706
3262 001710
gggz 001712

3265
3266 001714
3267 001716

047757
053161

;ITEM 12

;ITEM 13

JITEM 14

JITEM 15

050003
053274
055404

JITEM 16

000000

gggg 001722

327
3272 001724
3273 001726
3274 001730
3275 001732

050140
053274
055404
000000

;I1TEM 20

SEQUENCE

EMN
DHé
DT4
O

SJATTEMPT TO SET ALL WZR BITS FAILED
sTEST # ERR PC WCRADR WCRCONTENTS
sSTESTN,SERRPC ,WCR,RWCR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
WORD
WORD

EM12
DH5
DTS
O

sRESET FAILED TO CLEAR BAR
:TEST # CRR PC BARADR BAREXP
;STESTN,SERRPC ,BAR,EBAR,RBAR, 0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM13
DH5
DTS5
0

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

.WORD
.WORD

EMI14
DH14

;CSR BIT TEST FAILED (FATAL - DIAGNOSTIC NOT CONTINUED)
:
BIT(S)
JTEST # ERR PC TESTED CSRADR (CSREXP (CSRCONTENTS
;STESTN,SERRP(C ,BUT,CSR,ECSR,RCSR, 0

DT14

.WORD

.WORD
.WORD

EM15
DH14

.WORD

DT14

BARRCV

;PRINT ALL DATA OCTAL

;sCSR BIT TEST FAILED
:
BIT(S)
;TEST # ERR PC TESTED CSRADR (SREXP
;$TESTN,SERRPC ,BUT,CSR,ECSR,RCSR., 0
:PRINT ALL DATA OCTAL

CSRCONTENTS

EIRCONTENTS

.WORD

.WORD
.WORD

EM16
DH16

.WORD
.WORD

DT16
0

;EIR BIT TEST FAILED
:
8IT(S)
;TEST # ERR PC TESTED EIRADR EIREXP
sSTESTN,SERRPC ,BUT,CSR,EEIR,REIR,O
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD

EM17
DH17
DT17

sREADY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR
;TEST # ERR PC (CSRADR (SREXP (CSRCONTENTS
;STESTN, SERRPC,CSR,ECSR,RCSR,0

.WORD
.WORD
.WORD
.WORD

EM20
DH17
DT17
0

;sATTN AND ERROR FAILED TO SET PROPERLY
;TEST # ERR PC (SRADR (CSREXP (SRCONTENTS
;$TESTN,SERRPC,CSR,ECSR,RCSR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM21
DH17
DT17
0

JATTN AND ERROR FAILED TO CLEAR PROPERLY
;TEST # ERR PC (CSRADR CSREXP (CSRCONTENTS
;STESTN,SERRPC,CSR,ECSR,RCSR,0
JPRINT ALL DATA OCTAL

.WORD

JITEM 17

PAGE 54

WORD
LWORD
.WORD
.WORD

.WORD

055366
000000

050072
053274
055404
000000

3268 001720

JITEM 11

055350

3259

;ITEM 10

000000

047733
053046

3252
3253 001674
3254 001676
3255
3256 001700
gggg 001702

02-NOV-81 16:08

055350

3245
3246 001664
3247 001666
3248

3249 001670

MACRO M1113

sPRINT ALL DATA OCTAL

CIZDRLDO-DR11 GEN NPR INTF(

ERROR POINTER TABLE

3276
3277 001734
3278 001736
3279 001740
ggg? 001742

050210
053274
055404
000000

3282
3283 001744
3284 001746
3285 001750
%ggg 001752

050320
053274
055404
(G90000

3288
3289 001754
3290 001756
3291 001760

050351
052657
055306

2294
3295 001764
3296 001766
3297 001770
gggg 001772

050476
053274
055404
000000

%gg% 001762

3300

050534

3303 002000
gggé 002002

055404
000000

3306

050600
052726
055322
000000

3312
3313 002014
3314 002016
3315 002020
%g}? 002022

050621
052726
055322
000000

3319 002024
3320 002026
3321 002030
%gsg 002032
3324
3325 002034
3326 002036

3327 002040

3328 002042

JITEM 21

C1TEM 22

JITEM 23

JITEM 24

:ITEM 25

050712
053500
055450
000090
050773
053500
055450
000000

JITEM 27

;ITEM 30

JITEM 31

SEQUENCE

EM22
DH17
DT17
0

;ERROR 8IT SHGULD HAVE BEEN CLEAR
:TEST # ERR PC CSRADR CSREXP (CSRCONTENTS
sSTESTN,SERRPC,CSR,ECSR,RCSR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM24
DH17
DT17
0

;READY OF (SR WAS NOT SET
:TEST # ERR PC CSRADR (CSREXP
sSTESTN,$ERRPC,CSR,ECSR,RCSR,
0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD

EM25
DHS
DTS

;BIT 0 OF THE BAR WAS SET
:TEST # ERR PC BARADR BAREXP
JSTESTN,SERRP( ,BAR,EBAR,REAR,O

BARRCV

. WORD
.WORD
.WORD
.WORD

EM30
DH17
DT17
O

:FUNCTION BIT(S) ARE NOT CLEAR
;TEST # ERR PC (CSRADR (CSREXP
;STESTN,SERRPC,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

(CSRCONTENTS

.WORD

EM31

;:DSTAT A, B OR C ARE NOT AS EXPECTED

.WORD
.WORD

DT17
O

;STESTN,SERRPC,CSR,ECSR,RCSR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM32
DH6
DT6
O

:BDR IS NOT CLEAR
;TEST # ERR PC BDRADR BDRCONTENTS
:S$TESTN,SERRPC ,BDR,RBDR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM33
DH6
DT6
0

;ALL BDR BITS ARE NOT SET
:TEST # ERR PC BDRADR BDRCONTENTS
:$TESTN,SERRPC .BDR,RBDR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM35
DH34
DT34
0

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

.WORD
.WORD
.WORD
.WORD

EM36
DH34
DT34
O

;BDR PATTERN NOT CORRECT
:TEST # ERR PC BDRADR BDREXP
;STESTN,SERRP(C ,BDR,EBDR,RBDR,0
;PRINT ALL DATA OCTAL

.WORD

JITEM 26

PAGE 55

WORD
.WORD
.WORD
.WORD

.WORL

053274

3307 002004
3308 0C2006
3309 002010
%g}? 002012

3318

(02-NOV-81 16:08

000000

3301 001774

3302 001776

MACRO M1113

DH1?7

(CSRCONTENTS

;PRINT ALL DATA OCTAL

:TEST #

ERR PC

CSRADR

CSREXP

(CSRCONTENTS

BDRCONTENTS

CZDRLDO-DR11 GEN NPR INTFC
ERROR POINTER TABLE
329
3330
3331
3332
3%%2

002044
002046
002050
002052

051023
053274
055404
000000

3335
3336 002054
3337 002056
3338 002060
%gzg 002062

051061
053274
055404
000000

3341
3342 002064
3343 002066

051111
053274

%gzz 002072

000000

3344 002070

3347

051213

3353
3354 002104
3355 002106
3356 002110
g%gg 002112

051244
053554
055464
000000

3359
3360 002114
3361 002116
3362 002120
gggz 002122

02-NOV-81

JITEM 32

:ITEM 33

:ITEM 34

055404

3348 002074

3349 002076
3350 002100
ggg; 002102

MALRO M1113

053554
055464
000060

051314

)
JITEM 37

053274
055404
000000

3365
3366 002124
3367 002126
3368 002130
gggg 002132

051427
053274
055404
000000

3371
3372 002134
3373 002136
3374 002140
%%;2 002142

051444
053620
055476
000000

3377
3378 002144
3379 002146
3380 002150
3381 002152

051511
053554
055464
000000

JITEM 40

JITEM 41

JITEM 42

SEQUENCE

EM37
DH17
DT17
O

:READY IS NOT THE ONLY BIT SET
;TEST # ERR PC (CSRADR CSREXP
sSTESTN,SERRP(C,CSR,ECSR,RCSR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EM40
DH17
DT17
0

;READY SHOULD NOT BE SET
sTEST # ERR PC
CSRADR CSREXP
JSTESTN,SERRP(C.CSR,ECSR,RCSR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD

EM4
DH17

JREADY WAS CLEARED BUT NEVER SET AGAIN
JTEST # ERR PC
CSRADR
CSREXP (SRCONTENTS

.WORD

;PRINT ALL DATA OCTAL

DT1?7

CSRCONTENTS

SSTESTN,SERRPC,CSR,ECSR,RCSR.,0

EMé43

;DR11 FAILED TO INTERRUPT

.WORD
.WORD
.WORD
.WORD

EM&S
DH43
DT43
0

’
;sDR11 INTERRUPTED, BUT IT SHOULDN'T HAVE
JTEST # ERR PC
(SRADR
CSRCONTENTS
JSTESTN,SERRPC ,CSK,RCSR,0
sPRINT ALL DATA OCTAL

.WORD

DH43
0T43
0

(CSRCONTENTS

.WORD

.WORD
.WORD
.WORD

JITEM 36

[ &
PAGE 56

.WORD
.WORD
.WORD
.MORD

.WORD
JITEM 35

16:08

JTEST # ERR PC
(CSRADR
(CSRCONTENTS
c$STESTN,SERRPC,CSR,RCSR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
. WORD

EM4S

DH17
DT1?7
0

;ERROR BIT SHOULD NOT BE CLEAR

.WORD
.WORD
.WORD
.WORD

EM4L7
DH17
DT17
0

JCSR IS WRONG
JTEST # ERR PC
CSRADR (SREXP
STESTN,SERRPC,CSR,ECSR,RCSR,0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EMSO
DHS0
DT50
0

; TRANSFERS SHOULD HAVE BEEN INHIBITED
;TEST # ERR PC WCRADR WCREXP WCRRCY BARADR
;STESTN,SERRPC,WCR,EWCR
,RWCR ,BAR ,EBAR ,RBAR., O
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

EMS1
DHé43
DT43
0

:DR11 SHOULD NOT HAVE INTERRUPTED A SECOND TIME
;TEST # ERR PC
CSRADR CSRCONTENTS
sSTESTN,SERRPC,CSR,RCSR,0
;PRINT ALL DATA OCTAL

TEST # ERR PC
(SRADR CSREXP
JSTESTN,SERRPC,CSR,ECSR,RCSR,0
JPRINT ALL DATA OCTAL

CSRCONTENTS

BAREXP

BARRCV

CZDRLDO~DR11 GEN NPR INTFC
ERROR PUINTER TABLE
3382
3383 002154
3384 002156
3385 002160
%%gg 002162
3388

002164
002166
002170
002172

051657
053424
055434
000000

3394
3395
3396
3397
3398

002174
002176
002200
002202

051674
053500
055450
000000

002204
002206

051752
053776

002210
002212

055536
000000

002214
002216

052002
054143

002220
002222

055556
000000

3414
3415 002224
3416 002226
3417 002230
3418 002232

052041
054241
055572
000000

3407
3408
3409
3410
3411
%2}%

34,20

3421 002234
3422 002236
3623 002240
3424 002242

052124
(054312
055606
000000

3426
3427 002244
3428 002246
3429 002250
3430 002252

052173
054421
055632
000000

3432

3433
3434
3435
3436

002254
000256
002260
002262

]

051213
054470
055646
000000

02-NOV-81

;1TEM 43

051570
053554
055464
000000

3389
3390
3391
%gg%

3400
3401
3402
3403
3404
gzgg

MACRO M1113

JITEM 44

;1TEM 45

;1TEM 46

JITEM 47

JITEM 50

SITEM S1
:
;1TEM 52

;1TEM 53

16:08

J_ 4
PAGE 57

SEQUENCE

LWORD
'WORD
WORD
.WORD

EM5?
DH43
DT43
O

SEXPECTED INTERRUPT DID NOT OCCUR
:TEST # ERR PC
(CSRADR CSRCONTENTS
:$TESTN,S$ERRPC,CSR,RCSR,0
;PRINT ALL DATA OCTAL

.WORD
.WORD
WORD
.WORD

EMS4
DH26
DT26
0

;BAR IS WRONG
sTEST # ERR PC BARADR BAREXP
:$TESTN,SERRPC,BAR,EBAR,RBAR,
sPRINT ALL DATA OCTAL

.WORD
.WORD
'WORD
"WORD

EMS5
DH34
DT34
0

:BAD DATA IN BDR
JTEST # ERR PC BDRADR BDREXP
:STESTN,$ERRPC,BDR,EBDR,REDR,
:PRINT ALL DATA OCTAL

WORD
.WORD

EMS57
DH5?

.WORD
.WORD

DT57
0

;BUFFER DATA NOT CORRECT
CHECK
CHECK
INPUT
INPUT
;TEST #
ERR PC
BUFADR BUFDAT
BUFADR BUFDAT
sSTESTN,SERROC,$TMP4
,$TMP2 ,$TMP5,$TMP3,(SR,0
;PRINT ALL DATA OCTAL

.WORD
WORD

EM60
DH60

.WORD
.WORD

DT60
O

;TOO MANY WORDS WERE TRANSFERED
DIDNOT
TEST # ERR PC_
EXPECT
ADRESS
CSRADR
sSTESTN,SERRPC
,$TMP2 ,$TMP3 (SR, 0
sPRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
"WORD

EM61
DHé61
DT61
O

SUNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW
;TEST # ERR PC
WCRADR
OLDPC
TRAP ADR
JSTESTN,SERRPC ,W(CR,0OLDPC2 ,BDVECT,O
:PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
“WORD

EM62
DH62
DT62
0

:CSR AND-OR WCR AND-OR BAR ARE INCORECT
sTEST # ERR PC WCRADR WCREXP WCRRCV (SREXP (SRRCV
JSTESTN,SERRP( ,W(R,EWCR,RWCR,ECSR,RCSR,EBAR,RBAR,O
:PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
"WORD

EM63
DH63
DT63
0

;DR11 INTERRUPTED AT WRONG LEVEL
;TEST # ERR PC
EXPLVL
RCVLVL
C(CSRADR
:STESTN.SERRPC.DRLEV,LEVEL,CSR,0
:PRINT ALL DATA OCTAL

.WORD
'WORD
"WORD
"WORD

EM43
DH64
DT64
0

:DR11 FAILED TO INTERRUPT
:TEST # ERR PC_
EXPLVL
CSRADR
:STESTN,SERRPC,STMP1,CSR,0
:PRINT ALL DATA OCTAL

BARCONTENTS

BDRCONTENTS

(SRADR

BAREXP

BAR

CZDRLDO-DR11 GEN NPR INTFC
ERROR POINTER TABLE

3437
3438 002264
3439 002266
3440 002270
3441 002272

052233
054527
055660
000000

MACRO M1113

02-NOV-81

;ITEM 56

.WORD
.WORD
-WORD
.WORD

16:08

EM6S
DH65
DT65
0

K
&
PAGE 58

SEQUENCE

:2=N _CYCLE BURST SWITCH IN WRONG POSITION
;TEST #

ERR PC

(SRSDR

EIREXP

:$TESTN,SERRP(,
(SR, EEIR,REIR,0

;PRINT ALL DATA OCTAL

EIRRCV

CZDRLDO-DR11 GEN NPR INTFC

ERROR POINTER TABLE

3442 002274

02-NOV-81

16:08

ER200:

%222

3445 002274
3446 002276
3447
3448 002300
gzég 0023C2

MACRO M1113

L 4
PAGE 59

SEQUENCE

;THIS IS THE STARTING POINT FOR ERROR MESSAGES 201

ITEM 201

: THROUGH 277.

THEY ARE USED FOR MULTIPLE ERROR MESSAGES.

051752
053776

.WORD
.WORD

EM57
DH57

055536
000000

.WORD
.WORD

DT57
O

BUFFER DATA NOT CORRECT
CHECK
CHECK
INPUT
INPUT
:TEST # ERR PC BUFADR BUFDAT BUFADR BUFDAT
;STESTN. SERRPC, STMP4, STMP2, $TMPS,$TMP3, CSR,0
:PRINT ALL DATA OCTAL

002304
002306
002310
002312

052347
054645
055710
000000

;ITEM 202
.WORD
.WORD
.WORD
.WORD

EM202
DH202
DT202
0

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

3457
3458 002314
3459 002316
3460 002320
%22; 002322

050402
053424
055434
000000

;1TEM 203
.WORD
.WORD
.WORD
.WORD

EM26
DHZ26
DT26
O

;BIT PATTERN TEST FAILED IN BAR
sTEST # ERR PC BARADR BAREXP
;STESTN,SERRPC ,BAR,EBAR,RBAR,
;PRINT ALL DATA OCTAL

3463
3464 002324

050441

JITEM 204
.WORD

EMZ27

;WCR DATA PATTERN NOT CORRECT

3466 002330
gzgg 002332

055420
000000

.WORD
.WORD

DT23
O

sSTESTN,SERRPC ,WCR,EWCR,RWCR,0
;PRINT ALL DATA OCTAL

3651
3452
3453
3454
gzgz

3465 002326

053350

.WORD

DHZ23

;TEST #

ERR PC

WCRADR

WCREXP

050773
053500
055450
000000

JITEM 205
.WORD
.WORD
.WORD
.WORD

EM36
DH34
DT3¢
0

3475
3476
3477
3478
gzgg

002344
002346
002350
002352

051631
055064
055769
000000

JITEM 206
.WORD
.WORD
.WORD
.WORD

EM53
DH210
DT210
0

3481
3482
3483
3484
gzgg

0023564
002356
002360
002362

051657
053424
055434
000000

;ITEM 207
.WORD
.WORD
.WORD
.WORD

EM5¢4
DHZ26
DT26
O

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

.WORD
.WORD

EM56
DH56
DT56
O

;DATA NOT TRANSFERED CORRECTLY
;TEST # ERR PC
NPRIAD NPRIEX NPRIRC
;STESTN,SERRPC
,ANPR1 ,ENPR1 NPR1,(SR,0
sPRINT ALL DATA OCTAL

JITEM 211
.WORD
.WORD
.WORD
.WORD

EM211
DH211
DT211
0

3490 002370
;28} 002372

051714
053717
055520
000000

3493
3494 002374
3495 002376
3496 002400
3497 002402

052377
055130
055772
000000

JITEM 210
.WORD
.WORD

(SRRCV

WCRCONTENTS

002334
002336
002340
002342

sBDR PATTERN NOT CORRECT
sTEST #
ERR PC
BDRADR BDREXP
;STESTN, SERRP( ,BDR,EBDR,RBDR,0
sPRINT ALL DATA O(CTAL

(SRADR

BARCONTENTS

3469
3470
3471
3472
%2;2

3487
2488 002364
3489 002366

BDRCONTENTS

;WCR NOT EQUAL TO ZERO
;TEST # ERR PC
WCRADR
WCRCONTENTS
;STESTN,SERRPC ,WCR,RWCR,0
;PRINT ALL DATA OCTAL

BARCONTENTS

(SRADR

BDR AND-OR WCR AND-OR BAR ARE INCORE(T
TEST # ERR PC WCRADR WCREXP WCRRCV BDREXP BDRR(V
;STESIN,SERRP( ,W(R,EWCR,RWCR,ECSR,RCSR,EBAR,RBAR,O
SPRINT ALL DATA OCTAL

BAREXP

BAR

CIDRLDC-DR11 GEN NPR INTF(

ERROR POINTER TABLE

3498
3499 002404
3500 0026406
3501 002410
3502 002412

051352
053274
055404
000000

MACRO M1113

02-NOv-81

16:08

JITEM 212
WORD
.WORD
.WORD
.WORD

EM4LG
DH17
DT17
O

PAGE 60

sFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE
JTEST # ERR PC
(SRADR
(5SREXP (SRCONTENTS
;STESTN,SERRP(C,(SR,ECSR,RCSR,0
.PRINT ALL DATA OCTAL

SEQUENCE

CIDRLDC-DR11

GEN NPR INTF(

STORAGE LOCAT]ONS

MACRO M11'3

(02-NOV-81

16:08

.SBTTL

PAGE 61

SEQUENC(E

STORAGE LOCATIONS

::.t.t.."'.."..'.."""Q'.Q...".t...t.'t..."'.ttt'...i'....t

STORAGE LOCATIONS
4

002414

00C000

QTYBRD:
REGADR:

002416
002456

VECADR:

.WORD

;TOTAL # DR11 BOARDS BEING TESTED (DEFAULT

.BLKW

16.
16.

;TOTAL:
;TOTAL:

;sREGISTER AND VECTOR ADDRESS STORAGE LOCATIONS FOR THE DR11 UNDER
2

2322232222223

2222222020220

22200222t RRRRRRRRRRRRRRRARRRl
Rl

:DO NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATJONS BELOW

002534

000000
000000
000000
000000
000000
000000
000C00
000000

W(R:
BAR:
(SR:
B8DR:
DRINV:
DRVS:
SDRINV:
SDRVS:
S

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

2232222323

OO0OOO0O OO

':t't'tt.'t'.'tt.tttt.fi"""tQfit'.ttt..'t'.t.tttttt.tt"..'t'.'t

002516
002520
002522
002524

8222222

2222222022222

80220220222 2RRR2R2R0RRdRRRddt

:DO NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS ABOVE
BUT:
LEVEL:
BDVECT:
:
DEVMSK

PASCNT:

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

002560
002562
002564
002566
002570

000000
000000
000000
000000
000000

RCSR:
REIR:
RBDR:
RBAR:
RW(CR:

.WORD
.WORD
.WORD
.WORD
.WORD

002572
002574
002576

000000
000000
000000
000000
000000
000000
002612

ECSR:
EEIR:
EBDR:
EBAR:
EWCR:
ENPR1:
ANPR1:
BORW:
NPR1:
DIOMEM:
:
INBUF
:
CHKBUF
BUFLEN:

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

002600
002602
002604
002606
002610

002612
002614
002616
002629
002622

042644
043646
000000

TABINX:

DREG:
DRLEV:
NXTTST:

OOO0OOO0O0OO

002540
002542
002544
002546
002550
002552
002554
002556

€00000
000000
000000
000000
000000
000000
000000
000000
000000

;BIT(S) UNDER TEST LOCATION
;8P LEVEL LOCATION

OO0O0O00

::'ttttttttt'tttt.'ttt't""'ttt..t.'lQfi.'t'tt.t...Q'tl....t't.tt

002536

sCSR ACTUALLY READ FROM DEVICE UNDER TEST

sCSR EXPECTED
SEIR EXPECTED
:BDR EXPECTED
:BAR EXPECTED
;WCR EXPECTED
JEXPECTED OF NPR1

PR1

()

16 LOCATIONS FOR BOARD ADDRESSES
16 LOCATIONS FOR VECTOR ADDRESSES

OX X =2 VNOZ2000000

N NN NN N

(O VW LV T LV IV YU LV LV LV 1Y, ]
[ RS
e
e b R
ol )

OO NN
W
2O O

;;tt.tt"t.t'tfi.t'.t."i""t'tttt"'-l't.'...t.'.""".t..".'.

;EIR ACTUALLY READ FROM DEVICE UNDER TEST
:BDR ACTUALLY READ FROM DEVICE UNDER TEST

;BAR ACTUALLY READ FROM DEVICE UNDER TEST

;WCR ACTUALLY READ FROM DEVICE UNDER TEST

:ADDRESS OF NPR1

TEST

CZDRLDO-DR11 GEN NPR INTF(C
STORAGE LOCATIONS

3560
3561
3562
3563
3564

002624
002626
002630
002632
002634

3565 002636
3566 002640
3567 002642
3568 002644
3569 002646
3570 002650
3571 002652
3572 002654
3573 002656
3574 002660
3575 002662
3576 002664
3577 002666
3578 002670
3579 002672
3580 002674

3581 002676
3582 002700
3583 002702
3584 002704
3585 002706
3586 002710
3587 002712
3588 002714
3589 002716

000000
000000
900000
000000
177560

177562
177564
177566
000000
000000
000000
000000
00C000
000900
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000

MACRO M1113

02-NOV-81 16:08

LENCHK:
BRWAIT:
WCLEN:
RDYCHK:
TKS:

TKB:
TPS:
TPB:
MSG:
ADDR:
MESSAG:
FLAG:
FNCCNT:
INBUF1:
TIME:
LOOP:
ANSWER:
BDFAIL:
MANSIZ:
OLDPC1:
OLDPS1:

OLDPC2:
OLDPS2:
OFL:
LRGS1C:
EOPLOC:
BITTST:
MEMGMT:
ERRINT:
$PASS2:

.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

B.5
PAGE 61-1

SEQUENCE

0
0
0
O
177560

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

;GENERAL PURPOSE TIMER
s GENERAL PURPOSE LOOP (OUNTER

sLOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS
;LOCATION TO STORE PS
sLOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS
;LOCATION TO STORE PS
sFIRST CHAR FLAG
sLOCATION FOR LARGEST NUMBER CHARACTER FOR THE READ SUBROUTINE
;LOCATION TO HOLD FLAG DECIDING IF EOP MSGS ARE TO BE PRINTED
sLOCATION TO PUT THE BIT STATE TO PRINT - USED BY SUBROUTINE PSTATE
sLOCATION TO HOLD FLAG SAYING MEMORY MANAGEMENT IS AVAILABLE
;LOCATION TO HOLD TOTAL ERRORS FOR A PARTICULAR TEST
:LOCATION TO HOLD OVERFLOW PASS NUMBER

CIDRLDO-DR11 GEN NPR INTF(

MACRO M1113

DEVICE DESCRIPTOR WORD BIT DESCRIPTION

3590

(02-NOV-81 16:08
.SBTTL

SEQUENCE

DEVICE DESCRIPTOR WORD BIT DESCRIPTION

1591

3594

BIT 0

DR11-w=0,

3596

BIT 2

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

;

%gg%

3595

3597
3598
3588
36

3601 002720

000000

C.5

PAGE 62

AR AR AR RO

R AR

RN KRR NN RN RO RN

AN RRR AN

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

BIT 1

DR11-B=1

2 CYCLE=D, N CYCLE=?

:
.
:

BIT S
BIT 6
BIT 7

ODW:

LWORD

> BR PRIORITY

;LOCATION FOR STORAGE OF THE DEVICE DESCRIPTOR WORD

CZDRLDO-DR11

GEN NPR INTF(

MACRO M1113

02-NOV-81

D.5

16:08

PAGE 63

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

.SBTTL

000453
022737
001003
104401
000444
113737
104401

022737
100016
123737
100427

013746
042716
006304
006304
006304

3650 003066
3651 003074

000033

2s:

002664

3s:

037064

002664
037173
000057

037173

002704

002664

4S:

002664

5%:

000002
001405

002664
6$:

2223022822322

IN THE EDIT ROUTINE

adRadiddldsti il

222222322

2201

TO INPUT NUMBERS AND A

IT WILL ONLY ACCEPT

MovB

CHARCT ,ANSWER

;MOVE

CMP

(SP)+,ANSWER
#CNTLC,ANSWER

TYPE
BR

.CNTRLC
63

RDCHR
MOV

BNE

CHARCT

it iidlsiliiiiiilitslizessy]

;CLEAR THE CHARACTER RECEIVER

:SEE

IF A CHARACTER WAS

INPUTED DURING PRINTING

;BRANCH TO INPUT A CHARACTER IF NOT
THE

CHARACTER

:CLEAR THAT GUY

TO THE ANSWER LOCATION

:GO _CHECK IT OuUT

sGET A CHARACTER
:POP INPUTED CHARACTER OFF

;SEE

IF A “C WAS INPUTED

STACK

;BRANCH AROUND ITS PRINTING IF NOT

JTYPE:
'4(C°
+KICK OUT OF

THIS ROUTINE

CMP

#ES(C,ANSWER

TYPE

.ESCAPE

sTYPE:

ANSWER,LETNCR
LLETNCR

;MOVE CHARACTER FOR PRINTING
:GO TYPE THE INPUTED CHARACTER

BNE

sSEE IF AN <ESC> WAS INPUTED

:BRANCH AROUND ITS PRINTING IF NO7Y
‘<ESC>'

CMP
8PL

#'/ ,ANSWER
5%

sSEE IF A NON-NUMERIC/ALPH CHARACTER WAS INPUTED
:BRANCH TO R4 TEST IF SO

#60, (SP)
R4
R4
R4

sCLEAR ALL BUT THE NUMBER INPUTED
¢SHIFT R4 THREE PLACES
;0 MAKE ROOM FOR
sTHIS CHARACTER
sADD THE OCTAL NUMBER TO Ré&
sSUBTRACT 1 FROM THE LOOP COUNTER AND
:BRANCH BACK IF NOT ALL CHARACTERS INPUTED
sSEE IF NUMBER IS TO BE DECIMAL
:BRANCH IF NOT
:SEE IF INPUTED NUMBER IS 7 OR LESS
sBRANCH IF SO
.SEE IF CARRIAGE RETURN WAS INPUTED

Movs
TYPE

ADD

002704

CHARCT

8IC
ASL
ASL
ASL

000007

000207

CLR

CMPB
BMI
MOV

002664
000060

000015
7 003120

CLRB

037175

000071

52 003076

002664

THE NUMBER DIGIT EQUAL TO OR LESS THAN THIS DIGIT.
IT WILL ONLY ACCEPT
THE MAXIMUM NUMBER OF DIGITS SPECIFIED BY R3, PRINTING A <CRLF> WHEN
THAT LIMIT IS REACHED.
IF A <CR> IS INPUTED BEFORE THE MAXIMUM IS
REACHED, ROUTINE EXITS LEAVING THE INPUTED NUMBER IN Ré.

002664
000003

IS USED

OR 9 (FOR OCTAL OR DECIMAL INPUT RESPECTIVELY).

BEQ

1%:

dliitdt

THE VALUE OF THE DIGIT INPUTED, AND ADD IT TO R4, WHICH WAS CLEARED
AT THE BEGINING OF THIS SUBROUTINE.
LOCATION 'LRGSTC' IS TO BE LOADED
WITH THE LARGEST ASCII CHARACTER ACCEPTABLE FOR THIS NUMBER, [.E. 7

TSTB

002664

INPUTED, LEAVING THE CHARACTER IN LOCATION °ANSWER'.
IF A NUMERIC
CHARACTER IS INPUTED, IT WILL CLEAR ALL BUT THE 1ST 4 BITS EXPOSING

JRK IS
% %

104401

032555
032555

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

THIS SUBROUTINE

T
%

012637
022737
001003

032555

SINGLE CHARACTER.
R3 IS TO BE LOADED WITH THE NUMBER OF DIGITS
EXPECTED.
THIS SUBROUTINE WILL EXIT IF A NON-NUMERIC CHARACTER IS

L PELI L
% % % %

104410

3630 002764
3631 002770
3632 002772
3633 003000
3634 003002
3635 003006
3636 003010
3637 003016
3638 003022
3639 003030
3640 003032
3641 003040

2222

005004
105737
001406
113737
105037
000403

o LY
M

OO 0O NN ES NN =

3610

002722
3621 002724
3622 002730
3623 002732

ARAAAS

YO T Y
% % %

Y JPO YR SR YOO Y
% % % % ¥

SEQUENCE

DEC
BNE
CMPB
BNE
CMP
8PL
CMP
BEQ
ADD
;!gf

LRGSTC ,ANSWER
3
ANSWER ,=(SP)

(SP)+,R4

R3
1$
#'9,LRGSTC
63
#7 R4
6%
#CARETN,ANSWER
63
#2 R4
fi%CRLF

sKICK QUT OF THIS ROUTINE

;SEE IF A NON-OCTAL/NUMERIC CHARACTER WAS
:BRANCH TO EXIT IF SO
:MOVE ASCII TO STACK FOR PREPARATION

INPUTED

:BRANCH IF SO - R4 IS CORRECT
;ADD 2 TO R4 TO MAKE OCTAL NUMBER THE DECIMAL EQUIVALENT
E;}?T A <CRLF>

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

(02-NOV-81 16:08

SUBROUTINE TO CAPTURE UNIT #, PASS # R TOTAL ERRORS

3659

.SBTTL

3660

MIAAAAL AL

;t
TM
o

3661
3662
3663

gggé

151

3666

3667 003126
3668 003136

022737
001414

3670 003142

013720

3669 003136

3671 003146

3672
3673
3674
3675

003152
003156
003162
003166

047132

013700

044650

013720

002716

013720
013720
010037
000207

044650

SEQUENCE

SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS
ARt

idd ittt ittt

it sl iadiiialildissllsd)

THIS SUBROUTINE IS CALLED BY SEOP AND ENDLV TO SAVE THE UNIT NUMBER,
PASS NUMBER, AND TOTAL ERRORS FOR THAT DEVICE/PASS FOR SAVING WHENEVER

A DEVICE PASS CONTAINS ERRORS.

:-;ttittttt*tttttttttttttttttttttttttttttttttttttttttttttttttttttt

ERCAPT: (MP
BEQ

#ENDSTK,CAPNTR
1$

;SEE IF STACK IS FULL OF BULL
;KICK OUT IF FULL

MOV

SUNIT,

;PUT UNIT NUMBER ON STACK

MOV
MOV
MOV
RTS

$PASS, (RO) +
CERTTL, (RO)+
RO,CAPNTR
PC

MOV

001422

001416
001312
044650

E S
PAGE 64

MOV

1$:

CAPNTR,RO

(RO)+

SPASSé.(RO)*

;MOVE CAPNTR CONTENTS TO RO

;PUT OVERFLOW PASS NUMBER ON STA(CK

sPUT PASS NUMBER ON STA(CK
;PUT TOTAL ERRORS ON STA(CK
JRESTORE CAPNTR TC NEW POINTER VALUE
JEXIT

CZDF'.DO-DR11 GEN NPR INTFC

MACRO M1113

SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES

3676

02-NOV-81
.SBTTL

16:08

F
5
PAGE 65

SEQUENCE

SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES

3677

:;ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttfitt

3678
3679
3680

o®
o
s

ggg;

M
> K

3683

3684 003170
3685 003174
3686 003176
3687 003202
3688 003210
3689 003212
3690 003216
3691 003220

005037
000261
006137
022737
001433
013701
005301
005002

3693 003226
3694 003230
3695

000261
9006137
002416

3692 003222

3696 003234
3697
3698
3699
3700
3701
3702
3703
3704
3705

003242

003250
003256
003264
003272
003274
003276
003300

012703

016263

062763
002456
016263
062763
013763
022223
005391
001353
00020

FIXTBL:
002414

002414
000002

1%:

001466

002416

002456
000010
001474

002456
002456
001474

000010

UP BEFORE ENTERING THIS SUBROUTINE.

:':ttfitttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

001466
001466
000001

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

002416

CLR
SEC
ROL
CMP
BEQ
MOV
DEC
CLR
MOV

SEC
ROL
RA=REGADR

MOV

ADD
VA=VECADR
MOV
ADD
MOV
CMP
DEC
BNE
28:
RTS

$DEVM

SDEVM
#1,QTYBRD
23
GTYBRD ,R1
R1
R2
#2,R3

$DEVM

;CLEAR THE DEVICE MASK
JSET THE CARRY BIT AND
:ROTATE IT INTO SDEVM FOR 1 BOARD
sSEE IF ONLY 1 BOARD PRESENT
JKICK OUT IF SO - TABLE DOESN'T NEED FILLING
JFILL ALL TABLE BOARD ENTRIES FROM FIRST
;DECREMENT SINCE 1ST POSITION IS ALREADY FILLED
;CLEAR INDEX TO SEND PCINTER
sPUT 2 IN INDEX TO RECEIVE POINTER

:SET THE TARRY BIT AND
JROTATE IT INTO SDEVM
sREDEFINE REGVADR AS RA FOR SPACE REASONS

RA(RZ2) ,RA(R3)

s TRANSFER ADDRESS TO NEXT POSITION AND

#10,RA(R3)
;ADD 10 FOR NEXT POSITION
sREDEFINE VECADR AS VA FOR SPACE REASONS
VA(R2) ,VA(R3)
JTRANSFER VECTOR TO NEXT POSITION AND
#10,VA(R3)
:ADD 10 FOR NEXT POSITION
$DDWO,SDDWO(R3) ;MOVE DEVICE DESCRIFTOR WORD TO NEXT POSITION
(R2)+,(R3)+
JUPDATE INDEX POINTERS
R1
;DECREMENT THE LOOP COUNTER
18
+BRANCH BACK ]F NOT DONE
PC
JEXIT

MACRO M1113 02-NOV-81
CZDRLDO-DR11 GEN NPR INTF(
SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN
A

.SBTTL

16:08

22 2RSSR

6 5
PAGE 66

SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN
R

THIS SUBROUTINE

22020222232 2228202222282

CLEARS THE FIRST LOCATION OF

NUMBERS STARTING WITH 1

SEQUENCE

INTO THE BUFFER.

23232222202

THE BUFFER AND LOADS

3712
3713 003302
3714 003306
3715 003312
3716 003314
3717 003316
3718 003320
3719 003322
3720 003324
3721 003326

013702
013703
005203
005001
010122
005201
0053C3
001374
000207

002616
002622

A28

4200200200 0220030202203 2302003238322
232322223230232232¢801]

LODBUF: MOV
MOV

1$:

INC
CLR

MoV

INC
DEC
BNE
RTS

INBUF ,R2
BUFLEN,R3
R3

;MOVE STARTING ADDRESS OF INBUF TO R2
sMOVE LOOP COUNTER TO R3
sCORRECT COUNTER

JEXIT

R1
R1.(R2)+
R1
R3
1$

sCLEAR THE LOADING COUNTER
sLOAD NEXT BUFFER WORD
s INCREMENT THE LOADING COUNTER
sDECREMENT THE LOOP COUMTER AND
sBRANCH BACK IF NOT DONE

MACRO M1113 02-NOV-81 16:08
SUBROUTINE TO LOAD THE CHKBUF WITH EVEN #'S STARTING WITH 0
CZDRLDO-DR11 GEN NPR INTF(

3722
3723

.SBTTL

SEQUENCE

SUBROUTINE TO LOAD THE CHKBUF WITH EVEN #'S STARTING WITH 0
3002328200280 88 80222000028 d00d23d

. %

i
- %

3729 003330
3730 003334
3731 003340
3732 003342
3733 003344
3734 003346
3735 003350
3736 003352
3737 003354

SR 2222220212223 322 3232202222202 2223202

e
3728

PAGE 67

THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS

EVEN NUMBERS STARTING WITH 0 INTO THE BUFFER.

E:tttttttttttttttttttttt'tttittttttttttttiitttttttttttttit'tttttt
CHKBFF: MOV
CHKBUF ,R2
;STARTING ADDRESS OF CHECK-BUFFER TO R2
18:

MOV
CLR
MOV
MOV

BUFLEN.RT
R3
R3, (R2)+
R3. (R2)+

*MOVE
:WIPE
*MOVE
*MOVE

ST
BNE
RTS

R1
18
PC

*SEE IF R1 HAS REACHED ZERO YET
*BRANCH BACK IF NOT DONE
FEXIT

CMP

28:

(R$)+,=-(R1)

LOOP COUNTER TO R1
OUT R3
R3 TO CHKBUF ADDRESS AND INC BY 2
R3 TO NEXT CHKBUF ADDRESS AND INC BY 2

*ADD 2 TO NUMBER FOR BUFFER & SUBTRACT 2 FROM LOOP COUNTER

MACRO M1113 02-NOV~81 16:08
SUBROUTINE TO CLEAR IE, CHECK ERROR, READY, WCR=0, AND BAR
CZDRLDO-DR11

GEN NPR INTF(

3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750 003356
3751 003364
3752 003370
3753 003374
3754 003400
3755 003406
3756 003414
3757 003416
3758 003424
3759 003426
3760 003430
3761 003436
3762 003442
3763 003446
3764 003454
3765 003462
3766 003470
3767 003476
3768 003500
3769 003506
3770 003510
3771 003516
3772 003520
3773 003524

.SBTTL

PAGE 68

SEQUENCE

SUBRNUTINE TO CLEAR IE, CHECK ERROR, READY, WCR=(0, AND BAR

tttttitttit.ttttittt"ititttttttttttlttttttttttttttttttttti'.it
b

i
i
t

THIS SUBROUTINE HAS THE NEED TO CA.L AN ERROR IN THE TEST.
THE ERROR
IS TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL.
FUTURE USE OF
THIS SUBROUTINE MUST BE HAND!
ED AS [ OLLOWS:

* R

JSR

P
i
.

042777
013702
063702
063702
017737
032737
001005

032737
001401
005202
017737
005037
010237
013737
042737
052727
017737
001012
023737
001006
023737
001002
062716
000207

000100
002622
002622
002616

177136

PC, INTA

*ERROR CALL
:SUBROUTINE RETURNS HERE IF NO ERROR

:'ttttttttt*ttti*tttttt'ttttt.tQt'ttttttttttttttt*t'tfittttttttttt
iNTA:

BIC
MOV

#1E,aCSR
BUFLEN,R2

;CLEAR IE
:BUFFER LENGTH TO R2

INBUF ,R2

:CORRECT BAR

ADD

BUFLEN.R2

MOV

aCSR,RCSR

ADD

177116

010000

002560
002560

000004

002720

177064
002602
002600
002560
100000
000200
177022

002566
002572
002572
002572
002570

MOV
BIC
BIS
MOV

RCSR,ECSR
#ER,ECSR
#RY ,ECSR
SWCR, RWCR

002560

002572

CMP

RCSR,ECSR

002566

002600

000002

; SUBROUTINE CALL

ERROR
+51
CONT INUE

BIT
BNE

#MA,RCSR
1$

BEQ
INC
MOV
CLR
MOV

13
R2
@BAR, RBAR
EWCR
R2,EBAR

BIT

18:

BNE

CMP

BNE

ADD

#81T2,DDW

*NUMBER OF XFERS TIMES 2
:MOVE RECEIVED DATA TO RCSR

*SEE IF WE ARE IN MAINTENANCE MODE
:BRANCH AROUND CABLE TEST IF WE ARE, BIT O WILL BE CLEAR

:SEE IF THERE IS A CABLE

:BRANCH IF NO CABLE
:CABLE MODE TESTING LEAVES BIT 0 OF BAR SET.
:MOVE RECEIVED DATA TO RBAR
:CLEAR EXPECTED LOCATION
:MOVE EXPECTED DATA TO EBAR
:MOVE
:MAKE
:MAKE
:MOVE

CHECK ODD ADRS

EXPECTED DATA TO ECSR
SURE ERROR BIT IS CLEAR
SURE READY BIT IS SET
RECEIVED DATA TO RWCR

:BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL
:DOES CSR CONTAIN WHAT

[T SHOULD

*BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL

*BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WIL. CALL

RBAR, EBAR

gg.csp)

*DOES BAR CONTAIN WHAT IT SHOULD

:CORRECT PC RETURN TO AFTER THE ERROR CALL

CZDRLDO-DR11 GEN NPR INTF(
MACRC M1113 02-NOV-81 16:08
SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION

3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790 003526
3791 003532
3792 003536
3793 003542
379 003546
3795 003552
3796 003554
3797 003556
3798 003562
3799 003570
3800 003574
3801 003602
3802 003610
3803 003614
3804 003622
3805 003624
3806 003632
3807 003634
3808 003640
3809 003644

.SBTTL

J 5
PAGE 69

SEQUENCE

SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION

* %

v
e
i
i
i

TO THE SUBROUTINE.
THE ERROR AND RETURN JSR ARE TO BE LOCATED IN 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:

JSR

PC,DATCHK

JSR

PC.DATCh2

. %

w
w
* X

023737
001345
013716
062716
000207

002624
001362
000006

ERROR
CONT INUE

+201

;SUBROUTINE CALL

SERROR CALL

*RETURN TO SUBROUTINE AFTER ERROR RTS

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

E"ttttttttt.ttt'tt'ttttt'tittfittttltfittttttttttttt.fitttt'ti*ittti

001362
002620
002616
002624
002624
001362
177776
001370
000002
177776
001372
000002

THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR IN THE TEST AND RETURN

DATCHK: MOV

MOV

MOV
CLR
DATCHT: INC
CMP

BEQ

MOV

001364
001370
001366

001372
002622

DATCHZ

*BRANCH IF OK

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

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

DAT CHX

(MP
BNE
MOV

ADD
DATCHX: RTS

:SAVE PC RETURN

*STARTING ADDRESS OF CHECK BUFFER TO R2

MOV
MOV
SUB
MOV
MOV

SUB

DATCH2:

(SP) ,$TMP1

CHKBUF ,R2

#2.$TMPS

*STARTING ADDRESS OF IN BUFFER TO R3
*CLEAR LENGTH CHECK
*MAKE A COMPARISON
*1S THE DATA CORRECT?
*RESTORE ORIGINAL PC RETURN

:MOVE CHECK BUFFER CONTENTS TO 3TMP2
:MOVE ADDRESS +2 TO STMP4
SCORRECT SO IT POINTS TO ADDRESS CAUSING ERROR
:MOVE INPUT BUFFER CONTENTS TO $TMP3
*MOVE ADDRESS +2 TO $TMPS

SCORRECT SO IT POINTS TO ADDRESS CAUSING ERROR

*RETURN TO ERROR CALL - PC ON STACK ALREADY POINTS THERE

LENCHK ,BUFLEN
DATCH1

-SEE IF THE BUFFER HAS BEEN CHECKED
16O BACK FOR ANOTHER TRY IF NOT

#6, (SP)
PC

*CORRECT IT SO RETURN IS AFTER THE ERROR CALL
*RETURN

$TMP1, (SP)

*RESTORE PC RETURN

CZDRLDO-DR11 GEN NPR INTF(

SUBROUTINE TO RESTORE DR11

MACRO M1113

02-NOV-81

16:08

INT VECT & SET CPU PRIORITY TO 7.

3810
3811

#°

.SBTTL

EAEAR222

SEQUENCE

SUBROUTINE TO RESTORE DR17

2002222000000

INT VECT & SET CPU PRIORITY TO 7.

203 2000202232220
2222222}

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

3812
3813
3814

PAGE 70

3817 003646
3818 003654
3819 002662
3820 003666

012737
012777
005077
000207

000340
010000
176634

177776
176640

Fee

S ASASSAARRRRR22aRdRR000R
00 R 2dd
22022 0
2002232222280 022 )}

¢ ENUP: MOV
MOV
g%g

NLEVEL7,PSW
#MA,3CSR
gESR

JRESTORE CPU TO PRIORITY LEVEL 7

;DO AN INIT CLEARING WCR, BAR £ BDR BY SETTING
:?;?TCLEARING THE MAINT BIT AND CLEAR THE (SR

CZDRLDO-DR11 GEN NPR INTFC

SUBROUTINE

MACRO M1113 02-NOV-81 16:08 PAGE &1

SEQUENCE

TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA

3821

3822

3823
3824
3825

A
o
o

3858

. %

gggg

3829 003670

3830
3831
3832
3833

003676
003700
003706
003714

032737

001006
052737
052737
000207

0000064

002720

127000
127000

002572
002536

.SBTTL

SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA
e

R I

e e

THIS SUBROUTINE CHECKS THE DDW (DEVICE DESCRIPTOR WORD) FOR THE CABLE
BEING IN OR QUT AND SETS BITS 12, 10, 8 AND 6 IN THE EXPECTED DATA

LOCATION IF THE CABLE IS OuT.

E;ttttttttttfitt'ttttttt'ttt'ttttttttttttttttttttttttttttttttttttt

CHKCAB: BIT

1$:

BNE
BIS
BIS
RTS

#81T2,DDW

18
#127000,ECSR
#127000,BUT
PC

;CHECK FOR CABLE STATUS

JEXIT IF CABLE DOES EXIST
JSET BITS 12, 10, 8, 7 € 6 - CABLE DOESN'T EXIST
;SET BITS 12, 10, 8, 7 & 6 IN BITS UNDER TEST LOCATION TCO
JRETURN

L
PAGE 72

(ZDRLDO=DR11 GEN NPR INTF(
MACRO M1113
(02-NOv-81 16:08
SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF
.SBTTL
M

ALARAAARA

SUBROUTINE

SEQUENCE

TO CHECK CORRECT DATA PATTERN WAS MOVED TO [NBUF

AR 2022222222222}

° N

;v
Pe
- N

o)
(=4 lelelelelaloleloloTo
(=} Nt
e = OO
~ =t 2
W= OWVIWIANN —
(=) OO
&H NWWRI
N HPRONO NN
WANWNINN
=2 =2 NINWO O W
= NN NN
NN NI NN
N

023737

000207

THE

ERRORS ARE

FUTURE USE OF THIS

PC,DATOC2

*RETURN TO SUBROUTINE AFTER ERROR RTS

CONT INUE

+46

+47

T0 BE

"ERROR CALL

“2ND ERROR CALL

;SUBROUTINE RETURNS HERE WHEN DONE

S;t.t..Qt'.tt.t.t'tt't't""'t'Q'..tt.tt..'..t.t.'...'.ttt'.!.tt.

001362
052525
002616
002624
002624
001362
001364

177776

001370
000002
002624

001364
177776
001370
000002
001362
000006

72 004052

3873 004056
3874 004062

2 ERRORS.

JSR

DATOCK: MOV
Moy

[0}V

DATOCT:

CLR
INC

001370
002622

DATOC2:

001362
000010

001370

1¢:

DATOCX:

LENCHK
LENCHK

*CLEAR LENGTH CHECK
‘MAKE A COMPAR]SON

INBUF ,R3

JSTARTING ADDRESS OF

N BUFFER T0 R3

MOv

$TMP1, (SP)

;MOVE

-2(R3).,3TMP3

;MOVE RECEIVED DATA TO STMP3

DATOC2

MOV

R2.8TMP?

MOV

R3,$TMPL

SUB

#2,.3TMP4

(MP
BNE

LENCHK ,BUFLEN
DATGC

BNE
MOV
Mov
MOV
SuB

001366

;SAVE PC RETURN
;DATO NUMBER TO R?

R2,(R3)+

MOV

001366

(SP) ,$TMP1
#52525,R2

MpP

BEQ

CMpP

004012
004014
004020
004026
004032
004040
004044
004U50

TO CALL

: SUBROUTINE CALL

ERROR

3863 004010

3864
3865
3866
3867
3868
3869
3870

THE NEED

PC,DATOCK

(R2

HAS

JSR

ERROR

SUBROUTINE

LOCATED IN THE TEST JUST AFTER THE JSR CALL.
SUBROUTINE MUST BE HANDLED AS FOLLOWS:

3848 003716
3849 003722
3850 003726
003732
3852 003736
3853 003742
3854 003744
3855 003746
3856 003752
3857 003756
3858 003764
3859 003770
3860 003776
004000
3862 004006

THIS

DATOCX

R2,(R3)

‘BRANCH IF OK

OLD PC RETURN

TC STACK

JMOVE EXPECTED DATA TO $TMP?
*MOVE ADDRESS +2 TO $TMPS

;CORRECT ADDRESS SO IT POINTS TC ADDRESS CAUSING ERROR
;RETURN TO ERROR CALL

-SEE IF THE BUFFER MAS BEEN CHECKED
*BUFFER CHECKED?

(CHECK END OF BUFFER + 1

18
R2.$TMP?
~2(R3),$TMP3
R3,$TMPL
82 STMPL

*BRANCH IF NOT LOADED
:MOVE EXPECTED DATA TO $TMP?
;MOVE RECEIVED DATA TO $TMP3
*MOVE ADDRESS ¢2 TO $TMP4
*CORRECT ADDRESS SO IT POINTS

DATOCX

JRETURN TO ERROR CALL

MOV
ADD

$TMP1, (SP)
#6, (SP)

MOV
ADD
RTS

$TMP1, (SP)
810, (SP)
PC

;1S THE DATA CORRECT?

JCORRECT PC RETURN
JPOINT TO 2ND ERROR CALL

AFTER

JRESTORE RETURN ADLRESS
JPOINT TO PROPER RETURN AFTER
CEXIT

TO ADDRESS CAUSING ERROR
JSR PC.DATOCK

THE

ERROR CALLS

MACR0 M1113 (02-NOv-81
(ZDRLDG=DR11 GEN NPR INTF(
SUBROUTINE TO CLEAR TE AND HALT IF ERROR IS SET
.SBTTL

3875
3876
3877

PAGE 73

SEQUENLE

SUBROUTINE TO CLEAR JE AND HALT IF ERROR IS SET

:;Qtt...t't'tQtt.'t'ttt'tt'."t't'."Q....tt'.t.Q..t'..."'.'..'.

3878

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

JSR

T
P

3879

3880
3881
3882
3883
3884
3885
3886 004064
3887 004072
3888 004100
3889 006106
3890 0064114
3391 004122
3692 004126
3893 004134
3894 004140
3895 004144
3896 006146
3897 006152

16:08

‘e
=~

1S TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL.
{HIS SUBROUTINE MUST BE HANDLED AS FOLLOWS:
PC.ERRCHK

ERROR
+21
CONT INUE

THE ERROR

FUTURE USE OF

; SUBROUTINE CALL

*ERROR CALL
SUBROUTINE RETURNS HERE IF NO ERROR

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

000100
176426
002560
100000
000200
002560
000200
077577
000200
000002

176630
002560
002572
002572
002572

E:lQtttit.tt'.fi'..'."'.'."'..'.'.'..Q.."Q'.'Q"'..t..""..'.'
ERRCHK: BIC
#1E.3CSR
:CLEAR IE
MOV
aCSR.RCSR
*MOVE RECEIVED DATA TO RCSR
MOV
RCSR.ECSR
‘MOVE EXPECTED DATA TO ECSR
*CLEAR THE ERROR BIT
#ER,ECSR
BIC
BIS
#RY _ECSR
'SET THE READY BIT

001360

MOV

%SRRI

*MOVE DATA TO R1 FOR CHECKING

BIC

#77577 R

*CLEAR ALL BUT THE ERROR AND READY BITS

#2.(SP)

*CORRECT PC RETURN - DATA OK

MOV

1¢:

ARY , $TMPO

CMP
BNE

#RY R
18

RTS

ADD

*MOVE EXPECTED DATA TO $TMPO

*SEE IF ERROR BIT IS CLEAR AND READY IS SET
"BRANCH AROUND PC CORRECTION SO ERROR WILL CALL
JEXIT

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113 02-NOV-81 16:08 PAGE 94

SEQUENCE

SUBROUTINE TO RESET THE ''.+2'° AND "BPT'' LOCAT.ONS
3898
3899
3900
3901

RN
ot
B

ggg%

el
o

(V]

BETWEEN 4-776.

012700
012701

3908 004166
3909 004170
3910 004172
3911 0064174
3912 004176
3913 004202
3914 004204
3915 004206
3916 004210
3917 004212
3918 004214
3919
3920 004216

012003
010204
005724
010422
012722
022424
020203
001372
005301
001364
000207

3921 004224

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

3905 00641564
3906 004160

3907 004164

.SBTTL
SUBROUTINE TO RESET THE '‘.+2'' AND "BPT'' LOCAT]IONS
NN R R AN AR AN N R P N R RN AN R AN N R R AN N RN AN N RN AR IR E RGN TR AR AR

012002

000004

000174

004216
000003

000254

EEA

001000

02222022022022222322323232323222322322322222¢82

#BPTINT RO
#3 .R1

;POINT RO TO TABLE OF BPT INIT LOCATIONS
;DO 3 SETS OF ‘'.+2'° AND 'BPT''
SETUPS

MOV
MOV
TST
Mov
MoV
CMP
CMP
BNE
DEC
BNE
RTS

(RO) +,R3
R2,Ré
(R4)+
R4, (R2) ¢
#BPT,(R2)+
(R4)+,(RG)+
R2.R3
2%
R1
18
PC

;MOVE END ADDRESS TO R3
:MOVE ADDRESS TC Ré
s INCREMENT R4 TO PRODUCE THE '°.+2'° NUMBER
sMOVE THE NUMBER TO THE LCCATION
;MOVE 'BPT'' TO THE NEXT LOCATION
;ADD 4 TO Ré4
;SEE IF WE HAVE DONE ALL FOR THIS LOCATION
;BRANCH BALK FOR ANOTHER TRANSFER IF NOT
;DECREMENT R1
:BRANCH BACK IF 3 GROUPS NOT DONE
JEXIT

.WORD

4,14,50

;ADDRESSES USED TO PUT *'.+2'' & 'BPT'' BACK

2$:

000050

BPINIT: MOV
Mov

1%:

000003

000014

BPTINT:

MOv

"WORD

(RO +,R2

174,354,1000

sMOVE START ADDRESS TO _R2

CZDRLDO-DR11 GEN NPR INTF(
SUBROUTINE TO EXTRACT

MACRO M1112

02-NOV~81

INFORMATION ABOUT THE DR11

3922

.SBTTL

16:08

c 6
PAGE 75

SEQUENCE

SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11

3923

N AR RN A RN

3924
3925
3926
3927
3928

o
M
A
o¥
s

THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR11 THAT INTERRUPTED
AND LOADS THE DATA FOUND INTO THE DEVICE DESCRIPTOR WORD FOR THAT
BOARD. (ADDED TO REV 'F'): ALSO DOES A MINI-TEST OF THE CSR TO MAKE
SURE BOARD IS A DR11, EXITING WITH A MODIFIED RETURN IF IT FAILS THIS

3931
3932 004232
3933 004240
3934 004244

:.tt*tttttttttttttttttttttttttttttttttttttttttttttttttttt‘ttttttt
DRGET:
MOV
#LEVEL7 ,LEVEL
sMOVE PRIORITY 7 TO LEVEL
MOV
#LEVELS.RS
:HOVE ADDRESS OF PRIORITY LEVELS TO R3
MOV
#6 R4
;D0 & PRIORITY CHECKS

%g%g

3935 004250

3936
3937
3938
3939

004256
004262
004264
004272

3940 004300

3941 004304
3942 004306
3943 0064312
3944 0046316
3945 004320
3946 004326
3947 004334
3948 004342
3949 004344
2950

012737
012703
012704

000340
004732
000004

012710
005010
013737
9012737

010000

012737

012337

000240
012710
005337
001375
012737
013737
162737
005304
001341

002540

000400

002660

000014
004520

001362
000014

177776

000105
002660

000340
001362
000040

177776
000014
002540

P AN

AN AN AR N AN AN NI AN AN

NN AN NRANCRAR

MINI-TEST.

MOV

#460.TIHE

JSET UP WAIT LOOP COUNTER

MOV
CLR
MOV
MOV

#MA, (RO)
(RO)
BPTV. T, S$TMP
#98 BPTVCT

sSET THE MAINTENANCE BIT AND
;CLEAR T0 DO AN INIT
;SAVE BPT TRAP VECTOR
JINTERRUPTS TO 9%

NOP
MOV
DEC
BNE
MOV
MoV
SuB
DEC
BNE

#IE+F2+GO,(RO)
TIME
2%
#LEVEL7 ,PSW
$TMP1,BPTVCT
#40,LEVEL
R4
18

KILL A LITTLE TIME
;SET IE, FNCT2 AND GO ATTEMPTING AN INTERRUPT
DECREHEN( TIME
:BRANCH BACK UNTIL ZERO
;SET CPU PRIORITY BACK TO 7
JRESTORE BPT TRAP VECTOR
sPUT LOCATION °*LEVEL' AT NEXT PRIORITY - INTERRUPT FAILED
;DECREMENT LOOP COUNTER
JBRANCH BACK IF NOT ALL PRIORITY LEVELS CHECKED YET

MOV

2%:

(R35+ PSW

;SET CPU FRIORITY TO NEXT LEVEL

: tttlttttttttttttttttttttttttttttttttttttttQtttttttttttttttttttt

3951
3952
3953
3954
3955

. IF ROUTINE GETS HERE AND YOU ARE NOT IN A MANUFACTURING ENVIRONMENT, AND
; IT IS A DR11, YOU PROBABLY HAVE A BAD BOARD.
PROMPTING USER FOR THE VECTOR
WILL ALLOW ONE MORE OPORTUNITY TO CHECK THE DR11 WITHOUT HAVING TO GO INTO
; MANUAL MODE.
IT IS EVEN *MORE* IMPORTANT FOR THE USER TO =MAKE*SURE* THE
; REST OF THE DATA (l1.E. CABLE STATE, ETC.) IS AS THE MODULE IS SET UP.

2956

3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968

1$:

SNERNRARR RN R AR AN

006346
004354
004356
004364
004366
004372
004376
004402
004406
004410
004414
004416

132737
001165
032777
(001161
104401
012703
004737
020427
100403
022704
100003
104401

000001

001430

010000

174754

004762

A ¥

3970 004426
3971 004430
3972 004432

032794
091403
104401

000003

5%:

3969 004422

3973 004436

3974 004440

3975 004442

000751

000743

010412

000774

005017
005056

004737

002722

012703

3978 004456

022704

3977 004452

004742
000003
002722
000300

104401

3976 004446

$$:

000001

000003

55%:

6$:

RAN AR E A RN RNA RN RN ARNR NN ANARAARNANARNRNANNRRNRNR

81718
BNE
8IT
B8NE
TYPE
MOV
JSR
(MP
8M]
(MP
BPL
TYPE

#8IT0,SENV
148
#BIT12,3SWR
148
LASK&V(
#3,R3
PC,READ
R4 ,#300
43
#774 R4
5%
OUTORG

JSEE IF WE ARE UNDER APT
;DPMO01
8RANCH ouUT IF SO
;DPMOO1
;IS THIS A MANUFACTURING ENVIRONMENT?
: DPMOO1
BRANCH IF SO - ASSUHtD TO NOT BE A DR11;DPMOO1
;TYPE:
' INPUT VECTOR
? °*
;0PMO01
JEXPECT 3 DIGITS
:DPMO01
;G0 READ VECTOR INPUT
. DPMO01
;SEE IF VECTOR INPUTED IS BELOW 300
;DPMO01
;JBRANCH IF LESS THAN 300
; DPMO01
sSEE IF VECTOR IS ABNVE 774
:DPMOO1
sBRANCH IF NOT TO LOAD INFO
;DPMOO1
JTYPE:
°VFCTOR OUT OF 300-774 RANGE'
- DPMO01

8IT
BEQ
TYPE

#3,Ré4
55%
NOTVEC

JMAKE SURE BITS 0 & 1 ARE CLEAR
;0PMO01
JBRANCH IF 0K
: DPMOO1
JTYPE:
°'VECTOR IS NOT A MULTIPLE OF &' ;DPMOO1

MOV

R4, (R2)

sMOVE INPUTED VECTOR TO LOCATION

; DPMOON

MOV

" .R3

JEXPECT 1 DIGIT

. DPMOO1

CMP

#3 R4

JSEE IF INPUT IS BELOW 4

.DPMO01

BR
BR

TYPE

JSR

LASK4PR

PC.READ

:BRANCH BALK FOR ANOTHER TRY
JBRANCH BACK FOR ANOTHER TRY

;TYPE:

°INPUT BOARD BR PRIOR]ITY'®

;60 GET PRIORITY

: DPMOO1
:DPMO01
;DPMOO1

s DPMOOY

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOV 81
SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11

3979 004462
3980 004464
3981 004470
3982 004472
3983 004476
3984 004500
3985 004502
3986 004504
3987 004506
3988 004510
3989 004512
3990 004516
3991 004520

100003
020427
100403
104401
000761
006304
006304
006304
006304
006304
010437
000410
012737

8PL

000007
7%:

005107

002540
000340

000001

R4, LEVEL

10§

NLEVEL? ,PSW

177776

(SP), (R2)

#%,

000014

000400

000002
002560
127000

LEVEL, (R1)
$TMPT.BPTVCT
SDEVM

QTYBRD
#EIR, (RO)

(RO) ,REIR
(RO)
#MA, (RO)
(RO)

002562

#BITO,REIR
118
#BITO, (R1)

002562

002560

12$

#N2,REIR
128

118$:

#8IT1,(R1)
(RO) RCSR

12%:

cgzrboo RCSR

000004
002560
010000

020000

#F2,(RO)
(ROJ ,RCSR

#MA, (RO)

002560

000004
006122

EENUHB.Ré

R4
RO,REGADR (R4)
#4 ,REGADR (R4)
;?1)*,(R2)+

002416

bt ok

LEVELS:
NNOON
OWWNO

[+ JV 1V, To 3

11
126
126
11

000240
000140
d =d

000300
000200

#B81T12,(R1)

138:

14%:

162764
022122
000207

002416
000004

—b

4013 004642
4014 004650
4015 004652
4016 004656
4017 004662
4018 004666
4019 004670
4020 004676
4021 004700
4022 004704
4023 004710
4024 004712
4025 004714
4025 004720
4027 004726
4028 004730
4029
4030 004732
4031 004736
4032 004742
4033 004762
4034 005017
4035 005056

(R2)

#10,sP

108:

000001

4012 004636

sBRANCH IF SO TO TELL USER IT IS WRONG
;SEE IF INPUT IS ABOVE 7
sBRANCH TO LOAD DATA IF OK
sTYPE:

'PRIORITY QUT OF 4~7 RANGE'

:DPMO01

;DPMO01

;DPM0O01
:DPMO01
:vPMO01
:DPMO01
;DPMO01
:DPM0O01

:DPMO01

010000

004620
004622
004630
004632

78
R4 47
8$

SEQUENCE

¢BRANCH BACK TO TRY AGAIN
sSHIFT LEVEL OVER 5 PLACES

001466
002414
100000
002562

4008
4009
4010
4011

D 6
PAGE 75-1

8%:

000004
000010
002540
001362

16:08

ASK&4V(:
OUTORG:
NOTVEC:
ASK4PR:

LEVEL6,LEVELS
LEVEL4 ,LEVEL3

;PUT PRI LEVEL INTO THE LEVEL LOCATION
;BRANCH OVER DR11 INTERRUPT HANDLER
sSET _CPU PRIORITY BACK 10 7
sMOVE VECTOR+4 TO VECTOR LOCATION
sVECTOR IS WRONG - CORRECT IT

sCLEAN STACK

sSTORE THE OBTAINED PRIORITY LEVEL

;DPMO01

;DPM001

;DPMO01
:DPMOO1
;DPMO01

sRESTORE BPT TRAP VECTOR
sSET THE CARRY BIT FOR THE ‘ROL'
;DPMO01
MAP
DEVICE
IN
EXISTENCE
DEVICE
sINDICATE
s INCREMENT DEVICE COUNT
:GO TO EIR TO GET B/W STATE
cMOVE EIR TO REIR
;GO BACK TO CSR
¢SET THE MAINT BIT

:D0 AN INIT
;TEST FOR B/W STATE

:BRANCH IF A W

;SET STATE IN DEVICE DESCRIPTOR WORD
;GO TO CABLE STATUS TEST
sCHECK 2/N CYCLE STATE
sBRANCH IF 2 CYCLE
cN CYCLE - SET BIT IN DEVICE DESC

sMOVE RECEIVED DATA TO RCSR TO GET CABLE STATUS

sCHECK IF ANY BITS ARE SET - THEY ARE IF NO CABLE
¢BRANCH IF NO CABLE
sCABLE IS POSSIBLY IN = SET FNCT2
:MOVE RECEIVED DATA TO RCSR
;SET THE MAINTENANCE BIT
sCLEAR THE CSR TO DO AN INIT
sTEST THE ATIN BIT
sBRANCH IF NOT SET - NO CABLE
sSET CABLE BIT IN DEVICE DESC
-MOVE BOARD NUMBER TO R4
sDECREMENT FOR CORRECT OFFSET
cSHIFT LEFT TO PRODUCE WORD OFFSET
+MOVE CSR ADDRESS TO LOCATION AND
:SUB 4 TO FORM ADDRESS FOR THIS MODULE
:2;1% R2 GET NEW DEVICE & VECTOR LOC'S

sPRIORITY LEVELS TO LOAD INTO THE PSW

i INPUT VECTOR ?

.
.

{VECTOR OUI OF 300-774 RANGE:<CRLF>

tVECTOR IS NOT A MULTIPLE OF 4:<CRLF>
INPUT BOARD BR PRIORITY .

DPH001

CZDRLDO-DR11 GEN NPR INTF(C
MACRO M1113 02-NOV-81
SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11
4036 005107
4037

120

122

111

PROUT:

.ASCIZ
.EVEN

16:08

E 6
PAGE 75-2

IPRIORITY OUT OF 4=7 RANGE:<CRLF>

SEQUENCE
;DPMO01

CZDRLDO-DR11
SUBROUTINE

GEN NPR INTF(

MACRO M1113

02-NOV-81

TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS

4038
4039
4040

4041

oTM

.SBTTL

F
6
PAGE 76

16:08

AAR222R00

SEQUENCE

SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS
2200

d0d0RRdlRf 2200200203282
22 222322308222 232 0]

THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS FOUND BY ASIZE

‘t

SARARAANANARAARARARRE
AR AN R RANANRANRARAARAARA AR AN AN AN NCAORS

005037
013705
012701
012702
005003
104401

013746

104405
104401
012700
032705
001466

013746

104405
104401
011145
104402
104401
011246
104403

003

104401
016337

032737
001403
104401

000402
104401
104401
004737
104401
032737
001403
104401
000402
104401

2
4082 005350
4083 005352
4084 005356
4085 005360
4086 005364
4087 005370
4088 005374
4089 005376
4090 005400
4091 005404
4092 005406
4093 005410
4094 005414

1} PCNF:

002662
001466
002416
002456

CLR
Mov
MOV
MOV

CLR
TYPE
MOV
TYPDS

037535
002414
037574
000020
000001

1%:

LOOP
$DEVM,RS

#REGADR,R1
#VECADR,R2

,NOBUT

QTYBRD,-(SP)

,BRVWPC

#16.

#8170 ,RS

002662

8s
LOOP,=\SP)

037361

.SPACES

037361

.SPACE6

000
037370
001474
000001

(R1),- (SP)
(R2) ,=(SP)

3.0

.SPACE7

002720

$DDWO(R3) ,DDW
ggITO,DDU

002720

037405
037407
037370
006560
037370
000002

2$:
3$:

002720

000002

000207

001405

s SAVE REGISTER ADDRESS FOR TYPEOUT
sPRINT DEVICE REGISTER ADDRESS

sTYPE 6 SPACE CHARACTERS

sSAVE VECTOR ADDRESS FOR TYPEOUT

sPRINT VECTOR ADDRESS

;PRINT 3 DIGITS, LEADING ZEROS SUPPRESSED

;TYPE 7 SPACE CHARACTERS

sMOVE DEVICE DESCRIPTOR WORD TO DDW

;TEST WHICH STATE, B OR W,

;GO PRINT W STATE IF W
CHECK
;GO TO NEXT
l“l

J'TYPE A

sPRINT DEVICE PRIORITY

;TEST 2/N CYCLE STATE

;GO PRINT 2 STATE IF 2

“TWO

#BIT2,DDW

:TEST CABLE STATE

"SPACE7

(21)* (R2)+

FOR THIS SOARD

:TYPE A

TYPE AN °'N’
160 TO NEXT CHECK
JTYPE
A '2°

§s

6$%:

8s:

sTYPE 6 SPACE CHARACTERS

sTYPE 7 SPACE CHARACTERS

037414

037411
001405
002662

sSET UP LOOP COUNTER FOR 16 BOARDS
sDEVICE UNDER TEST?
:BRANCH IF NO
sPUT BOARD # ON STACK FOR TYPEOUT
sPRINT BOARD # (0 TO 16)

,SPACE7
N

002720

s TYPE THE NUMBER
sTYPE THE HEADER

sTYPE 7 SPACE CHARACTERS

:GET DEVICE MAP
sMOVE THE ADDRESS OF THE REGISTER ADDRESS TABLE TO R1
sMOVE THE ADDRESS OF THE VECTOR ADDRESS TABLE TO R2
:CLEAR THE DEVICE DESCRIPTOR ADDRESS POINTER
:TYPE:
'NO. BOARDS UNDER TEST:
sMOVE THE QUANTITY TO THE STACK FOR TYPEOUT

SPACE7

PC,PNTPRI

#8171,DDW

037422
037420
037370
000004

¢CLEAR THE BOARD NUMBER COUNTER

STYPE 7 SPACE CHARACTERS

:GO PRINT *NO'

IF NO CABLE

;TYPE °YES'
GO _TO LOOP CHECK
;TYPE °NO*
:TYPE A <CRLF>
: INCREMENT BOARD COUNT FOR POSSIBLE NEXT PASS

#2 ,R3
RO
18

s INCREMENT COUNTERS
;SHIFT R5 TO THE RIGHT TO MOVE BOARD BIT INTO BIT 0
;ADD 2 TO THC DEVICE DESCRIPTOR WORD POINTER
sDECREMENT THE LOOP COUNTER AND
sBRANCH BACK FOR CHECK IF 16 BOARDS NOT DONE

SEXIT

LSCRLF

s TYPE ANOTHER <CRLF>

CZDRLDO~DR11 GEN NPR INTF(
MACRO M1113 02-NOV~81
SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION
6095
4096
4097
4098
4099
4100
410
4102
4103
4104
4105
4106
4107
4108
4109
64110

.SBTTL

CAANNARNA

};
:t
;t

005416
005422
005430
005436
005444
005452

004737
013737
012737
013737
012737
132737

004154
000004
005724
000006
000340
000001

002672
000004
002674
000006

010000

173650

4125
6126
4127
4128
4129
4130

012703
04737
022737
001156
005037
012700
012701
005020
005301
001375
005037
012737
012701
012702
012737

000001
002722
000131

NN
OV

Y
W W

d e
d

002414
001466
000001
160014
001474
002456

U S
[ N6 Y Y

WWNN

006401

o F oF WF o F o o

104401

THE CONFIGURATION IF

THE TABLE WAS MADE BY THIS ROUTINE.

002414

SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION

AN RANRRAAARANN AR AP AAANNNANRARNAANARARNANRARNRARRARANRNEY

THE PRINTING OF

005737
001414

—

SEQUENCE

USER THAT SYSTEM IS OPERATING UNDER AN OPTION MANUFACTURING CONFIGURATION (NO OTHER DEVICES HAVING CSR'S SIMILAR TO THAT OF A DR11), OR
PROMPTS USER FOR EACH DR11 ADDRESS (SEMI-AUTOSIZE).
IT THEN (aLLS FOR

001004
032777

PR 2P X

G_ 6
PAGE 77

THIS SUBROUTINE AUTOSIZES THE BOARD CONFIGURATION IF PROMPTED BY THE

005460
005462
005470
005472
005476
005502
005510
005514
005520
095524
005526
4122 005532
4123 005534

005540
005544
005550
005556
005560
005564
005570
4132 005574
4133 005576
4134 005600

4136
47137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149
4150
4151

16:08

005606
005614
095620
005624
005632
005636
005642
005644
005645
005646
005652
005656
005662
005664
005666

104401

013746
104403
002
000
104401

012703
004737
005704
001505
022704

001430

JSR

006122

002664

BNE
BIT

MOV
MOV

1008
#BIT12,3SWR
19
QTYBRD
SDEVM
#1,8DNUMB
#160014
RO
#$DDWO ,R1
#VECADR ,R2

TST

QTYBRD

TYPE

LDYWTLT

8EQ
(LR
CLR

B8R

BEQ

#BITO,SENV

108

MOV
JSR
CMP

#1,R3
PC,READ
#'Y,ANSWER

CLR

QTYBRD

BNE
2$:

Rldfl

TOVECT,OLDPC1
#78,TOVECT
TMOPSH OLDPS1
#340, TMOPSW

MOV
MOV

1%:

0220000

PC,BPINIT

MOV
MOV
MOV
MOV

BITB
1008:

002414
001474
000020

001466
000001
001474
002456
000067
006124
006122

EAEEAS2RRdRaR2

ASIZE:

138

006122

MOV
MoV
(LR
DEC
BNE
CLR
MOV

#$DDWO RO
#6. R
(RO)+
R1
33
SDEVM
#1 ,BDNUMB

002704

MOV

#'7 ,LRGSTC

3s:

MOV
MOV

4%:

#$DDWO ,R1
#VECADR
R2

TYPE
MOV
TYPOS

. INDEV
BDNUMB,
- (SP)

006142

.BYTE

TYPE

000006
002722

MOV

#6.R3

TST

Ré

160010

JSR

BEQ
CMP

,STAD

PC,READ

12%
#160010,R4

2202

2802022222802 38

232021

;GO RESET THE '*.+2'' AND 'BPT‘' LOCATIONS

:SAVE TIMEOUT VECTOR

: TIMEOUTS TO 7%
;SAVE TIMEOUT PS

¢ TIMEOUT PRIORITY TO 7
cSEE IF WE ARE UNCER APT
:BRANCH OUT IF SO
;DOES USER WANT 100X AUTOSIZE?
:BRANCH IF NOT

:CLEAR DEVICE COUNT
sCLEAR THE DEVICE MAP
sSTART WITH BOARD NUMBER 1
sMOVE START ADDRESS OF WINDOW TO RO
sLOAD DEVICE DESC ADDRESS
sPOINT R2 TO UNIT #1 VECTOR ADRS LOC
;GO _START THE DR11 SEARCH
sSEE IF TABLE HAS BEEN LOADED

:?eégCH TO LOAD TABLE IF NOT
‘D0 YOU WISH TO CHANGE
THE CONFIGURATION (Y OR <CR>)°

SEXPECT 1 CHARACTER
:GO READ 1 CHARACTER OF USER INPUT
JWAS A <Y> INPUTED?

;BRANCH OUT OF ROUTINE IF NOT
sCLEAR DEVICE COUNT
;MOVE ADDRESS OF 1ST DDW TO RO

;CLEAR 16 WORDS

sCLEAR THE WORD
;DcCREMENT THE LOOP COUNTER AND
¢BRANCH BACK IF NOT DONE YET
sCLEAR DEVICE MAP
sSTART WITH 1 BOARD

sLOAD DEVICE DESC ADDRESS

JPOINT R2 TO_UNIT #1 VECTOR ADRS LOC
;
:?egg ASCII 7 TO LRGSTC FOR OCTAL INPUT ;
' INPUT DEVICE

s SAVE BDNUMB FOR TYPEOUT
;TYPE THE BOARD NUMBER

;TYPE 2 DIGITS
:?9;2RESS LEADING ZERQS

'STARTING ADDRESS

(<CR> IF NO MORE)'

;EXPECT 6 DIGITS
;GO _READ THE USER'S INPUT
:SEE IF AN INPUT WAS MADE
sBRANCH OUT IF NO MORE
;SEE IF ADDRESS IS TOO LOW

CZDRLDO-DR11 GEN NPR INTF(
MACRO #1113 (02-NOV-81
SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION

000751
032704
001425
104401

000743
022626
132737
001004
032777
001406
062709
022700
001007
000447
104401

000721
010400
062700
005010
010146
004737
020126
001010
132737
001022
032777
001754
022737
001417
005237
132737
001004
032777
001662
062700
022700
001337
013737
013737
004737
000207
000000
111

—

-2

040
103

172770

006255

5%:

000007

006335

000001

001430

010000

173374

78:

000010
173004

75%:

006207

8%:
9%

000004

108:

004232

000001

001430

010000

173310

000020

006122

006122
000001

001430

010000

173254

000010
173004
002674

118:

#172770,R4
63

B8R
BIT
BEQ

43
#7 R4
9

B8R
CMP
BIT8B
BNE
BIT
8EQ

TYPE

ADD

CMP
BNE
BR
TYPE
BR
MOV
ADD
CLR
MOV
JSR
CMP
BNE
8IT8

BNE
BIT
8EQ
CMP
BEQ

.OUTRAN

.NOTST

(SP)+,(SP)+
#8170, SENV
75%
#BIT12,3SWR

#10,R0

#175004 ,RO
108
128
,NO8D

48
R4 RO
#4 RO
(RO)
R1,=(SP)

PC.DRGET

R1.(SP)+

11$

#81T0,$ENV
1108
#BIT12,3SWR
8s

#16. ,BDNUMB

12$
BDNUMB

#81T0,SENV
1108
#8IT12.,35WR

4
#10,R0

110%:

000006
000004

H_6
PAGE 77-%

BHIS
CMP
BHIS

TYPE

QO b b b b =
SN0 =NIN)
OO0

103003

022704
103003
1046401

O=0O
S ON—

4152 005672
6153 005674
4154 005700
4155 005702
4156
4157 005706
4158 005710
6159 005714
6160 005716
4161
4162 005722
6163 005724
4164 005726
4165 005734
4166 005736
4167 005744
4168 005746
4169 005752
4170 005756
“an 005760
4172 005762
4173
4174 005766
4175 005770
4176 005772
6177 005776
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4N
4192
4193
4194
4195
4196
4197 006106
4198 006114
4199 006120
4200
4201 006122
4202
4203
4204
4205
4206
4207 006401
4208

16:08

#17%004,R0

108
OLDPS1, TMOPSW
OLDPC1,TOVECT

128:

138:
BDNUMB:
INDEV:
STAD:
:
NO8D

PC,TYPCNF
PC

SEQUENCE

;DPMO01
:DPMO01
DPH001

sBRANCH TO REPORT ERROR INPUT IF SO
sSEE IF ADDRESS IS TOO HIGH
sBRANCH IF 0K
TYPE

'ADDRESS OUT OF 140010-172770
RANGE = TRY AGAIN'
GO DECREMENT BDNUM AND TRY AGAIN
:SEE THAT ADDRESS IS A START ADDRESS

:BRANCH IF OK

'NOT A STARTING ADDRESS TRY AGAIN'
:GO DECREMENT BONUM AND TRY AGAIN
sCORRECT STACK AFTER TIMEOUT

'TYPE'

;SEE IF WE ARE UNDER APT
¢BRANCH OUT IF ROT

sSEE IF UNDER MANUFACTURING ENVIRONMENT ;
:BRANCH IF NOT
;
sMOVE TO NEXT MODULE ADDRESS
sHAVE WE LOOKED OUT THE ENTIRE WINDOW?
sBRANCH IF NOT - MORE DAYDREAMING
:?$£2CH TO EXIT - BOSS JUST CAME IN
‘CAN'T SEE THE DR11 BOARD TRY AGAIN'
:BRANCH BACK FOR NEW INPUT
:MOVE CHECKED ADDRESS TO RO

:HAKE RO ADDRESS THE (SR
JMAKE SURE IT IS THERE
;SAVE PRESENT VALUE OF RT ON THE STACK
;GO EXTRACT INFO FROM THE DR11
JWAS THE LOCATION A DR11?
;JBRANCH TO BOARD INCREMENT IF SC
;SEE IF WE ARE UNDER APT
JBRANCH 0OUT IF SO

;BRANCH 0OUT IF SO

IS THIS A MANUFACTURING CONFIGURATION? ;
;G0 CALL ERROR IF NOT
;SEE IF THE TABLE IS FULL
JEXIT IF SO
; INCREMENT BOARD NUMBER
;SEE IF WE ARE UNDER APT

sSEE IF UNDER MANUFACTURING ENVIRONMENT ;
:
JBRANCH IF NOT
JMOVE TO NEXT MODULE ADDRESS
sHAVE WE LOOKED OUT THE ENTIRE WINDOW?
sBRANCH IF NOT - MORE DAYDREAMING
;RESTORE TIMEOUT PS
JRESTORE TIMEOUT VECTOR
:ggI}YPE THE BOARD CONF ]GURAT JONS

sLOCATION TO HOLD BOARD NUMBER

OUTRAN: .

1 NPUT Ut DEVICE !
STARTING ADDRESS (<CR> IF NO MORE> |
CAN ‘T SEE THE DR11 BOARD - TRY AGAINI<CRLF>
ADDRESS OUT OF 160010-172770 RANGE - TRY AGAIN:<CRLF>

OYWILT: .

DO YOU WISH TO CHANGE THE CONFIGURATICN (Y OR <CR>)

NOTST:

NOT A STARTING ADDRESS = TRY AGAIN:<CRLF>

CZDRLDO-DR11

ROUTINE

GEN NPR INTF(

MACRO M1113

02-NOV-81

TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR

4209

BEAE2X40020 2000
*

6211
4212
6213
6214
4215
4216
4217
4218

4219
4220
4221
4222
4223
4224

INTERRUPTS

.SBTTL

4210

16:08

6
I
PAGE 78

SEQUENCE

ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS
02200000

R 02

2020022232233

3282232322222

222 0223022 ]

THIS

1S THE ROUTINE

TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS

006466
006474
006500
006504
006510
006514
006522
006524
006530
006534

000340
002542
002674
002676
002700
000004

000002

002700
002676

177776

002542

CATCH:

MOV

MOV
Mov
MOV
MOV
Sus
ERROR
MOV
MOV
RT]

2000

220d0000202

#LEVEL?7,PSW
(SP)+ ,BDVECT
(SP)+,0LDPST
(SP)+,0LDPC2
(SP)+,0LDPS2

#6 BDVECT

+50

OLDPSZ2,=(SP)
oLDP(C2,-(SP)

02002

2022222323223 2232223222232222¢223

JREESTABLISH CPU PRIORITY AT 7
JGET ADDRESS OF TRAP VECTOR + 4
JSAVE PS
;SAVE PC OF ADDRESS OF INSTRUCTION CAUSING TRAP
;SAVE 2ND PS
;ADJUST TO POINT TO TRAP ADDRESS
JUNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW
JRESTORE PS RETURN ON STA(CK
JRESTORE PC RETURN ON STACK

SRETURN

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

SUBROUTINE TO PRINT STATE OF A DDW BIT

64225

02-NOV-81

(226

6227
4228

o
o

25%8

423

o
%

4232 006536
4233 006540

005046
033737

4235 006550

005216

4234 006546

4236 006552
4237 006554
4238 006556

001401

104403
00 1
000207

.SBTTL

J 6
PAGE 79

16:08

SEQUENCE

SUBROUTINE TO PRINT STATE OF A DDW BIT
e

THIS SUBROUTINE PRINTS THE STATE OF

PRELOADED INTO BITTST.

THE BIT IN THE DDW THAT WAS

;;tttttttttttttttttt!tttttttttttttttttttttttttttttttttttttttttttt

002710

000

002720

PSTATE: CLR
BIT

BEQ

18:

INC

TYPOS
.BYTE
RTS

=(SP)
BITTST,DDW

:SHOW STATE AS ZERO INITIALLY
JCHECK STATE OF BIT IN DDW USING BIT SET IN BITTST

(SP)

JSHOW A '1' STATE FOR THAT BIT

1.0
.
PC

;BRANCH IF NOT SET

sTYPE THE STATE, LEADING (EROS SUPPRESSED
;TYPE 1 CHARACTER, SUPPRESS LEADING ZEROS
JEXIT

MACRO M1113
CZDRLDO-DR11 GEN NPR INTF(
SUBROUTINE TO PRINT DEVICE PRIORITY
4239
4240

6241
4242
4243
4244
4245
4246
6247
4248
4249
4250
4251
4252
4253
6254

02-NOV-81

16:08

.SBTTL

K 6
PAGE 80

SEQUENCE

SUBROUTINE TO PRINT DEVICE PRIORITY

LSRR 2222220202022
22 202022282323 2322232222232322222¢22

THIS SUBROUTINE PRINTS THE DEVICE PRIORITY

L
*

00656G
006564
006566
006570
006572
006574
006576
006602
006604
006606

013746
006216
006216
006216
006216
006216
042716
104403
001
000207

002720

177770

000

22022028020

PNTPRI:

d0dRRRR

2202202323 202

%22222

22021}

DDW,~(SP)
fgg;

sPUT DEVICE DESCRIPTOR WORD ON STACK
;SHIFT RIGHT STACK LOCATION 5 PLACES

8IC

(SP)
(SP)
(SP)
#177770,(SP)

¢MASK TO GET PRIORITY

.BYTE

;EO

:g;?g 1

MOV
ASR
ASR
ASR
ASR
ASR
TYPOS

RTS

cTYPE

THE

DEVICE PRIORITY

CHARACTER, SUPPRESS LEADING ZEROS

MACRO M1113
CZDRLDO-DR11 GEN NPR INTF(
INITIALIZE THE COMMON TAGS SUBROUTINE

02-NOV-81

.SBTTL

16:08

PAGE 81

SEQUENCE

INITIALIZE THE COMMON TAGS SUBROUTINE

CHRARARARAAARAAARCANRAN
RO RN AN NAANANNCRNANOANNRANRNRAANRAN RO NN
AN

‘i

e
P

i
* %

4265 007060
4266 007064

BN
—b d e (O b o
b b
b D b
b
ASIAS TSIV IVIT NI NI N1, S1,N1,S1,0]1,¥)

[eloPHelolelelelelelelnle

000004
007010
177570

177570
177777

403

002
N
~

007006
007010
007014
007016
007024
007032
007036
007942
007050
007052
007060

ON)
= o —d =
—=NNNNIW

006750
006754
006762
006770
006776
007004

D OWO = == OO
PR=MNWVNLNNONO

006672
006700
006706
006714
006722
006726
006734
006742

031200
000340
032656
000340
031112
000340
034074
000340
026102
001376
000001
006734
006742

.SBTTL

:CALL THE SUBROUTINE

INITIALIZE THE COMMON TAGS

MOV
CLR
CMP
BNE
MOV

000020
000022
000030
000032

001315
001306
001310

HOV
MOV
MOV
MOV
MOV
MoV
MOV

001432

001340

:.SETUP THE STACK POINTER

#$SCOPE ,@#10TVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,a#10TVEC+2 ;:LEVEL 7
#SERROR ,@MEMTVEC : ;EMT VECTOR FOR ERROR ROUTINE
#340,aMEMTVEC+Q ;:LEVEL 7
#STRAP,@# TRAPVEC ; ;TRAP VECTOR FOR TRAP CALLS

#3640, @MTRAPVEC+2; LEVEL 7

MOV

MovBe

#1,SERMAX

MoV

#.,SLPERR

MOV

$ESCAPE

s.CLEAR THE ESCAPE ON ERROR ADDRESS

#.,8LPADR

s INITIALIZE

s;ALLOW ONE ERROR PER TEST

THE LOOP ADDRESS FOR SCOPE

::SETUP THE ERROR LOOP ADDRESS

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A '*~1'", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
MoV
MOV
MOv

@F#ERRVEC,-(SP)
#648 ,@#ERRVEC

648 :

BR
:?Y

65%
#658, (SP)

65%:

MOV

#SWREG, SWR

:.POINT TO SOF TWARE SWR

66$:

MOV
(LR
8l18

BEQ

(SP)+ @#ERRVEC
$PASS
NAPTSIZE,SENVM
67%

;.RESTORE ERROR VECTOR
:sCLEAR PASS COUNT
..TEST USER SIZE UNDER APT
sYES,USt NON-APT SWITCH

MoV
RTS

$TMPO,~(SP)
PC

sPUT RETURN ADDRESS ON STACK AND
JRETURN TO THE CALLING ROUTINE

172334

001340
001342

#STACK, SP

#SPWRDN,a#PURVEC .,POUER FAILURE VECTOR
#340,Q¥PWRVEC+2 ;:LEVEL 7
SENDCT,SEOPCT
::SETUP END-OF-PROGRAM COUNTER

CLR

000004
001340
001342

000176
000174
000004
001416
000200

#SCMTAG,R6
;oFIRST LOCATION TO BE (CLEARED
(R6) +
;s CLEAR MEMORY LOCATION
#SWR,R6 ;.DONE?
-6
;:LO0P BACK IF NO

..INITIALIZE A FEW VECTORS

000034
000036
000024
000026
026074

007016

001360

PC,SETTUP

IS AS FOLLOWS:

:;CLEAR THE COMMON TAGS (SCMTAG) AREA

001300

elellelelaleleleloBolelelelele]

006664

001360

001340

006634
006642
006650
006656

JSR

USE

:'ttttttt.Qtttttt!.t.t"""tt.'.'tl.lttttt...t.ttttitttt'ttttttt
SETTUP: MOV
(SP) ,$TMPO
; SAVE RETURN ADDRESS

001300

006614
006620
006622
006626
006630

011637

4263 006610

THIS SUBROUTINE INITIALIZES THE INTERRUPT VECTORS.
MOV~
#STACK,SP
;INITIALIZE THE STACK

CMP
BNE

01431
67%

MOV

MoV

#DSWR, SWR
#DDISP,DISPLAY

#-1,3SWR
663

#DISPREG,DISPLAY

#$SWREG, SWR

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
2:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER

;o TRY TO REFERENCE HARDWARE SWR
¢ ;BRANCH IF NO TIMEOUT TRAP OCCURRED
s:AND

THE HARDWARE SWR IS NOT = -

:sBRANCH ]F NO TIMEOUT
s:SET UP FOR TRAP RETURN

:iNO,USE APT SWITCH REGISTER

CIDRLDO-DR11

GEN NPR

- MEMORY MANAGEMENT

INTF(

MACRO M1113

AND LOCATION CHECK

(02-NOv-81

SUBROUTINE

6267
4268
6269

AAAAARE AR

4270

.SBTTL
SR

THIS

16:08

mn 6
PAGE 82

SEQUENCE

MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE
AR AR

SUBROUTINE

CHECKS

22222 2222222222232

FOR MEMORY MANAGEMENT EXISTENCE

NOT A LOCATION [N UPPER MEMORY EX]STS.

AND WHETHER OR

007066
0079072
007074
007102
007104
279 007106
4280 007110
(281 007116
4282 007120
4283 007126
4284 007130
4285 007136
4286 007140

4287
4288
4289
4290
4291
4292
4293
429
4295

0071462
007150
007152
007160
007162
007164
007172
007174
007200

005737
001440
012737
040227

000401
001032
032737
001426
032737
001005
132737
001420

000415
032737
001005
132737

001407
000404
132737
001402
062716
G0C207

TSTTMMM:

002712

000401

007104

MOV

1%:

000060

002572

000040

002572

002001

002713

000020

002572

000002

002713

000004

000002

002713

TST

BEQ

2$:

38:
3

5¢:

8I(
. WORD
BNE
BIT
BEQ
BIT
BNE
B8IT18
8taQ
B8R

8Ir
BNE
BITB
8tQ
BR

8178

8EQ
ADD
RTS

MEMGMT

43
#CY+GO,18
R2,(PC)+
CY+GO
48
#X6+X7 ,ECSR
~
«

4274
6275
4276
K277
4278

SCRRANNARNARCNANCRPARANNN
OV LA NN AN NANNRANNANANNEAANAANANRARNONNONNNRANS

X7 ECSR

2%
#8ITO ,MEMGMT +1
5%

‘s

#X6,ECSR

#BITT MEMGMT +1
5%

43
#B1T2 ,MEMGMT +1

#2,(SP)
pr

;TEST

TO SEE

IF MEMORY MANAGEMENT EXISTS

:BRANCH IF NOT
JSET UP BIT TEST DATA
sTEST TO SEE IF BOTH THE CYCLE AND GO BITS ARE SET
sLOCATION TO STORE THE CYCLE AND GO BITS
;KICK OQUT IF CYCLE AND/OR GO ARE CLEAR
;SEE IF XBA16 OR XBA17 WERE SET [N EXPECTED DATA
:BRANCH OUT IF NOT
;SEE IF XBA17 |S SET

;60 CHECK STATUS OF XBA16 iF SET
sEE IF 200000+NOCARE WAS FOUND TO EXJST - IF NOT,
SET EXPECTED ERROR AND NEX BITS AND CHECK FOR ERROR

.BRANCH
JSEE IF
sBRANCH
sSEE _IF
;GO SET
;BRANCH
;SEE IF
;60 SET

OUT IF LOCATION EXISTS
XBA16 IS SET
TO CHECK 600000+NOCARE IF SET

400000+NOCARE WAS FOUND TO EXIST = [F NOT,

EXPECTED ERROR AND NEX BITS AND (HECK FOR ERROR
OUT IF LOCATION EXISTS
600000+NOCARE WAS FOUND TO EXIST - [F NOT,

EXPECTED ERROR AND NEX BITS AND (HECK
:CORRECT PC RETURN
cKI1(K

Our

FOR ERROR

é{?RLDG-DR’1 GEN NPR INTF(

MACRO M1:'3

PATTERN

4296

4297

(02-NOv-81 16:08
LSBTTL

PAGE 83

SEQUENCE

BIT PATTERN

::tttt"ttQtttt.tttt't'tt'tt't'tttQttt.'t.ttt.t"ttt.t'.t'tt"."

4298
4299
2%8?

i
e
;e

(302

E;QtlttttttttQt.tttttt"t't'ttttttt.t'tttttltttttt.t'ttttt'tttttt

(303

4304
4305 007202

4306
4307
4308
4309
4310
4311
64312

007204
007206
007210
007212
007214
007216

000002
177777

000000
052525
125252
031463
007617
000377
000010

THIS IS A BIT PATTERN TABLE THAT CAN BE USED TO CMECK ANY LOCATION FOR
ALL COMBINATIONS OF STUCK AND/OR SHORTED BITS.

PATRNS:

.RADIX
.WORD

.WORD
LWORD
.WORD
LWORD
.WORD
.WORD
.RADiX

2
1111111111111111

0000000000000000
0101010101010101
1010101010101010
0011001100110011
0000111100001111
0000000017111111
8

:THIS ENABLES YOU TO SEE THE PATTERNS [N BINARY
ALL SET BITS

.ALL CLEAR BITS
EVEN BITS SET, 0ODD BITS CLEAR
,0DD BITS SET, EVEN BITS CLEAR
:PAIRS OF BITS SET
:GROUPS OF & BITS SET
:UPPER BYTE CLEAR, LOWER BYTE SET
:THIS RETURNS MODE BACK TO OCTAL

MACRO M1113
CZDRLDO-DR11 GEN NPR INTF(
EXPECTED DATA TABLE FOR (SR CHECK TEST 30

(02-NOV-81
.SBTTL

16:08

PAGE 84

SEQUENCE

EXPECTED DATA TABLE FOR (SR CHECK TEST 30

o
.

[4
4
.

LR BN BN A

SCAARNARRAANARRRANAAARNRA
AV AN ANRANRCANRRNRNARANIANAARNCNNNNANNNANOORNR

THE

'EXPAT'

TABLE

IS USED TO CHECK THE CONTENTS OF

THE BITS IN THE CSR.

THE (SR AFTER SETTING

009340

004350
000360
004370
000600
004610
000620
004630

4348
4349
4350 0
43 5 1
435 2
4353
5

010060
010100
010120
01
0 10160
0 0200

000640
00465(
00660
004670
000700
004710
000720
004730
000740
004750
000760
004770

000000
004010
000020

004030
000040
004050
000060
004070
000100
004110
000120
004130
000140
004150
000160
004170
000200
004210
000220
004230
000240
004250
000260
004270
000300
004310
000320
004330
000340
004350
000360
004370

-\
) B\

000200
004210
000220
004230
000240
004250
000260
004270
000300
004310
000320
004330

PONONONLNOLND

007220
007220
007240
007260
007300
007320
007340
007360

o]lelelels]
OOOO0O

AL ARE

MAICLR:

;A=
-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

R2dd0dR2

2222202022220

2332230222223

2232222]

0
1
2
3
4
5
6
7
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
0260,0040,1242,1042,122244,122244,123266,123246
4250,4050,5252,5052,126254,128254,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,6130,5332,5132,126334,026134,127336,027136
0340,0140,1342,1142,122344,022144,123346,023146
4350,4150,5352,5152,126354,0c6154,127356,027156
0360,0160,1362,1162,122364,022164,123366,023166
4370,4170,5572,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,122624,122624,123626,123626
4630,4230,5632,5232,126634,126634,127636,127636
0640,0240,1642,1242,122644,122644,123645,123646
4650,4250,5652,5252,126654,126654,127656,127656
0660,0260,1662,1262,122664,122664,123666,123666
4670,4270,5672,5272,126674,12667%,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

00000x
00001Xx
00002x
00003x
00004X
00005x
00006X
00007x
00010x
00011x
00012x
00013x
00014X
00015x
00014X
00017x
00040X
00041x
00042X
0004 3x
00044X
00045X
00046X
00047x
00050x
10051X

00052x
00053x
00054X
00055x
00056X
00057x

EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED

EF.F_EF:tF.fEEEE%EEEEEEEEEEEEEE
LOlY)NL])A0.lUyMgL«)IsL)yWT-gL«)Wg-ON-~.%yL.OYtgL-)NtyL-)OL)%—Y.%NL.4ML"])RT%L]GL-W)%%-NR.%YRONeL)No%L)0OLT.)«G=%9L40N%e-0L0M)IQ8LIAR&8T%8e0N%e«0OY%80AN%&L°QL'.OY«8
[eO(orOgelC-TlleOSelO—e0NoeSlIO-loaTe0lSNSllOeOoel0SSllTeONaeolO0SAlNlaoeOleleAIaoloe0lelTSSOeOelsl0lOogAoaOlIsll0eSeaoTOlNllAOS0eeootaTOlllISSoeoe0OlllOAoaeSeRlllIOoAeoSNelTlleOIaS.OoloolTIelSNleoIlelSloIaeOaNollTlSaAeelONolASoNIIloaloNSSlTolIealIoAAONlTlIelaeASNlolIealoIOSoolNlIalooISselTANlaloeeNSIllIaloOqoTSNlglIeIOleSoTNeVlllIgeeOeOlolIlIeNealNllTeoeOIalatllNlToeeelOlIlesAorNe]]N|[
-map=ielelelelaNloelNeloNlelNelnelenleelenlelnaicnlelnalenleclsnleelnelanlalelele]
NY8gOVDONCMT—oottt
VNWR]eYIiNOlve-8eoIN—PO]VlV0YNSATiMeNVOMlaV0S%%l-TNIe1OOOOOO
MOOOOO
INoPl0WSYNA—TMYTOoeNIMVlNY0TiMAaIrGNlO%agMPlMeIeVYoAN]V~O%NiMTMUNvgLeM%AN0o2UOTaVYlNONPSiWYr0gVoe—MNgY=OAJlNTNPaAMV[Q0ie¥OTrMN(eNYoNl"eVNolPN(AaOLoVIMiNgdIMTPvVNeoMN8%N[ed~oITaYF%oVRMaI%IVNPNOh[T\IANVS%DTr—ovAN0PY——WNoN&%btPIN—LlvvPTINAV%oNIvvPTl%I%IoLeNlrPTNLVN%%I—oNvTPvglNOo%&NrlRTI—0rVO&N&—eoyOOmRvlOoINo%&NeTNlOTvMIOV&A0eNIPlIMo052A§dNTPMPIOONO&&belITgSOFo&N&edPCLTFINoNV§&APe4O=NglVNIoO&T%t=¥lN(roa&%TNILlNarNYN®&L.LNrtbi AYr
AO)VWL[L(&XaT4NMsY4~=SO:VXYlOWo-INcUD=eSL4IU2M-ol~%e0IToNAWAO-CaYcYVl~NL0TaILAG4eYSIOOOOOo-lU>Y4NM24ALceYLXI-LVlToa%A)0sMelIYldUNNa--oL)0TN2el4LYV-caRU0eekIlLYaLAMe~UYsN¢eX4TMIlYLGN0aeVMoL%)o.eAlIceYWPSV0Me4NoaYXeSleINY3LALg%o.0aRaSI)eolOeIY0P4Nec.aaLoL0)leIElY2PReU.IaY4oll0eIYNLLM—naN.SaNIlXUcMeWeV2LCAoN4.losVIWl)-AeY2eCPLa~NLS.clXeL0VIe2PlNa.eUvXSl8LM4oVoVnI2PAo)L§.eaUelI)N4YlMIenvV2eXlMLco4VleI2LaPA)an4olN2UVoMMLIleraA2VleaN&S)MVolIPoLM2aUUlvoML%OOO4VIleLa2LGAao4.cleXYNlTe2aPLeAM4NolLoLalAW)VI.elAAC4aleoMI3XIYVcaLLllPACDl4aeo§RVMNelIPAalAlLto§VILVeSdACUaaylooYX04aLlcIPA)4oltOa-o0LYIoMRNlLPACaeUlUVaYt8leXa24L§oWdOACWlya[Yet4sXL=DA2aUl-][

0V-OOTeN-NOVeNlNSOlUAOVaNM¥PoAtOW"NgRolNd—ONVeMlo—NlKOVANeglNOdOVNIoOOlOoPOuOdMVNOoOOloZNrlNOV—PeMlIrol—MVNraYM—olOrVoMl0oNMNlM"ToOdON"IoSMloOOlOPNlOo—=P NlOVeVNlOMolAIMlLNaNnMdVTN
CZIDRLDO-DR11 GEN NPR INTF(
MACRO M1113
EXPECTED DATA TABLE FOR (SR CHECK TEST 3
(02-NOV-81
.SBTTL

16:08
7
C
PAGE 85

OCO0O0OO0OOLOOOOOOOrrrrm—r—r ePT= O—=NOMITOUMSWFN~IWOONO= NT=OAIMPM—IO-SWPrM Tr=O-C0OrON-OrOOe

SEQUENCE

EXPECTED DATA TABLE FOR CSR CHECK TEST 3

CZDRLDO-DR11 GEN NPR INTF(
FUTURE PATCH AREA

MACRO M1113

4389

02-NOV-81
LSBTTL

16:08

PAGE 86

FUTURE PATCH AREA

4390

.-:tttttttttttttttttttttt'tttttttttttttttttttttttttttttttttttttttt

4391
4392
2%32

o¥
o
1

4398

:-;ttttttttttttttttttttttttt’ (2332322222222 2222222222822 3 222282223}

4397 011320

SEQUENCE

THIS AREA IS RESERVED FOR PERMANENT PATCHES WHICH MAY BE INITIATED IN
THE FUTURE.

000000

.WORD

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.,0

CZDRLDO-DR11

GEN NPR INTF(

MAIN PROGRAM -

MACRO M1113

INITIALIZATION ROUTINES

(398
4399

.SBTTL

SEQUENCE

MAIN PROGRAM - INITIALIZATION ROUTINES

:MAIN PROGRAM - INITIALIZATION ROUTINES
[4

4403

442

E_7

PAGE 87

T RARARANRARANANNANAARRARERERRARRAANAANRANANARANNNRANNOVNNNNRNNNN

4400
64601
4402

4404
4405

(02-NOV-81 16:08

CaRRRARANRARARAAAAAARAEARAAAANAAAAARAANRNRAARRNRAAARNANANNNNANNAOR

005037
005037
005037
005037
005037
005037
005037
005037
005037
012737
012737
012706
004737
005037
005037
005037
005037
132737
001404
132737

001007
022737
001446
004737
000443
005037
013702
005702
100002
005237
000241
006102
00137
012702
013700
012701

START1: (LR
START:

000004
000006

002706
000001

001430

000200

001431

177777

002670

002414

002416
001464
000020
000010

002456
001460
177400
000020

000010

001373

MOV
MOV

1%:

005416
0026414
001466

(LR
CLR
CLR
CLR
(LR
CLR
CLR
CLR

2$:

3s:
48:

MOV
JSR
CLR
CLR
CLR
CLR
BITB
BEQ
BITB
BNE
CMP
BEQ
JSR
BR

CLR

MOV

TST

BPL
INC
CLC

ROL

BNE

5%:

sCLEAR THE MANSIZE SO WE WILL AUTOSIZE
:CLEAR $PASS
;DPMO01
:CLEAR THE EOP PRINTING FLAG
$PASS2
;CLEAR $PASS?
SFATAL
:CLEAR ERROR NO.
$MSGTYP
sCLEAR MESSAGE TYPE
STESTN
sCLEAR TEST NO.
$DEVCT
sCLEAR DEVICE COUNT
SUNIT
sCLEAR UNIT NUMBER
#TOVECT+2,TOVECT sINITIALIZE TIMEOUT VECTORS TO 6
#BPT, TMOPSW
s CATCHER ROUTINE
#STACK,SP
sINITIALIZE THE STACK
PC,SETTUP
;G0 _TC THE SETUP ROUTINE TO INITIALIZE VECTORS
SUNIT
sCLEAR SUNIT
$DEVCT
cCLEAR SDEV(CTY
S$TESIN
:CLEAR STESTN
EOPLOC
sCLEAR EOPLOC
fgITO.SENV
sCHECK IF ON APT
:BR IF NOT APT
gglf?.iENVH
:DID APT SIZE
;BR, IF APT SIZED
#-1,MANSIZE
sWAS CONFIGURATION SET UP IN MULT. BOARD ROUTINE?
sIF YES, SKIP SELF-SIZING
QTYBRD

$DEVM R2
R2
43
QTYBRD

R2
38

#REGADR,R2

Mov
MOV
MOV

#16. .R1

ADD

#10.R0

MOV

DEC
BNE
MOV
MOV

6%:

MANSIZE
$PASS
PREQP

$BASE R0

RO, (R2)+

R1
58
#VECADR,R2
$VECT1,RO

BIC
MOV

#177400,R0

ADD
DEC
BNE

#10.R0

MOV

#16. .R1

RO, (R2)
+
R1

sAUTOMATICALLY SIZE FOR BOARD CONFIGURATION
:BRANCH

sCLEAR DEVICE CNT
sMOVE DEVICE MAP TO R2

sTEST MSB OF DEVICE MAP

cBR, IF MSB IS ZERO
s INCREMENT DEVICE COUNT, IF MSB=1
¢cCLEAR THE CARRY BIT FOR THE ROL
sSHIFT NEXT BIT INTO MSB POSITION
sCONTINUE CHECKING SDEVM, IF MORE BITS SET
sPOINT R2 TO THE DEVICE ADDRESS TABLE
sLOAD BASE DEVICE ADDRESS IN RO
;MOVE LOOP COUNTER TO R1
sMOVE DEVICE ADDRESS TO TABLE
sPOINT RO TO NEXT DEVICE ADDRESS
sDECREMENT THE LOOP COUNTER AND
sBRANCH IF NOT ALL DONE YET
sGET LOCATION OF VECTOR TABLE
:COPY BASE VECTOR
:CLEAR UPPER BYTE
;D0 16 VECTORS
sPUT VECTOR ADDRESS IN TABLE
sPOINT RO TO NEXT VECTOR ADDRESS

sDECREMENT LOOP COUNTER
:BRANCH ¥ NOT ALL DONE YET

VWS WWNIN) = = OO O N
S ONSCOSHOONNIO
S

G
Qo

ad
D

G
uur P

d e
d

Punr P

d
b

P
b
—

NNNNNNNNNNNO

011760
011764
011770
011776
012002
012004
012006
012010
012012
012016
012022
012030
012032
012036
012040
012044

oo (elelelelelelelalels]

4466
4467
4468
4469
4470
4471
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481

d e

s~ o~
=~ =~
oo o
W~ W

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 (02-NOV-81
ODETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE

005737
001003

BEGIN:

002716
012356
002712
000004
012320
000006
000340
177572

1%:

002672
000004
002674
000006

2%:

000004

38:

48:

172340

000002
012062

000004

000007

5¢:
6$:
7%:

000200

000004

6$:

000252

000000

001402

:BRANCH IF SO
;JUMP TO BEGIN?
JCLEAR THE MEMORY MANAGEMENT FLAG
;SAVE TIMEOQUT VECTOR
;TIMEOUT VECTOR TO 13%

;SAVE TIMEOUT PS
;PS TIMEOUT TO PRIORITY 7

(SP)+, (SP)+
#K1PARO,RO
#2,R3

:TEST FOR MEMORY MANAGEMENT & TURN IT OFF
;INCREMENT FLAG SHOWING MEMORY MANAGEMENT EXISTS
;MOVE ADDRESS OF 1ST MM REGISTER TO RO
;D0 ALL 16 PDR'S
:TIMEOUTS TO 48
JENABLE THE PDR PAGE
:DECREMENT LOOP COUNTER AND
¢BRANCH BACK IF NOT DONE
;BRANCH OVER STACK CORRECTION
JCLEAN STACK AFTER INTERRUPT
JPOINT RO TO THE 1ST PAR
:D0 2 SETS OF PAR'S

07 R1
R2,(RO)+

;START WITH LOAD OF ZERO
;D0 7 REGISTERS
;LOAD THE PAR

MMRO

#ai

0260 R2
7S

MOV
MOV
MOV
MOV

9%
(SP)+,(SP)+
#108,TOVECT
MMVECT,OLDPC2
#108 MMVECT
MMPS,OLDPS2
#LESEL?.HHPS

MOV
MOV

10$:

TMOPSW,OL DPS1

#LEVEL?, TMOPSW

#177600,
(RO) +

DEC
BNE
B8R
CMP
Mov

TST
81S8

002713

#138, TOVECT

MOV

MOV
MOV

172364

000004

CMP

MOV
MOV
MOV
CLR
MOV
MOV
ADD
DEC

BISB

002713
172344

MEMGMT
TOVECT,OLDPC

3s
58

MOV
MOV
TST

002713
172344
172364

BEGIN1

DEC
BNE

SEQUENCE

2ET§RHINE MEM MGMT AND UPPER MEMORY EXISTENCE
JSEE IF THIS IS THE FIRST PASS
1$
BRANCH IF NOT
$PASS2
SSEE IF UPPER LOCATION HAS BEEN SET

MOV
MOV
MOV
MOV

INC

172344
172364

F
7
PAGE 88

MEMGMT
#K1PDRO,RO
#16. ,R1
#48, TOVECT
:¥7406.(R0)+

BNE

177600

012232

MOV
MOv
MOV
MOV

INCB

172300

000020
012010
077406

.SBTTL
ST
BNE
TST
BEQ
JMP
CLR

CLR

002712

4482 012046
4483 012050

4484 012054
4485 012056
4486 012060
4487 012062
4488 012064
4489 012072
4490 012100
4491 012106
4492 012114
4493 012122
4494 012126
4495 012134
4696 012142
4497 012146
4498 012154
4499 012162
4500 012170
4501 012174
4502 012202
4503 012210
4504 012216
4505 012222
4506 012230
4507 012232
4508 012236
4509 012240

001416

16:08

R3
63

#2400 ,KIPAR2
#2400,KDPAR2
NOCARE

#BI1T0,MEMGMT+1

;TIMEQUTS TO 8%

:PUT R2 AT NEXT VALUE

;DECREMENT AND
;BRANCH BACK IF NOT DONE
;SETUP PAR?
;DECREMENT AND
sBRANCH BACK IF KDPAR'S NOT LOADED
;BRANCH OVER STACK CORRECTION
JCLEAN STACK AFTER TIMEOUT
;TIMEOUT VECTOR TO 10%
JSAVE MEMORY MANAGEMENT VECTOR
sMEMORY MANAGEMENT VECTOR TO 10%
;SAVE MEMORY MANAGEMENT PS

:MEMORY MANAGEMENT PS TO PRIORITY 7
;TURN ON MEMORY MANAGEMENT

$SET UP KIPAR2 TO ACCESS LOCATION 240000+BITS

“SET UP KDPAR2 TO ACCESS LOCATION 240000+BITS
;

#4400 ,KIPAR?
#4400 ,KDPAR?

NOCARE

#8111 ,MEMGMT+1
#6400 ,K1PAR2
#6400 .KDPAR?
NOCARE

#BIT2 ,MEMGMT+1
12%
a80(SP), (PC)+
a(PC)+
118

;DPM001

;

2-0 Of NOCARE
20 OF NOCARE

IF BITS 12-0 OF NOCARE ADRS +240000 EXIST S
B8IT 0 OF UPPER BYTE OF MEMGMT IF IT DOES
UP KIPAR2 TO ACCESS LOCATION 440000+BITS 12- 0 OF NOCARE
UP KDPARZ2 TO ACCESS LOCATION 440000+BITS 12-0 F NOCARE
IF BITS 12-0 OF NOCARE ADRS +440000 EXIgT S
BIT 1 OF UPPER BYTE OF MEMGMT IF 1T DOE
UP KIPAR2 TO ACCESS LOCATION 6400004817 S 1 %-0 OF NOCARE
UP KDPAR2 TO ACCESS LOCATION 640000+BIT S 1
0 OF NOCARE
IF BITS 12-0 OF NOCARE ADRS +640000 EXIST
S S
BIT 2 OF UPPER BYTc OF MEMGMT IF IT DOE S

:BRANCH OVER STACK CORRECTION
s COMPARE NEXT INSTRUCTION WITH A

:TEST MODE 3 INSTRUCTION (THIS IS NOT EXECUTED)
sBRANCH TO RETURN IF SO

CIDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOV-81
DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE

2332
012340

104401

012344
012350
012352

012746
104402
104401

012737
005037
033737
001026
005737
100013
005737
001361
005737
001356

000252

000004
002674
002672

000006
000004

002676

MOV
MOV
SSV
CMP

MOV

#12$, (SP)

;g?gf RETURN TO EXIT IF NOT

MMRO

sTURN OFF MEMORY MANAGEMENT
:TIMEOUT TO 1258

#1258, TOVECT
#400,KIPAR2
1320"KDPAR2
(SP)+,(SP)+

OLDPS2 ,MMPS

:RESTORE PAGE 2
:RESTORE PAGE 2

:DPM001
:DPM0O01
:DPMOO1

sCLEANUP THE STACK

;DPMO0O1

¢BRANCH OVER STACK CLEANUP

?%2PCZ"MMVECT

ADD
MOV
MOV
TYPE

#6,SP
OLDPS1,TMOPSW
OLDPC1,TOVECT

056016

MOV

#UBHANG,=-(SP)

041421

TYPE

.MIA

.SBTTL

PREPARE ADDRESSES AND VECTORS FOR UUT

000001
002546
002544

138:
14$:

TYPOC

002544
,
001466

BEGIN1: MOV
CLR
TSTDEV: gég

002544

:$$gEORE TIMEOUT VECTOR

*(*X) INHIBITS EOP'S, (“Y) FOR ERROR SUMMARY'
"UNIBUS HANG?
RESTART AT ADDRESS °

:MOVE ADDRESS OF HANG ROUTINE
GO TYPE THE ADDRESS IN OCTAL

TO STACK

'CZDRLDO DR11 GEN NPR INTFC LOGIC TEST®
‘'EOP MSG WILL PRINT EVERY
:DPMO01

20 SECONDS APPROXIMATELY'

#8170, DEVMSK
TABIAX
SEVHSK,SDEVH

:DPMCO1

sSET UP BIT MASK TO TEST SDEVM FOR DEVICES
sCLEAR LOCATION TO STORE TABLE OFFSETS
CHEC?FTO SEE IF DEVICE IS TO BE TESTED

:BR

YES

002716

104401

0411517

TYPE

.NODVPR

-TYPE'

000000
000137
006337
062737
005237
000746

011420
002544
000002
001422

001416

002544
002546
000002
002416
002516

BNE

HALT

002546

28:
002546

3s:

—

N
~
W

000002
002456
000002
002720

JMP
ASL
ADD
INC

START1
DEVMSK
#2 . TABINX
SUNIT

ASL
MOV
ADD
MOV
MOV

DEVMSK
TABINX ,R2
#2. TABINX
REGADR
(R2) ,RO
#UCR.R

MOV
ADD
DEC
ENE
MOV
MOV
ADD
MOV

RO, (R1)+
#2.R0
R3
33
VECADR(R2)
,RO
RO, (R1)
+
#2 RO
RO (R1)

MOV

DDW,DRLEV

B8R

000004

001474

1%:

002720

002552

BEGINT

MOV

TSTDEV

#6,RS

$DOWO(R2) ,DDW

;DPMO01

cRESTORE MEMORY MANAGEMENT PS
RESTORE MEMORY MANAGEMENT VECTOR
sBRANCH OVER STACK CORRECTION
sCORRECT STACK AFTER TIMEOUT
RESTORE TIMEOUT PS

SSV

041302

000250

1268:

RTI
(LR

SEQUENCE

sSEE IF 8IT 15 IS SET
:BRANCH TO CONTINUE IF NOT SET
:SEE IF THIS IS THE FIRST PASS
;BRANCH TO REINITIALIZE THE DEVMSK LOCATION IF NOT

L=
o

Vi
SP
S NN
= == OO N ~
NSNS OONSOONNON ~N

d
e
d
b
b

002700

1258:

MOV

DEVMSK
1$
$PASS
BEGIN1
$PASS?2

ST N1 ST 61,8 1,8

md
e
e
b ek mod
b
b

S TAC LS NT NS TN

000004
172344
172364

11$:
128:

PAGE 88-1

TST
BPL
TST
BNE
TST

lelelelelelelelelolalelelels)

N B W

~=O V0

NONWNES W

(e JVIV, IV, IV, IV, IV 1V ]

(V]

(=4
Qo
(=]

SHO0N0ON

NN == O

d
h
d

S IS [ S T\S)

d
d
D
b
d
d md
b
D

[ASTASTAN TS TA ST ST ST S

177572
012300
000400
000400

4532 012356
4533 012364
4534 012370
4535 012376
4536 012400
4537 012404
4538 012406
4539 012412
4540 012414
4541 012420
4542 012422
4543
4544 012426
4545 012430
4546 012434
4547 012440
4548 012446
4549 012452
4550
4551 012454
4552 012460
45
2464

456

012250

452
4524
4525
4526
4527
4528

elelelelelolelolelolalels]

WA = OO 00 NN

NN -2

Viviviviuviuvaiuiiiniviwibe
PIPIN) ~ b d cd o omd ad b md

4510 012242

16:08

;SEE IF THIS IS THE FIRST PASS
;BRANCH TO REINITIALIZE THE DEVMSK LOCATION IF NOT

*NO DEVICES RECOGNIZED = DIAGNOSTIC CANNOT BE RUN®
'RESTART AT 204 IF
A DEVICE IS PRESENT'®

;FATAL ERROR = HALT HERE

:JUMP TO START1

TO CHECK AGAIN FOR A MODULE
:SHIFT MASK TO CHECK NEXT SDEVM BIT
s INCREMENT TABLE INDEX
¢ INCREMENT UNIT NUMBER
:GO TEST NEXT BIT OF DEVICE MAP

sUPDATE DEVICE MAP TEST MASK
;MOVE TABLE OFFSET TO R2

sUPDATE TABLE OFFSET FOR NEXT DEVICE

sPUT UUT ADDRESS INTO RO
;POINT R1

TO STORAGE AREA FOR UUT ADDRESSES

+MOVE & ADDRESSES

s TRANSFER UUT ADDRESS

;POINT TO NEXT UUT REGISTER
sDECREMENT THE LOOP COUNTER AND
cBRANCH IF NOT DONE TRANSFERING
sPUT UUT VECTOR INTO RO

s TRANSFER UUT VECTORS TO ACTIVE TABLE AREA

sPOINT TO NEXT VECTOR
s TRANSFER VECTOR TO TABLE AREA

sSET UP DDW TO PROPER DEVICE DESCRIPTOR WORD
sMOVE

THE WORD TO THE DRLEV LOCATION

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

PREPARE ADDRESSES AND VECTORS FOR UUT

4567 012550
4568
4569
4570
4571
4572

4573

012556
012562
012566
012572
012576

042737

105037
004737
004737
105737
001003

177437

(032555
004154
003646
002706

J
o
i
M

4578

4580 012604
4581

4582
4583
4584
4585

REINIT:

B8IC

CLRB
JSR
JSR
TST8
BNE

16:08

H 7
PAGE 88-2

#177437 ,DRLEV
CHARCT
PC,BPINIT
PC,CLENUP
EOPLOC
TST1

SEQUENCE

sCLEAR THE CHARACTER LOCATIOM OF ANY CHARACTER
G0 RESET THE ‘'*.+2'' AND ‘BPT'' LOCATIONS
;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI
JSEE IF “X IS ENABLED (IS THE PRINTER DISABLED)
;G0 DO TEST IF NOT

TO 7

;STRIP ALL BITS EXCEPT BR LEVEL

:.-tttttttttttttttttttttttttttttttttfittttttttttttttttttttttttttttt

4574
4575
4576
4577

4579 012600

002552

02-NOV-81

*DO+*NQT*REMOVE+*THE*WA]
T*LOOP*ROUT INE*BELOW*. BECAUSE OF THE SPEED NF THIS DIAGNOSTIC (.125 SECOND FOR 1 PASS, NO CRRORS), SOME VIDEO TERMINALS PRINT ERRONEOUS
CHARACTER(S) WITH THE EOP MESSAGE DUE TO THE RESET EXECUTED IN TEST 4.
THIS WAIT
LOOP ENABLES THOSE TERMINALS TO °‘CATCH UP' BEFORE ITS EXECUTION.

;:ttttttttttttttttttttttttt'ttttttttttttttttttttttttttttttt'ttttt

005327
001375

000000

1$:

DEC

BNE

;DECREMENT A LOCATION TO KILL TIME

;BRANCH BACK UNTIL ZERO AGAIN

:"ttttttttttttttttttttttttttttttttttitttittttttttttttttttttttt'tt

:
JMAIN PROGRAM - DEVICE TESTS
:
JIRREAR AR

AR AR AR A AN AR

N AN AN RN R AN AR RN A NRANARAANARNRANANNANIRR

CZDRLDO-DR11 GEN NPR INTF(
TEST #1

- CAN ALL DR11

MACRO M1113

02-NOV-81

16:08

REG BE ADDRESSED WITHOUT ERROR?

4593

.SBTTL

PAGE 89

SEQUENCE

TEST #1 - CAN ALL DR11 REG BE ADDRESSED WITHOU] ERROR?

ttQtt.Qttttttttttttttt'iitttttitt.ttfilttttttttitfittittttttttttt

SATEST 1

CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR?

THIS TEST INSURES THAT THE (SR, BAR, BDR AND WCR REGISTERS CAN BE

ACCESSED FOR THIS DEVICE.

IF NOT,

THE REST OF

THE DIAGNOSTIC CANNOT

:.e 2232222222280 028232 3882232323232 22323 222382323 323223232323222222232232222223 27

012606
012606
012610

000004
012737

012624
012626
012632
012634

001407
104401
000404
124

012616

032777

t§r:
012644

004000
040

005037
012737
013737
005777
013737
005777
013737
005777
013737
005777
013737
005777
005737
001414

001312
012752
002516
167626
002520
167616
002522
167606
002524
167576
002526
167566
001312

4609 01275¢

012637

002672

4610
4611
4612
4613
4614
4615

012756
072762
012764
012770
012774
012776

166514

000137

025622

012637
104001
013746
013746
000002
012737

002674

043

000004
002550

1000$:
1001$:
9998:

002550
002550
002550

002550

18:

002674
002672
000006

000004

SCOPE
MOV

#9998 SLPERR

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

BEQ
TYPE
BR
ASCIZ

10018
,10008
10018
/T W 1/<CRLF>

;%%
‘g8
%8
GBE

CLR
MOV
MOV
TST
MOV
TST
MOV
TST
MOV
TST
MOV
ST
TST
BEQ

SERTTL
#1$ ,BUSERR
WCR.DREG
awCR
BAR, DREG
3BAR
CSR,DREG
aCSR
BDR,DREG
a8DR
DRINV,DREG
aDRINV
SERTTL
28

;CLEAR THE ERROR TOTAL - NEW PASS
:CPU_ERROR VECTOR T0 1%
:SAVE ADDRESS FOR POSSIBLE ERROR TYPING
:ACCESS REGISTER
:SAVE ADDRESS FOR POSSIBLE ERROR TYPING
:ACCESS REGISTER
:SAVE ADDRESS FOR POSSIBLE ERROR TYPING
ACCESS 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

MOV

(SP)+,0LDPC1

:SAVE PC OF TRAP FOR ERROR PRINTOUT

BIT

012634

012644
4594 012644
4595 012650
4596 012656
4597 012664
4598 012670
4599 012676
4600 012702
4601 012710
4602 012714
4603 012722
4604 012726
4605 012734
4606 012740
4607 012744
4608 012746

001310

28:

JMP

MOV
ERROR
MOV
MOV
RTI
MOV

#8IT11,3sWR

ENDEV

(SP)+.0LDPS1
+1
OLDPS1,-(SP)
OLDPC1,-(SP)

#6 ,BUSERR

;8% TEST TO SEE IF TEST NUMBER TRACER ENABLED
BRANCH IF NOT
TYPE: T # 1"
GET OVER ASCII
THE ASCII MESSAGE

:GO TO END OF

DEVICE ROUTINE = FATAL ERRORS

:SAVE PS FOR RESTORATION AFTER ERROR CALL
: CANNOT ACCESS DR11 REGISTER
:PUT PS BACK ON STACK
:PUT PC BACK ON STACK
:RETURN TO PROGRAM
:RESTORE #6 TO BUS ERROR

CZIDRLDO-DR11 GEN NPR INTFC

MACRO M1113

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

4622

02-NOV-81

.SBTTL

16:08

J 7
PAGE 90

SEQUENCE

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

;.'tttttttttttttittfittttttttttttttttttttttlttttttttittttt.tttttttt

J*TEST 2

CHECK B OR W STATUS IS AS EXPECTED

* X

e
a

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

E"ttttfittt*ifififiifit*fit'tt"tttttifl**'ttfitfit*ttfitfifitfii"tt'ttti*t'i

013004
013004
013006
013014
013022
013026
013030
013032

000004
012737
032777
001407
104401
000404
124

013042
4623 013042
4624 013046
4625 013056
4626 013062
4627 013070
4628 013076
4629 013106
4630 013106
4631 013112
4632 013114
4633 013122
4634 013130
4635 013132

005077
012777
017737
042737
013737
042737
001403
005037
000403
012737
023737
001401
106002

t§r2:
013042
004000

001310
166316

013032
040
167454
100000
167442
177776
002720
177776

043

167446
002610
002610
001362
001362

10008:
10018
:
9998:

001362
000001
002610

001362
001362

1$:
28:

SCOPE
MOV
BIT
BEQ
TYPE
BR
ASCLZ

#9998 ,SLPERR
#BIT11,aSWR
10018
,10008
10018
/T 2/<CRLF>

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%
18 TEST TO SEE IF TEST NUMBER TRACER ENABLED
88 BRANCH IF NOT
‘B8 TYPE: T # 2"
%8 GET OVER ASCII
88 THE ASCII MESSAGE

(LR
MOV
MOV
BIC
MOV
BIC
BEQ
CLR
BR
MGV
CMP
BEO
ERROR

3CSR
#EIR,3CSR
aCSR,BORW
#CBIT0,BORW
DDW, $TMP1
#CBITO,$TMP1
18
$TMP1
23
#1,$TMPT
BORW, STMP1
TST3
+2

;G0 TO CSR
:FORCE TO BE EIR
:ATTEMPT EIR READ
IMASK 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
1GO TEST THE BIT
*SET THE BIT
:B OR W STATE AS EXPECTED?
:BRANCH IF 0K
:DR11-B OR W MODE INCORRECT (0=8,

1=W)

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

02-NOV-81

TEST #3 - CHECK CSR BIT PATTERNS WITH MAINT BIT SET

4643

.SBTTL
R

o
b

—

b and o

OOA\NWN
IS NN
NO RSOV
SR NSO

PIONININD)
N
b =d b
n) — =SONNN

D
d
o
o
b e

NN NWNWWWNW

cd
d
wd
o
b

4646
4647
4648
4649
4650
4651
4652
4653

— e

4645

WWWWWWNN

(elelelalalelolielelelolelolele)

4644

127060
010220
010000
002714
000002
000200
010000
167242

013236
013242

4654 013246
4655 013254
4656 013260
4657 013266
4658 013274

4659
4660
4661
4662

013276
013304
013306
013314

4663 013322
4664 013326
4665 013334
4666 013340

4667
4668
4669
4670
4671
4672

013346
013350
013356
013360
013362
013364

4674
4675
4676
4677
4678
4679
4680
4681

013374
013402
013410
013412
013416
013420
013422
013430

ST3:

SCOPE

BIT
BEQ
1000s:
1001$:

001362
002720
001362

167246

TYPE
Bk

LASCIZ
.EVEN

JSR

MoV

1%:

2$:
999%:

BIT
BNE
8IS

MOV
MOV
CLR
MOV
MOV

BIS
CLR

001362

167236

002560
002560

MOV
CMP

001362

002572

MOV

177777
056104
167174
167170
002572

167202
167176

BEQ

3s:

002560

002572

002560

000401

013360

000060

002572

140000

002572
002572

002560

002536

040227

RARdRR AR

MOV

48:

4673 013372

RSS2

013162

003646
000200
000004

0132
013226
013232

013246
004000

043

000401

5%:
6$:

013632

2222222228222

3222222

040

RRdRalsdls

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.

000404
124

RS0

CHECK CSR BIT PATTERNS WITH MAINT BIT SET

. %

104401

SEQUENCE

TEST #3 - CHECK CSR BIT PATTERNS WITH MAINT BIT SET

LSRR

S*TEST 3

000004
012737
032777
001407

K 7
PAGE 91

16:08

7%:

ERROR

MOV
MOV
MOV
MOV
MOV
(MP

sdRR

#9998 . SLPERR

#81Ti1,aswR
10018

,1000$

10018

/T # 3/<CRLF>
PC,CLENUP

#RY ,$TMP1

1%ITZ.DDH
#127000,8TMP1
MMAISET
R1
#MA R?2
ERRCNT
#2.R0

#200.R3

@CSR,RCSR
gTMP?.RCSR
S
$TMP1,ECSR

+32

#-1,8WCR
#NOCARE ,8BAR

RZ,8CSR

aCSR,R(CSR
(R1) ,ECSR
;CSR.RCSR
$
#CY+GO0,4$
R2.,(PC)+
CY+GO
6$
#X6+X7 ,ECSR

N#ER+NX ECSR

RCSR,ECSR

108
R2,BUT

+202

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

002

2222220228223 2322222322222

28223 22

sPROCESS LOOPING AND TEST NUMBER INCREMENT

sSET LOOP ON ERROR TO 999%
;8% TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;80 TYPE: ''T # 3
;88 GET OVER ASCII
;88 THE ASCII MESSAGE
sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
¢MOVE READY BIT TO $TMP1
sTEST TO SEE IF CABLE IS IN
sBRANCH AROUND NON-CABLE SETUP IF IN
sSET THE BITS TO BE EXPECTED IN $TMP1
sMOVE ADDRESS OF EXPECTED PATTERNS TO R1
¢START WITH JUST THE MAINTENANCE BIT
sCLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202
;D0 2 SETS OF 200 PATT.RNS
;MOVE 200 TO THE LOOP COUNTER
;SET MAINTENANCE AND
sCLEAR TO DO AN INIT
sMOVE RECEIVED DATA TO RCSR
sMAKE SURE EXPECTED DATA CAME UP

sBRANCH IF

sMOVE EXPECTED DATA TO ECSR
:CSR_IS WRONG
;MOVE 1 WORD COUNT TO WCR IN CASE OF IE ENABLED
sMOVE A NOT-CARE ADDRESS TO BAR FOR SAME REASON
sSET THE PARTICULAR FUNCTION BITS IN (SR
;MOVE RECEIVED DATA TO RCSR
:MOVE EXPECTED DATA TO ECSR
s CCMPARE EXPECTED WITH RECEIVED
sBRANCH [F 0K
JREESTABLISH TEST PATTERN
sSEE IF BOTH CYCLE AND GO WERE SET
sLOCATION TO HOLD BOTH CYCLE AND GG BITS
2BRANCH TO ERROR ONLY IF CYCLE AND GO WERE SET
;SEE IF EITHER XBA16 OR XBA17 ARE SET
sBRANCH TO ERROR IF BOTH ARE CLEAR
sSET THE ERROR AND NEX BITS - EXPECT THEM TO SET
sNOW SEE IF DATA MATCHES
:BRANCH AROUND ERROR IF IT DOES
sMOVE THE BITS SET INTO CSR TO THE BUT LOCATION
sCSR PATTERN NOT CORRECT
sBRANCH ARQUND MM TESTS
JREESTABLISH TEST PATTERN
;SEE IF BOTH CYCLE AND GO WERE SET

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOV-81
TEST #3 - CHECK CSR BIT PATTERNS WITH MAINT BIT SET

4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692

013432
013434
013436
013442
013444
013450
013452
013454
013456
013462
013464

000401
001003
004737
000754
062701
005202
005303
001274
062702
005300
001266

8%:
007066

9%:

000002

10%:

000200

.WORD
BNE
JSR
BR
ADD
INC

DEC
BNE

ADD

CEC
BNE

16:08
CY+GO
108

PC,TSTMM

5%
#2,R1

R
R3
999%
#200,R2
RO

PAGE 91-1

SEQUENCE

sLOCATION TO HOLD BOTH CYCLE AND GO B!'TS
sBRANCH AROUND MEM MGMT TEST IF EITHER OR BOTH WERE CLEAR
;GO CHECK FOR MEMORY MANAGEMENT EXISTENCE
s1F RETURN IS HERE, GO BACK TO SET EXPECTED DATA
s INCREMENT R1 TO NEXT EXPECTED PATTERN
s INCREMENT THE PATTERN
sDECREMENT THE LOOP COUNTER
sBRANCH BACK IF NOT DONE
JADD 200 TO PATTERN LOCATION
sDECREMENT THE LOOP COUNTER AND
;BRANCH BACK IF 2ND OCTAL GROUP NOT DONE

CZDRLDC-DR11

n
7
PAGE 92

GEN NPR INTF(

MACRO M1113
02-NOV-81 16:08
TEST #4 -~ (HE(K wW(R, BAR ¢ BDR, € RESET CLRS & DEV REGS
4699

SEQUENCE

»
#6 - (HECK WCR, BAR § BDR,
TEST

SBTTL

MLALAALAAAAA

AR AR

(HECK WCR, BAR & BDR,

"EST 4

& RESET CLRS & DEV REGS

ARl

0))

& RESET CLRS & DEV REGS

THIS

—
D
p
b

&~
&~

FE
28

d oD
d

b
b
d
b
b oh
d
o
d o
o

b oD

uunuunuuuuuuuunuufl

1000$:

166770

1001%:
999%:

601310

177777
166704
172777

166710

001000

000001

b oD o

043

013600

002570
002570
165504
166656

48:

002560

D
b
b
e oD
d
e
i e
b
d
b

000612

165362

177777
166532

166536

17277277

002564
002564

014102

01310

7%:

8$:

TEST NUMBER

INCREMENT

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
.88 BRANCH IF NOT

MOV
MOV
MOV

#MA

JSET THE MAINTENANCE BIT AND
:CLEAR TO DO AN INIT
;DPMOO1
;DO THIS TEST IN MAINTENANCE MODE
JALL ONES TO W(R
;MOVE RECEIVED DATA TO RW(CR
JSEE IF DATA WAS LOADED PROPERLY
;BRANCH IF 0K
JMUOVE NEW LOOP ON ERROR LOCATION TO SLPERR
JBRANCH OVER LOOP SETUP
JALL ONES TO W(CR
:MOVE RECEIVED DATA TO RWCR
;SEE IF DATA WAS LOADED PROPERLY

MOV
MOV

CMP
BEQ
ERROR
8lr
BNE
8IS

8(SR

(SR

#-1,3W(R
aW(R RW(R
#-1 ,RW(R
3]
#18,SLPERR

#-1,8WCR
aW(R,RW(R
l;‘.RUCR

+10

#B]IT9,3S5WR

1%
#G0,a(SR
a(SR,R(SR
#-1,8BAR

#5% ,$LPERR
#-1,EBAR

001000

LOOPING AND

;SET LOOP ON ERROR TO 999%

#MA ,3(CSR

CLR

BEQ

6%:

;sPROCESS

MOV

MOV
MOV

002566
02566

(AN ALL BE

10018
/T # L/<CRLF>

001310
002600
166570

BAR AND BDR REGISTER BITS

BR
.ASCI2Z
.EVEN

@BAR ,RBAR
O;I.RBAR

5%:

WCR,

;88 TYPE:

002566
002566

002560

10018

MOV
MOV
MOV
cMP

166640

THE

.1000%

MOV

2%:
1s:

#9998 ,SLPERR

#8]1T11,aSWR

cMP
8EQ
18:

THAT

8IT
8EQ

TYPE

b
e

0
)
0
0
0
0
0
0
4738 0

165634

002570
002570

4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
47%
4735
4736
47%7

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

SCOPE

MOV

166756
166744

0
0

040

0
0
0
0
0
0
0
0

001310

013514

0
0
0

0135264
004000

INSURES

AAAAAS SRS RARRRRARRARRRRRRRR
222222 2222222222222 20

S Té4:

0
0

0
0
0
0
0
0

[

TEST

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

B8R
mMov
MOV
MOV
CMP
BEQ
ERROR

BIT

BNE

;88 GET OVER ASCII
;88 THE ASCI] MESSAGE

;BRANCH JF 0K
JATTEMPT TO SET ALL WCR BITS FAILED

JSEE IF WE SHOULD LOOP BACK
JBRANCH BACK IF SO
JSET GO TO CLEAR READY TO PREPARE TO SET BAR BIT 0
JREAD CSR TO SET BIT O OF BAR
;DPMOOT
BAR
TO
CNES
JALL
;MOVE RECEIVED DATA TO RBAR
JSEE IF ALL BITS WERE SET

JBRANCH OVER LOOP SETUP

8CSR,RCSR

#-1,8BAR

a8BAR,RBAR
#-1,RBAR
14 3
+12
#B8]T79,aSWR

BEQ

12%
#138 SLPERR
108

‘l.

;BRANCH IF 0K

#-1,38DR

MOV

‘

MOV
MOV

(MP

l.r

&8DR,RBDR
#-1,RBDR

JMOVE NEW LOOP ON ERROR LOCATION TO SLPERR
;MOVE EXPECTED DATA TO EBAR

JACCESS CSR TO SET BIT O OF BAR
sALL ONES TO BAR
JMOVE RECEIVED DATA TO RBAR
JSEE IF ALL BITS WERE SET
JBRANCH IF

JBRANCH ]F

JATTEMPT TO SET ALL BAR BITS TO 1 FAILED
JSEE IF WE SHOULD LOOP BACK
JBRANCH BACK ]F SO
JALL ONES TO BDR
;MOVE RECEJVED DATA TO RRDR
JSEE [F DATA WAS LOADED PRCPERLY

JMOVE NEW LOOP ON ERROR LOCATION TO SLPERR

JBRANCH OVER LOOP SETUP

CIZDRLDC=DR11 GEN NPR INTF(

MACRO M1113

02-NOV-81 16:08

TEST #4 - CHECK WCR, BAR & BDR, & RESET (LRS & DEV REGS
6739 014016

012777

177777

6741
4742
67463
(7644
4745
(746
4747
4748

022737
001601
104027
032777
001361
012777
000005
012737

177777

4740 014022

014030
014036
0140640
014042
014050
014052
014060
0164062

4749 014070
4750 014076
4751 014100

4752 016102

4753 014110
4754 014112
4755 014116
4756 014120
4757 014126
4758 014134
4759 0141640
4760 014146
4761 014150
4762 014152

4763 014160
4764 014166
4765 014170

017737

017737
001401
104007

017737

001403
005037
104011
017737
012737
004737
023737
001401
104032
052777
017737
(001401
104026

166502

9%:

166476

002564

001000

165270

010576

166442

013524

001310

166412

002566

13$:

002560

14$:

166422

00256+«

108:

11s8:

128:

002570

002600

166376

000200
003670

002572

010000

166340

002572

002560
166342

002564

15%:

PAGE 92-1

SEQUENCE

MOV

#-1,880R

JALL ONES TO BDR

(MP
BEQ
ERROR
8IT
BNE
MOV
RESET
MOV

#-1,RBLR
11%
+27
#81T9,3SWR
93
#10576,8CSR

;SEE IF DATA WAS LOADED PROPERLY
sBRANCH IF 0K
sALL BDR BITS ARE NOT SET
;SEE IF WE SHOULD LOOP BA(CK
¢BRANCH BACK IF SO
JSET ALL CSR WRITEABLE BITS
JRESET THE WORLD OF ITS TROUBLES - HOPEFULLY
JRESET THE LOOP ON ERROR LOCATION

MOV

@B8AR ,RBAR

MOV

MOV
BEJ
ERROR
BEQ
CLR
ERROR
MOV
MOV
JSR
(MP
8tQ
ERROR
BIS
MOV
8EQ
ERROR

a@8DR,RBDR

#9998 SLPERR
SW(R,RW(R
138
+7

148
ERAR
+11
a(SR,RCSR
#RY ,ECSR
P(,(HK(AB
ECSR,RCSR
15%
+32
#MA ,a( SR

@8DR,RBDR
TSTS
+26

sMOVE RECEIVED DATA TO RABDR

;WAS WCR CLEARED?
;BRANCH [F WCR WAS CLEARED
SJRESET FAILED TO CLEAR W(R
sMOVE RECEIVED DATA TO RBAR
;BRANCH IF BAR WAS CLEARED
sCLEAR EXPECTED LCCATION
cRESET FAILED TO CLEAR BAR

;MOVE RECEIVED DATA TO RCSR

;MOVE EXPECTED DATA TO ECSR
260 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY

sSEE IF EXPECTED DATA WAS RECEIVED
JBRANCH IF IT WAS
JREADY [S NOT THE ONLY BIT SET
JMAINT MODE (SO THAT IDR GETS ODR CONTENTS)
sMOVE CONTENTS OF BDR TO RBDR
;BRANCH [F IT CORRECTLY REMAINS ZERO
:BDR IS NOT CLEAR

(ZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOv-81
TEST #5 - DEVICE 'NIT CLEARS (SR, WCR, BDR AND BAR

oNn

SBYTL

16:08

PAGE 93

SEQUENCE

TEST #5 - DEVICE INIT CLEARS (SR, WCR, BDR AND BAR

AAAAAAAAMALAA

'TEST 5

RARARRRSRl

DEVICE

ARl dtladlaitllidll]

INIT CLEARS (SR, WCR, BDR AND BAR

_...00

THIS

TEST

INSURES

THAT DEVICE

INIT CLEARS

THE (SR, WCR, BDR AND BAR.

* %

0146172
0146174
014202
014204
014210
014212

000004
032777
001407
104401
000404
124

0146222

4772 014222
4773 016226
4776 014234
4775 014242
4776 014250
4777 014256
4778 014264
4779 0146272
4780 014274
4781 014276
4782 014304
4783 014306
4784 014312
4785 014
4766 0143
4787 014330
4788 014334
4789 014342
014346
014354
074362
014364

165136

014212
040

043

166274
177777
177777
177777
010576
010000
166226

002570

166216

002566

166262
166262
166250
166244
166236

:
10008
10018$:
999%:

166202

19%:

002572

2%:

166146

002564

2822

22222

aCSR

sFORCE ACCESS TO CSR
sALL ONES TO WCR
+ALL ONES TO BDR
sALL ONES TO BAR
sSET ALL WRITEABLE BITS IN THE CSR
sCLEAR THE MAINT BIT TO DO AN INIT
¢MOVE RECEIVED CONTENTS TO RWCR
;BRANCH IF WCR WAS CLEARED
SINIT FAILED TO CLEAR WCR
sMOVE RECEIVED CONTENTS TO RBAR
;BRANCH IF BAR WAS CLEARED
JCLEAR EXPECTED LOCATION
sINIT FAILED TO CLEAR BAR
sMOVE RECEIVED DATA TO RCSR
SEXPECT READY BIT NNLY TO BE SET
sGO CHECK CABLE ST»TUS AND ALTER EXPECTED I[F NECESSARY
;SEE IF EXPECTED DATA WAS RECEIVED
¢BRANCH IF THEY WERE ALL CLEAR
SINIT FAILED TO CLEAR ALL CSR R-W BITS
:GO BACK INTO MAINT MODE (SO THAT IDR GETS ODR CONTENTS)
sMOVE RECEIVED CONTENTS TO RBDR
;BRANCH IF [T WAS CLEARED
sINIT FAILED TO CLEAR BDR

#-1,aWCR
#-1.38DR
#-13BAR

aBAR, RBAR

+4
8CSR,RCSR

#RY ,ECSR
PC,CHKCAB

ECSR,RCSR

3s:

0220222002222

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;08 BRANCH ]F NOT
;88 TYPE:
;88 GET OVER ASCI!I
;88 THE ASCII MESSAGE

EBAR

002560

#8IT11,3SWR
10018
1000%
1001$
/T & 5/<CRLF>

#MA,ACSR
aWCR,RWCR
18

002560

104005

l10576 aCSR

002600

4790 014344

4791
4792
4793
4794

004000

S TS

3s
+6

#MA, (SR

@a8DR,RBDR
T1ST6
+5

..7

sl.

CZDRLDO-DR11 GEN NPR INTF(

TEST #6 - BIT PATTERN TEST OF

MACRO M1113

02-NOV-81

16:08

WCR, BDR AND BAR REGISTERS

4804

.SBTTL

c 8
PAGE 94

SEQUENCE

TEST #6 - BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS

:.'tttt'.ttttttttttt.Qt'ttt't'tttttt'ttttt*t!tt.tt'tQt'ttt't"tt'*

SATEST 6

BIT PATTERN TEST GF WCR, BDR AND BAR REGISTERS

ANY STUCK OR SHORTED PINS.

DETERMINED TO EXIST, THE SLPERR IS INITIALIZED TO A ROUTINE SPECIFI-

014366
014370
014376
014400
014404
014406

014416

000004
032777
001407
104401
000404
124

004000

164742

040

043

4811 014450
4812 014456
4813 014462
4814 014464
4815 014472
4816 014476
4817 014500
4818 014504

077737
021137
001423
012737
011137
000410
011177
017737

166050
002564

002564

014500
002576

001310

4820
4821
4822
4823
4824

001401
104205
032777
001363
005077

014516
014520
014522
014530
014532

4825 014536
4826 014542
4827 014550
4828 014554
4829 014556

4830 014564
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841

014570
014572
014576
014604
014610
014612
014614
014622
014624
014630
014636

4842 014642

021137

011177
017737
021137
001423
012737

011137

000410
011177
017737
021137
001401
104204
032777
001363
011177
017737
011137

042737

166054

166020
166014

002564

001000
165764
165754
165750
002570
014572

002602

166056

002564

164610

1$:

28:

WHEN AN ERROR IS

CALLY WRITTEN FOR THAT PARTICULAR ERROR TO CREATE A VERY TIGHT LOOP.

38:
&$:

002570
001310

002570

001000

164516

165670
165664
002600

002566

002600

SCOPE
BIT
BEQ
TYPE
BR
.ASCIZ

#81T11,aSWR
10018
,10008
001s
/T A 6/<CRLF>

;8% TEST TO SEE IF TEST NUMBER TRACER ENABLED
;8% BRANCH IF NOT
88 TYPE: T # 6"
:8% GET OVER ASCII
B THE ASCII MESSAGE

JSR
CLR
MOV
MOV
MOV

PC,CLENUP
ERRCNT
#PATRNS,R1
#7,R2
#MA a(SR

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +204
:MOVE ADDRESS OF BIT PATTERNS TO R1
:DO 7 PATTERNS
GO TO MAINTENANCE MODE & SET GO TO DISABLE BAR BIT 0

MOV
CMP
BEQ
MOV
MOV
BR
MOV
MOV

@BDR,RBDR
(R1) ,RBDR
5$
#2%,SLPERR
(R1),EBDR
38
(R1),3BDR
aBDR.RBDR

:MOVE RECEIVED DATA TO RBDR
:SEE IF EXPECTED DATA WAS RECEIVED
:BRANCH IF SO
:SET UP LOOP ON ERROR LOCATION
:MOVE EXFECTED DATA TO EEDR
:SKIP OVER LOOP ON ERROR SETUP
:LOAD BIT PATTERN TO BDR
:MOVE RECEIVED DATA TO RSDR

BEQ
ERROR
BIT
BNE
CLR

43
+205
#8179,3SWR
28
aCSR

MOV

CMP

5%:

165720
165714
002570

000001

10008:
1001$:

003646
002714
007202
000007
010000

4819 014512

T$7T6:

014406

004737
005037
012701
012702
012777

011177

LOCATION SLPERR IS NOT SET UP AT THE START

SINCE A DIFFERENT METHOD OF ERROR LOOPING IS DONE.

;:ttttttttttttttfitttttt'itt 2822232223223 23223223232222232223223223 22232

4805 014416
4806 014422
4807 014426
4808 014432
4809 014436

4810 014446

THIS TEST RUNS 7 BIT PATTERNS 7HROUGH THE WCR, BDR AND BAR TO CHECK FOR

78:
8$:
98:

:MOVE THE DATA TO BDR

(R1) ;RBDR

:SEE

MOV
MOV
CMP
BEQ
MOV

(R1),aWCR
QWCR.RWCR
(R1) ,RWCR
9%
#6$,SLPERR

:MOVE THE DATA TO WCR
:MOVE RECEIVED DATA TO RWCR
SEE IF EXPECTED DATA WAS RECE!VED
:BRANCH IF SO
:SET_UP LOOP ON ERROR LOCATION

BR
MOV
MOV
CMP
BEQ
ERROR
BIT
BNE
MOV
MOV
MOV

7$
(R1) ,aWCR
aWCR.RWCR
(R1) .RWCR
8%
+204
#BIT9,aswR
6$
(R1),3BAR
@BAR.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 IF SO - OK NOW
:WCR 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

MOV
6$:

(R15,@BDR

BIC

(R15,EWCR

#8170, EBAR

DATA IS OK NOW

:BRANCH OUT IF SO - OK NOW
:BDR PATTERN NOT CORRECT
:SEE IF WE SHOULD LOOP BACK
:BRANCH BACK IF SO
:CLEAR CSR TO DO AN INIT - WCR € BAR DON'T NEED MAINT MODE

:MOVE EXPECTED DATA TO EWCR

:DO NOT EXPECT BIT 0 TO BE READ

CIDR! DO~DR11 GEN NPR INTFC

MACRO M1113

02-NOV=-81

16:08

TEST #6 -~ BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS

4843 014650
484% 014656
4845 014660
4846 014666
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857

014670
014674
014702
014706
014710
014712
014720
014722
014724
014726
014730

023737
001421
012737
000410

011177
017737
021137
001401
104203
032777
001363
005721
005302
001243
004737

002600

002566

014670

001310

165624
165620
002566

002566

001000

164420

108:

11$:
128:

138:
003646

CMP
BEQ
MOV
BR
MOV
MOV
CMP
BEQ
ERROR
BIT
BNE
TSI
DEC
BNE
JSR

D 8
PAGE 94-1

EBAR,RBAR
13%
#10$,SLPERR
118

(R1),3BAR
@BAR.RBAR
(R1).RBAR
128
+203
#8I1T9,aswR
108
(R1)+
R2
1S
PC,CLENUP

SEQUENCE

sSEE IF EXPECTED DATA WAS RECEIVED
sBRANCH IF 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
sBRANCH OUT IF SO = 0K NOW
sBAR DATA PATTERN NOT CORRECT
sSEE IF WE SHOULD LOOP BACK
sBRANCH BACK IF SO
:GO TO NEXT PATTERN
;DECREMENT THE LOOP COUNTER AND

sBKRANCH BACK

IF NOT DONE

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

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113
TEST #7 - TEST CSR AND EIR BITO

02-NOV-81

.SBTTL

4864

16:08

PAGE 95

SEQUENCE

TEST #7 = TEST CSR AND EIR BITO

RAR

AN AR AANR AR

SeTEST 7

AR RN

RN RN AR AR

ARAAANNA RN RN

AR ERNEY

TEST CSR AND EIR BITO

THIS TEST

INSURES THAT BIT O OF

THE CSR IS CLEAR WHEN IN CSR MODE

15 CLEAR)., AND SET WHEN IN EIR MODE (BIT 15 SET).

(BIT

. &

E;t'ttttttttttlttttitt'tttt'fittttttttttttttttttttttttttt'tttitttt

000004
012737

032777
001407

014772

4855 014772
4866 015000
4867 015002
4868 015006
4869 015014
4870 015022
4871 015030
4872 015032
4873 015040
4874 015046
4875 015050
4876 015056
4877 015064
4878 015072
4,879 015074
4880 015102

4881 015110

TST7:

014772
004000

001310

BEQ
TYPE

1001%
10008

188 BRANCH IF NOT
‘88 TYPE: ''T# 7

.ASCIZ

/T # 7/<CRLF>

-8% THE ASCII MESSAGE

BIT
BEQ

#81T0,BORW
TST10

:TEST TO SEE IF WE ARE TESTING A DR11-W
*BRANCH TO NEXT TEST IF A DR11-B

002536

MOV

#81T70,8U7

*MOVE BIT O INDICATOR TO BIT UNDER TEST LOCATION

002560

BIT

#8170, RCSR

MOV

RCSR,ECSR

ERROR
MOV
MOV

+14
#EIR,ACSR
aCSR.REIR

*CSR BIT TEST FAILED
160 TO EIR MODE
SMOVE CSR CONTENTS TO RCSR

BNE
MOV

TST10
REIR,EEIR

*BRANCH IF NOT A ZERO
*MOVE CONTENTS TO ECSR ALSO AND

+15

*EIR BIT TEST FAILED

164366

014762
040

043

032737
001444
005077
012737
017737
032737
001407
013737
042737
104014
012777
017737
032737
001007
013737
052737

000001

002610

104015

;PROCESS LOOPING AND TEST NUMBER INCREMENT

#9998 SLPERR

104401
000404
124

165514
000001
165502
000001

SCOPE

MOV

8IT
10008:

10018:

9998:

002572

100000
165440
000001

165444
002562

002562
000001

002574

MOV
BEQ

002572
002562

002574

“EVEN

CLR

002560

002560
000001

B8R

BIC
18:

BIT

BIS

ERROR

#8]1T11,3SWR
fo01s

aCSR

aCSR,RCSR
18

#81T0.ECSR

#81T0,REIR

#8110, EEIR

:SET LOOP ON ERROR TO 9998

*88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

188 GET OVER ASCII

*FORCE ACCESS TO CSR

*MOVE CSR CONTENTS TO RCSR

:CLEAR ALL BUT BIT 0
*BRANCH IF A ZERO

*MOVE CSR TO EXPECTED DATA, ECSR AND

SCLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR

:CLEAR ALL BUT BIT 0

*SET THE O BIT - EXPECTED IT TO BE 1

CZDRLDO-DR11 GEN NPR INTF(
TEST #10 - ATTN CAN BE

MACRO M1113

02-NOV-81

SET VIA FNCT2 & ERROR BIT SETS

4,888

.SBTTL

F
8
PAGE 96

* %

e
S
B

000004
012737

015130
015132

001407
104401

015136
015140

032777
000404

TST10:
015160

004000

001310

164210

040

043

4889 015150
4890 015156
4891 015160
4892 015164
4893 015172
4894 015200
4895 015206
4896 015210
4897 015216
4898 015220
4899 015226
4900 015274

032737
001073
005077
012777
017737
022737
001404
012737
104016
112777
017737
013701

000001

002720

165336
010000
165324
010260

165330
002560
002560

010200

002572

000004
165270
002560

165274
002560

4902 015244
4903 015250

022701
001411

120000

4901 015240
4904 015252

015260
015264
015272
015274
015302
015310
015316
015320
015326
015334

4915 015340

4916 015342

RANARNN AN A AAANANRNAAANRNRA

AR AONOANS

ATTN CAN BE SET VIA FNCT2 € ERROR BIT SETS

THIS TEST INSURES THAT THE ATTN BIT
BIT SETS.

(BIT 13)

SETS VIA FNCT2 AND ERROR

042701

013737

002560

005077

165154

104020

10008:
10018
999%:

18:

057777

004737
052737
104017
042777
017737
032737
001411
013737
042737
004737

002572

020004
165214
120000

165220
002560
002560

002560
120000
003670

002572
002572

#9998 SLPERR

;PROCESS LOOPING AND TEST NUMBER INCREMENT
-SET LOOP ON ERROR TO 999%

BEQ
TYPE

10018
10008

288 BRANCH IF NOT
‘e TYPE: T # 10"

2§:

3s:

#81T11,35uWR
1001$

*88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
:88 GET OVER ASCII

'?3Efiz

/T # 10/<CRLF>

BIT
BNE
(LR
MOV
MOV
CMP
BEQ
MOV
ERROR
MOVB
MOV
MOV

#81T0,0DW
TST11
aCSR
#MA, 3CSR
@CSR,RCSR
AMA+RY ,RCSR
1$
AMA+RY ,ECSR
+16
#F2,aCSR
@CSR,RCSR
RCSR.R1

;TEST TO SEE IF WE ARE TESTING A DR11-W
;BRANCH TO NEXT TEST IF A DR11-B
;FORCE ACCESS TO CSR
SMAJNT
*MOVE RECEIVED DATA TO RCSR
*SEE IF EXPECTED DATA WAS RECEIVED
*BRANCH IF THEY ARE
*MOVE EXPECTED DATA TO ECSR
JREADY AND MAINTENANCE ARE NOT THE ONLY BITS SET
*SET FNCT2
*MOVE THE CONTENTS TO RCSR
*MOVE CONTENTS TO R1 FOR BIT TEST

#ER+AT R1
28

JTEST TO SEE IF ERROR AND ATTN ARE SET
:BRANCH IF IT IS PROPERLY SET

8IC

0CB1§13.R1

MOV

RCSR,ECSR

CMP
BEQ

002572

003670
120000

SCOPE
MOV

BIT

015140

124

015150

;:ttttttttttttttttttttttttttttttttttttttttttttttttt'ttttttttttttt

015112
015112
015114

015122

SEQUENCE

TEST #10 - ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS

o NRARRANAAAANAANNA NN R A AN

;*TEST 10

4905
4906
4907
4908
4909
4910
4911
4912
4913
4914

16:08

JSR
BIS
ERROR
BIC
MOV
BIT
8EQ
MOV
BIC
JSR

PC, CHKCAB
#ER+AT ,ECSR
+17
#AT+F2,3CSR
9CSR,RCSR
NER+AT ,RCSR
3$
RCSR,ECSR
NER+AT ,ECSR
PC, CHKCAB

CLR

aCSR

ERROR

+26

:88 THE ASCII MESSAGE

IN CSR

:CLEAR ALL BUT BITS ERROR & ATTN FOR TEST
:MOVE EXPECTED DATA TO ECSR

:G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
SSET THE BITS THAT SHOULD HAVE BEEN SET
JATTN AND ERROR FAILED TO SET PROPERLY
‘CLEAR ATIN & FNCT?
:MOVE CSR DATA TO RCSR
:BIT TEST ATTN AND ERROR BITS TO SEE IF THEY ARE CLEAR
*BRANCH IF ATIN IS CLEAR
:MOVE EXPECTED DATA TO ECSR
*CLEAR THE BITS THAT WERE SUPPOSED TO BE CLEAR
16O CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY

JATTN AND ERROR FAILED TO CLEAR PROPERLY
*RETURN TO CSR

CZIDRLDO-DR11 GEN NPR INTF(C
MACRO M1113
TEST #11 - FNCT BIT 1 CONTROLS DSTAT BIT 9
4922

02-NOV-81

LSBTTL

16:08

PAGE 97

TEST #11 - FNCT BIT 1

SEQUENCE

CONTROLS DSTAT BIT 9

;;ttttttttttitttttttittt'ttt 1 3223228233 2223223332X23 2222323 22X2322232233

s«TEST 1

FNCT BIT 1

CONTROLS DSTAT BIT 9

* %

THIS TEST

INSURES THAT FNCT BIT 1

CONTROLS DSTAT BIT 9.

- %

E;tttttttttifitttttttttttttttttttttitttttttttttttttttttttttttt'ttt

015346
015346
015350
015356
015364
015366

000004
012737
032777
001407
104401

015374

124

040

015404
4923 015404
4924 015410
4925 015416
4926 015424
4927 015432
4928 015436
4929 015442
4930 015444
4931 015452
4932 015454
4933 015462
4934 015470
4935 015476
4936 015502
4937 015506

005077
012777
017737
013737
013701
042701
001404
042737
104024
052777
017737
013737
013701
042701
022701

165112
010000
165100
002560
002572
177761

4939 015514

042737

015372

4938 015512

4940 015522
4941 015530

000404

001407

052737
104025

TST11:

015404
004000

001310
163754

015374
043

165104
002560
002572

000016

002572

000002
165034
002560
002572
170777
001000

165040
002560
002572

006000

002572

001000

002572

1000$:
1001$:
999%:

1%:

SCOPE
MOV
BIT
BEQ
TYPE

#9998 . SLPERR
#BIT11,3SWR
10018
,10008

;PROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;28 BRANCH IF NOT
;88 TYPE: ''T # 11"

.esgél

/T # 11/<CRLF>

;88 THE ASCII MESSAGE

(LR
MOV
MOV
MOV
MOV
8IC
B8EQ
BIC
ERROR
8IS
(0]
MOV
MOV
BIC
CMP

aCSR
#MA,aCSR
8(SR,RCSR
RCSR,ECSR
ECSR,R1
#CFNC R
13
#FNC,ECSR
+24
#F1,3aCSR
aCSR,RCSR
RCSR,ECSR
ECSR,R1
#CDST R
#DSC ,R1

JCLR FUNCT BITS AND FORCE ACCESS TO CSR
;MAINT MODE
;MOVE CONTENTS OF CSR TO RCSR
;MOVE EXPECTED TO ECSR
:MOVE CONTENTS TO R FOR TESTING
JCLEAR ALL BUT THE FNCT BITS
JBRANCH IF THE FUNCTION BITS ARE CLEAR
;CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
JFUNCTION BIT(S) ARE NOT CLEAR
JSET FNCT?
;MOVE CONTENTS OF CSR TO R(CSR
;MOVE EXPECTED DATA TO ECSR
:MOVE CONTENTS TO R1 FOR TEST
;CLEAR ALL BUT BITS 9, 108 11
JSEE IF DSTAT A AND B ARE CLEAR & C IS SET

BIC

#DAB,ECSR

JCLEAR

B8R

BEQ

BIS
ERRGR

10018

TST12

#DSC,ECSR
+25

;80 GET OVER ASCII

JBRANCH TO NEXT TEST IF ALL CLEAR
THE

DSTAT A £ B BITS

THAT

SHOULD HAVE BEEN

;SET THE DSTAT C BIT THAT SHOULD HAVE BEEN SET
sDSTAT A, B OR C ARE NOT AS EXPECTED

“LEAR

CZDRLDO~DR11 GEN NPR INTF(

MACRO M1113

TEST #12 ~ FNCT BIT 2 CONTROLS DSTAT BIT 10

4947

02-NOV-81

.SBTTL
SRR

H 8
PAGE 98

16:08

SEQUENCE

TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT 10
RN

TXTEST 12

AR A NN NN

AN C AN N

AN ARARAARANARANANAA

RN RAANA NN

FNCT BIT 2 CONTROLS DSTAT BIT 10

THIS TEST INSURES THAT FNCT BIT 2 CONTROLS DSTAT BIT 10.

015532
015532
015534
015542
015550
015552
015556
015560

000004
012737

4964 015700

4965 015706
4966 015714

BEQ

015560
040

015570

4948 015570
4949 015574
4950 015602
4951 015610
4952 015616
4953 015622
4954 015626
4955 015630
4956 015636
4957 015640
4958 015646
4959 015654
4960 015662
4961 015666
4962 015672
4963 015676

SCOPE
MOV
BIT

015570
004000

164726

010000
164714

002560
002572

043

164720

:
10008

1001$:
999%:

002560
002572

177761

001407
042737
052737
104025

000016

002572

000004

164654

164650
002560

002560
002572

005200
002000

002572
002572

002572
170777
002000

1%:

TYPE
BR

ASCIZ
.EVEN

CLR

MOV
MOV
MOV
MoV

BIC
BEQ
8IC
ERROR
8IS
MOV
MOV
MoV
BIC
cmMP
BEQ
BIC
BIS
ERROR

sPROCESS LOOPING AND TEST NUMBER INCREMENT

10018

;SET LOOP ON ERROR TO 999%
;80 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT

1001$
/T # 12/<CRLF>

J8% GET OVER ASCII
;80 THE ASCII MESSAGE

#9998 , $LPERR

#81T11,aswR
. 10008

aCSR

#MA ,aCSR

@CSR,RCSR
RCSR,ECSR

ECSR.R1

#CFNC R
1%

#FNC,ECSR

+24

#F2,aCSR
a(SR,RCSR
RCSR,ECSR

#DAC,ECSR
#DSB,ECSR

+25

;08 TYPE: ''T # 12"

sCLR FUNCT BITS AND FORCE ACCESS 10 CSR

JMAINT MODE

sMOVE CONTENTS OF CSR TO RCSR
sMOVE EXPECTED TO ECSR
sMOVE CONTENTS TO R1 FOR TESTING

sCLEAR ALL BUT THE FNCT BITS
;BRANCH IF THE FUNCTION BITS ARE CLEAR
sCLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
sFUNCTION BIT(S)

;SET FNCT2

ARE NOT CLEAR

sMOVE CONTENTS OF CSR TO RCSR
sMOVE EXPECTED DATA TO ECSR

;MOVE CONTENTS TO R1 FOR TEST
sCLEAR ALL BUT THE DSTAT BITS
s1F DSTAT A AND C ARE CLEAR & B IS SET
sBRANCH TO NEXT TEST IF AS EXPECTED
sCLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
sSET THE BIT THAT SHOULD HAVE BEEN SET

;DSTAT A, B OR C ARE NOT AS EXPECTED

CIDRLDO-DR11 GEN NPR_INTF(C
MACRO M1113
TEST #13 - FNCT BIT 3 CONTROLS DSTAT BIT 11
4972

(02-NOV-81

.SBTTL

o RARA RN

16:08

PAGE 99

SEQUENCE

TEST #13 - FNCT BIT 3 CONTROLS DSTAT BIT 11

T*TEST 13

AN R

AR RN AR AR AN RN RARAAAAA AN

ARARAAI

NN ARAACARAN

FNCT BIT 3 CONTROLS DSTAT BIT 11

THIS TEST

INSURES THAT FNCT BIT 3 CONTROLS DSTAT BIT 11.

N
MR

015716
015716
015720
015726
015734
015736
015742
015744

000004
012737
032777
001407
104401

S T13:

164534
002560

002572

4990 016072
4991 016100

000016

002572

000010

164470
002560
002572

164464

002560
002572

170777
004000

104025

003000
004000

002572
002572

1001$:
999%:

dddRR

2222222823222

282228

¢4

BIT
BEQ

#81T11,aswR
10018

BR
LASCIZ
.EVEN

10018
/T # 13/<CRLF>

;88 GET OVER ASCII
;88 THE ASCII MESSAGE

aCSR

¢CLR FUNCT BITS AND FORCE ACCESS TO (SR

adCSR,RCSR
RCSR,ECSR

sMOVE CONTENTS OF CSR TO RCSR

TYPE

:
10008

sPROCESS LOOPING AND TEST NUMBER INCREMENT
sSET LOOP ON ERROR TO 999$
;8% TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT

015744
043

SRRRdd

SCOPE

MOV

015754

4989 016064

RSl

015754
004000

040

4973 015754
4974 015760
4975 015766
4976 015774
4977 016002
4978 016006
4979 016012
4980 016014
4981 016022
4982 016024
4983 016032
4984 016040
4985 016046
4986 016052
4987 016056
4988 016062

LRSS

CLR

MOV
MOV
MOV
MOV
BI(C
BEQ
BIC

ERROR

8IS
MOV
MOV
MOV
BIC

CMP
BEQ
BIC

BI1S
ERROR

#9998 $LPERR

.1000%

#MA, (SR

ECSR,R1
:CFNC.R1
4

#FNC,ECSR

+24

#F3,aCSR
aCSR,RCSR
RCSR,ECSR

ECSR,R1

#CDST ,R1

#DSA ,R1
TST14

#0BC,ECSR
#DSA,ECSR

+25

;88 TYPE:

''T # 13"

sMAINT MODE

sMOVE EXPECTED TO ECSR

¢MOVE CONTENTS TO R1 FOR TESTING
sCLEAR ALL BUT THE FNCT BITS
sBRANCH IF THE FUNCTION BITS ARE CLEAR
sCLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
JFUNCTION BIT(S) ARE NOT CLEAR

JSET FNCT3

sMOVE CONTENTS OF CSR TO RCSR

sMOVE EXPECTED DATA TO ECSR
sMOVE CONTENTS TO R1 FOR TEST
sCLEAR ALL BUT DSTAT BITS
sSEE IF DSTAT B AND C ARE CLEAR & A IS SET
;BRANCH TO NEXT TEST IF DATA OK
sCLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
sSET THE BIT THAT SHOULD HAVE BEEN SET
;DSTAT A, B OR C ARE NOT AS EXPECTED

CZIDRLDO-DR11

GEN NPR INTF(

MACRO M1113

(02-NOV-81

TEST #14 - EIR BLOCKS DATA XFERS FROM ODR TO IDR

4999

.SBTTL

16:08

PAGE 100

;'TEST 14
. %

SEQUENCE

100

TEST #14 - EIR BLOCKS DATA XFERS FROM ODR TO IDR

e RRANRARA AR RANRANA RN AN AN

THIS TEST

ODR TO IDR
THE BDR,

A CAANAARANAAAARANAANAANRAAAAAAIANTORAS

EIR BLOCKS DATA XFERS FROM ODR TO IDR
INSURES

THAT GOING TO EIR MODE BLOCKS DATA TRANSFERS FROM

(ODR RECEIVES DATA WHEN WRITING TO THE BDR, AND WHEN READING

THE

IDR

IS READ).

SINNANARARNANARRAARAANA
AN AR AN NNNNNAARAIRARARN AN ARNRAAANRNANNANNRS R

016102
016102
016106

000004
012737

016120
016122
016126
016130

001407
104401
000404
124

016140
016140
016146
016150
016156

5005 016170

016112

5000
5001
5002
5003

5004 016162

5606 016176
5007
5008
5009
5010

016204
016206
016214
016216

5011 016226
5012 016232

5013 016240

5014 016246

5015
5016
5017
5018

016254
016256
016264
016266

032777

TST14:
§
016150

004000

003310

163220
043

032737
001451
005077
012777

000001

002610

164346
010000

164340

017737

164330

002564

012777
022737
001404
012737
104031
052777

052525

052525
052525

100000

164276

022737

052525

002564

001404
012737
104030
004737

052525

003646

999%:

sPROCESS LOOPING AND TEST NUMBER INCREMENT
sSET LOOP ON ERROR TO 999%

BEQ
TYPE
BR
.éegfil

10018
.10008
10018
/T # 14/<CRLF>

;28
88
;8%
;88

BIT
8EQ
(LR
MOV

#8170,80RW
TST15
aCSR
#MA _a(SR

cTEST TO SEE IF WE ARE TESTING A DR11-W
sBRANCH TO NEXT TEST IF A DR11-B
cFORCE ACCESS TO CSR
sSET MAINT MODE (SO THAT IDR GETS ODR CONTENTS)

MOV

aBDR RBDR

sMOVE RECEIVED DATA TO RBDR

13
#52525,EBDR
+31
#EIR,8CSR

¢BRANCH IF IT WAS
cMOVE EXPECTED DATA TO EBDR
;BDR PATTERN NOT CORRECT
;60 TO EIR

Mov
cMp

.
002576

002576
164264

164260

1001$:

002564

052525
125252

017737

1000$:

164334

012737
012777

#9998, SLPERR

BIT

016130
040

SCOPE
MOV

18:

002564

BEQ
MOV
ERROR
B1S

MoV
MOV
MOV

CMP

(02576

2$:

BEQ
MOV
ERROR
JSR

#81T11,35uR

#52525 . 3BDR
#52525 ,RBDR

#52525 EBDR
#125252 ,aB0R
aBDR RBDR

#52525 ,RBDR
23
#52525 ,EBDR
+30
PC,CLENUP

;8% TEST TO SEE IF TEST NUMBER TRACER ENABLED
BRANCH IF NOT
TYPE: ''T # 14°'
GET OVER ASCI!
THE ASCII MESSAGE

sSET ALT 0°'S AND 1'S TO BDR

;SEE IF DATA WAS LOADED PROPERLY

;MOVE EXPECTED DATA TO EBDR
sSET ALT 1°'S AND 0'S TO BDR
sMOVE RECEIVED DATA TO RBDR

;TEST FOR OLD PATTERN

¢BRANCH IF ORIGINAL PATTERN STILL THERE
sMOVE EXPECTED DATA TO EBDR
;BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN
sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI

TO 7

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 Q02-NOV-81
TEST #15 - DR11 INTERRUPTS WITH CPU AT LEVEL 3

5025

.SBTTL
. AN

16:08

K 8
PAGE 101

TEST #15 - DR11

N RN

S*TEST 15

ANRAN NN N RN RN

DR11

SEQUENCE

INTERRUPTS WITH CPU AT LEVEL 3

AN NN RN RN RANNRANA AR

THIS TEST_INSURES THAT THE DR11

016330
5026 016330
5027 016336
5028 016342
5029 016350
5030 016356
5031 016362
5032 016364
5033 016372
5034 016376
5035 016400
5036 016406

5037 016414
016422
016430
016436
016444
016450
016452
016460
016466
016474
016476
016502
016504
016510
016516

5038
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051

000004
012737

032777

016330
004000

SCOPE

001310
163030

MoV

016320
040

043

10008
:

010000

164164

1001$:
999%:

000140

177776

166160

164146

002560

000200
003670

002572

164122
164116

002532
002534
164104

002560
04737
04022

016504
010000
001000
000105
002660
164044

002532
002534

164072
002660
164056

1$:

002560
164040
164034

164020

000004
002532
002534

164010
164004

3$:

#9998, SLPERR

WILL

sPROCESS LOOPING AND TEST NUMBER INCREMENT
sSET _LOOP ON ERROR TO 999%

#BIT11,3SWR

1001$
.10008
10018
/T # 15/<CRLF>

288
s88
288
;88

MOV
CLR
MOV
MOV
TST8
BMI
MOV

#MA,3(SR

sSET MAINTENANCE BIT AND

#LEVEL3,PSW

sSTATUS AT LEVEL 3

TYPE
B8R
ASCIZ
.EVEN

JSR
ERROR

a(SR

TEST NUMBER

TRACER ENABLED

sCLEAR CSR TO DO AN INIT

+22

*READY OF CSR WAS NOT SET

#RY ECSR
PC,CHKCAB

MOV
MOv

#MA°QCSR

#38,aDRINV

*SET THE BIT THAT SHOULD HAVE BEEN SET
260 CHECK CABLE STATUS AND ALTER EXPECTED

:SAVE LOCATION TO BE USED AS THE
:SAVE LOCATION TO BE USED AS THE

*SET UP INTERRUPT VECTOR

SSET THE TIME COUNTER
-1E, FNCT2 AND GO

*BRANCH IF NOT THERE YET

TIME

9CSR.RCSR
SDRINV,@DRINV
SDRVS ,@DRVS

ADD
MOV

#6,SP

NECESSARY

INTERRUPT VECTOR
INTERRUPT PS

‘MAINT MODE

#1000, TIME
NIE+F+GO,3CSR

MOV
MOV
MOV

MOV

TO SEE

BRANCH IF NOT
TYPE: ''T # 15"
GET OVER ASCII
THE ASCII MESSAGE

sMOVE CSR CONTENTS TO RCSR
;SEE IF READY BIT (BIT 7) IS SET
*BRANCH IF IT IS

aDRINV,SDRINY
@DRVS, SDRVS

ERROR
CLR
B8R

;88 TEST

@CSR,RCSR
RCSR
1$

MOV
MOV

8IS
DEC
BNE

AANCANER

INTERRUPT WITH THE CPU PRIORITY

BIT
BEQ

MoV

2%:

INTERRUPTS WITH CPU AT LEVEL 3

AT LEVEL 3.
016272
016272
016274
016302
016310
016312
016316
016320

NN NN AN NN

101

*DECREMENT DOWN TO ZERO

*MOVE RECEIVED DATA TO RCSR
-RESTORE LOCATION USED AS THE
*RESTORE LOCATION USED AS THE

+35
aCSR
1sT16

*DR11 FAILED TO INTERRUPT
*CLEAR THE CSR TO DO AN INIT
*BRANCH TO THE NEXT TEST

SDRINV,3DRINV
SDRVS ,@DRVS

-RESTORE LOCATION USED AS THE
*RESTORE LOCATION USED AS THE

SCLEAN THE

STACK AFTER THE

INTERRUPT VECTOR
INTERRUPT PS

INTERRUPT

INTERRUPT VECTOR
INTERRUPT PS

—

_—

L 8
PAGE 102

GEN NPR INTF(
MACRO M1113 (02-NOV-81 16:08
TE ST #16 ~ DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7
€2 DRLDO-DR11

5058

.SBTTL
MR

SEQUENCE

102

TES: #16 - DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7

AAAARAAARS AR

TRTEST 16

SRRt

ittt

iilld])

DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7

L?IEE€EET7I~SUPES THAT THE DR11 FAILS TO INTERRUPT WITH THE CPU PRIORITY

000004
012737
032777
001407
104401
000404

016562
004000

#81T11,3SWR

016552

. 10008

#9998 SLPERR
1001$
—

|9,

no
&~

parPur Qe

0
0
0 6526
0 6534
0 16542
0 16564
0 16550
016552

001$

1264

040

:
10008

/T # 16/<CRLF>

016562
5059 016562
5060 016566
5061 016576
5062 016600
5063 016602
5064 016610
5065 016614

004737
017737
105737
100411
012737
004737
052737

003646

1001$:
9998:

PC,CLENUP

5067 016624
5068 016632

017737
017737

5066 016622

104022

5069 016640
5070 016646
5071 016654
5072 016662
5073 016670
5074 016676
5075 016702
5076 016704
5077 Gi6710
50/8 016716
5079 016724
5080 016726
5081 015732
5022 16740
5083 8}6744

012777
012777
012737
012777

052777
005337
001375
005077
013777
013777
000416

o1 6760

104036

062706

017737
005077
013777

163730
002560

002560

000200
003670
000200

002572

163676
163672

002532
002534

016726

000340

001000
010000
000105
002660

1%:

163660
1630654

163612

002532
002534

000004

163564
163556

002532
002534

002560
163554
163550

"'T & 16"

;88 GFT OVER ASCIlI
;88 THE ASCI] MESSAGE
sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET (CPU PRI 10 7

;MOVE CSR DATA TO RCSR

+22

sREADY OF

#DRINV, SDRINV
8DRVS, SDRVS
#3% ,aDRINV
#LEVEL7,8DRVS
#1000, TIME
#MA

;88 TYPE:

8CSR,RCSR

RCSR
1%
#RY ECSR
PC,CHKCAB
#RY ,ECSR

002572

JPROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR T0O 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENASLED
;88 BRANCH IF NOT

(SR

#IE+F2+G0,aCSR
TIME

a(SR
SDRINV,@DRINV
SDRVS ,aDRVS
TST17
#6,SP
8CSR,RCSR
a(SR
SDRINV ,aDRINV
SDRVS ,8DRVS

+36

;CLEAR ALL BUT THE READY BIT (BIT 7)
sBRANCH IF IT IS SET
sMOVE EXPECTED DATA TO ECSR
;G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
sSET THE BIT THAT SHOULD HAVE BEEN SET
CSR WAS NOT SET

sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
sSET UP INT VECTOR
JSET TIME DELAY COUNTER
;MAINT MODE
JIE, FNCT2 AND GO
;DECREMENT UNTIL WE GET TO ZERO
;BRANCH BACK IF NOT ZERO YET
JCLEAR THE CSR TO DO AN INIT
JRESTORE LOCATION USED AS THE INTERRUPT VECTOR

JRESTORE LOCATION USED AS THE INTERRUPT PS

JBRANCH TO THE NEXT TEST
JRESTORE STACK
JMOVE RECEIVED DATA TO R(CSR
JCLEAR IE
JRESTORE LOCATION USED AS THE
JRESTORE

;DR11

LOCATION USED AS

THE

INTERRUPT VECLTOR
INTERRUPT PS

INTERRUPTED, BUT IT SHOULDN'T HAVE

CZORLDC=DR11 GEN NPR INTF(
TESY #17 -~ DR11

INTERRUPTS AT

MACRO M1113

02-NOV-81 16:08

(CORRECT BR LEVEL

5092

.SBTTL

PAGE 103

TEST #17 - DR11

SEQUENCE

103

INTERRUPTS AT CORRECT BR LEVEL

.'.'ttt".'t"t'ttt.l'tt't'tQttttt"t"t"t.tt'.".'.t'.."'t'.'tt'

JeTEST
M

016762

016764
016772
017000
017002
017006
017010

017020

000004

012737
032777
001407
104401
000404
124

017074
004000

040
(03646
002720
001362
001362
001362

5100 017056

042737

177770

001362
001362

5:01 017064 012700 000003
5102 017070
5103 017074
5104 017102
5105 017106
5106 017112
5107 017120
5108 017126
5109 017132
5110 017140
5111 017142
5112 017150
5113 017156
5114 017160
5115 017166
5116 017174
5117 017202
5118 017210
5119 017216

012701
012777
005077
011137
017737
012737
004737
023737
001412
012737
012737
104022
012737
017237
017737
012777
012777
012777

004732
010000
163414
177776
163404
000200
003670
002560

5121 017232
5122 017240
5123 017244
5124 017246
5125 017252
5126 017260
5127 017266
5128 017274
5129 217276
5130 017300
5131 077302

052777
005337
0G 375
005077
013777
013777
013737
005721
005300
001275
104053

5120 017224

012737

001310
162340

017010

004737
013737
006237
006237
006237
006237
006237

DR11

INTERRUPTS AT

(ORRECT BR LEVEL

THIS TEST

INSURES THAT

THE DR11

WILL

INTERRUPT AT

DEFINED IN THE DEVICE DESCRIPTOR WORD.

THE CORRECT LEVEL AS

:'.'.Q..t..'tt'.".fi.t.t"t't.'.t".t..Qt'."."'.'...'."'t".'.t.
75117:

5093 017020
5094 017024
5095 017032
5096 017036
5097 017042
5098 017046
5099 017052

043

10018:

001362

001362
163420

9998:

002572
001310
002572

017074
163334
163330
017314
000340
010000

001310
002532
002534
163316
163312
163276

000105
002660

163262

163250
002532
002534
177776

1$:

002560
002572

017064
000200

000400

10008:

2%:

002660

163246
163242
002540

SCOPE
MOV
BIT
BEQ
TYPE
BR
.ASIIZ

:PROCESS LOOPING AND TEST NUMBER INCREMENT

:SET LOOP ON ERROR TO 9998
88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;8% BRANCH IF NOT
8L TYPE: T # 17"
;88 GET OVER ASCII
(DL THE ASCII MESSAGE

JSR
MOV
ASR
ASR
ASR
ASR
ASR
BIC

PC,CLENUP
DDW,STMP1
$TMP1
STMPI
$TMPI

;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET (PU PRI
MOVE DEVICE DESCRIPTOR WORD 10 $°MP1
JSHIFT THE LEVEL TO THE RIGHT S PLACES

#177770,8TMP1

;CLEAR ALL BUT THE PRIORITY

MOV
MOV
(LR
MOV
MOV
MOV
JSR
(MP
BEQ
MOV
MOV
ERROR
MOV
MOV
MOV
MOV
MOV
MOV

#LEVELS R
#MA.@(SR
aCSR
(R1),PSW
@(SR,RCSR
WRY,ECSR
PC,CHKCAB
RCSR,ECSR
28
#1S,SLPERR
WRY.ECSR
+22
#9998 SLPERR
@DRINV,SDRINV
@DRVS,SDRVS
#4$,aDRINV
WLEVEL7,aDRVS
#MA a(SR

;MOVE ADDRESS OF CPU PRIORIVIES 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
G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECES ARY
:SEE IF RECEIVED DATA MATCHES EXPECTED
BRANCH IF OK
:SET UP FOR POSSIBLE LOOP ON ERROR FOR THIS ERROR ONLY
:MOVE EXPECTED DATA TO ECSR
:READY OF CSR WAS NOT SET
: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
:SET UP INTERRUPT VECTOR
:SET UP INTERRUPT PS
MAINT MODE

MOV

38:

#9998 SLPERR
#8IT11,3swR
10018
10008
ioo1s
/T A 17/<CRLF>

BIS
DEC
BNE
(LR
MOV
MOV
MOV
1ST
DE(
BNE
ERROR

$TMP
STMPI

#3,R0

#400,TImE

WIE+F2+G0,aCSR
TIME
38
aCSR
SDRINV,@DRINV
SDRVS,@DRVS
PSw,LEVEL
(R15+
RO
999%
+53

:DC 3 PRIORITY LEVELS

:SET DELAY COUNTER

:1E, FNCT2 AND GO
:DECREMENT UNTIL WE GET TO ZERD
BRANCH BACK IF NOT 2ERQ YET
:CLEAR (SR TO DO AN INIT
RESTORE LOCATION USED AS THE INTERRUPT VE(TOR
RESTORE LOCATION USED AS THE INTERRUPT S
:SAVE OLD STATUS LEVEL
INCREMENT R1 TO POINT TO NEXT PRIORITY LEVEL
:DECREMENT LOOP COUNTER AND
JBRANCH BACK FOR ANOTHER TRY ]F NOT DONE
sDR11 FAILED TO INTERRUPT

TO 7

CZDRLDO=DR11 GEN NPR INTF(
TEST #17 - DR11

013737
000422

002552

5136 017326
5137 017332

013777
013777

002532
002534

5138 017340

5139 017346
5140 017356
5141

017356

(02-NOV-81 16:08

INTERRUPTS AT CORRECT BR LEVEL

5132 017304
5133 017312

5134 0173164
5135 017320

MACRO M1113

062706
005077

042737

023737
001401
104052

000004
163176

177437

002540

002540
6$:

MOV
8R

SDRINV,SDRINV
SDRYS ,8DRVS

.
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE I[NTERRUPT PS

8iC

#177487 LEVEL

ERROR

+5¢

002552

(MP
BEQ

SEQUENCE
sSET LEVEL TO CONTAIN THE ANTICIPATED LEVEL
JBRANCH TO THE NEXT TEST

#6,SP
8(SR

MOV
MCv

DRLEV,LEVEL
1ST20

ADD
(LR

163174
163170

002540

PAGE 1031

LEVEL ,DRLEV
TST20

JRESTORE STACK
JCLEAR IE

:CLEAR ALL BITS BUT THE BR LEVEL

JSEE IF LEVEL INTERRUPTED MATCHES EXPECTED
sBRANCH AROUND ERROR CALL IF IT IS AS EXPECTED
;DR11

INTERRUPTED AT WRONG LEVEL

104

—_—

—

|(ZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 (02-NOV-81
TEST #20 -~ A GO WITHOUT CLEARING ERROR CAUSES INTRPT
5148

.SBTTL

16:08

PAGE 104

SEQUENCE

105

TEST #20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT

't"t.""."t"..t""""..'....t..tQ'.'Q..l..t..."..t'."'Q

SeTEST 20

A GO WITHOUT CLEARING ERROR CAUSES INTRPT

* %

ie
. &

000004
012737

017376
017400

001407
104401

032777

15120:
017416

004000

001310

161742

000404
124

C40

017416
5149 0176416
5150 017422
5151 017430
5152 017436
5153 017444
5154 017452
5155 017456
5156 017464
5157 017472
5158 017500
5159 017504

004737
017737
017737
012777
012777
005037
012737
012777
052777
005337
001375

003646
163100
163074
017540
000140
177776
001000
010101
020004
002660

043

002532
002534
163062
163056
002660
163030
163022

5160 017506
5161 017514
5162 017522
5163 017530
5164 017532
5165 017536
5166 017540
5167 017544
5168 017552
5169 017560
5170 017566
5171 017570
5172 017576
5173 017604
5174 017606

013777
013777
017737
104035
005077
000512
062706
C13777
013777
017737
100407
013737
052737
104037
017737

002532
002534
162774

5176 017622
5177 017630
5178 017634

012777
005077
012777

017716
162664
177777

5180 017650

052777

000001

162644

002532
002534
162616

162634
162630
002560

5175 0172614

017737

10008:
10018
9998:

1$:

163012
163006
002560

162764
000004
002532
002534
162736

162754
162750
002560

002560
100000

002572
002572

162714

162710

002532

002534

28:

3$:

162676

162654

5179 017642 012737 001000 002660
5181 017656

5182 017662
5183 017664
5184 017672
5185 017700
5186 017706
5187 017710

INSURES

THAT

SETTING THE GO BIT WITHOUT

BIT CAUSES AN INTERRUPT.

005237

001375
013777
013777
017737
104035
005077

002660

162606

THE ERROR

XX 222223

#9998 SLPERR

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

BEQ
TYPE

10018
10008

;88 BRANCH IF NOT
‘88 TYPE: 'T # 20°

'23%#1

/T # 20/<CRLF>

188 THE ASCII MESSAGE

JSR
MOV
MOV
MOV
MOV
CLR
MOV
MOV
BIS
DEC
BNE

PC,CLENUP
@DRINV,SDRINV
aDRVS, SDRVS
#28 . 3DRINV
#LEVEL3.3DRVS
PSW
#1000, TIME
MMA+TE+GO,@CSR
NAT+F 2, ACSR
TIME
18

;SUBROUTINE TO CLEAR DEVICF REGISTERS & SET CPU PRI
:SAVE LOCATION 70 BE USED AS THE INTERRUPT VECTOR
SSAVE LOCATION TO BE USED AS THE INTERRUPT PS
*INTERRUPT VECTOR TO 3%
:IN.ERRUPT STATUS TO LEVEL 3
*LET THE DR11 INTERRUPT
*MOVE DELAY COUNTER TO LOCATION
-SET MAINT, IE AND GO
SSET ATTN AND FNCT2
*DECREMENT UNTIL WE REACH ZERO
*BRANCH IF NOT ZERO YET

#81T11, aswR
foo1s

<88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
188 GET OVER ASCII

MOV
MOV
MOV
ERROR
CLR
BR
ADD
MOV
MOV
MOV
BM]
MOV
BIS
ERROR
MOV

SDRINV,3DRINV
SDRVS, @DRVS
aCSR,RCSR
+35
acse
TST21
#6 SP
SDRINV,3DRINV
SDRVS , aDRVS
aCSR,RCSR
38
RCSR,ECSR
#ER,ECSR
+37
aDRINV,SDRINV

:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
*MOVE RECEIVED DATA TO RCSR
SDR11 FAILED TO INTERRUPT
:CLEAR THE CSR TO DO AN INIT
SBRANCH TO THE NEXT TEST
SREADJUST 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
*SET THE BIT THAT SHOULD HAVE BEEN SET
*ERROR BIT SHOULD NOT BE CLEAR
:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR

MOV
CLR
MOV

#58 ,aDRINV
aeAn
awCR

*INTERRUPT VECTOR TO 6%
*PREVENT CAUSING ANOTHER ERROR
SSET-UP WCR

MOV

MOV
48:

CLEARING

SCOPE
MOV

BIT

017406

TEST

:.232322222233 223242322382222223232223223223222322 2222 X X

017360
017360
017362

017370

THIS

aDRVS , SDRVS

c1obo TIME

:SAVE LOCATION TO BE USED AS THE INTERRUPT PS

SLOAD 1000 IN LOCAYION TIME FOR WAIT LOOP

8IS

#G0,aCSR

*SET 'GO*

BNE
MOV
MOV
MOV
ERROR
CLP

4
SDRINV,@DRINV
SDRVS,aDRVS
aCSR,RCSR
+35
aCSR

:BRANCH BACK IF NOT ZERO
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
SRESTORE LOCATION USED AS THE INTERRUPT PS
*MOVE RECEIVED DATA TO RCSR
*DR11T FAILED TO INTERRUPT
SCLEAR CSR TO DO AN INIT

INC

TIME

IN CSR

:DELAY = WAIT FOR INTERRUPT

TO 7

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

TEST #20 - A GO WITHOJT CLEARING ERROR CAUSES

5188 017714
5189 017716
5190 017722
5191 017730
5192 017736
5193 017744
5194 017746
5195 017754
5196 017762

000423
062706
013777
013777
017737
100007
013737
042737
104021

000004
002532
002534
162560

162576
102572
002560

002560
100000

002572
002572

5%:

02-NOV-81
INTRPT

BR
ADD
MOV
Mov
MOV
BPL
Mov
BIC
ERROR

16:08

PAGE 104-1

18121
#4,SP
SDRINV,3DRINV
SDRVS ,@8DRVS
aCSR,RCSR
TST21
RCSR,ECSR
#ER,ECSR
+21

SEQUENCE
¢BRANCH TO THE NEXT TEST
cCLEAN UP STACK AFTER INTERRUPT
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
+MOVE RECEIVED DATA TO RCSR - IS ERROR CLEAR
sBRANCH TO NEXT TEST IF IT IS
sMOVE EXPECTED DATA TO ECSR
sCLEAR THE BIT THAT SHOULD HAVE BEEN (LEAR
JERROR BIT SHOULD HAVE BEEN CLEAR

106

—

CZDRLDO-DR11
TEST #21

MACRO M1113

GEN NPR INTF(

- FUNCTION BITS

INC WITH MAINT MODE

5203

02-NOV-81

TRANSFERS

.SBTTL

STEST 21
*

o
%

020022
5204 020022
5205 020030
5206 020036
5207 020042
5208 020050
5209 020056
5210 020064
5211 020072
5212 020100
5213 020106
5214 020112

]
262
5237 020264
5238 020270
5239 020275

107

AR R AN AN AN RN NARA AN

ARG

IR ARIRRARARARS

FUNCTION BITS INC WITH MAINT MODE TRANSFERS

THIS TEST

INSURES

MODE TRANSFERS.

THAT

THE FUNCTION BITS

INCREMENT WITH MAINTENANCE

;:tttttit'tttQtfittfit't"t"t'itfifitttttt*fittltt.tt'it.ttt'tt"i'.t

104401

000404
124

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
042737
053737

001264

-3

020036
004000

TST21
WW

000004
012737
032777
001407

- O
oo

017764
017764
017766
017774
020002
020004
020010
020012

SEQUENCE

TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS

S oNRAAR R AR AN AN AN

D 9
PAGE 105

16:08

BEQ

020012

TYPE

040

043

000016

001364
001360

177771

003646
002616
162452
162446

020174
002540
001360
177776

162450
002532
002534
162434
162430
162410

010000
001000
000501
002660

002660
162366

162354
002532
002534

002560
162350
162344

10008 :

10018:
999%:
1$:

162302

002560
177761
001364

001360
000002

002572
002572
002572

001364

;8% GET OVER ASCII

MOV
MoV
JSR

#16,3TMP2
#-7,8TMPO
PC,CLENUP

sSET UP FUNCTION COUNT COMPARE
sSET UP WCR LOAD VARIABLE
s SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI

MOV
MoV
MoV

#38 ,8DRINV

s INTERRUPT VECTOR PRIORITY

#MA,3CSR

sMAINT MODE

MOV

#1000, TIME

DEC
BNE

TIME
2%

#IE+CY+GO,aCSR

MOV
MOV
MOV

#CSR,RCSR
SDRINV,8DRINV
SDRVS ,aDRVS

CLR

8CSR

+35

B8R
ADD

#4,SP

MOV

&8CSR,RCSR

MOV
MOV

s INTERRUPT VECTOR

LEVEL ,8DRVS

$TMPO,3WCR
PSW

8IS

;88 THE ASCII MESSAGE

INBUF ,@BAR
:SET-UP BAR
@DRINV,SDRINV ~ ;SAVE LOCATION TO BE USED AS THE
@DRVS, SDRVS
sSAVE LOCATION TO BE USED AS THE

MoV
(LR

18122

INTERRUPT VECTOR
INTERRUPT PS

TO LEVEL OF

DEVICE

¢SET UP FOR NUMBER OF TRANSFERS IN $TMPO
cLET THE DR11 INTERRUPT

;MOVE WAIT COUNTER TO LOCATION TIME
;IE,

CYCLE & GO

cDECREMENT UNTIL ZERO
sBRANCH BACK IF NOT

sMOVE RECEIVED DATA TO RCSR
;RESTORE LOCATION USED AS THE
JRESTORE LOCATION USED AS THE

;DR11 FAILED TO INTERRUPT

INTERRUPT VECTOR

INTERRUPT PS

sCLEAR THE CSR TO DO AN INIT

¢BRANCH TO NEXT TEST
sCLEAN UP STACK AFTER INTERRUPT

SDUINV,@DRINV
SDRVS ,8DRVS

;RESTURE LOCATION USED AS THE
¢RESTORE LOCATION USED AS THE

MOV
BIC
CMP
BEQ
MOV
8IC

RCSR.R1
#CFNC,R1
R1,8TMP2
48
RCSR,ECSR
#FNC ECSR

sMOVE RECEIVED DATA TO R1 ALSO AND
cCLEAR ALL BUT THE FUNCTION BITS
sSEE IF FUNCTION BIT(S) HAD INCREMENTED PKOPERLY
;BRANCH IF THEY HAD
sMOVE RECEIVED DATA TO EXPECTED LOCATION
sCLEAR THE FUNCTION BIT(S) THAT WERE THERE AND

ERROR

+212

sFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE

8IS
4$:

.10008

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;8% BRANCH IF NOT
;88 TYPE: ''T # 21"

/T # 21/<CRLF>

ERROR

38:

1001$

sPROCESS LOOPING AND TEST NUMBER INCREMENT
sSET LOOP ON ERROR TO 999%

.ésgél

MOV

28:

#9998, SLPERR
#BIT11,3SWR

10018

MoV

162402

000004
002532
002534

B8R

MOV

162330

002560
000016
001364

SCOPE
MOV
BIT

INC
su8
BNE

$TMPJ ECSR

$TMPO
#2,$TMP2
18

cMOVE RECEIVED DATA TO RCSR

INTERRUPT VECTCR
INTERRUPT PS

JPUT FUNCTION BIT(S) EXPECTED IN THEIR PLACE

sADJUST WCR LOAD LOCATION
s SUBTRACT 2 FROM FUNCTION COUNT TEST LOCATION
;BRANCH BACK FOR ANOTHER TRY

TO 7

CZDRLDO=-DR11 GEN NPR INTF(
MACRO M1113
TEST #22 ~ TEST FOR 10 MAINT MODE TRANSFERS
5245

(02-NCV-81

SBTTL

AR AR

PAGE 106

SEQUENCE

TEST #22 - TEST FOR 10 MAINT MODE TRANSFERS

AN NARARAAARA RN IR A RANAANRANA A EAAACANANNAANRAARIAOTNRRNS

'TEST 22
&1

16:08

TEST FOR 10 MAINT MODE TRANSFERS

THIS TEST CHECKS

10 MAINTENANCE MODE

TRANSFERS CAN BE DONE.

. %
A

020336
52646 020336
5247 020342
5248 020350
5249 020356
5250 020362
5251 020366
5252 020372
5253 020400
5254 020406
5255 020414
5256 020422
5257 020430
5258 020436
5259 020444
5260 020450
5261 020456
5262 020464
5263 020472
5266 020476
5265 020500
5266 020506
5267 020514
5268 020522
5269 020524
5270 020530
£271 020532
5272 020536
5273 020544
5274 020552

5275
5276
5277
5278
5279
5280

020556
020560
020564
020570
020572

104401

020326

124

040

005077
012737

162160
000010

000404

nNO

020336
004000

18722
——d

000004
012737
032777
001407

020300
020300
020302
020310
020316
020320
020324
020326

AASAR SRR

SCOPE

MOV

:
10008

10018%:
999%:

BIT
BEQ
TYPE
BR
LASCIZ
.EVEN

CLR

MOV
Mov
NEG

JSR
JSR
MOV
MoV

MOV
MoV
MOV
MOV

MOV
CLR

MOV

001000
002660

1$:

002532
002534
162002

MoV
MOV
MOV

161772

000004
002532
002534
003356

002714
003526

003624

BIS
MOV
DEC
BNE

2s:
3s:

ERROR
CLR
BR

ADD
MOV

MOV

JSR
ERROR
CLR
JSR
ERROR
JSR

RER

iRttt

lsii

#9998 ,SLPERR
#BIT11,3SWR
1001$

.1000%

10018
/T # 22/<CRLF>

il 228222222222223220%
¢

JPROCESS LOOPING AND TEST NUMBER INCREMENT

JSET LCOP ON ERROR TO 9998
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;88 TYPE:
;88 GET OVER ASCII
;80 THE ASCII MESSAGE

aCSR
#10,BUFLEN
BUFLEN,WCLEN
WCLEN

:2'S COMPLEMENT OF BUFLEN

INBUF ,@BAR
#-1_,38DR
aDRINV,SDRINV

:SET UP WCR
;SET UP BAR
csMAINT AIDE
sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR

PC.LODBUF
PC,CHKBFF
WCLEN,8WCR

@DRVS, SDRVS

#2% ,3DRINV
LEVEL ,aDRVS
PSW

#MA ,aCSR
#1E+CY+GO,aCSR

sFORCE ACCESS TO (SR

;BUFLEN=10

sPREPARE NUMBER FOR WCR

sLOAD IN BUFFER WITH INCREMENTING PATTERN
sLOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN

;SAVE LOCATION TO BE USED AS THE

INTERRUPT PS

: INTERRUPT VECTOR
s INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE

:LET DR11 INTERRUPT

SMAINT MODE

PC ,DATCHK

:1E, CYCLE & GO
sSET LOOP COUNTER FOR WAIT
;DECREMENT UNTIL WE GET TO ZERO
sBRANCH BACK IF NOT Z2ERO
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATINN USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR
;DR11 FAILED TO INTERRUPT
CLEAR THE CSR TO DO AN INIT
:BRANCH AROUND THE STACK CLEANUP
sCLEAN UP STACK AFTER THE INTERRUPT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
;GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR
sCSR AND-OR WCR AND-OR BAR ARE INCORECT
sCLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
sCHECK INBUF AFTER A MAINTENANCE MODE OPERATION

PC.DATCH?

;G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DAT(HK

#1000, TIME
TIME
19
SDRINV ,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

+35

a(SR

86 ,5P
SDRINV ,aDRINV
SDRVS ,aDRVS
PC,INTA

+51
ERRCNT

+201

sBUFFER DATA NOT CORRECT

108

CZDRLDO=DR11 GEN NPR INTFC

MACRO M1113

TEST #23 - TEST 10 MAINTENANCE MODE XFERS

(02-NOV-81

.SBTTL

5287

TRTEST 23

AN ANANANA
R

*
*

F
9
PAGE 107

SEQUENCE

109

TEST #23 - TEST 10 MAINTENANCE MODE XFERS

RRR A RN

16:08

AR AN RANR AN A NAANARANNR

AN AARNRRRRRARROENIES

TEST 10 MAINTENANCE MODE XFERS

THIS TEST CHECKS THAT 10 MAINTENANCE MODE

TRANSFERS, ATTEMPTED BEFORE

SERVICING A PcNDING INTERRUPT OF A PREVIOUS TRANSFER, ARE UNSUCCESSFUL.

SIANNRNRANRAANAAANAAARNAA
AN AN A RN AAANANNRN NN
NN NAANNRNNANN NN
R RS

—b

020624

TYPE
BR
LASCIZ
.EVEN

BIT
BEQ

040

:
10008

002660
002622
002630

1001$:
9998.

MOV
MOV
MOV
MOV
Mov
MOV
MoV
MOV

\¥,]

004737

002714
003526

002532
002534
003356

002660

1$:
——

2$:

N\ = b
SO0

b
b wmd

(=]

—b
b
b

161442

010000
001000
002630
002616

161404
161400

BIS

DEC
BNE

MOV
Mov

003624
000004
002532
002534

JSR

MOV
MOV
MOV

NEG
JSR
JSR

OOOOSOOOO

003646
001000
000010

017737
012777
013777
012777
052777
005337
001375
013777
013777
004737

104201

MoV

004737
012737
012737
013737
005437
004737
004737
013777
013777
012777
017737

SCOPE

020634
004000

bl = L = T P

104401

000404
124

104051
005037

o]]
nonN

\V,| NAVANVIAAIVAWAWNWVIWAVVAL

N AN AN N N N NN NN N NN N N
NN ~N PNORORON)
= o cd d =D o b b b
[o
3V,] &» W= O V00~
WWN) =

020634
5288 020634
5289 020640
5290 020646
5291 020654
5292 020662
9293 020666
5294 020672
5295 020676
5296 020704
5297 020712
5298 020720
5299 020726
5300 020734

012737
032777
001407

—

020622
020624

000004

020616

[

)

020576
020576
020600
020606
020614

3$:

JSR
ERROR
CLR
JSR
ERROR
JSR
B8R

ADD
MOV
MOV
MOV

ERROR
BR

MOV
MOV
MOV
MoV
MOV
Mov

#9998 $LPERR

#BI1T11,a5WR

sPROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
J88 TYPE: ''T # 23"

/T # 23/<(RLF>
PC,CLENUP

#1000, TIME

#10,BUFLEN
BUFLEN,WCLEN
WCLEN
PC,LODBUF
PC,CHKBFF
WCLEN,aW(CR
INBUF ,@BAR
#-1,38DR
@DRINV, SDRINV
@DRVS, SDRVS
#28
., aDRINV
LEVEL
. 8DRVS

#MA ,8CSR
#IE+CY+GO,aCSR

TIME
18
SDRINV,3DRINV
SDRYS ,aDRVS
PC,INTA

+51
ERRCNT

PC,DATCHK

+201

PC.DATCH?

#4,SP
SDRINV,3DRINV
SDRVS ,@DRVS
8CSR,RCSR

+36
TST24

#MA . aCSR

#1000, TImE

WCLEN,aWCR

INBUF ,3BAR
aDRINV, SDRINV
aDRVS, SDRVS

;8% GET OVER ASCII
;88 THE ASCII MESSAGE
:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
;SET DELAY

sBUFLEN=10

sPREPARE NUMBER FOR WCR

:2'S COMPLEMENT OF BUFLEN
cLOAD IN BUFFER WITH INCREMENTING PATTERN
sLOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
sSET UP W(CR
:SET UP BAR
SMAINT AIDE
;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
s INTERRUPT VECTOR
s INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
sMAINT MODE
sIE, CYCLE & GO
sWAIT FOR TRANSFERS TO COMPLETE
sBRANCH BACK IF WE ARE STILL WAITING
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
;GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR
;CSR AND-OR WCR AND-OR BAR ARE INCORECT
sCLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
sCHECK INBUF AFTER A MAINTENANCE MODE OPERATION
;BUFFER DATA NOT CORRECT

;GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK
;BRANCH TO CONTINUE
sCLEAN UP THE STACK FROM THIS INTERRUPT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
cMOVE RECEIVED DATA TO RCSR
sDR11

INTERRUPTED, BUT IT SHOULDN'T HAVE

sBRANCH TO NEXT TEST

sMAINT MODE

sSET TIME LOOP COUNTER
sMOVE WCLEN TO WCR
sMOVE INBUF TO BAR
sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS

W
~
~
~

ON)
= 2 =20 O OWN

021304
010000
000501
002660

161366
161354
161346

MOV
MOV

A ¥

002532
002534
161320
010700

161270
177770

002566
161256

002616

002566

161240
177770
002616

002570
002602
002600

5%:

6S:

7%:

000004
002532
002534

8s:

wVinON

O
=
OHro

161220

161172

BIS
DEC
BNE

CMP
8EQ
MOV

010700

013777
017737
104042

02-NOV-81 16:08

MOV
MOV
MOV

[ Yo
gy
[l
o
N)
—b —b

021250
021252
021260
021266
021274
021276
021302
021304
021310
021316
021324
021332

[=]elelelalelelele]

ONOSHSOON
O SO

d e

5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353
5354

—b
b ok b ed

OVBNOWNEWN =00

N NN N NN N NN WIN NN
&5 WK N N NN N NN
NN

VIV
AN TN
T AW

5341

NN POPNOIPNIPNIN)
=2 b —d ecd e b d =D
SN NN = = OO
ONWNV SN

j=lele) [elelelololololelolololele)
NN POAINI AN AL

MACRO M1113
CIDRLDO=DR11 GEN NPR INTFC
TEST #23 - TEST 10 MAINTENANCE MODE XFERS

ERROR

MOV

CMP
BNE
CMP
BEQ
MOV

MOV
MOV

ERROR
CLR
BR
ADD
MOV

MOV
Mov

ERROR

69
PAGE 107-1

#8$ ,aDRINV

#MA ,aCSR
#1E+CY+GO,a8CSR
TIME

43
SDRINV,@DRINV
SDRVS
, aDRVS
3CSR,RCSR

#10700,RCSR

5$
#10700,ECSR
+40
@BAR,RBAR
0;10.3UCR
6
INBUF ,RBAR
7$
aWCR,RWCR
INBUF ,EBAR
+41
aCSR
TST24

#4,SP
SDRINV,3DRINV
SDRVS ,aDRVS
aCSR,RCSR

y +42

SEQUENCE

;SET UP INTERRUPT VECTOR
sMAINT MODE
;1E, CYCLE & GO
sDECREMENT TO ZERO WHILE WAITING
sBRANCH BACK IF NOT ZERO
sRESTORE LOCATION USED AS THE

INTERRUPT VECTOR

¢cRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR
sSEE IF ONLY READY, MAINT, IE & CYCLE ARE SET
;BRANCH [F THEY ARE

cMOVE EXPECTED DATA TO ECSR

¢CSR IS WRONG
;MOVE RECEIVED DATA TO RBAR
;CHECK THAT NO TRANSFERS WERE MADE
sBRANCH TO ERROR IF THERE WERE
sCHECK THAT NO TRANSFERS WERE MADE
sBRANCH AROUND ERROR IF NONE
sMOVE RECEIVED DATA TO RWCR
sMOVE EXPECTED DATA TO EWCR
;MOVE EXPECTED DATA TO EBAR
: TRANSFERS SHOULD HAVE BEEN INHIBITED
sCLEAR THE CSR TO DO AN INIT
sBRANCH TO NEXT TEST
sCLEAN UP STACK AFTER INTERRUPT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR
;DR11 SHOULD NOT HAVE INTERRUPTED A 2ND TIME

110

MACRO M1113

CIDRLDO-DR11 GEN NPR INTF(C

TEST #24 - TEST FOR 200 NPR TRANSFERS

5360

02-NOV-81

IN MAINT MODE

SBTTL

16:08

SEQUENCE

TEST #246 = TEST FOR 200 NPR TRANSFERS IN MAINT MODE

AL AALALIAR AR

RTEST 24
t
t

H 9
PAGE 108

AR SRR

ARAARd

ARl

llsds

111

)

TEST FOR 200 NPR TRANSFERS IN MAINT MODE

THIS TEST CHECKS FOR 200 NPR TRANSFERS IN MAINTENANCE MODE.

tttttttttttttttttttt"tttttttttttfitfifilttttt't't'ittt'tlttttttt'

000004
012737
032777
001407

004737
005077
012737
013737
005437
004737
004737

021372
004000
021362
040

10008:

003646

1001%:
990%:

161120

000200
002622
002630
003302
003330
002630
002616
177777

002622
002630

003356

021632

104201

004737

10018
,1000$
10018
/T # 24/<CRLF>

JSR
CLR

MOV
MoV
MoV
MOV

MOV
MoV
CLR
MOV
MOV

1%:

160746

160722
160716

BIS
DEC
BNE

MoV
MOV
MOV
ERROR

160732

000004

BEQ
TYPE
BR
LASC12Z
.EVEN

JSR
JSR
MoV

177776
010000
001000
000501
002660

002534

#9998 ,SLPERR

MOV
MoV
NEG

021572
002540

160756
002532

SCOPE

MOV

BIT

161046
161042

~
~
~

021372
5361 021372
5362 021376
5363 021402
5364 021410
5365 021416
5366 021422
5367 021426
5368 021432
5369 021440
5370 021446
5371 021454
5372 021462
5373 021470
5374 021476
5375 021504
021510
5377 021516
021524
5379 021532

000404
124

=SOOWN==O
N

021360
021362

104401

2$:
3s:

CLR
BR

ADD
MOV

#81711,3SWR

PC,CLENUP
aCSR
#200,BUFLEN
BUFLEN,WCLEN
WCLEN
PC,LODBUF
PC,CHKBFF
WCLEN.SWCR
INBUF ,@BAR

a@DRINV,SDRINV
@8DRVS, SDRVS
#2$ ,3DRINV
%SVEL.aDRVS
#MA,aCSR

#1000, TIME

NIE+CY+GO,aCSR
TIME

13
aCSR,RCSR
SDRINV,aDRINV
SDRVS,@DRVS
+43
aCSR

¥4 ,SP

SDRINV,@DRINV
SDRVS ,aDRVS

PC,INTA

+51

002714
003526

ERRCNT
PC,DATCHK

003624

PC,DATCH2

+201

sPROCESS LOOPING AND TEST NUMBER INCREMENT
JSET LOOP ON ERROR TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;88 TYPE:
;88 GE7 OVER ASCII
;88 THE ASCI1 MESSAGE
.lT

24..

sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
sFORCE ACCESS TO CSR
sLENGTH OF BUFFER = 200
;PREPARE NUMBER FOR WCR

;2'S COMPLEMENT OF BUFLEN

cLOAD INBUF WITH INCREMENTING PATTERN
sLOAD CHKBUF WITH MODIFIED INCREMENTED PATTERN

:SET UP WCR
:SET UP BAR

¢MAINT AIDE

sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
sINT VECTOR
s INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
LET THE DR11 INTERRUPT
sMAINT MODE
;SET WAIT LOOP COUNTER
s1E, CYCLE & GO
cDECREMENT UNTIL WE GET TO ZERO
sBRANCH BACK IF NOT ZERO
sMOVE RECEIVED DATA TO RCSR
SRESTCRE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
SEXPECTED INTERRUPT DID NOT OCCUR
sCLEAR THE CSR TO DO AN INIT
sBRANCH AROUND THE STACK CLEANUP
sCLEAN UP THE STACK AFTER INTERRUPT
JRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
;GO CLEAR 1E, CHECK ERROR, READY, WCR=0 AND BAR
sCSR AND-OR WCR AND-OR BAR ARE INCORRECT
-CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
sCHECK INBUF''AFTER A MAINTENANCE MODE OPERAT]ON
;BUFFER DATA NOT CORRECT
;GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOV-81
TEST #25 - DOING DATO TO DIODE MEMORY CAUSES NEX

.SBTTL

5402

I 9
PAGE 109

16:08

SEQUENCE

112

TEST #25 - DOING DATO TO DIODE MEMORY CAUSES NEX

AEAARRR

TRTEST 25

RdR2R2R

X222 R2R202220222022223223
22202

DOING DATO TO DIODE MEMORY CAUSES NEX

THIS TEST INSURES THAT DOING A DATO TO DIODE MEMORY CAUSES THE NEX BIT
(BIT 14) TO SET.

021636
021636
021640
021646
021654
021656
021662
021664

021674
5403 021674
5404 021700
5605 021704
5406 021712
5407 021720
5408 021726
5409 021734
5410 021742
5411 021750

000004
012737
032777
001407
104401

000404
124

004737

5412 021754

5413 021762
5414 021770
5415 021776
5416 022004
5417 022010
5418 022012
5419 022020
5420
5421
5422
5423
5424

022116
022124

021674
004000

SCOPE

001310

MOV

157464

BIT
BEQ

021664
040
003646
160616
177776
002614
160602
160576
022044
002540
177776
010000
000062

000501
001000
002660
002532
002534

160470

043

:
10008

1001$:
9998:

160604

002532
002534
160564

160560

013701
042701
022701
001407
013737
052737
104040

160432
002560

CLR

160540
160532

MOV

160524

1$:

160506
160502
002560

.1000%

10018
/T # 25/<CRLF>
PC,CLENUP

aDRINV,SDRINV
aDRVS,SDRVS
#2%,3DRINV
LEVEL ,8DRVS
PSW
#MA,8CSR
#F1+X6+X7 ,8CSR
#IE+CY+GO,aCSR
#1000, TIME
TIME
18
SDRINV,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

+35

160460

000004
002532
002534

JSR

MOV
MoV
MoV
MOV
MoV
MOV

160600

002660

TYPE
BR
LASCIZ
.EVEN

#9998 ,SLPERR
#BIT11,aSWR
1001$

a(SR

°s:

TST26

002560

#4,SP
SDRINV ,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

002572
002572

RCSR,ECSR
NER+NX+RY ,ECSR

160450
160444

037577
140200

002560

140200

TST26

+40

sPROCESS LOOPING AND TEST NUMBER INCREMENT
;SET LOOP ON ERROR TO 999%
s88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT

J08 TYPE: ''T # 25"
;88 GET OVER ASCII
;88 THE ASCI] MESSAGE

s SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
sFORCE ACCESS TO CSR
sSET UP W(CR
:SET _UP BAR
sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
SINTERRUPT VECTOR TO 3%
¢ INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
sLET THE DR11 INTERRUPT

sMAINT MODE

:SET FNCT1, XBA16, AND XBA17
SSET 1E, CYCLE, AND GO

sSET DELAY COUNTER
sDECREMENT UNTIL ZERO
sBRANCH BACK IF NOT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
SRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR

;DR11 FAILED TO INTERRUPT

;CLEAR THE CSR TO DO AN INIT
:BRANCH TO THE NEXT TEST

cRESTORE THE STACK
SRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE CSR DATA TO RCSR
sMOVE DATA TO R1 FOR CHECKING
sCLEAR ALL BUT ERROR, NEX AND READY BITS
sSEE IF ALL THESE BITS ARE SET
sBRANCH TO THE NEXT TEST IF THEY ARE ALL SET
;MOVE EXPECTED DATA TO ECSR
cSET THE BIT THAT SHOULD HAVE BEEN SET
;CSR 1S WRONG

J 9
PAGE 110

MACRO M1113 02-NOV-81 16:08
CZDRLDO-~DR11 GEN NPR_INTF(
TEST #26 ~ CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR

.SBTTL

56461

113

TEST #26 - CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR

RN RN

:"TEST 26

. %

]

SEQUENCE

RN RN RN AN AN AN AN

R AP AR AR

AR ORI AR

CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR

THIS TEST INSURES THAT CROSSING THE 32Kk BOUNDARY DOES NOT CAUSE A BAOF
OR FORCE ERROR.

{
b4

022126
022126
022130
022136
022144
022146
022152
022154

000004
012737
032777
001407
104401
000404
124

022164
5442 022164
5443 022170
5444 022176
5445 022204
5646 022212
5447 022220
5448 022226
5449 022234
5450 022242
9451 022246
5452 022254
5454
9455
5456
5457

022164
004000

001310

160160

002560
037577

106040

005077

002560

142200
160116

22}

:PROCESS LOOPING AND TEST NUMBER INCREMENT

.ASCIZ

/T # 26/<CRLF>

:88 THE ASCII MESSAGE

JSR

PC, CLENUP

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

160314

MOV

#-2,38AR

‘SET UP BAR FOR PROC STATUS ADDRESS

160274
002660

MOV
MOV
CLR
MOV

BIT
10008:

1001$

9998:

002532
002534
160300

160240

18:

160230
160224
002560

160176
160172

002560

-EVEN

MOV

MOV
MOV
MOV

160246

140200

052737

R300R0R2d00R02220

*88 BRANCH IF NOT
‘88 TYPE: ''T # 26

160320

002534

0R0RRR0R R 00t

10018
10008

003646
177760

000004
002532

R 220200

BEQ
TYPE

157174

043

160212

SCOPE

#9998 SLPERR

040

002532
002534

222223202022

MOV

022154

022316
002540
001000
177776
010000
000563
002660

022266
022270
022276
022304

5458 022312
5459 022314
5460 022316
5461 022322
5462 022330
5463 022336
5464 022344
5465 022350
5466 022354
5467 022360
5468 022362
5469 022370
5470 022376
5471 022400

15126

177776
160316
160312

5453 022262

28:

BIS

DEC
BNE
MOV
MOV

foo1s

#<20,3WCR

aDRINV,SDRINV
aDRVS, SDRVS
#28,3DRINV
LEVEL ,@DRVS
#1000, TIME
PSW

:SET LOOP ON ERROR TO 999%

88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

288 GET OVER ASCII

:SET UP WCR

-SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS
*INTERRUPT VECTOR TO 3$

#MA_3CSR

*INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
SSET WAIT LOOP COUNTER
SLET THE DR11 INTERRUPT
*MAINT MODE

TIME
18
SDRINV,@DRINV
SDRVS , 8DRVS

*DECREMENT UNTIL WE GET TO 2ERO
*BRANCH BACK IF NOT ZERO
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS

#5635, aCSR

SCYCLE, IE, FNCT1, XBA17, XBA16, AND GO TO CSR

MOV

aCSR,RCSR

*MOVE CSR CONTENTS TO RCSR

MOV
MOV

SDRINV,@DRINV
SDRVS ,@DRVS

RESTORE LOCATION USED AS THE
*RESTORE LOCATION USED AS THE

ERROR
BR
ADD

+35
15727
#6 SP

MOV

@CSR,RCSR

BIC

#3757 .R1

BEQ
MOV
BIS
ERROR

1ST27
RCSR,ECSR
SER+RY+NX,ECSR
+40

MOV

CMP

002572
002572

#817T11,aSWR

CLR

RCSR.R1

NER*RY+NX,R1

aCSR

*DR11 FAILED TO INTERRUPT
‘BRANCH TO NEXT TEST
*CLEAN UP STACK AFTER INTERRUPT
*MOVE CSR CONTENTS TO RCSR

*MOVE CONTENTS TO R1

INTERRUPT VECTGR
INTERRUPT PS

FOR TESTING

“CLEAR ALL BUT THE ERROR AND READY BITS
“SEE IF ERROR, READY AND NEX ARE SET

‘BRANCH TO NEXT TEST IF THEY ARE
*MOVE EXPECTED DATA TO ECSR
SET THE BITS THAT SHOULD HAVE BEEN SET
SCSR IS WRONG
*CLEAR THE CSR TO DO AN INIT

CZDRLDO=DR11

GEN NPR INTF(

MACRO M1113

TEST #27 - CHECK ACTUAL POSITION OF

(02-NOV-81

2-N BURST SWITCH

5478

.SBTTL

16:08

K 9
PAGE 111

SeTEST 27

hR]

5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495
5496
5497

000004
012737

020422
022424
022430
022432

001407
104401
000404
~124

022442

5499
5500
5501
5502
5503
5504
5505

032777

022442
022450
022452
022456
002464
002472
022476
022502
022504
022506
022512
022516
022522
022524
022526
002530
022534
002536
022540

032737
001456
004737
012777
017737
005077
013701
000301
006301
042701
013702
042702
001402
005002
000402
012702
020102
001017
013737

022554
022556
022564
022566
022574
002576
022604

001404
042737
000403
052737
104054
032777
001322

5498 022546

RN RAR AR

A AN AN

AN AN AN

ANA

ON SR

TEST

INSURES

THAT

THE 2-N BURST

SWITCH IS

IN THE POSITION THAT

THE DEVICE DESCRIPTOR WORD SAYS IT SHOULD BE.

E;t't"t'tttlt'tt'ttttt't'i'tttt*."...t...Qtt.t.'t'ttttt"t't"i

022404
022404
022406

022414

THIS

CHECK ACTUAL POSITION OF 2-N BURST SWITCH

. %

114

TEST #27 - CHECK ACTUAL POSITION OF 2-N BURST SWITCH

SR AR AR AN RNANRA NN AN RO

SEQUENCE

032737

7§127:

022452

004000

001310

156716
043

(00001

002610

003646
100000
160032
160024
002562

160036
002562

10008:

10018:
9998:

177775
002720
177775

000002
002562

000400

1$:
28:
002574

002574

000400

002574

000400

002574

040400

156534

#9998 SLPERR

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR T0 9998

BEQ
TYPE
BR
.ASCIZ

10018
10008
jo01s
/TH 27/<CRLF>

;8%
88
;8%
:GE

BIT
BEQ
JSR
MOV
MOV
(LR
MOV
SWAB
ASL
BIC
MOV
BIC
BEQ
(LR
BR
MOV
(MP
BNE
MOV

#B]170,BO0RW
INOOUT
PC,CLENUP
WEIR.SCSR
BCSR.REIR
aCSR
REIR,R1
RI
RI
#CBIT1,RY
DDW,R2
#CBIT1,R2
18
R2
28
#BIT1,R2
RI,R2
5%
REIREEIR

;TESTING A "B OR A 'W'"
:BRANCH_ TO INOOUT IF DR11-8
:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI
260 TO EIR MODE
:MOVE EIR DATA TO REIR
:60 BACK TO CSR
:MOVE DATA TO R1 ALSO
SGET BIT 8 INTO BIT 0 BY SWAPPING BYTES
:MOVE BIT 0 INTQ 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
:60_TEST THE BIT
:SET THE BIT
:SEE IF RECEIVED MATCHES EXPECTED
:BRANCH TO CHECK FOR LOOP ON TEST
:MOVE EXPECTED DATA TO EEIR

BEQ
BIC
BR
BIS
ERROR
BI1
BNE

3%
:BRANCH IF IT IS CLEAR
¥BIT8.EEIR
:REVERSE STATE - EXPECTED CLEAR
4$
:GO CALL ERROR
#BIT8,EEIR
:REVERSE STATE - EXPECTED SET
+54
22N CYCLE BURST SWITCH IN WRONG POSITION
WBIT14+BIT8,aSWR:SEE IF WE SHOULD LOOP ON THIS TEST
999%
.BRANCH BACK [F SO

BIT

022432

040

SCOPE
MOV

BIT

3$:
4$:
S58:

#BIT11,aSWR

#BITHEEIR

:R8 TEST 10 SEE IF TEST NUMBER TRACER ENABLED
BRANCH IF NOT
TYPE: T # 27'
GET OVER ASCII
THE ASCII MESSAGE

:TEST STATE OF BIT 8

TO 7

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

(02-NOV-81 16:08

CODE TO CHECK CABLE STATUS FOR EXECUTION OF CABLE TESTS
5506

gggg

5509
22}?

:
:

5512 022606
5513 022614
5514 022616

032737
001002
000137

000004
025622

002720

.SBTTL

PAGE 112

SEQUENCE

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 IS
SET, INDICATING CABLE IS IN.

INOOUT: BIT
BNE
JMP

#BIT2,DDW
TST30
ENDEV

JSEE IF CABLE IS IN
:BRANCH TO NEXT TEST I+ CABLE IS IN
:JUMP TO ENDEV =~ TESTS ARE NOT TO BE DONE

115

CIDRLDC=DR11 GEN NPR INTF(

MACRO M1113

(02-NOV-81

TEST #30 - CHECK (SR BIT PATTERNS WITH MAINT BIT CLEAR
5522

.SBTTL

16:08

PAGE 113

SEQUENCE

116

TEST #30 = CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR

.':."'t.Q.Qtt..Q"'.'."."."..'...."..".'Q..'Q..QQ"Q....'Q'.

SeTEST 30
&

CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR

]

THIS TEST SETS ALL POSSIBLE COMBINATIONS OF SET BITS IN THE CSR WITH

‘e

THAT

THE MAINTENANCE BIT CLEAR,
OF

THE

AND COMPARES

EXPECTED PATTERNS

THE RECEIVED CSR CONTENTS WiTH

°‘MAICLR®.

L ]

022622
022622
022624

000004
($12737

022640
022642
022646
022650

001407
104401
000404
126

022632

022660
§523 022660
5504 022664
§525 022670
§526 022674
§527 022700
5528 022702
5529 022706
§530 022714
§531 022720
§532 022726
§533 002734
§534 022736
5535 022744

5536 0227646
5537 022754
§538 022762

§539
§540
5541
§542
5543
5544
5545
5546
§547
5548
5549
5550
5551
5552

022766
022774
023000
023006
023010
023016
023020
023022
023024
023030
023032
023040
023042
023050

032777

040

043

012737
104032

000200

002572

012777
010277

056106
157534

012777

062701
005202
005303
001303

104202

062702

177777

10008:

10018:

002560
002560

001404

BIT

022650

000200
010000
157602
157576
000200

5556
5557
5558
5559

5560 023100

156500

003646
002714
000002
007220

5553 023056
5554 023060
023066
023072
023074
€23076

00°310

004737
005037
012700
012701
005002
012703
052777
005077
017737
022737

017737
011137
023737
001427
012737
040227
000401
001016
005737
001404
032737
001407
052737
023737
001403
010237

$555 023064

022706

004000

E;.'...'.'.'.."...'t'."'"'.....".......'.."'.......".".."
15130:
SCOPE
;PROCESS LOOPING AND TEST NUMBER INCREMENT
MOV
#9998 SLPERR
-SET LOOP ON ERROR TO $99%

157606

157542

157536

157530
002572
002572

002560

000401

023020

18:
999%:

2%:

002560

002772

140000
002572

002572
)
002572
002560

4$:

002536

5§

000002

6% :

000200

#8171, 3SwR

88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

10018
,10008
10018
/T & 30/<CRLF>

"88
‘88
*88
:88

BRANCH [F NOT
TYPE: T # 30"
GET OVER ASCII
THE ASCII MESSAGE

JSR
(LR
MOV
MOV
CLR
MOV
BIS
CLR
MOV
CMP

PC,CLENUP
ERRCNT
#2.RO
#MAICLR,RI
R?
#200,R3
#MA_3CSR
aCSR
a(SR,RCSR
#RY ,RCSR

;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI
:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202
DO 2 SETS OF 200 PATTERNS
*MOVE ADDRESS OF EXPECTED PATTERNS TO R1
"START WITH PATTERN ZERO
:MOVE 200 TO THE LOOP COUNTER
SSET MAINTENANCE AND
‘CLEAR TO DO AN INIT
*MOVE RECEIVED DATA TO RCSR
*MAKE SURE READY BIT IS THE ONLY BIT SET

MOV
ERROR

#RY ,ECSR
+32

*MOVE EXPECTED DATA TO ECSR
*READY IS NOT THE ONLY BIT SET

MOV
MOV

#NOCARE ,@8AR
R2.aCSR

.tV

BEQ

000060

BEQ
TYPE
BR
.?sgaz

MOV

#=-1,3W(R

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

MOV
MOV
CMP
BEQ
MOV
BIC
.WORD
BNE
ST
BEQ
8IT
BEQ
BIS
CMP
BEQ
MOV

aCSR,RCSR
(R1).ECSR
ECSR.RCSR
63
#CY+GO,3$
R2, (PC)+
(Y+GO
S$
MEMGMT
48
#X6+X7 ,ECSR
58
#ER+NX ,ECSR
ECSR,RCSR
63
R2,BUT

*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
SLOCATION TO HOLD BOTH CYCLE AND GO BITS
*BRANCH TO ERROR ONLY IF EITHER OR BOTH BITS WERE
“SEE IF MEMORY MANAGEMENT IS OUT THERE
*BRANCH IF NOT
“SEE IF EITHER XBA16 OR XBA17 ARE SET
*BRANCH TO ERROR IF BOTH ARE CLEAR
SSET THE ERROR AND NEX BITS = EXPECT THEM TQ SET
*NOW SEE IF DATA MATCHES
*BRANCH AROUND ERROR IF IT DOES
*MOVE THE BITS SET INTO CSR TO THE BuT LOCATION

ADD
INC
DEC
BNE

#2.R1
R
R3
9998

S INCREMENT R1 TO NEXT EXPECTED PATTERN
"INCREMENT THE PATTZRN
*DECREMENT THE LOOP COUNTER
*BRANCH BACK IF NOT DONE

ERROR

ADD

+20

#200,R?2

10 7

SCSR PATTERN NOT CORRECT

“ADD 200 TO PATTERN LOCATION

CLEAR

(IDORLDC=DRY1 GEN NP R I NTF C
MACRO M1113 02-NOV-81
TEST #30 - C(HECK (S RSB l T PATTERNS WITH MAINT BIT (LEAR
5561 023104
$562 023106

005300
001275

DEC
SNE

16:08
RO
18

N 9
PAGE 113-1

SEQUENCE
;DECREMENT THE LOOP (OUNTER AND
JBRANCH BACK IF 2ND OCTAL GROUP NJOT DONE

117

CIDRLDO-DR11

GEN NPR INTF(

MACRO M1113

TEST #31 - (HECK BAR WITH (SR CLEAR
5568

02-NOV-81

.SBTTL

8 10

16:08

PAGE 114

SEQUENCE

118

TEST #31 = CHECK BAR WITH (SR CLEAR

'."'.".'.'...'..""""'.."..'..'.".'..."'."....'Q".'.'

STEST 31

CHECK BAR WITH CSR CLEAR

THIS

TEST

- &

:' | AR 22222222

023110
023110
023112
023120
023126
023130
023134
023126

000004
012737
032777
001407
104401
000404
124

023146
5569 023146
5570 023152
5571 023160
§572 023166
5573 023174
5574 023176
5575 023202
5576 023204

004737
012777
012777
017737
001403
005037
104040
017737

5578 023220

001407

5577 023212

5579 023222

5580 023230
5581 023236

CHECKS

T5131:
023146
004000
023136
040
003646
001360
000001
157330

043

157340
157334
00256C

10008
:
10018:
9998:

002572
157310

032737

000001

013737

002566

042737
104044

001310
156212

000001

002566

002600
002600

1$:

THAT BAR BIT 0 IS CLEAR WITH (SR CLEAR

2222222222 22222 2222

XXX

(CSR=0).

)

SCOPE
MOV
BIT
BEQ
TYPE
BR
ASCLL

#9998 SLPERR
#BIT11,aSWR
10018
,10008
10018
/70 31/<CRLF>

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 9998
;8 TEST TO SEE IF TEST NUMBER TRACER ENABLED
18 BRANCH IF NOT
‘g8 TYPE: T # 31
88 GET OVER ASCII
:88 THE ASCII MESSAGE

JSR
MOV
MOV
MOV
BEQ
CLR
ERROR
MOV

PC, CLENUP
#$TMP0, 3BAR
#G0,aCSR
9CSR,RCSR
18
ECSR
+40
@BAR,RBAR

; SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI
: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

BEQ

15732

*BRANCH TO NEXT TEST IF

#8170, EBAR
+44

ICLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR
:BAR IS WRONG

BIT

MOV

BIC
ERROR

#8170 ,RBAR

RBAR, EBAR

:SEE IF THIS BIT IS CLEAR

IT WAS

:MOVE EXPECTED DATA TO EBAR

T0 7

CIDRLDO-DR11 GEN_NPR INTF(
TEST #32 - TEST

7 SINGLE DATI

MACRO M1113

NON BURST MODE

5588

02-NOV-81

TRANSFERS

.SBTTL

16:08

€10
PAGE 115

SEQUENCE

119

TEST #32 - TEST 7 SINGLE DATI NON BURST MODE TRANSFERS

ttttt"tQtt't'.l’iit"ttt"'ttt'i'fi..tt.tttt'i'.t't'tt't'ttttt"

TRTEST 32
.

TEST 7 SINGLE DATI NON BURST MODE TRANSFERS

THIS TEST DOES 7 BIT PATTERNS OF SINGLE DATI NON BURST MODE TRANSFERS,

AND THAT

THEY ARE DONE PROPERLY.

. %

:. 1 2380822223802

023240
023240
0232642
023250
023256
023260
023264
123266

000004
012737
032777
001407
104401
000404
124

023276
5589 023:76
5590 023302
5591 023306
5592 023312
5593 023320
5594 023326
5595 023334
5596 023342
§597 023346
5508 023354
5599 023360
5600 023366
5601 023374
5602 023400
€603 023406
5604 023412
5605 023420
5606 023424
5607 023430
5608 023432
5609 023440
5610 023446
5611 023454
5612 023460
5613 023462
5614 023466
5615 023470
5616 023474

012702
005037
012703
017737
017737
012777
013777
005037
012777
005077
012777
012777
005077
011337
012777
052777
005037
005237
001375
013777
013777
017737
011337
104035
005077
000450
062706
013777

18§132:
023312
004000

001310
156062

023266
040
000007
002714
007202
157210
157204
023470
002540
177776
010000
157142
177777
002612
157124
002612
000110
000401
002660
002660
002532
002534
157050
002604

043

1001$:
1$:
002532
002534
157172
157166

157130
157124
157110
157102
2%:
157066
157062
002560

157034

013777
004737

157024
157020

0 023516

017737

156776

002566

5622 023532

017737

156766

002564

5619 023514
5621 023524

5623 023540
5624 023544
5625 023552
5626 023556
5627 023564

104021

012737

002615

011337

002576

017737
005037
023737
001010

999%:

157146

000004
002532
002534
004064

5617 023502
5618 023510

1000$:

156746
002602
002566

002600
002570
002600

3s:

2322282232222 238222232322222 2232233322223 272"}

SCOPE
MOV
BIT
BEQ
TYPE
BR
’?3&#2

#9998 SLPERR
#BIT11,aSWR
10018
,10008
10018
/T # 32/<CRLF>

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERKOK TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
08 BRANCH IF NOT
‘88 TYPE: ''T # 32"
188 GET OVER ASCII
:88 THE ASCII MESSAGE

MOV
CLR
MOV
MoV
MOV
MOV
MOV
CLR
MOV
CLR
MOV
MOV
CLR
MOV
MOV
8IS
CLR
INC
BNE
MOV
MOV
MOV
MOV
ERROR
(LR
BR
ADD
MOV

#7 ,R2
ERRCNT
#PATRNS ,R3
aDRINV,SDRINV
aDRVS, SDRVS
#3$,DRINV
LEVEL ,8DRVS
PSW
#MA . 3CSR
aCSR
#-1,aWCR
#NPR1,3BAR
aBDR
(R3) ,NPR1
#F3+1E,aCSR
#CY+GO,aCSR
TIME
TIME
28
SDRINV,@DRINV
SDRVS , 8DRVS
aCSR,RCSR
(R3) ,ENPR1
+35
aCSR
5
¥4, SP
SDRINV,@DRINV

:SET UP LOOP COUNTER = 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 4$
: INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
: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
:CLEAR THE TIME LOCATION FOR WAIT LOOP
: INCREMENT UNTJL 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
:BRANCH TO SEE IF THERE ARE ANY MORE PATTCRNS TO CHECK
:CLEAN STACK AFTER INTERRUPT
;RESTORE LOCATION USED AS THE INTERRUPT VECTOR

+21

:ERROR BIT SHOULD HAVE BEEN CLEAR

#NPRI+3 EBAR

:MOVE EXPECTED DATA TO EBAR

MOV
JSR

ERROR

SDRVS, @DRVS
PC,ERRCHK

MOV

@BAR, RBAR

MOV

aBDR. RBOR

MOV

MOV
CLR
CMP
BNE

(R3) ,EBDR

3WCR.RWCR
EWCR
RBAR, EBAR
4$

;RESTORE LOCATION USED AS THE INTERRUPT PS$
:CLEAR IE, CHECK FOR ERROR

:MOVE RECEIVED DATA TO RBAR

: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

CZDRLDO-DR11 GEN_NPR INTF(

MACRO M1113

02-NOV-81 16:08

TEST #32 ~ TEST 7 SINGLE DATI NON BURST MODE TRANSFERS

5628 023566
5629 023574
5630 023576
5631 023604
5632 023606
5633 023610
5634 023614
5635 023616

023737
001004
023737
001401
104211
062703
005302
001235

002564

002576

002570

002602

000002

48
5%:

CMP
BNE
CMP
BEQ
ERROR
ADD
DEC
BNE

0D 10
PAGE 115-1

RBDR,EBDR
4s
RWCR,EWCR
5%
+211
#2,R3
R2
999%

SEQUENCE
; COMPARE RECEIVED WITH EXPECTED
sBRANCH IF WRONG
; COMPARE RECEIVED WITH EXPECTED
sBRANCH IF 0K
sCSR _AND=-OR WCR AND-OR BAR ARE INCORRECT
s INCREMENT TO NEXT PATTERN
;DECREMENT THE LOOP COUNTER
;BRANCH BACK IF NOT ZERO YET

120

MACRO M1113 02-NOV-81
CZDRLDO=DR11 GEN NPR INTF(
TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS

.SBTTL

5641

16:08

E 10
PAGE 116

SEQUENCE

121

TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS

A2232830223000330

T*TEST 33

2202000200022

2232200282322

802230222200230R02 22}

TEST STRING OF 200 DATIS BURST MODE XFERS

- %

THIS TEST DOES 200 DATI TRANSFERS IN BURST MODE.

. %

;;tittttttttttt'ttt.tt""'t"tQttt'...Qt'.ttt"'ifi'tt"tflttt'ttt

023620

000004

012737
032777
001407

023646

023656

5642 023656
5643 023662
5644 023670
5645 023674
5646 023702
5647 023710
5648 023716
5649 023724
5650 023732
5651 023740
5652 023746

5653 023754
5654 023760
5655 023766
5656 023774
5657 024002
5658 024006
5659 024010
5660 024016
5661 024024
5662 024(32
5663 024034
5664 024042
5665 024046
5666 024050
5667 024054
5668 024062
5669 024070
5670 024074
5671 024076
5672 024104
5673 024112
5674 0264114
5675 024122

TST33:

023656
004000

SCOPE
MOV
BIT
BEQ
TYPE

#9998 ,SLPERR
#BIT11,3SWR
10018
10008

:PROCESS LOO~"NMG AND TEST NUMBER INCREMENT
:SET LOOP O' .RROR TO 999%
‘28 TEST TL SEE IF TEST NUMBER TRACER ENABLED
‘88 BRANCH IF NOT
‘g8 TYPE: ''T # 33"

.ASCIZ

/T # 33/<CRLF>

88 THE ASCII MESSAGE

JSR

PC,CLENUP

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SETM CPU PRI TO 7

JSR

PC,LODBUF

‘LOAD THE BUFFER WITH INCREMENTING PATTERN

104401

023646

124

040

004737
012737
004737
012737
013777
013777
12777
017737
017737
012777
013777
005037
012777
052777
012737
005337
001375
013777
013777
017737
104035
012777
005077
000426
062706
013777
013777
004737

003646
000200
003302
177600
002630
002616
177777
156576
156572
024050
002540
177776
000100
000401
001000
002660

017737
022737
001404
012737

156422

000177

002564
002564

MOV

000177

002576

MOV

000404

104051

104045

043

002622

10008:

10015

999%:

EVEN

MOV
MOV

092630C
156606
156602
156600

MOV
MOV
MOV
MOV
MOV

002532
002534

156560
156554

156534
156526
002660

B8R

MOV
MOV

CLR

10018

#200,BUFLEN
#-500,WCLEN

WCLEN.@WCR
INBUF . 3BAR
#-1,38DR
aDRINV,SDRINV
aDRVS, SDRVS

#28 ,aDRINV

LEVEL ,3DRVS

PSW

002532
002534

156510
156504
002560

MOV
BIS
MOV
DEC
BNE
MOV
MOV
MOV

010000
156454

156460

MOV

#MA,3CSR

TST34

156472

000004
002532
002534
003356

156444
156440

1$:

ERROR
CLR

28:

*PREPARE NUMBER FOR WCR

SSET UP WCR
SSET UP BAR
*MAINT AIDE
:SAVE LOCATION TO BE USED AS THE
:SAVE LOCATION TO BE USED AS THE

*INT VECTOR

INTERRUPT VECTOR
INTERRUPT PS

S INTERRUPT STATUS TO LEVEL OF DEVICE

SLET THE DR11

INTERRUPT

*SET INTERRUPT ENABLE
*CYCLE, 60
‘WAIT FOR INTERRUPT
*DECREMENT UNTIL WE REACH 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
SSET THE MAINTENANCE BIT AND

+35

aCsR

#4,SP

MOV

SDRVS ,a8DRVS

SDRINV,.@DRINV

JSR
ERROR

PC,INTA
+51

CMP
BEQ

#177 RBDR
1ST34

ERROR

SLENGTH OF BUFFER=200

#1E,aCSR
#CY+GO,BCSR
#1000, TIME
TIME
18
SDRINV,.aDRINV
SDRVS ,aDRVS
9CSR,RCSR

ADD

MOV

188 GET OVER ASCII

aBDR,RBDR

#177 ,EBDR

+45

*DR11 FAILED TO INTERRUPT

SCLEAR THE CSR TO DO AN INIT

‘BRANCH TO NEXT TEST

SCLEAN UP STACK AFTER INTERRUPT
-RESTORE LOCATION USED AS THE

INTERRUPT VECTOR

*RESTORE LOCATION USED AS THE INTERRUFT PS

:GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR
1CSR AND-OR WCR AND-OR BAR ARE INCORECT
*MOVE RECEIVED DATA TO RBDR

SCHECK THAT WORD #200 OF INBUF
*BRANCH TO NEXT TEST IF IT IS
*MOVE EXPECTED DATA TO EBDR

*BAD DATA IN BDR

IS IN BDR

CZDRLDO-DR11 GEN_NPR INTF(
MACRO M1113 0/-NOV-81 16:08
TEST #34 - TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

5682

.SBTTL
A

LML

F 10
PAGE 117

SEQUENCE

TEST #34 - TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

TRTEST 34

ddladddlidli

itz

2222222

322D

TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

THIS TEST DOES 7 PATTERNS OF SINGLE DATO NON BURST MODE

104401

-2

—

SCOPE

8IT
8EQ

000007
002714
007202
156324
156320
024364
002540
177776

05077

TYPE

043

10008:

1001$:
1%:

002532
002534
156306
156302

999%:

156262

156224
156216

002660

002532
002534

156162

001360

oo SN

o0 oo
1,
NN [,
S PoW
W &&

P22
&H
POl
AN 8
POMNOND N —

oNON
o

024404
024410

OOOO
o
AOMNLNLND
N

POND) b —d e

d o

b —d cd b

== OO 00 NO NN
— oo

WV
VHA NNN
SNNNNNINNNNNNY ~

N],¥1,¥}

5707
5708 024356

024430
024436

010000
156140

156200
156174
002560

000004
002532
002534
004064
156100

3s:

7 ,R2

002570

8CSR

MOV

#1000, TIME
TIME

DEC
BNE

NPR1
(R3) ,aBDR
#F1+F3+]1E,aCSR

#CY+GO,a(SR

MOV
MOV
MOV
MOV

SDRVS ,@8DRVS
aCSR,RCSR

MOV

#MA ,8CSR

(LR
B8R
ADD

MOV
MOV
MOV

PSW

#MA _3CSR

#-1,3WCR
#NPR1,3BAR

SDRINV.,3DRINV

(R3),$TMPO
+35

8(SR

#4,SP
SDRINV .aDRINV
SDRVS,aDRVS
PC,ERRCHK

+21

BEQ

aW(R,RWCR
A 3

ERROR
MOV
CMP

#NPRT+3 RBAR

MOV

002566
002566

ERRCNT
#PATRNS ,R3
8DRINV,SDRINV
8DRVS ,SDRVS
#3%,aDRINV
LEVEL ,a8DRVS

MOV
MOV
CLR
MOV
MOV

JSR
ERROR

001362
156064
002615

MOV
CLR
MOV
MOV
MOV
MOV
MOV
CLR
MoV

ERROR

156144

. 10008

10018
/T # 34/<CRLF>

8IS

2s:

#9998 ,SLPERR
#8IT11,aSWR
10018

BR
LASCI2Z
.EVEN

CLR

156244
156240

002660

THEY ARE DONE PROPERLY.

MOV

024152
040

024162
5683 024162
5684 024166
5685 024172
5686 0264176
5687 024204
2688 024212

024176
004000

000004
012737
032777
001407

THAT

024124
024124
024126
024134
024142
024144
024150
024152

122

(R3) ,$TMP1
+206

aBAR ,RBAR

TRANSFERS, AND

;PROCESS LOOPING AND TEST NUMBER INCREMENT

;SET _LOOP ON ERROR TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

;88 BRANCH IF NOT

;88 TYPE: T # 34"

;88 GET OVER ASCII
;88 THE ASCII MESSAGE

;D0 7 BIT PATTERNS

sCLEAR THE ERRCNT LOCATION FOR _USE OF ERROR +201

sMOVE ADDRESS OF PATTERNS

sSAVE LOCATION TO BE
;SAVE LOCATION TO BE
s INTERRUPT VECTOR T0
s INTERRUPT STATUS TO

sLET DR11 INTERRUPT

TO R3

USED AS THE INTERRUPT VECTOK
USED AS THE INTERRUPT PS
3%
LEVEL OF DEVICE

;DO AN INIT
sFORCE ACCESS TO CSR
;SET UP FOR 1 TRANSFER

sTRANSFER TO BUS ADDRESS IN NPR1
cGET READY TO RECEIVE DATA
sSET UP TO TRANSFER _DATA

:DATO (FNCT1), FNCT3, IE

sCYCLE,

sCLEAR THE TIME LOCATION FOR WAIT LOOP
sDECREMENT UNTIL WE GET BACK TO ZERO
sBRANCH BACK IF NOT ZERO
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR
;MOVE PATTERN TO $TMPO
;DR11 FAILED TO INTERRUPT
sSET THE MAINTENANCE BIT AND
sCLEAR THE CSR TO DO AN INIT

+BRANCH TO DO NEXT PATTERN

sCLEAN UP STACK FROM INTERRUPT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
;CLEAR IE, CHECK FOR ERROR
sERROR BIT SHOULD HAVE BEEN CLEAR
sMOVE RECEIVED DATA TO RWCR
sBRANCH IF IT IS EQUAL TO ZERO
sMOVE PATTERN TO $TMPO
sWCR NOT EQUAL TO ZERO
sMOVE RECEIVED ADDRESS TO RBAR
s COMPARE CORRECT BAR WITH BAR CABLE MODE TESTING LEAVES

:BIT 0 OF BAR SET. THEREFORE MUST CHECK FOR ODD ADDRESS

CZDORLDO-DR11 GEN_NPR INTF(
MACRO M1113 02-NOV-81 16:08
TEST #34 ~ TEST 7 SINGLE DATO NON BURST MODE TRANSFERS
5722 024444
5723 024446
5724 024454
5725 024460
5726 024462
5727 024466
5728 024470
5729 024474
5730 024476
5731 024502
5732 024504

001406
012737
011337
104207
021337
001403
011337
104210
062703
005302
001234

002615
001362
002612

002600
5%:

002604
000002

6$:

BEQ
MoV
MOV
ERROR
cMP
BEQ
MoV
ERROR
ADD
DEC
BNE

6 10

PAGE 117-1

5%
#NPR1+3 ,EBAR
(R3),$TMP1
+207
(R3) ,NPR1
6$
(R3) ,ENPR1
+210
#2,R3
RZ
9998

SEQUENCE
¢BRANCH IF IT IS 0K
sMOVE EXPECTED DATA TO EBAR
;MOVE PATTERN TO $TMPO
sBAR ]S WRONG
sCHECK FOR CORRECT DATA
sBRANCH IF CORRECT DATA WAS TRANSFERRED
sMOVE EXPECTED DATA TO ENPR1
sDATA NOT TRANSFERED CORRECTLY
sPOINT TO NEXT BIT PATTERN
sCOUNT 1 PATTERN DONE
;BRANCH BACK IF NOT DONE

123

MACRO M1113 02-NOV-81
CZDRLDO-DR11 GEN NPR INTFC
TEST #35 - TEST STRING OR 200 DATOS BURST MODE XFERS

.SBTTL

5738

16:08

H 10
PAGE 118

SEQUENCE

TEST #35 - TEST STRING OR 200 DATOS BURST MODE XFERS

SRR RN RN

AN RN

;*TEST 35

ARAA N

TR AR AN AA AR A RN

AR AR AR

AANA AR

AR RN

TEST STRING OR 200 LATOS BURST MODE XFERS

s %
. %

THIS TEST CHECKS 200 DATO TRANSFERS IN BURST MODE.

. %

tt.tttttttttttttttttt'tt't'iittttttttttttttittttttttttit'tttttt

024564
024544
024550
024556
024562
024570
024574
024602
024610
5747 024616
024624
5749 024632
024640
024646
024652
024660
024666
024674
024700
5757 024702
758
024710
5759 024716
5760 024724
024726
024734
024740
0247642
024746
6 024754
5767 024762
5768 024766
5769 024770
5770 024774
5771 024776
5772 025002

012737
032777
001407

SCOPE

024564
004000

MoV

104401
000404
124

024534
040

10008:

005077
012737
004737
013737
005437
013777
013777
012777
017737
017737
012777
013777
005037
012777
052777
012737
005337
001375
013777
013777
017737

155752

10018:
999%:

TYPE
BR
.ASCIZ
.EVEN

104035

000200
003302
002622
002630
002630
002616
052525

002540
177776
000102
000401
001000
002660

004737

003716

004737

004000

104047

CLR

BIS

1%:

MOV

DEC
BNE

MnV
MOV
Mov
ERROR
MoV

155600

000004
002532
002534
003356

(LR

MOV
JSR
MOV
NEG
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MoV

002532
002534

010000
155562

104046

002622

155704
155700
024742

012777
005077
000421
062706
013777
013777
004737
104051

BIT
BEQ

2s:

CLR
BR

ADD

MoV
MOV

JSR
ERROR
JSR
ERROR
JSR
ERROR

#9998 ,SLPERR
#8I1T11,aSWR
10018
10008
01%
/T # 35/<CRLF>

JPROCESS LOOPING AND TEST NUMBER INCREMENT
JSET LOOP ON ERROR TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;88 TYPE: T # 35"
;88 GET OVER ASCII
;88 THE ASCII MESSAGE

aCSR
#200,BUFLEN

sFORCE ACCESS TO CSR
;LENGTH OF BUFFER=200

—e

000004

024506
024506
024510
024516
024524
024526
024532
024534

PC,LODBUF

BUFLEN, WCLEN

;LOAD THE BUFFER WITH INCREMENTING PATTERN
:PREPARE NUMBER FOR WCR

WCLEN
WCLEN,aWCR

:2'S COMPLEMENT OF BUFLEN

#52525. aBDR

*SET UP BDR
;SAVE LOCATION TO BE USEDR AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
JINTERRUPT VECTOR
JINTERRUPT STATUS TO LEVEL OF DEVICE
;LET THE DR11 INTERRUPT
JIE, FNCT1
;CYCLE, GO
JMOVE WAIT LOOP VALUE TO TIME LOCATION
sDECREMENT UNTIL WE REACH ZERO
;BRANCH BACK IF NOT ZERO
JRESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
;MOVE RECEIVED DATA TO RCSR
JDR11 FAILED TO INTERRUPT
;SET THE MAINTENANCE BIT AND
JCLEAR THE CSR TO DO AN INIT
JBRANCH TO NEXT TEST
JCLEAN STACK AFTER INTERRUPT
JRESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
;G0 CLEAR JE, CHECK ERROR, READY, WCR=0 AND BAR
JCSR AND-OR WCR AND-OR BAR ARE INCORECT
;CHECK INBUF
JBUFFER DATA NOT CORRECT
;G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK

INBUF aBAR

aDRINV.SDRINV
aDRVS, SDRVS
#2% ,3DRINV
LEVEL ,aDRVS
PSW
#1E+F1,3CSR
#CY+GO0,aCSR
#1000, TINE
TIME
1%
SDRINV,aDRINV
SDRVS ,aDRVS
8CSR,RCSR

+35

#MA ,8CSR

aCSR

TST36

#6,SP
SDRINV,aDRINV
SDRVS ,aDRVS
PC,INTA

+51

PELDATOCK

PC7DAT0C2

sSET UP WCR
:SET UP BAR

;TO0 MANY WORDS WERE

TRANSFERED

124

—

CIDORLDO-DR11 GEN NPR INTF(
TEST #36 - TEST STRING OF

MACRO M1113

110

02-NOV-81 16:08

PAGE 119

200 DATIS NON-BURST MODE

SBTTL

5778

SEQUENCE

125

TEST #36 -~ TEST STRING OF 200 DATIS NON-BURST MODE

[AASASEARARR SRR

S*TEST 36

Rttt

ittt

tis

ladtililsd]

TEST STRING OF 200 DATIS NON-BURST MODE

THIS TEST DOES 200 DATI TRANSFERS IN NON BURST MODE.

* %

M AAALRAR20RR00R2RR
2Rt
0203 R0 222202222 200200d0R0 0222 1)

025004
025004
025006
025014
025022
025024
025030
025032

025042
5779 025042
5780 025046
025052
025060

5797 025202
5798 025204
5799 025212
5800 025220
5801 025226
5802 025230
5803 025236
5804 025242
5805 025244
5806 025250
5807 025256
5808 025264
5809 025270
5810 025272
5811 025300
5812 025306
5813 (25310
5814 025316

000004
012737
032777
001407

SCOPE

025042
004000

MOV

104401
000404
124

025032

TYPE

004737
005077
012737
004737
013737
005437
013777
013777

003646
155450
000200
003302
002622
002630
002630
002616

BIT
BEQ

10008:

040

177777
155402
155376
025244

002540
177776
000110
000401
001000
002660

1001$:
999%:

002622

002630

JSR
CLR
MOV
JSR

PC,CLENUP

155340

Mov

CLR

BIS

000004
002532
002534
003356

23:

000177
002576

aonxnv SDRINV
aDRVS, SDRVS
IZS.GDRINV

LEVEL ,aDRVS

PSW
#F3+]E ,aCSR
#CY+GO,aCSR

#1000, TIME

MOV
MOV
MOV

18
SDRINV,@DRINV
SDRVS ,aDRVS
8CSR,RCSR

DEC
BNE

B8R

ADD

MOV
MOV

JSR
ERROR

155226

aCSR
#200,BUFLEN
PC,LODBUF
BUFLEN,WCLEN
WCLEN
WCLEN, aWCR

MOV

ERROR
Mov
CLR

010000
155260

000177

10018
/T # 36/<CRLF>

155412
155406
155404
002532
002534
155364
155360

002532
002534
155276

.1000$

BR
.ASCIZ
.EVEN

MOV
NEG
MOV
Mov
MOV
MOV
MOV
MOV
MoV

1%:

#9998
. SLPERR
#BIT11,aSWR
1001$

TIME

+35

#MA,aCSR

a(SR

TST37

#4,SP
SDRINV,aDRINV
SDRVS ,aDRVS
PC,INTA

+51

MoV

aB8DR ,RBDR
#177 _RBDR

MOV

#177 ,EBDR

cMpP
BEQ
ERROR

TST37

+45

JPROCESS LOOPING AND TEST NUMBER INCREMINT
;SET {00P ON ERROR TO 999%
288 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;8% BRANCH IF NOT
;88 TYPE:
;88 GET OVER ASCII
;88 THE ASCII MESSAGE
.'T

360.

sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

¢FORCE ACCESS

TO CSR

;LENGTH OF BUFFER=200

sLOAD THE BUFFER WITH INCREMENTING PATTERN

sPREPARE NUMBER FOR WCR

:2'S COMPLEMENT OF BUFLEN
;SET-UP WCR
:SET-UP BAR

:HAINT AIDE
;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
JINT VECTOR
JINTERRUPT STATUS TO LEVEL OF DEVICE
JLET THE DR11 INTERRUPT

JFNCT3,

sCYCLE, GO
JSET WAIT LOOP COUNTER
JDECREMENT UNTIL WE REACH ZERO
;BRANCH BACK ]JF NOT ZERC
JRESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
JMOVE RECEIVED DATA TO RCSR
;DR11 FAILED TO INTERRUPT
JSET THE MAINTENANCE BIT AND
JCLEAR THE CSR TO DO AN INIT
JBRANCH TO NEXT TEST
JCLEAN UP STACK AFTER INTERRUPT
JRESTORE LOCATION USED AS THE INTERRUPT VEZTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
;G0 CLEAR JE, CHECK ERROR, READY, WCR=0 AND BAR
JCSR AND-OR WCR AND-OR BAR ARE INCORECT
;MOVE RECEIVED DATA TO RBDR
;CHECK THAT WORD #200 OF INBUF IS IN BDR
;BRANCH TO NEXT TEST IF OK
;MOVE EXPECTED DATA TO EBDR
;BAD DATA [N BDR

MACRO M1113 02-NOV-81
CZDRLDO-DR11 GEN NPR INTFC
TEST #37 - TEST STRING OF 200 DATOS NON-BURST MODE

.SBTTL

5820

J_10

16:08

PAGE 120

SEQUENCE

126

TEST #37 - TEST STRING OF 200 DATOS NON-BURST MODE

AZAEAARE22R20

TRTEST 37

002

22002

202

202022

28222020822

222223 822202

TEST STRING OF 200 DATOS NON-BURST MODE

THIS TEST DOES 200 DATOS IN NON BURST MODE.

* %

025320

025344

025346
025356
025356
025362
025366
025374
025400
025406
025412
025420
025426
025434
0256442
025450
025456
025464
025470
025476
025504
5838 025512
025516
025520
025526
025534
025542
025544
025552
025556
025560
025564
025572
025600
025604
025606
025612
025614
025620

000004
012737
032777
001407
104401

000404
124

;:t.*fittifitttttfifitifil'fii'i"tttttttttttfittttttt..t'tttt't't'tttt'
T1ST37:

012777
005077
000421
062706
013777
013777
004737

010000
154744

004737

003716

004737

004000

104046

104047

TYPE

10008:
10015

040

003646
155134
000200
003302
002622
002630
002630
002616
052525

104051

BIT
BEQ

025346

004737
005077
012737
004737
013737
005437
013777
013777
012777
017737
017737
012777
013777
005037
012777
052777
012737
005337
001375
013777
013777
017737
104035

SCOPE
MOV

025356
004000

999%:

002622

002630

025560
002540
177776
000112
000401
001000
002660

000004
002532
002534
003356

18:

002560

2s:

,1000%

‘88 TYPE:

#BIT11,aSWR
1001$

i001s

‘88 TEST TO SEE IF
188 BRANCH IF NOT

FEST NUMBER TRACER ENABLED

*'T # 37

‘88 GET OVER ASCII

/T # 37/<CRLF>

JSR
CLR
MOV
JSR
MOV
NEG
MOV
MOV

PC,CLENUP
ac SR
#200,BUFLEN
PC,LODBUF
BUFLEN,WCLEN
WCLEN
WCLEN, aWCR
INBUF . @BAR

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI
*FORCE ACCESS TO CSR
*LENGTH OF BUFFER=200
*LOAD THE BUFFER WITH INCREMEN®
NG PATTERN
-PREPARE NUMBER FOR WCR
12'S COMPLEMENT OF BUFLEN
*SET UP WCR
*SET UP BAR

MOV
MOV

aDRINV.SDRINV
aDRVS, SDRVS

:SAVE LOCATION TO BE USED AS THE
*SAVE LOCATION TO BE USED AS THE

#52525,aBDR

MOV
MOV
CLR
MOV
BIS
MOV

#28.3DRINV
LEVEL ,aDRVS
PSW
NF1+F3+1E,@CSR
#CY+G0,aCsR
#1000, TIME

BNE

DEC

88 THE ASCII MESSAGE

SSET UP BDR

*DECREMENT UNTIL WE GET TO ZERO

MOV
MOV
MOV

SDRINV,BDRINV
SDRVS ,@DRVS
aCSR,RCSR

-RESTORE LOCATION USED AS THE
*RESTORE LOCATION USED AS THE
*MOVE RECEIVED DATA TO RCSR

MOV
CLR

#MA,QCSR
aCsR

ADD

¥, SP

JSR

PC, INTA

JSR
ERROR

PC,DATOCK
+46

ERROR

+47

B8R

MOV
MOV

ERROR
JSR

+35

TST40

SDRINV,@DRINV
SDRVS ,@DRVS

+51

PC,DATOC2

INTERRUPT VECTOR
INTERRUPT PS

*INTERRUPT VECTOR
*INTERRUPT STATUS TO LEVEL OF DEVICE
‘LET THE DR11 INTERRUPT
-FNCT1, FNCT3, IE
*CYCLE. GO
“SET WAIT LOOP COUNTER

TIME

ERROR

154750

;PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999%

.ASCIZ
EVEN

MOV

155066
155062

002532
002534
154762

B8R

#9998 SLPERR

*BRANCH BACK IF NOT ZERO

INTERRUPT VECTOR
INTERRUPT PS

*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
*RESTORE LOCATION USED AS THE

*60 CLEAR IE,

INTERRUPT VECTOR
INTERRUPT PS

CHECK ERROR, READY, WCR=0 AND BAR

:CSR AND-OR WCR AND-OR BAR ARE INCORECT
*CHECK INBUF
‘BUFFER DATA NOT CORRECT

*G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK

ST00 MANY WORDS WERE TRANSFERED

TO 7

—

CZDRLDO-DR11 GEN NPR INTFC

END OF

DEVICE PASS ROUTINE

MACRO M1113

5856

5857

K 10
PAGE 121

SEQUENCE

.SBTTL

END OF DEVICE PASS ROUTINE

ENDEV:

SCOPE

. :tttt't'tttttittttttttt't'tttt'tttttQtttttttttttt.'ttt'ttt'ttt"

5858 025622
5859 025624
5860 025630
5861 025634
5862 025642
5863 025644
5864 025650
5865 025652
5866 025656
5867 025660
5868 025662
5869 025670
5870
5871
5872
5873

02-NOV-81 16:08

025672
025676
025700
025704

5874 025710
025714

5875 025716
5876 025722
5877 025726
5878 025732
5879 025734
5880 025740
5881 025742
5882 025746
5883 025752
5884 025754
5885 025760
5886 025764
5887 025770
5888 025776
5889 026000
5890 026004
ggg} 026010
5893 026012
5894 026016
5895 026020
5896 026024
5897 026026
5898 026032
5899 026034
5900 026040
5901 026044

000004

005237
005037
022737
001450
005737
001013
004737
000442
000411
032737
001035

026010
001302
000007
001312
026012
000077

005037
000402
104401
104401

026010

104401
013746
013746
104414

040341
002716
001416

013746
104405

026010

001405
037424

2%:
3$:

001422

005737
001407
104401
013746
104405
004737
104401
005237
023737
001423
005237
000137
000000

001312

105737
001406
105737
(01407
062716
000402
062716

002706

105037
000207

002414

003126

001422
012370

001429

6$:
5%:

PRECP:
DOWEPR:

032555
000002
000004
032555

PREOP
STSTNM
#1,QTYBRD
5%
SERTTL
2%
PC.DOWEPR
5%
33
#77 ,PREOP
5%

MOV
TYPDS

S$UNIT ,-(SP)

CLR
BR
TYPE
TYPE

TYPE
MOV
Mov
TYPDE

036350
001312
001405
001420
002414

INC
CLR
CMP
BEQ
TST
BNE
JSR
BR
BR
BIT
BNE

1$:
2%:
3s:

PREOP
33
.SCRLF
,BOARD

s INCREMENT DEVICE PASS COUNTER
;DPMO01
¢CLEAR TEST NO. COUNT FOR SCOPE ROUTINE
;1S THERE MORE THAN 1 BOARD UNDER TEST?
sBRANCH IF NO
;SEE IF THERE WERE ANY ERRORS
sBRANCH AROUND EOP TEST IF SO
;GO SEE IF WE SHOULD PRINT THE EOP
;DPMOO
cHERE IF NOT
;DPMOO1
sHERE IF SO
;DPMO01
;HERE IF ENABLED - DO WE PRINT THIS EOP?;DPMOO1
sBRANCH IF SO
;DPMOO1
sCLEAR THE DEVICE PASS COUNTER
sBRANCH
sTYPE A <CRLF>
;TYPE:
°'BCARD # '

:DPMOO
;DPMO01

;SAVE SUNIT FOR TYPEOUT
:.GO TYPE~-=DECIMAL ASCII WITH SIGN

TST
BEQ
TYPE
MOV
TYPDS
JSR
TYPE
INC
CMP
BEQ
INC
JMP
.WORD

SERTTL
3
LETDEV
$ERTTL ,-(SP)
SCRLF
$DEV(T
QTYBRD ,$DEVCT
$EOP
SUNIT
TSTDEV
0

sTYPE:
' TESTING COMPLETE, PASS #'
;DPMO01
sMOVE MAJOR PASS COUNTER TO STACK
;DPMO01
sMOVE PASS NUMBER TO STACK
;DPMO01
sTYPE NUMBER IN EXTENDED DECIMAL
:DPMO01
cSEE IF ANY ERRORS THIS DEVICE
sBRANCH AROUND TOTAL ERRORS MESSAGE IF NONE
JTYPE:
' = TOTAL ERRORS THIS DEVICE = °
;MOVE NUMBER OF ERRORS TO THE STACK
;GO TYPE THE NUMBER
;GO LOG THE UNIT #, PASS # & # OF ERRORS THIS DEVICE
sTYPE A <CRLF>
s INCREMENT DEVICE COUNTER
;ALL DEVICES TESTED?
;GO TO END OF PASS ROUTINE IF SO
s INCREMENT THE UNIT NUMBER
:6GO TEST NEXT DEVICE
sDEVICE PASS COUNTER
:DPMO01

TSTB
BEQ
1ST8
BEQ
ADD
BR
ADD

EOPLOC
1$
CHARCT
33
#2,(SP)
2%
¥4, (SP)
CHARCT
PC

sSEE IF EOP MESSAGES ARE TO PRINT
;BRANCH IF SO
sSEE IF A CHARACTER IS WAITING
sBRANCH IF NOT
:SETURN TO 2ND RETURN LOCATION
;RETURN
sFUDGE RETURN TO TEST FOR EOP PRINT
sCLEAR CHARCT
JRETURN TO USER

CLRB
RTS

,TSTCOM
$PASS2,-(SP)
$PASS ,~(SP)

sFOR POSSIBLE LOOP ON TEST

PC,ERCAPT

:DPMO01
:DPMO01
:DPMO01
:DPMOO1
: DPMOO1
:DPMO01
:DPMOO1
:DPMOO1
:DPMOOT

127

e
—

CZDRLDO-DR11 GEN NPR INTF(
END OF PASS ROUTINE

MACRO M1113

5902

02-NOV-81

.SBTTL

16:08

L 10

PAGE 122

SEQUENCE

END OF PASS ROUTINE

;*INCREMENT THE PASS NUMBER (SPASS)

;*TYPE

"END PASS #XXXXX TOTAL NUMBER OF

ERRORS SINCE LAST REPORT vvvyyy'

s*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

s*]F
s*]F

026046

026134
026140
02614C
026144
026146
026164
026164
026170
026174
026176
026202
026204
026212
026214
026220
026220
026224
026226

026276
026276
026302
026304
026310
026314
026320

000004
005037
005237
100004
005037
005237
005327
000001
003116
012737
000001
026074

$EOP:

18:
$EOPCT:

$SENDCT:

001312

104401

026146

000077

015

005737
001442
022737
001002
004737

001312

104401

026226

040

013746
104405

005037
104401

013700
001405

STSTNM

INC

$PASS?

86T

$DOAGN

.WORD
.WORD

1
SEOPCT

BNE

000001

DEC
.WORD

MOV

JSR

026010

002716
001416

000424

(LR

TST

026012

013746
013746
104414

SCOPE
INC
8PL
CLR

005737
001012
004737
000475
000406
032737
001070
005037
000407
012

THERES A MONITOR GO 1O IT
THERE ISN'T JUMP TO GOAGIN

B8R
8l17
BNE

(LR

TYPE

105

65%:
:
648

67%:
66%:

(PC)+,a(PC)+

*RESTORE COUNTER

SERTTL

JSEE

PC.DOWEPR

;60 SEE

$GET42

23
#77 .PREOP
$GET4?2

JINCREMENT OVERFLCW LOCATION
::YES

IF ANY ERRORS THIS PASS

;DPMO01

JBRANCH IF SO TO PRINT EOP

;DPMO01

JHERE

:DPM001

EOP IS

TO PRINT

[F NOT

:DPMOON

JHERE IF SO
:DPM001
JHERE [F ENABLED - DO WE PRINT THIS EOP’ DPH001
;BRANCH IF SO
:DPMO01

PREOP

JCLEAR THE DEVICE PASS COUNTER

DPH001

;sTYPE ASCIZ STRING

MOV

$PASSZ2,~-(SP)

;MOVE UPPER PASS COUNT TO STACK

:DPMOO1

SERTTL

;G0 TYPE PASS COUNT IN EXTENDED DECIMAL
JSEE IF ANY ERRORS THIS PASS

DPMOO1
;0PMOO1

(MpP

#1,QTYBRD

JARE WE TESTING 1 BOARD?

JSR

PC.ERCAPT

BNE

TYPE

124

s .LO0P?

,65%

BEQ
3

(PC)+
1

648
;:GET OVER THE ASCIZ
<12><15>/END PASS #/

TYPDE
IST

003126

;o INCREMENT THE PASS NUMBER
JBRANCH IF STILL POSITIVE
;CLEAR $PASS AND

BR
LASCIZ
.EVEN
MOV

002414

;cJERO THE TEST NUMBER

$PASS
1%
$PASS

$PASS,~(SP)
$GET

,67%

,,TYPE ASCIZ STRING

MOV

$ERTTL,-(SP)

(LR
$GET:
TYPE
$GET42: MOV
BEQ

JBRANCH IF NOT

BRANCH IF NOT - LOGGING IS DONE

66%

TYPDS

TO STACK

B8R

.gegfil

JMOVE PASS COUNT

;GO LOG THE UNIT #,

PASS # £ & OF

;GET OVER THE ASCI2

TOTAL ERRORS THIS PASS ALL MODULE(S)

$ERTTL
.SCRLF
8442 R0
$O0AGN

;:SAVE SERTTL

FOR TYPEQUT

;:TOTAL NUMBER OF ERRORS

;.60 TYPE~-~DECIMAL

ASCI]

WITH SIGN

J;CLEAR ERROR TOTAL
:.TYPE CARRJAGE RETURN, LINE FEED
:;GET MONITOR ADDRESS
s sBRANCH IF NO MONITOR

;DPMOOT
:DPMO01

:DPMO01
; DPMO01

ERRORS THIS DEVICE

128

MACRO M*'1'3

CIDRLDC=DR1T GEN NPR INT:(
END OF PASS ROUTINE

026322
026324
026326
026330
026332
026334
026334
026336
026340

000005
0046710
000240
000240
000240

5903 026344
5904 026350
5905 026356

005037
022737
001002
000137
005037
000137

026360
5907 026364
59C8 026370

000137
026344
377

(2-NOV-81

$ENDAD:

$DOAGN:

377

000

007420
000001

002414

012556
001422
012356

RESET

JSR

NOP
NOP
NOP

JMP
.WORD
.BYTE
.EVEN
GOAGIN: CLR
(Mp
BNE
JMP
KSTRT:
(LR
JMP

$SRTNAD:
:
$ENULL

16:08

PAGE

PC, (RO

n10
122-1

SEQUENCE
;:CLEAR THE WORLD

2:60 TO MON]TOR
22 SAVE ROOM

;3FOR

JCACTN

8(P()e
GOAGIN

;;RETURN

-1,-1,

JJNULL

$DEVCT

;CLEAR DEVICE COUNT
;1S THERE ONLY ONE DEVICE UNDER TEST?
JBR, IF NOT
GO DO ANOTHER PASS
JCLEAR UNIT NUMBER
.60 BEGIN TEST OF NEXT DEvV]CE

#1,QTYBRD
RSTRT
REINIT

SUNIT

BEGIN?

CHARACTER

STRING

129

CIDRLDC=DR11 GEN NPR INTF(

TYPE

ROUTINE

MACRO M11'3

5909

(02-NOV-81

16:08

N 10
PAGE 123

SEQUENCE

TYPE ROUTINE

.SBTTL

2223222223232 222222022202R200232220222222223
8232223223222 222222222222]

'ROUYINE
;*THE

TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

ROUTINE

WILL

INSERT A NUMSER OF

NULL

CHARACTERS AFTER A LINE

FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARA(CTER.

;'N0751:
J*NOTEZ:
:*NOTE3:

SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

)

s*CALL:

'1)

tOR

USING A
TYPE

TRAP INSTRUCTION
.MESADR

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE

MESADR

.
]

026374
026400
026402
026404
026406
026410
026414
026422
026424

026432
026434

026440

026444

026446
026454

026456
026460
026462
026464
026466
026472
026474

105737
100002
000000

000430
010046
017600

122737

001011
132737
001405
010037
004737
000000
132737

001003

001005
005726
012600
0€2716
000002
122716

001430
122716
001006
005726
104401
001405
105037
000755
123726

026542
026546
026550
026554
026560

001350
013746

000100

001437

026444
033634

000040

(MPB
BNE
8!T8B

BtU

MOV

001431

61%:

000002

60%:
38:

000011

A ¥

000200

026736
5%:

6$%:

001354
000001

105337

026606
026736

000770

MOV

2$:

026606
001356

T1STB

8PL
HALT
BR
MOV

1%:

001430

105366

002770
004737

$TYPE:

000002
000001

112046

004737

026536

001357

’$:

JSR

.WORD

$STPFLG
1%

RO,=(SP)

;:1S THERE A TERMINAL?
J:BR IF YES

JJHALT HERE

. s LEAVE

TERMINAL

; sSAVE RO

J;GET ADDRESS OF ASCIZ STRING
JJRUNNING IN APT MODE
62%
2:NO,GO CHECK FOR APT (ONSOLE
#APTSPOOL
, SENVM ::SPOOL MESSAGE TO APT
62%
J:NO,GO CHECK FOR CONSOLE
RO,618
;oSETUP MESSAGE ADDRESS FOR APT
PC,8ATY3
2 .SPOOL MESSAGE TO APT
0
;s JMESSAGE ADDRESS
82(SP) ,RO

#APTENV, SENV

#APT(CSUP,SENVM

JsAPT

MOVB
BNE

(RO)+,=-(SP)
(3

MOV
ADD

(SP)+ RO
#2,(SP)

(SP)+

;sPUSH CHARACTER TO BE TYPED ONTO STACK
;:BR IF IT ISN'T THE TERMINATOR
;:1F TERMINATOR POP IT OFF THE STACK

#HT, (SP)

;JBRANCH IF <HT>

#CRLF, (SP)

:;BRANCH IF NOT <(CRLF>

(SP)+

;JPOP <CR><LF> EQUIV
;oTYFE A (R AND LF

$CHARCNT

;s CLEAR CHARACTER COUNT
;oGET NEXT CHARACTER

BITH
B8NE
TST

RT]
(MPB
BEQ
(MPB
BNE
ST
TYPE

$CRLF
(LRB
B8R
JSR

(MPB

PNE
MOV

DE(B

BLT

JSR
DECB
BR

60%

PC,STYPEC

$FILLC,(SP)+

SNULL ,=(SP)
1(SP)

WC,S$TYPEC
CHARCNT
7%

(ONSOLE

:IYES,SKIP

SUPPRESSED

TYPE

0QUT

;JRESTORE RO
::ADJUST RETURN PC
::RETURN

5.G0 TYPE

THIS CHARACTER

so1S IT TIME FOR FILLER CHARS.?
¢.1F NO GO GET NEXT CHAR.
s:GET # OF FILLER CHARS. NEEDED
sAND THE NULL C(HAR.
¢.DOES A NULL NEED TO BE TYPED?
:;BR IF NO--GO POP THE NULL OFF OF STACK
2.60 TYPE A NULL
2:D0 NOT COUNT AS A COUNT
.. LOOP

130

CZDRLDO-DR11 GEN NPR INTF(
TYPE

ROUTINE

MACRO M1113

(02-NOV-81

sHORIZONTAL

026562
026566
026572
026600

112716

004737
132737

001372

000040
026606
000007

88:
026736

9%:

$TYPEC:

000002
152516

152530

152512
000200
000023

032555
032555
032555

BITB
BNE

#7,8CHARCNT
9%

B8R

JSR

TSTB

@$TKS

a$TKB,CHARCT
#200,CHARCT
#23,CHARCT
23
a$TKS
38
88TKB,CHARCT
#200,CHARCT
#21,CHARCT
3s
#CR,2(SP)

#LF ,2(SP)

000206
000021

032555
032555
032555

000015

000002

2%3:

000002

1s:

B8R
CMPB

000012

(SP)+

aSTPS

152460

3s:

L(SP)

PC,.STYPEC

TSTB

BPL
Mov8
8PL

026736

000000
000207

MOvVB

MOVB
BI(B
cMPB
BNE
TSTB
BPL
MOVB
8I(B
CMPB
BNE
CMPB

152464

8. n

PAGE 123-1

SEQUENCE

TAB PROCESSOR

TST

152536

16:08

BNE
CLRB

8EQ
INCB
$CHARCNT: .WwORD
$TYPEX: RTS

$TYPEC
2(SP) ,a81PB
e 3

1
$CHARCNT

$TYPEX

$TYPEX
(PC)+
0
PC

JsREPLACE TAB WITH SPACE

;;TYPE A SPACE

:sBRANCH IF NOT AT
::TAB STOP
;:POP SPACE OFF STACK
23GET NEXT CHARACTER
JJWAIT UNTIL PRINTER IS READY
;:LOAD CHAR TO BE TYPED INTO DATA REG.
22SEE IF KEYBOARD IS TALKING.
SBRANCH IF IT ISN'T.

288 PUT CHARACTER IN CHARCT

:88 BIT CLEAR PARITY BIT.
‘88 SEE IF THIS IS A “S.
::BRANCH TO CONTINUE IF IT ISN'T.
“:WAIT FOR ANOTHER INPUT.

::BRANCH BACK IF NOT READY.

288 PUT CHARACTER IN CHARCT
288 BIT CLEAR PARITY BIT.
‘88 SEE IF THIS IS A “a.

:BRANCH BACK FOR MORE WAIT IF NOT.
221S CHARACTER A CARRIAGE RETURN?
;;BRANCH IF NO
::gi?;-CLEAR CHARACTER COUNT

SIS CHARACTER A LINE FEED?
;;BRANCH IF YES
S:COUNT THE CHARACTER
> CHARACTER COUNT STORAGE

CZDRLDO-DR11 GEN NPR INTF(

BINARY TO OCTAL

(ASCII) AND TYPE

MACRO M1113

591

02-NOV-81

.SBTTL
R

c1Nn
PAGE 124

16:08

SEQUENCE

BINARY TO OCTAL (ASCII) AND TYPE
T

'THIS RCUTINE

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

s*OCTAL

(ASCII) NUMBER AND TYPE [T,

TYPOS

'STYPOS°°-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
*CALL:
.t
MOV
NUM, - (SP)
;:NUMBER TO BE TYPED

X
M

o
o

.BYTE
.BYTE

;s CALL

N
M

;*CALL:

i
i
b

MoV

TYPCN

TYPEOUT

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

* %

;*$TYPON=-=--ENTER HERE
;*$TYPOS OR S$TYPOC

FOR

JsN=1 T0 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0RO

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

NUM, - (SP)

s NUMBER TO BE
;. CALL

FOR

TYPED

TYPEOQUT

;-%LKPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

;*CALL:
:
o

026742
0267646
026754
026760
026764
026766
026774
027002
027010
027012
027014
027016
027022
027026
027030
027036
027040
027044
027046
027050
027052
027056
027056
027060
027062
027064
)27070
027072
027076
027100
027102
027106

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204

000000
000001
027167
000002
000001
000006
000005

027167
000006
027166
027165
000012

027166
177770

027165

027165
027167
027164

MoV

TYPOC

$TY20S: MOV
Mov8
MovBe
ADD
BR
S$TYPOC: MOVB
MOVB
$TYPON: MOvVB
MOV
MoV
MoV
MOVB
NEG
ADD
MOVB
MovB
Mov
CLR
18:
ROL
BR
28:
ROL
ROL
ROL
MoV
38:
ROL
DECB
8PL
BIC
BNE
ST
8EQ
48:
INC

NUM, - (SP)

a(SP) ,=(SP)
1(SP) ,$OFILL
(SP)+,$0MODE+1
#2,(SP)
STYPON
#1,SOFILL
#6,SOMODE
+1
#5,80CNT
R3,-(SP)
R4 ,~(SP)
R5,=(SP)
SOMODE+1,Ré4
R4
#6 R4
R4, SOMODE
SOFILL R4
12(SP) ,RS
R3
R5
3
RS
RS
RS
R5.R3
R
$OMODE
7$
#177770,R3
43
R4
39
R4

;:NUMBER TO BE
;. CALL

TYPED

FOR TYPEOQUT

;:P1CKUP THE MODE
::LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS
:;SET THE
:;SET FOR
s;SET THE
: ;SAVE R3
:;SAVE Ré
:sSAVE RS
:;GET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNY

NUMBER OF DIGITS TO TYPE

:;SUBTRACT IT FOR MAX. ALLOWED
;;SAVE IT FOR USE
;:GET THE IERQO FILL SWIT(CH
:;PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD
:;ROTATE MSB INTO ‘°C*
::6G0 DO _MSB
:;FORM THIS DIGIT

;;GET LSB OF THIS DIGIT
;;TYPE THIS DIGIT?
;:BR_IF NO
::GET RID OF JUNK
:;TEST FOR 0
;s SUPPRESS THIS 0?
::BR IF YES
:;DON'T SUPPRESS ANYMORE 0'S

132

BINARY TO OCTAL

(ASCIID)

AND TYPE

MACRO M1113

000060
000040
02716
02716
02716

5%:

7%:

6%:
000002

000004

000000

8IS
BIS
MOv8
TYPE
DE(CB
BGT
BLT
INC
BR
MOV

MOV
[}

MOV

8$:

027165
027166

(02-NOV-81

MOV
RTI

.BYTE

.BYTE
$OCNT:
_.BYTF
$OFILL: .BYTE
$OMODE: .WORD

16:08

oM
PAGE 124-1

#'0.R3
#'
R3

R3,8$
8$
$OCNT
2$
6

Ré

2%
(SP)+,RS
(SP)+,R4

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

elelelele]

CZDRLDO-DR11 GEN NPR INTF(

SEQUENCE

s:MAKE THIS DIGIT ASCI!
s;MAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
2.G0 TYPE THIS DIGIT
:sCOUNT BY 1
;sBR JF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGIT | ;N'T A BLANK
;260 DO THE LAST DIGI
JRESTORE RS
;sRESTORE R&4
::RESTORE R3
J3SET THE STACK FOR RETURNING
; ;RETURN
;s STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
s:0CTAL DIGIT COUNTER
;. ZERQ FILL SWITCH
;NUMBER OF DIGITS TC TYPE

133

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

5913

02-NOV-81

.SBTTL

16:08

E_N
PAGE 125

SEQUENCE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

iR PRERARAR

AR AR

;*THIS ROUTINE

AR AR AR

RN AN AR AN AN

AN R AN AN

AANNA

ARNA NN

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

s«CALL:

o¥

MOV

TYPDS

NUM,
- (SP)

. %

;.PUT _THE BINARY NUMBER ON THE STA(CK
;G0 TO THE ROUTINE

8% 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,
;88 ABOVE.
iF NEGATIVE, CLEAR THE LOCATION AND INCREMENT
;88 TEST FOR NEGATIVE.
;88 A SPECIAL OVERFLOW LOCATION.
;88 CALL:
- (SP)
OVFNUM,
MOV
;88
;88 PUT OVERFLOW NUMBER ON STA(K
NUM,-(SP)
MOV
.88
;80 PUT REMAINING NUMBER ON STACK
TYPDE
317
;88 GO TO THE ROUTINE
027170
027176
027200
027204
027204
027206
027210

027212

027214
027216
027222
027226
027230
027232
027240
027242
027246
027252
027254
027260
027262
027264
027266
027270
027272
027274

027276
027300
027302
027304
027306
027314
027320
027324
027326

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

000001

001364

$TYPDE: MOV
$TYPDS:
$TYPD:

020200
000020
000055

000001

027504
000040

000001
000060
000040

1$:

3s:

177777

CLR

#1,8TMP?
$TYPD

$TMP?

;88 SHOW ENTRY AT STYPDE
;88 GO TO ROUTINE
;88 SHOW ENTRY AT S$TYPDS

RO,=(SP)
R1.-(SP)
R2.-(SP)

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
::PUSH R2 ON STACK

#20200,-(sP)

:sSET BLANK SWITCH AND SIGN
:2GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;:MAKE THE BINARY NUMBER POS.
JsMAKE THE ASCI] NUMBER NEG.
;slERO THE CONSTANTS INDEX
J:SETUP THE OUTPUT POINTER
2;SET THE FIRST CHARACTER TO A BLANK
;s CLEAR THE BCD NUMBER
2;GET THE CONSTANT

MOV
L(01"
MOV
MOV
Mov
MoV
MOV
8PL

R3,-(SP)
RS.-(SP)

MOVB

#'-,1(SP)

NEG

2$:

027474

CLR

[[01Y)
MOVB

(LR

Mov

SuB

43:

BLT
INC
B8R
ADD

5%:

ASLB

6$:
’$:

8IS
BIS

gg(sp>‘RS

#$DBLK ,R3

(RS

R2
SDTB%(RO).R1

:2PUSH R3 ON STACK
;:PUSH RS ON STACK

;:FORM THIS BCD DIGIT

2:BR 1F DONE
;s INCREASE THE BCD DIGIT BY 1
s:ADD BACK THE CONSTANT

7
(SP)
63
1(SP) -1(R3)

’. Ré

R2 (R3)+
(RO)+

;s CHECK IF BCD DIGIT=0
;;FALL THROUGH IF 0
;:STiLL DOING LEADING 0'S?

::BR IF YES

..YES-°SET THE SIGN
;MAKE THE BCD DIGIT ASCII
soMAKE IT A SPACE IF NOT ALREADY
A DIGIT
s:PUT THIS CHARACTER IN THE OUTPUT BUFFER
¢ . JUST INCREMENTING

134

—

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

CONVERT BINARY TO DECIMAL AND TYPt ROUTINE

027330
027334
027336
027340
027342
027344
027346
027350
027356
027360
027364
027366
027372
027374
027400
027400
027402
027404
027406
027410
027412
027416
027422
027424
027432

027436
027440

027444
027452

027460
027462
027470
027472
027474
027504

(02-NOV-81 16:08

000010

CMP

BLY
86T

MOV

8%:
177777

177776

001364
000020
027516
012605
012603
012602
012601
012600
104401

108:

027504
001364
0000062
000002

112737

027513
000040
000040

027512
027504

000002

000004

118:

001750

000144

$DTBL:
$DBLK:

000002

1STB
8PL
MOovB
CLRB
TST

BEQ
TST
BEQ
JSR

MOV
MOV
MOV
MOV
MOV

TYPE
TST
BEQ
MOV

005737
001417
016666
012666

016666
012616
000002
023420

000006

Mov
TST

CLRB
Movs
MOov8
RTI
MOV
MoV
RTI

.WORD

F11

RO,4#10
2%
8$
RS ,R2

(SP)+
9
-1(SP) ,~2(R3)
(R3)
$TMP2
108
20(SP)
108
PC.EXPAND

(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+ RO
.$DBLK
S$TMP?
118
2(SP) ,6(SP)
(SF)+,2(SP)
(SP)+
$DBLK+7

#'
#'

SEQUENCE

PAGE 125-1

,S$DBLK+6
,$DBLK

2(SP) ,4(SP)
(SP)+,(SP)

;:CHECK THE TABLE INDEX
1360 DO THE NEXT DIGIT
1160 TO EXIT
1:GET THE LSD
1260 CHANGE TO ASCII
S WAS THE LSD THE FIRST NON-ZERO?
S:BR IF NO
S:YES==SET THE SIGN FOR TYPING
12SET THE TERMINATOR

‘8% WAS ENTR AT STYPDS?

‘88 BRANCH IF SO
‘88 TEST THE OVERFLOW LOCATION
‘88 BRANCH IF NON-ZERO
288 GO EXPAND THE DECIMAL NUMBER

::POP STACK
;:POP STACK
:;POP STACK
;+sPOP STACK
;:POP STACK

INTO RS
INTO R3
INTO R2
INTO R1
INTO RO

;sNOW TYPE THE NUMBER

;88 SEE IF ENTRY WAS AT S$TYPDS
;88 BRANCH IF SO
:%g ADJUST THE STACK

;88
;88 REPLACE ORIGINAL TERMINATOR
;88 REPLACE ORIGINAL SPACE (HARACTER
;88 REPLACE ORIGINAL SPACE CHARACTER
;88 RETURN TO USER
;;ADJUST THE STACK
;;RETURN TO USER

;0000.,1000..100..10.

135

027516
027522
027526
027530
027532
027536
027536
027540
027542
027546
027552
027556
027562
027566
027572
27576
027602
027606
027612
027616
027622
027630
027634
027642
027644
027652
027654
027656
027660
027664
027670
027672
027676
027706
027710
027714
027716
027720
027722
027726
027730
027732
027736
027740
027744
027750
027752

012702
012703
105043
114243
114243
1146243
114243
114243
112743
112743
112743
112743
013746
005037
013746
C)5037
012701
012702
016600
111137
052737
061237
022737
002025
162737
010103
005303
105213
152713
122713
002012
111337
162737
113713
022703
001357
005300
001343
113711
005301
005742
022701
001325
012637
012637
000207
000003

027512
027516

000040
000040
000040
000040
001360
001360
001362
001362
027513
027762
000026
001360
000060
001360
000071
000012

001360

001360
001360

000060
000071
001362
000012
001362
027504

001362

001360

027507
)
00136¢
001360
000002

000007

.SBTTL

SUBROUTINE

AR AALALSAL AL AR

EXPAND: MOV
MoV
CLRB
MOVB
Mov8
MOVB
MOVB
MovB
MOvB
MOvB
MOvB
MOvB
Mov
CLR
Mov
CLR
MOV
MoV
18:
MOV
MovB
BIS
28:
ADD
CMP
BGE
sus
Mov
3s:
DEC
INCB
81S8
CMPB
BGE
MovB
SUE
Movse
CMP
BNE
6$:
DEC
BNE
MovBe
DEC
TST
CMP
BNE
Mov
MOV
RTS
$NUMS:
.WORD

PAGE

61N
126

SEQUENCE

TO EXPAND DECIMAL TO LARGER THAN 32767

id st

#$DBLK+6,R2

#SDBLK#1§ R3
(R3)
-(RZ) -(R3)

ittt itiiitisaizssssldss]y

;88 MOVE
;88 MOVE
;8% MAKE
:%% MOVE

LOCATION OF LCD+1 TO R2
NEW LOCATION OF LCD+2 TO R3
SURE TERMINATOR IS THERE
THE 5 ASCII'S TO THEIR NEW LOCATIONS

117
#'

,-(R3)

-(R3)

Egg MOVE 4 SPACE CHARACTERS TO THE 4 NEW LOCATIONS
1

21
C& SAVE $TMPQ
!0
e«

16:08

#$DBLK+7
,R1
#SNUMS+10,R2

26(SP) RO
(R1),$TMPO

#'0,$TMPO
(R2) ,$TMPO
#'9,8TMPO
43
c1o $TMPO

(R3)

#°'0,(R3)
#'9,(R3)
43
(R3),$TMP1
#10.,8TMP1

$TMP1, (R3)
g;DBLK.R3
RO

2%
$TMPO, (R1)
R1

=(R2)
#$DBLK+3,R1
1%

(SP)+,$TMP1
(SP)+,$TMPO

3.2.7,6,8.

CLEAR LOCATION TO USE AS ACCUMULATOR

C& SAVE $TMP1
188 CLEAR LOCATION TO USE ASZZND ACCUMULATOR

;28 MOVE ADDRESS OF LCD TO R
;88
;88
8
88
8
88

MOVE ADDRESS+10 OF WORD STREAM OF 846 TO R2
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
HAVE WE SURPASSED ASCII °*9'?

188 BRANCH IF NOT
;88 SUBTRACT 10 FROM THE ASCII AND
;88 MOVE PRESENT ASCII ADDRESS TO R3
;68 DECREMENT TO NEXT SIGNIFICANT ASCII DIGIT
;88 ADD THE CARRY TO THE ASCII
;80 SET BITS TO MAKE IT A NUMBER ASCII
;8% SEE IF CARRY NEEDS TO BE TRANSFERED
'3& BRANCH IF NOT
¢°
«©

CZDRLDO-DR11 GEN NPR INTF(
MACRC M1113
02-NOV-81
SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767

MOVE BYTE TO LOCATION $TMP1

28 SUBTRACT 10 DECIMAL AND
8 MOVE IT BACK

88 SEE IF ALL POSITIONS HAVE BEEN DONE
;8% BRANCH BACK IF NOT
;88 DECREMENT THE OVERFLOW LOCATION RO
s88 BRANCH IF NOT ALL ADDED
;80 MOVE NEW NUMBER TO LOCATION
;88 POINT R1 TO THE NEXT ASCII LOCATION
;88 POINT R2 TO NEXT DIGIT TO ADD
;80 SEE IF ALL DIGITS HAVE BEEN ADDED
;68 BRANCH IF NOT DONE
;88 RESTORE $TMP1
.88 RESTORE $TMPQ
;88 RETURN

136

CZDRI.DO-DR11 GEN NPR INTF(
TTY

INPUT ROUTINE

MACRO M1113

5915

02-NOV-81

.SBTTL
C e

16:08

H 11

PAGE 127

SEQUENCE

TTY INPUT ROUTINE

AR AR R AR AN R A AN RARN AT AR AN RN AN NN

.ENABL

A RN A AARIN IR

ANRARI NN RN AN

LS8

NN AR A AN AN A NN ARARN

N AN AR AN AAA AR RN

AARAN AN AN

s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE

IS ENTERED FROM THE

TRAP HANDLER,

RN RN AN AO NN

AND WILL

s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL

027764
027772

027774
030000
030002
030006
030012
030014
030020
030022
030026
030032
030036
030040
030046
030050
030056

022737
001112
105737
001405
113746
105037
000405
105777
100077
117746

042716
022726
001404

000176

001340

032555
032555
032555
151324

151320
177600
000007

: *\WHEN OPERATING IN TTY FLAG MODE.
#SWREG, SWR
;:1S THE SOFT-SWR SELECTED?
158
BNE
;«BRANCH [F NO
TSTB
CHARCT
:fi& SEE IF CHARACTER WAS INPUTED DURING PRINT
18
BEQ
;88 BRANCH [F NOT
Movs
CHARCT,=(SP)
;88 MOVE CHARACTER TO THE STACK
CLRB
CHARCT
;88 CLEAR THE CHARACTER FROM CHARCT
BR
2$
;88 GO CHECK IT ourt
1ST8
18:
asTKS
;s CHAR THERE?
8PL
158
;cIF NO, DON'T WAIT AROUND
Movs
asTKB,~(SP)
;:SAVE THE CHAR
#°C177.(SP)
2%:
BIC
;:STRIP=-0OFF THE ASCII
#7,(SP)+
CMP
;:1S IT A CONTROL G?
8EQ
3s
;88 YES, BRANCH AROUND RETURN TO USER SETUP
MOVB
=2(SP) ,CHARCT
;80 MOVE CHARACTER BACK TO CHARCT
BR
158
;88 RETURN TO USER
3s:
41
CMP8B
$AUTOB
2 ;ARE WE RUNNING IN AUTO-MODE?
158
BEQ
J;BRANCH IF YES

$CKSWR: CMP

116637

177776

032555

123727
001460

001334

000001

030060
030064
030070
030074
030076
030102
030106
030110
030112
030116

104401
104401
013746
104402
104401
105037
005046
005046
105777
100375

030544
030551
000176
030562
032555

19%:

151226

7%:

030120
030124

117746
042716

151222
177600

030130
030134
030136
030142
030146

021627
001005
104401
062706
000746

000025

9%:

030537
000006

20%:

030150
030154
030156
030162
030164
030172

021627
001022
005766
001403
016677
062706

000015

:
108

000464

$GTSWR:

000004
000002
000006

151146

118:

TYPE
TYPE
MOV
TYPOC
TYPE
CLRB
CLR
CLR
TSTB
8PL

LSCNTLG
. SMSWR

:: TYPE CURRENT CONTENTS

SMNEW

:;PROMPT FOR NEW SWR

SWREG,-(SP)

;;ECHO THE CONTROL=-G (“G)

;:SAVE SWREG FOR TYPEOUT
::G0 TYPE--OCTAL ASCII(ALL DIGITS)

:88 CLEAR ANY CHARACTER THAT WAS INPUTED DURING PRINT

CHARCT
-(SP)
=(SP)
a$TkS
7$

;s CHAR THERE?
¢ IF NOT TRY AGAIN

Movs
BIC

as$TKB,~(SP)

:;PICK UP CHAR

CMe
BNE
TYPE
ADD
BR

(SP) ,#25
10

;.15 1T A CONTROL-U?
:;BRANCH IF NOT
;. YES, ECHO CONTROL-U (*U)

CMP
BNE
TST
BEQ

MOV
ADD

#-C177,(SP)

;s CLEAR COUNTER
;. THE NEW SWR

JoMAKE IT 7-BIT ASCII

;- JGNORE PREVIOUS INPUT
soLET'S TRY IT AGAIN

;1S IT A <CR>?

JJBRANCH IF NC
JJYES, IS IT THE FIRST (HAR?
s ;BRANCH IF YES
;:SAVE NEW SWR
;<sCLEAR UP STA(K

137

C 4 DRLDO-DR11 GEN NPR
T T Y INPUT ROUTINE

030176
030202
030210
030212
030220
030222
030226

030274

030300

INTF(

104401
123727
001003

012777
000002
004737
021 627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

001405

MACRO M1113

001335

000001

000100

151124

026606
000060

02-NOV-81

15%:
16$:

TYPE
CMPB
BNE
MOV

RTI

000067

JSR
CMP
BLT
CMP

000060
000002

TST

8GT
BIC

BEQ

000002
177776

17%:

001404

18%:

ASL
ASL
ASL

16:08

I 1
PAGE 127-1

,SCRLF

M
$INTAG.
15%
#100,387KS

(SP) ,#60
189
(SP) 467
18$
460, (SP)+
2(SP)
178

2(SP)
=2(SP), (SP)
7$
$QUES

.DSABL

INC
BIS
BR
TYPE
BR
LSB

SR AN AR

N RRAAAAR

ANRA R AR

208

:;ECHO <CR>
;RE-ENABLE
::BRANCH [F
;sRE-ENABLE

2 RETURN

AND <LF>
TTY KBD INTERRUPTS?
NOT
TTY KBD INTERRUPTS

JcECHO CHAR
::CHAR < 0?
; sBRANCH IF YES
;:CHAR > 7?7
:;BRANCH IF YES
;2STRIP=0OFF ASCII
J:1S THIS THE FIRST CHAR
;:BRANCH IF YES
;sNO, SHIFT PRESENT
CHAR OVER TO MAKE
ce

PC,STYPEC

(SP)
(SP)
(SP)

SEQUENCE

ROOM FOR NEW ONE.
;cKEEP COUNT OF (HAR
;:SET IN NEW CHAR
J:GET THE NEXT ONE
;:

J:TYPE

2<CRO<LF>

;s SIMULATE CONTROL-U

A RN AN RAACANRAAANRANAAA
AN AN AR RANNRNAR

138

CZDRLDO-DR11 GEN NPR INTF(

ROUTINE

TO INPUT A SINGLE

MACRO M1113

CHARACTER FROM TTY

02-NOV-81
.SBTTL

030302
030304
030312
030316
030320
030326
030334
030342
030344
030350
030352
030356
030362
030366
030370
030372
030400
030402
030410
030412
030420

000004
151026

000002

151022
177600

000004

1$:

000004
000023

150774

28:

150770
177600
000021

026627
003003
042766
000002

4L(SP) ,2(SP)

BIC
CMP

#AC<177>,4(SP)
L(SP) ,#23%

TSTB
BPL
MOVB

BNE
TSTB
BPL

BIC

CMP
BNE

000140

000004

000175

000040

000004

3$:

A ¥

(SP) ,=(SP)

MOV

MOVB

000004

INPUT A SINGLE CHARACTER FROM THE

RDCHR
RETURN HERE

$SRDCHR: MOV

B8R

CMP
BLT
CMP
BGT
BIC
RTI]

SEQUENCE

ROUTINE TO INPUT A SINGLE CHARACTER FROM TTY

s*THIS ROUTINE WILL
SxCALL:

;v
;v

J 1
PAGE 128

16:08

a$TKS
1$
@$TKB,4(SP)

3s
@$TKS
2$

;o INPUT A SINGLE CHARACTER FROM THE TTY
s CHARACTER IS ON THE STACK
s:WITH PARITY BIT STRIPPED OFF
;:PUSH DOWN THE PC
::SAVE THE PS
JJWAIT FOR
2:A CHARACTER
;;READ THE TTY
2:GET RID OF JUNK IF ANY
2:IS IT A CONTROL=-S?
;;BRANCH IF NO
JsWAIT FOR A CHARACTER

a$TKB,-(SP)

2:LO0OP UNTIL ITS THERE
;:GET CHARACTER

(SP)+ 421
2s

2:I1S IT A CONTROL=-Q?
;sIF NOT DISCARD IT

#°C177,(SP)

4(SP) ,#140
43
4(SP) ,#175
48
#40,4 (SP)

TTY

J:MAKE IT 7-BIT ASCII
J:YES, RESUME

;318 1T UPPER CASE?
;sBRANCH IF YES
::1S IT A SPECIAL CHAR?
;sBRANCH [F YES
JsMAKE IT UPPER CASE
;60 BACK TO USER

139

—

CZDRLDO-DR11 GEN NPR INTF(

ROUTINE

MACRO M1113

INPUT A STRING FROM TTY

02-NOV-81
.SBTTL

16:08

K 11
PAGE 129

SEQUENCE

ROUTINE TO INPUT A STRING FROM TTY

ttttttttttfittfitttttt"ttttttt'tt'tttfifi't'tttt.itQ'tittt'tttfi.tt

'THIS ROUTINE WILL
:*CALL:

.®

030422

030424

030430
030434
030436
030440
030442
030446
030450
030454
030456
030462
030466
030472
030474
030500
030504
030506
030510
030516
030524
030526
030527
03053C
030537
030544
030551
030562

010346

012703

RDLIN

RETURN HERE

SRDLiN: MCV

030530

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

030537

28:

000004
030530

000002
000004

136
136
015
040

125
107
012
040

015
015
123
116

000177

001404
(030526
030526
000015

177777
0014066

MOV

CMP
BLOS
RDCHR
MOov8
108:
(MPB
BNE
4:
TYPE
BR
3$:
MovB8
TYPE
CMPB
BNE
CLRB
TYPE
MOV
MOV
MOV
MOV
RTI
98 :
BYTE
.BYTE
$TTYIN: .BLKB_
S$ONTLU: .ASCIZ
SCNTLG: .ASCIZ
S$MSWR:
.ASCIZ
SMNEW:
.ASCIZ
.EVEN

INPUT A STRING FROM THE

R3,=(SP)

W#STTYIN,R3

#STTYIN+7.,R3
3
(SP)+,(R3)
#177,(R3)
33
SQUES
18
(R3),9%
.93
'
#15,(R3)+
2%
=1(R3)
. SLF
(SP)+,R3
(SP) ,=~(SP)
4&(SP) ,2(SP)
#STTYIN,4(SP)

TTY

s INPUT A STRING FROM THE TTY
;;ADDRESS OF

FIRST CHARACTER WILL BE ON THE

s TERMINATOR WILL BE A BYTE OF ALL 0°'S
;s SAVE R3

:;GET ADDRESS

;;BUFFER FULL?
s:BR IF YES
;GO READ ONE CHARACTER FROM THE TTY
:.GET CHARACTER
¢.1S 1T A RUBOUT
;. SKIP IF NOT
::TYPE A 2
;. CLEAR THE BUFFER AND LOOP
s;ECHO THE CHARACTER
s CHECK FOR RETURN
s;LOOP IF NOT RETURN
s CLEAR RETURN (THE 15)
ssTYPE A LINE FEED
;cRESTORE R3
.,ADJUST THE STACK AND PUT ADDRESS OF THE
:.
FIRST ASCII CHARACTER ON IT

; sRETURN
0
s STORAGE FOR ASCII CHAR. TO TYPE
0
¢ s TERMINATOR
7.
s;RESERVE 7. BYTES FOR TTY INPUT
/4U0/<15><1d>
;. CONTROL 'V’
/%G/<15><12>
;. CONTROL ‘G’
<15><12>/SWR = /
/
NEW =

STA(K

140

——

CIDRLDO-DR11

GEN NPR INTF(

READ A DECIMAL NUMBER FROM THE

TTY

5917

02-NOV-81

.SBTTL

16:08

PAGE

L 1
130

SEQUENCE

READ A DECIMAL NUMBER FROM THE

/rY

CCRARANAAANANAANAANANRAN
AN
ARNNAN AN
RANNANRARANARN AN AN NACRANNR

:*THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND

s *CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS
;*ARE READ A ''?"" FOLLOWED BY A CARKIAGE 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

;*POSITIVE 32767 TO NEGATIVE 32768.
snCALL:

° N

030574
030576
030604
030606
030610
030612
030614
030616
030622
030624
030626
030632
030634
030636
030640
030642
030646
03065C
030654
030656
030662
030664
030666
030670
030672
03274
030676
030700
030704
030706
030710
030712
030714
030716
030720
030724
030726

030730
030732
030734
030736
030740

1646

6666
0046
0146

NN =N
NON SO
QOO NOOOO
N
OCOO=ODH WO
== ONONNO —O

MACRO M1113

000004

030742
000055

(00002

RDDEC
RETURN HERE

$RDDEC: MOV
MOV
MOV
MOV
MOV
RDLIN
1$:
MOV
MOV
CLR
CLR
(MPB

BNE

2$:

000060

Mov8
Movs
BEQ

(MPB

86T
(MPB
BLT

000071
170000

8IT
BNE

ASL
MOV
ASL
ASL
ADD

000060

000012

000002

005726

105010
104401

(SP) +,R0
RO,6$
=(SP)

R2
#'=,(RO)
4]
(RO)+,R2
(RO)
+ ,R1

3s
g'O.R1
]
#'9,R1
5%
#-C7777,(SP)
5%
(SP)
(SP) ,=(SP)
(3P)
(SP)
(SP)+,(SP)

8vs
Sus

5%
#'0,R1

8vS
BR

5%
2%

ADD

3s:

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

TST

BEQ
NEG
MOV
MOV

MOV
MOV
RT]
IST

(LRB
TVPE

R, (SP)

3
(SP)
(SP)+,12(SP)
(SP)+ ,R2
(SP)+,R1
(SP)+ RO
(SP)+

(RO)

;cREAD A DECIMAL NUMBER
;:NUMBER IS ON TOP OF THE STA(K

;sPROVIDE SPACE FOR
;o THE INPUT NUMBER
;sPUSH RO ON STACK
;:PUSH R1 ON STACK

;sPUSH R2 ON STACK
JcREAD AN ASCIZ LINE
;;ADDRESS OF 1ST (HAR.
;sSAVE INCASE OF BAD INPUT
::CLEAR DATA WORD
:;SIGN SET POSITIVE

;sSEE IF A MINUS SIGN WAS TYPED
JsBR IF NO MINUS SIGN
;sSAVE FOR LATER USE
;:PICKUP THIS CHARACTER
J:GET OUT IF 2ERO
;:MAKE SURE THIS CHARACTER
;oIS A DIGIT BETWEEN 0 £ 9
;:DON'T LET NUMBER GET TO BIG
::BR [F NUMBER WOULD OVERFLOW
.t.

;:SAVE FOR LATER
[ EX
|

:.8,

::¢10.

;;OVERFLOW ISN'T ALLOWED
J:STRIP AWAY THE ASCII

J.ADD IN THIS DIGIT

JUNK

;cOVERFLOW [SN'T ALLOWED

..L00P
;:CHECK JF NUMBER IS NEG
;:BR

IF NO

JcYES-=NEGATE THE NUMBER

JsSAVE

THE RESULT

ssPOP STA(CK
;.POP STACK
;.POP STACK
; ;RETURN

INTO R?
INTO R1
INTO RO

;s CLEAN PARTIAL NUMBER FROM STA(K

ssSET A TERMINATOR

;. TYPE

THE

INPUT UP TO BAD (MAR,

141

CIDRLDC~DR1Y GEN NPR INTF(

READ A DECIMAL NUMBER FROM THE

030742
030744
030750

000000
104401
000720

001404

MACRO M1113

(02-NOV-81

6$:

.WORD
TYPE
BR

TTY

16:08

0
. SQUES
8

PAGE 130-1

SEQUENCE

;sPOINTER GOES MHERE

.-;OO?OD

IOCRID

::TRY AGAIN

“’L'..

142

CZDRLDO-DR11 GEN NPR INTF(

READ AN OCTAL NUMBER FROM THE

MACRO M1113

TTY

5919

02-NOV-81

PAGE

;*THIS ROUTINE WILL

SEQUENCE
TTY

READ AN OCTAL

;*(HANGE IT TO BINARY,

;*THE

N1
131

READ AN OCTAL NUMBER FROM THE

.SBTTL
T

16:08

(ASCII)

NUMBER FROM THE

TTY AND

INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

s*0CTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ''?'' WILL BE TYPED

s*FOLLOWED BY A CARRJAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
s*CALL:
X

* %

RDOCT
RETURN HERE

030752
030754
030762

000004

000002

$RDO(T: MOV

1%:

NN NN N

jolelelolalelele]

031100
2%:

000060

N A

1040

000000
104401

000730
000000

001404

8EQ

ASL
ROL
ASL
ROL
ASL
ROL

BIC

ADD

3s:

BR
TST

MOV
MOV

105010
106401

MOvB

(MPB

177770

000012
031110

CLR
CLR

(SP) ,=(SP)
4(SP),2(SP)
RO,=(SP)
R1,-(SP)
R2,~(SP)
(SP)+ R0

R1
R2
(RO)+,=(SP)

BGT
(MPB
BLT

000067

31036

MOV
MOV
MoV
MOV
RDL IN
MOV
MOV

5%:

$HIOCT:

MOV
RTI
TST

CLRB

TYPE
.WORD
TYPE

BR
.WORD

:;READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STA(CK
:cHIGH ORDER BITS ARE IN $HIOCT
;;PROVIDE SPACE FOR THE
:; INPUT NUMBER

:2PUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STACK
JsREAD AN ASCIZ LINE
;:GET ADDRESS OF 1ST CHARA(CTER
;;AND SAVE IT
;;CLEAR DATA WORD
:oPICKUP THIS CHARACTER
s:1F ZERO GET Our
;sMAKE SURE THIS CHARACTER
;1S AN OCTAL DIGIT

3%
Jovb

;.8
#~(7,(SP)
R1
(SP)+

(SP)+
R1,12(5P)
R2,$HIOCTY
(SP)+ ,R2
R1
(SP)+
(SP)+ R0

(SP)+
(R0O)

0
. SQUES
1$

;+sSTRIP THE ASCII

JUNK

;;ADD IN THIS DIGIT
;.LOOP
;;CLEAN TERMINATOR FROM STA(K
;:SAVE THE RESULT
;;POP STACK

INTO R2

;sPOF STACK INTO R1
JsPOP STACK INTO RO

; :RETURN

;s CLEAN PARTIAL FROM STACK
JsSET A TERMINATOR

;s TYPE UP THRU THE BAD (HAR.
::II?IO

IICROI

..LF"

::TRY AGAIN
::HIGH ORDER BITS GO HERF

143

——

CZDRLDO-DR11 GEN NPR INTF(
TRAP DECODER

MACRO M1113

5921

02-NOV-81 16:08

.SBTTL

812
PAGE 132

SEQUENCE

144

TRAP DECODER

L T
T
T
e e
L

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

THE ‘‘TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

031112

031114
031120
031122
031126
031126
031132
031134
031136
031144

010046

016600
005740
111000
006300
016000
000200
011646
016666
000002

;*0F THE DESIRED ROUTINE.
:*60 TO THAT ROUTINE.

000002

$TRAP:

MmOV

;:THIS

IS USE

031146

000004

000002

RO, = (SP)

MOV
ST
MOVB
ASL
MOV
RTS

2(5P) . KO
=(RO)
(RO) RO
R0
$TRPAD(RO)
,RO
RO

TO HANDLE

$TRAP2: MOV
MOV
RTI
.SBTTL

:«THIS

CONTAINS

::SAVE RO

S:GET TRAP ADDRESS
+:BACKUP BY 2
2:GET RIGHT BYTE OF TRAP
SPOSITION FOR INDEXING
;;INDEX TO TABLE
2360 TO ROUTINE

THE '‘GETPRI'' MACRO

(SP) ,=(SP)
4(SP),2(SP)

TRAP TABLE

TABLE

THEN USING THE ADDRESS OBTAINED IT WILL

THE

;:MOVE THE PC DOWN
::MOVE THE PSW DOWN
:RESTORE THE PSW

STARTING ADDRESSES OF

S«BY THE "‘TRAP’' INSTRUCTION.

031146
031150
031152
031154
031156
031160
031162
031164
031166
031170
031172
031174
5922 031176

031134
026374
026766
026742
027002
027200
030064
027764
030302
030422
030752
030574
027170

ROUT INE

$TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
$GTSWR

$CKSWR

$SRDCHR
SRDLIN
$RDOCT
$RDDEC
$TYPDE

$TRAP?
;:CALL=TYPE
;:CALL=TYPOC
-:CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS
::CALL=GTSWR
::CALL=CKSWR
::CALL=RDCHR
:-CALL=RDLIN
::CALL=RDOCT
::CALL=RDDEC
::CALI =TYPDE

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TRAP+7(104407)

THE ROUTINES

CALLED

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
GET SOFT-SWR SETTING

TEST FOR CHANGE IN SOF T-SWwR

TRAP+10(104410" TTY TYPEIN CHARACTER KOUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY
TRAP+13(104413) READ A DECIMAL NUMBER FROM TTY
TRAP+14(104414) TYPE DECIMAL EXTENDED

CZDRLDO-DR11 GEN NPR INTF(
SCOPE HANDLER ROUTINE

MACRO M1113

5924

02-NOV-81

.SBTTL

16:08

€12

PAGE 133

SEQUENCE

145

SCOPE HANDLER ROUTINE

;*THIS ROUTINE

CONTROLS THE LOOPING OF

SUBTESTS.

IT WILL

INCREMENT

s*AND LO.XD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
s~AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s*THE

SWITCH OPTIONS PROVIDED BY

s*SW14=1

LOOP ON TEST

LOOP ON ERROR
LOOP ON TEST IN SWR<6:0>

;*SW09=1
;*SW08=1
s+CALL

i*
032777
001406
005737
001403
013716
000002
032777
001403
013716
000002

105737

001043
105737
001406

031344

040000

150106

#BIT09,aSwWR

.,LOOP ON ERROR?

TST
8EQ
MOV

SERTTL
1$
$LPERR, (5P)

::SEE IF THERE WERE ANY ERRORS YET
2:BR IF NOT YET
s .FUDGE RETURN

BIT

#BIT14,3SWR

:;LOOP ON TEST?

MOV
RTI

$LPADR, (SP)

8EQ

001306

2%:

002706

032555

105777
100055
117737
142737
122737

150046

002706

002706
002706

032555

032174

105337

002706
032555

032555

002706

48:

031422

002706
032504

TSTB

5%:

6$:

7%:

EOPLOC

BNE

8EQ

CLRB
BR
TSTB
BPL
MOv8
BI(B

CHARCT
48
a$TKS
8s
a$TKkB,EOPLOC
#200,E0PLOC

BEQ

CMPB

Movs

147754

147750
000200
000030

BEQ

MOvB

3s:

V02706
002706

104401

RTI

TSTB

150042
000200
000030

;s SCOPE=10T

SCOPE

$SCOPE: BIT

001310

032555
032555

001406
113737
105037
000435

150132

001312

113737
105037

000411

031340

001000

THIS ROUTINE ARE:

CHARCT
CHARCT ,EOPLOC

#30,E0PLOC

EOPLOC,CHARCT

.BR IF NO

:sRETURN

;B8R IF NO

..FUDGE RETURN
: RETURN

i& TEST TO SEE IF EOP'S ARE TO PRINT
68 BRANCH IF NOT
;08 SEE

;88 MOVE

;88
;88
;88
;88
;88
;88

J88 SEE

EOPLOC
CHARCT
8$
CHARCT
7%
as$TKS
8$

;88
188
;08
;8
;88
;88
;88

(MPB

#30, CHARCT

;88 SEE

CLRB

TYPE

EOPLOC

.EOPRSM

(*X)

IT IS

;88 MOVE CHARACTER BACK TO CHARCT FOR POSSIBLE FUTURE USE

DECB
CLRB
BR
1ST8
BNE
1ST8
BPL

BNE

IF A

;88 BRANCH iF

EOPLOC
8s
+HAKTPM

8$TKB, CHARCT
#200, CHARCT

THE CHARACTER TO EOPLOC

CLEAR THE LOCATION
BRANCH TO CHECK THE CHARACTER
SEE IF EOP REQUESTED
BRANCH IF NOT
GET CHARACTER
CLEAR PARITY BIT

CLRB
BR
TYPE

MovBs
8I(8

IF A CHARACTER WAS INPUTED IN A PRINT ROUTINE

;88 BRANCH TO CHECK KEYBOARD IF NOT

;88 CLEAR THE LOCATION
;88 BRANCH TO START SCOPE ROUTINE
;88 TYPE: 'HIT ANY KEY TO OBTAIN A PROGRESS REPORT,'®

;80
11
49

'ENTER (“X) TC RESUME EOP'S AND EOD‘S’
'ENTER THE KEY REPEATEDLY, AS RESETS DONE IN THE D
'MAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE

MAKE “X ANOTKER CHARACTER AND
CLEAR ANY CHARACTER THAT MAY BE THERE
BRANCH TO START SCOPE ROUTINE
SEE _IF A CHARACTER WAS INPUTED IN THE TYPE ROUTINE
GO TEST THE CHARACTER IF SO
SEE IF CHARACTER WAITING
BRANCH IF NOT

;88 MOVE THE CHARACTER FOR TESTING
;88 CLEAR THE PARITY BIT
IF ANOTHER

288 BRANCH IF NOT

(“X) WAS

INPUTED

;88 CLEAR EOPLOC TO RESUME EOP MESSAGES

;8 TYPE: "EOP'S AND EOD'S WILL RESUME PRINTING'

CZDRLDO-DR11 GEN NPR INTF(
SCOPE HANDLER ROUTINE

031426
031632
031436
031440
031446
031450
031456
031460
031464
031466
031474
031476
031502

031506
031512
031516
031522
031526
031530
031534
031536
031540
031542
031546
031550
031552
031556
031560
031562
031566

MACRO M1113

032555
032555

8%:

000031

032555

044652

044650

036311

047132
104401

012700
012701
005037
021037
001403
062700
000420
012046

104414
104401

037352

012046
104405

12%:

13%:

14%:

037352

012046

11$:

000010

104401

001002

044650

044652
000020
001362
001362

037352

15$%:

001362
044652

001405
032555

031636

104407

031640

000416

031642

013746
012737
005737
012637
000517
022626
012637
000505

000004
031666
177060
000004

032777
001505

000400

1578

BEQ
CMP8
BNE
CMP
BNE

BR
CMP
BNE

TYPE
TYPE

MoV
MOV
CLR
CMP
BEQ
ADD
BR
MOV
TYPDS
TYPE
MOV
BNE
TYPE
MoV
TYPDE
TYPE

MOV

001405
044650

044652

CLRB

TYPE

036120
036173

104405
104401
012046

02-NOV-81

044650

TYPDS
TYPE
16%:
(MP
BNE
INC
MOV
DEC
BNE
MOV
TYPE
178:
CLRB
9s:
CKSWR
NANNRSTART OF

$XTSTR: BR

MOV
MOV
TST
MOV

000004

5$:

000004

B8R
CMP

MOV

D.12

PAGE 133-1

CHARCT
CHARCT
9s
521.CHARCT
#CAPSTK,CAPNTR

SEQUENCE

118

JSEE IF THERE IS ANY DATA TO PRINT
;BRANCH TO PRINT IT IF THERE IS

17%

JKICK OUT

.NOCATA

JTYPE:

N#ENDSTK, CAPNTR

128

STKIFL
.ERCHDR

'NO ERROR TOTALS TO REPORT®

;SEE IF STACK IS FULL OF BULL
;BRANCH AROUND STACK IZ FULL MESSAGE [F NOT
JTYPE:
-IYPE'

#CAPSTK
RO
#16. ,R1
$TMP1

°*STACK IS FULL = DATA MAY HAVE BEEN LOST'
'SUHHATION OF ERRORS SINCE BEGINNING OR LAST REPORT®

'80ARD #

ERRTTL®

TO PRINT TO RO

*CLEAR $TMP1, DEVICE POINTER
JSEE IF UNIT NUMBER IS TO PRINT
;BRANCH TO PRINT DATA IF SO
;G0 TO NEXT SET OF DATA AND
;G0 SEE IF ANY MORE TO CHECK
JMOVE UNIT NUMBER TO STACK FOR PRINTING
260 TYPE UNIT NUMBER IN DECIMAL
;TYPE 2 SPACES
;MOVE OVERFLOW PASS NUMBER TO STACK FOR PRINTING
;BRANCH IF NON-ZERO

(RO)+,-(SP)
158

.SPACES

JTYPE AN EXTRA 2 SPACES - NUMBER WILL NOT BE EXTENDED

(RO)+,~(SP)

;MOVE MAJOR PASS NUMBER TO STACK FOR PRINTING
;G0 TYPE PASS NUMBER IN EXTENDED DECIMAL

.SPACES

JTYPE 2 SPACES

,$CRLF

;TYPE <CRLF>

(RO) +,~-(SP)

;MOVE ERROR TOTAL TO STACK FOR PRINTING
;G0 TYPE ERROR TOTAL IN DECIMAL

RO, CAPNTR

JSEE IF ALL DATA HAS BEEN PRINTED
;BRANCH BACK IF NOT

13$

$TMP1

ccAPsrx RO

133

#CAPSTK, CAPNTR

SCRLF

ngf FOR THE

STACK

JMOVE 16 BOARDS TC SEARCH TO RO

.SPACES

FHARCT

PASS #

HOVE ADLCRESS OF

(RO) ,$TMP1
14%
#10,R0
16%
(RO)+,=(SP)

s INCREMENT DEVICE POINTER
JINITIALIZE YO BEGINNING FOR ANOTHER POSSIBLE PASS
;DECREMENT THE LOOP COUNTER AND
sBRANCH UNTIL ALL DEVICE DATA PRINTED
JREINITIALIZE CAPNTR
JTYPE ANOTHER <CRLF>
CLEAR ANY CHARACTER ENTERED DURING PRINTING

JTEST FOR CHANGE
XOR TESTER#I###

S#ERRVEC = (SP)
#5$ , a#ERRVEC

ar177060

(SP) +, @#ERRVEC
$SVLAD
(SP)+,(SP)+

(gp)+aWMERRVEC

146

;88 MAKE CHARACTER SOMETHING ELSE
;88 SEE IF A CHARACTCR IS WAITING
;88 BRANCH AROUND (“Y) TEST IF NOT
80 IS THIS A (*Y) (REQUEST FOR RUN SUMMARY)
;00 BRANCH [F NOT

IN SOFTWARE SWITCH REGISTER

;s
JF RUNNING ON THE ‘'XOR'*' TESTER CHANGE
:THIS INSTRUCTION TO A NOP'* (NOP=240)

;SAVE THE CONTENTS OF THE ERROR VECTOR
;:SET FOR TIMEOUT
;:TIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR
2:60 TO THE NEXT TEST
JoCLEAR THE STACK AFTER A TIME OuT
..RESTORE THE ERROR VECTOR
LOOP ON THE PRESENT TEST

I4
68 : ; MMANREND OF CODE FOR THE XOR TESTER#’I##
#81T08,asSWwR
BIT
:.LOOP ON SPEC.
43
8EQ
::BR IF NO
BR

147434

16:08

TEST?

CZDRLDO-DR11

GEN NPR INTFC

SCOPE HANDLER ROUTINE

005046

MACRO M1113

(02-NOv-81
CLR

147424

MovBe
8I(C

000200

8EQ
CMP
BLY

000037

MOV
MOV

DEC
ASL
ADD
MOV

177777

032654

8s:

28:2%:

177777

0V0004
032056
177766
000001

000001

147300
001000

000004
032654

032654

900s$:

177766

QOO OO0 ==
Ot
ad Ot
b O
O WWNNIWN
— =2 (N
O=d b b b = C NN NOONON
OW—=2OQO WO
WO — N WNWNINW
oo
NIONNNINNN

105037

5237
737

032504
032555

BIT
BEQ
BIC

177777

:
20008

000004

910%:

EMT
MOV
BR
CMP
MOV
INC
B8R
INC
BNE
MoV

7%:

MoV

177777
032076

001406
013737
000420

MOV
MoV
MOV

MOV
BIC

147272

147264

001002
012637

BR
TST
CMP
BEQ
INC
BNE

001310

001303
001302
001302

032654

19998:

2001$:
001306

001414

A ¥
$SVLAD:

$OVER:

;1518

BEQ

BR
CLRB
INCB
MovB
MOV
MOV
CLR
Move

16.08

E_12

PAGE 133-2

=(SP)
aSWR, (SP)

#SSWRMK
, (SP)

#37,(SP)
8s
(SP) ,$TSTNM
(SP) ,$TESTN

(SP)
(SP)
#$SWOBTBL
, (SP)
a8(SP)+ SLPADR
$OVER
(SP)+
#-1,CPSAVE

<0018

-1

9008

4,=(SP)

#19998%
.4
177766, CPSAVE
#81T00,CPSAVE

20008
#81700,177766
aSwR,=-(SP)

0?5769 aSWR
(SP)+,aSWR

2000s

(SP)+,(SP)+

#-1,CPSAVE

20008+2

910%

#-1

20018

(SP)+,4
$ERFLG
$SVLAD
SLPERR,SLPADR
$OVER
$ERFLG
STSTNM
$TSTNM,STESTN
(SP) ,SLPADR
(SP) ,SLPERR
$SESCAPE
#1,SERMAX
$TSTNM,3DISPLAY
$LPADR, (SP)

200
124
124

HAKTPM:

200

EOPRSM:
CHARCT:

/*X/<CRLF>/HIT
/ENTER (“X) 70
JENTER THE KEY
/MAY CLEAR THE

131

SEQUENCE

147

soCLEAR A TEMP. LOCATION
s.PICKUP THE DESIRED TEST NUMBER
s sMASK OUT UNDESIRED BITS
;cBRANCH IF BAD TEST NUMBER IN SWR
s CHECK THE NUMBER IN THE SWR
..BRANCH IF _TEST NUMBER IS OUT OF RANGE
:UPDATE THE TEST NUMBER IN STSTAM

‘3 UPDATE THE TEST NUMBER IN STESTN
: ;BACKUP BY ONE
s SCALE THE TEST NUMBER AS AN INDEX
:.FORM THE ADDRESS OF TEST POINTER
;cSET LOOP ADDRESS TO DESIRED TEST
;.60 LOOP ON THE TEST

;. CLEAN THE BAD TEST NUMBER OFF OF THE STACK
;SEE IF TIMEOUT WAS PREVIOUSLY RECORDED ;DPMOO1
;BRANCH AROUND ROUTINE IF SO
:DPMO01
;DPMO01
THROUGH
TIME
1ST
FOR
;TEST
;DPMOO1
¢BRANCH IF NOT
DPH001
sSAVE TIMEOUT VECTOR AT &
: DPMOO1
cSET VECTOR TO LOCATION BELOW
DPH001
sMOVE CPU ERR REG VALUE TO LOC FOR TST
DPH001
;SEE IF THE POWER MONITOR BIT IS ON
;DPHOO1
sBRANCH TO CONTINUE ROUTINE IF CLEAR
sCLEAR THE BIT FOUND TO BE SET
:DPM001
SAVE SWR VALUE
H PMO01
:DON*T ALLOW' 0OP ON ERROR ON THIS ERROR:DPM001

sCALL SPECIAL POWER FAIL BIT ERROR CALL ;DPMOO1
:RESTORE SWR TO ORIGINAL VALUE
:DPMO01
;BRANCH OVER TIMEOUT SECTION
:DPMOO
. DPMOO1
sCLEAN UP THE STACK AFTER TIMEOUT
;0PMO01
;MOVE -1 TO CPSAVE - NO CPU ERR REG
:DPMO01
s INCREMENT 1ST TIME THROUGH LOCATION
DPHOOI
;BRANCH OVER 1ST TIME THROUGH TEST

sTEST FOR 1ST TIME THROUGH
sBRANCH IF NOT
sRESTORE LOCATION 4
;sHAS AN ERROR OCCURRED? ;88 ELIMINATED FOR CZDRLD
:.BR_IF NO
;.SET LOOP ADDRESS TO LAST SCOPE
;. ZERO_THE ERROR FLAG
;. COUNT TEST NUMBERS
s.SET TEST NUMBER IN APT MA]LBOX
s SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
s.CLEAR THE ESCAPE FROM ERROR ADDRESS
2oONLY ALLOW ONE(1) ERROR ON NEXT TEST
:.DISPLAY TEST NUMBER
::FUDGE RETURN ADDRESS

sRETURN
ANY KEY TO OBTAIN A PROGRESS REPORT,/<CRLF> ;&%
RESUME EOP'S AND EOD'S/<CRLF>
11
REPEATEDLY, AS RESETS DONE IN THE CIAGNOSTIC/<CRLF> ;&%
CHARACTER BEFORE THE TESTS FOR THE CHARACTER/<CRLF> ‘88

/*X/<CRLF>/EOP'S AND EOD'S WILL RESUME PRINTING/<CRLF>

;88 LOCATION TO HOLD INPUTED CHARACTER

H %4

SCOPE HANDLER ROUTINE

02-NOV-81

D —d

$SWO8TBL:

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

orn

b \ )

S OWVIN

d and e

(elalelelelelalelolelolololelels)

032556
032556
032560
032562
032564
032566
032570
032572
032574
032576
032600
032602
032604
032606
032610
032612
032614
032616
032620
032622
032624
032626
032630

MACRO M1113

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

.WORD
-WORD
.WORD

024154

032654

024536
025034
025350
000000

.WORD

:
CPSAVE

.WORD
.WORD
.WORD
.WORD

16:08

F 12
PAGE 134

TS11+30
TST2+30
TST3+30
TST4+30
TST5+30
TST6+30
TST7+30
TST10+30
TST11+30
TST12+30
TST13+30
TST14+30
TST15+30
1ST16+30
TST17+30
1ST20+30
TST21+30
TST122+30
TST23+30
TST24+30
TST25+30
TST26+30
1S127+30
TST30+30
TST31+30
TST32+30
TST33+30
TST34+30
TST35+30
T1ST36+30
55737#30

SEQUENCE

JSTARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
JSTARTING ADDRESS+30 OF
JSTARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
JSTARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
JSTARTING 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
SSTARTING 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

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

W WNUNANANN AN PPN NI NININ) —2 —b b b —d d b =2 YOMNN SN NN —
NOWVES WA= ONO\NSB NN = O NOV NS WIWN=O

CZDRLDO-DR11 GEN NPR INTF(

:STARTING ADDRESS+30 OF TEST
;STARTING ADDRESS+30 OF TEST
;STARTING ADDRESS+30 OF TEST
;STARTING ADDRESS+30 OF TEST
:STARTING ADDRESS+30 OF TEST
:STARTING ADDRESS+30 OF TEST
:STARTING ADDRESS+30 OF TEST 3
;LOCATION TO SAVE CPU ERR REG CONTENTS

:DPMO01

148

CZDRLDO-DR11 GEN NPR INTF(
ERROR HANDLER ROUTINE

MACRO M1113

5926

02-NOV-81

.SBTTL
SRR

G_12
PAGE 135

16:08

SEQUENCE

ERROR HANDLER ROUTINE

RRAANRAARARARNR

;*THIS ROUTINE WILL

RANRA

INCREMENT

AR AR AR ANCANAANANNAARAAR
ORS

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

s*THE

SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
;xSW15=1

:+SW13=1
;+SW10=1
;*SW09=1
;=CALL
o

032656
032662
032664
032670
032672
032700
032706
032710
032714
032720
032724
032730
032736
032744
032752
032754
032760
032762
032770
032772
032776
033004
033012
033014
033016
033024
033026

105037
104407
105237
001775

033224

$ERROR:

001303

7%:

104401

001400
001312
002714
001316
000002

013777
032777
001402

005237
005237
011637
162737
117737
122737

001445
105737
001040
022737
001436
013746
012737
013737
000405
022626
012737
000420
032737
001414
042737
113737
112737

000402
105037

012637
032777
001002
004737
122737
001007
113737
004737
000

001302
002000

146354

000177

1466442
1466432

000004
033014

SuB
MOVB
(MPB
BEQ
TST8
BNE
CMP
BEQ

1314

032654

000001

032654

000001
001314

177766

000177
033224
000004
020000

MOV
MOV
MOV

50008:
49998:

033224
001314

$:
$:

033226
001430

001314
033644

033130

CMP

MOV

BR
BIT
BEQ
BIC

MOVB
MOVB

146240

000001

IBSAVE

MOV

001314

177777

CLRB
CKSWR
INCB
BEQ
MOV
BIT

INC

1316

177766

TYPE
INC

1%:

000004
(32654

ERROR

BEQ

033224
177777

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

BR
CLRB

MOV
B8I7
BNE
JSR

,$BELL

$ERTTL
ERRCNT
(SP) ,$ERRP(
#2,SERRPC
@$ERRPC,SI1TEMB
q657,$ITEHB

s RANOO1

J:NO - SKIP
*:RING BELL
S COUNT THE NUMBER OF ERRORS

‘88 INCREMENT THE ERPOR COUNT

*;GET ADDRESS OF ERROR INSTRUCTION
::STRIP AND SAVE THE ERROR ITEM CODE
;SEE IF THIS IS THE POWER FAIL CALL
:BRANCH AROUND ROUTINE IF IT IS

;SEE IF THIS IS THE 2ND ERROR CALL

#-1,CPSAVE

1001$
4,-(SP)

#50008
4

177766, CPSAVE
49998
(SP)+, (SP)+
#-1,CPSAVE
1001 $

#81100,CPSAVE
1001$

#81700,177766

$ITEMB, IBSAVE
#177.81TEMB
1001$
IBSAVE
(SP)+.4

031113.asun
$
PC,SERRTYP

#APTENV, SENV

JSR

8C.$ATY4

.BYTE

:CLEAR THE ITEM BYTE SAVE LOCATION
$:TEST FOR CHANGE IN SOFT-SWR
:2SET THE ERROR FLAG

SERFLG
78
S:DON'T LET THE FLAG GO TO ZERO
$TSTNM, aDISPLAY 1:DISPLAY TEST NUMBER AND ERROR FLAG
ggIT10.SSUR
::BELL ON ERROR?

CMPB
BNE
MOV8

218:

: ;ERROR= EMT AND N=ERROR ITEM NUMBER

23
$ITEMB, 218

;BRANCH IF SO

;SEE IF CPU ERR REG EXISTS
sSRANCH IF NOT
sSAVE TIMEOUT VECTOR AT &
;TIMEOUTS TO 50008
sMOVE CPU ERR REG TO CPSAVE FOR TEST
:BRANCH OVER TIMEOUT HANDLER
sCLEAN STACK AFTER TIMEOUT

:SET CPSAVE TO -1 TO NEGATE FURTHER TEST:

;BRANCH TO CONTINUE ERROR CALL
;SEE IF POWER MONITOR BIT IS SET
sBRANCH IF 0K
sCLEAR THE BIT FOUND SET
;MAKE IBSAVE NON-ZERO FOR DUAL CALL

;SET SITEMB TO SPECIAL POWER FAIL PNTR
sBRANCH OVER IBSAVE CLEARING
;CLEAR IBSAVE SO AFTER Z2ND ERROR, EXIT
JRESTORE STACK TO PRETEST STATE
;:SKIP TYPEOUT IF SET
::SKIP TYPEOQUTS
;:G0 TO USER ERROR ROUTINE
s sRUNNING IN APT MODE
:oNO,SKIP APT ERROR REPORT
:.SET ITEM NUMBER AS ERROR NUMBER
s sREPORT FATAL ERROR TO APT

149

033214
033220
033222
033224

000
000777
10573;

02-NOvV-81

033224

—

&~
o
N

146172

o
o

=2OONNOOO VNS
S W
ONNOSONNO
S NOONNO N

033131
033132

MACRO M1113

[p 1 V]
[12N}

CIDRLDO-DR11 GEN NPR INTF(
ERROR HANDLER ROUTINE

3s:
166144

001310

026324

105737
001221
000002
000000

033224

0
2

BNE

TST8

000042

5%:

6%:

IBSAVE:

H 12
PAGE 135-1

IBSAVE

TST

aSWR

HALT
CKSWR
TST
BEQ
MOV

$ESCAPE
3.
$ESCAPE, (SP)

BPL

001376
001376
001000

BYTE

16:08

SEQUENCE

::APT ERROR LOOP
“SEE IF POWER FAIL ERROR CALL
*BRANCH IF NOT - HALT NOT ALLOWED
*;HALT ON ERROR
*:SKIP IF CONTINUE
*:HALT ON ERROR'
SSTEST FOR THANGE

IN SOFT-SWR

*:CHECK FO% AN ESCAPE ADDRESS
1iBR IF NONE
**FUDGE RETURN ADDRESS FOR ESCAPE

‘88 SEE IF WE ARE TO LOOP ON ERROR

BIT
BEQ

#BIT9,3SWR
5%

$LPERR, (SP)

‘8% BRANCH OUT IF NOT
*88 FUDGE RETURN

CMP
BNE

#SENDAD
, an4?2
63

;;ACT=11 AUTO-ACCEPT?
:;egeNCH IfF NO

MOV

HALT
1ST8

: RANOO1
*RANOO1

BNE

IBSAVE

sSEE IF THIS IS THE PWR FAIL ERROR CALL ;RANQO1

.WORD

:LOC'N 10 HOLD SITEMB DURING DUAL ERR

RTI

‘dSQ?SgNBACK TO CALL ORIGINAL ERR I SO ;RANOO1

;RANOO1

150

CZDRLDO-DR11 GEN NPR INTF(
ERROR MESSAGE TYPEOUT ROUTINE

MACRO M1113

5928

02-NOV-81

.SBTTL

16:08

PAGE

112
136

SEQUENCE

151

ERKOR MESSAGE TYPEOUT ROUTINE

cARARR AN AR RA

AN A AR AR

AR ANAANANRARARRA RN NAANRANANN RN

ONS

*THJS 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.
010046

113700
042700
001004

013746

033246
033250

001314

177400

001316

104402

000517
022700
001003
012700
000460
010037
042700
005300
006300
006300
006300

000177

001360
000200

040775

104401

062700
012037
001404
104401

100%:

MOV
BIC
DEC

002714

ASL
ASL

TSTB

BPL
CMP

000020

000001

002714

001360

033514

000200

145756

BLT
BGT

2$:

177400

002714

033514

CMP

BEQ
CMPB
BNE

8IT

002300
001360
000540

TYPE
B8R

2s:
48
5%:

1108:

BNE
8IC
ADD
BR

MCVB

ADD
BR

CLR
TYPE

ADD

MoV
BEQ

.WORD

012037
001404

7%:

MOV

000000

8$:

.WORD

;:SAVE RO

J:PICKUP THE ITEM INDEX

CLEAR UPPER BYTE
;IF ITEM NUMBER IS ZERO,

..SAVE $ERRPC FOR TYPEOUT

TYPE THE PC OF

:DPMO01
THE ERROR

2 sERROR ADDRESS

;260 TYPE=-=OCTAL ASCII(ALL DIGITS)
;. GET OUT
sSEE IF THIS CALL IS THE PWR FAIL CALL
¢BRANCH IF NOT
¢MOVE ADDRESS OF PWR FAIL CALL TO RO
¢BRANCH TO CALL ERROR
;8% MOVE RO TO_$TMPO FOR 200 TEST
;88 CLEAR BIT 7 IF PRESENT
;88 MAKE POINTER AN INDEX
;88 SHIFT TO MULTIPLY BY 10 (OCTAL)

MOV
BR

6$%:

104401

1%
$ERRPC,=(SP)

BR
(MP
BNE

000000
104401

RO,=(SP)
aN#SITEMB,RO
#177400,R0

ASL

104401

005037

1$:18:

033516

001360

000466
022737
001415
123737
001011
032777
001052
042700
062700
000432
113737
062700
000402

MOV
Mov8
BIC
BNE
MoV
TYPOC

105737
100037
023727

002404
003071

033440
033444
033450
033452
033454

SERRTYP:

;DPMOO1
:DPMO01
:DPMOO1
:DPMOO1

;88

ERRCNT, #20
23
148

.NOMORE

148
ll.ERRCNT

3
$TMPO ,MEPITM
3s

#8177 .,3SWR
14%
#177600,R0
s§R20004LRO

;88 SEE IF ITEM NUMBER IS OVER 200
;88 BRANCH IF ITEM NUMBER IS LESS THAN 200
;88 SEE IF 20 (OCTAL) ERRORS HAVE PRINTED
;88 BRANCH TO PRINT THE ERROR IF LESS
;88 BRANCH TO RFTURN IF GREATER - NO MORE DATA IS TO PRINT
;88 TYPE MESSAGE ANNOUNCING NO MORE PRINTING OF ERRORS
;88 BRANCH TO RETURN
;88 SEE IF THIS IS YHE FIRST ERROR
&& BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE

:88 SEE IF ITEM MATCHES LAST MULTIPLE ERROR
148 BRANCH IF NOT - NEW HEADER NEEDED

<88 SEE IF SWITCH REGISTER BIT 7 IS SET
;80 BRANCH TO RETURN IF SWITCH SET
;88 CLEAR UPPER BYTE OF RO EXPCSING ITEM BYTE
;88 POINT TO DATA TABLE ENTRY
;8% BRANCH TO PRINT DATA
$TMPO MEPITM
;8% MOVE ITEM NUMBER TO MEPITM FOR POSSIBLE FUTURE USE
gfnzoé-ssnme RO S8 ADD 200 BASE POINTER TO RO AND
;88 BRANCH AROUND ERRCNT CLEAR
ERRCNT
&t CLEAR ERRCNT SO MULTIPLE ERRORS GET NEW HEADER
.SCRLF
:t% TYPE <CRLF>

#SERRTB,RO

(RO)+,6%

;2FORM TABLE POINTER

J:PICKUP 'ERROR MESSAGE'' POINTER
;;SKIP TYPEQUT IF NO POINTER
::TYPE THE ''ERROR MESSAGE''

:;ERROR MESSAGE'’ POINTER GOES HERE
:;"'CARRIAGE RETURN'' & ‘LINE FEED'
;:PICKUP 'DATA HEADER'® POINTER
::SKIP TYPEQUT IF 0
::TYPE THE 'DATA HEADER''

::''DATA HEADER'' POINTER GOES HERE

CZDRLDO-DR11 GEN NPR INTF(

ERROR MESSAGE

033456
033462
033464
033466
033470
033472
033474
033476
033592
033504
033510
033512

033514

TYPEOUT ROUTINE

104401
011000
001407
013046
104402
005710
001403
104401
000771
104401
012600
000207

MACRO M1i13

001405

02-NOV-81 16:08

9s:

108:

037352
001405

138:
148:

000000

TYPE
MOV
BEQ
Mov
TYPOC
TST
BEQ
TYPE

J. 12
PAGE 136~1

.SCRLF
(RO) ,RO
138
a(R0O)+,-(SP)

BR
TYPE
MOV
RTS

(RO)
138
. SPACES
108
.SCRLF
(SP)+,RO
PC

MEPITM: .WORD

SEQUENCE
;:''CARRIAGE RETURN'' & 'LINE FEED"'
;;PICKUP 'DATA TABLE'' POINTER
;. GO _AROUND ROUTINE TQ TYPE THE DATA IF NONE
:.PUT OCTAL DATA ON STACK FOR TYPING
;. TYPE AN OCTAL NUMBER
;.1S THERE ANOTHER NUMBER?
::BR_IF NO
;. TYPE TWO(2) SPACES
;.60 BACK TO PRINT THE OCTAL NUMBER
;¢ 'CARRIAGE RETURN'' & 'LINE FEED'’
;cRESTORE RO
; ¢ RETURN

;88 LOCATION TO STORE 200+ ERROR ITEM NUMBER

033516

033526

033562

033612

PFECH:

.WORD

PFECH1,PFECHZ,PFECH3,PFECH4 ;ADDRESSES OF DATA/ASCI] BELOW

033562

124

105

123

PFECHZ:

.23%&2

?TES'NO

001414

(01316

033612

033622

120

000

117

000

127

032654

000

PFECH1:

.ASCIZ

PFECH3: .WORD
PFECH4:

.BYTE

?POWER MONITOR BIT FOUND SET?

ERR PC

(PUERR?

STESTN,SERRPC,CPSAVE,0
0,0,0.,0

152

CZDRLDO-DR11

COMMUNICATIONS ROUTINE

MACRO M1113

5930
NOMNIN
NN
WOWW
NW~NI~N

033626
033634
033642
033644
033652
033652
033654
033656
033662
033664
033672
033674
033702
033704
033710
033716
033722
033724
033730
033732
033734
033740
033742
033746
033754
033756
033764
033772
033776
034002
034004
034004

(02-NOV-81

SEQUENCE

APT COMMUNICATIONS ROUTINE

RN R AR NN R R AN N RAANR AN

AN RN NN RAN AN RA NN ANN AN AR AN AN NN

034072
034070

SATY1:
S$ATY3:

MOVB
ggVB

#SFFLG
g;it?FLG

2270 REPORT FATAL ERROR
;.70 TYPE A MESSAGE

000001

034072

g:;;é:

MOVB

#1,8FFLG

;:TO ONLY REPORT FATAL ERROR

MOV
MOV
TST8

RO,-(SP)
R1,-(SP)
SMFLG

;:PUSH RO ON STACK
;¢PUSH R1 ON STACK
2 3SHOULD TYPE A MESSAGE?

a4 (SP) R0

;:GET MESSAGE ADDR.

034070
000001

001430

000100

001431

000004
000002
001410

000004

001426
000004

017637
062766
013746
004737
000000

000004
000002
177776

1%:

2%:

105737
001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

034072

001410

034002
000004

026374

3$:

108:

001430

000004
000002
001410
034072
034071
034070

5%
#APTENV,SENV
33
#APTSPOOL ,$ENVM
3s

ADD

#2,4(SP)

ngB

5?0)*

TST
BNE
MOV

118:

001412
000004
12%:

;sSEE IF DONE W/ LLAST XMISSiON?
;2]F NOT:
WAIT
;2:PUT ADDR IN MAILBOX

;:FIND END OF MESSAGE

2:SUB START OF MESSAGE
:sGET MESSAGE LNGTH IN WORDS

gg.SHSGTYPE

J2TELL APT TO TAKE MSG.

MOV
ADD

84 (SP) 4%
#2,4(SP)

;+PUT MSG ADDR IN JSR LINKAGE
- -BUMP RETURN ADDRESS

JSR

PC,STYPE

::CALL TYPE MACRO

RO, SMSGLGT

170776 ,~(SP)

23PUT LENGTH IN MAILBOX

;:PUSH 177776 ON STACK

.WORD

TSTB

$FFLG

::SHOULD REPORT FATAL ERROR?

TST

$MSGTYPE

JsFINISHED LAST MESSAGE?

12%
$SENV
12%

;s1F NOT:
BR
JsRUNNING UNDER APT?
;21F NOT:
BR

BNE
MOV

118
84 (SP) ,$FATAL

CLRB
CLRB

$FFLG
SLFLG

JsCLEAR FATAL FLAG
+sCLEAR LOG FLAG

(SP)+ R1
(SP)+,R0
PC
0
O

;:POP STACK INTO R1
::POP STACK INTO RO
::RETURN

ADD
INC

CLR8B

$MFLG:
$LFLG:
$FFLG:

;:BUMP RETURN ADDR.

$MSGTYPE
13
RO, $MSGAD

$MSGAD RO
RO

BEQ
TST
BEQ

MOV
MoV
RTS
.BYTE
.BYTE

.BYTE

.EVEN
APTSIZE=200
APTENV=001
APTSPOOL =100
APTCSUP=040

AN AN

:;IF NOT:
BR
2 ;OPERATING UNDER APT?
;:]F NOT:
BR
;.SHOULD SPOOL MESSAGES?
;:1F NOT:
BR

sus
ASR
MOV
ggv

MOV
g%:

001410

BEQ
CMPB
BNE
BITB
BEQ
MOV

001424

000200
000001
000100
000040

K_12

PAGE 137

000001
000001

001424

034072

16:08

.SBTTL
AR

N=P=NOO
~NO NEN=O
NN WWNWES
S
~N — NONOON

APT

GEN NPR INTF(

#2.,.4(SP)
$SMSGTYPE

SMFLG

;o1F NOT:
WAIT
;:GET ERROR #

J:BUMP RETURN ADDR.
2;TELL APT TO TAKE ERROR

JsCLEAR MESSAGE FLAG

;s sMESSG. FLAG
;:L0G FLAG
;JFATAL FLAG

153

CZDRLDO-DR11

MACRO M1113

GEN NPR INTFC

POWER DOWN AND UP ROUTINE

5932

02-NOv-81

.SBTTL

O b b b b d O ot =
RN
O NN
o NNNNNO
NN
W S HOWWO
W
~ OO NNO NV

[elelelelelalelele)

000024

$PWRDN: MOV

034074
000340
001300
000340
011420
001360
001369

000024

S$PWRUP: MOV

000026

MOV

HALT

MOV

034162
120

117

S$POWER:

#SPWRUP ,PWRVEC

#$SPWRDN,PWRVEC

MOV

#START1,-(SP)

INC

$TMPO

TYPE
RTI

. SPOWER

BNE

.?SELZ
BV

;88 SEY UP VECTOR TO RETURN TO THE HALT BELOW

s<HALT PROCESSOR

:88 RESET PWRVEC _TO PWRDN ROUTINE AND

NLEVEL7 ,PWRVEC+2.;88 PRIORITY TO 7

#STACK,SP

CLR

#LEVEL7 ,PWRVEC+2;8% RETURN PRIORITY TO 7

MOV

MOV
1$:

SEQUENCE

:POWER DOWN AND UP ROUTINE

034112
000340

000026

PAGE 138

POWER DOWN AND UP ROUTINE

034074
034102
034110
036112
034120
034126
034132
034136
034142
034146
034152
034154
034160
034162

L.12

16:08

SLEVEL?,-(SP)

;88 REINITIALIZE THE STACK,

:8% SET UP RETURN PRIORITY TO 7 AND
;B8 MOVE START1

ADDRESS TO STACK AND

$TMPQ

;80 CLEAR WAIT LOOP COUNTER

;88 BRANCH BACK UNTIL ZERO AGAIN

288 GIVE

TTY TIME

TO RECOVER FROM POWER FAILURE

;88 TYPE THE POWER FAILURE MESSAGE
;88 RETURN TO PROGRAM
<CRLF>/POWER FAILURE = RESTARTING PROGRAM/<(CRLF>

ASCIZED BELOW

154

MACRO M1113
CIDRLDO-DRY1 GEN NPR INTF(
MULTIPLE BOARD DIALOGUE ROUTINE

5989 034514
5990 034520

012706
004737
104401
105037
104401

012703
004737
022737
001073

001300
006610
060643
032555
040676
000001
002722
000114

AL AR

MBD:
PROMPT:

SEQUENCE

155

MULTIPLE BOARD DIALOGUE ROUTINE

ARARARRAAARARLAARARRR
AR
AR
AR Rdlddd])

MOV
JSR

#STACK,SP

CLRB

CHARCT

TYPE

TYPE
MOV

JSR

002664

PC,SETTUP

MBDJAL

LECELR
#1,R3

PC,READ

:;L.ANSUER

:SET UP THE DEVICE DESCRIPTOR WORD FOR PRINTING
MOVE NUMBER OF DEVICES TO STACK FOR TYPING

001474
002414

104401
015746
104402
104401

037355
002416

REGADR,-(SP)

037361
002456

VECADR,=(SP)

104403

003

037370
000001

104601

037405

104601
104401

037407
037370
006560
037370
000002

000402

004737
104401

032737
001003
104401

037420

104401
104401

037422
037370
000004

104401

037414

104401
104401

037411
037435

000402

032737
001403

000402

000671
022737
001020
005737
001003
104401

000657
005737
001772
004737
012737

. SPACE3
.SPACE6

3.9

000

104401

032737
001403

QTYBRD,~(SP)

000122

.SPACE?7

002720

—O
W

013746

002664

037072

2%:

002456

177777

702670

START

REGADR

7 SPACE CHARACTERS

;SEE WHICH W/B STATE FOR BOARDS
:GO PRINT W STATE IF W
;TYPE A

‘B’

PROMPT

VECADR

PC,FIXTBL

#-1,MANSIZE

;GO TO NEXT CHECK
CHARACTERS

;PRINT DEVICE PRIORITY

JSEE WHICH 2/N STATE FOR BOARDS

;60 PRINT N STATE [F N
JTYPE
A 2
;GO 10 NEXT CHECK

*SEE WHICH CABLE STATE FOR BOARDS

3
LMUSTED

:;;zg 3 CHARACTERS, LEADING ZEROS SUPPRESSED

#B1T2,DDW
148
LYES
158
.NO
PROMPT
#'R,ANSWER
43
REGADR

2=N

THE DEVICE REGISTER ADDRESS TO THE STA(CK
THE DEVICE PEGISTER ADDRESS
JTYPE 6 SFACE CHARACTERS
;MOVE THE DEVICE VECTOR ADDRESS TO THE STACK
:TYPE THE DEVICE VECTOR ADDRESS

;TYPE
AN

,CRLF?2

P-LEV ~ CYCLE

.PE 3 SPACE CHARACTERS

.SPACE?7

w-B

;?egg

JTYPE 7 SPACE CHARACTERS

138

VECADR

JTYOE THE NUMBER OF DEVICES

.SPACE?7

. TWO0

002720

'S80ARDS

;TYPE A ‘W
JTYPE 7 SPACE

128

12%:
13%:

‘4 OF

.SPACE?7

)

#81T1,DDW

002416

003170

#8170,DDW
108
B
118
PC,PNTPRI

002720

GO READ 1 CHARACTER
*LIST PRESENT TABLE?
*BRANCH IF NO

$DDW0,DDW

013737
013746
104405

Eggggfi LOCATION FOR POSSIBLE INPUT DURING PRINT
'ENTER COMMAND (CEIDIT, (L]1IST, [BIURST CALIBRATION,
1
TEXPECT CHARACTER
:TYPE:

040452
002720

;INITIALIZE THE STACK
:?epéNITIALIZE THE COMMON TAGS
'MULTIPLE BOARD DIALOGUE'®

-HEADER

104401

—

5960 034346
034354
5962 034356
5963 034362
5964 034364
5965 03437C
5966 034374
5967 034400
5968 034404
5969 034412
5970 034414
5971 034420
5972 034422
5973 034426
5974 034432
9975 034440
5976 034442
5977 034446
5978 034450
5979 034454
5980 034460
034462
5982 034470
5983 034472
5984 034476
5985 034500
5986 034504
5987 034506
5988 034512

MMAAAA

—

5959 034342

n_12
PAGE 139

J>>3>>>>MULTIPLE BOARD DIALOGUE ROUT INE<<<<<<<<

W
[
X"

034230
034234
034240
036244
034250
034256
034260
034264
5946 034272
5947 034274
5948
5949 034300
5950 034306
5951 034312
5952 034314
5953 034320
5954 034324
5955 034326
5956 034332
5957 034336
5958 034340

.SBTTL

16:08

JINANNRANAAAANARAAARAACAIRNCONANANAANRANACANNRACANRANANSACONNRNOANNS®

w>
.o

5934
5935
5936
5937
5938
5939
5960
5941
5962
5943
5944
5945

(02-NOv-81

:TYPE 7 SPACE CHARACTERS
;?SFERINT NO CABLE
CyES'

NONE

;BRANCH TO CONTINUE

JTYPE

'NO*

:TYPE 2 <CRLF>'S

JBRANCH TO PROMPT ANOTHER COMMAND
JRUN PROGRAM?

JBRANCH IF NOT
;SEE IF REGADR HAS BEEN LOADED
:?eé?cu TO CHECK VECADR If

"DEVICE ADDRESS AND/OR VECTOR TABLE NOT SET UP - MUS

;BRANCH BACX FOR PROMPT MESSAGE
:SEE IF VECADR HAS BEEN LOADED
;BRANCH BACK TO PRINT ERROR MESSAGE IF NOT
JFILL TABLE

JMOVE =1

TO MANSIZE TO INDICATE WE HAVE MANUALLY SIZED

CZDRLDO=DR11 GEN NPR INTF(

MULTIPLE BOARD DIALOGUE ROUTINE

5991 034526

000137

5993 034540

001414

5995
5996
5997
5998
5999

001235
005737
001750
005737
001745

5992 034532

5994 034542

034550
034552
034556
034560
034564

6000 034566

022737

000137

011424

MACRO M “13

000105

002664

000102

002664

002416
002456

035712

4$:

02-NOV-81 16:08
JMP

PAGE 139-1
;JUMP TO START

EDIT

sBRANCH TO EDIT IF SO

#°'E ,ANSWER

CMP

#'8B,ANSWER

JMP

BDLCR

BNE
TST
BEQ
TST
BEQ

SEQUENCE

START

CMP

BEQ

N 12

PROMPT
REGADR
2%
VECADR
2%

JEDIT TABLE?

JENTER BURST DATA LATE CALIBRATION?
sBRANCH
;SEE IF
;BRANCH
;SEE IF
;BRANCH

TO PROMPT IF COMMAND NOT RECOGNIZED
REGADR HAS BEEN LOADED
TO ERROR MESSAGE IF NOT
VECADR HAS BEEN LOADED
TO ERROR MESSAGE IF NOT
;JUMP TO BURST DATA LATE CALIBRATION ROUTINE

156

MACRO M11'3

CIDRLDC=DR11 GEN NPR INTF(
TABLE EDIT ROUTINE

6001
6002 034572

o 00 NOM\NE
NN =

~
&~

TABLE EDH ROU”NE
TYPE:
NOBUT

002704

000033

002664

gESC.ANSUER

000003

002664

ggNTLC.ANSUER

000015

002664

ngRETN,ANSHER

004737
022703
001017
0c2737
001453
922737
001447
022737
000740
005704
001773
022704
100770

010437
104401

013746
104402
104401

012703

112737

004737
022703
001022
022737
001704
022737
001005
000137
104401

000742
022737
001417
000735
020427
103765

036407

000020

037400

002722
000006

013746

104403
003

R4 ,QTYBRD

.SDADRS
REGADR,~(SP)

#6 R3

#'%,LRGSTC

002704

PC.READ

gs.as
$

000003

002664

#CNTLC ,ANSWER

000015
160010

EDIT

5%:

034244
036532

000007

104401

#20,R4
1%

#ESC,ANSWER

032704
001403

000721
010437

Ré
18

002664

163770

104401

.BDNERR

EDIT

000033

020427
101362

(%:

6%:

002664

re:

8s:

002416
040252
002456
000

PROMPT

.ADRERR

#CARETN,ANSWER

108
‘s
R4 4160010
6$
R4 4163770
63
#7,Ré
9s

.ADLCHR

036700
9%
108:

°NUMBER OF BOARDS UNDER TEST:

*PUT QUANTITY OF

BOARDS ON STACK

GQPERINT
YHE ,LQUANTITY OF BOARDS

157

FOR F~INTING

SEXPECT MAX OF 2 CHARACTERS
:MOVE ASCII *9°' TO THE LARGEST CHARACTER LOCATION
28

2%:

000006
000067

GTYBRD,-(SP)

Mov8
JSR

18:

002414
040366
002416

TYPE
MOV
TYPDS
TYPE
MCV

SEQUENCE

140

037400
000002
000071
002722
000002

104401

8 13

104401

013746
1046405

001412

& 228822228

034676
034702
034704
034710

PAGE

037535
002614

112737

6021
6022
6023
6024

.SBTTL

16:08

1044601

012703

6010 034632

EDIT:

(02-NOv-81

48
R4 ,REGADR

. SVADRS

VECADR,=(SP)

3.0

:GO READ 2 CHARACTERS
JSEE |F NON-NUMERIC WAS THE ONLY INPUT
;BRANCH IF NOT

JSEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
JBRANCH TO PROMPT JUMP [F SO

;SEE IF USER WANTS TO EXIT (“C)
JBRANCH TO PROMPT JUMP JF EXIT REQUESTED
:SEE IF A <CR> WAS

INPUTED

:{;PECR> USE EXISTING NUMBER

'JLLEGAL NUMBER (# OTHER THAN 1-16) OR ChARA(CTER N
FOR NEW INPUT
BACK
JBRANCH
MODULES INPUT
ZERO
FOR
JCHECK
JBRANCH TO PRINT ERROR MESSAGE IF SO
;SFE IF BOARD NUMBER IS ILLEGAL
JBRANCH TO PRINT ERROR MESSAGE IF SO
:?egg INQUYED NUMBER TO QTYBRD
STARTING DEVICE ADDRESS:

°*

;MOVE THE PRESENT ADDRESS TO THE STACK FOR PRINTING

;?5%27

TqE AD?RESS

JEXPECT MAXIMUM 6 CHARACTERS

JMOVE ASCII 7' TO THE LARGEST CHARACTER LOCATION
;GO READ 6 CHARACTERS
;JSEE IF NON-NUMERIC CHARACTER INPUTED
JBRANCH IF NOT
;SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT

JBRANCH AROUND ESC PRINT AND PREVIOUS PROMPT BRANC'' IF SO

JSEE IF USER WANTS TO EXIT (*C)
;BRANCH AROUND PROMPT JUMP [F NOT
;#9;2 TO PROMPT A NEW COHHAND

'ADDRESS INPUTED IS NOT'
;DPMO01
*IN THE RANGE 160010 TO 163770° :DPMOO1
:BRANCH BACK FOR REINPUT
;SEE IF <CR> WAS ONLY CHARACTER INPUTED
:IF <CR> USE EXISTING REG ADDRESS
sBRANCH BACK = INPUT NOT LEGAL

;1S ANSWER BELOW 160010

:BRANCH TO PRINT ERROROHGSSAGE

IFIT

;1S ANSWER ABOVE 16377
:BRANCH TO PRINT ERROR MESSAGE IF NOT

;

1S’

:DPMO01

sTEST TO MAKE SURE A "0' IS PRESENT IN LOWEST OCTAL DIGIT
:?cagffl AROUND ERROR MESSAGE TYPE IF SO
*ADDRESS INPUTED HAS OTHER THAN O FOR LEAST®
*SIGNIFJCANT OCTAL DIGIT®
:BRANCH BACK FOR REINPUT

INSTALL NEW # IN TABLE
:TYPE:
'STARTING VECTOR ADDRESS:

sMOVE PRESENT VECTOR TO STACK FOR PRINTING

sPRINT _THE PRESENT VECTOR ADDRESS

;TYPE 3 CHARACTERS,

SUPPRESS LEADING ZEROS

CZDRLDO-DR11 GEN NPR INTF(
EDIT ROUTINE

004737
104401

5
6096 €35276
6097 035300
6098 035304
6099 035306
6100 035314
6101 035320
6102 035324

6103 035332
6104 035336
6105 035342
6106 035346
6107 035352
6108 035354
6109 035356
6110 035364
6111 035366
6112 035374
6113 035376
6114 035404

012703
004737
005703
001415
022737
001700
022737
001417
022737
001640
000741
005704
001403
022704
001334
042737
050437
104401

013737
004737
104491

012703
004737
005703
001415
022737
001704
022737
001544
022737
001413

000033

002664

000003

002664

000015

002664

000277

JSR
CMP
BNE
cMp

8EQ
CMP
BEQ

118:

C36617

16:08

¢ 13

PAGE 140-1

13%:

JTYPE:

#3,R3
118

:SEE IF
:BRANCH
sSEE IF
:BRANCH
sSEE IF
:BRANCH
;SEE IF
:BRANCH

NON-NUMERIC WAS THE ONLY INPUT
IF NOT
USER WANTS TO GO BACK TO PREVIOUS PROMPT
TO PREVIOUS PROMPT [F SO
USER WANTS TO EXIT (*(C)
TO PROMPT JUMP |F SO
<CR> WAS INPUTED
IF NO CHANGE WANTED

PC,READ

#ESC,ANSWER

ggNTLC.ANSUER
#CARE
TN, ANSWER

158
108
#277 R4
138
108
#3,R4
148

.VCLCHR

037003

002720
002710

108

R4 ,VECADR

.DR1WOB

$DDWO,DDW
#8I1T0,BITTST

PC.PSTATE

.SPACEC
#1,R3

PC,READ

R3
16%

000033

002664

000015

002664

108
1géRETN.ANSHER

000003

002664

gCNTLC.ANSUER

WESC ,ANSWER

16$%:

000001

000001
001474
040137
001474
006560
037400
000001
002722

001474

002720

:
178
18%:

SEQUENCE

. SPACEC
#3,R3

,VECERR

000003

002456
04020°
001474«
000061
006536
037400
000001
002722

02-NOV-81
TYPE
MOV

100403
104401
000736
032704
001403
104401
000730
010437
104401
013737
012737

037400
000003
002722
000003

6072 035150

104401

012703
004737
022703
001015
022737
001674
022737
001721
022737
001417
000744
022704

S NWNNIN
=2 =2 OO NN
oONOOROOOoOOoONNONN

b ik OO
d e
md e
b e
b
—

(mlelelelelels)

|9,][V LV 1V, LV, ] ViV

o oleolele
W WINNWN

—_

o
o

o
o
o

[a%]

6058 035066
3
3
3
3
3
3
3
6066 03

(O,
F 3

TABLE

MACRO M1113

#8170,8DDW0

:EXPECT ONLY 3 CHARACTERS
;GO READ 3 CHARACTERS

:BRANCH BACK - INPUT WAS ILLEGAL

;SEE IF ANSWER IS BELOW 300
;BRANCH ARQUND ERROR MESSAGE [F NOT

;TYPE:

‘'VECTOR INPUTED IS NOT

sBRANCH BACK FOR REINPUT

sMAKE SURE LEAST SIGNIFICANT OCTAL DIGIT IS '0° OR *4°
:??SQCH OVER ERROR PRINTING IF NOT

'VECTOR INPUTED SHOULD HAVE 0 OR & AS LEAST DIGIT®

¢BRANCH BACK FOR REINPUT
:%vggALL NEW VECTOR ADDRESS IN TABLE
‘DR11-W CR B (W=0, B=1)

CURRENT STATE =

sMOVE DEVICE DESCRIPTOR WORD TO DDW
cMOVE BIT STATE TO PRINT TO BITTST
¢$£gT CQRRENT W/B STATE

SONLY INPUT 1 CHARACTER
;GO _READ 1 CHARACTER
:SEE IF NON-NUMERIC WAS THE ONLY INPUT

;BRANCH AROUND NON-NJMERIC TESTS IF SO
sSEE IF USER WANTS TO GO BACK TG PREVIOUS PROMPT
;BRANCH TO PREVIOUS PROMPT IF SO
JSEE IF USER WANTS NO CHANGE
;JBRANCH IF SO
;SEE IF USER WANTS TO EXIT (~(0)
;BRANCH TO PROMPT JUMP IF SO

;BRANCH BACK = INPUT NOT LEGAL
:CHECK FOR LEGAL INPUT
;BRANCH IF 0K
;CHECK FOR ILLEGAL INPUT
JBRANCH BACK IF JLLEGAL STATE INPUTED
sCLEAR THE BIT TO BE ALTERED

:¢$;EUSER INPUT INTO $DDWO

PC_PNTPR]

sMOVE DEVICE DESCRIPTOR WORD TO DDW
?RI?T DEVICE ,PRIORITY

. SPACEC

#1,R3

PC ,READ

000033

002664

19%
#ESC,ANSWER

000003

002664

#CNTLC,ANSWER

000015

002664

#CARE
TN, ANSWER

15%

26%
20$

:DPMOO1

IN THE RANGE OF 300 TO 777°:D

R4 ,$DDWO

DEVPRI
$0DW0,DDW

158

'DEVICE PRIORITY PRESENT LEVEL =

ZONLY INPUT 1 CHARACTER
;GO _READ 1 CHARACTER

;SEE I F NON-NUMERIC WAS THE ONLY INPUT

sBRANCH AROUND NON-NUMERIC TESTS IF NOT
sSEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
sBRANCH TO PREVIOUS PROMPT IF SO
:SEE IF USER WANTS TO EXIT (*(C)
sBRANCH IF EXIT WANTED
sSEE IF <CR> INPUTED FOR NO CHANGE WANTED
sBRANCH IF NO CHANGE WANTED

CZDRLDO-DR11 GEN NPR INTF(
TABLE EDIT ROUTINE

6115 035406
6116 035410
6117 035412
6118 035414
6119 035416
6120 035420
6121 035422
6122 035630
6123 0356434
6124 035440
6125 035446
6126 035454
6127 035460
6128 035464
6129 035470
6130 035474
6131 035476
6132 035500
6133 035506
6134 035510
6135 035516
6136 035520
6137 035526
6138 035530
6139 035532
6140 035534
6141 035536
6142 035542
6143 035544
6144 035546
6145 035554
6146 035560
6147 035564
6148 035572
6149 035600
6150 035604
6151 035610
6152 035614
6153 035620
6154 035622
6155 035624
6156 035632
6157 035634
6158 035642
6159 035644
6160 035652
6161 035654
6162 035656
6163 035660

MACRD M1113

000744
006304
006304
006304

19%:

000340
001474
040051
001474
000002
006536
037400
000001
002722

001474

002720
002710

20%:

000003

002664

000015

002664

000001
001474

002720
002710

22%:
238:

CMP
BEQ
CMP
BEQ
CMP
BEQ
BR
TST
BEQ
CMP
BNE
ASL

BI(C
BIS
TYPE

002664

000003

002664

000015

002664

CMP

BEQ

001474
26%:

$DDWO
, DDW
#81T1.8BITTST
PC,PSTATE

,SPACEC

#1,R3

PC.READ

R3
21%

#ESC,ANSWER

18$

#CNTLC,ANSWER

26$

N#CARETM
|, ANSWER

23%
20%

22%
208

R4
#BIT1,8DDWO

R4, $DDWO

.DOCTS
$DDWO,DDW

MOV

000033

000004
001474
034244

ronnca

.SPACEC
#1,R3

TST
BEQ
CMP
BEQ
CMP

25%:

powd

#BIT2,BITTST

JSR

000001

lLEVEL? $DDWO

MOV
Mov

JSR
TYPE

248

000137

TYPE
MoV
MOV
JSR
TYPE
MoV

BEQ

21%:

006536
037400
000001
002722

BIS

TST

002664

(:00002
001474
040373
001474
000004

ASL
ASL
ASL
ASL
ASL
BIC

BEQ
BR

PC,PSTATE
PC.READ

R3
24%

gCARETN,ANSHER

#ESC,ANSWER

20%

#CNTLC,ANSWER

26$

TST

8EQ
CMP
BNE
ASL
ASL

BIC
BIS

JMP

SEQUENCE

159

;BRANCH BACK = INPUT NOT LEGAL
sPUT PRIORITY IN PROPER POSITION
;BY SHIFTING TO THE LEFT 5 PLACES

JSR

000033

D 13
PAGE 140-2

02-NOV-81 16:08

#8172,3D0W0
R4 ,$DDWO
PROMPT

;CLEAR OLD PRIORITY

§$;EPRIORITY INTO DEVICE DESCRIPTOR WORD

'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

?RggT 2/N CYCLE STATE

sONLY ONE CHARACTER TO INPUT
:READ 1 CHARACTER
sSEE IF NON-NUMERIC WAS THE ONLY INPUT
:BRANCH AROUND NON=NUMERIC TESTS IF NOT
sSEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
:BRANCH TO PREVIOUS PROMPT IF SO
sSEE IF USER WANTS TO EXIT (“C)
:BRANCH IF USER WANTS TO EXIT
sSEE IF USER WANTS NO CHANGE
:BRANCH IF USER WANTS NO CHANGE

:BRANCH BACK - USER INPUT NOT LEGAL
sCHECK FOR LEGAL INPUT
;BRANCH IF OK
sCTHECK FOR ILLEGAL INPUT
sBRANCH BACK IF ILLEGAL STATE INPUTED
sSHIFT BIT OVER 1 PLACE
:CLEAR OLD STATE

:;s;ETHE USERS INPUTED STATE TO $DDWO
‘DO CABLE TESTS (NO=0, YES=1) PRESENT STATE =
;MOVE DEVICE DESCRIPTOR WORD TO DDW
cMOVE BIT STATE TO PRINT TO BITTST
sPRINT CABLE STATE

sTYPE:

:INPUT ONLY 1 CHARACTER
160 INPUT 1 CHARACTER
SSEE IF NON-NUMERIC WAS THE ONLY INPUT
;BRANCH AROUND NON-NUMERIC TESTS IF NOT
sSEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
sBRANCH TO PREVIOUS PROMPT IF SO
;SEE IF USER WANTS TO EXIT (°C)
:BRANCH IF USER WANTS TO EXIT
cSEE IF USER WANTS NO CHANGE

:BRANCH IF USER WANTS NO CHANGE
:BRANCH 8ACK = USER INPUT NOT LEGAL

;CHECK FOR LEGAL INPUT
;BRANCH IF 0K
sCHECK FOR ILLEGAL INPUT
sBRANCH BACK IF ILLEGAL STATE INPUTED
sSHIFT INPUTED BIT OVER 2 PLACES
;CLEAR BIT TO BE CHANGED

:SET THE USERS INPUTED STATE TO $DDWO
;JUMP TO GET NEW DEVICE NUMBER

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

BURST DATA LATE CALIBRATION ROUTINE

6171

(02-NOV-81

.SBTTL

61 72

16:08

E 13
PAGE 141

SEQUENCE

160

BURST DATA LATE CALIBRATION RGUTINE

":tttttttttttt'tttttttttttt'tttttttt'ttttttttttttttt.tt.ttttttttt

6173

:>>>>>>>BURST DATA LATE CALIBRATION ROUTINE<<<<<<LL

61 7(.

;:ttttttttttttttttttt'ttttttttttttttttttttttt'tttfittttttttttttttt

6175

6176 035712

6177 035720
6178 035724
6179
6180

6181 035730

012737
004737
104401

003170
037212

177777

002670

012737

000001

002544

001446

6182 035736
6183 035742
6184 0357646

012700
012701
005037

002456
002416
001422

6187
6188
6189
6190
6191
6192
6193
6194
6195
6196

005737
100004
104401
000137
022021
006337
005237
000757
011137
062737

002544

104401
013746
104405
104401
004737
005077
012737
052777
005337
001375
105777
100362
017737
000730

037200
001422

6185 035752
6186 035760

035762
035765
035770
035774
036000
036002
036006
036012
036014
036020

6197 036026

6198 036032
6199 036036
6200 036042
6201 036044
6202 036050
6203 036054
6204 036060
6205 C36066
6206 036074
6207 036100
6208 036102
6209 036106
6210 036110
6211 036116

033737
001015

011037

036477
034244

002526

037511
003646
144442
000077
000400
002660

002522

002660
144426

143236
144522

2%:

4%:

002544
001422
002522
000204

BDLCR:

002660

5%:

MoV

#-1_,MANSIZE

JMOVE =1 TO MANSIZE

MOV

#8]170,DEVMSK

SET UP BIT MASK TO TEST $DEVM FOR DEVICES

JSR
TYPE

7%:

;GO MILL TABLE
JTYPE:
°'BURST DATA LATE CALIBRATION'
-TYPE'ATTACH SCOPE PROBE.
'TO CALIBRATE NEXT BOARD

TYPE ANY CHARACTER®

MOV
MOV
CLR

#VECADR,RO
#REGADR,R1
SUNIT

HOVE VECADR TO RO
;HOVE REGADR TO R1
JCLEAR SUNIT

TST
BPL
TYPE
JMP
CMP
ASL
INC
BR
MOV
ADD

DEVMSK
48
,BCDONE
PROMPT
(RO)+,(R1)+
DEVMSK
SUNIT
23
(R1) ,CSR
¥4, CSR

;SEE IF BIT 15 IS SET
;BRANCH TO CONTINUE IF NOT SET
JTYPE:
‘'BURST CALIBRATION COMPLETE'
;JUMP TO PROMPT A NEW COMMAND
;INCREMENT THE TWO POINTERS
JUPDATE DEVICE MAP TEST MASK
JINCREMENT UNIT NUMBER
;50 TEST NEXT BIT OF DEVICE MASK
JPUT UUT CSR ADDRESS INTO DEVICE CSR LOCAT;ON
;POINT CSR TO CSR ADDRESS

BIT
BNE

MOV

6$:

PC,FIXTBL
.BDLCRM

TYPE
MOV
TYPDS
TYPE
JSR
CLR
MOV
BIS
DEC
BNE
TST8
8PL
MOV
BR

DEVMSK ,$SDEVM
5%

(R6) DRINV

DEVICE
SUNIT,-(SP)
LUCAL
PC,CLENUP
a(SR
#77,TIME
#CY,aCSR
TIME

7%
as$TKS
63
aTkB,TIME
43

JCHECK TO SEE IF DEVICE 1S TO BE TESTED
;BRANCH IF SO

JPUT UUT VECTOR ADDRESS INTO DEVICE DRIMV

JTYPE:
'DEVICE # °
JPUT UNIT NUMBER ON STACK FOR TYPEOUT
;GO TYPE THE UNIT NUMBER IN DECIMAL
JTYPE:
' UNDER CALIBRATION'
;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PR] TO 7
;CLR CYCLE BIT
JMOVE WAIT LOOP COUNTER TO TIME
;SET CYCLE BIT
JSUBTRACT 1 FROM TIME UNTIL ZERO
JBRANCH BACK [F NOT (EROQ YET
;IS A CHARACTER WAITING INDICATING USER WANTS TO GO ON?
;BRANCH IF NOT
JWASTE THE CHARACTER, CLEARING THE CHARACTER FLAG
;GO ON TO NEXT BOARD

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

ASTII AND ASCIZ MESSAGES AND LOCATIONS

6212
6213 036120
6214 036173
6215 036254
6216 036311
6217 036350
6218 036407
6219 036477
6220 036532
6221 036617
6222 036700
6223 037003
6224 037064
6225 037072
6226 037153
6227 037173
6228 037175
6229 037200
6230 037212
6231 037246
6232 037274
6233 037352
6234 037355
6235 037361
6236 037370
6237 037400
6238 037405
6239 037407
6240 037411
6241 037414
6242 037420
6243 037422
6244 037424
6245 037435

6246 037440
6247 037511
6248 037535
6249 037574
6250 037660
6251 037751
6252 040051

6253 040137
6254 040201
6255 0640252
6256 040306
6257 040341
6258 040373
6259 040452
6260 040546
6261 040643
6262 040676
6263 040775
6264 041063
6265 0641151
6266 061233
6267 041302
6268 047357

200
136
200
136
040
m
102
101
126
10
126
076
200
115
040
156
104
20v
200
200
040
040
040
040
040
102
127
116
131
062
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

123
131
200
131
055
114
125
104
105
104
105
105
104
125
000
103
105
102
101
124
040
040
040
040
040
000
000
117
105
000
000
117
200
101
125
116
200
122
040
062

104
104
123
123
124
104
200
102
200
105
110
122
116
105
050
116

126
200
102
200
040
114
122
104
103
104
103
123
105
123
000
126
125
124
117
000
040
040
040
072
000
123
101
000
114
116
125
106
061
040
040
105
122
126
124
105
117
043
117
115
116
105
122
117
123
136
m

02-NOV-81 16:08

STKIFL:
ERCHDR:
NODATA:
ETDEV:
BDNERR:
BCDONE:
ADRERR:
VECERR:
ADLCHR:
VCLCHR:
ESCAPE:
MUSTED:

LETNCR:
CNTRLC:
DEVICE:
BDLCRM:
SPACES:
SPACE3:
SPACE6:
SPACE7:
SPACEC:
B8:
W:
NO:
YES:
TWO:
N:
BOARD:
CRLF2:

BCFIN:
UCAL:
NOBUT:
BRVWPC:
TORNCB:

DEVPRI:
DRIWOB:
SVADRS:
SDADRS:
TSTCTMM:
DOCTyHEADER:
MBDIAL:
ECELR:
NOMORE:
NODVPR:
M1:

.SBTTL
.ASCIZ
.ASCII
.ASCI12
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASC!]
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
ASCIZ
.ASCIZ
.ASCIZ

_ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCII
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCI2
_ASCIZ

.ASCIZ
.ASCI!
LASCIZ
.ASCIZ
.ASCIZ
.ASCI]
LASCI2
.ASCII
LASCIZ
LASCII
LASCIZ

F 13

PAGE 142

SEQUENCE

161

ASCI] AND ASCIZ MESSAGES AND LOCATIONS
<CRLF>/STACK

135

FULL

= DATA MAY HAVE BEEN LOST/<CRLF><CRLF>

/*Y/<CRLF>/SUMMATION OF ERRORS SINCE START OR LAST REPOR7/
<CRLF><CRLF>/BOARD #

PASS #

ERRTTL/<CRLF>

/*Y/<CRLF>/NO ERROR TOTALS TO REPORT/<CRLF><CRLF>
/ = TOTAL ERRORS THIS DEVICE = /
/ILLEGAL NUMBER (# OTHER THAN 1-16) OR CHARACTER INPUTED/
/BURST CALIBRATION COMPLETE/
/ADDRESS INPUTED IS NOT IN THE RANGE 160010 TO_163770/
/VECTOR INPUTED IS NOT IN THE RANGE OF 300 TO 777/
/ADDRESS INPUTED HAS OTHER THAN 0 FOR LEAST SIGNIFICANT OCTAL DIGIT/
5VE§Z?5 INPUTED SHOULD HAVE 0 OR & AS LEAST DIGIT/
<

<CRLF>/DEVICE

ADDRESS AND-OR VECTOR

/MUST EDIT FIRST/
/ /
/*C/
/DEVICE # /

<CRLF>/BURST DATA LATE CALIBRATION/
<CRLF>/ATTACH SCOPE PROBE.../
<CR5F>/T0 CALIBRATE NEXT BOARD, TYPE

TABLE NOT

ANY

SET UP - /

CHARA(CTER/<CRLF>

/8/
/W/
/NO/
/YES/

/2/

/N/
/BOARD # /

<CRLF>/ALL BOARDS

CALIBRATED - BEGINNING TEST/<CRLF>

/ UNDER CAL IBRATION/<CRLF>

<CRLF>/NUMBER OF BOARDS UNDER TEST: /
<CRLF><CRLF>/DIAGNOSTIC HAS DETERMINEC ThE

/DR11-W(S)

IT HAS FOUND.

FOLLOWING ABOUT

THE/<CRLF>

USER *MUST+~ DETERMINE ACCURACY/<CRLF><CRLF>

/
BOARD#
REGADR
VECADR
w-8
P-LEV ~ 2-N CY
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, PASS #/
<CRLF>/DO CABLE TESTS (NO=0, YES=1) PRESENT STATE =
<CRLF><CRLF>/# OF
START

2-N
CABLE/
TESTS/<CRLF>

<CRLF>/BOARDS
REGADR
VECADR
w-8
P-LEV
<CRLF><CRLF>/MULTIPLE BOARD DIALOGUE/<CRLF>

CY(LE

<CRLF>/NO DEVICES RECOGNIZED - DIAGNOSTIC

RUN/<CRLF>

<CRLF>/ENTER _COMMAND (CEIDIT, (LJIST, (BJURST CALIBRATION, [RIUN):
/THERE ARE STILL MORE ERRORS, BUT WILL NOT BE PRINTED./<CRLF>
/ERRORS WILL STILL BE COUNTED AND PRINTED AT THE EOP./<(CRLF>

/RESTART AT 204 IF A DEVICE

CANNOT BE

IS PRESENT/<CRLF>

<CRLF>/(*X) INHIBITS EOP'S, (*Y) FOR ERROR SUMMARY/<CRLF>
/UN]JBUS HANG?
RESTART AT ADDRESS
/

CZDRLDO-DR11

GEN NPR INTF(C

MACRO M1113

ASCI1 AND ASCIZ MESSAGES AND LOCATIONS

6269 0414621
6270 04147
6271 041554
6272 041576
6273 041617
6274
6275 041640
6276 041642
6277 042642
6278 0426644
6279 042646
043646
043650
044650
044652
047132

200
105
104

054
054

(02-NOV-81

M1A:

BARADR:
TSNUMB:
PASNUM:

.
.

000C00

.SAV:

000000
042644

:
BUFF

043646

XCHKBU: .

044652

CAPNTR: .
CAPSTK: .

000000

613

PAGE 142-1

SEQUENCE

162

<CRLF><CRLF>/CZDRLDO DR11 GEN NPR INTHC LOGIC TEST/<CRLF>
/EOP MSG WILL PRINT EVERY 20 SECONDS APPROXIMATELY/<CRLF>
/DEVICE ADDRESS - /
/, TEST NUMBER - /
/., PASS NUMBER -~ /

XINBUF : :

ENDSTK:

16:08

400
0
400

400
CAPSTK
600.
0

¢sLOCATION TO HOLD POINTER FOR CAPTURE STACK
sLOCATIONS TO STORE UP TO 150 DECIMAL PASSES AND THEIR ERROR
JFLAG SIGNALING END OF THE STACK

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

ERROR MESSAGES

6285
6286 047134
(287 047162
6288 047216
6289 047264
6290 047315
6291 047346
6292 047377
6293 047445
6294 047477
6295 047542
6296 047574
6297 047644
6298 047733
6299 047757

124
103
104
MM
1
1
111
122
101
122
101
103
103
105

105
101
122
116
116
116
116
105
124
105
124
123
123
1M1

6322 051314

105

122

6300 050003
6301 050072
6302 050140
6303 050210
6304 050251
6305 050320
6306 050351
6307 050402
6308 050441
6309 050476
6310 050534
6311 050600
6312 050621
6313 050652
6314 050712
6315 050773
6316 051023
6317 051061
6318 051111
6319 051157
6320 051213
6321 051244
6323 051352
6324 051427
6325 051444
6326 051511
6327 051570
6328 051631
6329 051657
6330 051674

6331 051714

6332 051752

6333 052002
6334 052041
6335 052124
6336 052173
6337 052233
6338 052304
6339 052347
6340 052377

122
101
101
105
102
122
102
102
127
106
104
102
101
102
102
102
122
122
122
122
104
104
106
103
124
104
105
127
102
102

104

102

124
125
103
104
062
115
103
102

105
124
124
122
11
105
m
11
163
125
123
104
114
104
104
104
105
105
105
105
122
122

H 13
PAGE 143

EMI:
EM2:
EM3:
EM&4:
EMS:
EM6:
EM7:
EM10:
EMI1:
EM12:
EM13:
EM14:
EM15:
EM16:

.SBTTL
<ASCIZ
.ASCIZ
ASCIZ
ASCIZ
ASCIZ
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/
/ATTEMPT TO SET ALL WCR BITS FAILED/
/RESET FAILED TO CLEAR BAR/
/ATTEMPY TO SET ALL BAR BITS TO 1 FAILED/
/(SR BIT TEST FAILED (FATAL - DJAGNOSTIC NOT CONTINUED)/
/CSR BIT YEST FAILED/
/EIR BIT TEST FAILED/

122

EM4LS:

ASCIZ

/ERROR BIT SHOULD NOT BE CLEAR/

101
126
126
122
126
101
126
124
122
116
126
122
114
122
122
122
101
101
101
101
061
061

116
122
101
061
120
122
122
1064

125

106

117
116
123
122
055
125
123
104

16:08

123
116
061
111
111
111
111
123
126
123
126
122
122
122

125
123
122
122
130
103
101
101

101

02-NOV-81

126

117
105
122
061
116
114
122
122

EM17:
EM20:
EM21:
EM22:
EM23:
EM24:
EM25:
EM26:
EM27:
EM30:
EM31:
EM32:
EM33:
EM34:
EM35:
EM36:
EM37:
EM4O:
EM41:
EM42:
EM43:
EM44:

ASCIZ
ASCIZ
ASCIZ
ASCIZ
_ASCIZ
ASCIZ
_ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
_ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
_ASCIZ
ASCIZ
ASCIZ
ASCIZ

EMéL6:
EM47:
EM50:
EM51:
EM52:
EM53:
EM54:
EM55:

ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
ASCIZ
.ASCIZ

EM57:

_ASCIZ

EM56:
EM60:
EM61:
EM62:
EM63:
EM65:
EM66:
EM202:
EM211:

.ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

/READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR/
/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 0 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 A5 EXPECTED/
/BDR IS NOT CLEAR/
/ALL BDR BITS ARE NOT SET/
/BDR FAILS TO HOLD A BIT PATTERN/
/BDR 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/
/FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE/
/CSR 1S WRONG/
/TRANSFERS SHOULD HAVE BEEN INHIBITED/
/DR11 SHOULD NOT HAVE INTERRUPTED A SECOND TIME/
/EXPECTED INTERRUPT DID NOT OCCUR/
/WCR NOT EQUAL TO ZERO/
/BAR IS WRONG/
/BAD DATA IN BDR/

/DATA NOT TRANSFERED CORRECTLY/
/BUFFER DATA NOT CORRECT/

/TOO MANY WORDS WERE TRANSFERED/
/UNEXPECTED TRAP OR INTERRUPT TO TRAF ADDRESS BELOW/
/CSR AND-OR WCR AND-OR BAR ARE INCORECT/
/DR11 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/

SEQUENCE

163

CZDRLDO-DR11 GEN NPR INTF(C

MACRO M1113

DATA HEADERS

6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354

6355
6356
6357
6358
6359
6360
6361
6362
6363

052446
052664
052503
052544
052613
052657
052726
052772
053046
053075
053161
053210
053274

053350
053424
053500
053554
053620
053717
053776
054054
054143

6364 054172
6365
6366
6367
6368
6369
6370

054241
054312
054372
054421
054470
054527

6371 054576

6372 054645
6373 054724
6374 055010
6375 055064
g%;g 055130

105
124
124
124
124
124
124
124
040
124
040
124
124

124
124
124
124
124
124
040
124
040

124

130
105
105
105
105
105
105
105
040
105
040
105
105

105
105
105
105
105
105
040
105
040

1065

124
124
103
124
124
124

105
105
123
105
105
105

124
124
124
124
124

105
105
105
105
105

1264

105

120
123
123
123
123
123
123
123
040
123
040
123
123

123
123
123
123
123
123
040
123
040

123

(02-NCV-81

DH1:
DH2:
DH3DH4:
DHS:
DH6:
DH7:
DH14:
DH16:
DH17:
DH23:
DH26:
DH34:
DH43:
DH50:
DH56:
DH57:
DH60:

.SBTTL
LASCI1
CASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
_ASCII
.ASCIZ
.ASCII
LASCIZ
.ASC!Z

.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCIZ
.ASCII

LASCIZ

123
123
122
123
123
123

DH61:
DH62:
DH63:
DH64:
DH65:

.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

123
123
123
123
123

DH202:
DH203:
DH207:
DH210:
DH211:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.23%#1

123

DH66:

.ASCIZ

16:08

113

PAGE 144

SEQUENCE

164

DATA HEADERS
/EXPCTD RECVD/<CRLF>
/TEST #
TEST #/
/TEST # ERR PC ABRTPC REGISTER/
/TEST # ERR PC EXPMOD ACTMOD CSRADR/
/TEST # ERR PC WCRADR WCRCONTENTS/
/TEST # ERR PC BARADR BAREXP BARRCV/
/TEST # ERR PC BDRADR BDRCONTENTS/
/TEST # ERR PC
(SRADR C(SREXP (CSRCONTENTS/
/
BIT(S)/<CRLF>
/TEST # ERR PC
TESTED
C(SRADR
(SREXP (CSRCONTENTS/
/
BIT(S)/<(RLF>
/TEST # ERR PC
TESTED EIRADR EIREXP EIRCONTENTS/
/TEST # ERR PC
(CSRADR
(CSREXP (SRCONTENTS/
/TEST
/TEST
/TEST
/TEST
/TEST
/TEST
/
/TEST
/

#
#
#
#
#
#

ERR
ERR
ERR
ERR
ERR
ERR

PC
PC
PC
PC
PC
PC

ERR PC

/TEST #

ERR PC

WCRADR W(REXP WCRCONTENTS/
BARADR BAREXP BARCONTENTS/
BDRADR BDREXP BDRCONTENTS/
(C°S2ADR
(SRCONTENTS/
W(RADR WCREXP WCRRCYV BARADR BAREXP BARRCV/
NPRIAD
NPRIEX
NPRIRC
(SRADR/
CHECK
CHECK
INPUT
INPUT/<CRLF>
BUFADR BUFDAT BUFADR BUFDAT
(SRADR/
DIDNOT/<CRLF>

EXPECT

/TEST #
/TEST #
/CSRRCV
/TEST #
/TEST #
/TEST #

ERR PC
ERR PC
BAREXP
ERR PC
ERR PC
ERR PC

WCRADR
WCRADR
BARRCV/
EXPLVL
EXPLVL
(CSRADR

/TEST
/TEST
/TEST
/TEST
+/TEST

ERR
ERR
ERR
ERR
ERR

(SRADR
(CSRADR
PATERN
WCRADR
WCRADR

/TEST #
#
#
#
#
#

ERR PC
PC
PC
PC
PC
PC

PATERN

ADRESS

OLDPC
WCREXP

(SRADR/

TRAP ADR/
WCRRCV
(SREXP

RCVLVL
CSRADR/
(SRADR/
EIREXP EIRRCV/

(SRADR

(CSRRCV/

PATLDD
CSREXP (C3RRCV/
PATERN CSREXP_CSRCONTENTS/
(SRADR
CSRCONTENTS/
WCRCONTENTS/
WCREXP WCRRCV BDREXP BDRRCV

BAREXF

BARR(CV/

CZDRLDO-DR11 GEN NPR INTFC

DATA TABLES

MACRO M1113

(02-NOV-81 16:08

J 13
PAGE 145

6378
6379 0552640
6380 0552646
6381 055260
6382 055274
6383 055306
6384 055322
6385 055334
6386 055350
6387 055366
6388 055404
6389 055420
6390 055434
6391 055450
6392 055464
6393 055476
6394 055520

.
00136¢
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414
001414

001414
001316
001316
001316
001316
001316
001316
001316
001316
0013'6
001316
001316
001316
001316
001316
001316

000000
002672
001362
002516
002520
002524
002522
002536
002536
002522
002516
002520
002524
002522
002516
002606

.SBTTL
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
_WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD

DATA TABLES
$TMP1,STESIN,O
STESTN,SERRPC,OLOPC1,DREG,0
STESTN,SERRPC,$TMP1,BORW,CSR,0
STESTN,SERRPC,WCR,RWCR,0
STESTN,SERRP(C,BAR,EBAR,RBAR,0
STESTN,SERRPC,BDR,RBDR,0
STESTN,SERRPC,CSR,ECSR,RCSR,0
STESTN,SERRP(C,BUT,CSR,ECSR,RCSR,O
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,0
STESTN.SERRPC.ANPR1,ENPR1,NPR1,(SR.0

6396 055556
6397 055572
6398 055606
6399 055632
6400 055646
6401 055660
6402 055674
6403 055710
6404 055726

001414
001414
001414
001414
001414
001414
001414
001414
001414

001316
001316
001316
001316
001316
001316
001316
001316
001316

001364
002516
002516
002552
001362
002522
002604
002522
002522

DT60:
DT61:
DT62:
DT63:
DT64:
DT65:
DTS86:
DT202:
DT203:

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

STESTN,SERRPC,$TMP2,$TMP3,(SR,0
STESTN.SERRPC.WCR,OLDPC2,BDVECT,0
STESTN,SERRPC,WCR,EWCR,RWCR,ECSR,RCSR,EBAR,RBAR,O
STESTN,SERRPC,DRLEV,LEVEL,CSR,0
STESTN,SERRPC,$TMP1,(SR,0
STESTN,SERRPC,CSR,EEIR,REIR,O
STESTN,SERRPC,ENPR1,CSR,RCSR,0
STESTN,SERRPC,CSR,BUT,ECSR,RCSR,0
STESTN,SERRPC,CSR,$TMPO,ECSR,RCSR,0

6395 055536

6405 0557644

6406 055760
6407 055772

001414

001414
001414

001316

001370

001362

002516
002516

DIS57:

DT207:

DT210:
DT211:

.WORD

STESTN.SERRPC.STMP4.STMP?.STHPs $TMP3, (SR, 0

STESTN,SERRPC,$TMP1,(CSR_RCSR,0

STESTN,SERRPC,WCR,RW(CR,0

STESTN,SERRPC,WCR,EWCR,RWCR,EBDR,RBDR,EBAR,RBAR,O

SEQUENCE

165

NN = OO0 00

02-NOV-81

.SBTTL
UBHANG: TYPE

NN ARRR NS

INTF(

CZDRLDO-DR11 GEN NPR
BUS HANG ROUTINE

MACRO M1113

.BYTE

TYPE
MoV
MOV
TYPDE
TYPE
HALT
JMP

o
o
o
o

—-—

D00 ~NONN

MOV
TYPOC
TYPE
MOV
TYPOS

6422 056070
6423 056074
64264 056104
6425
6426

011420
000000

000001

1727777

177777

NOCARE:

.WORD
.WORD

.END

16:08

K13
PAGE 146

SEQUENCE

BUS HANG ROUTINE
.BARADR
sTYPE:

'DEVICE ADDRESS -

WCR,=(SP)

sPUT DEVICE ADDRESS ON STACK

. TSNUMB
$TESTN,-(SP)

JTYPE:
', TEST NUMBER - '
sPUT TEST NUMBER ON STACK

;GO TYPE IT IN OCTAL

2.0

;GO TYPE IT IN OCTAL
JTYPE 2 DIGITS, LEADING 2ERCS SUPRESSED

$PASS2,~(SP)
$PASS,~(SP)

7MOVE OVERFLOW NUMBER TO THE STA(CK
sPUT PASS NUMBER ON STACK

,PASNUM

.SCRLF

START1

PASS NUMBER -

;GO TYPE IT IN EXTENDED DECIMAL
sTYPE A <CRLF>

sWHOA = YOU GOTTA SERIOUSA PROBLEMA, BUDDY!

=1,<1,-1,-1

;TYPE:

;JUMP TO RESTART PROGRAM
sTAKE

UP SOME

SPACE

(APT HACK)

;LOCATION FOR USE WHENEVER CYCLE BIT OF

CSR IS USED.

THIS

s SHOULD +<ALWAYS* BE THE LAST WORD LOCATION IN THIS DIAGNOSTIC

166

—

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

SYMBOL TABLE

(02-NOV-81 16:08

ABASE = 172410

AUNIT = 000000

BUT

002536

ADDR

CAT

= 157777

ACDW1 = 000000
ACOW2 = 000000
ACPUOP= 000000
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=
ADDW13=
ADDW14=
ADDW15=
ADDW2 =
ADDW3 =
ADDW4 =
ADDWS =
ADDW6 =
ADDW? =
ADDW8 =
ADDW9 =

002646

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

ADEVCT= 000000
ADEVM = 000000
ADLCHR
036700
ADRERR
036532
AENV
= 000000
AENVM = 000000
AFATAL= 000000
AMADR1= 000000
AMADR2= 000000
AMADR3= 000000
AMADR4= 00000C
AMAMS
1= 000000
AMAMS2= 000000
AMAMS 3= (00000
AMAMSSG= 000000
AMSGAD= 000000

AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000

AMTYP3=
AMTYP4=
ANPR1
ANSWER

000000
000000
002606
002664

APASS = 000000
APRIOR= 000000
APTCSU= 000040

APTENV= 000001

APTSI1Z= 000200
APTSPO= 000100

ASIZE
ASK4PR
ASK4VC
ASWREG=
AT
=
ATESTN=

005416
005056
004742
000000
020009
000000

AUSWR = 000000
AVECT1= 000300
AVECTZ2= 000000

BAR
BARADR
BCDONE
BCFIN
BOFAIL
BUOLCR
BOLCRM
BONERR
BONUMB
BDR
BDOVECT
BEGIN
BEGINT
BITTIST
BITO
=
BIT00 =
81701
BIT02
BI1T03
81704
BITO5
BIT06
B1T07
BI1108
BIT09
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15

BIT2
BIT3
BIT4
8175
BIT6
BIT7
BIT8
BIT9
BOARD
BORW

BPINIT

BPT

BPTINT
BPTVCT

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

037405

002520
041554
036477
037440
002666
035712
(37212
036407
006122
002524
002542
011674
012356
002710
000001
000001

000002
000004
000010
000020
000040
000100

000200
000400
001000

000002
002000
004000
010000
020000
040000
100000

= 000004
= 000010
=
=
=
=
=
=

000020
000040

000100
000200
000400
001000
037424
002610
004154

= 000003

BPTVEC=
BRVWPC
BRWAIT
BUFF

004216
000014

000014
(037574
002626
062642

BUFLEN
002622
BUSERR= (00004

L 13
PAGE 146-1

SEQUENCE
cy

= 000400

DSA

DATCHX

003644

DSWR

DH2
DH202
DH203
DH207
DH2i0
DH211
DH23
DH26
DH3
DH34
DHé
DH43
DH5
DH50
DH56
DHS7

052503
054645
054724
055010
055004
055130
053350
053424
052544
053500
052613
053554
052657
053620
053717
053776

CAPNTR
044650
CAPSTK
044652
CARETN= 000015

DAB
= 006000
DAC
= (05000
DATCHK
003526

CATCH
(BITO =
CBITY =
(8IT10=
(BIT11=
(BIT12=
(BIT13=
(BIT14=
(BIT15=
(BIT2 =
CBIT3 =
(BIT6 =
(8ITS =
(BIT6 =
(BIT7 =
(81718 =

006466
177776
177775
175777
173777
167777
157777
137777
077777
177773
177767
177757
177737
177677
177577
177377-

DATCH1
DATCH2
DATOCK
DATOCX
DATOC1
DATOC2
DBC
=
DDISP =
DDW
DEVICE
DEVMSK
DEVPRI
DH1
DH14
DH16
DH17

€GO
=
CHARCT
CHKBFF
CHKBUF
CHKCAB
CIE
=
(KSWR =
CLENUP
(MA
=
CNTLC =

177776
032555
003330
002620
003670
177677
104407
003646
167777
000003

(BIT9 = 176777
(B1513= 057777
ccy
= 177377
(DAB
= 171777
C(DAC
= 172777
CDBC
= 174777
(DSA
= 173777
(DSB
= 175777
C(DSC
= 176777
CDST
= 170777
CEIR
= Q77777
CER
= Q77777
CFNC
= 177761
CF1
=177775
(F2
= 177773
(F3
= 177767

(x6
(x?7

000200
037435
177577
002522

= 177757
=177737

055240
055350
055366
055404
055246
055710
055726
055744
055760
055772
055420
055434
055260
055450
055274
055464

DTS
0750
DT56
D157
DT6
D160
DT61
DT62
DT63
D164
DT6S
DT66
D17
DYWTLT
EBAR
EBDR

055306
055476
055520
055536
055322
055556
055572
055606
055632
055646
055660
055674
055334
006401
002600
002576

EM13

047574

EMIS
EM16

067733
047757

DHO3
DH64
DH6S
DH66

054421
054470
056527
054576
052772
002614
000174

EMI14

DH61
DH62

DOCTS
DOWEPR

CRLF _ =
(RLF2
CRY
=
(SR

= 177570

040676
002572
EDIT
034572
EEIR
002574
EIR
= 100000
EMTVEC= 000030
EMI
047134
EMI0
047445
EM1
047477
EM12
047542

(PSAVE
032654
CR
= 000015

= 137777

= 002009
= 001000
= 007000

052726
054143

037175

(NX

DT1
DT14
DT16
pT17
D12
DT202
DT203
DT207
DT210
DT211
D123
DT26
DT3
D734
DT4
DT43

= 004000

DH6
DH60

DH7
DIOMEM
DISPLA

CNTRLC

003546
003624
003716
004062
003736
004000
003000
177570
002720
037200
002544
040137
052446
053046
053161
053274

DSB8
pSC
DST

DISPRE
DREG
DRGET
DRINV
DRLEV

DRVS
DR1WOB

054241
056312

00134¢

040372
026012

002550
004232
002526
002552
002530
040201

ECELR
ECSR

EM17
EM2
EM20
EM202
EmM21
EM211

047644

050003
047162
050072
052347
050140
052377

167

MACRO M1113

EM22
EM23
EM24
EM25
EM26
EM27
Em3
EM30
EmM3
EM32
Em33
EM34
EM3S
EM36

050210
050251
050320
05035
050402
050441
047216
050476
050534
050600
050621
050652
050712
050773

EWCR
EXPAND
FIXTBL
FLAG
FNC
=
FNCCNT
F1
=
F2
=
F3
=
GO
=
GOAGIN
GTSWR =
HAKTPM
HEADER

002602
027516
003170
002652
000016
002654
000002
000004
000010
000001
026344
104406
032174
040452

M1A
N
NO
NOBD
NOBUT
NOCARE
NODATA
NODVPR
NOMORE
NOTST
NOTVEC
NPR1
NX
=
NXTTST

041421
037422
037411
006207
037535
056104
036311
041151
040775
006335
005017
002612
060000
002554

RDOCT = 104412
RDYCHK 002632
READ
002722
REGADR 002416
REINIT 012556
REIR
002562
RESVEC= 000010
RSTRT
026364
RWCR
002570
RY
= 000200
R6
=%000006
R7
=%900007
SCOPE = 000004
SDADRS
040306

w9
=
TABINX
TBITVE=
TIME
TkB
TKS
TKVEC =
TMOPSW=
TORNCB
TOVECT=
P8
TPS
TPVEC =
TRAPVE=

001000
002546
000014
002660
002636
002634
000060
000006
040051
000004
002642
002640
000064
000034

EMLS

051213

INDEV

006124

0LDPS2

002700

SPACE3

TST1

012606

SYMBOL 1ABLE

EM37
EM4
EMLO
EM4T
EML2

051023
047264
051061
051111
051157

EML4

051244

EM4LS

051314

EMLO
EML?
EMS
EM50
EMS1
EMS2

EM53
EM54
EMSS

EM57
EM6

EM66
EM7
ENDEV
ENDSTK
ENPR1
EOPLGC
EOPRSM
ER

N
=
OFL
OLOPC1
OLDPC2
OLDPS1
QUTORG

000400
002702
002672
002676
002674
004762

OUTRAN

006255

KIPDR2= 172304
LENCHK
002624
LETNCR 037173

PFECHZ
PFECH3
PFECH4

033562
033612
033622

LEVEL

002540

LEVEL4=
LEVELS5=
LEVEL6=
LEVEL7=
LF
=

000200
000240
000300
000340
000012

000020
172364
172324
172340
172344
172300

MBD

034230

LEVELS 004732
LEVEL3= 000140

052304
047377
025622
047132
002604
002706
032504

LODBUF
LOOP
LRGSTC
MA
=
MAICLR
MAISET
MANSIZ

003126
(036173
004064
002714
104000
000004
002274
000033
037064
036350

MBDIAL
MEMGMT
MEPITM
MESSAG
MMPS
=
MMRO =
MMVECT=
MSG
MUSTED
M1

= 100000

16:08

003356

051714

052002
052041
052124
052173
052233

ERCAPT
ERCHDR
ERRCHK
ERRCNT
ERROR =
ERRVEC=
ER200
ESC
=
ESCAPE
ETDEV

INTA

022606

I0TVEC=
KDPAR2=
KOPDR2=
KIPARQ=
KIPAR2=
KIPDRO=

051752
047346

EM60
EM6T
EM62
EM63
EM6S

INOOUT

000011
033224
000100
002616
002656

051352
051427
047315
051444
051511
051570

051631
051657
051674

EM56

HT
=
IBSAVE
IE
=
INBUF
INBUF1

(02-NOV-81

M3
PAGE 146-2

CZDRLDO-DR11 GEN NPR INTF(

003302
002662
002704
010000
007220
010220
002670
040643
002712
033514
002650
000252
177572
000250
002644
037072
041302

PASCNT
PASNUM
PATCHS
PATRNS
PFECH
PFECHI

PIRQ

002556
041617
011220
007202
033516
033526

= 177772

PIRQVE= 000240
PNTPRI
006560
PREOP
PROMPT
PROUT
PRO
=
PR1
=

026010
034244
005107
000000
000040

PSTATE

006536

PRZ
PR3
PR¢
PRS
PRG
PR7
PS

=
=
=
=
=
=
=

PSW
=
PWRVEC=
QTYBRD
RA
=
RBAR
RBDR
RCSR
RDCHR =
RDDEC =
RDLIN =

000100
000140
000200
000240
000300
000340
177776

177776
000024
002414
002416
002566
002564
002560
104410
104413
104411

SEQUENCE

SDRINV
SDRVS
SETTUP
SPACEC
SPACES

002532
002534
006610
037400
9037352

SPACE6

037361

037355

SPACE7

STACK =
STAD
STAGIN
START
STARTT
STKIFL

037370

001300
006142
000210
011424
011420
036120

STKLMT= 177774
SVADRS 040252
SWR
001340
SWREG

000176

sW0
SW00

= 000001
= 000001

Sw06
Sw07
SW08
Sw09
sSwi:
Sw10
SWwil

=
=
=
=
=
=
=

000100
000200
000400
001000
000002
002000
004000

=
=
=
=
=
=
=
=
=
=

020000
040000
100000
000004
000010
000020
000040
000100
000200
000400

Sw01
sWw02
SWw03
Swo4
SWw05

swi2

SW13
Swi4
SWw15
sw2
sw3
SW4e
SWS
swé
sWwZ7
Sw8

=
=
=
=
=

000002
000004
000010
000020
000040

= 010000

TRTVEC=
TSNUMB
TSTCOM
TSTDEV
TSTMM
TST10

TST11

TST12
TST13
TST14
TST15
TST16
TST17

TST2
TST20
TST21
1ST122
1ST23
TST24
TST25
TST26
TST27
TST3
TST30
TST31
TST32
1ST33
TST34
TST35
TST36
1S137
TST4
TST40 =
TSTS
TSTé
1ST7
TWO
TYPCNF
TYPDE =
TYPDS =

000014
041576
040341
012370
007066
015112

015346

015532
015716
016102
016272
016524
016762

013004
017360
017764
020300
020576
021334
021636
022126
022404
013134
022622
023110
023240
023620
024124
024506
025004
025320
013466
025622
014172
014366
014734
037420
005142
104414
104405

TYPE
= 104401
TYPOC = 104402

168

MACRO M1113

TYPON = 104404
TYPOS = 104403

$DBLK
$ODWO

027504
001474

SETEND
$FATAL

001534
001412

SMTYPZ2
SMTYP3

WCLEN
WCR
XCHKBU
XINBUF

$DDW2
$0DW3
$DDW4
$OOWS

001500
001502
007504
001506

$GTSWR
$HD
=
$HIBTS
$HIOCT

030064
000000
001000
031110

$PASS
$PASS2
$PASTM
SPOWER

SYMBOL TABLE

UBHANG
UCAL
VA
=
VCLCHR
VECADR
VECERR
W

056016
037511
002456
037003
002456
036617
037407

$DDOW1
$ODW10
$DDW11
$ODW12
$DOW13
$DDW14
$DDWIS

002630
002516
043646
042644

= 000020

X7
=
YES
$APTHD
SATYC
$ATY1
SATY3

PATYSL
$AUTOB
$BASE
$BDADR
$BDDAT
$BELL
$COW1
$COW2
$CHARC
$CKSWR
$CMTAG
$CM3
=
$CM4
=
SCNTLG
SCNTLU
$CPUOP
$CRLF

$OOW6

000040
037414
001000
033652
033626
033634

$DDW7
$DDW8
$DDW9
$DEVCT
$DEVM
$DOAGN

033644
001334
001464
001322
001326
001400
001470
001472
026736
027764
001300
00000C
000007
030544
030537
001436
001405

056106
000000
ERRORS DETECTED:

$DTBL
$ENDAD
S$ENDCT
SENULL
$ENV
SENVM
$EOP
$EOPCT
$ERFLG
$ERMAX
$ERROR
SERRPC
$ERRTB
$ERRTY
SERTTL
$ESCAP
$ETABL

. ABS.

02-NOV-81 16:08

N13
PAGE 146-3

CZDRLDO-DR11 GEN NPR INTFC

001476
001520
001522
001524
001526
001530
001532

$FFLG
SFILLC
$FILLS
$GDADR
$GDDAT
$GET
$GET42

001510

$SICNT

001512
001514
001516
001420
001466
026334

027476
026324
026102
026340
00143C
001431
026046
026074
001303
001315
032656
001316
001534
(033226
001312
001376
001430

$INTAG
SITEMB
SLF
SLFLG
SLPADR
SLPERR
3

$HMADR1
SMADR?
$MADR3
$MADRSG
SMAIL
$MAMST
SMAMS?
$MAMS3
SMAMSS
$MBADR
SMFLG
SMNEW
SMSGAD
$MSGLG
$MSGTY
SMSWR
SMTYP1

000
001

VIRTUAL MEMORY USED:
57064 WORDS
( 223 PAGES)
DYNAMIC MEMORY:
20034 WORDS
( 77 PAGES)
ELAPSED TIME:
00:11:33

CZDRLD.BIN,CZDRLD/CR/=SP/NL
: TOC=CZDRLD.MLB/ML ,CZDRLD.P11

034072
001356
001355
001320
001324
026310
026314

001304

001335
001314
001406
034071
001306
001310

001442
001446
001452
001456
001410
001440
001444
001450
001454
001002
034070
030562
001424
001426
001410
030551
001441

SEQUENCE
001445
001451

$TMP2
$TMP3

001364
001366

001416
002716
001006
034162

$TRAP
$TRAP2
$TRP
=
$TRPAD

031112
031134
000015
031146

SMTYP4
SNULL
SNUMS
SNWTST=
SOCNT
$OMODE
SOVER

001455
001354
027752
000001
027164
027166
032160

SPWRDN

034074

$PWRUP
$QUES
$RDCHR
SRDDEC
SROLIN
$RDOCT

$RDSZ =
SRTNAD
$SCOPE
$SETUP=
$STUP =
$SVLAD
$SVPC =
$SWR
=
$SWREG
$SWRMK=
$SWOBT
S$STESTN
$7K8
$TKS
$TMPO
$TMP1

034112
001404
030302
030574
030422
030752

000007
026336
031200
000137
177777
032124
001000
163400
001432
000200
032556
001414
001346
001344
001360
001362

$TMP4
$TMPS
$TMP6
$IN
=
$7PB
$STPFLG
$TPS

$TSTM

$TSTNM
STTYIN
$TYPD
S$STYPDE
$TYPDS
STYPE

STYPEC
STYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT1
SVECT2
$XTSTR
$$GET4=
$$5W08=
SOFILL
. SAV
.$X
=

001370
001372
001374
000040
001352
001357
001350

001004

001302
030530
027204
027170
027200
026374

026606
026740
026766
027002
026742
001422
001010
001434
001400
001462
031640
000000
000040
027165
041640
001000

169

CZDRLD

CREATED BY

ON 2-NOV-81 AT 16:13

PAGE

8 14

170
SEQUENCE
EF
<R
vol

AoOLOVOo~A—NoAWlMAnkNOReelN—~meFMARONVYRAVNOoMAiNDkRAVoNAk0AoDNRA0N8A0RoGlNOoAGlONoGlROARGOR4NOXGOoIGyOAIRRGOAGROoNGl0M*K)NNW*\AaNAt0adA0eNtANeGtAONeGVNtGNOAGtOAMAelANeA4k0NeGlNOeNGlONo8ADNo8M0XA4ONoAI0NXGODoG0AONGA0Xa0N2G0=«—)[TV

SYMBOL CROSS REFERENCE

MACRO

(%]

b~-l

N<VSIOM—Uw=2ONI EWONANANRARNANAAAAAANONMNAMANNANAAAMAAAMANNMNNWNO-NO BoeaMSlLaWL]IN.l..Ykoll[oseb°)lad*t"g=-avdktLl1s"damo~(Ne=O3 L.LUal]

VoX-k—l No—O

—MO
4 1720 [a¥

rO—A4Lalals MmotO 0 O=— M ~ MmolO 0

—O
MO

U LAl

MNOOO30< MUoal
-

63-3640

140-6013
140-6090
160-6157

63-3642

140-6015
160-6092
140-6159

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VA LUE
APTSIZ
000200
APTSPO
000100
ASIZE
005416
ASWREG
AT
ATESTN
T
AUNI
AUSWR
AVECT1

AVECT?
B
BAR

005056
004742
002000
020000

81-4264
123-5909

#77-4105

#117-5930
1;7-5930

BDVECT
BEGIN
BEGINI
BITTST

002542
011674
012356
002710
000001

200001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000

SEQUENCE

C 14

171
Vo1

#137-5930

96-4902

000300
200000
037405
002520

041554
036477
037440
002666
035712
037212
036407
006122
002524

BITOO
BITO1
BIT02
BITO3
8IT04
BITOS
BIT06
BITO7
BITO8
BIT09
8IT1
BIT10
BITI

REFERENCES

PAGE 2

CREF

000000
000000
000000

BARADR
BCDONE
BCFIN
BDFAIL
BDLCR
BDLCRM
BDNERR
BDNUMB
BOR

BITO

ON 2-NOV-81 AT 16:13

96-4906

96-4908

96-4910

96-4913

89-4599

9 1-4662
9 4-4840

92-4718
94-4847
109-5406
117-5719

92-4719
94-4848
110-5444
118-5745

77-4186
92-4734
94-4818
115-5622
145-639

*77-4188

104-5157

52-3178
#142-6236

89-4598
93-4781
107-5324
115-5620
145-6393

94-4839
107-5339
116-5647

1 08-5369
117-5694

92-4727
105-5207
114-5570
120-5828

#141-61 7
#142-62 3
#142-6 1
2

ASK4PR
ASK4V(

MACRO

*®

CZDRLD

w7741 6
89-460 2
94-4810
107-5297

*77-4136

89-4603
94-4811

119-5810
*78-4216

87-4429
88-4458
79-4233
75-3957

82-4284
95-4877

140-6099

43-3049
4£3-3049
4£3-3049
43-3049
43-3049
43-3049
63-3049
43-3049
43-3049

98-4947

145-6397
'140-6081
75-4005

87-4422
95-4880
141-6181
133-5924

88-4539
*140-6125
75-4007
88-4497
96-4889
133-5924

92-4739
100-5004
116-5648

88-4541

122-5908

88-4532

100-5000

94-4842
1115479

135-5926

*1460-6148
76-4054

#77-4201
92-4740
100-5005
116-5671

92-4763
100-5012
117-5696

76-4067

93-4774
100~5013
118-5746

77-4182
95-4870
139-5960

133-5924
133-592¢4
76-4075

82-4289

88-4501

111-5494

139-5968

160-6125

140-6144

90-4622
994972

91-4643
100-4999

92-4699
101-5025

93-477
102-5058

94-4804
103-5092

95-4864

96-4888
105-5203

133-5924

1064~5148

CREATED BY

CZDRLD

MACRO

ON 2-NOV-81 AT 16:13

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

BIT1Z2

= 010000

BIT14
BIT1S

= 040000
= 100000

BIT13

BIT2

= 000004

BIT3
BIT4
BITS
BIT6
BIT7
BIT8
81T9
BOARD
BORW
BPINIT
BPT
BPTINT
BPTVCT
BPTVEC
BRVWP(
BRWAIT
BUFF
BUFLEN

=
=
=
=
=
=
=

BUSERR
BUT
CAPNTR
CAPSTK
CARETN
CAT
CATCH
CBITO
(BITY
CBITI10

= 000004
002536
044650
044652
= 000015
= 157777
006466
= 177776
= 177775
= 175777

CBIT12
(BIT'?
(BIT14
BIT15
BIT2

=
=
=
=
=

CBIT11

(BIT3
(BIT4
(BI1S
BIT6
CBIT?
(BIT8
(BIT9_
(81513

71-3829
140-6168

000100

874424

000200
000400
001000
037424

037574
002626
042642
002622

= 173777
167777
157777
137777
077777
177773
= 177767
= 177757
= 177737
= 177677
= 177577
= 177377
= 174777
= 057777

109-5402
119-5778
7746166

77-4191

75-4021

113-5522

114-5568

115-5588

82-4292

88-4505

91-4646

112-5512

111-5478

133-5924

000010
000020
900040

002610
006154
= 000003
006216
000014
= 000014

D 14

SEQUENCE
172
CREF
vO1

108-5360
118-5738
77-4112

= 020000

PAGE 3

#47-3142
74-3905
#48-3150
#43-3049
76-4052
#61-3561
#142-6277
#61-3559
*107-5290

*120-5823

#43-3050
#61-3531

*48-3171
48-3171

111-5498
924714
#142-6244
«90-4625
77-4105
74-3912
#74-3920
75-3938

136-5928
111-5500

92-4731

92-4744

111-5502

111-5504
94-4822

94-4837

944852

135-5926

*90-4426

90-4633

95-4865

100-5000

111-5479

145-6381

*75-3939

«75-3946

*75-3996

67-3730

68-3751

69-3805
*118-5740

72-3861
118-5742

88-4569
87-4415

#1462-6249

66-3714

107-5291

120-5825
*89-4595
*71-3832

*108-5363

133-5924

*89-4615
*91-4677
64~3669
133-5924

#78-4215
99-4626
111-5488

90-4628
111-5490

64-3667

63-3654

96-4901

140-6015

108-5364

+95-4868

*64-3674

133-5924
140-6041

68-3752

*116-5643

106-5248
119-5783
145-6403
*133-5924

#142-6282

140-6136

140-6159

037435

177577
002522

99-4986

97-4928

98-4953

99-4978

63-3623

*63-3624

+88-4568

*133-5924

+123-5909
*127-5915
*133-5924

*123-5909
*127-5915
133-5924

101-5033

102-5064

103-5108

140-6065

140-6092

140-6111

140-6134

140-6157

*133-5924

#134-5924

135-5926

*135-5926

135-5926

75-4036

77-4204

77-4205
96-4888

77-4206

89-4593

90-4622
99-4972
108-5360
118-5738
133-5924
142-6215

95-4867

91-4664
92-4762
95-4869

96-4905

96-4914

133-592¢4
88-4570
107-5288
120-5821

135-5926
91-4644
108-5361
141-6202

135-5926
94-4805
109-5403

94-4857
110-5442

63-3628

140-6013

140-6035

*133-5924

133-5924

123-5909
75-4033

123-5909

92-4758

#142-6228

69-3791

75-4034

93-4771
102-5058

111-5478
123-5909
138-5932
142-6216
142-6245
142-6250
142-6259
142-6265
144-6342

90-4625
92-4716
93-4785

94-4804
103-5092

113-5522
123-5909
138-5932
142-6216
142-6246
142-6251
142-6260
142-6265
144-6350

93-4787

67-3729

fiflvhflvqflvmuuvv
]
]
UL

127-5915
+133-5924
#133-5924
108-5367

68-3754
92-4701

*121-5900
*127-5915

123-5909
*133-5924
*133-5924
1075294

b -—

*123-5909
*133-5924
133-5924
106-5251

105-5230

)

000015
000200

#45-3099
133-592¢4
136-5928
#43-3049
#43-3049
91-4643
100-4999

98-4961

ooononONONO
WY win
WRINLALNI
NN hod
O WN
[+ Yo X
QW T,V ol
]o
=2 NN
S~ W

CRLF?2

CRY
(SR

137777
032654

63-3630

97-4936

(R
CRLF

000003
037175

63-3621

*123-5909
133-5924
133-5924
#67-3729
#61-3558
#71-3829
#45-3087
#132-5921
#70-3817
105-5206
119-5779
#45-3097
#47-3129

vO1

167777

#45-3093
#45-3094
#45-3095
#45-3092
#45-3091
#45-3090
#45-3096
#65-3100
#45-3101
#45-3084
#45-3081
#45-3082
#45-3083
#45-3080

173

CMA
CNTLC
CNTRLC
CNX
CPSAVE

177677
104407
003646

REF

003330
002620
003670

SEQUENCE

REFERENCES
#45-3089

E 14

PAGE &

F
CHKBF
UF
CHKB
CHKCAB
CIE
CKSWR
CLENUP

ON 2-NOV-81 AT 16:13

SYMBOL CROSS REFERENCE
SYMBOL
ccy
(DAB
CDAC
co8c
CDSA
(DSB8
(DSC
CoST
CEIR
077777
CER
027277
177761
CFNC
177775
CF1
177773
CF2
177767
CF3
177776
€GO
CHARCT
032555

MACRC

DS
N— o

CREATED BY

—

CZDRLD

70-3818

9i-4654
92-4717
93-4791

89-4600

94~4824

89-4601

92-4700
93-4772
95-4875

[

DAB

DAC
DATCHK

DATCHX

DATCH1
DATCH2

DATOCK
DATOCX

DATOC1
DATOC?

002720

DEVICE
DEVMSK

337202
002544

DEVPRI
DH1
DH14
DH16

040137

DH2

DH202
DH203
DH207
DH210

96-4893
97-4932
99-4975
101-5038
102-5082
104-5157
105-5216
107-5302
108-5362
109-5420
111-5483
115-5597
116-5663
118-5739
119-5800
+141-6195
145-6392

82-4278

91-4668

107-5311

108-5393

106-5279
120-5852

107-5313

118-5771

120-5854

108-5378
120-5836

96-4899

96-4909

100-5002
VO N N0 O WWNONNION
OV OISO
= = — 000

96-4892
97-6925
99-4974
101-5029
102-5081
1064~5156
105-5214
106~526%
107-5353
109-5414
111-5482
114-5572
116=-5661
117-5708
119-5794
120-5845
145-6388
145-6403

006000
005000
003526
003644
003546
003624
003716
004062
003736

DBC
DDISP
DDW

DH17

] \h\hOOVOW?O\IObWN—'
!
]

D el e mad
D
D
d wd e e cd
D d e

cx7

177757
177737
000400

PAGE 5

174
SEQUENCE
vO1
CREF

N=NON

95-4876
97-4923
98-495

ON 2-NOV-81 AT 16:13

REFERENCES

BNt
=2 2 O OO0O0O0OO00O

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

CREATED BY

oA AN
o Vi
N oo NNOWNES
S NN =2 =200
o &H Q0 O W NON =2 (N0 CON) ~INJ 0D
o N O OWNIE
=2 NN

CZDRLD

145-6404

109-5414
141-6205

91-4670
113-5543

91-4680
113-5545

91-4682
115-5604

76-4075

79-4233
112-5512

80-4245
*139-5949

106-5261
117-5698

108-5395

#72-3874

81-4264

#62-3601

*88-4565

139-5960
141-6198
#61-3534
*141-6192
140-6101
#144-6342

54-3240
54~-3254
54-3261
56-3343
53-3181
59-3453

#144-6373
#1464-6374

59-3477

*88-4532

71-3829
90-4627
139-5974

+76-4066
91-4646
+140-6080

76-4067
96-4889
*140-6102

*140-6124

76-4081
111-5489
*140-6147

88-4534

88-4536

*88-4546

*88-4551

*141-€181

161-6185

161-6187

55-3278
60-3500

55-3284
#144-6354

55-3296

55-3302

56-3331

56-3337

103-5094

#1462-6253

543247

#144-6350

54-3267
56-3361

56-3273
56-3367

#144-6352
#144-6344
#144-6372
#144-6375

O[O="Ca0NlO"Ra1N"0aM1O-"a—1I"raM"—alv"O=sr}Ut9aall0tOalsN’6al~’5alleW’Nallo8’alle1’ral—le0’Oall

[DY2OIOOoOrOe—|MM—erNOURONeMeI—2B0NeP—O—eOTMIeOO—MWNe=OMONOIVIeLO—ONMN~OMAINUOMVNNIMAFOeIUMN—LINLIrGAVD1G—ODI—OOLI0~O0habo~e[0l5-—M—"MY)yNu~M7OoA2mal1iM,7INe2nOl1m7enO2AlM1NNeM0(lVIow
TwNOoNMII0oNOA3MTINNPMONOOMeenDMOOON("OalNO="W—MaMDl2’2NOalNNNn1’AVOalMo’NIlOaOlA’NWnIaNlR’NIDTaN).—nAT-n2NUJNOM-aO=2NAll’WN=aNnlNI]N’CWaO=lNl’oNOOaInl\’OgNNTaliNW’MMaNNOlne’elaOAlaoG’lNE—a0a)NNN-ON—IYONN—EoeP~FOONENOOTOMVOT0NTOV30OONSrMrOZr4(MAN=NAMrNO=—OM0A=0N0WIWT
OOO MO M I
—TOSMVM2WaeOLUULlNOaW—NlAO0OL’VGNA=NOlII’ON—aMSINl0T"AOINaOlNU—MO"NaIJ0Ol0F"NVNa0—0UONO lID"NOaNONO l0DOOOOa-—eWONU]VLtlvWVrMaMLIlWN-NvaNOOlADo—OlMNNoONVNUWOOoIlMUFNaolNOLOA0-O=Nl~BWLMO OQW~g|IU [oOV
golLUXL L -U LU

hnunit >
SYMBOL CROSS REFERENCE

MACRO
ON 2-NOV~81 AT 16:13

O
r
0
M
=
N
—
M
I
W
L
U
1
"
R
I
A
[
S
]
—
a
0
aNWSOePNA~SOVN tAMmigIR[L2NU]imlt4mMmv [Y=MOl-osNITRDN—]VlAMDNONO\RON MORO~W2VNEAWN0NIWVWOAWIN

SEQUENCE

PAGE 6

CREF

B*®- RL

O 0NN N OM WON O

CREATED BY

JTO O O—w—N OCO 0O0O0r r O
O O TMrme—N O 0O0O0O 0Ore—r— ¥

CZDRLD

G 14

175

v01

DT34
DT4

DT43
DTS
DT50
D156
DT57

DT6

DT60
D161
D162
DT63
D164
DT65
DT66
D17

W NN N NN D

H 14

SEQUENCE
176
CREF
vO1

#1465-6386

54-3274
56-3368

55-3279
60-3501

59-3460

59-3484

#145-6390

55-3327

57-3397
54-3223
56-3380
54-3235

59-3472
#145-6382
57-3385
55-3291

55-3285

#145- 6388

55-3297

55-3303

56-3332

56-3338

#145-6406
#145-6407
#145-6389
#145-6381

#145-6395

404
e

#145-6391

#145-6392
#145-6383

55-3315

#145-6384

68=3770

+92-4723

*92-4754

115-5626

*93-4783
*117-5723

*94-4841
145-6383

*9L-4842
145-6390

94-4843
145-6393

+100-5008

+100-5011

*100-5016

*115-5623

115-5628

*116-5674

*119-5813

v68-3764
82-4287
2934786

*68-3765
+91-4659
93-4788
+98-4959
+99-4989
«=104-5172
+«110-5468

+71-3831
91-4666
2954873
*97-4934
*98-4964
*1015032
04~ 5195

140-6018

140-6034

+73-3888
91-4672
*96-4896
97-4935
*98-4965
*102-5063
*105-5233
*113-5540
145-6398

+73-3889
*91-4674
*96~4904
*97-4939
99-4976
«102-5065
*105-5234
113-5541
145-640.

*73-3890

*98-4955
99-4985
*106=-5171
£109-5433

68-3768
*91-4665
2954872
*97-4930
98-4960

*111-5502

145-6387

617

002576

ECELR
ECSR

040676
002572

*68-3762

*114-5579
145-6407
*94-4815

145-6407

2974926

*98-4951
*99-4980

103-51C9

034572
002574

100000
000030
047134
047445

047477

*107-5337
*113-5551
139-5993
#61-3548
#44-3076
#63-3049
#143-628%

53-321¢
54=-3221

t114-5580

*114=-5574
75-4000

*81-4264

#143-6293
#143-6294

*95-4£880
90-4624

2814264

+115-5621

97-4927

145-6385

*99-4990
*104-5194
1 - 5469
*110
A
145-6
386

*111=-5497

111-5498

95-4875

100-5
00-59010

13-5
45-6
11-5
11-5

EBDR

#145-6385
#77-4207

v
o
o

002600

EMI10
EM11

PAGE 7

#145-6400
#145-6401

DYWTLT
EBAR

EDIT
EEIR
EIR
EMTVEC
EM

16:13

478
496

NN NN NN N N NN N NN
NN
= N = NS

DT3

5
5
S
5
5
5
5

ON 2-NOV-81

NVNVWNOO‘WOWML{INO‘OO‘*J\OWObl\b‘"
[ IRV, 1V, ]
rrm
|
I
I
I )

DT202
07203
01207
DT210
DT211
D123
DT26

OCOO0OO0O0OO0O0

D117

AValVA1V,
IV, 1V, [V U, BV, IV, ]

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
DT14
055350
D116
] 366

MACRO

CREATED BY

WNAWNAAHA
AW
AT AT
AN N WD =

CZDRLD

*103-5107
*105-5235
113-5549
145-6404

145-6401

CZDRLD

CREATED BY

SYMBOL (ROSS REFERENCE
SYMBOL

EM12

FM13

EM14
EM1S
EM16
EM17
EM2
EM20
EM202
EM21
EM211
EM22
EM23
EMO4
EM2S
EM26
EMI7
EM3
EM30
EM31
EM32
EM33
EM34
EM3S
EM36
EM37
EM4
EM4O
EM4 1
EM42
EM43
EM44
EM&S
EM46
EML7
EMS
EM50
EM51
EM52
EM53
EM54
EMSS
EM56
EM57
EM6
EM60
EM61
EM62

EM63
EM6S
EM66
EM7

VALUE

067542
047574

047644
047733
047757
050003
047162
050072
052347
050140
052377
050210
050251
050320
050351
050402
050441
047216
050476
050534
050600
050621
050652
050712
050773
051023
047264
051061
051111
051157
051213
051244
051314
051352
051427
047315
051444
051511
051570
051631
051657
051674
051714
051752
047346
052002
052041
052124

052173
050233
052304
047377

MACRO

ON 2-NOV-81 AT 16:13

REFERENCES

54=3227

41436295

54-3230
54-3246
54-3253
54-3260
53-3180
54-3266
§9-3452
54-3272
59-3494
§5-3277
#143-6304
55-3283
55-3289
59-3458
59-36664
53-3186
§5-3295
§5-3301
§5-3307
§5-3313
#143-6313
55-3319"
§5-3325
56-3330
53-3192
56-3336
§56-3342
#143-6319
56-3348
56-3354
56-3360
60-3499
56-3366
53-3198
56-3372
56-3378
§7-3383
§9-3476
57-3389
57-3395
59-3488
57-3401
§3-3204
57-3408
57-3415
57-3421

#143-6297
#143-6298
#143-6299
#143-6300
#143-6287
#143-6301
#143-£379
#143-6302
#143-6340
#143-6303

54-3233

57-3607
58-3438
#143-6338
§3-3210

PAGE 8
177
SEQUENCE
CREF
vO?

#143-6296

#143-6305
#143-6306
#143-6307
#143-6308
#143-6288
#143-6309
#143-6310
#143-6311
#143-6312
#143-6314
59-3470
#143-6316
#143-6289
#143-6317
#143-6318

57-3433
#143-6321
#143-6322
#143-6323
#143-6324
#143-6290
#143-6325
#143-6326
#143-6327
#143-6308
59-3482
#143-6330
#143-6331
59-3445
#143-6291
#143-6333
#1643-6334
#143-6335

#143-633%
#143-6337
#143-6292

#143-6315

#143-6320

#143-6329

#143-6332

I 14

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

ENDEV
ENDSTK
ENPR1
EOPLOC

025622
047132
002604
002706

EOPRSM
ER

= 100000

ERCAPT
ERCHDR
ERRCHK
ERRCNT

003126
036173
004064
002714

ERROR

032504

= 104000

MACRO

ON 2-NOV-81 AT 16:13

REFERENCES

47-3143
64-3667
#61-3552
*(8-3170

89-4608
133-5924
*115=5611
#61-3585

133-5924

#133-5924

#64-3667
133-5924
#73-3886
#61-3588

PAGE 9
178
SEQUENCE
CREF
vO01

J 14

112-5514
#142-6284
+117-5728
*87-442

#121-5858

#133-5924

88-4571

+133-5924

133-5924

*133-5924

91-4674
110-5466

96-4906
113-5551

96-4910

96-4913

1045172

121-5884
#142-6214
115-5618
«91-4651

73-3889
109-5433

117-5713
+94-4806

*106-5276

*107-5310

*108-5392

*113-5524

*115-5590

*117-5684

92-4751
94-4836
98-4956
102-5085
105-5236
107-5354
113-5535
116-5675

92-4755
94-4851
98-4966
103-5113
106-5268
108-5386
113-5555
117-5706

92-4761
95-4874
99-4981
103-5131
106-5275
108-5391
114-5575
117-5714

92-4765
95-4881
99-4991
103-514i
106-5278
108-5394
114-5581
117-5718

91-4660
93-4780

91-4678

92-4713
93-4790

92-4730
93-4794
97-4931

92-4743

43-3050
136-5928
63-3632
#142-6224
#142-6217
«68-3761

133-5924

#44-3077
1064=5195

*135-5926
#43-3049

118=5772

133-59264

68-3764
109-5430

136-5928
78-4221

119-5801

122-5902

136-5928
89-4611

119-5809

145-6394

+136-5928
90-4635

119-5814

ESC
ESCAPE
ETDEV
EWCR

= 000004
002274
= 000033
037064
036350
002602

EXPAND

027516

#43-3049
#59-3442
#47-3128
63-3636
121-5881
#61-3551_
145-6407
125-5913

002652
= 000016
002654

#61-3571
#44-3059
#61-3572

139-5989

141-6177

97-4930

98-4955

= 000004

#464-3056

#?323g?§7

97-4932

75-3942

109-56413
75-4015

96-4898

117-5697

118-5752
96-4908

119-5793

ERRVEC

ER200

FIXTBL
FLAG
FNC
FNCCNT
F1
F2

003170

= 000002

#65-368¢4

#126-5913

81-4264
136-5928
140-6011

*B1-4264

140-6033

140-6063

+94-4830

+107-5345

*115-5625

99-4980

105-5234

F3
GNS

= 300010

#44-3058

99-4982

115-5603

117-5697

= 000001

#44-3055

75-3942

82-4276

82-4278

GOAGIN
GTSWR
HAK TPM

= 104406
032174

123-5909
+135-5926

*135-5926

HEADER
HT

IBSAVE

= weeenr

026344

040452
= 000011
033224

132-5921
132-5921
132-5921
101-5040
108-5378
119-5794

132-5921
132-5921
132-5921
102-5073
109-5414
120-5836

122-5902

#122-5903

139-5947
#43-3049
*135-5926

#133-5924
#142-6259
123-5909
135-5926

#132-5921
133-5924

132-5921
132-5921
132-5921

103-5121
113-5543

132-5921
132-5921
132-5921

93-4784

96-4907

*81-4264

104-5156
113-5545

135-5926

115-5630

*133-5924

120-5855
*133-592¢4

*133-5924

140-6109

140-6132

140-6155

145-6389

145-6393

145-6398

101-5040

102-5073

103-5121

132-5921
132-5921

91-4682
107-5303
117-5698

92-4716
107-5329
118-5753

CREATED BY

(RGN YV, JHir i Ui QUG
, Y
= O~ NN
0O
[ K=
UL
H
(S ¥ale dV, 1V, LV IV I« 1V, |
OAAUNOOO0
Voo
O=0OMNNNOW
W
A%,
SO0
N2\

CZDRLD

135-5926

#135-5926

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
?gHBOL
VALUE

= 000100

INBUF

002616

INBUF1

002656
006124
022606
003356
000020

INDEV
INOOUT
INTA
IOTVEC
KDPAR?
KDPDR?2
K IPARO
KIPAR?
KIPDRO
KIPDR?2
LENCHK
LETNCR
LEVEL
LEVELS

LEVEL3
LEVELSG
LEVELS
LEVEL6

LEVEL?
LF
LODBUF
LOOP
LRGSTC
MA

REFERENCES
#44-3062

*88-4495
88-4474
*88-4494
88-4466

*69-3793
63-3637

004732

000140
000200
000240
000300

000340

= 000012
003302
002662
002704
= 010000

MEPITM
ME SSAG
MMPS

033514
002650
000252

MMVECT
MSG

000250
002644
037072
041302

177572

#67-3123
#47-3124
#47-3125
#47-3126
#47-3127

102-5070

+75-3932
106-5258
119-5791
#75-4030
75-4031
75-4031
75-4030
75-4030
48-3151

#463-3049
#66-3713
#61-3575
#61-3584
#44-3073
92-4702
98-4749
105-5214
1146-5597
#84-4321
#85-4357
#61-3578
48-3164
139-5940
#61-3587

*88-4505

136-5928
#61-3570
#47-3139
#67-3131
#47-3138
#61-3568

139-5985
88-4524

K 14

73-3886
107-5329

75-3942
108-5378

104-5156
117-5697

105-5216
118-5752

68-3753

69-3792

107-5296

107-5324

107-5308
*81-4264
*88-4499

108-5390

+88-4503

*88-4515

*88-4498

+88-4502-

*88-4514

*69-3794

69-3805

*72-3851

1165647

116-5669

118-5767

119-5808

120-5850

*72-3852

72-3861

75-3995
109-5410

*103-5127
110-5448

*103-5132
115-5595

75-3932

75-3945

138-5932

75-3991
140-6121

78-4215

88-44632

108-5366

116-5644

118-5741

119-5782

120-5824

*160-6007

. 101-5026
107-5321
117-5707

*140-6029
75-4017
96-4892
102-5072
108-5376
119-5802

91-4650

100-5003
107-5302
117-5691

+77-4139
75-3936
93-4791

91-4654
96-4896
103-5119
110-5451

92-4700
97-4924
104-5156
113-5529 -

B7-4426

*139-5990

*141-6176

82-4284

82-4289

82-4292

*88-4497

*88-4501

#162-6227
*75-3947
107-5301
120-5833
103-5102
101-5028

70-3817

138-5932

123-5909
107-5293
76-4056

63-3650
70-3818
93-4777

*136-5928

#136-5928

88-4491
*88-4464
88-4489

*88-4492
*88-4493
*88-449C

#142-6225
#142-6267

PAGE

179
EQUENCE
CREF
vO01

108-5369

002624
037173
002540

007220
910220
002670
034230
040643
002712

MUSTED
L

ON 2-NOV~81 AT 16:13s

172364
172324
172340
172344
172300
172304

MAICLR
MAISET
MANS1Z
MBD
MBDIAL
MEMGMT

MMRO

MACRO

+75-3989
108-5374
145-6399

103-5139
117-5689

104-5153

138-5932

+76-4087

+88-4518
+88-4572
+88-4519

*88-4459

96-4894

103-5103
109-5412
120-5844

*88-4465

88-4492

N
NO
NOBD

NOBUT
NOCARE
NODATA
NODVPR
NOMORE
NOTST
NOTVEC
NPR1
NX

NXTTST
N2
OFL

OLDPC1
OLDPC2
OLDPS1
OLDPS2
OUTORG
OUTRAN

PASCNT
PASNUM
PATCHS
PATRNS
PFECH

PFECH1
PFECH2
PFECH3
PFECHS

PIRO
PIRQVE
PNTPRI
PREOP
PROMPT
PROUT

PRO
PRI

PR2

PR3
PR&

PRS
PR6
PR7

PS
PSTATE
PSW

PWRVEC

ON 2-NOV-81 AT 16:13S

000024

180
EQUENCE
vo1
CREF

#142-6248
#1462-6216
#142-6265

041151
040775
006335
005017
002612

006536
172776

L 14

#142-6243
#142-6240

037422
0376411
006207
037535
056104
036311

0460000
002554
000400
002702
002672
002676
002674
902700
004762
006255
002556
041617
011220
007202
033516
033526
033562
033612
033622
177772
000240
006560
026010
034244
005107
900000
00040
000100
000140
000200
000240
000300
000340
177776

PAG EN

#142-6263
#77-4206
#75-4034
#61-3555
145-6394
91-4674

88-4504

91-4662

113-5537

#146-6424

115-5600

*115-5602

115-5621

117-5694

*117-5695

109-5430

109-5433

110-5466

110-5469

113-5551

776197
78-4223
77-4196
78-4222

*88-4460
*88-4489

88-4523
88-4519
*88-4462
88-4518

*89-4609
145-6397
88-4522

89-4613

145-6380

*89-4610

89-4612

1155591

117-5685

117-5720

117-5723

75-4009
277-4106
*78-4218
«77-4108
*78-4219
#75-4033
#77-4205
#1462-6273
166-6416
#86-4396
#83-4305
94-4807
126-5928 #136-5928
#136-5928
136-5928
#136-5928
136-5928
136-5928
#136-5928
136-5928 #136-5928
#43-3049
#43-3049
76-4073
#80-4245
*121-5859
*87-4407
#139-5941
139-5980
#75-4036
75-3982
#43-3049
#43-3049
#43-3049
#43-3049

43-3049

*104-5154
*118-5751
#43-3049

140-6082
*70-3817

*105-5213
*119-5792
*81-4264

*78-4217

*88-4491

139-59
121-5868
139-59

160-6126
*75-3940
*106-5259
*120-5834

*81-4264

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
M1A
041421

MACRO

140-6149
*75-3945

Hro
Q=

CREATED BY

—

| CZDRLD

5891

*122-5902
141-6190

6037

*108-5375

*75-3991
*109-5411

*78-4215

*138-5932

+138-5932

*138-5932

*110-5450

-5028

596

+103-5105

*116-5653

103-5127

+117-5690

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE

SYMBOL
QTYBRD

VALUE
002414

= 002416

MACRO

ON 2-NOV-81 AT 16:13

65-3687

002566

#61-3544

+68-3760

RBOR

002564

#61-3543

+92-4734

RCSR

002560

#61-3541
75-4013

+(68-3754
+75-4016

*106-5162
105-5233

RBAR

*87-4434
#65-3695

*94-4840
*115-5620

*94-4818
116-5672
*92-4725
96-4894
*97-4933
99-4986

109-5428

RDCHR
RODEC
ROLIN
RDOCT

RDYCHK
READ
REGADR
REINIT

=
=
=
=

104410
104413
104411
104412

002632
002722

002416
012556

REIR

002562

RESVEC
RSTRT
RWCR

= 000010
026364
002570

vO1

65-3689

+75-3999

68-3770

+92-4719

121-5861
65~3696

121-5887
+65-3696

94-4843
115-5626

+94-4848
+117-5719

94-6819
+119-5810

«100-5005
119-5811

*92-4756
+96-4899
974934
+101-5029

92-4759
96-4990
+98-4950
101-5030

122-5902
*65-3697

68-3755
75-64019

68-3763
*91-4656

*106-5169
+106-5267

104-5171
*107-5318

113-5552
145-6386

*114-5572
145-6388

+93-4785
96-4904
98-4951
*101-5043

92-4741

#92-4763

68-3768
91-4657

+73-3887
*91-4664

139-5950

774121

#77-4129_

«87-4430

92-4728

92-4752

+93-4781

%93-4792

+94-4811

115-5628

«116~5671

73-3888
91-4666

73-3891
91-4675

+75-4012
+92-4717

140-6003

107-534.
145-6390

*114-5576
145-6393

100-5014
145-6407

#115-5622

+140-6023
114-5577
145-6398

114-5579
145-6407

94-4812

+104-5185
#107-5334

93-4788
,%95-4869
*96-4909
96-491G
+98-4958
98-4959
+102-5060
102-5061
104-5192
104-5194
107-5335
«107-5353

95-4870
96-4912
499-4975
«102-5081
*105-5219
+«108-5381

95-4872
%97-4925
99-4976
+103-5106
105-5228
+109-5420

+96-4893
97-4926
+99-4983
103-5109

+115-5610
145-6392

*116-5661
145-6398

«117-5704
145-6402

+118-5759
145-6403

+119-5800
145-6406

+120-5842
145-6405

*110-5463

110-5464

110-5468

+113-5531

113-5532

105-5229
«109-5427

+«113-5539

129-5915

#132-591

131-5919

#132-5921

#61-3563
#63-3620
140-6085
#61-3512
139-5996

75-3963
140-6106
65-3695

75-3977
140-6129
*75-4025

77-6126
140-6152
*75-4026

77-4148

139-5944

140-6008

140-6030

140-6060

76-4046

87-4438

88-4554

139-5953

139-5983

#61-3542

1115497
#43-3049
122-5905
#61-3545
94-4827

+75-4001

75-4005

75-4009

+95-4876

95-4877

95-4879

+111-5483

111-5485

#122-5907
+68-3766
+94-4833

+92-4/04

92-4705

+92-4710

92=6711

292-4749

+93-4778

+94-4826

#44-3063

68-3765

73-3890

73-3892

73-3894

91-4645

92-4757

93-4786

96-4894

92-4699
101-5025
110-5441

93-4771
102-5058
111-5478

94-4804
103-5092
113-5522

95-4844
104-5148
114-5568

96-4888
105-5203
115-5588

+103-5115
+105-5208

103-5125
105-5220

#88-4568

140-6025

122-5906

145-6387

*140-6053
145-6401

141-6183

96-4896
110-5469
#43-3049

101-5032
113-5532
*81-4264

102-5063
113-5534
+81-4264

102-5065

81-4264

= 000004

#43-3046
97-4922
106-5245

89-4593
98-4947
107-5287

90-4622
99-4972
108-5360

91-4643
100-4999
109-5402

040306
002532

140-60246
#61-3526
103-5136

#142-6256
*101-5035
+104-5150

=2000006
=%000007

%92<4727 =

+100-5013
145-6391

«107-5344
145-6407

R6
R7

92-4720

100-5006
145-6384

%92-4740

#110-5457

«77-4114

122-5904

«107-5339
145-6383

92-4735

109-5432

76-4050

96-4849
117-5720

94-4834
145-6406

= 000200

SDADRS
SDRINV

=3626
#132-5921
130-5917
#132-5921

181

145-6398

SCOPE

113-5541
1645-6385

SEQUENCE

CREF

REFERENCES
#61-3510

PAGE 12

145-6393

#43-3049

116-5641

105~3226
107-5351
110-56461

117-5682

*106-5255
+108-5371
*115-5592

118-5738

101-5044
104=5160

106-5265
108-5382
115-5608

119-5778

101-5050
104-5167

106-5272
108-5388
115-5616

*115-5624
103-5107

120-5820

+102-5067
+104-5174

+107-5298
#109-5407
«116-5649

115-5630
103-5112

121-5858

102-5077
104-5183
107-5306
109-5418
116-5659

117-5715
109-5430

145-6382
109-5433

145-6389
110-5466

122-5902

102-5083
104~5190
107-5316
109-5425
116-5667

=107-5325
«110-5445
+117-5686

107-5332
110-5455
117-5702

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL

VALUE

MACRO

ON 2-NOV-81 AT 16:13

REFERENCES

PAGE 13
SEQUENCE
182
CREF
vO1

N 14

}35-%;1;

*118-5747

-5757

118-5765

«119-5788

119-5798

119-5806

+«120-5830

120-5840

SDRVS

002534

#61-3527

+101-5036

~5045

107-5051

*102-5068

102-5078

102-5086

+103-5116

SETTUP
SPACEC
SPACES
SPACE3
SPACEG
SPACE?7

006610
037400
037352
037355
037361
037370

#81-4263
140-6005
133-5924
139-5952
76-4058
76-4065

87-4417
140-6027
133-592¢4
#142-6234
76-4061
76-4072

-5939
-6058
5924

140-6083
136-5928

140-6104
#142-6233

140-6127

140-6150

#142-6237

139-5967

139-5973

#142-6236

77-4145
#48-3165
48-3172
48-3163
133-5924
#43-3049
140-6054

#77-4203

139-5959
139-5938

139-5965

00614°
00021C
011424
011420
036120
= 177774
060252

76-4080
138-5932

#87-4406
#87-4405
#142-6213

139-59N
88-4545

128-5932

146-6422

*81-4264
93-4771

*81-4264
94-4804

77-4112

774166

81-4264

+81-4264

81-4264

109-5402
118-5738
133-5924
81-4264
43-3049
4£3-3049
43-3049
43-3049
43-3049
63-3049
43-3049

STACK

STAD
STAGIN
START
START?
STKIFL
STKLMY
SVADRS

SWR

= 001300

001340

103-5137
105-5227
107-5352
110-5462
}56-2;18

#43-3049

#52-3178

99-4972

SWREG
SW0
SW00

000176
= 000001
= 000001

108-5360
117-5682
133-5924
#48-3157
#43-3049
#43-3049

Sw02
Sw03
SW04
Sw05
SWo6
Swo7

=
=
=
=
=
=

000004
000010
000020
000040
000100
000200

#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#63-3049

=
=
=
=
=

001000
000002
002000
004000
010000

#43-3049
#43-3046
#43-3049
#43-3049
#43-3049

=
=
=
=
=

040000
100000
000004
000010
000020

#43-3049
#43-3049
#43-3049
#43-3049
#43-3049

SWo1

sSwo8

SW09
SWi
SW10
Swil
w12

Swi13
Swié
SW15
Sw2
Sw3
Swé

= 000002

= 000400

= 020000

#463-3049

#43-3049

+104-5151
*106-5256
+108-5372
*115-5593
*118-5748

81-4264

#142-6255

75-3959

100-4999

4£3-3049

43-3049

=5161
=5266
=5383
<5609
-5758

~5955
4074
44176

104-5168
106~5273
108-5389
115-5617
118-5766

#142-6235

+104-5175
+107-5299
+109-5408
*116-5650
«119-5789

77-46184

89-4593
4822

90-4622
94-4837

91-4643
94-4852

=5441
~5778
5924
=5915

111-5478
120-5820
133-5924
127-5915

111-5504
127-5915
135-5926

=5025

102-5058

103-5092

104-5184
107-5307
109-5419
116~-5660
119-5799

104-5191
107-5317
109-5426
116-5668
119-5807

92-4714
96-4888

+105-5209
+107-5326
+110-5446
*117-5687
+120-5831

92-4731
97-4922

106-5245

115-5588
133-5924
135-5926

103-5126

105-5221
107-5333
110-5456
117-5703
120-5841

92-4744
98-4947

107-5287

116-5641
133-5924
136-5928

Sw?
Sw8
Sw9

TABINX
TBITVE

TIME

*i15-5605

QOO
oWno
N0

+88-4488

W
&~

o
o
(=4
o
b
b
b
b
d

024124

N AAAWVON LAAWAILY
OO\ AN
S

1ST32
TST33
TST34

PAGE 14
SEQUENCE
183
VO
CREF

8 15

*88-4547

88-4552

*88-.553

«75-3935
*104-5158

753943
+104=-5179
*107-5330
*116-5656
¢120~5858

+101-5039
+104-5181
+108-5377
*116=5657
+141-6204

*101-5041
*105-5215
*108-5379
*117-5699

0774109
277-4107

*107-5322
*115-5606
*120-5837
1641-6210
77-4108

#142-6252
77-6106

*88-4513

*81-4264
146-6412
#1462-6257

88-4549

91-4684
#89-4593
95-4878
#97-4922
#98-4947
#99-4972
#100-4999
#101-5025
0102 5058
103- 092
4~

103-

?O*J\J\N&0
| OO
O N~NW

TST2
78120
15121
18722
1ST23
T1ST24
TST25
TST26
1S127
1ST3
1ST30
TST31

95-4866
96-4890
97-4938
98-4963
99-4988

TST1S
TST16
TST17

88-4572

T1ST14

#61-3567
#61-3566
#463-3049
#43-3049
#43-3049
#142-6272
121-5875
#88-4534
#82-4274

ST
1ST10
TST11
TST12
TST13

[=]elelelelelelsel

TRAPVE
TRTVEC
TSNUMB
TSTCOM
TSTDEV
TSTMM

naoan

TPS
TPVEC

*119-5796
#61-3565
#61-3564
#43-3049
247-3141
140-6123
#47-3140

x
®
— ad b
i ) md b ad cod ed d b
o= = o O= 000000

TORN(B
TOVECT

j=l=l=4

TMOP SW

roonn

TKS
TKVEC

8 Q
o

002636

16:13

*88-453>

64~

mmmmmommmvammmmm\n
O OVVOWIES
B
O WON) = — O
n
SNV
N NIINONMNND
SN0
00
WHROHN)
N=HOHNBO &»H

Swé

REFERENCES

#43-3049
#63-3049
#43-3049
#463-3049
#63-3049
#61-3535
#43-3049
#61-3574
«104-5155
*107-5304

QWO WO OOWO

000040
000100
000200
000400
001000
002546
000014
002660

2 =

SWS

ON 2-NOv-81

== (AN =N =2

SYMBOL CROSS REFERENCE
SvYMBOL
VAL UE

MACRG

"REATED BY

—n—h:-n—AO—.—n—a—a..n_A__a-.n

CZORLD

*88-4523

*102-5071
*105-5217
*109-5415

*103-5120
*106-5263

*1461-6206

*117-5700
*141-6210

+102-5074
*106-5262
*109-5416
*118=-575¢4

+77-4196

*87-4415

88-4462

*88-4463

*88-4522

+77-4197

87-4414

*87-6414

88-4460

*88-4461

*81-4264

121-5890

134-5924

#96-4888
134-5926
134-5924

134-5924

#104-5148
104-5193

134-5924
#105-5203

#108-5360

134-5924

#110-5641
#111-5478
134~5924
134-5924

134-5924
134-5924

134-5924
134-5924
1345924
134-5924
134-5924

134-5924

134-5924
#117-5682

134=5924

134-5924

*110-5449
*118-5755

*103-5122
*107-5289
*110-5453
*119-5795

*88-4468

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
TST35
024506
1ST36
025004
1ST37
025320
1574
TST40

1STS
TST6
1517
TWO
TYPCNF

013466
= 025622

014172
014366
014734
037420
005142

TYPDE
TYPDS

= 104414
= 104405

TYPE

= 104401

MACRO

ON 2-NOV-81

REFERENCE
#118-5738"
118-5763
119-5804
#92-4699
#,7-3143
92-4764
93-4793
#95-4864
76=4079
#76-4044
121-5878

UBHANG
UCAL
VA
VCLCHR
VECADR
VECERR
W
WCLEN
WCR

XCHKBU

XINBUF

= 104402
= 104404
= 104403

056016
037511
= 002456
£37003
002456
036617
037407
002630
002516

043646

042644

SEQUENCE

CREF

134-5924
#119-5778
119-5812

134-5924
120-5846

#93-4771
#94-4804
134-5924
139-5970
77-4198

134-5924
#120-5820

c15

PAGE 15

184

V01

1345924

134-5924
134-5924
#142-6242

ro~4DS

122-5902
764057

#132-5922
(121-5874

133-5924
121-5883

146-6419
122-5902

M132-5921

133-592

133-5924

139-5951

63-3630
76=4049
76-4077
77-4145
91-4643
100-4999
109-5402
119-5778
122-5902
127-5915
133-5924
133-5904
136-5928
139-5964

63-3634
76-4052
76-4079
77-4155
92-4699
101-5025
110-5441
120-5820
123-5909
129-5915
133-5924
135-5926
138-5932
139-5965

63-3657
76-4058
76-4080
77-4160
93-4771
102-5058
111-5478
121-5872
124-5911
129-5915
133-5924
136-5928
139-5940
139-3967

63-3657
76-4061
76-4083
77-4172
94=4B04
103-5092
113-5522
121-5873
125-5913
129-5915
133-892%
136-5928
139-5942
139-5970

75-3961
76-4065
76-4085
88-4524
95-4B64
104-5148
114-5568
121-5875
127-5915
130-5917
133-5924
136-5928
139-5947
139-5972

75-3968
76-4069
76-4086
B88-45.8
96-4888
105-5203
115-5588
121-5881
127-5915
130-5917
133-5926
136-5928
139-5952
139-5973

75-3972
76-4071
76-4093
BB8-4542
97-4922
106-5245
116-5641
121-3835
127-5015
131-5919
133-5924
136~5928
139-5955
139-5976

75-3975
76-4072
77-4123
89-4593
98-4947
107-5287
117-5682
122-5902
127-5915
131-5919
133-5924
136-5928
139-5959
139-5978

75-3982
76-4074
77-4140
90-4622
99-4972
108-5360
118-5738
122-5902
127-5915
#132-592]
133-5924
136-5928
139-5962
139-5979

140-6146

140-6150

141-6178

141-6189

141-6198

141-6201

146-6409

146-6412

140-6054
140-6127
146-6416

146-6411

139-5985
140-6058

TYPOC
TYPON
TYPOS

AT 16:13

76-4060
#132-5921
76-4063

140-6002
140-6072

140-6005
140-6076

140-6017
140-6079

88-4527

127-5915

77-4142

79-4236

#132-5921
80-4252

+65-3699

+65-3700

140-6024
140-6083

140-6027
140-6101

140-6038
140-6104

140-6050
140-6123

136-5928

139-5954

140-6026

#132-5921

139-5957

140-6056

146-6414

139-5956

139-5987

88-4526
141-6201
#65-3698
140-6076
#61-3513
139-5998
140-6072
76-4071
#61-356C

#146-6409
#142-6247
65-3699
#142-6223
65-3698
140-6055
#142-6221
139-5964
+106-5248

76=4047
+140-6078

77-4119
141-6182

77-4138

87-4445

88-4561

#142-6239
+106-5049

106-5252

*107-5291

*107-5292

107-5295

107-5323

120-5825
68-3766
92-4749_
106-5252
115-5599
145-6389

+120-5826
88-4555
93-4773
107-5295
115-5624
145-6393

120-5827
B89-4596
93-4778
107-5323
116-5648
145-6397

*119-5783

+108-5364

119-5785
#61-3520"
92-4710
105-5212
113-5536
145-6382

118-5744

B89-4597
94-4B25
107-5340
117-5693
145-6398

91-4661
94-4826
107-5344
117-5715
145-6406

92-4703
94=4832
108-5368
118-5744
145-6407

92-4704
94-4833
109-5405
119-5785
146-6410

92-4709
104-5178
110-5443
120~5827

*108-5365

61-3558

61-3557

108-5368

#142-6280

#142-6278

*116-5645

116-5646

+118-5742

*118-5743

+119-5784

$0DWO

001474

$ODW1
$ODW10

001476
001520
001522
001524

$ODW11
$0DW12
$DDW13
$DDW14
$DDW15
$ODW2
$ODW3

OU\\‘J

WO\

027504

$DBLK

WOOV0
NO= NN
VIO

030544
030537
001436
001405

‘l\\'l\JV 7[\[ t O

$CNTLG
$CNTLU
$CPUOP
$CRLF

~
oo

$CM4

b ecd md =D

033644
001334

001464
001322
001326
001400
001470
001472
026736
027764
001300
000000
000007

$CY3

»
—4—2f~—20000
WO WO
]
R
R a2
=D
O LCNO0
WWOANO
O
OO
o

ARAARY

SATYS
$AUTOB
$BASE
$8DADR
$8DDAT
$BELL
$COW1
$CDW2
$CHARC
$CKSWR
$CHTAG

033652

033626
033634

CREF

=D ed

$ATY3

000040
037414
001000

PAGE

SEQUENCE

*160-6099
*140-6168

D 15

185

Vol

129-5915

135-5926

D AN\

YES
$APTHD
PASTAT
SATYC
$ATY]

REFERENCES

I ~NW?
[ }
[]
Wl
WNW NN

ON 2-NOV-81 AT 16:13

L 3 3
O0— —d—
NNOWW

SYMBOL CROSS REFERENCE
SYMBOL
VA LUE
X6
000020

MACRO

O
(=}
0

CREATED BY

)

CZDRLD

*123-5909

#123-5909

81-4264

#52-3178
#52-3178
#52-3178

52-3178
52-3178

#52-3178
#52-3178

52-3178
52-3178

76-4093
129-5915
136-5928
#125-5913

122-5902
131-5919
136-5928
126-5913

123-5909
131-5919
146-6420
126-5913

126-5913

*140-6100

76-4066
140-6102

77-46137
140-6124

88-4565
*14C-6144

139-5949
*140-6145

*87-4412
*65-3686

*87-4419
*65-369¢4

*122-59 03
*77-4115

*77-6135

87-4431

*125-5913

*65-3701

*160-5169

123-5909
133-5924

$ODWL

$DDW5

S0DW6

»0DW7
$DDW8
$DOW9
$DEVCT
$DEVM

#52-3178

88-4534

*45-3684

141-6185

*121-5886
*75-3998

121-5887
76-4045

——

CZDRLD

CREATED BY

MACRO

ON 2-NOV-81 AT 16:13

001431
026046
026074
001303
001315
032656
001316

$ERRTB
SERRTY
SERTTL

001534
033226
001312

$ESCAP
$SETABL
SETEND
SFATAL
S$SFFLG
SFILLC

001376
001430
001534
001412
034072
001356
001355
001320
001324
026310
026314
030064
= 000000
001000
031110
001304
001335
201314
001406

$FILLS

$GDADR

$GDDAT
$GET
$GET42

$GTSWR
$HD
$HIBTS
$SHIOCT
$ICNT
$INTAG
SITEMB

SLF

SLFLG
$LPADR

$LPERR

S$MADR1
$MADR?2
$MADR3

034071
001306
001310

001442
001446
001452

Nl’})\h’\)

» W2
L X 3
bt b b b ok () b e wed OO =D N
WA=
NN =W
(VA LV IV AV LV R RV L1N
Tl )
U
2RA%

SENVM
$EOP
SEOPCT
SERFLG
SERMAX
SERROR
SERRPC

L
X 3
b md md D
PO

SYMBOL CROSS REFERENCE
SYMBOL
VALUC
$DOAGN
026534
$OTBL
027474
SENDAD
026324
SENDCT
026102
SENULL
026340
SENV
001430

87-4426

123-5909

137-5930

4264

122-5902
+133-5924
*133-5924

133-5924
133-5924

6-5928

*135-5926
145-6383
145-6392
145-6401
136-5928

135-5026
145-6384
145-6393
145-6402

+89-459%
133-5924

89-4606
*135-5926

+87-4409

*137-5930
123-5909
123-5909

*92-4748
*100-4999
*107-5287
*117-5682

135-5926

#52-3178
#52-3178

#52-3178

135-5926
77-4189

#52-3178

131-5919
*137-5930

#122-5902

77-4182

*81-4264

*131-5919

SEQUENCE
186
V01
CREF

77-4164

64-3673

#52-3178
#52-3178
#52-3178
#52-3178

7764110

*122-5902

#49-3176

PAGE 17

41-3032

«133-5924

+137-5930
137-5930

123-5909
123-5909

#122-5902
132-5921
41-3032

*135-5926

123-5909

135-5926

121-5882

135-5926

*137-5930
123-5909

87-4422

135-5926

122-5902

135-5926

#137-5930

132-5921

#131-5919

127-5915
*135-5926
123-5909

*94-4814

*101-5025
*108-5360
*118-5738

129-5915
135-5926
123-5909
135-5926

129-5915
135-5926
129-5915

133-5924

*133-5924

094-4829

#94-484S

*89-4593

*102-5058
*109-5402
*119-5778

«90=4622

+103-5092
*110-5441
#120-5820

*133-5924
2914643
*95-4864
*103-5111
*111-5478
133-5924

*133-592¢4
*92-4699

*96-4888

*103-5114

*113-5522
133-5924

135-5926
130-5917

136-5928
131-5919

133-5924

133-5924
£92-4722
*98-4947
*105-5203
*115-5588
133-592¢4

133-5924
*92-4737
1994972

*92-4707
*97-492?2
*104-5148
*114-5568

*133-592¢4

£106-5245
*116~5641

133-592¢4

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL

SMADRS
SMAIL
SMAMS
SMAMS 2
SMAMS3
SMAMSS
SMBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
SMSGTY
$MSWR
SMTYP]
SMTYP2
SMTYP3
SMTYP4
$NULL
SNILMS
SNWTST

VALUE

001456
001410
001440
001444
001450
001454
001002
034070
030562
001424
001426
001410
030551
001441
001445
001457

001455
001354
027752
= 000001

MACRO

ON 2-NOV-81

REFERENCES

#52-3178
49-3176
#52-3178
#52-3178
#52-3178
#52-3178
#49-3176
*137-5930
127-5915
¥52-3178
#52-3178
#52-3178
127=5915

#52-3178
#52-3178
#52-3178

#52-3178
#52-3178
126-5913
#88-4593
90-4643
#92-4771

95-4864
#97-4947
99-4999
#101-5058
104-5148
#106-5287
108-2402
#110-5478
114-5568
$OCNT
$OMODE
$OVER
$PASS

027164
027166
032160
001416

$PASS2

002716

SPASTM
SPOWER
$PWRDN
SPWRUP
$QUES

001006
034162
034074
034112
001404

SRDCHR
$RDDE C
SRDL IN
$RDOCT
$RDSZ
SRTNAD

030302
030574
030422
030752
= 000007
026336

AT 16:13

#116-5682
118-5778

*124=-5911
*124=-5911
133-5926
*48-3165
*122=5902

'?22322?7

#49-3176
138-5932
81-4264
138-5932
#52-3178
130-5917
#128-5915
#130-5917
#129-5915
#131-5919
#128-5915
#122-5902

PAGE 18

187
SEQUENCE
CREF
VOl

49-3176

#52-3178

81-4264

137-5930
#129-5915
+137-5930
+137-5930
+87-4410
#129-5915

+137-5930

#137-5930

137-5930

+137-5930

123-5909
#126-5913
88-4593
#90-4643
93-4771
#95-4888
976947
#99-4999
102-5058
#104-5203
106-5287
#108-5402
111-5478
#114-5588
116-5682
#118-5778
*124-5911
#124=-5911
133-5924
#52-3178
122-5902
#61-3589

123-5909

#88-4593
91-4643
#93-4804
95-4888
#97-4947
100-4999
#102-5092
104-5203
#106-5287
109-5402
#112-5522
114-5588
#116-5682
119-5778
#124-5911
124~5911
#133-5924
64=3672
122-5902
64-3671

89-4593
#91-4699

#138-5932
#138-5932
#138-5932
123-5909
131-5919
132-5921
132-5921
132-5921
132-5921
128-5915

F 15

123-5909

133-5924

137-5930

+137-5930

89-4622
#91-4699

117-5682
#119-5820

#89-4622
91-4699
#93-4804
96-4888
#98-497°2
100-5025
#102-5092
105-5203
#107-5360
109-5441
#112-5522
115-5588
#117-5738
119-5820

#124-5911

*B1-4264
122-5902
«87-4408

+87-4406
146-6418
88-4456

88-4454

127-5915
131-5919

129-5915
135-5926

135-5926

137-5930

93-4804

#95-4888
98-4947
#100-5025
102-5092
#104-5203
107-5287
#109-5441
112-5522
#114-5588

118-5738

#90-4643
92-4771
#94-4864
97-4922
#99-4999
101-5058
#103-5148
106-5245
#108-5402
110-5478
#113-5568
116-5641
#118-5778

88-4538

121-5877

*122-5902

88-4540

121-5876

*122-5902

122-5902

129-5915
135-5926

129-5915

130-5917

94-4804

#96-4922
98-4972
#100-5025
103-5092
#105-5245
107-5360
#109-5441
113-5522
#115-5641

117-5738
#119-5820

#89-4622
92-4699
#94-4864
96-4922
#98-4972
101-5025
#103-5148
105-5245
#107-5360
110-5441
#113-5568
115-5641
#117-5738
120-5820

90-4622
#92-4771
94-4864

#96-4922
99-4972
#101-5058
103-5148
#105-5245
108~5360
#110-5478
113-5568
#115-5641

138-5932

123-5909
131-5919
132-5921
132-5921
132-5921
132-5921

CREATED BY

CZDRLD

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

SR2A
$SAVRE

$SCOPE
$SETUP

ON 2-NOV-81 AT 16:13

REFERENCE

NANNNR

teRene

132-5921

031200
= 000137

81-4264
#48-3152

$STUP

= 177777

$SVLAD
$SVP(C

032124
= 001000

$SWR

MACRO

= 163400

001432

= 000200

$SWO8T
$TESTN

032556
001414

$TkB

001346

$TKS

001344

$TMPC

001360

$TMP1

001362

$TMP2

001364

$TMP3
$TMP
$TMPS

001366
001370
001372
001374
= 000040

$TMP6
$TN

G 15

132-5921

48-3152
81-4264
127-5915

#133-5924
48-3152

#48-3152
81-4264
129-5915

#48-3152
#68-3152

#48-3152
#48-3152

#61-3021
42-3034

133-5926
#49-3175
89-4593

$SWREG
$SWRMK

PAGE 19
SEQUENCE
188
CREF
vOo1

98-4947
107-5287
117-5682
133-5924
133-5924
133-5924
135-5928
#52-3178

#461-3030

#52-3178

*125-5913

#52-3178
#52-3178
#52-3178
#52-3178
#61-3022
90-4643
#93-4771

81-4264
81-4264
135-5926

48-3152

81-4264

122-5902

#48-3152

81-4264
122-5902

#48-3152
#48-3152

41-3032
52-3178

42-3034
52-3178

42-3034

99-4972
108-5360
118-5738
133-5924
133-5924
133-5924
135-5926
81-4264

100-4999
109-5402
119-5778
133-5924
133-5924
135-5926
135-5926

101-5025
110-5441
120-582)
133-5924
133-5924
135-5926
135-5926

42-3034
81-4264
96-4888
105-5203

42-3034
81-4264
97-492°2
106-5245
116-5641
122-5902
133-5924
133-5924
135-5926

42-3034

42-3034
133-5924

133-5924
49-3175

#133-5924

90-4622

91-4643

92-4699

#48-3152
#48-3152

48-3152
48-3152

42-3034

145-6382

+87-4411
145-6383
145-6392

*87-4420
145-6384
145-6393

123-5909

127-5915

1275915

127-5915

128-5915

123-5909

127-5915

128-5915

*105-5205
*126-5913
x138-5932

105-5212

*105-5237
*126-5913
145-6404
72-3869
90-4633
+103-5098
126-5913

114-5570
126~5913

*117-5705

72-3872
2914645

*103-5099
*126-5913

*75-3938
*91-4648
+103-5100
*133-5924

105-5235

*105-5238

*125-5913

*72-3868

145-6395

145-6391
1456400

126=-5913
*136~5928
#52-3178
75-3946
91-4657
*117=5717
133-59c4

#48-3152

#48-3152
#48-3152

145-6390
}22-22??

128=-5915
#52-3178

4£8-3152

#w48-3152
81-4264
135-5926

#48-3152
#48-3152

133-5924
133-5924
#134-5924
#52-3178

#52-3178
133-5924
#52-3178

48-3152
81-4264
133-5924
48-3152
48-3152

42-3034
133-5924
133-5924
*48-3169

145-6381

#48-3152

123-5909
133-5924
123-5909

133-5924
«73-3892

*126-5913
136-5928
«69-3790
75-3996
91-4659
«117-5724
*133-5924

+69-3798

125-5913

133-5924
133-5924

145-6401

133-5924
+B81-4263

133-5924

141-6208
81-4265

x126-5913
136-5928
69-3807
+90-4628
*103-5095
*126-5913
145-6381

125-5913

145-6395

42-3034
133-5924

+72-3865

+69-3801
+69-3799
«69-3802

«72-3857
+69-3800
+69-3803

+72-3866
«72-3858
1645-6395

41-3032
91-4643
*93-4793

88-4593
#91-4642
93-4804

89-4593
91-4699
944804

145-6380
145-6389
145-6398
145-6407

145-6404

145-6402

#126-5913
136-5928
693797
+90-4627
«103-5094
126-5913
145-6379

«72-3856

42-3034

#89-4593
92-4699
#94-4804

89-4622

#92-4699

94-4864

90-4622
*92-4764
95-4864

#90-4622
92-477"
#95-4864

£126-5913

*90-4634
93-4771
*95-4866

CZDRLD

CREATED BY

ON 2-NOV-81 AT 16:13

PAGE 20
SEQUENCE
189

CREF

REFERENCES

H 15
v01

XMMOOUL NOW1WOOO
«TGONVON0*(MNNNIyMUN«¥ AO.—SXAI

®NN»OOOO%Or—Rr~vr—v[

oilelok-oolf-—olrX—o4lX—Loka—dokolpOdoXNYLo[o

Mr—VMAMNIOWONNIOATCAaONVlI,OraM0O1NaelOrM—vNG—aOOTNNlA\MJvCGOOOalNVoOOY\oCloOMYNNVOJOoeN[
JO =

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

DO\~ MO0
WNOUMA.

OFO—N—DO
NW%ON NRGO
MWO -

=N~FMOoNNtOMOO2 N
VMM

O QOWONTMON TWOINOAONR—OIOT eo—r—rW—Oe—OMaOMN—INO1O0N0~F ONWMWAMO OMNOCOTVN0MNON

B¥* OVv0OO|1—MINO—ILANO2IT|0 TOANNIDENNOI (NolkVOROO0OO—r—r—r N—0AOVIOMO B%& Tr—NrOMO—Ov LANUIB| 0=NOMN O- —1|MINOMNDO ONITG~MNOAY NOOOrm—Or—~NNIMO 895“‘2432DONO—N—DO

#132-5921
#132-5921

$TRPAD
$TSTM
$TSTNM
STTYIN
$TYPBN

031146
001004
001302

$TYPOS
SUNIT

SUNITM
$USWR
$VECT1
SVECT?
$XTSTR
$SGET4
$$5W08

001010
001434
001460
001462
031640
000000
000040

$STYPDE
$TYPDS
$TYPE
STYPEC
$TYPEX
$TYPOC

$TYPON

135-5926

129-5915

#124-5911
+48-3167
*141-6184
#49-3176
#52-3178
#52-3178
#52-3178
#133-5924
#122-5902
#134-5924
#134-5924
#134-5924
#134-5924
#136-5924

132-5921
#132-5921
132-5921
132-5921
132-5921

132-5921
132-5921
132-5921
#132-5921
132-5921
132-5921

*133-5924

133-5924

133-592¢4

133-5924

123-5909

127-5915

121-5874

*121-5889

*122-5907

132-5921

+121-5860

030530

132-5921

=5922

132-5921
#132-5921
132-5921
132-5921
132-5921
132-5921
M132-5922

#132-5921
#132-5921

*122-5902
135-5926
129-5915

133 -5924
135 5 926
l 129 =5915

2-5921
3-5909

#123-5909

| 3 23284

027204
027170
027200
026374
026606
026740
026766
027002
026742
001422

$TYPD

132-5921
132-5921
132-5921
132-5921
#132-5921
132-5921
132-5921

64-3670

141-6199

137-5930

*87-4413

*87-4418

*88-4548

87-4446

9264
926
926
924
924

#13
#13
#M3
M3
Mm3

Uasl}’al

924
924
924
924
924

#134-5924
#134-5924
#134-5924
#134-5924
#134-5924

CZDRLD

CREATED BY

SYMBOL (ROSS REFERENCE
SYMBOL

VALUE

$OFILL
$40CAT
. SAV
LSASTA

027165
= wewwer
041640
= 2eneen

.$X

= 001000

MACRO

ON 2-NOV-81 AT 16:13

REFERENCES

#136-5926
#134-5924
#136-5924
#134-5924
#1346-5924
#134-5924
*126=5911
133-5926

#142-6275
137-5930
#49-317

PAGE 21
190
SEQUENCE
CREF

13459264
134-5924
134-5924
134-5924
134-5924

134-5924
#124-5911
135-5926

137-5930
49-3176

134-5924
134-5924
134-5924
134-5924
134-5924
134-5924
124-5911

15
vO1

#134-5924
W#1346-5924
#134-5924
#1346-5924
#134-5924
#134-5924
#124-5911

134-5924
134-5924
134-59264
134-5924
134-5924

134-5924
°34-5924
134~5924
134-5924
134-5924

#134-5924
#134-5924
#134-5924
#134-5924
#134-5924

CZDRLD

CREATED BY

MACRO

ON 2-NOV-81 AT 16:13

MACRO CROSS REFERENCE
MACRO NAME
REFERENCES
#63-3049
COMMEN

POP

PUSH

REPORT

SETPKI
SETTRA

SETUP
SKIP

99-4988
107-5320
118-5763

&HO
—hN

wn
&~

—‘O\OQO*\.JJ\U\OO
1
]
VIV LV LV IV, IV, IV, |

R
I

b b DO

[V L

B
B

b d ad
b

— P\

e B

MSG60
MSG61
MSG62
MSG70
MSG71
MSG710
MULT
NEWTST

#107-5355
#108-5396
#109-5435
#114-5582
#113-5563
#116-5676
A
636
'A
733
” 1
773
;
¥ 1
815
#110-5472
#112-5515
#90-4636
#43-3049
#32-1239
#96-4922
#106-5287
#117-5738
#61-3027
#41-3027
#43-3049
#43-3049
#132-5921
132-5921
#41-3027
#61-3014

MSG55
MSGS50
MSGS6
MSGS7

#106-5281

92-4699
#95-4864
#96-4888
90-4622
#94-4804
#97-4922
#98-4947
99-4972
#93-4771
#100-4999
#101-5025
#102-5058
103-5092
104-5148
105-5203
#106-5245
107-5287
#108-5360

MSG43
MSG44
MSG4S0
MSG46
MSG47
MSG50
MSG51
MSGS52
MSG53
MSG54

J 15

89-4593

MSG4
MSG40

wvywnunau

MSG1

MSG10
MSG2S
MSG26
MSG3
MSG32
MSG340
MSG341
MSG342

#43-3049
#63-3049
#43-3049
#43-3049
#88-4586
#91-4693
#94~4858
#95-4882
#89-4616
#93-4795
#96-4917
#97-4942
#98-4967
#92-4766
#99-6992
#100-5019
#101-505¢
#102-5086
#103-5142
#104-5197
#105-5240

OO0 00NV~

ENDCOM
ESCAPE
GETPR]
GE TSWR

PAGE 22
191
SEQUENCE
vo1
CREF

#113-5522

91-46643

#43-3049
#97-6947
#107-5360
#118-5778
#43-3049
#43-3049

#88-4593
#98-4972
#108-5402
#119-5820
#125-5913
#125-5913

#89-4622
#99-4999
#109-5441

#90-4643
#100-5025
#110-5478

#91-4699
#101-5058
#112-5522

#92-4771
#102-5092
#113-5568

#93-4804
#103-5148
#114-5588

#130-5917
#130-5917

#131-5919
#131-5919

#137-5930
#137-5930

#137-5930

132-5921

132-5%21

132-5921

92-4764
102-5079
109-5431
120-5846

#94-4864
#106-5203
#115-5641

#105-5245
#116-5682

132-5921

97-4938
104-5193
116-5665

98-4963
105-5224
116-5673

#95-4888

CZDRLD

CREATED BY

MACRO

ON 2-NOV~-81 AT 16:13

MACRO CROSS REFERENCE
MACRQO NAME

SLASH
SPACE
STARS

SWRSU
TRACK

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
$SCMRE
gggzz:

SSNEWT

$SSET
$SSETM
$$SKIP

JEQUAT
LEQUIV
.HEADE
.SETUP
.SWRHI

PAGE 23
SEQUENCE
192
CREF

REFERENCES

v01

#63-3049
#41-3007
#61-3027

#43-3049
#42-3037

#42-3047

#43-3049

#44-3054

#45-3079

#46-3103

#47-3122

#48-3144

#48-3148

#61-3508

#61-3517

#61-3519

#61-3528

#61-3530

#62-3591

#63-3603

#63-3619

#64-3660

#64-3666

#48-3158

#65-3677
#70-3811
#75-3923
#79-4226
#86-4314
#89-4593
#94-4804
#99=4972
#104-5148
#109-5402
#115-5588
#120-5820
#127-5915
#139-5935

#463-3049

#48-3162

#65-3683
#70-3816
#75-3931
#79-4231
#B4-4319
#89-4593
#94-4804
#99-4972
#104-5148
#109-5402
#115-5588
#120-5820
#129-5915
#139-5937

#B1-4264

#49-3175

#66-3707
#71-3822
#75-3950
#80-4240
#86-4390
#90-4622
#95-4864
#100-4999
#105-5203
#110-5441
#116-5641
#121~5857
#130-5917
#141-6172

#B1-4264

#49-3176

#66-3712
#71-3828
#75-3956
#B0-4244
WB6-4395
#90-4622
N95-4B64
#100-4999
#105-5203
#110-5441
#116-5641
#122-5902
#131-5919
#141-6174

#41-3010
#100-4999
#110-5641
#132-5921
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#32-1009
#51-3178
:2}-3623

#89-4593
#101-5025
#111-5478

#90-4622
#102-5058
#113-5522

121-5874

122-5902

127=5515
#43-3049

136-5928
122-5902

122-5902

52-3178

#32-1271
#96-4922
#106-5287
#117-5738
#132-5921
#132-5921
#81-4264
#61-3017
99-4988
107-5320
118-5763

#43-3049
#97-4947
#107-5360
#118-5778
#132-5921
#132-5921
#81-4264
#43-3049
100-5001
107-5349
119-5804

#41-3027
#61-3006

#63-3049
#63-3049

#61-3027
#41-3027
#61-3028

43-3049
#461-3029

#43-3049
#43-3049

#41-3032
48-3152
#42-3034

#67-3723
#72-3835
#76-4039
#81-4256
#B7-4399
#91-4643
#96-488E
#101-5025
#106~5245
#111-5478
#117-5682
#123-5909
#132-5921

#49-3176

#67-3728
#72-3847
#76-4043
#B1-4262
#B7-4403
N91-4643
#96-4888
#101-5025
#106-5245
#111-5478
#117-5682
#124~5911
#133-5924

#52-3178

#68-3739
#73-3876
#77-4096
#82-4268
#88-4573
#92-4699
#97-4922
#102-5058
#107-5287
#113-5522
#118-5738
#125-5913
#135-5926

#52-3178

#68-3749
#73-3885
#77-6104
#82-4273
#88-4578
=4699
#97-4922
#102-5058
#4107-5287
#113=5522
#118-5738
@#126~-5913
#136-5928

#52-3178

#61-3504

#69-3775
#74-3899
#78-4210
#83-4297
#88-4581
#93-4771
#98-~4947
#103-5092
#108-5360
#114-5568
#119-5778
#127-5915
#137-5930

#69-3789
#74-3904
#78-4214
#83-4302
#88-4585
#93-4771
#98-4947
#103-5072
#108-5360
#114-5568
#119-5778
#127-5915
#138-5932

#98-4947
#108-5360
#119-5778

#99-4972
#109-5402
#120-5820

#92-4699
#104-5148
#115-5588

#95-4864
#105-5203
#116-5641

N#96-4888
#106-5245
#117-5682

#97-4922
#107-5287
#118-5738

52-3178

#8B-4593
N9B8-4972
#108-5402
#119-5820
#132-5921
#132-5922

#89-4622
#99-4999
#109-5441

#90-4643
#100-5025
#110-5478

#91-4699
#101-5C58
#112-5522

#92-4771
#102-5092
#113-5568

#93-4804
#103-5148
#114-5588

#94-4B64
#104-5203
#115-5641

#95-4888
#105-5245
#116-5682

#132-5921

90-4634

92-4764

93-4793

95-4846

95-4878

96-4890

97-4938

98-4963

109-5423
119-5812

109-5431
120-5846

110-5459

110-5467

112-5513

114-5578

116-5665

116~5673

101-5048

#43-3049

#43-3049
#43-3049

#91-4643
#103-5092
#114-5568

#49-3176

102-5079

#43-3049

#43-3049
#43-3049

103-5133

#43-3049

#43-3049
#43-3049

103-5140

#43-3049
#43-3049

104-5165

#43-3049

#63-3049

104-5188

.
#43-3049
#43-3049

'104~-5193

#43-3049

105-5224

#43-3049
#43-3049

MACRO

=5 VONNDOOOND
—=OW

»
®»
L3 33
d b md ek Y =D £ LN O OS
d e

b e

L X

#35-2113

cd
b e

.SWRLO
LSACT
.SAPTB
.$APTH
.SAPTY
.SCMTA
.SEOP
.$SERRO
.SERRT
.$POWE
. SRDDE
-SRDOC
-SREAD
.$SCOP
.$TRAP
.$TYPB
.$TYPD
.STYPE
.$TYPO

42-3035
#52-3178

L 15

PAGE 24

EQUENCE

CREF

WNWNNIWWN
NN NN O WO N O N

MACRO CROSS REFERENCE
MACRO NAME

ON 2-NOV-81 AT 16:13S

PNOMNOND

CREATED BY

CZDRLD

193

Vo1