Digital PDFs

AH-8851F-MC

September 1979

79 pages

Original

38MB

view download

OCR Version

51MB

view download

Document:	CZKMAF0 PDP11 MOS-CORE 0-124K EXER. SEP 1979 bw
Order Number:	AH-8851F-MC
Revision:	000
Pages:	79
Original Filename:	CZKMAF0__PDP11__MOS-CORE_0-124K_EXER.__AH-8851F-MC__SEP_1979_gray.pdf

OCR Text

MOS/CORE 0-124K EXER.

AH-8851F-MC

SEP 1979

CZKMAFO

copvrigHT 75-79

[SEAREN

FICHE
1 OF
1

MADE
IN USA

CJ«MA
MACY11 30A(1052) 9085HAR-79
C2eMafF P11
05-MAR-79 0

09:02

PAGE
1

SEQ 0001

2
3

3
g

IDENTIFICATION

PRODUCT

CODE
:

AC-8850F
-MC

PRODUCT NAME:

(ZKMAFO MOS/CORE

DATE

MAR.,

CREATED:

MAINTAINER:

THE

0-124K EXER

1979

DIAGNOSTIC GROUP

INFORMATION

THIS

DOCUMENT

SUBJECT

CHANGE

WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BY
DIGITAL
EQUIPMENT
CORPORATION.
DIGITAL _ EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT
MAY APPEAR IN THIS MANUAL.

«C

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO
THE
PURCHASER
UNDER
A
LICENSE
FOR
USE
ONW A SINGLE COMPUTER
SYSTEM
AND
(AN BE
COPIED
(WITH
INCLUSION
OF
DIGITALS
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
THE

USE OR RELIABILITY CF

NOT SUPPLIED BY DIGITAL.
COPYRIGHT

(C)

ITS SOFTWARE ON EQUIPMENT

1975,1979 DIGITAL

EQUIPMENT

CORPORATION

THAT

FOR
IS

TICMA

MACYT

CJ«MAF P11

30A(10'52)
05-MAR=79
05-MAR-79 09:02

PAGE 2

CONTENTS

nN=O O*J\W;\)—'O O fUWNLU=O O VSN WNU=O0O O MN=O =0

—

3
.

REQUIREMENTS

EQUIPMENT
STORAGE

S
VI

PROGRAM HALTS

ERRORS
ERROR MESSAGE FCRMAT,
ERROR DICTIONARY
ERROR HISTORY
ERROR RECOVERY
RESTRICTIONS

MISCELLANEOUS
ADDRESS/BANK RANGES IN OCTAL AND DECIMAL
EXECUTION TIME

PROGRAM DESCRIPTION
NARRATIVE FLOW CHART
TEST TITLES

RESTART ADDRESS =250
PROGRAM AND/OR OPERATOR ACTION
LONG GALLOP OPTION

STARTING PROCEDURE
SWITCH SETTINGS
CONTROL=C OPTION
STARTING ADDRESS =200

00000000

LOADING PROCEDURE

VOO

oMo

ABSTRACT
GETTING STARTED

B8 SSS

—2

SREGR 2B BRUFARIKZ

09:02

(NORMAL

+ ERROR)

PASS COUNT AND TeST NO.

STACK POINTER
POWER FAIL

TEST O:
TEST 1:
TEST 2:

LOCATIONS

TEST FOR PROPER BANK SELECTION
CHECK DATI1/DATO LINES
TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION

TEST 3: DUAL ADDRESS TEST A
TEST 4: DUAL ADDRESS TEST B

TEST
TEST
TEST
TEST
TEST
TEST
TEST
10.0

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
13: WRITE RECCVERY TEST

RXDP & ACT11

& APT OPERATION

SEQ 0002

CZKMA

MACY11 30AC1052)

CZKMAF .P11
o

—I—D—D-J—D-J—D_J—l—l-.l.-l—‘d—l-fl—l—l-fl—ld-fl—‘—l—.d—l—l—d—l—l—l—l—.—.

106

[1.0]

SEQ 0003

ABSTRACT
THIS DIAGNOSTIC WILL

TEST O =

ON ANY PDP=11 FAMILY COMPUTER.

124k OF

MOS OR CORE MEMORY

SOME TESTS ARE WORST CASE

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

USED TO TEST A SYSTEM WITH ONLY 4K OF MEMORY.
IF ONLY 4K
EXISTS, HOWEVER, THE ABSOLUTE LOADER IS NOT SAVED.
THIS PROGRAM CAN BE RUN UNDER XXDP,

APT AND ACT MONITORS.

ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER,
SWITCH REGISTER = LOCATION 176.

£1.1)

SOF TWARE

GETTING STARTED
IF NO HARDWARE SWITCH REGISTER SFT LOCATION 176 TO OBTAIN SWITCH
OPTIONS.

A.
B.
[C).
.
E.

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

"PASSH01'' WILL BE TYPED LAST, AND THE TEST WILL

RESTART.
TO HALT THE

143

144

el JRNTo NV, PNV

LIV IV VAV IV IV IV

§)

145
146
147
148
149
150
151

TYPE CONTROL-C,

THIS WILL

TO LOWER MEMORY.

INSURE

THE

BE PATIENT, THE CONTROL-C IS ONLY RECOGNIZED AT THE END
OF THE CURRENT SUBTEST.
IF AN UNEXPECTED HALT OCCURS SEE SECTION 6.0.
IF AN
ERROR # IS TYPED SEE SECTION 6.2.

}2}

TEST,

PROGRAM 1S RELOCATED BACK

!CAUTION!

128

— )l
—d
-

05-MAR-79 09:02 PAGE 3

05-MAR=-79 09:02

BEFORE 'DIGGING'' INTO THE LISTING READ

SECTION 9.

SWITCH SETTING SUMMARY (SEE SECTION 4.1

FOR DETAILS)

BIT15(100000)

HALT ON ERROR

BITO7(000200)
BIT06(000100)
BIT05(000040)
BIT04(000020)

ENABLE LONG GALLOPING TEST
INHIBIT MEMORY SIZING
INHIBIT 'PASSAXX'' PRINTOUTS
INHIBIT PRINTOUTS

BIT14(040000)
BIT13(020000)
BIT12(010000)
BIT11(004000)
BIT10(002000)
BITO9(001000)
BITO8(000400)

BITO3-BIT00

LOOP IN SUBTEST DEFINED BY BITS <3:0>
INHIBIT ERROR PRINTOUTS
ENABLE TESTING ASOVE 28K (WITH MEMORY MANAGEMENT)
ENABLE PARITY TESTING
HALT AFTER EACH SUBTEST
INHIBIT PROGRAM RELOCATION
TYPE FIRST FAILING BIT ERROR PER 4K.

BEGINNING TEST NUMBER.

(ZKMA
MACY11 30A(1052) 9085HAR-79
CZKMAF .P11
05-MAR-79 0

;g?

[2.0]

REQUIREMENTS

:g%

[2.1]

EQUIPMENT

164
165
}gg

168
169
};?

PDT=11

[2.2]

AND ON 30K LSI

STORAGE

(3.0

LOADING PROCEDURE
USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES.

STARTING PROCEDURE

186

[4.1]

SWITCH SETTINGS

888% KYREN28TE

. )

[4.0]

0o
~N

}gg

N = B

SYSTEMS.

(SEE SECTION 9. FOR DETAILS)

}g?
182
183

SEQ 0004

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

};é

};g

PAGE 4

STANDARD 11 FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE
AND FROM 4K TO_724K OF MEMORY.
PROGRAM WILL ALSO RUN ON THE

172
173
176
177

09:02

SOF TWARE SWITCH REGISTER = LOCATION 176

BIT15(100000)

HALT ON ERROR

BIT14(040000)

LOOP ON TEST DEFINED BY SwiTCH REGISTER BITS <3:0>

BIT13(020000)

INHIBIT ERROR PRINTOUTS

BIT12(010000)

ENABLE MEMORY MANAGEMENT (TESTING ABOVE 28K, 30K SYSTEM DOES NOT

BIT11(004000)

ENABLE PARITY MODULES.
!"PAR"" WILL BE TYPED

BIT10(002000)

HALT AFTER EACH SUBTEST

BITO9(001000)

INHIBIT PROGRAM RELOCATION
;%ES§E; LGCATIONS 430-7776 WILL NOT BE

BITO8(000400)

TYPE FIRST FAILING BIT IN EACH 4K BANK ONLY.

BiTO7(000200)

ENABLE LONG GALLOPING TEST.
!"'GLP'* WILL BE TYPED,

NEED KT SUPPORT)

'PRESS CONTINUE

TO DO NEXT SUBTEST

‘THE TOTAL ERROR COUNT (UP TO 377) WILL
'BE SAVED IN THE ERROR HISTORY.

‘CAUTION!

INCREASES TEST TIME BY FACTOR OF

25.

(ZKMA

MACY11

CZKMAF P11

30A(1052)
05-MAR-79
:
05-Mak~79 09:02

BITO6(000100)

09:02

PAGE 5

SEQ 0005

INHIBIT MEMORY SIZING.

'THE MEMORY LIMITS MUST BE

SETUP

(VALUES TO TEST 0-8k ARE SHOWN)

IN THE FOLLOWING LOCATIONS:

(LOWTWO=LOCATION 324)

LOWTWO: 0
LOWADD: O

;STORE BITS 17:16 OF LOW TEST ADDRESS
sSTORE REST OF LOW TEST ADDRESS
;DO NOT ATTEMPT TO SET THE LOWER LIMIT

;AT OR ABOVE 160000 ON A 30K LSI SYSTEM.

;THE PROGRAM WILL ASSUME MEMORY MANAGEMENT

sMUST BE USED.

HIGHTWO: 0
HIGHADD: 37776

BITO5(000040)

INHIBIT ‘PASSAXX'' PRINTOUTS

BI04 (0000200

A.
B.

BITO3-BITOO

[4.2]

sSTORE BITS 17:16 OF HIGH TEST ADDRESS
sSTORE REST OF HIGH TEST ADDRESS

INHIBIT ERROR HISTORY PRINTQUTS.

THE

ERROR HISTORY CAN STILL BE OBTAINED
BY TYPING CONTROL-C.
INHIBIT PRINTOUTS 'PAR'',''GLP'',"'TST13 BNK XX''.

NUMBER OF TEST (0-13) TO RUN FIRST,
"NORMALLY USED WITH BIT14

(LOOP ON TEST)

CONTROL=C OPTION

CONTROL C [*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 THE DIAGNOSTIC.

[4.3]

STARTING ADDRESS= 200
RESTART ADDRESS
= 250 OR 200
RESTART AT 200 CLEARS PASS COUNT

[4.4]

($PASS)

AND PRINTS ‘‘CZKMAF'' TITLE.

PROGRAM AND/OR OPERATOR ACTION

2)
3)

LOAD PROGRAM INTO MEMORY USING ABSOLUTE LOADER.

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

THE FOLLOWING IS AN EXAMPLE WITH EXPLANATIONS

THE PRINTOUTS EXPECTED.

"UXXXX=YYYYY'

sADDRESSES OF

"PAR"’

;IF PARITY OPTION SELECTED

"GLP"’

:1F LONG GALLOPING OPTION SELECTED.

TEST BOUNDARIES.

(ZKMA

MACY11

CZKMAF .P11

30A(1052)

05-MAR-79

:
05-MAR-75 09:02

09:02

PAGE 6

SEQ 0006

;PRINTED AS TST11

IS ENTERED.

"TST13 BNK Q0'*
"'TST13 8Nk 01°°
ETC...

;ENTERING BANK 00 IN TEST 13.
JAND BANK 1...
SJUNTIL ALL BANKS (UP TO 7) HAVE BEEN TESTED.

"REL"’

sTHE DIAGNCSTIC RELOCATES TO HIGHEST

"TST13 BNk 00°°

s TESTING BANK 00 IN TEST 13

;LOCATIONS UNDER TEST AND RUNS TSTO-TST13 AGAIN.
(RELOCATED STATE.)

;NOTE-ONLY BANK 00 IS TESTED IN THE RELOCATED STATE.
"PASSHXX"'

;WHERE “XX'' IS THE PASS NO.

J
— ) i e i il i h ol
xuwwwmwuwwwww

N2V
NN
NN 4O

e FORGCERYITLYR

ADDITIONAL PRINTOUTS

4.5

NG PAR'’

;PRINTED IF PARITY SELECTED BUT NOT AVAILABLE.

"NO KT"'

;PRINTED IF SWR BIT 12 IS SET AND NO MEMORY
sMANAGEMENT AVAILABLE.

LONG GALLOP OPTION

NORMAL WORST CASE SR SETTING = 0000.

SR = 200.

FOR LONG GALLOP

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.0]

PROGRAM HALTS
THIS

(NORMAL+ ERROR)

IS A LIST OF

IN A LOCATION NOT

MAY BE

DUE

EXPECTED HALTS.

IN THIS LIST AND IT

TO A DEVICE

THE

TEST HALTS

IS LESS THAN 776,

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

SAVR6 [LOC.

3501.

112

REASON

TRAP TO LOC. 4

RECOVERY

EXAMINE R6, IT CONTAINS
THE POINTER TO THE PC

WHERE
——

POWER

FAIL

THE

TRAP OCCURRED.

POWER UP WILL

RECOVER

IF _IN CORE MEMORY. IF
NOT CORE OPERATICN IS UNDEF INED.
1714

HALT AT END OF
TEST

SWITCH SET.

PRESS CONTINUE

SUBTEST.

TO GO T0

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

09:02

PAGE 7

SEQ 0007

6156

HALT ON ERROR

PRESS CONTINUE.

6240

CONTROL-C TYPED

PRESS CONTINUE TO RE-

SWITCH SET.

OR FATAL ERROR
OCCURRED

(6.0

ERRORS

£6.1]

ERROR MESSAGE FORMAT

START TEST.

ISEM£$R0R PRINTOUT CONSISTS OF 6 OCTAL WORDS

"LOCATION

GOOD

BAD

ERROR

IN THE FOLLOWING

PASTLG"'

"'ADR ERR'' WILL BE PRINTED PRIOR IF AN ADDRESSING ERROR IS SUSPECTED.
"PAR ERR'® WILL BE PRINTED PRIOR IF A PARITY ERROR TRAP GCCURRED
*CAUTION! IF PARITY ERROR THE GOOD DATA PRINTOUT IS THE
PARITY MODULE UNIBUS ADDRESS THAT FAILED.

WHERE

LOCATION=
GOOD
=
BAD
=

FAILING MEMORY LOCATION
GOOD DATA [DATA THAT WAS EXPECTED]
BAD DATA [DATA THAT WAS FOUND]

PROGRAM COUNTER AT ERROR CALL.

PASFLG

CONTENTS OF

ERROR

FAILING ERROR NO.
(SEE SEC.

(SEE SEC 6.2 - ERRUR DICTIONARY)

LOCATION PASFLG.THIS MAY NOT BE RELEVANT.

6.2-ERROR DICTIONARY)

‘THE TEST WILL CONTINUE AFTER THE ERROR PRINTOUT.

!"NO KT'' WILL BE TYPED_IF
!MANAGEMENT

TESTING ABOVE 28K SELECTED AND NO MEMORY

IS FOUND. (30K SYSTEM DOES NOT NEED KT SUPPORT)

!"NO PAR'" WILL BE TYPED IF PARITY OPTION SELECTED

‘AND NO PARITY MODULES WERE FOUND.
(FATAL ERRORS)

"ERR_#XXXXXX'' WILL BE TYPED WHERE ‘XXXXXX'' IS
THE_ERROR NUMBER.

8; gzgogfiRgsE SEC.

THE DIAGNOSTIC WILL USUALLY HALT ON THIS

6.2 -ERROR DICTIONARY = FOR DESCRiPTIONS

(APT MODE ERRORS)
ALL ERRORS ARE

TREATED AS FATAL UNDER APT.

WHEN AN

ERROR OCCURS UNDER APT A ‘*1'" IS STORED IN LOCATION
$MSGTY
AND THE PROGRAM HALTS AT FATHLT.

TYPE

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02
384

385

PAGE 8

$FATAL CONTAINS THE ERROR NO.

388
389
390
gg;}

09:02

THE FAILING BANK NO. UNDER TEST

(6.2

293

SEQ 0008

IN THE LOW BYTE AND

IN THE HIGH BYTE.

ERROR DICTIONARY
THIS IS A LIST OF ERROR NUMBERS PRINTED AND POSSIBLE

394

CAUSES FOR THE ERROR.

396

BRACKETS.

395

THE ROUTINE NAME WHERE THE ERROR CALL ORIGINATED IS GIVEN IN

397
398
288

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

401

.ENDR

404
28(5)

ERR # 0

; [BUSER] BUS ERROR TRAP TO LOC. 4 OCCURRED
3
THIS ERROR IS NOT PRINTED AND IS FOR "APT'' USE.

407

ERR # 1

;CTSTTRPIFATAL DATA ERROR

203
408

409

2}?
412
413

;LOCATIONS 0000-430 FAILED 1°'S + 0'S TEST.

:RO = GOOD DATA

;R1 = ADDRESS OF FAILING LOCATION.

ERKk # 2

414

;[APTSIZ] APT FATAL ERROR
sAPT MEMORY TABLES NOT SETUP CORRECTLY.
sCHECK LOCATIONS $MAMS1

2}2

[430] TO $MADR4[446]

;. FOR CORRECT MEMURY SIZE DATA.

417
418
419
420
25}

ERR # 3

;[TSTSIZ]
OPERATOR FATAL ERROR
sSELECTED MEMORY SIZE GREATER THAN 28K
: (30K SYSTEM DOES NOT NEED KT SUPPORT), BUT
SR BIT12 (10000) NOT SET.
:SET BIT12 AND RESTART AT 200.

423
Ly
425
426
25;

ERR # 4

;[TSTSIZ]
OPERATOR FATAL ERROR
;LOWEST SELECTED TEST LIMIT IS HIGHER THAN
JHIGHEST TEST LIMIT.
SET LOCATIONS ‘'LOWTWO'‘T322]
:TO "HIGHADD'* [330] CORRECTLY AND RESTART
;AT 200.

429
430
431
432
433

ERR # 5

;LTSTO]
TEST SEQUENCE ERRCR
:TSTO HAS BEEN ENTERED OUT OF SEQUENCE
;TESTN SHOULD = 00
:THE DIAGNOSTIC HAS BEEN CORRUPTED.
:IF POSSIBLE SELECT ANOTHER 4K BANK

436
437

ERR # 6

2%‘;

438

439

:BANK O AND RERUN THE TEST ON THE FAILING MEMORY.

;[TSTOJ DUAL ADDRESSING ERROR
;FOR THIS ERROR THE GOOD DATA PRINTED IS AN

;APDRESS.

THIS IS THE ADDRESS SELECTED WHEN

:THE SAME DATA WAS WRITTEN INTO THE FAILING

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02
440
441

442
443

;LOCATION.

;ERR "7

446

451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466

467
4L68
469
470
471
472
473
474
475
476

478

482
483
484
485
486

487

458
489

499
491

492

493
494

495

SEQ@ 0009
CHECK RANK SELECT CIRCUITRY

;LTSTO] ADDRESS AND DATA ERROR
s IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA
;ERROR ALSO.

;JERR

:ERR

;ERR

;[TSTO] DATA ERROR

;LTSTO] ADDRESSING ERROR

;THE FAILING ADDRESS RESPONDED BUT

;ERR

:STESTN [404] SHOULD = 01

THE DIAGNOSTIC HAS BEEN CORRUPTED.

;LTST1] DATA ERROR
: COMPARE GOOD AND BAD PRINTED DATA, FAILING
;DATA BITS MAY SHORTED OR SWAPPED.

;LTST2] TEST_SEWUENCE ERROR

:STESTN [404] SHOULD = 02
3

;ERR

IS NON-

MAY BE A DUAL ADDRESSING PROSBLEM.

;LTST1] TEST_SEQUENCE ERROR

:
;ERR

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

SEXISTENT.

THE DIAGNOSTIC HAS BEEN CORRUPTED.

;LTST2] ADDRESS OR DATA ERROR
;1F "'ADR ERR'' NOT PRINTED THEN THE BYTE SELECT
;CIKCUITRY PROBABLY FAILED.

;JERR

;LTST3] TEST_SEQUENCE ERROR

:$TESTN [404] SHOULD
= 03
3

;ERR

477

479
480
4«81

PAGE 9

JWRITTEN INTO THE FAILING LOCATION WAS

445

447
448
L4659
450

09:02

;ERR # 20

THE

DIAGNOSTJC-HAS BEEN CORRUPTED.

;[TST3] DUAL ADDRESSING ERROR

sDUAL ADDRESSING PROBLEM FOR BITS THAT DIFFZR
:IN GOOD AND BAD DATA PRINTOUT.

;CTST3] DUAL ADDRESSING ERROR

;FOR THIS ERROR THE DATA PRINTED IS AN ADDRESS.
;THIS IS THE ADDRESS THAT WAS SELECTED WHEN THE

;SAME DATA WAS WRITTEN INTO THE FAILING LOCATION.

;ERR # 21

JERR # 22

;[TST3] DUAL ADDRESSING ERROR

;SAME AS ERROR #20 EXCEPT DIFFERENT DATA
; (SWAPPED BAKPAT) WAS WRITTEN.
;LTST4] TEST SEQUENCE ERROR

:STESTN [404] SHOULD
= 04,
3

JERR # 23

THE DIAGNOSTIC HAS BEEN CORRUPTED.

;LTST4] DUAL ADDRESSING ERROR

;IF PASFLG = O THEN THE FAILING LOCATION

JAND FAILING DATA ARE DUAL ADDRESSES.

(ZKMA
MACYN 30A(1052)0 OgsflAR-79
CZKMAF. P11
05-MAR-79
496

:ERR # 24

;ERR # 26

THE DIAGNOSTIC HAS BEEN CORRUPTED.

;[TST5] DATA ERROR
;DATA WRITE OR READ ERROR.
;LTST5] MARCHING 1°'S AND 0'S DATA ERROR
;IF PASFLG=0 FAILED MARCHING 1'S + 0'S IN
:

MAX TO MIN DlRECTION

MIN TO MAX DIRECTION

i vV
n b i b b anlh anl et anl
o VOOV
W =

;IF PASFLG=3
:

;ERR

SEQ 0010

;$STESTN [404] SHOULD = 05

;IF PASFLG=1

;ERR

PAGE 10

;LTSTS5] TEST_SEQUENCE ERROR
;

JERR # 25

09:02

FAILED MARCHING1'S + 0'S IN

FAILED MARCHING 0°'S + 1'S IN
MAX TO MIN DIRECTION.

;[TST5] MARCHING 1'S AND 0'S DATA ERROR

;IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA IS
;CHECKED IMMEDIATELY AFTER BEING WRITTEN.

;LTST6] TEST SEQUENCE ERROR

sSTESTN SHOULD = 06

;THE DIAGNOSTIC HAS BEEN CORRUPTED.

JERR # 31

;[TST6] VOLATILITY/REFRESH TEST ERROR
;1F PASFLG=0 BAKPAT WRITE OR READ ERROR.

;IF PASFLG=1
:
;

521

:
.IF PASFLG=2

:IF PASFLG=3
:
;ERR # 32

THE FAILING LOCATION CHANGED WHILE
ANOTHER LOCATIONS WAS WRITTEN FOR
2 MS.
THE OTHER LOCATION IS SAVED

IN SAVLOC [352]
SWAPPED BAKPAT (77400 OR 77000)

WRITE OR READ ERROR.

SAME AS IF PASFLG=2 EXCEPT
'THE DATA IS SWAPPED B/XPAT.

;LTST7] TEST SEQUENCE ERROR
;STESTN SHOULD = 07

\Nn

;ERR

a .,p.

:THE DIAGNOSTIC HAS BEEN CORRUPTED.

;LTST7] SHIFTING DIAGONAL DATA ERROR

;IF PASFLG=C BAKPAT WRITE OR READ ERROR.
;IF PASFLG=1
BAKPAT READ CHECK ERROR
IF PASFLG GREATER THAN 1 BUT EVEN VALUE THEN:

THE FAILING LOCATION COULD NOT BE WRITTEN INTO.

:IF PASFLG GREATER THAN 1 BUT ODD VALUE
]

:
JERR # 34

THE

THEN:

FAILING LOCATION WAS WRITTEN CORRECTLY

BUT LOST THE DATA.

;CTST10] TEST SEQUENCE ERROR

:$TESTN SHOULD = 10

THE DIAGNOSTIC HAS BEEN CORRUPTED.

JERR

;[TST10] BAKPAT DATA ERROR

JERR

[TST1OJ READ RECOVERY DATA ERROR

;BAKPAT WRITE OR READ ERROR INTO THE FAILING LOCATION.
THIS ERROR CAN BE REPORTED BY

TST10 AND

TST11,

:(THEY SHARE CODE). SEE STESTN [404] FOR WHICH TEST FAILED.

CZKMA
MACYT 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

552

09:02

PAGE 11

SEQ 001

;FOR BOTH TESTS COMPARE THE GOOD AND BAD DATA AT THE FAILING

222

:LOCATION TO SEE WHICH BITS FAILED.

555
556
ggg

:ERR # 37

;[TST10] READ RECOVERY DATA ERROR
;IDENTICAL TO THE PREVIOUS ERROR EXCEPT SWAPPED BAKPAT IS
;USED AS WRITE AND READ DATA.

559
560

:ERR # 40

;[TST11] TEST SEQUENCE ERROR
*S$TESTN SHOULD = 11

563
564

:ERR # 41

;[TST12] TEST SEQUENCE ERROR
*S$TESTN SHOULD = 12
:
THE DIAGNOSTIC HAS BEEN CORRUPTED.

567
568
569
570
571
572

:ERR # 42

;[TST12]) WORST CASE CORE TEST DATA ERROR
;IF PASFLG=1
COMPARE GOOD AND BAD DATA FOR FAILING BITS.
;IF PASFLG=2
THE FAILING LOCATION WAS WRITTEN AND READ
:
WITH GOOD DATA,BUT FAILED READ CHECK
READING IN THE MIN. TO MAX DIRECTION.
IF PASFLG=3
SAME CONDITIONS AS PASFLG=2 EXCEPT FAILED

575
576
2;5

:ERR # 43

;LTST12] WORST CASE CORE TEST DATA ERROR
IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA WRITTEN
AND READ IS COMPLEMENTED.

579
580
gg}

:ERR # 44

;[TST13] TEST SEQUENCE ERROR
*$TESTN SHOULD = 13
:
THE DIAGNOSTIC HAS BEEN CORRUPTED.

583
584
585
586

:ERR # 45

;CTST13) 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.
:1F PASFLG=77402 DATA ERROR FOUND IN FAILING LOCATION AFTER

589
590

:ERR # 46

594
595
596
597
598

:ERR # 47

601

:ERR # S0

gg}

222

g;z

ggg

SMALL TEST PROGRAM RUN IN FAILING BANK.

trsr133 WRITE RECOVERY TEST DATA ERROR
DATA ERROR FOUND JUST BEFORE THE SMALL TEST

uAs TO BE RUN IN THE FAILING BANK. TO AVOID 'BLOWING'' UP
:WHEN THE SMALL TEST IS RUN TST13 IS ABORTED.

283

trsr13] WRITE RECOVERY TEST DATA ERROR
IDENTICAL TO ERROR #XXX EXCEPT THE DATA WRITTEN
AND READ IS DIFFERENT.(177667).
;177667 1S THE COMPLEMENT OF '‘JMP (RO)'* (110) WHICH IS
:THE ESCAPE FROM THE SMALL TEST PROGRAM RUN IN THE BANK

*UNDER TEST.

603
604
ggg

607

DOING THE READ CHECK FROM MAX TO MIN DIRECTION.

591
235

602

THE DIAGNOSTIC HAS BEEN CORRUPTED.

;[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] CONTAIN. THE PC WHERE THE TRAP OCCURRED.

ERR # 51

;[PARITY] PARIFY TRAP FATAL ERROR

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02
;

09:02

(BIT15)

SET.

[NWJ OPERATOR FATAL ERROR

TESTING ABOVE 28K WAS SELECTED, BUT NO MEMCRY MANAGEMENT
OPTICN WAS FOUND. (30K SYSTEM DOES NOT NEED KT)

;ERR # 53

SEQ 0012

A PARITY TRAP TO 114 OCCURRED, BUT NO PARITY MODULES COULD BE FOUND

:WITH AN ERROR BIT

;ERR # 52

PAGE 12

RESET SWITCH OPTIONS AND RESTART AT 200.

[PARITYJ OPERATOR FATAL ERROR

PARITY TESTING WAS SELECTED BUT NO PARITY MODULES

UERE FOUND.

:
.REPT

£6.3]

ERROR HISTORY

RESET SWITCH OPTIONS AND START AT 200.

LOCATIONS IN MEMORY ARE SET ASIDE TO COLLECT A HISTORY
OF THE FAILING BITS IN A PARTICULAR MEMORY BANK.
THIS
gé;?"l“gSCOLLECTED FOR EVERY ERROR REGARDLESS OF SWITCH
NORMALLY THE DATA IS OUTPUT AT

THE END OF

TESTING, BUT

IF_CONTROL=C IS TYPED IT IS OUTPUT AT THE END OF
CURRENT TEST.

THE

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

ERROR HISTORY FORMAT:
ERROR

BANK

COUNT

ERROR

BIT THAT FAILED [NUMBER OF

BANK

COUNT

:
WHERE

[6.4]

€RROR RECOVERY

THE FAILING BIT IN DECIMAL

I.E.

0-15 WILL BE TYPED OUT OR THE WORDS '‘ADR ERR'’ OR ‘PAR ERRTM* WILL
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

AOFOTO
RO
4K, A1 FOR 4 TO 8K AND SO ON
NUMBER OF TIMES THIS MEMORY BANK FAILED.,
(377 1S 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.

CZKMA
MACY11 30A(1052)
O05-MAR-79
CZKMAF .P11
05-MAR-79 09:02
664
gg

(7.0

09:02

PAGE 13

SEQ 0013

PRESTRICTIONS

MEMORY UNDER TEST SHOULD BE CONTIGUOUS. FOR SYSTEMS HAVING NON-

g;?

BOTH READ AND WRITTEN IN CONSECUTIVE LOCATIONS.)

668
669

CONTIGUOUS MEMORY THE MEMORY BOUNDARIES SHOULD BE DEF INED BY THE
OPERATOR. (CONTIGUOUS MEMORY IS DEFINED AS A MEMORY THAT CAN BE

672
673
674
675

[8.0]

MISCELLANEOUS

2773

[8.1]

ADDRESS/BANK RANGES IN OCTAL AND DECIMAL

&7
680
681
682

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-

ggz

TICULAR 4K BANK.

685

BANK NO.

DECIMAL

OCTAL
RANGE

USED/CONTENT

UNIBUS ADDRESS

688
689
690
gg;

0
1
2
3

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

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

0
NOT
NOT
NOT

772340

693

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

100000-117776

NOT USED

gg(;

694
695
696

gg;

5
6
7

RANGE

120000-137776
140000-157776
160000-177776

[PAGE ADDRESS REGISTER]

0000
USED
USED
USED

NOT USED
NOT USED
NOT USED ON 30K (LSI-11) SYSTEMS
1

1600

772342

699
700
701
702

8
9
10
n

32K=-36K
36K-40K
40K=44k
44K-48K

200000-217776
220000-237776
240000-257776
2@000—277776

2
3
&
5

2000
2200
2400
2600

772344
772346
772350
772352

704
705
706

12
13
14

48K=-52K
52K=56K
56K-60K

300000-317776
320000-337776
340000-357776

6
1
2

772354

3000
3200
3400

3600

400000-417776

4000

703

7.76.?

60K=-64K

709

64K-68K

21
22
23

84K-88K
88K=92K
92K ~96K

710
4}
712
713
714
715
716

;};
719

17
18
19
20

360000-377776

68K~72K
72K=76K
76K-80K
80K -84K

420000-437776
440000-457776
460000-477776
500000-517776

96K =100k

100k =104k

5
6
1
2

4200
4400
4600
5000

600000-617776

6000

620000-637776

6200

520000-537776
540000-557776
560000-577776

3
4
5

5200
5400
5600

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

720

104K=108K

09:02

PAGE 14

SEQ 0014

640000-657776

721

108k=112K

660000-677776

724
725

29
30

116K=120K
120K=124K

;g%

;gg

728
729

730

720000-737776
7640000-757776

S
6

7200
7400

760000-777776

7600

772354

THE BANK IS ABOVE 28K PAR NO.

1 WILL BE SET TO THE

BEGINNING PAGE.
FOR EXAMPLE IF THE TESTING WAS TO
BEGIN WITH BANK 8 PAR NO. 1 WOULD EQUAL 2000, PAR 2

734

WOULD EQUAL 2200 ETC.

(8.2

EXECUTION TIME

;2(1)

HERE ARE SOME TYPICAL EXECUTION TIMES.

742
743
744
745
746

LSI=11
LSI=11

;2;

7000

IF THE LIMITS OF TESTING ARE SET BY THE OPERATOR AND

732
733

;%g

124K=128K

700000-717776

6600

NOTES:
1.
THE_PAR (PAGE ADDRESS REGISTER) CONTENTS ARE SHOWN IN A TEST THAT SELF SIZES.

731

735
736
737

112Kk=116K

6400

[8.2]

AND 4K:= 100 SECS.
AND 8K:= 5 MINUTES.

PASS COUNT AND TEST NO. LOCATIONS

;lgg

$PASS [406] = PASS COUNT = CLEARED BY START AT 200.

751
752
753
754

$TESTN [404] = CURRENT TEST NO. AND RELOCATION, PARITY FLAGS.
WHERE
:
LOW BYTE = TEST NO.
IF BIT15 = 1 TEST IS RELOCATED

;gg

757

;gg

IF BIT13 = 1 PARITY UNDER TEST.

[8.4]

760
761
762
763

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 THE PROGRAM WHEN
IT IS RELOCATED.

;gg

;29

768

769
770
771
772
773
774
775

STACK POINTER

(8.5

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 0
IN THE SAME STATE [I.E. STATE OF RELOCATION] AS IT WAS BEFCRE
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 AND ON POWER-UP
OPERATION IS UNDEF INED.

CZKMA

MACY11

CZKMAF .P11

30A(1052)

05-MAR-79

05-MAR-79 09:02

09:02

PAGE 15

SEQ 0015

779

[9.0]

PROGRAM DESCRIPTION

782

[9.1]

NARRATIVE FLOW CHART

784
785

EXPANDS DEPENDING ON HOW MUCH MEMORY IS UNDER TEST.

789
790

THE FOLLOWING NARRATIVE FLOW CHART DESCRIBES MAJOR
PROGRAM OPERATION.
FOR THE PERSON WHO NEEDS DETAIL THE
TAG ASSOCIATED WITH THE OPERATION IS GIVEN IN BRACKETS.

791

792

7732

THE TEST IS LOADED INTO LOCATIONS 0000 - 7744 BUT

SEE STEP 6. BELOW FOR A DETAILED EXPLANATION.

FOR THIS DISCUSSION SWITCH SETTINGS ARE IGNORED AND EVERYTHING IS

ASSUMED ENABLED.

.7732

[START]

PRINT '‘CZKMAF'' TITLE

797

[TSTRP]

SAVE DATA FRCM LOCATIONS 0-376

800
801
gg%

[TSTRP] TEST LOCATIONS 0-376 BY WRITING AND
READING 1'S AND 0'S.
NOTE THIS IS THE ONLY
EXPLICIT TESTING OF THESE LOCATIONS.

804

4&.

805

806

NOTE:

g:'lfl)

g}%

814

822

823
824
825
ggg

828
829
830
831

SIZE MEMORY BY WRITING INTO SUCCEEDING

SgKABLE MEMORY MANAGEMENT AND SIZE MEMORY ABOVE

809

818
819
820
821

[SLFSIZ]

MEMORY LOCATIONS UNTIL TIMEOUT TRAP TO 4 OCCURS,

OR 30K BOUNDARY REACHED.

g?)g

815
{83}9

INTO 7744-10314.

IF UNDER XXDP CHAIN MODE IN 30K SYSTEM, SYSTEM IS SIZED

TO 28k.

[TYPSIZ]

TYPE MEMORY TEST LIMITS.

[SETSTK]

SPACE IS SAVED AT THE END OF

THE TEST

FOR AN ERROR HISTORY.
FOR EACH 4K BANK 18 BYTES ARE SAVED
IN THE FOLLOWING FORMAT:

'ADR ERR!PAR ERR!
'BIT14
!BIT15
!
'BIT12
!BIT13
!
!BIT10
!BIT11
!

'8IT08

'BITO6
'BIT04
'8IT02
'8ITO0

!BITO9

!BITO7
!BITOS
!BITO3
!BITO1

!
!
!
!

IF GREATER THAN 4K UNDER TEST THE ABSOLUTE LOADER
(300 ADDRESSES) IS APPENDED.
IF GREATER THAN 4K
AND ("DER XXDP CHAIN MODE 5376 (OCTAL) ADDRESSES
ARE AFPENDED TO THE TEST.
THIS SAVES THE XXDP

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

832
833

09:02

PAGE 16

SEQ 0016

MONITOR, AND ALLOWS THE LOCATIONS OCCUPIED BY XXDP
TO BE TESTED.

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

l;(S)DtSJlf.g g;g?:% BIT 15 IS SET,

IF #172334 FOUND BIT 14

[CLRMEM]

CLEAR MEMORY CURRENTLY UNDER TEST

(CCONT]

10.

[TSTO]
EXECUTE
DESCRIPTIONS.

11.

CTSTSCP]
COMES HERE AFTER EACH TEST AND IF
CNTRL=C TYPED THEN GO TO ERROR HISTORY PRINTOUT.

DISPATCH TO TSTO
TEST O.

SEE SECTION 10 FOR TEST

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 TG 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

UEEREI(;AN THEN AT LEAST TELL WHICH BANK OF MEMORY
FAILED.

14.

[RELOC]

TO TEST

THE PROGRAM RELOCATES TO HIGH MEMORY

THE LOCATIONS

IT OCCUPIES.

(430-ENDPRG).

WHERE "ENDPRG'' IS THE CONTENTS OF ENDSTK[306].
I.E THE LAST PROGRAM ADDRESS.
NOTE 'REL'' IS

PRINTED JUST PRIOR TO THE ACTUAL RELOCATION.

15.

TESTS 0-13 ARE RUN AS DESCRIBED ABOVE EXCEPT

ONLY BANK O LOCATIONS 430-ENDPRG ARE TESTED.

16.

[RELOER]

RELOCATE THE PROGRAM BACK TO LCWER

17.

[LOWER]
HISTORY.

IF CONTROL=-C TYPED GO PRINT ERROR

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

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

UPPER MEMORY.

20. [MAXADR]

REPEAT STEPS 18 + 19 UNTIL ALL

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 0 9:02

09:02

PAGE 17

SEQ 0017

MEMORY ABOVE 28K IS TESTED.

21. [ENDPAS]
22. [$EOP]

PRINT ERROR HISTORY OF FAILING BITS
DISABLE PARITY MODULES.

PRINT *"PASS#XX"'

[9.2]

TEST TITLES

SEE

THE

TEST HEADINGS

TEST
TEST
TEST
TEST

IN THE LISTING FOR DETAILS ON EACH 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

TEST 4:

DUAL ADDRESS TEST B

TEST 6:

CELLS'

TEST 5: MARCHING 1'S AND 0'S

TEST ;:

TEST
0:
TEST 1 1:
TEST
2:
TEST 1 3:
1

[10.0]

VOLATILITY TEST

SHIFTING DIAGONAL

READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL
READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST

WORST CASE TESTING FOR CORE MEMORY
WRITE RECOVERY TEST

RXDP & ACT11 & APT OPERATION
RXDP CHAIN MODE

OPERATION IS IDENTICAL

TO STAND ALONE EXCEPT:

NO ''CZKMAF'' TITLE IS PRINTED.

AT THE END OF

IF 30K SYSTEM ONLY 28K WILL BE TESTED IN XXDP CHAIN MODE

2.
3.

NO _TEST 13 PRINTOUTS SUCH AS ‘‘TST13 BNK 00'".
THE PROGRAM ALWAYS HALTS ON ERROR.

OPERATION IS
1.

2.
3.

TEST

(SENDAD)

CONTROL

IS RETURNED TO

THE RXDP CHAIN MONITOR VIA LOCATION 42.

IDENTICAL

TO STAND ALONE EXCEPT:

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 &2.

APT

OPERATION IS SIMILAR TO STAMD ALONE EXCEPT:

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02
YA
945
96

1.
2.

9?7

948
949
950
951

gg%

PAGE 18

ALL PRINTOUTS CAN BE INHIBIFED BY SETTING BIT S OF

BYTE LOCATION 421 (SENVM).
ALL ERRORS CAUSE LOCATION 400 (SMSGTY) TQO BE SET =
0001 AND THE PROGRAM HALTS AT LOCATION 6240 (FATHLT).
LOCATION 402 (SFATAL) CONTAINS THE ERROR NO. IN THE

NOTE:

ggg

L.ENDR

SEQ 0018

THE SOFTWARE SWITCH REGISTER BECOMES LOCATION 422 ($SWREG).
AUTO SIZING CAN BE INHIBITED B8Y SETTING BIT 7 OF BYTE
LOCATION 421 (SENVM).

go¥fevrs AND THE FAILING MEMORY BANK NO.

954

957
958
959

09:02

TIC,

IN THE HIGH

THE ENVIRONMENTAL MODE BYTE SHCULD BE SET TO 240 WHILE THE SOF TWARE

ENVIRONMENTAL BYTE SHOULD BE SET TO 001.

(ZKMA

MACY11

CZKMAF P11

960
961
962
963
964
965

.ENABL
.NLIST

30A(1052)

05-MAR-79

05=MAR-79 09:02

(9:02

PAGE 19
SEQ 0019

ABS
MD,MC,CND

.LIST
ME,BIN,SEQ,LOC
TITLE
C(ZKMA
;*COPYRIGHT (C) MAR(CH 1979
s*DIGITAL EQUIPMENT (ORP.

329

tMAYNARD MASS.

ggg

tPROGRAM BY DIAGNOSTIC

970

,'THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC

g;;

s *PACKAGE

g;z

160000

01754
ENGINEERING

(MAINDEC-11-DZQAC-C3),

$SWR=160000

JAN 19,

1977.

;sHALT ON ERROR, LOOP ON TEST,

INHIBIT ERROR TYPOUT

975
97¢

977

g;g

980
981
982
983
984
985
ggg

;:TRAP CATCHER OF

000240
000042

SCOPE

000042
000000

.SBTTL

932
93

994

995
996

ggg

999

1000
1001

000046

000052

000C70
GO0C76

sFOR ACT/XXDP

ACT11 HOOKS

'iit’tttttt't**tt'iQttttt"ttt'ttt.ttfitt.tt'ttt.'tttt"tt"t'tt
$SVP(C=.
.=46

(NO156

s SAVE PC

$ENDAD

000052
040000

.=52
.WORD

000044

000070

HOOKS REQUIRED BY A(CT11

000044
000046

012737
000000

=NOP
.=42
.WORD

ggg

.+2 AND HALT FOR 0=776 LOCATIONS

.=$SVP(

000136

000024

PWRDN:

.=70

MOV
HALT

;:1)SET LOC.45 TO ADDRESS OF

40000

#PWRUP
, a# 24

2:2)SET LOC.52 TO 4C000
;. RESTORE PC

SENDAD

[N .SEOP

CZKMA

MACY11

(ZKMAF (P11

1003
1004
1005

il auilh
el

ooooooooog

000104
000112

) cath i

ny ) i

o Volo RNTo NV, P oYW, S B (=

ool ol
i
sl
ol
il st o
i
-l -

09:02

000104

2
1007

1008
1009

30A(1052)
05-MAR-79
05-MAR-79 09:02

013727
000000

000001

000400

PAGE 20

ACT11

HOOKS

SES 0020

‘104
GET HERE IF AN ILLEGAL TRAP TO LOC. 4 OCZURRED.
BUCER
MOV
k1 #MSGTY
sTELL APT FATAL ERROR#000

HALT
:*ERROR* TRAP TO LOC. 4 OCCURRED.
;114 AND 116 ARE RESERVED FOR PARITY TRAP VECTORS.
SETUP IN

:ROUT INE BSSXN”

000120

;* WRITE MEMORY BACKGROUND
ch

——

. %

;"
o
e

013700

000316

010021
020105
103775

WRTMEM:

2%:

000207
013706
012700
060600

000350
006112

PWRUP:

THAT R4

IS POINTING TO THE LOWEST LOCATION AND RS

HIGHEST LOCATION TO BE WRITTEN. THE PROGRAM LEAVES THE
SUBROUTINE WITH RO CONTAINING THE CONTENTS OF BAKPAT.

MOV
MOV

R4 ,R1
Q#BAKPAT ,RO

MOV

RO, (R1) +

sSTARTING FROM THE LOWEST LOCATION WRITE THE

L
RTS

;RETURN FROM THE SUBROUT INE

a#SAVR6, SP

JRESTORE STACK POINTER

gMg

MOV

g;.RS

sMEMORY TO BACK GROUND PATTERN

#PNTMES-BEGIN,RO .
SP.RO
sGET THE

004710
000120

JSR
ASCIZ

PC, (RO)
/P/

000411

START

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

NOP

NOP
BR

SWREG:
AL RS

SBTTL

000200

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

MOV
ADD

000176
000000

013706

000350

TO THE

s
o

- %

010401

THIS ROUTINE IS USED TO WRITE THE MEMORY BACKGROUND TO
THE VALUE STORED AT LOCATION BAKPAT. THE ROUTINE ASSUMES

=176

.WORD
s

JRELATIVE TO LOCATION OF DIAGNOSTIC IN THE CORE

;GO TO THE TYPE ROUTINE AND TYPE CR, LF AND A ‘P’

JRETURN TO ACT11/XXDP MONITOR

;IF QUICK VERIFY=RESET ELSE NOP

sIF

RESTRT

INDIRECT ADDRESS OF LOCATION TPCRLF

QUICK VERIFY=CLR #-1

ELSE

INC #0

;IF QUICK VERIFY=BR .-4 ELSE NOP
JREPEAT TEST UNDER ACT11/XXDP

0
e 223221332323
2233222222¢2

START AND RESTART ROUTINES

RESTART AT 200 TO CLEAR APT TABLES

START:

MOV

R g
ImmmIIIIn

a#SAVR6, SP

;JSETUP STACK POINTER.

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02
1059

EXEEREREE

012703
00504

-OVv

.JE;_a

PAGE 21

1%:

CLR

000412
000400

START AND RESTART ROUTINES
#SUNIT ,R3

000042

000405

ANSTESTN+1

007744
000346

;ACT11 MODE?

RESTRT

;BRANCH IF YES
;ARE WE RELOCATED?
;BR IF YES= SINCE TPCRLF 1S RELOCATED ALSOsPRINT TITLE

RESTRT
PC,TPCRLF

043101

/CZKMAF
0/

RESTRT:

#ENDPRG ,R4

#SAVRS ,R3
(R3)+,R5
(R3)+,SP

#340,~(SP)
RO,=(SP)

.SBTTL
R

;LOAD R4 WITH THE ADDRESS OF THE END OF THE PROGRAM
geg¥SR23R;O POINT TO THE LOCATION SAVRS

:AND RESTORE R6 JUST IN CASE IT IS A RESTART
;PLACE THE STARTING ADDRESS OF THE TEST IN RO
sSET HIGH PRIORITY FOR RTI

SP.RO

000340

SEQ 0021
;CLEAR THE APT MAILBOX FROM SMAIL TO $DEVCT
sCLEAR A MAILBOX LOCATION
sDONE?
:BRANCH IF NO

={R3)

#SMAIL R3
1%
kel

006344
046513

NN
QLR

09:02

;GO TO ''START''-MAY BE REL.OCATED.
;IF RELOCATED SEE LOCATION SAVR6 FOR START.

APT PARAMETER BLOCK
A

A AR AR A A A AN A

AR R AR R A AR AR AR

AR AR R AR

R AR

A AR AR AR

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
M

$X=.

.=24
200
=4k
SAPTHDR

=.8X

223233

333333232332232222232322222222222222222;

2 :SAVE CURRENT LOCATION
;:SET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START UP
;sPOINT TO APT INDJRECT ADDRESS PNTR.
. :POINT TC APT HEADER BLOCK
JRESET LOCATION COUNTER

tttttttttt*t.tl*ttttttt'tttfifittttttttfifittititttt'i'l.tt'tt!t"t

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11
s INTERFACE SPEC.

001440
002260
000000
000024

MWD

o0
-J-A-J_J_a_a—ha-aE;-JE;E;E;a
-

R G

000024

000405

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$SUNITM:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

REL=STESTN+1

SMAIL

800,
1200.

DIAGNOSTIC

;.TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
: :ADDRESS OF APT MAILBOX (BITS 0-15)
s: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

SETEND-SMAIL/2 ;:LENGTH MAILSOX~E
TABLE (WORDS)

JIT WILL BE 0 IF THE PROGRAM IS IN THE LOWER
;CORE. BIT 7 OF THE BYTE WILL BE SET IF THE

09: 02

PAGE 22

APT PARAMETER BLOCK

SEQ 0027

000276

:
MMAVA

;PROGRAM IS IN A RELOCATED STATE AND BiT 5
;WILL BE SET IF PARITY BITS ARE BEING TESTED

.=$APTHD

sTHIS BYTE IS USED TO DETERMINE
sMANAGEMENT IS AVAILABLE OR NOT

000277

000300

009301

000277

000300

000301

TYPCNB:

$PRERR:

$ADERR:

.=MMAVA+1

.=TYPENB+1

;THIS BYTE DETERMINES

;A PARITY ERROR

.=$PRERR+1

000306

000302
000304

000306

STRTDI:
:
L OWBNK
PASFLG:

O S A

D el

S
I
T

000310
000312

000314

000314
000

000315

000

T R

D D e

oo~ (oYo AV AV ALV AN VAV IV IV IV F o P o F oF LB L F L

D D
D D ) D

000312
000312

000310

.=STRTD]+2
. =LOWBNK
+2

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

D e e

nggmg

WRN
=

.=PASFLG+2

.=ENDSTK+2

TYPCNT
:

.=DECWRD+2
.BYTE
0

SAVKBA:

BYTE

177560
177562
177564
177566
177572

TKS=

177560
177562
177564
177566
177572

000316

000377

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

000320
000322

000000
000430

RELBOT : BEGIN-50

D d D e
D
e
D

PBNK:
DECWRD:

.WORD

::
SWAPAT

.WORD

A A A A

THE PROGRAM HAS FOUND

.=$ADERR+1

sHOLDS BANK UNDER TEST FOR "‘TST BNK XX'' PRINTOUT.

sTHIS BYTE DETERMINES THE NUMBER OF WORDS
.70 BE TYPED
sTHIS LOCATION IS USED TO SAVE THE CHARACTER
sHIT BY THE OPERATOR

377

sBACKGROUND PATTERN WRITTEN TO MEMORY.

.EVEN

D o
D

— el
~N

ENDSTK:

sTHIS BYTE IS USED TO DETERMINE IF THE
;PROGRAM HAS ENCOUNTERED ADDRESS ERROR

D o

D D
D D D

000304

000302

IF MEMORY

:THIS BYTE IS USED TO DETERMINE IF THE
;TYPE OUT OF ERROR HAS BEEN ENABLED OR NOT

T SN

D ) e

T S

D S

—Y

WA
=
Somwombww-nooonwn..nzxwm-aoo& LHERERTEBRIEIREREEZZ
IS

CZKMA
MACY11 30A(1052)
05=MAR-79
CZKMAF .P11
05-MAR-79 09:02

AR A AR AR AR

;HOLDS LOWEST TEST ADDRESS WHEN RELOCATED.
AR R AR AR AR AR AR

AR AR AR RN AN RN RA AR R AR AR RN

sLOCATIONS TO BE MODIFIED IF LIMITS SET BY OPERATOR

000324
000326

000000
000000

LOWTWO
LOWADD : 0

000330

000000

HIGHTWO:

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

;HOLDS BITS 17:16 OF HIGH TEST ADDRESS

CZKMA
MACYN 30A(1052)0 OgsflAR-79
CZKMAF .P11
05-MAR-79

09:02

PAGE 23

APT PARAMETER BLOCK

1171
1172
1173
11764

006334

000000

017776

$HIMAX: 0
SMAXM:
17776

}};g

000340

000000

MAXMEM:

.WORD

1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193

000342
000344
000346

000000
000000
000000

SAVMAX:
SAVR4:

.WORD
. WORD

000350
000352
000354
000356
000360

000500
000000
000000
000000
000000

SAVR6:
.WORD
PARMAP: 0
SAVLOC: 0

}};g

1194
n

000332

037776

HIGHADD :

37776

SEQ 0023

JHOLDS BITS 15:0 OF HIGH TEST ADDRESS

;""t..'.".t....QtQ.lfi"'Q.Q'QQ.t..fi."l'.".fiQ....fi'fl"'*."...

000336

SAVRS:

JHOLDS BITS 17:16 OF MAXIMUM AVAILABLE MEMORY
;HOLDS BITS 15:0 OF MAXIMUM AVAILABLE MEMORY
;MAXIMUM CURRENT VIRTUAL MEMORY UNDER TEST

.WORD

;* SAVR6 POINTS TO WHERE THE PROGRAM STARTS EVEN WHEN RELOCATED.

PARSP:
PARPS:

0
0

BEGIN
;SAVE

; CONTAINS START ADDRESS WHEN RELOCATED ALSO.
;MAP OF PARITY MODULES UNDER TEST.

;TEST 6 STORES ERROR INFO HERE

SP DURING PARITY ERROR TRAP.
s SAVE PSW DURING PARITY ERROR TRAP.

;NOTE-PARSP +PARPS ARE NEEDED SINCE THERE IS
2 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

(ZKMA

MACY11

CZKMAF P11
1196

30A(1052)

00040C

Hgg
11”

1200

1207

1202
1203
1204
1205
1206
1207

000400

000400
000402
000404
000406
000410
000412

000000
000000
000000
000000
000000
000000

1214
1215
1216
1217
1218
1219
1220
1221

000424
000426

000
000
000000
000000
000000

000430
000431

000
000

1224

000421
000422

000000
000000

1225

1226
1227
1228

1229
1230

1231
1232
1233
1234

1235

1236
1237
1238
1239

}Sg?
1242

1243

PAGE 24

APT PARAMETER BLOCK

SEQ 0024

=400

.SBTTL

JEVEN

000414
000416
000420
000420

1222
1223

09:02

APT MAILBOX~ETABLE

3 ..Qt.t.'t..ttt'...fitt.'t...fitfi.t..t.t..ttfit...t.ttttl.t.""...

1208
1209
1210
1211

1212
1213

05-MAR-79

05-MAR-79 09:02

SMAJL :

$MSGTY: .WORD
$FATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: ..WORD
SUNIT:
.WORD

$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE :
$ENV:
.BYTE

SENVM:
$SWREG:
$USWR:
$CPUOP:
s
;*
i
;e
;*
; *

$MAMS1:
$MTYP1:
s

_BYTE
.WORD

.WORD
.WORD
v

.BYTE
.BYTE

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

AMAMS1
AMTYP1

:®

: :APT MAILBOX

;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER
;;PASS COUNT

;;DEVICE COUNT

;:1/0 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/04=01,11/05=02, 11/?0 03,11/40=04,11/45=05
11/70=06.PDA=07,0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOK
BIT
8=MEMORY MANAGEMENT

;:HIGH ADDRESS,M.S. BYTE
;;MEM. TYPE ,BLKA1

MEM.TYPE BYTE

(HIGH BYTE)

900 NSEC CORE=001

300 NSEC BIPOLAR=002
500 NSEC MOS=003
;;HIGH ADDRESS,BLK#1

000432

000000

WDR‘I:

.WORD

AMADR1

000434
000435
000436
000440

000
000
000000
000

SMMSZ:
$MTYP2:
SMADRZ:
SMAMS3:

.BYTE
.BYTE
.WORD
.BYTE

AMAMS2
AMTYP2
AMADRZ
AMAMS3

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'' ABOVE
;:HIGH ADDRESS ,M.S. BYTE
;;MEM.TYPE ,BLKA2
;:MEM.LAST ADDRESS,BLKA?2
::HIGH ADDRESS,M.S.BYTE

000442

000000

SMADR3:

.WORD

AMADR3

;;MEM.LAST ADDRESS,BLK#3

000441

000444
000445
000446
000450

000

000
000
000000

SMTYP3:

SMAMS4:
SMTYP4:
$MADRS:
SETEND:

.BYTE

.BYTE
.BYTE
.WORD

AMTYP3

~ AMAMS4
AMTYP4
AMADR4

;:MEM.TYPE ,BLKA3

;;HIGH ADDRESS.M.S.BYTE
;:MEM.TYPE ,BLKAS
; ;MEM.LAST ADDRESS,BLK#%

LMEXIT

.'.'.tt."'tt.'i'ttt!Qtt'...'t'.li'fi'.t."'."i.‘fi.fi".""t'.'

SBTTL

BEGIN OF AREA TESTED

(+20) WHEN PROGRAM RELOCATES.

CZKMA

MACY11

CZKMAF .P11
124(,

}gzg

1247

}%28
1250

000450
000500
000502

30A(1052)

05-MAR-79

05-MAR-79 09:02
177570

000500
010706
005746

000504
000510

010637
012737

000350
000070

1255
1256

000526
000532

012700
012710

1257

1258
1259
1260

000516
000522

000536

000540
000544

000550

1272
1273

1274

1275

1276

000614
000616

000620
000622

JMP

100002

001402

000167

103774
005741

004767
000001

1282
1283

000634
000636

000300
001370

1285
1286
1287

000642
000644
000650

1289

000654

1291
1292
1293
1294
1295
1296

000662
000666
000672
000676
000700
000702

1297
}2233

000656

000730

TSTRP:

000377
000316

000400

4%
,

001375

012710
012740
005777
000404
022626
012737

6%:

000400

8%:

105737

000006

2%:

000450

5%:

:TO PARERR

ONEPAS

JBRANCH IF NO

ANSPASS

;1S THIS THE FIRST PASS?

- TSTREL
TSTRP

SETSTK

#ENDPRG ,Ré4

#377,R0
RO, a#BAKPAT

MOV

RO, (R1)

;AND PSW OF 340
;1S THIS CODE RELOCATED?

;THIS CODE IS RELOCATED SO GET TEST SIZE.
;BRANCH IF 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
.

2%
-(R1)

'
:PREPARE TO TEST THE TRAP VECTORS

CMP

RO, (R1)
6%

:1S THE DATA 0K?

:BRANCH IF YES

JSR
1

PC,FATERR

;*ERROR* RFPORT
ERROR MESSAGE AND HALT AT FATHLT
sxxxxxxERROR NUMBER Tx#wwax

SWAB
BNE

RO
43

BNE
MOV
MOV

3$
#SMAIL ,R1
=(R4) ,~(R1)

BNE

SETSWR: MOV

000340
000700
177552

000420

:SAVE SP FOR FUTURE USE
;PREPARE FOR ANY FUTURE POWER DOWN

PC, (RO)+

(R1)+,(R4)+
R1,#SMAIL

TST

000176

ANSPRERR
aNTYPCNT

MOV
CMP

BEQ

005334

005701

012700

MOV
MOV

BLO
TST

005701

001365
012701
014441

JMP

MOV

CLR

2%:
3$:

020011

000626
000632

1290

000430

010011

1279
}Sg?

000652

BEQ

001403

1288

ONEPAS: TST

005001

012124
020127

000624

000640

BPL

007744

012700
010037

CLR
CLR

ADD

012704

}5;;

1284

-(SP)

#340, (RO)
ANREL

000564

000604

T3T

:SET UP STACK POINTER TO EQUAL BEGIN ADDRESS

MOV
TSTB

1265

000606
000610

PC,SP

.=500

000340
000405

000406

1269

MOV

012710
105737

060720

005737

1270
1271

BEGIN:

#114 R0
:PREPARE TO SETUP PARITY TRAP VECTOR
#PARERR-.=-6,
(RO)

000556

000574
000600

;CHANGES TO SWREG IF NO HARDWARE SWITCH REGISTER

MOV
MOV

1263

1267
1268

177570

000024

000300
000314

000614

000570

SWR :

000114
005504

005037
005037

000167

1266

SEQ 0025

SP,a#SAVR6
#PWRDN , a4 24

000552
000562

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

MOV
MOV

}gg}
1264

PAGE 25

:.-tttttttttttnttttttttttt"ttttQtttttttttttt'tttttttttt.ttitttttt

1251
1252

1253
1254

09:02

;CHECK THE TRAP VECTORS FOR THE CAPABILITY
;OF HOLDING 0°'S & 1'S

;IF WE HAVE NOT REACHED THE LOWEST MEMORY LOCATION

:THEN REPEAT FROM 3%

;RESTORE TRAP CATCHER ETC.

#6,RO

MOV
MOV
TST
BR
CMP
MOV

#340, (RO)
#4%,-(R0O)
ASWR
5%
(SP)+,(SP)+
#SWREG, 3#SWR

:SET UP TIME OUT TRAP PSW
JAND THE RETURN ADDRESS
.
;DOES THE SWITCH REGISTER POINTED BY SWR EXIST ?
:BRANCH IF YES
;RESTORE THE STACK POINTER
JAND PLACE THE ADDRESS OF THE SWITCH REGISTER

TSTB

ANSENV

sRUNNING UNDER APT?

:DESIGNED FOR THE COMPUTERS NOT HAVING HARDWARE
;SWITCH REGISTER AND RUNNING STAND ALONE

CZKMA

MACY11 30A(1052)

CZKMAF .P11

05-MAR-79 09:02

000714
000716

001403
012737

000422

09:02

PAGE 26

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

BEQ
MOv

00050

APTS1Z
#SSWREG,a#SWR

SEQ 0026

sBRANCH
IF NO
;SET SWR ‘EQUAL TO APT SWITCH REGISTER.

Rk VONONNESWN=O ZEERIR
8\‘0“5“'\)-‘

1300
}%}

05-MAR-79

;APTSI1Z= THIS ROUTINE WILL SEARCH THE APT MEMORY ETABLE AND WHEN
;A NON ZERO TYPE IS FOUND WILL SETUP TO TEST TO GIVEN HIGH ADDRESS.

b o
d o

e ptviv
VB WN=OV00
NN W=

Vil

012703
013737
013737
105737

000334
000336

012701
162701
105711

001006
020127
101371

MOV

MOV
TSTB
8PL

1%:

005166

004767
004767
000464

006324
006320

032777
001060

000100

010401
012710

001072

022701

000002
170000

010000

TRYSR:

#SMTYP4 +4 ,R1

:IN CASE NO SELF SIZING DONE.

;POINT R1

TO BLOCK TYPE 4(+4)

:ALL APT BLOCK TYPES BEEN CHECKED?

JSR

PC,FATERR

;*ERROR* REPORT

JSR

PC.GETADR

;GO SET MAXIMUM APT ADDRESS INTO SMAXM + $HIMAX

TYPSIZ

JSR

BIT
BNE

MOV
ADD

CMP

BHI

000046

<IN CASE NO SELF SIZING DONE.
;:DOES APT ALLOW SELF SIZING?
:BRANCH IF YES

R1,4SMTYP1

SLFSIZ: MOV
MOV

28:

a#HTGHADD .
@#SENVM
TRYSR

CMP

BRTPSZ: BR

177426

:POINT R3 TO MAXMEM.

#4 R1
(R1)

28:

AMAXMEM, R 5

WNHIGHTWO, a#SHIMAX

SUB
TSTB

BHI

000042

MOV
BNE

000431

004767
000002

IF BLOCK 4 (OR 3,2,1) TYPE NON ZERO THEN GET APT HIGH ADDRESS AND EXIT.

ELSE
SEND ERROR #3
THE MEMORY TYPE IS IGNORED SINCE ALL TESTS ARE RUN REGARDLESS OF MEMORY TYPE.

APTSIZ: MOV

10C021

D e e
D
D d d D
—

NN WWW
WW W
Wb

WNWW

RQRRRRRRR

Y g——
)
G
W
o J
e

e D

WWWWWW

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

INOTE;

D o
D D D

e
—

;

D e

WWWWWWWWWW

'FLOU

;GO SET MAXIMUM APT ADDRESS INTO HIGHADD+HIGHTWO

#170000,R1
2%

CMP

ANG2, a6

5%
gioooo.a1

TYPE THE SIZE OF MEMURY UNDER TEST

;USER DEFINED MEMORY TEST BOUNDARIES??

TYPSIZ

(R1), (R1)
#2 R1

ERROR MESSAGE AND HALT AT FATHLT

;exxxx*ERROR NUMBER Z2txannn

#100,3aSWR

BEQ
gge

*BRANCH IF NO

PC.GETADR

BEQ

:BRANCH IF YES (MEMORY EXISTS)

R4 ,R1
#4$, (RO)

:POINT R TO NEXT BLOCK TYPE.
;1S THE BLOCK TYPE NON ZERO?

“BRANCH IF YES (DON'T SIZE MEMORY)

‘

;SETUP R1 AND R4 TO THE LOWEST ADDRESS OF MEMORY
“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

:CHECK IF BEYOND 30K MEMORY BOUNDARY

:KEEP ON SIZING UP THE MEMORY UNTIL NXM TRAP

: (TIME OUT TRAP)

1S ENCOUNTERED

OR 30K BOUNDARY REACHED

xr NOT XXDP

:
;

THEN CONTINUE

ELSE IF NOT XXDP CHAINING

THEN CONT INUE
ELSE SET MAX. MEM. AT 28K

(ZKMA
MACY11 30A(1052)
05-MAR=79
CZKMAF P11
05-MAR-79 09 :02

000276

phry

o
~
o

NON)
=

105737

b
b
e

e e
e

e
-

005764

022626

888

838333

001100

022626
004767

(%:

5%:

6%:

001120
020000

8%:

160000

—

005730

~
s

—

024341

12%:

gzoboo R1
(SP)+,(SP)+

sRESTORE STACK PCINTER

Aa#MMAVA
12
#8%, (RO)

#160000,R1

12%
172352
,R2

MOV
JSR
BR
cMP

6
=(R3) ,-(R1)

PE,N’REG

JSR

PC,PUTADR

024343
004767

006064

CMP
JSR

PC,PUTADR

TST
CLR
CLR
TYPSIZ: MOV
MOV

000104

=(R3) ,-(R3)

-(R3)
-(R3)
-(R3)
#BUSER, (RO) +
R4 ,R3

012701
004767
004767
004767
000055

000324
005370
005536
005272

MOV
JSR
JSR
TYPMEM: JSR
LASCIZ

#LCWTWO,R1
PC,PCRLF
PC,OCTTYP
PC,$TYPE
I~/

004767
012703
004767

005524
000330
006116

JSR
SETSTK: MOV
JSR

#HIGHTWO,R3

010401

MOV

000022

167776

4%:

000022
000310

157776

00100
021327

170000

5%:
6%:

000340

PC,OCTTYP

PC,$GTSIZ

R4 ,R1

#18. R4

R
4%

000336

SEQ 0027

sRESTORE THE STACK POINTER
; SERVICE MEMORY MANAGEMENT IF IT IS AVAILABLE
AND IF IT HAS TO BE TESTED
;SEE IF MEMORY MANAGEMENT HAS TO BE TESTED
:IF _NO MEM. MANG. THEN GO TO 12%
sSET UP THE RETURN ADDRESS FROM TRAP TO 8%
;BEGIN CHECKING MEMORY ABOVE 28K

006072

i anlh

TSTB
BEQ
MOV
MOV
BR
CMP
CMP

(SP)+,(SP)+

PC ,MEMMNG

004767

i
D il

) il
b
il
-t -l

13%

(MP
JSR

BNE

172352

&~ WN =00

\IV\J\J&
CEd & RUEES g
BQVOU\ \duwww
EEEELELES

e 3L
T
Y
Y
Y

1356
1357

B 3
09:02 PAGE 27
BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.

:IF R1

DID NOT READ ALL THE LOCATIONS POINTED BY

;PAGE ADDRESS REGISTER 6 THEN IT HAS REACHED THE
sMAXIMUM AVAILABLE MEMORY
sIN WHICH CASE GO TO 12%

;PREPARE

"0 UPDATE MEMORY MANAGEMENT REGISTERS

;OTHERWISE GO TO UPDATE MEM. MANG. REGISTERS

;CAUSE R3 TO POINT TO LOCATION $MAXM AND R1

:TO THE MAXIMUM AVAILABLE MEMORY

;GO TO THE SUBROUTINE TC PLACE THE ADDRESS IN R1
;AT LOCATIONS $MAXM AND $HIMAX

;MAKE R3 POINT TO HIGHADD

;PLACE THE ADDRESS IN R1 AT LOCATIONS HIGHADD

sAND HIGHTWO

;CLEAR THE LOCATION LOWADD

:AND LOWTWO
sSET UP VECTOR FOR ANY FUTURE

TRAP

:ESEA¢§OLO POINT TO THE LOWEST AVAILABLE MEMORY

:TYPE CR/LF
TY?SELOU TEST ADDRESSE

(LOWTWO+LOWADD)

sTYPE HIGHEST TEST ADDRESS (HIGHTWO+HIGHADD)

:MAKE R3 POINT TO THE HIGH ORDER BITS OF

; GET THE BITS 13-17 OF THE TOP ADDRESS

TOP ADDRESS

sPLACED IN BITS 0-4 OF R2

:SET R1 TO LOWEST TEST ADDRESS

;APPEND THE ERROR STACK FOR THE MEMORY UNDER
sTEST TO THE END OF THE PROGRAM

g;67776.8#$MAXM sCHECK IF THIS IS A 30K SYSTEM
sBRANCH IF NOT
#18. R4
sSAVE ANOTHER BANKS WORTH OF ERROR STACK
R4 ,@#ENDSTK
sSAVE THE ADDRESS OF THE END OF THE ERROR STACK

(R1)+
;CLEAR THE ERROR STACK
R1,R4
6%
#157776,2#MAXMEM
;SET MAXMEM TO MAXIMUM VIRTUAL ADDRESS
(R3
:TESTING MEMORY MANAGEMENT?
:BRANCH IF YES (GO SAVE LOADERS AT TOP OF VIRTUAL MEMORY
(R3),l170000
;IS THE VIRTUAL ADDRESS ABOVE 1677762

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR=-79 09:02
1412
1413
1414

001306
001310

103002
031363

1417

001314

004767

}253

001322

011305

€

BHIS
MOV

000002

SAVLDR
(R3),2(R3)

12}2

1418

001320

005723

001324
001330

1426

001332

1428
1429
1430

001342
001344
001352

001406
023737
001402

1432

001360

012524

1433

001336

001354
001362

020527
103416
162705

005737

006100

SAVLDR: JSR

MOV

101775
012323

1438

001372

010537

1440

001402

005745

1439
1441

1442
1443
1444
1445
1446
1447
1448
1449
1450

}22%

1453
1454

}2;2
1457
1458
1459

001376
001404

004767
012703

005723

001412

001003

001420
001422
001430
001432

001436

001440

021327

103411
032777
001003
004767

000003

000167

001444

020423

001446
001450
001454

1460
1461
1462
1463
1464

001462
001464

103002
016304
005723
0010063
021305
3
101001
011305

1466

001472

100014

1465

1467

001456
001460

001466
001474

3$:

000042

PC,CLRMM

(R3)+

(R3) ,RS

000246

CMP
BLO

RS, 417776
43

SuB

; DISABLE THE MEMORY MANAGEMENT UNIT

:MAKE R3 TO POINT TO THE LOCATION MAXMEM

;RS CONTAINS THE ADDRESS OF MAXIMUM AVAILABLE MEM.

#276,RS

SUB

#<1502. 22>=276, RS

CMP

RS, (R%)

MOV

R4, (R3)+

MOV

4$:

BLOS
MOV

TSTREL: MOV

2%
ANL2, kb
2$

(RS)+, (R4)+

2%
(R3)+, (R3)+

RS, a4#SAVRS

006016

TSTSIZ: JSR

PC,CLRMM

000324

1%:

MOV

#LOWTWO,R3

BNE

BLO
BIT
BNE
JSR

48
#10000, aSWR
3$
PC,FATERR

010000

2%:

004530

003512

177776

105737

000405

013704

000322

ST
TST

CMP

177020

4$:

6$:

8$%:

;PREPARE TO SAVE 300 BYTES OF THE LOADERS

FY7%]

2%:

157776

:ONLY TESTING 4K MAX?
:BRANCH IF YES (DON'T SAVE LOADERS)

TST

BEQ
CMP
BEQ

000046

010423

00141C

001414

000276

000042

020513

001364
001366

001370

017776

162705 005376

1434
1435

}2§$

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

:IF ONLY 4K BEING TESTED DON'T SAVE LOADERS

1423
}252

1431

SEQ 0028

*AND FALL INTO SAVE LOADERS.

}zgg

1427

09:02 PAGE 28
BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.

JMP

:IF RUNNING UNDER XXDP
:
:

THEN CONTINUE
ELSE IF NOT UNDER XXDP CHAIN MODE
THEN CONT INUE

: SAVE LOADER

ELSE SAVE 1500. WORDS FOR XXDP CHAIN MODE

:SAVE THE CONTENTS OF LOCATION MAXMEM IN SAVMAX

*AND THE CONTENTS OF R4 AT SAVR4

:SAVE HIGHEST VIRTUAL ADDRESS+2

;GO TO DISABLE MEMORY MANAGEMENT UNIT

-(RS)

;SET RS BACK TO HIGHEST VIRTUAL ADDRESS

(R3) +

;IF THE BITS 16,17 OF THE LOWEST LOCATION UNDER
:TEST ARE NON ZERO
:THEN GO TO 2%
;IF THE LOWEST LOCATION UNDER TEST IS HIGHER THAN
1157776 THEN GO TO TEST MEMORY MANAGEMENT

(R3) ,#157776

TSTMM

:PREPARE

TO LOAD R4 AND RS WITH THE MEMORY BOUNDRIES

;IS MEMORY MANAGEMENT SELECTED?
SYES ALL IS WELL
;*ERROR* REPORT
ERROR MESSAGE AND HALT AT FATHLT

saxxxexERROR NUMBER 3xaasxx

;GO TO TEST MEMORY MANAGEMENT

CMP

R4, (R3)+

BHIS
MOV
ST

6%
-2(R3) ,R4
(R3)+

BHI
MOV

8s
(R3) ,RS

;ADJUST R4 TO POINT TO THE LOWEST LOCATION UNDER TEST
;IF BITS 16=17 OF HIGHEST LOCATION TO BE TESTED
*ARE NON ZERO THEN GO TO 8%
*OTHERWISE SEE IF THE HIGHEST LOCATION TO BE
sTESTED IS HIGHER THAN HIGHEST VIRTUAL ADDRESS
:1F SO THEN GO TO 8%
“MODIFY RS

BPL

108

*BRANCH IF NO

BNE
CMP

TSTB

MOV

8$
(R3) ,RS

4REL

A#RELBOT R4

:COMPARE TOP OF PROGRAM (WITH SAVED LOADERS)

sLOWEST LOCATION UNDER TEST

:ARE WE RELOCATED.?

sSET BOTTOM TEST ADDRESS WHEN RELOCATED.

(ZKMA
MACY11 30A(1052)09035HAR-79
CZKMAF .P11
05-MAR=-79
1468
1469

001500
001504

020527
103402

017776

CMP
BLO

}2;?

001506

012705

1472
1473
1474

001512
001514
001516

020405
103403
C04767

004444

1477

001524

012703

000342

10%:

062713

000002

MEMTST: ADD

}2;2

1478

}2;3

}23}

001522

000004

001530

011343

001536

005725

001532

017776
9%:

001540

010500

1487
1488
1489
1490
1491
1492
1493
1494

001544
001546
001550
001554
001560
001564
001566
001570

020004
101375
012702
004767
012702
712212
00C312
0172702

1495

}2gg

001542

001574

042732

2%:
000001
005740
000316
176654

177760

}289

001600
001604

005037
110237

1505
}289

001610
001612

010401
010400

1508
1509
1510
1511

001614
001616
001620
001622

010403
006302
060702
066207

1514
1515
1516
1517
1518

001626
001630
001632
001634

000102
000340
000440
000550

1520
1521
1522

001640
001642
001644

001126
001274
001430

1523

JELSE SET HIGH MEMORY UNDER TEST=4K

CMP
BLO
JSR
4

R4 RS
108
PC,FATERR

;1S LOW LIMIT LOWER THAN HIGH LIMIT?
:BRANCH IF YES
;*ERROR* REPORT
ERROR MESSAGE AND HALT AT FATHLT
sunwxx*ERROR NUMBER 4x%tnaxn

MOV

#SAVMAX ,R3

MOV

(R3) ,=~(R3)

JRESTORE THE CONTENTS OF MAXMEM

(R5)+

JAND SET RS=MAX MEMORY+2

#2.,(R3)

néggR;HEZCONTENTS OF MAXMEM = MAXIMUM AVAILABLE
+

CLR

CMP
BHI
MOV
JSR
MOV
MOV
SWAB
MOV

BIC

RS.RO

;MOVE HIGH ADDRESS TO RO

RO,R4
<$
#1.,R2
PC,PARITY
#BAKPAT ,R2
(R2)+,(R2)
(R2)
aSWR,R2

JUNTIL THE BOTTOM IS REACHED

-(R0O)

#177760,R2

sBEGIN CLEARING THE MEMORY FROM THE TOP

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

;WRITE SWAPPED BAKPAT IN LOCATION SWAPAT
;LOAD R2 WITH THE OPTIONS STORED AT $SWREG

;ONLY LEAVE THE LOWER &4 BITS OF $SWREG IN R2 TO GO TO

sTHE TEST # SPECIFIED C[DEFAULT IS TEST#0]

;ENTER HERE FROM TSTSCP ROUTINE AT END OF SUBTEST

1502
}282

1519

#17776 ,RS

CLRMEM: MOV

(05040

1498
1499

}g}%

sARE WE RELOCATED IN BANK 0?
:BRANCH IF YES

;CLEAR MEMORY UNDER TEST

1485

1486

RS #17776
9%

SEQ 0029

MOV

TST

}232

09:02 PAGE 29
BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.

001636

001646

001016

001654

000306
(000404

CONT:

CLR
MOVB

ANPASFLG
R2,4STESTN

;INIT SUBTEST PASS FLAG.
:;gregpsigssggouxru THE TEST NUMBER GOING

LOOP:

MOV
MOV

R4 ,R1
R4 RO

sLOAD R1 WITH THE LOWEST LOCATION UNDER TEST
:¢%Q$EILHSOADDRESS OF THE LOWEST LOCATION UNDER

MOV
ASL
ADD
ADD

R4 ,R3
R2
PC,R2
TBL=-. (R2) ,PC

JAND IN R3

000004

TBL :

TSTO-TBL
TST1-TBL
TST2-TBL
TST3-TRL

TST4-TRL

TSTS5=-TBL
TST6~TBL
TST7=-TBL

TST10-TBL

:GO TO THE TEST #
;STORED IN BITS 0-3 OF SWITCH REGISTER
JRELATIVE
JRELATIVE
;RELATIVE
JRELATIVE

ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF

JRELATIVE ADDRESS OF

TEST
TEST
TEST
TEST

#
#
#
#

0
1
2
3

TEST # 4

JRELATIVE ADDRESS OF TEST # S
JRELATIVE ADDRESS OF TEST # 6
JRELATIVE ADDRESS OF TEST # 7
JRELATIVE ADDRESS OF

TEST # 10

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

1524

001650
001652
001654
001656

002204
002256
002530
003156

09:02 PAGE 30
BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES.
TST11=TBL
TST12-TAL
TST13-TBL

RELOC=-TBL

sRELATIVE ADDRESS OF
sRELATIVE ADDRESS OF
;RELATIVE APDRESS OF

SEQ 0030
TEST # 11
TEST # 12
TEST # 13

;RELATIVE ADDRESS OF ROUTINE

°RELOC'

;RS IS POINTING TO THE TOP OF THE MEMORY TO BE TESTED+?2
;R4 & RO ARE POINTING TO THE LOWEST ADDRFSS OF MEMORY TO BE

TESTED

09:02

»
%

000420

001666

006002

001672

113702

000404

001676
001702
001710
001712

005237
032777
001401
000000

000410
002000

001714
001722
001724
001726

032777
001332

040000

105202

000724

105737

001002
004767

PROGRAM COMES

%
¥
%

TSTSCP:

TSTB

8NE
JSR

CNTSCP: MOVB
INC

176540
SWHALT:
176526

TSTGO:

TO THIS ROUTINE AFTER COMPLETION OF

EACH TEST AND

IF CNTRL=C TYPED GOTO ERROR HISTORY TYPE ROUTINE.
IF SR= 2000 (BIT10) THEN HALT
IF SR= 40000 (BIT14) THEN LOOP ON TEST DEF INED BY SR BITS<3:0>
ELSE CONTINUE TO NEXT TEST.

Y Sen.ncvan,
L

001660

SEQ 0031

SCOPE ROUTINE

*»

-b

N
B

PAGE 31

SCOPE ROUT INE

W
w

CZKMA
MACY11 30A(1052)
05=MAR-79
C7KMAF .P11
05-MAR-79 09:02

BIT
BEQ

HALT

BIT

BNE
INCB
BR

ANSENV
CNTSCP

PC,CHECKC

A#S$TESTN,R2

;ARE WE RUNNING UNDER APT?
;1F SO THEN GO TO CNTSCP

sTEST FOR CONTROL-C AND IF TYPED GO
sPRINT ERROR HISTORY AND HALT AT FATHLT.

;PLACE THE TEST NUMBER IN THE LOWER BYTE OF R2

sSINCE THERE ARE LESS THAN 377 TESTS UPPER BYTE

:0F R2 WILL BE 0

A#SDEVCT
#2000,aSwR

sTELL APT WE ARE STILL RUNNING OKAY
;IS THE PROGRAM GOING TQ HALT AFTER EACH TEST?
:IF NOT THEN GO TO 2%
JHALT AT END OF TEST SWITCH SET.

#40000,aSwR

;1S THE PROGRAM GOING TO LOOP ON TEST
;IF SO THEN GO TO THE STARTING OF THE SAME

TSTGO

LOOP
R2
CONT

TEST

;GO TO CONT AND CONTINUE EXECUTING THE NEXT TEST

(ZKMA

MACY11

CZKMAF . P11

30A(1052)

05-MAR-79
05-MAR-79 09:02

09:02
10

1561
1562
1563

1586
1587
1588

1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603

SRS

(1)
;t

% (2)
2%
. %
I *

"(3)
001730
001734
001736
001742

001744
001750

001764

105737

001403
004767
000005
012703
010401
010310
020001
001417
005711
001430
020311

001004
012767

004224

010046
105237
000407
020311
001411
012767

TSTB

BEQ
JSR

177777

1%:

2%:

MOV
MOV
MOV
CMP

BEQ

TST
BEQ
cMP

BNE

000042

TEST FOR _PROPER BANK SELECTION
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

[1.E. LOCATIONS LIKE 7766 AND 27766 ETC.]
THIS

TEST ALSO CHECKS TO SEF

000007

000032

MOV

ANSTESTN

sCHECK FOR PROPER TEST SEQUENCE

PC,SEQERR

:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

.+10

#177777 ,R3
R4 ,R1

sxxxxx*ERROR

013706
062701

000350
020000

Sxwwnnx

48
(R1)

R3,(R1)

;IF R1

#6,12%

IS NOT EQUAL TO RO AND (R1)

sDOES NOT CONTAIN ALL Q'S THEN
;CHECK TO SEE IF (RO) = (R1)

;*ERROR* SETUP ERROR NO.
NUMBER

IN 12%

#Gxxxxxx

RO,-(SP)

a#$ADERR
11%

R3,(R1)
5%

000010

#10,12%

;*ERROR* SETUP ERROR NO. IN 12%
Jxxxxx*FRROR NUMBER #7%%xxkxx
;sSAVE RO ON STACK
;AN ADDRESSING ERROR IS SUSPECTED
;CHECK (R1) FOR ALL 1°'S

s *ERROR* SETUP ERROR NO.
;xxx«x*ERROR

003570

NUMBER

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

R3. (RO)

#7,12%

(%:

010046
010300
004767
000000
012600

THE NON EXIST=

108

3%:
10%:

000301

000010

THAT NONE OF

ING BANK RESPOND WHEN THEY ARE ADDRESSED

saxxx«*ERROR

000403

012767

SEQ 003¢

tt'ttt!t'tttQtttfittttQ'Qttttfittttttt"t*t.'tt.tfi'.t'.'t.t*."tt

t470:

000404

000006

AR ARl
I
IR

1581
1582

1583
1584
1585

AAA

'TEST 0

1564
1565
1566
1567
1568
1569
1570

1571
1572
1573
1574
1575
1576
1577
1578
1579
1580

PAGE 32
TEST FOR PROPER BANK SELECTION

RO,=-(SP)
R3,R0

PC,ERROR

(SP)+,R0

a#SAVR6,
SP
#20000,R1

NUMBER

IN 12%

#10%anxnxx

;SAVE RO ON STACK
;GO TO THE ERROR SUBROUT INE

:ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE
sRESTORE RO

020105

(MP

R1,RS

103736

BLO

;RESTORE THE STACK POINTER
;CAUSE R1 TO POINT TO THE SAME CHIP
sLOCATION IN THE NEXT 4K BANK OF MEMORY
;BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN R1
;COMPARE R1 WITH THE HIGHEST MEMORY
sLOCATION WHICH IS STORED IN RS
;IF R1 LESS THAN RS THEN REPEAT THE TEST FROM 2%

TSTB

ANSENVM

sHAS APT

105737

000421

INHIBITED SIZING?

C(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02
1617
1618
}2;8

002064
002066
002074

100432
032777
001026

1621
1622

1623
}ggg

002076
002102

020127
101076

002104

020137

1626
1627
1628
1629
1630

002110
002112
002116
002122
002126

157776

{me
BHI

R1,#157776
6%

sSEE IF R1 HAS CROSSED 28K BOUNDRY OF VIRTUAL ADDRESS
sIN WHICH CASE GO TO 6%

000340

CMP

R1,a#MAXMEM

000006
000340
177714

BLO
MOV
MOV
MOV
ADD

5%
#6,R2
#340, (R2)
#58=.-6,-(R2)
PC, (R2)
(R1),(R1)
PC,FATERR

MOV
MOV
CLR

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

sRESTORE TRAP VECTOR

ADD

#20000,R0

;CAUSE RO TO POINT TO THE SAME CHIP

1635
1636
1637
1638

002140
002144
002150

012702
012722
005012

000004
000006

1641

002154

062700

020000

1642
1643

1644
1645

1646

}gfig

002160
002162

002164

;

MOV
JSR
1

004030

005010

6%:

8%:

020005
103672

000635

SEG 0033

sBRANCH IF YES (DON'T TEST NON-EXISTENT MEMORY)
sHAS USER INHIBITED SIZING?
sBRANCH IF YES (DON'T TEST NON-EXISTENT MEMORY)

002130
002132
002136

002152

8%
#100,aswR
8%

1631
1632
}ggz

)
176354

PAGE 33
TEST FOR PROPER BANK SELECTION
BM]
BIT
BNE

00010C

103755
012702
012712
012742
060712
011111
004767
000011

}gzg

09:02
10

ENDO:

CLR

;1F SO THEN GO TO 5%
;MAKE R2 POINT TO TRAP VECTOR+2 FOR NXM
;SET PSW TO 340
;SET UP RETURN ADDRESS FROM TRAP TO 5%

sTRY TO WRITE TO NON-EXISTENT MEMORY (SHOULD TRAP)
;*ERROR* REPORT
ERROR MESSAGE AND HALT AT FATHLT
saxxx**ERROR NUMBER T1%wxwxx

(RJ)

cMP

RO.RS

BLO

sSHOULD BE LEFT AS IS FOR 30K SYSTEMS (WHICH USE 16K CHI
:AgMSAYLQUER THAN THE MAXIMUM AVAILABLE

TSTSCP

sLOCATION IN THE NEXT 4K MEMORY BANK
;BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN RO
;COMPARE RO WITH THE HIGHEST MEMORY
;LOCATION WHICH IS STORED IN RS.

;IF

RO LESS

THEN REPEAT

THE

TEST

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02

09:0;
T

PAGE 34 CHECK Di/DO LINES

1650

1651
1652
1653

s*TEST 1

1654

1655

002166

122737

1657
1658

002174

001403

}gg?

002202

000012

1659

1662
1663

1664
1665
1666
1667

002176

002204
002210

004767

012700
010002

002212
002214
002216
002220

010011
020011
001403
004767

002226
002230
002232

005702
001406
006300

002234

103366

002236
002240
002244

005002
012700
000762

1681
1682
1683

002246
002250
002252

000261
006100
103757

1685
1686
1687

002254

062701

002260

020105

}ggg

1670
1671
1672
1673
1674
1675
1676
1677
1678
}ggg

1684

1688

1689

002224

002262

002264

000013

000001

000404

TST1:

2%:
38:
003404

177776
5%:

020000

102750

000737

(MPB

#1,Q48TESTN

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

PC,SEQERR

MOV
MOV

#1,R0
RO,R2

MOV
(MP
BEQ
JSR

ENDT:

R2
5%
RO

BCC

CLR
MOV
BR

R2
#177776
R0
2%

SEC
ROL
BCS

RO
2%

ADD

#20000,R1

CMP

R1,R5

ENDO

BLO

RRRA R AR

R AR AR

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

saxexx*ERROR NUMBER 12%wwwex
]
;SET R2=1

RO, (R1)
RO, (R1)
4%
PC,ERROR

TST
BEQ
ASL

;CHECK FOR PROPER TEST SEQUENCE

.+10

JSR

4%:

RN R AR

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

1$:

RRR R AR R AR R RN AR R AR RAR AR RI RN RRA RN R

;*(1)
i

BEQ

003764

000001

RN AR AR R

SEQ 0034

MOV 1 AT LOCATION (R1)
;COMPARE R1 WITH THE CONTENTS OF LOCATION (R1)
; *ERROR* REPORT ERROR _MESSAGE

saxxxx*ERROR NUMBER 13#axwxx

JARE WE SHIFTING A O IN DATA DIRECTION?
;IF SO THEN GO TO 5%
sSHIFT THE 1 BROUGHT IN AT 1% IN
sDATA DIRECTION
;iF THE 1 HAS NOT BEEN SHIFTED THRU
;THE 16 DATA BITS THEN REPEAT FROM 2%
sINITIATE SHIFTING OF O IN DATA DIRECTION

-«

;SET C BIT
sSHIFT A 0 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

CZKMA

MACY11

CZKMAF . P11

30A(1052)

05-MAR-79
05-MAR-79 09 :02

09:02
T2

1691
1692
1693

PAGE 35

a R

TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION

R A A

'TEST 2

;*(1)

:*(2)

;*(3)

SEQ 0035

AR R A AR AR AR AR AR AR AR AR R AR AR AR AR AR AR AR AR RN AR RS R AR

TEST MEMORY 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 T

STEPS 1 & 2 ARE REPEATED WITH A SWAPPED

BACKGROUND PATTERN

122737

000002

1701
1702
1703

002274
002276
002302

001403
004767
000014

003664

1705
1706
1707

002304
002310
002312
002316

013700
110021
113721
020105
103771

002322

020041

LAY
W

W
n

002324
002326

000316

000404

té12:

18:

000317

2%:

001416
062701
123741

:
R

pour o
W-

8%:

p_— o
on

g
Eg & g
N

;CHECK FOR PROPER TEST SEQUENCE

BEQ
JSR

.+10
PC,SEQERR

:*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

MOV

saxxx**ERROR

NUMBER

14x%nxxnn

AMBAKPAT, RO

MOvVB

RO, (R1)+

8LO

tMP

RO,-(R1}

BEQ
ADD

8%
#2 ,R1

;1BA§PAT¢1+(R1)+;WRITE THE MEMORY WITH THE WORD STORED IN BAKPAT

;TEST THE MEMORY TO SEE IF
;THE WORD STORED

IN BAKPAT

IT CONTAINS

gggB

2§BAKPAT¢1,-(R1).CHECK FOR BYTE SELECTION PROBLEM

gzgfl

22,-(R1)

sAGAIN CHECK FOR BYTE SELECTION PROBLEM

INCB
BIC

a#$ADERR
#1,R1

sPREPARE TO INFORM THAT IT IS ADDRESSING ERROR
sMAKE THE ADDRESS IN R1 EVEN

JSR

END2:

#2 ,QNSTESTN

?ggB

000316

n—

CMPB

4%:
6%:

omwombumdog
W ~ WN=O

n
o

002266

NN
VQVVVVVVVVVVN\JV\I
PONONIN)
=
el e el =

1699

N
W

ttttt'ttt’t.tttitttflfittit'.tttttttttfit!'t.t.i.ltt'.ti.tt"'.!tfi

PC,ERROR

CMP
8HI

SWAR
BEQ

R1.R4
2%
Q#BAKPAT
1%

END1

; *ERROR* REPORT ERROR MESSAGE

saxxxx*ERROR NUMBER 15%wxnxx

;KEEP ON TESTING THE MEMORY UNTIL
;R1 EQUALS THE LOWEST ADDRESS
;CHANGE THE DATA PATTERN
:IF THE DATA PATTERN DOES NOT HAVE LOW

; BYTE =0 THEN FALL THRU

sTHE TEST LEAVES BAKPAT LOCATION THE SAME AS IT WAS IN THE BEGINNING

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF. P11
05-MAR=79 09:02

09: 02

1733

PAGE 36
DUAL ADDRESS TEST A

'TEST 3

1736

1738

17‘3

1749
1750
1751
1752
1753
1754

1755

1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778

1779
1780

1781

1782

1783
1784
1785
1786
1787
1788

002376
002404

002406

002412

122737
001403

004767

000016

002414
002416

005003
004727

002422
002424
002426

005002
050302
020204

002432
002434
002436

020205
103077
000312

002440
002442
002444
002446
002450
002452
002454
002456
002460

005001
050301
020104
103445
020105
103053
020102
001431
020011

002462
002464

001437
012767

002472
002474
002476

010046
000316
022611

002500

001003

002430

002502

002510
002514
002516
002520
002524
002526

000003

000404

BACK GROUND OF BAKPAT.

M
;% (3)
Jx(4)
;*(5)

LOCATION WITH SWAPPED BAKPAT
READS THE MEMORY FOR PROPER CONTENTS
SHIFTS A 17 ALONG THE ADDRESS DIRECTION AND REPEATS STEPS 1-3
REPEATS STEP 1-4 FOR EACH 4K BANK

CMPB
-BEQ
JSR

#3,HSTESTN
+10

CLR
JSR

R3
PC ,a#WRTMEM

CLR
BIS
CMP

R2
R3.R2
R2,R4

CMP
BHIS
SWAB

R2,.R5
208
(R2)

CLR
BIS
CMP
BLO
CMP
BHIS
CMP
BEQ
CMP

R1
R3.R1
R1,R4
12%
R1.,RS
15%
R1,R2
10%
RO, (R1)

BEQ
MOV

12%
#17,22%

MOV
SWAB
CMP

RO,=(5P)
{SP)
(SP)+,(R1)

BNE

2%
4%:
6%:

103465

BLO

7%:

000017

000032
8%:

012767

000020

105237
010046
010200
004767
000000
012600

000301
003104

STARTING FROM THE LOWEST LOCATION IN THE BANK THE TEST WRITES A

'.ttttttitttllttttttttttttttttitttttttttttttttt.tt.tittttittttt't

TST3:

003554

000120

THIS TEST CHECKS FOR DUAL ADDRESSING PROBLEMS BY WRITING A

*(2)

1739
1740
1741
1742

};zg

SEQ 0036

DUAL ADDRESS TEST A

sx(1)

1737

1746

tt'ttt.ttttttit.ttttt'titttttltt.tttt"tt.tttQttttt't't't.."t'

1-;%2

176446
1745

000014

9%:

22%:

PC SEQERR

sCHECK FOR PROPER TEST SEQUENCE
;s *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

sxxxxx*ERROR NUMBER T6%%xx=x

; WRITE MEMORY WITH THE BACKGROUND STORED
;AT LOCATION BAKPAT
JMAKE R2 POINT TO THE MEMORY BANK POINTED BY R3
;IF R2 IS LESS THAN R4

16%

s THEN DO NOTHING

sIF R2 IS HIGHCR THAN THE HIGHEST LOUCATION TO BE
sTESTED THEN EXIT THE TEST
;OTHERWISE WRITE THE COMF_EMENT OF BAKPAT IN
sTHE LOCATION POINTED BY RZ2
i
JIF R1 IS POINTING TO A LOCATION LOWER THAN R4
sTHEN GO TO 12%

;CHECK THE MEMORY FOR CORRECT DATA
)
JIF R1 IS NOT = TO Rz THEN (R1) SHOULD HAVE
sTHE SAME WORD AS BAKPAT
;IN WHICH CASE GO BACK TO 12%
;*ERROR* SETUP ERROR NO. IN 22%
swanraxERROR NUMBER #17%xxnnx
JPLACE RO ON THE STACK

;

JIF (R1) IS NOT = RO THEN SEE IF IT IS SAME
;AS A SWAPPED RO
;IF NOT THEN A SUSPECTED DUAL ADDRESSING PROBLEM
sFOR THE BITS THAT ARE DIFFERENT IN RO AND (R1)

JOTHERWISE THERE IS DUAL ADDRESSING FOR THE
ENTIRE WORD

MOV

#20,22%

;*ERROR* SETUP ERROR NO.

INCB
MoV
MOV
JSR
.WORD
MOV

a#$ADERR
RO,={(SP)
R2.R0O
PC,ERROR

ADDRESSING ~ROBLEM IS DETECTED
;SAVE
RO
;SET RO=GOOD ADDRESS FOR ERKOR REPORT
GO TO THE ERROR SUBROUTINE
sERROR NUMBEK TO BE REPORTED WILL BE PLACED HERE

(SP)+,R0O

IN 22%

saxxxx*ERROR NUMBER #20%%nnns

RES:ORE RO

C(ZKMA
MACY11 30A(1052)
O05-MAR-79
CZKMAF .P11
05-MAR-79 09:02
010011
02003;

88
S5T

5
X5y

002530
(02532

PAGE 37
DUAL ADDRESS TEST A

000316
10%:

17774¢
b

000021

00074%
000300
C40301

002556
002560
002562

D
D o
D D D

001404
012767

D e
D

020127

020000

13%:
15%:

16%:

o
n
o
N
n

d d

020237

1821
1822

002632
002634

103673
000337

sRESTORE (R1)
;IF THE CONTT0L CAME HERE FROM 158-2 THEN

11%

JRETURN TO. 118

SWAB

12$

CMP

RO, (R1)

BEQ
MOV

118
#21,22%

BR
SWAB
BIC

2%
RO
RZ,R1

BNE
INC

138
R

CMP
BLO
SWAB
BIC

R1,4#20000
7%
(R2)
R3,R2

ROL

JMAKE RO SAME AS SWAPPED BAKPAT
JIF R1 = R2 THEN (R1) SHOULD CONTAIN A WORD
;EQUAL TO SWAPPED RO
sIN WHICH CASE GO BACK TO 11$
;*ERROR* SETUP ERROR NO. IN 22%
;xxxxx*ERROR

NUMBER

#21%*xnnnx

JAND GO TO 8%

JRESTORE RO TO BAKPAT

s TAKE OUT THE BANK ADDRESS FROM THE ADDRESS IN R1
JIF R1 IS O THEN PLACE A 1 IN R1
;OTHERWISE GO TO 13%

;IF R1 IS LESS THAN A 4K BOUNDRY

:THEN REPEAT FROM 7$

:RESTORE (R2) TO BAKPAT
:TAKE OUT THE BANK ADDRESS FROM THE ADDRESS
:STORED IN R2
:IF R2 = 0 THEN MOVE A 1 70 R2
:OTHERWISE GO TO 18$

18%
R2
R2
y .
R2,#20000

000340

8LO
ADD
CMP

6%
R2,R3
R3. SAMAXMEM

:IF NGI' THEN GO TO 6%
;OTHERWISE MAKE R3 POINT TO THE NEXT 4K BANK

000316

20%:

BLC
SWAB

4
@ABAKPAT

;THEN REPEAT FROM 4%

END3:

END2

020000

18%:

e
o —

002626

SEQ 0037

8NE
INC
ROL
CMP

D d

0o 00 00 0o Oc 0o 00 0o 0o 00 0o
n b b ad aull el @b ) i b e
o VoONOWNHWN=O

002574

RO, (R1)
RO, S#BAKPAT

002546
002550

MOV
CMP

BEQG

D o

ZRIRERATZZI
IR3R

1789
1790

09:02
i3

BEQ

TST3

sSHIFT A ONE IN THE ADDRESS WORD
:é? I:E ADDRESS IN R2 MORE THAN THE BOUNDRY

;IF R3 IS POINTING TO A BANK THAT iS LOWER
: THAN MAXMEM

JREPEAT THE TEST WITH SWAPPED BAKPAT ONLY
:THE LOWER BYTE OF BAKPAT IS 0

CZKMA

MACY11

CZKMAF .P11

30A(1052)

O05-MAR-79

:
05-MAR=-79 09:02

09:02

1826

STEST &

1328
1831

1832
1833
1834

002644
002652
002654

1837

002662

1839
1840
1841
1842
1843

002666
002670
002672
002674
002676

}ggg

1838

:ll gzolso

002660

002664

002700

:
IR

122737 000004
001403
004767 003306
005003

1%:

005703
001401
005100
010021
020105

103771

020041
001405

105237

000301

1850
}gg;

002712
002716

004767
000023

002712

1853
1854
1855

002720
002722
002726

010100
162709
005703

1856
1857
1858
1859
1860
1861
1862

002730
002732
002734
002736
002740
002746
002750

001401
005100
020104
101361
112737
005103
001345

1864

002752

000733

1863

TST4:

2%:

i
:*

SEQ 0038

4%:

000002

5%:
000306

END4:

DUAL ADDRESS TEST B
THIS TEST CHECKS FOR DUAL ADDRESSING BY WRITING
AND READING THE ADDRESS IN THE LOCATION AND THEN
WRITING AND READING ADDRESS COMPLEMENT

AR R

AR AR AR AR

AR RRRRRANRRAAEARRARRRRAARARARRR
AR R AR

CMPB
BEQ
JSR

#6 ,QNSTESTN
.+10
PC,SEQERR

CLR

TST
BEQ
coM
MOV
CMP

R3
2%
RO
RO, (R1)+
R1.RS

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

CMP
BEQ
INCB

RO,=(R1)
A3

sCHECK THE LOCATION FOR THE CORRECT CONTENTS
,

JSR
23

PC,ERROR

;*ERROR* REPORT ERROR MESSAGE
sanxxx*ERROR NUMBER 23xwnnan

MOV
SuB
TST

R1.RO
#2.R0

MOV

BLO

3%:

000001

;*(1)

010100

002702
002704

002706

000404

000022

1846
1847

]'gzg

DUAL ADDRESS TEST B

:.'Qi'Q'Qt'*.tQ.Q.tt'tt.."'tfiifit.i.ttt.'.'tttt"titt.ifit.t'..'t..

1827

1829
1830

PAGE 38

R7.,RO

a#$ADERR

BEQ
comM
CMP
BHI
MOVB
coMm
BNE

R3
5%
RO
R1.R4
.33
#1,4PASFLG
R3
1%

END3

;CHECK FOR PROPER TEST SEQUENCE
;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

saxxxx*ERROR NUMBER 22%*%xx%

'gl‘#sPlx?EBE?'?ABLY ADDRESS PROBLEM RATHER THAN
’

;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
JREPEAT TST3 IF R3, IS NON O, ENABLING ADDRESS

s COMPLEMENT TO BE WRITTEN AND READ, OTHERWISE FALL THRU

CZKMA
MACY11 30A(1052)
O05-MAR-79
CZkmAF P11
05-MAR=-79 09:02

09:02
15

1“

RTEST 5

1870
1871
1872
1873
1874
1875
1876
}g;g

}ggls.

;%(1)
:

2(2)
t
e
‘#(3)
i
e
ix(4)
:x(5)©

002754

122737

1882 002762 001403
1883

3
|

t.tt'.......Q'Q'i'..t.""....'fi...'.'Q.Q...t..."......"'....

1867
1868
1869

1879
}%

PAGE 39
MARCHING 1°'S AND 0°S

002764

002770

004767

000024

000005

BEQ
JSR

1886 002772 004737 000120

1887
1888 002776 020041

1889
1890
}gg;

003000
003002
003006

001403
004767
000025

1893

003010

000300

1896
1897
}ggg

003016
003020
003024

001403
004767
000026

1900
1901

003026

000300

002604
.

1902
1903 003030 001023
1904

.+10

PC,SEQERR

Pk
.

PC,#WRTMEM

2s:

cMP

RO,=-(R1)

‘

BEQ
JSR
25

3$
PC.ERROR

SWAB

BEQ
JSR

48
PC,ERROR

SWAB

BNE

MOV
CMP
26

48:

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

Panaxa*ERROR NUMBER 24 % %%

JSR

18:

002622

1894 003012 010011
1895 003014 021100

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

‘.'titt.fit'tttt..tfifi'.'tt'.'..ttfit..t.t'ti't.itt.fi'.fit...'....Q..
TSTS:
CMPS
#S,aWSTESTN
;CHECK FOR PROPER TEST SEQUENCE

000404

003176

MARCHING 1°'S AND 0'S
THIS TEST WRITES A BACK GROUND OF THE WORD STORED
AT BAKPAT.

RO. (R1)
(R1) RO

;GO TO WRITE THE MEMORY WITH A BACKGROUND OF THE

*WORD STORED IN BAKPAT
*READ THE CONTENTS OF LOCATION POINTED BY 1

*TO SEE IF IT HAS THE SAME VALUE AS RO
**ERROR* REPORT ERROR MESSAGE

txnxaxxERROR NUMBER 25%%*#x#

:SWAP THE BYTES AT (R1)
*READ (R1) FOR CORRECT VALUE
;*ERROR* REPORT ERROR MESSAGE
taxaxx*ERROR NUMBER 26%
%% # %
:SWAP THE BYTES OF THE REGISTER

*CONTAINING BACKGROUND PATTERN
*IF THE LOWER BYTE OF THE REGISTER
1S NOT O THEN THE PROGRAM IS READING

}382

*THE MEMORY TO CONTAIN A BACK GROUND OF

}2’8;

;BAKPAT AND WRITING THE SWAPPED WORD

}3%

:IN WHICH CASE GO TO 9%

1911

912
1913
1914
1915

003032
-

005703

1916 003034 001023
1917 003036 062701 000002
}g}g 003042 020105
1920

1921

003044

103006

003046 020011

IST

6$:

BNE
ADD
CMP

108
#2,R1
R1.RS

*IF R3 IS NOT CLEAR THEN GO TO 108
*OTHERWISE ADD 2 TO THE CONTENTS OF R1
‘5?";?2%1 WITH THE MAX. MEMORY LOCATION TO

BHIS

*1F R1>RS THEN GO TO 8% OTHERWISE

78:

CMP

“R3 """

RO, (R1)

:R3 WAS 0 WHEN THE PROGRAM ENTERED

*THIS TEST, AND IT IS NOT ALTERED UNTIL PASFLG=3
“IF R3 EQUAL O THEN TAHE PROGRAM IS
*READING/WRITING MIN. TO MAX. OTHERWISE
“IT 1S GOING IN MAX. TO MIN. DIRECTION

‘READ (R1) FOR THE CORRECT DATA

SEQ 0039

(ZxMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR=79 09:02

003050

001757

003052
003056

004767
000027

003060

000753
105237
000300
001742

003062
003066
003070

003072
003074
003076

'’
000306

= OV NOWNS
NN —

S9RRRRRRREP

003106
003110
003114
003116
003120

8%:

005103

9%:

020104

10%:

000306

BEQ

5§R

PC,ERROR

Q#PASFLG
RO
2%

COM
MOV
BR

R3
R4 ,R1
7%

TST

BNE

cMP

R1,R4

BHI

SEQ 0040

; WRITE COMPLEMENT OF THE DATA FOUND AT (R1)
;AND REPEAT UNTIL R1 > RS
s *ERROR* REPORT ERROR MESSAGE
sexnxx*ERROR

NUMBER

27%atnnw

INCB
SWAB
BEQ

BEQ

ENDS:

MARCHING 1°S AND 0°'S

INCB
SWAR

001753
006714

PAGE 40

002552

003100
003102
003104

09:02
TS

Q#PASFLG
RO

END4

;IF _THE LOWER BYTE OF RO IS ALL 0°'S
s THEN BEGIN READING BAKPAT SWAPPED WRITING BAKPAT
sAND READING BAKPAT GOING FROM MAX. TO MIN.[PASFLG=4]
;OTHERWISE CLEAR RO

;PUT THE LOWEST TESTING ADDRESS IN R1
sAND BEGIN READING 0'S, WRITING 1°'S AND
JREADING 1'S IN MIN. TO MAX. DIRECTION [PASFLG=3]

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

:THEN READ BAKPAT, WRITE

; SWAPPED BAKPAT AND READ SWAPPED BAKPAT
:IN MIN. TO MAX. DIRECTION
;OTHERWISE TEST IS PROCEEDING IN MAX. TO

sMIN.

DIRECTION.

;KEEP ON LOOPING UNTIL R1=R4

:IF RO SWAPPED HAS LOWER BYTE=0
:THEN READ BAKPAT

SWAPPED,

WRITE BAKPAT,

sAND READ BAKPAT GOING FROM MIN.

TO MAX.

CZKMA

MACY11 30A(1052)

CZKMAF P11

OSSMR-79

05-MAR=7S 09:0

09: 02

1952

SRR

-TEST 6

1655

1958

"(3)

1960
1961
1962
1963
1964

t(lo)
;'(S)
.
e
sx(6)

1959

;Iggg

}ggg

003122

122737

000006

1970
1971
1972

003130
003132

001403
004767

003030

1975
1976
1977
1978
1979
1980
1981
1982
}ggz

003140

004737

000120

003150
003152
003154
003156
003160

010403
010401
020011
001403
9004767

005037

000306

1985
1986
1987
1988
1989

(€03166
003172
003174
0031745
003<04

062701
020105
103767
132737
001002

1992
1993
1994
1995
1996
1997
1998
1999

003212
003214
003216
003222
003224
003226
003230
003234

020305
103012
012702
000313
005302
001375
010337
062703

2002
2003
2004
2005
2006

003240
003242
003246
003252
003254

000744
105237
000337
001732
000721

}8;2

]lgg?

2000
2001

003136

003144

003164

003206

000030

000031

105237

000404

AND THEN INCREMENTS PASFLG

IT THEN READS/SWAPS BYTES/WRITES A LOCATION X FOR

OVER 2 MSEC AND THEN READS THE MEMORY FOR BAKPAT

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.

CMPB

#6,a48TESTN

sCHECK FOR PROPER TEST SEQUENCE

BEQ
JSR

.+10
PC,SEQERR

s *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

RPT6

JSR

PC ,a#WRTMEM

1%
2%
3%

MOV
MOV
CMP
BEQ
JSR

CLR

Q#PASFLG

4%:
000306

5%:

6%:

000354

020000

N
000306
000316

THIS TEST WRITES THE MEMORY WITH A BACK GROUND OF BAKPAT

WITH PASFLG=0 THE TEST READS THE MEMORY FOR BAKPAT

TST6:

000306

037776

AR AR AR RN RN

R R AR AR R

002444

000001

AR AR AR AR

000002

I AR

CELLS' VOLATILITY TEST

t(2)

1957

SEQ 0041

AR AR AR R AR AR AR R AR AR AR AR AR AR

2*(1)

1956

CELLS" VOLATILITY TEST

}ggz

1967

PAGE 41

7%:
END6:

ADD
CMP
BLO
BITB
BNE

AR AR AR R AR R R AR RR AR AR AR AR

AR AR

AR ARN AR AR R

AR R

saxxxxxERROR NUMBER 30%xwwnx

;GO TO WRITE THE MEMORY WITH A BACKGROUND OF
sWORD STORED AT LOCATION BAKPAT

THE

R4 ,R3
R4 ,R1
RO, (R1)
4%
PC,ERROR

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

#2.R1
R1.RS
33
#1,34PASFLG
5%

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

;*ERROR* REPORT ERROR MESSAGE

saxaxxxERROR NUMBER 31wnnnnx

;sCHECK TO SEE IF PASFLG=0 OR 2

INCB

a#PASFLG

sIN WHICH CASE INCREMENT PASFLG COUNTER BY 1

CMP
BHIS
v
SWAB
DEC
BNE
MOV
ADD

R3 RS

;SEE

037776 R2
(R3)
R2
(31
R3,a#SAVLOC
#20000,R3

JWRITE INTO 1

BR
INCB
SWAR
BEQ
BR

2%
a#PASFLG
A#BAKPAT
RPT6
ENDS

IF R3 HAS REACHED THE MAX. OF

THE MEMORY

LOC FOR >2MS (ABOUT 100MS)

sSAVE LOCATION WRITTEN FOR 2MS FOR ERROR REPORT.
;BY ADDING 1

TO THE 14TH ADDRESS BIT CAUSE

sJR3 TO POINT TO A LOCATION IN THE NEXT
;4K BANK OF MEMORY

:MAKE PASFLG=2
s 1F BAKPAT IS NOT BEING SWAPPED FOR THE 2ND
sTHEN GO BACK TO THE LOCATION RPT6

(ZKMA
MACYN 30A(1052) 90(5)5HAR-79
CZKMAF P11
05-MAR=79 0

09: 02

Zm7

PAGE 42
SHIFTING DIAGONAL

SEQ 0042

:"Qtt'Qtfitttt"'.'tt*'t.itttt.fit't.*fi'tt..t*'t'fit**t.'.fi.t'fi'.'.'

2008

IATEST 7

2010
2011
2012
2013
2014
2015
2016
2017
2018

.
003256

122737

000007

:%(1)
THIS TEST WRITES THE MEMORY WITH A BACKGROUND OF BAKPAT
:*x(2)
1T WRITES A DIAGONAL OF SWAPPED BAKPAT THROUGH EACH MEMORY BANK
:%(3)
READS THE MEMORY FOR CORRECT DATA
:%x(4)
SHIFTS THE DIAGONAL AND REPEATS STEP 3 UNTIL THE
.
DIAGONAL HAS BEEN SHIFTED 64 TIMES
:x(5)
WRITES A BACKGROUND OF SWAPPED BAKPAT, A DIAGONAL OF
P
BAKPAT AND REPEATS FROM STEP 3
'.lt*fit.*ifit"tt*Q*t**'t*"tfiifi'*Q**t.'ittfi*t*ti**fi't.ti'fit.i'tt.
T8T7:
(MPB
47.QWSTESIN
:CHECK FOR PROPER TEST SEQUENCE

2020
2021
2022

003264
003266
003272

001403
004767
000032

002674

2026
2025
2026
2027

003274
003300

005037
010337

000306
000304

2028

2029
2030
2031
2032
2033
2034
2035

003304

003306

003312
003314
003316
003320
003322

010302

052702

005202
001402
020502
103001
010502

010337

000302

2037

003330

013701

000304

2039
2040

00333
003340

013700
020103

000316

2042

003344

062703

000002

2043

003342

003350

001010

032703

2044
2045
2046
2047
2048
2049
2050
2051

003354
003356
003362
003

003372
003374

001001
010011

2053
2054
2055
2056

003376

020011

2057

003400
003402
003406

001403
004767
000033

2059
2060
2061
2062

003410
003414
003416
003420

062701
020102
103746
005237

001402
062703
000300
132737

2%:

.+10
PC,SEQERR

CLR
MOV

@APASFLG
R3,@4LOWBNK

BIS

:R2 CONTAINS THE ADDRESS OF THE TOP OF THE BANK

38:

:IF R2_IS GREATER THAN RS THEN GO TO 4$
:NOW R2 CONTAINS THE ADDRESS OF THE HIGHEST LOCATION

4$:

MOV

R3,@4STRTDI

:LOAD STRTDI WITH THE STARTING ADDRESS OF THE

MOV

@4LOWBNK,R1

:R1 IS NOW POINTING TO THE LOWEST LOCATION IN THE 4K

MOV
(M

@ABAKPAT,RO
RI,R3

:STORE THE CONTENTS OF BAKPAT IN RO
;IS R1_POINTING TO A LOCATION IN THE DIAGONAL ?

ADD

#2,R3

BNE

BIT

000306

:LOWBNK CONTAINS ADDRESS OF THE LOWEST LOCATION
:IN THE 4K BANK THAT CAN BE TESTED

R2
38
RS,R2
43
RS.R2

6$:

000200

R3,R2

#7777 .R2

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
;xsxxxxERROR NUMBER 32%s#xs

INC
BEQ
(M
BHIS
MOV

000176

000001

BEQ
JSR
32

MOV

017777

003324

2041

000404

SHIFTING DIAGONAL

8$:

108:

128:
002222
000002

148:

000410

168:

10§

#176,R3

ADD 1 TO POINT IT TO NEXT BANK
:BRANCH IF ZERO (IT MUST BE A 30K SYSTEM)

:THAT CAN BE TESTED

:IF_NOT THEN GO TO 10$

:THE FOLLOWING CODE IS USED TO PLACE THE

:ADDRESS OF THE NEXT LOCATION IN THE DIAGONAL

BEQ
ADD
SWAB
BITB

8$
#200,R3
RO
#1,a4PASFLG
:

BNE
MOV

128
RO, (R1)

(MP

RO, (R1)

BEQ
JSR
33

148
PC,ERROR

:CHECK THE LOCATION POINTED BY R1
:PROPER DATA
(IF IT IS OK THEN GO TO 14$
: *ERROR* REPORT ERROR_MESSAGE
;xxxxwxERROR NUMBER 33%#»axs

ADD
(M
BLO
INC

#2 R
RI.R2
68
SHSDEVCT

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

:IN
R3

*DIAGONAL WILL CONTAIN SWAPPED BACKGROUND PATTERN

:CONTENTS OF LOCATION PASFLG WILL BE EVEN IF THE

:MEMORY 1S BEING WRITTEN AND IT WILL BE ODD

:IF IT IS ONLY BEING READ
:IF IT IS BEING READ ONLY THEN GO TO 12%
ggusguxse WRITE THE MEMORY WITH THE CONTENTS

TO CONTAIN

C7kMA
MACY11 30A(1052)
05=MAR=79
(ZKMAF .F11
s
05-MAR-79 09:02

105237

000306
000302
000001

09:02

PAGE 43
SHIFTING DIAGONAL

INCB

A#PASFLG

SEQ 0043

MOV

a#STRTD] ,R3
#1,a#PASFLG
4%
(R3)+
?giRZ

;HAS THE READ OF THE MEMORY BEEN DONE ?
;sIF NOT THEN GO TO 4%
JADD 2 TO THE STARTING ADDRESS OF THE DIAGONAL
JAND UNLESS THE END OF THE BANK IS REACHED

TSTR

A#PASFLG

;OR THE DIAGONAL HAS BEEN ROTATED 64

MOV

a#LOWBNK ,R3

JMAKE R3 POINT

SWAR

Q#BAKPAT

JAND IF

010203

MOV

R2.R3

sMAKE

020205

CMP

R2.RS

103676
000665

BLO
RR

2%
END6

100322

000306

SITB
BNE
TST
g:?g

000306

013703

000304

000337
001715

C0C316

18%:

BPL

BEQ

END7:

sJLOAD R3 WITH THE STARTING ADDRESS OF THE DIAGONAL

;REPEAT FROM 4%

TIMES

TO THE LOWEST LOCATION IN THE

;IN THE BANK UNDER TEST

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
’
JUNLESS THE PRESENT HIGH BOUNDRY IS ALSO THE
sHIGH BOUNDRY FOR

THE MEMORY UNDER

TEST

(ZKMA

MACY11

CZKMAF P11

30A(1052)
05-MAR-79
05-MAR-79 09:02

2083
2084
2085
2086
2087
2088
20E9
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103

MR
ARLS SRRl
¥
J*TEST 10

:x(1)
i
;x(2)
o
;% (3)
% (4)
:%(5)
;x{(6)
I
:x(7)
;l
:*(8)
:*(9)
;x(10)
o
:*(11)
Ix
:x(12)

2104

2105
2106
2107
2108
2109
5}}?

I
I
;*(13)
003502

)
122737

S}}g

003510
003512
003516

001403
004767
000034

2116
g}}g

003520
003522

010402
052702

2112
2113

2119
2120
2121
2122
2123
2124
2125
%}39

21282129
s%%q

003526
003532
003534
003536
003540
003542
003544
003546

062702
001402
020205
101401
010502
005046
010200
013740

003552
003554
003556

020003
101374
010301

g}gg

003560

023710

2134
2135
2136
2137
2138

003564
003566
003570
003574
003600

001410
010001
013700
004767
000035

000010

000404

000002

RPT10:

4%:

6%:
000316

000316
002030

2222323232232

3233232223222223

READ RECOVERY 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 [T ‘'A")
LETS NAME THE 1ST LOCATION IN THE ROW/COLUMN UNDER TEST AS
SWAPS BYTES FOR LOCATION ‘A',
READS 'A', READS ‘B’

'B'.

'B' = 'B'+200 (MAKES 'B'=64TH CELL I.E. 200TH OCTAL

LOCATION FROM THE PRESENT LOCATION OF

'B')

REPEATS STEPS 5 AND 6 UNTIL 'B' IS GREATER THAN THE
END RFZTHE 4K BANK OF THE MEMORY IN WHICH 'A' IS RESIDING
s

REFEATS
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

BEQ
JSR
34

PC,SEQERR

MOV
BIS

l17776.R2

GALLOP: ADD
BEQ
rMP
BLOS

1%:
2%:
000316

SEQ 0044

MR
R R SR AR S s
s eI
22
223223 2223 2223222222
#10,a48TESIN
TST10:
CMPB
s<oHECK FOR PROPER TEST SEQUENCE

002450

017776

09:0 % PAGE 44
710
READ RECOVERY GALLOPING TEST/EVERY 64TH (ELL

MOV
CLR
MOV
MOV

.+10

R4 ,R2

;*ERROR* REPORT ERROR MESSAGE AND HALT AT

sexwxxxERROR

NUMBER

FATHLT

34xnnnnn

JSET R2 TO THE LOWEST MEMORY UNDER TEST

sMAKE R2 POINT TO THE HIGHEST LOCATION IN THE 4K

;BANK FOR WHICH GALLOPING WILL BE PERFOMED

#2,R2
1%

;s INCREMENT R2 BY 2
JBR IF IT WENT TO O (IT MUST BE A 30K SYSTEM)

RS5.R2

s THE MAXIMUM ALLOWED ADDRESS THEN ADJUST R2

A#BAKPAT ,=(R0O)

;WRITE

gg.RS

RS .RO

CMP
BH]
MOV

R3.R1

CMP

Q#BAKPAT, (RO)

BEQ
MOV
MOV
JSR
35

8%
RO,R1
a#BAKPAT
,R0O

PC,ERROR

sIF THE HIGH BOUNDRY OF THE TEST IS HIGHER THAN

;BAKPAT

THE MEMORY UNDER TEST WITH A BACKGROUND OF

;R3 AND R1 ARE POINTING TO THE LOWEST LOCATION THAT

sCAN BE TESTED IN THIS BLOCK

;BEFORE STARTING THE GALLOPING TEST FOR LOCATICN
J<RO) CHECK IT
JCONTINUE IF OK
sOTHERWISE PREPARE TO REPORT THE ERROR
;*ERROR* REPCRT ERROR MESSAGE

;xxnxxxFRROR NWUMBER 3Sxaannn

CZKMA
MACY11 3CA(1052)
05=MAR-79
CZKMAF P11
05-MAR-79 09:02

003602
003604

010011
010100

003606

000310
03101

003610

012600
021037
001412

8%:
108:

010146
010001

013700
004767
000037

010011
010100
012601

122737

001402
062701
062701
020102
103734
000320

122737
001407

005723
062716

105716
100002
161603
005016

032700
001002
005237
020002
103674
162603

000337
000337

001660
010203

MOV
MOV

RO, (R1)
R1,RO

SWAB

(RQ)
(RO), (R1)

BIT

RO,R1

128
(R1)
, Q#BAKPAT
12%

000316

RO,=(SP)
A#BAKPAT
,RC

000316
001772

PC.,ERROR

000320

12%:

000320
001744

(SP)+,R0
(RO)
, a#SWAPAT
14%
R1,=(SP)
RO,R1
A#SWAPAT
,RO
PC.ERROR

RO, (R1)

000011

000404

000176
000002

000011

14%:
16%:

000404

000410

000320
000316

(SP)
+ ,R1
#11,Q48TESTN
16%
#176,R1
R1,R2
10%
(RO)
+
#1717, Q4STESTN

17%
(R3)+
#2,(SP)
(SP)
17%
(SP) _R3

000002

000177

READ RECOVERY GALLOPING TEST/EVERY 64TH CELL

020001

001412
021137
001407
010046
013700
004767
000036

09:02o PAGE 45

17%:
18%:

(SF)

#177 .R0
18%
a#SDEVCT
RO,R¢

(SP)+,R3

a# SWAPAT
Q#BAKPAT

R2.R3

SEQ 0045

;RESTORE THE CONTENTS OF (R1)
sRESTORE RO
sCHECK TO SEE THAT NONE OF THE BITS SET
;IN (RO) ARE SET IN (R1) AND VICE VERSA
;THE ONLY EXCEPTION TO THIS WILL BE WHEN RO=R1
;CHECK THAT (R1) HAS BAKPAT IN IT

;SAVE RO ON STACK

;PLACE THE PATTERN WORD IN RO
: *ERROR* REPORT ERROR MESSAGE

sxxxx**ERROR

NUMBER

36%nnxaxn

JRESTORE RO

sCHECK THAT (RO) HAS SWAPPED BAKPAT IN [T
sSAVE R1 ON THE STACK

sMAKE R1 POINT TO THE FAILING LOCATION
;LOAD RO WITH THE EXPECTED RESULT IN (R1)
:*ERROR* REPORT ERROR_MESSAGE
sxxxx**ERROR

NUMBER

37%x%axn«

;RECOVER (R1) FROM THE ERROR
sRESTORE RO
sAND RESTORE R1
;IS THE PROGRAM EXECUTING TEST # 11 ?
;IF SO THEN GO TO 16%

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
IS IT TEST 11 ?
;1F SO THEN GO TO 17%
;OTHERWISE INCREMENT R3 BY ¢
;FOR EVERY ROW/COLUMN TESTED ADD 2
JUNTIL (SP) 1S 200
;SUBTRACT 200 FROM R3
sAT A 64TH CALL BOUNDRY?
;BRANCH IF NO
;TELL APT WE ARE STILL RUNNING

:1F RO HAS NOT PEACHED THE END OF THE BOUNDRY

s THEN REPEAT

FROM 6%

;RESTORE SP AND R3

s1F

THE LOWER BYTE OF BAKPAT IS O THEN REPEAT FROM 2%

sOTHCRWISE MAKF THE PRESENT HIGH BOUNDRY AS THE
sNEXT LOW BOUNDRY

CZKMA

MACY11

CZKMAF P11

2195
%}gg
2198
%}gg

2201
2202
2203
2204
2205
2206
2207

30A(1052)

GSSMAR-79

05-MAR-72 09:0

004004
004006
004010
004014

004016
004024
004026
004030

122737
001421
000635
000623

C17776

000011

READ RECOVERY GALLOPING TEST/EVERY 64TH CELL

020205
001410
032702
001025

09:9{0 PAGE 46

000404
ENDT0:

(MP
BEQ

R2,RS

BIT
BNE

#17776,R2
RPT11

CMPB

#17,4STESTN
RPT11

BEOQ
BR
BR

END10

RPT10

END7

SEQ 0046

;1F PREVIOUS HIGH BOUNDRY WAS THE END OF

;TEST BOUNDRY THEN EXIT
JWAS IT A 4K BOUNDRY ?

;1F

THE

TEST

NOT THEN WE WERE PERFORMING TEST

THE

11 WITH LONG

;GALLOPING TEST DISABLED
SIF IT IS TEST # 11 THEN GO TO REPEAT TEST 11
;OTHERWISE REPEAT TEST 10

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02

I 4
09:02 PAGE 47
TM
READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST
AR AR AR

122737

000011

001403
004767
000040

002120

000404

TST1I

=
N

NOWVSs
W

(LETS NAME IT 'B')
'A' 'B' [MOVE THE ADDRESS OF

SWAPS BYTES FOR LOCATION ‘A’

READS
1A . READS

004767
046107
105777
100612

052702
000611

002526
000120
174354
000176

'B'

TO THE POINTER FOR LOCATION *A']

'B'

IF GALLOPING OPTION BIT AT $SWREG IS HIGH THEN STEPS 4 AND
ARE REPEATED UNTIL 'B' REACHES THE HIGHEST MEMORY LOCATION

'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

(MPB

RPT11:

.:'

REPEATED UNTIL

JSR

174372

AR AR AR AR AR AR AR

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 NCT HIGH THEN STEPS
4 AND 5 ARE

BEQ

010402
105777
100004

AR A AR R AR T AR AR AR

THIS TEST WRITES MEMORY WITH BAKPAT
THE TEST BEGINS AT THE LOWEST LOCATION BEING TESTED

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

*(11)
MLAA

P R A A AR AT AR AR

READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST

o~
N
N~

L
I

TN I

1"
lllll'l"’.l.l"..llll

'TEST

AR R

SEQ 0047

MOST OF
d

THE CODE USED BY TEST 10 IS ALSO USED BY THIS TEST

#11 ,Q#8TESTN

.+10

PC,SEQERR

222222222222222

;CHECK FOR PROPER TEST

SEQUENCE

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT

sxxxx*xERROR

NUMBER

40%#xnnn

MOV

R4 ,R2

JMAKE R2 TO POINT TO THE LOWEST LOCATION

TSTB
BPL

;LONG GALLOP ENABLED?
BRANCHIF NO
;TYPE "GLP''

BMI

aSWR
RPT11
PC,PNTMES
/GLP/
aSWR
RPT10

BIS

#176 ,R2

sLONG GALLOPING ENABLED?
;BRANCH IF YES
;TO RPT10
sOTHERWISE SET THE LOW ORDER BITS OF

GALLOP

;

JSR
LASCIZ
TSTB

;UNDER TEST

.TO GET THE HIGH BOUNDRY
PERFORM GALLOPING TEST

THE ADDRESS

CZKMA
MACY11 30A(1052) 065MR-79
CZKMAF P11
05-MAR-79 09

09:022 PAGE 48
WORST CASE TESTING FOR CORE MEMORY
AR

'TEST 12

AR R A

A AR AR R

SEQ 0048

AR AR AR A AR AR AR AR AR R AR A AR AR AR RN

WORST CASE TESTING FOR CORE MEMORY
STARTING FROM THE LOWEST LOCATION UNDER TEST THE MEMORY
IS WRITTEN WITH A BACKGROUND OF BAKPAT, HOWEVER LOCATIWS
HAVING ADDRESS SUCH THAT EXCLUSIVE OR OF ADDRESS BITS
1 &
8 = 1 ARE WRITTEN TO A YALUE 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 LOUEST LOCATION UNDER TEST IS REACHED

WITH XOR
OF ADDRESS BITS é € 13 =1 ARE WRITTENLOCATIONS
TO SWAPPED
BAKPAT

'(8)

'--

2284
2285
8¢

2288
2%38

106
112
114
120

122737
001403
004767
000041

122

012702

004126
004132
004140

004142
004146

012703
112737
010401

013700
030201

004160
004162

000402
030301

HOWEVER THIS TIME

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.

twttttttrtttttttnttttttttttttttttttttnttntt\nttttttttatnfitttttt

000012

000404

TST12

002046

000002

000400
000001

000316

000306

1%:

2%:
4%:

6%:

2298
2299

REPEAT STEPS
1

CMPB
BEQ
JSR
41

#120MSTESTN

MOV
MOV
MOvB
MOV

#2 ,R2
#400,R3

MOV
BIT
BNE
BIT
BEQ
com

PC,SEQERR

;*ERROR* REPORT ERROR MESSAGE AND HA. T AT FATHLT
sanxxx*ERROR

#1,a4PASFLG
R4 ,R1

a#BAKPAT
RO
R2.R1

R3,R1
12%
RO

12%
8%:

;CHECK FOR PROPER TEST SEQUENCE

R3.R1

NUMBER

41xxanxx

;PREPARE TO TAKE THE EXCLUSIVE OR OF ADDRESS BITS 1
JAND 8

JINITIALIZE THE COUNTER FOR THE SUBTEST
PLACE

THE STARTING ADDRESS OF MEMORY UNDER

:TEST IN R1

;sCHECK TO SEE

JIF

IF ADDRESS BIT STORED IN R2 IS SET

IT IS SET THEN GO TO 8%

sCHECK TO SEE IF ADDRESS BIT POINTED BY R3 IS SET
JIF IT IS NOT SET THEN GO TO 12%
;sCOME HERE ONLY IF EXCLUSIVE CR OF ADDRESS BITS

JPOINTED BY R2 & POINTED BY R3 = 1 IN WHICH
s CASE PREPARE TO WRITE THE LOCATION
JWITH A COMPLEMENT OF LOCATIONS NOT MEETING
;THIS CONDITION
s COME HERE

ADDRESS BIT POINTED BY R2 IS 1

AND

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02

2300
2301

004164

001774

09:02
PAGE 49
112
WORST CASE

BEQ

TESTING FOR CORE MEMORY

;CHECK ADDRESS BIT POINTED BY R3
;IF ADDRESS BIT POINTED BY R3 IS O THEN GO TO 6%

SEQ 0049

CZKMA
MACYT 30A(1052)
05=MAR-79
CZKMAF .P11
05-MAR-79 09:02

2302
2303

004166
004174

132737
001001

000002

09: 02 PAGE 50
T2
WORST CASE

000306

12%:

BITB
BNE

TESTING FOR CORE MEMORY

#2 ,MPASFLG
14%

;IS IT 2ND OR 3RD PASS OF THE SUBTEST ?
;1F SO THEN READ THE MEMORY

SEG 0050

(ZKMA

MACY11

2304
2305

004176
004200

2307
5%83

004204
004210

004767
000042

001420

2310
2311

004212
004216

012746
005100

000002

2313
2314
2315
5;}9

004222
004224
004226
004232

020011
001404
004767
000043

2318
2319

004234
004236

010011
oosilg

2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
gggg

004242
004244
004252
004254

005726
122?37
001412
062701

004260
004262
004264
004270
004276
004300

020105
103727
105237
122737
001720
162701

2333
2334
2335

004304
004306
004310

020104
103315
012702

2337

004314

105237

2339

004326

103701

CZKMAF .P11

2306

2312

004202

004220

2320 004240

2336
2338

2340
2341
2342

2343

2344
2345
2346

2347

004320

30A(1052)

O5S-MAR-79

05-MAR=79 09:02
010011
020011

001403

123727

RO, (R1)
RO, (R1)

JOTHERWISE WRITE THE MEMORY BFORE READING IT
JREAD THE MEMORY FOR CORRECT CONTENTS

JSR
42

PC,ERROR

;*ERROR* REPORT ERROR MESSAGE
iwxxanxERROR NUMBER 42%#%x#%

MoV
COM

#2,=(SP)
RO

CMP
BEQ
JSR
o

RO, (R1)
19§
PC,ERROR

MOV
DEC

RO, (R1)
(SP)

JRESTORE THE LOCATION (R1)

TST
CMPB
BEQ
ADD

(SP)+
#3,Q4PASFLG
208
#2 .R1

CMP
BLO
INCB
CMPB
BEQ
Su8

R1.RS
43
@#PASFLG
#2 ,a#PASFLG
2% .
#2.R1

JRESTORE THE STACK POINTER
;1S IT THE 3RD PASS OF THE SUBTEST ?
*IF SO THEN GO TO 20$
;IN FIRST 2 PASSES THE PROGRAM PROCEEDS IN
sMIN. TO MAX. DIRECTION
;HAVE WE REACHED THE MAX. ADDRESS UNDER TEST ?
*IF NOT THEN REPEAT FROM 4$
JIF IT IS THE 2ND PASS OF THE SUBTEST
;THEN REPEAT FROM 2%
;g}ggwg EXECUTE THE TEST IN MAX. TO MIN.

020000

CMP
BHIS
MOV

R1.R4
43
#20000,R2

sHAVE WE REACHED THE MIN. ADDRESS UNDER TEST ?
sIF NOT THEN REPEAT FROM 4%
sPREPARE TO CHECK: THE MEMORY ‘WITH THE XOR OF

000307

INCB

A#PASFLG+1

sTHE SUB TEST HAS CHECKED THE XOR ONE KIND

BLO

*IF NOT THEN GO TO 1%

14%:

000003

000306
000002

000306

000002

000307

004342
004346

005137
105737

000316
000316

004354

000625

001654

000306

000002

000010

000674

19$:

101004
012702
006303

004352

168:
188:

001376

004330
004332
004336

004340

WORST CASE TESTING FOR CORE MEMORY
MOV
CMP

005111

001

09:?.;22 PAGE 51

208:

000002

BEQ

COM

BNE

C(MPB

22%:
END12:

16$

(R1)

18$

@#PASFLG+1,#2

BHI
MOV
ASL

22%
#10,R2
R3

COM
TSTB

A#BAKPAT
Q#BAKPAT

END10

BEQ

TST12

SEQ 0051

‘

;READ THE MEMORY AGAIN
;*ERROR* REPORT ERROR MESSAGE
iawxxx*ERROR NUMBER 43%wxxnw

;EXECUTE THE CODE FROM 18% TWICE

;ADDRESS BITS 8 AND 13

:HAS TWO XOR COMBINATIONS BEEN CHECKED 2

sIF ALL THREE HAVE BEEN CHECKED THEN GO TO 22%
JIF IT IS THE 2ND XOR COMBINATION THEN CHECK
:FOR ADDRESS BITS 3 & 8

;IF THE TEST WAS NOT PERFORMED WITH THE SWAPPED
ot
;BAKPAT THEN RE-EXECUTE THE TEST

CZKMA
MACY11 30A(1052)
OS-HAR-79
CZKMAF .P11
05-MAR-79 9:02

09:02_ PAGE 52
T13
WRITE RECOVERY TEST
SRR AR AR

AR A AR A AR AR AR

AR R AR

&
SEQ 0052
AR R AR RN R AR AR R AR R AR RN RN

YL SRRTAR AR

(fl‘l’l.l'l'!lllllllllll'l.ll.'

tTEST 13
WRITE RECOVERY TFST
THIS TEST DIFFERS FROM G-12 IN THAT IT CWSISTS OF A SMALL TEST PROGRAM
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 BANK IS ENTERED '‘TST13 BAK XX''
IS TY'F’EII)LE('I;HIS WILL ALLOW THE USER TO AT LEAST SEE WHICH MEMORY

AL TN

THE TEST CONSISTS OF 1/2 OF THE BANK STORED WITH ‘MOV R2,-(PC)'’
AND THE OTHER 1/2 CONTAINING '‘177667''. "177667'' 1S THE COMPLEMENT

TSN T TR TR TR

OF 'JMP (RO)'' INSTRUCTION.

TN T

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:

N T TR

THE HIGHEST ADDRESS UNDER TEST.

R T
L

3. THIS SEQUENCE CONTINUES UNTIL THE ‘MOV R2,=-(PC) INSTRUCT IONS
REACH THE MIDDLE OF

2383

004374

012702

010247

2385

004400

012700

177667

000013

000404

T13:

001574
1%

THIS ADDRESS CONTAINED

"M77667'' SO AFTER THE COM =(R1) IT EQUALS 110
CLEVERLY THIS IS THE ‘JMP (RO)"‘ INSTRUCTION.
THE TEST BANK.

THEN THE ‘‘JMP (RO)'' INSTRUCTION IS

?ISDTE)S(gfliJ;ED RO CONTAINED THE RETURN ADDRESS BACK

122737
001403
004767
000044

(DUE TO =(PC),

2. SINCE RZ CONTAINS A ‘'COM -(R1)"* INSTRUCTION IT COMPLEMENTS

L IL

004356
004364
004366
004372

b
AT

2378
2379
2380
2381

THE 'MOV R2,-(PC)"* INSTRUCTION EXECUTES STORING

THE CONTENTS OF R2 IN THE ADDRESS IT VACATED

4.
E

ces

THESE STEPS ARE REPEATED FOR EACH BANK UNDER TEST.
i

1113323222222

222223

nsbmresm

;CHECK FOR PROPER TEST SEQUENCE

JSR
44

PC,SEQERR

;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
;exxxx*ERROR NUMBER 44xs#axs

MOV

#10247 ,R2

-:;hAgS THE OP CODE OF INSTRUCTION MOV R2,-(PC)

MoV

#177667 RO

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

s INSURE LOUEST TEST ADDRESS TO END OF 4K SEGMENT IS MULTIPLE OF 2

:SINCE THE TEST STORES 'MOV R2,=(PC)

2390

004404

010546

2%:

29%:

000002

30%:

MOV

R5,=(SP)

IN 172 AND 177667 IN THE OTHER 1/2

;SAVE R5

Ig(L)\c/

R4 ,=(SP)

sSTORE LOWEST ADDRESS ON STACK

ROR
ROR
SuB
ROR

RS
R4
R4 RS
RS

sMAKE POSITIVE BYTE COUNT OF HIGH ADDRESS
;DO _SAME FOR LOWEST ADDRESS
;GET DIFFERENCE OF LOWEST ADDRESS AND HIGHEST
sIF DIFFERENCE IS ODD THEN R4 IS AT LOWEST ADDRESS

8CC
ADD

308
#2,(SP)

(SP)+ R4
(SP) + RS
R4 ,R3

JRESTORE R4 (POSSIBLY INCREASED BY 2 FROM ENTRY)
sRESTORE HIGHEST TEST ADDRESS
PLAC§ THE LOWEST LOCATION UNDER TEST

25¢

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

MOV
MOV
MOv

sBRANCH IF R4 IS AT LOWEST TEST ADDRESS.
s INCREASE LOWEST TEST ADDRESS BY 2

; IN

CZKMA
MACY11 20A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02
2404
2405

2606

2407
2408
2409
24610
2411
2412
2613
2414
2415
2416
2617
2418
2419
2420
2421
2422
2423
2424
2425
2426
2627
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
244l

004440

042703

004444

001507

000405

020527

020000

010301
052701
005201

WRITE RECOVERY TEST

3s:

017776

105737
100504
020305
103102

09:023 PAGE 53

BIC
BEQ

TSTB

#17776.R3
-

148

@#REL

SEQ 0053

;CAUSE R3 TO POINT TO THE LOWEST LOCATION
:IN THE 4K BANK UNDER TEST

;1F ADDRESS WENT TO O, IT MUST BE A 30k SYSTEM
sARE WE RELOCATED?

BM]
14$
JBRANCH IF YES-TEST BANKO ONLY28%:
CMP
R3.R5
;1F R3 IS HIGHER THAN THE HIGHEST LOCATION
14$
BHIS
:UNDER TEST THEN EXIT
:IF RS LESS THAN 20000 THEN WE ARE TESTING BANKO RELOCATED IN BANKO
CMP
RS,
#20000
;1S HIGHEST TEST ADDRESS BELOW 4K?

BHIS

31%:

017777

31§

MOV
BR

RS,R1
32%

MOV

R3,R1

INC

BIS

#17777.R1

:BRANCH IF NO

:SET R1 TO HIGHEST TEST ADDRESS IN BANKO
;SET R1 TO LOWEST CURRENT TEST ADDRESS
sSET LOW ORDER ADDRESS BITS
;CAUSE R1 TO POINT TO THE HIGHEST LOCATION+2
;OF THE 4K BANK BEING POINTED BY R3

001402

BEQ

328

020105

CMP
BLOS
MOV

R1,RS
33§
RS5.R1

33%:

BITB
BNE

#1,a#PASFLG
16$

;1S THE LOWEST BIT OF LOCATION PASFLG
sSET? IN WHICH CASE BACK GROUND HAS
sALREADY BEEN WRITTEN AND WRITE RECOVERY
sTEST IS BEING PERFORMED

4%:

CMP
BLO

R3,R4
8%

;OTHERWISE WRITE THE BACKGROUND
;DEFINED AT STEP 3.
;1S THE TEST JUST DOING READ, I.E.
:1S THE PASFLG+1 LOCATION NON ZERO? IF SO
:THEN GO TO 6%

101401

010501

132737
001101

32%:

000001

000306

000307

012713
020213

010200
004767
000045

012601
012600
105737

004572

001005

004574
004576
004602

010200
004767
000046

000663

010247

001050

000306

001026

TSTB

QAPASFLG+1

MOV
CMP
BEQ
MOV
MOV
MOV
MOV

#10247, (R3)
R2, (R3)
8$
RO,=(SP)
R1,=-(SP)
R3.R1
R2,R0

BNE

6%:

JSR

PC.ERROR

MOV
MOV

(SP)+,R1
(SP) +.R0

TSTB

@#PASFLG

;BRANCH IF R1 WENT TO O (WHICH MIGHT

sHAVE HAPPENED IF TESTING A 30K LSI SYSTEM)
;COMPARE R1 TO HIGHEST ADDRESS UNDER TEST
;BRANCH IF WITHIN RANGE
;SET R1

:WRITE

TO THE MAXIMUM AVAILABLE MEMORY

THE LOCATION WITH THE OP CODE

;READ (R3)

TO CONTAIN CORRECT DATA

FOR MOV R2.=(PC)

RO
;SAVE
;AND R1 ON THE STACK

;SET RO= GOOD DATA FOR ERROR PRINTOUT
;*ERROR* REPORT ERROR MESSAGE
sexxx**ERROR NUMBER 45axnnnxn
;RESTORE R1

;AN D RO

:IF PASFLG IS O AND THE MEMORY DOES NOT HAVE

:THE PROPER DATA THEN WE DON'T WANT TO GO AND

EXECUTE THE INSTRUCTIONS STORED IN MEMORY UNDER
; TEST
:BRANCH IF PASFLG NOT =0

BNE

MOV
JSR
46

R2,R0
;SAVE FOR ERROR REPORT
PC.ERROR
; *ERROR* REPORT ERROR MESSAGE

END12

iaxaxexERROR NUMBER 46axxswx

;ABORT TST 13.

CZKMA
MACY11 30A(1052)
05=MAR-79
CZKMAF .P11
05-MAR-79 09 :02

2460
2461
2462
2463

062703
162701

020105

2464

09: 02 PAGE 54
713
WRITE RECOVERY TEST
8%:

000002
000002

2465

091002
012711
020011
0014C3
004767
000047

000307

10%:

000760

020301

12%:

103722

SEQ 0054

#2,R3

; INCREMENT R3 BY 2

CMP

R1.RS

;WRITE

SUB

#2 R
12§

CMP
8LO

R1,R3
108

BNE
MOV

108
#177667,
(R1 )

(MP

RO, (R1)

JSR
47

PC,ERROR

CMP
BLO

R3,R1
43

TSTB

177667

ADD

BHIS

103014

BEQ

@#PASFLG*1

12%

;DECREMENT R1 BY 2

THE BACKGROUND DEF INED AT STEP 4.

sHAS STORING THE 177667 REACHED WHERE ‘MOV R2,=(PC)
:BRANCH IF YES DON'T DESTROY THE MOV R2.=(PC) IS.
;1S THE THE READ ONLY CHECK PASS?
:BRANCH IF YES
sWRITE THE LOCATION WITH THE COMPLEMENT OF THE
;0P CODE JMP (RO)

:READ R1 TO CONTAIN CORRECT DATA
; *ERROR* REPORT ERROR_MESSAGE

saxnxxxERROR

NUMBER

47%xnnnxn

:IF WE HAVE NOT REACHED THE MIDDLE OF 4K BANK

;THEN REPEAT FROTM 4$

sRETURN HERE AFTER PROGRAM RUN IN BANK UNDER TE:’

004672

062703
000666

020000

122737

200001

103627

004676

105137

004702
004704

001240
012702

004710
004714

012700
060700

004724
004732

004734

004740
004742
004746
004754

000306

14%:

001437

004674

004716
004722

13%:

105237

ADD

#20000,R3

;OTHERWISE GO TO THE NEXT 4K BANK

CMPB

#1,a4PASFLG

s THE PROGRAM CONTROL COMES HERE AS FOLLOWS
; 1-PASFLG=0, PROGRAM HAS JUST COMPLETED A

BEO

243

:
;_

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

BLO

END12

:3-PASFLG=2, PROGRAM HAS CORRECTLY READ THE
:~
MEMORY AND WANTS TO GO THE NEXT TEST.

000307

COMB

aAPASFLG+

;ENTER HERE WITH PASFLG=0, ON THE FIRST ENTRY
sENABLE READ ONLY FOR THE MEMORY AND ON THE SECOND

005141

BNE
MOV

2s
#5141,R2

177740

MOV

000306
000020

173516

000042

001644
030524
000113

PC.RO

15%:

INCB
BR

@4PASFLG
2%

16%:

BIT
BNE

#20,3SWR
18%

BNE
JSR

18$
PC,PNTMES
/TST13 BNK/

TSTB

020063

#138-.-6,R0

ADD

LASCIZ

.EVEN

a#42

;ENTRY DISABLE READ ONLY

?hACS THE OP CODE FOR INSTRUCTION COM -(R1)
;PLACE

THE RETURN ADDRESS

IN RO AS 13$%

:THUS WHEN THE READ RECOVERY TEST REACHES

:THE MIDDLE OF THE 4K MEMORY THEN THE
s INSTRUCTION EXECUTED WILL BE JMP (RO)
;BRANCHINGING THE PROGRAM TO 13%
s INCREMENT PASFLG BY 1.
JHAS THE PRINTOUTS BEEN SUPRESSED ?
:IF SO THEN GO TO 18%
;1S THE PROGRAM RUNNING UNDER A(CT?
sBRANCH IF YES
; TYPE THE BANK UNDER TEST

[S?

CZKMA
MACY11 30A(1052)
O0S=MAR=79
CZKMAF .P11
05-MAR=-79 09:02

2516

004760

004767

3238

004770

000113

2521
2522
2523
2524

004772
004776
005002

105137
012700
000745

gg}g

gggg

2527

004764

004767

09:02 PAGE 55
T13
WRITE RECOVERY TEST

002454

5
SEQ 0055

JSR

PC, GE TBNK

;GET BANK NO. UNDER TEST

18%:

JMP

(R3)

;BEGIN EXECUTING MOV R2,=(PC)

24%:

COMB
MOV
R

AMPASFLG+1
#110,R0
15%

;PLACE THE OP CODE FOR JMP (RO) IN RO
; READ THE MEMORY FOR CORRECT DATA AFTER

001650

000307
000110

JSR

PC,$TPDEC

;TST13 EXITS VIA END12.

:TYPE BANK NG. UNDER TEST

; INCREMEMT
ING PASFLG TO 2

INTO DECWRD FOR PRINT.
,COM =(R1) SEQUENCE

IN TES

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

000377
000276

000316

032777
001046

001000

173422

0573
0042
1273

NO~N

012737
105737
001065

-l
b

005004
005012
005016

09:02

PAGE 56

PARITY OR RELOCATE?

RELOC:

000200

MOV
ISTB

#377 ,aNBAKPAT
a#MMAVA
CONTMM

BIT
BNE

#1000,aSwR
CKDONE
a#REL
RELOER
#200, a4REL

BNE

000405

TSTB

000405
;RELOCATE

004767
042522

001542
047514

013705

000340

014445
020427

000430

000165

000050

101374

SEQ 0056

THE

DIAGNOSTIC

2%:

MOV

cMP
BHI
JMP

. IF

THE PROGRAM HAS ALREADY BEEN RELOCATED THEN ALSO

PLACE

THE PROGRAM BACK

IN LOWER CORE

;OTHERWISE PREPARE TO RELOCATE

TO HIGHEST AVAILABLE MEMORY

JSR
PC.PNTMES
.ASCIZ /RELOC/
.EVEN
MOV
ANMAXMEM
RS

000103

;IS THE MEMORY MANAGEMENT BEING TESTED ?
sIF SO THEN GO TO CONTMM AND CONTINUE TESTING
;MEMORY MANAGEMENT
JRELOCATION WANTED?
;BRANCH IF NO

=(R4) ,-(R5)

R4 ,ABEGIN-50
2%
50(RS)

sTYPE "REL"'

;PREPARE TO LOAD THF FROGRAM IN THE HIGHEST
JAVAILABLE MEMORY
;RELOCATE THE PROGRAM
sNEITHER RELOCATE NOR TEST LOCATIONS LOWER THAN BEGIN=50

:*RELOCATE THE DIAGNOSTIC BACK TO LOWER MEMORY

013705

105737
100016

012704
012524
020537
103774
105037
010537
012706
010637
000137

000346
000405
000430
000340

RELOCR: MCV
TSTB
BPL

SMREL
CKDONE

a#SAVRS
RS

sRESTORE R5
;1S DIAGNOSTIC IN RELOCATED STATE?
;BRANCH IF NO

2%:

#BEGIN-50,R4
(R5)+,(R4)+

;PREPARE

MOV

TO RELOCATE

THE PROGRAM TO LOWER CORE

RS ,a#MAXMEM

000405
000346
000500
000350
005150

CKDONE:

JMP

a#REL
RS ,a#SAVRS
#BEGIN,SP
SP,a#SAVR6
a#LOWER

105737
001073
004767

000315

LOWER:

TSTB

a#SAVKBB

001702

TSTMM:

JUSR

PC .MEMMNG

105737
001462
000402
004767
012703
004767

000276

TSTB

a#MMAVA

002036
000324
002142

CONTMM: JSR
$CNTMM: MOV
JSR

012704

020000

MoV

#20000,R4

020237

172342

tMP

R2,a4172342

BEQ

$TPSTK

ENDPAS
$CNTMM

PC,UPMM

#LOWTWO,R3
PC,GETSIZ

:SAVE RS
JRESET STACK TO LOWER MEMORY
;' BEGIN'' USES THIS TO RFSET THE STACK.

;TRANSFER THE PROGRAM CONTROL

TO THE LOWER CORE

sHERE DUE TO “C TYPED?
sBRANCH IF YES (TYPE ERROR STACK)
; SET THE REGISTERS IF THE MEMORY MANAGEMENT
;IS AVAILABLE
;1S MEM. MANAG. AVAILABLE ?
sBRANCH IF NO
sBEGIN TESTING ABOVE 28K
:GO TO UPDATE MEM. MANAG. REGISTERS

JMAKE 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 !N THE BANK
;POINTED BY PAGE ADDRESS REGISTER 1 (PAR1)
;1S THE CONTENT OF R2 LOWER THAN THE CONTENT OF

CZKMA

MACYN

CIKMAF .P11

2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
%233

30A(|052)0 OgsnAR-79

05-MAR-79

005216
005220

103405
050104

005222
005226
005232

162702
004767
004767

000200
001636
002112

005236
005242
005244
005250
005254

004767
010005
004767
004767
010013

000020

005256

000167

09:02

PAGE 57

PARITY OR RELOCATE?

28:

002100
000006
174256

SEQ 0057

BLO
BIS

2%
R1,R4

SUB
JSR
ISR

#200,R2
PC ,MMREG
PC.GETSIZ

JSR
MOV
JSR
JSR
MOV

PC ,MAXADR
RO.RS
PC.GETSIZ
PC MAXADR
RO. (R3)

JMP

CLRMEM

:PAR1 ?
“IF SO THEN GO 2%
*SUBROUTINE GETSIZ LOADED R1 WITH BITS 0=12
:OF LOWADD WHICH HAVE NOW BEEN LOADED IN Ré&
; SET MEM. MANAG. REGISTERS
:PLACE BITS 13-17 OF HIGHEST LOCATION TO BE TESTED
$IN BITS 6=10 OF R2, #160000 IN RO AND BITS 0-12
*OF LOCATION HIGHADD IN R1
: GET THE ADDRESS OF MAX. MEM. UNDER TEST
; PREPARE TO SET UP LOCATION MAXMEM
: GET THE MAXIMUM ADDRESS OF AVAILABLE MEMORY
:AND STORE INTO 'MAXMEM''
:GO TEST A 24K SLICE ABOVE 28K.

2601
%28%

E@é?fi?EEsS“BROUT’"E TO GET CURRENT 24K SLICE OF MEMORY ADDRESSES ABOVE 28K.

2604
2605

;RO= ON ENTRY= #160000 AND ON EXIT=HIGHEST VIRTUAL ADDR. UNDER TEST
*R1= LOW ORDER 12 BITS OF VIRTUAL TEST ADDRESS

528?

2608

2609

2610

‘R2= PAR BLOCK NO.

005262

005264

2611

005270

2613

005276

2612

2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
525?
2626
2627

010046

012700

172356

162716

020000

005274

050116

005300
005302
005306

001410
020027
101370

005310
005312

005720
021002

005314
005316
005322
005324
005330

005332

020240

003006
012716
012600
062700
000207

022626

172340

157776
000002

MAXADR: MOV

MOV

CURRENTLY UNDER TEST.

RO,=-(SP)

#172356 R0

;PUT MAXIMUM AVAILABLE ADDRESS ON STACK

*RO=PAR7 UNIBUS ADDRESS

; **BEGIN LOOP TO FIND PAR ADDRESS UNDER TEST

SUB

#20000, (SP)

:DECREMENT VIRTUAL ADDRESS BY 4K

CMP

R2.=(R0)

*DOES CURRENT PAR= TEST BLOCK NO.?

BIS

R1, (SP)

:SET BITS 11:0 TO MAXIMUM VIRTUAL TEST ADDRESS

BEQ
38
CMP
RO, #172340
BHI
2$
;*+*END LOOP TO FIND PAR ADDRESS
ST
(RO)+
CMP
(RO) ,R2 ;IS THE
BGT
43
MOV
#157776, (SP)
3$:
MOV
(sP)+,R0
ADD
#2.RO
RTS
PC

*BRANCH IF YES
*ARE WE AT PARQ?
*NO KEEP TRYING
UNDER TEST
sSET TO PAR CURRENT
PAR BLOCK UNDER TEST GTR THAN ALLOWED?
:BRANCH IF YES (FALL INTO ENDPAS)
TEXIT WITH MAXADR= 28K SEGMENT TEST SIZE
*SET RO TO MAXIMUM VIRTUAL TEST ADDRESS
*MAKE MAXIMUM MEMORY+2
;AND EXIT MAXADR ROUTINE

4%:

sFIXUP STACK
JAND FALL THRU TO ENDPAS.

CMP

(SP)+,(SP)+

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

09:02
PAGE 58
TYPE ROUTINE FOR ERROR STACK

5
SEQ 0058

2628
2629

;* TYPE ROUTINE FOR ERROR STACK
i
——

2631

2630

gg%g

2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646

2647

2648
2h49
2650
2651
2652
2653
2654
2655
2656
2657
2558
2659
%gg?

2662
2663
2664
2665
2666
2667
2668
2669
2670

2671
2672
2673
2674
2675
2676

005334
005342
005344

032777
001055
012746

000020

005350

177777

ENDPAS: BIT
BNE
$TPSTK: MOV

#20,aSWR
$EOP
#=1,-(SP)

012701

007744

MOV

#ENDPRG,R1

005354
005360
005362
005366
005370
005374
005376

012703
005216
020137
103043
112702
105302
002766

000376

005400
005402
005404

105721
001774
020227

005410
005412

103404
101026

005414
005420

004767
000404

000310

000022

173106

THIS ROUTINE IS USED TO DETERMINE IF

TYPSTK: MOV
INC
CMP
BHIS
MOVB
RETSTK: DECB
BLT
TSTR
BEQ
CMP

000020

BLO
BHI

001000

JSR
BR
MOV

005422

010237

000312

2%:

005426
005432
005436
005442
005444

004767
011637
004767
005043
114113

001202
000312
001176

JSR
FAILNM: MOV
JSR
CLR
MOVB

005446
005450
005452
005456

105021
005043
105237

004767

005462
005466
005470
005474

012703
000742
004767
000756

000314
001316
000376
000750

PARFL:

TYPE OUT OF

FOR ONLY THE FAILING BITS IS REQUIRED OR NOT

THE ERROR STACK

JARE WE GOING TO TYPE THE ERROR STACK AND END OF PASS?
;IF NOT THEN GO TO $EOP
. THE PROGRAM HAS REACHED THE END AND ERROR
;STACK AND END OF PASS WILL BE TYPED OuT
sPLACE THE STARTING ADDRESS OF
;FOR 0 TO 4K MEMORY IN R1

THE ERROR STACK

#376 ,R3
(SP)
;IF WE HAVE GONE THRU THE ENTIRE
R1,a#ENDSTK
<HAS THE END OF THE ERROR STACK BEEN REACHED ?
$EOP
sTHEN GO TO TYPE EMND OF PASS
#18. .R2
R2
;IF ALL 16 BITS OF THIS BANK HAVE BEEN CHECKED.
TYPSTK
;BEEN CHECKED FOR ERROR THEN SEE IF THERE
;IS ANY MORE 4K MEMORY BANK
(R1)+
;OTHERWISE CHECK THE BYTE STORED AT (R1)
RETSTK
JIF IT IS O WE WILL NOT TYPE IT
R2.#16.
;1S THE POINTER PCINTING TO ERROR STACK BYTE
JMEANT FOR COLLECTING ADDRESS FAII.URES FOR
sTHE SPECIFIC MEMORY BANK
2%
;IF NOT THEN GO TO TYPE BIT NUMSER
PARF L
JIF IT IS POINTING TO THE STACK LOCATION INTENDED
;TO COLLECT PARITY FAILURES THEN GO TO PARFL
PC, TPADER
;OTHERWISE TYPE '‘ADDRESS ERROR''
FAILMM
R2,a#DECWRD
:?RES???MIE TYPE THE NUMBER OF THE FAILING BIT

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

CLRB
CLR
INCB
JSR

(R1)+
-(R3)
a#TYPCNT

MOV
BR
JSR
BR

#376,R3
RETSTK
PC, TPPRER
FAILNM

PC,RPTOCT

JIN

;GO TO TYPE THE 3IT NUMBER IN DECIMAL
;PREPARE TO TYPE THE PAGE NUMBER
;IN DECIMAL
JPREPARE TO PRINTOUT THE NUMBER OF
sFAILURE OCCURED
;CLEAR THE ERROR STACK

TIMES THIS

JENABLE THE TYPE OUT OF 1 WORDS
. TYPE THE 4K BANK AND THE NUMSER OF TIMES
;THIS FAILURE WAS SEEN
JRESET SCRATCH STACK FOR EACH BIT PRINTED.
:

TYPE 'PAR ERR''

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02

09:02
PAGE 59
END OF PASS

SEQ 0059

2677
;* END OF PASS
*

$EOP:

005500
005504

004767
105737

002014
000315

2692
2693

005512
005515

005237
032777

000406
000040

172724

2695
2696

005526
005532

004767
040520

001052
051523

000043

2698
2699
2700

005540
005546
005552

013737
004767
013700

000406
001066
000042

2702
2703

005560
005564

004767
000005

060012

2707

005566

000137

000156

2709

005572

000137

000250

$DOAGN:

2711
2712
2713
2714
2715
2716

00557%
005602
005606
005€10
005614
005616

004767
013704
014445
020437
101374
000207

001616
000344

RLODER:

(000310

TYPEOP:

000312
ACT11:

'PASS#'' AND DISABLE PARITY.

ALSO SERVILE ACT11,
AND EVERY CONSECUTIVE PASSES UNLESS BIT 4 OF $SWREG IS HIGH

(LR
JSR
TSTB
BNE
INC
BIT
BNE

R2
PC,PARITY
a#SAvkBAB
CTLC
AFSPASS
#4C ,aSWR
ACT11

ASCIZ
.EVEN
MOV
JSR
MOV
BEQ
JSR

/PASS#/

- "

2689
2690

TYPE

;e
i

JSR

RESET

PC,TPCRLF

TYPE

CR,

LF,

AND 'PASSH'’

A#$PASS , a#DE CWRD
;GET PASS COUNT
PC,$TPDEC
TYPE IT
a#é2 RO
sGET THE MONITOR ADDRESS
$DOAGN
s IF _NONE
PC,RLODER
RESTORE XXDP MONITOR
;RETURN TO ACT11

;* SERVICE XXDP/ACT11

4%:

;SET RZ2= PARITY MODULE DISABLE CODE
;GO DISABLE PARITY MODULES IF SELECTED.
s CONTROL=C TYPED?
;BRAMCH IF YES-RESTORE LOADERS AND HALT=s INCREMENT PASS COUNT
;" PASSAXX'" PRINTOUT WANTED?
:BRANCH IF NO

MONITOR.

JMP

a#$ENDAD

;JUMP TO ACT SERVICE

JMP

Q#RESTRT

sREPEAT TEST

JSR

PC,CLRMM

;STOP MEMORY MANAGEMENT

MOV
MOV
CMP
BHI

a#SAVR4 R4
-(R4) ,-{R5)
R4, QFENDSTK
4%

JRESTCRE R4 WITH SAVR4
sRESTORE LOADERS

IF NOT UNDER ACT11/XXDP
SO CAN RESTORE

JRETURN FROM RLODER CALL

s CONTROL C HANDLER

2720
2721

005620
005624

004767

000167

177752

000400

CTLL:

JSH
JMP

PC,RLODER
APTHLT

JRESTORE ABS LOADER
;IF NOT APT HALT AT FATHLT

LOADERS

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02

2724
2725
2726
2727
2728
2729
2730
2731

09:02

PAGE 60

ERROR HANDL ING ROUT INE

SEQ 0060

;* ERROR HANDL ING ROUTINE
PROGRAM (COMES HERE EACH TIME AN ERROR IS ENCOUNTERED THIS
ROUTINE TYPES OUT THE ERROR MESSAGE IN THE FORMAT GIVEN EARLIER

005630
005640

017637
010346
C10046

000000

000402

ERROR:
1%:

Q(SP) ,a4SFATAL
R3,-(5P)
RO, =(SP)

:LOAD THE LOCATION SFATAL WITH THE ERROR NUMBER
*SAVE R3
*AND RO ON THE STACK

IN FATAL FOR APT

010103
004767

013703
110337

<1,R3

001570
000312

PC . GE TBNK

4PBNK R 3
R3,a#SFATAL+1

000403

2%:

000402
000006

UNDER TEST

:GET BANK UNDER TEST
-STORE FAILING BANK NO.

INTO PBNK

FOR APT

R3,-(SP)

;TEMPORARILY STORE R3

a?:§§FLG.-(R3)

:OUTPUT THE WORD STORED AT

#376,R3

000376
000306

:GET VIRTUAL ADDRESS UNDER TEST FOR GE TBNK

“GET BANK NO.

AUSFATAL,
(R3)
6(SP) ,~(R3)

:MAKE R3 AS THE STACK POINTER
;PUT ERROR NO. ON ERROR STACK
*PLACE THE RETURN PC AT (R3)

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

*PLACE BAD DATA,
*AND GOOD DATA ON THE STACK

000004

4(R3),

;TAKE THE

0000C4

4(R3) RO

001766

#ENDPRG=.=24.
,R0; THIS CODE BRINGS THE RELATIVE ADDRESS

RO, (R3)

000277
000200

*AND PLACE IT ON THE STACK

:OF THE STARTING OF THE ERROR STACK
;FOR THE SPECIFIC 4K BANK

(SP)+

JRESTORE THE STACK POINTER

ERRTYP:
1%:

a#TYPENB
a¥BPRERR
3%
(RO) +
A¥$ADERR
3%

;DISABLE ANY TYPE OUT
;IF THIS 1S PARITY PROBLEM
;THEN GO TO 3%
;OTHERWISE INCREMENT THE ERROR STACK POINTER BY 1
sIF THIS IS ADDRESSING PROBLEM
;THEN GO TO 3%

2%:

(R3)
4%
#377,(RC)
5%
(RO)

;1S BIT 15 OF (R3) SET?
s IF NOT THEN GO TO 4%
;OTHERWISE SEE IF THIS ERROR HAS OCCURED 377 TIMES
;1F SO DON'T BUMP ERRCR COUNT
s INCREMENT THE ERROR COUNTER BY 1

sBRANCH IF NO

sBRANCH IF

000301

000377

3%:

000001

5%:

172426

*EXCLUSIVE OR OF GOOD AND BAD DATA

:TO FIND THE BITS THAT FAILED

PC RO
#18..R0

6%:

000022

000400

(R3)

RO, (R3)

(RQ) +

#1,(RO)

#400,aSWR

s INCREMENT THE PQINTER RO BY 1

sMORE

THAN 1

ERROR OCCURRED ON THIS BIT?

:STOP ERROR PRINTOUT AFTER 1

YES

(DON'T

WANTED?

TYPE ERROR)

CZKMA
MACY11 30A(1052) 9035HAR-79
CZKMAF .P11
05-MAR-79 (O

2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793

006024
006030
006034
006036
006042
0206044
006050
006052
006056
006060
006062
006064
006066

105237
105737
001403
004767
000411
105737
001403
004767
000403
105720
006313
001342
112737

006074

000300

2794
2795
g;gg

006100

004767
_
004767

2798

006104

005037

2799
2800
2801
2802
2303

000277
000300

INCB
TSTB
BEQ
JSR
BR
TSTB
BEG
JSR
BR
TSTB
ASL
BNE
MOVB

a/TYPENB
¥ SPRERR
9%
PC,TPPRER
8%
a#$ADERR
6%
PC, TPADERR
8%
(RO) +
(R3)
2%
#6, M TYPCNT

001142

JSR

PC ,PUTADR

000616

JSR

PC,TYPERR

CLR

AH#SPRERR

00C301

6%:

000006

gggg

006130

2806
%gg;

006132
006134

010246
005777

2809

006140

100405

2812
2813
2814
Sg}g

006142

004767

001526

006146
006152

105737
001401

000042

2817
2818

006154

2820
2821
ggg%

2824
2825
2826
2827
2828
gggg

2831
2832
2833
2834
2835

9% :

000342

012600
012603
105737
001404
012737

2819

7%:
($:

000402

006110
006112
006114
006120
006122

gg}?

09:02 PAGE 61
ERROR HANDL ING ROUTINE

000314

8%:

108 :

SEQ 0061

JENABLE THE TYPE OUT ROUTINE
:PARITY ERROR?
;BRANCH IF NO
JELSE TYPE 'PAR ERR''
JAND DON'T TEST INDIVIDUAL BIT FAILURES.
;ADDRESS ERROR?
:BRANCH IF NO
;PRINT '"‘ADR ERR'’
;POINT TO NEXT ENTRY IN ERROR STACK
;1S THERE STILL AN ERROR BIT SET IN ERROR.
:BR IF YES - KEEP FILLING ERROR STACK
sTELL TYPOCT TO TYPE 6 WORDS OF ERROR STACK.
;THE STACK POINTED BY R3
;GO TO THE SUBROUTINE TO PLACE THE ADDRESS IN R1
;AT LOCATIONS (R3) AND (R3-2)
sTYPE ERROR STACK (7 WORDS)

;CLEAR ADDRESS/PARITY ERROR FLAGS

MOV
MOV
FNDERR: TSTB
BEQ
MOV

(SP)+,R0
(SP)+,R3
ISENV
2%
#1,a48MSGTY

FATHLT

;GOTO FATHLT AND WAIT FOR APT.

2%:

MOV
TST

R2,-(SP)
ASWR

:SAVE R2 TEMP
;ggEéR;gg OPERATOR REQUIRE THE PROGRAM TO HALT

BM]

A 3

:IF SO THEN HALT ON ERROR

JSR

PC,CHECKC

7%:

TSTB
BEQ

aws2
6%

;IF CONTROL-C TYPED THEN PRINT ERROR HISTORY
;AND HALT AT FATHLT.
;ARE WE RUNNING UNDER ACT?
:BRANCH IF NO

000000

4%:

HALT

006156
006160
006164

012602
062716
000207

000002

6%:

MOV
ADD
RTS

006166
006166
006172

004767
051105

000412
020122

006200
006206
006212
006216
006222

017637
105237
012703
013743
005743

020000
000314
000376
000402

000442

000420
000007

000400

172310

B8R

;CHECK FOR CONTROL=-C KEY

000043

000402

FATERR:
SFQERR: JSR
ASCiZ

.EVEN

MOV
INCB
MOV
MOV
TST

;RESTORE RO
;AND R3
;ARE WE RUNNING UNDER APT?
;IF NOT THEN TEST FOR HALT
;OTHERWISE INFORM THE APT

;PROGRAM HAS HALTED ON ERROR. R1 IS POINTING
;TO A LOCATION WHICH SHOULD HAVE CONTAINED

:THE WORD STORED IN RO

(SP)+,R2
#2,(SP)
PC

:RESTORE R2
JRESTORE THE RETURN ADDRESS
RETURN FROM THE SUBROUTINE

PC,TPCRLF
/ERR #/

:TYPE "ERR #"'

a(SP) ,a#$FATAL
a#TYPCNT
#376 ,R3
a#SFATAL ,~(R3)
-(R3)

;LCAD THE LOCATION S$FATAL WITH THE ERROR NUMBER
sTELL STPNUM TO TYPE 1 WORD
JSTPNUM UUSES R3 AS STACK
;PUT ERROR NO. ON STACK
:$TPNUM REQUIRES THIS

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF . P11
05-MAR-79 09:02

2836
2837
2838
2840

006224
006230
006234
006240

004767
105737
001327
000000
000137

000560
000420
000250

09:02
PAGE 62
ERROR HANDL ING ROUTINE
APTHLT:
FATHLT:

JSR
TSTB
BNE

FNDERR

JMP

Q#RESTRT

HALT

SEQ 0062

PC,FATYP

a¥SENV

s TYPE ERROR NO.

;RUNNING UNDER APT?

sBRANCH IF YES

sFATAL ERROR OR “C HALT,
JRESTART TST BUT DON'T

s IN CASE “C RESTART.

CLEAF PASS COUNT

PARE
:
RR

PARITY TRAP HANDLER
COHE HERE FROM A TRAP TO 114.
THIS ROUTINE SEARCHES THE AVAILABLE PARITY MODULES AND IF ONE
HAS A PARITY ERROR BIT SET THE GET THE PARITY ERROR ADDRESS

JAND CALL THE "ERROR'' ROUTINE TO PRINT ERROR MESSAGE.
:IF NO PARITY ERROR BITS CAN BE FOUND A FATAL ERROR IS DONE.

*REGISTER US AGE.

*RO= HOLDS PARITY MODULE ADDRESSES
*R1= GETS ERROR ADDRESS FOR 'ERROR'’ CALL.
2856
2857
2828

006244
006250
006254

012637
011637
013706

000356
000360
000350

2860
2861
2862
2863

006260
006264
006270
006274

010067
010167
013701
012700

000130
000126
000352
172100

2865
2866
2867
2868
2869
2870
2871
2872
2873

006300
006302
006304
006306
006310
006312
006314
006320
006322

2875

006330

005701
001441
006001
103005
005710
100406
020027
002032
062700
000766
042710

2881
2882
2883

006346
006352
006356

042701
105237
004757

PARERR:

MOV

MOV
MOV

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

;SET PARSP TO RETURN ADDRESS
;SAVE PSW FOR RETURN

RO, SAVRO
R1,SAVR1

:SAVE RO DURING PARITY SERVICE
:SAVE R1 DURING PARITY SERVICE

A#PARMAP
,R1
#172100,R0

1%:

3%
RO #172136
2%:

ADD

#2 RO

100000

3%:

BIC

#100000 (RO)
(RO),

INCB

;PARITY MODULE ERROR BIT SET?

:BRANCH IF YES =CALL "ERROR'‘ ROUTINE
;DONE ALL PARITY MODULES?
:BR _IF YES- GO TO FATAL ERROR CALL~;POINT TO NEXT PARITY ADDRESS
;AND KEEP TRYING

000002

000777
000300
177246

;GET PARITY AVAILABLE MAP

;RO= FIRST PARITY ADDRESS.
;ANY PARITY MODULES AVAILABLE?
:BR IF NO -FATAL ERROR;SHIFT PARITY MAP BIT INTO C BIT.
:BRANCH IF THIS PARITY MODULE NOT AVAILABLE.

ROR

172136

JAND RESET THE SP SINCE NOT ENCUGH STACK ROOM
;TO COMPLETE THE ERROR SERVICE ROUTINE.

;CLEAR PARITY ERROR BIT.
sGET PARITY MODULE CSR

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

#777 ,R1_;SAVE ERROR ADDRESS ONLY
a#$PRERR
;TELL "ERROR'' PARITY ERROR CALL.
PC,ERROR

;*ERROR* REPORT ERROR MESSAGE

saxxx*xERROR

2886 006364 016700 000024

SAVRO,RO
SAVR1,R1

MOV
RTI

@#PARPS ,=(SP)
@YPARSP,~(SP)

NUMBER

SOxraxxx

;JRESTORE RO
sRESTORE R1

;SET RETURN PSW ON STACK
;AND SET RETURN ADDRESS ON STACK

JRETURN TO TEST WHERE PARITY TRAP OCCURRED.

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02

2892
2893
2894
2895
2898
2899
2900
2238}
2903

2904
2905

2906
2907
2908
2909

006406
006406
006412

006414
006416

006420
006424

004767
000051

09:02 PAGE 63
ERROR HANDL ING ROUT INE

; COME HERE IF NO PARITY ERROR FLAG FOUND SET
6$:
JSR
PC,FATERR
s *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT
51
saxwxxxERROR NUMBER 57#wwwns

177554

;RO+R1 ARE SAVED HERE FOR PARITY TRAP DUE 70O INSUFFICIENT
:STACK SPACE BETWEEN 500-450.
SAVRO:
0
;SAVE RO DURING PARITY TRAP SERVICE
SAVR1:
0
;SAVE R1 DURING PARITY TRAP SERVICE

000000
000000
105737
001406

006426
006432
006440

004767
042101
000122

gg}?

006442

000207

2912
2913
2914
2915
2916
2917
2918

006444
006450
006452
006456
06464

105737
001406

004767

006466

(000207

040520

000122

SEQ 0063

000277

000160
020122

TPADER:

000134

020122

JSR
.ASCIZ

051105

000277

TSTB
BEQ

.EVEN

a#TYPENSB
1%

PC,PNTMES
/ADR ERR/

18:

RTS

TPPRER:

TSTB
BEQ

.ASCIZ

a#TYPENSB
1%
PC,PNTMES
/PAR ERR/

.EVEN
RTS

JSR

051105
1%:

: TYPE ERROR?
;BRANCH IF NO

TYPE CR, LF AND "'ADR ER"’

cERROR PRINTOUTS ALLOWED?
sBRANCH IF NO
;GO TO TYPE CR, LF AND 'PAR ERR"’

CZKMA
MACY11 30A(1052)
05<MAR=79
CZKMAF .P11
05-MAR-79 09:02

09: 02

PAGE 64

TYPE OUT ROUTINE

SEQ 0064

TYPE OUT ROUTINE

THIS ROUTINE

000002

NOTYP:

R1,=(SP)

A ¥

(R1)+
4%
RETTYP
R1,=(SP)
RO,=(SP)
4(SP) ,R1
(R1)+,R0
4%
PC.$TPCHR

$TYPE:

000004

2%:

000022
4%:

2943
2944

006542
006544

012601
16

2946

006546

132737
00100

RETTYP:

000001
000002

000040

000421

177564

2%:

177566

177706
2955
2956
2957
2958

2962
2963
2964
2965
2966

000

006602

000207
004767

006612
006620
006622
006630
006632

032777
001323
123737
001717
000764

$TPCHR:

177762

171630

000042

000046

(SP)+,R0O
R1
#1,R1
R1,2(SP)
(SP) +,R1
EXTYP

PC,$TYPE

<18§><12>

#20,aSWR
NOTYP
TPCRLF

:OTHERWISE GO TO TYPE THE CONTENTS OF RO

sHAVE TYPE OUTS BEEN DISABLED?

;IF SO THEN RETURN FROM THE SUBROUT INE
sWAIT HERE
JUNTIL THE PRINTER IS READY
:LOAD DATA TO BE TYPED INTO DATA REG.
sRETURN

sRETURN

PC ,PCRLF

L2,

:IF IT IS END OF MESSAGE THEN GO TO 4$

JCR/LF

$TYPE

NOTYP

:PLACE THE BYTE TO BE TYPED IN RO

sAND RETURN VIA RTS PC

PCRLF
:

PNTMES
:

:SAVE R1
:AND RO ON THE STACK
:PLACE THE ADDRESS OF MESSAGE TO BE TYPED IN R1

sRESTORE R1

zgo.a#SENVM

;IF THIS TYPE OUT HAS BEEN SUPRESSED THEN
sPREPARE TO RETURN

sRESTORE RO
;CAUSE R1 TO
;POINT TO EVEN ADDRESS
sMODIFY THE RETURN ADDRESS

4%:

TPCRLF
:

000020

2(SP) ,R1

aN$TPS
2$
RO,a#$TPB
EXTYP

EXTYP:

IS USED BY THE PROGRAM TO TYPE OUT ANY (HARACTER

sTYPE CR/LF

;NOW GO TO TYPE THE REST OF THE MESSAGE
sPRINTOUTS ALLOWED?

¢BRANCH IF NO
;RUNNING UNDER ACT 11?
sBRANCH IF YES =NOT PRINTOUT=sSEND CR/LF AND TYPE MESSAGE.

CZKMA
MACYN 30A(1052)
05-MAR-79
CZKMAF .P11
05<MAR-79 09:02

09:02

PAGE 65

ROUTINE

TO TYPE OUT A DECIMAL NUMBER
ROUTINE

SEQ 0065

TO TYPE OUT A DECIMAL NUMBER

THIS ROUTINE IS USED TO CONVERT THE CONTENTS OF LOCATION
DECWRD TO DECIMAL NUMBERS AND TYPE THEN FOLLOWING 3 SPACES

006634

004767

006640
006642

005046
013746

000312

162716

000012

006646

006652

002403

177732

TYPDEC:

PC,PCRLF

$TPDEC:

=(SP)
a#DECWRD ,=(SP)

2%:

006654
A ¥

006672

006702
006706

177572

006712

030040

006720

sGET THE WORD THAT HAS TO BE CONVERTED TO A
;DECIMAL NUMBER
:és ;SELQUHBER IN (SP) WAS LESS THAN 10. THEN

2(SP)
2%

:OTHERWISE ADD 1 TO THE LOCATION STORING 10'S DIGIT

#10.,(SP)
#60, (SP)
(SP) +,6%~2
#60, (SP)

(SP)+,6%$~3

6%:

CR/LF

PC,$TYPE

000060

;TYPE

sAND RETURN TO 2%

sMAKE THE CONTENTS OF (SP) A DECIMAL NUMBER
sPLACE THE 1°'S DIGIT TO BE TYPED
sMAKE THE CONTENTS OF (SP) A DECIMAL NUMBER
sPLACE THE 10'S DIGIT TO BE TYPED
;gosggcggpf

THE NUMBER IN DECIMAL FOLLOWED BY

00/

sRETURN FROM THE SUBROUTINE

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P11
05-MAR-79 09:02

09: 02 PAGE 66
OCTAL TYPE OUT ROUTINE

2995
2996
2997
2998
2999
3000
3001
3002
3003

3025
3026
3027
3028
3029
3031
3032
;8;2
3035
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047

B
N
R

R
LR

006744

032777
001054
004767
004767
000447
012123

006746
006750
006754
006760
006762

012113
105237
052743
106113
103376
005000
006766
106113
006770 006100
006772 * 106113
006774 006100

020000

171520

TYPERR:

177634
000012

006776
007000
007004

000405
004767
020040

007010
007012
007016
007020
007022
007026
007030
007034
007036
007040
007042
007044
007046
007052
007054
007060
007062

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

BIT
JSR
JSR

OCTTYP: MOV

000314
000004

MOV
INCB
TYPOCT: BIS

2%:

ROLB

BCC
CLR

ROLB
ROL
ROLB
ROL

177500
000040

000006

RPTOCT:

FATYP:

$TPNUM:
4%:

000060
177512

JSR
LASCIZ

.EVEN
CLR

CLC
ROL
ROL
BIS
JSR
CLR

ROL
ROL
ROL
ROL
DECB

177776
000314
OCTXT:

TYPE OUT ROUTINE
THIS ROUTINE

IS USED TO TYPE OUT THE OCTAL VALUES

CONTROL SHOULD COME TO THIS ROUTINE WITH R3 POINTING TO

Sew,

006722
006730
006732
006736

:b8

BEEE8S ot
NUNISS CONOWVISWN=O

§253 g8

LR IR IRAR

OCTAL

SEQ 0066

DECB
BN
RTS

THE LOW ORDER BITS

(I.E.

BITS 0-15)

THE ADDRESS

BE TYPED WHERE AS R3-2 SHOULD CONTAIN THE HIGH ORDER BITS
(I.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
PC,PCRLF
PC,TYPOCT

OCTXT
(R1)+,(R3)+

(R1)+, (R3)
MTYPCNT

#4,-(R3)

sERROR PRINTOUT WANTED?

:BRANCH IF NO

s TYPE CR/LF
s TYPE OCTAL NO.
sRETURN VIA RTS PC

:g#Agg THE HIGH ORDER BITS AT LOCATION POINTED
sAND NOW PLACE THE LOW ORDER BITS
JENABLE THE TYPE OUT OF ONE OCTAL WORD

(R3)

;GET BITS 17 & 16 INTO RO

$TPNUM

PC,$TYPE
"

RO
#6,(R3)+

TYPE 3 SPACES

;ENABLE THE TYPE OUT OF 6 OCTAL DIGITS

(R3)
RO
#60,R0
PC,$TPCHR
RO
(R3)
RO

;PLACE THE CARRY FROM (R3) IN RO

A#TYPCNT

;PLACE THE CARRY FROM (R3) IN RO
;IF WE HAVEN'T TYPED THE 6 OCTAL DIGITS
:THEN REPEAT FROM 4%
:IF ALL THE WORDS REQUIRED HAVE NOT BEEN

(R3)
RO
=2(R3)
4%

RPTOCT
PC

;PLACE

THE CARRY FROM (R3)

;

THE OCTAL NUMBER STORED

IN RO

¢cOR THE CONTENTS OF RO WITH AN ASCII O
TYPE

;TYPED THEN REPEAT FROM RPTOCT

IN RO

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

09:02

PAGE 67

SUBROUTINE FOR MEMORY MANAGEMENT
*

ROUTINE

SEQ 0067

TO SET UP MEMORY MANAGEMENT REGISTERS

.'
*

PROGRAM CONTROL COMES HERE TO DETERMINE IF THE MEMORY MANAGEMENT

THE MEMORY ABOVE 28K IS REQUIRED TO BE

IS AVAILABLE OR NOT, AND IF IT IS AVAILABLE THEN WHETHER

TESTED OR NOT.

3057
3058

007064
007070

012702
105037

001400
000276

3060
3061
3062
3063

007074
007102
007104
007110

032777
001441
012700
012720

010000

007124

105237

007130
007134
007136
007142
007144
007150
007152
007156
007162
007166
007172
007174
007200
007202
007206

012701
005021
062702
010221
020127
103772
012711
012701
012721
020127
101773
005237
005010
012740
000207

007210

022626

3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082

MEMMNG: MOV
MMREG:
CLRB

171346

BIT

000004
007210
000340
177572
000276

00020C

2%:

172355

48:

172316

*IF NOT THEN RETURN FROM THE SUBROUTINE
*PREPARE TO SETUP TIME OUT VECTOR
*RETURN ADDRESS TO NOMM
SAND WITH A PSW OF 340
:TRY TO REACH MEM. MANAG. SRO

MOV

#172340,R1

*R1 IS POINTING TO PARO

MOV
CMP

R2, (R1)+
R1.4#172356

:SETUP PAR1-PAR6

MOV
MOV

#7600, (R1)
#172300,R1

;PAR7 IS POINTING TO THE 1/0 PAGE

CMP

R1,#172316

CLR
ADD

$SRETMM:

000104

RETMM:

NOMM:

000124

176736

007234
007240

013702
000713

172354

MOV

#77406,(R1)+

AHSRO

MOV

#BUSER
, = (RO)

CLR

(RO)

:PARO WILL POINT TO BANK 0

:SETUP PDRO-PDR7

;ENABLE MEM. MANAG.

:RESTORE

TIME OUT TRAP VECTOR FOR ANY FUTURE TRAP

CMP
JSR
/E\\s;g'x‘z

(SP)+,(SP)+
PC,TPCRLF
/NO KT/

:RESTORE STACK POINTER
*TYPE 'NO MEMORY MANAGEMENT MESSAGE

JSR

PC.FATERR

:*ERROR* REPORT

SRETMM

;

a#172354 ,R2

;PREPARE TO UPDATE MEMORY MANAG. REGISTERS

MOV
BR

MMREG

;é;rér IS AVAILABLE THEN SET MEM. MANAG. AVAILABLE

RTS

UPMM:

INC

3093
3094

a#MMAVA

(R1)+
#200,R2

BLOS

177572

“HAS THE OPERATOR ASKED TO CHECK MEMORY MANAG.

RE TMM
#4 RO
ANOMM, (RO) +
#340, (RO)
arsrO

BLO

007600
172300
077406

177366
045440

#10000, aSWR

;CLEAR THE BYTE THAT IS SUPPOSED TO INDICATE
s THAT MEM. MANAG. IS AVAILABLE FOR TESTING

BEQ
MOV
MOV
MOV
CLR

INCB

172340

#1400 ,R2
WMMAVA

ERROR MESSAGE AND HALT AT FATHLT

iaxxax*ERROR NUMBER 52%##xx#
RESTORE

TIME OUT TRAP VECTOR

(ZKMA
MACY11 30A(1052) 90(5)5MR-79
CZKMAF .P11
05-MAR=-79 0

09:02
PAGE 68
18 BIT ADDRESS GENERATOR

3095
3096

;% 18 BIT ADDRESS GENERATOR

3097
3098

M
o

3099
3100
3101
3102
3103

i
i
e
i
i

3104

3105
3106

007242

005063

177776

3108
3109
3110

007250
007254
007256

105737
001425
010146

000276

3107

007246

010113

3111

007260

042701

017777

3113

007266

052701

004000

3112

3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
g}sg

SEQ 0068

007264

007272
007274
007276
007302
007304
007310
007312
007314
007316
007320
007322
007324
007326
007330

040113

006001
103376
062701
011101
052701
006101
103376
006101
006143
006101
006123
050113
012601
000207

PUTADR: CLR

MOV

TSTB
BEQ
MOV

172340
010000

4$:

6$:

3129

-2(R3)

R1, (R3)

:1S THE MEM. MANAG. AVAILABLE ?
*IF NOT THEN RETURN FROM THE SUBROUTINE
*SAVE R1

R1,

:LEAVE BITS 0-12 OF THE ADDRESS IN (R3)

#17777 .R1

BIS

#4000,R1

ROR
BCC
ADD
MOV
BIS
ROL
BCC
ROL
ROL
ROL
ROL
BIS
MOV
RTS

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

a#MMAVA
6$
R1,=(SP)

BIC
BIC

28:

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
POINTED BY R3-2

(R3)

R1
2s
#172340,R1
(R1),R1
#10000,R1
R1
4$
R1
-(R3)
R1
(R3)+
R1, (R3)
(SP)+,R1
PC

*CLEAR BITS 0-12 OF THE ADDRESS IN R1

:PREPARE TO SHIFT R1 BY 12 PLACES
;GET THE NUMBER OF PAR IN R1

*GET THE ADDRESS OF PAR IN R1
:LOAD R1 WITH THE CONTENTS OF PAR

:PLACE THE ADDRESS BITS 13-17 IN BITS 11-15 OF R1
;PLACE BIT 17 IN LOCATION POINTED BY R3-2

;PLACE BIT 16 OF THE ADDRESS
:PLACE BITS 13=15 OF THE ADDRESS IN LOCATION (R3)
‘RESTORE R1
*RETURN FROM THE SUBROUTINE

:* GET ADDRESS FROM THE APT MAILBOX
- %

3132
3133
3134

3135

3120

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.

i
i
i

ING TO THE MEMORY TYPE IN THE APT MAILBOX AND R3 POINTING TO
THE LOCATION+2 WHERE THE LOW ORDER BITS OF THE ADDRESS HAVE
TO BE PLACED

3136
3137
3138

3141
3142
3143
2144
3145

i
i
i

PROGRAM CONTROL SHOULD COME TO THIS SUBROUTINE WITH R1 POINT=-

007332
007336

016143
005043

000001

GETADR: MOV
CLR

1(R1) ,=(R3)
-(R3)

007340
007344

116113
000207

177777

MOVB
RTS

=1(R1),(R3)
PC

2%:

;PLACE THE LOW ORDER BITS OF THE ADDRESS
:CLEAR THE LOCATION WHERE THE HIGH ORDER BITS
*HAVE TC BE PLACED
*PLACE BITS 16 & 17
JRETURN FROM THE SUBROUTINE

CZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF .P1?
05-MAR=-79 09:02

09:02
PAGE 69
CONVERT 18 BiT ADDRFSS TO THE PAR FORM

3146

SEQ 0069

%}25

;* CONVERT 18 BIT ADDRESS TG THE PAR FORM

3149
3150
3151

I
i
oTM

- %

3152
%}gz

i
i

THIS SUBROUTINE IS USED TO CONVERT 18 BIT ADDRESS STORED IN
LOCATIONS POINTED BY R3 AND R3+42 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

3155
3156

007346

005046

$GTSIZ: CLR

-(SP)

3159
3160

007350
007352

012301
011302

GETSIZ: MOV
MOV

(R3)+,R1
(R3) ,R2

3162
3163
3164
3165
3166

007360
007364
007366
007370
007372

052702
006001
006002
103375
005716

3168
3169
3170
3171
3172
3173
g};§

007376
007400
007404
007406
007410
007414
007416

005726
052702
000767
012301
012700
040001
000207

g}gg

3161

3167

007354

007374

042702

017777

000040

2%:
($:

001004

BIC

BIS
ROR
ROR
BCC
TST

BNE

000100
160000

6%:

TST
BIS
BR
MOV
MOV
BIC
RTS

#17777 .R2

#40 ,R2
R1
R2
4%
(SP)

(SP)+
#100,R2
43
(R3)+,R1
#160000,R0
RO,R1
PC

;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
JRETURN FROM THE SUSRORNE

3176
3177
3178

;* SUBROUTINE TO DISABLE MEMORY MANAGEMENT

3181

3180

;}gg
3184
3185
3186
3187
g}gg

007420
007424
007426
007432
007436

105737
001404
005037
105037
000207

2190
3191
3192
3193
3194
3195

000276

177572
000276

%}39

3198

3199

3200
3201

CLRMM:

1%:

THIS SUBROUTINE IS CALLED TO DISABLE THE MEMORY MANAGEMENT

UNIT

TSTB
BEQ
CLR
CLRB
RTS

IIMMAVA
1%
A4#SRO
AFMMAVA
PC

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

;* GET BANK NO. UNDER TEST
3
CALLED BY ERRTYP AND TST13 TO GET BANK NO. UNDER TEST INTO PBNK.
;REGISTERS
;RO=POINTER TGO PAR UNDER TEST
;R3=VIRTUAL ADDRESS ON ENTRY

;JRO+R3 ARE RESTORED ON EXIT.
007440
007442

007444

007450

010046

010346

042703

052703

GETBNK: MOV

017777

0710000

RO,~-(SP)

MOV

R3,-(SP)

BIS

#10000,R3

BIC

#17777 .R3

:SAVE RO

:SAVE R3

;SAVE ONLY VIRTUAL BANK B]1S
JSETUP R3 SHIFT BIT

CZKMA
MACYI 30A(1052)
05=MAR-79
CZKMAF P11
05-MAR=-79 09:02

3202
3203
3204
3205
3206

007454
007456
007460
007462
007466

000241
006003
103376
105737
001407

3209
3210

007470
007472

006303

F
6
09:02 PAGE 70
SUBROUTINE TO DISABLE MEMORY MANAGEMENT
1%:

CLC
ROR

JSHIFT A BANK BIT

TSTB

A#MMAVA

sMEMORY MANAGEMENT UNDER TEST?

BCC

000276

SEQ 0070

BEQ

SJUNTIL

IN BITS <2:0> OF R3

sNO EXIT

;GET PAR ADDRESS AND PHYSICAL BANK NO.
ASL
R3
;MAKE R3 PAR ADDRESS OFFSET.
ADD
#172340,R3
sMAKE FULL PAR ADDRESS.

172340

mgv

583).R0

;GET PAR CONTENTS

SWAB
MOvB
MOV
MOV
MOV

RO
RO,R3

sSHIFT BANK BITS TO BITS <7:0>
sSET R3 TO PHYSICAL BANK NO.

000312

2%:

R3, a#PBNK
(SP)+,R3
(SP)+,RO

JRESTORE RO

PARITY ENABLE/DISABLE

THIS ROUTINE

JRETURN TO CALLER

ROUTINE

ENABLES OR DISABLES PARITY MCDULES AND PRINTS ASSOCIATED MEASSAGES.

IF PARITY AVAILABLE THEN BIT13 OF "REL'' IS SET AND ‘PAR''ITY [S PRINTED.

ALSO

Ses.

8,880,

RTS

THE BACKGROUND TEST PATTERN

s STORE PHYSICAL BANK NO.
JRESTORE R3

POINTS

TO BUS

TIMEOUT

TRAP VECTOR

(LOC.

:R1= HOLDS PARITY MODULE UNIBUS ADDRESS.
:R2= ON ENTRY HOLDS ENABLE/DISABLE CODE .

BAKPAT)

IS SET=376

:
IF R2=0 THEN DISABLE
H
IF R2=1 THEN ENABLE
;R3= SCRATCH TO SETUP LOC. PARMAP WITH A MAP OF PARITY MODULES PRESENT.

3241

3242

007520

007526

032777
00145€

004000

012700
012710
060710
005037

000004
000116

000352

172140
100000

000352

170722

sCALL IS
H
MOV
:
JSR

#1,R2
ENABLE CODE
PC,PARIT

PARITY:

BIT

#4000,3SWR

;PARITY

MOV

#4 RO

;POINT RO TO BUS TIMEOUT ADDRESS.

ADD

PC, (RO)

MOV
1%:

2%:
3%:

005702
001431

000104

BEQ

#5%-.-6, (RO)

TEST WANTED?

:BRANCH IF NO

sSET RETURN FROM TIMEOUT TRAP TO 5%
sIN THE CURRENT BANK.

CLR

a#PARMAP

;CLEAR PARITY MAP HOLDER.

MOV
MOV
%Eg

#100000,R3
R2.=(R1)
R3,a#PARMAP

;SET R3 TO PARMAP AVAILABLE CODE BEGIN.
;ENABLE A PARITY MODULE+TRAP IF NOT AVAILABLE.
:NO TRAP TO 5%, SO SET PARITY AVAILABLE.

ROR
BCC

R3
2%

;SETUP NEXT PARMAP BIT
sBRANCH IF NOT DONE ALL PARITY ADDRESSES.

TST

:1S THIS A DISABLE

MOV

MoV
BEQ

#172140,R1

#BUSER, (RO)
6%

sSET R1

TO LAST PARITY MODULE ADDRESS+2

JRESET BUS TIMEQUT TRAP VECTOR
;BRANCH IF

YES

CALL?

(EXIT)

(ZKMA
MACY11 30A(1052)
05=MAR=-79
CZKMAF P11
05-MAR=79 (9:02

2258
3259
3260
2261

005737

0010M
004767

047516

000
007624
004767

000053
152737

(09:02

SUBROUTINE

000352
176779

050040

000040
000376

007646
007652

004767
040520

00012¢

007656

000405

176732

051101

TST

a#PARMAP

JSR

PC,TPCRLF

LASCIZ

.EVEN

JSR

000405
000316

4%:

/NO PAR/

PC,FATERR

#40,4REL
#376,a4BAKPAT

JSR
LASCIZ
.EVEN

PC,TPCRLF
/PAR/

B8R

EXITC

SEQ 0071

;WERE ANY PARITY MODULES FOUND?

;BRANCH IF YES

;PRINT "NC PAR''

; *ERROR* REPORT

;exxxx*ERROR

BISB
MOV

sGET HERE

TO DISABLE MEMORY MANAGEMENT

BNE

17633¢

012737

PAGE 71

ERROR MESSAGE AND HALT AT FATHLT

NUMBER

S53%s«anx

sSET PARITY UNDER TEST FLAG
;SET BACKGROUND PATTERN TO
;WORST CASE PARITY CODE.
;PRINT "‘TST PARITY"

JAND EXIT VIA RTS PC

PARITY ADDRESS TIMED OUT

TO LOC.

(ZKMA
MACY11 30A(1052)
05-MAR-79
CZKMAF P11
05-MAR-79 09:02

3278
3279

007660
007662

022626
000741

3282
3283

007664
007672
007672

142737

00004C

000207

(09:02

PAGE 72

5%:

(MP
BR

(SP)+,(SP;+
3%

JRESET STACK FROM TRAP
;KEEP TRYING PARITY ADDRESES.

g:iTC:

BI(B

#40,Q4REL

;CLEAR FARITY TESTING FLAG

7$:

RTS

JRETURN TO CALLER

000405

SUBROUTINE

‘CHECKC
STEST

s IF

TO DISABLE MEMORY MANAGEMENT

SEQ 0072

THIS ROUTINE CHECKS IF CONTROL=-C WAS
IN THE ERROR TYPE ROUTINE.

CONTROL=C

TYPED AT

THE

END OF

TYPED THE PROGRAM IS RETURNED TO LOWER MEMORY [F

[T WAS

:RELOCATED AND THE ERROR HISTORY IS PRINTED OUT.
SFINALLY IT HALTS AT FATHLT.
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304

007674
007700
007704
007706
007712
007716
007722
007724
007730
007734

000315

3306

007740

175132

3309

007744

177560

(HECKC:

177562

000200
000003

CLRB

TSTB

ANY CHAR.

TYPED?

EXITC
:BR IF NO-EXIT VIA RTS PCa#$KBB,R2
;GET THE CHAR TYPED.
#200,R2 ;CLEAR THE PARITY BIT.
#3,R0
2IS IT CONTROL=C?

MOV
JSR
ASCIZ
.EVEN

R2,a#SAVKBB
PC,TPCRLF
/7%C/

sELSE STORE THE CHAR.
sPRINT """’

RELOER

;GO RETURN PROGRAM T0O ! OWER CORE

JMP

.=7744
ENDPRG:

sINIT CONTROL-C FLAG.

a#TKS

BPL
MOVB
BIC
CMPB

BNE

000315
176650
000

a# SAVKBE

EXITC

:BRANCH IF NO =EXIT VIA RTS PC-

FOR USE AS A FLAG.

RELCCATED.

sTHIS BEGINS THE STORAGE FOR THE ERROR HISTORY
sSTACK.FOR EACH 4K BANK 18.

BYTES ARE

SAVED.

sALSO THE ABSOLUTE LOADER AND XXDP CODE

000001

EACH

;AFTER THE ERROR STACK.

;FOR 4K

MEMORY

SIZE

IS SAVED

THEN PROGRAM=7744+22=7776

(ZKMA
MACYi1 30A(1052)
05=MAR=-79
CZKMAF .P11
05-MAR-79 09:02

PAGE 74

CROSS REFERENCE

TABLE == USER SYMBOLS

SEQ 0673

1200
1200
1200
1200

2694

JE JUE NS YR W

—y

1200

—l—.—l—l—lN

ABASE =
ACDW1 = 000000
ACDW2 = 000000

(09: 02

1491

2149

12484

3255

1705

2152

2548

1707

2191~

2559

1715

2288

2565

1726+

2344

1790

2345

1822+

25 [ Ox
A

2004+
3269+

2039

2074+

C(ZKMA
MACY11 30A(1052)
05-MAR=79
CZKMAF P11
05-MAR-79 09:02
CHECKC
CKDONE
CLRMEM
CLRMM
CNTSCP
CONT
CONTMM
CTLC
DE CWRD
ENDPAS
ENDPRG
ENDSTK

ENDO
END1
END10
END12
END2
END3
END4
END5
END6
END7
ERROR

ERRTYP
EXITC
EXTYP
FAILNM
FATERR
FATHLT
FATYP
FNDERR

GALLOP
GE TADR
GE TBNK
GEYSIZ

HIGHAD
HIGHTW

007674
005144

1547

253

14854
1417
1546
1502¢

09: 02

2812

2557

2599
1439
1549
1560

2660+

2663+

2698+

1266
1144
1689
1729

2640
1404+

2757
2644

33094
2714

26364

2196
23474
1729
18254

2204w
2459
1825
1864

1864#
19504
2006#

1950
2006
2082

2204

2307
764N
3274
2944
2659

2315

2456

3282
2951
26634

3301

2804
2836
28014
2119%

2839
30314
2838
2254

2516
2580

2738
2591

2567

25714

1279

1330

1171
11704
1505#
11684
11364

2978

2347
2491

2082#
1606

SEQ 0074

32954
25674

1147

2576

TABLE == USER SYMBOLS

31844

25784
2720w

1072
11430
16474
1689¢

CROSS REFERENCE

2711

2531
2691

11460

PAGE 75

1667

1327

1786

1474

1890

1632

27318

2883

1897

1924

1982

28264

2894

3088

3264

1316
1315
1558

2153

2162

1137

31594

2072

1385
2473

1177#¢
1357
14794
1118¢
1370
9824
1592
17248
1883

1314
2573

2545

2561

1121
2590
1279
15954
1746
18864
2056

3058«

3066*

3108

3184

1450
16354
1781
19004

14534
1659
1783
1924

1474
1662#
1797
19274

14774
1667
1795
1972

20264
2279

2137

1331

1167#
9824

2594

2056

2597

22824

2137
23184

2140¢
2380

2153
2383

21564
244k

1581#
1721
185

2021
22424
2473

CZKMA
MACY11 30A(1052)
0S=MAR-79
CZKMAF P11
05-MAR=79 09:02
NOMM
NOTYP
OCTTYP
OCTXT
ONEPAS

PARERR
PARFL
PARITY
PARMAP
PARPS
PARSP
PASFLG

PBNK

PCRLF
PNTMES

PUTADR

PWRDN
PWRUP

007210
006470
006744
007062
000556

006244
005470
007520
000352
000360
000356
000306

000312

006572
006612

007242

000070
000136
REL
= 000405
RELBOT
000322
RELOC
005004
RELOER
005076
RESTRT
000250

RETMM
RETSTK

RETTYP
RLODER
RPTOCT
RPT10
RPT11
RPT6
SAVKBB

SAVLDR
SAVLOC
SAVMAX
SAVRO
SAVR1
SAVRG
SAVRS

007206
005374

006530
005576
007000
003522
004070
003140
000315

001314
000354
000342
006414
006416
000344
000346

SAVR6
000350
SCOPE = 000240
SEQERR 006166

SETSTK
SETSWR
SLFSIZ
SRO
=
START
STRTDI
SWAPAT
SWHALT
SWR
SWREG

001220
000656
001024
177572
000200
000302
000320
001712
000450
000176

26764

3063
29278
1387
3011
1260

1256
2656
1490
1185#
11884
11874
11384

2065
2484

11454

K 6
09: 02
PAGE 76
CROSS REFERENCE TABLE == USER SYMBOLS

2883

30844
2963
1391
3014
12634

28564
675K
2689
2862
2857+
2856+
1142

2070
249w

2739

1386
1036

29534
2246

1000¢
1000
1113#
11634
1527
2536
1048

1252
10334
1259
1467
25294
25554
1064

1374

3061
26474

2931
2702
2671
2117#
2199
19754
11504

1410
11864
179
2860+
2861+
11804
1073
1033
9834
1575

1265
12
13414
11594
1041
1134#
11624
15554
12450

2533

105i#

1377

30824
2651

29404
27114
30284
2203
2202
2005
2571

26864

2893

28974

3251=

3258

3088

30914

3264

1977+

1988

32414
3247%
2888
2889
1502«

1860«

1928+

2285«
2505«
3215«
2958
2512
2794

2302
2522«

2322
2746

2975
2542
31064

1465

3306

1066

1945+

2328+

2329

2906

2914

29624

2407

2535

2537«

2556

10724

2709

2840

3012

2690

3295+

3302+

1438«
11844

2555
1251=

2564
1608

2566+

2858

1659
13924

1702

1746

1834

1883

1972

3065+
10584
1135
2157

3079«

3186+

2035«
2161

2064
2190+
1334
2807

1448

1494

1293

2636
129

2337+

2338

1990*

2003+

2563

3268«

3281«

2021

2113

1557
3241

2024+
2434

2047
2449

2063+
2467

2239

2279

2380

28274

1618

2244

2248

2508

2427

2674

22484

1058

32674

2965
30154
30474

2720
3046
2249
2245

1412
1998+
1477
2886
2887
2712
11814

SEQ 0075

14174

29004
29014

1296«

2693

1301+

2778

3010

CZKMA
MACY11 30A(1052)
O05<MAR-79
CZKMAF .P11
05<MAR-79 09:02
Swil

TKS

TPADER
TPCRLF

TPPRER
TRYSR
ISTGO
TSTMM
TSTREL
TSTRP
TSTSCP
TSTSIZ
TSTO
TST1
TST1I0
TST11
TST12
TST13
TST2
TST3
TST4
TSTS
TSTé
1ST7
TYPCNT
TYPDEC
TYPENB
TYPEOP
TYPERR
TYPMEM
TYPOCT

TYPSIZ

= 004000
001626

= 177560
006420
006604

006444
001014
001714
005156
001372
000570
0C1660
001376
001730
002166
003502
004032
004104
004356
002266
002376
002644
002754
003122
003256
000314
006634
000277
005526
006722
001206
006754
001164

TYPSTK
005354
UPMM
007234
WRTMEM
000120
$A
=
1

$ADERR
$APTHD
SCNTMM
$CPUOP
$DEVCT
$DOAGW
$ENDAD
SENV
SENVM

$EOP
SETABL
SETEND

000301
000276
005176
00042€
000410
005572
000156
000420
000421

005476
000420
(000450

9824

}g};

11554

2658
1067

2675
1318
1554
1453
1261
1264
15454
14294
1515
1516
1523
1524
1525
1526
1517
1518
1519
1520
1521
1522
11484
2662
1122#
6954
2796
13884
3013
1332

26424
2578
10254
4024
436
464N
492

5194
559
5904

11304
1098
2577
12154
12
2701

12114
1212#
2637
12104
1110

L 6
09: 02 PAGE 77
CROSS REFERENCE TABLE == USER SYMBOLS

1515#

3296

2787
2695

2783
13344
15574
25734
14384
12664
1647

SEQ 0076

1516

1517

1518

1519

1520

1521

1522

29044
2827
29124

2958%#

2966

3085

3260

3271

3303

2670«

2792+

2832+

3018%

3045+

2764%

2780*

2904

2912

1886
4054
442

1975
407
4434

4084
447

412
4484

496
5304
563

L4974
533
5644

500
S3im
567

5014
542
5684

1523

15734

16554
21104
22364
2277H
23784
16994
17444
18324
18804
19684
2018#
1254~
29754
1125

2346
1823

30104

30194
1335

2648
30934
1750
404
4374
467
4934

529
5604
594

1133
11044
25794

1552+«
27094
10444
1299
1317

2645

1239

13824

4684

471

5954
}??9*

601
1719

2062

2186+

2707
1545
1616

26884

2801
2946

4724

6024
1783«

2837

475

4134
451
L764

607
1848+

6084
2768

502
5434
575

417
4524

479

5034
546
5764

611
2785

423
4564
484
5114

5804
616

1524

1525

152€

CZKMA
MACY11 3OA(1052)
05-MAR-79
CZKMAF P11
05-MAR=-79 09:02
SFATAL
000402
$GTSIZ
007346
$HD
= 000002
SHIBTS 000276
SHIMAX 000334
$KBB = 177562
SMADR1 0004 32
SMADR? 000436
SMADR3 000442
SMADRG
000446
SMAIL
000400
SMAMS1
000430
SMAMS2 000434
SMAMS3 000440
SMAMSS,
000444
SMAXM
000336
SMBADR 000300
SMSGAD 000414
SMSGLG 000416
$MSGTY 000400
SMTYP1
000431
SMTYP2 000435
SMTYP3 000441
SMTYP,
000445
SNWTST= 000001

$PASS
$PASTM
$PRERR
SRETMM
$SVPC =
$SWR
=

000406
000304
000300
007200
000044
000000

12034
1393
973
1105#
11764#
11564
12284
12324
12354
12384
1061
12224
12304
1233#
12364
11754
1106#
12084
12094
1007+
1223¢
12314
12344
1237#
1561#
1954
1205#
1108#
11264
30804
¥
SO73¥

$SWREG
$TESTN

000422
000404

12134
1065

$TN

= 000014

$TPB = 177566
STPCHR 006546
$TPDEC
006640
STPNUM 007012
$TPS
= 177564
$TPSTK 005344
$TSTM
000302
STYPE
006504
SUNIT
000412
SUNITM 000306
SUSWR
000424
$7
= 000362
$27
= 007744
$$M
= 000200

= 007746

2110
9634
1881#

1158#
2937
2517
3027
11574
2572
11074
1388
1059
11094
12144
11934
33084
24734

9804
10994
12474

2238

M 6
09:02
PAGE 78
CROSS REFERENCE TABLE == USER SYMBOLS

2731%
31564

2740+

2748

2831+

2834

1106

1110

12014

1271

1286

1316%

1401

12024
1324

2803+

16504
2009
2692«

1652
20834
2698

16914
2085

1693
22084

1733#
2210

1253

2765

2781

2798+

2882+

1574

1656

1700

1745

SEQ 0077

1315+
3298

1320
1563
2007#
1263
1129
3091
997
9B

1301
1113
2168
973
1952
2950+
29464
2664
30324
2948
26384

1204#

1503=

2176
1561
19694

2201
15744
2007

3037
2699

29774

29324
1207#

2953

9854
11174
1256

952
11214
1511

2278

2379

1549

1573

2236
1650
20194

eer7
16564
2083

2959

2990

3028

9934
1125#
1574

9954
11294
1629

9974
11334
1658

2500

2757

29554

1735
2255#

18264
2257

1828

18664

2348%#

2350

1868

19524

1833

1881

1969

2019

2111

.
2237

2278

1655

2378
1691
21114

1699

1744

1832

1880

1968

2018

17004
2208

1733
22374

17454
2255

1826
22784

18334
2348

1866
23794

999
11354
1701
3245

10054
11378
1745
32634

10114
11428
1833
33054

10504
11k4r
1882
33084

109
11478
1971

10954

10974

1193
2020

1196#
2112

(ZKMA
MACY11 30A(1052}
05-MAR-79
CZKMAF P11
05-MAR-79 09:02
X

. ABS.

= 000276

007746

ERRORS DETECTED:

10944

N 6
09:02 PAGE 79
CROSS REFERENCE TABLE == USER SYMBOLS

099

000
O

DSKW: CZKMAF , C ZKMAF /SOL /CRF /NL : TOC =CZKMAF .P11

RUN=TIME: 10 10 .6 SECONDS
RUN=TIME RATIO:

CORE USED:

11K

111/21=5.1

12?

PAGES)

)

SEQ 0078