Digital PDFs

AH-8669B-MC

September 1979

28 pages

Original

1.5MB

view download

OCR Version

1.2MB

view download

Document:	CZDRIB0 DR11A DR11A DEV REG TST SEP 1979 bw
Order Number:	AH-8669B-MC
Revision:	000
Pages:	28
Original Filename:	CZDRIB0__DR11A__DR11A_DEV_REG_TST__AH-8669B-MC__SEP_1979_bw.pdf

OCR Text

DR11A DEV REG TST

CZDRIBO

AH-8669B-MC

SEP 1979

PIOHE TOTT

VADETNTOSA

copvricHT 76-79

[TERED

LMAIN.

MACY11

«/DRIB.PIM

30A(1052)

06-MAR=79

O06-MAR-79

14:47

14:52

PAGE 2

SEQ 0001
.REM

P
3

5
6

IDENTIFICATION

PRODUCT

CODE:

AC-8668R-M(

PRODUCT NAME
:

CZDRIBO DR11A DEV REG

DATE :

MARCH 1979

MAINTAINER:

DIAGNOSTIC GROUP

[

TEST

20
21
22
52

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

25
26
27
gg

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

30
31
32
§2

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT [S NOT SUPPLIED BY
DIGITAL.

35
3.

LMAIN,

MACY11

{Z0RIB.P

30A(1052)

OQ€-MAR-79

06-MAR-79 14:47

14:52

PAGE 3

SEQ 0002

38
39

40
41

62
43

ABSTRACT
THIS IS A LOGIC TEST OF THE DR11A.
FOR THIS TEST
TO OPERATE A SPECIAL MAINTENANCE MODULE MUST BE CONNECTED

(M980).

THIS TEST WILL

CHECK UP TO 32 SEQUENTIAL DR11A'S.

THIS PROGRAM HAS BEEN RENAMED FROM D8L

L6
L7

REQUIREMENTS

TO DZDRI.

EQUIPMENT
PDP-11

STANDARD (OMPUTER

DR11A
M980 FOR EACH DR11A
STORAGE
PROGRAM STORAGE

FROM 0000 10 5000.

THE

ROUTINE

USES MEMORY

LOADING PROCEDURE
ME THOD
PROCEDURE

FOR NORMAL BINARY

TAPES

SHOULD BE

FOLLOWED.

STARTING PROCEDURE
CONTROL

SWITCH SETTING

STARTING AT SA 200 ALL SWITCHES SHOULD BE DOWN OR ZERO.
(IF NOT ZERO, BIT O TO 8 WILL BE STARTING VECTOR.)
STARTING ADDRESS OR ADDRESSES

(A)

200 = START OF

TEST

PROGRAM AND/OR OPERATOR ACTION

LOAD PROGRAM INTO MEMORY.
SET SWITCH REGISTER TO STARTING ADDRESS.
LOAD ADDRESS.
SET SWITCH REGISTER EQUAL TO FIRST DR11A

PRESS START.
THE PROGRAM WILL

STAY

INTERRUPT VECTOR.

IN SECTION AND LOOP.

IF SWITCH REGISTER EQUALS ZERO, 300 IS SELECTED AS THE VECTOR.
ON A RESTART, THE PREVIOUSLY SELECTED VECTOR WILL BE JSED.
OPERATING PROCEDURt
OPERATIONAL

SWITCH SETTINGS

LMAIN.

MACY11

(ZDRIB.P1

30A(1052)

06-MAR-79

06-MAR=-79 14:47

14:52

PAGE 4

SEQ 0003
5.1.1

122

AND LOGIC TEST,
PROGRAM WILL PRINT
IN TEST. (BELL
A PASS)

SWITCH SETTINGS ARE

SW15 = 1 OR UP ... HALT ON ERROR
SW14 = 1 OR UP ...

SWI13 = 1 OR UP ...
SW12 = 1 OR UP ...

SCOPE LOOP

INHIBIT PRINTOUT
INHIBIT TRACE TRAPPING

.1.3
SUBROUTINE ABSTRACTS

RV,

Y, |

SW11 = 1 OR UP ... INHIBIT ITERATION LOOP
SW8 TO O WILL BE USED AS VECTOR ADDRESS IF NOT ZERO.

2.1

(V.

BoomwOmwa—'ogg 15

b
D
D e
D
D wnd
d =D wed
d

b b od b d o e ed =d

b erd e

b -—

95
96
97
98
99
100
101
102
103
104
105

AT SA 200..THE INSTRUCTION
WITH ALL SWITCHES DOWN THE
OUT ON ERRORS AND CONTINUE
WILL RING AT COMPLETION OF

2.2

CGIN SA 200

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,

START OF

THE

SUBTEST

THAT

IT WILL JUMP TO THE

THE

SCOPE LOOP IS REQUESTED FOR.

HALT

IS A ROUTINE

THE

FAILING

TIME OF

THAT PRINTS-OUT AN ADDRESS THAT TAGS

SUSTEST,

AND

THE

INCORRECT

THE FAILURE.

DATA AT

THE

PROGRAM AND/OR OPERATOR ACTION

r\l—l—l_fi_fi—l—a—l—l

SRt
B v Sl

131

141

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,
UP TO LOCP ON ERROR,

THEN SW14

THEN SW13 UP TO DELETE PRINTOUTS.

ERRORS
ERROR PRINTOUT
ARE
THE

IN A FOUR WORD FORMAT.
THE
DETECTED ERROR.
THE 2ND IS

1ST IS THE P(+2 OF
THE PROCESSOR STATUS

ERROR RECOVERY

THE &4TH IS

MAIN,

MACY11

CZDRIB.P1

30A(1052)
O2-MAR-79
06-MAR=-79 14:47

14:52

PAGE

SEQ 0004

DEPRESS CONTINUE

TO RESTART

SECTION

N0 NN
S W

G
S
S
P

(VL IV, IV, LV IV, IV, IV, |

RESTRICTIONS

STARTING RESTRICTION
NONE
7.2

OPERATIONAL RESTRICTION
THE DR11A MUST HAVE
THIS TEST.

160

THE M980 MAINTENANCE MODULE

NOTE

THAT

THE

BELOW

STARTING AT

THEN ANY KL11

CALLED FOR

THEN ANY DP11

CALLED FCR.

THEN ANY DM11

CALLED FOR.

THEN ANY DN11

CALLED FOR.

THEN ANY DM11BB CALLED FOR.

THEN ANY DR11A CALLED FOR.

DR11A HAS FLOATING VECTORS:
THE

ASSIGNMENT

SEQUENCES ARE:

300 ALL

FLOATING

VECTORS,

ASSIGNED

(VvT05, vT06, LCT1T)

THE HIGH ADDRESS | IMIT AND PROCEED DOWNWARD.

767776 10 767770
767766 10 767760

DR11A #0
DR11A #1

767706 10 767700

DR11A #7

767606 TO 767600

DR11A #15

MISCELLANEOUS

EXECUTION TIME
FOR EACH DR11A ABOUT 2 MINUTES

UNTESTED LOGIC

THE

DC11'S WILL BE ASSIGNFD.

SPECIAL SYSTEMS SHOULD START THEIR ASSIGNMENT OF
DEVICES AT THE LOW ADDRESS LIMIT AND WORK UP.

8.2

TO RUN

USERS AND

SPECIAL

MAIN.
MACY11 30A(1052)
06-MAR-79
(ZDRIB.PN
06-MAR-79 14:47

14:52

b o —
)
D e
— e

SEQ 0005

THERE ARE

TWO FUNCTIONS NOT

TESTED.

PROGRAM DESCRIPTION
THIS PROGRAM WHEN STARTED AT 200 CHECKS THE SwITCH
REGISTER FOR ALL ZEROS, IF NOT ZERQOS THE BITS 0-8 ARE USED
AS THE FIRST VECTOR ADDRESS OF THE DR11A'S.

NN
NS W n —

[aV1,N1aV
1,V 1,8 1,8]1,8} no

205
206
207
208
209
210
2

PAGE 6

THE PROGRAM THEN PERFORMS AN INCREMENTAL
THE SELECTED DR11A.
THE

DATA REGISTER

TESTED

TO SEE

LGGIC CHECK FOR

"RESET'' CLEARS

IT WILL HOLD ALL COMBINATIONS OF NUMBERS.

THE

READ/WRITE BITS OF

THE

STATUS REGISTER ARE ALSO TESTED.

BOTH THE ''A'' AND "B'' INTERRUPTS ARE TESTED TO SEE
INTERRUPT AT

THE

CORRECT BUS REQUEST LEVEL BR-S.

ONE FULL TEST OF THE DR11A IS MADE WITH fHE
THE SECOND PASS IS MADE WITH THE T BIT ON.
AT

THE

END OF

THE

INCREMENTED BY 10,

BY 10.

SECOND PASS

THE

AND ADDRESS FOR RETESTING THE

DEVICE ADDRESS

FLOW CHART(S)

THERE ARE ANY MORE

SERIES OF

THE VECTOR

DK11A,

IF A POWER FAIL OCCURS THE PROGRAM WILL REPORT
AND RESTART AT THE BEGINNING OF THE >ROGRAM.

11.

THEY

AND THE VECTOR POINTER IS DECREMENTED

THEN A TEST IS MADE TO SEE

LISTING

T BIT OFF,

DR11A'S AND THE PROGRAM WILL RESTART AND RESET

10.

IT.

-MAIN.
MACY11 30A(1052)
0€~FAR=79
(/DRIB.P1
06~-MAR-79 14:4;

262
243
244
245

246

247
248
249
250
251
252
253
254
255

14:52

PAGE 7

SEQ 0006

;GENERAL REGISTER LOGIC TEST
177776

000240
104400
104000
177776
177570
167770

000002
000000
000006
009000
000012
000000
000016
000000
000022
000000
000026
000000
000032
000000
000036
000000
000042
000000
000046
000000
000052
000000
000056
000000
000062
000000
000066
000000
000072
000000
000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
000000
000132
006000

000136

STATUS=177776
NOP=240
SCOPE=104400
HLT=104000
CC=STATUS

SR=177570
(SR=167770

; TRAPPED

T0 PREVIOUS LOCATION

. TRAPPED

10 PFEVIOUS LOCATION

; TRAPPED

T PREVIOUS LOCATION

s TRAPPED

T0 PPEVIOUS

; TRAPPED

10 PRCVIOUS LOCATICN

: TRAPPED

T0 PREVIOUS LOCATION

s TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

LOCATION

: TRAPPED T0 PREVIOUS LOCATION
; TRAPPED

TO PREVIOUS LOCATION

; TRAPPED TO PREVIOUS LOCATION
; TRAPPED

TO PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED 10 PREVIOUS LOCATION
: TRAPPED T0 SREVIOUS LOCATION

; TRAPPED T0 PREVIOUS LOCATION
: TRAPPED

T0 PREVIOUS LOCATION

; TRAPPED

10 PREVIOUS LOCATION

s TRAPPED TO PREVIOUS LOCATION

; TRAPPED

TO PREVICUS LOCATION

: TRAPPED 10 PREVIOLS LOCAT]ON

: TRAPPED 10 PREVIOUS LOCATION
;TRAPPED T0 PREVIOUS LOCATION

-MAIN.
MACY11 30A(1052)
06=MAR-79
(ZDRIB.P11
06-MAR~79 14:47

000136
000140
000142
000144
000146
000750
000152
000154
000156
000160
000162
000164
000166
000170
000172

009000
0V0142
000000
000146
000000
000152
000000
000156

14:52

TAGE 8

SEQ 0007

HALT

; TRAPPED

T0 PREVIOUS LOCATION

HALT

; TRAPPED

T0 PREVIOUS LOCATION

;TRAI

7D T0 PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION
: TRAPPED

T0 PREVIOUS

LOCATION

; TRAPPED

TO PREVIOUS

LOCATION

. TRAPPED

T0 PREVIOUS LOCATICON

: TRAPPED

10 PREVIOUS LOCATION

; TRAPPED

TO PREVIOUS LOCATION

s TRAPPED

TM0 PREVIOUS LOCATION

s TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED 10 PREVIOUS LOCATION
: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED 10 PREVIOUS LOCATION
; TRAPPED TO PREVIOUS LOCATION
: TRAPPED 10 FREVIOUS LOCATION
s TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

10 PREVIOUS LOCATION

: TRAPPED

TO PREVIOUS LOCATION

s TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION

000312
000314

000316

: TRAPPED

T0 PREVIOUS LOCATION

. TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

10 PREVIOUS LOCATION

; TRAPPED

T0 PREVIOUS LGCATION

; TRAPPED

T0 PREVIOUS LOCATION

MAIN.
MACY11 30A(1052)
06=MAR-79
(ZDRIB.P11
06-MAR-79 "4:47

000316

000000
000322
000000
000326

14:52

PAGE 9
SEQ 0008
HALT

. TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

TO PREVIOUS LOCATION

; TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION
: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION
: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

; TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED

10 PREVIOUS LOCATION

; TRAPPED

TO PREVIOUS LOCATION

; TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED TO PREVIOUS LOCATION
; TRAPPED

10 PREVIOUS LOCATION

: TRAPPED TO PREVIOUS LOCATION
: TRAPPED T0 PREVIOUS LOCATION
s TRAPPED

T0 PREVIOUS LOCATION

; TRAPPED T0 PREVIOUS LOCATION
s TRAPPED

T0 PREVIOUS LOCATION

. TRAPPED T0 PREVIOUS LICATION

000474

000476

s TRAPPED

T0 PREVIOUS LOCATION

; TRAPPED

TO PREVIOUS LOCATION

s TRAPPED

10 PREVIOUS LOCATION

MAIN.
MACY11 30A(1052)
06=MAR-79
(ZDRIB.P11
06-MAR-79 14:47

410

612
613
414
415
416
L7

000500

000000
000502
000000
000506
000000
000512
000000
000516
000000

14:52

PAGE 10
HALT

SEQ 0009
; TRAPPED T0 PREVIOUS LOCATION
. TRAPPED

10 PREVIOUS LOCATION

: TRAPPED 10 PREVIOUS LOCATION
: TRAPPEL

10 PREVIOUS LOCATION

2 TRAPPED

T0 PREVIOUS LOCATION

s TRAPPED TO PREVIOUS LOCATION
; TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

TO PREVIOUS LOCATION

; TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED 10 PREVIOUS LOCATION
+ TRAPPED

T0 PREVIOUS LOCATION

; TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

; TRAPPED

10 PREVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED TO PREVIOUS LOCATION
: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION
; TRAPPED T0 PREVIOUS LOCATION
; TRAPPED T0 PREVIOUS LOCATION

; TRAPPED T0 PREVIOUS LOCATION
; TRAPPED T0 PREVIOUS LOCATION
s TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED 0 PREVIOUS LOCATICN

: TRAPPED 10 PREVIOUS LOCATION

000656

s TRAPPED

T0 PREVIQUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

-MAIN,
MACY11 30A(1052)
06=MAR-79
(ZDRIB.P11
06-MaR=-79 14:47

466
w67
468
469
470
74
672
473
474
475
476
44
478
479
480
481
4«82
483
484
485
486
4«87
488
489
490
49
492
493
494
495
496
497
498
499

000656
000650
000662

14:52

PAGE

SEQ 0010

000000
000662
000000
000666
000G90
000672

HALT

: TRAPPED

T0 PREVIOUS LOCATION

: TRAPPED

T0 PREVIOUS LOCATION

; TRAPPED T0 PREVIOUS LOCATION

s TRAPPED TO PREYVIOUS LOCATION
; TRAPPED

70 PREVIOUS LOCATION

; TRAPPED

TO PREVIOUS LOCATION

; TRAPPED TO PREVIOUS LOCATION
: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED

TO PREVIOUS LOCATION

: TRAPPED 70 PREVIOUS LOCATION
: TRAPPED 10 PREVIOUS LOCATION
: TRAPPED T0 PREVI0US LOCATION
s TRAPPED

TO PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION
. TRAPPED

T0 PREVIGUS LOCATION

: TRAPPED TO PREVIOUS LOCATION
: TRAPPED 10 PREVIOUS LOCATION
s TRAPPED T0 PREVICUS LOCATION

: TRAPPED TO PREVIOUS LOCATION
; TRAPPED T0 PREVIOUS LUCATION

3
=200V
NN
WO

TO PREVIOUS LOCATION

; TRAPPED T0 PREVIOUS LOCATiON

500
501
502
503
504
505
506
507
508

(AL LV, LV, [V, [V, IV, 1V, IV, [V, 1V.1V ]
PON) =t b b b b ed b b a

; TRAPPED

s TRAPPED T0 PREVIOUS LOCATION

000036

000030
003510
000340
004220
000340

000046

000046
003464

000030
000032

.=30

SCOPEC

340

. =46
$ENDAD

LMAIM,

MACY11

522
ggz

.
000052

000052
040000

5¢5
526
ggg

0002C0

00020¢
000167
001000

C(ZDRIB.P11

30A(1052)

O06-MAR-79

06-MAR-79 14:47

14:52

PAGE 12

SEQ 0011

.=52
40000
.=200
JMP
.=1000

000620

%%3

BEGINA

;THESE ADDRESSES AND VECTORS ARE MODIFIED BY THE PROGRAM.

531
$32
533
534
ggg

001000
001002
001004
001206
001010

167770
167772
167774
167773
167772

GRSTAT:
GRDIO:
GRDAI:
GRBHIO:
GRDAIO:

147770
167772
167774
167773
167772

;STATUS (DONE)
;DATA REGISTER
;FROM QUTSIDE WORLD TO DATA REGISTER
;HIGH BYTE OF DATA REGISTER
;DATA REGISTER

537
538
2}3

001012
001014
001016

000300
000302
000304

GRIVA:
GRIVSA:
GRIVB:

300
302
304

;INTERRUPT VECTOR OF UNIT UNDER TEST
s INTERRUPT STATUS ADDRESS
s INTERRUPT VECTOR

5641
542
222

001620
001022
001024

000000
000240

COUNT:
0
PL:
240
BEGINA:

gzg

sINITIALIZE ADDRESS AND VECTORS

547
548
549
550
551

001024
001030
001036
001042
001050

012706
012767
010667
012767
012767

004650
001202
003404
000012
000006

553
554
555

001062
001070
001076

012767
012767
012767

167770
167772
167774

559
560
561
562

001124
001126
001130
001134

552

556
557
558

001056

001104
001112
001120

001140
001142

005G67

012767
012767
013700
105700
001412
042700
010067

563
564
565
566
567
568
569
570
571
572
573
574
575

001202
001204
001212
001216

104400
016777
005077
012767

577

001232

000005

576

;COUNT LOCATION
JPRIORITY LEVEL

001146
001150
001154

001162
001170
001176

001224

005720
010067

(05720
010067
012767

012767
012767
012706

012767

002420

167773
167772
177570

17674C
176726

MoV
MOV
MoV
MoV
MOV

#BLFF , %6
#Bt GIN,RETURN
%6,SAVR6
#12,10
#6,4

177710
177704
177700

MoV
MOV
MoV

#CSR,GRSTAT
#CSR+2,GRDIO
#CSR+4,GRDAI

TSTB
BEQ
BIC
MoV

10
DR118B
#177000,%0
%0,DR11B+2

003236

177674
177670

177000
000016
000016
000016
000300

000302
000304
004650
177604
177576
000006

000100

177630
177624
177620

177600
176560

003036

CLR

MoV
MoV
MoV

TRP8

#CSR+3,GRBHIO
#CSR+2,GRDAIO
a4SR, 20

TST
(0)+
MGV
%20,DR11B+10
TST
(0)+
MOV
20.DR11B+16
DR11B:
MOV
#300,GRiVA
MCV
#302,GRIVSA
MOV
#304,GRIVB
DR11C:
MOV
NEJFF %6
:DOES RESET CLEAR REGISTER?
BEGIN:
SCOPE
MOV
GRIVSA,aGRIVA
CLR
aGRIVSA
MOv
w6, 4

MOV

RESET

#100. 1COUNT

;SET UP STACK
;SAVE OLD STACK ON OVERLAY
;FOR T TRAP
;FOR TIME OUT

FLAG

;VECTOR ADDRESS FROM SR
;IF ZERO USE 300 ON PREVIOUS VALUE
sUSE ONLY BIT 0 TG 8

sSET > FROM SWITCH REGISTER
;SET UP STA(CK

;SET UP FOR FALSE

INTERRUPT

;CLEAR DATA REGISTER

104000

001244
001246

592
593
594
595
596

104400

012767
012777
017700
022700
001401
104000
104400

012767
012777

177550

MOV

BEQ

HLT

004000
177777
177514
177777

000100
177777

00400
052525
177432
052525

SCOPE
MOV
MOV
MOV
CMP
BEQ
ALT

003C14
177520

SCOPE
MOV
MOV
RESET
TST
BEQ
HLT

002762

177466

SCOPE
MOV

002732

MOV

177436

MOV

P
BEQ
HLT

104400
012777
017700
022700
001401
104000

125252
1774606
125252

HLT

000340

176364

000140
177352
100340

177356

001432
001434

012777
017700
022700
001401
104000

001436
001440
001446
001454
001456
001462
001464

104400
012767
012777
000005
017700
001401
104000

001466

001470
001474

104400

005067
005067

SCOPE
MOV
MOV
CMP
BEQ

177412

052767
104400

;DATA REGISTER NOT CLEAR

sREGISTER NOT ZERO

177466

597

@dGRDAIO,
%0
.+

177316

002622
177324

SCOPE
MOV
MOV

177320

AGRDAIO

#4000,

;SHOULD

CLEAR REGISTER

aGRDIO.
X0

#52525.%0
.+

#125252,aGRDI0
aGRDIO0,
X0
#125252.%0
.+4

#10, 1COUNT
#1460, ACRSTAT

SCOPE
CLR
CLR

;SET DATA TO ALL ONES

] COUNT

SCOPE
MOV
MOY

RESET
MOV
BEQ

JREG WILL NOT HOLD ONES

#52525,3GRD10

CMP
BEQ
HLT

sALL ONES TO REGISTER

JREG FAILED TO CLEAR

#140,aGRSTAT
aGRSTAT.,
%0
#100340
. %0
.+4

HLT

002574

#100, 1COUNT
#-1.3GRDIO

; INTERRUPT ENABLE BIT TEST
BIS
#340,STATUS

000010
000140

#4000,
] COUNT
#-1,aGRDIO
AGRDIO,
X0
#-1,%0
T

AGRSTAT,
%0
.+4

1COUNT
COUNT

T-52525

(]

001242

017700

-4

001401

SEQ 0012

001234
001240

PAGE 13

578
579
580
581
582
583
584
585
586
587
588
589
590
591

14:52

MACY11 30A(1052)
-MAIN,
06~=MAR-/9
CZDRIB.P11
06-MAR=79 14:47

;DATA NOT=125252
sLOCK OUT INTERRUPTS
s INTERRUPT ENABLE FOR A+B
;ENABLE BITS PLUS READY BITS

sSET INTERRUPT ENABLE FLOPS
:CLEAR THOSE FLOPS
;TIST X OR
JRESET DID NOT

CLEAR

INTERRUPT ENABLE BITS

MAIN,
MACY11 30A(1052)
06=MAR-79
(ZDRIB.PN
06-MAR-79 4:47

634

001500
001506
001512
001516
001520
001522
001526
001530

016777
017700

177314
177270
177302

14:52

177302

PAGE 14

SEQ 0013
T1ST1:

177272

177777
177234
177230
177400

012767
104400

012777
105077
017700
022700
001401

177240

004000

002500

1772777
177202
177172

177202

HLT

000377

104400

CLR

177144

177134

177122
177104
177100
177107
177064

177100

104400

012767
005077
017777
01401

000340

176034

004000
177024
177022

002316
177016

aGRDIO,
X0
#377.,%0
.+

ICOUNT
COUNT
aGRDIO
aGRDIO
COUNT
SGQDIO.COUNT
P

COUNT
.+4
TST2

COUNT+1

MOV

CLR
ov
BEQ

(WORD)

;CLEAR LOW BYTE

;BYTE LOW FAILED TO CLEAR

:CLEAR HIGH BYTE

JHIGH BYTE CLEAR FAILED

s INCREMENT LOW ORDER BYTE
s INCREMENT REFERENCE BYTE COUNT

TSTB
BEQ
BR
BIS
SCOPE

;GOOD=COUNT, BAD=2X0

COUNT
aGRBHIO
aGRBHIO
+1
COUNT
GGQDIO.COUNT

cTEST EXTERNAL

sTEST FOR ALL NUMBERS

'127406 0

CLR
CLRB
INCB
INCB
(MP
BEQ
HLT

177071

000
052767

(LR
CLR
INCB
INCB
CMP
BEQ
HLY
TSTB
BEQ
BR

SCOPE

TST3:

#-1,aGRDIO
GPDIO
aGRDIO0, %0

#-1,aGRDIO
aGRBHIO

SCOPE

TST2:

COUNT
. +4
rsT

SCOPE
MOV
CLRB
MoV
HLT

177166
177144
177140
177152
177130

#4000, ICOUNT

002442

COUNT ,aGRDAIO
aGRDI0,%X0
XOzCOUNT

mMov

BEQ

104000

005067
005067
005077
105277
105267
027767
001401

MOV
MOV
MP
BEQ
HLY
INC
BEQ
BR
SCOPE
MOV
CLRB
MOV
cMP
BEQ

;BAD DATA IN DATA REGISTER

;s INCREMENT HIGH BYTE

;HIGH BYTE HAS BAD DATA

TST3
#340,STATUS
TRANSFERS =~ CABLE MUST BE

#6000, ICOUNT
aGRDIO
BGQDAI,BGRDIO
.t

CONNECTED

sTEST TRANSFER OF

ZERO

MAIN,
MACY11 30A(1052)
06=MAR-79
C(ZDRIB.P11
06=MAR-79 14:47

690
691
692
693
694
695
696
697

698
699
700
701
702
703

704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719

720
721
722
723
726
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745

001766
001770
001772
002000
002006
002014
002016
002020
002022
002026
002030

14:52

PAGE 15

104000
104400

012777

017777

022777
001401

177777
177000
177777

SCOPE

177002

MOV
MOV

176774
176766

cMp
BEQ
HLT

002242
176746
176744
176734

000762
1044C0

PICKED UP A BIT

HLT

104000

104400
005067

SEQ 0014

176740

TST6:

004000
176702
175672
002130
000100

032777
001001

000200

176656

002174

MOV
MOV

CMP
BEQ
HLT
INC
BEQ

176720

012767
005077
005067
012777
012777
105277
001375
000407

SCOPE
CLR
CLR

T1ST17:

176700
176660

#-1,3GRDIO
@GRDA] ,@GRDIO
#-1,3GRDI0

. +4

I COUNT
%0
%0,aGRDI0

aGRDA]I ,aGRDIO

005777
100401
104000

X0
1ST7

;ERROR - CHECK X0 FOR GOOD
:GRDIO FOR BAD

aGRDIO
TST6
#4000, 1COUNT
aGRDIO
STATUS

sTEST

INTERRUPT A

#100,aGRSTAT
SGQDIO

1ST8
176644

ABC(C:

#200,aGRDI0
.+4

176630

002176
000040
176614

176636
176612

TST8:

aGRDIO
#DEF ,aGRIVB

#40,3GRSTAT
aczafllo

JINTERRUPT A FAILED
;CHECK - WORD OR BYTE

sTEST

INTERRUPT B

1ST9
176600

DEF:

aGRDIO

000002

104400
005077
012777
005277
001375
005077

sTEST ALL NUMBERS

#AB(C,aGRIVA

104000
104400

;DROPPED A BIT

XOzBGRDIO

000002

005077
012777
012777
105277
001375
000406

MOV ALL ONES

:INTERRUPT B FAILED
s CHECK WORD OR BYTE

176564

000140
176552

176542

176554

1ST19:

aGRDIO
#140,aGRSTAT

aGRDIO

adGRSTAT

sTEST COMBINED INTERRUPTS

-MAIN,
MACY11 30A(1052)
06=MAR-79
CZDRIB.P11
06-MAR-79 14:47

746

002236

012777

002244
002246
002254
002269
002264
002266

104400

017777
017700
022700
001401

14:52

177777

176536

176532
176530
177777

176534

PAGE

MOV

#-1,aGRDIO

MOV
MOV
CMP
BEQ

aGRDAI ,aGRDAIO
aGRDAJO0,2%0
#-1,%0
A

JTEST DAg?Oggom BLACK 80X

104000

HLT

JREADY BIT

002270
002272
002276
002300

104400
005777
100401
104000

104400
105777
100401
104000
104400

CONNECTED)

JSTATIC LINES EQUAL ONES
;DATA REGISTER TO %0

JREG O SHOULD = ALL ONES

STATE

AGRSTAT

JTEST BIT 15
;NO READY BIT 0

JTEST BIT 7
:NO READY BIT A

;CAN WE RAISE INTERRUPT '‘ATM'
000340
004650
002354
000100

005977
016777

176420
176430

104400
012706
052767
012777
012777
042737
000240

004650
000340
002430
000040
000377

175426

SCOPE

175452

176424

175374
176406
176362
177776

176362

000340
002502
004650
000100
000100

176352
175326
176334

176310

176302

#340,STATUS
#BUFF
, %6

BIS

176454
176434

001014

104000

(NOT

AGRSTAT
.+

SCOPE
TSTB
8M]
HLT

176344

801

IN A ONE

TST
ami
HLT

176470

052767
012706
012777
012777
005067
000240

016777
042767
012777
012706
042777
052777
000240

SCOPE

176502

MoV
MOV
CLR
NOP
HLT

104000

002434
002442
002450
002456
002462
002470
002476
002500

SEQ 0015

TST4:

CLR
MOV

ATST4,aGRIVA
#100,aGRSTAT
STATUS

sTEST

FOR

AGRSTAT
GRIVSA,AGRIVA

MOV

BIC

BIS
NOP
HLT

;MOV

.+2

TO "A"" INTERRUPT VECTOR

#BUF
, %6
F
#340,STATUS

#7ST5,aGRIVB

#40,3GRSTAT

#377 ,a#STATUS
aGRSTAT

INTERR UPT FROM DEVICE
PL,aIVS

MOV
8IC
MoV

s INTERRUPT RETURN POINTER

s INTERRUPT ENABLE

;NO "'A"* INTERRUPT

JRAISE INTERRUPT

SCOPE
MOV
BIS
MOV
MOV
BIC
NOP
HLT
TSTS:
(LR
IVA=GR]IVA
CSR=GRSTAT
IVS=GRIVSA

cLOCK OUT INTERRUPTS

:NO B INTERRUPT

#340,STATUS

sPROCESSOR LEVEL ZERO

#BUFF ,26

sSTACK POINTER
sCLEAR INTERRUPT ENAGLE
sSET INTERRUPT ENABLE-~

#TINT1,alVA

#100,aCSR
#100,aCSR

sNO DEVICE

INTERRUPT OCCURED

MAIN,
MACY11 30A(1052)
06=-MAR-79
(ZDRIB.PY
06-MAR-79 14:47

002502

104400

002504
002512
002520
002526
002532
002540
002546
002550
002552
002554
002562
002570
002576
002602
002610
002616
002620

042767
052767
012777
012706
042777
052777
00240
104000
104400
042767
052767
012777
012706
042777
052777
000240

002622

104400

002674
002702
002710
002716

TINT1:
;TEST

000340
000040
002552
004650
000100
000100

TINT2:

000340
000100
002622
004650
000100
000100

052767
012777
012706

TINT3:

052777
042777
042777

BIC
BIS
NOP
HLT
SCOPE
8IC
8IS
MOV

#340,STATUS
#040,STATUS
#TINT2,@IVA
#BUFF ,26
#100,aCSR
#100,aCSR

sSET TO PRIORITY LEVEL 1
s INTERRUPT VECTOR ADDRESS
sSET UP STACK POINTER
sCLEAR INTERRUPT ENABLE
sSET INTERRUPT ENABLE-

;NO DEVICE INTERRUPT OCCURRED
#340,STATUS
#100,STATUS
#TINT3,QIVA

sSET TO PRIORITY LEVEL 2
s INTERRUPT VECTOR ADDRESS

#100,aCSR
#100.aCSR

;CLEAR INTERRUPT ENABLE
sSET INTERRUPT ENABLE-

W#BUFF ,X6

sSET UP STACK POINTER

sNO DEVICE INTERRUPT OCCURED

SCOPE

;TEST FOR INTERRUPT FROM THE DEVICE

000340
000140
002672
004650
000100
000100

BIC
BIS
MOV
MoV

TINT4:

000340
000200
002752
004650
000100
000100

175074
175066
176074

000100

176032

#340,STATUS
#140,STATUS

;SET "0 PRIORITY LEVEL 3

#BUFF %6

sSET UP STACK POINTER

#TINTS ,RIVA

#100,aCSR
#100,aCSR

s INTERRUPT

;CLEAR INTERRUPT ENABLE
;SET INTERRUPT ENABLE-

INTERRUPT FROM DEVICE

MOV
MoV

8IC
BIS
NOP
8IC
NOP
HLT
SCOPE

#340,STATUS
#200,STATUS

#TINTS5 ,aIVA

HBUFF , %6
#100,aCSR
#100,aCSR
#100,3CSR

cRAISE PROCESSOR PRIORITY TO LEVEL 4

s IN CASE OF INTERRUPT

sSET STACK POINTER
cCLEAR INTERRUPT ENABLE
;SET INTERRUPT ENABLE

JLET INTERRUPT OCCUR

sNO DEVICE INTERRUPT OCCURED

JTEST FOR NO INTERRUPT FROM DEVICE
BIS
MOV
MOV
BIS
BIC
8IC

75776
75770
75762
TINT6:

VECTOR ADDRESS

sNO DEVICE INTERRUPT OCCURED

SCOPE

8IC
BIS

176050
176042

75014
76022

BIC
8IS
NOP
HLT

sTEST FOR

TINTS:

000340
003022
004650
000100
000100
000100

INTERRUPT FROM THE DEVICE

BIC
BIS

BIC
BIS
NOP
HLT

104400

042767
052767
012777
012706
042777
052777
000240
042777
000240
104000
104400

FOR

MOV

104000

042767
052767
012777
012706
042777
052777
000240
104000

SCOPE

MOV
MOV

002666

002670
002672

SEQ 0016

—

002624
002632
002640
002646
002652
002660

PAGE 17

—d —d ad

802
803

14: 52

NOP
BR
HLT
SCOPE

(HIGHEST PROCESSOR PRIORITY)

#340,STATUS

sRAISE PROCESSOR PRIORITY TO HIGHFST LE.EL

#BUFF ,26
#100,aCSR
#100,aCSR
#100,aCSR

;IN_CASE OF

;SET STACK POINTER
;CLEAR INTERRUPT ENABLE

INTERRUPT

;DON'T LEAVE

IT SET

;WITH NO INTERRUPT, BRANCH OVER HALT

HTINT6,aIVA

s INTERRUPT OCCURED

14:52

s e

NN
NS
rodr

SEQ@ 0017

104000
104400

016777
005077
012767
005767
001452
012737
162767
162767
162767
162767
162767
062767
062767

003330
003336

062767
026727
001004
000137
016706
000240
005777
012767
000414

BIS

MOV
MOV

B8IC

NNW
O—=—
NOON

TINT7Z:

000340

000300

003162
004650
000100
000100
000100

174662
174654
175662

174606

001024
000010
000010
000010
000010
000010
000010
000010
000010
175504

000004

#100,aCSR

B8R

HLT
SCOPE

000334

000000
000316

000320

TO LEVEL

;DON'T LEAVE IT SET
;WITH NJ

INTERRUPT,

s INTERRUPT OCCURED

BRANCH OVER HALT

;RAISE PROCESSOR PRIORITY TO LEVEL 6
¢ IN CASE OF INTERRUPT
sSET STACK POINTER
:CLEAR INTERRUPT ENABLE
¢SET INTERRUPT ENABLE

BR
HLT
SCOPF
MOV
CLR

. +4

;WITH NO INTERRUPT, BRANCH OVER HALT

GRIVSA,aGRIVA
aGRIVA

sFOR FALSE

BELL

SUB
SUR
SuB
SuB
SuB
ADD
ADD
ADD
CMP
BNE

#10,GRSTAT
#10,GRSTAT+?2
#10,GRSTAT+4
#10,GRSTAT+6
#10,GRSTAT+10
#10,GRIVA
#10,GRIVSA
#10,GR]VB
GRIVA,
40
.+12

B8R

#BEGINA,a#4

S#BEGINA
SAVR6,
%6

aGRSTAT
APFAIL,24

SBELL

JBELL ON PASS COMPLETE
Moy

#207,@TDBR

BPL
MOV
TSTR

.~
#0,3TDRR
@TCSR

TSTR

;DON'T LEAVE IT SET
s INTERRUPT OCCURED

INTERRUPT

#YESRT,14
TRPS

8EQ

JMP
MOV
NOP
TST
MOV

174466

000207
000332

:IN CASE OF INTERRUPT
sSET STACK POINTER
:CLEAR INTERRUPT ENABLE
;SET INTERRUPT ENABLE

#TINT8,3IVA
#BUFF
, %6
#100,9CSR
#100,aCSR
#100,aCSR

MOV

175559
175544

#360,STATUS
#300,STAIUS

8ELL:

M
'0
100375
01
10

JRAISE PROCESSOR PRIORITY

MOV
MoV
BIC
BIS
BIC

MOV
TST

001024
001124
175450
004412

#TINT7,31VA
#BUFF
, %6

#100,aCSR
#100,aCSR

NOP

175616

003504
000270

#240,STATUS

8IS
BIC

BIC
BIS

TINT8:

175622
175612

#340,STATUS

JTEST FOR NO INTERRUPT FROM DEVICE

175636
175630
175622

003340
003340
003346
003352
003354
003362

JTEST FOSI?O INTERRUPT FROM DEVICE

NOP

104000
104400

042767
052767
012777
012706
042777
052777
042777
000240
000401

PAGE 18

wviwawv

000340
000240
003102
004650
000100
000100
000100

— el
NNN

042767
052767
012777
012706
042777
052777
042777
000240
000401

— b
NNW

MAIN,
MACY11 30A(105 2)
06-MAR-79
(ZDRIB.P1
06-MAR-7 9 14:47

aTC(SR

;GO TO BEGIN ON TIME CUT

s CHANGE TO LAST VECTOR FOR OVERLAY

JRESTORE OLD STACK
;CHANGE TO RTI ON OVERLAY
sTIME OUT IF NON EXISTENT-RESTART PROGRAM

;FOR POWER FAIL

SET UP

MAIN.
MACY11 30A(1052)
O0€-MAR-79
CZDRIB.P11
06=-MAR=79 14:47
914

915

916
917
918
919
920
921
gg%

003366

003370

003376
003400
003402
003410
003412
003420

100375

012767

006701
000240
012767
000403
012767
(C12767

003426
003430
003436
003440
003444

005046
032767
001016
005167
100003

931
932
933

003452
003454
003460

000410
013700
001405

935
936
937
938
939
940
91
942
93
944
945
946
947
948
949
950
951
952
953
954
955
956

003464
003466
003470
003472
003474
003500
003502
003504
003504

004710
000240
000240
000240
012746
000002
000000
020002
000000

003510
003516
003520
003522
003526
003532
(03534
003540
003542
003550
003554

036727
001401
000002
012667
012467
024646
105777
100375
012777
105777
100375

958
959
90

003564
003570
003572

S3,

957

961

962

964
95
9%6
9%7
98
969

003412

174412

000006

000074

000002
000012

000064
174362

PAGE

003446

003462

003556

003576

003602

003606

003612
003616
003624
003630
003632
003636

012716

010000

174132

000036

000020

MOV

6701
NOP
MOV
BR
BEG20:
MOV
BEGANY: MOV

BR
MOV
BEQ
$ENDAD:

001202

020000

003160
000156

000144
000132

012777

000212

000116

010367

000076
000074

016702

000074

010467

004767
012777
105777
100375
016702
004767

000114

000072

000074
000240
000054
000052
000050

;SET UP RESERVED INSTRUCTION

#6,YESRT
BE GANY
#2,YESRT
#12.10

;NO TRAP,

:ATTEMPT TO EXECUYE SIGN EXTEND

RESET

JSR
NOP
NOP

#20, (6)

YESTR1
aré2.RO
YESTR]

PROCESSOR IS NO =20

: TRAP OCCURED
RESTORE HALT FOR RESERVED
TRAP

;SET TRACE TRAP

7. (RO)

YESTR1:
#BEGIN,~(6)
JSTART OF TEST WITH TRACE ON
YESTR2: RTI
TRPB:
0
YESRT:
RTI]
JRETURN TO PROGRAM FROM TRAP
HAL T
SRTI FAILED
;ENTERED WITH SYSTEM TRAP CALL(HLT)
JPRINT OUT THE FRROR PC AND STATUS REGISTER
PRINT:
BIT
SR, 420000
;TEST FOR INHIBIT PRINT OUT
BEQ
.+
*BRANCH TO PRINT
RT]
JINHIBIT, RETURN TO MAIN STREAM
MOV
(6)+,SAVPL
;PC OF FAILING ROUTINE
MCV
(6)+,5AV(CC
;CC OF ERROR CONDITION
CMP
-(6),~-(6)
JREPOSITION THE STACK
TSTB
aT(SR
‘WAIT FOR FLAG
BPL
=4
*IF NOT UP.
MOV
#215,aTDBR
“CR
TSTB
Q@TCSR
BPL
<4

MOV

#212 ,aTDBR

;LINE FEED

MOV

¥3.SAVR3

:SAVE R?
:SAVE R3

TSTB
BPL
MOV

TTTTT~wgy

aTCSR
.~
X2.SAVR?

%4 . SAVRG

MOV S~ SAVPC,
%2

000056

INC

TRAP TO BE RUN WITH PROGRAM

NOP
MOV

000215
000130

105777
100375
010267

#8£G20.,10

TO CHECK FOR TRACE

MOV

000005

SEQ 0018

;SAVE OLD CONTENTS, SET UP FOR TRACE
YESTR:
CLR
-(6)
BIT
#10000,
SR
BNE
YFSTR1
CoM
TRP8
8PL
.+10

000042

174054

19
8PL

SBELL:

JROUTINE

924
925
926
927
928
929

930

14:52

JSR
MOV
TSTB
BPL
MOV
JSR

%7 .PRTAB
#240,3TDBR
QTCSR
.4
SAV(CC,X2
X7 ,PRTAR

*SAVE R4

;PRINT OCTAL NUMBER
:SPACE BETWEEN WORDS
JPRINT OCTAL NUMBER

MAIN. MACY11 30A(1052)
06=MAR-79
CZDRIB.P11
06=MAR=79 14:47

14:52

PAGE 20

SEQ 0019

970
g;;

003642
003646

004767
016702

000472
000022

JSR
Mov

47 ,MOREID
SAVR2,%2

973
974
975
976
977

003652
003656
003662
003666
003670

016703
016704
005767
100001
000000

000020
000016
173702

MOV
Mov
TST
BPL
HALT

SAVR3,
%3
, %4
SAVRSG

980
981
982
983
984
985
ggg

003674
003676
003700
003702
003704
003706
003710

000000
000000
000000
177566
177564
000000
C00000

988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1C03
1004
1005
1006
1007

003712
003716
003722
003726
003734
003742
003750
003754
003756
003760
003762
003770
003772
004000
004004
004010
004014
004020
004022
004030

005067
005067
012704
012767
012767
012767
105777
100375
005702
100404
012777
000403
012777
016703
010267
005167
046703
001410
066767
005267

1008
1009
1010
1011
1012
1013
1014

1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025

003672

004034
004040
004042
004050
004054
004062
004066

004072
004076
004100
004104
004112
004114
004116
004120
004126
004132
004134

000002

026703
001370
062767
016724
066767
005067
005067

005367
001410
012703
066767
005303
001373
000730
012767
105777
100375
014477

SAYR2:
SAVR3:
. SAVR4:
TDBR:
TCSR:
SAVPC:
SAVCC:
000252
000244
004174
000005
000007
000001
177730

PRTAB:
000236
000220
000214

000260

177712

000261

177702

000156
090150
000144
000140

000136
000134

000136

WAIT1:

MINUS:
STAR:

MKNUM:

000126

000260
000114
000102
000100
000076
000074

000003
000052

000005
177552
177542

000120

WRTCC:

000102

000050

000044

MOADD:

XLIST:
WAIT2:

0
0
0
177566
177564
0
O
(LR
CLR
MoV
MOV
MoV
MOV
TSTB
BPL
TST
BMI
MoV
BR
MOV
MOV
MOV
coM
BIC
BEQ
ADD
INC

CMP
BNE
ADD
MOV
ADD
CLR
CLR

DEC
BEQ
MOV
ADD
DEC
BNE
BR
MoV
TSTB
BPL
MOv

¢TEST FOR HALT SWITCH
sHALT ON ERROR SET
¢cRETURN TO MAIN STREAM

RTI

g;g

sDEVICE ADDRESS AND VECTORS
sRESTORE REGISTERS

BINCT
WGTCT
#LIST %4
#5 ,ASCNT
#7,SEVEN
#1,DECML
aTCSR
WAIT]

MINUS
#260,3TDBR
STAR

#261,aTDBR
SEVEN,Z3
%2,TOODLE
TOODLE

TOODLE,
%3

WRTOC
DECML ,WGTCT

BINCT
WGTCT,%3

MKNUM

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

BINCT
ASCNT

:DATA
:STATUS

cGET LIST ADDRESS

sNEG SIGN PRINT 1
:PCS SIGN PRINT 0

sPUT MASK IN R3
;GET READY TO DOODLE NUMBER IN TOODLE
s COMPENSATES FOR COMPLEMENT DURING BIC
¢cAND IN OCTAL CHARACTER

¢ZERO,WRITE O IN LIST
+COUNT UP TO
sAND RECORD

:SAME BINARY WEIGHT
+KEEP COUNTN
¢ADD ASCII PREFIX
sWRITE ASCII CHAR IN LIST
sEXPAND BINARY WEIGHT

:5 CHAR IN LIST
;SET X3 FOR_ADD LOOP

¢MAKING SEVENTY BY SEVEN

MOADD
STAR
#5,ASCNT
aTCSR

WAIT2

-(4) ,aTDBR

+NX SEVEN SET GET NX OCTAL
2SEND 5 CHAR TO TTY

MACY1: 30A(1052)
-MAIN,
06=MAR-79
CZDRIB L1
06=-MAR=-79 14:47

1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047

004140
004144
004146

005367

001401
000767
105777
100375

004150
004154
004156
004160
004162
004164
004166
004170
004172
004174
004176
004200
004202
004204

000207
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

004206
004210
004214

022606
012667
000177

004220
004226
004230
004236
004240
004246
004250
004254
004256
004262
004266
004270
004272
004274
004276

032767
001367
032767
001011
026767
001403

005267

000754
005067
011667
000002
004000
000000
001202
000167

000207
000277
000207
004767
000207

000207

012777
105777
100375

14:52

PAGE 21

SEQ 0020

000026

DEC
BEQ
BR

177530

ASCNT
HDFHM

JFINISH PRINTING GET NXT NUM

WAITZ2

HDFHM:

TSTB aT(SR
=4
BPL
RTS
X7
TOODLE: O
SEVEN:
O
DECML:
O
WGTCT:
O
BINCT:
9
ASCNT:
O
LIST:
0
0
0

;HEAD FOR HOME

;SCOPE LOOP ROUTINE ENTERED BY USER TRAP

SCOPER:

CMP
MOV
JMP

.SCOPE OR/AND

040000

173342

SCOPEC: BIT

004000

173332

000026

000022

000010
000006

;SCOPE RETURN

ITERATION LOOP FOR EACH TEST 4000 TIMES

JTEST SR FOR SCOPE

BIT
BNE

#4000, SR
SCOPEA

JNO - TEST FOR ITERATION
JINHIBIT ITERATION

BEQ
INC

SCOPEG
SCOPEF

JEXIT - DONE
s INCREMENT COUNT

cMP

SCOPEG:
SCOPEA:

<REPOS]ITION THE STACK

#40000,SR

B8NE

000016

(6)+,%6
(6)+,(CC
aRETURN

B8R

CLR
MOV
RT]

SCOPER

;YES SCOPE

SCOPEF
, ICOUNT

SCOPEBR

.LOOP SOME MORE

SCOPEF
a%6 ,RETURN

JCLEAR COUNT
;SAVE SCOPE RETURN POINTER
JRETURN INL INE-NEXT TEST

ICOUNT: 4000
SCOPEF: O

RETURN:

173676

BEGIN

JMP

cCOUNT LOCATION FOR
;ADDRESS OF

200

;GROUP OF NESTED SUBROUTINES

SUBR1:
SUBR2:
177770

SUBR3:

177766

SUBRS4:

177766

SUBR5:

177766

SUBRG:

000240

177332

177334

JPRINT

RTS
SCC
RTS
JSR
RTS

RTS

Y¥4

RTS
JSK
RTS

X7
X7,SUBRS
X7

JSR

DEVICE

MOREID: MOV

TSTB

8PL

¥4
%7,SUBR2
X7

JONE INSTRUCTION
;ONE DEEP
;TWO DEEP

%7 .,SUBR3

. THREE DEEP

%7 .,SUBR4

;FOUR DEEP

ADDRESS AND

#240,aTDBR
aT(5R

;FIVE DEEP
VE(CTOR

LAST

ITERATION LOOP

TEST

MACY11 30A(1052)
MAIN,
06=MAR-79
C7DRIB P11
06-MAR-79 14:47

1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092

1093

W)
=

W= O VOO NOWNEBUWN 2OV NONEBWNI=OVON
NOMWN

—r
D ed oD e
D ) ed e e e
— ed D cd ad e ed wd end d d D

d e
) e

e e
b D

) ) ) wd
) ed e e

D
D

)
)

D e —ad
) e

D
D

D D
) e

d
)

D
)

)
b

d D d =D
) e e d

)
D

b
b

1100

004354
004360
004364

016702
004767
012777

174420
177326
000240

004372
004376
004400
004404
004410

105777
100375
016702
004767
000207

177306

14:52

PAGE 22
MOV

GRSTAT
X2

MOV

#240,QTDBR

TSR
8PL
MOV

aTCSR
.~
GRIVA,L%2

RTS

r ¥4

JSR

177310

174406
177302

SEQ 0021

JSR

X7 .PRTAR

%7 .PRTAB

;BACK TO PRINT

JENTER HERE OR POWER FAIL
004412
004414
004416
004420
004422
004424
004426
004432
004436
004444
004446
004450
004454
004460
004462
004464
004466
004470
004472
004474
004476
004502

010046
010146
010246
010346
010446
010546
016746
010667

004504

125252

004506
004510

004504
052525

004514
004516
004520
004522
004524

004514

PFAIL:

173372
000010
004450

173360
SAVR6:

004536
004540

004536
000000
004536

(6)+,%5
(6)+,2%4
(6)+,%3
(6)+,%2
(6)+,X1
(6)+,20

HLT
JMP
RT]

SAVR6,%6
(6)+,24

BEGIN

8:
125252
JFIXED VALUES FOR USE IN TEST

B8
052525

.=B+10

.TA+4

000000
004526

MOV
MOV
MOV
MOV
MOV
MOV

174500

004520

004526
004530

21.-(6)
22,-(6)
X3,-(6)
X4,-(6)
%5,-(6)
24 ,~(6)
%6.SAVRS
#RESTART,
24

RESTART :MOV
MOV

004524
052525

%0,-(6)

MOV
MOV
MOV
MOv
MOV
MOV
MOV
MOV
HALT
O

177772
173344

177777
004520

125252

MOV

;SAVE

;STORE

STACK POSITION

;WHEN POWERING DOWN

cHALT ON POWER DOWN NCRMAL
JSTACK IS SAVED HERE
JRESTORE REGISTER OFF STACK
;WHEN POWERING UP

;POWER FAIL

OCCURRED

cRETURN TO MAIN LINE

;ADDRESS OF B

-1

A+

125252
A+10

052525

;ADDRESS OF A+10

éFOR STogAGE

.=C+10

TEMP:

TEMP

;ADDRESS OF

(

;ADDRESS OF

TEMP

MAIN,
MACY11 30A(1052)
06=-MAR-79
CZDRIB P11
06-MAR-79 14:47
o F NV

004650
004650

AN
=2 OO

004544

F ol 2 ¥ ¥

b
d

e
—

b md e

1138

546

004544
004546
000000
004650
000000
000001

14:52

PAGE 23
SEQ 0022

.=TEMP+6
D:

TEMP+10

’
;ADDRESS OF TEMP+10 OR ‘D'

BUFF:
FIN:

JBUFFER FOR SP

.=.+100

.END

MAIN.
MACY11 30A(1052)
O0Q6-MAR-79
CZDRIB.P11
06=IMAR~79 14:47
A
ABC
ASCNT
B
BEGANY
BEGIN
BEGINA
BEG2O
BELL
BINCT
BUFF
C
cC
=
COUNT
(SR
=

004514
002130
004172
004504
003420
001202
001024
003412
003340
004170
004650
004526
177776
001020
001000

004546

DECML
DEF
DR11B
DR11C
FIN

004164
002176
001154
001176
004650

GRDAI
GRDAIO
GRDIO

001004
001010
001002

GRBHIO

GRIVA
GRIVB
GRIVSA
GRSTAT

001006

001012
001016
001014
001000

HOFHM
004150
HLT
= 104000

ICOUNT
IVA
1VS
=
LIST

004270
001012
001014
004174

14:52
PAGE 25
CROSS REFERENCE

11234
716
9G1x
11174
919
548
526
915
888
988+
547
1131#
2484
5414
2504
829+
879+

1124
7224
1015+
1119
9214
S72N
5434
9204
9074
1007«
570
1132
1040~
633
553
830+

993«
729
560
S70#
11434

1006
7354
562«

533
535#
532#

555«
557
§54»

11404

S534H

652+
704

S37#
5394
5384
S31a
777+

1027
247N

690
832
576%
7894
791#
990

10384

939
889

1063
900

1114

1010+
770
1134

1011
781

1014+
797

10374
808

639«

661«
557
85«

556
843+

004412
001022
003510
003712
(004450
(04274

904
542
513
264
1102
548«

10944
794
9464
969
11054
1047

817

828

839

850

863

876

114204

664

665

668

672+

675+

679

852+

853«

676
818+

645
703+

7904

798«

7C9«
864

809+
865«

810~
866+

877~

819+
878+

564
731
749
749%

602+«

728«
778~
791

891«
613

1113

632«
838«

10794

968
963
971

SEQ 0023

1012+

697
845
585«
796+
79
10394

PFAIL
PL
PRINT
PRTAB
RESTAR
RETURN

950 «
949+
960+

1026+

10304
581

10004
1009
1020

003710
(003706
003674

1022+
1122

567
569+
568+
553«
784>

997
10064
10184

SAVCC
SAVPC
SAVRZ2

1128

654
709«

003772
004022
004104

970
2454

1126

634
554
840+

TABLE =-- USER SYMBOLS

556+

MINUS
MKNUM
MOADD

MOREID
004340
NOP
= 000240

9884

1083

1059+
9864
9854
9804

10634

1089

609~
688+

635
694+

643+

741

610
693«
743

885+

895+

898

1088

896+
730~
893«

894»

742+

745
903

758
1082

763

772+

629
765

638

648
787

657
801

667
812

678
821

660+
862+

686+
875

700«

713

1054

10614

884+

775

746%

695

702+

MACY11 30A(1052)
06=MAR-79
-MAIN,
CZORIB P11
06-MAR-79 14:47

SAVR3

14:52

003676
003700
004446
003370

961«
962+
549+
905

973
974
901
9154

004262
004206
004220
004272
004256
004162

685
823
1053
10454
515
1054
1055
992+«

692
833
10594
1051
10504
1056+
10584
1001

004000

999

10014

004302
004304
004310
004316
004324
004332
003704
003702
14536
002502
002552
002622
002672
002752
003022
003102
003162
004160
003502

815+
10674
10684
10704
10724
10744
10764
910
909+
11354
796
807
816
827
838
849
862
875
1002«
552+

825+

001636
TST3
001702
TST4
002354
TSTS
002430
TST6
002030
TS17
002074
TST8
002146
TST9
002212
WAIT1
003750
WAIT2
004126
WwGTCT
004166
WRTOC
004042
XLIST
004120
YESRT
003504
YESTR
003426
YESTR1
003474
YESTR?
003500
$ENDAD
003464
= 004652

6634
6740
771
783
7024
708
720
733
994 ¥
10234
989«
1005
1016
886
9254
927
9404
520
251

SAVRS
SAVR6
SBELL

SCOPE

= 104400

SCOPEA
SCOPEB
SCOPEC
SCOPEF
SCOPEG
SEVEN
=
SR
STAR
STATUS =

SUBR1
SUBRZ2
SUBR3
SUBR4
SUBRS
SUBR6
TCSR
TDBR
TEMP
TINT

TINT?
TINT3
TINTS
TINTS
TINT6
TINT?
TINT8

TOODLE
TRPB

Toa?
TST?2

177570

177776

001500

246

244

634n

572

558

248

PAGE 26

CROSS REFERENCE

TABLE =-- USER SYMBOLS

0814
9824
1101«

11044

1105

584
€99

592
712

600
727
870

846

357

608

740

616

SEQ 0024

623

631

642

651

787

785+
873+

795+«
874

8C5+

1030
1079+

1089
1084+

1086

269

273

883

762

768

780

659
802

1057
1058+

10624

101<
926
1C2?
615~
826+

1018«
946

10344
975

682+
836«

837«

848+

860~

952
954«
1138

955
957~
1139

958
965+«

966

9834

9844
998+

1004
928+

10334
914

1028
1008

1013«

920«

9424

933

9394

255

257

261

263

715+

1350

1052

769+

773+

861

814

1070
1072
1074
1076
913
912+
1136
8024

8i3#
8234

8334

8464
8564
g5
8824
1003~
887

641

670
681
777H
788#
710
7144
7284
7614
995
1024
1006+
10104
10224
918+
931

9354

253

10364

259

2€5

267

275

MAIN.
MACY11 30A(1052)
O06-MAR-79
CZDRIB.P11
06-MAR-79 14:47

277
303
329
355
381

407
433
459

M 2
14:52
PAGE 27
CROSS REFERENCE TABLE == USER SYMBOLS

279
305
33
357
383

409
435
461

485
5224
656

487
5254
666

959

967

752

759

281
307
333
359
385

411
437
463

4,89
5274
669
764

976

283
309
335
361
387

413
439
465

491
579
677
855

1031

285
311
337
363
389

415
441
467

287
313
339
365
391

417
443
469

493
589
680

495
597
689

1081

1087

868

881

289
315
341
367
393

419
445
671

497
605
696
899

11224

SEQ CO25

291
317
343
369
395

421
447
473

293
319
345
371
397

423
449
475

499
612
705

501
620
719

11264

1134a

911

914

295
321
347
373
399

425
451
477

503
628
723

929

113824

297
323
349
37<
401

299
325
351
377
403

427
453
479

429
455

947

953

505
637
732

11414

481

5124
640
736

301
327
353
379
405
431
457
483

5194
647
744
956

-MAIN.
MACY11 30A(1052)
06-MAR-79
CZDRIB.P11
06-MAR-79 14:47
COMMEN
ENDCOM
ESCAPE
GETPRI]
GE TSWR
MULT
NEWTST
POP
PUSH
REPORT

SETPRI
SETUP
SKIP
SLASH
STARS
SWRSU

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$3IFSCA
SSNEWT
$ISKIP
.EQUAT
-HEADE
KT
.SETUP
.SWRHI
.SACT1
.$APTB
.$APTH
.$APTY
.$ASTA
.$CATC
.SCMTA
.$D82D

. $DB20

.S01V
.$EOP
.$ERRO
.SERRT
LSMULT
. SPOWE
. SRAND
. SRDDE
. $RDOC
. SREAD
.SR2AZ
. $SAVE
.$582D
. $5820
.$SC0P
.$SIZE

14:52
PAGE 29
CROSS REFERENCE

TABLE =-- MACRO NAMES

SEQ 0026

MAIN.

MACY11 30A(1052)

CZDRIB.PN

-$SUPR
-STRAP
.$TYPB
STYPD
.STYPE
.STYPO
.$40CA
1170
. ABS.

O06-MAR-79

06-MAR=79 14:47

14:52

PAGE 30

)L
1%
1#

14
4

000

ERRORS DETECTED:

CZDRIB.BIN, CZDRIB SEQ/CRF/SOL/NL: TOC=SYSMAC.SML,CZDRIB.P11
RUN-TIME: 8 9

.4 SECONDS

RUN-TIME RATIO: 359/18=19.8
CORE USED:
31K
(61 PAGES)

CROSS REFERENCE TABLE == MACRO NAMES

14
14

004652

SEQ 0027