Digital PDFs

AH-8644H-MC

October 1983

54 pages

Original

28MB

view download

OCR Version

37MB

view download

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

OCR Text

DR11B/DA11-B
NPR

DIA

CZDRBHO

RH.8644H.MC

FICHE

0CT

1983

COPYRIGH

waoe 1n usa

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P1

20-MAY-83 15:04

MACY11 30(1046)

20-MAY-83

15:09 PAGE 2

+REM-X

IDENTIFICATION

PRODUCT CODE:

AC-86434-MC

PRODUCT NAME:

CZDRBHO DR11-8/DA11-B NPR DIA

PRODUCT DATE:

MAY 1983

MAINTAINER:

DIAGNOSTIC ENGINEERING

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.

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

SEQ 0001

CZDRBHO DN"-B/DM‘I-BNPR062

MACY11 30(1046)

20-MAY-83

15:09 PAGE 3

ABSTRACT

1.1 THIS IS A

LOGIC C TEST OF THE 'NPR GENERAL INTERFACE'' <DR11B.

wre

CZDRBH.P1

20-MAY-83

MAINTENANCE FEATURE THAT ALLOWS TESTING
THERE IS A SPECIAL
1
OF NPRS WITHOUT A CUSTOMERS DEVICE ATTACHED.
1.2 THERE IS A SECOND TEST INCLUDED FOR EXERCISING THE DA118
INTERPROCESSER LINK. THE DR118 TEST SHOULD BE RUN IN
IN EACH COMPUTER BEFOUR TESTING THE DA11B.

REQUIREMENTS

2.1

EQUIPMENT

2.1.1 FOR THE DR11B
827;31 STANDARD COMPUTER

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

2 PDP=11 STANDARD COMPUTER
1 DA11B CONSISTING OF 2 H7229 MODULES AND 2
BCOBR CABLES.
NOTE: WITH OR WITHOUT HARDWARE SWITCH REGISTER
2.2

STORAGE

2.2.1

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

LOADING PROCEDURE

3.1

ME THOD

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED.
4.

DR11B STARTING PROCEPURE

4.1

CONTROL SWITCH SETTING

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

SEQ 0002

MACY11 30(1046)

CZDRBHO DR11-B/DA11-B NPR DIA
CZDRBH.P11
20=MA Y-83 15:04
4.2

15:09

PAGE 4

STARTING ADDRESS OR ADDRESSES

(A)
4.3

20-MAY-83

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

PROGRAM AND/OR OPERATOR ACTION

LOAD PROGRAM INTO MEMORY.
LOAD STARTING ADDRESS
PRESS START.

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

NOTE:

IF SOFTWARE SWITCH REGISTER IS SELECTED THEN THE

FOLLOWING WILL BE PRINTED:
SWR= XXXXXX NEW=

(REFER TO SECTION 5.1 FOR OPERATOR OPTIONS)

DR11B OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

5.1.1

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

5.1.2

SWITCH SETTINGS ARE

$H15§10RU’
SW14 = 1 OR UP
SW13 = 1 OR UP
SW12 = 1 OR UP
SW11 = 1 OR UP

««s
...
...
...
...

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

SWC2 TO SW00 = 4 ... BR LEVEL OF DR11B = 4

=S ... BR LEVEL OF DR11B = §

=& ... BR LEVEL OF DR11B = 6

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

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOF TWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH
REGISTER (LOC. 176) 1S USED.

CONTROL :

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY

SEQ 0003

MACY11 30(1046)

CZDRBHO DR11-B/DA11-8 NPR DIA

CZDRBH.P11

20~-MAY-83 15:064

20-MAY-83

15:09 PAGE 5

DOING THE FOLLOWING:

1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO

LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.

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

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

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

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

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

5.2.

SUBROUTINE ABSTRACTS

BEGIN
5.2.1

SA 200

SCOPE

THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST
IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING
ADDRESS OF EACH SUB-TEST AS IT IS BEING ENTERED.
IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE

START OF THE SUBTEST THAT THE SCOPE LOOP IS RE=-

QUESTED FOR. IF SCOPE LOOP IS NOT REQUESTED, THERE
WILL BE EITHER A FIXED OR RANDOM NUMBER OF ITERATIONS
ON THAT SUBTEST BEFORE THE NEXT SUBTEST IS ENTERED.
SWITCH 11 ON A 1 INHIBITS ITERATION OF SUBTESTS.
NOTE: SUPPORTS “G ROUTINE FOR DYNAMIC LOADING
OF SOFTWARE SWITCH REGISTER

5.2.2

HALT

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

5.2.3

LODBUF

THE INBUF BUFFER IS LOADED WITH AN INCREMENTING
PATTERN (0,1,2,3,...) BEGINNING AT THE STARTING
ADDRESS OF INBUF. THE NUMBER OF WORDS LOADED IS
DETERMINED BY THE CONTENTS OF BUFLEN.
5.2.4

CHKBFF

SEQ 0004

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

MACY11 30(1046)

20-MAY-83

15:09

PAGE 6

THE CHKBUF BUFFER IS LOADED WITH A MODIFIED

INCREMENTING PATTERN (0,0,2,2.4,4.,6,6,...

BEGINNING AT THE STARTING ADDRESS OF CHKBUF.

THE NUMBER OF WORDS LOADED IS DETERMINED BY THE
CONTENTS OF BUFLEN. THIS BUFFER IS LOADED ONLY
FOR TESTS WHICH USE THE MAINTENANCE MODE OF THE
DR11-8B WHICH HAS A SPECIAL ALTERNATING DATI=-DATO
SEQUENCE OF OPERATION.

5.2.5

INTA

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

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

DATCHK

THIS ROUTINE IS ENTERED TO CHECK INBUF AFTER
A MAINTENANCE MODE OPERATION. THE CONTENTS OF
INBUF AND THE CONTENTS OF CHKBUF ARE CHECKED TO
SEE THAT THEY ARE THE SAME. THE NUMBER OF COMsagtggfls MADE IS DETERMINED BY THE CONTENTS OF
5.2.7

NORMAL

THE ROUTINE IS ENTERED FROM INTA AND FROM SOME
TESTS WHICH DON'T USE INTA. THE NUMBER OF
THE DRINV+2 IS PUT INTO DRINV AND THE DRVS IS
CLEARED. IF THE DR11-B INTERRUPTS UNDER THESE
CONDITIONS THE PDP-11 WILL HALT AT DRVS. THE
PROCESSOR STATUS WORD IS RESTORED TO LEVEL 7 AND
THE ROUTINE IS EXITED.

5.2.8

DATOCK

AFTER A STRING OF DATO'S HAS BEEN COMPLETED THIS
ROUTINE CHECKS THAT THE CORRECT DATA PATTERN
(52525) WAS TRANSFERRED TO INBUF. THE NUMBER
OF COMPARISONS MADE IS DETERMINED BY THE CONTENTS

OF BUFLEN.

AN ADDITIONAL CHECK IS MADE ON BUFLEN+2

TO INSURE THAT TOO MANY WORDS WEREN'T TRANSFERRED.

5.2.9

ERRCHK

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

SEQ 0005

CZDRBHO DR11-B/DA11-8 NPR DIA

CZORBH.P11

20-MAY-83 15:04

MACY11 30(1046)

20-MAY-83

15:09 PAGE 7

THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0

DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND
I*N;SSRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS

OF THE NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH
A HALT (000000). THUS AN ILLEGAL TRAP OR INTERRUPT WILL
CAUSE A HALT AT THE TRAP LOCATION PLUS TWO.

IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE
REGISTER SIX, IT WILL CONTAIN THE CURRENT STACK ADDRESS.
THE CONTENTS OF THE CURRENT STACK ADDRESS IS THE VALUE OF
THE LOCATION COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED.
5.3

PROGRAM AND/OR OPERATOR ACTION

5.3.1

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

TO LOOP ON ERROR, THEN SW13 UP TO DELETE PRINTOUTS.

DR118 ERRORS

6.1

ERROR PRINTOUT

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

ERROR RECOVERY

DEPRESS CONTINUE TO RESTART SECTION
DR118 RESTRICTIONS
STARTING RESTRICTION
NONE

OPERATIONAL RESTRICTION

M968 MUST BE IN SLOTS C04/D04 - FOR DIAGNOSTIC TESTING
SHOULD BE IN A02/B02 FOR NORMAL USER OPERATION.
8.

MISCELLANEOUS

8.1

EXECUTION TIME

ABOUT 2 MINUTES
PROGRAM DESCRIPTION

SEQ 0006

CZDRBHO DR11-BIDA11-BNPR062

CZDRBH.P11

20-MAY-83

MACY11 30(1046)

20-MAY-83

15:09 PAGE 8

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

RESET CLEAR DRWC
RESET CLEAR DRBA

CAN ALL DRWC BITS BE SET
CAN 15=1 IN DRBA BE SET
FNCT1 SET & CLEARED
FNCT2 SET & CLEARED
FNCT3 SET & CLEARED
XBA16 SET & CLEARED
XBA17 SET & CLEARED
SET & CLEARED
IE
CYCLE SET & CLEARED
MAINT SET & CLEARED

ALL DRST R/W BITS CAN BE SET & CLEARED
ALL DRST R/W SET, RESET TO O, RDY IS SET, NEX IS

CLEARED, GO IS 0

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

DRDB HOLD

ALT. szosmourosz1s

INC TO uaAp~Anounn IN DRDB
RESET SETS ONLY RDY IN DRST
BAOO READS AS 0
1 DAT1 NPR
1 DATO NPR

BAOF FORCES ERROR & IS CLEARED BY CLEARING DRBA OR RESET
GO CLEARS RDY

DATO TO DIODE MEM CAUSES NEX

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

200 DAT1'S (BURST)
200 DAT1'S (NON-BURST)
200 DATO'S (NON-BURST)
FUNCT BITS INC WITH MAINT MODE XFERS
10 MAINT MODE XFERS

200 MAINT MODE XFERS
10.

LISTING

SEQ 0007

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20~MAY-83 15:04
1n.

MACY11 30(1046)

20-MAY-83

15:09 PAGE 9

SEQ 0008

FLOW CHART(S)

12. DA11B STARTING PROCEDURE

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

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

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

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

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

12.5 MASTER_COMPUTER,

PRESS CONTINUE (OR CNTRL 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 IN A02/B02 AND THE
THE DA11B MUST BE IN C04/D04 .
14. DA118 PROGRAM DISCRIPTION

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

14.2 THE INTERUPT SERVICE ROUTINE DETERMINS WHAT
INTERUPT CAME UP AND IF IT SHOULD HAVE COME UP.
IF THE INTERUPT WAS THE ONE EXPECTED THAN THE
THAN THE PROGRAM GOES TO THE

TO THE PROPER JOB ROUTINE, SJOBXX FOR SLAVE SERVICE
AND JOBXX FOR THE MASTER ROUTINE.

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

TWO CHECK SUM WORDS. THE SLAVE ACCEPTS A WORD AT A TIME

FROM THE DATA BUFFER EACH TIME THE MASTER TOGGLES
FUNCTION BIT 3. EACH TIME IT READS A WORD THE SLAVE
SENDS THE WORD BACK TO THE MASTER FOR VERIFICATION.

MACY11 30(1046)

CZORBHO DR11=B/DA11-B NPR DIA

CZDRBH.P11

20-MAY-83 15:04

20-MAY-83

15:09 PAGE 10

14.4 AFTER THE SLAVE HAS RECIEVED ALL THE PARAMETERS
IT SETS ITS DIRECTION BIT TO THE OPPOSIT DIRECTION
AS THE MASTER AND STARTS THE NPR TRANSFER.
14.5 THE MASTER SETS UP THE TYPE OF TRANSFERS AND
CHECKS THE DATA WHEN IT COMES BACK FROM THE SLAVE.
15. DA11B ERRORS

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

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

16. ECO CHANGES

CHGG1 = CHANGES 1 THRU 5 REPLACED THE INTERRUPT ENABLE COMMAND
WITH A DATA TRANSFER BEFORE ISSUING AN INTERRUPT.
THIS WAS NECESSARY DUE TO HARDWARE CHANGES.

461

MODIFIED FOR SOF TWARE SWITCH REGISTER

464
465

F
:

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

23%
466
467
468

469

INCLUDING DYNAMIC LOADING OF SWR

AR RRRRRRRERARROONR
AR AR AR AR AR RN AR AR AR RR AR
R RRRERRRRRRARRER
RN
AR
AR ANR AR AR
TR AR
AR AR

000240

NOP=000240

475
476
477
478
479
480
481
482
483
484
485
486
2gg

000010
000020
000040
100
000200
00
001000
002000
004000
01
020000
040000
100000

8171=000002
8172=000004
8173=000010
8174=000020
B175=000040
B176=000100
8177=000200
B8178=000400
8179=001000
81710=002000
B81711=004000
BIT1§=010000
81713=020000
BI1714=040000
BIT15=100000

489

000004

BUSERR=000004

470
47
472
473
474

104400
104000
000001
000002

SCOPE=TRAP
HLT=EMT
8170=000001

SEQ 0009

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY-8315:04

MACY11 30(1046)

490

000030
000032
000034

000036
000046

000052

000176

000000
000030
011506
000340
000034
012274
000340
000046
007452
000052
000000
000176
000000
000200

507 000200 012706
508

000204

005077

.=0
.=30
PRINT
340
=34
SCOPEC
340
.=46
$ENDAD
.=52
0
.=176
SWREG:
.=200

014210

N2, ansé

;SKIP TITLE IF YES
:PRINT THE TITLE

JSR

000230

004767
000167
001000

18:

000646

JMP
.=1000

aPsw

1$
#STITLE,%2

sARE WE IN ACT11 AUTO MODE?

X7,TT0UT
SUSWR

t't.ttt'tttttitttfifitt."".ttt...Q.'.tt..'ttti.tt"....".""'

518

519

START OF BACK-TO-BACK DR11-8B223ttt

23 (1222822222222 2222222222322

;%?

522

523 001000
524 001002
525 001006
526 001010
527 001014
528 001016
529 001020
530 001022
531 001026
532 001026
533 001030
534 001032
535 00'034
536 001036
537 001C40
538 001042
539 001044

545

CMP

012654

000224

sSET UP STACK LIMIT

BEQ
Mov

540
541
542
543
544

SEQ 0010

#BUFF ,%6

510 000216 001404
g}; 000220 012702 013035
514
515

MOV
CLR

000606

509 000210 023737 000042 000046
513

15:09 PAGE 11

;LOAD TRAP CATCHER INTO O THRU 777.

235

493
494
495
496
497
498
499
500
501
€02
503
504
505
506

20-MAY-83

001046
001050
001052
001054
001056

001060

000000
000167
000000
000167
177570
177776
172410
172412
172414
172416
000126
000240
000124
052525
173000
014212
015214

000000
000000
000000

000000
000000

177560

006622

006674

MSTART: HALT
JMP
SSTART: HALT
JMP
177570
SR:
177776
PSW:
172410
DRWC:
172412
DRBA:
172414
DRST:
172416
DRDB:
126
DRVS:
DRINL: 240
DRINV: 124
52525
NPR1:
DIOMEM: 173000
INBUF: XINBUF
CHKBUF: XCHKBU
BUFLEN:
LENCHK:
BRWAIT:
WCLEN:
RDYCHK:

TKS:

HALT
HALT
HALT
HALT
HALT

177560

MS1

ss1

sMASTER START

sSLAVE START

idddl

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY-83 15:04

001062
001064
001066
001070

§51

001074 000000

552
ggz
555
556
§57
558

559
560
561

001072

000000
000000

001076
001100
001102
001106
001112
001120

TEMP:
000000
TEMP2:
000000
SUSWR:
013746 000006
013746 000004
012737 001132 000004
022777 177777 177666

001126
001130
001132

INBUF1: HALT

001402

648:

022626

001146

012637

9000006

022767

000176

567 001162 005737
568 001166 001002
569 001170 004767

000042

565

566

001152

001160

001005

177634

0
0
MOV
MOV
MOV
CMP

BEQ
BR
CMP

001202

012767

;NUMBER OF PASSES COMPLETED

001174

:ADJUST STACK

*POINT TO SOFTWARE SWITCH REG
*RESTORE VECTORS

CMP

#SWREG, SR

:1S SWREG USED

a2
BEGIN
PC,CNTLU

:ARE WE IN AUTO MODE?
*IF SO, SKIP SWREG INPUT
*ALLOW SWREG TO BE LOADED

MOV

ST
BNE
JSR

MOV

011156

658
66$
(SP)+,(SP)+

#SWREG, SR
(SP)+, 44

BNE

011262

ane6,=(SP)
an.=(SP)
2648, 304
#-1,3SR

*TEMPORARY STORAGE
*TEMPORARY STORAGE
:SAVE VECTORS
:SET UP FOR TIMEOUT
*REFERENCE HARDWARE SWITCH REGISTER

MOV
MOV

570 001174 012777 000340 177614 BEGIN: MOV

g;}

15:09 PAGE 12

PASCNT: 0

562 001134 012767 000176 177652 65$8:
668:
563 001142 012637 000004
564

20-MAY-83

177562
TKB:
177564
TPS:
PB:
177566
FNCCNT: HALT

177562
177564
177566

546
547
548
549
§50

MACY11 30(1046)

(SP)+.aW6

BEGIN

#340,3PSW

#BEGIN,RETURN

*PROC. AT LEVEL #7

573
576

:;tt.ttttttittttttttttttt'tttttttttt.ttttttttttttttit.tttttttttt.

576

4 :tttttttlttttttttttttttt'ttttttttttttttttttttttttttttt.t.tttttt'

577
578

579

001210

580 001212
581 001220
582 001222
583 001226
001230
585 001234
001236
587 001242
588 001244
589 001250
590 001252
591 001254
592

001262

104400

012767
010700
005277
010700
005277
010700
005077
010700
005277
000401
104000
012767
104400

001252 176564
177572
177566
177562
177556

000006 176522

601

ERRA:

SCOPE

596

59;

600

SCOPE

MOV
MOV
INC
MOV
INC
MOV
CLR
MOV
INC
BR
HLT
MOV

#ERRA.BUSERR
%7.%0
aDRWC
%7.%0
aDRBA
$7.%0
aDRST
$7.%0
aDRDB
Y

#6,BUSERR

;BUS ERROR VECTOR TO ERRA
TO RO
:PC
*ADDRESS DRWC
*PC TORO
*ADDRESS DRBA
:PC TORO
ADDRESS DRST
:PCTO RO
ADDRESS DRDB
MADE IT = BRANCH OVER HALT
iBUS ERROR., RO HAS PC OF ERROR
*RESTORE #6 TO BUS ERROR VECTOR

' |3222332211222 222323222222223333333222131333133333333333333333332323433243}]

595

59
599

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

575

001264

001272

012767

012777

000010

177777

011070

177520

TEST 1 DOES RESET CLEAR DRWC?

tttttttttttitttttttt'tttttttttttttttttQttltttt"t.ttttt'.tttttt

MOV

#10, 1COUNT

#-1,3DRWC

;ALL ONES TO DRWC

SEQ 0011

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

602
603
604
605
606
607

608
609
610

001300
001304
001306
001312
001314
001316

004767
005777
001401
104000
104400

MACY11 30(1046)

JSR
RESET

011100

TST

177506

BEQ
HLT

620

621
622

623
624
625
626
627
628
629
630
631
632

633

634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654

655
656
657

15:09

PAGE 13

%7,CKSWR

aDRW(
e

SCOPE

SEQ 0012

sINIT

:LOOKING FOR Z=BIT TO SET

sDID DRWC GET CLEARED?
sDRWC NOT CLEAR

.tl.t't.tttt.t.ttttt.tt"'ltltttttt'tttttttttt'ttt'ttti.tttt.t'.

&2
613

614
615
616
617
618
619

20-MAY-83

TEST2 DOES RESET CLEAR DRBA?

..ttlQQ..tttt't.tttttttttttttttttttttt.ttttttttii.ttttttt'itttit'

001320
001322
001330
001334
001336
001342
001344

104400
012777
004767
00000
005777
001401
104

177777
011050

MoV
JSR
RESET

#=1,3aDRBA
%7,CKSWR

sALL ONES TO DRBA

BEQ

aDRBA
ote

:LOOKING FOR Z-BIT TO SET

TST

177460

HLT

sINIT

:DID DRBA GET CLEARED?

:DRBA NOT CLEAR

;:tt'tttttttttt.ttQtttt.tt'tttQtittttttttt"t.tt.ttttt'ttt"t"t'

|
'

001346
001350
001356
1364
001372
001374

SCOPE

177472

TEST3 CAN ALL DRWC BITS BE SET?

::ttttttttttttlt.tttt.tit'.tttttttlitt.t.tttttt.Qtttt.fi.tti'it.tt

104400
012767
012777
022777
001401
104000

004000
177777
177777

MOV
MOV

0,
I COUNT
#400
#-1,3DRWC

sSET ALL BITS IN DRWC

BEQ

:SEE IF ALL BITS GOT SET

CMP

HLT

#-1,3DRWC

:LOOKING FOR Z=BIT TO SET

;ALL BITS AREN'T SET

ttttttitttttfitt.tt.tttttttttttttt't.tttt'.t.tt.'tttt.t.t.Q'.t.'

TEST4 CAN BITS 15-01 IN DRBA BE SET?

::ttt'ttttttt'tttttttttt'tttttttttttti'tfitttt't.i.t.ttttt'.tttfit'

001376
001400
001406
001414
001416

104400
012777
022777
001401
104000

177776
177776

177414
177406

SCOPE

MoV
CMP
BEQ
HLT

#-2,aDRBA
#-2,aDRBA
. th

sSET BITS 15-01 IN DRBA
;LOOKING FOR Z-BIT TO SET
sSEE IF BITS 15-01 GOT SET
sBITS 15-01 AREN'T SET

322222222 222222322 3322333223328 233333333

ittt idiiiiddl)

TEST6 TEST THAT FNCT1 CAN BE SET AND CLEARED

::titttttttttttttttt'ttt'tt'ttt'tttttttittttt...tttit.tttt'.t.ttt

001420
001422
001430

104400
052777
032777

000002
000002

177374
177366

SCOPE

BIS

BIT

#BIT1,3DRST

#81T1,@DRST

sSET FNCT1

;TEST FNCT1

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

658
659
660
661

001436
001440
001442
001450

001001
104000
042777
83$Z5¥

663

001460

104000

000002
000002

MACY11 30(1046)

177354

177346

20-MAY-83

15:09

BNE

BIC
BIT

#BIT1,3DRST
#ele.ODRST

PAGE 14

SEQ 0013

tttttttttttttQ'ttttt'tittt'ttttt'.tt't.tl.ttt'ttfitttitt.."...'

TEST7 TEST THAT FNCT2 CAN BE SET AND CLEARED

.ttttttttt'ttttt'.tttt"ttttttttttt'tt'ttttttittttt"tt..'it't..

672
673
674
675
676
677
678
679
680

681
682
683
684
685
686
687
688

001462
001464
00}472
001500
001502
001504
001512
001520
001522

104400
052777
032777
001001
104000
042777
032777
001401
104000

000004
000004

177332
177324

BIS
BIT

#8172,3DRST
#BIT2,3DRST

000004
000004

177312
177304

BIC
BIT
BEQ

#BI172,3DRST
#B1T2,3DRST
L

BNE

ote

sSET FNCT2

;TEST FNCT2
sIS IT SET?

:FNCT2 IS CLEAR

:CLEAR FNCT2
:TEST FNCT2

:WAS IT CLEAR?

;FNCT2 WAS SET

tttttitt'tltttt..ttttt"t.tttt.ttt.t'ttttt'tttttttttttttt.lti't

TEST10 TEST THAT FNCT3 CAN BE SET AND CLEARED

:;ttQQtttttttittttttt'tt'ttt*.tttttttt.til."ttt'tttt..it.t.tt"'

690
691

001526
001534

052777
032777

694
695

001546
001554

042777
032777

104000

000010
000010

177270
177262

8IS
BIT

#BI1T73,aDRST
#B1T3,3DRST

000010
000010

177250
177242

BIC
BIT
BEQ

#BI173,3DRST
#BIT3,3DRST
ot

BNE

SET FNCT3

;TEST FNCT3
;1S IT SET?
;FNCT3 IS CLEAR
:CLEAR FNCT3
;TEST FNCT3
:WAS

;FNCT3

IT CLEAR?

WAS SET

tttttttttttt.tttttt*'tttttt'tttt.tttt'tttttittttttttit'ttt."tt

TEST11 TEST THAT XBA16 CAN BE SET AND CLEARED

;:tttttlttt'ttttttttt'ttt"t'ttttl.t'tt!t.ti't'tttt'.ttt.t'tttt..

703

001570

052777

706
707
708
709
710

001606
001610
001616
001624
001626

104000
042777
032777
001401
104000

4}
712
713

000020
000020

177226
177220

BIS
BIT

#BI1T4 ,aDRST
09{74.3DRST

000020
000020

177206
177200

BIC
BIT
BEQ

#BIT4,aDRST
#BI1T4 ,aDRST
ot

SET XBA16

8A16 WAS SET

.t.tttt.tttttttttt.tt'tt't"ttt'fi.t..lttttti.'.'t.tt.'...'tt'.t

TEST12 TEST THAT XBA17 CAN BE SET AND CLEARED

MACY11 30(1046) 20-MAY-83 15:09 gAG% 15

SEQ 0014

tttt..QQtl..tt'..fitfi"'tt'.t"t.ti.'Q.".t"t"t..Q."t..'.".'

88888888

~NNSNNN

SR&fiéésgzaafi

CZDRBHO DR11-B/DA11-B _NPR DIA
M
20-MAY-83 15:04
CZORBH.P

SCOPE

000040
000040

BIS

#B175,3DRST

BIT

#B1T4,3DRST

BIT
BNE
HLT
8IC

000020
000020

BEQ

HLT

#81T5,3DRST
ot
#8174 ,3DRST
.o

:SET _XBA17

;TEST XBA17
;1S IT SET?
1S
:XBA17 C%EAR
:CLEAR
S TEST XBA17

;1S IT CLEAR?

:XBA17 WAS SET

tt'tttttQttttfilt'ttt't"'t'it.i.'lt"ttt't'tt.'t't'.tt'.t..""

TEST13 TEST THAT IE CAN BE SET AND CLEARED

Qtfitttttttttt'..t.ttt.tt'tittttQQ..ttt'ttttt.t't'.Ql'.'t...tt..

SCOPE

BIS

#B176,3DRST

sSET_IE

BNE

o e

;1S IT SET?

#B176,aDRST

+CLEAR

8IT
177102
177074

BIC

BIT

#B1T6,3DRST
oszrb@DRST

;TEST IE

*1E IS CLEAR
:}gsI |

:1E WAS SET

HLT

tt'tttttt'tittiltttlt"t't'tl.ttt't.tQtti.ttt.t.."ttt'tfittttt.

TEST14 TEST THAT CYCLE CAN BE SET AND CLEARED

'ttt.tlttttt.fi'.'.ttt"'tt'tt.ittt.t'.t'..ttttt'ttt.'tlt't'..'t

SCOPE

177060
177052

BIS

#B178,3DRST

sSET_CYCLE

BNE

«te

lS IT SET?

177040
177032

8IC
BIT

BIT

#817T8,aDRST
#BIT8,3DRST
08278.aDRST

;TEST CYCLE

:CLEAR CYCLE
:TEST CYCLE

;CYCLE WAS SET

HLT

::tttt'tttttttttt..ttt'i""'t...Qtt..'t'tt..tt.ttt"'t.".tt"tt

TEST15 TEST THAT MAINT CAN BE SET AND CLEARED

;;ttt.t.QttQt'ttttt.ttt'i'QQ".t.tQ.Qttttt.tttfi.'.'ttt'ti..t.tt.t

8IS

010000
010000
010000
010000

176776
176770

BIT
BNE
HLT
BIC
BIT
8EQ
HLT

#B1T12,3DRST

sSET_MAINT

;1S IT SET?

#B1T12,3DRST

#81T712,3DRST
#81T12,30RST
.t

;TEST MAINT
;MAINT WAS CLEAR
:CLEAR HAINT
sTEST MAINT
;1S MAINT CLEAR?
;MAINT WAS SET

tt'l.t.tt.tfi'ttt.t.ttt't.t'.t'fittQ.t.t't.ittttttt..t't.t'.t..t'

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

:;'tttti"ttt'tt't.ttt'tt".'tt't'ttt..tt.tt'QQ."Q'.'Q..'.I.Q'..

104400

052777

010576

176754

SCOPE

8IS

#10576,3DRST

sSET FOLLOWING: MAINT(12), CYCLE(08) l

;

XBA17(05)

)Fcr1<61)
XBA16(04),FNCT3(03), UNCT2(62

MACY11 30(1046) 20-MAY-83 15:09 PAG% 16
C

000002

176746

000004

176734

000010

176722

000020

176710

000040

176676

000100

176664

000400

176652

010000

176640

010576
000002

176626
176620

000004

176606

000010

176574

000020

176562

000040

176550

000100

176536

000400

176524

010000

176512

i
cd o
e

BNE
HLT
BIT
BNE
HLT
BIT
BNE
HLT
BIT
BNE

NNS

#81T2,3DRST
ot

#81T73,3DRST
#BIT4,3DRST
.+
#BIT5,aDRST
ot
#B176,3DRST
.+
#8178,3DRST
L

#B1T12,30RST
e

8IC
BIT
BEQ
HLT

#10576,aDRST
#BIT1,3DRST

BEQ
HLT
BIT
BEQ
HLT

#B81T73,3DRST
L

BEQ
HLT

BIT

—

#81T1,3DRST
ot

HLT
BIT
BNE
HLT
BIT
BNE
HLT

VRNV

8IT
BNE
HLT
BIT
BNE
HLT

BIT

WN=O

00 CD 0D 00 0o o 0o 0o 00 OO

St
R R PR TREEETEETEEE AL S

2
RoReoRpo st
J88I8E838838223823

CZDRBHO DR11-B/DA11-B NPR DIA
20=MAY~8315:
CZDRBH.P11

#8172,3DRST

8IT

#8174 ,3DRST

BIT
BEQ
HLT

#8IT5,3DRST
L

8IT
BEQ
HLT
BIT
BEQ
HLT
BIT
BEQ
HLT

#B1T6,3DRST
o e

#81T8,3DRST
e

#8]T12,3DRST
.t

sTEST FNCT1
sIS IT SET?
sFNCT1 IS SLEAR
sTEST _FNCT
sIS IT SET?
sFNCT2 IS SLEAR

sTEST_FNCT

:IS IT SET?
sFNCT3 IS CLEAR
sTEST XBA16
sIS IT SET?
:XBA16 IS CLEAR
sTEST XBA17
:1S IT SET?
:XBA17 IS CLEAR
sTEST IE
sIS IT SET?

sIE IS CLEAR
sTEST CYCLE
sIS CYCLE SET?
sCYCLE IS CLEAR
sTEST MAINT
s1S MAINT SET?
sMAINT IS CLEAR

;CLEAR ALL R/W BITS IN DRST
;TEST FNCT!
;1S FNCT1 CLEAR?
FNCY1 IS SET
sTEST FNCT2
;1S FNCT2 CLEAR?
;FNCT2 IS §ET
sTEST FNCT
;IS FNCT3 CLEAR?
FNCTS IS SET
sTEST XBA16
;1S XBA16 CLEAR
:XBA16 IS ;ET
sTEST XBA1
17 CLEAR?
:1S

sXBA17

IS SET

sTEST IE
;1S 1E CLEAR?
s1E IS SET
sTEST CYCLE
:1S CYCLE CLEAR?
sCYCLE IS SET
sTEST MAINT
:1S MAINT CLEAR?
sMAINT IS SET

3233232223222 222233 3332333883033 338

821

SEQ 0015

iiiiidiiiiiiiildy

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

22tt'tt't'.tt..t't.tt'Q"".t.'...t.Qfi...'.t.t."Q'....Q'Q..tt..'

002316

SCOPE

CZDRBHO DR11-B/DA11-B m DlA
1
20-MAY-83

CZDRBH.P11

012767
052777
017701
052701
201

MACY11 30(1046)

20-MAY-83

#10 ;couur

;SET FOLLOWING: nnxnr<12) CYCLE(08) ,1E(06) ,XBA17(05)

:167261K3

MOVE (DRST) TO a1
SETS BITS IN R1 THAT WERE MT SET IN DRST
;R1 _SHOULD GO FROM =1 TO ZERO
UERE ALL DRST R/W BITS SET?
;NOT ALL BITS WERE SET

%7.CKSWR
aDRST, X1

#127200,%1
HLT

SEQ 0016

#10576,3DRST
aDRST

1764
1

15:09 PAGE 17

BA16(04) -FNCT3(03) FNCT2¢02),FNCT1 (1)

sCLEAR ALL DRST R/W BITS

R1
:MOVE (DRST) TO
:CLEAR ALL BITS EXCEPT R/W BITS, NEX, AND GO
:SHOULD EQUAL ZERO
:RESET DIDN'T LEAVE DRST AS IT SHOULD HAVE

tttttttfi.tt.."ttttt"'Q't...tl..Q...t.t'Q't..".'tt.'.t'...t't

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

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

COUNT

#052525 , aDRWC

coszszs.aonuc
#1252 52.,3DWC
#1252 52,3DRC
o+

.AI.T 0°'S AND 1'S }0DRWC
00K ING FOR 2-BIT

TO SET

HAVE THE CORRECT PATTERN?
T _HAVETNER“CORRECT PATTERN

OOKING FOR Z-BU TO SET

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

dddddd)
2222
i id it iitdadddiidiiii
2222
2882222222 a2
X1222223

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

t'ttttl0tlt"'.tt'Q.'tQ'Q.'.QQt.Q...Qt'.ttt.fit..tt"t'tt"'it"

052524
052524

176346
176340

#052524 ,3DRBA

sALT 0°S AND 1°S TO DRBA

:DOES DRBA NAVE THE CORRECT PATTERN?

#052524,aDRBA
#125252,3DRBA

176326
176320

0125252.@DRBA

;LOOKING FOR Z-BIT TO SET

;DRBA DOESN'T HAVE WE CORRECT PATTERN
;ALT 1°S AND 0°S
DRBA
:LOOKING FOR I-BIT TOSET

:DOES DRBA HAVE THE CORRECT PATTERN?

:DRBA DOESN'T HAVE THE CORRECT PATTERN

X 222322233233 3232222222233 322

ididiiiiiididdl)

TEST22 INCREMENTING PATTERN TO WRAP-AROUND IN DRW(C

::tt..tttttttQ.tt.t.t.."ttt".ttt'..Qt'.l...'Qfi..'..t'fi.iti"'..

SCOPE
CLR

gs2

8833 ®

007646
;

176276
176272

176262

INCWC:

JICOUNT
21
aDRW(
1,3DRWC
!’
{
aDRW(C
)
INCWC

.SET°|.P
sSET-UP

: SEE lF THEY ARE EQUAL
ARE HEY EQUAL?

NUMBER

DM WITH TEST?

IF NOT CONTINUE

CZDRBHO DR11-8/DA11-B NPR DIA

CZDRBH.P11

20-MAY=-8315:04

MACY11 30(1046)

20-MAY-83

15:09 PAGE 18

3.tttttt'tQiititttttttfitt'tt'ttttt.ttttttt.tt'tt'tttitttttt't"tt

tttt'ttttt'titttttttltttttit.tt.t.'t.ttttt.t'tt."ttt"tttttttt

883
885

886

887
888
889
890
891
892

002542

002544

002546
002552
002556
002560
002562
(€02570

SCOPE

104400

005001

005077
020177
001401
104000
062777
062701

ggz 002574 001366

TEST23 INCREMENTING PATTERN TO WRAP=-AROUND IN DRBA

CLR

BNE

895

:SET=UP

INCBA

:DONE WITH TEST? IF NOT CONTINUE

aDRBA
%1,3DRBA
ot
#2.,3DRBA
#2.%1

CLR
INCBA: CMP
BEQ
HLT
ADD
000002 176232
ADD
000002
176250
176244

SE-UP
SEE IF THEY ARE EQUAL
:ARE THEY EQUAL?
sTHEY'RE NOT EQUAL
SGET NEXT NUMBER
:GET NEXT NUMBER

896

OARRAACAOACRACSY
AARA
RAAAAOEAAAAAR
RANA
AR AAARAAAAANARA
33AR RRARRAAR

tt'tttttttt.t.ttt.tt't"ttttt.ttttttttttttttt.ttt

897
899

002576

WITH PROC AT LEVEL 7
TEST2S TEST THAT DR11-B DOES NOT INTERRUPT ttttttttt.t.
.'
SCOPE

104400

900 002600 012767 004000 007554
901 002606 012777 000340 176202

MOV
MOV

903 002622 001010

8NE

902 002614 032777 000200 176202
904

905

002624

002630

004767

9000005

007554

002702

012704

3}9 002706 077401

000012

918

919 002710 042777 000100
920

921

002716

002720

000405

022626

922 002722 042777 000100

g%z 002730 104000

176106

%7.CKSWR

#8177 ,3DRST
A
#P7ERR,ADRINV
#340,34126

Con “"l.lg\'f
*

176074

MOV

ITIME1: SOB
JRRRRRARANS

BIC

(MP

HLT

+SEE IF READV IS SET NOW
:1S READY SET?
SREADY CAN'T BE SET BY INIT
:SET UP INT VECTOR

umm

SALLOW 11760 AND 11/70 TIME TO INTERRUPT

#81T76,3DRST

:DR11-B DIDN'T INTERRUPT - CLEAR IE

(26)+,(%6)+

;RESTORE STACK

#B81T76,3DRST

BIC

:INIT TO SET READY

:SET WORD COUNT TO -1

:CHECK READY BIT

#-1,3DRWC

INBUF ,aDRBA
0101 aDRST

MOV
8IS

P7ERR:

:18 IT SET

JSR

912 002660 012777 177777 176132 CHGG1: MOV
915

P7INV

#BIT?,aDRST

BIT
906 002632 032777 000200 176164
BNE
907 002640 001001
HLT
908 002642 104000
909 002644 012777 002720 176162 P7INV: MOV
913 002666 016777 176150 176126
914 002674 052777 000101 176122

:STATUS AT LEVEL 7

BIT

RESET

g}? 002652 012737 000340 000126

#4000, ICOUNT
#340,3PSW

:SET BUSS ADDRESS Loc
*SET I.E. AND GO BIT

sCLEAR IE

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

925

3A RARRRRRAAARAAAAARAA AR AAARANNANRAAARAARAARAARAARAAARARAAAOES

927

2R 2

926

928 002732 104400

929 002734

012777 000300

176054

002742 032777 000200 176054
931 002750 001010

932

933

002752

002756

004767

000005

002760 032777
935 002766 001001
936 002770 1 104000
937 002772 012777

007426

TEST26 TEST THAT DR11-B DOES NOT INTERRUPT WITH PROC AT 1])LEVEL 6
i

SCOPE

2321231322222 23223323312 231332333332 222 322333320232

MOV

#300, 3PSV

JSR

%7.CKSWR

BIT
BNE

RESET

BIT
000200 176036
BNE
HLT
MOV
P6INV:
176034
003046

#BIT?,3DRST
91

#8177 ,3DRST
R
#PGERR,QDRINV

:STATUS AT LEVEL 6

cuecx READY BIT
l IT SET?

sINIT TO SET READY

*SEE IF READY IS SET NOW
:IS READY §
*READY CAN'T BE SET BY INIT
;SET UP INT VECTOR

SEQ 0017

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

ggg
940
941

003000

942
943
gzg

003014
003022
003030
003034

96
947

003036
003044

948
949
950
951
952
953
954
955
956
957
958
959

003046
003050
003056

20-MAY-83
MOV

#340,a4126

MOV

#<1,3DRWC

8IS
MOV

0101 aonst

012737

000340

000126

012777
016777

177777
176022

176004
172000
175774

052777
012704
077401

000101
000012

042777
000405

000100

175760

000100

175746

022626
042777
104000

A iii i il il

CHGG2:

ITIME2: SOB

P6ERR:

k5:

000200

175670
177770
003222
000340

PSINV:

970
971
972
973
3;;

003150
003156
0031
003172
003176

012777
016777
052777
012704
077401

177777
175660
000101
000012

CHGG3:

976
977
978
979
980
981
982
983
984
985

003200
003
003214
003216
003
003222
003224
003232
003240
003242

042777
022767
001001
104000
1
022626
042777
022767
001401
104

000100
000006

990
991

992
993

INBUF,aDRBA

x«xfxnez

#B1T76,3DRST
X2

(X6)+,(%6)+
#B1T6,3DRST

SEQ 0018

sSET WORD COUNT TO -1

SSET?US S ADDRESS LOC
:SET 1.E . AND GO BITS

ALLOW 1 1760 AND 11/70 TIME TO INTERRUPT
:DR11-8 DIDN'T INTERRUPT = CLEAR IE
sRESTORE STACK
:CLEAR IE

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

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

032777
001001
10400
017767
042767
012777
012737

986
987
988
989

PAGE 19

21132233322 22222 2312222222222

003106
003114
003116
003120
003126
0031
003142

962
963
964
965
966
967
ggg

8IC
BR
CMP
8IC
HLT

:;ttt"Qtttt.i'tttt'tttQt"'tlttt'.'t..Q'.tt.tt"t.tt'.'tt.tfit'tt

003100

961

MOV

IRERANRRRNE

104400
012777
032777
001010
004767

960

15:09

MACY11 30(1046)

003060
003062
003070
003076
003104

000240
000200

SCOPE

ogxr? aDRST
P3INV

%7,CKSWR

007300

:GET SWITCH SETTINGS

ITIME3: SOB

1$:
PSERR:

#340,3#126

MOV

MOV
8IS
MOV

8IC
CMP
BNE
HLT
BR
CMP
8IC
CMP
BEQ
HLT

sINIT TO SET READY

asR, TEMP

#177770, TEMWP
il Ll

sCHECK READY BIT
;IS IT SET?

:SEE lF READY IS SET NOW
;IS IT SET?

#PSERR, 3DRINV

A di b

sSTATUS AT LEVEL 5

#8177 ,3DRST

IRRRRRRARAS

000100
000006

#240,aPSV

2223 iddddidiidddiiiiddidds

:RDY CAN'T BE SET BY INIT

s ISOLATE BR LEVEL

;SET UP INT VECTOR
sSET WORD COUNT TO -1

SET BUSS ADDRESS LOC

;SET I1.E. AND GO BITS

01, aonsr
#10.

*ALLOW 11760 AND 11/70 TIME TO INTERRUPT

#81T6,aDRST

:DR11-8 DIDN'T_INTERRUPT - CLEAR IE
aa LEVEL = 6 ?

%%, xfxnss

1g.YEHP

X3
(X6)+,(X6)+
#B176,3DRST

:g.TEHP

EVERYTHING Is oK

oail-e WITH BR= 6 SHOULD HAVE INTERRUPTED
sRESTORE STACK
sCLEAR IE
:BR LEVEL =62
:YES EVERYTHING IS OK

:DR17-B WITH BR NOT = 6 SHOULD NOT HAVE INTERRUPTED

3222223232 20222223222323 3233333333333 020222 ddtdiiidaiiiiilidl]

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

AA
CRORERS
RARAR
ARRARAERRRAARAR
ARAAA
R AR ARARRAAAARAAAAA
CARARRARAR

003244
003246

003254
003262

104400
012777

032777
001010

000200
000200

i5:

SCOPE

MOV

BIT
BNE

#200,aPSV

#81T7,3DRST
P4INV

sSTATUS AT LEVEL 4

CHECK READY BIT
;IS IT SET?

CZDRBHO DR11-B/DA11-B _NPR DIA

20-MAY-83 15:

CZDRBH.P11

007114
000200

175524

175564

175556

00000

CEEEE

004767

MACY11 30(1046) 20-MAY-83 15:09 PAG% 20

175506
000126

175456
175452
175446

P4LINV:

#8177 ,3DRST
4

BIC

#177770,TEMP

HLT
MOV

MOV
MOV

:'ltttlt'ii

CHGG4:

MOV
MOV
8IS

MOV

ITIMESG: SOB
CLR

X
RRRRRN
gee
R 0 SRS flO\nbwfi =3 OBNONEWN—O

;tttl.‘.ltt
b

18:

P4LINT:

175404
175440

S
r
&

d b

b e

) b

175472

asR, TEMP

#-1,3DRWC
INBUF , 3DRBA
#101,3DRST

;SET WORD COUNT TO =1
*SET BUSS ADDRESS LOC
:SET 1.E. AND GO BITS

#10..%4

2, 1TIMEG
aDRST

#126,3DRINV

CLR

aDRST

HLT

:ISOLATE BR LEVEL

;SET UP INT VECTOR

#4,TEMP

CMP
MOV
CMP
BNE

*READY CAN'T BE SET BY INIT
*GET SWITCH SETTINGS

#PLINT QDRINV
#340,3#126

CMP
BEQ
HLT

JMP

:INIT TO SET READY
*SEE IF READY IS SET NOW
;1S IT SET

(26)+, (26)+
#126,3DRINV
¥4, TEMP
X4

SALLOW 11760 AND 11/70 TIME TO INTERRUPT
;CLEAR IE

*RESTORE INTERRUPT VECTOR

*BR LEVEL = 4 ?
*YES, EVERYTHING IS OK
:DR11-8 DIDN'T INTERRUPT
;CLEAR IE

*REPOSITION THE STACK AFTER AN INTERRUPT
*RESTORE INTERRUPT VECTOR
:BR LEVEL = & ?
*NO, EVERYTHING IS OK

*DR11-B WITH BR = 4 SHOULD NOT HAVE INTERRUPTED

o D

MOV

175436

$7.CKSWR

JSR
RESET
BIT
BNE

::t'ttttt.tttt.tt'.ttttt't't't'tttttittt.t.t'ttt.t'ttt"..t"t.t'

S388 S

Xé:

003572
000340

175324
000126

P3INV:

177777
175312
000101

175274
175270
175264

CHGGS:

e
N

b
S

175326

SCOPE

MOV

BIT

175344

=
3

WhH=OO

175344

000200

BNE
JSR
RESET
BIT
BNE
HLT
MOV
MOV

:tttttttt.t

000020

175254

:STATUS AT LEVEL 3

P3INV
27.CKSWR

:IS IT SET?

#8177,aDRST
.4

*SEE IF READY IS SET NOW
:IS IT SET
“READY CAN'T BE SET BY INIT
;SET UP INT VECTOR

#P3INT,@DRINV
#340,3#126

;CHECK READY BIT

:INIT TO SET READY

:SET WORD COUNT TO =1
*SET BUSS ADDRESS LOC
*SET 1.E. AND GO BITS
TALLOW 11760 AND 11/70 TIME TO INTERRUPT

CLR
MOV

aDRST
#126,3DRINV

;CLEAR IE
*RESTORE INTERRUPT VECTOR

355

*DR11=B DIDN'T INTERRUPT

ITIMES: SOB
175252
000126
000126

#140,3PSW

#BITZ,aDRST

#-1,aDRWC
INBUF , aDRBA
#101,3DRST
#10. %4

MOV
MOV
BIS
MOV

:tttt"t.tt

Voo~

REERE

000140
000200

006716

8388
W

e
S

imielelelelele]

d wd =D md d d =D
D
D e md
D —d =D
—

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

::ttttttttt"t'tttttt.tt'tt.tti.t'tl.l'tlt.ttt!t.lt!tt...t.t'tttt

CLR

26, ITIMES

awn12é

*RESTORE TRAP CATCHER

SEQ 0019

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11
1050

20-MAY~-8315:04

003572

005077

MACY11 30(1046)

175226

1051 003576 022626
1052 003600 012777 000126 175226
}832 003606 005037 000126

P3INT:

20-MAY-83
CLR

CMP
MOV
CLR

15:09 PAGE 21

aDRS

(u) (36)+
#126,3DRINV
an 26

:CLEAR IE

umunwrmsuuanmanmmmwt
*RESTORE INTERRUPT VECTOR
*RESTORE TRAP CATCHER

1055
1056

33tttttQtttttt'ttttttttt'tttti'tt'ttttt't't.ttttt'ttttttttt.'!'tt

1058

3 ttttttttQttttttltQttt't"tttttttttt'fi.ttt.ttttt"'.'ttt.tt'tiQQ

1057

1059 003612 104400

i6:

1060
1061

003614 005077
003620 032777

175204
000016

175176

1065
1066
1067

003640
003646
003650

001000

175156

1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087

1088

003652
003660
003662
003664
003670
003676
003704
003706
003710
003716
003720
003722
003726
003734
003742
003744
003746
00375¢
003756
003760

032777
001001
104000

032777
001401
104000
005077
052777
032777
001001
104000
032777
001401
104000
005077
052777
032777
001001
104000
032777
001401
104000
005077

006000 175144
175134
000004 175126
002000 175120
005000 175106
175076
175070
004000 175062
000010

003000 175050
175040
:

1089

10%

1091

1092
1093

1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1106
1105

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

SCOPE

CLR
BIT

aDRST
#16,3DRST

:CLEAR FUNCTION BITS
:CHECK FUNCTION BITS

BIT
BNE
HLT

#8179,3DRST
YA

*CHECK DSTAT C
SIS IT SET?
:DSTAT C IS CLEAR

BEQ
HLT
BIS

1062 003626 001401
1063 003630 104000
1064 003632 052777 000002 175164

e
#81T1,aDRST

:FUNCTION BITS CLEAR?
*FUNCTION BITS NOT CLEAR
*SET FNCT1

SCHECK THAT DSTAT A AND DSTAT B ARE CLEAR
#6000,aDRST
BIT
BEQ
.+
SARE THEY CLEAR?
:DSTAT A AND/OR DSTAT B IS SET
HLT
:CLEAR DRST
aDRST
CLR
*SET FNCT2
#81T2,aDRST
BIS
BIT
#8IT10,3DRST
:CHECK DSTAT B
:IS IT SET?
e
BNE
HLT
:DSTAT B IS CLEAR
SCHECK THAT DSTAT A AND DSTAT C ARE CLEAR
osooo.aoast
BIT
*ARE THEY CLEAR?
46
BEQ
:DSTAT A AND/OR DSTAT B IS SET
HLT
:CLEAR DRST
aDRS
CLR
BIS
oaxrs aDRST
*SET FNCT3
:CHECK DSTAT A
cexr1i.aonsr
BIT
:IS IT SET?
o+
BNE
:DSTATA IS CLEAR
HLT
SCHECK THAT DSTAT B AND DSTAT C ARE CLEAR
#3000,aDRST
BIT
BEQ
e
sARE THEY CLEAR
:DSTAT B AND/OR DStAT C IS SET
HLT
CLR
aDRST
:CLR DRST
tttttttttt.tttttttttt'tttttttttttt.tt'tt.ttttttttt'tttttttt'ttt
TEST 33 TEST FOR 1 DATI NPR TRANSFER (WITH M968 IN USER SLOTS)

;:t.tttttttttttttttttttt'ttttt.ttttttttt.ttQttttt.'ttttttttttt.lt

003764

003766
003772

003774
004002
004004
004006
004014
004016
004024
004032
004034
004036
004042
004046

104400

005777
100027

032777
001401
104000
032777
001410
042777
032777
001401
104000
005077
005777
001401

TNPR1:

175032

020000 175022

040000 175010
040000

175000

040000 174772
174760

174756

N1413:

SEQ 0020

SCOPE

TST
BPL

BIT
BEQ
HLT
BIT
BEQ
BIC
BIT
BEQ
HLT
CLR
ST
BEQ

aDRST
NPRRDY

#BIT13,3DRST
YA

#8IT14,30RST
N1412
mm aDRST
#8IT14.3DRST
e
aDRBA

aDRST
Y

;CHECK ERROR BIT
*IS IT CLEAR?

:CHECK ATTN
:IS ATTN CLEAR
SATIN IS SET
cuecx uex
:IS
NEX CLEAR?
:TRY to CLEAR NEX
:CHECK AGAIN
SNEX STILL SET
SNEX CAN'T BE CLEARED BY MOVING A 0 TO IT
sTRY TO CLEAR BAOF
SCHECK ERROR BIT AGAIN
:IS IT CLEAR

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20=-MAY-8315:04

1106 004050 10&009

1107
1108
1109
1110
1111
1112
1113
1114
1115

004052
004060
004063
004072
004100
004106
004114
004120
004126

012777
012777
005077
012767
012777
012777
005077
012777
005067

1118

004140

104000

1116
1117

1119
1120

004132
004136

005227
001375

004142
004144

000424
004767

1123

004156

104000

1125

004166

001401

004200
004202
004204
004210

001401
104000
004767
022626

177777
001036
174734
052525
004144
000005
174676
000101
000002
000001

MACY11 30(1046)

HLT

174740 NPRRDY: MOV
MOV
174734
CLR
MOV
174736
MOV
174726
MOV
174714
CLR
MOV
174676
CLR
1$:

1128
1129
1130
1131

1132

1133
1134

1135

004160
004170
004172

004212

INTB:

003204

004214
004220

022777 001040 174634
104000
022777 052525 174626
000403

005077
000662

1138

1139

1140
1141
1142
1143
1144
1145
1146
1147
1148
1149

1150
1151
1152
1153

1154

1155
1156
1157
}}gg
1160

004222

004232
004240
004244
004252
004260
004266
004272
004300
004304
004310

104400

012777

174604

012777
005067
012777
012777
016777
005077
012777
005067

005227
001375

177777

001036
174572
052525
004316
174546
174524
000103
000002

T33CLR: CLR
BR

174566

004330
004332
00636g
004342

104000
022777 001040 174462
001401
104000

004344

026727

004326 001401

1161 004352 001401

INTC:

003032
174472

174466

tNPRO

1$:

004316
004322

052525

#-1,3DRUC
0NPR1.30RBA
aDRDg
#52525 ,NPR1
#INTB,aDRINV
0s.aokvs
aPSW
#101,3DRST
1842
n
18

T33CLR
%7 ,ERRCHK

aDRW(C
R

#NPR1+2,3DRBA

:SET UP FOR1 TRANSFER
TRANSFER FROM BUS ADDRESS IN NPR1
GET READY TO:RECEIVE DATA
SET UP TRANSFER DATA
INYERRUPT VECTOR TO INTB
INTERRUPt PRIORITY TO LEVEL 5
LET THE DR11-8 IRIERRUPt
IE AND DO TO DRST
UA!T FOR NPR AND INTERRUPT
:NO DR11-8B INTERRUPT
sCLEAR IE

sTEST DRWC
IS DRWC EQUAL TO ZERO?

DWC NOT EQUAL TO ZERO

#52525,3DRDB

COHPARE CORRECT DRBA WITH DRBA
DRBA IS WRONG
.CHECK FOR CORRECT DATA

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

JRESTORE STACK

TNPRO

aDRST
TNPR1

xs THE DRBA CORRECT?

:DATA GET TRANSFERRED?
:BAD DATA IN DRDB

.GO TO NEXT TEST (NPR OUT)
sCLEAR IE
sTRY TEST AGAIN

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

MOV

MOV
CLR
MOV
MOV
MOV
CLR
MOV
CLR
INC
BNE

HLT
BR
JSR
TST

BEQ

#-1,3DRWC

SET UP FOR 1 TRANSFER

#NPR1,3DRBA
NPR1
#52525,3DRDB
#INTC ,aDRINV
DRINL ,aDRVS
aPSW

°TRANSFER TO BUS ADDRESS IN NPR1
:GET READY TO RECEIVE DATA
SET UP TO TRANSFER DATA
INTERRUPT VECTOR TO INTC
INTERRUPI STATUS TO LEVEL DRINL
PROC STATUS TO ZERO

1842

HAI FOR NPR AND INTER

#103,3DRST
#£1
1%

T34CLR
%7 ,ERRCHK
aDRW(

:1E, FNCT1(C1 CONTROL), AND DO TO DRST
:NO DR11-B INTERRUPT
JCLEAR IE
sTEST DRWC

IS DRW(C EOUAL T0 ZERO?

HLT
CMP
BEQ
HLT

#NPR1+2,3DRBA
R

DRUC EQUAL TO ZERO
COHPARE CORRECT DRBA WITH DRBA
xs THE DRBA CORRECT?
DRBA IS WRONG

CMP

NPR1,#52525

:CHECK FOR CORRECT DATA

BEQ

SEQ 0021

sERROR CAUSED BY SOMETHING OTHER THAN NEX,ATTN, OR BAOF

JRARAARARRARRAAAAARARAERAAARAAAAAAAAANACAANARRAARANCAANCCCRORNAS

174524

000001

15:09 PAGE 22

ttntt"ttt"tnntnt"t"t"ntt"ntu"n"nnnnntnnt

174562
174554
174554
174542

104000
000424
004767
005777

004312
004314

TST
BEQ
HLT
CMP
BEQ
HLT
CMP
BR

:
004224

BR
JSR

BEQ
HLT
JSR
CMP

003054

1136

1137

INC
BNE

HLT

1121 004150 005777 174644
1122 004156 001401
1126
1126
1127

20-MAY-83

CORRECT DATA TRANSFERRED?

CZORBHO DR11-B/DA11-8 NPR DIA

CZDRBH.P11
1162
1163

20=-MAY=-83 15:04

0043546
ool.ggg

104000
004767

022626
1164 004
1165 004364 000403
1166 004366 005077
ug; 004372 000713

MACY11 30(1046)

20-MAY-83
HLT
JSR

002702

CMP
BR
T34CLR: CLR
BR

174432

15:09 PAGE 23

%7 .NORMAL

(36)+,(26)+
135
aDRST
TNPRO

SEQ 0022

:BAD DATA

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

..tttttttttttt"ttt'ltt.ttttitttttt'..Qttttttttt..t.tt.tt'tt'tt't

1169

1170
1171

1172 004374

1173 004376
1174 004406
1175 004410
1176 004414
1177 004422
1178 004426
1179 0044346
1180 004442
1181 004450
1182 004456
1183 004464
1184 004470
1185 004476
1186 004500
1187 004506
“gg 004510

104400

012767
004767
006267
016767
005467
016777
016777
012777
012777
016777
005077
012777
000777
022777
001401
104000

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

000020
002416
174432
174426
174426
174422
174402
177777
007130
174350
174326
000101
000007

174442

iSs

174432
174364
174360
174356
174356
174344
174326
174320

SCOPE

MOV
JSR
ASR
MOV
NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV
BR
CMP
BEQ
HLT

czo sunsn
ODBUF
sur EN
BUFLEN,WCLEN
WCLEN
WCLEN, 3DRWC
INBUF,aDRBA
#-1,aDRDB
#INTA,SDRINV
onm.aDRVS
no1.aonsr
»
#7.3DRDB
Y

;LENGTH OF BUFFER=20
*LOAD THE BUFFER WITH INCREMENTING PATTERN
:BUFLEN=10
:PREPARE NUMBER FOR DRWC
:2'S COMPLEMENT OF BUFLEN
ser UP DRWC
:SET UP DRBA
*MAINT AIDE
:INT VECTOR TO INT
*INT VECTOR TO monm DRINL
:LET THE DR11-8 INTERRUPT
SIE AND DO TO DRST
:WAIT FOR INTERRUPT
cuecx THAT WORD #10 OF INBUF IS IN DRBA
;IS IT?

w DATA IN DRDB

1190

;;tt.tttt.tt'ttttt'.ttttt't.ttttttttti'..tttttt'lttttt'.tt'tt"tt

1192

t'tttttttttttttttttttt'.ttt.t‘ttttttt.'ttttt'ttttttttt.t.ltttt'

1191

1193

004512

104400

1195

004522 004767 002300

1198
1199
1200
1201
1202
1203
1204
1205
1206
}%

004540
004546
004552
004560
004566
004576
004602
606
004614
004616

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

1194 004514 012767 000020 174324

MOV

NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV
B8R
JSR

JSR

1196 004526 006267 174314
1197 004532 016767 174310 174314
005467
016777
016777
012777
012777
016777
005077
012777
000777
004767

174310
174304
174264
052525
007130
174232
174210
000103
002464

174246
174262
174240
174240
174226
174210

1209

;

1210

1211

1212

ASR
MOV

004622

104400

#20,BUFLEN

sLENGTH OF BUFFER=20

WCLEN
WCLEN,DRWC
INBUF ;3DRBA
#52525,3DRDB
#INTA,3DRINV
DRINL ,@DRVS
aPsw
#103,3DRST
.
£7.DATOCK

:2'S COMPLEMENT OF BUFLEN
:SET UP DRWC
:SET UP DRBA
:SET UP DRDB
:INTERRUPT VECTOR TO INTA
*INTERRUPT VECTOR TO PRIORITY DRINL
:LET THE DR11-B INTERRUPT
*IE. FNCT1(C1 CONTROL), AND DO TO DRST
:WAIT FOR INTERRUPT
$CHECK INBUF

7. LODBUF

BUFLEN
BUFLEN,WCLEN

LOAD THE BUFFER WITH INCREMENTING PATTERN

surwmo
:PREPARE NUMBER FORDRWC

tttttttttttttttttttlt'ttt'tttttt.tt"ttt.ttltt.tt.t.ttt"t'tttt

TEST 37 STRING OF 200 DATI'S

tttttttt'tttttttttt.tt'i'tittt.ttttttttttt.ttlfitt.t.lt!t'tt.'tt

SCOPE

1213 004624 012767 000200 174214

MOV

o;oo BUFLEN

LENGm OF BUFFER=200

1217 004650 016777 174200 174142

MOV

WCLEN, 3DRWC

*SET UP DRWC

1214 004632 004767 002170
004636 016767 174204
1215
1216 004644 005467 174204

174210

JSR
MOV
NEG

LODBUF
WCLEN
auhsn
WCLEN

BUFFER WITH xucnsnsmme PATTERN

AD THE
NUMBER FOR DRW
pnems
:2'S COMPLEMENT OF aun.sn

lUN%zhqzquflqzNHURUN”UNMUNMUAMUNJ
h”UNflUhMUhMUfiWfla=
SYENRURZE
BV
A TN =S o
N

004656
004
882672

016777
012777
012777

174160
177777
007130

MACY11 30(1046)

20-MAY-83

174136

MOV

174134
174134
174122

)

176076

D e

HLT

15:09

PAGE 24

1usur aoaeA

#-1,aDRDB
oxniAaDRINV
onqu aDRVS
aPSW
#101,3DRST
’
c1z7.aonos
-

:SET UP DRBA

SMAINT AIDE
;INT VECTOR TO INT
:INT VECTOR TO PRIORITV DRINL
:LET THE DR11-8 INTERRUPT
:IE AND DO TO DRST

SWAIT FOR INTERRUPT
cgeg; THAT WORD #200 OF INBUF IS IN DRBA
*BAD DATA IN DRDB

::t.ttltt.tttttt.tfitttttQ'ttt.t.tttttt..ttttttt...t""t'lt't.'.'

) wd

) D
D e
e

005002

012777

052525

TEST 40 STRING OR 200 DATO'S

ttttQtttttttttt.tttttttt't.ttttttttttttt.ttttt.t'ttt.t'ttt.'.Qt

SCOPE

174102

) e
—d

MOV
MOV
MOV
CLR
MOV
BR
gg:

174104

) D

) D -

—

CZDRBHO DR11-B/DA11-B _NPR DIA
20-MAY=83 15:04
CZDRBH.P1

MOV
JSR

#201,BUFLEN
%7.LODBUF

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

JSR

£7.DATOCK

$CHECK INBUF

DEC
MOV
NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV
BR

174072
174024
174020
174016
174016
174004
173766

BUFLEN
*BUFLEN=200
:PREPARE NUMBER FOR DRWC
BUFLEN,WCLEN
:2'S COMPLEMENT OF BUFLEN
WCLEN
WCLEN, @DRWC
*SET UP DRWC
INBUF ,aDRBA
:SET UP DRBA
#52525,3DRDB
:SET UP DRDB
#INTA,3DRINV : INTERRUPT VECTOR TO INTA
:INTERRUPT VECTOR TO PRIORITY DRINL
DRINL ,@DRVS
SLET THE DR11-8 INTERRUPT
aPsw
*IE, FNCT1, AND DO TO DRST
#103,3DRST
FOR INTERRUPT
:WAIT
;

::tttt.tttttttttt.ttttttit't't.tlttfi"I.Qtttt....t..tt'ttttttt"t

173744

1257

005110

082535

177560

1259
1260

005116
005126

042777
005777

000100
173674
173664

005144

03%77{

173740
173744
173732
173714

SCOPE

MOV

MOV
MOV
MOV
CLR
MOV
INC
HLT
173700 NEXCHK: BIC
ST
BNE
HLT

TSTB

040000

173652

040000

173640

002072

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

tt't'ttttttt*tlt.t.ttti"tttt't.’ttt.‘lit"t'tttttttt'.tttlt'tt

BNE
HLT
BIT
BNE
HLT
BIC
Sg:

#-2,aDRWC

sSET UP DRWC

DIOMEM,3DRBA
:SET
UP DRBA
ANEXCHK ,@DRINV : INTERRUPT VECTOR TO NEXCHK
oax~L.aoavs
: INTERRUPT STATUS TO LEVEL DRINL
*LET THE DR11-B INTERRUPT
0163 aDRST
SIE. FNCT1, XBA17, XBA16, AND GO TO DRST
*WAIT FOR INTERRUPT
177560
*NO DR11-B INTERRUPT
#81T6,3DRST
*CLEAR INTERRUPT ENABLE
STEST DRST
aDRST
*ERROR SET?
.+
*ERROR NOT SET
STEST FOR READY
aDRST
*READY SET?
.+
SREADY ISN'T SET
;CHECK NEX
#BIT14,30RST
SET?
*NEX
4
*NEX IS CLEAR
aaxr14 aDRST
:CLEAR NEX
*RESTORE THE STACK
;6)0 ’f ‘

:;tttttt'.'tlttttt.tt.t'."'ttt.ttt't.tt'tttt.'.'t'tt.l.ttt.tt"'

SEQ 0023

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY=83 15:04

MACY11 30(1046)

1275

1276

1277

1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292

005172

005174
005202
005210
005216
005226
005232
005236
005244
005250
005252
005260
005262
005266
005270
005272

104400

012767
012777
012777
012777
016777
005077
012777
005237
104000
042777
022626
005777
100401

104000
105777

A BAOF AND DOES NOT FORCE AN ERROR
SCOPE

MOV
MOV
MOV
MOV
MOV
CLR
MOV
INC
HLT
173544 BAOFCK: BIC
CMP
TST
173536
8MI

#10, 1COUNT
0-26 aDRWC
2., 8DRBA
morcx.aomnv
onmabRVS
aPsW
#163,30RST
177560
#B1T6,3DRST
(56)+.(%6)+
aDRST
44

173526

@DRST

*ERROR NOT SET
*TEST FOR READY

#60000.3DRST

;CHECK

000010
177760
177776
005252
173602
173560
000163
177560
000100

005160
173610
173604
173610
173576
173560

HLT
TSTB

BMI
HLT
BIC

1297
1298
1299
1300
1301

BEQ
HLT
TST
BPL
HLT

005310

005316
005320
005322
005326
005330

032777

060000

001401
104000
005777 173476
100001
104000

BIT

173506

CLR

}338‘5 005332 005077 173464
1304
1305

005336
005342

004767
000005

ttttttttttttttt.ttttttt"tttttttttttttttttttttttQttt.tt.ttttt't

1293 005276 100401
1294 005300 104000
1295 005302 042777 040000 173514
1296

15:09 PAGE 25

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

1274

20-MAY-83

JSR
RESET

005042

JSR

}% 005344 004767 001714

Y
#BIT14,30RST
.+
aDRST

.+
aDRBA
%7.CKSWR

7. NORMAL

:SET UP DRWC
:SET UP DRBA FOR paoc STATUS ADDRESS
*INTERRUPT VECTORTO BAOFCK
INTERRUPT
STATUS;n
ro LEVEL
UPT DRINL
THE DR11-B
SLET
:IE, FNCT1, XBA1 xam. AND GO TO DRST
‘WAIT FOR INTERRUPT
:NO DR11-8 INTERRUPT

“CLEAR INTERRUPT ENABLE
*RESTORE THE STACK

STEST DRST
*ERROR SET?

*READY SET?
*READY ISN'T SET
;CLEAR NEX
NEX AND ATTN
*ARE THEY CLEAR?
TEST FOR ERROR
*1S ERROR CLEAR?
*ERROR IS SET

*NEX AND/OR ATTN IS SET

:CLEAR BUS ADDRESS REGISTER
JINIT

1308

23 (2323133123223 22322223222222328322223%3333323121311313333333333333323223233}

1310
1311

33 (2233232333222 222333222282333333332333331231333331333333333333323143;
SCOPE

1309

005350

104400

005372

004767
000005

1312 005352 012767 000010 005002
1313 005360 012777 177777 173440
1314
1315

005012

TEST 44 TEST THAT RESET CLEARS DRDB

MOV
MOV

no ICOUNT
#-1.3DRDB

;ALL ONES TO DRBA

ST
BEOQ
HLT

aDRDB
L+

*LOOKING FOR 2-BIT TO SET
“DID DRDB GET CLEARED?
:DRDB NOT CLEAR

JSR
RESET

1316 005374 005777 173426
1317 005400 001401
}g}g 005402 104000

27.CKSWR

JINIT

1320

.X 22232322 22222332222222233332333233233233333131333333333333343333334333}

1322

::ttttttttttt'tlttttttttttttll.ttttt.'tt.ttttttt'ltfitt'lit...tt.t

1321

1323

005404

104400

1324 005406 012767 004000 004746
1325 005414 012777 177777 173404
1326 005422 022777 177777 173376
1327
}ggg

005430
005432

001401
104000

TEST 45 TEST THAT ALL DRDB BITS CAN BE SET

SCOPE

MOV
MOV
CMP
BEQ
HLT

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

;SET ALL ans IN DRDB
.LOOKING FOR Z-BIT TO SET

*SEE IF ALL BITS GOT SET
*ALL DRDB BITS AREN'T SET

SEQ 0024

CZORBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20~-MAY-83 15:04

MACY11 30(1046)

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

1331

1333

SEQ 0025

':tt't'tt.'i....ttitil'."QQ‘..ti.'l.'t.t'tt..'..t!tt".tfittti"'

1332

15:09 PAGE 26

20-MAY-83

0054346

AORAS
ARC
RARORACANRNR
RRAER
RARATANEACAC
RAARA
R CACERAARACAA
IIANEARARA

1044

SCOPE

052525 173362
133, 005436 012
052525 173354
022777
005444
1335

MOV
CMP

#052525,3DRDB
#052525.30RDB

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

1337

005454

HLT

13420
}332;

005472
005474

#125252,3DRDB
#125252.30RDB

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

1336 005452

BEQ

001401

104000

MOV
CMP

1338 005456 012777 125252 173342
1339 005464 022777 125252 173334
001401
104000

BEQ
HLT

:DOES DRDB HAVE THE CORRECT PATTERN?
*DRDB IS WRONG

:DOES DRDB HAVE THE CORRECT PATTERN
:DRDB IS WRONG

1343

;;tttttttttttttttttttttttttttttttttttttttttttttQtt'tttttttttttt't

1345

1344

1346
1347

005476
005500

104400
005067

1349
1350
1351
1352
1353
1354
ggg

005506
005512
005516
005520
005522
005526
005530

005077 173314
020177 173310
001401
104000
005277 173300
005201
001370

1348

005504

005001

004656

INCDB:

SCOPE
CLR

CLR
CMP
BEQ
HLT
INC
INC
BNE

e s e

ICOUNT

aDRDB
%1,aDRDB
e
aDRDB
]
INCDB

L Lttt

A At L

il il

:SET=UP

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

JINARRARARAARRAARAARARRCCRRNRARRAAAAAANAAAAAAARRARAARARCARCARORES

TEST SO TEST THAT RESET SETS READY AND CLEARS ALL OTHER

1358

DRST BITS (WITH M968 INSERTED)

1359
1361

e e e

CLR

1357

1360

TEST 47 INCREMENTING PATTERN TO WRAP-AROUND IN DRDB

005532

104400

:;ttttt'tltttttttttttttttt'ttfitttttttttttttQttt..tttttttttt'tttit

1362
1363

005534
005540

004767
000005

004644

1366
1367

005552
005554

104000
032777

177577

SCOPE

JSR
RESET

BIT
BNE

1364 005542 032777 000200 173254
1365 005550 001001
1368 005562 001401
}g% 005564 104000

HLT
BIT

173242

BEQ
HLT

%7.CKSWR

#8177,3DRST
YA
#177577 ,aDRST

JINIT

*CHECK DRST
:IS READY SET?

*READY IS CLEAR
:CHECK DRST
*ARE THEY ALL CLEAR?

‘A BIT OTHER THAN READY IS SET IN THE DRST

1371

:;tttttt.tttttttttttttttt'ttttttttfittt'ttttt.tttttttttttttttt'ttt

1373

JINARARRARAARAARRRRRRRLARENRAARANAEARAARRRACRARARRCARARCARARRNOANSE

1372
1374

1375

005566

005570

104400

012767

004000

1376 005576 032777 000001
1377

g;s

005604

005606

001401

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

MOV

004564

BIT

173216

BEQ

HLT

104000

#4000, 1COUNT

#81T70,3DRBA
4

:TEST BIT 0 OF DRBA

:1S IT CLEAR?

*BA0O 1S SET

1382

138

;;ttttttttttttttttttt.'tttttttttttttttttttttttt.ttttttttttt.'tttt

1384

;:.ttttttttttttttttttttttttttttttttttttttittt'ttt'ttttttttt.ttttt

1383
1385

005610

104400

TEST 52 TEST THAT GO CLEARS READY

SCOPE

CZDRBHO DR11-B/DA11=B NPR DIA

CZDRBH.P11
1386

1387
1388
1389
1390
1391
1392
1393
13964
1395
1396
1397
1398
1399
1400
1401
1402
1403

1404

20-MAY-83 15:04

005612

005620
005626
005634
005640
005642
005644
005652
005656
005660
005662
005666
005672
005674
005702
005704
005706
005710

012767

012777
016777
105777
100401
104000
012777
105777
100001
104000
005067
105777
100406
062767
100401
000770
104000
000240

004000

MACY11 30(1046)

20-MAY-83

004542

MOV

MOV
MoV
1STB
BMI
HLT
MOV
000011 173152
1STB
173146
8PL
HLT
173170
CLR
TSTRDY: TSTB
172132
BMI
ADD
000004 173154
BMI
BR
HLT
DONE NOP
177600 173172
173210 173166
173164

1410
1411

1412
1413
16414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424

1425
16426
1427
1428

005712

005714
005722

005730
005736
005744
005750
005756
005762
005764
005770
005772
005774
006002
006006
006014

006022
006026
006032
006036

006046

104400

012777
016777

012777
012777
005077
012777
005277
104000
005777
100401
104000
012777
005077
042777
012777

005277
005067

005227
001375

104000
162706

005777

006062

004767

1438

1439
1440

1441

#-200,30RWC
INBUF ,aDRBA
aDRST
ot
#11,3DRST

aDRST
.t

RDYCHK
aDRST
DONE
#4 ,RDYCHK
Ry
TSTRDY

sSET=UP DRWC

sSET=UP DRBA

:CHECK READY
:IS READY SET?
READV IS CLEAR
FNCT3 (NON-BURST) AND GO TO DRST
CHECK READY
;IS READY CLEAR?
:READY IS STILL SET
;CLEAR READY CHECK
:CHECK_READY
:IF SET GO _TO DONE
:CHECKING TIME FOR READY TO BE SET
:IF RDYCHK GETS NEGATIVE IT TOOK TOO LONG
:CHECKAGAIN
sREADY GOT CLEARED BUT NEVER SET AGAIN
:G0 TO NEXT TEST

ttttttttttttttt.ttttttttttttttt'ttt!tttttttttttttt.ttttt

177760
173112

005764 173076
000140 173064
173046
000163 173046
173076
173034
ERRDO:
.
006046 173032
173014
000062 173010
177777 172776
172776
000002
000001

1$:

104400

MOV
MOV

MOV
MOV
CLR
MoV
INC
HLT

TST
BMI
HLT
MOV
CLR
BIC
MOV
INC
CLR
INC
BNE

HLT
suB

000004

ERRDO1: TST

172752

BMI

HLT

ADD

JSR

001176

=
006066

SCOPE

173076
173072

1432 006052 100401
1433 006054 104000
16434
1435 006056 062706 000010
}2;9

#4000, ICOUNT

FOR THIS TEST, THE NORMAL INTERRUPT MECHANISM SHOULD BE WORKING
ttttttt

1429 006040
1430 006042
1431

PAGE 27

sTEST 55 TEST THAT GIVING A DO WITHOUT CLEARING A PREVIOUS ERROR
*CAUSES ANOTHER INTERRUPT

1407

1409

ttttttttttttttttttttttttttttttttttttitttttttttt'ttttttttttttttt

1405
1406

1408

15:09

#-20,3DRWCDIOMEM,3DRBA

sSET=UP DRWC
;SET-UP DRBA

#ERRDO.@DRINV ; INTERRUPT VECTOR TO ERRDO
:INTERRUPT STATUS TO LEVEL &
#140,3DRVS
aPsSv
LET THE DR11-B INTERRUPT
:1E, XBA17,XBA16,FNCT1 AND GO TO DRST
#163,3DRST
HAIT FOR INTERUPT
aTks

aDRST
R
#ERRDO1,3DRINV
aDRBA
#62,aDRST
#-1,3DRWC
aDRST
1842
#1
1%

#6,%6
aDRST

#10,%6

%7 ,NORMAL

:NO DR11-8 INTERRUPT

:TEST DRST
:ERROR SET?
:ERROR IS CLEAR = SHOULD HAVE NEX
; INTERRUPT VECTOR TO ERRDO1
:PREVENT CAUSING ANOTHER ERROR
;CLEAR XBA17, XBA16, AND FNCT1
:SET=UP DRWC
;D0 TO DRST

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

:ERROR SET?
*ERROR IS CLEAR = SHOULD BE SET BECAUSE
:PREVIOUS ERROR WAS NOT CLEARED
;REPOSITION THE STACK

utnttttuu"tt"ntt"nttttttnttttttntttttttttntntnt"

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

RRS
IRERRRCRRAARRNRA
ARARR
ARARRRARECAREAR
RAEAR
AR AR
JIRRARRRRR

SCOPE

SE? 0026

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

~
~

pry

FIFRENREERNR o

S bbb bbb bbb

012767
004
016767

g
-

70
00607
00610

MOV

c;oo BUFLEN

172744
172676
172672
172670
172670
172656
172640

MOV
NEG
MOV
MOV
MOV
MOV
MOV
CLR
MOV
INC

BUFLEN,WCLEN
WCLEN
WCLEN, @DRWC
INBUF ,aDRBA
#-1,3DRDB
#INTA,3DRINV
DRINL ,@DRVS
aPsW
#111,3DRST
BRWAIT

:PREPARE NUMBER FOR DRWC
:2'S COMPLEMENT OF BUFLEN
:SET=UP DRWC
:SET=UP DRBA
*MAINT AIDE
:INT VECTOR TO INTA
“INT VECTOR TO PRIORITY DRINL
SLET THE DR11-8 INTERRUPT
*IE, FNCT3, AND DO TO DRST
*USE A WAIT OR BR. INSTRUCTION

44
#177.,3DRDB

;CHECK THAT WORD #200 OF INBUF IS IN DRBA

JSR

8IT
BEQ
WAIT
NOP

B8R
DATINB: BR
CMP
172610
BEQ
HLT

D d

000177

d d D

&»

\Y]
N

b md
b

YISV P

o
~

o
N

SE3Y

S
SNZEBNJU““\N

#BITO,BRWAIT
DATINS

:LOAD THE BUFFER WITH INCREMENTING PATTERN

;SEE WHICH ONE
:BIT 0 CLEAR=BR.
‘WAIT FOR INTERRUP

:IS IT?
*BAD DATA IN DRDB

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

::t'Qtttttt.ttttfitfitt.QQQ"Qttttt'tQt'..tt.Qt.ttt'lt'titt.tt't"t

SCOPE

172614

MOV

#201,BUFLEN

;LENGTH OF BUFFER=201

172604

172536

DEC
MOV
NEG

MOV

BUFLEN
BUFLEN.WCLEN
WCLEN

:BUFLEN=200
:PREPARE NUMBER FOR DRWC
12'S COMPLEMENT OF BUFLEN

172532

MOV

1usgr aDRBA

;SET UP DRBA

172530
172516

MOV
MOV
CLR
MOV

#INTA.SDRINV
DRINL .@DRVS
aPsW
#113,3DRST

:INTERKUPT VECTOR TO INTA
* INTERRUPT VECTOR TO PRIORITY DRINL
*LET THE DR11-B INTERRUPT
*IE, FNCT3,
FNCT1, AND DO TO DRST

JSR

%7,L0DBUF

::ttt't.tttt"tit.QQQQ"'"Q.'tttQt.'t.ttttt't.t..tttQ'ttt."'.tt

b e
bb
-

;LENGTH OF BUFFER=200

172750

172654

D d e md

b e

cd e

144
1464

S eeessaeas

£8
v Vi
e
53533538584 &&
S ounawuarac»oa;
wewn
JFJFJ5J~J‘i:$%E
W& v 28388 el ‘USkflEQU“U-‘CNOC'*i

C ZDRBHO DR11-B/DA11-B_NPR DIA
20~-MAY-83 15:
C ZDRBH.P11

172530

MOV

172500

INC
BIT
BEQ

172514

WAIT

%7.,L0DBUF

WCLEN, aDRWC

#52525,3DRDB

BRWAIT
#B1T0,BRWAIT
DATONS

*LOAD THE BUFFER WITH INCREMENTING PATTERN
:SET UP DRWC

:SET L DRDB

*USE A WAIT OR BR. INSTRUCTION
:BIT 0 CLEAR=BR.

:WAIT FOR INTERRUPT

NOP

BR
DATONS: BR

JSR

000732

.44
-

£7.DATOCK

;CHECK INBUF

;;ttt't'ttt.ttttt't.ttttt"t'fittt'tttt.ttttQt'tt.ttlttt.it't'.t'.

;

TEST 60 TEST THAT FUNCTION BITS INCREMENT WITH MAINT MODE TRANSFERS

;:.'t'i.tttt..'t.Qt'itttt".'t.tlQttI't....Q..ttttt.'.ttt...fit.'.

000010

172462

SCOPE

MOV

#10,BUFLEN

;SET=UP BUFLEN FOR LODBUF AND CHKBUFF

SEQ 0027

CZDRBHO DR11-B/DA11-B_NPR D
CZDRBH.P11
20~MAY-83 15

172430

012767

172458
3
62
172416
000001
000001

016767
012777

172414
007130

172442
172376

005
012777
052777

172370
17;346
177777
010101

172364

D d e

D e

e
e2‘0m-«>~nawuu»ucfl3§3
A
A
A
332
EY I LL I TN StvivieivivivivLETBNERRUN=

1498
1499
1500
1501
1502
1503
1504

D e e

d d e

000001
000240
117701
042701

226701
06 001401

104000

005267
022767
001404
062767
000735
012767
016767
004767

W=
O

b e

b d b e

D cnd b

ViV vivaviviviawg

vivwnawnwn
Vi

t
29
gAGE
15:09
MACY11 30(1046) 20-MAY-83

172454
172424

@0RST
#1,FNCCNT
#1,BUFLEN

sSET=UP DRBA
sLOAD INBUF
sLOAD CHKBUF
sINIT FOR STARTING
sGET READY FOR CHECKING
sCHANGE IS NECESSARY FOR INTA ROUTINE

1
F
, INBUF
INBU

:SAVE INBUF

#INTA,3DRINV

MFLOOP:

DRINL ,@DRVS
aPsw
#-1,3DRWC

178348

aDRST, X1

sWAIT FOR INTERRUPT
sFAKE=OUT RETURN ADDRESS CHANGING
sLOWER BYTE OF DRST TO R1

172362

X1
FNCCNT,
o+

172352
000010

172344

000002

172306

000007

172302
172270

FNCCNT
#10,FNCCNT
MF CHK
#2, INBUF
MF LOOP
#7 .BUFLEN

172322
000446

s INTERRUPT VECTOR PRIORITY TO DRINL

#10101,30RST

:?oo.h

MFCHK:

s INTERRUPT VECTOR TO INTA
sLET THE DR11-8B INTERRUPT
:SET=UP FOR 1 TRANSFER
sMAINT, IE, AND DO TO DRST

172330
000600

INBUF
1, UF
INB
%7 .DATCHK

SEQ 0028

sGET RID OF READY AND CYCLE BECAUSE OF MAINT MODE
sMOVE IT RIGHT ONE PLACE
sCHECK AGAINST FNCCNT
sSHOULD BE EQUAL

sFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE

sGET READY FOR NEXT PASS

sONLY 10 BECAUSE FNCT3-1 GO TO ZERO
sIF ITS EQUAL GO CHECK DATA
sFAKE=0UT INTA ROUTINE
sD0 _IT AGAIN

sSET UP FOR DATCHK (10 FNCT CHECKS, 7 TRANSFERS
sRESTORE INBUF
sCHECK DATA

::ttt'tittttttttQ..tt'tt"'t."'.it.iQi..tt'tt.'.tt.t..tt"t.'.it

TEST 61 TEST FOR 10 MAINT MODE TRANSFERS

;:.'ttttt.Qt'.t'.tt.tt.t'."tt.."tttt..it'tti...ttt.tt.ttttt.fit.

MOV
MOV
NEG
JSR
JSR
MOV
MOV
MOV
MOV
MOV
CLR
MOV
BR

172260
172260

172144

JSR

#10,BUFLEN
BUFLEN,WCLEN
WCLEN
%7.L0DBUF
X7.CHKBFF
WCLEN, aDRWC
INBUF , aDRBA
#-1,3DRDB
#INTA,3DRINV
DRINL ,@DRVS
aPsW
#10101,30RST
£7.DATCHK

;BUFLEN=10
:PREPARE NUMBER FOR DRWC
:2'S COMPLEMENT OF BUFLEN
SLOAD IN BUFFER WITH INCREMENTING PATTERN
*LOAD CHECK BUFFER WITH MODIFIED INCREMENTING PATTERN
:SET UP DRWC
:SET UP DRBA
SMAINT AIDE
:INTERRUPT VECTOR TO INTA
INTERRUPT STATUS AT PRIORITY DRINL
:LET DR11-B INTERRUPT
;MAINT, IE, AND DO TO DRST
:WAIT FOR INTERRUPT

;:ttttt't'tttttt'ttttttt'tt'ttttttt.t.ttttt".ttt.ti.tttt..ttttlt

TEST 62 TEST FOR 200 NPR TRANSFERS IN MAINT MODE

;:ttt'.tl'tttQtl'tt'tt.tttttt'ttttI.tltt.*..t't.!...tt't....tfi't.

006666
006670

000200

172150

SCOPE
Mov

#200,BUFLEN

;LENGTH OF BUFFER = 200

CZORBHO DR11-B/DA11-B 'PR DIA

20-MAY-83 15:
CZDRBH.P11
1554 006676 016767 172146
1555 006706 005467 172144
1556 006710 004767 000112
144
767
1557 006714
1558 006720 016777 172130
1559 006726 016777 172110
1560 006
012777
1
007130
1561 ooms 012
172056
1562 006750 016
172034
005077
1563 006756
010101
012
1564 006762
1565 006770 005267 172056
1566 006774 032767 000001
1567 007002 001403

MACY11 30(1046)

172150

MOV
NEG
JSR
JSR
MOV
MOV
MOV
MOV
MOV
CLR
MOV
INC
BIT
BEQ

oumaDRVS
co1ow1.aonst
BRWAIT
#BITO,BRWAIT
BRANCH

B8R

172072
172066
ngou.
172064

172052
172034
172050

WAIT
NOP

15:09 PAGE 30

20-MAY-83

BUFLEN,WCLEN
LEN
s
%7.LO0DBUF
7. CHKBFF
WCLEN, 3DRWC
, aDRBA
INBUF
#1,3DRDB
#INTA,@DRINV

;PREPARE NUMBER FOR DRWC
:2'S COMPLEMENT OF BUFLEN
.LOAD INBUF WITH xncnsnennns PATTERN
OAD CHKBUF WITH MODIFIED INCREMENTED PATTERN
ser UP DRWC
UP DRBA
:SET
SMAINT AIDE
:INT VECTOR TO INTA
*INT VECTOR AT PRIORITY DRINL
SLET THE DR11-8 INTERRUPT
rououms 70 DRST: MAINT(12),1E(06),D0(00)
*USEA WAIT OR BR. INSTRUCTION
:SEE WHICH ONE
:BIT 0 CLEAR= BR.

1568
1569

007006
007006

000001
000240

1571

007012

000777

BRANCH: BR

1573

007020

104400

JSR

£7.DATCHK

JMP
LODBUF: MOV
CLR

END
INBUF , %2
LENCHK

:D0 IT ALL AGAIN.
“MOVE STARTING ADDRESS OF INBUF TO R2
:CLEAR LENGTH CHECK

LENCHK

lNC LENGTH CHECK BY 1

1570 007010 000401

1572 007014 004767 000204

1574 007022 000167 000356
1575 007026 016702 172010
1576 007032 005067 172012
1577 007036 005022
1578

1579
1580
1581
1582
1583
1584
1585

1586

1587
1588
1589
1590
1591
1592
1593
1594

1595
1596
1597
1598
1599
1600
1601
wog
1603
1604
1605
1606
1607
1608
1609

007040 005267

007046
007052
007054
007060
007062
007064
007070
007074

007076
007100
007102
007110
007116
007120
007124
007126

007130
007136
007142
007144
007146
007152
007154
007156
007162
007164
0071
007172
007176
007202
007206

026767
016722
000767
000207
016702
005067

001403

005003

172004

172000 171774
171770
171754
171754

SCOPE

LOADA:

000100 171666 INTA:
171662
171652

171636
171654
171650
171640
171614

INC

CMP
MOV
BR
LDEXIT: RTS
CHKBFF: MOV
CLR

010322
CHKA:
010322
062767 000002 171740
026767 171734 171730
100003
062703 000002
000764
000207

042777
005777
100001
104000
105777
100401
104000
005777
001401
104000
omog
066702
702
027702
001401

CLR

BEQ

CLR

MOV
MOV
ADD
CMP
BPL
ADD
BR
RTS

BIC
ST
8PL
HLT
TSTB
8M]
HLT
ST
BEQ
HLT
MOV
ADD
ADD
CMP
BEQ

(32)+

LENCHK,BUFLEN
LDEXIT
LENCHK,(%2)+
LOADA
X7
CHKBUF , %2
LENCHK
13

13, (%2)+
3. (:2»
#2.LENCHK
LENCHK,BUFLEN
+10
cz 13
zr

#B1T6,3DRST
aDRST
Y
@DRST
.+
aDRWC
.+

BUFLEN, X
BUFLEN. X
INBUF .is
aDRBA. %
.+

;CHECK THAT CORRECT DATA WAS TRANSFERRED

*CLEAR STARTING ADDRESS OF INBUFF AND INC BY 2

:CHECK FOR DONE
:LOAD NEXT BUFFER WORD
connuue CHECKING
SEXIT
*STARTING ADDRESS OF CHECK-BUFFER TO R2
:CLEAR LENGTH CHECK

;1S INBUF FILLED?

SCLEAR R3

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

*CLEAR IE
: CHECKING FOR ERROR
*ERROR SET?
*ERROR BIT IS SET
*CHECKING READY BIT
:1S READY SET
*FALSE INTERRUPT = ERROR AND READY ARE CLEAR
STEST1 FOR DRWC=0
‘WAS IT EQUAL?
*DRWC NOT =0
eurrea LENGTH TO R2
*NUMBER OF TRANSFERS TIMES 2
*CORRECT DRBA
:CHECKING DRBA
*IS DRBA CORRECT?

SEQ 0029

CZDRBHO DR11-B/DA11-B_NPR D&

20~-MAY-83 15:

CZDRBH.P11
1610

1611

1612

007210

MACY11 30(1046)

HLT

104000

ADD

007212 062719 00000

c;.(ze)

:DRBA NOT CORRECT

*RETURN ADDRESS TO RETURN ADDRESS +2

1615 007224 016702

171614

DATCHK: MOV

CHKBUF §z

;STARTING ADDRESS OF CHECK BUFFER TO R2

171610
171604

CLR
COMPAR: INC
CMP

LENCHK
LENCHK
(32)+,(%3)+

:CLEAR LENGTH CHECK
*MAKE A COMPARISON
:1S THE DATA CORRECT?
*BRANCH IF OK
:BAD DATA

000002

1616 007230

016703

1620
1621

007246
007250

001401
104000

1623
1624
1625

007260
007262
007264

001367
000207
012777

1628

007304

000207

1617 007234
1618 007240
1619 007244

005067
005267
022223

162§ 007252 026767

RTI

MOV

171606

171572

171566

030

171542

1626 007272 005077 171532
1627 007276 012777 000340 171512
1629 00

1630 007312
1631
1632
1633
1634
1635

007316
007322
007326
007330
007332

1637

007342

CLR
MOV
RTS

DATOCK: MOV

005067
005267
020223
001401
104000

171526
171522

CLR
COMPRR: INC
CMP
BEQ
HLT

MOV

016703 171524

001367

007344

020223

1640
1641
1642
1643
1644
1645
1646

007350
007352
007354
007362
007366
007370
007372

104000
000207
042777
005777
100001
104000
105777

1648 007400

104000

000100
171436

171442

171426

LENCHK,BUFLEN

:SEE IF THE BUFFER HAS BEEN CHECKED

COMPAR
%7
#DRVS,3DRINV

;RESTORE DR11-B INTERRUPT VECTOR

SEXIT

aDRVS
#340,aPSW
#52525,%2

INBUF . £3

LENCHK
LENCHK
x2.(33)+
o

:BUFFER CHECKED?

*RESTORE DR11-B INTERRUPT STATUS
*RESTORE PROC TO PRIORITY LEVEL 7
:DATO NUMBER TO R2

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

CMP

22, (33)+

:CHECK END OF BUFFER + 1

%7
#B1T6,3DRST
aDRST
Y

@DRST

:T00 MANY
SEXIT
:CLEAR IE
:CHECKING FOR ERROR
*ERROR SET?
*ERROR BIT IS SET
*CHECKING READY BIT

SEXIT

HLT
RTS
ERRCHK: BIC
ST
BPL
HLT
TSTB

B8MI

HLT

RTS

COMPRR

*BUFFER CHECKED?

*SEE IF TOO MANY WORDS WERE TRANSFERRED

:IS RDY SET

22 tttttttttttttt.tttttttt'tt'ttt'ttt.ttttttt't'ttttt't'tttt'tttt'

1653

1654 007404 012737 000267 177566 END:

MOV

1656

8PL

1655 007412 105737 177564
007416

100375

1657 007420 005267
1658 007424 012702

171450
013017

007434

042777

1664
1665

007446
007450

001405
000005

000020

1663 007442 013702 000042

171354

END1:

#207,a4177566

aN177564
.4

:RING BELL

INC
MOV

PASCNT
#SENPAS , X2

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

BIC

#20,aPSW

:CLEAR T=BIT

BEQ
RESET

TRTRAP

JSR

gg 007430 004767 003450

1662

ISTB

MOV

L7, 170Ut
12
a6,

*FALSE ENTRY = ERROR AND READY ARE CLEAR

33 tt'tttttttttt.tttttQttQtttttttt.tttttt.ttttt'tttttttt.'tttttt.t
END OF PASS
:

1651
1652

1661

*STARTING ADDRESS OF IN BUFFER TO R3

LENCHK,BUFLEN :SEE IF THE BUFFER HAS BEEN CHECKED

BNE

000207

INBUF , £

JEXIT

CMP
BNE

001001

1647 007376 100401
007402

BNE
RTS
NORMAL: MOV

052525

1638

;ggg

CMP

012702

1636 007334 026767 171510 171504
1639 007346

BEQ
HLT

%7.NORMAL

SEQ 0030

00004

7222

JSR

15:09 PAGE 31

767

}g}z

007216

20-MAY-83

CZORBHO DR11-B/DA11-8 NPR DIA

CZDRBH.P11
1666

1667
1668

1669
1670

20-MAY=83 15:04

007452

004712

007460

000240

007454
007456

MACY11 30(1046)

SENDAD: JSR

000240
000240

NOP
NOP

007462

004767

1676

007474

001417

002716

1675 007466 032777 010000 171320
1677 007476 005767
1678 007502 001411

000104

007526 000167

171442

1679 007504 016767 000076 170302
1680 007512 016767 000072 170276
1681 007520 042777 000020 171270
}232

27.(2)

ROUTINE TO CHECK FOR TRACE TRAP TO BE RUN WITH PROGRAM

:;ttttt.t'ttlQtttt"tt.""t.tQQ'.tt'tt'tt...tt'..t.'ttt.t'tt."t

16764

1682

15:09 PAGE 32

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

1671

167%
167

20-MAY-83

007532

000000

TRTRAP: JSR

TRPB:

:CHECK FOR CONT G

#10000,3sR

*SHOULD WE RUN WITH TRACE TRAP

ST
BEQ

YESTR1
TRPA

*NO, HAVE WE RUN WITH TRACE TRAP ON?
S1F SO RESTORE PREVIOUS CONTENTS

BEQ

TRPA:

27,CKSWR

BIT

MOV
MOV
BIC

JMP
0

YESTR

YESTR1,14
YESTR2.16
#20,aPSW
BEGIN

$YES

:CLEAR TRACE TRAP

SSTART OF TEST WITH TRACE OFF

1685

:;tttt'..tttttlttttttt'ttt""t'.t'.ttt'tttt.tt'..tttittttttttltt

1687

;:tt'ttttttttttttt.tttt'ttt'.t'ttt.Q.tt'..Qtt'.tttt"t.tfit.tttttt

1686
000044

1688

007534

016767

170254

1691

007556

005067

170234

1693
169
1695
}ggg

007566
007572
007574
007602

005167 177740
100403
052777 000020 171214
000167 171366

1698
1699
1700

007606
007610
007612

1689 007542 016767 170250 000040
1690 007550 012767 007612 170236
1692

007562

005077

000000
000000
000002

1701 007614 000000

SAVE OLD CONTENTS, SET UP FOR TRACE TRAP

YESTR:

MOV

:SAVE 0DT PC

*NEW CONDITION CODES

MOV
MOV

16, YESTR2
#YESRT, 14

CLR

aPsw

CLR

171230

14,YESTR1

COM
BM]
BIS
JMP

TRPB
.+10
#20,aPSW
BEGIN

YESTR1: 0
YESTR2: 0
YESRT: RTI

*SAVE ODT STATUS
*NEW TRAP VECTOR

:SET TRACE TRAP
*START OF TEST WITH TRACE ON
:STORAGE FOR ODT PC
*STORAG FOR ODT STATUS
*RETURN TO PROGRAM FROM TRAP

HALT

*RTI FAILED

1704

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

1;89
1
1708

::ttt.ttttt.tttttttttt'.'ttt'tttttttttit"tttt"tltttfittttt.tt't'

1705

1709
1710
171
1712
1713

000000
000001
000002
000003
000004

RO=X0
R1=%1
R2=%2
R3=13
R&=%4

000007
000006
000001
000002

R7=17
PC=%7
SP=16
G0=1
FNCT1=2

R0
00000

1716
1717
mg
1720
1721

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

;OUTPUT MODE

SEQ 0031

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY-83 15:

MACY1? 30(1046)

20-MAY-83

15:09 PAGE 33

172§
172
1724
1725

000004
000010
000020
000040

FNCT2=4
FNCT3=10
XBA16=20
XBA17=40

sOUTPUT DIRECTION
sOUTPUT INTER REQ

1729
1730
1731

001000
002000
004000

DSTATA=1000
DSTATB=2000
DSTATC=4000

s INPUT MODE
sINPUT DIRECTION
s INPUT INTR REQ

1726
1727
1728

000100
200
00

1732
1733
1734
1735

1736
1737
1738

1E=100
READY=200
CYCLE=400

010000
020000
040000
100000

MAINT=10000
ATTN=20000
NEX=40000
ERROR=100000

1739

007616

000004

NWRDXF : &

1742
1743

007624
007626

000000
000000

JBFLAG:
JBCNT: 0

1744

P L

1747

1748
1749
1750

007630

007632
007636
007642

000240

005067
012706
004767

177770
014210
000256

012767
012767

010304

012777
005077

000100
171110

1751 007646 005067 177752

1752
1753

007652

1755
1756

007674
007702

1754

MS1:

000240

1767

007722

005067

‘NO&:&J}N&*CNO

NNNY

e
b
e
b

L e L L L

RRERR AR R ERNRR RO NS

AR RN

MOV
MoV

#JOBAO,NEXJOB
#0,NEXJOB+2

;DO JOBAO FIRST
sNO ERROR RECOVERY

171122

MOV
CLR

#1E,aDRST
aPSW

sSET INTERRUPT ENABLE
;DROP PRIOTIRY TO ZERO

CLR

MOV

JBFLAG

sCLEAR JOB FLAG

#340,aPSW

sLOCK OUT INTERRUPTS

sWAIT FOR JOBS IN BACKGROUND

BACKGD

L
T
e
L e e

007710

e L L LI AL
PL
SLAVE START
:

1764

~N NNNN

177740
177734

1762

— e

NOP

sCLEAR JOB COUNT
sSETUP STACK
sSET UP INTERRUPT VECTORS

1759

1768
1769
770
771
772

L L

JBCNT
#BUFF ,R6
R7,SETVEC

1760
1761

1765
1766

:J0B FLAG
:J0B COUNT

CLR
MOV
JSR

012777 000340 171122

};gg 007706 000425

1763

sHOLDS ADDRESS OF READY INTERRUPT ROUTINE
sHOLDS ADDRESS OF ERROR INTERRUPT ROUTINE

sMASTER START

1745

1746

:;# OF WORDS TRANSFERRED UNDER FLAG CONTROL PRIOR 70 NPR

NEXJOB: 0
8

1740 007620 000000
1741 007622 000000

SEQ 0032

007712
007716
007726
007734
007742
007750
007756

012706
004767

014210
000202

012767
012767
01277
012777
005077

010526
010544

177676

000100

171034

$S1:

NOP

MoV
JSR

#BUFF ,R6
R7,SETVEC

MOV
MOV
MOV
MOV
CLR

#5J081,NEXJOB _ ;FOR READY INTERRUPT
#5)082 ,NEXJOB+2 ;FOR ERROR INTERRUPT
sRAISE CP PRIORITY TO 7
#340,3PSW
#1E,aDRST
sSET _INTERRUPT ENABLE
aPSW
sDROP CP PRIORITY TO O AND ENTER BACKGROUND

CLR

177664
177660
171046
171046

3R 3322332822222 3222

sSET UP INTERRUPT VECTORS

JBFLAG

i i

it iiiiiiiidiididid)

BACKGROUND PROGRAM; WAITS FOR JBFLAG TO SET

;:.t""t.t't.tt't...ttt""".t"ttt..'l.'fi'.'.'.""'.'tlt'....

CZDRBHO DR11-B/DA11-8 yfisb&

CZORBH.P11

20~-MAY-83 1

MACY11 30(1046)

20-MAY-83

1778
1779
1780
1781
1782
1783

007762
007764
007766
00777g
007772
007776

005%80
005201
©U5202
005203
005
005205

BACKGD: INC
INN
INC
INC
INC
INC

1785
1786

010000
010002

001402
104000

BEQ
HLT

1784

007776

1787

010004

1789
1790

010010
010012

1788

1791
1792

1793
17964

1795

1796
1797

010006

010014
010016
010020
010022

010024

010026
010032

1798 010034
1799

010040

000000

HALT

001402
104000

BEQ
HLT

001402
104000

177572

005067

177554

010044
010050

005067
016767

1803

010062

104400

1802

1804

}ggz

010056

010064

010070

005067

004567

000734

177552
177550
177542

CLR

NEXJ0B

JSR

}g}g 010104 000115

JMP

010146
010046

MOV
MOV

1818

1820
1821

1819

RESALL: TST

}g?zg

010122

000205

RTS

MoV
MOV
MOV
MOV
MOV

1830

183%

1831

183

e T

AL A R

R4.=(R6)
R3.=(R6)
R2,=(R6)

:R5 WAS PUSHED BY JSR

(RS)

sR5 HOLDS RETURN ADDRESS

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

LT L L

LAl

b4
bbb db
b iiiiiiinintiiinbidebdduhibbd

SUBROUTINE TO POP ALL REGISTERS OFF THE STACK

005726

012600
012601
012602
012603
012604

010106

010110
010112
010114
010116
010120

L L L L

1822

1823
1824
1825
1826
1827

b
L L L L LR LT Ll L Lttt iniiuiniuinidiiuiiidnbubuidaibd

SUBROUTINE TO PUSH ALL REGISTERS ONTO THE STACK

SAVALL: MOV
MoV
MOV

010100
010102

BACKGD

010446
010346
010246

1814
1815

;TRAP THROUGH JBFLAG AT 34

R5,RESALL

BR
:

sYES © EXECUTE JOB WHOSE ADDRESS IS IN JBFLAG

JBFLAG

TRAP

LT T

sANY JOBS?
sBRANCH IF NONE

NEXJQ%‘
JBFLAG,

CLR

000016

sBACKGROUND TEST FAILED

R5,SAVALL

CLR
MOV

1809
1810

010072
010074
010076

JBFLAG
BACKGD

L L

1811
1812
1813

R2,R3

JSR

167756

;BACKGROUND TEST FAILED

TST
BEQ

1807

1808

HALT

004567 000032

;BACKGROUND TEST FAILED

R1,Ré

BEQ
HLT

005767
001753

1800
1801

HALT
CMP

000000
020203

SEQ 0033

RO,R5

CMP

020104

RO
R
R
R
R4
RS

CMP

020005

15:09 PAGE 34

L A L L LA

(R6)+

(R6)+,RO
(R6)+,R1
(R6)+,R
(R6)+,R
(R6)+ R4

AR RN RN AR AR R R AR RN R RARRR AR ERRACRARRRRRRCRACTROCS

ROUTINE TO SET UP INTERRUPT VECTORS
e

L L L A L L R

L A L)

CZORBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20-MAY=-8315:
016700

170704

183% 010126
010130 012720 010204
1835
1836 010134 oumg 170672

1837 010140 81276

MACY11 30(1046)

010170
010172
010174
010176
010200
010202

ADDRRSS

CLR

SINITIALIZE REGISTERS

CLR
CLR
CLR
CLR
CLR
RTS

005001
005002
005003
005
005005
000207

SEQ 0034

;RO IS VECTOR
INTO VECTOR
ADDRESS
SERVICE
*PUT
VECTOR+2
INTO
*PUT PRIORITY

MOV
CLR
MOV

1841 010166 005000

DRI
(ao)o
mm&
DRINL, (RO)

MOV

011 03 167662

15:09 PAGE 35

MOV
MOV

SETVEC: MOV

1838 010146 016767 170660 167656
1839 010154 005067 167654
1840 010160 016767 170646 167650
1842
1843
1844
1845
1846
1847

20-MAY-83

#PRINT, 30

DRINL, $2
34
DRINL,36
R1
R2
R3
R4
RS
R7

*SET UP EMT ADDRESS

*SET UP EMT PRIORITY LEVEL
:SET UP TRAP ADDRESS

"tt.tt.tttt.tt.ttttt...'.tt.ttttt.".t...'fit.t.'t'.tttt"ttit'

1849

:’

1851
185

;;tt.ttttttt'tttttltt.tttQQQ'ttQtt"'ttt'Qtttt"t.ttt.t"ttt"ttt

1850

1as§ 010204 005767 177414
1854

PRIMARY INTERRUPT SERVICE ROUTINE.

SETS UP JBLFAG WITH ADDRESS OF JOB TO BE RUNSTARS

DRINS: TST

010210

001402

010214
010216
010224
010226
010232

000000
HALT
032777 004000 170600 DRINO: BIT
001411
BEQ
005767 177370
ST
001002
BNE

1862

010236

000000

1864

010246

000002

1855

1856
1857
1858
1859
1860
1861

010212

010234

BEQ
HLT

104000

HLT

HALT

1863 010240 016767 177356 177356 DRIN1: MOV

1865

010250

105777

170550

DRIN3:

RTI

TSTB

BMI
1866 010254 100402
1867 010256 104006
HLT
HALT
1868 010260 000000
1869 010262 005767 177332
DRIN2: TST
1870 010266 001002
BNE
1871 010270 104000
HLT
1872 010272 000000
HALT
1873 010274 016767 177320 177322
MOV
}g;;

010302

RTI

000002

JBFLAG
DRINO

#DSTATC,@DRST

DRIN3
NEXJ0B+2
DRIN?

;HAS THE PREVIOUS INTERRUPT BEEN SERVICED?
:NO
:CHECK FOR moa
:BRANCH IF NO ERROR
*1S THERE AN ERROR SERVICE ROUTINE?
*BRANCH IF THERE IS.
:ERROR INTERRUPT, NO ERROR SERVICE.

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

DRIN2

NEXJOB
.+6
NEXJOB,JBFLAG

;CHECK READY

*BRANCH IF SET
: INTERRUPT WITHOUT ERROR OR READY
*1S THERE A READY SERVICE ROUTINE
*BRANCH IF THERE IS.
:READY INTERRUPT, NO READY SERVICE
:SET UP JOBFLAG WITH SERVICE ROUTINE ADDRESS

1876

::tttttt'.tttttt.tttt.ttt"'t.Q.Qtfiltt'tttltt'ttt'ttt'ttt.ttttt't

1878

1877

1879
1m

1881
1882
1883
188,
1885
1886
1887
1888
1889

010304
010310
010314
010316
010320
010322
010324
010326
010330

012700 011450
012701 011462
012021
012002
010211
005402
00630
060241
005010

MASTER'S INTERRUPT SERVICE ROUTINES

ROUTINE A, SEGMENT 0

FILL BUFFER AND TRANSMIT

t'lttt'ttttl.tltt.tttt""tltt.".tt!t..ttttt....tttt'tt.tt.ttt

508A0: MOV
MOV
MOV
MOV
MOV
NEG
ASL
ADD
CLR

SLISTA,R
#LISTAT m
(RO)+, (R1)+
(RO) +.R2
as. (R1)
5
R2,=(R1)
(rO)

:RO IS XMIT LIST ADDRESS
SLISTA1 WILL BE REC LIST
*START WITH BUS ADDRESSES EQUAL
*R2 HOLDS WORD COUNT OF XMIT
*MAKE REC WORD COUNT THE SAME
*MAKE WORD COUNT POSITIVE
*TRANSFORM INTO BYTE COUNT
*ADD TO REC BUS ADDRESS
SCLEAR OFFSET IN XMIT LIST

CZDRBHO DR11-8/DA11~8 NPR DIA

CZDRBH.P11

20-MAY=83 15:

MACY11 30(1046)

CMP
CMP

}gg? 010332 024040
1892 010334 022767 000100 177264
1893
1894
1895
1896
1397
1898
1899
1900
1901
1902

010342
010346
010350
010352
010360
010364
010370
010374
010400
010406

}382 010414

oo;gw
105737
100375
012737
005067
004767
012700
004767
012767
012767
000002

20-MAY-83

BGT
177564
B8PL
000207 177566
MOV
CLR
177242
JOBAOA: JSR
000704
011450
MOV
000370
JSR
MOV
010416 177212
MOV
000000 177206

JOBAOB: TSTB

RTI

15:09

PAGE 36

SEQ 0035

<(R0) ,=(RO)
#100, JBCNT

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

#177564

STTY READY?

JoeAgA
JOBAOB
#207,3#177566
chnf
R7.SETBUF
:%isn.ao
R7,MXMIT
#J0BAT,NEXJOB
#0,NEXJOB+2

*BRANCH IF NOT ENOUGH
:RING BELL
*RESET JOB COUNT

SFILL UP XMIT BUFFER WITH SPECIAL BINARY COUNT
:TRANSMIT DATA TO SLAVE

;JOBA1 IS NEXT
*NO ERROR RECOVERY

*RETURN TO BACKGROUND VIA TRAP

1905

:;'ttttttttt"ttt'.".t.'"'tt't't'tttt.'.t.tttt.tt.tt.tttittttt'

1908
1909

;:ttttttt.ttt'ttt.ttttt'.'ttttltttttt..t.t'.tttt.tttt.'.ttt.tt..t

1906
1907

1910 010416 012700 011462
1911

1912
1913
1912
1915

}3}9

010422

010426
010432
010436
010444

010452

1919
1920

1923

1924
1925
1926
1927
1928
1929
1930

;3;5

012700
004767
012767
012767

000002

000574

ROUTINE A, SEGMENT 1
FLUSH A BUFFER AND RECEIVE DATA

JOBA1:

MOV

#LISTA1,RO

MOV
JSR
MOV
MOV

#LISTAT,RO
R7 ,MREC
#JOBA2 NEXJOB
#0,NEXJOB+2

011462
000406
010454 1771564
000000 177150

JSR

RTI

:PUT REC LIST ADDRESS INTO RO

*FLUSH BUFFER

;RECEIVE DATA FRCM SLAVE
:JOBA2 IS NEXT
*NO ERROR RECOVERY

:
:

ROUTINE A, SEGMENT 2
CHECKS TRANSMITTED DATA WITH RECEIVED

::t'tttt.tttttttttt.ttt't'ttt.t!.t'ttt.t.ttttt.Qt'.tt.t'.t"t'tt'

010456

010460
010464
010470
010476
010506
010512

010520
010524

012700

012701
767
042777
012777
012767
012767
005267

JOBA2:

011450

011462
000652
000100
000100
010306
000000

177102

170326
170320
177106
177102

}3?5.

1936

MOV

MOV
JSR
BIC
MOV
MOV
MOV
INC

RT]
R

1933

#LISTA,.RO

:XMIT BUFFER LIST

JBCNT

;ADVANCE COUNT

#LISTAT,R1
R7,BUF CHK
#1E,3DRST
#1E,3DRST
#JOBAO,NEXJOB
#0 ,NEXJOB+2
L L L

*REC BUFFER LIST
*COMPARE THE TWO BUFFERS
*GLITCH INTERRUPT
;REPEAT JOBAO

A il i Al

bbbt AL AL LA L LA L LA L L L L

SLAVE'S INTERRUPT SERVICE ROUTINES

;

JOB1:

IGNORE FIRST READY INTERRUPT

:;Qtt".tttt.tt'tt.ttit"'itt'.tttt.ttt'tl'ttt..ttlttt.t'.tt.tt.t
.

18%;
1

1939 010526 012767 000000 177064 SJOB1: MOV
MOV
1940 010536 012767 010544 177060
;&45

R7,FLUSH

;;tt'.'ttttt.tt'ttttttt..."ttQtttt'..'tttltttl.tttttttt..tt.ttt.

1918

18%;
1

004767

:
:

010542

RTI

000002

:NO MORE READY INTERRUPTS
#0,NEXJOB
2
#5)082,NEXJOB+ ;UNTIL ATTN INTERRUPT

19‘3

:;t'ttttfitttttttttt"t""t"tttt.tt..t'.tttttt.tt..tt't.t'tttttt

19‘5

::tttttttt.ttttttttttt"tt'ttttttt.tt't.tttt.t'ttt..'tt'ttt..tttt

1944

JOB2: WAIT FOR COMMAND

MACY11 30(1046)

CZDRBHO DR11-B/DA11-B NPR D

CZDRBH.P11
1946

20-MAY=83 15:

1947

010544

032777

1949

010554

104000

198 010552 001002

1950

010556

170252

010562 016702
010566 012703
010572 012704
010576 016705

$JOB2:

HALT

MOV
MOV
MOV
MOV

170236
000010
004000
170224

1957 01
004767 000122
1958 010612 012700 011474
1959 010616 016010 000004
1960 010622 066710 170214
1961 010626 012077 170170
1962 010632 012077 170162
1963 010636 005077 170162
1964 010642 032777 002000

1966
1967

010652
010660

032777
001774

000400

1969
1970

010664
010670

012700
004767

011474
000356

1972

010702

042777

1968 010662 000412
1971

1973
1974

010674

052777

010710 052777
010716 012767

MOV

170144

BEQ

170122

000101
010526

170106
176674

170114

:ERROR OTHER THAN DSTATC

#LISTB+2,R0

*STORE PARAMETERS HERE STARTING WITH WORD COUNT

$JOB2A

DRST,R2
#FNCT3,R3
#DSTATC ,Ré
DRDB,RS

R7 ,HNDSHK
#LiSTB.RO
4(RO), (RO)
INBUF , (RO)
(RO)+,3DRBA
(RO)+,3DRWC
aDRST
#DSTATB,aDRST

$J0B2C

$JOB2C: MOV
JSR

#LISTB.RO
R7,BLUSH

BIC

SJ0B2D: BIS
MOV

MOV
RTI

010732

SEQ 0036

;TEST FOR INTER

#CYCLE.@DRST
$J0B28

BIS

#DSTATC,3DRST

$SJOB2B: BIT
BEQ

000004

JSR
MOV
MOV
ADD
MOV
MOV
CLR
BIT

170154

1975 010726 012767 010544 176670

;3;9

BNE

SJOB2A: CLR

1956 010602 012700 011476

1965 010650 001405

BIT
HLT

000000

1951 010560 005001

1952
1953
1954
1955

004000

20-MAY-83

15:09 PAGE 37

$J082D

#FNCT2,3DRST
#CYCLE.@DRST

#IE'GO.BDRST
#SJ0B1.NEXJOB

:SET UP FOR PARAMETERS

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

*GET PARAMETERS
*RO IS TOP OF LIST
*MOVE OFFSET TO TOP
STOP OF LIST IS BUFFER START + OFFSET
:SET UP BUS ADDRESS
:SET UP WORD COUNT
:CLEAR ALL FUNCTION BITS
:WHICH DIRECTION

:BRANCH IF RECIEVE (LEAVE FNCT1 CLEAR FOR DATI'S)
:WAIT FOR MASTER TO SET CYCLE
*BRANCH IF NOT SET

:G0 DO THE C

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

#SJ0B2.NEXJOB+2
;WAIT FOR ATTN INTERRUPT

1978

33 P 2 2212333322221
332222 222232222322 23331 i diitii133333333333313]

1980
1981

:: (222 2123332233223 3322 22222332

;

1979

1982
1983
1984
1985
1986
1987

010734
010736
010740
010742
010744
010746

011515
011520
050312
030412
001376
040312

1989

010752

020167

1988

1990
1991

1992
1993

010750

010756

010760

010762
010764

005201

002401

SLAVE ROUTINE TO ACCEPT PARAMETERS FROM MASTER

HNDSHK: MOV
MOV
BIS
HNDSH1: BIT
BNE
BIC

(RS) ., (RS)
(R5) . (RO)+
R3, (R2)
R&., (R2)
HNDSH1
R3, (R2)

CMP

R1,NWRDXF

INC

176640

BLT

RTS

000207

HNDSH2: BIT
BEQ

030412
001776

B8R

}ggg 010766 000762

as2ztiiiiiiiiiiiiisiiaiaiiigd]

;ECHO PARAMETER
*STORE PARAMETER
*REPLY WITH FNCT3
*WAIT FOR ATTN TO DROP
:DROP FNCT3
:CHECK NUMBER

HNDSH2

:BRANCH IF NOT DONE YET

Ré, (R2)
HNDSH2

:WAIT FOR NEXT WORD
*BRANCH IF ATTN CLEAR

HNDSHK

*GET ANOTHER PARAMETER

1996

.-:tttttttttttt.t'tttttt"ttttttttttttttttttt'tt.tttt't.t.ttt't.tt

1998
1”9

:
ENTER WITH TRANSFER LIST IN RO
;: ' 3222232222222 232223332232333222233333333333333333333333333333233333]

1997

2000

2001

010770

005777

170030

MASTER TRANSMIT ROUTINE

MXMIT:

TST

aDRST

:MAKE SURE ERROR IS CLEAR

MACY11 30(1046)

CZDRBHO DR11-8/DA11-B NPR DIA

CZDRBH.P11
2002

2003

2004

2005

2006

20=-MAY=-83 15:04

010774

010776

011002

011006

2007

011010

2009
2010
2011
2012

011014
011022
011026
011034

2008

58}2

BPL

100002

104000

011000 000009
105777

100402

170016

HLT

HALT

MXMIT1: TSTB

BMI

HLT

104000

011012

000000

011042

000207

012777
004767
042777
052777

000000
000102
000400
000101

HALT

170002 MXMIT2: MOV
JSR
BIC
167770
8IS
167762
RTS

2015

2016

2017

2018

2019 011044

005777

2020 011050 100002
2021

2022

2023
2024
2025

011052

104000

011056
011062
011064

105777
100402
104000

011054

2026

011066

000000

2030
2031

011110
011112

001374
042777

%8;2

011126

000207

20-MAY-83

TST

B8PL

HALT

TSTB
BMI
HLT

HALT

BNE
B8IC

BIS

2032 011120 052777 000101 167676

2035

MXMIT2

#0,3DRST
R7 ,PRMXFR
lCVCLE aDRST
OIE'G0.0DRST
R7

sREADY NOT SET

SET UP FUNCTION FOR DATI'S
TRANSFER PARAMETERS OF LIST WHOSE ADDRESS IS IN RO
HAKE SURE CYCLE IS CLEAR
EXECUTE COMMAND AND INTERRUPT WHEN DONE

TR RENAANAANEARERRARAAACARARRCRONATRRAD

aDRST

MREC1

aDRST
MREC2

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

#1E!GO,aDRST
R7

;MAKE SURE ERROR IS CLEAR

AND READY SET.
sERROR SET
sREADY CLEAR

SET UP FUNCTION FOR DATO'S
TRANSFER PARAMETERS OF LIST WHOSE ADDRESS IS IN RO
HAIT FOR SLAVE TO CLEAR DIRECTION
BRANCH IF SET
sCLEAR CYCLE

EXECUTE COMMAND AND INTERRUPT WHEN DONE.

JRRARAARRAAAAAAAARARAARAERRRAARAANAARRARAREAAARAAARARAAORRRARONE

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

JINNRRAAAAAAARAARRARARREARERAAAAAACARANANRANAARAARCARARRARAACNONS

2038

2039

2040 011130 012077

20641
2042
2043
2044
2045
2046
2047
2048
2049
2050
<051
2052

011134
011140
011142
011146
011152
011156
011162
011164
011166
011170
811172
011176

011077
005001
016702
012703
012704
016705
011015
050312
030412
001776
022015
001402

2054

011200

000000

2053

RTS

:
3

0
2037

sERROR IS SET

aDRST

ENTER WITH TRANSFER LIST IN RO

MREC1:

167704

sAND READY IS SET

nttn"utttttntttQtQ“ttnutnttntttt"nnnnttntn"tt

2027 011070 012777 000004 167726 MREC2: MOV
JSR
2028 011076 004767 000026
2029 011102 032777 002000 167714 MREC3: BIT
000400

011176

104000

2055 011202 040312
2056 011204 030412
2057 011206 001376

167666

167660
167656
000010
004000
167644

SEQ 0037

MASTER RECEIVE ROUTINE

HLT

167742

MXMIT1

JARAAAARRAARRA AR RARRA

MREC:

167754

15:09 PAGE 38

PRMXFR: MOV

MOV
CLR
MOV
MOV
MOV
MOV
PRMXF1: MOV
BIS
PRMXF2: BIT
BEQ
CMP
BEQ
HLT

HALT

PRMXF3: BIC
PRMXF&: BIT
BNE

sFIRST WORD IN LIST IS ADDRESS

(RO)+,3DRBA

(RO) ,aDRWC
R1
DRST,R2
IFNCTS R3
RDSTATC R4
DB,RS
(RO) (RS)
R3, (R2)
Ré. (RZ)
PRMXF2
(RO)+, (RS)
PRMXF §

SECOND WORD IN LIST IS WORD COUNT
R1 COUNTS PARAMETERS TRANSFERRED
R2 IS THE STATUS ADDRESS
R3 USED FOR FUNCTION BIT 3
R4 USED FOR INTERUPT BIT
RS IS THE DATA BUFFER ADDRESS
SET upP DRDB WITH PARAMETER
CALL SLAVE'S ATTN
UAIT FOR REPLY
BRANCH IF ATTN CLEAR
:COMPARE PARAMETER SENT WITH SLAVE'S ECHO
:BRANCH IF EQUAL

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

DROP SLAVE'S ATTN
UAIT FOR REPLY
BRANCH IF ATTN SET

sPARAMETER DID NOT ECHO

CZDRBHO DR11-B/DA11=B NPR DIA

CZDRBH.P11

20-MAY-8315:

MACY11 30(1046)

INC
CMP

2058 011510 005201
2059 011212 020167 176400

BLT
RTS

2060 011216 002761
1 011220 000207
063

2067

FLUSH:

CLR

2071

011234

002775

8;% 011236 000436

2074

011240 010521

BUFPUT: MOV

005504

ADC

2076

2077

011244

011246

JSR
FLUSH1: JSR

BLT .

005202

:
:

2081
2082

2083

2084
s&

2087

2088

2089
2090
2091
2092
2093

011252 012705
011256 000762

177777

2097

2100

011274

767

177760

2106
2105

011312 005105
011314 004767

177720

2101 011300 012705 000001
2102 011304 004767 177730
2103 011310 002011
2106

011320

002005

2107 011322

005105

2109

011326

006105

2111

011332

000764

2108 011324 000241

2110 011330
2112 011334

103763

010320

2113 011336 010420

L e A L

:SET RS 10 2IP

;STOP WHEN BUFFER FULL

RS.(R1)+

:PUT RS INTO BUFFER

FLUSHI

AR AR AR

sINCLUDE IN CHECKSUM

;ADVANCE WORD COUNT

RETLRN WITH STATUS SET
RRNAA RN AR RN ERRRARERRRRRR AN NS

e A L A A LA
T T
e e T
e

2098

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

BLUSH

BUFOUT

MOV
B8R

MOV
TST
CLR
CLR
RTS

2096

SET UP REGISTERS
STORE ITEM IN BUFFER

#-1,RS5
FLUSH+2

:REGISTER SETUP ROUTINE

012002
005720
005003
005004
000207

e T

A L A L L

R7 ,BSETUP
R7 ,BUFPUT

INC

BSETUP: MOV

011260 012001

011262
011264
011266
011270
011272

RS.R3

AR AR AR

2095

099

ADD

RTS

%8;3 011250 000207
2080

L R PR

ENTER WITH RO POINTING TO TRANSFER LIST

005005

2075 011242 060503

e e e DL

ROUTINE TO CLEAR BUFFER

2068 011222

2069 011224 004767 000030
2070 011230 004767 000004

BRANCH IF NOT DONE
REYIRN WHEN ALL PARAMETERS TRANSFERRED AND CHECKED.

PRMXF 1
R7

2066

SEQ 0038

:ADVANCE PARAMETER COUNT
ALI. PARAMETER XFERRED?

R
R1,NWRDXF

2065

20-MAY-83

15:09 PAGE 39

(RO)+.R

(RO)* RZ
(RO)+
R3
R4
R7

:SET RS TO ALL ONE'S
:R1 IS BUS ADDRESS

RZ IS WORDOFFSET
COUNT
SKIP OVER
CLEAR LOW CHECKSUM
CI.EAR HIGH CHECKSUM
sRETURN

vitibs
i iviniieduieioteteivisiabir
itiuiniieivieiieietaivieiebyiaiisinb

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

SETBUF: JSR

SETBF1: MOV
SETBF2: JSR
BGE

COM
JSR

BGE

COM

CLC

ROL

BCS

BUFOUT: MOV

MOV

R7 ,BSETUP

#1,R5
R7.BUFPUT
BUFOUT

RS
R7 ,BUFPUT

BUFOU'T

SETBF1

SETBF2

R3,(R0O)+

R4, (RO)+

e e e

L e

:SET UP REGISTERS

SET UP RS WITH START PATTERN
*NUMBER TO BUFFER
:COMPLEMENT OF NUMBER TO BUFFER
:MOVE PATTERN ONE BIT

POSITIW TO THE LEFT
:IF CARRY SET, START PATTERN OVER
:MOVE LOW CHECK TO LISTY

*MOVE HIGH CHECK TO LIST

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

2114
2115

011340

N
PAG% 40
15:09
3
20-MAY-8

RTS

000207

SEQ 0039

;RETURN

. -'tttt'ttttt.t..tt"."'Q"'..'Qt'...Q...Q...'t.t.t'.t't".t.."

2119
en
2118

ROUTINE TO COMPARE wo BUFFERS
BUFFER LIST #1 IS IN

:
:

%119
120

2121
2122
2123
2126
2125
2126
2127
2128
2129
2130
2131
2132
%}gz

011342 010046
011344 010146
011346 004767
011352 012600
011354 012001
011356 012002
011360 012600
011362 012003
011364 020220
011366 003402
011370 104000
011372 090000

2135
2136
2137
2138
2139
2140

011374
011376
011400
011402
011404
011406

2141
2142
2143
2144
2145

MACY11 30(1046)

BUFFER LIST #2 IS IN ao.

BUFCHK: MOV

MOV
JSR
MOV
MOV
MOV
MOV
MOV
CMP
BLE

000036

HLT

RO,=(R6)

R1.=(R6)
R7.CHKSUM
(R6)+,RO
(RO)+.R1
(RO)+.R2
(R6)+.RO
(RO)+.R3
R2, (RO)+
BUF (K1

HALT

BUFCK1: gg:

022123
001401
104
9005202
002773
000207

#2 CHECKED FOR PROPER CHECKSUM

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

HLT

BUFCK2: INC
BLT
RTS

;SAVE LIST#2 ON STACK

*SAVE LIST#1 ON STACK
*RECOVER 1ST LIST POINTER
*BUS ADDRESS 1
:WORD COUN
*RECOVER 2no LlSl’ POINTER
:BUS ADDRESS #2
*COMPARE WORD COUNTS
*BRANCH IF EQUAL OR LESS THAN

SVERIFY INTEGRITY OF CHECK BUFFER (#2)

*BUFFER 2 IS LONGER THAN 1

(nn;é(mo

:COMPARE BUFFERS

R2
BUF CK1
R7

*ADVANCE coum
*BRANCH IF NOT DONE
*RETURN; sucx IS CLEAR

:DATA ERROR

23 P 2323332323222 33222222222233323233333323 2232333333333 33 322222343

:
:

177644
000016

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

ttttttttttttttttttttttttt.tttt'tttlttfi.tt'tt.itlt'ttttttttttttt

CHKSUM: JSR
CHKSM1: JSR
BLT

2146
2147
2148
2149
2150
2151
2152
2153
%}gg

011410
011414
011420
011422
011424
011426
011430
011432
011434

004767
004767
002775
020320
1003
020420
001001
000207
104000

2156
2157
2158
2159
S}g?

011436
011440
011442
011444
011446

012105
060503
005504
005202
000207

GETBUF: MOV

2162
2163
2164
2165
%}g?

011450
011452
011454
011456
011460

014212
177605
000000
000000
000000

LISTA:

2168
2169

011462
011464

000000
000000

LISTAL: 0
0

g‘uz

CMP
BNE
RTS

CHKSM2: HLT

:gg

INC

RTS

R7,BSETUP
ar GETBUF
HKSM1
ns
g‘g)o
m. (RO) +

CHKSM2

:SET UP REGISTERS
*GET ITEM FROM BUFFER
*BRANCH IF NOT DONE

*COMPARE LOW ORDER CHECKS
:COMPARE HIGH ORDER CHECKS
:RETURN IF CHECKSUM OK.

*ORIGINAL BUFFER CHECKSUM DOES NOT AGREE WITH PRESENT

(R1)+,RS

:GET ITEM OUT OF BUFFER

;ADVANCE WORD COUNT

ns R3’
R7

*ADD TO CHECKSUM

XINBUF

:START OF XMIT BUFFER

0
0
0.

SOFFSET
*CHECKSUM LOW
*CHECKSUM HIGH

-123.

*WORD COUNT

:START OF REC BUFFER
*WORD COUNT

CZDRBHO DR11-B/DA11-8B_NPR 0&

20-MAY=83 15:

CZDRBH.P11

MACY11 30(1046)

000000
2170 011466
%%%
011470
2171
%};g 011472

20-MAY-83

15:09 PAGE 41

0
0
0

;OFFSET
LOW
:CHECKSUM
*CHECKSUM HIGH

XINBUF

:SLAVE'S ECHO BUFFER

2174 011474 014212

LISTB:

$180
2181

3 ;t'tttt'tttttttt.t.tttt'tttttQtttttfi.tttitt'ttttttttttttttt'ttt.

2175
2176
2177
2178

011476
011500
011502
011504

000000
000000
000000
000000

2182
2183

2187

o11sog

2188 011512

004767

000672

037727 167276 020000

2189 011520 001067
2190 011522 012667
2191 011526 012667

000204
000202

105777
100375

167316

PRINT:

2196

2197
2198

2199
2200
2201
2202
2203

011542
011546

000212

011550

012777

011564
011570
011574
011600
011604

010267 000134
132
010367
130
010467
016702 000126
004767 000126

011616

105777

011556
011562

105777
100375

167302

167310

2206

011622

100375

2218 011700 005777 167110
2219

011704

100001

81171

023737 000042 000046

2220

o11708

2222

011716

2221

2225

STACK
TION
THE
*REPOSI
:CR

IST8

1$:

:LINE FEED

%2, SAVR?
13.SAVR3
%, SAVRG
22
SAVPC,
X7.PRTAB

:SAVE R2
*SAVE R3
:SAVE Ré

aTPS

:SPACE BETWEEN WORDS

aTPS
.4

:PRINT OCTAL NUMBER

#240,3TPB
=4

%7 .PRTAB

:PRINT OCTAL NUMBER

aDRST, %2
%7.PRTAB
SAVR2,%2
%3
SAVR3.
SAVRG.
%7.CKSWR

*GET DR11B STATUS
*PRINT OCTAL NUMBER

G2, N6

HALT

:PRINT SPACE
*PRINTER DONE
*BRANCH WHEN NOT DONE

:CHECK SR FOR HALT SWITCH

CMP

RTI

:IF SO, BRANCH OVER PRINT
*PC OF FAILING ROUTINE
:CC OF ERROR CONDITION

#212,aTPB

asRk

8PL

011722 000002

SAVR2:

MOV
JSR
MOV
MOV
MOV
JSR

BNE

000000

aTPS
.4

SAVCC,%2
#240,3TPB
@TPS
.4

001001

0117264

1$
(6)+,SAVPC
(6)+,SAVCC

MOV
JSR
MOV
TSTB
B8PL

HALT

2223 011720 000000
2224

-(6).=(6)
#215,37TPB

BPL

167150
000056
000040
000036
000034
000504

CMP
MOV

MOV

2207 o116§3 016702 000104
004767 000102
2208 011630
2209 011634 012777 000240 167224
2210 011642 105777 167216
2211 011646 100375
2212 011650 017702
2213 011656 004767
2214 011660 016702
2215 011664 016703
2216 011670 016704
2217 011676 004767

;TEST FOR INHIBIT PRINT QUT

MOV
MOV
MOV
MOV
JSR

167242

%7.CKSWR

ask,#20000

TSTB
8PL
MOV
TSTB
BPL

2204 011610 012777 000240 167250

2205

JSR

BIT

BNE
MOV
MOV

2192 011532 024646
2193 011534 012777 000215 167324

2194
2195

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

;;t'tttttttttttttt'.ttttttttt.tttttttttt'tittttttt'tttttttttt'.tt

218‘

2185
2186

0
0
0
0

:HALT ON ERROR UP IN SWR

“ARE WE IN ACT11 AUTO MODE?

*BRANCH ON NO

*HALT ON ERROR IF IN ACT11 AUTO MODE

*RETURN TO MAINLINE

SEQ 0040

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11
2226

20-MAY=83 15:04

011726

227

011730

%%sg

011734

gzg
232

onng
011742

228 0N

2233
2234
sts
236
2237
sgsa
39
2240
2241
2242
2243
2244

245

onng
011752
011760
011766
011774
012002
012006
012010
012012
012014
012022
012024

MACY11 30(1046)
SAVRG:

SAVPC:

000000
000000

012704
142777
012767
012767
012767
105777
100375
005702
100404
012777
000403
012777

000260
000252

SAVCC:

PRTAB:

CLR
CLR

MOV
gICB
167104
MOV
ooozsg
MOV
00022
MOV
000214
WAIT1: TSTB
B8PL
ST
BMI
MOV
000260 167044
B8R

&1)52;9
17
000005
000007
000001
167056

000261

012032 016703 000156

167034

MINUS:

START:

MOV

010267
005167
046703
001410
066767
005267
026703
001370
062767
016724
066767

MOV
000150
COM
000144
BIC
000140
BEQ
000136 000136 MKNUM: ADD
INC
000134
CMP
000126
BNE
000260 000120 WRTOC: ADD
MOV
000114
ADD
000102 000102

2260 012130 001410

BEQ

246 012036
2247 012042
2248 012046
2249 012052
2250 012054
2251 012062
2252 012066
2253 012072
2254 012074
2255 012102
2256 012106
2257
2258
2259

012114
012120
012124

005067
005057
005367

CLR
CLR
DEC

000100
000076
000074

2261 012132 012703 000003
2262 012136

767 000052 000050 MOADD:

012144

005303

2266 012152

012767

2263

2264 012146 001373
2265 012150 000730
2267

2268
2269
2270
2271
2272
2273
2276
2275

2276
2277

2278
2279
2280
2281

012160

105777

000005

166790

012164
012166
012172
012176
012200
012202
012206

100375
014477 166674
005367 000026
001401
000767
105777 166656
100375

012212
012214

000000
000000

012210 000207
012216
012220
012222
012224

000000
000000
000000
000000

SAVR3:

000000

005067
005067

20-MAY-83

15:09 PAGE 42

000044

XLIST:

WAIT2:

HDFHM:

uw 2%
#177.3TPS
#5,ASCNT
#7.SEVEN
#1.DECML
aTPs
WAIT1
mngs
#260,aTPB
START

:GET LIST ADDRESS
“CLR INT FLAG

SEVEN, X3

:PUT MASK IN R3

#261,37PB

%2, TOODLE
TOODLE
TOODLE ,X3
WRTOC
DECML ,WGTCT
BINCT
WGTCT,X3
MKNUM
#260,BINCT
BINCT, (4)+
SEVEN, DECML
WGTCT
BINCT
ASCNT

:NEG SIGN PRINT1
:POS SIGN PRINT 0

*GET READY TO DOODLE NUMBER IN TOODLE
COMPENSATES FOR COMPLEMENT DURING BIC
SAND IN OCTAL CHARACTER
:2ERO, WRITE O IN LIST
:COUNT UP TO
RECORD
*AND
:SAME BINARY WEIGHT
*KEEP COUNTN
sADD ASCII PREFIX
SWRITE ASCII CHAR IN LIST
:EXPAND BINARY WEIGHT

XLIST

:5 CHAR IN LIST

SEVEN, SEVEN

*MAKING SEVENTY BY SEVEN

BNE
B8R

MOADD
START

:NX SEVEN SET GET NX OCTAL

TSTB

@TPS

MOV

#3,13

DEC

ADD

MOV

#5,ASCNT

WAIT2
BPL
-(4),aTPB
MOV
ASCNT
DEC
HDFHM
BEQ
WAIT2
BR
TSTB aTPS
=4
B8PL
RTS

TOODLE: 0
SEVEN: 8

DECML
WGTCT
BINCT
ASCNT:

BINCT
WGTCT

¥4

:SET X3 FOR ADD LOOP
*SEND 5 CHAR TO TTY

sFINISH PRINTING GET NXT NUM
;HEAD FOR HOME

SEQ 0041

CZORBHO DR11-B/DA11-8B NPR DIA

CZDRBH.P11
gzaz

283

20-MAY=8315:04

012226

012230

20-MAY-83

MACY11 30(1046)
LIST:

000000

$%8%
01553
000000
00000(
013536
$%8%
507

15:09 PAGE 43

t'tt.t.ttt'tQQQQt.tt"tt't'tttttt'tt'tt.tttttt't'tt.'tt'tt't't'

2291

SCOPE LOOP ROUTINE ENTERED BY USER TRAP

33 AAARRRAARANANAAARAAAAA AR AAAAAAAAAAARAAACAAAAACARAAANANOOAOES

ggg”?

000140

SCOPEA: JSR

32333 012270 000177 000072

JMP

2292

2293
229,
2295
2296
2297
2098

012240

004767

BIT
012244 032777 040000 166542
BNE
012252 001003
MOV
012256 011667 000106
RTI
012260
(MP
SCOPEB:
012262 022606
MOV
166526
012264 012677

27, CKSWR

6ooo asR
au neruan
(6)+,%6
(6)+.aPSW

ARETURN

;SCOPE, BIT IS A ONE
*NO = SAVE PC roa NEXT TIME
*RETURN IN SEQUENCE
*REPOSITION THE STACK
:SCOPE RETURN

301

s ;tttttt'tttttttt't'ttl.t'ttttttttttt.tttltt.ttt'ttttttttttttt.tt

%%{

$ :tQtt.tt"tt.t.tttltttt'Q.ttt!ttt.t.t.tttttttttt..t!tt'tt't'ttt'

302

2305

2306

012274

004767

2321

C12362

004000

2307 012300
2308 012306
2309 012310
2310 012314
2311 012316
2312 012322
2313 012330
2314 012332
2315 012340
2316 012342
2317 012346
2318 012350
2319 012354
2320 012360

032777
001365
005767
001415
004767
032777
001007
026767
001403
005267
000745
005067
011667
000002

2322 012364 000000

000104

SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES

SCOPEC: JSR

BIT
BNE
TST
BEQ
JSR
000062
BIT
004000 166464
BNE
CMP
000026 000022
BEQ
INC
000016
B8R
SCOPEG: CLR
000010
MOV
000006
RTI

040000 166506
166560

27, CKSWR

nbooo asr
PASCNT
SCOPEG
27,CKSWR
#4000,asR
SCOPEG
, 1COUNT
SCOPEF
SCOPEG
SCOPEF
SCOPEB
SCOPEF
3%6,RETURN

ICOUNT: 4000

:TEST SR FOR SCOPE
*YES SCOPE
FIRSI’ PASS (PASCNT=0) ?
:BR IF YES, INHIBIT ITERATIONS
;TEST FOR ITERATION
S INHIBIT ITERATION
;EXIT = DONE
: INCREMENT COUNT
:LOOP SOME MORE
:CLEAR COUNT
*SAVE SCOPE RETURN POINTER
*RETURN INLINE-NEXT TEST
:COUNT LOCATION FOR ITERATION LOOP

SCOPEF: 0

*ADDRESS OF LAST TEST

53352 012366 001174
2325 012370 000167 165604

RETUPN: egsgc‘
JNP

2328

: : P 2332333222222 322222322232323%22232233313333133 3333333333333 433431%]

$353
gg?.}g
2331
2332
2333
233,
5;;2

012374
012376
012400
012402

000000
000000
000000
000000

200

gogelc.scsugcu REGISTER ROUTINE. CHECKS FOR “G TO ALLOW CHANGING
:
. tttl.t.tttt;ttttttttt'ttt'ttttttttttt"tttttt.tttt'ttttt.ttt"
t
TEMPST:
COUNT:
RDSW:
TIB:

2337 012404 022767 000176 166402 CKSWR: CMP

.WORD
.WORD
.WORD
.WORD

O
3

#SWREG, SR

:SOFTWARE SWITCH REGISTER PRESENT

SEQ 0042

CZDRBHO DR11-B/DA11-B _NPR DIA
115:06
CZDRBH.P11
20-MAY-83

012412

00113

166440

i 177600
166434

022767

000007

01270;

012756
000426
012770
000416
166322
177240
013000
000376
012374

001116

FERFRER

177656
00000

177752
177744
177736

CNTLU:

177652
177644
177636

177624

wvivaw

S FEFE
oo

SREAD:

18:

3s:
2$:

177600

purt R

e e

e R

]

N NN NN

0000000000000
0

462
466

01270
00476
01770
004

MACY11 30(1046)

177572

000067

8$:
4S:

177562

5%:

013011
000252

6$:

20-MAY-83

BNE
IST8
BPL
MOV
BIC
CMP
BNE
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
CLR
CLR
MOV

BIC
CMPB
JSR

BNE

CMP8

BNE
MOV
JSR
CMP
BNE
BR
CMPB
BGT
C(MPB
BGE

MOV
JSR
B8R

166112

7%:
001’

425,

#15,TI8

48
#SCRLF, %2
%7.TTOUT
#7.COUNT
7s
oeo.na

SEQ 0043

;YES WAIT FOR

Abv ser CHARACTER

mo STRIP OFF
S THE cmms

SIS IT A <*6>

READ A CHARACTER
:STRIP OFF GARBAGE

:GO

;IS ITA 0?2
:BRANCH IF NOT
;START OVER

;IS IT A <CR>?

;BRANCH IF NOT
sWAS IT FIRST CHARACTER
gg?flgs SWR IF NOT FIRST ONE

11
#67.TI8
6$

#SQUEST
%2
PC, TTOUT
3s

DEC
BEQ

RTS

B8R
MOV

PAGE 44

nmoo 118

TEMPST
TEMPST
TEMPST
#60,TIB
TIB.TEMPST
COUNT
ss

ASL
ASL
ASL

ouT
aTKS
ouT
arx; 118
"7 6oo.na
.1
ou
#SCNTG, %2
PC, TTOUT
#SMSUR,
PC, TTOUT
ask, %22
X7.PRT
X2
#SMNEV,
PC, TTOUT
a#TEMPST
TEMPST
n coum

BR CNTLU

BICB
BISB

177474

15:09

1
TEMPST,aSR

sSTART OVER IF NOT LEGAL CHARACTER
sGET NITTY=GRITTY

sONLY WANT 6

DIGITS

sCHANGE SWITCH REGISTER CONTENTS

:RETURN TO PROGRAM

ttttt.tttttttt.Qttttti"t'ttt.lit'lt.t."ttt'...Qtttl.'ttttt!.t

TTY READ SUBROUTINE*ttantannn

:;tttttttttt.t.tt..ttt.'t'.tttltt.Qtt"itt't'ttt'tfi.t..tt.t"t"'

005077
005077
005067

TTIN:

CLR
CLR
CLR

aTkS
aTkB
T8

MACY11 30(1046)
TTINT:
177442

TTINZ:

166112

INC

1ST8
8PL
MOV
1ST8
BPL
MOVB
RTS

PAGE 45

SEQ 0044

aTkS

Ti18.aTPB

X7
'

g’

020075

$CNTG:
$CRLF:
SMSWR:

036527

SMNEW:

023137

SQUEST: .ASC1Z

020104
020040

SENPAS: +ASCIZ

*_END PASS

062132
04

STITLE: +ASCIZ

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

000046

15:09

20-MAY-83

+ASCIZ
+ASCIZ
ASCIZ
.ASCIZ

"TM

"“SWR= &'
'

NEw= §'
L

04204
057440
.EVEN
OFL:
c

sFIRST CHAR FLAG

S
RAAR
AAACAAOOORACAOC
AAAAA
AR ARRAAAAAAAAAAAA
AR RARAARARAR

TTY ASCII OUTPUT ROUTINE

.EMPTY:

NWVWSN
NN

RTS

—

=< N

P =2~
<N
®
W

1$:

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

(2)

— o~

S enao NN

165740

1ST8
BEQ
CMPB
BNE
8IC
CLR

—2
. | /IR
o NJN)
=
=t
) o
om c=m
wn . -4
o

SR8x83
VIR =N\ =2\

TTOUT:

)
b =y
0O

(v V. 1V ]
SRS
R S RER NarORR
~J
N

N W

— o

D oD e

WA WA W AN AN AN N NN

D cd D

d D

) D

N N N NN W

D b

COO00000000000000000

) wd b

:;.l.ttt..tl"t.QQ".Qt'QQ".tt.Q.Qfilt't'.t'ttttfit'..Q'Q...'.tt't

1$:

.RET:

sCLEAR POINTER TO CHARACTER
sRETURN

:CRLF CHAR?

sCHECK FOR RETURN TERMINATOR

( 2)+,aTPB

sTYPE CHARACTER

12
12.. SAV

;SET UP NEW POINTER

Trouf

#.RETR,22
.RET=6

20-MAY=83 15:

450

013174

016702

000006

453

013202

012

23} 013200 000741
454

013

2455 013206 ooooog
24

458

459

460

2661

014.513
014212

015214

01421

015214

000001

20-MAY-83

MACY11 30(1046)

CZDRBHO DR11-B/DA11-B _NPR D

CZDRBH.P11

041

LREST:

B8R

MOV

fTouf

.RETR:

.BYTE

15,12,°!

SAV:

BUFF:

EVEN

=.+1000

XINBUF: .

.=.+1000

XCHKBU: .

JEND

15:09 PAGE 46

.SAV,%2

:FOR STACK POINTER 100 LOCATIONS

SEQ 0045

C%DRBHO DR11-B/DA11-B_NPR D&

CZDRBH.P11
ASCNT

ATTN

BACKGD

20-MAY-83 15:

012224

2;;5'

0077

1757

= 020000

17334

MACY11 30(1046)
2259+

2266+

2270+

1778%

1797

1805

1287#

012222
BINCT
BIT0 = 000001

2231+
4728

2251+
1376

BIT10 = 002000
BIT11 = 004000

4«82¢
4834

107
1081

4854

1094

0052

BEGIN

001174

BIT1

= 000002

15:09 PAGE 48

SEQ 0046

CROSS REFERENCE TABLE == USER SYMBOLS

1 §81

BAOFCK

20-MAY-83

568

5704

228

1396

2323

661

770

795

759

760

817

571

1682

2254+
1454

2255
482

2258«
i

22804

755

756

6Sg

657

660

1064

BlTl% = 010000

484N

BIT14 = 040000

4864

1097

1099

1100

1266

1269

1295

G764
4754

673
690

674
6N

677
694

678
695

773
776

716

717

782

807

I[r4

1072
1080

“778

720

798
801

804

747

785
958

an
962

919
992

922
996

946
1029

949
1033

976
1364

982

746

734
934

1482

1565«

1566

119+«
1497«

1196+
1503«

1197
1526*

1213«
1534+

1215
1535

1232«
1553«

1234+
1554

1235
1579

1442+
1590

932

960

994

1031

1304

1314

1362

1674

2187

BIT13

= 020000

BIT15 = 100000

BIT2 = 000004
BITS = 000010

BIT4 = 000020
BITS

= 000040

BIT8

= 000400

BRWAIT

001052

4874

L764

703

BIT6 = 000100
BI1T7 = 000200

788
1259
“79%

729
1287
902

001
BIT9 =
011252
BLUSH
7012
BRANCH

4814
1970
1567

1065
20844
15714

011260
011342
011374
011402
014210

069
1925
2130
2136
507

0884
21224
21354
2138#
1749

BUFOUT 011334
BUFPUT 011240
BUSERR=

2072
2070
4894

2103
20744
80+

007064
001044

1500
539

BSETUP
BUFCHK
BUFCK1
BUFCK2
BUFF

BUFLEN 001046

CHGG1
CHGG2
CHGG3
CHGG4
CHGG5
CHKA

002660
00
003150
003334
003516
007076

CHKSM1

011414

CHKBFF
CHKBUF
CHKSM2

CHKSUM

CKSWR

011434

011410

012404

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

808
5428

S4OF
T6i4
1605

742

1453+

1173«
1468+
1606

704

730
1595
906
743

1454

2100

707

733
1642
930

1481

2146

1765

1175+«
1470+
1622

24574

1176
1471

1636

2112#
2105

1538
1584

1557
1615

15844

150

2152

c154n

602

618

834

1478

2124

2217

569
16184
1632¢
23334
17284
1528

1593

2148

21464

2292

23474
16;3
1637
2355«
1966
1547

788

814

2139

2106
2102
591+

9124
94
9704
1004#
10394
1587#

708

904

2306

231

23374

2365
1972
1572

2380+
2011
16154

2031

2360

MACY11 30(1046)

20-MAY-83

1455
1207

1459#
1245

1490

1629#

237,

2230

2256+

2278#

530

S584r

617¢

620

CZDRBHO DR11-B/DA11-B NPR D

CZDRBH.P11
DATING
DATOCK
DATONB
DECML
DIOMEM
DONE

DRBA

DRDB

001022

001026

DRINL

001032

DRINS

010204

DRINV

001034

DRINO
DRINT
DRIN2
DRIN3

010216
010240
010262
010250

DRST

001024

1483

7
1398

14890

1252
1403

141

643+

888

891«

1108+
1411%

1126
1422¢

1140«
1447+

1156
1475«

1179«
1498«

1200+
1540«

S32¢

588¢

1109+

1127

1142«

1180+

1186

1201+

1219«

1225

1239«

1313«

1316

1335

1338+

1339

1349+

1350

1353¢

1448«

1460

1476+

1541«

1325

136

135

S3s

1146

1182

1203

1221

1241

1256

1282

1450

1478

1508

1543

1562

1835

18534

1202¢

1220+

937e

1240+

7¢

1253«

1001«

1011+

1018+

1036*

1046+

1052+«

1111«

1143«

1181«

18564
1860
1866
1858

18574
18634
18694
18654

656

657

660

661

673+

676

677+

678

690+

691

1836

5354

5314

1838

SB6*

1840

128ie

197

1973

2001

2005

001030
001020

535
1563«
520

1112«
1562+
580«

1144*
1625
601

1182«
1626+
604

1203+
632+

DSTATA= 001000
DSTATB= 002000

17294
1730¢

1964

1954

2045

1521+

1522

912«
1257%

17314

1576
16624
580

1120
1412
1621

RROR = 1
011222
FLUSH
FLUSH1 011230

17354
1911
20708

FNCT1 = 000002

17214

001070

887«

1103+
1388+

1971s

FNCCNT

864

1040+
1376

1081
1186e
1292
1425e
1643

007354
005764
006046

863«

1005+
1302«

708
755«
79+
906
982+
106k

ERRCHK
ERRDO
ERRDOT

971+
1280¢

707«
747
791
902
976+
1061

007404
007434
001252

859«

941v
1252+

704
746*
788
83
972+
1060+

END
END1
ERRA

644

913«
1258

703«
743
785
829
962
1050+

DSTATC= 004000

SEQ 0047

1218«
1559«

695
742«
789
827+
958
1045«

DRVS
DRWC

CROSS REFERENCE TABLE == USER SYMBOLS

20~MAY-83 15:

006206
007306
006346
012216
001040
005710

15:09 PAGE 49

5,9

1086
1203+
1295+
1431
1646

940
1279+

1857

16544

5904
1152
14184
14314
20684
2071

1502+«

1087+
1223+
1296
1452e
1755+

970+
1387«
2029

1947

1092
1243«
1299
1480s
1771+

1004+
1410¢

109%
Tgse
1364
1301«
1857

1039+
1424r

16424
2085

1518

1412¢

1621%

1449«

1477+

1506¢

1542+«

717
759+
798
919+
996
1068

720+
7
801
922«
1006+
1071«

721
768«
804
930
1010+
1072«

729+«
770
807
93&
1016+
1073

730
773
811
942+
1029
1076

2009«

2011

20.2+

2019

2023

1221+
633

1241+
B46

1254+
847

1282+«
850+

1413+
851

716
756
795
9ler

1065
1
1239+
1
1311e
1

1107+
1446+

1099«
1260
1389
1313
1926+

1121
1473+

1100
1263
1392«
1345+
1927+«

1139«
1510¢

1106
1266
1393
1364s
1947

1153
1539«

111&*
1269«
1397
1393«
1952

1178+
1558«

1561+«

733«

1625+

73
779
817
949+
1041+
1080«

2027«

81
946r
1033
1079«
1146+
1287
1418
1399
1964
2029

2031+

1450+
B+

1478+
875

1508+
78+

1133«
1284r
1415«
139
1963+

1199+
1602

1217«
1962+«

1166+
1289
1423«
1642
1966

1237+
2041+

HLT

= 104000

} 7228

4 147

1 7;00

QM
710
784
839

197N
1953

027
044

197

2012

2032

606

622

21564

719
787
849

845+

872+

900«

1278+

1324

1347«

1375+

1771
941

1926
971

1927
1005

1973
1040

2012
1179

1218
1616

1238
1630

1388
1960

1202

1220

1240

1449

1477

1506

1542

1561

15954

1748+«

1892

1897+«

1930+

18814
1898#
1895
19104
19234
1583#

1928

1801

1802«

1853

1863+

1873+

1585«

1589+

1590

1617«

1618+«

1469

1499

1537

1556

15754

INBUF1
INCBA
INCDB
INCWC

001072
002552
005512
002522

88ss
13504
8754

893
1355
880

INTB
INTC
ITIME1
ITIME2
ITIMES
ITIMESG
ITIMES

004144
004316
002706
003034
003176
003
003544

i1
1143
9164
944N
974N
10084
10434

JBCNT

007626

JBFLAG 007624

17434

17620

JOBAO
JOBAOA
JOBAOB
JOBA1
JOBA2
LDEXIT

010304
010364
010344
010416
010454
007062

1752
1893
18944
1901
1914
1580

LIST
LISTA
LISTAT
LISTB
LOADA

012226
011450
011462
011474
007040

MAINT = 01
006536
MFCHK
MFLOOP (006430
012024
MINUS
012054
MKNUM

LENCHK

LODBUF

001050

007026

1986
19924

1505
1505«

11204
11524

1751

1014
1102
126
1369
1604
1871
199
1993

1524«
1527

1767+«

1527+«

1796

1540

1576«

1578+

1579

1581

2233
1881
1882
1956
1278¢

2282#
1899
1910
1958
1582

1923
1912
1969

21624
1924
21744

21684

17324
1523
1506#
2241
22504

1214

1233

1443

15264
1525
2244
2253

12;10

1174

813
936
1075
1158
1318
1429
1786
2132

826+

631+

1181

775

816
950
1078
1162
1328
1433
1790
2137

1294
1402
1640
2021

1755
913

007130

693

1291
1395
1635
2007

17264
S38x

INTA

762

L9
803
890

ggg

1268
1378
1610
1949

zgg?;
1498
5504

74
800
877

676

1035
1123
1286
1391
1621
2003

998
1102
1262
1366
1601
1867
19824

= 000100
IE
001042
INBUF

012362

36
797
866

1021
1118

985
1096
1258
1352
1598
1861
1957

1985#
1990

ICOUNT

732
793
862

642

809
9;3
1070
1155
1301
1420
1648
2053

010734
010742
010762

HNDSHK
HNDSH1
HNDSH2

723
790
853

SEQ 0048

1195

1048
1126

1559

1063
1129

1575

1622

PRURERTIS

= 000004

b b b =d

FNCT2

FNCTS = 000010
GETBUF 011436
GO
= 00000 1
HDFHM
012202

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

N =

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

1631+

1632+

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

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

MOADD
012136
011044
MREC
011056
MREC1
011070
MREC
MREC
011102
MSTART 001000
007630
MS1
010770
MXMIT
MXMIT1 011002
MXMIT2 011014
= 040000
X
NEXCHK 005116

22628
1913
2020
5054
029%
5234
5264
1900
2002
2006
17344
1253

2264
0194
0234
sogzo
20

1914

1915«

NEXJOB 007620
NOP

NORMAL

= 000240

NPRRDY

NWRDXF
N1413
OFL

T
PASCNT
PRINT
PRMXFR
PRMXF1
PRMXF2
PRMXF3
PRMXF4

PRTAB
PSW

P3INT
P3INV
P4INT

P4INV
PSERR
PSINV
P6ERR
POINV
P7ERR
P7INV
RDSW

007264

004052

1768+

1769+

1799+

1800+

1130

1163

12N

1306

1436

1612

1625#

S36#

1108

1141«

1156

1160

957+

1479+
2298+

991+«

1509+

1028+

630

642

655

1093

1929+

1939+

007616
004036
013102
012702
001074
011506
011130

1110«

1124

1140

2340
1657«
1837
2028

2344
2309
21874
20404

2367

2384#

011736
001016

2203
508«
1242+«

2208
528#
1255«

2213
570+
1283«

2231
901+
1414+

2350
929+
1451+

2319+

23234

607

616

003572
003502
003414

20474
20494
2052
20564

1695+
1036
1030
1001

3304
003222
003120
3046
002772
002720
002644
012400

967
959
937
931
909
903
23344

012366

571«

5444
17274
1804

1798
2191«
2190«

SCOPE = 104400

4704

SAVR2
SAVRS
SAVRG

1107#

1928+

2059

011162
011166
011202
011204

011724
011726
011

1839

1753«

010072
011
011732

SAVALL
SAVCC
SAVPC

1259

1752«

176400

1989
1103#

RDYCHK 001056
READY = 000200
RESALL 010106

RETURN

17474
20014
20054
009#

1739
1098
24234
2338
551
495
2010

001036

SEQ 0049

2199+
2200+
2201+
741

2060
205
20554
2057

1754
10504
10364
10164

1756%

1770«

1772«

1940+

1974+

1975+

1 863

1869

1873

1901+

1222+
1692+

1183+
1662

1544+

1902+

@
9814
9654
9484
9374
9214
9094

1396

1399«

18224
2295«

2299

2214
2215
2216

2229
22284
22254
222
22274

18114
2207
2202

579
754

992

767

825

844

858

871

885

672
899

702
956

990

728
1027

CZDRBHO DR11-B/DA11-B NPR DIA

CZDRBH.P11

20~-MAY-83 15:04

1172

229

2§97fi

2308

2317

316
31

2318«
2315

23224
2318»

2245

2256

1361

012240

22924

012274

498

01%%62

SCOPEF
SCOPEG

012364
012350

%314
310

012214

2236

SETBF1
SETBF2
SETBUF
SETVEC

011300
011304
011274
010124

SJoB1
SJ0B2
SJOB2A
SJ0B2B
$J0B2C
$JoB2D

010526
010544
010560
010652
010664
010710

SEVEN

SSTART
$S1
START
SUSWR
SWREG

TEMP
TEMPST
TEMP2

001014

001006
007710

012032
001102
000176

001076
012374

001100

2101#
21024
1898
1750

1768
1769
1948
1966#
1965
1968

2;2;!

5254
526
2243
514
505#

5524
23324

5534

1374

23064

110
m
1004
1766

1939
1940
19514
1967
19694
19734

1385

18344
1974
19474

1409

2262+

565

2307

2312

2337

2397+

2358

2361

2368

2370

2378«

2379

2393«

2394+

2395

2204+
2205

2209+
2210

2242+
2234+

2244+
2238

2269+
2267

2400+
2273

2444+
2398

2435+

2442

2348

2352

2364

2373

2431k

2445

2451

1178

1197«

1198+«

1199

1215«

1216+

1217

1235«

1236+

1167

TRPA
TRPB
TRTRAP
TSTRDY
TTIN
TTIN1
TTIN2

007526
007532
007462
005666
012704
012724
012740

1678
16834
1664
13974
2356
23954
2398%

16824
1693+
16744
1401
23914
2396
2399

004214
004366
004374
012002

012160

1119
1151
1165
22384
22678

11334
1196‘
11724
2239
2268

012220

16464+
2232«

1445+
2250+

2249
17244
17254

2293

2357«

1138¢
1134
2247«

012074
WRTOC
000020
=
XBA16
000040
=
XBA17

2218

22774

1019

1132
1092
2246%

WGTCT

2188

153

1012
2383

004222
003766
012212

001054

1675

1496

1000+«
2379«

TNPRO
TNPR1_
TOODLE

WCLEN

999

146

999+
2377«

2397

5434

965

1441

983
2376

2392«

WAIT2

1346

977
2375+«

2341

T33CLR
T34CLR
135
WAIT1

1333

2337

5464

513

1323

1573

565

001062

013104

131

1552

966+
2354«

TKB

TTOUT

1277

965+
2353«

2343

5484
5474

1%5?

2265

2342+

001
001

1231

17644
22454
5554
562

2341+

TPB
TPS

121

1193

562+

%2330
S45#

SEQ 0050

zggg.

012402

001060

1975

TiB

TKS

15:09 PAGE 52

CROSS REFERENCE TABLE == USER SYMBOLS
1138

SCOPEB
SCOPEC

20-MAY-83

1059
SCOPEA

MACY11 30(1046)

1416+

2339

2248

5193'
194

2196*
2197

1659

2346

1176«

2254

2272

1177«

1446
2252

2391+
22764

1471«
2257«

1472+
22794

1473

1535«

1536+

1539

1554«

1555+«

1558

1237

XCHKBU

20-MAY-83 15:04

4604

01215
002732
00

2260
929
9

2664
9284
9564

007612
007534

1690
1676

X3
¥4

003244
003442
003612

YESTR1
YESTR2
SCNTG
SCRLF
SENDAD
SENPAS
SMNEW
SMSWR
SQUEST
SREAD
STITLE

007
007610
012756

012764
007452
013017
01
012770
013011
012512
013035

= 015216

.EMPTY
.REST
-RET
.RETR
.SAV

013130
013174
013160
013202
013

538

162

2174

980
1015
1049

984
1020
10594

9904
10274

1677
1680
2345
2363
501
1658
2351
5347
372
2354
511

1679
1689+
24034

1688+«
16994

GO38

658
748
802
889
1095
1226
1351
1489
1644

2222
2434
2441
2439
2448
2447«

20-MAY-83

15:09 PAGE 53

SEQ 0051

CROSS REFERENCE TABLE == USER SYMBOLS

539

01421%

YESRT
YESTR

MACY11 30(1046)

015214

X INBUF
XLIST
X1
X2

CZDRBH.P11

CZDRBHO DR11-B/DA11-B NPR D

17004
16884

2458#

16984

2404N
1666#
24114
24074
24054
24094

26144

L9k

662
757
805
907
1101
1244
1365
1519
1647

2274
24384
24504
24468
24534
2450

497k

675
761
808
935
1105
1261
1368
1546
1656

2454N
2449
24554

5004

679
771
812
963
1122
1264
1377
1570
1694

24568

5024

692
774
815
997
1125
1267
1390
1571
1785

2458

5044

696
77
818
1034
1128
1290
1394
1591
1789

24594

5064

705
780
832
1062
1154
1293
1400
1597
1793

2460

S154

709
783
838
1066
1157
1297
1419
1600
1870

589

718
786
848
1069
1161
1300
1432
1603
2195

605

722
789
852
1074
1185
1317
1458
16
2198

621

3
792
861
1077
1187
1327
1459
1620
2206

634

735
796
865
1082
1206
1336
1461
1634
221

645

744
799
876
1085
1224
1340
1488
1639
2219

CZDRBHO DR11-B/DA11-B NPR DIA ~ MACY11 30(1046)

COMMEN
ENDCOM
ESCAPE
GETPRI
GE TSWR
MULT
NEWTST
POP
PUSH
REPORT
SETPRI
SETUP
SKIP
SLASH

STARS

1L
14
1L
1»
1»
14
1#
1
»
»
14
T#
1L
1

14
650
753
925

117N
1330
1466
1744
880
2035
SWRSU
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
$SESCA
SSNEWT
$$SKIP

.EQUAT
.HEADE
KT11
.SETUP
- SWRHI
.SACT1
.SAPTB
.SAPTH
.SAPTY
.SASTA
.S$CATC
.SCMTA
.$082D
.$DB20
.SDIV
. SEOP
.SERRO
.SERRT
LSMULT

2289

&
1
1L
1%
1L
1
1%
1L
1
14
%

1#
10
1L
1#
#
1#
14
14
%
1
14
10
T4
1%
14
%
14
#
1#

“1n
652
764
927

1190
1332
1492
1746
1905
2038
2301

4Lo14

466
667
766
953

1192
1343
1494
1760
1908
2063

2303

SEQ 0052

CROSS REFERENCE TABLE == MACRO NAMES

20~MAY-83 15:04

CZDRBH.P11

20-MAY-83 15:09 PAGE 55

518
669
821
955

1209
1345
1530
1762
1918
2066

2328

520
684
824
987

1%11
1357
1532
1774
1921
2080
2331

574
686
841
989

576
6
843
1024

2385

2387

1228
1360
1549
1776
1933
2083

1230
1371
1551
1807
1937
2095

595
701
855
1029

124
1373
1651
1809
1943
2098

2426

597
71
85
1056

1%69
1 8§
165
1818
1945
2116
2428

911
14
1 Sg

127
1394
1670
1820
1978
2120

613
725
70
1 98

1276
14
1672
1830
1980
2142

925
27
882
1090

1308
1408
1685
1832
1992
214

627
738
884
1135

1310
1438
1687
1848
1999
2181

637
740
96
1137

1320
1440
1704
1851
2015
2184

6
751
8
1169

1322
1464
1706
1876
2018
2287

CZDRBHO DR11-B/DA11-B NPR DIA

20-MAY-8315:04

20-MAY-83

i e

t T

b o

~
m

—

(.4

D o

-SRAND
-SRDDE
-SRDOC
AD

. ABS.

015216

ERRORS DETECTED:

000
0

CZDRBH ClDRBH/CRF/NL TOC/SOL=SYSMAC.SML,CZDRBH.P11
RUN-TIME:

8 10 .7

SECONDS

35Kk

(70 PAGES)

RUN-TIHE "RATIO: 59/20 2.8
CORE USED:

15:09 PAGE 56

CROSS REFERENCE TABLE == MACRO NAMES

T3 322222
2 £ 2 2 2
2 3

CZDRBH.P11

MACY11 30(1046)

SEQ 0053