Digital PDFs

AH-E780D-MC

April 1982

194 pages

Original

95MB

view download

OCR Version

122MB

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_gray.pdf

OCR Text

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

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

MACRO M1113 02-NOV-81 16:08 PAGE g
-REM

SEQUENCE

)
IDENTIFICATION

PRODUCT CODE:

AC-E779D-MC

PRODUCT NAME:

C<DRLDO DR11

DATE RELEASED:

OCTOBER, 1981

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

DAN P. MILLEVILLE

GEN NPR INTFC

PONININIAI

VIS WA= OO0

NI NN = = e

b e

e e =

NS NN = OV

W) =

CZDRLDO-DR11 GEN NPR INTFC

b o

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

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT COPROPRATION ASSUMES NO

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

DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

;

SEQUENCE

HISTORY

C
D

DATE

NOTE

1977

INITIAL RELEASE
CORRECTION OF CODING ERRORS
11/05 PROBLEM AND ENDLESS LOOP PROBLEM FIXED
11/10 PROBLEM = FAILS TEST & MISTAKENLY
82'!?;5;2%‘ OF CODING PROBLEMS WHEN RUN

1980

1980
1981

(ALL REV_'D' FIXES ARE
HIGHLIGHTED BY ‘':DPMOV1"*
IN THE COMMENT FIELD)

REV

CZDRLDO-DR11 GEN NPR INTFC

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

ADDITION OF CODE TO CHECK THE POWER
MONITOR BIT OF THE CPU ERROR REGISTER,
IF ONE EXISTS.
CHANGED AUTOSIZE ROUTINE TO PROMPT USER
FOR DEVICE ADDRESS IF NON-OPTION MANUFACTURING ENVIRONMENT (IF OPTION MANF.,
SIZING OCCURS AS BEFORE), AND (IF MODULE
;a}(L”Su;e INTERRUPT) ITS VECTOR AND

MACRO M1113

02-NOV-81 16:08

)
PAGE &

SEQUENCE

TABLE OF CONTENTS

1.0

ABSTRACT

2.0

REQUIREMENTS

2.1
2.2
2.3
3.0

EQUIPMENT
HARDWARE SWITCH SETTINGS
STORAGE

TESTING MODES

3.1
3.2

DEFINITION
IMPLEMENTATION

4.0

LOAD AND START PROCEDURE

5.0

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

7.0

OPERATING MODES

8.0

AUTO MODE
RESTART AFTER PREVIOUS RUN
TESTING UNDER APT

MANUAL
7.1.1
7.1.2
7.1.3
7.1.4

SHwro

7.1

NN~

6.0

CZDRLDO-DR11 GEN NPR INTFC

MISCELLANEOUS

8.1
8.2
9.0

MODE
EDIT FUNCTION
LIST FUNCTION
BURST CALIBRATION FUNCTION
RUN FUNCTION

POWER FAIL
END-OF-PASS MESSAGE SFECIAL FEATURE

EXECUTION TIMES

PRI RCIES,

10.0

111

};8

}%}
123
124
125

10.16
10.17
10.18
10.19

CATCH
PSTATE
PNTPRI
SETTUP

10.20

11.0

FIXTBL
LODBUF
CHKBFF
INTA
DATCHK
CLENUP

10.13
10.14
10.15

115
116
117
118

READ
ERCAPT

CHKCAB
DATOCK
ERRCHK
BPINIT
DRGET
TYPCNF

10.12

114

SEQUENCE

SUBROUTINE DESCRIPTIONS
10.1
10.2
10.3
10.4
10.5
10.6
10.7
10.8
10.9
10.10
10.11

112
113

ASIZE

TSTMM

DATA STACKS
11.1

11.2
11.3

PATRNS

EXPATO
EXPAT1

o————————

98
99
100
101
102
103
104
105
106
107
108
109
110

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

Qe et

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113
1.0

02-NOV-81 16:08

PAGE 6

ABSTRACT

gWWWWWWNNNN
VS WN—=O 0o~

CZDRLDO-DR11 GEN NPR INTFC

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:
1.

2.
2.
.

APT11/XXDP COMPATIBLE

MULTIPLE BOARD TESTING USING TABLE CREATED BY USER
BURST DATA LATE CALIBRATION
INDEPENDENT 'LOGIC WRAP-AROUND' AND 'CABLE WRAP-AROUND' TESTING

SEQUENCE

MACRO M1113 02-NOV-81 16:08 PAGE 9
2.0

2.1

e
D
D
o
D e

SEQUENCE

EQUIPMENT
1.

PDP11

LOOP BACK CABLE

2.
3.

2.2

STANDARD COMPUTER

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

DIAGNOSTIC)

(NEEDED TO FULLY CHECK THE MODULE WITH THIS

HARDWARE SWITCH SETTINGS
THE ADDRESS SELECTION SWITCH, E120,

IS SET UP AS BELOW:

d e

EXAMPLE:

D e

ADDRESS BITS:

REQUIREMENTS

D e

ggmmmm\l\J\l\l\J\I\JNNNOOOOOOOOOOMMmMMMMMWWbbbbbbbbbbwww
W= OV NOVNSA W =O VNN
WN=OVONOT VNS W
—=OVONO NS WN—=OVo~N

CZDRLDO-DR11 GEN NPR INTFC

THIS SWITCHPACK MUST BE IN THE FOLLOWING

VIS
AN
=

D
b
D e
d

- OFF
ON
OFF
OFF
ON FOR =W MODE, OFF FOR =B MODE

d o

SINGLE SWITCH NEAR THE E105 SWITCHPACK:

2 CYCLE MODE = SWITCH HANDLE TOWARDS PACK E105

d e

N CYCLE MODE - SWITCH HANDLE TOWARDS E94

D e

THE VECTOR SELECTION SWITCH, E15,

IS SET UP AS BELOW:

d e

1112:314:165:16:7.:8:

D e

VECTOR BITS:

EXAMPLE:

2.3

DEVICE ADDRESS 172410, SWITCHES 1, 3, 5 & 10 SHOULD BE
OFF, AND ALL OTHERS SHOULD BE ON.

THE E105 SWITCHPACK:

d d =D

POSITIONS TO RUN THIS DIAGNOSTIC:

d
b e
d
—d

VECTOR ADDRESS 300, SWITCHES 6 & 7 SHOULD BE

OFF, AND ALL OTHERS SHOULD BE ON.

STORAGE
THE PROGRAM USES APPROX.

56000 WORDS OF MEMORY

W) =

)¥ P

V0O NO NS

i i Y-

INSUSLSTSTNTNT
NI NTNTN

NNNNARNNLS

—_—)
Do

BRIREREC2ETEIR

CZDRLDO-DR11 GEN NPR INTFC

0
221
222

MACRO M1113

02-NOV-81 16:08

3.0

TESTING MODE

3.1

PAGE 8

SEQUENCE

DEFINITION
THE DR11-W DIAGNOSTIC ACCOMPLISHES DEVICE REGISTER BIT TESTS

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

:
;

AROUND CABLE IN J1 AND J2, PROVIDES EXTERNAL ‘‘CABLE"’ URAP-AROUND
TESTS.

IN ORDER TO FULLY CHECK THE MODULE, THE DIAGNOSTIC MUST

BE RUN WITH AND WITHOUT THE WRAPAROUND CABLE IN PLACE, RESTARTING
AT _ADDRESS 200 EACH TIME, OR EDITING TO CHANGE THE CABLE MODE
(SEE SECT. 7.1.1)
THERE ARE ONLY TWO LEGAL MODES OF OPERATION OF

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:

2.
3.2

DR11

CONNECTED TO ANOTHER DR11.

DR11 CONNECTED TO A USER DzVICE.

IMPLEMENTATION
DEVICE REGISTER BIT TESTS AND INTERNAL LOGIC WRAP-AROUND TESTS

ARE EXECUTED UNCONDITIONALLY.

CABLE WRAP-AROUND TESTS ARE

EXECUTED ONLY IF THE BCO6-R CABLE IS IN PLACE BETWEEN THE J1
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*

VERIFY THAT THE ‘'SIZING'' OCCURRED CORRECTLY BY OBSERVING THE
QUTPUT OF THE PROGRAM WHEN STARTING AT 200. (REFER TO SECTION
5.1 FOR EXAMPLE)
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).

R
N -t W

NN
PN
Voo~NONS W

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113 02-NOV-81 16:08 PAGE 5
4.0

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

S LAS TS AT S N1, NT.¥ ]
WWWWWWWW
NOWNSWN=O

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

;

02-NOv-81 16:08

PAGE 10

5.0

SWITCH REGISTER

5.1

OPTIONS

SEQUENCE

SWITCH

OCTAL

FUNCTION

Sw15=1

100000

HALT ON ERROR

238

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

SW14=1

040000

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

SW13=1

020000

INHIBIT ERROR TYPEOUTS
THIS WILL CAUSE ERROR TYPEOUTS TO BE INHIBITED.

010000

100X AUTOSIZE MODE
THIS IS 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.

SW11=1

004000

TEST NUMBER TRACE ENABLING
THIS ENABLES THE PRINTING OF
THE BEGINNING OF EACH TEST:

THE FOLLOWING AT

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

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

SW10=1

002000

BELL ON ERRCR
THIS FUNCTION CAUSES THE TERMINAL BELL TO SOUND
WHEN AN ERROR OCCURS.
THIS CAN BE USED IN CON-

JUNCTION 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 ERRCR.
IT
CAN BE USED IN CONJUNCTION WITH INHIBIT-ERRORTYPEQUTS WHEN USING A SCOPE TO FIND A FAULTY

COMPONENT.

e———

258

Sw12=1

NOAWN
S W -

wvivvwnawnnaWniun

STSTNT
NT NI ST, N

250

CZDRLDO-DR11 GEN NPR INTFC
%gg

MACRO M1113

02-NOV-81 16:08
SW08=1

PAGE 11

583
-%8?

302
303
304
305
306
307
%83

Nt e e

e le BNTa AR P

e = ed

b el =

Wi N B

WWWWWWWWW

310

LOOP OM TEST IN SWR<6:0>

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) IN THE SWR ONCE

%g;

296
297

SEQUENCE

000400

286
287
288
289
290

%32
295

THE TEST IS EXECUTING.

Swo7=1
.

000200

INHIBIT MULTIPLE ERROR TYPEOUTS

ON ERROR CALLS 'N LOOPS WHERE MULTIPLE ERRORS
ARE POSSIBLE, THIS FUNCTION INHIBITS ANY ADDITIONAL DATA THAT MAY PRINT IN THAT LOOP.

EXAMPLE :

MULTIPLE TYPEOUTS ENABLED:

CERROR MESSAGEJ]
[DATA HEADER]
XXXXXX XXXXXX
XXXXXX XXXXXX
XXXXXX XXXXXX
XUXXXX XXXXXX
XXXXXX XXXXXX

XXXXXX
XXXXXX
XXXXXX
XXXXXX
XXXXXX

>>>>>>NOTE<<<<LL
A MAXIMUM OF 17 (OCTAL) DATA LINES WILL

PRINT.
IF 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:

320
321
%g%

CERROR MESSAGE]
[DATA HEADER]
XXXXXX XXXXXX XXXXXX

324
325
326

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

XXXXXX

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

ggg

L 1
PAGE 12

02-NOV-81 16:08
5.2

329
330

331
332

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.

ggz "

‘

5.3

LOADING THE SOFTWARE SWITCH REGISTER

337
338
gzg

THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOf TWARE
SWITCH REGISTER (LNCATION 176) FROM THE TTY.
THIS IS ACCOMPLISHED AS FOLLOWS:

341

347
%23

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

%g?

AFTER THE °"NEW=' THE OPERATOR CAN DO ONE OF THE FOLLOWING:

342
343
344
gzg

352
353
354
355
ggg

371

372
373
374

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.

.
B.

gg}
363
364
365
366
367
368
369
370

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

358
ggg
5.4

SOF TWARE SWITCH REGISTER

g%g

SEQUENCE

TYPE A NUMBER TO BE LOADED INTO LOCATION 176 FOLLOWED BY A <CR>
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED).
IF A <CR> IS THE FIRST ENTRY THE SOFTWARE SWITCH REGISTER WILL
NOT BE CHANGED.
,

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

TO STEP 2.

PROGRAM AND/OR OPERATOR ACTION
LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN
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 1S MORE
THAN ONE ERROR CALLED IN A TEST, AND YOU WISH TO LOOP ON
OTHER THAN THE 1ST ERROR,

YCU MUST CORRECT THE CONDITION

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.

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

g;z
377
%;g

380
381
382

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.

CZDRLDO-DR11 GEN NPR INTFC

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 THE DIAGNOSTIC.
THIS MODE IS INTENDED FOR USE IN MANUFACTURING WHEN APT IS

NOT AVAILABLE.

IN MANUAL MODE, ALL DR11-W HARDWARE MODULES +*MUST+BE+(ONF IGURED*

*AS*FOLLOWS*:

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

> 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 TO 770)

> THE MODULE WITH THE 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

b cd

419

ADDRESS, ETC.

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 OFFER °‘BURST
DATA LATE' CALIBRATION.
AFTER LOADING PROGRAM, DEPOSITING
SA 204, AND PRESSING START, THE PROGRAM TYPES THE FOLLOWING:
MULTIPLE BOARD DIALOGUE

ENTER COMMAND (CEIDIT, CLJIST, [BIURST CALIBRATION, [RIUN):
THE PROGRAM WILL ALLOW ONLY 1 CHARACTER INPUT, AUTOMATICALLY
PRINTING A <CRLF> WHEN THE CHARACTER IS INPUTED.

CZDRLDO-DR11 GENM NPR INTFC

MACRO M1113

02-NOv-81 16:08
7.1.1

PAGE 15

SEQUENCE

WHEN C[E] IS ENTERED, THE PROGRAM ENTERS THE EDIT FUNCTION
*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
PROMPT, TYPE <ESC>.

"EDIT" RESPONDS FIRST BY PRINTING:
# OF BOARDS UNDER TEST

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

STARTING DEVICE ADDRESS

THE USER SHOULD RESPOND WITH THE LOWEST DEVICE ADDRESS

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

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

STARTING VECTOR ADDRESS

THE USER SHOULD RESPOND WITH THE LOWEST VECTOR ADDRESS

IN THE SERIES. _PROGRAM_ACCEPTS A MAXIMUM OF 3 OCTAL
DIGITS BETWEEN 300 AND 777. AN APPROPRIATE ERROR

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

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> IF
PRESENT VALUE IS OK.

DEVICE PRIORITY PRESENT LEVEL = X :

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

2 OR N CYCLE BURST (2 CY=0) PRESENT STATE = X :
PROGRAM ACCEPTS A 0 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 0 OR 1,

REPEATING THE PROMPT IF ANY

OTHER CHARACTER IS INPUTED.
VALUE IS OK.

ENTER <CR> IF PRESENT

THEN THE COMMAND PROMPT IS REPRINTED.

CZDRLDO-DR11 GEN NPR INTFC
486
487
488
489
490
9
492
493
494
495
496
497
498
499
500

MACRO M1113

02-NOv-81 16:08
7.1.2

¢ 2
PAGE 16

SEQUENCE

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

START

BOARDS

REGADR

VECADR

XXXXXX

XXX

2=N

CABLE
X

w-8

P-LEV

CYCLE

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

EXPECTED W=B, PRIORITY LEVEL, 2-N CYCLE AND CABLE TEST
STATES WILL BE THE SAME FOR ALL MODULES.

TESTS

02-NOV-81 16:08
7.1.3

D_2
PAGE 17

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

DEVICE #

0 UNDER CALIBRATION

NONIN) = b b e ed d b d ek
W = OVONOWNSWN—=O

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

i VIV

WILL BE RETURNED IF THIS IS THE CASE.
AS STATED IN
THE DR11 ENGINEERING SPECIFICATION, THE °‘BURST DLT'
MULTIVIBRATOR TIME OUT MUST BE CALIBRATED SO AS TO BE
COMPATIBLE WITH THE USER DEFINED TRANSFER RATE IN
BURST MODE OPERATION.
THE PROGRAM 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:

DEVICE #

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:

BURST CALIBRATION COMPLETE
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.

e S

St Aemsanies

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.

————

MACRO M1113

CZDRLDO-DR11 GEN NPR INTFC

vV ivivphwvivioanau v
v v
e £H
CONOWVS WO oo~

CZDRLDO-DR11 GEN NPR INTFC

559

MACRO M1113

'
02-NOV-81 16:08
7.2

E 2
PAGE 18

SEQUENCE

AUTO-SIZE MODE (STARTING ADDRESS = 200)
THIS MODE IS THE NORMAL FIELD SERVICE MODE.

IT SUPPORTS

S;AggskO?Eug?sgATION AS WELL AS SCRIPT OPERATION UNDER ACT11
THE DR11 DIAGNOSTIC HAS THE FOLLOWING RUN CHARACTERISTICS WHEN
OPERATING IN AUTO MODE:
A.

THE PROGRAM WILL TEST THE BOARDS RECOGNIZED BY THE AUTOSIZE
ROUTINE.
THE AUTOSIZE ROUTINE WILL 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+0PT
IONS * THAT *COULD *BE *MI STAKENL Y *AUTO-+

*SIZED*IN*THE*160010%TO*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.

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

CONF IGURATION BY KNOWING HOW THE BOARDS ARE SET UP AND

COMPARING WITH THE AUTOSIZE OUTPUT WHEN STARTING AT 200.
AUTO-SIZING WILL DETERMINE THE INTERRUPT PRIORITY, INTERRUPT VECIOR (ONLY IF THE BOARD INTERRUPTS PROPERLY),
W/B,

2/N CYCLE, AND CABLE STATES OF EACH BOARD, INDEPENDENT OF
THE STATES OF OTHER BOARDS.

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

F 2
PAGE 19

02-NOV-81 16:08
B.

SEQUENCE

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

BURST DATA LATE CALIBRATION

MULTIPLE BOARD DIALOGUE

THE DIAGNOSTIC WILL PRINT ONE OF

THE FOLLOWING:

I) DO YOU WISH TO RELOAD THE TABLE (Y OR <CR>) ?
OR

11)

INPUT DEVICE

X STARTING ADDRESS (<CR> IF NO MORE) ?

IF 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 ADD?ESSES.
IF
THE DIAGNOSTIC MAS NOT BEEN RUN, IT WILL BYPASS PRINTING I)
AND PROMPT II) 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 1) PROMPT, THE
S??YSNREE$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 INTFC

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

SEQUENCE

THE CONTROL X (“X) FEATURE BYPASSES THE SECTIONS THAT PRINT THE
END=OF =PASS AND END-OF=DEVICE MESSAGES.
THIS IS TO IMPROVE THE
NUMBER 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

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.

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

02-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
BOQRD 4
X

PAiS #
X

ERR

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
WHEN THE DATA IS PRINTED,

THE STACK IS REINITIALIZED AND WILL

START STORING UP TO ANOTHER 150 ERROR DATA LINES.

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

MEMORY OR BATTERY BACKUP, RESTART THE PROGRAM AT THE ADDRESS
SPECIFIED BY THE °‘UNIBUS HUNG...' PROMPT AT THE START OF THE
DIAGNOSTIC.
THE PRINTOUT WILL BE AS FOLLOWS:
DEVICE ADDRESS = XXXXXX,

TEST NUMBER = XXXXXX, PASS NUMBER = XXXXXX

CPU WILL HALT.
HITTING CONTINUE WILL CAUSE THE PROGRAM TO
RESTART AS THOUGH YOU HAD STARTED AT 200.

CZDRLDO-DR11 GEN NPR INTFC

g;z

675
2;9

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

7.3

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:

678
ggg

~ 1.
2.

ANOTHER PROGRAM IS LOADED INTO MEMORY
THE USER RE-EDITS THE TABLE

681
682
683
ggg

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
gaASQQSTIC HAS NOT BEEN PREVIOUSLY ''STARTED'' AT EITHER 200

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113
7.4

02-NOV-81 16:08

J_ 2
PAGE 23

TESTING UNDER APT

SEQUENCE

(AUTOMATED PRODUCT TESTING)

TO SET UP FOR MULTIPLE BOARDS FOR TESTING UNDER APT CONTROL,
THE APT SYSTEM MANAGER SHOULD ANSWER THE APT QUERIES TO THE
FOLLOWING ITEMS AS INDICATED BELOW:

SOF TWARE ENVIRONMENT:

000 - DUMP MODE
001 = SCRIPT MODE (APT MONITORS
DIAGNOSTIC)

ENVIRONMENT MODE (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

STANDALONE MODE)

200 = DIAGNOSTIC MUST USE CONF IGURA~
TION SPECIFIED BY APT (SVECT1,
$BASE, SDEVM, $DDWX)
VECTOR ADDRESS (SVECT1):

300

DEVICE ADDRESS (SBASE):

172410

DEVICE MAP (SDEVM):

XXXXXX = EACH Scl BIT INDICATES THAT
BOARD IS PRESENT AND SHOULD
BE TESTED. EXAMPLES:

BIT 0 = BOARD #0 (DEVICE ADR = 172410, VEC ADR = 300)
BIT 1 = BOARD #1 (DEVICE ADR = 172420, VEC ADR = 310)
BIT 2 = BOARD #2 (DEVICE ADR = 172430, VEC ADR = 320)

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

XXXXXX = THERE IS 1 DESCRIPTOR WORD

UNTIL THE CPU

FOR EACH DEVICE:

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

BIT O - ?R11-UBO?).B MODE
BIT 1 - 2/N CYCLE
(0=2 CY, 1=N CY)

BIT 2 - CABLE tésrs
o

817
BIT

(oNO, 1=YES)

> DEVICE PRIORITY

—————————

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113
8.0

(02-NOV-81

16:08

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

THE DIAGNOSIC WILL THEN RESTART AT ADDRESS 210.

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.

RESTART THE PROGRAM, HIT CONTINUE, AND THE REMAINING

PROCEDURE

IS THE SAME AS ABOVE.

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113 02-NOV-81 16:08 PAGE 55
8.2

SEQUENCE

END=OF =PASS MESSAGE
THE EOP WILL PRINT ONCE EVERY 20 SECONDS, APPROXIMATELY (17
SECONDS ON AN 11/44), AS FOLLOWS WITH NO ERRORS ON THAT PASS:
END PASS # XXXXXX
THE EOP WILL PRINT AFTER 64 DEVICES HAVE BEEN TESTED.

IS ONLY 1 MODULE, THE EOP WILL PRINT AFTER 64 PASSES.
16 MODULES, THE EOP WILL PRINT AFTER ONLY & PASSES.

THERE

WITH

;gslggP WILL PRINT AS FOLLOWS WITH SOME ERRORS WHEN TESTING 1

END PASS # XXXXXX

TOTAL ERRORS THIS PASS ALL MODULE(S) XXXXXX

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
THAN LIKELY BE INCORRECT.

THE PASS NUMBER IS CAPABLE OF GOING UP TO 99,999,999 DECIMAL,

OR ABOUT 3 MONTHS RUNNING WITH EOP DISABLED AND NO ERRORS.
IN
OTHER WORDS, 32767 IS NOT THE LIMIT AS WITH OTHER DIAGNOSTICS.

i CZDRLDO=DR11 GEN NPR INTF(C

MACRO M1113

02-NOv-81 16:08

PAGE 26

SEQUENCE

;gg

EXECUTION TIME

784

ON A PDP11/44:

786

IN ALL MODES: APPROXIMATELY 64 DEVICE PASSES IN 17 SECONDS, ALL MODES.

785

' CZDRLDC-DR11 GEN NPR INTF(
787
788
789
790
791
79
79

MACRO M1113
10.0

(02-NOv-81 16:08

N_2

PAGE 27

SEQUENCE

SUBROUTINE ABSTRACT.
10.1

READ

THE READ SUB‘OUTINE IS USED IN THE EDIT ROUTINE TO INPUT UP TO

6 DIGITS IN OCTAL, 2 DIGITS IN DECIMAL, OR A SINGLE NONNUMERIC CHARACTER.
R4 IS USED AS THE LOCATION TO HOLD THE
NUMBER IN OCTAL, AND IS CLEARED FOR THAT PURPOSE AT THE START
OF THE SUBROUTINE. R3 IS TO BE PRELOADED WITH THE NUMBER OF
DIGITS EXPECTED, SINCE A <CRLF> IS PRINTED WHEN THE LIMIT IS
REACHED.

ENTERING A <CRLF> BEFORE THE LIMIT IS ACCEPTABLE, AS

IT WILL BE INTERPRETED AS A NON-NUMERIC CHARACTER AND EXIT.
IN ANY CASE, THE LAST INPUTED ASCII CHARACTER IS LEFT IN LOCATION "ANSWER'.

IF A NUMERIC CHARACTER IS INPUTED, IT WILL

10.2

ERCAPT

THIS SUBROUTINE SAVES THE UNIT NUMBER, PASS NUMBER AND TOTAL

) —h

0o
00 0o 0o 0o 0o 00 0oCo
b
b

CLEAR ALL BUT THE 1ST 4 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 TO BE LOADED WITH THE _LARGEST ASCII NUMBER DIGIT
ACCEPTABLE FOR THIS NUMBER, I.E. 7 OR 9 (FOR OCTAL OR DECIMAL
INPUT RESPECTIVELY). ANY CHARACTER OUTSIDE ASCII '0' OR '7/9°
{zofzi?}fb AS A NON-NUMERIC, TRIGGERING AN AUTOMATIC <CRLF>

O~V

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

—

ING ERRORS IS LOST.

10.3

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.

10.4

LODBUF

THE INBUF BUFFER IS LOADED WITH AN INCREMENTING PATTERN
(0,1,2.3,...) BEGINNING AT THE STARTING ADDRESS OF INBUF.

THE

NUMBER OF WORDS LOADED IS DETERMINED BY THE CONTENTS OF BUFLEN.

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113 02-NOV-81 16:08 PAGE 38 3
10.5

SEQUENCE

CHKBFF
THE CHKBUF BUFFER IS LOADED WITH A MODIFIED INCREMENTING PAT-

TERN (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
ALTERNATING DATI-DATO SEQUENCE OF OPERATION.
10.6

INTA
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 ZERO.
THE CORRECT
CONTENTS OF THE BAR ARE CALCULATED AND CHECKED.
THE PROGRAM
WILL FAIL TO UPDATE THE PC RETURN ADDRESS BY 2 IF ERROR IS SET,
READY IS CLEAR,
READY AND ERROR ARE CLEAR OF THE 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
IS ACCEPTABLE, THE PC IS UPDATED, AND THE RETURN FROM THE SUB-

ROUTINE

10.7

IS AFTER THE ERROR CALL.

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 (OMPARISONS 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.

10.8

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

CHKCAB
THIS ROUTINE

IS USED IN VARIOUS 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 AFER THE JSR IS CALLED.

NO ERRORS, RETURN IS ALTERED TO JUST AFTER THE SECOND ERROR CALL.

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113 02-NOV-81 16:08 PAGE 59
10.1

SEQUENCE

ERRCHK
THIS ROUTINE CLEARS IE AND UPDATES THE PC FOR RETURN AFTER THE

ERROR IN THE TEST IF ERROR IS CLEAR,

IF SET, RETURN IS EXECU-

TED WITHOUT UPDATING THE PC RETURN SO THE ERROR CALL AFTER THE
JSR CALL IN THE TEST WILL BE CALLED.

10.12

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

10.13

DRGET
THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR17 WHOS ADDRESS
WAS INPUTED AND LOADS THE ACCUMULATED DATA INTO THE DEVICE

DESCRIPTOR WORD FOR THAT BOARD.

10.14

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(ESS 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

———e

———— .

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.

MACRO M1113 02-NOV-81 16:08 PAGE gO
10.16

SEQUENCE 29

CATCH

THIS ROUTINE REPORTS UNEXPECTED OR ERRONEOUS TRAPS OR INTER-

RUPTS THROUGH THE BREAK=POINT=TRAP LOADED IN LOCATIONS 4=776.
THE STACK IS CLEANED 4 TIMES BEFORE THE ERROR CALL, AND

SES}ggngxglCE AFTER THE ERROR CALL FOR RETURNING TO THE SOURCE
10.17

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

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 1S DONE.
IF EITHER OR BOTH ARE SET, THE UPPERP 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 0O, 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.

e s —————

CZDRLDO=-DR11 GEN NPR INTFC

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113 02-NOV-81 16:08 PAGE §1 3
11.0

SEQUENCE

DATA STACK
1.1

PATRNS

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

11.2

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

11.3

EXPAT1
THIS SET OF DATA WORDS IS USED IN TEST 3 TO CHECK ALL POSSIBLE

COMBINATIONS OF SET BITS IN THE CSR WITH THE MAINTENANCE BIT
SET.
IT CONTAINS THE EXPECTED DATA THAT THE CSR SHOULD CONTAIN

AFTER THE BIT COMBINATION IS WRITTEN TO THE CSR.

wad
——
———————. | —————— e — —

CZDRLDO-DR11 GEN NPR INTFC
977
978

MACRO M1113
)

02-NOV-81 16:08

.NLIST

MC,MD,CND

.3
PAGE 32

SEQUENCE

CZDRLDO-DR11 GEN NPR INTFC
3032

MACRO M1113

02-NOV-81 16:08

G 3
PAGE 41

.TITLE CZDRLDO-DR11 GEN NPR INTFC
;*COPYRIGHT (C) 1981

;*DIGITAL EQUIPMENT CORP.
*HAYNARD MASS. 01754

tPROGRAH BY DAN MILLEVILLE

*THIS PROGRAM WAS ASSEMBLED USING
THE1837-11 MAINDEC SYSMA(
'PACKAGE (MAINDEC-11-DZQAC=C5),
2

SEQUENCE

CZDRLDO-DR11 GEN NPR _INTF(

OPERATIONAL SWITCH SETTINGS

3034

MACRO M1113

02-NOV-81 16:08

.SBTTL

Hd
Hd
Hd
i
i
Hd
i

15
14
13
12
10
9
8

3037

RN RN

3039
3040
3041
3042
3043
3044
3'5822

%
A
;8
e
H
;e
A

3038

3047

SEQUENCE

USE

SWITCH

------

PAGE 42

OPERATIONAL SWITCH SETTINGS

%gg

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
100% AUTOSIZE
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<6:0>

INHIBIT MULTIPLE ERROR TYPEOUTS

AR AN ACARNRARAANAAAAAAAAAAA
AR AR AR,

P32333335533337
1) | TLLLLLLLLLLLL L L L4

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
THE OUT=0F=-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.

S 2223322223222 2 3322222223232 23 3333333332383 2232322222230 2202R000 00

CZDRLDO-DR11 GEN NPR INTFC
BASIC DEFINITIONS

3049
001300
104000
000004

MACRO M1113

02-NOV-81 16:08

1.3
PAGE 43

.SBTTL

BASIC DEFINITIONS

STACK=

1300

HT=

SEQUENCE

;*INITIAL _ADDRESS OF THE STACK POINTER ##xx 1300 w##«
ERROR=EMT
SCOPE=]0T
;*MISCELLANEOUS DEFINITION°

LF=
CR=
CRLF=
PS=

:CODE FOR HORIZONTAL TAB

12
15
200
$§7732

..CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
:CODE FOR CARRIAGE RETURN=-LINE FEED
:;PROCESSOR STATUS WORD

STKLMT= 177774
177772
177570
DSWR=
DDISP= 177570

:2STACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
,.HARDHARE SWITCH REGISTER
ARDWARE DISPLAY REGISTER

PIRQ=

:*GENERALX0 PURPOSE REGISIER
DEF INITIONS
:GENERAL REGISTER

RO=

R1=

000007

000000
000040
000100

..GENERAL REGISTER

R2=

) ¥4

: sGENERAL REGISTER

PC=

¥4

PROGRAM COUNTER

R3=
R4=
RS=
R6=
R7=
SP=

%3
3
x5
X6
X7
%6

: :GENERAL REGISTER
: sGENERAL REGISTER
:;GENERAL REGISTER
: :GENERAL REGISTER
: ;GENERAL REGISTER
..STACK POINTER

;*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR2=
PR3=
PR4=
PRS=
PRé=
PR7=

0
40
100
140
200
240
300
340

::PRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
::PRIORITY
..PRIORITY
PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

-+"'SWITCH REGISTER'' SWITCH DEFINITIONS

SW15=

SWié=
SWwi13=
SWwi2=
SW11=
SW10=
SWw09=
SW08=
Sw07=
SW06=

SW05=
SW04=
Sw03=
SW02=
SWwo1=
SWoo=

0007100

100000

40000
20000
10000
4000
2000
1000
400
200
100

4(C
20
10
4
2
1
SW9=Sw09
SW8=Sw08
SW7=SW07
SW6=SW06

0
1
2
3
4
§
6
7

CZDRLDO-DR11 GEN NPR INTFC
BASIC DEFINITIONS

000001
100000

MACRO M1113

02-NOV-81 16:08

SW5=SW05
SW&=SW04
SW3=Sw03
SW2=Sw0?2
SW1=Sw01
SW0=SwW00
;*DATA 8{5 DESINITIONS (BITOO TO BIT15)
BIT15=
000
BIT14= 40000
BIT13=
20000
B8IT12= 10000
BIT11= 4000
BIT10= 2000
8I1709= 1000
BITO8= 400
BITO07= 200
BITO6= 100
BIT05= 40
BITO4= 20
BIT03= 10
BIT02= &
BIT01= 2
BIT00= 1
BIT9=BIT09
BIT8=BIT08
BIT7=BIT07
BIT6=BIT06
BITS5=BITOS
BIT4=BIT04
BIT3=BIT03
BIT2=BI1T02
BIT1=BITO01
BIT0=BI T00
;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
ERRVEC= &
RESVEC=
10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14

IOTVEC= 20

PWRVEC= 24

EMTVEC= 30
TRAPVEC=34

000300

J_ 3
PAGE 43-1

TKVEC= 60
TPVEC= 64
PIRQVEC=240
BUSERR =ERRVE(C
ABASE
=172410
AVECT1
=300

TIME OUT AND OTHER ERRORS

..R;SEQYED AND ILLEGAL INSTRUCTIONS
::TRACE TRAP
: :BREAKPOINT TRAP (BPT)
;s INPUT/QUTPUT TRAP (IOT) *+SCOPE*=
: ;POWER FAIL
: ;EMULATOR TRAP (EMT) #*ERROR*+
:: 'TRAP'' TRAP

*STTY KEYBOARD VECTOR
SSTTY PRINTER VECTOR

* *PROGRAM INTERRUPT REQUEST VECTOR

;BASE DEVICE ADDRESS
:BASE VECTOR ADDRESS

SEQUENCE

CZDRLDO-DR11 GEN NPR INTFC

DEFINITIONS OF THE CSR BITS

3053
305‘

3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
066
3067
3069
3070
3071
3072
3073
3074
3075
3076
3077

MACRO M1113

02-NOV-81 16:08

K 3
PAGE 44

.SBTTL

DEFINITIONS OF THE CSR BITS

=1
=2
<4
=10
=16
=20
=40
=100
=200
=400
=400
=1000
=2000
=4000
=6000
=5000
=3000
=7000
=10000
=20000
=40000
=100000
=100000

;60
sFNCT]
:FNCT%
sENCT
sFNCTT & FNCT2 B FNCT3
;XBA16
:XBA17
;1E
sREADY
sCYCLE
:2/N BIT
;DSTAT C
;DSTAT B
;DSTAT A
;DSTAT A E B
;DSTAT A & C
;DSTAT B & C
DSTAT
AEBEC
;MAINT
;ATIN
:NEX
:EIR
;ERROR

::Qttt.ttt'tt't‘.'.QQ..t."t'tt'.'titittttttt.'.t."t.t..'ttfi.'.t't

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

GO
F1
F2
F3
FNC
X6
X7
1E
RY
cy
N2
DSC
DSB
DSA
DAB
DAC
DBC
DST
MA
AT
NX
EIR
ER

SEQUENCE

CZDRLDO-DR11 GEN NPR INTFC

CSR BIT COMPLIMENT DEFINITIONS

30;8

3080

177776

MACRO M1113

CGO

02-NOv-81 16:08
.SBTTL

L_3
PAGE 45

SEQUENCE

CSR BIT COMPLIMENT DEFINITIONS

=177776 ;COMPLIMENT OF GO

3081

177775

CF1

=177775 ;COMPLIMENT OF FNCT1

3083
3084

177767
177761

CF3
CFNC

=177767 ;COMPLIMENT OF FNCT3
=177761 ;COMPLIMENT OF FNCT1 & FNCT2 & FNCT3

3082

177773

3085
3086
3087

177757
177737
177677

3093
3094

171777
172777

3088
3089
3090
3091
2092
3095

3096

3097

3098
3099
3100
3101

CF2

Cxé
cx7
CIE

=177757 ;COMPLIMENT OF XBA16
=177737 ;COMPLIMENT OF XBA17
=177677 ;COMPLIMENT OF IE

CDAB
CDAC

=171777 ;COMPLIMENT OF DSTAT A £ B
=172777 ;COMPLIMENT OF DSTAT A & C

177577
177377
176777
175777
173777

CRY
ccy
CDSC
(DSB
(DSA

174777

CDBC

167777

CMA

170777

157777
137777

077777
077777

=177773 ;COMPLIMENT OF FNCT?

CDST
CAT
CNX

CEIR
CER

=177577
=177377
=176777
=175777
=173777

;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT
;COMPLIMENT

OF
OF
OF
OF
OF

READY
CYCLE
DSTAT C
DSTAT B
DSTAT A

=174777 ;COMPLIMENT OF DSTAT B & C

=170777 ;COMPLIMENT OF DSTAT A E B & C
=167777 ;COMPLIMENT OF MAINT

=157777 ;COMPLIMENT OF ATTN
=137777 ;COMPLIMENT OF NEX
=77777
=77777

;COMPLIMENT OF EIR
;COMPLIMENT OF ERROR

Pr——ee
e

—

02-NOv-81 16:08

.SBTTL

n3
PAGE 46

SEQUENCE

COMPLEMENTS OF BIT DEFINITIONS

077777
057777

B
b
B
B
B

sCOMPL IMENT
s COMPL IMENT
s COMPL IMENT
;COMPL IMENT
s COMPL IMENT
;COMPL IMENT
sCOMPL IMENT
s COMPL IMENT
s COMPL IMENT
s COMPL IMENT
s COMPL IMENT
s COMPL IMENT
s COMPL IMENT
;COMPL IMENT
7777 ;COMPL IMENT
777
;COMPL IMENT
s COMPL IMENT

VIS
NN - O

157777
137777

CBIT1

177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777

CBITO

e B

177776

177775

ey & —e

CCRRARRARARAARAAANAAAANANRRANNARANAANARAARAANRANORNARANNARRORAROAIROERNS

e et b

el
il
il
i
D
il
il
e
e

—

Nt
BB D
b s 2 OO O
OOV NO NS W
2OV~

N NN NN NN N N N N NN N N N NN

SARER

| CZDRLDO=-DR11 GEN NPR INTF(
COMPLEMENTS OF BIT DEFINITIONS

MACRO M1113

€ BIT

(
IDRLDO =DR11

GEN NPR INTF(

MACRO M1113

" PRIORITY LEVELS AND OTHER DEFINITIONS

3121

312%

312

000140

(02-NOv-81 16:08

LEVELZ

JSBTTL

=140

3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
2136
3137 .
3138
3139

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

LEVELG
LEVELS
LEVEL6
LEVEL?
ESC
CNTLC
CARETN
MMRO
KIPDRO
KIPDR2
KDPDR?
KIPARO)
KIPAR2
KDPAR2
MMVECT
MMPS

3143

025622

TSTLO=ENDEV

3140
3141
3142

000004
000006
000003

TOVECT
TMOPSW
BPT

N_3

PAGE 47

PRIORITY LEVELS AND OTHER DEFINITIONS

AR RN

I IR R RN R RN AN AR AR RR AR RN CRRRN AR RSORRNNCR RS

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

:BRANCH’TO TEST 40 = BRANCH TO ENDEV (THERE IS NO TEST 40)

SEQUENCE

—

CZDRLDO-DR11 GEN “°R INTFC

MACRO M1113

PRIORITY LEVELS AND OTHER DEFINITIONS
144

02-NOV-81 16:08

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

3147

g‘gg

:* 0 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

R
=14
BPTVCT: .WORD
.WORD
.=42
WORD
=174
DISPRE: .WORD
SWREG:
.WORD

000014
006466

000340

000042
00000
000174
000000
000000

e e

0
0
O

3162
3163 000200

AR AR AR
JMP

A AR AR
START1

CLR

$PASS?2

000137
000137
005037

011420
034230
001416

JMP
STAGIN: CLR

3167 000220

005037

001422

CLR

3168 000224
3169 000230
3170 000234
3171 000240
3172 000246
%};{ 000252

005037

005037
005037
005037
012737
012706
08?685

002716

001420
(01414
00270
044652
011424
012356

044650

CLR
CLR
CLR
MOV
MoV
J"?OOO

MBD
$PASS
SUNIT

e
T
T T e T
e e T e T
;THE BPT TRAP VECTOR POINTS TO THE
:
ILLEGAL TRAP HANDLER ‘‘CATCH'

sCLEAR THIS LOCATION (FOR APT MONITOR STARTING ADDR ESS)

:PROGRAM STARTING LOCATIONS

3164 000204
3165 000210

CATCH
LEVEL?

g}g?

3166 000214

SEQUENCE

A
L
el

145
14%

3148
3149
3150 000014
151 000016
3153
3154 000042
3155
3156 000174
3157 000176

B 4
PAGE 48

e Y

R AR RN AR AR RRARARR AR RN R AR RN A AR
sNORMAL START

S$DEVCT
STESTN
EOPLOC
#CAPSTK,CAPNTR
#START ,SP
BEGIN1

sENTER MULTIPLE BOARD DIALOQUE
;CLEAR $PASS

;CLEAR $PASS?2
;CLEAR SUNIT

sCLEAR SDEVCT
sCLEAR STESTN
:CLEAR EOPLOC
;RESET THE CAPTURE POINTER
sRESET THE STACK POINTER
:JUMP TO BEGINT FOR RESTART WITHOUT HEADER PRINTING

——

CZDRLDO-DR11 GEN NPR INTF(
ACT11 HOOKS

3175

MACRO M1113

02-NOV-81 16:08

.SBTTL

PAGE 49

SEQUENCE

ACT11 HOOKS

tttttttttttttttttfitt't't'ttttQtt'ttttttttttt.t..t.t't'tttt""t

000046
000052
3176

001000
000046

uooxs REQUIRED BY ACT11
$SVPC=.

8%33%3

ssgng

000000

WORD

001000

;SAVE PC

=46

.SBTT'

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
O

.=$SVPC
APT PARAMETER BLOCK

::2)SET LOC. sz TO ZERO
:: RESTORE
P

ttttttttttttttttttttttt'tttt'ttttttttttttttttttttttttttfittttttt

ssr LOCATIONS 24 AND 44 AS REQUIRED FOR APT

tttttttttttttttttttttttttttttttttttttttt'ttt.tttttttttttttttttt

000024
000044

001000
000024
000200
000044
001000
001000

.$X=.
=24
200
. =44
$APTHDR
.=.8X

::SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO START OF PROGRAM
:;FOR APT START UP
*POINT TO APT INDIRECT ADDRESS PNTR.
::POINT TO APT HEADER BLOCK
::RESET LOCATION COUNTER

tttttttttttttttttttttttttttttttttttttttttttttttttttttttti.ttttt

ssrup APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC

001000

001000
001002
001004
001006
001010

001012

“INTERFACE SPEC.

000000
001410
000001
000001
000000

000052

$APTHD:

$SHIBTS:
SMBADR:
$TSTM:
$SPASTM:
SUNITA:

.WORD
.WORL
.WORD
.WORD
.WORD

.WORD

0
SMAIL
1
1
O

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

::RUN TIM OF LONGEST TEST
:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

SETEND-SHAIL/Z ;;LENGTH MAILBOX-ETABLE (WORDS)

MACRO M1113

CZDRLDO-DR11 GEN NPR INTFC
COMMON TAGS

02-NOV-81 16:08

SBTTL

3178

PAGE 52

SEQUENCE

COMMON TAGS

ttttt.t'.'l't'ttfittt"'t't"itttt..Qt.'ttttttttt'ttttttQQQQ"QQ

:;CONTAINS ADDRESS OF 'GOOD' DATA
: ;CONTAINS ADDRESS OF °'BAD' DATA
:;CONTAINS ‘'GOOD* DATA
;;CONTAINS °'BAD' DAT
s ;RESERVED==NOT TO BE USED

s sAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

;:ADDRESS OF SWITCH REGISTER
2 ;ADDRESS OF DISPLAY REGISTER
;sTTY KBD STATUS

DDISP

;sTTY KBD BUFFER

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

Lol
N -]

A "LINE FEED''
..INSERT FILL CHARS. AFTER
(BIT<07>=0=YES)
FLAG
'
AVAILABLE'®
AL
:2"'TERMIN

377

000

000000
000000

<15>
<12>

EF INED

<207><377><377>

; :ESCAPE ON_ERROR ADDRESS

..CODE FOR BELL

:sQUESTION MARK
: :CARRIAGE RETURN
s:LINE FEED

"itt'ttltttttttttt'ttt"ttttt.fi'tttttt'tttittttttttttttt.tttlttt

.SBTTL

000000
000000

.ASCIZ
.ASCII
LASCII
.ASCIZ

: :0

377

:sUSER DEF INED
2 JUSER DEF INED
:3USER DEF INED
:2USER DEF INED
:sUSER DEF INED
..USER DEF INED

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

[=leleleleleleBNe

001562

SWR:
.
DISPLAY:
$TKS:

SCOPE LOOP ADDRESS
SCOPE RETURN FOR_ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION

NovwnmeN oSN NO

$AUTOB:
$INTAG:

: ; CONTAINS THE TEST NUMBER
s s CONTAINS ERROR FLAG
..CONTAINS SUBTEST ITERATION COUNT

SLPADR: .WORD
$LPERR:
SERTTL:
SITEMB:
SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

2:START OF COMMON TAGS

[eleleleleleleleleleljolelelalelelela)]

000000

b
—

o
e o
d
e
D e
o
o
s
e
e

PG
G QP

+ *USED IN THE PROGRAM
.=1300
$CNTAG:
.WORD
STSTNM: .BYTE
$ERFLG: .BYTE
.WORD
$ICNT:

001300

W NN WNN NN NN NN N
WNWWNNINININ)
= = = —d b
W

888 88
8 88888 888888 88888888838838883338

& LG SRR W ? NOONSNOONWVISSNO & gE&S
3
tflfldg

~THIS TABLE COgTAINS VARIOUS COMMON STORAGE LOCATIONS

APT MAILBOX-ETABLE

AR AR AN

.WORD
. WORD
. WORD

" "WORD

AR AR

AR A AR AAAAARARAARARAARARA
AR
AR AN

AMSGTY
AFATAL
ATESTN
APASS

sAPT MAILBOX

..HESSAGE TYPE CODE

:sFATAL ERROR NUMBER

;s TEST NUMBER
: sPASS COUNT

CZDRLDO-DR11 GEN NPR INTF(

APT MAILBOX~ETABLE

001420
001422
001424
001426
001430
001430
001431
001432
001434
£01436

000000
000010
000000
000000
000
000
000000
000000
000000

MACRO M1113 02-NOV-81 16:08 PAGE §2-1
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$SENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD
M

ADEVCT ;:DEVICE COUNT
AUNIT ~ ::1/0 UNIT NUMBER
AMSGAD
::MESSAGE ADDRESS
AMSGLG ::MESSAGE LENGTH
::APT ENVIRONMENT TABLE
AENV
::ENVIRONMENT BYTE
AENVM
;:ENVIRONMENT MODE BITS
ASWREG ;;APT SWITCH REGISTER
AUSWR
::USER SWITCHES
ACPUOP 'i$§u1§'?§ g;axous
e

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

11/70=06. poo-o Q=10

o
i

001440

SEQUENCE

BIT 10=REAL TIME CLO
BIT 9=FLOATING POINT PROCESSOR

‘%

8=MEMORY MANAGEMENT

$MAMS1: .BYTE

001442

000000

o
i
i
$MADR1: .WORD

AMADR1

(MIGH BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
;:HIGH ADDRESS,BLKA1

001444
001445

000
000

$MAMS2: .BYTE
SMTYP2: .BYTE

AMAMS2
AMTYP2

;:HIGH ADDRESS.M.S. BYTE
::MEM.TYPE ,BLKA2

001441

001446
001450
001451
001452
001454
001455

001456
001460
001462
001464
001466
001470
001472
001474
001476
001500
001502
001504
001506
001510
001512
001514
001516
001520
001522
001524
001526
001530
88}2;2

000

000000
000
000
000000
000
000

000000
000300
000000
172410
000000
000000
000000
(90200
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000

SMTYP1:
x

.BYTE

‘%

$MADR2:
$SMAMS3:
SMTYP3:
$SMADR3:
SMAMSL:
SMTYP4:

$MADR4:
$SVECT1:
$VECT2:
SBASE:
$SDEVM:
$CDW1:
$CDW2:
$ODW0:
$DDW1:
$DDW2:
$DDW3:
$DDW4:
DDWS:
DDW6:
$DDW7:
$ODW8:
$ODW9:
$DDW10:
$ODW11:
$DDW12:
$ODW13:
$ODW14:
gggg;g

JMEXIT

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

AMAMS1

BIT

000

AMTYP1

AHADR%
AMAMS3
AMTYP3
AMADR3
AMAMSG
AMTYP4

.WORD
AMADR4
.WORD
AVECT1
.WORD
AVECT2
.WORD ~ ABASE
.WORD
ADEVM
.WORD
ACDW1
.WORD
ACDW2
.WORD
ADDWO
.WORD
ADDW1
.WORD
ADDW2
.WORD
ADDW3
.WORD
ADDW4
.WORD
ADDWS
.WORD
ADDW6
.WORD
ADDW7
.WORD
ADDWS
.WORD
ADDW9
.WORD
ADDWIO
.WORD
ADDW11
.WORD
ADDW12
.WORD
ADDW13
.WORD
ADDW14
.WORD
ADDW15S

;:;HIGH ADDRESS,M.S. BYTE

::MEM. TYPE,BLKA1
MEM.TYPE BYTE
==

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

: :MEM.LAST ADDRESS,BLKA#2
::HIGH ADDRESS,M.S.BYTE
::MEM.TYPE,BLKA3
;:MEM.LAST ADDRESS,BLKA3
::HIGH ADDRESS,M.S.BYTE
::MEM.TYPE ,BLKA#%

;:MEM.LAST ADDRESS,BLK#%
::INTERRUPT VECTORA1,BUS PRIORITY#1
::INTERRUPT VECTOR#28US PRIORITYA2
;:BASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP
::CONTROLLER DESCRIPTION WORDA1
::CONTROLLER DESCRIPTION WORDA?2
;:DEVICE DESCRIPTOR WORD#0
;;DEVICE DESCRIPTOR WORDA1
;::DEVICE DESCRIPTOR WORDA
;;DEVICE DESCRIPTOR WORD#
;:DEVICE DESCRIPTOR WORDA%
;:;DEVICE DESCRIPTOR WORDA'S
;:DEVICE DESCRIPTOR WORDA6
;;DEVICE DESCRIPTOR WORDA?
::DEVICE DESCRIPTOR WORDAS
;:DEVICE DESCRIPTOR WORDA9
;;:DEVICE DESCRIPTOR WORDA10
::DEVICE DESCRIPTOR WORDA11
;::DEVICE DESCRIPTOR WORDA1
::DEVICE DESCRIPTOR 'WORDA1
::DEVICE DESCRIPTOR WORDA14
::DEVICE DESCRIPTOR WGRD#15

CZDRLDO=DR11 GEN NPR INTFC

ERROR POINTER TABLE

MACRO M1113

(02-NOV-81 16:08

.SBTTL

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.
S#NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
~~0152
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
i
i
i
T

001534

$ERRTB:

3179
3180 001534
3181 001536
3182 001540
g}gz 001542

047162
052503
055246
000000

3185
3186 001544
3187 001546

047216
052544

g}gg 001552

000000

3188 001550

3191
3192 001554
3193 001556
3194 001560
g}gg 001562

047264
052613
055274
000000

047315
052657
055306
000000

3203
3204 001574
3205 001576
3206 001600
gggg 001602

047346
052726
055322
000000

3210 001604
3211 001606
3212 001610
gg}z 001612

047377
052772
055534
000000

3215
3216 001614
3217 001616

047445
052613

3218 001620
3219 001622

;ITEM 2

055260

3197
3198 001564
3199 001566
3200 001570
ggg; 00i572

3209

CITEM 1

055274
000000

3]
DH
DT

;ITEM 4

JITEM S

JITEM 6

JITEM 7

$:POINTS TO THE DATA FORMAT

LWORD
"WORD
.WORD
WORD

EM?
DH2
DT2
0

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

.WORC
"WORD

EM3
DH3

:DR11-B OR W MODE INCORRECT (0=B, 1=W)
STEST # ERR PC EXPMOD ACTMOD ~CSRADR

.WORD

PRINT ALL DATA OCTAL

.WORD
:ITEM 3

::POINTS TO THE ERROR MESSAGE
::POINTS TO THE DATA HEADER
::POINTS TO THE DATA

DT3

STESTN $ERRPC,$TMP1,BORW,.CSR,0

.WORD
"WORD
"WORD
.WORD

EMé4
DH&
DT4
0

;INIT FAILED TO CLEAR WCR
STEST # ERR PC WCRADR WCRCONTENTS
*STESTN,SERRPC,WCR,RWCR,0
sPRINT ALL DATA OCTAL

.WORD
"WORD
.WORD
WORD

EMS
DH5
DTS
0

:INIT FAILED TO CLEAR BAR
:TEST # ERR PC BARADR BAREXP
:$STESTN,SERRPC ,BAR,EBAR,RBAR, 0
*PRINT ALL DATA 0CTAL

.WORD
.WORD
.WORD
WORD

EM6
DHé
DTé
0

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

.WORD
"WORD
.WORD
WORD

EM?
DH?
DT?
0

;INIT FAILED TO CLEAR ALL CSR R-W BITS
STEST # ERR PC CSRADR CSREXP CSRCONTENTS
:STESTN,$ERRPC,CSR,ECSR,RCSR,0
:PRINT ALL DATA OCTAL

LWORD
"WORD

EM10
DH4

:RESET FAILED TO CLEAR WCR
STEST # ERR PC WCRADR WCRCONTENTS

.WORD
WORD

DT&
O

*STESTN, SERRPC,WCR,RWCR,0
:PRINT ALL DATA OCTAL

BARRCV

“h

CZDRLDO-DR11 GEN NPR INTFC
ERROR POINTER TABLE

%%21 001624 047477
052613
220

2% 001626
3223 0016
3224 001632
3225
3226
3227 001634
3228 001636
3229 001640
3230 001642
3231
3232
3233 001644
3234 001646
3235 001650
3236 001652
3237
3238
3239 001654
ggz? 001656

3242 001660

ggzz 001662
3245

02-NOV-81 16:08

;ITEM 10

047542
052657
055306
000

047574
052657
055306
000000
047644
053046

SITEM N

055350
000000

047757
053161

3264
3265
3266 001714
3267 001716
3268 001720
3298 001722

050072
053274
055404
000000

3271
272 001724
3273 001726
3274 001
3275 001732

050140
053274
055404
000000

-WOKD

sATTEMPT TO SET ALL BAR BITS TO 1 FAILED
;TEST # ERR PC_BARADR BAREXP BARRCV

-WORD
-WORD

:ITEM 13

-WORD
.WORD
.WORD

SITEM 14

.WORD
.WORD
.WORD

;ITEM 15

055366
000000
050003

.WORD
.WORD

;RESET FAILED TO CLEAR
BAREXP
:;TEST # ERR PC_ BARAD
AR,0
,BAR,EBAR,RB
PC
;STESTN,SERR
;PRINT ALL DATA OCTAL

;ITEM 12

000000

3249 001670
3250 001672
3251
3252
3253 001674
3254 001676
3255
3256 001700
ggg; 001702

SEQUENCE

*PRINT ALL DATA OCTAL

055350

047733
053046

PAGE 24 .
sATTEMPT TO SET ALL WCR BITS FAILED
sTEST # ERR PC uc:cg: OUCRCONTENTS
*STESTN,SERRPC,WCR

055274
000000

3246 001664
ggz; 001666

3259
3260 001704

MACRO M1113

.WORD
.WORD
.WORD

JITEM 16

.WORD
.WORD
.WORD
.WORD

JITEM 17

-WORD
- WORD
-WORD

;ITEM 20

.WORD
.WORD
.WORD
.WORD

BARRCV

;STESTN,SERRPC
,BAR EBAR REAR, 0

;PRINT ALL DATA OCTAL

;CSR BIT TEST FAILED (FATAL = DIAGNOSTIC NOT CONTINUED)
:

:TEST # ERR PC_

BIT(S)

CSRADR (CSREXP

CSRCONTENTS

TESTED CSRADR CSREXP

CSRCONTENTS

TESTED

;STESTN,SERRPC ,BUT,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

;CSR BIT TEST FAILED
:

:TEST # ERR PC_

BIT(S)

;STESTN,SERRPC ,BUT,CSR,ECSR,RCSR,0
:PRINT ALL DATA OCTAL

;EIR BIT TEST FAILED
:

BIT(S)

:TEST # ERR PC_TESTED EIRADR EIREXP
sSTESTN,SERRPC ,BUT,CSR,EEIR,REIR,0
;PRINT ALL DATA OCTAL

EIRCONTENTS

sREADY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR
;TEST # ERR PC_ CSRADR CSREXP CSRCONTENTS
;$TESTN,SERRPC,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

;ATTN AND ERROR FAILED TO SET PROPERLY

;TEST # ERR PC_CSRADR CSREXP
;STESTN,SERRPC,CSR,ECSR,RCSR,0
:PRINT ALL DATA OCTAL

CSRCONTENTS

sATTN AND ERROR FAILED TO CLEAR PROPERLY

;TEST # ERR PC_CSRADR CSREXP
;S$TESTN, SERRPC,CSR,ECSR,RCSR,0

*PRINT ALL DATA OCTAL

CSRCONTENTS

CZDRLDO-DR11 GEN NPR INTFC

ERROR POINTER TABLE

3276
277 001734

050210

g%g?

000000

MACRO M1113

02-NOV-81 16:08

JITEM 21

78 001736 053274
3279 001740 055404
1742

3282
3283 001744

3284 001746
3285 001750
g%gg 001752

050320
053274
055404
000000

3288
3289 001754
3290 001756
3291 001760

050351
052657
055306

§g9§ 001762

2294
3295 001764
3296 001766
3297 001770

;ITEM 23

000000

gggg 001772

050476
053274
055404
000000

3300
3301 001774
3302 001776
3303 002000
gggg 002002

050534
053274
055404
000000

3306
3307 002004
3308 002006

050600
052726

g%}? 002012

000000

;ITEM 25

:ITEM 26

3309 002010 055322

3312
3313 002014
3314 002016
3315 002020
%%}9 002022

050621
052726
055322
000000

3318
3319 002024
3320 002026

050712
053500

g;%% 002032

000000

3324
3325 002034
3326 002036

050773
053500

3328 002042

000000

;ITEM 30

3321 002030 055450

3327 002040 055450

:ERROR BIT SHOULD HAVE BEEN CLEAR

.WORD

SPRINT ALL DATA OCTAL

TEST # ERR PC CSRADR CSREXP
STESTN $ERRPC,CSR,ECSR,RCSR,0

CSRCONTENTS

EM24
DH17
DT17
O

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

CSRCONTENTS

.WORD
.WORD
.WORD

EM25
DHS
. DTS

:BIT 0 OF THE BAR WAS SET
:TEST # ERR PC BARADR BAREXP
s$STESTN,SERRPC ,BAR,EBAR,REAR, O

BARRCYV

.WORD
.WORD
.WORD
.WORD

EM30
DH17
DT17
0

:FUNCTION BIT(S) ARE NOT CLEAR
TEST # ERR PC CSRADR CSREXP
sTESTN $ERRPC,CSR,ECSR,RCSR.,0
:PRINT ALL DATA OCTAL

CSRCONTENTS

g
.WORD
.WORD
.WORD

EM31
DH17
DT17
0

;DSTAT A, B OR C ARE NOT AS EXPECTED
:TEST # ERR PC CSRADR CSREXP CSRCONTENTS
:STESTN,SERRPC,CSR,ECSR,RCSR,0
:PRINT ALL DATA OCTAL

.WORD
.WORD

EM32
DH6

:BDR IS NOT CLEAR
:TEST # ERR PC BDRADR

.WORD

PRINT ALL DATA OCTAL

DT6

sPRINT ALL DATA OCTAL

STESTN $SERRPC ,BDR,RBDR,0

BDRCONTENTS

.WORD
.WORD
.WORD
.WORD

EM33
DH6
DT6
O

:ALL BDR BITS ARE NOT SET
:TEST # ERR PC BDRADR BDRCONTENTS
STESTN $ERRPC ,BDR,RBDR,0
*PRINT ALL DATA OCTAL

.WORD
.WORD

EM35
DH34

:BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN
:TEST # ERR PC BDRADR BDREXP BDRCONTENTS

.WORD

SPRINT ALL DATA OCTAL

.WORD

JITEM 31

DH1
DT17

.
.WORD
WORD
WORD

.WORD
:ITEM 27

SEQUENCE

EM?2

.WORC

;ITEM 24

PAGE 55

.WORD

.WORD
.WORD

JITEM 22

DT34

*$TESTN,SERRPC,BDR,EBDR,RBDR, 0

.WORD
.WORD

EM36
DH34

;BDR PATTERN NOT CORRECT
:TEST # ERR PC BDRADR BDREXP

.WORD

SPRINT ALL DATA OCTAL

.WORD

DT34

*$TESTN, SERRPC ,BDR,EBDR ,RBDR, 0

BDRCONTENTS

CZDRLDO-DR11 GEN NPR INTFC
ERROR POINTER TABLE

JITEM 32

%0 002044

3329

JITEM 33

002054

SITEM 34

3344 002070
3345 002072
3346
3347
3348 002074
3349 002076
3350 002100
335; 002102

.WORD
.WORD
.WORD
.WORD

;READY SHOULD NOT BE SET
sTEST # ERR PC_CSRADR
CSREXP

.WORD
.WORD
.WORD
.WORD

sREADY WAS CLEARED BUT NEVER SET AGAIN
;TEST # ERR PC_CSRADR CSREXP CSRCONTENTS
;S$TESTN,SERRPC,CSR,ECSR,RCSR,0
;PRINT ALL DATA OCTAL

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

;DR11 FAILED TO INTERRUPT

JITEM 40

JITEM 42

CSRADR

CSRCONTENTS

.WORD
.WORD
-WORD
.WORD

:DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE
;TEST # ERR PC CSRADR CSRCONTENTS
;STESTN,SERRPC,CSK,RCSR,0

sPRINT ALL DATA OCTA.

sERROR BIT SHOULD NOT BE CLEAR
;TEST # ERR PC_CSRADR CSREXP

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

.WORD

SITEM 41

ERR PC

;$TESTN,SERRPC,CSR,RCSR,0
sPRINT ALL DATA OCTAL

.WORD
-WORD
.WORD
.WORD

. WORD
. WORD
.WORD
.WORD

sSTESTN,SERRPC,CSR,ECSR,RCSR,0

CSRCONTENTS

;PRINT ALL DATA OCTAL
—_——
NNN

;ITEM 37

;TEST #

(CSRCONTENTS

-WORD
-WORD

051427

3378 002144
3379 002146
3380 002150
3381 002152

:PRINT ALL DATA OCTAL

oOUOmMm

051314
053274
055404
000000

CSRCONTENTS

;$TESTN,SERRPC,CSR,ECSR,RCSR,0

-WORD

000000

SEQUENCE

“WORD
-WORD

JITEM 35

JITEM 36

:READY IS NOT THE ONLY BIT SET
:TEST # ERR PC CSRADR CSREXP

-WORD

002046

—Ov

£ &WWWWWWWW

SISHRIRZ

N NN N NN N NN NN

MACRO M1113 02-NOv-81 16:08 PAGE gb

sCSR_IS WRONG
sTEST #

ERR PC

CSRADR

CSREXP

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

CSRCONTENTS

: TRANSFERS SHOULD HAVE BEEN INHIBITED
sTEST #
ERR PC
WCRADR
WCREXP WCRRCV

BARADR

sSTESTN,SERRPC
,WCR,EWCR ,RWCR ,BAR ,EBAR ,RBAR,0

sPRINT ALL DATA OCTAL

:DR11 SHOULD NOT HAVE INTERRUPTED A SECOND TIME
STEST # ERR PC CSRADR CSRCONTENTS
*STESTN,SERRPC,CSR,RCSR.0

:PRINT ALL DATA OCTAL

BAREXP

BARRCV

CZDRLDO-DR11 GEN NPR INTFC
ERROR PUINTER TABLE

338%
3383 002154
3384 002156
3385 002160
3386 002162
3387
3388
3389 002164
3390 002166
3391 002170
3392 002172
3393
3394
3395 002174
3396 002176
3397 002200
3398 002202
3399
3400
3401 002204

MACRO M1113 02-NOV-81 16:08 PAGE g?
;ITEM 43

-WORD
~WORD
-WORD

JITEM 44

sITEM 45

051752
053776

JITEM 46

055536
000000

R RR

R R R R R R R R R R R R TR RRRE

PNININIRNINININININD
= i d
b b e e d b

3409 002216

052002
054143

055556
000000

052041

;ITEM 50

000000

052124
054312
055606
000000

052173

;ITEM 51

*$TESTN,SERRPC,CSR,RCSR,0

:PRINT ALL DATA OCTAL

.WORD
.WORD
.WORD
.WORD

:BAD DATA IN BDR

.WORD
.WORD

;TEST #

ERR PC_

BDRADR

BARCONTENTS

BDREXP

BDRCONTENTS

;$TESTN,SERRPC
,BDR ,EBDR ,REDR,

;PRINT ALL DATA OCTAL

;BUFFER DATA NOT CORRECT
;
CHECK
CHECK
;TEST # ERR PC_BUFADR BUFDAT

INPUT
BUFADR

.WORD
.WORD

*STESTN, SERRPC,$TMP2,
STMP3, (SR, 0
*PRINT ALL DATA OCTAL

-WORD

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

(SRADR

;PRINT ALL DATA OCTAL

:TOO MANY WORDS WERE TRANSFERED

.WORD
.WORD
.WORD
.WORD

INPUT
BUFDAT

;STESTN,SERROC,STMP4
,$TMP2 ,$TMP5 ,$TMP3,(SR,0

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

;EXPECTED INTERRUPT DID NOT OCCUR
STEST # ERR PC (CSRADR CSRCONTENTS

:BAR IS WRONG
sTEST # ERR PC_ BARADR BAREXP
;STESTN,SERRPC
,BAR EBAR,RBAR,
;PRINT ALL DATA OCTAL

;1TEM 52

;ITEM 53

SEQUENCE

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

JITEM &7

EM5
DH4
DT43
0

STEST # ERR PC

DIDNOT

EXPECT ADRESS

CSRADR

sUNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW
sTEST #

ERR PC

WCRADR

OLDPC

_ TRAP ADR

sSTESTN,SERRPC ,WCR,OLDPC2 ,BDVECT,0

sPRINT ALL DATA OCTAL

;:CSR AND=OR WCR AND-OR BAR ARE INCORECT
STEST #

ERR PC

WCRADR

WCREXP

WCRRCV

CSREXP

CSRRCV

*$TESTN,SERRPC,WCR, EWCR,RWCR,ECSR,RCSR,
EBAR ,RBAR 0

*PRINT ALL DATA OCTAL

:DR11 INTERRUPTED AT WRONG LEVEL
;TEST #

ERR PC

EXPLVL

RCVLVL

;STESTN,SERRPC ,DRLEV,LEVEL,CSR,0

;PRINT ALL DATA OCTAL

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

sPRINT ALL DATA OCTAL

CSRADR

BAREXP

BAR|

CZDRLDO-DR11 GEN NPR INTFC
ERROR POINTER TABLE

§238 002264
052233
002266 054527
37

3439

3441 002272

000000

MACRO M1113

(02-NOvV-81 16:08

JITEM 54

.WORD
.WORD
.WORD
.WORD

EM65
DH65
DT65

K &
PAGE 58

SEQUENCE

:2=N _CYCLE BURST SWITCH IN WRONG POSITION
;TEST # ERR PC CSR’DR EIREXP
;STESTN,SERRP(,CSR,EEIR,REIR,0

sPRINT ALL DATA OCTAL

EIRRCV

CZDRLDO-DR11 GEN NPR INTFC

ERROR POINTER TABLE

344% 002274

342
34

3445 002274
3446 002276
3447
3448 002300
3449 002302
3450
3651
3452 002304
3453 002306
3454 002310
3455 002312
3456
3457
3458 002314
3459 002316
3460 002320
3461 002322
3462
3463
24
3464

051752
053776
055536
000000
052347
054645
055710
000000
050402
053424
055434
000000

050441

v
W

&»

o
o

051631

8333
oo

DNR
R

000000
050773
053500
055450
000000

360

2362

PAGE g9 .

SEQUENCE

sTHIS IS THE STARTING POINT FOR ERROR MESSAGES 201

:THROUGH 277.

JITEM 201

. WORD
.WORD
.WORD
.WORD

;ITEM 202

.WORD
.WORD
.WORD
.WORD

JITEM 203

.WORD
.WORD
.WORD
.WORD

;ITEM 204

.WORD
.WORD
.WORD
.WORD

;ITEM 205

.WORD
. WORD
.WORD
.WORD

JITEM 206

.WORD
.WORD
.WORD
.WORD

;ITEM 207

gsss
RRTM
ISR
RS

B
9

02-NOv-81 16:08

ER200:

002334
002336
002340
002342

Z38

S SS

WN=OOVRNOWVNSWN—=O

R SSO S S

3467 002332

MACRO M1113

WORD

-WORD
-WORD
-WORD

JITEM 210

.WORD
.WORD
.WORD
.WORD

SITEM 211

-WORD

.WORD

THEY ARE USED FOR MULTIPLE ERROR MESSAGES.

;BUFFER DATA NOT CORRECT
INPUT
INPUT
CHECK
CHECK
;
;TEST # ERR PC_ BUFADR BUFDAT BUFADR BUFDAT
;STESTN.SERRPC
,STMP4 ,$TMP2 ,$TMPS5 ,$TMP3,CSR, 0
;PRINT ALL DATA OCTAL
sCSR_PATTERN NOT CORRECT
sTEST # ERR PC_ CSRADR PATLDD

(CSREXP

sSTESTN,SERRPC,CSR,BUT ,ECSR,RCSR,0

(SRADR

C(SRRCV

sPRINT ALL DATA OCTAL

;BIT PATTERN TEST FAILED IN BAR
;TEST #

ERR PC_

BARADR

BAREXP

BARCONTENTS

;WCR DATA PATTERN NOT CORRECT
;TEST # ERR PC WCRADR WCREXP

WCRCONTENTS

;$STESTN,SERRPC ,BAR,EBAR,RBAR,

;PRINT ALL DATA OCTAL

;STESTN,SERRPC ,WCR,EWCR,RWCR,0

;PRINT ALL DATA OCTAL

;BDR PATTERN NOT CORRECT
;TEST #

ERR PC

BDRADR

BDREXP

;STESTN,SERRPC
,BDR ,EBDR,RBDR, 0

BDRCONTENTS

;PRINT ALL DATA OCTAL

sWCR NOT EQUAL TO ZERO
TEST #

ERR PC

WCRADR

sSTESTN,SERRPC ,WCR,RWCR,0

WCRCONTENTS

sPRINT ALL DATA OCTAL

:BAR IS WRONG
;TEST # ERR PC_

BARADR

BAREXP

;STESTN,SERRPC ,BAR,EBAR ,RBAR,

BARCONTENTS

;PRINT ALL DATA OCTAL

sDATA NOT TRANSFERED CORRECTLY
;TEST #

ERR PC

NPR1AD

NPRIEX

NPRIRC

(SRADR

;:BDR AND-OR WCR AND-OR BAR ARE INCORECT
STEST # ERR PC WCRADR WCREXP WCRRCV

BDREXP

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

sPRINT ALL DATA OCTAL

BDRRCV

*$TESTN,SERRPC,WCR, EWCR,RWCR,ECSR,RCSR,EBAR
,RBAR 0

*PRINT ALL DATA OCTAL

BAREXP

BAR

| CZDRLDO=DR11 GEN NPR INTF(
ERROR POINTER TABLE

;

3498

99 002404

500 002406
3501 002410
3502 002412

051352

053274
055404
000000

MACRO M1113

02-NOv-81 16:08

SITEM 212
d

.WORD
LWORD
.WORD

EM46

DH17
DT17
0

PAGE 60

SEQUENCE

;FUNCTION BITS DIDN'T INCREMENT [N MAINT MODE

:TEST # ERR PC
CSRADR CSREXP
:STESTN,SERRPC,CSR,ECSR,RCSR,0
sPRINT ALL DATA OCTAL

CSRCONTENTS

CZDRLDO-DR11 GEN NPR INTF(
- STORAGE LOCATIONS

MACRO M1113

02-NOv-81 16:08
.SBTTL

2222223322323

PAGE 61

SEQUENCE

STORAGE LOCATIONS

332332322232222332323222232222222232222222222220202R000

STORAGE LOCATIONS

rwwusNNNNNNNNNNd
VO NOWVS NN = OV
—_—NONWVNSS
a0
W =
s

;;'Qt..'..Q...Q...l.'t""".'.."..'......t'..."'."'."'..'..'

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

REGADR:

16.

;TOTAL: 16 LOCATIONS FOR BOARD ADDRESSES

.BLKW

16.

sTOTAL: 16 LOCATIONS FOR VECTOR ADDRESSES

':t...tt..tt.'tttt'tt'."ttt'...t.......t.'t.'.'..l'..QQ....'...'

:DO NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS BELOW
Wi

—a

;:..'t.tt't.ltt"..t.t."""..t....Q...t.t'..t'.'......"..".'.

W
N

o
o

N N
N N

N N AN NN N

;REGISTER AND VECTOR ADDRESS STORAGE LOCATIONS FOR THE DR11 UNDER

000000
000000
000000
000000
000000
000000
000000
000000

WCR:

.WORD
BAR:
.WORD
CSR:
.WORD
BDR:
WORD
DRINV:
.WORD
DRVS:
.WORD
SDRINV: .WORD
SDRVS:
.WORD
2

O
O
O
0
0
0
O

2222332323323 323333 2232223233223

232332202223020 2R3t

Rd00R0dd0Rddd )

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

;:tt.ttl.tttt't.tt.t."""t'.'.l.....Qt..tt...t..t't.t....t..'t.

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

O
O
O
O
0
0
0
O
O

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

000000
000000

BUT:
LEVEL:
BDVECT:
DEVMSK:
TABINX:
DREG:
DRLEV:
NXTTST:
PASCNT:

000000
000000
000000
000000
000000

RCSR:
REIR:
RBDR:
RBAR:
RWCR:

WORD
.WORD
.WORD
.WORD
.WORD

O
O
0
O
O

sCSR
JEIR
sBDR
JBAR
JWCR

000000

ECSR:
EEIR:
EBDR:
EBAR:
EWCR:
ENPRT:
ANPR1:
BORW:
NPR1:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD

0
0
0
0
0
O
NPR1
O
52525

:CSR EXPECTED
“EIR EXPECTED
“BDR EXPECTED
“BAR EXPECTED
sWCR EXPECTED
SEXPECTED OF NPR1
sADDRESS OF NPR1

INBUF:
(HKBUF:
BUFLEN:

.WORD
.WORD
.WORD

XINBUF
XCHKBU

000000

w
W

o
=

N N U U U

QTYBRD: .WORD
VECADR:

N U

v
v
v
i
WWWWW
WA
—
OV
NOrW

000000

002416
002456

N N

N NN NN N

oy v

510 002414

41 002560

3545 002570
3546
3547 002572

DIOMEM: .WORD

000000

173000

ACTUALLY
ACTUALLY
ACTUALLY
ACTUALLY
ACTUALLY

READ
READ
READ
READ
READ

FROM
FROM
FROM
FROM
FROM

DEVICE
DEVICE
DEVICE
DEVICE
DEVICE

UNDER
UNDER
UNDER
UNDER
UNDER

TEST
TEST
TEST
TEST
TEST

TEST

CZDRLDO-DR11 GEN NPR INTFC
STORAGE LOCATIONS

560 002624
561 00 658

MACRO M1113

02-NOV-81 16:08

563 002632
564 002634
3565 002636
3566 002640
567 002642
568 002644

000000
000000
000000
000000
177560
177562
177564
177566
000

570 002650

000000

MESSAG:

3573
3

000
000000

INBUF1:
TIME:

56; 0026

2646

571 002652
3572 002654

002656

3575 002662
3576 002664

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
00C000

000000

000000
000000
000
000000
000000
000000
000000
000000
000000
000000
000000
000000

LENCHK:
BRWAIT:
WCLEN:
RDYCHK:
TKS:
TKB:
TPS:
TPB:
MSG:
ADDR:

.WORD
.WORD

0
0

.WORD
.WORD
WORD
.WORD
WORD
.WORD

0
177560
177562
177564
177566
0

.WORD

FLAG:
.WORD
FNCCNT: .WORD

0
O

.WORD
WORD

LOOP:
ANSWER:

.WORD
.WORD

MANSIZ:
OLDPC1:
OLDPS1:
OLDPC2:
OLDPS2:
OFL
LRGS1C:
EOPLOC:
BITTST:
MEMGMT:
ERRCNT:
$PASS2:

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

BDFAIL:

.WORD

SEQUENCE

.WORD

B .5
PAGE 61-1

0
0
0
0

:GENERAL PURPOSE TIMER

:GENERAL PURPOSE LOOP (OUNTER

0
0
0
0
0
0
0
0
0
0
O
0

sLOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS

sLOCATION TO STORE PS

sLOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS
sLOCATION 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
sLOCATION TO HOLD TOTAL ERRORS FOR A PARTICULAR TEST
;LOCATION TO HOLD OVERFLOW PASS NUMBER

CZDRLDO-DR11 GEN NPR INTF(
DEVICE DESCRIPTOR WORD BIT

H:%RO M1113

02-NOv-81 16:08

.SBTTL

C.5
PAGE 62

DEVICE DESCRIPTOR WORD BIT DESCRIPTION

tttt'tt'ittt...lttt""".t'titi".ttt.t't.tt.t.t."'t'tt't'...

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

BIT 0

BIT1

2
?

36
3601 002720

000000

DDW:

.WORD

DR11-W=0,

DR11-B=1

2 CYCLE=D, N_CYCLE=1

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

> BR PRIORITY

;LOCATION FOR STORAGE OF THE DEVICE DESCRIPTOR WORD

SEQUENCE

ESUR———..|

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOV-81 1 6:08
SUBROUTINE TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMBER

360
“0

33R

3604

3605

3607
3608
3609
3610
3611
3612
3613

i
i
i
i
tw
o
i

3606

.SBTTL

0.5
PAGE 63

SEQUENCE

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

22233333333 323333 3323232323333 2332333333323 33232222223222222222222%23

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

SINGLE CHARACTER.

R3 IS TO BE LOADED WITH THE NUMBER OF DIGITS

EXPECTED. THIS SUBROUTINE WILL EXIT IF A NON-NUMERIC CHARACTER IS
INPUTED, LEAVING THE CHARACTER IN LOCATION 'ANSWER'. IF A NUMERIC
CHARACTER IS INPUTED, IT WILL CLEAR ALL BUT THE 1ST 4 BITS EXPOSING
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, I.E. 7
OR 9 (FOR OCTAL OR DECIMAL INPUT RESPECTIVELY). IT WILL ONLY ACCEPT

3614
3615
3616
332};

o
M
I
%

3619
3620 002722
3621 002724

:' L 222333223333 223 3333322332232 2233313323323 1322233232223 232322222222222%3
READ:
CLR
Ré
JCLEAR THE CHARACTER RECEIVER
TSTB
CHARCT
SEE IF A CHARACTER WAS INPUTED DURING PRINTING

3622

0027

3623 002732
3624 002740

3625 002744

3626 002746
3627 002750
3628 002754
3629 002762
002764

3631 002770
3632 002772
3633 003000
3634 003002

* %

005004
105737
001406
113737
105037

000403

104410
012637
022737
001003
104401

000453

032555
032555
032555
002664
000003

002664

2%:

002664

3%:

4$:

037175

000033

113737
104401
022737
100016
123737

002664
037173
000057

037173

002704

002664

3642 003042
003046
3644 003052
3645 003054
3646 003056

013746
042716
006
006304
006304

002664
000060

3648 003062
3649 003064
3650 003066

005303
001330
122737

2635 003006

3636 003010
3637 003016
3638 003022
3639 003030
3640 003032

1 003040

3647 003060

3651 003074
3652 003076

3653 003102
3654 003104
3655 003112
3656 003114
3657 003120

3658 003124

000444

100427

MOVB
CLRB

1%:

022737
001003
104401

037064

002664

100
02273
001402
062704
104401

000207

002704

000002
001405

*GO CHECK IT OUT

CMP
BNE
TYPE

#ESC,ANSWER
48
+ESCAPE

MOVB
TYPE
CMP
BPL
CMPB

ANSWER,LETNCR
+LETNCR
0'/ +ANSWER
5%
LRGSTC ,ANSWER

B8R

HOVE THE CHARACTER TO THE ANSWER LOCATION
*CLEAR THAT GUY
JGET A CHARACTER
JPOP INPUTED CHARACTER OFF STACK
JSEE IF A “C WAS INPUTED
;BRANCH AROWD ITS PRINTING IF NOT
STYPE:
‘'“C'

é$

*KICK OUT OF THIS ROUTINE

é$

*KICK OUT OF THIS ROUTINE

*BRANCH TO EXIT IF SO

JSEE IF AN <ESC> WAS INPUTED
_
BRANCH AROUND ITS PRINTING IF NO7
;TYPE:
'<ESO>'

HOVE CHARACTER FOR PRINTING
:GO TYPE THE INPUTED CHARACTER
:SEE IF A NON-NUMERIC/ALPH CHARACTER WAS INPUTED
JBRANCH TO R4 TEST IF
SO
JSEE IF A NON-OCTAL/NUMERIC CHARACTER WAS INPUTED

MOV
BIC
ASL
ASL
ASL

ANSWER,=(SP)
#60, (SP)
R4
R4
R4

:MOVE ASCII TO STACK FOR PREPARATION
JCLEAR ALL BUT THE NUMBER INPUTED
SHIFT R& THREE PLACES
:T0 MAKE ROOM FOR
THIS CHARACTER

5$:

DEC
BNE
CMPB

R3
1%
#'9,LRGSTC

;SUBTRACT 1 FROM THE LOOP COUNTER AND
BRANCH BACK IF NOT ALL CHARACTERS INPUTED
:SEE IF NUMBER IS TO BE DECIMAL

68:

BPL
CMP
BEQ
ADD
TYPE

6$
#CARETN,ANSWER
6$
#2.R4
$CRLF

*BRANCH IF SO
;SEE IF CARRIAGE RETURN WAS INPUTED
*BRANCH IF SO - R4 IS CORRECT
:ADD 2 TO R4 TO MAKE OCTAL NUMBER THE DECIMAL EQUIVALENT
*PRINT A <CRLF>

000007
000015

BRANCH TO INPUT A CHARACTER IF NOT

(SP) + ,ANSWER
#CNTLC ,ANSWER
3s
,CNTRLC

ADD

000071

CHARCT ,ANSWER
CHARCT

RDCHR
MOV
CMP
BNE
TYPE

BM]

0626

001011
022704

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 R4.

BEQ

002664

(SP)+,Ré4

BNE
CMP

63
#7.R4

RTS

*ADD THE OCTAL NUMBER TO R4

*BRANCH
IF NOT
*SEE IF mPurso NUMBER IS 7 OR LESS

SEXIT

MACRO M1113 02-NOV-81 16:08
CZDRLDO-DR11 GEN NPR INTF(
SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS
.SBTTL

SEQUENCE

SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS

ttttttttttt'ttttttt""t".fi't't.Qttlt'.Q'Qt'.t..t..'.'!"t."t

32
i
i

i
SRR

[=lelelelelelslele]
O b ed e =d =2 ON)
OOWWWWW—=N
NONNNNNSN
OWNINNINO
=N
NNOOOOOMN

3659
3660
3661
366%
366
3664
3665
3666
3667 003126
3668 003134
3669 003136
3670 003142
3671 003146
3672 003152
3673 003156
3674 003162
3675 003166

E 5
PAGE 64

047132

044650

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

A DEVICE PASS CONTAINS ERRORS.
AR

ékCAPT ggP

CAPNTR,RO
SUNIT, (RO)+
$PASSS, (RO)+
$PASS, (RO)+

MOV

RO, CAPNTR

RTS

1§NDSTK.CAPNTR

MOV
MOV
MoV
MOV
MoV
1$:

A AR AR

CERTTL, (RO)+

ARAA AR

AR AR AR

;SEE IF STACK 6{ FULL OF BULL

:KICK OUT IF

:MOVE CAPNTR CONTENTS T0 RO
:PUT UNIT NUMBER ONSTACK
:PUT OVERFLOW PASS NUMBER ON STACK
:PUT PASS NUMBER ON STACK
:PUT _TOTAL ERRORS ON STACK

sRESTORE CAPNTR TC NEW POINTER VALUE
SEXIT

11
MACRO M1113
CZDF'.DO-DR11 GEN NPR INTF(
SUBROUTINE TO FILL ALL TABLE BOARD ENTR ES

3676
3677
3678
3679

SRR

.SBTTL

SEQUENCE

SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES

AR R AR AR AR AANAAARARAAAAAAAARAARA
AR AR AR AR

]

B
;e
§TM
T

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

AR AR

FIXTBL: CLR
SEC
ROL

1$:

CMP
BEQ
MoV
DEC
CLR
MoV
SEC

RANA R AR R R R AR R AR RR AR AR RN R RN

SDEVM
#1,QTYBRD
2$
QTYBRD ,R1
R1
R2
#2,R3

;CLEAR THE DEVICE MASK
sSET THE CARRY BIT AND
sROTATE IT INTO SDEVM FOR 1 BOARD

sSEE IF ONLY 1 BOARD PRESENT
sKICK OUT IF SO = TABLE DOESN'T NEED FILLING
sFILL ALL TABLE BOARD ENTRIES FROM FIRST
sDECREMENT SINCE 1ST POSITION IS ALREADY FILLED
sCLEAR INDEX TO SEND PCINTER
sPUT 2 IN INDEX TO RECEIVE POINTER
:SET THE CARRY BIT AND

S$DEVM

MOV
ADD

RA(R2) ,RA(R3)
#10,RA(R3)

;TRANSFER ADDRESS TO NEXT POSITION AND
;ADD 10 FOR NEXT POSITION

MOV
ADD
MOV
CMP
DEC
BNE
RTS

VA(R2) ,VA(R3)
#10,VA(R3)
$DDWO,$DDWO(R3)
(R2)+,(R3)+
R1
1$
PC

;TRANSFER VECTOR TO NEXT POSITION AND
sADD 10 FOR NEXT POSITION
;MOVE DEVICE DESCRIPTOR WORD TO NEXT POSITION
sUPDATE INDEX POINTERS
sDECREMENT THE LOOP COUNTER
sBRANCH BACK IF NOT DONE
SEXIT

VA=VECADR

28:

A AR

SDEVM

ROL

RA=REGADR

3705 003300

~N
PAGE 65

02-NOV-81 16:08

;ROTATE IT INTO SDEVM

;REDEF INE REGADR AS RA FOR SPACE REASONS

;REDEFINE VECADR AS VA FOR SPACE REASONS

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

02-NOV-81 16:08

SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN
’709

.SBTTL

3;88

IR AR

G 5
PAGE 66

SEQUENCE

SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN

R AR

RRAR R AR RN RRRR AR

AR RRR RS

709
%;}?

k14|
3713 003302
3714 003306
3715 003312

i
::

013702
013703

3716 003314

005203
005001

3718 003320
3719 003322

005201
005303

3717 003316
3720 003324

3721 003326

010122
001374

000207

002616
002622

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

RN
AR AR AR AR AR AR RRRRR AR ANRR RN
RN AN
LODBUF: MOV
INBUF ,R2
;MOVE STARTING ADDRESS OF INBUF TO R2
MoV
BUFLEN,R3
sMOVE LOOP COUNTER TO R3

18:

INC
CLR

R3
R1

;CORRECT COUNTER
;CLEAR THE LOADING COUNTER

INC
DEC

R1
R3

s INCREMENT THE LOADING COUNTER
;DECREMENT THE LOOP COUMTER AND

JEXIT

MoV
BNE

RTS

R1,(R2)+
1$

;LOAD NEXT BUFFER WORD

;BRANCH BACK IF NOT DONE

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

02-NOV-81 16:08

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

.SBTTL

H_5

PAGE 67

SEQUENCE

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

3;:2!‘

,;unnt"nnnn""nnnnnnnnnnnn"ntnnnntnn

3725

3728
3729 003330

:.tttttttttttttttttttttttt't'tt.ttt.ttttt'ttt'tttttttt't.tttttt.t
CHKBFF: MOV
CHKBUF ,R2
;STARTING ADDRESS OF CHECK-BUFFER TO R2

%;%9

013702

002620

3730 003334 013701 002622
3731 003340 005003
3732 003342 010322
3733 003344 010322
3734 003346 022341
3735 003350
3736 003352
3737 003354

005701
001373
000207

1%:

28:

THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS

EVEN NUMBERS STARTING WITH O INTO THE BUFFER.

MOV
CLR
MOV
MOV
CMP
TST
BNE
RTS

BUFLEN,‘R
R3
R3,(R2)+
R3,(R2)+
(R.'i)# -(R1)
R1
1%
PC

HOVE I.OOP COUNTER TOR1
WIPE
R3
HOVE R TO CHKBUF ADDRESS AND INC BY 2
HOVE R3 TO NEXT CHKBUF ADDRESS AND INC
BY 2
ADD 2 TO NUMBER FOR BUFFER & SUBTRACT 2 FRM LOOP COUNTER
:SEE IF R1 HAS REACHED ZERO YET
sBRANCH BACK IF NOT DONE
JEXIT

CZDRLDO-DR11 GEN NPR INTFC
MACRO M1113 02-NOV-81 16:08
SUBROU TINE TO CLEAR IE, CHECK ERROR, READY, WCR=0, AND BAR

I 5
PAGE 68

SEQUENCE

3738
3739
3740
3741

.SBTTL SUBRNUTINE TO CLEAR IE, CHECK ERROR, READY, WCR=0, AND BAR
3tt"'i'it.ttt.tfi.it'.'""'t.'.i.'.t.t.'."t..t.ttttt.t.tt't.'.
H
i
THIS SUBROUTINE WAS THE NEED TO CALL AN ERROR IN THE TEST.
THE ERROR

2;2‘

374,

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

THIS SUBROUTINE MUST BE HAND!
ED AS ;OLLOWS:

FUTURE USE OF

3745

JSR

g;z;

CONT INUE

3746

1
- %

37‘
3750 003356

042777

000100

3752 003370
3753 003374
3754 003400
3755 003406
3756 003414

063702
063702
017737
032737
001005

002622
002616
177116
010000

002560
002560

000004

002720

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

005202
017737
005037
010237
013737
042737
052737
017737
001012
023737
001006
023737
001002
062716
000207

177064
002602
002600
002560
100000
000200
177022

002566

002560

002572

002566

002600

3751 003364

757 003416
758 003424
3759 003426
003430

ERROR

013702

032737
001401

002622

000002

177136

PC,INTA

+51

;SUBROUTINE CALL

*ERROR CALL

*SUBROUTINE RETURNS HERE IF NO ERROR

:b43333333323 332333333 3332322333333 33 33333333333 3332333333 33333333323
INTA:
BIC
#IE,aCSR
;CLEAR IE

MOV

BUFLEN,R2

*BUFFER LENGTH TO R2

BIT
BEQ

#B1T2,DDW
1%

*SEE IF THERE IS A CABLE
*BRANCH IF NO CABLE

ADD
ADD
MOV
BIT
BNE

1$:

002572
002572
002572
002570

28:

INC
MOV
CLR
MOV
MOV
BIC
BIS
MOV
BNE
CMP
BNE
CMP
BNE
ADD
RTS

BUFLEN.R2
INBUF ,R2
aCSR,RCSR
#MA,RCSR
18
R2
@BAR, RBAR
EWCR
R2.EBAR
RCSR,ECSR
#ER,ECSR
#RY ECSR
aWCR,RWCR
2
RCSR,ECSR
2
RBAR, EBAR
28
#2,(SP)
PC

*NUMBER OF XFERS TIMES 2
:CORRECT BAR
*MOVE RECEIVED DATA TO RCSR
*SEE IF WE ARE IN MAINTENANCE MODE
:BRANCH AROUND CABLE TEST IF WE ARE, BIT 0 WILL BE CLEAR
*CABLE MODE TESTING LEAVES BIT 0 OF BAR SET. CHECK ODD ADRS
*MOVE RECEIVED DATA TO RBAR
:CLEAR EXPECTED LOCATION
*MOVE EXPECTED DATA TO EBAR
*MOVE EXPECTED DATA TO ECSR
*MAKE SURE ERROR BIT IS CLEAR
*MAKE SURE READY BIT IS SET
*MOVE RECEIVED DATA TO RWCR
:BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL
*DOES CSR CONTAIN WHAT IT SHOULD
*BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL
*DOES BAR CONTAIN WHAT IT SHOULD
*BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WIL. CALL
*CORRECT PC RETURN TO AFTER THE ERROR CALL
CEXIT

MACRO M1113 02-NOV-81 16 08
CZDRLDO-DR11 GEN NPR INTF(
SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATI
M

.SBTTL

PAGE 69

SEQUENCE

SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION

AEi 2222222232

i iiadiiiiiidiiiddiiiiiiiiiiii
ittt
disdddd]

THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR IN THE TEST AND RETURN
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
ERROR

CONT INUE

3
3790 003526
3791 003532
3792 003536
3793 003542
3794 003546

3809 003644

001362

002624

DATCH1:

001362
177776
001370
000002
177776
001372
000002

001372

002624

002622

001362
000626

TCHK: MOV
MOV
MOV

001364

001370
001366

CLR
INC
CMP
BEQ

MOV
MoV
MOV

SuB
MOV

MOV

sus
8R

DATCH2: (MP
BNE
MOV
ADD

DATCHX: RTS

s SUBROUTINE CALL
sERROR CALL
sRETURN TO SUBROUTINE AFTER ERROR RTS
sSUBROUTINE RETURNS HERE IF NO ERROR(S) OR WHEN DONE

PCbbATCHK
+2

PC.DATCH2
i

iiid

(SP) ,$TMP1

CHKBUF ,R2

INBUF ,R3

ENCHK
CHK

(RZ)* (R3)+

DATCHZ
$TMP1,

(SP)

<2(R2) ,$TMP2

R2,$TMP4

#2.3TMP4

-2(R3),$TMP3
R3,$TMPS
#2.$TMPS

DATCHX
LENCHK ,BUF LEN

DATCH1
$TMP1, (SP)

#6, (SP)
PC

i iiiiiiiiiididdissdsdd]

:SAVE PC RETURN

:STARTING ADDRESS OF CHECK BUFFER TO R2
sSTARTING ADDRESS OF IN BUFFER TO R3
;CLEAR LENGTH CHECK

sMAKE
A COMPARI] SON

:1S THE DATA CORRECT?

:BRANCH IF 0K
sRESTORE 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
sMOVE ADDRESS +2 TO STMP5
sCORRECT SO _IT POINTS TO ADDRESS CAUSING ERROR
sRETURN TO ERROR CALL = PC ON STACK ALREADY POINTS THERE

sSEE_IF THE BUFFER HAS BEEN CHECKED
:GO BACK FOR ANOTHER TRY IF NOT
sRESTORE PC RETURN
:gg?figfif IT SO RETURN IS AFTER THE ERROR CALL

CZDRLDO-DR11 GEN NPR INTF(

INT VECT & SET CPU PRIORITY TO

OV NN

W) — o

SUBROUTINE TO RESTORE DR11

MACRO M1113 02-NOV-81 16:98 PAGE 50
.SBTTL

*
*

003646
003654
003662
003666

012737
012777
005077
000207

000340
010000
176634

177776
176640

SEQUENCE

SUBROUTINE TO RESTORE DR17

INT VECT & SET CPU PRIORITY TO 7.

THIS ROUTINE IS USED IN VARIOUS TESTS TO CLEAR ANY DATA THAT

MAY BE LEFT IN ANY REGISTERS, AND RESTORE CPU PRIORITY TO 7.

CLENUP: MOV
MoV
CLR
RTS

#LEVEL7,PSW
#MA,aCSR
aCSR
PC

sRESTORE CPU TO PRIORITY LEVEL 7
;DO AN INIT CLEARING WCR, BAR & BDR BY SETTING
sAND CLEARING THE MAINT BIT AND CLEAR THE CSR
JEXIT

CZDRLDO=DR11 GEN NPR INTFC

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

SEQUENCE

SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA

.SBTTL

;®
i
i

3829 003670
3830 003676

T
CHKCAB: BIT
BNE

33359
3828

3831 003700
3832 003706
3833 003714

SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA

3823
3824
3825

032737
001006

052737
052737
000207

000004

002720

127000
127000

002572
002536

1$:

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

LOCATION IF THE CABLE IS OUT.

BIS
BIS
RTS

#81T2,0DW
1$

#127000,ECSR
#127000,8UT
PC

;CHECK FOR CABLE STATUS
SEXIT IF CABLE DOES EXIST

sSET BITS 12, 10, 8, 7 € 6 - CABLE DOESN'T EXIST
;SET BITS 12, 10, 8, 7 &€ 6 IN BITS UNDER TEST LOCATION TOO
sRETURN

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

3836

3837
3838
33328

e
o¥
:®

3841

:®

- %

3842
3843

.SBTTL

L
PAGE 72

SEQUENCE

SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF

AR AN AN A AN R R R R R R R R AN R AR RN AR AR AN AN NN AR

IRRRRORRRS

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

PC,DATOCK

;SUBROUTINE CALL

ERROR

+47

:2ND ERROR CALL

M
:®

ERROR
JSR

33322

CONT INUE

3847
3848 003716

001362

:-;-nnnnnnnnnutnunnntna.-"...n.n"'.nnnnunn
DATOCK: MOV
(SP) ,$TMP1
;SAVE PC RETURN

002616
002624
002624

MOV
CLR
DATOCT: INC

3844

011637

3849 003722

012702

3853 003742
3854 003744

020223
001415

3850 003726
3851 003732
3852 003736
3855 003746
3856 003752
3857 003756
3858
003764
3859 003770
3860 003776
3861 004000
3862 004006

3863 004010
3864 004012
3865 004014
3866 004020
3867 004026
3868 004032
3869 004040
3870 004044
3871 004050
3872 004052
3873 004056
3874 004062

013703
005037
005237

013716
010237
016337
010337
162737
000431
023737
001353

020223
001017
010237
016337
010337
162737
013716
062716
000404
013716
062716
000207

052525

001362
0013(_:4
177776
001370
000002

001370

0026264

002622

.
001364
177776
001370
000002
001362
000006

001362
000010

001366

001366
001370

+46
PC,DATOC?2

JERROR CALL
JRETURN TO SUBROUTINE AFTER ERROR RTS

s SUBROUTINE RETURNS HERE WHEN DONE

MOV

lSZSéS.RZ

sDATO NUMBER TO R?2

(MP

R2,(R3)+
DATOC(?2

;1S THE DATA CORRECT?
JBRANCH IF 0K

BEQ
MOV
MOV
MOV
MOV
Sus
BR
DATOC2: CMP
BNE
(MP
BNE
MOV
MOV
MOV
SuB
MOV
ADD
BR
1%:
MOV
ADD
DATOCX: RTS

INBUF ,R3
LENCHK
LENCHK

$TMP1, (SP)
R2.$TMP2
=2(R3) ,$TMP3
R3,.$TMPL
#2,8TMPS
DATOCX
LENCHK ,BUFLEN
DATCCI
R2,(R3)+
1%
R2.$TMP?2
=2(R3) ,$TMP3
R3,$TMP4
#2,8TMPS
$TMP1, (SP)
#6, (SP)
DATOCX
$TMP1, (SP)
#10,(SP)
PC

JSTARTING ADDRESS OF IN BUFFER TO R3
sCLEAR LENGTH CHECK
JMAKE A COMPARI]SON
sMOVE OLD PC RETURN TC STACK
sMOVE EXPECTED DATA TO $TMP?
sMOVE RECEIVED DATA TO $TMP3
;MOVE ADDRESS +2 TO $TMP4
sCORRECT ADDRESS SO IT POINTS TO ADDRESS CAUSING ERROR
JRETURN TO ERROR CALL
;SEE IF THE BUFFER HAS BEEN CHECKED
;sBUFFER CHECKED?

:CHECK END OF BUFFER + 1

JBRANCH IF NOT LOADED
sMOVE EXPECTED DATA TO $TMP?
JMOVE RECEIVED DATA TO $TMP3
sMOVE ADDRESS +2 TO $STMP4
sCORRECT ADDRESS SO IT POINTS TO ADDRESS CAUSING ERROR
sCORRECT PC RETURN
sPOINT TO 2ND ERROR CALL AFTER JSR PC,DATOCK
JRETURN TO ERROR CALL

JRESTORE RETURN ADDRESS
sPOINT TO PROPER RETURN AFTER THE ERROR CALLS
JEXIT

e
———————

c————————————

CZDRLDO=DR11 GEN NPR INTF(

MACRO M1113

02-NOv-81 16:08

' SUBROUTINE TO CLEAR IE AND HWALT IF ERROR IS SET

.SBTTL

3875
i
|

PAGE 73

SEQUENCE

SUBROUTINE TO CLEAR IE AND HALT IF ERROR IS SET

3876

. -2122222322233 22332323%2322322323233333333332333233332333333333322323223222333)]

3878

3877

)

3879
3880

e
e

881

3882

%ggz
3885

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

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

JSR

ERROR

CONT INUE

PC, ERRCHK

+21

: SUBROUTINE CALL

*ERROR CALL
*SUBROUTINE RETURNS HERE IF NO ERROR

:. (2222232223322 2233323223222333333323333333232333333233323223323322232213]

3886 006064

042777

000100

176430

ERRCHK: BIC

#1E,aCSR

:CLEAR IE

3888 004100
3889 004106
3890 004114
3391 004122

013737
042737
052737
013701

002560
100000
000200
002560

002572
002572
002572

MOV
BIC
BIS
MOV

RCSR,ECSR
#ER,ECSR
#RY _ECSR
RCSR,R1

*MOVE EXPECTED DATA TO ECSR
:CLEAR THE ERROR BIT
*SET THE READY BIT
*MOVE DATA TO R1 FOR CHECKING

3894 004140
3895 004144
3896 004146

022701
001002
062716

000200

3887 004072 017737 176424 002560

MOV

3692 004126 012737 000200 001360
3893 004134 042701 (77577
3897 004152

000207

000002

THE ERROR

FUTURE USE OF

MOV
BIC
$:

CMP
BNE
ADD
RTS

aCSR,RCSR

ARY,$TMPO
877577 .R1
#RY,R1
1%
#2,(SP)
PC

*MOVE RECEIVED DATA TO RCSR

“MOVE EXPECTED DATA TO $TMPO
*CLEAR ALL BUT THE ERROR AND READY BITS

“SEE IF ERROR BIT IS CLEAR AND READY IS SET
*BRANCH AROUND PC CORRECTION SO ERROR WILL CALL
“CORRECT PC RETURN - DATA 0K

JEXIT

CZDRLDO-DR11 GEN NPR INTF(C

MACROM‘l 3OZ-PSJOV-B‘I 16:08 PAGE "

SEQUENCE

SUBROUTINE TO RESET THE "'.+2'" AND "BPT"'
gg

.SBTTL

3900
3901

i
e

390‘

:.t'tt.t.t"tt'0.QQtt."'.'itttttt.Qt..t'....'t.t'..Q""'QQQ""

3"38%

3905 004156
3906 004160
3907 004164
3908 004166
3909 004170
3910 004172
3911 004174

012700 004216
012701 000003
012002
012003
010204
005724
010422

3915 004206
3916 004210

001372
005301

gg;g 004214

000207

3920 004216

2$:

000004

000174

TST
MOV

MOV
CMP
CMP
BNE
DEC

3917 004212 001364
3921 004224

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

BETWEEN 4=776.

BPINIT: MOV
MOV
18:
MOV
MOV
MOV

3912 004176 012722 000003
3913 006202 022424
3914 006204 020203

[——

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

tQt...Q..t.Q..'...l."""'...'.t'.QQQQ.""Q.'Q.'."'Q"'Q'..'

BNE
000014

000254

000050

001000

BPTINT:

mnm RO
#3.R
(R6)+"%
(RO)+.R
R2.R4

:POINT no ro TABLE ,orBPT_INIT LOCATIONS
‘D0 3 SET
o
"BPT'* SETUPS
MOVE smr ADDRESS to R2
*MOVE END ADDRESS TO R3
:MOVE ADDRESS TO R4
,

#B8PT, (R2)+
(R4)+, (R4)+
R2,R3’

SMOVE "BPT'' TO THE NEXT LOCATION
SADD 4 TO R4
*SEE IF WE HAVE DONE ALL FOR THIS LOCATION

:BRANCH BACK IF 3 GROUPS NOT DONE

(Ré) +
R4, (R2)+
2%
R1

RTS

.WORD

4,14,50

"WORD

174,354,1000

:INCREMENT R4 TO PRODUCE THE °'.+2'* NUMBER
HOVE THE NUMBER TO THE LOCAHW
;BRANCH BA(CK FOR ANOTHER TRANSFER IF NOT
*DECREMENT R1
SEXIT

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

CZDRLDO=DR11 GEN NPR INTF(

MACRO M1113 02°NOV-8‘l 16:08 PAGE SS

SEQUENCE

SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11
92

.SBTTL

SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11

'.t'tttt.tt.lt.tttt'tt"'t't'ttQtttt"ttttttttttt.t.ttt"t.t"t"

3924
3925
3926
3927
3928
gggg

B
e
e
i
T
e
b

3931

3932 004232

012737

000340

3% 004244

012704

000004

3933 004240

012703

3935 006250

012737

938 004264

3940 004300

004256

000400

002660

013737

000014

001362

012337

177776

012710

3937 004262 005010

3939 004272

3941 004
3942 004306
3943 004312
3944 004316
3945 004320
3946 004326
3947 004334
3948 004342
3949 004344
3950

004732

002540

012737
000240
012710
005337
001375
012737
013737
162737
005304
001341

010000
004520

001362
000040

000001

001430

3959 004356

032777

010000

174754

104401

004742

004737

002722

001161

3962 004372

012703

3964 0064402

020427

3965 004406
3966 004410
3967 004414
3968 004416

100403
022704
100003
104401

3971 004430

3972 004432

3973 004436

3974 004440
3975 004442
3976 004446

3977 004452
3978 004456

¥4 Ré

MOV

CLR

*MOVE ADDRESS OF PRIORITY LEVELS TO R3

oabo.rxne

*SET UP WAIT LOOP COUNTER

5
(RO

RO)

MOV

BPTV/T,$TMP1

MOV

(R35+,PSW

NOP
MOV
DEC
BNE
MOV
MOV
SUB
DEC
BNE

#98 BPTVCT

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

‘D0 4 PRIORITY CHECKS

*SET THE MAINTENANCE BIT AND

:CLEAR TO DO AN INIT

:SAVE BPT TRAP VECTOR

: INTERRUPTS TO 9%

*SET CPU anoaxrv TO NEXT LEVEL

*KILL A LITTLE TIME
:SET IE, FNCT2 AND GO ATTEMPTING AN INTERRUPT
*DECREMENT TIME
*BRANCH BACK UNTIL ZERO
*SET CPU PRIORITY BACK TO 7
:RESTORE BPT TRAP VECTOR
:PUT LOCATION °‘LEVEL® AT NEXT PRIORITY - INTERRUPT FAILED
:DECREMENT LOOP COUNTER
:BRANCH BACK IF NOT ALL PRIORITY LEVELS CHECKED YET

.o tttttttttttt'tttttttttttt'.ttttttttt.tttttttttttt.tttttttt.tt't

$§:

#8IT12,aSWR

TYPE

,ASK&VC

STYPE:

PC.READ

*GO READ VECTOR INPUT

R&. #300

000774

58:

104401

005017

010412
104401
012703

005056
000001

022704

000003

002722

B8R

BIT

BEQ

TYPE

55$:
68:

MOV
TYPE
MOV

JSR

CMP

:DPMOO1

*BRANCH IF SO - ASSUMED TO NOT BE A DR11:DPMOO1

CMP

BM]
CMP
BPL
TYPE

;1S THIS A MANUFACTURING ENVIRONMENT?

14$

000300

JSR

:DPMOO1

*BRANCH OUT IF SO

#3,R3

000003

004737

BIT

:SEE IF WE ARE UNDER APT

148

MOV

032704

000743

#BITO,SENV

000003

48:

001403

BITB

BNE
BNE

004762

3969 004422 000751
3970 004426

MOV

:;MOVE PRIORITY 7 TO LEVEL

#LEVELS.R3

23ttttttttttttttlt'ttttttt'tttttttttttttttttttttttttttttttttttttt

132737

3963 004376

#LEVEL7,LEVEL

:"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 (I.E. CABLE STATE, ETC.) IS AS THE MODULE IS SET UP.

3958 004354 001165
1 004366

MOV

177776
000014
002540

3957 004346

3960 004364

28:

3951
3952
3953
3954
3955

3956

|
l
|
|
;

:,tttttutttttttntttctttttttttnntttttttnt.tttttttttttttwtttntt

DRGET:

000014

000105
002660
000340

]

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
MINI-TEST.

4
#774 R4
58
OUTORG

#3.R4

558

NOTVEC

R&, (R2)
ASK4PR
1.R3

Pg
"READ
R

'INPUT VECTOR
?

SEXPECT 3 DIGITS

*SEE IF VECTOR xupureo IS BELOW 300
*BRANCH
*SEE IF
*BRANCH
STYPE:

IF LESS
THAN 300
VECTOR IS ABOVE 774
IF NOT TO LOAD INFO
°‘VFCTOR OUT OF 300-774 RANGE®

*BRANCH BALK FOR ANOTHER TRY

*MAKE SURE BITS 0 €& 1 ARE CLEAR

:DPM001
:DPMO01

*DPMO01

*DPMO01
:DPMO01
:DPMO01
:DPMO01
:DPMOO1

:DPMO01
:DPMO01

*BRANCH IF_OK

:DPM001

*BRANCH BACK FOR ANOTHER

:DPMO01

*GO GET PRIORITY

STYPE:

°‘VECTOR IS NOT A HULTIPLE OF &' :DPMOO1

*MOVE INPUTED VECTOR TO LOCATION
STYPE:
°INPUT BOARD BR PRIORITY®
SEXPECT 1 DIGIT
“SEE IF INPUT IS BELOW 4

<DPM0O01
:DPMOO1
:
1
:

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

CZDRLDO=DR11 GEN NPR INTF(
SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11
%979 004462
004494

3981 004470
3982
004472
ggB 004476

100003
020427
100403
104401

000761
006304
006304

000007
005107

78:

8$:

NON = WNOOONONN=N—=

SNONOOVN—'NNNN
—
&

177776

=l=lelels]
WOWO
W
nNON =PRI
= NOWN
N&N
WO W= = (N = NNO

2
R

S
W

64
4001 004570
4002 004574
4003 004576
4004
602

gpgegessegensoe

002540

001362

000014

9%:

108:

002562

000400

002562

000002
002560
127000

002560

11$:
128:

000004
002560
010000

4028 004730
4029
4030 004732

é$

*BRANCH BACK TO TRY AGAIN

*uPM001

MOV
BR

Ré,LEVEL
10§

*PUT PRI LEVEL INTO THE LEVEL LOCATION
*BRANCH OVER DR11 INTERRUPT HANDLER

:DPMOO1
*DPM001

(SP), (R3)
#4, (R2)
#10,sP

*MOVE VECTOR+4 TO VECTOR LOCATION
*VECTOR IS WRONG = CORRECT IT
:CLEAN STACK

TYPE

ASL
ASL
ASL
ASL
ASL

138:

LEVEL, (R1)

MOV

$DEVM

QTYBRD

MOV

#MA, (RO)

*STORE THE OBTAINED PRIORITY LEVEL

:RESTORE BPT TRAP VECTOR

(RO)

:DO AN INIT

BIT
BEQ
BIS
MOV

#N2 .REIR
12$
#BIT1,(R1)
(RO) ,RCSR

BNE
MOVB

13$
#F2, (RO)

128

0127600 RCSR
(noS ncsn

(RO)

cAr.Rcsa
138
#BIT2, (R1)
BDNUMS , R4
n4

:CHECK IF ANY BITS ARE SET = THEY ARE IF NO CABLE

*BRANCH IF NO CABLE
*CABLE IS POSSIBLY IN = SET FNCT2

*MOVE RECEIVED DATA TO RCSR
*SET THE MAINTENANCE BIT

*CLEAR THE CSR TO DO AN INIT

STEST THE ATTN BIT
*BRANCH IF NOT SET - NO CABLE
*SET CABLE BIT IN oevxcs DESC
*MOVE BOARD NUMBER
TO R4
:DECREMENT FOR coanscr OFFSET

:DPM001
:DPM001

:DPMO01
:DPMOO1

:SHIFT LEFT TO PRODUCE WORD OFFSET

SEXIT

LEVELS:

.WORD

LEVEL6,LEVELS

:PRIORITY LEVELS TO LOAD INTO THE PSW

ASK4VC:
OUTORG:

.ASCIZ
.ASCIZ

{INPUT VECTOR ? !
{VECTOR OUi OF 300-774 RANGE! <CRLF>

NOTVEC: .ASCIZ
ASK4PR: .ASCIZ

*DPMO01

*CHECK 2/N CYCLE STATE
*BRANCH IF 2 CYCLE
*N CYCLE = SET BIT IN DEVICE DESC
*MOVE RECEIVED DATA TO RCSR TO GET CABLE STATUS

RTS

LEVEL4.LEVEL3

:DPMO01

:GO TO CABLE STATUS TEST

148:

.WORD

:DPM001

STEST FOR a/u STATE
*BRANCH IF A W
*SET STATE IN DEVICE DESCRIPTOR WORD

:MOVE CSR ADDRESS TO LOCATION AND
:SUB
4 TO FORM ADDRESS FOR THIS MODULE

(Ri)+, (R2)+

*DPMO01
:DPMOO1
*DPMO01
*DPMO01
*DPMO01

*SET THE MAINT BIT

ao REGADR(R4)
#4 REGADR(R4)

CMP

:DPMO01

*SET THE CARRY BIT FOR THE °'ROL'
:DPMOO1
*INDICATE DEVICE EXISTENCE IN DEVICE MAP
* INCREMENT DEVICE COUNT

*GO TO EIR TO GET B/W STATE
*MOVE EIR TO REIR
+GO BACK TO CSR

#BITO,REIR
118
#BITO, (R1)

BIT
BEQ
BIS
MOV
DEC

+SET CPU PRIORITY BACK 10 7

#EIR, (RO)
(RO) .REIR
(RO)

BIT
BNE
BIS

BIT

‘PRIORITY OUT OF 4-7 RANGE'

MOV
SUB

002416

103
120

$TMP1.BPTVCT

INC

B8R

STYPE:

*SHIFT LEVEL OVER 5 PLACES
:
:
:

MOV

MOV
SUB
ADD

ASL

880

R4
R4
R
R&
R4

#LEVEL7,PSW

CLR

002560

PROUT

MOV

BIS

120
103

4035 005056

:DPMOO1
:DPMO01
- DPMO01

MOV

000004
006122

002416
000004

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

CLR

000001

020000

78
RG 47
53

BIS
MOV
CLR

010000
000001

BPL
CMP
BM]

SEC
ROL

001466
002414
100000
002562

SEQUENCE

*R1 & R2 GET NEW DEVICE & VECTOR LOC'S

{VECTOR IS NOT A MULTIPLE OF &!<CRLF>
!INPUT BOARD BR PRIORITY !

:DPM001

:DPMOO1

:DPMO01
:DPMO01

:DPM001
*DPM001

CZDRLDO-DR11 GEN_NPR_INTF(

MACRO M1113 02-NOV-81 16:08 PAGE 95 g

SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR1
4036 005107
4037

120

122

111

PROUT:

.ASCIZ
.EVEN

IPRIORITY OUT OF 4=7 RANGE:<CRLF>

SEQUENCE

;DPM001

CZDRLDO-DR11 GEN NPR _INTF(
MACRO M1113 02-NOV-81 16:08
SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS
A

.SBTTL

PAGE 76

SEQUENCE

SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS
d

diidadd

it iiiiidiiidiiiiiidiiiiiiiiliiiiiisids

THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS FOUND BY ASIZE

3
. %

f Y PCNF:

002662

002456

CLR

iRddiiiidtdiitiiiiiiiiiiiddiididiiiiiiiiliddd]

LOOP
$DEVM,R5
#REGADR,R1
#VECADR,R2
R3

. NOBUT

037535
002414

QTYBRD,=(SP)

037574
000020
000001

1%:

002662

LOOP,={SP)

037361

.SPACE6

037361

.SPACE6

000
037370
001474
000001

3,0
, SPACE7

(R1),--(SP)

(R2) ,=(SP)

SDDUO(R3) DDW

002720
002720

#81T70.D

037405
037407
037370
006560
037370
000002

4094 005414

037411
001405
002662
000002

001405

sMOVE THE ADDRESS OF THE VECTOR ADDRESS TABLE TO R2

CLEAR THE DEVICE DESCRIPTOR ADDRESS POINTER
YPE:
°'NO. BOARDS UNDER TEST:
HOVE THE QUANTITY TO THE STACK FOR TYPEOUT

sTYPE THE NUMBER
:TYPE THE HEADER

:SET UP LOOP COUNTER FOR 16 BOARDS
sDEVICE UNDER TEST?
sBRANCH IF NO
sPUT BOARD # ON STACK FOR TYPEOUT
sPRINT BOARD # (0 TO 16)
sTYPE 6 SPACE CHARACTERS
sSAVE REGISTER ADDRESS FOR TYPEOUT
sPRINT DEVICE REGISTER ADDRESS
sTYPE 6 SPACE CHARACTERS

:SAVE VECTOR ADDRESS FOR TYPEOUT
sPRINT VECTOR ADDRESS

:PRINT 3 DIGITS, LEADING ZEROS SUPPRESSED
:TYPE 7 SPACE CHARACTERS
:MOVE DEVICE DESCRIPTOR WORD TO DDW
sTEST WHICH STATE, B OR W, FOR THIS SOARD

GO PRINT W STATE IF
W
TYPE A 'B'

2$:
3s:

:PRINT _DEVICE PRIORITY

sTYPE 7 SPACE CHARACTERS
:TEST 2/N CYCLE STATE

002720

GO PRINT 2 STATE IF 2

sTYPE AN
'
:60 TO NEXT CHECK

4$:

002720

STYPE A *2°
:TYPE 7 SPACE CHARACTERS

5%:

:TEST CABLE STATE

;G0 PRINT \NO*

037414
4086
364
4087 005370
4088
005374
4089 005376
4090
005400

:GET DEVICE MAP
sMOVE THE ADDRESS OF THE REGISTER ADDRESS TABLE TO R1

GO T0 NEXT CHECK
s'TYPE
A ‘W'
:TYPE 7 SPACE CHARACTERS

037422
037420
037370
000004

sCLEAR THE BOARD NUMBER COUNTER

6$:
8s:

IF NO CABLE

:TYPE 'YES'
GO TO LOOP CHECK

YPE °'NO'

.SCRLF

TYPE A <CRLF>

RS
#2.R3
RO
1%

:SHIFT RS TO THE RIGHT TO MOVE BOARD BIT INTO BIT 0
:ADD 2 TO THE DEVICE DESCRIPTOR WORD POINTER

LOOP
(R1)+,(R2)+

. SCRLF

: INCREMENT BOARD COUNT FOR POSSIBLE NEXT PASS
: INCREMENT COUNTERS

:DECREMENT THE LOOP COUNTER

:BRANCH BACK FOR CHECK IF 16 BOARDS NOT DONE
E;?E ANOTHER <CRLF>

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

CZDRLDO-DR11 GEN NPR INTF(
SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION

4147 005652

4149 005662
4150 005664
4151 005666

SEQUENCE

SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION

AA AR AAARARAAAAAAANAARRAAAAAAAAAAAAA
AR
AR AR AN

THIS SUBROUTINE AUTOSIZES THE BOARD CONFIGURATION IF PROMPTED BY THE
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 CALLS FOR

THE PRINTING OF THE CONFIGURATION IF THE TABLE WAS MADE BY THIS ROUTINE.

100%:

006122

1%:

000006
002722
160010

#VECADR,R2
108
QTYBRD

2$
LDYWTLT

#'Y ANSWER

13$

QTYBRD

2%:

#$DDWO RO

3s:

(RO)+
R1

012703
004737
005704
001505
022704

1008
#BIT12,3SWR
1$

PC ,READ

002664

3s
SDEVM

006122
002704

006142

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

#1,R3

002414
001474
000020

001466

JSR

PC,BPINIT

#1,BDNUMB
#160014
R0
#$DDWO,R1

006401
000001
002722
000131

A ARAAAAAAAAAAA

#BI1T0, SENV

173650

002414

A A AR

1ZE:

O = NNN
WwW W WO
NON ~ NW

002414
001466
000001
160014
001474
002456

—h

4145 005646

4148 005656

b LR TR PR TR TR TR TR TR

-O0000O
Wb
e e d
-k
e = OO
NNV
=N = NN WO W
~
S NVINNNNOO
NN
W
O=WNOO
=SNSN=
~
NNNONN
OO0

010000

104403
00
4146

SRR

001430

o~
o

4137 005614
4138
620

e =2 OO OO
= b

T
32

4124
4125 005540
4126 005544
4127 005550
4128 005556
4129 005560
4130 005564
4131 005570
4132 005574
4133 005576
4134 005600

002672

—h

4123 005534

.SBTTL

SRR

Er:CND:) S
<>§?DCMD<>C>
-d§§§CKWDCNDCflDERZS;
SRRy R
S
NNNN\"GMU\NN\A
Ernu«n-vugs

4095
4096
4097
4098
4099
4100
4101
4102
4103
4104
4105 005416
4106 005422
4107 005430
4108 005436
4109 005444
4110 005452
4111 005460
4112 005462
4113 005470
4114 005472
4115 005476
4116 005502
4117 005510
4118 005514
4119 005520
4120 095524
4121 005526
4122 005532

#1 ,BDNUMB
#$DDWO ,R1
#VECADR ,R2

4$:

#'7,LRGSTC

ARARARA AR

AR AR S

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

:SAVE TIMEOUT VECTOR
:TIMEOUTS TO 78
:SAVE TIMEOUT PS
:TIMEOUT PRIORITY TO 7
:SEE IF WE ARE UNDER APT
:BRANCH OUT IF SO
:DOES USER WANT 100% AUTOSIZE?
:BRANCH IF NOT
:CLEAR DEVICE COUNT
:CLEAR THE DEVICE MAP
:START WITH BOARD NUMBER 1
:MOVE START ADDRESS OF WINDOW TO RO
:LOAD DEVICE DESC ADDRESS
:POINT R2 TO UNIT #1 VECTOR ADRS LOC
GO START THE DR11 SEARCH
:SEE IF TABLE WAS BEEN LOADED
:BRANCH TO LOAD TABLE IF NOT
:TYPE:
'DO YOU WISH TO CHANGE
:
THE CONFIGURATION (Y OR <CR>)"
EXPECT 1 CHARACTER
GO READ 1 CHARACTER OF USER INPUT
WAS A <Y> INPUTED?
:BRANCH OUT OF ROUTINE IF NOT
:CLEAR DEVICE COUNT
:MOVE ADDRESS OF 1ST DDW TO RO
:CLEAR 16 WORDS
:CLEAR THE WORD
:DcCREMENT THE LOOP COUNTER AND
:BRANCH BACK IF NOT DONE YET
:CLEAR DEVICE MAP
:START WITH 1 BOARD
:LOAD DEVICE
DESC ADDRESS
:

T #1_VECTOR ADRS LOC

770 LRGSTC FOR OCTAL INPUT

. INDEV
- (SP)
BDNUMB,
2
0

.STAD

JTYPE:

#6,R3

SJEXPECT 6 DIGITS
ER'S INPUT
;G0 READ TH

PC .READ

12%

#160010,R4

X 1/

T WAS MADE

NO MORE

IS TOO LOW

CZDRLDO-DR11 GEN NPR INTFC
MACRO 1113 02-NOV-81 16:08
SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION
4152

4153

005672

005674

4154 005700
4155 005702
4156

103003

022704

103003
104401

4157 005706 000751
4158 005710
4159 005714
4160 005716
4161

032704
001425
104401

4162 005722 000743
4163 005724 ogzsge

BHIS

172770
006255

5%:

000007

68:

006335

000001

4164 005726

132737

4167 005744
4168 005746

001406
062700

000010

758:

4172 005762
4173

104401

006207

8s:

4165 005734 001004
4166 005736 032777 010000

4169 005752 022700
4170 005756 001007
4171 005760 000447

4174 005766 000721
4175 005770 010400
062700

000004

4179 006002

004737

004232

4181 006010

001010

4180 006006 020126
4182 006012

132737

000001

4183 006020 001022
4184 006022 032777 010000
4185 006030

001754

4187 006040

001417

4186 006032
4188 006042

4189 006046

022737

000020

005237

006122

132737

4190 006054 001004
4191 006056 032777
4192 006064
4193 006066

001662
062700

4196 006100
4197 006106
4198 006114

013737
013737
004737

4201 006122

000000

258; 006401

104

4194 006072 022700
4195 006076 001337

256’3 006120

4202 006124
4203 006142
4204 006207
4205 006255
4206 006335

000207
111
040
103
101
116

173374

173004

4176 005772

4177 005776 005010
4178 006000 010146

001430

78:

000001

001430

010000

173254

000010

173004

002674
002672
005142

000006
000004

116
123
101
104
117

120
124
116
104
126

117

*DPMO01
:DPMO01
:DPMOO1

*SEE THAT ADDRESS IS A START ADDRESS
*BRANCH
IF OK
:TYPE:
'NOT A STARTING ADDRESS TRY AGAIN

:DPMO01
:DPM001
*DPMO01
:DPMO01

BNE
BIT

75$
#BIT12,aSWR

*BRANCH OUT IF WOT
:DPMO01
*SEE IF UNDER MANUFACTURING ENVIRONMENT :DPMO01

CMP
BNE
B8R

#17%004 ,RO
108
128

:HAVE WE LOOKED OUT THE ENTIRE WINDOW?
:BRANCH IF NOT - MORE DAYDREAMING
*BRANCH TO EXIT - BOSS JUST CAME IN

BITB
BEQ
ADD

TYPE

#7 R4
98
,NOTST

#BITO.SENV
13
#10,R0

,NOBD

R1.(SP)+

*MAKE RO ADDRESS THE CSR

*GO EXTRACT INFO FROM THE DR11

*DPMO01
*DPM001
*DPMO01

*DPM001
:DPMOO1

SEXIT IF SO

:DPMO01

#BITO,SENV

*SEE IF WE ARE UNDER APT

*DPM001

1108
#81T12,aSWR

CMP
BNE

#175004 ,RO
108

040 DYWTLT: geg}“z

*DPM001
*DPMO01

'CAN'T SEE THE DR11 BOARD TRY AGAIN

12$

BNE
BIT

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

:TYPE:

:DPMO01
*DPM001
*DPM001

<DPMO01

BDNUMS

.WORD

:DPMO01
*DPMO01

:GO CALL ERROR IF NOT

INC

BDNUMB:

*BRANCH IF NOT
*MOVE TO NEXT MODULE ADDRESS

*DPM001

#16. ,BDNUMB

RTS

;DPM001

*SEE IF WE ARE UNDER APT

#BITO,SENV

CMP

138:

*DPMOO01

:DPM001

1108
#BIT12,aSWR

MOV
MOV
JSR

*DPMO01

*WAS THE LOCATION A DR11?

11$

BNE
BIT

BEQ
ADD

*DPM001

*SEE IF WE ARE UNDER APT

*MAKE SURE IT IS THERE
:SAVE PRESENT VALUE OF R1 ON THE STACK

PC.DRGET

BITB

:60 DECREMENT BONUM AND TRY AGAIN
*CORRECT STACK AFTER TIMEOUT

(rR0)
R1,=(SP)

JSR

BEQ

60 oscnenem BDNUM AND TRY AGAIN

*BRANCH BACK FOR NEW INPUT
*MOVE CHECKED ADDRESS TO RO

#4 RO

BEQ

*SEE IF ADDRESS IS TOO HIGH

48
R4 RO

ADD

BITB

INDEV:
STAD:
NOBD:
OUTRAN:
NOTST:

*BRANCH IF OK
;TYPE:
'ADDRESS OUT OF 160010-172770
ANGE = TRY
AGAIN

48
(SP)+,(SP)+

BNE

12%:

68
,OUTRAN

B8R
CMP

CLR
MOV

1108:

:DPMO01

BIT
BEQ
TYPE

108:

11$:

;:BRANCH TO REPORT ERROR INPUT IF SO

BHIS
TYPE

CMP

006122

#172770.R4

BR
MOV

173310

SEQUENCE

CMP

98:

001430

H_6
PAGE 77=%

*BRANCH TO BOARD INCREMENT IF SC

*BRANCH OUT IF SO
*DPM001
+1S THIS A MANUFACTURING CONFIGURATION? :DPMO01
*SEE IF THE TABLE IS FULL

* INCREMENT BOARD NUMBER

*DPM001

*DPMO01

*BRANCH OUT IF SO
*DPM001
*SEE IFf UNDER MANUFACTURING ENVIRONMENT :DPMOO1

4
#10,R0

*BRANCH IF NOT
*MOVE TO NEXT MODULE ADDRESS

OLDPS1,TMOPSW
OLDPC1.TOVECT
PC, TYPCNF

-RESTORE TIMEOUT PS
:RESTORE TIMEOUT VECTOR
*GO TYPE THE BOARD CONFIGURATIONS

:DPMOO01

:HAVE WE LOOKED OUT THE ENTIRE WINDOW?
*BRANCH IF NOT - MORE DAYDREAMING

:DPM001
*DPM001

:DPMOO1
*DPM001

SEXIT

;LOCATION TO HOLD BOARD NUMBER
{INPUT DEVICE !
! STARTING ADDRESS (<CR> IF NO MORE) !
!CAN'T SEE THE DR11 BOARD = TRY AGAIN!<CRLF>
!ADDRESS OUT OF 160010-172770 RANGE - TRY AGAIN:!<CRLF>
!NOT A STARTING ADDRESS = TRY AGAIN!<CRLF>

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

:DPM001

:DPMO01
:DPMO001
*DPMOO01
:DPMOO1
:DPM001

:DPMOO1

MACRO M1113 02-NOV-81 16: 08 PAGE ’8

CZDRLDO-DR11 GEN NPR_INTF(
ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUP
4209
4210
4211
4212
4213
6214
4215 006466
4216 006474
4217 006500
4218 006504
4219 006510
4220 006514
4221 006522
4222 006526
4223 006530
4224 006534

.SBTTL

SEQUENCE

ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS
it

ittt

ittt iitiiiiiiitsdyd]

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

012737
012637
012637
012637
012637
162737
104050
013746
013746
000002

000340
002542
002674
002676
002700
000004
002700
002676

177776

TCH:

i adiiddidiiiidiiiiiiiiiiiiiiiiiiiitiiitiaiissdy]

MOV

#LEVEL?7 ,PSW
(SP)+,BDOVECT
(SP)+,0LDPS1

(SP)+,0LDPC2

002542

sREESTABLISH CPU PRIORITY AT 7
gfi;EADgRESS OF TRAP VECTOR + 4

(SP)+,0LDPS2

:SAVE PC OF ADDRESS OF INSTRUCTION CAUSING TRAP
:SAVE 2ND PS

OLDPS2,=(SP)
OLDPC2,~(SP)

:RESTORE PS RETURN ON STACK

lgOBDVECT

:ADJUST TO POINT TO TRAP ADDRESS
;UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW
¢RESTORE PC RETURN ON STACK
;RETURN

MACRO M1113 02-NOv-81 16:08 PAGE $9

CZDRLDO-DR11 GEN NPR INTFC
SUBROUTINE TO PRINT STATE OF A DDW BIT

SRR

.SBTTL
AR

SEQUENCE

SUBROUTINE TO PRINT STATE OF A DDW BIT

AR AR AR AR AR

AR AR

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

PRELOADED INTO BITTST.

. %

4238 006556

005046
033737
001401
005216
104403
001
000207

:;tttttttttttttttttttttttQttttttttttttttttttttttttttttt'ttttttttt
002710

000

002720

STATE:

1$:

CLR
BIT
BEQ
INC
TYPOS
.BYTE

RTS

=(SP)
BITTST,DDW
1$
(SP)

1,0

sSHOW STATE AS ZERO INITIALLY
sCHECK STATE OF BIT IN DDW USING BIT SET IN BITTST

sBRANCH IF NOT SET
sSHOW A '1' STATE FOR THAT BIT
sTYPE THE STATE, LEADING ZEROS SUPPRESSED
sTYPE 1 CHARACTER, SUPPRESS LEADING ZEROS

SEXIT

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

SUBROUTINE TO PRINT DEVICE PRIORITY

4239

02-NOV-81 16:08
.SBTTL

‘%2?

AL LA AL AR A AL

252

4244

. %

4245 006560

013746

4247 006566
4248 006570
4249 006572
4250 006574
4251 006576
4252 006602
4253 006604
4254 006606

006216
006216
006216
006216
042716
104403
001
000207

4246 006564

006216

002720

177770

000

K 6
PAGE 80

SEQUENCE

SUBROUTINE TO PRINT DEVICE PRIORITY
i

ARl

ittt id it tiidddl)

THIS SUBROUTINE PRINTS THE DEVICE PRIORITY

AR AR AR

PNTPRI: MOV

ASR

ASR
ASR
ASR
ASR
BIC
TYPOS
BYTE
RTS

DDW,=(SP)

(SPS

RN AR AR RA AR RN AR AR AR RN

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

1,0
.
PC

sPUT DEVICE DESCRIPTOR WORD ON STACK

sSHIFT RIGHT STACK LOCATION 5 PLACES

sMASK TO GET PRIORITY
sTYPE THE DEVICE PRIORITY
sTYPE 1 CHARACTER, SUPPRESS LEADING ZEROS
JEXIT

MACRO M1113 02-NOv-81 16:08 PAGE 51

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

.SBTTL

CHRRARRAA

AR R AR

SEQUENCE

INITIALIZE THE COMMON TAGS SUBROUTINE

AR AA AR AR RN AAAAANCARAAAARARRAAR RNy

]

o
i

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

MOV
JSR

#STACK,SP
PC,SETTUP

JINITIALIZE THE STACK
sCALL THE SUBROUTINE

4263 006610

011637

001360

006614
006620
006622

012706
005026
022706

001300

:W ii3333233233 2032333333323 23233233333333323 3333333322323 333233323333323332]

SETTUP: MOV
.SBTTL

d
e
d
d
e

- N NN
S
ONNNNO

O WWWWWNW
NWNNNNNNNONW

~d0“fl<>°“\PV§§
o

&9
-

#SCMTAG,R6
(R6) +
#SWR,R6 ;;DONE?
-6
#STACK, SP

MOV
MOV

#$SCOPE,a# 10TVEC ..xor VECTOR FOR SCOPE ROUTINE
#340,a#10TVEC+2 ;:LEVEL 7

MOV
MOV
MOV

#STRAP,a#TRAPVEC :;TRAP VECTOR FOR TRAP CALLS
#3640, a4 TRAPVEC+2; LEVEL 7
#SPURDN, 3#PWRVEC ; ;POWER FAILURE VECTOR

MOV
CLR

SENDCT,SEOPCT
$ESCAPE

::SETUP END-OF -PROGRAM COUNTER
..CLEAR THE ESCAPE ON ERROR ADDRESS

..SLPADR
. SLPERR

..INITIALIZE THE LOOP ADDRESS FOR SCOPE
;SETUP THE ERROR LOOP ADDRESS

MOV
MOV
MOV
MOV
CMP
BNE

@MERRVEC,-(SP)
#64$ ,QNERRVEC
#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
66$

~;;SAVE ERROR VECT
;;SET UP ERROR VECTOR
;:SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
s ;BRANCH IF NO TIMEOUT TRAP OCCURRED

BR
:?Y

65%
#658, (SP)

::SET UP FOR TRAP RETURN

MoV
MOov

#SWREG, SWR
:;POINT TO SOF TWARE SWR
#DISPREG,DISPLAY

CLR
8ITB
BEQ
MOV

$PASS
#APTSIZE ,SENVM
67%
#$SWREG, SWR

::CLEAR PASS COUNT
..TEST USER SIZE UNDER APT
sYES ,USt NON-APT SWITCH
:iNO,USE APT SWITCH REGISTER

$TMPO,~(SP)

sPUT RETURN ADDRESS ON STACK AND

;:INITIALIZE A FEW VECTORS

MOV

026074

006742

— o

(=il

828

fo=rwvinronn
W

o
Y

S
X
4265 007060
4266 007064

000020

MOV
CLR
CMP
BNE
MOV

MOV
MOV

og ggeeee
"USE
- PNONONONOW
~
CONNNNN

—

i O

o
o

~
o
~N

S
~

oo
=
&~ o

007060

NNNONNNNNNNYN

[elePHelelelelelelelelele]

001300

37
37
37

000004
007010
177570
177570

177777

001315
001306
001310

Movae
MOV
MOV

001342
172334

648 :

000176
000174
000004
001416
000200

001340
001342

001432

001340

ssFIRST LOCATION TO BE CLEARED
s sCLEAR MEMORY LOCATION
::LO00P BACK IF NO
1:SETUP THE STACK POINTER

#SERROR,S#EMTVEC ..Enr VECTOR FOR ERROR ROUTINE
#3640, I4EMTVEC+2 ;:LEVEL 7

#3640, I#PURVEC+2 ;:LEVEL 7
#1,SERMAX

sALLOW ONE ERROR PER TEST

::SIZE FOR A HARDHARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "*=1'", SETUP FOR A SOFTWARE SWITCH REGISTER

000004
001340

007016

001360

:SAVE RETURN ADDRESS

::CLEAR THE COMMON TAGS (SCMTAG) AREA

001340

031200

(SP) ,$TMPO

INITIALIZE THE COMMON TAGS

65%:

668 :

C01431
67%:

MOV

MOV
RTS

(SP)+ ,@#ERRVEC

= =1
..AND THE HARDWARE SWR IS NOT
+BRANCH IF NO TIMEOUT

;:RESTORE ERROR VECTOR

sRETURN TO THE

CALLING ROUTINE

r—

—_——

| CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113 (02-NOv-81
| MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE
8.

TMM:

007104

002572

000040

002572

000001

002713

000020

002572

000002

002713

000004

002713

000002

TST

BEQ

MOV

1%:

000060

SEQUENCE

MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE
A

001407

000401

AR A

IRERRAAARRARANNPARRAAN
RN
N NN RN RN AN AAANANNRRANARNANRRRA
AN ONANT RN

L
L

=)=
=)
=N
NN=NVO

-0

—-0000

wou%gwowgwgg
NO~N ’“Vgg‘U@“NCD

WO W= NIWO WNIWWO
N
NWVINWVONWVWNOANN
=N

002712

PAGE 82

THIS SUBROUTINE CHECKS FOR MEMORY MANAGEMENT EXISTENCE AND WHETHER OR
NOT A LOCATION IN UPPER MEMORY EXISTS.

)

.SBTTL

AL ALL AL

16:08

2%:

3s:
¥

5%:

8IC
. WORD
BNE
BIT
BEQ
BIT
BNE
BIT8
BEQ
BR
BIT
BNE
BITB
BEQ
BR

BITB
BEQ
ADD
RTS

MEMGMT
43

#CY+GO,1$8

R2.(PC)+
CY+GO

#X6+X7 ,ECSR

48
#X7 ,ECSR

2%
#BITO, MEMGMT +1
S$
43

#X6,ECSR

3s
T
#BIT1,MEMGM+1
5$

gngZ.HEHGHTO1

#2,(SP)
pr

sTEST TO SEE

IF MEMORY MANAGEMENT EXISTS

:BRANCH IF NOT
SSET UP BIT TEST DATA
sTEST TO SEE IF BOTH THE CYCLE AND GO BITS ARE SET
sLOCATION TO STORE THE CYCLE AND GO BITS
sKICK OUT IF CYCLE AND/OR GO ARE CLEAR
s SEE IF X8A16 OR XBA17 WERE SET IN EXPECTED DATA

:BRANCH OV ;F

:SEE IF XBAI
IS
§
60 CHECK STATUS OF X8A16 ifF SET

;SEE _IF 200000+NOCARE WAS FOUND TO EXIST = IF NOT,

:GO SET EXPECTED ERROR AND NEX BITS AND CHECK FOR ERROR
:BRANCH OUT IF LOCATION EXISTS

;SEE IF XBA16 IS SET
sBRANCH TO CHECK 600000+NOCARE IF SET
;SEE _IF 400000+NOCARE WAS FOUND TO EXIST - IF NOT,
sGO SET EXPECTED ERROR AND NEX BITS AND CHECK FOR ERROR
sBRANCH OUT IF LOCATION EXISTS

;SEE _IF 600000+NOCARE WAS FOUND TO EXIST - IF NOT,
;GO SET EXPECTED ERROR AND NEX BITS AND CHECK FOR ERROR
sCORRECT PC RETURN

:KICK OUT

C 4 DRLDO-?:?1
B8 l T PATTERN

GEN NPR INTFC

MACRO M 1113

02-NOv-81 16:08
.SBTTL

PAGE 83

SEQUENCE

BIT PATTERN

i 2222232222323 3223222222223323323222222222222
222 2RRRdRRRRdd]d)

* R

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

ALL COMBINATIONS OF STUCK AND/OR SHORTED BITS.

E:Qt..'.'Q".'..t....."'.".'....Q...'....'..'..'..'."....t....
'A

4305 007202
4306 007204
4307 007206
4308 007210
4309 007212
4310 007214
4311 007216

4312

000002
177777

000010

PATRNS:

.RADIX

;THIS ENABLES YOU TO SEE THE PATTERNS IN BINARY

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.RADIX

0000000000000000
0101010101010101
1010101010101010
0011001100110011
0000111100001111
0000000011111111
8

:ALL CLEAR BITS
;EVEN BITS SET, ODD 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

.WORD

1111111111111111

ALL SET BITS

MACRO M1113 02-NOV-81 16:08 PAGE g‘

CZDRLDO-DR11 GEN NPR INTF(
EXPECTED DATA TABLE FOR CSR CHECK TEST 30
6%13
l.

.SBTTL

1‘

EXPECTED DATA TABLE FOR CSR CHECK TEST 30

3 .'Q.."t'.Q..Q...'..'Q"'Q"".t"...t.'t.."t...'..'QQ..".'Q'QQ

(315
(316
23};

TM
o
I3

lg319
4320

:' :'Qttttttt't.tt.'.lt."t'tt'.t.Q.ttt..t.'.QQ'Q"Q'QQ.Q""Q".Q'

4321 007220
4322 007220
4323 007240
(324 007%88
007
(326 007320
007340
4328 007360

4329 007400
4330 007420
4331 007440
4332 007460
4333 007500
4334 007520
4335 007540
4
0075
4337 007600
4338 007620
4339 007640
4340 007660
4341 007700
4352 007720
4343 007740
4344 007760
6345 01
4346 010020
4347 010040
4348 010060
4349 010100
4350 010120
4351 010140
4352 010160
4353 010200

SEQUENCE

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

]

000200
004210
0002%8
0042
000240
004250

000
004010
000020
004030
0
004050

001202
005212
0012%2
005232
001242
005252

004270
000300
004310
000320
004330
009340
004350
000360
004370

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

005272
001302
005312
001322
005332
001342
005352
001362
005372
001602
005612
001622
005632
001642
005652
001662
005672
001702
005712
001722
005732
001742
00575¢
001762
005772

000260

004610
000620
004630
000640
00465C
(000660
004670
000700
004710
000720
004730
000740
004750
000760
004770

000060

001262

MAICLR:

; X=
.WORD
WORD
.WORD
WORD
.WORD
LWORD

0
1
2
3
4
S
S
7
0200.0000.1205.1005.12220‘.12220‘.123 06,123206
4210,4010,5212,501 .156216.126214.1 7216,127216
02;0.00 0.12;5.10;5.1 22;‘.1222%4.1 3552.123%26
4230,4030,5232,5032,126234,126234,127236,127236
0260.0040.1245.1045.122244.122264.123246.123246
4250,4050,5252.505 .12625‘.126254.157256.127256

:CSR
;CSR
;CSR
:CSR
sCSR
:CSP

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

4270,4070,5272,5072,126274,126274,127276,127276
0300,0100,1302,110 .1%2306.022104.123306.023106
4310,4110,5312,5112,126314,026114,127316,027116
0320.01%0.13%2.11% .1223§£.0221%4.1233%6.023126
4330,4130,5332,51 2.1563 4,0261364,127336,027136
0340.0140.1342.1145,1 2344 ,022144,123346,023146
4350,4150,5352,515 .136354.026154.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.16%2.12%2.122624.122624.123656.123626
4630,4230,5632,5232.126634,126634,127636,127636
0640.0240.1645.1245.122646.122644.123646.1%3646
4650,4250,5652,5252.126654,126654,127656,127656
0660,0260,1662,1262,122664,122664,123666.123666
4670,4270,5672,5272.,126674,126674,127676,127676
0700.0300.170%.1302.122704.022304.123706.023306
4710,4310,571 .5312.126714.026314.1%7716.027316
07;0.0350.1722.1322.1227%4,022324.1 3756.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,12777€,027376

:CSR 00007X EXPECTED
sCSR 00010x EXPECTED
;CSR 00011X EXPECTED
sCSR 00012Xx EXPECTED
:CSR 00013x EXPECTED
:CSR 00014X EXPECTED
sCSR 00015Xx EXPECTED
.CSR 00014X EXPECTED
:CSR 00017X EXPECTED
:CSR 00040X EXPECTED
;CSR 00041X EXPECTED
sCSR 00042X EXPECTED
:;CSR 00043X EXPECTED
sCSR 00044X EXPECTED
;CSR 00045X EXPECTED
;CSR 00046X EXPECTED
:CSR 00047X EXPECTED
sCSR 000S0x EXPECTED
sCSR 70051Xx EXPECTED
sCSP 00052Xx EXPECTED
;CSR 00053x EXPECTED
;CSR 00054X EXPECTED
;CSR 00055X EXPECTED
:CSR 00056X EXPECTED
:CSR 00057X EXPECTED

.WORD

0260,

0.lggs.1062.15229‘.122264.1 3266,123266

00000x
00001x
00002Xx
00003
00004Xx
00005Xx

EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED
EXPECTED

:CSR 00006X EXPECTED

O3UN6M6W“6=O6ON7TN7=7M7776W2IM2=2ON23W33
2eR932R38R3SR3322338R338%3
[)(=l=elelaelelelealaelalealaelaelaelealelealelealealelaoltalalealalealeleleleleloe]
ONVNY)N[AeoY=ITVoNU{,leO=ToOVUSSlI—oVTYeINN~VTTlo,Ol¢TeOoAVNRloNITgSteYoOWSNTlEoTINeNOTSSNl-aFOIVleiolSNSTNVIeleTOoOPNlSSNelVIeIolRSSVTlTgeRoONolSSOelPeVIIlSUSSVTlPeoNORTlOTUSeaTelINSaITI VloDSileTeNTVelTD%OROaeVIeTlSISloUNeleTgORlTP%DIOaaeePlSYSIloNoTeOlleTTlI"VT%%OoAeeGllSNlILo%oeellPOTl""I%%aoOeNTPlOllLoIo&%IeellNTlO""%TToaeIOTllloo&%TINelleTlTVV&%TIeoeOTOPlllNSoI&%IellglLTIVV&%%eeellOOlNSoT%&eIllelATVI&&eIAlelNOlOoTo&&eIllIPlNaATT8%eelSl=TNO"LLSeOoYl]l
"OoCscTM-=°NOpeg6MMasoCNeTNS:N°Ie"geoMNa6sSeCoegcM6I=M:OoeNa6saeCe§6N"MoMeer§MOO0sae€CNN6r©EAnW.0a)s§MeOG—NCN0TI6aMsTTo£0cCON0.£TAa0sT§Nx0C"s7MTeaOosNeGG‘%SsxT€sO>a"TgMxosPTN«>sTSe°xsMoTS€"aM6NsCegPx0Ss‘CeTaNs0CcM6ggS.0seaNCgTs0cee"TC63MsSae6oCM0soeTCNs3TeM‘C0sPgNCsST
SIrWgt
8VoY
83eUL-WUWLreVLeVWLd3oVL)eVWUe8Vo3Lw5eWVL3IV)oLW5Ve)LIV)oLWV5eAILV3oWUwL5(AWVeU0wAoLV3eLAVw3TeLAV3LoAVu3U(LoALw3VoL3V(LwUAo3AoyLV3uAoLV8woLAV38oLAVw5LoAV5LAo3wV5TULB3AL5TVLe3wAL5TV3bLA5VTwABOILtAWP

OV.6YN"I6TUN.N7MN—N‘OW7MIO.MM7N='OTIUWFM,MNI7OO"NOIMN‘U(l2"IN2OTOvN2"WT.N2T'M(OUT3M.MN-'=3ON.O3T"WM3ON"6Or—6OM OO

-N0OON—MIMN1Og=MN0NFTPMTMM1PWANIgMOT1IeNANOPMMR~=O’1\A—RNIMMRNO2N1FIG—MAITgCT2eWOIONNGOMTN2TgIONOPTT~2—OPNNONTOPMMO32OINGM3—T9OeIO30S—MGITOgWNT3IPOOI3MPNI3MOTg=3eOIM3NLTgoTI3oOTMgLWNSetT(7NOWP=UlOo=MON17M=—OP]mNO0ONN0W
MACRO M1113 02-NOv-81 16:08 PAGE SS

BASNm2Nm[elelelelelelelelelelelelelalelelelelelalelelelelalylelelelolel)TAO¢— (elelelelelelalalelalelelalalelelelelelelelelalalelelelelelelela)qlqlqlcl.lql1111111111O11V1TOTOTOTOTIOTOITOTOTWooooooooo LS.l, O00oNNoNNNoN0INIoNNIN NeFTOTOIT~OITOIT— ooooooo022222222
.SBTTL

=MO ON TN =M O

CZDRLDO-DR11 GEN NPR INTF(C
EXPECTED DATA TABLE FOR CSR CHECK TEST 3

7
SEQUENCE

EXPECTED DATA TABLE FOR CSR CHECK TEST 3

CZDRLDO-DR11 GEN NPR INTFC
FUTURE PATCH AREA

MACRO M1113

4389

' ?

2334

4 9%

‘395

4396 011220
4397 011320

02-NOV-81 16:08

000000
000000

.SBTTL

A AR SR Rt

0D 7
PAGE 86

SEQUENCE

FUTURE PATCH AREA
i i a

ddd

ittt

iiiiiiiiitiddddl)

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

FUTURE.

:';t'*.ttttl’tt."ttt..tit""f:t.tt.'.'tt'"t.tt..QQ'QQ.'..QQ'.'Q."

PATCHS:

.wORD
.WorRD

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

MACRO M1113 02-NOV-81 16:08 PAGE S?

SEQUENCE

MAIN PROGRAM = INITIALIZATION ROUTINES

.SBTTL

4399
4400
4460
4402
4403
4404
4405 011420
4406 011426
4407 011430
4408 011434
4409 011440
4410 011444
4411 011450
4412 011454
4413 011460
4414 011464
4615 011472
4416 011500
4417 011504
4418 011510
4419 011514
4420 011520
4421 011524
4422 011530
4423 011536
4424 011540
4425 011546
4426 011550
4427 011556
4428 011560
4429 (11564
4430 011566

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

4432 011576
4433 011600
4634 011602
4435 011606
4436 011610
4437 011612
4438 011614
4439 011620
4440 011624
4441 011630
4442 011632
4443 011636
4444 011640
4445 011642
4446 011646
4447 011652
4448 011656

005702
100002
005237
000241
006102
001371
012702
013700
012701
010022
062700
005301
001373
012702
013700
042700
012701

4631 011572

4449 011662

4450 011664
4451 011670
4452 011672

MAIN PROGRAM = INITIALIZATION ROUTINES

;:'tttt.tttit't'ttttttt'lti"tt..t'ttttQtttttttt.t.tt"".t.t.ttt

:MAIN PROGRAM - INITIALIZATION ROUTINES
E;tttttttttttlttttt.tt'tt't'ttt..tt.ltttttt..'t't'.".i.tt"'t'tt

013702

010022

062700
005301
001373

002670
001416
026010
002716
001412
001410
001414
001420
001422
000006
000003
130
006610
001422
001420
001414
002706
000001

START1: CLR
START:

000004
000006

177777

002670

18:

005416

002414

*CLEAR THE EOP PRINTING FLAG

SFATAL
SMSGTYP
STESTN
$DEVCT
SUNIT

*CLEAR
:CLEAR
:CLEAR
*CLEAR
:CLEAR

SUNIT
$DEVCT
STESTN
EOPLOC
#81T0, SENV
1$
#BIT7,SENVM
28

*CLEAR SUNIT
*CLEAR SDEVCT
*CLEAR STESTN
:CLEAR EOPLOC
*CHECK IF ON APT
:BR IF NOT APT
*DID APT SIZE
:BR, IF APT SIZED

PC,ASIZE
BEGIN
QTYBRD

*AUTOMATICALLY SIZE FOR BOARD CONFIGURATION
*BRANCH
*CLEAR
DEVICE CNT

2$:

3s:
48:

#-1,MANSIZE
BEGIN

ERROR NO.
MESSAGE TYPE
TEST NO.
DEVICE COUNT
UNIT NUMBER

R2
3$

*CLEAR THE CARRY BIT FOR THE ROL
*SHIFT NEXT BIT INTO MSB POSITION
*CONTINUE CHECKING SDEVM, IF MORE BITS SET

$BASE ,R0

*LOAD BASE DEVICE ADDRESS IN RO

QTYBRD

000010

#10.R0

#REGADR, R2

RO, (R2)+

: INCREMENT DEVICE COUNT,

IF MSB=1

*POINT R2 TO THE DEVICE ADDRESS TABLE
*MOVE LOOP COUNTER TO R1

*MOVE DEVICE ADDRESS TO TABLE

*POINT RO TO NEXT DEVICE ADDRESS

R1
5%
#VECADR,R2
$VECT1,RO

*DECREMENT THE LOOP COUNTER AND
*BRANCH IF NOT ALL DONE YET
*GET LOCATION OF VECTOR TABLE
*COPY BASE VECTOR

#16. R

:D0 16 VECTORS

#10.R0

*POINT RO TO NEXT VECTOR ADDRESS

#177400,R0
6%:

*WAS CONFIGURATION SET UP IN MULT. BOARD ROUTINE?
*IF YES, SKIP SELF=-SIZING

*MOVE DEVICE MAP TO R2
*TEST MSB OF DEVICE MAP
*BR, IF MSB IS ZERO

#16. ,R1

000010

:DPMO01

$DEVM, R2
R2
43

002416
001464
000020

002456
001460
177400
000020

:CLEAR $PASS2

#TOVECT+2,TOVECT: INITIALIZE TIMEOUT VECTORS TO 6
#BPT, TMOPSW
:CATCHER ROUTINE
#STACK , SP
*INITIALIZE THE STACK
PC,SETTUP
:GO TC THE SETUP ROUTINE TO INITIALIZE VECTORS

001430
001431

;CLEAR THE MANSIZE SO WE WILL AUTOSIZE
:CLEAR SPASS

PREOP

$PASS?2

000200

001466

MANS I ZE
$PASS

RO, (R2)+
R1
6$

*CLEAR UPPER BYTE

*PUT VECTOR ADDRESS IN TABLE
*DECREMENT LOOP COUNTER
*BRANCH If NOT ALL DONE YET

CZDRLDO-DR11 GEN NPR INTF(C
MACRO M1113 02-NOV-81 16:08
DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE
4654 011674
4455 011700
4656 011702
4457 011706
4458 011710
4459 011714
4460 011720
4461 011726
4462 011734
4463 011742
4464 011750
4465 011754
4466 011760
4467 011764
4468 011770
4469 011776
4470 012002
4471 0120064
4472 012006
4473 012010
4474 012012
4475 012016
4476 012022
4477 012030
4478 012032
4479 012036
4480 012040
4481 012044
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
4496 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

005737
001003
005737
00140
00013
005037
013737
012737
013737
012737
005037
105237
012700
012701
012737
012720
005301
001374
03
022626
012700
012703
012737
005002
012701
010220
(6270
005301
001373
012720
005303
001364
0401
022626
012737
013737
012737
013737
012737
005237
012737
012737
005737
152737
012737
012737
005737
152737
012737
012737
005737
152737
000407
027627
005737
001402

001416

BEGIN:

002716
1$:

002672

2%:

000006

172340
000002
012062

BNE

TST

012356

077406

.SBTTL

TST

000004

3s:

48:

000004

000007

58:
6$:
7%:

000200

BEQ
JMP

CLR
MOV
MOov
MOV
MoV
CLR

F
7
PAGE 88

000004

§$:
9%:

#16. R
#48. TOVECT

077106 (RO)+
38
53
(SP)+, (SP)+

CKIPARO RO

#2,R3

083
07 R1

R2. (RO)+
0260 R2
R3
63
9
(SP)+,(SP)+

#108,TOVECT

HHVECT OLDPC2

#2108, MMVECT
MMPS OLDPS?2
pLEgéL? MMPS

000252

MR
#2400 ,KI1PAR2

172344
172364

l2400 KDPAR?2

NOCAR

002713

#8170, MEMGMT
+1

172344
172364

#4400 K IPAR2

#4400 KDPAR2
NOCARE

002713
172344
172364

#6400.KIPAR2
#6400*KDPAR2

002713

:g‘f?LMEMGMT+1

#BIT1,MEMGMT+1

108:

gnggHINE MEM MGMT AND UPPER MEMORY EXISTENCE
;SEE IF THIS IS THE FIRST PASS
18
:BRANCH IF NOT
$PASS2
;SEE IF UPPER LOCATION HAS BEEN SET
2%
:BRANCH IF SO
BEGIN
:JUMP TO BEGIN1
MEMGMT
;CLEAR THE MEMORY MANAGEMENT FLAG
TOVECT,OLDPCT
:SAVE TIMEOUT VECTOR
#138, TOVECT
:TIMEOUT VECTOR TO 138
TMOPSW,OLDPS1
:SAVE TIMEOUT PS
#LEVEL?, TMOPSW :PS TIMEOUT TO PRIORITY 7
MMRO
sTEST FOR _MEMORY MANAGEMENT & TURN IT OFF
MEMGMT
: INCREMENT FLAG SHOWING MEMORY MANAGEMENT EXISTS
cxxpono RO
:MOVE ADDRESS OF 1ST MM REGISTER TO RO

73
#177600,
(RO) +

177600

SEQUENCE

a0(SP), (PC)+
a(PC)+
118

:D0 ALL 16 PDR'S
s TIMEOUTS TO 4$
;ENABLE THE PDR PAGE
sDECREMENT LOOP COUNTER AND

sBRANCH BACK IF NOT DONE
:BRANCH OVER STACK CORRECTION
sCLEAN STACK AFTER INTERRUPT
:POINT RO TO THE 1ST PAR
;D0 2 SETS OF PAR'S
s TIMEOQUTS TO 8%
:START WITH LOAD OF ZERO

:D0 7 REGISTERS
:LOAD THE PAR
sPUT R2 AT NEXT VALUE
:DECREMENT AND

:BRANCH BACK IF NOT DONE
:SETUP PAR?7
:DECREMENT AND
sBRANCH BACK IF KDPAR'S NOT LOADED
:BRANCH OVER STACK CORRECTION
sCLEAN STACK AFTER TIMEOUT
s TIMEOUT VECTOR TO 108
s SAVE MEMORY MANAGEMENT VECTOR

sMEMORY MANAGEMENT VECTOR T0 108
sSAVE MEMORY MANAGEMENT
:MEMORY MANAGEMENT PS TO PRIORITY 7

sTURN ON MEMORY MANAGEMENT

:SET UP KIPAR2 TO ACCESS LOCATION 240000+8ITS 12-0 OF NOCARE
*SET UP KDPARZ_TQ ACCESS LOCATION 240000+8ITS 12-0 OF NOCARE
:SEE IF BITS 12-0 OF NOCARE ADRS +240000 EXISTS
:SET BIT 0 OF UPPER BYTE OF MEMGMT IF IT DOES
:SET UP KIPAR2 TO ACCESS LOCATION 440000+BITS 12-0 OF NOCARE

:SET UP KDPAR2 TO ACCESS LOCATION 440000+BITS 12-0 OF NOCARE
sSEE IF BITS 12-0 OF NOCARE ADRS +440000 EXISTS

sSET
:SET
;SET
:SEE

BIT 1 OF UPPER BYTE OF MEMGMT IF IT DOES
UP KIPAR2 TO ACCESS LOCATION 640000+BITS 12-0 OF NOCARE
UP KDPAR% TO ACCESS LOCATION 640000+BITS 12-0 OF NOCARE
IF BITS 12-0 OF NOCARE ADRS +640000 EXISTS

:SET BIT 2 OF UPPER BYTc OF MEMGMT IF IT DOES
:BRANCH OVER STACK CORRECTION
s COMPARE NEXT INSTRUCTION WITH
A

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

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

000006
000004

001466

011420
001422
OO
N
W
W

W
—
NN=-

—.;-l NOON =N

ST8AE8 ces
W=

228882222
§
RS
SN

002546

001474
002720

;

'UNIBUS HANG?

(*Y) FOR ERROR SUMMARY'

RESTART AT ADDRESS °

:MOVE ADDRESS OF HANG ROUTINE TO STACK

:GO TYPE THE ADDRESS IN OCTAL

:
:
;

*CZDRLDO DR11 GEN NPR INTFC LOGIC TEST®
:DPMO01
20 SECONDS APPROXIMATELY'
*DPMCO1
"EOP MSG WILL PRINT EVERY

:CLEAR LOCATION TO STORE TABLE OFFSETS

:BR, IF YES
*SEE IF BIT 15 IS SET
:BRANCH TO CONTINUE IF NOT SET

“SEE IF THIS IS THE FIRST PASS

*BRANCH
SSEE IF
:BRANCH
*TYPE:

;

TO REINITIALIZE THE DEVMSK LOCATION IF NOT
THIS IS THE FIRST PASS
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

DEVMSK
#2, TABINX
SUNIT

*JUMP TO START1 TO CHECK AGAIN FOR A MODULE
SSHIFT MASK TO CHECK NEXT SDEVM BIT
:INCREMENT TABLE INDEX
*INCREMENT UNIT NUMBER

DEVMSK

;UPDATE DEVICE MAP TEST MASK

#4,RS

:MOVE 4 ADDRESSES

TABINX ,R2
#2.TABINX
REGADR(R2)
,RO
#JCR,R1

‘RO

000002

-RESTORE TIMEOUT PS
:RESTORE TIMEOUT VECTOR
STYPE:
'(*X) INHIBITS EOP'S,

:CHECK TO SEE IF DEVICE IS TO BE TESTED

28
DEVMSK
1$

RO, (R1)+

002456

*BRANCH OVER STACK CORRECTION

DEVMSK,SDEVM

TSTDEV

002544

*RESTORE MEMORY MANAGEMENT PS

:SET UP BIT MASK TO TEST SDEVM FOR DEVICES

TABINX

START1

002546

:DPMO01
:DPMO01
*DPMO01
*DPMO01
*DPMO01

PREPARE ADDRESSES AND VECTORS FOR UUT

$PASS

041151

:TIMEOUT TO 125$
*RESTORE PAGE 2
*RESTORE PAGE 2
*BRANCH OVER STACK CLEANUP
:CLEANUP THE STACK

#BITO,DEVMSK

BEGIN1
$PASS2
BEGINT
.NODVPR

002716

*TURN OFF MEMORY MANAGEMENT

*CORRECT STACK AFTER TIMEOUT

LMIA

BEGIN1:

;FUDGE RETURN TO EXIT IF NOT

¥4 ,SP

OLDPS1,TMOPSW
OLDPC1.TOVECT
M1

*RETURN

:RESTORE MEMORY MANAGEMENT VECTOR

041421

002544

SEQUENCE

OLDPC2.MMVECT

#UBHANG,=-(SP)

001416

#1258, TOVECT
#400,KIPAR2
#400.KDPAR2
1268
(SP)+,(SP)+
148

002544

&H
R
OO 2 S BB N
N KNQ&OO&O&NON 3 3

e
d amd =
e
b e
D ek
b md
b
b
d

RN
NNN

(=lelelalelelelelelalelelelela

MMRO

056016

000001
002546
002544

(=1l

&0%0008
w
VS
WN=O0VRNOWVSWN=O

o~ £
Vi w
wviviwvwnawniwnainawg

|S
——

7128, (SP)

OLDPS2 , MMPS

002700
002676

000004

2249 012452

MoV
MOV
MOV

000400

4531
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

4551 012454

MOV
RTI
CLR

177572

%OOO

WROR)
— —
WAL

ONSOONON

012250

nNOS

000
—_— 3

£ Py

IV VAV

v AIRINININIAD NININD = b d d e d e e d
&3 CO N VS WN = OO0V
WWN) -

4510 0

22038228832

OO0
— b cd D D D d d d D D ) e e —d

CZDRLDO-DR11 GEN NPR INTFC
DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE

33
VECADR(R2)
,RO
RO, (R1) +
#2.R0
RO. (R1)
$DDWO(R2) .0DW
DDW, DRLEV

*GO TEST NEXT BIT OF DEVICE MAP

*MOVE TABLE OFFSET TO R2
:UPDATE TABLE OFFSET FOR NEXT DEVICE
:PUT UUT ADDRESS INTO RO
*POINT R1 TO STORAGE AREA FOR UUT ADDRESSES
*TRANSFER UUT ADDRESS

*POINT TO NEXT UUT REGISTER
*DECREMENT THE LOOP COUNTER AND

*BRANCH IF NOT DONE TRANSFERING
*PUT UUT VECTOR INTO RO
STRANSFER UUT VECTORS TO ACTIVE TABLE AREA
*POINT TO NEXT VECTOR
*TRANSFER VECTOR TO TABLE AREA
+SET UP DDW TO PROPER DEVICE DESCRIPTOR WORD
*MOVE THE WORD TO THE DRLEV LOCATION

CZDRLDO-DR11 GEN NPR INTF(

HACRO H1113

PREPARE ADDRESSES AND VECTORSFOR uuT

177437
032555

002552

02-NOV-81 16:08

REINIT:

BIC

CLRB

7
PAGE 88-2

0177437 DRLEV

SEQUENCE

:;STRIP ALL BITS EXCEPT BR LEVEL

CHARC

:CLEAR THE CHARACTERLOCArxog OF ANY CHARACTER

JSR

PC . CLENUP

*SUBROUTINE TO CLEAR oevxce REGISTERS & SET CPU PRI TO 7

BNE

TST1

JSR

TSTB

*GO RESET THE

PC BPINIT
EOPLOC

'*.+2"

"BPT'*

LOCATIONS

:SEE IF *X IS ENABLED (IS THE PRINTER DISABLED)

:GO DO TEST IF NOT

l.ll'

ttttttttttQttttttt't"'tt'ttttt.tQtlt.tt't.ttttt't..".t't'tttt

000000

1 $:

*DO*NOT *REMOVE * THE *WA

2332333233233 233

SRR

T+

OOP*ROUT INE*BELOW*.

BECAUSE OF THE SPEED OF THIS DIAG-

NOSTIC (.125 SECOND FOR 1 PASS, NO ERRORS), SOME VIDEO TERMINALS PRINT ERRONEOUS
CHARACTER(S) WITH THE EOP MESSAGE DUE TO THE RESET EXECUTED IN TEST 4.
THIS WAIT
LOOP ENABLES THOSE TERMINALS TO °‘CATCH UP' BEFORE ITS EXECUTION.

DEC

BNE

3333332232332 3333333233333

332323333233 23223222222221%

;:DECREMENT A LOCATION TO KILL TIME

A AR A A AR AR AR

AR AR

*BRANCH BACK UNTIL ZERO AGAIN

AR AR AR AN AR AR

A AR A

AR RS

‘MAIN PROGRAM - DEVICE TESTS
.

[

———

SRR AT AR A AR AR

AR AR

AR AR AR AR AR AR

AR AR AR AR AR

CZDRLDO-DR11
GEN NPR INTF(
MACRO M1113 02-NOV-81 16:08 PAGE 59
TEST #1 = CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR
4593

.SBTTL

SEQUENCE

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

ttttttttt.t'tttttttttt't"tttt.lttt.ttttttttt'tt.tttttlttt"t.'

RTEST 1

CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR?

- %

I
1
o

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

012606
012606
012610

012616
012624
012626
012632
012634

012644

4596 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
4609 012752
4610 012756
4611 012762
4612 012764
4613 012770
4614 012774

4615 012776

:2i i33223332333232332323323333232332332323 3333333333333 333323332323333332232323%3

000004
012737

032777
001407
104401
000404
124

005037
012737
013737
005777
013737
005777
013737
005777

013737
005777
013737
005777
005737
001414
000137
012637
012637
104001
013746
013746
000002

012737

Ts11:

012644

004000

001310

166514

012634

040
001312
012752
002516
167626
002520
167616
002522
167606

002524
167576
002526
167566
001312

043

1000$:

1001$:

000004
002550

9998:

002550
002550

025622
002672
002674

18:

002674
002672

000006

000004

2$:

SCOPE
MOV

#9998 SLPERR

(LR
MOV
MOV
TST
MOV
ST
MOV
ST
MOV
ST
MOV
ST
ST

SERTTL
#1$ ,BUSERR
WCR,DREG
awCR
BAR,DREG
aBAR
CSR,DREG
aCSR
BDR,DREG
aBDR
DRINV,DREG
aDRINV
SERTTL

ERROR
MOV
MOV
RTI

+1
OLDPS1,=(SP)
OLDPC1.-(SP)

BIT
BEQ
TYPE
BR
.gsgaz

BEQ
JMP
MOV
MOV

MOV

#BIT11,35WR
10018
10008
1001$
/T # 1/<CRLF>

2s
ENDEV
(SP)+,0LDPC1
(SP)+.0LDPS1

#6.,BUSERR

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

*88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
11 BRANCH_
IF NOT,
S8R TYPE: T # 1
:88 GET OVER ASCII
:88 THE ASCII MESSAGE
;CLEAR THE ERROR TOTAL - NEW PASS
:CPU ERROR VECTOR TO 18
*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
:GO TO END OF DEVICE ROUTINE - FATAL ERRORS
:SAVE PC OF TRAP FOR ERROR PRINTOUT
: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

CZDRLDO-DR11 GEN NPR INTFC
MACRO M1113 02-NOV-81 16:08
TEST #2 - CHECK B OR W STATUS IS AS EXPECTED

4622

.SBTTL

S*TEST 2

. %

AR A AR

AR AR

AR AR AR AR AR AR

CHECK B OR W STATUS IS AS EXPECTED

SEQUENCE

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

SRR AR

‘e

J 7
PAGE 90

THIS TEST INSURES THAT THE B OR W STATUS IN THE DEVICE DESCRIPTOR

WORD MATCHES WHAT THE EIR SAYS THE MODULE IS.

;;tttttttttttttt*tttt'ttt'tttttt.tttttt.tttttttttttt'ttt"t.'ttt'

000004
012737

032777
001407
104401

000404
124

013042

005077

Tsr2:

013042
004000

040

10008 :

167454

1001$:
9998:

167446

001362

001362
000001
002610
104002

#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 # 2"

BIT

013032

177776

SCOPE
MOV

001362
001362

1%
28

eeg#z

(LR

MOV
MOV

BIC
MOV
BIC
8EQ
CLR
BR
MOV
CMP
BEO
ERROR

#BIT11,3SWR
f001s

/T # 2/<CRLF>

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

:88 THE ASCII MESSAGE

aCSR

;G0 TO CSR

#CBIT0,BORW
DDW,$TMP1
#CBITO,$TMP1
1$
$TMP1
2
#1,8TMP1
BORW, STMP1
TST3
+2

*MASK OFF ALL BITS EXCEPT BIT 0
*GET DEVICE DESCRIPTOR WORD
:MASK OFF ALL BUT B OR W BIT
*BRANCH IF IT IS CLEAR
:CLEAR THE BIT
*GO TEST THE BIT
*SET THE BIT
*B OR W STATE AS EXPECTED?
*BRANCH IF 0K
:DR11-B OR W MODE INCORRECT (0=B, 1=W)

#EIR,aCSR
aCSR,BORW

*FORCE TO BE EIR
*ATTEMPT EIR READ

CZDRLDO-DR11 GEN NPR INTF(
TEST #3

MACRO M1113

02-NOV-81 16:08

= CHECK CSR BIT PATTERNS WITH MAINT BIT SET

4643

.SBTTL

K 7
PAGE 9

SEQUENCE

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

tttttttttttttttQttlt"t'tttttQtttttQttttttt.ttt't't'.tttt."ttQ

S*TEST 3

CHECK CSR BIT PATTERNS WITH MAINT BIT SET

o %

I
‘e
e

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

. %

013134
013134
013136

013144
013152
013154
013160

000004
012737

:. 1 3333232333233 2232323333332 2223333333332 133333332311232232323322322322322232212%3
Ts13:
013246

032777
001407
104401
000404

004000

124

040

4644 013172
4645 013176
4646 013206
4647 013212

004737
012737
032737
001003

003646
000200
0000064

001362
002720

4649 013222
4650 013226
4651 013232
4652 013236

012701
012702
005037
012700

010220
010000
002714
000002

127000

001362

4654 013246
4655 0132564
4656 013260

052777
005077
017737

010000
167242
167236

4658 013274
4659 013276
4660 013304
4661 013306
4662 013314
4663 013322
4664 013326
4665 013336
4666 013340
4667 013346
4668 013350

001404
013737
104032
012777
012777
010277
017737
011137
023737
001425
012737

4670 013360
4671 013362
4672 013364
4673 013372
4674 013374
4675 013402
4676 013410
4677 013412

000401
001013
032737
001407
052737
023737
001415
010237

013162
013172

4648 013214

4653 013242
4657 013266

4669 013356

4678 013416

4679 013420
4680 013422

4681 013430

052737

012703

023737

0460227

104202

000411
012737

040227

SCOPE
MOV

001310

166166

013162

000200
001362

043

1001$:

167246

18:

28:

999%8:

177777
056104
167174
167170
002572
002572

167202

167176

002536
000401

013432

PC,CLENUP
#RY,$TMP1
#8172,00W
18

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
*MOVE READY BIT TO STMP1
*TEST TO SEE IF CABLE IS IN
:BRANCH AROUND NON-CABLE SETUP IF IN

MMAISET.R1
#MA,R2
ERRCNT
#2 RO

*MOVE ADDRESS OF EXPECTED PATTERNS TO R1
*START WITH JUST THE MAINTENANCE BIT
:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202
:D0 2 SETS OF 200 PATTLRNS

BIS

#127000,$TMP1

MOV

#200,R3

MOV
MOV
CLR
MOV

BIS
CLR
MOV

:SET THE BITS TO BE EXPECTED IN $TMP1

*MOVE 200 TO THE LOOP COUNTER

*BRANCH IF SO
*MOVE EXPECTED DATA TO ECSR
*CSR IS WRONG
*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
*MOVE RECEIVED DATA TO RCSR

68:

.WORD
BNE
BIT
BEQ
BIS
CMP
BEQ
MOV

CY+GO
6$
#X6+X7 ,ECSR
6$
#ER+NX ,ECSR
RCSR,ECSR
108
R2,BUT

7%:

BR
MOV

3$:

48:

002572
002572

JSR
MOV
BIT
BNE

3s
$TMP1,ECSR
+32
#-1,aWCR
#NOCARE ,@BAR
R2,3CSR
aCSR,RCSR
(R1) _ECSR
ECSR_RCSR
78
#CY+GO,4$

013360

140000
002560

/T # 3/<CRLF>

:88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
11 BRANCH,
IF NOT
‘88 TYPE: T # 3
:88 GET OVER ASCII
:88 THE ASCI] MESSAGE

CMP

002560

002572

#8ITi1,a5uWR
1001$
10008
1001s

BEQ
MOV
ERROR
MOV
MOV
MOV
MOV
MOV
(MP
BEQ
MOV

002560

000060

BIT
BEQ
TYPE
BR
.eegfiz

*SET MAINTENANCE AND
*CLEAR TO DO AN INIT
:MOVE RECEIVED DATA TO RCSR

002560
002572

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

#MA,3CSR
aCSR
aCSR,RCSR

002560

001362

000401

10008:

#9998 SLPERR

5$:

BIC

ERROR

BIC

$TMPT,RCSR

*MAKE SURE EXPECTED DATA CAME UP

:MOVE EXPECTED DATA TO ECSR
:COMPARE EXPECTED WITH RECEIVED
:BRANCH IF 0K
*REESTABLISH TEST PATTERN

R2, (PCS+

:SEE IF BOTH CYCLE AND GO WERE SET

426

SCSR PATTERN NOT CORRECT

ocvoco 8s

R2,(PC)+

*LOCATION TO HOLD BOTH CYCLE AND GO BITS
*BRANCH TO ERROR ONLY IF CYCLE AND GO WERE SET
*SEE IF EITHER XBA16 OR XBA17
ARE SET
:BRANCH TO ERROR IF BOTH ARE CLEAR
:SET THE ERROR AND NEX BITS = EXPECT THEM TO SET
*NOW SEE IF DATA MATCHES
:BRANCH AROUND ERROR IF IT DOES
:MOVE THE BITS SET INTO CSR TO THE BUT LOCATION
:BRANCH AROUND MM TESTS
*REESTABLISH TEST PATTERN

:SEE IF BOTH CYCLE AND GO WERE SET

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

4688 0134

4689
4690
4691
4692

000401
001003

ViV
s

2222
—

~
o
co

468
468
4684

CZDRLDO-DR11 GEN NPR INTF(
TEST #
= CHECK CSR BIT PATTERNS WITH MAINT BIT SET

0134
013456
013462
013464

8%:
007066

9%:

000002

108:

000200
001266

. WORD
BNE
JSR

BR
ADD
INC
DEC
BNE
ADD
DEC
BNE

CY+GO
108

PC . TSTMM

"2 .R1
R
R

999%
#200,R2

SEQUENCE

:LOCATION TO HOLD BOTH CYCLE AND GO B'TS
*BRANCH AROUND MEM MGMT TEST IF EITHER OR BOTH WERE CLEAR
:G0 CHECK FOR MEMORY MANAGEMENT EXISTENCE
:1F RETURN IS HERE, GO BACK TO SET EXPECTED DATA

: INCREMENT R1 TO NEXT EXPECTED PATTERN

* INCREMENT THE PATTERN
*DECREMENT THE LOOP COUNTER
:BRANCH BACK IF NOT DONE
*ADD 200 TO PATTERN LOCATION
*DECREMENT THE LOOP COUNTER AND
*BRANCH BACK IF 2ND OCTAL GROUP NOT DONE

——e

n7
PAGE 92

' CZDRLDO=DR11 GEN NPR INTF(

MACRO M1113 02-NOv-81 16:08
| TEST #4 = CHECK W(R, BAR € BOR, € RESET CLRS & DEV REGS

4699

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

.SBTTL

AR AAA AR AR

. &

013466
013466
013470
013476
013504
013506
013512
013514
013524

0004
012737
032777
001407
104401
000404
124

T$T4:

013524
004000

001310

THIS TEST

013514

040

043

10008:

166770

1001%:
9998:

012777
005077
012777
012777
017737
022737
001423
012737
000412

010000
166764
010000
177777
166740
177777

002570
002570

013600

0601310

4710
4711
4712
4713
4714

017737
022737
001401
104010
032777

166704
177777

013606
013614
013622
0136264
013626

4715 013634

4716 013636
4717 013644
4718 013652
4719 013660
4720 013666
4721 013674
4722 013676
4723 013706
4724 013712
4725 013714
4726 013722

4727 013730
4728 013736
4729 013744

4730 013746
4731 013750

4732
4733
4734
4735
4736
4737
4738

013756
013760
013766
013774
014002
014004
014012

012777

001361

052777
017737
012777
017737
022737
001431
012737
012737
000415
017737
012777

017737
022737
001401

104012
032777

001356
012777
017737
022737
001423
012737
000412

177777

001000

000001
166652
177777
166634
177777

013714

177777

16660;
17777
166564
177777

166756
166744

SCOPE
MOV

#9998, $LPERR

BEQ

1001$

#8IT11,3SWR
10008

1001s

.ASCIZ

/T # 4/<CRLF>

MOV
CLR
MOV
MOV
MOV
CMP
BEQ

#MA,3CSR
aCSR
#MA,3CSR
#-1,3WCR
aWCR,RWCR
#-1,RWCR
13

.EVEN

MOV
BR

#18,SLPERR
2$

166710

1$:

MOV

#-1,3WCR

165504

28:
3s:

166656

BEQ
ERROR
BIT
BNE

3s
+10
#8179, 3SWR
1$

002570
002570

002560

166640

MOV
CMP

BIS
MOV

MOV

002566
002566

MOV
CMP

001310
002600

MoV

002560

001000

165362

177777
166532
177777

166536

002564
002564

014102

001310

#G0,aCSR
aCSR,RCSR

#-1,3BAR

BEQ

MOV

#-1.EBAR

MOV

aCSR,RCSR

B8R

MOV

68:

BEQ
ERROR

8%:

BNE
MOV

7%:

aWCR,RWCR
#-1,RWCR

@BAR
, RBAR
#-1,RBAR
8s

MOV
CMP

002566

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

TYPE

4700 013524
4701 013532
4702 013536
4703 013544
4704 013552
4705 013560
4706 013566
4707 013570
4708 013576

4709 013600

BIT

165634

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

MAAAAALAS

,
'

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

SeTEST &
;t

SEQUENCE

#5%,SLPERR

#-1,3BAR

@BAR, RBAR
#-1,RBAR

222222222}

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
s88 TYPE: ''T # 4"
;88 GET OVER ASCII
;88 THE ASCII MESSAGE
sSET THE MAINTENANCE BIT AND
;CLEAR TO DO AN INIT

sALL ONES TO WCR
sMOVE RECEIVED DATA TO RWCR
sSEE IF DATA WAS LOADED PROPERLY
sBRANCH IF 0K

sMOVE NEW LOOP ON ERROR LOCATION TO SLPERR
:BRANCH OVER LOOP SETUP
cALL ONES TO WCR
sMOVE RECEIVED DATA TO RWCR
;SEE IF DATA WAS LOADED PROPERLY
sBRANCH IF OK
SATTEMPT TO SET ALL WCR BITS FAILED

sSEE IF WE SHOULD LOOP BACK
sBRANCH BACK IF SO
sSET GO TO CLEAR READY TO PREPARE TO SET BAR B{T 0

sREAD CSR TO SET BIT 0 OF BAR
sALL CONES TO BAR
sMOVE RECEIVED DATA TO RBAR

:BRANCH IF 0K
sMOVE NEW LOOP ON ERROR LOCATION TO SLPERR
sMOVE EXPECTED DATA TO EBAR
sBRANCH OVER LOOP SETUP
sACCESS CSR TO SET BIT 0 OF BAR
sALL ONES TO BAR
sMOVE RECEIVED DATA TO RBAR
sSEE IF ALL BITS WERE SET
sBRANCH IF 0K

13
#-1,38DR

sBRANCH BACK IF SO
;ALL ONES TO BDR
sMOVE RECEIVED DATA TO RBDR
sSEE IF DATA WAS LOADED PRCPERLY

MOV
CMP

a8DR ,RBDR
#-1,RBDR

12$
#138,SLPERR
108

:DPMO0

sSEE IF ALL BITS WERE SET

SATTEMPT TO SET ALL BAR BITS TO 1

#81T9,aSWR

;DPMO01

;DO THIS TEST IN MAINTENANCE MODE

+12

8IT

BEQ
MOV
BR

sSEE IF WE SHOULD LOOP BACK

BRANCH IF Ok

FAILED

sMOVE NEW LOOP ON ERROR LOCATION TO SLPERR
sBRANCH OVER LOOP SETUP

—_—

——— ee e

—

;
CZDRLDO=DR11 GEN NPR INTF(C

MACRO M1113

02-NOv-81 16:08

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

4739 014014
4740 014022
4741 014030
4742 014036
4743 014040
4744 014042
4745 014050
4746 0164052
4747 014060
4748 014062

012777
017737
022737
001401
104027
032777
001361
012777
000005
012737

4752 014102
4753 014110

104007
017737
001403

4749 014070
4750 014076
4751 014100

4754 014112
4755 014116
4756 014120
4757 014126
4758 014134
4759 014140
4760 014146
4761 014150
4762 014152
4763 014160
4764 014166
4765 014170

017737
001401

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

177777
166476
177777

166502
002564

001000

165270

108:
118:

010576

166442

128:

013524

001310

002564

166422

002570

166412

002566

002600

166376
000200

002560
002572

002572

002560

010060
166340

166342
002564

003670

9%:

MOV
MOV
CMP
BEQ
ERROR
BIT
BNE
MOV
RESET
MOV

#-1,38DR
aB8DR,RBDR
#-1,RBCR
1%
+27
#BIT9,aSWR
9s
#10576,aCSR

ERROR
MOV
BEQ

+7
@B8AR,RBAR
14%

MOV
BEQ

13%:
'
148:

CLR
ERROR

MOV
MOV
JSR

158%:

N 7
PAGE 92-1

CMP
BEQ
ERROR
BIS

MOV
BEQ
ERROR

#9998 ,SLPERR
aW(R,RW(R
138

EBAR
+11
a(SR,RCSR
#RY ,ECSR
PC,CHKCAB
ECSR,RCSR
15%
+32
#MA,a(SR
aBDR,RBDR
TSTS
+26

SEQUENCE
sALL ONES TO BDR
sMOVE RECEIVED DATA TO RBDR

;SEE IF DATA WAS LOADED PROPERLY
sBRANCH IF 0K
sALL BDR BITS ARE NOT SET
;SEE IF WE SHOULD LOOP BACK

:BRANCH BACK IF SO
sSET ALL CSR WRITEABLE BITS

RESET THE WORLD OF ITS TROUBLES = HOPEFULLY
sRESET THE LOOP ON ERROR LOCATION
;WAS WCR CLEARED?
sBRANCH IF WCR WAS CLEARED
sRESET FAILED TO CLEAR WCR
sMOVE RECEIVED DATA TO RBAR
;BRANCH IF BAR WAS CLEARED
sCLEAR EXPECTED LCCATION
sRESET FAILED TO CLEAR BAR

sMOVE RECEIVED DATA TO RCSR
sMOVE EXPECTED DATA TO ECSR

;G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY

;SEE IF EXPECTED DATA WAS RECEIVED
sBRANCH IF IT WAS
sREADY IS NOT THE ONLY BIT SET
sMAINT MODE (SO THAT IDR GETS ODR CONTENTS)
sMOVE CONTENTS OF BDR TO RBDR
sBRANCH IF IT CORRECTLY REMAINS ZERO
:BDR [S NOT CLEAR

MACRO M1113 02-NOV-81 16:08 PAGE 83 8

(ZDRLDO-DR11 GEN NPR INTF(
TEST #5

= DEVICE

SEQUENCE

INIT CLEARS (SR, WCR, BDR AND BAR

.SBTTL

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

:;.Qt'tt'tt'tQttt'..tQ'Q""'QtQQQtt'...t't...tt".".""QQQQ.QQ

SeTEST §

DEVICE INIT CLEARS CSR, WCR, BDR AND BAR

. &

‘e

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

014172

000004

:;tQttttQtt.'.t..t'.ttt"'t'!tt.tt"t'.ttt'tt.'ttt.t'.tttt..t'..t

014174
014202
014204

032777
001407
104401

004000

014212

124

040

014226
014236
014242

005077
012777
012777
012777

166274
177777
177777
177777

166262
166262
166250

4777 014256
4778 014264
4779 014272

042777
017737
001401

010000
166226

166236
002570

166216

002566

18%:

166202
000200
003670
002572

002560
002572

28%:

010000
166144

166146
002564

014210

4772
4773
4776
4775

014222
014222

4776 014250
4780
4781
4782
4783

014274
014276
014304
014306

000404

012777

4784 014312
4785 014314
4786 014322
4787 014330
4788 014334
4789 014342

104003
017737
001403
005037
104004
017737
012737
004737
023737
001401

4791 014346
4792 014356
4793 014362
4794 014364

012777
017737
001401
104005

4790 014344 104006

165136

TS1S:

014212

010576

043

1000$:
10018
:

9998:

166244

SCOPE

BIT
BEQ
1 YPE

#81T11,3SWR
10018
10008

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

'?32#1

/T # S/<CRLF>

:88 THE ASCII MESSAGE

CLR
MOV
MOV
MOV

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

;FORCE ACCESS TO CSR
:ALL ONES TO WCR
*ALL ONES TO BDR
*ALL ONES TO BAR

#MA, 3CSR
aWCR,RWCR
18

*CLEAR THE MAINT BIT TO DO AN INIT
*MOVE RECEIVED CONTEMTS TO RWCR
*BRANCH IF WCR WAS CLEARED

002560
38:

:88 GET OVER ASCII

MOV

#10576,aCSR

ERROR
MOV
BEQ
CLR
ERROR
MOV
MOV
JSR
CMP
BEQ

+3
@BAR,RBAR
2$
EBAR
+4
aCSR,RCSR
#RY ,ECSR
PC,CHKCAB
ECSR,RCSR
3s

*INIT FAILED TO CLEAR BAR
*MOVE RECEIVED DATA TO RCSR
*EXPECT READY BIT NNLY TO BE SET
:G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
*SEE IF EXPECTED DATA WAS RECEIVED
*BRANCH IF THEY WERE ALL CLEAR

MOV
MOV
BEQ
ERROR

#MA, (SR
a8DR,RBDR
TST6
+5

:GO BACK INTO MAINT MODE (SO THAT IDR GETS ODR CONTENTS)
:MOVE RECEIVED CONTENTS TO RBDR
*BRANCH IF IT WAS CLEARED
*INIT FAILED TO CLEAR BDR

BIC
MOV
BEQ

002600

foo1s

ERROR +6

:SET ALL WRITEABLE BITS IN THE CSR

*INIT FAILED TO CLEAR WCR
*MOVE RECEIVED CONTENTS TO RBAR
*BRANCH IF BAR WAS CLEARED
:CLEAR EXPECTED LOCATION

:INIT FAILED TO CLEAR ALL CSR R-W BITS

CZDRLDO-DR11
_GEN NPR INTFC
MACRO M1113 02-NOV-81 16 08 PAGE 84
TEST #6 = BIT PATTERN TEST OF WCR, BDR AND BAR REGISTER
4804

.SBTTL

SEQUENCE

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

tt"t'QQ.QQ.tttt't't'tt"'t"t.t'Qttfitttttttt'QQ'.'..Q..QQ..'.'

SSTEST 6

BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS

ANY STUCK OR SHORTED PINS.

i
i

DETERMINED TO EXIST, THE SLPERR IS INITIALIZED TO A ROUTINE SPECIFICALLY WRITTEN FOR THAT PARTICULAR ERROR TO CREATE A VERY TIGHT LOOP.

e
- &

000004
032777

004000

014400

104401

014406

001407

164742

000404

124

040

014416
4805 014416
4806 014422
4807 014426
4808 014432
4809 014436

004737
005037
012701
012702
012777

003646
002714
007202
000007
010000

166056

4811 014450

017737

166050

002564

4813 014462
4814 014464
4815 014472

001423
012737
011137

4817 014500
4818 014504

011177
017737

4820 014516
4821 014520
4822 014522
4823 014530
4824 014532
4825 014536
4826 014542
4827 014550
4828 014554
4829 014556

001401
104205
032777
001363

4831 014570
4832 014572
4833 014576
4834 014604
4835 014610
4836 014612
4837 014614
4838 014622
4839 014626
4840 014630
4841 014636

000410
011177
017737
021137
001401
104204
032777
001363
011177
017737
011137

4810 014444

4812 014456

011177

021137

4816 014476 000410
4819 014512

4830 014564

4842 014642

021137

005077
011177
017737
021137
001423
012737

011137

042737

166054

002564

014500
002576
166020
166014

002564

001000

165764
165754
165750
002570
014572

002602

043

SCOPE
BIT

BEQ
10008:
1001$:

1$:

002564

164610

28:

WHEN AN ERROR IS

38:
4$:

002570
001310

001000

164516

165670
165664
002600

002566

002600

78:
8$:

98 :

10018

10008

10018

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

;88 BRANCH_ IF NOT
‘88 TYPE: T # 6

:88

JSR
CLR
MOV
MOV
MOV

PC.CLENUP
ERRCNT
#PATRNS ,R1
#7 .R2
#MA, 3CSR

;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

aBDR. RBDR

*MOVE RECEIVED DATA TO RBDR

BEQ
MOV
MOV

1
#2$,SLPERR
(R1) ,EBDR

*BRANCH IF SO
*SET UP LOOP ON ERROR LOCATION
*MOVE EXPECTED DATA TO EBDR

MOV
MOV

(R1),3BDR
aBDR . RBDR

*LOAD BIT PATTERN TO BDR
*MOVE RECEIVED DATA TO RSDR

BEQ
ERROR
BIT
BNE

48
+205
#8179,3SWR
2$

MOV

B8R

CLR
MOV
MOV
CMP
BEQ
MOV

BR
MOV
MOV
CMP
BEQ
ERROR
BIT
BNE
MOV
MOV
MOV

(R15,3BDR
(R1) _RBDR

(R1) .RBDR

:88

GET OVER ASCII

/T # 6/<CRLF>

MOV

68:

#8IT11,3SWR

esg*z

CMP

5%:

002570

CMP

001310

165720
165714
002570

000001

7ST6:

TYPE

014404

014406

LOCATION SLPERR IS NOT SET UP AT THE START

SINCE A DIFFERENT METHOD OF ERROR LOOPING IS DONE.

:. 1 3323333332332 3323323332333 2238333333233 333 3333323233233 2332333332233

014366
014370

014376

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

THE ASCI] MESSAGE

*MOVE THE DATA TO BDR

:SEE IF EXPECTED DATA WAS RECEIVED

:SKIP OVER LOOP ON ERROR SETUP
*SEE

IF DATA IS OK NOW

*BRANCH OUT IF SO = OK NOW
*BDR PATTERN NOT CORRECT
*SEE IF WE SHOULD LOOP BACK
*BRANCH BACK IF SO

aCSR
(R1) ,aWCR
aWCR.RWCR
(R1) .RWCR
98
#6$, SLPERR

*CLEAR CSR TO DO AN INIT = WCR & BAR DON'T NEED MAINT MODE
*MOVE THE DATA TO WCR
:MOVE RECEIVED DATA TO RWCR
:SEE IF EXPECTED DATA WAS RECEIVED
*BRANCH IF SO
:SET UP LOOP ON ERROR LOCATION

78
(R1) ,aWCR
aWCR,RWCR
(R1) .RWCR
8s
+204
#81T9,aSWR
6$
(R1) ,@BAR
aBAR 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

(R15,EWCR

#8170, EBAR

*MOVE EXPECTED DATA TO EWCR

*DO NOT EXPECT BIT 0 TO BE READ

CZDRLDO-DR11 GEN NPR INTFC
MACRO M1113 02-NOV-81 16 08
TEST #6
= BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS

4843 014650
4844 014656
4845 014660
4846 014666
4847 014670
4848 014674
4849 014702
4850 014706

4851 014710
485% 014712
4853 014720
4854 014722
4855 014726
4856 014726
4857 014730

023737
001421
012737
000410
011177
017737
021137
001401

104203

032777
001363
005721
005302
001¢43
004737

002600

002566

014670

001310

165624
165620
002566

002566

001000

164420

CMP

108:

118:
12%:
138:

003646

BEQ
MoV
BR
Mov
MoV
CMP
BEQ
ERROR
BIT
BNE
TST
DEC
BNE
JSR

0 8
PAGE 94-1

EBAR,RBAR
13%
#108,SLPERR
118
(R1) ,@BAR
@BAR,RBAR
(R1) ,RBAR
128

+203

#BIT9,aSWR
108
(R1)+
R2
1$
PC,CLENUP

SEQUENCE

sSEE IF WE SHOULD LOOP BACK
:BRANCH BACK IF SO
:GO TO NEXT PATTERN
:DECREMENT THE LOOP COUNTER AND
:BRANCH BACK IF NOT DONE
sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI

TO 7

sSEE IF EXPECTED DATA WAS RECEIVED
:BRANCH IF SO

:SET UP LOOP ON ERROR LOCATION

:SKIP OVER LOOP ON ERROR SETUP

:LOAD BIT PATTERN TO BAR
sMOVE RECEIVED DATA TO RBAR
sSEE IF DATA IS OK NOW
sBRANCH OUT IF SO = OK NOW
:BAR DATA PATTERN NOT CORRECT

CZDRLDO-DR11 GEN NPR INTF(
TEST #7

= TEST CSR AND EIR BITO

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

4864

LSBTTL

SEQUENCE

TEST #7 = TEST CSR AND EIR BITO

::tt.tt't'ttttttttt.tttt'tt'ttttttttttt'tt'tt.ttttt.'tt'ttttttttt

S*TEST 7

TEST CSR AND EIR BITO

i
- %

000004
012737

014752
014754

001407
104401

014762

124

040

043

1000$:

4855 014772
4866 015000
4867 015002
4868 015006
4869 015014

032737
001444
005077
012737
017737

000001

002610

999%:

165514
000001
165502

4871 015030
4872 015032

001407
013737

014760
014762

014772

4870 015022

4873 015040

032777

000404

032737

042737

4874 015046
4875 015050
4876 015056

104014
012777
017737

4878 015072
4879 015074

001007
013737

4881 015110

104015

4877 015064

4880 015102

032737
052737

014772

004000

000001

002560

000001

100000
165440

000001

002562

000001

001310

164366

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

:-.-t'tttt't'tttttttttttt"'i'tttt!tttt.".tttttttttttfit..ttt""'t
T$17:
SCOPE
;PROCESS LOOPING AND TEST NUMBER INCREMENT
MOV
#9998 SLPERR
:SET LOOP ON ERROR TO 999%

014734
014734
014736

014744

THIS TEST INSURES THAT BIT 0 OF THE CSR IS CLEAR WHEN IN CSR MODE (BIT

BIT

BEQ
TYPE

#BIT11,3SWR

;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

10018
10008

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

.eegfiz

/T # 7/<CRLF>

:88 THE ASCII MESSAGE

002536
002560

BIT
BEQ
CLR
MOV
MOV

#81T0,BORW
TST10
aCSR
#81T0,BUT
aCSR,RCSR

;TEST TO SEE IF WE ARE TESTING A DR11-W
*BRANCH TO NEXT TEST IF A DR11-B
:FORCE ACCESS TO CSR
:MOVE BIT O INDICATOR TO BIT UNDER TEST LOCATION
*MOVE CSR CONTENTS TO RCSR

002572

BEQ
MOV

18
RCSR,ECSR

*BRANCH IF A ZERO
*MOVE CSR TO EXPECTED DATA, ECSR AND

165444
002562

ERROR
MOV
MOV

+14
#EIR,ACSR
aCSR.REIR

*CSR BIT TEST FAILED
:6G0 TO EIR MODE
*MOVE 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

1001$:

002560

BIT

002572

002562
002574

002574

BIC
1$:

BIT

BIS

ERROR

fo01s

#8170, RCSR

#BIT0,ECSR

#8170, REIR
#BIT0,EEIR

:88 GET OVER ASCII

:CLEAR ALL BUT BIT 0

:CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR

*CLEAR ALL BUT BIT 0

*SET THE 0 BIT = EXPECTED IT TO BE 1

;

CZDRLDO-DR11_GEN NPR INTF(

MACRO M1113

02-NOV-81 16:08

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

4888

.SBTTL

PAGE 96

SEQUENCE

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

Qttt.tttttttt.t'ttttt'ttttttt'.tttt"..'."".it.'.tt.tt..ttt"

SETEST 10
.'

- %

ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS

g?xssgsgr INSURES THAT THE ATTN BIT (BIT 13) SETS VIA FNCT2 AND ERROR

. %

::i i 3323233233233 33333 3232323233233 333 3333233333333 3323333333222 232322222213

015112
015112
015114

000004
012737

015130
015132

001407
104401

015122

015136

015140

032777
000404

T$110:
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

032737
001073
005077
012777
017737
022737
001404
012737
104016
112777

000001

002720

165336
010000
165324
010200

165330
002560
002560

010200

002572

4900

013701

002560

022701

120000

015150

4899 015226
015234

4901 015240
4902 015244

017737
042701

000004

165270

001411

4907 015272
4908 015274
4909 015302
4910 015310
4911 015316
4912
015320
4913
015326
4914 015334

104017
042777
017737
032737
001411
013737
042737
004737

005077

165154

4915 015340
4916 015342

013737
004737
052737

104020

10008:
1001$:
9998:

1$:

057777

4903 015250

4904 015252
4905 015260
4906 015264

165274

002560

SCOPE

#9998 SLPERR

pnocess LOOPING AND TEST NUMBER INCREMENT
T LOOP ON ERROR TO 999

BEQ
TYPE

1001$
10008

*88 BRANCH IF NOT
*88 TYPE: T # 10"

BIT

015140

124

MOV

002572

020004
165214
120000

165220
002560
002560

002560
120000
003670

002572
002572

2$:

38:

:88 GET OVER ASCII

/T # 10/<CRLF>

BIT
BNE
CLR
MOV
MOV
CMP
BEQ
MOV
ERROR
MOVB

#81T0,DDW
TST11
aCSR
#MA, 3CSR
aCSR,RCSR
#MA+RY ,RCSR
1$
#MA+RY ,ECSR
+16
#F2,aCSR

;TEST TO SEE IF WE ARE TESTING A DR11-W
*BRANCH TO NEXT TEST IF A DR11-8
roncs ACCESS TO CSR
*MAINT
*MOVE RECEIVED DATA TO RCSR
:SEE IF EXPECTED DATA WAS RECEIVED
*BRANCH IF THEY ARE
*MOVE EXPECTED DATA TO ECSR
*READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR
SSET FNCT2

MOV

RCSR.R1

*MOVE CONTENTS TO R1 FOR BIT TEST

MOV

aCSR,RCSR

BIC

#(81513,R1

BEQ

P13

MOV
JSR
BIS

002572

f001s

zz TEST TO SEE IF TEST NUMBER TRACER ENABLED

.eegfiz

CMP

002560
003670
120000

aexr1i aSWR

#ER+AT,R1

RCSR,ECSR
PC,CHKCAB
#ER+AT ,ECSR

ERROR
BIC
MOV
BIT
BEQ
MOV
BIC
JSR

+17
#AT+F2,aCSR
aCSR,RCSR
#ER+AT ,RCSR
3s
RCSR,ECSR
#ER+AT. ECSR
PC,CHKCAB

CLR

aCSR

ERROR

+20

:88 THE ASCII MESSAGE

*MOVE THE CONTENTS TO RCSR

*CLEAR ALL BUT BITS ERROR & ATTN FOR TEST
*TEST TO SEE IF ERROR AND ATTN ARE SET

:BRANCH IF IT IS PROPERLY SET

*MOVE EXPECTED DATA TO ECSR
*GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
*SET THE BITS THAT SHOULD HAVE BEEN SET
*ATTN AND ERROR rnéLso TO SET PROPERLY
*CLEAR ATTN & FNCT
*MOVE CSR DATA TO RCSR
:BIT TEST ATTN AND ERROR BITS TO SEE IF THEY ARE CLEAR

*BRANCH IF ATTN IS CLEAR
:MOVE EXPECTED DATA TO ECSR
*CLEAR THE BITS THAT WERE SUPPOSED TO BE CLEAR
:GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY

*ATTN AND ERROR FAILED TO CLEAR PROPERLY
*RETURN TO CSR

HACROB?}1$3 02-NOV-81 16:08 PAGE 87

CZDRLDO-DR11 GEN NPR INTFC
TEST #1171 = FNCT BIT 1 CONTROLS DSTAT
4922

SBTTL
SRR

SEQUENCE

TEST #11 = FNCT BIT 1 CONTROLS DSTAT BIT 9

AR AR AR AR A AR

RTEST 11
3. %

AR TR AR AR A AR AR AR A AN AR

RAAAA R AR

AAR

FNCT BIT 1 CONTROLS DSTAT BIT 9

THIS TEST INSURES THAT FNCT BIT 1

CONTROLS DSTAT BIT 9.

:2 223233323333 323233323232333323323 3333333333333 3333332232322322222222%3

T$111:
o
W
N
~N
~N
~

R
K|R &~
oo
BN

Y
e
U
YO SR
e
D
—

D e

CO00O00

(W LV LV LV LV LY BV, [V 1V |

OO0

- %

015404
004000

001310

163754

BIT
BEQ

015374
040

043

1000$:

165104
002560
002572

9998:

002572
165040
002560
002572

001000

————

006000
001000

002572
002572

18:

#999$ , SLPERR

;PROCESS LOOPING AND TEST NUMBER INCREMENT

SET LOOP ON ERROR TO 999%

#BIT11,3SWR
1001$

z& TEST TO SEE IF TEST NUMBER TRACER ENABLED
.zz BRANCH_IF NOT,

'232*1

10018

/T # 11/<CRLF>

*88 GET OVER ASCII

(LR

acsSR

;CLR FUNCT BITS AND FORCE ACCESS TO CSR

MOV

RCSR,ECSR

*MOVE EXPECTED DATA TO ECSR

TYPE

:
10018

005077
012777

SCOPE

MOV

MOV
MOV
MOV
MOV
BIC
BEQ
BIC
ERROR
BIS
MOV

10008

#MA,aCSR
aCSR,RCSR
RCSR.ECSR
ECSR.R1
#CFNC,R1
1
#FNC,ECSR
+24
#F1,3CSR
@CSR,RCSR

MOV
BIC
CMP

ECSR.R1
#CDST,R1
#DSC,R1

BIC
BIS
ERROR

#DAB,ECSR
#DSC.ECSR
425

BEQ

TST12

& TYPE: T # 11"

:88 THE ASCII MESSAGE
*MAINT MODE
*MOVE CONTENTS OF CSR TO RCSR
*MOVE EXPECTED TO ECSR
*MOVE CONTENTS TO R1 FOR TESTING
:CLEAR ALL BUT THE FNCT BITS
*BRANCH IF THE FUNCTION BITS ARE CLEAR
*CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
*FUNCTION BIT(S) ARE NOT CLEAR
SSET FNCT1
*MOVE CONTENTS OF CSR TO RCSR
*MOVE CONTENTS TO R1 FOR TEST
*CLEAR ALL BUT BITS 9, 10 & 11
*SEE IF DSTAT A AND B ARE CLEAR & C IS SET

*BRANCH TO NEXT TEST IF ALL CLEAR

*CLEAR THE DSTAT A & B BITS THAT SHOULD HAVE BEEN “LEAR
*SET THE DSTAT C BIT THAT SHOULD HAVE BEEN SET
:DSTAT A, B OR C ARE NOT AS EXPECTED

CZDRLDO=DR11 GEN NPR_INTF(

MACRO H111(3)

TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT
1

4947

02-NOV-81 16:08

.SBTTL

PAGE 98

SEQUENCE

TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT 10

tttttttt'tt'lt.tttttt"""Qt'.ttttttttttttt.tttttt"t.tt'tlt..

S*TEST 12
t

te
- %

015532
015532
015534

000004
012737

015550

001407

015542

015552

015556
015560
015570

032777
104401

000404
124

015570

004000
040

005077
012777
017737
013737

164726
010000
164714
002560

4953 015622
4954 015626
4955 015630
4956 015636
4957 015640

042701
001404
042737
104024
052777

177761

013701

013737
013701

002560
002572

002572

022707

002000

042737

005000

001407

4965 015706
4966 015714

164720
002560
002572

164654

4963 015676

052737
104025

BEQ

164650 002560

170777

002000

1000$:
1001$:

000004

042701

4964 015700

002572

043

002572

4961 015666

4962 015672

BIT

TYPE

000016

4958 015646 017737
4959 015654
4960 015662

163570

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

:.'ttt.tttttttttttttt'tttttttt'ttttttttttt.tttt.t'ttt.'.'.'tt't't
Tsr12:
SCOPE
PROCESS LOOPING AND TEST NUMBER INCREMENT
MOV
#999% , SLPERR
T LOOP ON ERROR TO 9998

015560

4948 015570
4949 015574
4950 015602
4951 015610

4952 015616

001310

999%:

002572

1001$

10008

zz TEST TO SEE IF TEST NUMBER TRACER ENABLED
zc BRANCH_IF NOT
‘88 TYPE:

'T # 12

1001$
/T # 12/<CRLF>

*88 GET OVER ASCII
:88 THE ASCII MESSAGE

CLR
MOV
MOV
MOV

aCSR
#MA,aCSR
aCSR,RCSR
RCSR.ECSR

:CLR FUNCT BITS AND FORCE ACCESS TO CSR
*MAINT MODE
*MOVE CONTENTS OF CSR TO RCSR
*MOVE EXPECTED TO ECSR

BIC
BEQ
BIC
ERROR
BIS

#CFNC,R1
1$
#FNC,ECSR
+24
#F2,3CSR

:CLEAR ALL BUT THE FNCT BITS
:BRANCH IF THE FUNCTION BITS ARE CLEAR
:CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
*FUNCTION BIT(S) ARE NOT CLEAR
*SET FNCT2

MOV
MOV

RCSR.ECSR
ECSR.R1

MOV

18:

cexr1i.asua

BR
.eaghz

MOV
BIC

002572

FNCT BIT 2 CONTROLS DSTAT BIT 10

ECSR.R1

aCSR,RCSR

*MOVE EXPECTED DATA TO ECSR
*MOVE CONTENTS TO R1 FOR TEST

*CLEAR ALL BUT THE DSTAT BITS

TST1%

*BRANCH TO NEXT TEST IF AS EXPECTED

#DSB,R1

BIC

#DAC.ECSR

BIS
ERROR

*MOVE CONTENTS
OF CSR TO RCSR

#CDST,R1

CMP

BEQ

*MOVE CONTENTS TO R1 FOR TESTING

#DSB_ECSR
+25

*IF DSTAT A AND C ARE CLEAR & B IS SET
*CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR

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

MACRO H1113 02-NOV-81 16:08 PAGE 59

CZDRLDO=DR11 GEN NPR_INTF(
TEST #13 = FNCT BIT 3 CONTROLS DSTAT BIT
1
4972

SBTTL
SRR

SEQUENCE

TEST #13 = FNCT BIT 3 CONTROLS DSTAT BIT 11

AR AR AR AR AR AR

aresr 13

TR RN AR R AR A AR

AR AR

AR CR

FNCT BIT 3 CONTROLS DSTAT BIT 11

’t

THIS TEST INSURES THAT FNCT BIT 3 CONTROLS DSTAT BIT 11.

:.ttt.tt.ttttlt.tttttttttt'ttttttttttttQt.t'tttttt'.tt"it..tttt'

!s vy awviaviug

T$113:

015754
004000

015744

TYPE

10008:

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

9998:

002572

000016

4990 016072
4991 016100

002572
164470
002560
002572

004000

4989 016064

1046025

003000
004000

SCOPE
MOV

BIT
BEQ

elelelelelelele]

. %

.1ooos

‘88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
.zz BRANCH IF NOT
g TYPE:

"'T # 13"

.ASCIZ

/T # 13/<CRLF>

*88 GET OVER ASCII

(LR

aCSR

;CLR FUNCT BITS AND FORCE ACCESS TO CSR

MOV
MOV
MOV

aCSR,RCSR
RCSR,ECSR
ECSR.R1

*MOVE CONTENTS OF CSR TO RCSR
*MOVE EXPECTED TO ECSR
*MOVE CONTENTS TO R1 FOR TESTING

#FNC,ECSR

:CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR

-EVEN
MOV

#MA,aCSR

BIC
BEQ

#CFNC,R1
18

ERROR

+24

:88 THE ASCII MESSAGE
*MAINT MODE

:CLEAR ALL BUT THE FNCT BITS
*BRANCH IF THE FUNCTION BITS ARE CLEAR

*FUNCTION BIT(S) ARE NOT CLEAR

BIS
MOV

#F3,3CSR
aCSR,RCSR

“SET FNCT3
*MOVE CONTENTS OF CSR TO RCSR

BIC

#CDST,R1

:CLEAR ALL BUT DSTAT BITS

BEQ

TST14

MOV
MOV

CMP

002572
002572

#81T11,3SWR
1001$

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

1001$

BIC
18:

#9998 SLPERR

BIC
BIS

ERROR

RCSR.ECSR
ECSR_R1

#DSA,R1

#DBC,ECSR
#DSA.ECSR

+25

:MOVE EXPECTED DATA TO ECSR
:MOVE CONTENTS TO R1 FOR TEST

:SEE IF DSTAT B AND C ARE CLEAR & A IS SET

*BRANCH TO NEXT TEST IF DATA OK

:CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR
:SET THE BIT THAT SHOULD HAVE BEEN SET

:DSTAT A, B OR C ARE NOT AS EXPECTED

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

02-NOV-81 16:08

PAGE 100

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

4999

.SBTTL

SEQUENCE

100

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

.-:tttttttttlttttttttt"ttt"tttt'.tttttttttttttttt.tttt.tt't't'tt

S*TEST 14
]

EIR BLOCKS DATA XFERS FROM ODR TO IDR

THIS TEST INSURES THAT GOING TO EIR MODE BLOCKS DATA TRANSFERS FROM

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

THE

IDR

. %

:-:ttttttttttttttttt.tt'tttttt"ttttttttt'tttttttttttt't.l'tttt!t'

016102
016102
016104

000004
012737

016120
016122

001407
104401

016112

032777

T5114:

016150

004000

001310

163220

000404
124

040

043

016140
5000 016140
5001 016146
5002 016150
5003 016154

032737
001451
005077
012777

000001

002610

164346
010000

164340

5005 016170

017737

164330

002564

5004 016162

5606 016176

012777
022737

5007 016204
5008 016206

001404
012737

5010 016216

052777

5009 016214 104031

052525
052525

052525

100000

164276

012737
012777

052525
125252

002576
164264

5014 016246

022737

052525

002564

052525

002576

017737

5015 016254
5016 016256

001404
012737

5018 016266

004737

5017 016264

104030

164260

003646

1001$:
9998:

#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 # 14"

eegfiz

/T # 14/<CRLF>

:88 THE ASCII MESSAGE

BIT
BEQ
(LR
MOV

#B1T0,B0RW
TST15
aCSR
#MA aCSR

;TEST TO SEE IF WE ARE TESTING A DR11-W
*BRANCH TO NEXT TEST IF A DR11-B
*FORCE ACCESS TO CSR
*SET MAINT MODE (SO THAT IDR GETS ODR CONTENTS)

aBDR, RBDR

*MOVE RECEIVED DATA TO RBDR

13
#52525 ,EBDR

*BRANCH IF IT WAS
*MOVE EXPECTED DATA TO EBDR

002564

CMP

#52525 ,RBDR

‘88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

*88 GET OVER ASCII

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

*SEE IF DATA WAS LOADED PROPERLY

ERROR +31

*BDRPATTERN
NOT CORRECT

MOV
MOV

*MOVE EXPECTED DATA TO EBDR
:SET ALT 1°S AND 0'S TO BDR

BIS

#EIR,CSR

MOV

aBDR, RBOR

CMP

BEQ
MOV

28:

1001s

#52525,38DR

BEQ
MOV

1$:

#BIT11,3sWR

MOV

002564

5011 016224
5012 016232

5013 016240

1000$:

164334

A
002576

SCOPE
MOV

BIT

016130

016126
016130

IS READ).

ERROR

JSR

#52525 ,EBDR
#125252,3BDR
#52525 ,RBDR

260 TO EIR

*MOVE RECEIVED DATA TO RBDR

:TEST FOR OLD PATTERN

2$
#52525,EBDR

*BRANCH IF ORIGINAL PATTERN STILL THERE
*MOVE EXPECTED DATA TO EBDR

PC.,CLENUP

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

+30

:BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN

K 8
PAGE 101

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOV-81 16:08
TEST #15 = DR11 INTERRUPTS WITH CPU AT LEVEL 3

5025

.SBTTL
PR

T*TEST 15
*

NN
W
~

38 OOO0O0O0O0O=O0O0—==0000
Ot
O =2
upa-a-o_hd()i!

022

NNWWNN
‘N
~

5043 016452
5044 016460
5045 016466
5046 016474
5047 016476
5048 016502
5049 016504
5050 016510
5051 016516

001310
163030

040

043

1000$:

010000

164164

1001$:
9998

000140

177776
002560

164160

164146

002560

000200
003670

002572

164104
164072
002660
164056
164044

002532
002534

002560

10018
10008

1001s

/T # 15/<CRLF>

MOV
CLR
MOV
MOV
TSTB
BM]
MOV
JSR

#MA,3CSR
aCSR
#LEVEL3,PSW
aCSR,RCSR
RCSR
1$
#RY ,ECSR
PC,CHKCAB

MOV
MOV

aDRINV, SDRINY
aDRVS
, SDRVS

MOV
BIS
DEC

BNE

ERROR

3s:

#BIT11,asWR

+22

#38,3DRINV

#MA aCSR

#1000, TImE
#1E+F2+GO,aCSR
TIME

aCSR,RCSR
SDRINV,aDRINV
SDRVS
, @DRVS

+35

CLR

aCSR

ADD

#4,SP

MOV
MOV

TST16

SDRINV,@DRINV
SDRVS,aDRVS

INTERRUPT WITH THE CPU PRIORITY

A AN AARN AR AR ARy

LASCIZ
EVEN

MOV
MOV
MOV

164040
164034

164010
164004

BEQ
TYPE

MOV

2%:

AR AR AR AR R

#9998, SLPERR

MOV

164020

000004
002532
002534

SCOPE

ERROR

002532
002534

AR AR AR AR AR

INTERRUPTS WITH CPU AT LEVEL 3

MOV

BIT

016320

WWN =N
NN S

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
5038 016422
5039 016430
5040 016436
5041 016444
5042 016450

016330
004000

DR11

AR R AR AR

THIS TEST_INSURES THAT THE DR11 WILL

S T15:

AR A AR

AT LEVEL 3.

SRR AR AR A AR

016272
016272
016274
016302
016310
016312
016316
016320

101

TEST #15 = DR11 INTERRUPTS WITH CPU AT LEVEL 3

AR AR AR AR

SEQUENCE

;PROCESS LOOPING AND TEST NUMBER INCREMENT

sSET LOOP ON ERROR TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
;88 TYPE:
;88 GET OVER ASCII
;88 THE ASCII MESSAGE
sSET MAINTENANCE BIT AND
;CLEAR CSR TO DO AN INIT

sSTATUS AT LEVEL 3
sMOVE CSR CONTENTS TO RCSR
;SEE IF READY BIT (BIT 7) 1S SET
sBRANCH IF IT IS
sSET THE BIT THAT SHOULD HAVE BEEN SET
;G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
sREADY OF CSR WAS NOT SET
sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
sSET UP INTERRUPT VECTOR
sMAINT MODE
sSET THE TIME COUNTER
;1E, FNCT2 AND GO
sDECREMENT DOWN TO ZERO
sBRANCH IF NOT THERE YET
sMOVE RECEIVED DATA TO RCSR
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
:DR11 FAILED TO INTERRUPT
sCLEAR THE CSR TO DO AN INIT
:BRANCH TO THE NEXT TEST
sCLEAN THE STACK AFTER THE INTERRUPT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS

MACRO M1113 02-NOV-81 16:08
CZDRLDO-DR11 GEN NPR INTF(
TEST #16 = DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7
5058

.SBTTL
AL

104401

5081 016732
5082 016740
5083 016744
5084 016752
5085 016760

\n.a-n-a_ha-oirfiig
N

5070 016646
5071 016654
5072 016662
5073 016670
5074 016676
5075 016702
5076 016704
5077 016710
5078 016716
5079 016724
5080 016726

016562
004000

10008:

002560

000200
003670
000200

002572

163676
163672

002532
002534
163660

016726

1001$:
999%:

163604

002560
163554
163550

38:

ARl

diiitdddd)

DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7

ARl ittt
iisdds]

#9998 SLPERR

#B8IT11,3SWR
1001$
1000%

sPROCESS LOOPING AND TEST NUMBER INCREMENT

;SET _LOOP ON ERROR TO 999%

l& TEST TO SEE IF TEST NUMBER TRACER ENASLED
l& GET OVER ASCII
;88 THE ASCII MESSAGE

JSR
MOV
TSTB

PC,CLENUP
aCSR,RCSR

RCSR

MOV
JSR

#RY,ECSR
PC,CHKCAB

sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
:MOVE CSR DATA TO RCSR
sCLEAR ALL BUT THE READY BIT (BIT 7)
:BRANCH IF IT IS SET
sMOVE EXPECTED DATA TO ECSR
;GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY
sSET THE BIT THAT SHOULD HAVE BEEN SET

ERROR

#RY ,ECSR

+22

MOV
MOV

@DRINV, SDRINV
aDRVS, SDRVS

MOV

#MA,a(SR

BIS
DEC
BNE

CLR
MOV
MOV

163610

i001s

MOV
MOV
MOV
2%:

/T # 16/<CRLF>

BIS
18:

L.ASCIZ
.EVEN

BMI

002572

163624

002534

SCOPE
MOV

BIT
BEQ
TYPE

016552

003646
163730
002560
=lelelelelele
D lelele]

016562
5059 016562
5060 016566
5061 016574
5062 016600
5063 016602
5064 016610
5065 016614
5066 016622
5067 016624

AARAA SRR

TST16

040

102

AT LEVEL 7.

000404
124

SEQUENCE

THIS TEST_INSUPES THAT THE DR11 FAILS TO INTERRUPT WITH THE CPU PRIORITY

000004
012737
032777
001407

TEST #16 = DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7

AAAR LA

nTEST 16

PAGE 102

#38,aDRINV
#LEVEL7,aDRVS
#1000, TIME

#IE+F2+G0O,aCSR
TIME
2%

aCSR
SDRINV,aDRINV
SDRVS ,aDRVS

8k
ADD
MovY

1ST17
#6,SP

MOV

SDRVS ,aDRVS

CLR
MOV

ERROR

oCSR,RCSR

a(CSR
SDRINV,aDRINV

+36

sREADY OF 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
ISV TIHE DELAY COUNTER

*MAINT MODE

;1E, FNCT2 AND GO

*DECREMENT UNTIL WE GET TO ZERO

:BRANCH BACK IF NOT ZERO YET
sCLEAR THE CSR TO DO AN INIT
JRESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
;BRANCH TO THE NEXT TEST
sRESTORE STACK
sMOVE RECEIVED DATA TO RCSR
sCLEAR IE
JRESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
sDR11 INTERRUPTED, BUT IT SHOULDN'T HAVE

MACRO M1113

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

02-NOV-81

INTERRUPTS AT CORRECT BR LEVEL

.SBTTL

5092

n 8
PAGE 103

16:08

TEST #17 = DR11

SeTEST 17

DR11

103

INTERRUPTS AT CORRECT BR LEVEL

‘%

SEQUENCE

R0 RdRRRdRddRddRRRdRddRRRddd
]

INTERRUPTS AT CORRECT BR LEVEL

THIS TEST INSURES THAT THE DR11 WILL

INTERRUPT AT THE CORRECT LEVEL AS

DEFINED IN THE DEVICE DESCRIPTOR WORD.

CCRARNRARRAARANAARAAAANANCRRRANRARANRANANRAARANRARNCORANAORRCRROETORES

016762
016762
016764

.
-

000004
012737
032777

SCOPE

017074
004000

BIT

017010

TYPE

MOV
BEQ

—_

e
e
e
e
b
A

—=O000000

WwWwnho - NNNNWVINNN
NN NN NNNVUONNNNNNNNN N -

Er:g?:CHDErDC"DiE RSB R
NNONNS NYNNNN=ON E;

NNNNNNNYN

w
PNONY
= N8N=N
NNNNVNONNNINN
ONWN NNNOWWNINNNNN
WWNW
W
WWNNWN
N NO
WVNO NN N NN NWNW
NI NN WWA NN =WWWWW

b b
b
e O
b
N OO b
— e

=l=lelelelelelol
o le]

>888222888
& = NN WWWWY RN
NI NN

W
SIS OSSO

on s~

u«vnrusy:~u
S
&SFBNS OO

o o d o
ho
d d o
e d i e e h h
e e e =D e o o
e o e ) o e
NNNNNNNNNNN NNNNNNNNNNNNNNNNN NN
— e
i h h d O
= b e e ced =
N NN PNONOND)
WSS
&S SN
=O~N

) e

333333
ONO‘N&N

o clh e

[elelelelelelelalelalelelalalelalelelolelolelelelelelelelalelelolaloleoloalela
il

HEERNRRRUN
NS SBIcrr -0 3BIRIRAR28
WINRIPNONLNINONINONINUND
= b b d e d e b b

— — o

TN A

)

-l

D -l

A NN

-l

b -

-l - -

AT AT AN

B —-

%%<333

003646

001362

001362
163420

177776
163404

000200

003670
002560

017064
000200
017074
163334

999%:

002560
002572

1001$
10008

LASCIZ
.EVEN

/T # 17/<CRLF>

JSR
MOV
ASR
ASR
ASR
ASR

PC,CLENUP

sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
;MOVE DEVICE DESCRIPTOR WORD TO $TMP1
sSHIFT THE LEVEL TO THE RIGHT 5 PLACES

BIC
MOV
MOV
MOV

DDW,$TMP1
$TMP1
$TMP1
$TMP1
$TMP1
$TMP1
#177770,8TMP1
#3,R0
#LEVELS,R1
#MA,3(SR

a(SR
(R1) ,PSW
a(SR,RCSR

#RY ,ECSR
PC,CHKCAB

002572

RCSR,ECSR

001310
002572

#1$ SLPERR

#RY ,ECSR
+22

2%:

#9998
, SLPERR
aDRINV, SDRINV
@DRVS
, SDRVS

#48,DRINV
#LEVEL7.,3DRVS

000400
000105
002660
163250

sCLEAR ALL BUT THE PRIORITY

:DC 3 PRIORITY LEVELS
;MOVE ADDRESS OF CPU PRIORITVIES TO R1
sSET THE MAINTENANCE BIT AND

sCLEAR TO DO AN INIT

sPUT PRIORITY INTO PSW

sMOVE RECEIVED DATA TO RCSR
sMOVE READY BIT TO ECSR
;GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESTARY
sSEE IF RECEIVED DATA MATCHES EXPECTED
;BRANCH IF 0K
sSET UP FOR POSSIBLE LOOP ON ERROR FOR THIS ERROR ONLY
sMOVE EXPECTED DATA TO ECSR
sREADY OF CSR WAS NOT SET
sRETURN ORIGINAL LOOP ON ERROR ADDRESS = DID NOT LOOP
sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
sSET UP INTERRUPT VECTOR
sSET UP INTERRUPT PS

#MA 3 SR

sMAINT MODE

#1E+F2+G0,aCSR

:1E, FNCT2 AND GO
sDECREMENT UNTIL WE GET TO ZERO
;BRANCH BACK IF NOT ZERO YET
;CLEAR CSR TO DO AN INIT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT S
sSAVE OLD STATUS LEVEL
s INCREMENT R1 TO POINT TO NEXT PRIORITY LEVEL
sDECREMENT LOOP COUNTER AND
sBRANCH BACK FOR ANOTHER TRY [F NOT DONE

#6400, TIME
3s:

;88 TYPE: ''T # 17

;88 GET OVER ASCII
;88 THE ASCII MESSAGE

ASR

1%:

#81T11,35uR

;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

f001s

04C

#9998, SLPERR

TIME

a(SR
SDRINV,3DRINV
SDRVS ,aDRVS
PSW,LEVEL

(R1)+

$56%
+53

sSET DELAY COUNTER

sDR11 FAILED TO INTERRUPT

-—

MACRO M1113 (02-NOV-81
' c 4 DRLDO =DR11 GEN NPR INTF(
T 3 sTn 7 = DR11 INTERRUPTS AT CORRECT BR LEVEL
5132 017304
5133 017312
5136 017314
5135 017320
5136 017324
5137 017332
5138 017340
5139 017346
5140 017354
5141 017356

013737
000422
062706
005077
013777
013777
042737
023737
001401
104052

002552
000004

002540

002540
4%:

MOV
8R
ADD

(LR

MOV
MOV
BIC
CMP

BEQ
ERROR

16:08

N 8
PAGE 103-1

DRLEV,LEVEL

TST20
#6,SP
aCSR
SDRINV,aDRINV
SDRVS ,aDRVS

#177487 ,LEVEL

LEVEL DRLEV
TS120
+5¢2

SEQUENCE

sSET LEVEL TO CONTAIN THE ANTICIPATED LEVEL
*BRANCH TO THE NEXT TEST
|

:RESTORE STACK

:CLEAR [E

RESTORE LOCATION USED AS THE
:RESTORE LOCATION USED AS THE

INTERRUPT VECTOR
INTERRUPT PS

:CLEAR ALL BITS BUT THE BR LEVEL

:SEE IF LEVEL INTERRUPTED MATCHES EXPECTED
:BRANCH AROUND ERROR CALL IF IT IS AS EXPECTED
:DR11 INTERRUPTED AT WRONG LEVEL

104

CZDRLDO=DR11 GEN NPR INTF(

MACRO M1113 02-NOv-81 16:08 PAGE ?0‘

SEQUENCE

TEST #20 = A GO WITHOUT CLEARING ERROR CAUSES INTRPT

5148

.SBTTL

105

TEST #20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT

SeTEST 20

R AN IR RN

PR R AR RN AP AR AR AN ARV AN RN AR AN OO

RN OO RS

A GO WITHOUT CLEARING ERROR CAUSES INTRPT

%
;e

;t
;t

THIS TEST INSURES THAT SETTING THE GO BIT WITHOUT CLEARING THE ERROR

BIT CAUSES AN INTERRUPT.

o &RS8

~Nw

oo
NW

\OI!SVWW-DU!NNNV!NVN
NNNWNI NN VO NNNO NW%NV‘WN
NN
NNYN

NWwWWwW NNNWNWNNNWNWWWO
WNND
W
NN
NNWVINNNNNNNNNNNNNNNO

-.-.-agv._. — b
V= =

NNNNVVNViNNN
NNNON

OO0 =00 —=00M

D o
e
e
e
e
D e

~
SRR
S&8nN

O=000

—

D e

—-=000

D e

002660
163030
163022

002532
002534
162774

SCOPE
MOV

BIT
BEQ

10008
:

1001$:
999%:

163056

D e

nNOo

-0
oo

D
D e
D
D

D
D e

Vflb\l

002532
002534
163062

D e

043

430

e
e
e
e o
e
e
e
—

Sgggamugzawwwwawwwo
WY —
NOVOJ*HN-‘OO& angooogmmmmmwmmmmb
WA
VONONSWN—=O0

d o

D e

T YT VA AT AV

d o
wd
o

d e

i o

e o

T TN T AT AT DT AT

o
e

e
e
e
e

e
e o
— e

[=lelelelelelalelalelelelelelelelelelelelelelelelelelelelelelelelelelelelelelole ileleleleleleleTa)

SRR RAARAARRAAARAAANAANNRRANNAAAAAAANNAANARRANAANANAANAAARCOIAROIRORS

7S120:

#9998 SLPERR

8 ;1i.asun

TYPE
BR

20/<CRLF>

.ASCI1Z
.EVEN

PC,CLENUP
@DRINV, SDRINV
aDRVS, SDRVS
#2$ ,3DRINV

ggEVELS.ODRVS
W

1$:

163012
163006
002560

#1000, TIME
#MA+]E+GO,aCSR
#AT+F2,3CSR
TIME
1%
SDRINV ,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

+35

162764

aCSR

2%:

TST21

002560

#4,SP
SDRINV,@DRINV
SDRVS ,aDRVS
ggSR.RCSR

002560

002572
002572

RCSR,ECSR
#ER,.ECSR

162714

002532
002534
162676

162754
162750

100000

3s:

+37

aDRINV, SDRINV
aDRVS, SDRVS
#58,aDRINV
@BAR
#-1,3WCR

#1000, TImE
48:

#G0,aCSR

002532
002534
162616

TIME
113
SDRINV,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

162606

aCSR

+35

sPROCESS LOOPING AND TEST NUMBER INCREMENT
;SET_LOOP ON ERROR TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NO NOT
;88 TYPE:
;88 GET OVER ASCII
;88 THE ASCII MESSAGE
sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE U§ED AS THE INTERRUPT PS
s INTERRUPT VECTOR TO 3
s IN.ERRUPT STATUS TO LEVEL 3
sLET THE DR11 INTERRUPT
sMOVE DELAY COUNTER TO LOCATION
sSET MAINT . 1IE AND GO
sSET ATTN AND FNCT2
s DECREMENT UNTIL WE REACH ZERO
sBRANCH IF NOT ZERO YET
SRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECE IVED DATA TO RCSR
sDR11 FAILED TO_INTERRUPT
:CLEAR THE CSR TO DO AN INIT
sBRANCH TO THE NEXT TEST
sREADJUST STACK AFTER THE INTERRUPT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECE IVED DATA TO RCSR
sBRANCH IF ERROR IS SET
:MOVE EXPE CTED DATA TO ECSR
;SET THE B IT THAT SHOULD HAVE BEEN SET
;ERROR BIT SHOULD NOT BE CLEAR
sSAVE LOCA TION TO BE USED AS THE INTERRUPT VECTOR
+SAVE LOCA TION TO BE USED AS THE INTERRUPT PS
: INTERRUPT VECTOR TO 6%
sPREVENT CAUSING ANOTHER ERROR
:;SET-UP WCR

sLOAD 1000 IN LOCATION TIME FOR WAIT LOOP
;SET ‘GO’ IN_CSR

sDELAY = WAIT FOR INTERRUPT
sBRANCH BACK IF NOT ZERO
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECE IVED DATA TO RCSR
;DR11 FAILED TO INTERRUPT
sCLEAR (SR TO DO AN INIT

CZDRLDO=DR11 GEN NPR INTFC
MACRO M1113 02-NOV-81 16:08
TEST #20 = A GO WITHOJUT CLEARING ERROR CAUSES INTRPT
5188 017714
5189 017716

000423
062706

000004

5191 017730
519% 017736

013777
017737

002534
162560

102572
002560

5194 017746
5195 017754
5196 017762

013737
042737
104021

002560
100000

002572
002572

5190 017722
5193

017744

013777
100097

002532

162576

5%:

c 9
PAGE 104-1

SEQUENCE

BR
ADD

TST21
w6 ,SP

sBRANCH TO THE NEXT TEST
sCLEAN UP STACK AFTER INTERRUPT

MOV
MoV

SDRVS ,@8DRVS
aCSR,RCSR

sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR = IS ERROR CLEAR

MoV
BIC
ERROR

RCSR,ECSR
#ER,ECSR
+21

MOV

BPL

SDRINV,@DRINV
TsT2i

:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
sBRANCH TO NEXT TEST IF IT IS

sMOVE EXPECTED DATA TO ECSR
sCLEAR THE BIT THAT SHOULD HAVE BEEN (LEAR
sERROR BIT SHOULD HAVE BEEN CLEAR

106

CZDRLDO=DR11 GEN NPR INTFC
MACRO M1113 02-NOV-81 16:08
TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS
5203

.SBTTL

PAGE 105

SEQUENCE

107

TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS

tlt"'ttttt't'ttttttl't't'tttttitt'tt.tttttttt.tttttt"'ttttt"

SSTEST 21

FUNCTION BITS INC WITH MAINT MODE TRANSFERS

v
- %

:.ttQtttttttttltt'tttt'tt'tttttttttttttttttttttt"tttt.tt'tttt'tt

017764
017764
017766

000004
012737

020002
020004

001407
104401

020012

017774

032777

Ts121:

020036

004000

001310

167336

020010

000404
124

040

043

020022
5204 020022
sggg 020030
5206
020036
5207 020042
5208 020050
5209 020056
5210 020064
5211 020072
5212 020100
5213 020106

012737
012737
004737
013777
017737
017737
012777
013777
013777
005037

000016
177771
003646
002616
162452
162446
020174
002540
001360
177776

001364
001360

5215 020120

012737

001000

002660

020012

THIS TEST INSURES THAT THE FUNCTION BITS INCREMENT WITH MAINTENANCE

MODE TRANSFERS.

162450
002532
002534
162434
162430
162410

SCOPE
MOV

#9998 SLPERR

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

BEQ
TYPE

10018
1ooos

:88 BRANCH IF NOT
:88 TYPE: T # 21

BIT
10008:
1001$:
9998:
1%:

B8R

/T c 21/<CRLF>

1001s

*88 GET OVER ASCII

MOV
MOV
JSR
MOV
MOV
MOV
MOV
MOV
MOV
CLR

#16,$TMP2
.
#-7.$TMPO
PC, CLENUP
INSUF , 3BAR
aDRINV,SDRINV
aDRVS, SDRVS
#3$,aDRINV
LEVEL ,@DRVS
$STMPO. 3WCR
PSW

2SET UP FUNCTION COUNT COMPARE
*SET UP WCR LOAD VARIABLE
*SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
*SET=-UP BAR
sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS
- INTERRUPT VECTOR
*INTERRUPT VECTOR PRIORITY TO LEVEL OF DEVICE
*SET UP FOR NUMBER OF TRANSFERS IN $TMPO
*LET THE DR11 INTERRUPT

MOV

#1000, TIME

MOV

5216 020126
§217 020134
5218 020140
5219 020142
5220 020150
5221 020156
5222 020164
5223 020166
5224 020172
5225 020174
5226 020200
5227 020206
5228 020214
5229 020222
5230 020226
5231 020232
232 020236

052777
005337
001375
017737
013777
013777
104035
005077
000442
062706
013777
013777
017737
013701
042701
020137
001412

5235 020254

053737

5233 020240
5234 020246
5236 020262
5237 020264
5238 020270
5239 020276

013737
042737

104212
005237
162737
001264

162354
002532
002534

162366

28:

002560
162350
162344

162330
000004
002532
002534
162302
oo;seo
177761
001364

002560
000016

001364

001360
000002

162320
162314
002560

38:

002572
002572

001364

48:

:88 THE ASCII MESSAGE

#MA,aCSR

*MAINT MODE

BIS
DEC
BNE
MOV
MOV
MOV
ERROR
CLR
BR
ADD
MOV
MOV
MOV
MOV
BIC
CMP
BEQ

#IE+CY+GO,aCSR
TIME
2
aCSR,RCSR
SDRINV,@DRINV
SDRVS , 3DRVS
+35
aCSR
15722
#%,SP
SDRINV,@DRINV
SDRVS , @DRVS
aCSR,RCSR
RCSR.R1
#CENC R
R1,$TMP2
4

:IE, CYCLE & GO
*DECREMENT UNTIL ZERO
*BRANCH BACK IF NOT
*MOVE RECEIVED DATA TO RCSR
:RESTORE LOCATION USED AS THE INTERRUPT
*RESTORE LOCATION USED AS THE INTERRUPT
:DR11 FAILED TO INTERRUPT
*CLEAR THE CSR TO DO AN INIT
*BRANCH TO NEXT TEST
:CLEAN UP STACK AFTER INTERRUPT
:RESTORE LOCATION USED AS THE INTERRUPT
:RESTORE LOCATION USED AS THE INTERRUPT
*MOVE RECEIVED DATA TO RCSR
*MOVE RECEIVED DATA TO RT ALSO AND
*CLEAR ALL BUT THE FUNCTION BITS
*SEE IF FUNCTION BIT(S) HAD INCREMENTED
*BRANCH IF THEY HAD

BIS

srnpé ECSR

*PUT FUNCTION BIT(S) EXPECTED IN THEIR PLACE

MOV
BIC

002572

*88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

'23@51

§214 020112 012777 010000 162402
000501
002660

#BIT11,35WR

ERROR
INC
SUB
BNE

RCSR,ECSR
#FNC.ECSR
+212
$TMPO
#2.8TMP2
18

:MOVE WAIT COUNTER TO LOCATION TIME

VECTOR
PS

PROPERLY

*MOVE RECEIVED DATA TO EXPECTED LOCATION
*CLEAR THE FUNCTION BIT(S) THAT WERE THERE AND
:FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE
*ADJUST WCR LOAD LOCATION
:SUBTRACT 2 FROM FUNCTION COUNT TEST LOCATION
*BRANCH BACK FOR ANOTHER TRY

CZDRLDO-DR11 GEN NPR

NTFC
MACRO M1113
TEST #22 - TEST FOR 1
MAINT MODE TRANSFERS

5245

(02-NCv-81 16:08

SBTTL

E
PAGE 106

SEQUENCE

TEST #22 = TEST FOR 10 MAINT MODE TRANSFERS

AR AR AR AR AN AR AR

'TEST 22

AR AR

RAA AR AN

RANAARAAARA AR

AR RO

R RS

TEST FOR 10 MAINT MODE TRANSFERS

THIS TEST CHECKS IF 10 MAINTENANCE MODE TRANSFERS CAN BE DONE.

:.tttt!'Q"'t"t't'ttt"'""'ttl't.tt't..Qttt'tt..'t.'..t.t'.t"

tsr22:

020336
004000

020326

020336

5246 020336
5247 020342
5248 020350
5249 020356
5250 020362
5251 020366
5252 020372
5253
020400

000404
24
005077

040

10008 :

162160

:
10018
9998:

002622
002630

BR
.esgaz

foo01s
/T # 22/<CRLF>

(LR
MOV
MOV

aCSR
#10,BUFLEN
BUFLEN.WCLEN

ronce ACCESS TO CSR
*BUFLEN=10
:PREPARE NUMBER FOR WCR

JSR
JSR
MOV

PC,LODBUF
PC . CHKBFF
WCLEN, aWCR

*LOAD IN BUFFER WITH INCREMENTING PATTERN
*LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
:SET UP WCR

NEG

002532
002534
162002

162020

002714
003526
5279 020572
5280

003624

INBUF . 3BAR

T # 22'

:88 GET OVER ASCII
:88 THE ASCII MESSAGE

:2'S COMPLEMENT OF BUFLEN

:SET UP BAR

SMAINT AIDE

MOV

#28,aDRINV

*INTERRUPT VECTOR

MOV
CLR
MOV
BIS
MOV
DEC
BNE
MOV
MOV
MOV
CLR

28:
38:

WCLEN

‘88 TYPE:

#-1,38DR

ERROR

161772

10008

:88 TEST 10 sse xr TEST NUMBER TRACER ENABLED
§ 1 BRANCH,
IF NOT

MOV

MOV
MOV

18:

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

csxr1i.asua
1001$

MOV

002660

#9998 SLPERR

BIT
BEQ

TYPE

020326

000010
002622
002630

SCOPE
MOV

BR
ADD
MOV

MOV

JSR
ERROR
CLR
JSR

ERROR

JSR

aDRINV,SDRINV
aDRVS, SDRVS

LEVEL ,@DRVS
PSW
#MA,CSR
#IE+CY+GO,aCSR
#1000, TIME
TIME
18
SDRINV,@DRINV
SDRVS ,aDRVS
aCSR,RCSR

+35

aCSR

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS

*INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
*LET DR11 INTERRUPT
*MAINT MODE
:IE, CYCLE & GO
:SET LOOP COUNTER FOR WAIT
*DECREMENT UNTIL WE GET TO ZERO
*BRANCH BACK IF NOT ZERO
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR

:DR11 FAILED TO INTERRUPT

SCLEAR THE CSR TO DO AN INIT

3s
¥4,SP
SDRINV,@DRINV

*BRANCH AROUND THE STACK CLEANUP
*CLEAN UP STACK AFTER THE INTERRUPT
RESTORE LOCATION USED AS THE INTERRUPT VECTOR

PC,INTA
+51

:GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR
:CSR AND-OR WCR AND-OR BAR ARE INCORECT

SDRVS, aDRVS

ERRCNT
PC,DATCHK

+201

PC,DATCH2

*RESTORE LOCATION USED AS THE INTERRUPT PS

:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
:CHECK INBUF AFTER A MAINTENANCE MODE OPERATION

“BUFFER DATA NOT CORRECT

:GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK

108

CZDRLDO=DR11_GEN NPR INTFC
MACRO M1113
TEST #23 = TEST 10 MAINTENANCE MODE XFERS
5287

02-NOV-81 16:08

.SBTTL

F 9
PAGE 107

SEQUENCE

TEST #23 = TEST 10 MAINTENANCE MODE XFERS

Qtttttttttttttttttttt'Ot"tt"t't.t.t'.t"tt't".ttt'.t."'l"'

S*TEST 23
%

i
- %

000004
012737

020614

001407

020616
020622
020624

032777

ts123:
020634

004000

104401
000404

020624

124

040

5288 020634

004737

003646

5291 020654

013737

002622

020634

5289 020640
§290 020646
5292 020662

TEST 10 MAINTENANCE MODE XFERS

THIS TEST CHECKS THAT 10 MAINTENANCE MODE TRANSFERS, ATTEMPTED BEFORE

SERVICING A PENDING INTERRUPT OF A PREVIOUS TRANSFER, ARE UNSUCCESSFUL.

:. 1 3232223332222 3333222323232 2238333333333 3 3322223223322 22322222222232%3

020576
020576
020600

20606

012737
012737
005437

02
5294 020672
5295 020676

004737
004737
013777

5297 020712
5298 020720
5299 020726

012777
017737
017737

5301 020742
5302 020750
§303 020756
5304 020764
5305 020770
5306 020772
5307 021000
5308 021006

001000
000010

002630

001310

160524

043

#9998 SLPERR

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

BEQ

1001$

iy 1 BRANCH
IF NOT

BIT
1000$:
1001$:

002660
002622

SCOPE
MOV

9998:

002630

TYPE
BR

.eegaz

JSR

caxr1i.asun
10008
f001s

/T ¥ 23/<anr:

‘88 TYPE: ''T # 23
:82 GET OVER ASCII
*88 THE ASCII MESSAGE

PC, CLENUP

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

MOV
MOV

#1000, TImE
#10,BUFLEN

NEG

WCLEN

MOV

228 TEST TO SEE IF TEST NUMBER TRACER ENABLED

BUFLEN,WCLEN

:PREPARE NUMBER FOR WCR

:2'S COMPLEMENT OF BUFLEN

161612

JSR
JSR
MOV

177777
161602
161576

161604
002532
002534

MOV
MOV
MOV

#-1,38DR
@DRINV,SDRINV
aDRVS, SDRVS

*MAINT AIDE
:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS

013777
012777
052777
005337
001375
013777
013777
004737

002540
010000
000501
002660

161560
161544
161536

MOV
MOV
BIS
DEC
BNE
MOV
MOV
JSR

LEVEL ,aDRVS
#MA, 3CSR
#IE+CY+GO,aCSR
TIME
1$
SDRINV,@DRINV
SDRVS, aDRVS
PC,INTA

:INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
*MAINT MODE
:IE, CYCLE & GO
:WAIT FOR TRANSFERS TO COMPLETE
*BRANCH BACK IF WE ARE STILL WAITING
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS

5310 021014
5311 021020

005037
004737

002714
003526

CLR
JSR

snacur
PC,DATCHK

5313 021026

004737

003624

JSR

PC,DATCH2

5315 021034
5316 021040
5317 021046
5318 021054

062706
013777
013777
017737

ADD
MOV
MOV
MOV

¥6,SP
SDRINV,@DRINV
SDRVS,aDRVS
aCSR,RCSR

*CLEAN UP THE STACK FROM THIS INTERRUPT
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
*MOVE RECEIVED DATA TO RCSR

MOV

#MA_3CSR

*MAINT MODE

MOV
MOV
MOV
MOV

WCLEN.aWCR
INBUF. aBAR
aDRINV,SDRINV
aDRVS, SDRVS

020704

020734

5309

021012

5312 021024

5314 021032

013777

012777

104051
104201

000415

002616

021034

002532
002534
003356

161606

161564

ERROR

5321 021066 012777 010000

161426

5322 021074

5323 021102
5324 021110
5325 021116
5326 021124

012737

013777
013777
017737
017737

001000

002630
002616
161404
161400

18:

ERROR

161460
161454
002560

1040
00052

MOV

161526
161522

002532
002534
161442

5319 021062
5320 021064

MOV

002660
161406
161402
002532
002534

28:

3$:

B8R

ERROR
BR

MOV

PC,LODBUF
PC . CHKBF F
WCLEN, 3WCR

*SET DELAY
*BUFLEN=10

003302
003330
002630

5296

109

INBUF . 3BAR

#28 , aDRINV

*LOAD IN BUFFER WITH INCREMENTING PATTERN
:LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
*SET UP WCR

*INTERRUPT VECTOR

:60 CLEAR IE, CHECK ERROR, READY, ucn-o AND BAR

:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
:CHECK INBUF AFTER A MAINTENANCE MODE OPERATION

|
a

:G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK

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

+201

*BUFFER DATA NOT CORRECT

+36
1ST24

#1000, TImE

:SET UP BAR

+51

;

*BRANCH TO CONTINUE

:DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE
:BRANCH TO NEXT TEST

*SET TIME LOOP COUNTER
*MOVE
*MOVE
-SAVE
:SAVE

WCLEN TO WCR
INSUF TO BAR
LOCATION TO BE USED AS THE INTERRUPT VECTOR
LOCATION TO BE USED AS THE INTERRUPT PS

z
|

|
|
,

.
|

SEQUENCE

[elelelelelelelela)

Nt
2 OOWNI——=
N =N NWWN =i
NN
r
~
o
~

404

WNIN = W= Vo

-'OOOOOSOO-‘O
- b e ON) N_ag_n

e
D o
e
e
i
e
o
i
o
e
e
e
e
o
e
e
i
e
e
e
e
e
d
i
— e

WWWWWWNI
NN NN NN NI NI NI NI NININ) = b b e b b b b
NN
= =
VIS
S NNN) =
ONN
NN
SN

NONNLNLNLNLALNI
NN NN NN RN NN NN NN NN NN

[elelelelelelelelelelelelelelelelelelelelelelelelelelel=]

WWWWW

vivwnnawn

AT T

T T T AT

VTA

T AN

NN W NN NN
PIRIIIIIINY WWNN
WWWW
S NNN=O VNV
WN=O0V0N SHRU N = O000~N

CZDRLDO=DR11_GEN
TEST #23 - TEST 1

04041

#8$ ,3DRINV
#MA ,aCSR

4$:

TIME

SDRINV,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

g}O?bo.acsa

010700
010700
161270
177770

002566
161256

002616

002566

161240
177770
002616

002570

5%:

6$:

161220

7%:

000004

8%:

161172

#IE+CY+GO,aCSR

#10700,ECSR
+40
aBAR,RBAR
#=10,3WCR

6$
INBUF ,RBAR
’$
aWCR,RWCR
INBUF ,EBAR
+41
aCSR
TST24

#4 ,SP
SDRINV,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

+42

sSET UP INTERRUPT VECTOR
sMAINT MODE
s1E, CYCLE & GO
sDECREMENT TO ZERO WHILE WAITING
sBRANCH BACK IF NOT ZERO
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR
sSEE IF ONLY READY, MAINT, IE & CYCLE ARE SET
sBRANCH IF THEY ARE
sMOVE EXPECTED DATA TO ECSR
:CSR_IS WRONG
sMOVE RECEIVED DATA TO RBAR
sCHECK THAT NO TRANSFERS WERE MADE
sBRANCH TO ERROR IF THERE WERE

sCHECK THAT NO TRANSFERS WERE MADE
¢BRANCH AROUND ERROR IF NONE
sMOVE RECEIVED DATA TO RWCR
sMOVE EXPECTED DATA TO EWCR
sMOVE EXPECTED DATA TO EBAR
s 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
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR
sDR11 SHOULD NOT HAVE INTERRUPTED A 2ND TIME

110

CZDRLDO=DR11_GEN NPR_INTF(
MACRO M1113 02-NOV-81
TEST #24 - TEST FOR 200 NPR TRANSFERS IN MAINT MODE

5360

.SBTTL

16:08

PAGE 108

SEQUENCE

TEST #24 = TEST FOR 200 NPR TRANSFERS IN MAINT MODE

:"tttttt'tt'tt't.ltttttt'tttt..ttt..tt'ttt'tt.ttt'ttt.t'."t'tttt

S*TEST 24
;t

TEST FOR 200 NPR TRANSFERS IN MAINT MODE

THIS TEST CHECKS FOR 200 NPR TRANSFERS IN MAINTENANCE MODE.

- %

021334
021334
021336

000004
012737

021352
021354
021360
021362

001407
104401
000404
124

021344

021372

032777

021372

004000
040

004737
005077
012737
013737
005437
004737
004737
013777
013777
012777
017737
017737
012777
013777
005037
012777

003646
161120
000200
002622
002630
003302
003330
002630
002616
177777
161046
161042
021572
002540
177776
010000

5378 021524
5379 021532
5380 021536
5381 021540
5382 021546
5383 021554
5384 021562
5385 021564
5386 021570
5387 021572
5388 021576
5389 021604
5390 021612

052777
005337
001375
017737
013777
013777
104043
005077
000402
062706
013777
013777
004737

000501
002660

0000
002532
002534
003356

5392 021620
5393 0216264

005037
004737

002714
003526

5395 021632

004737

003624

5391 021616
5394 021630

012737

104051
104201

MOV

157766

021362

5361 021372
5362 021376
5363 021402
5364 021410
5365 021416
5366 021422
5367 021426
5308 021432
5369 021440
5370 021446
5371 021454
5372 021462
5373 021470
5374 021476
5375 0215064
5376 021510

5377 021516

001310

E;ttttttttQttttttt.ttttt't"tttttttt..t.t'ttttt'ttt't""'ttt.ttl
75124
SCOPE
;PROCESS LOOPING AND TEST NUMBER INCREMENT

001000
160756
002532

002534

043

10008:
10018
:

999%:

002622
002630

161056
161052
161050
002532
002534
161030
161024
161004

002660
160770

:SET LOOP ON ERROR TO 999%

1001$
,10008
1001$
/T # 24/<CRLF>

;88 BRANCH_
IF NOT,
*88 TYPE: "'T # 24
*88 GET OVER ASCII
:88 THE ASCII MESSAGE

JSR
CLR
MOV
MOV
NEG
JSR
JSR
MOV
MOV
MOV
MOV
MOV
MOV
MoV
CLR
MOV

PC,CLENUP
aCSR
#200,BUFLEN
BUFLEN,WCLEN
WCLEN
PC,LODBUF
PC,CHKBFF
WCLEN.aWCR
INBUF , 3BAR
#-1,38DR
aDRINV,SDRINV
aDRVS,SDRVS
#28,aDRINV
LEVEL ,aDRVS
PSW
#MA,aCSR

;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
*FORCE ACCESS TO CSR
*LENGTH OF BUFFER = 200
:PREPARE NUMBER FOR WCR
:2'S COMPLEMENT OF BUFLEN
JLOAD INBUF WITH INCREMENTING PATTERN
JLOAD CHKBUF WITH MODIFIED INCREMENTED PATTERN
SSET UP WCR
*SET UP BAR
*MAINT AIDE
:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
*INT VECTOR
;INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
*LET THE DR11 INTERRUPT
*MAINT MODE

BIS
DEC
BNE
MOV
MOV
MOV
ERROR
CLR
BR
ADD
MOV
MOV
JSR

#IE+CY+GO,aCSR
TIME
13
aCSR,RCSR
SDRINV,@DRINV
SDRVS ,@DRVS
+43
aCSR
3s
¥4,SP
SDRINV,@DRINV
SDRVS , @DRVS
PC, INTA

:1E, CYCLE & GO
*DECREMENT UNTIL WE GET TO ZERO
*BRANCH BACK IF NOT ZERO
*MOVE RECEIVED DATA TO RCSR
:RESTCRE LOCA(ION USED AS THE INTERRUPT
*RESTORE LOCATION USED AS THE INTERRUPT
*EXPECTED INTERRUPT DID NOT OCCUR
“CLEAR THE CSR TO DO AN INIT
*BRANCH AROUND THE STACK CLEANUP
*CLEAN UP THE STACK AFTER INTERRUPT
:RESTORE LOCATION USED AS THE INTERRUPT
*RESTORE LOCATION USED AS THE INTERRUPT
:G0 CLEAR IE, CHECK ERROR, READY, WCR=0

CLR
JSR

ERRCNT
PC,DATCHK

JSR

PC,DATCH2

#8IT11,3SWR

BEQ
TYPE
BR
.eegfiz

MOV

18:

002560
160752
160746

160732
160722
160716

#9998 SLPERR

BIT

28:
3$:

ERROR
ERROR

#1000, TIME

‘88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

*SET WAIT LOOP COUNTER

+51

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

+201

*BUFFER DATA NOT CORRECT

VECTOR
PS

VECTOR
PS
AND BAR

:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
*CHECK INBUF''AFTER A MAINTENANCE MODE OPERATION

:G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOv-81 16:08
TEST #25 = DOING DATO TO DIODE MEMORY CAUSES NEX
5402

.SBTTL

I
PAGE 109

SEQUENCE

112

TEST #25 = DOING DATO TO DIODE MEMORY CAUSES NEX

:;tttttttt't..tttttQtttttttt'tttt.tttQtQtttt'tt'tttttttt.ttttt."

S*TEST 25

o
. &

021636
021636
021640

000004
012737

021654

001407

021646

021674

032777

004000

104401

021664

124

040

021674
5403 021674
5404 021700
5405 021704
5406 021712
5407 021720
54,08 021726
5409 021734
5410 021742
5411 021750
5412 021754
5413 021762
5414 021770
5415 021776

004737
005077
012777
013777
017737
017737
012777
013777
005037
012777
052777
052777
012737

003646
160616
177776
002614
160602
160576
022044
002540
177776
010000
000062
000501
001000

021656

021662 000404

5416 0220064
5417 022010
5418 022012
5419 022020
5420 022026
5421 022034
5622 022036
5423
022042
5424 022044
54625 022050
5426 022056
7 022
5428 022072

54629 022076
5430
022102

5431 022106
5432 022110
5433 022116
022124

005337
001375
013777
013777
017737
104035
005077
000431
062706
013777
013777
017737

013701

042701
022701

001407
013737
052737
104040

002660

002532
002534
160470

001310

157464

(BIT 14) TO SET.

;:tttttttttttt.tttttl'"t""tttlQtttttttttttt.tttt..t.t.tt..tt.tt
Ts125:
SCOPE
:PROCESS LOOPING AND TEST NUMBER INCREMENT
MOV
#9998 . SLPERR
:SET LOOP ON ERROR TO 999%

BIT

BEQ

10008:
1001$:
9998:

160604
160600
002532
002534
160564
160560
160540
160532
160524
002660

18:

160506
160502
002560

160460
000004
002532
002534

THIS TEST INSURES THAT DOING A DATO TO DIODE MEMORY CAUSES THE NEX BIT

TYPE

043

160450
160444

160432
002560

002560

002560
140200

002572
002572

037577
140200

DOING DATO TO DIODE MEMORY CAUSES NEX

28:

B8R

#BIT11,3SWR
10018

10008

fo01s

'232#2

/T # 25/<CRLF>

JSR
CLR
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
BIS
BIS
MOV

PC,CLENUP
aCSR
#=2,aWCR
DIOMEM, @BAR
aDRINV,SDRINV
aDRVS, SDRVS
#2$,3DRINV
LEVEL ,@DRVS
PSW
#MA,aCSR
#F14X6+X7,8CSR
#IE+CY+GO.aCSR
#1000, TIME

*88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
:88 BRANCH
IF NOT

‘88 TYPE:

''T # 25"

*88 GET OVER ASCII

:88 THE ASCII MESSAGE
:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
*FORCE ACCESS TO CSR
*SET UP WCR
*SET UP BAR
:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS
*INTERRUPT VECTOR TO 3%
*INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
*LET THE DR11 INTERRUPT
*MAINT MODE
:SET FNCT1, XBA16, AND XBA17
:SET IE, CYCLE, AND GO
*SET DELAY COUNTER

DEC
BNE
MOV
MOV
MOV
ERROR
CLR
BR
ADD
MOV
MOV
MOV
MOV

TIME
18
SDRINV,@DRINV
SDRVS, aDRVS
aCSR,RCSR
+35
aCSR
1ST26
#4,SP
SDRINV,aDRINV
SDRVS ,aDRVS

*DECREMENT UNTIL ZERO
:BRANCH BACK IF NOT
-RESTORE LOCATION USED AS THE
:RESTORE LOCATION USED AS THE
*MOVE RECEIVED DATA TO RCSR
*DR11 FAILED TO INTERRUPT
*CLEAR THE CSR TO DO AN INIT
*BRANCH TO THE NEXT TEST
*RESTORE THE STACK
-RESTORE LOCATION USED AS THE
*RESTORE LOCATION USED AS THE

RCSR R1

*MOVE DATA TO R1 FOR CHECKING

BEQ
MOV
BIS
ERROR

TST26
RCSR,ECSR
#ER+NX+RY ECSR
+40

BIC
CMP

aCSR,RCSR

#375%7 .R1
SER*NX+RY,R1

*MOVE CSR DATA TO RCSR

INTERRUPT VECTOR
INTERRUPT PS

*CLEAR ALL BUT ERROR, NEX AND READY BITS
:SEE IF ALL THESE BITS ARE SET

*BRANCH TO THE NEXT TEST IF THEY ARE ALL SET
*MOVE EXPECTED DATA TO ECSR
:SET THE BIT THAT SHOULD HAVE BEEN SET
*CSR IS WRONG

MACRO M1113 02-NOV-81 16:08
NTFC
TEST #26 = CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR
CZDRLDO-DR11 GEN NPR

.SBTTL

5641

J 9
PAGE 110

SEQUENCE

113

TEST #26 - CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR

JoRAANARRARARARAAAAAAAAAARAAAAAANAAAARAARAARAAAAACRAPRAORAARANNRST

CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR
THIS TEST INSURES THAT CROSSING THE 32K BOUNDARY DOES NOT CAUSE A BAOF

OR FORCE ERROR.

104401

000404
124

022164
004000

#9998 , SLPERR

#BIT11,35WR

022154
040

043

1000$:
1001$:

160320

999%:

~
~

N
Pour G

b P

SRVR2222R 2NWW—'U\NN
o
W

002660
160246
160240

160212

140200

160116

1%:

002572
002572

#-20,aWCR

#565,3CSR
TIME
1%

SDRINV ,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

002560

PC, CLENUP

PSW
#MA_ 3CSR

160230
160224

160176
160172

002560
149200

5470 022376
5471 022400

O—=00
(= e

002532
002534

10018
10008
1001 $
/T # 26/<CRLF>

#-2,3BAR
aDRINV, SDRINV
aDRVS
, SDRVS
#2%,aDRINV
LEVEL ,@DRVS
#100T0,
IME

022164
5442 022164
5443 022170
5444 022176

000004
012737
032777
001407

e Gt

022126
022126
022130
022136
022144
022146
022152
022154

+35

2$:

TST27

#6,SP

SDRINV,aDRINV
SDRVS ,aDRVS
acsa.agsa
#ER+RY+NX
R1
TST2
RCSR,ECSR

#ER+RY+NX ECSR

+40
a(SR

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
;88 TYPE: ''T # 26"
;88 GET OVER ASCII
;88 THE ASCII MESSAGE
;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
sSET UP WCR
:SET UP BAR FOR PROC STATUS ADDRESS
sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
sSAVE LOCATION TO BE USED AS THE INTERRUPT PS
: INTERRUPT VECTOR TO 3%
s INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE
sSET WAIT LOOP COUNTER
sLET THE DR11 INTERRUPT
sMAINT MODE
sCYCLE, IE, FNCT1, XBA17, XBA16, AND GO TO CSR
sDECREMENT UNTIL WE GET TO ZERO
sBRANCH BACK IF NOT ZERO
SRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE CSR CONTENTS TO RCSR
sDR11 FAILED TO INTERRUPT
sBRANCH TO NEXT TEST
sCLEAN UP STACK AFTER INTERRUPT
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR
sRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE CSR_CONTENTS TO RCSR
sMOVE CONTENTS TO R1 FOR TESTING
sCLEAR ALL BUT THE ERROR AND READY BITS
sSEE IF ERROR, READY AND NEX ARE SET
sBRANCH TO NEXT TEST IF THEY ARE
sMOVE EXPECTED DATA TO ECSR
sSET THE BITS THAT SHOULD HAVE BEEN SET
sCSR IS _WRONG
sCLEAR THE CSR TO DO AN INIT

CZDRLDO=DR11 GEN NPR INTF(
MACRO M1113 02-NOV-81 16:08
TEST #27 = CHECK ACTUAL POSITION OF 2-N BURST SWITCH

5478

.SBTTL

AL AA

PAGE 111

SEWUENCE

TEST #27 = CHECK ACTUAL POSITION OF 2-N BURST SWITCH

tTEST 27

114

sss]

CHECK ACTUAL POSITION OF 2=N BURST SWITCH

THIS TEST INSURES THAT THE 2-N BURST SWITCH IS IN THE POSITION THAT
THE DEVICE DESCRIPTOR WORD SAYS IT SHOULD BE.
SRR AR AR AR AR AR

AR AR

TZ7

022452
004000

#9998 . $LPERR

0exr1i.asun

022432

022432
022442
5479 022442
5480 022450
5481 022452
5482 022456
5483 022464
5484 022472
5485 022476
5486 022502
5487 022504
5488 022506
5489 022512
5490 022516
5491 022522
5492 022524
5493 022526
5494 022530
5495 022534
5496 022536
5497 022540
5498 022546

505 022604

040

043

000001

002610

003646
100000

160036

:
10008

1001$:
999%:

002562

10018
10008
100118
/T # 27/<CRLF>

#81T70,B0RW
INOOUT
PC,CLENUP
#EIR,aCSR

aCSR,REIR

002562

AR AR

sPROCESS LOOPING AND TEST NUMBER INCREMENT

:SET_LOOP ON ERROR TO 999%

8% TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT

;88 TYPE: *'T # 27"

;88 GET OVER ASCII

188 THE ASCII MESSAGE
sTESTING A 'B'° OR A 'W'"7?
sBRANCH TO INOOUT IF DR11-8
sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
;G0 TO EIR MODE
sMOVE EIR DATA TO REIR
;G0 BACK TO CSR
:MOVE DATA TO R1 ALSO

;GET BIT 8 INTO BIT 0 BY SWAPPING BYTES

177775

#CBIT1,R1

002720
177775

DDW,R2

#CBIT1,R2
1$

2%
#BIT1,R2
R1.R2
58"

000002

001322

002562
000400

002574
002574

ggxrb EEIR

000400

002574

#BIT8 EEIR

000400

002574

3s:

040400

156534

5%:

REIR,EEIR

4%
#BIT8,EEIR
+54

1
:MOVE BIT 0 INTO BIT
1
BIT
BUT
:CLEAR ALL
:PUT DEVICE DESCRIPTOR WORD IN R2
:CLEAR ALL BUT BIT 1
:BRANCH IF IT IS CLEAR
:CLEAR THE BIT
GO TEST THE BIT
:SET THE BIT
:SEE IF RECEIVED MATCHES EXPECTED
:BRANCH TO CHECK FOR LOOP ON TEST

:MOVE EXPECTED DATA TO EEIR
:TEST STATE OF BIT 8
:BRANCH IF IT IS CLEAR
:REVERSE STATE - EXPECTED CLEAR

160 CALL ERROR
sREVERSE STATE - EXPECTED SET
:2-N CYCLE BURST SWITCH IN WRONG POSITION
885;1408178,@SWR;SEE IF WE SHOULD LOOP ON THIS TEST
sBRANCH BACK IF SO

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}?

3
:

5512 022606

032737

000004

5514 022616

000137

025622

5513 022614

001002

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

#B1T72,DDW

;SEE IF CABLE IS IN

ENDEV

:JUMP TO ENDEV = TESTS ARE NOT TO BE DONE

TST30

sBRANCH TO NEXT TEST IF CABLE IS IN

115

—_—

—_——

—

| CZDRLDC=DR11 GEN NPR INTF(
MACRO M1113 02-NOv-81 16:08
. TEST #30 = CHECK (SR BIT PATTERNS WITH MAINT BIT CLEAR
5522

LSBTTL

n9
PAGE 113

SEQUENCE

116

TEST #30 = CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR

;:Qt'ttt"tttt.tt'ttt"'t"t'.."tttt'.t.tt.'.'tt'.ttt't.'Qt."tt

SeTEST 30

CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR

te
e
e

THIS TEST SETS ALL POSSIBLE COMBINATIONS OF SET BITS IN THE CSR WITH
THE MAINTENANCE BIT CLEAR, AND COMPARES THE RECEIVED CSR CONTENTS WITH
THAT OF THE EXPECTED PATTERNS IN 'MAICLR®.

]

022622
022622
022626

000004
012737

022640
022642

001407
104401

022650

022632

|
|

022646

022660
§523 022660
5524 022664
§525 022670
§526 022674
§527 022700
§528 022702
5529 022706
§530 022714

§531 022720
§532 022726
5533 022734
§534 022736
5535 022744
5536 022746
§537 022754
5538 022762
5539 022766
§540 022774
5541 023000
§542 023006
§543 023010
5544 023016
5545 023020
5546 023022
§547 0230264
5548 023030
5549 023032
§550 023040
5551 023042

032777
000404
124

004737
005037
012700
012701
005002
012703
052777
005077

017737
022737
001404
012737
104032
012777
012777
010277
017737
011137
023737
001427
012737
040227
000401
001016
005737
001404
032737
001407
052737

5552 023050 023737

§553 023056
§554 023060

001403
010237

§556 023066
§557 023072
5558 023074
§559 23076
5560 023100

062701
00520
00530
001303
062702

5555 023064

104202

022706

004000

00310

156500

E:QQ."Qtt....tt..Q..'t"'..'.t'tl'.tl.tt""t't.ttt.t't.'.t..'.t
15130:
SCOPE
;PROCESS LOOPING AND TEST NUMBER INCREMENT
MOV
#9998 SLPERR
:SET LOOP ON ERROR TO $99%

BIT

BEQ
TYPE

022650
040

043

10018:

003646
002714
000002
007220
000200
010000
157602

157576

10008:

157606

18:
999%:

002560

'?3%&2

JSR
CLR
MOV
MOV
CLR
MOV
BIS
CLR

4$:

002536

000002

68 :

002560

000200

002572

177777
056106
157534
157530
002572
002572

157542
157536

000401

2%:

002560
002560

023020
3s:

002712
000060
140000

002572

000200

002572
'
002572

002560

“88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

foo1s

;88 GET OVER ASCII

1001$
10008

/T # 30/<CRLF>

;88 BRANCH
IF NOT.
‘88 TYPE: ''T # 30"

:88 THE ASCII MESSAGE

MOV
(MP
BEQ
MOV
ERROR
MOV
MOV
MOV
MOV
MOV
CMP
BEQ
MOV
BIC
.WORD
BNE
ST
BEQ
BIT
BEQ
8IS

000200

#BIT11,35WR

PC,CLENUP
ERRCNT
#2.R0
#MAICLR,R?
R2
#200,R3
#MA, (SR
aCSR

TO 7

ss
#ER+NX ECSR

:MOVE RECEIVED DATA TO RCSR
:MAKE SURE READY BIT IS THE ONLY BIT SET
*BRANCH IF SO
*MOVE EXPECTED DATA TO ECSR
*READY IS NOT THE ONLY BIT SET
: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
:MOVE RECEIVED DATA TO RCSR
:MOVE EXPECTED DATA TO ECSR
:COMPARE EXPECTED WITH RECEIVED
*BRANCH IF OK
*REESTABLISH BIT PATTERN
<SEE IF BOTH CYCLE AND GO WERE SET
*LOCATION TO HOLD BOTH CYCLE AND GO BITS
*BRANCH TO ERROR ONLY IF EITHER OR BOTH BITS WERE CLEAR
:SEE IF MEMORY MANAGEMENT IS OUT THERE
*BRANCH IF NOT
:SEE IF EITHER XBA16 OR XBA17 ARE SET
:BRANCH TO ERROR IF BOTH ARE CLEAR
:SET THE ERROR AND NEX BITS = EXPECT THEM TQ SET

BEQ
MOV

6$
R2,BUT

:BRANCH AROUND ERROR IF IT DOES
sMOVE THE BITS SET INTO CSR TO THE BUT LOCATION

ADD
INC
DEC
BNE
ADD

#2.R1
R
R
9998
#200,R2

S INCREMENT R1 TO NEXT EXPECTED PATTERN
S INCREMENT THE PATTZRN
:DECREMENT THE LOOP COUNTER
*BRANCH BACK IF NOT DONE
SADD 200 TO PATTERN LOCATION

CMP

ERROR

@CSR,RCSR

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI
:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202
D0 2 SETS OF 200 PATTERNS
:MOVE ADDRESS OF EXPECTED PATTERNS TO R1
*START WITH PATTERN ZERO
:MOVE 200 TO THE LOOP COUNTER
“SET MAINTENANCE AND
:CLEAR TO DO AN INIT

#RY ,RCSR

28
#RY,ECSR
+32
#=1,3WCR
#NOCARE ,@BAR
R2.aCSR
aCSR,RCSR
(R1) _ECSR
ECSR,RCSR
6$
#CY+GO,3$
R2.(PC)+
(CY+GO
5$

MEMGMT
X3
#X6+X7 ECSR

ECSR,RCSR

ogbz

*NOW SEE IF DATA MATCHES

:CSR PATTERN NOT CORRECT

CZORLDO=DR1 1 GEN NPR IN TF C

TEST #30

C HE (k

5561 0 23 06
5562 0 23 1 06

MACRO M1113

02-NOv-81 16:08

(SR Bl T L TTERNS WITH MAINT BIT

005300
001275

(LEAR

DEC
SNE

RO
8

N 9
PAGE 113-1

SEQUENCE

;DECREMENT THE LOOP COUNTER AND

;BRANCH BACK [F 2ND OCTAL GROUP NOT DONE

117

onLog-oa11 GEN NPR INTFC
MACRO M1113
ST #31 = CHECK BAR WITH CSR CLEAR

5568

02-NOV-81 16:08

.SBTTL

8. 10

SEQUENCE

PAGE 114

118

TEST #31 = CHECK BAR WITH CSR CLEAR

:;'Q".'Q'.l.'...'t.."""'."t'..Q.Q.'.."QQ...'"Q't.t'....'.'

SeTEST 31

CHECK BAR WITH CSR CLEAR

- %

THIS TEST CHECKS THAT BAR BIT 0 IS CLEAR WITH CSR CLEAR (CSR=0).

- %

023110
023110
023112

000004
012737

023126
023130

001407
104401

023136

023146

001310

023120 032777 004000 156212

023134

000404
124

040

023146
5569 023146
5570 023152
5571 023160
5572 023166
5573 023174
5574 023176
5575 023202
5576 023204

004737
012777
012777
017737
001403
005037
10404
017737

003646
001360
000007
157330

5578 023220
5579 023222

001407
013737

023136

§577 023212

5580 023230
5581

023236

032737

042737
104044

043

157340
157334
002560

E:.ttttQt'tt..Q'QQ.QQ"""Q"QQ.Q""..Q.t....'t'...""'.t"'.t
15131
SCOPE
:PROCESS LOOPING AND TEST NUMBER INCREMENT
MOV
#9998 SLPERR
:SET LOOP ON ERROR TO 999%

BIT

BEQ
TYPE

10008
:
10018
:
9998:

002572
157310

000001

002566

000001

002566

002600

18$:

B8R

#8IT11,35uR

:88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

10018

188 GET OVER ASCII

1001$
10008

:88 BRANCH
IF NOT
‘88 TYPE: T # 31

'23%#2

/T # 31/<CRLF>

JSR
MOV
MOV
MOV
BEQ
CLR
ERROR
MOV

PC,CLENUP
#$TMP0 , 3BAR
#G0,aCSR
aCSR,RCSR
1$
ECSR
+40
aBAR ,RBAR

:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
: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
MOV

TST32
RBAR, EBAR

;BRANCH TO NEXT TEST IF IT WAS
*MOVE EXPECTED DATA TO EBAR

+44

*BAR IS WRONG

BIT
BIC

ERROR

#8170,RBAR
#BIT0,EBAR

:88 THE ASCII MESSAGE

:SEE IF THIS BIT IS CLEAR

*CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR

CZDRLDO=DR11 _GEN_NPR INTF(C
MACRO M1113 02-NOV-81 16:08
TEST #32 = TEST 7 SINGLE DATI NON BURST MODE TRANSFERS

5588

LSBTTL

€.10

PAGE 115

SEQUENCE

119

TEST #32 = TEST 7 SINGLE DATI NON BURST MODE TRANSFERS

;:tQQttttttttQtQt.ttt"ttt'Qtttt.tttQQ'tttQQQQ.'Q'Q'.."QQ'Q"'.'

S*TEST 32
- &

o
. %

023240

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.

::ttttttQttttttQttttt"t"'tttQ.t.tt'tQQQ'QQQttttt.t'.t't't't...'

T§132:

023240
023242

000004
012737

023256
023260

001407
104401

023266

023312

023250 032777 004000

001310

156062

SCOPE
MOV

#9998 SLPERR

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

1001$
10008

;88 BRANCH IF NOT
‘88 TYPE: "'T # 32

'?3?51

/T # 32/<CRLF>

:88 THE ASCII MESSAGE

MOV
CLR
MOV
MOV
MOV
MOV
MOV
CLR
MOV
CLR
MOV
MOV
CLR
MOV
MOV
BIS
CLR
INC
BNE
MOV
MOV
MOV
MOV
ERROR
CLR
BR
ADD
MOV
MOV
JSR

#7.R2
ERRCNT
#PATRNS ,R3
aDRINV,SDRINV
aDRVS , SDRVS
#3$,3DRINV
LEVEL ,aDRVS
PSW
#MA . 3CSR
aCSR
#-1,3WCR
#NPR1,3BAR
aBDR
(R3) ,NPR1
#F3+1E,aCSR
#CY+G0.aCSR
TIME
TIME
2s
SDRINV,aDRINV
SDRVS ,aDRVS
aCSR,RCSR
(R3) ,ENPR1
+35
aCSR
13
#6,SP
SDRINV,@DRINV
SDRVS ,aDRVS
PC,ERRCHK

BIT

BEQ
TYPE

023264

000404
124

040

023276
5589 023276
5590 023302
5591 023
5592 023312
5593 023320
5594 023326
5595 023334
5596 023342
5597 023346
5598 023354
5599 023360
5600 023
5601 023374
5602 023400
£603 023404
023412
5605 023420
5606 023424
5607 023430
5608 023432
5609 023440
5610 023446
5611 0234564
5612 023460
5613 023462
5614 023466
5615 023470
5616 023474
5617 023502
5618 023510

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
013777
004737

000007
002714
007202
157210
157204
023470
002540
177776
010000
157142
177777
002612
157124
002612
000110
000401
002660
002660

000004
002532
002534
004064

157024
157020

5620 023516

017737

156776

002566

MOV

@BAR , RBAR

5622 023532
5623 023540
5624 023544
5625 023552
5626 023556
5627 023564

017737
011337
017737
005037
023737
001010

156766
002576
156746
002602
002566

002564

MOV
MOV
MOV
CLR
CMP
BNE

aBDR,RBDR
(R3) .EBDR
aWCR,RWCR
EWCR
RBAR, EBAR
48

023266

5619 023514

5621 023524

104021

012737

002532
002534
157050
002604

043

10008:

1001$:
18:
002532
002534
157172
157166

999%:

157146
157130

157124

157110
157102

2s:
157066
157062
002560

157034

002615

002600
002570

002600

38:

B8R

#8I1T11,35uWR

ERROR

MOV

f001s

:88 TEST TO SEE IF TEST NUMBER TRACER ENABLED

*88 GET OVER ASCII

:SET UP LOOP COUNTER = DO 7 BIT PATTERNS
:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201
*MOVE ADDRESS OF PATTERNS TO R3
JSAVE 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
DO 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 UNTIL WE GET TO ZERO AGAIN
:BRANCH BACK IF WE AREN'T THERE YET
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR
*MOVE PATTERN TO ENPR1
:DR11 FAILED TO INTERRUPT
*CLEAR THE CSR TO DO AN INIT
;BRANCH TO SEE IF THERE ARE ANY MORE PATTERNS TO CHECK
*CLEAN STACK AFTER INTERRUPT
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:CLEAR IE,
CHECK FOR ERROR

+21

*ERROR BIT SHOULD HAVE BEEN CLEAR

#NPRI+3,EBAR

*MOVE

*MOVE RECEIVED DATA TO RBAR
EXPECTED DATA TO EBAR

:MOVE RECEIVED DATA TO RBDR
:MOVE EXPECTED DATA TO EBDR
:MOVE RECEIVED DATA TO RWCR
:MOVE EXPECTED DATA TO EWCR
:COMPARE RECEIVED WITH EXPECTED
:BRANCH IF WRONG

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
631 023604
5632 023606
5633 023610
5634 023614
5635 023616

023737
0010%4
023737
001401
104211
062703
005302
001235

002564

002576

002570

002602

000002

4$:
5%:

CMP
BNE
CMP
BEQ
ERROR
ADD
DEC
BNE

0.10
PAGE 115-1

RBDR,EBDR
48
RWCR,EWCR
5%
+211
#2.R3
R2
999%

SEQUENCE
s COMPARE RECEIVED WITH EXPECTED
:BRANCH IF WRONG
s COMPARE RECEIVED WITH EXPECTED
:BRANCH IF 0K
:CSR_AND-OR WCR AND-OR BAR ARE INCORRECT
s INCREMENT TO NEXT PATTERN
sDECREMENT THE LOOP COUNTER
;BRANCH BACK IF NOT ZERO YET

120

CZDRLDO=DR11_GEN NPR INTFC

MACRO M1113

02-NOV-81 16:08

TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS

5641

SBTTL

E 10
PAGE 116

SEQUENCE

121

TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS

JRRRARAAAAAAAAAAAAAAAIEARAAAAAAAAAARAAAAANAAACARAARAAAAAACRORRNE

SiTEST 33

TEST STRING OF 200 DATIS BURST MODE XFERS

i
* %

023620
023620
023622

000004
012737

THIS TEST DOES 200 DATI TRANSFERS IN BURST MODE.

:.Qtttttttttttttttttttt'tt"tt.ttt.tt'tttttttt't't'.'tttttttttt't
75133:
o
023656

023630 032777 004000
023636 001407
023640 104401 023646
023644 000404
023646
1
040

001310

155502

043

SCOPE
MOV

#9998 . SLPERR

;PROCESS LOOTM"¥G AND TEST NUMBER INCREMENT
:SET LOOP 0° .RROR TO 999%

JSR

PC,CLENUP

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

JSR

PC LODBUF

:LOAD THE BUFFER WITH INCREMENTING PATTERN

BIT
BEQ
TYPE
B8R
10008: ‘?35#2

023656
5642 023656

004737

003646

5644 023670

004737

003302

5646 023702

013777

002630

156606

MOV

5648 023716

.12777

177777

156600
002532
002534
156560
156554

MOV

5643 023662

5645 023674

012737 000200

012737

177600 002630

5647 023710 013777 002616
5649 023724
5650 023732
5651 023740
5652 023746
5653 0237564
5654 023760
5655 023766
5656 023774
5657 024002
5658 024006
5659 024010
5660 024016
5661 024024

5662 024C32

5663 024034
5664 024042
5665 024046
5666 024050
5667 024054
024 5

5669 024070

156602

017737
017737
012777
013777
005037
012777
052777
012737
005337
001375
013777
013777
017737

156576
156572
024050
002540
177776
000100
000401
001000
002660
002532
002534
156472

156510
156504
002560

012777
005077
000426
062706
013777
013777

010000
156454

156460

104035

004737

5670 024074 104051
5671 024076

017737

5674 024114
5675 024122

012737
104045

5672 024104
5673 024112

002622

022737
001404

10018
:
9998:

000004
002532
002534

003356

156534
156526
002660

156444
156440

18:

MOV
MOV

INBUF , 3BAR

*SET UP BAR

aDRINV,SDRINV
aDRVS, SDRVS
#28 ,3DRINV
LEVEL ,aDRVS
PSW
#1E,aCSR
#CY+GO,aCSR
#1000, T IME
TIME
13
SDRINV,@DRINV
SDRVS , @DRVS
aCSR,RCSR

2SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS
*INT VECTOR
*INTERRUPT STATUS TO LEVEL OF DEVICE
*LET THE DR11 INTERRUPT
:SET INTERRUPT ENABLE
*CYCLE, GO
*WAIT FOR INTERRUPT
*DECREMENT UNTIL us REACH ZERO
*BRANCH BACK IF NOT ZERO
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS
*MOVE RECEIVED DATA TO RCSR

MoV
MOV
MOV
MOV
CLR
MOV
BIS
MOV
DEC
BNE
MOV
MOV
MOV

WCLEN.@WCR
#-1,38DR

+35

MOV
CLR
BR
ADD
MOV
MOV

#MA,3CSR
aCSR
TST34
#4,SP
SDRINV,@DRINV
SDRVS, aDRVS

ERROR

+51

JSR

002564

MOV

000177

002576

MOV
ERROR

002564

*LENGTH OF BUFFER=200

#-200,WCLEN

156422

000177

#200,BUFLEN

‘88 TEST TC SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH IF NOT
*88 TYPE: ''T # 33"
:88 GET OVER ASCII
*88 THE ASCII MESSAGE

MOV

ERROR

28:

calrli.asua
10018
10008
10018
/T # 33/<anr>

CMP
BEQ

PC, INTA

aBDR, RBDR

#177. RBDR
TST34
l177.EBDR
+45

:PREPARE NUMBER FOR WCR
:SET UP WCR

SMAINT AIDE

:DR11 FAILED TO INTERRUPT

*SET THE MAINTENANCE BIT AND
“CLEAR THE CSR TO DO AN INIT
*BRANCH TO NEXT TEST
*CLEAN UP STACK AFTER INTERRUPT
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS

*GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR

mnmwmumnmmamamsmw%u
*MOVE RECEIVED DATA TO RBDR

*CHECK THAT WORD #200 OF INBUF IS IN BDR
*BRANCH TO NEXT TEST IF IT IS
*MOVE EXPECTED DATA TO EBDR
*BAD DATA IN BDR

CZDRLDO-DR11_GEN_NPR INTFC
MACRO M1113 02-NOV-81 16:08
TEST #34 = TEST 7 SINGLE DATO NON BURST MODE TRANSFERS
5682

.SBTTL

F 10
PAGE 117

SEQUENCE

122

TEST #34 - TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

ttQt.tttttttt'Qtt.ttt"'t"'ttt.tttt.'tt.tt."tt"t't'ttt...'tt

S*TEST 34

TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

. %

THIS TEST DOES 7 PATTERNS OF SINGLE DATO NON BURST MODE TRANSFERS, AND
THAT THEY ARE DONE PROPERLY.

. %

024124
024124
024126

024134
024142
024146
024150
024152

:-i
000004
012737

75734
024176

032777
001407
104401
000404
124

024152

5683 024162
5684 024166
5685 024172
5686 024176
5687 024204
5688 024212
5689 024220
5690 024226
5691 024232
5692 024240
5693 024244

012702
005037
012703
017737
017737
012777
013777
005037
012777
005077
012777

000007
002714
007202
1563264
156320
024364
002540
177776
010000
156256
177777

5695 024260
5696 024264

005037
011377

002612
156234

024162

5694 024252

012777

5697 024270

012777

5700 024312

005337

5698 024276
5699 024304

052777
012737

5701 024316
5702 024320
5703 024326
5704 024334

001375
013777
013777
017737

024346
5707 024350

104035
012777

5705 024342

5708 024356

5709 024362
5710 024364
5711 024370
5712 024376
5713
024404

5714 024410
5715 024412

5716 024420
5717 024422

5718 024426

5719 024430

5720 024436
5721

011337
005077

000445
oogros
013777
013777
004737

104021
017737

004000
040

002612

000112

000401
001000

002660
002532
002534
156162

001360
010000

156140

:88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
{1 BRANCH_
IF NOT
‘88 TYPE: 'T # 34
*88 GET OVER ASCII
:88 THE ASCII MESSAGE

MOV
CLR
MOV
MOV
MOV
MOV
MOV
CLR
MOV
CLR
MOV

#7.R2
ERRCNT
#PATRNS ,R3
@DRINV,SDRINV
aDRVS, SDRVS
#3$,aDRINV
LEVEL. aDRVS
PSW
#MA,3CSR
aCSR
#-1,aWCR

:D0 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 38
: INTERRUPT STATUS TO LEVEL OF DEVICE
:LET DR11 INTERRUPT
DO AN INIT
*FORCE ACCESS TO CSR
*SET UP FOR 1 TRANSFER

CLR
MOV

NPR1
(R3) ,aBDR

*GET READY TO RECEIVE DATA
:SET UP TO TRANSFER DATA

BIS
MOV

#CY+GO,aCSR
#1000, T IME

:CYCLE, GO
*CLEAR THE TIME LOCATION FOR WAIT LOOP

156200
156174
002560

BNE
MOV
MOV
MOV

28
SDRINV,@DRINV
SDRVS, @DRVS
aCSR,RCSR

156144

ERROR
MOV

+35
#MA,3CSR

BR
ADD
MOV
MOV
JSR

6%
#4,SP
SDRINV.@DRINV
SDRVS, aDRVS
PC, ERRCHK

BRANCH TO DO NEXT PATTERN
*CLEAN UP STACK FROM INTERRUPT
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:CLEAR IE, CHECK FOR ERROR

BEQ
MOV

4
(R3),$TMP1

*BRANCH IF IT IS EQUAL TO ZERO
*MOVE PATTERN TO $TMPO

043

002615

1000$:
10018
:

18:

002532
002534
156306
156302

999%:

156262
156244

BIT
BEQ
TYPE
BR
.eegaz

156240

MOV

156224

MOV

156216
002660

002570

156064

022737

091111 ,@SWR
10018
10008
foo1s
/T # 34/<CRLF>

155176

156100

017737

1042

#9998 SLPERR

156130
156124

001362

232 3333323333333 33223323322233222222222221

SCOPE
MOV

001310

000004
002532
002534
004064

001403
011337

3232222032322

002566

28:

DEC

MOV
CLR

38:

ERROR
MOV
4$:

ERROR

MOV

CMP

#NPR1,3BAR

#F1+F3+1E,aCSR

pnocsss LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 999

:TRANSFER TO BUS ADDRESS IN NPR1

:DATO (FNCT1), FNCT3, IE

TIME

:DECREMENT UNTIL WE GET BACK TO ZERO

(R3).$TMPO

*MOVE PATTERN TO $TMPO

aCSR

+21
aWCR,RWCR
+206°

aBAR,RBAR

#NPRT+3,RBAR

:BRANCH BACK IF NOT ZERO
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR

:DR11 FAILED TO INTERRUPT
“SET THE MAINTENANCE BIT AND

:CLEAR THE CSR TO DO AN INIT

:ERROR BIf SHOULD HAVE BEEN CLEAR
:MOVE RECEIVED DATA TO RWCR
*WCR NOT EQUAL TO ZERO

*MOVE RECEIVED ADDRESS TO RBAR

:COMPARE CORRECT BAR WITH BAR CABLE MODE TESTING LEAVES
:BIT 0 OF BAR SET. THEREFORE MUST CHECK FOR ODD ADDRESS

CZDRLDO-DR11_GEN_NPR INTFC

02-NOV-81 16:08

= TEST 7 SINGLE DATO NON BURST MODE TRANSFERS

0014
012737
011337
104207
021337
001403
011337
104210
062703
005302
—

N
W
&~

5722 024444
5723 024446
5724 024456
5725 024460
5726 024462
5727 024466
5728 024470
5729 024474
5730 024476
5731 024502
5732 024504

o
<

TEST #34

MACRO M1113

002615
001362
002612

002600
58:

002604
000002

6$:

BEQ
Mov
MoV
ERROR
CMP
BEQ
MoV
ERROR
ADD
DEC
BNE

6 .10

PAGE 117-1

5%
#NPR1+3 ,EBAR
(R3), $THP1
+207
(R3) ,NPR1
63
(R3) ,ENPR1
+210
#2,R3
R2
999%

SEQUENCE
sBRANCH IF IT IS OK
:MOVE EXPECTED DATA TO EBAR
:MOVE PATTERN TO $TMPO
:BAR IS WRONG
sCHECK FOR CORRECT DATA
:BRANCH IF CORRECT DATA WAS TRANSFERRED
:MOVE EXPECTED DATA TO ENPR1
sDATA NOT TRANSFERED CORRECTLY
:POINT TO NEXT BIT PATTERN
sCOUNT 1 PATTERN DONE
sBRANCH BACK IF NOT DONE

123

MACRO M1113 02-NOV-81 16:08
CZDRLDO=-DR11 GEN NPR INTFC
TEST #35 = TEST STRING OR 200 DATOS BURST MODE XFERS
5738

.SBTTL

H 10
PAGE 118

SEQUENCE

TEST #35 - TEST STRING OR 200 DATOS BURST MODE XFERS

tQt...ttt't'ttt'ttt't"'tti.'.t.ttQQ.Q.".'.'.....'.'.Q'."t.'.

S*TEST 35

TEST STRING OR 200 DATOS BURST MODE XFERS

. %

- %

024506
024506
024510

:3A3 32333333333323323233300233233232333 3333333333333 233333323332323323323333.

000004
012737

T8r3s:
024544

024516 032777 004000
024524 001407
024526 104401 024534
024532 000404
024534
124
040

001310

154614

043

024544
5739 024544
5740 024550
5741 024556
5742 024562
5743 024570
5744 024576
5745 024602

005077
012737
004737
013737
005437
013777
013777

155752
000200
003302
002622
002630
002630
002616

5747 024616
5748 024624
5749 024632
5750 024640
5751 024646
5752 024652
5753 024660
5754 024666
5755 024674
5756 024700
5757 024702
5758 024710
5759 024716
5760 024724
5761 024726
5762 024734
5763 024740
5764 024742
5765 024746
5766 02475
5767 024762

017737
017737
012777
013777
005037
012777
052777
012737
005337
001375
013777
013777
017737
104035
012777
005077
000421
062706
013777
013777
004737

155704
155700
024742
002540
177776
000102
000401
001000
002660

002532
002534
155666
155662

002532
002534
155600

155616
155612
002560

010000
155562

155566

5746 024610

5768 024766

5769 024770
5770 024774
5771 024776

5772 025002

THIS TEST CHECKS 200 DATO TRANSFERS IN BURST MODE.

012777

104051

004737
104046
004737

104047

052525

000004
002532
002534
003356
003716

004000

002622

10008:
1001$:
9998:

002630
155714
155710

155706

155642
155634
002660

155552
155546

SCOPE
MOV

#5998 SLPERR

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

CLR
MOV
JSR
MOV
NEG
MOV
MOV

aCSR
#200,BUFLEN
PC,LODBUF
BUFLEN,WCLEN
WCLEN
WCLEN.@WCR
INBUF . aBAR

;FORCE ACCESS TO CSR
*LENGTH OF BUFFER=200
:LOAD THE BUFFER WITH INCREMENTING PATTERN
:PREPARE NUMBER FOR WCR
:2'S COMPLEMENT OF BUFLEN
:SET UP WCR
:SET UP BAR

MOV
MOV
MOV
MOV
(LR
MOV
BIS
MOv
DEC
BNE
MOV
MOV
MOV
ERROR
MOV
CLR
BR
ADD
MOV
MOV
JSR

@DRINV,SDRINV
@DRVS,SDRVS
#2$,3DRINV
LEVEL,aDRVS
PSW
#IE+F1,3CSR
#CY+GO.aCSR
#1000, IME
TIME
18
SDRINV,@DRINV
SDRVS,@DRVS
@CSR,RCSR
+35
#MA,aCSR
aCSR
TST36
#4,SP
SDRINV,@DRINV
SDRVS,aDRVS
PC,INTA

:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS
: INTERRUPT VECTOR
: INTERRUPT STATUS TO LEVEL OF DEVICE
*LET THE DR11 INTERRUPT
(IE, FNCTI
:CYCLE, GO
:MOVE WAIT LOOP VALUE TO TIME LOCATION
:DECREMENT UNTIL WE REACH ZERO
:BRANCH BACK IF NOT ZERO
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR
:DR11 FAILED TO INTERRUPT
*SET THE MAINTENANCE BIT AND
:CLEAR THE CSR TO DO AN INIT
:BRANCH TO NEXT TEST
*CLEAN STACK AFTER INTERRUPT
:RESTORE LOCATION USED AS THE INTERRUPT VECTOR
:RESTORE LOCATION USED AS THE INTERRUPT PS
:GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR

- JSR_
ERROR
JSR

PC,DATOCK
+4b
PC,DATOC2

:CHECK INBUF
:BUFFER DATA NOT CORRECT
:GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK

BIT
BEQ
TYPE
BR
.ASCIZ

MOV

18:

28:

ERROR
ERROR

oaxr1i.asun
10018
10008
001s
/T # 35/<CRLF>

#52525,3BDR

+51

+47

88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;88 BRANCH
IF NOT
‘8% TYPE: ''T # 35"
8% GET OVER ASCII
188 THE ASCII MESSAGE

:SET UP BDR

:CSR AND=-OR WCR AND-OR BAR ARE INCORECT
:TOO MANY WORDS WERE TRANSFERED

124

CZDRLDO-DR11_GEN NPR INTFC
MACRO M1113 02-NOV-81 16:08
TEST #36 = TEST STRING OF 200 DATIS NON-BURST MODE

.SBTTL

5778

110
PAGE 119

SEQUENCE

TEST #36 - TEST STRING OF 200 DATIS NON-BURST MODE

S*TEST 36

R RN AR

AR AR

RNR R

AR R AR

RAR AR

125

RR RS

TEST STRING OF 200 DATIS NON-BURST MODE

THIS TEST DOES 200 DATI TRANSFERS IN NON BURST MODE.

000004
012737
032777
001407
104401

025032
025042
5779 025042
5780 025046

000404
124

004737

040

10008:

/T # 36/<CRLF>

sPROCESS LOOPING AND TEST NUMBER INCREMENT
sSET _LOOP ON ERROR TO 999%
;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
;8% BRANCH IF NOT
;88 TYPE: ''T # 36"
;8% GET OVER ASCII
;88 THE ASCII MESSAGE

003646

1001$:
999%:

PC,CLENUP

sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7

PC,LODBUF

;LENGTH OF BUFFER=200
JLOAD THE BUFFER WITH INCREMENTING PATTERN

025042
004000

025032

002622

OO0O00O0

1001$
10008

#BIT11,3sWR
10018

aCSR
#200,BUFLEN

WCLEN,aWCR

NN N

OO O
O

BEQ
TYPE

BUFLEN,WCLEN
WCLEN

155412

99%9S

#999$ , SLPERR

BIT

002630

SCOPE
MOV

aDRVS, SDRVS
#2$ ,aDRINV
LEVEL .aDRVS
PSW

#F3+]1E,aCSR

#CY+GO,aCSR

002660

18:

002532
002534
155276

WWWWNN

OO000O0
NN

SWNN=O

b e e ek

VIV

TIME

1%
SDRINV,aDRINV
SDRVS ,aDRVS
aCSR,RCSR

+35

010000
155260

Go 0o 0o 0o Co

#1000, TIME

#MA,aCSR

aCSR

2%:

0004
002532
002534
003356

TST37

#4,5P
SDRINV,aDRINV
SDRVS ,aDRVS
PC,INTA

+51

155226

000177

002564
002564

aB8DR,RBDR
#177 .RBDR

000177

002576

#177 ,EBDR
+45

TST37

JFORCE ACCESS TO CSR

sPREPARE NUMBER FOR WCR

:2'S COMPLEMENT OF BUFLEN
:SET=UP WCR
;SET-UP BAR
;MAINT AIDE
JSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
;SAVE LOCATION TO BE USED AS THE INTERRUPT PS
JINT VECTOR
s INTERRUPT STATUS TO LEVEL OF DEVICE
;LET THE DR11 INTERRUPT

:FNCT3, IE

sCYCLE, GO
sSET WAIT LOOP COUNTER
sDECREMENT UNTIL WE REACH ZERO
JBRANCH BACK IF NOT ZERO
JRESTORE LOCATION USED AS THE INTERRUPT VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
sMOVE RECEIVED DATA TO RCSR
sDR11 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 VECTOR
JRESTORE LOCATION USED AS THE INTERRUPT PS
;GO CLEAR ]E, CHECK ERROR, READY, WCR=0 AND BAR
sCSR AND-OR WCR AND-OR BAR ARE INCORECT
JMOVE RECEIVED DATA TO RBDR
sCHECK THAT WORD #200 OF INBUF IS IN BDR
;BRANCH TO NEXT TEST IF OK
:MOVE EXPECTED DATA TO EBDR
;BAD DATA IN BDR

CZDRLDO=DR11_GEN NPR INTFC
MACRO M1113 02-NOV-81 16:08
TEST #37 - TEST STRING OF 200 DATOS NON-BURST MODE
5820

.SBTTL

J_10
PAGE 120

SEQUENCE

126

TEST #37 - TEST STRING OF 200 DATOS NON-BURST MODE

ttttttttttttttttttt'ttttttttt't.tttt.ttt"tttttttttttt'tt.tttt'

SRTEST 37

TEST STRING OF 200 DATOS NON-BURST MODE

. %

- %

:’tttttttt.ttttttttltttt"'ltt"t'tttQttttt'..tt.tltttt't.'tttt't
15137:

025320
025320
025322

000004
012737

025340
025344

104401
000404

025346

124

040

025356
5821 025356
5822 025362
5823 025366
5824 025374
5825 025400

004737
005077
012737
004737
013737

003646
155134
000200
003302
002622

002622

5827 025412
5828 025420

013777
013777

5830 025434
5831 025442

017737
017737

5833 025456
5834 025464
5835 025470
5836 025476
5837 025504
5838 025512
5839 025516
5840 025520
5841 025526
5842 025534
5843 025542
5844 025544
5845 025552
5846 025556
5847 025560
5848 025564
5849 025572
5850 025600

025330 032777
025336 001407

025346

5826 025406

025356

004000

5851 025604

5852 025606
5853 025612
5854 025614

5855 025620

001310

154002

#9998 SLPERR

:PROCESS LOOPING AND TEST NUMBER INCREMENT
:SET LOOP ON ERROR TO 9998

TYPE
BR

10008
1001$

‘88 TYPE: "'T # 37"
:88 GET OVER ASCII

BIT
BEQ

*88 TEST TO SEE IF TEST NUMBER TRACER ENABLED
:88 BRANCH_IF NOT.

002630

JSR
CLR
MOV
JSR
MOV

PC,CLENUP
aCSR
#200,BUFLEN
PC,LODBUF
BUFLEN,WCLEN

;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7
FORCE ACCESS TO CSR
*LENGTH OF BUFFER=200
*LOAD THE BUFFER WITH INCREMEN?ING PATTERN
:PREPARE NUMBER FOR WCR

002630
002616

155076
155072

MOV
MOV

WCLEN, aWCR
INBUF _ aBAR

*SET UP WCR
*SET UP BAR

155066
155062

002532
002534

013777
005037
012777
052777
012737
005337
001375
013777
013777
017737
104035
012777
005077
000421
062706
013777
013777
004737

002540
177776
000112
000401
001000
002660

155044

004737
104046
004737

003716

002630

012777

104051

104047

025560

10018
:
999%:

MOV

MOV
MOV

155050

155024
155016
002660
155000
154774
002560

010000
154744

154750

004000

NEG

155070

002532
002534
154762

000004
002532
002534
003356

1000%:

#BIT11,35WR
10018

/T # 37/<CRLF>

005437

043

SCOPE
MOV

eeg'lwl

5829 025426 012777 052525
5832 025450

THIS TEST DOES 200 DATOS IN NON BURST MODE.

154734
154730

28:

#52525,3BDR

:2'S COMPLEMENT OF BUFLEN

:SET
UP BDR

aDRINV,SDRINV
aDRVS, SDRVS

sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR
*SAVE LOCATION TO BE USED AS THE INTERRUPT PS

MOV
CLR
MOV
BIS
MOV
DEC
BNE
MOV
MOV
MOV
ERROR
MOV
CLR
BR
ADD
MOV
MOV
JSR

LEVEL ,aDRVS
PSW
NF1+F3+1E,9CSR
#CY+GO,aCSR
#1000, TIME
TIME
1%
SDRINV,3@DRINV
SDRVS , aDRVS
aCSR,RCSR
+35
#MA, aCSR
aCSR
TST40
¥4 ,SP
SDRINV,@DRINV
SDRVS, aDRVS
PC,INTA

sINTERRUPT STATUS TO LEVEL OF DEVICE
*LET THE DR11 INTERRUPT
:FNCT1, FNCT3, IE
*CYCLE. 6O
“SET WAIT LOOP COUNTER
*DECREMENT UNTIL WE GET TO ZERO
*BRANCH BACK IF NOT ZERO
-RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS
:MOVE RECEIVED DATA TO RCSR
*DR11 FAILED TO INTERRUPT
*SET THE MAINTENANCE BIT AND
*CLEAR THE CSR TO DO AN INIT
*BRANCH TO NEXT TEST
*CLEAN UP STACK AFTER INTERRUPT
RESTORE LOCATION USED AS THE INTERRUPT VECTOR
*RESTORE LOCATION USED AS THE INTERRUPT PS
:G0 CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR

JSR
ERROR
JSR

pc DATOCK
+46
PC,DATOC2

*CHECK INBUF
*BUFFER DATA NOT CORRECT
:G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK

MOV

18:

WCLEN

;88 THE ASCII MESSAGE

ERROR

#28,3DRINV

+51

+47

*INTERRUPT VECTOR

*CSR AND-OR WCR AND-OR BAR ARE INCORECT
:TO0 MANY WORDS WERE TRANSFERED

CZDRLDO-DR11 GEN NPR INTFC
END OF DEVICE PASS ROUTINE

5859
585
5858 025622
5859 0256%4

MACRO M1113

(02-NOv-81 16:08

.SBTTL

SEQUENCE

END OF DEVICE PASS ROUTINE

S RAAARRARARRARRAAAAARAERRARRRAAAAAAARAAARRAAAAAAAARARRCAAAROARRL

ENDEV:
2
000001

PREOP

STSTNM
#1,QTYBRD

002414

001312

SERTTL
2$

026012
000077

PC.DOWEPR

5%
3s
#77 .PREOP
58

026010

PREOP

3s
L S$CRLF

2%:
3s:

001405
037424
001422

036350
001312
003126
001405
001420
002414

001422
012370
002706

0014290

DOWEPR:

032555

000004
032555

:2SAVE SUNIT FOR TYPEOUT
::G0 TYPE-=DECIMAL ASCII WITH SIGN
*

TESTING COMPLETE, PASS #'

:DPMO01

SERTTL
48

;SEE IF ANY ERRORS THIS DEVICE
sBRANCH AROUND TOTAL ERRORS MESSAGE IF NONE

.SCRLF

s TYPE NUMBER IN EXTENDED DECIMAL
sTYPE:

:DPMO01
:DPMOO1
:DPMO01

' = 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
sALL DEVICES TESTED?
:GO TO END OF PASS ROUTINE IF SO
s INCREMENT THE UNIT NUMBER
sGO TEST NEXT DEVICE
:DEVICE PASS COUNTER

:DPM001

#2,(SP)

:SEE IF EOP MESSAGES ARE TO PRINT
*BRANCH IF SO
:SEE IF A CHARACTER IS WAITING
*BRANCH IF
zsrunn T0 2no RETURN LOCATION

:DPM001
:DPMI01
*DPMO01
*DPMO01
:gPHOO}

#4,(SP)

*FUDGE RETURN TO TEST FOR EOP PRINT

*DPMO01

:RETURN TO USER

:DPM0O01

QTYBRD,$DEVCT

$EOP
SUNIT
5STDEV
EOPLOC
18
CHARCT

000002

:DPMO01
:DPMO01

+MOVE MAJOR PASS COUNTER TO STACK
sMOVE PASS NUMBER TO STACK

$DEVCT

;CLEAR THE DEVICE PASS COUNTER
BRANC

$PASS, = (SP)

PC,ERCAPT

PREOP:

:DPMO01

HERE IF ENABLED - DO WE PRINT THIS EOP?:DPMOO1
:BRANCH IF SO
:DPMO01

sTYPE:

ETDEV

5%:

:HERE IF SO

TSTCOM

iERrrL -(SP)

($:

: INCREMENT DEVICE PASS COUNTER
:DPMO01
:CLEAR TEST NO. COUNT FOR SCOPE ROUTINE
;1S THERE MORE THAN 1 BOARD UNDER TEST?
:BRANCH IF NO
;SEE IF THERE WERE ANY ERRORS
sBRANCH AROUND EOP TEST IF SO
;GO SEE _IF WE SHOULD PRINT THE EOP
DPH001
sHERE IF NOT
:DPMOO1

A <CRLF>
sTYPE
:TYPE:
'BOARD #

$PASS2,~(SP)

001312

;FOR POSSIBLE LOOP ON TEST

BOARD

$UNIT,-(SP)

040341
002716
001416

NN
—
AAN

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
5891 026010
5892
5893 026012
5894 026016
5895 026020
5896 026024
5897 026026
5898 026032
5899 026034
5900 026040
5901 026044

K_1
PAGE 121

CHARCT

*CLEAR CHARCT

*DPMO01

127

[

CZDRLDO=DR11 GEN NPR INTF(
END OF PASS ROUTINE

MACRO M1113

5902

02-NOv-81 16:08

.SBTTL
SRR

L.10

PAGE 122

SEQUENCE

END OF PASS ROUTINE
AR AR AR AN AR A AR

TR AR AR AN AN AR AR

AR RN

RAA AR RRA AR

'INCREHENT THE PASS NUMBER (SPASS)
:*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY'
;*WHERE XXXXX AND YYYYY ARE DECIHAL NUMBERS

;*IF THERES A HONITOR GO TO IT
;*IF THERE ISN'T JUMP TO GOAGIN

026046
026046
026050
026054
026060
026062
026066
026072
026074
026076
026100
026102
026104
026106
026112
026114
026120
026122
026126
026132

000004
005037
005237
100004
005037
005237
005327
000001
003116
012737
000001
026074
005737
001012
004737
000475
000406
032737
001070

005037

026010

02614C
026144
026146

104401
000407
012

026146

026164
026170
026174
026176
026202
026204
026212
852558

013746
013746
104414
005737
001442
022737
001002
004737

002716
001416

026220
026224
026226

104401
000424
040

026226

026276
026276

013746

001312

026302
026304
026310
026314

104405
005037
104401
013700

001312
001405
000042

8%2}2‘6

026164

026320

001405

$EOP:

001302
001416
001416
002716

001312
026012
000077

015

026010

105

SCOPE
CLR
INC
BPL
CLR
INC
18:
DEC
$EOPCT: .WORD
BGT
MoV
SENDCT: .WORD
.WORD
TST
BNE
JSR
BR
BR
BIT
BNE

040

126

;SEE IF ANY ERRORS THIS PASS
:DPM001
sBRANCH IF SO TO PRINT EOP
:DPMO01
;GO SEE _IF EOP IS TO PRINT
:DPMO01
JHERE IF NOT
:DP'K)OI
:HERE IF SO
DPMO01
HERE IF ENABLED - DO WE PRINT THIS EOP?:DPMOQ1
:BRANCH IF SO
:DPMO01

658:

TYPE
BR
e\SlE'I‘Z

,653
;:TYPE ASCIZ STRING
643
::GET OVER THE ASCIZ
<12><15>/END PASS #/
$PASS2,~(SP)
$PASS ,=(SP)

MOV
MOV
TYPDE
TST
BEQ
CMP
BNE
JSR

SERTTL
SGET
#1,QTYBRD
38
PC.ERCAPT

67%:

TYPE
BR
e‘S’E'I‘Z

.67%
..TVPE ASCIZ STRING
66$
;GET OVER THE ASCI2
/"
TOTAL ERRORS THIS PASS ALL MODULE(S) /

MOV

SERTTL,~(SP)

002414

003126

s:YES
s sRESTORE COUNTER

(LR

648:

66%:

TYPDS
(LR
$GET:
TYPE
$GET42: MOV

BEQ

PREOP

::ZERO THE TEST NUMBER
;- INCREMENT THE PASS NUMBER
sBRANCH IF STILL POSITIVE
sCLEAR SPASS AND
s INCREMENT OVERFLCW LOCATION
::LOOP?

001312
000001

$TSTNM
$PASS
1$
$PASS
$PASS?2
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1
SEOPCT
SERTTL
2%
PC,DOWEPR
$GET42
2%
#77 ,PREOP
$GET42

SERTTL
.SCRLF
a#62 RO

$DOAGN

sCLEAR THE DEVICE PASS COUNTER

:DPMO01

sMOVE UPPER PASS COUNT TO STACK
:DPM0O01
sMOVE PASS COUNT TO STACK
:DPMO01
;GO TYPE PASS COUNT IN EXTENDED DECIMAL ;DPMOO1
sSEE IF ANY ERRORS THIS PASS
:DPMO01
;BRANCH IF NOT
:DPMO01
sARE WE TESTING 1 BOARD?
:DPMO01
:BRANCH IF NOT - LOGGING IS DONE
:DPM0O01
;G0 LOG THE UNIT
#, PASS # & # OF ERRORS THIS DEVICE

;:SAVE SERTTL FOR TYPEOUT
s TOTAL NUMBER OF ERRORS
::G0 TYPE--DECIMAL ASCII WITH SIGN
::CLEAR ERROR TOTAL
s:TYPE CARRIAGE RETURN, LINE FEED
::GET MONITOR ADDRESS

s BRANCH [F NO MONITOR

128

P—————

CZDRLDO-DR11 GEN NPR INTF(

MACRO M1113

END OF PASS ROUTINE

026322

$ENDAD :

000240

000137
026344
377
5903 026344
5904 026350
5905 026356
5906 026360
5907 026364
5908 026370

(02-NOv-81

005037

005037
000137

$DOAGN:

377

000

001420
000001

002414

012556
001422
012356

RESET
JSR
NOP
NOP

M 10
PAGE 1221

PC,(RO)

NOP

JMP

SRTNAD: .WORD
SENULL: .BYTE
.EVEN
GOAGIN: CLR
CMP

RSTRT:

16:08

BNE
JMP
(LR
JMP

SEQUENCE

;:CLEAR THE WORLD
2:G0 TO MONITOR
s sSAVE ROOM
vc’m

JACTN
a(P()+
GOAGIN

:;RETURN

=1,-1,0

JsNULL CHARACTER STRING

$DEVCT

sCLEAR DEVICE COUNT

#1,QTYBRD

RSTRT
REINIT
SUNIT
BEGIN

s1S THERE ONLY ONE DEVICE UNDER TEST?
;BR, IF NOT
.GO DO ANOTHER PASS
JCLEAR UNIT NUMBER
;GO BEGIN TEST OF NEXT DEVICE

129

CZDRLDO=DR11 GEN NPR INTF(
TYPE ROUTINE

MACRO M1113

(02-NOv-81

.SBTTL

5909

16:08

N_10
PAGE 123

SEQUENCE

TYPE ROUTINE

JARRARARRANRRANRAANRAACRCRARRANARAANARAAATANARARAAAAANAAOORARARES

'ROUYINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL

:'NOTE1:

INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
S$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

J«NOTE?2:

s*NOTES:
i

s *CALL

t1)

QOR

USING A TRAP INSTRUCTION
TYPE
.MESADR

;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TYPE
ME SADR

026374

105737

001357

S$STPFLG

001430

000100

001431

60%

JsYES,SKIP TYPE OUT
,.PUSH CHARAC!ER TO BE

000002

60$:
3s:

(SP)+ RO
#2,(SP)

000011

A ¥

#HT ,(SP)

;;BRANCH IF <HT>

#CRLF, (SP)

:sBRANCH IF NOT <CRLF>

(SP)+

<CR><LF> EQUIV
::POP
ssTYFE A CR AND LF

S$CHARCNT

;s CLEAR CHARACTER COUNT
2:GET NEXT CHARACTER
..GO TYPE THIS CHARACTER

OO0
N

‘“NUPV&S

ONNOO

2iNO,GO CHECK FOR CONSOLE
1 :SETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO APT
s JMESSAGE ADDRESS
2 sAPT (CONSOLE SUPPRESSED

(RO)+,=(SP)
43

000001

62%

2%:

026606
001356

NWNN

..GET ADDRESS OF ASCIZ STRING

#APTCSUP,SENVM

(SP)+

026736
OO0O—=0O
=ON
=W

..HALT HERE IF NO TERMINAL

@82(SP) ,RO

SC.SATYB

61%:
62%:

000200

O=O0O0—=
OOO000
oWV

LEAVE
SAVE RO

RO,61$

033634

026560

lg:!fflV.iENV
..RUNNING IN APT MODE
sNO,GO CHECK FOR APT CONSOLE
6
#APTSPOOL
, SENVM ::SPOOL MESSAGE TO APT

026444

000040

;:BR IF YES

RO,=(SP)

000002
000061

;1S THERE A TERMINAL?

5%:
6%:

PC,STYPEC

3;ILLC.(SP)0

001354

026606
026736

SNULL ,~(SP)
7%:

TYPED ONTO STACK

:BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK
s JRESTORE RO
2 :ADJUST RETURN PC
JRETURN
:

IS IT TIME FOR FILLER CHARS.?
:1F NO GO GET NEXT CHAR.
GET # OF FILLER CHARS. NEEDED

1(SP)

:AND THE NULL CHAR,
sDOES A NULL NEED TO BE TYPED?

C.STYPEC
CHARCNT
7$

;

..8 IF NO--GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
::DO NOT COUNT AS A COUNT
:LOOP

130

i(lDRLDO-DR11 GEN NPR INTF(
; TYPE
ROUTINE

MACRO M1113

8.1
PAGE 123-1

(02-NOv-81 16:08

SEQUENCE

000040
026606
000007

8s:

026736

\lg

015

SaSaS

7
737

122766
001402
105227
000000
000207

000002
152516

152530

152512
000200

032555
032555
032555

000023
152464

152460

000206
000021

032555
032555
032555

000015

000002

026736
000012

9s:

MOVB

000002

(SP)

s sREPLACE TAB WITH SPACE

JSR
BITB

PC $TYPEC
#7.$CHARCNT

s:TYPE A SPACE

(SP)+

..POP SPACE OFF STACK
s:GET NEXT CHARACTER
ssWAIT UNTIL PRINTER IS READY

BNE

BR
STYPEC: TSTB

152536

HOON

026562

b
D D b D wd
ot
-t
8-&°—.°-n_o—.-n-o
o3
SgSnent=
V=N
RE233-3388858
N
NN

;HORIZONTAL TAB PROCESSOR

BPL
MOVB

TSTB

BPL
MOVB
BICB
CMPB
BNE
38:
TSTB
BPL
MOVB
BICB
CMPB
BNE
2s:
CMPB
BNE
CLRB
BR
1$:
CMPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RTS

2s
@$TPS
$TYPEC
2<sp) asTPB

a$TKS

2
a$TKB,CHARCT
#200,CHARCT
#23,CHARCT
2
a$TKS
3s
a$TKB,CHARCT
#200,CHARCT
#21,CHARCT
{3
#CR,2(SP)
18
SCHARCNT
STYPEX
#LF,2(SP)
STYPEX
(PC)+
0
PC

..BRANCH IF NOT AT
:TAB STOP

::LOAD CHAR TO BE TYPED INTO DATA REG.

..sss IF KEYBOARD IS TALKING.
“BRANCH IF IT ISN'T.

tz 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.

t& PUT CHARACTER IN CHARCT
*88 BIT CLEAR PARITY BIT.
*88 SEE IF THIS IS A “a.

: ;BRANCH BACK ron MORE WAIT IF NOT.
2118 CHARACTER CARRIAGE RETURN?
::BRANCH
IF NO

..YE§--CLEAR CHARACTER COUNT
EX
::1S CHARACTER A LINE FEED?
: ;BRANCH IF YES
;s COUNT THE CHARACTER
:; CHARACTER COUNT STORAGE

CZDRLDO-DR11 GEN NPR INTFC
MACRO M1113
BINARY TO OCTAL (ASCII) AND TYPE
5911

02-NOV-81 16:08

cn
PAGE 124

SEQUENCE

.SBTTL

BINARY TO OCTAL (ASCII) AND TYPE

SRR

AR AR AR AR AR AR

AR ARRRA PN

AARAR RIS

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT.

:'gxlEOS°°°ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

MOV

NUM,=(SP)

s sNUMBER TO BE TYPED

.BYTE

ssN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

§e

TYPOS

BYTE

;sCALL FOR TYPEOUT

::M=1 0R 0

::1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

. %

s *$TYPON=-==<ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
:'%IlLPOS OR $TYPOC
e
%

- %

MOV
TYPCN

NUM,~-(SP)

::NUMBER TO BE TYPED
;3CALL FOR TYPEOUT

;'%H{’OC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

H
%

026742
026746
026754
026760
026764
026766
026774
027002
027010
027012
027014
027016
027022
027024
027030
027034
027040
027044

027046
027050
027052
027054
027056
027060
027062
027064
227070
027072
027076
27100
027102
0271

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704
016605
005003

000000
000001
027167
000002
000001
000006
000005

027167
000006
027166
027165
000012

006105
000404
006105
006105

006105
010503
006103
105337
100016
042703
001002
005704
001403
005204

027165

027165
027167
027164

TYPOC

$TY20S: MOV
MOVB
MovB
ADD
BR
S$TYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR

1$%:

2$:

027166

MOV

3s:

177770

ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC

NUM,-(SP)

;sNUMBER TO BE TYPED

a(SP) ,-(SP)
1(SP) ,SOFILL
(SP)+,$OMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,S$0MODE +1
#5,80CNT
R3.-(SP)
R4.-(SP)
RS,=(SP)
$OMODE +1,R4
R4
#6.R4
R4, SOMODE
SOFILL.RG
12(SP) ,RS
R3

::PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
;.;NUMBER OF DIGITS TO TYPE
:sADJUST RETURN ADDRESS

RS
3s
RS
RS

RS
R5.R3
R3
$OMODE
14 ]
#177770,R3
43
R4
5%
R4

;2CALL FOR TYPEOUT

;2SET THE
;:SET FOR
22SET THE
:sSAVE R3
s :SAVE R4
;:SAVE RS
;sGET THE

ZERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBER OF DIGITS TO TYPE

2SUBTRACT IT FOR MAX. ALLOWED
;2SAVE IT FOR USE
JsGET THE ZERO FTLL SWITCH
s:PICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD

;sROTATE MSB INTO *°C**
2260 DO MSB
;:FORM THIS DIGIT

2:GET LSB OF THIS DIGIT
;sTYPE THIS DIGIT?
;:BR IF NO
2:GET RID OF JUNK
::TEST FOR 0
: sSUPPRESS THIS 0?
;:BR IF YES
2:DON'T SUPPRESS ANYMORE 0°'S

132

(=1=]
NWW

O bk
B OO

88 OO? —un W

elelelelolelel=

AN
BINARY TO OCTAL (ASCII)

PEHACRO M1113

0'0 R3

5$:

RS‘QS
iocur

7%:

2
6$
Ré
2%
(SP)+ ,RS

6$:

000002

(SP)+ R4

000004
8$:

027166

o1
PAGE 124-1

02-NOV-81 16:08

$OCNT:
$OFILL:
:
$OMODE

RTI

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

(SP)+ ,R3
2(SP) ,4(SP)
(SP)+,(SP)
elelelele)

CZDRLDO-DR11 GEN NPR INTFC

SEQUENCE

ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY
:SAVE FOR _TYPING
..GO TYPE THIS DIGIT
sCOUNT BY 1
..BR IF MORE TO DO
:BR IF _DONE

::INSURE LAST DIGIT ISN'T A BLANK
..GO DO THE LAST DIGIT
;RESTORE
RS

: sRESTORE Ré&
;;RESTORE R3
:+SET THE STACK FOR RETURNING
: ;RETURN
::STORAGE FOR ASCII DIGIT

;s TERMINATOR FOR TYPE ROUTINE

s;0CTAL DIGIT COUNTER
s+ ZERO FILL SWITCH
;:NUMBER OF DIGITS TQ TYPE

133

CZDRLDO-DR11 GEN NPR INTFC
MACRO M1113
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
5913

02-NOV-81 16:08

.SBTTL
RN

EN
PAGE 125

SEQUENCE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

RRARA AR

s*THIS ROUTINE

AAANANIEARAAARARAAAAAAAARAAAAR

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
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
s*REPLACED VITH SPACES.

s«CALL:

H
B
* %

MOV
TYPDS

NUM,-(SP)

;sPUT THE BINARY NUMBER ON THE STACK
:2G0 TO THE ROUTINE

;88 IF YOU SHOULD HAVE A NUMBER GREATER THAN 32767 TO PRINT, LOAD THE
;88 MULTIPLE OF 32768 ON THE STACK, THEN THE REMAINDER AS YOU WOULD
;88 ABOVE. FOR INSTANCE, WHEN INCREMENTING A COUNTER TO BE PRINTED,
;88 TEST FOR NEGATIVE.
IF NEGATIVE, CLEAR THE LOCATION AND INCREMENT
:3% eAEfECIAL OVERFLOW LOCATION.

;
1

OVFNUM,-(SP)
NUM, = ($P)

:88 PUT OVERFLOW NUMBER ON STACK
‘28 PUT REMAINING NUMBER ON STACK

STYPDE: MOV
BR
$TYPDS: CLR
$TYPD:

#1,8TMP2
$TYPD
$TMP2

;88 SHOW ENTRY AT STYPDE
;88 GO TO ROUTINE
;88 SHOW ENTRY AT STYPDS

MOV

RO, ~=(SP)

::PUSH RO ON STACK

MOV
MOV
MOV

R1.=-(SP)

R2,=(SP)
R3,=(SP)
RS .=(SP)

::PUSH R2 ON STACK
“:PUSH R3 ON STACK
::PUSH RS ON STACK

MOV
BPL
NEG
MOVB

20(SP) .RS
18
RS
#°'-,1(SP)

*:GET THE INPUT NUMBER
$:BR IF INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
*:MAKE THE ASCI] NUMBER NEG.

MOV

#$DBLK,R3

::SETUP THE OUTPUT POINTER

027170

012737
000402
005037

000001

001364

010046
010146

TYPDE

MOV

020200
000020
000055

MOV
MOV

000001

027504
000040

18:

28:

027474

3s:

48:

CLR

000001
000060
000040

027326

177777

68:

7%:

*:PUSH R1 ON STACK
::SET BLANK SWITCH AND SIGN

::7ERO THE CONSTANTS INDEX

MovB

#' ,(R$)+

R2
$DTBL(RO)
,R1
R1,RS
43
gg

::CLEAR THE BCD NUMBER
:;GET THE CONSTANT
*:FORM THIS BCD DIGIT
::BR IF DONE
: :INCREASE THE BCD DIGIT BY 1

ADD
TST

R1.RS
R2

::ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0

ISTB

(SP)

CLR
MOV
SU8
BLT
égc

BNE
5%

#20200,-(SP)

‘88 GO TO THE ROUTINE

*:SET THE FIRST CHARACTER TO A BLANK

SSFALL THROUGH IF 0

+:STILL DOING LEADING 0°'S?

BMI
ASLB
BCC
MOVB

78
(SP)
6%
1(SP),=1(R3)

*:BR IF YES
$:MSD?
2:BR IF NO
::YES=-SET THE SIGN

BIS

S:MAKE IT A SPACE IF NOT ALREADY A DIGIT

BIS

MOVB

#'0,R2
R?

R2,(R3)+

(RO)+

::MAKE THE BCD DIGIT ASCII

S:PUT THIS CHARA%LER IN THE OUTPUT BUFFER

$:JUST INCREMENT

134

O
NWWWO

wvinorOwWw

80-‘00
—be

SSNXS
Ng\h SNR

ggs S
EESZ
Owg

MACRO M1113
CZDRLDO-DR11 GEN NPR INTFC
CONVERT BINARY T DECIMAL AND TYPE ROUTINE

02-NOV-81 16:08
RO.#10
2%
8s
R3,R2
63

000010

(SP)+

177777

98
=1(SP) ,=2(R3)

177776

001364

000020
027516

108:

023420

1
PC,EXPAND

(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+ ,R1

(SP)+,RO

027504
0071364
000002
000002

F_11

PAGE 125-1

SDBLK

$TMP2
118

Z(SP) 6(SP)

000006

(SF)*.Z(SP)
(SP)+

SEQUENCE

:sCHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
::60 TO EXIT
..GET THE LSD
;GO CHANGE TO ASCII

..gas THSOLSD THE FIRST NON-ZERO?
IF

..vss--ser THE SIGN FOR TYPING
SET THE TERMINATOR

‘8% WAS ENTRTM AT STYPDS?
*88 BRANCH IF SO
*88 TEST THE OVERFLOW LOCATION
88 BRANCH IF NON-ZERO
*88 GO EXPAND THE DECIMAL NUMBER
;::POP STACK INTO RS

1:POP STACK INTO R3

1:POP STACK INTO R2
1:POP STACK INTO R1
::POP STACK INTO RO

NOW TYPE THE NUMBER

‘88 SEE IF ENTRY WAS AT STYPDS
*88 BRANCH IF SO
:% ADJUST THE STACK
B3

;88 REPLACE ORIGINAL TERMINATOR
;88 REPLACE ORIGINAL SPACE CHARACTER
;88 REPLACE ORIGINAL SPACE CHARACTER
;88 RETURN TO USER

027513
000040
000040

027512
027504

000002

000004

11$:

2(SP) ,4(SP)

001750

000144

$DTBL:
$DBLK:

;0000..1000..100.10.

$DBLK+7

#'
#'

,SDBLK+6
,$DBLK

(SP)+,(SP)

:;ADJUST THE STACK

:;RETURN TO USER

135

CZDRLDO-DR11 GEN NPR INTF(
MACRO M1113 02-NOV-81 16:08
SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767
.SBTTL

6N
PAGE 126

SEQUENCE

SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767

'V‘“UNMUNMUS{N‘J

BB
O00
INWWWWWWWWWWWND

NNN

N =2 ) =2 =2 NO

NWW N

WWWW W

gyNUPN\PVU“DNPQNNN-'
OO = UWW= == 200

000207

000071

001360

000012

001360

28:

3$:
000060
000071

001362

MovB

& v,

188 MOVE & SPACE CHARACTERS TO THE 4 NEW LOCATIONS

MOovB

001360

000002

H 13
1)
;88 SAVE S$TMPO

;88 CLEAR LOCATION TO USE AS ACCUMULATOR
;88 SAVE STMP1

BGE
SUB

48
#10. ,$TMPO

88 BRANCH IF NOT
‘28 SUBTRACT 10 FROM THE ASCII AND

DEC
INCB
BISB
(MPB
BGE
MOVB
SUE

R3
(R3)
#'0,(R3)
#'9.(R3)
48
(R3),$TMP1
#10. . $TMP1

188 DECREMENT TO NEXT SIGNIFICANT ASCII DIGIT
*88 ADD THE CARRY TO THE ASCII
*88 SET BITS TO MAKE IT A NUMBER ASCII
*88 SEE IF CARRY NEEDS TO BE TRANSFERED
*88 BRANCH IF NOT
*88 MOVE BYTE TO LOCATION STMP1
188 SUBTRACT 10 DECIMAL AND

#$DBLK,R3

188 SEE IF ALL POSITIONS HAVE BEEN DONE

BIS
ADD
CMP

MOV

BNE

DEC

BNE
MOVB
DEC

MOV

$NUMS:

;88

;88 MOVE OVERFLOW LOCATION CONTENTS TO RO
*88 MOVE ASCII TO THE TEMPORARY LOCATION

MOV

000007

,=(R3)
2
$TMPO,~(SP)
$TMPO

26(SP) ,RO
(R1),$TMPO

CMP
BNE

001362
001360

=(R3)

,=(R3)

MOV
MOVB

L [0)"

027507

:88 MOVE THE S ASCII'S TO THEIR NEW LOCATIONS
11
i1
i1
1

MOV

CMP

48:

=(R2),=-(R3)
=(R2).-(R3)
=(R2).-(R3)
-(R2).-(R3)
=(R2).-(R3)

$TMP1,~(SP)
TMP1
#SDBLK+7 ,R1

MOVvB

027504

:88 MOVE LOCATION OF LCD+1 TO R2
:88 MOVE NEW LOCATION OF LCD+2 TO R3

‘88 MAKE SURE TERMINATOR IS THERE

Mova

001360

WNINWN
NOHNO
—

Juur

027752

000040

#$DBLK
+6 ,R2
#SDgLK¢12.R3

-(R3)

MOVB
MOVB
MOVB
MOVB
MOVB

MOV
CLR
MOV

N
o
W
~

EXPAND: MOV
MO

1%:

=8R83:888%
7 8vgs8oeRe

O=O0O00000O0——auuaua
o au w200

';ttttQtttt.tttt.".t""'Qt'tttt.t.fi.ttt'...ti.tt.'.."."t't.tt

.WwORD

03NUHS*16.R2
#'0,$TMPO
(R2) ,$TMPO
#'9,$TMPO

R1.RS

$TMPi, (R3)

$TMPO, (R1)
R1
-(R2)

#$DBLK+3,R1
18

(SP)+,$TMP1

(SP)+.$TMPO
PC

3,2,7,6.8.

;88 CLEAR LOCATION TO USE AS 2ND ACCUMULATOR

;88 MOVE ADDRESS OF LCD TO R2

;88 MOVE ADDRESS+10 OF WORD STREAM OF 846 TO R2

:88 MAKE LOCATION AN ASCII IF NOT ALREADY
88 ADD THE NUMBER TO THE ASCII
188 HAVE WE SURPASSED ASCII °9'?

*88 MOVE PRESENT ASCII ADDRESS TO R3

:88 MOVE IT BACK

*88 BRANCH BACK IF NOT

:28 DECREMENT THE OVERFLOW LOCATION RO

*28 BRANCH IF NOT ALL ADDED
:28 MOVE NEW NUMBER TO LOCATION
:2% POINT R1 TO THE NEXT ASCII LOCATION

‘8% POINT R2 TO NEXT DIGIT TO ADD

:88 SEE IF ALL DIGITS HAVE BEEN ADDED
88 BRANCH IF NOT DONE

*88 RESTORE $TMP1

‘88 RESTORE $TMPO
;88 RETURN

136

CZDRI.DO-DR11 GEN NPR INTFC
TTY

INPUT ROUTINE

MACRO M1113

5915

02-NOV-81 16:08

.SBTTL

H1
PAGE 127

SEQUENCE

TTY INPUT ROUTINE

;:ttttttt'ttttttttttltttt'"ttttttt'tttttt.ttt".Qtttt"ttt'tttfit

.ENABL

LSB

;i ii i 2323233233333 3323333232333 3 3323233332223 2322323232222222222222%223

+*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.

022737

000176

001340

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
:«SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
-uusn OPERATING IN TTY FLAG MODE.

$CKSWR

TSTB

032555

BEQ
MOVB

032555
032555

001460
104401

030116

00504
105777
100375

030120
030124

117746
042716

030130
030142
030146

030150

CLRB

151324

1$:

151320
177600
000007

28:

177776

032555

001334

000001

38:

030544
030551
000176

$GTSWR:

030562
032555

198 :

151226

78:

CHMARCT

@$TKB,-(SP)

:88 BRANCH IF NO
:B& MOVE CHARACTER TO THE STACK

:88 CLEAR THE CHARACTER FROM CHARCT

zz GO CHECK IT OuT
;;CHAR THERE?
*IF NO, DON'T WAIT AROUND

..SAVE THE CHAR

:iSTRIP-OFF THE ASCII

#7.(SP)+

MOVB

=2(SP),CHARCT

:88 MOVE CHARACTER BACK TO CHARCT

CMPB
BEQ

SAUTOB,#1
158

:;ARE WE RUNNING IN AUTO-MODE?
*:BRANCH IF YES

TYPE

,$CNTLG

;;ECHO THE CONTROL=-G

MOV
TYPOC

SWREG, = (SP)

::SAVE SWREG FOR TYPEOUT
;G0 TYPE=-OCTAL ASCII(ALL DIGITS)

CLRB

CHARCT

TYPE

CLR
CLR
TSTB
BPL

cMP

38’

158

.SMSWR

, SMNEW

108:

CMP

BNE

BEQ
MOV
ADD

PROMPT FOR NEW SWR

tz CLEAR ANY CHARACTER THAT WAS INPUTED DURING PRINT

::PICK UP
CHAR

(SP) ,#25

::18 IT A CONTROL-U?

,$CNTLU

::YES,

(SP) ., #15

SMAKE IT 7-BIT ASCII

:;BRANCH IF NOT

ECHO CONTROL=U (*U)

+:IGNORE PREVIOUS INPUT
SILET'S TRY IT AGAIN

;218 IT A <CR>?

16$

*:BRANCH IF NC

118
2(SP) ,aSWR
#6,SP

$:BRANCH IF YES
$:SAVE NEW SWR
+:CLEAR UP STACK

4(SP)

(“G)

::TYPE CURRENT CONTENTS

a$TKB,-(SP)

#°C177,(SP)

#6,SP
$GTSWR

000015

188 RETURN TO USER

+;CLEAR COUNTER
$:THE NEW SWR
::CHAR THERE?
*:IF NOT TRY AGAIN

108

TYPE

IS IT A CONTROL G?

iz YES, BRANCH AROUND RETURN TO USER SETUP

-(SP)
-(SP)
@$TKS
78

BNE

ADD
BR

11$:

18
CHARCT,=(SP)

“BRANCH IF NO

CMP

208:

151146

tt SEE IF CHARACTER WAS INPUTED DURING PRINT

#2C177,(SP)

030537
000006

000002
000006

CHARCT

BIC

MOVB

BIC
98 :

;1S THE SOFT=SWR SELECTED?

158

2
a$TKS
158

MOVB

000025

#SWREG, SWR

BR
TSTB
BPL

BEQ

000004
030172

a~£

S:YES,

IS IT THE FIRST CHAR?

137

CZDRLDO-DR11 GEN NPR INTFC
TY INPUT ROUTINE

030176

MACRO M1113

001405
001335

000001

000100

151124

$CRLF

flgTAG ”

1
#100,3$TKS

026606
000060

SEQUENCE

:2ECHO <CR> AND <LF>
: ;RE-ENABLE TTY KBD INTERRUPTS?
: :BRANCH IF NOT
..RE-ENABLE TTY KBD INTERRUPTS

PC,STYPEC
(SP) ,#60
18%

(SP) 467
18%
#60,(SP)+
2(SP)
17%

000067
000060
000002

000720

INn
PAGE 127-1

(02-NOV-81 16:08

000002
177776

178:

001404

18%:
.DSABL
SRR

INC

LSB
AR AR A AR

(SP)
(SP)
(SP)

FYES

..BRANCH IF YES

ooSTRIP-OFF ASCII
::1S THIS THE FIRST CHAR
: :BRANCH IF YES
..NO SHIFT PRESENT
CHAR OVER TO MAKE
i
ROOM FOR NEW ONE.
KEEP COUNT OF CHAR

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

JsTYPE ?2<CR><LF>

R AR

208

AR AR TR AR

..SET IN NEW CHAR
ssGET THE NEXT ONE

s sSIMULATE CONTROL-U

AR AR AR

AR AR AN AR AR

138

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

ROUTINE TO INPUT A SINGLE CHARACTER FROM TTY

02-NOV-81 16:08
.SBTTL

J.1
PAGE 128

SEQUENCE

ROUTINE TO INPUT A SINGLE CHARACTER FROM TTY

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
*«CALL:

v
v
o ®

030302

011646

030312
030316
030320

105777
100375
117766

030304

030326
030334

030342
030344
030350
030352

030356

030362
030366

016666 000004

000002

151022

000004

042766
026627
001013
105777
100375

177600
000004

$SRDCHR: MOV

18:

000004
000023

150774

2$:

117746

150770

022627
001366

000021

026627
002407
026627
003003
042766
000002

000004

000140

000004

000175

000040

000004

042716

030370 000750

030372
030400
030402
030410
030412
030420

151026

RDCHR
RETURN HERE

CMP
BNE

4$:

S:WAIT FOR
;:A CHARACTER
*:READ THE TTY

#AC<177>,4(SP)
4(SP) ,#2%

BIC
38:

a$TkS
1%
a$TKB,4(SP)

BIC
CMP

MOVB

177600

::PUSH DOWN THE PC

4(SP),2(SP)

BNE
TSTB
BPL

B8R

CMP
BLT
CMP
BGT
BIC
RTI

J:WITH PARITY BIT STRIPPED OFF

(SP),=(SP)

MOV

TSTB
BPL
MOVB

::INPUT A SINGLE CHARACTER FROM THE TTY
*:CHARACTER IS ON THE STACK

3s
a$TKS
2$
a$TKB,-(SP)

#4C177, (SP)
(SP)+,#21
28

4(SP) ,#140
48
4(SP) ,#175
48
#40,4(SP)

*:SAVE THE PS

::GET RID OF JUNK IF ANY
::1S IT A CONTROL=S?
::BRANCH IF NO
2:WALIT FOR A CHARACTER
::LOOP UNTIL ITS THERE
*:GET CHARACTER

SIMAKE IT 7-BIT ASCII
+:1S IT A CONTROL-Q?
::1F NOT DISCARD IT

*:YES, RESUME

231S IT UPPER CASE?
*:BRANCH IF YES
2:1S IT A SPECIAL CHAR?
::BRANCH IF YES
*:MAKE IT UPPER CASE
::G0 BACK TO USER

139

CZDRLDO-DR11 GEN NPR _INTFC(

MACRO M1113

ROUTINE TO INPUT A STRING FROM TTY

K11
PAGE 129

02-NOV-81 16:08

AR A

.SBTTL

SEQUENCE

ROUTINE TO INPUT A STRING FROM TTY

ARt

R d

iRl

iiild])

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
s«CALL:

i
i

030422
030424
030430
0304364
030436
030440

010346
012703
022703
101405
104410
112613

030446
030450

001003
104401

030456
030462
030466
030472
030474
030500
030504
030506

030442
030454

030510

030516
030524
030526
030527
030530
030537
030544
030551
030562

122713

SRDLIN: MOV
1%:
MOV
28:
CMP
BLOS
RDCHR
MOVB

030530
030537

000177

108:

001404

48:

111337
104401
122723
001356
105063
104401
012603
011646

030526
030526
000015

38:

012766
000002
000
000

030530

000763

016666

136
136
015
040

177777
001406

000004

125
107
012
040

RDL IN
RETURN HERE

000002
000004

015
015
123
116

R3,=(SP)
#STTYIN,R3
#STTYIN®7.,R3
4$

S:SKIP IF NOT
S:TYPE A *2°

MOV
RTI
98:
.BYTE
BYTE
STTYIN: .BLKB
S$CNTLU: .ASCIZ
SCNTLG: .ASCIZ
SMSWR:
.ASCIZ
SMNEW:
.ASCIZ
.EVEN

0'S

3s
$QUES

MOV

ALL

(SP)+,(R3)

#177,(R3)

MOVB
TYPE.
CMPB
BNE
CLRB
TYPE
MOV
MOV

::TERMINATOR WILL BE A BYTE OF

::SAVE R3
*:GET ADDRESS
::BUFFER FULL?
*BR IF YES
2360 READ ONE CHARACTER FROM THE TTY
:3GET CHARACTER

C(MPB

BNE
TYPE

::INPUT A STRING FROM THE TTY
::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK

(R3).9%
.9%
:
#15,(R3)+
2
=1(R3)
,SLF
(SP)+,R3
(SP) ,=(SP)

4(SP),2(SP)

#STTYIN,4(SP)

2:IS IT A RUBOUT

*:CLEAR THE BUFFER AND LOOP
*:ECHO THE CHARACTER

:;CHECK FOR RETURN
*LOOP IF NOT RETURN
*:CLEAR RETURN (THE 15)
,,rvps A LINE FEED
::RESTORE R3
:;ADJUST THE STACK AND PUT ADDRESS OF THE

FIRST ASCII CHARACTER ON IT

: ;RETURN
0
*:STORAGE FOR ASCII CHAR. TO TYPE
0
::TERMINATOR
7.
::RESERVE 7. BYTES FOR TTY INPUT
/*U/<15><12>
::CONTROL 'V
/*G/<15><12>
::CONTROL '‘G'*
<15><12>/SWR = /
/ NEW =

140

CZDRLDO-DR11 GEN NPR INTF(

READ A DECIMAL NUMBER FROM THE

MACRO M1113

TTY

5917

.SBTTL
MAAA

02-NOv-81 16:08

PAGE 130

SEQUENCE

READ A DECIMAL NUMBER FROM THE TTY
AR A

AR AR R

ARl

:*THIS ROUTINE WILL READ A DECIMAL

(ASCII) NUMBER FROM THE

ll]

TTY AND

; *CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS
:*ARE READ
A "2'* FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED.
s*THE COMPLETE NUMBER MUST BE RETYPED.

THE

INPUT IS TERMINATED BY THE

:*USER TYPING_A_CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS
'IEREI{TIVE 32767 TO NEGATIVE 32768.
* N

030574

011646

030604

010046

030576
030606
030610
030612
030614
030616
030622
030624

030626
030632
030634
030636
030640

030642
030646
030650
030654
030656
030662
030670

——

030672

016666
010146
010246
104411
012600
010037
005046
005002

122710
C€01001
112002
112001
001424
122701
003032
122701
002427
032716
001024

000004

(00002

1$:

030742

000055
2%:

000060
000071
170000

006316

030734
030736
030740

005726
105010
104401

3s:
000012

4%:

5%:

;:PUSH RO ON STACK

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

CMPB
BNE
MOvVB
MovB
BEQ
(MPB
BGT
(MPR
BLT
BIT
BNE

(SP)+,R0O
RO,6%
-(SP)
R2
#'=,(RO)
2%
(RO)+,R2
(RO)+ R
3s
#'0,R1
S$
#'9.R1
5%
#AC7777,(SP)
5$

ASL

(3P)

ASL

000060

RO,-(SP)

MOV

ASL
MOV

sNUMBER IS ON TOP OF

;;PROVIDE SPACE FOR

4(SP) ,2(SP)

MOV
RDLIN
MOV
MOV
CLR
CLR

;sREAD A DECIMAL NUMBER

(SP) ,=(SP)

MOV
MOV

006316

062616
102416
162701
060116
102412
000752
005702
001401
005416
012666
012602
012601
012600
000002

RETURN HERE

$RDDEC: MOV

006316
011646

030674
030676
030700
030704
030706
030710
030712
030714
030716
030720
030724
030726
030730
030732

RDDEC

THE STACK

;:THE INPUT NUMBER

;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
ssREAD AN ASCIZ LINE
:2ADDRESS OF 1ST CHAR.
s 2SAVE INCASE OF BAD INPUT
:sCLEAR DATA WORD
::SIGN SET POSITIVE

..SEE IF A MINUS SIGN WAS TYPED
sBR IF NO MINUS SIGN
..SAVE FOR LATER USE
JsPICKUP THIS CHARACTER
:2GET OUT IF ZERO

;MAKE SURE THIS CHARACTER
;2IS ADIGIT BETWEEN 0 £ 9
;:DON'T LET NUMBER GET TO BIG
;:BR IF NUMBER WOULD OVERFLOW

(SP)
(SP) ,=(SP)

T4
..SAVE FOR LATER

(SP)

¥
a8,

ADD
BvVS
Sus
ADD
BvVS
B8
TST
BEQ
NEG
MOV
MOV
MOV
MOV
RT]

(SP)+,(SP)
5%
#'0,R1
R1,(SP)
5$
2%
R2
43
(SP)
(SP)+,12(SP)
(SP)+,R2
(SP)+ R
(SP)+ R0

'10
..OVERFLOU ISN'T ALLOWED
;:STRIP AWAY THE ASCII JUNK
;sADD IN THIS DIGH
..OVERFLOU ISN'T ALLOWED
LOOP
..CHECK IF NUMBER IS NEG
;BR IF NO
S:YES==NEGATE THE NUMBER
:3SAVE THE RESULT
;;POP STACK INTO R2
;:POP STACK INTO R1
;sPOP STACK INTO RO
::RETURN

ST
CLRB
TYPE

(SP)+
(RO)

ssCLEAN PARTIAL NUMBER FROM STACK
;2SET A TERMINATOR
J3TYPE THE INPUT UP TO BAD CHAR.

141

CZDRLDO=DR11 GEN NPR INTFC

READ A DECIMAL NUMBER FROM THE

030742
030744
030750

000000
104401
000720

001404

MACRO M1113

TTY

6%:

(02-NOv-81

16:08

.WORD

TYPE

$QUES

LIRA
PAGE 130-1

SEQUENCE

..POINTFR GOES HERE
..,.l

.lcR

$:TRY AGAIN

‘ 1

142

—

CZDRLDO-DR11 GEN NPR INTF(C

' READ AN OCTAL NUMBER FROM THE
T

HACRO M1113

02-NOv-81 16:08

.SBTTL

5919

N
PAGE 131

SEQUENCE

READ AN OCTAL NUMBER FROM THE TTY

JARRRRARRARARAAAARARRCORCCRNAAARANAAAAAAAAAANAARANAAARAAROARARORS

tTHIS ROUTINE WILL READ AN OCTAL

(ASCII) NUMBER FROM THE TTY AND

;*CHANGE IT TO BINAR
;THE INPUT CHARACYERS WILL BE CHECKED TO INSURED THEY ARE LEGAL
A 2" WILL BE TYPED
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ

:*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
s*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
s*CALL:

:
:®

030752
030754
030762
030764
030766
030770
030772
030774
031000
031002
031004
031006
031010
031014
031016
031022
031024
031026
031030
031032
031034
031036
031040
031044
031046
031050
031062
031064
031066
031070
031072
031074
031076
031100
031102
031106
031110

011646
016666
010046
010146
010246
104411
012600
010037
005001
005002
112046
001420
122716
003026
122716
002423
006301
006102
006301
006102
006301
006102
042716
062601
000756
005726
012602
012601
012600
000002
005726
105010
104401
000000
104401
000730
000000

000004

031100

000060
000067

177770

000002

RDOCT
RETURN HERE

$RDOCT: MOV
MOV
MOV
MOV
MOV
1$:
RDLIN
MOV
MOV
CLR
CLR
2%:
MOVB
BEQ
(MPB
BGT
(MPB
BLT
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
3s:
TST
MOV

MOV

MOV
MOV
MOV
4%:

001404

5%:
$HIOCT:

RTI
TST

CLRB
TYPE

.WORD

TYPE

.WORD

(SP) ,=(SP)
4&(SP) ,2(SP)
RO,=(SP)
R1,=(SP)
R2,-(SP)
(SP)+,RO
RO.5$
3
R2
(RO)+,=(SP)
3
#'0,(SP)
4%
#'7,(SP)
‘s
R1
R2
R1
R2
R1
R2
#*C7,(SP)
(SP)+ ,R1
2%
(SP)+
R1,12(SP)

R2,$HIOCT

;;READ AN OCTAL NUMBER
;:LOW ORDER BITS ARE ON TOP OF THE STACK
:HIGH ORDER BITS ARE IN SHIOCT
..PROVIDE SPACE FOR THE
NPUT NUMBER

..PUSH RO ON STACK
:2PUSH R1 ON STACK
;sPUSH R2 ON STACK
;sREAD AN ASCIZ LINE
;2GET ADDRESS OF 1ST CHARACTER
JsAND SAVE IT
2sCLEAR DATA WORD
;:PICKUP THIS CHARACTER
;:IF ZERO GET Ourt
:2MAKE SURE THIS CHARACTER
::1S AN OCTAL DIGIT

s.%2
sivk

;:*8
JsSTRIP THE ASCII JUNK

::ADD IN THIS DIGIT
::LO0P
J3CLEAN TERMINATOR FROM STACK
;sSAVE THE RESULT

(SP)+ ,R2
(SP)+ ,R1
(SP)+ RO

;:POP STACK INTO R2
;sPOP STACK INTO R1

(SP)+

ssCLEAN PARTIAL FROM STACK
;sSET A TERMINATOR

(RO)

$QUES

;sPOP STACK INTO RO
2 sRETURN

JsTYPE UP THRU THE BAD CHAR.
.

ll,.l

CICR..

::TRY AGAIN

ll'.l

:sHIGH ORDER BITS GO HERE

143

| CZDRLDO=DR11 GEN NPR INTF(

| TRAP DECODER
|

MACRO M1113

5921

—————————————————

(02-NOV-81 16:08

.SBTTL

———

8.12
PAGE 132

SEQUENCE

TRAP DECODER

::Q.'Q..Qtt'.Qt"Qt..'Q'.""'.'...t'.t'.t.......QQQ'Q.'Q.Q'..'.'

:*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
:*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
«GO TO THAT ROUTINE.

031112

$TRAP:

031114

031120
031122
031124

031126

031144

RO,=-(SP)

::SAVE RO

ST
MOVB
ASL

=(R0)
(RO),RO
R0

: :BACKUP BY 2
*:GET RIGHT BYTE OF TRAP
“:POSITION FOR INDEXING

MOV

031132

031134
031136

MOV

RTS

000004

000002

2(5P) RO
$TRPAD(RO)
,RO
RO

*:GET TRAP ADDRESS
;:INDEX TO TABLE
:GO TO ROUTINE

::THIS IS USE TO HANDLE THE '‘GETPRI'* MACRO
$TRAP2: MOV
(SP),=(SP)
::MOVE THE PC DOWN
MOV
4(SPJ ,2(SP)
S:MOVE THE PSW DOWN
.SBTTL

RTI

TRAP TABLE

::RESTORE THE PSW

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
>«BY THE ''TRAP'* INSTRUCTION.

031146
031150
031152
031154
031156
031160
031162
031164
031166
031170
031172
031174
031176

ROUTINE

$TRPAD:

.WORD
$TYPS
$TYPOC
$TYPOS
STYPON
$STYPDS
$GTSWR
$CKSWR
$SRDCHR
SRDLIN
$SRDOCT
$SRDDEC
STYPDE

STRAP2
;;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)
tw+§(1o«oz>
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)

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-SWR
TTY TYPEIN CHARACTER KOUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
READ A DECIMAL NUMBER FROM TTY
TYPE DECIMAL EXTENDED

CZDRLDO-DR11 GEN NPR_INTF(
SCOPE HANDLER ROUTINE

.12

MACRO M1113 (02-NOV-81 16:08 PAGE 13;

5924

.SBTTL

SEQUENCE 145

SCOPE HANDLER ROUTINE

SRAAARAA AR AR RA AR AN A AT TR RN AR ANAAAAAARARAAAAAAAAAATRRAR
RO OOAAS

tTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

IT WILL INCREMENT

;*AND LOD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*SW14=1
; *SW09=1
; *SW08=1

;*CALL

031200
031206
031210
031214
031216
031222
031224

032777
001406
005737
001403
013716
00002
032777

001000

031234

001306

031242

013716
000002
105737

031250

105737

032555

13737

032555

5777

150046

05037

7737

001312

040000

TST

BEQ

MOV

150106

2$:

002706

032555

150042

000200
000030

031340

104401

032174

031344
031350
031354
031356
1362
1364
031370
031372
031400
031406
031414
031416
031422

105337
105037
000426
105737
001011
105777
100020
117737
142737
122737
001006
105037
104401

002706
032555

002706
002706

032555

002706

38:
002706
002706
002706

48:

032555
5%:

147754

147750
000200
000030

002706
032504

RTI
BIT

BEQ

MOV
RTI

TSTB

78:

#BIT09,aSWR
1$

::LOOP ON ERROR?
::BR_IF NO

:BR IF NOT YET

SERTTL

$SLPERR, (SP)
#BIT14,3SWR

SLPADR, (SP)

EOPLOC

BNE

8I(B

#200, EOPLOC

TSTB
8EQ
MovB
CLRB
BR
TSTB
BPL
Mova

CMPB
BEQ
MovB
CLRB
BR
TYPE

DECB

6$:

::SCOPE=]0T

SCOPE

$SCOPE: BIT
BEQ

001310

2737
2737
001406
113737
105037

031324

150132

LOOP ON TEST
LOOP ON ERROR
LOOP ON TEST IN SWR<6:0>

.,FUDGE RETURN

sRETURN
..LOOP ON TEST?

:BR IF NO
..FUDGE RETURN
ETURN

tl TEST TO SEE IF EOP'S ARE TO PRINT
;88 BRANCH IF NOT

;08 SEE IF A CHARACTER WAS INPUTED IN A PRINT ROUTINE
88 BRANCH TO CHECK KEYBOARD IF NOT
;&8 MOVE THE CHARACTER TO EOPLOC
:88 CLEAR THE LOCATION
;88 BRANCH TO CHECK THE CHARACTER
:8% SEE IF EOP REQUESTED
;8 BRANCH IF NOT
;88 GET CHARACTER

l30 EOPLOC

;88 SEE IFA (*X)
;88 BRANCH IF IT IS
;88 MOVE CHARACTER BACK TO CHARCT FOR POSSIBLE FUTURE USE
;88 CLEAR THE LOCATION
;88 BRANCH TO START SCOPE ROUTINE

EOPLO».CHARCT
EOPLOC
8s
+HAKTPM

;88 CLEAR PARITY BIT

;88 TYPE:

;8L
17
;68

'HIT ANY KEY TO OBTAIN A PROGRESS REPORT,'

'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

EOPLOC

;88 MAKE “X ANOTHER CHARACTER
AND

#30, CHARCT

;08 SEE IF ANOTHER (“X) WAS INPUTED

CHARCT
8s
CHARCT
78
as$TKS
8s
QSTKB CHARCT
#200, CHARCT

BNE
CLRB

8s
EOPLOC

TYPE

THERE WERE ANY ERRORS YET

CHARCT
33
CHARCT,EOPLOC
CHARCT
4%
as$TKS
8s
a@$TKkB,EOPLOC

CLRB
BR
TSTB
BNE
TSTB
BPL
MOovB
8I(B
CMPB

..SEE IF

.EOPRSM

;88 CLEAR ANY CHARACTER THAT MAY BE THERE
:88 BRANCH TO START SCOPE ROUT INE
;88 SEE_IF A CHARACTER WAS INPUTED IN THE TYPE ROUTINE
188 GO TEST THE CHARACTER IF SO
;8% SEE IF CHARACTER WAITING
88 BRANCH IF NOT
;88 MOVE THE CHARACTER FOR TESTING
88 CLEAR THE PARITY BIT
;88 BRANCH IF NOT
1 CLEAR EOPLOC TO RESUME EOP MESSAGES

88 TYPE: "EOP'S AND EOD'S WILL RESUME PRINTING'

CZDRLDO-DR11 GEN NPR INTFC
SCOPE HANDLER ROUTINE

031426

105037

031432
031436
031440
031446

105737
001477
122737
001073

031464

(00462

MACRO M1113

032555

8s:

000031

032555

022737
001003
104401

044652

044650

031466
031474
031476
031502

022737
001002
104401
104401

047132

031506
031512
031516
031522
031526
031530
031534
031536
031540
031542

012700
012701
005037
021037
001403
062700
000420
012046
104405
104401

044652
000020
001362
001362

031550
031552
031556
031560
031562
031566
031570
031572
031576

001002
104401
012046
104414
104401
012046
104405
104401
020037

031450
031456
031460

031546

031602

012046

001347

036120
036173

001405
044650

031642
031646

013746
012737

000004
031666

012637

000004

031664

000517

031666
031670
031674

031676

031676
031704

022626
012637
000505

032777
001505

158:

037352

168:

001362
044652

044652
001405
032555

TSTB
BEQ
CMPB
BNE

044650
178:
9s:

D.12
PAGE 133-1
;88 MAKE CHARACTER SOMETHING ELSE

#CAPSTK,CAPNTR
118
NODATA

:SEE IF THERE IS ANY DATA TO PRINT
*BRANCH TO PRINT IT IF THERE IS
:TYPE:
'NO ERROR TOTALS TO REPORT®

CHARCT
9%
#31,CHARCT
9

i7s

#ENDSTK,CAPNTR
128
LSTKIFL
.ERCHDR

MOV
MOV
CLR
CMP
BEQ
ADD
BR
MOV
TYPDS
TYPE

#CAPSTK RO
#16. ,R1
STMP]
(RO) ,$TMP1
148
#10,R0
16$
(RO)+,=(SP)

BNE
TYPE
MOV
TYPDE
TYPE
MOV
TYPDS
TYPE
CMP

158
,SPACES
(RO)+,=(SP)

BNE

INC
MOV
DEC
BNE
MOV
TYPE
CLRB
CKSWR

SEQUENCE

CHARCT

CMP
BNE
TYPE
TYPE

MOV

037352

000416

031660

13$:

037352

031640

005737

128:

148:

005237
012700
005301
001341
012737
104401
105037
104407

031654

118:

000010

031604
031610
031614
031616
031620
031626
031632
031636

CLRB

CMP
BNE
TYPE

036311
044650

(02-NOV-81 16:08

,SPACES

(RO)+,=~(SP)

,SPACES
(RO)+,=(SP)
,$CRLF
RO, CAPNTR

13$

$TMP1
#CAPSTK ,RO
R1
13
lCAPSTK CAPNTR
,SCRLF
fHARCT

:88 SEE IF A CHARACTER IS WAITING
:88 BRANCH AROUND (*Y) TEST IF NOT
88 IS THIS A (*Y) (REQUEST FOR RUN SUMMARY)
:88 BRANCH IF NOT

*KICK ouT

:SEE IF STACK IS FULL OF BULL
*BRANCH AROUND STACK IS FULL MESSAGE IF NOT
sTYPE:
°STACK IS FULL = DATA MAY HAVE BEEN LOST®
rvpe
"SUMMATION OF ERRORS SINCE sesxunxnc OR LAST REPORT®
'BOARD #
PASS #
ERRTTL®
|
nove ADDRESS OF STACK TO PRINT TO RO
|
*MOVE 16 BOARDS TC SEARCH TO RO
*CLEAR S$TMP1, DEVICE POINTER
*SEE IF UNIT NUMBER IS TO PRINT
*BRANCH TO PRINT DATA IF SO
:GO TO NEXT SET OF DATA AND
*GO SEE IF ANY MORE TO CHECK
*MOVE UNIT NUMBER TO STACK FOR PRINTING
:GO TYPE UNIT NUMBER IN DECIMAL
:TYPE 2 SPACES

:MOVE OVERFLOW PASS NUMBER TO STACK FOR PRINTING

*BRANCH IF NON-ZERO
:TYPE AN EXTRA 2 SPACES - NUMBER WILL NOT BE EXTENDED
*MOVE MAJOR PASS NUMBER TO STACK FOR PRINTING
:GO TYPE PASS NUMBER IN EXTENDED DECIMAL
*TYPE 2 SPACES
:MOVE ERROR TOTAL TO STACK FOR PRINTING
:GO TYPE ERROR TOTAL IN DECIMAL
STYPE <CRLF>
*SEE IF ALL DATA HAS BEEN PRINTED

*BRANCH BACK IF NOT

:INCREMENT DEVICE POINTER
SINITIALIZE TO BEGINNING FOR ANOTHER POSSIBLE PASS
:DECREMENT THE LOOP COUNTER AND
*BRANCH UNTIL ALL DEVICE DATA PRINTED
:REINITIALIZE CAPNTR
*TYPE ANOTHER <CRLF>
:CLEAR ANY CHARACTER ENTERED DURING PRINTING
TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER

#MAMNSTART OF CODE FOR THE XOR tésrenaawp:

$XTSTR: BR

177060

000004

000004
000400

147434

MOV
MOV

@NERRVEC,=(SP)
#58 ANERRVEC

MOV

(SP)* @#ERRVEC

5%:

CMP
MOV
BR

ar177060
$SVLAD

(SP)+,(SP)+
(SP) +.a#ERRVEC
78

:1F RUNNING ON THE ''XOR'* TESTER CHANGE

S:THIS INSTRUCTION TO A 'NOP'*

(NOP=240)
..SAVE THE CONTENTS OF THE ERROR VECTOR
..ss FOR TIMEOUT

TIME OUT ON XOR?

::RESTORE THE ERROR VECTOR

2260 TO THE NEXT TEST

::CLEAR THE STACK AFTER A TIME OUT
..RESTORE THE ERROR VECTOR
LOOP ON rue PRESENT TEST

6$:: MMANREND OF CODE FOR THE XOR iesrenpc
BIT
BEQ

#81T08,aSWR
48

146

::LOOP ON spec TEST?
::BR IF NO

CZDRLDO-DR11 GEN NPR_INTF(

MACRO M1113

SCOPE HANDLER ROUTINE

031706
031710

005046
117716

031720

001416

031714

031722
031726
0317

031734

031740
031742
031744
031750
031754
031756
031760

031766

031770
031774
031776

147424

:sBRANCH IF BAD TEST NUMBER IN SWR

(SP)
(SP)
#$SWOBTBL,
(SP)
@(SP)+,SLPADR
SOVER
(SP)+
#-1,CPSAVE

INC
BNE
MoV

#-1
9008
=(SP)

MOV

177766, CPSAVE

005316
006316
062716
013637
000501
005726
022737

001447

001302

001414

MOV

032556
001306
177777

177766

032024
032026

001423
042737

032654

000001

017746

000001
147300

042777

104177
012677
000407
022626
012737

032072
032074
032100
032102

000403
005227
001002
012637

032106

001406

005237

8s:
2%:28:

177777

032737

032050
032054
032056
032060

032106

DEC
ASL
ADD
MCV
BR
ST
(MP

011637

013737

032066

BEQ

#37,(SP)
8s
(SP) ,$TSTNM

032010

032046

s:CLEAR A TEMP. LOCATION
:sPICKUP THE DESIRED TEST NUMBER

CMP
BLT
MOV

000004

032040

=(SP)
aSWR, (SP)

022716
002413
011637

000037

001000

032654

9008:

147272

032076

032654

19998:

20008:

000004

9108:

20018:

EMT
MOV
BR
(MP
Mov

124
131

LASCII
.ASCIZ

136

130

200

LASCII

EOPRSM: .ASCIZ
CHARCT:

:DPMO01

sSET VECTOR TO LOCATION BELOW

:DPMO01

sTEST FOR 1ST TIME THROUGH
:BRANCH IF NOT
:SAVE TIMEOUT VECTOR AT &

sMOVE CPU ERR REG VALUE TO LOC FOR TST

:SEE IF THE POWER MONITOR BIT IS ON

sBRANCH TO CONTINUE ROUTINE IF CLEAR
;CLEAR THE BIT FOUND TO BE SET

SAVE SWR VALUE

.BYT E

:DPMO01
:DPMO01
:DPMO01
;DPM0O1

:DPM001

:DPMO01
:DPMO01

:DPMO01

#81709,3SuR

:DON'T ALLOW LOOP ON ERROR ON THIS ERROR:DPMOO1

(SP)+,3SWR
20008
(SP)+,(SP)+
#-1, CPSAVE

:RESTORE SWR TO ORIGINAL VALUE
:BRANCH OVER TIMEOUT SECTION
:CLEAN UP THE STACK AFTER TIMEOUT
sMOVE =1 TO CPSAVE - NO CPU ERR REG

:DPMOO1
:DPMO01
:DPMO01
:DPMOO1

:DPMOO1
:DPM001
:DPMO01
:DPMO01

177

20008+2

sCALL SPECIAL POWER FAIL BIT ERROR CALL :DPMOO1

s INCREMENT 1ST TIME THROUGH LOCATION

::BR_IF NO

116
101

000

:BRANCH AROUND ROUTINE IF SO

$SVLAD

;TSTB

105
115

032555

;BACKUP BY ONE
::SCALE THE TEST NUMBER AS AN INDEX
;;FORM THE ADDRESS OF TEST POINTER
..SET LOOP ADDRESS TO DESIRED TEST
;GO _LOOP ON THE TEST
::CLEAN THE BAD TEST NUMBER OFF OF THE STACK
;SEE IF TIMEOUT WAS PREVIOUSLY RECORDED ;DPM001

BEQ

032315
032410

032504

‘l UPDATE THE TEST NUMBER IN STESTN

sBRANCH OVER 1ST TIME THROUGH TEST
sTEST FOR 1ST TIME THROUGH
:BRANCH IF NOT
:RESTORE LOCATION &

200

124

s:CHECK THE NUMBER IN THE SWR
..BRANCH IF TEST NUMBER IS OUT OF RANGE
:UPDATE THE TEST NUMBER IN STSTNM

9108
#-1
20018
(SP)+,4

130

116

2000$
#81700,177766

SERFLG

SLPERR,SLPADR
SOVER
$ERFLG
STSTNM
STSTNM STESTN
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX
STSTNM,@DISPLAY
$SLPADR, (SP)

147

sMASK OUT UNDESIRED BITS

BR
INC
BNE
Mov

001303
001302
001302
001306
001310
001376
000001
001302
001306

105

li999$

aSWR, - (SP)

MoV
BR
48:
CLRB
$SVLAD: INCB
MovBs
MOV
MoV
CLR
MovB
SOVER: MOV
MOV
RTI
HAKTPM: .ASCII

001315
147154

<001$

MoV

013737
000420
105037
105237
113737
011637
011637
005037
112737
013777
013716
000002
136

001414

7%:

(SP) ,$TESTN

#BIT00,CPSAVE

032110
032116
032120
032124
032130
032136
032142
032146
032152
032160
032166
032172
032174

032250

001306

#SSWURMK, (SP)

BIT

INC

177777

001310

Mov
BIC

147264
177777

BEQ

BEQ
BIC

177766

SEQUENCE

CLR
MOvB

BIC

032002 012737 032056 000004
032034

E.12
PAGE 133-2

042716 000200

005227
001005
013746

032016

02-NOvV-81 16:08

:DPMOO01

:;HAS AN ERROR OCCURRED? ;€& ELIMINATED FOR CZDRLD
;;SET LOOP ADDRESS TO LAST SCOPE

::ZERO_THE ERROR FLAG
::COUNT TEST NUMBERS
;;SET TEST NUMBER IN APT MAILBOX
:2SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
..CLEAR THE ESCAPE FROM ERROR ADDRESS
sONLY ALLOW ONE(1) ERROR ON NEXT TEST
::DISPLAY TEST NUMBER
..FUDGE RETURN ADDRESS
:RETURN
/*X/<CRLF>/HIT ANY KEY TO OBTAIN A PROGRESS REPORT,/<CRLF> ;88

/ENTER (“X) 70 RESUME EOP'S AND EOD'S/<CRLF>

/*X/<CRLF>/EOP'S AND EOD'S WILL RESUME PRINTING/<CRLF>

/ENTER THE KEY REPEATEDLY, AS RESETS DONE IN THE DIAGNOSTIC/<CRLF> ;&%
/MAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE CHARACTER/<CRLF> :88

;88 LOCATION TO HOLD INPUTED CHARACTER

000000

CPSAVE
:

.WORD
.WORD

=2
LNLNTNT
NLY ) = b e e o e =k =k Y ON N S NN
[« NV ¥ S PN N —_—
= ONO
WV
NN —=O

-WORD
. WORD
.WORD
.WORD

:STARTING ADDRESS+30 OF

—

:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF TEST 27
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF TEST
:LOCATION TO SAVE CPU ERR REG CONTENTS
NN

.WORD
.WORD
.WORD

TST17+30
1ST20+30
TST21+30
TST22+30
TST23+30
TST24+30
TST25+30
TST26+30
TST27+30
TST30+30
TST31+30
TST32+30
TST33+30
TST34+30
TST35+30
TST36+30
TST37+30
0

;STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF
:STARTING ADDRESS+30 OF

uuwg
w
NOWNMESWN=O

1ST16+30

-WORD

032654

TST1+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

SEQUENCE

—

$SWOBTBL:

F.12
PAGE 134

m
wm

012636
013034
013164
013516
014222
014416
014764
015142
015376
015562
015746
016132
016322
016554
017012
017410
020014
020330

02-NOV-81 16:08

e ——
mmmm mm
wnununnm 717
——
=) .

032556
032556
032560
032562
032564
032566
032570
032572
032574
032576
032
032602
032604
032
032610
032612
032614
032616
032620

MACRO M1113

——
==
g
mmm mmmm
wun wnunnnn
—— ——
=

CZDRLDO-DR11 GEN NPR INTFC
SCOPE HANDLER ROUTINE

;DPMO01

148

CZDRLDO-DR11 GEN NPR INTF(

ERROR HANDLER ROUTINE

MACRO M1113

5926

G.12
PAGE 135

02-NOV-81 16:08

.SBTTL
S oA

SEQUENCE

ERROR HANDLER ROUTINE
AR AARA A AN

TR A AR A AR AN

AAARAARAAAANAAIA

AR RO

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO SERRTYP ON ERROR

;*THE _SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR

;*SW15=1
;*SW13=1
;*SW10=1
: *SW09=1
:*CALL

105037

: ;ERROR= EMT AND N=ERROR ITEM NUMBER

$ERROR: ELRB

IBSAVE

;CLEAR THE ITEM BYTE SAVE LOCATION

001303

78:

SERFLG

::SET THE ERROR FLAG
S:DON'T LET THE FLAG GO TO ZERO
::DISPLAY TEST NUMBER AND ERROR FLAG
+:BELL ON ERROR?
SINO = SKIP
:iRING BELL

146442
146432

001400

se0n

—

000177

WWW

18:
[olele]
(=l=l=]

~
~
W
~N

N
= O~

ERROR

033224

001302
002000

177777

000004
033014

032654
000004
032654

177777

032654

000001

032654
177766

NWWO WWNW
NNONNNNONNYN

177766

000001
001314
000177

000001

001430

001314
033644

033130

146240

033226

TYPE

INC

INC
MOV

50008:
49998:

218%:

ERRCNT
(SP)
, SERRPC

TSTB

IBSAVE

1001$

BNE
CMP

10008
#-1,CPSAVE

MOV
MOV

4,~(SP)
#50008,4

MOV

l-liCPSAVE

MOV
BR
CMP
BR

BIT

BEQ
BIC

MOV

1001$

177766 CPSAVE
4999%
(SP)+,(SP)+
1001$

#81700,CPSAVE
1 001$

#81700,177766
SITEMB, IBSAVE
#177,S1TEMB
(SP)+.4

:;TEST FOR CHANGE IN SOF T-SWR

-COUNT THE NUMBER OF ERRORS

:;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
:BRANCH IF SO
:SEE IF CPU ERR REG EXISTS
:BRANCH IF NOT
:SAVE TIMEOUT VECTOR AT 4
s TIMEOUTS TO 50008
:MOVE CPU ERR REG TO CPSAVE FOR TEST
:BRANCH OVER TIMEOUT HANDLER
sCLEAN STACK AFTER TIMEOUT

:SET CPSAVE TO -1 TO NEGATE FURTHER TEST:
sBRANCH TO CONTINUE ERROR CALL
;SEE IF POWER MONITOR BIT IS SET
sBRANCH IF 0K

sCLEAR THE BIT FOUND SET

sMAKE IBSAVE NON-ZERO FOR DUAL CALL

sSET SITEMB TO SPECIAL POUER FAIL PNTR
:BRANCH OVER IBSAVE CLEARING
;CLEAR IBSAVE SO AFTER 2ND ERROR, EXIT
:RESTORE STACK TO PRETEST STATE

#BIT15,asWR

JSR

PC,$ERRTYP

::G0 TO USER ERROR ROUTINE

CMPB

léPTENV.‘ENV

; ;RUNNING IN APT MODE

MOVB

$SITEMB,21%

..sef ITEM NUMBER AS ERROR NUMBER

JSR

BYTE

PC,SATYS

;RANOO1

‘88 INCREMENT THE ERROR COUNT

BIT
BNE

208:

$BELL

$ERTTL

#2,SERRPC
@SERRPC,SITEMB
#177.$1TEMB

MOovB
ggVB
10008:
10018:

78
STSTNM,aDISPLAY
#BIT10.aSWR
18

SUB
MOVB
(MPB

BEQ

033224
001314

033224

INCB

BEQ
MOV
BIT
BEQ

BEQ

033224

NNNN

032656

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERRCR

..SKIP TYPEOUT IF SET
:SKIP TYPEOUTS

*NO,SKIP APT ERROR REPORT

::REPORT FATAL ERROR TO APT

149

WNW
N -

i G
e o Y
T

OOV
S S
NOSNNOONNVO

033176

033224

MACRO M1113

000

22%:
2%:

033224
146172

3s:

001376
001376
001000

[elelelelelelelelelelel=] o

(NN W N NN NN NN NN W
NN W N W NN NN N W W

CZDRLDO-DR11 GEN NPR INTFC
ERROR HANDLER ROUTINE

013716

001310

022737
001001
000000

026324

105737
001221
000002
000000

033224

146144

000042

5%:

6$%:

02-NOV-81 16:08
.BYTE
8R
TSTB
BNE
TST
BPL
HALT
CKSWR
TST
BEQ
MOV
BIT
BEQ

H.12
PAGE 135-1

0
22%
IBSAVE
38
aSWR

SESCAPE

$ESCAPE, (SP)
gng9.0SHR

SEQUENCE

::APT ERROR LOOP
:SEE IF POWER FAIL ERROR CALL
JBRANCH IF NOT = HALT NOT ALLOWED
ssHALT ON ERROR
:sSKIP IF CONTINUE
:sHALT ON ERROR!
ssTEST FOR CHANGE IN SOFT=SWR
;sCHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE
;:FUDGE RETURN ADDRESS FOR ESCAPE

;RANOO1
;RANOO1

:88 SEE IF WE ARE TO LOOP ON ERROR

;88 BRANCH OUT IF NOT
;88 FUDGE RETURN

Mov

$LPERR, (SP)

CMP
BNE
HALT

#SEND
, a#4?2
AD

;:ACT=11 AUTO=-ACCEPT?
::eggncu IF NO

TSTB

IBSAVE
7$

;SEE IF THIS IS THE PWR FAIL ERROR CALL :RAN0O1

:LOC'N TO HOLD SITEMB DURING DUAL ERR

BNE

RTI
IBSAVE: -WORD

:agetrafignmcx TO CALL ORIGINAL ERR I7 SO -RANOO1

;RANOO1

150

CZDRLDO=-DR11 GEN NPR INTFC
ERROR MESSAGE TYPEOUT ROUTINE

MACRO M1113

5928

1.1
PAGE 136

02-NOV-81 16:08

.SBTTL
AL

SEQUENCE

151

ERROR MESSAGE TYPEOUT ROUTINE

AL A

AR A

ARl

'THIS ROUTINE USES THE ''ITEM CONTROL BYTE'* (SITEMB)

iidiisds]

TO DETERMINE WHICH

:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'' (SERRTB),
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

033226

$ERRTYP:

001314
177400

033234
033240
033242

MOV

033246

000177

18:18:

033516

1008:

001360
000200

..chxup THE ITEM INDEX
CLEAR UPPER BYTE

;;Poc

..gg T;GE--OCTAL ASCIICALL DIGITS)

CMP
BNE
MOV
BR

:177.30

:SEE IF THIS CALL IS THE PWR FAIL CALL

BIC
DEC

wbo RO

RO, $TMPO

*88 MOVE RO TO srnpo FOR 200 TEST

ASL

BPL
CMP
BLT
BGT

4
ERRCNT, #20
2
148

BR
CMP
BEQ
CMPB
BNE
BIT
BNE
BIC
ADD

148
#1,ERRCNT
3s
S$TMPO.MEPITM
3s
#BIT7.3SWR
14$
#177400,R0
#ER200+4 ,RO

MOVB
ADD

STMPO,MEPITM
:R&
MOVE ITEM NUMBER TO MEPITM FOR POSSIBLE FUTURE USE
#ER200-SERRTB,RO: S8 ADD 200
BASE POINTER TO RO AND

CLR
TYPE

ERRCNT
,$CRLF

MOV

ASL
ASL
TSTB

001360

002714

000020

040775

TYPE

000001

002714

001360

033514

000200

145756

28:

177400
002300

001360
000540

002714

033514

2g:
48:
58:

1108:
68:

78:
000000

8%:

AVE RO

a#$I1TEMB,RO
#177400,R0

BNE
MOV

001316

RO,=(SP)

MOVB
BIC

1%
$ERRPC,~(SP)

1008
cprecu RO
1108

no
RO

$TMPO

NOMORE

*BRANCH IF NOT
*MOVE ADDRESS OF PUR FAIL CALL TO RO
*BRANCH TO CALL ERR

*88 SHIFT TO MULTIPLY BY 10 (OCTAL)
17
§1

:88 SEE IF ITEM NUMBER IS OVER 200

128 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 RETURN 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 THE FIRST ERROR
:88 BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE
:8% SEE IF ITEM MATCHES LAST MULTIPLE ERROR
:28 BRANCH IF NOT - NEW HEADER NEEDED
*88 SEE IF SWITCH REGISTER BIT 7 IS SET
*88 BRANCH TO RETURN IF SWITCH SET
:88 CLEAR UPPER BYTE OF RO EXPOSING ITEM BYTE
:88 POINT TO DATA TABLE ENTRY

1§17 BRANCH TO PRINT DATA

*28 BRANCH AROUND ERRCNT CLEAR

ADD

#SERRTB,RO

::FORM TABLE POINTER

BEQ

WORD

MOV

(RO)+,88

MOV
TYPE

TYPE

BEQ
TYPE
.WORD

(RO)+,6%

:88 CLEAR ERRCNT SO MULTIPLE ERRORS GET NEW HEADER
‘88 TYPE <CRLF>

*:PICKUP "ERROR MESSAGE'® POINTER
::SKIP TYPEOUT IF NO POINTER

..rvpe rue

ERROR ME SSAGE"*

;i ERROR MESSAGE''

POINTER GOES WERE

,SCRLF

::"'CARRIAGE RETURN''

::SKIP TYPEQUT IF 0
S:TYPE THE 'DATA HEADER'
::"DATA HEADER'® POINTER GOES HERE

:DPMOO1
*DPMOO1
:DPMOO1
:DPM001

*88 CLEAR BIT 7 IF PRESENT
‘28 MAKE POINTER AN INDEX

:DPMO01

F ITEM NUMBER IS ZERO, TYPE THE PC OF THE ERROR
..SAVE $ERRPC FOR TYPEOUT
: ERROR ADDRESS

& "LINE FEED

::PICKUP 'DATA HEADER'* POINTER

CZDRLDO-DR11 GEN NPR INTF(
ERROR MESSAGE TYPEOUT ROUTINE

03363 011000

MACRO M1113

001405

02-NOV-81 16:08

9%:

0334

TYPE

108:

033612
033622

(R0) ,RO
138
3(R0)+,=(SP)

ios

13%:

001405

033562

.SCRLF

(RO)
138
SPACES

037352

033526

J_ 12
PAGE 136-1

,SCRLF

;gp)o.no

14$:

SEQUENCE

.-."cmaugt RETURN''
§ 'LINE FEED"’

ICKUP ‘DATA TABLE'' POINTER
GO AROUND ROUTINE TO TYPE THE DATA IF NONE
-:PUT OCTAL DATA ON STACK FOR TYPING

$:TYPE AN OCTAL NUMBER
::1S THERE ANOTHER NUMBER?
*BR IF NO
..rvps TWO(2) SPACES

;360 BACK TO PRINT, THE OCTAL NUMBER
CARRIAGE RETURN''

E%gRE RO

'‘LINE FEED

MEPITM:

PFECH1 ,PFECH2 ,PFECH3,PFECH4 ;ADDRESSES OF DATA/ASCII BELOW
?POWER MONITOR BIT FOUND SET?
?TESTNO
ERR PC
(PUERR?

120

124

033562
117
105

033612
127
123

PFECH:
PFECH1:
PFECHZ2:

001414
000

001316
000

032654
000

PFECH3:
PFECH4:

;il. LOCATION TO STORE 200+ ERROR ITEM NUMBER

$TESTN,SERRPC,CPSAVE,O

0,0,0,0

152

CZDRLDO-DR11 GEN NPR INTFC

APT COMMUNICATIONS ROUTINE

MACRO M1113

5930

02-NOV-81 16:08

.SBTTL
on
cpagracn:
) b b
Ot
Ot

WWWW
W
W

(=lelale] [=lelelelelele]

U“NU%ZU“NUI
W
FES
\fiU“;g oo~
~N
NSO sSorosN ¥ o

SRR

000001
000001

034072
034070

$ATY1:

000001

034072

$ATY4L:
SATYC(C:

$SATY3:

034070
000001

001430

000100

001431

000004
000002
001410

000004

001424

1%:

2%:

000004
000002
177776
026374

APT COMMUNICATIONS ROUTINE

MovB
MOVB
BR

#1,S8FFLG
#1,SMFLG
SATYC
#1,8FFLG

::TO REPORT FATAL ERROR
::TO TYPE A MESSAGE

MOV
MOV
TST8
BEQ
(MPB
BNE
BITB
BEQ

RO,=(SP)
R1,=(SP)
SMFLG
5%

;:PUSH RO ON STACK
::PUSH R1 ON STACK

MOVB

MoV
ADD

TST

TSTB

::IF
3s
NOT:
BR
#APTSPOOL
, SENVM s s SHOULD SPOOL MESSAGES?
3s
;sIF
NOT:
BR

@4 (SP) ,RO
#2,4(SP)
$MSGTYPE
1%
RO, $SMSGAD

(§6>+

2 :GET MESSAGE ADDR.
;:BUMP RETURN ADDR.
;sSEE IF DONE W/ LAST XMISSiON?
::1F NOT: WAIT
;:PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

034002
000004

34(SP) .48
#2,4(SP)

::PUT MSG ADDR IN JSR LINKAGE

Sc.srvpe

:2CALL TYPE MACRO

4%:
5%:
108:

001410

.WORD

118:

001412
000004
12%:

SMFLG:
$LFLG:
$FFLG:

000040

2 :SHOULD TYPE A MESSAGE?
;3IF NOT: BR
;sOPERATING UNDER APT?

001410

001430

034072
034071
034070

#APTENV, SENV

::TO ONLY REPORT FATAL ERROR

2
$MSGAD RO
RO
RO, SMSGLGT
gg.SHSGYVPE

034072

000004
000002
001410

SEQUENCE

AR AR AR AR AR AR AR TR

001424

001426
000004

K 12
PAGE 137

APTSIZ2E=200
APTENV=001
APTSPOOL=100
APT(SUP=040

- -BUMP RETURN ADDRESS

177776 ,-(SP)

::PUSH 177776 ON STACK

$FFLG
12%
SENV
12%
$MSGTYPE
11%
@4 (SP) ,SFATAL
#2,4(SP)
S$SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+ ,R1
(SP)+,R0O

;:SHOULD REPORT FATAL ERROR?
;21F NOT: BR
s sRUNNING UNDER APT?

.BYTE
.BYTE
-EVEN

;:SUB START OF MESSAGE
¢:GET MESSAGE LNGTH IN WORDS
ssPUT LENGTH IN MAILBOX
s TELL APT TO TAKE MSG.

0
0

;:1F NOT:

ssFINISHED LAST MESSAGE?
:2IF NOT: WAIT
22GET ERROR #
::BUMP RETURN ADDR.
J:TELL APT TO TAKE ERROR
;:CLEAR FATAL FLAG
;sCLEAR LOG FLAG
;sCLEAR MESSAGE FLAG
::POP STACK INTO R1
;:POP STACK INTO RO
2 sRETURN
s JMESSG. FLAG
;:L0G FLAG

J2FATAL FLAG

153

MACRO M1113

CZDRLDO-DR11 GEN NPR INTF(
POWER DOWN AND UP ROUTINE

5932

02-NOV-81 16:08

.SBTTL

L.12
PAGE 138

SEQUENCE

POWER DOWN AND UP ROUTINE

:ngnnrcwucuu:~

034112
000340

000024

-POWER DOWN AND UP ROUTINE
$PWRDN: MOV
#SPWRUP,PWRVEC

034074

000024

$PWRUP: MOV

#SPWRDN,PWRVEC

MOV
MOV

WLEVEL?,=(SP)
#START1.=(SP)

:88 SET UP RETURN PRIORITY TO 7 AND
:R& MOVE START1 ADDRESS TO STACK AND

$TMPO
18
.SPOWER

;88 GIVE TTY TIME TO RECOVER FROM POWER FAILURE
;68 BRANCH BACK UNTIL ZERQ AGAIN
;88 TYPE THE POWER FAILURE MESSAGE ASCIZED BELOW

034162

120

—

-l b

001360

(olelele]

oV
o8N

CDC%ECMDCNDCND

RERE RRRRRERRE

— de e
O
WNIN)
= =O~N

:'ttttttttt.t't.tt.tt'tt.ti"t.tt..tt.t.l.QQ."Q.Q."."Q".Q.QQ'

000026

MOV

HALT

MOV
MOV

1$:

034162
117

$POWER:

CLR

INC
BNE
TYPE
RTI

.Q\SIE'X‘Z

:88 SET UP VECTOR TO RETURN TO THE HALT BELOW

#LEVEL7.PWRVEC+2:82 RETURN PRIORITY TO 7
*:HALT PROCESSOR

88 RESET PWRVEC TO PWRDN ROUTINE AND

#LEVEL7 ,PWRVEC+2:88 PRIORITY TO 7
#STACK , SP
:88 REINITIALIZE THE STACK,

$TMPO

;88 CLEAR WAIT LOOP COUNTER

;88 RETURN TO PROGRAM

<CRLF>/POWER FAILURE = RESTARTING PROGRAM/<CRLF>

154

CZDRLDO=-DR11 GEN NPR INTF(

- MULTIPLE BOARD DIALOGUE ROUTINE

MACRO M1113

5934
5935

5936

001300

5940 034240

104401

040643

5944 034260

5945 034264
5946 034272
5947 034274
5948
5949 034300
5950 034306
5951 034312

5952 034314

004737

105037

104401
012703

004737
022737
001073
1046401

013737
013746
104405

104401

5953 034320
5954 034324
5955 034326
5956 034332
5957 034336
5958 034340
5959 034342
5960 034346

013746
104402
104401
013746
104403
003
104401
032737

5962 034356
5963 034362
5964 034364

104401
000402
104401

5961 034354

5965 03437C
5966 034374
5967 034400
5968 034404
5969 034412
5970 034414
5971 034420
5972 034422

5973 034426
5974 034432
5975 034440
5976 034442
5977 034446
5978 034450
5979 034454
5980 034460
5981 034462
5982 034470
5983 034472
5984 034476
5985 0345
5986 034504
5987 034506
5988 034512
5989 034514

5990 034520

155

ttQttttt.tt..t'ttt""t".tttttttttttttt..t.".t'.'.tt..t'.tt't

0127

5942 034250
5943 034254

SEQUENCE

>>>>>>>HULTIPLE BOARD DIALOGUE ROUTINE<<<<<<«<

5938 034230

5941 034244

Mm12
PAGE 139

.SBTTL MULTIPLE BOARD DIALOGUE ROUTINE
::ttQttt'tQtttt.nttttt""t'tttttttttQttttt.t.Qt.'tttt"ttt"tt.t

5937

5939 034234

(02-NOvV-81 16:08

001403

104401
004737
104401
032737
001003
104401
000402
104401

104401
032737
001403
104401
000402
104401
104401
000671
022737
001020
005737
001003
104401
000657
005737
00177;
004737

012737

HBD.

006610
032555

000114

002720

(37355

037361
002456

002720

037407

10%:

11%:

002720

037420
037422
037370

000004

002720

12%:
13%:

037414
037411

037435
000122

14%:.

)
002664

15%:
1%:

002416
037072

2%:

002456

3s:

003170

177777

0502670

PC, SETTUP

JINITIALIZE THE STACK

GO INITIALIZE THE COMMON TAGS
sTYPE:

°"MULTIPLE BOARD DIALOGUE'

CHARCT

CLEAR LOCATION FOR POSSIBLE INPUT DURING PRINT

PC,-READ

;G0 READ 1 CHARACTER

TYPE
MOV

LECELR
#1,R3

CMP
BNE
TYPE

O'L.ANSUER
1%
JHEADER

TYPE
'ENTER COMMAND (LEJDIT, CLJIST, [BIURST CALIBRATION,
:EXPECT 1 CHARACTER
sLIST PRESENT TABLE?
;BRANCH IF NO
:TYPE:
‘¥ OF
START
3
'SB0ARDS REGADR VECADR
w-B
P-LEV
;SET UP THE DEVICE DESCRIPTOR WORD FOR PRINTING
sMOVE NUMBER OF DEVICES TO STACK FOR TYPING
sTYPE THE NUMBER OF DEVICES

MOV
MOV
TYPDS

$DDW0,DDW
QTYBRD,~(SP)

MOV
TYPOC
TYPE
MOV
TYPOS
BYTE
TYPE
BIT

REGADR,~(SP)

3.0
LSPACE?7
#8170,DDW

sMOVE THE DEVICE REGISTER ADDRESS TO THE STACK
sTYPE THE DEVICE REGISTER ADDRESS
sTYPE 6 SFACE CHARACTERS
sMOVE THE DEVICE VECTOR ADDRESS TO THE STACK
sTYPE THE DEVICE VECTOR ADDRESS
:TYPE 3 CHARACTERS, LEADING ZEROS SUPPRESSED
:TYPE 7 SPACE CHARACTERS
sSEE WHICH W/B STATE FOR BOARDS

TYPE
BR
TYPE

B
118
W

;TYPE A 'B’
Go T0 NEXT CHECK
:TYPE A

BEQ

037405

037370
006560
037370
000002

HBDIAL

TYPE

002416

000
037370
000001

TYPE

JSR

002664

040452
001474
002414

#STACK,SP

JSR

PROMPT: CLRB

040676
000001

002722

MOV

L,SPACE3

,SPACE6
VECADR,=(SP)

108

TYPE
JSR
TYPE
BIT

.SPACE?7
PC,PNTPRI]
L,SPACE?7
#8I1T1,DDW

TYPE
BIT

LSPACE?7
#81T72,DDW

TYPE
BR
CMP
BNE
TST
BNE
TYPE
BR
TST
BEQ
JSR

L,CRLF2
PROMPT
#'R,ANSWER
43
REGADR
3$
MUSTED
PROMPT
VECADR
2%
PC,FIXTBL

BNE
TYPE
BR
TYPE

BEQ
TYPE
BR
TYPE

MOV

128
,TWO
138
N

148
JYES
15%
.NO

#-1 LMANSIZE

CYCLE

2=N

**PE 3 SPACE CHARACTERS

GO PRINT W STATE IF W

TvPE 7 SPACE CHARACTERS
PRINT DEVICE PRIORITY
;TYPE 7 SPACE CHARACTERS
SEE WHICH 2/N STATE FOR BOARDS

co PRINT N STATE IF N
;TYPE
A *'2'
Go T0 NExt CHECK
:TYPE AN

TYPE 7 SPACE CHARACTERS
SEE WHICH CABLE STATE FOR BOARDS
-60 PRINT NO CABLE IF NONE
;TYPE 'YES'
BRANCH ro CONT INUE
;TYPE "NO*
TYPE 2 <CRLF>'S
:BRANCH TO PROMPT ANOTHER COMMAND
;RUN PROGRAM?
JBRANCH IF NOT
sSEE IF REGADR HAS BEEN LOADED
JBRANCH TO CHECK VECADR IF SO
sTYPE:
°‘DEVICE ADDRESS AND/OR VECTOR TABLE NOT SET UP - MUS
JBRANCH BACKX FOR PROMPT MESSAGE
sSEE IF VECADR HAS BEEN LOADED
BRANCH BACK TO PRINT ERROR MESSAGE IF NOT
JFILL TABLE

:HOVE =1 TO MANSIZE TO INDICATE WE HAVE MANUALLY SIZED

—

|
| CZDRLDO=DR11 GEN NPR INTFC

| MULTIPLE BOARD DIALOGUE ROUTINE

5991 034526

3392 03¢3%3

000137

093737

5993 034540 001414

011424

000105

002664
002664

5994 034542
5995 034550
5996 034552

022737
001235
005737

000102

5998 034560
5999 034564
6000 034566

005737
001745
000137

002456

5997 034556

001750

MACRO M.i13

002416

035712

——————————

02-NOv-81 16:08
JMP

N_12
PAGE 139-1
;JUMP TO START

EpIf

:BRANCH TO EDIT IF SO

#'E,ANSWER

C(MP
BNE
TST

#°'B,ANSWER
PROMPT
REGADR

TST
BEQ
JMP

VECADR
2%
BDLCR

BEQ

SEQUENCE

START

CMP

BEQ

EDIT TABLE?

:ENTER BURST DATA LATE CALIBRATION?
:BRANCH TO PROMPT IF COMMAND NOT RECOGNIZED
:SEE IF REGADR HAS BEEN LOADED

:BRANCH TO ERROR MESSAGE IF NOT

:SEE IF VECADR MAS BEEN LOADED
:BRANCH TO ERROR MESSAGE IF NOT
:JUMP TO BURST DATA LATE CALIBRATION ROUTINE

156

-t ) i e O b

=1
~

e 682252

—

ey 3
Y i
NS

oONOTM

FEEPE

SSiessonicegcsgseRs o2

=d=]

EN
2

22
3

Y
-l

NPR INTF(

MACRO M1113

EDIT:

037535
002414

02-NOv-81 16:08
.SBTTL

TYPE

MOV

TYPDS
TYPE

8 13
PAGE 140

.SPACEC
R3

002704

000033

002664

000003

002664

5%
ggNTLC .ANSWER

000015

002664

#CARE TN ,ANSWER

0'6 LRGSTC
PC,READ

32.a3

036407

#ESC,ANSWER

18:

2$:
000020

3s:

002414
040306
002416

4($:

,BDNERR

EDIT
R4
18

#20,R4
18

:MOVE THE PRESENT ADDRESS TO THE STACK FOR PRINTING

,SDADRS

000033

002664

#ESC,ANSWER

000003

002664

#CNTLC,ANSWER

#6 R3

0'7 LRGSTC
PC,READ

#6.R3
8s

EDI
|T

PROMPT

re:

#CARETN,ANSWER

163770

000007
036700

002416

5%:
6$:

160010

-ADRERR

108
L%
R4 ,#160010
63
R4, 4163770
63
#7 R4
9s

+ADLCHR

9%:
108:

;BRANCH BACK FOR NEW INPUT
sCHECK FOR ZERO MODULES INPUT
;BRANCH TO PRINT ERROR MESSAGE IF SO
sSFEE IF BOARD NUMBER IS ILLEGAL

REGADR,
= (SP)

LSPACEC

002664

:BRANCH TO PROMPT JUMP IF SO
sSEE IF USER WANTS TO EXIT (“C)
:BRANCH TO PROMPT JUMP [F EXIT REQUESTED
sSEE IF A <CR> WAS INPUTED
:IF _<CR> USE EXISTING NUMBER
;TVPE:
'ILLEGAL NUMBER (# OTHER THAN 1-16) OR CHARACTER IN®

;BRANCH TO PRINT ERROR MESSAGE IF SO
;MOVE INPUTED NUMBER TO QTYBRD

002704

000015

SEXPECT MAX
OF 2 CHARACTERS
:MOVE ASCII '9' TO THE LARGEST CHARACTER LOCATION
GO READ 2 CHARACTERS
; SEE IF WRIC WAS THE ONLY INPUT
:BRANCH IF NOT
;SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT

R4 ,QTYBRD

037400
000006
000067
002722
000006

034244
036532

157

TABLE EDll ROUTXNE
,NOBUT
TYPE:
°NUMBER OF BOARDS UNDER TEST: *
QTYBRD, = (SP)
:PUT QUANTITY OF BOARDS ON STACK FOR PKINTING
GOP:RINYHE ,LQUANTITY OF BOARDS

037400
000002
000071
002722
000002

mMove

SEQUENCE

4
R4 ,REGADR
SVADRS

VECADR -(SP)
3.0

sTYPE:

STARTING DEVICE ADDRESS:

?R;gl THE ADDRESS

sEXPECT HAXIHUH 6 CHARACTERS
:MOVE ASCII 7' TO THE LARGEST CHARACTER LOCATION
:G0 READ 6 CHARACTERS
sSEE IF NON-NUMERIC CHARACTER INPUTED
:BRANCH
sSEE IF
:BRANCH
sSEE IF
:BRANCH

IF NOT
USER WANTS TO GO BACK TO PREVIOUS PROMPT

AROUND ESC PRINT AND PREVIOUS PROMPT BRANC'' IF SO

USER WANTS TO EXIT (“C)
AROUND PROMPT JUMP IF NOT
:JUMP TO PROMPT A NEW C OMMAND
'TYPE'
"ADDRESS INPUTED IS NOT®
:DPM0O01
'IN THE RANGE 160010 TO 163770° :DPMO01
:BRANCH BACK FOR RE INPUT
sSEE IF <CR> WAS ONLY CHARACTER INPUTED
:1F <CR> USE EXISTING REG ADDRESS
:BRANCH BACK - INPUT NOT LEGAL

;1S ANSWER BELOW 160010

:BRANCH TO PRINT ERROR MESSAGE IF

;1S ANSWER ABOVE 163770

IT IS

:DPMOO1

:DPMO01

:BRANCH TO PRINT ERROR MESSAGE IF NOT
sTEST TO MAKE SURE A "0' IS PRESENT IN LOWEST OCTAL DIGIT
BRANCH AROUND ERROR MESSAGE TYPE IF SO
:
'ADDRESS INPUTED HAS OTHER THAN O FOR LEAST®

'SIGNIFICANT OCTAL DIGIT®

BRANCH BACK FOR REINPUT
s INSTALL NEW # IN TABLE
:TYPE:
'STARTING VECTOR ADDRESS:
*
:MOVE PRESENT VECTOR TO STACK FOR PRINTING

sPRINT_THE PRESENT VECTOR ADDRESS

sTYPE 3 CHARACTERS, SUPPRESS LEADING ZEROS

CZDRLDO-DR11 GEN NPR INTF(C
TABLE EDIT ROUTINE

MACRO M1113

6058 ossoeg
6059 035072
6060 035076
6061 035102

104401
012703
004737
022703

037400
000003
002722
000003

6063 035110
6064 035116
6065 035120
6066 035126
6067 035130
6068 035136
6069 035140
6070 035142
6071 035146
6072 035150

022737
001674
022737
001721
022737
001417
000744
022704
100403
104401

000033

002664

000003

002664

000015

002664

032704

000003

104401

037003

010437
104401

002456
040207

012737
004737
104401
012703
004737
005703
001415

000001
006536
037400
000001
002722

6062 035106

6073 03515¢

6074 035156

6075 035162

6076 035164

001015

000736
001403

6077 035170

000730

6080 035202

013737

6078 035172
6079 035176

000277
(36617

138:

002720

6088 035242 022737 000033

002664

000015

002664

000003

002664

6089 035250
6090 035252
6091 035260
6092 035262
6093 035270

001700
022737
001417
022737
001640

6095 035274
6096 035276
6097 035300

005704
001403
022704

000001

6099 035306

042737

000001

002710

6094 035272 000741

6098 035304 001334
6100 035314
6101 035320
6102 035324
6103 035332

050437
104401
013737
004737

001474
040137
001474
006560

6105 035342

012703

000001

6104 035336
6106 035346
6107 035352
6108 035354
6109 035356
6110 035364
6111 035366
6112 035374
6113 035376
6114 035406

104401

004737
005703
001415
022737
001704
022737
001544
022737
001413

001474

002720

037400

178:

188:

CMP
BEQ
CMP
BEQ
CMP
BEQ
BR
(MP
BM]
TYPE

#ESC,ANSWER
4
#CNTLC,ANSWER
58
#CARETN,ANSWER
158
108
#277 R4
13s
VECERR

*SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
*BRANCH TO PREVIOUS PROMPT x S0
:SEE IF USER WANTS TO EXIT (*C)
:BRANCH TO PROMPT JUMP IF SO
:SEE IF <CR> WAS INPUTED
*BRANCH IF NO CHANGE WANTED
*BRANCH BACK = INPUT WAS ILLEGAL
*SEE IF ANSWER IS BELOW 300
:DPMOO1
*BRANCH AROUND ERROR MESSAGE IF NOT
sTYPE:
°'VECTOR INPUTED IS NOT IN THE RANGE OF 300 TO 777':D

BIT

#3 R4

BEQ
BR

002664

000003

002664

000015

002664

i0s

*BRANCH IF NOT

*BRANCH BACK FOR REINPUT

:MAKE SURE LEAST SIGNIFICANT OCTAL DIGIT IS '0° OR 4’

14$

*BRANCH OVER ERROR PRINTING IF NOT

ios

*BRANCH BACK FOR REINPUT

VCLCHR

STYPE:

°'VECTOR INPUTED SHOULD HAVE O OR 4 AS LEAST DIGIT'

R&, VECADR
DR woB

MOV
JSR
TYPE
MOV
JSR
ST
BEQ

#BITO,BITTST
PC.PSTATE
,SPACEC
#1,R3
PC .READ
R3
168

BEQ
CMP
BEQ
CMP
BEQ

108
#CARETN,ANSWER
18$
#CNTLC,ANSWER
58

*BRANCH TO PREVIOUS PROMPT IF SO
-SEE IF USER WANTS NO CHANGE
*BRANCH IF SO
:SEE IF USER WANTS TO EXIT (“C)
*BRANCH TO PROMPT JUMP IF SO

R&
17%
#1 R4

*CHECK FOR LEGAL INPUT
*BRANCH IF
*CHECK FOR ILLEGAL INPUT

#B1T0,$DDWO

*CLEAR THE BIT TO BE ALTERED

MOV

B8R

TST
BEQ
CMP

$DDWO0, DDW

#ESC.,ANSWER

15s

BNE

158

8IS
TYPE
MOV
JSR

R4, $DDWO
DEVPRI
$DDWO, DDW
PC,PNTPRI

BIC

TYPE

000033

11§

MOV
TYPE

MOV

002722

158

sTYPE:
'
: °
*EXPECT ONLY 3 CHARACTERS
*GO READ 3 CHARACTERS
*SEE IF NON-NUMERIC WAS THE ONLY INPUT

CMP

168:

SEQUENCE

.gPACEC
#3.R3
Pg.nng
3R

TYPE

148:
15%:

¢ 13
PAGE 140-1

TYPE
MOV
JSR
CMP

BNE

118:

00147«

6081 035210
6082 035216
6083 035222
6084 035226
6085 035232
6086 035236
6087 035240

02-NOV-81 16:08

JSR
ST
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ

,SPACEC

#1,R3

PC .READ
R3
198
#ESC,ANSWER
153
#CNTLC.ANSWER
26$
#CARETN,ANSWER
208

*INSTALL NEW VECTOR ADDRESS IN TABLE
TYPE
'DR11-W CR B (W=0, B=1) CURRENT STATE
=

*MOVE DEVICE DESCRIPTOR WORD TO DDW

;MOVE BIT STATE TO PRINT TO BITTST
JPRINT CURRENT W/B STATE
STYPE:
°
SONLY INPUT 1 CHARACTER
:GO READ 1 CHARACTER
*SEE IF NON-NUMERIC WAS THE ONLY INPUT
*BRANCH AROUND NON-NUMERIC TESTS IF SO

:SEE IF USER WANTS TO GO BACK TG PREVIOUS PROMPT

:BRANCH BACK - INPUT NOT LEGAL

*BRANCH BACK IF ILLEGAL STATE INPUTED
*PUT USER INPUT INTO $DDWO
STYPE: °'DEVICE PRIORITY PRESENT LEVEL = °
*MOVE DEVICE DESCRIPTOR WORD TO DDW
*PRINT DEVICE PRIORITY
STYPE:

SONLY INPUT 1 CHARACTER

:GO READ 1 CHARACTER
*SEE IF NON-NUMERIC WAS THE ONLY INPUT
*BRANCH AROUND NON-NUMERIC TESTS IF NOT
*SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT
*BRANCH TO PREVIOUS PROMPT IF SO
-SEE IF USER WANTS TO EXIT (*C)
*BRANCH IF EXIT WANTED
:SEE IF <CR> INPUTED FOR NO CHANGE WANTED
*BRANCH IF NO CHANGE WANTED

CZDRLDO-DR11 GEN NPR INTFC
TABLE EDIT ROUTINE

6115 035406
6116 035410
6117 035412
6118 035414
6119 035416
6120 035420
6121 035422

000744
006304
006304
006304
304
006304
042737

000340

6123

035434

104401

040051

6125 035446

012737

000002

6127 035460
6128 035464
6129 035470

104401
012703
004737

037400
000001
002722

MACRO M1113

198:

612% 035430 050437 001474

001474

6124 035440 013737 001474 002720

6126 035454 004737 006536
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

005703
001415
022737
001704
022737

001473
022737
001414
000741
005704
001403
022704
001334
006304
042737

6145 035554 050437
6146 035560 104401
6147 035564 013737
6148 035572
6149 035600

012737
004737

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 035
6164 035662

012703
004737
005703
001415
022737
001700
022737
0014%1
022737
001415
000741
005704
001403
022704

6166 035670
6167 035672
6168 035674
6169 035702
6170 035706

006304
006304
042737
050437
000137

6150 035604

104401

6165 035666 001334

208:

002710

000033

002664

000003

002664

000015

002664

000001

001474
040373
001474

000004
006536

001474

002720

22%:

23$:

002710

TYPE

TORNCB

BIS

Mov

000033

002664

000003

002664

000015

002664
248:

000001

25%:
001474
26$:

18$
Ré4

$DDWO, DDW

MoV

#BIT1,BITTST

TYPE
MoV
JSR

.SPACEC
#1,R3
PC,READ

TST
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
BR
TST
BEQ
CMP
BNE
ASL
BIC

BIS
TYPE
MoV
TYPE

000001
002722

000004
001474
034244

R4
R4
R4
R4
lLEVEL? $ODWO

MoV
JSR

037400

D13
PAGE 140-2

BR
ASL
ASL
ASL
ASL
ASL
BIC

JSR

21$:

(00002

02-NOV-81 16:08

PC,PSTATE

R3
21%
#ESC,ANSWER
18%
#CNTLC,ANSWER

26$
#CARET
| ,ANSWER
23$
208
R4
22%
#1,R4
208
R4
#81T71,$DDW0

R4, $DDWO
pOCTS
£DDWO, DDW

#BIT2,BITTST
PC,PSTATE

L SPACEC

MoV
JSR
TST
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
BR
TST
BEQ
CMP

#1,R3
PC.READ
R3
248
#ESC,ANSWER
208
#CNTLC,ANSWER
268
#CARETN ,ANSWER
26$
23$
R4
25%
#1.R4

ASL
ASL
BIC
BIS
JMP

R4
R4
#8172,$DDW0
R4, $DDWO
PROMPT

BNE

238

SEQUENCE

159

sBRANCH BACK = INPUT NOT LEGAL
sPUT PRIORITY IN PROPER POSITION
;BY SHIFTING TO THE LEFT 5 PLACES

;CLEAR OLD PRIORITY

:SET PRIORITY INTO DEVICE DESCRIPTOR WORD
:TYPE:

"2 OR N CYCLE BURST (2 CY=0, N CY=1) PRESENT STATE
=

:MOVE DEVICE DESCRIPTOR WORD TO DDW
:MOVE BIT STATE TO PRINT TO BITTST

:PRINT 2/N CYCLE STATE

sTYPE:
;ONLY ONE CHARACTER TO INPUT
:READ 1 CHARACTER

:SEE IF NON-NUHERIC 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)
:BRANCH IF USER WANTS TO EXIT
;SEE IF USER WANTS NO CHANGE
:BRANCH IF USER WANTS NO CHANGE
:BRANCH BACK - USER INPUT NOT LEGAL
sCHECK FOR LEGAL INPUT
:BRANCH IF OK
:CHECK FOR ILLEGAL INPUT
sBRANCH BACK IF ILLEGAL STATE INPUTED
sSHIFT BIT OVER 1 PLACE
;CLEAR OLD STATE

;SET THE USERS INPUTED STATE TO $DDWO
sTYPE: 'DO CABLE TESTS (NO=0, YES=1) PRESENT STATE
=
:MOVE DEVICE DESCRIPTOR WORD TO DDW
sMOVE BIT STATE TO PRINT TO BITTST
sPRINT CABLE STATE

sTYPE:

:INPUT ONLY 1 CHARACTER
:GO INPUT 1 CHARACTER
:SEE IF 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)
:BRANCH IF USER WANTS TO EXIT
;SEE IF USER WANTS NO CHANGE
:BRANCH IF USER WANTS NO CHANGE
:BRANCH BACK - USER INPUT NOT LEGAL
sCHECK FOR LEGAL INPUT
:BRANCH IF 0K
:CHECK FOR ILLEGAL INPUT

sBRANCH BACK IF ILLEGAL STATE INPUTED
sSHIFT INPUTED BIT OVER 2 PLACES

sCLEAR BIT TO BE CHANGED
;SET THE USERS INPUTED STATE TO $DDWO
:JUMP TO GET NEW DEVICE NUMBER

MACRO M1113

CZDRLDO-DR11 GEN NPR INTF(

BURST DATA LATE CALIBRATION ROUTINE

(02-NOV-81 16:08

.SBTTL

E 13

PAGE 141

SEQUENCE

160

BURST DATA LATE CALIBRATION ROUTINE

AR AR AR AR AAAAR RN RN ARRAAARAAAAAAAAAAARAAAA
AR AR
ARTS

>>>>>>>BURST DATA LATE CALIBRATION ROUTINE<<<<<<<<
AL A

—a

o
S

&~
N
~N

4$:

002522

5%:

&S
o~
o~

~
~
~N

144522

002660
144426

002660

6$:
7$:

ittt

idid

sMOVE -1 TO MANSIZE

TYPE

.BDLCRM

;TYPE:

PC,FIXTBL

ittt

idd])

GO FILL TABLE
TYPE

"BURST DATA LATE CALIBRATION'

'ATTACH SCOPE PROBE..."
'TO CALIBRATE NEXT BOARD,

TYPE ANY CHARACTER'

MOov
MOV
MOV
CLR
BIT
BNE

#81T0,DEVMSK
#VECADR,RO
#REGADR,R1
SUNIT
DEVMSK ,SDEVM
58

SET UP BIT MASK TO TEST $DEVM FOR DEVICES
:MOVE VECADR TO RO
:MOVE REGADR TO R1
sCLEAR SUNIT
:CHECK TO SEE IF DEVICE IS TO BE TESTED
:BRANCH
IF SO

BPL

‘s

:BRANCH TO CONTINUE IF NOT SET

DEVMSK

,BCDONE

JMP

PROMPT

INC

SUNIT
2%

CMP
ASL

BR
MOV

(RO)+,(R1)+
DEVMSK

(R1),CSR

ADD

#6,CSR

TYPE

,DEVICE

Mov

037511

#-1,MANSIZE

JSR

MoV

001422

MOV

TYPE

002544
001422
002522
000304

TST

036477
034244

887
S8

~N NONSBNHON=SNNVWO
=
~NW INOO & CWNNANNROWND
NN NN=VON
= NNNNNN= =

2$:

002544

001466

017737

—

BDLCR:

002544

143236

oNrN

gEE

=
N

&
o
333
g

NONO NN~
W WNOOW
NWVWNN=ON

§2§

WO
gsssses

WV =2 (NN

—
=

88328
wvwinsrown g RRGR= R28SS%

SoG NN
~
332 3
~N

WWNN

r—Y=1=1WNNN

8% ®

OO0

=l=l=]

R8R
8

%00,
2

2
006

—
—

) —

—

(o YoYo Yo )

—a

002670

AL AL

(RO) ,DRINV

$UNIT,=(SP)

TYPDS
TYPE
JSR

,UCAL
PC,CLENUP

MoV

#77,TIME

CLR

BIS
DEC

BNE

TSTB
BPL
MoV

aCsR

sSEE IF BIT 15 IS SET
:TYPE:

‘BURST CALIBRATION COMPLETE'

:JUMP TO PROMPT A NEW COMMAND
s INCREMENT THE TWO POINTERS
sUPDATE DEVICE MAP TEST MASK

s INCREMENT UNIT NUMBER
;50 TEST NEXT BIT OF DEVICE MASK

sPUT UUT CSR ADDRESS INTO DEVICE CSR LOCATION
sPOINT CSR TO CSR ADDRESS

:PUT UUT VECTOR ADDRESS INTO DEVICE DRINV
sTYPE:

°'DEVICE
#

:PUT UNIT NUMBER ON STACK FOR TYPEOUT

:GO TYPE THE UNIT NUMBER IN DECIMAL
sTYPE:
' UNDER CALIBRATION'
sSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI

:CLR_CYCLE BIT

;MOVE WAIT LOOP COUNTER TO TIME

#CY.aCSR

sSET CYCLE BIT

:BRANCH BACK IF NOT ZERO YET

TIME

a$TKS
6$
aTKB, TIME

TO 7

sSUBTRACT 1 FROM TIME UNTIL ZERO
:1S A CHARACTER WAITING INDICATING USER WANTS TO GO ON?
:BRANCH IF NOT
:WASTE THE CHARACTER, CLEARING THE CHARACTER FLAG

;GO ON TO NEXT BOARD

CZDRLDO-DR11 GEN NPR INTF(C

MACRO M1113

ASCII AND ASCIZ MESSAGES AND LOCATIONS

621%
6213 036120
6214 036173
6215 0}6%54
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 03741
6241 037414
6242 037420
6243 037422
6244 037424
6245 037435
6246 037440
6247 037511
6248 037535
6249 037574
37660
6251 037751
6252 040051
6253 040137
6254 040201
6255 040252
6256 040306
6257
040341
6258 040373
6259 040452
6260 04054
6261 04064
6262 040676
6263 040775
64 041063
6265 041151
66 041233
6267 041302
6268 047357

200
136
200
136
040
m
102
101
126
101
126
074
200
115
040
156
104
200
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
12
200
125

1%3
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
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

.SBTTL
STKIFL: .ASCIZ
ERCHDR: .ASCII
.ASCIZ
NODATA: .ASCIZ
ETDEV:
.ASCIZ
BDNERR: .ASCIZ
BCDONE: .ASCIZ
ADRERR: .ASCIZ
VECERR: .ASCIZ
ADLCHR: .ASCIZ
VCLCHR: .ASCIZ
ESCAPE: .ASCIZ
MUSTED: .ASC!]
.ASCIZ
LETNCR: .ASCIZ
CNTRLC: .ASCIZ
DEVICE: .ASCIZ
BDLCRM: .ASCII
.ASCII
.ASCIZ
SPACES: .ASCIZ
SPACE3: .ASCIZ
SPACE6: .ASCIZ
SPACE7: .ASCIZ
SPACEC: .ASCIZ
B:
LASCIZ
W:
LASCIZ
NO:
LASCIZ
YES:
LASCIZ
TWO:
.ASCIZ
N:
LASTIZ
BOARD:
.ASCIZ
CRLF2:
.ASCIZ
BCFIN:
.ASCIZ
UCAL:
.ASCIZ
NOBUT:
.ASCIZ
BRVWPC: .ASCII
LASCII
.ASCIZ
TORNCB: .ASCIZ
DEVPRI: .ASCIZ
DR1wW0OB: .ASCIZ
SVADRS: .ASCIZ
SDADRS: .ASCIZ
TSTCOM: .ASCIZ
DOCTS:
.ASCIZ
HEADER: .ASCII
.ASCIZ
MBDIAL: .ASCIZ
ECELR:
.ASCIZ
NOMORE: .ASCII
LASCIZ
NODVPR: .ASCII
LASCIZ
m
LASCII
LASCIZ

F 13

PAGE 142

SEQUENCE

161

ASCII AND ASCIZ MESSAGES AND LOCATIONS

<CRLF>/STACK IS 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 O FOR LEAST SIGNIFICANT OCTAL DIGIT/

;!Eg{g’ INPUTED SHOULD HAVE 0 OR 4 AS LEAST DIGIT/

<CRLF>/DEVICE ADDRESS AND-OR VECTOR TABLE NOT SET UP - /

;nysr EDIT FIRST/
/*C/
/DEVICE # /

<CRLF>/BURST DATA LATE CALIBRATION/
<CRLF>/ATTACH SCOPE PROBE.../

7CR5F>/TO CALIBRATE NEXT BOARD,

TYPE ANY CHARACTER/<CRLF>

A
/
/
/
/
/7
s /
/B/
/w/
/NO/
/YES/

/2/

/N/
/BOARD # /
<CRLF><CRLF>
<CRLF>/ALL BOARDS CALIBRATED = BEGINNING TEST/<CRLF>
/ UNDER CALIBRATION/<CRLF>
<CRLF>/NUMBER OF BOARDS UNDER TEST: /
<CRLF><CRLF>/DIAGNOSTIC HAS DETERMINED ThHE FOLLOWING ABOUT THE/<CRLF>

/DR11-W(S) IT HAS FOUND.
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
<CRLF>/BOARDS
REGADR
VECADR
w-8
P-LEV
<CRLF><CRLF>/MULTIPLE BOARD DIALOGUE/<CRLF>

CYCLE

2-N
CABLE/
TESTS/<CRLF>

<CRLF>/ENTER COMMAND (LEIDIT, CL]IST, [BJURST CALIBRATION, [RIJUN):
/THERE ARE STILL MORE ERRORS, BUT WILL NOT BE PRINTED./<CRLF>
/ERRORS WILL STILL L BE COUN756 AND PRINTED AT THE EOP./<CRLF>
<CRLF>/NO DEVICES R RECOGNIZED = DIAGNOSTIC CANNOT BE RUN/<CRLF>
/RESTART AT 204 1|
A DEVICE IS PRESENT/<CRLF>
<CRLF>/(*X) INHIB TS EOP'S, (*Y) FOR ERROR SUMMARY/<CRLF>
/UNIBUS HANG?
RE S TAR T AT ADDRESS /

CZDRLDO-DR11 GEN NPR INTF(C

MACRO M1113

ASCII AND ASCIZ MESSAGES AND LOCATIONS

6269
0414;1
6271 041554
6272 041576
6273 041617
6274
6275 041640
6276 041642
6277 042642
6278 042644
6279 042646
3646
6281 043650
6282 044650
6283 (44652
6284 047132

200
105
104
054
054

200
117
105
040
040

103
120
126
126
120

02-NOV-81 16:08

MiA:
BARADR:
TSNUMB:
PASNUM:

000C00

.SAV:

000000
0462644

BUFF:
XINBUF:

043646

XCHKBU:

044652

CAPNTR:
CAPSTK:
ENDSTK:

000000

LASCII
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.EVEN
.WORD
.BLKW
.WORD
.
.BLKW
.
.BLKW
.WORD
.BLKW
.WORD

G 13

PAGE 142-1

SEQUENCE

<CRLF><CRLF>/CZDRLDO DR11

162

GEN NPR INTFC LOGIC TEST/<CRLF>

/EOP MSG WILL PRINT EVERY 20 SECONDS APPROXIMATELY/<CRLF>

/DEVICE ADDRESS = /
/, TEST NUMBER - /
/., PASS NUMBER = /

400

400
400
CAPSTK

600.

sLOCATION TO HOLD POINTER FOR CAPTURE STACK
sLOCATIONS TO STORE UP TO 150 DECIMAL PASSES AND THEIR ERROR

sFLAG SIGNALING END OF THE STACK

CZDRLDO-DR11 GEN NPR INTFC

MACRO M1113

ERROR MESSAGES

6285
6286 047134
6287 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
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
6322 051314
6323 051352
6324 051427
6325 051444
6326 051511
6327 051570
6328 051631
329 051657
6330 051674
6331 051714
6332 051752
6333 052002
6334 052041
6335 052124
6336 052173
6337 052233
6338 052304
6339 052347
6340 052377

124
103
104
11
m
m
11
122
101
122
101
103
103
105
122
101
101
105
102
122
102
102

105
101
122
116
116
116
116
105
124
105
124
123
123
m
105
124
124
122
m
105
m
m

123
116
061
111
111
111
111
123
126
123
126
122
122
122
101
126
126
122
124
101
126
126

EMI:
EM2:
EM3:
EM4:
EMS:
EMé6:
EM7:
EM10:
EM11:
EM12:
EM13:
EM14:
EM15:
EM16:
EMI17:
EM20:
EM21:
EM22:
EM23:
EM24:
EM25:
EM26:

102
101
102
102
102
122
122
122
122
104
104
105
106
103
124
104
105
127
102
102
104
102
124
125
103
104
062
115
103
102

104
114
104
104
104
105
105
105
105
122
122
122
125
123
122
122
130
103
101
101
101
125
117
116
123
122
055
125
123
104

122
114
122
122
122
101
101
101
101
061
061
122
116
122
101
061
120
125
122
104
126
109
117
105
122
061
116
114
122
122

EM32:
EM33:
EM34:
EM35:
EM36:
EM37:
EM40:
EMé41:
EM42:
EM43:
EM44:
EM45:
EM46:
EM47:
EM50:
EM51:
EM52:
EM53:
EM54:
EM55:
EM56:
EM57:
EM60:
EM61:
EM62:
EM63:
EM65:
EM66:
EM202:
EM211:

127
106
104

103
125
123

122
116
126

EM27:
EM30:
EM31:

02-NOV-81 16:08
.SBTTL
LASCIZ
+ASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

H 13
PAGE 143

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/
/ATTEMPT TO SET ALL BAR BITS TO 1 FAILED/
/CSR BIT TEST FAILED (FATAL - DIAGNOSTIC NOT CONTINUED)/
/CSR BIT VEST FAILED/
/EIR BIT TEST FAILED/
/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 O OF THE BAR WAS SET/
/BIT PATTERN TEST FAILED IN BAR/
/WCR DATA PATTERN NOT CORRECT/
/FUNCTION BIT(S) ARE NOT CLEAR/
/DSTAT A, B OR C ARE NOT AS EXPECTED/
/BDR IS NOT CLEAR/
/ALL BDR BITS ARE NOT SET/
/BDR FAILS TO HOLD A BIT PATTERN/
/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/
/ERROR BIT SHOULD NOT BE CLEAR/
/FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE/
/CSR IS 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 WONDS WERE TRANSFERED/
/UNEXPECTED TRAP OR INTERRUPT TO TRAP 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(

MACRO M1113

DATA HEADERS

6341
632 052ub6
6343 052464
6344 052503
6345 052544
6346 052613
6347 052657
6348 052726
6349 052772
6350 053046
6351 053075
6352 053161

6355 053210

6354 0532764
6355 053350
6356 0534264
6357 053500
6358 053554
6359 053620
6360 053717
6361 053776
6362 054056
6363 054143
6364 054172
6365 054241
6366 054312
6367 054372
6368 054421
6369 054470
6370 054527
6371 054576
6372 054645
6373 054724
6374 055010
6375 055064
6376 055130
6377

105
126
124
124
124
124
104
124
040
124
040

130
105
105
105
105
105
105
105
040
105
040

120
123
123
123
123
123
123
123
040
123
040

OW1:

124
124
124
124
124
124
124
040
1264
040
124
126
124
103
126
124
124
124
124
124
124
124
124

105
105
105
105
105
105
105
040
105
040
105
105
105
123
105
105
105
105
105
105
105
105
105

123
123
123
123
123
123
123
040
123
040
123
123
123
122
123
123
123
123
123
123
123
123
123

DH17:
DH23:
DH26:
DH34:
DH43:
DHS0:
DH56:
DH57:

124

105

123

DH2:
DH3DH4:
DHS:
DH6:
DH7:
DH14:
DH16:

DH60:
DHé1:
DH62:
DH63:
DH64:
DH65:
DH66:
DH202:
DH203:
DH207:
DH210:
DH211:

02-NOV-81 16:08
.SBTTL
ASCII
TASCIZ
-ASCIZ
-ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
-ASCII
"ASCIZ
-ASCII

"ASC1Z

-ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
"ASC1Z
-ASCII
TASCIZ
.ASCIZ
-ASCII
TASCIZ
.ASCIZ
-ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
-ASCIZ
.ASCIZ
-ASCIZ
"EVEN

113

PAGE 144

SEQUENCE

164

DATA HEADERS
/EXPCTD
/TEST #

RECVD/<CRLF>
TEST #/

/TEST #
/TEST #

ERR PC
ERR PC

ERR PC

#
#
#
#
#
#
#
#

ERR
ERR
ERR
ERR
ERR
ERR
ERR
ERR

/TEST
/TEST
/TEST
/TEST
/
/TEST
/
/TEST
/TEST
/TEST
/TEST
/TEST
/TEST
/TEST
/TEST
/
/TEST

#
#
#
#

#
/
/TEST #
/TEST #
/TEST #
/CSRRCV
/TEST #
/TEST #
/TEST #

/TEST
/TEST
/TEST
/TEST

#
#
#
#

/TEST #
+TEST #

ERR
ERR
ERR
ERR

PC
PC
PC
PC

PC
PC
PC
PC
PC
PC
PC
PC

ERR PC
ERR PC
ERR PC
ERR PC
BAREXP
ERR PC
ERR PC
ERR PC
ERR PC
ERR PC
ERR PC
ERR PC
ERR PC
ERR PC

ABRTPC
EXPMOD

REGISTER/
ACTMOD
CSRADR/
WCRADR
WCRCONTENTS/
BARADR BAREXP BARRCV/
BDRADR
BDRCONTENTS/
CSRADR
(CSREXP
(CSRCONTENTS/
BIT(S)/<CRLF>
TESTED
CSRADR
CSREXP
C(SRCONTENTS/
BIT(S)/<CRLF>
TESTED
EIRADR
EIREXP
EIRCONTENTS/
CSRADR
CSREXP
CSRCONTENTS/
WCRADR WCREXP WCRCONTENTS/
BARADR
BAREXP BARCONTENTS/
BDRADR BDREXP BDRCONTENTS/
CSRADR
CSRCONTENTS/
WCRADR
WCREXP
WCRRCYV BARADR
BAREXP
BARRCV/
NPRIAD
NPR1EX
NPRIRC ' CSRADR/
CHECK
CHECK
INPUT
INPUT/<CRLF>
BUFADR
BUFDAT
BUFADR
BUFDAT
(SRADR/
DIDNOT/<CRLF>
EXPECT
ADRESS
WCRADR
OLDPC
WCRADR
WCREXP
BARRCV/
EXPLVL
RCVLVL
EXPLVL
CSRADR/
CSRADR
EIREXP

PATERN
CSRADR
CSRADR
PATERN

WCRADR
WCRADR

CSRADR/
TRAP ADR/
WCRRCV
CSREXP

CSRADR/

EIRRCV/
CSRRCV/
CSREXP
C3RRCV/
CSREXP
CSRCONTENTS/
CSRCONTENTS/
WCRCONTENTS/
WCREXP
WCRRCV
BDREXP
BDRRCV

CSRADR
PATLDD
PATERN
CSRADR

BAREXF

BARRCV/

CZDRLDO-DR11 GEN NPR INTFC

DATA TABLES

MACRO M1113

02-NOV-81 16:08

J 13
PAGE 145

6378
6379 055240

001362

001414

000000

OT1:

.SBTTL
.WORD

DATA TABLES
STMP1,STESTN,O

6381 055260
6382 055274
6383 055306

001414
001414
001414

001316
001316
001316

001362
002516
0025%0

DT3:
DT4:
DT5:

.WORD
.WORD
.WORD

STESTN.SERRPC.STMP1,B80RW,CSR,0
STESTN,SERRPC.WCR,RWCR,0
STESTN,SERRPC.BAR,EBAR,RBAR,0

001316

0025%2

001316

002536

6380 055246

001414

6384 055322 001414
6385 055334

001414

6387 055366

001414

6389 055420
6390 055436

001414
001414

6392 055464
6393 055476

001414
001414

6398 055606
6399 055632

001414
001414

6386 055350 001414
055404

001414

6391 055450 001414
639, 055520
6395 055536
6396 055556
6397 055572
6400 055646

6401 055660
6402 055674
6403 055710

6404 055726
6405 055744

6406 055760
6407 055772

001414
001414
001414
001414

001414

001414
001414
001414

001414

001316 00267

001316 002526
001316
001316

001316
001316

001316

001316
001316

001316
001316
001316
001316

001316
001316

001316

001316
001316
001316

001316

002536
002522

002516
002520

002524

002522
002516

002606
001370
001364
002516
002516
002552

001362

002522
002604
002522

002522

001362

002516

DY%:

DT6:

.WORD

DT17:

.WORD

DT16:

.WORD

DT14:
DT17:

.WORD

DT23:
DT26:

.WORD
.WORD

DT43:
DT50:

.WORD
.WORD

DT34:

DT56:
DT57:
DT60:
DT61:

DT62:
DT63:

DT64:

DT65:
DTS&6:
DT202:

DT203:

DT207:

DT210:

DT211:

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

.WORD

STESTN,SERRPC,OLDPC1,DREG,0

STESTN,SERRPC.BDR,RBDR,0

STESTN,SERRPC,CSR,ECSR,RCSR,0

STESTN,SERRPC.BUT,CSR,ECSR,RCSR.0

STESTN,SERRPC,BUT,CSR,EEIR REIR.O

STESTN.SERRPC,CSR.ECSR,RCSR,0

STESTN,SERRPC,WCR,EWCR,RWCR,0
STESTN,SERRPC.BAR.EBAR.RBAR,

STESTN.SERRPC.BDR.EBDR.RBDR.,0

STESTN,SERRPC,CSR,RCSR,0
STESTN,SERRPC,WCR,EWCR,RWCR,BAR,EBAR,RBAR,0

STESTN.SERRPC.ANPR1,ENPR1,NPR1,(SR,0
STESTN,SERRPC,STMP4.STMP2,STHPS $TMP3,CSR,0
STESTN.SERRPC.S$TMP2.$TMP3,(CSR,0
STESTN.SERRPC.WCR,OLDPC2,BDVECT,0

STESTN,SERRPC.WCR,EWCR,RWCR,ECSR,RCSR,EBAR,RBAR,0
STESTN,SERRPC.DRLEV,LEVEL,CSR,0

STESTN.SERRPC.STMP1,CSR,0

STESTN,SERRPC,CSR, EEIR REIR,0
STESTN.SERRPC.ENPR1,CSR,RCSR,0
STESTN.SERRPC.CSR,BUT,ECSR,RCSR,0

STESTN.SERRPC.CSR.S$TMPO,ECSR,RCSR,0
STESTN.SERRPC.$TMP1,CSR,RCSR.0

STESTN.SERRPC.WCR,RWCR,0

STESTN,SERRPC,WCR,EWCR,RWCR,EBDR,RBDR,EBAR,RBAR,0

SEQUENCE

165

CZDRLDO-DR11 GEN NPR INTFC

BUS HANG ROUTINE

6408
6409 056013
6410 0560

6411 056026
6412 056030

104401
013746
104402
104401

MACRO M1113

02-NOv-81 16:08

.SBTTL
UBHANG: TYPE
MOV

041554
002516

TYPOC
TYPE

041576

6413 056034 013746 001414

MOV

6415 05
6416 05

.BYTE
TYPE

6414 05

6417 05

6418 05
6419 056060
6420 056062
6421 056066

6422
6423
6424

&%g

104403
002
104401

000
041617

013746
104414
104401
000000

001416

013746

000137
177777
000000
000001

TYPOS

002716

MOV

MOV
TYPDE
TYPE
HALT

001405

011420
177777

177777

JMP
WORD
NOCARE: .WORD
-

K13
PAGE 146

SEQUENCE

BUS HANG ROUTINE
.BARADR
;TYPE:
°'DEVICE ADDRESS - '
WCR,=(SP)
:PUT DEVICE ADDRESS ON STACK
NUMB

fTESTN.-(SP)
UM

fPASSZ =(SP)
$PASS, = (SP)

;GO TYPE IT _IN OCTAL
;TYPE:
', TEST NUMBER -

:PUT TEST NUMBER ON STACK
:GO TYPE IT IN OCTA

;TYPE 2 DIGITS, LEADING ZERCS SUPRESSED
;TYPE:
', PASS NUMBER

:MOVE OVERFLOW NUMBER TO THE STACK

:PUT_PASS NUMBER ON STACK
:GO TYPE IT IN EXTENDED DECIMAL
sTYPE A <CRLF>
sWHOA = YOU GOTTA SERIOUSA PROBLEMA, BUDDY!

:JUMP TO RESTART PROGRAM
=1,-1,-1,-1
s TAKE UP SOME SPACE (APT HACK)
:LOCATION FOR USE WHENEVER CYCLE BIT OF CSR IS USED. THIS

sSHOULD *ALWAYS* BE THE LAST WORD LOCATION IN THIS DIAGNOSTIC

166

r—

CZDRLDO=DR11 GEN NPR INTF(

MACRO M1113

SYMBOL TABLE

(02-NOV-81 16:08

ABASE = 172410

AUNIT = 000000

BuUT

ADDR
002646
ADDWO = 000000
ADDW1 = 000000
ADDW10= 000000
ADDW11= 000000
ADDW12= 000000

8
BAR
BARADR
BCDONE
BCFIN
BDFAIL

037405
002520
041554
036477
037440
002666

CAT
= 157777
CATCH
006466
(BITO = 1
6
CBIT1 = 177775
(BIT10= 175777
CBIT11= 173777

ADDW14= 000000
ADDW15= 000000

BDLCRM
BONERR

037212
036407

ACDW1 = 000000
ACDW2 = 000000
ACPUOP= 000000

ADDW13= 000000

ADDW2 = 000000
ADDW3 = 000000
ADDW4 = 000000
ADDWS = 000000
ADDW6 = 000000
ADDW?7 = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
EVM = 000000
ADLCHR 036700
ADRERR 036532
AENV = 000000
AENVM = 000000

AFATAL= 000000
AMADR1=
AMADR2=
AMADR3=
AMADR4=

000000
000000
000000
00000C

AMAMS 1= 000000

AMAMS2= 000000
AMAMS
3= 000000
AMAMS4= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000

AMTYP3=
AMTYP4=
ANPR1
ANSWER

000000
000000
002606
002664

APTENV=
APTSIZ=
APTSPO=
ASIZE
ASK4PR
ASK4VC
ASWREG=

000001
000200
000100
005416
005056
004742

APASS = 000000
APRIOR= 000000
APTCSU= 000040

AT
= 020000
ATESTN= 000000

AUSWR = 000000
AVECT1= 000300
AVECT2= 000000

BOLCR

035712

BDONUMB
BDR
BDVECT
BEGIN
BEGIN1
BITTST
BITO =
BIT00 =
B8IT01 =
BIT02 =
BITO3 =
BIT04 =
BITOS =

006122
002524
002542
011674
012356
002710
000001
000001
000002
000004
000010
000020
000040

BIT06 = 000100

B8IT07 = 000200

002536

003644
003546
003624
003716
004062
003736

DSWR
pT1
DT14
DT16
D117
D12

= 177570
055240
055350
055366
055404
055246

000

DBC
= 003000
DDISP = 177570

002720
037200
002544
040137
052446
053046
053161
053274
052503
054645
054724
055010
055004

CDSA

DHZ23

053350

CDBC

= 174777

= 173777

BIT12
BIT13
BIT14
BIT15
8175
BIT3
BIT4
BITS

=
=
=
=
=
=
=
=

010000
020000
040000
100000
000004
000010
000020
000040

CFNC
=
CF1
=
CF2
=
CF3
=
€GO
=
CHARCT
CHKBFF
CHKBUF

177761
177775
177773
177767
177776
032555
003330
002620

037424
002610
004154

(MA
=
167777
CNTLC = 000003
CNTRLC
037175

= 000003
004216
000014
BPTVEC= 000014
BRVWPC 037574
BRWAIT 002626
BUFF
042642

DATCHX
DATCH1
DATCHZ
DATOCK
DATOCX
DATOC1

DDW
DEVICE
DEVMSK
DEVPRI
DH1
DH14
DH16
DH17
DH2
DH202
DH203
DH207
DH210

175777
176777
170777
Q77777

BPINIT

CBIT15= 077777
(BIT2 = 177773
(BIT3 = 177767
(BIT4 = 177757
(BITS = 177737
(BIT6 = 177677
(BIT7 = 177577
(BIT8 = 177377(BIT19 = 176777
(B1513= 057777
ccy
= 177377
CDAB = 171777
CDAC
= 172777
=
=
=
=

BOARD

DSA

DATOC?2

(BIT13= 157777
CBIT14= 137777

(DSB
CDSC
CDST
CEIR

000100
000200
000400
001000

= 000400

CBIT12= 167777

000400
001000
000002
002000

=
=
=
=

DAB
= 006000
DAC
= 005000
DATCHK 003526

=
=
=
=

BIT6
BIT7
BIT8
BIT9

SEQUENCE

CAPNTR 044650
CAPSTK 044652
CARETN= 000015

BITO8
BIT09
BIT1
BIT10

BIT11 = 004000

L 13
PAGE 146-1

CER

= 077777

CHKCAB
CIE
=
CKSWR =
CLENUP

003670
177677
104407
003646

= 137777
032654
= 000015
CRLF _ = 000200
CRLF2
037435
CRY
= 177577
(SR
00;522

BPTINT
BPTVCT

CPSAVE

BUFLEN 002622
BUSERR= (00004

(x¢
(x?

= 177757
=177737

DH211

055130

DSB8
pSC
DST

D1202

004

= 002
= 001000
= 007

D1203
D1207

D1210
DT211
D123
DT26
DT3
DT34
DT4
DT43
DTS
D150
DT56
D157
DTé
DT60

DT61

055710

055726
055744

055760
055772
055420
0554
055260
055450
055274
055464
055306
055476
055520
055536
055322

055556

055572

DH26
DH3
DH34
DHé

053424
052544
053500
052613

DT62
DT63
DT64
DT65

DH5
DH50
DH56
DH57
DHé
DH60
DH61
DH62

052657
053620
053717
053776
052726
054143
054241
054312

DT?
DYWTLT
EBAR
EBDR
ECELR
ECSR
EDIT
EEIR

055334
01
002600
002576
040676
002572
034572
002574

DH?
DIOMEM
DISPLA

052772
002614
001342

EM1
EM12
EM13
EM14
EM15
EM16

047477
047542
047574

DH43

DH63
DH64
DH65
DH66

DISPRE
DOCTS
DOWEPR
DREG
DRGET
DRINV
DRLEV

DRVS
DR1WOB

053554

054421
054470
0545;7
054576

000174
040372
026072
002550
004%32
002 gb
0025 S
00253
040201

DT66

EIR
=
EMTVEC=
M1
EM10

EM17
EM2
EM20
EM202
EM21
EM211

055606
055632
055646
055660

055674

100000
000030
047134
047445

047644
047733
047757
050003
047162
05007;
05234
050140
052377

167

IBSAVE

= 000011

= 000100

OLDPC1
OLDPC2
OLDPS1
OLDPS2
OUTORG

033224

SPACE3

SPACE6

SPACE?7

PASCNT
PASNUM
PATCHS
PATRNS
PFECH

047315
051444
051511
051570

PFECH3

PFECH4
PIRQ
=

036173

002274
000033
037064
036350

STACK =
STAD
STAGIN
START
START1
STKIFL
036120
STKLMT=
SVADRS

PFECH]
PFECH2

051631

MMPS =
MMRO =
MMVECT=
SG

000252
177572
000250
002644

041302

MUSTED

037072

ER200
=
ESC
ESCAPE
ETDEV

SCOPE
SDADRS
SDRINV
SDRVS
SETTUP
SPACEC
SPACES

OUTRAN

051427

ERRCNT 002714
ERROR = 104
ERRVEC=

OFL

Sw9

nonnn

NXTTST

nnn

ERRCHK

040

051657
EM54
051674
EM55
051714
EM56
EM57
051752
EM6
047346
EM60
052002
052041
EM61
052124
EM62
EM63
052173
052233
EM65
EM66
52304
047377
EM7
ENDEV
025622
ENDSTK 047132
ENPR1
2604
EOPLGC 002706
EOPRSM 032504
ER
= 100
ERCAPT 003126

ERCHDR

N0OBD
NOBUT
NOCARE
NODATA
NODVPR
NOMORE
NOTST
NOTVEC
- NPR1

EMS53

= 000001

N
NO

EMS
EM50
EM51
EMS2

003170
002652
000016
002654
000002
000004
000010

M1A

o
et

EM&G7

FIXTBL
FLAG
FNC
=
FNCCNT
F1
=
F2
=
F3
=

002602
027516

nunnnnnunnnuntERBEDROENEN

050320
050351
050402
050441
047216
050476
050534
050600
050621
050652
050712
050773
051023
047264
051061
051111
051157
051213
051244
051314
051352

EWCR
EXPAND

EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM4
EM4O
EM4T
EM42
EM43
EM4S
EM4S
EM4E

050251

SEQUENCE

b -]
NON

050210

(3,74

— b e ONON O = =
= WO O &HONONS

EM2

M13
PAGE 146-2

pury

| SYMBOL 1ABLE

02-NOV-81 16:08

= NNV = O WO =N
NI
=2 = SN NN =N —

MACRO M1113

CZDRLDO=-DR11 GEN NPR INTF(

= 001000

TABINX
TBITVE=
TIME
TKB
TKS
TKVEC =
TMOPSW=
TORNCB
TOVECT=
P8
TPS
TPVEC =
TRAPVE=
TRTVEC=
TSNUMB
TSTCOM
TSTDEV
TSTMM
TST1
TST10
TST11
TST12
TST13
TST14
TST15
TST16

002546
000014
002660
002636
002634
000060
000006
040051
000004
002642
002640
000064
000034
000014
041576
040341
012370
007066
012606
015112
015346
015532
015716
016102
016272
016524

TST2
TST20
TST21
TST22
TST23
TST24
TST25
TST26

013004
017360
017764
020300
020576
021334
021636
022126

TST17

016762

TST4
013466
TST40 = 025622

TSTS

TST6é

1ST7

TWO
TYPCNF
TYPDE =
TYPDS =
TYPE
=
TYPOC =

014172

014366
014734

037420
005142
104414
104405
104401
104402

168

MACRO M1113

TYPON = 104404
TYPOS = 104403
UBHANG 056016
UCAL
037511
VA
= 002456
VCLCHR 037003
VECADR 002456
VECERR 036617
v
037407
WCLEN
002630
WCR
002516
XCHKBU 043646
XINBUF
042644
X6
= 000020

$OBLK
$ODWO0
$ODW1
$0DW10
$ODW11
$DDW12
$ODW13
$DDW14
$ODW1S
s$oDW2
$DDW3
$ODWs
$ODWS
$oDWé

027504
001474
001476
001520
001522
001524
001526
001530
001532
001500
001502
001504
001506
001510

SETEND
SFATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT
$GET
$GET42
$GTSWR
$HD
=
$HIBTS
$HIOCT
$SICNT

001534
001412
034072
001352
00135
001320
001324
026310
026314
030064
000000
001000
031110
001304

SMTYP2
SMTYP3
SMTYP4
SNULL
SNUMS
SNWTST=
S$OCNT
$OMODE
SOVER
$PASS
$PASS2
SPASTM
SPOWER
SPWRDN

001445
001451
001455
001354
027752
000001
027164
027166
032160
001416
002716
001006
034162
034074

$TMP2
$TMP3
$TMPS
$TMPS
$TMP6
$IN
=
$TPB
$TPFLG
$TPS
$STRAP
$TRAP2
$TRP =
$TRPAD
$TSTM

001364
001366
001370
001372
001374
000040
001352
001357
001350
031112
031134
000015
031132
0010

YES
SAPTHD
SATYC
S$ATY1
SATY3
SATYS

$ODW8
$ODW9
$DEVCT
SDEVM
$DOAGN
$DTBL

001514
001516
001420
001466
026334
027474

SITEM8
SLF
SLFLG
SLPADR
SLPERR
SMADR1

001314
001406
034071
001306
001310
001442

$QUES
$RDCHR
SRDDEC
SRDLIN
SRDOCT
$RDSZ =

001404
030302
030574
030422
030752
000007

$TTYIN
$STYPD
$TYPDE
$TYPDS
S$STYPE
STYPEC

0305
027204
027170
027200
026374
026606

SYMBOL TABLE

SAUTOB

= 000040

$ODW7

037414
001000
033652
033626
(033634
033644

001334

SENDAD

$BASE
001464
$BDADR 001322
$BDDAT 001326
$BELL
001400
$COW1
001470
$COW2
001472
S$CHARC 026736
SCKSWR 027764
$CMTAG 001300
$CM3 = 000000
$CMé
= 000007
SCNTLG 030544
S$CNTLU 030537
$CPUOP 001436
$CRLF
001405

056106
000000
ERRORS DETECTED:

SENDCT
SENULL
SENV
SENVM
$EOP
$EOPCT
S$ERFLG
SERMAX
$ERROR
SERRPC
$ERRTB
SERRTY
$ERTTL
$ESCAP
$ETABL

. ABS.

02-NOV-81 16:08

N13
PAGE 146-3

CZDRLDO-DR11 GEN NPR INTFC

001512

$INTAG

1026324

026102
026340
00143C
001431
026046
026074
001303
001315
032656
001316
001534
(033226
001312
001376
001430

SMADR2

$MADR3
SMADRSG
SMAIL
SMAMS1
SMAMS?2
$MAMS3
$MAMSS
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
$MSWR
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

001335

001446

001452
001456
001410
001440
001444
001450
001454
001002
034070
030562
001424
001426
001410
030551
001441

SEQUENCE

$PWRUP

SRTNAD

$SCOPE
$SETUP=
$STUP =
$SVLAD
$SVPC =
$SWR =
$SWREG
$SWRMK=
$SWOBT
STESTN
$TKB
$TKS
$TMPO
$TMP1

034112

026336

031200
000137
177777
032124
001000
163400
001432
000200
032556
001414
001346
001344
001360
001362

$STSTNM

STYPEX

$TYPOC
STYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT1
SVECT?2
$XTSTR
$$GET4=
$$SW08=
SOFILL
.SAV
.$X
=

001302

026740

026766
027002
026742
001422
001010
001434
001460
001462
031640
000000
000040
027165
041640
001000

169

———————

CZDRLD

CREATED BY

ON 2-NOV-81 AT 16:13
dad wv

WG0G00 GOGOGO800 GOG0O~GOG0G0 2«

| SYMBOL CROSS REFERENCE

MACRO

ADDWO
ADDW1
ADDW1
ADDW11
ADDW1
ADDw1

ADDW14

ADDW15
ADDW?
ADDW3
ADDW4
ADDWS
ADDWé

ADDW?7
ADDWS8
ADDW9
ADEVC
ADEVM

ADL CHR

ADRERR
AENV
AENVM
AFATAL

AMADR1
AMADR?2
AMADR3
AMADRS

AMAMS1
AMAMS?2
AMAMS3
AMAMSS

AMSGAD
AMSGLG
AMSGTY

AMTYP1
AMTYP2

AMTYP3

AMTYP4
ANPR1
ANSWER

000000
000000
000000
002646
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
036700
036532
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
002606
002664

EONWNANNANANN ANANANNG0NNNO

#61-3576

63-3654

140-6033

APASS
APRIOR
APTCSU
APTENV

000000
000000
000040
000001

123-5909
123-5909

*63-3623

77-46127
140-6035
140-6 1 1
78

#137-5930
135-5926

PAGE 1

8 14

170
SEQUENCE
EF
<R
vO1

*63-3627

139-5945
140-6041
140-6113

63-3628
139-5981
140-6063
140-6132

137-5930

#137-5930

63-3632
139-5992
140-6065
140-6134

63-3636

139-5994
140-6067
140-6136

63-3638

140-6011
140-6088
140-6155

63-3640

140-6013
140-6090
140-6157

63-3642

140-6015
140-6092
140-6159

CREATED BY

CZDRLD

MACRO

ON 2-NOV-81 AT 16:13 s

SYMBOL CROSS REFERENCE
VAL
SYMBOL
APTSIZ
APTSPO
ASIZE

PAGE 2

171
EQUENCE
V01
CREF

#137-5930

ASK4PR
ASK&VC
ASWREG
AT
ATESTN

96-4902

T
AUNI
AUSWR
AVECT1
AVECT?

96-4906

96-4908

96-4910

96-4913

104-5157

89-4599

91-4662
94-4840
108-5369

92-4718
944847
109-5406
117-5719

92-4719
94-4848
110-5444
118-5745

92-4726
104-5177
113-5537
119-5786

92-4727
105-5207
114-5570
120-5828

77-4186
92-4734
94-4818
115-5622
145-639

*x77-4188

#77-4201
92-4740
100-5005
116-5671

92-4763
100-5012
117-5696

93-4774
100-5013
118-5746

95-4868

77-4164

114-5580

77-4182
95-4870
139-5960

52-3178
#142-6238

89-4598
93-4781

BAR

#142-6271

141-6189

#142-6246
#61-3577

145-6393

94-4839
107-5339
116-5647

#1461-6176
#1462-6230
#142-6218
*77-46116
94-4810
107-5297
119-5810
*78-4216

*77-4136
89-4603

77-4141

92-4733
94-4817
115-5601
145-6384
145-6397

nunununnnnnnunnnnn

88-4539

004000

97-4922

117-5694

#142-6219

89-4602

BIT10
BITN

C 14

98-4947

92-4739
100-5004
116-5648

88-4541

122-5908

88-4532

100-5000

94-4842
111-5479

133-5924

135-5926

133-5924
133-5924
76-4075

133-5924
82-4289

88-4501

111-5494

139-5968

140-6125

140-6144

90-4622
99-4972

91-4643
100-4999

92-4699
101-5025

93-4771
102-5058

94-4804
103-5092

95-4864
104-5148

96-4888

*140-6125
75-4007
88-4497
96-4889

*140-6148
76-4054

133-5924

76-4067

105-5203

CZDRLD

CREATED BY

SYMBOL CRRSS REFERENCE
SYMBOL
VALUE

8171%
BIT
BIT14

= 010000
= 020000
= 040000

BIT15S
BIT2

= 100000
= 000004

BIT3
BIT4
BITS
BIT6

=
=
=
=

BIT8
BITY
BOARD
BORW
BPINIT
BPT
BPTINT
BPTVCT
BPTVEC
BRVWP(
BRWAIT
BUFF
BUFLEN

= 000400
= 001000
037424
002610
004154
= 000003
004216
000014
= 000014
037574
002626
042642
002622

BIT?7

BUSERR
BUT
CAPNTR
CAPSTK
CARETN
CAT
CATCH
(BITO
CBITY
CBIT10

CBIT11
CBIT12
CBIT1X
CBIT14
CBIT15S
CBIT2
(BIT3
(BIT&
CBITS
CBIT6
CBIT7
(BIT8
CBIT9
(B1513

000010
000020
000040
000100

= 000200

= 000004
002536
044650
044652
= 000015
= 157777
006466
= 177776
= 177775
= $75777

= 173777
= 167777
= 157777
= 137777
= 077777
= 177773
= 177767
= 177757
= 177737
= 177677
= 177577
= 177377
= 174777
= 057777

MACRO

ON 2-NOV-81 AT 16:13

REFERENCES

106-524
116=5641
#63-3049
#43-3049
#43-3049
#43-3049
#43-3049
139-5974
#43-3049
#43-3049
#43-3049
#43-3049

#63-3049

#43-3049
#43-3049
121-5873
#61-3554
#74-3905
#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
#47-3130
#45-3098
48-3150
#46-3104
#46-3105
#46-3114

#46-3115
#46-3116
#46-3117
#46-3118
#46-3115
#46-3106
#46-3107
#46-3108
#46-3109
#46-3110
#46-3111
#46-3112
#46-3113
#46-3120

PAGE 3

SEQUENCE

CREF

107-5287
117-5682
75-3959
135-5926
111-5504

108-5320
118-5738
77-4112

68-3757
140-6148

71-3829
140-6168

87-4424

136-5928

111-5498
92-4714
#142-6244
+90-4625
77-4105
74-3912
#74-3920
75-3938

172
vO1

109-540
119-577
77-4166

110-5441
120-5820
77-4184

111-5478

113-5522

114-5568

115-5588

77-46191

75-4021

76-4081

82-4292

88-4505

91-4646

112-5512

111-5500
92-4731

111-5502
92-4744

111-5504
94-4822

94-4837

94-4852

135-5926

+90-4626
88-4569
87-4415

90-4633

95-4865

100-5000

111-5479

145-6381

+75-3939

+75-3946

+75-3996

67-3730

133-5924

#142-6249

66-3714
107-5291
120-5825
+89-4595
#71-3832
64-3667
133-5924
63-3654

+108-5363

68-3751
108-5364

*116-5643

+118-5740

69-3805

72-3861_
118-5742

*106-5247
+119-5781

106-5248
119-5783

+89-4615
+91-4677
64-3669
133-5924
140-6015

+95-4868
*64-3674
133-5924
140-6041

+113-5554
133-5924
133-5924
140-6067

145-6386
133-5924
142-6282
140-6090

145-6387
133-5924
#142-6283
140-6113

145-6403
*133-5924

#142-6282

140-6136

140-6159

#78-4215
99-4626
111-5488

90-4628
111-5490

96-4901

68-3752

CREATED BY

CZDRLD
nunnununnnnN<

SYMBOL CROSS REFERENCE
SYMBOL
LUE
177377
cCy
171777
CDAB
172777
CDAC
174777
cbBC
173777
CDSA
175777
(bS8
176777
CDSC
170777
CDST
CEIR
077777
CER
077777
177761
CFNC
177775
CF1
177773
CF2
177767
CF3
177776
(GO
CHARCT
032555

F
CHKBF
UF
CHKB
CHKCAB

MACRC

ON 2-NOV-81 AT 16:13

REFERENCES
#45-3089
#65-3093

CIE
CKSWR
CLENUP

99-4986

97-4928

98-4953

99-4978

63-3623

*63-3624
123-5909
*133-5924
*133-5924
107-5294
69-3791
93-4787

+88-4568
127-5915
+133-5924
#133-5924
108-5367

135-5926
91-4644

135-5926
94-4805

133-5924

88-4570
167777

CMA
CNTLC
CNTRLC
CNX
CPSAVE

000003
037175
137777
032654

CR
CRLF

000015
000200

CRLF2

037435

CRY
CSR

98-4961

67-3729
92-4758

119-5779
#45-3097
#47-3129

63-3630

107-5288
120-5821

90
92-4701
93-4776

108-5361

141-6202

96-4905

105-5230

96-4914

109-5403

94-4857
110-5442

*121-5900
*127-5915
*133-5924

*123-5909
*127-5915
*133-5924

*123-5909

101-5033

102-5064

103-5108

*127-5915
133-5924

123-5909
133-5924
*133-592¢4

103-5093

114-5569

104-5149
1165642

63-3628

140-6013

140-6035

140-6065

140-6092

140-6111

140-6134

140-6157

*133-5924

133-5924

*133-5924

#134-5924

135-5926

*135-5926

135-5926

123-5909
75-4033

123-5909
75-4034
93-4771
102-5058
111-5478
1%3-5909
138-5932
142-6216
142-6245
142-6250
142-6259
142-6265
144-6342

75-4036
94-4804
103-5092
113-5522
1;3-5909
138-5932
142-6216
142-6246
142-6251
142-6260
142-6265
144-6350

77-4204

77-4205

77-4206

89-4593
98-4947
107-528;

68-3754
90-4625
9%-4716
93-4785

9i-4654
92-4717
93-4791

#142-6228

177577

002522

E 14

SEQUENCE 173
V01
CREF

97-4936

*123-5909
*133-5924
133-5924
106=5251

003330

PAGE &

35479

70-3818

73-3887
91-4663
94-4809

94-4824

92-4756
95-4867

664
92-4762
95-4869

93-4772
95-4875

CREATED BY

CZDRLD

ON 2-NOV-81 AT 16:13

PAGE 5
174
SEQUENCE

CREF

REFERENCES

F 14

VOl

72501!M235“1506“7278983“886

N O N N N N V OO

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

Waun

RuN

107-5303
118-5753

#44-3069
#44-3070
#69-3790

<[] N

97-4939
98-4964
106=5277

#69-3809

69-3806
#69-3805

107-5311

108-5393

106-5279
120-5852
#72-3874

107-5313

118-5771

120-5854

81-4264

DEVICE
DEVMSK

037200
002544

*88-4565
139-5960

141-6198
#61-3534

88-4566
139-5968
#142-6529
*88-4532

96-4908
98-4949

T3OrO0MrO0O3O—0=LWNO

-—

96-49106
98-4957

La-All"ola}'AOaNVN=MOM BdIRodSnhyl

TAN=NBJMNSA

101-50

96-4909

oMBS R

TrNWOOI0MON0YmOSOI=O)NOMOMNOWN N(OTMOG=EIWMNV0IONTO.

hed—FTMOVUNMOAOT—NNONTO
alal=]O
NN

[
NN

-—_—0
VoW

96-4899
98-4948

w.&50. anwn

91-4682
115-5604

105-5216
116-5655

106-5261
117-5698

108-5395

71-3829
90-4627
139-5974

*76-4066
91-4646
*140-6080

76-4067
96-4889

*140-6102

76=-4075
103-5094
*140-6124

76-4081
111-5489
*140-6147

79-4233
112-5512

80-4245
*139-5949

88-4534

88-4536

*88-4546

*88-4551

*141-€181

141-6185

1641-6187

55-3296

55-3302

56-3331

56-3337

#142-6253

DHZ
DH202
DH203
DH207
DH210

052503
054645
054724
055010
055064

#144-6374

59-3477

#144-6375

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE

MACRO

ON 2-NOV~81 AT 16:13

FERENCES

PAGE 6

SEQUENCE

CREF

175
vo1

#144-6376
59-3483

#144-6356

59-3471

#144-6357

57-3384
55-3290

#144-6358
#144-6347

133-5924

135-5926

#144-6346

53-3199
56-3373
59-3489
57-3402
53-3205
57-3409
57-3416
57-3422
57-3428
57-3434
58-3439

#144-6359
#144-6360
#144-6363
#144-6365
#144-6366
#144-6368
#144-6369
#144-6370
#1464-6349
109-5406

*81-4264
81-4264

#142-6258
#121-5893
*89-4596

*81-4264
122-5902

*89-4598

*89-4600

*89-4602

*89-4604

145-6380

"[al"al"al"al"al"al"’al["al'"al’al’"al’"al’"al"’al"al)

OalC"aDNBONlO"GaEI0l"OaOSITTl"MOwaS)eTrL~Ga—l0"rEeaGl—0"nSa0ANlUoNdv]aloEa1la«SAlIo’¥aOLT]Ol’CREa=lO’YAal(’0NLa=lO’GEal

wnn n n n n n n nm
—M=ONN1AMONMI0IOTNDWMVVODNWOONWUNIVDNOLOT—MMrN——YMF0IIONNRNDMLUOOAIDANOWCANONVCoGOON
NVOV—e0BNylAroN—VeIl—TV0oOP—NONV0—oOINVDlOTR«——a|aOVMlUa—NlalaOl-UUL aTlaNMl—UUDOLAl
3822e e —e S38SS=TT g e og
=e— —e= e—-

aANlalTRSo~

#144-6371
53-3211
#61-3556
#52-3178
#48-3156
140-6146
121-5865
#61-3536
#75-3932

G 14

OON0 O=MTIT DO—ON {N"a)=3—N Lol

JONTNoODOWVWOAON®IOTONeAUI—SN AOOSNCUONTO0WOAN0ROnO0AN\rN-F —r

ODT=-M—O0O0O=rNrr—O0OOTMr—r —ONF=GMO0 o0=v-e=DofJd(2ele‘lVel%el]7eal|9—MN6O8WN0ON 7-ONMWV2NMOAIN Qr0——v=OD—00O=r—NOO0OTMr—vrNARENyVnnununnunununnunnm ONITNINITMN—OOO TPOJO0O0O0O0—Or—rNm (aIl’"A’"l"laa"a"=OUa"a)r—NMNI—TTMNVA=NI— TOO0O0O0OD0OrTMe—rN— AaB"l12}" MOr—NIMITON ODNM=WNMO
-«

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL VALUE

DT14
DT16
DT17

055350
055366
055404

DT2
DT202
DT203
DT207
DT210
DT211
DT23
DT26
DT3
DT34
DT4
DT43
DTS
DT50
DT56
DT57
DT
DT60
DT61
DT62
DT63
DT64
DT65
DT66
DT7
DYWTLT
EBAR

055246
055710
055726
055744
055760
055772
055420
055434
055260
055450
055274
055464
055306
055476
055520
055536
055322
055556
055572
055606
055632
055646
055660
055674
055334
006401
002600

EBDR

002576

ECELR
ECSR

040676
002572

EDIT
EEIR
EIR
EMTVEC
EM1

EM10

EM11

MACRO

ON 2-NOV-81 AT 16:13

FERENCES
§4-3242
54-3256
§54-3262
56-3344
53-3182
§59-3456
#145-6404
#145-6405
59-3478
59-3496
59-3466
57-3391
53-3188
§5-3321
§3-3194
56-3350
§3-3200
56-3374
§59-34,90
57-3404
§3-3206
57-3411
57-3417
57-3423
57-3429
57-3435
58-3440
#145-6402
=3212°
77-4123
#61-3550
*+107-5346

54=3249
#145-6387
54-3268

56=3362
#145-6380
#145-6403

#145-6406
#145-6407
#145-6389
59-3460
#145-6381
55-3327
53-3218
56-3356
54-3229
#145-6393
#145-639%
59-3448
55-3309
#145-6396
#145-6397
#145-6398
#145-6399
#145-6400
#145-6401

PAGE 7

H 14

SEQUENCE 176
vo1l
CREF

#1465-6386

54=3274
56-3368

55-3279
60-3501

59-3484

#145-6390

§7-3397
54-3223
56-3380
54-3235

59-3472
#145-6382
57-3385
55-3291

#145-6395

55-3315

#145-6384

55-3285

#145-6388

55-3297

55-3303

56-3332

56-3338

#145-6391

#145-6392
#145-6383

#145-6385
#77-46207
*68-3762
+114=5579

*114-5580

68-3770

+92-4723

+115-5621

*92-4754
115-5626

*117-5723

*93-4783

944841

*94-4842

145-6390

94-4843
145-6393

#61-3549

+94-4815

«100-5008

+100-5011

*100-5016

*115-5623

115-5628

*116-5674

+*119-5813

139-5042
#61-3547
82-4280
¥92-4757
*96=4912
*98-4951
+99-4980
103-5109
*107-5337

#142-€262
%68-3763

«68-3764
82-4287
+93-4786
*97-4926
*98-4955
99-4985

+68-3765
+91-4659
93-4788
97-4927
+98-4959
+99-4989

*71-3831
91-4666
*95-4873
*97-4934

+73-3889

*73-3890

034572
002574
= 100000
= 000030
047134

139-5993
#61-3548
#44-3076
#,3-3049
#143-628%

#140-6002
+95-4879
75-4000
+81-4264

*109-5433
*114-5574

+110-5468
145-6385

68-3768
*91-4665
+95-4872
*97-4930
98-4960
+*99-4990
*104-5194
*110-5469
145-6386

0467477

54-3221

#143-629

047445

145-6398
145-6391

+113-5551

53-3216

145-6407
145-6407

B2-4282
92-4759
+96-4913
98-4952
+99-4984
+103-5112
%109-5432

113-5552

#143-6293

*104-5171

140-6018
*95-4880
90-4624
*81-4264

+104-5172

140-6034
*111=5497
95-4875

111-5498

100-5010

145-6383

*73-3888
91-4672

*96-4896

*102-5063
*105-5233
*113-5540
145-6398
*111-5502

*91-4674

*96~4904
*97-4939

994976
*«102-5065

'105°S§34
113-5541
145-6405

99-4
+103-5107
+105-5235
113-5549
1456404

145-6387

145-6401

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

ON 2-NOV-81 AT 16:13 :

REFERENCES

EM1
EM1
EM14
EM15
EM16
EM17
EM2
EM20
EM202
EM21
EM211
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36
EM37
EM4
EM4O
EM41

047542
047574
7644
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

Sk-gZ%?
54-3233
54-5239
54- 26?
54325
54-3260
53-3180
54-3266
59-3452
54-3272
59-3494
5-3277
#143-6304
-3283
55-3289
59-3458
59-3464
53-3186
55-3295
55-3301
55-3307
55-3313_
#143-6313
55-3319
55-3325
56-3330
53-3192
56-3336
56-3342

#163-6295
#143-6296
#143-6297
#143-6298
#1463-6299
#143-6300
#143-6287
#143-6301
#143-6339
#143-6302
#143-6340
#143-6303

EM43
EM4S
EM4S
EM4E
EML7
EMS
EM50
EM51
EM52
EM53
EM54
EM55
EM56
EMS7
EM6
EM60
EM61
EM62
EM63
EM65
EM66
EM7

051213
051244
051314
051352
051427
047315
051444
05151
051570
051631
051657
051674
051714
051752
047346
052002
052041
052124
052173
052233
052304
047377

56-3348
56-3354
56-3360
60-3499
56-3366
53-3198
56-3372
56-3378
57-3383
59-3476
57-3389
57-3395
59-3488
57-3401
53-3204
57-3408
57-3415
57-3421
57-34%7
58-3438
#143-6338
53-3210

57-3433
#143-6321
#143-6322
#143-6323
#143-6324
0143-6%90
#143-6325
#143-6326
#143-6327
#143-632
S9-348§
#143-6330
#143-6331
59-3445

EM4L2

051157

#143-6319

177
EQUENCE
vo1
CREF

#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

#143-6291
#143-6333
#143-6334
#143-6335
#143-6336
#143-6337
#143-6292

PAGE 8

#143-6315

#143-6320

#143-6329
#143-6332

I 14

CREATED BY

CZDRLD

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
ENDEV
0256%2
7132
ENDSTK
ENPR1
002604
EOPLOC
002706
EOPRSM
ER

032504

003126
036173
004064
002714

ERCAPT
ERCHDR
ERRCHK
ERRCNT
ERROR

ERRVEC
ER200
ESCAPE
ETDEV
EWCR

= 104000

= 000004

002274
= 000033
037064
036350
002602

F3
GNS

GOAGIN
GTSWR
HAKTPM
HEADER
HT

IBSAVE

ON 2-NOV=81 AT 16:13

REFERENCES

47-3143

89-4608

#61-3552
*48-3170

#64-3667
133-5924
#73-3886
#61-3588
*135-5926

*115-5611
#61-3585
133-5926
#133-5924
-3764
109-5430
121-5884
#142-6214
115-5618
+91-4651
136-5928

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-5384
113-5555
117-5706

64~3667
133-5924

133-5926

#44-307
104=5195

#43-3049

118-5772
#43-3049

133-5924

78-4221

119-5801
43-3050

PAGE 9
SEQUENCE
178
CREF
vO1

J 14

112-5514

#121-5858

+117-5728
+87-4421
+133-5924

145-6394
88-4571
+133-5924

145-6402
121-5893
*133-5924

73-3889
109-5433

914674
110-5466

117-5713
+94-4806
136-5928

*106-5276
+136-5928

92-4761
95-4874
99-4981
103-5131
106-5275
108-5391
114-5575
117-5714

92-4765
95-4881
99-4991
103-5141
106-5278
108-5394
114-5581
117-5718

#142-6284

122-5902

89-4611

119-5809
81-4264

119-5814
*81-4264

*133-5924

96-4902

110-5469

96-4906
113-5551

96-4910

96-4913

104-5172

*107-5310

*108-5392

*113-5524

*115-5590

*117-5684

91-4660

91-4678
93-4784

92-4713
93-4790

*81-4264

+94-4830

027516
003170
002652

125-5913
#65-3684
#61-3571

#126-5913
139-5989

141-6177

002654
= 000002

#61-3572
#44-3056

97-4930

98-4955

97-4932

109-5413
75-4015

96-4898

117-5697

118-5752
96-4908

4982

115-5603

117-5697

119-5793

75-3942
102-5073
109-5414
120-5836
#122-5903

82-4276
103-5121
113-5543

82-4278
104-5156
113-5545

123-5909
+135-5926

+135-5926

#44-3059

#?323g?;7

= 000010

#44-3058

= 000001

#44-3055
101-5040
108-5378
119-5794
122-5902
#132-5921
133-5924
139-5947
#43-3049
*135-5926

= wavenw

026344

= 104406

032174
040452
= 000011
033224

132-5921
132-5921
132-5921

75-3942

132-5921
132-5921
132-5921

#133-5924
#142-6259
123-5909
135-5926

132-5921
132-5921
132-5921

96-4915

101-5034

136-5928
63-3632
#142-6224
#142-6217
*68-3761

145-6407

136-5928
140-6011

90-4635

133-5924

#59-3442
#47-3128
63-3634
121-5881
#61-3551_

EXPAND

FIXTBL
FLAG
FNC
FNCCNT

MACRO

92-4743
94-4821
97-4941
102-5066
105-5222
107-5347
111-5503
116-5670
118-5770

3
*133-5924

*133-5924

0-5855

140-6033

140-6063

140-6088

140-6109

140-6132

140-6155

+107-5345

*115-5625

115-5630

145-6389

145-6393

145-6398

99-4980

105-5234
101-5040

102-5073

103-5121

132-5921
132-5921
132-5921

132-5921
132-5921
91-4680
106-5 261
g
116-5655

135-5926

#135-5926

CREATED BY

CZDRLD

SYMBOL CROSS REFERENCE
ALUE

MACRO

ON 2-NOV-81 AT 16:13

REFERENCES

PAGE 10
SEQUENCE_ 179
CREF
vO1

o000100

#44-3062

68-3750

73-3886

75-394

108-5378

104-5156
117-5697

105-5216
118-5752

INBUF

002616

#61-3557

66-3713

68-3753

69-3792

107-5296

107-5324

1
INBUF
INDEV
INOOUT
INTA
I0TVEC
KDPAR2
KDPDRZ2
KIPARO
KIPAR2
KIPDRO
KIPDR2
LENCHK
LETNCR
LEVEL

002656
006124
022606
003356
=
20

111-5480
#68-3750
#43-3049

#77-4202
#112-5512
106-5274
*B1-4264

107-5308
*81-4264

108-5390

LEVELS

LEVEL3
LEVELS

LEVELS
LEVEL6
LEVEL?7
LF
LODBUF
LOOP
LRGSTC
MA

=
=
=
=
=
=

=
=
=
=

172364
172324
172340
172344
172300
172304

002624
037173
002540
004732
000140
0002
000240
000300

= 000340

= 000012
003302
2662
002704
= 010000

007220
010220
002670
034230
0643
002712
033514
002650
= 000252
= 177572
= 000250
002644
037072
041302

106-5261
119-5793

107-5342
#61-3573
77-4140

#47-3137
#47-3134
#47-3135
#47-3136
#47-3132
#47-3133

107-5303
120-5835
107-5346

*BB-4495

88-4474
+B8B8-4494
88-4466

#61-3560
*69-3793
*63-3636
63-3637
#61-3532
+75-3932
105-5211
106-5258
118-5750 . 119-5791
75-3933
#75-4030
#47-3123
75-4031
#47-3124
75-4031
#47-3125
75-4030
#47-3126
75-4030

107-5329
108-5369

116-5647

116-5669

118-5767

+88-4503

*88-4515

+88-4498

+88-4502°

*88-4514

*69-3794
#142-6227
+75-3947
107-5301
120-5833
103-5102
101-5028

69-3805

*72-3851

*72-3852

72-3861

+75-3989
108-5374
145-6399

75-3995
109-5410

*103-5127
110-5448

*103-5132
115-5595

*103-5138
116-5652

103-5139
117-5689

75-3932

75-3945
138-5932

75-3991
140-6121

78-4215

88-4463

88-4492

119-5782

120-5824

91-4650
96-4894

91-4654
96-4896
103-5119
110-5451

92-4700
97-4924
104-5156
113-5529 -

*88-4497

*88-4501

104-5153

4£8-3151

70-3817

#43-3049
#66-3713
#61-3575
#61-3584
#44-3073
92-4702
98-4949
105-5214
115-5597
#84-4321
#85-4357
#61-3578
-2164
139-5940
#61-3587
*88-4505
136-5928
#61-3570
#47-3139
#67-3131
#47-3138
#61-3568
139-5985
88-4524

123-5909
106-5250
*76-4044
63-3640
68-3755
92-4762
99-4974
106-5260
116-5663
113-5526
91-4649
*87-4405
#139-5938
#142-6261
82-4274
113-5547
*136-5928

123-5909
107-5293
108-5366
76-4056
+76-4087
63-3650
+77-4139
70-3818
75-3936
93-4777
93-4791
100-5003 . 101-5026
107-5302
"107-5321
117-5691
117-5707

116-5644

118-5741

*140-6007
75-4003
94-4809

*140-6029
75-4017

118-5761

119-5802

87-4426

*139-5990

*141-6176

82-4284

82-4292

#136-5928

82-4289
-

88-4491
+BB-4464
88-4489

+88-449
+88-449
+88-4490

103-5118

#142-6225
#142-6267

120-5850

+B88-4499

#67-3127

102-5070

119-5808

138-5932

*88-4518
*88-4512
+88-4519

103-5103

*88-4459

109-5412
120-5844

*88-4465

SYMBOL CROSS REFERENCE
VALU

MACRO

ON 2-NOV-81 AT 16:13$

REFERENCES

88-4528
76=4077

#142-6269

139-5972

#142-6273
#86-4396
#83-4305
136-5928

91-4674

#142-6243
#1462-6240
#142-6248
88-4504

91-4662

113-5537

#146-6424

115-5600

*115-5602

115-5621

117-5694

*117-5695

109-5430

109-5433

1105466

110-5469

113-5551

7746197
78-4223

88-4523
88-4519
*88-4462
88-4518

*89-4609
145-6397
88-4522

89-4613

145-6380

77-4196
78-4222

*88-4460
*88-4489
*78-4217
*88-4491

*89-4610

89-4612

115-5591

117-5685

177776

000024

#79-4232
#63-3049
*104-5154

*118-5751
#43-3049

.117-5720

117-5723

75-4009

«77=-4106

«78-4218
«77-4108
*78-4219
#75-4033
#77-46205

146-6416

94-4807
#136-5928
#136-5928
#136-5928
#136-5928
#136-5928

43-3049

140-6082
«70-3817

*105-5213
+119-5792
*81-4264

#80-4245
*121-5859
139-5980
#75-4036

34
177776
006536

L 14

EQUENCE
180
Vv 01
CREF

’

#44-3075
#61-3538
#44-3065
#61-3583
#61-3579

PAGE 11

140-6126
*75-3940
*106-5259
+120-5834
+81-4264

&Hro
O -

CREATED BY

—_—

CZDRLD

*122-5902

=589
-6037

141-6190

140-6149
*75-3945
*108-5375

*75-3991
*109-5411

*78-4215
*110-5450

*101-5028
*115-5596

*138-5932

+103-5105
+116-5653

103-5127
+117-5690

ON 2-NOV-81 AT 16:13s

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

002414

002566

R7
SCOPE.

=2000006
=%000007
= 000004

SDADRS
SDRINV

040306
002532

73-3891
91=4675
95-4872
974925
99-4976
+103-5106
*105-5228
*109-5420
113-5532

*96-4893
97-4926
*99-4983
103-5109
105-5229

+119-5800
145-6404

*109=5427
*113-5539
*120-5842
145-6405

94-4812

*116-5671
*«75-4012
*92-4717

129-5915

*98-4950
101=5030
104=5171
*107-5318
*110-5457
*114-5572
145-6388
#132-5921

131-5919

#132-5921

75-3963

75-3977
140-6129
*75-4025
*140-6053

77-4126
140-6152
*75-4026
141-6183

77-4148

139-5944

140-6008

140-6030

140-6060

76-4046

87-4438

88-4554

139-5953

139-5983

75-4005
145-6401

75-4009

*95-4876

95-4877

95-4879

*111-5483

111-5485

*92-4704
94-4834
145-6406
73-3890
102-5063
113-5534

92-4705
+107-5344
145-6407
73-3892
102-5065

*92-4710
*115-5624

92-4711
115-5630

*92-4749
*117-5715

*93-4778
145-6382

*94-4826
145-6389

73-3894
103-5107

91-4645
103-5112

92-4757
109-5430

93-4786
109-5433

96-4894
110-5466

*81-4264

81-4264

90-4622
99-4972
108-5360
118-5738

91-4643
100-4999
109-5402
119-5778

101-5044
104-5160
106=5265
108-5382
115-5608

101-5050
104-5167
106-5272
108-5388
115-5616

+*101-5029

*104-5169

145-6387
#122-5907

*68-3766

*81-4264
89-4593
98-4947
107-5287

Co 0o

73-3888
91-4666
95-4870
96-4912
994975
+102-5081
*105-5219
*108~5381
*113-5531
*118-5759
145-6403

O\ SN
—
OHNNO—
[« JV IV
T~V]

= 000200

*93-4781
114-5579
145-6407

114-5577
145-6398
*94-4811
115-5628

*92-4752

3
LSS

= 000010
026364
002570

92-4728
*114-5576
145-6393
*93-4792
*115-5622

RESVEC
RSTRT
RWCR

*87-4430

J\g [

012556
002562

*77-4129
*140-6023

—OWn

REINIT

REIR

68-3763

+91-4656
+93-4785
96-4904
98-4951
=101-5043
*104-5185
+107-5334
*110-5463
*115-5610
145-6392

92-4720
*92-4727
+107-5339
145-6383
92-4741
+«100-5013
145-6391
+73-3887
68-3768
*91-4664
91-4657
93-4788 «*95-4869
*96-4909
96-4910
*98-4958
98-4959
*102-5060
102-5061
*104-5192
104-5194
*107-5353
107-5335
110-5464
110-5468
*116-5661
*117-5704
145-6368
145-6402

77-4121
140-6003

— O

002416

68-3755
75-4019
92-4759
96-4900

139-5950

REGADR

. 109-5428
113-5541
145-6385

*75-4016
*92-4756
+96-4899
97-4934

117-5720
%92-4740
100-5006
-63

*77-4114

(=]
&~
POl
o O

nuwnn

96-4894
*97-4933
99-4984
*104-5162
105-5233

+119-5810
*68-3754

*«117=5719
=4735
+100-5005
119-5811

76=4050
122-5904

002560

*115-5620
#61-3543
*94-4818
116=5672
#61-3541
75-4013
%92-4725

*75-3999
122-5902
*65-3697
+92-4719
94-4849

RCSR

002564

RDCHR
RDDEC
RDLIN
RDOCT
RDYCHK
READ

65-3689
121-5887
*65-3696
68-3770
*94-4848

= 002416

RBDR

181
EQUENCE
vO01
CREF

RBAR

QTYBRD

PAGE 32

—-—O00O

MACRO

—

CREATED BY

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
SDRVS
\

SETTUP
SPACEC
SPACES

SPACE3

SPACE6
SPACE?7
STACK
STAD
STAGIN
START

START1

STKIFL
STKLMT
SVADRS
SWR

MACRO

ON 2-NOV-81 AT 16:13

REFERENCES

SEQUENCE
CREF

13
182

N 14

117-5711
120-5848
#61-3527 _
103-5137
105-5227
107-5352
110-5462
117-5712

«118-5747

118-5757

+119-5788

119-5806

*120-5830

120-5840

*101-5036

101-5045

104-5161
106-5266
108-5383
115-5609
118-5758

*102-5068
*104-5175
*107-5299
*109-5408
*116-5650
+*119-5789

102-5084

*103-5116
*105-5209
*107-5326
*110=5446
*117-5687
*120-5831

103-5126

006610
037400
037352
037355
037361
037370
001300
006142
00021C
011424
011420
036120

#81-4263
140-6005
133-5924
139-5952
76-4058
76-4065
#43-3049
77-4145
#48-3165
48-3172
-3163
133-5924

87-4417
140-6027
133-5924
#142-6234
76-4061
76-4072
81-4264 =
#77-4203

139-5939
140-6058
133-5924

140-6104
#142-6233

140-6127

140-6150

#142-6237

139-5955
76-4074
B87-4416

139-5959
139-5938

139-5965

139-5967

139-5973

#142-6236

#87-4406
#87-4405
#142-6213

139-5991
88-4545

040252

140-6054

#142-6255

81-4264

93-4771

94-4804

‘
77-4112
89-4593

*81-4264
92-4731
97-4922
1065245
115-5588
133-5924
135-5926

81-4264
92-4744
98-4947
107-5287
116-5641
133-5924
136-5928

002534

177774

001340
.

120-5849

#43-3049

#52-3178
*81-4264

99-4972

108-5360
117-5682
133-5924
#48-3157

000176
000001
000001
000002
000004
000010
000020
000040
200100
000200
000400
001000
000002
002000
04000
010000
020000
040000

#43-3049
#43-3049
#63-3049
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#43-304%
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049

000004
000010
000020

#43-3049
#43-3049
#43-3049

100000

#43-3049

*104-5151
*106-5256
+108-5372
*115-5593
*118-5748

75-3959
*81-4264

100-4999

109-5402
118-5738
133-5924
81-4264

43-3049
43-3049
43-3049
43-3049
43-3049
43-3049
43-3049
43-3049
43-3049
43-3049

94-4822

138-5932

146-6422

77-4184
91-4643

101-5025

110-5441
119-5778
133-5924
127-5915

35-5926

—————

ettt

CZDRLD

CREATED BY

- SYMBOL CROSS REFERENCE
. SYMBOL

| SWS
| Swé
Sw’
Sw8
SW9
TABINX
TBITVE
TIME

VALUE

=
=
=
=
=

00004
000100
000200
000400
001000
002546

= 000014
002660

ON 2-NOv=-B1 AT 16:13

REFERENCES

#63-3049
#63-3049
#63-3049
#63-3049
#63-3049
#61-3535

#43-3049
#61-3574
«104=5155
*107-5306
*i15-5605

«119=-5796

kS
TKVEC

MACRO

#61-3565

#61-3564
#43-3049

TMOPSW

#47-3141

TOVECT

#47-3140

P8
TPS
TPVEC
TRAPVE
TRTVEC
TSNUMB

002642
002640
= 000064
= 000034
= 000014
041576

#61-3567
#61-3566
#63-3049
#63-3049
#463-3049
#142-6272

TORNCB

TSTCOM
TSTDEV
TSTMM
TST1
1ST10
ST

TST12
TST13
TST14
TST1S

1ST16
TST17

TST2
1ST20

1ST121
1ST122
1ST123

TST24
TST2S
TST26
1S127
TST3
1ST30

TST31
1ST32

TST33
TST34

140-6123

040341
012370
007066

012606
015112
015246

015532
015716
016102
016272
016524
016762

013004
017360

017764
020300
020576
021334
021636
022126
022404
013134
022622

023110

023240
023620
024124

*88-4488

121-5875
#88-4534
#82-4274
88-4572
95-4866
964890

97-4938
98-4963
99-4988
100-5001

101-5048
102-5079

-4622
103-5133

1064=-5165
105-5224
#107-5287
107-5320
#109-540
109-542
110-5459
90-4634
112-5513

#114-5568
114-5578

#116-5641
116=-5665

PAGE 14
SEQUENCE 183
CREF
vO1

815

*B88-453>

+88-4547

88-4552

+88-4553

+75-3935
+104=5158
+107-5322
*115-56

«75-3943
+*104=5179
*107-5330
*116=5656

+101-5039
+104=5181
+«108-5377
*116=5657

+101-5041
+105=5215
+108-5379
*117-5699

+102-5071
*105-5217
+109=5415
#117-5700

+102-5074
*106=5262
*109=5416
*118=5754

+103-5120
+106-5263
+*110-5449
+118-5755

77=-4108

«77=4109

*77=-4196

*87-4415

88-4462

*88-4463

*88-4522

77=6106

*77=4107

+77-4197

87-4414

*287=4414

88-4460

+88-4461

*B1-4264

*120-5837

141-6210

#142-6252

+88-4513

1466412
#142-6257
88-4549
91-4684
#89-4593
95-4878
#97-4922

#98-4947
#99-4972
#100-4999
#101-5025
#102-5058
#103-5092

134-5924
103-5140

104-5188
#106-5245
134-5924

+120-5838

+88-4523

+141-6204

121-5890
134-5924
#96-4888
134-5924
134-5924
134-5924
134-5924
134-5924
134-5924
134-5924

#104-5148

134-5924

104-5193
134-5924

#105-5203

107-5349
134-5924
109-5431
110-5467
#91-4643
#113-5522

#108-5360

134-5924

#110-5441
#111-5478
134-5924
134-5924

134-5924
134-5924

#115-5588
134-5924
116=5673

134-5924

*141-6206

#117-5682

134-5924

*141-621

+103-5122
+107-5289
*110-5453
+119-5795

*88-4468

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
TST3S
024506
1ST36
025004
1ST37
025320
TST4
013466
TST40
TSTS
1ST6
1817
TWO
TYPCNF
TYPDE
TYPDS

= 025622
014172
014366
014734
037420
005142
= 104414
= 104405

TYPE

= 104401

MACRO

ON 2-NOV-81 AT 16:13s

REFERENCES
#118-5738
134-5924
118-5763 #119-5778
119-5804
119-5812
#92-4699
134-5924

12;42350

#132-5922
121-5876

133~5924
121-5883

146-6419
122-5902

#132-5921

133-5924

139-5951

63-3630
76-4049
76-4077
77-4145
91-4643
100-4999
109-5402

63-3634
76-4052
76-4079
77-4155
92-4699
101-5025
110-5441

63-3657
76-4058
76-4080
77-4160
93-4771
102-5058
111-5478

63-3657
76-4061
76-4083
77-4172
94-4804
103-5092
113-5522

75-3961
76-4065
76-4085
88-4524
95-4864
104-5148
114-5568

75-3968
76-4069
76-4086
88-4528
96-4888
105-5203
115-5588

75-3972
76-4071
76-4093
88-4542
97-4922
' 106-5245
116-5641

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
140-6050
140-6123
1466412

75-3982
76-4074
77-4140
90-4622
99-4972
108-5360
118-5738

122-5902
127-5915
#132-5921
133-5924
136-5928
139-5962
139-5979
140-6054
140-6127
146-6416

88-4527

1275915

#132-5921

136-5928

139-5954

140-6026

146-6411

77-4142

79-4236

80-4252

#132-5921

139-5957

140-6056

146-6414

65-3699_

*65-3699

+65-3700

76-4047
+140-6078

77-4119
141-6182

77-4138

87-4445

88-4561

139-5956

139-5987

#142-6239
+106-5249
*116-5645
+120-5826
88-4555
93-4773
107-5295
115-5624
145-6393

106-5252
116-5646
120-5827
89-4596
93-4778
107-5323
116-5646
145-6397

+107-5291
+118-5742

t107-529§
*118-574

107-5295
118-5744

107-5323
*119-5783

+108-5364
+119-5784

89-4597
94-4825
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

= 104402
= 104404
= 104403

76-4060
#132-5921
76-4063

= 002456

#65-3698

VCLCHR
VECADR

037003
002456

VECERR
i
WCLEN

036617
037407
002630

WCR

002516

XCHKBU
XINBUF

043646
042644

134-5924

120-5846
#93-4771
#94-4804
134-5924
139-5970
77-4198
122-5902

TYPOC
TYPON
TYPOS

056016
037511

134-5924
#120-5820

C15

#47-3143
92-4764
93-4793
#95-4864
76-4079
#76-6044
121-5878
;26‘2364

119-5778
122-5902
127-5915
133-5926
133-5926
136-5928
139-5964
139-5985
140-6058
}22-2238

UBHANG
UCAL

PAGE 15
EQUENCE 184
CREF
vO1

120-5820
123-5909
129-5915
133-59264
135-5926
138-5932
139-5965
140-6002
140-6072
140-6150

88-4526
141-6201

#146-6409
#142-6247

140-6076
#61-3513
139-5998
140-6072
76-4071
#61-3562
*108-5365
119-5785
#61-3520
92-4710
105-5212
113-5536
1645-6382
61-3558
61-3557

#142-6223
65-3698
140-6055
#142-6221
139-5964
*106-5248
108-5368
*120-5825
68-3766
92-4749
106-5252
115-5599
145-6389
#142-6280
#142-6278

134-5924
1345924
#142-6242

121-5872
124-5911
129-5915
133-5924
136-5928
139-5940
139-5967
140-6005
140-6076
141-6178

121-5873
125-5913
129-5915
133-5924
136-5928
139-5942
139-5970
140-6017
140-6079
141-6189

121-5875
127-5915
130-5917
133-5924
136-5928
139-5947
139-5972
140-6024
140-6083
141-6198

121-5881
127-5915
130-5917
133-5924
136-5928
139-5952
139-5973
140-6027
140-6101
141-6201

121-5885
127-5915
131-5919
133-5924
136-5928
139-5955
139-5976
140-6038
140-6104
146-6409

CREATED BY

CZDRLD

SYMBOL CROSS REFERENCE
SY MBOL
VALUE
()
= 000020

¥4

= 000040

SASTAT

YES
$APTHD

SATY(C
$ATY

$SATY3
$SATYS

REFERENCES

033652
033626

033634
033644

$CNTLG
SCNTLU
$CPUOP
$CRLF

030544
030537
001436
001405

$DBLK

027504

$DDWO

001474

$DDW1
$ODW10
$ODW11
$DDW12

001476
001520
001522
001524

EQUENCE_

185

v 01

82-4287
82-4282
#1 42-6241

91-4672
91-4672

129-5915

135-5926

+123-5909
132-5921
81-4264

123-5909
132-5921

*123-5909

#123-5909

81-4264

52-3178
52-3178
52-3178

#52-3178
#52-3178
#52-3178

52-3178
52-3178

#52-3178
#52-3178

76-4086
129-5915

76-4093
129-5915
156-5928
*125-5913

122-5902
131-5919
136-5928
126-5913

126-5913

*65-3701

76-4066
140-6102

77-4137
140-6124

*14C-6144

*140-6145

*87-4412
*65-3686

*87-4419
*65-3694

*122-5903
*77-4115

*77-4135

87-4431

82-4280
82-4280
139-5976

3
137 =5930
3
1 7-5930
1 2 7-5915
8 7 =4439

= 000007

001526
001530
001532
001500
001502
001504
001506
001510
001512
001514
001516
001420
001466

D15

PAGE 16

CREF

#69-3176
3137-5930
37
37-5930

wawnnn

001334
001464
001322
001326
001400
001470
001472
026736
027764
001300
= 000000

$DDW13
$DDW14
$DDW15
$DDW
$ODW3
$DDW4
$DDWS
$DDW6
S0DW7
$DDW8
$0DW9
SDEVCT
$DEVM

ON 2-NOV-81 AT 16:13S

037414
001000

SAUTOB
$BASE
$BDADR
$BDDAT
$BELL
$COW1
$CDW2
$CHARC
$CKSWR
SCHMTAG
$CM3
$CM4

MACRO

52-3178
52-3178

#129-5915

63-3657

135-5926

*125-5913

*140-6099

*140-6168

#52-3178

88-4534

*45--3684
141-6185

*140-6100
*140-5169

123-5909
133-5924

88-4565

126-5913

139-5949

CZDRLD

CREATED BY

MACRO

ON 2-NOV-81 AT 16:13

CROSS REFERENCE
VALUE

026334

-590§
012 9N
#122-5902
#122-5902

032656
001316

001534

#52-3178
#52-3178
49-3176
#52-3178

*122-5902
*81-4264
#52-3178

*137-5930

#52-3178
#52-3178

123-5909
#122-5902

41-3032

SEQUENCE
186
CREF
vO1

#122-5902

135-5926
77-4110

77-4164

77-4182

77-4189

87-4424

123-5909

137-5930

122-5902
*133-5924
*133-5924

133-5924
133-5924

*135-5926
145-6383
145-6392
145-6401
136-5928

033226
001312

PAGE 17

*89-4594

133-5924
*133-5924

*137-593

137-5930
123-5909
123-5909

87-4422

123-5909

135-5926

135-5926
145-6384
145-6393
145-6402

136-5928

145-6387
145-6396
145-6405

136-5928
145-6388
145-6397
145-6406

145-6380
145-6389
145-6398
145-6407

89-4606

121-5882

122-5902

135-5926
130-5917

136-5928
131-5919

133-5924
*92-4722
*98-4947
*105-5203
*115-5588
133-5924

133-5924
*92-4737

*135-5926

*135-5926
135-5926

*137-5930
123-5909

#122-5902
132-5921
41-3032

132-5921

129-5915
135-5926
123-5909

129-5915
135-5926
129-5915

133-5924
*89-4593

*133-5924

135-5926

#137-5930

#131-5919

127-5915
*135-5926
123-5909
135-5926

#137-5930

*92-4748
*100-4999
*107-5287
SMADR1
$MADR2
$MADR3

001442
001446
001452

#52-3178

*108-5360
*118-5738

135-5926

*94-4829
*102-5058
*109-5402
*119-5778

+90-4622

%94-4845
+103-5092
*110-5441
+120-5820

135-5926
129-5915
*133-5924
*91-464
*95-4864
*103-5111
*111-5478
133-5924

*133-5924

*113-5522
133-5924

133-5924
*92-4707
*97-4922
*104-5148
*114-5568
*133-5924

133-5924

CZDRLD

CREATED BY
CROSS REFERENCE
VALUE

001456
001410
001440
001444
001450
001454
001002
034070
030562
001424
001426
001410

030551
001441
001445
001453
001455
001354
027752
= 000001

027164
027166
032160
001416
002716

001006
034162
034074
034112
001404
030302
030574
030422
030752
= 000007
026336

MACRO

ON 2-NOV-81 AT 16:13

SEQUEN CE_187

CREF

REFERENCES

#52-3178
49-3176
#52-3178
#52-3178
#52-3178
#52-3178
#,9-3176
*+137-5930
127-5915
$50-3178
#52-3178
#50-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-3402
#110-5478
114-5568
#116-5682
118-5778
*124-5911

*124-5911
133-5924
*48-3165

*122-5902
*,8-3166_
1466417

#49-3176
138-5932
81-4264
138-5932
#52-3178_
130-5917
#128-5915
#130-5917
#129-5915
#131-5919
#128-5915
#122-5902

F 15

PAGE 18

vO1

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

1235909
#126-5913
88-4593
#90-4643

123-5909

934771
#95-4888
97-4947
#99-4999
102-5058
#104-5203

#88-4593
91-4643

106-5287
#108-5402
111-5478
#114-5588
116-5682
#118-5778
%124-5911

122-5902
#61-3589

122-5902
64-3671

#138-5932
#138-5932
#138-5932
123-5909
131-5919
132-5921
132-5921
132-5921
133-5921
128-5915

133-5924

137-5930

*137-5930

135-5926

137-5930

#93-4804
95-4888
N97-4947
100-49
#102-5092
104-5203
#106=5287
109-5402
#112-5522
114-5588
#116-5682
119-5778
#124-5911

%124-5911
133-5924
#52-3178

123-5909

124=5911
#133-5924
64-3672

89-4593

#89-4622
91-4699
#93-4804

89-4622

#91-4699
94-4804
#96-4922
98-4972
0100-5023

#89-4622

92-4699
#94-4864

90-4622
#92-4771
94-4864
#96-4922

#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

#114-5588
117-5682
#119-5820

119-5820

#109-5441
113-5522
#115-5641
117-5738
#119-5820

*124-5911

#124-5911

*81-4264
122-5902
*87-4408

*87-4406

88-4454

88-4538

121-5877

*122-5902

88-4456

88-4540

121-5876

*122-5902

122-5902

129-5915

130-5917

146-6418

138-5932
123-5909
131-5919
132-5921
132-5921
132-5921
132-5921

CZDRLD

CREATED BY

MACRO

ON 2-NOV-81 AT 16:13

CROSS REFERENCE
VALUE

PAGE 19

G 15

SEQUENCE_ 188
CREF
Vo1

LA A ddd

LA22l
]

031200
000137

177777

$SVLAD
$SVPC
$SWR

032124
001000
163400

#48-3152

48
2
#133-5924

#48-3152

42-3034

48-3152
81-4264
81-4264
135-5926
48-3152
48-3152

#48-3152

48-3152

#48-3152

#48-3152
#48-3152

48-3152
48-3152

42-3034
81-4264
94-4804
103-5092
113-5522

42-3034

145-6400
$TkB

001346

$TKS

001344

$TMPO

001360

$TMP1

001362

$TMP2

001364

$TMP3
$TMP4
$TMP5

001366

$TN

= 000040

123-5909

*126-5913
136-5928

*69-3790
75-3996
91-4659

«117-5724
*133-5924

*125-5913
#52-3178
#52-3178
#52-3178
#52-3178

#41-3022

90-4643
#93-4771

81-4264
122-5902

81-4264

35-5926

42-3034
133-5924

145-6380
145-6389
145-6398
145-6407

133-5924

$SWOBT
STESTN

81-4264
122-5902

135-5926

hed
nN
~

W
W
]

—_—

$SWREG
$SWRMK

81-4264
81-4264
135-5926

95-4864
104-5148
114-5568
122-5902
133-5924
133-5924
135-5926

$STUP

l133-5954

35-5926

133-5924
135-5926

*87-4411
145-6383
145-6392

*133-5924
145-6385
145-6394
145-6403

*133-5924
145-6386
145-6395

136-5928

145-6401

*87-4420
145-6384
145-6393
145-6402

145-6404

145-6405

145-6379
145-6388
145-6397
145-6406

123-5909

127-5915

128-5915

123-5909
133-5924

127-5915
141-6208

127-5915

128-5915

*105-5205
*126-5913
*138-5932
*72-3848

105-5212

*105-5237
*126-5913
145-6404

114-5570
126-5913

*117-5705

72-3869
90-4633
*103-5098
126-5913

72-3872
*91-4645
*103-5099
*126-5913

*75-3938
*91-4648
*103-5100
*133-5924

105-5231

105-5235

*105-5238

*125-5913

145-6396
*72-3867

*72-3868

145-6395

90-4622
*92-4764
95-4864

#90-4622
92-4771
#95-4864

*81-4263

*126-5913
136-5928

81-4265

*126-5913

69-3797
*90-4627
*103-5094

*69-3802

0
*69-3803

41-3032
91-4643
*93-4793

#91-4642
93-4804

88-4593

145-6395

89-4593
91-4699
94-4804

#89-4593

92-4699

#94-4804

89-4622

#92-4699

94-4864

*126~5913

*90-4634
93-4771
*95-4866

CREATED BY

CZDRLD

ON 2-NOV-81 AT 16:13

REFERENCES

PAGE1%8
SEQUENCE
CREF
vo1

H 15

=
*
%
%
NTO—MONIMNITWVNONVONNOYO =LRXB3MrO—TNMNIMM OTNNNNNnnnnWTO=NITNONOONNNNONONVNONNONINOvON MTIWTOoNMNTOMN—(C~ONOr=GM—NF\OCND— maooOAe-ro—r—.r—rlrLgqraelNacllacalalal NWOTV%OoTCM0[L(OMTaAOC¥YNO0]NWO—VIMN—.(NCDO—ONID %80Lgo0ala0l1al]a1a NONUal’alW’al’alDalal’aNl —r——r————1—MIN]OMNDOLeaAl%l"’lolaa’’s)) 2“5M[N8Oy
#132-5921

*121-5860
135-5926

*122-5902
135-5926

eX=gRy ZZZM&ZZW *TOTV#VNN N-T osAeal"al"'alalala wnunununnnne—oO1NONO2NON1ONOe1” oeALl wOrno|SaNIUNM4BN, MwO~ 0—rrrOrr-oJEL4Nalal1a¥Eia[LiVXlaoflVyalta —Owr\—~ No8V eolN~
woy

133-5924

Mowi
N~§
—
o

*141-6184
#49-3176
#52-3178
#52-3178

#122-5902
#134-5924
#134-5924
#134-5924
#134-5924
#134-5924

wyo5

141-6199

-—

["4) ~ N

87-4446

2 2-5902
3 4=5924
3 4=5924
3 4=5924
3 4=5924
3 4=5924

134-5924
134-5924
134-5924
134-5924
134-5924

#134-5924
#134-5924
#134-5924
#134-5924
#134-5924

134-5924
134-5924
134-5994
134=5924
134-5924

4-5924
4=5924
4=5924
4=5924
4=5924

#134-5924
#134-5924
#134-5924
#134-5924
#134-5924

-—

~N
N

®»

~a¥o
]~1[+
o0

]

133-5924

[
[

>NOU>M3=O3N=3=O3I=3N=U3==3=3W=&b=

#49-3176
#52-3178
133-5924

031146
001004
001302

$TRPAD
$TSTM
$STSTNM

] [+

]

oaocaxaaoc
D ——% &R &[y&

rLUN elelelelels]ocooM mune—Mer—NONITWON

- ~—

L
3
W
*
«
|
#«
4o]b[ -"—al’al w[ L W B R #

oMRo OBN WxRNMO~O—NILM

glalLalalalalal7mooooo1¢|¢lql

oIy—00+—UMVONI

®]a1~*20a'la2la0l’%-aUlL2"-a—1lM28L3w-—[}v No®Or»NgLlONalNaOlNala3olLal NOOAkON=C3NOO—TNMNrI3—MILrT=R—WOrN—WN0nNN

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

—

CZDRLD

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

SOFILL

027165

. SAV

041640

.SX

001000

$40CAT
SASTA

122222}

MACRO

ON 2-NOV-81 AT 16:13S

REFERENCES
#134-5924
#134-5924

#134-5924
#134-5924
#134-5924
#134-5924
t124-5911

122222

#49-317

EQUENCE

CREF

134-5924
134-5924

124-5911

115

PAGE 51

190

vo1

#134-5924
#134-5924
#134-5924
#134-5924
#134-5924
#134-5924

#124-5911

134-5924

134-5924
134-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:13S

MACRO CROSS REFERENCE
MACRO NAME

COMMEN
ENDCOM
ESCAPE
GETPRI
GE TSWR

MSG1
MSG10
MSG25
MSG26
MSG3
MSG32

MSG340

REFERENCES

#43-3049
#43-3049
#43-3049
#88-4586
#91-4693
#94-4858
#95-4882
#89-4616
#93-4795

#97-4922

#118-5773

#119-5778

MSG62
MSG70
MSG71
MSG710
MULT

#119-5815
#110-5472
#112-5515
#90-4636
#43-3049

POP
PUSH
REPORT
SETPRI

SETTRA
SETUP
SKIP

89-4593
92-4699
#95-4864
#96-4888
90-4622
#94-4804

#96-4917

#97-4942
#98-4967
#92-4766
#99-4992
#100-5019
#101-5052
#102-5086
#103-5142
#104-5197
#105-5240
#106-5281
#107-5355
#108-5396
#109-5435
#114-5582
#113-5563
#116-5676
#115-5636
#117-5733

NEWTST

J 15

#43-3049
#43-3049

MSG341
MSG342
MSG4
MSG40
MSG43
MSG44
MSG450
MSG46
MSG47
MSG50
MSG51
MSG52
MSG53
MSG54
MSG55
MSG550
MSG56
MSG57
MSG60

MSG61

PAGE1S%
EQUENCE
CREF
VOl

#98-4947
99-4972
#93-4771
#100-4999
#101-5025
#102-5058
103-5092
104-5148
105-5203
#106-5245
107-5287
#108-5360
109-5402
110-5441
#115-5588
114-5568
117-5682
#116-5641
118-5738
120-5820
111-5478
#113-5522
91-46643

#32-1239

#43-3049

#88-4593

#89-4622

#91-4699

#92-4771

#93-4804

#61-3027
#41-3027
#43-3049
#43-3049

#43-3049
#43-3049

#125-5913
#125-5913

#130-5917
#130-5917

#137-5930
#137-5930

#137-5930

132-5921
132-5921
#43-3049
#43-3049
100-5001
107-5349

132-5921
132-5922
#81-4264
90-4634
101-5048
109-5423

132-5921

132-5%21

132-5921

95-4866
103-5140
110-5467

95-4878
104-5165
112-5513

#96-6922
#106-5287
#117-5738

#132-5921
132-5921
#41-3027
#41-3014
99-4988
107-5320
118-5763

W97-4947
#107-5360
#118-5778

119-5804

N98-4972
#108-5402
#119-5820

119-5812

#99-4999
#109-5441

92-4764
102-5079
109-5431
120-5846

#101-5058
#112-5522

132-5921

#102-5092
#113-5568

#94-4864

#95-4888

132-5921

96-4890
104-5188
114-5578

97-4938
104-5193
116~5665

98-4963
105-5224
116~5673

#103-5148
#114-5588

#104-5203
#115-5641

#105-5245
#116-5682

CZDRLD

CREATED BY

MACRO

ON 2-NOV-81 AT 16:13s

MACRO CROSS REFERENCE
MACRO NAME
REFERENCES
#43-3049
SLASH
#43-3049
SPACE
STARS

SWRSU
TRACK

TRMTRP
TYPBIN

TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$SCMRE
SSCMTM

$SESCA
SSNEWT

$SSET
$SSETM
$$SKIP

.EQUAT
.EQUIV
-HEADE
.SETUP
. SWRHI

#70-3811
#75-3923
#79-4226
#84-4314
#89-4593
#94-4804
#99-4972
#104-5148
#109-5402
#115-5588
#120-5820
#127-5915
#139-5935
#43-3049
#41-3010
#100-4999
#110-5441
#132-5921
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#43-3049
#32-1009
#51-3178
#51-3178
#43-3049

#106-5287
#117-5738
#132-5921
#132-5921
#81-4264
#41-3017

#41-3004
#43-3049
#43-3049
#41-3027
#41-3027
#41-3028

#42-3047

PAGE 23

K 15

EQUENCE
192
CREF
Vo1

#43-3049

#44-3054

#45-3079
#49-3176

#46-3103
#52-3178

#63-3603
#68-3739
#73-3876
#77-4096

#47-3122
#52-3178

#63-3619
#68-3749
#73-3885
#77-4104
#82-4273
#88-4578
#92-4699

#48-3144

#48-3148
#61-3204
#64-3666
#69-3789

#101-5025
#111-5478

#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
#81-4264
#90-4622
#102-5058
#113-5522

121-5874

122-5902

#43-3049

127-5515

136-5928
122-5902

122-5902

52-3178

#43-3049
#97-4947
#107-5360
#118-5778
#132-5921
#132-5921

#88-4593
#98-4972
#108-5492
#119-5820
#132-5921
#132-5922

#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

#94-4864
#104-5203
#115-5641

#95-4888
#105-5245
#116-5682

#132-5921

#132-5921 - #132-5921

#132-5921

90-4634
101-5048
109-5423
119-5812

92-4764

95-4866
103-5140
110-5467

97-4938
"104-5193
116-5665

98-4963
105-5224
116-5673

#43-3049
#43-3049
#43-3049

#104-5148
#109-5402
#115-5588
#120-5820
#129-5915
#139-5937

#42-3034

#75-3956

#132-5921

#101-5025
#106-5245
#111-5478
#117-5682
#124-5911
#133-592¢4

#88-4573
#92-4699
#97-4922
#102-5058
#107-5287
#113-5522
#118-5738
#125-5913
#135-5926

#97-4922
#102-5058
#107-5287
#113-5522
#118-5738
#126-5913
#136-5928

#78-4210
#83-4297
#88-4581
#93-4771
#98-4947
#103-5092
#108-5360
#114-5568
#119-5778
#127-5915
#137-5930

#92-4699
#104-5148
#115-5588

#95-4864
#105-5203
#116-5641

#96-4888
#106-5245
#117-5682

#97-4922
#107-5287
#118-5738

#98-4947
#108-5360
#119-5778

#99-4972
#109-5402

#80-4244

#86-4395
#90-4622
#95-4864
#100-4999
#105-5203
#110-5441
#116-5641
#122-5902
#131-5919
#141-6174"
#91-4643
#103-5092
#114-5568

#82-4268

120-5846
#43-3049
#43-3049
#43-3049

#43-3049
#43-3049

#43-3049
#63-3049

#43-3049
#43-3049

#43-3049
#63-3049

#108-5360
#114-5568
#119-5778
#127-5915
#138-5932

#120-5820

#43-3049
#43-3049

CZDRLD

CREATED BY

MACRO

ON 2-NOV-81 AT 16:13

MACRO CROSS REFERENCE
R

REFERENCES

.SWRLO
“SACT]
“SAPTB
“SAPTH
“SAPTY
“SCMTA
-SEOP
-SERRO
-SERRT
- SPOWE

#,1-3028
#,1-3020%
#1-30cy
#,1-3028
#,1-3028
#41-3028
#32-1016
#32-1679
#33-1880
#,1-2983

#42-3036
#48-3175
#32-3178
49-3176
137-5930
#50-3178
122-5902
135-5926
136-5928
#138-5932

“SRDOC
“SREAD
$5COP

#39-2830
#38-2432
#32-133%

131-591
W127-5915
#133-5924

-SRDDE

STRAP
$TYPB
$TYPD
$TYPE
$TYPO

#40-2910

#1-3027
#37-2345
#36-2202
#3,-1986
#35-2113

130-5917

#132-5921

125-5913
#123-5909
#124-5911

42-3035
#52-3178

PAGE 24
SEQUENCE 193
CREF
VvO01

L 15