Digital PDFs

AH-8644G-MC

September 1980

54 pages

Original

3.1MB

view download

OCR Version

2.7MB

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

(ZDRBGO DR11-B/DA11-B
NPR CIA

(ZDRBG.P11

01-APR-80 11:25

MACY11

3DA(1052)

O1-APR-80

11:29

PAGE
2

SEQ 0001

.REM X

IDENTIFJCATION

PRODUCT

CODE.

A(-86436-M(

PRODUCT

NAME:

(ZDRBGO DR11-8/DA11-B NPR

PRODUCT

DATE:

MARCH

1980

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

LARY (ONDON, DICK JONES,

THE

INFORMATION

THE

SOF TWARE

[N THIS DOCUMENT

DJA

SUBJECT

TO CHANGE

STEVE POMFRET

W]THOUT

NOTICE AND SHOULD NOT BE (ONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL
.
DESCRIBED

IN THIS DOCUMENT

LICENSE AND MAY ONLY BE USED OR COPIED
TERMS OF

SUCH LICENSE.

FURNISHED UNDER A

IN ACCORDANCE WITH THE

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
USE OR RELIABLILTY OF ]TS SOF IWARE ON EQUIPMENT THAT IS NOT
SUPPLIED BY DIGITAL.
COPYRIGHT

(()

'971,1680 BY DIGITAL

EQUIPMENT

THE

C(ORPORAT]ON

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

MACY'1

30A(1052)

O01-APR-80

11:29

1
PAGE 3

SEQ 0002

ABSTRA(T
1.1

THIS
THERE

IS A LOGIC TEST OF THE 'WPR GENERAL INTERFACE'' -DR118.
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 DA1lb

INTERPROCESSER LINK., THE DR11B TEST SHOULD BE RUN [N
IN EACH COMPUTER BEFOUR TESTING THE DA118.

REQUIREMENTS

EQUIPMENT

2.1.1

FOR THE DR118B

POP=11
DR118

STANDARD (OMPUTER

NOTE: WITH OR WITHOUT HARDWARE SWITCH REGISTER
2.1.2 FOR THE DA11B

2 PDP=11
1

NOTE:

2.2

STANDARD COMPUTERS

DA118 (ONSISTING OF

2 M7229 MODULES AND 2

BCO8BR TABLES.

WITH OR WITHOUT HARDWARE SWIT(H RCGISTER

STORAGE

2.2.1

PROGRAM STORAGE = THE ROUTINE USES MEMORY
FROM 0

14000.

LOADING PROCEDURE

ME THOD
PROCEDURE

FOR NORMAL BINARY

TAPES SHOULD BE

FOLLOWED.

DR118 STARTING PROCEDURE
CONTROL

SWITCH SETTING

STARTING AT SA 200 ALL
NOTE:

ALL

BR LEVEL OF
SETTINGS,

SWITCHES SHOULD BE DOWN OR ZERO.

SWITCHES ARE DOWN,

THE DR11B IS = 5.

SECTION 5.1.2.

SEE

IS ASSUMED THAT

OPERATIONAL

THE

SWITCH

(ZDRBGO DR11-B/DA11-B NPR DIA

01-APR-80 11:25

11:29

1
PAGE 4

SEQ 0003

STARTING ADDRESS OR ADDRESSES

(A)

200 = TEST OF

LOGIC USING MAINTENANCE

FEATURE M96Z

[N (04,D0¢

PROGRAM AND/OR OPERATOR A(CT]ON

LOAD PROGRAM INTO MEMORY.
LOAD STARTING ADDRESS

PRESS START.
THE PROGRAM WiLL LOOP, 'END PASS®
TYPED AT THE END OF THE PROGRA
‘.

wiLL BE

NOTE:

SOF TWARE SWITCH REGISTER IS SELECTED THEN THE

(REFER

SWR= XXXXXX NEW=
TO SECTION 5.1 FOR OPERATOR OPTIONS)

FOLLOWING WILL BE

PRINTED:

DR11B OPERATING PROCEDURE
OPERATIONAL

AT SA 200

WITH ALL

THE

INSTRUCTION AND LOGIC

SWITCHES DOWN

THE

OUT ON ERRORS AND C(ONTINUE
PASS'

IN TEST.

CCAPLETION OF

A PASS)

TEST.

('END

SWITCH SETTINGS ARE

SWIS
SW164
SW13
SW12
SW11
SWO2

= 1 OR UP
= 1 OR UP
= 1 OR UP
= 1 OR UP
= 1 OR UP
TO SWO0 =

... HALT ON ERROR
... SCOPE LOOP
... INHIBIT PRINTOUT
... INHIBIT TRACE TRAP
... INHIBIT ITERATIONS
4
4 ... BR LEVEL OF DR11B
5 ... BR LEVEL OF DR11B

NOTE:
THF

5.1.3

DR11B

...

BR LEVEL OF DR11B

SwO2 TO SWO0 = 0,
IS ASSUMED

TO BE

5.1.2

TYPED AT

PROGRAM WILL

5.1.1

SWITCH SETTINGS

UL
P o}

6.3

L. -APR-B0

6.2

30A(1052)

(ZDRBG.P11

MA(Y11

THE BR LEVEL Of
-

THE DIAGNOSTIC

IS RUN ON A CPU WITHOUT A SWIT(H

THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR

REGISTER THEN A SOFTWARE SWITCH REGISTER [S USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWIT(H REGISTER.

AND 1T CONTAINS ALL
REGISTER (LOC. 176)

ONES (177777)
IS USED.

THEN THE

SOF TWARE

ONE DOES

SWIT(H

CONTROL :
THIS PROGRAM ALSQ SUPPORTS THE DYNAMIC LOADING OF THE SOF TWARE
REGISTER (LOC. 176) FROM THE TTY. THIS (AN BE ACCOMPLISHED BY

SWIT(H

(ZDRBGO DR11-B/DA11-B NPR D]A

(ZDRBG.P11

MACY11

01-APR-80 11:25

30A(1052)

O01-APR-80

11:29

PAGE §
SEQ 0004

DOING THE FOLLOWING:
1)

TYPE

LoC.

CONTROL G <*G>;

THE MACHINE WILL

THE

SOF TWARE

3) AFTER THE
OF

THE

THIS WILL ALLOW

TO ENTER DATA

TYPE

(XXXXXX

THE OCTAL

A NUM3BER

THE

TO BE

LOADED

INTO LOC.

176 FOLLOWED BY A <(R>.

(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED)
A <CR> IS THE FIRST KEY DEPRESSED THE SOF TWARE SWIT(CH
CHANGED.

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

BEGIN

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 [S 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 ]TERATIONS
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 SOfF TWARE SWITCH REGISTER

5.2.2

HALT
IS A ROUT.rs

THE
THE

THAT PRINTS-OUT AN ADDRESS THAT

TAGS

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

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

5.2.3

LODBUF
PATTERN (0,1,2,3,...) BEGINNING AT THE STARTING
ADDRESS OF INBUF.
THE NUMBER OF WORDS LOADED IS
DETERMINED BY THE CONTENTS OF BUFLFN.

5.2.4

CONTENTS

TTY:

SUBROUTINE ABSTRACTS

5.2.1

INTO

°*'NEW='' HAS BEEN TYPED THEN THE OPERATOR (AN DO ONE

FOLLOWING AT

5.2.

TTY

THEN TYPE: SWR=XXXXXXNEW=
SWITCH REGISTER.)

THE

176 AT SELECTED POINTS WITHIN THE PROGRAM.

(ZDRBGO DR11-B/DA11-8 NPR D]A
(ZDRBG.P11
01-APR-80 11:29

MACYTY

30A(1052)

OQO1-APR=BO

11:29

1
PAGE 6

SEQ 0005
THE

CHKBUF

BUFFER

IS LOADED WITH A MODIFIED

INCREMENTING PATTERN (0,0,2,2,4,4.6,6,...)

BEGINNING AT THE STARTING ADDRESS OF
THE NUMBER OF

WORDS LOADED

CONTENTS OF BUFLEN.

FOR

THIS BUFFER

TESTS WHICH USE

(HKBUF.

IS DETERMINED BY

THE

IS LOADED ONLY

THE MAINTENANCE TMMODE

THE

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

5.2.5

INTA
THE

IE BIT

CLEARED

IN THE

IS (HECKED FOR THE ABSENCE OF

DRST

THEN THE

AN ERROR AND

DRST

THE

PRESENCE OF READY.
THE DRWC IS CHECKED TO SEE
THAT IT IS EQUAL TO ZERO.
THE CORRECT CONTFNTS

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

EXITED.

ERROR IS SET,
ARE CLEAR,

READY

A MAINTENANCE

MODE

THE

PROGRAM WILL

CLEAR,

HALT

[Ff

OR READY AND ERROR

5.2.6
OPERATION.

INBUF AND THE CONTENTS OF

THE

CONTENTS OF

(HKBUF ARE

"HECKED TO

SEE THAT THEY ARE THE SAME.
THE NUMBER OF (OMgfi?légds MADE IS DETERMINED BY THE CONTENTS OF
LEN.

5.2.7
THE ROUTINE IS ENTERED FROM
TESTS WHICH DON'T USE INTA.

INTA AND FROM SOME
THE NUMBER OF

THE DRINV+2 1S PUT INTO DRINV AND THE DRVS IS
CLEARED.
[F THE DR11-8B INTERRUPTS UNDER THESE
CONDITIONS THE PDP-11 WILL HALT AT DRVS.
THE

PROCESSOR STATUS WORD IS RESTORED
THE ROUTINE IS EXITED.

5.2.8

TO LEVEL

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

5.2.9

INSURE

THAT

TOO MANY WORDS WEREN'T

TRANSFERRED.

ERRCKK
-

THIS ROUTINE

5.2.10 TRAPCAT(HER

CLEARS

AND HALTS

ERROR

IS SET,

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

MA(Y11

30A(1052)

O01-APR-B80

11:29

PAGE

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 °LT OCCURS IN THE

TRAP OR INTERRUPT AREA,

EXAMINE

REGISTER SIX, IT WILL CONTAIN THE CURPENT STA(K ADDRESS.
THE CONTENTS OF THE CURRENT STACK ADDRESS IS THE VALUE OF
THE LOCATION COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED.
PROGRAM AND/OR OPERATOR ACTION

5.3.1

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

ON IT, PLACE SW15 UP TO HALT ON ERROR,
TO LOOP ON ERROR,

THEN SW14 UP

THEN SW13 UP TO DELETE PRINTOUTS.

DR11B ERRORS
ERROR PRINTOUT
THE

THE

FAILING

TEST

AND

THE

STATUS WILL

PRINTED.

ERROR RECOVERY
DEPRESS

CONTINUE

TO RESTART

SECTION

DR118 RESTRICTIONS
STARTING RESTRICTION

NONE
OPERATIONAL RESTRICTION

M968 MUST BE
SHOULD BE

IN SLOTS (C04/D04 - FOR DIAGNOSTIC TESTING

IN A02/B0Z2 FOR NORMAL USER OPERATION.

MISCELLANEOUS

EXECUTION TIME

ABOUT 2 MINUTES
PROGRAM DESCRIPTION

C(IDRBGO DR11-B/DA11-8 NPR DJA

CZDRBG.P11

MA(Y1Y

01-APR-80 11:25
THE

COLLOWING

J0A(1052)

O1-APR-80

11:29

PAGE 8
SEQ 0007

IS A GENERAL

LIS

FUNCTIONS

TESTED.

CAN ALL REG BE ADDRESSED W]THOUT ERROR

RESET

CLEAR DRW(

RESET

CLEAR DR8A

CAN ALL DRW( BITS Bt

SET

CAN 15-1

IN DRBA BE SET

XBA16
XBA17
IE
CYCLE

&
&
&
&

FNCTY
FNCT2
FNCTS

SET & CLEARED
SET & CLEARED
SET & CLEARED

SET
SET
SET
SET

CLEARED
CLEARED
CLEARED
(LEARED

MAINT SET & (LEARED
ALL DRST R/w BITS CAN BE SET & CLEARED
ALL DRST R/W SET, RESET TO O, RDY IS SET, NEX
CLEARED, GO IS O
DRWC HOLD ALT. Q'S
SeO'S
DRBA HOLD ALT. 0°S
SLO'S

INC PATTERN TO WRAP-~AROUND

NO INT.

AT LEVEL

AT LEVEL 6

NO INT. AT LEVEL 5
DOES INT. AT LEVEL &
NO MAINTBRD A02/B02
MAINTBRD (04/D04
FNCT

BITS

CONTROL

DSTAT BITS

RESET 0'S DRD8B
ALL DRD8B BITS CAN BE SET
DRDB HOLD
ALT. 1°'S & 0'S AND ALT.
INC TO WRAP-AROUND IN DRDB
RESET

SETS ONLY RDY

BAOO READS AS 0
1
1

0°S & 1°'S

IN DRST

DAT1 NPR
DATO NPR

BAOF FORCES ERROR & [S CLEARED BY
GO CLEARS RDY

(LEARING DRBA OR RESET

DATO TO DIODE MEM (AUSES NEX

DO WITHOUT CLEARING PREVIOUS ERROR (AUSES ANOTHER
10 DAT1'S (BURST)
10 DATO'S (BURST)

200
200
200
200

DAT1'S
DATO'S
DAT1'S
DATO'S

FUNCT BITS

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

INC WITH MAINT MODE

10 MAINT MODE

XFERS

200 MAINT MODE XFERS
LISTING

XFERS

[NT,

(IDRBGO DR11-B/DA11-8 NPR DJA

(ZDRBG.P1Y

MACY1Y

01-APR-80 11:25
n.
12.

30A(1052)

O01-APR-80

11:29

PAGE 9
SeEQ 00C8

FLOW CHART(S)
DAYIB STARTING PROCEDURE

12.1

THERE ARE TWO STARTING LOCATIONS. ONE FOR THE

COMPUTER THAT WILL BE

FOR

THE

COMPUYER

THE

SLAVE

THAT wWiLL BE

AND ANOTHER

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,
PROCESSCR WILL

12.64 SLAVE

HALT.

COMPUTER,

PRESS (ONTINUE

AN 11/34 OR 11/04),

12.5 MASTER COMPUTER,

(OR CNTRL

AND CONT ON

(ON SWITCHLESS PROCESSOR TOGGLE THE HALT/CONT SWITCH).

PRESS CONTINUE

(OR (NTRL AND CONT ON

AN 11734 OR 11704, (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
THE

14.

DA11B MUST BE

IN A02/B02 AND THE

IN (04/D04

DA118 PROGRAM DISCRIPTION

164.1

THE SLAVE

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

INTERUPT

CAUSES

THE

SLAVE

THE

TO ENTER

START KEY.

THE

INTERUPT

SERVICE ROUTINE.

14.2 THE INTERUPT SERVICE ROUTINE DETERMINS WHAT
INTERUPT CAME UP AND IF T SHOULD HAVE COME UP.
[F THE INTERUPT WAS THE ONE EXPECTED THAN THE
THAN THE PROGRAM GOES TO THE
TO THE PROPER JOB ROUTINE, SJOBXX

AND JOBXX FOR THE MASTER ROUTINE.

FOR SLAVE

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
THE WORD COUNT,OFFSET
,AND

TO ACCEPT

TWwO (HECK SUM WORDS. THE SLAVE ACCEPTS A WORD AT A TIME
tROM THE DATA BUFFER EACH TIME THE MASTER TOGGLES
FUNCTION BIT 3. EACH TIME 17 READS A WORD THE SLAVE

SENDS

THE WORD BACK

TO THE MASTER FOR VERIFICATION.

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

MACY11

30A(1052)

O01-APR-80

11:29

1
PAGE

10
SeEa 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.

16.5 THE MASTER SETS UP THE TYPE OF TRANSFERS AND

CHECKS THE DATA WHEN IT COMES BACK FROM THE SLAVE.

15.

DA11B ERRORS

15.1

THE PC OF THE FAILING TEST, THE (P STATUS AND
THE DR11B STATUS REGISTER WILL BE PRINTED AFTER AN ERROR.

15.2 THERE
THE

IS NO ERROR RECOVERY FOR THE DA118 TEST BECAUSE

OTHER

COMPUTER WILL

ERROR OCCURS.

16.

GET

OUT

SINC

WHEN AN

ECO CHANGES

CHGGY

- CHANGES 1

THRU 5 REPLACED THE

INTERRUPT ENABLE (OMMAND

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

X
MODIFJED FOR SOF TWARE SWITCH REGISTER
INCLUDING DYNAMIC LOADING OF SWR
MODIFIED TO ELIMINATE BAOF

;

N
L

N A

RN R

R RN RN R AR AR AR
AR

AN R A R

000240

NOP=000240

104000
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

HL T=EM7
8110=000001
BIT1=000002
81712=000004
8173=000010
B1T14=000020
BI175=000040
BIT16=000100
B8177=000200
B1718=000400
B8179=001000
B1110=002000
BI1T711=004000
B1712=010000
81113=020000
BI1T714=040000
81T15=100000

000004

BUSERR=000004

104400

ERROR WHEN

DMA TRANSFERS CROSS A 32K BOUNDRY

SCOPE=TRAP

R R

R AR R

PPN AR

NN AN

ANE AN NN

NANN

AN R

IR AN
AN

NI N O

RO NE

RN RN

ARROE RS

(ZDRBGO DR11-B/DA11-8 NPR D]A
(ZDRBG P
01-APR-80 11:25

MACYT1

490
49N
492

30A(1052)

01-APR-80

11:29

1
PAGE

SEQ 0010

;LOAD YRAP CAT(HER INTO O THRU 777.

493
494

495
496
497
458
499
500
501
502
503

b
d
b
b
h
b
e
d
b

(ol

W NN
W —=O

AV, VLV, LV, IV, IV V. |

504
505
506
507

000030
000032
000034
00003¢
000046
000052

0
.=176
SWREG:
=200
MOV

000176
000200
000204
000210
000216
000220
000224
000230

014222
000606
000042
012702

013047

004767
000167
001000

012666
000646

MOV

#BUFF ,26
aPSW
L2, n46
19
#STITLE.X?

JSR

X7,7TT0UT

CLR
Mo
8EQ

000046

1%:

JMP

.=1000

JSET UP STACK LIMIT

JARE WE [N ACT11 AUTO MCDE?
JSKIP TITLE IF YES

JPRINT

THE

TITLE

SUSWR

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

START OF BACK-TO-BACK DR11-8
NN AR AR R ARNARN RN RN AR T TR NN E NN

006634
006706

MSTART:

HALT

JMASTER START

SSTART:

HALT

;SLAVE

SR:

PSW:
:
DRW(
DRBA:

DRST:

DRDB:
DRVS:
:
DRINL
DRINV:
NPR1:

177560

AN AN RN AR NN NAANRRANNNRANAR

START

NI ERANS

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

MACYT1

177562
177564
177566
000000

TKB:
TPS:

TP8B:

ERIVELLEKEXSN

o
e
i
e
e

e
ad e
d
=

00117

»HO

md
b
-

000000
000000
000000
000000
013746
013746
012737
022777
001402
000404
022626
012767
012637
012637

30A(1052)

1
PAGE 12

PASCNT:
TEMP:
TEMP2:

0
0
O

SUSWR:

MOV
MOV
MoV
P
BEQ
BR

INBUF1: HALT

000006
000004
001132
177777

000176
000004
00006
000176

000004
177666

177652

648:
658

668%:

177634

011274
000340
001174

BEGIN:

001252

177562

177556

176522

ERRA:

000010

1727777

z;l LaSR

*REFERENCE HARDWARE SWITCH REGISTER

;SET UP FOR TIMEOUT

(SP)+,(SP)+

MOV

;ADJUST STACK

#SWREG, SR
(SP)+, Wt

*POINT TO SOF TWARE SWITCH REG
*RESTORE VECTORS

#SWREG, SR

;1S SWREG USED

FY%)
BEGIN

;ARE WE IN AUTO MODE?
“IF SO, SKIP SWREG INPUT

(SP)+ ax6

MOV
o
o,
BNE
ST
BNE
JSR
MOV
MOV

BEGIN

PC.CNTLU

*ALLOW SWREG TO BE LOADED

#340, aPSw

#BEGIN,RETURN

*PROC. AT LEVEL #7

RN RN AR AN A NN TN NN AN NN AN ANANRANAANN AR CARNANEANARARAARNRSSY

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

#ERRA ,BUSERR

27.,%0

IIT I mMTIITM

;BUS ERROR VECTOR TO ERRA

;PC TO RO

aNC
MOV
INC
MoV

SDRW(
X7.%0
sDRBA

X7,%0

;ADDRESS DRW(
JPC TO RO
;ADDRESS DRBA
;PC TO RO

MOV

X7,%0

;JPC TO RO

JMADE IT - BRANCH OVER HALT

CLR

aDRST

INC

8DRD8

HLT
MOV
SCOPE

#6 ,BUSERR

B8R

:SAVE VECTORS

668

MOV

177566

6.~ (SP)
G - (SP)

n6e$, ans

SCOPE
MOV

176564

177572

000006

JNUMBER OF PASSES COMPLETED
; TEMPORARY STORAGE
: TEMPORARY STORAGE

(MP
MOV

AR AN RN AN

SEQ 0011

177566

MALT

001264
001272

11:29

177562
177564

FNCCNT:

000042
012777
012767

01-APR-80

;ADDRESS DRST

;ADDRESS DRD8

:BUS ERROR, RO HAS P(C OF ERROR
JRESTORE #6 TO BUS ERROR VECTOR

TEST 1 DOES RESET CLEAR DRW(?
L

MOV
MOV

#10,
] COUNT

#-1,8DRWC

sALL ONES TO DRW(

TMTM

(ZDRBGO DR11-8/DA11-B NFR C1A
(ZDRBG L1
01-APR-80 11:25

004767
000005
005777
00140

MACY1T1

30A(1052)

O01-APR-BC

SEQ 0012
" RESET
TST
BEQ
HLT
SCOPE

177506

[

AAAA AL

L
4

177777
011062

005777
001601

177460

177472

001372
001374

TO SET

;DID DRWC GET CLEARED?
;DRW(C NOT CLEAR

X222 2222223222222

SCOPE
MOV

#-1,3DRBA

JALL ONES TO DRBA

RESET
TST

aDRBA

JINIT
;LOOKING FOR Z2-BIT

17.CKSWR

BEQ
HLT

004000
1727777
177777

JSR

CCRAR

104400
012767
012777
022777
001601

.44

;'."."'."tt"'Qt.""""."'t't.'.tt."t.t't".""Q"Qt.t"

104000

001346
0013<0
001356

JINIT
;LOOKING FOR Z-BIT

8DRW(

TEST2 DOES RESET CLEAR DRBA?

012777
004767

X7, CKSWR

JSR

011112

104000
104400

104400

M
PAGE 13

11:29

A ARNEAN AN AAN NN NN NN

ASRe

Rdiidl

NARNNOS

s 222222222
RS TR ETRR TR R RTY

MOV

#4000,
I COUNT

cMP
BEQ
HLT

#-1,30RW(
.+

MOV

104000

N C R RO N AN RN NN AN RN R NN AR NN AN AN NN N NN AR

TEST3 CAN ALL DRWC BITS BE SET?

SCOPE

011016
177434
1774626

TO SET

;DID DRBA GET CLEARED?
;DRBA NOT CLEAR

#-1,3DRW(C

;SET ALL BITS IN DRW(

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

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

TEST4 CAN BITS 1501

IN DRBA BE

SET?

;;"Q"QQ"Q.'.'Q...'."Q"‘""Qt"t.""tt'tt""'.t'"."'t..'

001376
001400
001406
001414
001416

104400

012777
022777
001401

177776
177776

SCOPE

177414
177406

MOV

#-2 ,3DRBA

8EQ

104000

HLT

NN AR
4

AR AR

TESTS TEST

104400

052777
032777

000002
000002

177374
177366

SCoPE

RIS

BIT

AR R

;SEE

CAN BF

IR R AN AN N AN

#BIT1,3DRST

#B;iT1,8DRST

IF BITS 15-01
15-01

AREN'T

GOT SET
SET

NN A AN AR AR RN A AR RAN RN A AN RSN R AT ANNNNNRN

THAT FNCT1

NN RN

IN DRBA

;LOOKING FOR Z-BIT 710 SET
;BITS

R A AR NN NN

IR AR R R AN AR A RANA

001420
001422
001430

;SET BITS 15-01

#-2,8DRBA

R AN

SET AND CLEARED

RN AN ANNN NN AN RN

JSET FNCT1

JTEST ENCT

STSIEACEIRRND

(ZDRBGC DR11-B/DA11-B NPR D]A
(ZDRBG PN
01-APR-80 17:25

658
659
660

661
662
663

664

001436
001440
001442
001450
001456
001460

MACY11

30A(1052)

042777
032777
001401

000002
000002

11:29

N1
PAGE 14

SEQ 0013

001001

104000

OQ1-APR-80
BNE
HLT
8IC
BIT
BEQ
HLT

177354
177346

104000

SIS IT SET?

#8IT1,30RST
'B{T1,30k07
.+

JFNCTY

IS CLEAR

;CLEAR FNCTT
JTEST FNCT

JWAS IT CLEAR

JFNCTT

WAS S ET

665

666

667
668

669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
646
687
688
689
690
6N
692
693
694
695

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

TEST? TEST THAT FNCT2 CAN BE SET AND CLEARED

;:'.'Q"'."."'Q....""'""'.'Q...Qt't'..t't"'..t"'t""".'

001462
001464
001472
001500
001502
001504
001512
001520

001522

104400

052777
032777
001001

177332
177324

042777
032777
001401

177312
177304

SCOPE
8IS
BIT
BNE
HLT
B8IC
BIT
BEQ
R T

104000

AL SR

#B]T2,8DRST
‘BiT?.aDRST
.+

JSET FNCTZ2

JTEST FNCT?

cI1S IT SET?

JFNCT2 IS CLEAR

JCLEAR FNCT?

JTEST FNCTZ2
.WAS

CLEAR?

JFNCTS WAS S ET

ARl

A a2

TEST10 TEST THAT FNCT3 CAN BE SET AND CLEARED

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

104400

052777
032777
001001

177270
177262

042777
032777
001401

177250
177242

04000

SCOPE
BIS
81"
BNE
HLT
8IC
BIT
BEQ
HLT

104000

R A AR IR

104400

052777
032777
001001
000
042777
032777
001401
104000

713

ARAAR

#B]T2,3DRST
lBiTZ.iDRSY

000020
000020

177226
177220

177206
177200

BNE
HLT
BIC
BIT
8tQ
HLT

#8173, 30RST
#8173.90RST
.+

JTEST FNCT3

JIS IT SET?

JFNCTZ IS CL EAR

;CLEAR FNCT3

JTEST FNCT3

JWAS IT CLEAR?

JFNCT3 WAS SET
TEST THAT

AN AN

SCOPE
BIS

8IT

JSET FNCT3

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

TEST11
R AN

#B]T3,80RST
#B£T3.30RST

AN R AN AT

R RN

RN NNNEN

XBAI6 CAN BE SET AND CLEARED

RN AR R A AR RN NN C AR ANA NN NN AN OANNNRRERE RSO N

#8174 ,8DRST
#BIT4 ,aDRST
+4

#8174 ,30DRST
lB£T4.30RST
.+

;'""..‘Q'.l"".'i.."""'t'..".."'.'.t"'l'tt..'.ltt."'.'t

TEST12 TEST

THAT

XBA17 (AN BE

SET AND (LEARED

CZDRBGO CR11-8/DA11-8 NPR DIA

CZDRBG.P11

4
715

716
717
718
719

01-APR-8C 11:2S

MACY1T

30A(1052)

052777
032777
001001

177164
177156

042777
032777
001401

177144
177136

104000

11:29

PAGE

1§

SEQ 0014
MR

104400

01-APR-80

AAAAA

AR AR

ARl )

SCOPE
B81S
BIT

Ll L

RS2

:SET XBA1?7
JTEST XBA17
IS IT SET?

JXBA17 IS CLEAR

#BIT4,80R5T
MIT4,8DRST
.+

HLT

#IT5,80RST
#MBITS,80RST
.+

BNE
HLT
8I(
817
BEQ

104000

;CLEAR XBA17
;TEST XBA17
1S IT CLEAR?

XBA17 WAS SET
R

TEST13 TEST THAT 1€ CAN BE SET AND CLEARED

1046400

052777
032777
001001

177122
177114

SCOPE
8IS
BIT
BNE

MBIT6,30RST
MIT6,30RST
+4

SET IE
JTEST [E
JIS IT SET?

042777
032777
001401

177102
177074

8IC
BIT

#M]T6,30RST
#B]T6,8DRST

JCLEAR E
SJTEST IE

HLY

BEQ
HLT

104000

052777
032777
001001
000
042777
032777
001401

000400
000400

#B]78,3DRST
#BIT8,8DRST

sCLEAR CYCLE
sTEST CYCLE

HLT

BEQ
HLT

01
010000

77016
177010

010000
01

176776
176770

;1S 1T CLEAR?
;CYCLE WAS SET
R

#B1T12,80RST
#BIT12,80RST
. +4

BIC
817

#B]T12,8DRSY
#81T12,8DRST
R

HLT

TMTM

;SET MAINT
JTEST MAINT
SIS IT SET?
JMAINT WAS (LEAR

sCLEAR MAINT
;TEST MAINT

;1S MAINT CLEAR?

JMAINT WAS SET
R

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

176754

TEST15 TEST THAT MAINT CAN BE SET AND CLEARED

SCOPE
B1S
8IT
BNE
HLT

;CYCLE WAS CLEAR

BEQ

010576

BIC
BIT

052777

177040
177032

104000

104400

sSET CYCLE
STEST CYCLE
IS IT SET?

052777
032777
001001
000
042777
032777
001401

#8178,8DRST
#8178,8DRST
R

104400

IS IT CLEAR?
;IE WAS SET

177060
177052

;

IS CLEAR

SCOPE
8IS
8IT
BNE

104000

T I

TEST14 TEST THAT CYCLE CAN BE SET AND CLEARSD

LAt

104400

SCOPE

BIS

#10576,a8DRST

SET FOLLOWING:

MAINT(12),

CYCLE(O8), E( 06) XBA17(05)
XBA16(04) ,FNCT3(03) ,FUNcr2¢H 2)FNCTT (O

(ZDRBGO DR11-B/DA11-8 NPR D]A
(ZDRBG PN
01-APR-80 11:25
770

[44

772
773

MACY11

032777
001001

000002

176746

032777
001001

000004

176734

032777
001001

000010

176722

032777
001001

000020

176710

032777
001001

000040

176676

032777
001001

000100

176664

032777
001001

000400

176652

032777
001001

0100C9

176640

042777
032777
001601

010576
000002

176626

032777
001401

000004

176606

032777
001401

000010

104000

106000

104000

104000
104000

032777
032777
001401

000040

176550

032777
001401

000100

032777
001401

000400

176524

032777
001401

010000

176512

104000

HLT
BIT

BNE
HLT
BIT
BNE
HLT

BIT
BNE
HLT
BIT
BNE
LT
BIT
BNE
LT
BIT
BNE
HLT
BIC
BIT
BEQ
HLT
BIT
BEQ
HLT
BIT
BEC

176574
176562

HLT

BIT
BEQ
HLT
BIT
BEQ
HLT

b
b
b
b
b
—

RCRRER

VNN

00 0o 0o 0o 0o 0o

104000

O01-APR-80
BIT
BNE
HLT
BIT
BNE

176620

000020

01401

30A(1052)

176536

8IT
BEQ
HLT
BIT
8tQ
HLT
8IT
8tQ
HLT

104000

AR R

11:29

MBIT1,30RST
R

PAGE 16

SEQ 0015

;TEST FNCTY

SIS IT SET?
JFNCT1 IS CLEAR

#BIT2,0RST

JTEST FNCT?

SIS IT SET?
JENCT2 IS CLEAR

MBIT3,30RST

JTEST FNCT3

-“

218 IT SET?

JENCT3 IS CLEAR

#8174 ,IDRST
. 44

JTEST XMA16
;IS IT SET?
;XBA16 IS CLEAR

#BITS5,DRST
.46

;TEST XBA17

SIS 1T SET?

JXBA17 1S CLEAP

MBIT6,30RST
.44

JTEST

IS IT SET?

JIE IS CLEAR

#81T8,30RST
o"‘
#BIT12,30RST
. +4
#10576,@0RST
#81T1,3DRST

JTEST CYCLE
;1S CYCLE SET?
;CYCLE IS CLEAR
sTEST MAINT
;1S MAINT SET?
JMAINT IS CLEAR
sCLEAR ALL R/W BITS IN DRST
sTEST FNCT

. +4

;IS FNCT1 CLEAR?

#8172, 30RST

JTEST FNCTZ2
;1S FNCT2 CLEAR?
JFNCT2 IS SET
JTEST FNCT3
;1S FNCT3 CLEAR?
JFNCT3 IS SET
TEST XBA16
;1S XBA16 CLEAR
;XBA16 IS SET
;TEST XBA17
;1S XBA17 CLEAR?
JXBA17 IS SET

#8173, 3DRST
.+

#B] T4, SDRST
.46

MBIT5,3DRST
.+

#B1T6,80RST
.+4

#BIT8,a0RST
.+4
#BIT12,a3DRST
.+

AR AR AN A AR RN RN AR AN RN

JENCT1

IS SET

JTEST IE

;IS 1E CLEAR?
;JE IS SET
sTEST CYCLE

;1S CYCLE CLEAR?
sCYCLE IS SET
;TEST MAINT
;1S MAINT CLEAR?
JMAINT IS SET
NP R RN A NANR NN AN IR NN N AR RN NN

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

002316

104400

RN ARNRNESY

TO ZERO,

""ttt""'.".'.'.filt"t't"""‘tfitt'.l't'tt.ttttt"'ittttt.lt't

SCOPE

THAT READY

(ZDRBGO DR11-8/DA11-B NPR DIA

IDRBG.P11T
826

002320

01-APR-80 11:25
012767

000010

827

00c326

052777

010576

829

002334

017701

176464

828
830

002340

052701

831
832
833
834
835
836

00234
002346
002350
002352
002356
002360

005201
00101
104000
004767
000005
017701

838

00370

001401

837

gzg

002364

002372

042701

MA(CY11

30A(10522

010046

MOV

176470

176440

127200

;

843

847
848
849
850
851

002412
002420
002422
002426
002432

852
ggz

002440
002442

012777

022777
001401
104000
012777
022777

001401
104000

004000

007770

052525

17640C

052525

125252
125252

176366
176360

857

864
865
ggg

002476
002502
002504

022777
001401
104000

863

002466

012777

176346
176340

125252

176326

125252

868

871
872
873
874
875
876
877
878
879
880

002506
002510
002514
002516
002522
002526
002530
002532
002536
002540

104400
005067
005001
005077
020177
001401
104000
005277
005201
001370

007660
176276
176272
176262

#125252 ,@8DRWC
#125252 ,30RWC

. +4

TEST21

XBAT6(04) ;FNCT3(03) (FNCT2(82) FNCTT(O1)

(DRST) TO R1

;SETS BITS IN R1 THAT WERE NOT SET [N DRST

JR1 SHOULD GO FROM -1 TO ZERO
JWERE ALL DRST R/W BITS SET?
JNOT ALL BITS WERE SET

;CLEAR ALL DRST R/W BITS
JMOVE (DRST) TO R1

JCLEAR ALL BITS EXCEPT R/W BITS, NEX, AND GO
;SHOULD EQUAL ZERO

INCWC:

I I

JALT 0'S AND 1'S TO DRW(

;LOOKING FOR Z-BIT TO SET
;DOZS DRW(C HAVE THE CORRECT PATTERN?
JDRWC DOESN'T HAVE THE (ORRECT PATTERN
;ALT 1'S AND 0°'S TO DRW(
;LOOKING FOR Z-BIT TO SET

;DOES DRWC HAVE THE CORRECT FATTERN?
;DRWC DOESN'T HAVE THE CORRECT PATTERN
Ty

Iy e

I T

I TR

T S

CAN DRBA HOLD ALTERNATE ONC'S AND ZERO'S

AR R AR AN AN AN AR NI NI R RN AN AN AR AR AR N AN A R AR AR R ENE RN R VAN N OGO

176320

1 COUNT

#052525 ,8DRWC
.+

SCOPE
MOV
cMP
BEQ
HLY
MOV
P
BEQ
HLT
.

870

#6000,

#052525 , @DRWC

869

;MOVE

BEQ
HLT

052524
052524

JSET FOLLOWING: MAINT(12),CYCLE(OB),IE(06) XBA17(05)

;

JRESET DIDN'T LEAVE DRST AS IT SHOULD HAVE

M
BEQ
HLT
MOV
cMP

;

SEQ 0016

gI
T
Y T R SR TR

MOV

104400
012777
022777
001401
104000

176406

856

002444
002446
0026454
0026462
002464

SCOPE
MOV

85S

858
859
86U
861
862

#127200.%1

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

002404

#0RST 1

HLT

842

846

27, CKSWR

BEQ

104000

104400
012767

1
.+

8IC

002374
002376

l167261,11

INC
BEQ
HLT
JSR
RESE
MOV

PAGE

#DRST X1

BIS

010040

#105 6.80RST

MOV

167201

11:29

#10 ;CQNT

8IS

841

844
845

O01-APR-80

#052524 ,@0RBA
#052524 ,80RBA
.+

#125252 ,8DRBA
#125252,8D0RBA
.+

N A AN N

AN AN

;ALT 0°'S AND 1'S TO DRBA
;LOOKING FOR 2-8BIT T0 SET
;DOES DRBA HAVE THE CORREC! PATTERN’
;DRBA DOESN'T HAVE THE CORRECT PATTERN
;ALT 1'S AND 0°'S TO DRBA
;LOOKING FOR Z-8BIT 70 SE1
:DOES DRBA HAVE THE CORRE(T PATTERN®
;DRBA DOESN'T HAVE THE CORRECT PATTERN

R N RN RN RN AN AN

AR AR R AR AN E N AR AN AN R RRANRR O NS

TEST22 INCREMENTING PATTERN TO WRAP-AROUND

AR A

SCOPE
(LR
CLR
CLR
(MP
BEQ
HLT
INC
INC
BNE

A A

N N

JCOUNT
13
aDRW(
X1,aDRWC
.46
8DRW(
3
INCWC

[N DRW(

N P R R S AN A RN RN AR R AR R AR NS AN AR NS INR OO EPENERTY

;SET-UP
;SET-UP
JSEE IF THEY ARE EQUAL
JARE THEY EQUAL?
;THEY'RE NOT EQUAL
JGET NEXT NUMBER
;GET NEXT NUMBER
DONE WITH TEST?
[F NOT CONTINUE

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

MA(CY11

30A(1052)

882

883

;

884

885
886
887
888
889
890
891
892
893

895

002542
002544
002546
002552

002556
002560
002562
002570
002574

104400
005001
005077
020177
001401
104000
062777
062701
001366

176250
176244
000002

000002

897

898

002576
002600
002606

104400
012767
012777

903

002622

001010

904

905
906
%07
908

909
910

R A

002614
002624

002630
002632
002640
002642

032777

004767

000005
032777
001001
104000

004000
000340

000200

176202

007566

176164

012777
012737

002722
000340

176162
000126

P7INV:

912
913
914
915
916
917
918

002660
002666
002674
002702
002704
002706
002710

012777
016777
052777
000240
000240
000240
000240

177777
176150
00C01

176132
176126
176122

CHGG1:

9220
921

002712
002720

042777
000405

000100

176104

000100

176072

919

922
923
3%

002722
002726
002732

022626
042777
104000

P7ERR:

;

928

932
932
934
935
936
937

8EQ
HLT
ADD
ADD
BNE
g X

002736
002744

002752
002754
002760
002762
002770
002772

104400

012777
032777

001010
004767
00V005
032777
001001
104000

PAGE

SEQ 0017

AR AR RN N N PR IR R R S

3|
aDRBA
21,3DRBA
.+

#2,3DRBA

2,
INCBA

E A NN AR NN N R AN RN R ORI

AN OO RNONCRTRIROROTOEY

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

JARE THEY EQUAL?
s THEY'RE NOT EQUAL
JGET NEXT NUMBER
;GET NEXT NUMBER
;DONE WITH TEST?
IF NOT CONTINUE

g Iy
I
I I T T P P T
T 2

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

R R R

A R R AN AR AN A NN I NN TN IR AN NN NN R ANN N AN AR R R AR AN R RN RN E TR RNEY

#4000,
] COUNT
#340 ,8PSW

JSTATUS AT LEVEL 7

P7INV

;IS IT SET

BIT

#BIT?,DRST

JSR

X7.CKSWR

RESET
BIT
BNt
HLT

#BIT7,8DRST
.46

s CHECK READY BIT

JINIT TO SET READY
;SEE IF READY IS SET NOW
;1S RFADY SET?
JREADY CAN'T BE SET BY INIT

MOV
MOV

#P7ERR,SDRINV
#340,34126

MOV
MOV
8IS
NOP
NOP
NOP
NOP

#-1,80RWC
INBUF ,3DRBA
#101,aDRST

;SET WORD COUNT TO -1
:SET BUSS ADDRESS LOC
;JSET 1.E. AND GO BITS
JALLOW 11/60 TIME TO INTERRUPT

B8IC
B8R

#BIT6,8DRST
X1

;DR11-B DIDN'T

(MP
B8I(
HLT

000300
000200

176052
176052

007436
000200

176034

xi:

(T6)+,(26)+
MBIT6,aDRST

N RN R A A AN AN

;SET UP INT VECTOR

INTERRUPT ~ CLEAR

JRESTORE STACK
;CLEAR [E
;DR11-B INTERRUPTED, BUT [T SHOULDN'T HAVE

N R R P RN A A NN A AR

RN AN AN R R AR NN RN

AN R RN NN AN RNNRY

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

AR NN

002734

JENRERRRNNS

927

930
931

SCOPE
CLR
(LR
(MP

JRNARNRANNR

926

929

BNE

002644
002652

911

R AN

SCOPE
MOV
MOV

007566
176202

000200

i A

11:29

TEST23 INCREMENTING PATTERN TO WRAP-AROUND I[N DRBA

176232

899
900
901

INCBA:

896

902

01-APR-80

AN RN NN RN NN RN NN AN N SR RN AN RN AR NN AN RN N AR N NNNRNNNNRANNNRNR

SCOPE

MOV
BIT

BNE
JSR
RESET
8IT
BNE
HLT

#300,3PSW
#BIT7,3DRST

;STATUS AT LEVEL 6
:CHECK READY BIT

#8177 ,8DRST
. *h

JINIT TO SET READY
;SEE IF READY IS SET NOW
;1S READY SET?
;READY CAN'T BE SET BY INIT

P6INV
27,CKSWR

IS IT SET?

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

(ZDRBG.P11

01-APR-80 11:25

MACY11

30A(1052)

938
939

002776
003002

012777
012737

003052
000340

176032
000126

P6INV:

961
942
963
944
945
%6
%7

003010
003016
003024
003032
003034
003036
003040

012777
016777
052777
000240
000240
000240
000240

177777
176020
000101

176002
175776
175772

C(CHGG2:

042777

000100

940

969

950
951
952
ggz

003042

003050
003052
003056
003062

000405
022626
042777
104000

O01-APR-80

11:29

PAGE

SEQ 0018

MOV
MOV

#PGERR , DR INV
#340,34126

JSET UP INT VECTOR

MOV
MOV
8IS
NOP
NOP
NOP

#-1,30RW(
INBUF ,8DRBA
#101,@DRST

JSET WORD (OUNT TO -

JNRARARACRSY

;SET BUSS ADDRESS LOC
;SET J.E. AND GO BITS
JALLOW 11/60 TIME TO INTERRUPT

NOP

JNERRRANNES

000100

175754

175742

BIC

#MIT6,8DRST

B8R
(MP
BIC
HLT

P6ERR:

;DR11-B DIDN'T

)¥4
(Z6)+,(X6)+
#B1T6,aDRST

INTERRUPT - (CLEAR

JRESTORE STACK

;CLEAR E
;DR11-8 INTERRUPTED, BUT

IT SHOULDN'T HAVE

955

956

957

958

003064
003066

104400
012777

962

003102

001010

963
964
965

966

97
%8

969

003074

032777

003104
003110
003112

004767
000005
032777

003122
003126

104000
017767

003120

003132

001001

042767

000240

000200

175722

175704

175664

175744

177770

175736

003140
003146

012777
012737

003230
000340

175666
000126

973
974
975
976
977
978
979

003154
003162
003170
003176
003200
003202
003206

012777
016777
052777
000240
000240
000240
000240

177777
175654
000101

175636
175632
175626

981
982
983
984
985
986
987
988
989

003206
003216
003222
003226
003226
003230
003232
0032640
003246

042777
022767
001001
104000
000411
022626
042777
022767
001401

000100
000006

980

33(1)

992

993

003250

TEST27 TEST THE DR11-8 INTERRUPT WITH PROC AT LEVEL S

X2:

SCOPE
MOV

R R R AR

PSINV:

N R R RN P N N A R AR N RN RN RN AN AN AN PN RN PR

#2460 @PSW

JSTATUS AT LEVEL

PS5 INV

;IS IT SET?

#BIT?,DRST

JSR
RESET
B8IT

X7.,CKSWR

:CHECK READY BIT

NN C N RN O N TS

JINIT TO SET READY
JSEE IF READY ]S SET NOW
JIS IT SET?
JRDY CAN'T BE SET BY INIT
JGET SWITCH SETTINGS

BNE

MIT7,8DRST
.+4

BIC

MOV
MOV

0177770.TEHP

#PSERR,BDRINV
#340,a4126

:ISOLATE BR LEVEL

MOV
MOV
BIS
NOP
NOP
NQP
NOP

#-1,3DRW(
INBUF ,8DRBA
#101,8DRST

JSET WORD COUNT TO -1
;SET BUSS ADDRESS LOC
JSET 1.E. AND GO BITS
JALLOW 11/60 TIME TO INTERRUPT

BIC
CMpP
BNE
HLT
BR
(MP
8IC
mP
8tQ

#B1T6,dDRST
#6,TEMP
18

;DR11-8B DIDN'T INTERRUPT - (LEAR IE
;BR LEVEL = 6 ?
JNO, EVERYTHING IS OK
;DR11-8B WITH BR = 6 SHOULD HAVE INTERRUPTED

HLT
MOV

JNRNEARRANY

(CHGG3:

N R

BIT

BNE

007306
000200

175722

970
971

972

959
960

961

aSR, TEMP

;SET UP INT VECTOR

JERNRNRRRNS

000100
000006

175€10
175654

175564
175630

1$:
PSERR:

104000

HLT

;

R N R

A A AN

X3
(X6)+, (X6)+
#M1T6,8DRST
n6, TEMP
X3
A AN

R R AN

JRESTORE STACK

;CLEAR [E
JBR LEVEL = 6 ?
JYES,
EVERYTHING IS Ok

:DR11-B WITH BR NOT - 6 SHOULD NOT HAVE INTERRUPTED
R A R A A RN R NN NN N AN AN RO AN A A AR R AN R R RN ND

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

.
.

(20RBGO DR11-B/DA11-B NPR DIA

(ZDRBG.P11
9O

995

003252

01-APR-8B0 11:25

104400

996

003254

012777

938
999
1000
1001
1002
1003

003270
003272
003276
003300
003306
003310

001010
004767
000005
032777
001701
104000

1005

003320

997

1004

1006
1007

1008

1009
1010
1011
1012

003262

003312

003326
003334

003342
003350
003356
003364

032777

017767

042767

175534

000200
175476

177770

175556

175550

1021

003416

104000

BIT

MOV

P4 INV
X7,CKSWR

218 IT SET?

R T

SRR N

: CHECK READY BIT

LINIT TO SET READY

JSEE IF READY ]S SET NOW
JIS IT SET
JREADY CAN'T BE SET BY

IN]IT

JGET SWITCH SETTINGS

#177770, TEMP

:ISOLATE BR LEVEL

#-1,8DRW(
INBUF ,@DRBA
#101,8DRST

JSET WORD COUNT TO -1
;SET BUSS ADDRESS LOC
;SET 1.E. AND GO BITS
JALLOW 11/60 TIME TO INTERRUPT

8DRST
#126,a8DRINV
n, TEMP

sCLEAR E
JRESTORE INTERRUPT VECTOR
JBR LEVEL = ¢ ?

#P4INT ,@DR INV
#340,a#126

MOV
MOV
BIS
NOP

;STATUS AT LEVEL ¢4

aSR,TEMP

AZAZETTE L

SEQ 0019

#200, 9PSW

BIC

PAGE 20

#BIT7,80RST

MOV
MOV

(CHGG4:

#BIT?, a0RST

BNE
JSR
RESET
8I7
BNE
HLT
P4LINV:

11:29

MOV

175516

175450
175444
175440

005077
012777
022767

O1-APR-80

SCOPE

(07120

177777
175466
000101

003374
003400
003406

175534

012777
016777
052777
000240

1017
1018
1019

1022
1023
10264
1025
1026
1027
}853

000200

175500
000126

000240
000240
000¢«0

1020

000200

003424
000340

003366
003370
003372

30A(1052)
AR AR L A

012777
012737

1013
1014
1015

1016

MACY11

NOP
NOP
NOP

JSET UP INT VECTOR

JENRRRRERNNSY

003414

003420
003424
003430
003432
003440
003446
003450

001401

000167
005077
022626
012777
022767
001001
104000

175424
000126
O00V004

000026
175374
000126
000004

CLR
MOy
(MP

175426
175462

BEQ

18:
P4INT:
175374
175430

HLT

JMP
CLR
. o
MOV
€ o
BNE
HLT

X4
aDRST
(X6)+,(26)+
#126,80RINV
#6,TEMP
X4

JVES, EVERYTHING IS Ox
;DR11-6 TIDN'T

INTERRUPT

;CLEAR IE

JREPOSITION THE STACK AFTER AN INTERRUPNY
JRESTORE INTERRUPT VECTOR
JBR LEVEL = ¢ ?
;NO, EVERYTHING IS 0K
;DR11-B WITH BR = & SHOULD NOT HAVE INTERRUPTED

1030

1031

1032

;

1033

1034

003452

104400

1035

003454

012777

1037
1038
1039
1040
1041
10642

003470
003472
003476
003500
003506
003510

001010
004767
000005
032777
001001
104000

1064

003520

012737

000340

000126

1066
10647
1068
1049

003526
003534
003542
003550

012777
016777
052777
000240

177777
175302
000101

175264
175260
175254

1036

1043

1045

003462

003512

032777

012777

000140

000200

175334

N R

X4:

175334

003604

175316

175314

A N

P3INV:

SCOPE

MOV

BNE
JSR
RESET
817
BNE
HLT

R NI R R R A NN AR

R AN R AR AN R AR AN NN AR

NN I AR ARA T RS

MOV

A A N A AN R A RO N O NN AN R AN AN AN NN R RN AR NN AN AR I AR AR AR RN RS

#1460, ,3PSW

JSTATUS AT LEVEL 3

P3INV
X7.CKSWR

;1S 1T SET?

lBIT?,iDRST

#IT7,30RST

#P3INT ,8DRINV

MOV

#340,a4126

MOV
MOV
BIS
NOP

#-1,80RWC
INBUF ,3DRBA
#1071 ,8DRST

JENRARANERN

C(HGGS:

AN AN NN R R

R A R A R

8IT

006720
000200

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

JCHECK READY BIT

JINIT TO SET READY
;SEE IF READY IS SET NOW
J1S IT SET
JREADY CAN'T BE SET BY INIT

JSET UP INT VECTOR

;JSET WORD COUNT TO -1
;SET BUSS ADDRESS LOC
JSET 1.E. AND GO BJTS
JALLOW 11760 TIME TO INTERRUPT

(ZDRBGO DR11-B/DA11-8 NPR D]A
(ZDRBG PN
01-APR-80 11:25
1050
1051
1052

003552
003554
003556

000240
000240
000240

1054
1055
1056

003560
003564
003572
003576
003600
003604
003610

005077
012777
005037

1053

1057

1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070

MACYTY

3CAC1052)

QRIS 323Z3IE 333

PAGE 21

SEQ 0020

;".'t'...'

003612
003620

104000

000167
005077
022626
012777
005037

175240

000126
000126

175242

000126
000126

CLR
MOV
CLR

@0RST
#126,30RINV
126

JMP

HLT

000020
175214

P3INT:
175214

CLR

CTMP
MOV
CLR

aDRST

(36)+, (36)+
#126,30RINV
126

;CLEAR IE
*RESTORE INTERRUPT VECTOR
*RESTORE TRAP CATCHER

“DR11-8 DIDN'T

INTERRUPT

;CLEAR IE

*REPOSITION THE STACK AFTER AN INTERRUPT
*RESTORE INTERRUPT VECTOR
‘RESTORE TRAP CATCHER

.-:t't't'Qtt..tfi.'.'.l"""'""..'..".Q".'.".'t'."...'ttt"t

242232323

x§:

175172
000016

TEST31

SCOPE
CLR

BIT

BEQ
HLT

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

23283222322222222
23 21323
2223222222222

@0RST

;CLEAR FUNCTION BITS

.46

*FUNCTION BITS CLEAR?

‘SET FNCT1
:CHECK DSTAT ¢
YIS IT SET?

#16,30RST

000002
001000

8IS
BIT
BNE

#81T1,30RST
#B1T9.3DRST
.+4

006000

BIT
BEQ

#6000, @DRST
. +4

CLR

aDRST

HLT

“CHECK FUNCTION BITS

SFUNCTION BITS NOT

*DSTAT C

ZLEAR

IS CLEAR

*CHECK THAT DSTAT A AND DSTAT B ARE
“ARE THEY CLEAR?

‘DSTAT A AND/OR DSTAT B

*CLEAR DRST

CLEAR

SET

000004
002000

BIS

#B]T2,30RST

BNE

. +4

SIS IT SET?

005000

BIT

#5000, aDRST

SCHECK THAT DSTAT A AND DSTAT C ARE CLEAR

175064
000010
004000

003000

8IT

HLT

BEQ
HLT
CLR

175056
175050

BIS
BIT
BNE

HLT

175036

BIT
BEQ
HLT
CLR

175026

#BI710,30RST
. +4

aDRST

#B]T3,30RST
#BIT11,80RST
L +4

#3000, 3DRST
.+4
@ORST

*SET FNCT2

: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

SIS IT SET?

‘DSTAT A IS CLEAR

:CHECK THAT DSTAT B AND DSTAT C ARE CLEAR
“ARE THEY CLEAR?
“DSTAT B AND/OR DSTAT C
*CLR DRST

IS SET

""Qtt.Qttt'."t.".Q'Qt""""fiQ.Q'."'...Q"'...'t'll".'.'.."

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

INPRT:

SCOPE
TST
8PL

@DRST
NPRRDY

:CHECK ERROR BIT
*IS IT CLEAR?

8EQ

.+4

‘IS ATTIN CLEAR

""'tt'tt..ttIit.lt"'t"""i"'.tt..'t"..'."tt.."..t't"'tt"'

)
b
b v
b
—t

11:29

NOF
NOP
NOP

175122

1090

01-APR-80

175020

020000

175010

BIT
HLT

#BIT13,30RST

:CHECK ATIN

CATIN

IS SET

(IDRBGO DR11-B/DA11-B NPR DJA

(ZD0RBG.P11
1106
1107
1108
1109
1110

1111
1112
1113
1114

1115

1116

1117
1118
1119
1120
1127
1122

1123

1124
1125
1126
1127
1128
1129
1130

1131

1132

1133
1134
1135
1136
1137
1138
1139
11640
1141
1142

1143
1144

004020
004026
004030
004C36
0046044

01-APR-80 11:25
032777
001410
042777
032777
001401

040000

174776

040000
040000

174766
174760

0046046
004050
006056
0046060

1046000
005077
005777
001401

174746
174744

006064

012777

177777

006062

006072
004100

00461046
004112
004120
004126

006132

0064140
004144
004150
004152
004154
004156
006162

004166

004170

006172
006200
004202
004204
006212
004216
004216
004222
004226
0046226

004232

104000

012777
005077

012767
012777
012777
005077

012777

005067
005227
001375
104000
000424
004767
005777

001401

104000

022777
001401
104000
022777
001401
104000
004767
022626
0004C3
005077

000662

MA(Y11

001036
174722

052525
004156
000005
174664

000101

000002
000001

174722

1149
1150
1151
1152

1153
1154
1155
1156
1157
1158
1159
1160
1161

NPRRDY:

004236

004244
004252
0046256
0046264

004272
004300
004304
004312
004316
004322
004324
004326
004330

MOV

MOV
(LR

174724
174714
174702

MOV
MOV

MOV
(LR
MOV
(LR
INC
BNE
HLT
BR
JSR
TST
BEQ

174664
1%:

003204
174632

INTB:

001040

174622

052525

174614

002054
174572

HLT

0,
BEQ
HLT
(€, o
BEQ
HLT
JSR
(MP
BR
T33CLR: CLR
NN

1146

1148

HLT
(LR
1ST
BEQ

174726

004234

B8R

012777

012777
005067
012777
012777

016777
005077
012777
005067
005227
001375
104000
000424
004767

177777

001036
174560
052525
004330

174534
174512
000103
000002
000001

003032

174554

TNPRO:

174550

174542
174542
174530
174512
18:

INTC:

11:29

PAGE 22

MIT14,80RST
N1413
#MIT14,30RST
#M]T14,80RST
.H

SFQ 0021

s CHECK NEX
;IS NEX CLEAR?
sTRY TO CLEAR NEX

s CHECK AGAIN

JNEX STILL SET
JNEX CAN'T BE CLEARED BY MOVING A 0 TO IT

SDRBA
aDRST
.+

sTRY TO CLEAR BAOF
sCHECK ERROR BIT AGAIN
1S 1T CLEAR
ERROR CAUSED BY SOMETHING OTHER THAN NEX,ATTN,

#-1,8DRW(

JSET UP FOR 1

#52525 ,NPR1
#INTB,3DRINV
#5,8DRVS
aPSW

sGET READY TO RECEIVE DATA
JSET UP TRANSFER DATA
INTERRUPT VECTOR TO INTB
;INTERRUPT PRIORITY TO LEVEL
JLET THE DR11-B INTERRUPT

#NPR1 , 3DRBA
sDRD8B

#101,@DRST

1842
'3
13

TRANSFER

; TRANSFER FROM BUS ADDRESS

;1E AND DO TO DRST
JWAIT FOR NPR AND

IN NPR1

INTERRUPT

JNO DR11-8 INTERRUPT

T33(CLR
X7 ,ERRCHK
aDRW(

JCLEAR [E
JTEST DRW(
;1S DRW(C EQUAL TO ZERO?

MNPR1+2 ,aDRBA
R

#52525.80RD8B
.+
X7 .NOPMAL
(20)+,(26)+
TNPRO
aDRST
TNPR1

;DRWC NOT EQUAL TO ZERO

. COMPARE CORRECT DRBA WITH DRBA
;1S THE DRBA (ORRE(CT?
;DRBA IS WRONG
;CHECK FOR CORRECT DATA
;DATA GET TRANSFERRED?>
;BAD DATA IN DRD8

JRESTORE STA(CK
;GO0 TO NEXT TEST

(NPR OUT)

.CLEAR [E

sTRY TEST AGAIN

NN AR AN RN N AR R AR R R A AN AR R NN AN R AN NN AN AN R AR RN RO RN NNOERRY

A AL

104400

O01-APR-80
BIT
8EQ
Bl
BIT
BEQ

N1413:

1145

1147

30A(1052)

TEST 34 TEST FOR 1

DATO NPR TRANSFER

Lttty

SCOPE

MOV

#-1, 3DRWC

MOV
CLR
MOV
MOV

#NPR1,3DRBA
NPR1
#52525 ,8DRDB
#INTC ,8DRINV

HLT
BR
JSR

T34CLR
X7 ,ERRCHK

MOV
CLR
MOV
CLR
INC
BNE

DRINL ,8DRVS
aPSW
#103,80RST
1842
"
1%

(W]ITH M9O68 [N USER SLOTS)

R I R N R R R R

T I

;SET UP FOR 1 TRANSFER

; TRANSFER TO BUS ADDRESS IN NPRI1
;GET READY TO RECEIVE DATA
;SET UP TO TRANSFER DATA
JINTERRUPT VECTOR TO INT(C

JINTERRUPT STATUS TO LEVEL DRINL
;PROC STATUS TO ZERQ
SIE, FNCT1(C1 CONTROL), AND DO TO DRST
JWAIT FOR NPR AND INTER
JNO DR11-B INTERRUPT
;CLEAR IE

OR BAOF

(ZDRBGO DR11-B/DA11-B NPR DJA

CZDRBG.P11
1162

006334

005777

176460

004344

022777

001040

004354

104000

1163
1164

004340
006342

1166

004352

1165

Hgg

01-APR-80 11:25
007401
104000

001401

1169

004356

026727

1173
1174

004374
004376

022626
000403

004404

000713

1170
1171
1172

1175

H;?

004364
006366
004370

004400

MA(Y11

30A(1052)

O1-APR-B0

174454
002702

005077

174420

cTMP

#NPR1+2,3DRBA

- COMPARE CORRECT DRBA WITH DRBA

BEQ
HLT
JSR

T34CLR:

SEQ 0022

;TEST DRW(

BEQ

052525

2
PAGE 23

3DRWC

HLT

001401
104000
004767

BEQ
HLT

174450

11:29

cmP
B8R
CLR

B8R

.+4

. +4

NPR1,#52525
L+

17 . NORMAL

(36)+, (X6)+
T3S

8DRST

TNPRO

*1S DRWC EQUAL TO ZERO?
:DRWC EQUAL TO ZERO

*IS

THE DRBA CORRE(CT?

:DRBA IS WRONG

;CHECK FOR CORRECT CATA

*CORRECT DATA TRANSFERRED?
*BAD DATA

:RESTORE STACK
:GO TO NEXT TEST
;CLEAR |E

STRY TEST AGAIN

1178

IR AR A R AR AR R R AR RN NN I I AN TR AR

1180

.- 2442442230202 2222232382380 23223232223 22317232222

1179

1181

;

004406

104400

1182
1183
1184
1185

004410
004416
006422
004426

012767
004767
006267
016767

000020
002416
174420
174414

1187
1188
1189
1190
1191
1192
1193
1194
1195

004440
004446
004454
006462
004470
006476
004502
004510
004512

016777
016777
012777
012777
016777
005077
012777
000777
022777

174410
174370
177777
007142
174336
174314
000101

174352
174346
174344
174344
174332

000007

174306

”gg

004522

104000

1186

1196

004434

004520

005467

001401

1746414

174430

N AN

NANNAARNNRAAA AR

AR ARG

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

185

174420

SCOPE

RS 2R 22222 R4

MOV
JSR
ASR
MOV

#20.,BUFLEN
17.L0DBUF
BUFLEN
BUFLEN.WCLEN

;LENGTH OF BUFFER=20
:LOAD THE BUFFER WITH INCREMENTING PATTERN
*BUFLEN=10
:PREPARE NUMBER FOR DRW(C

MOV
MOV
MOV
MOV
MOV
CLR
MCV
BR
CMP

WCLEN, @DRW(
INBUF ,3DRBA
#-1,30RDB
#INTA.DRINV
DRII.L..@DRVS
aPSW
#101,30RST
]
#7,3DRDB

*SET
UP DRWC
:SET
UP DRBA
*MAINT AIDE
:INT VECTOR TO INTA
*INT VECTOR TO PRICRITY DRINL
SLET THE DR11-8 INTERRUPT
S1E AND DO TO DRST
‘WAIT FOR INTERRUPT
TCHECK THAT WORD #10 OF INBUF IS IN DRBA

NEG

174314

N S

BEQ

HLT

WCLEN

:2'S COMPLEMENT OF BUFLEN

YIS

IT?

*BAD DATA IN DRDB

11”

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

1201

1200

1202

1203
1206
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
3519

:
004524

004526
004534
004540
004544
004552
004556
004564
004572
004600
004606
004614
004620
004626
004630

104400

012767
004767
006267
016767
005467
016777
016777
012777
012777
016777
005077
012777
000777
004767

000020
002300
174302
174276
174276
174272
174252
052525
007142
174220
174176
000103
002464

174312
174302

174234
174230
174226
174226
174214

174176

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

AN AR AR AN

SCOPE

MOV
JSR
ASR
MOV
NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV
8R
JSR

RN A A AN T AT NN AR A AR AN N AN N AN NN NN NN AN CN R RN R AN CANNRNY

#20 ,BUFLEN
17, ODBUF
BUF LEN
BUFLEN,WCLEN
WCLEN
WCLEN, 3DRW(
INBUF . 3DRBA
#52525,8DRDB
#INTA,@DRINV
DRINL . @DRVS
@PSW
#103,8DRST
]
17.DATOCK

;LENGTH
Of BUFFER=20
:LOAD THE BUFFER WITH INCREMENTING PATTERN
SBUFLEN=10
:PREPARE NUMBER FOR DRW(
:2'S COMPLEMENT OF BUFLEN
SSET
UP DRWC
*SET
UP DRBA
:SET UP DRDB
- INTERRUPT VFCTOR TO INTA
SINTERRUPT VeCTOR TO PRIORITY DRINL
*LET THE DR11-8 INTERRUPT
SIE. FNCT1(C1 CONTROL), AND DO TO DRST
*WAIT FOR INTERRUPT
*CHECK INBUF

(ZDRBGO DR11-8/DAT11-8 NPR D]A
CZDRBG.P11
01-APR-80 11:25

MACY11

01-APR-80

11:29

PAGE 24

SEQ 0023

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

TEST 37 STRING OF 200 DATI'S

6166
4146

1764130
174126
1746122
1746122
1764110

—h

174202

NNNN

000200
002170

&urwwwg%h
—
ISR
—
OOIRSEININLNININYNY
NO NS W) OO

ASTAN LaS1oUT N 1 W1, VT ST, ST ST N PNT ST, V1, ST, ¥1,V1,N

1218

30A(1052)

6172
46172

77777

007142
174114
1746072
000101

000177

ALEALLALAAA

SCOPE
MOV
JSR

174176

0200 BUFLEN

%7, L00BUF

BUFLEN,WCLEN
WCLEN
WCLEN,3DRW(
INBUF ,@DRBA
#-1,3DRDB

17407°

#INTA ,@DRINV
DRINL ,@DRVS
aPSwW
#1071 ,30RST

174064

#177.30RDB
.+

8EQ
HLT
SRR RN R

A AR A AN RN RN AN NN AN AN AN

SCOPE
MOV
JSR

#201 ,BUFLEN

17.L0DBUF

BUFLEN
BUFLEN, WCLEN
WCLEN
WCLEN, SDRWC
INBUF * DRBA

174012
174006
174004
174004
173772

#525
, 3DRDB
25

#INTA
DR INV
DRINL
. @DRVS
aPSW

CLR
MOV
B8R
JSR

173754

Izt

ISR YY)

sLENGTH OF BUFFER=200
;LOAD THE BUFFER WITH INCREMENTING PATTERN
;PREPARE NUMBER FOR DRW(
;2'S COMPLEMENT OF BUFLEN
;SET UP DRW(
sSET UP DRBA

cMAINT AIDE

;INT VECTOR TO INTA
;INT VECTOR TO PRIORITY DRINL
;LET THE DR11-B INTERRUPT

;1E AND DO TO DRST

JWAIT FOR INTERRUPT

:ng([."r(,THAT WORD #200 OF

INBUF

IS IN DRBA

;:BAD DATA IN DRDB

NRAAANNNAANN AN NN AN NN

ARSI O AN AN RA RSN

#103,30RST

17.DATOCK

AN NN AR

RANN NN

JLENGTH OF BUFFER=201
;LOAD THE BUFFER WITH INCREMENTING PATTERN

.BUF LEN=200
;PREPARE NUMBER FOR DRW(
;2'S COMPLEMENT OfF BUFLEN
;SET UP DRW(
;SET UP DRBA
;SET _UP DRD8B
;INTERRUPT VECTOR TO INTA
s INTERRUPT VECTOR TO PRIORITY DRINL
;LET THE DR11-8 INTERRUPT
JIE, FNCTT, AND DO TO DRST
;WAIT FOR INTERRUPT
s CHECK INBUF

R AR NN RN NN

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

173666

TEST 40 STRING OR 200 DATO'S

174060

173702

R AR AN AR AN AR R ANN NN IR NN NN AN R RN NN AR IR AN NN

174070

173732
173726
173732
173720

AR AL AR

SCOPE
MOV
KWV
MOV
MOV
CLR
MOV
INC
HLT
NEXCHK: BIC
TST
BNE
HLT
1ST8
BNE

ald

R AN NN

NN R AR R AR AN AANN RN NN N NN

ididli

#-2,30RW(
DIOMEM, DRBA

#NEXCHK ,8DRINV
DRINL,@ORVS
aPSW
#163,@0RST

177560

#BIT6,aDRST
aDRST
.+
DRST
.+

AN NNANNNANRR

itz

A RAN G Y

2222222222220

;SET UP DRW(C
;SET UP DRBA
S INTERRUPT VECTOR TO NEXCHK
; INTERRUPT STATUS TO LEVEL DRINL
;LET THE DR11-8 INTERRUPT
JIE, FNCTT, XBA17, XBA16, AND GO TO DRST
JWAIT FOR INTERRUPT

JNO DR11-8 INTERRUPT
ENABLE
;CLEAR INTERRUPT
;TEST DRSTY
;ERROR SET?
;ERROR NOT SET
;TEST FOR READY

JREADY SET?

CZDRBGO DR11-B/CA11-8 NPR DIA
(ZDRBG FN
01-APR=-80 11:25

D o

d ed nd

d e

REREE

b
b
ek

b o

WOONOWNES
W =0

FRER GRS FRPRFRRLIL
P LL LI BLLED

—

b —d —b
b
b
e
e
b
b
d
b
d
=
b o

b md

NN N NN NN NN

n
~

1274
1275
1276
1277

005154
005156
005164
005166
005170
005176
005200

104000

MACY11

30A(1052)

01-APR-80

11:29

SEQ 0024
HLT

032777
001001

040000

173640

B8IT
BNE

#IT14,30RST
.+

042777
022626

040000

173626

8IC

#MIT14,80RST

JSR

X7 ,NORMAL

104000

004767

PAGE 25

HLT

CMP

002072
MR

JREADY [SN'T SET
s CHECK NEX
JNEX SET?
JNEX IS CLEAR
JCLEAR NEX
JRESTORE THE STACK

(X6)+,(X6)+

AAAAALAAR

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

A BAOF
MEALLAA

104400

V12767
012777
012777
012777
016777
005077
012777
005237
000
042777
022626
005777
100401
000
105777
100401

005160
173576
173572
173576
173564
177560

000100

173546
173532

173524

173514

042777
032777
001401

040000
060000

005777
100001

173464

104000
005077

173452

004767

005042

004767

001714

MOV

CLR
MOV
INC
HLT
BAOFCK: BIC
M
TSY
aM]
HLT

173502
173474

LRl

10,

ddddddid

ICOUNT

#-20, 30RWC

#-2 ,3DRBA
#BAOF
CK ,8DRINV

DRINL ,8DRVS
aPSyW

177560

#B]1T6,3DRST
(X6)+.(26)+

@DRST

.44

JSR
RESET
JSR
NN

AND DOES NOT FORCE AN ERROR

#163 ,80RST

TST8B
aM]
HLT
BIC
BIT
BEQ
HLT
TST
8PL
HLT
CLR

aDRST

. +4

#81T14,30RST
#60000,a0RST
.+
aDRST
.44
aDRBA

17.,CKSWR
27 ,NORMAL

eSS TS

22222222

;SET UP DRW(
;SET UP DRBA FOR PROC STATUS ADDRESS
s INTERRUPT VECTOR TO BAOF (K
s INTERRUPT STATUS TO LEVEL DRINL
LET THE DR11-B INTERRUPT
JIE, FNCT1, XBA17, XBA16, AND GO TO DRST
;WAIT FOR INTERRUPT
:NO DR11-8 INTERRUPT
;CLEAR INTERRUPT ENABLE
JRESTORE THE STACK
;TEST DRST
JERROR SET?
JERROR NOT SET
;TEST FOR READY

JREADY SET?

;READY ISN‘T SET
;CLEAR NEX
sCHECK NEX AND ATTN
JARE THEY CLEAR?
JNEX AND/OR ATTN IS SET

;TEST FOR ERROR

;IS ERROR CLEAR?
;ERROR IS SET
;CLEAR BUS ADDRESS REGISTER
JINIT

A NN AR AN AR N AT IR RN R R R AN AN AR RARAN RN RN R RN ANN RN NN NARA
RN

TEST 44 TEST THAT RESET CLEARS DRDB

;;tQ.'tt't't"ttttt""tt""t"'tlttfi.'t't'fi..tttttit

t"t.'t.l"

012767
012777
004767

000010
177777
00501¢

005777
001401

173414

104000

SCOPE
MOV
MOV
MOV
MOV

104400

005002

173426

SCOPE
MOV
MOV
JSR

RESET
TST

BEQ
HLT

#10, ICOUNT
#-1,aDRDB

X7.CKSWR

aDRDB

.44

;ALL ONES TO DRBA

JINIT

JLOOKING FOR Z-BIT TO SET

;DID DRDB GET CLEARED?
;DRDB NOT CLEAR

;;'tttttttt-'t'tt'ttnt""ttn'tt!ttttttttttttt'

ttt'tt'nt"tttt'tt

CZDRBGO DR11-B/DA11-8 NPR DJA

(ZDRBG.P11

01-APR-80 11:25

MACY11

1330

1331

1332
1333
1336
1335
1336

30A(1052)

005416
005420
005426
005436
005442

005444

104400
012767
012777
022777
001401

004)X00
177777
177777

A A

104000

1341

1348
1349
};g?

005476
005504
005506

1345
1346
1367

AN NN N

AR A A

005446
005450
005456

005464
005466
005470

104400
012777
022777

001401
104000
012777

022777
001401
104000

052525
052525

173350
173342

125252
125252

173330
173322

PAGE 26

#4000, ICOUNT
#-1,8DRDB
#-1,80DRD8B
.+

HLT

1340

11:29

SEQ 0025

TEST 45 TEST THAT ALL DRDB BITS CAN BE SET

SCOPE
MOV
MOV
4
BEQ

004746
173372
173364

1339

1342
1343
1344

O01-APR-80

A R AN R

P R T T

JSET ALL BITS IN DRDS
;LOOKING FOR Z-BIT T0O SET
cSEE IF ALL BITS GOT SET

;ALL DRDB BITS AREN'T SET

RO R A P AN O NN AN AN AR AN AN

NN RN RN AN AR N OR NGRS

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

SCOPE
MOV
o, o
BEQ
HLT
MOV
(MP
BEQ
HLT

Rty

#052525.8D0RDB
#052525,8DRDB

R A

#125252,80RD8
#125252.80RDB
R A

TR L L]

;ALT 0'S AND 1'S TO DRDB
;LOOKING 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

1352

NN AR R R AR R AN AR A AN AR I AR R AN AN NNANNNANAANNANRNARNAAN RN RN RRS

1353

1354

1355
1356
1357
1358
1359
1360
1361
1362
1362
]'33215

005510
005512
005516
005520
005526
005530
005532
005534
005540
005542

104400
005067
005001
005077
020177
001401
104000
005277
005201
001370

004656
173302
173276

INCDB:

173266

1367
1368

:
J

1369

‘g;g

005544
005546
005552
005554
005562
005564
005566
005574

005576

104400
004767
000005
032777
001001
104000
032777
001401

A R RN AN AN N

SCOPt
(LR
CLR
(LR
(MP
BEQ
HLT
INC

000200

173242

177577

173230

4
INCDB

R AR A A AR AN AN AN

104000

RN AN

A AN AR

AN AN AN AN

AN T

#B]T7,8DRST
.+
)
#177577 ,8DRST
.+

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

1381

1383

1384

1385

005600

005602
005610

104400

012767
032777

004000
000001

004564

173204

AN AR A A N R R RN AR N T A A AN AN NN AN AN AN NRANRNS

X7,CKSWR

1380

AN AN NN AR R RN AN RN AR A A AR RN AR NN NN NNNRI NN NS

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

HLT

1382

E IR RS

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

sDRD8B

SCOPE
JSR
RESET
BIT
BNE
HLT
BIT
8EQ

004644

RN I AR TN AR AN NN ARAN AN RN AN AR R AR AN AR A NN

JCOUNT
X1
aDRD8
X1,80RDB
.+

INC
BNE

1366

1370
1371
1372
1373
1374
1375
1376
1377

TEST 47 INCREMENTING PATTERN TO WRAP-AROUND IN DRD8B

AR R

RN N

JINIT
;CHECK DRST
;1S READY SET?
JREADY IS CLEAR
s CHECK DRST
JARE THEY ALL CLEAR?

;A BIT OTHER THAN READY IS SET

R AR AN R AR A AN RNV

AN NN

IN THE DRST

ARRAONRNRY

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

SCOPE

MOV
8Ir

N AA

A A R RN R NN R AR AN A AN RN AR AR NN NI AN RN ANRANRANRESS

#4000,
1 COUNT

#81T0,8DRBA

JTEST BIT O OF DRBA

(ZDRBGO DR11-8/DA11-B NPR D]A
01-APR-80 11:25
(ZDRBG.P11
1386
1387
1388
1389
1390

005616
005620

MACY1

1405
1406
1407
1408
1409
1410
1411

1612
1613

2
PAGE 27

SEQ 0026

;IS IT CLEAR?

;BAOO IS SET

TEST 52 TEST THAT GO CLEARS READY

;;."'"."'Q...'Q'."‘""""'l.".."....""..tt."Q'.Q"Q.Q'

SCOPE

—

104400

012767
012777
016777
105777
100401

012777

105777
100001

005067
105777

MOV
MOV
MOV
1ST8
BM]
HLT

77600
73176
73152

000011
173134
s

1604

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

3156
3120

062767

#6000, ICOUNT
#-200,8DRW(
INBUF , S0RBA
@DRST
.44

;SET-UP DRW(
;SET=-UP DRBA
;CHECK READY
;1S READY SET?

#11,8DRST

JFNCT3 (NON-BURST) AND GO TO DRST

8DRST
. +e

~N~N

1402
1403

11:29

HLT

104000

—

1400
1401

01-APR-80
BEQ

001401

1391

1392
1393
1394
1395
1396
1367
1398
1399

30A(1052)

RDY(CHK

aDRST
DONE

TSTRDY:

#4 ,RDYCHK

1731462

100401

. +4

TSTRDY

000770
104000

DONE:

000240

NOP

AR AN

A AN

JREADY IS CLEAR

:CHECK READY
;1S READY CLEAR?

JREADY IS STILL SET

;CLEAR READY (CHECK

;CHECK READY
:1F SET GO TO DONE

:CHECKING TIME FOR READY TO BE SET
;IF RDYCHK GETS NEGATIVE IT TOOK TOO LONG
:CHECK AGAIN
JREADY GOT CLEARED BUT NEVER SET AGAIN
;GO TO NEXT TEST

TSNP T R AT T RN AN RN

ANRR AR IR

T RR

RN O

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

1414

1415
1416
1417

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

177760
173100

005776
000140
173034
000163
173064

173052

000004
~

172740

CLR

173034

173022

036060
173002
000062
177777
172764
000002
000001

SCOPE
MOV
MoV
MOV
MOV

173064

MOV
INC

ERRDO:
173020

HLT
TST
Ml
HLT

MOV

172776
170764

CLR
8IC
MOV
INC
CLR
INC

BNE
HLT
SUB
ERRDOY: TST
aM]

#-20,80RW(
D]OMEM, 3DRBA
#ERRDO ,8DRINV
#140,30RVS
aPSW
#163,8DRST
8TKS

;SET-UP DRW(
:SET-UP DRBA

@DRST
.+

;TEST DRST
cERROR SET?
JERROR IS CLEAR - SHOULD HAVE NEX

#ERRDO1 ,8DRINV
SDRBA

#62,3DRST
#-1,80RW(
@DRST

1842

"
1%

6,26

aDRST
.+

;INTERRUPT VECTOR TO ERRDO
: INTERRUPT STATUS TO LEVEL 4

:LET THE DR11-8 INTERRUPT

;1E, XBA17 ,)XBA16,FNCT1 AND GO TO DRST

*WAIT FOR INTERUPT

:NO DR11-B INTERRUPT

:INTERRUPT VECTOR TO ERRPO1
:PREVENT CAUSING ANOTHER ERROR
;CLEAR XBA17, XBA16, AND FN(TI
;SET-UP DRW(

:DO TO DRST

;NO DR11-8 INTERRUPT
;FAKE AN INTERRUPT WITH STA(K
s CHECK ERROR
JERROR SET?

01-APR-80

062706
004767

ADD
JSR
MR

-l
e

172736

ed el

172732

172664
172660
172656
172656
172644

172626
172642

000177

172576

ASAAAAAAA

104400

1487
1489
1490

012767
004767
005367
016767
005467
016777

000201
000570
172572
172566

172572

172562

172524

016777
012777
012777

172542
052525
007142
172510
172466
000113
172510
000001

172520

016777
005077
012777
005267
032767
001403

172566

172602

172516
172516
172504
172466

AAEAAAAAR

MOV
MOV
MOV
MOV
CLR
MOV
INC
BIT
BEQ

000001

WAIT

000240

NOP

1497

000401

172502

200 DATI'S NON-BURST MODE

a2l

#200,BUFLEN

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

17, LODBUF

BUF LEN,WCLEN
WCLEN
WCLEN, 3DRWC

;2'S COMPLEMENT OF BUFLEN
;SET-UP DRW(C
;SET-UP DRBA
JMAINT AIDE

INBUF , 3DRBA

#-1,30RD8

#INTA, SORINV

JINT VECTOR TO INTA
JINT VECTOR TO PRIORITY DRINL
:LET THE DR11-8 INTERRUPT

DRI
, NL
@DRVS
PSwW
#111,30RST
BRWATT

J1E, FNCT3, AND DO TO DRST
JUSE A WAIT OR BR. INSTRUCTION
;SEE WHICH ONE
;BIT 0 CLEAR=BR.
JWAIT FOR INTERRUPT

#BIT0,BRWAIT
DATINS

#177 ,30RDB

.-Ersde?#,rmr WORD #200 OF INBUF IS IN DRBA

*BAD DATA IN DRD8
R RN AN AR AN NN RN NN AN AN NN NANNAANANNNRNNANRD

57 STRING OF

SRRl

SCOPE
MOV
JSR
DEC
MOV
NEG
MOV

1491
1492
1493
1494
1495
1496

RN R AN AN NN AN N RN N R

TEST

1485

SEQ 0027

;ERROR IS CLEAR -~ SHOULD BE SET BECAUSE
;PREVIOUS ERROR WAS NOT (CLEARED
JREPOSITION THE STACK

27 ,NORMAL

ALAAAAAAAA

PAGE 28

#10,%6

SCOPE
MOV
JSR
MOV
NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV
INC
817
BEQ
WAIT
NOP
B8R
DATINB: BR
CMP
8EQ
HLT
S

11:29

TEST 56 STRING OF

452
1453
1654
1455
1456
1457
1458
1459

30A(1052)

HLT

—

14651

006070
006074

MACYN

104000

SSRTRRRaETEnaTEIaages
KOS
rmoRrSR FELRFNRSRS

1442
1443
14446
16445
16446
16447
1448
1449
1450

(ZORBGO DR11-8/DA11-B NPR D]A
C2CRBG P11
01-APR-80 11:25

idd

200 DATO'S NON-BURST MODE
i

#201,BUFLEN

XYY

22220220

17,L0DBUF

JLENGTH OF BUFFER=201
JI.0AD THE BUFFER WITH INCREMENTING PATTERN

WCLEN
WCLEN, SDRW(

;SET UP DRwW(

BUF LEN
BUFLEN,WCLEN

INBUF ,3DRBA

#52525, Q0RDB

#INTA SDRINV
DRINL ,@0RVS
PSW

#113,80R:T
T
BRWA]

#BIT0,BFWAIT
DATONS

;BUFLEN=200
;PREPARE NUMBER FOR DRW(
:2'S COMPL"MENT OF BUFLEN

;SET UP DRBA
:SET UP DRD8B
; INTERRUPT VECTOR TO INTA
s INTERRUPT VECTOR TO PRIORITY DRINC
JLET THE DRY1-B INTERRUPT
JIE, FNCT3, FNCT1, AND DO TO DRST
;USE A WAIT OR BR. INSTRUCTION
;BIT O CLEAR=BR.
;WAIT

FOR

INTERRUPT

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

006360
006362

000777

004767

MACYN

30A(1052)

01-APR-80

DATONB: BR

JSR

000732

11:29

X7.DATOCK

PAGE 29

SEQ 0028

;CHECK INBUF

::Q't'.."Q't't"'.."""t""t'tttt'ttt.t't'ttt’t."t..Q't'."t

TEST 60 TEST

THAT

FUNCTION BITS

INCREMENT WITH MAINT MODE

TRANSFERS

bk
b
d ed
b
b
b
—

OO NO NN
=O

172450
172416

00 ~NON VN BN AN —
NOWVN R WA
—

;SET=UP BUFLEN FOR LODBUF

JSR
JSR

17 .LODBUF
X7,CHKBFF

;LOAD INBUF
;LOAD CHKBUF

CLR
MOV
MOV

007142

172402

172430

MOV
MFLOOP: MOV

016777
005077
012777
052777

172356
172334
177777
010101

172352

MOV
CLR
MCY

172364

172330
172326

BIS

WAIT
NOP

172316
000600

172340
000010

172332

000002

172274
172270
172256

®0RST
#1_FNCCNT
1 ,BUFLEN

AND (HKBUFF

;SET-UP DRBA

;INIT FOR STARTING
:GET READY FOR CHECKING
:CHANGE IS NECESSARY FOR

INTA ROUTINE

INBUF , INBUF 1
#INTA,SDRINV

;SAVE [NBUF
JINTERRUPT VECTOR TO INTA

DRINL ,3DRVS
oPSW
#-1,3DRWC

; INTERRUPT VECTOR PRIORITY
:LET THE DR11-8 INTERRUPT
:SET-UP FOR 1 TRANSFER

#10101,80RST

JMAINT,

TO DRINL

IE, AND DO TO DRST

;WAIT FOR INTERRUPT
JFAKE=OUT RETURN ADDRESS

ZHANGING

@DRST, 21
#600,%1

P
BEQ

FNCCNT
#10,FNCCNT
MF CHK

JONLY 10 BECAUSE FNCT3-1 GO TO 2ERQ
JIF ITS EQUAL GO CHECK DATA

BR
MOV

MF L 0OP
#7 ,BUFLEN

:DO IT AGAIN
:SET UP FOR DATCHKs (10 FNCT

ADD

MFCHK:

INBUF ,@DRBA

MOVB
BIC

ASR
TM8
BEQ
HLT
INC

172350

WSSO0

000001
000240
117701
042701
006201
126701
0014601
104000
005267
022767
001404
062767
000735
012767
016767
004767

MOV
JSR

JLOMER BYTE OF DRST TO R1
;GET RID OF READY AND CYCLE BECAUSE OF MAINT MODE

4
FNCCNT, X1
.+

2, INBUF

INBUF 1, INBUF
X7.DATCHK

JMOVE IT RIGHT ONE PLACE
JCHECK AGAINST FNCCNT
JSHOULD BE EQUAL
JFUNCTION BITS DIDN'T INCREMENT
:GET READY FOR NEXT PASS

IN MAIN®

MODE

JFAKE=QUT INTA ROUT INE
JRESTORE INBUF
:CHECK DATA

CHECKS.

7 TRANSFERS

;:ttttt.'ttttt'tttt'tt"ti"tttt'tttttttttt""ttttt't't'ttt'ttt'

TEST 61

TEST FOR

10 MAINT MODE

TRANSFERS

;;"tttt.tttt'lt'tt'ttttti'tt'tt.tttttttttttt'tttt'tttttfiiQ"tttt

17246
172246

SCOPE

MOV

moog\a

oSO

mad
ad
e
el
—t

b wed
b cnd

NNNNN
AN 128,971,817,
¥}

—

172137

#10,8BUFLEN

JBUFLEN=10

X7.LODBUF

;LOAD IN BUFFER WITH INCREMENTING PATTERN

MOV
NEG

BUF LEN,WCLEN
WCLEN

JSR

X7.,CHKBFF

JSR

XXX

W= OV~

#10,BUF LEN

016767
012777

o
b ek e

b d
D d
VWAL
ViAW

SCOPE
MOV
MOV

172442
172412

NALTIA

d rd

A TN

b ih =

b o

4 Qv
33 98
&wgwrwuusgmmwmmmmwg

T VIAA VTN N

ik o

TN N

ed e

TAOAWA W

:'-tt't'tttt'tQtt.tt.ttt"t't"t'tttt..'t.ttt'tt'ttttt"'ttt""t.

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

JLOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN

MOV
MOV
MOV

WCLEN,SDRW(
INBUF ,8DRBA
#-1,3DRDB

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

MOV

PRINL ,@DRVS

JINTERRUPT

MOV
CLR

#INTA QDR INV
aPSwW

;INTERRUPT VECTOR TO INTA

STATUS AT PRIORITY DRINL

JLET DR11-8 INTEPRUPT

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

010101

172132

000336

JSR

17.DATCHK

\J—‘J\—‘WWS
- OO PN

I3 IS

NN
NN
Qb
d b
=2 )

—

SCOPE
MOV
MOV
NEG
JSR
JSR
MOV
MOV
MOV
MOV

172040

572

MOV
(LR
MOV
INC
BIT
BEQ
WAIT

172022

(¥,

(%)

#10101,30RST

PAGE 30

SEQ 0029

JMAINT, JE, AND DO TO DRST
JWAIT FOR INTERRUPT

TEST 62 TEST FOR 200 NPR TRANSFERS [N MAINT MODE

172036

ggv

MAAASAAALAL AL

D e

BRANCH:

000204

000356
171776
172000

171772
171766

LODBUF :

171762

LOADA

171756
LDEX]IT:
:
CHKBFF

171742
171742

—

000002
171722

CHKA:

—

D
k=D
— et ad

11:29

01-APR-80

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

—

012777
000777
004767

SV}
Volo RNT.

23%%
SITEEEEREREE
MhU“fia:hfi

b
D
b e
it
b
d o
d
D
D
B

006664
006672
006674

30A(1052)

VAN
A WL

1554

MACY11

171640

171654

#200,BUFLEN
BUF LEN,WCLEN
WCLEN

17.L0DBUF
X7,CHKBFF

WCLEN,@0RW(

INBUF , QDRBA

#1,3DRDB

#INTA ,30R INV

DRINL ,80RVS
aPSwW

#010101,80RST
BRUWAIT

#BIT0,BRWAIT

BRANCH

INTA:

222

22 2]

JLENGTH OF BUFFER = 200

;PREPARE NUMBER FOR DRW(

:2'S COMPLEMENT OF BUFLEN

;LOAD INBUF WITH INCREMENTING PATTERN
JLOAD CHKBUF WITH MODIFIED INCREMENTED PATTERN

;SET UP DRW(
;SET UP DRBA
JMAINT AIDE
JINT VECTOR TO INTA
JINT VECTOR AT PRIORITY DRIML
JLET THE DR11-8 INTERRUPT
JFOLLOWING TO DRST:

JUSE A WAIT OR BR.
JSEE WHICH ONE
;BIT 0 CLEAR = BR.

MAINT(12),1E(06),00(00)

INSTRUCTION

. +4

17.DATCHK

;CHECK THAT CORRECT DATA WAS TRANSFERRED

LENCHK, (X2) +

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

X7
CHKBUF
, 22

JSTARTING ADDRESS OF CHECK-BUFFER TO R?2

END

INBUF
, %2

LENCHK
(X2)+
LENCHK
LENCHK
,BUF LEN
LDEXIT
LOADA

LENCHK

23,(32)+
25,(X2)+

#2,LENCHK
,BUF LEN
LENCHK
+10
82,13
CHKA

000002
000100
171650

#BIT6,3DRST
3DRST
.44
aDRST
44

;g%}mue CHECKING

;CLEAR LENGTH (MHECK

JCLEAR R3

;MOVE R3 TO CHKBUF ADDRESS AND INC BY 2
;MOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2
JADD 2 TO LENGTH CHECK
;CHECK FOR DONE

;1S CHECK-BUFFER FILLED?
;NEXT NUMBER FOR BUFFER
;CONTINUE FILLING
JEXIT
;CLEAR IE
;CHECKING FOR ERROR
JERROR SET?
JERROR BIT IS SET
JCHECKING READY BIT
;1S READY SET

CZORBGO DR11-8/DA11-B NPR D]A
(ZDRBG.P11
01-APR=-R0 11:25

b —
b
d
d
b
b
—b

L ode
-RNTo
XV, P JVY~n)

007166
007170
007174

104000

005777
001401

30A(1052)

01-APR-80

INBUF
, §2

17 . NORMAL

012777

COMPAR:

171560

171554

00103G

171530

000340

171500

171472

171430

177564

.+l

SRl

#DRVS , @DRINV

MOV

#340, aPSW

CLR

END:

JBRANCH IF 0K

;BAD DATA
;SEE IF THE BUFFER HAS BEEN CHECKED
;BUFFER CHECKED?

LENCHK ,BUF LEN
COMPAR
17

MOV

JRESTORE DR11-8 INTERRUPT VECTOR
;RESTORE DR11-8 INTERRUPT STATUS
:?;?;ORE PROC TO PRIORITY LEVEL 7

aDRVS

17
#52525,%2
INBUF 13
LENCHK
LENCHK
X2, (23)+

;DATO NUMBER TO R?
;STARTING ADDRESS OF IN BUFFER TO R3
;CLEAR LENGTH CHECK
JMAKE A COMPAR]ISON
;1S THE DATA CORRECT?
;BRANCH IF 0K
;BAD DATA

LENCHK ,BUF LEN
COMPRR
12, (23)+
-+

.SEE IF

. TOO MANY

JEXIT
cCLEAR E
;CHECKING FOR ERROR
;ERROR SET?
JERROR BIT IS SET
;CHECKING READY BIT
;IS RDY SET
sFALSE ENTRY - ERROR AND READY ARE (LEAR
JEXIT

@DRST

R TA

17
i

THE BUFFER HAS BEEN CHECKED

JBUFFER CHECKED?
JCHECK END OF BUFFER + i
JSEE IF TOO MANY WORDS WERE TRANSFERRED

17
#81T6,3DRST
@DRST
. +4

CHECK BUFFER T0O R2

;STARTING ADDRESS OF IN BUFFER T0 R3
JCLEAR LENGTH CHECK
JMAKE A COMPAR]SON
;1S THE DATA CORRECT?

(32)+, (%3)+

HLT
TM
BNE
cTMP
BNE
HLT
RTS
: BIC
ERRCHK
3
BPL
HLT
ISTB
8M]
HLT
RTS

177566

BEQ
HLT
CMF
BNE
RTS

RTS
DATOCK: MOV
MOV
CLR
COMPRR: IN?
P
BEQ

000207

LENCHK
LENCHK

(MP

:
NORMAL

;STARTING ADDRESS OF

INBUF
, %3

CLR
INC

222

2R R

2222220

END OF PASS
d

MOV

TSTB

BPL

#207,a¥177566

a#177564
=4

(LEAR

JEXIT

CHKBUF , X2

MOV

INTERRUPT - ERROR AND READY ARE
FOR DRW(=0

;DRBA NOT CORRECT
JRETURN ADDRESS TO RETURN ADDRESS +2

#2,(26)

CATCHK: MOV

SEQ 0030

JWAS 1T EQUAL?
;DRWC NOT =0
;BUFFER LENGTH TO R2
;NUMBER OF TRANSFERS TIMES 2
;CORRECT DRBA
;CHECKING DRBA
;1S DRBA CORRECT?

3DRBA .12
+4

RTI

3!
JFALSE
JTESTY

BUFLEN,
%2
BUFLEN %2

TMP
BEQ
HLT
ADD
JSR

000207
012702
016703

PAGE

.46

BEQ
HLT
MOV
ADD

171520

ADRW(

ADD

016702
016703
005067
005267
022223
001401
104000
026767
001367
000207
012777
005077

11:29

HLT

177624

ad
cod
el
d md ed
b

ooocoororo o

b — -

1610
1611

MATY1T

;RING BELL

1666

1667

1668

1669

1670
1671
1672
1673

1674
1675
1676
1677
1678
1679

1680
1681
1682
1683
1684
1685
1686

1687

1688
1689
1690
1691

1692
1693
1694
1695
1696
1697

007432
007436
0074462

005267
012702
004767

007446

042777
013702
001405
000005
004712
000240
000240
000240

007456
007460

0074662
007464

007466
007470
007472

17 14

01 30
00 36

000020
000042

3
PAGE 32

BIC

#20,3PSW

MOV

SEQ 0031

JKEEP TRACK OF

PASSES COMPLETED

;PRINT 'END PASS'

37, TT0UT

;CLEAR T-B]T

2,12

BEQ
RESET
$ENDAD: JSR
NOP
NOP

TRTRAP

27.(2)

"""..'t.

TO CHECK FOR

TRACE

TRAP

TO BE

RUN WITH PROGRAM

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

".'t".t'

004767

032777
0014617
005767
001611
016767
016767
042777
000167

002716
010000

171306

"RTRAP:

8tQ

000104
000076
000072
000020
171430

JSR

BIT

TST

170270

170264

171256

;ggg:

BEQ
MOV
MOV
BIC

5MP

AR R AR A AN AN

X7,CKSWR

170242
170236

007624

000044
000040

YESTR:

MOV

MOV
MOV
CLR
(LR
com
BM]

170224

171202

BIS

JMP

YESTR1:
YESTR2:
YESRT:

SN
.

;YES

YESTR1

sNO,

TRPA
YESTR1,14
YESTRZ2,16
#20,8PSW

;IF

N RO

14 ,YESTR]

16,YESTR?
AYESRT 14
16
aPSw
TRPB
.+10

#20,39PSwW

BEGIN

0
0

HAVE WE

RUN WITH TRACE

TRAP ON®

SO RESTORE PREVIOUS CONTENTS

;START

WITH

TRACE

OFF

A AR AR A AN R AN NN

SET UP FOR TRACE
L

TRAP

TEST

R NN AN AN AR AN NN RN

TRAP

RRS

TRAP
T

;SAVE ODT P(

:SAVE ODT STATUS
;NEW TRAP VECTOR
NEW CONDITION CODES

;SET TRACE TRAP

JSTART OF

TEST WITH TRACE ON

;STORAGE FOR ODT PC
;STORAG FOR ODT STATUS

RTI]
HALT

NN AN A AN RN

(ONT

;CLEAR TRACE

BEGIN

AN AR AN

FOR

;SHOULD WE RUN WITH TRACE

YESTR

016767
016767

;CHECK

#10000,aSR

SAVE OLD CONTENTS,

RETURN TO PROGRAM FROM TRAP
JRTI FAILED

AN R IR E R R TR A RN AN AN AR R AN RN AN ORISR

BUS TO BUS TEST

EREEARANRRRRN S

(DR11-8 TO DR11-8B)

;;Ql.ttt.*tttt..t.t.t.t""'""tit'.'t'fit"'t"..t.ttf

i"'tttttl'

b o

b wd

d el

= OV NOUVNEWN=O

nonY
— -t

b
ad
—d
d e
D e
h
e
ek
) ol
e

#SENPAX2
S

JSR

ENDT:

PASCNT

INC

171342

11:29

MOV

ROUTINE

171354

NN NNNNNNNNNNNN ~

O01-APR-80

NOP

000020

—t el

30A(1052)

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

170222
171216
177740

MACY11

(ZDRBGO DR11-8/DA11-8 NPR D]
(ZDRBG.P11
01-APR-80 11: 2

RO=20
R1=21
RZ2-%2
R3-23

(ZDRBGO DR11-B/DAT1-8 NPR D]A
(ZDRBG.P1T
01-APR-80 11:25

MACY11

30A(1052)

1722

PAGE 33

R&4=%4
RS5=%S

1724
1725
1726
1727
1728

R6-26

R7=%7
PC=X7

SP=%6

1729

GO=1

1730
173
1732
1733
1734
1735

;OUTPUT MODE

;OUTPUT

XBA16=2

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

1739

1740
17461
1742

1743

1744
1745
1746
1747

1748
1749
1750
1751
1752
1753
1754
1755

DIRECTION

;OUTPUT [NTER REQ

1736
1737
1738

;. INPUT MODE
sINPUT DIRECTION
;INPUT INTR REQ

NWRDXF: &
NEXJOB: 0

JBFLAG:
JBCNT:

;¥ OF WORDS TRANSFERRED UNDER FLAG CONTROL
JHOLDS ADDRESS OF READY INTERRUPT ROUTINE

0
O
O

JHOLDS ADDRESS OF
;JOB FLAG
;JOB COUNT

ERROR INTERRUPT ROUTINE

,'.'..."'.....""Qfi.""""'"fi'.'."."".""""‘..'Q..'."'.

JMASTER START

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

175§

MS1:

1757
1758
1759
1760
1761

NOP

CLR
MOV

JSET UP INTERRUPT VECTORS
;CLEAR JOB FLAG
;DO JOBAQ FIRST
;NO ERROR RECOVERY
;LOCK OUT INTERRUPTS

CLR
BR

aPSW
BACKGD

;DROP PRIOTIRY TOQ ZERO
JWAIT FOR JOBS IN BA(CKGROUND

MOV

SLAVE

007722
007724
007730
007734
007740

000240
012706
004767
005067
012767

$S1:

010540

177664

;CLEAR J0OB COUNT
;SETUP STACK

R7 ,SETVEC
JBF LAG
#JOBAO,NEXJOB
#0_NEXJOB+?
#340,3PSW

1762

1768
1769
1770
1771

JBCNT
#BUFF ,R6

JSR
CLR
MOV
MOV
MOV

1763
1764
1765
1766
1767

1777

11:29

SEQ 0032

1723

1772
1773
1774
1775
1776

OQ1-APR-80

NOP

#1E,30RST

;SET INTFRRUPT ENABLE

START
A

I IIIImmmmmImInnr

MOV
JSR

MBUFF ,R6
R7,SETVEC

JSET UP INTERRUPT VECTORS

MOV

#SJ0B1,NEXJOB

;FOR READY

(LR

JBF LAG

INTERRUPT

PR.OR TO NPR

(ZDRBGO DR11-B/DA11-B NPR D]A
C(ZDRBG.P11
01-APR-80 11:25

007746
007754
007762

007770

012767
012777
012777
005077

010556
000340
000100
171022

30A(1052)

O1-APR-80

11:29

3
PAGE 34

SEQ 0033
177660
171034

MOV
MOV
MOV
CLR

171034

i —b

: e g 233823233
g 3P ad

1778
1779
1780

MACY11

AARAS

#1E ,@DRST

;SET INTERRUPT ENABLE
sDROP (P PRIORITY TO 0 ANC ENTER BACKGROUND

aPSwW
ARl

BACKGROUND PROGRAM;

#5)0B2 ,NEXJOB+2 ;FOR ERROR INTERRUPT
#340,8PSW
JRAISE CP PRIORITY 10 7

2222222228

WAITS FOR JUBFLAG TO SET

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

tt'.

N ele RNT QV, P NV VP o)

b
d
b

p
md
b
h

b od

016767

000734

EREERRARRRRRR
1833

177554
177552
177550

177542

167744

INC
INC
INC
INC
INC
INC
M
BEQ
HLT
HALT
P
BEQ
HLT
HALT
MP
8EQ
HLT
HALT
TST
8tQ
JSR
CLR
CLR
MOV

CLR

TRAP
JSR
BR

000016

;BACKGROUND TEST FAILED

R1.R&

.+6

;BACKGROUND TEST FAILED

R2,R3
.+6
JBF LAG
BACKGD
RS, SAVALL
NEXJ0B

JBACKGROUND TEST FAJLED
JANY J0OBS?
JBRANCH IF NONE

JYES § EXECUTE J0B WHOSE ADDRESS IS IN JUBFLAG

NEXJ0B+2
JBFLAG,
34
JBF LAG

RS ,RESALL

:TRAP

THROUGH JBFLAG AT

BACKGD

;;t'.'Qfi"tt"tt't'."""t""Q.t".tt""""'...

"'tl.'t.t"'t

;

SUBROUTINE TO PUSH ALL REGISTERS ONTO THE STACK

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

.t'...."

177572

000032

rd ah md

(o Yo -Te Yo To -To To Yo Jo To.]

—d

)

D e —h

d e e

BACKGD:

010446

010346
010246
010146
010046
000115

SAVALL :

MOV
MOV
MOV
MOV
MOV
JMP

R AN R AN N

R4, ~(R6)
R3.-(R6)

;RS WAS PUSHED BY JSR

R2.=(R6)

R1.-(R6)
RO -(R6)

(R§)

AN AN N IR

SUBROUTINE

:R5 HOLDS RETURN ADDRESS

R AN AN AT TR RNNNR A ANANNNARN NN NN

TO POP ALL REGISTERS OFF

THE

STACK

IRIRRIOEY

;;'"""I".Qt.t'..""'Q"""t.Qtt".'tt....'ttt't"'.t'tl.t't

010120
010122

010124

005726
012600
012601

RESALL:

TSTY

MOV
MOv

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

(ZDRBGO DR1'-B/DA11-8B NPR D]A
C(ZDRBG.P11
01-APR-80 11:25
1834
1835
1836

MACY11

30A(1052)

012602
012603
012604
000205

1837

1838
1839

PAGE 35

SEQ 0034

(R6)+,R3

+ R4
(R6)
RS

ROUTINE

10 SET UP

INTERRUPT VECTORS

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

1844
1845
1846
1847
1848

167650
167644

1849
1850
1851

DRINV,RO
DRINL , (RO)

SETVEC: MOV
MOV
MOV
MOV
MOV
CLR
MOV

167636

010210
010212
010214

:PUT SERVICE ADDRESS INTO VECTOR

#PRINT , 30

‘SET UP EMT ADDRESS

DRINL .36

:SET UP TRAP ADDPESS

R3
R%

CLR

RS
R?

RTS

005767
001402

177414

SRR AR

A AN

;

PRIMARY

RN AR A AN NN NI NIRRT N N RN PR EANAANANANN AN AN NN AT R ANNNAREEN

INTERRUPT

005767
001002

004000

DRINS:

170566

DRINO:

177370

JBFLAG

BIT
8EQ

#DSTAT(C ,aDRST

HLT
HALT

BNE

HLT

177356

1881

010314

ROUTINE.

AR RN AN N RN AN

JHAS THE PREVIOUS

DRINO

DRIN3

NEXJOB+?2

A NN NSRRI AN

INTERRUPT BEEN SERVICED?

:NO

;CHECK FOR ERROR

;BRANCH [F NO ERROR

;IS THERE AN ERROR SERVICE ROUTINE?

DRIN1

;BRANCH IF THERE

1IS.

;ERROR INTERRUPT, NO ERROR SERVICE.

DRIN1:

MOV

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

170536

DRIN3:

TST8

@dDRST
DRINZ

177332

DRINZ:

TST

NEXJ08

104000

000000
005767
001002
104000
000000
016767
000002

RN R P

TST
BEQ

TST

104000

000000
016767
000002
105777
100402

SERVICE

SETS UP JUBLFAG WITH ADDRESS OF JOB TO BE RUNSTARS

104000

000000
032777
001411

“INITIALIZE REGISTERS

SRR R AN RN AR N R AN NN RN AN

010216
010222
010224
010226
010230
010236
010240
010244
010246
010250
010252
010260

“SET UP EMT PRIORITY LEVEL

CLR

;

;RO IS VECTOR ADDRRSS
“PUT PRIORITY INTO VECTOR+?2

#DRINS,(RO)+

%1&.32

CLR
CLR
CLR
CLR

1852

BEERERES

;;'."Qt..."Q"'."."""""'Q"'"'.'.'Q"t.tt..'.'Qt'."tt.t

1842
1843

1856
1857
1858
1859
1860
1861
1862
1863

11:29

(R6)+,R2

MOV
MOV
MOV
RTS

1840
1841

1853
1854
1855

01-APR-80

177320

177322

; CHECK READY
;BRANCH IF SET

s INTERRUPT WITHOUT ERROR OR READY
;1S

.+6

NEXJOB,JBFLAG
B

H
;

THERE A READY SERVICE ROUTINE

JBRANCH [F

THERE IS.

;READY INTERRUPT, NO READY SERVICE

;SET UP JOBFLAG WITH SERVICE ROUTINE ADDRESS
I

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

TRANSM]T

;;".l.t"t.'.t..t...t"t""'"".!t't'tl...ttfi‘.'Q.'..."..."i

(ZDRBGO DR11-B/DA11-B NPR D]A

(ZDRBG.P11
1891

01-APR-80 11:25

010316

010322

012700

012701

012021
012002
010211
005402
006302
060241
005010
024040

011462

O1-APR-80

#LISTA,RO

MOV
MOV

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

MOV

JOBAOB:

177566

PAGE 36

#LISTAT
RY

R2. (RT)

;RO IS XMIT LIST ADDRESS
;LISTAY WILL BE REC LIST
;START WITH BUS ADDRESSES EQUAL
;R2 HOLDS WORD COUNT Of XxmIT
;MAKE REC WORD COUNT THE SAME
;MAKE WORD COUNT POSITIVE

R
RO
R2,-(R1)

-(R0) ,-(RO)

‘LEAVE RO=LISTA=XMIT LIST

cTMP

#100,JBCNT

;ENOUGH PASSES FOR BELL?

aW177564
JOBAOB
#207, 32177566
JBCNT
R7,SETBUF
#LISTA,RO
R7 ,MXMIT
#JOBAT.NEXJOB
#0 NEXJOB+2

“TTY READY?

BGT

TSTB
BPL
MOV
CLR
JOBADA: JSR
MOV
JSR
MOV
MOV
RTI

(RO)

J08A0A

“TRANSFORM INTO BYTE COUNT
:ADD TO REC BUS ADDRESS

*CLEAR OFFSET IN XMIT LIST

“BRANCH IF NOT ENOUGH

:RING BELL
CRESET JOB COUNT

TFILL UP XMIT BUFFER WITH SPECIAL BINARY COUNT

:TRANSMIT DATA TO SLAVE
-JOBAT IS NEXT
*NO ERROR RECOVERY

‘RETURN TO BACKGROUND VIA TRAP

"""‘t'.t'ttitt"."""""'fi.'."tt'it't'.t"'tt'..tt'ttttttt"'

177212
177206

NEG
ASL
ADD

CLR

177264

11:29

MOV

105737
100375

N
U
N G S
N

30A(1052)

JOBAD:

011474

022767
003010

00 VOOV
OV OOV OVOOVOO
=3 VBN
NS NN =O e

MACY11

;

S
Qi

ROUTINE A, SEGMENT 1

""ttQQ'Q.Qttt't.Q.ttt""""tt"tt.ttttt..t'tt".tt'fi'.tt'tt'ttt

FLUSH A BUFFER AND RECEIVE DATA

010430
010434
010440
010444
010450
010456
010464

011474
000574
011474
000406
010466
000000

JOBAT:

177154

MOV

#LISTA1.RO

MOV

#LISTAT,RO

JSR

;PUT REC LIST ADDRESS INTO RO

*FLUSH BUFFER

JSR

R7.MREC

;RECEIVE DATA FROM SLAVE

Q?Y

#0 NEXJOB+2

:NO ERROR RECOVERY

MOV

177150

R7,FLUSH

#JOBA2 ,NEXJOB

:JOBA2 IS NEXT

""'t..'tt..i"ttfi"fi.fi"'."t""...'t""""""t'fltt"t"'tttt

:
;

ROUTINE A, SEGMENT 2
CHECKS TRANSMITTED DATA WITH RECEIVED

JORA2:

MOV
MOV
JSR

""'t'fi"'it'fitttttt.tt"""'t'fit'tfittt.."tttfittttt"ttttlttt'.t

010466
010472
010476
010502
010510
010516
010524
010532
010536

011462

000000
177102

170314
170306
177106
177102

BIC
MOV
MOV
MOV
INC
RT]

#LISTA,RO
#LISTAT R
R7 ,BUF CHK

#1E.QDRST
#1E .30RST
#JOBAO,NEXJOB
#0 NEXJOB+2
JBCNT

;XMIT BUFFER LIST
*REC BUFFER LIST
*COMPARE THE TWO BUFFERS
*GLITCH INTERRUPT

:REPEAT JOBAQ
;ADVANCE COUNT

-',"t'.t"!t..t.t.".""""".""..t.t't.t"tt.tt'tttttt"'t"t

SLAVE'S INTERRUPT SE~VICE ROUTINES
JOB1:

IGNORE FIRST READY INTERRUPT

SEQ 0035

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

MACY11

30A(1052)
B

012767
012767
000002

000000
010556

11:29

177064
177060

SJ0B1:

MOV
S?Y

;

JOB2:

032777
001002

1702640

104000

#0 NEXJOB
;NO MOKE READY INTERRUFTS
#SJ0B2 ,NEXJOB+2 ;UNTIL ATTN INTERRUPT

;ERROR OTHER THAN DSTAT(
;SET UP FOR PARAMETERS
;R2 1S STATUS ADDRESS

MOV

#DSTATC R4

;R4 IS INTERUPT BIT

JSR

W#FNCT3,R3

:R3 IS FUNCTION BIT 3

DRDB,RS
#LISTB+2 RO

;RS 1S DATA BUFFER ADDRESS
sSTORE PARAMETERS HERE STARTING WITH WORD COUNT

MOV
MOV
ADD
MOV
MOV
CLR

R7 ,HNDSHK
#L1ST8,RO
4(RO), (RO)

:GET PARAMETERS
;RO IS TOP OF LIST
;MOVE OFFSET TO TOP

(RO) +,30RBA
(RO) ¢+, ~DRW(
@DRST

;SET UP BUS ADDRESS
;SET UP WORD COUNT
JCLEAR ALL FUNCTION BITS

BEQ

$J082C

INBUF , (RO)

170132

sSJ0828: BIT

#CYCLE ,@8DRST

SJ0B2C: MOV

#LISTB,RO

BIS
BIC
sJ0B2D: BIS

#FNCT2,30DRST
#CYCLE ,8DRST
#1E!GO,@8DRST

8EQ
BR

JSR

MOV
atr)}'

R1
DRST ,R2

SJ0B2A

8IT

176674
176670

WAIT FOR COMMAND

170142

170110
170102
170074

;TEST FOR INTER

MOV
MOV

;TOP OF LIST IS BUFFER START + OFFSET

#DSTATB,3DRST

$J0828
$J082D

R7 ,BLUSH

;WHICH DIRECTION

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

JWAIT FOR MASTER TO SET CYCLE

JBRANCH IF NOT SET
;GO DO THE COMAND

;BLUSH THE BUFFER

;SET FNCT2 FOR DATO'S
;CLEAR CYCLE
JEXECUTE COMMAND AND INTERRUPT WHEN DONE

#SJ0B1,NEXJOB
;IGNORE READY INTERRUPT
#5J0B2 ,NEXJOB+2 ;WAIT FOR ATTN INTERRUPT

NN RN AN AN N ANA NN AN IR RN

& CEEFERERE

#DSTATC,@8DRST

BNE

MOV

1990

BIT

HALT
SJOBZ2A: (LR
MOV

011506
000356
000004
000400
000101
010540
010556

010744

Su0B2:

HLT

000000
005001
016702
012703
012704
016705
012700
004767
012700

010672
010674
010676
010702
010706
010714

3
PAGE 37

L NN
I

010556

SEQ 0036

1946

010540
010546
010554

01-APR-80

A NN AN AN NN AR AANANNNR NN RN A NN N AN ARSI

SLAVE ROUTINE TO ACCEPT PARAMETERS FROM MASTER

ERR

".'tt"t"'....'tt"'."""'."'t"*...""tt.'..*"'.t't.t"ltt'fi

010746
010750
010752
010754
010756
010760
010762
010764
010770
010772
010774

011515
011520

HNDSHK: MOV

MOV

HNDSH1:

BIS

BIT

BNE

8IC
INC

[
g%g

HNDSHZ: BIT

(R5), (RS)

(R5), (RO)+

R3,(R2)

;ECHO PARAMETER

;STORE PARAMETER

;REPLY WITH FNCT3

R4, (R2)

;WAIT FOR ATTN TO DROP

R3,(R2)
R1

;DROP FN(CT3
;CHECK NUMBER

HNDSH1

R1,NWRDXF
::;DSHZ

R4, (R2)

JBRANCH IF NOT DONE
;WAIT FOR NEXT WORD

YET

CZORBGO DR11-B/DA11-B NPR D]JA

CZDRBG.P11
2002
2003

010776
011000

01-APR-80 11:25

MACY11

001776
000762

2C15

2016
2017
2018
2019
2020
2021
2285%

170004

TST
8PL
HLT
HAL 7
MXMIT1: TST8

011022
011024
011026
011034
011040
011046
011054

104000
000000
012777 000000
004767 000102
042777 - 000400
052777 000101
000207

HLT
HALT
MXMIT2: MOV
JSR
B8IC
81S
RTS

011020

100402

170016

MXMIT:

amM]

167770
167756
167750

011056
011062
011064
011066
011070
011074
011076
011100
011102

011110
011114
011122

011124
011132
011140

005777
100002
104000
000000
105777
100402
104000
000000
012777

004767
032777
001374

042777
052777
000207

A A A

dd A dd i ddd

@DRST
MMITT

AN RN A A RN I

R R A A AN NN A AN NN RN R

RN NN NN RN

AR RN

NN RR

.-'-ttt'ttt""tttttl'ttttt* ARERAANRARNNRNNANARANIANNANNNRNCAN RN

IR AN

167730

MREC1:

0000046
000026
002000

167714

MREC.:

167702

MREC3:

000400
000101

167672
167664

;
;

167644
000010
004000
167632

T222222222 2228

JREADY NOT SET
sSET UP FUNCTION FOR DATI'S
;TRANSFER PARAMETERS OF LIST WHOSE ADDRESS IS IN RO
sMAKE SURE CYCLE IS CLEAR
JEXECUTE COMMAND AND INTERRUPT WHEN DONE

#0,8DRST
R7 ,PRMXFR
#CYCLE ,@DRST
#1E !GO, DRST
R7

TST
8PL
HLT
HALT
TSTB
am]
HLT
HALT
MOV

167654
167646

MXMIT?

JSR
BIT
BNE
BIC
BIS
RTS

aDRST
MRECT

sMAKE SURE ERROR IS CLEAR
;AND READY SET.
;ERROR SET

aDRST
MREC?
#FNCT2 ,8DRST
R7 ,PRMXFR
#DSTATB,@DRST
MREC3
#CYCLE ,@DRST
#1E!GO,30RST
R7

A AN AN A AR A AR NN AT

012077
011077
005001
016702
012703
012704
016705
011015
050312

JERROR ]S SET

#DRST

MREC:

2047

;MAKE SURE FRROR IS CLEAR
JAND READY IS SET

167742

2045
2046
011142
011146
011152
0111564
011160
011164
011170
011174
011176

MASTER RECEIVE ROUTINE
ENTER WITH TRANSFER LIST IN RO

2044

2048
2049
2050
2051
2052
2053
2054
2055
2056
2057

SEQ 0037

;BRANCH IF ATTN CLEAR
JOET ANOTHER PARAMETER

:
;

2027

2060
2041
%g

PAGE 38

HNDSH2
HND SHK

A AR AAAAR AL

005777
100002
104000
000000
105777

2024

2037
2038
2039

MASTER TRANSMIT ROUTINE
ENTER WITH TRANSFER LIST IN RO

011002
011006
011010
011012
011014

2025
2026
2028
2029
2030
2031
2032
2033
2034
2035
2036

11:29

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

2006
2007
2010
2011
2012
2013
2014

O01-APR-80

BEQ
BR

zms

2009

30A(1052)

JREADY CLEAR
;SET UP FUNCTION FOR DATO'S
: TRANSFER PARAMETERS OF L]ST WHOSE ADDRESS IS IN RO
;WAIT FOR SLAVE TO CLEAR DIRECTION
;BRANCH IF SET
sCLEAR CYCLE
sEXECUTE COMMAND AND INTERRUPT WHEN DONE.

TN A AN R A RN AN AN RN RN AN NANNONNNNRARE AR

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

PRMXFR: MOV
MOV
CLR
MOV
MOV
MOV
MOV
PRMXF1: MOV
BIS

AN NN R AN IR R N A NN R AR AN AR AN AN NN

(RO) +,@DRBA
(RO) ,8DRWC
R1
DRST ,R2
#FNCT3 ,R3
#DSTATC RS
DRD8.R5
(RO), (RS)
R3.(R2)

AN RS NN AR

AN R AR NRANRA S

JFIRST WORD IN LIST IS ADDRESS
;SECOND WORD IN LIST IS WORD COUNT
;R1 COUNTS PARAMETERS TRANSFERRED
JR2 1S THE STATUS ADDRESS
;R3 USED FOR FUNCTION BIT 3
;R4 USED FOR INTERUPT BIT
;R5 IS THE DATA BUFFER ADDRESS
sSET UP DRDB WITH PARAMETER
;CALL SLAVE'S ATIN

Smmg_a_._a_.
SO
NO CEE

030412
001776
022015
001402

MACY11

30A(1052)

O01-APR-80

PRMXF2: BIT

3
PAGE 39

R4, (R2)

BEQ
cTMP
se?

104000
000000

11:29

SEQ 0038

PRMXF3: BI(
PRMXF4: BIT

AR A

:DROP SLAVE'S ATTN
‘WAIT FOR REFLY

BNE

PRMXF 4

SBRANCH IF ATTN SET

CMP
BLT

R1,NWRDXF
PRMXF 1

*ALL PARAMETER XFERRED?
*BRANCH IF NOT DONE

RTS

*BRANCH IF ATTN CLEAR
: COMPARE PARAMETER SENT WITH SLAVE'S ECHO
SBRANCH IF EQUAL
;PARAMETER DID NOT ECHO

R3, (R2)
R4 . (R2)

INC

176400

;WAIT FOR REPLY

PRMXF 2
(RO)+, (RS)
PRMXF §

HALT

W
~n

[aSTAS TSI ST ST, ST, N1, N T,V

e
ol

) e

e
d

el
i

el il o

) el e

el o
d wd

nd il

—

2058
2059

jelololelololalolololelsls]

(ZDRBGO DR11-8/DA11-8 NPR D]A
(ZDRBG. P
01-APR~80 11:25

AL A

*ADVANCE PARAMETER COUNT

Add

Al ddd

ROUTINE

SRETURN WHEN ALL PARAMETERS TRANSFERRED AND CHECKED.

it il

TO CLEAR BUFFER

ENTER WITH RO POINTING TO TRANSFER LIST

MPAAA AL AR A

005005

011250
011252
011254
011256

004767
004767
002775
000436

000030
000004

FLUSH:

AR SRR

CLR

8LT

FLUSHI

NOONSN

BeaSy

b
b and

el cd amd e
—

b ed cd

OCOO0000

1727777

NN NN

b
b
ol

b ol
d

e
—

—d

elelelele]

b
ek
o

)

TO Z1P

;STOP WHEN BUFFER FULL
;PUT R5 INTO BUFFER

s INCLUDE IN CHECKSUM

JRETURN WITH STATUS SET

;ADVANCE WORD COUNT

didiiididi

eIt

2222222222302

ENTER WITH RO POINTING TO TRANSFER LIST

tt'tt"t."t

BLUSH:

MOV

#-1_R5

JSET RS TO ALL ONE'S

FLUSH+?2
(RO) + ,R1

MOV
TST

;R1

(RO) +,R2

IS B8US ADDRESS

;sR2 IS WORD COUNT

(RO)+

CLR
CLR
RTS

::t'tQQtttt.Qt'tt't.tt't"t"tt.tt.t.ttttt't.tt"tttt

;

SIS TN,V 1N ]

RS.R3
Ré

sttt

BSETUP: MOV

177760
000001
177730

;STORE ITEM IN BUFFER

;SKIP OVER OFFSET

R3
R4
R7

RN AN A AN

004767
012705
004767
002011
005105

;SET RS

012001
012002
005720
005003
005004
000207

ROUTINE TO FILL BUFFER WITH ALL ONE'S

012705
000762

sSET UP REGISTERS

R5.(R1)+

INC

;

ittt

8UF OUT

RTS
ARl

R7 .BUFPUT

ADD
ADC

BUFPUT: MOV

R7,BSETUP

FLUSH1: JSR

JSR

010521

JCLEAR LOW CHECKSUM
;CLEAR HIGH CHECKSUM
JRETURN

A AN RN NN R IR IR RN RN O AN AN AN NN AR AR RAN AN AR A AANAAN
RO

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

SETBUF: JSR
SETBF1: MOV
SETBF2: JSR
BGE

com

it at

R7 ,BSETUP
#1,RS5
R7 ,BUFPUT

BUF OUT

222232222

2220220

;SET UP REGISTERS
;SET UP RS WITH START PATTERN
JNUMBER TO BUFFER

(ZDRBGO DR11-8/DA11-8 NPR DIA

(ZDRBG.P11
2114
2115
2116
2117
<118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130

2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141

21642
2143
2144
2145
2146

011326
011332
011334
011336
011340
011342
011344
011346
011350
011352

01-APR-80 11:25
004767
002 005
005105

MACYTT

30A(1052)

O1-APR-80

177720

JSR
com
CC

MOV

RARANAN

sMOVE LOW CHECK TO LIST

JRETURN

N TP IO N NN AN NN NN NAANN A AN NN AT INNANCA

TO COMPARE

CMP

(R1)+,

BEQ

BUF (K2

INC

HLT

BLT

JSAVE LIST#2 ON STACK

sSAVE LIS1#1 ON STACK
;VERIFY INTEGRITY OF CHECK BUFFER (#2)
SJRECOVER 1ST LIST POINTER
;BUS ADDRESS M1
JWORD COUNT #1

;RECOVER 2ND LIST POINTER
;BUS ADDRESS #2
; COMPARE WORD COUNTS

*BRANCH IF EQUAL OR LESS THAN

‘BUFFER 2 IS LONGER THAN 1

(R3)+

: COMPARE BUF FERS
:DATA ERROR

;ADVANCE COUNT
;BRANCH IF NOT DONE

gl7JFCK1

RTS

#2 CHECKED FOR PROPCR CHE(KSUM

AANAN AT RO RPN N AN AN NN NN AN AN NN NCANNANNIARNNNNNANTERRS

BUF (K1

HLT
T
HAL

AR AE RS

TWO BUFFERS

(RO)+,R3
R2, (RO)+

BLE

BUF (K2:

sMOVE HIGH (HECK TO LIST

R7,CHKSUM
(R6)+,RO
(RO)+ R
(RO)+ ,R2
(R6)
+ ,RC

MOV
cMP

002773
000207

R3,(RQ)+

R1,-(R6)

JSR
MCV
MOV
MOV
MOV

BUFCK1:

:IF CARRY SET, START PATTERN OVER

RO, -(R6)

MOV

011404

JPOSITION TO THE LEFT

BUFFER LIST #1 IS IN R
BUFFER ' IST #2 IS IN RO.

BUF (HK : MOV

104000
005202

.MOVE PATTERN ONE BT

RN A AN RARN NN AN NN

ROUTINE

R4, (RO) ¢

RTS

S o

:COMPL EMENT OF NUMBCR TO BUFFER

SETBF1
SETBF?

BUFOUT: MOV

VAR R

R7 ,BUFPUT

B(CS
B8R

022123
001401

PAGE 40

BUF OUT

8GE

011406
011410
011412

SEQ 0039

ROL

011354
011356
011360
011364
011366
011370
011372
011374
011376
011400
011402

11:29

JRETURN;

STACK

IS CLEAR

e
s
I
I
TM

:
:

AL AR

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

SRR

2155
2156
2157
2158
2159
2160
2161
2162
2163

011422
011426
(011432
011434
011436
011440
011442
011444
011446

004767
004767
002775
020320
001003
020420
001001
000207
104000

(HKSM2: HLT

2165
2166
2167

011450
011452
011454

012105
060503
005504
005202
000207

GE TBUF: MOV

2168
2169

011456
011460

CHKSUM: JSR
CHKSM1: JSR
BLT
cMP
BNE

iddl

R7 ,BSETUP
R7 ,GE TBUF
(HKSM1
R3,(R0O)+
CHKSM?

itttz

Izl

sSET UP REGISTERS
;GET ITEM FROM BUFFER
;BRANCH [F NOT DONE
;COMPARE 1.OW ORDER CHECKXs

[

R4, (ROY+

; COMPARE HIGH ORDER CHECKS

RTS

JRETURN IF

BNE

CHKSM?2

(R1)+ RS

ADD
AD(

RS.R3
R4

RTS

INC

CHECKSUM OK,

SORIGINAL BUFFER CHECKSUM DOES NOT AGREE WITH PRESENT
;GET

ITEM OUT OF BUFFER

;JADD TO (HECKSUM

JADVANCE WORD (OUNT

—

O1-APR-80

11:29

4
PAGE 41

014224
000000
000000
000000
000000

LISTB:

2
=

JSTART OF REC BUFFER
cWORD COUNT
JOFFSET
JCHECKSUM LOW
JCHECKSUM HIGH

LISTAY:

JSTART OF XMIT BUFFER
sWORD COUNT
;OFFSET
;CHECKSUM LOW
s CHECKSUM HIGH

LISTA:

OO I x

177605

OO0OO0O0O0O

0146224

;SLAVE'S ECHO BUFFER

COO0OOX

b
— ad el s
W

)

—t b b b ——b

30A(1052)

SEQ 00«0

— e el b b

—d b ad wad

22222 F2ALE RLAEE

—d ) eid wrd e

MA(Y11

D e

~n MNIALTNINIRLAINIPIALRINLAININ

N2 E8ZEIRRRIR2B
IR

~
o

2173
2174
2175

2170
2171
2172

rl{oleleleolelelele B alelelols)

(ZORBGO DR11-B/DA11-B NPR DJA
CZDRBG P
01-APR-80 11-2S

AL Al

Al d

A2t

]

ENTERED WITH SYSTEM TRAP CALL(HLT)

PRINT OUT

— ol

THE

ERROR PC AND STATUS REGISTER

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

..'t."t.'t

AL Al Y Al YalVa IV AV, LV,

000672
167264

[ ¥

3333
RERE &3
N

Eggfihggsgs

—d

d ad ——b Py

elelele] o

b ——d
—

) cmd wd

lelelelelo)e]

020000

000212

167270

000134
000132
000130
000126
000126
000240
167230
000104
000102
000240
167204
167135
000056
000040
000036
000034

PRINT:

JSR
BIT

?ER,‘20000

1518

(6)+,SAVP(C
(6)+,SAVCC
=(6) ,-(6)
#215,37P8
iTzS

1ST8

arzs

167312

BNE
MOV
MOV
P
MOV

167276

BPL
MOV

000204
000202
000215
167304

N &

VAL

nh wmd

el wnd el cod

)

) —d

SOOQOOOOOOOOOOO
P QG- Gunr Ghu Qur Gusr G Gy Shusr S o G G

2194

BPL
MOV
MOV

167236

167212

Y7, CKSWR

;TEST FOR INHIBIT PRINT QUT
;1F SO, BRANCH OVER PRINT
;PC OF FAILING ROUTINE
;CC OF ERROR CONDITION
:?EPOSITION THE STACK

#212,87P8

LINE FEED

12,SAVR?
13,SAVR3
24, SAVRS

;SAVE R?2
;SAVE R3

SAVP(C,
X2
X7 ,PRTAB

#240,8TP8
aTPs

=4
SAV(C(C,2?
X7,PRTAB

#240,3TP8
aTPS
.4

@DRST,
X2
X7,.PRTAB
SAVR?,X?2
SAVR3,
%3
, X4
SAVR4

;SAVE R4

;PRINT OCTAL NUMBER
;SPACE BETWEEN WORDS
JPRINT OCTAL NUMBER

JPRINT SPACE
SPRINTER DONE
;BRANCH WHEN"NOT DONE
;GET DR1io STATUS

JPRINT OCTAL NUMBER

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

MA(CY11

2226
2227
2228
2229
2230
2231
223%
2233
2234
2235
c236
2237
gg%g

011706
011712
011716
011720
011722
011730
011732
011734
011736
011740
011742
011744
011746

004767
005777
100001
000000
023737
001001
000000
000002
000000
000000
000000
000000
000000

22640
2261
2262

011750
011754
011760

005067
005067
012704

000260
000252
012240

2264
2245
2266
2247
2248
2249
2250
2251
2252
2253
225¢
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277

011772
012000
012006
012014
012020
012022
012024
012026
012034
012036
012044
012050
012054
012060
012064
012066
012074
012100
012104
012106
012114
012120
012126
012132
012136
012142
012144
012150
012156
012160
012162
012164
012172
012176

012767
012767
012767
105777
100375
005702
100404
012777
000403
012777
016703
010267
005167
046703
001410
066767
005267
026703
001370
062767
0167264
066767
005067
(05067
005367
001410
012703
066767
005303
001373
000730
012767
105777
100375

000005
000007
000001
167044

000236
000220
000214

000260

167032

000261

167022

MINUS:

000136
000134
000126

000136

MKNUM:

000260
000114
000102
000100
000076
000074

000120

WRTOC:

2263

2278
2279
2280
2281

011764

012200
012204
012210
012212

142777

014477
005367
001401
000767

00050«
167076

30A(1052)

000042

1$:

001046

SAVRZ:
SAVR3:
SAVRG:
SAVP(C:
SAVCC:

000177

000156
000150
000146
000140

000003
000052

000005
166666

166662

000026

PRTAR:

167072

O1-APR-BO

JSR
TST
BPL
HALT
P
BNE
HALT
RT]
0
0
0
0
O

37, CKSWR
aSR
.46

(LR
CLR
MOV

BINCT
WwGT(CT
#LIST X6

MOV
MOV
MOV
TSTB
B8PL
TST
BM]
MOV
BR
MOV
MOV
MOV
oM
8IC
BEQ
ADD
INC
cmP
BNE
ADD
MOV
ADD
CLR
CLR
DEC
BEQ
MOV
ADD
DEC
BNE
BR
MOV
TSTB
BPL

#5,ASCNT
#7,SEVEN
#1,DECM
aTPS
WAITY
.24
MINUS
#260,aTP8
START

BI(B

WAIT1:

START:

000102

000050

MTMOADD:

000044

XLIST:
WAIT?:

11:29

MOV
DEC
BEQ
BR

W2, N6
. *6

#177,8TPS

#261,37P8

SEVEN,X3
22, TOODLE
TOODLE
TOODLE ,X3
WRTOC
DECML ,WGTCT
BINCT
WGTCT,X3
MKNUM
#260,BINCT
BINCT, (&) +
SEVEN,DECML
WGTCT
BINCT
ASCNT

XLIST
#3,13
SEVEN,SEVEN
13
MOADD
START
#5,ASCNT
aTPS
WAIT?

4
PAGE &2

;CHECK SR FOR HALT SWIT(H
JHALT ON ERROR UP [N SWR
JARE WE [N ACT11 AUTO MODE?
;BRANCH ON NO
;HALT ON ERROR IF [N ACT11 AUTO MUDE
JRETURN TO MAINL INE

JGET LIST ADDRESS
;CLR INT FLAG

JNEG SIGN PRINT 1
;POS SIGN PRINT 0
;PUT MASK [N R3
;GET READY TO COODLE NUMBER IN TOODLE
;COMPENSATES FOR COMPLEMENT DURING BIC
JAND IN OCTAL CHARACTER
;ZERO, WRITE O IN LIST
;COUNT UP T0O
;AND RECORD
; SAME BINARY WEIGHT
;KEEP COUNTN
;ADD ASCII PREFIX
SWRITE ASCII CHAR [N LIST
JEXPAND BINARY WE]GHT

;5 CHAR IN LIST
;SET X3 FOR ADD LOOP
;MAKING SEVENTY BY SEVEN
JNX SEVEN SET GET NX OCTAL
JSEND S CHAR TO TTY

-(4) ,3TPB

ASCNT
HDF HM
WAIT?

JFINISH PRINTING GET NXT NUM

SEQ 0041

2282
2283

2284
2285

2286
2287
2288
2289
2290
229N

2292
2293
¢29%
2295
2296
2297

012214
012220
012222
012224

105777
100375

MACY11

30A(1052)

01-APR-80

11:29

PAGE 43

SEQ 0042

1666446

HDF
HM

000207

TOODLE:

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

012240
012242
012244
012246
012250

AAS

TST8 QTPS
.=
8PL
¥4
RTS

JHEAD FOR HOME

elolelelolelolelelele)

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

AAAA

SCOPE

LOOP ROUTINE

ENTERED BY USER TRAP

:;""t"""'.."""".""......."..'..'......".

...".......

012252
012256
012264
012266
012272
012274
012276
012302

004767
032777
001003
011667
022606
012677
000177

000140
040000

166530

SCOPEA:

000106
SCOPEB:

166514

000072

JSR
BIT
BNE
MOV

RT]
P
MOV

JMP

17, CKSWR

#40000,@SR
SCOPEB

816 ,RETURN
(6)+,%6
(6)+,@PSW
@RETURN

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

JRETURN IN SEQUENCE

JREPOSITION THE STACK

;SCOPE RETURN

;;Qttttt'.'t....Qt.'.'Q"""t"'......'.'.t't..'..'t'

.'.'.tt'.Qt

SCOPE OR/AND

ITERATION LOOP FOR EACH TEST 4000 TIMES

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

..'...".'Q.

012306
012312
012320
012322
012326
012330
012334
012342
012344
012352
012354
012360
012362
012366

000104
040000

SCOPEC:

000062
004000
000026

TST
BEQ
JSR
8IT
BNE
TM
8tQ
INC

166452

000022

000016
000010

012400

165572

JSR
8IT

BNE

166546

012372
012374
012376
012402

166474

SCOPEG:

BR
CLR

MOV
RT]

ICOUNT: 4000
: 0
SCOPEF
RETIRN: BEGIN
.EVEN
JMP

17, CKSWR

#40000,asR
SCOPEB

PASCNT

37tk
SR

#4000, asR

SCOPEG
SCOPEF , I COUNT
SCOPEG
SCOPEF

SCOPEB
SCOPEF
816, RE TURN

JTEST

SR FOR SCOPE

JYES SCOPE
;FIRST PASS (PASCNT=0) »°
:BR IF YES, INHIBIT [TERATIONS

JTEST FOR JTERATION
JINHIBIT ITERATION
JEXIT - DONE
s INCREMENT COUNT
.LOOP SOME MORE
;CLEAR COUNT
:SAVE SCOPE RETURN POINTER
JRETURN INLINE-NEXT TEST

sCOUNT LOCATION FOR ITERATION LOOP
;ADDRESS OF LAST TEST
200

;;..""Q'..t."....""""'."...1'Q"..'t"'.!'

t..""t'."".

(ZDRBGO DR11-8/DAT1-8 NPR D]A

(ZDORBG.P11

01-APR-80 11:25

MACY 1T

30A(1052)

O01-APR-B0

11:29

&
PAGE 44

SEQ 00«3

CHECK SWITCH REGISTER ROUTINE.

OF LOC.

176

CHECKS FOR “G TO ALLOW CHANGING

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

012406
012410
012612
012414

000000
000000
000000
000000

012616
012424
012426

022767
001133

012432
012634
012442
012650

012456
012460
012464
012470
012474
012500

012506
012510
012514
012520
012524
012530
012536
012542
012550
012556
012560
012562
012570
012572
012576
012602
012610
012612
012614
012622
012624
012632
012634
012640

105777
100130

017767
042767
022767
001116
012702
004767

000176

166370

CKSWR :

166426

.WORD

RDSW:
TIB:

.WORD
WORD

g:fa

as;u;nsc.sn

;SOF TWARE SWITCH REGISTER PRESENT

@TKS

SYES,WAIT FOR

166422
177600

000007

#177600,718

: THE GARBAGE

1ST8

17775¢
177744
177736

ouT
aTkB.TIB

#7,118

BNE
MOV

012770
CNTLU:

JSR
MOV
JSR

177652
177644
177636

000015

177624

012776
000314
000007

177600

000060

177572

000067

177562

18:

8% :

013023
000252

5%:

177534
177530
177524
000060
177520

6$.

177474

MOV

#7 ., COUNT

CLR
CLR

JSR

YIS IT A <G>

17.PRTA8

SFTEMPST
TEMPST

PC.TTIN

;GO

READ A CHARACTER

BIC

#177600.118

BNE

*BRANCH IF NOT

BNE
MOV

48
#$CRLF
%2

*BRANCH IF NOT

cMP
BNE
8R

#7 . COUNT
78
ouT

BGT
CMPB

31
#67.T718

#25.TI8

BR CNTLU
(M8
#15.TIB

CTMPB

17. 17007

#60.TIB

B8GE
MOV

63
#SQUEST,
X2

JSR
ASL

ASL
ASL

PC. TTOUT
TEMPST

TEMPST
TEMPST

“STRIP OFF GARBAGE
YIS IT A U2

*START OVER
SIS IT A <CR>?

;WAS IT FIRST CHARACTER
SCHANGE SWR IF NOT FIRST ONE
SGET ouT

;START OVER IF NOT LEGAL CHARACTER

BICB

#60.T18

SGET NITTY=GRITTY

DEC

COUNT

;ONLY WANT 6

BR
MOV
RTS

1
TEMPST ,aSR
) ¥4

:CHANGE SWITCH REGISTER CONTENTS

8EQ

ouT :

SREADY, GET CHARACTER
"AND STRIP OFF

PC.TTOUT
FSMSWR
, 12
PC,TTOUT

FSMNEW
, X2
PC,TTOUT

BISB

78 :

ouT
#SCNTG.
X2

MOV
JSR

JSR

(s :

0
0

@SR, X2

(M8

38
23

MOV
JSR

$SREAD:

.WORD

BPL
MOV
BIC

177506

012714

TEMPST:

COUNT:

TIB.TEMPST

DIGITS

SRETURN TO PROGRAM

«ZDRBGO DR11-B/DAT1-8 NPR D]A
(ZDRBG P
01-APR-80 11:25

116777

000207
057137

020137
051537

000046
020040
023040
137
000
137
040520
023040
137
041122
030522
040504
047040
040511

000046

PAGE 45

SEQ 0044
feteORRORNTERRCRRSY

SUBROUTINEreenesnane

(LR

CLS)

aTkB
T18

eTkKS
aTksS
TTIN
eTKB,TI8
aTPS
TTINS

TTINZ:

166100

T18.aTP8

020107
000046
051127

000046
020075

$CNTG:
$CRLF:
SMSWR:

042516
000
020077

036527

SMNEW:

023137

$QUEST:

.ASCIZ

047105
051523
000
041440
030107

020104
020040

SENPAS
:

ASCIZ

*_END PAS>

042132
042040
027502
041055
042040
057440

$TITLE:

.ASCIZ

‘_ CZDRBGO DR11-B/DA11-B NPR DIA

026461

030461
051120

020040

I-AG
l-

'TSWR= &
1]

NEU:

-zl

.EVEN

C13114

000000

OFL:

;FIRST (HAR FLAG

""t."'t.'..Q.Q"Qt"‘"""'Q'.t...t..'i‘.'...Q....."."Q"."Q

TTY ASCII

OUTPUT ROUTINE

"""..."t.'lt."l'...""t.""l".'.."....t"."l.".'."".'t

105712

001403
122712

TTOUT:

000046

000100

013136

000137

2615

012766
012770
012776
013002
013010
013012
013020
013023
013030
013031
013036
013044
013047
013054
013062
013070
013076
013104
013112

177442

2414

012744
012752
012756
012760

2613

READ

TTINY:

2610
2611
2612

TTIN:

012726
012732
012736
012742

—

2609

012716
012722

b e

2604
24605
2606
2407
2408

11:29

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

—t el

24603

O1-APR-B0

TTY

NN NN

24600
2601
24602

30A(1052)

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

jelele
o]

2396
2395
2396
2397
2398
2399

MACY11

122712

000041

165726

1%:

.EMPTY:

1S18

8tQ
CMP8
BNE
BIC
CLR
RTS
cMP8

BEQ
(MP8

LEMPTY

#100,8TPS

¥4
¥4

L (2)

()

.RET

JCHECK FOR NULL CHARA(CTER
JIF NOT, TYPE THE (HARA(TER
JCHECK FOR TERMINATOR
JCLEAR POINTER TO (MARACTER

JRETURN

;CRLF

(HWAR?

JCHECK FOR RETURN TERMINATOR

2660
2461
462

2463

2464
2665

2666

2667
2668

2469
2470

PINP-YS
.9 &

b2 d_acary
-

2454
2455
2456
2457
2458
2459

olelolelolele]

2453

N NN NN NN

2450
2651
2652

per Qe Qo Snr Guur
et

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

013204
013206
013212
013214

001414
105777
100375

MA(CY11

30A(1052)

O01-APR-80

11:29

4
PAGE 46

SEQ 0045

165702

1%:

165676
.RET:

000020
013214

.REST:

000006

041

.RETR:

013220

.SAV:

014222
014224

BUFF
:

015226

XCHKBU:

XINBUF:

8tQ

.REST

TST8

8TPS

TTOUT
12

BPL
MOVB

MOV

13
(2)+,81PB

;TYPE

32..5Av

JSET UP New POINTER

MOV
B8R
MOV
B8R

¥ RETR,
X2
.RET=6
.SAV, X2
TTOUT

.BYTE
.EVEN

15.,12."

0
.=.+1000
0
|

.=.+1000
.

LEND

;FOR

(HARACTER

STACK POINTER

100 LOCAT]IONS

(ZDRBG.PN

ASCNT

ATIN

0122%

= 020000

BACKGD
BAOF (K
BEGIN
BINCY
8110
=
BIT1
=
BIT10 =
sIT11 =
81112 =
81713 =
B8IT14 =
BIT15 =
8112
=
BITY
=
BIT4
=
B8ITS
=
BIT6

8117
BIT8

007774
005264
001174
01223%
000001
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040

= 000100

= 000200
= 000400

BIT9
=
BLUSH
BRANCH
BRWAIT
B8SETUP
BuUfFCHx
BUFCKT
BUF (K2

BUF F

BUFLEN

001000
011264
007024
001052
011272
011354
011406
011414

0146222

001046

BUFOUT
BUFPUT

011346
011252

CHGG1

002660

BUSERR=

CHGG2
C(HGG3
(HGGL

CHGGS
CHKA
CHKBFF
(HKBUF
CHKSM1
(HKSM?Z
cHKSUM
CKSWR
CNTLU
COMPAR

COMPRR

01-APR-80 11:25

MACY1T1

2264

2268+

2275+

2279+

1766

17874
12964

1806

1814

17428

1290
566

2240+

L
W73
“82#
4834
B4
4854
“86N
4874
L7460
Yol
“768
a4

4784

1268
“794
480#
4814
1979

1576

5424

2078
1934

2140
2145
507
SaQn
1453

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

568
2260w

2263

571
2264

2267+

22894

1705

2332

656

657

660

661

770

795

1385

S704

1463

1491

SEQ 00«6

22904

1691

1575

1073

1082
1090
755
1103
1106

756

759

760

817

1108

1109

1275

1278

1304

673

674

703

704
717

677
694

678
695

773
776

798
801

1081
1089
779

804

734

785

811

920

923

949

952

935

961

965

997

1000

1036

1040

1491

15764«

1575

1222+
1543«

1224
1544

1241«
1562+

1243
1563

1038

1313

1323

13N

690

691

729
1296

1604

707
782
733
1651

742

743

746

716

90?2

1074

730

906

708

767

720

721

788

814

987
1373

2093
15804
1662+

2097#
2131#
21444
21474
1758
1182+

1477«
1615

1463
2109

2148
1774
1184

1479
1631

2112
2083#

2115
2

1602
1547
1593

1566
1624

580+

591«

24664

S+

- O

(20RBGO DR11-B/DA11-8 NPR D]A

1480
1645

1451«
1599

21214

2114

003010
003154
003342

003526
007110
007076
001044
011426
011446
011422
012416
012470
(007252

007334

COUNT
012410
CYCLE = 000400
DATCHK
007236

2157
2161
21554
2301
23564
1632

1646

1975
1556

15934

21634
834
2315
2369
2374
1981
1581

933
23464

2040

963

999

1683

2196

001022

DRDB

001040
005722

001026

DRINL

001032

DRINS
DRINV

010216
001034

ODRINO
‘DRIN1
DRINZ

010230
010252
010274

‘DRST

001024

DRIN3

16684

16499

16384

2246
S37#

2265

22874

S30#

617«

1607

913
12647~

1617

1420

974
1289

620

1010~

643

DRW(

001020

DSTATA=
DSTATB=
DSTATC=
END

001000
002000
004000
007416

ERRA
ERRCHK
ERRDO
ERRDO1
ERROR =
FLUSH
FLUSHT
FNCCNT
FNCTT =

001252
00
005776

END1

887«

1311«

1484

1118

1136
1344

1151
1347

1228+
1362+

16457«

1469

1191
1849

1212

1230

1459

938+

970+
1262+

1006+

1055+«
1486+

657

660

2049
1343
2055

12409e

707«
747
791

1290+

888

891«

1227«

1188
1507+

1209+
1549«

1248+

1322+
1485«

1325
1550+

1487

1517

1552

1571

1061«
1515«

1120«

678
729+

690+
730
773

1234

770

935
1023+

1082

1123+
1278+

1406
1604+
1961

1551«

811
943+

1036
1085
1142+
1293+
1424+

1972+«

1568+

1190«
1634+

69
779

817

952+
1048+
1089+
1175+
1298
1432+
1651
1975

2010

2032

2036+

2040+

1191»
1635+

1422+

1459+

1517«

1009+
16419«

1187+
1567+

851

874+
1208+
1611

878+
1246+

1963

2094
1527

1165

807

007446

100000
011234
011242
001070

864

1149+
1456+

981«
1070
1101
1252+
1308
1489+
1780+

001030

863+

1067+
1385

010262

DRVS

SEQ 0047

~N W

DRBA

DIOMEM
DONE

16464
1216
1492

006220
007320
006360
012230

30A(1052)
O01-APR-80
11:29
PAGE 49
CROSS REFERENCE TABLE == USER SYMBOLS

—

DATINB
DATOCK
DATONB
DECML

MACY!1

Y —

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

1530+

1531

2050+

1980
1962

2036
2053

1982

2021

21654

= 000001

22824

HOFHM
012214
HLY
= 104000

606
723

790

853

HNDSHK
HNDSH1
HNDSH2

ICOUNT

1021
1115
1274
1378
1613
1880

010746
010754
010774

LIST
012240
LISTA
011462
011474
LISTAY
LISTB
011506
LOADA
007052
LODBUF
007040
MAINT = 010000
MFCHK
006550
MFLOOP (006442
MINUS
012036
MKNUM
012066
MOADD
012150
MREC
011056
MRECT
011070
MREC?
011102
011114
MRECS

b
b
b
el wd wd

190

—b

FLRO28 8\1\1\1—'—'
m‘owog SRR
L 3

010466

b —d

007074
001050

JOBAZ2

b —d

LDEXIT
LENCHK

004330

007640
007636
010316
010376
010356
010430

INTC

—r

JBCNT
JBFLAG
JaBAD
JOBAOA
JOBAOB
JOBA1

1072
1138

749

803

1303

1641
1649

SEQ 0048

663

693
775
816
953
1087
1171
1337
1642
1799

758

908

1076
1159
1307
14626
1654

2030

2034

1287+

1321«

1780
942
1533«
1536

2021

2041

1229

1515

1551

1862

1872«

1594

1598«

1599

1626+

1627+

1478

1508

1546

1565

15844

2002
826+

1E
= 000100
INBLF
001042

001072
002552
005524
002522
007142
004156

659

2003

012374

INBUF1
INCBA
INCDB
INCWC
INTA
INTB

O NN
NO W

€0)

J 4
11:29
30A(1052)
01-APR-80
PAGE S0
CROSS REFERENCE TABLE == USER SYMBOLS

§\J\IO

FNCT2 = 000004

FNCT3 = 000010
GETBUF
011450

MACY11

RO
O WP

C(ZDRBGO DR11-B/DA11-8 NPR D]A
CZDRBG
. P11
01-APR-B0 11:25

1188
1584

1901
1776+

1906+
1805

1587+

1588

1590

1932
1921
1978

2171»
1933
2183+

21774

1223

1242

1452

1937

2146

1209

1616

16044

1631

1640+

1641

MACY11

PSINV

PGERR
POINV
P7ZERR
PZINV
ROSW
ROYCHK
READY =
RESALL
REIURN
SAVALL
SAVCC

1315

1445

1621

16344

1119»

1133

1149

1150+

1165

2353
2318

2376

23934

22404
901«
1423+

2359
930+

1779«

1460+
1781+

2328+

23324

2068

012412
001056

000:

SAVPC
SAVR2

SAVRG

011742

SCOPEB
SCOPEC

1882

1910+

1192+

1671+

1213«
1690+

1911

1765+

960+
1488+

2307+

2222
570
1292+

20454

1408+

2308
22384
22374

011740

012252

012274
012306

1147
1394

1418

2317

2326

—

SCOPE = 104400

| SCOPEA

1878

——y
QN mmr%i
O

2 3

ONN

b odd
b

——=a

—r

-t

b AN
—
d

1280

1872

003512
003426
003312
003230
003124
003052
002774
002722
002644

010120
012400
010104
011746
011744
011736

|SAVR3

1809+
1983«

Ar\)go

P3INV
PGINT
PLINV
PSERR

003604

1808+
1940+

NO
N~
oSO

P3INT

1778
1948+

—

011200
011214
011216
011750
001016

011174

1777+
1938+

—

PRMXF2
PRMXF3
PRMXF4
PRTAB
PSW

PRMXF1

1762+
1937+

001074
011520
011142

SEQ 0049

—

PASCNT
PRINT
PRMXFR

N
347

013114

012714

OF L

e EREPLgRigr=

ouT

WO &

000240
007276
004064
001036
007630
004050

NOP
=
NORMAL
NPRRDY
NPR1
NWRDXF
N1413

b ed

005130
007632

D NYN = = DO NN NOO

NEXCHK
NEXJOB

001000
007642
011002
011014
011026
040000

PON)
b b

MSTART
MS1
MxMIT
MmMIT1
MXMIT2
NEX
=

K &
30A(1052)
O01-APR-8B0
11:29 PAGE 51
CROSS REFERENCE TABLE -~ USER SYMBOLS

CIDRBGO DR11-B/DA11-B NPR D]A
CZDRBG.P
01-APR-80 11:25

672

689

702

715

1286
1561

1320
1582

1332

1342

728
1034
1355

TEMP?

118

KB
TKS
TNPRO

TNPR1
TOOCLE
P8
TPS
TRPA
TRP8B
TRTRAP
TSTRDY
TTIN

TTINT

TTINZ
TTOUT

T33CLR
T34CLR
135
WAITI
WAIT?2
WCLEN
WwGTCY
WRTOC

XBA16

XBA17

XCHKBU
X INBUF
XLIST
x1
)¥4

2271»

22864

1984

565
001006
007722
012044
001102
000176
001076
012406
001100
012414

1684

2197

2227

2302

2316

2321

2346

2406+

2274

001062
001060
004234
004000
012224
001066
001064
007540
007544
007474
005700
012716
012736
012752

565

2346

2363+

2384~

2385+

2386+

2388+

2392

1019

1026

2351«

2352

2366+

2367

2370

2377

2379

2387+

2388

2402+

2401+
2348

2606
2400+

2403+

2404

2257
2205+
2206

22854
2213
2214

2251+
2243

2253+
2247

2278+
2276

2409+
2282

2453«
2407

2644n

2451

2355

2357

2361

2373

2382

24404

2454

2460

1187
1480+

1206+

1207+
1.82

1208
1544+

1225+
1548

1226
1563+

1244+
1564+

1245+
1567

1176

013116
004226

2281
012232
012106
000020
000040
015226
014224
012164
002734
003064

1004

1186+
1455

22634
2469

22754
9594

982

2261

2266*

2183

24674

988

TEMPST

23314
2327#

—b

STARY
SUSWR
SWREG
TEMP

18434

SEQ 0050

rony

SSTARTY

SS1

&4
L
30A(1052)
O01-APR-B0
11:29 PAGE 52
CROSS REFERENCE TABLE =~- USER SYMBOLS

2327+
2324

8
m\l\.h‘()\l—‘
= gou

i
d

SJaB1
SJ0B82
SJOB2A
SJ0B28
$J0B2C
SJOB2D
SR

MA(Y11

Y NPT NT.ST. V1.V
O NN
_l—.ww
i ~N~N &S
— )

SE TBUF
SETVEC
SEVEN

SETBF?

—d el

SCOPEF
SCOPEG
SETBF1

C(ZDRBGO DR11-B/DA11-B NPR DJA
(ZDRBG L1
01-APR-80 11:25

1481+

2288#

1004+

1005+

1246

(ZDRBGO DR11-8/DA11-B NPR D]A

TIDRBG.P11

YESRT

YESTR

003252

00345¢

003624

007624

007546

01-APR-B0 11:25

985S

1022

1058

1699

(98

MACY1Y

989

1027

10684

16974

007620
007622
012770
012776
007464

1686
1689
2354
2372
501

1688
1698«
24124
PIARY)
16754

SMNEW

013012

2360

2L16N

MSWR
SQUEST
SREAD
$TITLE
.
=

013031

013002
013023
012524
013047
015230

1667

2356
2381
23634
511
493

658

748

802
889

1104
1235
1360
1498
1653

LEMPTY
L.REST
.RET
.RETR
.SAV

013142
013206
013172
013214
013220

2231

2443
2450
26448
2457
2456

O01-APP-80

CRJOSS REFERENCE

11:29

PAGE 53

TABLE == USER SYMBOLS

SEQ 0051

9954

10344

1709#

YESTR1
YESTRZ
$CNTG
SCRLF
SENDAD

SENPAS

5DA(1052)

1697«
1708#

1707#

26204

26144
2L18#

2423
4O4H

662

757

805
907

1110
1253
1374
1528
1656

2283

24L47N
26594
24554
24624
2459

675
761

808
936

1114
1270
1377
1555
1665

26634
2458
2464n

SO0

679
771

812
966

113
1273
1386
1579
1703

24654

S502#

692
774

815
1002

1134
1276
1399
1580
1794

2467

S04n

696

777

818
1041

1137
1299
1403
1600
1798

24684

5064

705

780

832
1071

1163
1302
1409
1606
1802

2469

S1S#

589

605

621

634

645

783

786

789

792

796

799

709

838
1075

1166
1306
1428
1609
1379

718

848
1078

1170
1309
1441
1612
2204

722

852
1083

1194
1326
1467
1618
2207

731

861
1086

1196
1336
1468
1629
2215

735

865
1091

1215
1345
1470
1643
2220

7464

876
1094

1233
1349
1497
1648
2228

(ZORDG0 DR11-B/DA11-B NPR DIA

CZDRBG.P11
COMMEN
ENDCOM
ESCAPE

GETPR]
GE TSWR
MY

NEWTST
POP
PUSH
REPORT
SETPR]
SE TUP
SKIP
SLASH
STARS

01-APR-B0 11:25

1
1#
W

650

766

928

1199

1341

2298

14
»

2310

11 ;
14
1#
1
1

1#
1
1#
14

.SETUP
. SWRH]
LSACTT
.SAPTB
.SAPTH
.SAPTY
.SASTA

14
1
14
1
1#
12
14

| .SCMTA

. 30820

1#
1

14
'y
0

461

574

686

956

958

992

994

1201

1352

1917
2072

1755

520

684

1914
2047

. $ERRO
.SERRT
LML T

764

518

669

1889
2044

EQ AT

.SEOP

&
PAGE 55

CROSS REFERENCE TABLE == MACRO NAMES

667

1507

.80V

466

652

1501

TYPIXT

.$082D

1475

1753

.SCATC

SEQ 0052

14
1
14
1
1#
1

1339

.HEADE

11:29

1180

$SESCA
SSNEWT
$$SKP

OQ1-APR-80

14
14

926

TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT

30A(1052)

10
14
14

753

SWRSU
| TYPBIN

MACY11

1769

2312

821

1218

1354

1539

1771

1927
2075
2337

824

1220

1366

1541

1783

1930
2089
2340

841

1237

1369

1558

1785

1942
2092
2394

576

699

843

1031

1239

1380

595

701

855

597

712

857

1033,

1065

1382

1391

1256

1258

1560

1660

1662

1946
2104

1952
2107

1954
2125

1816

23%6

1818

2635

1827

2637

611

714

868

1067

1282

1393

1679

1829

1987
2129

613

725

870

1097

1285

1413

1681

1839

1989
2151

625

727

882

1099

627

738

884

1144

637

740

896

1146

639

751

898

1178

1317

1319

1329

133

169

1696

1713

1715

2005
2154

2008
2190

1417

1841

1447

1857

1449

1860

2026
2193

1473

1885

2027
2296

‘

(ZDRBGO DR11-B/DA11-8 *PR DIA

(IDRBG.P1

01-APR-80 11:25

SRAND
. SRODE
. SRDOC
.SREAD
.SR2AZ
.$5AVE
.$5820

1%
.
14
12
1
1%
19

.$SCoP

.SSUPR
STRAP
s$TvPR

1
14
1Y J

$TYPE

| .$5820
.$S12¢

$TYPD

30A(1952)

01-APR-80

11720

' ABS.

015230

ERRORS DETECTED:

000
O

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

RUN-TIME: 30 39 2 SECONDS

RUN-TIME RATIO: 202/72=2.7
CORE USED:
31k
(61 PAGES)

11:29

PAGE So

CROSS REFERENCE TABLE -- MACRO NAMES

.$1YPO

. SLOCA

MACY11

SEQ 0053