Digital PDFs

AH-8644G-MC

September 1980

54 pages

Original

32MB

view download

OCR Version

47MB

view download

Document:	CZDRBG0 DR11-B,DA11-B DR11-B,DA11-B NPR DIA SEP 1980 bw
Order Number:	AH-8644G-MC
Revision:	000
Pages:	54
Original Filename:	CZDRBG0__DR11-B,DA11-B__DR11-B,DA11-B_NPR_DIA__AH-8644G-MC__SEP_1980_gray.pdf

OCR Text

-B
DR11
B NPR
DAli
CZDRBGO

DIA
3

AH 8644G - MC
1
o8
1
FICHE
=
SR Sy

SEP 1980
COPYRIGH TE
E
IN USA
MAD

' CZDRBGO DR11-8/DA11-B NPR (D18
| (IDRBG.P11

01-APR-80 1

MACYIT 30A(1052)

O1-APR-B0

11:29

PAGE
2

.REM X

IDENTIFICATIG_!

PRODUCT

THE

CODE
:

AC-8643G-M(C

PRODUCT NAME:

CZDRBGO DR11-8/DA11-8B NPR DIA

PRODUCT DATE:

MARCH 1980

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

LARRY CONDON, DICK JONES, STEVE POMFRET

INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO 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 SOF TWARE ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.
COPYRIGHT

(C)

1971,1980 BY DIGITAL EQUIPMENT CORPORATION

SEQ 0001

SRS

CZDRBGO DR11-B/DAT11-B NPR DJA

CZDRBG.P11

MACY11 30A(1052)

01-APR-80 11:25

O01-APR-80

11:29

PAGE 3

ABSTRACT

1.1

_THIS IS A LOGIC TEST OF THE 'NPR GENERAL INTERFACE'' -DR118B.
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 DA115

INTERPROCESSER LINK. THE DR11B TEST SHOULD BE RUN IN
IN EACH COMPUTER BEFOUR TESTING THE DA11B.

REQUIREMENTS

2.1

EQUIPMENT

;

2.1.1

FOR THE DR118

PDP-11 STANDARD COMPUTER
:

DR118

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

DAT1B CONSISTING OF 2 M7229 MODULES AND 2

BCO8R TABLES:-

NOTE: WITH OR WITHOUT HARDWARE SWITCH RCGISTER

2.2

STORAGE
2.2.1

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

LOADING PROCEDURE

5.1

ME THOD
PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED.

DR11B STARTING PROCEDURE

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
SETTINGS,

THE DR11B IS = 5.

SECTION 5.1.2.

SEE OPERATIONAL SWITCH

SEQ 0002

CZDRBGO DR11-B/DA11-B NPR DIJA
CZDRBG.P11
01-APR-80 11:25

(A)

11:29

PAGE 4

SEQ 0003

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

PROGRAM AND/OR OPERATOR ACTION

LOAD PROGRAM INTO MEMORY.
LOAD STARTING ADDRESS

PRESS START.

THE PROGRAM WILL LOOP,
TYPED AT THE END OF

NOTE:

"END PASS' WILL BE

THE PROGRAM.

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
OPERATIONAL SWITCH SETTINGS

5.1.1

AT SA 200 ..
WITH ALL

THE INSTRUCTION AND LOGIC TEST.

SWITCHES DOWN THE PROGRAM WILL PRINT

OUT ON ERRORS AND CONTINUE IN TEST. ('END
PASS' TYPED AT CCWPLETION OF A PASS)

SWITCH SETTINGS ARE

SW15
SW14

Sw13
Sw12
SW11

OR
UP ... HALT
ON ERROR
... SCOPE LOOP

Sw0?2

NOTE:

nnn %%%%

5.1.2

nnnn

6.3

07-APR-B0

STARTING ADDRESS OR ADDRESSES

6.2

MACY11 30A(1052)

««s INHIBIT PRINTOUT
... INHIBIT TRACE TRAP
IMIBIT ITERATIONS
4 ... BR LEVEL OF DR11B
5 ... BR LEVEL OF DR11B

6 ... BR LEVEL OF DR11B

]
6

IF SW02 TO SWOO = O, THE BR LEVEL OF

THE DR11B IS ASSUMED TO BE = 5.

$.%.3

THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH

REGISTER THEN A SOF TWARE 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 SOF TWARE SWITCH
REGISTER (LOC. 176) IS USED.

CONTROL :
THIS PROGRAM ALSQOSUPPORTS

THE DYNAMIC LOADING OF

FROM THE TTY.

THE

SOF TWARE

THIS CAN BE ACCOMPLISHED BY

SWITCH

(ZDRBGO DR11-B/DA11-8 NPR DIA
(ZDRBG.P11
01-APR-80 11:25

MACY11

30A(1052)

01-APR-80

11:29

PAGE S

SEQ 0004

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.

THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS

THE SOFTWARE SWITCH REGISTER.)

3) AFTER THE ''NEwW='' HAS BEEN TYPED THEN THE OPERATOR (AN DO ONE
OF

THE FOLLOWING AT THE TTY:

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

3.2«

IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU

BACK TO STEP 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 RE-

QUESTED FOR.

IF SCOPE LOOP IS NOT REQUESTED, THERE

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 ROUTING THAT PRINTS-OUT AN ADDRESS THAT TAGS

THE FAILING SUBTEST,THE (P
STATUS REGISTER AND
THE DR11B STATUS REGISTER AT THE TIME OF FAILURE.

NOTE: SUPPORTS “G ROUTINE FOR DYNAMIC LOADING
OF SOF TWARE SWITCH REGISTER

5.2.3

LODBUF
THE INBUF BUFFER IS LOADED WITH AN INCREMENT
ING
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

C(HKBFF

CZDRBGO DR11-8/DA11-8B D%
NPR A
- CZDRBG.P11
01-APR-80 11
|

MACY11

30A(1052)

O01-APR-B80

11:29

PAGE 6

SEQ 0005

THE CHKBUF BUFFER IS LOADED nu A MODIFIED

INCREMENTING PATTERN (0,0,2,2,4.4.6.6,...)

BEGINNING AT THE STARTING Aooéess OF CHKBUF.

THE NUMBER OF WORDS LOADED IS DETERMINED BY THE
CONTENTS OF BUFLEN,
THIS BUFFER IS LOADED ONLY

FOR TESTS WHICH USE THE MAINTENANCE MODE OF

THE

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

5.2.5

INTA
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 DRWC IS CHECKED TO SEE
THAT IT IS EQUAL TO ZERO.
THE CORRECT CONTENTS

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
E:gfléLéiRSET. READY IS CLEAR, OR READY AND ERROR

5.2.6

DAT(CHK
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 COMSG?{?SNS 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
THE ROUTINE IS EXITED.

5.2.8

7 AND

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

(52525) WAS TRANSFERRED TO INBUF.

THE NUMBER

OF COMPARISONS MADE IS DETERMINED BY THE CONTENTS
OF BUFLEN.
AN ADDITIONAL CHECK IS MADE ON BUFLEN+2
TO INSURE THAT TOO MANY WORDS WEREN'T TRANSFERRED.

5.2.9

ERRCHK
THIS ROUTINE

5.2.10 TRAPCATCHER

CLEARS

IE AND HALTS

IF ERROR IS SET.

CZDRBGO DR11-8/DA11-8B NPR DIA
(ZDRBG.P11
01-APR-80 11:25

MACY11 30A(1052)

O01-APR-B0

11:29

PAGE 7

SEQ 0006

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

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS
OF THE NEXT LOCATION.
THE NEXT LOCATION IS LOADED WITH
A HALT (000000).
THUS AN ILLEGAL TRAP OR INTERRUPT WILL
CAUSE A HALT AT THE TRAP LOCATION PLUS TWO.
IF A UALT 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.

3.3

PROGRAM AND/OR OPERATOR ACTION

5.3.1

LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN

IS
IS
AN
ON

THE INSTRUCTION AND LOGIC TEST.
IF AN ERROR
DETECTED HERE, THERE WILL BE A PRINTOUT.
WHEN
ERROR IS DETECTED AND IT IS NECESSARY TO SCOPE
IT, PLACE SW15 UP TO
T ON ERROR, THEN SW14 UP

TO LOOP ON ERROR,

THEN SW13

UP TO DELETE PRINTOUTS.

DR11B ERRORS
ERROR PRINTOUT
THE PC OF

THE FAILING TEST AND

THE

(P STATUS WILL BE PRINTED.

ERROR RECOVERY
DEPRESS CONTINUE

TO RESTART SECTION

DR11B RESTRICTIONS

STARTING RESTRICTION

NONE
OPERATIONAL RESTRICTION

M968 MUST BE IN SLOTS C04/D04 - FOR DIAGNOSTIC TESTING
SHOULD BE

IN A02/B02 FOR NORMAL USER OPERATION.

MISCELLANEOUS

EXECUTION TIME

ABOUT 2 MINUTES
PROGRAM DESCRIPTION

‘

CZDRBGO DR11-8/DA11-8 NPR DIA

' CZDRBG.P11

01-APR-80 11:25

MACY11

30A(1052)

THE FOLLOWING IS A GENERAL LIST OF

OQ1-APR-80

11:29

1
PAGE 8

FUNCTIONS TESTED.

CAN ALL REG BE ADDRESSED WITHOUT ERROR
RESET CLEAR DRW(

RESET CLEAR DRBA

CAN
ALL DRWC BITS BE SET
CAN 15-1 IN DRBA BE SET
FNCT1 SET & CLEARED
FNCTZ
SET & CLEARED
FNCTS
SET & CLEARED
XBA16
SET & CLEARED
XBA17
SET & CLEARED

IE
SET & CLEARED
CYCLE SET & (LEARED

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 IS 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 DRW(
INC PATTERN TO WRAP-AROUND [N DRBSA
NO INT. AT LEVEL 7

NO INT. AT LEVEL 6
NO INT. AT LEVEL 5
DOES INT. AT LEVEL 4
NO MAINTBRD A02/B02
MAINTBRD (04/D04

FNCT BITS CONTROL DSTAT BITS

RESET 0'S DRDB
ALL DRDB BITS CM BE SET
DRDB HOLD
ALT. 1'S £ 0'S AND ALT.
INC TO WRAP-AROUNDIN DRDB
RESET SETS W.CY) RDY IN DRST

0'S
& 1'S

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

(BURST)
(BURST)
(NON-BURST)
(NON-BURST)

FUNCT BITS INC WITH MAINT MODE XFERS

10 MAINT MODE XFERS

200 MAINT MODE XFERS
10.

LISTING

SEQ 0007

(ZDRBGO DR11-8/DA11-B NPR DJA
(ZDRBG.P11
01-APR-80 11:25
1.

MACY11 30A(1052)

O01-APR-80

11:29

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

12.4 SLAVE

AN 11/34

COMPUTER, PRESS CONTINUE (OR CNTRL AND CONT ON
OR 11/04), (ON SWITCHLESS PROCESSOR TOGGLE THE HALT/CONT SWITCH).

12.5 MASTER COMPUTER,

PRESS CONTINUE

(OR CNTRL AND CONT ON

AN 11/34 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 DA11B MUST BE

14.

IN C04/D04

DA11B 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

SERVICE ROUTINE.

TO ENTER THE

INTERUPT

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

AND JOBXX FOR THE MASTER ROUTINE.

SERVICE

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.

CZDRBGO DR11-8/DA11-8 NPR DIA = MACY11 30A(1052)
(ZDRBG.P11
01-APR-80 11:25

01-APR-80

11:29

PAGE 10

SEQ 0009

16.4 AFTER THE SLAVE HAS RECIEVED ALL THE PARAMETERS

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

14.5 THE MASTER SETS UP THE T 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 (P STATUS AND
THE DR11B 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

ERROR OCCURS.

16.

SINC WHEN AN

ECO CHANGES

CHGGT = CHANGES 1

THRU 5 REPLACED THE INTERRUPT ENABLE COMMAND

WITH A DATA TRANSFER BEFORE ISSUING AN INTERRUPT.
THIS WAS NECESSARY DUE TO HARDWARE CHANGES.

461
22%

MODIFJED FOR SOF TWARE SWITCH REGISTER
INCLUDING DYNAMIC LOADING OF SWR

ot
465
466

3
:
R

L67

468

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

469
470
471
472
473

000240
104400
104000
000001
000002

NOP=000240
SCOPE=TRAP
HLT=EMT
8170=000001
8171=000002

475
476
477
478

000010
000020
000040
000100

8173=000010
B1T74=000020
B175=000040
B8176=000100

474

B172=000004

479
4«80
481
4«82
483
484
485
486
%

010000
020000
040000
100000

81712=010000
81713=020000
BIT14=040000
BIT15=100000

489

000004

BUSERR=000004

000200
000400

001000
002000
004000

TMTM

L I

8177=000200
B8178=000400

8179=001000
B81110=002000
B81T711=004000

CZDRBGO DR11-B/DA11-8 NPR DIA
01-APR-80 11:25
' CZDRBG.P11

000030
000032

503
504
505
506
507

000052

PAGE 11

SEQ 0010

000034
00003¢

000176

014222
000606
000042

000210
000216
000220

#BUFF 26
aPSwW

000224

012666
000646

#STITLE,X2

b cab

1%:

X7,TTOUT
.=1000

SUSWR

AR AR AR AR AN AR AR AR

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

006706

AR AN RARA

START OF BACK-TO-BACK DR11-8

AR AR AR AR AR AR AR AR AR AR AR RN TR

006634

JARE WE IN ACT11 AUTO MCODE?
;SKIP TITLE IF YES
;PRINT THE TITLE

520

;SET UP STACK LIMIT

3:42 LaNGE

000046

013047

VNN

i anlb e

cxb

WN=O

(W LN AV AV LV LV LV IV IV IV ]

11:29

;LOAD TRAP CATCHER INTO 0 THRU 777.

495
496
497
498
499

500
501

O01-APR-B0

RA R AR AR AN AR A RN R RN AR

MSTART:

;MASTER START

SSTART:

;SLAVE START

SR:

PSW:

DRWC :
DRBA:
DRST:
DRD8:

173000
014224
015226
000000
000000
000000
000000
000000
177560

490
&N
49
“q
494

MACY11 30A(1052)

AR AR

001062
001064
001066

‘

MACY11 30A(1052)

O01-APR-80

11:29

177562
177564
177566

TKB

177562

TPS

177564

TP8:

177566

FNCCNT: HALT

INBUF1: HALT

001102

SNIFRBVELFRERIIR

000006
000004
00113
177

000176
000004
00006
000176

SUSWR:

000004

177666

177652

648 :

BEQ
BR

658
663

MOV

BEGIN:

R R

MOV
cmP
BNE
TST
BNE
JSR
MOV
MOV

177566

177562
177556

ERRA:

001264
001272

012767
012777

000010

177777

sADJUST STACK
;POINT TO SOF TWARE SWITCH REG
sRESTORE VECTORS

#SWREG,
SR

dddd

;IS SWREG USED

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

1222222223 22222%4

MOV
MOV
iNC
MOV
INC
MOV
CLR
MOV

#ERRA ,BUSERR
X7.%0
aDRW(
x7.%0
aDRBA
X7,%0
aDRST
%7.%0

;BUS ERROR VECTOR TO ERRA
;PC TO RO
;ADDRESS DRW(
;PC TO RO
;ADDRESS DRBA
:PC TO RO
;ADDRESS DRST
;PC TO RO

sMADE IT - BRANCH OVER HALT

#6 ,BUSERR

;RESTORE #6 TO BUS ERROR VECTOR

HLT

MOV

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

eI
IS

SCOPE

;SET UP FOR TIMEOUT
;REFERENCE HARDWARE SWITCH REGISTER

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

INC

176522

:SAVE VECTORS

#-1,35R

BEGIN

ARl

SCOPE

176564

177572

000006

#6468, an

MOV

66$:

001252

w6, =(SP)
G =(S5P)

MOV
MOV
MOV

cMP

65%:

177634

011274
000340
001174

sNUMBER OF PASSES COMPLETED

: TEMPORARY STORAGE
: TEMPORARY STORAGE

v,
o

000042

012767

PAGE 12

SEQ 0011

PASCNT: 0
TEMP:
0O
TEMP2:
0

8888888288888288

3 33 E Y R RIS
39

CZDRBGO DR11-B/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

aDRDB

;ADDRESS DRDB

;BUS ERROR, RO HAS PC OF ERROR

TEST 1 DOES RESET CLEAR DRW(C?

Lt s

MOV
MOV

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

;ALL ONES TO DRW(C

CZDRBGO DR11-B/DA11-8 NPR DIA

; CZDRBG.P11

004767

N
&% Ay
3RTEERER

001401

MACY11 30A(1052)

011112

O01-APR-80

177506

27.,CKSWR

TST

aDRW(

BEQ
HLT

177777
011062

;LOOKING FOR Z-BIT TO SET

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

TEST3 CAN ALL DRWC BITS BE SET?
AR AR AR AR AN AR

T R AR

AR AN AR AR AR A AR

#4000,
I COUNT
#-1,3DRWC
#-1,3DRW(C
.+
A AR AR RN

A AN AR

ANA RN

SCOPE

A A R A

A AN AR

A AR AR AR

SCOPE

BIS
BIT

A A A AN RN R R R

AR RN ®

;SET ALL BITS IN DRWC
;LOOKING FOR Z-BIT TO SET
;SEE IF ALL BITS GOT SET
;ALL BITS AREN'T SET
AR AR AR AR AN AR RN RN AR

NN AR

TR AT R RN A AR AR NN AR A AN RN RAARARAN

#-2 ,3DRBA
#-2 ,3DRBA
.+

AR AR

AN AR AN AR RARAR AR

TEST4 CAN BITS 15-01 IN DRBA BE SET?

MOV
cMP
BEQ
HLT

177374
177366

;DID DRBA GET CLEARED?
;DRBA NOT CLEAR

AR AR

RN AR RS

;SET BITS 15-01 IN DRBA
;LOOKING FOR Z-BIT TO SET
;SEE _IF BITS 15-01 GOT SET
;BITS 15-01 AREN'T SET

R AT

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

TEST6 TEST THAT FNCT1 CAN BE SET AND CLEARED

000002
000002

SINIT

AR AR

052777
032777

aDRBA

SRR

104400

TST

AN AR AR AR AR

001420
001422
001430

RN AR A AR AR

177776
177776

;ALL ONES TO DRBA

MOV
MOV
v
BEQ
HLT

#-1,3DRBA
%7.,CKSWR

SCOPE

011016
177434
177426

MOV
JSR

AR AR A A

004000
177777
177777

BEQ
HLT
AR

001376
001400
001406
001414
001416

;DID DRWC GET CLEARED?
;DRWC NOT CLEAR

TEST2 DOES RESET CLEAR DRBA?

RESET

177460

104000

001346
001350
001356
001364
001372
- 001374

JINIT

SCOPE

177472

SEQ 0012

;LOOKING FOR Z-BIT TO SET

001401

PAGE 13

SCOPE

104400
012777
004767
00000

11:29

JSR

-~ RESET

104000
104400

NOWVSA WO

01-APR-80 11:25

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

#BIT1,3DRST
#BiT1,3DRST

sSET FNCT1
STEST FNCT

AR RR RN RN

(ZDRBGO DR11-B/DA11-B NPR DIA
;CZDGBG PIN
01-APR-80 17:25

658
659
660

001436
001440
001442

661

0014

22‘3.

001460

;

’

662

BNE
HLT
BIC

177354

177346

BIT

BEQ

104000

HLT

11:29

#8]IT1,8DRST

#BIT1,30KsT

1
PAGE 14

SEQ 0013

;IS IT SET?
JFNCTY IS CLEAR
:CLEAR FNCT1
:TEST FNCT1

;WAS IT CLEAR

;FNCT1 WAS SET

{

667

670
671
672

001401

000005

000002

O01-APR-80

665

668

032777

666

;
i

001456

001001
104000
042777

MACY11 30A(1052)

..ttt"'.tttt.t'.t"Q.""""QQ"QQQ..'tttt'.tt.t'..'Qtt"t'.f..

669

673
676
675

676
677
678

679

23(1)

001462

001464
001472
001500
001502
001504
001512

001520

001522

104400

052777
032777
001001
104000
042777
032777

001401

000004
000004
000004
000004

686

685

HLT

6%
695
69
ggg

001546
001554
001562
001564

042777
032777
001401
104000

001544

104000

000010
000010

177270
177262

000010
000010

177250
177242

699

WAS IT CLEAR?

FNCTZ WAS SET

TEST10 TEST THAT FNCT3 CAN BE SET AND CLEARED

SCOPE
BIS
BIT
BNE

HLT

BIC
BIT
BEQ
HLT

701

713

JFNCT2 IS CLEAR
:CLEAR FNCT?
TEST FNCT2

#MBIT3,3DRST
#MBIT3,aDRST
.+

#81T3,3DRST
#8I1T3,3DRST
.+

JSET FNCT3
. sTEST FNCT3
+
IS IT SET?

SENCT3 IS C%EAR

sCLEAR FNCT
:TEST FNCT3
*WAS
IT CLEAR?
FNCT WAS SET

;;"ttttt.t't."t'ttt't't'ttt'tt'ttt.'t.t.t'ttt'tttt."tt"ttt'.'

700

712

#BIT2,3DRST
#B]T2,aDRST

:SET FNCT2
sTEST FNCT2
;IS IT SET?

..ttQ.tttQt"..t.'tQ"t"""'t"t.Q'...t.t.t'tttt.t't't.tt"tttt

104400
052777
032777
001001

‘

BEQ

#B]IT2,3DRST
#B]IT2,aDRST
.+

...t.tttttQt't.tt'.tt'tt"t't"tt"tt't.tttttttttt'..t"'t't!t'tt

001524
001526
001534
001542

HLT
BIC
BIT

104000

687
688
689
690
691
692

702
703
706
705
706
707
708
709
g?

BIS
BIT
BNE

177312
177304

686

693

SCOPE

177332
177324

eas

TEST7 TEST THAT FNCT2 CAN BE SET AND CLEARED

..'.'t""".'t...'tt""'t.t"ttQ"".tt'tt.'..t...'t"t"'."'t

001566
001570
001576
001604
001606
001610
001616
001624
001626

104400
052777
032777
001001
104000
042777
032777
001401
104000

TEST11 TEST THAT XBAI6 CAN BE SET AND CLEARED

:;.tt.t'ttt.ttttttt.t.'Q"'t"tt...t.'ttttt'tt'tt'tttQ't..."t'tt

000020
000020

177226
177220

000020
000020

177206
177200

SCOPE
BIS
BIT
BNE
HLT
BIC
BIT
BEQ
HLT

#BI1T4,3DRST
#BIT4 ,aDRST
.+
#BIT4 ,3DRST
#B]T4,3DRST
A

;SET XBA16
;TEST XBA16
.IS IT SET?
JXBA16 IS CLEAR
;CLEAR XBA16
;TEST XBA16
:1S IT CLEAR
XBA16 WAS SET

MR AL AL L

RS L A

TEST12 TEST THAT XBA17 CAN BE SET AND CLEARED

e A

I s s

222222220

735

032777

000020

177144
177136

AL AR

001401

104400

743
764

001744
001752

032777
001001

000400

7646
747
7648
7649

001756
001764
001772
001774

042777
032777
001401
104000

000400
000400

760

002026

032777

177040
177032

010000

176776
176770

104400
052777

AR A

#BIT4,3DRST
#BIT4 ,ADRST

2222222232222

;1S
: XBA

;SET XBA17

7
EAR?
SET

2222232233

#BIT6,a0RST
fi{fé.WRST

222222232%;

2222233222 322223313

)

;1S IT SET?
;1E IS CLEAR
:CLEAR IE
sTEST IE

#BIT6,3DRST
IBII.T6.30RST

;1S IT CLEAR?
;1E WAS SET

ad ett
2222222322 23222322232
t
322

TEST14 TEST THAT CYCLE CAN BE SET AND CLEARED
A

#BI1T8,3DRST
Q{TS.NRST

22222323

22222222222

sSET CYCLE

sTEST CYCLE

<18 IT SET?
sCYCLE WAS CLEAR
;CLEAR CYCLE
sTEST CYCLE
;1S IT CLEAR?
sCYCLE WAS SET

“

#BIT8,3DRST
GzTS.ODRST
.4

eIl 2222222322222

TEST15 TEST THAT MAINT CAN BE SET AND CLEARED
AR s

BIT

TEST )GA}7

SCOPE
BIS
BIT
BNE
HLT
BIC

002040
002042

#BITS5,30RST
#BIT5,30RST

0000

010000

Al A

BEQ
HLT

767
768

TEST13 TEST THAT IE CAN BE SET AND CLEARED

177060
177052

759

SCOPE
BIS
BIT
BNE
HLT
BIC
BIT
BEQ
HLT
PR

104000
042777

AL AR

PR AR

001734

032777
001001

177102
177074

7641

002016

SCOPE
BIS
BIT
BNE
HLT
BIC
BIT
BEQ
HLT
MR

757

HLT

002006
002014

SCOPE
BIS
BIT
BNE
HLT
BIC
BIT
BEQ

177164
177156

001730

e w

000020

528 Qm

001660

001

PAGE 15

wvm

001

000040
000040

SEQ 0014
ML

1044

11:29

-n—-t;-n—
N~
~ -

001

01-APR-80 11:

01-APR-80

—

PENIY SRRNIP RIS

' CZDRBG.P11

MACY11 30A(1052)

-——"fi

' czumo CR11-B/DA11-8 NPR D A

#BIT12,30RST
lB{{T‘I?.i)RST
.4

#BIT12,3DRST
IT12,30RST

il 3223222222223222222232%

;SET MAINT
s TEST MAINT
;1S IT SET?
JMAINT WAS CLEAR
;CLEAR MAINT
s TEST MAINT

;1S MAINT CLEAR?
sMAINT WAS SET
eI

222322323223

2222232321%

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

;:'t'tt'ttt.lQt"'fitfi"""'t"..Qtt."'..t.'."!.tt..'Q'."

."'.

010576

176754

SCOPE
BIS

#10576 ,30RST

SET FOLLOWING: MAINT(12), CYCLE(08),IE
(06
XBA16(04) ,FNCT3(03) ,FUNC

11(61)

032777
001001

776
775
776
777
778
779

0020
002072
002074
002102
002104
002106

001001
1?3999
0O
001001
104
0327

176746

775 005080
0%srv? 000004
00209% 0

176734

000010

176722

000020

176710

000040

176676

000100

176664

000400

176652

780
781
782
783
784
785
786
787
788
789

790
791
792
793
794
795
796
797
798
799
800
801

002114
002116
002120
002126
002130
002132
002140
002142
002144
002152

002154
002156
002164
002166
002170
002176
002204
002206
002210
002216
002220
002222

001001
104
032
001001
104000
032777
001001
104000
032777
001001

104000
032777
001001
104000
042777
032777
001401
104000
032777
001401
104000
032777

802
803
804
805
806
807
808
g?g

002230
002232
234
002242
002244
002246
002254
002256

001401
104000
032777
001401
104000
032777
001401
104000

811
812
813
814
815
816
817
818
819
820

260
002266
002270
002272
002300
002302
002304
002312
002314

032777
001401
104000
032777
001401
104000
032777
001401
104000

821

822
823
824
825

#BIT1,30RST
.44
#BIT2,3DRST
4

#BIT3,3DRST
YA

#8174, RDRST

#BITS,3DRST
4

#BIT6,3DRST
44

#B]T8,3DRST
.+

176640

010576
000002

176626

176620

#10576,@0RST
#BIT1 ,aDRST

000004

176606

#81T2,3DRST

000010

176574

#BIT3,3DRST

000020

176562

#BIT4 ,QDRST
.+

000040

176550

#BIT5,3DRST

000100

176536

#B1T6,aDRST

000400

176524

010000

176512

#BIT12,30RST
.+

#BIT8,aDRST

#BIT12,30RST
.+

HLT
AR Al s

104400

010009

002316

11:29

—

000002

—T g
g T —

002050
002056

01-APR-80

——

770
771

MACY11 30A(1052)

PEPREPDZ et =t Ll

CZDRBGO DR11-8/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

RS A

PAGE 16

SEQ 0015

sTEST FNCTY
;1S IT SET?
JENCT1 IS CLEAR
JTEST FNCT?2
IS IT SET?

JFNCT2 IS SLEAR
sTEST FNCT
;IS IT SET?

JFNCT3 IS CLEAR

;TEST XBA16

;IS IT SET?
;XBA16 IS CLEAR
;TEST XBA17
;IS IT SET?

;XBA17 IS CLEAP

JTEST IE
;IS IT SET?
;IE IS CLEAR
JTEST CYCLE

;1S CYCLE SET?

;CYCLE IS CLEAR
;TEST MAINT

;1S MAINT SET?

JMAINT IS CLEAR
;CLEAR ALL R/W BITS IN DRST
sTEST FNCT1
;IS FNCT1 CLEAR?

sFNCT1

IS SET

sTEST FNCTZ2
;1S FNCT2 CLEAR?
JENCT2 IS SET
sTEST FNCT3
;1S FNCT3 CLEAR?
;FNCT3 IS SET
;TEST XBA16
;1S XBA16 CLEAR
;XBA16 IS SET
;TEST XBA17
;1S XBA17 CLEAR?
:XBA17 IS SET
;TEST IE

;1S 1E CLEAR?
J1E IS SET

:TEST CYCLE
;IS CYCLE CLEAR?
sCYCLE IS SET
sTEST MAINT
;IS MAINT CLEAR?
JMAINT IS SET

2322222222222

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

SCOPE

222322322223

THAT READY

CZDRBG.P1

01-APR-80 11:25

(ZDRBGO DR11-B/DA11-8B NPR DIA

826

827

828
829
830
831
asi
833
83

002320

012767

000010

MACY11 30A(10527

11:29

PAGE 17

’

”10 ;CMT

176464

MOV

aDRST, X1

XBA16(04) .FNCT3(03) .FNCT2(02) ,FNCT(O1)
nove (DRST) TO R1

002346 001401
002350 104000
002352 004767 010040

BEQ
HLT
JSR

*WERE ALL DRST R/W BITS SET?
*NOT ALL BITS WERE SET

052777

010576

002334

017701

002;22 052701
002
005201

835

002356

000005

837

002364

042701

836 002360

838 002370
g‘sg 002372

017701

001401
104000

176470

BIS

167201

BIS
INC

RESE1

176440

MOV

127200

BIC

BEQ
HLT

#10576,30RST

n67261,%1
3
%7.CKSWR
@DRST, X1

c127260 1

;SET FOLLOWING: MAINT(12),cva§<oa),1E(06) ,XBA17(05)

*SETS BITS IN R1 THAT WERE NOT SET IN DRST
*R1 SHOULD GO FROM =1 TO ZERO

;CLEAR ALL DRST R/W BITS

*MOVE (DRST) TO R1

“CLEAR ALL BITS EXCEPT R/W BITS. NEX. AND GO

:SHOULD EQUAL ZERO
*RESET DIDN'T LEAVE DRST AS IT SHOULD HAVE

8‘1

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

8‘3

::Q.tt."..'.'Q'fi."..""'"'.".l.Q.....'....'....Q"".""Q"

842
84

:
002374

104400

85
846

002376
002404

012767 004000
012777 052525

002420

001401

002426

012777

002440
002442

001401
104000

847

849

850
851

852
ggz

002412

0026422

002432

022777
104000

022777

052525

125252
125252

TEST20 CAN DRWC HOLD ALTERNATE ONE'S AND ZERO'S

SCOPE

007770
176406
176400

MOV
MOV

#4000, I COUNT
#052525,3DRWC

:ALT 0'S AND 1'S TO DRWC

BEQ

*DOES DRWC MAVE THE CORRECT PATTERN?

oTM

HLT

176366
176360

ocszszs @ORWC

MOV

#125252,30RWC

BEQ
HLT

#125252.3DRWC

:LOOKING FOR Z-BIT TO SET

*DRWC DOESN'T HAVE THE CORRECT PATTERN

:ALT 1°'S AND 0'S TO DRW(C

:LOOKING FOR Z-BIT TO SET

:DOES DRWC HAVE THE CORRECT FATTERN?
*DRWC DOESN'T HAVE THE CORRECT PATTERN

855

:;.Q'tt.Q'..t'.ttQt"'"'"""t."'.".Q.'Q...."..'..QQ"..t..'

857

;;'t.Q...Qtfi......".""'""""...."'t.'..'...'.t..'fi".'."Q

856

858

002444

860

002454

862

002464

104400

859 002446

012777

861

001401

863

002462

022777
104000

002466

012777

002502

001401

864

002474

g{;

002504

865

022777

052524
052524

125252
125252

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

SCOPE

176346

176340

MOV

#052524 ,@DRBA

BEQ

L+

HLT

176326
176320

MOV

#125252,3DRBA

BEQ

L+

104000

#052504.30RBA

HLT

#125252.3DRBA

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

:LOOKING FOR Z-BIT TO SET

*DOES DRBA HAVE THE CORRECT PATTERN?

*DRBA DOESN'T mvs THE CORRECT PATTERN

:ALT 1'S AND 0'S

TO DRBA

:LOOKING FOR 2-BIT TO SET

:DOES DRBA HAVE THE CORRECT PATTERN?

*DRBA DOESN'T HAVE THE CORRECT PATTERN

868

::"..'...'t.'t..'".t'"""".....'Q'.".".Q.'".".Qfi""'."

870

;;"t".it.t.lt"".t""""...tQt"t..t'.'t."t'..".fi'.'t"."

869
871
872
873

874
875
876

877
878
879

880

SEQ 0016

MOV

002326

010046

O01-APR-80

002506
002510
002514

002516
002522
002526

002530
002532
002536

002540

104400
005067
005001

005077
020177
001401
104000
005277
005201

001370

SCOPE
CLR
CLR

007660

176276
176272
176262

TEST22 INCREMENTING PATTERN TO WRAP-AROUND IN DRW(

INCWC:

CLR
(MP
BEQ
HLT
INC
INC

BNE

1COUNT
1

aDRWC
1. aDRWC
.+
- aDRWC
11

INCWC

:SET-UP

SSET-UP
*SEE IF THEY ARE EQUAL
SARE THEY EQUAL?
STHEY'RE NOT EQUAL
SGET NEXT NUMBER
“GET NEXT NUMBER

. :DONE WITH TEST?

IF NOT CONTINUE

CZDRBGO DR11-8/DA11-B NPR DIA
(ZDRBG.P11
01-APR-80 11:25

MACY11

11:29

PAGE 18

TEST23 INCREMENTING PATTERN TO WRAP-AROUND IN DRBA

:.-t't'tt".t't.'tt'."t"t""'..".t'.'."..'QQ'Q'QQ"'.tt"t."

002542

104400

886 %su. 005001
887
546 005077
888
889
890
891
aog
gg‘

01-APR-80

.'."tt""QQ"Q'..Q'."""""'Qtt'tt".tt.'t't..t'."'.tt.tt'tt'

885

30A(1052)

002552
002556
002560
002562
002570
002574

020177
001401
104000
062777
062701
001366

SCOPE

176250
176244

000002
000002

INCBA:

176232

895

CLR
CLR

(MP
BEQ
HLT
ADD
ADD
BNE

1
aDRBA

%1,aDRBA
.+

#2.3DRBA
#2.%1
INCBA

;SET=-UP
SSET=UP

*SEE IF THEY ARE EQUAL
*ARE THEY EQUAL?
STHEY'RE NOT EQUAL
SGET NEXT NUMBER
*GET NEXT NUMBER
:DONE WITH TEST? IF NOT CONTINUE

:;t.t!t.t"ttl'lttt.Q't"""'t'.t't'ttt.tt'.tt"""t'."..tt'.'

":t't.t'.'fi..".Qtttt.""."'.tttt"...Q.ttt..'.t't..tt."'Q'QQ'

897

899

;
002576

104400

900
901
902
903

002600
002606
002614
002622

012767
012777
032777
001010

004000
000340
000200

906

002632

032777

000200

904
905

907

002624
002630

002640

908

002642

910

002652

909
911

912 002660
913 002666
914 0026764
915 002702

004767
000005

001001

012777 002722

000126

012777
016777
052777
000240

177777
176150
000101

176132
176126
176122

000100

002704
002706
002710

000240
000240
000240

920
921
922
923
3%

002712
002720
002722
0027264
002732

042777
000405
022626
042777
104000

919

000100

176104
176072

#BIT7,8DRST

HLT

MOV

IRRRRRRRARR

CHGG1:

MOV
MOV
BIS

NOP

JRRRRRRARAN

P7ERR:

BIC
B8R
(MP
BIC

HLT

:STATUS AT LEVEL 7
*CHECK READY BIT
SIS IT SET
;INIT TO SET READY

:SEE IF READY IS SET NOW

:1S READY SET?

*READY CAN'T BE SET BY INIT

#P7ERR,3DRINV :SET UP INT VECTOR
#340,3#126

#-1,3DRWC
INBUF , aDRBA
#101,30RST

;SET WORD COUNT TO =1
*SET BUSS ADDRESS LOC

#81T6,aDRST
X1
(X6)+, (%6)+
#BIT6,aDRST

;:DR11-8 DIDN'T INTERRUPT - CLEAR IE

:SET I.E. AND GO BITS

SALLOW 11760 TIME TO INTERRUPT

;RESTORE STACK

:CLEAR IE

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

::.'tt.'.ltt'tttt.tttt"'t"'t".'t.ittt.l.'tt.t..t'.t"t'.'t...'

927

928

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

";"fit'ttt'.tttt!tttt'tt"'t"t'ttt.ttt'ttttt'.t.tt'ttt"'!t.'ttt

002734

930
931
932

002736
002744
002752

935
936
937

002762
002770
002772

932
934

BIT

X7.CKSWR

NOP
NOP
NOP

926

929

#4000,
I COUNT
#340,3PSW
#BIT?,3DRST
P7INV

BNE

176162 P7INV:

000340

MOV
MOV
BIT
BNE

JSR
RESET

176164

012737

916
917
918

SCOPE

007566
176202
176202

007566

104000

TEST2S TEST THAT DR11-8 DOES NOT INTERRUPT WITH PROC AT LEVEL 7

002754
002760

104400

012777
032777
001010

000300
000200

032777
001001
104000

000200

004767
000005

176052
176052

007436

176034

X1:

SCOPE

MOV
BIT
BNE

#300,3PSW
#BIT?,30RST
POINV

BIT
BNE
HLT

#B1T7,3DRST
R

JSR
RESET

%7.CKSWR

:STATUS AT LEVEL 6
*CHECK READY BIT
SIS IT SET?
;INIT TO SET READY

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

‘

SEQ 0017

CZDRBGO DR11-B/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

003052
000340
177777

176020

000101

MACY11 30A(1052)

01-APR-80

11:29

'’

PAGE 19

SEQ 0018
176032

P6INV:

176002
175776
175772

CHGG2:

000126

MOV

#340,3#126

#PGERR,ORINV

;SET UP INT VECTOR

MOV

#-1,30DRWC

;SET WORD COUNT TO =1

BIS
NOP

:Q""..QQ'

MOV

INBUF , 3DRBA

#101,@DRST

:SET BUSS ADDRESS LOC
:SET I.E. AND GO BITS
SALLOW 11760 TIME TO INTERRUPT

g‘x‘c

:gnb.aonsr

;:DR11-8 DIDN'T INTERRUPT - CLEAR IE

(MP
BIC

(36)+,(%6)+
#B1T6.aDRST

;RESTORE STACK
*CLEAR [E

NOP
NOP
NOP

;t."ttt..'

000100

175754

000100

175742

P6ERR:

HLT

:DR11-8 INTERRUPTED, BUT

IT SHOULDN'T HAVE

;:t"'.t'.'t"."t'tt."'ttttt.t.'..Qtt"'t"'.'..t..'i...'t'.t.'

TEST27 TEST THE DR11-8 INTERRUPT WITH PROC AT LEVEL

:'.'tt.tfi.'ttQ.'...'t'.'."Q"'.Qttt'.t.tt'.'t.t..'t.'tt.""'t't

175722
175722

X2:

SCOPE

MOV
BIT
BNE

#240,3PSW
#BIT7,aDRST
PSINV

;STATUS AT LEVEL §
:CHECK READY BIT
SIS IT SET?

BIT
BNE
HLT

#B1T7,3DRST
.+

*SEE IF READY IS SET NOW
SIS IT SET?
:RDY CAN'T BE SET BY INIT

BIC

#177770,TEMP

JSR

175704
175744
175736

%7.CKSWR

RESET

PSINV:

MOV

175666

000126

asr, TEMP

*GET SWITCH SETTINGS

MOV
MOV

#PSERR,@DRINV
#340, 4126

:SET UP INT VECTOR

MOV

#-1,3DRWC

BIS

:'t"!.tt.t

175636
175632
175626

CHGG3:

;INIT TO SET READY

MOV

;SET WORD COUNT TO -1

INBUF , 3DRBA

#101,3DRST

*SET BUSS ADDRESS LOC
:SET I.E. AND GO BITS
:ALLOW 11760 TIME TO INTERRUPT

BIC

#B1T6,@DRST

;:DR11-8 DIDN'T INTERRUPT - CLEAR IE

gkr

:DR11-B WITH BR = 6 SHOULD HAVE INTERRUPTED

(X6)+,(%6)+

:RESTORE STACK

NOP
NOP
NOP
NOP

:t.ttt..tt.

175€10

P
BNE

175654

>
175564
175630

PSERR:

BIC
P
HLT

#6, TEMP
18

(MP

BEQ
ML

:ISOLATE BR LEVEL

‘BR LEVEL = 6 ?
*NO, EVERYTHING IS OK

#BIT6.3DRST
#6., TEMP
.

:CLEAR IE
‘BR LEVEL = 6 ?

*YES, EVERYTHING IS OK

*DR11-B WITH BR NOT = 6 SHOULD NOT HAVE INTERRUPTED
e

I3 222322232222222228

TEST30 TEST THE DR11-B INTERRUPT WITH PROC AT LEVEL 4

003252
56

1 0“09
012777

032777

000200

175534
175534

000200

175516

175476
177770
003424
000340

175556
175550

000200

%4769 007120
101

000005

177777
175466
000101

175500
000126
175450
175444

x$:

P4INV:

2
PAGE 20

#200,aPSW
#BIT?,QDRST
P4 INV
%7.CKSWR

BIT

#B]T7,3DRST

MOV
BIC

askR r;m
#177770,TEMP

:GET SWITCH SETTINGS
:ISOLATE BR LEVEL

#-1,30RWC
INBUF , @DRBA

:SET WORD COUNT TO -1
:SET BUSS ADDRESS LOC

BNE
HLT

;.'tt.t".t

CHGG4:

175440

MOV
MOV

BIS

SEQ 0019

#PLINT ,@DRINV
#340,a4126

JINIT TO SET READY

:SEE IF READY [S SET NOW

:IS IT SET
:READY CAN'T BE SET BY INIT

;SET UP INT VECTOR

;SET I.E. AND GO BITS

CLR

aDRST

:CLEAR [E

BEQ
HLT

NOP
NOP

;STATUS AT LEVEL &
:CHECK READY BIT
:IS IT SET?

#101,3DRST

NOP

VNV

11:29

SCOPE
MOV
BIT
BNE
JSR

MOV
MOV

d
b o
b

—

O01-APR-80

RESET

WNN=C

D e o

(elelelelololoslolols)

'
MACY11 30A(1052)

:'Q.Qtt"..'t'l"..tt'.""""t"""t"'."'tt't.t'tt"'tt.'t"

i el i il

CER LR
P R RS

(ZDRBGO DR11-8/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

;ALLOW 11/60 TIME TO INTERRUPT

NOP
:'Qtt"ttt.

175424

000126
000004

175426
175462

18:
P4LINT:

000026
175374

000126
000004

MOV
TMP

175374
175430

JMP
CLR
TM
MOV

CTMMP

BNE
HLT

#126 ,aDRINV
#4, TEMP

X4
aDRST
(26)+,(%6)+
#126,3DRINV
#6, TEMP

;RESTORE INTERRUPT VECTOR
:BR LEVEL = & ?

:YES, EVERYTHING IS OK
:DR11-8 DIDN'T INTERRUPT

;CLEAR IE
:REPOSITION THE STACK AFTER AN INTERRUPT
:RESTORE INTERRUPT VECTOR

:BR LEVEL = 4 ?

:NO, EVERYTHING IS OK
;:DR11-8 WITH BR = 4 SHOULD NOT HAVE INTERRUPTED

;;Q.'ttQ."'Qtt'."'t.'t"""'tQttt"t"t..'tttt'ltt"'Qt'.'tt

;

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

;;t..ttt'tt'tttt't.'.tt""t".ttt"t.t'.tt't't"'ttt'.Q.tt'tt"t

000140
000200

175334
175334

X6:

006720

SEZRERER

JSR

RESET

175316

1041

003604
000340
177777
175302
000101

SCOPE

MOV
BIT
BNE
BIT

BNE

175314

P3INV:

175264

CHGGS:

000126
175260
175254

HLT

MOV

#1460, 3PSW
#BIT7,30RST
P3INV

:STATUS AT LEVEL 3
:CHECK READY BIT
:IS IT SET?

#BIT7,3DRST

:SEE IF READY IS SET NOW

%7.CKSWR

;INIT TO SET READY

;IS IT SET

:READY CAN'T BE SET BY INIT

MOV

#P3INT,@DRINV

#340,a#126

:SET UP INT VECTOR

MOV

- #-1,3DRWC

:SET WORD COUNT TO -1

BIS

#101,3DRST

;SET 1.E. AND GO BITS

:Q't'ttfi.tt

MOV

NOP

INSUF , 3DRBA

;SET BUSS ADDRESS LOC

;ALLOW 11760 TIME TO INTERRUPT

CZDRBGO DR11-B/DA11-8 NPR DIA

CZDRBG.P11
1050

1051

1052
105

01-APR-80 11:25

1057
1058
1059
1060
1061
}82%

30A(1052)

O01-APR-80

003552

000240

NOP

003556

000240

NOP
;Q"'QQ'.Q.

oogssz. 000240

003572

003576
003600
003604
003610
003612
003620

005037

104000
000167
005077
022626

012777
005037

11:29

PAGE 21

000126

175242

000020
175214
000126
000126

CLR
MOV

aDRST
#126,3DRINV

HLT
JNP
CLR
(MP

X5
aDRST
(36)+, (%6)+

CLR

P3INT:
175214

MOV
CLR

w126

#126,3DRINV
126

;CLEAR IE
*RESTORE INTERRUPT VECTOR
JRESTORE TRAP CATCHER

“DR11-8 DIDN'T INTERRUPT

;CLEAR IE
*REPOSITION THE STACK AFTER AN INTERRUPT

JRESTORE INTERRUPT VECTOR
*RESTORE TRAP CATCHER

1
1&2

::'tttt'.tt.tt".ttt.'tt"t'."".t..t'.Q'.Qtt"t.t'.'..tt't.'t'.

1%7

.' M

1066

1068

003624

104400

1069

003626

005077

1071

003640

001401

1070
1072

1073
1076
1075

1076
1077

003632

003642

003644
003652
003660

032777
104000

052777
032777
001001

003662
003664

104000
032777

1079

003674

104000

1081

003702

052777

1083

003716

001001

1078
1080

1082
1084
1085

003672
003676

003710
003720

001401

005077

032777
104000

003722

032777

1087

003732

104000

1089

003740

052777

1091

003754

001001

1093

003760

032777

1095

003770

104000

1086
1088

1090

1092

109

1096

1m7

003730
003734

003746

003766
003772

001401

005077

032777

104000

001401

005077

175172

000016

175164

000002
001000

175152
175144

006000

175132

175122

000004

00S000

175074

004000

003000

1102
1103
11046
1105

BEQ

.44

*FUNCTION BITS CLEAR?

#BIT1,30RST
#BIT9.aDRST
.+

“SET FNCT1
*CHECK DSTAT
*IS IT SET?

HLT
BIT

BEQ

*FUNCTION BITS NOT CLEAR

*DSTAT C IS CLEAR
;CHECK THAT DSTAT A AND DSTAT B ARE CLEAR

CLR

aDRST

*CLEAR DRST

BIT

#BIT10,aDRST

BNE

HLT

BIT

BEQ

SIS IT SET?

#5000,3DRST

;CHECK THAT DSTAT A AND DSTAT C ARE CLEAR

BIT

#BIT11,3DRST

BNE

HLT
BIT

BEQ
CLR

;SET FNCTZ2

aDRST

BIS

;DSTAT A AND/OR DSTAT B IS SET

#BIT2,aDRST

CLR

HLT

175026

#6000,3DRST

*CHECK FUNCTION BITS

*ARE THEY CLEAR?

BIS

175036

#16,3DRST

. +4

HLT

#BIT3,aDRST

:CHECK DSTAT
B

:DSTAT B IS CLEAR

*ARE THEY CLEAR?

*DSTAT A AND/OR DSTAT B IS SET

*CLEAR DRST
*SET FNCT3

:CHECK DSTAT A

.44

2IS IT SET?

#3000,3DRST

JCHECK THAT DSTAT B AND DSTAT C ARE CLEAR

*DSTAT A IS CLEAR

*ARE THEY CLEAR?

aDRST

*CLR DRST

*DSTAT B AND/OR DSTAT C IS SET

.'."tttQttttttttttt.tt""""tt'ttttt"t.t."'.'..""'."'t"..t

1100

;CLEAR FUNCTION BITS

BIS
BIT
BNE

175050

2222222332332 333232332222222222222222222222]

aDRST

HLT

175056

CLR

BIT

175114

175106

000010

SCOPE

HLT

002000

175064

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

x5:

1098

1101

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

:_"tttttttttl..tt'ttt't"'"'ttt..'tt.t'tt..'fitttt..Q.t'."tt't.t

003776

004000
004004
004006
004014
004016

104400

005777
100027
032777
001401
104000

SEQ 0020

NOP

1054 003560 005077 175240
1055 003564 012777 000126
1056

MACYI!

175020
020000

INPR1:
175010

SCOPE

TST

BPL
BIT
BEQ
HLT

aDRST

NPRRDY
#BIT13,80RST
A

;CHECK ERROR BIT

*IS IT CLEAR?
:CHECK ATTN
;1S ATTN CLEAR
CATTN IS SET

(ZDRBGO DR11-B/DA11-8 NPR DIA

CZDRBG.P11

1106

1107
1108

1109
1110
1111
111%
1113
1114
1115
1116
1117

1118
1119
1120
1121
1122
1123
1126
1125
1126
1127
1128
1129

1130
1131
1132
1133
1134
1135
1136
1137

1138
1139
1140
1141
1142
1143

1144

004
0040

0040
004044
004046
004050
004054
004060
004062
0046064
004072

004100
004104
004112
004120
0041§g
0041
004140
004144
004150
004152
004154
004156

004162
004166
004170
004172
004200
004202
004204
004212

004214
004216
004222
004224
004226
004232

01-APR-80 11:25

;

MACY11 30A(1052)

032777

040000

174776

032777
001401
104099
0050
005777
0014601
104000
012777
012777

040000

174766

00141
042

005077
012767
012777
012777
005077
012777
005067
005227
001375
104000
000424
004767

005777
001401
104000
022777
001401
104000
022777
001401

104000
004767
022626
000403
005077

000662

174760

174746
174744
177777

001036

174722
052525
004156
000005
174664
000101
000002
000001

174726

174722

18:

INTB:

001040

174622

052525

174614

0032054
174572

1156
1157
1158

1159
1160
1161

004312
004316
004322
004324
004326
004330

005067
005227
001375

104000
000424
004767

177777
001036
174560
052525
004330
174534
174512
000103

000002
000001

003032

174554
174550

11:29

PAGE 22

MIT14,30RST
N1413
#MIT14,30RST
#MIT14,30RST
.,

aDRBA
aDRST
.+
#-1,3DRW(

#NPR1 ,3DRBA

aDRD8
#52525 ,NPR1
#INTB,aDRINV

#5 ,3DRVS
aPSW
#101,3DRST
1842
”
1%

SEQ 0021

s CHECK NEX

;IS NEX CLEAR?
;TRY TO CLEAR NEX
sCHECK AGAIN
JNEX STILL SET
sNEX CAN'T BE CLEARED BY MOVING A O TO IT
;TRY TO CLEAR BAOF
;CHECK ERROR BIT AGAIN
;IS IT CLEAR
;ERROR CAUSED BY SOMETHING OTHER THAN NEX,ATTN, OR BAOF
;SET UP FOR 1 TRANSFER
; TRANSFER FROM BUS ADDRESS IN NPR1

;GET READY TO RECEIVE DATA
;SET UP TRANSFER DATA
; INTERRUPT VECTOR TO INTB
s INTERRUPT PRIORITY TO LEVEL S
sLET THE DR11-8 INTERRUPT
;1E AND DO TO DRST
JWAIT FOR NPR AND INTERRUPT

;NO DR11-8 INTERRUPT
sCLEAR IE

T33CLR
X7 ,ERRCHK

aDRW(
.t

#NPR1+2 ,3DRBA
.+
#52525 ,aDRD8B
R
X7 ,NORMAL
(26)+,(%6)+
TNPRO
aDRST
TNPR1

sTEST DRW(C
;1S DRWC EQUAL TO ZERO?
sDRWC NOT EQUAL TO ZERO
;COMPARE CORRECT DRBA WITH DRBA
;IS THE DRBA CORRECT?
;DRBA IS WRONG
sCHECK FOR CORRECT DATA
;DATA GET TRANSFERRED?
;BAD DATA IN DRDB
JRESTORE STACK
;GO TO NEXT TEST
.CLEAR IE

(NPR OUT)

sTRY TEST AGAIN
AR AR R A AR A AR AR AN AR
N RN AR R R SRR AR AN AR AN TR

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

TNPRO:

SCOPE
MOV
MOV
CLR
MOV
MOV
MOV
CLR
MOV

SRR

104400
012777
012777
005067
012777
012777
016777
005077
012777

CLR
MOV
MOV
MOV
CLR
MOV
CLR
INC
BNE
HLT
BR
JSR

TST
BEQ
HLT
CMP
BEQ
HLT
M
BEQ
HLT
JSR
TMP
BR
T33CLR: CLR
BR

1146

004234
004236
244
004252
004256
004264
004272
004300
004304

BIT
BEQ
HLT
N1413:
(LR
TST
BEQ
HLT
NPRRDY: MOV
MOV

174664

1145

1147
1148
1149
1150
1151
1152
1153
1154
1155

BIT

BEQ
BIC

174724
174714
174702

003204
174632

O01-APR-80

174542
174542
174530

174512
1%:

INTC:

A A AR

CLR
INC
BNE

HLT
BR
JSR

AN AR R A AR

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

#-1,3DRW(
#NPR1,3DRBA
NPR1
#52525 ,8DRDB
#INTC ,aDRINV
DRINL ,aDRVS
aPSW
#103,3DRST

1842
”
18

T34CLR
X7 ,ERRCHK

;SET UP FOR 1 TRANSFER
s TRANSFER TO BUS ADDRESS IN NPR1
;GET READY TO RECEIVE DATA
;SET UP TO TRANSFER DATA
s INTERRUPT VECTOR TO INTC
s INTERRUPT STATUS TO LEVEL DRINL
;PROC STATUS TO ZERO
;IE, FNCT1(C1 CONTROL), AND DO TO DRST

JWAIT FOR NPR AND INTER
;JNO DR11-8B INTERRUPT
;CLEAR IE

(ZDRBGO DR11-8/DA11-B NPR DJA
' CIDRBG.P11
01-APR-80 11:25

115;
116
1164
1165
1166
Hg;
L1169

1170

MACY11

004334 005777
oon%zo 001401
004342 104
004?.4 022
004352 001401
004354 104000

001040

174450

004356

174454

052525

004364

026727

001401

30A(1052)

174460

1173
1174

1175
mg

004374
004376

004400
004404

022626
000403

005077
000713

aDRW(
YA

rmp

NPR1,#52525

PAGE 23

SEQ 0022

;TEST DRWC
*1S DRWC EQUAL TO ZERO?
:DRWC EQUAL TO ZERO
MNPR1+2,3DRBA : COMPARE CORRECT DRBA WITH DRBA
.+
:IS THE DRBA CORRECT?
:DRBA IS WRONG
.+

HLT
JSR

%7, NORMAL

P
B8R

174420

11:29

ST
BEQ
HLT
P
BEQ
HLT
BEQ

L1171 004366 104000
: 11;; 004370 004767 002702
L
.

01-APR-80

(36)+,(%6)+
135
aDRST
TNPRO

T34CLR: CLR
BR

;CHECK FOR CORRECT DATA

:CORRECT DATA TRANSFERRED?

*BAD DATA

;RESTORE STACK
:GO TO NEXT TEST
:CLEAR IE
:TRY TEST AGAIN

1178

::tttt".t't.ttt"t"""""'Qt.t'....t'..'.tt't".tttttt'ttt".

1180

1179

1181
1182
1183
1184

004406
004410
004416
004422

104400
012767
004767

1187
1188
1189

004440
004446
004454

016777
016777
012777

1185
1186

1190
1191
1192
1193
1194
1195
1196
”gg

oougz
004434

004462
004470
004476
004502
004510
004512
004520
004522

016767
005467

012777
016777
005077
012777
000777
022777
001401

000020
002416
174420

174430

174410
174370
177777

174352
174346
174344

174414
174414

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

7%s:

SCOPE

A AR AR

174420

007142
174336
174314
000101

174344
174332

000007

174306

A A AR AR

R R R R R AR AR AR AR AR RN

174314

104000

HLT

AR AR

#20,BUFLEN
27 . LODBUF
BUFLEN

;LENGTH OF BUFFER=20
:LOAD THE BUFFER WITH INCREMENTING PATTERN
*BUFLEN=10

WCLEN, @DRWC
INBUF , 3DRBA
#-1,3DRDB
#INTA,@DRINV
DRIFL.,@DRVS
aPSW
#101,8DRST
y
#7.aDRDB
.+

:SET
UP DRWC
:SET
UP DRBA
*MAINT AIDE

BUFLEN.WCLEN
WCLEN

MOV
MOV
CLR
MCV
BR
P
BEQ

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

:INT VECTOR TO INTA
*INT VECTOR TO PRIORITY DRINL
:LET THE DR11-8 INTERRUPT
*IE AND DO TO DRST
*WAIT FOR INTERRUPT
*CHECK THAT WORD #10 OF INBUF IS IN DRBA
IS IT?
*BAD DATA IN DRDB

11”

.';t'ttttt't'tt't.Q'tttttttt'tt'tttt'tttt.ttt.'t'tt".'ttttttttt"

1201

:;t'ttt"tt't.ttt.Qt't't"'"'tt'"t'ttttttttt'....ttt""t'tt"'

1200

1202

004524

1203 004526
1204 004534
1205 004540
1206 004544
1207 004552
1208 004556
1209 004564
1210 004572
1211 004600
1212
1213 004614
1214

1215

}g}g

004630

104400

012767
004767
7
016767

012777
016777
005077
012777

000020
002300
174302
174276
174276
174272
174;5
052525
007142
174220
174176
000103

004767

002464

016777
016777
012777

000777

174312
174302

174234
174230
174226
174226
174214
174176

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

SCOPE

MOV
JSR
ASR
MOV
NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV

c;o.aunsn
7. LODBUF
BUFLEN
BUFLEN.WCLEN
WCLEN
WCLEN, @DRWC
INBUF . 3DRBA
#52525,30RDB
#INTA,@DRINV
DRINL ,@DRVS
aPSw
#103,3DRST

;LENGTH OF BUFFER=20
*LOAD THE BUFFER WITH INCREMENTING PATTERN
*BUFLEN=10
-PREPARE NUMBER FOR DRW(
:2'S COMPLEMENT OF BUFLEN
*SET UP DRWC
:SET UP DRBA
:SET UP DRDB
:INTERRUPT VECTOR TO INTA
*INTERRUPT VECTOR TO PRIORITY DRINL
*LET THE DR11-8 INTERRUPT
“IE, FNCT1(C1 CONTROL), AND DO TO DRST

JSR

¥7.DATOCK

*CHECK INBUF

‘WAIT FOR INTERRUPT

CZDRBGO DR11-B/DA11-8 NPR DIA
- CZDRBG.P11
01-APR-80 11:25

MACY11 30A(1052)

O01-APR-80

11:29

PAGE 24

SEQ 0023

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

. A

o— b
~N N HN

~
~ SN

— —d

awg
Vi

R
Y W §

g & I8 d-‘ddds
§:xzy~§

rororRORONINININONY N
W
PIROTINININD
w

_‘-‘..n_n-n-a_a_o_a_a_.-o-‘_n

1218
150

TEST 37 STRING OF 200 DATI'S

SCOPE

iiii

2222323232323 22222322222223223%%3

174202

MOV

p;oo
BUFLEN

174176

MOV

BUFLEN, WCLEN

174130
174124
174122
174122

MOV
MOV
MOV

WCLEN,3DRWC
INBUF ,3DRBA
#-1,30RDB

;SET UP DRW(
:SET UP DRBA
:MAINT AIDE

sLET THE DR11-8 INTERRUPT

NEG

MOV
MOV

1764110

CLR

MOV
BR
CTMP
BEQ
HLT

174072
174064

;LENGTH OF BUFFER=200

;LOAD THE BUFFER WITH INCREMENTING PATTERN

:PREPARE NUMBER FOR DRW(C

WCLEN

2 S COMPLEMENT OF BUFLEN

#INTA,GDRINV
DRINL .@DRVS

:INT VECTOR TO INTA
:INT VECTOR TO PRIORITY DRINL

#101,3DRST

;1E AND DO TO DRST
JWAIT FOR INTERRUPT
;sCHECK THAT WORD #200 OF INBUF IS IN DRSA
318 17
;BAD DATA IN DRDB

0177.30RDB
A

'.ttttQtt't.ttt..t"t"'t""t"".'t'tt"..tt"Qt"tt'.ttt.'tt'.

TEST 40 STRING OR 200 DATO'S

..'."tt.t.'ttt.t.tt"tt"""tQ'.tt...'t""vt.t.t'tttttt'ttt"t

SCOPE

MOV

174070

174060

;LOAD THE BUFFER WITH INCREMENTING PATTERN
.BUF LEN=200

NEG
MOV

WCLEN
WCLEN,3DRW(C

:2'S COMPLEMENT OF BUFLEN
;SET UP DRW(C

MOV
MOV
MOV

CLR
MOV
BR
JSR

173754

BUFLEN,WCLEN

§885550 58
553
RN

narnornonY
~

N39S
TRIFRRER 2

O
R Y
p—p—

005056

173732

;PREPARE NUMBER FOR DRWC

m%v aDRBA
#52525,30RDB
#INTA,3DRINV
DRINL .@DRVS

*SET UP DRBA
:SET UP DRDB
- INTERRUPT VECTOR TO INTA
*INTERRUPT VECTOR TO PRIORITY DRINL

aPsSwW
#103,3DRST
"
X7 .DATOCK

;LENGTH OF BUFFER=201

¥ LODBUF
BUFLEN

MOV

174012
174006
174004
174004
173772

0201 +BUFLEN

JSR
DEC

;LET THE DR11-8 INTERRUPT
s1E, FNCT1, AND DO TO DRST
;WAIT FOR INTERRUPT
s CHECK INBUF

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

SCOPE

R LIIIoTTM

MOV
KWV
MOV
MOV

#-2,3DRW(C
:SET UP DRW(
DIOMEM, DRBA
:SET UP DRBA
#NEXCHK ,@DRINV ; INTERRUPT VECTOR TO NEXCHK
DRINL,@0RVS
: INTERRUPT STATUS TO LEVEL DRINL

MOV

#163,30RST

CLR

INC

HLT

NEXCHK: BIC
ST

BNE

HLT
TSTB

BNE

aPSW

SLET THE onn-e
5m

177560

‘WAIT FOR lmemr

#BIT6,aDRST
aDRST

@DRST

<IE, FNCTI,

xame AND GO TO DRST

*NO DR11-B INTERRUPT

*CLEAR INTERRUPT
*TEST DRST

*ERROR SET?

:ERROR NOT SET
*TEST FOR READY

JREADY SET?

ENABLE

CZDRBGO DR11-8/DA11-8B NPR DIA
| CZDRBG.P11
01-APR-80 11:25

SEHRSERCESR
R AR R RN P LT I L BJ3JA

173626

002072

D el

D i
D

040000

HLT
BIT
BNE
HLT
BIC
cMP
JSR

11:29

PAGE 25

#BIT14,30RST

(36)+, (%6)+
7 . NORMAL

SEQ 0024

;READY ISN'T SET
-CHECK NEX
INEX SET?
‘NEX 1S CLEAR
:CLEAR NEX
*RESTORE THE STACK
t".'

:
:

TEST 43 TEST THAT CROSSING A 32K BOUNDRY DOES NOT CAUSE
A BAOF AND DOES NOT FORCE AN ERROR

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

.t'

d e el

SCOPE

)

173546

000100

173532

) e e

173524

MOV
MOV
MOV
MOV
MOV
CLR
MOV
INC
HLT
BAOFCK: BIC
cMP
ST
8MI

HLT
TSTB

173514

8M]

HLT
BIC

040000
060000

BIT

BEQ
HLT

TST
8PL

173464

HLT
CLR
JSR
RESET
JSR

173452

005350

005042

005356

001714

—_

BRRERREKRY

01-APR-80

:;'.t......""...'I'.""Q"'ifit.tt'."....t.'.'..'....tt'.

) —d —
b
D d
)
) D
e

) e

B ol e

WNWWNWW
NN NN

D el
i
)

173640

040000

d el

1274

—

MACY11 30A(1052)

000010

177777
005012

173414

005002
173426

AR R

#10, 1COUNT
#-20, 3DRWC
#-2, 3DRBA
#BAO
CK ,@DRINV
F
DRINL , 8DRVS
aPSW
#163,3DRST
177560
#BIT6,aDRST

(X6)+. (26)+
aDRST
.+

*CLEAR INTERRUPT

*RESTORE THE STACK
STEST DRST
*ERROR SET?

@DRST

*ERROR NOT SET
*TEST FOR READY

#BIT14,30RST

*READY ISN'T SET
-CLEAR NEX

sARE THEY CLEAR?

#60000,30RST

aDRST
.+

aDRBA

X7.CKSWR
%7 . NORMAL

;SET UP DRWC
*SET UP DRBA FOR PROC STATUS ADDRESS
: INTERRUPT VECTOR TO BAOF CK
:INTERRUPT STATUS TO LEVEL DRINL
:LET THE DR11-8 INTERRUPT
:IE, FNCT1, XBA17, XBA16, AND GO TO DRST
‘WAIT FOR INTERRUPT
*NO DR11-8 INTERRUPT

ENABLE

*READY SET?

:CHECK NEX AND ATTN

*NEX AND/OR ATTN IS SET

*TEST FOR ERROR
*1S ERROR CLEAR?
*ERROR IS SET
:CLEAR BUS ADDRESS REGISTER
SINIT

2233223222 22222223322%

TEST 44 TEST THAT RESET CLEARS DRDB

Al eIy
T332 33222222223
l
23 33331
Y

SCOPE
MOV
MOV
JSR
RESET
TST
BEQ
HLT

#10, ICOUNT
#-1,3DRDB

X7.CKSWR

aDRDB

;ALL ONES TO DRBA

SINIT
;LOOKING FOR Z-BIT TO SET
:DID DRDB GET CLEARED?
:DRDB NOT CLEAR

::'l.'..t'.l'tt'..tttt""""..Qfifit.'..."t..'t.."t'

.""'.'.t'

—

CZDRBGO DR11-B/DA11-8 NPR DIA

' CZDRBG.P11

01-APR-80 11:25

MACY!

| 151
‘ }
8855216 (111 767
746
| 1% 0054 015777 ?9'9399 173372
|

1335 005434

005442
005444

1343
1364
1345

005450
005456
005464

012777
022777
001401

052525
052525

173350
173342

1348

005476

022777

125252

173330

134.§

1346
1347

1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371

1376
1377
1378
1379
1380
1381
1382
1383
1384
1385

001401
104

O01-APR-80

11:29

SCOPE
MOV
MOV
v
BEQ
HLT

104000
70 012777

005504
005506

001401
104000

#6000,
I COUNT
#-1,3DRD8
#-1,8DRDB

SCOPE

MOV
TM
BEQ
HLT
MOV
v
BEQ
HLT

173322

#125252,30RDB
#125252,30RDB
.+

INCDB:

173266

000200

173242

177577

173230

ICOUNT
14

CLR
(MP
BEQ
HLT
INC
INC
BNE

aDRD8
Z1,3DRDB
.+
aDRDB
14
INCDB
L

JSR

27.CKSWR

BIT
BNE
HLT

#BI1T7 ,3DRST
.+

BEQ
HLT

BIT

#177577 ,8DRST

104400
012767

004000
000001

004564
173204

;SET-UP

;SET-UP
;SEE IF THEY ARE EQUAL
sARE THEY EQUAL?
sTHEY'RE NOT EQUAL
sGET NEXT NUMBER
:GET NEXT NUMBER
;DONE WITH TEST? IF NOT CONTINUE
T

SINIT

s CHECK DRST
;1S READY SET?
;READY IS CLEAR
;CHECK DRST

;ARE THEY ALL CLEAR?
;A BIT OTHER THAN READY IS SET IN THE DRST
T

T Ly

TEST 51 TEST THAT BAOO READS AS A ZERO WITH MAINT BOARD INSERTED

e AR AR AR

005600
005602
005610

RESET

TEST 50 TEST THAT RESET SETS READY AND CLEARS ALL OTHER
DRST BITS (WITH M968 INSERTED)
SCOPE

004644

sLOOKING FOR Z-BIT TO SET
;DOES DRDB HAVE THE CORRECT PATTERN?
;DRDB IS WRONG
;ALT 1'S AND 0°'S TO DRD8
;LOOKING FOR Z-BIT TO SET
:DOES DRDB HAVE THE CORRECT PATTERN
:DRDB IS WRONG

L T

CLR

173302
173276

;ALT 0°S AND 1°S TO DRDB

TEST 47 INCREMENTING PATTERN TO WRAP-AROUND IN DRDB
SCOPE
CLR

004656

:
:
104400
004767
000005
032777
001001
104000
032777
001401
104000

RE R RNRAAAAAAAAAAANAANRAANAAARCARAAA
AN

#052525 ,30RD8
0222525.”08

005544
005546
005552
005554
005562
005564
005566
005574
005576

;LOOKING FOR Z-BIT TO SET

sSEE IF ALL BITS GOT SET
sALL DRDB BITS AREN'T SET

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

:
104400
005067
005001
005077
020177
001401
104000
005277
005201
001370

sSET ALL BITS IN DRDS

AR AR AR RN A AN AN AN A AR RN NN RAARAAAARANRAAANANAAAARARCA
AN

005510
005512
005516
005520
005524
005530
005532
005534
005540
005542

SEQ 0025

AR RN A AR R AN AR AN AR

104400

PAGE 26

TEST 45 TEST THAT ALL DRDB BITS CAN BE SET

173364

133
1337
1338
1339
1340
1341

1372
1373
1374
1375

r——

022777 177777

30A(1052)

SCOPE

MOV
BIT

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

#4000,
1 COUNT
#81T0,aDRBA

AR AR AANRANN

;TEST BIT 0 OF DRBA

ek
b
e
e

01-APR-80

BEQ

001401
104000

HLT

11:29

PAGE 27

;1S
:BAOO

SEQ 0026
IT CLEAR?
IS SET

2332222233222 22222322 2323322333233 3333223322020 2002ttt

lldd)

TEST 52 TEST THAT GO CLEARS READY

005646
005652

005654
005656

005670
005672
005674
005700
005704
005706
005714
005716
005720
005722

173140

173134

(¥Te 0

—d \ )

#4000, ICOUNT

—

#-200,3DRW(
INBUF ,3DRBA
a@DRST
.+

173156
173120
000004

SCOPE

000011

004000
177600
173176
173152

104400
Q12767
012777
016777
105777
100401
104000
012777
105777
100001
104000
005067
105777
100406
062767
100401
000770

—

005622
Q05624

3222222232222 222223 2232222223233 2333222222202 dddddildldlllllll)

#11,3DRST
a@DRST

RDYCHK
aDRST
DONE

TSTRDY:

#4 ,RDYCHK

173142

.“

TSTRDY

104000
000240

;SET=UP DRW(
;SET-UP DRBA

;CHECK READY
;1S READY SET?
:READY IS CLEAR

:FNCT3 (NON-BURST) AND GO TO DRST
:C'fCK READY

:1S READY CLEAR?
;READY IS STILL SET
;CLEAR READY CHECK
:CHECK READY
;IF SET GO _TO DONE
:CHECKING TIME FOR READY TO BE SET

;IF RDYCHK GETS NEGATIVE IT TOOK TOO LONG
:CHECK AGAIN

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

D('f'

lt.'.QQ.tt.t.t.ttt"tt"'ttQQ'QQC.Q..QQ..."Q..QQQ'..'t.""tt'

“TEST 55 TEST THAT GIVING A DO WITHOUT CLEARING A PREVIOUS ERROR
*CAUSES ANOTHER INTERRUPT
Fm THIS TEST, THE NORMAL INTERRUPT MECHANISM SHOULD BE WORKING

~N O VIS

R 3 F O R oF

005616
005620

MACYTT 30A(1052)

- -

b —

X X

-l

WN=O

385R5R0R22¢8 3 FIREE 2888rsé

' CZDRBGO DR11-8/DA11-B NPR D g
01-APR=-80 11:
. CZDRBG.P11

.".t'....'t.'..'.""""".fi.t...'.'."...'t'.'.'t"'t...t'.'

005726

104400

005726
00573
005742
005750
005756
005762
005770
005774
005776
006002
006004
006006

012777
016777
012777
012777
005077
012777
005277
104000
005777
100401
104000
012777

006020
006026
006034
006040
006044
006050
006052
006054
006060
006064

042777
012777
005277
005067
005227
001375
104000
162706
005777
100401

006014

SCOPE

177760
173100
005776
000140
173034
000163
173064
173022

006060

77 173002

1
172764
000002
000001

000004
172740

ERRDO:

#-20,3DRW(
DIOMEM,3DRBA
INV
DRO,
#ERRD
#140,3DRVS
aPSw
#163,3DRST
arks
aDRST
.+

173020

#ERRDO1 ,@DRINV

172776
172764

#62 ,aDRST

aDRBA

#-1,3DRWC

;SET=UP DRW(
:SET-UP DRBA

; INTERRUPT VECTOR TO ERRDO
:INTERRUPT STATUS TO LEVEL &
DR11-B INTERRUPT
:LET THE
;1E, XBA17 ,XBA16,FNCT1 AND GO TO DRST

:WwAIT FOR INTERUPT

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

s INTERRUPT VECTOR TO ERRDO1

:PREVENT CAUSING ANOTHER ERROR

;CLEAR XBA17, XBA16, AND FNCT1
:SET-UP DRW(

:DO TO DRST

1%:

ERRDO1:

:NO DR11-8 INTERRUPT
sFAKE AN INTERRUPT WITH STACK
s CHECK ERROR
;ERROR SET?

' CZDRBGO DR11-B/DA11-B NPR DIA
01-APR-80 11:25
|CZCRBG.P11

104000

006070
006074

806768

000010
001176

AR AR A

NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV
INC
BIT
BEQ
WAIT

172642

NOP

000177

172576

sEa 0027

;PREVIOUS ERROR WAS NOT CLEARED
;REPOSITION THE STACK

e T 12222232222232223323

TEST 56 STRING OF 200 DATI'S NON-BURST MODE
SCOPE

172626

MOV
JSR
MOV

172732

—

PAGE 28

#10,%6
X7 ,NORMAL

172736

11:29

;ERROR IS CLEAR - SHOULD BE SET BECAUSE

ADD
JSR
M

30
006232

01-APR-80

HLT

006066

§§%§§§§§§§§§§§§§§§§§§
SAIRFSTRIN TSRS

55555

144
1444

MACY11 30A(1052)

B8R
DATINB: BR
MP
BEQ

HLT

';W.”LEN
X7 ,L0DBUF
BUFLEN,WCLEN

WCLEN
WCLEN, @DRWC
INBUF , 3DRBA
#-1,30RDB
#INFA,@DRINV
DRINL . @DRVS
PSW
#111,3DRST
BRWA] T
#BITO,BRWAIT
DATINS
44
#177,3DRDB
x

JLENGTH OF BUFFER=200
;LOAD THE BUFFER WITH INCREMENTING PATTERN
;PREPARE NUMBER FOR DRW(C

:2'S COMPLEMENT OF BUFLEN
*SET=UP DRWC
*SET=UP DRBA
*MAINT AIDE
:INT VECTOR TO INTA
:INT VECTOR TO PRIORITY DRINL
*LET THE
DR11-8 INTERRUPT
:1E, FNCT3, AND DO TO DRST
‘USE A WAIT OR BR. INSTRUCTION
:SEE WHICH ONE
:BIT 0 CLEAR=8R.
‘WAIT FOR INTERRUPT

;CHECK THAT WORD #200 OF INBUF IS IN DRBA

(IS IT?

*BAD DATA IN DRDS

;;t"'t...'t'..tlQIQ'."""'.'..'..'.......'t".""'..'.'t."..
L4

172602

172572
172524
172520
172516

172516
172504

172466
172502

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

SCOPE

MOV
JSR

DEC
MOV
NEG
MOV

MOV

#201 ,BUFLEN
X7 P ,LODBUF

BUFLEN
BUFLEN,WCLEN

WCLEN
WCLEN, SDRW(
INBUF ,3DRBA

MOV
MOV
MOV
CLR
MOV
INC

#52525,30RDB
#INTA,DRINV
DRINL ,@DRVS
aPsw
#113,3DRST
BRUWA] T

BEQ
WAIT

DATONS

BIT

#BIT0,BFWAIT

NOP

2222222322222

232222333

;LENGTH OF BUFFER=201
;'.0AD THE BUFFER WITH INCREMENTING PATTERN

;BUFLEN=200
;PREPARE NUMBER FOR DRW(
:2'S COMPLEMENT OF BUFLEN
;SET UP DRwW(

;SET UP DRBA

:SET UP DRDB
:INTERRUPT VECTOR TO INTA
: INTERRUPT VECTOR TO PRIORITY DRINL
*LET THE
DR11-8 INTERRUPT
:1E, ENCT3, FNCT1, AND DO TO DRST
‘USE A WAIT OR BR. INSTRUCTION
:BIT 0 CLEAR=BR.

;WAIT FOR INTERRUPT

CZDRBGO DR11-B/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

006360
006362

000777
004767

000732

R
ER AR RRN
SA
Ea o rA oD BB SR R TRS8

1498

MACY11

30A(1052)

e
D e ed e
ik
d e

016767
012777

172402
007142

172430
172364

016777
005077
012777
052777

172356

172352

010101

172330
172326

n
N

000001
000240
117701
042701
006201
126701

?01 401

04000
005267
022767
001404
062767
000735
012767
016767
004767

MOV
MFLOOP: MOV

#10,BUFLEN

#1 _FNCCNT
#1 ,BUFLEN

#-1,3DRW(
#107101,aDRST

FNCCNT,
X1
44

000007

172270
172256

172310
000446

FNCCNT
#10,FNCCNT

MF CHK :

X7 .DATCHK
s

AR AR AR

AR AR

RN AR AR

)

TEST 61

172246
172246

moogw
O
oS~

b
—t —d —d

oy
e
B
——————————————————————————————————

NNNNN
SN
N1, NT,N)

172132

;SET-UP BUFLEN FOR LODBUF AND CHKBUFF
;SET-UP DRBA
;LOAD INBUF
;LOAD CHKBUF
sINIT FOR STARTING
;GET READY FOR CHECKING
;CHANGE IS NECESSARY FOR INTA ROUTINE

; INTERRUPT VECTOR PRIORITY TO DRINL
;LET THE DR11-8 INTERRUPT
;SET-UP FOR 1 TRANSFER
sJMAINT, IE, AND DO TO DRST

172350

172274

RN RANAARRAANEAATRROTRS

DRINL ,@DRVS
aPSwW

#600,
£1

000002

: SAVE INBUF
s INTERRUPT VECTOR TO INTA

aDRST, %1

172332

AR P AARARANA

INBUF , INBUF1

#INTA,3DRINV

172316
000600

172340
000010

s CHECK INBUF

TEST 60 TEST THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSFERS

000430
000462

)

WA
=

AR R AR R

SCOPE
MOV
MOV
JSR
JSR
CLR
MOV
MOV

172404
000001
000001

SEQ 0028

AR AR NN RN RN R R R RN RAA RN RANAANN AN NN AN OARRAARA RN R RS

R AR

000010
172440

012767
012767

PAGE 29

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

D
D
e
) D e
D e
el
d
D d
) i
)
) D
D
) D e
D e
D
e e

17.DATOCK

) d

D e

11:29

DATONB: BR
JSR
L

)

e
)
e
v
v

01-APR-80

JWAIT FOR INTERRUPT
sFAKE-OUT RETURN ADDRESS CHANGING
;LOMER BYTE OF DRST TO R1
;GET RID OF READY AND CYCLE BECAUSE OF MAINT MODE
JMOVE IT RIGHT ONE PLACE
JCHECK AGAINST FNCCNT
;SHOULD BE EQUAL
'
sFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE
;GET READY FOR NEXT PASS
JONLY 10 BECAUSE FNCT3-1 GO TO ZERO
JIF ITS EQUAL GO CHECK DATA
sFAKE-OUT INTA ROUT INE
;DO IT AGAIN
JSET UP FOR DATCHKs (10 FNCT CHECKS, 7 TRANSFERS
sRESTORE INBUF
;CHECK DATA

RN R RN A AR AN ARAARAANAARRAARARNAR
AR AR
AR
S

TEST FOR 10 MAINT MODE TRANSFERS

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

SCOPE

#10,BUFLEN
BUFLEN,WCLEN
WCLEN

;BUFLEN=10
;PREPARE NUMBER FOR DRW(
;2'S COMPLEMENT OF BUFLEN

WCLEN, @DRWC
INBUF , @DRBA
#-1,30RDB

;SET UP DRW(
;SET UP DRBA
:MAINT AIDE
s INTERRUPT VECTOR TO INTA
s INTERRUPT STATUS AT PRIORITY DRINL
JLET DR11-8 INTERRUPT

X7 .LODBUF
X7, CHKBFF

#INTA,@DRINV
PRINL ,@DRVS
aPSw

;LOAD IN BUFFER WITH INCREMENTING PATTERN
sLOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN

006664
006672
006674

012777
000777
004767

010101

MACY11 30A(1052)
172132

01-APR-B0
MOV
BR

JSR

11:29

PAGE 30

#10101,30RST

;MAINT,

SEQ 0029
IE, AND DO TO DRST

‘WAIT FOR INTERRUPT

27 .DATCHK

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

TEST 62 TEST FOR 200 NPR TRANSFERS IN MAINT MODE

D i

i o

8% \J‘!\IIV’!U’IU\%!V!U!\IC
BIRQREE
28 E§i§~q§in§s§§§§ SIS J3ANANIS AR
S8 LY MR

(ZDRBGO DR11-B/DA11-8 NPR DIA
(ZDRBG.P11
01-APR-80 11:25

IIRARR AR AR AR

D i

SCOPE
MOV

A AR RN RN AR RN RN

#200,BUFLEN

BUF LEN, WCLEN

AN ANNNRANRARANANRANNERN
AN RO
RN

;LENGTH OF BUFFER = 200
sPREPARE NUMBER FOR DRW(C
:2'S COMPLEMENT OF BUFLEN

D e

i e

;LOAD INBUF WITH INCREMENTING PATTERN
;LOAD CHKBUF WITH MODIFIED INCREMENTED PATTERN
;SET UP DRW(

#INTA ,8DRINV

D e

DRINL ,@DRVS
aPSwW

e e

172022

#010101 ,380RST

BRWAIT

172036

#8ITO,BRWAIT

BRANCH

:SET UP DRBA
sMAINT AIDE
sINT VECTOR TO INTA
;INT VECTOR AT PRIORITY DRINL
;LET THE DR11-8 INTERRUPT
;FOLLOWING TO DRST:
MAINT(12),1E(06),D0(00)
sUSE A WAIT OR BR. INSTRUCTION
;SEE WHICH ONE
;BIT 0 CLEAR = BR.

17.DATCHK
000356
171776

:
L ODBUF

172000

171772
171766

171762

LDEXIT:
CHKBFF:

171742
171742

CHKA:

171640

INBUF , %2
LENCHK
(X2)+
LENCHK

LENCHK ,BUF LEN
LDEXIT

LOADA

¥4
CHKBUF , %2

LENCHK

X3
23.(X2)+
25,(%2)+

#2 ,LENCHK
LENCHK ,BUF LEN
+10

000002

000100
171650

Pr—————————

—

000002
171722

END

LENCHK , (X2) +

—

— e

1601

LOADA:

171756

e e

.44

CHKA

171654

INTA:

#BIT6,ADRST
aDRST

aDRST
.+

;CHECK THAT CORRECT DATA WAS TRANSFERRED

;DO IT ALL AGAIN.
;MOVE STARTING ADDRESS OF INBUF TO R2
;CLEAR LENGTH CHECK
;CLEAR STARTING ADDRESS OF INBUFF AND INC BY 2
JINC LENGTH CHECK BY 1
;CHECK FOR DONE
;1S INBUF FILLED?
;LOAD NEXT BUFFER WORD

:gmxwe CHECKING

;STARTING ADDRESS OF CHECK-BUFFER TO R2
;CLEAR LENGTH CHECK

;CLEAR R3
;MOVE R3 TO CHKBUF ADDRESS AND INC BY 2
JMOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2
JADD 2 TO LENGTH CHECK

;CHECK FOR DONE
;1S CHECK-BUFFER FILLED?
JNEXT NUMBER FOR BUFFER
sCONTINUE FILLING

JEXIT
;JCLEAR IE
;CHECKING FOR ERROR
JERROR SET?
;ERROR BIT IS SET
;CHECKING READY BIT
;1S READY SET

CZDRBGO DR11-8/DA11-B NPR DIJA

CZDRBG.P11

1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621

01-APR-B0O 11:25

MACY11

01-APR-80

}gg

007166
104
007170
005777
007176 001401
007176 104000
00
016702
07
066702
007210 066702
007214 027702
007220
001401
007222 104000
0072264 062716
007230
004767

007234

000002

000002
000042

HLT
ST
BEQ
HLT
MOV
ADD
ADD
cTMP
BEQ
HLT
ADD
JSR

1626
1625
1626
1627

007236
007242
007246
007252

016702
016703
005067
005267

171602
171574
171576
171572

DATCHK: MOV
MOV
CLR
COMPAR: INC

1629
1630
1631
1632

007260
007262
007264
007272

171560

171554

BEQ
HLT
CMF
BNE

001030

171530

1628

007256

022223

001401
104000
026767
001367

1633
1634

007274
007276

000207
012777

1637
1638

007316
007320

000207
012702

1635
1636

007304
007310

1639 007324
1640 007330
1641 007334
1642 007340
1643 007342
1644 007344
1645 007346
1646 007354
1647 007356
1648 007360
1649 007362

1650

007364

005077
012777

016703
005067
005267
020223
001401
104000
026767
001367
020223
001001
104000

000207

1651
1652

007366
007374

042777
005777

1654
1655

007402
0076404

104000
105777

1653

1656

1657
}ggg

007400

007410

007412
007414

100001

100401

171624
171642
171636
171626
171602

171520
000340

RTI

171500

052525

171512
171514
171510
171476

171472

000100
171424

171430

PAGE 31

aDRW(
.46
BUFLEN, X2
BUFLEN X2
INBUF , §2
X2
+4

#2,(%6)
7. NORMAL

;FALSE INTERRUPT - ERROR AND READY ARE CLEAR
*TEST1 FOR DRWC=0
‘WAS IT EQUAL?
*DRWC NOT =0
‘BUFFER LENGTH TO R2
*NUMBER OF TRANSFERS TIMES 2
*CORRECT DRBA
:CHECKING DRBA
:1S DRBA CORRECT?
*DRBA NOT CORRECT
*RETURN ADDRESS TO RETURN ADDRESS +2
SEXIT

LENCHK ,BUFLEN
COMPAR

*BRANCH IF OK
:BAD DATA
:SEE IF THE BUFFER HAS BEEN CHECKED
*BUFFER CHECKED?

CLR
MOV

aDRVS
#340, 3PSW

:RESTORE DR11-8 INTERRUPT STATUS
*RESTORE PROC TO PRIORITY LEVEL 7

MOV
CLR
COMPRR: INC
cMP
BEQ
HLT
cTMP
BNE
cTMP
BNE
HLT

INBUF 13
LENCHK
LENCHK
X2, (33)+
4

RTS
NORMAL: MOV

RTS
DATOCK: MOV

RTS

ERRCHK: BIC
ST

HLT
TSTB

171414

8M]

104000
000207

HLT
RTS

(:2» (X3)+

X7
#DRVS,@DRINV

17
#52525,%2

LENCHK ,BUFLEN
COMPRR
X2, (23)+
.+
X7

#BIT6,aDRST
aDRST

aDRST

*1S THE DATA CORRECT?

;RESTORE DR11-8 INTERRUPT VECTOR

CEXIT
*DATO NUMBER TO R2

:STARTING ADDRESS OF IN BUFFER TO R3
:CLEAR LENGTH CHECK
*MAKE A COMPARISON
:1S THE DATA CORRECT?
*BRANCH IF OK
*BAD DATA
:SEE IF THE BUFFER HAS BEEN CHECKED
*BUFFER CHECKED?
*CHECK END OF BUFFER + 1
*SEE IF TOO MANY WORDS WERE TRANSFERRED
2T00 MANY

CEXIT

*CLEAR IE
:CHECKING FOR ERROR

*ERROR SET?

*ERROR BIT IS SET
;CHECKING READY BIT

*IS RDY SET

*FALSE ENTRY - ERROR AND READY ARE CLEAR
CEXIT

.'.....ttQ..tlt...ttt"""'t"Q.0"'.""..'..""'.'.t'..'t."'

1663

007416

012727

1665

007430

100375

1664

;STARTING ADDRESS OF CHECK BUFFER TO R2
:STARTING ADDRESS OF IN BUFFER TO R3
:CLEAR LENGTH CHECK
*MAKE A COMPARISON

BPL

1661

1&2

11:29

CHKBUF , %2
INBUF, 3
LENCHK
LENCHK

TMP

30A(1052)

007426

105757

000207
177564

177566

END OF PASS

END

MOV

#207, 4177566

BPL

'.".'.'t'ttt't'..tt..'t't"""tttt.ttQ'tQ.t".'tt"...t't"."'

TSTB

aW177564

:RING BELL

SEQ 0030

CZDRBGO DR11-8/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25
1666

1667
1668
1669

1670
1671
16
16

1674

1675
1676
1678
1679
1680

0074
0074
007442

005267
012 0;
00476

171436
013031
003450

042777
013702
001405
000005
004712
000240
000240

000020
000042

MACY11 30A(1052)

171342

END1:

;

002716
010000

171306

AR A

8dd~33}3333
CONCNEWNSO IRIFSRAR §.

D el
i
el
Dl el

:CLEAR T-BIT

BEQ

TRTRAP

.2,
x2
X7.(2)

20
171430

170270
170264
171256

170242
170236

007624

170222
171216
177740

000020
171354

JSR

YESTR1

BIC

TRPA:

JMP

TRPB:

000044
000040

#10000, asr

BEQ
MOV
MOV
0O

SRR

Al Al

MOV

2332331

YES

INO, HAVE WE RUN WITH TRACE

TRPA
YESTR1,134
YESTR2,16

TRAP ON?

;IF SO RESTORE PREVIOUS CONTENTS

#20,aPSW

;CLEAR TRACE TRAP
;START OF TEST WITH TRACE OFF

BEGIN

14 ,YESTR]

222222223232

22322222333%

L ImmmmmmmmmT

16,YESTR2
#YESRT,14

;SAVE ODT STATUS
;NEW TRAP VECTOR

CoM
BMI
BIS
JMP

TRPB
.+10
#20,aPSW
BEGIN

;SET TRACE TRAP
;START OF TEST WITH TRACE ON

sSAVE ODT PC

16
aPSw

;NEW CONDITION CODES

;STORAGE FOR ODT PC
;STORAG FOR ODT STATUS
;RETURN TO PROGRAM FROM TRAP

HALT

212222222223

:SHOULD WE RUN WITH TRACE TRAP

YESTR1: 0
YESTRZ2: 0
YESRT:
RTI

MOV
MOV
CLR
CLR

171202

sCHECK FOR CONT G

YESTR

SAVE OLD CONTENTS, SET UP FOR TRACE TRAP

YESTR:

170224

X7, CKSWR

BIT

BEQ

000104
000076

ROUTINE TO CHECK FOR TRACE TRAP TO BE RUN WITH PROGRAM

TRTRAP:

JRTI FAILED
e

2222223 322222223333

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

;;i'.fittt"tt..ti't.."t""t't...".tt.flt'fl'.""Q.ttt't'Q'ttt.

#20,3PSW

"..'.'..

016767

BIC

NOP

NNNN

SEQ 0031

;KEEP TRACK OF PASSES COMPLETED
:PRINT 'END PASS'

NOP
NOP

—d

PAGE 32

;:t.."tfit"Q'.".."'."""".."Q...".""'t'.....'.

004767
032777
001417
005767
001411
016767
016767
777
000167
000000

PASCNT
#SENPAS , X2
x7.1Touf

MOV

000240

11:29

INC
MOV
JSR

RESET
SENDAD: JSR

1700

O01-APR-80

RO=%0
R1=21

R2=%2
R3=23

CZDRBGO DR11-B/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

MACY11 30A(1052)

3
PAGE 33

SP=%6

GO=1

FNCT1
FNCT?
FNCT3=10

el i

;OUTPUT MODE
sOUTPUT DIRECTION
;OUTPUT INTER REQ

D i i e

XBA16=20
XBA17=40
1E=100

READY=200

D il i

CYCLE=400
DSTATA=1000
DSTATB=2000
DSTAT(C=4000
MAINT=10000
ATTN=20000
NEX=40000
ERROR=100000

D
e
B e

D D i e

; INPUT MODE
sINPUT DIRECTION
s INPUT INTR REQ

:# OF WORDS TRANSFERRED UNDER FLAG CONTROL PRIOR TO NPR
sHOLDS ADDRESS OF READY INTERRUPT ROUTINE
;HOLDS ADDRESS OF ERROR INTERRUPT ROUTINE
:JOB FLAG
;JOB COUNT

SRR AR AR

)y D
D
i
il
e

AR AR A AR AR

005067
012706

004767
005067
012767

012777
012777
005077

MS1:

177770
014222

000256
177752
010316
000000
000340
000100
171076

JBCNT

#BUFF ,R6

;DO JOBAO FIRST

aPSW
BACKGD

S$S1:

177664

A AR

AR AR A AR R AR

NOP
MOV
JSR
CLR
MOV

;CLEAR JOB FLAG

sNO ERROR RECOVERY

;LOCK OUT INTERRUPTS

*SET INTERRUPT ENABLE

:DROP PRIOTIRY TO ZERO
‘WAIT FOR JOBS IN BACKGROUND

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

SLAVE START

AR AR

;CLEAR JOB COUNT

;SETUP STACK

#JOBAO ,NEXJOB

#1E,3DRST

AR RN AR AR AR AR

#BUFF ,R6
R7,SETVEC
JBFLAG
#SJ0B1,NEXJOB

AR RN AR AR

;SET UP INTERRUPT VECTORS

#340,aPSW

AR A

R7,SETVEC

#0 ,NEXJOB+2

014222
000202
177676
010540

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

JBF LAG

SRR

012706
004767
005067
012767

NOP

MOV

D
~N

RESARARA 3

NOWwW

) e
)
i

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

;MASTER START

kD el
)

SEQ 0032

R7=%7
PC=%7

NNRG
bSRA
t
3 PN
OO ERDT IR
LY SoI&GR W=

R6=26

NNVYVNY ~N ~

11:29

R4=%4
R5=%5

NNNN
NN
o~

B i i

—

172
172
1724
S

01-APR-80

AR AAA RN AR

ARN AR

;SET UP INTERRUPT VECTORS
;FOR READY

INTERRUPT

A RN

NRERR RS

D
e i

ZRSRIREICSYIIRIE RRREL
PEL LR EE SR

CZDRBGO DR11-8/DA11-8 NPR D]A
CZDRBG.P11
01-APR-80 11:25

012767
012777

012777
005077

010556
000340
000100
171022

MACY11 30A(1052)

01-APR-80

11:29

SEQ 0033
17
171034
17

#SJ0B2 ,NEXJOB+2 ;FOR ERROR INTERRUPT
JRAISE CP PRIORITY TO 7
;SET INTERRUPT ENABLE
aPSw
:DROP (P PRIORITY TO O AND ENTER BACKGROUND

MOV

MOV
MOV

#340,3PSW
#1E,aDRST

CLR

AR A

BACKGD:

2222223 222222285

INC
INC
INC
INC
INC

D i
D i
D e
D e
) e e
D
i

177572

000032

177554
177552
177550
177542

VONONVTMWN=O

NEXJ0B+2
JBFLAG, 34

167744

JBFLAG

000016

)

JSR
MR

crno&R

b
s 3

b
b
b
b and

jelelelelele

elelelelele)

010446
010346
010246
010146
010046
000115

;BACKGROUND TEST FAILED
;ANY J0OBS?
;BRANCH IF NONE
;YES & EXECUTE JOB WHOSE ADDRESS IS IN JBFLAG

JBFLAG
BACKGD
R5,SAVALL
NEXJ0B

)

3222222222222

232311%

SUBROUTINE TO PUSH ALL REGISTERS ONTO THE STACK
s

MOV
MOV
JMP

:TRAP THROUGH JBFLAG AT 34

RS ,RESALL
BACKGD

SAVALL : MOV
MOV
MOV

AR AR

R4 ,~(R6)

;R5 WAS PUSHED BY JSR

R3.=(R6)

R2.=-(R6)
R1.~-(R6)
RO~ (R6)

(RS)

I3 2322223222322222233311
1T

;R5 HOLDS RETURN ADDRESS
e

I 222222323222222232331
%

SUBROUTINE TO POP ALL REGISTERS OFF

THE STACK

;;".t.'....."Q'..'t."'.t""lttttt...'.t.tt'.l.t"."'ttt.

—b
b
b

b
b
b

elele)

'!t.

lolele]

EEERRRERRARRR

;BACKGROUND TEST FAILED

) - el

;BACKGROUND TEST FAILED

) ——d

) i

2T222322222233222322232%

INC

)
)

BACKGROUND PROGRAM; WAITS FOR JBFLAG TO SET

— v

—

D el el

D o

00 0o 0o 0o GO 0o OB 00 00 00

1833

PAGE 34

RESALL:

TST

MOV
MOV

(R6)+

(R6) +,RO
(R6) +,R1

CZDRBGO DR11-8B/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

MACY11 30A(1052)

01-APR-80
MOV
MOV

AL A

SEQ 0034

R AN R R

RPN AN AN RN AN AN RN RN AN RN RAN AR AR AR

DRINV,RO

#DRINS, (RO)+
DRINL , (RO)
#PRINT, 30

MOV

DRINL , 36

;RO IS VECTOR ADDRRSS

:PUT SERVICE ADDRESS INTO VECTOR
*PUT PRIORITY INTO VECTOR+2
:SET UP EMT ADDRESS

o}zm.32

CLR
CLR
CLR
CLR
CLR
CLR
RTS

7O SET UP INTERRUPT VECTORS

MOV
MOV
MOV

?EX

167636

SETVEC: MOV

167650
167644

PAGE 35

(R6)
+ R4
RS

ROUTINE

(R6)+,R
(R6)+,R

MOV
RTS
AR

11:29

“SET UP EMT PRIORITY LEVEL
;SET UP TRAP ADDRESS

RO
R1
R2
R3
R&
RS
R7

*INITIALIZE REGISTERS

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

;

PRIMARY

t"..'Q.....tt"t...t"".'...'."Q..t't....'..'..'.'.'."t..!'

DRINS:

177414

TST

BEQ
HLT

004000

170566

HALT
BIT

DRINO:

BEQ
ST
S’fi
HAL T

177370

177356

BEEEERER

1881

010314

177356

DRINT:

170536

DRIN3:

177332

DRIN2:

177320

INTERRUPT SERVICE ROUTINE.

SETS UP JBLFAG WITH ADDRESS OF JOB TO BE RUNSTARS

;sNO
:CHECK FOR ERROR

NEXJOB+2
DRIN1

*1S THERE AN ERROR SERVICE ROUTINE?
*BRANCH IF THERE IS.

DRIN3

*BRANCH IF NO ERROR

;:ERROR INTERRUPT, NO ERROR SERVICE.

TSTB

@DRST

DRIN2

*BRANCH IF SET

HAL T
TST

NEXJOB

; INTERRUPT WITHOUT ERROR OR READY
*1S THERE A READY SERVICE ROUTINE

gg
Sfi

AR Al

:CHECK READY

. +6

*BRANCH IF THERE IS.

NEXJOB,JBFLAG
e

:
:
MR

#DSTATC,@DRST

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

s;TJ}/

:HAS THE PREVIOUS INTERRUPT BEEN SERVICED?

DRINO

g?}/

HAL T

177322

JBF LAG

;READY INTERRUPT, NO READY SERVICE

:SET UP JOBFLAG WITH SERVICE ROUTINE ADDRESS
It

T332

2322233222222%;

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

AR S

2220322222222

CZDRBGO DR11-8/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25
1890

MACY11 30A(1052)

O01-APR-80

010316

012700

1892

010

012021

18%

010

010211

MOV

060241

ADD

1891
1893

010322
010

012701

011462

012002

0103
0103

00540,
00630,

1898

010342
010344

005010

024040

1901

010346

022767

000100

1903
1904
1905

010356
010362
010364

105737
100375
012737

177564
000207

1907
1908
1909
1910

010376
010402
010406
010412

004767
012700
004767
012767

000704
011462
000370
010430

}g}%

010426

}&93

1902

1906

1911

010340

010354

010372

010420

003010

005067

012767

000002

177242

000000

1924

;MAKE REC WORD COUNT THE SAME

;R2 HOLDS WORD COUNT OF XMIT

o, o

=(R0) ,=(RO)

:CLEAR OFFSET IN XMIT LIST

l100 JBCNT

;ENOUGH PASSES FOR BELL?

ifl 77564
08A08
0207 177566

;TTY READY?

177566

JOBAOB: TSTB
BPL
MOV

177212

JOBAQDA: JSR
MOV
JSR
MOV

R7 SETBUF
'LISTA RO
R7 HXHIT
lJW" .NEXJOB

177264

177206

B8GT

CLR

MOV

RTI

:
:
R

010430
010434
010440
010444

010450
010456

010464

R2,=(R1)

'ADD TO REC BUS ADDRESS

08A0A

JBCNT

'O.*XJG*Z

LEAVE RO=LISTA=XMIT LIST

:BRANCH IF NOT ENOUGH

JRING BELL

:RESET JOB COUNT

JEILL UP XMIT BUFFER WITH SPECIAL BINARY COUNT
;TRANSMIT DATA TO SLAVE
;JOBAT IS NEXT
;NO ERROR RECOVERY

JRETURN TO BACKGROUND VIA TRAP

012700
004767
012700
004767

012767
012767

000002

011474
000574
011474
000406

010466

000000

ROUTINE A, SEGMENT 1
FLUSH A BlfFER AND RECEIVE DATA

JOBAT:

177154

MOV
JSR
MOV
JSR

MOV

177150

MOV

RTI

#LISTA1,RO
R7,FLUSH
#LISTA1,RO
R7 ,MREC

T T

TMTM

;PUT REC LIST ADDRESS INTO RO
;FLUSH BUFFER

#JOBAZ2 ,NEXJ0B
#0 NEXJOB+2

RECEIVE DATA FROM SLAVE
;JOBAZ IS NEXT
~0 ERROR RECOVERY

"'tt'tttttt.ttt.tt'tttt't'ttt"tttt...'tttt'tttt.ttitttttttttttt
:
ROUTINE A, SEGMENT 2

010466

1934
1935
1936
1937
1938
1939
;lg‘lo?

010476
010502
010510
010516
010524
010532
010536

1945

R2, (RT)

..t'.tttttt'ttt.t.ttt'tt"tt'.ttt.ttttttt.tttt'tttttttQt'tt'ttttt

1931
1932

‘}gl‘.z

;START WITH BUS ADDRESSES EQUAL

(RO)+ R2

(RO)

1929
1930

1942

(RO)+, (R‘l)*

;LISTA1 WILL BE REC LIST

CLR

1927
1928

1933

MOV

JRO IS XMIT LIST ADDRESS

#LISTAT R

JMAKE WORD COUNT POSITIVE
;TRANSFORM INTO BYTE COUNT

1917

:'lggg

#LISTA RO

R2
R2

1915
1916

1923

NEG
ASL

1914

1918
1919
1920
1921
1922

PAGE 36

MOV

MOV
MOV

1895
1896
1897

JOBAO:

011474

11:29

010472

012700

012701

004767
042777
012777
012767
012767
005267
000002

011462

’

011474

000652
000100
000100
010316
000000
177102

R L
JORA2:

CHECKS TRMSHITTED DATA WITH RECEIVED
Rt
R
TT

MOV

JSR
BIC
MOV
MOV
MOV
INC
RTI

170314
170306
177106
177102

A R

#LISTA RO

'LISTA" R1

JXMIT BUFFER LIST

R7, ”CK
‘IE.”RST
#1E ,aDRST
#JOBAQ ,NEXJ0B
#0 NEXJOB+?2
JBCNT
i

JREC BUFFER LIST

. COMPARE THE TWO BUFFERS
JGLITCH INTERRUPT
;REPEAT JOBAQO

;ADVANCE COUNT

e e 2222223322233

SLAVE'S INTERRUPT SERVICE ROUTINES

JOB1:

IGNORE FIRST READY INTERRUPT

SEQ 0035

CZDRBGO DR11-8/DA11-8 NPR DJA
' CZDRBG.P11
01-APR-80 11:25

MACY11 30A(1052)

1%6

1947
198
199
1350

01-APR-80

11:29

PAGE 37

SEQ 0036

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

010540
010546
01055

012767
012767
000002

000000
010556

177064
177060

SJOB1:

MOV
MOV
RTI

#0,NEXJOB
:NO MORE READY INTERRUPTS
#SJ0B2,NEXJOB+2 :UNTIL ATTN INTERRUPT

195%

:"'."..."......""""""""......'.."..QQ'.."'..."""'.

195‘

":'.'."""'..'.."""""'Q"'.'.".....".'..".'.".'..'.'.Q

195

JOB2:

WAIT FOR COMMAND

BIT

#DSTATC,@DRST

1955
1956

010556

1958

010566

1960
1961
1962

010572
010576
010600

005001
016702
012703

170224
000010

SJOB2A: (LR
MOV
MOV

1964
1965
1966
1967

010610
010614
010620
010626

016705
012700
004767
012700

170212
011510
000122
011506

MOV
MOV
JSR
MOV

DRDB,RS
WLISTB+2,R0
R7 ,HNDSHK
#LiSTB,RO

1969
1970
1971

010634
010640
010644

066710
012077
012077

170202
170156
170150

ADD
MOV
MOV

INBUF ; (RO)
(RO)+.3DRBA
(RO) +, sDRWC

032777

1957 010564

001002

1959 010570

000000

1963

010604

1968 01
1972
1973
1974
1975
1976

1977

1978
1979
1980
1981
1982
1983
1984
1985

010650
010654
010662
010664
010672

010674

010676
010702
010706
010714
010722
010730
010736
010744

004000

170240

104000

012704

016010

BNE
HLT

HALT

004000

MOV

005077
032777
001405
032777
001774

170150
002000

170142

000400

170132

012700
004767
052777
042777
052777
012767
012767
000002

011506
000356
000004
000400
000101
010540
010556

000412

SJOB2:

CLR
BIT
BEQ
SJ0B28: BIT
BEQ

B8R

170110
170102
170074
176674
176670

SJOB2C: MOV
JSR
BIS
BIC
SJ0B2D: BIS
MOV
MOV
RTI

SJ0B2A

;ERROR OTHER THAN DSTATC

R1
DRST,R2
A#FNCT3,R3

:SET UP FOR PARAMETERS
:RQ
IS STATUS ADDRESS
:R3
IS FUNCTION BIT 3

#DSTATC,R4

4(R0),(RO)

@DRST
#DSTATB,@DRST
$J0B2C
WCYCLE,@DRST
SJ0B2B

$J082D

:TEST FOR INTER

#LISTB,RO
R7,BLUSH
WFNCT2,@0RST
#CYCLE.@DRST
#IE!GO.@DRST
#SJ0B1.NEXJOB _
#SJOB2.NEXJOB+2

:R& IS INTERUPT BIT

RS IS DATA BUFFER ADDRESS
:STORE PARAMETERS HERE STARTING WITH WORD COUNT
:GET PARAMETERS
:RO IS TOP OF LIST

:MOVE OFFSET TO TOP

:TOP OF LIST IS BUFFER START + OFFSET
:SET UP BUS
S
:SET
UP WORD C

:CLEAR ALL FUNCTION BITS
:WHICH DIRECTION
:BRANCH IF RECIEVE (LEAVE FNCT1 CLEAR FOR DATI'S)
-WAIT FOR MASTER TO SET CYCLE
:BRANCH IF NOT SET

:GO DO THE COMAND

:BLUSH THE BUFFER
:SET FNCT2 FOR DATO'S
:CLEAR CYCLE
-EXECUTE COMMAND AND INTERRUPT WHEN DONE
:IGNORE READY INTERRUPT
:WAIT FOR ATTN INTERRUPT

1%7

MR R RS dd s s st

1%9

.':t."ttttt'.'t..'tt'.""'t"t'.'t'...'t."..t..t'ttt'tt"ta't.'

1988

ittt

332232228322222%3

SLAVE ROUTINE TO ACCEPT PARAMETERS FROM MASTER

1990
1991

010746

011515

HNDSHK: MOV

(RS) , (RS)

;ECHO PARAMETER

1993
199

010752
010754

050312
030412

BIS
WNDSH1: BIT

R3.(R2)
Ré.(R2)

:REPLY WITH FNCT3
:WAIT FOR ATTN TO DROP

005201
020167
002401
000207
030412

INC
(MP
BLT
RTS
HNDSH2: BIT

1992

1995
1996

1997
1998
1999
2000
2001

010750

010756
010760

010762
010764
010770
010772
010774

011520

MOV

001376
040312

BNE
BIC

176640

(R5) , (RO) +

HNDSH1
R3, (R2)

R
R1,NWRDXF
HNDSH2
R7
Ré4,(R2)

:STORE PARAMETER

:DROP FNCT3

:CHECK NUMBER

:BRANCH IF NOT DONE YET

;WAIT FOR NEXT WORD

’

CZDRBGO DR11-8/DA11-8 M’R DIA
- CZDRBG.P11
01-APR-B0 11:25

2&%
2003

010776
011000

MACY11 30A(1052)

001776
000762

BEQ
BR

2005

2006
2007

:
3

2008

2009
2010

011002

005777

2012
2013
2014
2015
2016
2017
2018
2019
2020
2021

011010
011012
011014
011020
011022
011024
011052
0110
011040
011046

104000
000999
105
100402
104000

170004

012777

000000

2011

22822§

011006

011054

100002

170016

004767 000102
042777- 000400
052777 000101
000207

167770
167756
167750

011056
011062
011064
011066
011070
011074
011076
011100
011102
011110
011114
011122
011126
011132
011140

005777
100002
104000
000000
105777
100402
104000
000000
012777
004767
032777
001374
042777
052777
000207

167742

MEC

167730

MREC1:

000004
000026
002000

167714

MREC2:

167702

MREC3:

000400
000101

167672
167664

2044

3
3

2047

2052
2053
2056
2055
2056
2057

TST

011142
011146
011152

011154
011160
011164
011170
011174
011176

012077
011077
005001

016702
012703
012704
016705
011015
050312

167654
167646

167644
000010
004000
167632

JBRANCH IF ATTN CLEAR
JGET ANOTHER PARAMETER

aDRST

BPL

R R

A A

TST
BPL
HLT
HALT
TSTB
BM]
HLT
HALT
MOV
JSR
BIT
BNE
BIC
BIS
AR

R Rt

I
I

sMAKE SURE FRROR IS CLEAR

MAMIT

;AND READY IS SET

JERROR IS SET

aDRST
MXMIT2

JREADY NOT SET

#0,3DRST

R7 ,PRMXFR
#CYCLE ,@DRST
#1E!GO,3DRST
R7

A A

RV R

sSET UP FUNCTION FOR DATI'S

: TRANSFER PARAMETERS OF LIST WHOSE ADDRESS IS IN RO
HN(E SURE CYCLE IS CLEAR
sEXECUTE COMMAND AND INTERRUPT WHEN DONE

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

MASTER RECEIVE ROUTINE
ENTER WITH TRANSFER LIST IN RO

RTS

2045
2046

HNDSH?2
HND SHK

RTS

PAGE 38

HLT
HALT
MXMIT1: TSTB
BM]
HLT
HALT
MXMIT2: MOV
JSR
BIC
BIS

3
;

2027

2048
2049
2050
2051

11:29

MASTER TRANSMIT ROUTINE
ENTER WITH TRANSFER LIST IN RO

2025
2026

22&4%

MXMIT:

2024

2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
20640
2041

O01-APR-B0

aDRST
MRECT

aDRST
MREC2

#FNCT2 ,8DRST
R7 ,PRMXFR
#DSTATB,aDRST
MREC3

#CYCLE ,3DRST
#1E'GO,3DRST

AA N AR

AR AR NS

A A AN AN AR N AN ANAARANNIANAANR AR

JMAKE SURE ERROR IS CLEAR
:MD READY SET.

RRRAS

;ERROR SET

;READY CLEAR

sSET UP FUNCTION FOR DATO'S
: TRANSFER PARAMETERS OF LIST WHOSE ADDRESS IS IN RO
HAIT FOR SLAVE TO CLEAR DIRECTION
H!ANCH IF SET

:CLEAR CYCLE
sEXECUTE COMMAND AND INTERRUPT WHEN DONE.

AR AN RN AR AN A NN A AR N AN A AN

AR NANN R AN A AN NAANAAAN AR AR ARRS

ROUTINE TO TRANSFE
AND
R CHECK PARAMETERS UNDER FLAG CONTROL
ENTER WITH RO POINTING TO TRANSFER LIST
AN AN AR R AN RN R IR AN AR AN AN NN RN R AN R RN AARNAAANRANAANE SRR

PRMXFR: MOV
MOV
CLR

MOV
MOV
MOV
MOV
PRMXF1: MOV
BIS

(RO) +,3DRBA
(RO) ,aDRWC
o

DRST ,R2
0FNC73 R3
mSTATC R4
DRDB.,RS
(RO) (RS)
R3. (R2)

sFIRST WORD IN LIST IS ADDRESS
sSECOND WORD IN LIST IS WORD COUNT
R1 COUNTS PARAMETERS TRANSFERRED

IS THE STATUS ADDRESS
USED FOR FUNCTION BIT 3
Rlo USED FOR INTERUPT BIT
RS IS THE DATA BUFFER ADDRESS
;SET UP DRDB WITH PARAMETER
:CALL SLAVE'S ATIN

SEQ 0037

CZDRBGO DR11-8/DA11-8 ma‘og
%CZM.P"
01-APR-80 1

;

2061
'

0N
811

011

012

2065
2066
2067
2068
2069
228;10

001402

BEQ

04031
03041
001376
005201
020167
002761
000207

011234
011236
011242
011246
011250

005005
004767
004767
002775
000436

2083
2084
2085
2086

011252
011254
011256
011260

010521
060503
005504
005202
000207

011262

2097
2098
2099
21@
2107
S}g%

012705

011270

000762

011272
011274
011276
011300
011302
011304

012001
012002
005720
005003
005004
000207

177777

CLR
JSR
FLUSH1: JSR
BLT
BR

RS
R7 ,BSETUP
R7 .BUFPUT
FLUSH1
BUFOUT

BUFPUT: MOV
ADD
ADC
INC

RS5.(R1)+
RS.R3
Ré
R2
R7

A AAA

177760
000001
177730

TTT I

;SET RS TO ZIP
sSET UP REGISTERS
sSTORE ITEM IN BUFFER
;STOP WHEN BUFFER FULL

;PUT RS INTO BUFFER
s INCLUDE IN CHECKSUM
sADVANCE WORD COUNT

JRETURN WITH STATUS SET
R

R AN AN AR NI N AR AN R AR AR AN AAR AR

R
#-1,R5
FLUSH+2

;REGISTER SETUP ROUTINE

2107

ENTER WITH RO POINTING TO TRANSFER LIST

B8R

T I T T T I

ROUTINE TO FILL BUFFER WITH ALL ONE'S

L
BLUSH: MOV

3
:

004767
012705
004767
002011
005105

A AR A AR

BSETUP: MOV
MOV
TST
CLR
CLR
RTS

2105
2106
011306
011312
011316
011322
011324

ROUTINE TO CLEAR BUFFER
ENTER WITH RO POINTING TO TRANSFER LIST

FLUSH:

011264

:PARAMETER DID NOT ECHO

2104

2108
2109
2110
2111
2112
2113

2091

2096

;DROP SLAVE'S ATTN
JWAIT FOR REPLY
JBRANCH IF ATTN SET
sADVANCE PARAMETER COUNT
sALL PARAMETER XFERRED?
JBRANCH IF NOT DONE
JRETURN WHEN ALL PARAMETERS TRANSFERRED AND CHECKED.

RTS

2090

2096

R3,(R2)
R4, (R2)
PRMXF &
R1
R1,NWRDXF
PRMXF 1
R7

2089

2092
2093

PRMXF3: BIC
PRMXF&: BIT
BNE
INC
CMP
BLT
RTS

HALT

000030
000004

JBRANCH IF ATTN CLEAR
s COMPARE PARAMETER SENT WITH SLAVE'S ECHO

:BRANCH IF EQUAL

HLT

:
3

2075
2076
2077
2078
2079
2080
2081

;WAIT FOR REPLY

PRMXF
(RO)+, (RS)

PRMXF §

104000

20
2074

PAGE 39

m..mg>

BEQ
CMP

176400

11:29

SEQ 0038

PRMXF2: BIT

1776
022015

22%;

01-APR-80

8030412

011212 000000

011214
011216
011220
011222
011226
0112
011232

MACY11 30A(1052)

(RO)+ ,R1
(RO) +,R2
(RO)+
R3
R4
R7

T I T T I TT T I
sSET RS TO ALL ONE'S

;R1 IS BUS ADDRESS
sR2 IS WORD COUNT
;SKIP OVER OFFSET
sCLEAR LOW CHECKSUM
sCLEAR HIGH CHECKSUM
;RETURN

T T I

TTIT

ROUTINE TO FILL BUFFER WITH FLOATING 1'S AND FLOATING 0'S PATTERN
ENTER WITH RO POINTING TO TRANSFER LIST

SETBUF: JSR
SETBF1: MOV
SETBF2: JSR
BGE
com

R7 ,BSETUP
#1,RS5
R7 ,BUFPUT
BUF OUT
RS

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

CZDRBGO DR11-8/DA11-8B NPR DIA
| CZDRBG.P11
01-APR-80 11:25

1% oM

2115
|
119

004767

177720

01-APR-80

JSR

11:29

R7,BUFPUT

PAGE 40

SEQ 0039

;COMPLEMENT OF NUMBER TO BUFFER

105

BGE
coM

BUF OUT
RS

ROL

120 0N
000764
2121 011
10320
21 g 011350
010420

B8R
BUFOUT: MOV
MOV

21%2

. :'.""'...'....".".""""..."Q..'...Qt."."...'.Q't'. (2 3 3]

o217

on
011

MACY11 30A(1052)

118 O

gm 011
3324

011352

cLe

1037

BCS

000207

RTS

21
2127
2128

:
:
;

2129

2130

2131

213;
2133
213%
2135
2136
2137
2138
2139

011356

011356
011360
011364
011366
011370
011372
011374
011376

010046

010146
004767 000036
012600
012001
012002
012600
012003

MOV
JSR
MOV
MOV
MOV
MOV
MOV

020220

BLE
HLT

:IF CARRY SET, START PATTERN OVER
;MOVE LOW CHECK TO LIST
“MOVE HIGH CHECK TO LIST

*RETURN

022123

BUFCK1: CMP

2147

00527(71%

BUF CK2: INC

000207

RTS

011410
011412
011414

001401
104000

2148 011416 002
011420

RO,=(R6)

2151

*SAVE LIST#1 ON STACK
SVERIFY INTEGRITY OF CHECK BUFFER (#2)
*RECOVER 1ST LIST POINTER
*BUS ADDRESS #1
*WORD COUNT #1
*RECOVER 2ND LIST POINTER
*BUS ADDRESS #2
* COMPARE m COUNTS
*BRANCH IF EQUAL OR LESS THAA
:BUFFER 2 IS LONGER THAN 1

(R1)+, (R3)+

:COMPARE BUFFERS

BEQ
HLT

BUF (K2

BLT

BUF CK1

2152
2153

:
:

21 s‘

R A

2162
5}“

011444
011446

000207
104000

RTS
CHKSM2: HLT

2165

011450

012105

GETBUF: MOV

2168
2169

011456
011460

005202
000207

INC
RTS

2166 011452
2167 011454

060503
005504

*ADVANCE COUNT

*BRANCH IF NOT DONE

*RETURN; STACK IS CLEAR
A NN AN R AN R AR AR AN

RN AN N AR AR

NACNOERS

. -t."..'t.t.."".t.t.""'.".'............'...'.'.'..."'..' L 2]

004767
004767
002775
020320
001003
020420

177644
000016

:DATA ERROR

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

2155 011422
2156 011426
2157 011432
2158 011434
2159 011436
2160 011440

011442 001001

:SAVE LISTAH2 ON STACK

R1.-(R6)
R7. CHKSUM
(R6)+,RO
(RO)+.R1
(RO)+.R2
(R6)+.RO
(RO)+_R3
R2, (RO)+
BUF (K1

HALT

2144 011406

2161

SETBF1

SETBF2
,(RO) +
R&. (RO) +

ROUTINE TO COMPARE TWO BUFFERS
BUFFER LIST #1 IS IN R1
BUFFER " IST #2 IS IN RO. #2 CHECKED FOR PROPER CHE(CKSUM

BUF CHK: MOV

g;g 011404

g}gg

*POSITION TO THE LEFT

' 3tt'...'.'."'!..t..'..""'"".........'.'."."'."Q'.""..'

2140 011400 003402
21641 011402 104000

2145
2146

,MOVE PATTERN ONE BIT

CHKSUM: JSR
CHKSM1: JSR
BLT
o
BNE
CMP

BNE

ADD
ADC

R7.BSETUP
R7 . GE TBUF
CHKSM1
R3, (RO)+
CHKSM2
R4, (RO)+
CHKSM?2
R7

(R1)+,RS

RS.R3
Ré
R2
R7

:SET UP REGISTERS
*GET ITEM FROM BUFFER
*BRANCH IF NOT DONE
:COMPARE |.OW ORDER CHECXJ

:COMPARE HIGH ORDER CHECKS
:RETURN IF CHECKSUM OK.
ORIGINAL BUFFER CHECKSUM DOES NOT AGREE WITH PRESENT
:GET ITEM OUT OF BUFFER

*ADD TO CHECKSUM

;ADVANCE WORD COUNT

|
| CZDRBGO DR11-B/DA11-B NPR DIA
,CZDQG.PH
01-APR-80 11:25

f §m 811462 014224

1;;

217%

}rs

LISTA: XI

177605

011466 %883

om;g

011472

000000

011476

000000

gm
180

011500

011502

g}m

011504

2185
2186
2187

011510
011512
011514
011516

: CHECKSUM LOW

SOFFSET

:CHECKSUM HIGH

;START OF REC BUFFER

000000

*WORD COUNT

000000

SOFFSET

000000

:CHECKSUM LOW

s CHECKSUM HIGH

LISTB: XINBUF

000000
000000
000000
000000

;SLAVE'S ECHO BUFFER

0
0
0
0

;;'t..'tt"t..'t.'.t."'t""'t'...tt.t..tt'tt't't..t.t"'t.'..t.

2191
2192

2193

:
:

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

PRINT:

JSR
BIT
BNE
MOV
MOV
0, o

X7.CKSWR
@SR, #20000
1%
(6)+,SAVP(
(6)+,SAVCC
-(6),-(6)

TSTB

aTPsS

.-.-tt.ttt't...t"'t.tt"t’t."tt'....ttttttt..t'ttt'.t.t..t'.t.t't

2197
2198
2199
2200
2201

011520
011524
011532
011534
011540
011544

2203

0115564

zzo;

;START
OF XMIT BUFFER

LISTAL: 0

21w

2194
2195
2196

004767
037727
001067
012667
012667
024646

000672
167264

020000

000204
000202

011546

012777

000215

167312

MOV

2204 011560
2205 011562

100375
012777

000212

167276

BPL
MOV

.~
#212.3TP8

2207
2208
2209
2210
2211
2212
221

011574
011576
011602
011606
011612
011616
on&z’

100375
010267
010367
010467
016702
004767
012777

000134
000132
000130
000126
000126
000240

167236

BPL
MOV
MOV
MOV
MOV
JSR
MOV

.~
22.SAVR2
13.SAVR3
4., SAVRG
SAVP(,
X2
17 .PRTAB
#240,3TPB

011634

100375

8PL

2206

011570

2214

2216

011636

2215

2217
2218

105777

011662

017702

011672
011676
011702

016702
016703
016704

2222

011666

167304

167270

167230

ousro; 000104

004767
012777

011656
011660

2223
22264
2225

105777

011642
011646

2219
2220

2221

&
PAGE 41

:WORD COUNT

213
011506 014224
2184

5189

-123.

1;9 01147¢ 000000
178

11464

11:29

SEQ 0040

21720

;

g
01-APR-80

MACY11 30A(1052)

105777
100375

004767

000102
000240
167204

167136

000056

000040
000036
000034

TSTB

MOV
167212

#215.aTP8
aTPS

aTPS

SAVCC,
X2

JSR
MOV

X7.PRTAB
#240,3TPB

MOV

aDRST, %2

MOV
MOV
MOV

SAVR?,
X2
SAVR3 .13
SAVR4
. X4

TSTB
BPL

JSR

aTPS
.~4

X7.PRTAB

JTEST FOR INMIBIT PRINT OUT
;IF SO, BRANCH OVER PRINT
sPC OF FAILING ROUTINE
sCC OF ERROR CONDITION
JREPOSITION THE STACK

‘CR

:LINE FEED
:SAVE R2
*SAVE R3
*SAVE Ré&

:PRINT OCTAL NUMBER
;SPACE BETWEEN WORDS

;PRINT OCTAL NUMBER
*PRINT SPACE

*PRINTER DONE
JBRANCH WHEN"NOT DONE

*GET DR115 STATUS

JPRINT OCTAL NUMBER

CZDRBGO DR11-8/DA11-8 NPR D]A

(ZDRBG.P11

01-APR-80 11:25

%ggz
om ;% 0057%7 167076
22
8} } ;16 100001
om

1
2
22
22
2235
2236
2237

0117
om
om
om
011740
011742
011744

1001
000000
000002
000000
000000
000000
000000

22640
22641
2262
2243
2266
22645
22646
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270

011750
011756
011760
011764
011772
012000
012006
012014
012020
012022
012026
012026
012034
012036
012044
012050
012054
012060
012064
012066
012074
012100
012104
012106
012114
012120
012126
012132
012136
012142
012144

005067
005067
012706
142777
012767
012767
012767
105777
100375
005702
100404
012777
000403
012777
016703
010267
005167
046703
001410
066767
005267
026703
001370
062767
0167264
066767
005067
(005067
005367
001410
012703

22
22
2276
2275
2276
2277
2278
2279
2280
2281

012156
012160
012162
012164
012172
012176
012200
012204
012210
012212

005303
001373
730
012767
105777
100375
014477
005367
001401
000767

5539

2271

004767

———

011746

0151 50

00050«

1$:

003046

O01-APR-80
JSR

11:29

X7, CKSWR

TST

HALT
M

W2, a6

BPL

€

PAGE 42

;CHECK SR FOR HALT SWITCH

;HALT ON ERROR UP IN SWR
JARE WE IN ACT11 AUTO MODE?
;BRANCH ON NO
JHALT ON ERROR IF IN ACT11 AUTO MLDE

JRETURN TO MAINL INE

SAVR?:
:
SAVRG
SAVP(:
SAVCC:

000000

066767

MACY11 30A(1052)

000260
000252
01224
0001
000005
000007
000001
167044

PRTAR:

36
WAITT:

000260

167032

000261
000156
000150
000144
000140

167022

000136
000134
000126

000136

0002
000114
000102
000100
000076
000074

000120

000003

000052

000005
166666
166662
000026

;GET LIST ADDRESS
;CLR INT FLAG

167072

sNEG SIGN PRINT 1
;POS SIGN PRINT 0
MINUS:

START:

SCOUNT UP TO

WRTOC:

000102

000050

000044

:PUT MASK IN R3
:GET READY TO DOODLE NUMBER IN TOODLE
:COMPENSATES FOR COMPLEMENT DURING BIC
SAND IN OCTAL CHARACTER
*ZERO, WRITE O IN LIST

MKNUM

#260,BINCT
BINCT, (4)+
SEVEN,DECML
WGTCT
BINCT
ASCNT
XLIST

#3,13

;5 CHAR IN LIST
;SET X3 FOR ADD LOOP
JMAKING SEVENTY BY SEVEN

MOADD
START
#5 ,ASCNT
alPs

JNX SEVEN SET GET NX OCTAL
;SEND 5 CHAR TO TTY

%VEN.SEVEN

XLIST:

WAIT?:

*AND RECORD
*SAME BINARY WEIGHT
*KEEP COUNTN
*ADD ASCII PREFIX
SWRITE ASCII CHAR IN LIST
*EXPAND BINARY WEIGHT

WAIT2

-(4),aTPB
ASCNT
HDF HM
WAIT2

sFINISH PRINTING GET NXT NUM

SEQ 0041

166644

11:29

&
PAGE 43

TSTB QTPS
.4
BPL

¥4

-4

HDFHM:

01-APR-80

TOODLE:

SEVEN:
DECML:
WGTCT:
BINCT:
ASCNT:
LIST:

55838 015520 100%75
52 000207

MACY11 30A(1052)

o (=lelelelelelelelele) o

CZDRBGO DR11-8/DA11-8 NPR D]A
(ZDRBG.P11
01-APR-80 11:25

SEQ 0042

JHEAD FOR HOME

;:'QQ"..t'....'...'QQ"'""".'Q..Q'..Q"l'...t""".'.'..'Q.'

012252
012256
012264
012266

0122764
012276
012302

004767
032777
001003
011667
000002
022606
012677
000177

000140
040000

166530

000106

SCOPE LOOP ROUTINE ENTERED BY USER TRAP

AR AL

AR A

166474

SCOPEB
816, RETURN

166452

000026

000022

:SCOPE RETURN

17, CKSWR

SCOPEB

17, CKSWR

#4000, asR

2222323

2222223331

2222232232333

2223233I1 T

:TEST SR FOR SCOPE

*YES SCOPE

*FIRST PASS (PASCNT=0) ?
:BR IF YES, INMIBIT ITERATIONS
:TEST FOR ITERATION

SINHIBIT ITERATION

SCOPEG
SCOPEF
SCOPEB
SCOPEF
326, RE TURN

SEXIT = DONE
- INCREMENT COUNT
:LOOP SOME MORE
*CLEAR COUNT
:SAVE SCOPE RETURN POINTER

SCOPEF
, ICOUNT

CLR

SCOPEG

:RETURN INLINE-NEXT

TEST

;COUNT LOCATION FOR ITERATION LOOP
:ADDRESS OF LAST TEST

RETURN: BEGIN

165572

#40000,asR

ICOUNT: 4000
SCOPEF: 0

000167

eI 2232223232222

@RETURN
e

000016

012402

SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES

SCOPEC: JSR
8IT

SCOPEG:

(6)+,%6

PASCNT
SCOPEG

000062
004000

:SCOPE, BIT IS A ONE
:NO- SAVE PC FOR NEXT TIME
*RETURN IN SEQUENCE
*REPOSITION THE STACK

(6)+,PSW

166546

000010
000006

X7, CKSWR

(MP
MOV
JMP
AR

#40000,asr

RTI

000072

000104
040000

SCOPEA: JSR
BIT
BNE
MOV
SCOPEB:

166514

200

CZDRBGO DR11-8/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

0 ;‘0%
012410
012412
012414
012416

166370

CKSWR:

O1-APR-80

17775¢
177744
177736

AR AR RANAN RN RN

TEMPST:

177652
177644
177636

NSO

177624

012776
000314
000007

177600

177572

1%:

3$:
2%:

8%:

A ¥

177562

5%:

e S
R
e SRRV
e
B

7$:

.WORD

RN RN AN CANANANRNNNANIRONANRRRRERROREROS

#SWREG,
SR

;SOFTWARE SWITCH REGISTER PRESENT

@TKS

;YES,WAIT FOR

ouT
aTkB,TIB

#7.118

BNE
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
CLR

CLR

#177600,718

out
#SCNTG,
X2
PC, TTOUT
#SMSWR
, X2
PC, TTOUT
asR, 12
17.PRTAB
FSMNEW
, X2
PC, TTOUT

CMP8

#25.TIB

#177600,118

BR CNTLU
(MP8
#15.TIB

BNE
MOV

4
#SCRLF
, %2

X7.TT00T
#7 . COUNT

BNE
8R
(M8
8GT
CMPB
BGE
MOV
JSR
B8R
ASL
ASL

78
ouT
#60,TIB
(17
#67.TIB
68
#SQUEST,
X2
PC, TTOUT
3$
TEMPST
TEMPST

BICB

#60.TIB

BEQ
B8R
MOV

3
13
TEMPST ,aSR

RTS

GET CMARACTER

SAND STRIP OFF
*THE GARBAGE
;IS IT A <*>

TEMPST

#7 ., COUNT
PC TTIN

BNE

*READY,

arTEMPST

MOV
JSR
BIC

0
0
0

ouT

BPL
MOV

BISB
DEC

oUT:

SEQ 0043

BNE

ASL

177474

&
PAGE 44

.WORD
.WORD
WORD

JSR
P

[
gy

RN
EERE¥
&3 ERRTRERRRR

—

012602

000015

SREAD:

COUNT:
RDSW:
TIB:

BIC

CNTLU:

11:29

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

ISTB

OOOOOOOOOOOOS

5339
340

MACY11 30A(1052)

TEMPST

TIB.TEMPST
COUNT

;G0 READ A CHARACTER
;STRIP OFF GARBAGE
JIS IT A ~U?
JBRANCH IF NOT
:START OVER
;IS IT A <CR>?
JBRANCH IF NOT

JWAS IT FIRST CHARACTER
JCHANGE SWR [F NOT FIRST ONE
;GET ouT

;START OVER IF NOT LEGAL CHARACTER

JGET NITTY=-GRITTY
JONLY WANT 6

DIGITS

;CHANGE SWITCH REGISTER CONTENTS
JRETURN TO PROGRAM

(ZDRBGO DR11-B/DA11-8 NPR DIA

(ZDRBG.P11

01-APR-80 11:25

MACY11 30A(1052)

394

2395

2396

2397
2398
2399
26400
2601
&
2603
2604
2605
2606
26407
26408

|
L
.
|
|

52(1)8

005077
005077
005067
005277
105777
100375
017767
105777
100375
116777

2611
2612
2613
2616
26415
26416

012766
012770
012776
0N
013010
013012

000207
057137
020137
051537
000046
020040

26418

013023

2420
2621

013031
013036

137
000
137
040520

2423

013047

2428 013104

2629
32:;(1)

013112

52%

013114

166136
166134
177462
166122
166116

TTIN1:

SEQ 0044
TT

TTY READ SUBROUTINE#eeesssses

(LR
(LR
CLR
INC
TSTB
BPL
MOV
TSTB
BPL
MOovB

aTkKS
aTk8
TI8
aTksS
aTks
TTINY
aTkB,TIB
aTPS
TTIN2
T18,aTPB

RTS
.ASCIZ
.ASCIZ
.ASCIZ

X7
°'_“G &'
°'_
&'
‘_SWR= g'

177442

177430

166100

020107
000046
051127

000046
020075

SCNTG:
$CRLF:
S$MSWR:

042(5)2)8

036527

SMNEW:

.ASCIZ

020077

023137

SQUEST:

.ASCIZ

'_? _&'

020104
020040

SENPAS:

.ASCIZ

'_END PASS

137

047105
051523
000
061440

042132

STITLE:

.ASCIZ

'_ CZDRBGO DR11-B/DA11-8B
NPR DIA

040511

020040

057440

000046

TTIN2:

NEw= &'

.EVEN

000000

OFL:

;:FIRST CHAR FLAG

.':l"tt."'!.t.t.'.fi."""""ttt.tt.tttQ.'.Q.'t...t.""'.!tt'.

2‘.37

TTY ASCII OUTPUT ROUTINE

.'.'Qt'tttttttt't'..'tt.t"'t.t"'t't.'."'QQ'Q.QQQQQQQQQQQQQ'.".'

013116

013120
013122
013126

105712

001403
122712
001005

2444
2445
2446

013130
013136
013140

042777
005002
000207

2448
2449

013146
013150

001411
122712

26447

PAGE 45

166112
166106

2636

TTIN:

2434
2‘35

26441
2642
2443

11:29

R L
T T T

012716
019722
0127
01
012736
012742
012744
012752
012756
012760

2438
2439
26440

01-APR-B0

013142

122712

TTOUT:

000046
000100
000137

000041

165726

1%:
JEMPTY:

TSTB

BEQ
C(MPB
BNE

(2)

18
#'L,(2)
EMPTY

;CHECK FOR NULL CHARACTER

:IF NOT, TYPE THE CHARACTER
:CHECK FOR TERMINATOR

BIC
CLR
RTS

#100,3TPS
4
1

:CLEAR POINTER TO CHARALTER
*RETURN

BEQ
(MPH

.RET
2,02

;CHECK FOR RETURN TERMINATOR

CMPB

()

:CRLF

CHAR?

(ZDRBG.P11

01-APR-80 11:25

MACY11

165702

30A(1052)

1%:

165676
RET:

00%020
013214

012

26466

2667

2668
26469
2470

014222

0146224

015226

000000

0146224

015226
015226
000001

041

.RETR:

.BYTE

.SAV:
X INBUF
:

¢« O
O

.REST:

000006

O01-APR-B0

838335823852

CZDRBGO DR11-B/DA11-8 NPR DIA

XCHKBU:

:
BUFF

=,+1000

.=.+1000

11:29

&
PAGE 46

REST

arTPs
18
(2)+,3TP8

TTout

: TYPE CHARACTER

;SET UP Nee POINTER

15,12,"!

;FOR STACK POINTER 100 LOCATIONS

SEQ 0045

2
C(ZDRBGO DR11-8/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

ASCNT

0122%

BACKGD
BAOFCK

007774
005264

ATTN = 028000

2244

|BEGIN

66
2240+
W724

001174

BINCT
012234
,g{;? = 000001

81110 = 009000

17620
}766

H 4
MACY11 30A(1052)
O01-APR-80 11:29 PAGE 48
CROSS REFERENCE TABLE == USER SYMBOLS

2268+

2275+

2279+

17874

1806

1814

1463

657

8IT11 = 004000

,elrlg = 010000
iBlT1
BIT14
BIT1S
BIT2
BIT3
BIT4

=
=
=
=
=
=

BIT6

S70#

2263+

571
2264
1691

22904

1691

2267+
1575
661

756

020000
040000
100000
000004
000010
000020

SEQ 0046

1275

1705

2332

770

795

817

1278

1304

22894

773

1073

1081

720

721

779

804

= 000100

785

920

923

9%9

952

981

BIT7 = 000200
BIT8 =
BIT9 = 001000
BLUSH
011264
BRANCH 007024
BRWAIT 001052
BSETUP 011272
BUFCHK 011354

961

965
814

997

1001

1036

1040

1373

BITS

= 000040

788

1463
2109

987

1575

2148
1774

1184+
1479+
1631

12264

1203+
1506+

1241

1544

1562«

1243+
1563

1313

1323

1371

1651+
1599

2115
211

007334

COUNT
012410
CYCLE = 000400
DATCHK 007236

2
N

N QoOP= NWNN

012470
007252

CNTLU
COMPAR

(KSWR

011426
011446
011422
012416

PONIAY
— — —
O = — = AN
—N0 N0 &

CHKSM1
CHKSMZ
CHKSUM

001044

-t N

003010
003154
003342
0035
007110
007076

) =

CHGGZ2
CHGG3
CHGG4
CHGGS
CHKA
CHKBFF

CHKBUF

591«

002660

—

CHGG1

1556

15934

2369

2374
1981
1581

904
2320

2389
16244

933
23464

2040

963

1038

1683

2196

001032

DRINS
DRINV

010216
001034

DRINO
DRIN1
DRINZ

010230
010252
010274

DRIN3

010262

DRVS

001030

DRW(

001020

DRST

1334+

=9g%%

k-3

DRINL

913+
1247+
1617

MJ\NN&:\’)’
2oy
®
G832
Pe=3l
LR N
N
IR J

001026

5304

DRDB

1407

~NWwW

005722
001022

2246+
374

&k % g

DONE
DRBA

001040

- ad ) b

012230

DIOMEM

DECML

s Sy

006

1464
1216
1492

'DATONB

007

' DATINB
DATOCK

I &
MACY11 30A(1052)
01-APR-80 11:29 PAGE 49
CROSS REFERENCE TABLE == USER SYMBOLS

CZDRBGO DR11-B/DA11-8 NPR DIA
CZDRBG.P11
01-APR-80 11:25

1499

1638#

2265+

22874

1620

617+
974

863+

1289+
2049+
1118+

1343+

2055

1191
1849

1212

938+

1249+

DSTATA= 001000
DSTATB= 002000
DSTATC= 004000

END
007416
END1
007446
ERRA
001252
ERRCHK 00
ERRDO
005776
ERRDOT
006060
ERROR = 100000
FLUSH
011234

1530+

1531

864

1149+
1456+

1457«

887+«

1165

1484+

1188+
1507+«

1234

1248+

1459

1487

1517

1055+

1061+
1515+

16486+

001024

FLUSHT
011242
FNCCNT
001070
FNCT1 = 000002

SEQ 0047

891+
1227+

1568+

1325

1550«

1571
1190+

1634+

NTe3
[+

£S382IS

—

NN =

1395+

232

1456

1484

1640+

1641+

]

e
e
e
e

n—

781

—

2382

1937

1587+

1590

1932
1921
1978

21774

1223

1452

—I-A-O—D—AN

D b b — D D b oD~ —2 3 b

1229

—

G FESRE SEReRIee
l‘\g RR*T*N
Ig

1533«

no — —a

LIST
012240
LISTA
011462
LISTA1
011474
LISTB
011506
LOADA
007052
LODBUF
007040
MAINT = 010000
MFCHK
006550
MFLOOP (006442
MINUS
012036
MKNUM
012066
MOADD
012150
MREC
011056
MREC1
011070
MREC2
011102
011114
3

SR rgeeRIINa
RSBILRENELE

001072
002552
005524
002522
007142
004156
004330
007640
007636
010316
010376
010356
010430
010466
007074
001050

D i b
NN N = 200N

INBUF1
INCBA
INCDB
INCGWC
INTA
INTB
INTC_
JBCNT
JBFLAG
JOBAD
JOBAOA
JOBAOB
JOBAT
JOBA2
LDEXIT
LENCHK

bl i

IE_
= 000100
INBUF
001042

i i

012374

1870

DN\ i

ICOUNT

010746
010754
010774

Xa
0
W —

HNDSHK
HNDSH1
|HNDSH2

-l i i o i

g p—p—

710

FREHIRE &

3033

2156
17294
2280
&7

1980

1731»

[ NP

17308

000010
011450
1
012214
104000

SEQ 0048

ST R

= 000004

23 88 § §°u-‘°° 3R 2

FNCT2

FNCTS =
GETBUF
G0
=
HOFHM
HLT
=

MACY11 30A(1052)
01-APR-80 11:29 PAGE 50
CROSS REFERENCE TABLE =- USER SYMBOLS

- NN =R
W HWN—W

CZDRBGO DR11-8/DA11-B NPR DIA
CZDRBG.P11
01-APR-80 11:25

2262

1901
1776+

1811+

1594+

1598+

1599

1626+

1627+

1478

1508

1546

1565

15844

1631

CZDRBGO DR11-B/DA11-8 NPR DIA

; CZDRBG.P11
MSTART

01-APR-80 11:25

001000

Ms1

007642

5234

526

MACY11 30A(1052)

20104
58160
184

NOP

1923«
Lo

1924+

NORMAL
NPRRDY
NPR1
NWRDXF
N1413
OFL

PASCNT

PRMXFR

PRMXF1
PRMXF2
PRMXF3
PRMXF4
PRTAB

007276

001036

007630
004050
013114

012714

001074

011520

011142

011174
011200
011214
011216
011750

PSW

001016

P3INT

P4INT
P4INV
PSERR

003424
003312
003230

P6ERR
POINV
P7ERR
P7INV
RDSW

003052
002774
002722

P3INV

PSINV

RDYCHK

003512

003124

012412
NKP)‘}:S

176494

12684
1761«

1139
1102
s34

1172
11164
1117
1998
1112#

2068

2347

1748¢
1107
24324

5514

“

2019

1778«

1808+

1809+

1280

1315

1445

1621

16344

1119«

1133

1149

1150«

1165

1169

2349

2353

2376

23934

1846

21964

1666+

2037

2318

2222

22404

2359

1251%
1704%

1264+
1763«

1292+
1765«

1423+
1779«

1460+
1781+«

2328~

2332«

1006
998
970

938
932
909
903
23434

5284

10594

570

SAVCC
SAVPC
SAVRZ2
SAVR3
SAVRG

2200
2199«
2208+
2209«
2210«

2216
2211
2223
2224
2225

22384
22374
2344
22354
2364

741

754

767

SCOPEA

SCOPEC

012252

012274

012306

901«

18204

592

607
825

1068
1370

1100
1383

1147
1394

1181
1418

2303

23064

2317

2326

23014
498

1984+

1872

1878

1882

1910«

1911«

930+

1192+«

1213«

1231«

1488+
2307+

960+

1518+

996+

1035«

1122«

1154

616

630

642

655

672

689

1202
1450

1221
1476

1240
1505

1259
1542

1286
1561

1320
1582

1553«

1572+

1636+

1671+

1690+

1701+

9514
9384
9224

2308

SCOPEB

1868

9684

18314
2304+

4704

1983+«

10234
10044
9864

1408+

1807

1949+

10434

1405+

011746
011744
011736
011740
011742
SCOPE = 104400

544k

2066

17364
1813
571«

010104

1948+

20454

READY =
5
RESALL 010120
RETURN 012400

SAVALL

1938+

2217

1043

SEQ 0049

1777+«

1937+

2069
2059

1037

PAGE 51

1762«

20564
20584
2061
20654+
2212

508+

17564

1909
20N
2015
17434
1262

007632

11:29

CROSS REFERENCE TABLE == USER SYMBOLS

MMIT
011002
MMITT 011014
MMIT2 011026
NEX
= 040000
NEXCHK 005130

NEXJOB

01-APR-80

23154

844

858

871

885

899

929

702

959

1332

715

995

1342

728

1034

1355

&zm DR11-8/DA11-8 NPR DIA
| CZDRBG.P11

ISCOFEF

SCOFEG

015 7

01-APR-80 11:25

2323

MACY11 30A(1052)

ggs *

2319

3
s

SETBF2

811 16

2111#

68'

SEVEN
SJOB1
SJoB2
SJOB2A
SJOBZ2B
SJ%

12226
010540
010556
010572
010664
010676

2245
1
1778
1957
19754
1974

1775
2254
1948
1949
19604
1976
19784

2358

2392+

526
2252
514

17734
22544
S55#4

2274

524
23414
534
52330

968+
2362«

969
2363

2350

5464
5454
1141
11014
2255+
5484
5474
1687
16924
1673
1406
2365
2404k

2350
1425+
11474
1143
2256+
2202+
2203
16914

SETBUF
SETVEC

SJ
SR

SSTART

ss1
START
SUSWR
SWREG
TEMP

TEMPST
TEMP2
TiB
TKB
TKS
TNPRO
TNPR1
TOODLE
P8
TPS
TRPA

TRPB
TRTRAP
TSTRDY
TTIN
TTINT
TTIN
TTOUT

T33CLR
T34CLR
135

01131

011
810136

010722
001014

001006

007722
012044
001102
000176
001076

012406
001100
012414
001062
001060
004234
004000
012224
001066
001064
007540

007544
007474
005700
012716
012736

012752
013116
004226

WAIT1
WAIT2
WCLEN

012014
012172
001054

WGTCT
WRTOC

012232
012106

XCHKBU

015226

XBA16 = 000020
XBA17 = 000040
XINBUF
XLIST
x1
X2

014224
012164
2734
003064

21104
1907
1759

1977
274
5254

5054

1982#
558

562

PAGE 52

“

18434
2265
1983
19564

562+

SEQ 0050

3314
3274

2271

22864

1984

968

1004

1684

2197

2227

982
23B4x

988
2385«

1004+
2386+

1005+
2388+

2392

1019

1026

2351~

2352

2366+

2367

2370

2377

2401~
2348
1176

2406
26400+

2403+

2404

2257
2205+
2206

22854
2213«
2214

2218+
2219

2251+
2243%

2253«
2247

2355

2357

2361

2373

2281
1186
1455
2261

1187
1480
2266«

1206+
1481+
22884

1207+«
1482

2183

24674

565

2346

2302

2316

2321

2346

2379

2387+

2388

2402+

2606+

2278+
2276

2409+

2282

2453+
2407

2644

2451

2382

24404

2454

2460

1208
1544+

1224+
1545+

1225+
1548

1226
1563+

1244+
1564+

1245+
1567

1410
24004
2405

2408
1668
11424
11754
1181#
2248
2277
1185«
1454+
2259+
22634

539

24694

538
2269
921
950

11:29

1702+

24074
513
1128
1160
1174
2247K
22764
543#
1453~
2241+
2258
17334

17340

O01-APR-80

CROSS REFERENCE TABLE == USER SYMBOLS

|SETBF1

2171
22754
9594

1246

' CZDRBGO DR11-8/DA11-B NPR DsA

| CZDRBG.P11

| X3

'
YESRT
YESTR
YESTR1
YESTR2
SCNTG
SCRLF
SENDAD
SENPAS
SNEW
SMSWR

SauesT

01-APR-80 11:25

003253

00345

003624
007624
00
007
007
01

012776
007464
013031
01301
01

01302

012524

STITLE
013047
.
= 015230

. 985

1028

1058
1699
1685
1686
1
g356
372
501
1667
360
2356

013142
013206
013172
013214
013220

1068
1709
16974
1688
1698+
1o

24234
494K

106
1235
1360
1498
1653
2231
2443
2450
2448
457
2656

11:29

PAGE 53

662
757

805

907

1110
1253
1374
1528
1656
2283
447N
2459
2455
462
2459

SEQ 0051

9954

1034

1697+
17084

1707

241
16754
24204
o416H
414N

511
4934
802

EMPTY
'REST
RET
RETR
. SAV

989

1027

24184

658

01-APR-80

CROSS REFERENCE TABLE == USER SYMBOLS

2381

MACY11 30A(1052)

497N

675
761

808

936

1174
1270
1377
1555
1665
24634
2458

2464H

S00®

679
771

812

966

1131
1273
1386
1579
1703
2465

502

6%
77

815

1002

1134
1276
1399
1580
179

2467

S04#

SOG4

SI1SH

S89

605

621

777

780

783

789

792

1041

1071

1075

1078

6%
818

1137
1299
1403
1600
1798

24684

705

832

1163
1302
1409
1606
1802
2469

709

838

1166
1306
1428
1609
1879

718

1170
1309
1441
1612
2204

722

gs¢

1083

119
1326
1467
1618
2207

791

861

1086

1196
1336
1468
1629
2215

634

735

865

1091

1215
1345
1470
1643
2220

645

744

799

876

109

1233
1349
1497
1648
2228

CZDRBGO DR11-8/DA11-8 NPR DIJA

| CZDRBG.P11

| COMMEN
| ENDCOM
| ESCAPE
GETPR]

GE TSWR

01-APR-80 11:

REPORT
SETPR]
SETUP

1
1»
1»

1»

}'»

461 ]

753
926

764
928

766
956

650

841
994

595

597

611

613

625

627

843
1031

855
1033

S
1065

868
1067

870
1097

882
1099

884
1144

701

71;

714

725

727

738

37
940

896
1146

‘7”5’?

898
1178

1753

1755

1769

1771

1783

1785

1816

1818

1827

1829

1839

1841

1857

1860

1885

2298

1»
1
»
1

1501

2047
2310

»
»
"

.SETUP
. SWRH]

1
1»

.SAPTB
.SAPTH
SAPTY

1»
1
»

.SCATC
.SCMTA
.$082D
.$0820

1\l
1
1#
1

.SEOP
. SERRO

»
1»

. SPOWE

.SERRT
SSMULT

824
992

576

699

.01V

821
958

574

686

1
1

.SASTA

520

$$SKIP
EQUAT

SACT

518

669

.HEADE

667

TYPTXT

S$SESCA

652

2006
TYPNUM
TYPOCS
TYPOCT

SEQ 0052

1475

SWRSU
TYPBIN
TYPDEC
TYPNAM

1»

?TAA;“S

PAGE 55

1»

POP

SKIP

11:29

PUSH

01-APR-80

CROSS REFERENCE TABLE == MACRO NAMES

1l
1»

| NEWTST

MACY11 30A(1052)

i}
1

1502

2072
2312

1539

2005
2337

1541

2089
2340

1558

ass
2394

1560

e
2396

1660

oy
2435

1662

a3
2437

1679

1681

1694

00
‘

1696

1
g8
¥

}713

e
i

};172

et
o

%m DR11-B/DA11-B *PR DIA
CZORBG.P1T
01-APR-80 11:25

.SRAND
. SRODE
. SRDOC
.SREAD

1»
1#
1
1

.SSAVE
.$5820
.$5820
.$SCopP

1»
»
il J

.SSUPR
.STRAP

i\
1»

MACY11 30A(1052) 01-APR-80 11:29 PAGE 56
CROSS REFERENCE TABLE == MACRO NAMES

.$S12€

.$7YPB
.$TYPD

1»
»

.$TYPO

STYPE

.$40CA
1170

1»
il

. ABS.

015230

ERRORS DETECTED:

000
O

CZDRBG.BIN, CZDRBG.LST/CRF
/SOL /NL : TOC=C ZDRBG. SML . CZDRBG.P11

RUN-TIME: 30 39 2 SECONDS

RUN-TIME RATIO: 202/72=2.7

CORE USED:

31K

(61 PAGES)

;

SEQ 0053