Digital PDFs

AH-8207D-MC

January 1979

34 pages

Original

15MB

view download

OCR Version

19MB

view download

Document:	CVKAFD0 DRV11 DRV11 TEST JAN 1979 gray
Order Number:	AH-8207D-MC
Revision:	000
Pages:	34
Original Filename:	CVKAFD0__DRV11__DRV11_TEST__AH-8207D-MC__JAN_1979_gray.pdf

OCR Text

DRV11TEST

AH-8207D-MC

JAN 1979

CVKAFDO

fluflnnan

FICHE1 OF
1

MADE
IN USA

IDENTIFICATION

SEQ 0001

PRODUCT CODE
:

AC-8206D-MC

PRODUCT NAME:

CVKAFDO DRV11

PRODUCT DATE:

AUGUST 1978

MAINTAINER:

DIAGNOSTIC ENGINEERING

TEST

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
RESPONS IBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCLMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED COMPANIES.
COPYRIGHT

(C)

1975,

THE FOLLOWING ARE
DIGITAL

DEC

1978 BY DIGITAL

EQUIPMENT

CORPORATION

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

ABSTRACT
THIS IS A LOGIC TEST OF THE DRV11. TO ALLOW TESTING OF
THE DATA LINES AND INTERRUPTS, A SPECIAL MAINTENANCE CABLE

(BCOBR) IS USED BY DEFAULT. ALSO, A SPECIAL TEST MODULE
IS REQUIRED BY OPTION TO TEST THE NEWDATA RDY AND
DATATRANS SIGNALS.

NOTE:
THE SPECIAL
MANUFACTURING ONLY.
SEE SECTION 5.2

TEST MODULE

IS FOR USE BY IN HOUSE

THIS TEST WILL OPERATE ON ONE DRV11. SPECIAL OPERATIONAL PROCEDURES ARE REQUIRED TO OPERATE ON OTHER THAN THE
PRIMARY DRV11. SEF SEC. 5.4

REQUIREMENTS

2.1

EQUIPMENT

LSI=-1M
DRV11
TEST

CABLE

(BCO8R)

TEST MODULE

2.2

(BY OPTION’

(BY OPTION)
(FOR IN HOUSE

MANUFACTURING ONLY)

STORAGE

2.2.1

PROGRAM STORAGE = 4K

LOADING PROCEDURE
ME THOD
ABSOLUTE LOADER

STARTING PROCEDURE

200 - NORMAL ENTRY TO TEST ONE DEVICE
TO LOAD AND EXECUTE

LOAD PROGRAM WITH THE ABSOLUTE LOADER.

IF ANY PROGRAM OPTIONS ARE REQUIRED, SET THE AP-

PROPRIATE BIT IN THE

LOCATION 422.
(REF.
3. START PROGRAM AT 200.

6.1

SOF TWARE

PROGRAM WILL PRINT "END OF

CONTROL

SWITCH SETTING

SWITCH REGISTER AT

SECTION 5.1)

PASS'' FOLLOWING EACH PASS.

SEQ 0002

THIS PROGRAM CONTAINS A SOF TWARE SWITCH REGISTER FOR

OPTION SELECTION. FOR IT TO OPERATE THE OPERATOR MUST
SELECT THE APPROPRIATE OPTION BY SETTING OR
RESETTING THE RESPECTIVE BIT
TO DO THIS

6.2

IN THE WORD.

THE LSI=11 MUST BE

IN ODT MODE.

STARTING ADDRESS OR ADDRESSES

200 = START OF TEST--FOR NORMAL TESTING
5.

OPERATING PROCEDURE
1. THE PROGRAM WILL CYCLE

CONTINUOUSLY UNLESS HALTED

BY THE OPERATOR, OR_SSME ERROR CONDITION.

eeRee TO-HALT ~THE PROGRAM,
3.
4.

5.1

WILL DISPLAY

DEPRESS THE BREAK KEY. ODT

THE PC AT WHICH IT WAS HALTED.

IF NEW OPTIONS ARE TO BE SELECTED IN THE SWR, THEY MUST

BE SET AT THIS TIME.
CONTINUE THE PROGRAM VIA A "P'' OR A 'G'* COMMAND.

SOFTWARE SWITCH SETTINGS

BIT15 = CONTINUE ON ERROR
BIT14 - LOOP ON CURRENT ERROR
BIT13 - NOT USED
BIT12 = NOT USED
BIT11 - NOT USED
BIT10 - LOOP ON CURRENT TEST
BIT9 - RUN TEST MODULE
BIT8 - INHIBIT WRAP CABLE
BIT7 - NOT USED
BIT6 - NOT USED
BITS = NOT USED
BIT4 - NOT USED
BIT3 - NOT USED
BIT2 - NOT USED

(100000)
(040000)
(020000
(010000)
(004000
(002000)
(001000)
(000400)
(000200
(000100)
(000040)
(000020)
(000010)
(000004)

BITO - NOT USED

(000001)

BIT1

= NOT USED

5.2 SELECTION OF
1.

(000002)

TEST OPTIONS

TO TEST NEWDATA RDY AND DATATRANS SIGNALS,

THE

SPECIAL WRAP MODULE MUST BE INSTALLED. THE OPERATOR
MUST ALSO SET BIT9 IN THE SWITCH REGISTER (LOC. 422).
NOTE:
THE SPECIAL MODULE IS FOR USE BY IN HOUSE

MANUFACTURING ONLY.

THIS TEST WILL RUN WITH THE WRAP CABLE BY DEFAULT.
TO INHIBIT TESTING WITH THE WRAP CABLE,

THE OPERATOR

MUST SET BIT8 IN THE SWITCH REGISTER (LOC. 422).
5.3 WRAP (ABLE
THE WRAP CABLE

INTO AND OQUT OF
INTERRUPTS.

MDYE

1131}

IS REQUIRED TO TEST

TRANSFER OF

DATA

THE INPUT BUFFER, AND THE DEVICE

THIS DIAGNOSTIC IS APPROXIMATELY 95% EFFECTIVE
WHEN RUN WITH THE WRAP CABLE, AND APPROXIMATELY

SEQ 0003

60-70% EFFECTIVE WHEN RUN WITHOUT IT.

SEQ 0004

5.4 TESTING OTHER DRV11 MODULES
TO TEST A DRV11 NOT ADDRESSED AS 167770, OR

VECTORED AT 300, THE OPERATOR MUST SUPPLY THE NEW ADDRESSES
AND VECTORS TO THE PROGRAM BY DEPOSITING THEM AT
THE LOCATIONS TAGGED BY 'RCSR'' IN THE BEGINNINC OF
THE ORDER IS AS FOLLOWS:
RCSR:

THE LISTING.

CSR_ADDRESS

OUTPUT BUFFER ADDRESS
INPUT BUFFER ADDRESS

HIGH BYTE ADDR. OF OUTPUT BUFFER OR
(OUTPUT BUFFER ADDR =1)

"A'* INTERRUPT VECTOR ADDRESS
"'A'* ADDRESS + 2

"B'' INTERRUPT VECTOR ADDRESS
"B'* ADDRESS + 2
5.5 EXECUTION TIME
TYPICAL RUN TIMES

QUICK VERIFY

(ONE PASS)

WITH WRAP CABLE

SEC.

10 SEC.

6. ERRORS
ALL ERROR REPORTS WITHIN THIS

TEST ARE

IN THE

FORM

OF AN ERROR HALT. ON THE LSI-11, A HALT WILL FORCE
ODT TO DISPLAY THE PC+2 OF THE HALT. THIS IS
THE PRIMARY ERROR INDICATOR WITHIN THE PROGRAM.
UPON DETECTION OF AN ERROR,THE PROGRAM WILL PLACE THE
CURRENT ERROR NUMBER AND THE CURRENT TEST IN THE MA]LBOX
(SEE_IMPORTANT TAGS SEC. 8)
TO DETERMINE

THE

ENCE THE LISTING.

TYPE OF

ERROR.

THE OPERATOR MUST REFER-

6.1 ERROR RECOVERY
IN ORDER TO CONTINUE, THE OPERATOR MUST ISSUE A 'P'' TO
CONTINUE THE PROGRAM, OR MAY SET THE ERROR LOOP SWITCH

PRIOR

TO CONTINUING.

ERRORS

6.1

ERROR REPORTING
ALL ERROR REPORTS WILL BE DONE VIA A HALT WITHIN THE
PROGRAM. THIS WILL CAUSE ODT TO DISPLAY THE PC+2 OF THE

ERROR HALT. AT THIS TIME THE OPERATOR MUST REFERENCE

THE LISTING TO DETERMINE THE ERROR DESCRIPTION.
THE NUMBER AT TAG $FATAL IN THE APT MAILBOX CONTAINS
THE ERROR NUMBER AND MAY BE USED TO REFERENCE THE DE-

SCRIPTION IN THE

6.2

TABLE OF

CONTENTS.

ERROR RECOVERY

IN ORDER TO CONTINUE,

THE OPERATOR MUST ISSUE A 'P'' T0

CONTINUE THE PROGRAM, OR MAY SET THE ERROR LOOP SWITCH

PRIOR TO CONTINUING.

IMPORTANT TAGS

FOLLOWING

IS A LIST OF

iMPORTANT

TAGS WITHIN THE

LISTING

TAG

SMAIL

START OF

THE PROGRAM MAILBOX. MANY CLUES TO

PROBLEMS CAN BE

FOUND HERE

$SFATAL

ERROR NUMBER. USE THE TABLE OF CONTENTS TO
LOCATE THE ERROR INFORMATION AND/OR CODE

$TESTN

CURRENT TEST NUMBER

$PASS

PASS

$SWREG

SOF TWARE

RCSR

START OF UNIT UNDER TEST ADDRESSES

10.

COUNT OF

THE

PROGRAM WHEN ERROR WAS

DETECTED OR PROGRAM HALTED

LISTING

SWITCH REGISTER

SEQ 0005

17:49

PAGE 2

000001
000001

—

.TITLE CVKAFD
.ENABLE ABS
.NLIST
MD,MC,CND
LIST
ME
& >

]

N=O VNN
W
=

CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JUL-78 11:04

SEQ 0006

CVKAFD MACY11_30A(1052)
06-AUG-78
CVKAFD.P11
26=-JUL=-78 11:04

17:49

PAGE 3

SEQ 0007

15
16
:

;REVISION
:
1.
:

8
CHANGED TEST REQUIRING WRAP CABLE TO BE

WITH TRAP CATCHER

JREVISION

- 24
25

JREVISION
3
1.

INHIBITED BY BIT 8 OF

THE SWR

INITIALIZED A & B INTERRUPT VECTOR LOCATIONS

DOCUMENTATION CHANGE ONLY
D
ADDED CODE TO PRINT OUT PROGRAMS TITLE

CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JUL=-78 11:04

17:49

PAGE 4

SEQ 0008

;GENERAL REGISTER LOGIC TEST
104000
167770

001200

HLT=104000

CSR=167770
STKPTR=1200
;REGISTER DEF INITIONS
RO=20

R1=%1
R2=12
R3=13
R&=14
RS5=15

SP=16

PC=%7

: SWITCHES
001000
002000
04000
020000
040000

Sw9=1000
SW10=2000
SW11=4000
SW13=20000
SW14=40000
.SBTTL

1100

;*INITIAL ADDRESS OF
1100

STACK=
.EQUIV

.EQuUIV

000011
00

177776
177774
177772
177570

177570

BASIC DEFINITIONS

THE STACK POINTER *xx 1100 *xx

EMT ,ERROR

;;BASIC DEFINITION OF ERROR CALL
;:BASIC DEFINITION OF SCOPE CALL

10T,SCOPE

H;MISCEL%?NEOUS DEFINITIONS
;CODE FOR HORIZONTAL

LF=
CR=
CRLF=

TAB
::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED

12
15
200

PS=
.EQUIV

177776
PS,PSW

PIRQ=

177772

::PROCESSOR STATUS WORD

STKLMT= 177774

::STACK LIMIT REGISTER

DSWR=
DDISP=

: :HARDWARE SWITCH REGISTER
: :HARDWAPE DISPLAY REGISTER

: :PROGRAM INTERRUPT REQUEST REGISTER

177570
177570

: *GENERAL PURPOSE Redxsrsn DEF INITIONS

RO=

R1=

R2=
R3=

R4 =

RS=
Ré=
R7=
SP=
PC=

; ;GENERAL REGISTER

::GENERAL REGISTER

: :GENERAL REGISTER

%2
%3

%5
%6
X7
%6
%7

: :GENERAL REGISTER
: :GENERAL REGISTER

: :GENERAL REGISTER
: *GENERAL REGISTER
::GENERAL REGISTER
*:STACK POINTER
::PROGRAM COUNTER

;*PRIORITY LEVEL CEFINITIONS

PRO=

;.PRIORITY LEVEL O

82
85
86
87
e
89
90

91
92
93
9%
95
9
97
98
9
100
101
102
103
104
105

106

107

000100
000140
000200
000240
000300
000340
100000
040000
020000
010000
004000
002000
007000
000400
000200
000100
000040
000020
000010
000004
000002

000001

108

109

110
11
112

113
114
115

116
117
118
119
120

121
122
123
124
125

126

127
128
129
130
131
132
133
134
135
136
137

100000
040000
020000
010000
004000
002000
001000

000400

000200
000100
000040
000020
000010
000004
002002
000001

17:49 PAGE 5
BASIC DEFINITIONS
PR1=
PR2=

PR3=
PR4=
PRS=
PRé=
PR7=

40
100
140
200
240
300
340

SEQ 0009

;sPRIORITY LEVEL

s:PRIORITY LEVEL
s sPRIORITY LEVEL

s sPRIORITY LEVEL
s sPRIORITY LEVEL

s sPRIORITY LEVEL

;*'"'SWITCH REGISTER'' SWITCH DEFINITIONS

5=
SW15=
SW14=

Sw13=
SWw12=
SW11=

Sw10=
Sw09=

Sw08=
Sw07=
Swoé=
SW05=
SwW04=
Sw03=
Sw02=

Swo1=
Sw00=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
-20
10
4
2
1
SW09,Sw9
SWO8,Sw8
SWO7,Sw7
SWO6, SW6
SWOS5,SW5
SW04, SWé
SWO3,Sw3
SWO2,SW2
SWO1,SwW1
SW00,Sw0

; *DATA BIT DEFINITIONS

BIT15=
BIT14=
BIT13=
BIT12=
BIT19=
BIT10=
BIT09=
BITO8=
BITO7=
BITO6=
BIT05=
BITO4=
BIT03BITO2=
BITOI=
BIT00=
.EQUIV
“EQUlv

100000
40000
20000
10000
4000
2000
7000

400
200
100
40
20
10
4
2
1

BIT09.BIT9
BITO8.BITZ

"EQUIV BITO7.BIT?

(BITOO TO BIT15)

NOVWN SN —

CVKAFD MACYT1 30A(1052)
02-AUG~78
CVKAFD.P11
26=JUL=78 1 1:04

CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JuL=78 11 :04

17:49 PAGE 6
BASIC DEFINITIONS

.EQUIV

BIT06,BITé

.EQUIV

BITO4 BIT4

.EQulv

BIT00,BITO

SEQ 0010

.EQUIV BIT0S.BITS
.EQUIV
.EQUIV
LEQUIV

BITO3,.BIT3
BIT02.BIT2
BITO1.BIT1

sTIME OUT AND OTHER ERRORS
..RESERVED AND ILLEGAL INSTRUCTIONS

BPTVEC= 14
IOTVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVE (=34

; ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (IOT) *xSCOPE**
s sPOWER FAIL
..EMULATOR TRAP (EMT) **ERROR**
"'TRAP'' TRAP

TBITVEC=14
TRTVEC= 14

gom\lOmbwm—‘o

-l D
sld il il il

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES

ERRVEC= 4
RESVEC= 10

TKVEC=
TPVEC=

60
64

PI1RQVE(C=240

.EgABLE ABS

T BIT
::TRACE TRAP

::TTY KEYBOARD VECTOR
;. TTY PRINTER VECTOR

; ;PROGRAM INTERRUPT REQUEST VECTOR

142

161

HALT

.42

HALT

000016

HALT

.42

HALT

HALT
HALT

HALT

—A...a—l—ld—i;—a—\—l;—d—l—l—.—l—l—l—l-—l—d—l-fl-fl—l
OO0
00
000000 N NNNNNNNYO

168

HALT

HALT
HALT

HALT

.=100

102

RT%

;

RTI

FOR POSSIBLE

CLOCK

INTERRUPT

HALT

p—

CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JUL-78 11:04

196
195
196
197
198
199

200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224

000110
000112
000114
000116
000120
000122

00012+
000126
000130
000132
000134
000136
000140
000142
000144
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000200
000204
000210
000214

17:49 PAGE 7
BASIC DEFINITIONS

000112
000000
000116
000000
000122
000000

000126
000C00
000132
000000
000136
000000
000142
000000
000146
000000
000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000200
005067
005067
005Go7
000137

SEQ 0011

.42
HALT
.42
HALT
.42
HALT

.42
HALT
.+
HALT
.42
HALT
.42
HALT
.+
HALT
o« Of
HALT
.42
HALT
.2
HALT
.42
HALT
.42
HALT
.=200
CLR
CLR
CLR
JMP
.=300

000202
000172
000170
001246

$PASS
$FATAL
$TESTN
a#START1

CLEAR PASS COUNT

JINITIAL START
;DEVICE INTERRUPT VECTORS

HALT

.SBTTL

.=400

APT MAILBOX-ETABLE

;;!ttt'fi'ttttii.tfifit'ti"'fi'ttt.t...fit...'ti.tt.t.Qtttitll'fit'tt'

$MAIL :

$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
$ENV:
.BYTE
SENVM:
_RYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
ACSWR
ACPUOP

s sAPT MAILBOX

;:MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;:TEST NUMBER
2 sPASS COUNT
;;DEVICE COUNT
22170 UNIT NUMBER
; ;MESSAGE ADDRESS
;;MFSSAGE LENGTH
2 sAPT ENVIRONMENT TABLE
s ;ENVIRONMENT BYTE
;.ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;:USER SWITCHES
;;CPU TYPE,OPTIONS

CVKAFD MACY1 30A(1052)
02-AUG-78
CVKAFD.P11
26=-JUL=-78 11:04

17:49 PAGE 8
APT MAILBOX=ETABLE

i
i

BITS 15=11=CPU TYPE
11/04-01.11/05-04 11/20=03,11/40=04,11/45=05

o
o

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR

256

11/70=06.PD0=07,0=10

“x

BIT

$ETEND:

000430

SEQ 0012

LMEXIT
.SBTTL

8=MEMORY MANAGEMENT

APT PARAMETER BLOCK

SRR AR

AR AR A AR AR AR AR AR AR AR AR A AR

A AR

AR A AR AR

AR AR AR AR AR AR

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
s

265

000024

267

000044

A AR AR AR A AR AR A AR A AR AR

.$X=.
. =24
200
. =44
$APTHDR
.=.8X

AR A

AR AR

AR AR R AN AAR

AR AR AN AR

::POINT TO APT INDIRECT ADDRESS PNTR.
;;POINT TO APT HEADER BLOCK
;;RESET LOCATION COUNTER

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

AR AR R AR R ARk

s INTERFACE SPEC.

.WORD
.WORD
.WORD
._WORD
.WORD

.U?ggo

h®

;;SAVE CURRENT LOCATION
;:SET POWER FAIL TO POINT TO STAR1 OF PROGRAM
::FOR APT START UP

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$UNITM:

AR ARk

O
SMAIL
10
10
O

DIAGNOSTIC

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
s sADDRESS OF APT MAILBOX (BITS 0-=15)
J;RUN TIM OF LONGEST TEST
,,RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

$EYEND-$MAIL/2 2 sLENGTH MA]LBOX-ETABLE (WORDS)

DEVCNT=SDEVCT
ERRNUM=$FATAL
OPTION=$CPUOP

;sTHIS TABLE CONTAINS INITIAL REGISTER AND VECTOR ADDRESSES
167770
167772
167774
167773

000300
000302
000304
000306

RCSR:

CSR

CSR+2
CSR+4

CSR+3

RCSR1:

300

302

304

306
sTHIS

TABLE

167770
167772
167774
167773

DRCSR:
DROBUF:
DRIBUF:
DRBHIO:

000300
000302
000304

DRVECA: 300
DRLVLA: 302
DRVECB: 304

CONTAINS REGISTER AND VECTOR ADDRESSES OF

167770
167772
167774
167773

THE DR11-C UNDER TEST

;ADDRESS OF DR11=C STATUS REGISTER
;ADDRESS OF DR OUTPUT BUFFER REG.
;ADDRESS OF DR INPUT BUFFER REG.
JHIGH BYTE OF OUTPUT BUFFER REG.

s INTERRUPT VECTOR OF UNIT UNDER TEST
s INTERRUPT VECTOR

| CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JUL=-78
11:04

306
338;

001236
001240

000306
000000

DRLVLB: 306
XORFLC: 0

309
%}?

001242
001244

000000
000240

COUNT:
M:

312
313

001246
001252

012706
000137

001200
001256

1
SEQ 0013

0
240

sCOUNT LOCATION
sPRIORITY LEVEL

START1: MOV
JMP

#STKPTR,SP
A#START

%]‘9

;¢

ROUTINE TO PRINT DIAGNOSTIC'S TITLE IF

318
319

:
ALL CODE ADDED FOR TITLE PRINTOUT IS NOTED
: WITH
:+ IN THE
COMMENT SECTION.

314

"ffit'tti*t'tttt.ifi.fifiQQQ*'Q'Q'.Q"'Q.Q'Q'ffiiti.ttiiififitttitifi'.Qitfifittitt.t'.""'i".'.

315

320

001256
001264

324
325
6

001272
001276
001300

328

132767
001010

001266

012700

001304

001372

105737
100375
112037

000040

177135

004602
177564

177566

BITB #40, SENVM
BNE AROUND
MOV A#TITLE1,RO
TSTB a#TPS
BPL
LOOP1
MOVB (RO)+,a#TPB
BNE LOOP1

s+ WILL APT ALLOW PRINTING?
:+ NO BRANCH AROUND

;+ GET STARTING ADDRESS OF TITLE MSG

:+ CHECK IF TERMINAL READY
;+ LOOP IF NOT
:+ PRINT A CHARACTER

;+ BRANCH BACK IF NOT DONE PRINTING

; INITIALIZE ADDRESS AND VECTORS

332
%gz

001306
001312

012700
012701

001200
001220

335
336
337
338
339
340
341
332%

001316
001324
001326
©€01330
001332
001334
001336
001340

012737
012021
012021
012021
012021
012021
012021
012021

004656

353
354
355
356
357
358

APT MODE

.'#tfi'tti'fifittt.fi'.l"ti*tt""'tfiRfiitfifitfifittfi..'fi.QQt..'tt‘.it'Q.'".i""t'...fi"ti""i

329

345
346
347
348
349
350
351
352

START:
LOOP1:

:;’?3’?

344

ALLOWED BY

4‘tttttfi'tttfi'fifittfil‘fitfit’li"'ifi*t"tfi"i'ifi'fifi'.fi.it'tfi'.it'fii.fitttt'tt""titi"tfit"'t

321
322

323

17:49 PAGE 9
APT PARAMETER BLOCK

001342
001342
001350
001354
001360
001366
001374
001376

001402
001404
001412
001414
001422
001430

001434

AROUND: MOV #RCSR, RO
MOV #DRCSR,R1
000024

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

; GET ADDRESS OF UNIT UNDER TEST

H#PFAIL ,a#24
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RQ)+,(R1)+
(RO)+,(R1)+

;LOAD INITIAL TEST ADDRESSES

:DOES RESET CLEAR REGISTER?
012767
016705
106427
016737
012777
000005
017700

001450
032767
001356
012767
012767
005767

000001
177644
000200
000056
177777

177034

000094
177626

177620
040000
-~
000001
000001
176766

177010
176760
176750

TST1:

LP1:

MOV
MOV
MTPS
MOV
MOV
RESET
MOV

BEQ
BIT
BNE
MOV
MOv
TST

#1,8TESTIN
DRCSR,RS
#200
ERR1,a#4
#-1,aDROBUF

@DROBUF ,RO
CON
#BiT14,$SWREG
LP1
#7,SFATAL
#1,8MSGTY
$SWREG

: MOVE TEST NUMBER TO MAILBOX
;GET ADDRESS OF STATUS REGISTER
:TURN OFF INTERRUPTS
;SET TIME OUT TRAP VECTOR
:PRESET OUTPUT BUFFER
:CLEAR DATA REGISTER
:GET RESULT OF RESET

; CHECK FOR LOOF CN ERROR
: GO TO LOOP ERROR
; MOVE ERROR NUM TO MA]LBOX
: CHECK FOR HALT ON ERROR

CONTINUE IF SET

:<DATA REG DID NOT CLEAR>

CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JuL-78 11:04

17:49 PAGE 10
ERROR
1

%2 001440 000431

363
364

365
366
367
3%8
%9
g;?

372

373
374
375
376
377

001442
001442

032767

040000

001450
001452
001460
001466
001472
%}2;2

001337
012767 000002
012767 000001
005767 176730
100401
000000

001476

032767

002000

001504 001316
001506 000407
001510 012706 001200
001514 012737 000006
001522

378 001524

379
380

000765

176752

176722
176712

176716

000004

000772

001526

385
386

001534
001542

001526

387 001544
388

001550

391

001552

393
394

012767

032767
001505

000002

001000

176650

Tsr2:

176660

001562
001564

000240
017700

177434

001574

001016

398 001604
399 001606
400 001614
401 001622
402 001626
403 001630

001350
012767
012767
005767
100401
000000

405
406

001632
001636

032700
001016

408
409
410
411
412
413

001646
001650
001656
001664
001670
001672

001371
012767
012767
005767
100401
002000

404

407

414
415
416
417

001576

001632

001640

001674
001674
001676
001700

032767

000005
000240
000240

CON

LP1
: GO TO LOOP ERROR
#2,$FATAL
#1.8MSGTY
; MOVE ERROR NUM TO MAILBOX
$SWREG
: CHECK FOR HALT ON ERROR
13
CONTINUE IF SET
;<TIME WHEN ADDRESSING PLU>

; CHECK FOR LOOP ON ERROR

BIT

#8I1T10,$SWREG

; CHECK FOR LOOP ON TEST

BNE
BR
MOV
MOV
an

TST1
1ST2
#STKPTR, SP
46,
1$

: GO TO LOOP ON TEST

;RESET STACK POINTER
*RESTORE TIME OUT TRAP

=12

177442

MOV

176616

000003
000001

176566
176556

040000

176554

000004
000001
176532

176524
176514

; SET UP STACK POINTER
* CLEAR EVERYTHING

: THIS RESET SHOULD INITIALIZE THE
: SIGNAL LATCHES IN THE TEST MODULE

i nnmc AL LOWANCE
aDRIBUF ,R
: GET DATA

BNE

T2CON

#IT0, R6

#BIT14,8SWREG

: PRIME THE LATCHES

* CHECK DATA TRANS SIG

: CONTINUE IF PRESENT

: CHECK FOR LOOP ON ERROR

BNE
MOV
MOV
ST
BM]
HALT

1ST2
: GO TO LOOP ERMJUR
#3,SFATAL
#1.SMSGTY
: MOVE ERROR NUM TO MAILBOX
$SWREG
* CHECK FOR HALT ON ERROR
1%
* CONTINUE IF SET
:<NO DATA TRANS SIGNAL>

BIT
BNE

#81T1,RO
T2CN1

BNE
MOV
MOV
ST
BM]
HAL T

T2CON
: GO TO LOOP ERROR
#4, SFATAL
#1.8MSGTY
: MOVE ERROR NUM TO MA]LBOX
$SWREG
; CHECX FOR HALT ON ERROR
1%
* CONTINUE IF SET
:<NO NEW DATA RDY SIGNAL>

BIT

1$:
T2CN1:

; SKIP TEST IF NOT SELECTED

NOP
MOV
BIT

T2CON:

#STKPTR, SP

; MOVE TEST NUMBER TO MAILBOX

#31460,aDROBUF

NOP

1$:

000002

#2.$TESTN

#BIT9, $SWREG
1ST3

MOV

BIT

040000

176574

TO EXECUTE THIS TEST

RESET

395 001570 032700 000001
397

SEQ 0014

BNE
MOV
MOV
TST
BMI
HALT

MOV

000005

000240

DATA REG DID NOT CLEAR

:
#BIT14,$SWREG

BIT

BIT
BEQ

012706 001200
031460

001560

: TEST NEUDATA RDY'" AND 'DATATRANS'' SIGNALS IN PLU
* NOTEwsaxxx THE °LU TEST MODULE MUST BE INSTALLED

012777

392

5%:

B8R

233

386
390

CON:

333}

384

ERR1:

RESET
NOP
NOP

#BIT14,8SWREG

: CHECK NEW DATA RDY SIGNAL
* CONTINUE IF OK
-

CHECK FOR LOOP ON ERROR

CLEAR EVERYTHING

CVKAFD MACY11 30A(1052)
02-AUG-78
CVKAFD.P11
26=JUL=-78
11:04

418

001702

422
423
424
425
426
255

001720 001365
001722 012767
001730 012767
001736 005767
001742 100401
%};22 000000

429

001746

419 - 001706
420 001710
421
001712

430
431

432
433
436
435
436
437

001756

001756
001764
001772
001776

002002
002004

017700

005700
001416
032767

002050

040000

176410

000006
000001
176366

176360
176350

002000

176354

001416
032767

001343

452
453

002064
002066

001031
012777

455

002076

005777

454

456
457

002074

002102
002106

012767

032767

000005

001416
032767

000004

176326

000400

176336

177777

177126

001356
012767
012767
005767
100401

040000

176310

000007
000001
176266

176260
176250

465

002140

032767

002000

176254

468

002150

002174

000005
052525
177032
052525

176226
177036

473

012767
012777
017700
022700

&3 885343.3 000000

‘429

469
470
471
472

002146

002150
002156
002164
002170

BNE
MOV
MOV
TST
BMI
HALT

T2CN1
: GO TO LOOP ERROR
#5,SFATAL
#1.SMSGTY
: MOVE ERROR NUM TO MAILBOX
$SWREG
* CHECK FOR HALT ON ERROR
1%
- CONTINUE IF SET
;<SIGNALS DID NOT CLEAR>

RO
1%
#81T14,8SWREG

; CHECK SIGNAL LATCHES

: SHOULD BE CLEAR
: CONTINUE IF CLEAR
: CHECK FOR LOOP ON ERROR

BIT

#BIT10,8SWREG

;

MOV
MGV
MOV
CMP

#3,$TESTN
#-1, aDROBUF
aDROBUF ,RO
#-1.R0

: MOVE TEST NUMBER TO MAILBOX
*ALL ONES TO REGISTER

BNE
MOV
MOV
ST
BM]

TST3
#6,SFATAL
#1.S$MSGTY
$SWREG
1%

: MOVE ERROR NUM TO MAILBOX
.- cuecx FOR HALT ON ERROR
ONTINUE IF SET

#B8IT10,8SWREG

;

BNE

HALT
BIT

BNE

001340

001416

1ST4:

MOV
BIT

BNE
MOV

RESET

177122

002112
002114
002122
002130
002136

458
459
460
461
462

NO NEW DATA RDY SIGNAL

aDRIBUF ,RO

BEQ
BIT

TST2

1%
#B1T14,8SWREG

CHECK FOR LOOP ON TEST

: GO TO LOOP ON TEST

: CHECK FOR LOOP ON ERROR

: GO TO LOOP ERROR

<necxsrén WILL NOT HOLD ALL ONES>

TST3

CHECK FOR LOOP ON TEST

: GO TO LOOP ON TEST

:WRAP CABLE MUST BE INSTALLED TO EXECUTE THIS TEST

002050

002056

1ST3:

MOV
TST
BEQ
BIT

176420
177230

450
451

176452
176442

000003
177777
177224
177777

032767

449

000005
000001
176460

012767
012777
017700
022700

445

448

176502

176446

44213. %% 000000
002046

040000

002000

001264

001361
012767
012767
005767
100401

229

177316

032767

438 002012
439 002014
440 002022
441 002030
442 002034
002040

17:49 PAGE 11
ERROR
&

TSTS
#-1,aDROBUF

;SKIP TEST IF NOT SELECTED

aDRIBUF

BNE
MOV
MOV
ST
BM]

TST4
#7.SFATAL
#1.$MSGTY
$SWREG
1%

HALT

1$
#B8I1T14,8SWREG

:SET DATA TO ALL ONES

*REGISTER SHOULD CLEAR
;

CHECK FOR LOOP ON ERROR

: GO TO LOOP ERROR

; MOVE ERROR NUM TO MAILBOX
: CHECK FOR HALT ON ERROR
CONTINUE IF SET

BIT

#B]1T10,8SWREG

;

MOV
MOV
MOV
CMP

#5 $TESTN
#5525 3DROBUF
aDR(BgfRO
#-2525 RO

: MOVE TEST NUMBER TO MAILBOX
:LOAD TEST DATA INTO BUFFER
:COPY DATA FROM BUFFER TO RO
*COMPARE DATA

BNE
1STS:

: MOVE TEST NUMBER TO MAILBOX

BEQ
BIT

#4,STESTN

#8118, $SWREG

BEQ

1S4

CHECK FOR LOOP ON TEST

: GO TO LOOP ON TEST

;BR IF DATA IS CORRECT

SEQ 0015

CVKAFD MACY11 30A(1052)
02-Auc-.7s
CVKAFD.P11
26=JuL-78
11:04

474

002176

032767

475
476
477

002204
002206
002214

001361
012767
012767

479

002226

100401

478

002222

005767

17:49 PAGE 12
ERROR
7

040000

176216

000010
000001

176166
176156

176174

‘l.g? 8855% 000000
482

002232

002000

176162

485

002242

490

002266

486
487
488
489

002242 012767
002250 012777
002256 017700
002262 022700

000006
125252
176740
125252

176134
176744

491

002270

040000

176124

000011
000001

176074
176064

001416

032767

492
493
49

002276
002300
002306

001361
012767
012767

49
497

002320
002322

100401
000000

495

498
499

002314

002324
002324

% 002332

502

503

002334

005767

032767

001343

002334

012767

506

002344

005722

507
508

509
510
511
512

513

514

515
516

002342

002346
002350

002352
002354

002356
002360
002362

002364

002366
366

517 002374
518 002376
519 002404

010502

032767

001365
012767
012767

002422

528

529

002432

176042

TsT7:

#6 STESTN
: MOVE TEST NUMBER TO MAILBOX
#125252,aDROBUF :LOAD TEST DATA INTO BUFFER
aDROBUF. RO
:COPY DATA FROM BUFFER TO RO
nzszsz RO
*COMPARE DATA

BIT

nexm $SWREG

$SWREG

BM]
HAL T
BIT

TSTS

ST6
m SFATAL
#1,$MSGTY
1%

;

CHECK FOR LOOP ON TEST

* GO TO LOOP ON TEST

aR IF DATA IS CORRECT
+

CHECK FOR LOOP ON ERROR

: GO TO LOOP ERROR

; MOVE ERROR NUM TO MAILBOX
CHECK FOR HALT ON ERROR

CONTINUE IF SET
:<INCORRECT DATA IN REGC>

#BIT10,$SWREG

1ST6

; CHECK FOR LOOP ON TEST

* GO TO LOOP ON TEST

005767

100401

032767

001341

012767

040000

176026

000012
000001

175776
175766

176004

#7.8TESTN

: MOVE TEST NUMBER TO MAILBOX

(R2)+

*R2=ADDRESS OF OUTPUT BUFFER REG.

(R2) ,R3
5%

* CHECK THE RECEIVED DATA
* ERROR IF NOT THE SAME

175772

RS ‘R2

*GET ADDRESS OF DRCSR

CLR
MOV

R3
R3, (R2)

INC
ISTB
BEQ

R3
R3

LP?

* CONTINUE IF END

BIT

CMP
BNE

: INITIALIZE DATA REGISTER
: SEND THE DATA

* INCREMENT THE DATA
: CHECK FOR END OF DATA

: GO TO SEND DATA IF NOT

BNE
MOV
MOV

va;mLSSWREG

; CHECK FOR LOOP ON ERROR

#12,$FATAL
#1,8MSGTY

; MOVE ERROR NUM TO MAILBOX

8M]

£
002000

MOV

BUFTST: MOV

LP?7:

000771

§24

ggg

CONTINUE IF SET

:<INCORRECT DATA IN REG>

MOV
MOV
MOV
CMP

BNE

001417

%5253 000000
002430

CHECK FOR HALT ON ERROR

#8I1T10,$SWREG

BNE
MOV
MOV
1%:

: MOVE ERROR NUM TO MAILBOX

BIT

BEQ

005203
105703

525

000007

021203
001004

002412

002416

176070

005003
010312

520

521

002000

$SWREG

; CHECK FOR LOOP ON ERROR

: GO TO LOOP ERROR

;TEST RELIABILITY OF DR11-C OUTPUT BUFFER REGISTER

504

505

176102

BM]

BNE
TST6:

#BIT14,8SWREG

TSTS
#10,SFATAL
#1,$MSGTY

HALT

BNE
MOV
MOV
ST

032767

232 002240 001343

BIT

HAL T
BIT

BNE

ssmec

: GO TO LOOP ERROR

; CHECK FOR HALT ON ERROR

CONTINUE IF SET

;<DATA INCORRECT IN REG>

#B1T10,$SWREG

cuecx FOR LOOP ON TEST

1S17

: GO TO LOOP ON TEST

#10,$TESTN

; MOVE TEST NUMBER TO MA]LBOX

:TEST THAT BYTE REFERENCE TO oacfiurAFFECT PROPER BYTE ONLY
000010

175744

1$T10:

MOV

SEQ 0016

CVKAFD MACY1T 30A(1052)
02-AUG~78
CVKAFD.P1T
26=JUL-78 1 1:04

531

012777
105077

533
00136
012767
012767
005767
100401
000000

17:49

PAGE 13

ERROR

177777
176550
176544
177400

176554

040000

175730

#BIT14,$SWREG

000013
000001

175700
175670

#13,SFATAL

175706

TAG:

032767
001341

002000

175674

012767

000011
177777
176456

175646
176456

176446

;CLEAR LOW BYTE

?}77400.RO

;VERIFY THAT LOW BYTE IS CLEAR

175632

000014
000001

175572

175602

032767
001341

002000

175576

012767

000012

175550

#1,8MSGTY
$SWREG
1%

; MOVE ERROR NUM TO MAILBOX
. CHECK FOR HALT ON FRROR
CONTINUE IF SET

#BIT10,$SWREG

; CHECK FOR LOOP ON TEST

#11,8TESTN
#-1,3DROBUF
aDRBHIO

; MOVE TEST NUMBER TO MAILBOX
sSET ALL ONES IN BUFFER
sCLEAR HIGH BYTE

1277.R0

;VERIFY THAT HIGH BYTE

#BIT14,$SWREG
TSTN

; CHECK FOR LOOP ON ERROR
: GO TO LOOP ERROR

#1,8MSGTY

: MOVE ERROR NUM TO MAILBOX

:<LOW BYTE

$SWREG
1%

TST12:

; CHECK FOR LOOP ON ERROR

; GO TO LOOP ERROR

#1464, SFATAL

1%:

. COPY DATA

TAG

@aDROBUF ,RO

040000

sSET. ALL ONES IN BUFFER

aDROBUF

TST10

000377

175610

#-1,aDROBUF

aDROBUF ,RO

1%:

SEQ 0017

DATA INCORRECT IN REG

;

FAILED

TO CLEAR>

GO TO LOOP ON TEST

IS CLEAR

CHECK FOR HALT ON ERROR
CONTINUE IF SET

;<MIGH BYTE

FAILED

TO CLEAR>

‘BIT1O $SWREG
ST

; CHECK FOR LOOP ON TEST
: GO TO LOOP ON TEST

#12,8TES'N

; MOVE

TEST NUMBER TO MAILBOX

CVKAFD MACY11 30A(1052)
02-Auc-78
CVKAFD.P11
26=JUL=-78 11:04

17:49 PAGE 14
ERROR
14

565

002634

005067

000110

CLR

568
569
570

002650
002654
002660

105077
105277
105264

176352
176346
000001

T12CON: CLRB
3$:
INCB
INCB

105764
001417

000001

48:

566 002640 012704 002750
567 002644 005077 176352
571
§72

573
574

002664
002670
002672
002676

027714
001004

176332

575 002700 000765

576
§77

578
579
580
581
582
583

002702
002702

584
585

002736
002736

032767

588

002750

000000

586 002744
587 002746

589
590

002752

001330
000401

591

002752

012767

593

002762

011500

592

002760

594

002764

596

002772

595

597
598
599
600
601
602

032767

002710 001346
002712 012767
002720 012767
002726 005767
002732 100401
002734 000000

603

002770

003000
003002
003010
003016
003022
003024
003026

005015

040000

175512

000015
000001
175470

175462
175452

002000

175456

T12DAT:

000013

175424

000143

032767

040000

175422

000016
000001
175400

175372
175362

001364
012767
012767
005767
100401
000000

003034

032700

000140

608 1003042

032767

040000

607 003040

609
610
611
612
613
614

003050
003052
003060
003066
003072
003074

615
616

003076
003076

619

003106

2};

620

003104

003106

001016

001366
012767 000017
012767 000001
005767 175330
100401
000000

HIGH BYTE FAILED TO CLEAR

T12DAT

;CLEAR DATA LOCATION

@DRBHIO
@DRBHIO
1(R&)

*CLEAR HIGH BYTE
* INCREMENT HIGH BYTE
* INCREMENT COMPARISON DATA

1(R4)
1$

:F INISHED?
“YES

BIT

#BIT14,8SWREG

; CHECK FOR LOOP ON ERROR

BIT

#BIT10,8SWREG

; CHECK FOR LOOP ON TEST

.WORD

MOV

#13,$TESTN

; MOVE TEST NUMBER TO MAILBOX

MOV

(R5) ,RO

*COPY DATA

MOV
CLR

#T12DAT ,Ré
aDROBUF

CMP
BNE

aDROBUF
, (R4)
6$

TSTB
BEQ

BNE
MOV
MOV
ST
8MI
HAL T
BNE
BR

CLR

*STORE ADDRESS OF DATA LOCATION
*CLEAR OUTPUT BUFFER
:COMPARE DATA
*BRANCH ON ERROR

*CONTINUE TESTING

TST12
: GO TO LOOP ERROR
#15,SFATAL
#1,$MSGTY
: MOVE ERROR NUM TO MA]LBOX
$SWREG
; CHECK FOR MALT ON ERROR
1%
CONTINUE IF SET
;<DATA INCORRECT IN REG>
1ST12
1ST13

#143.R0

BIT

#BI1T14,8SWREG

BEQ

BNE
MOV
MOV
TST
BMI
HAL T
BIT

BNE

175352

BIT

175322
175312

002000

175316

012767

000014

175270

1$:

15T14:

(R5)

BIT

T13CON: MOV
MOV

032767

001322

tST13:

1$:

604 003026 012715 000140
605 003032 011500
606

1$:

* GO TO LOCP ON TEST

;CONTROL STATUS REGISTER (DRCSR) TESTS.

032700

001416

6%:

BNE
MOV
MOV
TST
8MI
HAL T
BIT

T13CON

*CLEAR STATUS REGISTER

*VERIFY THAT IE AND CSR BITS ARE CLEAR

xr YES, CONTINUE

- CHECK FOR LOOP ON ERROR

TST13
: GO TO LOOP ERROR
#16, SFATAL
#1,$MSGTY
; MOVE ERROR NUM TO MAILBOX
$SWREG
* CHECK FOR HALT ON ERROR
1%
* CONTINUE IF SET
;<STATUS REG DID NOT CLEAR>

#140, 3RS
aRrS RO

: INTERRUPT ENABLE FOR A+8

#140,R0

; INTERRUPT ENABLE BITS SET?

#BIT14,8SWREG

- CHECK FOR LOOP ON ERROR

“CONTINUE IF YES

T13CON
* GO TO LOOP ERROR
#17
. SFATAL
#1,8MSGTY
; MOVE ERROR NUM TO MAILBOX
$SWREG
; CHECK FOR HALT ON ERROR
1%
* CONTINUE IF SET
:<ENABLE ‘BITS NOT ON>
IT10,$SWREG

; CHECK FOR LOOP ON TEST

BNE

r 113

* GO TO LOOP ON TEST

MOV

#14,$TESIN

; MOVE TEST NUMBER TO MAILBOX

SEQ 0018

CVKAFD MACY11_30A(1052)
02-AUG=78
CVKAFD.P1
:
26=-JUL-78 11:04

621
622
623
626

003114
003120
003122
003124

012715
000005
011500
032700

17:49

040000

175262

000020
000001

175232
175222

032767
001344

002000

175226

638

003176
204

012767

000015
000001
000201

175200

040000

175172

000021
000001

175132

175150

;SET INTERRUPT ENABLE FLOPS

aRS RO

:CLEAR THOSE FLOPS
:COPY CONTENTS OF DRCSR TO RO

*BR IF CLEARED

#1,$MSGTY

: MOVE ERROR NUM TO MAILBOX

:TEST INTERRUPT ENABLE BITS

#BIT14,8SWREG
TST14
#20, $FATAL
$SWREG
13

18:

175142

*
-

CHECK FOR HALT ON FRROR
CONTINUE IF SET

#B1T10,$SWREG

;

#15,$TESTN
#1.3RS

; MOVE TEST NUMBER TO MAILBOX
*SHOULD SET REQ A ALSO

5%
aRS
1%

*FLAG ERROR MESSAGE IF NO
*CLEAR STATUS REGISTER
GO TO NEXT TEST

#201,aRS

5%:

- CHECK FOR LOOP ON ERROR
* GO TO LOOP ERROR

;<INTERRUPT ENABLE DID NOT CLEAR>

TST14

SIS

SEQ 0019

ENABLE BITS NOT ON

#140,R0

000140

003166
003174

032767
001362
012767
012767
005767
100401
000000

#140,3RS

634
635

003222
003230
003232
003240
003246
003252

ERROR

000140

175240

645
646
647
648
649
650

PAGE 15

#BIT14,8SWREG

15715
#21,$FATAL

;

CHECK FOR LOOP ON TEST

GO TO LOOP ON TEST

*VERIFY THAT REQ A IS SET

;

CHECK FOR LOOP ON ERROR

GO TO LOOP ERROR

#1,8MSGTY,

; MOVE ERROR NUM TO MAILBOX

$SWRE G

CHECK FOR HALT ON ERROR
CONTINUE

;<A REQ DID NOT SET>

SET

CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JUL~78
1 1:04

000016
000002

17:49

175120

PAGE 16

ERROR

TST16:

100002

175112

00002
000001
175G70

175062
175052

A REQ DID NOT SET

MOV
BIS

#16,$TESTN
#2.3R5

; MOVE TEST NUMBER TO MAILBOX
:SHOULD SET REQ B

BEQ

13
aRS
1%

“FLAG ERROR MESSAGE IF NO
*CLEAR STATUS REGISTER
*GO TO NEXT TEST

5%:

#100002,aRS

#BIT14,8SWREG

TST16
#22 ,SFATAL
#1,8MSGTY
$SWREG
1%

TST17:

#17 ,$TESTN

175010

174772

000003
000140
040000

174764

000024
000001

174734
174724

174742

002000

174730

$SWREG
1%

012767

000020
000340
000003

174702

040000

174672

000025
000001

174642

174632

: MOVE ERROR NUM TO MAILBOX

CHECK FOR HALT ON ERROR
CONTINUE IF SET
DATA

IN REG>

sCLEAR CSR BITS
sTEST INTERRUPT ENABLE BITS
sCOTINUE IF STILL SET

T17CON
#24 SFATAL

: GO TO LOOP ERROR

; CHECK FOR LOOP ON ERROR

#1,$MSGTY
$SWREG

: MOVE ERROR NUM TO MAILBOX
: CHECK FOR MALT ON ERROR

#BIT10,8SWREG

;

: CONTINUE IF
;<WRONG BITS SET>

#20,$TESTN

SET

CHECK FOR LOOP ON TEST

GO TO LOOP ON TEST

: MOVE

TEST NUMBER TO MAILBOX

#340

*LOCK OUT INTERRUPTS

#140,3RS
1%

*VERIFY THAT FLOPS ARE CLEARED
‘BR IF YES

15720
#25 SFATAL

#3,3RS

000140

‘BR IF SET
- CHECK FOR LOOP ON ERROR
: GO TO LOOP ERROR

#3,aRS
#140,3R5
1%

TST17

TST20:

*LOAD ALL ONES IN STATUS REGISTER

<1NCORRECT

#BIT14 ,$SWREG

1%:

; MOVE TEST NUMBER TO MAILBOX

:VERIFY THAT ALL WRITE BITS ARE SET IN DRCSR

032767
007321

; MOVE ERROR NUM TO MAILBOX
; CHECK FOR HALT ON ERROR
: CONTINUE IF SET

#100343,(RS)

#1,$MSGTY

1%:
T17CON: BIC

; CHECK FOR LOOP ON ERROR

; GO TO LOOP ERROR

:LOCK OUT INTERRUPTS

T17CON
#BIT14,8SWREG
1ST17
#23, $FATAL

175002

*VERIFY THAT REQ B IS SET

#340

#-1,3RS

175032

SEQ 0020

;<B REQ DID NOT SET>

1%:

175040

BIT

040000

#B1T14,$SWREG

#1,8MSGTY

*SET CSR BITS

*SHOULD CLEAR INTERRUPT ENABLE FLOPS

- CHECK FOR LOOP ON ERROR
GO TO LOOP ERROR

: MOVE ERROR NUM TO MA]LBOX

CVKAFD MACYTT 30A(1052)
02-AUG-78
CVKAFD.P11
26-JUL~78 1 1:04

005767

100401
000000

17:49

PAGE 17

ERROR

174650

002000

174636

1%:

;NOTE:

000021
000400

174610
174620

000710

174574

000026
000001

174544
174534

002000

174540

RESET DID NOT CLEAR BITS

ST
BM]

$SWREG
1%

BIT
BNE

#BI1T10,$SWREG
TST20

HALT

;

CHECK FOR HALT ON ERROR
CONTINUE IF SET

:<RESET bxo NOT CLEAR BITS>

;?E URSP 59BLE MUST BE

; CHECK FOR LOOP ON TEST
: GO TO LOOP ON TEST
INSTALLED TO EXECUTE

MOV

#21,$TESTN

; MOVE TEST NUMBER TO MAILBOX

BEQ
JMP

LP21
TST999

;DO TESTS IF NOT INHIBITED
:IF _INHIBITED

aR5

sSET CSRO

#8178, $SWREG

CLR

aR>5

TSTB

aR5

INC

BMI
BIT
BNE
MOV

;CLEAR STATUS REGISTER

1%
#BI1T14,$SWREG
TST21
#26,SFATAL

MOV

#1,$MSGTY

BMI
HALT

TST

1%:

BIT

LP21:

040000

174552

Tst21:

BIT
BNE

$SWREG

;CHECK FOR REQ A FLAG

:BR IF SET
; CHECK FOR LOOP ON ERROR
; GO TO LOOP ERROR

: MOVE ERRCR NUM TO MAILBOX

CHECK FOR HALT ON ERROR

;
:

CHECK FOR LOOP ON TEST
GO TO LOOP ON TEST

CONTINUE IF SET
;<BITO DID NOT SET BIT7>

#81110,$SWREG
TST21

SEQ 0021

CVKAFD

MACY11 30A(1052)

CVKAFD.P11
739

003664

764

003702

26=JUL=78 11:04

740 003664
741 003672
762 003676
743 003760

012767
012715
005715
100416

745
746
747

001365
012767
012767

748

749

750

751
752

753

754

003710
003712
003720
003726

003732

003734

003736
003736

003744

003746

032767

005767

100401

17:49

000022
000002

174512

040000

174512

000027
000001

174462
174452

174470

032767

002000

174456

174430

001347

755
756

003746
003754

012767
012715

000023
000003

758

003762

022700

100203

760

003770

032767

040000

174424

000030
000001
174402

174374
174364

759

761
762
763
764
765

766
767

768

;93

771

772

003766

003776
004000
004006
004014
004020
004022
004024

004024

004032

004034

001416

001363
012767
012767
005767
100401
000000
032767

001345

002000

004034

012767

000024

775
776
777

004046
004052
004060

012706
012777
012715

001200
004074
000101

778
779

004042

004064
004070

ERROR

TST22:

106427

106427
000240

7739

004072

000402

783

004076

000416

174370

18:

792
793

794

004132

004134
004134

004142

BNE
MOV
MOV

TST22
#27.$FATAL
#1,8MSGTY

: GO TO LOOP ERROR

HALT

#BI1T14,8SWREG

$SWREG

CHECK FOR LOOP ON ERROR

: MOVE ERROR NUM TO MAILBOX
: CHECK FOR HALT ON FRROR

CONTINUE IF SET

;<BIT1 DID NOT SET BIT15>

BIT

#8I1T10,$SWREG

;

MOV
MOV

123 $TESTN
aRS

; MOVE TEST NUMBER TO MAILBOX
*CSRO AND CSR1

CMP

nooéos RO

BNE

TST22

(R§>RO

mm $SWREG

BNE
MOV
MOV
ST
BM]

TST23
#30, SFATAL
#1,$MSGTY
$SWREG
1%

BIT

#BIT10,$SWREG

HAL T

BNE

000340

174342

TST24:

CHECK FOR LOOP ON TEST

: GO TO LOOP ON TEST

*COPY DATA

*COMPARE DATA

*BR IF GOOD DATA IS RECEIVED
:

CHECK FOR LOOP ON ERROR

: GO TO LOOP ERROR

: MOVE ERROR NUM TO MAILBOX
* CHECK FOR HALT ON ERROR
: CONTINUE IF SET

:<INCORRECT BITS SET IN REG>

1ST23

CHECK FOR LOOP ON TEST

: GO TO LOOP ON TEST

175150

000000

032767

001352
012767
012767
005767
102401

174314

000031
000001
174272

174264
174254

032767

002000

000000
001334

#24 STESTN

: MOVE TEST NUMBER TO MAILBOX

MOV
MOV
MOV

#STKPTR, SP
#4$, aDRVE CA
#1071, 3RS

SINITIALIZE STACK POINTER
*INTERRUPT RETURN POINTER
S INTERRUPT ENABLE AND CSRO

:NO INTERRUPT

GO TO NEXT TEST

MTPS
NOP

040000

174260

1$:

MOV

MTPS

791

; MOVE TEST NUMBER TO MAILBOX
*SET CSR1
:CHECK FOR REQ B FLAG
“BR IF SET

BIT

784
785

004106
004110
004116
0041264
0041

#22,$TESTN
#2,3RS
aRrS
1%

BEQ

48:

786
787
788
789
790

MOV
MOV
ST
BM]

MOV

782 004074 005015
004100
004100

BITO DID NOT SET BIT?

TST23:

BIT

1$:

:CAN WE RAISE INTERRUPT '‘A"*

773
774

PAGE 18

BM]

000000

757 003760 011500

02-AUG=78

#340

CLR

aRS

BIT

#BIT14,8SWREG

:LOCK OUT INTERRUPTS

*ALLOW INTERRUPTS

; CLEAR INTERRUPT ENABLE
;

CHECK FOR LOOP ON ERROR

BNE
MOV
MOV
ST
BM]

TST24
#37,.$FATA
#1,$MSGTY
$SWREG
%

: GO TO LOGP ERROR

BIT

#2'7T10,$SWREG

;

HAL T

BNF

; MOVE ERROR NUM TO MAILBOX
: CHECK FOR HALT ON ERROR

CONTINUE IF SET

:<NO A INTERRUPT>

15724

CHECK FOR LOOP ON TEST

: GO TO LOOP ON TEST

SEQ 0022

CVKAFD

MACY11_30A(1052)

CVKAFD.P11
795
796
797
798
799
800
801
802

803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824

004144
004144
004152
004156
004162
004170

004174
004200
004202
004204
004206
004210
004210
004216
004220
004226
004234
004240
004242
004244
004244
004252

gz%

004254
004254
004262
004266
004274
004300
004306
004312
004316
004320
004320
004326
004330
004336
004344
004350
004352
004354
004354
004362
004364
004366

844
845
846
847
848
849
850

004372
004372
004400
004402
0044
004412
004414

825
826

827
828
829
830
831
832

833

834
835
83¢
837
838

839
840
841

02-AUG-78

26=-JUL-78 11:04

17:49 PAGE_19
ERROR
31

012767
012706
106427
012777
012715
106427
000240
000402
005015
000416

000025
001200
000340
004204
000042
000000

032767
001352
012767
012767
005767
100401

040000

174204

000032
000001

174154
174144

032767
001334

012767
017702
016777

012706
012777
012715
106427
000240

174232

002000

#340

#4%,aDRVE(CB
#42,3R5

000026
174744
174752

001200
004354
000101
000000

174122

174736

174074

000033

174044
174034

032767
001341
005015

002000

010277

174640

012767
005000
010077
027700
001020
005200

000027
174614
174612

174040

s INTERRUPT RETURN POINTER
:1E AND CSR1

sNO _INTERRUPT

;GO TO NEXT TEST

;CLEAR INTERRUPT ENABLE

#BIT14,$SWREG
TST25

; CHECK FOR LOOP ON ERROR
; GO TO LOOP ERROR

#1,SMSGTY

; MOVE ERROR NUM TO MAILBOX

;

; CHECK FOR HALT ON ERROR
CONTINUE

;<NO B INTERRUPT>

#BIT10,$SWREG
TST25

IF SET

; CHECK FOR LOOP ON TEST
; GO TO LOOP ON TEST

: TEST FOR INTERRUPT FROM DEVICE
TST26:
#26,$TESTN
; MOVE TEST NUMBER TO MAILBOX
aDRLVLA,R2
*SAVE INTERRUPT PSW
MOV
PL ,aDRLVLA
:LOCK OUT SUCCESSIVE INTERRUPTS
LP26:
MOV

#STKPTR,SP

*INITIALIZE STACK POINTER

#101,aRS

:SET INTERRUPT ENABLE-AND CSRO

#1$,aDRVE CA

5%:

#BIT14,8SWREG

TST26
#33, SFATAL

; CHECK FOR LOOP ON ERROR

: GO TO LOOP ERROR

#1,8MSGTY

; MOVE ERROR NUM TO MAILBOX

. CONTINUE IF SET

$SWREG

1%:

*INTERRUPT RETURN POINTER

SALLOW INTERRUPTS

; CHECK FOR HALT ON ERROR

;<NO DEVICE INTERRUPT>

#1T10,8SWREG
LP26

; CHECK FOR LOOP ON TEST
. GO TO LOOP ON TEST

R2.aDKLVLA

+RESTORE INTERRUPT PSW

#27 ,$TESTN

; MOVE TEST NUMBER TO MAILBOX

RO, aDROBUF
aDRIBUf ,RO

: SEND DATA
s CHECK THE DATA

aR5

174004

sLOCK OUT INTERRUPTS

aR5

040000

sINITIALIZE STACK POINTER

sALLOW INTERRUPTS

$SWREG

1%:

; MOVE TEST NUMBER TO MAILBOX

#32 ,SFATAL

174722

032767
001352
012767
012767
005767
100401
000000

000001
174052

5%:

SEQ 0023

NO A INTERRUPT

#STKPTR,SP

175044

174150

;RAISE INTERRUPT '‘B"’
1ST25:
#25,$TESTN

4%:

174162

5
RC

;CLEAR INTERRUPT ENABLE

sSET UP STARTING DATA

. ERROR IF NOT RIGHT
. CHANGE DATA

CVKAFD

MACY11_30A(1052)

CVKAFD.P11
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868

004416
004420
004424
004426
004432
004434
004440
004442
004446
004450
004452
004454
004454
004462
004464
004472
004500
004504

871
872

3678

02-AUG-78

26=JUL-78 11:04
001434
022700
001411
022700
001406
022700
001403
022700
001355
005200
000762

17:49

031460

ERROR
3%:

031461
031462
031463
4%:

040000

173740

000034
000001
173716

173710
173700

%g%

032767
001347
012767
012767
005767
100401

000000

004510
004516

032767
001325

002000

5%:

"
173704

PAGE3§0

NO DEVICE INTERRUPT

BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP
BNE
INC
BR

1%
#31460,R0
4%
#31461,R0
4%
#31462,R0
4%
#31463,R0
wLOOP
RO
3%

sNEXT TEST IF END
; CHECK FOR TEST MODULE CODE

BIT
BNE
MOv
MOV
TST
BMI]

MBIT14,8SWREG
wLOOP
#34 SFATAL
#1,8MSGTY
$SWREG
1%

; CHECK FOR LOOP ON ERROR
: GO TO LOOP ERROR

BIT
BNE

#BIT10,$SWREG
1S127

; CHECK FOR LOOP ON TEST
; GO TO LOCP ON TEST

HALT

; RECHECK DATA CODE

; MOVE ERROR NUM TO MAILBOX
: CHECK FOR HALT ON ERROR
; CONTINUE IF SET

;<WRAP DATA DID NOT COMPARE>

SEQ 0024

CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JUL=78
78
11:04

873
874
875

004520

877

004524

132767

000040

879
880

004534
004540

012700
105737

004640
177564

882

004546

112037

177566

884
885
886
887
888
889
890
891

004554
004560
004562
004564
004566
004570
004572
004574

013700
001405
5
004710
000240
000240
000240
000167

000042

17:49 PAGE_21
ERROR
34

1ST999:

876 004520 005237 000406
878 004532 001010

881

004544

100375

883 004552 001372

892

174506

cvey

004600

897
898
899
900

004600
004602
004610
004616

177777
053103
030104
053122

040513
020040
030461

026506
042040
042040

004640
004 004646

047105
050040

020104
051501

043117
006523

901
902
903
904
905

906

004626
004632

004654

000012

BNE

ACT

: NO

MOV
TSTB

: WILL APT ALLOW PRINTING?

#MSG,RO
a#TPS

: GET MESSAGE ADDRESS
: CHECK_IF TTY READY

BPL

WAIT

: IF NOT

BNE

WAIT

: NEXT IF NOT DONE

(RO)+,a#TPB

: PRINT THE CHARACTER

¢ ON PASSES >1 THETITLE PRINTOUT WILL BE SUPPRESSED

STORE:

177564
177566

040511
044524

: INCREMENT PASS COUNT

#40,$ENVM

MOV
@#42,R0
: CHECK ACT
BEQ
GOAGIN
: KEEP GOING
RESET
$ENDAD: JSR
PC, (RO)
: ACT HOOKS
NOP
NOP
NOP
GOAGIN: JMP
AROUND ;+ DO ANOTHER PASS

895
89

WSPASS

MOVB

ACT:

WRAP DATA DID NOT COMPARE

INC

BITB

WAIT:

TPS=177564
TPR=177566

047107
006503

051517
000012

PASSPT: =1
TITLE1:.ASCIZ .CVKAF=DO

MSG:

.EVEN

.ASCIZ

'
DRV11 DIAGNOSTIC. <15><12>

.END OF PASS.<15><12>

SEQ 0025

CVKAFD MACY11 30A(1052)
02-AUG=78
CVKAFD.P11
26=JuL=-78 11:04

17:49 PAGE 22
ERROR
34

907
%
910

WRAP DATA DID NOT COMPARE

;ENTER HERE FOR POWER FAIL
004656

010046

911 004660
912 004662
913 004664
914 004666
915 004670
916 004672
917 004676
918 004702
919 004710

010146
010246
010346
010446
010546
016746
010637
012737
000000

921

016706

920

004712

922
923
926
925
926
927
928
929

004720
004724
004726
004730
004732
004734
004736
004740

004714

000000

012667
012605
012604
012603
012602
012601
012600
000137

PFAIL:

173126
004712
004714
:

177772

173100

001256

000024
SAVRG:

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HAL T
O

RESTAR :MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
JMP

%0,=(6)

%1.-(6)
%2.~(6)
¥3.-(6)
%%.=(6)
%5.=(6)
24.=(6)
%6. MSAVR6
#RESTAR, a#24

SAVR6, %6

(6)+,24
(6)+.%5
(6)+.%
(6)+.%3
(6)+.%2
(6)+.%1
(6)+.%0
MSTART

;SAVE REGISTER OR STACK

*WHEN POWERING DOWN

;STORE STACK POSITION
;HALT ON POWER DOWN NORMAL
*STACK IS SAVED HERE

*RESTORE REGISTER OFF STACK
:WHEN POWERING
UP

SEQ 0026

CVKAFD MACY11 30A(1052)
02-AUG-78
CVKAFD.P11
26=JuL-78
11:04

ABASE = 000000
ACDW1 = 000000

234

ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=

234
234
234
234
234

000000
000000
000000
000000
000000

ADDW13= 000000
ADDW14= 000000

234
878

ADDWS = 000000

234

ADDW6 =
ADDWZ =
ADDW8 =
ADDWS =
ADEVCT=
ADEVM =
AENV =

000000
000000
000000
000000
000000
000000
000000

234
234
234
234
234
234
234

AMADR1=
AMADR2=
AMADR3=
AMADRG=
AMAMS1=

000000
000000
000000
000000
000000

234
234
234
234
234

AMAMS2= 000000
AMAMS
3= 000000
AMAMS4= 000000

234
234
234

AENWM = 000000
| AFATAL= 000000

234
234

234
234
234

240
245

246
237

AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000

234
234
234

AMTYP2= 000000
AMTYP3= 000000

234
234

APASS = 000000

234

239

ASWREG= 000000
ATESTN= 000000
AUNIT = 000000
= 000000

234
234
234
234

247
238
241
248

BITO
BITOO
BITO1
anog
BITO3
RITO4

1448
1344
1338
1328
1318
1308

395
144
143
142
141
140

AMTYP1= 000000

AMTYP4= 000000

APRIOR= 000000
AROUND
001306

AVECT1= 000000
AVECT2= 000000

= 000001
= 000001
= 000002
= 000004
= 000010
= 000020

SEQ 0027

249
8844

234

ADDW15= 000000
ADDW2 = 000000
ADDW3 = 000000
ADDW4 = 000000

234
234

ACDW2 = 000000

ACPUOP= 000000
ACT
004554

17:49 PAGE 24
CROSS REFERENCE TABLE == USER SYMBOLS

234
234

234
322

234
234

242
243
236

3328

891

| BUFTST

002342

CON
001524
COUNT
001242
CR
= 000015
CRLF
= 000200
(SR
= 167770
DDISP = 177570
DEVCNT= 000410
DRBHIO 001226
DRCSR
001220
DRIBUF
001224
DRLVLA 001232
DRLVLB 001236
001222

139
138
137
136
135
405
372
714

429

445
752

465
768

354
596
831

364
608
863

397
626

407
645

451

721

362

3784

287

288

289

290

549+
333
364
823

568+
347
418
824+

569+
455
842+

848

350+

352

391«

433
571

736

SEQ 0028

543

561

585

457

688

474
706

9N
728

516

470+

471

487+

488

5264
839

421

662

871

616

535

634

553

760

785

530+

531+

Bay

BIT1S = 100000
BIT2 = 000004
BIT3 = 000010
BIT4
= 000020
BITS = 000040
BIT6 = 000100
BIT? = 000200
BIT8 = 000400
BIT9 = 001000
BPTVEC= 000014

WO =—=\n

BIT14 = 040000

BIT13 = 020000

BIT11 = 004000
BIT12 = 010000

17:49 PAGE 2 5
CROSS REFERENCE TABLE == USER SYMBOLS

d e —d

BIT10 = 002000

d e e

000200
000400
001000
000002

BIT07 =
BITO8 =
BITO9 =
BIT1
=

VO Wi

= 000100

W) =

BITOS = 000040

BIT

SLEII® 8 ~NrorOrNON
SRR TRYNRARY

CVKAFD MACY11 30A(10 32)
02-AUG-78
CVKAFD.P11
26=JUL-78 11:04

309#

385

453~

CVKAFD MACY11 30A(1052)
02-AUG-78
CVKAFD.P11
26=JUL=-78 11:04
MSG
N

004640
= 000035

OPTION= 000426

PASSPT
PFAIL
PIRQ
=
PIRQVE=

PL
PRO

=
=
=
=

PR1
PR2
PR3
PRG
=
PRS
=
PR6
=
PR7
=
P
=
PSW
=
PWRVEC=
RCSR
RCSRT

690
812#

2834

004600
004656
177772
000240

8974
335
A
158#

000040
000100
000140
000200
000240
000
000340
177776
177776
000024
001200
001210

824
834
844
85#
864
874
88#
614
62
1534
2874
2914

001244
000000

RESTAR 004714
RESVEC= 000010
SAVR6
004712
STACK = 001100
START
001256
START1
001246
STKLMT= 177774
STKPTR= 001200
STORE
004600
SWO
= 000001
SWwO0 = 000001
SW01
= 000002
SWw02 = 000004
SWw03 = 000010
SwO4 = 000020
SWO5 = 000040
SWO6 = 000100
SWO7 = 000200
SWO8 = 000400
SW09 = 001000
Sw1
= 000002
SW10 = 002000
SW11
= 004000
Sw12
= 010000
SWw13
= 020000
SWw14 = 040000
SW15 = 100000
SW2
= 000004
SWw3
= 000010
Swé
= 000020

SW5

879
10#
459
S80#

= 000040

3104
81#

918
1484
917«
5%
313
224
634
304
8944
1164
106#
1054
1044
1034
102#
1014
1004
994
984
o7#
1154
AN
AT
L4
Lo
L7
914
1144
113#
1124

1114

17:49 PAGE 26
CROSS REFERENCE TABLE == USER SYMBOLS

9034
356
4604
598

3674

494

4004
518

409
5194

730

7314

746

7478

6114

6914
833

399

493

8664

628

6294

9104

824

332

9214
9204

921

3214
3124

929

312

375

16
115
114
113
112
m
110
109
108
107

e
954
934
924

387

775

799

825

647

537
6484
762

5384
7634

CVKAFD MACY11_30A(1052)
02-AUG-78
CVKAFD.P11
26=JuL=-78 11:04
SW6
SW7
SW8
SW9

= 000100
= 000200
= 000400
= 001000

TAG_
002440
TBITVE= 000014

TITLET
004602
TKVEC = 000060
TPB
= 177566
TPS
= 177564
TPVEC = 000064
TRAPVE= 000034
TRTVEC= 000014
TST1
001342
TST1I0
002432
TST11
002530
1ST12
002626
TST13
002752
TST14
003106
TST1S
003176
1ST16
003256
1ST17
003336
1ST2
001526
1ST20
003474
1ST21
003566
1ST22
003664
1ST23
003746
TST24
004034
TST2S
004144
1ST26
004254
1ST27
004372
[ 1513
001756
TST4
002050
1STS
002150
1ST6
002242
1ST7
002334
TST999 004520

T12CON
T12DAT
T13CON

T17CON

| 12

T2CON
WAIT
WLOOP
X
=

002650
002750
003026
003416

001674

001632
004540
004402
000030

1104
109#
1084
43

5304
1494

323
1564
326+
32
1574
1554
1504
354
5284
5464
563#
587
6194
6374
654%
6714
374
69
7198
738
7564
77om
797#
go1w
844w
386
L%
452
485¢
5034
703

1078

898
882+
880

896H
8954

373
544
554
578
590
627
646
663
678
383
707
729
745
761
786
810
832
872
4314

438

446

4L6BE

475

483

458

492
525
875#

562
586
597
635
697
398
715
737
753
769
7%
818

466

5884
609

406

4158

422

6854

430

689

396
880#
8u7#
o8
504

4054
881
859
36
505

408
883
864
347#
529

773

77w

798

655

617

500

566
604r

639

SEQ 0030

536

5684
565+
595

676

17:49 PAGE 27
CROSS REFERENCE TABLE == USER SYMBOLS

656w

384
5308

672

795

385H
547

432
S4B

433
564

450
5654

322

B2dm

B4S

B4bw

673

700

7014

720

4S1H
591

72w

469
592#

740

470
620

741

486
6214

755

4LB7N
638

7564

CVKAFD

MACYN

SETABL
SETEND

000420
000430

CVKAFD.P11
SFATAL

$HIBTS
SMAIL

000402
:

SMBADR

| SMSGAD

26=JUL=-78 1

ngAUG-78

279

537+
762%

555+
787

222

274K
2354

275#

000416

243N

$MSGTY

000400

$PASS
$PASTM
$SWREG

000406
000436
000422

CROSS REFERENCE TABLE == USER SYMBOLS

2374

282

275

279

579
811+

356+

366+

SEQ 0031

598+
833

610%
865+

628+

399+

409+

423

439

459

476%

400+

410%

424

440%

460+

477%

49 %

519+
747+

763

647

664+

679

690+

708+

493

518+

538+

556%

730+

746

2364

357«
599+

611

221+
277
o474

2394

876

354

358

364

368

372

385

397

401

407

411

421

425

752

760

764

768

785

789

793

809

813

817

831

835

839

2384

580«

000404

223+

$TSTM
SUNIT
SUNITM
SUSWR
.
=

000434
000412
000440
000424
004744

2764
2414
2784
24L8#4
1604
185

= 000430

PAGE 28

242N

$TESTN

.8X

17:49

244n
2564

000432

000414

$MSGLG

000430
000400

30A(10;2)

620+

212
2804
263#

367

346+

629~

648%

665+

680+

691+

709+

731«

638+

655+

672+

384~

432«

450+

469+

486+

504+

773+

798+

822+

845+

564+

591+

161
187
214
378
268

1
1894
1

165
192

167
194
2204

169
196
2254

171
198
226

173
200

175
202

177
204

179
206

181
208

210

700+

720+

740+

755+

228

2304

529+

263

547+

788+

264H

2664

CVKAFD MACY1T SOA(‘IO;Z)”O(Z)zAUG-?B
CVKAFD.P1
26=JUL~78

610

ERROR

124
608
53#

GETPRI
GE TSWR
MULT

1%
14
14

ESCAPE

NEWTST
POP
PUSH
REPORT
SCOPE
SEQ

SETPRI
SETUP

SKIP

SLASH
SPACE
STARS
SWRSU

TYPBIN
TYPDEC
TYPNAM

TYPNUM

TYPOCS
TYPOCT
TYPTXT

$TNUM

#
1%

1#
1#
S4#
134

628
354
626

345

159#

439

459

476

493

363
644

397
661

407
677

421
688

437
706

457
728

383

431

449

468

485

233

260

262

269

384

632

469

690

708

730

746

518

537

555

579

598

576
862

596

619

637

654

620

638

655

474
744

762

491
760

787

811

833

865

528

546

563

590

529

547

564

591

515
784

535
808

553
830

719

739

754

772

797

503

821

844

1594

159#
1594

159#
159#
1594

14
#
1#

159#
1594
1594

134

423

679

1594

%
14
1%

672

409

159#
159#
1594
155#

399

664

1594

699
1594

1L
1594
1L
4

366

647

1594
1554
159#

671
1L
1L

SEQ 0052

1594

155#
356

1594

346

700

720

740

ERR

14
12#

COMMEN

ENDCOM
ERNUM

17:49 PAGE 30
CROSS REFERENCE TABLE == MACRO NAMES

773

486

798

504

822

845

CVKAFD MACY11_30A(1052) 02-AUG-78 17:49 PAGE 31

CVKAFD.P11

26=JUL=78 11:04

. SPOWE
. SRAND
. SRDDE
. SRDOC
.SREAD
.SR2AZ
. $SAVE
.$S82D
.$S820
.$SCOP

1%
%
%
1%
%
1%
1%
%
%
1%

. SSUPR
.STRAP
.STYPB
STYPD
.STYPE
STYPO
.$40CA
.1170

%
1%
%
%
i
%
%
1%

. ABS.

004744

.$SIZE

ERRORS DETECTED:

4o
L98

000
O

CVKAFD.BIN, CVKAFD.LST/CRF
/SOL/NL : TOC=C VKAFD. SML , (VKAFD.P11

RUN-TIME: 8 9 .5 SECONDS

RUN-TIME RATIO: 75/18=4.1
CORE USED:
32k
(63 PAGES)

CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0033