Digital PDFs

AH-E780A-MC

January 1980

107 pages

Original

4.3MB

view download

OCR Version

3.5MB

view download

Document:	CZDRLA0 DR11W DR11-W GEN NPR INTFC JAN 1980 bw
Order Number:	AH-E780A-MC
Revision:	000
Pages:	107
Original Filename:	CZDRLA0__DR11W__DR11-W_GEN_NPR_INTFC__AH-E780A-MC__JAN_1980_bw.pdf

OCR Text

DR11-W GEN NPR INTFC

CZDRLAO

AH-E780A-MC

JAN 1980

1
FICHE 1 OF

MADE IN USA

copvriGHT 1980

050020

(JDRL AQ=DR W GEN NPR INTF(

MACRO M1111 24=SEP=79 10:39 PAGE 3

l
3

‘é

1
SEQ 0001

JDENTIFICATION

¢
g

PRODUCT (ODE:

AC-E779A-M(

;cv

PRODUCT NAME:

C(ZDRLAD DR11-w GEN NPR INTF(

DATE RELEASED:

AUG. 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

A_THOR:

JOMNN w.

(]UkAJ

22
23
26
52

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO (HANGE W]THOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT (ORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF

AFFILIATED COMPANIES.

THE FOLLOWING ARE

DIGITAL

SOF TWARE ON FQUIPMENT THAT S NOT SUPPLIED BY DIGITAL OR TS

DEC

(()

1979 BY DIGITAL EQUIPMENT (ORPORAT]OM,
TRADEMARKS OF

PDP

DECCS

DIGITAL EQUIPMENT (ORPORAT]ON
JNIBUS

DE TAPE

MA S SBUS

(ZDRLAD-DR11w GEN NPR INTF(

MACRO M1111

24=SEP=79 10.39

¢
PAGE 3

SEQ 0002

TABLE

&2
1.0

ABSTRACT

2.0

REQUIREMENTS

¢.1
2.2

CONTENTS

EQUIPMENT
STORAGE

3.0

TESTING MODES

4.0

LOAD AND START PROCEDURE

5.0

SOF TWARE

3.1
3.2

5.1
5.2
5.3
5.4

DEFINITION
IMPLEMENTATION

SWITCH REGISTER

OPTIONS
IMPILEMENTATION
CONTRO.
PROGRAM AND/OR OPERATOR A(TION

6.0

ERROR REPORTING

7.0

OPERATING MODES
7.1

MANUAL MODE

7.1.1

7.1.2
7.2

8.0

MANUAL MODE w/MULTIPLE BOARD FEATURE
MANUAL

W/BURST DATA LATE

AUTO MODE

M]SCELLANEOUS

8.1
8.2

RESTARTING PROGRAM [N (ORE
POWER FAIL

9.0

EXECUTION TIMES

10.0

SUBROUTINE ABSTRA(TS

11.0

EXAMPLES
11.7

12.0

MOLE

USING MULTIP_E BOARD FEATURE

PROGRAM SUMMARY

TESTS

(ALIBR.

"W GEN NPR INTF(
(ZDRLAD=DRY
i
92
93

MACRO M1111

1.0

24=SEP=-79 10:39

PAGE 4

SEQ 0003

ABSTRACT

97
%

[HI1S DIAGNOSTIC PROGRAM IS CAPABLE OF TESTING EITHER THE DR11w
OR THE DR11B NPR GENERAL INTERFACE.

100

IT HAS THE FOLLOWING FEATURES:

102

103
104
105
106

108

2.
37
4.

ACT11/XXDP COMPATIBLE

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

109

2.0

REQUIREMENTS

112

2.1

CEQUIPMENT]

1
11

114
115
116

1.
20
3.

2.2

121

153
%

135

CABLE

(OPTIONAL)

[STORAGE]

TESTING MODES

3.1

[DEFINITION]

BLYRARNC DL e

Dk oD~
b =D
d
b
D
b
el
e
b
)
d
— o

LOOP BACK

3.0

THE

DR11w DIAGNOSTIC PROVIDES

",
2.

MAINTENANCE MODE TESTING
CABLE MODE TESTING

TWO

INDEPENDANT MODES CF

LOGIC

TESTING:

IN CONTEXT OF THE DIAGNOSTIC,"MAINTENANCE MODE TESTING'
!S DEFINED AS TESTS WHICH ARE PERFORMED WITH BIT 12 uF THE (SR SET.

THIS RESULTS IN '"LOGIC WRAP-AROUND' WHICH ALLOWS TESTING
WITHOUT A USER DEVICE OR PHYSICAL CABLE.
LOGI(C WRAP-AROUND

CHECKS ALL LOGIC FUNCTIONA_ITY EXCEPT MODULE CONNECTORS,CABLES,
AND ]1/0 DRIVERS AND RECEIVERS.
‘'CABLE MODE TESTING' ,THEREFORE,CHECKS
ALL THESE THAT THE LOGIC WRAP-AROUND DOESN'T.

d —t

F ol oW oI N oS 2R AT 0 W
NOWN
S WL =0 O

148

©DP11 STANDARD COMPUTER
170 TYPE TERMINAL
DR1T-w

THE PROGRAM USES 4600 WORDS OF MEMORY

126
157

sttt

3.2

(IMPLEMENTATION]
THE

TWO MODES OF

TESTING ARE

INVOKED AS FOLLOWS:

THE PROGRAM WILL ALWAYS DO THE MAINTENANCE MODE

MACRO M1111

24=SEP=79 10:39
2.

O\flm\fl\fiwf\‘n\fl\flwb
W
=200

B
N
S S S S

(ZDRLAO-DR11W GEN NPR INTF(

PAGE 4-!

AUTOMATICALLY CHECK

IS IN PLACE.

wilL BE DONE.

(o LVelo
- R¥To RV

NOTE:

161

}22
166

167
168

THE PHYS]CAL WRAP~AROUND

IT IS,

IF NOT,CABLE

'CABLE TESTS

TESTS ARE

SK.PPED.

STEP 2 CAN BE ALTERED BY USING

SWITCH REGISTERS 9 OR 10.

SEE SECT.

5.1

LOAD AND START PROCEDURE
1.

LOAD PROGRAM

PRESS START=SEF SECT 7.0 FOR OPERATING MODFS

}2%

SEQ 0004

IF SWITCH REGISTERS 9 AND 10 ARE O, THEN THE PROGRAM

WILL

CABLE

4.0

INTO MEMORY

LOAD STARTING ADDRESS 200

5.0

SOF TWARE SWITCH REGISTER

5.1

[OPTIONS]

}gg

SWITCH

OCTAL

FUNCTION

171
172
173

SW15=1
SW14=1
Sw13=1

100000
040000

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS

175
176

SW10=1

002000

174

020000

SWw11=1

004000

177

SW09=1

001000

180

SW08-1

000400

178
179

181

INHIBIT ITERATIONS

PERFORM MAINT. MODE (INTERNAL
LOGIC WRAP-AROUND) TESTS ONLY.
PERFORM CABLE MODE

AFTER 1ST OCCURRENCE

5.2

(IMPLEMENTATJON]

186

187

IS RUN ON A (PU WITHOUT A SWITCH

THEN A SOFTWARE

SWITCH REGISTER

IS USED WHICH ALLOWS

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

189

190

THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR

AND IT CONTAINS ALL ONES (177777)
REGISTER

}3?

5.3
t

(LOC.

176)

1S USED.

THEN THE SOF TWARE

ONE DOES

SWITCH

FCONTROL ]
TH]S PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOF TWARE
(LOC 176) FROM THE TTY.
THIS IS ACCOMPLISHED AS FOLOWS:

199

202

205

582

THE DIAGNOSTIC

188

58?

ERROR

BOARD SPECIFIED IN TABILE FOR TESTING.

}gé

196
}gg

DURING A PASS OF PROGRAM,JUMP TO THE NEXT

13%

191
192
193

TESTS UNCONDITJONALLY

(DO NOT ALLOW PROGRAM TO DECIDE
WHETHER CABLE IS IN )

TYPE

LOC.

CONTROL

G <“G>;THIS ALLOWS THE

SWITCH REGISTER

TTY TO ENTER DATA INTO

176 AT SELECTED POINTS WITHIN THE PROGRAM.

THE MACHINE WILL

TYPE:

SWR=XXXXXX NEWw

AFTER THE

THE OPERATOR (AN DO ONE OF

CONTENTS OF THE SOF Tw. SWITCH REGISTER)
'NEwW '

(XXXXXX IS THE OCTAL

THE FOLLOWING:

MACRO M1111

o
p AN
I3RS

(ZDRLAO-DR11w GEN NPR INTF(

PAGE 4-¢

N:39

24=SEP=79

SEQ 0005

TYPE A NUMBER "0 BE LOADED INTO LOC. 176 FOLLOWED BY A <(R>
(ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS

wiLL

ALLOWED).

S e

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

NOT BE

CHANGED.

IF A (ONTROL U <*U> IS DEPRESSED THE PROGRAM WILL GO BA(K
TO STEP 2.

OOV~

v Sl g

{PROGRAM AND/OR OPERATOR ACTION]

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN

[

IS NORMAL LOGIC TESTING.
IF AN ERROR
IS DETECTED HERE, THERE WILL BE A PRINTOUT.
WHEN
AN ERROR IS DETECTED AND IT IS NECESSARY TO SCOPE

221

ON IT, PLACE SW15 UP TO HALT ON ERRCR,
o

TO LOOP ON ERROR,

THEN Swlé& UP

THEN SW13 UP TO DELETE PRINTOUTS.

ERROR REPORTING

DEPENDING ON WH]CH BOARD IS BEING TESTED,THE STATUS PRINTOUT wiLl
REFLECT EITHER THE DR11w OR THE DR11B.

ALL ERRORS ARE ACCOMPANIED WITH THE FOLLOWING PRINTOUT:
TESTNO

ERRP(C

PSW

DR11wW/B STATUS

:
WHERE
TESTNO

~TEST NUMBER WHERE ERROR OCCURRED

PSW

-PROCESSOR STATUS WORD AT ERROR

ERRP(

- LISTING ADDRESS WHERE THE ERROR WAS DETECTED

DR11W/B STATUS

=CONTENTS OF DR11W/B CONTROL
REGISTER AT

ERROR

TIME

1IME

STATUS

OPERATING MODES

[MANUAL MODE
]
DEFINED AS NON-AUTOMATIC USE OF
A.LOADING PROGRAM VIA PAPER

DIAGNOSTIC.FOR EXAMPLE:

TAPE

B.LOADING FROM XXDP PACKAGE VIA KEYBOARD

(.REQUESTING A PROGRAM FROM ACT11

VIA ACT11

STATION SWI'(HES

ONLY UNDER MANUAL MODE DOES THE DJAGNOSTIC OFFER 'BURST
DATA LATE' CALIBRATION AND 'MULTIPLE BOARD * DIALOGUE.
AF TER LOADING PROGRAM, DEPOSITING SA 200, AND PRESSING
START, THE PROGRAM “YPES THE FOLLOWING(NOTE
:USER INPUT
:
IS UNDERSCORED)

(ZDRL

DR11-W GEN NPR [NTFT

CZORLAG=DR11w GEN NPR INTF(

MACRO M11171

6 1
PAGE 4-3

24=SEP=79 10:39

SEQ 0006

DO YOU WISH BURST DATA LATE (AL [BRATION?
(Y=YES,N=NO):

DO YOU WISH MULTIPLE BOARD DIALOGUE?
(Y-YES,N=NO):

AEIFCEBUARE SWITCH REGISTER [S INVOKED,

THEN THE FOLLOWING wiLL Bt

NEW=

SWR XXXXXX

(REFER TO SECT.

5.0 FOR OPERATOR OPTIONS)

ANSWERING 'NO°' TO THZ ABOVE QUESTIONS (AND ASSUMING THAT
MULTIPLE BOARD SIZING HAD NOT BEEN PREVIOUSLY DONE) THE
PROGRAM DEFAULTS

ADDRESS

TO ONE BOARTM

TESTING SPECIFIED BY REGISTER

°DEFRAD'(172410) AND VECTOR ADDRESS

PROGRAM THEN TYPES:

*3RD ADDR.:

°'DEFVAD'(124).

THE

172410

IF NO SWITCH REGISTER OPTIONS ARE SELECTED THE PROGRAM
WILL 'END PASS' THE FIRST TIME WITH NO ITERATIONS.
SUBSEQUENT
'END PASS' WILL BE WITH ITERATIONS.
THE

"END PASS'

TEST MODE:

TYPEOUT

MAINT MODE

END PASS # XXXXXX

7.1, 1

IS AS FOLLOWS(IN THE

CASE OF

MAINT MODE

TESTING):

ONLY

[(MANUAL MODE W/MULTIPLE BOARD FEATURE]
THE DIAGNOSTIC CONTAINS AN INTERACTIVE MONITOR WHICH
ALLOWS THE USER TO CREATE AND MODIFY A TABLE DESCRIBING

UP TO 16 BOARD REGISTER AND VECTOR ADDRESSES FROM WHICH THE PROGRAM

WILL SUBSEQUENTLY RUN.

THE PROGRAM WILL SEQUENTIALLY RUN THRU EA(H BOARD

DESCRIBED IN THE TABLE FOR °'ENDPAS #1°' AND THEN DO THE SAME FOR 'ENDPAS #2' ETC.

mAamlLLlaaaLl

VNN
W =20

(N AN AN NN N NN NN

308

ALL BOARDS FOR 'ENDPAS #1' EXPERIENCE TESTING WITH NO ITERATIONS.
THUS,
TYPING 'Y'* TO THE QUESTICN ‘DO YOU WISH MULTIPLE BOARD DIALOGUE"" ENTERS

THE USER INTO THE MULTIPLE BOARD MONITOR WITH THE PROMPT "' '* TO WHI(H THE

FOLLOWING

'L
‘£
*

COMMANDS MAY BE

TYPED:

" = LIST PRESENT MULTIPLE BOARD TABLE
' - EDIT PRESENT MULT BRD TBL
'

- START PROGRAM TESTING

AT ANY PCINT DURING PROGRAM RUN A 'RIN SUMMARY' MAY BE RECC[VED

BY TYPING A 'CONTROL S' <*S>.

THE PROGRAM wllLiL DETE(CT

(ZDRLAO-DR11w GEN NPR INTF(

MACRO M1111

%g%)

24=SEP=79 10:39
THE

PAGE 4-4

“S AND PRINT:

RUN SUMMARY.....

%S%

BOARD

324

XXX
XOOXXK
ETC.

325
326
327
328

ggg

PASCNT
XXX
XXX
ETC.

ERRCNTY
XXX
XXX
ETC.

WHERE :

321
332
332
%gg

BOARD

- LISTING OF ALL BOARD REGISTER ADDRESSES SPECIFIED
IN MULTIPLE BOARD TABLE
- # PASSES DONE ON EACH BGARD SPECIFIED
- # OF PASCNT'S WHERE ONE OR MORE ERRORS WERE DETE(CTED

PASCNT
ERRCNT

%%g

[MANUAL MODE W/BURST DATA LATE CALIRR.]

328
339
340
341
342
343
34
345
3466
347
gzg

THE DIAGNOSTIC CONTAINS A ROUTINE WHICH AIDS THE USER
IN 'BURST DATA LATE' CALIBRATION.
AS STATED IN THE DR11-w
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.
EFFECTIVELY, THE PROGRAM SOFTWARE ROUTINE SETS THE CYCLE BIT IN THE (SR
OF TH DR11W, FOLLOWS WITH A DELAY, AND THEN CLEARS THE CYCLE BIT.
THIS CONTINUES REPEATEDLY UNTIL THE USER HALTS THE CPU.
THUS, WHEN THE
USER SUBSEQUENTLY ATTACHES A SCOPE PROBE TO EB88-6 ON THE DR11-W (REFER
TO PRINT SET M8716-0-1) A POSITIVE PULSE WILL BE OBSERVED.
THE PULSE
SHOULD BE SET BETWEEN 5-30 US. BY ADJUSTING POT. RS8S.

350

THEREFORE, ANSWERING 'Y' TO THE QUESTION: °'DO YOU WISH
BURST DATA LATE CALIBRATION?' WwlLL RESULT IN THE FOLLOWING PRINTOUT:

%g}

353

BURST DATA LATE CALIBRATION IN PROGRESS..

355

TO ABORT THIS ROUTINE, HALT PROCESSOR...

354,

ATTACH SCOPE PROBE...

358

THE CALIBRATION ROUTINE WILL FUNCTION ON ONE BOARD SPECIFIED
BY ‘DEFRAD'(172410) AND °'DEFVAD'(124).

359

360
361
362
363
364
%gz

367
368

ggg

7.2

)

[AUTO MODE
]

DEF INED AS USING THE PROGRAM IN A SITUATION OF SEQUENTIAL
EXECUTION OF TWG OR MORE PROGRAMS ACCORDING TO A PREDETERMINED SEQUEN(E
AND WITHOUT OPERATOR INTERVENTION.

%;}

ALTOMATI(C MODES ARE:

373

374
375

B.
.

ACT11

QUICK VERIJFY

A(T11 AUTO ACCEPT
XXDP (HAIN MODE

SEQ 0007

(ZDRLAQ-DR11w GEN NPR INTF(

MACRO M1111

24~SEP-79 10:39

PAGE 4-5

SEQ 0008

THE DR11W DJAGNOSTIC HAS THE FOLLOWING RUN (HARACTERISTICS wHEN
:
OPERATING IN AUTO MODE

377
378
379
380
381
382
383

THE PROGRAM WILL TEST ONLY ONE BOARD SPECIFIED BY °'DEFRAD’
AND

°‘DEFVAD'.

THE FOLLOWING WI.L NOT BE OFFERED "0 THE USER:
1.

2.
3.

BURST DATA LATE

(ALIBRATION

MULTIPLE BOARD DIALOGUE
RUN SUMMARY <*S>

8.0

MISCELLANEOUS

8.1

[(RESTARTING PROGRAM [N (CORE]
WHENEVER THE PROGRAM [S HALTED AND RESTARTED AT SA 200, ALL HISTORY OF PREVIOUS
TESTING IS LOST.

HOWEVER,

EDITED IS LEFT INTACT.
1.

¢.

8.2

THE MULTIPLE BOARD TABLE AS PREVIOUSLY

IT WILL REMAIN INTACT UNTIL:

ANOTHER PROGRAM IS LOADED

THE USER RE-EDITS THE

INTO CORE

TABLE

[POWER FA]L]
THERE IS NO RESTART MESSAGE NOR PROVISIONS FOR AUTOMATICALLY
RESTARTING PROGRAM UPON POWER UP.
IF NON VOLATILE MEMORY,THEN
RESTART AT SA 200.

9.0

EXECUTION TIMES

H NN
—
.
. L]
.

ON A PDP11/04:

10.0.

MAINT
MAINT
MAINT
MAINT

MODE ONLY/NO ITER.:
APPROX. 5 SEC.
MODE ONLY/WITH ITER.:
APPROX. 35 SEC.
& CABLE MODE/NO ITER.:
APPROX. 7 SEC.
& CABLE MODE/WITH ITER.: APPROX. 60 SEC..

SUBROUT INE ABSTRACTS

THIS SUBROUTINE

CALL

IS PLACED BETWEEN EACH SUBTEST

IN THE INSTRUCTION SECTION.

IT RECORDS THE STARTING

ADDRESS OF EACH SUB=TEST AS IT

IF A SCOPE LOOP [S REQUESTED,

IS BEING ENTERED.

IT WILL JUMP TO THE

START OF THE SUBTEST THAT THE SCOPE LOOP 1S REQUESTED FOR.
IF SCOPE LOOP IS NOT REQUESTED, THERE

CZDRLAO=DR11w GEN NPR INTF(

MACRO M1111

24=SEP=79 10:39

439

10.2

10.3

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

10.4
THE

THE

FOR TESTS WHICH USE

THE

THIS BUFFER IS LOADED ONLY

THE MAINTENANCE MODE OF

DR11-W WHICH HAS A SPECIAL ALTERNATING DATI-DATO
SEQUENCE OF OPERATION.
10.5

INTA
THE

IE BIT

IS CLEARED

IN THE

(SR THEN THE

(SR

IS CHECKED FOR THE ABSENCE OF AN ERROR AND THE

PRESENCE OF READY.
THE WCR IS CHECKED TO SEE
THAT 1T IS EQUAL TO ZERO.
THE CORRECT CONTENTS

OF THE BAR ARE CALCULATED AND CHECKED.
THERE
IS A JSR TO THE NORMAL SUB-ROUTINE BEFORE THIS
ROUTINE

IS EXITED.

ERROR IS SET, READY

476

480
481
482
483
484
485
486
487
488
489
490

CHKBUF.

THE NUMBER OF WORDS LOADED IS DETERMINED BY

CONTENTS OF BUFLEN.

470
{71
472
473
474
475

479

IS LOADED WITH A MODIFIED

BEGINNING AT THE STARTING ADDRESS OF

464

477
478

CHKBUF BUFFER

ING PATTERN (0,0,2,2,4,4.6,6,...)
INCREMENT

462
463

L67
468
469

LODBUF

THE INBUF BUFFER IS LOADED WITH AN INCREMENTING
PATTERN (0,1,2,3,...) BEGINNING AT THE STARTING

461

465

THAT PRINTS-OUT AN ADDRESS THAT TAGS

THE FAILING SUBTEST,THE CP
STATUS REGISTER AND
THE DR11w STATUS REGISTER AT THE TIME OF FAILURE.
NOTE: SUPPORTS “G ROUTINE FUR DYNAMIC LOADING
OF SOFTWARE SWITCH REGISTER

446

466

HALT

IS A ROUTINE

444
4L4S

448

ITERATIONS

NOTE: SUPPORTS “G ROUTINE FOR DYNAMIC LOADING
OF SOF TWARE SWIT(CH REGISTER

463

469
450
451
452
453
454
455
456
457
458
459
460

SEQ 0009

ON THAT SUBTEST BEFORE THE NEXT SUBTEST IS ENTERED.
SWITCH 11 ON A 1 INHIBITS ITERATION Of SUBTESTS.

442

447

WILL BE EITHER A FIXED OR RANDOM NUMBER OF

(3%
L35
L3
437
(38
440
AN

PAGE 4-6

ARE
10.6

CLEAR.

THE

PROGRAM WILL HALT

IS CLEAR, OR READY AND ERROR

DAT(CHK
THIS ROUTINE IS ENTERED 10 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 (OMSA?IEONS MADE IS DETERMINED BY THE CONTENTS OFf
UFLEN.

10.7
THE ROUTINE [S ENTERED FROM INTA AND FROM SOME
TESTS WHICH DON'T USE INTA.,
THE NUMBER Of

(ZDRLAO-DR11w GEN NPR INTF(

MACRO M1111

24=-SEP=79 10:39
THE

9N
692
493
694
495
496
497
98
499

THE ROUTINE

10.8

THE DRVS

IS EXITED.

7 AND

DATO(K

TO INSURE

10.9

THAT

TOO MANY WORDS WEREN'T

TRANSFERRED.

ERRCHK

THIS ROUTINE

CLEARS

IE AND HALTS

ERROR

IS SET.

10.10 TRAPCAT(HER
THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION O
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND

INTERRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF

MEMORY
.

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS
OF THE NEXT LOCATION.
THE NEXT LOCATION IS LOADED WITH

A HALT (000000).
THUS AN ILLEGAL TRAP OR INTERRUPT WILL
CAUSE A HALT AT THE TRAP LGCATION PLUS TwO.

IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE

LOCATION COUNTER WHEN THE

11.0

EXAMPLES

CUSING MULTIPLE BOARC FEATURE

TRAP OR

INTERRUPT

(REFER TO SECT.

(USER LOADS PROGRAM AND STARTS AT 200)
CZDRL

DR11-W GEN NPR INTF(

DO YOU WISH BURST DATA LATE
(Y-YES,

N=NO):

(AL IBRAT]ON?

DO YOU WISH MULTIPLE BOARD DIALOGUE"
(Y-YES,

—

G —
i Sl
ui S

INTO DRINV AND

OF COMPARISONS MADE IS DETERMINED BY THE CONTENTS
OF BUFLEN.
AN ADDITIONAL CHECK IS MADE ON BUFLEN+?

00 ~NOMN
NN = o

IS PUT

AFTER A STRING OF DATO'S HAS BEEN COMPLETED THIS
ROUTINE CHECKS THAT THE CORRECT DATA PATTEPN
(52525) WAS TRANSFERRED TO INBUF.
THE NUMBER

506
507
508
509

0 IV TV TV LV, LV, LV, | (¥,

SEQ 0010

PROCESSOR STATUS WORD IS RESTORED TO LEVEL

503
504
505

DRINV+2

CLEARED.
IF THE DR11-w INTERRUPTS UNDER THESE
CONDITIONS THE PDP=11 WILL HALT AT DRVS.
THE

500
501
502

PAGE 4-7

N NO):

7.1.1)]

OCCURRED.

1
L
PAGE 4-8

24-SEP-79 10:39

SEQ 0011

NO. BOARDS REQUESTED FOR TESTING:
BOARD#
1

REGSTR.

VE(CTOR

172410

000124

-t

HOW MANY BOARDS DO YO WANT TO TEST?

BOARD 1

BOARD

VECTOR AD DRESS:

3 <(R>

172610
000124

<(R>

000000
000000

172430 <CR>
170 <CR>

000000
000000

172450 <CR»
174 <CR>

<CR>

<===(USER INPUTS <(R>:(CONTENTS STAY SAME)

<===( (0 CONTENTS ARE C(MANGED)

BOARD #
NN
—

MACRO M1111

REGSTR.

172410

172430
172450

VECTOR

000124

000170
000174

CZDRLAO-DR11W GEN NPR INTF(

(PROGRAM NOW RUNS USING MULT. BOARD TABLE)
*BRD ADDR.:

172410

TEST

END PASS

MAINT £ CABLE
1
4

:
«*BRD ADDR.

1724630

END PASS

TEST MODE
:

MAINT & CABLE
"
1

*BRD ADDR.:

172450

END PASS

:
TEST MODE

MAINT & CABLE
»
1

*BRD ADDR.:

172410

:
TEST MODE

MAINT £ CABLE

MODE
:

(ZDRLAO-DR11W GEN NPR INTF(

MACRO M1111

24=SEP-79 10:39

PAGE 4-9

SEQ 0012

END PASS

*BRD ADDR.:

172430

TEST MODE
:

MAINT & CABLE

*BRD ADDR.:

172450

TEST MODE:

MAINT £ CABLE

END PASS

ETC.
(AT ANY TIME USER MAY REQUEST

'RUN SUMMARY' BY

*S
RUN SUMMARY.....

ERRCNT

PASCNT

BOARD

172410
172430
172450

10
10
9

0
0
0

(AFTER RUN SUMMARY ,PROGRAM RESTARTS
AUTOMATICALLY AT SA 200)

CZIDRL

DR11-W GEN NPR INTF(C

DO YOU WISH BURST DATA LATE CALIBRATION?
(Y=YES,

N=NO):

ETC.

TYPING *S)

CZORLAO-DR1
1w GEN NPR INTF(

649

650
651
65¢2
653

654

MACRO M1111
12.0

24-SEP-79 10:39

PAGE ¢

PROGRAM SUMMARY

SEQ 0013

(ZDRLAO-DR11w GEN NPR

672

INTF(

MACRO M1111

24=-SEP=-79 10:39

PAGE 6

SEQ 0014

(ZDRLAO-DR11Ww GEN NPR INTF{

LTITLE

;*COPYRIGKT (() 1979
;*DIGITAL EQUIPMENT CORP.

;*MAYNARD, MASS. 01754
*

:"PROGRAM BY JOHN W. CIUKAJ
;aTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDE( SYSMA(
:'PACKAGE (MAINDE(=-11-DZQAC-(3), LAN 19, 1977,
$TN ]

$SWR 160000

:2HALT ON ERROR, LOOP ON TEST,

NOP=000240
SCOPE=]OT

HLT=EMT

81T10=000001
BIT1=000002
B112=000004
8173=000010
BI1T14=000020
B8175=000040
Bi16=000100
B8117=000200
B 18=000400
B8179=001000
BIT10=002000
BIT11=004000
BIT12=010000
B81713=020000
BIT14=040000
81115=100000
RO=20

BUSERR=000004

R1-%1

R2=%2
R3-23
R4-%4
R5-25
R6-26
R7 %7
PC 27
SP %6

G0=1

FNCT1-2
FNCT2 4
FNCT3=10

XBA16=20
XBA17-40

1E=100

READY=200

CYCLE=400
DSTATA=1000
DSTATB=2000
DSTAT(=4000
MA INT=10000

INWIBIT ERROR TYPOUT

(ZDRLAO-DR11w GEN NPR [NTF(

MACRO M1111

c 2
PAGE 6~

SEQ 0015

ATTN=20000

020000
040000

718

24~SEP-79 10:39

NEX=40000
ERROR=100000
CRLF =200

100000

000200
022404
000034
000004
177570

STACK=BUFF
TRAPVE (=34
ERRVE(C=4

DSWR=177570
DDISP=177570

177570
000060

TKVE (=60

;LOAD TRAP CAT(CHER INTO O THRU 777.
JASECT

.=0
.=20

740 000020
741 000022

SCOPEC
340

743 000030
744 000032

746 000034
747 000036

$TRAP
340
.=46
$ENDAD

.~20

340

.~34

749 000046

751

.=52

0
=174

000052

753 000174
754 000176
756
757
758
759

000200
000204
000210
000214

000200
012706
005077
005737
001641

761
762
763
764
765
766

000216
000224
000226
000232
000236
000240

02373/
001415
012702
004757
000410
012702

768 000244
769 000250
770 000254
771 000260
772 000264
773
774 001000
775 001002
776 001004
777 001006
778 001010
779

004737
004737
004737
005037
000137
001000

780 001012

177570
177776
172410

000124
000000
000000

DISPREG:
SWREG:
0
. 200

022404
000572
000042
000042
014646
015372

014646

015372
020540
017256
001200
001364

MOV
LR
TST

#STACK,SP
aPSW
NGl

TMM
BEQ
MOV
JSR

W62, 66
2%
#STITLE
R2
PC,TTOUT

;1S THIS ACT11 AUTO MODE
JIF SO ,DON'T PRINT TITLE

MOV

#STITLE
R?

JPRINT

JSR
JSR
JSR
CLR
JMP
.=1000

PC,TTOUT
PC ,BRSTDL
PC .MBD
FLAG
SUSWR

BEQ

00V046

1%:

2%:

SR:

B8R

JARE WE IN AUTO MODE
JIF NOT,DO TITLE,CALIBRATION
JAND MULTIPLE BOARD SIZING

THE

TITLE

JBURST DATA [ATE CALIBRATION?
JMULTIPLE BOARD DIALOGUE

177570

PSW:

177776

PNTRAD:

PNTVAD:

DEFRAD:
DEFVAD:

172410
124

;DEFAULT REGISTER ADDRESS
:DEFAULT VECTOR ADDRFSS
;POINTER INTO MULTIPLE BOARD TABLE SPECIFYING
: CURRENT REGISTER ADDRESS BEING TESTED
;POINTER FOR YECTOR ADDRESS

781 001014
782 001016
783 001020
784 001022

785

786
787
788

789
790

791
792
793

795

MACRO M1111

INTFC(

24-SEP-79 10:39

PNTPAS: O
PNTERR: O
PRGCYC: O
QTYBRD: 1
REGADR: 172410
BLKW

000000
000000
000000
000001
172410

WCR:

172410
172412
172414
172416
000240

BAR:
(SR:
BDR:
DRINL:
VECADR:

000124

000124
000126
000000
000000
052525
173000
022406
023410

DRINV:
DRVS:
EIR:
BORW:

NPR1 :

DIOMEM:

BLKW
124
126
0
0

177566
0
HALT

PASCNT:

0
.BLKW

177564
177566

002

TEMP:
TEMP2:
TIME:

BLKW
0
0
0

HLTDET:
TESTAND:

O
O

377

;TOTAL:16 LOCATIONS

15.

;TOTAL:16 LOCATIONS FOR VECTOR ADDRESSES

FOR BOARD ADDRESSES

;TEMP STORAGE FOR (SR #2 (ERROR IND. REG)

15.

;NUMBER OF PASSES COMPLETED:

16 BOARDS

;ERROR COUNT TABLE:16 BOARDS
: TEMPORARY STORAGE

; TEMPORARY STORAGE

; GENERAL PURPOSE TIMER
;CABLE MODE TO BE DONE?:0-NO,1-YES

JSPECIFIES TEST # FOR ERROR PRINT
;GEN'L PURPOSE LOOP COUNTER

SWR:

177570

$TKS:
$TKR:
$TPS:
$TP8:

177560
177562
177564
177566

$NULL:
$FILLS:
$FILLC:
$TPFLG:
$8ELL:

TESTED

15.

HALT

DISPLAY:
. WORD

177560
177562

;TOTAL # DR11w BOARDS BEING

HALT
HALT
177560

TPR:
FLAG:
FNCCNT:

LOOP:

TABLE

JPOINTCR INTO ERROR COUNT TABLE
;COUNTER TO TRACK WHEN ALL BOARDS ARE TESTED

173000

177562
177564

CABLE:

SEQ 0016

52525

TKB:
TPS:

ERRCNT:

177570
177570

172412
172414
172416
240
124

XINBUF
X(HKBU
HALT
HALT
HALT

INBUF1:

172410

INBUF:
CHKBUF:
BUF LEN:
LENCHK:
BRWAIT:
WCLEN:
RDY(CHK:
TKS:

PAGE 6-2

;POINTER INTO PASCNT

.BYTE
.BYTE
.BYTE
.BYTE
.AS(CIZ

;FLAG

DDISP

A QOO

(ZORLAO-DR11W GEN NPR

THAT

2
207><377><377>

AN ERROR OCCURRED

DURING PROGRAM PASS

(ZDRLAG-DR11w GEN NPR

001347
001350
001351
001352
001354

000
077
015
012
377

001360
001362

000000
000000

MACRO M1111

INTF(

000
377

000

24~SEP-79 10:39

$QUES:
$CRLF:
$LF:
S$ENULL:
ANSWER:

.ASCII
LASCII]
LASCIZ
.BYTE
.EVEN
0

PAGE 6-32

SEQ 0017

/?/
<15>
12>

-1,-".0

BDFAIL: O

001364
001364

012706

022404

001370
001376

012737
012737

017176
000340

001404
001410
001416
001424
001432
001440

013746
012737
012737
012737
022777
001012

000004
0014644
177570

001442
001444
001450
001452
001460
001466
001472
001500
001506
001514

000403
012716
000002
012737
012737
012637
012737
012737
012737
012737

001522
001526
001532
001534
001536
001540
001544
001550
001552
001554
001556
001562

012700
012701
005020
005301
001375
012700
012701
005020

177570
177777

SUSWR:
.SBTTL

000034

000036

000176
000174
000004
001024
001076
001206
001246

001206
000020

001020
000176

65%:
66%:

2%:

001326

000042

014250

001316
001020
001020

BEGIN:

001022

;.TRAP VECTOR FOR TRAP (ALLS

#3460, NTRAPVEC+2,;
LEVEL 7

#DSWR, SWR
#DDISP,DISPLAY

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

663

:;BRANCH IF NO TIMEOUT TRAP OCCURRED

SNERRVEC,~(SP)

#6483 ,QNERRVE C
#-1,3SWR

;:TRY TO REFERENCE HARDWARE

::AND

THE HARDWARE SWR IS NOT - =1

659

MOV

#SWREG, SWR
;;POINT TO SOF TWARE SWR
#D]SPREG,DISPLAY
(SP) + ,#ERRVE(
;-RESTORE ERROR VECTOR
#REGADR,PNTRAD
;SETUP POINTERS IN BODARD
#VECADR,PNTVAD
#PASCNT ,PNTPAS
#ERRCNT ,PNTERR

RT1

MOV
MOV
MOV
MOV

MOV
MOV
CLR
DEC
BNE
MOV
MOV

CLR
DEC
BNE
CLR
(MP
BNE
TST

#658, (SP)

#PASCNT
RO
#16. ,R1

SWR

:;BRANCH If NO TIMEOUT
;2SET UP FOR TRAP RETURN

B8R
MOV

MOV
MOV

1%:

001246
000020

NSTRAP ,@NTRAPVEC

MOV
MOV
MOV
MOV
CMe
BNE

:
648

001010
001012
001014
001016

MOV
MOV

;;SETUP THE STArMK POINTER

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND NOR IT IS
o;EQUAL TO A '*=1"', SETUP FOR A SOF TWARE SWITCH REGISTER.

177666

001326
001324

THE COMMON TAGS

#STACK,
SP

;o INITIALIZE A FEW VECTORS

000004
001326
001324

001452

INITIALIZE

1Mov

TABLES

;CLEAR PASS COUNT TABLE

+
(RO)

R1
13
#ERRCNT
RO
#16. ,R1

;CLEAR ERROR (OUNT TABLE

(RO)+

’3

PRGCY(C
#SWREG,
SWR

BEGIN

=Y1Y

BEGIN

PC,CNTLU

HLTDET
PRGCYC,QTYBRD

BRDSET
PRGCY(

;1S SWREG USED

JARE WE IN AUTO MODE’
;JIF SO, SKIP SWREG INPUT
JALLOW SWREG TO Bt

LOADED

;EVERY PASS CLEAR ERROR FLAG

;HAS PROGRAM TESTED ALL BUARDS?

;JNO,CONTINUE TO NEXT BOARD
JYES;INITIALIZE TESTING TO 1ST BOARD
;OF MULTIPLE BOARD TABLE

(ZDRLAO-DR11W GEN NPR INTF(
INITIALIZE THE COMMON TAGS
876 001626

001634
001642
001650

012737
012737
012737
012737

MACRO M1111

24-SEP-79 10:39

001024
001076
001206
001246

MOV

MOV
MoV
MoV

PAGE 6-4

SEQ 0018

#REGADR,PNTRAD
#VE CADR,PNTVAD
#PASCNT ,PNTPAS
#ERRCNT ,PNTERR

sSET UP BOARD ADDRESSES OF CURRENT BOARD FROM
sMULTIPLE BOARD TABLE
005237
005737
001411
013737
013737
012737
012700
017701
010120
062701
022700
001372
012700
017701
010120
062701
022700
001372
104401

000410
013746
104402
1046401

000401

BRDSET:

001020
000042
001004
001006
000001
001064
177066

001024
001076
001022

2%:

000002
001C7¢

001136
177044

3s:

000002
001142

001770
;.65%:
64%:

001064

913

MOV
MOV
ADD

DEFRAD ,REGADR
;NO;USt DEFAULT REGISTER ADDRESS
DEF VAD,VECADR
#1,QTYBRD
MICR,RO ;LOAD WRD CNT,BUS ADDRESS,STATUS.,E DATA BUFFER ADDRESSES
aPNTRAD ,R1
R1,(RO)+
:
#2.R1
:

MOV

#DRINV RO

a6l
LOAD

JARE WE [N MANUAL MODE?
JYES;CHECK MULT BRD TABLE FOR NEXT BOARD ADDRESS

#8DR+2,R0
2%

aPNTVAD ,R1
R1,(RO)+

1:67%:

1%:

17673¢
014126

JLOAD

INTERRUPT

VECTOR ADDRESSES

2 ,R1
#DRVS+2 ,RC

3$
,65%
643

J:TYPE ASCIZ STRING
::GET QVER THE ASCIZ

WCR,~(SP)

::SAVE WCR FOR TYPEOUT

<CRLF><CRLF>/«RRD ADDR.:

,67%

002024

001314
022404
000340
002070
014124
001320
014122

PRGCY(

cMP
BNE

66%:

005037
012706
012777
013737
005037
005037
005037

INC

1ST
BEQ
BEGAUT: MOV
MOV
MOV
MOV
LOAD:

663

<CRLF>

CABLE
#BUFF ,SP

#340,8P5SW

T1STR,RETURN

SCOPEF

TESTNO

ICOUNT

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

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

;PROC. AT LEVEL #7

CZDRLAO-DR1TW GEN NPR INTF(
915
916
917

MACRO M1111

24=SEP-79 10:39

LSBTTL
LSBTTL

]

PAGE 7

MAINTENANCE MODE

SEQ 0019
TESTING

(ZDRLAO-DR11W GEN NPR INTF(

TEST

CAN ALL DR11w REG BE

MACRO M1111

24~SEP-79 10:39

ADDRESSED WITHOUT ERROR?

PAGE 8

SEQ 0020

LSBTTL TEST 1 CAN ALL DR11wW REG BE ADDRESSED WITHOUT ERROR”

".'tttQQ"".t'tittfit'tfiQtttt.fitfitt'fittt'ttfit."t'tfit'i"'tit'..t.tt.t."

TEST 1

CAN ALL

DR11-W REG BE ADDRESSED WITHOUT ERROR?

:"tt'*'.t"".t'."'t.'ttt'.fltttt't'Q.Qfit..ttttfitt..t.fitt't't't'.t'."tt

925 002066
926 002070
927
928
929
930
931
932
933
934
935

002076
002104
002110
002114
002116
002122
002126
002130
002134

936 002140
937 002142

938 002146
939 002152
940 002154
941
942
943
%44
945
946
7
948

949
950
951
G52

002160
002166
002170
002174
002200
002202
002204
002206

002212

002262
002264
002270
002276

002302

953 002332
954 002336
G57

000004
012737

012737
013746
005777
005726
013746
005777
005726
013746
005777
0C5726
013746

005777
005726
013746

013777
005726
013746
005077
005726
000455
022626
104401

000423

104402
104401
012737
104401

000413

000137
012737

002000
002204
001064

014122
000004

176750

T1STR:

(KWCR:

00106¢
176740

(KBAR:

001070

CKCSR:

176720

001G72
176720

001136
001140

176750

001140

;:65%:
64%:

013132
000006

000004

::67%:
66%:

000004

CKFIN:

#(PUERR ,BUSERR

cMP

B8R

64$

MOV
TST
TST
MOV

TST
1S7T
MOV
(KBDR:
TST
TST
(XDRIN: MOV
MOV
TST
CKDRVS: MoV

CPUERR:

00214

#2000,
1 COUNT

WCR,=(SP)
awCR
+
(SP)
BAR,-(SP)
aBAR
(SP)+
CSR,=-(SP)
a(SR
(SP)+
B8DR,~(SP)
aBDR
(SF)+
DRINV,=(SP)
DRVS.aDRINV
(SP)+
DRVS,=-(SP)
aDRVS
(SP)+
CKF IN
(SP)+,(SP)+

CLR

176740

001354
200006
002304

SCOPE
MoV
MOV
MOV
TST
TST

TST
BR

TYPE

LASCIZ

TYPOC
TYPE
MOV
TYPE

8R
.ASCIZ
JMP
MOV

.65%

<CRLF>/TESTNO

LSENULL

#6 ,BUSERR
4

663

;CPU ERROR VECTOR TO CPUERR
;SAVE ADDRESS FOR TYPE
sACCESS REGISTER
. OK;READJUST STA(CK

JTYPE

END

STRING

1-CPU ERROR WHILE

ADRESSING

JRESTORE #6 TO BUS ERROR VECTOR
,,TYPE

ASCIZ

STRING

;GET OVER THE ASCIZ

<CRLF>/SKIPPING ALL

#6 ,BUSERR

ASCIZ

..GET OVER THE AS(IZ

TESTS

JRESTORE #6 TO BUS ERROR VECTOR

(ZDRLAO-DR11w GEN NPR INTF(
MACRO M1111
TEST 2 ARE wE TESTING A DR11w OR A DR11B?
959

24=SEP=79 10:39

PAGE 9

SEQ 0021

LSBTTL TEST 2 ARE WE TESTING A DR17Ww OR A DR'IR”

960

P
L
R L

962

R
R e

961

963 002344

;

000004

964 002346
96S 002352
966 002356
967 002364

005037
005077
052777
017737

969 002400
970 002402
971 002406
972 002410

001403
104401
000402
04401

968 002372

032737

014122
176512
100000
176500

000001

SCOPE

CLR
(LR
BIS
MOV

176504

001144

BIT

015310
015230

TEST 2 ARE WE TESTING A DR1'W OR A DR11B?

1%:

BEQ
TYPE
BR
TYPE

ICOUNT
8(SR
#MIT15,8CSR
a(SR ,BORW

#3]17C,BORW
18
.MSG9
T3
.MSG8

JFORCE TO BE (SR #°

JARE WE A B OR A W?

JWE ARE A B

C(IZDRLAO-DR11W GEN NPR INTF(

TEST 3 THAT DEVICE

974
97%
976
977
978 002414

979 002416
980 002422

981 002430
982 002436
983 002442
984 002450
985 002456
986 002462
987 002464

INIT

MACRO M1111

(LEARS WCR

24-SEP-79 10:39

PAGE 10

SEQ 0022

.SBTTL TEST 3 THAT DEVICE INIT CLEARS W(R

AR ANRRRARAANRNAANRRANRANRSRNARNARRANOANARNNANAARANARANRA
AANRRANAN AR AA RSN

TEST 3

THAT DEVICE

INIT

CLEARS W(R

."l..t.'.tt..!.t.'t.t""...Qfitltt.fi.t.tt.tfi.Qt!'.t.tQttt't.tt.".t..ttt

000004
005077
012737

012777
004737
052777

042777
005777
001401
104000

176446
000010

177777
014144
010000
010000
176402

1%:
014122
174426
176420
176412

SCOPE
CLR

MOV
MOV
JSR
BIS

aCSR

#10, 1COUNT
#=1,aWCR
PC,CKSWR
#IT12,8(SR

BIC

#81T12,aCSR

BEQ

TST

HLT

aw(R

;FORCE TO BE (SR M
JALL ONES TO W(R
JDEVICE
JINIT
;1S 7 BIT SEI?
;DID WCR GET CLEARED
;WCR NOT (LEAR

(ZDRLAO-DR11w GEN NPR NTF(
MACRO M1111
TEST & THAT DEVICE INIT CLEARS BAR
989

24-SEP-79 10:39

PAGE 11

LSBTTL TEST & THAT DEVICE INIT CLEARS BAR

M B 22X2322233222 222222822022

991

992

993 002466

000004

005077
012777
004737

176374
177777
0141464

999 002522

005777

176340

1000 002526
1001 002530

2Rt

RS RRRtRRRRR Rl

TEST & THAT DEVICE INIT CLEARS BAR

SRSR Rl

Rl)

.'.'tt.'ttttttt.t'tit'ttt.'t'ttt'ttt.tttttt!t't.tt.tttttttnttt..t'..ntttttt

996 002470
995 002474
996 002502

997 002506
998 002514

SEQ 0023

052777
042777
001401
104000

010000
010000

SCOPE

176364

176354
176346

CLR

a(SR

JFORCE TO BE (SR M
;ALL ONES TO BAR

#BIT12.a(CSR
#B1T12,a(CSR

;DEVICE
;INIT

MOV
JSR

#-1,38AR
PC,CKSWR

TST

aBAR

BIS
BIC
BEQ
HLT

;1S 7 BIT SET?

;DID BAR GET CLEARED
;BAR NO (LEAR

(ZDORLAO-DR1
1w GEN NPR INTF(

TEST

THAT DEVICE

1003
1004
1005
1006
1007 002532

1008 002534
1009 002540
1010
1011
1012
1013
1014
1015

002546
002554
002562
002566
002574
002602

1016 002606
1017 002610
1018
1016

INIT

MACRO M1111

CLEARS BDR

24-SEP-79 10:39

PAGE 12

SEQ 0024

LSBTTL TEST 5 THAT DEVICE INIT CLEARS BDR

X223 222232322233

2202202222222

TEST 5 THAT DEVICE

22222222

222222 2RRXRRRRRRRRRRARRRRRRRRRRD)

INIT CLEARS BDR

".'""Q'.t.'t.Q'QQQ'...!Q'Q"Q.QQQ"Q.Qtt...t..'.t'....\t..tt..t....tt'.

000004

005077
012777

012737
012777
004737
042777
012777
005777
001401
104000

176330
010000
000010
177777
014144
010000
010000
176264

176322

014122
176310

176274
176266

SCOPE
CLP

MoV
MOV
MOV
JSR
8IC
MOV
TST
BEQ
HLT

aCSR

;FORCE TO BE (SR #1

#10, 1COUNT
#-1,a8DR

JALL

#81T712,8CSR
P(C,CKSWR

#81712,3CSR
#MIT12,a8CSR
QBER
.t

JMAINT MODE
ONES

TO BDR

;DEVICE INIT
;CHECK FOR ZERO

(ZDRLAO-DR1
1w GEN NPR INTF(

TEST

THAT

DEVICE

INIT

CLEARS

MACRO M1111

24=SEP-79 10:39

ALL R/w BITS IN THE (SR

PAGE 13

SEQ 0025

.SBTTL TEST 6 THAT DEVICE INIT CLEARS ALL R/W BITS IN THE (SR

::t"tat.'tttt.t!t.titt..'Q'tt"t.ttfit.ttt'l...t.....tt...t.'.'.t....."

TEST 6 THAT DEVICE

INIT CLEARS ALL R/W BITS IN THE (SR

;;.ttt'ttt'lQ'.'tl.ttQ'..t'..'t..ttttttt...i!.'.tQ...'QQ.".Q...Q'..!..'

000004

012777
012737
052777

010000
000010
010576

004737
042777
012777
022777

0146144
010000
010000
010200

001401

104000

176246

0146122
176232

176220
176212
176204

SCOPE

MOV
MOV

BIS

JSR

BIC

MOV
(MP
8tQ

#81T12,a(SR
#10,1COUNT

#10576,3CSR
PC,CKSWR

#31712,38CSR

#81712,8CSR
#10200,8CSR
.+

JMAINT MODE

;SET MAINT(12),CYCLE(08),1E(06)XBA17(05)

JXBA16(04) ,FNCTO3(03) ,FNCT02(02) ,FNCT1(01)

;DEVICE INIT

JMAINT MODE
JTEST FOR ZERO'S,_AND READY BIT SET
JWERE ALL R/W BITS (LEARED

CZDRLAN-DR11W GEN NPR [NTF(

TEST 7 DOES RESET

1037
1038
1039
1040
1041
1042
1043
1044
1045
1046

CLEAR W(R?

BEXZEIZ32Z22

:
SR

000004

005077
012737
012777
004737
000005
005777
001401
104000

1053

MACRO M1111

176172
014144
176140

24-SEP-79 10:39

176152

SEQ 0026

.SBTTL TEST 7 DOES RESET CLEAR W(R?

3238222222282 2220222222222
2R R0 RRRRRR ARl R )

TEST 7 DOES RESET CLEAR WCR?

XEZ222322333333

SCOPE

014122

PAGE 14

CLR
MOV

MOV
JSR
RESET
TST
BEQ
HLT

3223222222222

a(SR
#10, 1COUNT

822220022

8RR

RRRRRdRRRRRdRdRld)

;FORCE TO BE (SR #1

#-1,aW(R
PC,CKSWR

JALL ONES TO W(CR

aw(R
.+

TO SET
;DID WCR GET CLEARED?

JINIT
;LOOKING FOR 2-BIT
;WCR NOT (CLEAR

(ZORLAQ-DR11W GEN NPR INTF(

TEST

10 CAN ALL

WCR BITS BE

000004

1063 002736
1064 0027644

012777
022777

1065 002752

1066 002754

24=SEP=79 10:39

B 3
PAGE 15

SEQ 0027

LSBTTL TEST 10 CAN ALL WCR BITS Bt SET?

1055
1056
1057
1058
1059
1060
1061 002730

1062 002732

SET?

MACRO M1171

":'."Q."..l.'t."'..lttt"t.'.'t".Q'..Q'.Q.QQi‘t...'...Q...'.'Q'.Q."

TEST

10 CAN ALL WCR BITS BE

SET?

.'.'ll".'.'.'."".tt‘..."..t'...t.‘..Q...t......"..'.'t....'.."..'."

005077

0014601

104000

176132

177777
177777

SCOPE
CLR

MOV
(MP

BEQ
HLT

a(SR

#-1,3W(R
#-7
. aw(R

;FORCE TG BE (SR #1
JSET ALL SITS IN W(R
sLOOKING FOR 2-BIT T0 SET

JSEE

IF ALL BITS GOT SET

JALL BITS AREN'T SET

(ZDRLAC-DR11W GEN NPR INTF(

TEST

DOES RESET

(LEAR BAR?

MACRO M1111

1069
1070

N 5

1071
1072

24-SEP-79 10:39

T
PAGE 17

SEQ 0028

.SBTTL TEST 11 DOES RESET (LEAR BAR"

2233322020023

22330

3328

0Rd2Rdi2diifiRRilRilsRRiRRRRRRRRiRllRRaRRRRARR]

TEST 11 DOES RESET CLEAR BAR?

"""'..'.".t"'fi'.‘t'.fi.'t.'t.tt..t.'.'t't"ttttt.t..!tt.t".t'l"'..t.

1073

1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085

002756
002760
002764
002772
002776
003000
003004
003006

000004
005077
012777
004737

177777
014144

005777

176062

001401

104000

176104

176074

SCOPE
CLR
MOV
JSR

RESET
TST

BEQ
HLT

a(SR

#-1,38AR
PC,(kSWR

#BAR
R

JFORCE TO BE (SR »
JALL ONES TO BAR
JINIT
;LOOKING FOR 2-B]T TC SET
;01D BAR GET CLEARED?

;BAK NOT

(LEAR

(ZDRLAQ-DR11wW GEN NPR INTF(

TEST 12 CAN BITS 15-01

IN BAR BE

MACRO M1111
SET?

1087

1088

1089
1090
1091
1092
1093 003010

109¢ 003012
1095 003020
}09? 003026
09

1098 003030

1099

24=SEP-79 10:39

D3
PAGE 18

SEQ 0029

LSBTTL TEST 12 CAN BITS 15-01

AR R RN

IN BAR BE SET?

RN NN RN R AN N AN A AT RN N AR A RN VAN RO NN O NI ANAANRNANRANEANIARANNANRARARS

TEST 12 CAN BITS 15-01

IN BAR BE

SET?

"'tfit.....Q'..t...Q'lQt.'.Q.fi'.t..'.....'.'t....'..Q.'Q.Q..'.'Q..'.'QQ.

000004

012777
022777
001401
104000

1727776
177776

176046
176040

SCOPE

MOV
(MP
8EQ
HLT

#-2 ,3BAR
#-2 ,aBAR
.44

;JSET BITS 15-01 IN BAR

;LOOKING FOR 2-BIT TO SET

:SEE IF B8ITS 15-01 GOT SET

(ZDRLAQ-DR11w GEN NPR INTF(

TEST

COSRRERS

THWAT

ANA

NI
RN 2oBBIRIRIRS
S2BRILSIISISSS

)

o
e
i i
d
o

o
d

D
e

)
d

i
d

D
e

) e

e
D e

ed erad el

ad
e
—d

— o

i ad e

) —d

13 TEST

3102
3110
3112

FNCT1

(AN BE

MACRO M1111
24=SEP=-79 10:39
SET AND CLEARED
C R AN

t
PAGE 19

SEQ 0030

LSBTTL TEST 13 TEST THAT FN(CT1 CAN BE SET AND (LEARED

RN AN NRANRNAARRAANNAARNANANRAARNRAANRANNNAAAARNAARNRARNRCARARAAA
AN R AR

TEST 13 TEST THAT FNCT1

CAN BE

SET AND CLEARED

.'.‘tt."'ltt"t.'...t.'..'"...Q..Qt'l."..'.'.'..t.'t"..tQt.'t...Q't.tt

000004
005077
012777
012737
052777
032777
001001
104000

042777
032777
001401

104000

176030

010000
002000
(00002
000602

000002
000002

176022

014122

176006
176000
17 5766
175760

SCOPE
CLR
MOV
MOV
BIS

BIT
BNE
HLT
8I1C

817
8EQ
HLT

a(SR
#MJT12,8CSR

:FORCE TO BE (SR #
:SET MAINT MODE

#MIT1,3CSR

SET FNCTI

;IS IT SET?

#2000,
1 COUNT

#8IT1,.8CSR

STEST FNCT1
;FNCT1

CLEAR

#MIT1,8CSR

:CLEAR FNCT1

L+6

:WAS

#3]171,aCSR

STEST FNCT1
IT

FNCT1

CLEAR

WAS

SET

T’

CZDRLAO=DR11W GEN NPR INTF(
-

n
W

SPERV1-Bef.Avip
St et S0 1AM VS

24=SEP=79 10:39

PAGE 20

LSBTTL TEST 14 TEST

StQ 0031

THAT FNCTZ CAN BE SET AND (LEARED

A3 22EZEE222 2222222222222

TEST

d
e

MACRO M1111

SET AND (LEARED

TEST

RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRERN)

THAT FNCTZ2 CAN BE

SET AND C(LEARED

;;'"'.'t....Q'Q......t.t'.t.t'.t........fi..'l'.fifi.‘QQ.Q.'...'...t.'t.t.

o
e

THAT FNCTc CAN BE

D
D
e

e
e
e

d e

D e

b —

TEST 14 TEST

003114
003116
003122
003130
003136
003144
003146
003150
003156
003164
003166

000004
005077
012777
052777
032777
001001
104000

042777
032777
001401
10400C

175746

010000
000004
000004
000004
000004

SCOPE

175740
175732
175724
175712
175704

CLR

MOV
8IS

BIT
BNE

HLT

BIC
BIT
8tQ
HLT

a(SR

#1T712,8(SR
#3;72,a(SR
#3]T72,3(SR
.+
#M]72,8(SR
08172.3CSR
.+

JFORCE TO BE (SR M1
JSET MAINT MODE
JSET FNCT?

JTEST FNCT?

JIS IT SET?
JFNCT2 IS CLEAR
JCLEAR FNCTZ

JTEST FNCTZ2

JWAS 1T CLEAR?
JFNCTZ2 WAS SET

(ZDRLAO=DR11w GEN NPR INTF(
TEST 15 TESY THAT FNCTY (AN BE

MACRO M1111

24=SEP=79 10:39

SET AND CLEARED

PAGE 21

SEQ 0032

LSBTTL TEST 15 TEST THAT FNCT3 CAN BE SET AND (LEARED

'""Qt..'..l'fi..'..Q.t..'t'..t........!...'tt'.'..t.'tfitt..tl."Q.t.'t..

;

TEST

THAT FNCT3 CAN BE

SET AND CLEARED

.'.'"‘."...fi.........QQQ.'t'.....l.'.......t'.t.'l'.t'ttt.t.QQ'.'..t"t.

(0N

1OV

NI NS WA

IV, IV IV IV IV I TV, IV, [V,

20O

003170
003172
003176
003204
003212
003220
003222
003224
003232
003240
003242

000004
005077
012277
052777
032777
001001
104000
042777
032777
001401
104000

175672

SCOPE

(LR
MOV

a(SR
#MIT12,8(SR

BNE
HLT

.+4

010000
000010
000010

175664
175656
175650

8IS
8IT

000010
000010

175636
175¢30

BIC
BIT

BEQ
HLT

;FORCE TO BE (SR #1
JSET MAINT MODE

#M173,8CSR
#M]T3,3CSR

:SET FNCT3
STEST FNCT3

#MIT3,8CSR
#MIT3,8CSR

JCLEAR FNCT3
sTEST FNCT3

JIS IT SET?
JFNCT3 IS CLEAR
;WAS IT (LEAR?
(FNCT3 WAS

SET

(ZDRLAQO~DR11w GEN NPR INTF(
16 TEST

THAT

XBA16 CAN BE

SIFANANIIGELESE

d
i

d ad o

d e

D
d
el

d md
e
e

b e
ad

e
o

ed e

B e

—

24=SEP=79 10:39

SET AND CLEARED

LSBTTL

TEST

MACRO M1111

2 ]

PAGE 22

SEQ 0033

TEST 16 TEST THAT XBA16 (AN BE

SET AND (LEARED

;;Qttt.ttttt..tttt.t..tt.t.ttntttntlttttnntfit-ttttttnnntttnt-t-tn.nn.n-n

TEST

16 TEST

THAT XBA16 CAN BE

SET AND (LEARED

::.....'..".t..l.'t."l't"....'..'..'...t.'..t'."'.!t'...Qttt..ttt.l.

003244

003246
003252
003260
003266
003274
003276
003300
003306
003314
003316

000004

005077
012777
052777
032777
001001
104000
042777
032777
001407
104000

SCOPE

175616
010000
000020
000020

CLR
MOV

®(SR
#MIT12,8(SR

JFORCE TO BE (SR #
;SET MAINT MODE

817

#]T4,3(SR

JTEST XBA16

000020
000020

HLT
BIC
8I7

#M]T4,3CSR
#3174 ,8CSR

JXBA16 IS CLEAR
;CLEAR XBA16
JTEST XBA16

BIS

BNE

8tQ
Ho T

#1714 ,8(SR
.+

;SET XBA16

JIS IT SET?

;1S IT CLEAR
JXBAT6 WAS SET

(ZDORLAQ=-DR11w GEN NPR INTF(

xBA17 (AN Bt

24-SEP-79 10:39

SET AND CLEARED
R

I3
PAGE 23

SEQ 0034

LSBTTL TEST 17 TEST THAT XBA17 (AN BE SET AND (LEARED

2222222222222 2222222222222
R R
Rl
e RA

TEST 17 TEST THAT XBA17 CAN BE SET AND CLEARED

003342
003350
0C3352
003354
003362
003370
003372

032777
001401
104000

010000
000040
000040

000040
000040

—a

012777
052777
(32777
001001
104000
042777

175542

003326

000004
005077

—

003322

NNWN

.'.'t.t.t".'.QQ.'.'Q.'..""Q'Q't...t.t'..t.tt..tttt'.'.tt"'Qt.!n't.tttt

d
d
d

THAT

W
~
\~N

od o
D
D

D
e

od
d

e
i

d e

e
e

ad
e

rd oD o

d e
D

SRGC2EBBIRRRAREE
&

17 TEST

TESYT

MACRO M1111

34
26
20

175506
175500

SCOPE
CLR

MOV
BIS
BIT
BNE

HLT
8IC
8IT
BEQ
HLT

aCSR

#B1712,a(CSR
#1T5,aCSR
lBiTS.iCSR
.+

#]75,8CSR
’8£T5.3CSR
.+

;FORCE TO BE (SR ¥
JSET MAINT MODE
JSET XBA17
JTEST XBA17
JIS IT SET?
;XBA17 IS CLEAR
JCLEAR XBA17
CTEST XBA17

;1S 1T CLEAR?

:XBA17 WAS SET

(ZDRLAQ-DR11W GEN NPR INTF(

TEST 20 TEST

THAT

CAN BE

MACRO M1111

SET AND CLEARED

‘

PAGE 24

SEQ 0035

LSBTTL TEST 20 TEST THAT IE (AN BE SET AND CLEARED

1197

1198

1199
1200
1201
1202
1203

24=SEP=79 10:39

CCANARRARARNRRNANNANRARRNRPARNRRAARCRANARNNARNDANNORNRONQOBRRANRORCANARNAREAS

TEST 20 TEST

THAT

JE CAN BE

SET AND CLEARED

:;.'.....t..........'...'....Q..'........Q........'....'..'...........l.

000004
005077
012777
052777
032777
001001

104000

042777
032777
001401
104000

175460
175452
175444
175432
175426

SCOPE
(LR

MOV
8IS

BIT
BNE

HLT
8I(
BIT
8EQ
MHLT

o(SR

MIT12,a8(SR
/m1716,8CSR
lB{Yb.i(SR
4

#IT6,38(SR
lBifb.aCSR
+

FORCE

TO BE

(SR #1

SET MAINT MODE
SET IE
TEST

1€

IS IT SET?

(ZDRLAO-DR11W GEN NPR INTF(
MACRO M1111 24=SEP=-79 10:39
TEST 21 TEST TRAT CYCLE CAN BE SET AND CLEARED
1214
1218

1216
1217

1218 003450

000004

1219 003452

005077

1221 003464
1222 003472

052777
032777

1220 003456

1223 003500
1224 003502

1225 003504
1226 003512
1227 003520
1228 003522

012777
001001
104000

042777
032777
0016401
104000

175612

010000

000400
0004N7

000400
000400

LSBTTL TEST 21
R

175376
175370

175356
175350

PAGE 25

SEQ 0036

TEST THAT CYCLE CAN BE SET AND (LEARED

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

TEST 21

R R AR AN AR AR CRR RO AANNN AN

TEST THAT CYCLE CAN BE SET AND CLEARED

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

SCOPE

175404

CLR

8(SR

JFORCE TO BE (SR »

BIS
BIT

#B]78,8(SR
#3178,3(SR

JSET CYCLE
JTEST CYCLE

MoV
BNE
HLT

BIC
BIT

8tQ
HLT

#1T712,aCSR
.+

#8]78,38(SR
#BIT8,3CSR
.+

JSET MAINT MODE

SIS IT SET?
JCYCLE WAS CLEAR

sCLEAR CYCLE
JTEST CYCLE

;1S IT CLEAR?
sCYCLE WAS SET

ERRAR AR RO

NANAN AR AR IR AR RO TR

(ZDORLAOQ~-DR11w GEN NPR INTFC
MACRO M1111
24=-SEP-79 10:39
TEST 22 TEST THAT MAINT (AN BE SET AND CLEARED
1231

SEQ 0037

LSBTTL TEST 22 TEST THAT MAINT CAN BE SET AND CLEARED

1232

:.".'I..Q.'.Qfi."'t...tttt.t"fi.tl.i't.fi..l..'t..'t't'...‘ttl"'tttt't.t

1233

1234

TEST 22 TEST THAT MAINT CAN BE

SET AND CLEARED

,'.‘!..".".'."".Q'Q.tfi.tttfi.tt.fi.!..lfl...fitt.'t.tt.".Q.QQQQ'....tt.'.

1235 003524

000004

1236 003526
1237 003532

005077
012777

1239
12640
1241
1262
1243
}Szg

001001
104000
042777
032777
001401
104000

1238 003540

003546
003550
003552
003560
003566
003570

12646 003572
1247 003574
1248

PAGE 26

032777

001401
104000

175336
010000

010000
010000
010000

SCOPE

175330

175322
175310
175302

CLR
MOV

BIT

BNE
HLT
BIC
BIT
BEQ
HLT
BEQ
HLT

aCSR
#81T12,3CSR

:FORCE TO BE (SR #
“SET MAINT

.44

SIS IT SET?
JMAINT WAS CLEAR
SCLEAR MAINT
STEST MAINT
*1S MAINT CLEAR?
CMAINT WAS SET

#MIT12,a(SR
#31T12,3CSR
#BIT12,3CSR
.+4
Y

:TEST MAINT

;1S IT CLEAR?
:CYCLE WAS SET

24-SEP=-79 10:39
MACRO M1111
(ZDRLAQO~DR11w GEN NPR INTF(
TEST 23 THAT ALL CSR R/W BITS CAN BE SET AND CLEARED

PAGE 27

SEQ 0038

LSBTTL TEST 23 THAT ALL (SR R/W BITS CAN BE SET AND (LEARED

1250

.'"Qtttfi"t.'.tfi'.i't.'tQt'ttt.t.it..tt.Q.t'.tfi.'tt"'t'.t.t.'.'ttttt...'

TEST 23 TEST THAT ALL CSR R/W BITS CAN BE

E WRAP-AROUND)
( INTERNAL
MAINT MOD

SET AND CLEARED

."".Qt."..t.t...fi.'...."".flt..'tfit.fi.....fit.tt't"tlfitt.t.fit...t....'

000004

005077
012777
052777

SCOPE

010000
020576

175256
175250

032777
001001

000002

175242

032777

000004

032777
001001

CLR
MOV

aCSR
#B1T12,3CSR

:FORCE TO BE CSR #1
"MAINT MODE

BIS

#20576 . 9CSR

BIT
BNE

#31T1,aCSR
.+

YISTIT SET?

175230

81T

#3]1T2.3CSR

“TEST FNCTS

000010

175216

8IT

#B1T3,3CSR

032777
001001

000020

175204

BIT

#8174, aCSR

032777
001001

000040

175172

BIT
BNE

#31TS,aCSR
gt

032777
001001

000100

175160

#B1T6,80 SR
gt

032777
001001

000400

175146

032777
001001

010000

175134

BIT
BNE
HLT
BIT
BNE
HLT
BIT
BNE

10400C

001001

104000

1271 003666
1272 003670
1273 003676
1274 003700
1275 003702
1276 003710
1277 003712
1278 003714
1279 003722
1280 003724
1281 003726
1282 003734
1283 003736

175264

104000

ALT

BNE
HLT

HLT

.+
v

L+

#3178, SR
v

#51T12, (SR
L+

“SET FOLLOWING:MAINT(12). CYCLE(O8),IE (06),XBA17(05),
(02)
,FNCTT1(OM)
XBA16(04) ,FNCT3(03) ,FUN(T2

N
“TEST FNCTI

YFNCT1

IS CLEAR

“ISTIT SET?
“ENCT2 1S CLEAR

“TEST FNCT3

YISTIT SET?
;FNCT3 IS CLEAR

“TEST XBA16

T1STIT SET?
‘xBA16 IS CLEAR

“TEST XBA17
YIS, IT SET?

“xBA17 IS CLEAR
“TEST IE
IS IT SET?
“JE IS CLEAR
“TEST CYCLE
11S CYCLE SET?
“CYCLE IS CLEAR
“TEST MAINT
T1S MAINT SET?
'MAINT

CLEAR

(ZORLAQ-DR11Ww GEN NPR INTF(
MACRO M1111 24=-SEP=79 10:39
TEST 23 THAT ALL CSR R/W BITS CAN BE SET AND (LEARED
1285 003740

1286 003746
1287 003754
1288 003756
1289 003760
1290 003766
1291 003770
1292 003772

042777

030576

175122

BIC

#30576 ,8CSR

000002

175114

000004

175102

000010

175070

BIT
BEQ
HLT
BIT
BEQ
HLT
BIT

032777

000020

175056

BIT

#MIT4,3CSR

032777
001401
104000

000040

175044

#]T5,8CSR
.+

000100

175032

BIT
8tQ
HLY

1304 004042
1305 004050

032777
001401

000400

175020

BIT
BEQ

#3]78,8(SR
.+

1307 004054

032777

010000

175006

BIT

#B1T712,aCSR

1%?8 004064

104000

1293 004000
1294 004002
1295 004004

1296 004012
1297 004014

1298 004016
1299 004026
1300 004026

1301 004030
1302 004036
1303 004040
1306 004052
1308 004062

032777
001401
104000
032777
001401
104000
032777

PAGE 28

001401
104000

032777
001401
104000
104000

001401

BEQ
HLT
BEQ
HLT

BlT
BEQ
HLT
HLT

BEG

HLT

#3171 ,8CSR
.+

MIT2,8(SR
. v
#MIT3 (SR
.*4
.t

#31T6,8(SR
. +4

.*4

SEQ 0039
JCLEAR ALL R/W BITS IN (SR
JTEST FNCTI
;IS FNCT1 CLEAR?
JENCTT IS SET
JTEST FNCT?2
;1S FNCT2 CLEAR?
JENCT2 IS SET
JTEST FNCT3

;1S FNCT3 (LEAR?
JENCT3 IS SET
JTEST XBA16

;1S XBA16 CLEAR
JXBA16 1S SET
JTEST XBA17
;1S XBA17 CLEAR?
JXBA17 IS SET
JTEST IE
;1S IE CLEAR?
JI1E 1S SET

JTEST CYCLE
;1S CYCLE CLEAR?
JCYCLE IS SET

TEST MAINT

;1S MAINT CLEAR?

JMAINT

IS SET

CZDRLAO-DR11wW GEN NPR INTF(

MACRO M1111

ALL R/W BITS IN (SR (AN BE SETM AND RESET TO ZERO

PAGE 29

¢4

SEQ 0040

LSBTTL TEST 24 ALL R/W BITS IN (SR (AN BE SET AND RESET TO ZERO

.
.

TEST 24 ALL R/W BITS IN (SR CAN BE SET AND RESET TO ZERO,

IS SET, NEX IS CLEAR, GO [S READ AS A O,AND ERROR
E WRAP-AROUND)
( INTERNAL
MAINT MOD

THAT READY

S (LEAR,

3833%

017701
052701
005201
001601

O*NO%NOO‘NO‘

RRERRRRRE sees

000004
005077
012777
012737
052777

NN
—

.‘“'""...'....t.....'fi"....fi'.....fi...fit."...'.Qt".""""Q".."'t

ARV O
oo

&3 00 NN EAWN = OO 00 NOMN SN

D
ed
e
e
e
D o
d
D
D
d
d
D
ed
d e
d
—

264

N N AN
AN N NN NN NN NN NN NN
ANIPINVNINVIVONIPOR)
42 =
s

TEST

24-SEP-79 10:39

174774

010000
000010
010576
174746
167201

014144

174722
127000
000200

SCOPE

174766

014122

174752

CLR
MOV
MOV

BIS

MOV

aCSR
#B1T12,aCSR
#10, ICOUNT

#10576.aCSR
R1
.44

"R1T SHOULD GO FROM -1 TO ZERD
"WERE ALL CSR R/W BITS SET?

HLT
JSR
RESET

PC.CKSWR

BEQ
HLT

MAINT(12).CYCLE(O8),IE(06),XBA17(0S),

(01)
XBA16(04) . FNCT3(03) .FNCT2(03).FNCTT
TO R1

3CSR,R1

#167201,R1

MOV
BI(
cMP

SSET FOLLOWING:

:
‘MOVE

BIS

INC
BEQ

:FORCE TO BE CSR #1

‘MAINT MODE

aCSR.R1
#127000.R1
#200,R1
o1

(CSR)

“SETS BITS IN R1 THAT WERE NOT SET IN CSR
NOT ALL BITS WERE SET
:CLEAR ALL

CSR R/W BITS

‘MOVE (CSR) TO R1
*CLEAR ERROR,ATTN,DSTATA,DSTATB,DSTATC
“TEST FOR READY
CRESET DIDN'T LEAVE

CSR AS

IT SHOULD HAVE

W —=O0
=20V~ NS

D
D
—D o
d e
)
d
2 —_—
b

VIV
9N LERLLLLR A

[a¥}

(ZQ‘Y?LAO-DRHU GEN MPR INTF(
5 (SR AND EIR BITO TEST

:
:
;

—_

SEQ 0041

TEST 25 CSR AND EIR BITO TEST

TEST THAT BITO OF CSR READS AS A ZERO
TEST THAT BITO OF EJR READS AS A ONE

.'.'.Q.Q"".t..'..t"'.."t..'t..l'.....t!'t..'t'...tt.t't..tt.ttt'ttt."

004162
004164
0046172

004174
004200

004210
004212

001144

174670
000001

174662

100000
000001

174650
174642

174632
000001

1764624

(¥,

000001

PAGE 30

LSBTTL TEST 25 CSR AND EIR BITO TEST

004230
1355 004232

1356
1357 004244
1358 004246

1359

24=SEP-79 10:39

.'.'."Q.'."..Q'Q.'."t.."'."Qtt'."t.'..'t..l'.tt".'.t..Qt.'ll.".t"

004220
1353 004226
—

MACRO M1111

(KA

SCOPE

BIT
8EQ

#3]170,B0RW
126

CLR
BIT
BEQ
HLT

a(SR
#8]70,aCSR
.+

BNE
HLT
CLR
BIT

MOV
BIT

BEQ
HLT

#31715,8(CSR
#31T70,.8CSR
a(SR

#3170,aCSR
.+

;FORCE TO BE (SR
;1S BITO A ZERO?
JYES IT IS A ZERO
;BITO READ AS A ONE

;SET BIT15 TO GO TO EIR
;1S BITO A ONE?

JYES IT IS A ONE
;BITO READS AS A ZERO
sRETURN TO (SR
;DID WE GET BACK
JYES
JNO WE ARE

STUCK

IN EIR

CZDRLAO-DR11wW GEN NPR INTF(

TEST 26 THAT ATTN CAN BE

MACRO M1111

SET VIA F2 & ERROR SETS

—dv.
e, n,

= [@2Ve)
00 NN SN

SEQ 0042

TEST 26 TEST THAT ATTN CAN BE SET VIA F2 & ERROR SETS;

gegzRgks B\I\J\J\J\l\l\l\l\l 333 55

S
N
D [
nd
D
b

WWWINWWWWWW

LSBTTL TEST 26 THAT ATTN CAN BE SET VIA F2 £ ERROR SE1S

1361

—d
d
D
D

PAGE 31

24-SEP-79 10:39

000004
032737
001444
01273/
005077
012777
022777
001401
104000

112777
032777
001001
104000

042777
032777
0014601

104000

000001

001144

002000
174574
010000
010200

014122
174566
174560

TEST THAT ATTN,_AND THEREFORE ERROR WILL
MAINTENANCE MODE (INTERNAL WRAP-AROUND)
2222232232222

éb:

SCOPE
BIT

322

2228

X222

#81T0,B0RW

127
#2000,
1 COUNT
alSR

#81712,a(SR
#12200.3CSR

174546
174540

020004
020000

174526
174520

#8172, aCSR

#1715, acsR
.+4

#20004 ,aCSR

#iT13.3CSR
. +4

017705
005705

174510

aCSR,RS

005077

17447¢

alSR

100001
104000

2222222222222 Rl
R A

000004
020000

RS
.+6

(LEAR

JIF A "B

SKIP TEST

JFORCE TO BE (SR »
sMAINT
JONLY READY AND MAINT
;SOMETHING OTHER THAN READYEMAINT

;SET F2

;TEST ATIN

SIS IT SET?

;ATTN WAS CLEAR

:CLEAR ATTIN £ F2
J;TEST ATIN

;1S ATTIN CLEAR?

JATTN WAS

SET

JSAVE (SR !
;1S ERROR CLEAR?
JERROR IS STILL SET
JRETURN TO (SR #1

(ZDRLAOQ=DR11w GEN NPR INTF(

MACRO M1111

TEST 27 CAN WCR HOLD ALTERNATE ONES AND ZEROS
1392

1393

1394

1398

1396 004372

000004

1397 004374
1398 004400

005077
012737

174470
002000

16400 0044146

022777

(052525

1399 004606

1401 0046422
1602 004426

012777

001401

104000

1603 006426
1404 004634

012777
022777

;ng 0046466

104000

1405 004442
4

001401

052525

125252
125252

127:

24~SEP-79 10:39

PAGE 3¢

AN RN E P

AN A AR AR N

RN R RN

AR RN T

RRRRRRY

TEST 27 CAN WCR HOLD ALTERNATE ONE'S AND ZERO'S

R RN R RN N AN

SCOPE

A N A AR R A E A AN R AN RN RN AA AR AT RN

014122

aCSR
#2000,
I COUNT

174442

8052525 ,awW(R

174430
174422

SEQ 0043

LSBYTL TEST 27 CAN WCR HOLD ALTERNATE ONES AND ZEROS

R R R R RN R R AN NI N RN AN AR AN A NN N E N

(LR
MOV

174450

MCV

BEQ
HLT

MOV
CTMP

BEQ

HLT

-FORCE

TO BE

TN RAAR AR AR AT RO R R AT AR

(SR #1

#052525
. 9WCR

:ALT 0'S AND 1'S TO WCR

‘DOES WCR HAVE THE CORRECT PATTERN®

’

#125252,aWCR
#105250.3WCR
Ry

O RS

JLOOKING FOR Z-8IT TO SET
"WCR DOESN'T HAVE

THE CORRECT PATTERN

:ALT 1'S AND 0'S TO WCR
:LOOKING FOR Z-BIT 10 SET
"DOES WFR HAVE

THE CORRECT PATTERN?

;WCR DOESN'T HAVE THE (CORRECT PATTERN

MACRO M1111
(ZDRLAO-DR11w GEN NPR INTF(
TEST 30 TEST THAT BAJO READS AS A ZERO
1409
1610
1411
1412
16413

004446
004450
004454
004462
1418 004470
1619 004472
1420 004474
1414
1415
1416
14617

1621

1422
1423
1424
1425
1426 004500
1427 004502

1428 004504

1429 004512
1630 004514

[
.

000004
005077
012737
012777
00024C
000240
105777

17644614

002000
010000

014122

174400

174370

100401

032777
001401
104000

000001

174354

24-SEP-79 10:39

PAGE 35

SEQ 0044

LSBTTL TEST 30 TEST THAT BAQOO READS AS A ZERO

2222322333222 323232223223232323232322322222203222228
2R3
ARRRRiRRRRRRRRRRR AR RN]

TEST 30 TEST THAT BAQO READS AS A ZERO
MAINTENANCE MODE (INTERNAL WRAP-AROUND)
2232222232232

3232322223222228

2222232232222 20222RRR2iRRRRARRRlRlRRlRSR
R RN

SCOPE
(LR
MOV

#2000,

#BIT12,aCSR

:MAINT MODE

TSTB

a(SR

:IN MAINTENANCE MODE

BM]

BIT
BEQ

#B1T0, IBAR
=4

MOV
NOP
NOP

HLT

aCSR

1 COUNT

;FORCE TO BE (SR #1

TESTING:READY

"CONTROLS LEVEL OF BAQO.MUST BE SET
“FOR BA00=0.ALSO,READY SET ALLOWS (SR
“T0 BE READ.READING CSR WILL ENABLE
“CLOCKING OF O TO BAOO THRU REGISTER
*IN BOARD HARDWARE
:READY NOT SET

“TEST BIT O OF BAR
YIS IT CLEAR?

;BAJO IS SET

MACRO M1111

(ZDRLAO-DR11w GEN NPR INTF(
TEST 31 CAN BAR HOLD ALTERNATE ONES AND JERQS

LSBTTL TEST 31

1632
1433

PAGE 36

SEQ 0045

CAN BAR HOLD ALTERNATE ONES AND ZERCS

::I.'tQ't'."'.'."..t..."..'.........t."......‘..Q...Q.."'.'.'.Qt.'.

163%
1635
1436
1437 004516

1438
1439
1440
1641
14642
1443
1444
1645
1446

24~SEP-79 10:39

004520
004524
004532
004540
004544
004552
004554
004556
004564

1447 004570
1448 004576

1449 004600

TEST 31 (AN BAR HOLD ALTERNATE ONE'S AND ZERO'S
MAINT MODE (INTERN. WRAP-AROUND)
;;..tt.'."..'....fi.'...t'.'.'.".t..'fi'.."...‘.'t..'..'..tt'...t.'.'.t

000004

005077
012777
012777
005777
022777
001401

012777
005777
022777
001401
“04000

174344

SCOPE

010000
052526

174336
174326

052524

174374

174324

174302
17¢270

(LR
MOV
MOV
TST
(MP
BEQ
HLT
MOV
TST
M
BEQ
HLT

a(SR

;FORCE TO BE (SR #1

#052524 ,aBAR
a(SR
lOZ?SZA,QBAR

JALT 0°'S AND 1°'S TO BAR

#31T112,a(SR

8125252 .,aBAR
8( SR
l1£5252,aBAR

JMAINT MODE

JLOOKING FOR 2-BIT TO SET
;DOES BAR HAVE THE CORRECT PATTERN?

;BAR DOESN'T HAVE THE (ORRE(CT PATTERN
JALT

1'S AND 0'S

TO BAR

;LOOKING FOR Z BIT TO SET

s INCORRECT PATTERN

24~=SEP=-79 10:39
MACRO M1111
NG PATTERN TO WRAP-AROUND [N W(R
TEST 32 INCREMENT
(ZDRLAD-DR11W GEN NPR

[NTF(

1655

1656
1457
1458

1459

1660

1461
1462

1663

1664

1465

"L6€

SFQ 0046

LSBTTL TEST 32 INCREMENTING PATTERN TO WRAP-AROUND [N w(R

1651

1652
1453
1656

PAGE 37

""...'..'..tl.l.‘......t.'..l...t‘...tt..Q't'...'.t..lt..t..!"..ltl'.tt

TEST 32 INCREMENTING PATTERN TO WRAP-AROUND [N w(R
"".'..'....'..'Q."'...fi'.....!.l...ll..'..t'l.'l.""l...'t.t.t.Qt.'...

000004
005077
005037
005001
005077
020177
001401
104000

005277
005201
001370

SCOPE

(LR

174260

014122
174242
174236

174226

INCW(:

(LR
(LR
(LR

(mpP

8tQ
HLT
INC
INC
BNE

a(SR

TCOUNT
R1
aw(R

R1,awW(R
.4l

aw(R
R1

INCWC

"FORCE
JSET=-UP
sSET=-UP

JSEE

TO BE

(SR #

THEY ARE EQUAL

JARE THEY EQUAL?
;THEY'RE NOT EQUAL
JGET NEXT NUMBER
JOET NEXT NUMBER
DONE WITH TESTTM
IF

NOT (ONTINUE

CZDRLAQ-DR11w GEN NPR INTF(
MACRO M1111
24=-SEP=79 10:39
TEST 33 INCREMENTING PATTERN TO WRAP-AROUND IN BAR

1468

SEQ 0047

.SBTTL TEST 33 INCREMENTING PATTERN TO WRAP-AROUND N BAR

1469

IR A R R AR AR

147C
167

;
;

1472

1473 004642
16474 004644

1475 004646
1476 004652
1477 004656
1478 004660
1479 004662
1480 004670
14871

4
[
PAGE 38

004674

000004
005001

005077
020177
001401
104000
062777
062701
001366

INCBA:
174176

AN AN R

AR AN AR AN RN AR AN RN N RN RN

AN RN R AR N R AN ORI RO AN RO RN

TEST 33 INCREMENTING PATTERN TO WRAP-AROUND
MAINT MODE (INTERN. WRAP-AROUND)
N

(LR
(MP
BEQ
HLT
ADD
ADD

BNE

[N BAR

AR R AN A R AN R AR R AR AN R AN A RN AR AN R A AR R AR R AR RS AR R R

SCOPE
(LR

174214
174210
000002
000002

R RN

RN AN AN

afBAR
R1,a3BAR
.*4

#2,dBAR
#2 R
INCRA

AN R R A CE I AR AR

;SET-UP

;SET=-UP
;SEE IF THEY ARE EQUAL
JARE THEY EQUAL?
;THEY'RE NOT EQUAL
GET NEXT NUMBER
JGET NEXT NUMBER
;DONE

WITH

TEST?

NOT

(ONTINUE

’
N NS

(ZDRLAO-DR11w GEN NPR INTF(
MACRO M1111
24-SEP-79 10:39
TEST 34 TEST THAT FNCT BITS CONTROL DSTAT BITS
1483

1484

1485
1486

.
:

1487

1488 004676

1489 004700
1490 004704
1491
1492
1493
1494
1495
1496

004712
004720
004722
004724
004732
004740

1497 004762

000004

005077
012777
032777
001401
104000
052777
032777
001001
104000

x5 :

174164
010000
00CH16

174156
174150

000002
001000

174136
174130

1498 004746
1499 004752
1500 004754
1501 004756

032777
001401
104000
012777

006000

174116

1503 004772

032777

010000
000004

002000

174104
174076

1502 004764
1504
1505
1506
1507
1508
1509
1510

005000
005002
005004
005012
005014
005016
005024

052777

001007
104000
032777
001401
104000
012777
052777

174070

005000

174056

010000
000010

174044
174036

1511 005032 032777 004000

174030

1514 005044

174016

1512 005040
1513 005042

001001
104000

1515 005052

001401

1516 00S054

032777
104000

003000

PAGE 35

SEQ 0048

_SBTTL TEST 34 TEST THAT FNCT BITS CONTROL DSTAT BITS
AR

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

NN RAN RN

RN R AN AAARAN RN R AN T AR

TEST 34 TEST THAT FNCT BITS CONTROL DSTAT BITS
MAINTENANCE MODE (INTERNAL WRAP=-AROUND)

RN AN A RN AR RN AN AN R

SCOPE

CLR
MOV
BIT
BEQ
HLT
BIS
BIT

BNE
HLT
8I7
BEQ
HLT

R AN A AR A R RN AN AR

aC Sk
#10000, aCSR
#16.aCSR
. +4

#B1T1,aCSR
#3179 .aCSR
L+

#6000, 3CSR
. +6

MOV
BIS

#10000,aCSR
#31T2,3CSR

BNE
HLT
BIT
BEQ
HLT
MOV
8IS

BIT

817

BNE
HLT

BIT

BEQ

HLT

#31T10,3CSR
#5000, aCSR
.+
#10000,3C SR
#3173, 3CSR

#8I1T11,8CSR
4

#3000, 3C SR
v

ARARAN AN RANAAN SN RN RN AR TR

:CLR FUNCT BITS AND FORCE
"MAINT MODE

TO BE (SR #1

*CHECK FUNCTION BITS
*FUNCTION BITS CLEAR?
*FUNCTION BITS NOT CLEAR
"SET FNCT1
*CHECK DSTAT
YIS IT SET?
*DSTAT C

IS CLEAR

"CHECK THAT DSTAT A AND DSTAT B ARE (LEAR
"ARE THEY CLEAR?
CSTAT A AND/OR DSTAT B IS SET
*MAINT MODE

"SET FNCT2

“CHECK DSTAT B

YIS IT SET?
*DSTAT B ]S CLEAR
"CHECK THAT DSTAT A AND DSTAT C ARE
"ARE THEY CLEAR?
;DSTAT A AND/OR DSTAT B IS SET
"MAINT MODE
"SET FNCT3

CLEAR

“CHECK DSTAT A

SIS IT SET?
;DSTAT A IS CLEAR

"CHECK THAT DSTAT B AND DSTAT ( ARE CLEAR

‘ARE

THEY CLEAR?

;DSTAT B AND/OR DSTAT (C

IS SET

(ZORLAQ-DR11w GEN NPR INTF(
D
D
D
d
b
D o
d e
d cad

WV NNV

D ok

TEST

THAT

RESET

MACRO M1111

CLEARS BDR

24-SEP-79 10:39

3 005056
4 005060

25 005064
26 005072

AN NN N NNV

TEST

7 005100
8 005104
9
06
14
20
22

000004
005077

012737
012777
004737
000005
052777
005777
001401
104000

174004

000010
177777

014144

010000
173752

PAGE 40

SEQ 0049

LSBTTL TEST 35 TEST THAT RESET CLEARS BDR
L

TEST 35 TEST THAT RESET CLEARS BDR
MAINTENANCE MODE (INTERNAL WRAP-AROUND)

2ZX2222X23223

22222322222

0282 2222222328002 RRRRRRRARRRRRSRARRRRRRRd
R

01412 2
17377 2

aCSR

;FORCE TO BE CSR 7]

#-1_,38DR

JALL ONES TO BDR

173754

#10000,aCSR

#10, ICOUNT
PC.,CKSWR

aBDR
YA

JINIT

JMAINT MODE

;LOOKING FOR Z2-BIT TO SET
;DID BDR GET CLEARED?

;BDR NOT (LEAR

(ZORLAO-DR11w GEN NPR NTF(
MACRO M1111
TEST 36 TEST THAT AL. BDR BITS CAN BE SET
1534

153%

1536
1537

:
.

1538

IR R

1539 005126

15640
1541
1542
1563

000004

005126
005132
005140
005146

005077
012737
012777
012777

1545 005162
1546 005164

0016401
104000

1544 005154
1547

24-SEP=-79 10:39

Q22777

173736
002000
010000
1727777

17/777

173730

PAGE 41

SEQ 0050

LSBTTL TEST 36 TEST THAT ALL BDR BITS CAN BE SET

AN AR AN AR A R AR AR

AN N R R AR AR R R AN

R RN R AR AN NN R R AR

R R ARG

TEST 36 TEST THAT ALL BDR BITS (AN BE SET
MAINTENANCE MODE
( INTERNAL WRAP-AROUND

R AR

SCOPE

014122
173722
173716

R AN

R R AN R AN NN A AN AR AR AN AR A AN AR AN N A SR AN RS RN

(LR
MOV
MOV
MOV

a(SR
#2000,
I COUNT
#10000,aCSR
#-1,a8DR

JFORCE TO BE CSR m1

BEQ
HLT

JSEE IF ALL BITS GOT SET
JALL BDR BITS AREN'T SET

{mMP

RN R AN

#~1,a88DR

;MAINT MODE
JSET ALL BITS IN BDR

JLOOKING FOR Z-BIT TO SET

E R AN

R AN

R AR R

(ZORLAO-DR11w GEN NPR INTF(
MACRO M1111
24=~SEP=-79 10:39
TEST 37 TEST THAT BDR CAN HOLD ALTERNATE ONES AND ZEROS
1549

IR AR AR R AN R R

1551
1552

:
.

1553

000004

005077
012777

173674
010000

173666

1558 005210
1559 005216

022777
001401

052525

173654

1560 005220
1561 005222
1562 005230
1563 005236

}?gg 005240

SEQ 0051

012777 052525
104000
012777
022777
001401

104000

125252
125252

AR RN AR R

AR R AR

AN R R RN AR R AN AR AR A AN R R R AR A AN RN TR AN

TEST 37 TEST THAT BDR CAN HOLD ALTERNATE ONE'S AND ZERO'S
MAINTENANCE MODE
( INTERNAL WRAP-AROUND)
A

SCOPE

1555 005170
1556 005174

1557 005202

.SBTTL TEST 37 TEST THAT BDR CAN HOLD Al TERNATE ONES AND ZEROS

1550

1554 005166

PAGE &2

AR AR R A AR R

N A AR R

AN R R AN AR

RN A R R A AN

E R RN AT A RN RS E

NN R

(LR
MOV

a(SR
#10000 ,aCSR

JFORCE TO BE (SR »
JMAINT MODE

MP
BEQ

#052525,aBDR
A

JLOOKING FOR Z-BIT TO SET
;DOES BDR HAVE THE CORRECT PATTERN?

173662

MOV

173642
173634

MLT
MOV
(mMpP
BEQ

HLT

#052525,3BDR

#125252,3BDR
#125252,aBDR
.+6

:ALT 0'S AND 1'S TO BDR

;BDR IS WRONG
JALT 1°'S AND Q'S TO BDR

;LOOKING FOR Z-BIT TO SET
;DOES BDR HAVE

JBDR IS WRONG

THE

CORRECT PATTERN

AN N

(ZORLAQ=DR17w GEN NPR INTF(
MACRO M1111 24=-SEP-79 10:39
TEST 40 THAT GOING TO EIR BLOCKS DATA XFERS FROM ODR TO IDR
1567

PAGE 43

SEQ 0052

_SBTTL TEST 40 THAT GOING TO EIR BLOCKS DATA XFERS FROM ODK TO IDR

1568

""ttl.l'!.ttttt.Qfitt!..tt".tttttttttttttttt..t.tttttttttt.'tt'ttltt.Q.Q

1569
1570

:
:

1571

""ttt"'tt'!ttfi.'tt.t'tt'tt.ttt..t.tfit.ttt.tttttt'tt't.fitt.tttttt.tti't'

1572 005242

000004

1673 005244
1574 005252
1575 005254
1576 005260

032737
001442
005077
012737

000001

002000

1578 005276
1579 005302

012777
022777

052525
052525

1582 005314
1583 005322
1584 005330

012777
012777
022777

110000
125252
125252

173546
173542
173534

052525

173522

173610

1577 005266 012777 010000
1580 005310
1581 005312

1585
1586
1587
1588

TEST 40 TEST THAT GOING TO EIR BLOCKS DATA TRANSFER FROM
ODR TO IDR

005336
005340
005342
005350

1589 005352

123? 005354

001401
104000

001001
104000
022777
001401

104000

005077

173510

001144

SCOPE

014122

BIT
BEQ
CLR
MOV

#8170 ,B0RW
Tél
aCSR
#2000, JCOUNT

173570
173562

MOV
CMP

#52525.aBDR
#52525.aBDR

173574

MOV

BEQ
HLT

MOV
MOV
MP

BNF
HLT
CTMP
BEQ
HLT

CLR

#B]1T12,3CSR
4

#110000.8CSR
#125252.38DR
#125252.@BDR
.+4

:FORCE TO BE CSR

SSET MAINT MODE

“SET ALT 0°'S AND 1°'S TO BDR
"LOOK FOR CORRECT PATTERN
*BDR IS GOOD
‘BOR IS WRONG

GO TO EIR
-SET ALT 1'S AND 0'S TO BDR
:CHECK PATTERN

.44

*SHOULD NOT CHECK OUT - OK
"DATA SHOULD NOT HAVF GOTTEN THROUGH
“TEST FOR OLD PATTERN
AL IS FINE GO TO NEXT TEST

aCSR

GO BACK TO CSR

#52525, 3BDR

*BDR IS WRONG

CZDRLAO~DR11w GEN NPR INTF(

TEST 41

MACRO M1111

INCREMENTING PATTERN TO WRAP-AROUND

24=SEP=79 10:39

[N BDR

.SBTTL

1593
1594

1609 005424

1610

1611
1612

TEST 41

SEQ 0053

INCREMENTING PATTERN TO WRAP-AROUND IN BDR

:;.t'..ttl'.t.tt"t.fii..t"tfit....tl'tt.t.t.tt...tttt"tt'.ttttttt'tt."

TEST &1 INCREMENTING PATTERN TO WRAP-AROUND
MAINTENANCE MODE
( INTERNAL WRAP-AROUND)

1595

1596
1597
1598 005360
1599 005362
1600 005366
1601 005374
1602 005400
1603 005402
1604 005406
1605 005412
1606 005414
1607 005416
1608 00,422

B b
PAGE 4«

000004
005077
012777
005037
005001
005077
020177
001601

005277
005201
001370

17350
010000
014122
173464
173460
173450

[N BDR

At2222232232220220222220Rd202Rdf
2R RRRRRRRRRiRRRRtRlRRRRRRlRAlRRR sl

?21:
173474

SCOPE
CLR

MOV

INCDB:

CLR
CLR
(LR
cMP
BEQ
het
INC

INC
BNE

a(SR

#10000,aCSR

ICOUNT

aBCR
R1,a8DR
.+
aBDR
R1

INCDB

JFORCE TO BE
JMAINT MODE

(SR #1

JSET=-UP
JSET-UP
JSEE IF THEY ARE EQUAL
JARE THEY EQUAL?

JTHEY'RE NOT EQUAL

JGET NEXT NUMBER
JGET NEXT NUMBER
;DONE WITH TEST? IF NOT (ONTINUE

MACRO M1111
24~SEP-79 10:39
CZDRLAQ-DR11w GEN NPR INTF(
TEST 42 TEST THAT GO CLEARS READY AND SETS AGAIN

SEQ 0054

LSBTTL TEST &2 TEST THAT GO CLEARS READY AND SETS AGAIN

1614
1615

:;ttl.ttttttt'tttttttl.tt"ttttntQttttntttt.ttttntttnnttqttttttt"t'ttt'

TEST &2 TEST THAT GO CLEARS READY AND SETS AGAIN
MAINTENANCE MODE (INTERNAL WRAP-AROUND)

1616
1617
1618

;:t.tt'tQtttt'ttttttl.'t"tt.'ttttttltt.tttnttQtttn-ttnttttt't-ntnnna.t-

00542¢
005430
005434
005442
1623 005450
1624 005456
1625 005460
1626 005462
1627 005470
1628 005476
1629 005504
1630 005512
1631 005516
1632 005520

1619
1620
1621
1622

1633
1634
1635
1636
1637
1638
1639

PAGE 45

005522

005530
005534

005540
005542
005550
005552
1640 005554
1641 005556

000004
005077
012737
012777
022777
001401
000
012777
013777
052777
052777
105777
100001
104000

052777
005037
105777
100406

062737
100401

173434
002000
010000
010200

SCOPE
CLR

014122

MOV
MOV

173420
173412

(MP
8EC
HLT

177600

MOV
MOV
BIS
B:S

001152

000010
000001
173352
000400
001166

173340

173330

000004

TSTB
8PL
HLT
BIS
TSTRDY:

000240

TSR

8Mi

001166

ADD

000770
104000

CLR

DONE
:

BMI
8R
HLT

NOP

a(SR
#2000,
I COUNT
#10000,aCSR
x12200.aCSP

JFORCE TO BE CSR m1
;MAINT MODE
:ONLY READY

#-200,aWCR

JSET=-UP W(R

INBUF , @BAR

;SET=UP BAR

#1,8(CSR

;60 CLEARS READY

#10,aCSR
a(SR
A

#400,a(CSR
RDY(CHK
a(SR
DONE

#4 ,RDYCHK

TSTRDY

JFNCT3(NON BUKRST)
;CHECK READY
;1S READY CLEAR?
JREADY

]IS

STILL

SET

:SET CYCLE AND START XFERS
:CLEAR READY (HECK
;CHECK READY
;IF SET GO TO DONE
;CHECKING

;1F

TIME

FOR READY

RDYCHK GETS NEGATIVE

;CHECK AGAIN

TO BE

SET

TOOK TOO LONG

JREADY GOT CLEARED BUT NEVER SET AGAIN
;G0 TO NEXT TEST

CZDRLAQ-DR11w GEN NPR INTF(

MACRO M1111

2¢=-SEP-79 10:39

TEST 43 TEST THAT DR11w DOES iINTERRUPT WITH PROC AT LEVEL 3

1646

1650 005560
1651 005562
1652 005566

000004
005077
012777

1654 005602

001010

1653 005574

1655 005604
1656 005610

1657 005612
1658 005620

032777

004737
000005

173302
000140

000200
000200

1660 005626
1661 005632
1662 005640
1663 005646
1664 005654
1665 005662

012777
012777
012777
052777
052777
012737

005720
000340
010000
000101
020004
001000

1667 005674

001375

1670 005710

104000

1666 005670

1668 005676
1669 005704

104000

005337

013777
005077

001312

001140
173230

}g;} 005712

000005

1673 005714
1674 005720

000137
005077

005740
173144

1676 005726
}g;g 005734

013777
005077

001140
173200

1675 005724

1679

022626

173206

173266

;'"'tt.'ttt".'.fi"...t'.Q'.Q'Ql't'.t!t."t.t.fitl.tt."'.t....t.'..".."
TEST 43 TEST THAT DR11-W DOES INTERRUPT WITH PROC AT LEVEL 3
;
MAINTENANCE MODE (INTERNAL WRAP-AROUND)
;
N
INTERRUPT VIA ATTN
Sl
NS E2232Z332233323233 2222222222222 22220R2R2RRRdZdiRRRRiRiRRRRRRRRRdlll
X :
SCOPE
CLR
aCSR
JFORCE TO BE (SR #1
MOV
#140, aPSW
JSTATUS AT LEVEL 3
CHECK READY BIT
s
BIT
#BIT7,a(SR

014144

032777
001001

1659 005622

SEQ 0055

LSBTTL TEST &3 TEST THAT DR11w DOES INTERRUPT WITH PROC AT (EVEL

1644
1645

1647
1648
1649

PAGE «7

PIINV

BIT
BNE

#MIT7.3CSR
.+

MOV
MOV
MOV
BIS
BIS
MOV

#P3INT,@DRINV
#340,8DRVS
#10000,3CSR
#101,3CSR
#20004
., 3CSR
#1000,
T IME

BNE

228

JSR
RESET

173250
173304
173300
173222
173214
173206
001312

BNE

P3INV:

228:

173232

HLT

DEC

MOV
CLR
HLT

PC.CKSWR

TIME

DRVS, @DRINV
aDRVS

RESET
PIINT:
173202

JMP
(LR

X7
aCSR

MOV
CLR

DRVS
., aDRINV
aDRVS

CMP

(SP)+,(SP)+

JiS IT SET?

JINIT TO SET READY
JSEE IF READY IS SET NOW

JIS

SET

JREADY CAN'T BE SET BY IN]T
JSET UP INT VECTOR

:Tglgé MODE

ESEi ATTN;ERROR SETS.SETS READY,AND INTERRUPT OCCURS

;DELAY

JRESTORE INTERRUPT VECTOR
JRESTORE TRAP (CAT(HER

:DR11-W DIDN'T INTERRUPT
;IF NO INTERRUPT,CLEAR ANY OUTSTAND ING
JINTERRUPT REQUEST IN BOARD HDWR.
;CLEAR IE
JREPCSITION THE STACK AFTER AN INTERRUPT
JRESTORE INTERRUPT VECTOR
JRESTORE

TRAP (AT(HER

CZDRLAQO-DR11W GEN NPR INTF(
MACRO M11*1
24=-SEP-79 10:39
TEST 44 THAT DRY1W DOES NOT INTERRUPT WITH PROC AT LEVEL 7
1682

1683

1684

1687

1685
1686

:
.

1688 005740

000004

1689 005742

005077

1691 005752

012777

1690 005746

1692 005760

005037

014122

032777

000200

1693 005766

001010

1695 005774

000005

1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708

(01001
104000
012777
012777
012777
052777
052777
012737
5337
001375
000005
013777

1694 005770

1696 005776

1709
1710
1711
1712
1713
1714

006004
006006
00601C
006016
006024
008032
006040
006046
006054
006060
006062
006064
006072
006076
006100
006102
006106
006114

1;}2 006120

X7:

173122

000340

173102

004737

014144

032777

000200

173C64

006100
000340
010000

173120
173114
173036

005077
000411
022626
005077
013777
005077

104000

000101
020004
001000
001312

173030
173022
001312

001140

173044

173042

172762
001140
173020

P7ERR:
173022

R AR

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

R AR AR AR R AN R RN AN T RN TR RN AN TR O AW

MAINTENANCE MODE (INTERNAL WRAP-AROUND)
INTERRUPT VIA ATTN

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

SCOPE

CLR

a3CSR

;FORCE TO BE (SR #

MoV

#340,3PSW

;STATUS AT LEVEL 7

BNE

P7INV

;IS IT SET

TCOUNT

#RIT7,3CSR

JSR

PC,CKSWR

BIT

#3177,a(CSR

RESET

22%:

SEQ 0056

TEST 44 TEST THAT DR11-w DOES NOT INTERRUPT WITH PROC AT LEVEL 7

BIT

P7INV:

PAGE 49

LSBTTL TEST &4 THAT DR11W DOES NOT INTERRUPT WITH PROC AT LEVEL 7

CLR

173022

BNE
HLT
MOV
MOV
MoV
BIS
BIS
MOV
De(
BNE
RESET
MOV
CLR
8R
(MP
CLR
MOV
LR

HLT

#P7ERR,aDRINV
#340,@DRVS
#10000,aCSR
#101,aCSR
#20004 ,aCSR
#1000, 7IME
TIME
22%

DRVS ,aDRINV

aDRVS
X1
(SP)+,(SP)+
a(SR
DRVS ,aDRINV
aDRVS

NN R IR

RO RO AT NS

;CHECK READY BIT

JINIT TO SET READY

JSEE IF READY IS SET NOW
;IS READY SET?
JREADY CAN'T BE SET BY
;SET UP INT VECTOR

INIT

;MAINT MODE

;1E.GO
JSET ATTNERROR SETS,SETS READY,AND
;DELAY

INTERRUPT OCCURS

sCLR IE,OUTSTANDING INTERR RFQUEST

JRESTORE STACK
JCLEAR [E

;DR11-w INTERRUPTED, BUT IT SHOULDN'T HAVE

(ZDRLAQO-DR11w GEN NPR INTFC

TEST 45 THAT DR11W DOES

17635
1764

1765
17¢6

SEQ 0057

TEST 45 THAT DR11w DOES INTERRUPT AND INDICATE BR LEVEL
MAINTENANCE MODE (INTERNAL WRAP-AROUND)
[

INTERRUPT VIA ATTN

"".t.'it't't.t..""".""t...ttt"fi't'!.‘..Q'tfi.tt'.'tt.t"t'tt'.tt"'

000340

172650

000200

172724

172732

X1:

NSTAT:

014144

1736

1759
1760
1761
1762

INDICATE BR LEVEL

PAGE S0

"".".l."t.".".Qt"fi.""'fifitt"t.'t.'..'tt'tt'tt.fifl"ttt"'.t"'.tt'

1728
1729
1730
1731
1732
1733
1734
1735

1758

INTERRUPT AND

24-SEP-79 10:39

LSBTTL TEST 45 THAT DR11W DOES INTERRUPT AND INDJCATE BR LEVEL

1718
1719
1720
1721
1722
1723
1724
1725
1726
1727

1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757

MACRO M1111

000200

172706

006272
000340
010000
000101
020004
001000
001312

172742

001140
172664
172522

000040
172570

001140

172626
17743

023412

006201
010137
104401
104401
104401
000421

023412

104401

001351
001351

104401

PINV:

22%:

172666

;STATUS AT LEVEL

#31T7,aCSR
PINV

PC.,(KSWR

BIT

#3177 ,3CSR

HLT
MOV
MOV
MOV

#BRLEV, aDRINV
#340,a8DRVS
#10000,aCSR

BNE

172660
172652
172644

001312

CLR
BIT
BNE
JSR

RESET

.+4

#101,aCSR
#20004 ,aCSR
#1000, TIME
TIME

22%

DRVS,aDRINV
aDRVS

023412

IPSW,LEVEL

172512
BRLEV:

172630

023412

#40,aPSW
NSTAT
(SP)+,(SP)+
aCSR
DRVS,aDRINV
aDRVS
#1776437 ,LEVFL

LEVEL .R1

R1
R1
R1
R1
R1
R1,LEVEL

023412
001351
001351
006360

013746
104405

172736

SCOPE
MOV

.SCRLF
.SCRLF
.65%

s .65%:
:
648

JFORCE TO BE (SR #1
;CHECK READY BIT

;IS IT SET

JINIT TO SET READY

;SEE IF READY IS SET NOW
;1S READY SET?
JREADY CAN'T BE

SET BY

JSET UP INT VECTOR

INIT

;MAINT MODE
;1E,G0
JSET ATTN;ERROR SETS,SETS READY ,AND [NTERRUPT OCCURS
;DELAY

;CLR IE,OUTSTANDING INTERR REQUEST
;SAVE OLD STATUS LEVEL
;NEW PSW

;TRY AGAIN

JRESTORE STACK
JCLEAR IE

JGET
;BR

; INTERRUPT
JLEVEL

;. TYPE ASCIZ STRING

648
;.GET OVER THE ASCIZ
/TEST 40: DR11W INTERRUPT LEVEL =/
LEVEL,=(SP)

.SCRLF
.SCRLF

;. SAVE LEVEL FOR TYPEOUT
;.GO TYPE--DECIMAL ASCI] WITH SIGN

LZDRLAO-DR11w GEN NPR INTF(

MACRO M1171

24-SEP-79 10:39

TEST &6 THAT GIVING A GO WITHOUT CLEARING ERROR CAUSES INTRPT
1769
1770

SEQ 0058

LSBTTL TEST 46 THAT GIVING A GO WITHOUT CLEARING ERROR (AUSES INTRPT

R A A AR A

1771

A AR A AR R A A

TR R AR R

A A

R R R A R AR SRR AR R R TR R AR R R AR RARAANARANRS

TEST 46 TEST THAT GIVING A GO WITHOUT CLEARING A PREVIOUS

ERROR CAUSES ANOTHER INTERRUPT

1772

1773
1774
1775

1776 006440

000004

1778
1779
1780
1781

012777
012777
005077
012777

006534
000140
172314
010000

052777

020004

1777 006442

006446
006454
006462
006466

1782 006474

1783 006502

1784 006510

005077

052777
012737

172422

1804 006614

1805 006616

1806 006622
1807 006024
1808

1809 006626

005077
012777
005277
005037
005227
001375
104000
000005
000137

022626
005777

100001

172360

006632

006614

172306
177777
172276
006600
000001

006632

172246

104000

004737

#101,38CSR

MOV

172326

012777

aCSR

001312

005777
1004601
104000

006554
006560
006566
006572
006576
006602
006604
006606
006610

172374

B!S

22%:

ERRDO:

172362

DEC
BNE
HLT
RESET
JMP

(MP

TST
Ml
HLT

MOV

172276
1%:

ERRDOY:

CLR
MOV
INC
(LR
INC
BNE
HLT
RESET
JMP

(MP
TST

8PL

HLT

010156

A AR RN AN I AN AN R R A AR R AN N

CLR

MOV
MOV
CLR
MOV

001000

1791 006536
1792 006542
1793 006544

1794 006546

172462
172456

AN R AN AR AN

SCOPE

B81S

001312

022626

AR RN

172366

005337
001375
104000
000005
000137

1790 006534

155

FOR THIS TEST, THE NORMAL INTERRUPT MECHANISM SHOULD BE WORKING
MAINTENANCE MODE (INTERNAL WRAP-AROUND)

000101

1785 006516
1786 006522
1787 006524
1788 006526
1789 006530

1795
1796
1797
1798
1799
1800
1801
1802
1803

6.5
PAGE 5S¢

JSR

#ERRDO,aDRINV
#140,8DRVS
aPSW
#10000,aCSR

#20004,aCSR
#1000, TIME
TIME
22%

160
(SP)+,(SP)+
a(SR
.+4

#ERRDO1,aDRINV
@BAR
#-1,aWCR
a( SR
1842
”1
1%
T60

(SP)+,(SP)+

a(SR

PC ,NORMA(

AR RAN TR AR ORISR R AR AR

;FORCE TO BE (SR #1

; INTERRUPT VECTOR TO ERRDO
s INTERRUPT STATUS TO LEVEL 4
;LET THE DR11-w INTERRUPT
;MAINT MODE

;IE G0
:

SET ATTN AND INTERRUPT

;DELAY

:NO DR11-W INTERRUPT
:CLEAR OUTSTANDING INTERR.

REQST.

READJUST STACK

:TEST CSR
J;ERROR SET?
;ERROR 1S CLEAR =~ SHOULD HAVE ERROR

; INTERRUPT VECTOR TO ERRDO1

:PREVENT CAUSING ANOTHER ERROR
JSET=UP W(CR
;GO TO CSR
:DELAY;WAIT FOR INTERRUPT

;NO DR11~w INTERRUPT
:CLEAR INTERRUPT REQUEST
:CHECK ERROR

;ERROR SET?

:ERROR IS SET - SHOULD BE
:PREVIOUS ERROR WAS (LEAR

(LEAK

RPN

(ZDRLAQO-DR11w GEN NPR INTFC
TEST 47 THAT FUNCTION 8l TS

MACRO M1111

INCREMENT wlTH MAINT MODE

TRANSFERS

LSBTTL
~4%
. . w

172230

002000
001152
000001
006762
001074
001202
001306
001306
172060
010000
000501
001000
001312

014122

172212

001202

172246
1722642

001306
172146

172140
172132

0Cc 312

24-SEP-79 10:39
TEST

PAGE 532

THAT

TEST &7 TEST
S

001202

001202
000010
007022

00120¢

FUNCTION BITS

THAT

FUNCTION BITS

2222223323223 23842332022222

SCOPE
CLR

MOV
MOV
MOV
MF L OOP: MOV
MOV
MOV
NEG
MOV
CLR
MOV

1%:

T60CHK:

172100
000700

SEQ 0059
INCREMENT

wlTM+H MAINT

MODE

TRANSFERS

AR AN AN AN ANNRAN RN AR AN ARNRNANANANRAARNAANANARRNRRANANR
R AN RAAIANANAATOANNRANANS

BlS
MOV
DEC
BNE

a(SR
#2000, ICOUNT
aBAR
, UF
INB

JMP

(mp
MOVB

BIC
ASR
(MP8
BEQ
HLT
INC
“MP

BEQ
Bk

INCREMENT

WwITH MAINT MODE

TEMP
TEMP ,aW(R
aPSw
#10000,a(SR
#501,aCSR
#100T0,
IME
TIME

161
(SP)+,(SP)+

aCSR,RT

#700,R1
R1
FNCCNT R

.44

FNCCNT
#10,FNCONT
161
L OOP
MF

TRANSFERS

222282222200 RRRRRRRRRRRARARRRRlRlRR
RS

JFORCE TO BE (Sk
;SET-UP BAR

;GET READY FOR (HECKING
#TOOCHK ,@DRINV ; INTERRUPT VE(TOR
DRINL ,@DRVS
JINTERRUPT VECTOR PRIORITY
FNCCNT ,TEMP
JNUMBER OF TRANSFERS
#1 _FNCCNT

HLT
RESET

007024

TO DRINL

JSET UP FOR W(R
JSET-UP FOR 1 TRANSFER

JLET THE DR11-w INTERRUFT
JMAINT MODE

;1E,CYCLE & GO

JWAIT FOR

INTERRUPT

sNO INTERRUPT OCCURRED
sIF NO INTERRUPT,CLEAR ANY OUTSTANDING
JINTERRUPT REQUEST IN BOARD HDWR.
;GO TO NEXT TEST

JLOWER BYTE OF (SR TO R1
JGET RID OF READY,CYCLE,IF BECAUSE OF MAINT MODE
JMOVE IT RIGHT ONE PLACE
JCHECK AGAINST FNCCNT
; SHOULD BE EQUAL
JFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE
;GET READY FOR NEXT PASS
JONLY 10 BECAUSE FNCT3-1 GO TO ZERO
JIF ITS EQUAL GO (HECK DATA
;DO IT AGAIN

MACRO M1111
(ZDRLAQ~DR11W GEN NPR [NTF(
TEST 50 TEST FOR 10 MAINT MODE TRANSF ERS

1853

[

PAGE 54

SEQ 0060

LSBTTL TEST SO TEST FOR 10 MAINT MODE TRANSFERS

1849
1850
1851
1852

24~SEP=79 10:39

:.’t.tt.t'l.'tt..'ttlttfiIQ!'t't'....ttQ'QQ..l...l'...'.'.......'."...."

TEST

50 TEST FOR

S (23222222222

000004

005077
012737
013737
005437
004737
004737
013777
013777
012777
012777
013777
005077
012777

052777
012737
005337
001375

172036

161:

000010
001156
001164
007714
007752
001164
001152
177777
007174
001074

001156
001164

MOV
MOV
NEG
JSR

171774
171770
171766
172024
172020

MOV

010000
000501
001000
001312

171736
171730
001312

171656

JSR

MOV
MOV

000005

004737
000137
022626

004737

010016

10116

TO1(HK:

a(SR

;FORCE TO BE CSR #1

WCLEN,aW(R

JSET UP W(CR

#10 ,BUFLEN
BUF LEN,WCLEN
WCLEN
PC.,LODRUF
PC.CHKBFF
INBUF ,@8AR

#-1_,a8DR

RRRRRtiaaataan

;JBUFLEN=10
;PREPARE NUMBER FOR W(R
;2'S COMPLEMENT OF BUFLEN
:LOAD IN BUFFER WITH INCREMENT
ING PATTERN
JLOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
;SET UP BAR

;MAINT AIDE

#T61CHK ,aDRINV ; INTERRUPT

MOV
BIS
MOV

#10000,aCSR

VE(CTOR

DRINL ,aDRVS
aPSW

;INTERRUPT STATUS AT PRIORITY DRINL
:LET DR11-W INTERRUPT

#5017 ,a(SR

;1E,CYCLE £ GO

#7000, TIME

DEC
BNE
HLT

TIME

JSR
JSR
JMP
MP
JSR
JSR

PC,INTA
PC,DATCHK

RESET

010016
010116
007206

TRANSFERS

2822028202322

MOV
MOV

(LR

104000

004737

SCOPE
CLR

10 MAINT MODE

2Z223222802222

161.5
(SP)+,(SP)+
PC,INTA
P(C,DAT(HK

;MAINT MODE
JWAIT

FOR

INTERRUPT

;NO INTERRUPT OCCURED

NG
;IF NO INTERRUPT,CLEAR ANY OUTSTAND
HDWR.
JINTERRUPT REQUEST IN BOARD

;CLEAR

[E,CHECK ERROR,READY,W(

0.% BAR

(ZDRLAQO~DR11w GEN NPR INTF(
10 MAINTENANCE MODE

007519
007512
007514

001164
007714
00775¢
001164
001152
177777
007360
001074
010000
000501
001312

1%:

010016
01011¢
WRONG1:

010700

171412

177770

171374

001152

171366

007514
010000
001000
001164
001152
007510
010000
000501
001312

007370
007376
007404
007412
007420
007426
007434
007442
007446
007450
007456
007460
007462
007470
007472
007500
007502
007504
007506

000010
000340
001000
000010
001156

oK :

38:

5%:

RSET:

WRONG?:

010156

NRM :

TEST

SEQ 0061

10 MAINTENANCE MODE XFFRS

THAT DOING 10 MAINTENANCE MODE

WITHOUT EXPERIENCING AN INTERRUPT ,WILL
‘GO’ FROM INITIATING FURTHER XFERS

X222

T61.5:

171656

007362
007364

TEST

;
S

TEST 51

;

&S &SNS HNS
NW=H
oy
o OoONrVruNY

d ek —d
ed cd
el
d
—t

ONOAWVESWN—=O

d
d _d
d
D
d
e
—

OO OO0V VOO0

;

891 007222
1892 007230
1893 007236
1894 007244
1895 007252
1896 007256
1897 007262
1898 007266
1899 007274
1900 007302
1901 007310
1902 007316
1903 007324
1904 007332
1905 007340
1906 007344
1907 007346
1908 007352
007356
007360

LSBTTL

1882
1883
1884
1885
1886
1887
1888 007206
1889 007210
1890 007214

5
J
PAGE 55

24~SEP-79 10:39

XFERS

PSS YINEY o, PN
NNNNNON

TEST S1

MACRO M1111

XFERS

INMIBIT

222222222222 X222
R RRRRRRRRsR
R ERRRR

SCOPE
(LR

MOV
MOV
MOV
MOV
MOV
NEG
JSR
JSR
MOV
MOV
MOV
MOV
MOV
MOV
8IS
DEC

BNE
JSR
JSR
B8R
(MP
HLT
JMP
MOV
MOV
MOV
MOV
MOV
MOV

BIS
DEC
BNE

(MP
BEQ
HLT
MP
BNE
M
BEQ

HLT

RESET

BR
(MP
HLT
JSR

aCSR
#10, 1COUNT

#340,9P5W
#1000, TIMe

#10,B0FLEN
BUF LEN,WCLEN
WCLEN
PC,LODBUF

PC . CHKBFF
WCLEN, aWCR

F
. @BAR
INBU

#-1,38DR
MWRONG1, aDRINV
DRINL ,@DRVS
#10000,aCSR
#501,aCSR
TIME
1$
PC, INTA
PC . DATCHK

oK
(SP)+,(SP)+
NRM
#10000,aCSR

#1000, TIME
WCLEN,aW(R
INBUF ,@8BAR
#MIRONGZ
, DR INV
#10000,8CSR
#501,a(CSR
T IME

;FORCE TO BE (SR M
<NO CPU INTERRULPT
;SET DELAY

;BUFLEN=10
;PREPARE

NUMBER

FOR W(CR

;2'S COMPLEMENT OF BUFLEN
;LOAD IN BUFFER WITH INCREMENTING PATTERN
:LOAD CHECKX BUFFER WITH MODIFIED INCREMENTING PATTERN
JSET UP WCR
JSET UP BAR
:MAINT AIDE
JINTERRUPT VECTOR
JINTERRUPT

;MAINT MODE

STATUS AT PRIORITY DRINL

;JELCYCLE & GO
JWAIT

FOR XFERS

COMPLETE

sCLR JE,CHECK ERROR,READY,w(-0,BAR
;CHECK PROPER DATA

2SHOULD NOT INTERRUPT

;JNO INTERRUPT 1ST TIME

JMAINT MODE
J1E,CYCLE.GO

#10700,aCSR
. +4

JONLY READY
, MAINT,IE,R CYCLE

#-10,3WCK

sCHECK

THAT NO XFERS WERE MADE

JXFERS

SHOULD HAVE

5%
INBUF ,aBAR

RSET

NRM
(SP)+,(SP)+
PC .NORMA(

;CSR IN ERROR

BEEN

INHIBITED

WILL ELIMINATE ANY OQUTSTANDING INTERRUPT REQUESTS

JREADJUST STA(CK

JSHOULD NOT INTERRUPT 2ND TIME

(ZDRLAO-DR11w GEN NPR INTF(
MACRO M1111
24~SEP-79 10:39
TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE
1937

PAGE 56

SEQ 0062

LSBTTL TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE

1938

""t.....l".'tt.t.l..'t't'*t.tttt.tt.ittttfittttt.tttt'ttttfit.l.'tt.tltt.'

1939

19‘0

1941

007520

000004

1942 007522
1943 007526
1944 007534

005077
012737
012737

171342
002000
00020C

19646 007550

005437

001164

1945 007542
1947
1948
1949
1950
1951

007554
007560
007564
007572
007600

1953
1954
1955
1956
1957
1958
1959
1960
1961

007614
007622
007626
007634
007642
007650
007654
007656
007660

1952 007606

1962

TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE

'°"Q.tttttt.ttttit"tfiQ'.'.fi.tfitfittttttttt.itfi'.fitt.ttttflflt'.tt't'tttt.tQ

1963 007662
1964 007666
1965 007672

1966 007676
1967 007700
1968 007704

1969 007710

013737

004737
004737
013777
013777
012777

012777

013777
005077
012777
052777
012737
005337
001375
104000
000005
004737
004737
000137

022626
004737

Q04737

000137

001156

007714
007752
001166
001152
000001

007676

001074
171154
010000
000501
001000
001312

010016
010116
010276

010016

010116

010276

SCOPE

014122
001156
00116«

aCSR
#2000, 1COUNT
#200,8UF LEN

;FORCE TO BE CSR #1

NEG

WCLEN

12'S COMPLEMENT OF BUFLEN

MOV

JSR
JSR
MOV
MOV
MOV

171272
171266
171264

171322

MOV

171316

171234
171226
001312

CLR
MOV
MOV

1%:

T62CHK:

MOV
(LR
MOV
BIS
MOV
DEC
BNE
HLT
RESET

:PREPARE NUMBER FOR WCR

PC,LODBUF
PC . CHKBF F
WCLEN, aWCR
INBUF . aBAR
#1,38DR

"LOAD INBUF WITH INCREMENTING PATTERN
"LOAD CHKBUF WITH MODIFIED [(NCREMENTED PATTERN
‘SET UP WCR
*SET UP BAR
"MAINT AIDE

NT62CHK,@DRINV
DRINL , @DRVS
aPSW
#10000,3CSR
#501,a(SR
#1000, TIME
TIME
18

JSR
JSR
P

PC,INTA
PC . DATCHK
143

JSR

PC ,DAT(HK

(MP
JSR

:LENGTH OF BUFFER = 200

BUFLEN.WCLEN

(SP)+, (SP)+
PC,INTA

142

- INT VECTOR

“INT VECTOR AT PRIORITY DRINL
“LET THE DR11-W INTERRUPT
"MAINT MODE
“1E.CYCLE & GO

:NO INTERRUPT OCCURED
“IF NO INTERRUPT,CLEAR ANY OUTSTANDING
“INTERRUPT REQUEST

IN BOARD HDWR.

:CLR IF,CHECK ERROR,RESDY,W( 0,8 BAR
;CHECK

THAT

(ORRECT

DATA WAS

TRANSFERRED

C(ZDRLAQO-DR11w GEN NPR INTF(

TEST

MACRO M1111

52 TEST FOR 200 NPR TRANSFERS

1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994

007714
007720
007724
007726
007732
007740
007742
007746
007750
007752
007756
007762
007764
007766
007770
007776
010004
010006
010012
010014
010016
010024
019030
010032

013702
005037

“996
1997
1998
1999

010040
010042
010044
010050

100401
104000

1995 010034

2000 010052
2001 010054
2002 010060

0136

CMP
BEQ

LDEX]T:
CHKBFF:

001154
001160

(HKA:

000002
001160

001160
001156

000002
000207
042777
005777

000100

105777

171030

005777
001401

171014

100001
104000

104000
013702

063702
063702
005737
001401
065202

171040

171044

INTA:

001160

001140
170750
000340

MOV
MOV
ADD
(MP
8PL
ADD
B8R
RTS

170752
170604

LOADA

CHKBUF ,R2

LENCHK

R3,(R2)+
R3,(R2)+
#2 ,LENCHK
CENCHK ,BUFLEN
.+10
#2 ,R3

CHKA
PC

TSTR

alSR
R
aw(R
.+

MOV
ADD
ADD

BUFLEN,R2
BUFLEN,R2
INBUF ,R?

8EQ
INC

1%
R2

MP
BEQ
HLT
JSR
RTS

aBAR,R2

DATCHK: MOV
MOV
CLR
COMPAR: INC
cMP
BEQ

001156

INBUF ,R?
LENCHK
(R2)+
LENCHK
LENCHK ,BUFLEN
LDEXIT
LENCHK, (R2) +

#3]176,a(CSR
a(SR
.46

TST

1$-

L5
PAGE 57

BIC

BEQ
HLT

010156

023737
001367
000207
013777
005077
012777

CLR
CLR

BM]
HLT
TST

170762

001154
001152
00160
001160

MOV
BR
RTS
MOV

TST
BPL
HLT

001156
001156
001152
001314

013702
013703
005037
005237
022223
001401
104000

2027 010170

001156

LODBUF: MOV
CLR
CLR
INC
LOADA:

001160

027702
001401
104000
004737
000207

2010

[N MAINT MODE

001152
001160

001160
001160

24=SEP-79 10:39

HLT

(MP

RTS
: MOV
NORMA(

(LR

CABLE

SEQ 0063

;MOVE STARTING ADDRESS OF INBUF TO RZ
;CLEAR LENGTH CHECK
:CLEAR STARTING ADDRESS OF [NBUFF AND INC BY 2
JINC LENGTH CHECK BY 1
;CHECK FOR DONE
;1S INBUF FILLED?
;LOAD NEXT BUFFER WORD
:EST}INUE CHECKING
;STARTING ADDRESS OF (HECK-BUFFER TO RZ2
;CLEAR LENGTH CHECK

:CLEAR R3

;MOVE R3 TO CHKBUF ADDRESS AND INC BY 2

JMOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2
JADD 2 TO LENGTH CHECK
JCHECK FOR DONE
;1S CHECK-BUFFER FILLED?
NEXT NUMBER FOR BUFFER
JCONTINUE FILLING
JEXIT
;CLEAR [E
;CHECKING FOR ERROR
JERROR SET?
:ERROR BIT IS SET
;CHECKING READY BT
;1S READY SET

;FALSE INTERRUPT - ERROR AND READY ARE C(CLEAR
:TESTT
;WAS

FOR WCR=0

]T EQUAL?

:WC NOT = 0
;BUFFER LENGTH TO R2
NUMBER OF XFERS TIMES 2

;CORRECT BAR
;ég THIS CABLE TESTING?

:CABLE MODE TESTING LEAVES BIT O
;OF BAR SET.THEREFORE MUST (HE(K
;FOR ODD ADDRESS.
; CHECKKING BAR
:#8 BAR CORRECT

P( ,NORMAL
PC

JEXIT

CHKBUF
, X2

, X3
INBUF

LENCHK
LENCHK

(X2)+,(%3)+
.+

,BUF LEN
LENCHK
AR
COMP
X7
DRVS,aDRINV
aDRVS
#340,aPSW

;STARTING ADDRESS OF CHECK BUFFER TQ R2
;STARTING ADDRESS OF [N BUFFER TO R3
;JCLEAR LENGTH CHECK
JMAKE A COMPARISON
;1S THE DATA (ORRECT?
JBRANCH IF OK
;BAD DATA
;SEE IF THE BUFFER HAS BEEN CHECKED

;BUFFER CHECKED?

;RESTORE DR11-8 INTERRUPT VECTOR
JRESTORE DR11-B INTERRUPT STATUS
JRESTORE PROC TO PRIOR;TY LEVEL 7

]
PAGE 57-1
]

(ZDRLAO-DR11Ww GEN NPR

INTF(

TEST S2 TEST FOR 200 NPR

2028 010176
2029 010200
2030 010204
2031 010210
2032 010214
2033 010220
2034 010222
2035 010224
2036 010226
2037 010234
2038 010236
2039 010240
2040 010242
2041 010244
2042 010246
2043 010254
2044 010260
2045 010262
2046
2047
2048
2049
2050
2051

010264
010270
010272
010274

000207
012702
013703
005037
005237
020223
001401

MACRO M1111

TRANSFERS

IN MAINT MODE

RTS

DATOCK: MOV
MOV

052525
001152
001160
001160

001160

24-SEP-79 10:39

(OMPRR:

CLR

INC
cMP
BEQ

1 74

#52525,%2

F
, %3
INBU

LENCHK
LENCHK

X2,(X3)
LENCHK ,BUFLEN
COMPRR

001156

X2,(X3)+
.+4

000100
170610
170600

170614

ERRCHK:

174

#176,3(SR
a(SR
.+

SEQ 0064

JEXIT

;DATO NUMBER TO R2
;STARTING ADDRESS OF
;CLEAR LENGTH (HECK

IN BUFFER TO R3

JMAKE A COMPAR]SON

;1S THE DATA CORRE(T?
JBRANCH IF OK
;8AD DATA
;SEE IF THE BUFFER HAS BEEN (HECKED
;BUFFER CHECKED?
;JCHECK END OF BUFFER + 1
JSEE IF TOO MANY WORDS WERE TRANSFERRED
. TO0 MANY
JEXIT

sCLEAR [E
sCHECKING FOR ERROR
JERROR SET?

aCSR
.46

JERROR BIT IS SET
;CHECKING READY BIT
;1S RDY SET

174

JEXIT

JFALSE

FNTRY

- ERROR AND READY

ARE

(LEAR

(ZDRLAQ-DR11w GEN NPR INTF(
MACRO M1111
24-SEP-79 10:39
TEST 53 THAT DOING A DATO TO THE DIODE MEMORY CAUSES NEX
2053
2054

2055

2057

2059 010300
2060 010304

2061 010312
2062 010320
2063 010326

2064 010336
2065 010340
2066 010346
2067 010354
2068 010362
2069 010370
2070 010374
2071 010376
2072 010400
2073 010402
2074 010406
2075 010412
2076
2077
2078
2079

010414
010416
010420
010422

2080 010424
2081 010426

2082
2083
2084
2085
2086
2087
2088
2089

010432
010434
010436
010442
010444
010450

000004

005077
012777

013777
012777
013777

005077
012777
052777
052777
012737
005337
001375
104000
000005
000137
017705
005705

170564
177776

001150
010406
001074

170442
010000
000062
000501
001000
001312

010450

170456

100401
104000
105705
001001

104000
032705
001001
104000
005077
022626
004737
000004

170552
170546
170610
170604
170522
170514
170506
001312

AR R AR R R R RN AN N AN RN AN R R

SCOPE

AR A AN R AN

CLR
MOV
MoV
MOV
MOV
CLR
MOV
BIS
BIS
MOV
22%:
DEC
BNE
HLT
RESET
JMP
NEXCHK: MOV
TST

108:

SCOP:

RN AN

R O RS

TEST 53 TEST THAT DOING A DATO TO THE DIODE MEMORY CAUSES NEX

T42:

170426
010156

R R R R AR AN AR R R AR AR AR AR RN

MAINTENANCE MODE (INTERNAL WRAP AROUND)

8M]
HLT
TSTB
BNE

040000

SEQ 0065

AR RN

2058 010276

PAGE 58

.SBTTL TEST 53 THAT DOING A DATO TO THE DIODE MEMORY CAUSES NEX

AN AR

;

2056

HLT
8IT
BNE
HLT
CLR
CMP
JSR
SCOPE

A AR

RN AN R RN R RN R

A N A AN KA NN AN RSN N E R AR AN RN NI AT AR

aCSR
#=2 , (R

;FORCE TO BE (SR #1
;SET UP W(R

#62,3CSR
#501,aCSR
#1000, TIME

JFNCT1,XBA16,XBAT7
;1E,CYCLE,GO
;DELAY

DIOMEM, aBAR
JSET UP BAR
MNEXCHK ,8DRINV ; INTERRUPT VECTOR TO NFXCHK
DRINL ,aDRVS
s INTERRUPT STATUS TO LEVEL DRINL
aPSW
;LET THE DR11-w INTERRUPT
#10000,aCSR
JMAINT MODE

TIME
2%

scop

@CSR,RS
RS
.+

RS
.6
#31T14 RS
.+
a(SR
(SP)+,(SP)+
PC,NORMAL

;NO DR11-W INTERRUPT
;CLEAR ANY OUTSTANDING INTERRUPT REQUESTS

;SAVE CSR IN RS
;TEST (SR

JERROR SET?
;ERROR NOT SET
;TEST FOR READY
;READY SET?

;READY ISN'T SET
s CHECK NEX

SNEX SET?
;NEX IS CLEAR
JRETURN TO (SR #1
JRESTORE THE STA(K

MACRO M1111
24=SEP=-79 10:39 PAGE
54 CROSSING A 32k BOUNDRY DOESNT CAUSE A BAOF OR FORCE ER

(ZDRLAQ-DR11w GEN NPR INTF(

TEST

2101 010474
2102 010502
2103 010510
2104 010516
2105 010524
2106 010530
2107 010536
2108 010542

_A_a_n.a_a_n—a_a-h_as
80@\!0*\/\&\)"\)—'0

NIANINI N NI

NN A

010544
010546
010552
010554
010556
010560
010562
010564
010566
010570
010574
010576
010600
2122 010604
2123 010610
2124 010614
2125 070616

6
SEQ 0066

.SBTTL TEST 54 CROSSING A 32k BOUNDRY DOESNT (AUSE A BAOF

2092
2093

2094
2095
2096
2097 010452

OR FOR(CE ERROR

'-.-ttt'ntttitttttt!ttttt't't..t'tttnQtt'tt.ttttt'ttt'.n'tttt'-tt"nttnc re

TEST 54 TEST

A BAOF

THAT (CROSSING A 32Kk BOUNDRY DOES NOT

AND DOES NOT

FORCE

AN ERROR

(AUSE

.'"'Q'.Q't"tl"..'.".Ql"tttl.t""'...tfi'.".'.Q.'!Q.t'..nt"".t't't.

000004
005077
012737
012777
012777
012777
013777
012737
005077
012777
005337
001375

017705
022626
005705

170410
000010
177760
177776

010546
001074

001312
170316

100401

105705
100401

03270S
001001

040000

005077
005077
004737

170262
170260
014144

004737

010156

170332

1%:

BACF(K:

SCOPE
CLR
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
DEC
BNE
HLT
MOV

(MP

TST
8M]
HLT
TSTB
BM]
HL7

aCSR
#10, ICOUNT

#-20,3WCR

#-2 ,aBAR
#BAOF
CK , 3DRINV
DRINL
, @DRVS
#1000,
T IMF
PSW
#563,aCSR
TIME
18

@CSR,RS

(SP)+,(SP)+
RS
YA

RS
.+

BIT
BNE

#40000,RS
.+

(LR
LR
JSR

alAR
a(SR

JSR

PC ,NORMAL

HLT

PC,CKSWR

RESET

;THIS ENDS MAINTENANCE

;FORCE TO BE (SR #°
JSET UP W(CR

:SET UP BAR FOR PROC STATUS ADDRESS

JINTERRUPT VECTOR TO BAOF (K
JINTERRUPT STATUS TO LEVEL DRINL

JLET THE DR11-W INTERRUPT
JCYCLE,IE,
JWAIT

FOR

JTEST

(SR

FNCT1, XxBA17,

XxBA16, AND GO TO (SR

INTERRUPT

;NOC INTERRUPT
; SAVE (SR
JRESTORE THE STA(K

JERROR SET?
JERROR NOT SET
JTEST FOR READY
;READY SET?
;READY ISN'T SET
s CHECK NEX
JARE THEY CLEAR?
JNEX IS CLEAR
;CLEAR BUS ADDRESS REGISTER
JRETURN TO CSR M

JINIT

MODE

TESTING

CZDRLAO-DR11W GEN NPR INTF(

MACRO M1111

24=SEP=79 10:39

.SBTTL
LSBTTL
LSBTTL

(¢

PAGE 60

CABLE MODE

SEw 0067

TESTING

s CABLE MODE TESTING(WRAP-AROUND
;CABLE

IN USER SLOTS)

;TESTS 55 THRU 62 ARE PERFORMED
1.SWITCH REGISTER 10 IS SET,OR

2.SWITCH REG.

10 8 9 ARE DOWN(0) ,AND THE CABLE

IN PLACE:THE PROGRAM WILL

010656

010662
010664
010670
010674
010700
010702
010210
010714
010720
010722

010730
010734
010740

TEST FOR CABLE.

;THE FOLLOWING ROUTINE DETERMINES 1F CABLE IS IN
;OR SWITCH REGISTER OPTION IS SELECTED
;FORCF TO BE (SR #
8CSR
(BL:
CLR

170242

010646
010654

IF:

016144
002000

170466

013132
001000

170452

JSR

BIT

BEQ
1%:

010722
170200
170174
127000

JMP

170160

000001
010744
001314
013132

001314

END

JYES

#1000,aSwR

JMP
RESET

YESCBL

Btw

CLR
MOV

aCSR
a(SR,R1

BNE

NOCBL

MOov8
MOV
BIT

BEQ
YES(BL: MOV
NOCRL:

JMAINTENANCE MODE

BIT

000004
170154
020000

PC,CKSWR

#2000,aSwR

JMP
CLR

JMP

#127000,R1
#6 ,3(SR
a(SR,R1
#20000,R1

;NO

JPERFORM CABLE

TESTS ONLY?

TESTS UNCONDITIONALLY?

JNO;DETERMINE CABLE STATUS BY PROGRAM DETFCTION
JFORCE CSR #1
;CHECK CSR

;TEST FOR ERROR,ATTN,DSTATA,DSTATB,DZTATC
;1F ATIN IS SET,CABLE

NOCBL
01*CABLE

T332

CABLE

END

;DON'T DO CABLE

TESTS

IS IN

MACRO M1111
(ZDRLAQ~DR1iw GEN NPR INTF(
24=SEP=79 10:39
TEST S5 TESY FOR 1 DAT] NUN BURST MODE TRANSFER

2167
2168
2169
2170

2171
2172 010744
2173 010750
2174 010756
2175 010764
2176 010764
2177 010770
2178 010774
2179 010776
2180 011000
2181 011006
2182 011010

2183 011012
2184 011020
2185
2186
2187

CTR R N

005077
012737
012737

010764
000001

005077
005777

170100
170074

100001
104000

022777
001401
104000
012777
012777
005077
012737
012777
012777
005077
012777
052777
005037
005227
001375

WRINUN)
=

3
0

170120

dRdRERRlRiRdR

dRRR

SRR

Rttt

RRR

014126

001314

170062

1727777

001146

170044
170046

052525

001146

011114
000005

167722

000110

000401

011102
000001

T33STR:
TNPRY:

000200

170040

1%3.

AN RN RN RANRNARAAAARNNARIAANRRANRAANRRIARNAANRANANRRANANAANRNRNRAAAN
NN RANR RN

170070
170064

104000

022777

104000

022777
001401
104000
004737

022626
000404
005077
004737

CLR

a SR
#T33STR,RETURN

;FORCE TO BE (SR #1
JREVISE SCOPE RETURN

8PL

a(SR
a(SR
.44

s CHECK ERROR BIT

(MP
BEQ

#200,aCSR
L+

MOV
MOV

(LR
TST

HLT

MLT
NPRRDY: MOV
MOV
CLR
MOV
MOV
MOV

170002

167774

1%:

CLR
MOV
BIS
(LR
INC

BNE

HLT
RESET

000005

001401

Yo Yo SV IV IV

SEQ 0068

LSBTTL TEST 55 TEST FOR 1 DAT] NON BURST MODE TRANSFER

104000

000424
004737
005777
001401

d
b
—d
—

ER
TEST 55 TEST FOR 1 DATI NON BURST MODE
TRANSF
CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

O%Ngbwof\)o&

Ao ot

— b
O
—
~
b —d
—ed wd
e
—
b
b
b el cd ——d
b
—d

b
b
el
b
—t

DRSS
a

OO0O0OOO0O0

b
D
b
——d

—d ——d —d —d
md emd

b
d
o

ed wd
)

2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217

red

2199
2200

2197
2198

—

2194
2195
2196

[eleleoleololololelele

21N
2192
2193

OO0 o

2188
2189
2190

AAL

PAGE 6"

010246

INTB:

167740

001151

052525

HLT

167730

167722

010156

#52525 ,NPR1

#INTB ,aDRINV

#5,aDRVS
aPSW
#110,aCSR
#401,aCSR
1842
"1
13

T33CLR

PC,ERPCHK

aw(R
.t

#NPR1+3,aBAR

BEQ
HLT
cMP

.44

HLT
JSR

T33(LR:

#-1,aWCR
#NPR1,@BAR
aBDR

BEG

010156
167700

BR
JSR
TST
BEQ

#1,CABLE

(LR
JSR

#52525 ,@BDR
44
PC ,NORMAL

(SP)+,(SP)+
TNPRO
a(SR
PC,NORMA(

JPRINT CABLE MESGE WITH ERROR PRINT

;1S IT CLEAR?
;JERROR SHOULD NOT BE SET
s CHECK READY

SOMETHING OTHER THAN READY ]S SET
JSET UP FOR 1 TRANSFER
s TRANSFER

FROM BUS ADDRESS

IN NPRI1

;GET READY TO RECEIVE DATA
;SET UP TRANSFER DATA
S INTERRUPT VECTOR TO INTR
; INTERRUPT PRIORITY TO LEVEL S
JLET THE DR11-W INTERRUPT
JNON BURST(FNCT3),IE
;CYCLE.GO
JWAIT

FOR NPR AND

INTERRUPT

;NO DR11-W INTERRUPT
;IF NO INTERRUPT,CLEAR ANY OUTSTANDING
;INTERRUPT REQUEST IN BOARD HDWR.
;CLEAR E
;CLEAR IE,CHECK FOR ERROR
JTEST WCR

;1S WCR EQUAL TO ZERO?
;WCR NOT EQUAL TO ZERO
;COMPARE CORRECT BAR WITH BAR
;CABLE MODE TESTING LEAVES BIT 0
;OF BAR SET.THEREFORE MUST
;CHECK FOR ODD ADDRESS
;1S THE BAR CORRE(CT?
;BAR IS WRONG
;CHECK FOR CORRECT DATA
;DATA GET TRANSFERRED’

;BAD DATA N BDR

JRESTORE STACK

;GO TO NEXT

;CLEAR IE

TEST

MACRO M111
24-SEP-79 10:39
(ZDRLAO-DR11W GEN NPR INTFC(
TEST 56 TEST FOR ° DATO NON BURST MODE TRANSFER

PAGE 62

6
SEQ 0069

LSBTTL TEST 56 TEST FOR 1 DATO NON BURST MODE TRANSFER

:"tttlttttt"fifi'fitt'.l!Q't"ttfi'fitttt.'tfi'.'tQ.'tttttttttt.t."".'Qt't'
.

[

TEST

56 TEST FOR

DATO NON BURST MODE

TRANSFER

CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

OoONOCONON
&~
[o ¥ N o]

e
G

NINIRDNL
NN AL NININININON) — —

D
d
d

Sunr Qoo G
o

D
D ah
d
d

anr Gaar Gunr Gunr G

D
D

par i

b id

[elelolololololololeolalolalalsle]

PrurSuur

'"tttt'.tlttt'tl"t"fi*t't"tQtfitttfifi.it!tfit'i'tt.ttt'lttt'tt"'ttt"'it

011310
011314
011316
011320

011326
011330
011332
011340
011342
011344
011350
011352
011354
011360

000004
005077
012777
012777
005037
012777
012777
013777
005077
012777
052777
005037
005227
001375

167666
177777

001146
001146
052525
011304
001074
167532
000112
000401
011272
000001

TNPRO:

167654
167650

167642
167700

MOV
MOV
MOV

167674

CLR

167612
167604
1%:

104000

000005

000424
004737
005777
001401

104000

022777

001401
104000

MOV
BIS
(LR

INC
BNE
HLT

aCSR
#-1,3W(R
#NPR1
, @BAR

NPR1
#52525,aBDR

#INTC,aDRINV

DRINL ,@DRVS
aPSwW
#112,a(SR
#4601 ,3CSR

18+2

n
1%

RESET

INTC:

010246
167550

001151

023727
001401

001146

004737
022626
000404
005077
004737

010156

104000

SCOPE
CLR
MOV
MOV
CLR

BR
JSR
TST

BEQ
HLT

167540

BEQ
HLT
(MP
8cQ
HLT
JSR
(MP

052525

T34CLR:

(LR
JSR

T34CLR

PC,ERR(CHK

aw(R
.+

#NPR1+3, aBAR

NPR1,452525
.+

PC NORMAL
(SP)+,(SP)+

137
a(SR

PC ,NORMAL

;FORCE TO BE CSR #1
JSET UP FOR 1 TRANSFER

; TRANSFER TO BUS ADDRESS

IN NPR1

;JGET READY TO RECEIVE DATA
;JSET UP TO TRANSFER DATA
JINTERRUPT VECTOR TO INT(
;INTERRUPT STATUS TO LEVEL DRINL
;PROC STATUS TO ZERO
;DATO(FNCT1) ,FNCT3,IE
;CYCLE,GO
JWAIT FOR NPR AND

INTER

;NO DR11-W INTERRUPT
;IF NO INTERRUPT,CLEAR ANY OUTSTANDING
;INTERRUPT REQUEST IN BOARD HDWR.
;CLEAR IE
;CLEAR [E,CHECK FOR ERROR
JTEST WCR
;IS WCR EQUAL TO ZERO?
;WCR EQUAL

TO ZERO

;COMPARE CORRECT BAR WITH BAR
;CABLE MODE TESTING LEAVES BIT O
;OF BAR SET.THEREFORE MUST
;CHECK FOR ODD ADDRESS
;1S THE BAR (ORRE(CT?
;BAR IS WRONG
;JCHECK FOR CORRECT DATA
;CORRECT DATA TRANSFERRED”
.BAD DATA
JRESTORE

STACK

;GO TO NEXT TEST
;CLEAR [E

CZDRLAQ-DR11w GEN NPR INTF(
MACRC M1111
24=SEP-79 10:39
TEST S§7 STRING OF 200 DATIS BURST MODE XFERS
2263
2265

000004

' R

2269 011366
2270 011372
2271 011400
2272 011404
2273 011412
2274 011416

005077
012737
004737
013737
005437
013777

167476
000200
007714
001156
001164
001164

2276 011432

012777

177777

2275 0114246

2277 011440

2278 011446

2279 011454
2280 011460
2281 011466
2282 011474
2283 011502
2284 011506

2285 011510

013777

001152

012777

011524

005077
012777
052777
012737
005337
001375

167322
000100
000401
001000
001312

013777

001074

2290 011524

(022626

2292 011532

022777 000177

2293 017540
2296 011542

(004737

ZTX22ZZ22EZX2 2SR RAZERRESASEAZ2EEZA RSS20 222022222RRRRRRRXRSRRRRR D)

1%7:

SCOPE

167440

CLR
MOV
JSR
MOV
NEG
MOV

aCSR
#200,BUFLEN
PC.,LODBUF
BUFLEN.WCLEN
WCLEN
WCLEN,aW(CR

;FORCE TO BE (SR #1
“LENGTH OF BUFFER=200
JLOAD THE BUFFER WITH INCREMENTING PATTERN
-PREPARE NUMBER FOR W(R
:2'S COMPLEMENT OF BUFLEN
JSET UP WCR

167432

MOV

#-1,a8DR

*MAINT AIDE

167464

MOV

DRINL ,aDRVS
aPSW
#100,aCSR
#401.aCSR
#1000, TIME
TIME
1%

001156
001164

167434

MOV

167470
167402
167374
001312

MOV

(LR
MOV
BIS
MQv
DEC
BNE

INBUF , @BAR

010156

011544

004737

010016

JSR

T137(HK:

167332

JMP

CMP

:SET UP BAR

#T37CHK,aDRINV : INT VECTOR

RESET

000137
001407
104000

CABLE MODE (W]TH WRAP ARODUND CABLE IN USER SLOTS)

HLT

000005

2291 011526

TEST 57 STRING OF 200 DATI'S BURST MODE XFERS

104000

2286 011512
2287
2288 011514

2289 011520

SEQ 0070

".'t.t.ttttfittttt.ttltttttttttt'.t"tttttttn!lttttttt't'.ttttt'tnnttt'ntt

2266

2268 011364

.SBTTL TEST 57 STRING OF 200 DATIS BURST MODE XFERS

226‘.

2267

PAGE 63

PC ,NORMAL

;INT VECTOR TO PRIORITY DRINL
JLET THE DR11-W INTERRUPT
CIE
SCYCLE.GO
;WAIT FOR INTERRUPT

;IF NO INTERRUPT,CLEAR ANY OUTSTANDING
*INTERRUPT REQUEST IN BOARD HDWR.

140

(SP)+,(SP)+

JSR

PC,INTA

:CLR ]E,CHECK ERROR,READY,W(C=0,E&BAR

BEQ
HLT

SIS 112
;BAD DATA N BDR

#177.380R

SCHECK THAT WORD #200 OF INBUF IS IN BAK

—

(ZCRLAQ-DR11w GEN NPR INTF(

MACRO M1111
24=~SEP=-79 10:39
XFERS

TEST 60 STRING OR 200 DATOS BURST MODE

PAGE 64

SEQ 0071

LSBTTL TEST 60 STRING OR 200 DATQOS BURST MODE XFERS

. "t'ttt.Qt"'tt'."'.ti.t"'.tltt'.ittttt.t't"..'t.tfi.'tt.tt!".'t..'.'

TEST 60 STRING OR 200 DATO'S BURST MODE XFERS
CABLE MODE (WITH WRAP AROUMD CABLE [N USER SLOTS?

'".tt.t't!.'t"tttt't.t'l"tti'fl..Q't..t"ifit.!ttt.Q.ltt'.t""'.'t"'t.

140:

011544
011546
011552
011560
011564
011572
011576
011604
011612
011620
011626
011634

001156
001164

011712

NEG
MoV

MOV
MOV
Mov
MOV

(LR

167222
167214

001312

011654
011662
011666
011670
011672

011674
011700
011704
011706

MOV

167260
167254
167252
167310
167304

011640
011646

SCOPE
CLR
MOV
JSR

MOV

1%:

BIS
MOV
DEC
BNE
HLT

aCSR
#200 ,BUF LEN
PC,LODBUF

BUFLEN,WCLEN
WCLEN
WCLEN. 3WCR

INBUF . @BAR

#52525,38DR

#TL0CHK
, @aDRINV
DRINL ,aDRVS
aPSwW
#102,aCSR
#401,aCSR
#1000, TIME
TIME
1%

010016
010209

T140(HK
;

JSR
JMP
C
JSR

JSR

JPREPARE

;2'S
LSET
JSET
;SET

P(C ,NORMAL

756
(SP)+,(SP)+

PC,INTA

PC,DATOCK

NUMBER

FOR W(R

COMPLEMENT OF BUFLEN
UP W(CR
UP BAR
UP BDR

JINTERRUPT VE(TOK
S INTERRUPT VECTOR

TO PRIOR!ITY DRINL

JLET THE DR11-Ww INTERRUPT
S1ELFNCT?
;CYCLE,GO

JWAIT FOR [NTERRUPT

s 1F

RESET

010156
011716

;FORCE TO BE (SR #1
JLENGTH OF BUFFER=200
JLOAD THE BUFFER WITH INCREMENTING PATTERN

NO INTERRUPT,CLEAR ANY OUTSTANDING

;INTERRUPT REQUEST IN BOARD HDwWR.

;CLEAR 1E,CHECK ERROR,READY.,.W( 0,K KAk
JCHECK [NBUF

(ZDRLAO-DR11w GEN NPR [NTF(
MACRO M1111
TEST 61 STRING OF 200 DATIS NON-BURST MODE
2327

2328

2329
2330

:
;

2331

2332 011716

2333 011720
233 011726

2335 011732

2336 011736
2337 011744

2338 011750

000004

167144
000200

013737
005437

001156
001164

001164

001152

167102

004737

013777

2342 012000
2343 012006

013777
005077

2344 012012

2345 012020
236 012026
237 012034
238 012040
2349 012042
2350 012044
2351

012777
012777

012777
052777
012737
005337
001375
104000
000005

2352 012046

004737

2354 012056

022626

2358 012074
2359 012076

001401
104000

2353 012052

2355 012060
2356 012064
2357 012066

156:

005077
012737

2339 011756

2340 011764
2341 011772

007714

167106

177777
012056

167100
167136

000110
000401
001000
001312

012100

004737
000240
022777

010016

000177

166776

AN R R R AN

RAN R AR RN AN C RN NN RNt PNy

R AN R

AR R NN

AR R AN RN AR AR R AN R RN

o(SR
#200,BUF LEN

;FORCE TO BE (SR #1
;LENGTH OF BUFFER=200

MOV
NEG

BUFLEN , WCLEN
WCLEN

;PREPARE NUMBER FOR W(R
;2'S COMPLEMENT OF BUTLEN

MOV

INBUF , aBAR

PC.,LODRUF

WCLEN,aw(CR

.SET-UP BAR

MOV
BIS
MOV
DFC

#110,a(SR
#401,aCSR
#1000, TIME
T ]ME

BNE
HLT
RESET

(MP

JSR
NOP
(M

BEQ
HLT

E AN,

JSET=-UP W(R

#-1,aB8DR
JMAINT AIDE
#T56CHK ,aDRINV ; INT VECTOR
DRINL ,@DRVS
aPSW

R NSRRI

;LOAD THE BUFFER WITH INCREMENTING PATTERN

MOV
MOV

JSR

TS6CHK:

A NN R R

(LR
MOV

MOV
(LR

167050

R R R AN R R AR R P RN NN AR

R AN R RN R RN AR P R AN

SCOPE

MOV

010156

000137

SEQ 0072

TEST 61 STRING OF 200 DATI'S NON-BURST MODE
CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

JSR

167132

167042
001312

PAGE 65

LSBTTL TEST 61 STRINC OF 200 DATIS NON-BURST MODE

R AN A R AR

001156

001164

001074
166770

24=SEP=-79 10:39

JINY VECTOR TO PRIORITY DRINL
JLET THE DR11-W INTERRUPT
JFNCT3,]E
;CYCLE,GO
JWAIT FOR INTERRUPT

PC ,NORMAL

JIF NO INTERRUPT ,(LEAR ANY OUTSTANDING
JINTERRUPT REQUEST IN BOARD HDWR.

157

(SP)+,(SP)+

PC,INTA

;CLEAR lE,CHECX ERROR,READY,W(C 0,8 BAR

8177 ,388DR

JCHECK THAT WORD #2000 OF

. %4

JIS IT?
JBAD DATA [N BDR

INBUF

[S [N BAK

MACRO M1111
(ZDRLAQO-DR11w GEN NPR INTF(
TEST 62 STRING OF 200 DATOS NON-BURST MODE

24=SEP=79
LSBTTL

2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374

10:39

[
PAGE 66

TEST 62 STRING OF

SEQ 0073
200 DATOS NON-BURST MODE

;;Q.t"'..'.tl.t.."Q'fifi..l'tfitt....'l.ttl..t.t't..t.tt.tt...t'tt.!.'.tt

TEST 62 STRING OF 200 DATO'S NON-BURST MODE
CABLE MODE (WITH WRAP AROUND CABLE I[N USER SLOTS)
;"t.t.lt.tit't..‘!fi.'t..Q'Qt.i..i't..ttitti.l.lt..t..tt..'.tttt'.'ittt'

000004

2375

2376
2377
2378
2379 012174
2380 012202
2381 012210
012216
012222
012224
012226
012230
012234
01223%
0122642
012244

005077
012737
004737
013737
005437
013777
013777
012777
012777
013777
005077
012777
052777
012737
005337
001375

166762

*67.

000200
007714
001156
001164
001164
001152
052525
012234
001074

001156

000162
000401
001000
201312

166666
166660

166606

166724
166720
166716
166754
166750

:FORCE TO BE CSR #1
"LENGTH OF BUFFER-200

MO\
NEG
MOV

BUFLEN.WCLEN
WCLEN
WCLEN, aWCR

:PREPARE NUMBER FOR W(R
12'S COMPLEMENT OF BUF
. EN
“SET UP WCR

MOV

#52525 . 38DR

MOV

1%:

010156
010016

010200

TS57CHK:

JLOAD THE BUFFER WITH INCREMENTING PATTERN

‘SET UP BAR

MOV

#TS7CHK,aCRINV

- INTERRUPT VECTOR

CLR
MOV
BIS

PSW
#102.3CSR
#401.9CSR

“LET THE DR11-w INTERRUPT
TENCTT,IE
*CYCLE.GO

DEC

TIME

MOV
BNE

HLT
RESET

000005

PC.,LODBUF

INBUF . @BAR

MOV

104000

004737
022626
004737
000240
004737

aCSR
#200,BUFLEN

JSR

0011¢€4

001312

SCOPE

CLR
MOV

DRINL ,@DRVS

#1000, TIME

*SET UP BDR

LINTERRUPT VECTOR

TO PRIORITY DRINI

IWAIT FOR INTERRUPT

:1F

INTERRUPT,CLEAR ANY OUTSTANDING

“INTERRUPT REQUEST IN BOARD HDwR.

JSR
MP

PC ,NORMAL
(SP)+, (SP)+
PC, INTA

:CLEAR

IE.CHECK ERROR,READY,W(

JSR

PC,DATOCK

;CHECK

[NBUF

égfi

0.% BAR

24=-SEP=-79 10:39

MACRO M1111
CZDRLAO-DR11Ww GEN NPR INTF(
TEST 63 DETERMINE N-CYCLE SWITCH SETTING
2394
2395
239>
2397
2398

:
:

SEQ 0074

LSBTTL TEST 63 DETERMINE N~CY(LE SWITCH SETTING

i3 22 2222232322322

PAGE 67

283832222222228222
22
RRRRRRRRRiRlRRR Rl SR

TEST 63 DETERMINE N=CYCLE

SWITCH SETTING

HAVE SWITCH FLIPPED AND WAIT UNTIL
THIS IS DONE FIRST PASS ONLY

IS DONE

.'"tt'.'tfit....'ttfi'fl't'."i'......i.fit..'fit.Qtfit..ttt-.!Q.'."'QQ...Q.Q.Q

012250
012256
012260
012264
012266
012272
012276
012304
012312
012314
012322
012326
012332
012406
012406
012414
012416
012422
012426
012430
012436
012440
012442
012446
012454
012460
012464

012540
012540
012546
012550
012554
012560
012562
012570
012572
012574

032737
001550
005737
001402
000137
005237
012777
032777
001055
012737
012705
1046401
000425

032777
001402
000137
005337
001367
012737
005305
001362
000137
012737
012705
104401

000425

032777
001002
000137
005337
001767
012737
005305
001362
000137

000001

001144

100020

166564
166556

077777
000100
012334

001312

000400

10%:

FLIP:

éigss:

000400

166454

012600
001312

20%:

001312

012314
077777

001312

012446

JMP
INC

166322

001312

JWERE

END
FLAG

JYES DONE THIS PASS
JSET FLAG FOR NEXT PASS

MOV
BIT
BNE

MIT15,8CSR
#]T8,aCSR
FLOP

MOV

#100,RS

MOV

TYPE
BR
JASCIZ

877777 ,TIME
,65%
643

<CRLF>/CHANGE

.NO

HERE BEFORE

;G0 TO EIR
;IS IT SET

JYES
;SET TIMER
;SET PRINT DELAY
:2TYPE ASCIZ STRING
::GET OVER THE ASCIZ

POSITION OF

N=CYCLE BURST

SwIT(H/

DEC
BNE

T IME
208

JCHECK FOR CHANGE
INOT YET
;DONE CONTINUE
;DEC TIMER
;CHECK AGAIN

DEC
BNE
JMP
MOV
MOV

RS
208
FLIP.
877777 ,71 I1ME
#100,RS

;DEC PRINT DELAY
;CHECK AGAIN
;TELL AGAIN TO FLIP SWITCH
;SET TIMER
JSET PRINT DELAY

B8R

648

;:GET OVER THE ASCIZ

408 :

BI7
BNE

M]IT8,8CSR
50%

JNOT YET

50%.

DEC

TIME

;DEC

JMP

MOV

FLOP:

TYPE

012600
001312

077777

108

FLAG

#3]78,aCSR
308

éi$55:

000400

8EQ

8IT
BEQ

308 :

077777

000100
012466

#8]170,B0RW
SWT1

TST

001200

013132
001200

BIT
BEQ

LASCIZ

JMP

BEQ

MOV

DEC
BNE
JMP

SwT1

#77777,7 IME

L65%

JRESET

TIMER

;s TYPE

ASCIZ

<CRLF>/CHANGE POSITION OF

SWT1

40%

877777.,7T 1M
RS
40%
FLOP

STRING

N-CYCLE BURST SWIT(H/

. CHECK FOR (MHANGE

;DONE CONT INUE
TIMER

;CHECK AGAIN

JRESET TIMER

;DEC PRINT DELAY
:CHECK AGAIN
JTELL AGAIN TO FLIP SWITCH

CZDRLAO-DR11wW GEN NPR INTF(
MACRO M1111 24-SEP-79 10:39 PAGE 68
TEST 64 STRING OF 200 DATIS BURST MODE XFERS (SWITCH FLIPPED)
2434

SEQ 0075

.SBTTL TEST 64 STRING OF 200 DATIS BURST MODE XFERS (SWITCH FLIPPED)

2‘035

.'"Qt'tt'tt.tt'ltt'tt*.'Qt"t'fi'tt'tt!ttQtittt.i.".t'ttfi't.tt.'t.tt'tt"

2‘.38

""t...t!i'lt'.'t.t'fi.'.lt'"tfifi'tfl'fifiitflfitfi.tfi..'ttfit.fl*"'!t."..lfl'.tt

2436
2637

2439 012600
2440 012602
2441 012606

000004
005077
012737

166262
000200

2643 012620
2644 012626
2445 012632
2646 012640

013737
005437
013777
013777

2648 012656
2649 012662
2450 012670
2451 012676
2452 012702
2453 012710

012777
013777
005077
012777
052777
012737

2454 012716
2455 012722
2456 012724
2457 012726
2458
2459 012730

2660 012734
2461 012740
2462 012742

2663 012746
2664 012754

2465 012756

012777

005337
001375
104000
000005

;FORCE TO BE (SR #1
:LENGTH OF BUFFER=200

001156
001164
001164
001152

001164

MOV
NEG
MOV
MOV

BUFLEN,WCLEN
WCLEN
WCLEN, aWCR
INBUF , @BAR

:PREPARE NUMBER FOR W(CR
12'S COMPLEMENT OF BUFLEN
*SET UP WCR
*SET UP BAR

012740
001074
166106
000100
000401
001000

166256
166250

MOV
MOV
(LR
MOV
BIS
MOV

#SWINT1,aDRINV
DRINL ,@DRVS
PSW
#100,aCSR
#401.aCSR
#1000, TIME

:INT VECTOR
*INT VECTOR TO PRIORITY DRINL
SLET THE DR11-W INTERRUPT
S1E
$CYCLE,GO
*WAIT FOR INTERRUPT

177777

001317

022777

000177

104000

SCOPE
CLR

aCSR
#200 ,BUF LEN

010156
012760

001401

SWwT1-

MOV

004737
000137
022626

004737

TEST 64 STRING OF 200 DATI'S BURST MODE XFERS (SWITCH FLIPPED)
CABLE MODE (WITH WRAP AROUND CABLE IN USER SLGTS)

001156

2462 012614 004737 007714

2647 012666

:
:

010016

JSR

166224
166220
166216

166166
166160
001312

MOV

1%:

DEC
BNE
HLT
RESET

JSR
JMP
SWINT1: (MP

166116

JSR

PC,LODBRUF

#-1,38DR

TIME
18

PC ,NORMAL
Swi2
(SP)+,(SP)+

PC, INTA

CMP

#177,38DR

ALT

)

BEQ

*LOAD THE BUFFER WITH INCREMENTING PATTERN

*MAINT AIDE

:1F NO INTERRUPT,CLEAR ANY OUTSTANDING
*INTERRUPT REQUEST IN BOARD HDWR.

;CLR 1E,CHECK ERROR,READY,w(=0,8BAR

*CHECK THAT WORD #200 OF INBUF IS IN BAK
IS 172

“BAD CATA IN BDR

L 6
MACRO M1111
24-SEP-79 10:39 PAGt €9
(ZDRLAO-DR1Tw GEN NPR INTF(
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)
2467
2668
2469
2670
2471
2472 012760
2473 012762
2474 012766
2475 012774
2476 013000
2477 013006
2478 013012
2479 013020
2480 013026
2481 013034
013042
013050
013054
013062
013070
2487 013076
2488 013102
2489 013104
2490 013106
249N

SEQ 0076

LSBTTL TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)

:;ttttttt!ttttttt'tttttQQttQfifi'ttttifififififi".ttttttt.t...tttt!t..t.t'.t't

TEST 65 STRING OR 200 DATO'S BURST MODE XFERS

166102

000200

007714
001156
0011€4
001164
001152
052525
013120
001074
165726
000102
000401

001500
001312

001156
001164
166044

SCOPE
CLR
MOV
J3R
MOV
NEG
MOV
MOV
MOV

166040
166036
166074
166070

MOV

CLR

166006
166000

001312

CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

2232333222343

SWT2:

1%:

MOV
BIS
MOV
DEC
BNE

2220322222220

aCSR

#200,BUF
LEN
PC ., L ODBUF

BUF LEN,WCLEN
WCLEN
WCLEN., aWCR
INBUF _ @BAR

#52525 , aBDR
#SWINT2, aDRINV
DRINL ,@DRVS
aPSW

#102.3CSR
#401.3CSR
#1000, TIME
TIME
1%

HLT
RESET

SWINT?:

(SWITCH FLIPPED)

JSR
JMP
cMP

JSR
JSR

PC ,NORMAL

2222222

2030328032

R2R2RRR22RRR

;FORCF TO BE CSR #1

JLENGTH OF BUFFER=200
;LOAD THE BUFFER WITH INCREMENTING PATTERN
;PREPARE NUMBER FOR W(R

;2'S COMPLEMENT OF BUFLEN
JSET UP WCR
;SET UP BAR

;SET UP BDR
s INTERRUPT VECTOR
s INTERRUPT VECTOR TO PRIGCRITY DRINL

JLET THE DR11-w INTERRUPT
JI1E,FNCTT
;CYCLE,GO
JWAIT

FOR

INTERRUPT

JIF NO INTERRUPT,CLEAR ANY OUTSTANDING
JINTERRUPT REQUEST IN BOARD HDWR.

END

(SP)+,(SP)+
PC.INTA

PC.DATOCK

;CLEAR E,CHECK ERROR,READY,W(-0,8 BAK
s CHECK INBUF

sTHIS ENDS CABLE

MODE

TESTING

(ZDRLAQ-DR11w GEN NPR INTF(

MACRO M1111

TEST 65 STRING OR 200 DATOS BURST MODE

XFERS

24-SEP-79 10:39

(SwITCH FLIPPED)

2501

RN AN

2502

2503

2506 013132

012737

2506 013144
2507 013146
2508 013152
2509 013156
2510 013160
2511 013164
2512 013172
2513 0131764
2514 013200
2515 013204
2516 013206
2517 013212
2518 013216
2519 013216
2520 013222
2521 013226
013232
2522 013234

100375
005277
005737
001402
005277
032737
001405
012702
004737
000404
012702
004737

2527
2528
2529
2530
2531

000240
000240
000240
062737
062737

2505 013140

2523
2524
2525
2526

013240
013244
013246
013250

013252
013254
013256
013260
013266

2532 013274
2533 013302
2534 013310
2535
2536

2537
2538
2539

2540
2541

105737

012702
004737
017746
104405
104401
013702
001405
000005
004712

062737
062737
000137

000207

177564

1/7566

END?

165642
001316
165632
000001

001314

2%:

014755
015372
014723
015372

1$:
END1:

014622
015372
165562
001354
000042

Q00002
000002
000002
000002
001604

R A AR
AR

END OF PASS

AR AR RN RN R RN

RN R

RN R R AN ARA AR

#207 a#177566

8PL
INC
TST
BEQ
INC
BIT
BEQ
MOV
JSR
B8R
MOV
JSR

.~
@PNTPAS
HLTDET
2%
@PNTERR
#1,CABLE
1%
#MANCBL ,R2
PC,TTOUT
END1
#MANT ,R2
PC,TTOUT

MOV
JSR
MOV
TYPDS
TYPE

N#SENPAS ,R2
PC,TTOUT
@PNTPAS , - (SP)

TSTR

NOP
NOP
NOP
NXTBRD: ADD
ADD
ADD
ADD
JMP

AN AR AR

MOV

MOV
BEQ
RESET
$ENDAD: JSR

001070
001012
001014
001016

RN AR A AR R

PAGL 7C

177564

. SENULL
amé2,R2
NXTBRD

SEQ 0077
RN A AR NN R A AR RN R AR AR R AR NN RN RN AR R R RN
R AR NN AR P AR AR R AN R RN R RN

;RING BELL

RN R AR RARRNA RO

s INCREMENT PASS (COUNT FOR THIS BOARD
;ERROR OCCUR THIS PASS?
:NO
JYES INCR. ERROR COUNT FOR THIS BRD.
JHAVE CABLE TESTS BEEN DONE?
;NO
JYES

;PRINT

'END PASS'

;. SAVE @PNTPAS FOR TYPEQUT
;.60 TYPE--DECIMAL ASCII WITH SIGN

PC., (R2)

#2 ,PNTRAD
#2 ,PNTVAD
#2 ,PNTPAS
#2 PNTERR
BEGIN

AN O RN

JPOINT TO NEXT BOARD FOR NEXT PASS

N 6
24~SEP-79 10:39 PAGE 71
MACRO M1111
(ZDRLAQ-DR11w GEN NPR INTF(
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)

2543
2544
2545
25646
2547 013314
2548 013322
2549 013324
2550 013332
2551 013336
2552 013342
2553 013346
2554 013352
2555 013356
2556 013360
2557 013364

SEQ 0078

.'".tfifitti'it."".tfi'fi".ttfittiili'tfiti'ttt.ttt!tttttttt'ttt'tt'tt.t.tt'

ENTERED WITH SYSTEM TRAP CALL(HLT)

PRINT OUT

THE ERROR PC AND STATUS REGISTER

S22 222222223222323232232282222022223
822322 2 R0 2Rt
RRdRRRRRRRRRRRsR ARl

032777
001422
017737
013701
062701
142701
017705
105737

000001

165546

165540

001142

001070
000001
000200
165516
001143

béINT:

013374
165474
000001
014144

2559 013374
2560 013402
2561 013406

165714

2562 013414

10%:

20%:

013770
013772

2563 013416

165540

000212

165524

165516

013762
013764
013766
001351
000001

8IS
JMP
MOV
MOV
JSR

MOV
CMP
MOV

1STR

BPL
MOV
TSTR
B8PL

#200,R1

#1 HLTDET
PC,CKSWR

?iUR.IZOOOO

(SP) +,SAVP(
(SP)+,SAV(CC
-(SP) ,-(SP)
#215,3TPB
aTPS
.~4
#212,3TPB
aTPS
.~4
R2.,SAVR?

R3,SAVR3

R&,SAVRS

.SCRLF
#3]170,B0RW

001144

015163
001351
001320

15%:

MSG7
.SCRLF

TESTNO,=(SP)

- SENULL

165430

260,87P8
SAVP(,~(SP)

165410

#240,3TP8
aTPS
=4
SAVCC,=(SP)

001354
000240
165402

013746

013772

012777

001354
000240

165362

#240,37P8
31PS

012737

013650

000004

#38 ,BUSERR
R5,=(SP)

104402
104401

105777
100375

010546

165354

;R1 NOW HAS ADD OF UPPER BYTE
JRETURN TO CSR M1

;SAVE (SR IN RS

sTEST FOR ANY ERROR

;NO ERROR BIT(S) SET
JERROR WAS SE1 - RESTORE IT7
s CONT INUE
;SAVE (SR IN RS
;SAYS ERROR OCCURRED THIS PASS
JTEST FOR INHIBIT PRINT OUT
;IF SO, BRANCH OVER PRINT
;PC OF FAILING ROUTINE
2CC OF ERROR CONDITION
:?SPOSITION THE STACK

JLINE FEED
:SAVE R2

;SAVE R3
:SAVE R4

25%

012777
105777
100375

JCHECK WHICH CSR
;WE ARE IN CSR #1
;SAVE (SR #2
;ADDRESS OF CSR INTO R1

15%
.MSG4

015014

013770

a(CSR,R5
EIR+1
20%
#31T15,RS
203
aCSR,R5

MOV

000215
165532

C(SR,R1

MoV
TSTR

BIT
BNE

020000

a(SR,EIR
#1,R1

BEQ

001316

#170,aCSR
108

ADD

BICB

100000

2558 013370

BIT
BEQ
MoV
MOV

. SENULL

.SENULL
=4

;2SAVE TESTNO FOR TYPEOUT
;.G0 TYPE--OCTAL ASCIIC(ALL DIGITS)

2 2SAVE SAVP(C FOR TYPEOQUT
260 TYPE-=OCTAL ASCII(ALL DIGITS)
;SPACE BETWEEN WORDS

;:SAVE SAVCC FOR TYPEQUT

;:G0 TYPE--OCTAL ASCIICALL DIGITS)

JPRINT

SPACE

JPRINTER DONE
JBRANCH WHEN NOT DONE

*:SAVE RS FOR TYREQUT

MACRO M1111 24=-SEP-79 10:39 PAGE 91-1

(ZDORLAQ-DR11w GEN NPR [NTF(
TEST 65 STRING OR 200 DATOS BURST MODE

013632
2597 013634
2598 013640
2599 013646
2600 013650
2601 013652
013660
013662
013664
013670
013672
013676
013702
013706
013712
013716
013722
013726
013730
013732
013740
013742
013744
013752
013754

2628

013760
013762
013764
013766
013770
013772

104402
104401

012737

001354
000006

00000«

012737

000006

000004

000405
022626
000401
00024C

XFERS

TYPOC
TYPE

MOV

38:
6%:

005737

001314

104401
104401

015057
015131
013762
013764
013766

e ¥

165400

1%:

001404

013702
013703
013704
004737
005777
100001

000000
023737
001001
000000
037727
001402
000137

SEQ 0079

(SWITCH FLIPPED)

5%:

SENULL

;.60 TYPE==OCTAL ASCII(ALL DIGITS)

#6 ,BUSERR

(SP)+,(SP)+
#6 ,BUSERR

CABLE

.MSG5
MSG6

JPRINT (CABLE MSSGE?

:NO

SAVR? ,R?

SAVR3,R3
SAVR4 R4

014144

PC,CKSWR

JCHECK SR FOR HALT

;ARE WE IN ACT1Y AUTO MODE?
;BRANCH ON NO
JHALT ON ERROR IF IN ACT11 AUTO MODE
;GO TO NEXT BOARD?
JIF NO,CONTINUE THIS BOARD

000042

000046

, N6
NGl
.+

165356

000400

dSWR ,#400
CONTIN
END

013132
CONTIN:
SAVR?:

SAVR3:

:
SAVRG
:
SAVP(
SAV(C(:

SWIT(CH

aSWR
A

JHALT ON ERROR UP

[N SWR

CZDRLAQ=DR11W GEN NPR INTF(

MACRO M1111

TEST 65 STRING OR 200 DATOS BURST MODE

2630
2631
2632
2633
2634
2635 013774
2636 0146000
2637 014006
2638 014010
2639 014014
2640 0146016
2641 014020
2642 014024

XFERS

24=-SEP=-79 10:39

(SWITCH FLIPPED)

{

PAGE 7?2

SEQ 0080

;'-t..'tttt't'ttttttt'fi"ttttttttt'ttttnnntttt.tttt'tt--.-ttnnnfint.tt-tto

SCOPE LOCP ROUTINE ENTERED BY UStR TRAP
""..'.Q."'Q“'.....".l..'..fii.fi.tt.fill'.'."'.'t.'tt.'Q.t'.l."'t..'tt

004737
032777
001003
011637
022606
012677
000177

014144
040000

165320

SCOPEA:

014126
164756
000076

SCOPEB:

JSR
BIT
BNE

MOV
RTI
(MP

MOV

JMP

P(C,CKSWR

#40000,aSwR
SCOPEB
aSP,RETURN
(SP)+ ,SP
(SP)+ ,aPSW

aRE TURN

JSCOPE, BIT

|S A ONE

JNO - SAVE P(

FOR NEXT

JRETURN [N SEQUENCE
JREPOSITION THE STA(K

;SCOPE RETURN

TIME

D7
24-SEP-79 10:39 PAGE 73
TEST 65 STRING OR 200 DAT(QS BURST MODE XFERS (SWITCH FLIPPED)
C(ZDRLAQ-DR11wW GEN NPR

[NTF(

MACRO M1111

SEQ 0081

:;'.t'.'.t't.'.'.".tt.'t".t'ttt...t'tt't..t"tt'tfi'tt't.QQ'Q..Q.‘tt."

SCOPE OR/AND ITERATION LOOP HOR EACH TEST 4000 TIMES

:;Q'.'Q"Q'.'ttt.'t.fit'.'.'Q'.'..itt'lt'l.t't.tt.t't'.'tt.tt't.tttt'tt!t

014030
014034
014042
014044
014050
014052
014056
014064
014066
014074
014076
014102
014104
014110
014114
014120
014122
2667 0146124
2668 014126
2669
2670 014130
2671

016144
040000

165264

164744

014144
004000

165242

014124

014122

014124
014124
014126
001320

SCOPEC:

JSR
BIT
BNE
TST
BEQ
JSR
BIT
BNE
(MP
BEQ
INC
BR
SCOPEG: CLR
MOV
INC
RT]

PC,CKSWR

#60000,aSwR
SCOPEB
aPNTPAS
SCOPEG

PC,CKSWR
#4000, aSwR
SCOPEG
I COUNT
SCO,PEF

SCOPEG
SCOPEF
SCOPER

SCOPEF
aSP
,RE TURN
TESTNO

: 4000
TCOUNT
: 0
ST OPEF

RETURN:

000200

BEGIN
.FVEN
JMP

;TEST SR FOR
;YES SCOPE
JFIRST aPASS

JBR

YES,

SCOPE

(@PASCNT-0)

INHIBIT

ITERATIONS

;TEST FOR ITERATION
JINHIBIT ITERATION

JEXIT - DONE
J INCREMENT COUNT
;LOOF SOME MORE
;CLEAR COUNT

. SAVE SCOPE RETURN POINTER
JRETURN

INLINE-NEXT

TEST

JCOUNT LOCATION FOR ITERATION LOOP
;ADDRESS OF LAST TEST
200

24=-SEP-79 10:39 PAGE 74
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)
CZDRLAQ~DR11w GEN NPR

2673
2674
2675
2676
2677

[NTF(

MACRO M1111

SEQ 0082

:;t'fi'l'.'..".fi*fi.fittfi.i'tfitfit't..Qt'tt!tfii.t'tt'tfi'it.'!"tttttt.ltt.'

CHECK SWITCH REGISTER ROUTINE.

(HECKS FOR “G TO ALLOW CHANGING

OF LOC.

176

TEMPST:
COUNT:

RDSW:
1.

.WORD
.WORD
.WORD
WORD

TSTB
BPL
MOV

aTKS
ouT
aTkB,TIB

JYES,WAIT FOR

eV7))

;1F AUTO MODE ,DON'T (HE(K

(MP

#23.T1B

:;.""'.Q."..fi."".t"t"...fifi".!t'ttt'fit.l!tt.t..'.t".t'.'....t"t

014134
014136
0146140

014142

014144
014150
014152
014160
014166
0146172
014174
014202
014204
014210
014214
014220
014226

014230
014236
014240
014244
014250

014254
014260
014264

014266
014272
014276
014302
014306
014312
014320
014324

14332
014340
014342
014344
014352
014354
014360
014364
014372
014374
014376
014404
014406
014414

014416
014422
014426

000000
000000
000000
000000
105777
100152

017737
042737
005737
001012
022737
001006
012702
004737
000137
022737
001123
022737
001117
012702
004737

165020
165014

177600

000042

(KSWR:

014142
014142

000023

014142

014560
015372
021230
000176

001326

0000C7

014142

014552
015372
014573
015372
16504¢

001354
014603
015372
014134
014134
000007
014500
177600
000025

BNE

1%:

014142

014142
014142

014567
015372
000007

014136

000060

0164142

000067

076142

38
2%:

8% :
4$:

5§

GET

(HARA(CTER

JAND STRIP OFF
; THE GARBAGt
JFOR CNTRL S
sNOT

#7.118

JIS 1T A <*G6>

MOV
JSR
MOV
JSR

#$CNTG,R2
PC.TTOUT
#OUTSWR,R2
PC.TTOUT

TYPOC
TYPE

$SREAD:

#177600, 718

JREADY,

1%
#$CNTS R
PC.TTOUT
RUNSUM
#SWREG, SWR
ouT

MOV

014136

O
0

BNE
MOV
JSR
JMP
TMP
BNE
BNL

CNTLU:

000015

014614
015372

BIC

0
O

out

aSWR,~(SP)
LSENULL

MOV

#INNEW,R2

MOV

#7.COUNT

BIC

#177600,718

JSR
CLR
(LR
JSR

(MR
BNE
8R
(M8
BNE
MOV
JSR
P
BNE

CNTRL

;LEAVE PROGRAM AND PRINT RUN SUMMARY
;SOFTW.

SWITCH REG PRESENT?

;;SAVE aSWR FOR TYPEOUT
;.60 TYPE--OCTAL ASCIICALL DIGITS)

PC.TTOUT
aNTEMPST
TEMPST
PC.TTIN

#25,TIR
28
ENTLU
#15,TIB
43
#CARLF ,R2
PC,TTOUT

;GO0 READ A CHARA(CTER
;STRIP OFF GARBAGE
JIS IT A *U?
JBRANCH IF NOT
;START OVER
JIS IT A <CR>?

:BRANCH IF NOT

JWAS

CMPB
BGE

#7.COUNT
78
ouT
#60,TIR
5¢
#67.TI8
6$

B8R

;START OVER IF NOT LEGAL

B8R
(M8
8GT
MOV
JSR

#$QUEST ,R2
pC.TTOUT

IT FIRST (HARACTER

;CHANGE SWR [F NOT FIRST ONE
;GET our

(HARA(TER

MACRO M1111
24=-SEP-79 10:39 PAGE 74-1
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)
(ZDRLAO=-DR11w GEN NPR INTF(

2729 014430
2730 014434
2731 (14440
2732 014444
2733 014452
273 014460
2735 014464
2736 016466
2737 014470
2738 014476

006337
006337
006337
142737

153737

005337
001754
000714

013777

000207

014134
014134
014134
000060
014142
014136
01413

6$:

014142
014134

164630

ASL
ASL
ASL

8I(B
BIS8
DEC
r$:
ouT:

TEMPST
TEMPS]
TEMPST
#60,718B
TIB, TEMPST

COUNT
5%

1%
TEMPST ,aSwR
PC

SEQ 0083

JGET NITVYY-GRITTY
JONLY WANTM 6

DIGITS

JCHANGE SWITCH REGISTER (ONTENTS
JRETURN

TO PROGRAM

MACRO M1111
264=-SEP=79 10:39
(ZDRLAQ~DR11W GEN NPR INTF(
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)

6 7
PAGE 75

SEQ 0084

:;'..'....QI..'Q'.'.QQ.""‘..Q.‘...tt"'t.'Q..t....t‘.'.".'...l."t.lt
.

TTY

SUBROUTINE#»aanannnxn

READ

;;".‘Q.'.'Q.!Q."'t"fit..'..""t...'.i‘Q..Q'"Q.'.t..t...'.t.'...".'.

014500
014504
014510
014514
014520
014524
014526

005077
005077
005037
005277

014540
014542

100375

TTINT:

164444

105777

164440
164434

014142

113777

014142

164426

136

046
137
040

107
000
136
046

$CNTG.

040
123
075
000

TTINI

1ST8

alPS

Mov8

TIB,aTP8

8PL

TTIN2

ASCIZ

7 _*S &/

046

:
CARLF

LASCIZ

*'_

127
040

OUTSWR:

LASCIZ

'_SWR= @'

116

INNEW:

ASCIZ

$QUEST:

ASCIZ

'_2 R

SENPAS:

LASCIZ

* _END PASS

$STITLE:

LASCIZ

'_ CZDRL-DRY1W GEN NPR INTF(C LOGIC

MANT:

LASCI1Z

/_TEST MODE: MAINT ONLY

075

000
040
000
040
104
101
040
043
0%0

103
122

NOWIWNWONIO
N
O

b
b
ad
D

bo§w

061

alkB,TIB

SCNTS:

046
040
105
040
137
137
040
105
040
13

MOV

BPL

—

122

alksS

aTkB
TI8
aTksS
aTKS

LASCIZ

'_%6 &'

NEw- &'

?OO —'O—‘N? 383

137
000
137

TTING:

CLR

CLR
(LR
INC
1ST8B

RTS

—

040
040
123
000

—DO00O

137

8?&“»4?2

000207

Q-

014726

017737

164450

PN
— —
(@R o SR
o

014550
014552
014555
014560
014563
014566
014567
014572
014573
014576
014601
2762 014603
014606
014611
2763 014614
014617
2764 014622
014625
014630
014633
014636
014641
014644
2765 014646
014651
014654
014657
014662
014665
014670
014673
014676
014701
014704
014707
014712
014715
014720
2766 014723

100375

TTIN:

014142

Qbbb
—d 2 —b

014534

105777

164464
1646462

TEST

CZDRLAQ-DR11w GEN NPR INTF(
MAECRO M1117
24=SEP=79 10:39 PAGE 75-1
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)
014731
014734
014737

115
105
15

014745
014750
014753

117
131
046

014760

105

014742
2767 014755

117
072
101

124

015

012

116
040
000

104
040
11°

040
114
040

124

123

124

104
040
111
040
104

105
115
116
101
040

072
101
124
116
103

015010
015013

105
000

015

012

015022

049

105
116

040

123
117

915030

103

040

104

122

06?

014763

014766
014771
014774
014777
015002

015005

2768 015014
015017
015025

040

101

124
124
122

015033
015036

120
040

015044
015047
015052
015055

1
123
124
040

015062
015065
015070
015073
015076
015101
015104
015107

122
122
040
040
122
122
116
103

015041

¢769 015057

015112
015115
015120
075123
015126

2770 015131

015134
015137
015142

015145
015150
015153
015156
015161
2771 015163
015166
015171
015174

115

102

122

123
040
127
124
125
000

015

012

114
115
105
105
015

105
117
040
123
012

122
101
105

040
102
040

125

110
114
102
m
012
015
105
116
04C

.ASCIZ<15><12>/TEST MODE: MAINT AND CABLF/<15><12>

MSG4:

.ASCIZ

114

/TESINO

ERRF(

PSW

DR11w STATUS /

105

120

127
040
040
101
123

120

107
135
123
105
117
111
040
102

"23

105

MANCBL:

117

117
101
1M
120
106
115
107
101

117
104
105
116
000
012
123
117

SEQ 0085

040
104
124
124
000

103
114
123

MSG5:

.ASCIZ <15><12>/PROGRAM S PERFORMING CABLE MODE TEST/<15><12>

MSG6:

.ASCIZ /USER CABLE SHOULD BE IN/<15><12>

MSG7:

_ASCIZ <15><12>/TESTNO

125
040
040
015

126
124
040
*22

ERRPC

PSW

DR118 STATUS/<15><12>

(ZDRLAQ-DR11w GEN NPR [NTF(

MACRO M1111 24=SEP=79 10:39 PAGE ;5-2

TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWIT(H FLIPPED)
015177
015202
15205
015210
015213
015216
015221
015224
015227

122
040
123
040
061
040
101
123
000

120
040
127
104
061
123
124
015

103
120
040
122
102
124
125
012

015233
015236
015241
015244
015247
015252
015255
015260
015263
015266

015

1M
116
124
040
123
116
117
104
061
116

012

106

04C

101
117
111
124
124
107
106
122
102
117

040
117
105
015

111

107
123
103
105
m
040
040
061
040
127

120
107
123
012

122
122
123
000

m
116

103
117

107
123

277 015230

015271

015274
015277
015302
015305

2773 015310

015313
015316

012

015321
015324
015327
015332

124
040
123
116

1
124
124
107

015354
015357
015362
015365

040
117
105
015

120
107
123
012

015335
015340
015343
015346
015351

2774
2775
2776
S;;g 015370
2’79

015

117
104
061
116
040

000000

106
122
127
117
11

SEQ 0086

MSGB:

.ASCIZ <15><12>/DJAGNOSTIC TESTING OF DR118 NOW IN PROGRESS/<15><12>

MSGY:

.ASCIZ <15><12>/DIAGNOSTJC TESTING OF DR11w NOW IN PROGRESS/<15><12>

116

106

103
105
111
040

040
061
040
127
116

122
122
123
000

.EVEN
OfL:

JFIRST (HAR FLAG

7
J
MACRO M1111
24-SEP-79 10:39 PAGE 76
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)
(ZDRLAQ~DR11wW GEN NPR [NTF(

2781
2782
2783

SEQ 0087

,-,-tn.t'tt'n'Q't'ttttttntttt'tttttttn'.'ttn..ntntntttt.'tnt.ttttntnfitnttn

TTY ASCI]

OUTPUT

ROUTINE

""lt'.....t.'.fi..!.'t'..t.t'..'i"'t.Q.t.'fifit.t!'t.it'.ttt'ti.t.t.......

2784
2785
2786 015372
2787 015374
2788 015376
2789 015402
2790 015404
27N 0154612
2792 015414
2793 015416
015422
015424
015430
015432
015436
015440
015444
015446
015450
015654
015460
015462
015466
015470

105712

TTOUT:

000046
000100

000137

163562

1$:

EMPTY:

000041
163536

1%:

163532

075470

.RET:

021402

.REST:

012

RETR:

1S78

BEQ

CMP8
BNE
8I(

CLR

RTS

(MPS

BEQ

(R2)
bR
#'L,(R2)
.EMPTY
#100,aTPS
R2
PC
#' ,(R2)

.RET

CMPS
BEQ
1STR
8PL
MOVB
BR
INC
MOV
MOV
BR
MOV
BR

#' . . (R2)

BYTE
.EVEN

15,12,°

.REST
8TPS
1%

JCHECK FOR NULL (HARA(CTER
J1F NOT, TYPE THE (HARA(TER
JCHECK FOR TERMINATOR
;CLEAR POINTER TO (HARA(TER

;RETURN

;CRLF (HAR?

JCHECK FOR RETURN “ERMINATOR

(R2)+,aTPB

s TYPE

R
RZ2..SAV
#.RETR,R2

;SET UP NEW POINTER

(HARA(TER

T70UT

.RET=6
.SAV,R2

TTO0UT

(ZDRLAO-DR11w GEN NPR INTF(

MACRO M1111

24=SEP=79 10:39

281

K_7

PAGF 77

SEG 0088

LSBTTL

2812
2813

.SBTTL
SYSMA(C ROUTINES
TYPE ROUTINE

.SBTTL

""'tttt'tttttt.t.ttlfififit'tfittl.tt'fittt.tttttttlt.ttttttt.t..ttt't

;*ROUTINE
;*THE

TO TYPE ASCJZ MESSAGE. MESSAGE MUST

ROUTINE

WILL

:«NOTE1:
;*NOTEZ:

INSERT A NUMBER OF

NULL

TERMINATE WITH A O BYTE.

CHARA(CTERS AFTER A LINE

FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE fILLER (HARA(TER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

;*«NOTEZ:

$FILLC CONTAINS THE (HARACTER TO FILL AFTER.

;xCAlL:
;*1) USING A
I
TYPE
;*0OR

I
e

TRAP

INSTRUCTION

.MESADR

;MESADR

IS FIRST ADDRESS OF

TSIR
BPI
HALT

$TPFLG
1%

;:1S THERE A TERMINAL?
;J:BR IF YES
J:HALT HERE IF NO TERMINAL

MOV

82 (SP) RO

AN AS(CIZ

STRING

TYPE
ME SADR

015474
015500
015502

015506
015506

015510

015514
015516
015520
015522
015524
015530
015532
015536
015540
015544

105737
100002
000000

000407
010046
017600

112046
001005
005726
012600
062716
000002
122716
001430
122716

001006

015546
015550
015552
015554
015560
015562
015566
015572
015574

005726
104401
001351
105037
000755
004737
123726
001350
013746

015600
015604
015606
015612

105366
002770
004737
105337

015616

000770

015620
015624

112716
004737

015636
015640
015642
015644
015650

001372
005726
000724
105777
100375

015630

132737

001343

$TYPE:

1%:

000002

2%:

000002

60%:
3%:

00001

A ¥

000200

015644
001342

5¢:
6%:

001340

000001

7%:

015644
015710

000007

163464

3%
RO,=-(SP)

MOVB
BNE
TST
MOV
ADD
RT]
(MPR
BEQ
CMPB

(RO)+,-(SP)
43
{SP)+
(SP)+ RO
#2,(SP)

TST
TYPE
$CRLF
(LRB
BR
JSR
(MPR
BNE
MOV

(SP)+

JJPOP
<CR><LF> EQUIV
J:TYPE A CR AND LF

$CHARCNT
g 3
PC,STYPEC
$FILLC,(SP)+
’$
$NULL ,=(SP)

;;CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
;G0 TYPE TH!S CHARACTER
;1S 1T TIME FOR FIL_ER {HARS.?
JoIF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED

DE(R
8LT
JSR
DECB

1(SP)
63
PC,STYPEC
$CHARCNT

::DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF
;:G0 TYPE A NULL
;DO NOT COUNT AS A COUNT

BNE

015710

000040
015644

B8R
MOV

B8R

015710

#HT, (SP)
8%
#CRLF, (SP)
5%

;HOR]ZONTAL TAB PROCESSOR
8%:
MOVR
' ,(SP)
9%:
JSR
PC.STYPEC

BITR

BNE
TST
BR
$TYPEC: TSTR
8PL

#7 ,$SCHAR(CNT
9%
(SP) +
P
a%'PS
$TYPE(

.. LEAVE
;;SAVE RO

;2GET ADDRESS OF ASCIZ STRING

::PUSH CHARACTER TO BE TYPED ONTO STACK
J:BR IF IT ISN'T THE TERMINATOR
;:IF TERMINATOR POP IT OFF THE STACK
;JRESTORE RO
;:ADJUST RETURN P(C
: ;RETURN
;:BRANCH IF <HT>
;;BRANCH JF NOT <CRLF>

;:AND

THE NULL

CHAR.

;. LOO0P

;;REPLACE TAB WITH SPACE
:;TYPE A SPACE

;JBRANCH IF NOT AT

;. TAB STOP
. .POP SPACE OFF STA(K
D2GET NEXT CHARA(CTER
J:WAIT UNTIL PRINTER IS READY

STA(K

(ZDRLAO-DR11w GEN NPR INTF(

TYPE

MACRO M1111

ROUTINE

01565¢
015660
015666
015670
015674
015676
015704
015706
015710
015712

116677

000002
000015

24=SEP-79 10:39

2(SP) ,a$TPR

163456
060002

#CR,2(SP)
19

015710
000012

900002

1$:
INCB
$(HARCNT
: . WCRD
$TYPEX: RTS

$CHARCNT
$TYPEX
#LF ,2(SP)
$TYPEX
(PC)+

L_7

PAGE 77-1

SEQ 0089

;;LOAD (HAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRJAGE RETURN?
;:BRANCH ]1F NO
:;gE?;—CLEAR CHARA(CTZR (OUNT
.

;2 1S CHARACTER A LINE FEED?
;BRANCH [F

YES

;sCOUNT THE CHARACTER
;s sCHARACTER COUNT STORAGE

MACRO M1111
(ZDRLAQO=DR11w GEN NPR INTF(
BINARY TO OCTAL (ASCI1) AND TYPE

2815

24=SEP=-79 10:39

LSBTTL

PAGE 78

BINARY TO OCTAL

(ASCil)

SEQ 0090
AND TYPE

231232223 2323232222322222228R2222R2RR2RR2RRRRERRRERRRRRRRRARNE

SoTH]S ROUTINE

$*OCTAL

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT

(ASCIT) NUMBER AND TYPE

[T.

:+$TYPOS-~-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

c*(CALL:
s
MOV
s
TYPQS
i
.BYTE

.BYTE

NUM, - (SP)
N

;:NUMBER TO BE TYPED

;oCALL FOR TYPEQUT
J:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

;:M-1 0RO

;.1-TYPE LEADING ZEROS
;. G=SUPPRESS LEADING ZEROS

"
.'

;*STYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
1e$TYPOS OR $TYPO(

JoCALL:
.

MmOV

TYPON

NUM, = (SP)

;JNUMBER TO BE TYPED
;;CALL FOR TYPEOUT

S e$TYPOC-~-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
JeCALL:

000000
000001
016141
000002
000001
000006
000005

.
L

016137

MOV
TYPO(

$TYPOS: MOV

016137
016141
076136

NUM,-(SP)
a(SP) ,~(SP)

1(SP) ,$0F ILL
(SP)+ ,SOMODE+1
#2,(SP)
$STYPON
#1,80F]LL

#6,30MODE +1
#5,80CNT

R3,-(SP)
R4 ,-(SP)

RS,-(SP)
$SOMODE +1,R4

016141

#6 R4

00000¢
016140
016137
000012

016140

052703

1%:

ROL

2%:

ROL

THE

ZERO FILL

SWITCH

J:SET

THE

ITERATION COUNT

J3SET FOR SIX(6) DIGITS
;. SAVE R3
; :SAVE R4

;;SAVE RS
;:GET THE NUMBER OF DIGITS 10O TYPE
JISUBTRACT

FOR MAX.

ALLOWED

;:ROTATE MS8 INTO ‘°'C*'
;G0 DO MSB

$OMODE

;:TYPE THIS DIGIT?

RS
RS
RS
RS.R3
R3

000060
000040

BIS

JISET

RS
33

R4
5%
R4
#'0,R3
#' ,R3

5%:

;:LOAD ZERO FILL SWITCH
;.NUMBER OF DIGITS TO TYPE
;2ADJUST RETURN ADDRESS

;:SAVE IT FOR USE
JJGET THE ZERO FILL SWITCH
;;PICKUP THE INPUT NUMBER

7%
#177770,R3

INC

JIPICKUP THE MODE

R& ,$OMODE
$OF ILL RS
12(SP) ,RS

177770

6%:

JJNUMBER TO BE TYPED
;:CALL FOR TYPEOUT

;CLEAR THE OUTPUT WORD

;:FORM THIS DIGIT

;:GET LSB OF

THIS DIGIT

;:BR IF NO
J;GET RID OF

JUNK

;TEST FOR O

:;SUPPRESS THIS 0?
;:BR IF YES
:;DON'T SUPPRESS ANYMORE ('S
J:MAKE THIS DIGIT AS(CII
J;MAKE ASCII IF NOT ALREADY

BINARY

TO OCTAL

016070
016074
016100
016104
016106
016110
016112
016114
016116
016120
016122
016130
016132
016134
016135
016136
016137
016140

(ASCII1)

AND

110337

016134
016134
016136

104401
105337

003347
002402
005204
000744
012605
012604
012603

016666
012616
000002
000
000
000
000
000000

TYPE

MACRO M1111

24=-SEP-79 10:39
MOvB

7%:

6%:

000002

000004
8%:
$OCNT:
$OF JLL:
:
$OMODE

TYPE

DECB
BGT
BLT
INC
B8R
MOV

MoV
MOV
MOV
MOV
RTI

.BYTE
.BYTE
.BYTE
.BYTE
.WORD

PAGE 78-1

R3,8%
I

$OCNT
2%
63

Ré

2%
(SP)+,RS

(SP)+ R4

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

OQOOOOO

(ZDRLAO-DR11W GEN NPR INTF(

SEQ 0091

;. :SAVE FOR TYPING
;G0 TYPE THIS DIGIT
.. COUNT BY 1
;.BR IF MORE TO DO
;.BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
2.G0 DO THE LAST DIGIT
;sRESTORE RS
;sRESTORE R4
;;RESTORE R3
;;SET THE STACK FOR RETURNING
;JRETURN

;;STORAGE FOR ASCII DIGIT
;s TERMINATOR FOR TYPE ROUTINE
;:0CTAL DIGIT COUNTER
;. ZERO FILL SWITCH
;;NUMBER OF

DIGITS

TO TYPE

C(ZDRLAQ-DR11w GEN NPR NTF(
MACRO M1111
(ONVERYT BINARY TO DECIMAL AND TYPE ROUTINE
2817

24-SEP-79 1C:39

.SBTTL

PAGE 79

SEQ 0092

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

23323323222333233223328223242322282822323323232232332222223222R2R0223%:3]

*+THIS ROUTINE {S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
*~SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

*~NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
:*BEFORE THE FIRST DIGIT OF

**REPLACED WITH SPACES.

;*CALL:

016142

016142
016144
016146
016150
016152
016154
016160

016164
016166
016170
016176
016200

016204

010046
010146
010246
010346
010546
012746
016605

100004
005405
112766
005000
012703

112723

016210
016212
016216

005002
016001
160105

016222

005202

016226

060105

$TYPDS:

020200
000020
000055

000001

016356

000040

2%:

016346

016220 002402
016224

016230

4$:

005702

016232 001002

105716
100407
106316
1030C3
116663
052702
052702
110223
005720
020027
002746
003002
010502

016302
016304
016306
016314
016316
016320
016322
016324
016326
016330

105726
100003
116663
105013
01260%
012603
012602
012601
(12600
104401

016300

NUM, - (SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV

RC,=(SP)
R1,-(SP)
R2.=(SP)
R3,-(SP)
R5.-(SP)
#20200, - (SP)
20(SP) _RS

MOVB

#' .(R3+

TYPDS

8PL
NEG
MOVB
CLR
MOV
CLR
MOV
SUB

5¢:

000001
000060
000C40

177777

68
7%

000010

000764

8$:
177777

016356

177776

1s
RS
#'-,1(SP)
RO
#$DBLK ,R3

R2
$DTBL (RO) ,K1
R1.RS

BLT

B8R

INC

000774

01623
016236
016240
016242
016244
016252
016256
016262
016264
016266
016272
016274
016276

MOV

ADD

R1.RS

BNE

5¢

THE NUMBER. LEADING ZEROS WILL ALWAYS BE

:;PUT THE BINARY NUMBER ON THF STACK
2 GO TO THE ROUTINE

::PUSH RO ON STACK

*PUSH R1 ON STACK
S:PUSH R2 ON STACK

S OUSH R3 ON STACK
*3PUSH RS ON STACK
*SSET BLANK SWITCH AND SIGN
S:GET THE INPUT NUMBER

SiBR IF INPUT IS POS.
:MAKE THE BINARY NUMBER POS.
T:MAKE THE ASCI] NUMBER NEG.
*>2ERO THE CONSTANTS INDEX
SSSETUP THE OUTPUT POINTER

“'SET THE FIRST CHARACTER TO A BLANK
S CLEAR THE BCD NUMBER
S:GET THE CONSTANT
“>FORM THIS BCD DIGIT

*:BR IF DONE

> *INCREASE THE BCD DIGIT BY 1
;:ADD BACK THE CONSTANT

*SCHECK IF BCD DIGIT=0

“IFALL THROUGH IF 0

TSTB
8M]
ASLB
BC(
MOVB
BIS
BIS
MOVB
ST
CMP
BLT
BGT
MOV

(SP)
7%
(SP)
63
1(SP),-1(R3)
#'0,R2
#' RO
R2,(R3)+
(RO) +
RO.#10
2
s
RS,R2

SSSTILL DOING LEADING 0°S?
S:BR IF YES
1IMSD?
YBR IF NO
S YES~=-SET THE SIGN
S:MAKE THE BCD DIGIT ASCII
" MAKE IT A SPACE IF NOT ALREADY A DIGIT
*:PUT THIS CHARACTER IN THE OUTPUT BUFFER
22JUST INCREMENTING
" CHECK THE TABLE INDEX
2:GO DO THE NEXT DIGIT
*1G0 TO EXIT
SiGET THE LSD

TSTB
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

(SP)+
9s
-1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+ R
(SP)+ RO
.SDBLK

“ WAS THE LSD THE FIRST NON-ZERQ>
S:BR IF NO
--YES==SET THE SIGN FOR TYPING
S:SET THE TERMINATOR
SIFOP STACK INTO RS
S:POP STACK INTO R3
“POP STACK INTO R2
SPOP STACK INTO R1
*:POP STACK INTO RO
;INOW TYPE THE NUMBEFP

B8R

22GO CHANGE TO ASCII

MACRO M1111
CZDRLAO-DR11w GEN NPR [NTF(
TO
DECIMAL
AND
TYPE
ROUTINE
BINARY
CONVERT

016334
016342
016344

016346
016350
016352
016354
016356

016666
012616
000002
023420
001750
000144
000012

000002

24=SEP-79 10:39
MOV

00000«
$DTBL:

$DRLK :

MOV
RTI
10000.

1000.
100.
10.
BLKW

2(SP) ,&(SP)
(SP)+, (SP)

PAGE 79-1

SEQ 0093

;ADJUST THE STA(K
;;RETURN TO USER

CZDRLAO-DR11w GEN NPR

TTY

INPUT

ROUTINE

INTF(

MACRO M1117

2819

26=SEP=79 10:39

.SBTTL

TTY

. ENABL
.DSABL

LS8
LS8

PAGE

8
SEQ 0094

INPUT ROUTINE

"".'.Qt‘t'.t"'.Qt'.'i'."'ttt..lt.i'tl't.ifi.fi.'tQtttfit.'t'lt'tt'

3222323232280

22 22222023222

2222222

2202202222

P*THIS ROUTINE WILL INPJT A SINGLE CHARACTER FROM THE TTY
;~CALL:
i
L

000004
162726

000002

162722
177600

000004
000004
000023

000004

016420
016426

016430
016434
016436
016442

162674

$RD(HR:
1%:

2%:

162670
177600

000021

016446

016452
016454
016456
016464
016466

016474
016476
016504

00000¢

000140

000004

000175

000040

000004

A ¥

RDCHR
RETURN HERE

;. INPUT A SINGLE CHARACTER FROM THE TTY
;. CHARACTER IS ON THE STA(K
;.WITH PARITY BIT STRIPPED OFF

MOV

;sPUSH DOWN THE P(
;;SAVE THE PS

- %

016366
016370
016376
016402
016404
016412

(SP) ,=(SP)

MOV

4(SP),2(SP)

RPL
MOVB

1%
a$TKB,4(SP)

TSTB

@$TKS

BiC
CMP

#-C<177> . 4(SP)
< (SP) . #23

BIC

N#-C177.(SP)

BNE
TSTB
8PL
MOVB

(MP
BNE
BR
cMP
BLT
cMP
BGT
BIC
RTI]

3%
@$TKS
2s
@$TKB,~(SP)

(SP)+ #21
2s
18
4(SP) ,#140
48
4L(SP) .#175
43
#40,4(SP)

,,UAIT FOR

A CHARA(CTER

..READ THE TTY

JGET RID OF JUNK

ANY

::IS IT A CONTROL=S?
:;BRANCH IF NO
J:WAIT FOR A CHARACTER
;:LO0P UNTIL ITS THERE
;.GET CHARACTER
JoMAKE IT 7-BIT ASCII
22IS IT A CONTROL=-Q?
;:1F NOT DISCARD IT
J:YES, RESUME
;1S 1T UPPER CASE?
;;BRANCH IF YES
;;1S 1T A SPECIAL (HAR?
;:BRANCH IF YES
JIMAKE IT UPPER CASE
: ;GO0 BACK TO USER

";.t.t".t'fi"tt.‘..'.fi.tt'.'tt'..tit.fi't.t'.".."tti"ttfitt.tlt

J*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

;vCALL:
RCLIN
ot
RETURN HERE
:‘

016506
016510
016514
016520
016522
016524
016526

016532
016534

016540
016542
016546

016552
016556
016560
016564
016570
016572
016574

010346
012703
022703

101405
104406
112613
122713

sRDLIN MOV
1%:
MOV
’S:
(TM
BLOS

016614
016€23

RDCHR

000177

10%:

104401

001350

111337
10440
122723

016612
016612
000015

1%:

105063
104401

001352

001003

000763

001356
012603
011646
016666

177777

000004

MOVB
(MP8

BNE

TYPE

(SP)+,(R3)

#177,(R3)

. SQUES

8R
MOVB

18
(R3),9%

(M8
BNE
(LRB

#15,(R3)+
2%
-1(R®)

MOV

(SP)+ R3

TYPE

000002

R3,-(SP)
#STTYIN,RZ
NSTTYIN+7.
,R3
43

MOV
MOV

,9%

JSLF

(SP) ,=(SP)
4(SP) ,2(SP)

J2INPUT A STRING FROM THE TTY
; :ADDRESS OF FJRST CHARA(CTER WILL BE ON THE STACK
;:TERMINATOR WILL BE A BYTE OF ALL 0'S

;:SAVE R3
;:GET ADDRESS
;:BUFFER FULL?

;:BR IF YES
::G0 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
;21S IT A RUBOUT
JoSKIP IF NOT

JJTYPE A 'Y
::CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARAC(TER
::CHECK FOR RETURN
::;LO0P IF NOT RETURN

::CLEAR RETURN (THE 1%)
::TYPE A LINE FEED
JRESTORE R3

,,ADJUST

;

THE

STACK AND PUT

ADDRESS OF

FIRST ASCI! CHARACTER ON |7

THE

MACRO M1111

(ZDRLAO-DR11w GEN NPR [NTF(

TTy

INPUT ROUTINE

016602

01661C
016612
016613
016614
016623
016626
016630
016633
016635
016640
016643
016646
016651
016654

012766

000002
000
000

136
012
136
012
015
127
075
040
105
075

016614

125
000
107
000
012
122
040
040
127
040

000004

24-SEP-79 10:39
MOV

PAGE 80-1

#STTYIN,4(SP)

C15

RT]
9%:
.BYTE
.BYTE
$STTYIN: .BLKB
SCNTLU: .ASCIZ

015

SCNTIG:

.ASCIZ

/2G/<15><12>

123
040
000
116
040
000

SMSWR:

AS(CI!Z

<15><12>/SWR =

SMNEW:

(AS(]Z

fuE

VEN

SEQ 0095
; :RETURN

;sSTORAGE FOR ASCI] CHAR.
;s TERMINATOR

0
0

JJRESERVE

/AU/<15><12>

NEw -

BYTES FOR

;JCONTROL 'V

;s CONTROL 'G"’
/

TTY

TO TYpt
[NPUT

(ZDRLAO-DR11w GEN NPR INTF(
MACRO M1111
READ A DECIMAL NUMBER FROM THE TTY
2821

24-SEP-79 10:39

.SBTTL
A

PAGE 81

SEQ 0096

READ A DECIMAL NUMBER FROM THE

2232332322332

22322222328222

222822022

$*THIS ROUTINE WILL READ A DECIMAL

J*CHANGE

[T TO BINARY.

TTY

02Rd Rl

(ASCII)

NUMBER FROM THE

TTY AND

TOO MANY CHARACTERS OR ANY ILLEGAL CHARA(TERS

**ARE READ A "' FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED.
;*THE

COMPLETE NUMBER MUST BE RETYPED.

THE

INPUT

TERMINATED BY

;*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS
:«POSITIVE 32767 TO NEGATIVE 32768.

s*CALL:

M
I®

016660
016662
016670
016672

011646
016666
010046
010146

016676
016700
016702
016706
016710
016712

104407
012600
010037
005046
005002
122710

016674

016216

016720
016722
0167264
016726

016732
016734

0167640
016742

010246

001001

112002
112001
001424
122701

003032
122701

016764
016770
016772
016774

002427
032716
001024
006316
011646
006316
006316
062616
102416
162701
060116
102412
000752

017000
017002
07004
017010
017012
017014
017016
017020
017022
017024
017026

001401
003416
012666
012602
012601
012600
000002
005726
105010
104401
000000

016766

016750
016752
016754

016756
016760
016762

016776

017030
017034

000004

$RDDE(C: MOV
MOV
MOV
MOV
1%:

017026

000055

000060

170000

000060

2%
4%:

5%:

001350

RDLIN
MOV
MOV
CLR
CLR
(MPB
MOVB
MOVB
BEQ
(MPR

8GT
(MPB

CO0071

000012

MOV

B8NE
2%:

005702

1044017
000720

000002

RDDE(

RETURN HERE

6%:

BLT
8T
BNE
ASL
MOV
ASL
ASL
ADD
BvS
SuB
ADD
8vS
BR

TST

BEQ
NEG
MOV
MOV
MOV
MOV
RT]
TST
(LRB
TYPE
.WORD

TYPE
B8R

(SP) ,~(SP)
L(SP) ,2(SP)
RO,-(SP)
R1,-(SP)

RZ,=-(SP)

;;READ A DECIMAL NUMBER
;;NUMBER ]S ON TOF OF

THE

STA(K

. :PROVIDE SPA(CE FOR
;:THE INPUT NUMBER
;:PUSH RO ON STA(K
;;PUSH R1 ON STA(CK

:sPUSH RZ2 ON STACK

R2
#'-, (RO

;oREAD AN ASCIZ LINE
. ;ADDRESS OF 1ST (HAR.
.. SAVE INCASE OF BAD INPUT
;:CLEAR DATA WORD
:2SIGN SET POSITIVE
;:5EE IF A MINUS SIGN WAS TYPED

(RO)+ R¢
(RO)+ R1
3s
#'0,R1

;2SAVE FOR LATER USE
JoPICKUP THIS CHARACTER
J:GET OUT IF ZERO
;:MAKE SURE THIS CHARAC(CTER

(SP)+ RO
RO,6$
-(SP)

5%
£'9
. R1
5%
R~C7777,(SP)
5%

(SP)
(SP) ,=(SP)
(SP)

(SP)
(SP)+,(SP)
5%

#'0,R1
R1, (SP)
5%
2%

R?2

43
(SP)
(SP)+,12(SP)
(SP)4 ,R2
(SP) + ,R1
(SP)+ RO

(SP)+
(RO)
0

. 3QUES
18

;:BR IF NO MINUS SIGN

::1S ADIGIT BETWEEN O £ 9
;:DON'T LETM NUMBER GET TO BIG

J:BR 1F NUMBER WOULD OVERFLOW

Jo%2
::SAVE FOR LATER
S 1%

;.'8.
:2:%10.
;;OVERFLOW ISN'T ALLOWED

;;STRIP AWAY THE ASCIT JUNK
:;ADD IN THIS DIGIT
;;OVERFLOW ISN'T ALLOWED
;. LOOP

..CHECK IF NUMBER IS NEG

J8R IF NO
..YES--NEGATE THE NUMBER
JSAVE THE RESULT
;;POP STACK INTO RZ
:.POFP STAUN INTO R1
;:POP STACK INTO RO
J ;RETURN
;oCLEAN PARTIAL NUMBER FROM STACK
J:SET A TERMINATOR
;:TYPE THE INPUT UP TO BAD (HAR,
..POINTER GOES HERE

'”"'TR"& F’
:TRY AGAIN

THE

(ZDRLAQO-DR11w GEN NPR INTF(
MACRO M1111
READ AN OCTAL NUMBER FROM THE TTY

24-SEP-79 10:39

SEQ 0097

READ AN OCTAL NUMBER FROM THE TTY

.SBTTL

2823

PAGE 82

2222223232232 223323232222222228222222
2222 R2R2RRRRRRRRSRRRRRAR)

:*THIS ROUTINE WILL READ AN OCTAL

:«CHANGE IT TO BINARY.
;*THE

INPUT

CHARACTERS WILL BE

(ASCII)

CHECKED

NUMBER FROM THE

TO INSURED

THEY ARE

TTY AND
LEGAL

:*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A '*?"* WILL BE TYPED

:+FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED. THE INPUT [S TERMINATED BY TYPING A CARRIAGE RETURN,
J«CALL:

M
017036

011646

017040
017046
017050
017052
017054
017056
017060

016666
010046
010146
010246
104407
012600
010037

017070
017072
017076
017100
017102
017106
017110
017112

112046
001420
122716

017064
017066

005001
005002

9003026

017120
017122
017124

122716
002423
006301
006102
006301
006102
006301
006102
042716

017132
017134
017136
017142

000756
005726
010166
010237

017154
017156
017160
017762
017164

000002
(005726
105010
104401
000000

017114
017116

017130

017146
017150
017152

017166

17172

017174

062601

012602
012601
012600

104401

000730
000000

o
o

000004

000002

RDO(CT

RETURN HERE

$RDOCT: MOV

1%:

01764
2%:
000060
000067

(SP) ,~-(SP)

MOV
MOV
MOV
MOv
RDLIN
MOV
MOV

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

MOVR
8EQ
(MPR
B8GT
(MPR
BLT
ASL
ROL

(RO)+,-(SP)
33
#'0,(SP)

CLR
(LR

(SP)+ RO
RO,5$
R
R2

177770

ASL
ROL
BIC

*'7,(SP)
4%
R1
RZ
R1
R2
R1
R2
#°C7,(SP)

000012
017174

BR
TSy
MOV
MOV

2%
(SP)+
R1,12(SP)
R2.SHIOCT

ASL
ROL

ADD

3s:

MOV
MOV
MOV
A ¥

001350

5¢:
$~Ju(T:

(SP)+.,R1

(SP)+ ,R2
(SP)+ ,R1
(SP)+ RO

RT]
IST
(LRB
TYPE
.WORD

B8R

‘s

TYPE

WORD

(SP)+
(RO)

. ;READ AN OCTAL NUMBER

;:LOW ORDER BITS ARE ON TOP OF THE
;:HIGH ORDER BITS ARE IN SHIOCT

:;PROVIDE SPACE FOR THE

;2 INPUT NUMBER
;:PUSH RO ON STA(K
::PUSH R1 ON STACK
::FUSH R2 ON STACK
;:READ AN ASCIZ LINE
::GET ADDRESS OF 1ST (HARACTER
;;AND SAVE T
;sCLEAR DATA WORD

JIPICKUP THIS (HARACTER
;o
IF ZERO GET OUT
;:MAKE SURE THIS (HARA(CTER
;21S AN OCTAL DIGIT
LY
s orh

Joe8
;:STRIP THE ASCII JUNK

;;ADD IN THIS DIGIT

;. LOOP
sCLEAN TERMINATOR FROM STACK
;:SAVE THE RESULLT

::POP STACK [NTO RZ2
::POP STACK INTO R1
:;POP STACK INTO RO

: ;RETURN
:;CLEAN PARTIAL FROM STACK
J:SET A TERMINATOR
J;TYPE UP THRU THE BAD (HAR,

,$QUES

CUUCRT
R LR

..HIGH ORDER B]TS GG HERE

;TRY AGAIN

STA(CK

(ZDRLAO=DR11w GEN NPR INTF(

TRAP DECODER

MACRO M1111

2¢=SEP=-79 10:39

.SBTTL

2825

PAGE 83

SEQ 0098

TRAP DECODER

P R
R
TR
Y

J*THIS ROUTINE wILL PI(KUP THE (OWER BYTE OF THE "'TRAP'' INSTRU(CTION
J*«AND USE

017176

017200
017204
017206
017210
017212
017216
017220
017222
017230

010046

016600
005740
111000
006300
016000
000200
011646
016666
000002

[T TO INDEX THROUGH THE

;*OF THE DESIRED ROUTINE.
;*GO TO THAT ROUTINE.
$TRAP:
MOV
RO,-(SP)
MOV
2(SP) RO

000002

TST

-(RO)

ASL

MOV

017232

000004

000002

RTS
;. THIS 1S USE
$TRAPZ2: MOV

MOV

.SBTTL

;*THIS

;. SAVE RO
;.GET TRAP ADDRESS
. ;BACKUP BY 2

;;GET RIGHT BYTE OF

(RO) ,RO

MOvVB

$TRPAD(R0O)
,RO

RO
TO HANDLE THE
(SP) ,~(SP)

4(SP),2(SP)

RT]
TRAP TABLE
TABLE (ONTAINS

THE

TRAP TABLE FOR THE STARTING ADDRESS

THEN USING THE ADDRESS OBTAINED [T Will

;.POSITION FOR

;;INDEX TO TABLE

. .60 TO ROUTINE
'‘GETPR]'' MACRO
;JMOVE THE PC DOWN

;;MOVE

THE PSW DOWN

;o RESTORE

THE PSW

STARTING ADDRESSES OF

;*BY THE "‘TRAP'' INSTRUCTION.

TRAP

INDEXING

THE

ROUTINES CALLED

ROUT INE

_
28¢

017232
017234
017236
0172640
017242
017244
0172646
017250
017252
017254

017220
015474
015740
015714
015754
016742
016366
016506
017036
016660

$TRPAD: .WORD

$TRAP2

$TYPE
;;CALL=TYPE
$TYPOC
;. CALL=TYPOC
$TYPOS
., CALL=TYPOS
STYPON
. CALL=TYPON
$TYPDS
;. CALL=TYPDS
$RDCHR ;; CALL=RDCHR
$RDLIN
;. CAL! “RDLIN
$RDOCT
;. CALL-RDOCT
$RDDEC
;. CALL-RDDEC

TRAP+1(104401)
TTY TYPEOUT ROUTINE
TRAP+2(104402)
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TRAP+3(104403)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TRAP+4(104404)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TRAP+5(104405)
TYPE DECIMAL NUMBFR (WITH SIGN)
TRAP+6(104406)
TTY TYPEIN CHARACTER ROUTINE
TRAP+7(104407)
TTY TYPEIN STRING ROUTINE
TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY
TRAP+11(104411) READ A DEC.MAl NUMBER FROM 7Y

(ZDRLAO=-DR1"wW GEN NPR [NTF(
MULTIPLE BOARD DIALOGUE

MACRO M1111

24=-SEP-79 10:39
.SBTTL

2828
2829
2830
2832
2833 017256
017256
017262

000424

017334
2834 017334
017340

000412

017426
2842
2843 017426
2844 017430
017630
017434
017450
2845 017450
2846
2847 017452
017452
017456
017464
2848 017464
017«64
017470

017500
2849 017500
2850 017502

2851 017506
2852 017514
2853 017516
2854 017524
2855 017526
2856 017534
2857
2858 077536
017542

01755
2859 017554

SEQ 0099

MULTIPLE BOARD DIALOGUE

M3D MONITOR-COMMAND DECODER

2831

017366
2835 017366
2836 017370
2837 017374
2838 017402
2839 017404
2640 017412
2841 017414
017420

I
8
PAGE 8¢

104401

104406

012637
023727
001423
023727
001006
104401

000402

MBD:

017264

;:65%:
:
649

017342

::67%:

66%:

001360
001360

000131

001360

000116

10440

000405

1046401

::65%:

:
649

000402

YESMBD:

017460

;.65%:

¥
3

104401

000403
104406

:
PROMPT

017472

:65%:

649

012637
023727
001420
023727
001423
023727
001425

001360
001360

000114

001360

000122

001360

000105

104601

017544

000404

000743

,67%
;s TYPE ASCIZ STRING
66%
;:GET OVER THE AS(I2
/
<CRLF>/(Y=YES, N-NO):

RDCHR

<CRLF><CRLF>/D0 YOU WISH MULTIPLE BOARD DIALQOUWUE?/

)
+ ,ANSWER
(SP

ANSWER ,#131

(MP

ANSWER #1116

TYPE

,69%

YESMBD

;IF

;1S ANSWER YES?

YES.,CONTINUE

ERRMSG

;1S ANSWER NO?

JIF NEITHER YES OR NO ERROR [N REPLY
;2TYPE

ASCIZ

STRING

B8R

68%

RTS

;

,65%

J3TYPE

ASCIZ STRING

;o TYPE

ASCIZ

STRING

;o TYPE

ASCIZ

STRING

LASCIZ

TYPE

B8R

LASCIZ

TYPE

B8R

JASCiZ2

TYPE

B8R

LASCIZ

RDCHR

MOV

(MP
BEQ
(MP
BEQ

BEQ
TYPE

::67%:
66$:

;. TYPE ASCIZ STRING
:2GET OVER THE ASCI2Z

€

B8NE

ERRMSG:

000702

TYPE
BR
ASCIZ

JASCIZ

BEQ

;.69
68%:

017636

,65%
643

MOV

017422

00020~

TYPE
BR

B8R

LASCIZ

::GET OVER THE ASCIZ

/N/<CRLF>

648
7

;.GET OVER THE ASCIZ

2222

L65%

649

/Y/<CRLF><CRLF>
,65%

643

<CRLF>/=

+ ,ANSWER
(SP)

R
, #114
ANSWE
LSTTBL
[ VYES
ANSWER
, #122
RUNPRG

ANSWER ,#105

EDIT

.67%

66$
7

B8R PROMPT

2?22/

NO,SKIP DIALOGUE

;:GET OVER THE ASCIZ

LIST PRESENT TABLE®
;RUN PROGRAM?
JYES
JEDIT TABLE?

;;TYPE ASCUZ STRING
;2GET OVER THE ASCTIZ

(ZDRLAO-DR11wW GEN NPR INTF(

MULTIPLE BOARD DIALOGUE

2860
2861 017556
017556
017562

017566
2862 017566
2863 017572
2864 017574
017574
017600
017606
2865 017606
2866 017610
017610
017614
017620
2867 017620
017624
2869
2870 017626
2871 017632
2872 017636
2873 017642
017646
017720
2874 017720
017724
2875 017726
017732

017770
2876 017770
2877 017774
017774
020000
020004
2878 020004
020010
2879 020012
020016

020024
2880 020024

020026
2881 020030
020034

2882

2883
2884

104401

000401

017626

104401

017602

1 :65%:
648
RUNPRG:

;:65%:
:
648

000207
104401

000401

;.65%:

020100

005037
012701
012702

001322
001024
001076
017650

104401

013746
104405
104401

000416

020002

013746

001322

104401

020020

000402

PRTBL:

:
648

:.67%:
66%:
1%:

;.69%:
68%:

(2718

708:

000402

- 73%:

>§S:

012246

001322

001022

,65%

TYPE

.65%
64$

LASCI2

/R/<(RLF>

/E/

JSR

PC,TBLEDT
PROMPT

CLR

LOOP
#REGADR,R1
#VECADR,R?

MOV
MOV
TYPE

8
SEQ 0100

J2TYPE ASCIZ STRING
;2GET OVER THE ASCIZ

PC,PRTRBL
PROMPT

RTS

;s TYPE

ASCIZ

STRING

;:GET OVER THE ASCIZ

;;TYPE ASCIZ STRING
;;GET OVER THE ASCIZ

,65%
648

2sTYPE ASCIZ STRING
;;GET OVER THE ASCIZ

MOV

QTYBRD,~-(SP)

;:SAVE QTYBRD FOR TYPEOQUT
;G0 TYPE--DECIMAL ASCi] WITH SIGN

BR
LASCIZ

663

INC

LOOP

TYPE

,698
68$

;o TYPE ASCIZ STRING
;:GET OVER THE AS(I2

LOOP,~-(SP)

::SAVE LOOP FOR TYPEOQUTY

LASCIZ

LASTIZ
MOV

LASCIZ
MOV

TYPO(
TYPE

020036

648

LASCIZ

PAGE 84-1

,65%
6498

TYPE
BR

TYPDS
TYPE

012146
104402
104401

JSR

TYPDS
TYPE

017734

104401

TYPE

B8R
.ASCIZ

00102¢

001322

104405

:
648

;.65%:

005237
000401

ED:T:

017616

004737
000717

000424

24=SEP-79 10:39

LSTIRL:

017564

004737
000734
000402

MACRO M1111

<CRLF><CRLF><CRLF>/NO.

,67%

<CRLF>

718

ASCIZ

REGSTR.

VECTOR/<CRLF>

;G0 TYPE--DECIMAL ASCI]
ASCIZ

(R1)+,~(SP)

;. SAVE

(R1)+ FOR TYPEQUT

73$

;. TYPE

ASCIZ

;:SAVE

(R2)+ FOR TYPEQUTM

728

MOV

(R2)+,=(SP)

BEQ

PRTF IN

LOOP,QTYRRD

TESTING:

STRING

;;TYPE

P08

FOR

::GET OVER THE ASCIZ

<CRLF><CRLF>/BOARDA

B8R
LASCIZ
TYPOC

;s TYPE

BOARDS REQUESTED

STRING

WITH SIGN

::GET OVER THE ASCIZ

;.60 TYPE-=OCTAL ASCII(ALL DIGITS)
STRING

;.GET OVER THE ASCIZ

;.60 TYPE-=OCTAL ASCII(ALL DIGITS)

CZDRLAO-DR11W GEN NPR INTFC

MULTIPLE BOARD DIALOGUE

2885 020056

2886 020062
2887 020064
020064
020070

020076
2888 020076
2889

104401
000402

020072

PRTF IN:

)

::65%:

000207
001024

020120

104401

000425

020122

020174
2894 020174
2895 020176
2896 020202
2897 020206
2898 020210
2899 020216
2900 020220
020224

104411
012637
005737
001742
023727
003423
104401

000416

001322

BRDNO:

éigss:

104401
00C405

020306

020320
2905 020320
020324
2906 020326
020332

013746
104405
104401
000413

001322

020362
2907 020362
020364
2908 020366
020372

011146
104402
104401
000402

020400
2909 020400
2910 020402

104410
012637

001322

TYPE
BR

L65%
64%

RTS

LASCIZ

TYPE
BR
LASCIZ

/
(L.2:£78:

“66%:

001022

22275:

020374

(SP)
+ ,ANSWER
ANSWER
BRDNO

BLE
TYPE

CORRCT
,67%

BR
JASCIZ

68%:

ANSWER,#20

::TYPE ASCIZ STRING
66%
::GET OVER THE ASCIZ
<CRLF>/MAX BOARDS OF 16 EXCEEDED/

LOOP,-(SP)

.ASCIZ

<CRLF>/ REGISTER ADDRESS: /

L67%

66%

MOV
TYPOC

(R1),-(SP)

ASClZ

RDOCT

,69%

68%

(SP)+ ,ANSWER
ANSWER

ggv

ggSUER,(R1)¢

TST

(R1)+

TYPE

013721
000401
005721

001360

104401

020432

%g:

::SAVE (R1) FOR TYPEOUT ::GO TYPE--OCTAL ASCII(ALL DIGITS)
::TYPE ASCIZ STRING

MOV
TST

BEQ

::SAVE LOOP FOR TYPEOQUT
2:G0 TYPE--DECIMAL ASCII WITH SIGN
2:TYPE ASCIZ STRING

2:GET OVER THE ASCIZ

001360
001360

2914 020414
2915 020420
2916 020422
2917 020424
020424

MoV
TYPDS
TYPE

TYPE

;:69%:

005737
001403

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

EDTFIN
JMP
CORRCT: MOV
ANSWER,QTYBRD
INC LOOP
ENTRY:
TYPE
,65%
::TYPE ASCIZ STRING
BR
649
::GET OVER THE ASCIZ
éigSS:
JASCIZ
<CRLF><CRLF>/BOARD /

020334

2911 020406
Sg}% 020412

SEQ 0101

,65%
.
J:TYPE ASCIZ STRING
649
::GET OVER THE ASClZ
<CRLF><CRLF>/HOW MANY BOARDS DO YOU WANT TO TEST?

MOV
TST
BEQ

CMP

001360

020536
001360

LOOP
.
1%

RDDEC

001360
001360

000137
013737
005237

INC
BR

PAGE 84-2

TBLEDT: MOV
#REGADR,R1
MOV
#VECADR,R2
CLR LOOP

001076

020226

24-SEP-79 1 0:39

64%:

012701
012702
005037

020262
2901 020262
2902 020266
2903 020274
2904 020300
020300
020304

001322

2890 020100
2891 020104
2892 020110
2893 020114
020114

005237

000744.

MACRO M1111

22GET OVER THE ASCiZ

’

JINSTALL NEW # [N TABLE

J3TYPE ASCIZ STRING

(ZDRLAO-DR11w GEN NPR [NTF(
MULTIPLE BOARD DIALOGUE

020430

00041

020454
2918 020454
020456
2919 020460
020464

011246
104402
104401
000402

--718:

70$
020466

::73%:

728

020472
020472
020474
020500
020504

104410
012637
005737
001403

2925 020506
2926 020512
2927 020514

013722
000401
005722

001360

2929 020516
2930 020524
2931 020526
2932 020532
29%3 020536

023737
001404
005237
000137
000207

001322

2920
2921
2922
2923

MACRO M1111 24=-SEP=79 10:39 PAGE 841{

001360
001360

001322
020300

001022

°5%:

SEQ 0102

708

::9“ OVER THE ASCI2

MOV
TYPOC(
TYPE
BR

(RZ) ,=(SP)

.73%
72%

;. SAVE (R2) FOR TYPEOQUT
;.60 1YPE==OCTAL ASCII(ALL DIGITS)

RDOCT
MOV
TST
BEQ

(SP)+ ,ANSWER
ANSWER
3

LASCIZ

MOV
BR
TST

(mp
BEQ
INC
JMP
EDTFIN: RTS

/VECTOR ADDRFSS:

;. TYPE ASCIZ

ANSWER, (RC) +
5%
(R2)+

LOOP,QTYBRD
EDTFIN
LOOP
ENTRY

STRING

J.GET OVER THE ASCIZ

(ZDRLAO-DR11W GEN NPR INTF(

BURST DATA LATE

CALIBRATION ROUTINE

2935
2936
2937 020540
020540
020544

104401, 020546
000426

020622
2938 020622
020626

104401
000412

2939
2940
2941
2942
2943
2944
2945

020654
020654
020656
020662
020670
020672
020700
020702
020706

020714
2946 020714
2947 020716
020716
020722
020732
2948 020732
2949
2950 020734
020734
020740

104406
012637
023727
001421
023727
001006
104401

000402

;165%
:
643
J:67%:
66%:

001360
001360

000131

001360

000116

A ¥

020724

;:718:

70%:

000702

020754

021030
2952 021030
021034

104401
000414

021036

104401
000424
013700
022020
010037
013700
010037
005720
010037
004737
005077
012737

TYPE

ASCI12
RDCHR
MOV
(MP

cTMP
BNE

;:69%:
68%:

104401
000426

ASCIZ

TYPE

000207

10%401
G00403

TYPE

3%:

;:738:

72%:

ASCI2
RTS

TYPE

;:75%:
74%:

TYPE

::77%:

768:

021074

LASCI2Z

TYPE

B8R

)
+ ,ANSWER
(SP

JYES?

iv:sdsn.n 16

;NO?

,69%

::TYPE ASCIZ STRING

68%

S GET OVER THE ASCIZ

/N/<CRLF>

L7213

J:TYPE ASCIZ STRING

708

;:GET OVER THE ASCI2

277/

L7738

;:TYPE ASCIZ STRING

72%

S GET OVER THE ASCIZ

/Y/<CRLF>
,75%

::TYPE

748

S GET OVER THE ASCIZ

<CRLF>/BURST

DATA LATE

77%

76%

<CRLF>/ATTACH

(ASCI2

MOV

DEFRAD,RO

001070
001006
001136

TMMP
MOV
MOV
MOV

(RO)+, (RO)+
RO,CSR

001140
010156
157664
000100

MOV
JSR
(LR
MOV

::79%:

001004

TST

001312

STRING

CALIBRATION

PROBE.../

;:TYPE ASCIZ STRING

S GET OVER THE ASCI2

THIS ROUTINE,HALT PROCESSOR../

:BURST DATA LATE CALIBR. USES

*DEFAULT REG. AND VECTOR ADDRESSES

DEF VAD ,RO

RO,DRINV
(RQ)
+
RO,DRVS

PC .NORMAL

a(SR

#100,
T IME

IN PROGRESS../

S GET OVER THE ASCIZ

SCOPE

79%

78$

ASCIZ

::TYPE ASCIZ STRING

<CRLF>/TO ABORT

788:

CALIRBRATION?/

;:TYPE ASCI7 STRING

ggswea.~131

BRSTDL

TYPE

CALIBRATION ROUTINE

678

BR
L_ASCIZ

SEQ 0103

663
S GET OVER THE ASCIZ
/
<CRLF>/(Y=YES, N=NO):

_ASCI2Z

TYPE

,65%
;:TYPE ASCIZ STRING
64$
S GET OVER THE ASCIZ
<CRLF><CRLF>/D0O YOU WISH BURST DATA LATE

BR
L(ASCI2

PAGE 85

BURST DATA LATE

BEQ

020710

020746
2951 020746
020752

2954 021144
295
2956 021150
2957 021152
2958 021156
2959 021162
2960 021166
2961 021170
2962 021174
2963 021200
2964 021204

:
BRSTDL

020630

020742

021066

24-SEP-79 10:39

LSBTTL

104401
000402

2953 021066
021072

MACRO M1111

:CLR CYCLE BIT

MACRO M1111
CZDRLAO-DR11W GEN NPR INTF(
BURST DATA LATE CALIBRATION ROUTINE
2965 021212
2966
2967 021220
2968 021224
2969 021226
2970
2971
2972
2973
2974 021230

2975
2976
2977
2978

021234
021240
021244
021250
021254

021300
2979 021300
021304

021336
2980 021336
021336
021340
2981 021342
021344
2982 021346
021350
2983 021352
2984 021356
2985 021360
2986 021362
021366

021372
2987 021372
2988 021374
2989 021376
2990 021402
2991

2992 022404
2993 022406
2994
2995 023410
2996 023412
2997

052777

000400

005337
001375

001312

24-SEP-79 10:39

157650

BIS

104401

000411
104401

000414

001022
001024
001206
001246
021256

021306

JLOOP ALWAYS:SETTING AND (LEARING CYCLE
2TO ABORT,HALT PROCESSOR

RUN SUMMARY ROUT INE

RUNSUM:

MOV
MOV
MOV
MOV
TYPE
BR

QTYBRD ,RO
#REGADR,R1
#PASCNT ,R2
#ERRCNT ,R3

TYPE

.67%
663

;:67%:

66%:

LASCIZ

LASCI2Z

1%:

012146

JWAIT

LSBITL

:.65%:
64%:

<CRLF>/RUN

(R2)+,=(SP)

012346
104405
104401
005300
001405
104401
000401

(R3)+,-(SF)

000761
000005
000137
000000
022404
000000
022406
023410
023410
000000
000001

001354

L SENULL

021370
::69%:
68%:
000200

<CRLF>

LEVEL:

PASCNT

ERRCNT/<CRLF>

::SAVE (R1)+ FOR TYPEOUT
;G0 TYPE=-=-OCTAL ASCIICALL DIGITS)

:;SAVE (R2)+ FOR TYPEOUT
;GO TYPE--DECIMAL ASCI] WITH SIGN
;:SAVE (R3)+ FOR TYPEOUT
;G0 TYPE~-DECIMAL ASCII WITH SIGN

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

200

.SAV:

XCHKBU:

;. TYPE ASCIZ STRING
;.GET OVER THE AS(CIZ

2%:

:
BUFF
:
X INBUF

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

SUMMARY.../<CRLF>

<CRLF>/BOARD

012246
104405

;NO. OF BOARDS TESTED

,65%

648

(R1)+,-(SP)

104402

SEQ 0104

JSET CYCLE BIT

#400,aCSR

DEC
BNE
BR

000764

013700
012701
012702
012703

N 8
PAGE 85-1

JFOR STACK PGINTER

.~.+1000

.WORD 0
.END

100 LOCATIONS

(ZDRLAO-DR11W GEN NPR INTF(
SYMBOL TABLE
ANSWER 001340
ATTN = 020000

MACRO M*111

B 9
PAGE 85-2

DATOCK
DDISP =
DEFRAD
DEFVAD
DIOMEM
DISPLA
DISPRE
DONE
DRINL
DRINV
DRVS
DSTATA=
DSTATB=
DSTATC=
DSWR =
EDIT

010200
177570
001004
001006
001150
001324
000174
005556
001074
001136
001140
001000
002000
004000
177570
017610

000400
GO1000
001144
020114
001656
006272
020540
001162

END
END1
ENTRY
ERRCHK
ERRCNT
ERRDO
ERRDOY1
ERRMSG
ERROR =
ERRVEC=

013132
013216
020300
010246
001246
006534
006614
017430
100000
000004

LOADA
LODBUF
LOOP
LSTTBL
MAINT =
MANCBL
MANT
MBD
MFLOOP
MSG4
MSGS
MSG6
MSG7
MSG8
MSG9
NEX
=
NEXCHK
NOCBL
NOP
=
NORMAL
NPRRDY
NPR1
NRM
NSTAT
NXTBRD
OF L
0K
ouT
OUTSWR
PASCNT

BUFLEN 001156
BUSERR- 000004
CABLE
001314
CARLF
014567
CBL
010622
CHKA
007764
(HKBFF
007752
CHKBUF 001154
CKBAR
002116
(KBDR
002142
(KCSR
002130
(KDRIN 002154
CKDRVS 002170
CKFIN
002336
CKSWR
014144
(KWCR
002104
CNTLU
014250
COMPAR 010132
COMPRR 010214
CONTIN 013760
CORRCT 020266
COUNT
014136
CPUERR 002204
(R
- 000015
CRLF = 000200
(SR
001070

FLIP
FLOP
FNCCNT
FNCT1 =
FNCT2 =
FNCT3 =
GO
=
HLT
=
HLTDET
HT
=
ICOUNT
[E
=
INBUF
INBUF1
INCBA
INCDB
INCWC
INNEW
INTA
INTB
INTC
LDEXIT
LENCHK
LEVEL
LF
LOAD

012314
012446
001202
000002
000004
000010
000001
104000
001316
000011
014122
000100
001152
001204
004652
005406
004622
014603
010016
011114
011304
007750
001160
023417
002012
001712

PNTERR 001016
PNTPAS 001014
PNTRAD 001010
PNTVAD 001012
PRGCYC 001020
PRINT
013314
PROMPT 017464
PRTBL
017626
PRTFIN 020064
PSW
001002
P3IINT
005720
P3INV
005624
F7ERR
006100
P7INV
006010
QTYBRD 001022
RDCHR = 104406
RDDEC = 104411
RDLIN = 104407
RDOCT = 104410
RDSW
014140
RDYCHK 001166
READY = 000200
REGADR 001024
RETURN 014126
RSET
007504
RUNPRG 017574

BAOFCK 010546
BAR
001066
BOFAIL. 001362
BOR
001072
BEGAUT 001670
BEGIN
001604
BITO = 000001
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S = 100000
BIT2 = 000004
BIT3
BIT4
BITS
BIT6
BIT7

=
=
=
=

BIT8 =
BIT9 =
BORW
BRDNO
BRDSET
BRLEV
BRSTDL
BRWAIT

BUF f

000010
000020
000040
000100
000200

022404

CYCLE = 000400
DATCHK 010116

24-SEP-79 10:39

EDTFIN
EIR

FLAG

020536
001142

001200

PINV

007726
007714
001322
017556
010000
014755
014723
017256
006662
015014
015057
01513
015163
015230
015310
040000
010406
010734
000240
010156
011012
001146
007514
006132
013260
015370
007370
014476
014573
001206

006166

SEQ 0105
RUNSUM 021230
R6
=3000006
R7
=%000007
SAVCC
013772
SAVPC
013770
SAVR2
013762
SAVR3
013764
SAVR4
013766
SCOP
010450
SCOPE = 000004
SCOPEA 013774
SCOPEB 014016
SCHWEC 014030
SCLPEF 0146124
SCONEG 014104
SR
001000
STACK = 022404
SUSWR
001364
SWINT1
012740
SWINT2 013120
SWR
001326
SWREG
000176
Swril
112600
SWT2
(12760
TBLEDT 020100
TEMP
0t 1306
TEMPST 014134
TEMP2
00 310
TESTNO 001320
TIB
014 &2

137
T37CHK
140
T40CHK
T41
742
TS5
756
TS6CHK
157
TS7CHK
160
T60CHK
761
T61CHK
161.5
T62CHK
VECADR
WCLEN
WCR
WRONG1
WRONG2
XBA16 =
XBA'7 =
XCHKBU
XINBUF
X1
X4
X5
| ¥4

011364
011524
011544
011704
005360
010276
006440
011716
012056
012100
012234
006632
006762
007024
007174
007206
007676
001076
001164
0C1064
007360
007510
000020
000040
023410
022406
006122
005560
004676
005740

TkB
TKS
TKVEC =
TNPRO
TNPR1
P8
TPS
TRAPVE=
TSTRDY
TTIN
TTINT
TTIN2
TTOUT
TYPDS =
TYPE
=
TYPOC =
TYPON =
TYPOS =
TISTR
126
127
T3
133
T3I3C(LR
T33STR
T364(LR

YESMBD
$BELL
$CHARC
$CNTG
$CNTLG
SCNTLU
$CNTS
SCRLF
$08LK
$OTBL
SENDAD
SENPAS
SENULL
$ ILLC
$F.LLS
$HD
=
SHIOTMT
SLF
SMNEW
SMSWR
SNULL
SOCNT
$OMODE
$QUES
SQUEST
SRDCHR

017452
001344
015710
014552
016630
016623
014560
001351
016356
016346
013250
014622
001354
001342
001341
000003
017174
001352
016646
016635
001340
016136
016140
001350
014614
016366

TIME

00131'2

0011.2
00117
000060
011174
010770
001176
001174
000034
005534
014500
014520
014534
015372
104405
104401
104402
104404
104403
002070
004250
004372
002414
010744
011164
010764
011354

YESCBL

010722

(ZDRLAO=-DR11w GEN NPR [NTF(
SYMBOL TABLE

MACRO M1111

$RODEC
SROLIN
$RDOCT
$RDSZ =
SREAD
$SE TUP=

160000
014646
001332
001330
000001
001336
001343

0160660
016506
017036
000007
014306
000004

$SWR =
STITLE
$7kB
$TKS
$IN
=
$TPB

$STUP = 177777

023414
000000
ERRORS DETECTED:

$TPFLG

. ABS.

24=SEP=-79 10:39

000
001

VIRTUAL MEMORY USED:
20701 WORDS
( 81 PAGES)
DYNAMI(C MEMORY:
20746 WORDS
( 79 PAGES)
ELAPSED TIME:
00:02:15

DR11W,DRY1W SYSMAC.MLB/ML ,DR1TW.P11

$TPS
$STRAP
$TRAP2
$TRP =
$TRPAD
STTYIN
$TYPDS

001334
017176
017220
000012
017232
016614
016142

PAGE 85-3

SEQ 0106
STYPE
STYPEC
$TYPEX
$TYPOC
STYPON
$TYPOS

015474
015644
015712
015740
015754
015714

$OFILL
JEMPTY
LREST
RET
RETR
. SAV

016137
015416
015462
015446
015470
021402