Digital PDFs

AH-8669B-MC

September 1979

28 pages

Original

13MB

view download

OCR Version

16MB

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_gray.pdf

OCR Text

DR11A DEV REG TST

CZDRIBO

AH-8669B-MC

SEP 1979

PIOHE TOTT

VADETNTOSA

copvricHT 76-79

[TERED

14:52

PAGE 2

SEQ 0001

W NN

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

.REM

AC-8668B8-M(

d o

PRODUCT NAME:

CZDRIBO DR11A DEV REG TEST

DATE :

MARCH 1979

MAINTAINER:

DIAGNOSTIC GROUP

—

PRODUCT CODE:

D e

IDENTIFICATION

SR ele RNTe NV, PAWILEETalols[ ENTe XV,

lan
I
~N

CY11

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

SOF TWARE DESCRIBED

IN THIS DOCUMENT

IS FURNISHED UNDER A LICENSE

éfi[c)Hflf}nglgz BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?G?gkiABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

(C)

1976,1979 BY DIGITAL EQUIPMENT CORPORATION

MAYNARD ,MASSACHUSETTS

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

14:52

PAGE 3

SEQ 0002

38
39

40
41

ABSTRACT

¥glgpégA?eL26§£EE§il g:IL?ENRZEgAfiODsgg ST 5gsgo-5crfo

«2
43

(M980).

Gk
45

THIS TEST WILL CHECK UP TO 32 SEQUENTIAL DRT1A’S.

THIS PROGRAM HAS BEEN RENAMED FROM D8L

TO DZDRI.

REQUIREMENTS

EQUIPMENT
PDP=11

STANDARD COMPUTER

DR11A
M980 FOR EACH DR11A

2.2

STORAGE

2.2.1

PROGRAM STORAGE

= THE ROUTINE USES MEMORY

FROM 0000 10 5000.

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

4.2

STARTING ADDRESS OR ADDRESSES

(A)
4.3

STARTING VECTOR.)

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 INTERRUPT VECTOR.

PRESS START.
THE PROGRAM WILL STAY IN SECTION_AND LOOP.

IF SWITCH REGISTER EQUALS ZERO, 300 IS SELECTED AS THE VECTOR.
ON A RESTART, THE PREVIOUSLY SELECTED VECTOR WILL BE USED.

OPERATING PROCEDURE
OPERATIONAL

SWITCH SETTINGS

LMAIN,
MACYN 30A(1052)
%-MR- 79
CZDRIB.P1
06-MAR-79 4:47

14:52

PAGE 4

5.1.1

SEQ 0003

AT SA 200,.THE INSTRUCTION AND LOGIC TEST.
WITH ALL SWITCHES DOWN THE PROGRAM WILL PRINT
OUT ON ERRORS AND CONTINUE IN TEST. (BELL

WILL RING AT COMPLETION OF A PASS)

5.1.2

SWITCH SETTINGS ARE

= OV NOWVNSWN=0OV0

—

)

) e

D —d

SW15 = 1
SW14 = 1
SW13 = 1
SW12 = 1
SW11 =1
SW8 TO O

OR UP ... HALT ON ERROR
OR UP ... SCOPE LOOP
OR UP ... INHIBIT PRINTOUT
OR UP ... INHIBIT TRACE TRAPPING
OR UP ... INHIBIT ITERATION LOOP
WILL BE USED AS VECTOR ADDRESS IF NOT ZERO.

5.1.5

5.2

SUBROUTINE ABSTRACTS

5.2.1

BEGIN SA 200

5.2.2

SCOPE
THIS SUBROUTINE

CALL

IS PLACED BETWEEN EACH SUBTEST

IN THE INSTRUCTION SECTION.

IT RECORDS THE STARTING

ADDRESS OF EACH SUB-TEST AS IT

IF A SCOPE LOOP IS REQUESTED,

START OF

3.4.3

IS BEING ENTERED.

IT WILL JUMP TO THE

THE SUBTEST THAT THE SCOPE LOOP IS REQUESTED FOR.

HALT

IS A ROUTINE THAT PRINTS-OUT AN ADDRESS THAT TAGS

THE

FAILING SUBTEST,

TIME OF

::_a_n_a_a_n_.—l_a

SOUEHIERRUK

131

THE FAILURE.

AND

THE

INCORRECT DATA AT

THE

5.3

PROGRAM AND/OR OPERATOR ACTION

.31

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.

ERRORS
ERROR PRINTOUT
ARE IN A FOUR WORD FORMAT.
THE 1ST IS THE PC+2 OF
THE DETECTED ERROR.
THE 2ND IS THE PROCESSOR STATUS
REGISTER.
THE 3RD IS DEVICE ADDRESS.
THE 4TH IS

VECTOR ADDRESS.

6.2

ERROR RECOVERY

14:52

—Ad—l—.-—l—l—l-—l—l_l—l.-l—‘—.—l—‘—l—‘—.—l_‘-—l_‘—l—l—-l-fl—.—.—l—‘—‘a‘—‘—. (VL IV IV IV IV, IV IV TV (P

R IIINININIITEFRERS Vo ls RNTe NV, J W] G (@ 2¥s)

LMAIN.
MACY11 30A(1052) 06;MAR-79
CZDRIB.P11
06=-MAR-79
1

PAGE 5

SEQ 0004

—

DEPRESS CONTINUE TO RESTART SECTION

—

RESTRICTIONS

STARTING RESTRICTION

NONE

S JE

OPERATIONAL RESTRICTION
THE

DR11A MUST HAVE

THIS TEST.

NOTE

THE M980 MAINTENANCE MODULE

TO RUN

THAT THE DR11A HAS FLOATING VECTORS:

THE BELOW IS THE ASSIGNMENT OF

SEQUENCES ARE:

FLOATING VECTORS,

STARTING AT 300 ALL DC11'S WILL BE ASSIGNFD.

THEN ANY KL11

CALLED FOR (VT05, vT06, LC11)

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.

THE DR11A DEVICE ADDRESS WILL BE ASSIGNED

THE ASSIGNED

IN THE USER AREA

RES SRR IR SRR

AT THE HIGH ADDRESS | IMIT AND. PROCEED DOUNWARD USERS,
AND
SPECIAL SYSTEMS SHOULD START THEIR ASSiGNMENT OF SPECIAL
DEVICES AT THE LOW ADDRESS LIMIT AND WORK UP.

767776 TO 767770
767766 TO 767760

DR11A #0
DR11A #1

767706 TO 767700

DR11A #7

767606 TO 767600

DR11A #15

MISCELLANEOUS

EXECUTION TIME
FOR EACH DR11A ABOUT 2 MINUTES

8.2

UNTESTED LOGIC

MAIN.

MACY11

(ZDRIB.P1

30A(1052)

06-MAR-79

06=-MAR-79 14:4

14:52

PAGE 6

THERE ARE

SEQ 0005
TWO FUNCTIONS NOT TESTED.

Wh —

D
B e
il
—

THIS PROGRAM WHEN STARTED AT 200 CHECKS THE SWITCH
REGISTER FOR ALL ZEROS, IF NOT ZEROS THE BITS 0-8 ARE USED
AS THE FIRST VECTOR ADDRESS OF THE DR11A'S.
THE PROGRAM THEN PERFORMS AN INCREMENTAL LOGIC CHECK FOR
THE SELECTED DR11A.

VO NO N

OSLSTS
ST NT.NT.NT.NT,¥]

PROGRAM DESCRIPTION

THE DATA REGISTER IS TESTED TO SEE IF 'RESET'' CLEARS IT.
IF 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 IF
INTERRUPT AT THE CORRECT BUS REQUEST LEVEL BR=-S.
ONE FULL TEST OF
THE SECOND PASS

AT THE END OF

THEY

THE DR11A IS MADE WITH THE T BIT OFF.

IS MADE WITH THE T BIT ON.

THE

SECOND PASS THE DEVICE ADDRESS IS

INCREMENTED BY 10, AND THE VECTOR POINTER IS DECREMENTED
BY 10.
THEN A TEST IS MADE TO SEE IF THERE ARE ANY MORE
DR11A'S AND THE PROGRAM WILL RESTART AND RESET THE VECTOR
AND ADDRESS FOR RETESTING THE SERIES OF DK11A.

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

LISTING

L§

FLOW CHART(S)

MACY11 30A(1052)
.MAIN,
06-M~R-79
(/DRIB.P1
06=MAR-79
1

262
243

14:52

PAGE 7

SEQ 0006

sGENERAL REGISTER LOGIC TEST
177776

STATUS=177776

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

SR=177570
CSR= 167770

000000
000072

000076
000000
000102
000000
000106

000112
000000
000116
000000
000122
000000
000126
000132
000000
000136

; TRAPPED

PREVIOUS LOCATION

s TRAPPED

PFEVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

: TRAPPED

PRCVIOUS LOCATICN

: TRAPPED

PREVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

: TRAPPED

PREVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

: TRAPPED

PREVIOUS LOCATION

: TRAPPED

PREVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

: TRAPPED

PREVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

: TRAPPED

PREVIOUS LOCATION

s TRAPPED

PREVIOUS LOCATION

: TRAPPED

PREVIOUS LOCATION

s TRAPPED

PREVIOUS LOCATION

; TRAPPED

PREVICOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

; TRAPPED

PREVIOUS LOCATION

: TRAPPED

PREVIOUS LOCATION

MAIN.
MACY11 30A(1052)
CZDRIB.P11
06=MAR-79
1

000144
000146
000150
~

g8 g

000156

i e

)

NS WN=O

WWWWWWW

301
302
303
304

5588

000136
000140

298
299

318
319

323

000170
000174
000200

000206
000210

009220

327

000230

329

000234

331

000240

335

000250

337

000254

341

000264
66
000270

343

345

350
351

000274
_
000300
000302
000304
000306
000310

353

000314

347
348
349

000000
000142
000000
000146
000000
000152
000000
000156
000C00
000162
000000
000166
000000
000172
000000
000176
000009
000202
000000
000206
000000
000212
000000
000216
000000
000222
000000
000226
000000
000232
000000
000236
000000
000242
000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000000
000272
000000
000276
000000
000302
000000
000306
000000
000312
000000
000316

06-MAR-79

14:52

TAGE 8

SEQ 0007

HALT

; TRAPPED T0 PREVIOUS LOCATION

HALT

; TRAPPED T0 PREVIOUS LOCATION

HAL T

;TRAI
=D T0 PREVIOUS LOCATION

HAL
T

: TRAPPED TO PREVIOUS LOCATION

FALT

; TRAPPED T0 PREVIOUS LOCATION

HALT

s TRAPPED TO PREVIOUS LOCATION

HALT

s TRAPPED T0 PREVIOUS LOCATION

HALT

; TRAPPED TO PREVIOUS LOCATION

HAL
T

: TRAPPED TO PREVIOUS LOCATION

HALT

: TRAPPED TO PREVIOUS LOCATION

HALT

; TRAPPED TO PREVIOUS LOCATION

HALT

; TRAPPED T0 PREVIOUS LOCATION

HALT

; TRAPPED

HALT

; TRAPPED TO PREVIOUS LOCATION

.+
+2

+2
+2

o ¢

. *¢
+2

o g

.42

PREVIOUS LOCATION

; TRAPPED TO PREVIOUS LOCATION
: TRAPPED TO PREVIOUS LOCATION

; TRAPPED TO PREVIOUS LOCATION

; TRAPPED T0 PREVIOUS LOCATION
: TRAPPED TO PREVIOUS LOCATION

; TRAPPED TO 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

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

000000
000322
000000
000326
000000
000332
000000
000336
000000
000342
000000
000346
000000
000352
000000
000356
000000
000362
000000
000000
000372
000000
000376
000000

14:52

PAGE 9

SEQ 0008

HALT

; TRAPPED T0 PREVIOUS LOCATION

HALT

; TRAPPED TO PREVIOUS LOCATION

HALT

; TRAPPED TO PREVIOUS LOCATION

HALT
+

; 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 TO PREVIOUS LOCATION
: TRAPPED T0 PREVIOUS LOCATION

: TRAPPED TO PREVIOUS LOCATION
: TRAPPED TO PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION
: TRAPPED TO PREVIOUS LOCATION

: TRAPPED TO 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 TO PREVIOUS LOCATION
: TRAPPED T0 PREVIOUS LOCATION
. TRAPPED T0 PREVIOUS LOCATION
; TRAPPED T0 PREVIOUS LOCATION

; TRAPPED TO0 PREVIOUS LOCATION
s TRAPPED T0 PREVIOUS LOCATION

MAIN.

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

(ZDRIB.P11
410

3
412

613

414
415

000502

14:52

PAGE 10

SEQ 0009

HALT

; TRAPPED T0 PREVIOUS LOCATION

HALT

s IRAPPED T0 PREVIOUS LOCATION

HAL T

s TRAPPED T0 PREVIOUS LOCATION

HAL T

s TRAPPED T0 PREVIOUS LOCATION

.42

; TRAPPED TO PREVIOUS LOCATION
; TRAPPED TO PREVIOUS LOCATION

; TRAPPED T0 PREVIOUS LOCATION
: TRAPPED TO PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION
; TRAPPED 10 PREVIOUS LOCATION
: TRAPPED TO PREVIOUS LOCATION
; TRAPPED TO PREVIOUS LOCATION

; TRAPPED TO PREVIOUS LOCATION
; TRAPPED T0 PREVIOUS LOCATION
; TRAPPED T0 PREVIOUS LOCATION
; TRAPPED T0 PREVIOUS LOCATION

: TRAPPED TO PREVIOUS LOCATION
; TRAPPED TO PREVIOUS LOCATION

: TRAPPED T0 PREVIOUS LOCATION
s TRAPPED T0 PREVIOUS LOCATION

; TRAPPED T0 PREVIOUS LOCATION
; TRAPPED 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 LOCATION

LMAIN.

MACY11 30A(1052)1‘02;MAR-79

CZORIB.P1

06=MAR-79

466
467

000000
000662

468
469
470
471

472
473
474
475
476
477
4«78
479
480
481
482

000656
000660

000662
000664
000666
000670

000672
000674
000676
000700
000702
000704
000706
000710
000712
000714

00071¢

490
491
492
493
494
495
496
497
498
499
500
501

000000
000742
000000
000746
(000000
000752
000000
000756
000000
000762

000766
000770
000772
00077«
000776

HALT
.42
HALT
¥

HALT
.+
HALT
.42
HALT
. %8
HALT
.42
HALT

000000

000722
000000
000726
(00000
C00732
(00000

502
503
504
505
ggg

HALT
.42
HALT
o *g
HALT
.+
HALT
.2
HALT

000000
000676
000000
000702
000000
000706
000000
000712
000000
000716

000720
000722
000724
000726
000730
000732

72+

PAGE 11

000000
000666
000000
000672

483
484
485
486
487
488

489

14:52

000736

HALT
.42
HALT
oO
HALT
. +2
HALT
o ¥4
HALT
.42
HALT
.42

000000
000766
000000
000772
000000
000776
000000

HALT
.42
HALT
.42
HALT

SEQ 0010
; TRAPPED TO PREVIOUS LOCATION

; TRAPPED TO PREVIOUS LOCATION
:TRAPPED TO PREVIOUS LOCATION
: TRAPPED TO PREVIOUS LOCATION

s TRAPPED TO PREVIOUS LOCATION

;TRAPPED TO PREVIOUS LOCATION
:TRAPPED TO PREVIOUS LOCATION
;TRAPPED TO PREVIOUS LOCATION

:TRAPPED TO PREVIOUS LOCATION
:TRAPPED TO PREVIOUS LOCATION
:TRAPPED TO PREVIOUS LOCATION

:TRAPPED TO PREVIOUS LOCATION
;TRAPPED TO PREVIOUS LOCATION
:TRAPPED TO PREVIOGUS LOCATION
:TRAPPED TO PREVIOUS LOCATION
:TRAPPED TO PREVIOUS LOCATION

;TRAPPED TO PREVIOUS LOCATION

:TRAPPED TO PREVIOUS LOCATION
:TRAPPED TO PREVICUS LOCATION
;TRAPPED TO PREVIOUS LOCATION

ggg

:TRAPPED TO PREVIOUS LUCATION

g}?

;TRAPPED TO PREVIOUS LOCATION

512
513
514
515
g}g

000030
000032
000034
000036

000030
003510
000340
004220
000340

518
519
25(1)

000046

000046
003464

.=30
RINT
340
SCOPEC
340
.=46
$ENDAD

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

000052

000052
040000

0002C0

00020¢
000167
001000

14:52 PAGE 12

SEQ 0011

.=52

40000

.=200

000620

Jmp

.=1000

BEGINA

; THESE ADDRESSES AND VECTORS ARE MODIFIED BY THE PROGRAM.

167770
167772
167774
167773
167772

GRSTAT:
GRDIO:
GRDAI:
GRBHIO:
GRDAIO:

000300
000302
000304

GRIVA:
300
GRIVSA: 302
GRIVB:
304

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

COUNT:

s COUNT LOCATION
sPRIORITY LEVEL

000000
000240

PL:
BEGINA:

147770
167772
167774
167773
167772

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

240

;INITIALIZE ADDRESS AND VECTORS
MOV
MOV
MOV

003236
176740
176726

167772
177570

MOV
MOV

177710
177704
177700
177674
177670

000016
000300
000302
000304
004650
177604
177576
000006

000100

177630
177624
177620

DR11B:
DR11C:

176560
003036

BEGIN:

;FOR T TRAP

*FOR TIME OUT

'T"

MOV

a4sSR,
%0

;VECTOR ADDRESS FROM SR

BIC

#177000,%0

;USE ONLY BIT 0 1O 8

#300,GRiVA

sSET LUP FROM SWITCH REGISTER

MOV
ST
MOV
ST
MOV

MOV

MCV
MOV
MOV

#CSR+3.GRBHIO
#CSR+2.GRDAIO
%0
DR11B

%0,DR118+2
(05
+
%0,DR11B+10
(05
+
%0,DR11B+16

#302.GRIVSA
#304 ,GRIVB
WEJFF %6

:DOES RESET CLEAR REGISTER?

177600

;SAVE OLD STACK ON OVERLAY

TRPB
#CSR,GRSTAT
#CSR+2,GRDIO
#CSR+4
. GRDA]

TSTB
BEQ

000016

#12,10
#6.4

;SET UP STACK

CLR
MOV
MOV
MOV

MOV
MOV

177000
000016

#BUFF
, %6
#BEGIN,
RE TURN
%6, SAVR6

SCOPE

MOV
CLR
MOV

MOV

RESET

GRIVSA,@GRIVA

AGRIVSA
46,4

#100, 1COUNT

FLAG

;IF ZERO USE 300 ON PREVIOUS VALUE

;SET UP STA(K

sSET UP FOR FALSE INTERRUPT

;CLEAR DATA REGISTER

001242

104000

177550

MOV
BEQ

AGRDAIO,
%0
.+

HLT

:REGISTER NOT ZERO
004000

177777
177514
177777

000100
177777

SCOPE

003014

MOV

177520

MOV
MOV
CMP
BEQ
HLT
SCOPE

002762
177466

MOV
MOV

#100,
1 COUNT
#-1,3GRDIO

TST
BEQ

aGRDAIO
A

RESET

177466

HLT

004000

052525

177432
052525

125252
177406

SCOPE

002732

177436

MOV

#4000, I COUNT

MOV
CMP
BEQ
HLT

aGRDIO.
X0
#52525.%0
.+

MOV

SCOPE
MOV
MOV

177412

125252

CMP

BEQ
HLT

000340

176364

000140

177356

177352
100340

MOV~

000140
177316

002622

177324

MOV
cMP
BEQ
HLT

SCOPE

002574
177320

.+4

#140,aGRSTAT

AGRSTAT,
X0
#100340.%0
.+4

MOV
BEQ

aGRSTAT,
%0
.+

SCOPE

CLR
CLR

;SET DATA TO ALL ONES
sSHOULD CLEAR REGISTER
;REG FAILED TO CLEAR

=52525

#125252,%0

#10, 1COUNT

HLT

sREG WILL NOT HOLD ONES

#125252,aGRD10
aGRDIO, X0

MOV

:ggsr

JALL ONES TO REGISTER

#52525,3GRDI0

; INTERRUPT ENABLE BIT TEST
?éépg
#340,STATUS

000010

#4000,
I COUNT

#-1,aGRDI0
aGRDI0,
%0
#-1,%0
.+

;DATA REGISTER NOT CLEAR

-3

017700
001401

SEQ 0012

001234

PAGE 13

-4

001240

14:52

MACY11_30A(1052)
06=MAR=79
P11
06~MAR-79 14:47

#140,GRSTAT

1COUNT
COUNT

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

JSET INTERRUPT ENABLE FLOPS
;CLEAR THOSE FLOPS
;TST X OR

;RESET DID NOT CLEAR INTERRUPT ENABLE BITS

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

636

001500

016777

637
638
639
640

001516
001520
001522
001526

001401
104000
005267
001401

001532

104400

635 001506 017700
636 001512 020067

641

642

001542

(12777
105077

645
646

001546 017700
001552 022700

648

001560

651

001570

653

(01600

656
ggg

001614
001616

659~
660
661
662
663
666

001620
001622
001626
003632
001636
001642

104400
005067
005067
005077
105277
105267

666
667
668
669

001654
001656
001660
001664

001401
104000
105767
001401

671
672

001670
001672

104400
005067

647

001556

2‘5’3 001562

652

654
655

665

670

001401
104000

012767
104400

001572

012777

001604
001610

017700
022700

105077

001401
104000

001646 027767

001666

001676
001702
001706

677
678
679
680

001720
001722
001724
001730

001401
104000
105767
001401

gg%

001734

052767

681

684
685

686

687

688

489

TST1:

001712

001732

001742

105077
105277
105267

027767

000763

104400

MOV

MOV
CMP
BEQ
HLT
INC
BEQ

177272

B8R
177777

177234

SCOPE

177240

MOV

CLRB

177230
177400

MOV

177777

177202

MOV

002442
177166
177144
177140
177152

177130

SCOPE

CLRB

1ST2:

177144

177122
177104
177100
177107

177064

BEQ
HLT

SCOPE
CLR
CLR
CLR
INCB
INCB
BEQ
HLT
TSTB
BEQ

TST3:

177100

176034

BEQ
HLT
TSTB
BEQ

B8R

BIS

SCOPE

002316

MOV

001756

017777

177022

177016

MOV

001401

#-1,3GRDIO

@GRBHIO

aGRDIO,
%0
#377.%0

:BYTE LOW FAILED TO CLEAR

;CLEAR HIGH BYTE

sHIGH BYTE CLEAR FAILED

1COUNT
COUNT
aGRDIO
@GRDIO
COUNT

aGRDIO, COUNT
.+4

COUNT
. +4

: INCREMENT LOW ORDER BYTE
*INCREMENT REFERENCE BYTE COUNT
;BAD DATA IN DATA REGISTER

: INCREMENT HIGH BYTE

aGRD10, COUNT
.+

COUNT+1
.+4

sHIGH BYTE HAS BAD DATA

TST3

#340,STATUS

;TEST EXTERNAL TRANSFERS - CABLE MUST BE CONNECTED
004000

001764

:CLEAR LOW BYTE

COUNT
@aGRBHIO
@GRBHIO
COUNT+1

012767
005077

#-1,3GRDIO

@GRPIO

CLRB
INCB
INCB

CMP

sTEST FOR ALL NUMBERS (WORD)
+GOOD=COUNT, BAD=%0

TsT1

TST2

001744

001752

COUNT
. +4

SCOPE
CLR

177071
000340

MOV
CMP

CMP

177134

#4000, I COUNT

002500

177172
000377

COUNT ,@GRDAIO

aGRDI0,
%0
%0, COUNT

aGRD10, X0
#177400, %0

004000
177202

SEQ 0013

MOV
CMP
BEQ
HLT

000763

673
676
675

676

177302

PAGE 14

001530 000763

643 001534

644

177314

177270
177302

14:52

177024

CLR

BEQ

#4000,
1 COUNT

aGRDI0

AGRDA] ,@GRDIO
.+

;TEST TRANSFER OF ZERO

MAIN.
MACY1 30A(1052)
CZDRIB.P11
06=MAR-79

001766

104000

001770
001772

012777

104400

017777
022777
001401
104000

104400
005067
005000
010077
017777
020077
001401

06—"AR-79

14:52

PAGE 15

;PICKED UP A BIT
177777
177000
177777

177002
176774
176766

#-1,aGRDIO
aGRDAI ,@GRDI0
l-l.aGRDIO

104400

012767

sMOV ALL ONES

;DROPPED A BIT
002242
176746
176744
176734

176740

TST6:

ICOUNT
20
%0,aGRDIO
aGRDAI ,aGRDIO0

;TEST ALL NUMBERS

ZOzaGRDIO
W+

104000

005200
001407
005077
000762

SEQ 0014

%0
TST7

176720

004000
176702
175672
002130
000100
176656

;ERROR = CHECK %0 FOR GOOD
;GRDIO FOR BAD

aGRDIO
TST6

002174

Te%7:

176700
176660

#4000, ICOUNT
aGRDIO
STATUS
#AB(C ,aGRIVA

sTEST INTERRUPT A

#100,aGRSTAT
362010

1ST8
032777
001001
104000
000002
104400

005077
012777
012777
105277
001375
000406

000200

176630

002176
000040
176614

176644

176636
176612

ABC
:

TST8:

#200,aGRD10
0*4

aGRDIO

#DEF ,aGRIVB

#40, 9GRS TAT
aczeuxo

s INTERRUPT A FAILED
;CHECK = WORD OR BYTE

sTEST INTERRUPT B

TST9
176600

176564

000140
176552
176542

:
DEF

176554

TST9:

aGRDIO

aGRDIO
#140,aGRSTAT
aGRDIO
.~
GRSTAT

s INTERRUPT B FAILED
sCHECK WORD OR BYTE

;TEST COMBINED INTERRUPTS

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

002236

012777
104400

017777
017700
022700

001401
104000

14: 52

177777

176536

176532
176530
177777

176534

PAGE 16

104400

aGRDAI ,@GRDAIO
aGRDAIO,
%0
#-1.%0
0*4

CMP
BEQ
HLT

IN A ONE

SCOPE
TST
B8M]
HLT

176502

104000

104400
105777
100401
104000

#-1,aGRDIO
BLACK BOX (NOT

MOV
s TEST DATA FROM
SCOPE
MOV
MOV

;READY BIT

005777
100401

SEQ 0015

052767
012706
012777
012777
005067
000240

AGRSTAT

RY)

SCOPE
BIS

175452

#340,STATUS
#BUFF
, %6
#TST4 ,aGRIVA
#100,aGRSTAT
STATUS

176454
176434

104000

176424

104400
012706
052767
012777
012777
042737
000240
104000
005077
001012
001000
001014

801

002500

;TEST BIT 15
;NO READY BIT 0

;TEST BIT 7
:NO READY BIT A

sLOCK OUT INTERRUPTS

s INTERRUPT RETURN POINTER
s INTERRUPT ENABLE

sNO "'A"" INTERRUPT

005977
016777

175374
176406
176362
177776

88383

016777

JREG 0 SHOULD = ALL ONES

;CAN WE RAISE INTERRUPT "‘A"

104400

002434
002442
002450
002456

sSTATIC LINES EQUAL ONES
;DATA REGISTER TO %0

STATE

aGRSTAT

SCOPE
TSTB
BMI
HLT

176470

CONNECTED)

176352
175326
176334

176310

176302

TST4:

CLR
MOV

sJRAISE INTERRUPT

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

AGRSTAT
GRIVSA.GRIVA

sMOV .+2 TO "'A"" INTERRUPT VECTOR

#BUFF
, %6

#340,STATUS

#TST5,aGRIVB

#40,3GRSTAT

#377 ,a4STATUS
aGRSTAT

:NO B INTERRUPT

sTEST FOR INTERR UPT FROM DEVICE
MOV

PL,aIVS

#340,STATUS

sPROCESSOR LEVEL ZERO

#BUFF
, %6

sSTACK POINTER
;CLEAR INTERRUPT ENABLE

#TINT1,3IVA

#100,3CSR
#100.aSR
C

sSET INTERRUPT ENABLE-

sNO DEVICE INTERRUPT OCCURED

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

002502

104400

042767

175264
17525¢
176264

e
i

SCOPE

;TEST FOR INTERRUPT FROM THE DEVICE

BIC

BIS

MOV

MOV
BIC

176240
176232

e
b e
b

SEQ 0016

362

TINT2:

OOV

00 00 0o 0o 00 Co 0o

PAGE 17

TINT1:

802
803
804
805
806
807

14: 52

817

HLT
SCOPE

8IC
BIS
MOV
MOV
BIC

Ség

#340,STATUS

#040,STATUS

sSET TO PRIORITY LEVEL 1

#BUFF ,%6
#100,aCSR

sSET UP STACK POINTER
;CLEAR INTERRUPT ENABLE

H#TINT2,a1VA

#100,aCSR

#340,STATUS
#100,STATUS
#TINT3,2IVA
#BUFF , %6

#100,aCSR

sSET TO PRIORITY LEVEL 2
s INTERRUPT VECTOR ADDRESS
sSET UP STACK POINTER
:CLEAR INTERRUPT ENABLE

sSET INTERRUPT ENABLE-

sNO DEVICE INTERRUPT OCCURED

SCOP E

sTEST FOR INTERRUPT FROM THE DEVICE

000340
000140
002672
004650

BIC
BIS
MOV
MOV
BIC

000100

s&g

TINT4:

175074
175066
176074

#340,STATUS
#140,STATUS
#TINT4 ,QIVA
#BUFF , %6
#100,aCSR

#100,aCSR

HLT
SCOPE

sNO DEVICE

INTERRUPT OCCURED

#340,STATUS
#200,STATUS

sRAISE PROCESSOR PRIORITY TO LEVEL 4

MOV
BIC
BIS

#BUFF , %6
#100,aCSR
#100,aCSR

sSET STACK POINTER
:CLEAR INTERRUPT ENABLE
:SET INTERRUPT ENABLE

Ség

#100,aCSR

NOP

#TINTS5,3IVA

HLT

175014
176022

sSET INTERRUPT ENABLE-

BIC
BIS

MOV

176032

104400

sSET TO PRIORITY LEVEL 3
s INTERRUPT VECTOR ADDRESS
:SET UP STACK POINTER
:CLEAR INTERRUPT ENABLE

sTEST FOR INTERRUPT FROM DEVICE

176050
176042

052767

sSET INTERRUPT ENABLE-

sNO DEVICE INTERRUPT OCCURRED

HLT

TINT3:

s INTERRUPT VECTOR ADDRESS

s IN CASE OF INTERRUPT

sLET INTERRUPT OCCUR
sNO DEVICE

TINTS:
SCOPE
;TEST FOR NO INTERRUPT FROM DEVICE

BIS

175776

TINT6:

;RAISE PROCESSOR PRIORITY TO MIGHFST LEVEL

#100,aCSR

;CLEAR INTERRUPT ENABLE

#TINTG,aIVA
#BUFF , %6

BIC

#100,aCSR

Ség

#100,aCSR

HLT

SCOPE

(MHIGHEST PROCESSOR PRIORITY)

#340, STATUS

MOV
MOV
BIS

175770
175762

INTERRUPT OCCURED

*IN CASE OF INTERRUPT
*SET STACK POINTER
;DON'T LEAVE

IT SET

;WITH NO INTERRUPT, BRANCH OVER HALT

s INTERRUPT OCCURED

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

858
859

003026
003034

042767

000340
000240
003102
004650
0001
000100
000100

14:52

174742
174734
175742
175716
175710
175702

PAGE 18

SEQ 0017

s TEST FOg NO INTERRUPT FROM DEVICE
IC
#340,STATUS
BIS
#240,STATUS
;RAISE PROCESSOR PRIORITY TO LEVEL 5
MOV
#TINT7,1VA
:IN CASE OF INTERRUPT
MOV
#BUFF ,%6
sSET STACK POINTER
BIC
#100,aCSR
sCLEAR INTERRUPT ENABLE
BIS
#100,aCSR
:SET INTERRUPT ENABLE
BIC

TINT7:

000340
0003
003162
004650
000100
000100
000100

174662
174654
175662

BIC
BIS

MOV

175636
175630
175622

175616

003504
000270

174606

001024
000010
000010
000010
000010
000010
000010
000010
000010
175504

000004
175550
175544
175540
175534
175530
175524
175520
175514
000000

001024
001124

003330
003336

003340

012767
000414

012777

175450
004412

174466

105777

000207
000332

000334

105777

000000
000316

000320

100375
012777

#100,aCSR

;DON'T LEAVE IT SET

;WITH NO INTERRUPT, BRANCH OVER HALT
s INTERRUPT OCCURED

;TEST FOR NO INTERRUPT FROM DEVICE

BIC
BIS
BIC

TINT8:
175622
175612

NOP
BR
HLT
SCOPE

NOP
BR
HLT
SCOPE
MOV
CLR
MOV

#340,STATUS
#300,STAIUS

#TINTB alVA

#BUFF, %6

#100, acsa
l100.8CSR
#100,aCSR

sRAISE PROCESSOR PRIORITY TO LEVEL 6
s IN CASE OF INTERRUPT
sSET STACK POINTER
sCLEAR INTERRUPT ENABLE
:SET INTERRUPT ENABLE
sDON'T LEAVE IT SET

;WITH NO INTERRUPT, BRANCH OVER HALT
s INTERRUPT OCCURED
;FOR FALSE

MOV

GRIVSA,aGRIVA
aGRIVA
#YESRT ,14
TRPB
BELL
#BEGINA,a#4

SuUB
SuB

#10,GRSTAT+2
#10,GRSTAT+4

TST

BEQ

SuB

#10,GRSTAT

SuB

#10,GRSTAT+6

ADD
ADD
CMP

#10,GRIVSA
#10,GRIVB
GRIVA,#0

JMP
MOV
NOP
TST
MOV
BR

A#BEGINA
SAVR6,
%6

SuUB
ADD

BNE

TSTB

BPL
MOV

TSTB

;GO TO BEGIN ON TIME CuT

#10,GRSTAT+10
#10,GRIVA

.+12

aGRSTAT
#PFAIL ,24
SBELL

BELL:
JBELL ON PASS COMPLETE

MOV

INTERRUPT

#207 ,aTDBR

iTCSR

.~4
#0,aTDBR
aTCSR

;CHANGE TO LAST VECTOR FOR OVERLAY

sRESTORE OLD STACK
s CHANGE TO RTI ON OVERLAY
sTIME OUT IF NON EXISTENT-RESTART PROGRAM

;FOR POWER FAIL SET UP

MAIN.
MACY11 30A(1052)
06-MAR-79
CZDRIB.P11
06-MAR-79
1
914
915
916

003366
003370
003376

3400

100375

006701

000403
012767

003412

14: 52

174412

000006

000074

000092
000012

000064
174362

010000

174132

000036

PAGE 19
BPL
MOV

SBELL:

6701

NOP
MoV
BR

BEG20:

SEQ 0018
=4

#BEG20,10

sSET UP RESERVED INSTRUCTION

#6,YESRT

sNO TRAP, PROCESSOR IS NO =20

MOV

BEGANY: MOV
;ROUTINE

TO CHECK FOR TRACE

s TRAP OCCURED
:RESTORE HALT FOR RESERVED
TRAP TO BE RUN WITH PROGRAM

;SAVE OLD CONTENTS, SET UP FOR TRACE
YESTR:
CLR
-(6)
#10000, SR
BIT
YESTR1
TRPB

000020

#20,(6)
YESTR1

000042

BEQ
$ENDAD:

RESET

JSR
NOP
NOP
NOP
YESTR1: MOV
YESTR2: RTI
TRPB:
0
YESRT:
RTI
HALT

001202

JATTEMPT TO EXECUTE SIGN EXTEND

020000

a#42,R0
YESTR1

7.(RO)

#BEGIN,-(6)

;START OF TEST WITH TRACE ON
JRETURN TO PROGRAM FROM TRAP

sRTI

000144
000215
000130

000132
000116

000056

FAILED

;PRINT CUT THE ERROR PC AND STATUS REGISTER
PRINT:
BIT
SR,#20000
JTEST FOR INHIBIT

BEQ
RTI
MOV

0007160
000156

TRAP

:SET TRACE TRAP

SENTERED WITH SYSTEM TRAP (CALL(HLT)

174054

INC

(6)+,SAVPC
(6)+,5Av(CC
=(6),~(6)
aT(SR
4
#215,3TDBR
aTCSR

sIF NOT UP.

#212,3TDBR

sLINE FEED

%2.SAVR?
%3.SAVR3
%4, SAVR4
SAVP(C,
%2
%7 ,PRTAB

;SAVE R2
;SAVE R3
. SAVE R4

aTCSR
.~4

PRINT OUT

JBRANCH TO PRINT
JINHIBIT, RETURN TO MAIN STREAM
sPC OF FAILING ROUTINE
sCC OF ERROR CONDITION
JREPOSITION THE STACK
JWAIT FOR FLAG

JPRINT OCTAL

NUMBER

#240,aTDBR
OTESR

;SPACE BETWEEN WORDS

SAVCC,%2
%7 ,PRTAB

sPRINT OCTAL NUMBER

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

016702

000022

MOV

JSR

%7 ,MORE ID

973

003652

016703

000020

MOv

SAVR3,
%3

975
976
977
g;g

003662
003666
003670
003672

005767
100001
000000
000002

173702

TST
BPL
HALT
RTI

SR
.t

980
981
982
983
984
985
ggg

003674
003676
003700
003702
003704
003706
003710

000000
000000
000000
177566
177564
000000
000000

988
989

003712
003716

005067
005067

990
991
992

993

003722
003726
003734

003742

016704

012704
012767
012767

012767

000472

SEQ 0019

003646
003656

004767

PAGE 20

g;}
974

003642

14:52

000016

000252
000244
004174
000005
000007
000001
177730

MoV

000236
000220
000214

SAVRZ2:
SAVR3:
SAVR4:
TDBR:
TCSR:
SAVPC:
SAVCC:

0
0
0
177566
177564
0
O

PRTAB:

(LR
CLR
MoV
MOV
MOV
MOV
TSTB
BPL
TST
BMI
MOV
BR
MOV

994
995
996
997
998
999
1000
1001

003750
003754
003756
003760
003762
003770
003772
004000

105777
100375
005702
100404
012777
000403
012777
016703

000260

177712

000261
000156

177702

1003
1004

004010
004014

005167
046703

000144
000140

1006
1007
1008

004022
004030
004034

066767
005267
026703

000136
000134
000126

000136

MKNUM:

1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025

004042
004050
004054
004062
004066
004072
004076
004100
004104
004112
004114
004116
004120
004126
004132
004134

062767
016724
066767
005067
005067
005367
001410
012703
066767
005303
001373
000730
012767
105777
100375
014477

000260
000114
000102
000100
000076
000074

000120

WRTCC:

1002
1005

1009

004004

004020

004040

010267
001410

001370

020150

000003
000052

000005
177552
177542

WAIT1:

MINUS:
STAR:

MOV

COM
BIC

000102

000050

MOADD:

000044

XLIST:
WAIT2:

BEQ

SAVR2, %2
SAVRé
, %4

JRESTORE REGISTERS

sTEST FOR HALT SWITCH
JHALT ON ERROR SET

JRETURN TO MAIN STREAM

;DATA
:STATUS

BINCT
WGTCT

#LIST, %4
#5 ,ASCNT
#7,SEVEN

sGET LIST ADDRESS

#1,DECML

aTCSR
WAIT1
%2
MINUS
#260,aTDBR
STAR
#261,3TDBR
SEVEN,X3

%2,TOODLE

TOODLE
TOODLE, %3

WRTOC

ADD
INC
CMP

DECML ,WGTCT
BINCT
WGTCT,%3

ADD
MOV
ADD
CLR
CLR
DEC
BEQ
MOV
ADD
DEC
BNE
BR
MOV
TSTB
BPL
MOV

#260 ,BINCT
BINCT, (4)+
SEVEN,DECML
WGTCT
BINCT
ASCNT
XLIST
#3,%3
SEVEN, SEVEN
%3
MOADD
STAR
#5 ,ASCNT
aTCSR
WAIT2
-(4) ,aTDBR

BNE

;DEVICE ADDRESS AND VECTORS

MKNUM

sNEG SIGN PRINT 1
;POS SIGN PRINT 0
;PUT MASK IN R3

;GET READY TO DOODLE NUMBER IN TOODLE
s COMPENSATES FOR COMPLEMENT DURING BIC
sAND IN OCTAL CHARACTER

sZERO,WRITE O IN LIST
sCOUNT UP TO
sAND RECORD
s SAME BINARY WEIGHT

;KEEP COUNTN

sADD ASCII PREFIX
;WRITE ASCII CHAR IN LIST
JEXPAND BINARY WEIGHT

;5 CHAR IN LIST
;SET X3 FOR _ADD LOOP
sMAKING SEVENTY BY SEVEN

sNX SEVEN SET GET NX OCTAL
sSEND 5 CHAR TO TTY

005367
001401
000767

000026

105777
100375
000207

177530

—_—ed

% sassasaesaness

004140
004144
004146

28 R8N NSERRSER 3

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

004214

14:52

PAGE 21
DEC
BEQ
BR

HDFHM:
TOODLE
:

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

SEQ 0020
ASCNT
HDFHM
WAIT2

;FINISH PRINTING GET NXT NUM

TSTB @TCSR

BPL
STS

. =4
x7

sHEAD FOR HOME

0
0
0
J
0
0
0
0

. SCOPE LOOP ROUTINE ENTERED BY USER TRAP

022606
012667
000177

000054

032767

040000

173342

SCOPEC: BIT

004000

173332

BIT

000026

000022

SCOPEB:

173562

012777
105777
100375

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

JREPOSITION THE STACK
:SCOPE RETURN

. SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES
BNE

000010
000006

BNE
CMP
BEQ
INC
BR
SCOPEG: CLR
SCOPEA: MOV

173676

ICOUNT:
: 0
SCOPEF
RETURN: BEGIN
JMP

000016

000207

CMP
MOV
JMP

2550

#40000, SR
SCOPEB
#4000, SR
SCOPEA
SCOPEF
, ICOUNT
SCOPEG
SCOPEF
SCOPEB
SCOPEF
@%6,RETURN

sTEST SR FOR SCOPE
;YES SCOPE
¢NO = TEST FOR ITERATION
s INHIBIT ITERATION

JEXIT - DONE
s INCREMENT COUNT
sLOOP SOME MORE
sCLEAR COUNT
sSAVE SCOPE RETURN POINTER

JRETURN INLINE-NEXT TEST

sCOUNT LOCATION FOR ITERATION LOOP
200

;ADDRESS OF

LAST

: GROUP OF NESTED SUBROUTINES
RTS
SUBR1:
7
SUBRZ:
SCC

sONE INSTRUCTION
;ONE DEEP

177770

SUBR3:

%7.,SUBR2

. TWO DEEP

177766

SUBRS:

JSR

%7.,SUBR3

: THREE DEEP

177766

SUBRS :

JSR

%7.SUBR4

;FOUR DEEP

177766

SUBR6:

JSR

%7 .SUBRS

sFIVE DEEP

s
000240
177332

177334

RTS

JSR

RTS

RTS
134
JPRINT DEVICE ADDRESS AND VECTOR
#240,aTDBR
MOREID : MOV
TSTB

BPL

alCSR

.~4

TEST

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

004354
004360
004364

016702
004767
012777

174420
177326
000240

004372
004376

105777
100375
016702
004767
000207

177306

14:52

PAGE 22
MOV

177310

GRSTAT
%2

JSR
MOV

%7 ,PRTAB
#240,3TDBR

TSTB

aTCSR

BPL
MOV
JSR

174406
177302

SEQ 0021

RTS

=4
GRIVA,
%2
%7 ,PRTAB
%7

;BACK TO PRINT

JENTER HERE OR POWER FAIL

N ORNN 3322 2 22 e 2232322255333

012767
000000
000000
016706
012667
012605
012604
012603
012602
012601
012600
104000

000167
000002
125252

004504
052525

PFAIL:

173372
000010
004450
177772
173344

173360

SAVR6:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

HALT

MOV
MOV
MOV
MOV
MOV
MOV
MOV

HLT
JMP
RTI

174500

052525

004514
177777
004520

004520

.=A+4

.=B+10C

WA
=

%0,-(6)

X1,-(6)
%2.-(6)
%X3,-(6)
%4,-(6)
%5,=(6)
24 ,-(6)
%6,SAVR6
#RESTART ,24
SAVR6, %6

(6)+,24
(6)+,%5
(6)+,%4
(6)+,%3
(6)+,%2

(6)+,%1
(6)+,%0
BEGIN

B:
125252
sFIXED VALUES FOR USE IN TEST

;SAVE REGISTER OR STACK

JWHEN POWERING DOWN

;STORE STACK POSITION
JHALT ON POWER DOWN NORMAL

sSTACK IS SAVED HERE

JRESTORE REGISTER OFF

;WHEN POWERING UP

;POWER FAIL OCCURRED

JRETURN TO MAIN LINE

;ADDRESS OF B

-1
A+4

125252
A+10

052525

d
D e
- e
D

—
—

MOV

RESTART :MOV

)

e
D d e
D —d el -

d
)

e e
D e

e
)

D d
Dl

D e e
d D

)
D

D e

) e
D i

D e =D
D D e

D e

1098

010046
010146
010246
010346
010446
010546
016746
010667

;ADDRESS OF A+10

éFOR STOSAGE

.=C+10

TEMP:

;ADDRESS OF

;ADDRESS

TEMP

STACK

—

bwm—*oo&

SO
W

o |

=
-l
) e B
>

B
TM
T P

MACY1T 30A(1052)1‘02;MAR-79
P11
06~MAR-79

004544

004546

004650
004650

14:52

PAGE 23

SEQ 0022

004544

.=TEMP+6

000000
004650

D:
.=.+100

004546

000000
000001

BUFF:
FIN:

TEMP+10

;ADDRESS OF TEMP+10 OR ‘D'’

0
.END

;JBUFFER FOR SP

MAIN.
MACY11 30A(1052)
CZDRIB.P11
06~MAR=-79
1

06-HAR-79

A
004514
ABC
002130
ASCNT
004172
B
004504
BEGANY 003420
BEGIN
001202
BEGINA 001024
BEG20
003412
BELL
003340
BINCT
004170
BUFF
004650
C
004526
cC
= 177776
COUNT
001020
CSR
= 001000

1123
716
951*
1117
919
548
526
915
888
988+
57
131
24,8¢
541#
250#
829+

D
DECML
DEF
DR11B
DR11C
FIN
GRBHIO
GRDAI
GRDAIO
GRDIO

11408
993+
729
560
5704
17434
5344
5338
5354
532

14:52 PAGE 25
CROSS REFERENCE TABLE == USER SYMBOLS

1126
7o
1015+
1119
9214
S’
543#
9204
9074
1007+«
570
1132
1046+
633+
553
B30+

SEQ 0023

1126

1128

1022+

1026*

10384

939
889

1063
900

1114

1010«
770
1134

1011
781

1014~
797

1037#
808

817

828

839

850

863

11428

636
554
40+

636
555
B4lr

639%
556
B43+

661
557
B5Ir

66k*
790
@52+

665
798+
853«

668
799«
864

672«
809+
86Se

675+
810%
Bew

676
818+
877+

679
819«
878

1006
7354
562%

1012«

10354

S64*

566%

S67A

556
555«
557«
554x

653%
688
S78
586«

673%
69
596
587

674%
703
634x
5%+

731s
749
749%
602«

750
603

609*

610

635

643*

6hbs

645

709«
567x
569%
568+
553+
784%
10304

714*
573x
720x
573
H17«
788+

718+
716
783%
574x
618
790

722
771«
897*
778
625%
€90~

728«
778+

735
789

761%
884«

743%
885+

746w
895+

898

1088

791
627
891+

884
717%
892*

896+
730%
893«

742«
894+

745+«
903

758
1082

763

772+

590
706
856
593«
807+

598
724
869
601~
816+

606
737
882
624+
827+

613
753
1113
632+
838«

621
760

629
765

638
775

648
787

657
801

667
812

678
821

649~

660+

686+

700+

713«

1054

10614

988#

1083

1089

1059«

10634

1122

GRIVA
GRIVB
GRIVSA
GRSTAT

HDFHM

HLT

ICOUNT

004546
004164
002176
001154
001176
004650
001006
001004
001010
001002
001012
001016
001014
001000

004150

= 104000
004270

652

704
537#
530
5384
5314
777%
1027

24L7H
690
832
576%
7894
7914
990
997

IVA

= 001012

MKNUM
MOADD

004022
004104

1006#
10184

001022

5424

IVS
= 001014
LIST
004174
MINUS
003772

MOREID 004340
NOP
= 000240
PFAIL
004412
PRINT
PRTAB
RESTAR
RETURN

SAVCC
SAVPC
SAVR2

003510
003712
004450
004274

003710
003706
003674

970
2454
904

513
964
1102
548+«

950+«
949+
960+

654

581
697

845
585«

796+

79%*
10394
10004

bbo*

663*

665

1009
1020

10794
10944

794

9464
969
11054
1047

968
963
971

9864
9854
9804

676

687

849+

688%

862+

693%

875+

6%+

695

702+

703«

JMAIN.
MACY11 30A(1052)
06-HAR-79
CZDRIB.P11
06=MAR-79
1

SAVR3

SAVRG
SAVRG
SBELL
SCOPE =

SCOPEA

SCOPEB
SCOPEC
SCOPEF
SCOPEG
SEVEN
SR
=
STAR
STATUS=

SUBR1

SUBR2

SUBR3
SUBRG
SUBRS
SUBR6
TCSR

003676

003700
004446
003370
104400

004262

004206
004220
004272
004256
004162
177570
004000
177776

004302

004304

004310
004316
00432
004332
0037

TDBR
TEMP
TINT1
TINT2

003702
004536
002502
002552

TINTG
TINTS
TINT6
TINTZ
TINT8
TOODLE
TRP8
Tsi
TST2

002672
002752
003022
003102
003162
004160
003502
001500
001636

TINT3

TST3
TST4
TSTS

TST6

TST17

002622

001702
002354
002430

002030

002074

TST8
TST9

002146
002212

WAIT2
WGTCT
WRTOC
XLIST
YESRT
YESTR
YESTR1
YESTR2
$ENDAD
.
=

004126
004166
004042
004120
003504
003426
003474
003500
003464
004652

[WAIT1

003750

14:52

961 *
962+
549
905
246N
685
823
1053

973
974
901
915#
572
692
833
10594

515

10504

1045#
1054
1055
992«

2494
999
244K
815+
10674

10684
1070#
1072#
1074#

10764
910
909+
11354
796
807
816
827
838
849
862
875
1002«
552+
634
6634
674H
771
783
7024
708
720
733
99%n
1023#
989+
1005
1016
886
9254
927
9404
520

251

PAGE 26

CROSS REFERENCE TABLE == USER SYMBOLS
o814
9824
1101

11044

1105

584
699

592
712

600
727
870

846

357

608
740

616

623

631

762

642
768

651

780

659
802

782

785+
873

795+
874~

8C5+

806+

1030
1079+

1089
1084+

1086

269

273

883

1051

1057

1056+
10584
1001

1058«

10624

101¢
926
1027
615+

1018«
946

10344
975

1050

1052

826+

682«
836+

715«
837+

7691
848+

773

860~

952
954«
1138

955
957«
1139

958
965+

966
9834

9844
998+

1004
928+

10334
9% 14

1028
1008

1013+

920+

9424

931

933

9394

9354
253

255

257

261

263

558
10014
248
825+

SEQ 0024

861+

814»

1070
1072
1074
1076
913

912+

1136
8024
8134

8234
8334
8464
8564
8594
8824

1003«
887

641
670
681

7778
7884
710
7144
7284
76414
995
1024
1006+
10104
10224
918+

10364

259

265

267

275

LMAIN.
MACYN 30A(1052)
CZDRIB.P11
06=MAR-79 1

06-MAR-79

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

SEQ 0025

277
303

279
305

281
307

283
309

285
311

287
313

289
315

291
317

93
19

295
321

297
323

959

967

976

5
1031

1081

881
1087

9
11228

911
11264

914
11344

929
11384

11414

325

301
327

JMAIN.
MACYI 30A(1052)
CZDRIB.P11
06=MAR-79
COMMEN
ENDCOM
ESCAPE
GETPRI
GE TSWR
MULT
NEWTST
POP
PUSH
REPORT

SETPRI
SETUP
SKIP
SLASH
STARS
SWRSU

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

$SESCA
SSNEWT
$ISKIP
.EQUAT
-HEADE
.SETUP
. SWRHI
.SACT

.$SAPTB

.$SIZE

06-MAR-79

14:52 PAGE 29
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0026

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

.$SUPR
.$TRAP
$TYPB

14
1%
1

.STYPE
.$TYPO
.$40CA
1170

1%
1%
1
#

. ABS.

004652

14:52
PAGE 30
CROSS REFERENCE

TABLE == MACRO NAMES

STYPD

ERRORS DETECTED:

000
O

CZDRIB.BIN,CZDRIB.SEQ/CRF/SOL/NL
: TOC=SYSMA(.SML ,CZDRIB.P11

RUN-TIME: 8 9 .4 SECONDS

RUN-TIME RATIO:

CORE USED:

31k

359/18=19.8

(61

PAGES)

3
SEQ 0027