Digital PDFs

AH-8644H-MC

October 1983

54 pages

Original

3.4MB

view download

OCR Version

3.0MB

view download

Document:	CZDRBH0 DR11-B,DA11-B DR11B,DA11-B NPR DIA OCT 1983 bw
Order Number:	AH-8644H-MC
Revision:	000
Pages:	54
Original Filename:	CZDRBH0__DR11-B,DA11-B__DR11B,DA11-B_NPR_DIA__AH-8644H-MC__OCT_1983_bw.pdf

OCR Text

DR11B/DA11-B
NPR

DIA

CZDRBHO

RH.8644H.MC

FICHE

0CT

1983

COPYRIGH

waoe 1n usa

CZDRBHO DR11-B/DA11~-B NPR DIA

CZDRBH.P11

20-MAY-83 15:04

MACY11 30(1046)

20-MAY-83

15:09

PAGE 2

.REM-X

IDENTIFICATION

PRODUCT CODE:

AC-86434-MC

PRODUCT NAME:

CZDRBHO DR11-B/DA11-8B NPR DIA

PRODUCT DATE:

MAY 1983

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B8Y DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABLILTY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.

SEQ 0001

MACY11 30(1046) 20-MAY-83 15:09 PAGE 3

CZDRBMO DR11-B/DA11-B NPR DIA
20-MAY-83 15:04
CZDRBH.P11

ABSTRACT

1.1 THIS IS A LOGIC TEST OF THE 'NPR GENERAL INTERFACE'' -DR11B.
THERE IS A SPECIAL MAINTENANCE FEATURE THAT ALLOWS TESTING
OF NPRS WITHOUT A CUSTOMERS DEVICE ATTACHED.

1.2 THERE IS A SECOND TEST INCLUDED FOR EXERCISING THE DA118
INTERPROCESSER LINK. THE DR118 TEST SHOULD BE RUN IN
IN EACH COMPUTER BEFOUR TESTING THE DA118B.
REQUIREMENTS

2.1

EQUIPMENT

2.1.1 FOR THE DR118B
ggfi;g1 STANDARD COMPUTER

NOTE: WITH OR WITHOUT HARDWARE SWITCH REGISTER
2.1.2 FOR THE DA11B
2 PDP=-11 STANDARD COMPUTERS

1 DA11B CONSISTING OF 2 M7229 MODULES AND 2

BCOBR CABLES.
NOTE: WITH OR WITHOUT HARDWARE SWITCH REGISTER
2.2

STORAGE

2.2.1

PROGRAM STORAGE - THE ROUTINE USES MEMORY
FROM 0 TO 14000.

LOADING PROCEDURE

3.1

METHOD

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED.
4.

DR11B STARTINC PROCECURE

4.1

CONTROL SWITCH SETTING

STARTING AT SA 200 ALL SWITCHES SHOULD BE DOWN OR ZERO.
NOTE: IF ALL SWITCHES ARE DOWN, IT IS ASSUMED THAT THE
BR LEVEL OF THE DR11B IS = 5. SEE OPERATIONAL SWITCH
SETTINGS, SECTION 5.1.2.

SE@ 0002

MACY11 30(1046)

CZDRBHO DR11-B/DA11-8 NPR DIA
20-MAY-83 15:04
4.2

PAGE 4

STARTING ADDRESS OR ADDRESSES

(A)
6.3

15:09

200 = TEST OF LOGIC USING MAINTENANCE FEATURE M968 IN C04,D04

PROGRAM AND/OR OPERATOR ACTION

LOAD PROGRAM INTO MEMORY.
LOAD STARTING ADDRESS
PRESS START.

THE PROGRAM WILL LOOP, "END PASS' WILL BE
TYPED AT THE END OF THE PROGRAM.

NOTE:

IF SOFTWARE SWITCH REGISTER IS SELECTED THEN THE

FOLLOWING WILL BE PRINTED:
SWR= XXXXXX NEW=

(REFER TO SECTION 5.1 FOR OPERATOR OPTIONS)

DR11B OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

5.1.1

AT SA 200 .. THE INSTRUCTION AND LOGIC TEST.
WITH ALL SWITCHES DOWN THE PROGRAM WILL PRINT
OUT ON ERRORS AND CONTINUE IN TEST. ('END
PASS' TYPED AT COMPLETION OF A PASS)

5.1.2

SWITCH SETTINGS ARE

SW15 =
SW14 =
SW13 =
SW12 =
SW1l =

1
1
1
1
1

OR UP
OR UP
OR UP
OR UP
OR UP

...
...
...
...
...

HALT ON ERROR
SCOPE LOOP
INHIBIT PRINTOUT
INHIBIT TRACE TRAP
INHIBIT ITERATIONS

SWC2 TO SW00 = 4 ... BR LEVEL OF DR11B
=5 ... BR LEVEL OF DR118
= 6 ... BR LEVEL OF DR118B

o\nS~

CZDRBH.P11

20-MAY-83

NOTE: IF SW02 TO SWOO = O, THE BR LEVEL OF
THE DR11B IS ASSUMED TO BE = 5.
5.1.3

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.
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH
REGISTER (LOC. 176) IS USED.

:
CONTROL

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOF TWARE SWIT(H
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY

SEQ 0003

MACY11 30(1046)

CZDRBHO DR11-8/DA11-8 NPR DIA

CZDRBH.P11

20-MAY-83 15:04

20-MAY-83

15:09

PAGE 5

DOING THE FOLLOWING:

1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS
OF THE SOF TWARE SWITCH REGISTER.)

3) AFTER THE °°NEW='' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
OF THE FOLLOWING AT THE TTY:

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

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOF TWARE SWITCH

B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU
BACK TO STEP 2.

5.2.

SUBROUTINE ABSTRACTS

BEGIN
5.2.1

SA 200

SCOPE

THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST
IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING
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 REIF SCOPE LOOP IS NOT REQUESTED, THERE
QUESTED FOR.
WILL BE EITHER A FIXED OR RANDOM NUMBER OF ITERATIONS
ON THAT SUBTEST BEFORE THE NEXT SUBTEST IS ENTERED.
SWITCH 11 ON A 1 INHIBITS ITERATION OF SUBTESTS.
NOTE: SUPPORTS “G ROUTINE FOR DYNAMIC LOADING
OF SOFTWARE SWITCH REGISTER

5.2.2

HALT

IS A ROUTINE THAT PRINTS=OUT AN ADDRESS THAT TAGS
THE FAILING SUBTEST,THE CP STATUS REGISTER AND
THE DR11B STATUS REGISTER AT THE TIME OF FAILURE.
NOTE: SUPPORTS “G ROUTINE FOR DYNAMIC LOADING
OF SOFTWARE SWITCH REGISTER

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

CHKBFF

SEQ 0004

CZORBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY-83 15:04

MACY11 30(1046)

20-MAY-83

15:09

PAGE 6

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

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

THE IE BIT IS CLEARED IN THE DRST THEN THE DRST
IS CHECKED FOR THE ABSENCE OF AN ERROR AND THE
PRESENCE OF READY, THE ORWC IS CHECKED TO SEE
THAT IT IS EQUAL TO ZERO. THE CORRECT CONTENTS

OF THE DRBA ARE CALCULATED AND CHECKED. THERE
IS A JSR TO THE NORMAL SUB-ROUTINE BEFORE THIS
ROUTINE IS EXITED. THE PROGRAM WILL HALT IF
EszogLéiRSET. READY IS CLEAR, OR READY AND ERROR
5.2.6

DATCHK

THIS ROUTINE IS ENTERED TO CHECK INBUF AFTER
A MAINTENANCE MODE OPERATION. THE CONTENTS Of
INBUF AND THE CONTENTS OF CHKBUF ARE CHECKED TO
SEE THAT THEY ARE THE SAME. THE NUMBER OF (OMgG?{égNS MADE IS DETERMINED BY THE CONTENTS OF
5.2.7

NORMAL

THE ROUTINE IS ENTERED FROM INTA AND FROM SOME
TESTS WHICH DON'T USE INTA. THE NUMBER OF
THE DRINV+2 IS PUT INTO DRINV AND THE DRVS IS

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

5.2.8

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 1S MADE ON BUFLEN+2

TO INSURE THAT TOO MANY WORDS WEREN'T TRANSFERRED.

5.2.9

ERRCHK

THIS ROUTINE CLEARS IE A.: HALTS IF ERROR IS SET.
5.2.10 TRAPCATCHER

SEQ 0005

C20RBHO DR11-8/DA11-B NPR D]A

CZORBH.P11

20-MAY-83 15:06

MACY11 30(1046)

20-MAY-83

15:09

PAGE 7

THIS 1S A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND
#g;5§$UPTS 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.
5.3

PROGRAM AND/OR OPERATOR ACTION

5.3.1

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN
IF AN _ERROR
IS THE INSTRUCTION AND LOGIC TEST.
IS DETECTED HERE, THERE WILL BE A PRINTOUT. WHEN
AN ERROR IS DEVECTED AND IT IS NECESSARY T0 SCOPE
ON IT, PLACE SW15 UP TO HALT ON ERROR, THEN SW14 UP
TO LOOP ON ERROR, THEN SW13 UP TO DELETE PRINTOUTS.

DR118 ERRORS

6.1

ERROR PRINTOUT

THE PC OF THE FAILING TEST AND THE CP STATUS WILL BE PRINTED.
6.2

ERROR RECOVERY

DEPRESS CONTINUE TO RESTART SECTION
DR118 RESTRICTIONS
STARTING RESTRICTION
NONE

7.2

OPERATIONAL RESTRICTION

M968 MUST BE IN SLOTS C04/D04 - FOR DJAGNOSTIC TESTING
SHOULD BE IN A02/802 FOR NORMAL USER OPERATION.
MISCELLANEOUS

EXECUTION TIME
ABOUT 2 MINUTES
PROGRAM DESCRIPTION

SEQ 0006

MACY11 30(1046)

C20RBHO DR11-B/DA11-8 NPR DIA

CZORBH.P11

20-MAY-83 15:04

20-MAY-83

15:09

PAGE 8

THE FOLLOWING 1S A GENERAL LIST OF FUNCTIONS TESTED.
CAN ALL REG BE ADDRESSED WITHOUT ERROR

RESET CLEAR DRW(C

RESET CLEAR DRBA

CAN ALL DRWC BITS BE SET
CAN 15-1 IN DRBA BE SET
FNCT1 SET & CLEARED
FNCT2 SET & CLEARED
FNCT3 SET & CLEARED

XBA16
XBA17
IE
CYCLE

SET
SET
SET
SET

& CLEARED
& CLEARED
& CLEARED
& CLEARED

MAINT SET & CLEARED
ALL DRST R/W BITS CAN BE SET & CLEARED
ALL DRST R/W SET, RESET TO O, RDY IS SET, NEX IS
CLEARED, GO 1S 0

DRWC HOLD ALT. 0°'S & 1°S AND ALT. 1°'S & 0'S
DRBA HOLD ALT. 0°'S € 1°'S AND ALT. 1'S £ 0'S
INC PATTERN TO WRAP-AROUND IN DRWC
INC PATTERN TO WRAP-AROUND IN DRBA
NO INT. AT LEVEL 7
NO INT. AT LEVEL 6
NO INT. AT LEVEL 5
DOES INT. AT LEVEL 4
NO MAINTBRD A02/802
MAINTBRD C04/D04
FNCT BITS CONTROL DSTAT BITS
RESET 0°S DRDB
ALL DRDB BITS CAN BE
S

DRDB HOLD

ALT.

1°'S & 0 S AND ALT. 0°'S & 1°S

INC TO URAP-AROUND IN DRDB
RESET SETS ONLY RDY IN DRST
BAOO READS AS 0

NPR
1 DATO

BAOF FORCES ERROR & IS CLEARED BY CLEARING DRBA OR RESET
GO _CLEARS RDY
DATO TO DIODE MEM CAUSES NEX

DO WITHOUT CLEARING PREVIOUS ERROR CAUSES ANOTHER INT.
10 DAT1'S (BURST)
10 DATO'S (BURST)

200 DAT1'S
200 DATO'S
200 DAT1'S
200 DATO’S
FUNCT BITS

(BURST)
(BURST)
(NON-BURST)
(NON=BURST)
INC WITH MAINT MODE XFERS

10 MAINT MODE XFERS

200 MAINT MODE XFERS
10.

LISTING

SEQ 0007

CZORBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20~MAY-83 15:04
.

MACY11 30(1046)

20-MAY-83

15:09

PAGE 9

SEQ 0008

FLOW CHART(S)

12. DA11B STARTING PROCEDURE

12.1 THERE ARE TWO STARTING LOCATIONS: ONE FOR THE
COMPUTER THAT WILL BE THE SLAVE AND ANOTHER
FOR THE COMPUTER THAT WILL BE THE MASTER.

12.2 SLAVE COMPUTER, LOAD ADDRESS 1006 AND PRESS START.
PROCESSOR WILL HALT.

12.3 MASTER COMPUTER, LOAD ADDRESS 1000 AND PRESS START.
PROCESSOR WILL HALT.

12.4 SLAVE COMPUTER, PRESS CONTINUE (OR CNTRL AND CONT ON

AN 11/34 OR 11/04), (ON SWITCHLESS PROCESSOR TOGGLE THE HALT/CONT SWITCH).

12.5 MASTER_COMPUTER,

PRESS CONTINUE (OR CNTRL AND CONT ON

AN 11734 OR 11/04, (ON SWITCHLESS PROCESSOR TOGGLE

THE HALT/CONT SWITCH).

13. DA11B OPERATING PROCEDURE

13.1 THE PROGRAM WILL LOOP AFTER STARTING AND PRINT
OUT ANY ERRORS. THE PROGRAM WILL HALT AFTER
NON RECOVERABLE ERRORS.

13.2 THE MAINT MODULE MUST BE IN A02/B02 AND THE
THE DA118 MUST BE IN C04/D04 .
14. DA118 PROGRAM DISCRIPTION

14.1 THE SLAVE COMPUTER STARTS BY ENTERING A BACKGROUND
TO WAIT FOR AN INTERUPT WITH THE INTERUPT ENABLED.
THE FIRST INTERUPT THAT COMES SHOULD BE THE READY
INTERUPT SET UP WHEN THE MASTER HIT THE START KEY.
THE INTERUPT CAUSES THE SLAVE TO ENTER THE INTERUPT
SERVICE ROUTINE.

14.2 THE INTERUPT SERVICE ROUTINE DETERMINS WHAT
INTERUPT CAME UP AND IF IT SHOULD HAVE COME UP.
IF THE INTERUPT WAS THE ONE EXPECTED THAN THE
THAN THE PROGRAM GOES TO THE
TO THE PROPER JOB ROUTINE, SJOBXX FOR SLAVE SERVICE
AND JOBXX FOR THE MASTER ROUTINE.

14.3 THE NEXT THING THAT SHOULD HAPPEN IS THE MASTER
SHOULD ISSUE AN INTERUPT TO THE SLAVE .
THIS IS A SIGNAL FOR THE SLAVE TO ACCEPT
THE WORD COUNT,OFFSET,AND

TWO CHECK SUM WORDS. THE SLAVE ACCEPTS A WORD AT A TIME
FROM THE DATA BUFFER EACH TIME THE MASTER TOGGLES
FUNCTION BIT 3. EACH TIME IT READS A WORD THE SLAVE
SENDS THE WORD BACK TO THE MASTER FOR VERIFICATION.

MACY11 30(1046)

C2ZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20~-MAY~83 15:04

20-MAY-83

15:09

PAGE 10

14.4 AFTER THE SLAVE HAS RECIEVED ALL THE PARAMETERS

IT SETS I1TS DIRECTION BIT TO THE OPPOSIT DIRECTION
AS THE MASTER AND STARTS THE NPR TRANSFER.

14.5 THE MASTER SETS UP THE TYPE OF TRANSFERS AND
CHECKS THE DATA WHEN IT COMES BACK FROM THE SLAVE.
15. DA11B ERRORS

15.1 THE PC OF THE FAILING TEST, THE CP STATUS AND
THE DR118 STATUS REGISTER WILL BE PRINTED AFTER AN ERROR.

15.2 THERE IS NO ERROR RECOVERY FOR THE DA11B TEST BECAUSE
THE OTHER COMPUTER WILL GET OUT OF SINC WHEN AN

ERROR OCCURS.

16. ECO CHANGES

CHGG! - CHANGES 1 THRU S REPLACED THE INTERRUPT ENABLE COMMAND
WITH A DATA TRANSFER BFFORE ISSUING AN INTERRUPT.
THIS WAS NECESSARY DUE TO HARDWARE CHANGES.

461

MODIFIED FOR SOF TWARE SWITCH REGISTER

464
465

:
:

MODIFIED TO ELIMINATE BAOF ERROR WHEN
DMA TRANSFERS CROSS A 32K BOUNDRY

22%
466
467
468

469
470
4
672
473
474

475
476
477
478
479
480
481
482
4«83
484
485
4«86
487

4«89

INCLUDING DYNAMIC LOADING OF SWR

L L L et i L L
e e e e ee
e
AR AR AR R R AR AR AR TR AN AR AA RN AR RAR AR ARAARAAERARNRNERANNRERR

000240
104400
104000
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

NOP=000240
SCOPE=TRAP
HLT=EMT
81710=000001
8171=000002
B8172=000004
8113=000010
B114=000020
B175=000040
8116=000100
8177=000200
8178=000400
8119=001000

000004

BUSERR=000004

002000
004000
010000
020000
040000
100000

817110=002000
B1711=004000
81712=010000
81713=020000
BI1T714=040000
81715=100000

SEQ 0009

CZORBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:04
CZDRBH.P11

MACY11 30(1046)

20-MAY-83

15:09

PAGE 11

SEQ 0010

;LOAD TRAP CATCHER INTO O THRU 777.
000030
000032
000034
000036

000000
000030
011506
000340
000034

000046

000052

b
b
b
b
d
b
b
—

OO0 NN
S NN =

AVIVIVIVIVIVIWAIW

000176
000200
000204
000210
000216
000220
000224
000230

014210
000606
000042

012702

013035

004767
000167
001000

012654
000646

sSET UP STACK LIMIT
000046

1%:

MOV

#STITLE,
X2

JSR
JMP

X7,TT0UT

.=1000

;ARE WE IN ACT11 AUTO MODE?
JSKIP TITLE IF YES
sPRINT THE TITLE

SUSWR

S 2222222222222

2323223202282 2220220002 ddditdiatiiniidtly

START OF BACK~TO-BACK DR11-8

Y 2222322822222 2322233322332 3322382322222 220200020020 dtddiitddd]

220

001000
001002
001006
001010
001014
001016
001020
001022

000000
000167

001060

177560

006622
006674

MSTART: HALT
JMP
SSTART: HALT
JMP

SR:

PSW:

177570
177776
172410
172412
172414
172416
126
240
124

DRWC:
DRBA:
DRST:
DRDB:
DRVS:
DRINL:
DRINV:
NPR1:
52525
DIOMEM: 173000
: X INBUF
INBUF
CHKBUF: XCHKBU
BUFLEN: HALT
LENCHK: HALT
BRWAIT: HALT
HALT
WCLEN:
RDYCHK:: HALT
177560
TKS:

MS1

$s1

sMASTER START
sSLAVE START

CZDRBHO DR11-8/DA11-B NPR DIA

CZDRBH.P11

20~MAY-83 15:064
177562
177564
177566

546
547
548
549
550

001062
001064
001066
001070
001072

000000
000000

555
556

001102
001106

013746
013746

TKB:
TPS:
TPB:
FNCCNT:
INBUF1:

177562
177564
177566
HALY
HALT

SUSWR:

MOV
MoV

000006
000004

MOV
CMP
BEQ

557 001112 012737 001132 000004
558 001120 022777 177777 177666
559 001126 001402
562

001130
001132

001134

000404
022626

012767

565

001142
001146
001152

012637
012637
022767

567
568
569
570

001162
001166
001170
001174

005737
001002
004767
912777

563
564
566

g;}

001160

001202

001005

012767

15:09

000176

(€00004
000006
000176

177652

648:

65$:

001174

Mov

177634

MOV
Mov
CMP

177614

TST
BNE
JSR
MOV

66$:

BNE

000042
011262
000340

BR
CMP

011156

573

BEGIN:

Mov

PAGE 12

SEa 0011

sNUMBER OF PASSES COMPLETED
s TEMPORARY STORAGE
; TEMPORARY STORAGE

PASCNT: 0
O
TEMP:
TEMP2: O

551 001074 000000
552 001076 005000
ggz 001100 000000

560
561

20-MAY-83

MACY11 30(1046)

a#6,-(SP)
a4, ~(SP)

#6468, ant
#-1,3SR
658’

663
(SP)+,(SP)+

#SWREG, SR

sSAVE VECTORS

sSET UP FOR TIMEOUT

:REFERENCE HARDWARE SWITCH REGISTER
sADJUST STACK

:POINT TO SOF TWARE SWITCH REG

(SP) +,a#4
(SP) +,a#6
#SWREG, SR

;RESTORE VECTORS

ane?2
BEGIN
PC,CNTLU
#340,3PSW

sARE WE IN AUTO MODE?
;IF SO, SKIP SWREG INPUT
;ALLOW SWREG TO BE LOADED
sPROC. AT LEVEL #7

BEGIN

#BEGIN,RETURN

:IS SWREG USED

ddRadlliaddidiiiiddidd

574

' H2222223222222 3 2T 322 A1 2RI

576
577
578

eCAARRARRRARRE RN R ARARA AR RAARAAANRRARA RN ARARAAAARAARAAARAAR

575

579

580
581

001210

001212
001220

104400

012767
010700

001252

SCOPE

176564

588

589
590
591

592

001226
001230
001234
001236
001242
001244

001250
001252
001254
001262

010700
005277
010700
005077
010700
005277

000401
104000
012767
104400

177566
177562

#ERRA ,BUSERR
17,20

sBUS _ERROR VECTOR TO ERRA
:PC 10 RO

MoV
INC
MoV
CLR
Mov

X7,%0
aDRBA
x7,%0
aDRST
x7,%0

;PC TO RO
ADDRESS DRBA
:PC TORO
;ADDRESS DRST
:PC TO RO
:ADDRESS DRDB
:MADE IT - BRANCH OVER HALT

INC

177556

000006

Mov
MOV

INC

582 001222 005277 177572
583
584
585
586
587

TEST O CAN ALL DR11-8 REG BE ADDRESSED WITHOUT ERROR?

176522

ERRA:

BR
HLT
MOV

SCOPE

SDRUW(

aDRDB

#6,BUSERR

ADDRESS DRWC

:BUS ERROR, RO HAS PC OF ERROR
:RESTORE #6 TO BUS ERROR VECTOR
323 diadiiadiilididds)

595

. .X33 232222 22222 23 3223222223222 3 22328332228

597
598
599

..X 2222822282222 22 3232232222332 3382322328228

;

596

600

601

001264

001272

012767

012777

000010

177777

011070

177520

TEST 1 DOES RESET CLEAR DRW(C?

MOV

Mov

#10, 1COUNT

#-1,3DRWC

00 AR R0 RRRdl]d

;ALL OKES TO DRWC

CZORBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:04
CZDRBH.P11

602
603
604
605
606
607

001300
001304
001306
001312
001314
001316

004767
000005
005777
001401
104000
104400

MACY11 30(1046)

JSR
RESET

011100

TST

177506

BEQ
HLT

618
619
620
621
622

001322
001330
001334
001336
001342
001344

104400

012777
004767
000005
005777
001401

PAGE 13

X7,CKSWR
aDRW(C

. th

SCOPE

A AANR AR RN AR AR RN AR AAAR NI AN

177777
011050

SEQ 0012

s INIT

*LOOKING FOR Z-BIT TO SET

sDID DRWC GET CLEARED?
sDRWC NOT CLEAR

ANNRARANN AN RANNRRAANAAARAAAAACARSY

TEST2 DOES RESET CLEAR DRBA?

;
001320

20-MAY-83

15:09

AR ANRAR RN AR A RN AR AARR A ERE AN AARARCNANRAAARRRAREEAAAAAAEAANNCSY

SCOPE
MOV

177472

JSR
RESET
TST
BEQ
HLT

177460

104000

2222022222222

#=1,3DRBA

sALL ONES TO DRBA

aDRBA
e

SINIT
;LOOKING FOR 2-BIT TO SET
sDID DRBA GET CLEARED?
:DRBA NOT CLEAR

X7,CKSWR

2223 2222422222232 3322333 0

TEST3 CAN ALL DRWC BITS BE SET?

it alliiatiidiilidd]

::tttttttttttQ'ttttttfittt'ttttttfitlt'ttt*ti'itttttttttttfifit'ttttt

630
631
632
633
634
635

001346
001350
001356
001364
001372
001374

104400
012767
012777
022777
001401
104000

004000
177777
177777

SCOPE
MOV

011004
177434
177426

MOV

CMP
BEQ
HLT

1 COUNT
#4000,
#-1,3DRW(C

#-1,3DRWC
b

sSET ALL BITS IN DRWC

sLOOKING FOR Z=BIT TO SET
;SEE IF ALL BITS GOT SET
SALL BITS AREN'T SET

3222222232222 23 222222223 3312112223

-«

222222

TEST4& CAN BITS 15-01 IN DRBA BE SET?

2382

ddiiididiiaddddsd)

Y 1222228 28222223 2323323223223 323 2332382332332 33003 2230 32022 didddl]

642
643
644
645
646

007276
001400
001406
001414
001416

104400
012777
022777
001401
104000

177776
177776

SCOPE

MOV
CMP
BEQ
HLT

177414
177406

#-2,3DRBA
#-2,3DRBA
.th

;SET BITS 15-01 IN DRBA
;LOOKING FOR 2-BIT TO_SET
;SEE IF BITS 15-01 GOT SET
;BITS 15-01 AREN'T SET

321222323222 322232232222 2382323223233 3232332020228 020 0200280202230 204d22t)

TEST6 TEST THAT FNCT1 CAN BE SET AND CLEARED
iRl
R
R

Y 2222222822232 23 2323222223282 22232223202

655
656
657

001420
001422
001430

104400
052777
032777

000002
000002

177374
177366

SCOPE

BIS
BIT

#BIT1,aDRST
#BIT1,3DRST

;SET FNCT

STEST FNCTY

lddy)

CZORBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:04
CZDRBH.P11
658
659
660
661
662
663

001436
001440
001442
001450
001456
001460

001001
104000
042777
032777
001401
104000

000002
000002

MACY11 30(1046)

177354
177346

15:09

20-MAY-83
BNE
HLT

BIC
BIT
BEQ
HLT

PAGE 14

SEQ 0013

;IS IT SET?

#81T1,3DRST
#BIT1,30RST
.t

:CLEAR FNCT1

;FNCT1 IS CLEAR
STEST FNCT1

:WAS IT CLEAR

;FNCT1 WAS SET

2323222222228 2222 2212222332213 3222222

2822223 0dddtiaiiidlidddds

TEST? TEST THAT FNCT2 CAN BE SET AND CLEARED

X12332232823232222 3 X232 3222232223222 3322228 iaddiiadlidsiidtididds

672
673
676
675
676
677
678
679
680

001462
001464
001472
001500
001502
001504
001512
001520
001522

104400
052777
032777
001001
104000
042777
032777
001401
104000

000004
000004

177332
177324

BIS
BIT
BNE

#BI1T2,3DRST
#BIT2,3DRST
.té

000004
000004

177312
177304

8IC
BIT
BEQ

#BIT2,aDRST
#BIT2,3DRST
th

HLT

933332222222 223 222

sSET FNCT2

sTEST FNCT2
;IS IT SET?

:FNCT2 IS CLEAR
:CLEAR FNCT2

STEST FNCT2
:WAS IT CLEAR?

:FNCT2 WAS SET

32223 2222823232802 223

Rt iiadlidddla)

2822

TEST10 TEST THAT FNCT3 CAN BE SET AND CLEARED

RN R 3322222232222 X733 2 3232232332233 2 322320082

689
690
691
692
693
694
695
696
697

001524
001526
001534
001542
001544
001546
001554
001562
001564

104400
052777
032777
001001
104000
042777
032777
001401
1040CO

000010
000010

177270
177262

000010
000010

177250
177242

SCOPE

BIS
BIT
BNE

HLT

BIC
8IT

BEQ

HLT

2122382248222

#8173,aDRST
#BIT3,3DRST

sSET FNCT3
:TEST FNCT3

;1S 1T SET?

#8173 ,3DRST
#BIT3,aDRST

:CLEAR FNCT3
;TEST FNCT3

2t iadtiidiaddiiddds)

:FNCT3 IS CLEAR
;WAS IT CLEAR?

;FNCT3 WAS SET

3333282223232

2 28023223

R A0ttt

ididdll)

TEST11 TEST THAT XBA16 CAN BE SET AND CLEARED

SARNANRARRARNRRRRRRAAANA
A AR AANAARANRANRRAARARRAAARACARARARATARY

702
703
704
705
706
707
708
709
710

001566
001570
001576
001604
001606
001610
001616
001624
001626

104400
052777
032777
001001
104000
042777
032777
001401
104000

000020
000020

177226
177220

177206
177200

SCOPE

8IS
BIT
B8NE

#B1T4,aDRST
#BIT4,aDRST
R

sSET XBA16

BIC
8IT

#B]T4,aDRST
#8174 ,aDRST

:CLEAR XBA16

HLT

B8EQ
HLT

;TEST XBA16

;1S 1T SET?

:).BA16 IS CLEAR
:TEST XBA16

:1S IT CLEAR

:XBA16 WAS SET

tttt.tfitttttttttttttttttit'ltttittttitttttttttit'tttttttttttttt

TEST12 TEST THAT XBA17 CAN BE SET AND CLEARED

CZO0RBHO DR11-B/DA11-B NPR DIA

CZORBH.P11

20-MAY-83 15:04

MACY11 30(1046)

15:09

20-MAY-83

PAGE 15

SEQ 0014

:;tttttttt'tfitttttttttt"t"'tt.t't't'.tt.Qt'ttt"'t"'t.t'ttt"t

715
716
717

001630
001632
001640

104400
052777
032777

720
721

001652
OO}ggg

042777
032777

723

001670

104000

000040
000040
000020
000020

177164
177156

#B175,30RST
#8£TS.GDRST

177144
177136

#8174 ,30RSY
#B£T4.30RST

BIC

RIT

8td
HLT

;SET XBA17

:TEST XBA17

;IS 1T SET?

;XBA17 IS CLEAR
;CLEAR XBA17
;TEST XBA17
1S IT CLEAR?

;XBA17 WAS SET

3322322232220 22322

L 2L

il iadliddidiidldll)

2RI A

TEST13 TEST THAT IE CAN BE SET AND CLEARED
T2

1232222222222

728
729
730
731
732
733
734
735
736

001672
001674
001702
001710
001712
001714
001722
001730
003732

104400
052777
032777
0010C!
104000
042777
032777
001401
104000

SCOPE
8IS

000100
000100
000100
000100

8IT
BNE
HLT
8IC
BIT
BEQ
HLT

177102
177074

SR 2L 22 SRR

i adddilidddlilddd)

#8176,30RST
08{76.30RST
.t

#8176,3DRST
lB{Té.abRST

T CLEAR?

IE WAS SET

ll)
8
diaidddladiidd
8228
i
R
122222028282023222222

TEST14 TEST THAT CYCLE CAN BE SET AND CLEARED

232222232222 222 22 2223223332222 8212232828 23dddiddiiliddiiiidldd)

741

001734

104400

742
743

001736
001744

052777
032777

745
746
747
748
749

001756
001756
001764
001772
001774

104000
042777
032777
001401
104000

746

001752

001001

000600
000400

177060
177052

000400
000400

177040
177032

SCOPE
BIS
8IT
BNE
HLT
8IC
BIT
BEQ
HLT

#8178,30RST
#8178,3DRST
#B178,3DRST
#B1T8,3DRST
+4

sSET CYCLE

$TEST CYCLE

;1S IT SET?

;CYCLE WAS CLEAR
$CLEAR CYCLE

;TEST CYCLE
sIS IT CLEAR?
sCYCLE WAS SET

AARCCCAS
AARAR
RAREAAAAARERARC
ARARR
AR A AR AAARRARARRRRARA
CRAARAAARR

TEST1S TEST THAT MAINT CAN BE SET AND CLEARED

CARANNARRANNEARRANARARRCREAARARRRAARACNRRARRRAAARAAARANAOARACACES

104400
052777
032777
001001
104000
042777
032777
001401
104000

010000
010000

177016
177010

#81712,3DRST
#81T12,80RST
R

sSET _MAINT

010000
010000

6776
6770

#81712,3DRST
#81T12,30RST

;CLEAR MAINT
$TEST MAINT

001776
002000
002006
002014
002016
002020
002026
002034
002036

754
755
756
757
758
759
760
761
762

HLT

;TEST MAINT

:1S IT SET?
;MAINT WAS CLEAR

;1S MAINT CLEAR?

:MAINT WAS SET

N
RARAAENCS
AAAR
REAAAEARACRAE
RRRR
AR AR RARAARRANARAR
ARRR
AN RN
CHANARRR

l’

767
768

002040
002042

104400
052777

TEST 16 TEST THAT ALL DRST R/W BITS CAN BE SET AND CLEARED

RAAN
ARA
RAARANRACCEE
NARNN
RNARARRAARAC
RRRAR
A CCEERERARAAR
CARANRRRRA
00

010576

176754

SCOPE
BIS

#10576 ,30RST

(06) ,XBA17(05)
) UNCT2¢02)FNCTI (O
XBA16(04) ,FNCT3(03F

SEV FOLLOWING: MAINT(12), CYCLE(08),

CZDRBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:064
CZDRBH.P11

002050

032777

000002

176746

000004

176734

000010

176722

000020

176710

000040

1756676

000100

176664

000400

176652

010000

010576
000002

000004
000010
000020
000040

Lol R NTe AV P JVIT N L

putr Qi Pt Guir Gt Puir Guir-Gutr P4

(e Jeo Te To To To To 1o 1o ]

810

820

002256

104000

002260

032777

002312
002314

104000

MACY11 30(1046)

176640
176626
176620

176606
176574

176562
176550

20-MAY-83

BIT

#81T1,3DRST

BIT

#B1T2,30RST

BIT

#8173,3DRST

BNE
HLT

BNE
HLT
8IT
BNE
HLT

8IT
BNE

HLT

176536

000400

176524

010000

176512

PAGE 16

.+e

#8174 ,3DRST
. to

#8175,aDRST
<t

sTEST FNCTY

s1S IT SET?
sFNCT1 IS CLEAR

sTEST FNCT2

s1S IT SET?
sFNCT2 IS CLEAR

STEST FNCT3

:IS IT SET?
SFNCT3 IS CLEAR
sTEST XBA16
sIS IT SET?
:XBA16 IS CLEAR

sTEST XBA17
:1S IT SET?

:XBA17 IS CLEAR

#B178,3DRST
.+

sTEST IE
;IS IT SET?
:IE IS CLEAR
;TEST CYCLE
;1S CYCLE SET?

8IT
BNE

#81T12,30RST
R

$TEST MAINT
;1S MAINT SET?

BIC
817
BEQ

#10576 ,3DRST
#8171,3DRST
R

STEST FNCT?
;IS FNCT1 CLEAR?

8IT
8EQ

#8172,3DRST
b

STEST FNCT2
;1S FNCT? CLEAR?

BIT
8EQ

#81T73,3DRST
. th

STEST FNCT3
:1S FNCT3 CLEAR?

BIT
BNE

HLT
BIT
BNE

HLT

HLT
BIT

#B1T76,3DRST
.4

#81T74,3DRST

:CYCLE IS CLEAR

;MAINT IS CLEAR
:CLEAR ALL R/W BITS IN DRST
:FNCT1 IS SET

sFNCT2 IS SET
:FNCT3 IS SET
;TEST XBA16

;1S XBA16 CLEAR

8IT
8EQ

#BIT5,3DRST
. th

sTEST XBA17
;1S XBA17 CLEAR?

BIT
8EQ
HLT
8lr
BEQ
HLT

#8176,3DRST
.th

8tQ
HLT

BEQ

HLT

000100

15:09

8IT

#8178,3DRST
Jth

#B81T12,30RST

:XBA16 IS SET

:XBA17 IS SET

sTEST IE
:1S IE CLEAR?
1€ IS SET
STEST CYCLE
:1S CYCLE CLEAR?
sCYCLE IS SET

sTEST MAINT

s IS MAINT CLEAR?
sMAINT IS SET

SROCNRS
NARNNR
RANSARSRARRAANAA
RNRAAN
AR RRAARNARARARNRAA
SERANRARNRAR

TEST17 ALL R/W BITS IN DRST CAN BE SET AND RESET TO ZERO, THAT READY
IS SET, NEX IS CLEAR, AND GO IS READ AS A 0.

tt.t"tlt"t.ttttttttt"tttttttttt'iti'.tt'ttfii"ttll'ittttl.t'

002316

104400

SCOPE

SEQ 0015

CZDRBHO DR11-B/DA11-B NPR 062
20~-MAY-83 15:
CZDRBH.P11

002320
002326

012767
052777

000010
010576

017701
052701

176464
167201

MACY11 30(1046)

20-MAY-83

010034

MOV

8IS

176470

MOV

BIS

INC
BEQ

HLT
JSR
RESET
MoV

010026

002372

017701
042701
001401
104000

176440
127200

BIC

BEQ

HLT

15:09

PAGE 17

#10, ICOUNT

SEQ 0016

#10576,3DRST

:SET FOLLOWING: MAINT(12),CYCLE(08), IE (06) XBA17(05)

aDRST X1

:SETS BITS IN R1 THAT WERE NOT SET IN DRST

XBA16(04)“FNCT3(03)JFNCT2(02) ,FNCT1(O1)

HOVE (DRST) TO R1

#67201,%1

:R1 SHOULD GO FROM =1 TO ZERO
:WERE ALL DRST R/W BITS SET?
:NOT ALL BITS WERE SET

4
ot

%7.CKSWR

sCLEAR ALL DRST R/W BITS
:MOVE (DRST) TO R1

aDRST, X1

0127260 13
.t

:CLEAR ALL BITS EXCEPT R/W BITS, NEX, AND GO
:SHOULD EQUAL ZERO

sRESET DIDN'T LEAVE DRST AS IT SHOULD HAVE

,.tttttttttttttttttttttttt'tttttt'ntttttttttttttttttttttttttntttt

002374

104400

TEST20 CAN DRWC HOLD ALTERNATE ONE‘'S AND ZERO'S
L L L A A
e e

007756

104000

#4000, 1COUNT

CMP
eeQ

#052525,DRWC
o4/

*LOOKING FOR 2-BIT TO SET
:DOES DRWC HAVE THE CORRECT PATTERN?

MOV
CMP
8tQ
HLT

#125 252,303WC

;ALT 1°S AND 0'S TO DRWC
;LOOKING FOR 2-BIT TO SET
;DOES DRWC HAVE THE CORRECT PATTERN?
:DRWC DOESN'T HAVE THE CORRECT PATTERN

HLT

176366
176360

SCOPE
MOV

MOV

176406
176400

#052555,3DRWC

#125252.3DRJC
o

:ALT 0°S AND 1'S TO DRWC

;DRWC DOESN T HAVE THE CORRECT PATTERN

t*ttttttttttt'ttttttt'"tt'itttt.tfi.t."-ttttt'tttt.'ttt'tttt'.

TEST21 CAN DRBA HOLD ALTERNATE ONE'S AND ZERO'S

;;tttttt'0ttttttttttttttt"tttt'ttltttttttttttttttttttttttttttt't

002444
002446
002454
002462
002464
002466
002474

002502
002504

104400
012777
022777
001401
104000
012777
022777
001401
104000

SCOPE

MOV
CMP

176346
176340

BEQ

HLT

MOV
CMP
BEQ
HLT

176326
176320

#052524 ,8DRBA
#052524,3DRBA

#125252,aDRBA
#125252.3DRBA
Y

;ALT 0°S AND 1°'S TO DRBA
:LOOKING FOR Z-BIT TO SET

:DOES DRBA HAVE THE CORRECT PATTERN?

:DRBA DOESN'T HAVE THE CORRECT PATTERN

:ALT 1°'S AND 0°'S TO DRBA
;LOOKING FOR Z-BIT TO SET
:DOES DRBA HAVE THE_ CORRECT PATTERN?
DRBA DOESN'T HAVE THE CORRECT PATTERN

..tttttttttttttttttttti'ttt'ttttttitttttttttt'ttttttt'tt*ttt.ttt'

TEST22 INCREMENTING PATTERN TO WRAP-AROUND IN DRW(

..tttQttttQttttttttttttt""t.ttttfit'ttitt.tt"t't'ttttt.tfittl"'

104400
005067
005001
005077

020177
001401

002540

104000
005277
005201
001370

SCOPE
CLR

007646
176276
176272
176262

INCWC:

(LR
CLR

ICOUNT
X
aDRW(

;SET-UP
:SET-UP

HLT
INC
INO

3DRWC
%1

THEY'RE NOT EQUAL
1GET NEXT NUMBER
:GET NEXT NUMBER

(NP
BEQ

BNE

%1,@DRWC
4+

INCWC

*SEE IF THEY ARE EQUAL
:ARE THEY EQUAL?

*DONE WITH TEST?

IF NOT CONTINUE

CZDRBHO DR11-B/DA11-B NPR DIA
20-MAY~-83 15:04
CZDRBH.P11

MACY11 30(1046)

20-MAY-83

15:09

PAGE 18

SEQ 0017

..tttttltt'ttittttttttt'tttttttttttttttttt.ttttttttt"'t"t"'.t'

;

TEST23 INCREMENTING PATTERN TO WRAP-AROUND IN DRBA

"tttttt'tttt"ttttt.ttt'.t"tttittt't't"tt"'tttt"."'l.'.tt"

002542
002544
002546
002552
002556
002560
002562
02570
002574

SCOPE

104400
176250
176244

001366

000002
000002

INCBA:

CLR
CLR

11
aDRBA

:SET=UP
SSET=UP

BEQ

+ARE THEY EQUAL?

(MP

HLT
ADD
ADD

176232

BNE

¥1,3DRBA
#2,aDRBA
2.1

INCBA

*SEE IF THEY ARE EQUAL
STHEY'RE NOT EQUAL
tGET NEXT NUMBER
1GET NEXT NUMBER

‘DONE WITH TEST?

IF NOT CONTINUE

..Qtttttttttttttlttttt't't"t.ittttt'tt'.ttttttt'tttttttttttt'ttt

;

NOT INTERRUPT WITH PROC AT LEVEL 7
TEST2S TEST THAT DR11-B DOES 'ttt.ttttttt
tttttfitt'.t"ttt'

.'tttttttttttt'.tt.ttt't'i'tttittttt

002576

104400
012767
012777
032777
001010
004767

012737

002706

012777
016777
052777
012704
077401

004000
000340
000200

007554
176202
176202

176164

002720
000340

176162

000126

177777
176150
000101

176132
176126
176122

000012

#4000, ] COUNT

BIT

#BIT?,aDRST

MOV

007554
000200

SCOPE
MOV

P7INV:

BNE
JSR
RESET
8IT
BNE
HLT
MOV
MoV

SRARERAANSR

CHGG1:

042777
000405
022626
042777
104000

000100

176106

000100

176074

PZINV
27, CKSWR

‘IS IT SET

#81T7,30RST
.44

*SEE IF READY IS SET NOW
:1S READY SET?
‘READY CAN'T BE SET BY INIT

#P7ERR,@DRINV
#340,3#126

*CHECK READY BIT

:INIT TO SET READY

;SET UP INT VECTOR

sSET WORD COUNT TO -1

gac

:?IT6.30RST

sDR11-8 DIDN'T INTERRUPT - CLEAR IE

g?g

(X6)+,(X6)+
#81T6.3DRST

sRESTORE STACK
*CLEAR IE

MoV
BlS
MOV
ITIME1: SOB

P7ERR:

:STATUS AT LEVEL 7

#-1,3DRWC

MOV

SANRRARRANR

002710
002716
002720
002722
002730

#340,3PSW

HLT

INBUF ,aDRBA
#101,8DRST
#10.,%4
X6, 1TIMEN

;SET BUSS ADDRESS LOC
;SET 1.E. AND GO BITS
SALLOW 11760 AND 11/70 TIME TO INTERRUPT

:DR11-8 INTERRUPTED, BUT IT SHOULON'T HAVE

..tttttttttttt'ttttttttttt'ttttttttt"ttttQfittttttttttttttQttt't'

TEST26 TEST THAT DR11-8 DOES NOT INTERRUPT WITH PROC AT LEVEL 6

'.ttttttttttttt.tttttttt"ttttttttltttttfittt.tttttttttttttttttttt

002732

104400

000300
000200

176054
176054

Xi:

012777

176036

003046

176034

#300,3PSW

BNF
JSR
RESET
BIT
BNE
HLT
MOV

P6INV
%7.CKSWR

BIT

007426
000200

SCOPE

MOV

P6INV:

:STATUS AT LEVEL 6

#81T7,3DRST

*CHECK READY BIT

#8177,3DRST
.+

:INIT TO SET READY
sse IF READY IS SET NOW
;1S READY SET?
READY CAN'T BE SET BY INIT
;SET UP INT VECTOR

#PGERR,ADRINV

SIS IT SET?

CZDRBHO DR11-B/DA11-B NPR DIA
C20RBH.P11
20-MAY-83 15:04

971

MACY11 30(1046)

003000

012737

000340

000126

177777
176022
000101

176004
176000
175774

003034

012777
016777
052777
012704
077401

003036
003044
003046
003050
003056

042777
000405
022626
042777
104000

000100

175760

000100

175746

000012

CHGG2:

#340,34126

MOV

#-1,3DRW(C

MOV

BIS

MoV

ITIME2: SO8

x. LYY

PGERR:

003142

003150
003156
003164
003172
003176

012777
016777
052777
012704
077401

177777
175660
000101
000012

003200
003206
003214
003216
003220

042777
022767
001001
104000
000411
022626
0462777
022767
001401

000100
000006

175710

175670
177770
003222

175750
175742
175672
000126

PSINV:

175642

CHGG3:

SCOPE

MOV

8IT
BNE
JSR
RESET
BIT
BNE
HLT

#8176,3DRST
X2
(X6)+,(%6)+
#BI1T6,3DRST

sSET WORD COUNT TO -1
:SET BUSS ADDRESS LOC
;SET I.E. AND GO BITS
SALLOW 11/60 AND 11/70 TIME TO INTERRUPT

:DR11-8 DIDN'T INTERRUPT - CLEAR IE
RESTORE STACK

sCLEAR IE

:DR11-8 INTERRUPTED, BUT IT SHOULDN'T HAVE

222
222 d i adiidliiitlidd)
223383228122

27.CKSWR

#8177 ,3DRST

ngv

#-1,3DRW(

BIS

#101,3DRST
#0. .34

MoV

IRRRNRARRRY

104000

PSINV

MOV
MoV

8IC

JARRRARRAEDY

18:
P5ERR:

#240,aPSW

#8IT7,aDRST

@SR, TEMP
#177770,TEMP
#P5SERR, @DRINV
#340,34126

MOV

ITIME3: SOB

175572
175636

26, ITIME2

SEQ 0018

TEST27 TEST THE DR11-B INTERRUPT WITH PROC AT LEVEL 5

000200

000100
000006

PAGE

2228232222222 3 3323232223228

007300

000340

BIC
B8R
CMP
8IC
HLT

INBUF ,3DRBA
#101,30RST

233202232222 2223 33T

000240
000200

15:09

Mov

AAL LS
AL

RTITT Iy

104400
012777
032777
001010
004767
000005
032777
001001
10400¢
017767
042767
012777
012737

003242

20-MAY-83

8IC
CMP
BNE
HLT
B8R
(MP
8IC
CMP
BEQ
HLT

INBUF ,aDRBA

26, ITIMES

#8176,aDRST
:g.TEHP

X3
(X6)+,(X6)+
#BI1T6,aDRST
#6,TEMP

222228222222 22T

1223322022223 dd00d0ddddidiiiidlid)

sSTATUS AT LEVEL 5
;CHECK READY BIT
IS IT SET?
SINIT TO SET READY
:SEE IF READY IS SET NOW
18 1T SET?
:RDY CAN'T BE SET BY INIT
:GET SWITCH SETTINGS
sISOLATE BR LEVEL
:SET UP INT VECTOR

:SET WORD COUNT TO -1

;SET BUSS ADDRESS LOC
;SET I.E, AND GO BIT
SALLOW 11760 AND 11/70 TIME TO INTERRUPT

:DR11=-B DIDN'T INTERRUPT - CLEAR IE
:BR LEVEL = 6 ?
:NO, EVERYTHING IS OK

:DR11-8 WITH BR = 6 SHOULD HAVE INTERRUPTED
sRESTORE STACK
sCLEAR ]E

:BR LEVEL = 6 ?
:YES, EVERYTHING IS OK

:DR11-8 WITH BR NOT = 6 SHOULD NOT HAVE INTERRUPTED

3222212322 230

it iddiiadiiitiiiiiliiidl)

TEST30 TEST THE DR11-8B INTERRUPT WITH PROC AT LEVEL &

A
ANCRAAREACRERNES
NNRR
AN RARANCRARARAREAR
NRRR
AR A RN AN AN A AN
SARANRAN

991

003244
003246
003254
003262

104400

012777
032777
001010

000200
000200

SCOPE

MOV

BIT
BNE

#200,aPSW

#8IT7,aDRST

P4 INV

sSTATUS AT LEVEL 4
sCHECK READY BIT
SIS IT SET?

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20~-MAY~-83 15:04

MACY11 30(1046)

20-MAY-83

1755264

JSR
RESET
BIT
BNE

994
995
996
997

003264
003270
003272
003300

004767
000005
032777
001001

007114

999

003304

017767

175504

175564

1001
1002

003320
003326

012777
012737

003414
000340

175506
000126

10064

003334

012777

177777

175456

1007

003356

012704

998

003302

104009

000200

1000 003312 042767 177770 175556
1003

1005
1006
1008

1009

1010
1011
1012
1013

003342
003350
003362

016777
052777
077401

005077
012777
022767
001401

175434
000126
000004

003410

000167

000026

003420
003422

022626
012777

1016

003414

1019
1020

003430
003436

1017
1018

000012

003364
003370
003376
003404

1014 003406 104000
1015

175474
000101

}8%; 003440

005077

022767
001001

175452
175446

MOV

8IC

1$:

175404
175440

#B1T7,30RST
.té

1023

MOV

#10.,%4

sALLOW 11760 AND 11/70 TIME TO INTERRUPT

MOV
81s

PLT

JMP

26, ITIMES

CMP
BNE

#4,TEMP
X4
L S A a

JINRRRARARRNEA AR

1027

003442

003444

104400

012777

000140

175344

Xé4:

1029 003452 032777 000200 175344
1030
1031
1032

003460
003462
003466

001010
004767
000005

1034
1035
1036
1037

003476
003500
003502
003510

001001
104000
012777
012737

1033

1038

003470

032777

1039

003516

012777

1042

003540

012704

1040
1041
1043

1044

1045
1046
1047
1048
1049

003524
003532
003544

003546
003552
003560
003564
003566

016777
052777
077401

005077
012777
005037
104000
000167

000200

175326

003572
000340

175324
000126

P3INV:

177777

175274

CHGGS:

175312
000101

000012
175252
000126
000126
000020

175270
175264

SCOPE

MOV

;DR11-B WITH BR = & SHOULD NOT HAVE INTERRUPTED

A LI

L LA b Ll b deidniuinindainbiniaiiriaindubaiuiodold

RAEN AN RN ANAANEAAARCEANRRCRANARARANRAORAROCOCD

#140,3PSW

sSTATUS AT LEVEL 3

P3INV
%7,CKSWR

1S IT SET?

BIT

#BIT7,3DRST

BIT

#8177 ,3DRST

BNE
HLT
MOV
Mov

JNREAARRARE

.th

#P3INT,QDRINV
#340,34126

:CHECK READY BIT

sINIT TO SET READY
sSEE IF READY IS SET NOW
sIS IT SET
sREADY CAN'T BE SET BY INIT
;SET UP INT VECTOR

MOV

#-1,3DRW(C

sSET WORD COUNT T0 -1

MOV

#10..%64

sALLOW 11760 AND 11/70 TIME TO INTERRUPT

MoV
8IS

ITIMES: SOB
JREEREANANS

175254

sBR LEVEL = 4 ?
¢NO, EVERYTHING IS OK

TEST30A TEST THAT DR11-8 DOES INTERRUPT WITH PROC AT LEVEL 3

BNE
JSR
RESET

006716

sCLEAR IE

sREPOSITION THE STACK AFTER AN INTERRUPT
sRESTORE INTERRUPT VECTOR

(26)+,(X6)+
#126,8DRINV

1026

1028

:DR1i-B DIDN'T INTERRUPT

aDRST

sCLEAR IE
sRESTORE INTERRUPT VECTOR
sBR LEVEL = & ?
;YES, EVERYTHING IS OK

aDRST
#126,3DRINV
N6, TEMP
18

CLR

CMP
MOV

sSET BUSS ADDRESS LOC
sSET 1.E. AND GO BITS

INBUF ,@DRBA
#101,3DRST

sI1SOLATE BR LEVEL

;SET WORD COUNT TO -1

1024

1025

sGET SWITCH SETTINGS

aSR, TEMP

#170770, TENP

HLT

104000

sREADY CAN'T BE SET BY INIT

#-1,30RW(

CLR
MOV
CMP
8EQ

P4INT:

;INIT TO SET READY
sSEE IF READY [S SET NOW
sIS IT SET

MOV

ITIMEG: SOB

175436
175472

X7,CKSWR

;SET UP INT VECTOR

JARRRRERRANY

C(HGG4:

PAGE 20

#PLINT ,@DRINV
#340,34126

MOV
MOV

IRRRRRRARAR

1754064

000126
000004

P4INV:

HLT

15:09

CLR
MOV
CLR
HLT

JMP

INBUF ,aDRBA
#101,8DRST
X6, ITIMES
8DRST
#126,3DRINV
126
X5

sSET BUSS ADDRESS LOC
SSET 1.E. AND GO BITS

sCLEAR IE
cRESTORE INTERRUPT VECTOR
sRESTORE TRAP CATCHER
sDR11-B DIDN'T INTERRUPT

SEQ 0019

CZORBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY-83 15:04

1050

003572

005077

175226

}822

003606

005037

000126

MACY11 30(1046)

1051 003576 022626
1052 003600 012777 000126 175226
1055
1056

1059 003612 104400
003614
003620

005077
032777

1062 003626 001401
1065
1066
1067

1068

1069

003630
003632

003660

005077

003670

003706

052777

104000

1078

003720

104000

175134

1080

003726

052777

1084

003746

032777

1086

003756

003716

001401

0000064

005000

1079 003722 005077 175076

1087

1088

#81T71,aDRST

FUNCTION BITS NOT CLEAR
SET FNCTT

B8IT

#6000,aDRST

JCHECK THAT DSTAT A AND DSTAT B ARE CLEAR

175156

BIT
BNE
HLT

BEQ

MLY

CLR

003734
003742
003744

003754

003760

032777
001001
104000
001401

104000

005077

000010

175126

1091

1092
1093
1094
1095
1096
1097
1098

8IT
BNE

HLT

BEQ

HLT

175070

004000

175062

003000

175050

aDRST

#8172 ,8DRST

181716
8DRST
R
#5000,aDRST
R

8IT
BNE
HLT

#81711,80RST
R

BEQ

CLR

#8179,8DRST
R

aDRST

BIT

175040

CLR

BIS

HLT

1089

1090

RESTORE TRAP CATCHER

HLT
BIS

BEQ

BIT

1085

sCLEAR IE

sCLEAR FUNCTION BITS
CHECK FUNCTION BITS

175144

001000

SCOPE
CLR

175106

1081
1082
1083

aN26

#8]173,3DRST

#3000,aDRST
aDRST

FUNCTION BITS CLEAR?
CHECK DSTAT C
IS IT SET?
DSTAT C IS CLEAR

ARE THEY CLEAR?

DSTAT A AND/OR DSTAT B IS SET
CLEAR DRST

SET FNCT2

CHECK DSTAT B

1S IT SET?
DSTAI 8 IS CLEAR

CHECK THAT DSTAT A AND DSTAT C ARE CLEAR
ARE THEY CLEAR?

:DSTAT A AND/OR DSTAT B IS SET

CLEAR DRST
SET FNCT3

CHECK DSTAT A
IS IT SET?
A IS CLEAR
DSTAT

;CHECK THAT DSTAT B AND DSTAT C ARE CLEAR
ARE THEY CLEAR?

DSTAI B8 AND/OR DSTAT C IS SET
*CLR DRST

ttttttttttttttttttttt'tttt'tttttttttttttttttttttttttttttttttttt

TEST 33 TEST FOR 1 DATI NPR TRANSFER (WITH M968 IN USER SLOTS)

RACRCARCNENAE
NRARE
NAAARAARAARRRAE
AANEA
NI EATERNERRRAENNA
JIRARARAER

003764

104400

003766
003772
003776
004002
004004
004006
004014
004016
0040246
004032

005777
100027
032777
001401
104000
032777
001410
042777
032777
001401

004036
004042
004046

005077
005777
001401

0040

104000

175032

TNPR1:

020000

175022

040000

175010

040000
040000

175000
174772

174760
174756

SEQ 0020

REPOS]TION THE STACK AFTER AN INTERRUPT
RESYORE INTERRUPT VECTOR

aDRST
#16,3DRST

006000

001401

032777

1077

(16 ., (%6)+
01:6.SDRINV

BIT

032777

003710

1076

aDRST

175176

000002

032777
001001
104000

003664

X6:
175164

003640
003646
003650

003652

175204
000016

1073
003676 032777 002000 175120
1074 003706 001001
1075

PAGE 21

TEST31 TEST THAT FNCT BITS CONTROL DSTAT BITS (M968 MUST BE USED IN USER SLOTS)

8IS

1072

OEN
O AONS
INEREARANRAAEARERAERREETARRANRRARANANARAAREAROIRERACNRA

104000
052777

1070 003662 104000
1071

CLR

1058

1063
1064

(LR

CMP
MOV

15:09

.,ttttttttttttttttttttttttttttatttttttttttt'ttttcttttttt-tttttttt

1057

1060
1061

PIINT:

20-MAY-83

SCOPE

TST
B8PL
8IT
BEQ
HLT
BIT
8EQ

aDRSTY
NPRRDY
#81T13,3DRST
b

8IC
BIT
BEQ

081714 8DRST
N1413
081114 aDRST
#B81T14,8DRST
. +h

CLR
1ST
BEQ

aDRBA
aDRST
.t

HLT

:CHECK ERROR BIT
;IS IT CLEAR?
:CHECK ATTN
;1S ATTN CLEAR
:ATTN IS SET
;CHECK NEX
;1S NEX CLEAR?

TRV TO CLEAR NEX
CHECK AGAIN
NEX STILL SET

NEX CAN'T BE CLEARED BY MOVING A O TO IT
sTRY TO CLEAR BAOF
CHECK ERROR BIT AGAIN
IS IT CLEAR

CZDRBHO DR11-B/DA11-B NPR DIA

CZORBH.P11

20-MAY-83 15:04

1106 004050 104000
1107
1108
1109
1110
1111
1112
1113
1114
1115

004052
004060
004066
004072
004100
004106
004114
004120
006126

012777
012777
005077
012767
012777
012777
005077
012777
005067

1118
1119

004140
004142

104000
000424

1116
1117

1120
1121

1122
1123
1126
1125
1126
1127
1128
1129
1130
1131
1132

1133
1134
1135

004132
004136

004144
0046150

004156
004156
004160
004166
004170
004172
004200
004202
004204
004210
004212

004214
004220

005227
001375

004767
005777

001401
104000
022777
001401
104000
022777
001401
104000
004767
022626
000403

005077
000662

177777
001036
174734
052525
004144
000005
174676
000101
000002

MACY11 30(1046)
174740
174734
174736
174726

174714

174676

1138

001040

174634

052525

174626

004222

104400

004312
004314

104000
000424

1148
1149

004304
004310

1152
1153

0064316
004322

1160
1161

JSR
TST

T33CLR: CLR
BR

PR IR I T SRR

0127777
012777
005067
012777
012777
016777
005077
012777
005067

1154
1155
1156
1157
}}gg

HLT
BR

B8EQ
HLT
CMP
BEQ
HLT
CMP
BEQ
HLT
JSR
CMP
BR

003054
174604

INC
BNE

PAGE 22

#-1,38DRW(C
#NPR1,8DRBA
sDRDB
#52525 ,NPR1
#INTB,aDRINV
#5,aDRVS
oPSW
#101,3DRST
1842
'A
18

:SET UP FOR 1 TRANSFER
:; TRANSFER FRO@ BUS ADDRESS IN NPR1
:GET READY 10 RECEIVE DATA
JSET UP TRANSFER DATA
JINTERRUPT VECTOR TO INTB

:INTERRUPT PRIORITY TO LEVEL 5

:LET THE DR11-B INTERRUPT
:1E AND DO TO DRST
:WAIT FOR NPR AND INTERRUPT

T33CLR
X7 ,ERRCHK
aDRW(

#NPR1+42,3DRBA
R

#52525,8DRDB
R
X7 ,NORMAL
(26)+,(X6)+

TNPRO

aDRST
TNPR1
LA

005227
001375

004767
005777

004326
004330
004332
004340
004342

001401
104000
022777
001401
104000

004344
004352

026727
001401

177777
001036
174572
(52525
004316
174546
174524
000103
000002

174566
174562

TNPRO:

L 2T A 42 L i L E

:NO DR11-8 INTERRUPT
;CLEAR IE
JTEST DRW(

+1S DRWC EQUAL TO ZERO?
:DRWC NOT EQUAL TO ZERO
;COMPARE CORRECT DRBA WITH DRBA
:1S THE DRBA CORRECT?
:DRBA IS WRONG
:CHECK FOR CORRECT DATA
:DATA GET TRANSFERRED?
:BAD DATA IN DRDB
JRESTORE STACK

;G0 TO NEXT TEST (NPR OUT)
sCLEAR IE
:TRY TEST AGAIN

i biddibiiintbiviiiviivinbitidviividaiubi

TEST 34 TEST FOR 1 DATO NPR TRANSFER (WITH M968 IN USER SLOTS)

174554
174554
174542

174524
1$:

000001

003032
174472

INTC:

SCOPE

MOV
MOV
CLR
MOV
MOV
MoV
CLR
MOV
CLR

#-1,8DRWC
#NPR1,3DRBA
NPR1

:SET UP FOR 1 TRANSFER
:TRANSFER TO BUS ADDRESS IN NPR1
:GET READY TO RECEIVE DATA

#103,3DRST

J1E, FNCT1(C1 CONTROL), AND DO TO DRST

#52525,3DRDB
#INTC,3DRINV
DRINL ,8D0RVS
aPSW
1842

INC
BNE

n
1%

JSR
TST

T34CLR
X7 ,ERRCHK
aDRW(C

HLT
BR

001040

174462

BEQ
HLT
CMP
BEQ
HLT

174466

052525

CMP
BEQ

#NPR1+2,3DRBA
R
NPR1,#52525
R

SEQ 0021

:ERROR CAUSED BY SOMETHING OTHER THAN NEX,ATTN, OR BAOF

JIEARRRARARREEARARRAARRARIAAAAARAARAANALANAREARRARAARACARRACAOERNS

1139 004224
1140 004232
1141 004240
1142 004244
1143 004252
1144 004260
1145 004266
1146 004272
1147 004300
1150
1151

NPRRDY: MOV
MOV
CLR
MOV
MOV
MOV
CLR
MOV
CLR

INTB:

003204
174644

1136

1137

HLT

1$:

000001

20-MAY-83

15:09

sSET UP TO TRANSFER DATA
:INTERRUPT VECTOR TO INTC
:INTERRUPT STATUS TO LEVEL DRINL
:PROC STATUS TO ZERO
:WAIT FOR NPR AND INTER

:NO DR11-8B INTERRUPT
;CLEAR [E
JTEST DRW(C
:1S DRWC EQUAL TO ZERO?
:DRWC EQUAL TO ZERO

;COMPARE CORRECT DRBA WITH DRBA
;1S THE DRBA CORRECT?
:DRBA 1S WRONG
:CHECK FOR CORRECT DATA
:CORRECT DATA TRANSFEKRED?

CZORBHO DR11-B/DA11-8B NPR DIA

CZORBH.P11
1162
1163

004354
004356

104000
004767

002702

004366

005077

174432

1164
1165

004362
004364

}}gg

004372

1166

20-MAY-83 15:04
022626
000403

000713

MACY11 30(1046)

20-MAY-83
HLT
JSR

CMP
B8R

T34CLR: CLR

B8R

15:09

PAGE 23

X7 ,NORMAL
(26)+,(%6) ¢+
T35
aDRST

TNPRO

:BAD DATA

sRESTORE STACK
GO TO NEXT TEST
sCLEAR IE

sTRY TEST AGAIN

1169

INANARNRARARAARARNEARAERLCRRAARRARCRANEACACRARRRCENRANRAONANCOES

1171

IRARARARAARANSARENRENCENCERAANRANAARERAAAIRAENRAERCCRCCRRACNACAONY

1170

1172

004374

104400

0044146
004422

016757
005467

004450
004456
004464
(04470
004476
004500

012777
016777
005077
012777
000777
022777

1173
1176
1175

004376 012767
004404 004767
004410 006267

1178
1179
1180

004426
004434
004442

1176
1177

1181
1182
1183
1184
1185
1186

1187
}}gg

004506
004510

016777
016777
012777

001401
104000

000020
002416
174432

174426
174426
174422
174402
177777
007130

174350
174326
000101

000007

174442

t85:

TEST 35 STRING OF 10 DATI'S (WITH M968 IN USER SLOTS)

scope

MOV
JSR
ASR

MOV
NEG
MOV
MOV
MOV
MOV

174432
174364
174360
174356

174356
174344

MOV
CLR
MOV
B8R
CMP

174326

174320

8EQ
HLT

#20,BUFLEN
X7,L0DBUF
BUFLEN

BUFLEN,WCLEN
WCLEN

WCLEN,3DRWC
INBUF ,aDRBA
#-1,3DRDB

#INTA ,3DRINV
DRINL ,@8DRVS
aPSW
#101,3DRST
.
#7,3DRDB
. +4

sLENGTH OF BUFFER=20
;LOAD THE BUFFER WITH INCREMENTING PATTERN
sBUFLEN=10
sPREPARE NUMBER FOR DRW(C
:2'S COMPLEMENT OF BUFLEN
sSET UP DRW(
sSET UP DRBA
JMAINT AIDE
sINT VECTOR TO INTA

:INT VECTOR TO PRIORITY DRINL
:LET THE DR11-8B INTERRUPT
;1E AND DO TO DRST
JWAIT FOR INTERRUPT
;CHECK THAT WORD #10 OF INBUF IS IN DRBA
1S IT?
:BAD DATA IN DRDS

1190

JINRRRANRAREAARRRANARAACELRARAARANNERANACRRECRERRARCNARANGANOCCRSE

1192

ER
AACRAACS
RANNRR
ANNRARCEAREANAR
ARNERA
N EARAANAAANAEAAA
JINNEAANAANA

1191

1193

1194
1195
1196
1197
1198

1199
1200

004512

004514
004522
004526
004532
004540
004544
004552

104400

012767
004767
006267
016767
005467

016777
016777

000020
002300
174314
1764310
174310

SCOPE

174324

MOV
JSR
ASR
MOV
NEG

174314

176306
1742664

174246
174242

007130
174232
174210
000103

174240
174226

MOV
MOV

MOV

1201 004560 012777 052525 174240

1202
1203
1204
1205
1206

}ggg

004566
004576
004602
004606
004614

004616

012777
016777
005077
012777
000777

004767

TEST 36 STRING OF 10 DATO'S (WITH M968 IN USER SLOTS)

MOV
MOV
(LR
MOV
B8R

174210

JSR

002464

#20,BUFLEN
X7 ,LODBUF
BUFLEN
BUFLEN,WCLEN
WCLEN
WCLEN,DRWC
INBUF ,@DRcA

052525.30RDB

#INTA,3DRINV
DRINL ,@8DRVS
aPSV
#103,8DRST
.

X7.,DATOCK

:LENGTH OF BUFFER=20
;LOAD THE BUFFER WITH INCREMENTING PATTERN
sBUFLEN=10
sPREPARE NUMBER FOR DRW(C
:2'S COMPLEMENT OF BUFLEN
;SET UP DRW(
sSET UP DRBA

;SET UP DRDB

sINTERRUPT VECTOR TO INTA
:INTERRUPT VECTOR TO PRIORITY DRINL
:LET THE DR11-B INTERRUPT
:1E, FNCT1(C1 CONTROL), AND DO TO DRST
sWAIT FOR INTERRUPT

s CHECK INBUF

1209

RNCNNE
RA
CAARRCRRARERERO
AR AAAAN AR ATARAN
AAAE
AR A E RS RN R
JINENARR

1211

JIRNARRARRRANA

1210
1212

1213
1214

1215
1216
1217

004622

004624
004632

004636
004644
004650

104400

012767
004767

016767
005467
016777

000200
002170

174204
174204
174200

174214
174210
174142

TEST 37 STRING OF 200 DATI'S

SCOPE

MOV
JSR

MOV
NEG
MOV

AR AR RN CE RN AARRACAEARAACRRAARCCRRRRERACRAANLN

#200,BUFLEN
X7,L0DBUF

BUFLEN,WCLEN
WCLEN
WCLEN,QDRWC

:LENGTH OF BUFFER=200
sLOAD THE BUFFER WITH INCREMENTING PATTERN
;PREPARE NUMBER FOR DRW(
:2'S COMPLEMENT OF BUFLEN
;SET UP DRWC

SEQ 0022

016777
012777
0127277

b e cd e

b e

nqxefunnunnuununnunnunnuhnvnnv
WWWWNRIN
NN NN NN N
oo~ gnfi,duuu-*CMOOD‘JOHAJ\U“U-JCD

004656
664

K 2
PAGE 24

20-MAY-83

174160
172777
007130
174126
1764104

}74136

MOV
MOV

INBUF ,aDRBA
#-1,3DRDB

000101

174104

MOV
CLR
MOV

ORINL ,3DRVS
aPsw
#101,aDRST

“INT VECTOR TO PRIORITY DRINL
SLET THE DR11-B INTERRUPT
*IE AND DO TO DRST

000177

17L076

#177,3DRDB

*CHECK THAT WORD #200 OF INBUF IS IN DRBA

MOV

104000

15:09

MACY11 30(1046)

CZORBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:04
CZORBH.P11

B8R

CMP

BEQ
HLT

#INTA,3DRINV

:SET UP DRBA
‘MAINT AIDE

:INT VECTOR TO INTA

*WAIT FOR INTERRUPT
SIS IT?
‘BAD DATA IN DRDB

;;tittttttttttttttt'ttttttlttttitittttt'ittttttttttttttttt'tttttt

TEST 40 STRING OR 200 DATO'S

b on D

:;ttttttttttttt.tlttttttttttttttttttt.tittQ'ttttttttttttttttttttt

000201

174102

b e

104400
012767

b e

b o

174072

016777
005077
012777
000777
004767

173766

000103

174024
174020
174016
174016
174004

173766

002242

SCOPE

MOV
JSR
DEC
MOV
NEG
MOV
MOV

MOV

#201,BUFLEN
7. LODBUF
BUFLEN
BUFLEN.WCLEN
WCLEN
WCLEN, 3DRWC
INBUF @DRBA

#52525,30RDB

;LENGTH OF BUFFER=201
1LOAD THE BUFFER WITH INCREMENTING PATTERN
*BUFLEN=200
-PREPARE NUMBER FOR DRWC
12'S COMPLEMENT OF BUFLEN
SSET UP DRWC
*SET UP DRBA

;SET UP DRDB

MOV
MOV
CLR
MOV

#INTA,3DRINV
DRINL ,@DRVS
aPsW
#103,aDRST

- INTERRUPT VECTOR TO INTA
: INTERRUPT VECTOR TO PRIORITY DRINL
SLET THE DR11~8 INTERRUPT
*IE. FNCT1, AND DO TO DRST

JSR

£7.DATOCK

SCHECK INSUF

B8R

‘WAIT FOR INTERRUPT

;:tttttttttttttttfittttt*t*tttttttttt"i.titttt'tl&ttttittttttttti

TEST 42 TEST THAT DOING A DATO T) THE DIODE MEMORY CAUSES NEX

::ttttttttttttfitttttttttt'tttttttt)ttttilttttt'ttittt.t'ttttttttt

104400
012777
016777
012777
016777
005077
012777
005237
104000

042777
005777
001001
104000
105777
001001
104000

177776
173760
005116
173736
173714

000163
177560
000100
173674

004767

173714
173700

040000

002072

SCOPE

MOV
MOV
Mov
MOV
CLR
MOV

INC
HLT
NEXCHK: BIC
TST
BNE
HLT

1ST8

173664

040000

005166

173744
173740
173744
173732

173652

173640

BNE
HLT
BIT
BNE
HLT

BIC
CMP
JSR

#-2,3DRUWC
DIOMEM,3DRBA
#NEXCHK ,aDRINV
DRINL ,8DRVS
aPsSw
#163,3DRST

JSET UP DRW(C
:SET UP DRBA
:INTERRUPT VECTOR TO NEXCHK
:INTERRUPT STATUS TO LEVEL DRINL
:LET THE DR11-8B INTERRUPT

;IE, FNCT1, XBA17, XBA16, AND GO TO DRST

177560

;WAIT FOR INTERRUPT

#8176,3DRST
aDR ST
o"

:TEST DRST

aDRST
#81T14 ,3DRST

. te

#BIT14,30RST

(26)+,(X6)+
X7 ,NORMAL

:NO DR11=8 INTERRUPT
:CLEAR INTERRUPT ENABLE
:ERROR SET?
:ERROR NOT SET
:TEST FOk READY
:READY SET?

:READY ISN'T SET

JCHECK NEX
:NEX SET?
sNEX IS CLEAR
:CLEAR NEX
:RESTORE THE STACK

;:tttttttttttttttttttttt't'ttttli.'fittititttttttti'tt'ilttttttt"

SEQ 0023

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY-83 15:04

1275

1277

1278

1279
1280
1281
1282

1283
1284

005172

005174

005202
005210
005216
005226

005232
005236

104400

012767

012777
012777
012777
016777

005077
012777

000010

177760
177776
005252
173602

173560
000163

005260
005262
005266
005270
005272
005276
005300
005302
005310
005316
005320
005322
005326
005330

022626
005777
100401
104000
105777
100401
104000
042777
032777
001401
104000
005777
100001
104000

SCOPE

MOV

005160

MOV
MOV

173610
173604
173610
173576

MOV

CLR
MOV

173560

005077

173464

1304
1305
}%89

005336
005342
005344

004767
000005
004767

005042

}gg%

005332

CMP
TST
BMI]
HLY
1ST8
BM]
HLT
8IC
BIT
BEQ
HLT
TST
BPL
HLY

173536
173526
040000

060000

PAGE 25

SEQ 0024

A BAOF AND DOES NOT FORCE AN ERKOR

INC
1285 005244 005237 177560
HLT
1286 005250 104000
1287 005252 042777 000100 173544 BAOFCK: BIC
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301

15:09

TES) 43 TEST THAT CROSSING A 32K BOUNDRY DOES NOT CAUSE

1274

1276

20-MAY-83

MACY11 30(1046)

173514

173506

173476

001714

#10, ICOUNT

0-26 SDRWC
-2, SDRBA

CK ,aDRINV
#BAOF

DRINL.GDRVS

sSET UP DRWC
:SET UP DRBA FOR PROC STATUS ADDRESS
XNTERRUPT VECTOR TO BAOF (K

INTERRUPT STATUS TO LEVEL DRINL
:CLEAR INTERRUPT ENABLE

(°6)+,(26)+
adDRST
b

;RESTORE THE STACK
s TEST DRST
;ERROR SET?
:ERROR NOT SET

aDRST
o
#81714 ,3DRST

#60000,30RST
b
aDRST
b
X7,CKSWR

ittt

NO CR11-B INTEPRUPT

#B1T6,aDRST

JSR
RESET
JSR

R AL R AL e AR

UAIT FOR INTERRUPT

177560

aDRBA

:LET THE DR11-B_ INTERRUPT
s1E, FNCT1, XBA17, XBA16, AND GO TO DRST

aPS
0163 aDRST

CLR

;TEST FOR READY
READV SET’
:READY ISN'T SET
sCLEAR NEX

:CHECK NEX AND ATTN
:ARE THEY CLEAR?
:NEX_AND/OR ATTN IS SET
sTEST FOR FRROR
:1S ERROR CLZAR?
:ERROR IS SET
CLEAR BUS ADDRESS REGISTER
SINIT

X7 ,NORMAL

1308

NN
INEARERRANAA AR NRANAAN AR A ANE AR ARR RN ERACAARERCRNCARRARRRNCAAC

1310

1309
1311

005350

104400

1312
1313
1314
1315

005352
005360
005366
005372

012767
012777
004767
000005

1317
};}g

005400
005402

001401
104000

1316

005374

005777

000010
177777
005012

TEST 44 TEST THAT RESET CLEARS DRDB
SCOPE

005002
173440

e L

A L LA

Mov
MOV
JSR
RESET

#10, ICOUNT
#-1,3DRDB
X7,CKSWR

sALL ONES TO DRBA

8EQ
HLT

aDRD8
ot

:LOOKING FOR 2-BIT TO SET

TST

173426

e L

SINIT

:DID DRDB GET CLEARED?
:DRDB NOT CLEAR

1320

..ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

1322

1321

1323

1324
1325
1326

1327
}ggg

005404

005406
005414
005422

005430
005432

104400

012767
012777
022777

001401
104000

004000
177777
177777

004746
173404
173376

TEST 45 TEST THAT ALL DRDB BITS CAN BE SET
e

SCOPE

MOV
MOV
CMP

8EQ
HLT

1 COUNT
#4000,
#-1,3DRDB
#-1,3DRDB

.th

e A L

AL AL L LS

sSET ALL BITS IN DRDB
:LOOKING FOR Z-BIT TO SET
:SEE IF ALL BITS GOT SET

;ALL DRDB BITS AREN'T SET

CZORBHO DR11-B/DA11-B NPR DIA

CZORBH.P11

20-MAY=-83 15:04

MACY11 30(1046)

20-MAY-83

15:09

PAGE 26

SEQ 0025

1330

,,tttttttttnttttttttttttttttttttttttttttttttttttttttttttttttttttt

1332

,,atttt-tttttttttttttttttttttttttt.tttttttttttttttttttttttttttttt

1333

TEST 46 TEST THAT DRDB CAN HOLD ALTERNATE ONE'S AND ZERO'S

1331

005434

13346

005436

1337

005454

104400

012777

052525

173362

125252
125252

173342
173334

SCOPE

MOV

1335 005444 022777 052525 173354
1336 005452 001401

CMP
8EQ

1338
1339
1340
}gfi;

MOV
CMP
BEQ
HLT

005456
005464
005472
005474

104000

012777
022777
001401
104000

HLT

;ALT 0°'S AND 1°'S TO DRDB

#052525,8DRDB

#052525,8DRDB
R

LOOKING FOR Z-BIT TO SET
DOES DRDB HAVE THE CORRECT PATTERN?

#125252,3DRDB
#125252,8DRDB
R

ALT 1°'S AND 0 S T0 DRDB
:LOOKING FOR Z=-BIT TO SET
DOES DRDB HAVE THE CORRECT PATTERN
DRDB IS WRONG

DRDB IS WRON

1343

INERAANAAAARAANANAEAREACRERRANRRARARARANRAAEAAARRAAECRCRARAANRNS

1345

ROR L
NARR
RN AN NRAEARAAARTRARA
AR EC RN ANAE ERARA
IARARARANA

1344

1346

005476

104400

1347
1348
1349

005500
005504
005506

005067
005001
005077

1351
1352
1353
1354

005516
005520
005522
005526

001401
104000
005277
905201

SCOPE

004656

173314

1350 005512 020177 173310
}%gg

005530

TEST 47 INCREMENTING PATTERN TO WRAP-AROUND IN DRDB

INCDB:

173300

001370

CLR
CLR
CLR

JCOUNT
4]
aDRDB

BEQ
HLT
INC
INC

CMP

;SET=-UP
SEI-UP

X1,aDRDB

SEE IF THEY ARE EQUAL
ARE YHEY EQUAL?
~THEY RE NOT EQUAL
;GET NEXT NUMBER
GET NEXT NUMBER

aDRDB
%1

BNE

INCDB

DONE WITH TEST? IF NOT CONTINUE

1357

,.ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

1359

1358

1360

1361

1362
1363
1364
1365
1366
1367
1368

}%98

TEST S50 TEST THAT RESET SETS READY AND CLEARS ALL OTHER

DRST BITS (WITH M968 INSERTED)

IRARERAARAAREA AR AR RN AN

005532

005534
005540
005542
005550
005552
005554
005562

005564

104400

004767
000005
032777
001001
104000
032777
001401

SCOPE

JSR
RESET
BIT
BNE
HLT
8IT
BEQ

004644

000200

173254

177577

173242

HLT

104000

AR RANAANAANENAAREARCRRAAEARONCACNRRAE

X7.CKSWR

JINIT
CHECK DRST
IS READY SET?
READY IS CLEAR
;CHECK DRST
ARE THEY ALL CLEAR?

#81T7,3DRST
R
#177577 ,aDRST
R IA
L L A

;A BIT OTHER THAN READY IS SET IN THE DRST

A LA LA L L AL L L AL i

bk ddntdndatadet

1371

1373

.sX 2223332222222 2222223223222%2222332333232322233834838332323333323233843422]

;

1372
1374

1375

1376
1377

005566

005570

005576
005604

104400

012767

032777
001401

004000

000001

SCOPE

MOV

004564

173216

#4000, ICOUNT

#8170,aDRBA
R

BIT
8EQ

HLT

;g;g 005606 104000

TEST S1 TEST THAT BAOO READS AS A ZERO WITH MAINT BOARD INSERTED
:TEST BIT 0 OF DRBA
IS IT CLEAR?

*BAOD IS SET

1382

AA
RRARRARRNCNRS
NAAN
AN NAARARRARANEARO
ARRA
AN RN ERNEREN
IIREAAAR

1384

1383
1385

005610

104400

TEST S2 TEST THAT GO CLEARS READY
AR AR AR EE R

SCOPE

RN NN

AN AR NN NRNRANTECRRRARCRENACROS

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11
1386

1387
1388

1389
1390
1391

20~MAY~83 15:04

005612

005620
005626

005634
005640
005642

012767

012777
016777
105777
100401
104000

004000

177600
173210
173164

1392 005644 012777 000011
1393
1394
1395
1396
1397
1398

005652
005656
005660
005662
005666
005672

105777
100001
104000
005067
105777
100406

173146

MACY11 30(1046)

20-MAY-83

004542

Mov

173172
173166

173152

173170
177132

1399 005674 062767 000004 173154
1400

005702

1402
1403

005706
005710

1401

1404

005704

MoV
Mov
vSTB
BMI
HLT

MoV

TST8
8PL
HLT
CLR
TSTRDY: TSTB
BMI

ADD
BMI

100401

000770

104000
000240

DONE

T T

HLT
NOP

15:09

PAGE 27

#4000, ICOUNT

#-200,30RW(C
INBUF ,aDRBA
aDRST
.+

#11,3DRST

SEN 0026

sSET=UP DRWC
:SET=UP DRBA
; CHECK READY
:IS READY SET’
;READY IS CLEAR

:FNCT3 (NON-BURST) AND GO TO DRST

RDYCHK
@DRST
DONE

:CHECK READY
;IS READY CLEAR?
;READY IS STILL SET
:CLEAR READY CHECK
:CHECK READY
:IF _SET GO _TO DONE

. +o

:IF RDYCHK GETS NEGATIVE IT TOOK TOO LONG

aDRST
.te

#4 ,RDYCHK
TSTRDY

:CHECKING TIME FOR READY TO BE SET
:CHECK AGAIN

;READY GOT CLEARED BUT NEVER SET AGAIN
;60 TO NEXT TEST
D

bbbt

1405

sTEST 55 TEST THAT GIVING A DO WITHOUT CLEARING A PREVIOUS ERROR

1407

FOR THIS TEST, THE NORMAL INTERRUPT MECHANISM SHOULD BE WORKING
e v

:CAUSES ANOTHER INTERRUPT

1406

1408

1409

005712

104400

SCOPE

1410
1411

005714
005722

012777
016777

177760
173112

173076
173072

MoV
MoV

#-20,3DRWC
DIOMEM,aDRBA

SET-UP DRUW(
;SET-UP DRBA

1414
1415

005744
005750

005077
012777

173046
000163

173046

CLR
MoV

aPS
#163 aDRST

:LET THE DR11-8 INTERAUPT
s1E, XBA17 ,XBA16,FNCT1 AND GO TO DRST

1417
1418
1419

1420

005762
005764
005770
005772

104000
005777
100401
104000

1423

006006

042777

000062

1427
1428

006032
(006036

005227
001375

000001

1$:

000004
172752

HLT
sus
ERRDO1: TST

MoV
MoV

1412 005730 012777 005764 173076
1413 005736 012777 000140 173064
1416 005756 005277 173076

INC

ERRDO:

173034

1421 005774 012777 006046 173032
1422 006002 005077 173014
1426
1425
1426

1429
1430
1431

006014
006022
006026

006040
006042
006046

012777
005277
005067

104000
162706
005777

1432 006052 100401
1433
1434
1435

}2%9

006054

104000

006056
006062

062706
004767

1438

1439
1 440

1441

177777
172776
000002

172776

104400

aDRST
b

:WAIT FOR_INTERUPT

:NO DR11-B INTERRUPT
sTEST DRST
;ERROR SET?
:ERROR IS CLEAR = SHOULD HAVE NEX

#ERRDO1,3DRINV ; INTERRUPT VECTOR TO ERRDO1
;PREVENT CAUSING ANOTHER ERROR
aDRBA

MoV
INC
CLR

#-1,aDRWC
aDRST
1842

INC
BNE

BM!

HLT

000010
001176

aTksS

MOV
CLR
8IC

173010

ADD
JSR

006066

HLT
TST
BMI]
HLT

NERRDO,@ORINV ; INTERRUPT VECTOR TO ERRDO
:INTERRUPT STATUS TO LEVEL &
0140 aDRVS

#62 ,aDRST
1
1%

#4,%6
@DRST

.té

#10,%6
X7 ,NORMAL

:CLEAR XBA17, XBA16, AND FNCT1
:SET=UP DRWC
:DO TO DRST

:NO DR11-B INTERRUPT
:FAKE AN INTERRUPT WITH STACK
:CHECK ERROR

:ERROR SET?

:ERROR IS CLEAR = SHOULD BE SET BECAUSE
sPREVIOUS ERROR WAS NOT CLEARED
:REPOSITION THE STACK

b bttt LA L
y
bl
T
L
L

TEST 56 STRING OF 200 DATI®S NON-BURST MODE

M ARARAAANRARRAAAARARASRACAOARRRRRAANARARRACRRNAAARNACRACRNSORNQNERS

SCOPE

CZORBHO DR11-8/DA11-B NPR DIA
20-MAY-83 15:04
CZORBH.P11
1442
1443

1444
1445

006070
006076

012767
004767
016767
005467
016777

000200
000724

172740
172740
172734
172714
177777

MACY11 30(1046)

20-MAY-83

172750

MoV
JSR
MoV
NEG
MOV
MoV

172744
172676

MoV
MOV
MOV
CLR

172670
172656

MoV
INC
BIT
BEQ

172640

000001

172654

WAIT
NOP

006216
006220

000177

172610

#111,3DRST
BRWAIT
#8170,BRWAIT
DATING

CMP
BEQ

#177,3DRDB
. +e

PAGE 8

#-1,3DRDB
#INTA,QDRINV
DRINL ,3DRVS
aPSW

HLT

#200,BUFLEN
X7,L0DBUF
BUFLEN,WCLEN
WCLEN
WCLEN,3DRWC
INBUF ,8DRBA

B8R

DATINB: BR

104000

15:09

SEQ 0027

sLENGTH OF BUFFER=200
*LGAD THE BUFFER WITH INCREMENTING PATTERN

PREPARE NUMBER FOR DRW(C
:2'S COMPLEMENT OF BUFLEN
:SET=UP DRWC
;SET-UP DRBA

;MAINT AIDE

s INT VECTOR TO INTA

:INT VECTOR TO PRIORITY DRINL

:LET THE DR11-8 INTERRUPT
s1E, FNCT3, AND DO TO DRST
:USE A WAIT OR BR. INSTRUCTION
sSEE WHICH ONE
:BIT 0 CLEAR=BR.
:WAIT FOR INTERRUPT

:§25E§’THAT WORD #200 OF INBUF IS IN DRBA

‘BAD DATA IN DRDB

:;ttt.t.tttttttttttttitt't'Qitt'tti.'t.ttt'.ttt.t'ttttt'ttttttttt
4

TEST 57 STRING OF 200 DATO'S NON-BURST MODE

::ttttt*tttt".'tttttttt'tt'ttQtittt*fitttttttt'ttt.tttttfitttttttt

006222
006224
006232

006254
006262
006270
006276
04

104400

012767
004767
005367
016767
005467
016777
016777
012777
012777
016777
005077
012777
005267
032767
001403
000001

000201

100570

172604
172600
172600
172574

172614

MoV
JSR

172604

MOV

BUFLEN,WCLEN

172536

MOV

WCLEN, 3DRWC

MOV

172532
172530
172530
172516

000001

MOV

MOV
MOV

#201 ,BUFLEN
27,L0DBUF

BUFLEN
WCLEN

INBUF ,aDRBA

#52525,30RDB
#INTA,2DRINV
DRINL ,@DRVS
aPSw

172500

MOV

#113,3DRST

172514

BIT
BEQ

#8170,BRWAIT
DATONS

BRWAIT

;LENGTH OF BUFFER=201
:LOAD THE BUFFER WITH INCREMENTING PATTERN
:BUFLEN=200

PREPARE NUMBER FOR DRW(C
:2'S COMPLEMENT OF BUFLEN
sSET UP DRW(C

sSET UP DRBA
;SET UP DRDB

:INTERKUI'T VECTOR TO INTA
: INTERRUPT yEFTOR TO PRIORITY DPINL
:LET THE DR11-B_INTERRUPT
c1E, FNCT3, FNCT1, AND DO TO DRST
:USE A WAIT OR BR. INSTRUCTION
:BIT 0 CLEAR=BR.

;WAIT FOR INTERRUPY

000240
006344
006346
006350

000401
000777
004767

BR
BR
DATONB:

JSR

000732

:
006354
006356

104400
012767

000010

172462

X 2222222222222

b
.

27,DATOCK
233

s CHECK INBUF

22322323832 02

1232 dddlitilldlatddd)

TEST 60 TEST THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSFERS

ARG ARAERCRRAEN
NRARNC
RAARRARRA
RRARAA
RN A ERANARARARRRANA
cRAEANRNRRRR

SCOPE
Mov

#10,BUFLEN

:SET-UP BUFLEN FOR LODBUF AND CHKBUFF

CZORBHO DR11-B/DA11-8 NPR DIA

CZORBH.P11

20-MAY~83 15:04

MACY11 30(1046)

20-MAY-83

1498
1499
1500
1501
1502

006364
006372
006376
006402
006406

016777
004767
004767
005077
012767

172452
000430
000462
172416
000001

172430

R
17:354

MoV
JSR
JSR
CLR
MoV

1505

006422

016767

012777

172614

007130

172442

MoV

1508 006436
1509 (06446

016777
005077

172370
172346

}ggz 006414 012767 000001

}289 006430

012777

177777

MoV

172424

INBUF ,3DRBA
27.L0DBUF
X7,CHKBFF
aDRST
#1,FNCCNT

#1,8UFLEN

INBUF , INBUF 1

MoV
CLR

DRINL ,3DRVS
aPSW

s INTERRUPT VECTOR PRIORITY TO DRINL
sLET THE DR11-B INTERRUPT

8IS

#10101,30RST

sMAINT, IE, AND DO TO DRST

aDRST X1

sWAIT FOR INTERRUPT
sFAKE=0UT RETURN ADDRESS CHANGING
;LOWER BYTE OF DRST TO R1

MoV

172342

000001
000240
117701

1517
1518
1519
1520
1521
1522
1523
1524
1525

006500
006502
006506
006510
006512
006516
006526
006526
006534

006201
126701
001401
104000
005267
022767
001404
062767
000735

172352
000010

172344

000002

172306

1527
}ggg

006564
006552

016767
004767

172322
000446

WAIT
NOP
Move

172330

8IC

1516 006474 042701 000600

172362

172302 MFCHK:
172270

ASR
CMPB
8EQ
HLT
INC
cmP
BEQ
ADD
B8R

#-1,3DRWC

MOV

MFLOOP

sMOVE IT RIGHT ONE PLACE
sCHECK AGAINST FNCCNT
sSHOULD BE EQUAL
sFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE
sGET READY FOR NEXT PASS
sONLY 10 BECAUSE FNCT3-1 GO TO Z2ERO
sIF ITS EQUAL GO CHECK DATA
sFAKE=OUT INTA ROUTINE
:D0 IT AGAIN

INBUF 1, INBUF
27 ,DATCHK

sRESTORE INBUF
sCHECK DATA

1
FNCCNT, X1
.o

FNCCNT
#10,FNCCNT
MF CHK
#2, INBUF

MOV
JSR

1532

R Lttt

1531

1540
1541

006616
006624

016777
012777

012777
016777
005077
012777
000777
004767

007130
172166
172144
010101

1542
1543
1544
1545
1546
}gzg

006632
006640
006646
006652
006660
006662

172220
177777

172202
172176
172174
172174
172162

000336

L L L

sSET UP FOR DATCHK (10 FNCT CHECKS, 7 TRANSFERS
L L

bibbtnkbe b A AL AL

e e e L LA A A A A

L
Ll

MOV
MOV
NEG
JSR
JSR
MoV

#10,BUFLEN
BUFLEN,WCLEN
WCLEN
X7.L0DBUF
X7,CHKBF F
WCLEN,aDRW(C

sBUFLEN=10
;PREPARE NUMBER FOR DRWC
:2'S COMPLEMENT OF BUFLEN
sLOAD IN BUFFER WITH INCREMENTING PATTERN
sLOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
sSET UP DRW(C

MoV
MoV
CLR
MOV
8R
JSR

#INTA,3DRINV
DRINL ,3DRVS
aPSW
#10101,30RST
.
X7 ,DATCHK

s INTERRUPT VECTOR TO INTA
s INTERRUPT STATUS AT PRIORITY DRINL
sLET DR11-8 INTERRUPT
SMAINT, JE, AND DO TO DRST
sWAIT FOR INTERRUPT

MOV
MoV

172144

#7 ,BUFLEN

TEST 61 TEST FOR 10 MAINT MODE TRANSFERS

SCOPE

172260
172260

;SET=UP FOR 1 TRANSFER

:GET RID OF READY AND CYCLE BECAUSE OF MAINT MODE

#6001

1530

000010
172254
172254
000222
000254
172240

sSAVE INBUF

172364

006464
006466
006470

104400

sCHANGE 1S NECESSARY FOR INTA ROUTINE

172376

1513
1514
1515

006556

sSET=UP DRBA
sLOAD INBUF
:LOAD CHKBUF
SINIT FOR STARTING
sGET READY FOR CHECKING

s INTERRUPT VECTOR TO INTA

}g}; 006456 052777 010101 172340

1533

SEQ 0028

#INTA,QDRINV

006450

1534 006560 012767
1535 006566 016767
1536 006574 005467
1537 006600 004767
1538 006606 004767
1539 006610 016777

PAGE 29

MFLOOP: MOV

1510

1526 006536 012767 000007

15:09

INBUF ,3DRBA
#-1,3DRDB

cSET UP DRBA
sMAINT AIDE

dviiiviigaahib bbb b L
L ittt

1549

1551
1552

e T T D L e R AL L DA R L
e T A
e
SCOPE

1550

1553

006666

006670

104400

012767

000200

172150

TEST 62 TEST FOR 200 NPR TRANSFERS IN MAINT MODE

MoV

#200,BUFLEN

:LENGTH OF BUFFER = 200

CZDRBHO DR11-B/DA11-B NPR DIA

CIDRBH.P11
1554

20-MAY-83 15:04

006676

016767

172144

1555 0067046 005467 172144
1556 006710 004767 000112
1557 006714

1558
1559

1560
1561
1562
1563
1564

1565
1566

006720
006726

006734
006742
006750
006756
006762

006770
006774

004767 000144
016777
016777

012777
016777
005077
012777

007130

005267
032767

172056
000001

1568
1569

007004
007006

000001
000240

1571

007012

000777

007010

000204

1574

007022

000167

000356

1576

007032

005067

172012

007040

005267

1575

007020

104400

007026 016702

1577 007036 005022
1578

1579
1580
1581
1582
1583

007046
007052
007054
007060
007062

026767
001403
016722
000767
000207

172006

172000

171770

1585
1586

007070
007074

005067
005003

171754

1589
1590
1591
1592
1593

007102
007110
007116
007120
007124

062767
026767
100003
062703
000764

000002
171734

1594
1595

1596
1597
1598
1599
1600

1601

007126
007130

007136
007142
007144
007146
007152

007154

000207
042777

005777
100001
104000
105777
100401

000002
000100
171662

171652

104000

1602 007156 005777 171636
1603

007162

1606

007164

1608
1609

007202
007206

001401

104000

1605 007166 016702 171654
1606 007172 066702 171650
1607 007176 066702 171640
027702
001401

171614

171666

INTA:

X7.CHKBFF

*LOAD CHKBUF WITH MODIFIED INCREMENTED PATTERN

INC
BIT

BRW
cexro enuaxr

12'S COMPLEMENT OF BUFLEN
*LOAD INBUF WITH INCREMENTING PATTERN
*SET UP DRWC
*SET UP DRBA

*MAINT AIDE
:INT VECTOR TO INTA
LINT VECTOR AT PRIORITY oaqu
‘LET THE DR11-B INTERRUPT
:FOLLOWING TO DRST: MAINT(12),1E(06),00(00)

BEQ

BRANCH

:BIT 0 CLEAR = BR.

JSR

$7.DATCHK

)

;CHECK THAT CORRECT DATA WAS TRANSFERRED

JMP

END

;D0 IT ALL AGAIN.

CLR

LENCHK

;CLEAR LENGTH CHECK

INC

LENCHK

CLR

INBUF , %2
(X2)+

‘USE A WAIT OR BR. INSTRUCTION
:SEE WHICH ONE

MOVE STARTING ADDRESS OF INBUF TO R2
*CLEAR STARTING ADDRESS OF INBUFF AND INC BY 2
SINC LENGTH CHECK BY 1

LENCHK,BUFLEN
LDEXIT
LENCHK (%2)+
LOADA
17

:CHECK FOR DONE
‘IS INBUF FILLED?
:LOAD NEXT BUFFER WORD
sCONTINUE CHECKING
SEXIT

CLR
CLR

LENCHK
3

*CLEAR LENGTH CHECK
*CLEAR R3

ADD
CMP
BPL
ADD
BR

#2.LENCHK
LENCHK,BUFLEN
.+10
#2.13
CHKA

CHKBFF: MOV

171740
171730

;PREPARE NUMBER FOR DRWC

WCLEN
$7.LODBUF

#1,3DRDB
DRINL aDRVS
aPsW
xo1o1o1 aDRST

CMP
BEQ
MOV
BR
LDEXIT: RTS

CHKA:

BUFLEN,WCLEN

#INTA,3DRINV

LODBUF: MOV
171774

PAGE 30

MOV

SCOPE

LOADA:

WCLEN, 8DRWC
INBUF . 3DRBA

BRANCH: BR

172010

15:09

MOV
MOV

MOV
MOV
CLR
MOV

172050

1584 007064 016702 171754
1587 007076 010322
1588 007100 010322

JSR

172072
172066

000401

004767

1573

NEG
JSR

WAIT
NOP

007014

1572

MOV

172150

000001 172064
172064
172056 172052
172034
010101 172034

012777

1567 007002 001403

1570

172130
172110

MACY11 30(1046)

20-MAY-83

MOV
MOV

RTS
BIC
ST
8PL
HLT
TST8
BM]

HLT

BEQ

HLT

MOV
ADD
ADD

CMP
BEQ

CHKBUF , %2

13,(%2)+
13.(32)+

17
xexrb aDRST
aDRS
4

tSTARTING ADDRESS OF CHECK-BUFFER TO R2
‘MOVE R3 TO CHKBUF ADDRESS AND INC BY 2
‘MOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2
*ADD 2 TO LENGTH CHECK
:CHECK FOR DONE
‘IS CHECK-BUFFER FILLED?
*NEXT NUMBER FOR BUFFER
*CONTINUE FILLING
SEXIT
*CLEAR IE

@DRST
. +4

*CHECKING FOR ERROR
*ERROR SET?
*ERROR BIT IS SET
*CHECKING READY BIT
SIS READY SET

aDRW(

STESTT FOR DRWC=0

L +4

BUFLEN, X2
BUFLEN. X2
INBUF, §2
aDRBA. Y2
. th

*FALSE INTERRUPT = ERROR AND READY ARE CLEAR
‘WAS IT EQUAL?

*DRWC NOT =0

‘BUFFER LENGTH TO R2
‘NUMBER OF TRANSFERS TIMES 2
*CORRECT DRBA
*CHECKING DRBA
;IS DRBA CORRECT?

SEQ 0029

CZDRBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:04

CZDRBH.P11

— = = s = —b —2
N AR AIRIRININD
NN =2O 0V ~NONESW ~N
~ OV

104000

007210
007212
007216
007222

062716
004767
000002

007224
007230
007234
007240

016702
016703
005067
005267

—b

b =D e

b b i

mad

—_—

(e o e Yo Yoo o Yo Yo To Yo Yo Jo To Lo oo
—
b

1610
1

MACYT1 30(1046)

20-MAY-83
HLT

ADD

000002
000042

JSR
RTI

171566

001030
171532
000340

171542
171512

LENCHK
LENCHK
(%2)+,(X3)+
4

HLT

b e

RRRRX

HWN
= O V00NN

1644

1655

INBUF , &3

CMP

LENCHK,BUFLEN

NORMAL: MOV
CLR
MOV

#DRVS,3DRINV
aDRVS
#340,aPSW

DATOCK: MOV

#52525,%2

CLR
COMPRR: INC
CMP
BEQ

LENCHK
LENCHK
X2, (%3)+
.+

g¥§

RTS

HLT

171504

171442

%7 .NORMAL

CLR
COMPAR: INC
CMP
BEQ

INBUF .13

CMP
BNE

12.(33)+
RYA

RTS

) ¥4

ST
8PL
HLT
TSTB
BM]

aDRST
. +4

ERRCHK: BIC

HLT

RTS

000207

LENCHK,BUFLEN

BNE

171426

ggnpAn

CMP

HLT

000100
171436

#2,(26)

CHKBUF , %2

MOV

171510

E 3
PAGE 31

DATCHK: MOV

MOV

171572

15:09

COMPRR

#B1T6,3DRST

SEQ 0030

;:DRBA NOT CORRECT

*RETURN ADDRESS TO RETURN ADDRESS +2
SEXIT

;STARTING ADDRESS OF CHECK BUFFER TO R2

*STARTING ADDRESS OF IN BUFFER TO R3
:CLEAR LENGTH CHECK
*MAKE A COMPARISON
*IS THE DATA CORRECT?
SBRANCH IF 0K
:BAD DATA

:SEE IF THE BUFFER HAS BEEN CHECKED
*BUFFER CHECKED?

;RESTORE DR11-8 INTERRUPT VECTOR
*RESTORE DR11-8 INTERRUPT STATUS
*RESTORE PROC TO PRIORITY LEVEL 7
SEXIT

*DATO NUMBER TO R2

*STARTING ADDRESS OF IN BUFFER TO R3
SCLEAR LENGTH CHECK
*MAKE A COMPARISON
*IS THE DATA CORRECT?
*BRANCH IF OK
:BAD DATA

:SEE IF THE BUFFER HAS BEEN CHECKED
*BUFFER CHECKED?

SCHECK END OF BUFFER + 1
SSEE IF TOO MANY WORDS WERE TRANSFERRED
>T00 MANY

SEXIT

SCLEAR IE

@DRST
L+

*CHECKING FOR ERROR
*ERROR SET?
*ERROR BIT IS SET
*CHECKING READY BIT
*IS RDY SET

SEXIT

‘FALSE ENTRY - ERROR AND READY ARE CLEAR

::tttttt'tttttttttttt.tt'ttttttttttttt*ttttttittttttttttttttt'ttt

END OF PASS

END:

MOV

2207, 34177566

INC
MOV
JSR

PASCNT
#SENPAS, X2
%7, 170Ut

:KEEP TRACK OF PASSES COMPLETED
*PRINT ‘END PASS'

BIC

#20,3PSW

;CLEAR T-BIT

BEQ

TRTRAP

:;tittttttttttttttttttttt'tttttttttttttttttttttttt'ttttttt't'tttt

007404
007412
007416
007420
007424
007430

012737
105737
100375
005267
012702
004767

000267
177564

007434
007442
007446
007450

042777
013702
001405
000005

000020
000042

177566

171450
013017

003450

171354

END1:

53[8

MOV
RESET

3117756k

a2,
12

;RING BELL

CZORBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11
1666

1667
1668
1669

1670

20=-MAY-83 15:04

007452

0074546
007456
007460

MACY11 30(1046)

$ENDAD: JSR

004712

NOP
NOP
NOP

000240
000240
000240

1671

1672
1673

1674

1676

1679
1680
1681

1682

}ggz

15:09

PAGE 32

27,(2)

JENERAANANAE AN

AR NG C RO RRRNANNCANRNRNRTAACRGORRCLRNRNRENRCNOS

ROUTINE TO CHECK FOR TRACE TRAP TO BE RUN WITH PROGRAM

S
RA
OAERRACENAEN
ARNA
CANENRACRONR
REAR
IR A CAARNAREAARA
ANAREE
IINANEEA

007462

004767

002716

1675 007466 032777 010000 171320
1677
1678

20-MAY-83

007474

007476
007502

007504
007512
007520

007526
007532

001417

005767
001411

016767
016767
042777

000167

000000

TRTRAP: JSR

000076
000072
000020

171442

170302
170276
171270

TRPA:

TRPB:

sCHECK FOR CONT G

#16000 oSk

SHOULD WE RUN WITH TRACE TRAP

TST
BEQ

YESTR1
TRPA

NO HAVE WE RUN WITH TRACE TRAP ON?
:IF SO RESTORE PREVIOUS CONTENTS

B8EQ

000104

X7, ,CKSWR

8IT

MOV
MOV
81C

JMP
O

YESTR

YESTR1,14
YESTR2,16
#20,aPSW

BEGIN

;YES

JCLEAR TRACE TRAP

SIART OF TEST WITH TRACE OFF

1685

..tttttttttttttttttttttttttttttttttttttttttttttttttttttttt'tttttt

1687

,.ttttttttttttttttttttttt'tttttttttt'tttttttttttttttttttttttttttt

1686

1688

007534

016767

170254

000044

1690
1691

007550
007556

012767
005067

007612
170234

170236

052777

000020

1689

1692
1693
1694

1695

007542

007562
007566
007572

007574

016767

005077
005167
100403

170250

007606
007610

000000
000000

1701

007614

000000

1700 007612 000002

1705

SAVE OLD CONTENTS, SET UP FOR TRACE TRAP

YESTR:

MOV

14, YESTR1

;SAVE 0DT PC

MOV
CLR

JYESRT 14
16

NEU TRAP VECTOR
NEU CONDITION CODES

8IS

#20,aPSW

MOV

CLR
COM
BM]

171230
177740

}ggg 007602 000167 171366

1698
1699

000040

171214

JMP

16 YESTRZ2

aPsSV
TRP8
.+10

BEGIN

SAVE ODT STATUS

:SET TRACE TRAP

START OF TEST WITH TRACE ON
:STORAGE FOR 0DT PC
STORAG FOR ODT STATUS

YESTR1: 0
YESTR2: 0

REYURN TO PROGRAM FROM TRAP

YESRT: RTI]

HALT

RTI FAILED

1704

‘.ttttttttttttttttttttt'tttttttttttttttttQtttttttt'ttttttt'tttttt

1706
1707
1708

JINRRARAEANAREENEARANRRRCEENRNARATAAEATAAARRAARRCACRRANAENGCNRNAE

1705

1709
1710
1711
1712
1713
1714
1715
1716
1717
1718

1719

1720

1721

000000
000001
000002
000003
000004
000005
000006
000007
000007
000006

RO=20
R1=X1
R2=%X2
R3=%3
R4=%4
R5=%5
R6=%6
R7=%7
PC=X7
SP=X6

000001

60=1

000002

FNCT1=?2

BUS TO BUS TEST (DR11-8 TO DR11-B)

;OUTPUT MODE

SEQ 0031

CZDRBHO DR11-8/DA11-B NPR DIA
CZDRBH.P11
20-MAY-83 15:04

MACY1? 30(1046)

007616
007620
007622
007624
007626

000004
000000
000000
000000
000000

007706

004767
005067
012767
012767
012777
012777
005077
000425

s INPUT MODE
sINPUT DIRECTION
sINPUT INTR REQ

JBFLAG: 0
JBCNT' 0

JOB FLAG
:JOB COUNT

HOLDS ADDRESS OF ERROR INTERRUPT ROUTINE

HS1

177770

014210
000256
177752

010304
000000
000340
000100
171110

SEQ 0032

:# OF WORDS TRANSFERRED UNDER FLAG CONTROL PRIOR 70 NPR
*HOLDS ADDRESS OF READY INTERRUPT ROUTINE

000240
005067
012706

PAGE 33

NWRDXF: &
NEXJOB: 0

HASTER START

007630
007632
007636

sOUTPUT DIRECTION
;OUTPUT INTER REQ

FNCT2=4
FNCT3=10
XBA16=20
XBA17=40
1E=100
READY=200
CYCLE=400
DSTATA=1000
DSTATB=2000
DSTATC=4000
MAINT=10000
ATTN=20000
NEX=40000
ERROR=100000

100000

15:09

20-MAY-83

177740
177734
171122
171122

NOP

CLR
MoV
JSR
CLR
MOV
MoV
Mov
MOV
CLR

TR AN AN AN R L E

JBCNT
#8UFF ,R6
R?,SETVEC
JBFLAG
#JOBAO,NEXJOB
#0,NEXJOB+2
#340,3PSW
#1E ,8DRST
SPSW

BACKGD

L e

e A

Lt L L

RN ERANAN NN AR ACRAAAARACREA RO RN

sCLEAR JOB COUNT
sSETUP STACK
:SET UP INTERRUPT VECTORS
:CLEAR JOB FLAG
;DO JOBAO FIRST
:NO ERROR RECOVERY
:L0CK OUT INTERRUPTS
sSET INTERRUPT ENABLE
:DROP PRIOTIRY TO ZERO
:WAIT FOR JOBS IN BACKGROUND

::Qittttt.t.'...'tt'tt"'"'tttQ'Q".tt'ttt'lttit.tttt't'tttttttt

SLAVE START

§S1:

NOP
MOV

;:tttttttfit'tt't'.ttt.tQQtt.'it't't.'tt'tt'.."tt'tttitttttt..ttt

007710
007712
007716
007722
007726
007734
007742
007750
007756

000240
012706
004767
005067
012767

012767
012777
012777
005077

014210
000202
177676
010526
010544
000340
000100
171034

:SET UP INTERRUPT VECTORS

MoV

#SJ081,NEXJOB

;FOR READY INTERRUPT

MOV

#340, aPSw

RAISE CP PRIORITY TO 7

aPSW

:DROP CP PRIORITY TO O AND ENTER BACKGROUND

(LR

177664
177660
171046
171046

#BUFF ,R6

R7,SETVEC

JSR

MOV

MOV
CLR

JBFLAG

#5J082,"NEXJOB+2 FOR ERROR INTERRUPT
#1E.3DRST

;SET INTERRUPT ENABLE

.Qttttt"t"tttt'tttt'QtttQttt'tt.Q'ttitt't."ttlt."'ttififit't't

BACKGROUND PROGRAM; WAITS FOR JBFLAG TO SET

".Qtt't.'.t'ttt'QQ'tt"t"t'tltttt.'t.ttt't't.t"t'ttt...'t.t't

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY-83 15:04

MACY11 30(1046)

007762
007764
007766
007770
007772
007774
007776
010000

005200
005201
©U5202
005203
005204
005205
020005
001402

BACKGD: INC
INC
INC
INC
INC
INC
CMP
BEQ

1787

010004

000000

HALT

1791
1792

010014
010016

000000
020203

1788
1789
1790

1795
1794

010002

010006
010010
010012

010020
010022

104000

HLT

029104
001402
104000

CMP
BEQ
HLT

001402
104000

BEQ
HLT

000000

1798

010034

004567

000032

1800
1801

010044
010050

005067
016767

177552
177550

1803

010062

104400

1796
1797

1799

1802

1804
}ggg

010026
010032
010040
010056

010064
010070

005767
001753

005067

004567
000734

177542

167756

CLR

NEXJOB

000016

JMP

1820

1821

1822
1823
1824
1825
1826
1827

}ggg

010106
010110
010112
010114
010116
010120

010122

005726
012600
012601
012602
012603
012604

000205

R5 ,RESALL
BACKGD

b ddd
bbb bbdduiniiniainhbibdduiaidabh

EA NN ANRAARTRNCRAAERRARARAACACRNOCROOS

R4,=(R6)
R3,=(R6)
R2,=(R6)
R1,-(R6)
RO, =(R6)

MOV
Mov

1818

1819

sTRAP THROUGH JBFLAG AT 3¢

EANATANRARN RO

}g}g 010104 000115

0106146
010046

JBFLAG

SUBROUTINE TO PUSH ALL REGISTERS ONTO THE STA(K

SAVALL: MOV
MOV
MOV

010100
010102

sYES € EXECUTE JOB WHOSE ADDRESS IS IN JBFLAG

A LI R L ST TR A2 2 2L L L

010446
010346
010246

1814
1815

sANY J0BS?
:BRANCH IF NONE

NEXJ0B+2
34
JBFLAG,

JSR
BR

;BACKGROUND TEST FAILED

R5,SAVALL

TRAP

1809
1810

010072
010074
010076

JBFLAG
BACKGD

CLR

R T T

1811
1812
1813

TST
BEQ

CLR
MoV

1807

1808

JSR

177554

;BACKGROUND TEST FAILED

R2,R3

HALT

177572

SEQ 0033

;BACKGROUND TEST FAILED

R1,R4
.+

HALT
CMP

010026

1795

PAGE 34

RO
R1
R2
R3
R4
R5
RO,R5
.+6

1778
1779
1780
1781
1782
1783
1784
1785
1786

15:09

20-MAY-83

:R5 WAS PUSHED B8Y JSR

;RS HOLDS RETURN ADDRESS

(RS)

I R

I A R L

L e

L L

bbbl Al b
bbblhdbdnibiehdiinbihhhhbb

SUBROUTINE TO POP ALL REGISTERS OFF THE STA(K
e L LA

R A

e Al a Al iill

(R6)+
(R6)+,RO
(R6)+,R1
(R6)+,R2
(R6)+,R3
(R6)+ R&
R5

RESALL: TST
MoV
Mov
MoV
Mov
MOV

RTS

1830

JIUNANANAAAREAARERAAARARAERNERARANAEARATCACARAOCNEELRORARRRAGCNCS

1832

1831

1833

ROUTINE TO SET UP INTERRUPT VECTORS
e

L R

R I R

A ALl iiadl

CZDRBHO DR11-B/DA11-B NPR DIA

CZORBH.P11

20-MAY~83 15:04

1834
1835

010124
010130

016700
012720

170704
010204

1837

010140

012767

011506

1836

010134

016710

170672

SETVEC: MOV
MOV

MoV

167662

1839

1842
1843
1844
1845
1846
1847

1848

010154

005067

010170
010172
010174
010176
010200
(10202

005001
005002
005003
005004
005005
000207

010160
010166

016767
005000

167654

170646

1849
1850
1851
1852

010204

005767

1855

010212

104000

1854

010210

1856
1857
1858

010214
010216
010224

1861

010234

1859
1860
1862

1863
1864

010226
010232

001402

000000
032777
001411

005767
001002

000000

010246

000002

0102640

105777
100402

170550

177332

010250
010254

1868
1869
1870

010260
010262
010266

000000
005767
001002

1872
1873

010272
010274

000000
016767

1871

sE3zases

BEEISINS

1874

1883
1884

010256

010270

010302

DRINO:

TST

BEQ

177356

HALT
BIT
BEQ

HALT

I e S L

A L LR LA L

JBFLAG

sHAS THE PREVIOUS INTERRUPT BEEN SERVICED?

#DSTATC,8DRST
DRIN3

:NO
;CHECK FOR ERROR
sBRANCH IF NO ERROR

NEXJOB+2
DRIN1

;1S THERE AN ERROR SERVICE ROUTINE?
;BRANCH [F THERE IS.
sERROR INTERRUPT, NO ERROR SERVICE.

T1STB
8MI]

aDRST
DRIN2

s CHECK READY
;BRANCH IF SET

HALT
TST
BNE

NEXJ08
.+6

: INTERRUPT WITHOUT ERROR OR READY
21S THERE A READY SERVICE ROUTINE
;BRANCH IF THERE 1IS.

NEXJOB,JBFLAG

sREADY INTERRUPT, NO READY SERVICE
;SET UP JOBFLAG WITH SERVICE ROUTINE ADDRESS

RTI

DRINZ2:

HALT
MOV

177322

RTI

TR RN

Se 1322222222222

J0BAO:

ERA NN

AR AR

RARARCE R R R RO ARANNANONEE

MASTER'S INTERRUPT SERVICE ROUTINES
ROUTINE A, SEGMENT 0
FILL BUFFER AND TRANSMIT

MOV

010304

012700

010314
010316

012021
012002

MOV
MOV

010322
010324
010326

005402
006302
060241

NEG
ASL
ADD

1889 010330 005010

DRIN3:

011450

NEXJOB+2,JBFLAG ;SET UP JOBFLAG WITH ADDRESS OF SERVICE ROUTINE

HLT

010310 012701 011462

MOV
HLT

177320

DRIN1:

104000

000002

DRINO

TST
BNE

104000

1885 010320 010211
1886
1887
1888

PRIMARY INTERRUPT SERVICE ROUTINE.
SETS UP JBLFAG WITH ADDRESS OF JOB TO BE RUNSTARS

HLT

177356

sSET UP TRAP ADDRESS
sINITIALIZE REGISTERS

AL LA L
k
b AL LI
L L bbbt

177370

016767

1865
1866
1867

170600

sSET UP EMT PRIORITY LEVEL

L T

104000

010236

R1
R2
R3
Ré
RS
R?

HLT

004000

sSET UP EMT ADDRESS

DRINS:

177414

#PRINT 30

sPUT PRIORITY INTO VECTOR+2

DRINL , 36
RO

CLR
CLR
CLR
CLR
CLR
RTS

:
:

1853

;RO IS VECTOR ADDRRSS
sPUT SERVICE ADDRESS INTO VECTOR

CLR

MOV
CLR

SEQ 0034

DRINV,RO
#DRINS, (RO) ¢

DRINL, $2

MOV

167650

PAGE 35

15:09

DRINL , (RO)

MOV

1838 010146 016767 170660 167656
1840
1841

20-MAY-83

MACY11 30(1046)

1222332222223 2283322332

3 3230000002 Rdliaddddld)

#LISTA,RO

;RO IS XMIT LIST ADDRESS

(RO)+, (R1)+
(RO) +.R2

*START WITH BUS ADDRESSES EQUAL
*R2 HOLDS WORD COUNT OF XMIT

MOV

sLISTAT, R

MOV

R2, (R1)

CLR

(rO)

R2
R2
R2,~(R1)

SLISTA! WILL BE REC LIST

‘MAKE REC WORD COUNT THE SAME

‘MAKE WORD COUNT POSITIVE
*TRANSFORM INTO BYTE COUNT
*ADD TO REC BUS ADDRESS

‘CLEAR OFFSET IN XMIT LIST

CZORBHO DR11-B/DA11~8 NPR DIA
20-MAY-83 15:04
CZDRBH.P11

1892
1893
1894
1895
1896
1397
1898
1899

010334
010342
010344
010350
010352
010360
010364
010370

022767
003010
105737
100375
012737
005067
004767
012700
23O
(RS1, P
NN

012767
oo

coco

000002

coo

010414

010400

000100

177264

000207
177242
000704
011450
000370
010416
000000

927
928
929
930
931

CMP

#100, JBCNT

SEQ 0035

;LEAVE RO=LISTA=XMIT LIST
;ENOUGH PASSES FOR BELL?

JOBADA

‘BRANCH IF NOT ENOUGH

BPL
MOV
CLR

JOBAOB
#207,34177566
JBCNT

;RING BELL
sRESET JOB COUNT

MOV
JSR
MoV
MOV

#LISTA,RO
R7 ,MXMIT
#JOBA1,NEXJOB
#0,NEXJOB+2

sTTY READY?

177564

;FILL UP XMIT BUFFER WITH SPECIAL BINARY COUNT

R7,SETBUF

JOBAQOA: JSR
177212
177206

PAGE 36

<(R0) ,=(RO)

BGT

177566

15:09

CMP
JOBAOB: TSTB

177564

RTI

sTRANSMIT DATA TO SLAVE
;JOBA1 IS NEXT
:NO ERROR RECOVERY

SRETURN TO BACKGROUND VIA TRAP

32 2222232222222 2323332322228 222 22 20

ROUTINE A, SEGMENT 1

;

R ddlddiadiiliiiidilddd)

FLUSH A BUFFER AND RECEIVE DATA

;

':t'ttttttttt'tttttttttt'tttttttitttttfit.tt.tttt.tttt'tt'tttttt't

-—b

(=]

010416
010422
010426
010632
010436
010444

012700
004767
012700
004767
012767
012767
000002

011462
000574
011462
000406
010454
000000

JOBA1:
177154
177150

;PUT REC LIST ADDRESS INTO RO

#LISTAY RO

MOV

sFLUSH BUFFER

R7 ,FLUSH
#LISTA1,RO
R7 ,MREC
#JOBA2,NEXJOB
#0,NEXJOB+2

JSR
MOV
JSR
MoV
:?Y

R RN

I AN

sRECEIVE DATA FRCM SLAVE
;JOBA2 IS NEXT
;NO ERROR RECOVERY
AR

TR AR

RAIARRT R

:
:

ROUTINE A, SEGMENT 2
CHECKS TRANSMITTED DATA WITH RECEIVED

JOBA2:

MOV

ARNRNAR AR

O RN

::t"ttttttttttttttttttQ'ttti.ttttttttttttfitttt.tttttttit'tt'tttt

010476
010504
010512
010520
010524

~N~N

~NON

012700
012701

EECD
R

f;&~
S¥

—b

010454
010460
QO

b
b
b ad cd

b = -—bd
D d
D d cnd
b
b
D d
b
b b e
b e

V00
b =D b ek b b cd b ed b
NN PINININ)
[« JV.) S WA =C VO NOWNDWN=2000~N

024040

&H
&N
ooN

010332

§8§888§

}gg?

MACY11 30(1046)

20-MAY-83

012777
012767
012767
005267
000002

011450
011462

#LISTAT,RY

MOV

#1€.3DRST

MOV
£¥§

#0,NEXJOB+2
JBCNT

JSR
BIC

000652
000100
000100
010304
000000
177102

MOV

:XMIT BUFFER LIST

#LISTA, RO

MOV

*REC BUFFER LIST

‘COMPARE THE TWO BUFFERS
*GLITCH INTERRUPT

R7,BUF CHK
#1€,30RST

#JOBAO,NEXJOR

X 2222232223233

;REPEAT JOBAO
:ADVANCE COUNT

3222232322302 22023020

SLAVE'S INTERRUPT SERVICE ROUTINES

’

0 302 adidd0ddiiiididdd]

JOB1:

IGNORE FIRST READY INTERRUPT

MOV

#0,NEXJOB

::tttttttttttttttttlttt""t'tttQtttttttttitttlt'ttttttt"tt'tt.'

939
940
1941

010526
010534
010542

012767
012767
000002

000000
010544

177064
177060

SJoB1:

g?y

AR RAAAA NN AN AN RN RN AR RN

JOB2:

sNO _MORE READY INTERRUPTS

#SJ0B2,NEXJOB+2 ;UNTIL ATTN INTERRUPT

OR
RS ERRACACAER
CRR A AR AEERACAANRNRAOAARR

WAIT FOR COMMAND

NRACORNRANRERRSY
ANNRA
ANRAERARAANCANCA
RRANE
AN O AARRN RN
c cRRANRANAN

CZDRBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:06

CZORBH.P11

010544
010552

032777
001002

004000

MACY11 30(1046)

170252

SJ0B2:

104000

000000
005001
016702
012703
012704
016705

010702
010710
010716

010724
010732

BNE
HLT
HALT

JSR

MOV
MOV
ADD
MOV
MOV

002000

170154

000400

170144

011474
000356
000004
000400
000101
010526
010544

BIT

MOV
MOV
MOV
MOV
MOV

011476
000122
011474
000004
170214
170170
170162

170162

20-MAY-83

SJOB2A: (LR

170236
000010
004000
170224

15:09

CLR
BIT
8eQ
$J0828: BIT
BEQ
BR

K 3
PAGE 37

NDSTATC ,3DRST

sTEST FOR INTER

:ERROR OTHER THAN DSTAT(
:SET UP FOR PARAMETERS

SJ0B2A

DRST,R2

#FENCT3,R3

ODSTATC R4

DRDB,RS

#LISTB+2,R0
R7, HNDSHK
ILISTB RO

:GET PARAMETERS

;RO IS TOP OF LIST

:MOVE OFFSET TO TOP

$J082¢C

:BRANCH IF RECIEVE (LEAVE FNCT1 CLEAR FOR DATI'S)

(RO) +,8DRBA
(RO)+,3DRUWC
aDRST
#DSTATB,3DRST
#CYCLE ,8DRST

$J0828
$J082D

#LISTB,RO
R7 ,BLUSH

SJ082D: BIS

#CYCLE ,SDRST
#1E!GO,aDRST
#5J081,NEXJOB

MOV
MoV
RTI

:STORE PARAMETERS HERE STARTING WITH WORD COUNT

4(RO), (RO)
INBUF.(RO)

$J0B2C: MoV
JSR
BIS
BIC

:R2 IS STATUS ADDRESS
:R3 IS FUNCTION BIT 3
:R4 IS INTERUPT BIT
RS IS DATA BUFFER ADDRESS

#FNCT2,@DRST

#5J082,NEXJ08+2

:TOP OF LIST IS BUFFER START + OFFSET
:SET UP BUS ADDRESS
:SET UP WORD COUNT
;CLEAR ALL FUNCTION BITS
;WHICH DIRECTION

sWAIT FOR MASTER TO SET CYCLE
:BRANCH IF NOT SET
;GO DO THE COMAND

sBLUSH THE BUFFER
sSET FNCT2 FOR DATO'S
$CLEAR CYCLE
:EXECUTE COMMAND AND INTERRUPT WHEN DONE
s IGNORE READY INTERRUPT
;WAIT FOR ATTN INTERRUPT

::ttttttttttttttttt'tfitt't'tttttttt.t'ittiaQtfiltttttttttttttttttt

SLAVE ROUTINE TO ACCEPT PARAMETERS FROM MASTER

::tttitttttttttttttttttttttttttt.tttttlttttttttttttltttttt'tttttt

010734
010736
010740
010742
010744
010746
010750
010752
010756
010760
010762
010764
010766

HNDSHK: MOV
MO
8

HNDSH1: BIT

(R5), (R5)
(R5),(RO)+
R3, (R2)
R4, (R2)
HNDSH1
R3,(R2)
R1

;ECHO PARAMETER
:STORE PARAMETER

H?DSHZ

sBRANCH IF NOT DONE YET

R4, (R2)
HNDSH?2

sWAIT FOR NEXT WORD
sBRANCH IF ATTN CLEAR
sGET ANOTHER PARAMETER

R1,NWRDXF

176640

HNDSH2: BIT

HNDSHK

000762

R 2222222282222

:REPLY WITH FNCT3

:WAIT FOR ATTN TO DROP

;DROP FNCT3

s CHECK NUMBER

2222282222220 2303220 20303 0RddRiRRRdRdRdidddd)

MASTER TRANSMIT ROUTINE

ENTER WITH TRANSFER LIST IN RO

't't.ttttttttttttttttttttttttfittittittttttttttt'ttttfitttttttt't

010770

005777

170030

MXMIT:

TST

aDRST

;MAKE SURE ERROR IS CLEAR

SEQ 0036

CZORBHO DR11-8/DA11-8 NPR DIA

CZDRBH.P11
2002

2003

20-MAY=-83 15:04

010774

010776

000000

2008

011012

000000

011002
011006
011010

HLT

104000

011000

105777
100402
104000

HALT

170016

2009 011014 012777

000000

170002

042777
052777

000400
000101

167770
167762

2010 011022 004767 000102
2011
2012

gg}z

011026
011034
011042

000207

BIC
8IS

JSR
RTS

2018

100002

2020

2022
2023
2024

011054
011056
011062

000000
105777
100402

2026

011066

000000

2021

2025

2027

011052

011064

011070

MREC1:

012777

000004

167726

MREC2:

002000

167714

MREC3:

011102
011110
011112

032777
001374
042777

gggz

011126

000207

000400

2032 011120 052777 000101

167704

TST

ERRR

RN RN ARREAREARAREANEAACARARONEANCRRES

aDRST

MREC1

HALT
TSTB
8M]

aDRST
MREC2

HALT

:MAKE SURE ERROR IS CLEAR
AND READY SET.
JERROR SET

;READY CLEAR

MOV

#FNCT2,3DRST

SET UP FUNCTION FOR DATO'S

BIT
BNE
8IC

#DSTATB,aDRST
MREC3
#CYCLE ,aDRST

UAIT FOR SLAVE TO CLEAR DIRECTION
BRANCH IF SET
:CLEAR CYCLE

RTS

JSR

BIS

167676

HAKE SURE CYCLE IS CLEAR
EXECUTE COMMAND AND INTERRUPT WHEN DONE

#CYCLE ,aDRST
#1E'!GO,8DRST

B8PL

HLT

104000

2028 011076 004767 000026

TRANSFER PARAMETERS OF LIST WHOSE ADDRESS IS IN RO

MASTER RECEIVE ROUTINE

HLT

167742

SET UP FUNCTION FOR DATI'S

R7 ,PRMXFR

I T RT I AT 23 ST A A 12 DT L2 1 L hhbddinahiiiniinbiiniiiuididuiububaidedd

104000

2029
2030
2031

RAR AR

:READY NOT SET

ENTER WITH TRANSFER LIST IN RO

MREC:

2019 011044 005777 167754

JERROR IS SET

#0,3DRST

HALT

R7 ,PRMXFR

#1E!GO,aDRST

TRANSFER PARAMETERS OF LIST WHOSE ADDRESS IS IN RO

EXECUTE COMMAND AND INTERRUPT WHEN DONE.

2035

JIRARRNARAARRRRAR RN ERAAR RN RRANNNRRRAARRAAAAARARAARERCRRNRRANCOOAR

2038

AR
TAASERRRE
ARAA
RRANARNAAANAAARREA
ENAA
A RO RRAAARAAA
AR AARA
IRRNARAE

:
:

2036
2037
2039

2040

011130

012077

2049
2050

011166
011170

030412
001776

2041
2042
2043
2044
2045
2046
2047
2048
<051

011134
011140
011142
011146
011152
011156
011162
011164

011172

011077
005001
016702
012703
012706
016705
011015
050312

022015

167666

167660
167656
000010
004000
167644

ROUTINE TO TRANSFER AND CHECK PARAMETERS UNDER FLAG CONTROL
ENTER WITH RO POINTING TO TRANSFER LIST

PRMXFR: MOV

MOV
CLR
MOV
MOV
MOV
MOV
PRMXF1: MOV
8IS

PRMXF2: BIT
BEQ

CMP

(R0O)+ ,aDRBA

FIRST WORD IN LIST IS ADDRESS

R4, (R2)
PRNXFZ

UAIT FOR REPLY
BRANCN IF ATTN CLEAR

(RO) ,aDRWC
R1
DRST,R2
#FNCT3 R3
#DSTATC R4
DRDB,RS
(RO), (RS)
R3, (R2)
(RO)+,(RS)

2052 011174 001402

BEQ

PRMXF $

000000
040312
030412
001376

HALT
PRMXF3: BIC
PRMXF&4: BIT
BNE

R3,(R2)
Ré4, (R2)
PRMXF &

2053

2054
2055
2056
2057

011176

011200
011202
011204
011206

104000

SEQ 0037

:AND READY IS SET

MXMIT2: MOV

2017

L 3
PAGE 38

MXMIT1
aDRST
MXM]IT?

2016

15:09

MXMIT1: TSTB
8Ml
HLT

2018

011050

20~MAY-83

8PL

100002

2004

2005
2006
2007

MACY11 30(1046)

HLT

SECOND WORD IN LIST IS WORD COUNT
R1 COUNTS PARAMETERS TRANSFERRED
RZ IS THE STATUS ADDRESS
R3 USED FOR FUNCTION BIT 3
R4 USED FOR INTERUPT BIT
RS IS THE DATA BUFFER ADDRESS
SET uP DRDB WITH PARAMETER
CALL SLAVE'S ATIN
:COMPARE PARAMETER SENT WITH SLAVE'S ECHO

;BRANCH IF EQUAL

;PARAMETER DID NOT ECHO
DROP SLAVE'S ATIN
UAlT FOR REPLY
BRANCH IF ATTN SET

CZDRBHO DR11-8/DA11-8 NPR DIA

CZDRBH.P11
2058
2059
2060

20-MAY-83 15:04

011210
011212
011216

005201
020167
002761

2071

gg;%

011222
011224
011230
011234

011236

005005
004767
004767
002775

INC
(MP
BLY

RTS

15:09

000030
000004

CLR
JSR
FLUSH1: JSR

FLUSH:

BLT .

000436

;SET RS 10 Z21P
JSET UP REGISTERS
;STORE ITEM IN BUFFER

BUFOUT

;STOP WHEN BUFFER FULL
:PUT RS INTO BUFFER
s INCLUDE IN CHECKSUM

FLUSH1

2080

2083

PR L

2081
2082

2087

2088
2089
2090
2091
2092
5832

011260
011262
011264
011266
011270
011272

012001
012002
005720
005003
005004
000207

177777

ROUTINE TO FILL BUFFER WITH ALL ONE'S
ENTER WITH RO POINTING TO TRANSFER LIST

BLUSH:

MOV
BR

2097

;MOVE PATTERN ONE BIT
;sPOSITION TO THE LEFT

011330

103763

BCS

010320
010420

BUFOUT: MOV
Mov

011332

000764

A R LA Ll

;COMPLEMENT OF NUMBER TO BUFFER

2110

011334
011336

L A A

R7 ,BUFPUT

005105
000241

2111

e e

JSR

011322
011324

006105

177720

2107
2108

2112
2113

T e

177730

004767

011326

bbbt

;SET UP REGISTERS
sSET UP RS WITH START PATTERN
sNUMBER TO BUFFER

011314

002005

R? ,BSETUP
#1,R5

2105

2109

R4
R7

SETBUF: JSR
SETBF1: MOV
SETBF2: JSR

177760
000001

011320

sR1 IS BUS ADDRESS
sR2 IS WORD COUNT
;SKIP OVER OFFSET
sCLEAR LOW CHECKSUM
sCLEAR HIGH CHECKSUM
sRETURN

ROUTINE TO FILL BUFFER WITH FLOATING 1°'S AND FLOATING 0°'S PATTERN

004767
012705
004767

2106

SSET RS TO ALL ONE'S

ENTER WITH RO POINTING TO TRANSFER LIST

011274
011300
011306

002011
005105

LA L

LA A L L
il b i libbeiniuinbindnibitabbb

L LA Ll AL L Ll AL L

2100
2101
2102

011310
011312

R L

(RO)+,R1
(R0O) +,R2
(RO) +
R3

2098

2103
2104

#-1,R5
FLUSH+2

sREGISTER SETUP ROUTINE

B8S° "UP: MOV
MOV
TST
CLR
CLR
RTS

2096

e hibibbikbbbb b b LA L AL

L T
L

sADVANCE WORD COUNT
cRETURN WITH STATUS SET

N
:

2095

2099

JRETURN WHEN ALL PARAMETERS TRANSFERRED AND CHECKED.

RS
R7 ,BSETUP
R? ,BUFPUT

R5,(R1)+
R5,R3
Ré4
R2
R?

012705
000762

SEQ 0038

sADVANCE PARAMETER COUNT
sALL PARAMETER XFERRED?
;BRANCH IF NOT DONE

BUFPUT: MOV
ADD
ADC
INC
RTS

011252
011256

PAGE 39

R1
R1,NWRDXF
PRMXF1

20764 011240 010521
2075 011242 060503
2076 011244 005504
2077 011246 005202
%8;8 011250 000207

2084
gggg

ARRAR NN T EAANRER AN ATANRO R RS
AN AR AR NN
SRR
ROUTINE TO CLEAR BUFFER
:
ENTER WITH RO POINTING TO TRANSFER LIST
.
L L LA L e LA A el
e T
e T e
Py e

20063
2064
2065
2066

2067

MACY11 30(1046)

176400

%82} 011220 000207

2068
2069
2070

20-MAY-83

8GE
COM

R7 ,BUFPUT
BUFOUT
RS

8GE

BUFOL'T

ROL

COM
CLC

SETBF1

:IF CARRY SET, START PATTERN OVER

R3,(RO)+
R4, (RO) ¢+

sMOVE LOW CHECK TO LISY
sMOVE HIGH CHECK TO LIST

SETBF2

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11
%}}g

20-MAY-83 15:064

011340

RTS

000207
:
:

2117
2118

2119

2125
2126
2127
2128
2129
2130
2131
2132

011352 012600
011356 012001
011356 012002
011360 012600
011362 012003
011364 020220
011366 003402
011370 104000
011372

90000

MoV
MOV
MoV
MOV
MOV
CMP
BLE
HLY

2135

011374

022123

BUFCK1: CMP

2137
2138
2139
%}2?

011400
011402
011404
011406

104000
905202
002773
000207

HLT
BUFCK2: INC
BLT
RTS

%}gz

ERA

JSR

BEQ

#2 CHECKED FOR PROPER CHECKSUM

NS
E R RN NANAA AT NANTONEAAACRONRNRANCRNENO

RO,=(R6)
R1.-(R6)

sSAVE LISTH2 ON STACK
sSAVE LIST#1 ON STACK

R7,CHKSUM

;VERIFY INTEGRITY OF CHECK BUFFER (#2)

(R1)+,(R3)+

:COMPARE BUFFERS

R?2
BuF (K1
R7

:DATA ERROR
sADVANCE COUNT
sBRANCH IF NOT DONE
SRETURN; STACK IS CLEAR

(R6)+,RO
(RO) +,R1
(RO)+,R2
(R6)+,RO
(RO)+,R3
R2,(RO)+
BUF (K1

HALT

2136 011376 001401

SEQ 0039

EAN RN AR AR AAATARARRAREANOERTERCENONS

BUFFER LIST #2 IS IN RO.

BUFCHK: MOV
MOV

2124 011346 004767 000036

PAGE 40
sRETURN

NN AT AR EA R

011342
0113446

ROUTINE TO COMPARE TWO BUFFERS
BUFFER LIST #1 IS IN R1

010046
010146

2122
2123

15:09

JIRNNAARRANREARN AR

2116

2120
2121

MACY11 30(1046)

20-MAY-83

BUF(K2

;RECOVER 1ST LIST POINTER
:BUS ADDRESS #1
sWORD COUNT #1
sRECOVER 2ND LIST POINTER
:BUS ADDRESS #2
; COMPARE WORD COUNTS
;BRANCH IF EQUAL OR LESS THAN
;BUFFER 2 IS LONGER THAN 1

2142

RS
RNEAARAN R
NER
EAARARRE
REA
AANCRARE
ANN
RN RRANRAAA
AR ATANA
IINATAARA

2145

DINERRNEANRAA RN

:
:

2143
2144
2146
2147
21648
2149

011410
011414
011420
011422

004767
004767
002775
020320

2151

011426

020420

2150

2152
2153

g}gg

011424

011430
011432

011434

001003

001001
000207

177644
000016

ROUTINE TO CHECK SUM OF BUFFER
ENTER WITH RO POINTING TO TRANSFER LIST

CHKSUM: JSR
CHKSM1: JSR
BLY
CMP

R7 ,BSETUP
R7,GETBUF
CHKSM1
R3,(RO)+

sSET UP REGISTERS
;GET ITEM FROM BUFFER
;BRANCH IF NOT DONE
:COMPARE LOW ORDER CHECKS

CMP

R4, (RO)+

;COMPARE HIGH ORDER CHECKS

BNE

BNE
RTS

10400V

CHKSM2: HLT

2156
2157
2158
2159

011436
011440
011442
011444

012105
060503
005504
005202

GETBUF: MOv
ADD
AD(C
INC

2162
2163
2164
2165
S}gg

011450
011452
011454
011456
011460

014212
177605
000000
000000
000000

LISTA

2168
2169

011462
011464

000000
000000

LISTAY: 0
0

5}2?

011446

000207

AAR RIS EARARRRRANRRRAAAARAAARREAARRREAARRECARY

RTS

XINBUF
=123.
0
0
0.

CHKSM2

CHKSM2
R7

(R1)+,RS5
R5,R3
R4
R2
R7

;RETURN IF CHECKSUM OK.

;ORIGINAL BUFFER CHECKSUM DOES NOT AGREE WITH PRESENT
;GET ITEM OUT OF BUFFER
<ADD TO CHECKSUM
sADVANCE WORD COUNT

sSTART OF XMIT BUFFER
sWORD COUNT
sOFFSET
s CHECKSUM LOW
< CHECKSUM HIGH
:START OF REC BUFFER
sWORD COUNT

LISTB:

014212
000000
000000
000000
000000

D wd

20-MAY-83

MACY11 30(1046)

000000
000000
000000

elolelele Nelele]

one

Vol o e N o X e XVoX o Vo Vol Yo To Yo To To To To 1o 1o Butlnl
i) NN~

LSLSLSLNTNT ST NTNT NI NTSTNINTNT ST NN LS VI SN L8 LS L) N
-

CZORBHO DR11-8/DA11-8B NPR DIA
20-MAY~83 15:04
CZDRBH.P11

8 4
PAGE 41

15:09

SEQ 0040

0
0
0

sOFFSET
s CHECKSUM LOW
s CHECKSUM HIGH

SINBUF

sSLAVE'S ECHO BUFFER

0
0
0

b b =D

SRR

AR AT

TR AR

L AN

R R AR ARRAT N

:
:

ENTERED WITH SYSTEM TRAP CALL(HLT)
PRINT OUT THE ERROR PC AND STATUS REGISTER

PRINT:

JSR

R T

e e L

L L A L AL A At

IV WY

020000

000204
000202

VAV VTV

NVNN}OOONN&O\AV‘%%WWNN-‘—'OSVNOO\n\nbbwwmmm—lg
SO OREFOTOSOHOONSIO “"NOOSONOHNOONSNIONON

000672
167276

000215
167316

167324

000212

167310

OO0 OO\ O\ O\ O\ VYWY

000134
000132
000130
000126
000126
000240

167302

b b b

OOOO0O0O0O0O00O0O0OO0OO00O000
b ad b b b b ad b D b b b b

004767
037727
001067
012667

b amd b b and b cud b b b b
b b b d b ) e b e b b

167242

000104
000102
000240

167216

NNNOOrOONON

b e

~
w
~N

=4
N
(%]

NN
=2

b d i mnd md od
b b ol o

a8TPS

BPL

1%:

8TPS

sLINE FEED

sSAVE R2
:SAVE R3
sSAVE Ré

gg{fl

BTES

sSPACE BETWEEN WORDS

SAVCC,X2
%7,PRTAB
#240,3TPB

sPRINT OCTAL NUMBER
sPRINT SPACE

MOV
JSR
MOV
TST8
BPL
Mov
JSR
MOV
MOV
MoV
JSR
gg{

CMP
BNE
HALT

SAVR2:

=4
#212,31P8

:CR

%2,SAVR2
X3,SAVR3
X4, SAVRS
SAVP(,%2
X7 ,PRTAB

HALT

000046

#215,37PB

sTEST FOR INHIBIT PRINT QUT
sIF SO, BRANCH OVER PRINT
sPC OF FAILING ROUTINE
sCC OF ERROR CONDITION
sREPOSITION THE STACK

MOV
MOV
Mov
MOV
JSR

Mov

167224

000056
000040
000036
000034
000504
167110

000000

TST8
1ST8

167150

000042

8IT
BNE
MOV
MOV
CMp
BPL
MOV

167250

%7,CKSWR

@SR, #20000
1$
(6)+,SAVPC
(6)+,SAVCC
=(6),=(6)

MoV

bb
b ud
b end
b
d
b and cnd cub
b
b

2199

OO0

b amd e

b and aub cnd ard b and end b

b and

RT]

#240,3TP8

8TPS

.~4
8DRST, X2
X7,PRTAB
%2
SAVR?2,
SAVR3,%3
X4
SAVRG,
X7,CKSWR

352
ot

INe2, aneb
.th

;PRINT OCTAL NUMBER

sPRINTER DONE

:BRANCH WHEN NOT DONE
;GET DR11B STATUS
sPRINT OCTAL NUMBER

sCHECK SR FOR HALT SWITCH
sHALT ON ERROR UP IN SWR

sARE WE IN ACT11 AUTO MODE?
¢BRANCH ON NO
sHALT ON ERROR IF IN ACT11 AUTO MODE
sRETURN TO MAINLINE

(elalolelelelelalelelol Nolelole]
-—d ed b ad d i d b ) b i aub
- aad b aud

SAVR3:

SAVRG:

SAVP(:
SAVCC:

PRTAB:

167104
000236
000220
000214

167056

012777

000260

167044

012777
016703
010267
005167
046703

000261
000156
000150
000144
000140

167034

066767
005267
026703

000136
000134
000126

000136

062767
016724
066767
005067
005057
005367

000260
000114
000102
000100
000076
000074

000120

012703
066767

000003
000052

014477
005367

166674
000026

MINUS:
START:

MKNUM:

105777

000000

166656

CLR
CLR
MOV

BINCT
WGTCT
X6
#LIST,

MoV
1ST8

#1,DECML
aTPS

BPL
TST
BMI
MOV
B8R
MoV
MOV
MoV
COM
8IC
8EQ
ADD
INC

CMP

WRTOC:

000102

000050

000044

:
MOADD

XLIST:

WAIT?:

000005
166790

012767
105777

WAIT1:

HDFHM:
TOODLE:
SEVEN:
DECML:
WoT(CT:
BINCT:
ASCNT:

15:09

SEQ 0041

0
0
0
0

8Ic8
MoV
MoV

SNN-‘
SENOOSLNNORNVNOCONOASONO O

PN
webd b b

NN &
NN
=000 VN OO

000260

5777

o
(=
(=]

ONOSHOSON

005067

b md
b
b

(V]

b oh o

o
o

N
L]

N
N
~

MACY11 30(1046)

000000

[=leleleleloelelelelelelalalela]) [elelelelelelelelalel]

CZDRBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:0¢4
CZDRBH.P11

20-MAY-83

BNE

ADD
MOV
ADD
CLR
CLR
DEC
BEQ
MOV
ADD
DEC
BNE

#177,8TPS
#5 ,ASCNT
#7,SEVEN
WAIT1
%2
MINUS
#260,3TPB
START
#261,37P8
SEVEN,X3
X2,TOODLE
TOODLE
TOODLE X3

WRTOC
DECML ,WGTCT
BINCT

WGTCT,%3
MKNUM

#260,BINCT
BINCT, (4)+
SEVEN,DECML
WGTCT
BINCT
ASCNT
XLIST
#3,%3
SEVEN,SEVEN
13
MOADD

MOV
1ST8

START
#5,ASCNT
aTPS

MoV
DEC
BEQ

=(4) ,3TPB
ASCNT
HDF HM

BPL

B8R

sPUT MASK IN R3
:GET READY TO DOODLE NUMBER IN TOODLE
s COMPENSATES FOR COMPLEMENT DURING BIC
sAND IN OCTAL CHARACTER

;ZERO, WRITE O IN LIST
sCOUNT UP TO
sAND RECORD
sSAME BINARY WEIGHT
sKEEP COUNTN
sADD ASCI1 PREFIX

SWRITE ASCII CHAR IN LIST
:EXPAND BINARY WEIGHT
:5 CHAR IN LIST
:SET X3 FOR ADD LOOP
sMAKING SEVENTY BY SEVEN
sNX SEVEN SET GET NX OCTAL

sSEND 5 CHAR TO TTY

WAIT?

WAIT2

1ST8 aTPS
PL
.=b

RTS

IST _ADDRESS

NT FLAG

1 74

sFINISH PRINTING GET NXT NUM

sHEAD FOR HOME

CZORBHO DR11-B/DA11-B NPR DIA
20-MAY-8 3 15:04
CZORBH.P11

MACY11 30(1046)
LIST:

000000
000000
000000
000000
000000

2282
%283

20-MAY-83

15:09

PAGE 43

0
0

.'tttttttttt'tttt'!ttttt"Ititt'ttttfitt.ttQttt'tttt.tt'ttt'ttttt'

SCOPE LOOP ROUTINE ENTERED BY USER TRAP

..ttttittttt."'tttttQ'QQt"ttttttt'tttt.tttttttittttit'ttt'ttttt

012240
012244
012252
012254
012260
012262
012264
012270

004767
032777
001003
011667
000002
022606
012677
000177

000140
040000

166542

000106

SCOPEA: JSR

BIT

BNE
MOV

RTI
SCOPEB: (CMP
MOV

166526
000072

JMP

%7, CKSWR

#40000,asR

SCOPEB
3%6,RETURN

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

(6)+,%26

;RETURN IN SEQUENCE
;REPOSITION THE STACK

SRETURN

:SCOPE RETURN

(6)+,aPSW

..ttttttl.tttttfittQt.ttt'ttttttt'tfitittt'ttt'tt'ttt'ttttttt.tttti

SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES

;

..tttt'Qit'ttttttt'tt.tt't'ittttttti.ttttttttttltttitti'ttttttt't

012274

004767

000104
040000

166506

SCOPEC: JSR

000062
004000

166464

000026

000022

012370

000167

JSR

BIT

BNE
CMP
BEQ

INC

RTI
ICOUNT: 4000
SCOPEF: 0
RETUPN: agséz
JMP

165604

H
012374
012376
012400
012402

000000
000000
000000
000000

012404

022767

PASCNT

B8R
SCOPEG: CLR
MOV

000010
000006

001174

BEQ

000016

012364
012366

#40000, 3SR

BNE

166560

17, CKSWR

BIT

SCOPEB

;TEST SR FOR SCOPE
SFIRST PASS (PASCNT=0) ?
*YES SCOPE

‘BR IF YES, INHIBiT ITERATIONS

SCOPEG

X7, CKSWR

04600 asR

;TEST FOR ITERATION

SCOPEF

* INCREMENT COUNT

SCOPEG
SCOPEF, 1COUNT
SCOPEG

SCOPEB
SCOPEF
3%6.,RETURN

*INHIBIT ITERATION

;EXIT = DONE

$LOOP SOME MORE
*CLEAR COUNT
‘SAVE SCOPE RETURN POINTER
*RETURN INLINE-NEXT TEST

:COUNT LOCATION FOR ITERATION LOOP
*ADDRESS OF LAST TEST
200

CANANNNRRNN AR ANANNAAA AR ELRRANR RN AR ANRARAAANRRAARRAANRCRANRANR

S?EESCSU{;£H REGISTER ROUTINE. CHECKS FOR “G TO ALLOW CHANGING

A L e L L
L
IL
TEMPST:

000176

166402

CKSWR:

.WORD

O
0
0

COUNT:
RDSW:
Ti8:

.WORD
.WORD
WORD

(MP

SR
#SWREG,

sSOFTWARE SWITCH REGISTER PRESENT

SEQ 0042

CZDORBHO DR11-8/DA11-B NPR DIA
20-MAY-83 15:04
CZDRBH.P11

012412

?01133

MACY11 30(1046)

177752
177744
177736

012756
000426
012770

\fl\h“&flfl&flflh‘-‘s:
go OORSOONONN

e
b
b
b
b
b
b

N
MNP

ViAW
W

elelolelelalelelalelele)

013000
000376
012374

177656
000007
000154
177600
000025

177652
177644
177636

000015

177624

012764
000314
000007

177600

000060

177572

000067

177562

BNE

$SREAD:
1$:

3s:
2s:

8s:
48:

013011

5%:

177534
177530
177524

6$:

000252

000207

BIC
CMP

CNTLU:

000416
166322
177240

012570

BNE
1ST8
8PL
MOV

166440
166434
177600
000007

000060
177520
177506

177524
177510

177474

166112

20-MAY-83

7%:
ouT:

MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
CLR
CLR
MOV
JSR

BIC

15:09

#177600,718
#7.118
outf

sYES,WAIT FOR

sREADY, GET CHARACTER
sAND STRIP OFF
: THE GARBAGE

JIS IT A <*6>

#S$CNTG,
X2
#SMSWR,
X2
PC,TTOUT
asr,
12
X7.PRTAB
SSMNEW,
X2
PC,TTOUT
N#TEMPST
TEMPST
#7,COUNT
PCOTTIN

#1727600,118

CMPB
BNE
MOV
JSR
CMP
BNE

#15,TI8
(s
#$CRLF
, %2
17.TT0UT

CMP8
8GT
CMP8
BGE
MOV
JSR
BR

#60,T18
58
#67,TI8
6
#SQUEST,
X2
PC, TTOUT
3s

BICB
BISB
DEC
BEQ
8R

#60.TI8
TIB.TEMPST
COUNT
58
1

BR CNTLU

MOV
RTS

SEQ 0043

PC, TTOUT

#25,TIB
2

ASL
ASL
ASL

PAGE 44

ouT
aTKS
out
aTkB,T18

CMP8
BNE

B8R

#7.COUNT
78

ouT

TLMPST
TEMPST
TEMPST

TEMPST,asR
X7

:60 READ A CHARACTER
:STRIP OFF GARBAGE
JIS IT A ~U?
:BRANCH IF NOT
;START OVER
JIS IT A <CR>?
:BRANCH [F NOT

:WAS IT FIRST CHARACTER

:CHANGE SWR IF NOTV FIRST ONE
:GET 0OUT

;START OVER IF NOT LEGAL CHARACTER
sGET NITTY=-GRITTY

;ONLY WANT 6

DIGITS

sCHANGE SWITCH REGISTER CONTENTS
sRETURN TO PROGRAM

::ttttt'tttt'ttttttttttt'tttttitttttttttttfilttt.t.ttttt'tttttttl'

TTY READ SUBROUTINEtteassaean

;;ttttt'ttt'ttttttttttl"'tit'tfi!tttt.vttQttttttfittttttttit.tt't'

005077
005077
005067

TTIN:

CLR
CLR
CLR

arks
aTkB
T8

CZDORBHO DR11-8/DA11-B NPR DIA
20~-MAY-8 3 15:04
CZDRBH.P11

MACY11 30(10646)

15:09

20-MAY-83
INC

PAGE 45

SEQ 0044

aTKS
aTKS
TTIN
a8TkB,T1B
aTPS

005277
105777

166134
166130

017767
105777
100375
116777

166124
166120

1774462

177430

166112

020107
000046

000046

051127

020075

$CNTG:
$CRLF:
SMSWR:

062516
000
020077

036527

SMNEW:

LASCI2

023137

$QUEST:

ASC1Z

{

047105
051523
000
041440
030110

020104
020040

SENPAS:

LASCIZ

" _END PASS

042132
042040
027502
041055
042040
057440

STITLE:

-ASCI1Z

*_ CZDRBHO DR11-8B/DA11-B NPR DIA

100375

000207

026461

2620

013100

040511
000046

2423

013102

000000

( 30461
051120
020040

TTINI:
TTINZ:

1ST8
8PL
MOV
1ST8
BPL
MOVB
RTS

+ASCI2
+ASCIZ
JASCI2

TTIN2

718,37PB

144

:“ oz.

*TSWR= ¢’
NEwW= ¢'
"

_8°'

.EVEN

OfL:

sFIRST CHAR FLAG

AAOONS
RARR
AAANNRANAAANCAR
ANNAA
AR EARRRERANROARER
AN RNARAARAAR

TTY ASCI1 OUTPUT ROUTINE

122712
001414
105777
100375

000767

000046
000100

000137

165740

1$:

.EMPTY:

2232233332223 322

1$:

165710

000020
013202

;CLEAR POINTER TO CHARACTER
sRETURN
sCRLF CHAR?

sCHECK FOR RETURN TERMINATOR

000041
165714

3230200 da0dRdliiiiddd] s

sCHECK FOR NULL CHARACTER
s1F NOT, TYPE THE CHARACTER
sCHECK FOR TERMINATOR

1ST8

BEQ

W N

wnd
b

N N

Paur-uur Pour Pur-Guur Guur Grur o

NOOO NS B WNWNNIN = = e OO
NONOOMNIOSANO
RO
SOONS

b
e
b
b
b md

N AN AN AN AN AN AN N

Qur-Quur huer-Guar G
Gpar o

001403
122712
001005
042777
005002
000207
122712
001411

b b ad

N
&»
&H
o

TTOUT:

105712

N AN U AN N

prur Qe

elolelelalalelalelelelelelelele
o et

32 2222222222232 3

.RET:

18
(2)+,aTPB
TT0UT

¥4
X2,.SAv
#.RETR,
%2
.RET=6

sTYPE CHARACTER

;SET UP NEW POINTER

CZDRBHO DR11-8/DA11-8 NPR DIA

MACY11 30(1046)

016702

000006

.REST:

012

CZDRBH.P11
26450

013174

20-MAY-83 15:0¢4

gzg;

013200

000741

26453

013202

015

2654
2455

2456

013206

013206
000000

014210

2457 014210 000000
2458

014212

2660
2661

015214

2459

014212

015214

015214
000001

041

.RETR:

20-MAY-83
MOV

15:09

TTouT

.BYTE

15,12,°!

SAV:

BUFF:

.=.+1000

XINBUF: .

.=.+1000

XCHKBU: .
-END

PAGE 46

.SAV,%2

LEVEN
0

:FOR STACK POINTER 100 LOCATIONS

SEQ 0045

CZORBH.P11

ASCNT

012224

ATIN

= 020000

BAOFCK

005252

BACKGD

20-MAY-83 15 :04

007762

2235+

17334

1757

MACY11 30(1046)

20-MAY-83

15:09

PAGE 48

2259t

2266+

2270+

17784

1797

1805

22814

1281

12874

012222
BINCT
000001
=
8170
BIT1 = 000002

2231«
4728
4738

2251«
1376
656

2254
1454
657

2255
1482
660

2258+
1566
661

22804

BIT12 = 010000

484N

755

756

759

4864

1097

1099

Y
4754
G764

673
690
703

4784

729

001174

BEGIN

81110 = 002000
81711 = 004000

81113 = 020000

81714 = 040000
81715 = 100000

8112
8113
8114
BITS

= 000004
= 000010
= 000020

= 000040

8176 = 000100

8177 = 000200
8118

= 000400

BRWAIT

001052

566

4824
483¢

4854
4874

1259

794

4804

568

1073
1081
1094

716

1287

902

742

BIT9 = 001000
011252
BLUSH
BRANCH 007012

814
1970
1567

1065
2084#
15714

011260
011342
011374
011402
014210

2069
1925
2131
2136
507

2088+
21224
21354
21384
1749

BSETUP
BUFCHK
BUFCKY
BUFCK2
BUFF

BUFLEN 001046

54208

5404

1444
1605

1453«

1173«

1468«
1606

1696

2323

770

795

760

817

1100

1266

1269

1295

674
69N
704

677
694
707

678
695
708

773
776
720

798
801
721

1072
1080
779

804

730

733

734

785

amn

919

922

946

949

976

930

934

958

788

814

962

992

996

1029

1033

1364

1481+

1482

1565«

1566

1196

1196+

1197

932

960

5704

717

1595

906

743

1454

2100

571

782

1642

746

2146

1765

1175«

1470
1622

24574

1176
1471

1636

2072
2070
4894
9124

2103
20744
580+

2106
2102
591«

21124
2105

007076
007064
001044
011414
011434

15874
1500
5394
21474
2150

1593
1538
1584

1557
1615

15840

2152

21540

012404

602

618

834

CHKA
CHKBFF
CHKBUF
CHKSM1
CHKSM2

CHKSUM

CKSWR

003006
003150
003334
003516

011410

012456
CNTLU
COMPAR 007240
COMPRR 007322
012376
COUNT
CYCLE = 000400
DATCHK 007224

9404
9704
10044
10394

2124

2217
569
16184
16324

23334
17288
1528

2148

21464

2292
23474
1623
1637
2355«
1966
1547

1682

807

747

1064

982

2139

BUFOUT 011334
BUFPUT 011240
BUSERR= 000004
002660
CHGG!
CHGG2
CHGG3
CHGG4
CHGGS

SEQ 0046

CROSS REFERENCE TABLE =-- USER SYMBOLS

904

1497«

2306
2360

23n

23374

2365
1972
1572

2380+
201N
16154

2031

1503«

1526¢

1534+

1535

1215

1232«

1234«

1235

1442+

994

1031

1304

1314

1362

1674

2187

1213«

1553«

1554

1579

1590

MACY11 30(1046)

CZDRBHO DR11-B/DA11-8 NP? DIA

CZORBH.P11
DATINE

DATOCK

DATONB

DECML

DIOMEM
OONE

DRBA

DRDB

007306

1265

1490

16294

012216

2237«

2250

2256+

22784

001022

5304

S84t

617+

620

001040
005710

001026

DRINL

001032

DRINS

010204

DRINV
DRINO
DRINT
DRIN2
DRIN3

DRST

1459#

1455

1207

006346

001034

010216
010240
010262
010250

001024

DRVS

001030

DRWC

001020

DSTATA= 001000

1483

S37
1398

14894

1252
1403#

913+
1238+

941+
1252«

5324

588«

1608

1961«

643%

644

859«

860

863+

864

887+

888

891«

1218¢
1559«

971«
1280¢

1005+
1302«

1040¢
1376

1103«
1388¢

1108+
1411+

1126
1422+«

1140«
1447+

1156
1475+

1179«
1498+

1200+
1540+

1109+

1127

1142+

1180*

1186

1201«

1219«

1225

1239+

1313«

1316

2040

1335

1338«

1339

1349+

1350

1353«

1448

1460

1476+

1541

1146

1182

1203

1221

1241

1254

1282

1450

1478

1508

1543

1562

1835

1853#

937

1240t

967+

1253%

1001+

1011+«

1018+

1036+

1046+

1052«

1111+

1143«

1181

1836

535¢

1838

909

1840

1281«

1412«

1421«

1649«

1477+«

1506*

1542«

1561«

1625+

1202+

12200

185¢
1860
1866
1858

1857
1863#
18694
18654

586t

656%

660t

661

673«

674

677+«

678

690

691

694+

1081
1184+
1292
1425+«
1643

58;5:

1084
1205+
1295«
1431
1646
58Z§'

1087«
1223«
1296
1452«
1755«
53;3'

1092
1263+
1299
1480+
1771«

2001

1094
1256+
1364
1501~
1857
2005

1097
1259+
1367
1511«
1865
2009«

1099«
1260
1389
1515
1926+
2011«

1100
1263
1392«
1545«
1927+
20.2+

1104
1266
1393
1564
1947
2019

1114«
1269«
1397
1595+«
195¢
2023

1133«
1284+
1415«
15
1963
2027+

1146
1287+«
1418
1599
1964

2029

1166*
1289
1423+
1642+
1966
2031+

533w

1112«

1144c

1182«

1203+

1221+

1241+

1254r

1282«

1413+

1450+

1478«

1508

5294

582+

601+

604

632+

633

846+

847

850+

1954

2045

1521«

1522

531

1543«

17294

1562+

1574
16624
580
1120
1412
1421
17354
1911
20704

FNCT1 = 000002

17214

001070

14N

S3e

007404
007434
001252
ERRCHK 007354
005764
ERRDO
ERRDOT 006046
ERROR = 100000
FLUSH
011222
FLUSHY 011230

FNCCNT

SEQ 0047

5322~

16544

END
END1
ERRA

132

1964

DSTATC= 004000

PAGE 49

1325

17304

DSTATB= 002000

15:09

CROSS REFERENCE TABLE =-- USER SYMBOLS

20-MAY-83 15:04

006206

20-MAY-83

17314

5494

1857

590#
1152
14184
14314
20684
2071

1502+«

1625

2029

1947

1626+

16424

2085

1518

153
539«

851

1178«
1558+

874+

1199+
1602

875

1217«
1962«

878+

1237«
2041+

CZORBHO DR11-B/DA11-B NPR DIA

CZDRBH.P1

20-MAY-83 15:04

FNCT2 = 000004
FNCT3 = 000010
GETBUF 011436

MACY11 30(1046)

20-MAY-83

17224
17234
2147

19N
1953
21564

2271

22734

1861

1867

2032

590
719
787
849
998
1102
1262
1366
1601

606
723
790
853
1014
1106
1265
1369
1604

622
732
793
862
1021
1118
1268
1378
1610

Zgg?;

19824
1986
19924

1994

ICOUNT 012362

1957
19854
1990

= 000100

17264
1498

HLT

= 104000

012202

HNDSHK
HNDSH1
HNDSHZ

INBUF

010734
010742
010762

001042

17204

el
710
784
839
985
1096
1258
1352
1598

5384

PAGE 50

SEQ 0048

2027
2044

2012

= 000001

HOFHM

CROSS REFERENCE TABLE == USER SYMBOLS

1973

15:09

635
736
797
866
1035
1123
1286
1391
1621

646
745
800
877
1048
1126
129N
1395
1635

659
749
803
890
1063
1129
1294
1402
1640

663
758
806
908
1067
1150
1298
16417
1645

676
762
809
923
1070
1155
1301
1420
1648

680
772
813
936
1075
1158
1318
1429
1786

2007

2021

2025

2053

2132

2137

2154

826+

845+

872+

900«

1278«

1312«

1324+

1347+

1375+«

1386+

2314

1755

1771

1926

1973

2012

2032

1505

1200
1607

1218

1238

1388

1447

1475

15954

1622

1631+

1632+

631+
913

1505+«
893
1355

1993

1927

1179

1524

671

1527+«

1005

1040

1559

1575

1477

1506

1542

1561

941

1527

1540

1616

1630

5504
888#
13504

INTA

007130

1181

1202

1220

1240

1449

007626

17434

1748«

1892

1897+«

1930+

1928

1801

1802«

1853

1863+

1873+

1578+

1579

1581

1585«

1589+

1590

1617«

1618«

1910
1958

1923
1912
1969

21624
1924
21740

21684

1195

1214

1233

1443

1469

1499

1537

1556

15754

INTB
INTC
ITIME1
ITIME2
ITIMES
ITIME4
ITIMES

JBCNT

JBFLAG

0041446
004316
002706
003034
003176
003362
003544

007624

8754

i
1143
9164
944N
U
10084
10434

17620

880

11204
11524

1751

JOBAQ
JOBAOA
JOBAOB
JOBA1
JOBA2
LDEXIT

010304
010364
010344
010416
010454
007062

1752
1893
1894#
1901
1914
1580

18814
1898#
1895
19104
19234
15834

LIST
LISTA

012226
011450

2233
1881

22824
1899

LOADA

007040

15784

1582

LENCHK 001050
LISTA1
LISTB

LODBUF

011462
011474

007026

MAINT = 010000
006536
MFCHK
MFLOOP (006430
0120264
MINUS
012054
MKNUM

12%;0

1882
1956

1174

17324
1523
15064
2241
22504

7
781
833
979
1086
1227
1341
1520
1855

2003

001072
002552
005512

002522

697
778
819
964
1083
1188
1337
1462
1794

1949

1871

INBUF1
INCBA
INCOB
INCWC

693
775
816
950
1078
1162
1328
1433
1790

1576«

15264
1525
22444
2253

1767+

1796

1960

CZDRBHO DR11-B/DA11-B NPR DIA

CZORBH.P11

MOADD

20-MAY-83 15:04

MACY11 30(1046)

20-MAY-83

15:09

PAGE 51

SEQ 0049

CROSS REFERENCE TABLE == USER SYMBOLS

012136

MREC
011044
MRECT
011056
MREC2
011070
MREC3
011102
MSTART 001000
MS1
007630
MXMIT
010770
MXMIT1
011002
MXMIT2 011014
NEX
= 040000
NEXCHK 005116
NEXJOB 007620

1863

1768+
1929+

1769+
1939+

1799«
1940

1800«
1974+

1306

1436

1612

16254

1124

1140

1161

1156

1160

012702
001074

2367

2384#

011736
001016

22314
G011+

2350

957+
1479«
2298+

991+
1509+

1028+
1544+

003572
P3INT
P3INV
003502
003414
P4INT
003304
P4INV
PSERR
003222
003120
PSINV
P6ERR
003046
P6INV
002772
P7ERR
002720
002644
P7INV
RDSW
012400
RDYCHK 001056
READY = 000200
RESALL 010106
RETURN 012366

1614
1770«

929«
1451+
1772+«

2319«

23234

607
825

616
844

630
858

642
8N

655
885

NOP
=
NORMAL
NPRRDY
NPR1
NWRDXF
N1413
OFL

000240
007264
004052
001036
007616
004036
013102

PRINT
PRMXFR
PRMXF1
PRMXF2
PRMXF3
PRMXF4

011506
011130
011162
011166
011202
011204

out
PASCNT

PRTAB
PSW

SAVALL 010072
011734
SAVCC
011732
SAVPC
011724
SAVR2
011726
SAVR3
011730
SAVR4
SCOPE = 104400

2191«
2190+«
2199+
2200+
2201+

4704
741

754

767

1
1

672
899

1869

689
928

1873

702
956

1901«

1902+

1204+
1681+

1222+
1692+

715
990

728
1027

CZDRBHO DR11-B/DA11-B NPR DIA
CZDRBH.P11
20-MAY-83 15:04

012364
012350
011300
011304
011274
010124
012214
010526
010544
010560
010652
010664
010710
001006
0C7710
012032
001102
000176
001076
012374
001100
012402

K8
TKS
TNPRO
TNPR1
TOODLE
P8
TPS
TRPA
TRPB
TRTRAP
TSTRDY
TTIN
TTINT
TTIN2
TTOUT
T33CLR
T34CLR
135
WAIT1
WAIT2
WCLEN

001062
001060
004222
003766
012212
001066
001064
007526
007532
007462
005666
012704
012724
012740
013104
004214
004366
004374
012002
012160
001054

WGTCT

2308

2317

2318+
2315

23224
2318#

2262«

012220

012074

XBA16 = 000020
X8A17 = 000040

1193
1461

1212
1467

1231
1496

SEQ 0050
1323

1333

1346

2293

2307

2312

2337

2397+

2277#

1975

001014

SSTART
S$1
START
SUSWR
SWREG
TEMP
TEMPST
TEMP2
TiB

WRTOC

1172
1409

565

965

999

1675

2188

2218

2337
977
2375«

983

2376+

999+
2377+«

1000+
2379«

1012
2383

1019

2343

2357«

2358

2361

2368

2370

2378+

2379

2393+

2397
2391%

2394+

2244
2238

2269+
2267

2400+
2273

2444
2398

2435+

2442

2373

24314

2445

2451

22764
2204

2346

NO:‘N

SCOPEF
SCOPEG
SETBF1
SETBF2
SETBUF
SETVEC
SEVEN
SJoB1
SJoB2
SJOB2A
SJOB2B
SJ0B2C
sJo82b

012240
012262
012274

1138
1385

N = =2
oS =N
NESNN

SCOPEA
SCOPEB
SCOPEC

L &
MACY11 30(1046) 20-MAY-83 15:09 PAGE 52
CROSS REFERENCE TABLE == USER SYMBOLS

2205

2209«
2210

2348

2352

1178
1471+
2257+

1197+
1472+
22794

2564

1237

CZORBHO DR11-B/DA11-B NPR DIA
20-MAY-83 15:04

CZDRBH.P11

XCHKBU
XINBUF
XLIST
X1
X2
X3
X4
X5
YESRT
YESTR
YESTR1
YESTR2
S$CNTG
SCRLF
SENDAD
SENPAS
SMNEW
SMSWR
SQUEST
SREAD

015214
014212
012152
002732
003060
003244
003442
003612
007612
007534
007606
007610
012756
012764
007452
013017
013000
012770
013011
012512

n 4
MACY11 30(1046) 20-MAY-83 15:09 PAGE 53
CROSS REFERENCE TABLE == USER SYMBOLS

2174

013130
013174
013160
013202
013206

24584

9904
10274

1688+
16994

STITLE 013035
= 015216
.

LEMPTY
.REST
-RET
.RETR
.SAV

SEQ 0051

16984

S00#
)

24540

2449
24554

5024
692

5044
96

506#
705

5154
709

589

718

CZORBHO DR11-B/DA11-8B NPR DIA

20-MAY-83 15:04

CZDRBH.P11
COMMEN
ENDCOM
ESCAPE
GETPR}
GETSWR
MULT
NEWTST
POP
PUSH
REPORT
SETPRI
SETUP
SKIP
SLASH

STARS

SWRSU
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOLT
TYPTXT
$SESCA

SENEWT
$$SKIP
.EQUAT
-HEADE
KT11
.SETUP
.SWRH]
LSACTI
.SAPTB
.$APTH
.SAPTY
.SASTA
.$CATC
.SCMTA
.$D32D
.$0820
.81V
.SEOP
.SERRO
.SERRT
JSMULT
. $POWE

14
14
14
1#
14
14
1
14
"
14
1L
1L
14
1#

650
753
925
1171
1330
1466
1744
1880
2035

2289

1L
14
1L
1
1»
14
"
4
14

14
1L
1L
14
1
#
14
14
4
1
14
4
1
1L
14
14
14
”
1%
1#
14
14

130

652
764
927
1190
1332
1492
1746
1905
2038
2301

4614

466

667
766
953
1192
1343
1494
1760
1908
2063

2303

MACY11 30(1046)

20-MAY-83

15:09 PAGE 55

SEQ 0052

CROSS REFERENCE TABLE == MACRO NAMES

518

669
821
955
1209
1345
1530
1762
1918
2066

2328

520

684
824
987
1211
1357
1532
1774
1921
2080
233

574

686
841
989
1228
1360
1549
1776
1933
2083
2385

576

699
843
1024
1230
1371
1531
1807
1937
2095

2387

595

701
855
1026
1247
1373
1651
1809
1943
2098

2426

597

712
857
1056
1249
1382
1653
1818
1945
2116
2428

714
868
1058
1273
1384
1670
1820
1978
2120

613

725
870
1088
1276
1404
1672
1830
1980
2142

625

727
882
1090
1308
1408
1685
1832
1996
2145

627

738
884
1135
1310
1438
1687
1848
1999
2181

637

740
896
1137
1320
1440
1704
1851
2015
2184

639

751
898
1169
1322
1464
1706
1876
2018
2287

CZORBHO DR11-B/DA11-8 NPR DIA

20=-MAY=-83 15:04

CZDRBH.P11
.SRAND

.SRDOC
-SREAD
-SR2AZ
.SSAVE
.$S82D
.$5820
.$SCOP
.$SIZE
.SSUPR
.STRAP
.STYPB
.STYPD
STYPE
.STYPO
.$40CA
1170

14
1
1
1
1
1%
1
11
1
1
11
1
11
1"
1
1%

. ABS.

015216

.SRDODE

MACY11 30(1046)

20-MAY-83

000
O

F
,CZDRBH.P11
H/CR
C.SML
ZDRB
/NL : TOC/SOL=SYSMA
CZDRBH,C

RUN-TIME: 8 10 .? SECONDS
RUN-TIME RATIO: 59/20=2.8
(70 PAGES)
35K
CORE USED:

PAGE 56

CROSS REFERENCE TABILE == MACRO NAMES

ERRORS DETECTED:

15:09

SEQ 0053