Digital PDFs

AH-8851E-MC

September 1978

78 pages

Original

4.0MB

view download

OCR Version

3.4MB

view download

Document:	CZKMAE0 PDP11 MOS-CORE 0-123K EXERCISER DEC 1978 bw
Order Number:	AH-8851E-MC
Revision:	000
Pages:	78
Original Filename:	CZKMAE0__PDP11__MOS-CORE_0-123K_EXERCISER__AH-8851E-MC__DEC_1978_bw.pdf

OCR Text

P D P 1

MOS/CORE 0-123K EXCERCISER

AH-8851E-MC

CZKMAEO

t
MADE IN USA

(ZKMA

MACY11 30A(1052)

(ZKMAE .MA(
1

2
3

.REPT

18-SEP-78

18-SEP-78 11:5¢4

11:56

PAGE 1.

SEQ 0001

S
6
7

9
10
"

13
14

16
17
8
19

IDENTIFICATION
essssesssceee-

0
S;

PRODUCT CODE:

AC-8850E-MC

PRODUCT NAME:

CZKMAEO MOS/CORE 0-124K EXER

DATE CREATED:

AUG, 1978

MAINTAINER:

DIAGNOSTIC GROUP

29
30
N
%%

34
35
36
37
38
39

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
THIS
SOF TWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED
OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT
FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE

43
44
22

THE INFORMATION IN THIS DOCUMENT
WITHOUT NOTICE AND SHOULD NOT BE

MENT BY DIGITAL EQUIPMENT CORPORATION.

47
48
49

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
OF ITS SOF TWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY
DEC.

40
2;

LICENSE TERMS.
TITLE TO AND OWNERSHIP OF
SHALL AT ALL TIMES REMAIN IN DEC.

THE SOFf TWARE

IS SUBJECT TO CHANGE
CONSTRUED AS A COMMIT-

30A(1052)

18-SEP-78

18-SEP-78 11:54

11:56

PAGE 2

O
WV=2O0

STARTING PROCEDURE
SWITCH SETTINGS
CONTROL~C OPTION

STARTING ADDRESS -200
RESTART ADDRESS =250

PROGRAM HALTS

SWNU=O

ERRORS

RESTRICTIONS

OB W20

MISCELLANEOUS
ADDRESS/BANK RANGES
EXECUTION TIME

N=O

PROGRAM AND/OR OPERATOR ACTION
LONG GALLOP OPTION

N—=OoO

LOADING PROCEDURE

unes

REQUIREMENTS
EQUIPMENT
STORAGE

——a

ABSTRACT
GETTING STARTED

CONTENTS

00O

MACY11

OO0

(2ZKkMA

CZKMAE .MAC

PROGRAM DESCRIPTION
NARRATIVE FLOW CHART
TEST TITLES

ERROR
ERROR
ERROR
ERROR

PASS

(NORMAL

+ ERROR)

MESSAGE FORMAT.
DICTIONARY
HISTORY
RECOVERY

COUNT AND

STACK POINTER

IN OCTAL AND DECIMAL

TEST NO.

LOCATIONS

POWER FAIL

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

O: TEST FOR PROPER BANK SELECTION
1: CHECK DATI/DATO LINES
2: TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION
3: DUAL ADDRESS TEST A
4: DUAL ADDRESS TEST B
5: MARCHING 1'S AND 0'S
6: CELLS' VOLATILITY TEST
7: SHIFTING DIAGONAL
10: READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL
11: READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST
12: WORST CASE TESTING FOR CORE MEMORY

TEST 13: WRITE RECOVERY TEST

10.0

RXDP & ACT11

& APT OPERATION

SEQ 0002

(ZKMA

MACY11 30A(1052)

(ZKMAE .MAC

105

[1.0]

D
ndd
) e
D
d
)
d
e
D
—

IF ONLY 4K
USED TO TEST A SYSTEM WITH CNLY 4K OF MEMORY.
EXISTS, HOWEVER, THE ABSOLUTL LOADER IS NOT SAVED.
THIS PROGRAM CAN BE RUN UNDER XXDP, APT AND ACT MONITORS.
ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER, SOF TWARE
SWITCH REGISTER = LOCATION 175.

1.1]

GETTING STARTED

IF NO HARDWARE SWITCH REGISTER SET LOCATION 176 TO OBTAIN SWITCH

OPTIONS.

VNS WN—O

SEUERE

bk
D
e
e

SET SWITCH REGISTER = 00000
START AT 200.
THE MEMORY LIMITS WILL BE PRINTED.
SEE SECTION 4.4 FOR REST OF PRINTOUTS EXPECTED.

'E§$A2¢SS #01'' WILL BE TYPED LAST, AND THE TEST WILL

TO HALT THE TEST, TYPE CONTROL-C, THIS WILL
PROGRAM IS RELOCATED BACK TO LOWER MEMORY.

INSURE

THE

BE PATIENT, THE CONTROL~C IS ONLY RECOGNIZED AT THE END

THE CURRENT SUBTEST.

IF AN UNEXPECTED HALT OCCURS SEE SECTION 6.0.
ERROR # IS TYPED SEE SECTION 6.2.

.CAUTION!

2
LR Al 2P X

[
U
S
N —t

QU
G
U
U
NN

SEQ 0003

FOR MOS AND SOME FOR CORE, BUT ALL TESTS ARE ALWAYS RUN.
THE TESTS OCCUPIES LESS THAN 2K OF MEMORY SO IT CAN BE

PAGE 3

ABSTRACT

A.
B.
.
D.
E.

[0 BV AVLIV,V
[V, 1V, 1V, [V, 1V,]
OO0 NN
NN =

11:56

THIS DIAGNOSTIC WILL TEST O - 124K OF MOS OR CORE MEMORY
ON ANY PDP-11 FAMILY COMPUTFR.
SOME TESTS ARE WORST CASE

[eo]e)

0o~
Nr\)_a_a_a_a..n_a_n_a_a_a%
200NV
WSO

D —

106

18-SEP-78

18-SEP-78 11:54

BIT15(100000)
BIT14(040000)
BIT13(020000)
BIT12(010000)
BIT11(004000)
BIT10(002000)
BIT09(001000)
B1T08(000400)
BI1T707(000200)
BIT06(000100)
B1705(000040)
BIT04 (000020)

B8IT03-81T00

IF AN

BEFORE 'DIGGING'' INTO THE LISTING READ
SECTION 9.

HALT ON ERROR
LOOP IN SUBTEST DEFINED BY BITS <3:0>
INHIBIT ERROR PRINTOUTS
ENABLE TESTING ABOVE 28K (MEMORY MANAGEMENT)
ENABLE PARITY TESTING
HALT AFTER EACH SUBTEST
INHIBIT PROGRAM RELOCATION
TYPE FIRST FAILING BIT ERROR PER 4K.
ENABLE LONG GALLOPING TEST
INHIBIT MEMORY SIZING
INHIBIT "END PASS #XX'' PRINTOUTS
INHIBIT PRINTOUTS

BEGINNING TEST NUMBER.

CZXMA

MACY11 30A(1052)

CZKMAE .MAC

161
162
163
164
165

(2.0]

REQUIREMENTS

2.1

EQUIPMENT

181
182
183
184

185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200

201
202
203
204
205

11:56

PAGE &

SEQ 0004

STANDARD 11 FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE
AND FROM 4K TO 124K OF MEMORY.

166

167
168
169
170
171
172
173
174
175
176
177
178
179
180

18-SEP-78

18-SEP-78 11:54

TIM PROCESSOR AND ON 30K LSI

2.2]

PROGRAM WILL ALSO RUN ON THE

SYSTEMS.

STORAGE

PROGRAM STORAGE - 0000 - 7744.
PROGRAM EXPANDS FOR ERROR
HISTORY AND TO SAVE ABSOLUTE LOADER OR XXDP CHAIN MONITOR.
(SEE SECTION 9.

£3.0]

FOR DETAILS)

LOADING PROCEDURE

USE STANDARD PROCEDURE FOR PDP-11

£4.0]

STARTING PROCEDURE

[4.1]

SWITCH SETTINGS

ABSOLUTE BINARY FORMATTED TAPES.

SOF TWARE SWITCH REGISTER = LOCATION 176
BIT15(100000)

HALT ON ERROR

BIT14(040000)
B1T713(020000)
BIT12(010000)

LOOP ON TEST DEFINED BY SWITCH REGISTER BITS <3:0>
INHIBIT ERROR PRINTOUTS
ENABLE MEMORY MANAGEMENT (TESTING ABOVE 28K)

BIT11(004000)
BIT10(002000)

ENABLE PARITY MODULES.
""PARITY'" WILL BE TYPED
HALT AFTER EACH SUBTEST

BI1T09(001000)

INHIBIT PROGRAM RELOCATION

BIT08(000400)

TYPE FIRST FAILING BIT IN EACH_4K BANK ONLY.
'THE TOTAL ERROR COUNT (UP TO 377) WILL

BITO7(000200)

ENABLE LONG GALLOPING TEST.
!"'GLP'" WILL BE TYPED.
!CAUTION! INCREASES TEST TIME BY FACTOR OF 25.
INHIBIT MEMORY SIZING.
'THE MEMORY [ IMITS MUST BE SETUP IN THE FOLLOWING LOCATIONS:

BIT06(000100)

'PRESS CONTI’
JE TO DO NEXT SUBTEST

;%25?55 LOCATIONS 430-7776 WILL NOT BE

'BE SAVED IN THE ERROR HISTORY.

(VALUES TO TEST 0-8K ARE SHOWN)
(LOWTWO=LOCATION 324)

LOWTWO: 0

;STORE BITS 17:16 OF LOW TEST ADDRESS

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

18~-SEP-78
18-SEP-78 11:54

11:56

PAGE

LOWADD: 0

217

218
219

220
221

SEQ 0005

sMUST BE USED.
JSTORE BITS 17:16 OF HIGH TEST ADDRESS

HIGHTWO: Q
HIGHADD:

37776

;STORE REST OF HIGH TEST ADDRESS

BIT05(G00040)

INHIBIT "END PASS #xX'' PRINTOUTS

BI1T04(000020)

B.
BIT03-B1700

£4.21

.STORE REST OF LOw TEST ADDRESS

;D0 NOTM ATTEMPT TO SET THE LOWER LIMIT
;AT OR ABOVE 160000 ON A 30K LSI SYSTEM.
;THE PROGRAM WILL ASSUME MEMORY MANAGEMENT

INHIBIT ERROR HISTORY PRINTOUTS.
THE
ERROR HISTORY CAN STILL BE OBTAINED

BY TYPING CONTROL-C.

INHIBIT PRINTOUTS ‘PARITY'',*'GLP'",''TST13 BNK XX''.

NUMBER OF TEST (0-13) TO RUN FIRST,
.NORMALLY USEC WITH BIT14 (LOOP ON TEST)

CONTROL=~C OPTION

CONTROL €

[~C]

AFTER COMPLETION OF THE CURRENT TEST.
THE ERROR HISTORY (SEE SEC. 6.3) WILL BE
TYPED.

THE

PROGRAM WILL

HALT

IN LOWER MEMORY.

PRESSING CONTINUE WILL RESTART

[(4.3]

STARTING ADDRESS- 200
250 OR 200

RESTART ADDRESS

RESTART AT 200 CLEARS PASS COUNT

[4.4]

THE DIAGNOSTIC.

($SPASS) AND PRINTS ''CZKMAE'' TITLE.

PROGRAM AND/OR OPERATOR ACTION

LOAD PROGRAM INTO MEMORY USING ABSOLUTE

THE FOLLOWING IS AN EXAMPLE WITH EXPLANATIONS
OF THE PRINTOUTS EXPECTED.

2)
3

SET OPTIONS (SEE SEC. 4.1)
START THE PROGRAM AT 200

LOADER.

TXXXXX=YYYYY'

;ADDRESSES OF TEST BOUNDARIES.

"PARITY"

;IF PARITY OPTION SELECTED

L] IGLPI [

;IF LONG GALLOPING OPTION SELECTED.
;PRINTED AS

"TST13 BNK 00"’

“TST13 BNK 01"
ETC...

"RELOC"

TST11

IS ENTERED,

;ENTERING BANK 00 IN TEST 13.

JAND BANK 1...

JUNTIL ALL BANKS (UP TO 7) HAVE BEEN TESTED.
;THE DIAGNOSTIC RELOCATES TO HIGHEST

;LOCATIONS UNDER TEST AND RUNS TSTO-TST13 AGAIN.

CZKMA

MACY11 30A(1052)

CIKMAE.MAC

18-SEP-78

18~SEP-78 11:54

11:56

PAGE 6

SEQ 0006

273
074

"TST13 BNK 00"

:TESTING BANK 00 IN TEST 13 (RELOCATED STATE.)
INOTE-ONLY BANK 00 IS ESTED IN THE RELOCATED STATE.

276

"END PASS #Xx''

;WHERE *XX"' IS THE PASS NO.

280

ADDITIONAL PRINTOUTS
'NO PAR"'

;PRINTED IF PARITY SELECTED BUT NOT AVAILABLE.

282

'NO MNG''

:PRINTED IF SWR BIT 12 IS SET AND NO MEMORY

278
279

283

284
285
286
287

4.5

289
290
291
252
294
295
296

*MANAGEMENT AVAILABLE.

LONG GALLOP OPTION

NORMAL WORST CASE SR SETTING
0000.
FOR LONG GALLOP
SR = 200.
LONG GALLOP OPTION SHOULD ONLY BE USED IF AN
MOS MEMORY PROBLEM IS SUSPECTED AND NO OTHER SUBTESTS
WILL FAIL.
THE TEST TIME IS INCREASED 25 TIMES.

[5.01

PROVRAM HALTS

(NORMAL+ ERROR)

298

THIS IS A LIST OF EXPECTED HALTS.

300

MAY BE DUE TO A DEVICE

299

THE

TEST HALTS

IN A LOCATION NOT IN THIS LIST AND IT IS LESS THAN 776,

301
302
303
304

INTERRUPTING.

NOTE THE HALT AT END OF SUBTEST AND HALT ON ERROR HALT LOCATIONS
MAY BE RELOCATED. THE ACTUAL LOCATIONS THEY ARE IN CAN BE FOUND
BY SUBTRACTING 500 FROM THE HALT PC AND ADDING THIS DIFFERENCE TO THE

CONTENTS OF SAVRé [LOC. 3501.

306

307

REASON

RE COVERY

308

309
310
311

112

TRAP TO LOC. &

EXAMINE R6, IT CONTAINS
THE POINTER TO THE PC
WHERE THE TRAP OCCURRED.

313
314

146

POWER FAIL

POWER UP WILL RECOVER
IF IN CORE MEMORY
.

316
517

1672

HALT AT END OF
TEST SWITCH SET.

PRESS CONTINUE
NEXT SUBTEST.

319
gg?

6144

HALT ON ERROR
SWITCH SET.

PRESS CONTINUE.

322

6230

CONTROL-C TYPED

PRESS CONTINUE TO RE-

323
324
325
326
327

[6.0]

ERRORS

OR FATAL ERROR
OCCURRED

START TEST.

TO GO TO

CZKMA

g%g

{6.1]

11:56

18-SEP-78

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78 11:54

PAGE 7

SEQ 0007

ERROR MESSAGE FORMAT

THE ERROR ©ORINTOUT CONSISTS OF 6 OCTAL WORDS IN THE FOLLOWING

FORMAT:

332
333

334

"LOCATION

337
338
339

"'ADR ERR’'' WILL BE PRINTED PRIOR IF AN ADDRESSING ERROR IS SUSPECTED.
"PAR ERR'" WILL BE PRINTED PRIOR IF A PARITY ERROR TRAP OCCURRED
.CAUTION! IF PARITY ERROR THE GOOD DATA PRINTOUT IS THE

%2?

GOOD

BAD

ERROR

PASFLG"'

PARITY MODULE UNIBUS ADDRESS THAT FAILED.

342
343
3464
345

WHERE:
LOCATION=

346
347

GOOD
BAD

348

FAILING MEMORY LOCATION

GOOD DATA [DATA THAT WAS EXPECTED]
BAD DATA [DATA THAT WAS FOUND]

349
350
351

ERROR
PASFLG

PROGRAM COUNTER AT ERROR CALL.

FAILING ERROR NO. (SEE SEC 6.2 = ERROR DICTIONARY)
CONTENTS OF LOCATION PASFLG.THIS MAY NOT BE RELEVANT.
(SEE SEC. 6.2-ERROR DICTIONARY)

352
353
354
355
ggg

'THE TEST WILL CONTINUE AFTER THE ERROR PRINTOUT.
""NO MNG'* WILL BE TYPED IF TESTING ABOVF 28K SELECTED AND NO MEMORY
.MANAGEMENT IS FOUND.

358
%28

."NO PAR'' WILL BE TYPED IF PARITY OPTION SELECTED
.AND NO PARITY MODULES WERE FOUND.

gg;

(FATAL ERRORS)

363
364
365
366
367
368
369

"ERROR #XXXXXX'' WILL BE TYPED WHERE “XXXXXX'' IS
THE ERROR NUMBER. THE DIAGNOSTIC WILL USUALLY HALT ON THIS TYPE
OF ¢RROR. SEE SEC. 6.2 -ERROR DICTIONARY - FOR DESCRIPTIONS
OF THE ERROR.

%;?

(APT MODE

372

ALL ERRORS ARE TREATED AS FATAL UNDER APT.

%;g

$MSGTY

373

AND THE PPNGRAM HALTS AT FATHLT.

$FATAL CONTAINS THE ERROR NO.

%;g

384

WHEN AN

ERROR OCCURS UNDER APT A '"1"' IS STORED IN LOCATION

376

379
380
381
gg%

ERRORS)

THE FAILING BANK NO.

[6.2]

UNDER TEST

IN THE LOW 8YiE

IN THE HIGH BYTE.

AND

ERROR DICTIONARY

THIS IS A LIST OF ERROR NUMBERS PRINTED AND POSSIBLE

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

385
386
387

18-SEP-78

11:56

18-SEP-78 11:54

PAGE 8

CAUSES FOR THE ERROR.
THE ROUTINE NAME WHERE

BRACKETS.

SEQ 0008

THE ERROR CALL ORIGINATED IS GIVEN IN

NOTE~ 'BAKPAT'' REFERS TO THE BACKGROUND PATTERN WRITTEN INTO MEMORY

FOR VARIOUS TESTS. IF PARITY SELECTED IT HAS A VALUE = 376 ,ELSE=377
"‘SWAPPED BAKPAT'' = 77000 IF PARITY SELECTED, ELSE=77400

.ENDR

:ERROR

[BUSERJ BUS ERROR TRAP TC LOC. & OCCURRED

s ERROR

;LTSTTRPIFATAL DATA ERROR

THIS ERROR IS NOT PRINTED AND IS FOR '‘APT'' USE.

;LOCATIONS 0000-430 FAILED 1°'S + 0'S TEST.
;RO = GOOD DATA
;R1 = ADDRESS OF

:ERROR

FAILING LOCATION.

;[APTSIZ] APT FATAL ERROR

;JAPT MEMORY TABLES NOT SETUP CORRECTLY.

;CHECK LOCATIONS SMAMST [430] TO $MADR4[446]
;. FOR CORRECT MEMORY SIZE DATA.
:ERROR

;ERROR

;[TSTSIZ]

OPERATOR FATAL ERROR

;[TSTSIZ]

OPERATOR FATAL ERROR

;SELECTED MEMORY SIZE GREATER THAN 28K, BUT
;SR BIT12 (10000) NOT SET.
;SET BIT12 AND RESTART AT 200.
;LOWEST SELECTED TEST LIMIT IS HIGHER THAN

SET LOCATIONS ‘1LOWTwWO''(322]
SHIGHEST TEST LIMIT.
AND RESTART
CORRECTLY
:L? sgéGHADD“ [330]

s ERROR

;LTSTO]
TEST SEQUENCE ERROR
;TSTO HAS BEEN ENTERED OUT OF
;TESTN SHOULD = 00

SEQUENCE

;THE DIAGNOSTIC HAS BEEN CORRUPTED.
;IF POSSIBLE SELECT ANOTHER 4K BANK

;BANK O AND RERUN THE TEST ON THE FAILING MEMORY.
;ERROR

;[TSTOJ DUAL ADDRESSING ERROR

;FOR THIS ERROR THE GOOD DATA PRINTED

IS AN

THIS IS THE ADDRESS SELECTED WHEN
JADDRESS.
;THE SAME DATA WAS WRITTEN INTO THE FAILING
CHECK BANK SELECT CIRCUITRY
;LOCATION.
. ERROR

;LTSTO] ADDRESS AND DATA ERROR

JIDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA
JWRITTEN INTO THE

:ERROR ALSO.
;ERROR

;[TSTO] DATA ERROR

FAILING LOCATION WAS

;IF BAD DATA = 0000 COULD BE AN ADDRESSING
JERROR , ELSE COMPARE GOOD AND BAD DATA FOR FAILING BITS.

(ZKMA

MACY11

CZKMAE .MAC

18-SEP-78
30A(1052)
18-SEP-78 11:54

11:56

PAGE 9

SEQ 0009

:[TSTO] ADDR ESSING ERROR

4461
442
4463

;ERROR # 11

4465
446
447
448
449
450

:ERROR

;LTST1] TEST SEQUENCE ERROR

;ERROR

;[TST1] DATA ERROR
: COMPARE GOO D AND BAD PRINTED DATA, FAILING
;DATA BITS MAY SHORTED UR SWAPPED.

:ERROR

;LTST2] TEST SEWJUENCE ERRUF

:ERROR

;[TST2] ADDR ESS OR DATA ERROR
:IF "'ADR ERR "' NOT PRINTED THEN THE BYTE SELECT
;CIRCUITRY PROBABLY FAILED.

;ERROR

s(TST3] TEST SEQUENCE ERROR
SSTESTN [404 J SHOULD
= 03

451

452

453

454
455
456
457
458
459
460
461
4«62
463
464
465
466
467
468

469

470
47
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486

487

488
489
490
49N
492
493
494
495
496

:THE FAIL 'NG ADDRESS RESPONDED BUT 1S HONMAY BE A DUAL ADDRESSING PROBLEM.
JEXISTENT.
= 01
SSTEST [404] SHOULD
:
THE DIAGNOSTIC HAS BEEN CORRUPTED.

SSTESTN [404 J SHOULD = 02
;
THE DIAGNOSTIC HAS BEEN CORRUPTED.

:ERROR

THE

DIAGNOSTIC HAS BEEN CORRUPTED.

;[TST3] DUAL ADDRESSING ERROR
;DUAL ADDRES SING PROBLEM FOR BITS THAT DIFFER
:IN GOOD AND BAD DATA PRINTOUT.

;ERROR

;[TST3] DUAL

APDRESSING ERROR
:FOR THIS ER ROR THE DATA PRINTED IS AN ADDRESS.
;THIS IS THE ADDRESS THAT WAS SELECTED WHEN THE

;SAME DATA WAS WRITTEN INTO THE FAILING LOCATION.

;ERROR

;[TST3] DUAL ADDRESSING ERROR

:SAME AS ERR OR #20 EXCEPT DIFFERENT DATA

; (SWAPPED BAKPAT) WAS WRITTEN.

:ERROR

;[TST4] TEST SEQUENCE ERROR
= 04.
;JSTESTN [404 J SHOULD
;

THE DIAGNOSTIC HAS BEEN CORRUPTED.

;ERROR

;[TST4] DUAL ADDRESSING ERROR

. ERROR

;LTST5] TEST SEQUENCE ERROR
;JSTESTN [404 J SHOuLD = 05

;IF PASFLG = 0 THEN THE FAILING LOCATION
;AND FAILING DATA ARE DUAL ADDRESSES.

;

cERROR

;ERROR

THE DIAGNO STIC HAS BEEN CORRUPTED.

;[TSTS] DATA ERROR

;DATA WRITE OR READ ERROR.
;[TST5] MARC HING 1°'S AND 0'S DATA ERROR
FAILED MARCHING 1'S + 0'S
;IF PASFLG=0
MAX TO MIN DIRECTION.
“IF PASFLG=1 FAILED MARCHING 1'S + 0'S
MIN

TO MAX DIRECTION

IN
IN

CZKMA

497
498
499
500
501
502

503

504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519

18-SEP~78

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78 11:54

;IF PASFLG=3

11:56

PAGE 10

FAILED MARCHING 0°'S + 1'S IN

MAX TO MIN DIRECTION.

;ERROR

;[TSTS5] MARCHING 1°'S AND 0'S DATA ERROR
;IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA IS
;CHECKED IMMEDIATELY AFTER BEING WRITTEN.

- ERROR

;(TST6] TEST SEQUENCE ERROR
SSTESTN SHOULD
= 06

;THE DIAGNOSTIC HAS BEEN CORRUPTED.

:ERROR

;[TST6) VOLATILITY/REFRESH TEST ERROR
;IF PASFLG=0 BAKPAT WRITE OR READ ERROR.
;IF PASFLG=1
THE FAILING LOCATION CHANGED WHILE
;

:
:
.IF PASFLG=2

:IF PASFLG=3
:

ANOTHER LOCATIONS WAS WRITTEN FOR

THE OTHER LOCATION IS SAVED
2 MS.
IN SAVLOC [352]
SWAPPED BAKPAT (77400 OR 77000)

WRITE OR READ ERROR.

SAME AS IF PASFLG=2 EXCEPT

THE DATA IS SWAPPED BAKPAT.

:ERROR

;CTST7] TEST SEQUENCE ERROR
sSTESTN SHOULD = 07
;THE DIAGNOSTIC HAS BEEN CORRUPTED.

- ERROR

;[TST7]) SHIFTING DIAGONAL DATA ERROR
;IF PASFLG=0

BAKPAT WRITE OR READ ERROR.

“IF PASFLG=

GREATER THAN 1 BUT ODD VALUE THEN:

;IF PASFLG=1 BAKPAT READ CHFCK ERROR
;IF PASFLG= GREATER THAN 1 BUT EVEN VALUE THEN:
:
:
;ERROR

THE FAILING LOCATION COULD NOT BE WRITTEN INTO.

THE FAILING LOCATION WAS WRITTEN CORRECTLY
BUT LOST THE DATA.

;[TST10] TEST SEQUENCE ERROR
SJ$TESTN SHOULD = 10
;

THE DIAGNOSTIC HAS BEEN CORRUPTED.

cERROR

;[TST10] BAKPAT DATA ERROR
;BAKPAT WRITE OR READ ERROR INTO THE FAILING LOCATION.

;ERROR

[TST1OJ READ RECOVERY DATA ERROR
THIS ERROR CAN BE REPORTED BY TST10 AND TST11.
*(THEY SHARE (ODE). SEE STESTN [404] FOR WHICH TEST FAILED.
*FOR BOTH TESTS COMPARE

THE GOOD AND BAD DATA AT THE FAILING

SLOCATION TO SEE WHICH BITS FAILED.
JERROR

:[TST10] READ RECOVERY DATA ERROR
JIDENTICAL TO THE PREVIOUS ERROR EXCEPT SWAPPED BAKPAT IS
JUSED AS WRITE AND READ DATA.

;ERROR

sCTST11] TEST SEQUENCE ERROR
SSTESTN SHOULD
= 11

;

THE DIAGNOSTIC HAS BEEN CORRUPTED.

SEQ 0010

(ZKMA

553
556
555
556
557
558
559
560
561
562
563

564
565
566
567
568
S6Y
570
571
572
573
574
575
576
577

578
579
580
581
582
583
584

585
586
587
588
589
590
591
592
593
9594
595
596
597

18-SEP-78
18-SEP-78 11:54

MACY11 30A(1052)

CZKMAE .MAC

;ERROR # 41

SEQ 0011

THE DIAGNOSTIC HAS BEEN CORRUPTED.

:TTST12] WORST CASE CORE TEST DATA ERROR
;1F PASFLG=1 (OMPARE GOOD AND BAD DATA FOR FAILING BITS.
:IF PASFLG=2
THE FAILING LOCATION WAS WRITTEN AND READ
WITH GOOD DATA,BUT FAILED READ CHECK
:
IF PASFLG=3
:

:ERROR

PAGE 11

;[(TST12] TEST SEQUENCE ERROR
SSTESTN SHOULD
= 12

:
sERROR

11:56

READING IN THE MIN.

TO MAX DIRECTION.

SAME CONDITIONS AS PASFLG-2 EXCEPT FAILED
DOING THE READ CHECK FROM MAX TO MIN DIRECTION.

[TST123 WORST CASE CORE TEST DATA ERROR
IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA WRITTEN
AND READ IS COMPLEMENTED.

;ERROR

;[TST13] TEST SEQUENCE ERROR
$$TESTN SHOOULD
= 13
:

:ERROR

;ERROR

THE DIAGNOSTIC HAS BEEN CORRUPTED.

;[TST13] WRITE RECOVERY TEST DATA ERROR
;IF PASFLG=0_ COMPARE GOOD AND BAD DATA FOR FAILING BITS.
;IF PASFLG=77400 DATA ERROR FOUND WHILE DOING A SECOND READ CHECK.
IF PASFLG=77402 DATA ERROR FOUND IN FAILING LOCATION AFTER
SMALL TEST PROGRAM RUN IN FAILING BANK.
[TST13] WRITE RECOVERY TEST DATA ERROR
DATA ERROR FOUNDJUST BEFORE THE SMALL TEST

HAS TO BE RUN IN THE FAILING BANK.,

TO AVOID 'BLOWING'' UP

JWHEN THE SMALL TEST IS RUN TST13 IS ABORTED.
:ERROR

[TST13J WRITE RECOVERY TEST DATA ERROR

IDENTICAL TO ERROR #XXX EXCEPT THE DATA WRITTEN
AND READ iS DIFFERENT.(177667).
;177667 1S THE COMPLEMENT OF 'UMP (RO)'' (110) WHICH IS
;THEESS$QP$ FROM THE SMALL

;UND
;ERROR

ST.

TEST PROGRAM RUN IN THE BANK

; [PARERR] PARITY TRAP ERROR
; PARITY TRAP TO 114 OCCURRED,

;FOR THIS ERROR PRINTOUT THE ‘'GOOD DATA'' IS ACTUALLY

;THE FAILING PARITY MODULE UNIBUS ADDRESS.

; SAVLOC [352] CONTAINS THE PC WHERE THE TRAP OCCURRED.
. ERROR

;[PARITY] PARITY TRAP FATAL ERROR
; A PARITY TRAP TO 114 OCCURRED, BUT NO PARITY MODULES COULD BE FOUND
;WITH AN ERROR BIT (BIT15) SET.

;ERROR

[NOHMJ OPERATOR FATAL ERROR

<98

TESTING ABOVE 28K WAS SELECTED, BUT NO MEMORY MANAGEMENT

OPTION WAS FOUND.

RESET SWITCH OPTIONS AND RESTART AT 200.

s ERROR

[PARITYJ OPERATOR FATAL ERROR
UERE

PARITY
FOUND.

TESTING WAS SELECTED BUT NO PARITY MODULES

RESET SWITCH OPTIONS AND START AT 200.

CZKMA

MACY11 30A(1052)

CZKMAE .MA(

18-SEP-78

18-SEP-78 11:54

609
610
611

.REPT

613

[6.3]

ERROR HISTORY

612

614
615
616

11:56

PAGE 12

SEQ 0012

LOCATIONS IN MEMORY ARE SET ASIDE TO COLLECT A HISTORY
OF THE FAILING BITS IN A PARTICULAR MEMORY BANK.
THIS
DA}A IS COLLECTED FOR EVERY ERROR REGARDLESS OF SWITCH

617
618

SETTINGS.

619
620
621
622
623
624
625

NORMALLY THE DATA IS OUTPUT AT THE END OF TESTING, BUT
IF CONTROL-C IS TYPED IT IS OUTPUT AT THE END OF THE
CURRENT TEST.

THE ERROR HISTORY IS INTENDED TO HIGHLIGHT IF THE ERRORS
ARE DUE TO 1 BIT FAILING OR ONLY ADDRESS ERRORS.

626

627

628
629
630
631

ERROR HISTORY FORMAT:

632
633
634
635
636
637

ERROR

COUNT

BIT THAT FAILED [NUMBER OF

WHERE

ERROR

638

646

BANK

[6.4]

BANK

COUNT

ERROR RECOVERY

THE FAILING BIT IN DECIMAL

BE TYPED OUT IF ADDRESS ERROR OR PARITY ERROR WAS SEEN
IN THE SPECIFIC BANK OF MEMORY
4K MEMORY BANK IN WHICH THIS FAILURE WAS SEEN
AOFOR O TO 4K, A1 FOR 4 TO BK AND SO ON
NUMBER OF TIMES THIS MEMORY BANK FAILED.
(377 IS MAXIMUM FAILURE COUNT RECORDED.)

IF THE PROGRAM IS HALTED AFTER REPORTING AN ERROR IT CAN EITHER
BE CONTINUED OR RESTARTED AT 200 OR 250 (SEE SEC 4.2). HOWEVER FOR
CPU'S THAT DESTROY CONTENTS OF REGISTERS AFTER COMING TO A HALT
THE PROGRAM SHOULD ONLY BE RESTARTED.

654

[7.0]

RESTRICTIONS

MEMORY UNDER TEST SHOULD BE CONTIGUOUS. FOR SYSTEMS HAVING NONCONTIGUOUS MEMORY THE MEMORY BOUNDARIES SHOULD BE DEFINED BY THE
OPERATOR. (CONTIGUOUS MEMORY IS DEFINED AS A MEMORY THAT (AN BE
BOTH READ AND WRITTEN IN CONSECUTIVE LOCATIONS.)

MISCELLANEOUS

I.E.

0-15 WILL BE TYPED OUT OR THE WORDS ''ADR ERR'' OR 'PAR ERR'' WILL

(ZKMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEF-78

18-SEP-78 11:54

11:56

PAGE 13

SEQ 0013

665
ADDRESS/BANK RANGES IN OCTAL AND DECIMAL

THIS REFERENCE TABLE CROSS REFERENCES THE MEMORY BANK NO.S,
THE RANGE AND THE PAR USED WHEN MEMORY MANAGEMENT IS ENABLED.

IT IS ALSO USEFUL TO SHOW STARTING ADDRESSES IN A PAR-

TICULAR 4K BANK.

USED/CONTENT

0 - 4K
4K - 8K
8K=12K
12K~16K

000000-017776
020000-037776
040000-057776
060000-077776

NOT USED
NOT USED
NOT USED

16K=20K
20K =24K
24K-28K
28K-32K

100000-117776

32K-36K
36K ~40K

200000-217776
220000-237776
240000~257776
260000277776

48K~52K
52K=56K
56K=-60K
60K=-64K

300000-317776

64K-68K
68K=-72K
72K=76K
76K-80K
80K-~84K
84K-88K
88K -92K
92K-96K
96K-100K

400000-417776
4£20000~4637776
440000-457776
460000-477776
500000-~517776
520000-537776
540000-557776
560000-577776
600000-617776

25
26
27
28

100K=-104K
104K~-108K
108K-112K
112K-116K

620000-637776
640000-657776
660000-677776
700000-717776

29
30
31

116K-120K
120K=-124K
124K~128K

720000-737776
7640000-757776
760000-777776

—

OCTAL
RANGE

=000

DECIMAL
RANGE

~NoOwnSs

[PAGE ADDRESS REGISTER]

BANK NO.

WVHWN

675
676

£8.1]

668
669
670
671
672
673
674

PNOMNONUNIN)
=
2
W =0V~

666
667

NOTES:

40K=44K
44K=-48K

120000-137776
140000-157776
16000C 177776

320000-337776

340000-357776
360000-377776

UNIBUS ADDRESS
772340

0000

NOT
NOT
NOT
NOT

USED
USED
USED
USED ON 30K

2
3

&
5

2000
2200

2400
2600

772344
772346
772350
772352

6
1
2
3

3000
3200
3400
3600

772354

4000

4600

5
6

1600

4
5
6
1

6200

2
3

6400
6600

5
6

7200
7400

SYSTEMS

4200
4400

5000
5200
5400
5600
6000

2
3

(LSI-11)
772342

7000

7600

772354

THE PAR (PAGE ADDRESS REGISTER) CONTENTS ARE SHOWN IN A TEST
IF THE LIMITS OF TESTING ARE SET BY THE OPERATOR AND
IF THE BANK ]S ABOVE 28K PAR NO. 1 WILL BE SET TO THE

THAT

SELF

SIZES.

CZKMA

CZKMAE .MA(

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

745
746
747
748
749

750
751
752
753
754
755
756
757
758
759
760
761
762
763

18-SEP-78

MACY11 30A(1052)

18-SEP-78 11:54

BEGINNING PAGE.

11:56

PAGE 14

SEQ 0014

FOR EXAMPLE IF THE TESTING WAS TO

BEGIN WITH BANK 8 PAR NO. 1 WOULD EQUAL 2000, PAR 2
WOULD FQUAL 2200 ETC.

(8.2]

EXECUTION TIME
HERE ARE

SOME

TYPICAL EXECUTION TIMES.

LSI-11 AND 4K:- 100 SECS.
LSI=-11 AND BK:= S MINUTES.

(8.2]

PASS COUNT AND

TEST NO.

LOCATIONS

$PASS [406] = PASS COUNT -~ CLEARED BY START AT 200.
$TESTN [404] = CURRENT TEST NO. AND RELOCATION, PARITY FLAGS.
:
WHERE

LOW BYTE

TEST NO.

IF BIT1S - 1 TEST IS RELOCATED
IF BIT13 - 1 PAR]ITY UNDER TEST.

[8.4]

STACK POINTER

THE STACK STARTS AT 500 WHEN THE PROGRAM IS NOT RELOCATED.

SAVR6[350]) CONTAINS THE STACK STARTING VALUE WHEN THE DIAGNOSTIC
IS RELOCATED.

SAVR6 ALSO CONTAINS THE STARTING ADDRESS OF

IT IS RELOCATED.

(8.5]

THE PROGRAM WHEN

POWER FAIL

THE DIAGNOSTIC CAN BE POWER FAILED WITH NO ERRORS.
TO USE,
START THE TEST AS USUAL AND POWER DOWN THEN UP AT ANY TIME.

THE PROGRAM SHOULD TYPE ‘P‘' AND CONTINUE TO RUN FROM TEST O

IN THE SAME STATE [1.E. STATE OF RELOCATION] AS 1T WAS BEFORE

THE POWER WAS INTERRUPTED, HOWEVER IF THE DIAGNOSTIC WAS IN
A MEMORY THAT CAN NOT HOLD DATA WITH THE POWER DOWN THEN THE
PROGRAM WILL

NOT RECOVER FROM POWER FAIL.

[(9.0]

PROGRAM DESCRIPTION

[9.1]

NARRATIVE

FLOW CHART

THE TEST IS LOADED INTO LOCATIONS 0000 - 7744 BUT
EXPANDS DEPENDING ON HOW MUCH MEMORY IS UNDER TEST.
SEE STEP 6. BELOW FOR A DETAILED EXPLANATION.
THE

FOLLOWING NARRATIVE

FLOW CHART DESCRIBES MAJOR

(ZKMA

777

778
779
780
781
782
783
784
785
786
787

18-3EP-78

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78 11:54

PROGRAM OPERATION.

PAGE 15

11:56

SEQ 0015

FOR THE PERSON WHO NEEDS DETAIL

THE

TAG ASSOCIATED WITH THE OPERATION IS GIVEN IN BRACKETS.

FOR THIS DISCUSSION SWITCH SETTINGS ARE
ASSUMED ENABLED.

IGNORED AND EVERYTHING

[START]

PRINT "'CZKMAE'' TITLE

[T5TR®]

SAVE DATA FROM LOCATIONS 0-376

{TSTRP]

TEST LOCATIONS 0-376 BY WRITING AND

TS0 7744-10314.

READING 1°'S AND 0°'S.

EXPLICIT TESTING OF
[SLFSIZ)

NOTE

THIS

IS THE ONLY

THESE LOCATIONS.

SIZE MEMORY BY WRITING INTO SUCCEEDING

MEMORY LOCATIONS UNTIL TIMEOUT TRAP TO & OCCURS,
OR 30K BOUNDARY REACHED.
SgABLE MEMORY MANAGEMENT AND SIZE MEMORY ABOVE
K.

[TYPSIZ]

TYPE MEMORY TEST LIMITS.

SPACE 1S SAVED AT THE END OF THE TEST
[SETSTK]
FOR AN ERROR HISTORY.
FOR EA(CH 4K BANK 18 BYTES ARE SAVED
IN THE FOLLOWING FORMAT:
'ADR ERR!PAR ERR!

'BIT14
'BIT12
'8IT10
‘81708
'81T06
'8IT04
'81102
'81700

!BIT1S
IBIT13
!BIT11
!BIT09
!BITO7
!BITOS
!BITO3
!BITOT

!
!
.
!
.
!
!
!

IF GREATER THAN 4K UNDER TEST THE ABSOLUTE LOADER
(300 ADDRESSES) IS APPENDED.
IF GREATER THAN 4K
AND UNDER XXDP CHAIN MODE 5674 (OCTAL) ADDRESSES
ARE APPENDED TC THE TEST.
THIS SAVES THF XXDP
MONITOR, AND AL'.OWS THE LOCATIONS OCCUPIED BY XXDP
TO BE

TESTED.

[CLRMEM]
(ALL "PARITY'' ROUTINE AND IF SELECTED,
ENABLE ALL PARITY MODULES.
'PARMAP'' [LOC. 352]
CONTAINS A MAP OF PARITY MODULES FOUND.

Tng%; g25336 BIT 15 IS SET,
[CLRMEM]

10.

IF #172334 FOUND BIT 14

CLEAR MEMORY CURRENTLY UNDER TEST

[CONT]

DISPATCH TO TSTO

[TSTO]

EXECUTE TEST O.

DESCRIPTIONS.

SEE SECTION 10 FOR TEST

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

833
834
835
836
837
838
839

18-SEP-78

18-SEP-78 11:54
11.

[TSTSCP]

11:56

PAGE 16

SEQ 0016

(OMES HERE AFTER EACH TEST AND

CNTRL-C TYPED THEN GO TO ERROR HISTORY PRINTOUT.
If SR=2000 THEN HALT

IF SR=40000 THEN LOOP ON TEST DEFINED BY <3:0>

ELSE CONTINUE TO NEXT TEST.

12.

[TST1-TST12]
EXECUTE TST1-TST12 EACH TIME
GOING TO STEP 9.

13.

[TST13)
TEST 13 IS DIFFERENT FROM TESTS 0-12,
BECAUSE IT IS A SMALL PROGRAM ACTUALLY RUNNING
IN THE MEMORY UNDER TEST.
BEFORE THIS SMALL
PROGRAM IS STARTED °‘'TST13 BNK XX'' IS TYPED.

THIS IS DONE IN CASE THE PROGRAM FAILS . THE
USER CAN THEN AT LEAST TELL WHICH BANK OF MEMORY
FAILED.

14.

[RELOC]

THE PROGRAM RELOCATES TO HIGH MEMORY

TO TEST THE LOCATIONS IT OCCUPIES. (430-ENDPRG).
WHERE ‘ENDPRG’' IS THE CONTENTS OF ENDSTK[306].
1.E THE LAST PROGRAM ADDRESS.
NOTE 'RELOC'' IS

PRINTED JUST PRIOR TO THE ACTUAL RELOCATION.
15.
16.
17.

TESTS 0-13 ARE RUN AS DESCRIBED ABOVE EXCEPT

ONLY BANK O LOCATIONS 430-ENDPRG ARE TESTED.
[RELOER]

RELOCATE

[LOWER]

MEMORY.

THE PROGRAM BACK TO LOWER

CONTROL-C

TYPED GO PRINT ERROR

HISTORY.

18.[TSTMM]
IF MEMORY MANAGEMENT SELECTED AND AVAILABLE,
RUN TESTS 0-13 ON THE FIRST 24K SLICE ABOVE 28K.
19.

20.

(9.2]

[CONTMM]
CALL 'UPMM'' TO UPDATE MEMORY MANAGEMENT
PAR REGISTERS TO POINT TO THE NEXT 24K SLICE OF
UPPER MEMORY.

[MAXADR]

REPEAT STEPS 18 + 19 UNTIL ALL

21.

[ENDPAS]

PRINT ERROR HISTORY OF

22.

[$EOP]
DISABLE PARITY MODULES.
PRINT "END PASS #xx'’

TEST

MEMORY ABOVE 28k

IS TESTED.

FAILING BITS

TITLES

SEE THE TEST HEADINGS IN THE LISTING FOR DETAILS ON EACH TEST.
TEST O:
TEST 1:

TEST FOR PROPER BANK SELECTION
CHECK DATI/DATO LINES

CIKMA

CZKMAE .MAC

18~-SEP-78 11:54

TEST 2:

889
890
891
892
893
894
895
896
897
898
899

901

18-SEP-78

MACY11 30A(1052)

TEST 3:
TEST &:

11:56

PAGE 17

SEQ 0017

TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION

DUAL ADDRESS TEST A

DUAL ADDRESS

TEST B

TEST S: MARCHING 1'S AND 0'S
TEST 6: CELLS® VOLATILITY TEST
TEST 7: SHIFTING DIAGONAL

TEST 10: READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL
TEST 11: READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST
TEST 12: WORST CASE TESTING FOR CORE MEMORY
TEST 13: WRITE RECOVERY TEST

[10.0])

RXDP & ACT11

& APT OPERATION

RXDP CHAIN MODE

OPERATION IS IDENTICAL TO STAND ALONE EXCEPT:
1.

NO "'CZKMAE'’ TITLE

3.
4.

THE PROGRAM ALWAYS HALTS ON ERROR.
AT THE END OF TEST (SENDAD) CONTROL IS RETURNED TO
THE RXDP CHAIN MONITOR VIA LOCATION &2.

IS PRINTED.

NO TEST 13 PRINTOUTS SUCH AS '‘TST13 BNK 00''.

OPERATION IS IDENTICAL TO STAND ALONE EXCEPT:
1.
2.
3.

NO PRINTOUTS EXCEPT ERROR PRINTOUTS.
THE PROGRAM ALWAYS HALTS ON ERROR.
AT THE END OF TEST (SENDAD) CONTROL IS RETURNED TO

THE ACT11 MONITOR VIA LOCATION 42.

APT

OPERATION IS SIMILAR TO STAND ALONE EXCEPT:

1
2.

3.
4.

THE SOF TWARE SWITCH REGISTER BECOMES LOCATION 422 ($SSWREG).
AUTO SIZING CAN BE INHIBITED BY SETTING BIT 7 OF BYTE
LOCATION 421 (SENVM).
ALL PRINTOUTS CAN BE INHIBITED BY SETTING BIT 5 OF
BYTE LOCATION 421 (SENVM).
ALL ERRORS CAUSE LOCATION 400

($MSGTY)

TO BE

éO#EBYTE AND THE FAILING MEMORY BANK NO.
YTE.

APT MANAGER

THE

SET =

0001 AND THE PROGRAM HALTS AT LOCATION 6214 (FATHLT).
LOCATION 402 (SFATAL) CONTAINS THE ERROR NO. IN THE
IN THE HIGH

INFORMATION

FOLLOWING

IS AN EXAMPLE

SCRIPT

TO TEST A 4K MEMORY.

IT IS RECOMMENDED THAT DIFFERENT SCRIPTS BE USED FOR
DIFFERENT MEMORY SIZES TO SAVE AUTO SIZING TIME.

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
945
gzg

18-SEP-78

18-SEP-78 11:54

11:56

PAGE 18

THE EXAMPLE ASSUMES YOU ARE LOGGED INTO THE AP~ MONITOR.

948

READY

gg}

APT 11 PAPER TAPE PROGRAM LQOAD UTILITY

953
954
955

COMMAND:
ED
PROGRAM NAME TO EDIT:

960
961
962
963
964

WHICH ETABLE DO YOU WISH TO EDIT? A
SOF TWARE ENVIRONMENT<000>:
1
ENVIRONMENTAL MODE<000>:
240
:
SWITCH 1 <000000¢:>
SWITCH 2 <000000>:

966
967
968

MEMORY TYPE 1 <000>:
MAXIMUM ADDRESS<00000000>:
MEMORY TYPE 2 <000>:

949
950

RUN APPLU

956
957
958
959

EXAMPL

DO YOU WANT TO LOAD A NEW REV OF THE PROGRAM(Y/N)? N
FIRST PASS RUN TIME IN SECONDS <110>:
LONGEST TEST TIME IN SECONDS <10>:
ADDITIONAL RUN TIME IN SECONDS <0>:

CPU OPTIONS<0000>:

965

969

MAX IMUM ADDRESS<00000000> :

971
972

MAXIMUM ADDRE SS<00000000>:
MEMORY TYPE 4 <000>:
1

970

MEMORY TYPE 3 <000>:

973

974
975
976
977

978

MAXIMUM ADDRESS<00000000>:

17776

WHICH ETABLE DO YOU WISH TO EDIT?
COMMAND: OFF

.ENDR

SEQ 0018

(ZkmA

CZKMAE .MA(

979
980
981
982
983
984
985
986
987
988
989

18-SEP-78
18-SEP-78 11:54

MACY11 30A(1052)
. ENABL
NLIST

11:56

ABS
MD ,MC,CND

PAGE

.LIST
LTITLE

SEQ 0019

ME_BIN,SEQ,LOC
CZKMA

;*COPYRIGHT (C) AUGUST 1977
;*DIGITAL EQUIPMENT CORP.
. *MAYNARD, MASS. 01754
t

tPROGRAM BY PERVEZ ZAKI

'THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC
tPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.

990
991
992

160000

993
994
955
996
997
998

SSUR 160000

;oHALT ON ERROR, LOOP ON TEST,

;:TRAP CATCHER OF

999
1000
1001
1002

SCOPE

000240

000042

000042
000000
.SBTTL
R

000046
000052

000070
000076

.+2 AND HALT FOR 0-776 LOCATIONS

=NOP

. 42
.WORD

ACT11

HOOKS

;FOR ACT/XXDP

E22Z22223222322223 3223822222228 2222822RRRCARStRRRERRRsttll
Rl

HOOKS REQUIRED BY A(CT11

000044

INHIBIT ERROR TYPOUT

$SVP(C=.

;SAVE PC

000156

$ENDAD

;;1)SET LOC.46 TO ADDRESS OF $ENDAD [N .$EOP

040000

.WORD

40000

=70
MOV

#PWRUP
, a#24

.=46

000046

000052

.=52

000044

000070
012737
000000

.=$SVP(

000136

000024

PWRDN:

HALT

2;2)SET LOC.52 TO 40000
;2 RESTORE PC

CIKMA

MACY11 30A(1052)

CZKMAE .MA(
1022
1023

1024

1025
1026
1027
1028
1029
1030

18-SEP-78

18-SEP-78 11:54
000104

000104
000110
000112

1031

005237
000000

000400

900000

000120

1032
1033
1034
1035
1036
1037

11:56

PAGE 20

ACT11 HOOKS

.=104
: GET HERE IF AN I_LEGAL TRAP TO LOC. 4 OCCURRED.
BUSER:
INC
AY¥IMSGTY
;TELL APT FATAL ERROR#000
HALT
;*ERROR~ TRAP TO LOC. 4 OCCURRED.
HALT
;IN CASE CONTINUE PRESSED.
;114 AND 116 ARE RESERVED FOR PARITY TRAP VECTORS.
SETUP IN
:ROUTINE 'BEGIN''.
.-120

:* WRITE MEMORY BACKGROUND

(M emmceccmcemcccccce——————
1

1038
1039
1040
1041

M
pd
I®
.%

}82%

1044

010401
013700
010021

1050

000134

000207

1053
1054

000136
000142

013706
012700

1057

1055
1056

SUBROUTINE WITH RO CONTAINING THE CONTENTS OF BAKPAT.

]

000120
000122
000126

1022

THIS ROUTINE IS USED TO WRITE THE MEMORY BACKGROUND TO
THE VALUE STORED AT LOCATION BAKPAT. THE ROUTINE ASSUMES
THAT R4 IS POINTING TO THE LOWEST LOCATION AND RS TO THE
HIGHEST LOCATION TO 3 WRITTEN. THE PROGRAM LEAVES THE

1045
1046
1047
1048
1049

SEQ 0020

000130
000132

000146

0GC0316

020105
103775

060600

WRTMEM: MOV
MOV
2%:
MOV

CMP
BLO

PWRUP:

;SET R1 TO LOWEST LOCATION UNDER TEST
;LOAD RO WITH THE CONTENTS OF LOCATION BAKPAT
;STARTING FROM THE LOWEST LOCATION WRITE THE

;RETURN FROM THE SUBROUTINE

R1.RS
2%

RTS

000350
006102

R4 ,R1
AMBAKPAT RO
RO, (R1)+

MOV
MOV

a#SAVR6,SP
;RESTORE STACK POINTER
#PNTMES-BEGIN,RO

ADD

SP.RO

1058
1059
1060
}82}

000150

004710

JSR

PC, (RO)

000154

000411

START

1063
1064
1065

000156
000160

004710
000240

1067

000164

000240

1066

}823

000152

000162

000240

JASC1Z
.EVEN

/P/

;* SERVICE XXDP/ACT11
$ENDAD: JSR
PC,(RO)
NOP

NOP
NOP

RESTRT

SWREG:

.=176
.WORD

1074

AR AN

R A RN

1075

.SBTTL

1070
1071
1072
1073

1076

1077

000166

000129

000176

000430
000176
000000

;MEMORY TO BACK GROUND PATTERN

R A

;GET THE INDIRECT ADDRESS OF LOCATION TPCRLF
;RELATIVE TO LOCATION OF DIAGNOSTIC IN THE CORE

:G0 TO THE TYPE ROUTINE AND TYPE CR, LF AND A 'P"’

JRETURN TO ACT11/XXDP MONITOR
;1F QUICK VERIFY=RESET ELSE NOP

:I1F QUICK VERIFY=CLR #-1 ELSE INC #0
:IF QUICK VERIFY=BR .-4 ELSE NOP

;REPEAT TEST UNDER ACT11/XXDP

AR RN AR AR AR AR AR AN AR R AR AR R R R AR R RRRN AR

A RN

START AND RESTART ROUTINES

RESTART AT 200 TO CLEAR APT TABLES

""ttttitttttt'tt'ttttttt"itttfiiiQfi'flttttttttttttt" ARNANNRRANRNS

(ZKMA

MACY11 30A(1052)

CZKMAE .MAC
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087

1088
1089
1090
10N

000200
000204
000210
000212
000216
000220
000224
000226
000232
000234
000240
000246

18-SEP-78
18-SEP-78 11:54

013706
012703
005043
022703
001374
105737
100406
004767

000405

000060

012704
012703
012305
012306
010600
012746
010046
000002

1%:

000400
000042

055103

START:

000350
000412

105737

0010M

I
PAGE 21
11:56
START AND RESTART ROUTINES

006334
046513

MOV

042501

;SETUP STACK POINTER.

#SMAIL ,R3
1%

;CLEAR A MAILBOX LOCATION
;DONE?
;BRANCH IF NO

#SUNIT ,R3
-(R3)

TSTB
BNE
TSTB
BM]
JSR

42
RESTRT

LASCIZ

aWSTESTN+
RESTRT
PC,TPCRLF

/CZKMAEO/

PNORNONONINIMOPNOANIN)
=
D e D e 2 0 = a2
QOO0
O
kN"d—*EflBCD*qo~ththu-»Chocn\40\un&wnnu-*cfiSCD~q§Runghnnu

;CLEAR THE APT MAILBOX FROM SMAIL TO $DEV(CT

;ACT11 MODE?
;BRANCH [F YES

;ARE WE RELOCATED?

;BR IF YES- SINCE TPCRLF IS RELOCATED ALSO-

JPRINT

TITLE

EVEN
007744
000346

000340

RESTRT: MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

#ENDPRG ,R4
#SAVRS ,R3
(R3)+,RS
(R3)+,SP
SP,RO
#340,-(SP)
RO,=(SP)

1101

;JLOAD R4 WITH THE ADDRESS OF THE END OF THE PROGRAM
;CAUSE R3 TO POINT TO THE LOCATION SAVR5S
JRESTORE RS
JAND RESTORE R6 JUST IN CASE IT IS A RESTART
;PLACE THE STARTING ADDRESS OF THE TEST IN RO
;SET HIGH PRIORITY FOR RTI

;GO TO ‘'START''-MAY BE RELOCATED.
;1F RELOCATED SCt LOCATION SAVR6 FOR START.

NN
N

-n.—‘—l_)_l—l-a_n—l—A—l_._.—l-l.a—a—a—l-;-a_a—l—.—l—l—l—l—l.—i_._.
b ed cd ok mad b d b D D b e d b D e b d D d b wd =D ed b e e b b b D

SEQ 0021

,
a#SAVR6SP

MOV
CLR

cMP
BNE

.SBTTL

APT PARAMLTER BLOCK

';tIQtttt*ttttfittttttttit‘*tttttt*ttttttfi**'tttitttttiifitfitttttit

“SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

;;tttttfittttt*t*ttlttttttt**tttkfittttttttittt*tiifittt*t*ti*tfiiitt

JEX-.
=24
2024

000276
000024
000044

000024
000200
000044
000276
000276

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

;;POINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ;.POINT TO APT HEADER BLOCK
.=.8X
;oRESET LOCATION COUNTER

;;tttttttttttt*ttttttttttt'ttttttttit*tttfiittttttttt*fitfitttt**tti

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT~PDP11 DIAGNOSTIC
s INTERFACE SPEC.
000000
000400
001440
002260
000000
000024

000405

$APTHD:
$HIBTS:
SMBADR:
$TSTM:

$PASTM:

SUNITM:

REL

;. TWO HIGH BITS OF

18 BIT MAILBOX ADDR.

.WORD
.WORD
_WORD

O
SMA]TL
800.

.WORD
.WORD

SETEND-SMAIL/2 . ;LENGTH MAILBOX-ETABLE (WORDS)

.WORD

STESTN#+1

1200.

. ;ADDRESS OF APT MAILBOX (BITS 0-15)

;;RUN TIM OF LONGEST TEST

;:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

JIT WILL BE O IF THE PROGRAM IS IN THE LOWER

CIKMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78

18-SEP-78 11:54

11:56

PAGE 22

APT PARAMETER BLOCK

1134

:CORE. BIT 7 OF THE BYTE WILL BE SET IF THE

1135
1136
1137

1138

}}zg

11461

1142
}}42

000276

000277

000276

000277

MMAVA :

TYPENS:

:PROGRAM [S IN A RELOCATED STATE AND BIT §
:WILL BE SET IF PARITY BITS ARE BEING TESTED

.=SAPTHD

:THIS BYTE IS USED TO DETERMINE IF MEMORY

:MANAGEMENT IS AVAILABLE OR NOT

.=MMAVA+1

1145

1146
1147

000300

1148

1149

1150
}}g;
1153
1154

1155

1156
1157

1158
1159
}}2?

000301

000302
000304

000306

1162
1163
1164

000310

1166

000312

1165

1167
1168
1169
1170
1171
1172

000312

000300

000301

000302

000304
000306

000210
000312

000314

000314
000

000315

000

177560
177562
177564
177566
177572

1176
1177
1178
1179
113?

000316

000377

1182

000320

000000

000322

000430

1185

1186

1187
}}gg

$PRERR:

$ADERR:

STRIDI:
L OWBNK:

PASFLG:

ENDSTK:

PBNK :

DECWRD:

.=TYPENS+1

.=$PRERR+1

:THIS BYTE IS USED TO DETERMINE IF THE
:TYPE OUT OF ERROR HAS BEEN ENABLED OR NOT
:THIS BYTE DETERMINES IF THE PROGRAM HAS FOUND
;A PARITY ERROR
;THIS BYTE IS USED TO DETERMINE IF THE
:PROGRAM HAS ENCOUNTERED ADDRCSS ERROR

.=$ADERR+1

.=STRTID]+2
. “LOWBNK
+2

;LOWER BYTE OF THIS WORD GIVES THE PASS NUMBER FOR
:THE SPECIFIC TEST WHEREAS THE UPPER BYTE
:HAS BEEN USED BY DIFFERENT TEST FOR DIFFERENT PURPOSES

.=PASFLG+2
.~ENDSTK+2

TYPCNT:

.~DECWRD+2
.BYTE
O

SAVKBB:

.BYTE

.EVEN

1173
1174
1175

;}gz

SEQ 0022

TKS=
$KBB=
$TPS=
$TPB=
SRO=
BAKPAT:

177560
177562
177564
177566
177572

SWAPAT:

.WORD

RELBOT: BEGIN-50

377

;HOLDS BANK UNDER TEST FOR '‘TST BNK XX'' PRINTOUT.
:THIS BYTE DETERMINES THE NUMBER OF WORDS
:TO BE TYPED
:THIS LOCATION IS USED TO SAVE THE CHARACTER
:HIT BY THE OPERATOR

:BACKGROUND PATTERN WRITTEN TO MEMORY.

:HOLDS LOWEST TEST ADDRESS WHEN RELOCATED.

::uttttttttttttttttttttttt'tttttttttttttttttttfitttttttttt!t"ttt'

000324
000326

000000
000000

;LOCATIONS TO BE MODIFIED IF LIMITS SET BY OPERATOR

LOWTWO: 0
LOWADD: 0

;HOLDS BITS 17:16 OF LOW TEST ADDRESS
;HOLDS BITS 15:0 OF LOW TEST ADDRESS

CZKMA

MACY11 30A(1052)

CZKMAE .MA(
1190
1191

18-SEP-78

18-SEP-78 11:54

11:56

PAGE 23

APT PARAMETER BLOCK

000330
000332

000000
037776

HIGHTWO:
HIGHADD :

1194

000334

000000

$HIMAX: O

SMAXM:

17776

}}gg

000340

000000

MAXMEM:

_WORD

1199
1200

000342
000344

000000
000000

SAVMAX:
SAVR4:

.WORD
_WORD

1203
1204
1205
1206

000350
000352
000354

000500
000000
000000

;% SAVR6 POINTS TO WHERE THE PROGRAM STARTS EVEN WHEN RELOCATED.
SAVR6:
.WORD
BEGIN
;CONTAINS START ADDRESS WHEN RELOCATED ALSO.
PARMAP: 0
;MAP OF PARITY MODULES UNDER TEST.
SAVLOC: O
;TEST 6 STORES ERROR INFO HERE

1192

119

}132

}gg;

1207
1208

1209

1210
1211

1212

1215

000336

000346

000356
000360

017776

000000

000000
000000

SAVRS:

PARSP:
PARPS:

AR R

R AR AR

0
37776

SEQ 0023

RN AR R

AR R

JHOLDS BITS 17:16 OF HIGH TEST ADDRESS
;HOLDS BITS 15:0 OF HIGH TEST ADDRESS

R RN AR R A AR AR AR AN AR

AANNARR NSRS

JHOLDS BITS 17:16 OF MAXIMUM AVAILABLE MEMORY

JHOLDS BITS 15:0 OF MAXIMUM AVAILABLE MEMORY
;MAXIMUM CURRENT VIJRTUAL MEMORY UNDER TEST

.WORD

0
O

;SAVE SP DURING PARITY ERROR TRAP.
:SAVE PSW DURING PARITY ERROR TRAP.

;NOTE-PARSP +PARPS ARE NEEDED SINCE THERE IS

;1S NOT ENOUGH ROOM ON THE STACK (500-452) AND
;SO THE STACK MUST BE RESET IN THE PARERR ROUTINE.
:IN THIS CRUDE FASHION.

;%364-400 IS USED AS A STACK AREA BY ERRCHK ROUTINE FOR ERROR HISTORY PRINTOUT

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

000400

PAGE 24
11:56
APT PARAMETER BLOCK

.SBTTL

SEQ 0024

.=400
APT MAILBOX-ET,BLE

;;tttttttitttfitttfi't'*Qt'ittttti'ttifltttt'ttttt*fittttttttitttt"t

000000
000000
000000
000000
000000
000000
000000
000000
000
000
000000
000000
000000

.EVEN
SMAIL:
SMSGTY: -WORD
$FATAL: .WORD
$TESTN: -WORD
$PASS:
-WORD
$DEVCT: -WORD
SUNIT:
.WORD
$MSGAD: -WORD
$MSGLG: -WORD
$ETABLE:
$ENV:
.BYTE
SENVM:
.BYTE
$SWREG: -WORD
$USWR:
.WORD
$CPUOP: .WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

»
%

1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263

18-SEP-78

18-SEP-78 11:54

000430
000431

000
000

1:
$MAMS

.BYTE
.BYTE

AMAMS
AMTYP1

. %

000000

$MADR1:

.WORD

AMADR1

.BYTE
.BYTE

AMAMS?2
AMTYP2
AMADR?2
AMAMS
3

. %

000000

2:
MAMS
SMTYP?2:
$MADRZ:
3;
SMAMS
MTYP3:
$MADR3:
SMAMSS:
SMTYP4:
:
$MADRS
$ETEND:
MEXIT
R

-BYTE

"BYTE

BYTE

BYTE
- WORD

AMTYP3

AMADR3
4
AMAMS
AMTYP4
AMADRYS

:;APT MAILBOX
;;MESSAGE TYPE (ODE

;;FATAL ERROR NUMBER
;s TEST NUMBER
;s PASS COUNT

::DEVICE COUNT
;2170 UNIT NUMBER
; ;MESSAGE ADDRESS

; ;MESSAGE LENGTH
;;APT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
; ;ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;;USER SWITCHES
:;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE
11/704=01,11/05=02,11/20=03,11/40=04,11/45-05
11/70=06,PDQ=07,0=10
BIT 10=REAL TIME CLOCK
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
BIT

;:HIGH ADDRESS.,M.S. BYTE

::MEM, TYPE ,BLKA1

MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0S=003

::HIGH ADDRESS ,BLKA#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'' ABOVE
;;HIGH ADDRESS.M.S. BYTE
: :MEM.TYPE ,BLK#N?2
2 2MEM.LAST ADDRESS.BLK#?
:;HIGH ADDRESS.,M.S.BYTE
: JMEM.TYPE ,BLKA#3
:2MEM.LAST ADDRESS.BLKA3
;;HIGH ADDRESS.M.S.BYTE
M.
TYPE ,BLK#4
:;ME
: :MEM,LAST ADDRESS.,BLK#4

2323282322322 22332232323324223232322223
2223322332338 833R23202232222R0202232%24)]

"SBTTL

BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78

18-SEP-78 11:54

11:56

126‘.

}Sgg
1267

000450

177570
000500

000500

1270
1271

000502

005746

1273

000510

000516

012737

000504

1274

000522

1278

000540

1275
1276
1277
1279
1280

}%g;
1283

1284
1285
1286
1287
1288
1289

1290
1291
1292

1293
1294
1295
1296
}ggg

010706

010637

000350

005037

000300

000314

012710

000340

000552

000167

000572

000556

005737

000406

000544
000550

000562
000564
000570
000574
000600
000604

000606

000610
000614

012700
012710
060720
105737
100002

001402
000167
012704
012700
010037
005001

012124

020127
103774

005741
010011

000622
000624

020011
001403

1299

000626

004767

1302
1303

000634
000636

000300
001370

1306
1307
1308
1309
1310
1311
1312

000644
000650
000652
000654
000656
000662
000666

012701
014441
005701
001375
012700
012710
012740

1304
1305

1313
1314
1315
1316

1317
1318
1319

000070

005037

000526
000532
000536

000616
000620

}gg?

BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.

SEQ 0025

: :ttt'tfit!fll’\'**t**ttfifi*t"t.tttttfitfittfifltttttfifitttttfittt'.ttttt**

1%2%

1272

PAGE 25

000632

000640
000642

000672
000676
000700
000702
000710

000001

005701
001365

005777
000404
022626
012737
105737

SWR:

177570

BEGIN:

MOV

PC,SP

TST
MOV

-(SP)

000024

CLR

a#TYPCNT

MOV

1578
BPL

JMP

ONEPAS:

000406
007744
000377
000316

TSTRP:

000400

TST
BEQ
JMP
MOV
MOV
MOV
CLR

2%:

MOV

38:
4%:

TST
MoV

005322

2%:
000450

6%:

5%:

;PREPARE FOR ANY FUTURE POWER DOWN

#3640, (RO)

JAND PSW OF 340

TSTREL

;THIS CODE IS RELOCATED SO GET TEST SIZE.

a#REL
ONEPAS

NSPASS

TSTRP
SETSTK
#ENDPRG R4
#377 ,RO
RO, a#BAKPAT
R1

;1S THIS CODE RELOCATED?
;BRANCH IF NO

;IS THIS THE FIRST PASS?

JBRANCH [F YES (TEST TRAP CATCHER ADDRESSES)
; GET THE TEST SIZE
;LOAD R4 WITH THE ADDRESS OF THE END OF THE PROGRAM

;SAVE FROM 0000 TO BEGIN~30 AT END OF PROGRAM FOR NOW

-(R1)
RO, (R1)
RO, (R1)
6%

;JPREPARE TO TEST THE TRAP VECTORS
;CHECK THE TRAP VECTORS FOR THE CAPABILITY
;OF HOLDING 0°'S & 1°'S
;1S THE DATA OK?
;BRANCH IF YES

JSR

PC,FATERR

;*ERROR* REPORT

SWAB
BNE

RO
4%

CMP
BEQ

MOV
MOV
TST
BNE
SETSWR: MOV
MOV
MOV

177552

;SAVE SP FOR FUTURE USE

(R1)+,(RG)+

8%:

000006
000340
000700

JSET UP STACK POINTER TO EQUAL BEGIN ADDRESS

#114 RO
;JPREPARE TO SETUP PARITY TRAP VECTOR
#PARERR-.-6,
(RO)
PC,(RO)+
2TO PARERR

R1,ASMAIL
2%

TST
BNE

000400

a#SPRERR

CMP
8LO

6%:

000420

N#PWRDN , d# 24

MOV
MOV
ADD

000405

SP,a#SAVR6

MOV
CLR

000114
005474

000176

.=500

;CHANGLS TO SWREG IF NO HARDWARE SWITCH REGISTER

TST
BR
CMP
MOV
TST8B

R1
3%

ASMAIL ,R1
=(R4) ,=(R1)
R1
8%
#6.RO
#340, (RO)
#4%,-(RO)

aSWR
5%
(SP)+, (SP)+
H#SWREG,a#SWR
INSENV

ERROR MESSAGE AND HALT AT FATHLT

sanxaxxERROR NUMBER 1wwwxxs

;IF WE HAVE NOT REACHED THE LOWEST MEMORY LOCATION
;THEN REPEAT FROM 3%
JRESTORE TRAP CATCHER ETC.

;SET UP TIME OUT TRAP PSW
JAND THE RETURN ADDRESS

;DOES THE SWITCH REGISTER POINTED BY SWR EXIST ?
;BRANCH IF YES
JRESTORE THE STACK POINTER
JAND PLACE THE ADDRESS OF THE SWITCH REGISTER

;DESIGNED FOR THE COMPUTERS NOT HAVING HARDWARE
;SWITCH REGISTER AND RUNNING STAND ALONE
JRUNNING UNDER APT?

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
1320

}%%;

18-SEP-78

18-SEP-78 11:54

000714

000716

001403

012737

000422

11:56

PAGE 26

BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.
BEQ

000450

MoV

APTSIZ

HSSWREG,a#SWR

SEQ 0026

JBRANCH IF NO

;SET SWR EQUAL TO APT SWITCH REGISTER.

1323

1326
1327

;APTSIZ- THIS ROUTINE WILL SEARCH THE APT MEMORY ETABLE AND WHEN
A NON ZERO TYPE IS FOUND WILL SETUP TO TEST TO GIVEN HIGH ADD<ESS.

1330
1331
%%%%

H
IF BLOCK 4 (OR 3,2,1) TYPE NON ZERO THEN GET APT HIGH ADDRESS AND EXIT.
:
ELSE
SEND ERROR #3
;NOTE; THE MEMORY TYPE IS IGNORED SINLE ALL TESTS ARE RUN REGARDLESS OF MEMORY TYPE.

}ggg

IF APT DEFINES SIZE THE LOW TEST ADDRESS MUST=00000.(DUE TO ETABLE FORMAT)

1334
1335
1336
1337
}%%g

000724
000730
000736
000744
000750

012703
013737
013737
105737
100021

000340
000330
000332
000421

1340
1341

000752
000756

012701
162701

000451
000004

1342
1343
1344
}%22

000762
000764
000766
000772

105711
001006
020127
101371

000774

004767

005154

1350
1351
}%g%

001002
001006
001012

004767
004767
000453

006316
006312

1354
}ggg

001014
001022

032777
001047

000100

1357
1358
1359
1360
1361

001024

010401

1362
1363
1364
1365

1366
1367

001000

001026
001032
001034
001040
001044

000002

012710
011111
062701
022701

101372

}ggg

001046

000401

1370
1371
1372
1373
1374

001050
001052

022626
004767

001056
001062

105737
001416
012710

1375

001064

APTSIZ: MOV
MOV
MOV
TST8
BPL

#SMTYPL +4 R
#4 R1

;POINT R1 TO BLOCK TYPE 4(+4)
sPOINT R1 TO NEXT BLOCK TYPE.

JSR

PC,FATERR

;*ERROR* REPORT

JSR
JSR
BRTPSZ: BR

PC.GETADR
PC,GETADR
TYPSIZ

;GO SET MAXIMUM APT ADDRESS INTO $SMAXM + SHIMAX
;GO SET MAXIMUM APT ADDRESS INTO HIGHADD+HIGHTWO
; TYPE THE SIZE OF MEMORY UNDER TEST

TRYSR:

#100,3SWR
TYPSIZ

;USER DEFINED MEMORY TEST BOUNDARIES??
JBRANCH IF YES (DON'T SIZE MEMORY)

001050

R4 ,R1

;SETUP R1 AND R4 TO THE LUWEST ADDRESS OF MEMORY

000002
170000

;KEEP ON SIZING UP THE MEMORY UNTIL NXM TRAP
;(TIME OUT TRAP) IS ENCOUNTERED

005776

2%:

BIT
BNE

SLFSIZ: MOV

2%:

MOV
MOV
ADD
CMP
BHI

(R1)
2%
R1,4SMTYP1
1%

#4%, (RO)
(R1),(R1)
#2.R1
#170000,R1

4%
5%:

cMP
JSR

(SP)+,(SP)+
PC ,MEMMNG

6$%:

T1STB
BEQ
MOV

/MMAVA
12%

000276

001076

TSTB
BNE
MP
BHI

177426

#MAXMEM ,R3
;POINT R3 TO MAXMEM.
SMHIGHTWO, a#$HIMAX
;IN CASE NO SELF SIZING DONE.
S#HIGHADD , a#SMAXM
:IN CASE NO SELF SIZING DONE.
ANSENVM
;DOES APT ALLOW SELF SIZING?
TRYSR
JBRANCH IF YES

MOV
SuB

1%:

000431

1347

}gzg

000334
000336

#8%, (RO)

;1S THE BLOCK TYPE NON ZERQ?
;BRANCH IF YES (MEMORY EXISTS)
;ALL APT BLOCK TYPES BEEN CHECKED?
;BRANCH IF NO

ERROR MESSAGE AND HALT AT FATHLT

;wxxxx*ERROR NUMBER 2#xxanx

;SET UP RETURN ADDRESS FROM TIME OUT TRAP TO 4%
;WRITE A MEMORY LOCATION INTO ITSELF AND TRAP IF NXM
;ADD 2 TO THE ADDRESS POINTER
JCHECK IF BEYOND 30K MEMORY BOUNDARY
;OR 30K BOUNDARY REACHED

JRESTORE THE STACK POINTER
; SERVICE MEMORY MANAGEMENT IF IT IS AVAILABLE
JAND IF IT HAS TO BE TESTED
;SEE IF MEMORY MANAGEMENT HAS TO BE TESTED
;IF NO MEM. MANG. THEN GO TO 12%

:SET UP THE RETURN ADDRESS FROM TRAP TO 8%

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
1376

1B8-SEP-78

18-SEP-78 11:5¢4
0127017

020000

022701

160200

001104
001106
001112

001005
013702
004767

172352
005742

1386

001120

024341

1388
1389
1390
1391

001122

004767

006106

001126
001130

024343
004767

006100

1393
1394
1395

001134
001136
001140

005743
005043
005043

1397

001146

010403

1377
1378

1379
1380
1381
1382
1383
1384
1385

1387

1392

1396

001070

001074
001076

000756
022626

001100

001116

PAGE 27

8%:

12%:

#20000,R1

CMP

#160000,R1

BNE
MOV
JSR

12%
an172352.R2
PC .MMREG

:IF R1 DID NOT READ ALL THE LOCATIONS POINTED BY
:PAGE ADDRESS REGISTER 6 THEN IT HAS REACHED THF
;MAXIMJM AVAILABLE MEMORY
;IN WHICH CASE GO TO 12%
:PREPARE TO UPDATE MEMORY MANAGEMENT RFEGISTERS
:OTHERWISE GO TO UPDATE MEM. MANG. REGISTERS

CMP

~(R3),~(R1)

:CAUSE R3 TO POINT TO LOCATION SMAXM AND R1

JSR

PC,PUTADR

CMP
JSR

-(R3) ,~(R3)
PC ,PUTADR

;GO TO THE SUBROUTINE TO PLACE THE ADDRESS IN R1
;AT LOCATIONS SMAXM AND SHIMAX
:MAKE R3 POINT TO HIGHADD
:PLACE THE ADDRESS IN R1 AT LOCATIONS HIGHADD

TST
CLR
CLR

-(R3)
-(R3)
-(R3)

:CLEAR THE LOCATION LOWADD
JAND LOWTWO

BR
CMP

2s
(SP)+,(SP)+

TYPSIZ: MOV

#BUSER, (RO) +

001150
001154
001160
001164

012701
004767
004767
004767

000324
005402
005550
005304

MOV
JSR
JSR
TYPMEM: JSR

#LOWTWO,R1
PC,PCRLF
PC.OCTTYP
PC,STYPE

1405
1406
1407
1408
}2?8

001172
001176
001202

004767
012703
004767

005536
000330
006132

JSR
SETSTK: MOV
JSR

PC.OCTTYP
#HIGHTWO,R3
PC.$GTSIZ

001206

010401

1411
1412
1413
1414
16415

001210

062704

001214
001216
001220

005302
002374
022737

167776

1417

001230

062704

000022

1419

001240

1403
1404

1416
1418
1420

001170

001226
001234

001242

1421
1422
1423
1424

001244
001246
001254
001256

1426
1427
1428

001264
001266

1431

001272

1425

001260

000055

001002

010437
005021

MOV

LASCIZ2
.EVEN

000022

4%:

000336

000310

6% :

020104

101775
012737
005723
001005

021327
103002
011363

157776

000340

170000

/-/

:RESTORE STACK POINTER

:TO THE MAXIMUM AVAILABLE MEMORY

AND HIGHTWO

;SET UP VECTOR FOR ANY FUTURE TRAP

:SET R3 TO POINT TO THE LOWEST AVAILABLE MEMORY
:LOCATION

:TYPE CR/LF
:TYPE LOW TEST ADDRESSE

TYPE *'="'

ADD

#18.,R4

DEC
BGE
CMP

R2
43
167776, a#8MAXM :CHECK IF

ADD

#18. R4

CLR

(R1)+

MOV
tmMpP

(LOWTWO+LOWADD)

:TYPE HIGHEST TEST ADDRESS (HIGHTWO+HIGHADD)
:MAKE R3 POINT TO THE HIGH ORDER BITS OF TOP ADDRESS
; GET THE BITS 13-17 OF THE TOP ADDRESS
:PLACED IN BITS 0-4 OF R2
:SET R1 TO LOWESY TEST ADDRESS

R4 ,R1

:APPEND THE ERROR STACK FOR THE MEMORY UNDER
:TEST TO THE END OF THE PROGRAM
THIS IS A 30K SYSTEM

b} 3

:BRANCH IF NOT

R4, SH#ENDSTK

:SAVE THE ADDRESS OF THE END OF THE ERROR STACK

R1,R4

:SAVE ANOTHER BANKS WORTH OF ERROR STACK
:CLEAR THE ERROR STACK

BLOS
MOV
TST
BNE

6%
#157776 , a#MAXMEM
:SET MAXMEM TO MAXIMUM VIRTUAL ADDRESS
(R3)+
:TESTING MEMORY MANAGEMENT?
SAVLDR
:BRANCH IF YES (GO SAVE LOADERS AT TOP OF VIRTUAL MEMORY

BHIS
MOV

SAVLDR
(R3),2(R3)

CMP

000002

R4 ,R3

:BEGIN CHECKING MEMORY ABOVE 28K

MOV

RNE
5¢:

SEQ 0027

MOV

000104

1402

BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.

012720

1398
1399
1400
1401

001142

000762

11:56

(R3) ,#170000

}2%8

;IS THE VIRTUAL ADDRESS ABOVE 167776?

:BRANCH IF YES (GO SAVE LOADERS)
:OTHERWISE MAKE THE CONTENTS OF LOCATION MAXMEM
:EQUAL TO THE MAXIMUM AVAILABLE MEMORY

:AND FALL INTO SAVE LOADERS.

004767

006114

SAVLDR:

JSR

PC.CLRMM

;

DISABLE

THE MEMORY MANAGEMENT UNIT

(ZKMA

MACY11

CZKMAE .MAC
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446

1447
1448
1449
1450
1451
1452
1453
1454
1455

1456

1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471

1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487

18-SEP-78
30A(1052)
18-SEP-78 11:54

001276
001300

11:56

PAGE 28

3
SEQ 0028

BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.

005723
011305

15T
MOV

+
(R3)
(R3) RS

JMAKE R3 TO POINT TO THE LOCATION MAXMEM
JR5 CONTAINS THE ADDRESS OF MAXIMUM AVAILABLE MEM.

sIF ONLY &K BEING TESTED DON'T SAVE LOADERS
001302
001306

0<Q0527
103416

017776

162705

000276
000042

001310
001314
001320
001322
001330
001332
001336
001340
001342
001344
001346

012524
020513
101775
012323
010423

001350
001354
001360
001362
001366

010537
004767
005745
012703
005723

001370
001372

001003
021327

001376

103411

005737
001406
023737
001402
162705

000042

2%:

MOV

(mMp
8LOS
MOV
MOV

000324

1$:

157776

000167
020423

003514

001424
001426
001432

103002
016304
005723
001003
021305

177042

2%:

004540

177776

4%:

000322
017776

Gi2705

017776

8%:

9%:

;PREPARE

2%
el
, a6
2%

#<1502.+2>
RS

(R5)+,(R4)+
RS, (R3)
2%
(R3)+,(R3)+
R4, (R3)+
RS ,a#SAVRS
PC,CLRMM

TO SAVE 300 BYTES OF

THE LOADERS

;1S THE PROGRAM RUNNING UNDER ACT OR XXDP ?
;IF NOT THEN GO TO 2%
;ARE WE RUNNING UNDER XXDP CHAIN MODE?
JBRANCH IF NO
;SAVE 1500. WORDS FOR XXDP CHAIN MODE
;SAVE LOADER
;SAVE THE CONTENTS OF LOCATION MAXMEM [N SAVMAX
JAND THE CONTENTS OF R4 AT SAVR4

;SAVE HIGHEST VIRTUAL ADDRESS+?
;GO TO DISABLE MEMORY MANAGEMENT UNIT
;SET RS BACK TO HIGHEST VIRTUAL ADDRESS
JPREPARE TO LOAD R4 AND RS WITH THE MEMORY BOUNDRIES

2%
(R3)

8LO
BIT
B8NE
JSR

43
#10000,aSwR

;IS MEMORY MANAGEMENT SELECTED?

PC,FATERR

;*ERROR~ REPORT

JMP

4157776

TSTMM

CMP

R4, (R3)+

BHIS

63
-2(R3) ,R4
(R3)+
8%
(R3) ,RS

TST

BHI

000405

#4276 RS
aHel

BNE
Mp

CMP

011305
105737
100014
013704
020527

JONLY TESTING 4K MAX?
;BRANCH IF YES (DON'T SAVE LOADERS)

-(RS)
#LOWTWO ,R3
(R3)+

6%:

RS, 417776

TST
MOV
TST

101001

020405
103403

TST
BEQ
CMP
BEQ
sSuB

TSTREL: MOV
TSTSIZ: JSR

001416
001422

103402

SuB

000346
006032

010000

001470
001472

000046

A Y

032777
001003
004767
000003

001440
001442
001444
001450
001452
001456
001462
001464

005674

001400
001406
001410
001414

001434
001436

(MP
8LO

TSTB

BPL
MOV
cMP
8LO
MoV
CMP
8LO

;IF THE BITS 16,17 OF THE LOWEST LOCATION UNDER
sTEST ARE NON ZERO
;THEN GO TO 2%

s1F THE LOWEST LOCATION UNDER TEST IS HIGHER THAN
2157776 THEN GO TO TEST MEMORY MANAGEMENT
JYES ALL

IS WELL

;axxxxxFRROR

ERROR MESSAGE AND HALT AT FATHLT

NUMBER

3xtnwax

;GO TO TEST MEMORY MANAGEMENT

;COMPARE TOP OF PROGRAM (WITH SAVED LOADERS) TO
JLOWEST LOCATION UNDER TEST

JADJUST R4 TO POINT TO THE LOWEST LOCATION UNDER TEST

;IF BITS 16=17 OF HIGHEST LOCATION TO BE TESTED
JARE NON ZERO THEN GO TO 8%
;OTHERWISE SEE IF THE HIGHEST LOCATION TO BE
JTESTED IS HIGHER THAN HIGHEST VIRTUAL ADDRESS

R4
S#RELBOT
RS.#1/776
9%
#17776,RS

;1F SO THEN GO TO 8%
;MODIFY RS
;ARE WE RELOCATED.?
JBRANCH [F NO
;SET BOTTOM TEST ADDRESS WHEN RELOCATED.
JARE WE RELOCATED IN BANK 07
;BRANCH IF YES
JELSE SET HIGH MEMORY UNDER TEST=4K

R4 RS
108

sBRANCH IF

8%
(R3) ,RS

a#REL
10%

;1S LOW LIMIT LOWER THAN HIGH LIMIT?
YES

MACY11

1488
1489

1490
1491
1492

1493
1494

—d md e

O\fl‘\WN—'Og

b e

) =D ed wd ek

)

(VIO TV NV TV RV, RV, RV AN AV AV RV, VL LV, ]
PN~
=
b md
2
OV~

1495
1496
1497
1498
1499
1500
1501

18~SEP-78
30A(1052)
18-SEP-78 11:54

11:56

PAGE 29

BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.

001474
001500

004767
000004

004454

001502
001506
001510

012703
011343
062713

000342

10%:

000002

MEMTST:

001514

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
PxxaeaxERROR NUMBER 4 ewwen

JSR

PC,FATERR

MOV
MOV
ADD

#SAVMAX ,R3
(R3),=(R3)
#2,(R3)

;RESTORE THE CONTENTS OF MAXMEM

TST

+
(RS)

JAND SET R5=MAX MEMORY+?

005725

SEQ 0029

JMAKE THE CONTENTS OF MAXMEM - MAXIMUM AVAILABLE
IMEMORY +2

;CLEAR MEMORY UNDER TEST
001516
001520
001522
001524
001526
001532
001536
001542
001544
001546
001552

010500
005040
020004
101375
012702
004767
012702
012212
000312
017702
042702

CLRMEM:

2%:
000001
005754
000316

MOV

CLR

MP
BHI
MOV

JSR

MoV
MOV
SWAR
MOV
BIC

176676
177760

R5,RO
-(RO)
RO.R4

;MOVE HIGH ADDRESS TO RO
;BEGIN CLEARING THE MEMORY FROM THE TOP
JUNTIL THE BOTTOM IS REACHED

#1,R2

;SET R2 TO ENABLE PARITY MODULE CODE.
JENABLE PARITY IF WANTED AND AVAILABLE.

PC,PARITY

HBAKPAT ,R2
(R2)+,(R2)
(R2)
aSWR,R2
#177760,R?

JWRITE SWAPPED BAKPAT

;LOAD R2 WITH THE OPTIONS STORED AT $SWREG

;ONLY LEAVE THE LOWER 4 BITS OF $SWREG IN RZ2 TO GO TO
;THE TEST # SPECIFIED [DEFAULT IS TEST#0]

JENTER HERE FRO~ 1STSCP ROUTINE AT END OF

001556

00156¢

005C37
110237

001566
001570

010401
010400

001572
001574
001576

010403
006302
060702
066207

001600

001604
001606
001610
001612
001614
001616
001620
001622
001624
001626

001630
001632
001634

000102
000340
000440
000550
001016
001126
001274
001430
001654
002204
002256
002530
003160

000306
000404

IN LOCATION SWAPAT

SUBTEST

;INIT SUBTEST PASS FLAG.

CONT:

CLR
MOVB

R2,IHSTESTN

LOOP:

MOV
MOV

R4 ,R1
R4 ,RO

;JSET UP STESTN WITH THE TEST NUMBER GOING
;TO BE EXECUTED
;LOAD R1 WITH THE LOWEST LOCATION UNDER TEST
;PLACE THE ADDRESS OF THE LOWEST LOCATION UNDER

MOV
ASL
ADD
ADD

R4 ,R3

;AND IN R3

000004

TBL:

a#PASFLG

R2
PC,R2
TBL-. (R2) ,PC

TSTO-TBL
TST1-TBL
TST2-TBL

TST3-T8BL
TST4-TBL

TST5-TBL

TST6-TBL
TST7-TBL
TST10-TBL
TST11-TBL
TST12-T8BL

TST13-TBL

RELOC~TBL

;TEST

IN RO

oGO0 TO THE TEST #

;STORED IN BITS 0-3 OF SWITCH REGISTER
JRELATIVE ADDRESS OF TEST #
JRELATIVE ADDRESS OF TEST #

JRELATIVE ADDRESS
JRELATIVE ADDRESS
JRELATIVE ADDRESS
;RELATIVE ADDRESS
JRELATIVE ADDRESS
;RELATIVE ADDRESS
JRELATIVE ADDRESS
JRELATIVE ADDRESS
JRELATIVE ADDRESS
JRELATIVE ADDRESS
JRELATIVE ADDRESS

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST

#
#
#
#
#

TEST #

TEST #
TEST #
TEST #
TEST #
ROUT INE

=N
— O

(ZKMA

CZKMAE .MAC

RELOC'

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
1544

1545
1546

18-SEP-78

18-SEP-78 11:54

11:56

PAGE 30

BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.
;RS IS POINTING TO THE TOP OF THE MEMORY TO BE TESTED+?
;R4 & RO ARE POINTING TO THE LOWEST ADDRESS OF MEMORY TO BE TESTED

SEQ 0030

(ZKMA

MACY11 30A(1052)

CZKMAE .MA(C

18-SEP-78

18-SEP-78 11:54

11:56

1547
1548
1549
1550

o
;8
o
D

1554

1551
1552
1553
1555

1556

1338

PAGE 31

SCOPE ROUTINE
SCOPE ROUTINE
eeeececce—ee-

.
s
o

PROGRAM COMES TO THIS ROUTINE AFTER COMPLETION OF EACH TEST AND
IF CNTRL=C TYPED GOTO ERROR HISTORY TYPE ROUTINE.
IF SR= 2000 (BIT10) THEN HALT

ELSE CONTINUE TO NEXT TEST.

IF SR= 40000 (B]T14) THEN LOOP ON TEST DEFINED BY SR BITS<3:0>

1559
1560
1561
1562

001636
001642
001644

105737
001002
004767

000420
006022

TSTIB
BNE
JSR

001650

113702

000404

CNTSCP: MOVB

1566

001654

005237

000410

002000

176562

BIT
8EQ
SWHALT: HALT

1571
1572

001672
001700

032777
001332

040000

176550

TSTGO:

1563
1564
1565
1567
1568
}ggg

1573
1574

001660
001666
001670

001702
001704

032777
001401
000000

105202
000724

SEQ 0031

TSTSCP:

NSENV
CNTSCP
PC,CHECKC

AHSTESTN,R?

INC

a#SDEVCT

BIT
BNE

#40000,aSWR
LOOP

INCR
8R

#2000 ,aSwR
TSTGO

R2
CONT

;ARE WE RUNNING UNDER APT?
;IF SO THEN GO TO CNTSCP
;TEST FOR CONTROL-C AND IF TYPED GO
:PRINT ERROR HISTORY AND HALT AT FATHLT,

:PLACE THE TEST NUMBER IN THE LOWER BYTE OF RZ2
:SINCE THERE ARE LESS THAN 377 TESTS UPPER BYTE
;OF R2 WILL BE 0
JTELL APT WE ARE STILL RUNNING OKAY

: 1S THE PROGRAM GOING TO HALT AFTER EACH TEST?
;IF NOT THEN GO TO 2%
;HALT AT END OF TEST SWIT(CH SET.
;1S THE PROGRAM GOING TO LOOP ON TEST
;IF SO THEN GO TO THE STARTING OF THE SAME TEST
;GO TO CONT AND CONTINUE EXECUTING THE NEXT TEST

CZKMAE .MA(

1602

1603
1604

11:56
10

PAGE

TEST FOR PROPER BANK SELECTION

SEQ 0032

':tttt*tttttttitttttifltti'fit'tttttfit*'tttttttttttiitittt""ttttt

T»TEST 0

:*(1)
- %

* N

;% (2)

- %

° K

;% (3)

. (2822222222232

1ST0:

000404

001706
001712
001714
001720

105737
001403

004767
000005

004234

001722
001726
001730
001732
001734
001736
001740
001742

012703
010401
010310
020001
001417
005711
001430
020311

1727777

001744
001746

001004
012767

001754
001756
001756

000403

012767

001764
001766
001772
001774
001776
002000

010046
105237
000407
020311
001411
012767

002006
002010
002012
002016
002020

010046
010300
004767
000000
012600

003600

002022
002026

013706
062701

000350
020000

002032

1%:

2%:

000006

000007

BEQ
JSR

000032

MOV
MOV
MOV

CMP

8EQ
TST
BEQ
CMP

BNE

000042

3%:
10%:

000301

4%:

000010

TSTB
5

000010

_—

1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601

18-SEP-78
18-SEP-78 11:54

MACY11 30A(105¢2)

n) —
AN

(ZKkMA

THIS TEST ASSUMES THAT THE MEMORY IS IN A STATE

OF ALL 0'S AND RO HAS THE ADDRESS OF THE LOWEST

LOCATION UNDER TEST
IT CHECKS FOR PROPER BANK SELECTION BY WRITING
1'S IN A LOCATION AND CHECKING FOR 0°'S IN THE SAME
LOCATIONS OF OTHER 4K _BANKS OF THE MEMORY

[I.E. LOCATIONS LIKE 7766 AND 27766 ETC.]
THIS TEST ALSO CHECKS TO SEE THAT NONE OF
ING BANK RESPOND WHEN THEY ARE ADDRESSED

22223 ¢332

afi?BESTN

23222322

THE NON EXIST-

2220088200 0dd28d2adRdRttndltll

;CHECK FOR PROPER TEST SEQUENCE

PC,SEQERR

8177777
,R3

R4 ,R1
R3,(RO)
RO.R1
A3
§§1)

R3,(R1)

3¢

:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
;xxxxx«FRROR

NUMBER

Sxnnnnn

;R1 = ADDRESS OF LOWEST LOCATION OF MEMORY UNDER TEST
JSET ALL THE BITS AT (RO)
;1S RO POINTING TO THE SAME MEMORY LOCATION AS R1
;IN WHICH CASE CHECK FOR ALL 1'S AT (R1)
:OTHERWISE CHECK (R1) FOR ALL 0'S
;IF RT

IS NOT EQUAL TO RO AND

;DOES NOT CONTAIN ALL O'S THEN
JCHECK TO SEE IF (RO) = (RT)

(R1)

:«ERROR* SETUP ERROR NO. IN 12%

MOV

#6.12%

108

MOV

#7,12%

;*ERROR* SETUP ERROR NO.

MOV
INCB
BR
CMP
BEQ

RO,-(SP)
?quDERR

;SAVE RO ON STACK
;AN ADDRESSING ERROR IS SUSPECTED

gg.(R1)

;CHECK (R1) FOR ALL 1°'S

MoV

#10,12%

MOV
MOV

RO,-(SP)
R3.R0
PC.ERROR

JSR
.WORD
MOV

MOV

(SP)+ RO

JaenaexERROR NUMBER #6xxxnnn

IN 12%

;xxxxxxERROR NUMBER f 7433228

;*ERROR* SETUP ERROR NQ.

IN 12%

;axxxx«ERROR NUMBER #10%xxxxx
;SAVE RO ON STACK

;GO TO THE ERROR SUBROUTINE

;ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE
;RESTORE RO

ADD

a#SAVR6, SP
#20000,R1

JRESTORE THE STACK POINTER
;CAUSE R1 TO POINT TO THE SAME (HIP

020105

CMP

R1,RS

;COMPARE R1

002034

103736

8LO

’%

002036

105737

TST8

AN SENVM

000421

5%:

TEST FOR PROPER BANK SELECTION

;LOCATION IN THE NEXT 4K BANK OF MEMORY
:BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN R1
WITH THE HIGHEST MEMORY

;LOCATION WHICH IS STORED IN RS

:1F R1 LESS THAN RS THEN REPEAT THE TEST FROM 2%
;HAS APT INHIBITED SIZING?

(ZKMA

MACY11 30A(1052)

CZKMAE .MA(

1631
1632
1633

1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646

1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1062

1663

18-SEP-78
18-SEP-78 11:54

002042
002044
002052

100432
032777
001026

000100

002054
002060

020127

167776

002062

020137

002066
002070
002074
002100
002104
002106
002110
002114

101016

103755

000006
000340
177714

004767
000011

004040

002116
002122
002126
002130

012702
012722
005012
005010

000004
000006

002132

062700

020000

002136

020005

002140
002142

000635

103672

PAGE

176376

000340

012702
012712
012742
060712
01111

11:56
10

#100,35WR

;BRANCH IF YES (DON'T TEST NON-EXISTENT MEMORY)
;HAS USER INHIBITED SIZING?
;BRANCH IF YES (DON'T TEST NON-EXISTENT MEMORY)

CMP
BHI

R1,#157776
6%

JSEE IF R1 HAS CROSSED 28K BOUNDRY OF VIRTUAL ADDRESS
;IN WHICH CASE GO TO 6%

CMP

R1,34#MAXMEM

;IS R1 LOWER THAN THE MAXIMUM AVAILABLE

MOV

#6,R2
#340,(R2)

ADD

PC, (R2)

MOV
JSR
1"

ENDO:

SEQ 0033

BMI
BIT
BNE

MOV

8%:

TEST FOR PROPER BANK SELECTION

BLO
MOV

6%:

#5%8-.-6,-(R2)
(R1),(R1)
PC.FATERR

;SHOULD BE LEFT AS IS FOR 30K SYSTEMS (WHICH USE 16K (HI
;MEMORY ?

;IF SO THEN GO TO 5%
;JMAKE R2 POINT TO TRAP VECTOR+Z FOR NXM
;SET PSW TO 340

JSET UP RETURN ADDRESS FROM TRAP TO 5%
;TRY TO WRITE TO NON-EXISTENT MEMORY (SHOULD TRAP)
;*ERROR* REPORT
ERROR MESSAGE AND HALT AT FATHLT
JexxxaxFRROR NUMBER 11#xxwex

MOV
MOV
(LR
CLR

#4 ,R2
#6,(R2)+
(R2)
(RO)

ADD

#20000,R0

;CAUSE RO TO POINT TO THE SAME (HIP

cMP

RO,R5

;COMPARE RO WITH THE HIGHEST MEMORY

;IF RO LESS THEN REPEAT THE TEST

BLO
BR

TSTSCP

JRESTORE

TRAP VECTOR

;LOCATION IN THE NEXT 4K MEMORY BANK
;BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN RO

;LOCATION WHICH IS STORED IN RS.

CZKMAE .MAC

18-SEP-78
18-SEP-78 11:54

11:56
T

SeTEST 1

1665

1666

1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690

1691
1692

1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703

1704

PAGE

34
CHECK DI/DO LINES

SEQ 0034

':t't'fitttiit.tfi'tfitt.fi't'tfitt*tittttt*Qttttttfitttttfitl*tfitt'fitiQ

1664

:x(1)
]

122737

000001

001403
004767
000012

003774

012700
010002
010011
020011
001403
004767
000013

000001

000404

—4

CZKMA

MACY11 30A(1052)

CHECK 0U1/D0 LINES

THIS TEST CHECKS THE DATI/DATO LINES BY SHIFTING
A 1 IN THE WORD DIRECTION

2222222322223 23323 2323202232223 2802222222220

§T1:

MPB
BED

2%:
2%:

003414

.+10

JSR

PC,SEQERR

MOV
MOV
MOV

#1,R0

JSR
13

PC,ERROR

1%:

#1,a48TESTN

cMP
BEQ

RO.RZ

RO, (R1)
RO, (R1)
4%

TST
BEQ
ASL

103366

BCC

005002
012700
000762

CLR

R2
177776 ,R0

A ¥

005702
001406
006300

177776
5%:

000261
006100
103757

o701

MOV

020000

000737

END1:

RiaRddid sl

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
TxxxaxxERROR NUMBER 12%#wwws
;SET R2=1
;MOV 1 AT LOCATION (R1)

:COMPARE R1 WITH THE CONTENTS OF LOCATION (R1)
:*ERROR* REPORT ERROR MESSAGE
;axxxnxERROR NUMBER 13%xwasxe
JARE WE SHIFTING A O IN DATA DIRECTION?

;1F SO THEN GO TO 5%
;SHIFT THE 1 BROUGHT IN AT 1% IN
;DATA DIRECTION

;IF THE 1 HAS NOT BEEN SHIFTED THRU

;THE 16 DATA BITS THEN REPEAT FROM 2%

JINITIATE SHIFTING OF O IN DATA DIRECTION

ROL

ADD

#20000,R1

CMP
BLO
BR

R1,R5
1%

BCS

020105

103750

SEC

;CHECK FOR PROPER TEST SEQUENCE

ENDO

;JSET C BIT

JSHIFT A O 16 TIMES IN DATA DIRECTION
;IF THE O HAS NOT BEEN SHIFTED THRU
;THE 16 DATA BITS THEN REPEAT FROM 2%
;OTHERWISE GO TO THE NEXT BANK OF
;4K MEMORY AND REPEAT THE TEST

18-SEP-78
18-SEP-78 11:54

MACY11 30A(1052)

CZKMA

CZKMAE .MAC

PAGE 35
TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION

11:?3

SEQ 0035

. "ttQttttttttttttt*titttt'tttttttttitt**tttfitfii*tttfifitttttttttttt

D=
=

n NN

ijuuxnnun; N

NN
FHR

1733

1735

1737
1738
1739
1740
17461
1742
1743
1744
1745
1746

*(1)
*
¢

:x(2)

NS WO
=0V~ o VNHBWNH=2OVO

G
SN
SN GE
I
N
D PP
b —md
)
e
—

NN NN

YR]

J«TEST 2

122737

000002

001403
004767
000014

003674

013700
110021
113721
020105
103771

000316

042701
004767
000015
020104
101356
000337
001744

000733

7ST2:!

1%:

#2,aNSTESTN

BEQ
JSR

PC,SEQERR

MOV
MovB
MOovB
CMP
8LO

CMP

.+10

Rt R ]

;CHECK FOR PROPER TEST SEQUENCE

:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
JaxnxaxFRROR

NUMBER

14 annnnn

A#BAKPAT
,RO

RO, (R1)+

818A§PAT*1,(R1)+;URITE THE MEMORY WITH THE WORD STORED IN BAKPAT
R1,R

RO,-(R1)
88

:TEST THE MEMORY TO SEE IF
;THE WORD STORED IN BAKPAT

IT CONTAINS

#2 ,R1

000002
000317

000001
003260

CMP8

2%:

000301

STEPS 1 & 2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN

2222238222322 2222222222333 2233338322332 2222222822382

000317

020041

001416
062701
123741
001402
120041
001002
105237

000404

;x(3)

TEST MCMORY FOR HOLDING DATA AND BYTE SELECTION
THIS TEST CHECKS THE MEMORY FOR THE CAPABILITY
OF HOLDING 1°'S AND 0°'S BY WRITING A BACKGROUND
OF BAKPAT AND READING IT
MEMORY IS WRITTEN USING A BYTE AT A TIME

2:8AKPAT*1,-(R1);CHECK FOR BYTE SELECTION PROBLEM

A ¥

6%:

22,-(R1)

;AGAIN CHECK FOR BYTE SELECTION PROBLEM

a#$ADERR

:PREPARE TO INFORM THAT IT IS ADDRESSING ERROR

#1,R1
PC,ERROR

8%:

R1.R4
’3
A#BAKPAT
1%

ENDZ:

000316

;MAKE THE ADDRESS IN R1 EVEN
:*ERROR* REPORT ERROR MESSAGE
cexenxx*ERROR NUMBER 15%xxannx

JKEEP ON TESTING THE MEMORY UNTIL
;R1 EQUALS THE LOWEST ADDRESS
;CHANGE THE DATA PATTERN
:1F THE DATA PATTERN DOES NOT HAVE LOW

; BYTE =0 THEN FALL THRU

;THE TEST LEAVES BAKPAT LOCATION THE SAME AS IT WAS IN THE BEGINNTING

CZKMAE .MA(

18-SEP-78
18-SEP-78 11:54

1747
1748
1749
1750
1751
1752
1753
1754
175¢
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775

11:?6

PAGE

AR R R AR

S#TEST 3

R A RN

;v (4)

;v (5)

005003
004737

000003

000404

2%:
'A ¥
6%:

005001
050301
020104
103445
020105
103053
020102
001431
020011

001437
012767

7%:

000017

000032
8%:

010046
000316
022611

002456

$T3:

012767

000020

002466
002472
002474
002476
002502
002504

105237
010046
010200
004767
000000

000301

012600

003114

STARTING FROM THE LOWEST LOCATION IN THE BANK THE TEST WRITES A
LOCATION WITH SWAPPED BAKPAT
READS THE MEMORY FOR PROPER CONTENTS
SHIFTS A 1 ALONG THE ADDRESS DIRECTION AND REPEATS STEPS 1-3

REPEATS STEP 1-4 FOR EACH 4K BANK
lSiSISTESTN

JSR

PC,SEQERR

CLR
JSR

R3
PC,34WRTMEM

CLR

BLO
CMP
BHIS
SWAB

168
R2,R>
208
(R2)

000014
:
9%

20%-

RN NN R AR RNRARANR

;CHECK FOR PROPER TEST SEQUENCE

L+

BIS
CMP

R3,R2
R2 ,Ré4

R1
R3,R1

CMP
BHIS
ggg

R1,R5
15%
$8§R2

CMP

RO, (R1)

BEQ
MOV

12%
#17,22%

MOV

RO,-(SP)

CMP

(SP)+,(R1)

CMP
8L0

SWAR

R1,R4
12%

(SP)

MoV

#20,22%

INCB
MOV
MOV
JSR
.WORD
MOV

a#$ADERR
RO,-(SP)
R2.RO
PC,ERROR

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
;axexxxFRROR NUMBER 16%nnnnx

; WRITE MEMORY WITH THE BACKGROUND STORED
;AT LOCATION BAKPAT

:MAKE R2 POINT TO THE MEMORY BANK POINTED BY R3
;1F R2 IS LESS THAN Ré

CLR
BIS

BNE

001003

002460

THIS TEST CHECKS FOR DUAL ADDRESSING PROBLEMS BY WRITING A

BACK GROUND OF BAKPAT.

gggfl

005002
050302
020204
103465
020205
103077
000312

A NN RN AR R AN N AR R AN RN R AR A AR R AN AN R RN NNRRRAN

AN AR AN R AR AN R AR AN NN R AT N NN AN R RN AR AR RN RN AR RN AR

003564

000120

NN AR AN AR

SEQ 0036

DUAL ALDRESS TEST A

122737
001403
004767
000016

DUAL ADDRESS TEST A

;x(2)
¥
;*(3)
e

:x(1)

CZKMA

MACY11 30A(1052)

(SP)+,RO

:THEN DO NOTHING
;IF R2 IS HIGHER THAN THE HIGHEST LOCATION TO BE
JTESTED THEN EXIT THE TEST
;OTHERWISE WRITE THE COMPLEMENT OF BAKPAT IN
:THE LOCATION POINTED BY R2

;IF RT IS POINTING TO A LOCATION LOWER THAN R4
:THEN GO TO 12%
;CHECK THE MEMORY FOR CORRECT DATA

;IF R1 IS NOT = TO R2 THEN (R1) SHOULD HAVE
;THE SAME WORD AS BAKPAT
JIN WHICH CASE GO BACK TO 12%
;*ERROR* SETUP ERROR NQ. IN 22%
;xxxxxxERROR NUMBER #17xxanxx
;PLACE RO ON THE STACK

;IF (R1) IS NOT = RO THEN SEE IF IT IS SAME
;AS A SWAPPED RO

;1F NOT THEN A SUSPECTED DUAL ADDRESSING PROBLEM
;FOR THE BITS THAT ARE DIFFERENT IN RO AND (R1)

;OTHERWISE THERE IS DUAL ADDRESSING FOR THE
JENTIRE WORD
;*ERROR* SETUP ERROR NO. IN 22%
;axxasxERROR NUMBER

H20xnannn

;ADDRESSING PROBLEM IS DETECTED
;SAVE RO
:SET RO=GOOD ADDRESS FOR ERROR REPORT
;GO TO THE ERROR SUBROUTINE
:ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE
;RESTORE RO

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
1803

1804

1805
1806
1807
1808
1809
1810

1811
1812
1813
1814
1815
1816
1817

002506

002510

002514
002516
002520
002522

010011

020v37

001411
000407
000300
020011

002524
002526

001404
012767

002534
002536
002540
002542
002544

000745
000300
040301
005701
001001

1818
1819

002546
002550

005201
006101

1822
1823
1824
1825
1826

002560
002562

000312
040302

1820
1821

002552
002556

002564
002566

1827
1828

002570
002572

1831

002600

1833

002604

}g%g

1832

1834

1835
1836
1837
1838
1839

18-SEP-78

18-SEP-78 11:54

002574

020127
103720

11:?%

PAGE 37

cMP

10%:

177746
118:
12%:

020000

13%:

15%:
16%:

005702
001001
005202
006102

020227

020000

18%:

103700

002602

060203

002610
002612
002616

103673
000337
001656

002620

000654

020337

000316

BEQ
B8R
SWAB
CMP

20%:
END3:

RO, (R1)

RO, a#8, \KPAT
12%
11%
RO
RO, (R1)

SEQ 0037
JRESTORE (R1)

:1F THE CONTROL CAME HERE FROM 15%$-2 THEN
;RETURN TO 118
JMAKE RO SAME AS SWAPPED BAKPAT
JIF R1 = R2 THEN (R1) SHOULD CONTAIN A WORD
;EQUAL TO SWAPPED RO
JIN WHICH CASE GO BACK TO 11%

BEQ
MOV

118
#21,22%

BR
SWAB
BIC
TST
BNE

8%
RO
R3.R1
R1
13%

;*ERROR* SETUP ERROR NO. IN 22%
;axnaaaxERROR NUMBER #21#nnnns
JAND GO TO 8%
JRESTORE RO TO BAKPAT
:TAKE OUT THE BANK ADDRESS FROM THE ADDRESS IN R1
;IF RT IS O THEN PLACE A 1 IN R
;OTHERWISE GO TO 13$%

CMP
8LO
SWAR
8IC

R1,4#20000
7%

:IF R1 IS LESS THAN A 4K BOUNDRY
;THEN REPEAT FROM 7%

INC
ROL

R1
R1

(R2)
R3,R2

TST
B8NE

R2
18%

cMP

R2.#20000

INC
ROL

R2
RZ

8L0

CMP

R3,a#MAXMEM

ADD

000340

DUAL ADDRESS TEST A

MOV

000316

000021

R2.R3

8LO
SWAB
BEQ

4%
a#BAKPAT
TST3

END2

JRESTORE (RZ2) TO BAKPAT
;TAKE OUT THE BANK ADDRESS FROM THE ADDRESS
;STORED IN R2
;IF R2 = 0 THEN MOVE A 1 TO R2
;OTHERWISE GO TO 18%
JSHIFT A ONE IN THE ADDRESS WORD

:é? IHE ADDRESS IN RZ2 MORE THAN THE BOUNDRY
N

;IF NOT THEN GO TO 6%

:OTHERWISE MAKE R3 POINT TO THE NEXT 4K BANK
;1F R3 IS POINTING TO A BANK THAT IS LOWER
; THAN MAXMEM

;THEN REPEAT FROM 4$
;REPEAT THE TEST WITH SWAPPED BAKPAT ONLY IF

:THE LOWER BYTE OF BAKPAT IS O

18-SEP-78
MACY11 30A(1052)
CZKMA
18-SEP-78 11:54
CZKMAE .MAC
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
“856
1857
1858
1859
1860
1861
1852
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879

11:56
T4

PAGE 38

SEQ 0038

DUAL ADDRESS TEST B

d)
>: (2222228223322 23233 33233222323 X223 222382222222 22222200200t

J*TEST &

:x(1)

DUAL ALDRESS TEST B
THIS TEST CHECKS FOR DUAL ADDRESSING BY WRITING

P
Pe

AND READING THE ADDRESS IN THE LOCATION AND THEN
WRITING AND READING ADDRESS COMPLEMENT

gggfl

'4igfisTESTN

“"fififi"'fifi.".Q'..'.'.."."'....Q'.....fi'...'.'fi.'*"'fi*'*.fi'fl'*

002622

002630
002632
002636
002640
002642
002644

002646
002650
002652
002654
002656

122737
001403
004767
000022

000004

000404

TST4:

003316

005003

1%:

010100
005703
001401
005100
010021
020105
103771

2%:

JSR
22

PC,SEQERR

CLR
MOV

R3
R1.RO

TST
BEQ
coM
MOV

CMP

:IF R3 IS NOT O THEN STORE THE ADDRESS
;IN THE LOCATION
;OTHERWISE STORE COMPLEMENT
;OF THE ADDRESS
JUNTIL THE HIGHEST MEMORY LOCATION IS REACHED

ggz

22.‘(R1)

;CHECK THE LOCATION FOR THE CORRECT CONTENTS
;THIS IS PROBABLY ADDRESS PROBLEM RATHER THAN

002660
002662
002664

020041
001405

105237

000301

INCB

¥ SADERR

002670
002674

004767
000023

002722

JSR
23

PC ,ERROR

002676
002700
002704
002706
002710
002712
002714
002716
002724
002726

010100
162700

002730

000733

005703
001401
005100
020104
101361
112737
005103
001345

'A ¥

000002

5¢:
000001

MOV

END4:

R1,R0O

SuB
T57

#2,R0O
R3

CMP
BHI

R1,R4
3s

oM
BNE

R3
1%

BEQ
coM
MOVB

000306

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
;annaxxERROR NUMBER 22%wawwx

R3
23
RO
RO,(R1)+
R1,RS

8L0

;CHECK FOR PROPER TEST SEQUENCE

5%
RO

#1,a#PASFLG

END3

;:B]T PROBLEM
;*ERROR* REPORT ERROR MESSAGE
Janaxx«ERROR NUMBER 23xaannn

:CHECK THAT THE ADDRESS IS STORED AT
:LOCATION IF R3 IS NOT O
;OTHERWISE CHECK FOR
;ADDRESS COMPLEMENT

;SET PASFLG FOR ERROR REPORT.

:COMPLEMENT THE CONTENTS OF R3
:REPEAT TST3 IF R3, IS NON O, ENABLING ADDRESS
;COMPLEMENT TO BE WRITTEN AND READ, OTHERWISE FALL THRU

(ZKMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78

18~SEP-78 11:54

11:?2

1880

J*TEST 5

}gg‘g

002732

122737

000005

1896
1897
}ggg

002740
002742

001403
004767

003206

1900

002750

004737

000120

002754

020041

002760

004767

1901
1902

1903
1904

}3&5’

002746

002756

002764

000024

001403

000025

1907

002766

000300

1910
1911
1912

002774
002776
003002

001403
004767
000026

1908
1909

1915
1916
1917
1918
}g}g

MARCHING 1°'S AND 0°'S

SEQ 0039

Pe
I e e Ly

1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
}gg;
1893

PAGE 39

002770
002772

000300

003006

001023

A AR RN

TSTS:

(MPB

MARCHING 1°'S AND 0°'S
THIS TEST WRITES A BACK GROUND OF THE WORD STORED
AT BAKPAT,
READS EVERY LOCATION FOR CORRECT DATA, SWAPS BYTES
AT THE LOCATION AND PROCEEDS IN MAX. TO MIN
DIRECTION OF MEMORY LOCATIONS.
READS EVERY LOCATION FOR SWAPPED BAKPAT PATTERN
WRITES BAKPAT BACKGROUND IN THE LOCATION AND PROCEEDS
IN MIN. TO MAX. DIRECTION
REPEATS STEP 2 GOING IN MIN. TO MAX. DIRECTION
REPEATS STEP 3 GOING IN MAX. TO MIN. DIRECTION

AR R AR AN AR AR

RO RNRAA TR AR RARANRRRRNRARRNARKR
AR AP R A AR

#5,a#8TESTN

;CHECK FOR PROPER TEST SEQUENCE

BEQ
JSR

.+10
PC,SEQERR

1%:

JSR

PC.3#WRTMEM

2$%:

CMP

RO,~(R1)

:WORD STORED IN BAKPAT
:READ THE CONTENTS OF LOCATION POINTED B8Y R1

JSR

PC.ERROR

:*ERROR* REPORT ERROR MESSAGE

SWAB

BEQ
JSR

43
PC, ERROR

002632

BEQ

25
3%:

010011
021100

003004

000404

(1)
M
()
o
o*
;% (3)
M
ox
;v (4)
s*(5)

002614

MOV
CMP
26

4%:

RO, (R1)
(R1).RO

SWAB

BNE

:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
Jaxxsex*ERROR NUMBER 24 xxnnx
:GO TO WRITE THE MEMORY WITH A BACKGROUND OF THE
:TO SEE IF IT HAS THE SAME VALUE AS RO

;xnxaex*ERROR NUMBER 25%wnsxwn
:SWAP THE BYTES AT (R1)
:READ (R1) FOR CORRECT VALUE

:*ERROR* REPORT ERROR MESSAGE
;xxaxxxERROR NUMBFR 20%xxxnx
:SWAP THE BYTES OF THE REGISTER
:CONTAINING BACKGROUND PATTERN
:IF THE LOWER BYTE OF THE REGISTER
;IS NOT O THEN THE PROGRAM IS READING
:THE MEMORY TO CONTAIN A BACK GROUND OF

}g%}

:BAKPAT AND WRITING THE SWAPPED WORD

}ggz

:IN WHICH CASE GO TO 9%

1925

1926

003010

005703

5¢%:

TST

1927
1928
1929

003072

001023

}g%%

003020

020105

1934
1935

sTHIS TEST, AND IT IS NOT ALTERED UNTIL PASFLG=3
:IF R3 EQUAL O THEN THE PROGRAM IS

1930

1931

:R3 WAS 0 WHEN THE PROGRAM ENTERED

003014

003022
003024

062701

103006
020011

000002

6$%:

7$:

BNE

108

ADD

#2 ,R1

BHIS
MP

8%
RO, (R1)

CMP

R1.RS

;READING/WRITING MIN. TO MAX. OTHERWISE
;1T IS GOING IN MAX. TO MIN. DIRECTION

:IF R3 IS NOT CLEAR THEN GO TO 10%

:OTHERWISE ADD 2 TO THE CONTENTS OF R1

:gg‘l;?ggep WITH THE MAX. MEMORY LOCATION TO
;IF R1>RS THEN GO TO 8% OTHERWISE
JREAD (R1) FOR THE CORRECT DATA

C(ZKMA

MACY11 30A(1052)

CZKMAE .MAC
1936
1937

18-SEP-78 11:54

003026

001757

1938

003030

004767

1941

003036

000753

1944
1945
1946
1947
1948
1949

003046

1328

1942
1943

}gg?

1952

1953
1954
1955
1956
1957
1958
1959
196C

1961

1962
1963
1964
1965

003034

003040
003044

18-SEP-78

000027

002562

000306

PAGE 40

MARCHING 1°'S AND 0°'S
BEQ

JSR

PC.ERROR

27
BR

SEQ 0040
; WRITE COMPLEMENT OF THE DATA FOUND AT (R1)
JAND REPEAT UNTIL R1 > RS
; *ERROR* REPORT ERROR_MESSAGE

;exenexERROR NUMBER 27wewnnx

001742

BEQ

a#PASFLG
RO

003050
003052
003054

005103
010401
000763

Com
MOV
BR

R3
R4 LR
’$

;1F THE LOWER BYTE OF RO IS ALL 0°'S
;THEN BEGIN READING BAKPAT SWAPPED WRITING BAKPAT
;AND READING BAKPAT GOING FROM MAX. TO MIN.[PASFLG=4]
;OTHERWISE CLEAR RO
;PUT THE LOWEST TESTING ADDRESS IN R1
JAND BEGIN READING 0°'S, WRITING 1°S AND

003056

005703

9%:

TST

;IF R3 IS NON O, I.E. PASFLG=3

003062

020104

10%:

cMP

R1,R4

003064
003066
003072
003074

101333
105237
000300
001753

BHI
INCB
SWAB
BEQ

2%
a4PASF LG
RO

003076

000714

END4

001353

8%:

INCB
SWAS

003060

105237
000300

11:?2

000306

ENDS:

BNE

;READING 1°'S IN MIN. TO MAX. DIRECTION [PASFLG=3]
;THEN READ BAKPAT, WRITE
s SWAPPED BAKPAT AND READ SWAPPED BAKPAT
sIN MIN. TO MAX. DIRECTION
;OTHERWISE TEST IS PROCEEDING IN MAX. TO
sJMIN. DIRECTION.
JKEEP ON LOOPING UNTIL R1=R4

;1F RO SWAPPED HAS LOWER BYTE-O

;THEN READ BAKPAT SWAPPED, WRITE BAKPAT,
JAND READ BAKPAT GOING FROM MIN. TO MAX.

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78

18-SEP-78 11:54

11:?2

1966

PAGE 41

CELLS® VOLATILITY TEST

SEQ 0041

TT
R L

}ggg

;*TEST 6

CELLS' VOLATILITY TEST

1969
1970

:x(1)
;*(2)

THIS TEST WRITES THE MEMORY WITH A BACK GROUND OF BAKPAT
WITH PASFLG=0 THE TEST READS THE MEMORY FOR BAKPAT

1972
1973

;% (3)
o

IT THEN READS/SWAPS BYTES/WRITES A LOCATION X FOR
OVER 2 MSEC AND THEN READS THE MEMORY FOR BAKPAT

1971

1974
1975
1976
1977
1978
}ggg

1981

}gg%

;v (4)
;*(5)
i
M
:*(6)
S*

003100

122737

1985

003106

001403

004767
000030

003040

1989

003116

004737

000120

003122

005037

000306

003142

000031

1984

1986
}ggg
1990
1991
1992
1993
1994
1995
1996

}ggg

1999
2000

003110
003114

003126
003130
003132
003134
003136

010403
010401
020011
001403
004767

000006

2001

062701
020105
103767

2003

%88%

003162

003164

001002

2006

003170

020305

2008

003174

012702

037776

2072
2013
2014

003206
003212

010337
062703

000354
020000

2007

2009
2010
2011

2015

2016

2017
2018
2019
2020

003154

003172

003200
003202
003204

003216

003220
003224
003230
003232

132737

000001

105237

000306

103012

000313
005302
001375

000744

105237
000337
001732
000721

RPT6:
1$:
2%:
3$:

4%:

000306

7$:
END6:

.+10

;CHECK FOR PROPER TEST SEQUENCE

PC,SEQERR

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
;axanxxERROR NUMBER 30%anxw«

JSR

PC.,a4WRTMEM

;GO TO WRITE THE MEMORY WITH A BACKGROUND OF THE

CLR

a#PASFLG

MOV
MOV
CMP
BEQ
JSR

;WORD STORED AT LOCATION BAKPAT

R4 ,R3
R4 ,R1
RO, (R1)
21
PC,ERROR

;SET R3
;AND R1 TO THE STARTING ADDRESS OF MEMORY UNDER TEST
;JCHECK (R1) FOR CORRECT DATA

ADD
CMP
BLO

#2,R1
R1,R5
3%

; INCREMENT R1 BY 2
;SEE IF R1 HAS REACHED THE MAX. OF MEMORY

BNE

BITB

6%:

#6,NSTESTN

JSR
30

5%:

000306
000316

CMPR

BEQ

000002

REPEATS STEP 3 WITH X=X+4K UNTIL END OF MEMORY IS ENCOUNTERED
IT THEN INCREMENTS PASFLG AND WRITES THE MEMORY TO
BAKPAT AND WITH PASFLG=2 IT READS MEMORY FOR ALL
SWAPPED BAKPAT AFTER WHICH PASFLG IS INCREMENTED TO 3
REPEATS STEPS 3 AND 4 READING THE MEMORY FOR SWAPPED
BAKPAT INSTEAD OF BAKPAT.

N L

TST6:

002454

003144
003150
003152

2002

000404

AND THEN INCREMENTS PASFLG

;*ERROR* REPORT ERROR MESSAGE

;xxanxxERROR NUMBER 31%wxaxx

#1,a4PASFLG

;CHECK TO SEE IF PASFLG-0 OR 2

INCB

AMPASFLG

;IN WHICH CASE INCREMENT PASFLG COUNTER BY 1

CMP

R3,R5

;SEE IF R3 HAS REACHED THE MAX. OF THE MEMORY

MOV

#37776,R2

JWRITE INTO 1 LOC FOR >2MS (ABOUT 100MS)

MOV
ADD

R3,a#SAVLOC
#20000,R3

;SAVE LOCATION WRITTEN FOR 2MS FOR ERROR REPORT.
;BY ADDING 1 TO THE 14TH ADDRESS BIT CAUSE
JR3 TO POINT TO A LOCATION IN THE NEXT

BHIS
SWAB
DEC
BNE

INCB
SWAB
BEQ
BR

(R3)
R2
6%

a#PASFLG
S#BAKPAT
RPT6
ENDS

;4K BANK OF MEMORY

JMAKE PASFLG=2
;IF BAKPAT IS NOT BEING SWAPPED FOR THE 2ZND
;THEN GO BACK TO THE LOCATION RPT6

(ZxkMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78
18-SEP-78 11:54

11:56

PAGE 42

SEQ 0042

SHIFTING DIAGONAL

';ttttfifi'tttttifi'.itttt'tttttttttttttfitttt'tttttttttt'ttttt"t.tt

SeTEST 7

SHIFTING DIAGONAL
:x(1)

THIS TEST WRITES THE MEMORY WITH A BACKGROUND OF BAKPAT

v (3)

READS THE MEMORY FOR CORRECT DATA

e (2)

sw(4)
;t

:x(5)
4

IT WRITES A DIAGONAL OF S\'APPED BAKPAT THROUGH EACH MEMORY BANK

SHIFTS THE DIAGONAL AND REPEATS STEP 3 UNTIL THE
DIAGONAL HAS BEEN SHIFTED 64 TIMES

WRITES A BACKGROUND OF SWAPPED BAKPAT, A DIAGONAL OF

BAKPAT AND REPEATS FROM STEP 3

B 2222222222323 2323322332233 3332232222223

000404

1577:

003234

122737

000007

003242
003244
003250

001403
004767

002704

003252
003256

005037
010337

000306
000304

003262
003264
003270
003272
003274
003276
003300

010302
052702
005202
001402
020502
103001
010502

003302

0103237

000302

003306

013701

000304

003312
003316
003320
003322
003326
003332
003334
003340
003342

013700
020103
001010
062703
032703
001402
062703
000300

000316

003350
003352

001001
01001

003354

020011

003356
003360
003364

001403
004767
000033

003366
003372
003374
003376

062701
020102

000002

14%:

005237

000410

16%:

000032

132737

103746

BEQ

2%:

MOV

CLR

#PASFLG
R3,a#L OWBNK

MOV
BIS

R3,R2
817777 ,R2

3%
¥
A

MOV

R3,a4STRTDI

MOV

,R1
a#LOWBNK

Mov

a#BAKPAT
RO
R1,R3

000002
000176

CMP
BNE
ADD
BIT

BEQ

000306

.+10

PC,SEQERR

INC
BEQ
CMP
BHIS
MOV

6%:

000200

A7 ,HSTESTN

JSR

017777

000001

CMP8

8%:

10%:

12%:

002232

ADD
SWAB

BITR

222202222t dld)

;CHECK FOR PROPER TEST SEQUENCE

:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
;exxxxxERROR NUMBER 32%txxnx

;LOWBNK CONTAINS ADDRESS Of THE LOWEST LOCATION
;IN THE 4K BANK THAT CAN BE TESTED
;R2 CONTAINS THE ADDRESS OF THE TOP OF THE BANK
JADD 1 TO POINT IT TO NExT BANK

JBRANCH IF ZERO (IT MUST 8E A 30K SYSTEM)

;IF R2 IS GREATER THAN RS THEN GO TO 4%
;NOW R2 CONTAINS THE ADDRESS OF THE HIGHEST LOCATION

108
#2,R3
#176 ,R3
8%
#200,R3
RO

#1,34PASFLG

;THAT CAN BE TESTED
;LOAD STRTDI WITH THE STARTING ADDRESS OF THE
sDIAGONAL
:R1 IS NOW POINTING TO THE LOWEST LOCATION IN THE 4K
s BANK

;STORE THE CONTENTS OF BAKPAT IN RO
;IS R1 POINTING TO A LOCATION IN THE DIAGONAL ?
;IF NOT THEN GO TO 10$
;THE FOLLOWING CODE IS USED TO PLACE THE

:?ng%SS OF THE NEXT LOCATION IN THE DIAGONAL
;DIAGONAL WILL CONTAIN SWAPPED BACKGROUND PATTERN
;CONTENTS OF LOCATION PASFLG WILL BE EVEN IF THE
;JMEMORY 1S BEING WRITTEN AND IT WILL BE ODD

;IF IT IS ONLY BEING READ

BNE

1 [0)7

12%
RO, (R1)

;IF IT IS BEING READ ONLY THEN GO TO 12%

cMp

RO, (R1)

;CHECK THE LOCATION POINTED BY R1 TO CONTAIN

BEQ
JSR

14%
PC.,ERROR

JIF IT IS OK THEN GO TO 14$
;*ERROR* REPORT ERROR _MESSAGE
Jaexen*ERROR NUMBER 33wxwxnx

ADD
CMP
BLO
INC

#2,R1

R1,RC

6$
a#SDEVCT

;8;H58UISE WRITE THE MEMORY WITH THE CONTENTS

;PROPER DATA

;CAUSE R1 TO POINT TO THE NEXT MEMORY LOCATION
;IS IT THE END OF THE BANK ?
;IF NOT THEN GO TO 6%
JTELL APT WE ARE STTL RUNNING OKAY

18-SEP-78
MACY11 30A(1052)
(ZKMA
18-SEP-78 11:54
CZKMAE .MA(

2077
2078
2079
2080
2081
2082
2083
2084

003402
003406
003412
003420
003422
003424
003426
003430
003434
003436

105237

013703
132737
001330
005723
020302
103003
105737
100322

000306
000302
000001

11:56
17

PAGE 43
SHIFTING DIAGONAL
INCB

MOV

000306

000306
18%:

AN#PASFLG

a#STRTLI,R3

A1 ,a#PASFLG
4%

BITB
BNE
TST
CMP
BHIS
TST8B
BPL

(R3)+
R3,.R2
18%

[0}

,R3
a# OWBNK

SWAB
BEQ

SHBAKPAT
48

a#PASFLG
43

SEQ 0043

;LOAD R3 WITH THE STARTING ADDRESS OF THE DIAGONAL
;HAS

THE READ OF

THE MEMORY BEEN DONE

;IF NOT THEN GO TO 4$

JADD 2 TO THE STARTING ADDRESS OF THE DIAGONAL
JAND UNLESS THE END OF THE BANK IS REACHED
;OR THE DJAGONAL HAS BEEN ROTATED 64 TIMES
JREPEAT FROM 4%

;JMAKE R3 POINT TO THE LOWEST LOCATION IN THE
;IN THE BANK UNDER TEST

013703

000304

003442
003446

000337
001715

000316

003450

010203

MOV

RZ,R3

;MAKE

003452

020205

CMP

R2,RS

003454
003456

000665

8LO
BR

JUNLESS THE PRESENT HIGH BOUNDRY IS ALSO THE
JHIGH BOUNDRY FOR THE MEMORY UNDER TEST

END6

103676

END7:

JAND IF

THE TEST HAS NOT BEEN PERFORMED WITH THE

;SWAPPED BACK GROUND PATTERN THEN GO TO 4%
THE PRESENT HIGH BOUNDRY AS THE NEXT

:LOW BOUNDRY

18-SEP-78
MACY11 30A(1052)
(ZKMA
18-SEP-78 11:54
CZKMAE .MAC

11:56
PAGE 44
READ RECOVERY GALLOPING TEST/EVERY 64TH CELL
710

2097
2098
2099
2100
2101
2102
2103

SEQ 0044

':Qt'*tttfi.ti*Qt*tttttttt*t'ttfifittttttttitfitfi'ttttt**ttttitttttt'

SATEST 10

READ RCCOVERY GALLOPING TEST/EVERY 64TH CELL

THIS TEST WRITES THE MEMORY WITH A BACK GROUND PATTERN
STORED AT LOCATION BAKPAT
TEST BEGINS AT LOWEST LOCATION BEING TESTED
(LETS NAME IT 'A')

LETS NAME THE 1ST LOCATION IN THE ROW/COLUMN UNDER TEST AS 'B°.

SWAPS BYTES FOR LOCATION ‘A‘.
READS °'A', READS 'B'

'‘B' = 'B'+200 (MAKES 'B'=64TH CELL I.E. 200TH OCTAL
LOCATION FROM THE PRESENT LOCATION OF 'B')

REPEATS STEPS S AND 6 UNTIL °'B' IS GREATER THAN THE
END 0F2THE 4K BANK OF THE MEMORY IN WHICH 'A' IS RESIDING
=

A+

REPEATS
STEPS 3-8 UNTILL 'A' REACHES THE END OF THE BANK
GOES TO THE NEXT 4K BANK OF MEMORY AND REPEATS STEPS
3-9 UNTIL THE END OF THE MEMORY
AFTER EXECUTING THE TEST BYTES ARE SWAPPED AT
LOCATION BAKPAT AND STEPS 1-10 ARE REPEATED

IN THIS TEST RO IS POINTING TO LOCATION 'A', R1 TO
LOCATION °'B', R2 TO THE END OF THE 4K BANK IN WHICH THE
TEST IS TAKING PLACE AND R3 TO THE LOWEST LOCATION IN THE
COLUMN/ROW CONTAINING 'A' AND ‘B’
MOST OF THE CODE USED BY THIS TEST IS ALSO USED BY TEST 11
':tfittttttttfifi*ttt*ttttttttii*t*****fititfiti'*tt'it*tttfitttttlf*tt

003460

122737

000010

003466
003470
003474

001403
004767
000034

002460

003476
003500

010402
052702

003504
003510
003512
003514
003516
003520
003522

062702
001402
020205

003530
003532
003534

020003

101374
010301

003536

023710

003542
003544
003546
003552
003556

001410
010001
013700
004767
000035

003524

2152

TST10:

CMPB

#10,a#8TESTN

;CHECK FOR PROPER

BEQ
JSR

.+10
PC,SEQERR

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

MoV

BIS

R4 ,R2
#17776 ,R2

;SET R2 TO THE LOWEST MEMORY UNDER TEST
;MAKE R2 POINT TO THE HIGHEST LOCATION IN THE 4K

ADD

#2.R2

017776

RPT10:

000002

GALLOP:

101401

010502
005046
010200
013740

000404

BEQ
cMP
BLOS

gg,RS

MoV

R?Sgg

MOV
MOV

R2.RO

CMP
BHI
MOV

zg.RB

000316

CMP

IBAKPAT, (RO)

000316
002040

BEQ
MOV
MOV
JSR

8%
RO,R1
Q#BAKPAT
RO

1%:

000316

CLR

a#BAKPAT ,-(R0O)

R3.R1

PC,ERROR

;xxxexxFRROR

TEST

NUMBER

SEQUENCE

Tyannnnn

;BANK FOR WHICH GALLOPING WILL BE PERFOMED
; INCREMENT RZ2 BY 2

;BR IF
;IF

IT WENT TO O (IT MUST BE A 30K SYSTEM)

THE HIGH BOUNDRY OF

THE TEST

IS HIGHER THAN

:THE MAXIMM ALLOWED ADDRESS THEN ADJUST RZ2
;WRITE THE MEMORY UNDER TEST WITH A B8ACKGROUND OF
;BAKPAT
:R3 AND R1

ARE POINTING TO THE LOWEST LOCATION THAT

;CAN BE TESTED IN THIS BLOCK
JBEFORE STARTING THE GALLOPING TEST FOR LOCATION

;(RO) CHECK IT

;CONTINUE IF OK
:OTHERWISE PREPARE TO REPORT THE ERROR
;*ERROR* REPORT ERROR MESSAGE

;exenx«ERROR NUMBER 3Swanwnn

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
2153

18-SEP-78 11:54

2154
S}gg

003560
003562

010011
010100

2157
2158
2159

0C3564
003566

00C310
031011

g}g?

003570

020001

2162

003572

001412

2163
2164
2165
2166
2167
S}gg
2170

2171

2172

003574
003600
003602
003604
003610
003614
003616

003620
003624

021137
001407
010046
013700
004767
000036
012600

021037
001412

2173
2174

003626
003630

010146
010001

2176
g};g

003636
003642

004767
000037

2179
2180
2181
2182
2183
2184
2185
2186
2187
2188

003644
003646
003650
003652
003660
003662
003666
003672
003674
003676

010011
010100
012€01
122737
001402
062701
062701
020102
103734
000320

2190
2191
2192
2193

003700
003706
003710
003712

122737
001407
005723
062716

2195
2196

003720
003722

100002
161603

2198

003726

2175

2189

2194

2197

2199
2200

2201
2202
2203

2204
2205

2206

2207
2208

18-SEP-78

003632

003716

013700

105716

003724

005016

003732
003734

001002
005237

003740
003742
003744

003746
003752

003756

003760

032700

020002
103674
162603

000337
000337

001660

010203

000316
002002
12%:

001754

000404

000176
000002

000410

000320
000316

SWAB
BIT

(RO)
(RO), (RY)

cMP

RO.R1

BEQ

12%

MOV

CMP

BEQ

;CHECK TO SEE THAT NONE OF THE BITS SET
JIN (RO) ARE SET IN (R1) AND VICE VERSA

;THE ONLY EXCEPTION TO THIS WILL BE WHEN RO-R1

(R1) ,a#BAKPAT
12%
RO,-(SP)
A¥BAKPAT RO
PC,ERROR

;(CHECK THAT (R1) HAS BAKPAT [N [T

(SP)+,RO

JRESTORE RO

(RQ) ,a#SWAPAT

14%

;SAVE RO ON STACK
JPLACE THE PATTERN WORD IN RO
;*ERROR* REPORT ERROR MESSAGE
;aexanx2ERROR NUMBER 36n#wanx

;(CHECK THAT (RO) HAS SWAPPED BAKPAT IN [T

MOV
MoV

R1,-(SP)
RO,R1

;SAVE R1 ON THE STACK
JMAKE R1 POINT TO THE FAILING LOCATION

JSR
37

PC.ERROR

;*ERROR* REPORT ERROR _MESSAGE
;anxaxaERROR NUMBER 37%xxwxx

¥ SWAPAT RO

;LOAD RO WITH THE EXPECTED RESULT IN (R1)

RO, (R1)
R1,RO
(SP)+ ,R1
#11,aN8TESTN
16%
#176 R1
#2,R1
R1,R2
10%
(RO)+

JRECOVER (R1) FROM THE ERROR
JRESTORE RO
;AND RESTORE R1
;IS THE PROGRAM EXECUTING TEST # 11 ?
;IF SO THTMN GO TO 16%

CMPS
BEQ
TST
ADD

#11,a48TESTN
17%
(R3)+
#2,(SP)

JIS IT TEST 11 2
;IF SO THEN GO TO 17%
;OTHERWISE INCREMENT R3 BY 2
;FOR EVERY ROW/COLUMN TESTED ADD 2

8PL
suB

17%
(SP) ,R3

JUNTIL (SP) IS 200
;SUBTRACT 200 FROM R3

17%:

BIT

#177.RO

;AT A 64TH CALL BOUNDRY?

18%:

CMP
BLO
suB

RO,R2
6%
(SP)+,R3

;IF RO HAS NOT REACHED THE END OF THE BOUNDRY
;THEN REPEAT FROM 6%
;RESTORE SP AND R3

14%:
16%:

000404

TSTB

CLR

BNE
INC

SWAB
SWAB

BEQ

MOV

(SP)

18%
SHSDEVCT

SHSWAPAT
a#BAKPAT

R2.R3

SEQ 0045

;RESTORE THE CONTENTS OF (R1)
;RESTORE RO

MOV
MOV
MOV
(MP8
BEQ
ADD
ADD
cMP
BLO
SWAB

000002

000177

RO, (R1.
R1.R0

MoV

000320

000011

MOV
MoV

cMP
BEQ
MOV
mMov
JSR
36

000316

000320

READ RECOVERY GALLOPING TEST/EVERY 64TH CELL

8%:
10%:

000011

11:??0 PAGE 45

JMAKE R1 POINT TO THE NEXT ADJACENT CELL
JAND IF R1 HAS NOT REACHED THE END OF THE BOUNDRY
;THEN REPEAT FROM 10%
JRESTORE THE LOCATION FOR WHICH THE GALLOPING TEST
;WAS BEING PERFORMED

JBRANCH IF NO
;TELL APT WE ARE STILL RUNNING

;IF THE LOWER BYTE OF BAKPAT [S O THEN REPEAT FROM 2%
;OTHERW]SE MAKE THE PRESENT HIGH BOUNDRY AS THE
;NEXT LOW BOUNDRY

CZKMA

MACY11 30A(1052)

CZKMAE .MA(

18-SEP-78

18-SEP-78 11:54

003762
003764

020205
001410

2213

003766
003772

032702
001025

017776

2215

003774

122737

000011

2209
2210
2en
2212
2214

2216
2217
2218

2219
2220
2221

004002
004004
004006

001421
000635
000623

11:56

710

PAGE 46

000404
END10O:

READ RECOVERY GALLOPING TEST/EVERY 64TH CELL

CMP
BEQ

R2,R5
END10

BIT
BNE

#17776,R2
RPT11

(MPS

411 ,a48TESTN

BEQ
BR
BR

RPT11
RPT10
END7

;IF PREVIOUS HIGH BOUNDRY WAS THE END OF THE
;TEST BOUNDRY THEN EXIT THE TEST
;WAS IT A 4K BOUNDRY ?
;IF NOT THEN WE WERE PERFORMING TEST 11 WITH LONG
;GALLOPING TEST DISABLED
;JIF IT IS TEST # 11 “HEN GO TO REPEAT TEST 11

;OTHERWISE REPEAT TEST 10

SEQ 0046

CZKMAE .MA(

18-SEP-78
18~SEP-78 11:54

11:5 6

PAGE 47

SEQ 0047

READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST

SX22224222323232322322223
2322323233222 2 22323232 200002
Rad Rl llt

2222
2223
2224

TRTEST 11

READ RLCOVERY LONG GALLOPING/FAST GALLOPING TEST

:x(1)

1x(2)
;t

;x(3)

{

2 (&)
;*{5)
;x(6)
1x(7)

Ao
d

—~

CZKMA

MACY11 30A(1052)

;*(9)
;*(10)
*

;x(11)

THIS TEST WRITES MEMORY WITH BAKPAT

THE TEST BEGINS AT THE LOWEST LOCATION BEING TESTED
(LETS NAME IT 'B")

‘A’ 'B' [MOVE THE ADDRESS OF 'B' TO THE POINTER FOR LOCATION 'A']
SWAPS BYTES FOR LOCATION ‘A’

READS

‘'A', READS

'B.=.B"2

IF GALLOPING OPTION BIT AT $SWREG IS HIGH THEN STEPS & AND 5

ARL REPEATED UNTIL °'B' REACHES THE HIGHEST MEMORY LOCATION
OF THE 4K BANK IN WHICH 'A' IS RESIDING, THEN ‘A’ IS

DECREMENTED BY 2 AND AFTER MAKING ‘B’ TO POINT TO THE LOWEST
LOCATION OF THE 4K MEMORY BANK CONTAINING 'A' STEPS 3,4,5 AND
6 ARE REPEATED UNTIL 'A' EQUALS THE END OF THE ENTIRE MEMORY
IF GALLOPING OPTION BIT IS NOT HIGH THEN STEPS 4 AND 5 ARE
REPEATED UNTIL

°'B' IS POINTING TO A CELL IN THE NEXT COLUMN
IF SEQUENTIAL CELLS LIE ALONG THE ROW, OR THE NEXT ROW
IF SEQUENTIAL CELLS LIE ALONG THE COLUMN, AT WHICH TIME
STEPS 2.3.4,5 AND 7 ARE REPEATED UNTIL THE END OF THE MEMORY
TEST IS REPEATED FOR THE OPPOSITE BACKGROUND DATA

IN THIS TEST RO POINTS TO LOCATION 'A', R1 TO LOCATION
'B', R2 TO THE HIGHEST LOCATION AND R3 TO THE LOWEST
LOCATION IN A 64/4K CELL BOUNDRY
MOST OF THE CODE USED BY TEST 10 IS ALSO USED BY THIS TEST

X2 TIT2TEISZRZ2SZ 2SS

004010

122737

004016
004020
004024

001403
004767
000040

004026

010402

004030

105777
100004
004767
046107
105777

004036
004042
004046
004052

100612

004054

052702

004060

000611

000011

000404

TST11:

002130

174414

002540
000120
174376
000176

RPT11:

‘B’

223 2222222222222

202000

02RdR

Rttt

CMPB

#11,a#8TESTN

BEQ
JSR
40

PC,SEQERR

:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

MOV

Ré4 R2

TSTB
8PL

L “WR
RPT11

:MAKE R2 TO POINT TO THE LOWEST LOCATION
JUNDER TEST

JSR
.ASCIZ
TST8B

B8MI

.+10

PC.PNTMES
/GLP/

aSWR

RPT10

BIS

#176.R2

GALLOP

;CHECK FOR PROPER TEST SEQUENCE

JenxxxxfERROR NUMBER LOxnnnnx

;LONG GALLOP ENABLED?
JBRANCH IF NO

;TYPE “'GLP"'

;LONG GALLOPING ENABLED?
;BRANCH [IF

:TO RPT10

YES

;OTHERWISE SET THE LOW ORDER BITS OF

;TO GET THE HIGH BOUNDRY
; PERFORM GALLOPING TEST

THE ADDRESS

18-SEP-78
18-SEP-78 11:54

CZKMAE .MAC

4
J
11:56_ PAGE 48
T12
WORST CASE TESTING FOR CORE MEMORY
B

2269
2270
2271
2272
2273
2276
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284

2222223322323 32233 232332223 2322328 3382322222232

(2)

*» %

TRTEST 12

MACY11 30A(1052)

CZKMA

;*(3)
LR

;2 (4)
*

;% (5)
*

;% (6)
%

*(7)
*

;*(8)
*

SSS%

004136
004140

000402
030301

004142
004144
004152

001774

FRERRY F3R 8

— b

ONVVORN

012702
012703
112737
010401

8883

122737
001403
004767
000041

RRRERR 2RE g3

000012

013700
030201
001004
030301
001404
005100

000316

1ST12:!

000306
4%:

8%:

000306

WORST CASE TESTING FOR CORE MEMORY

STARTING FROM THE LOWEST LOCATION UNDER TEST THE MEMORY

IS WRITTEN WITH A BACKGROUND OF BAKPAT, HOWEVER LOCATIONS
HAVING ADDRESS SUCH THAT EXCLUSIVE OR OF ADDRESS BITS 1 &
8 = 1 ARE WRITTEN TO A VALUE OF SWAPPED BAKPAT
STARTING FROM THE LOWEST LOCATION THE MEMORY IS CHECKED
TO CONTAIN THE CORRECT DATA AS EXPLAINED IN STEPS 3 § 4,
UNTILL THE HIGHEST LOCATION UNDER TEST IS REACHED
READ EACH LOCATION FOR THE CORRECT CONTENT

COMPLEMENT THE LOCATION AND READ IT; COMPLEMENT THE LOCATION
BACK TO ITS ORIGINAL VALUE AND READ IT AGAIN
STARTING FROM THE HIGHEST LOCATION UNDER TEST REPEAT STEPS
3 & 4 UNTIL THE LOWEST LOCATION UNDER TEST IS REACHED
REPEAT STEPS 1-5, HOWEVER THIS TIME LOCATIONS WITH XOR
OF ADDRESS BITS 8 £ 13 =1 ARE WRITTEN TO SWAPPED BAKPAT
REPEAT STEPS 1-5, HOWEVER THIS TIME LOCATIONS WITH XOR

OF ADDRESS BITS $ & 9 =1 ARE WRITTEN TO SWAPPED BAKPAT

REPEAT STEPS 1-7 WITH A BACKGROUND OF SWAPPED BAKPAT AND
THE LOCATIONS TO BE WRITTEN TO SWAPPED BAKPAT WRITTEN TO

BAKPAT.

CMPB
BEQ
JSR
41

#12,a48TESTN

;CHECK FOR PROPER TEST SEQUENCE

PC,SEQERR

:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
;axnaxxERROR NUMBER 41rwawwx

MOV
MOV

#2,R2

:PRngRE TO TAKE THE EXCLUSIVE OR OF ADDRESS BITS 1

MoV

#1 ,IHPASFLG
R4 ,R1

JINITIALIZE THE COUNTER FOR THE SUBTEST
:?%ggEITH£1STARTING ADDRESS OF MEMORY UNDER

MOV

AMBAKPAT
RO

MOvB

6%:

000002

82023ttt R

222822222223 2223232332223232 32333233228202222222223232322202
38080 % R8s

002056

000002
000400
000001

132737
001001

000404

SEQ 0048

12%:

BIT
BNE
BIT
BEQ

.+10

#400,R3

RZ.R1

8%
R3,R1
12%

‘oM

12%
R3.R1

BEQ
BITB
BNE

BIT

42 ,aMPASFLG
14%

;AN

;CHECK TO SEE IF ADDRESS BIT STORED IN RZ2 IS SET
;IF 1T IS SET THEN GO TO 8%

;CHECK TO SEE IF ADDRESS BIT POINTED BY R3 IS SET
;IF IT IS NOT SET THEN GO TO 12%

;COME HERE ONLY IF EXCLUSIVE OR OF ADDRESS BITS
;POINTED BY R2 & POINTED BY R3 = 1 IN WHICH
;CASE PREPARE TO WRITE THE LOCATION
JWITH A COMPLEMENT OF LOCATIONS NOT MEETING
;THIS CONDITION

;COME HERE [F ADDRESS BIT POINTED BY R2 IS 1 AND
;CHECK ADDRESS BIT POINTED BY R3
;IF ADDRESS BIT POINTED BY R3 IS O THEN GO TO 6%
;IS 1T 2ND OR 3RD PASS OF THE SUBTEST ?
;IF SO THEN READ THE MEMORY

(ZKMA

MACY11 30A(1052)

CZKMAE .MAC

004154
004156

004160
004162
004166

18-SEP-78
18-SEP-78 11:54

01001
020011
001403
004767
000042

004170
004174
004176
004200
004202
004204
004210

012746
005100

004212

010011
005316
001366
005726
122737
001412
062701

005111
020011
001404
004767

000043

020105
103727
105237
122737
001720
162701

11:56
T12
14%:

001430
16%:
18%:

000002

001406

000306

000002

000306
000002

000306
20%:

000002

020104

103315
012702

105237
123727
103701
101004
012702
006303
000674
005137
105737
001654
000625

000307
000307

CMP
BEQ
JSR
&2
MOV

coM
cOM
CMP
BEQ
JSR
MOV
DEC

BNE
TST
CMPS
BEQ
ADD
MP
8LO
INCB
CMPB
BEQ
suB

INCB

000002

(MP8
8LO
BHI
MoV

000010

000316
000316

MoV

[0 of
BHIS
MOV

020000

ASL

22%:

END12:

SEQ 0049

WORST CASE TESTING FOR (ORE MEMORY

19%:

000003

PAGE 49

BR
CoM

TSTB
BEQ
BR

RO, (R1)
RO, (R1.
163

PC.ERROR

#2,=-(SP)
RO
(R1)
RO, (R1)
19%

;OTHERWISE WRITE THE MEMORY BFORE READING IT
JREAD THE MEMORY FOR CORRECT CONTENTS

;*ERROR* REPORT ERROR MESSAGE

;xrxax2fERROR NUMBER Lonennnxn

JREAD THE MEMORY AGAIN

PC.,ERROR

;*ERROR* REPORT ERROR MESSAGE
JawaaaxERROR NUMBER 43vwxnwn

RO, (R1)
(SP)
18%
(SP)+
#3,a4PASFLG

JRESTORE THE LOCATION (R1)

208

#2,R1

R1.,R5

43
aNPASFLG

SJEXECUTE THE CODE FROM 18% TWICE
JRESTORE THE STACK POINTER
;1S 1T THE 3RD PASS OF THE SUBTEST ?
;1F SO THEN GO TO 20%
JIN FIRST 2 PASSES THE PROGRAM PROCEEDS IN
JMIN.

TO MAX.

DIRECTION

;HAVE WE REACHED THE MAX. ADDRESS UNDER TEST ?
;IF NOT THEN REPEAT FROM 4$

gi.afiPASFLG

JIF IT IS THE 2ND PASS OF THE SUBTEST

#2 .R1

;OTHERWISE EXECUTE THE TEST IN MAX. TO MIN.
;DIRECTION
JHAVE WE REACHED THE MIN. ADDRESS UNDER TEST ?
;1F NOT THEN REPEAT FROM 4$

#20000,R2
SHPASFLG*+1
SNPASFLGH+1
,#2
1%
22%
#10,R2

R3
1%
aNBAKPAT
a#BAKPAT
TST12

END10

;THEN REPEAT FROM 2%

JPREPARE TO CHECK THE MEMORY WITH THE XOR OF

JADDRESS BITS 8 AND 13
;THE SUB TEST HAS CHECKED THE XOR ONE KIND
JHAS TWO XOR COMBINATIONS BEEN CHECKED ?
;1F NOT THEN GO TO 1%

;IF ALL THREE HAVE BEEN CHECKED THEN GO TO 22%
;1F 1T IS THE 2ND XOR COMBINATION THEN CHECK
;FOR ADDRESS BITS 3 ¢ 8

;1F THE TEST WAS NOT PERFORMED WITH THE SWAPPED

;BAKPAT THEN RE-EXECUTE THE TEST

MACY11 30A(1052)

18-SEP-78
18-SEP-78 11:54

11: 56 PAGE 50
WRITE RECOVERY TEST
713

SEQ 0050

2222288323222 222 2233322333223 232223322232 8282R 222

2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380

)
T

A
IR
I

IR I
I
YE P
T
T
E

2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
004334
004342
004344
004350

122737
001403
004767
000044

000013

004352

012702

010247

004356

012700

177667

000404

WRITE RECOVERY TEST

ACTUALLY RUNNING IN THE 4K BANK UNDER TEST.

THE PROGRAM IS SELF MODIFYING AND MAY BE DIFFICULT TO DEBUG.

TO AID IN THE DEBUG, BEFORE A A BANK IS ENTERED ''TST13 BANK XX''
IS TYPED. THIS WILL ALLOW THE USER TO AT LEAST SEE WHICH MEMORY

BANK FAILED.

THE TEST CONSISTS OF 1/2 OF THE BANK STORED WITH "MOV R2,-(PC)"’
AND THE OTHER 1/2 CONTAINING '177667"'. TMM77667"' 1S THE COMPLEMENT
OF "'UMP (RO)'' INSTRUCTION.
R2 CONTAINS ‘'COM =(R1)°' INSTRUCTION ON ENTRY TO THE BANK AND R1 CONTAINS
THE HIGHEST TEST ADDRESS IN THAT BANK. THE HIGHEST TEST ADDRESS IS
USUALLY ON 4K BOUNDARIES. WHEN TESTING BANK O RELOCATED,HOWEVER

R1 CONTAINS THE FIRST FREE TEST ADDRESS BELOW THE DIAGNOSTIC.
IF YOU UNDERSTAND THIS SO FAR THE REST IS EASY.
THE TEST EXECUTION IS AS FOLLOWS:

1. THE ‘'MOV R2.=(PC)’'* INSTRUCTION EXECUTES STORING
THE CONTENTS OF R2 IN THE ADDRESS IT VACATED (DUE TO -(P(C).

2. SINCE R2 CONTAINS A ''COM -(R1)'" INSTRUCTION IT COMPLEMENTS
THE HIGHEST ADDRESS UNDER TEST. THIS ADDRESS CONTAINED
'77667'° SO AFTER THE COM -(R1) IT EQUALS 110
CLEVERLY THIS IS THE "JMP (R0O)'' INSTRUCTION.

3. THIS SEQUENCE CONTINUES UNTIL THE MOV R2,-(PC) INSTRUCTIONS
REACH THE MIDDLE OF THE TEST BANK. THEN THE ''JMP (R0)‘'' INSTRUCTION IS
AND EXECUTED. RO CONTAINED THE RETURN ADDRESS BACK
TO TEST 13,

4. THESE STEPS ARE REPEATED FOR EACH BANK UNDER TEST.

CARAN RN AN RN ARRANRRNAAA

15713:

001604

A AR A AN ANARNRAANRRANRNRNARARA
AR AR AR AN AAAS

#13, aNSTESTN
.*10

;CHECK FOR PROPER TEST SEQUENCE

BEQ
JSR

PC,SEQERR

MOV

#10247 ,R2

;TkAgs THE OP CODE OF INSTRUCTION MOV RZ2,-(PC)

MOV

#177667 RO

;PLACE THE COMPLEMENT OF THE INSTRUCTION
;JMP (RO) IN RO

1%:

2Rttt idRlddld)

THIS TEST DIFFERS FROM 0-12 IN THAT IT CONSISTS OF A SMALL TEST PROGRAM

PNS NS NNN NNNSNNNAN A

TE TR

NI NB APB

*TEST 13

q.uu.n~”.ns”.n TR YRR

CZKMA

CZKMAE .MA(

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

JxxexaxERROR NUMBER 44rnxnnn

;INSURE LOWEST TEST ADDRESS TO END OF 4K SEGMENT IS MULTIPLE OF 2
:SINCE THE TEST STORES ‘MOV R2,=(PC) IN 1/2 AND 177667 IN THE OTHER 1/2
010546
010446
000241
006005
006004
160405
006005
103002

062716

004412

012604
012605
010403

004414

000406

2%:
29%:

MOV

cLC

ROR
ROR

sSuB

ROR

000002

30%:

8CC
ADD
MOV

MOV
MOV

R5,-(SP)
R4 ,-(SP)

:SAVE RS
;STORE LOWEST ADDRESS ON STACK

N2, (SP)
(SP)+ R4

;JMAKE POSITIVE BYTE COUNT OF HIGH ADDRESS
;DO SAME FOR LOWEST ADDRESS
;JGET DIFFERENCE OF LOWEST ADDRESS AND HIGHEST
;1F DIFFERENCE 1S ODD THEN R& IS AT LOWEST ADDRESS
:BRANCH IF R4 IS AT LOWEST TEST ADDRESS.
: INCREASE LOWEST TEST ADDRESS BY 2
*RESTORE R4 (POSSIBLY INCREASED BY 2 FROM ENTRY)

28%

;LEAVE LOW BITS OF R3 ALONE FIRST TIME IN CASE BANK O

Ré

R4 ,R5
RS

308

(SP)+,R5
R‘JB

*RESTORE HIGHEST TEST ADDRESS
?hAgg THE LOWEST LOCATION UNDER TEST

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
2418

004416

042703

2420

004422

001507

2422
2623

004430
004432

100504
020305

2419

2421

26264

2425
2626
26427
26428

gz%g

18-SEP-78

18-SEP-78 11:54

004424
004434

004436
004442
004444
004446

105737

103002
010501
000407

PAGE 51

3s:

BIC

#17776,R3

;CAUSE R3 TO POINT TO THE LOWEST LOCATION

BEQ

143

;IF ADDRESS WENT TO O, IT MUST BE A 30K SYSTEM

148
R3,R5

JBRANCH IF YES-TEST BANKO ONLY;IF R3 IS HIGHER THAN THE HIGHEST LOCATION

017776

T13

000405

28%:

103102

020527

11: 56

WRITE RECOVERY TEST

TST8

SMREL

BHIS

148

B8MI
cMP

SEQ 0051
;IN THE 4K BANK UNDER TEST

JARE WE RELOCATED?

JUNDER TEST THEN EXIT

;1F RS LESS THAN 20000 THEN WE ARE TESTING BANKO RELOCATED IN BANKO
cMP
RS5,#20000
;1S HIGHEST TEST ADDRESS BELOW 4K?
BHIS
318
JBRANCH IF NO
MOV
R5,R1
;SET R1 TO HIGHEST TEST ADDRESS IN BANKO

020000

32%

MOV
BIS
INC

R3,R1
#17777 ,R1
R1

2631
2432
2433
2434
2435
2436
2437
2438
gzzg

004450
004452
004456

010301
052701
005201

004460

001402

BEQ

32%

004462
004464
004466

020105
101401
010501

cMP
BLOS
MoV

R1,R5
33%
R5.R1

2441
2442
2443

004470
004476

132737
001101

BITB
BNE

#1 ,a#PASFLG
16%

;1S THE LOWEST BIT OF LOCATION PASFLG
JSET? IN WHICH CASE BACK GROUND HAS
JALREADY BEEN WRITTEN AND WRITE RECOVERY

2646

004500

020304

R3.R4

;OTHERWISE WRITE THE BACKGROUND

2448
2649
2450

004504
004510

105737
001002

000307

TSTB
BNE

AHPASFLG+1
6%

2651
26452

004512
004516

012713
020213

010247

MOV
cMP

#10247, (R3)
R2, (R3)

;1S THE TEST JUST DOING READ, I.E.
:IS THE PASFLG+1 LOCATION NON 2ERO? IF SO
;THEN GO TO 6%

2454
2455
2456
2457
2458
5223

004522
004524
004526
004530
004532
004536

010046
010146
010301
010200
004767
000045

MGV
MOV
MOV
MoV
JSR
45

RO,=(SP)
R1,-(SP)
R3.R1
R2.RO
PC.,ERROR

;SAVE RO
JAND R1 ON THE STACK

2461
2462

004540
004542

012601
012600

(SP) + ,R1
(SP)+,RO

;RESTORE R1
;AND RO

gzzg
2647

<453

2463

2464
5222

004502

004520

004544

103430

017777

32%:

000001

gzgg

004550

001005

2469
2470
52;;

004552
004554
004560

010200
004767
000046

2473

004562

000663

000306

33%:

4%:

001421

105737

31%:

001060

000306

001036

6$%:

8LO

BEQ

MOV
MOV

;SET R1 TO LOWEST CURRENT TEST ADDRESS
;SET LOW ORDER ADDRESS BITS
;CAUSE R1 TO POINT TO THE HIGHEST LOCATION+Z
;OF THE 4K BANK BEING POINTED BY R3
JBRANCH IF R1 WENT TO O (WHICH MIGHT
JHAVE HAPPENED IF TESTING A 30K LSI SYSTEM)
;COMPARE R1 TO HIGHEST ADDRESS UNDER TEST
;BRANCH ]F WITHIN RANGE
;SET R1 TO THE MAXIMUM AVAILABLE MEMORY

;TEST IS BEING PERFORMED

;DEFINED AT STEP 3.

SWRITE THE LOCATION WITH THE OP CODE FOR MOV R2,-(PC)
JREAD (R3) TO CONTAIN CORRECT DATA

;SET RO= GOOD DATA FOR ERROR PRINTOUT
;*ERROR* REPORT ERROR MESSAGE
;aenax*ERROR NUMBER 45%xwwnn

TST8

S#PASFLG

;1F PASFLG IS O AND THE MEMORY DOES NOT HAVE

BNE

MOV
JSR
46

R2,RO
;SAVE FOR ERROR REPORT
PC.ERROR
;*ERROR* REPORT ERROR MESSAGE
saxxaa*ERROR NUMBER 46nnxans

END12

;THE PROPER DATA THEN WE DON'T WANT TO GO AND
EéggUTE THE INSTRUCTIONS STORED IN MEMORY UNDER
:BRANCH IF PASFLG NOT =0

JABORT TST 13,

CZKMA
MACY11 30A(1052)
18-SEP-78
CZKMAE .MAC
18-SEP-78 11:54

2474
2475
2476
2477
2478
2479
2680
2481
2482
2483
2484
2485
2486

004564
004570
004574
004576
004600
004602
004604
004610
004612

062703
162701
020105
103014
020103
103405
105737
001002
012711

004616
004620

020011
001403

2487

004622

004767

2490
gzgg

004630
004632

020301
103722

gzgg

004626

000047

N &
11:56_ PAGE 52
T13
WRITE RECOVERY TEST

000002
000002

8% :

000307
177667
10%:

000770

ADD
SUB
CMP
BHIS
CMP
BLO
TSTB
BNE
MOV

#2,R3
#2,R1
R1,RS
128
R1,R3
10%
SNPASFLG+1
108
#177667,(R1)

cTMP
BEQ

RO, (R1)
128

5232

: INCREMENT R3 BY 2
:DECREMENT R1 BY 2
JWRITE THE BACKGROUND DEF INED AT STEP 4.
;HAS STORING THE 177667 REACHED WHERE MOV R2,-(PC)
:BRANCH IF YES DON'T DESTROY THE MOV R2.-(PC) IS.
;IS THE THE READ ONLY CHECK PASS?
;BRANCH IF YES
WRITE THE LOCATION WITH THE COMPLEMENT OF THE
;0P CODE JMP (RO)
JREAD R1 TO CONTAIN CORRECT DATA

JSR

PC.,ERROR

:*ERROR* REPORT ERROR MESSAGE

CMP
BLO

R3.R1
43

:IF WE HAVE NOT REACHED THE MIDDLE OF 4K BANK
;THEN REPEAT FROM 4$

47
12%:

SEQ 0052

;aeaas*ERROR NUMBER 47%sxxns

;RETURN HERE AFTER PROGRAM RUN IN BANK UNDER TEST

2495
gzgg

004634
004640

062703
000666

020000

13%:

ADD
BR

#20000,R3
3s

;OTHERWISE GO TO THE NEXT 4K BANK

2498
2499
2500
2501
2502
2503
2504
2505

004642

122737

000001

14%:

CMPB

#1,34PASFLG

001440

BEQ

243

004652

103627

BLO

END12

;THE PROGRAM CONTROL COMES HERE AS FOLLOWS
;1-PASFLG=0, PROGRAM HAS JUST COMPLETED A
;
WRITE/READ CYCLE FOR THE BACK GROUND
.
AND WANTS TO BEGIN THE WRITE RECOVERY TEST
:2-PASFLG=1, PROGRAM HAS JUST COMPLETED
:
THE WRITE RECOVERY TEST AND WANTS TO
:
READ MEMORY FOR CORRECT DATA
:3-PASFLG=2, PROGRAM HAS CORRECTLY READ THE

004650

004654

105137

000307

coms

SNPASFLG+1

JENTER HERE WITH PASFLG=0, ON THE FIRST ENTRY

004660
004662

001240
012702

005141

BNE
MOV

23
#5141 ,R2

2514
2515
2516
2517
2518

004666
004672

012700
060700

177740

MOV
ADD

#13%-.-6,R0
PC,RO

ggg?

004700

000630

105237

000306

INCB

SMHPASFLG

2522
2523
2524
2525
2526
2527
2528
2529

004702
004710
004712
004716
004720
004724
004732

032777
001017
105737
001014
004767
051526
040502
004740

000020

BIT
BNE
TSTR
BNE
JSR
LASCIZ

#20,3SWR
18%
w62
18%
PC,PNTMES
/TST13 BANK/

5289
P

2508

2509

2510
2511

%§1§

2519

004674

000306

15%:
173540

000042
001656
030524
045516

020063
000

16$%:

.EVEN

;

MEMORY AND WANTS TO GO THE NEXT TEST.

JENABLE READ ONLY FOR THE MEMORY AND ON THE SECOND

;ENTRY DISABLE READ ONLY

;?LASS THE OP CODE FOR INSTRUCTION COM =-(R1)
JIN

;PLACE THE RETURN ADDRESS IN RO AS 13$
;THUS WHEN THE READ RECOVERY TEST REACHES
;THE MIDDLE OF THE 4K MEMORY THEN THE
;INSTRUCTION EXECUTED WILL BE JMP (RO)
:BRANCHINGING THE PROGRAM TO 13%

: INCREMENT PASFLG BY 1.

;HAS THE PRINTOUTS BEEN SUPRESSED ?
:IF SO THEN GO TO 18$%
;1S THE PROGRAM RUNNING UNDER ACT?
:BRANCH IF YES
: TYPE THE BANK UNDER TEST

IS?

(ZKMA

18-SEP-78
MACY1T 30A(1052)
18-SEP-78 11:54

CZKMAE .MAC

2530

2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2561
2542

004740
004744

004767
004767

004750

000113

004752

004756
004762

105137

012700
000744

B S
11:56 FAGE 53
T13
WRITE RECOVERY TEST
JSR
JSR

PC,GE TBNK
PC,$TPLEC

;GET BANK NO. UNDER TEST INTO DECWRD FOR PRINT.
s TYPE BANK NO. UNDER TEST

18%:

JMP

(R3)

JBEGIN EXECUTING MOV R2,-(PC) ,COM -(R1) SEQUENCE IN TES

248:

coms
MOV
BR

AAPASFLG+1
#110,R0
15%

;PLACE THE OP CODE FOR JMP (RO) IN RO

002466
001660

000307
000110

SEQ 0053

;TST13 EXITS VIA END12.

;

READ THE MEMORY FOR CORRECT DATA AFTER

ING PASFLG TO 2
; INCREMEMT

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
2543

004764

012737

2544

004772

2546
2547
2548

2545

2549
2550
Sgg;

18-SEP-78

18-SEP-78 11:54

000377

004776

105737

001065

000276

005000
005006

032777
001046

001000

005010
005014
005016

105737
100420
112737

—

11:56

000316

000200

004767
042522

047514

2559

005036

013705

000340

005042

014445

005050

101374

2562

2563

Sggg

005030

005044

005052

001552

020427

000430

000165

000050

2569
2570

005056
005062

013705
105737

000346
000405

2573

005070

012704

000430

gg;}

2574
2575
2576
2577
2578
2579
2580

ggg}

2583
2584

2585
2586

#377 ,a#BAKPAT

BNE

CONTMM

TSTB

TSTB
BM]
MOVB

000405

INMMAY,,

:1S THE MEMORY MANAGEMENT BEING TESTED ?

#1000,aSWR
CKDONE

:MEMORY MANAGEMENT
RELOCATION WANTED?
:BRANCH IF NO

SHREL
RELOER
#200, I#REL

JSR

:TYPE 'RELOC"

MOV

SHMAXMEM, RS

:PREPARE TO LOAD THE PROGRAM IN THE HIGHEST

MOV

-(R4) ,=(RS)

BHI

.EVEN

2%:

CMP

JMP

R4 ,ABEGIN-50

005066

005074
005076
005102
005104
005110
005114
005120

005124

100016

012524
020537
103774
105037
010537
012706
010637

000137

000340

RELOER: MOV
TSTR
BPL

2$:

000405

MOV

MOV
CMP
BLO
CLRB
MOV
MOV
MOV

000346
000500
000350
005130

CKDONE: JMP

#BEGIN-50,R4

:PREPARE TO RELOCATE THE PROGRAM TO LOWER CORE

INLOWER

:SAVE RS
SRESET STACK TO LOWER MEMORY
S"BEGIN'* USES THIS TO RESET THE STACK.
TRANSFER THE PROGRAM CONTROL TO THE LOWER CORE

a¥SAVKRB
$TPSTK

:HERE DUE TO “C TYPED?
;BRANCH IF YES (TYPE ERROR STA(CK)

CKDONE

(R5)+,(R4)+
RS , a#MAXMEM
2s
ANREL
RS, @#SAVRS
#BEGIN,SP
SP,a#SAVR6

005136

001712

TSTMM:

105737
001462
000402
004767
012703

000276

2592
2593

005142
005146
005150
005152
005156

002050
000324

TSTR
BEQ
BR
CONTMM: JSR
SCNTMM: MOV

AMMMAVA
ENDPAS
SCNTMM
PC,UPMM
#LOWTWO,R3

2595
2596

005166

012704

020000

MOV

#20000,R4

005172

020237

172342

CMP

R2.,a#172342

005162

004767

002154

TSTR
BNE
JSR

:RESTORE RS
;1S DIAGNOSTIC IN RELOCATED STATE?

LOWER:

2597
2598

NEITHER RELOCATE NOR TEST LOCATIONS LOWER THAN BEGIN-50

S#SAVRS RS
a#REL

000315

2594

:AVAILABLE MEMORY
:RELOCATE THE PROGRAM

50(RS)

105737
001073
004767

2588
2589
2590
2591

:1F THE PROGRAM HAS ALREADY BEEN RELOCATED THEN ALSO
: PLACE THE PROGRAM BACK IN LOWER CORE
sOTHERWISE PREPARE TO RELOCATE

PC,PNTMES

.2sgxz /RELOC/

000103

005130
005134

2587

;IF SO THEN GO TO CONTMM AND CONTINUE TESTING

:*RELOCATE THE DIAGNOSTIC BACK TO LOWER MEMORY

%ggg
2568

SEQ 0054

;RELOCATE THE DIAGNOSTIC TO HIGHEST AVAILABLE MEMORY
005024

2560
2561

MOV

BIT
BNE

000405

2556

gggg

RELOC:

173442

sggz
2555

PAGE 56

PARIIY OR RELOCAIE?

JSR

PC .MEMMNG

PC,GETSIZ

:BRANCH IF NO

: SET THE REGISTERS IF THE MEMORY MANAGEMENT
;1S AVAILABLE
;IS MEM. MANAG. AVAILABLE ?
:BRANCH IF NO
;BEGIN TESTING ABOVE 28K

;GO TO UPDATE MEM. MANAG. REGISTERS
;MAKE R3 POINT TO THE LOCATION LOWTWO

: LOAD BITS 6-10 OF R2 WITH THE BITS 13-17

:OF THE LOWEST ADDRESS UNDER TEST
:MAKE R4 POINT TO THE LOWEST LOCATION IN THE BANK

:POINTED BY PAGE ADDRESS REGISTER 1 (PAR1)
;1S THE CONTENT OF R2 LOWER THAN THE CONTENT OF

CZKMA

MACY11

CZKMAE .MAC

2599
2600
2601
2602
2603

2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615

18-SEP-78
30A(1052)
18-SEP-78 11:54

11:56

050104

005202
005206
005212

004767
004767

005216
005222
005224
005230
005234
005236

004767
010005
004767
004767
010013
000167

162702

SEQ 0055
;PAR1

8LO

3 3

;1F SO THEN GO 2%

SuB
JSR

#200,R2
PC,MMREG

;

000020

;SR

zg.ggXADR

002112
000006

JSR
JSR

PC,GETSIZ
PC _,MAXADR

103405

005176
005200

PAGE 55

PARITY OR RELOCATE?

BIS
000200
001646
002124

2%:

JSR

MOV
JMP

174254

R1,R4

PC,GETSIZ

RO, (R3)
CLRMEM

:;SUBROUTINE GETSIZ LOADED R1 WITH BITS 0-12
:OF LOWADD WHICH HAVE NOW BEEN LOADED IN R&
SET MEM. MANAG. REGISTERS

;JPLACE BITS 13-17 OF HIGHEST LOCATION TO BE TESTED
JIN BITS 6-10 OF R2, #160000 IN RO AND BITS 0-12
;OF LOCATION HIGHADD IN R
: GET THE ADDRESS OF MAX. MEM. UNDER TEST

; PREPARE TO SET UP LOCATION MAXMEM
: GET THE MAXIMUM ADDRESS OF AVAILABLE MEMORY

JAND STORE INTO ‘MAXMEM''
;GO TEST A 24K SLICE ABOVE 28k.

;MAXADR ~ SUBROUTINE TO GET CURRENT 24K SLICE OF MEMORY ADDRESSES ABOVE 28K.
JREGISTERS.
;JRO= ON ENTRY= #160000 AND ON EXIT=HIGHEST VIRTUAL ADDR.

JR1- LOW ORDER 12 BITS OF VIRTUAL TEST ADDRESS
JR2= PAR BLOCK NO.

005242
005244
005250
005254
005256

005260
005262
005266

010046
012700

172356

162716

020000

050116
020240
001410
020027
101370

005270
005272
005274
005276
005302
005304
005310

005720
021002
003006
012716
012600

005312

022626

062700
000207

MAXADR: MOV
MOV

UNDER TEST

CURRENTLY UNDER TEST.

RO, =(SP)
#172356,R0

;PUT MAXIMUM AVAILABLE ADDRESS ON STA(CK
;RO=PAR7 UNIBUS ADDRESS

CMP

R2,-(RO)

;DOES CURRENT PAR= TEST BLOCK NO.?

BHI

;NO KEEP TRYING

;**BEGIN LOOP TO FIND PAR ADDRESS UNDER TEST
2%:
SuB
#20000, (SP)
;DECREMENT VIRTUAL ADDRESS BY 4K
BIS
R1,(SP)
JSET BITS 11:0 TO MAXIMUM VIRTUAL TEST ADDRESS
BEQ
cMP

172340

3$
RO, 4172340

JBRANCH [F YES
JARE WE AT PARQ?

;**END LOOP TO FIND PAR ADDRESS UNDER TEST
TST

157776

000002

3s:

;SET TO PAR CURRENT

CMP
BGT
MOV
MOV
ADD

(RO) ,R2 ;1S THE
43
#157776, (SP)
(SP)+,R0
#2 RO

PAR BLOCK UNDER TEST GTR THAN ALLOWED?
;JBRANCH [F YES (FALL INTO ENDPAS)

CMP

(SP)+,(SP)+

JFIXUP STACK

RTS

4%:

(RQ) +

JEXIT WITH MAXADR= 28K SEGMENT TEST SIZE
;JSET RO TO MAXIMUM VIRTUAL TEST ADDRESS
;MAKE MAXIMUM MEMORY
+?
JAND EXIT MAXADR ROUTINE

JAND FALL THRU TO ENDPAS

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78

18-SEP-78 11:54

11:56

PAGE 56

TYPE ROUTINE FOR ERROR STA(K

2642

SEQ 0056

;* TYPE ROUTINE FOR ERROR STA(K

2643

;¥ Seemsssesss seo—se—cccooooe-

2645

5229

5640

2650
2651
2652

005314
005322
005324

032777
001055
012746

000020

2654
2655
2656
2657
2658
2659
2660

005330

2653

2661
2662
2663

2664
2665
2666

2667
2668
2669
2670
2671

177777

ENDPAS: BIT
BNE
$TPSTK: MOV

#20,3SWR
$EOP
#-1,-(SP)

JARE WE GOING TO TYPE THE ERROR STACK AND END OF PASS?
;IF NOT THEN GO TO SEOP
;THE PROGRAM HAS REACHED THE END AND ERROR

012701

007744

MOV

#ENDPRG,R1

005334
005340
005342
005346
005350
005354
005356

012703
005216
020137
103043
112702
105302
002766

000376

TYPSTK: MOV
INC
CMP
BHIS
MOVB
RETSTK: DE(CB
BLT

JPLACE THE STARTING ADDRESS OF THE ERROR STACK
JFOR 0 TO 4K MEMORY IN R1

005360
005362
005364

001774
020227

005370
005372

103404
101026

2672

005374

52;?

005402

2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2690

005454

2673

2689

000310
000022

173126

THIS ROUTINE IS USED TO DETERMINE [F TYPE OUT OF THE ERROR STA(K

FOR ONLY THE FAILING BITS IS REQUIRED OR NOT

105721

TSTB

000020

BLO
BHI

2%
PARF L

JSR

PC,TPADER

MOV

R2.,a4DECWRD

010237

000312

2%:

005406
005412
005416
005422
005424

004767
011637
004767
005043
114113

001212
000312
001206

JSR
FAILNM: MOV
JSR
CLR
MOVR

005426
005430
005432
005436

105021
005043
105237
004767

005442

005450

005446

(R1)+

RETSTK
R2.416.

001010

000404

#376 ,R3
(SP)
;1F WE HAVE GONE THRU THE ENTIRE
R1,a#ENDSTK
;JHAS THE END OF THE ERROR STACK BEEN REACHED ?
$EOP
;THEN GO TO TYPE END OF PASS
#18..R2
R2
;IF ALL 16 BITS OF THIS BANK HAVE BEEN CHECKED.
TYPSTK
;BEEN CHECKED FOR ERROR THEN SEE IF THERE
;1S ANY MORE 4K MEMORY BANK

BEQ
CMP

004767

005400

;STACK AND END OF PASS WILL BE TYPED OUT

FAILNM

PC,TYPDEC
(SP) ,a#DECWRD
PC,$TPDEC
-(R3)
-(R1),(R3)

;OTHERWISE CHECK THE BYTE STORED AT (R1)
JIF IT IS O WE WILL NOT TYPE IT
;1S THE POINTER POINTING TO ERROR STACK BYTE

JMEANT FOR COLLECTING ADDRESS FAILURES FOR
;THE SPECIFIC MEMORY BANK
;IF NOT THEN GO TO TYPE BIT NUMBER
;IF IT 1S POINTING TO THE STACK LOCATION INTENDED
sTO COLLECT PARITY FAILURES THEN GO TO PARFL

;OTHERWISE TYPE ''ADDRESS ERROR''

:TREE@?EMXO TYPE THE NUMBER OF THE FAILING BIT

;IN

;GO TO TYPE THE BIT NUMBER IN DECIMAL
;PREPARE TO TYPE THE PAGE NUMBER
;IN DECIMAL
;JPREPARE TO PRINTOUT THE NUMBER OF TIMES THIS
;JFAILURE OCCURED
;CLEAR THE ERROR STACK

000314
001326

CLRB
C!R
INCB
JSR

(R1)+
-(R3)
¥ TYPCNT
PC,RPTOCT

012703

000376

MOV

#376 ,R3

;ENABLE THE TYPE OUT OF 1 WORDS
; TYPE THE 4K BANK AND THE NUMBER OF TIMES
;THIS FAILURE WAS SEEN
JRESET SCRAT(CH STACK FOR EACH BIT PRINTED.

004767

000760

JSR

PC,TPPRER

;

000742
000756

PARFL:

RETSTK

FAILNM

TYPE 'PAR ERR"’

MACY11 30A(1052)

18~SEP-78
18-SEP-78 11:54

11:56 PAGE 57
END OF PASS

2691
2692
2693
2694
2695
2696
2697
2698

* END OF

PASS

wommee

IR
DRI

TYPE "END PASS'' AND DISABLE PARITY.
ALSO SERVICE ACT11.

AND EVERY CONSECUTIVE PASSES UNLESS BIT &4 OF $SWREG IS HIGH

2699
2700

2701

SEQ 0057

(ZKMA

CZKMAE .MAC

005456
005460
005464
005470
005472
005476
005504
005506
005512
005520

005002
004767
105737
001046

005237
032777
001015
004767

$EOP:

002026
000315
000406
000040
001062
020104
021440

005526
005534
005540
005544
005546
005552

047105
051523
005526
013737
004767
013700
001405
004767
000005

005554

000137

000156

0055€0

000137

000250

005564
005570
005574
005576
005602
005604

004767
013704
014445
020437
101374
000207

001622
000344

000406
001070
000042

172744

040520
000

TYPEOP:

R2
PC,PARITY

;SET R2= PARITY MODULE DISABLE CODE
;GO DISABLE PARITY MODULES IF SELECTED.

CTLC
I SPASS
#40,aSWR

;JBRANCH IF YES-RESTORE LOADERS AND HALTs INCREMENT PASS COUNT
;"END PASS #XX'' PRINTOUT WANTED?

LASCIZ

PC,TPCRLF

/END PASS #/

; TYPE CR, LF, AND 'END PASS #'

JSR

.EVEN

000312
ACT11:

000012

000310

CLR
JSR
TSTB
BNE
INC
BIT
BNE

Mov
JSR

MOV
BEQ

JSR
RESET

a#SAVKBB

ACTI

@¥SPASS ,a#DE CWRD
PC,STPDEC

a#4l RO
$DOAGN
PC,RLODER

2 CONTROL=-C TYPED?

;BRANCH IF NO

;GET PASS COUNT

STYPE

;GET THE MONITOR ADDRESS
. 1F NONE
JRESTORE XXDP MONITOR

;RETURN TO ACT11 MONITOR.

;* SERVICE XXDP/ ACT11
JMP

S#SENDAD

;JUMP TO ACT SERVICE

$DOAGN:

JMP

S¥RESTRT

;REPEAT TEST IF NOT UNDER ACT11/XXDP

RLODER:

JSR
MOV

PC,CLRMM
a4 SAVRS RS
-(R4) ,~(RS5)
zg.a#ENDSTK

;STOP MEMORY MANAGEMENT SO CAN RESTORE LOADERS
JRESTORE R4 WITH SAVR4
JRESTORE LOADERS

RTS

JRETURN FROM RLODER CALL

A ¥

MCV
(MP
BHI

;CONTROL € HANDL ER
005606
005612

004767
000167

177752

000402

CTLC:

JSR

JMP

PC,RLODER

APTHLT

JRESTORE ABS LOADER

;IF NOT APT HALT AT FATHLT

CZKMA

MACY11 30A(1052)

CZKMAE .MA(

2739
2740
2761
2742
2743
2744
2745
27466
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764

2765

2766

2767

2768

2769
2770

277
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783

18-SEP-78
18-SEP-78 11:54

11:56 PAGE 58
ERROR HANDL ING ROUTINE

SEQ 0058

PROGRAM (OMES HERE EACH TIME AN ERROR IS ENCOUNTERED THIS
ROUTINE TYPES OUT THE ERROR MESSAGE IN THE FORMAT GIVEN EARLIER
005616
005624
005626

017637
010346
010046

000000

000402

ERROR:
1%:

MOV
MOV

MOV

;SETUP BANK NO.
005630
005632
005636

010103
004767
013703

005646
005650
005654
005660
005662

010346
012703
013743
005043
113713
016643
011143
010043
005043
016313

005642

005672
005674
005676
005700
005704
005706
005712
005714
005720
005722
005726
005730
005732

005734
005740
005744
005746
005750
005754
005756
005760
005762
005764
005770
005772
005774
006000
006002
006010

110337

040013

3(SP) ,a#SFATAL
R3,-(SP)
RO,-(SP)

:LOAD THE LOCATION $FATAL WITH THE ERROR NUMBER
;SAVE R3
;JAND RO ON THE STACK

IN FATAL FOR APT

001574
000312
000403

MOV

R1.R3

;GET VIRTUAL ADDRESS UNDER TEST FOR GETBNK

MOV
MOVB

HPBNK ,R3
R3.aNSFATAL +1

;GET BANK UNDER TEST
;STORE FAILING BANK NO. FOR APT

000376
000306

MOV
MOV
MOV

R3,-(SP)

; TEMPORARILY STORE R3

MovB
MOV
MOV
MOV
CLR
MOV

AHSFATAL , (R3)
6(SP) ,-(R3)

;PUT ERROR NO. ON ERROR STA(CK
;PLACE THE RETURN PC AT (R3)

JSR

2%:

000402
000006

000004

046300
050013
012700
060700
062700
005316
002374
005726

000004

105037

000277
000300

BIC
8IC
BIS

002000
6%:

000022

ERRTYP:
1%:

MOV
ADD
ADD

DEC
BGE
TST

CLRB

TSTB

TSTB
T1STB

000301
2%:

000377

3%:

000001

000400

CLR

172440

1ST8B
TST

8PL

BEQ
INCB
CMPB
BEQ

BIT

BNE

PC.,GE TBNK

#376 ,R3
a?géiFLG'-(R3)

(R1),-(R3)
R?,§§R3)
=(R

4(R3),(R3)

RO, (R3)

JGET BANK NO.

UNDER TEST

INTO PBNK

sJMAKE R3 AS THE STACK POINTER
;OUTPUT THE WORD STORED AT

JPLACE BAD DATA,
;AND GOOD CATA ON THE STACK
s TAKE THE

JEXCLUSIVE OR OF GOOD AND BAD DATA

4(R3) ,RO
;TO FIND THE BITS THAT FAILED
RO, (R3)
;JAND PLACE IT ON THE STACK
H#ENDPRG-.~-24.
,R0; THIS CODE BRINGS THE RELATIVE ADDRESS
PC,RO
;OF THE STARTING OF THE ERROR STA(K
#18..R0
JFOR THE SPECIFIC 4K BANK
(SP)

(SP) +

;RESTORE THE STACK POINTER

a#TYPENB
a#SPRERR

;DISABLE ANY TYPE OUT
;IF THIS IS PARITY PROBLEM

;IF NOT THEN GO TO 4%

3s
(RO) +
¥ SADERR
3%
(RQ) +
(R3)

#377,(R0O)
5%
(RO)
#1,(RO)
7%

#400.aSWR
4%

;THEN GO TO 3%
;OTHERWISE INCREMENT THE ERROR STACK POINTER BY 1
;IF THIS IS ADDRESSING PROBLEM
;THEN GO TO 3%
; INCREMENT THE POINTER RO BY 1
;1S BIT 15 OF (R3) SET?

;OTHERWISE SEE IF THIS ERROR HAS OCCURED 377 TIMES
;IF SO DON'T BUMP ERROR COUNT
o INCREMENT THE ERROR COUNTER BY 1
:MORE THAN 1

JBRANCH IF NO

ERROR OCCURRED ON THIS BIT?

;STOP ERROR PRINTOUT AFTER 1 WANTED?
JBRANCH IF YES (DON'T TYPE ERROR)

18-SEP-78
30A(1052)
18~SEP-78 11:54

11:56 PAGE S9
ERROR HANDL ING ROUTINE

(ZKMA

MACY11

2795

006012
006016
006022
006024
006030
006032
006036
006040
006044
006046
006050
006052
006054

105237
105737
001403
004767
000411
105737
001403

001342
112737

000006

006062

004767

001146

006066

004767

000620

006072
006076
006100
006102
006106
006110
006116

005037
012600
012603
105737
001404
012737
000443

000300

10%:

000420

FNDERR:

006120
006122

010246
005777

006126

100405

006130

004767

001536

006134
006140

105737
001401

000042

006142

000000

CZKMAE .MA(

006144
006146

004767
000403

000277
000300
000404

9%:

000301
000344

6%:

105720

006313

000001

000400

BEQ

2%:

a4 TYPENB

JENABLE THE TYPE OUT ROUTINE

JBRANCH [F NO
JELSE TYPE 'PAR ERR'’
JAND DON'T TEST INDIVIDUAL BIT FAILURES.
;ADDRESS ERROR?
JBRANCH IF NO

¥ SPRENR

JSR

PC, TPPRER

TSTR
BEQ
JSR

a#$ADERR
6%
PC,TPADERR
8%

B8R

BR
TSTR

+
(RQ)

7%:

004767
051105
000043

000414
047522

017637

000000
000314
000376
000402

6%:

000002

FATERR:

020122

SEQERR:

JPARITY ERROR?

;PRINT '‘ADR ERR"'

JPOINT TO NEXT ENTRY IN ERROR STACK
;1S THERE STILL AN ERROR BIT SET IN ERROR.
;BR IF YES = KEEP FILLING ERROR STA(CK
sTELL TYPOCT TO TYPE 6 WORDS OF ERROR STA(K.
;THE STACK POINTED BY R3
;GO TO THE SUBROUTINE TO PLACE THE ADDRESS IN R1

ASL
BNE
MOVB

(R3)
2%
a8 TYPCNT
#6,

JSR

PC ,PUTADR

JSR

PC,TYPERR

;AT LOCATIONS (R3) AND (R3-2)
;TYPE ERROR STACK (7 WORDS)

CLR

a#SPRERR

;CLEAR ADDRESS/PARITY ERROR FLAGS

TSTB

aH#SENV

MOV

#1,XEMSGTY

MOV
MOV

BEQ

B8R

4%:

006154
006154
006160
006166

012703
013743

8%:

INCB

TSTR

(SP)+ R0
(SP)+,R3

FATHLT

;RESTORE RO
;AND R3
JARE WE RUNNING UNDER
;IF NOT THEN TEST FOR
;OTHERWISE INFORM THE
;GOTO FATHLT AND WAIT

APT?
HALT
APT
FOR APT.

TST

aSWR

;SAVE R2 TEMP
;DOES THE OPERATOR REQUIRE THE PROGRAM TO HALT

8MI

;IF SO THEN HALT ON ERROR

JSR

PC,CHECKC

MOV

R2.=-(SP)

;CHECK FOR CONTROL-C KEY

006152

105237

000314

172322

012602
062716
000207

006170
006176
006202
006206

7%:

4%:

SEQ 0059

TSTR

BEQ

Y14

ADD

;IF CONTROL~C TYPED THEN PRINT ERROR HISTORY
JAND HALT AT FATHLIT.

JARE WE RUNNING UNDER A(CT?
;BRANCH [F NO

;PROGRAM HAS HALTED ON ERROR, R1

HALT

MOV

:sON ERROR

IS POINTING

;TO A LOCATION WHICH SHOULD HAVE CONTAINED
(SP)+ ,R2

#2,(SP)

;THE WORD STORED IN RO

JRESTORE R2
JRESTORE THE RETURN ADDRESS
JRETURN FROM THE SUBROUTINE

RTS

JSR
.ASCIZ

PC,TPCRLF
/ERROR #/

;TYPE "ERROR #°'

a(SP) ,a#SFATAL
QA TYPCNT
#376,R3

;JLOAD THE LOCATION SFATAL WITH THE ERROR NUMBER
JTELL STPNUM TO TYPE 1 WORD
JSTPNUM USES R3 AS STACK

.EVEN

000402

MOV
INCB

MOV
MOV

a#SFATAL ,-(R3)

;PUT ERROR NO.

ON STACK

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
2851
2852
2853
2854
2855
2856
2857

18-SEP-78

18-SEP-78 11:54

006212
006214
006220
006224
006226
006230

005743
004767
105737

000560
000420

000137

000250

001326
000000

11:56

PAGE 60

ERROR HANDLING ROUTINE
TST
JSR
APTHLT: TSTB
BNE
FATHLT: HALT
JMP

SEQ 0060

-(R3)
;$TPNUM REQUIRES THIS
PC,FAT P
;TYPE ERROR NO.
S#SENV ;RUNNING UNDER APT?
FNDERR

sBRANCH [F YES
sFATAL ERROR OR “C HALT.

Q¥RESTRT

JRESTART TST BUT DON'T CLEAR PASS COUNT

;IN CASE “C RESTART.

2858
2859
2860
2861

'PARERR

5229

;IF NO PARITY ERROR BITS CAN BE FOUND A FATAL ERROR IS DONE.

2862
2863
2864
2865

PARITY TRAP HANDLER
:COME HERE FROM A TRAP T0 114.
:
THIS ROUTINE SEARCHES THE AVAILABLE PARITY MODULES AND IF ONE
JHAS A PARITY ERROR BIT SET THE GET THE PARITY ERROR ADDRESS
JAND CALL THE "ERROR'' ROUTINE TO PRINT ERROR MESSAGE.

2868
2869

SJREGISTER US AGE.
;RO= HOLDS PARITY MODULE ADDRESSES

Sg;?

:R1= GETS ERROR ADDRESS FOR 'ERROR'’' CAL..

2872
2873
2874
2875
2876
2877
2878
sggg

006234
006240
006244

012637
011637
013706

000356
000360
000350

PARERR: MOV
MOV
MOV

006250
006254
006260
006264

010067
010167
013701
012700

000130
000126
000352
172100

MoV
MOV
MOV
MOV

RO, SAVRO
R1,SAVR1
a#PARMAP ,R1
#172100,RO

;SET PARSP TO RETURN ADDRESS
;SAVE PSW FOR RETURN
JAND RESET THE SP SINCE NOT ENOUGH STACK ROOM
;7O COMPLETE THE ERROR SERVICE ROUTINE.
:SAVE RO DURING PARITY SERVICE
;SAVE R1 DURING PARITY SERVICE
;GET PARITY AVAILABLE MAP
;RO= FIRST PARITY ADDRESS.

2881
2882
2883
2884
2885

006270
006272
006274
006276
006300

005701
001441
006001
103005
005710

TST
8EQ

ROR
BCC
TST

R1
43
R1
2%
(RO)

ANY PARITY MODULES AVAILABLE?
BR IF NO -FATAL ERRORSHIFT PARITY MAP BIT INTO C BIT.
:BRANCH IF THIS PARITY MODULE NOT AVAILABLE.
:PARITY MODULE ERROR BIT SET?

2888
2889
2890

006310
006312
006316

020027
002032
062700
000766

BGE
ADD
BR

RO,#172136
;DONE ALL PARITY MODULES?
31
;BR IF YES- GO TO FATAL ERROR CALL#2,R0O
;POINT TO NEXT PARITY ADDRESS
1%
sAND KEEP TRYING

2892

006324

(©11001

Mov

(RO) ,R1

2895
2896
2897

006332
006334
006336

2886
2887

2891

2893
2894

2898
2899
538?

2902
2903
2904
2905
2906

006302
006304

006320

006326
006330

006342
006346
006352
006354
006360
006364
006370
006374

100406

042710

1$:

000002

2%:

100000

3$:

006101
006101
006101
006101
042701

105237

004767
000050
016700
016701
013746
013746
000002

BMI]
CMP

172136

BIC
ROL
ROL

000777

000300
177244
000024
000022
000360
000356

ROL
ROL
BIC

INCB

JSR
50

MoV
MOV
MOV
MoV
RTI

(SP)+,a#PARSP
(SP) ,a#PARPS
a#SAVR6, SP

JBRANCH IF YES -CALL 'ERROR'' ROUTINE

#100000, (RO)
R1
R1

R1
R1
#777 ,R1

a#SPRERR
PC.ERROR

;CLEAR PARITY ERROR BIT.

;GET PAR]JTY MODULE CSR

;SHIFT ERROR ADDRESS BITS 11-5 INTO 15-9

;SAVE ERROR ADDRESS ONLY

SAVRO,RO
SAVR1 ,R1
a#PARPS ,~(SP)
a#PARSP,-(SP)

;TELL "ERROR'’ PARITY ERROR CALL.
:*ERROR* REPORT ERROR MESSAGE
Jarxex*ERROR NUMBER SOxwtwsx
sRESTORE RO
JRESTORE R1
;SET RETURN PSW ON STACK
;AND SET RETURN ADDRESS ON STACK
JRETURN TO TEST WHERE PARITY TRAP OCCURRED.

18-SEP-78
MACY11 30A(1052)
18-SEP-78 11:54
CZKMAE .MAC
(ZKMA

2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922

2923

2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934

006376
006376
006402

11:56 PAGE 61
ERROR HANDL ING ROUTINE
igOME HERE IF NO PARIT

004767
000051

006404
006406

000000
000000

006410
006414
006416
006422
006430

105737
001406
004767
042101
000122

006432

000207

006434
006440
006442
006446
006454

105737
001406

006456

000207

004767
040520
000122

177552

JSR
51

SEQ 0061

ERROR FLAG FOUND SET

PC,FATERR

;*ERROR* REPORT

ERROR MESSAGE AND HALT AT FATHLT

ixxxxaxERROR NUMBER ST1wwxwes

;RO+R1 ARE SAVED HERE FOR PARITY TRAP DUE TO INSUFFICIFNT
;STACK SPACE BETWEEN 500-450.

000277

000160
020122

SAVRO:
SAVR1:

O
O

;SAVE R1 DURING PARITY TRAP SERVICE

TPADER:

TSTB
BEQ

a#TYPENB
1%

051105

TPPRER:

000277

000134
020122

JSR

PC,PNTMES

.EVEN
RTS

TSTB
BEQ

a#TYPENB
1%

.ASCIZ

1%:

JSR

.ASCIZ

051105
18:

;SAVE RO DURING PARITY TRAP SERVICE

.EVEN

RTS

/ADR ERR/

PC,PNTMES

/PAR ERR/

; TYPE ERROR?
;BRANCH IF NO

; TYPE CR, LF AND '‘ADR ER'’

;ERROR PRINTOUTS ALLOWED?
JBRANCH IF NO

;GO TO TYPE CR, LF AND "PAR ERR"’

(ZKMA

MACY11 30A(1052)

CZKMAE .MA(

18-SEP-78

18-SEP-78 11:54

11:56

PAGE 62

SEQ 0062

TYPE OUT ROUTINE

THIS ROUTINE IS USED BY THE PROGRAM TO TYPE OUT ANY (HARA(CTER
010146
016601
105721

NOTYP:

000002

001376
000412

$TYPE:

000004

it ¥

000022

132737
001005
105737
100375

006602

000421

177564

110037
000404

177566

004767
005015
006572
000207

177706

004767
000735

177762

032777
001323

000020

171640

000042

000046

123737

006622

000040

001717
000764

:IF THIS TYPE OUT HAS BEEN SUPRESSED THEN

;PREPARE TO RETURN

RETTYP

R1.,-(SP)
RO,-(SP)

:SAVE R1
:AND RO ON Ti'E STACK

gg.STPCHR

;OTHERWISE GO TO TYPE THE CONTENTS OF RO

4 (SP) ,R1
(R1)+,R0
4%

;PLACE THE ADDRESS OF MESSAGE TO BE TYPED IN R1
;PLACE THE BYTE TO BE TYPED IN RO
:IF IT IS END OF MESSAGE THEN GO TO 4$

R1
A1 ,R1
R1,2(SP)
(SP) + ,R1
EXTYP

(SP)+,R0O

;RESTORE RO

$TPCHR:

#40, NSENVM

;HAVE TYPE OUTS BEEN DISABLED?

2%:

a#STPS
2%
EXTYP

;WAIT HERE
JUNTIL THE PRINTER IS READY
;LOAD DATA TO BE TYPED INTO DATA REG.
JRETURN

:
PCRLF

PC,$TYPE
<15><12>

;CR/LF

EXTYP:

TPCRLF:

PC,PCRLF

:TYPE

PNTMES:

#20,3SWR

;PRINTOUTS ALLOWED?

NG, N6
NOTYP

;RUNNING UNDER ACT 11?
JBRANCH [F YES =NOT PRINTOUT-

4%:

000

2(SP) ,R1
(R1)+

RETTYP:

4%:

000001
000002

R1,-(SP)

;CAUSE R1 TO
;POINT TO EVEN ADDRESS
:MODIFY THE RETURN ADDRESS
;RESTORE R1
;AND RETURN V]A RTS PC

RO,a#$TPB

;RETURN

$TYPE

NOTYP

TPCRLF

:IF SO THEN RETURN FROM THE SUBROUT INE

CR/LF

:NOW GO TO TYPE THE REST OF THE MESSAGE

;BRANCH IF NO

:SEND CR/LF AND TYPE MESSAGE.

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78

18-SEP-78 11:5¢4

11:56

2983

:* ROUTINE TO “YPE OUT A DECIMAL NUMBER

2985

IN mmemmeessscsccccscccscsscccossasoe—-

2986

2987

22323

177732

%?’312

006624

004767

2993

006630

005046

013746

000312

2996
22332

006636
006642

162716
002403

000012

2999

006644

005266

000002

3001

006652

062716

000012

2994

2995

3000

ROUTINE TO TYPE OUT A DECIMAL NUMBER

2984

2990

PAGE 63

006632

006650

000772

3002
3003
3004
3005
33889

006656
006662
006666
006672
006676

052716
112667
052716
112667
004767

3008
3009
3010

006702

020040

006710

000207

030040

DECWRD TO DECIMAL NUMBERS AND TYPE THEN FOLLOWING 3 SPACES

TYPDEC: JSR

PC,PCRLF

$TPDEC: CLR

-(SP)

MoV

2s:

48:

000060
000020
000060
000007
177572

THIS ROUTINE IS USED TO CONVERT THE CONTENTS OF LOCATION

000060

6%:

;TYPE CR/LF

A#DECWRD,-(SP)

;GET THE WORD THAT HAS TO BE CONVERTED TO A

SuB
BLT

#10., (SP)
3

,ég ;SE";JUEER IN (SP) WAS LESS THAN 10. THEN

INC

2(SP)

;OTHERWISE ADD 1 TO THE LOCATION STORING 10°'S DIGIT

ADD

#10.,(SP)

BIS
mMovB
BIS
MOovB
JSR
LASCIZ
.EVEN
RTS

#60, (SP)
(SP)+,6%~2
#60, (SP)
(SP)+,6%-3
PC,.STYPE
/7

00/

;DECIMAL NUMBER

JAND RETURN TO 2%

JMAKE THE CONTENTS OF (SP) A DECIMAL NUMBER
;PLACE THE 1°'S DIGIT TO BE TYPED
JMAKE THE CONTENTS OF (SP) A DECIMAL NUMBER
JPLACE THE 10'S DIGIT TO BE TYPED
.‘(320 ;chgPE THE NUMBER IN DECIMAL FOLLOWED BY
;3

SPA

JRETURN FROM THE SUBROUTINE

SEQ 0063

MACY11 30A(1052)

18-SEP-78
18-SEP-78 11:54

11:56 PAGE 64
OCTAL TYPE OUT ROUTINE

3011
3012

;* OCTAL

SEQ 0064

TYPE OUT ROUTINE

3013
3014

032777
001054
004767
004767
000447
012123

012113

105237

052743

106113
103376
005000
106113

020000

171530

TYPERR:

177634
000012
OCTTYP:

000314
000004

TYPOCT:

2%:

%
%

3015

CZKMA

CZKMAE .MAC

THIS ROUTINE

THE LOW ORDER BITS (I.E. BITS 0-15) OF THE ADDRESS TO
BE TYPED WHERE AS R3-2 SHOULD CONTAIN THE HIGH ORDER BITS
(1.E. BITS 16 & 17). CONTENTS OF LOCATION R3-1 AND RO ARE
DESTROYED BY THIS SUBROUTINE

BYTE TYPCNT SHOULD BE SET TO THE NUMBER OF WORDS THAT HAVE
TO BE

TYPED.

#20000,aSwR
OCTXT

;ERROR PRINTOUT WANTED?

(R1)+,(R3)+

:gLAgg THE HIGH ORDER BITS AT LOCATION POINTED

(R1)+,(R3)

;AND NOW PLACE THE LOW ORDER BITS
;ENABLE THE TYPE OUT OF ONE OCTAL WORD

PC,.PCRLF
PC,TYPOCT
oCcTXT

a#TYPCNT

#4 ,-(R3)
(R3)

005000
012723
000241
006113
006100
052700
004767
005000
006113
006100
006113
006100
105363
001361
105337
001347
000207

;BRANCH IF NO

;TYPE CR/LF
;TYPE OCTAL NO.

JRETURN VIA RTS PC
.BY

;GET BITS 17 & 16 INTO RO

006100

106113
006100
000405
004767
020040

IS USED TO TYPE OUT THE OCTAL VALUES

CONTROL SHOULD COME TO THIS ROUTINE WITH R3 POINTING TO

177500
000040

RPTOCT:

PC.STYPE
/

000006

STPNUM:
A ¥

FATYP:

RO
#6,(R3)+

000060

(R3)
RO

#60,R0
P6,$TPCHR

177512

(R3)

;PLACE THE CARRY FROM (R3) IN RO
;JOR THE CONTENTS OF RO WITH AN ASCII O
:

TYPE THE OCTAL NUMBER STORED IN RO

;PLACE THE CARRY FROM (R3)

43
a#TYPCNT
OCTXT:

JENABLE THE TYPE OUT OF 6 OCTAL DIGITS

;PLACE THE CARRY FROM (R3) IN RO

-2(R3)

000314

TYPE 3 SPACES

(R3)

177776

;

RPTOCT

IN RO

;IF WE HAVEN'T TYPED THE 6 OCTAL DIGITS
:THEN REPEAT FROM 4$

;IF ALL THE WORDS REQUIRED HAVE NOT BEEN

;TYPED THEN REPEAT FROM RPTOCT

CZKMA

MACY11 30A(1052)

CZKMAE .MAC

18-SEP-78
18-SEP-78 11:54

11:56

PAGE 65

SUBROUTINE FOR MEMORY MANAGEMENT
* ROUTINE
oo

TO SET UP MEMORY MANAGEMENT REGISTERS
e

- -

—

PROGRAM CONTROL COMES HERE TO DETERMINE IF THE MEMORY MANAGEMENT
IS AVAILABLE OR NOT, AND IF IT IS AVAILABLE THEN "JHETHER
THE MEMORY ABOVE 28k IS REQUIRED TO BE TESTED OR NOT.

SEQ 0065

007054
007060

012702

105037

001400
000276

007064
007072
007074
007100
007104
007110
007114

032777

010000

007120
007124
007126
007132
007134
007140
007142
007146
007152
007156
007162
007164
007170
007172
007176

012701
005021
062702
010221
020127

007200
007202
007206
007214

022626
004767
047516

001441
012700
012720
012710
005037
105237

103772
012711
012701
012721

020127

101773
005237
005010
012740
000207

007216
007222

000
007216
004767
000052

007224

030761

007226
007232

013702
000712

MEMMNG: MOV
MMREG:
CLRB
171356

B8IT

#10000,aSwWR

:HAS THE OPERATOR ASKED TO CHECK MEMORY MANAG. ?

MOV
MOV

#4 R0
#NOMM, (RO) +

Mov
CLR
INCB

177572

000276
172340

2%:

000200
172356

007600
172300

4%:

077406
172316

000104

RETMM:

NOMM:

043516

RTS

CMP

JSR

.EVEN

UPMM:

JAND WITH A PSW OF 340
:TRY TO REACH MEM. MANAG. SRO
;éFTéT IS AVAILABLE THEN SET MEM. MANAG. AVAILABLE

23
#7600, (R1)
#172300,R1

LASCIZ

176732

#340, (RO)
a#SRO
a¥MMAVA

8LO
MOV
MOV

MOV
CMP

]S AVAILABLE FOR TESTING

;IF NOT THEN RETURN FROM THE SUBROUTINE

#172340,R1
(R1)+
#200,R2

MOV
CMP

:THAT MEM. MANAG.

RETMM

MOV
CLR
ADD

BLOS
INC
$RETMM: (LR
MOV

177572

172354

;CLEAR THE BYTE THAT IS SUPPOSED TO INDICATE

B8EQ

000004
007200
000340

177366
046440

#1400,R2
a#MMAVA

R2.,(R1)+
R1.#172356

#776406,(R1)+
R1,#172316

;PREPARE TO SETUP TIME OUT VECTOR
;RETURN ADDRESS TO NOMM

:BY

;R1 IS POINTING TO PARO
:PARO WILL POINT TO BANK O

;SETUP PAR1-PAR6
;PAR7 IS POINTING TO THE 1/0 PAGE

;SETUP PDRO-PDR7

4%
a#SRO
(RO)
#BUSER,
- (RO)

JENABLE MEM., MANAG.
JRESTORE TIME OUT TRAP VECTOR FOR ANY FUTURE TRAP

(SP)+,(SP)+

;RESTORE STACK POINTER

PC,TPCRLF
/NG MNG/

;TYPE "NO MEMORY MANAGEMENT MESSAGE

JSR
52

PC,FATERR

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
sxxxxx*ERROR NUMBER 52%#wwnx

B8R

$RETMM

; RESTORE TIME OUT TRAP VECTOR

a#172354 ,R2

;PREPARE TO UPDATE MEMORY MANAG. REGISTERS

MOV
BR

MMREG

MACY11 30A(1052)

3153
3154
3155
3156
3157
3158
3159
3160
3161
3162

POINTED BY R3-2

THIS SUBROUTINE IS USED TO PLACE THE ADDRESS STORED IN R1
IN THE LOCATION POINTED BY R3. THE ADDRESS IN R1 IS CONVERTED
TO AN 18 BIT ADDRESS ONLY IF MEM. MANAG. IS AVILABLE IN WHICH
CASE THE HIGH ORDER BITS OF THE ADDRESS ARE PLACED IN LOCATION

007234
007240
007242
007246
007250
007252
007256
007260
007264
007266
007270
007274
007276
007302
007304

007310
007312
007314
007316
007320
007322

005063
010113

105737
001425
010146
042701

040113
052701

006001
103376
062701
011101
052701
006101
103376
006101
006143
006101
006123

177776

PUTADR:

000276
017777
004000

2%:

172340

010000

CLR

MOV
TSTB

BEQ
MOV
BIC
BI1C
BIS
ROR
BCC
ADD

6%:

R1,=(SP)

;SAVE R1

#17777 ,R1

R1, (R3)

#?000.R1
R

;IS THE MEM. MANAG. AVAILABLE ?
;IF NOT THEN RETURN FROM THE SUBROUTINE
;CLEAR BITS 0-12 OF THE ADDRESS IN R*

;LEAVE BITS 0-12 OF THE ADDRESS IN (R3)
JPREPARE TO SHIFT R1 BY 12 PLACES

;GET THE NUMBER OF PAR IN R1

BIS

BCC

;PLACE THE ADDRESS BITS 13-17 IN BITS 11-15 OF R1

-%R3)

;PLACE BIT 17 IN LOCATION POINTED BY R3-2

(R3)+

;PLACE BIT 16 _OF THE ADDRESS

(SP)+ ,R1
PC

JRESTORE R1
JRETURN FROM THE SUBROUTINE

ROL

BIS

000207

;PLACE THE ADDRESS STORED IN R1 IN LOCATION (R3)

a#MMAVA
63

ROL
ROL
ROL
ROL

050113
012601

R1, (R3)

#172340,R1
(R ,R1
z}OOOO.R1

MOV

-2(R3)

MOV
RTS

R1,(R3)

;GET THE ADDRESS OF PAR IN R1
;LOAD R1 WITH THE CONTENTS OF PAR

;PLACE BITS 13-15 OF THE ADDRESS IN LOCATION (R3)

;* GET ADDRESS FROM THE APT MAILBOX
»

3144
3145
3146
3147
3148
3149
3150
3151
3152

wm-

3143

3134
3135
3134
3137
3138
3139
3140
3141
3142

;* 18 BIT ADDRLSS GENERATOR

EE B

3130
3131
3132
3133

SEQ 0066

THIS SUBROUTINE IS USED TO GET ADDRESS FROM APT MAILBOX AND
PLACE IT IN THE LOCATION USED BY THE PROGRAM TO DEFINE THE

MEMORY BOUNDRIES.

3129

11:56 PAGE 66
18 BIT ADDRESS GENERATOR

PROGRAM CONTROL SHOULD COME TO THIS SUBROUTINE WITH R1 POINT}SEBLOgA;égg*Z WHERE THE LOW ORDER BITS Of THE ADDRESS HAVE

ING TO THE MEMORY TYPE IN THE APT MAILBOX AND R3 POINTING TO
t

3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128

18-SEP-78
18-SEP-78 11:54

BE B

CZKMA

CZKMAE .MAC

007324
007330

016143
005043

000001

007332
007336

116113
000207

177777

GETADR: MoV
CLR

2%:

MoVB
RTS

FLALC

1(R1) ,=(R3Y)

-(R3)

=-1(R1),(R3)

;PLACE THE LOW ORDER BITS OF THE ADDRESS
;CLEAR THE LOCATION WHERE THE HIGH ORDER BITS
JHAVE TO BE PLACED
;PLACE BITS 16 & 17
JRETURN FROM THE SUBROUTINE

MACY11 30A(1052)

CIKMA

CZKMAE .MAC

18-SEP-78

18-SEP~78 11:5¢4

11:56

3163

3166

3174

3175

3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
%}g;

SEQ 0067

:+ CONVERT 18 BIT ADDRESS TO THE PAR FORM
......................................

3167
3168
3169
3170

3173

CONVERT 18 BIT ADDRESS TO THE PAR FORM

%}gg

3172

PAGE 67

i
i
iw
i*

THIS SUBROUTINE IS USED TO CONVERT 18 BIT ADDRESS STORED IN
LOCATIONS POINTED BY R3 AND R3+2 TO THE FORM IT WILL BE STORED
IN A PAR. THE RESULT IS LEFT IN R2. R1 IS LOADED WITH BITS
0-12 OF THE ADDRESS AND RO WITH 160000

007340

005046

$GTSIZ: CLR

-(SP)

007342
007344
007346
007352
007356
007360
007362
007364
007366
007370
007372
007376
007400
007402
007406
007410

012301
011302
042702
052702
006001
006002
103375
005716
001004
005726
052702
000767
012301
012700
040007
000207

GETSIZ: MOV
MOV
BIC
2s:
BIS
ROR
A
ROR
BCC
TST
8NE
TST
BIS
BR
6%:
MOV
MOV
BIC
RTS

(R3)+,R1
(R3) ,R2
17777 ,R2
#40,R2
R1
R2
43
(SP)
63
(SP) +
#100,R2
A
(R3) +,R1
#160000,R0
RO.R1
PC

017777

000040

000100
160000

3193
3194

:PREPARE TO PLACE ADDRESS BITS 13-17 IN BITS
:0-4 OF R2

:LOAD R2 WITH THE LOW ORDER BITS OF THE ADDRESS
:CLEAR ADDRESS BITS 0-12
:ROTATE R1 AND R2 7 TIMES
:IF RETURN PC IS ZERO THEN IT MUST BE THE
;FLAG THAT WAS SET AT $GTSIZ
;POP THE FLAG OFF STACK
:KEEP ROTATING

:PLACE THE LOW ORDER ADDRESS BITS IN R1
;LEAVE BITS 0-12 OF THE ADDRESS IN R1
:RETURN FROM THE SUBRORNE

33»1132

;% SUBROUTINE TO DISABLE MEMORY MANAGEMENT

3197

3198
%;38
3201
3202
3203
3204
%582

007412
007416
007420
00764264
007430

105737
001404
005037
105037
000207

000276
177572
000276

CLRMM:

1%:

*
i*

THIS SUBROUTINE IS CALLED TO DISABLE THE MEMORY MANAGEMENT
UNIT

TSTB
BEQ
CLR
CLRB
RTS

IAMMAVA
1%
a#SRO
IIMMAVA
PC

:WAS THE MEMORY MANAGEMENT ENABLED ?
:IF NOT THEN GO TO 1%
:DISABLE THE MEMORY MANAGEMENT
:AND DO NOT ATTEMPT TO TEST MEM. MANAG.
;RETURN FROM THE SUBROUTINE

32C7
3208

:* GET BANK NO. UNDER TEST

3210

REGISTERS

3209

CALLED BY ERRTYP AND TST13 TO GET BANK NO. UNDER TEST INTO PBNK.

3211
3212

%512

3215
3216
3217

3218

:RO=POINTER TO PAR UNDER TEST
*R3-VIRTUAL ADDRESS ON ENTRY

007432
007434
007436

007442

010046
010346
042703

052703

;RO+R3 ARE RESTORED ON EXIT.

017777

010000

GETBNK: MCV
MOV
BIC

BIS

RO,~(SP)
R3,-(SP)
#17777 ,R3

#10000,R3

:SAVE RO
:SAVE R3
:SAVE ONLY VIRTUAL BANK BI'S

;SETUP R3 SHIFT BIT

CZKMA

MACY1T 30A(1052)

CZKMAE .MAC

18-SEP-78
18-SEP-78 11:54

007446

007450
007452
007454
007460

007462
007464
007470
007472
007474
007476
007500
007504
007506
007510

PAGE 68

1%:

ROR

TSTB
BEQ

IFMMAVA
2%

000241
0060C3

103376
105737
001407

006303
062703
011300
006300
000300
110003

010337
012603
012600
000207

11:56

SUBROUTINE TO DISABLE MEMORY MANAGEMENT

000276

CLC

BCC

SEQ 0068

;SHIFT A BANK BIT

JUNTIL IN BITS <2:0> OF R3

JMEMORY MANAGEMENT UNDER TEST?
;NO EXIT

;GET PAR ADDRESS AND PHYSICAL BANK NO.
;MAKE RZ PAR ADDRESS OFFSET.
R3
ASL
ADD
MOV
ASL

172340

2%:

000312

SWAB
MOVB
MOV
MoV
MOV
RTS

;

#172340 ,R3
(R3) ,RO

;MAKE FULL PAR ADDRESS.
SGET PAR CONTENTS

RO
RO,R3
R3,a4PBNK
(SP)+,R3

;SHIFT BANK BITS TO BITS <7:0>
;JSET R3 TO PHYSICAL BANK NO.
;STORE PHYSICAL BANK NO.
;RESTORE R3

JRETURN TO CALLER

(SP)+,RO

JRESTORE RO

PARITY ENABLE/DISABLE ROUTINE

THIS ROUTINE ENABLES OR DISABLES PARITY MODULES AND PRINTS ASSOCJATED MEASSAGES.
IF PARITY AVAILABLE THEN BIT13 OF 'REL''
IS SET AND 'PAR'ITY [S PRINTED.
ALSO THE BACKGROUND TEST PATTERN (LOC. BAKPAT) IS SET=376
JREGISTER USAGE.

;RO= POINTS TO BUS TIMEOUT TRAP VECTOR (LOC. &)
JR1- HOLDS PARITY MODULE UNIBUS ADDRESS.
;R2- ON ENTRY HOLDS ENABLE/DISABLE CODE .
:

IF R2=0 THEN DISABLE
IF R2=1

THEN ENABLE

R3 SCRATCH TO SETUP LOC. PARMAP WITH A MAP OF PARITY MODULES PRESENT.
JCALL IS

;

007512
007520

032777
001460

004000

007522
007526
007532
007534
007540
007544

012700
012710
060710
005037
012701
012703
010241
050337
000241
006003
103372
012710
005702
001433

000004
000122

007550
007552
007556
007560
007562

007564
007570
007572

000352

172140
100000

000352

170730

JSR

PARITY: BIT
BEQ

1%:

2%:

#1,R2

;ENABLE CODE

PC,PARITY

#4000,SWR
6%

JPARITY TEST WANTED?
;BRANCH IF NO

MOV

#4 RO

;POINT RO TO BUS TIMEOUT ADDRESS.

ADD
CLR

PC, (RO)
a#PARMAP

;IN THE CURRENT BANK.
;CLEAR PARITY MAP HOLDER.

MOV

3%:
000104

MOV

MoV
%ig
ROR

B8CC
MOV
TST

BEQ

#5%-.-6, (RO)

#172140,R1

#100000,R3

R2,-(R1)
R3,a#PARMAP
R3

2%
#BUSER, (RO)
R2

(33

;SET RETURN FROM TIMEOUT TRAP 70 5%

:SET R1 TO LAST PARITY MODULE ADDRESS+2
;SET R3 TO PARMAP AVAILABLE CODE BEGIN.

*ENABLE A PARITY MODULE+TRAP IF NOT AVAILABLE.
;NO TRAP TO 5%, SO SET PARITY AVAILABLE.
;SETUP NEXT PARMAP BIT

;BRANCH IF NOT DONE ALL PARITY ADDRESSES.
JRESET BUS TIMEQUT TRAP VECTOR
;1S THIS A DISABLE CALL?

;BRANCH IF YES (EXIT)

18-SEP-78
MACY11 30A(1052)
(ZKMA
CZKMAE .MA(
18-SEP-78 11:54

3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295

007616
007622

005737
001011
004767
047516
000
007616
004767
000053

007624
007632

152737
012737

000040
000376

007640
007644
007652

004767
040520
000
007654
000405

176730
044522

007574
007600
007602
007606
007614

007654

11:56

TST

JWERE ANY PARITY MODULES FOUND?

JSR
53

PC,FATERR

;*ERROR* REPORT
ERROR MESSAGE AND HALT AT FATHLT
JaxanawERROR NUMBER S53twewan

B1S8
MoV

#40,34RE|
#376,3#BAKPAT

;SET PARITY UNDER TEST FLAG
;SET BACKGROUND PATTERN TO

JSR
LASCIZ

PC,TPCRLF
/PARITY/

JPRINT *7TST PARITY"'

.EVEN
BR

EXITC

.EVEN

176332

054524

4%:

SEQ 0069

a#PARMAP

BNE
JSR
.ASCIZ

051101

000405
000316

SUBROUTINE TO DISABLE MEMORY MANAGEMENT

000352
176766
050040

PAGE 69

4%
PC,TPCRLF
/NO PAR/

JBRANCH IF YES
JPRINT 'NO PAR"'

;WORST

CASE PARITY

CODE.

JAND EXIT VIA RTS PC

JGET HERE IF PARITY ADDRESS TIMED OUT TJ LOC. 4

CZKMA

MACY11 30A(1052)

CZKMAE .MAC
3296
%Sgg

007656
007660

022626
000737

3299

007662

142737

3301

007670

000207

3300

3302
3303
3304
3305
3306

18-SEP-78

18-SEP-78 11:54

007670

000040

11:56

PAGE 70

5%:

(MP
BR

(SP)+,(SP)+
3%

JRESET STACK FROM TRAP
JKEEP TRYING PARITY ADDRESES.

6%:

BICB

#40, A#REL

;CLEAR PARITY TESTING FLAG

7%:

RTS

;RETURN TO CALLER

000405

SUBROUTINE TO DISABLE MEMORY MANAGEMENT

EXITC:

s CHECKC

THIS ROUTINE CHECKS IF CONTROL-C WAS TYPED AT THE END OF EACH

3307

3309
3310

;1F CONTROL=-C TYPED THE PROGRAM IS RETURNED TO LOWER MEMORY IF [T WAS
;RELOCATED AND THE ERROR HISTORY IS PRINTED OUT.

3308

;TEST OR IN THE ERROR TYPE ROUTINE.

%g};

JFINALLY IT HALTS AT FATHLT.

3313
3314
3315
3316
3317
3318
3319
3320
3321

007672
007676
007702
007704
007710
007714
007720
007722
007726

105037
105737
100372
113702
042702
122702
001363
110237
004767

000315
177560

000315
176642

CHECKC: CLRB
TSTB
BPL
MOVB
BIC
CMPS
BNE
MOVB
JSR

%%5%

007736

000167

175114

JMP

3322
3323

3326

3327
3328
3329

007732

007744

041536
007736

007744

000000

177562
000200
000003

000

ASCIZ
.EVEN

.=7744

ENDPRG: 0

3330

3331

3332

a#SAVKBB
JINIT CONTROL-C FLAG.
a#TKS
;ANY CHAR. TYPED?
EXITC
;BR IF NO-EXIT VIA RTS P(CA#$KAB,R2
;GET THE CHAR TYPED.
#200,f¢ ;(LEAR THE PARITY BIT.
#3,R2
;IS IT CONTROL-C?
EXITC
JBRANCH IF NO -EXIT VIA RTS P(CR2.,a34SAVKBB
JELSE STORE THE CHAR. FOR USE AS A FLAG.
PC,TPCRLF
JPRINT '=(*'
/7*C/

RELOER

;GO RETURN PROGRAM TO LOWER CORE IF RELOCATED.
;THIS BEGINS THE STORAGE FOR THE ERROR HISTORY
;STACK.FOR EACH 4K BANK 18. BYTES ARE SAVED.
JALSO THE ABSOLUTE LOADER AND XXDP CODE IS SAVED
;AFTER THF ERROR STACK.

000001

.END

;FOR 4K MEMORY SIZE THEN PROGRAM-7744+22=7776

SEQ 0070

(ZKMA

MACY11 30A(1052)

CZKMAE .MAC
ABASE
ACDWI
ACDW?

ACPUOP

ACTIN
ADDWO =
ADDW1 =
ADDW10=
ADDW11=

18-SEP-78
18~-SEP-78 11:54
1220
1220
1220
1220

2708

1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220
1220

11:56
PAGE 72
CROSS REFERENCE

1226
1231
1232
1223
1248
1252
1255
1258
1242
1250
1253
1256
1228
1229
1222
1243
1251
1254

1257
1225

2140

11804
2146
1183

2150

2163

1396

3097

3272

BEGIN
BRTPSZ
BUSER

1054
13524
10264

SEQ 0071

TABLE -~ USER SYMBOLS

1235

28534

AVECT1AVECT2=
BAKPAT

2715~

2736

1320
1220
1220
1220
1220
1220
1220
1046

13344
1233
1224
1227
1234
1288+
1204

1505

12684

1719

2166
2562

1721

2205+
2573

1729

2302
2579

1740%

2358~

1804

2359

1836+

2543+

2018+
3286+

2053

2088~

18-SEP-78
MACY11 30A(1052)
(ZKMA
11:54
18~-SEP-78
CZKMAE .MAC

007672
005124
001516
007412
001650
001556
005152
005606
000312
005314
007744
000310
002142

002242
004006
004332
002352
002620

002730
003076
003232
003456

005616

005734
007670
006572
005412
006154
006226
007000
006102
003504
007324
007432
007342
000332
000330
001566
000326
000304
005130
000324
000200
005242
000340
007054
001510
000276
007060
= 000054

1561

2548

14994
16431
1560
15164

2545
2705

11664
2590
1092
11634

16614
17034

2210
23614
17434

18394
18784
19644
20204
20964
1618

2321
27794
3292
2960
2673
1299
2819

2852

28164

21334
1350

2827
2571
2613

2726

32014

1167

2674

2677+

2713«

1286
1164
1703
1743

2654

2772
2658

33274
2729

1800

1864

25924
27354
26504

22184
2473
1839
1878
1964

2020
2096
2218
1681

1418+

1735

2458

2470

33004
2967
26774

3315
29724
2690

3319

1351

2753
2605
1336
1335
1572

2994

2361
2505

2329

28554
30474
2854
2268

SEQ 0072

33134
2581#

1453
15634
1574

1347

11:56 PAGE 73
CRCSS REFERENCE TABLE == USER SYMBOLS

1664

1488

31584
32154
2610

31764

2487

27464

2899

1911

1996

1646

28414

2910

3281

1904

2070

215

2167

2176

1603
17194
1864
19994

16054
1735
18674

1406

2039+

2086

1455

26224
1422%
30734

1833

2559

2575

1373

2589

3074

3082+

3201

3204+

3222

13024
1614
17634
1904

13504
1646
17874
1911
21304

1464
16494
1795
19144

14674
1673
17974
1938

164914
1681
18134
1986

1589
16844
1848
1989#

15924
1716
18514
1996

30744

20734
2321

2329

2151
23324

21544
2394

21704
2458

2176
24614

2179
2470

2253
2473

2035
22564
2487

(ZKMA

MA(Y11 30A(1052)

CZKMAE .MA(C
NOMM

NOTYP
OCTTYP
OCTXT
ONEPAS

PARERR
PARFL
PARITY
PARMAP
PARPS
PARSP
PASFLG

18-SEP-78
18-SEP~78 11:54

007200
006460
006734
007052
000556
006234
005450
007512
000352
000360
000356
000306

000312
PCRLF
006562
PNTMES
006602
PUTADR
007234
PWRDN
000070
PWRUP
000136
REL
= 000405
RELBOT
000322
RELOC
004764
RELOER
005056
RESTRT
000250
RETMM
007176
RETSTK
005354
RETTYP
006520
RL ODER
005564
RPTOCT
006770
RPT10
003500
RPTI1
004046
RPT6
003116
SAVKBB
000315
001272
SAVLDR
000354
SAVLOC
000342
SAVMAX
006404
SAVRO
006406
SAVR1
000344
SAVR4
000346
SAVRS
000350
SAVR6
SCOPE = 000240
006154
SEQERR
001176
SETSTK
PBNK

SETSWR
SLFSIZ
SRO
=
START
STRTDI
SWAPAT
T
SWHAL
SWR

000656

SWREG

000176

001024
177572
000200
000302

000320
061670
000450

11:56

2899

29024

29434
1401

2979

3027

1405

3030
12834
28724
26894
2703
2878
2873«
2872«

2981
30314
30634

1280
1276

2670

1504
1205#
1208#
12074
1158#

2079
2498

1165#
1400
1054
1388
10194
1019

11334

11834
1541

2550
1068

3077
2661
2947
2717
2685
2131
2213
19894
11704

1162

2084
2508+
2754
29694
2260

1391
1272
10534
1279
1481

2543
25694
1084

30984
2665
29564
27264
3044H
2217
2216
2019
2585
1426

2012+
1491

6
SEQ 0073

CROSS REFERENCE TABLE =-- USER SYMBOLS

26904
3079

31004

PAGE 74

3258#
3264
2904
2905
1516+

2299+
2519~
3232+
2974
2526
2809
1479

3324

1086

2909

29134

3268+

3275

1874«
2316

1942+«
2336
2761

2991
2556
31234

3105

1959+

31084

3281

32844

1991«

2002
2351+

2004+
2352

2017«
2641

2577~

3285+

3299+

2342+

2343

3028
2922

2930

2978#

2421

2549

2551+

2570

10924

2724

2856

2536+

2038+
2448

2061
2463

2077+
2481

2688

2735
3062
2263
2259

22624

2704

3313~

3320«

1452+
12044

2569

1271«

2578«
1622

2580«

2874

1716

1760

1848

1897

1986

2035

2127

2253

2293

2394

28424

3095«

3203«

2049+
2175

2078
2204+

1316+

1321«

1354
2822

1462

1508

1567

1571

1632

2258

2262

2522

164314

29164
29174

2707

2793

2978

3026

3076

3258

MACY11 30A(1052)

(ZKMA

CZKMAE .MAC

SW1l

= 004000
001604

18-SEP-78
18-SEP-78 11:54
10014
1525
1541
11754

IKS
= 177560
TPADER
006410

2672

001014

2689
1338

006574
006434

TPCRLF
TPPRER
TRYSR
TSTGO
TSTMM
TSTREL
TSTRP
TSTSCP
TSTS1Z
T1STO
TST1
TST10
ST
7ST12

001672
005136
001350
000570
001636
001354
001706
002144
003460

TST13
TST2
1ST3
TST4

TSTS

TST6

1ST7

TYPCNT
TYPDEC
TYPENB
TYPEOP
TYPERR
TYPMEM
TYPOCT

1568
1467
1281
1284
15594
16534
1529
1530
1537
1538
1539
1540
1531
1532
1533
1534
1535
1536
11684
2676
11424
27094
2811
16024

15294

SEQ 0074

1530

153

1532

1533

1534

1535

1536

29204
2842
2928#

2974N

2982

3101

3277

3288

3321

*
2684

2807«

2848+

3034+

3061+

2779«

2795«

2920

2928

1537

1538

1539

£40

2360
1837

3029
1352

TYPSIZ

26564
2592

TYPSTK

UPMM

WRTMEM

1087

J 6
11:56 PAGE 75
CROSS REFERENCE TABLE == USER SYMBOLS

$ADERR
$APTHD
SCNTMM
$CPUOP
$OEVCT
$OOAGN
$ENDAD
$ENV
SENVM
$EOP
$E TABL
$ETEND

10454
3934
426
454
482
5094

403
4384
LN
532

5584

549
S7N
11504

1862+

1118

2591
12354
122064
2716
1013
12314
12324
2651
12304
1130

2200+
2816
2962

2853

4044
441
LO6N
492

5334
565
S974

2783

408
L4oHn
469
L4934
536
5664
600

2800

4094
445
L4704

S374
569
6014

413
446N
474
5014

S704
605

4140
449

4754
504
5404
573
6064

419
4504
478
S05#4
545
S74LN
609#

420N

4794
508
S46#
578

$FATAL
$GTSIZ
$HD
=
$HIBTS

000402
007340
000002
000276
000334

CZKMAE .MAC

18-SEP-78
18-SEP-78 11:54

11:56

PAGE

SEQ 0075

CROSS REFERENCE TABLE == USER SYMBOLS

2755+

2763

2847

2850

1130

12214

1291

1306

2023
2706+

1666

2097
2713

17054
2099

1707
22224

2224

1273«

2780

2796

2813«

2898«

$SVPC
$SWR

1588

1670

1714

1759

$SWREG
$TESTN

12244

1517+

1563

1587

$HIMAX
= 177562
kBB
$MADR1
000432

000436
000442
000446
000400
000430
000434
000440

$MADR?2
$MADR3
$MADRS
SMAIL
SMAMST
SMAMS?
SMAMS
3
SMAMSS

2746+
31734
1335+

3316

1126

000444

1415

000336
000300
000414
000416
000400
000431
MTYP2
000435
MTYP3 000441
SMTYP4
000445
SNWTST= 000001

SMAXM
$MBADR
$MSGAD
$MSGLG
$MSGTY
MTYP]

16644

000406

$PASS
$PASTM
$PRERR
$RE TMM

2190

1575
19834

15884

2021

3053
2714

29934

2969

2975

2250
1664

2291

16704

20334

2097

3006

3044

2271

23624

2364

18804

1882

19664

1847

1895

1983

2033

2125

2251

2292

1669

1713

1758

1846

1894

1982

2032

1705
21254

17140

1747

17594

1840

18474

1880

2392

1749

2222

18404

22514

1842

2269

22924

2362

10704
11644

1896

3262

®
®

2971m

\o%_a_a
=

2292

10244
11574
1759

10044
11374
1276

¥ x

007746

ANONO
— —
OO QOO
—
OWVIN
&

=
$TPB
$TPCHR
$TPDEC
$TPNUM
$TPS
=
$TPSTK
$TSTM
$TYPE
SUNIT
SUNITM
SUSWR
$2
$27
M

2215

22694

17474

N =2 —2 —
NN—O
~N — N =2
[pN]V,
LV, To o)

$TN

2818«

N
— —
FOON)
—

MACY11 30A(1052)

W=
= =

(ZKMA

23934

18-SEP-78
MACY11 30A(1052)
CZKMA
CZKMAE .MA(
18-SEP-78 11:54

.8X

- 000276

33264
1114

1119

6
L
11:56 PAGE 77
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0076

(ZKMA

MACY11 30A(1052)

18-SEP-78
18-SEP-78 11:54

CZKMAE .MA(

ERRLST
MSG

NEWTST
PLCERR
STARS

$ERRNM

$SFATAL

3934

461

536

15754

2023

9824
9974
9824
1668
2222
9974
2470

3944
461

$F TERR
$5QERR
SSNEWT
.HEADE
LSACT
.$APTB
.$APTH

536
9974
9974
9824
9824
9824
9824
9824

. ABS.

007746

ERRORS DETECTED:

395
465
539
1577
2097#
1575
1603
1009
1705

2249

1681

2487
395
465
539
1299
1589
1575

398
469
545

16644

2099
1664
1606
1074
1712

2269
1735
2899
398
469
545
1347
1673
1664

403
474
5(9)

1666

11:56
PAGE 79
CROSS REFERENCE
408
478

613

SEQ 0077

TABLE == MACRO NAMES
419
486

426
490

432
492
573

437
500
578

441

445
508
590
1882

449
519
596
19664

453

457

523

€32
605
20214

1664

23624

1842

1966

18404
2364
2021

504
583
18804

2097

2222

2269

2362

1185
1880

1192
1893

1219
1966

1262
1981

1264

2021

1575

2031

1586
2097

2123

1904

1996

2070

2151

2167

2176

2321

2329

2458

408
478

426
490

492

432

437
500
578

441

504
583

445
508
590

449
519
596

453

457

2127
2097

2253
2222

2293
2265

2394
2362

553

17054

2224

1747
1785
1
1757

2362

553

1488
1760
1747

1007
1217
1109

000

CZKMAE ,CZKMAE . SEQ/CRF/SOL/NL
: TOC CZKMAE. MA(
RUN-TIME: 8 9 .6 _SECONCS
RUN-TIME RATIO: 74/19-3.8
(21 PAGES)
1 1K
CORE USED:

(82

557
1707

569

1749

569
3105
1986
1966

573
3281
2035
2021

600
1968

523

600

532
605