Digital PDFs

AH-E780A-MC

January 1980

107 pages

Original

49MB

view download

OCR Version

70MB

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

OCR Text

DR11-W GEN NPR INTFC

CZDRLAO

AH-E780A-MC

JAN 1980

1
FICHE 1 OF

MADE IN USA

copvriGHT 1980

050020

CIDRLAD=DRY
'w GEN NPR INTFC

MACRO M1111

24~SEP=79 10:39

PAGE ¢

SEQ 0001

.REM %
2

IDENTIF ICATION

PRODUCT CODE:

AC-E779A-M(

PRODUCT NAME:

CZDRLAO DR11-w GEN NPR INTF(

13
14

DATE RELEASED:

AUG. 1979

MAINTAINER:

DIAGNOSTIC ENGINEERING

;;

AUTHOR:

JOHUN W.

(CIUKAJ

22
23
24

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

27
28

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY DIGITAL OR TS

THE FOLLOWING ARE

35
26

DIGITAL
DEC

25
2

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
AFFILIATED COMPANIES.

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP
DE CUS

UNIBUS
DE C TAPE

MAS SBUS

(ZDRLAO=DR11w GEN NPR INTF(

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

SEQ 0002

TABLE

1.0

ABSTRACT

2.0

REQUIREMENTS

2.1
2.2

3.0

CONTENTS

EQUIPMENT
STORAGE

TESTING MODES

3.1
3.2

DEFINITION
IMPLEMENTATION

4.0

LOAD AND START PROCEDURE

5.0

SOF TWARE SWITCH REGISTER

5.1
5.2
5.3
5.4

OPTIONS
IMPLEMENTATION
(CONTROL
PROGRAM AND/OR OPERATOR A(CTION

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 MOLE W/BURST DATA LATE

AUTO MODE

MISCELLANEOUS

8.1
8.2

RESTARTING PROGRAM IN (ORE
POWER FAIL

9.0

EXECUTION TIMES

10.0

SUBROUTINE ABSTRACTS

11.0

EXAMPLES
11.7

12.0

USING MULTIPLE BOARD FEATURE

PROGRAM SUMMARY OF

TESTS

CALIBR.

(ZDRLAO=DR11W GEN NPR INTF(
92
93
A

MACRO M1111

1.0

9%
97

24=SEP-79 10:39

99
100
101
102

ABSTRACT

S wWho
—

IT HAS THE FOLLOWING FEATURES:
.
.

103

104
105

2.0

B b b e =D d

VNS W

POND = e

ACT11/XXDP COMPATIBLE
MULTIPLE BOARD TESTING USING TABLE CREATED BY USER
BURST DATA LATE CALISRATION

INDEPENDANT ‘LOGIC WRAP-AROUND' AND
'CABLE WRAP-AROUND' TESTING

REQUIREMENTS

[EQUIPMENT]
1.

PDP11

LOOP BACK CABLE

2.
3.

2.2

STANDARD COMPUTER

1/0 TYPE TERMINAL
DR11-W

(OPTIONAL)

[STORAGE]
THE PROGRAM USES 4600 WORDS OF MEMORY

3.0

TESTING MODES

[DEFINITION]

B i

L8P NO

il il

il RN

-‘OOQ\JO\hl‘wN—'Ogg

N —————
-

106

THE DR11W DIAGNOSTIC PROVIDES TWO INDEPENDANT MODES OF LOGIC TESTING:
.
2.
.

MAINTENANCE MODE TESTING
CABLE MODE TESTING

SURRRU

IN CONTEXT OF THE DIAGNOSTIC,"MAINTENANCE MODE TESTING®
IS DEFINED AS TESTS WHICH ARE PERFORMED WITH BIT 12 OF THE (SR SET.

THIS RESULTS IN 'LOGIC WRAP-AROUND' WHICH ALLOWS TESTING
WITHOUT A USER DEVICE OR PHYSICAL CABLE.
LOGIC WRAP-AROUND
(HECKS ALL LOGIC FUNCTIONALITY EXCEPT MODULE CONNECTORS,CABLES,
AND 1/0 DRIVERS AND RECEIVERS.
‘'CABLE MODE TESTING' ,THEREFORE,CHECKS
ALL THESE THAT THE LOGIC WRAP-AROUND DOESN'T.

S
OO0

Y T

SEQ 0003

THIS DIAGNOSTIC PROGRAM IS CAPABLE OF TESTING EITHER THE DR11W
OR THE DR11B NPR GENERAL INTERFACE.

141

PAGE 4

3.2

CIMPLEMENTATION]
THE

TWO MODES OF

TESTING ARE

INVOKED AS FOLLOWS:

THE PROGRAM WILL ALWAYS DO THE MAINTENANCE MODE

*e.-a al
‘_.

o
i
e
e
i
b
b cad

\I‘bfi\l‘\fi\flf\}‘\l‘\fl\flb
S
ole T AV}
WR
= O O

(ZDRLAO=DR11W GEN NPR INTF(

MACRO M1111

24=SEP=79 10:39
2.

E 1
PAGE 4-1

SEQ 0004

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

WILL AUTOMATICALLY CHECK IF

THE PHYSICAL WRAP-AROUND

CABLE IS IN PLACE.
IF IT IS, 'CABLE TESTS '
WILL BE DONE.
IF NOT,CABLE TESTS ARE SKiPPED.
NOTE:
4.0

LOAD AND START PROCEDURE
1.

160

STEP 2 CAN BE ALTERED BY USING
SEE SECT. 5.1
SWITCH REGISTERS 9 OR 10.

2.
3.

LOAD PROGRAM

INTO MEMORY

LOAD STARTING ADDRESS 200

PRESS START=SEE SECT 7.0 FOR OPERATING MODES

5.0

SOF TWARE SWITCH REGISTER

5.1

[OPTIONS]
SWITCH

OCTAL

FUNCTION

Sw15=1
SW14=1

100000
040000

HALT ON ERROR
LOOP ON TEST

SW09=1

001000

PERFORM CABLE MODE TESTS UNCONDITIONALLY

SW08=1

000400

Sw13=1
SW11=1
SW10=1

5.2

020000
004000
002000

INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS
PERFORM MAINT. MODE (INTERNAL
LOGIC WRAP-AROUND) TESTS ONLY.

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

AFTER 1ST OCCURRENCE OF ERROR
DURING A PASS OF PROGRAM,JUMP TO THE NEXT
BOARD SPECIFIED IN TABLE FOR TESTING.

[IMPLEMENTATIONJ
IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.

THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES

AND IT CONTAINS ALL ONES (177777)

5.3

176)

IS USED.

THEN THE SOF TWARE SWITCH

CCONTROLJ]
THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SCF TWARE
(LOC 176) FROM THE TTY.
THIS IS ACCOMPLISHED AS FOLOWS:

SWITCH REGISTER

TYPE CONTROL G <*G>;THIS ALLOWS THE TTY TO ENTER DATA INTO

LOC.

176 AT SELECTED POINTS WITHIN THE PROGRAM.

THE MACHINE WILL TYPE:
CONTENTS OF THE SOFTW.

AFTER THE

'NEW="'

SWR=XXXXXX NEWSWITCH REGISTER)

(XXXXXX IS THE OCTAL

THE OPERATOR CAN DO ONE OF

THE FOLLOWING:

MACRO M1111

24=SEP-79

1:39

PAGE 4-2

SEQ 0005

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

WILL BE ALLOWED).

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

WN O
VO NP N

IR R
R — )

LS LSLNTSTSTNININT
NN

CHAE

(ZDRLAO-DR11w GEN NPR INTF(

NOT BE CHANGED.

B.
5.4

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

TO STEP 2.

[PROGRAM AND/OR OPERATOR ACTION]

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN
IS NORMAL LOGIC TESTING.
IF AN ERROR
WHEN
IS DETECTED HERE, THERE WILL BE A PRINTOUT.
AN ERROR IS DETECTED AND IT IS NECESSARY TO SCOPE

220

ON IT, PLACE SW15 UP TO HALT ON ERROR, THEN SW14 UP
TO LOOP ON ERROR, THEN SW13 UP TO DELETE PRINTOUTS.

6.0

ERROR REPORTING

DEPENDING ON WHICH BOARD IS BEING TESTED,THE STATUS PRINTOUT WILL
REFLECT EITHER THE DR11W OR THE DR11B.

ALL ERRORS ARE ACCOMPANIED WITH THE FOLLOWING PRINTOUT:
TESTNO

ERRPC

PSW

DR11W/B STATUS

:
WHERE

TESTNO
ERRPC

-TEST NUMBER WHERE ERROR OCCURRED
- LISTING ADDRESS WHERE THE ERROR WAS DETECTED

PSW

DR11W/B STATUS
7.0

OPERATING MODES

[MANUAL MODE]

-PROCESSOR STATUS WORD AT ERROR TIME

=CONTENTS OF DR11W/B CONTROL STATUS
REGISTER AT ERROR TIME

DEFINED AS NON-AUTOMATIC USE OF DIAGNOSTIC.FOR EXAMPLE:
A.LOADING PROGRAM VIA PAPER TAPE

B.LOADING FROM XXDP PACKAGE VIA KEYBOARD

(.REQUESTING A PROGRAM FROM ACT11 VIA ACT11 STATION SWITCHES

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

CZDRL

- DR11-W GEN NPR INTF(

CZDRLAO=DR11w GEN NPR INTFC

MACRO M1111

24=SEP=79 10:39

PAGE 4-3

263

DO YOU WISH BURST DATA LATE CALIBRATION?

267
268

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

264
265
266

(Y=YES _N=NO) :

SEQ 0006

N
-

269

272

IF SOFTWARE SWITCH REGISTER IS INVOKED, THEN THE FOLLOWING WILL BE

PRINTED:

273

274

g;z

SWR=XXXXXX

%;g

(REFER TO SECT. 5.0 FOR OPERATOR OPTIONS)

279

NEW=

280
281

ANSWERING 'NO' TO THE ABOVE QUESTIONS (AND ASSUMING THAT
MULTIPLE BOARD SIZING HAD NOT BEEN PREVIOUSLY DONE) THE
PROGRAM DEFAULTS TO ONE BOAR" TESTING SPECIFIED BY REGISTER

ggz

PROGRAM THEN TYPES:

282

ADDRESS °'DEFRAD'(172410) AND VECTOR ADDRESS 'DEFVAD'(124).

285

*3RD ADDR.: 1724120

288
28%
290

592
2(32

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' TYPEOUT IS AS FOLLOWS(IN THE CASE OF

295
296
297
298
299
338\;;

302
203
304
305
306
307
308
309
g;l?

312
313

7.1,

[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 EACH BOARD
DESCRIBED IN THE TABLE FOR 'ENDPAS #1' AND THEN DO THE SAME FOR 'ENDPAS #2°' ETC.
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 WHICH THE
FOLLOWING COMMANDS MAY BE TYPED:

" = LIST PRESENT MULTIPLE BOARD TABLE

%‘1!9

318
219

MAINT MODE TESTING):

TEST MODE: MAINT MODE ONLY
END PASS # XXXXXX

314

215

THE

''E

' = EDIT PRESENT MULT BRD TBL
- START PROGRAM TESTING

AT ANY POINT DURING PROGRAM RUN A 'RUN SUMMARY' MAY BE RECEIVED
BY TYPING A "CONTROL S' <*S>. THE PROGRAM WwiLL DETECT

CZDRLAO=DR11w GEN NPR INTFC

MACRO M1111

24=SEP=79 10:39

PAGE 4-4

gg?

THE “S AND PRINT:

gs%

RUN SUMMARY.....

324
325

BOARD PASCNT
XXX
XXX

ERRCNT
XXX

327

ETC.

226

YOO

WHERE :

328

)
g%?
331

XXX

ETC.

BOARD

332
332
%gg

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

PASCNT
ERRCNT

§§9

% P

XXX

[MANUAL MODE W/BURST DATA LATE CALIBR.]

338
339
340
341
342
343
344
345
346
347
332(8)

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 SOF TWARE 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 E88-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
;g}

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

253

BURST DATA LATE CALIBRATION IN PROGRESS..

355

TO ABORT THIS ROUTINE, HALT PROCESSOR...

354

ATTACH

§S8

PROBE...

THE CALIBRATION ROUTINE WILL FUNCTION ON ONE BOARD SPECIFIED

%28

BY 'DEFRAD'(172410) AND 'DEFVAD'(124).

361
362
363
364
%22

367
368
ggg

SCOPE

7.2

[AUTO MODEJ]

DEF INED AS USING THE PROGRAM IN A SITUATION OF SEQUENTIAL
EXECUTION OF TWO OR MORE PROGRAMS ACCORDING TO A PREDETERMINED SEQUENCE
AND WITHOUT OPERATOR INTERVENTION.

g;}

AUTOMATIC MODES ARE:

373

374
375

B.
(.

ACT11

QUICK VERIFY

ACT11 AUTO ACCEPT
XXDP CHAIN MODE

SEQ 0007

CZDRLAO=DR11wW GEN NPR INTF(

MACRO M1111

24=SEP=79 10:39

277

PAGE 4-5

SEQ 0008

THE DR11w DIAGNOSTIC HAS THE FOLLOWING RUN CHARACTERISTICS WHEN

g;g

OPERATING IN AUTO MODE:

;,3(1)

332%

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

33%%

386

387
388
385

THE FOLLOWING WILL NOT BE OFFERED TO THE USER:

1.
2.
3.

250
391
392
393
394

%gg

BURST DATA LATE CALIBRATION
MULTIPLE BOARD DIALOGUE
RUN SUMMARY <*S>

8.0

M]ISCELLANEOUS

8.1

[RESTARTING PROGRAM IN COREJ]

397
398
zg

WHENEVER THE PROGRAM IS HALTED AND RESTARTED AT SA 200, ALL HISTORY OF PREVIOUS
TESTING IS LOST.
HOWEVER, THE MULTIPLE BOARD TABLE AS PREVIOUSLY
EDITED IS LEFT INTACT.
IT WILL REMAIN INTACT UNTIL:

401
28%

1.
2.

282

8.2

406
407
283
410
"5k Rt
412

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

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

e L

A B

T R

9.0
e
Tl

EXECUTION TIMES
eS

2}(3.

ON A PDP11/04:

415
416
617
fig

1.
2.
3.
4.

MAINT
MAINT
MAINT
MAINT

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

420

421
23%

424
425
259

10.0.

SUBROUT
INE ABSTRACTS

10.1

SCOPE

428

THIS SUBROUTINE CALL

430
431
432

ADDRESS OF EACH SUB-TEST AS IT IS BEING ENTERED.
IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE
START OF THE SUBTEST THAT THE SCOPE LOOP IS RE-

429

433

IS PLACED BETWEEN EACH SUBTEST

IN THE INSTRUCTION SECTION.

QUESTED FOR.

IT RECORDS THE STARTING

IF SCOPE LOOP IS NOT REQUESTED, THERE

CZDRLAO=DR11w GEN NPR INTF(
(34
435
436
437
(38
439
440

441
442

MACRO M1111

NOTE:

456
457
458
459
460
461
462
463
46
465
466

467
468
469

10.2

HALT

IS A ROUTINE 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 FOR DYNAMIC LOADING

OF SOFTWARE SWITCH REGISTER

10.3

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

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

10.4
THE

CHKBUF BUFFER IS LOADED WITH A MODIFIED

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

BEGINNING AT THE STARTING ADDRESS OF CHKBUF.
THE NUMBER OF WORDS LOADED

IS DETERMINED BY

THE

FOR TESTS WHICH USE THE MAINTENANCE MODE OF

THE

CONTENTS OF BUFLEN.

THIS BUFFER IS LOADED ONLY

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

INTA
THE

IE BIT

IS CLEARED IN THE CSR THEN THE (SR

IS CHECKED FOR THE ABSENCE OF AN ERROR AND THE

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

470
471
472

473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
4,88
489
490

SUPPORTS “G ROUTINE FOR DYNAMIC LOADING

OF SOF TWARE SWITCH REGISTER

449
450
451
452
453
454
455

ITERATIONS

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

444
445
448

SEQ 0009

WILL BE EITHER A FIXED OR RANDOM NUMBER OF

443

447

1
J
PAGE 4-6

24=SEP=79 10:39

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

IS EXITED.

THE PROGRAM WILL HALT

‘E\g?O'C? élS\RSET' READY IS CLEAR, OR READY AND ERROR
LEAR.

10.6

DATCHK

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 (OMSLAJ?I{E?‘S MADE IS DETERMINED BY THE CONTENTS OF
10.7
THE ROUT HEIE IS ENTERED FROM INTA AND FROM SOME
USE INTA.
THE NUMBER OF
TESTS WHI H DON'T
;

CZDRLAO-DR11wW GEN NPR INTFC
9
492
493
494
495
496
497
498
499

500
501
502
503
504
505
506

507

24-SEP-79 10:39

K 1
PAGE 4-7

THE DRINV+2 IS PUT INTO DRINV AND THE DRVS IS

CLEARED.
IF THE DR11-W INTERRUPTS UNDER THESE
CONDITIONS THE PDP=11 WILL HALT AT DRVS.
THE
PROCESSOR STATUS WORD IS RESTORED TO LEVEL 7 AND
THE ROUTINE

10.8

IS EXITED.

DATOCK

AFTER A STRING OF DATO'S HAS BEEN COMPLETED THIS
ROUTINE CHECKS THAT THE CORRECT DATA PATTERN

(52525) WAS TRANSFERRED TO INBUF.
THE NUMBER
OF COMPARISONS MADE IS DETERMINED BY THE CONTENTS
OF BUFLEN.
AN ADDITIONAL CHECK IS MADE ON BUFLEN+?
TO INSURE THAT TOO MANY WORDS WEREN'T TRANSFERRED.
10.9

ERRCHK

THIS ROUTINE CLEARS IE AND HALTS IF ERROR IS SET.
10.10 TRAPCATCHER

ViAo

508
509
510

MACRO M1111

auld

THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION O
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND
'IlfgmLPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF

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 LOCATION PLUS TwO.

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

REGISTER SIX, IT WILL CONTAIN THE CURRENT STACK ADDRESS.
THE CONTENTS OF THE CURRENT STACK ADDRESS IS THE VALUE OF
THE LOCATION COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED.

[USING MULTIPLE BOARD FEATURE (REFER TO SECT. 7.1.1)]
(USER LOADS PROGRAM AND STARTS AT 200)
DR11-W GEN NPR INTF(
DO YOU WISH BURST DATA LATE CALIBRATION?
(Y=YES,

N=NO):

DO YOl WISH MULTIPLE BOARD DIALOGUE?

% .

(Y=YES.,

N=ND):

SEQ 0010

CZDRLAO=DR11wW GEN NPR INTF(

MACRO M1111

24-SEP-79 10:39

PAGE 4-8

SEQ 0011

548

NO. BOARDS REQUESTED FOR TESTING:

550

BOARD#

REGSTR.

VECTOR

552

172410

000124

554

557

HOW MANY BOARDS DO YO WANT TO TEST?

560
561
562

BOARD 1
REGISTER ADDRESS:

VECTOR ADDRESS:

<(R>
<CR>

000000
000000

172430 <CR>
170 <CR>

172450 <CR>
174 <CR>

568

BOARD

000000
000000

575

BOARD #

REGSTR.

VECTOR

172410

000124

569
570

172430
172450

3 <(R>

172410
000124

BOARD

565
566

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

<===( 0 CONTENTS ARE CHANGED)

578

2
3

000170

(PROGRAM NOW RUNS USING MULT. BOARD TABLE)

000174

587

*BRD ADDR.:

172410

589
590

TEST MODE:
END PASS

MAINT & CABLE
"
1

592

*BRD ADDR.:

172430

594
595

TEST MODE
:
END PASS

MAINT & CABLE
&
1

597

*BRD ADDR.:

172450

599
600

TEST MODE:
END PASS

MAINT & CABLE
1
#

622

*BRD ADDR.:

172410

604

TEST MODE
:

MAINT & CABLE

(ZDRLAO-DR11W GEN NPR INTFC

MACRO M1111

24=SEP=79 10:39

PAGE 4-9

END PASS

*BRD ADDR.:

172430

TEST MODE
:

MAINT & CABLE

*BRD ADDR.:

172450

TEST MODE
:

MAINT & CABLE

END PASS

SEQ 0012

ETC.
(AT ANY TIME USER MAY REQUEST

'RUN SUMMARY' BY TYPING “S)

*S
RUN SUMMARY.....

ERRCNT
0
0
0

PASCNT
10
10
9

BOARD
172410
172430
172450

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

CZDRL

DR11-W GEN NPR INTF(C

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

N=NO):

ETC.

CZDRLAO=DR11w GEN NPR INTFC

649

650
651
€52
653

654

MACRO M1111
12.0

24=SEP-79 10:39

PAGE S

PROGRAM SUMMARY

SEQ 0013

(ZDRLAO=DR1
1w GEN NPR INTFC(
672

MACRO M1111

24=-SEP-79 10:39

LTITLE

PAGE 6

SEQ 0014

CZDRLAO-DR11w GEN NPR INTF(

;*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754

*«PROGRAM BY JOHN W. CIUKAJ
- %

S«THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
S «PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977.
- %

673

000001
160000

000240

$TN=1
$SWR=160000

674
675

000004
104000

682
683

000100
000200

693
694

000004
000000

657
698
699

000003
000004
000005

RO=%0
R1=%1
R2=%2
R3=13
R&4=%4
RS=%S

000007
000007

R7=%7
PC=%7

676
677
678
679
680
681

684
685
686
687
688
689
690
gg;

695
696

700

701
702

SCOPE=]10T
HL T=EMT

000001
000002
000004
000010
000020
000040

81T0=000001
81T71=000002
81T2=000004
8173=000010
B1T14=000020
8175=000040

000400
001000
002000
004000
010000
020000
040000
100000

81T8=000400
8179=001000
81T10=002000
B1T11=004000
81712=010000
81T713=020000
B1T14=040000
81T15=100000

000001
000002

000006

B1T6=000100
8117=000200

BUSERR=000004

R6=%6

703

000006

705
706
707
708
709

000001
000002
000004
000010
000020

712

000200

READY=200

010000

MAINT=10000

704

710
711
713
714
715
716

::HALT ON ERROR, LOOP ON TEST,

NOP=000240

000040
000100
000400
001000
002000
004000

SP=26

=1
FNCT1=2
FNCT2=4
FNCT3=10
XBA16=20
XBA17=40
1E=100

CYCLE=400
DSTATA=1000
DSTATB=2000
DSTATC=4000

INHIBIT ERROR TYPOUT

(ZDRLAO-DR11wW GEN NPR INTF(

MACRO M1111

24=SEP=79 10:39

C 2
PAGE 6-1

SEQ 0015

ATTN=20000

718

NEX=40000

ERROR=100000
CRLF=200
F
STACK=BUF
TRAPVEC=34

ERRVE(C=4
DSWR=177570

DDISP=177570
TKVEC=60

:LOAD TRAP CATCHER INTO 0 THRU 777.
LASECT
=0
=20
SCOPEC
340

.:3.

340

$TRAP
340
.=46
$ENDAD

0
=174

000200
012706
005077
005737
001411

023737
001415
012702
004737
000410
012702

022404
000572
000042
000042

780 001012

000046

014646

1%:

MOV
CLR
TST

#STACK,SP
aPSw
sl

CMP
BEQ

62, aneb
2%

:IF NOT,DO TITLE,CALIBRATION
;AND MULTIPLE BOARD SIZING
:1S THIS ACT11 AUTO MODE
:IF SO ,DON'T PRINT TITLE

MOV

#STITLE ,R2

;PRINT

JSR

PC,TTOUT

JMP

SUSWR

BEQ

014646
015372

015372
020540
017256
001200

006
778 001010
779

DISPREG:
SWREG:
O
.=200

MOV
JSR
BR

2%:

JSR
JSR
CLR

SR:

.=1000
177570

#STITLE ,R2
PC,TTOUT
2%

PC,BRSTDL
PC ,MBD
FLAG

:ARE WE

IN AUTO MODE

THE

TITLE

:BURST DATA LATE CALIBRATION?
JMULTIPLE BOARD DIALOGUE

PSW:

DEFRAD: 172410
DEFVAD: 124
PNTRAD: O

177776

;DEFAULT REGISTER ADDRESS
;DEFAULT VECTOR ADDRESS
;POINTER INTO MULTIPLE BOARD TABLE SPECIFYING

PNTVAD:

JPOINTER FOR YECTOR ADDRESS

:CURRENT REGISTER ADDRESS BEING TESTED

C(ZORLAO-DR11W GEN NPR INTF(
781
782
783
784
785

001014
001016
001020
001022
001024

000000
000000

788 001064
789 001066
790 001070
791 001072
792 001074
793 001076
794 001100
795 001136
796 001140
797 001142
798 001144
799 001146

172410
172412
172414
172416
000240
000124

;gg 001026

800 00115C
801 001152
802 001154
803 001156
804 001160
805 001162
806 001164
807 001166
808 001170
809 001172
810 001174
811 001176
812 001200
813 001202
814 001204
815 001206
816 001210
817 001246
818 001250
819 001306
820 001310
821 001312
822 001314
823 001316
824 001320
825 001322
826 001324
ggg 001326

829 001330
830 001332
831 001334
832 001336
833 001340
834 001341
835 001342
836 001343
837 001344

MACRO M1111

24-SEP-79 10:39

PNTPAS: 0
PNTERR: 0

000000
000001
172410

PRGCYC: O
QTYBRD: 1
REGADR: 172410

.BLKW

WCR:
172410
BAR:
172412
(SR:
172414
BDR:
172416
DRINL:
240
VECADR: 124
.BLKW
DRINV:
124
DRVS:
126
EIR:
0
BORW:
0
NPR1:
52525

000124
000126
000000
000000
052525

173000
022406
023410
000000
000000
000000
000000
000000
177560
177562
177564
177566
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
177570
177570

DIOMEM: 173000
INBUF: XINBUF
CHKBUF: XCHKBU
BUFLEN: HALT
LENCHK: HALT
BRWAIT: HALT
WCLEN:
HALT
RDYCHK: HALT
TKS:
177560
TKB:
177562
TPS:
177564
TPB:
177566
FLAG:
O
FNCCNT: HALT
INBUF1: HALT
PASCNT: 0
BLKW
ERRCNT: 0
BLKW
TEMP:
0
TEMP2:
O
TIME:
0
CABLE:
0
HLTDET: 0
TESTNO: O
LOOP:
0
DISPLAY:.WORD
SWR :
177570

177560
177562
177564
177566
000
002
012
000
207

$TKS:
$TKB:
$TPS:
$TPB:
$NULL:
$FILLS:
$FILLC:
$TPFLG:
SBELL:

000000

377

177560
177562
177564
177566
.BYTE
.BYTE
.BYTE
.BYTE
.ASCIZ

D 2
PAGE 6-2
;POINTER
JPOINTER
;COUNTER
;TOTAL #

SEQ 0016
INTO PASCNT TABLE
INTO ERROR COUNT TABLE

TO TRACK WHEN ALL BOARDS ARE
DR11w BOARDS BEING TESTED

TESTED

;TOTAL:16 LOCATIONS FOR BOARD ADDRESSES

;TOTAL:16 LOCATIONS FOR VECTOR ADDRESSES
;TEMP STORAGE FOR CSR #2 (ERROR IND. REG)

15.
15,

DDISP

;NUMBER OF PASSES COMPLETED:

16 BO0ARDS

:ERROR COUNT TABLE:16 BOARDS

; TEMPORARY STORAGE
: TEMPORARY STORAGE
;GENERAL PURPOSE TIMER
;CABLE MODE TO BE DONE?:0=NO,1=YES
:FLAG THAT AN ERROR OCCURRED DURING PROGRAM PASS
;SPECIFIES TEST # FOR ERROR PRINT
:GEN'L PURPOSE LOOP COUNTER

O
2
12
O
<207><377><377>

MACRO M1i11

N =

NhwnN

$QUES:
$CRLF:

000
377

000

001364

012706

022404

001370
001376

012737
012737

017176
000340

001404
001410
001416
001424
001432
001440

013746
012737
012737
012737
022777
001072

000004
001444
177570

001442
001444
001450
001452
001460
001466

000403
012716
000002
012737
012737
012637
012737
012737
012737
012737

850 001500
851 001506
852 001514
853
854 001522
855 001526

856 001532
857 001534
858 001536

859 001540

860 001544
861 001550

:
$ENULL

177570
177777

SUSWR:
.SBTTL

000034
000036

<12>

-1,=1.0

000176
000174
000004
001024
001076

012700
012701

65%:
66%:

1%:

001246
000020

2%:

#340,Q#TRAPVEC+2;LEVEL 7

#S$TRAP ,a#TRAPVEC

B8R
MOV

RTI
MOV
MOV
MOV
MOV
MOV
MOV
MoV

MOV
MOV
CLR

aWERRVEC,~(SP)

#6438
, ANERRVEC
#DSWR, SWR

#DDISP,DISPLAY

#-1,3SWR

66%

65%

#65%, (SP)

001316
001020
001020

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR
;;SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;:TRY TO REFERENCE HARDWARE SWR

;sBRANCH IF NO TIMEOUT TRAP OCCURRED
THE HARDWARE SWR IS NOT = =1
:;AND
s sBRANCH IF NO TIMEOUT
;;SET UP FOR TRAP RETURN

#PASCNT
RO
#16. R
+
(RO)
R1
1%
#ERRCNT ,RO
#16. .R1
+
(RO)

TABLES

;CLEAR PASS COUNT TABLE

;CLEAR ERROR COUNT TABLE

;1S SWREG USED

BEGIN:

001022

;.TRAP _VECTOR FOR TRAP CALLS

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

001326

014250

;;SETUP THE STACK POINTER

MOV
MOV

MOV
MOV
MOV
MOV
CMP
BNE

64%:

001010
001012
001014
001016

THE COMMON TAGS

#STACK,SP

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

177666

001326
001324

INITIALIZE

MOV

000042

875

SEQ 0017

/?/
<15>

;o INITIALIZE A FEW VECTORS

000004
001326
001324

001452

001020
000176

871 001606
872 001612
873 001620
874 001622

BDFAIL: 0

846 001364

849 001472

$LF:

LASCII
LASCII
LASCIZ

PAGE 6-2

ANSWER: 0

001347
838 001350
839 001351
840 001352
841 001354
842
843 001360
844 001362

§ UJOOO§

CZDRLAO-DR11W GEN NPR INTFC

24=SEP=79 10:39

PC.CNTLU
HLTDET
PRGCYC,QTYBRD

BRDSET
PRGCYC

JARE WE IN AUTO MODE?
;IF SO, SKIP SWREG INPUT
;ALLOW SWREG TO BE LOADED
;EVERY PASS CLEAR ERROR FLAG
;HAS PROGRAM TESTED ALL BOARDS?
sNO,CONTINUE TO NEXT BOARD
JYES;INITIALIZE TESTING TO 1ST BOARD
;OF MULTIPLE BOARD TABLE

CZDRLAO-DR11W GEN NPR INTFC
INITIALIZE

THE COMMON TAGS

876 001626
877 001634
878 001642
879 001650
880

012737
012737
012737
012737

MACRO M1111

24=SEP=79 10:39

001024
001076
001206
001246

PAGE 6-4

MOV

#REGADR ,PNTRAD

MOV

#ERRCNT ,PNTERR

MOV
MOV

SEQ 0018

#VECADR,PNTVAD
#PASCNT ,PNTPAS

;SET UP BOARD ADDRESSES OF CURRENT BOARD FROM
sMULTIPLE BOARD TABLE

889 001676
890 001704
891 001712
892 001716
893 001722
894 001724
895 001730
896 001734
897 001736
898 001742
899 001746
900 001750
901 001754
902 001760
903 001762
001766

002010
904 002010
002014
905 002016
002022

002026
002026

912 002056
913 002062

005237
005737
001411
013737
013737
012737
012700
017701
010120
062701
022700
001372
012700
017701
010120
062701
022700
001372
104401

000410

013746
104402
104401

000401

005037
012706
012777
013737
005037
005037
005037

BRDSET:

001020
000042
001024
001076
001022

BEQ

LOAD:

001136
177044

3%:

000002
001142

MOV
MOV
MOV

MOV
ADD
CMP
BNE
MOV
MOV
MOV
ADD

CMP
BNE

TYPE

001770
: :658:
64%:

001064

ASCIZ

MOV

TYPOC
TYPE

002024

: 2678
66%:

001314
022404
34
002070
014124
001320
014122

INC
1ST

BEGAUT: MOV
MOV

2%:

000002
001074

885 001656
886 001662
887 001666
888 001670

1%:

17673¢
014126

ASCIZ

CLR
MOV

MOV
MOV
CLR
CLR
CLR

PRGCYC
sl
;ARE WE IN MANUAL MODE?
LOAD
JYES;CHECK MULT BRD TABLE FOR NEXT BOARD ADDRESS
DEFRAD ,REGADR
;NO;USE DEFAULT REGISTER ADDRESS
DEFVAD,VECADR
#1,QTYBRD
#MJICR,RO ;LOAD WRD CNT,BUS ADDRESS,STATUS,E DATA BUFFER ADDRESSES
aPNTRAD
,R1
R1,(RO)+
#2 ,R1
#BDR+2,R0
2%
#DRINV,RO
;LOAD INTERRUPT VECTOR ADDRESSES
aPNTVAD
,R1
R1,(R0O)+
#2 ,R1

#DRVS+2,R0
3%
,65%

649

;:TYPE ASCIZ STRING

;:GET OVER THE ASCIZ

<CRLF><CRLF>/+BRD ADDR.:

WCR,~-(SP)
L67%

66%

<CRLF>

CABLE
#BUFF ,SP

#340,aPSW
T1STR,RETURN
SCOPEF
TESTNO
ICOUNT

;:SAVE WCR FOR TYPEOUT

;:GO TYPE--OCTAL ASCII(ALL DIGITS)
;2TYPE ASCIZ STRING

::GET OVER THE ASCIZ

:PROC. AT LEVEL #7

(ZDRLAO=-DR17w GEN NPR INTF(
g;az
44

MACRO M1111 24=SEP=-79 10:39 PAGE (75
SBTTL
ég”t

MAINTENANCE MODE TESTING

SEQ 0019

(ZDRLAO-DR11W GEN NPR INTF(
MACRO M1111 24~SEP=79 10:39
TEST 1 CAN ALL DR11w REG BE ADDRESSED WITHOUT ERROR?
919

G20

921

922

923
924
925 002066

926 002070
927 002076
928 002104
929 002110
930 002114
931
932
933
934

002116
002122
002126
002130

935 002134

936 002140
937 002142

938 002146
939 002152
940 002154
941 002160
942 002166
943 002170
944 002174
945 002200
946 002202
947 002204

948 002206
002212
002262
949 002262
950 002264

951 002270

G52 002276
002302

002332
953 002332
ggg 002336
956

000004

012737
012737
013746
005777
005726

013746
005777
005726
013746
005777
005726
013746
005777
005726
013746
013777
005726
013746
005077
005726
000455
022626
104401

000423
104402
104401

012737

1044017
000413

000137
012737

002000
002204
001064
176750

014122
000004

00106€
176740

(KBAR:

001070
176720
001072
176720
001136
001140

CKWCR:

176750

001140
176740

002214

;:65%:

001354

000006

002304

013132
000006

000004

SEQ 0020

AR AR AR

R RN R

A AR R

R AR R AR

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

SCOPE

MOV
MOV
MOV
TST
TST

_ASCIZ

TYPOC
TYPE

MOV

;:67%:

TYPE
B8R
._ASCIZ

CKFIN:

JMP
MOV

66%:
000004

R A AR AR A AR

MOV
TST
TST
CKCSR:
MOV
TST
TST
CKBDR:
MOV
TST
TST
CXDRIN: MOV
MOV
TST
CKDRVS: MOV
CLR
TST
BR
CPUERR: CMP
TYPE
64%:

PAGE 8

LSBTTL TEST 1 CAN ALL DR11w REG BE ADDRESSED WITHOUT ERROR?

AR AR R AR AR

TISTR:

AR AR R AR AR

R AR AR R R AN AR AR AR AR AR

R AN

R AR AR AR AR

#2000, I COUNT
#(CPUERR,BUSERR
WCR,=(SP)
aW(R
(SP) +

:
;(CPU ERROR VECTOR TO CPUERR
;SAVE ADDRESS FOR TYPE
;ACCESS REGISTER
.OK;READJUST STACK

649

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

BAR,-(SP)
aBAR
(SP)+
(SR,=(SP)
a(CSR
(SP)+
BDR,~(SP)
aBDR
(SF)+
DRINV,=(SP)
DRVS.,aDRINV
(SP)+
DRVS,=(SP)
aDRVS
(SP)+
CKF IN
(SP)+,(SP)+
,65%

R R,

R AR R R AR

<CRLF>/TESTNO 1-CPU ERROR WHILE ADRESSING /
LSENULL

#6 ,BUSERR

JRESTORE #6 TO BUS ERROR VECTOR

L,67%
;:TYPE ASCIZ STRING
66%
;:GET OVER THE ASCIZ
<CRLF>/SKIPPING ALL TESTS /
END
#6 ,BUSERR

JRESTORE #6 TO BUS ERROR VECIOR

;

CZDRLAO-DR11wW GEN NPR INTFC
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 DR17W OR A DR11B?

960

962

961

963 002344
964 002346
965 002352
966 002356
967 002364
968 002372
969 002400
970 002402
971 002406
972 002410

000004
005037
005077
052777
017737
032737
001403
104401
000402
104401

0146122
176512
100000
176500
000001

176504

001144

015310
015230

1%:

R R

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

AR R R R R R RN AR R AR AR

SCOPE
CLR
CLR
BIS
MOV
BIT
BEQ
TYPE
BR
TYPE

ICOUNT
a(SR
#IT15,aCSR
a(SR ,BORW
#3170 ,BORW
1%
.MSG9
T3
.MSG8

AR R AR R R RN R AR RN A RN AR AR AR R AR AR AR R R C R TR

;FORCE TO BE (SR #1
;ARE WE A B OR A W?

;WE ARE A B

R
RN

Ra"

CZDRLAO=-DR11W GEN NPR INTF(

TEST 3 THAT DEVICE

974
975
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

CLEARS WCR

24=SEP=79 10:39

PAGE 10

SEQ 0022

LSBTTL TEST 3 THAT DEVICE INIT CLEARS WCR

;Q!tQQ.'Q..QQ.QQ..'Qt.t"'.........'l...'t..'.tt..t..tt.t..lt..-t.'.'.'
.

TEST 3

THAT DEVICE INIT CLEARS WCR

:'.t.'.t.t.t"'t...tt...tt'..'.Q'Q..Q..tfi........t.ttttt.Q..'..'t...t.'.

176446

000010
177777
014144
010000

010000
176402

15:
014122
176426
176420
176412

SCOPE

CLR

a(SR

;FORCE TO BE (SR #1

MOV
MOV
JSR
BIS
BIC

#10,1COUNT
#-1,aWCR
PC,CKSWR
#81T12,aCSR
#B1T12,aCSR

;DEVICE
JINIT

BEQ

;DID WCR GET CLEARED

TST

HLT

awCR

JALL ONES TO W(R

:1S 2 BIT SET?

;JWCR NOT CLEAR

(ZDRLAO=-DR11W GEN NPR INTF(
MACRO M1111
TEST & THAT DEVICE INIT CLEARS BAR
989

990

N
L4

24-SEP-79 10:39

PAGE 11

SEQ 0023

.SBTTL TEST & THAT DEVICE INIT CLEARS BAR

2222322222332 22232 2222332233 I

TEST & THAT DEVICE

I I I I

INIT CLEARS BAR

e R R R

""t't"".Q."'fi!....'.t'...tt'.t..'Q'I.tt'.'.lfi'."'t...'.t..t'..'tt'ttt

993 002466

000004

994 002470
995 002474

005077
012777

997 002506
998 002514

052777
042777

996 002502

999 002522

1000 002526
1001 002530

176374
177777

176364

CLR
MOV

aCSR
#-1,38AR

;FORCE TO BE (SR #1
;ALL ONES TO BAR

010000
010000

176354
176346

BIS
BIC

#BIT12.aCSR
#B1T12,a(SR

;DEVICE
JINIT

;DID BAR GET CLEARED
;BAR NO CLEAR

004737

014144

005777

176340

001401
104000

SCOPE

JSR

TST

BEQ
HLT

PC,CKSWR

aBAR

;1S Z BIT SET?

CZDRLAO=DR11W GEN NPR INTF(

TEST S THAT DEVICE

MACRO M1111

INIT CLEARS BDR

24=SEP=79 10:39

PAGE 12

2
SEQ 0024

.SBTTL TEST 5 THAT DEVICE INIT CLEARS BDR

-4 AR RRRAARAAARARAAARAAAARAAARAAAARAAARAAAAANAAAARARRAAARRARAARRR
TR TR

3
g
5
3

WN—-=O
VNV

D
D

D
e

D
i
D

D
D

i
) wnd

e
—

—d

OO0OO0O00O0O000O0

000004
005077
012777
012737
012777
004737
042777
012777
005777
001401
104000

176330

176322

014122

010000
010000

176274
176266

176264

TEST 5 THAT DEVICE INIT CLEARS BDR

LD
T

SCOPE

010000
000010
177777
014144

176310

;FORCE TO BE CSR #1
JMAINT MODE

CLP
MOV
MOV
MOV

a(SR
#81T12,aCSR
#10, ICOUNT
#-1,a8DR

;JALL ONES TO BDR

BIC

#81T712,aCSR

sDEVICE INIT

TST
BEQ

aBDR
.+6

;CHECK FOR ZERO

JSR

MOV
HLT

PC,CKSWR

#B1T12,aCSR

CZDRLAO=-DR11W GEN NPR INTF(
MACRO M1111 24=SEP=79 10:39
TEST 6 THAT DEVICE INIT CLEARS ALL R/W BITS IN THE (SR
1021

1022

1023

1024

1025 002612

1026 002614

1027 002622

000004

012777

012737

010000

000010

1028 002630 052777 010576
1029

1030 002636

004737

1031 002642
1032 002650
1033 002656

042777
012777
022777

1035 002666

104000

1034 002664

001401

014144

010000
010000
010200

SEQ 0025

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

L L

PAGE 13

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

SCOPE

e L
L

176246

MOV

#81T12,a(SR

JMAINT MODE

176232

BIS

#10576,aCSR

sSET MAINT(12),CYCLE(O8),1E(06)XBA17(05)

014122

176220
176212
176204

MOV
JSR

BIC
MOV
(MP
BEQ
HLT

#10,1COUNT
PC,CKSWR

#81712,aCSR
#81T712,aCSR
#10200,aCSR
.+

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

;DEVICE INIT
sJMAINT MODE
TEST FOR ZERO'S,AND READY BIT SET
JWERE ALL R/W BITS CLEARED

CZDRLAO=DR11W GEN NPR INTF(

TEST 7 DOES RESET CLEAR W(R?

MACRO M1111

N
~

3343

G
g
-

002720

9 002724
0 002726

000004
005077
012737
012777
004737

176172
000010
177777
014144

005777

176140

000005

001401
104000

176152

SEQ 0026

.SBTTL TEST 7 DOES RESET CLEAR WCR?

222222322223 2323 3333332323323 3333 323333233238 222222222222222

2232222223223 3323232333323

TEST 7 DOES RESET CLEAR WCR?

SCOPE

014122

N 2
PAGE 14

:
043 002672
044 002676
045 002704

24=SEP=79 10:39

CLR
MOV

a(SR
#10, 1COUNT

RESET
TST

awCR

MOV
JSR

BEQ
HLT

#-1,aWCR
PC.CKSWR

22222 RdRRdddl)

333333323333 33223223 2332322223233 2232223222R20%0d2R2 2]

;FORCE TO BE (SR #1
;ALL ONES TO WCR
JINIT
;LOOKING FOR Z-BIT

TO SET

;DID WCR GET CLEARED?
;WCR NOT CLEAR

(ZDRLAQO-DR11w GEN NPR INTFC(

TEST

10 CAN ALL

WCR BITS BE

SET?

MACRO M1171

1061
1062
1063
1064
1065
1066

PAGE 15

SEQ 0027

.SBTTL TEST 10 CAN ALL WCR BITS BE SET?

1055
1056

1057
1058
1059
1060

24=SEP=79 10:39

.'.'.".Q..'"".'Qt‘.'.....'."'.....t...........tfitl."'....".'.".'..'

TEST

10 CAN ALL WCR BITS BE

SET?

.'.'Q..t...'.t.'....'l.."""....'.t‘.Q....'......Q'..'.'.t.".'..'."...

002730
002732
002736
002744
002752
002754

000004
005077
012777
022777
001401
104000

176132
177777
177777

176120
176112

SCOPE
CLR
MOV
(MP
BEQ
HLT

aCSR

#=1,3WCR
#-1.9W(R

;FORCE TO BE (SR #1
JSET ALL BITS IN WCR
;LOOKING FOR 2-BIT TO SET

;SEE IF ALL BITS GOT SET

JALL BITS AREN'T SET

(ZDRLAC=DR11Ww GEN NPR INTF(

TEST

DOES RESET

1069
1070
1071
1072
1073
1074
1075 002756
1076 002760
1077 002764
1078 002772
1079 002776

CLEAR BAR?

MACRO M1111

;

24=SEP=79 10:39

PAGE 17

SEQ 0028

.SBTTL TEST 11 DOES RESET CLEAR BAR?
L

TEST 11

DOES RESET CLEAR BAR?

L D
T

000004
005077
012777
004737
00000
005777
001401
104000

176104

177777
014144
176062

SCOPE

176074

CLR
MOV

JSR
RESET
TST
BEQ
HLT

aCSR
#-1,3BAR

sFORCE TO BE (SR #1
;ALL ONES TO BAR

aBAR

JINIT
JLOOKING FOR Z-BIT TC SET
.DID BAR GET CLEARED?

PC,CKSWR

;BAR NOT

CLEAR

(CZDRLAO=DR11w GEN NPR INTF(
MACRO M1111
TEST 12 CAN BITS 15-01 IN BAR BE SET?
1087

1088

1089

1090
1091
1092

1093 003010

1094 003012
1095 003020
10%} 003026
09

1098 003030
1099

24=SEP-79 10:39

000004

012777
022777
001401
104000

177776
177776

176046
176040

SEQ 0029

LSBTTL TEST 12 CAN BITS 15-01 IN BAR BE SET?

R AR AR AR

PAGE 18

AR AR AR RN

AR AR

TEST 12 CAN BITS 15-01

RN AR

A R R AR AR AR AR AR AR

IN BAR BE SET?

RN RN RN

SCOPE

MOV
(MP
BEQ
HLT

#-2,aBAR
#-2 ,aBAR
.+

JSET BITS 15-01 IN BAR
sLOOKING FOR Z-BIT TO SET
;SEE IF BITS 15-01 GOT SET

(ZDRLAQ=DR11w GEN NPR INTFC

CAN BE

SET AND CLEARED
2

t
PAGE 19

SEQ 0030

LSBTTL TEST 13 TEST THAT FNCT1 CAN BE SET AND CLEARED

2222322322323 2323333

3322222323222

333

TEST 13 TEST THAT FNCT1
AR

3032

SR 33

)
N

e e e i i

g
S
N

THAT FNCT1

8
822322323233
RN AHN A

e
g

———

(oleololeleleole]

13 TEST

TEST

24=SEP=79 10:39

MACRO M1111

3102
3112

000004

005077
012777
012737
052777
032777
001001

104000

042777
032777
001401

104000

176030

176022

014122

176006
176000

R AR AR

SCOPE
CLR
MOV
MOV
BIS

BIT

BNE
HLT
BIC
BIT
8EQ
HLT

3323223323232

22232R222

222222l

CAN BE SET AND CLEARED

AR AARAARAAARAAIAARNAANARRAAAN
I AR
AARARRAARARARR AR TAAR AR RS

a(SR

#B1T12,aCSR
#2000,
] COUNT
#BIT1,aCSR
08£T1.3CSR
-

#B1T1,3CSR
#B£T1.3CSR
L+

;FORCE TO BE (SR #1
;SET MAINT MODE
sSET FNCTI

JTEST FNCT1

IS IT SET?
JFNCTT IS CLEAR
sCLEAR FNCT1
STEST FNCTT
;WAS

CLEAR

JFNCTT WAS SET

CZDRLAO=DR11w GEN NPR INTF(
14 TEST

THAT

FNCTZ CAN BE

NWWNWNWWWWNW

24=SEP=79 10:39

SET AND CLEARED

nororororON

w-aoogw&wflwg-oszmwo\nbw

e T

T N

[

—

TEST

MACRO M1111

F 3
PAGE 20

SEQ 0031

LSBTTL TEST 14 TEST THAT FNCT2 CAN BE SET AND CLEARED

RARARRARR AR RARANARARARAAARNANAANARANARRARARAARTARANARRARAAAARAAARARA
AR R RN

TEST 14 TEST

THAT FNCTZ2 CAN BE SET AND CLEARED

.-.-'.'..t.l....Q.....Q..."'.Q'.......Q't.QQ.'.Q'...Q.'.......QQ...t.....

003114
003116
003122
003130
003136
003144
003146
003150
003156
003164
003166

000004
005077
012777
052777
032777
001007
104000
042777
032777
001401
104000

175746

SCOPE

(LR
MOv
BIS

a(SR
#IT12,a(SR
#3i72,a(SR

;FORCE TO BE (SR #1
;SET MAINT MODE
JSET FNCT?

:18 171 SET?
JFNCT2 IS CLEAR

010000
000004
000004

175740
175732
175724

BIT

#B8]T2,a(SR

000004
000004

175712
175704

BIC
BIT

#B1T2,a(SR
#B1T2,a(SR

BNE
HLT

BEG
HLT

sTEST FNCTZ2

sCLEAR FNCT?
JTEST FNCT?2

;WAS IT CLEAR?
JFNCT2 WAS SET

(ZDRLAO-DR11w GEN NPR INTF(

TEST 15 TEST THAT FNCT3 CAN BE

MACRO M1111

24=SEP=-79 10:39

SET AND CLEARED

1144

PAGE 21

SEQ 0032

LSBTTL TEST 15 TEST THAT FNCT3 CAN BE SET AND CLEARED

]145

:;.t!t!..ttt't".t...tltlQ"lt.ttl.'..fitt.........tQQQ.Q...Q!"t.tt.'t.t

1146

;

1147

1148
1149
1150 003170

000004

1151 003172

005077

1153 003204

052777

1152 003176

TEST

175672

SCOPE

CLR

aCSR

;FORCE TO BE (SR #1

BIS

#B]173,aCSR

:SET FNCT3

#3]T73,aCSR

:CLEAR FNCT3

012777

010000

175664

MOV

1154 003212
1155 003220
1156 003222

032777
001001
104000

000010

175650

1158 003232
1159 003240

032777
001401

000010

175636

BIT
BNE
HLT

1157 003224

1129 003242

15 TEST THAT FNCT3 CAN BE SET AND CLEARED

'-'-t..tlt..t..t.ttttt.Q.tQt't!'tl.lttt...tttt.tt...ttt'.t...t't..t"ttt.t

042777
104000

000010

175656

175630

BIC

BIT
BEQ

HLT

#B]T12,aCSR
#B]T3,aCSR
.+

#3]T3,aCSR
.+

;SET MAINT MODE

STEST FNCT3
1S IT SET?
:FNCT3 IS CLEAR

sTEST FNCT3
:WAS IT CLEAR?

FNCT3 WAS SET

(ZDRLAO=DR11w GEN NPR

XBA16 CAN BE

24=SEP=79 10:39

SET AND CLEARED

THAT

MACRO M1111

unwwwwwwogzgag

R
T
T

[
R

[

ONOWNES
W =00

—

16 TEST

——-— v

TEST

INTF(

L. ]
PAGE 22

SEQ 0033

LSBTTL TEST 16 TEST THAT XBA16 (AN BE SET AND (LEARED

AR ARRRARARAAAAARAARRAARAARNAAARARAAAAAAAAAAARAARRARARA
AR AR TR AR

TEST

16 TEST

THAT XBA16 CAN BE

SET AND CLEARED

.'"t'..'..Q..Q"......t".'.Qtl.....Q......t."..............Q.t...t..t'.

003244

003246
003252
003260
003266
003274
003276
003314
003316

000004

005077
012777
052777
032777
001001
042777
032777
0016401

104000

SCOPE

CLR

MOV

BIS
BIT
BNE

HLT
BIC

BIT

BEQ
HLT

a(SR

#B1T12,a(SR

#BIT4,a(SR
08274.3CSR
s ®

#3174 ,a(SR
18214.3CSR
s ®

;FORCE

TO BE

(SR #1

;SET MAINT MODE
;SET XBA16

:TEST XBA16

533 1T &1
JXBA16 IS CLEAR
;CLEAR XBA16
;TEST XBA16

;1S 1T CLEAR
JXBA16 WAS SET

RLAQ-DR 11W

GEN NPR INTF(
MACRO M1111 24=SEP=79 10:39
T 17 TEST THAT XBA17 CAN BE SET AND CLEARED

1180

. tttt.ttQt.tttQtt'.tt..t'ttt.ttttt..tttt.t'tt.t..ttttt'.tt'tt'tttttttnt

1182

1183

000004

SCOPE

005077
012777
052777
032777
001001

175542
010000
000040
000040

175534
175526
175520

1191 003354
1192 003362

042777
032777

000040
000040

175506
175500

1}32 003372

104000

1193 003370

TEST 17 TEST THAT XBA17 CAN BE SET AND CLEARED

1185 003322
1186 003326
1187 003334
1188 003342
1189 003350

1190 0C3352

SEQ 0034

.SBTTL TEST 17 TEST THAT XBA17 (AN BE SET AND CLEARED

1181

1184 003320

i 3
PAGE 23

104000

001401

CLR
MOV
BIS
BIT
BNE

a(SR
#81712,aCSR
#BIT5,aCSR
#BIT5,aCSR
.+

;FORCE TO BE (SR #1
sSET MAINT MODE
;SET XBA17
sTEST XBA17
IS IT SET?

BIC
BIT

#8175,aCSR
#3]1T75,aCSR

;CLEAR XBA17
;TEST XBA17

HLT

BEQ

HLT

.+4

:XBA17 IS CLEAR
;1S IT CLEAR?

‘XBA17 WAS SET

L R

CZDRLAO=-DR11W GEN NPR INTF(

MACRO M1111

TEST 20 TEST THAT 1E CAN BE SET AND CLEARED

1197

1198

CRARRAAR

1199

1200
1201 003374

1206 003424

001001

1208 003430
1209 003436
1210 003444
}g}; 003446

LSBTTL TEST 20 TEST THAT [E (AN BE SET AND (LEARED

R R AN ARRRARARAANRPARANR AR AN RN RAAAARARAAAARARRRRARRRRTRRARRERRAS

L
T
SCOPE

000004

005077
012777
052777

1207 003426

SEQ 0035

TEST 20 TEST THAT JE CAN BE SET AND CLEARED

1202 003376
1203 003402
1204 003410
1205 003416

24=SEP=79 10:39

Ty
PAGE 24

032777

104000

042777
032777
001401
104000

175460
175452

175444

175432
175424

(LR
MOV
BIS

a(SR
#MIT12,a8(SR
#MmIT6,8(SR

BNE

BIT

HLT

BIC
BIT
BEQ
HLT

#MIT6,8(SR

#MIT6,a(SR
#IT6,a(SR
*4

JFORCE TO BE (SR #1
;SET MAINT MODE
JSET IE
JTEST IE

IS IT SET?

;1€ IS CLEAR

;sCLEAR E
JTEST IE
;1S IT CLEAR?
;1E WAS SET

CZDRLAO=DR11wW GEN NPR INTFC
MACRO M1111 24=SEP-79 10:39
TEST 21 TEST THAT CYCLE CAN BE SET AND CLEARED
1214

1215

1216

1217

1218 003450

000004

PAGE 25

LSBTTL TEST 21 TEST THAT CYCLE CAN BE SET AND CLEARED

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

TEST 21

SCOPE

175412
010000

175404

CLR
MOV

a(SR
#IT12,a(SR

1222 003472

032777

000400

175370

BIT

#81T8,a(SR

1223 003500
1224 003502

001001
104000

1225 003504

042777

1227 003520

001401

1226 003512

1228 003522

1229

032777

104000

000400

175376

175356

175350

BIS
BNE
HLT

BIC

BIT

BEQ

HLT

RA R R R AR TR AR

TEST THAT CYCLE CAN BE SET AND CLEARED

005077
012777

052777

A AR

R AR AR R R AN R R AN AR R A AN AR AR R AN IR R AN AR AR AN AR AR

1219 003452
1220 003456

1221 003464

SEQ 0036

#8I1T8,a(SR
.+

#8178, 3(SR
#B178,aCSR

;FORCE TO BE (SR #1
sSET MAINT MODE

sSET CYCLE

sTEST CYCLE

JIS IT SET?
;CYCLE WAS CLEAR

;CLEAR CYCLE
sTEST CYCLE

;1S IT CLEAR?

:CYCLE WAS SET

R R AR R AR AR

CZDRLAO=-DR11W GEN NPR INTFC

TEST 22 TEST THAT MAINT CAN BE

MACRO M1111

SET AND CLEARED
AR

1242 003560
1243 003566

000
042777
032777
001401

1246 003572
]' Szg 003574

001401
104000

} gzlso 003570

104000

010000
010000

175310
175302

PAGE

3 o
26

SEQ 0037

LSBTTL TEST 22 TEST THAT MAINT CAN BE SET AND CLEARED

R RAR AR R AR AAARRAAARA AR ARARARAARARAARARAARARAAAARARRRAARAR
AR AR AR
AR

TEST 22 TEST THAT MAINT CAN BE SET AND CLEARED
AR

AR R AR AR RN R AR AR RN RN R AR R AR RN R AR

SCOPE

175330
175322

000004
005077
012777
032777
001001

9
£

236 003526
237 003532
538 003540
39 003546
2
1241 003552

24=SEP-79 10:39

CLR
MOV
BIT
BNE

a(SR
#81T12,3aCSR
#81T12,aCSR
.+

;FORCE TO BE (SR #1
;sSET MAINT
sTEST MAINT
s15 17 S&V?

BIC
BIT
BEQ

#817112,a(SR
#BIT12,9(SR
.+

;CLEAR MAINT
sTEST MAINT
;1S MAINT CLEAR?

BEG

.*4

HLT

JMAINT WAS CLEAR

JMAINT WAS SET

;1S IT CLEAR?

sCYCLE WAS SET

AR AR RN

R AR AR RN

CZDRLAQO-DR11W GEN NPR INTFC
MACRO M1111 24-SEP-79 10:39
TEST 23 THAT ALL CSR R/W BITS CAN BE SET AND CLEARED
1250

PAGE 27

SEQ 0038

_SBTTL TEST 23 THAT ALL CSR R/W BITS CAN BE SET AND CLEARED

1251

.':t.ttl.'t.Q..'QQ..Q"...'Q..i'..'tt.'.......Q.".."t......"Q.t'.'.'.'

1252
1253

:
:

S‘

;:Q..t.....tt.fi.t'.t...'t'..........Q.Q.Q...'.t"'t..t...!.t...t't.'...'

1255 003576
1256 003600

000004
005077

175264

1258 003612
1259
1260 003620

052777

020576

175250

032777

000002

175242

1262

104000

1257 0036064 012777 010000 175256

1261 0036‘3’8 001001
1263

003630

003632

032777

1264 003640 001001

000004

1265 003642

104000

1266 003644

000010

175216

000020

175204

000040

175172

1267 003652
1268 003654
1269 003656
1270 003664

032777
001001
104000
032777
001001

1271 003666 104000
12;% 003670
12

TEST 23 TEST THAT ALL CSR R/W BITS CAN BE SET AND CLEARED
MAINT MODE
( INTERNAL WRAP=AROUND)

003676

032777
001001

1274 003700 104000
1275
370% 032777
1276 003710 001001
1277 003712
1278 003714

104000
032777

1280 003724

104000

000100

1279 003722 001001

000400

1281 003726

032777

010000

1283 003736

104000

1282 003734

001001

175230

175160

175146

175134

SCOPE
CLR

aCSR

;FORCE TO BE CSR M

BIS

#20576.9CSR

BIT

#MIT1,a(SR

“SET FOLLOWING:MAINT(12), CYCLE(O8),IE(06),XBA17(05),
s
XBA16(04) ,FNCT3(03) ,FUNCT2(02)
,FNCTT(OT)
STEST FNCTT

MOV
BNE
LT

BIT

#81T12,aCSR
.+

BNE

#]T2,aCSR

BIT

#M173,aCSR

HLT

‘1S IT SET?
YFNCT1

IS CLEAR
JTEST FNCT?

‘1S 1T SET?

TFNCT2 IS CLEAR

:TEST FNCT3

BNE
HLT
BIT
BNE

#MIT4L,aCSR
.+

;1S IT SET?
YFNCT3 IS CLEAR
;TEST XBA16
;1S IT SET?

BIT

#MITS,a(SR

:TEST XBA17

HLT
BIT
BNE

#MIT6,9CSR

HLT

BNE

HLT
BIT

"MAINT MODE

BNE

#]78,a(SR

BIT

#MI1T12,aCSR

HLT

BNE
LT

.+
.+

‘XBA16 IS CLEAR
;1S IT SET?

*xBA17 IS CLEAR
JTEST IE
‘1S IT SET?
“1E IS CLEAR
JTEST CYCLE

1S CYCLE SET?

SCYCLE IS CLEAR

;TEST MAINT

;1S MAINT SET?
MAINT

IS CLEAR

CZDRLAO-DR11W GEN NPR INTF(
MACRO M1111 24~SEP-79 10:39
TEST 23 THAT ALL CSR R/W BITS CAN BE SET AND CLEARED
1285 003740
1286 003746

042777
032777

030576
000002

175122
175114

1289 003760

032777

000004

175102

1287 003754
1288 003756

1290 003766

1291 003770

001401
104

?81401

000

1292 003772

032777

1294 004002

104

1293 004000

001401

1295 004004
1296 004012
1297 004014

032777
001401
104

1299 004026
1300 004026
1301 004030

001401
104
032777

1298 004016

1302 004036
1303 004040

032777

001401
104

1304 004042

032777

1306 004052

104

1305 004050

001401

1307 004054

032777

]lg?g 004064

104000

1308 004062

001401

000010

175070

000020

175056

000040

175044

000100

000400
010000

BIC
BIT
BEQ
HLT

#30576,aCSR
#BIT1,aCSR

BEQ

BIT

HLT

BIT

BEQ

HLT

PAGE 28

#B1T2,a(SR
#B1T3,3CSR
.+

SEQ 0039
;CLEAR ALL R/W BITS IN (SR
JTEST FNCTI
;IS FNCT1 CLEAR?
:FNCT1 IS SET

sTEST FNCT?2

;1S FNCT2 CLEAR?

:FNCT2 IS SET
JTEST FNCT3

;1S FNCT3 CLEAR?

:FNCT3 IS SET

BIT
BEQ
HLT

#BIT4,aCSR
.+
.+

175032

BEQ
HLT
BIT

#BIT6,a(SR

;1S XBA17 CLEAR?
JXBA17 IS SET
JTEST IE

175020

BIT

#B1T8,a(SR

sTEST CYCLE

175006

BIT

BEQ
HLT

BIT

BEG

HLT

#B1T5,a(SR

#BIT12,3CSR
.+

;TEST XBA16
1S XBA16 CLEAR
JXBA16 IS SE

;TEST XBA17

;1S IE CLEAR?
;1E IS SET

;1S CYCLE CLEAR?
sCYCLE IS SET

sTEST MAINT

:1S MAINT CLEAR?

JMAINT IS SET

CZDRLAO-DR11w GEN NPR INTF(
MACRO M1111 24=SEP-79 10:39
TEST 24 ALL R/W BITS IN CSR CAN BE SET AND RESET TO ZERO
1312

:
:
:

1317

1322 004110

1323

1324 004116

1325 004122

1326 004126
1327 004130
1328 004132

1329 004134

000004

005077
012777
012737

052777
017701

010576

174746

167201

004737

014144

017701
042701

174722
127000

005201
001401
104000
000005

1333 004152
1334 004156

022701
001401

1%%2 004160

174774
010000
000010

052701

1330 004140
1321 004142
1332 004146

SEQ 0040

" "Q"Q'.Q'..Q.'.Q"'Q......".'.."..'..'..'....'....".QQ"..".'.'...'

1314
1315
1316

1319 004070
1320 004074
1321 004102

.SBTTL TEST 24 ALL R/W BITS IN CSR CAN BE SET AND RESET TO ZERO

1313

1318 004066

PAGE 29

104000

000200

TEST 24 ALL R/W BITS IN CSR CAN BE SET AND RESET TO ZERO, THAT READY
IS SET, NEX IS CLEAR,
GO IS READ AS A 0,AND ERROR IS CLEAR.
MAINT MODE
( INTERNAL WRAP=-AROUND)

AR R AR AR

SCOPE

174766
014122

174752

CLR
MOV
MOV

BIS

MOV

R AR AR

R AR R R

aCSR
#BIT12,3CSR
#10, 1 COUNT

:SET FOLLOWING:

aCSR,R1

*MOVE

#167201,R1

JSR

PC.CKSWR

MOV
BIC

aCSR,R1
#127000,R1

RESET
CMP
BEQ

HLT

R1
. +4

#200,R1
A

AR AN

RN AR T CR AR AR

;FORCE TO BE CSR #1
“MAINT MODE

#10576.aCSR

BIS

INC
BEQ
HLT

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

;

MAINT(12),CYCLE(08),IE(06),XBA17(0S),

XBA16(04) ,FNCT3(03) ,FNCT2(02) ,FNCT1(01)

(CSR) TO R1

“SETS BITS IN R1 THAT WERE NOT SET IN CSR
‘R1 SHOULD GO FROM -1 TO ZERD
"WERE ALL CSR R/W BITS SET?
*NOT ALL BITS WERE SET
;CLEAR ALL CSR R/W BITS

*MOVE (CSR) TO R1
“CLEAR ERROR,ATTN,DSTATA,DSTATB,DSTATC
“TEST FOR READY

:RESET DIDN'T LEAVE CSR AS IT SHOULD HAVE

CZDRLAO=DR11W GEN MPR INTF(
TEST 25 CSR AND EIR BITO TEST

MACRO M1111

1338

24=SEP=79 10:39

t &
PAGE 30

SEQ 0041

.SBTTL TEST 25 CSR AND EIR BITO TEST

1339

""'Qt'......'...'t'"'Q.'.'Q.'Q.Q'...'....'.Q..Q.....QQ'Q..Q'.'.Q.Q'."'

1340
1341
1342

:
:

13‘3

".'I.'..'.'....t'..t't.."'t'...t....."..t....fi..Q.."Q'Q.'."'tt.t.t'.'

1344 004162

000004

1347 004174

005077

1345 004164
1346 004172

1348 004200

1349 004206

1350 004210
1351 004212
1352 004220
1353 004226
1354 004230
1355 004232
1356 004236
1357 004244

}ggg 004246

TEST 25 CSR AND EIR BITO TEST
TEST THAT BITO OF (SR READS AS A ZERO
TEST THAT BITO OF EIR READS AS A ONE

032737
001426

000001

032777

001401

104000
012777
032777
001001
104000

005077
032777
001401

104000

SCOPE

001144

BIT
BEQ

#3170 ,B0RW
126

000001

174662

BIT

#81T0,aCSR

100000
000001

174650
174642

#31715,8CSR
#31T0,aCSR
Y

174632
000001

HLT
MOV
BIT
BNE
HLT

174624

BEQ

174670

CLR

BEQ

CLR
BIT

HLT

aCSR

;FORCE TO BE (SR

SYES IT IS A ZERO

aCSR
#8170,aCSR

:1S BITO A ZERO?

;BITO READ AS A ONE
*SET BIT1S TO GO TO EIR
:1S BITO A ONE?
SYES IT IS A ONE
:BITO READS AS A ZERO
:RETURN TO CSR
:DID WE GET BACK
:YES

‘NO WE ARE STUCK IN EIR

CZDRLAO-DR11w GEN NPR INTF(

TEST 26 THAT ATTN CAN BE

MACRO M1111

24=-SEP-79 10:39

SET VIA F2 & ERROR SETS

1361

PAGE 31

SEQ 0042

.SBTTL TEST 26 THAT ATTN CAN BE SET VIA F2 & ERROR SE1S

1362

:.'ttQnttQtfit't.tt"'tlt"ttttttttfittt..'tt'tttttt..tttt.'..ttQtt'tt.tt"

1364
1365

3
s

1363

1367 004250

1368 004252

000004

:-t.tttttltfi.ttt..t.tit.t'ttt.ttttttQtt.'tttttttt'Qnttttttttttttttt'tttt

1370
004262 012737 002000 014122
1371 004270 005077 174574
1372 004274 012777 010000 174566
1373 004302 022777 010200 174560

MOV
CLR
MOV
CMP

#2000,
I COUNT
aCSR
#B1T12,3CSR
#10200.aCSR

1375 004312
1376 004314

HLT
MOVB

#BIT2,aCSR

1374 004310

001401

104000
112777

1377 004322
1378 004330

032777
001001

1380 004334
1381 004342
1384 004354

1379 004332

1382 004350
1383 004352
1385 004360

1386 004362

1387 004364

1388 004366

001144

SCOPE

#81T0,B0RW

001444

000001

T26:

BIT

1369 004260

032737

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

TEST THAT ATTN,AND THEREFORE ERROR WILL CLEAR
MAINTENANCE MODE (INTERNAL WRAP-AROUND)

000004

174546

BEQ

020000

174540

BIT
BNE

042777
032777

020004
020000

174526
174520

BIC
BIT

017705

174510

104000

001401
104000
005705

100001

104000

005077

HLT

BEQ
HLT

MOV
ST

BPL
174476

HLT

CLR

127

#IT13,aCSR
L+
#20004 ,aCSR
#RIT13,aCSR
.+

@(SR,RS

.+4

a(CSR

:IF A 'B'' SKIP TEST
:FORCE TO BE CSR #1

*MAINT
“ONLY READY AND MAINT
:SOMETHING OTHER THAN READYEMAINT
SSET F2

“TEST ATIN
YIS IT SET?

“ATTN WAS CLEAR

“CLEAR ATTN & F2
;TEST ATTIN
*1S ATTN CLEAR?
CATTN WAS SET

:SAVE CSR #1

*1S ERROR CLEAR?
JERROR IS STILL SET

;RETURN TO (SR #1

CZDRLAO=DR11w GEN NPR INTF(
MACRO M1111 24=SEP=79 10:39
TEST 27 CAN WCR HOLD ALTERNATE ONES AND ZEROS
1392

t &
PAGE 34

SEQ 0043

LSBTTL TEST 27 CAN WCR HOLD ALTERNATE ONES AND ZEROS

1393

.'."Q'Ql'..'Qt..t"...t.t'.'.t".t'.t..t...lQ..Q..QQ"...t.t.t'ttt..tt..'

1394

;

1395

1396 004372

000004

1397 0064374
1398 004400
1399 004406
1400 004414
1401 004422
1402 004424

005077
012737
012777
022777
001401
104000

1405 004442
1406 006444

001401
104000

1403 004426
1404 004434

1407

012777
022777

1e7:

174470
002000
052525
052525

014122
174450
174442

125252
125252

174430
174422

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

R AR AR AR AR

SCOPE

RN AR AR AT

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

CLR
MOV
MOV
CMP
BEQ
HLT

aCSR
#2000,
1 COUNT
#052525,aWCR
#052525.aWCR
RV

:;ALT 0°'S AND 1°S TO WCR
:LOOKING FOR Z-BIT TO SET
‘DOES WCR HAVE THE CORRECT PATTERN?

BEQ
HLT

#125252,3WCR
#125050.aWCR
Y

-ALT 1'S AND 0'S TO WCR
:LOOKING FOR 2-BIT TO SET

MOV
CMP

:FORCE

R AR

TO BE (SR #1

“WCR DOESN'T HAVE THE CORRECT PATTERN
“DOES WCR HAVE THE CORRECT PATTERN?
"WCR DOESN'T HAVE THE CORRECT PATTERN

CZDRLAO=DR11wW GEN NPR INTF(
MACRO M1111
TEST 30 TEST THAT BAOO READS AS A ZERO
1409

24=SEP<79 10:39

1410

1411
1412

:
:

1413

1414 004446

000004

1415 004450
1416 004454

005077
012737

1418 004470
1419 004472
1420 004474

000240
000240
105777

1417 004462
1421
1422
1423
1424
1425

1426 004500

1427 004502

012777

010000

014122

174400

174370

032777

1430 004514

104000

001401

000001

174354

SEQ 0044

_SBTTL TEST 30 TEST THAT BAOO READS AS A ZERO
AR AR AR AN R R AR AR R AN AR R AN AR

R AR NN R AR R AN R AR AN R R AR AR

R R RN AR

R AR

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

AR R R AR AR

SCOPE

100401

104000

1428 004504

1429 004512

174414
002000

PAGE 35

CLR
MOV

MOV

NOP
NOP
TSTB

AR AR A AR AR AR AR AR AR

aCSR
#2000,

1 COUNT

:FORCE TO BE CSR #1

:MAINT MODE

a(SR

:IN MAINTENANCE MODE TESTING:READY
“CONTROLS LEVEL OF BAQO.MUST BE SET
*FOR BA00=0.ALSO,READY SET ALLOWS CSR
“TO BE READ.READING CSR WILL ENABLE
“CLOCKING OF 0 TO BAOO THRU REGISTER
*IN BOARD HARDWARE

BIT

#RI1T0,aBAR

HLT

BEQ

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

#81T12,aCSR

BM]

HLT

:READY NOT SET

;TEST BIT O OF BAR
YIS

CLEAR?

*BAOO IS SET

(ZDRLAO-DR11w GEN NPR INTFC(

MACRO M1111

TEST 31 CAN BAR HOLD ALTERNATE ONES AND 7EROS
1432

1433

1434
1635

:
:

1436

1437 004516

000004

1438 004520
1439 004524

005077
012777

174344
010000

1441 004540

005777

174324

1440 004532

1442 004544

012777

052524

174336

174326

052524

174374

012777

125252

174302

1447 004570

022777

125252

17¢270

1445 004600

104000

1445 004556

1446 004564

1448 004576

001401
104000
005777
001401

174300

PAGE 36

SEQ 0045

.SBTTL TEST 31 CAN BAR HOLD ALTERNATE ONES AND ZEROS

R AR AR RN R

R AR R R AR RN AR RN A AR R R AR R AR RN AR RE R RN SRR RN

TEST 31 CAN BAR HOLD ALTERNATE ONE'S AND ZERO'S
MAINT MODE (INTERN. WRAP-AROUND)

AR R R R R AR AR AR AR AR R R R R AR AR R A A AR R R R RN AR C R AR R R AR ARSI

SCOPE

022777

1443 004552
1444 004554

24=-SEP-79 10:39

CLR
MOV

a(SR
#IT12,aCSR

TST

a(SR

MOV

(MP

#052524 ,@BAR

;FORCE TO BE (SR #1
JMAINT MODE

JALT 0'S AND 1°S TO BAR

#052524 ,aBAR

;LOOKING FOR Z-BIT TO SET

MOV

#125252,aBAR

JALT 1'S AND 0'S TO BAR

(MP

#125252,aBAR

;LOOKING FOR Z BIT TO SET

HLT

:INCORRECT PATTERN

BEQ
HLT
TST

BEQ

a(SR
+4

AR e e r e

;DOES BAR HAVE THE CORRECT PATTERN?
;BAR DOESN'T HAVE THE CORRE(CT PATTERN

(ZDRLAO=DR11W GEN NPR INTF(

MACRO M1111

24=-SEP=79 10:39

TEST 32 INCREMENTING PATTERN TO WRAP-AROUND IN WCR

1451

1452

AR R AR

1453

1454

1455 004602

000004

1456 004604

005077

1458 004614

005001

1457 004610

1459 004616
16460 004622
1461

004626

1462 004630

SEQ 0046

LSBTTL TEST 32 INCREMENTING PATTERN TO WRAP-AROUND IN W(R
R RN R R R RN R R R AR R R R AR

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

TEST 32 INCREMENTING PATTERN TO WRAP-AROUND IN W(R

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

SCOPE

005037

014122

(LR

a(SR

:FORCE TO BE (SR #1

005077
020177

174242
174236

(LR
(MP

(LR

;SET=-UP

JARE

INC

aw(R

JGET NEXT NUMBER

BNE

INCWC

001401

104000

005277

1465 004640

001370

1466

174260

1463 004632

1464 004636

PAGE 37

005201

174226

(LR

INCWC:

BEQ

HLT
INC

1 COUNT

aw(R
R1,aw(R

;SET=-UP
JSEE IF THEY ARE EQUAL
THEY EQUAL?

;THEY'RE NOT EQUAL
JGET NEXT NUMBER

JDONE WITH TEST?

IF NOT CONTINUE

MACRO M1111 24-SEP-79 10:39 PAGE £8

CZDRLAO-DR11W GEN NPR INTF(
TEST 33 INCREMENTING PATTERN TO WRAP-AROUND IN BAR
1468
1469
1470
1471
1472
1473 004642
1474 004644

LSBTTL TEST 33 INCREMENTING PATTERN TO WRAP-AROUND [N BAR

] tt'...t.t'.".t.t"..t..'.'.'.ll.tt....'tt...-'Q.tflttt..t'.t.tl.t't...

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

1477 004656

1481 004674

062777
062701
001366

1476 004652

1478 004660
1479 004662
1480 004670

&
’

: .'Qt'.t.t.t.."'.'..l’.."."..'".'..'fi.!..Q.t..t"...'..t.t.'.l"hl'.

000004
005001
005077
020177
001401

1475 004646

SEQ 0047

1746214
174210

000002

INCBA:
176176

SCOPE
CLR
CLR

R1
aBAR

BEQ

BNE

#2,aBAR
#2,R1
INCBRA

CMP

HLT
ADD
ADD

;SET=UP
;SET=UP
;SEE IF THEY ARE EQUAL
JARE THEY EQUAL?
sTHEY'RE NOT EQUAL
JGET NEXT NUMBER
;GET NEXT NUMBER
JDONE WITH TEST?
IF NOT CONTINUE

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

PAGE 39

SEQ 0048

LSBTTL TEST 34 TEST THAT FNCT BITS CONTROL DSTAT BITS

1‘8‘.

:.-ttfi'ttt't.ttttQtQ'Qttt.t'tttttt.tt.t.t...ltltt't.t..fiQ'Q.tt"'t'.tt.tt

1485

1486

1487

1488 004676 000004

x5:

1489 004700

005077

174164

1491 004712
1492 004720
1493 004722
1494 004724
1495 004732

032777
001401
104000
052777
032777

000016

174150

000002
001000

174136
174130

1498 004744
1499 004752
1500 004754
1501 004756
1502 004764

032777
001401
104000
012777
052777

006000

174116

010000
000004

174104
174076

1504 005000
1505 005002
1506 005004
1507 005012
1508 005014
1509 005016
1510 005024

001001
104000
032777
001401
104000
012777
052777

1512
1513
1514
1515

001001
104000
032777
001401

1490 004704 012777 010000 174156

1496 004740
1497 004742

001001
104000

1503 004772 032777 002000 174070

1511 005032

005040
005042
005044
005052

1516 005054

005000

174056

010000
000010

174044
174036

032777 004000

104000

003000

174030
174016

TEST 34 TEST THAT FNCT BITS CONTROL DSTAT BITS

MAINTENANCE MODE (INTERNAL WRAP-AROUND)

R AR A

AR R AR AR AR AR AR RN

SCOPE
CLR

aC Sk

BIT
BEQ
HLT
BIS
BIT

#16,aCSR
.+

BIT
BEQ
HLT
MOV
BIS

#6000,aCSR
YA

BNE
HLT
BIT
BEQ
HLT
MOV
BIS

. +4

MOV

BNE
HLT

BIT

BNE
HLT
BIT
BEQ
HLT

#10000,aCSR
#BIT1,aCSR
#B1T9.aCSR
L+

#10000,aCSR
#8172,3CSR

#B81710,aCSR
#5000,aCSR
. +4

#10000,aCSR
#8173,aCSR

#81T11,3aCSR
L+

#3000,aCSR
|

R AR AR R AR AR AR AR

AR AR AR

RN AR AR AR AR AR

:CLR FUNCT BITS AND FORCE TO BE (SR #1

*MAINT MODE

*CHECK FUNCTION BITS
*FUNCTION BITS CLEAR?
*FUNCTION BITS NOT CLEAR
“SET FNCT1
“CHECK DSTAT ¢
SIS IT SET?
*DSTAT C IS CLEAR

;CHECK THAT DSTAT A AND DSTAT B ARE (CLEAR
;ARE THEY CLEAR?
*DCSTAT A AND/OR DSTAT B IS SET
*MAINT MODE
“SET FNCT2

“CHECK DSTAT B

SIS IT SET?
*DSTAT B IS CLEAR
;CHECK THAT DSTAT A AND DSTAT (C ARE CLEAR
*ARE THEY CLEAR?
;DSTAT A AND/OR DSTAT B IS SET
*MAINT MODE
“SET FNCT3

:CHECK DSTAT A

SIS IT SET?
:DSTAT A IS CLEAR
;CHECK THAT DSTAT B AND DSTAT ( ARE
SARE THEY CLEAR?
;DSTAT B AND/OR DSTAT

IS SET

CLEAR

(ZDRLAO-DR11w GEN NPR INTF(

TEST 35 TEST

MACRO M1111

24-SEP=-79 10:39

THAT RESET CLEARS BDR

1518
1519
1520
1521
1522

1523 005056

1524 005060
1525 005
1526 005072
1527 005100
1528 005104
1529 005106
1530 005114
1531 005120
1532 005122

PAGE 40

SEQ 0049

.SBTTL TEST 35 TEST THAT RESET CLEARS BDR

':'t'Q".Qt.t'.t...l..'Q"Q'fi"".t...'.ti".QQ....QQ'QQ.Q...Q....Q'..Q.

.
.

000004

005077
012737
012777
004737
000005
052777
005777
001401

104000

174004

000010
177777
014144

O
1

010000

173754

173752

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

2223 3323333333323

SCOPE
CLR

MOV
MOV

JSR

RESET

BIS

TST
BEQ
HLT

2332232232223

iRttt

aCSR

;FORCE TO BE CSR #1

#-1,a98DR

JALL ONES TO BDR

#10, ICOUNT
PC,CKSWR

#10000,aCSR

aBDR
.t

JINIT

sMAINT MODE

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

;BDR NOT (LEAR

ll)

(ZDRLAO=DR11w GEN NPR INTF(
MACRO M1111
TEST 36 TEST THAT ALL BDR BITS CAN BE SET
1534

1535

1536
1537

3
:

1538

1539 005124

005077
012737

1543 005146
1544 005154

012777
022777

1545 005162
1546 005164

PAGE 41

SEQ 0050

.SBTTL TEST 36 TEST THAT ALL BDR BITS CAN BE SET

AR AR R R R AR AR R R AR R R AR

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

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

AR AR R AR AR

R LR
R

000004

1540 005126
1541 005132

1542 005140

24=SEP=79 10:39

012777
001401
104000

SCOPE

173736
002000

014122

177777
177777

173716
173710

010000

173722

CLR
MOV

a(SR
#2000, ICOUNT

;FORCE TO BE (SR #1

MOV
(MP

#-1,38DR
#-1,98DR

;SET ALL BITS IN BDR
;LOOKING FOR Z-BIT TO SET
;SEE IF ALL BITS GOT SET
JALL BDR BITS AREN'T SET

MOV
BEQ
HLT

#10000.3CSR
.+

:MAINT MODE

CZDRLAO-DR11W GEN NPR INTF(
MACRO M1111 24-SEP-79S10:39
TEST 37 TEST THAT BDR CAN HOLD ALTERNATE ONES AND ZERO
1549

PAGE 42

SEQ 0051

.SBTTL TEST 37 TEST THAT BDR CAN HOLD ALTERNATE ONES AND ZEROS

1550

1553

R ey

1551
1552

1554 005166

:
:
000004

005077
012777

173674
010000

173666

1558 005210

022777

052525

173654

1560 005220

104000

1557 005202 012777 052525
1559 005216

1561 005222
1562 005230
1563 005236
}gglso 005240

001401

012777
022777
001401
104000

125252
125252

173662

173642
173634

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

1555 005170
1556 005174

CLR
MOV

aCSR
#10000,aCSR

;FORCE TO BE (SR #1
sMAINT MODE

CMP

#052525,3BDR

;LOOKING FOR Z-BIT TO SET

HLT

MOV

BEQ

MOV
CMP
BEQ
HLT

#052525 , 3BDR
R

#125252,aBDR
#125252,aBDR
.+

JALT 0'S AND 1'S TO BDR

;DOES BDR HAVE THE CORRECT PATTERN?
;BDR IS WRONG

JALT 1°'S AND 0'S TO BDR
;LOOKING FOR Z-BIT TO SET
;DOES BDR HAVE
;BDR IS WRONG

THE CORRECT PATTERN

AL L]

NTFC
CZDRLAQ-DR11w GEN NPR IN

MACRO M1111

24=SEP=79 10:39

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

’

‘

'
l

2223233233323

SCOPE

#81T0,BORW
1

MOV

02000 1COUNT

MOV

#81T12,3CSR

CMP

5
. aBDR
#5252

HLT

MOV
MOV
CMP

BNE

173510

333232333333 23

BIT
BEQ

BEQ

noONO

%
SBRRERTR
Sioioh S
e
g
90 005354

32223222322

22322220

R 2R

RRddddRRRdd

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

MOV

173522

SEQ 0052

.SBTTL TEST 40 THAT GOING TO EIR BLOCKS DATA XFERS FROM ODk TO IDR

2223333333323 323232333232323223320

CLR

81 005312

N_&

PAGE 43

HLT

#52525. aBDR
e

#110000,aCSR
#125252. 3BDR
. aBDR
#125252

. +4

CMP

#52525, aBDR

HLT
CLR

aCSR

BEQ

.+4

2323332332323 2233322232323

RddRRdddl])

;FORCE TO BE CSR
sSET MAINT MODE
;SET ALT 0°'S AND 1'S TO BDR
;LOOK FOR CORRECT PATTERN
;BDR IS GOOD
;BDR IS WRONG
;GO TO EIR
;SET ALT 1°'S AND 0'S TO BDR
;CHECK PATTERN
s SHOULD NOT CHECK OUT = OK
;DATA SHOULD NOT HAVE GOTTEN THROUGH
;TEST FOR OLD PATTERN

JALL IS FINE GO TO NEXT TEST
;BDR IS WRONG
;GO BACK TO CSR

dl)

CZDRLAO=DR11W GEN NPR INTF(
TEST &1

MACRO M1111

1593
1594

1595
1596

.
3

1597

1598 005360

1599 005362
1600 005366
1601
1602
1603
1604
1605
1606

000004

005077
012777

005374
005400
005402
005406
005412
005414

005037
005001
005077
020177
001401

1608 005422

005201

1607 005416

104000
005277

}g?g 005424

001370

1611
1612

24=SEP=79 10:39

INCREMENTING PATTERN TO WRAP-AROUND IN BDR

173502
010000

014122

173464
173460

173450

B S
PAGE 44

LSBTTL TEST &1

SEQ 0053

INCREMENTING PATTERN TO WRAP-AROUND IN BDR

AR R AR R AR R R AR R A AR R R AR AR R R AR

T41:

SCOPE

173474

INCDB:

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

A R IR R R RN R R AR

TEST 41 INCREMENTING PATTERN TO WRAP-AROUND [N BDR
MAINTENANCE MODE (INTERNAL WRAP-AROUND)

(LR
MOV

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

a(SR
#10000,aCSR

CLR
CLR
CLR
(MP
BEQ
he T

ICOUNT
R1
aBDR
R1,aBDR
.+

INC

aBDR

BNE

INCDB

AR AR TR R R AR R AN AN TR R AT

;FORCE TO BE CSR
JMAINT MODE
. SET=-UP
;SET=-UP
;SEE IF THEY ARE EQUAL
JARE THEY EQUAL?
;THEY'RE NOT EQUAL

JGET NEXT NUMBER
JGET NEXT NUMBER

;DONE WITH TEST? IF NOT CONTINUE

e o

CZDRLAO-DR11w GEN NPR INTFC(
MACRO M1111 24-SEP=79 10:39
TEST 42 TEST THAT GO CLEARS READY AND SETS AGAIN
1614

PAGE 45

SEQ 0054

.SBTTL TEST 42 TEST THAT GO CLEARS READY AND SETS AGAIN

1615

:.'QQtQtQ.'t.".'tt..Q.Qt."'...QQQ..Q.Q'..'.'Q'QQ'Q'.'Q.Qt"'t't.‘ttttt.

1616
1617

:
:

1618

TEST 42 TEST THAT GO CLEARS READY AND SETS AGAIN
MAINTENANCE MODE
( INTERNAL WRAP-AROUND)
AR R RN

1619 00542¢

000004

1621 005434

012737

002000

014122

MOV

1623 005450
1624 005456

022777
001401

010200

173412

CMP
8EC

1626 005462
1627 005470
1628 005476
1629 005504

012777
013777
052777
052777

177600
001152
000010
000001

173374
173370
173364
173356

1633 005522

052777

000400

173340

000004

001166

1620 005430 005077 173434
1622 005442

1625 005460

1630 005512
1631 005516
1632 005520
1634
1635
1636
1637
1638

005530
005534
005540
005542
005550

012777 010000
104000

105777
100001
104000

005037
105777
100406
062737
100401

1639 005552 000770

1640 005554
1641 005556

104000
000240

173352

001166
173330

SCOPE

173420

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

CLR

aCSR

:FORCE
TO BE CSR #1

MOV

#10000,aCSR

:MAINT MODE

MOV
MOV
BIS
BIS

#-200,aWCR
INBUF ,aBAR
#10,aCSR
#1,3CSR

:SET=UP WCR
*SET-UP BAR
*FNCT3(NON BURST)
*G0 CLEARS READY

BIS

#400,3CSR

“SET CYCLE AND START XFERS

B8R

TSTRDY

HLT

1STB
BPL
HLT

CLR
TSTRDY: TSTB
8M]
ADD
BM]
DONE:

AN R A AR AN

HLT
NOP

#2000, 1 COUNT
#10200.aCSR
.+

aCSR
. +4

RDY CHK
@CSR
DONE
#4 ,RDYCHK
.+

“ONLY READY

*CHECK READY
*IS READY CLEAR?
JREADY IS STILL SET

*CLEAR READY CHECK
*CHECK READY
*IF SET GO TO DONE
;:CHECKING TIME FOR READY TO BE SET
;IF RDYCHK GETS NEGATIVE IT TOOK TOO LONG

*CHECK AGAIN

:READY GOT CLEARED BUT NEVER SET AGAIN
;GO TO NEXT TEST

CZDRLAQ-DR11w GEN NPR INTF(

MACRO M1111

24«=SEP=79 10:39

TEST 43 TEST THAT DR11W DOES INTERRUPT WITH PROC AT LEVEL 3
1645

::t.'Q"t't."."'..'..."'.'...fi'QQ..'.".Q.Q.Q....'Q'.'.Q'Q.'...Qt'."

TEST 43 TEST THAT DR11-W DOES INTERRUPT WITH PROC AT LEVEL

1646

MAINTENANCE MODE
( INTERNAL WRAP-AROUND)

1647

‘11223

INTERRUPT VIA ATTN

000004
005077

1655 005604

004737

014144

1657 005612

032777

000200

1659 005622

104000

1652 005566 012777
1653 005574 032777
1654 005602 001010
1658 005620 001001

173302

000140
000200

1660 005624

012777

005720

1663 005646

052777

000101

1666 005670

005337

001312

1669 005704
1670 005710

005077
104000

X :

173206
173266

173304

1664 005654 052777 020004
1665 005662 012737 001000

173206
001312

1673 005714

000137

005077

}2% 005734

005077

1679

173230

RESET

BIT

BNE
P3INV:

173214

22%:

173232

022626
013777

HLT

aCSR

#140,3PSW
#BIT7.aCSR
PIINV
PC.CKSWR

#BIT7.3CSR

MOV

#P3INT ,@DRINV

BIS

#101,aCSR

MOV
MOV
BIS
MOV
DEC

BNE
MOV

CLR
HLT

000005

1674 005720

1675 005724
1676 005726

001140

MOV
BIT
BNE

173250

173300
173222

001375
013777

SCOPE
CLR

JSR

1661 005632 012777 000340
1662 005640 012777 010000

}g;} 005712

::Qttt'Q.'..Q.'Q'.."..."'Q.t'..'fi...'.t."..'...t'."'.'.'.tt't..".t'

1650 005560
1651 005562

1667 005674
1668 005676

SEQ 0055

LSBTTL TEST 43 TEST THAT DR11w DOES INTERRUPT WITH PROC AT LEVEL 2

1644

1656 005610

PAGE 47

#340,aDRVS
#10000,aCSR

#20004
. aCSR
#1000, TIME
TIME

22%
DRVS,@DR
INV
aDRVS

RESET

005740
173144

001140

173200

P3INT:

173202

JMP

;FORCE TO BE (SR #1
;STATUS AT LEVEL 3
s CHECK READY BIT
JIS IT SET?
JINIT TO SET READY
;SEE IF READY IS SET NOW
IS IT SET
;READY CAN'T BE SET BY INIT
;SET UP INT VECTOR
;JMAINT MODE

;1E,GO
;[S)ETAATTN: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 OUTSTANDING
s INTERRUPT REQUEST IN BOARD HDWK.

CLR

aCSR

;CLEAR IE

CLR

aDRVS

JRESTORE

CMP
MOV

(SP)+, (SP)+
DRVS, aDRINV

JREPCSITION THE STACK AFTER AN INTERRUPT
JRESTORE INTERRUPT VECTOR
TRAP (CAT(CHER

CZDRLAO-DR11W GEN NPR INTF(C
MACRO M1111 24-SEP-79 10:39
TEST 44 THAT DRY1wW DOES NOT INTERRUPT WITH PROC AT LEVEL 7
1682

1683

1684
1685
1686

:
;
;

1687

000004

1690 005746

005037

014122

1692 005760

032777

000200

1691 005752

1693 005766
1694 005770
1695 005774

1696 005776

1697 006004
1698 006006
1699 00601C
1700 006016
1701 006024
1702 006032
1703 006040
1704 006046
1705 006054
1706 006060
1707 006062
1708 006064
1709
1710
1711
1712
1713
1714

006072
006076
006100
006102
006106
006114

};}g 006120

012777
001010
004737
000005

032777

001001
104000
012777
012777
012777
052777
052777
012737
005337
001375
000005
013777

005077
000411
022626
005077
013777
005077

104000

PAGE 49

SEQ 0056

.SBTTL TEST 44 THAT DR11W DOES NOT INTERRUPT WITH PROC AT LEVEL 7

A AR AR AR AN AR

AR R AN

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

TEST 44 TEST THAT DR11-W DOES NOT INTERRUPT WITH PROC AT LEVEL 7
MAINTENANCE MODE (INTERNAL WRAP=AROUND)
INTERRUPT VIA ATTN

:'.'.t.t't'tttttttt't'..'ttttttQtfi'.ttttt"!tt.t.ttttittttttttttttttt..t

1688 005740

1689 005742 005077

X7:

173122

000340

173102

006100
000340
010000

173120
173114
173036

000101

020004

001140

173044

173042

172762
001140
173020

P7INV:

22%:

P7ERR:

173022

#340,aPSW

:STATUS AT LEVEL 7

BNE

P7INV

SIS IT SET

BIT

173022

001312

MOV
JSR
RESET

173030

001000
001312

:FORCE
TO BE (SR #1

BIT

014144

173064

aCSR

CLR

173022

000200

SCOPE

CLR

BNE
HLT
MOV
MOV
MOV
BIS
BIS
MOV
DEC
BNE
RESET
MOV
CLR
BR
(MP
CLR
MOV
CLR

HLT

1COUNT

#BIT7,aCSR
PC,CKSWR

#BIT7.aCSR
.+

#P7ERR ,aDRINV
#340,aDRVS
#10000,aCSR

:CHECK READY BIT

JINIT TO SET READY

“SEE IF READY IS SET NOW

*1S READY SET?
:READY CAN'T BE SET BY INIT
;SET UP INT VECTOR

-MAINT MODE

#101,aCSR

:1E,GO

#1000, T IME
TIME
22%

:DELAY

#20004 ,aCSR

DRVS
, aDRINV

aDRVS
X1
(SP)+,(SP)+
aCSR
DRVS,
@DR INV
aDRVS

JSET ATTN;ERROR SETS,SETS READY,AND INTERRUPT OCCURS

;CLR IE,OUTSTANDING INTERR REQUEST

;RESTORE STACK
*CLEAR IE

:DR11=W INTERRUPTED, BUT T SHOULDN'T HAVE

MACRO M1111
24-SEP-79 10:39
(ZDRLAO-DR11w GEN NPR INTFC(
TEST 45 THAT DR11W DOES INTERRUPT AND INDICATE BR LEVEL

SEQ 0057

.SBTTL TEST 45 THAT DR11W DOES INTERRUPT AND INDICATE BR LEVEL

1718
1719

::.'ttQQ.'.'....Q'Q.QQQ.".'.'Q.Q..‘Q.t.'fi.'.'...'ttt..'t."Q.".'Q'..'Q

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

1720

1721
1722
1723
1724
1725
1726
1727

PAGE 50

INTERRUPT VIA ATTN

:;t'.t.ttt.'t."".fi..t."'.tt'.tt..'tt..t.Q...Qt'..'t'.""'tt..'.'tttt

006122
006124
006132
006136

1728 006144
1729 006146

1730 006152
1731 006154
1732 006162
1733 006164
1734 006166
1735 006174
1736 006202
1737 006210
1738 006216
1739 006224

000004
012777
005077
032777

004737
000005
032777

000340
172732
000200

172650

172724

014144

000200

172706

172742
172736
172660
172652
172644

001312

1740 006232

SCOPE

MOV
CLR

BIT
BNE
JSR

RESET

BIT
BNE

HLT
MOV
MOV
MOV
BIS
BIS
MOV

#340,9PSW
aCSR

;STATUS AT LEVEL 7
sFORCE TO BE CSR #1
;CHECK READY BIT

#8177 ,3CSR
PINV

;IS

PC.,CKSWR

sINIT TO SET READY

#8177 ,aCSR
.+

;SEE IF READY IS SET NOwW
;1S READY SET?

#BRLEV,aDRINV
#340,aDRVS
#10000,aCSR

172666

172570

001140

172626
177437

#1000, TIME

;DELAY

#20004 ,aCSR
T IME

aPSW,LEVEL

023412

54 006324
55 006326

59 006336

023412
001351
001351
006360

013746

023412

104401

001351
001351

104405
104401

172630

023412

MOV
ASR
ASR
ASR
ASR
ASR
MOV

TYPE
TYPE
TYPE

BR
LASCIZ
MOV

TYPDS
TYPE
TYPE

;SET UP INT VECTOR

JMAINT MODE
;1E,GO

DRVS ,aDRINV
aDRVS

023412
172512

JREADY CAN'T BE SET BY INIT

#101,aCSR

22%

1741 006236
1742 006240
1743 006242
1744 006250
1745 006254

IT SET

:SET ATTN;ERROR SETS,SETS READY,AND INTERRUPT OCCURS

:CLR IE,OUTSTANDING INTERR REQUEST
;SAVE OLD STATUS LEVEL

#40,3PSW
NSTAT
(SP)+,(SP)+
aCSR
DRVS ,aDRINV
aDRVS
#177637 ,LEVEL

:NEW PSW
:TRY AGAIN
;RESTORE STACK
sCLEAR JE

R1
R1

s INTERRUPT
JLEVEL

LEVEL R
R1

:GET

;BR

R1
R1
R1,LEVEL

LSCRLF
LSCRLF

,65%
64%

/TEST 40:

DR11W INTERRUPT LEVEL

LEVEL,.=(SP)
.SCRLF
.$CRLF

;2TYPE ASCIZ STRING
::GET OVER THE ASCIZ
=/

;sSAVE LEVEL FOR TYPEOQUT
;.60 TYPE--DECIMAL ASCII WITH SIGN

1769

G
MACRO M1111
24=SEP=79 10:39 PAGE 52
(ZDRLAO=DR11w GEN NPR INTF(
TEST 46 THAT GIVING A GO WITHOUT CLEARING ERROR CAUSES INTRPT

SEQ 0058

.SBTTL TEST 46 THAT GIVING A GO WITHOUT CLEARING ERROR CAUSES INTRPT

222 2222322202332

TEST 46 TEST

3222233222323

2323 222223222

Rttt

)

THAT GIVING A GO WITHOUT CLEARING A PREVIOUS

ERROR CAUSES ANOTHER INTERRUPT

000004
005077
012777

1787 006524

15s:

1724622

012777
005077
012777
052777
052777
012737
005337
001375

it i22

100401
104000

012777
005077
012777
005277
005037
005227
001375

CLR

22%:

006632

006614

172362

177777

172276

172306

172276

006600
000001

006632
172246

104000

004737

ERRDO:

172326

104000

000005
000137
022626
005777

2232322333323

SCOPE
CLR
MOV
MOV

104000

000005
000137
022626
005777

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

010156

1%:

MOV
BIS
BIS
MOV
DEC
BNE
HLT
RESET
JMP
cMP
TST
BMI
HLT
MOV
CLR
MOV
INC

CLR
INC

aCSR

#ERRDO,aDRINV

#140,aDRVS
aPSw
#10000,aCSR
#101,aCSR
#20004 ,aCSR

#1000, TIME
T IME

22%

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

#ERRDO1 ,aDRINV
aBAR
#-1,3WCR
a(SR

18+2

BNE
HLT

JMP

T60

TST

aCSR
YA

RESET

: CMP
ERRDO1
8PL
HLT

JSR

2332223222222

(SP)+,(SP)+

PC ,NORMAL

22222320

2Rt Rttt

;FORCE TO BE CSR #1
s INTERRUPT VECTOR TO ERRDO
s INTERRUPT STATUS TO LEVEL 4
JLET THE DR11=W INTERRUPT
;MAINT MODE
JIE .60
; SET ATTN AND INTERRUPT

;DELAY

sNO DR11-W INTERRUPT
;CLEAR OUTSTANDING INTERR. REQST.
;READJUST STACK
;TEST CSR
;ERROR SET?
;ERROR IS CLEAR = SHOULD HAVE ERROR
s INTERRUPT VECTOR TO ERRDO1
sPREVENT CAUSING ANOTHER ERROR

;SET-UP WCR
;GO TO CSR

sDELAY;WAIT FOR INTERRUPT
sNO DR11-W INTERRUPT
;CLEAR INTERRUPT REQUEST
; CHECK ERROR

;ERROR SET?
JERROR IS SET - SHOULD BE CLEAR
JPREVIOUS ERROR WAS (LEAR

CZDRLAQ=-DR11w GEN NPR INTF(
MACRO M1111 24-SEP-79 10:39 PAGE 53
TEST 47 THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSFERS
1813

1814

1816

1815

1817 006632
1818 006634

1819 006640
1820 006646
1821 006654
1822 006662
1823 006670
1824 006676
1825 006704
1826 006710
1827 006716
1828 006722
1829 006730
1830 006736
1831 006744

1832 006750

1833 006752
1834 006754

1835
1836 006756

1837 006762

1838 006764
1839 006770
1840 006774
1841 006776
1842 007002

1843 007004

000004
005077

012737
013777
012737
012777
013777
013737
005437
013777
005077
012777
052777

(012737
005337

001375

001000
001312

014122
172212
001202
172246
172242
001306
172146
172140
172132

0Ci312

007024

117701
042701
006201
123701

172100
000700

022626

001401

104000

1846 007020

001401

022737
000717

R AR R

A AR AN AN A AR

SCOPE
CLR

MOV
MOV
MOV
MFLOOP: MOV
MOV
MOV
NEG
MOV
(LR
MOV
BIS
1$:

T60CHK:

001202
001202

000010

MOV
DEC

BNE

AR R AR AR RN R AR

AN AR RN

A AR

R AR AR RR

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

aCSR

;FORCE

#1000, T IME
T IME

;WAIT FOR INTERRUPT

RN R AR AR R AR AR

TO BE CSk

#2000,
I COUNT
INBUF , @BAR
;SET-UP BAR
#1 FNCCNT
;GET READY FOR CHECKING
#T60CHK ,@DRINV ; INTERRUPT VECTOR
DRINL ,aDRVS
s INTERRUPT VECTOR PRIORITY TO DRINL
FNCCNT , TEMP
;NUMBER OF TRANSFERS
TEMP
;SET UP FOR WCR
TEMP,aW(R
;SET=UP FOR 1 TRANSFER
aPSw
;LET THE DR11-W INTERRUFPT
#10000,aCSR
JMAINT MODE
#501,aCSR
;1E,CYCLE & GO
%

;NO INTERRUPT OCCURRED
;IF NO INTERRUPT,CLEAR ANY OUTSTAND ING

JMP

T61

s INTERRUPT REQUEST IN BOARD HDWR.
;GO TO NEXT TEST

MOvB
BIC
ASR
(MPB

a(SR,R1
#700,R1
R1
FNCCNT R1

;LOWER BYTE OF CSR TO R1
;GET RID OF READY,CYCLE,IE BECAUSE OF MAINT MODE
;JMOVE IT RIGHT ONE PLACE
;CHECK AGAINST FNCCNT

(MP

BEQ

HLT

001202

R AR R R R AR R R AR AR AR AR

TEST &7 TEST THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSFERS

HLT
RESET

000137

005237

1847 007022

002000
001152
000001
006762
001074
001202
001306
001306
172060
010000
000501

T60:

SEQ 0059

LSBTTL TEST 47 THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSFERS

AR AR

104000
000005

1844 007006

1845 007012

172230

INC

(SP)+,(SP)+

FNCCNT

#10,FNCCNT

MF L OOP

BEQ

161

;SHOULD BE EQUAL

JFUNCTION BITS DIDN'T INCREMENT
;GET READY FOR NEXT PASS

IN MAINT MODE

JONLY 10 BECAUSE FNCT3-1 GO TO ZERO
;IF

ITS EQUAL

;DO IT AGAIN

GO CHECK DATA

(ZDRLAO-DR11w GEN NPR INTF(

TEST

50 TEST FOR 10 MAINT MODE

1849
1850
1851
1852
1853 007024
1854 007026
1855 007032
1856 007040
1857 007046
1858 007052
1859 007056
1860 007062
1861 007070
1862 007076
1863 007104
1864 007112
1865 007120
1866 007124
1867 007132
1868 007140
1869 007146
1870 007152
1871 007154
1872 007156
1873

1874
1875
1876
1877
1878
1879
1880

007160
007164
007170
007174

007176
007202

24=SEP=79 10:39

MACRO M1111

TRANSFERS

I
PAGE 54

SEQ 0060

LSBTTL TEST 50 TEST FOR 10 MAINT MODE TRANSFERS

AR AR AR AR AR AR AR

R AR A A AR AARRARARAAAAAAAARAARAA
AR AR AR
TR R

TEST 50 TEST FOR 10 MAINT MODE
e

172036

2223222323323

T61:

001156
001164

CLR

MOV
MOV

NEG
JSR

JSR
MOV
MOV
MOV
MOV
MOV
(LR
MOV
BIS

171774
171770
171766
172024
172020
171736
171730

001312

SCOPE

1%:

MOV
DEC

BNE
HLT

3333232302222

2222222222

2Rl

Rttt

;FORCE TO BE (SR #1
;BUFLEN=10

#-1,38DR

INBUF , @BAR

;SET UP BAR
JMAINT AIDE

DRINL ,@DRVS
aPSwW
#10000,aCSR

s INTERRUPT STATUS AT PRIORITY DRINL
sLET DR11-W INTERRUPT
;MAINT MODE

#1000, TIME

JWAIT FOR INTERRUPT

WCLEN
PC, LODBUF
PC, CHKBF F
WCLEN,aWCR

;PREPARE NUMBER FOR W(CR

;2'S COMPLEMENT OF BUFLEN
JLOAD IN BUFFER WITH INCREMENTING PATTERN
;LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
;SET UP WCR

#T61CHK ,aDRINV ; INTERRUPT VECTOR

#501,aCSR
uME

JSR
JSR

PC,INTA
PC,DATCHK

JSR
JSR

PC,INTA

JMP
CMP

TRANSFERS

a(SR
#10,BUFLEN
BUFLEN,WCLEN

RESET

T61CHK:

2223222222

;1E,CYCLE & GO

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

T61.5

(SP)+,(SP)+

PC,DAT(HK

;CLEAR [E,CHECK ERROR,READY,W(=0,g BAR

(ZDRLAO=DR11w GEN NPR INTF(

TEST S1

10 MAINTENANCE MODE

MACRO M1111

XFERS

24=SEP=79 10:39
LSBTTL TEST 51

1882
1883
1884
1885
1886

'GO"

161.5:

SCOPE
CLR
MOV
MOV

1934 007514

aCSR
#10, 1COUNT

#340,aPSW
#1000, TIME
PC, LODBUF
PC . CHKBFF

<
o

1920 007442
1921 007446
1922 007450
1923 007456
1924 007460
1925 007462
1926 007470
1927 007472
1928 007500
1929 007502
1930 007504
1931 007506
1932 007510
1933 007512

FROM INITIATING FURTHER XFERS

#10,BUF LEN
BUF LEN, WCLEN
WCLEN

b
b
b
b
b ath ab
b
b

ONOWVSWN=O

10 MAINTENANCE MODE XFERS

AR RARNRAARRAARAAARRAARARARAARAAARARARARAAAAARRARARARRTA
AR
TRRTRR RN

WCLEN, aWCR
@BAR
. UF
INB
#-1,38DR
MJRONG
1 , @DRINV
DRINL ,@DRVS
#10000, aCSR
#501,aCSR

WRONG1:

TIME
18
PC,INTA
PC .DATCHK
oK
(SP)+,(SP)+

0K
:

NRM
#10000,aCSR

#1000, TIME
WCLEN,aWwCR
INBUF ,aBAR
#WRONGZ
, aDRINV
#10000,aCSR
#501,aCSR

b
b
ol
b
b
b
b
)
i o

SEQ 0061

TEST 51 TEST THAT DOING 10 MAINTENANCE MODE XFERS
WITHOUT EXPERIENCING AN INTERRUPT,WILL INHIBIT

1%:

VOOV
OV OVOOVOVO0

;;t..Q"t.'..!............'..'.'Q'..Q.Q..Q.Q'....'.'.t........'.'QQ.'..Q

1887
1888 007206
1889 007210
1890 007214
1891 007222
1892 007230
1893 007236
1894 007244
1895 007252
1896 007256
1897 007262
1898 007266
1899 007274
1900 007302
1901 007310
1902 007316

1935

PAGE 55

3%:
BEQ
HLT

171374

171366

;CLR IE,CHECK ERROR,READY ,wW(C=0,BAR

s CHECK PROPER DATA

;SHOULD NOT INTERRUPT

;JNO INTERRUPT 1ST TIME

;MAINT MODE
;IE,CYCLE.GO

#-10,aWCK

;CSR IN ERROR
sCHECK THAT NO XFERS WERE MADE

@BAR
, UF
INB

5%:

WRONG? :

BR
cMP

NRM
(SP)+,(SP)+

HLT
JSR

;WAIT FOR XFERS COMPLETE

JONLY READY MAINT,IE,& CYCLE

RSET

RESET

sNO CPU INTERRUPT
;SET DELAY
;BUFLEN=10
;PREPARE NUMBER FOR WCR
;2'S COMPLEMENT OF BUFLEN
sLOAD IN BUFFER WITH INCREMENTING PATTERN
JLOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
;SET UP WCR
;SET UP BAR
sMAINT AIDE
: INTERRUPT VECTOR
s INTERRUPT STATUS AT PRIORITY DRINL
sJMAINT MODE
;1E,CYCLE & GO

#10700,aCSR

CMP
BEQ
HLT

RSET:

010156

T IME

;FORCE TO BE (SR #1

PC ,NORMAL

;XFERS SHOULD HAVE BEEN INHIBITED

sWILL ELIMINATE ANY OUTSTANDING INTERRUPT REQUESTS
JREADJUST STACK
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

:.'....l..t.'.""l'...‘."'..t.QQ.....i.fi....'.".'tt'.'t.t....tt...Qt.'

1939

1%0

TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE

.'"Q.'.tt..t'."."'...'.'..fi't....Q'.'..."....'....t.t'.t.'."t.t"'Ql.

000004

1942 007522
1943 007526
1944 007534

005077
012737
012737

171342
002000
0002006

1946 007550

005437

001164

1948 007560
1949 007564
1950 007572
1951 007600
1952 007606
1953 007614
1954 007622
1955 007626
1956 007634

004737
013777
013777
012777
012777
013777
005077
012777
052777

007752
001164
001152
000001
007676
001076
171154
010000
000501

1958 007650
1959 007654
1960 007656
1961 007660
1962
1963 007662
1964 007666

005337
001375
104000
000005

001312

SCOPE

014122
001156

CLR
MOV
MOV

aCSR
#2000,
1 COUNT
#200 ,BUF LEN

;FORCE TO BE CSR #1

NEG

WCLEN

12'S COMPLEMENT OF BUFLEN

1945 007542 013737 001156 001164

MOV

1947 007554

JSR

1957 007642

1965 007672

1966 007676

1967 007700
1968 007704

1969 007710

SEQ 0062

LSBTTL TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE

1938

1941 007520

PAGE 56

004737

012737

004737
004737

000137
022626

007714

001000

171272
171266
171264

171322
171316

171234
171226

001312

1%:

010016
010116

010276

004737

010016

000137

010276

004737

JSR
MOV
MOV
MOV
MOV
MOV
CLR
MOV
BIS

010116

MOV

DEC
BNE
HLT
RESET
JSR
JSR

T62CHK:

IMP
CMP

BUFLEN.WCLEN
PC, LODBUF

PC . CHKBF F
WCLEN, aWCR
INBUF , @BAR
#1,aB0R
#T62CHK ,@DRINV
DRINL ,@DRVS
aPSW
#10000, aCSR
#501,aCSR

#1000,
T IME
T IME
1%

PC,INTA
PC . DATCHK

-PREPARE NUMBER FOR WCR

“LOAD INBUF WITH INCREMENTING PATTERN

“LOAD CHKBUF WITH MODIFIED [NCREMENTED PATTERN
“SET UP WCR
*SET UP BAR
‘MAINT AIDE
- 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.

143

(SP)+,(SP)+

JSR

PC, INTA

IMP

142

JSR

:LENGTH OF BUFFER = 200

PC . DATCHK

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

THAT CORRECT DATA WAS

TRANSFERRED

CZDRLAO-DR11W GEN NPR INTF(

MACRO M1111 24-SEP=79 10:39 PAGE 57

5
SEQ 0063

TEST 52 TEST FOR 200 NPR TRANSFERS IN MAINT MODE

1971 007714
1972 007720
1973 007724
1974 007726
1975 007732
1976 007740
1977 007742
1978 007746
1979 007750
1980 007752
1981 007756

013702

001152
001160

001160
001160

001156

001160

LODBUF: MOV
CLR
CLR
LOADA:
INC

CMP
BEQ

MOV
BR
LDEXIT: RTS
: MOV
CHKBFF

001154
001160

171044

CHKBUF ,R2

:STARTING ADDRESS OF CHECK=BUFFER TO RZ2
sCLEAR LENGTH CHECK
;CLEAR R3
;MOVE R3 TO CHKBUF ADDRESS AND INC BY 2
;MOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2
JADD 2 TO LENGTH CHECK

LENCHK
R3
R3,(R2)+
R3,(R2)+

#81T76,aCSR
aCSR
.+
aCSR

aw(R
.+

001401

104000

BUFLEN,R2
BUFLEN,R2
INBUF ,R2

013702
063702
063702
005737
001401
005202

CABLE

1%
R2

CHKBUF , X2

:
COMPAR

LENCHK
LENCHK

170752

000340

170604

:
NORMAL

:WC NOT = 0

;BUFFER LENGTH TO R2
:NUMBER OF XFERS TIMES 2
;CORRECT BAR
;1S THIS CABLE TESTING?
:NO

;CABLE MODE TESTING LEAVES BIT 0

JEXIT

DATCHK:

170750

;1S CHECK-BUFFER FILLED?
JNEXT NUMBER FOR BUFFER
;CONTINUE FILLING
JEXIT
;CLEAR IE
;CHECKING FOR ERROR
;ERROR SET?
;ERROR BIT IS SET
;CHECKING READY BIT
;1S READY SET
;FALSE INTERRUPT = ERROR AND READY ARE CLEAR
:TEST1 FOR WCR=0
;WAS IT EQUAL?

PC ,NORMAL
PC

013702
013703

001140

;CHECK FOR DONE

aBAR R2

1%:

000
013777
005077
012777

JEXI

;OF BAR SET.THEREFORE MUST (HE(CK
;FOR ODD ADDRESS.
; CHECKKING BAR
:*3 BAR CORRECT

027702
001401
104000
004737
000207

001156

CMP

;IS INBUF FILLED?
;LOAD NEXT BUFFER WORD

:E;N;IMJE CHECKING

LEN
HK
,BUF
LENC
+10

INTA:

;MOVE STARTING ADDRESS OF INBUF TO RZ
;CLEAR LENGTH CHECK
;CLEAR STARTING ADDRESS OF INBUFF AND INC BY 2
s INC LENGTH CHECK BY 1
;CHECK FOR DONE

LOADA

#2.R3

[« W4,V]

—

Vo~
oo

b
-d

88
VONOWVESWN
<O

LENCHK, (R2) +

#2 ,LENCHK

—

) wd

S SSsssss
ZERERRE 888

Q (elelelolololelelelele]

g $88238282838

2001 010054

RN
3

CHKA:

CLR
CLR

INBUF ,R2

LENCHK
(R2)+
LENCHK
LENCHK ,BUF LEN
LDEXIT

,3
INBUF

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

,BUF LEN
LENCHK
COMPAR
X7
DRVS ,aDRINV
aDRVS
#340,9PSW

;STARTING ADDRESS OF CHECK BUFFE R TO R2
IN BUFFER T 0O R3
;CLEAR LENGTH CHECK
JMAKE A COMPARISON
:1S THE DATA CORRECT?
;BRANCH IF 0K
;BAD DATA
:SEE IF THE BUFFER HAS BEEN CHECKED
JBUFFER CHECKED?
;STARTING ADDRESS OF

;RESTORE DR11-8 INTERRUPT VECTOR
sRESTORE DR11-B INTERRUPT STATUS

JRESTORE PROC TO PRIORITY LEVEL 7

24=-SEP=79 10:39
MACRO M1111
(ZDRLAO-DR11w GEN NPR INTF(
TEST S2 TEST FOR 200 NPR TRANSFERS IN MAINT MODE
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 010264
2047 010270
2048 010272
2049 010274
2050
2051

RTS

000207
012702
013703
005037

DATOCK: MOV
MOV
CLR
COMPRR: INC
CMP
BEQ
HLT

001156

#52525,%2

. %3
INBUF

170600

ERRCHK:

SEQ 0064

JEXIT
;DATO NUMBER TO R2

;STARTING ADDRESS OF IN BUFFER TO R3

x7
#BI1T6,aCSR

aCSR
.+

;ERROR SET?
;ERROR BIT IS SET
;CHECKING READY BIT
;1S RDY SET

JEXIT

%2.(%3)+
.+

LEN
HK
,BUF
LENC
COMPRR
.+

170614

;CLEAR LENGTH CHECK
JMAKE A COMPARISON
;1S THE DATA CORRECT?
;BRANCH IF 0K
;BAD DATA
;SEE IF THE BUFFER HAS BEEN CHECKED
;BUFFER CHECKED?
sCHECK END OF BUFFER + 1
;SEE IF TOO MANY WORDS WERE TRANSFERRED
s TO0 MANY
JEXIT
;CLEAR IE

LENCHK
LENCHK

%2,(%X3)+

000100
170610

PAGE 57 -1

aCSR
.+

;CHECKING FOR ERROR

sFALSE

ENTRY = ERROR AND READY ARE

CLEAR

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

N S
PAGE 58

SEQ 0065

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

2054

:"t.t..tt.."'!.'Q.'.....i"fi.Qt.'...t.....l'fi'.t.'t.......t........'..'

2055
2056

H
:

TEST 53 TEST THAT DOING A DATO TO THE DIODE MEMORY CAUSES NEX
MAINTENANCE MODE (INTERNAL WRAP AROUND)

T42:

SCOPE

2057

2058 010276

.'"'...Q.Q.fi'ii.tt'fi.'..fi"!...t."..."'....'.Q..Qt..'.."lt".t.Q...'.'

000004

2059 010300

005077

2062 010320
2063 010326
2064 010334
2065 010340
2066 010346
2067 010354

012777
013777
005077
012777
052777
052777

010406
001074
170442
010000
000062
000501

005337

001312

2060 010304
2061 010312

012777
013777

170564

177776
001150

170552
170546
170610
170604

170522

170514
170506

2068 010362 012737 001000 001312
2069 010370

2070 010374
2071 010376
2072 010400
2073 010402
2074 010406
2075 010412
2076 010414

2077 010416

2078 010420
2079 010422
2080 010424

001375
104000
000005
000137
017705
005705
100401
104000

105705
001001
104000

2081 010426

032705

2083 010434

104000

2082 010432

2084 010436

2085 010442
2086 010444
2087 010450
2088

2089
2090

010450
170456

001001

005077

022626
004737
000004

CLR

MOV
MOV

22%:

#1000, TIME

;DELAY

MOV
MOV
CLR
MOV
BIS
BIS
DEC

TIME

MOV

#-2 ,3W(R
DIOMEM, aBAR

BNE
HLT
RESET
JMP
NEXCHK: MOV
TST
8M]

22%

TSTB
BNE
HLT

RS
.+

BNE

108:

BIT

HLT

170426
010156

;FORCE TO BE CSR #1

;SET UP WCR
:SET UP BAR
#NEXCHK ,aDRINV ; INTERRUPT VECTOR TO NEXCHK
DRINL ,aDRVS
s INTERRUPT STATUS TO LEVEL DRINL
aPSW
;LET THE DR11-W INTERRUPT
#10000,aCSR
;MAINT MODE
#62 ,aCSR
JFNCT1,XB8A16,XBA17
#501,aCSR
;1E,CYCLE,GO

HLT

040000

aCSR

CLR

SCOP:

P
JSR
SCOPE

SCOP
@CSR,R5
RS
.+

#BIT14 RS
a(SR

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

sNO DR11-W INTERRUPT
;CLEAR ANY OUTSTANDING INTERRUPT REQUESTS

;SAVE (SR IN RS
;TEST CSR
;ERROR SET?
;ERROR NOT SET

;TEST FOR READY
;READY SET?
JREADY ISN'T SET

s CHECK NEX
JNEX SET?

sNEX IS CLEAR

JRETURN TO CSR #1

JRESTORE THE STACK

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

CZDRLAO=DR11W GEN NPR INTF(

b
— ) —d —d

NN
Nole
(R NTe MV

rnorornOrNOrY

2092
2093
2094
2095
2096
2097 010452
010454
2099 010460
2100 010466
2101 010474
2102 010502
2103 010510
2104 010516
2105 010524
2106 010530
2107 010536
2108 010542
2109 010544
2110 010546
2171 010552
2112 010554
2113 010556
2114 010560
2115 010562
2116 010564
2117 010566
2118 010570
2119 010574
2120 010576
2121 010600
2122 010604
2123 010610
2124 010614

2130

010616

6
SEQ 0066

.SBTTL TEST 54 CROSSING A 32k BOUNDRY DOESNT CAUSE A BAOF OR FORCE ERROR

::"t.tttt't'..t..'Q.t'...".".t'...'.'.'..t.t.'..Q'.Q"t.'.'t"'.."t.

TEST 54 TEST THAT CROSSING A 32K BOUNDRY DOES NOT CAUSE

A BAOF AND DOES NOT FORCE AN ERROR

;;t".'tt'.'.'t...."t.I'.Qttt.t...'...""".."Q..t'.t..'."".'."...

SCOPE
CLR

170332

170316

MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
1%:
DEC
BNE
HLT
: MOV
(KF
BAC
CMP
TST
BMI
HLT

aCSR
#10, 1COUNT

#-20,3WCR

#-2
. 3BAR
#BAOF CK , aDRINV
DRINL
, @DRVS

#1000,
T IME
aPSW
#563,3CSR
TIME
1%

@CSR.R5

(SP)+,(SP)+
RS

TSTB
BMI
7
HL

RS
.+

170262
170260
014144

BNE
HLT
CLR
CLR
JSR

PC,CKSWR

010156

JSR

PC ,NORMAL

040000

BIT

RESET

#40000,RS

aBAR
a(SR

;FORCE TO BE (SR #
;SET UP W(CR
sSET UP BAR FOR PROC STATUS ADDRESS
s INTERRUPT VECTOR TO BAOF (K
s INTERRUPT STATUS TO LEVEL DRINL

JLET THE DR11-W INTERRUPT
JCYCLE,IE, FNCT1, XBA17, XBA16, AND GO TO (SR
sWAIT FOR

INTERRUPT

:NO INTERRUPT
; SAVE CSR
JRESTORE THE STACK
JTEST CSR
JERROR SET?
;ERROR NOT SET
:TEST FOR READY
;READY SET?
JREADY ISN'T SET
;CHECK NEX
;ARE THEY CLEAR?
JNEX IS CLEAR
;CLEAR BUS ADDRESS REGISTER
RETURN TO CSR #1
JINIT

sTHIS ENDS MAINTENANCE MODE

TESTING

CZDRLAO=-DR11wW GEN NPR INTF(

MACRO M1111

2132
2133
2134
2135
g}g?

.SBTTL

.SBTTL
.SBTTL

2138
2139
2140

3
:

g}:]

2143

005077
004737

2148 010640

001402

170242
014144

2147 010632 032777 002000
2151 010654

2152 010656

2153 010662
2154 010664

2155 010670
2156 010674
2157 010700
2158 010702
2159 010710
2160 010714

2161 010720
2162 010722

2163 010730
2164 010734
2165 010740

¢ &
PAGE 60

SEQ 0067

CABLE MODE TESTING
;CABLE MODE TESTING(WRAP-AROUND
;CABLE IN USER SLOTS)
;TESTS 55 THRU 62 ARE PERFORMED IF:
1.SWITCH REGISTER 10 IS SET,OR
2.SWITCH REG. 10 8 9 ARE DOWN(0) ,AND THE CABLE IS

IN PLACE:THE PROGRAM WILL TEST FOR CABLE.

;THE FOLLOWING ROUTINE DETERMINES IF CABLE IS IN

2144
2145 010622
2146 010626

2149 010642
2150 010646

24=SEP=79 10:39

000137
032777

013132
001000

000137

010722

001402

000005
005077

017707
032701
001015
112777
017701
032701
001405
012737

000137
005037
000137

170466
170452

;OR SWITCH REGISTER OPTION IS SELECTED
(BL:
CLR
aCSR
;FORCE TO BE (SR #1
JSR
PC,CKSWR

1%:

170174
127000

000004
170154

170160

0000017

001314

020000

010744
001314
013132

#2000, aSwR

JMAINTENANCE MODE TESTS ONLY?

JMP
BIT

END
#1000,aSwR

JVES
sPERFORM CABLE TESTS UNCONDITIONALLY?

JMP

YESCBL

BEQ

2$:

170200

BIT

BEw

RESET
CLR

MOV
BIT
BNE
MOvB
MOV
BIT

BEQ
YESCBL: MOV

NOCBL:

JMP
(LR
JMP

aCSR

a(SR,R1
#127000,R1
NOCBL
#4,aCSR
aCSR,R1
#20000,R1

:NO

JNO;DETERMINE CABLE STATUS BY PROGRAM DETECTION
;FORCE CSR #1

;CHECK CSR
;TEST FOR ERROR,ATTN,DSTATA,DSTATB,DZTATC

;IF ATTN IS SET,CABLE IS IN

NOCBL
fliCABLE

732
CABLE
END

;DON'T DO CABLE TESTS

(ZDRLAO-DR11w GEN NPR INTF(

MACRO M1111

24=SEP=79 10:39

TEST S5 TEST FOR 1 DAT] NOUN BURST MODE TRANSFER

2167

2169

2172 010744

005077

2175 010764
2176 010764
2177 010770
2178 010774
2179 010776
2180 011000
2181 011006
2182 011010
2183 011012
2184 011020
2185 011026

012737
012737

010764
000001

005077
005777
100001
104000
022777
001401
104000
012777
012777
005077

170100
170074

2187 011040

012777

2186 011032
2188 011046

2189 011054
2190 011060

2191 011066

001146

012777

000005

170064

MOV

170002
167774

BIS

005077
012777

052777
001375
104000

000424
004737
005777
001401
104000

022777

001401
104000

2210 011150
2211 011152
2212 011154

001401
104000
004737

2214 011162
2215 011164
2216 011170

CLR
TST
BPL
HLT
(MP
BEQ
HLT
NPRRDY: MOV
MOV
CLR
TNPR1:

170040
052525

2207 011136
2208 011140

2213 011160

T33STR:

CLR

MOV
MOV

012737

000005

2209 011142

7%3:

170044

2196 011110

2203 011130
2204
2205
2206

014126
001314

177777

022777

0226726

000404
005077
004737

001146

011114

167722
000110

000401

011102
000001

170040

MOV

170070

MOV

CLR
MOV

1%:

CLR
INC

BNE
HLT

aCSR

sFORCE TO BE CSR #1

a(SR
a(SR
.+4

;CHECK ERROR BIT

#T33STR,RETURN
#1,CABLE

#200,aCSR
R

#-1,aWCR

#NPR1,aBAR

aBDR
#52525 ,NPR1
#INTB,aDRINV
#5,aDRVS
aPSwW
#110,aCSR
#401,aCSR
1842
#1
1%

RESET

010246
167740

001151

052525

TRANSFER

RR
e

170062

005037
005227

2197
2198 011112
2199 011114
2200 011120
2201 011124
2202 011126

170120

TEST 55 TEST FOR 1 DATI NON BURST MODE

CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

000200

2192 011074
2193 011100

2194 011104
2195 011106

SEQ 0068

RR
e
e T

2170

2173 G10750
2174 010756

.SBTTL TEST 55 TEST FOR 1 DATI NON BURST MODE TRANSFER

2168

2171

PAGE 61

INTB:

167730

167722

BR
JSR
TST
BEQ
HLT
MP

BEQ
HLT

CMP

010156

BEG
HLT
JSR

167700
010156

BR
T33CLR: CLR
JSR

(MP

T33CLR
PC,ERRCHK
aW(R
.+

#NPR1+3,aBAR

#52525,aBDR
.+

PC ,NORMAL

(SP)+,(SP)+

TNPRO
aCSR
PC _NORMAL

;REVISE SCOPE RETURN
sPRINT CABLE MESGE WITH ERROR PRINT

;IS IT CLEAR?
;ERROR SHOULD NOT BE SET
; CHECK READY
:
;SOMETHING OTHER THAN READY IS SET
sSET UP FOR 1 TRANSFER
;TRANSFER FROM BUS ADDRESS IN NPR1
;GET READY TO RECEIVE DATA

;SET UP TRANSFER DATA

s INTERRUPT VECTOR TO INTB

s INTERRUPT PRIORITY TO LEVEL 5

;LET THE DR11-W INTERRUPT
sNON BURST(FNCT3),IE
;CYCLE.GO
JWAIT FOR NPR AND INTERRUPT

sNO DR11-W INTERRUPT
;IF NO INTERRUPT,CLEAR ANY OUTSTANDING
s INTERRUPT REQUEST IN BOARD HDWR.

;CLEAR IE
;CLEAR 1E,CHECK FOR ERROR
sTEST 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 CORRECT?
;BAR IS WRONG
sCHECK FOR CORRECT DATA
;DATA GET TRANSFERRED?
;BAD DATA IN BDR
JRESTORE STACK

;GO TO NEXT TEST
;CLEAR IE

CZDRLAO-DR11wW GEN NPR INTF(
MACRO M1111 24-SEP-79 10:39
TEST 56 TEST FOR i DATO NON BURST MODE TRANSFER
2219

2223

000004

2225 011176
2226 011202
2227 011210
2228 011216

005077
012777
012777
005037

167666
177777
001146
001146

2230 011230
2231 011236
2232 011244
2233 011250
2234 011256

012777
013777
005077
012777
052777

011304
001074
167532
000112
000401

2229 011222

012777

2235 011264
2236 011270

005037
005227

2237 011274

001375

2238 011276
2239 011300
2240
2241 011302
2242 011304
2243 011310
2244 011314
2245 011316

000424

004737

005777

001401
104000

022777

001401
104000

2253 011340
2254 011342
2255 011344
2256 011350

001401
104000
004737
022626

2258 011354
gggg 011360

R AR AR R AR AR AR R AR AR R TR AR AR

:
:

TEST 56 TEST FOR 1 DATO NON BURST MODE TRANSFER
CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

TNPRO:

SCOPE

052525

011272
000001

167654
167650

167642

167700
167674

167612
167604

1$:

104000
000005

2250 011326
2251 011330

2257 011352

AR R AR AR AR AR AR

PL
L

2224 011174

2252 011332

SEQ 0069

.SBTTL TEST 56 TEST FOR 1 DATO NON BURST MODE TRANSFER

2221
2222

2247
2248
2249

PAGE 62

IR AR AR R AR AR R AR

2220

2246 011320

E_6

023727

000404

005077
004737

CLR
MOV
MOV
(LR
MOV
MOV
MOV
CLR
MOV

BIS
CLR
INC

BNE

HLT
RESET

010246

INTC:

167550

001151

001146

JSR

167540

s INTERRUPT VECTOR TO INTC
s INTERRUPT STATUS TO LEVEL DRINL
;PROC STATUS TO ZERO
;DATO(FNCT1) ,FNCT3,IE
;CYCLE,GO

1$+2
#1

T34CLR

PC,ERRCHK

TMMP

#NPR1+3,aBAR

(MP

BFQ
HLT
JSR
CMP

T34CLR:

#INTC ,aDRINV
DRINL ,@DRVS
aPSwW
#112,3(SR
#401,aCSR

#52525,a8DR

aw(R

BEQ
HLT

052525

;FORCE TO BE CSR #1
;SET UP FOR 1 TRANSFER
;TRANSFER TO BUS ADDRESS IN NPR1
;GET READY TO RECEIVE DATA

TST

BEQ
HLT

010156
167510
010156

aCSR
#=1,aWCR
#NPR1,@BAR
NPR1

CLR
JSR

NPR1,452525
.+

PC . NORMAL
(SP)+,(SP)+

137

a(SR
PC,NORMAL

;SET UP TO TRANSFER DATA

;WAIT 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
;TEST WCR
;1S WCR EQUAL TO ZERO?
;WCR 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 CORRECT?
;BAR IS WRONG

;CHECK FOR CORRECT DATA

;CORRECT DATA TRANSFERRED?
;BAD DATA
JRESTORE STACK

;GO TO NEXT TEST
;CLEAR [E

CZDRLAQ=DR11Ww GEN NPR INTF(
MACRC M1111 24=SEP=79 10:39
TEST S7 STRING OF 200 DATIS BURST MODE XFERS
2263

PAGE 63

SEQ 0070

.SBTTL TEST 57 STRING OF 200 DATIS BURST MODE XFERS

226{.

::Q‘t.ttt'ttttt'..i!t..ttt'ttt..tttl'.tttll!t't.tt'.ttt.ttfit't'tnQt.t.'t

2265
2266

:
;

2267

AR AR AR AR AR AR AR AR AR AN AN

2268 011364

000004

2270 011372
2271 011400

012737
004737

000200
007714

2273 011412
2274 011416
2275 011424
2276 011432

005437
013777
013777
012777

001164
001164
001152
177777

167440
167434
167432

NEG
MOV
MOV
MOV

2278 011446

013777

001074

167464

MOV

2269 011366 005077 167476
2272 011404

2277 011440

1%7:

TEST 57 STRING OF 200 DATI'S BURST MODE XFERS
CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

001156

011524

167470

2279 011454 005077 167322
2280 011460 012777 000100 167402
2281 011466 052777 000401 167374

2282 011474
2283 011502
2284 011506

012737
005337
001375

2285 011510

104000
000005

2289 011520

000137

2286 011512
2287
2288 011514

004737

2290 011524

022626

2292 011532

022777

2291 011526

2293 011540
2294 011542

737

001407
104000

001000
001312

001312
:

CLR

aCSR

MOV

BUFLEN.WCLEN

MOV

#T37CHK,@DRINV

MOV
JSR

013737 001156 001164

012777

SCOPE

CLR
MOV
BIS

1%:

MOV
DEC
BNE
HLT

#200,BUF LEN
PC, LODBUF

JSR

011544

010016

000177

JMP

137CHK: CMP

167332

JSR

CMP

BEQ
HLT

R AR AR R

AR R AR

“LENGTH OF BUFFER=200
*LOAD THE BUFFER WITH INCREMENTING PATTERN

:PREPARE NUMBER FOR WCR

:2'S COMPLEMENT OF BUFLEN
“SET UP WCR
*SET UP BAR
*MAINT AIDE

DRINL ,aDRVS

JINT VECTOR TO PRIORITY DRINL

aPSwW
#100,aCSR
#4071 .aCSR

#1000, TIME
TIME
1%

PC ,NORMAL

AR AR AR

;FORCE
TO BE CSR #1

WCLEN
WCLEN, aWCR
INBUF , @BAR
#-1,a8DR

RESET

010156

AR AR AR R AR AR

- INT VECTOR

“LET THE DR11-W INTERRUPT
IE
*CYCLE.GO
JWAIT FOR INTERRUPT

;IF NO INTERRUPT,CLEAR ANY OQUTSTAND
ING
;INTERRUPT REQUEST IN BOARD HDWR.

140

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

l1?7,aBDR
A

:CLR 1E,CHECK ERROR,READY,W(=0,8BAR

;CHECK THAT WORD #200 OF INBUF IS IN BAR
218 172
;BAD DATA IN BDR

(ZCRLAQ-DR11w GEN NPR INTF(

MACRO M1111

TEST 60 STRING OR 200 DATOS BURST MODE XFERS

24-SEP-79 10:39

PAGE 64

SEQ 0071

.SBTTL TEST 60 STRING OR 200 DATOS BURST MODE XFERS

2297

::.ttt.'ttt't'tltt!l.tt..'ttt.tttt't'ttttl'tt.t".t.....tt't'ttttttfi.t"

2298
2299

:
:

2300
2301 011544

000004

2303 011552
2304 011560

012737
004737

000200
007714

2306 011572
2307 011576
2308 011604

005437
013777
013777

001164
001164
001152

2310 011620
2311 011626
2312 011634
2313 011640

012777
013777
005077
012777

011704
001074
167142
000102

2315 011654
2316 011662
2217 011666

012737
005337
001375

001000
001312

2319 011672
2320
2321 011674
2322 011700
2323 011704

000005

2302 011546 005077 167316

.'"Qt'ttlt..'Qt"tfitfi....t".'..t.l'..fi'.'t'...QQ'Q'...Q..QQ".Q.'Q.QQ.'Q
T40:
SCOPE

001156

2314 011646 052777 000401

2318 011670 104000

2324 011706
2325 011712

004737
000137
022626
004737
004737

aCSR

MOV

BUFLEN.WCLEN

NEG
MOV
MOV

167260
167254

167252

MOV

167310
167304

MOV
MOV
(LR
MOV

167222

167214

001312

CLR

MOV
JSR

2305 011564 013737 001156 001164

2309 011612 012777 052525

TEST 60 STRING OR 200 DATO'S BURST MODE XFERS
CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

BIS

1$:

MOV
DEC
BNE

HLT

#200,BUF LEN
PC, L ODBUF

010016
010200

JSR
JMP
T40CHK: C

JSR
JSR

"LENGTH OF BUFFER=200
“LOAD THE BUFFER WITH INCREMENTING PATTERN

-PREPARE NUMBER FOR WCR

WCLEN
WCLEN, aWCR
INBUF @BAR

12'S COMPLEMENT OF BUFLEN
“SET UP WCR
*SET UP BAR

#T4OCHK,aDRINV
DRINL ,aDRVS
PSW
#102,aCSR

- INTERRUPT VECTOR
;INTERRUPT VECTOR TO PRIORITY DRINL
“LET THE DR11-W INTERRUPT
“IELFNCT1

#52525 ,38DR

#4071 .aCSR

#1000, T IME
TIME
1%

RESET
010156
011716

:FORCE
TO BE CSR #1

PC ,NORMAL
156
(SP)+,(SP)+

PC,INTA
PC,DATOCK

*SET UP BDR

*CYCLE,GO

"WAIT FOR INTERRUPT

;1F NO INTERRUPT,CLEAR ANY OUTSTAND
ING
;INTERRUPT REQUEST IN BOARD HDWR.

;CLEAR ]E,CHECK ERROR,READY,W(=0,& BAR
sCHECK INBUF

CZDRLAO=DR11w GEN NPR INTF(
MACRO M1111
TEST 61 STRING OF 200 DATIS NON-BURST MODE
2327

24=SEP=79 10:39

PAGE 65

SEQ 0072

.SBTTL TEST 61 STRING OF 200 DATIS NON-BURST MODE

2328

:.'.t!Qtttt'ttttt't.t.tt'tttttt'tt.ttttt'ttttttttltttt'iQt..Q.'Qtt't't.'t

2330

2332 011716

156:

2329

2331

2333 011720

005077

167144

2335 011732

004737

007714

005437

001164

2334 011726

TEST 61 STRING OF 200 DATI'S NON-BURST MODE

R AR

CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)
AR AR AN AR AR AP R AR

SCOPE

AR AR A AR AR AR

JSR

PC,LODBUF

;LOAD THE BUFFER WITH INCREMENTING PATTERN

MOV

BUFLEN.WCLEN

2338 011750
2339 011756
2340 011764
2341 011772
2342 012000
2343 012006

MOV
MOV
MOV
MOV
MOV
CLR

WCLEN, aWCR
INBUF , 3BAR
#-1,a8DR
#TS6CHK,aDRINV
DRINL ,aDRVS
aPSW

167106
167102
167100
167136

2345 012020 052777 000401

167042

2344 012012

012777

000110

NEG

167132

167050

MOV

2346 012026 012737 001000 001312

MOV

2347 012034

005337

2349 012042
2350 012044
2351

104000
000005

2353 012052

000137 012100

2348 012040 001375
2352 012046

004737

2354 012056

022626

2356 012064

000240

2355 012060

001312

010156

010016

2357 012066

022777

000177

2359 012076
2360

104000

001401

166776

WCLEN

#110,aCSR

#4071 .3CSR

DEC

T IME

BNE

JSR

TS6CHK:

#200,BUF LEN

BIS

HLT
RESET

004737

2358 012074

1%:

;FORCE TO BE CSR #1

2336 011736 013737 001156 001164
001164
001152
177777
012056
001074
166770

AR AR R R AR

aCSR

MOV

013777
013777
012777
012777
013777
005077

AR AR AR R AR

CLR

012737 000200 001156

2337 011744

A AR AN R

MP
CMP

#1000, TIME

*LENGTH OF BUFFER=200

:PREPARE NUMBER FOR WCR

:2'S COMPLEMENT OF BUFLEN

SSET=UP WCR
*SET-UP BAR
*MAINT AIDE
- INT VECTOR
;INT VECTOR TO PRIORITY DRINL
SLET THE DR11-w INTERRUPT
:FNCT3,IE

*CYCLE.GO

“WAIT FOR INTERRUPT

PC ,NORMAL

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

157

(SP)+,(SP)+

JSR

PC,INTA

;CLEAR E,CHECX ERROR,READY,W(=0,8 BAR

CMP

#177,a8DR

:CHECK THAT WORD #200 OF INBUF IS IN BAR

NOP

BEQ
HLT

SIS IT?

:BAD DATA [N BDR

(ZDRLAO=DR11w GEN NPR INTF(
MACRO M1111
TEST 62 >TRING OF 200 DATOS NON-BURST MODE
2362

24=SEP=-79 10:39

PAGE 66

SEQ 0073

LSBTTL TEST 62 STRING OF 200 DATOS NON=-BURST MODE

2363

.'.'tt"'t'Qt"'.tt.t"t..t.tt.t..tl.'t'.tt't.tt.'..t'QQQQQQ'nt't.tnt.t..t

2365

;

CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

i87:

SCOPE

2364

;

2367 012100 000004

TEST 62 STRING OF

.-'tt.t..ttttl't..t.t.'t.'.'QQt.ttQtQtt.t..tt'.t'ttQtt'ttt..tt't.'.ttt.tt

2368 01210
2369 012106
2370 012114

005077
012737
004737

166762
000200
007714

001156

CLR
MOV

2371 012120 013737 001156 001164

MOV

2372 012126
2373 012132
2374 012140

005437
013777
013777

001164
001164
001152

2376 012154
2377 012162
2378 012170
2379 012174
2380 012202
2381 012210

012777
013777
005077
012777
052777
012737

012234
001074
166606
000102
000401
001000

2375 012146 012777 052525

2382 012216
2383 012222
2384 012224
2385 012226
2386
2387 012230
2388 012234

2389 012236
2390 012242
2391 012244

005337
001375
104000
000005

004737
022626
004737
000240
004737

200 DATO'S NON-BURST MODE

001312

010156

010016
010200

166724
166720

166716

:FORCE TO BE CSR #1
SLENGTH OF BUFFER=200
“LOAD THE BUFFER WITH INCREMENTING PATTERN

NEG
MOV
MOV

WCLEN
WCLEN,@WCR
INSUF , 3BAR

:2'S COMPLEMENT OF BUFLEN
SSET UP WCR
:SET UP BAR

MOV

166754
166750
166666
166660
001312

JSR

aCSR
#200,BUF LEN
PC,LODBUF

1%:

MOV
MOV
CLR
MOV
BIS
MOV

DEC
BNE
HLT
RESET

JSR
TS7CHK: CMP
JSR
NOP
JSR

BUFLEN,WCLEN
#52525 ,38DR

:PREPARE NUMBER FOR WCR
:SET UP BDR

#TS7CHK,aDRINV : INTERRUPT VECTOR
DRINL ,@DRVS
S INTERRUPT VECTOR TO PRIORITY DRINL
aPSW “LET THE DR11-W INTERRUPT
#102,3CSR
SENCT1,IE
#401.3CSR
*CYCLE.GO
#1000, TIME
“WAIT FOR INTERRUPT
TIME
1%

:1F NO INTERRUPT,CLEAR ANY OUTSTANDING
PC ,NORMAL
(SP)+, (SP)+
PC,INTA
PC.DATOCK

S INTERRUPT REQUEST IN BOARD HDWR.

:CLEAR ]E.CHECK ERROR,READY,W(=0,8 BAR
;CHECK INBUF

CZDRLAO=-DR11W GEN NPR INTF(

TEST 63 DETERMINE N=CYCLE

MACRO M1111

SWITCH SETTING

2394

24=SEP=79 10:39

J_6
PAGE 67

SEQ 0074

.SBTTL TEST 63 DETEKMINE N=CYCLE SWITCH SETTING

2395

: 1233232333233 3223223332323233333333323333233332332323322333323332323222222222222203% 32 2}

2395
2397
2398

:
:
:

TEST 63 DETERMINE N-CYCLE SWITCH SETTING
HAVE SWITCH FLIPPED AND WAIT UNTIL IT IS DONE
THIS IS DONE FIRST PASS ONLY

108 :

BIT
BEQ
ST
BEQ
JMP
INC

#8170,B0RW
SWT1
FLAG
108
END
FLAG

:WERE WE HERE BEFORE
*NO
*YES DONE THIS PASS
“SET FLAG FOR NEXT PASS

BIT
BNE
MOV

#B]T8,aCSR
FLOP
877777, 11ME

YIS IT SET
LYES
“SET TIMER

2399

"'-tttttt't'tll.'ttfittt.t'ttl..t.t.ttt.t"'.t..t..tt.-t‘Qtt'..'tttttttt.'

2400 012250
2401 012256
26402 012260
26403 012264
2404 012266
2605 012272

032737
001550
005737
001402
000137
005237

000001

001144

2407 012304
2408 012312
26409 012314

032777
001055
012737

000400

166556

077777

001312

2611 012326

104401

012334

001200
013132
001200

26406 012276 012777 100000 166564
26410 012322 012705 000100
012332 000425

2417 012430
26418 012436
26419 012440
2620 012442

032777
001402
000137
005337
001367

64253

000400

166454

012600
001312

20%:
308:

001312

2423 012460

012705

000100

MOV

032777
001002
000137
005337
001767
012737
005305
001362
000137

6‘255

000400

166322

012600
001312
077777
012446

MOV

TYPE

2624 012540
2625 012546
2626 012550
2627 012554
2428 012560
26429 012562
2430 012570
26431 012572
26432 012574

#B1T8,aCSR
308
SWT1
TIME
208

012314

012464 000425

40$:

50$:
001312

,658

BIT
BEQ
JMP
DEC
BNE

MOV
DEC
BNE
JMP

012466

#100,RS
648

LASCIZ

077777

104401

#81T15,aCSR

012737
005305
001362
000137

2621 012446 012737 077777 001312 FLOP:

2622 012456

MOV

TYPE

2412 012406
2413 012414
2614 0126416
26415 012422
26416 012426

FLIP:

MOV

*SET PRINT DELAY

..rvpe ASCIZ STRING

“GET OVER THE ASCIZ

<CRLF>/CHANGE POSITION OF N=CYCLE BURST SwlTCH/

8777771 1ME
RS
208
FLIP

w7777 T IME
#100,RS
658

B8R

648

BIT
BNE
JMP
DEC
BEQ
MOV
DEC
BNE
JMP

#B1T8,aCSR
508
SWT1
TIME
408
8777777 IME
RS
408
FLOP

LASCIZ

‘GO
TO EIR

:CHECK FOR CHANGE
*NOT YET
*DONE CONT INUE
“DEC TIMER
*CHECK AGAIN

‘RESET TIMER

*DEC PRINT DELAY
*CHECK AGAIN
*TELL AGAIN TO FLIP SWITCH

“SET TIMER

“SET PRINT DELAY

;3 TYPE ASCIZ STRING

“GET OVER THE ASCIZ

<CRLF>/CHANGE POSITION OF N=CYCLE BURST SWITCH/

cufcx FOR CHANGE
T YET
DONE CONT INUE
‘DEC TIMER
“CHECK AGAIN
"RESET TIMER
*DEC PRINT DELAY
“CHECK AGAIN
JTELL AGAIN TO FLIP SWITCH

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

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

2435

2436
2437
2438

3
:
IR

2439 012600
2440 012602

000004
005077

2444 012626
2445 012632
2446 012640

005437
013777
013777

001164
001164
001152

2448 012654
2449 012662

012777
013777

012740
001074

166224
166220
166216
}66254
66250

000100
000401

]l 66166
166160

2441 012606
2642 012614
2443 012620

2447 012646

2450 012670
2451 012674
2452 012702

2453 012710

26564 012716

2455 012722

2456 012724
2457 012726
2458
2459 012730

012737
004737
013737

012777

005077
012777
052777

012737

005337

001375
104000

166262

000200
007714
001156
177777

166106

001000

001312

004737

001312

2462 012742

004737

010016

022626

2463 012746 022777 000177
001401

104000

NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV
BIS

1%:

MOV
DEC

BNE
HLT

JSR

JMP

SWINT1: (MP

166116

R AR

AN AR RN AR R ANR AR AAN AR AN R

R AR R A AR

TEST 64 STRING OF 200 DATI'S BURST MODE XFERS (SWITCH FLIPPED)
CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)
R R AR R AR AR R R R R R R AR AR AR R R AR R RN AR AR AR AR AR RN AN R AR R AR RO R AR AR R,
SCOPE
CLR
aCSR
sFORCE TO BE CSR #1

MOV
JSR
MOV

001164

010156

012760

2465 012756

001156

R AR AR AR AR

#200,BUF LEN
PC,LODBUF
BUFLEN,WCLEN

WCLEN
WCLEN,aWCR
INBUF ,@BAR
#-1,a8DR
#SWINT1,aDRINV
DRINL ,@DRVS
aPSwW
#100,aCSR
#401,aCSR

#1000, TIME
TIME

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

BEQ

HLT

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

JMAINT AIDE

;INT VECTOR
sINT VECTOR TO PRIORITY DRINL
sLET THE DR11-W INTERRUPT
st
sCYCLE,GO

JWAIT FOR INTERRUPT

;IF NO INTERRUPT,CLEAR ANY OUTSTAND ING
s INTERRUPT REQUEST IN BOARD HDWR.

SwT?2

JSR

CMP

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

RESET

000137

2464 012754

SWT1:

000005

2460 012734

2461 012740

SEQ 0075

#177 ,@8DR

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

;CHECK THAT WORD #200 OF INBUF IS IN BAR
;IS IT?

“BAD DATA IN BDR

L 6
MACRO M1111
24-SEP-79 10:39 PAGE €9
CZDRLAO=DR11wW GEN NPR INTF(
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)

2467

SEQ 0076

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

2‘68

:;'ttttlttttt'!tt'tt!!t.tttlfit.'fit.tttttt'.!t..tttttttt.tttttt.t"t't'tt

2469
2470

:
:

2(,71

2472 012760

2473 012762

2474 012766
2475 012774
2476 013000
2477 013006
2478 013012
2479 013020
2480 013026
2481 013034
26482 013042
2483 013050
2484 013054
2485 013062

2486 013070

2487 013076

""tQtfit'Q..ittttttttit..Qt'.ttQ'Qt.ttt.tt..ttttttttttt.tt.tttttttt'...tt

000004

005077

166102

aCSR

;:FORCE TO BE CSR #1

#401.3CSR

“CYCLE,GO

001156
001164
166044
166040
166036
166074
166070
166006

MOV
JSR
MOV
NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV

#200,BUF LEN
PC,LODBUF
BUFLEN,WCLEN
WCLEN
WCLEN, aWCR
INBUF . aBAR
#52525 ,38DR
lSUINTé.aDRINV
DRINL ,@DRVS
aPSW
#102.3CSR

012737

001000

001312

MOV

#1000, TIME

052777

005337
104000
000005

26492 013110

004737

26494 013120

022626

5284‘7, 013126

004737

000401

001312

004737

166000

BIS

1$:

DEC

BNE

HLT
RESET

010156

2493 013114 000137 013132

2498

SCOPE

CLR

000200
007714
001156
001164
001164
001152
052525
013120
001074
165726
000102

2488 013102 001375

2495 013122

SWr2:

012737
004737
013737
005437
013777
013777
012777
012777
013777
005077
012777

2489 013104
2490 013106
249N

TEST 65 STRING OR 200 DATO'S BURST MODE XFERS (SWITCH FLIPPED)
CABLE MODE (WITH WRAP AROUND CABLE IN USER SLOTS)

010016
010200

JSR

JMP

SWINTZ2: CMP

JSR
JSR

TIME

*LENGTH OF BUFFER=200
;LOAD THE BUFFER WITH INCREMENTING PATTERN
:PREPARE NUMBER FOR WCR
;2'S COMPLEMENT OF BUFLEN
*SET UP WCR
*SET UP BAR
*SET UP BDR
;INTERRUPT VECTOR
*INTERRUPT VECTOR TO PRIGRITY DRINL
;LET THE DR11=W INTERRUPT
“IE.FNCT1
JWAIT FOR INTERRUPT

;IF NO INTERRUPT,CLEAR ANY OUTSTAND
ING
PC ,NORMAL

;INTERRUPT REQUEST IN BOARD HDWR.

END

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

:CLEAR IE,CHECK ERROR,READY,W(=0,8 BAR
*CHECK INBUF

;THIS ENDS CABLE MODE TESTING

MACRO M1111
24-SEP-79 10:39 PAGE 7C
CZDRLAQ=-DR11W GEN NPR | NTFC
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SwITCH FLIPPED)

.
SEQ 0077

2501

""....'.i"."..'.Qt.'...'t'tt!!...tfi.'.tfi...'..ttlt..'.."t.'.."......

2502
2503

;. ,
END OF PASS
e it 2222323233233 2232233322322 2232823233233 323222323 2233323322333 32233232322333222 222}

2504 013132

2506 013144

012737
100375

000207
177564

2507 013146

005277

2510 013160
2511 013164

005277
032737

165632
000001

2513 013174

012702

014755

2508 013152
2509 013156
2512 013172

2514 013200
2515 013204
2516 013206
2517 013212
2518 013216

2519 013216

2520 013222
2521 013226
013232
2522 013234
2523 013240
2524 013244
2525 013246
2526 013250
2527 013252
2528 013254
2529 013256

2530 013260

2531 013266

2532 013274
2533 013302
sg% 013310
2536

2537
2538
2539
2540
2541

005737
001402
001405

004737
000404
012702
004737

012702

004737
017746
104405
104401
013702
001405
000005
004712
000240
000240
000240

177566

ENDY

165642

001316

MmOV
TSTB

#207, 4177566
awzr?sea

:RING BELL

INC

aPNTPAS

s INCREMENT PASS COUNT FOR THIS BOARD

INC
BIT

aPNTERR
#1,CABLE

;YES INCR. ERROR COUNT FOR THIS BRD.
sHAVE CABLE TESTS BEEN DONE?

MOV

#MANCBL ,R2

MOV

#SENPAS ,R2

BPL

TST
BEQ

001314

2%:

015372

014723
015372

1%:
ENDT:

014622

015372
165562
001354
000042

BEQ

JSR
BR
MOV
JSR

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

HLTDET
2%
1%

PC,TTOUT
END1
#MANT ,R2
PC,TTOUT

PC,TTOUT
aPNTPAS , = (SP)
. SENULL
awé?2 ,R2
NXTBRD

000002

001010

NXTBRD: ADD

#2 ,PNTRAD

062737
062737
000137

000002
000002
001604

001014
001016

ADD
ADD
JMP

#2 ,PNTPAS
#2 ,PNTERR
BEGIN

000002

001012

ADD

;NO

JYES

;PRINT "END PASS'
;;SAVE @PNTPAS FOR TYPEOUT
;:G0 TYPE=--DECIMAL ASCII WITH SIGN

PC.(R2)

062737

;ERROR OCCUR THIS PASS?
;NO

#2 ,PNTVAD

;POINT TO NEXT BOARD FOR NEXT PASS

N 6
MACRO M1111 24=-SEP-79 10:39 PAGE 71
CZDRLAO-DR11W GEN NPR INTFC
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)
e

2232233323233

2547 013314
2548 013322
2549 013324
2550 013332
2551 013336
2552 013342
2553 013346
2554 013352
2555 013356
2556 013360
2557 013364
2558 013370
2559 013374
2560 013402
2561 013406
2562 013414
2563 013416
2564 013422
2565 013426
2566 013430
2567 013436
2568 013442
2569 013444
2570 013452
2571 013456
2572 013460
2573 013464
2574 013470
2575 013474
2576 013500
2577 013506
2578 013510
2579 013514
2580 013516
2581 013522
2582 013526
013532
2583 013534
2584 013540

000001

165546

165540

001142

001070
000001
000200
165516
001143

PRINT:

165714

108:
20$:

020000

000215
165532

165540

000212

165524

165516

013762
013764
013766
001351
000001

001144

15¢:

258:

165410

013772

010546

013650

BEQ
BIS

208
#BIT15.RS

MOV
MOV
JSR
BIT

aCSR,RS
#1,HLTDET
PC . CKSWR
aSWR, #20000

JMP

165362

108

EIR+1

208

1%
(SP)+,SAVPC
(SP)+.SAVC(
-(SP) .=(SP)
#215,3TPB
@TPS
b
#212,3TPB
@TPS
=4
R2,SAVR2
R3.SAVR3
R& . SAVR&
,$CRLF

BIT
BEQ

#8170 ,B0RW
158

B8R

258

TYPE

323232322220

R RRRRR

.SCRLF

TYPE

,SENULL

MOV
MOV

240,3TPB
SAVP(,=(SP)

MOV
TSTB
BPL
MOV

#240,37PB
aIPS
b
SAVCC,=(SP)

TYPOC
TYPE

MOV
ISTB
8PL
MOV
MOV

Rttt

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

;R1 NOW HAS ADD OF UPPER BYTE

JRETURN TO CSR #1
;SAVE CSR IN RS

sTEST FOR ANY ERROR

JNO ERROR BIT(S) SET
;ERROR WAS SET - RESTORE IT
2 CONT INUE
;SAVE CSR IN RS
;SAYS ERROR OCCURRED THIS PASS

sTEST FOR INHIBIT PRINT QUT
;IF SO, BRANCH OVER PRINT
;PC OF FAILING ROUTINE
;CC OF ERROR CONDITION
:RSPOSIYION THE STACK

sLINE FEED

;SAVE R2
;SAVE R3

;SAVE R4

,MSG7

= (SP)
TESTNO,

TYPOC
TYPE

23233323223

MSG4

MOV

TYPOC

165430

001354
000240
165354

aCSR,EIR
CSR,R1
#1,R1
#200.R1
aCSR.RS

BEQ

TYPE

015163
001351
001320

165402

MOV
MOV
ADD
BICB
MOV

TYPE

015014

2587 013560
2588 013566
2589 013572
2590 0}3574
013600
2591 013602
2592 013606
2593 013614
3620

#B1T0,aCSR

BNE
MOV
MOV
CMP
MOV
TSTB
BPL
MOV
ISTB
8PL
MOV
MOV
MOV

013770
013772

3332323338223

BIT

TSTB

001316

3233232

PRINT OUT THE ERROR PC AND STATUS REGISTER
2332332333323

100000

013374
165474
000001
014144

3332333323332

ENTERED WITH SYSTEM TRAP CALL (HLT)

:
e

32338333333 22323

SEQ 0078

,SENULL

#240,3TPB
. =4
#38 ,BUSERR
RS, =(SP)

@IPS

;;SAVE TESTNO FOR TYPEOQUT
::G0 TYPE-~OCTAL ASCII(ALL DIGITS)

;:SAVE SAVPC FOR TYPEOQUT
::G0 TYPE=--OCTAL ASCII(ALL DIGITS)
sSPACE BETWEEN WORDS
;sSAVE SAVCC FOR TYPEQUT

;.60 TYPE--OCTAL ASCIICALL DIGITS)
sPRINT SPACE

;PRINTER DONE
;BRANCH WHEN NOT DONE

.SAVE RS FOR TYPEQUT

TRING OR 200 DATOS BURST MODE

013632
2597 013634

104402
104401

012737
000405
022626
012737
000401
00024G
005737
001404

EXXXXREXK
VNN
W=

104401

001354
000006

000004

000006

000004

001314

—_

W
~

TYPOC
TYPE

3%:

5%:

015057
015131
013762
013764
013766
014144

2%:

MOV
BR

CMP

MOV

NOP

TST

MOV

. SENULL

;:G0 TYPE==OCTAL ASCII(CALL DIGITS)

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

CABLE

;PRINT

CABLE

MSSGE?

,MSG5S
MSG6

SAVR? ,R2
SAVR3,R3
SAVR4 R4

1%:

000042

000046

165356

000400

TST

PC,CKSWR

aSwR
.+

a2, a6
.+
BEQ

013132

JMP

CONTIN:
SAVR?:

2627 013772
2628

SEQ 0079

(SWITCH FLIPPED)

(%:

165400

XFERS

SAVR3:
SAVR4:
SAVPC:

SAVCC:

RTI]
QO

DRLAQ-DR11W GEN NPR INTF(

MACRO M1111 24-SEP-79 10:39 PAGE §1-1

0
O

aSWR,#400
CONTIN
END

;CHECK SR FOR HALT SWITCH
JHALT ON ERROR UP IN SWR
;JARE WE IN ACT17 AUTO MODE?
;BRANCH ON NO
JHALT ON ERROR IF IN ACT11 AUTO MODE
;GO TO NEXT BOARD?
sIF NO,CONTINUE THIS BOARD

T 7
CZDRLAO=-DR11W GEN NPR INTF(
MACRO M1111 24-SEP=79 10:39 PAGE 72
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)

SEQ 0080

2630

".'QQ...'Q"Qtt't..'..tt".'tt't'....t...lt.'t.l't.ttl.Att"..t..t'.'t.tt

2632

.';t.tttt'.t..'!"Q.tl..lt.'..t'.lt.t'..l't..t..'..'t.'t"tt'..QQQ.Q.Q"Q

2631

2633
2634
2635 013774
2636 014000

2637 014006
2638 014010

2639 014014
2640 014016

2641 014020

2642 014024

:
004737

014144

001003
011637

014126

032777
000002
022606

012677

000177

040000

164756

000076

165320

SCOPE LOCP ROUTINE ENTERED BY USER TRAP

SCOPEA: JSR

BIT

PC,CKSWR
#40000,aSWR

RTI
(MP

(SP)+,SP

;RETURN IN SEQUENCE
:REPOSITION THE STACK

@RE TURN

:SCOPE RETURN

BNE
MOV
SCOPEB:

MOV

JMP

SCOPER
@SP,RE TURN

(SP)+ ,aPSW

:SCOPE, BIT IS A ONE
:NO - SAVE PC FOR NEXT TIME

D_7
CZDRLAQ-DR11W GEN NPR INTFC
MACRO M1111 24-SEP=-79 10:39 PAGE 73
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)

SEQ 0081

2644
26‘*5

""tt't.tQQQt.t'Qt'tttt.t"'.tttt.it'tt.fitt'..'tttttQQQt.'.'t.Q!Q..tQ'.QQ

26(.7

."-tttt't.t..tt.'ttl'tt..t'ttt't.ttt't"..'ttttttQt.t""t.t.tt.ttttt'ttt

2646

2645
2649

2650 014030

004737

2652 014042

001365

2651 014034

2653 014044

2654 014050
2655 014052

014144

032777 040000
005777

001415
004737

165264

164744
014144

2656 014056 032777 004000

165242

2658 014066
2659 014074
2660 014076
2661 014102

023737
001403
005237
000745

014124

014122

2663 014110
2664 014114
2665 014120
2666 014122
2667 014124
2668 014126

011637
005237
000002
004000
000000
001604

014126
001320

2657 014064 001007

2662 014104

2669
Sg;? 014130

005037

000137

014124

000200

SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES

SCOPEC: JSR

BIT

PC,CKSWR

#40000, aSWR

:TEST SR FOR SCOPE

TST

aPNTPAS

:FIRST oPASS (@PASCNT=0) ?

BIT

#4000, aSwR

:TEST FOR ITERATION

CMP
BEQ
INC
BR

SCOPEF
, 1 COUNT
SCOPEG
SCOPEF
SCOPEB

:EXIT - DONE
* INCREMENT COUNT
*LOOP SOME MORE

BNE

BEQ
JSR

BNE

SCOPEG: CLR

MOV
INC
RTI
ICOUNT: 4000
SCOPEF: 0
RETURN: BEGIN

.EVEN
JMP

SCOPEB

SCOPEG
PC,CKSWR

SCOPEG

SCOPEF

aSP,RE TURN
TESTNO

*YES SCOPE

“BR IF YES, INHIBIT ITERATIONS

“INHIBIT ITERATION

;CLEAR COUNT

*SAVE SCOPE RETURN POINTER
JRETURN INLINE-NEXT TEST
;COUNT LOCATION FOR ITERATION LOOP
;ADDRESS OF LAST TEST

200

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

CZDRLAO-DR11W GEN NPR INTF(
TEST 65 STRING OR 200 DATOS BURST MODE XFERS

2673

7
SEQ 0082

(SWITCH FLIPPED)

::'t..Q.Q..".Q..."Qt.t"'tt""t.'.t'Q't....'t.....*t.....Qt"...'tt"

:
;

CHECK SWITCH REGISTER ROUTINE. (HECKS FOR “G TO ALLOW CHANGING
OF LOC. 176.

::l.'.t.'..Q.'..Q'Q'.'t.".......'l'."!'Q't't.t.'..t."t'.'...'.'t.'."

000000
000000
000000
000000
105777
100152

2689 014174
2690 014202
2691 014204

2692 014210
2693 014214
2694 014220
2695 014226
2696
2697 014230
2698 014236
2699 014240
2700 014244
2701 014250
2702 014254
2703 014260
014264
2704 014266
2705 014272
2706 014276
2707 014302
2708 014306
2709 014312

2710 014320
2711 014324
2712 014332
2713 014340
2714 014342
2715 014344
2716 014352
2717 014354
2718 014360
2719 014364
2720 014372
2721 014374
2722 014376
2723 014404
2724 014406
2725 014414
2726 014416
2727 014422
2728 014426

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

TEMPST:

.WORD

RDSW:
1.8:

.WORD
WORD

0
0

COUNT:

(KSWR:

165020

165014
177600

014142
014142

000023

014142

000042

014560
015372
021230
000176

001326

000007

014142

014500
177600
000025

CMP

#23,TI8

BNE
MOV
JSR

CNTLU:

JMP

014142
014142
014142

014567
015372
000007

014136

000060.

014142

000067

074142

1%:

PC,TTOUT

JSR

MOV
JSR
CLR
(LR

MOV
JSR

2%:

8$ :

aSwR,-(SP)
. SENULL

#7,COUNT
#25,TIR

YIS IT A ~U0?

#15,TIB

43
#CARLF ,R2
PC,TTOUT

BGT
(MPB
BGE

58
#67.TIB
6$

JSR
BR

;.G0 TYPE-=OCTAL ASCIICALL DIGITS)

:GO

#7.COUNT
7%
ouT

MOV

;;SAVE aSWR FOR TYPEOUT

PC.TTIN

CMP
BNE
B8R

(MPB

IT A <*G>

#INNEW,R2
PC,TTOUT
INTEMPST
TEMPST

2$
CNTLU

(MPRB

JIS

SWITCH REG PRESENT?

#OUTSWR ,R2

PC,TTOUT

BNE
BR

BNE
MOV

;SOFTW.

#S$CNTG,R2

#177600.718

JSR

4$:

ouT

BIC

CMPB

;LEAVE PROGRAM AND PRINT RUN SUMMARY

JSR

TYPE

$SREAD:

RUNSUM

PC,TTOUT

#7,718
ouT

MOV

;IF AUTO MODE.DON'T CHECK
;FOR CNTRL S

;NOT CNTRL S

CMP
BNE

BNE

;YES,WAIT FOR
JREADY, GET CHARA(CTER
;AND STRIP OFF
; THE GARBAGE

1%
#SCNTS ,R2
#SWREG, SWR

TYPOC

014136

P 4
1%

CMP

MOV

000015

014614
015372

BIC

TST
BNE

1%:

aTkS
ouT
aTkB,TIB
#177600,718

MOV

014552
015372
014573
015372
165042

001354
014603
015372
014134
014134
000007

TSTB
BPL
MOV

.WORD

#60,TIR

READ A CHARACTER

*STRIP OFF GARBAGE

*BRANCH IF NOT
*START OVER
YIS IT A <CR>?

*BRANCH IF NOT
:WAS IT FIRST CHARACTER
"CHANGE SWR IF NOT FIRST ONE
*GET ouT

#$QUEST ,R2
PC,TTOUT
3%

;JSTART OVER IF NOT LEGAL (HARACTER

(ZDRLAO-DR11w GEN NPR INTF(
MACRO M1111 24=SEP=79 10:39 PAGE 74-1
TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)
2729 014430
2730 014434
2731 014440
2732 014444
2733 014452
2734 014460
2735 014464
2736 014466
2737 014470
2738 014476

006337
006337
006337
142737
153737
005337
001754
000714

013777
000207

014134
014134
014134
000060
014142
014136
014134

6$:
014142
014134

164630

7$:
ouUT:

ASL
ASL
ASL
BICB
BISB
DEC
BEQ
BR
MOV
RTS

TEMPST
TEMPST
TEMPST
#60,TI8
TIR,TEMPST
COUNT
5%
18

TEMPST, aSWR
PC

SEQ 0083

;GET NITIY=GRITTY
;ONLY WANT 6

DIGITS

:CHANGE SWITCH REGISTER CONTENTS
JRETURN TO PROGRAM

MACRO M1111

(ZDRLAQ=-DR11W GEN NPR INTF(
TEST 65 STRING OR 200 DATOS BURST MODE

2740
2741
2762
2743
2744
2745
2746 014500
2747 014504
2748 014510
2749 014514
2750 014520
2751 014524
2752 014506
2753 014534
2754 014540
2755 014542

005077
005077
005037
005277
105777
100375
017737
105777
100375
113777

2757 014550
2758 014552
014555
2759 014560
014563
014566
2760 014567

000207
137
040
040
123
000
137

2761 014573
014576
014601
2762 014603
014606
014611
2763 014614
014617
2764 014622
014625
014630
014633
014636

137
122
046
040
105
040
137
137
040
105
040
123
040

TTIN1:

TSTB

aTKS

014142
136
046
137
040

107
000
136
046

$CNTG:

040
123
075
000
040
127
046
077
046
137
116
120
123
040
040
000
040
104
055
061
040
116
120
M
106
114
11
124

124
124

BPL

aTkB
TI8B
alks

TTIN1

MOV
TSTB

aTkB,TIB
aTPS

MovB

TIB.aTP8

BPL

TTIN2

$CNTS:

LASCIZ

/ _*S &/

046

CARLF:

_ASCIZ

'_ &'

127
040

OUTSWR:

.ASCIZ

'_SWR= g'

INNEW:

.ASCIZ

$QUEST:

.ASCIZ

°*'_?

SENPAS:

_ASCIZ

$TITLE:

LASCIZ

°'_ CZDRL-DR'1W GEN NPR INTFC LOGIC

MANT :

LASCIZ

/_TEST MODE: MAINT ONLY

.ASCIZ

'_*G &'

NEwW= &'
_&'

_ END PASS

107
e
e

NOWMW NWONNO

124
040
046

TTIN2:

CLR
CLR
INC

RTS

O§\N OO =0 =N S?

137
123

aTkS

164426

137
132
114
122
127
105
116
040
124
040
107
040
123
040
137

CLR

014142

040
046

TTIN:

164440
164434

2766 014723
014726

000

164464
164462
014142
164450
164444

2765 014646
014651
014654
014657
014662
014665
014670
014673
014676
014701
014704
014707
014712
014715
014720

TTY READ SUBROUTINE#*sxwasnnn

;;'t.'t.'t...‘Qt"fi‘.......'l.......‘...!Q.QQ'.'QQ...QQ..."QQ.'.'.QQ...

014641
014644

SEQ 0084

-JS?

014572

(SWITCH FLIPPED)

G 7
PAGE 75

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

®—

2756

XFERS

24=SEP=-79 10:39

TEST

__&°

040

SEQ 0085

111

114

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

o
— e

NNO =NV

OoO—

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

MSG6:

.ASCIZ /USER CABLE

MSG7:

.ASCIZ <15><12>/TESTNO

/TESINO

ERRF(C

PSW

DR11wW STATUS /

TEST/<15><12>

i?-&—n—a—a_p —_

NN—'OO§'\)NO — - = ON-2ON)

LASCIZ

SHOULD BE

IN/<15><12>

NOOWVIWESWW,m

8358

o
—A D) —a —a

nNNORES

—A—A—J-lo—h

RSRRUSRR

S ONO =2NYVNWWNNO

MSGS5:

- b

VS NNO W ooV

—d e D e e
e et e O
N = O —s —
—O000O
=
—
NONOWNIWO
NN = ~NWN
Q=N

)

MSGé :

—lo

T
e B R
b

oo LRV LN EC LD

®2 Q=
O - —

105

XFERS (SWITCH FLIPPED)

PAGE 75-1

040

90
§NNNNJ\N RoR —O —‘O?O—‘-‘O—'N ~S

116

24=SEP=79 10:39

104

117
072
101
124

—d
b

—=O0wWwoOwvruw
W=ONWO WO ~N
;£:8§>O}cunnt~b«n*ydhflvnrA-flC>

b
b
i
b cud
b
b

015

b cch
b
b
i
b wid ad
anl) =
il

D e

D i ad

)

b e

sleleleleleloleleleldlalolalolololele)

RO RV T RV W LW AV LV AV AV LV TV AV AV LV AV AV AV AV,

277

OO —==0O =N

015052
015055
2769 015057
015062

2770

ATOS BURST MODE

— e —a D

015041
015044
015047

015104

MACRO M1111

O —=hy—
WV NIWwWN

014731
014734
014737
014742
014745
014750
014753
2767 014755
014760
014763
014766
014771
014774
014777
015002
015005
015010
015013
2768 015014
015017
015022
015025
015030
015033
015036

8333R2R3R32RGIII3 S 3

CZDRLAO=DR11w GEN
TEST 65 STRING OR 2

ERRPC

PSW

DR11B STATUS/<15><12>

(ZDRLAQ=DR11w GEN NPR INTF(

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

TEST 65 STRING OR 200 DATOS BURST MODE XFERS (SWITCH FLIPPED)
015177
015202
015205
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

015

1
116
124
040
123
116
117

012

106

104
061
116
040

101
117
11
124
124
107
106

040
117
105
015

122
102
117
1M1

107
123
103
105
111
040
040

120
107
123
012

122
122
123
000

m
116
124
040
123
116
117
104
061
116
040
040
117
105
015

101
117
m
124
124
107
106
122
127
117
111
120
107
123
012

2772 015230

015260
015263
015266
015271

015274
015277
015302
015305

2773 015310

015313
015316
015321
015324
015327
015332
015335
015340
015343
015346
015351
015354
015357
015362
015365

2774
2775
2776
%;;g 015370
2779

015

000000

012

SEQ 0086

MSGB: .ASCIZ <15><12>/DIAGNOSTIC TESTING OF DR118B NOW IN PROGRESS/<15><12>

061
040
127
116

104

107
123
103
105
111
040
040
061
040
127
116
122
122
123
000

MSG9:

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

.EVEN
OFL:

sFIRST (HAR FLAG

—

MACRO M1111

(ZDRLAQ=DR11w GEN NPR INTF(

24-SEP=-79 10:39

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

PAGE 76

SEQ 0087

.‘.'..'.Q"'Q.‘t.......'.""t.ttttt.....'Ql".l'..'..'.'QQ.'Q......Q"Q"

TTY ASCII

OUTPUT ROUTINE

;.'lt.t..'.tt..t'.."'Ql'.'Q...'t.QiQtQ..'.'.t.t..t't..."......'.'...t'.

2785
2786 015372
2787 015374
2788 015376
2789 015402
2790 015404
2791 015412
2792 015414
2793 015416
2794 015422
2795 015424
2796 015430
2797 015432
2798 015436
2799 015440
2800 015444
2801 015446
2802 015450
2803 015454
2804 015460
2805 015462
2809 015466
280
2808 015470
2809

TTOUT:

000046

000100

163562

000137

1%:

.EMPTY:

000041
163536

1%:

163532
.RET:

il
021402
012

REST:

041

L.RETR:

TSTB

BEQ
CMPB
BNE
BIC
CLR
RTS

(CMPB

BEQ
CMPB
BEQ
TSTR
BPL
MOVB
BR
INC
MOV
MOV
BR
MOV
BR

BYTE
.EVEN

(R2)
1%
#'%,(R2)

#100,aTPS
R2
PC
#' ,(R2)

.RET

#'',(R2)

.REST

aTPS
1%

sCHECK FOR NULL CHARACTER

sIF NOT,

TYPE

THE CHARACTER

;CHECK FOR TERMINATOR

;CLEAR POINTER TO (HARACTER
sRETURN

;CRLF (HAR?

JCHECK FOR RETURN TERMINATOR

(R2)+,aTPB

;TYPE

R2
R2,.SAV
#.RETR,R2

JSET UP NEW POINTER

(HARA(CTER

T70UT

RET=6
.SAV,R2

TTOUT

15.12.%!

CZDRLAO=DR11W GEN NPR INTF(

MACRO M1111

2811
2812
2813

24=SEP-79 10:39

.SBTTL

PAGE 77

SEG 0088

LSBTTL
LSBTTL

SYSMAC ROUTINES
TYPE ROUTINE

AR RN ARE AR R AR AR

RRR RN R RN

AR A AR AR

ARR AR R AR R AR AR

AR RN

**ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
:#THE ROUTINE WILL

S*NOTE1:
T*NOTE2:

INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

SNULL CONTAINS THE CHARACTER TO BE USED AS THE 7ILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

*aNOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

TaCALL:
~1> USING A TRAP INSTRUCTION

“x

TYPE

,ME SADR

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TSTB
BPL

S$TPFLG
1%

::1S THERE A TERMINAL?
::BR IF YES

. sLEAVE

TYPE

ME SADR

015474
015500
015502
015504

105737
100002
000000

$TYPE:

001343

HAL T

1$:

000002

000011

MOV

48:

—_—
—_—

105366

000001

1634064

(SP)+,R0

#2,(SP)

6% :

7%:

::BRANCH IF NOT <CRLF>

::POP
<CR><LF> EQUIV
STYPE A CR AND LF

$CHARCNT

::CLEAR CHARACTER COUNT

SFILLC,(SP)+

“IS 17 TIME FOR FILLER CHARS.?

2$
PC,STYPEC

BNE
MOV

2
$NULL ,=(SP)

DECB

1(SP)

CMPB

<HT>

(SP)+

BR
JSR

“:GET NEXT CHARACTER
..co TYPE THIS CHARACTER

“IF NO GO cer NEXT CHAR.
" GET # OF FILLER CHARS. NEEDED

..Mo ue NULL CHAR.

*DOES
A NULL NEED TO BE

TYPED?

BLT

“:BR IF NO--GO POP THE NULL OFF OF STACK

DECB

$CHARCNT

2:DO NOT COUNT AS A COUNT

MOVB

PC.STYPEC

TAB PROCESSOR

..co TYPE A NULL

::LOOP

#' ,(SP)

: :REPLACE TAB WITH SPACE

BITB

#7.$CHARCNT

S:BRANCH IF NOT AT

(SP)+

::POP SPACE OFF

JSR

BNE
$TYPEC:

THE STACK

: :ADJUST RETURN PC

#CRLF, (SP)

B8R

015710

TERMINATOR POP IT OFF

: ;RESTORE RO

CMPB

BEQ

-HOR]ZONTAL

8s:

*:IF

RE TURN
,,aamcu IF

JSR

98 :

“:GET ADDRESS OF ASCIZ STRING
*:PUSH CHARACTER TO BE TYPED ONTO STACK
“:BR IF IT ISN'T THE TERMINATOR

#HT, (SP)

CLRB

5%:

1 :SAVE RO

RT]
CMPB

ST
TYPE
$CRLF

015644
015710

000040
015644
000007

82(SP) .RO
(RO)+,=(SP)
43

ADD

BNE

015644
001342

015600

(SP)+

608:

015710

001340

28:

000200

013746

RO, =-(SP)

MOV
MOVB
BNE

000002

MOV

SIHALT HERE IF NO TERMINAL

TSTB

BPL

PC,S$TYPEC
98

@$TPS

$TYPE(

S:TYPE A SPACE
LITAB STOP

STACK

“:GET NEXT CHARACTER

““WAIT UNTIL PRINTER IS READY

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

C(ZDRLAO-DR11W GEN NPR INTFC

TYPE

ROUTINE

01565¢
015660
015666
015670
015674
015676
015704
015706
015710
015712

116677

000002
000015

163456€

MOVB
CMPB

000002

015710
000012

000002

1%:

(MPB

INCB
$CHARCNT
: . WCRD
$TYPEX: RTS

2(SP) ,a$TPB

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

SEQ 0089

;;LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?
s ;BRANCH IF NO
::g§§;°CLEAR CHARACTER COUNT
;:1S CHARACTER A LINE FEED?
s ;BRANCH IF YES
;s COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

(CZDRLAO=-DR11W GEN NPR INTF(
BINARY TO OCTAL (ASCII) AND TYPE

24=SEP=79 10:39

MACRO M1111

2815

.SBTTL
e

iii232

BINARY TO OCTAL
22202

PAGE 78

SEQ 0090

(ASCIil) AND TYPE

R Rl
dl ]

$*THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6=DIGIT

%>
5
%

;.0=SUPPRESS LEADING ZEROCS

s*OCTAL (ASCII) NUMBER AND TYPE | Y.
;*$TYPOS==<ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:
NUM,=(SP)
MOV
:JNUMBER TO BE TYPED
TYPQOS
;.CALL FOR TYPEOUT
N
BYTE
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
w
BYTE
;:M=1 0R 0
;:1=TYPE LEADING ZEROS

1e$TYPON====ENTER HERE TO TYPE QUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC(

s*CALL:

MOV

TYPON

015714
015720
015726
015732

016137

015736

016137
016141
016136

,
- (SP)
NUM

;sNUMBER TO BE TYPED
;.CALL FOR TYPEOUT

;*$TYPO(===ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:
,
- (SP)
MOV
NUM
;sNUMBER TO BE TYPED
.'.
TYPOC
;. CALL FOR TYPEOUT
$TYPOS: MOV
a(SP) ,=(SP)
;;PICKUP THE MODE
1(SP) ,SOF ILL
MOvVB
;;LOAD ZERO FILL SWITCH
(SP)+,SOMOD+1
E
MOvB
: sNUMBER OF DIGITS TO TYPE
#2,(SP)
ADD
;;ADJUST RETURN ADDRESS

$TYPOC:

S$STYPON:

;:SET THE ZFRO FILL SWITCH
;2SET FOR SIX(6) DIGITS
;2SET THE ITERATION COUNT
;.SAVE R3
;:SAVE R4
;;SAVE RS
;2GET THE NUMBER OF DIGITS TO TYPE
;:SUBTRACT IT FOR MAX. ALLOWED
:2SAVE IT FOR USE
JsGET THE ZERO FILL SWITCH

1%:

2%:

016140

3%:

177770

;;ROTATE MSB INTO ''C*'

::G0 DO msB
::FORM THIS DIGIT

;;GET LSB OF THIS DIGIT
;:TYPE THIS DIGIT?
;:BR IF NO

;2TEST FOR O
; sSUPPRESS THIS 0?
4%:

052703

;:PICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD

5%:

;:BR !F YES

;;DON'T SUPPRESS ANYMORE Q'S
;JMAKE THIS DIGIT ASCII
JJMAKE ASCII

IF NOT ALREADY

110337

104401
105337

24=SEP=79 10:39

016134
016134
016136

MovB
TYPE

6%:

000002

000004
8%:

016140

$OCNT:
$OF ILL:
:
$OMODE

DECB
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI

.BYTE
.WORD

N 7

PAGE 78-1

R3,8%
8$

$OCNT
2

(SP) +,RS
(SP) +,R4

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

OOOOO

MACRO M1111
CZDRLAO-DR11W GEN NPR INTF(
BINARY TO OCTAL (ASCII) AND TYPE

SEQ 0091
;:SAVE FOR TYPING

;:G0 TYPE THIS DIGIT
;.COUNT BY 1
;sBR IF MORE TO DO
.:BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT
;JRESTORE RS
;sRESTORE R4

:;RESTORE R3

;2SET THE STACK FOR RETURNING

; ;RETURN
;:STORAGE FOR ASCII DIGIT
;: TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
;. ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

MACRO M1111 24-SEP-79 10:39 PAGE 99

CZDRLAO-DR11W GEN NPR INTF(
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2817

SBTTL

8
SEQ 0092

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

R AR

AR R R AR R RN AR

AR RN

AR AR

RN AR RN

R RN

AR RS

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

:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

s*CALL:

;TM

016142
016142
016144
016146
016150
016152
016154
016160
016164
016166
016170
016176
016200
016204
016210
016212
016216
016220
016222

.
$TYPDS:

005000

NUM,-(SP)

;;PUT _THE BINARY NUMBER ON THE STA(K
;.G0 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV

RC,-(SP)
R1,-(SP)
R2,=(SP)
R3, -(SP)
RS,-(SP

;:PUSH RO ON STACK
;;PUSH R1 ON STACK

NEG

*:MAKE THE BINARY NUMBER POS.

TYPDS

MOV
MOV
BPL

020200
000020
000055

MOV

000001

016356
000040

1%:

2%:

016346

MOVB
CLR

000040

#$DBLK ,R3

CLR

MOVB

BNE

016356

98 :

48
§§

*:CLEAR THE BCD NUMBER

anx DONE
“INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CONSTANT

“:CHECK IF BCD DIGIT=0

(SP)

S:STILL DOING LEADING 0°'S?

“IFALL THROUGH IF 0

BCC
MOVB
BIS

63
1(SP),=1(R3)
#'0.R2

BR IF NO
“YES=-SET THE SIGN
“IMAKE THE BCD DIGIT ASCII

MOVB

R2,(R3)+

“:PUT THIS CHARACTER IN THE OUTPUT BUF FER

ASLB

BIS

(SP)

(RO) +

cTMP

RO,#10

MOV
BR

RS,.R2
6$

BLT
BGT

177776

S:SETUP THE OUTPUT POINTER

BM]

TST

8$:

INDEX

*:GET THE CONSTANT
::FORM THIS BCD DIGIT

R1.RS

6$:

*:ZERO THE CONSTANTS

$DTBL (RO) ,K1
R1.RS

ADD
ST

LIMAKE THE ASCII NUMBER NEG.

“ SET THE FIRST CHARACTER TO A BLANK

48:

BLT
égc

“:SET BLANK SWITCH AND SIGN
2:GET THE INPUT NUMBER
S:BR IF INPUT IS POS.

#' .(R3)+

000010

177777

MOV
SUB

177777

#'=,1(SP)

MOV

ISTB

000001

#20200, -(sm
20(SP) RS
18

;;PUSH R2 ON STACK
:;PUSH R3 ON STACK
;;PUSH R5 ON STACK

TSTB

MSD?

“IMAKE

IT A SPACE

IF NOT ALREADY A DIG IT

2:JUST INCREMENT
ING

*:CHECK THE TABLE INDEX

2
s

1:GO DO THE NEXT DIGIT
2360 TO EXIT

(SP)+

“:WAS THE LSD THE FIRST NON-ZERO?

BPL

CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.RO
,$DBLK

MOVB

-.-BR IF YES

-1(SP),=2(R3)

*YES=-SET THE SIGN FOR TYPING

2 SET THE TERMINATOR
“:FJP STACK INTO RS
*:POP STACK INTO R3
*:POP STACK INTO R2
*:POP STACK INTO R1
*POP STACK INTO RO
“NOW TYPE THE NUMBER

CZDRLAO-DR11W GEN NPR INTF(

MACRO M1111

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

016334
016342
016344
016346
016350
016352
016354
016356

016666
012616
000002
023420
001750
000144
000012

000002

24=SEP-79 10:39

000004
$DTRL:

$DBLK:

PAGE 79-1

MOV
MOV

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

1000.
}OO.
0.
BLKW

RTI
10000.

SEQ 0093
s sADJUST THE STACK
;;RETURN TO USER

CZDRLAO-DR11wW GEN NPR INTF(

TTY

INPUT ROUTINE

2819

LSBTTL

D 8
PAGE 80

24=SEP-79 10:39

MACRO M1111

.ENABL
.DSABL

SEQ 0094

TTY INPUT ROUTINE

eT
L

LSB
LSB

':Q"'Q.QQ.Q"'QQ".Q.Q.!'ti'.QQttttt.".Q.!'t..".t'.'tit."..QQ

:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
;=CALL:
I*

::INPUT A SINGLE CHARACTER FROM THE TTY
::CHARACTER IS ON THE STACK
::WITH PARITY BIT STRIPPED OFF

RDCHR

RETURN HERE

- %

011646
016666
105777
100375
117766

042766
026627
001013
105777

100375
117746

042716
022627
000750
026627
002407
026627
003003
042766
000002

000004
162726

000002

162722
177600

000004

$RDCHR: MOV
1%:

RPL
MOVB

1%
@$TKB,4(SP)

BNE
TSTB
8PL
MOVB

3%
a$TKS
2%
@$TKB,=-(SP)

BIC
CMP

2%:

162674

4(SP),2(SP)

TSTB

000004
000023

162670
177600

000004

000140

000004

000175

000040

000004

3$:

BNE
BR
CMP
BLT

2%
1%
4(SP) ,#140
43

BGT
BIC

48
#40,4(SP)

RTI

#AC<177> .4 (SP)
L(SP) 423

#-C177.,(SP)

CMP

A ¥

@$TKS

BIC

CMP

000021

(SP) ,=(SP)

MOV

(SP)+, 021

4(SP) .#175

."
i

*CALL
:

108 :

001350

A ¥

016612
016612
000015

3$:

177777

001352
016574

000004

YES

..IS IT A SPECIAL CHAR?

::BRANCH IF YES
;MAKE IT UPPER CASE

..60 BACK TO USER

R3,-(SP)
#STTYIN.RZ
#STTYIN+7.
,R3
4%

;;INPUT A STRING FROM THE TTY
; :ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;:TERMINATOR WILL BE A BYTE OF ALL 0°'S

;:SAVE R3

8R
MOVB

is
(R3),9%

;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

(MPB
BNE
CLRB

#15,(R3)+
2s
=1(R3®)

;sCHECK FOR RETURN
;;LOOP IF NOT RETURN

(SP)+,R3

,,RESTG?E R3
;;ADJUST THE STACK AND PUT ADDRESS OF

MOVB

(MPB

BNE

TYPE

MOV
000002

;BRANCH IF

;:GET ADDRESS
;:BUFFER FULL?
;:BR IF YES
;:G0 READ ONE CHARACTER FROM THE TTY
;:GET CHARACTER
:21S IT A RUBOUT
;:SKIP IF NOT

RDCHR

000177

;3A CHARACTER
JJREAD THE TTY
::GET RID OF JUNK IF ANY
;:IS IT A CONTROL=-S?
;;BRANCH IF NO
JiWAIT FOR A CHARACTER
;;LOOP UNTIL ITS THERE
;:GET CHARACTER
;JMAKE IT 7-BIT ASCII
;:1S IT A CONTROL-Q?
;21F NOT DISCARD IT
;sYES, RESUME
.‘:IS iT UPPER CASE?

INPUT A STRING FROM THE TTY

RCLIN
RETURN HERE

SRDLIN MOV
1%:
MOV
28:
CMP
BLOS

016614
016623

;;WAIT FOR

2322222222323 2232332222323
232022222222t RRRRRRRRlldl

-Exls ROUTINE WILL
-

. sPUSH DOWN THE PC
;SAVE THE PS

MOV

(SP)+, (R3)

#177.(R3)
LSQUES

,9%

LSLF

(SP) ,=(SP)

4(SP) ,2(SP)

J:TYPE A 2

;;CLEAR RETURN (THE 15)

;:TYPE A LINE FEED
22

FIRST ASCII

CHARACTER ON IT

THE

(ZDRLAO-DR11w GEN NPR INTFC(

TTY

MACRO M1111

INPUT ROUTINE

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

012766
000002
000
000

016614

136

125

107
000
012
122
040
040
127
040

012

136
012
015
127
075
040
105
075

000

24-SEP-79 10:39

PAGE 80-1

SEQ 0095

HSTTYIN,4(SP)

C15

MOv
RTI
9%:
.BYTE
.BYTE
$TTYIN: .BLKB
SCNTLU: .ASCIZ

I
/20/<15><12>

;.STORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR
::RESERVE 7. BYTES FOR TTY [NPUT
::CONTROL 'V

015

SCNTILG:

.ASCIZ

/2G/<15><12>

;:CONTROL 'G"'

123
040
000
116
040
000

SMSWR:

.ASCIZ

<15><12>/SWR =

SMNEW:

(AS(IZ

000004

—

: ;RETURN

0
0

NEW
= /

CZDRLAO-DR11w GEN NPR INTF(
READ A DECIMAL NUMBER FROM THE

24=SEP=79 10:39

MACRO M1111
TTY

2821

.SBTTL
e

F
8
PAGE 81

SEQ 0096

READ A DECIMAL NUMBER FROM THE TTY

223323333333 33 2332332322332

222232

RRRdld)

:*THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND
:*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS

:*ARE READ A """ FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED.
;*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE
;*USER TYPING_A_CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS
;*POSITIVE 32767 TO NEGATIVE 32768.

s*CALL:
.
. %

016660

016662
016670
016672

016674
016676

016702
016712

011646

016666
010046
010146

000004

010246
104407

010037
122710

000002

$RDDEC: MOV

1%:

017026
000055
2%:

016726

122701

000060

016734

122701

(€00071

016742

032716

170000

RDDE(C
RETURN HERE
MOV
MOV
MOV
MOV
RDLIN
MOV
MOV

CLR
CLR
CMPB
BNE
MOVB
MOVB
BEQ

017004

012666

000012

BVS
SuB

(%:

5%:

017030

000000
104401

001350

6%:

(RO)+,RZ
(RO)+,R1

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

BLT
8IT
BNE

-(SP)

R2
#'-,(R0O)

CMPB

BGT

000060

(SP)+ RO

#'0,R1

MOV
ASL
ASL
ADD

162701

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

CMPB

ASL

016764

(SP) ,~(SP)
4(SP) ,2(SP)
RO,=(SP)

ADD
BVS
BR
TST

BEQ
NEG
MOV
MOV
MOV
MOV
RT]

TST
CLRB
TYPE

. WORD

TYPE

B8R

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

#'0,R1
R1, (SP)

5%
2%

R2
43

(SP)

(SP)+,12(SP)
(SP)+ ,R2
+ ,R1
(SP)
(SP)+ R0
+
(SP)

(RO)

. SQUES
3

;oREAD A DECIMAL NUMBER
;:NUMBER IS ON TOF OF THE STAC(K
; ;PROVIDE SPACE FOR
;. THE INPUT NUMBER

;;PUSH RO ON STA(K
;;PUSH R1 ON STA(CK
:;PUSH R2 ON STACK
;:READ AN ASCIZ LINE
; ;ADDRESS OF 1ST CHAR.
;s SAVE INCASE OF BAD INPUT
;;CLEAR DATA WCRD
;:SIGN SET POSITIVE
;:5EE IF A MINUS SIGN WAS TYPED
;:BR IF NO MINUS SIGN
;:SAVE FOR LATER USE
;:PICKUP THIS CHARACTER
;;GET OUT IF ZERO
;MAKE SURE THIS CHARACTER
;:1S A DIGIT BETWEEN O & 9
..D(N T LET NUMBER GET TO BIG

BR 1F NUMBER WOULD OVERFLOW

‘.SAVE FOR LATER

OVERFLO\vI ISN'T ALLOWED

,.STRIP AWAY THE ASCII

;ADD IN THIS DIGIT

JUNK

..OVERFLOJ ISN'T ALLOWED
IF NUMBER IS NEG
..g:f?’(

..YES-'fGATE THE NUMBER
;:SAVE THE RESULT
"PU’ STACK INTO RZ
;POP STACK INTO R1

::POP STACK INTO RO

; sRETURN

;:CLEAN PARTIAL NUMBER FROM STAC(K
;:SET A TERMINATOR

;:TYPE

THE

INPUT UP

..POINTER GOES HERE
..,l.

COCR

:TRY AGAIN

zlrll

TO BAD (HAR,

MACRO M1111
(ZDRLAO=-DR11W GEN NPR INTFC
READ AN OCTAL NUMBER FROM THE TTY

24-SEP=-79 10:39

.SBTTL

2823

G_8
PAGE 82

SEQ 0097

READ AN OCTAL NUMBER FROM THE TTY

2222232232333 2332232323233

233 2332223222222

RRRRRRR

“*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
s*CHANGE IT TO BINARY.
;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

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

;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.

*CALL:

o%
o
%

017040

016666

000004

000002

$RDOCT: MOV
MOV
MOV
MOV
MOV
$:

017060

010037

017164

2%:
017074

122716

000060

017102

122716

000067

017124

017136
017142

042716

010166
010237

3%:

001350

5%:
$HI0CT:

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

(SP)+ RO
RO,5%
R1
R2
(RO) +,=(SP)
3%
#'0,(SP)
48
#'7,(SP)
4%
R1
R
R1
RZ
R1
R2

BIC

#*(7,(SP)

MOV
MOV
MOV
MOV
MOV

R1,12(SP)
R2.$HIOCT
(SP)+,R2
(SP)+ R1
(SP)+,RO

TST

(SP)+

ADD

000000
104401

RDL IN

MOV
MOV
CLR
CLR
MOvVB
BEQ
(MPB
BGT
CMPR
BLT
ASL
ROL
ASL
ROL
ASL
ROL

177770

000012
017174

RDOCT
RETURN HERE

TST

RTI

(SP)+ ,R1

+
(SP)

(LRB

(RO)

. WORD

TYPE

B8R

.WORD

. SQUES

;READ AN OCTAL NUMBER
;2LOW ORDER BITS ARE ON TOP OF THE STACK
;JHIGH ORDER BITS ARE IN SHIOCT
;;PROVIDE SPACE FOR THE
;2 INPUT NUMBER
;:PUSH RO ON STACK
:2PUSH R1 ON STACK
:.FUSH R2 ON STACK
;JREAD AN ASCIZ LINE
;:GET ADDRESS OF 1ST CHARACTER
;sAND SAVE IT
;:CLEAR DATA WORD
;:PICKUP THIS CHARACTER
IF ZERO GET OUT
;.
;:MAKE SURE THIS (HARACTER
::1S AN OCTAL DIGIT
Ji%2
L

;:%8
;:STRIP THE ASCII JUNK

;;ADD IN THIS DIGIT

;.LOOP

;:CLEAN TERMINATCR FROM STACK
;:SAVE THE RESULT

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

: JRETURN
;sCLEAN PARTIAL FROM STACK
;:SET A TERMINATOR

;sTYPE UP THRU THE BAD (HAR.
::.7.l

IICRIO

CIFII

::TRY AGAIN
::HIGH ORDER BITS GU HERE

CZDRLAO=DR11w GEN NPR [NTF(

TRAP DECODER

MACRO M1111

2825

24=SEP=79 10:39

.SBTTL
AR

PAGE 83

SEQ 0098

TRAP DECODER

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

'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

017176

010046

017210

006300

017200
017204
017206
017212

016600
005740
111000

000002

016000

Q17232

017216

000200

017220

011646

017222
017230

016666
000002

THE "‘TRAP'' INSTRUCTION

'AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
."OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WilLL
;*GO TO THAT ROUTINE.

$TRAP:

MOV

RO,=(SP)

;:SAVE RO

ASL

;;POSITION FOR INDEXING

MOV
TST
MOVB

2(SP) ,R0O
-(R0O)
(RO) ,RO

MOV

:;GET TRAP ADDRESS
;sBACKUP BY 2
;:GET RIGHT BYTE OF TRAP

$TRPAD (RO) ,R0O

RTS

HOV
RTI

l.(SP).?(SP)

,.IWEX TO TABLE
;GO TO ROUTINE

;:THIS IS USE TO HANDLE THE 'GETPRI" MACRO

000004

000002

$TRAP?:
.SBTTL

;*THIS

(SP),=(SP)

TRAP TABLE

TABLE

CONTAINS

THE

;MOVE THE PC DOWN

;;MOVE THE PSW DOWN
;;RESTORE THE PSW

STARTING ADDRESSES OF

;*BY THE '‘TRAP'' INSTRUCTION.

282¢

017232
017234
017236
017240
017242
017244
017246
017250
017252
017254

017220
015474
015740
015714
015754
016142
016366
016506
017036
016660

ROUT INE

§TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
STYPON
$TYPDS
SRDCHR
SRDLIN
$RDOCT
SRDDEC

STRAP2
;:CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS
::CALL=RDCHR
::CALL=RDLIN
- -CALL=RDOCT
- -CALL=RDDEC

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

THE ROUTINES CALLED

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
READ A DECiMAL NUMBER FROM TTY

CZDRLAO=DR11w GEN NPR INTF(
MULTIPLE BOARD DIALOGUE

2828
2829
2830
2831
2832
2833 017256
017256
017262
017334
2834 017334
017340
017366
2835 017366
2836 017370
2837 017374
2838 017402
2839 017404
2840 017412
2841 017414
017420

MACRO M1111

.SBTTL

017450
2845 017450
2846
2847 017452
017452
017456
017464
2848 017464
017464
017470

017500
2849 017500
2850 017502
2851 017506
2852 017514

2853 017516
2854 017524
2855 017526
2856 017534
2857
2858 017536

PAGE 84

8
SEQ 0099

MULTIPLE BOARD DIALOGUE

M3D MONITOR-COMMAND DECODER
104401

000424
104401

000412
104406

012637
023727
001423
023727
104401

000402

:
MBD

017264

;1658

64%:

017342

:1:67%:

66%:

001360
001360

000131

001360

000116

10440

000402

ERRMSG:

017436

;:65%:

64%:

:
YESMBD

017460

;.65%:

64%:

104401

000403
104406

:
PROMPT

017472

;.65%:
64%:

012637
023727
001420
023727
001423
023727
001425

001360
001360

000114

001360

000122

001360

000105

104401

017544

017542

000404

017554
2859 017554

000743

TYPE
BR
LASCIZ

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

RDCHR

ANSWER ,#131

BNE

ERRMSG

;1S ANSWER YES?
YESMBD
IF YES,CONTINUE
ANSWER #1116
;1S ANSWER NO?

68%

;IF NEITHER YES OR NO ERROR IN REPLY
;sTYPE ASCIZ STRING
;:GET OVER THE ASCIZ

RTS

; NO,SKIP DIALOGUE

.65%

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

LASCIZ

TYPE

B8R

ASCIZ

.69%

/N/<CRLF>

64%
7

177

BR MBD
TYPE

,65%

649

TYPE
BR
LASCIZ

,65%
648
<CRLF>/=

LASCiZ

RDCHR

MOV

/Y/<CRLF><(CRLF>

)
+ ,ANSWER
(SP

;o TYPE

ASCIZ

STRING

;:TYPE

ASCIZ STRING

::GET OVER THE ASCIZ

;:GET OVER THE ASCIZ

(MP

ANSWER ,#114

sLIST PRESENT TABLE?

(MP

ANSWER ,#122

CMP
BEQ

ANSWER
, #105
EDIT

;RUN PROGRAM?
s YES
JEDIT TABLE?

BEQ
BEQ

TYPE

::67%:
66%:

(SP)+ ANSWER

(MP

BEQ
(MP

;:69%:
68%:

000702
104401

LASCIZ

,65%
;. TYPE ASCIZ STRING
64%
;.GET OVER THE ASCIZ
<CRLF><CRLF>/DO YOU WISH MULTIPLE BOARD DIALOGUE?/

MOV

017422

000207
000405

TYPE
BR

TYPE

017426
2843 017426
2844 017430
017430
017434

24=SEP=79 10:39

BR
JAMIY

LSTTBL

;VYES

RUNPRG

,67%

66%
TN}
F

BR PROMPT

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

CZDRLAO-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
2868 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
020042
2882 020042
020044
2883 020046
2884 020054

104401

000401

017626

104401

017602

::65%:
64%:
RUNPRG:

::65%:

64%:

000207
104401

000401

;:65%:

020100

005037
012701
012702

001322
001024
001076
017650

104401

013746
104405
104401

000416

020002

104405
104401

000402

PRTBL:

64%:

000402

TYPE

LASCIZ
RTS

TYPE

ASCIZ

MOV

INC

ASCIZ
MOV

TYPDS

020020

TYPE

-71%:

bbs:

ASCIZ

:73%

bos:

012246
001022

SEQ 0100

;. TYPE ASCIZ STRING

;.GET OVER THE ASCIZ

PROMPT

,65%

648

/R/<(RLF>

;. TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

,65%

649
/E/

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

,65%
64%

;:TYPE ASCIZ STRING
.:GET OVER THE ASCIZ

QTYBRD,=(SP)

;:SAVE QTYBRD FOR TYPEOQUT
;:G0 TYPE--DECIMAL ASCII WITH SIGN
;. TYPE ASCIZ STRING
:.GET OVER THE ASCIZ

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

,67%

66%

<CRLF><CRLF>/BOARD#

BOARDS REQUESTED FOR TESTING:

REGSTR.

VECTOR/<CRLF>

LOOP
,69%

68%

<CRLF>

LOOP,=(SP)
71%

?os

;:TYPE ASCIZ STRING
;.GET OVER THE ASCIZ
;:SAVE LOOP FOR TYPEOQUT
;2G0 TYPE--DECIMAL ASCI] WITH SIGN
;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ
(R1)+ FOR TYPEOUT

MOV

(R1)+,=(SP)

;:SAVE

TYPE

73$

;.TYPE ASCIZ STRING

TYPOC

020036

PC,PRTBL

LOOP
#REGADR,R1
#VECADR,R2

ASCIZ

683:

CLR
MOV
MOV
TYPE

TYPE

001322

658
648

PC,TBLEDT
PROMPT

LASCIZ

PAGE 84-1

JSR

;:67%:

66%:

;.69%:

001322

JSR

TYPE

012146
104402
104401

ASCIZ

TYPDS

017734

104401

TYPE

001022

001322

013746

64%:

;:65%:

005237
000401

EDIT:

017616

004737
000717

000424

24=SEP=79 10:39

LSTTRL:

017564

004737
000734
000402

MACRO M1111

72%

8‘:SCII

MOV

(R2)+,=(SP)

(MP

LOOP,QTYBRD

TYPOC

BEQ

PRTF IN

;2G0 TYPE=--OCTAL ASCIICALL DIGITS)

;:GET OVER THE ASCI2

..SAVE (R2)+ FOR TYPEQUT
;260 TYPE=--OCTAL ASCIICALL DIGITS)

CZDRLAO=-DR11W GEN NPR INTF(
MULTIPLE BOARD DIALOGUE
2885 020056
2886 020062
2887 020064
020064
020070

020076
2888 020076
2889
2890 020100
2891 020104
2892 020110
2893 020114
020114
020120
020174
020174
2894
2895 020176
2896 020202
2897 020206
2898 020210
2899 020216

005237

001322

104401

020072

000744

000402

MACRO M1111

PRTFIN:

::65%:
64%:

000207

012701
012702
005037

001024
001076
001322

104401

020122

000425
104411

012637
005737

INC
BR
TYPE

RTS

MOV

BRDNO:

,65%

649

_ASCIZ

CLR LOOP
TYPE

ASCIZ

TST

Vu0020

éégft:

001022

#VECADR,R2
L65%

ENTRY:

;:TYPE ASCIZ STRING

64%

;:GET OVER THE ASCIZ

<CRLF><CRLF>/HOW MANY BOARDS DO YOU WANT TO TEST?

+ ,ANSWER
(SP)

ANSWER

BRDNO

BLE
TYPE

CORRCT
,67%

ANSWER ,#20

66%

JMP

EDTFIN

LASCIZ

CORRCT: MOV

INC LOOP

TYPE

:2GET OVER THE ASCIZ

#REGADR,R1

BEQ

CMP

020226

;sTYPE ASCIZ STRING

RDDEC

MOV

001360
001360

SEQ 0101

LOOP
1%

B8R

TBLEDT: MOV

éigSS:

001360

K 8
PAGE 84-2

24=SEP=79 10:39

;:TYPE ASCIZ STRING

;:GET OVER THE ASCIZ

<CRLF>/MAX BOARDS OF

16 EXCEEDED/

ANSWER,QTYBRD
,65%

;:TYPE ASCIZ STRING

649

013746

MOV

LOOP,=(SP)

;:SAVE LOOP FOR TYPEOUT

000413

TYPE
BR

L,67%
66%

;2TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

MOV

(R1) ,=(SP)

68%

éigss:

104405
104401

011146
104402
104401

000402
104410

ASCIZ

TYPDS

ég%?S:

.ASCIZ

TYPOC
TYPE

020374

;:69%:

688:

LASCIZ

RDOCT

:2GET OVER THE ASCIZ

<CRLF><CRLF>/B0OARD /

<CRLF>/ REGISTER ADDRESS:

,69%

MOV
TST

ANSWER

013721
000401
005721

001360

BKR?V

%S\&R.(Rl)'

TST

(R1)+

104401

020432

TYPE

%::

::SAVE

(R1) FOR TYPEOUT

:2G0 TYPE=-=OCTAL ASCIICALL DIGITS)
;sTYPE ASCIZ STRING

::GET OVER THE ASCiZ

)
+ ,ANSWER
(SP

001360
001360

BEQ

;G0 TYPE--DECIMAL ASCII WITH SIGN

JINSTALL NEW # IN TABLE

J2TYPE ASCIZ STRING

(ZDRLAO=DR11W GEN NPR INTF(
MULTIPLE BOARD DIALOGUE

020430

000411

020454
2918 020454
020456
020460
2919
020464

011246
104402
104401
000402

020472
2920 020472
2921 020474
2922 020500
2923 020504

2925 020506
2926 020512
2927 020514
2928
2929 020516
2930 020524
2931 020526
2932 020532
2923 020536

104410
012637
005737
001403

718

708:
020466

::73%:

72%:
001360
001360

013722
000401
005722

001360

023737
001404
005237
000137

001322

000207

MACRO M1111 24=SEP=79 10:39 PAGE 84-?7

(%:

001322
020300

001022

5%:

SEQ 0102

70%

::957 OVER THE ASCIZ

MOV
TYPOC
TYPE
B8R

(RS) ,=(SP)

;:;SAVE

(R2)

72%

;. TYPE

ASCIZ

RDOCT
MOV
TST
BEQ

ANSWER
3

LASCIZ

MOV
BR
TST

cMP
BEQ
INC
JMP
EDTFIN: RTS

/VECTOR ADDRESS:

73$

(SP)+ ,ANSWER

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

LOOP,QTYBRD
EDTFIN
LOOP
ENTRY

FOR TYPEOUT

;260 TYPE=-=OCTAL ASCIICALL DIGITS)
;:GET OVER

STRING

THE ASCIZ

CZDRLAO-DR11W GEN NPR INTF(
MACRO M1111
BURST DATA LATE CALIBRATION ROUTINE
223;2

;

24~SEP-79 10:39

.SBTTL

2937 020540

020540

104401. 020546

020544 000426
g

2928 020622

104401

020626 000412

020654

2939 020654

2940 020656
2941 020662
2942 020670
2943 020672
2944 020700
2945 020702
020706
020714

2946 020714
2947 020716
020716

02073

22&3 020732

; 5.25”

020630
66%:

104406

688:

000207

104401

000702

::698:

020724

4$:
.:718:

708:

2950 020734

3s:

020746

728

020734 104401 020742
020740 000402

2951 020746 104401

020752 000426

020754

2952 021030 104401
021034

000414

%;ss:

021036

021066
2953 021066 104401 021074
021072 000424
ek

2954 021144
2955
2956 021150
2957 021152
2958 021156
2959 021162
2960 021166
2961 021170
2962 021174
2963 021200
2964 021204

.:73%:

TYPE

LASCIZ

B8R

JASCIZ

RDCHR

768:

%;9::

::TYPE ASCIZ STRING

“:GET OVER THE ASCIZ

<CRLF><CRLF>/DO YOU WISH BURST DATA LATE CALIBRATION?/

678

66$

;:TYPE ASCIZ STRING

“ GET OVER THE ASCIZ

<CRLF>/(Y=YES, N=NO):

(SP)+,ANSWER
ANSWER , #131
3$ _
ANSWER,#116
43

:YES?
:NO?

68$

“:GET OVER THE ASCIZ

RTS

.ASCIZ

TYPE

,69%

/N/<CRLF>

7138

708

::TYPE ASCIZ STRING

“:GET OVER THE ASCIZ

BRSTDL

TYPE
B8R

738
72%

;:TYPE ASCIZ STRING
“:GET OVER THE ASCIZ

75%

::TYPE ASCIZ STRING

.ASCIZ

TYPE

LASCIZ

2272 /

;:TYPE ASCIZ STRING

LASCIZ

/Y/<CRLF>

748

“:GET OVER THE ASCIZ

<CRLF>/BURST DATA LATE CALIBRATION IN PROGRESS../

77%

::TYPE ASCIZ STRING

768

TYPE
BR

LASCIZ

79%
788

::TYPE ASCIZ STRING
-*GET OVER THE ASCIZ

<CRLF>/TO ABORT THIS ROUTINE,HALT PROCESSOR../

DEFRAD,RO
(RO)+, (RO) +
RO, CSR
DEF VAD ,RO
RO, DRINV

:BURST DATA LATE CALIBR. USES
*DEFAULT REG. AND VECTOR ADDRESSES

RO,DRVS
PC . NORMAL
aCSR
#100,
T IME

.ASCIZ

013700
022020
010037
013700
010037

001004
001070
001006
001136

MOV
cMP
MOV
MOV
MOV

010037
004737
005077
012737

001140
010156
157664
28:
000100 001312

MOV
JSR
CLR
MOV

005720

,65%

64$

MOV
CMP
BEQ
CTMP
BNE
TYPE
B8R

TYPE

.:77%:

SEQ 0103

BURST DATA LATE CALIBRATION ROUTINE

TYPE

::67%:

012637 001360
023727 001360 000131
001421
023727 001360 000116
001006
104401
020710
000402

020722 000403

BRSTDL:

PAGE 85

*:GET OVER THE ASCIZ

<CRLF>/ATTACH SCOPE PROBE.../

(RO)+

:CLR CYCLE BIT

MACRO M1111
CZDRLAO-DR11W GEN NPR INTFC
BURST DATA LATE CALIBRATION ROUTINE
2965 021212
2966
2967 021220
2968 021224
2969 021226
2970
2971
2972
2973

052777

000400

005337
001375
000764

001312

24=SEP=79 10:39

157650

BIS
1%:

.SBTITL

2974 021230
2975 021234
2976 021240
2977 021244
2978 021250
021254
021300
2979 021300
021304

013700
012701
012702

012703
104401

000411
104401

000414

001022
001024
001206
001246
021256

MOV
MOV

TYPE

;:67%:

66%:
1%:

012146

LASCIZ

TYPE

021306

JSET CYCLE BIT

TIME

JWAIT

1%
2%

LASCIZ

#ERRCNT ,R3

2987 021372
000200

,67%
66%

;2TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<CRLF>/RUN SUMMARY.../<CRLF>

MOV

(R2)+,=(SP)

MOV

(R3)+,=-(SF)

DEC
BEQ
TYPE

RO
2%
,69%
68%

2%:

BR
RESET
JMP

BUFF :

XINBUF:

XCHKBU:

LEVEL:

<CRLF>/BOARD

(R1)+,-(SP)

_ASCIZ

.=.+1000
0
.

;NO. OF BOARDS TESTED

;. TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

MOV

;:698:

.SAV:

:TO ABORT,HALT PROCESSOR

,65%
648

TYPDS
TYPE

688:

;LOOP ALWAYS:SETTING AND CLEARING CYCLE

QTYBRD ,RO
#REGADR,R1
#PASCNT ,R2

TYPDS

021370

SEQ 0104

#400,aCSR

TYPOC

001354

RUN SUMMARY ROUTINE

RUNSUM: MOV
MOV

éigSS:

021336

DEC

BNE
BR

PAGE 85-1

.=.+1000

LSENULL

<CRLF>

PASCNT

ERRCNT/<CRLF>

;:SAVE (R1)+ FOR TYPEOUT
;G0 TYPE=--OCTAL ASCIICALL DIGITS)

::SAVE (R2)+ FOR TYPEOUT

;GO TYPE--DECIMAL ASCII WITH SIGN

::SAVE (R3)+ FOR TYPEOUT
;G0 TYPE~-DECIMAL ASCI] WITH SIGN

;s TYPE ASCIZ STRING
;.GET OVER THE ASCIZ

200
;FOR STACK PGINTER 100 LOCATIONS

CZDRLAO-DR11W GEN NPR INTFC(C
SYMBOL TABLE

MACRO M1111

24-SEP-79 10:39

ANSWER 001360
ATTN = 020000
BAOFCK 010546
BAR
001066
BOFAIL 001362
BDR
001072
BEGAUT 001670
BEGIN
001604
BITO = 000001
BIT1 = 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S = 100000
BIT2 = 000004

CYCLE = 000400
DATCHK 010116
DATOCK 010200
DDISP = 177570
DEFRAD 001004
DEFVAD 001006
DIOMEM 001150
DISPLA 001324
DISPRE 000174
DONE
005556
DRINL
001074
DRINV
001136
DRVS
001140
DSTATA= 001000
DSTATB= 002000
DSTATC= 004000
DSWR = 177570

LOADA
007726
LODBUF 007714
LOOP
001322
LSTTBL 017556
MAINT = 010000
MANCBL 014755
MANT
014723
MBD
017256
MFLOOP 006662
MSG4
015014
MSG5
015057
MSG6
015131
MSG7
015163
MSG8
015230
MSG9
015310
NEX
= 040000
NEXCHK 010406

BIT6
BIT7
BIT8

END
END1
ENTRY

BIT3
BIT4
BITS

= 000010
= 000020
= 000040

= 000100
= 000200
= 000400

BIT9 = GO1000
BORW
001144
BRDNO
020114
BRDSET 001656
BRLEV
006272
BRSTDL 020540
BRWAIT 001162

BUF F

022404

BUFLEN 001156
BUSERR= 000004
CABLE
001314
CARLF
014567
CBL
010622
CHKA
007764
CHKBFF 007752
CHKBUF 001154
CKBAR
002116
CKBDR
002142
CKCSR
002130
CKDRIN 002154
CKDRVS 002170
CKFIN
002336
CKSWR
014144
(KWCR
002104
CNTLU
014250
COMPAR 010132
COMPRR 010214
CONTIN 013760
CORRCT 020266
COUNT
014136
CPUERR 002204
CR
= 000015
CRLF = 000
CSR
001070

PAGE 85-2

SEQ 0105
RUNSUM 021230
Ré
=3000006

137
T37CHK

ERRCHK 010246
ERRCNT 001246
ERRDO
006534
ERRDO1 006614
ERRMSG 017430
ERROR = 100000
ERRVEC= 000004

NPRRDY
NPR1
NRM
NSTAT
NXTBRD
OFL
0K
ouT
OUTSWR
PASCNT

011012
001146
007514
006132
013260
015370
007370
014476
014573
001206

SAVPC
013770
SAVRZ
013762
SAVR3
013764
SAVR¢
0137
SCoP
010450
SCOPE =
SCOPEA 013774
SCOPEB 014016
SCWPEC 014030
SCLPEF 014124
SCONEG 014104
SR
001000
STACK = 022404
SUSWR
001364
SWINT1
012740
SWINT2 013120
SWR
001326
SWREG
000176
Swr1
112600
SWT2
112760
TBLEDT 020100
TEMP
0L 1306
TEMPST 014134
TEMP2
00 310
TESTNO 001320
TIB
014 42

T41
005360
142
010276
T55
006440
156
011716
TS56CHK 012056
157
012100
TS7CHK 012234
160
006632
T60CHK 006762
T61
007024
T61CHK 007174
161.5
007206
T62CHK 007676
VECADR 001076
WCLEN
001164
WCR
0C1064
WRONG1 007360
WRONG2 007510
XBA16 = 000020
XBA17 = 000040
XCHKBU 023410
XINBUF 022406
X1
006122
X
005560
X5
004676
X7
005740

FLIP
012314
FLOP
012446
FNCCNT 001202
FNCT1 = 000002
FNCT2 = 000004
FNCT3 = 000010
GO
= 000001
HLT
= 104000
HLTDET 001316
HT
= 000011
ICOUNT 014122
IE
= 000100
INBUF
001152
INBUF1 001204
INCBA
004652
INCDB
005406
INCWC
004622
INNEW
014603
INTA
010016
INTB
011114
INTC
011304
LDEXIT 007750
LENCHK 001160
LEVEL
023412
LF
= 000012
LOAD
001712

PNTERR 001016
PNTPAS 001014
PNTRAD 001010
PNTVAD 001012
PRGCYC 001020
PRINT
013314
PROMPT 017464
PRTBL
017626
PRTFIN 020064
PSW
001002
P3INT
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

TkB
0011, 2
TKS
00117
TKVEC = 000060
TNPRO
011174
TNPR1
010770
P8
001176
TPS
001174
TRAPVE= 000034
TSTRDY 005534
TTIN
014500
TTINT
014520
TTIN2
014534
TTOUT
015372
TYPDS = 104405
TYPE = 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
TISTR
002070
126
004550
127
004372
T3
002414
133
010744
T33CLR 011164
T33STR 010764
T34CLR 011354

YESMBD
$BELL
$CHARC
SCNTG
SCNTLG
SCNTLU
$CNTS
$CRLF
$DBLK
$DTBL
SENDAD
SENPAS
VENULL
$ ILLC
$F.LLS

EDIT
EDTFIN
EIR

FLAG

017610
020536
001142

013132
013216
020300

001200

NOCBL
010734
NOP
= 000240
NORMAL 010156

PINV

006166

R7
=%000007
SAVCC
013772

T IME

001312

011364
011524

140
T40CHK

011544
011704

YESCBL

010722

017452
001344
015710
014552
016630
016623
014560
001351
016356
016346
013250
014622
001354
001342
001341
=
3
$HIOT 017174
SLF
001352
SMNEW
016646
$MSWR
016635
SNULL
001340
SOCNT
016136
SOMODE 016140
$QUES
001350
SQUEST 014614
$RDCHR 016366

CZDRLAO-DR11W GEN NPR INTF(
SYMBOL TABLE
SRODEC 0160660
SROLIN 016506
$RDOCT 017036
$RDSZ = 000007
SREAD
014306
$SETUP= 000004

S$STPFLG

023414

000000

ERRORS DETECTED:

24=SEP=79 10:39

$SWR = 160000
$TITLE 014646
$TkB
001332
$1kS
001330
$TN
= 000001
$TPB
001336

$STUP = 177777
. ABS.

MACRO M1111

001343

000

001

VIRTUAL MEMORY USED:
20701 WORDS
( 81 PAGES)
( 79 PAGES)
20746 WORDS
DYNAMIC MEMORY:
00:02:15
ELAPSED TIME:

DR11W,DR11W=SYSMAC
.MLB/ML ,DR11W.P11

$TPS
001334
$TRAP
017176
$TRAP2 017220
$TRP = 000012
$TRPAD 017232
$STTYIN 016614
$TYPDS

016142

T 9
PAGE 85-3

SEQ 0106
STYPE
STYPEC
$TYPEX
$TYPOC
$STYPON
$TYPOS

015474
015644
015712
015740
015754
015714

$OFILL
LEMPTY
LREST
.RET
RETR
. SAV

016137
015416
015462
015446
015470
021402