Digital PDFs

AH-S390B-MC

May 1981

541 pages

Original

239MB

view download

OCR Version

302MB

view download

Document:	CZMLAB0 ML11 ML11 LOGIC TEST MAY 1981 bw
Order Number:	AH-S390B-MC
Revision:	000
Pages:	541
Original Filename:	CZMLAB0__ML11__ML11_LOGIC_TEST__AH-S390B-MC__MAY_1981_gray.pdf

OCR Text

ML11

LOGIC

CZMLABO

TEST

AH-S3908

FICHE

1 OF 3 weoe v use

==-=mpn

MLII

MLi1

LOBIC TES?
CZMLABO

AH S390B MC
ETICHE: 2. 0F

ML11 LOGIC TEST
CZMLABO

o et -«
AH-53908-MC
Fite o3 Sa

===
Ballln

.
o
o

" CZMLABO ML-11 LOGIC TEST

MACRO M1113

1
2

22-DE(-80 12:16

SEQ 0001

.TITLE CZMLABO ML-11 LOGIC TEST
.SBTTL USER oocutnmnq:e

IDENTIF ICATION
PRODUCT CODE:

AC-S7888-MC

PRODUCT NAME:

CZMLABO ML11 LOGIC TEST

PRODUCT DATE:

MAINTAINER:
AUTHOR :

2-FEB-81

TOM LANWSBY
D.W.NEALE

THE INFORMATION IN THIS DOCUMENT IS

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 DOCUMEN

L
.

NO RESPONSIBILITY IS ASSUMED

FOR

SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE

USE

SUPPLIED

RELIABILITY
DIGITAL

OR ITS

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS
'

MACRO M1113 22-DEC-80 12:16 PAGE S

CZMABO ML-11 LOGIC TEST

TABLE OF CONTENTS

USER DOCUMENTATION

43-

MISCELLANEOUS CODING SECTION

—O
W

——n

PROGRAM HEADER AND TABLES

GENERAL INFORMATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARD

SEQ 0002

MACRO M1113

CZMLABO ML-11 LOGIC TEST
USER DOCUMENTATION
1.4

PAGE

2-1

SEQ@ 0003

DIAGNOSTIC HIERARCHY PREREQUISITES

OPERATING INSTRUCTIONS
COMMANDS

;
&

22-DEC-80 12:16

SWITCHES

.5
9 .

FLAGS
HARDWARE QUESTIONS

SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

3.0

ERROR INFORMATION

4.0

PERFORMANCE AND PROGRESS REPORTS

5.0

DEVICE INFORMATION TABLES

6.0
TEST SUMMARIES
1.0
GENERAL INFORMATION
1.1

PROGRAM ABSTRACT

DIAGNOSTIC ENGINEERING WAS CONTRACTED BY MEMORY ENGINEERING TO MAKE THIS
DIAGNOSTIC
IN ORDER TO AID MEMORY ENGINEERING TO DESIGN AND DEBUG THE
&-}1 AID FIELD SERVICE FOR FIELD REPAIRS AND
INSTALLATIONS OF
THE
THIS DIAGNOSTIC PRODUCT WILL BE DESIGNED TO TEST

ML-11 UNITS OFF A SINGLE RH11 OR RH70

CONTROLLER.

FROM

ONE

EIGHT

THE FUNCTIONAL LEVEL (FRU) OF THIS DIAGNOSTIC PRODUCT WILL BE
TO THE
LOGIC
FUNCTION LEVEL
(I.E.
DRIVE SELECTION).
UPON DETECTION OF AN
ERROR BY THE DIAGNOSTIC, THE LOGIC FUNCTION AND RESPECTIVE MODULE
WHICH IT IS LOCATED ON WILL BE PRINTED TO THE OPERATOR.

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC

SOF TWARE ENVIRONMENT.

THIS PROGRAM CAN BE USED WITH X)DP+,

USER

ACT, APT,

THE RUNTIME SERVICES IN SECTION 2 OF

1.2

SLIDE AND PAPER

RUNT fME SERVICES. REFER

A BRIEF DESCRIPTION OF
THIS

SYSTEM REQUIREMENTS

THE HARDWARE DESIGN IS EXPECTED TO CONFORM TO THE STANDARDS SET

IN THE MASSBUS SPECIFICATION (DEC STANDARD 159).

PDP=11 WITH MINIMUM OF 28K WORDS OF MEMORY
CONSOLE TERMINAL

RH11 OR RH70

1 TO 8 ML-11 DRIVES ON INTERMIXED BUS

FORTH

MACRO M1113 22-DEC-80 12:16 PAGE S°2

CZMLABO ML-11 LOGIC TEST
USER DOCUMENTATION

SEQ 0004

XXDP+ LOAD MEDIA

1.3

1.4

RELATED DOCUMENTS AND STANDARDS
1.

SUPPRGC.DOC

SUPINT.MEN

SUPFUN.C

XXDPPLUS.DOC

BLISS LANGUAGE GUIDE

BLISS-16 USER'S GUIDE

DIAGNOSTIC HIERARCY PREREQUISITES

IT WILL BE ASSUMED THAT PRIOR TO THE RUNNING OF THIS DIAGNOSTIC THAT
ALL APPROPRIATE CPU, MAIN MEMORY AND RH CONTROLLER DIAGNOSTICS HAVE
BEEN SUCCESSFULLY RUN.
THIS DIAGNOSTIC WILL HOWEVER PERFORM MINIMAL RH TESTS
TO ENSURE
ITS
ElX’I‘STMCE AND BASIC
FUNCTIONALITY BEFORE LOGIC TESTS ARE ALLOWED TO

2.0

OPERATING INSTRUCTIONS

’

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES.
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS).

2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAOOST!C RUNTIME SERVICES
(SUPERVISOR). = THIS SECTION LISTS THE COMMANDS
AND GIVES A VERY
BRIEF DESCRIPTION OF THEM.
THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

START
RESTART
CONT INUE
PROCEED

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZ
CONTINUE AT TEST THAT WAS {
TED (AFTER “C)
CONTINUE FROM AN ERROR HAL

EXIT

DROP
PRINT
DISPLAY
FLAGS
ZFLAGS

TO XXDP+ MONITOR (XXDP+ GERATIOU ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS
1
TO BE _ACTIVE
AT START TIME

DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
B8Y THE DIAGNOSTIC - SEC"G 4. 0)
TYPE A LIST OF ALL DEVICE
I
TION
TYPE
STATE OF ALL FLAGS SES SECTIW 2.3)
CLEAR ALL FLAGS (SEE SECUN

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.

YOU MAY, FOR EXAMPLE, TYPE 'STA' INSTEAD OF

"START''.

¥
MACRO M1113

CZMLABO ML-11 LOGIC TEST
USER DOCUMENTATION

2.2

22-DEC-80 12:16

E.Y

PAGE 2-3

SEQ 0005

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SlPERVIS(R OPERATION.
THESE SWITCHES ARE
NDED TO THE LEGAL COMMANDS
.
L OF THE LEGAL
SWITCHES ARE TABULAT
OW WITH A BRIEF DESCRIPTIW N EACH,
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD'’.

SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIEngN
THE LIST.
LIST IS A STRING OF T
NUMBERS,RS FOR EXAMPLE
- /TESTS:1: 7-10

THIS LIST WILL CAUSE TESTS 1,5,7

/PASS :DDDDD
/FLAGS:FLGS

BE RUN,
ALL O
EXECUTE DDDDD PASSES
FLAGS.
SET SPECIFI
IN SECTION

)
FLAGS ARE DESCRIBED

REPORT END OF PASS MESSAGE AFTER EVERY

/EOP :DDDDD

DDDDD PASSES ONLY.
(DDDDD
= 1 T0 64000)
TEST/ADD/DROP OLY THOSE UNITS SPECIFIED
IN THE LIST.
EXAMPLE - /UNITS:0:5:10-12

JUNITS:LIST

USEMT$051 11 12 (UNIT NUMBERS
= 0-63)

EXAMPLE OF SWITCH USAGE:

START/TESTS:1=5/PASS :1000/EQP: 100
THE EFFECT G THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE

s&es WILL BE PRINTED AFTER EACH 100
SUITCH OAW 8 RECOGNIZED BY THE FIRST THRE

ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF

EXECUTE

FOR EXAMPLE, TYPE

*/TES:1-5""

INSTEAD OF '/TESTS:1-5".

EILW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH
TESTS

START
RESTART
CONT INUE

PROCEED

DROP
ADD
PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

2.3

PASS

FLAGS

EOP

X
X

X
X
X

X
X

UNITS
X

X
X

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS
AL L FLAGS ARE CLEARED AT STARTUP AND REMAIN
LOOPING ON ERROR.

CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.

FLAGS

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 3'4

USER DOCUMENTATION

SEQ 0006

ARE ALSO CLEARED AFTER A START cm UNLESS SET USING THE
FLAG SWITCH.
THE ZFLAGS COMMAND
MAY ALSO BE USED TO CLEAR
ALL FLAGS. WITH THE EXCEPTION OF Tlf START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY aawu SET OR

CLEARED AS SPECIFIED BY THE LAST FLAGsuxicn.
FLAG
HOE
LOE
IER*
IBE*

EFFECT
T ON ERROR = CONTROL IS RETURNED TO
uumm SERVICES COMMAND MODE
00P ON ERROR
xmum ALL ERROR REPORTS
INHIBIT AL'. ERROR REPORTS EXCEPT

IXE*

&ugn
exfaoeoelnm usmrs (THOSE

Emsr
LEVEL

musr LEVEL
gmmmm

PRI
PNT
BOE
UAM
ISR

DIRECT utssuss to LINE mnm
PRINT TEST NUMBER AS TEST EXECUTES
*BELL'’ ON ERROR
UNATTENDED MODE (ND MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS (DOES NOT

10U
ADR
LOT
EVL

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP
LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

HAVE EVALUATION SUPPORT)

*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1
SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.

YOU MAY

SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR,
INMIBIT ERROR REPORTS

AND TYPE A "BELL''

ON ERROR, YOU MAY USE THE FOLLOWING STRING:

/FLAGS
: LOE : IER:BOE

2.4

HARDWARE QUESTIONS

WHEN A onaosnc IS STARTED. THE RUNTIME SERVICES WILL PROMPT

THE USERFOR HARDWARE INFORMATION BY TYPING ‘THANGE
HW (L)
?
YOU MUST ANSWER 'Y'' AFTER
A START COMRAND
NLESS THE. HARDWARE
INFORMATION HAS BEEN ‘PRELOADED'* USING THE SETUP UTILITY (SEE
CHAPTER
6 OF THE JODP+ USER'S MANUAL).
WHEN
YOU ANSWER THIS
QUESTION WITH A “Y'’, THE RUNTIME SERVICES VILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
YOU WILL THEN BE *oKED THE FOLLOWING
QUESTIONS FOR EACH UNIT.
PARAMETER CODING CALLS

GPRMA

MSGH1,0,0,0,177777,YES

:RH ADDRESS

CZMLABO ML-11 Logx‘c TEST

MACRO M1113

USER DOCUMENTATI

GPRMD

22-DEC-B0 12:16

. .o

PAGE 2-5

GPRMD
. g ;777
GPRMD MSGH&.
i 16..

:RH TYPE

GPRML

*PARITY DISABLED

GPRML

MSGHS.

GPRMD

:ggsn

o 7.YES

" .1.v€

SEQ 0007

‘RH
VECTOR ADDRESS
SNUMBER FO ARRAYS
:DRIVE OPTIONS

:DRIVE NUNBER

PARAMETER CODING MESSAGES

MSGH1:

.ASCIZ

/RH ADDRESS%

MSGMS:
MSGH6:
MSGH7:

.ASCIZ
.ASCIZ
.ASCIZ

/IS DRIVE OPTION AN ML11A?/
/ML-11 DRIVE NUMBER?/
/IS PARITY DISABLED?/

ggg:
:
MSGH4:

JASCIZ
JASCIZ
.ASCIZ

/IS RH AN *70° OR 117/
/RH VECTOR ADDRESS?/
/NUMBER OF ARRAY MIDULES?/

SAMPLE DIALOGE
DR> STA

<CR>

CHANGE
WW <L>
# UNITS <>

?2 1

<CR>

UNIT O
RH ADDRESS <0> 176400 ? <CR>
IS RH AN *70° OR ‘11°* <> ? <(R>
RH VECTOR ADDRESS <> 206 ? <CR>

NUMBER OF ARRAYS MODULES
2 <D>
16 ?
14
IS DRIVE OPTION AN fl.‘l‘lA 24> Y ? <R
ML-11 DRIVE NUMBER
? <0> 0 ? <CR>
IS PARITY DISABLED ? <L> N ?
<(R>

2.5

<CR>

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS.
THESE
TERS WILL GOVERN SOME DIAOOSTIC SPECIFIC

OPERATION MODES.

YOU

WILL BE PROMPTED BY

"CHANGE SW (L)

}FYOU WISH TO CHANGE ANY PARAMETERS, ANSWER
BY TYPING
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED

IN THE NEXT PARAGRAPH(S).

PARAMETER CODING CALLS

GPRML

MSGS1,0.1.NO

PARAMETER CODING MESSAGES

MSG1:

.ASCIZ

SAMPLE DIALOGE

/PRINT SERIAL NO.?/

;PRINT THE DRIVE SERIAL NUMBER

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE .‘.-6 :
[

USER DOCUMENTATION

PRINT SERIAL NO. ?

<CR>

UNIT 1
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 0<(CR>
Q@-FACTOR (0) 0 ? 1<CR>

UNIT 2
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 1<CR>
O<CR>

UNIT 3
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 2<CR>
@-FACTOR (0) 0 ? <CR>
UNIT &
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 3<CR>
Q-FACTOR (C) 0 ?

UNIT 5
CSR ADDRESS (0) ?

<CR>

160000<CR>

SUB-DEVICE # (0) ? 4&<(R>
Q@-FACTOR (0) 0 ? <(R>

UNIT 6
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 5<CR>
Q@-FACTOR (0) 0 ? <CR>

UNIT 7
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 6<CR>

:
;i

B8<CR>

Q-FACTOR (0) 1 2

©r

(7]

2333 %

# UNITS (D) ?

o_
SaR

N Heams A 252

WHEN

EXTENDED P-TABLE DIALOGUE

;g@ F

2.6

SEQ 0008

CZMLABO ML-11 LOGIC TEST
USER DOCUMENTATION

MACRO M1113

22-DEC-80 12:16

Q=FACTOR (0) 0 ?

PAGE

2-7

SEQ 0009

1<(R>

UNIT 8
CSR ADDRESS (0) 160900<CR>
7<(R>
SUB-DEVICE # (0) ?
Q=FACTOR (0) 1 ? <(R>
NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
m%gm IS GIVEN. BE CAREFUL WHEN SPECIFYING
AS YOU CAN SEE FROM THE ABOVE EXAMPLE,

THZ HARDWARE PARAMETERS

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.

NOT VERY EFFICIENT.

THE PROCEDURE SHOWN IS

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
IF.EI'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION

# UNITS (D) ?

B<CR>

UNIT 1
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 0,1<CR>
Q-FACTOR (0) 0 ?
1,0<CR>

UNIT 3
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 2-5<CR>
Q-FACTOR (0) 0 ?

O<CR>

UNIT 7
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 6,7<CR>
@-FACTOR (0) 0 ?

1<(R>

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS. IN THE
FIRST PASS, TWO
ARE BUILT SINCE TWO SUB-DEVICES AND O-F
WERE SPECIFIED.
THE
SERVICES ASSUME THAT THE CSR ADDRESS IS
FOR BOTH §
WAS SPECIFIED OMLYONCE.
IN THE SECOND PASS, FOLR ENTR

UILT.

THIS IS BE

FOUR

~pCONSTRUCT TELLS THE RUNTIRE

ICES WERE SPECIFIED.

SERVICES TO INCREMENT THE DATA

WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOW.
# UNITS (D)

B<CR>

CZMLABO ML-11 LOGIC TEST

MACRO M1113

USER DOCUMENTATION

22-DEC-80 12:16

UNIT 1

CSR MSS o ?

K 1
PAGE 2-8

SEQ 0010

CR>

SUB-DEVICE
# (0) ?
<CR>
Q@-FACTOR (0) 0 ? 0,1.0....1.7<CR>
AS YOU CAN SEE FROM THIS EXAMPLE,

NULL REPLIES (COMMAS ENCLOSING

A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.
2.7 QUICK START-UP PROCEDURE

(XXDP+)

TO START=UP THIS PROGRAM:
1. BOOT XXDP+

2. GIVE THE DATE AND ANSWER THE LSI AND 50HMZ (IF THERE
IS A CLOCK) QUESTIONS

3. TYPE "R NAME'’, WHERE NAME IS THE NAME OF THE BIN OR BIC
FILE FOR THIS PROGRAM

&. TYPE "START"'

5. ANSWER THE 'CHANGE WW'' QUESTION WITH ‘¥Y*’
6. ANSWER ALL THE HARDWARE QUESTIONS

7. ANSWER THE 'CHANGE SVW'' QUESTION WITH ‘W'’
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAULTS

ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

3.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES
MEKMLEVELSUEMESSAGES MYMV& ISSI.EDOY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL
E% SAGES

ARE ALWAYS PRINTED UNLESS THE
"IER“ FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:

ON UNIT NUMBER

TST NUMBER PC:)O00XXX

NUMBER

TYPE

NAME

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED

THE ERROR.

THE *’l

{

ITIONAL

THESE ARE ALWAYS PRINTED UNLESS

‘IBR'* FLAGS ARE SET (SECTION 2.3).

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

THESE MESSAGES

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 5—9

USER DOCUMENTATION

SUCH AS REGISTER conws pmepao/ug
MTA
PRINTED UNLESS ns -

mse ARE ALWAYS
ARE SET (SECTION 2.3).

THESE MESSAGES
ARE méo AFTER THE Assocmso GENERAL ERROR

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.

3.2 SPECIFIC ERROR MESSAGES
ERROR MESSAGES ARE HANDLED VIA A DICTIONARY STRUCTURE.
WORDS AND PHRASES ARE MULTIPLY REFERENCED USING ONLY

ONE COPY OF THE WORD OR PHRASE IN CORE.

THIS PERMITS EXTENSIVE ERROR MESSAGE PRINTING AT MINIMAL

STORAGE REQUIREMENTS.

THE FOLLOWING DEMONSTRATES TYPICAL ERROR MESSAGES:

ML11 DVC FTL ERR 00077 ON UNIT 07 TST 027 SuB 002 PC: 050432
ASYNCHRONOUS MODULE FAILURE
EXCESSIVE DATA ERRORS DURING INITIAL ARR RD_WRT

ML11 DVC FTL ERR

00112 ON UNIT 03 TST 037 SUB 000 PC: 056466

ASYNCHRONOUS MODULE FAILURE
ARRAY ADRS MULTIPLEXER FAILURE
FAILED AT DSA:

3.2.1 ERROR NUMBER DEF INITION
ERROR NO.
1

FAILING LOGIC
DRIVE DID NOT RESPOND

WITHIN 1.5 US

DSA REG READ/WRITE ERROR
DURING DRIVE SEL TEST

UNIQUE DRIVE SELECTION

ML REGISTER READ WRITE

ML REGISTER READ WRITE
ONES/ZEROES ERROR

ML REGISTER INITIALIZATION
ERROR

CONTROL BUS BAD PARITY
NOT DETECTED

8
9

ERROR

ONES/ZEROES ERROR

CONTROL BUS GOOD PARITY

NOT DETECTED.

CONTROL BUS BAD PARITY

SEQ@ 0011

CZMABO ML=11 LOGIC TEST

MACRO M1113

USER DOCUMENTAT
ION

22-DEC-80 12:16

LIS

PAGE 2-10

SEa 0012

GENERATED.
10
n

ARRAY SIZING LOGIC ERROR

GO BIT NOT CLR AFTER

NOOP FUNCTION

ILF BIT SET DURING NOOP

FUNCTION

OP1 BIT SET DURING NOOP
FUNCTION

GO BIT NOT SET DURING WRITE
CHECK FUNCTION

DRY BIT NOT CLEAR DURING
WRITE CHECK FUNCTION

DRY BIT SET WHEN GO SET
DURING WRITE CHECK FUNCTION

ILF SET DURING WRITE
CHECK FUNCTION

OP] BIT SET DURING WRITE
CHECK FUNCTION

GO BIT NOT CLEAR AFTER WRITE

CHECK FUNCTION °ASYNC FAILURE'

GO BIT NOT CLEAR AFTER WRITE
CHECK FUNCTION °SYNC FUNCTION'

DRY BIT NOT SET AFTER WRITE
CHECK FUNCTION

GO BIT NOT CLEAR AFTER WRITE
CHECK FUNCTION °"ASYNC FAILURE'

GO BIT NOT CLEAR AFTER WRITE
CHECK FUNCTION °*SYNC FAILURE'

GO BIT NOT SET DURING WRITE

DRY BIT CLEAR WITH GO CLEAR
DURING WRITE FUNCTION.

DRY BIT SET WITH GO BIT
DURING WRITE FUNCTION.

ILF BIT SET DURING WRITE

FUNCTION

OPI BIT SET DURING WRITE FUNCTION

e
e
e —

FUNCTION

MACRO M1113 22-DEC-80 12:16 PAGE 3-11

CZMLABO ML-11 LOGIC TEST
USER DOCUMENTATION

GO BIT NOT CLEAR AFTER WRITE
FUNCTION "ASYNC FAILURE'

DRY BIT NOT SET AFTER WRITE
T
UNCTION.
-

R
e

)

GO BIT NOT CLEM AFTER WRITE
UNCTION *SYNC FAILURE'

NOT CLEAR AFTER WRITE
UNCTION ‘ASYNC FAILURE'

GO BIT

GO BIT
1 NOT CLEAR AFTER WRITE
FUNCTION °ASYNC FAILURE'
GO BIT NOT SET DURING READ
FUNCTION.

DRY BIT SET WHILE GO CLEAR
DURING READ FUNCTION.

DRY BIT SET WHILE GO SET
DURING READ FUNCTION.

ILF BIT SET DURING READ

FUNCTION.

OPI BIT SET DURING READ
FUNCTION

GO BIT NOT CLEAR AFTER READ
FUNCTION °ASYNC FAILURE'
GO BIT NOT CLEAR AFTER READ
FUNCTION °*SYNC FAILURE'

DRY BIT NOT SET AFTER READ

GO BIT NOT CLEAR AFTER READ
FUNCTION °ASYNC FAILURE'

GO BIT NOT CLEAR AFTER READ
FUNCTION °SYNC FAILURE®

FUNCTION

GO BIT NOT CLEAR AFTER
CLEAR FUNCTION
an

DRY BIT SET WHILE GO SET
DURING CLEAR FUNCTION
DRY BIT NOT SET AFTER
CLEAR FUNCTION.

ILF BIT SET DURING CLEAR

FUNCTION

SEQ 0013

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 3-15

USER DOCUMENTAT ION

SEQ 0014 |

0PI BIT SET DURING CLEAR

COMPOSITE ERROR BIT NOT
SET AFTER MLER BITS SET

ATA BIT SETTING ERROR

ATTN BIT SETTING ERROR

ATTN BIT NOT CLEARED BY

ATA BIT NOT CLEAR AFTER

FUNCTION

MLCS1 NOOP FUNCTION

WRITING A ONE TO IT

)

WRITING A ONE TO OTHER
DRIVES ATA BIT CLEARED

|
|
|

THIS DRIVES ATA BIT

GO BIT NOT CLEARED AFTER

)

SEARCH FUNCTION

ILF BIT SET DURING SEARCH

FUNCTION

NO-OP FUNCTION DID NOT

CLEAR THE ATA BIT AFTER BEING

ATA BIT NOT SET AFTER

0PI BIT SET DURING SEARCH

62
3

64
’

3]
s
67

SEARCH FUNCTION

FUNCTION AT PRESENT ARRAYS

ATA BIT SET AFTER SEARCH

GO BIT NOT CLEAR AFTER

AT NOT PRESENT ARRAYS.

READ=IN-PRESET FUNCTION

ILF BIT SET DURING

READ-IN-SET FUNCTION

0PI BIT SET DURING

READ-IN-PRESET FUNCTION

UV BIT NOT SET AFTER

READ-IN-PRESET

GO BIT NOT CLEARED

AFTER ILLEGAL FUNCTION

ILLEGAL FUNCTION nor
DETECTED

|
i

MACRO M1113 22-DEC-80 12:16 PAGE Sfli

CZMLABO ML-11 LOGIC TEST

USER DOCUMENTATION

SEQ 0015 |

OP] BIT SET WITH ILLEGAL
FUNCTION

RMR BIT NOT SET AFTER
MODIFYING REG WITH FUNCTION
IN PROGRESS.
MEMORY ARRAY PROM

CHECK SUM ERRORS DURING
INITIAL PROM READS

NIBBLE OFF SET COUNTS

UNS BIT SET WITH GOOD
UV DATA

GREATER THAN 14 DETECTED.

UNS BIT SET WITH GOOD
UV DATA
74

UNS BIT NOT SET WITH BAD
UV DATA

MEMORY ARRAY PROM ROW/
COL DATA ORING ERROR

NIBBLE THRESHOLD OF
EXCEEDED DURING
%ggl& ARRAY READ/WRITE
&

UNIQUE PROM SELECTION
ERROR
FAILURE TO FIND GOOD ROW
DURING READ WRITE ARRAY
WITH PROM DATA

MEMORY ARRAY TIMING AND

DATA ERRORS DETECTED AT
LAST BLOCK DURING ADDRESSES
COUNTER TEST.
(TEST ABORTED)

CONTROL FAILURE TO REFRESH
MEMORY

ADDRESS COUNTER ERROR
UNIQUE MEMORY ARRAY
MODULE SELECTION FAILURE
ALL BITS IN ALL NIBBLES
TESTED DURING SEQUENCER

EXISTENCE TEST WERE IN

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE -12

USER DOCUMENTATION

ERROR (FAIL UNIT)

INTERMEDIATE FAILURE.
SOME
BITS IN NIBBLES TESTED WERE
IN ERROR (CONTINUE TESTING)

SYNC BUS DATA BIT

WRITE PATH CONTINVITY
FAILURE

SYNC BUS DATA BIT
READ PATH CONTINUITY
FAILURE.

RAM BUS ADRS COUNTER

FAILURE TO LOAD/UNLOAD
SKIP RAM DURING RITE
FUNCTION
FAILURE TO LOAD/UNLOAD

SYNC MTA 9.5 RITE PATH

UNIQUE
DA

FAJLLRE (ALL MS NIBBLE
TTERN)

SYNC DATA BUS WRITE
PATH UNIQUE DATA BIT
FAILURE (SHIFTED BIT

NIBBLE PATTERN)
92

SYNC DATA BUS WRITE
PATH UNIQUE DATA BIT

FAILURE (ALL ONES NIBBLE
PATTERN)
93

SYNC DATA BUS READ PATH
UNIQUE DATA BIT FAILURE

NIBBLE OFF SET

CS1 FUNCTION ABORT
FAILURE DURING CLASS
‘A’ ERROR.

COUNTERS FAILURE

CS1 FUNCTION ABORT

FAILURE DURING CLASS

‘8" ERROR

LBT BIT SET BEFORE
A LAST BLOCK TRANSFER

DSA REGISTER INCREMENT

SEQ 0016

MACRO M1113 22-DEC-80 12:16 PAGE S-1§

CZMLABO ML-11 LOGIC TEST

USER DOCUMENTATION

FAILURE DURING NON LAST

BLOCK TRANSFERS.

LBT BIT NOT CLEAR
AFTER LOADING DSA REG
100

LBT BIT NOT_SET

AFTER A LAST BLOCK
TRANSFER

101

DSA REGISTER
INCREMENT FAILURE
AFTER A LAST BLOCK
TRANSFER

102

IAE BIT NOT SET AT
INVALID SECTOR ADDRESSES

103

AOE BIT NOT SET

104

SC BIT NOT AFTER
CS1 FUNCTION ADORT

105

106

107

AFTER ADDRESS OVERFLOW

GOOD DATA BUS

PARITY NOT DETECTED

GOOD DATA BUS

PARITY NOT GENERATED

UNS BIT SET AFTER

WRITING TO A SECTOR

?"E’S‘#" PROM DATA

108

UNS BIT NOT SET WITH
BAD UV DATA

109

WCE BIT SET DURING
MBUS WRITE/READ
FUNCTION TROUBLE SHOOTING
LOOP TEST

110

UNIQUE REGISTER
SELECTION TEST FAILURE

‘1M

FAILURE TO FIND GOOD
MOS RAM ROW DURING
ARRAY ADRS MUX TEST
(INTERMEDIATE DIAG MSG)

112

UNIQUE ARRAY MODULE
ROW/COL ADDRESSING
FAILURE

113

DRIVE TYPE REGISTER VALUE
WAS NOT CORRECT

SE@ 0017

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 2-1i
£

USER DOCUMENTATION

114

TRE BIT SET UNEXPECTEDLY

DURING A WRITE CHECK TRANSFER
(INTERMEDIATE DIAG ERROR)

115

TRE BIT SET UNEXPECTEDLY
DURING
A WRITE TRANSFER
(INTERMEDIATE DIAG ERROR)

116

TRE BIT Ss UNEXPECTEDLY
DURING A
TRANSFER
(INTERMEDIATE DIAG ERROR)

117

TRE BIT DID NOT SET AFTER
A REGISTER MODIFICATION ERROR
(EXCEPTION WAS NOT ASSERTED)

118

DATA DIAGNOSTIC REGISTER D1 D2 E2
INITIALIZATION ERRORS

119

RH CONTROLLER FAILURE TO RESPOND
TO EXISTANCE PROBE

120

NED BIT SET DURING MASS BUS TO
UNIBUS COMMUNICATION PROBE

121

DATA DIADOSTIC IEGISTER D1 D2 E2
ONE'S / ZEROE'S READ WRITE ERRORS

122

DATA DIAGNOSTIC
SHIFTING 1°'S AND

123

ECC HARD ERROR BIT NOT SET WHEN

UNCORRECTABLE ECC ERRORS WERE READ

124

ECC ERROR REGISTER FAILURE TO LATCH
FAILING ERROR CORRECTION INFORMATION

125

ECC ERROR REGISTER FAILURE TO CLEAR

126

ECC ERROR LOCATION REGISTER FAILED

127

ECC ERROR LOCATION REGISTER DATA
BIT ERRORS

128

ECC_ERROR LOCATION REGISTER
INITIALIZATION ERRORS

129

TO CLOCK IN DSA ADDRESS

ECC HARD ERROR BIT FAILED TO SET

NOT SET

130

DATA CHECK ERROR BIT FAILED TO

135

CRC DATA BUS FAl LURE.
BIT CONTINUITY / UNIQUENESS ERRORS

SET / NOT SET

SEQ 0018 |

MACRO M1113 22-DEC-80 12:16 PAGE -1;

CZMLABO ML-11 LOGIC TEST

USER DOCUMENTATION

132

UNJQUE NIBBLE CRC GENERATION CODE

133

UNIQUE WORD CRC GENERATION CODE

134

CORRECTABLE ERROR SYNDRONE DECODE

FAILURES
FAILURES

FAILURE.
FAILURE TO COMPLIMENT
EXPECTED FAILING BIT(S)

135

CORRECTABLE ERROR SYNDRONE DECODE
FAILURE.
'INEXPECTED BIT(S) FOUND
COMPLIMENTED

136

ECH OR UNC BIT NOT SET DURING_READS

WITH ECC ERRORS IN CHANNEL > 35

137

ERROR CORRECTION WAS NOT INMIBITED
DURING UNCORRECTABLE ECC ERRORS.
UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED

138

ECH OR UNC BIT NOT SET WHEN MULTIPLE

139

ERROR CORRECTION WAS NOT INMIBITED
DURING UNCORRECTABLE ECC ERROR.
UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED

140

ECC FAILURE TO DETECT AND CORRECT
SINGLE BIT CHANNEL ERRORS

CHANNEL ERRORS WERE READ

141

ECC_FAILURE TO DETECT AND CORRECT

MULTIPLE BIT CHANNEL ERRORS

4.0 PERFORMANCE AND PROGRESS REPORTS
AT THE END
OF EACH PASS

TOTAL MUPBER

COUNT IS GIVEN ALONG WITH THE

fiemarenSINCE THE DIAGNOSTIC WAS STARTED.

EQP" SWITCH
CAN BE USED TO CONTROL
HOW OFTEN THE-END
OF PASS MESSAGE IS PRINTED.
SECTION 2-2 DESCRIBES SHITCHES.
5.0 DEVICE INFORMATION TABLES
HARDWARE DEFAULT PTABLE

LWORD
. WORD
. WORD
.WORD
WORD
WORD
WORD

176400
16.
1
0
0

;RH ADDRESS
:RH TYPE
;RH VECTOR ADDRE
:NUMBER OF ARRAY
;1S DRVE OPTION HJ‘IA
1=16K,
0=64K
:ML-11 DRIVE
;1S PARITY DIS&ED. 1=YES,
O=NO

SEQ 0019

MACRO M1113 22-DEC-80 12:16 PAGE 2-1i
H

CZMLABO ML-11 LOGIC TEST
USER DOCUMENTATION

PRSN:

.WORD

SEQ@ 0020

;PRINT SERIAL NUMBER, 1=YES,

6.0 TEST SUMMARIES
TST1.

MASS BUS READY
TEST THE RH CONTROLLER FOR EXISTANCE

TST2.

MASS BUS HANDSHAKE
TEST MASS BUS =—=> UNIBUS COMMUNIZATIONS

TST3.

DRIVE PRESENT
TEST TO SEE IF THE DRIVE UNDER TEST EXIST.

TST4.

DRIVE SELECTION
SEE IF SELECTING OTHER DRIVES ON RH EFFECTS DRIVE UNDER TEST.

TSTS.

READ WRITE REGISTER ONE'S ZERO'S TEST
TEST REGISTERS READ WRITE CAPABILITY AND UNIQUENESS

TST6.

READ WRITE REGISTER SHIFTING ONE'S AND ZEROES
TEST REGISTERS FOR UNIQUE DATA BITS.

TST7.

TST8

TSTS.

PRINT DRIVE SERIAL NUMBER
PRINT THE CONTENTS
OF

ANSWERED °'YES'.

MLSN

THE

SOFTWARE

QUESTION

WAS

TST10. C-BUS PARITY
TEST IF DRIVE CAN DETECT BAD PARITY
GOOD PARITY.

(-BUS

AND

GENERATE

TSTI. MEMORY SIZING
SEE IF MEMORY SIZING LOGIC DETECTS AND RECORD CORRECT
OF ARRAYS PRESENT.

TST12. NO-OP FUNCTION

SEE IF A NO-OP FUNCTION CAN BE EXECUTED.

TST13. WRITE CHECK FUNCTION

NUMBER

MACRO M1113 22-DEC-80 12:16 PAGE 5-15

CZMLABO ML-11 LOGIC TEST

USER DOCUMENTATION

SEQ 0021

SEE IF A WRITE CHECK FUNCTION CAUSES THE DRIVE TO HANG.
TST14. WRITE FUNCTION

SEE IF A WRITE FUNCTION CAUSES THE DRIVE TO HANG.
TST15. READ FUNCTION

SEE IF A READ FUNCTION CAUSES THE DRIVE TO HANG.
TST16. CLEAR FUNCTION

SEE IF A CLEAR FUNCTION CAN BE EXECUTED.

TST17.

DIAGNOSTIC REGISTER READ WRITE
TEST THE DIAGNOSTIC REGISTERS FOR

xn%?thflgnnm R S

TST18. COMPOSITE ERROR BIT TEST

EEE IF EACH INDIVIDUAL ERROR BIT IN MLER CAUSES

COMPOSITE

TST19. ATA BIT
TEST IF THE ATA BIT CAN BE SET AND CLEARED.

TST20. SEARCH FUNCTION

%f IF A SEARCH FUNCTION CAN BE EXECUTED ON ALL PRESENT ARRA.

TST21.

READ IN PRESET
TEST IF A READ IN PRESET FUNCTION SETS VOL V H.

TST22. ILLEGAL FUNCTION
SEE IF WRITING AN ILLEGAL FUNCTION TO CS1 CAN BE DETECTED AND
THAT A TRANSFER IS NOT INITIATED.

TST23. REGISTER MODIFICATION REFUSED
TEST TO SEE IF WRITING TO SPECIFIC REGISTERS ARE ABORTED
WHILE
THE DRIVE
IS ACTIVE.
SEE IF WRITING TO NON-SPECIFIC
REGISTERS ARE ALLOWED WHILE DRIVE IS ACTIVE.

TST24. INITIAL PROM TEST
TEST PROMS FOR EXISTENCE.

TST25. PROM ‘OR' FUNCTION TEST
TEST THE PROM DATA ORING FUNC

CZMLABO ML-11 LOGIC TEST

USER DOCUMENTATION

MACRO M1113 22-DEC-B0 12:16 PAGE 5-28

SEQ@ 0022

TST26. UV ERROR TEST
EEST ABILITY OF UV ERR PROMS TO DETECT ALL POSSIBLE CHECK SUM

INITIAL ARRAY TEST
TEST ARRAY TIMING AND CONTROLFOR EXISTENCE.

TSTZ28. PROM SELECTION TEST
TEST FOR UNIQUE PROM SELECTTON.

TST29. READ WRITE MEMORY ARRAY WITH PROM DATA (DIAG MODE)

SEE IF MEMORY CAN BE WRITTEN AND READ.
ALSO FIND ERROR FREE BLOCK OF MEMORY FOR FUTURE TESTS.

TST30. REFRESH TIMING
TEST TO SEE IF MEMORY CAN BE REFRESHED.

TST31. ADDRESS COUNTER
TEST THE ADDRESS COUNTER FOR ABILITY
POSSIBLE MEMORY ADDRESSES.

COUNT

THROUGH

ALL

TST32. ARRAY MODULE SELECTION
TEST FOR UNIQUE ARRAY MODULE SELECTION

TST33. SEQUENCER EXISTENCE TEST
TEST TO SEE IF BASIC SEQUENCER TIMING EXISTS.

TST34. SYNC DATA BUS CONTINUITY/WRITE PATH

TEST SYNCHRONOUS DATA BUS WRITE PATH FOR CONTINUITY BY
ING WRITING ONE'S AND ZERO'S.

READ-

TST35. SYNC DATA BUS CONTINUITY/READ PATH
TEST SYNCHRONOUSDATA BUS READ PATH FOR CONTINUITY BY READING

WRITING ONE'S AND ZEM

TST36. RAM-BUS ADDRESS COUNTER/WRITE PATH
TEST ABILITY OF THE RAM-BUS ADDRESS COUNTERS
THE SKIP DURING WRITE FUNCTIONS.

LOAD/UNLOAD

TST37. RAM BUS ADRS COUNTER/READ PATH
TEST ABILITY OF RAM/BUS ADRS COUNTERS TO LOAD/UNLOAD THE SKIP
RAM DURING READ FUNCTIONS.

MACRO M1113 22-DEC-80 12:16 PAGE 2-2?
3

CZMLABO ML-11 LOGIC TEST
USER DOCUMENTATION

SEQ 0023

TST38. SYNC DATA BUS BIT UNIQUENESS/WRITE PATH
TEST_SYNCHRONOUS DATA BUS FOR DATA BIT UNIQUENESS BY

SHIFTING PATTERNS OF ONE'S AND ZERO'S TO THE ML.

WRITING

TST39. SYNC DAT BUS BIT UNIQUENESS/READ PATH
TEST SYNCHRONOUS DATA BUS READ PATH FOR DATA

BIT

UNIQUENESS

BY WRITING SHIFTING PATTERNS OF ONES AND ZEROES TO THE
TST40. ARRAY ADDRESS MUX
TEST FOR UNIQUE ROW AND COLUMN ADDRESSING

TST41. NIBBLE OFFSET
TEST NIBBLE OFFSET COUNTERS TO COUNT TO 14 NIBBLE DATA TO
SHIFTED ON DETECTION OF BAD NIBBLES.

TST42. CS1 FUNCTION ABORT

SEE IF A CLASS "B’ ERROR ABORTS A FUNCTION WHILE IN PROGRESS.
SEE IF A CLASS'A' ERROR IS DETECTED BUT FUNCTION
TO COMPLETE.

TST43. LAST BLOCK INDICATOR

IS
.

TEST THE LAST BLOCK INDICATOR BIT FOR NOT SETTING

LAST AND SETTING AND CLRING AT THE LAST BLOCK
TST44.

ALLOWED

BELOW

THE

INVALID ADDRESS TEST
FOR ALL ILLEGAL DSA ADDRESSES READ THE IAE BIT SET.

TST4S. ADDRESS OVERFLOW
TEST FOR ADE ON TRANSFERS WHICH EXTEND BEYOND THE LAST BLOCK.

SYNC BUS PARITY
TEST FOR BAD PARITY DETECTION AND GOOD PARITY GENERATION.

TST47. WRITE READ MEMORY ARRAY (M-8US BLOCK MODE)
WRITE READ MEMORY VIA M-8US BLOCK WITH MINIMUM OVERHEAD

TST48.

TST49.

TST50.

TEST THE CRC DATA BUS BETWEEN THE CRC

ROX FORCONTINUITY D B1T N1GUENESS
TEST CR; CODES GENERATED FOR ONE CRC

GROUP (52 UNIQUE NIBBLES)

TEST CRC CODES GENERATED FOR ONE

MACRO M1113 22-DEC-80 12:16 PAGE -25

CZM_ABO ML-11 LOGIC TEST

USER DOCUMENTATION

CRC GROLP (13 UNIBUS WORDS)
TST51.

TSTS2.

TEST SYNDRONE DECODE AND ERROR
CORRECTION TO DECODE AND CORRECT
SINGLE BIT AND MULTIPLE BIT
CHANNEL ERRORS
TEST SYNDRONE DECODE TO DETECT BUT

'EOT CORRECT UNCORRECTABLE CHANNEL

TSTS3.

TEST SYNDRONE DECODE TO DETECT BUT NOT
EWECT UNCORRECTABLE MULTIPLE CHANNEL

TST54.

TEST _SYNDRONE GENERATION, SYNDRONE DECODE
END ERROR CORRECTION FOR SIGLE BIT CHANNEL
TEST SYNDRONE GENERATION, SYNDRONE DECODE
AND ERROR CORRECTION FOR MULTIPLE BIT
CHANNEL ERRORS

TSTS6.

TEST THE ECC ERROR REGISTER FOR
CLEARING AND LATCHING OF ECC _ERROR
INFORMATION ON DETECTION OF ECC ERRORS

TST57.

TEST THE ECC ERROR LOCATION REGISTER FOR
&%{"2. BIT UNIQUENESS., CLEARING AND

TSTS8.
TST59.

VIA ECC_DM AND ECC DIS TEST THE ECH

BIT FORTMSETTING AND NOT SETTING
VIA ECC_EN,

ECC_DM AND ECC DIS TEST

THE DCKTMBIT FORTMSETTING AND NOT SETTING

TST60. PROM DATA TEST
VERIFY THAT CHECK SUM VALUES FOR ALL PROM LOCATIONS ARE CORRECT.

$€Q 0024

CZMLABO ML-11 LOGIC TEST

PROGRAM HEADER AND TABLES

.SBTTL

ERRES 2 BRI RN RAR 2B IIIRERIEHRERSECB Y

MACRO M1113 22-DEC-80 12:16 PAGE 4 '
.ENABL

ABS,AMA

THE PROGRAM MEADER IS THE INTERFACE BETWEEN

TlE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

8 81

POINTER AL

NAMES OF DEVICES SUPPORTED BY THIS PROGRAM
DEVIYP <aML-11>

TEST DESCRIPTION

DESCRIPT <ML-11 LOGIC TEST>

THE GLOBAL ERROR TABLE (INFORMATION

USED IN A CALL TO THE MACRO ' ERROR'")

ERRTBL

SRR

ERRTYP::

MWMORD

ERRMSG: :
ERRBLK: :

WORD
MWORD

ERRNBR: :

WORD

O
O

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST.

: IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

+
-+

DISPATCH 60
...-.o.o‘o..

3333333338833
89

PROGRAM HEADER AND TABLES

'00

d —d
D —d
bl cd
D
e
) e
)
—

SEQ 0025

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
THE TEST-DEVICE PARAMETERS.

THE STRUCTURE OF THIS TABLE

IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,
»0 IS USED AS A "TEMPLATETM FOR BUILDING THE P-TABLES.

CZMLABO ML-11 LOGIC TEST

PROGRAM HEADER AND TABLES

MACRO M1113

}19 002354
1

1
1

22-DEC-80 12:16

1
}

DFPTBL

MORD

176400

:RH ADDRESS

LMORD
LMORD

16.

:NUMBER OF ARRAY MODULES
;1S DRVE OPTION ML11A,
1=16K,

.WORD
.WORD

139 002374
140
141

SEQ 0026

BGNWW

.WORD
.WORD

1
1

N 2
PAGE 4-1

:RH TYPE
:RH VECTOR ADURESS

:ML=11 DRIVE NUMBER
;1S PARITY DISABLED,

1=YES,

0=64<

O0=NO

ENDHW

F o

145
}29

: PROGRAM
AS OPERATIONAL PARAMETERS.
THESE
TERS ARE SET
: trll’,é' ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR AT RUN

144

: THE oemu SOF TWARE P-TABLE CONTAINS VARIOUS

148

p—

149

}ss»(‘) 002374
159
1153 002376
162 002400

DATA USED BY THE

000000

PRSN:

BGNSW

SFPTBL

.WORD

ENDSW

:PRINT SERIAL NUMBER, 1=YES,

O0=NO

MACRO M1113 22-DEC-80 12:16 PAGE g

CZMLABO ML-11 LOGIC_TEST

SEQ 0027|

——Y

)

NE o@D

PROGRAM HEADER AND TABLES

HARDWARE PARAMETER CODING SECTION CONTAINS MACROS

: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE
;
NOT
EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE
: WITH THE OPERATOR.

GPRMA
GPRMD
GPRMD

nsen.g.o.o 177777.YES
ggg. .0.72,11,70.YES
4.0.777.0.777,YES

GPRMD

MSGH6.12.0.7,0.7.YES

GPRMD
GPRML
GPRML

MSGH&.6.D.77,1.16..YES
MSGHS.10.1.vEs
MSGH7.14.1.YES

WEH WO WO

R
= =
=
-b
—-—\)

— i e e (N = )
SN0\

ENDHRD

040

MSGH1:

.ASCIZ

/RM ADDRESS?/

115
040
055
040

MSGH&:

.ASCIZ

/NUMBER OF ARRAY MODULES?/

040 ggg:
040
:

MSGHS:
MSGH6:
MSGH7:

LASCIZ /IS RH AN °*70° OR 112/
.ASCIZ /RH VECTOR ADDRESS?/
.ASCIZ
.ASCIZ
.ASCIZ

-EVEN

/IS DRIVE OPTION AN ML11A?/
/ML-11 DRIVE NUMBER?/
/IS PARITY DISABLED?/

*
*
:
:
:

THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

: WITH THE OPERATOR.

BGNSFT

PR LFARY P N
8 8 R
N

BGNHRD

o
:B | M ©

T 4 Tt D T L 48 o A QNN

* MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

GPRML
.EVEN

MSGS1,0.1,YES

ENDSFT
120

122

111

MSGS1:

.ASCIZ
.EVEN

/PRINT SERIAL NO.?/

;PRINT DRIVE SERIAL NUMBER?

CZMABO ML-11 LOGIC TEST

PROGRAM HEADER AND TABLES

MACRO M1113 22-DEC-80 12:16 PAGE 2-1
'L o g

; THIS TABLE 1S USED BY THE RUNTIME SERVICES
: TO PROTECT THE LOAD MEDIA.

002750
g%ggo
e

4 002754

BGNPROT
177777
177777

-1
-3

177777

-3

15 002756
7 002756

002756

003016

sOFFSET INTO P-TABLE FOR CSR ADDRESS
sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS
;OFFSET INTO P-TABLE FOR DRIVE NUMBER

ENDPROT
SPATCH::

.BLKW
ENDMOD

SEQ 0028

CZMLABO ML-11 LOGIC TEST

0.3
PAGE 43

SEQ 0029

.SBTTL MISCELLANEOUS CWI% SECTION

17-0ct=1980 11:31:
29-509-19 10:13:1

206)

ve(
TOPS=20 Blis ;-16
2 (M

PA: <NEALE>ML

MODULE ML3 =

BEGIN

Lo
N

SRR

REQUIRE °"MACRO.REQ’;
'+

THE REPORT CODING SECTION CONTAINS THE

; "PRINTS'® CALLS THAT GENERATE STATISTICAL REPORTS.
i

BGNRPT;
RETURN;
ENDRPT;

000207

LRPT:

RTS

; Routine Size:
1 word
; Maximum stack depth per invocation:

0716

0 words

RBR

ERER AU

004767

177772

000207

LSRPT:: JSR
TRAP
RTS

PC.LRPT
25

§, SRRy

004166

0725

0 words

|
|

'+
:
! THE AUTW.%O&; IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE

BGNAUTO;
RETURN;
ENDAUTO;

! CODE IF THE 'Y
' FLAG WAS SET.
THE UNIT(S) UNDER TEST ARE
! CHECKED TO SEE IF THEY WILL RESPOND.
THOSE THAT DON'T ARE IMMEDIATELY
; DROPPED FROM TESTING.
ISSUE A 'DODU'* FOR THOSE THAT DON'T RESPOND.

LAUTO:

RTS

; Routine Size:

1 word

; Maximum stack depth per invocation:

004767

; Routine Size:
& words
; Maximum stack depth per invocation:

SR8 BB REIN NI IR

—

22-DEC-B0 12:16

;M3

S5 S SURUKBNEN Y G335 5 R

=3 oo

MISCELLANEOUS CODING SECTION

MACRO M1113

177772

LSAUTO: : JSR

PC.LAUTO

0726

0736

0 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

101 004172

}8; 004174

MACRO M1113 22-DEC-80 12:16 PAGE 533

104461

TRAP

000207

RTS

104

: Routine Size:

}(1)3

& words

; Maximum stack depth per invocation:

1M1 ;

11§ ;M3

0738

115

116 ;

17 ;
118 ;
119 ;
120 ;
121 ;
13 3
123
;
127

11351‘, 004176

29-Sep-1980 10:13:18

0739

07640
0741
07
074
0744
0745
0746

! THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
' TO NO LONGER BE TESTED.
BGNDU;
RETURN;
ENDDU;

000207

LDU:

004767

104453

177772

LSDU::

JSR

TRAP
RTS

; Routine Size:

}ga

1 word

160 ;
161

0747

163
;
164 ;

- 0749
0750

18 3
}22 3

(o);g;

: TO THE TEST CYCLE.

170 ;
171 ;
172
;

‘%81 004210

0753
0754
0755

0756

000207

53
PC

& words

0745!

|
;

0 words

! THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
! TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK

}gg 3

0748

167 ;M3

0737

0 words

PC.LDU

; Maximum stack depth per invocation:

159

190
194

RTS

; Maximum stack depth per invocation:

15%

é
:
4

; Routine Size:

149 006204
}?1) 004206

}g‘q

133

148 004200

TOPS=20 Bliss=16 v2(206)

PA:<NEALE>ML 3.BLI.2 (1)

%‘9

0 words

17=0ct=1980 11:31:46

H‘ :

}

SEQ 0030

;
|

17-0ct=1980 11:31:46

29-Sep~1980 10:15.78

TOPS-20 BLiss=16 V2(206)

PA:<NEALE>ML3.BLI.2 (1)

BGNAU;
RETURN;

ENDAU;

LAU:

RTS

; Routine Size: 1 word

; Maximum stack depth per invocation:

0746

0 words

&
|

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

LSAU::

JSR
TRAP

RTS

; Routine Size:

0755

PS.LAU
S
PC

& words

; Maximum stack depth per invocation:

0 words

END

: Memory Used:
12 pages
; Compilation Complete

-d

TOPS

SU—Y

; Size:
20 code + 0 data words
00:01.9
: Run Time:
; Elapsed Time: 00:07.1

;ML3

ELUDOM

0757
0758
0759

SEQ 0031 i

[«
)

MACRO M1113 22-DEC-80 12:16 PAGE 43-3

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-B0 12:16

9 MG
8

0001

%‘E Msé =

1% :
13
I
14 ;
195:
16 ;
17 ;
18 ;

0004
0005
0006
0007
0008
0009
0010

! PRETTY BLF COMMANDS
!
!<BLF/NOERROR>
!<BLF/LOWERCASE_KEY>
!
! REQUIRE
!

::
;8
2l :

22 :
23 ;
24 ;
2S :
%9 3

28 :
.'

29
30 ;

3 3
3% ;

35 ;
36 ;

40 ;

41 ;
42 ;

43 ;
&4 ;

45 ;

2‘7’ e
48 ;
49 ;

50 ;
51 ;
S% 3
53 .
5S4 ;
S5 ;
56 ;
57 :

2:
60 :

SEQ@ 0032
% -Dec-1980 09:24:31
~Dec-1980 09:21:22

18 :

G 3
PAGE 45

0008

require
%}5
i ' BLSMAC.REQ '3
1496

1497
1498
1499
1500
}SO1

1§8§

1504
1505

1506

1507

1508
1509

lite&afl

ONES = 0'177777°.
=

OF REG
= 22,

FIEED 812 = 4,

!H.CS‘] FUNCTION CODES

1514

SEARCA = %o’ 1"

1516
1517

write = X0°'61°,
read = %0°'71°,

1518
1519

1520

g%‘
152§
15%2
15
1556
1527
1528
1553
15
1531
1S§§

13%
1535

!DATA BIT OF ONE
!DATA PATTERN OF ONES
!DATA BIT OF ZERO
'DATA PATTEM OF ZEROES
!NUMBER
OF BLOCKS IN GLOBAL STORAGE ‘'ML-REG’
IFIELD SIZ FOR FIELD DECLARATIONS ‘WORD_MAP'

ZERO = 0,
ZER(ES =0,

!
NOOP = 1,

1515

!BLISS INTERFACE MODULE

!
! CONSTANT LITERALS
!

1510
151

1315

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3ML4.BLI.2 (1)

!NOOP FUNCTION
'DRIVE CLEAR FUNCTION
!READ IN FRESET FUNCTION
ISEARCH FUNCTION
!WRITE CHECK FUNCTION
!WRITE FUNCTION
!READ FUNCTION

RDUINPRE 2gor2it
WRT_CHK = %0°'51°,

!
! DELAY ARGUMENTS

Hmusus= 40
_TH_US = 2000;

!ONE MICRO SECOND DELAY

IFORTY MICRO SECOND DELAY
!TWO THOUSAND MICRO SECOND DELAY

!
! FIELD DECLARATIONS
!

field

|
=
scot
REGISTER_ADD =

!MAPS GLOBAL STORAGE 'H._REG' INTO REGISTER PERSONALITIES
[0, 0, 16, 01,

FORCE=L0 = £2. 0: 16 063
tme=f3. ., 16,
03

!REGISTERS ADDRESS
!REGISTERS FORCED HI BITS
!REGISTERS FORCED LO BITS
!REGISTERS IGNORE BITS

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

§ ML
:
6S ;

29 :

68 :

69 :
70 :
7

g :
;
7% :
75 :
76 :
77

78 ;

1536

}g 7

tes,

nxs,mt' =

NIB_O =

(0. 0. 4. og.

INIBBLE 0 BITS <0:

1s:.§

NIB_S

[0, 12, &, 03.

.mm

1545
1546
1547
1548

NIBTM6 = [1. 8. 4. 0]
NIBZ7 = [1. 12, &, 03.
NIB8 = s 8,4, 0]
NIBT9 = (2. 12, $, 03

1540
1541

154
1544

1549

82 :
83 :
8 :
85 :

155
1554
1555
1556

1551
1ss§

1557

NIBC1 = (0. 4. 4. 0],
NIB-2 = [0, 8, 4, 0]
=

set
E0_S = Eo. 0., 6. 01,

€05
= [0, 6, 6, 0]
CRE_DATA = [0, 13.71. 03,
SGL-DATA = [0. 1%. 1. 0J.
UNCTMDATA= [O. 15, 1. 03,
POS = (1. 6. 6.

91 :;

1562

tos.

92 :
93 :

1563
1564

INIBBLE 6 BITS <24:
INIBBLE 7 BITS
<28:31>
INIBBLE 8 BITS
<32:35>
INIBBLE 9 BITS <36:39>

tes,

EE_DATA = [0.°0. 6.
0]

0],

Ecn MTA <l:i fo.7 1. 03,

!<BLF/PAGE>

BITS <12:15>

INIBBLE & BITS <16:19>
INIBBLE S5 BITS
<20:

DT1_FLD =

1559

1560

mxa.e BITS <é:
; BITS <8:11>

NIBT% = (1. 0, 4. 01,
NIBCS = [1. 4. 4. 0],

88 :

89 :

TOPS=-20 Bliss=16 v2(212)
I
nen btB,

IMAPS OWN STORAGE NIB_SAVE INTO TEN FOUR EIT NIBBLES

1539

1550

86 :

SEQ 0033

09:24:31
S8-Dec=1980
D0 1900 30:51:3)

79 :

80 ;
81 :

H 3
PAGE 46

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 17

MISCELLANEOUS CODING SECTION

95 ;M4

35-0«:-1

98 ;
9 :
100 :
101 :
10% 3

1565
1569
1567
1568
1569

105 :

1s;§

106 ;

1570
1571

own

'sroaes HARDWARE ORED PROM DATA DURING PROM OR FUNC TEST

iOPERATORS NUMBER OF ARRAY wurreo
IARRAY SELECTION INCREMENTVALUE
iG00D BLOCK ADRS
IPARITY DISABLE FLAG
iMOS RAM
ILAST ADDRESSABLE BLOCK
iMAX MUMBER OF ARRAY ALLOWED

17 ;

1584

stack : voctor 0

vt.sxzs : volatile,

1588
1589
1590

WT_DATA : volatile.
RDDATA : volatile
DRIVE :voadle,

1591
159;
159

127 :
128 :
1??6 :

130
:
}31 :

135 :

136 137 :
138 :
139 :
140 :
141 :

ug :

byte) volatile,

: bitvector [16]

1586

124 :
125 :
126 :

121 :
122 :
123 :

160§

160
1604
1605
1606
1607
1608

iCALCULATED CRC STORAGE LOCATION
iCALCULATED CRC STORAGE LOCATION
iGENERATED CRC STORAGE LOCATION

iGENERATED CRC STORAGE LOCATION
IGENERATED CRC STORAGE LOCATION

“preset (

= %0°'004000°,

Eo.mcs L0)

= %0'173701°,

147 :

1614

5,FORCE_LO

B zo'ssorr',

1615
1616

'usr ML-11 REG INDEX FOR TMIS m-s RH CONTROLLER
iFLAG TO DETECT DOING REG INIT TE
iCALCULATED CRC STORAGE LOCATmu

ML_REG: blockvector [NUM_OF_REG,FIELD_SIZ] field(WORD_MAP)

TARE]

S.FORCETMHI
5.DONT_CARE]

16K OR 64K XFERS

iSAVE WRITE DATA uuns REG READ WRITE TEST
'sm READ DATA DURING REG READ WRITE TEST
m? STORAGE LOCATION

B_GEN
: volatile.
PZGEN
: volatile,

[O,FORCE_HI]

148 :
149 :

'ROW 'g
ADRS

B_CAL : volatile.,
PTCAL : volatile,
A_GEN
: volatilc.

1610
1611

}g};

'STACK oF
1

PROM DATA $% l‘“‘m DURING DIAG MODES

s,nov volatile,
T_FLG
: wml (0) volatile,
A_cn.: volatile,

'MLCS1

= 20'160200°.

= %0°'010600
= %o°
¢

ILAST ADDRESSABLE ARRAY
1 INPUT OUTPUT BUFFER
i STACK m sm Locmoc
'smss WORD

143
:
144 :

}g :

1609

volatile,

RASTINC : volatilo.

159%
1595
1596

1597
}ggg

M P=-TABLE POINTER

rf#n volat{
vector
volatile
srlOFF : vector (10, byte] volatile.

1585

1587

4.BLI.2 (2)

M OR TBL : mtor £127] volatile,

PTBL PTR
: volat le

1581
128
1

120 ;

TOPS=20 Bliss=16 V2(212)

PA:<NEALD>

oP
: volatile,
ARR_INC
: volatile,
Goob
: volatile,
PAR BIS : volatile.
cux! SIZ : volatile,
: volatile,
. vomflo.

119 :

:21:22

NIB_SAVE: block [3] field (NIB_MAP) volatile
ISTORAGE LOCATION TO SAVE NIBBLE DATA READ DURING DIAG MODE|

1574
1575
1576
1577
1578
1579
1580

118 :

:264:31

!
i OWN STORAGE
!

107 :
108 :
109 :
110
11 :
11§ :
113 :

1% :
115 :
116 :

SEQ 0034

~Dec=1

39 :

103 ;
104 :

'MLDS

‘ll11 REGISTERS

STRUCTURE TO STORE xmkuu
'aesxsra PERSONAL
I TIES
+ie. REGISTER ADDRESSES
iBITS FORCED MIGH
iBITS FORCED LOW
iREAD ONLY BITS

CZMLABO ML-11 LOGIC TEST

22-DEC-B0 12:16

PAGE 48

3
SEQ 0035

REVSIII11R-S1R!L1XI1S11BDRlB.lb.R|E¢0lA¢ILlP¢EIRl¢Bl.lS1=15BI1RRsIN1.3IN1I-CR18“R1G3LB1A)101s.5191“3.T%151%[V71%19w1

MISCELLANEOUS CODING SECTION

MACRO M1113

35 Dec=1980 09:1:22

TOPS-20 Bliss=16 v2(212)
PA: <NEALE>BL3ML4.BLI.2 (2)

SS RS RSRySSN|S RSS RS RS RLS

TeeeeeOee=¢O0==¢¢TTMT==T==(—=T===0—===T=T=TTT

M[A

= %0'014620°,

'MLER

= %0'177400°,

'MLAS

= %0°100000°,

!MLPA

'MLMR

MLDT

= %0°140300°,

'MLET

= %0'100300°,

!MLE2

= %0'010000°,

!MLEE

= %o0°

EE.EAEEERaERE

!MLCS2

REMAINDER TABLE
STRUCTURE TO STORE PRECALCULATED
CRC _REMAINDER VALUES FOR CRC CODE
GENERATION

PAGE 49

SEQ 0036

u
M
o
T
"
\
INRALSRAA 1.”““L)RO“1

N -~

L
od

&- - i- Js

Sw[gR[=lt3EwtSw

VOWr=erO0U~0O0V~Or—vT—g®-

w ®

L) L L e - - —

oT_ 1 :2l?ckmtor(5

-0

=NeJleoeeHeeHeitNeiieeeeeeeme¢el¢ele°¢Rlo1°1¢l¢l¢l¢le¢el—eOereleOlr-reOerewreel-—e—ecD§-

LYLYLY-1[—7~,2][—=Y(-] NT—yMCJ

-0

3N2$2-o

22-DEC-80 12:16

O~
S>
Nt3

MISCELLANEOUS copl NG SECTION

MACRO M1113

CZMLABO ML-11 LOGIC TEST

ana3 n dn nds

prese

—

bbbbb7:7:-TT-T-:TT:T:-:TY:T:
wz22ve-mu0u1z1m0ua01®c©rge2peapea.umuouou—mr—neoa=s1A'1'1'N1y'1'81"8'1S'1'1'1'1'o-.1.'cS1!-'o1~.'-1o"'O®1'l®o1.'P1Leo"pe'Y.P.-le1'0-10Y'L.I'.1''®1.'®1'P1Le.'p1eY"E'=.1e'1'L00T1Y8'1.'e010'o1.'e1Y0'1''L.8I'1.8'=01YL'0IR1S'8l1'o
=1

& iS

T~MO 0O0RO —O0 rPr r O0 rR O

Wesse%WsWeeAWeWeeW

RetnatnaRtamtaRntaKmtaRntamtEantRamtBantRamtRamtIaNtaEtaLtaRtateAtaRtatRNatarAgTRKtRERttRRTZRtOItARtRARRtRANRttRN
MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE §o

H, T

<TEET2
> [=] —_ L £ e — LY N

SEQ 0037

S5Dec—1980 09:51:22
PA: <NEALE

TOPS-20 Bliss=16 v2(212)

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

1 ;M4

SS"'""” 83:54:31

1; :
1% ;

-Dec=1980

1765

};29 EQUALS:

18 ;
19

1;38
1

32(1) :

09:21:22

TOPS=20 Bliss=16 V2(212)

PA:<NEALE>BL3IML4.BLI.2 (3)

}s :

19 B

M3
PAGE 51

1768 | MACRO DEF INITIONS
}771

pcro

%:
:
g:

1;;5 i REGISTER NAMES:
mis | mest
g }77 .n{sg C0,REGISTER_ADDIX,

'CONTROL AND STATUS REGISTER 1

32; ;

" }77773

.ML_REG [1,REGISTER_ADDIX,

IWORD COUNT REGISTER

gg :

. }77311)

.M._REG [2,REGISTER_ADDIZ,

'UNIBUS ADDRESS REGISTER

. }778

.n.figz C3.REGISTER_ADDIX,

'DESIRED ADDRESS REGISTER

“ };gg

M asg C4,REGISTER_ADDIX,

'CONTROL AND STATUS REGISTER 2

gz :

. }%

.ML_REG [S.REGISTER_ADDIX,

'DRIVE STATUS REGISTER

g :

N }7733

.ML_REG [6.REGISTER_ADDIX,

'ERROR REGISTER

% :

x }7761’0

.ML_REG C[7.REGISTER_ADDIX,

IATTENTION SUMMARY REGISTER

341 :

334.; :

. }7735

.ML_REG [8,REGISTER_ADDIX,

" 1% .ML_REG [8,REGISTER_ADDIX,

'LOOK AHEAD REGISTER

gzg :

. }7739

.ML_REG [9.REGISTER_ADDIX,

IDATA BUFFER REGISTER

%7 :

" }77;3

.n.{epg £10,REGISTER_ADDIX,

IMAINTENANCE REGISTER

;

MLER =

'PROM ADDRESS REGISTER

%:
§1 :
ssg :

. }aoo M nss's‘ C11,REGISTER_ADDIX,
- }% M nsg £12,REGISTER_ADDIX,
o }% M S [13.REGISTER_ADDIX.

'DRIVE TYPE REGISTER
'SERIAL NUMBER REGISTER
1ECC CRC WORD REGISTER 1

gsz :

" }ggg ML _REG [15,REGISTER_ADDIX,

'DATA DIAGNOSTIC REGISTER 1

55 :

ég :
1:

B }39

M neg 14, REGISTER_ADDIX,

'ECC CRC WORD REGISTER 2

. mg
g ;ag

.nfig £16,REGISTER_ADDIX,
M “Ef £17.,REGISTER_ADDIX,

1816

.n,neLGI [19,REGISTER_ADDIX,

" }§}g M_REG [18,REGISTER_ADDX,
=

IDATA DIAGNOSTIC REGISTER 2
1ECC ERROR REGISTER

'ECC ERROR LCOATION REGISTER
'PROM DATA REGISTER

(M ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE gZ

7 ;

SEQ 0039

b
b
—

OV~
-

D B - Lh

ssw-‘gg 83: 4:31
:21:22
-Dec-1

oMREG (21.REGXSTER_ADD]!.

!CONTROL AND STATUS REGISTER 3

B oD

SC
=

D
D) o

!MLCST BIT ASSIGNMENTS

(MLCS1)<146.,.1>%,

e ol

MCPE
=

-t

(llc51)<13.1>l.
DVA =

(MLCS1<I1,1>%,
RDY =

)

B oD

) oD ooed ood cod =

ol el o) b ol

D md

)

EREERERI
=28 238 3234 381ok

) D

!BUS ADDRESS EXTENSION REGISTER

(ll'c‘gl)dsJOX,

B
b
md
md e
b e

b ol omd
=B
e o
b

MLBAE =

TOPS-20 Bliss=16 v2(212)

PA:<NEALE

M agesczo.ue3ISTER_ADDIX,

' llT ASS]OOEN'S

&~
-

NOVw

CESA AR PR R AR
d

VONOWVSWN=O

i
e

e o
e

e
b e

20
421

(MLCS1)<7,1>%,
IE =
(n.agffl)“L,

(MLCS1)<0,1>%,

oS
5n.
=
DLT

(MLCS2)<15,1>%,
=

(MLCS2)<14,1>X,
=

(MLCS2)<13,1>%,
NED =
(MLCS2)<12,1>%.
NEM =
(MLCS2)<11,1>%,
PGE =

(MLCS2)<10,1>X,
=

(MLCS2)<9,1>X.

(lthS)c.l)!.
-

ORDY =

(MLCS2)<7,1>%.
IRDY =
ucm X,
CLR
=
(MLCS2)<5,1>%,
PAT =

(MLCS2)<6,1>X,
BAl] =
(MLCS2)<3,1>X.
DRY
=

MLCSTTE0 353,
ATIN =

!MLCS2 BIT ASSIGNMENTS

4.BL1I.2 (3)

MACRO M1113 22-DEC-B0 12:16 PAGE 23

CZMLABO ML-11 LOGI C TES
MISCELLANEOUS CODING SE

TOPS-20 Bliss=16 v2(212)
28Dec-1280 99:51:33 | PA:
NEALE>BLIMLG.BLI.2 (3)
(MLDS)<15,1>%,

comP gafi -

" 1871

(MLDS)14,1>%,

M } 76

(MLDS)<12,1>%,
LBT =
(MLDS)<10,1>%,

M 18;8

(MLDS)<8,1>%,
DRY =
(MLDS)<7,1>X,

§§§§§§§§£§§§§§§§§§§§§§§§§§§§3§§§§§§§§§§

875
M 1876

~
bt
v

No 00 00 %0 009090

90 90909090 90 %0 % 9590
%0 909090
%0 90909090 %0 % %%

%%
90 % %%

SREEREREE
SRR TRONILEEREEREEEES&

%090 %0 %090
%
%% %0000
%,

H, T

33
o

“

!MLDS BIT ASSIGNMENTS

MOL =

DPR =

W =

(MLDS)<6,1>%,
DCK =

(MLER)<15,1>%,
UNS =

!MLER BIT ASSIGNMENTS

(MLER)<14,1>X,
OP] =

(MLER)<13,1>X,
IAE =
(MLER)<10,1>X,
ADE
=
(RER)G 1>X.

ERR
=

(H.EAR;«»1>!

(MLER)<S.1>X.
CPAR =
(MLER)<3,1>X,
RMR =

(MLER)<2,1>X,

ILR =
(MLER)<1,1>X%.

(MLER)<0,1>%
ARR TYP

'fi

(ll‘{w)’d o.1>x;

URT 1558,
=
REF
(MLMR <;a1>$.
=

M)uibl.

M)!s.lilf
DAT CLK
=

M’« 1>x
DAT

(M’G 1>!
M)QS~1>X.
ECC_DIS =

!MUMR BIT ASSIGNMENTS

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE glo

MISCELLANEOUS CODING SECTION

55?.233%‘83?5‘:3'

23? :

487 :
488 :
489 :

490 :
o

1951

n 19
19

M 19
19

DRV _TYP =
(MLDTY<0,1>X,
(MLE1)<0,6>%

(MLE1)28,65%,

(MLEEY<15,1>%,

CRC_B =

1937

(MLEEY<14.1>%,

1939

(MLEEY<13,1>%,

UNC_ERR =

M 1936

4 :

M 1938

501 :

M 1940

506 :
507
508 :
509
510 :

1945
196
M 197
1948
M 199

| MISCELLANEOUS MACRO DEF INITIONS:
!
SN3 =
(MLSN)<12,4>X,
=

s1§ :
513
:
514 ;
515
516 :
517 :
518
519 :
520 :
521 ;
sgg :
523
:

M 1951
19s§
M 195
1954
M 1955
M 1956
1957
M 1958
M 1959
1960
M 1961
# lggi

SN1 =
(MLSN)
<4, 4>X,
=
(MLSN)<0,4>X,
IS_Sef =

526 :

M 1965

528 :

M 196

511 :

s%' :
327 ;

1950

% }26

196?

M 1968

531
s.g :
533

M 1970
M 1971
1972

1969

;
|
|

SGL_ERR =

IMLEE BIT ASSIGNMENTS

CRC_ERR =

enzéu ERR =

N
EEOL
1&5 (MLEE)<B,65%,
194
!

ssgg :

.
IMLE2 BIT ASSIGNMENTS

(MLE2)<0,6>%,

497 ;

B
504
505 :

mazgfic WRD =

1935

S00 ;

IMLE1 BIT ASSIGNMENTS

496 :

498 :

;
|

IMLDT BIT ASSIGNMENTS

CRC_A =

M 1931
M 19
19

m19

BLI.2 ()

ECC_DM =
(MLMRY <0, 1>%,

492 :
493 :
49% :

495 :

PA:<NEALE>AL

(MUMR)<1,1>X,

M 19
M 19
19

M 19

” 10PS=20 Blis -12 v2(212)

*|
|

1
i
|
|

(MLSN)<8.4>%,

'
|

.
*

eql 1%,
IS_NOT_SET =
eql 0X,
HI =

FlJLlSG[.indox.FGiCE.HIJ!.
.

ML_REGL. index,FORCE_LOJX,
IGNORE =

n._ness. index,DONT_CAREJX,
MLE2 MASK =

ML_REGL14,DONT_CAREJX,

'TEST IF BIT IS EQUAL 1
'TEST IF BIT IS EQUAL 0

'READS REGISTERS FORCED HI BITS FROM PERSONALITY TABLE
IREADS REGISTERS FORCED LO BITS FROM PERSONALITY TABLE

;

'READS, REGISTERS DONT_CARE BITS FROM PERSONALITY TABLE
'READS MLE2 DONT CARE MASK EITHER DATA DIAS OR ECC CIE REG

———————————

485 :
l.ag :

1:22

:
484 ;

SEQ 0041

‘

479 ;M4

25 :

“

SEQ MZY

ESREREEERREEEELEEEEREE §§§§§§§§§§§§§§§§é§§§33A~
e
o
i e
e

'<BLF/SYNONYM IS SET = EQC 1 * >

'ar/smamn 1Snor SET = EQL 0 + >
: DIAGNOSTIC DATA REGISTER MACROS

RD_LNG_WRD =
D1_TEMP
= .MLD1;

!READ DATA DIAG REGS INTO BIND LOCATIONS

DsTEMP
= .MLD2:

e o

NERATE MASK DATA PATTERN USING REGISTER FORCE LO, HI AND IGNORE
.JGNORE or ((not .LO) and (.HI or .TST PAT))!
=
CLR_MBUS
'!CLEAR MASS BUS RESTORE DRIVE NUMBER
CLR
= ONE; DRV nn = .ML_DUTX,

0000000

WRT_MASK =

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>8L 3ML4.BLI.2 (3)

!LOADS DATA DIAG REG WITH CONTENTS OF BIND LOCATIONS

e
e

'WT LOOP DIRING MASS BUS TRANSFER

ZXZXX

XEEXEXEX

EEE=:

53-0«-1938 09:24:31
-Dec=1980
09:21:22

urftil .DRY;X;

A
W

w\W

MACRO M1113 22-DEC-80 12:16 PAGE 25

H, ¥

vy PRI
28 33 8 38 i

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

g BIND DECLARATIONS
bind

g ERROR DATA MAPPING FORMATS
FMT_1 = uplit (Zasciz'SAEXPECTED: Z06XIA

READ: Z06ININ'),

F% = wplit (Zasciz'TAGOOD DATA: Z06XA
FMTTM3

= uplit (Zasciz'TADRIVE SN: TOGININ')

FMT % = uplit (Zasciz'IABIT IN

FMTTMS = wplit (Zasciz®IAGOOD

DATA:

SO6INEN').

F
S
=
- wplit
Bt (Rasciz
(Zasciz'SAFA]
e I AT:
e ‘)
mr's = uplit (Zasciz’TAREPLACE ARR MOD:

FMTTM9

= wli; (lucifwu

AT DSA:

FMT-10 = wplit (Zasciz*TABIT<15:10>:
FMT11 = wplit (Zasciz’SAFAILING IIEG m:
Fm'lg = wplit (!aciz'wnknfi

BAD DATA: Z06IA

XOR: YO6ININ')

BAD NIB DATA: Z02%IA

1f<9:0>: YB10ININ')
5@4
")

= wplit (Zasciz® TAOFF

SET% m NIB : %= ID2 ININ

FMT-17

= uplit (Zasciz'INXADIAGNOSING UNIT ZOTININ'),

FMTTM1S = wplit (Zasciz'TANIBBLES XF
m’19 = wplit (Zasciz'IAFAILING REG:

XO4ININ')

'>.

FMTTM13

FMT_14 = wplit (Zasciz'IAUROTE:

NIB POS:

)

me ERROR : :ns
DATA: zosu ém DATA: ZOGININ'),

>~-e.MsD~O-~eaePn
ls~-l‘v-~.‘.o.\l‘o.“m“-.‘li‘“l0"8{oi~'.aizz’=.o|-~~PggglgoSylgol=S
zVlLwwozLFoN-~<-{l{L"TMOILoNWONeofec~mtopbm=tpomig!milmaomgm“tmte5rN\S2eldmSeg.dlge.glvAlegRLG)APg=NSSVln“-T—L)zOLmlVz0LVl.L.zV'zL0Vz!L
b-t =e e -e-—

999889889
bB2)S &i§)DGotGst 8snPmdGetbe

£
59
595
596
:
597
S%

( l\l\“(l\l\t t t t t t t

5Gm\:eS)m8SnmoeA-RmnbmLyR®miLnmR&MmRwRmsRmD>RmRAsmsAmINwOmw¢mAmnSSR&AbnabAnaPtAmatmReRAEwEm=ERmmEm3m-Em8smwmnmm
MISCELLANEOUS CODING SECTION

CZMABO ML=11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 56

;9% .:llo

WTMO

MESSAGE MAPPING FORMATS

NEN oSg

[%)

(
(
¢
(
(
(
(
(
(

t(
t(
t(
t(
t(
t(
t(
t (
t(
t(
t(

DIAQOSTICWY

=®"-]

n»<P1-o~0e= nLo—S~Y -o~°N—=

ad[4eald

SEQ 0043|

53283221338 83:5?:35

-SAk

PA: <NEALE

TOPS-20 BLiss=16 v2(212)
4.8LI.2 (3)

Rb=Sm/-\&alRBL«)NLLoeY4R~>SSB.~NEY\.w2l.8u\l\2-l8TS\l%I\lLSS\N)lwuIoo\=IySTQ8o8\lCOEb5=~Re8*TCQ2E,WRnS-.Z-5~I3~VNu-SRT3o«Z“GLm\EIl-.m\-ISEmEm-wmf\oicIm\ulEw"l\muIomwm>sIoc0m\Ql3bVb)u3m~=2w2-“2-2l2%2=2l--~2so2v2LV]oVTVgIVTIV\lLV\l\l~.3\I.-m
$dbS9dbSpmSopdm98)DSBStpm9bSopmbog9D)Sg9SBogm&)S9)BStpm9S4opeB)dS9)BSgS4ogm9$-oAdP~boSlpe9)$gDBStp9BGeopdBoS9BbSedpdGBge9)BSpB)0S9)GbpbetSd9BdSp=BS9Bogd)BS0p9dnSudpbm)BS9)&S)8SDp9~AogBotS90SegoBS9B)S0y8)oG9oBS3BbdSBSoP9SBybotS8boS9~eSBy8Boegld)Po8\eBPlt

TOz--Rz-~lTz-LzVBEzLlTzoLz»®(PzeVVo1LzV®LoTloP-RzVoT~0LozO~LzVo-Ll®zLNLl-LzVLz"V°Ll"zV"LLVlTML""Yl»U""z""zV"LL&lOL®zLV-LVzLV-LLloeLyVzLMISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

MACRO M1113

I11T-—1 BSL2RWANAT9RAOR3SIARA

22-DEC-80 12:16

mmmumwwnmwmwmmwummummwmmwmumwmmmwmmwmw SO0.§gGBs-pey7am((((((“‘((‘(((‘(‘((‘((((((‘(((s

PAGE 57

—~
.

SEQ 0044

SS-Dcc-WBO 09:54:31
-Dec~-1980 09:21:22

PA : SNEALE>AL

TOPS=20 Bliss=16 v2(212)
4.BLI.2 (3)

THEE=-»m4mOu‘mWo~Qum@uo-~mJwomeo-~m33os34-$-r(37]u.8t3—-~o\8IO\3Ql4wO3\-:\IO33
bMNgdeNSdbgNtgbNSoodeNSodyRbgNeS2NVN~peLmOeNSLSANgSN]-.S~SmbNBoSSNeV~SL(7P]NVST°8DS.&pS@mbSgm$gSdoTBSyD~SNbpbgMo-bSNp.m=ON---Oz&~LWVSLz=bV9S2Oyz8=V0~®P524=3Sg&be$eNdsye8N&eNb0t$cNod\&NbSol&t\Ngbenlbeor&”Ne-~ .—

s3Nroe9bNlr9NeNylUp BBilIlyIuliNl[u lAfE"Safo"yEyui,v"yB©S34&o NuY9EsFy-E9FE0PwNE-NuF5RNNuNE5wNN,cNE..g.

A2SS2SS2SRS2a0eTdS2)12)Pl2.2ot"3Yod"62Oe52So"“2b6Se"R=7o®-2o)8®S2Re®9coRn®d%2aed®)PR2~S-RS2SS2mRO-RS2-G-~2RM*2)OO»T2D)»B2)—®<”2)"2Q)-2Ret2NRP'2AP2gSm2S2e2VP2BS2Pl2mTPO222B
MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

757

MACRO M1113 22-DEC-80 12:16 PAGE 28

.llo

REGISTERS

Bbe$Got2db23cdn4d3anas393372350 u\ln[=-Noe).”u‘.-f—NS~%8elv

SEQ 0045

$8DecT1080 89:51:22

-w

—~ -

0)'

PA: <NEALE>BL

TOPS-20 Bl iss=16 v2(212)
4.BLI.2 (3)

CZMLABO ML-11 LOGIC TEST

22-DEC-80 12:16

H &
PAGE 59

SEQ 0046

33Dec-1980 09:21:22

TOPS=20 Bl iss=16 v2(212)
4.BLI.2 (3)

PA: <NEALP>

o&soBER.86<gmLs'SeRw§ogP0RCSERbLocRbETPEEiTbRFreNLibFbReFoLlEeSeEdEbEiYoEaobEdioyYd

ONN
N

aAoL2Il.tl.v9l.=-(omwM=1LnA.gSw.kwN.n-B2GTEV.OGV.EOGLT.VGL.TGL.LIGLT.LGV.LIGL.TLGV.ILGL.GTneIGoutGnT—

BRERAERRBERTSE RERICENERBBURoGA8

MISCELLANEOUS CODING SECTION

MACRO M1113

LeD

8 3& itS i b¢
2

2204
2205
2206
2207
2208
2209
2210
2211
221%
221
2214
2215
2216

o2g

1
')

BIT SET DURING TRANSFER'),

c12°TROUBLE SHOOT LOOP ERRORS')
'RH CONTROLLER ERRORS')

2'DRIVE HUNG AFTER MASS BUS TRANSFER').

afl

TION

MACRO M1113 22-DEC-80 12:16 PAGE &)

SEQ 0047

S ~Dec-1980 09:54:31

-Dec-1980 09:21:22

AINIAINIAININININININY
AINIAININININIAINININD
N
- b d
~
—=S0m~

T R T A
T

T S

routine LOAD_STACK (STK_PTR, NIB_PTR)
begin

TOPS-20 Bl iss=16 v2(212)
PA:<NEALEX3L3ML4.BLI.2 (5)

: novalue =

Tee
'

i
!

)

i
B

FUNCTIONAL DESCRIPTION:

LOAD STACK T
FOUND IN THE STRUCTURE °NIB_SAVE'

AND STORES IT INTO THE STRUCTURE

*STACK® REWRITING ANY BAD NIBBLE
a;:cx' LOCATIONS WITH GOOM NIBBLE

T R T R

FORMAL PARAMETERS:
STK_PTR
i
POINTS TO PRESENT DEPTH OF THE
i
*STACK® WHERE PRESENT GOOD NIBBLE
i
DATA IS TO BE STORED.
4

R
R

i
i

;

]

i
i

]

I A

!
!

VECTOR OF 198 BYTE LOCATIONS WHERE
GOOD NIBBLE DATA IS STORED
DURING DIAGNOSTIC MODE READS,

AFTER

BAD NIBBLE LOCATIONS HAVE BEEN
STRIPPED AWAY.

i
i
i
i
|

STORES AWAY

A BAD NIBBLE OFF SET

COUNT FOR EACH NIBBLE POSITION

NIB_SAVE

BLOCK OF 3 WORDS TO STORE THE
DATA FOUND IN MLD1, -MLD2 AND

MLE2 AFTER A DIAGNOSTIC MODE READ.

IMPLICIT OUTPUTS:
*STACK' LOADED WITH GOOD NIBBLE
DATA

i
i COMPLETETION CODES:
i
i SIDE EFFECTS:
i
i

IMPLICIT INPUTS:
STACK

i STK_OFF
i
i
vector of 9 byte LOCATIONS WHICH

A A

BRege3 33308t el

A OA

A
A

R T A

i
i NIB_PTR
i
POINTS TO CURRENT NIBBLE POSITION BEING
i
MANIPULATED.

R A

b e o o $o e b

NOWVS WO

A A

TET

SSRSRoRoR 833

MISCELLANEOUS C

CZMABO ML-11 L

case .NIB_PTR from 0 to 9 of

!SELECT NIBBLE DATA TO BE LOADED INTO THE STACK

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

855 :ML4
82 :

858 :

set

860
;

ol :

ggi :
864 :

3
75

861 :

865 :

868 :

2279

g;‘o :

2281

ggg :

!LOAD NIBBLE DATA 0 INTD SELECTED STACK LOCATION

€13 :

stack [(.STK_PTR = (.STK_OFF C.NIB_PTR1))] = .NIB_SAVE [NIB 1);

g;g :

2285

'LOAD NIBBLE DATA 1 INTD SELECTED STACK LOCATION

€2 :

;

TOPS=20 Bl iss=16 V2(212)
PA:<NEALEBLIMLSL.BLI.2 (5)

stack [(.STK_PTR = (.STK_OFF [.NIB_PTR1))] = .NIB_SAVE [NIB 0];

ag :
873

SEQ 0048

SZ""‘"’” 83:;4:31
-Dec=1980
09:21:22

:
859

869 :

J_ 4
PAGE 61

stack [(.STK_PTR - (.STK_OFF [.NIB_PTRJ))J = _NIB_SAVE [NIB 2];

OAD NIBBLE DATA 2 INTD SELECTED STACK LOCATION

3] :

stack [(.STK_PTR = (.STK_OFF [.NIB_PTR]))] = .NIB_SAVE [NIB_3];

!LOAD NIBBLE DATA 3 INTD SELECTED STACK LOCATION

876 :

gg;

3773 :
g?
:
ggzs :

z%
522312
5293

'LOAD NIBBLE DATA 4 INTD SELECTED STACK LOCATION
- stack C(.STK PTR = (.STK OFF L. NIB_mumNIBBLE
.NIB_SAVE
[NIB_SJ
DATA 5 INTD SELECTED STACK LOCATION

6l :

877 :

884 :

885 :

2296

887 :

2298

886 ;

4] :

stack [(.STK_PTR = (.STK_OFF C[.NIB_PTR1))] = .NIB_SAVE [NIB_ 4);

s .c

g&o :

2301

avg :

5338:.

8l :

89 :

5308
2309

307

93 :

2310
2311
2312

tes;

893

33"5 :

897 :
898 :

899 ;
900 :
901 :

905
906
907

stack [(.STK_PTR = (.STK_OFF [.NIB_mum = .NIB_SAVE [NIB

NIBBLE DATA 7 muSELECTED STACK LOCATION

stack [(.STK_PTR - (.STK_OFF [.NIB_PTR1))] = .NIB SAVE [N

53395.6

NIBBLE DATA 6 INTD SELECTED STACK LOCATION

€73 :

889

stack [(.STK_PTR = (.STK_OFF [.NIBPTRJ))J = .NIB_SAVE [NIB 6);

2297

333

888

end;

'LOAD NIBBLE DATA 8 mosél.ecrso STACK LOCATION

stack [(.STK_PTR - (.STK_OFF [.NIB_mum = .NIB_SAVE [NIB9
OAD NIBBLE DATA 9 INTD sén.ecren STACK LOCATION

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

909
gg

045
132
1&
1
045
045
040
152
1
045

101
1
124
0
1
101
040- 105
0
1

185 P.AAA:
105
105
040
066
040
040
101
040
06

116
045
117
040

000
101
117
104

000
107 P.AAB:
104
101

040
066
040

045
045
040

045

124

G5
g
931 004
ggoos

040
104

934
935 004
ggoos
004
938 004
939 004
940 004
9%1
51
&gool.s‘
004357
944 004
945 004
9:.9&
9%
9%8
&
99
950
951
954
955
3559

11
14

958
959
mm

o 004447
ggioousz

101

or;
1
101
040
117
040
osg
0%
045
15§
1
116
045
045
116
045
m
m
10;
1

040
006
045
045
117
040
102

(1)01
13

116

101

102
040
124

040
066
040
040
12;
04
045
116
101
M
040
0
1
116
000
101
124
1
15
1

04%
045
116
101
117
116
040

33
062

045

or;

1
101
040
101

045
045
040
130
or;
1
116
000
104 P.AAC:
123
12
040
066
045
‘1,25

P.AAD:

040
1

1
116
oog
107 P.AAE:
104
111
104

52}
045

SEQ 0049

-Dec=1980 09:24:31
~Dec-1980 09:21:22

.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII
LASCI]
LASCII
LASCII

/%AE/
/XPE/
/CTE/
/D: /
/%306/
/A /
7
7
/REA/
/D: /
7306/

JASCII
.ASCII
LASCII
LASCII

/N/<00><00>
/3AG/
700D/
7 DA/

ASCII

LASCII

LASCII
LASCII
ASCII

101
104

K_&

PAGE 62

:MLG
:

91;
Nn
N4
NS
919
9
98
919

?si

22-DEC-80 12:16

73IN%/

LASCII
LASCII

ASCII
LASCII
ASCII
ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCI]
LASCII
LASCII

/7: ¥/
706%/
/A 7
7 W/
/0R:/
7 %0/
763N/
7IN/<00>
/2AD/
/RIV/
/E S/
/N: /
/%06/
/73IN%/
/N/<00>
/3M8/
71T
/
ZIN
/

LASCII
LASCII

|
'

/TA:/

7 %0/
763A/
7
7
7 B/
/D D/

ASCII

TOPS
PA:<

/ATA/

;
.
|
r

!
,
,
I

/ERR/
/OR:/

LASCII 7 %0/
LASCII 763N/
LASCII /73IN/<00>
.ASCII /%AG/
LASCII 7000/
LASCII 7/ NI/
LASCII /8 D/

fififl 5"%
LASCI1 /02%/

}

|
|

MACRO M1113 22-DEC-80 12:16 PAGE kS

SEQ 0050 |

RR3N38NSSR-N3NZNSSR35RIIZTaNIAT
L”SRLoee UINI1oTSNa 233 TLNISRII S23F3I3S5S3PEL.E
,,Am,m,,mm,m,nmmAm,“mmAm,m,wmmmmmmmhmmm,uet

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

TOPS

PA:{

eyeAsRLARSRA

N%7248O4=2n4INY74742840294N74749B46747lO49049494904O99479793999394

3BeRgeCEes LN8SIFE2SNO3RSrN8E2I-R5ERr3E8rSI7NRI

S ec-1980 3:51:22

soeSaLntlkdt

|
|

I
|

l
I
|

|
i

|
|

//u.mumwHU/wmwzuwuzuvm>/uwBB
mwmwmwmmmmmmmwmmmmwumwmwmwmwmwmmwmwmwmwmmmm

eTeTee6TTOTTTTUTTTTTPTPTPTPOTPTPPTPTeeTT
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

ER-SFPAIERN

MACRO M1113
22-DEC-B0 12:16

P.AMM:

PAGE 64

sMLG

or—Xeoo—l_—o3_lOolslLl-111%1cl.1lO.1l.l11‘1—1O1—“e1rer11clc1lc‘l1al11O1‘11311—_1r—1,‘1
B3a3o-g2wmmmmm«mmmwmwmhmmmmmmmz8%s

11111ggmgwmmg.}l.}lq}!l11111111
CZMLABO ML-11 LOGIC TEST
OUS CODING SECTION

1—ge='10111

MACRO M1113
22-DEC-80 12:16

N &
PAGE 65

JMLG

SEQ 0052

SaDect 88 33 33
PA:
<

TOPS

PSS—rerO0r~r=Orvor—e=OrO0~P—re
:

103
040

33338

O NO

BsRSNlSRaleltaBREce le Rtied:858528288u0:

-2e
B9R9gSR8gS9oLgK89g5N0gSBe09Io0R—N0g9I(I0oN—(S0oK9(N0No—(I0So9C(0CoE(0Ro9R(05oR(0-oe9(0oIB0lNT3(0IS(90oNI(30oIS90SY032B0T03NF0II03R0C0%NO01R90AK0N9N0RO0N9S0R9N0AI20S99NS2=0S2S=0?0Y04=0T2eR=09-S=0r4T=0o2R=A9h=091Og9e0MO0ORO
SZEICr

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 26

P.AAT:

114

040
040

[

-AAV:

sMLS

SEQ 0053

%-pec-1580 09:51:2
22
T
PA:

aaaQ.aaa*.
111 110
SRRREIERELBAL RSR /mn/mwmmammnm£%

TIRCIASBNMSGNNIARRTZMBRN3IAIRRNoBBV802NRAoTREeS3RO1N6TNSYIRN5I4En6NNZIEISCROSAoTN¥ENIEAIPAIESISRITOENIoeTSoS
MISCELLANE

CZMLABO ML-11 LOGIC IC TEST

111111111‘11111’111’111111111

Coo ING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE g?
5

SEQ 0054

sMLS

CIMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

1245

22-DEC-80 12:16

}

045

116

000

1
1251
1
1
1
1
1255
1
g
1
1
006076
1
1
1
1
1261
1
1
%111
1
114
1
006117
1
0061
1
%1
1267
1

04
124
045
112
04
126
04S
126
000
045
124
045
126
045
000
045
126
045

124
045
124
000
124
045
124
045
000
124
045
124
045
116

045
124
045
000
045
124
045
116

P.ABD:

045
124
045
124
000

P.ABF:

124
045
124
045
124
000
124
045
124
045
124
045

045
124
045
126
045
000
045
124

P.ABG:

1249

1
006131
1
%‘I
1270
1
1271 %1‘;
12;;
16
1273
006150
12764 &153
1275
156
15;9 006161

1
1

006164
%166

5174

1281
1
1
b

1
1

5177
6520
§

)06

X062

002

124
045
116
045
126
045
124
045
124

000
045
124

045

124
045
126
045
000
045
124
045

124

1
i
1

X
206
X

045
126
045

Y06

1% 06
1
06
1298
1299

045
124
045
124

11g

124

116

045

124

065

124

045
124
045
116

124
045
124
000

124
045
124

045
126
045

124
045
124

045
124
5

124

045

124
045
124
045

045
124
045
124

045

ogo

045

P.ABH:

126

000
122
04

P.ABE:

P.ABI:

124

ASCI1

/7¥N/<00>

.ASCII
LASCI1
LASCII
LASCII
.ASCII
ASCII
ASCII
LASCII
ASCII
_ASCII
LASCII
ASCII
ASCI1
LASCII
LASCII
.ASCII
LASCI1
LASCII

/XT%/
/7X1/
/7XTX%/
/N/<00><00>
/%XT%/
/7%1/
/%TX%/
/TW
<00><00>
/%T%/
/7X1/
/XT%/
/7X1/
/7EN/<00>
<00>
/3T%/
/7X1/
/7X3TX/

LASCII

LASCII
LASCII
LASCII
.ASCII
ASCII
LASCII
LASCII
LASCI1
LASCII

ASCII
.ASCII
ASCII

/TX1/
/XTX%/
/N/<00><00>
/%XTX%/
/7%1/
/XTX%/
/7X1/
/XT%/
/TW/

<00><00>
/%T%/
/7X1/

/%XT%/

/1X1/
/XT%/
/7X1/
/¥IN/<00>

ASCI1
LASCII

/7X1/
/XT%/

LASCI1I
LASCII
LASCII

/%T%/
/71X1/
/7XTX%/

LASCII
.ASCII

-ASCI1

.ASCII

LASCII

LASCII
LASCII
LASCII
LASCII

TOPS

PA:<

ASCI1
ASCII
ASCII
LASCII

.ASCII

P.ABK:

SEQ 0055 :

~Dec=1980 09:21:22

ASCII

P.ABJ:

g-bec-‘lm 09:24:31

D S
PAGE 68

<00>
/3TX%/

]
,
%

,
'

g
!

:
|

!
!
'
}

/7X1/

/N/<00><00>

/%T%/

/TX1/

/XT%/
/TX1/
/XTX/
/7%1/

1
x

CZMLABO ML-11 LOGIC TEST

§]3e8. .8§. B§ . §. .53 ° e . .§©%. “3%. s

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 59

:24:31
:21:22

55 Dec--o 83 33 NN

TOPS

IBgISN-5K8g%K2SNN29BRSNSNN&2-

—oeT=0P7¢ -e—=1gTo91 c-1_lOcqrlOQOq1rlv— Q[%oaGL.-R DRNwTmIRSN,En,

SEQ 0056

RS ARSI AR AR AR

2922922929292939939939999993993939%

O~BOO=—ONNING-Wo\1@-0%@“~—1@701MVsW0-MO\N1NMOZMNOMZWDNNeVBNFSTWNONwNI

PA:<

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

1 g
} 39

22-DEC-80 12:16

F S
PAGE 70

ML
3

SEQ 0057

5 -Dec=-1980 09:24:31
-Dec=-1980 09:21:22

TOPS
PA-

1 1%

040

126

P.ACC:

.ASCII

7 wv/

000

1
1
1

040
116
032
1

102

10
126

2)83

P.ACD:

.ASCII

/ FW/

&2’5

P.ACE:

122
000
105

115

P.ACF:

P.ACG:

105
040
125
040
124
040

000
115
123
104
101
103

000
102
000
101
oog
117

124

131

000

1
14
17

1
1
1

1
1

1
1
1
1
1
1
1
1

006541
006544
006547
l.oosssg
00655
8&552?

040
12
1
1

105
111

&ss%

116
116

1% 006574
1
006577
1%%
1
1384 006610
1385 006613

040
105
040
124
040
105

101
000
114
000
120
115

1387
1388
1389
1g

114
040
105
040

124
1§s

1
1

m
m

P.ACH:

P.ACI:
P.ACJ:

LASCII <00>
LASCII
.ASCII
LASCII

.ASCII 7/ RW
LASCII /R/<00><00>
.ASCII 7/ EX/

;
;

ASCII /E/<00><00>
.ASCII /7 mB/
LASCII /7US/<00>
.ASCII 7/ DA/
ASCII /TA/<00>
.ASCII 7 CoO/

|
|
1

LASCII
LASCII

LASCII

117 P.ACK:
000
102 P.ACL:
000
122 P.ACM:
101

.ASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII

131
11
000
111

000
101
000
116

105
000
127
110
125

116
000
111
000
126

125
000
120
115
117

116 P.ACR:
000
1
P.ACS:

122

P.ACT:

15;
1
000
122

105
103

P.ACU:

115
124
040
126
040
000
040
123
049
1
040
000
040
114
124
040

105

P.ACV:

1411 006;’54

105

000

1386

006616

006¢
0066

1
1
1
1
1396
1
%
1
1400
1401
128‘3’
1
14604
1405
uo;
140

1408

124

103

107

125

122

000

122

105

000

P.ACN:
P.ACO:

P.ACP:
P.ACQ:

/NC/<00>
7/ TR/
/E/<00><00>

/CES/
/SIv/

/NT1/
/NUI/

/TY/<00>

i
.

'
'

7E/<00><00>

/1/7<00><00>
/ PR/
7EMA/

a
:
:

LASCII /LY/<00>
.ASCII /7 IN/
LASCII /7E/<00><00>
.ASCII 7/ IN

|
|
|

LASCII

{ASCII

/CRE/

.ASCII
LASCII /7T7<00><00>
.ASCII 7/ w1/
LASCII /TH/<00>
.ASCII 7
uv/
LASCII
>
.ASCII / U/
LASCII 75/<00><00>
.ASCII / PR/
LASCII /70M/<00>
.ASCII 4082’
LASCII
.ASCII / SE/
LASCII /LEC/
LASCII /T/7<00>
.ASCII / RE/
ASCII

/6/<00><00>

LASCII /E/<00>

,
|
'

'
’

‘

487a82888&sslsl
2222N92e929292P9999e9939O33993O999S3939O939O233%3
TRgNNENNgEIADINSLNDXSLBEoDGAGDSLRAIe[SDOYAbSLDFIoOSDSOoNDEoSDIINLoSD]RLSoDAGmLgNND)eGDgAeSS)DDgIDeNgRDSDIPoDVeGSNDSebRNDSADLgDVeSNDGSRDE6LDNGNLDeOSD(eD)NDNbSIeNDTSDhVBoAYDoGNDAeBNDFeGBESNoIFBLVLLAeBYSSLNo)ESLNNLGoNIgeYG-gANeATDBTBCE0~TYyAgTTgTRe.egTT
=Te
mmmmmmwummummmmmmwmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

ie
'~ElE R B A A A b
061

MACRO M1113 22-DEC-80 12:16 PAGE 91
sMLG

3
a
¥
®
M—c-e=OOlr0cv aoW.A”»ow%m.‘.uh\.ad LOLULOLULLULVLULULOLOULULULOLLLULOLULVLULULOLULOLOLLLLLOLLOL Rm,TeIRuNwSm

350ec- 23 23

MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

SEQ 0058

3
:22
TOPS
PA:<

TO“wwao>xW>W—»MMo
3¥ < 23< Q] M2 2

nIR9—5O9r3a9r2—ta9n2re9aa2n9e—2~9Oao2r9Oa2Rr7RB9arR27—M9ra2RR92v9ORaT2re9vSa2G9—a2O9LraS2O4Rra2O4rRRa9O49rBaR4R9a49Te3Y9aR29e2S92ae9—2=a79S2-oo

.KBBo.ov).-©TK2k3E K3&

oMEoClNkLXYol5Xo3lRlBeSlWSLoNXoSl5o2lololo8l0el8elololPeRlNeSleleSlIeSloNleSlHRlIoWleSlWXelRXeTleSleYleloBlolo2l8el(ol
CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

sRTCRCRRRR

ok&

MACRO M1113
22-DEC-80 12:16
PAGE 72

O
Q
L
T
U
R
E
R
4
I
C
E
I8N3ESFRE-FSPoNg3B C8ZIR3=EZURI2°SLJZI-W3G8T=ZRN8GIEG25 Xav30S8343d82T9a7

123

PLRLATNMuy/>uTNY
L83Q.DRY%[ShQO.LLVINQS.YNQ.LISaONVISQ.OZISLSUNRQN.SY,Q.Q..re
I25&AN0T3I7N08AT5I%N0I8AN3O.0-w8sB5I4N8O3BI9N.8=BIBAR8aCCaI]A=SNIaS3TI3g VHIRSIEIR=EEgA-p2sskEB5E43=AA g
=

A&R« S&NARAANA RRPA RRRr¥oA TRR RA Bo3»
MISCELLANE

CZMLABO ML~ — 1

TPe=0 e=Tl
388338388888ANNMflmwficum e-=er0OrrrerOr

SRARERIES

C TEST
NG SECTION

105

g3%8g

—

MACRO M1113 22-DEC-80 12:16 PAGE 53
5

SEQ 0060

B30l
B34
22
PA:<

TOPS

aw[+]<N>b3 > > vy

S-Z.2;I0NKN-S-RSQRC.2ZOTESXN<-SNESA2<.M¢l¢<.lvivensalqlZaIlSNIY<-~NoMlolBolatdLKSE2odlotoLb-ltVolBqlIqlq8lqSk<sln3y

S A R eB
9% >mLY Tt NB

om-wImaNoImaISwbTnaoImCAmRIBamSIPamSYam-2mAonmRRI,NIN,RIRmRIN-RmOb,FNbmBR-&IBAwIu-mZAmgAXwAme,BrwAT,aaaQ m,wRmQ.*scs
SSS8SSS8s

.. .

MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE ’4

SEQ 0061

28Dec=1980 39:51:33
PA:<

TOPS

MACRO M1113 22-DEC-80 12:16 PAGE 55

RS=o«NSGAINNV&eLGRIDTCoNEaNGIPASa©TNS26YAIN~=o2RNEATI£oI8-4No8IANRITN¥NoTAR-=Nao8LA3U-SaRRNgIBIFaTL3EMRy®otSTAENR.@SAgR8waRRe

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

sMLG

S Dec1 g8 33

TOPS

PA:<

—==TTI=LeteileET2R———====—T<—e2R

a3&w/>W/w.wyA3./Mww.T8¢.8NA8PTP8N§LDN

VeT %fimhnflgmflgfluflfifixflg N“oeMAOIw~y S5XN8¥3MRNBASE8w%RSEY 22229229229232922923973933933939%3

seooo&%

88555555055555

114

MACRO M1113 22-DEC-80 12:16 PAGE 56

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

sMLG

SEQ 0063 |

S5 et g8 &2 33

T
PA:

£3:8.8.8.8.8.8.6.6.6.6.9.6.8.8

m,RMummymmRmmmmRmmWmuwLmnmwmuLNwmmmR,mWLmmLR,mwmyLmmwmmwMmmLmm,mBL wmmmwLnNmwenm,mRmTml

1oa1a1a1a‘1a1oooo1o1a1oo1a1o1o1a1a1o1a1a11¥[-—

NUT01=o-OSRNTEeRT £#12387878578787r87878278787487878r378"8y

-l

eA"s20y

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 97

1749
}

H, ¥

‘

1
1
1
1

1
1%8
1
1;2?
1
1;8
}766

1"
14
17

76t
1;8

1%
1

R3S
g

3 §§8§§g
1
17"’§ 8256
1774
1775
1;;9

n
12
1"

R
maeE

7
1;

1%
1

TMM
1%
1

M
104
105

1
101

040
m

063
040

066
000

1;2

azg

101

040
mm

125
040

R
&

}o}
12
1n

&
105

040

101

124
106

11
&g

A
067
067

000

000
1

112

126

135 1870

101

124

105

LASCII
LASCII1
+LASCIlI

P.AGR:

/ARR/

LASCII
LASCII

/AIL/

f\ssgf 53:75
/A F/

040

/7 MmO/

g
A
.ASCIll

LASCI1

/ORY/

ASCI1
LASCII
LASCII

/RAY/
/7 FN
/71LW/

LASCII

15
1g1
125

/
/s /7<00>

.ASCII

.ASCI1I
LASCII

1;2

1% 0%8
1%

P.AGQ:

S
153

/US /
/FAl/

A1 TEw
/70DUW/
LASCI1I /%

105
117

115

/7 AN/
/ILW
/RE /
/MOD/
/V.E/
7/
/761/<00>

LASCII

114

1798
1799
1800

152

LASCII
LASCII1

1
125
040

&gg

/NCH/
/RON/
/0US/

05
117
114

125
106

ASCII
LASCII
ASCI1
LASCI1
LASCII
LASCII
.ASEH

LASCI1

/7 AW/

/RE /

“AScl] /ugil
LASCII /

Ogg

P.AGS:

LASCII
LASCII
.ASCII

PA:

<00><00>

18 P SHT Jaw
11;
LASCII /0NO/

101
106
114

1796

LASCII
LASCI1
LASCII

09:21:22

/ASY/

10
1;2

1790

LASCII

.ASCII

18
n

}81
101

1;8
1

110
n
1

P.AGO:

101
125
040
104
105
063
000

}77773
0576
1%
1

1
n
1&

131

1
114
10;
n
114
067
061

0567
gg

SEQ 0064
-Dec=1980

040
m
12
1"
125
040
066

067
062
000

8%1

101

gs—o«qm g:%:fl

/57/<00>
ZINT/

LASCII /ATE/

S>NwSymROumSwUmRNzELwINwyNmB/L>u2/NNwu8mBRySuNywSmumNwmwNnSwy3Nmu5mWoSU/mT/S53
=Lg—7O—pvL=530wO,=L==SOgp=gO=L.—(.3<b¢8L§G==UL=SU=e3OBIgL=TMS=L=5Iaa:TBdML3BIL—TPM1gIL—FO'=2LTbM9—gIVILBTM—3rS=L9a:re.=rL=3br=L)r=35e=SL2(gr9U5—Gv_V—g_rU—9_5TLB—eV—DBOLO35aA. :G090L3e0B50L3eO3S50LO303L5SO03eLO35OLSO9UBL95)OV92oLB095LSL3—OBLeC35BLOe3gLr0L35OgOUr03gOLr305Y—eC
SBy£oyvGTg%SgimeOGSSBS(oB)SBgSGgPBGe Go)D)BBSOD)B"&)PS9og

1TyERSRMNR1’1’1N11‘11RO1S1NS‘11’111

RTM3eEeSO=TYRTGFNEUenFTEOEe&SSe7=RNEe78Oe5=E&eIDO~¥YO)=RTI=SAoIURT/IS-NNSINSe=SLTTSRe=ITBR3—NEISeNB8SAAEL—N—TYOeSN—TeRCS=5AK—S3e—RN—r—CT=2E4—3NS
ePA A

MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE ’8
5

SEQ 0065|

sMLG

CZMLABO ML-11 LOGIC TEST

RSN S

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 99

SEQ 0066

35 Dec =180 09:21:21
22

oes

T
PA:

DSRSSSABSTE

€. M E e b

Pe=TOM mZRNRN §S=eN

AATN W

sese

|
|

CZMLABO ML-11 LOGIC TEST

RISoToRoRooToToRoT0N00R0EE0R0FR00001e21ot0andL0e100083RS

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE SO

2-Dec-1980 09:

TOPS

PA:<

m m m m m m mmm mmm m m m m m m m m m m m m m m m m

OeT mmmmmmmmmmmmmmmmmmmmmmmommo

SEQ 0067

m53

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

sML4

}Efi

1975

260

100000

01326
01326
826
26
8.0€
013270
013271
013¢
0134
013274
013¢
0134
1

000
000
000
000
000
000
000
000
000
000
000
000
000

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE

0
0
0
0
0
0
0
0
0
0
0
0
go

000
000

BYTE
BYTE

0
0

BYTE
BYTE

0
0

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

0
0
0
0
0
0
0
0

1979

01 }g‘

0
0

000

BYTE

1997 013306
1998 013310
1999 013312

000110
177666
000001

2000 013314
2001 8} S

000
000

zzggg

53 9

000

2011
2015

01332
£330

ggg
140

$335

000

01331
2004 013320
2005 01332
2006 013322
2007
01332
%
32
32
2010
013326
201

4
S

189

£33¢
013333
01333

.BYTE
BYTE

199900

1995 0133C
1996 01330

BYTE

000
000

19% 013308

000
000
000
000
000
000
000
000
000
000
000

-100000

>
MORD
.

BYTE

BYTE
WORD

!
'

BYTE
BYTE
BYTE

BYTE

0
=37500

0
0
0

000
000

.BYTE
.BYTE

033
O133%0

000
000

000

TOPS

PA:<

53
33

3345

ss-btc-‘lm 09:21:22

110
=112
1

L
8-77500
.

000

SEQ 0068 |

‘WoRD 2400

013339
000
013340 100%

$34¢

~Dec-1980 09:24:31

000

013256
¥,

1980
1981
1
1
1
1985
1986
1987
1988
1989
1990
1991
}gg

1976
1
1

MACRC M1113 22-DEC-80 12:16 PAGE 31

BYTE

.BYTE

“BVTE
BE 9

|
'
:

|
|

CZMLABO ML-11 LOGIC

TES T

sMLG

=<
—
m

.BYTE

REM.TBL
:

5558

000
000
000
000
000
000
000

RRERRR

NOWVSUWN=ON

000
000
000
000
000
000
000
000
000
000
000
000
000
0000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000

&H§°°°°°°°°°°OOOOOOQQOOOOOOOOOOOOOOO g mdodelelelelslolelelelelelels]

;

2222222222222223232222232222232222222

BE3a
Noo AN IS GE OB L E RO SRR VLR S SE Ch R LA L L GH B AP AR IRTR

MISCELLANEOUS C ODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE SZ

)

SEQ 0069

2-Dec=-1980 09:24:31

2-Dec-1980 09:21:22

TOPS

PA:<
|

|
\

|
|

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

6
SEQ 0070

25-0«-1
22-Dec-1

a3 N :22
Moy
:24:

TOPS

PA:<

RR R RRR R

-NSNNRRARRSRNER

TN R

H, T

PAGE 83

S
B
R
A
2
N
A
Y
N
«
B
o
E
O
R
E
R
E
R
RRRNRRRRRRRRNARNARNRRRRR
DT.1

RH
RH

.BYTE

CZMLABO ML-11 LOGIC TESE

MISCELLANEOUS. CODING SECTION

40
41

ti 013576

& 0
45 01

214

2148

MACRO M1113 22-DEC-80 12:16 PAGE S‘
H, T
:

.BLkW
.BLKW

BIT15==

-100000

S0
S1

020000
010000

BIT13==
BIT12==

20000
10000

215
2154
2155
2156

002000
001000
000400
000200

1 Sg

040000

40000

BIT11==

4000

B1706==
BIT05==

BITO4==
BIT03==
BIT02==
BIT01==
B81T00==
BIT9==
BIT
BIT7==
BIT6==
BITS==
BIT4==

100
40
20
10
4
2
1
1000
400
200
100
40
20

BIT2==
BIT1==
BITO==
EF .START==

4
2
1
40

gfl

000140
000100
000040
000000
000004
000010
000020
000040
000100

EF . CONTINUE==
EF .NEW==
EF .PUR==
PRI07==
PRI06==
PRIOS==
104==
PRI03==
PRI02==
PRIO1==
PRI00==
EVi==
LOT==
ADR==
IDU==
ISR==

36
35
34
340
300
240
200
140
100
40
0
4
10
20
40
%

219

001000

PNT==

1000

2157
2158

004000

BIT14==

2159
2160
2161
218
21
2164
2165
2166
2167
2168
2169

000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020

2171
21 g
21
2174

000004
000002
000001
000040

2176
2177
2178
2179
2180
2181
gg

0000
000035
000034
M%
000.
m

2170

2175

2184
S}BS
86
2187
2188
g”
90

218§

000010

oooogz

000400

BIT10==
BIT09==
BIT
BIT07==

BIT3==

EF .RESTART==

TOPS
PA:<

1
1

100000

149

SEQ 0071

S -Dec=1980 09:24:31
-Dec-1980 09:21:22

RH.VEC: .BLKW 1

ML.LUN:
ML.DUT:

)

2000
1000
400
200

400

'
,

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

;ML

;

0045

FMT.6=

P.AAF

004562

FMT.5=

FMT.7=

2-Dec-1980 09:21:22

P.AAB
P.AAC
P.AAD

IXE==

P.AAE

P.AAG

221§
221
2214
2215
2216
2217
2278
22}8
22
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231

004610
0046644
004676
004750
005004
005034
005110
005150
005216
005
005342
005412
005462
005534
005606
005652
005722
005746
005764
006016

FMT.8=
FMT.9=
FMT.10=
FMT.11=
rm.1§f
FMT.13=
FMT.14=
FMT.15=
FMT.16=
FMT.17=
FMT.18=
FMT.19=
FMT.
FMT.21=
FMT. if
FMT.23=
FMT.24=
FMT.25=
FMT.26=
%.;g‘?

2234
2235
2236
2237
2238
2239
2240

006046
006062
006100
006120
006142
006166
-

FOR.FMT=
FIV.FMT=
SIX.FMT=
SEV.FMT=
EIG.FMT=
NIN.FMT=
TEN.FMT=

P.ABD
P.ABE
P.ABF
P.ABG
P.ABH
P.ABI
P.ABJ

o
2244
&

3
00631

ek
W.;
0. 5=

3
P.ABN
P.ABP

5549
2250

00¢365
006374

g’d

2247

mgz

THR.FMT=

ELV.FMT=

W.?

. 5=

WRD. 9=

SEQ 0072

2-Dec-1980 09:24:31

FMT. 2=
FMT.
FMT. 4=

0044

%510

H 6
PAGE 85

PR]==

CESEEEERER

3(7;

22-DEC-80 12:16

P.AAH
P.AAl
P.AAJ
P.AAK
P.AAL
P.AAM
P.AAN
P.AAD
P.AAP
P.AAQ
P.AAR
P.AAS
P.AAT
P.AAU
P.AAV
P.AAW
P.AAX
P.AAY
P.AAZ
:.g

P.ABC

P.ABK

P.ABQ

P-ABS

P.ABT

)

TOPS

PA:<
|

SRR ERE
22

2278
2279

2285
006514

006355

PYVPVOPVVVPOVPVVPVOOOOVODOOODYD

—

H&n

P.ACX

333

oY
LS8 Ll 4]

QREAECREeREs

V"fl'fl'fl“:““““
>
>e»
o
P

~N=<

..I'...).)
ala)

]

ous CODING SECTION

28888888888888888888888888838888888888888888888888388
W
2¢
¥B R X Ea A £ A k) WY e W
[0 AT & e A
AT

2281
~
n

%§§
74

%fi?

E35S
SEGF

N\fl

RN
P

ZMLABO ML-11 LOGI C TEST

MACRO M1113 22-DEC-80 12:16 PAGE ‘6
6

SEQ 0073

2-Dec-1980 09:
2-Dec-1980 09:

:22

: 3

PA:<

TOPS

N 8 8 & 8 5 8 S I D D D D I D I I I I D R D D D D R R N R R L L LA ‘
M

ONMTWONOT

H3P5EPHPREPRsHPREPEHPLERPHPRERPUPTPRBPRPTPSP3PPTtPgPTPRPP3P3P83P0PT

TRARAR T AR R RRR R
T
e

2uEBN
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

oS585o88oS

MACRO M1113
22-DEC-80 12:16
PAGE 87

SEQ 0074

2-Dec-1980 09:

TOPS
PA:<

5 IO Not d R
5 538284503 .
333

5555

22-DEC-80 12:16
PAGE 88

xgg £8

B M%

MISCELLANEOUS CODING SECTION

MACRO M1113

SEQ 0075 |

LY 88 33

010753

|st B P

o m00500000o o o o o o

——e RetRBAR—A_—— A—R=<,=——A—R——A—R.—A—ReA—_R—Re—ARe —R——-A.~_——RN&Sey
CZMLABO ML-11 LOGIC TEST
)

2memunmumu9uauRuolI_cRrgiRP0zRPL%CNNHE&T
¢¢ RR Ag

8“Re2&eR8&S|getT]geo%82e7s3eMm,meu.2um..Tms¢smm.mmSsT2.,mmuN2R2annantKmymM%Bos
g

u¥

m2&

&N%

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 90

SEQ 0077

sMLG

2300

(R2) ,R3

R1.R0
R3.RO

20—

N]B.SAVE+2,R3

i-lahn

DOO®

175024

b
[ e

15%:

' Ta) DOO®

128:

; Routine Size:

TOPS

HA:{

.SAVE+2,R3

118:

o
8:.'

175102

mggfi {3370 8“8
5 Sn TELDA
I R

108:

-Dec-1980
2-Dec-1980

119 words

; Maximum stack depth per invocation:

4 words

CZMLABO ML-11 LOGIC TEST
)| SCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 91

SEQ 0078

55—0«-1900 83:51:22
-Dec=1980

09:24:31

PA:

4.BL1.2 (&

TOPS=20 Bl iss=16 v2(212)

i FUNCTIONAL DESCRIPTION:
& REPEATEDLY CALLED SEQUENCE

LOADS A MASS BUS BLOCK TRANSFER,
IN DIAGNOSTIC MODE, AT THE GOOD
BLOCK ADRS.

O
R
e ————

!SET DATA DIAG MODE
!LOAD DSA REG WITH THE GOOD BLOCK ADRS
ILOAD BUS ADRS REG WITH THE 10 BLF ADRS

MLBA =

w = not 255:

iLOAD WORD COUNT REG WITH COMPLIMENT 256

fi%
152777 10 177104.""""""‘5?25
#10,aML .REG+120
4170 016777 1n7csug7° 177006
MOV
600D .BLK ,aML . REG+30
6176 012777 011600 176770
250412 01 77; 1776400 176752

MOV
:gvs/

#10.8UF
,aML .REG+20
s
@M .REG+10

; Routine Size:
13 words
; Maximum stack depth per invocation:

:
:
0 words

gggggg (TETRIAA A A A TR PR PR PR PR PR PR TR PR PRTR TR TR TR TR

—2

routine DAT_DM_XFER : novalue =

28IIJAAN

MISCE

=11
ouUs

3- &2

CZMLABO

TION

MACRO M1113 22-DEC-80 12:16 PAGE 32

SEQ 0079

$Bpecciges 88343

TWS-ZO Bliss-16 V2(212)
ALE>BLIMLS.BLI.2
(

routine STRIPPER (WRD_CNT, NIB_CNT) : novalue =
begin
es

i FLNCTIML DESCRIPTION:

TRIPPER RUNS IN DATA DIAG MODE AND STRIPS ouT

A VARIABLE NUMBER OF GOOD NIBBLES FROM THE
GOOD BLOCK AND STORES THEM INTO A CONTIGIOUS

Seege

STACK FOR SEQUENTIAL ACCESSING

ronw. PARAMETERS :
WRD_CNT

TELLS STRIPPER HOW MANY WORDS N THE GOOD

BLOCK TO READ OUT

BRRRRRRAC
RR
R RN

RRRR v
QRER VA

NIB_CNT

TELtS STRIPPER HOW HQNY NIBBLES TO
STRIP OUT OF EACH

IH’LICIT INPUTS :
ocal

STK_PTR;

!STACK POINTER

incr CNT from O to .NIB_CNT do

STK_OFF [.CNT] = ZEROES:

CLR_MBUS;
STK'PTR = =1;

!CLEAR OUT THE STACK OFFSETS

DATDMxrea ()
=
MLCST

!RESET THE STACK POINTER
!SET UP_A DATA XFER AT THE GOOD BLOO<
!DO A READ XFER

incr CNT from 0 to .WRD_CNT do

!LOAD THE STACK WITH ALL GOOD NIBBLE DATA

DELAY (OMEu§)

!ALLOW PROM DATA TO GET INTO THE MLP® REG

!GET THE PROM DATA
'CLOCK OUT THE DATA WORD
'READ DATA DIAG REGS INTO NIBBLE SAWF

incr NI?_PTR from 0 to .NIB_CNT do

gflPTR = .STK_PTR + 1;
n

!STRIP OUT X NUMBER OF NIBBLES
!INCREMENT THE STACK POINTER

if .PD_TEMP L.NIB_PTR] IS_SET
!SEE IF THIS A GOOD NIBBLE
then
STK_OFF C.NIB_PTR] = (.STK_OFF (N&PTRJ) + (.NIB_CNT + 1)

INCREMENT IT"S STACK OFFSET

*®L0AD_STACK (.STK_PTR, .NIB_PTR);

'ELSE LOAD THE NIBBLE IN THE STACK

CZMLABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SEC TION
|

MACRO M1113 22-DEC-80 12:16 PAGE §3

ec-1980 09:21:22

fl‘

553«:-1900 09:54:31

5389

S :

end;

014214

STRIPPER:

014214 004167 167676

9 8;

005746

2‘."51 fi

105061 012600

18:

2654 01
55 01

005201
104

2658 8:
2659
2660 01

016705 177324
;9; 1
1
‘ ogoow 176724

101

176742

v
2668
gw
&;?

701

000071
000001

176642

ONeR0s
147356 165572

48:

5$:

2681 014372 oo17°§

000020 176714

LSDLY

2337

MOV

20(SP) ,Ré4

: NIRB.CNT,*

2362

: *(CNT)

:: =, STK.PTR

2236

gnua

-($P)
g}

CLRB STK.OFF (R1)
INC
TM

R
R1.Ré

3%53

}fo @ML.REG+40

BISB

RS.aML.REG+40

MOV
JSR

26
767
26;3
68:
76
177034 176546 7$:
g 012
§1o1 ! 000001
014366 01
165524

R1,$SAVES

BIC
BICB

176

g} % mzm;
177%
7267
177656

2664 01
01

JSR
TST

16604 000020

PA:<NEALE>BLIML4.BLI.2 (7)

|
.GLOBL

265

TOPS-20 Bliss=16 v2(212)

CLR_MBUS:

SEQ 0080 |

n%fis
n
RS
#7.aML.REG+40

+ CNT

: CNT
: CNT,»

’

MOV

P;ifin.m.xren
#71 @M .REG

N
BEQ
CLR

Suwe
T
(SP)

« SSTMP1
255
: SSTMP

; SSTMP2

gsg

DEC

B8R
&'i"
MOV
%
MOV

”.R1

3
11:2‘
@ML.REG+230,PD. TEMP
fl;fi‘
$DLY.R

BISB #20,aML.REG+120

BEQ

%os

:
: =, SSTMP2

2
2

: SSTMPY

: CNT

:: =, $STMP2
:

*,$STMP1

237
373
2375

5374

MACRO M1113

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 94

SEQ 0081|

sMLG

22-9 ec=1980 oo:s&m

118:

128:

013120

177046

148
15

168:
176430
176412

§.

# 77770, (SP)

BISB

138:

NIRR

BIC

ADD

012600

(SP)
R2
9
R
=1
@ML.REG+170,D1.TEMP
a.aemzoo.os.rsm
aML.REG+160.E2.T
ag
15%
RS
R2.R1
R1
Rl
R1
#PD . TEMP,R1

BNE
CLR

012600

soasAN

CLR
DEC
BNE
DEC
BR
MOV
MOV
MOV
CLR
BR
INC
MOV
ASR
ASR
ASR
ADD
MOV
CLR
JSR
ADD
DEC

166444
000010

22Dec-1980 09:21:22

177770
000001

= =t

FRERRSPR

108:

A NSNS AR EE R EREREFEFEEERE PRI LT

2222228222228222222222222222222222228222822223222222

;

I
|
|

NIB.PTR
l'

: *(NIB.PTR),»

; *,*(NIB.PTR)

* STK.PTR,*

: NIB.PTR.*

(SP)+,(SP)+

i
2384

{

2387

1
7‘.‘emm

: NIB.PTR
: NIB.PTR,*

2378
,

: CNT
* CNT,WRD.CNT

23N

#40,@ML.REG+40

2391

BISB

RS.aML.REG+40

RTS

: STK.PTR

.
|
,
;

STK.OFF
(R2) ,R1

TST

R4 R1

Bit

BICB

: NIB.PTR
: NIB.PTR,*

138
R1

BISB

!
|
|
|
|

; SSTMP2

M ,-(sP}
-($P)
PC,BLSGT2
70.sP
RO

R1.
RO
RO,STK.OFF (R2)
14§
RS,=(SP)
R2.-(SP)
PC.LOAD. STACK

: SSTMP
: SSTMPI

<
e

MOV
INC
MOVB
BR
MOV
MOV
JSR
P
INC
v 2
BLE
INC
g!s'

TOPS

PA:<

#7.aML.REG+40

(SP)+

; Routine Size:
127 word s
; Maximum stack depth per invocation:

11 words

2337

‘

|
|

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODI NG SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 55

JMLG

|
'

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F 7
PAGE 96

769 M4

SEQ 0083
s -Dec-1980 09:24:31
-Dec-1980 09:21:22

TOPS-20 Bliss=16 v2(212)
PA:<NEALEXRL3ML4.BLI.2 (8

routine CAL_CRC : novalue =
begin
!00

! FUNCTIONAL DESCRIPTION:

CALCULA

ODE FOR THE GOOD BLOCKS

NIBBLES) BY STRIPPING
OUT GOOD NIBBL
AND MODULO 2 ADDING EACH
BITS WEIGHT RESULTING IN A_CAL.B_ZAL.P_CAL.

IPLICITJ{’UTS

LOCATION WHERE CALCULATED
G&.BAL TM
CRC CODES ARE STORED AND EXAMINED FROM

REM_TBL

TABCE CONTAINING PRECALCULATED BIT POSITION

WEIGHTS USED IN THE MODULO 2 CALCULATION OF THE
CRC CODE

local
2776

arr?

CHANNEL
,
STK_PTR,

NIB"SAV
: bitvector [4],
ALOG,

X INTO REMAINDER TABLE
‘IDEX INTO REMAINDER TABLE

STRIFPER (12, 9);

!STRIP OUT ALL 10 NIBBLE FROM 13 ARRAY WORDS

inchL?G from 0 to S do

!PLOG POINTS TO ONE CRC GROUP '6 WORDS'

STK_PTR

. 2787

!CHANNEL POINTS TO THE BITS IN A WORD
!STACK _POINTER
'NI&E SAVE LOCATION

= ~1;
n

!RESET STACK POINTER

L =-1;

!RESET CHANNEL FOR EACH WORD

incr NI? CNT from 0 to 8 do

!READ DATA NIBBLE 0-8 AND CALCWATE CRC

NIB_SAV = .stack L. STKPTR];

STK_PTR = .STK_PTR + 1;

! INCREMENT THE STACK POINTER
!LOAD NIV_SAV WITH A STACK NIBBLE

incr BI}JST from 0 to 3 do

!TEST THE BIT FOR BEING SET

L = .CHANNEL + 1;

if .NIBSAV [.BIT_TST]) IS_SET
then

!CHANNEL POINTS TO THIS BIT

!SEE IF THIS BIT IS SET

NBGH .PLOG + .CHANNEL.

!IF SET THEN MOD 2 ADD THE REMAINDER
!CALCULATE THE AL
!CALCULATE THE l“

ilg
R 0862 &,

'REDUCE ALOG UNTIL < 64

BLOG = .PLOG + .CHANNEL*2;

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 87

SEQ 0084
ss-ooc-wao
-Dec-1980

2808 :
:

&47
448

812 3
281§

3
4S

gt‘ns 3
17 ;

5455
456

10 ;

while .BLOG 8:36
BLOG = .
-

449

2814 ;
2815 ;

P_CAL = (.P_CAL) xor

2818 ;
2819 ;
2820 :
2821 ;

% 8}
4

004167
1
0127646
012746

0046767
012766

STK_PTR

167300
000012
000014
11

1
1

2840 a
05068 (1!”012
2841 O‘I%
000006
% 01

000006

2844

014

2848
2849

01471
01671

01261;
00001

el 270‘
24 i

=1
SS

000010
000014

&
A

014

014742
2858 014746

= .STK_PTR + 1;

CAL.CRC:JSR
SUB
MOV
MOV
JSR
000006
MOV
CLR
000010 18:
MOV
CLR
2s:
INC
MOV
000014
MOVB
CLRB
CLR
3s:
INC
MOV
ASR
ASR

012746

[.PLOG));

[.AL0OG)):
[.BLOG)):

'MOD 2 P_CAL WITH REM_TBL

iMOD 2 A_CAL WITH REM_TBL
iMOD 2 B_CAL WITH REM_TBL

end;

563

2828
%014612
014616
%’0 o
S 01

(.REM_TBL

end;

2457
2458
2459
2460

5855

TOPS=20 BlLiss=16 V2(212)
PA:<NEALEXRL3ML4.BLI.2 (8)

'REDUCE BLOG UNTIL <64

63;

A_CAL = (.A_CAL) xor (.REM_TBL
265& = (.BCCAL) xor (.REM_TBL

S
ATA

:26:31
09:21:22

177770

000001

ASR
MOV
ADD
ADD
MOV
MOV
BIC
MOV
CLR

ISKIP OVER THE CRC NIB NT THE STACK

R1,$SAVES
#2,5P
#4.=(SP)
#11,-(SP)
PC.STRIPPER
#-1,6(5P)
4(SP)
#-1,10(SP)
12(5P)
6(SP)
6(SP) RS
STACK(RS),14(SP)
15(SP)
R3
10(SP)
R3.RS
RS
RS

RS
#14,Ré
SP.R4
R4.RS
g.-(sm
-(SP)
nr7770, (SP)
#1,-(SP)
-($P)

;

2395

;

2423
|
|

; *,STK.PTR
: PLOG
: =, CHANNEL
: NIB.CNT
: STK.PTR
: STK.PTR,*
: = NIB.SAV
: NiB.SAV
: BIT.TST
* CHANNEL
: BIT.TST,*

2624
2
2
24
24

2435
24
24

|
i

l
: NIB.SAV,*
; BIT.TST,»

wvm
%]

§P

[

MACRO M1113

22-DEC-80 12:16

PAGE 98

7
SEQ 0085

SP) ,R1

2642

(SP) .RS

2643

P dv N b

(sPS ,R1

SP) ,RS

R1,

#77 .R1
43
R2 477
6$

#77 .R2

58
RS
& (SP) ,R4

:?Jfi (R4) RS

bug2 >>23 353=

~(SP)
_(SP)

: *(ALOG)
,*

: EER

.TBL(R1) ,RS

R2) RS

*(BLOG) ,*

BIT.TST
BIT.TST,»
NIB.CNT
NIB.CNT,

STK.PTR
PLOG
*
PLOG,

000005

BLSGT2

323>

000010

RTS
; Routine Size:

TOPS
PA:<

#10,sp

3 — SO
USUBERS
<

et 2 b%
G ERamonee % -t

NIFRREENEFERNS
o

R
e
e
e
B

=1980 09:24:31

$5De =1980 09:21:22

#3785\
ERRRE BRKERNs e
e Y

AWM AWMABZWWWAMWAZWWWA
VI
wwn

. .‘. .

EEREE L EREREEE R

L LT

2288228223332 23232332323233223823332333223332323232232322

AT AN UM

sMLG

ASAAT
AT A

T
ECTION

128 words

; Maximum stack depth per invocation:

17 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

g;
8%

MACRO M1113 22-DEC-80 12:16 PAGE ‘9

7
;

SEQ 0086

I
|

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

J 7
PAGE 100

ss-m-mo :24:31
-Dec=1980
09:21:22

L18%81&%

i FWCUM DESCRIPTION:

'ERROR CHECK CRC' COMPARES HARDWARE GENERATED CRC

CODES TO SOFTWARE CALCULATED CRC CODE FOR ONE
CRC GROUP AND RETURNS A ONE ON DETECTION OF ERRORS
IMPLICIT INPUTS:

P CAL.ASCAL.B CAL

GCOBAL

STORAGE LOCATIONS WHERE CALCULATED

CRC CODES ARE STORED AND EXAMINED FROM

P_GEN,A_GEN.B_GEN

GLOBAL STROAGE LOCATIONS WHERE HARDWARE GENERATED
CRC CODES ARE STORED AND EXAMINED FROM

local

POS,
TEMP;

'VARIABLE FOR FIELD SELECTOR
i TEMPORARY STORAGE LOCATION

POS = -1;

'RESET THE POS

incr sn{:_rm from 9 to 59 by 10 do

'CONVERT VERTICAL STACK CRC TO HORI ZONTAL REPRESENTATION

TEMP = .stack l: STK_PTR;
1;

! INCREMENT POS

(P_GEN)<.POS, 1> = .TEMP<O, 1>;

(A"GEN)<.POS. 1> = ot TEMP<I. 1>;

i CONVERT 1ST BIT

i CONVERT

= POS +

:gacenx.POS. 1> = not .TEMP<2. 1>:

iREAD CRC NIB FROM THE STACK
iCONVERT

BIT

36D BIT

if (.P_GEN neq .P_CAL) or (.A_GEN neq .A_CAL) or (.B_GEN neq .B_CAL) then return ONE else return 2ERO;
!COMPARE GENERATED CRC CODE TO CALCULATED CRC CODE

:
: *,POS
: ;g"‘"‘"

489

: TEMP

5492

c—————————————

R1,$SAVE3
#-1.R1
0}1-R2

005003

ERR.CHK.CRC :
JSR
MOV
5
Ingcv

end;

5
004167 1
5216 012701 1
gg 1 gg 000011

5530

TOPS-20 Bliss=16 v2(212)
PA: <NEALE
ML4.BLI.2 (9)

routine ERR_CHK_CRC =
begin

S
s

MG
:

SEQ 0087

K 7
PAGE 101

SEQ 0088

95
:
95
9
9
95

2s
-

0 3}
175552

5$:

% :

BIT

#4,R3

; «,TEMP

fiz'sp

: «,STK.PTR

BLE

BEQ
INC
coM
JSR

48:

2s
(SP)
(SP)
PC.BL
#8.GEN, (SP)

175530

S
9

BEQ
INC
CoM
JSR
MOV

P
BNE

175536

BLSPU2
#A.GEN, (SP)
R1,-(SP)
#.=(SP)
-(SP)

MOV
MOV
CLR

3005

JSR
MOV
MOV
MOV
CLR
BIT

'
:
:

STACK(R2) ,R3
#P.GEN, - (SP)
R1.=(SP)
#1.,-(SP)
-(SP)

BIC

27¢

BISB
MOV
MOV
MOV
MOV

6%:

BEQ
MOV
B8R

77776, (SP)

TEMP,»

: POS,*

#2.R3

: ~, TEMWP

R1,=(SP)
#.-(SP)
-(SP)

POS,
*

3
(SP)
(SP)
PC BLSPU2

: STK.PTR,»

P.GEN,P.CAL

A.GEN,A.
CAL

B8.GEN.B.CAL
$
”.R1

CLR

RTS

MOV

; *(STK.PTR) ,TEMP

O
¥
GRE
*:

TOPS

PAqu

ARoial
B =S

-Dec=1980 09:24:31
-Dec=1980 09:21:22

JMLG

22-DEC-80 12:16

MISCELLANEOUS CODING SECTION

MACRO M1113

- ————

CZMLABO ML-11 LOGIC TEST

R1.RO

; Routine Size:
71 words
; Maximum stack depth per invocation:

2465
2464
14 words

s\S—
/
ST ENN————

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

Ss-m-wao :26:31
~Dec=1980 09:21:22

begin

39 ;
3

144

i mccnm DESCRIPTION:

:
:

S :

i
}?

1§
}‘

‘FIND COMPLIMENT®

i
i
:

8ITS.

A ONE IS RETURNED IF THE INDEXED BIT IS

| FORMAL PARAMETERS:

BITS_XFERED

:
:
S :

18
19
gg

|
|
g

IN THE DRIVE AND FROM THIS THE
WORD AND BIT INDEX INTO THE
10_BUF CAN BE CALCULATED

REPRESENTS THE BIT BEING TESTED

%‘E

Ségg : IMPLICIT INPUTS:

3060 :

525

local

s§3

COMP_WRD= .BITS_XFERED/16;

524

3061 :
% :
:

26
2527
2528

3066 3067 :
% :

31
g
534.

COMPTMBIT = .BITS
XFERED mod 16;
aur SAV = .10_BUF
[.COMP_WRDJ;
0_BUF [.COMP"WRD] = ZERDES:

if .BUF_SAV [.COMP_BIT] IS_NOT_SET then return ZERO else return ONE:

2538

end;

30;10

gg
:
so" :

2537

COMP_WRD,
CoMPBIT.
BUF_SAV: bitvector [16];

015430 004167 166410
3}5436
746
5436 01
000012
015442

012746

000020

015446 004767 166300

——

- —

7 015452 010001

cmxmreo BIT IS BY DZF A ONE

NOT SET

1 015430

———

BIT IS CALLED BY THE

SYNDROME oecoos resrs AND INDEXES INTO
THE xo,aur
FOR COMPLIMENTED

51 :

g :

TOPS=20 BlLiss=16 V2(212)
PA:<NEALE
4.BLI.2 (10)

routine FIND_COMP_BIT (BITS_XFERED) =

3065 :

ML
S :

3059 :

——

MACRO M1113 22-DEC-80 12:16 PAGE %02

IWORD WHERE COMPLINEMT BIT IS LOCATED
IBIT THAT IS COMPLINEMTED
iISTORES THE WORD IN WHICH THE BIT IS COMPLIMENTED

ICALCULATE THE COMP WORD

iCALCULATE THE COMP BIT
iLOAD THE COMP WORD INTO BUF_SAY
iZERO THE COMP WORD

'FIND COMPLIMENTED BIT AND RETURN ERROR STATUS

FIND.COMP.BIT:

JSR
ST
MOV

R1,$SAVE2
-($P)
gosm
,~(SP)

:
; BITS.XFERED,*

MOV

RO.R

: *,COMP.WRD

MOV

JSR

PC éuoxv

2530

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

L 4
PAGE 103

MLG

: 3

:22

MoV

MOV

JSR
MoV
MOV
ASL
MOV
CLR

; 1

ASR

551
5
5
g

ASR
MOV
ADD
ADD

ASR

i g
09
10
1

gg&

0155

1;
13

MOV
CLR

3}21 015600 000207

3130

«, COMP.BIT

COMP.WRD
,*

; *,BUF .SAV
; COMP.BIT,*

RO
#6.R1
SP.R1
R1,R0

JSR
ADD

Pcbal.ssrz
no0,sp

BNE
CLR
BR
MOV
MOV

1$
R1

28
#.R1
R1

RTS

000001

20 015574 062706 000010

313
g}gg

c
RO,
R1.
RO
10.8UF RO).6($P)
10.BUF (RO)

; BUF.SAV,
»

o
BIC
fi?fl% (SP)

5
0155

15
015
119
5
§}1 015
18 8}5%
gw 5

; BITS.XFERCD,*

ADD

; COMP.BIT,*

n0,sp

:HaxiM
Routine Size:
53 words
stack depth per invocation:

11 words

PA:
2531

25
25
253

CM ML-11 LOGIC TEST

——————————————

184
185

00000 % : %0 0000000000000 % 0800s0,0,

routine FORCE_REM (PLOG, CHAN)
begin

01
015606

N 7
PAGE 104

SEQ 0091

S Dec-1980 09:31:22

v2(212)

PA.EALESELINS4.8LI.2 (1)

: novalue =

UCTIOI“EOESCRI
10N:
AND THE PRECALCULATED MODULO 2

5,510
JA SIS, e
u&rbn ueuutdhcm:uw«m
FORCE renoxcrnste ECC ERRORS

POINTS TO ONE OF THE SIX WORDS OF
A

GROUP

CHAN
PCINTS TO ONE OF 36 CHANNELS IN
A CRC GROUP

IPLI CIT INPUTS:
local

ALOG,

'INDEX INTO REM_TBL

BLOG;

'INDEX INTO REH:T&

ALOG = .PLOG + .CHAN;

!CALCULATE A_LOG

while .ALOG

ALOG = .3:35 - 8:

'REDUCE A_LOG UNTIL < 64

.uhi
le .&26 &8362 gg:

]
'REDUCE
B_LOG UNTIL < 64

BLOG = .PLOG + CHM'Z
63

ecc,nn = ONE;

CRC_Q =" .REM_TBL

2579

end;

578

006167
016600

CERDS.RHT&

CRC B = .REfl'TBL

166252
000014

'CALCULATE 87
_LOG

PLOGJ

B.OGJ
JSR
MOV

'SET ECC DIAG MODE
_

R1,$SAVE3
14(SP) ,RO

!LOAD PAR_CRC_WRD
WITH REM_TBL
iLOAD CRCTMA WITH REM_TBL

'LOAD CRC B WITH REH:TE.

]
: PLOG,*

}

22-DEC-80 12:16

We B0 00 00 %0 0000 % 0000 %0 0000 %: 0090 %% 09090 %:90090%

e gt St e e ot ot ot ot ot
B e

—MNVISYNTY

—5

—3

—

RAINNANIITEIEARER
2B SR IRNRUNLESEIESREL S ESEIR IR

MISCELLANEOUS CODING SECTION

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE ?05

SEQ 0092

&R 83 "\ 38

3.‘m m32n9m20an,2m8u.n83m2n,.a8n%m.,umnmun-o NvTe -

ADRDHADDN D P

MISCELLANEQUS CODING SECTION

MRO

175406

175416

3$:

g8 g % g » gds,

m m m ommmomo

e RER

3ma3mSnn58k>¥=%%8g5

%Bmfi%fim

175374

175362

&
£
3
i
3
8
G9~
R

; Maximum stack depth per invocation:

4 words

2567

2539

CZMLABO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE $06

ss-m-woo 83:%6:31
-Dec-1980
09:21:22

§§
v
YRR

§§§§§§%§§ BEIRIR583BEERS

routine FOR_ECC_ERR (SGL, UNC)
begin

VIA ECC DIAG MODE,

SINGLE BIT EcC ERRORS

ECC DIAGNOSTIC REGISTERS
FMSaMTERS:

WHEN SET TO A ONE THIS
ROUTINE WILL FORCE SINGLE BIT ERRORS

UNC
WHEN SET TO A ONE THIS ROUTINE WILL
FORCE UNCORRECTABLE ECC ERRORS

IPLICIT INPUTS :
ECC_DM = ONE;

!SET ECC DIAG MODE

if .SGL
then

'IF SGL IS TRUE

bfl
PAR_CRC_WRD
= Xb*'111111°;

'THEN FORCE A SINGLE BIT ERROR

aEd-By‘

end”

else

C_WRD = Xb°111111°;

'ELSE FORCE A UNCORRECTABLE ERROR

(C::g
4 =g 11111 :

b e

d e

: novalue =

OR UNCORRECTABLE ECC ERRORS INTO THE

end;

b e
b

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BLIML4.BLI.2 (12)

i 'FUNCTIONAL DESCRIPTION:
"FORCE ECC ERROR' WHEN CALLED WILL FORCE

ONOWVESWN=O

RRRRRRRR

152777

8%
[

K
o
SRRRO 3% LR

1 015776

SEQ 0093|

end;

000001

175306

000001

000004

037400

175320

FOR.ECC.ERR:

B8IS8

#1,3ML.REG+120

BIS

#374600,@ML .REG+150

BIT
BEQ

';.lo(SP)
1

s *,SGL

TION

MACRO M1113

22-DEC-80 12:16

D 8
PAGE 107

;ML

3
000077

175312

037400 175302 18:
142777

000077
000077

175274
175276

28:

SEQ 009|
55::«-1900 09:26:31

Dec=1980 09:21:22

S}."

gsn.a-.nssflso

;

BIS

#37400,aML .REG+150

BISB
g%gs

: Routine Size:

#77.aM.REG+150
gg?.n.nesnso

24 words

; Maximum stack depth per invocation:

:
:

0 words

TOPS

[TH

261

261
261

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 508

-Dec-1980 09:21:22

routine FIRST_BLK_XFER : novalue =

7 :

10 ;
1 ;

!
!

ASSIGNMENT EXPRESSION TO LOAD
THE DSA, BUS ADRS AND WORD COUNT

?FG!E MASS BUS TRANSFERS CAN

1% ;

1
5233%
2634

fiGISIEfiS WITH APPROPRIATE INFORMATION

!
!
!
!
foe

LOADS A MASS_BUS BLOCK XFERR AT
BLOCK ZERO.

3321 ;
%22% 3
s

2635
2636
2637

in
= ZEROES;
MLBA
= ]0 BUF;

3325

2639

end;

3326 :

3333 016040
3334 016040
3335 016044
3336 016052
33383337 016060

3339
gts)

3346

2638

012777
012777
000207

TOPS-20 Bliss=16 v2(212)

PA:<NEALEBL3ML4.BLI.2 (13)

! FUNCTIONAL DESCRIPTION:
!
A REPEATEDLY CALLED SEQUENCE OF

}‘ 3

3315 :
3316 :
3317 :
3318 ;
3319 ;
3320 ;

SEQ 0095

S ~Dec=1980 09:24:31
19

3
H

'LOAD THE DSA REG WITH SECTOR ZERO
'LOAD THE BUS ADDRESS REG WITH 10 BUF ADRS

MLWC = not 255;
175140
011600
177400

175122
175104

iLOAD WORD COUNT REG WITH COMPLIMENT 256

FIRST.BLK.XFER:
CLR
@ML.REG+30
MOV
#10.8UF ,aML .REG+20
MOV
#-400,aML .REG+10
RTS
PC

: Routine Size:

9 words

; Maximum stack depth per invocation:

3
3
3

0 words

261

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

H, )

-Dec=1980 09:21:22

31 ;

54 :

routine GD_BLK_XFER : novalue =
i FUNCTIONAL DESCRIPTION:

SS :

56 ;

S? :

3 3

% ::

ASS IGNMENT EXPRESSIO‘S TO0 LOAD

7 i

S9 .

A REPEATEDLY CALLED SEQUENCE OF

58 :

371

THE DSA

3374 :
3378

2653
2654
2655
5256
57

ADRS AND WORD

COUNT aéexsms umc APPROPRIATE

INFORMATION BEFORE
A MASS BUS

TRANSFERS CAN COMMENCE

5251
!!
2652

gg:

LOADS A MASS BUS BLOCK XFERR

AT THE GOOD BLOCK ADRS FOUND

|
|
!
e

BY THE READ WRITE ARRAYS WITH
PROM DATA TEST

bog'ln

59
2660

ECC_DIS = ONE;
MLDA = .GOOD BLK;

'DISABLE ERROR CORRECTION
'LOAD DSA REG WITH THE GOOD BLOCK ADRS

528

MLWC = not 255;

ILOAD WORD COUNT REG WITH COMPLIMENT 256

2661

MLBA
= ]0 BUF;

'LOAD BUS ADRS REG WITH 10 BUF ADRS

end;

gg 8}“26062 152777 000002 175204 ot w""f"
3384 016070 016777 173675 175106
MOV
% 016076 012777 011600 175070
MOV
016106
3387 016112

3389
3390
3396

TOPS-20 Bliss=16 v2(212)

PA:<NEALEXALIML4.BLI.2 (14)

g I+¢

gi :

ggg 3

SEQ 0096

Ss-boc-w 09:51.:31

39 :

3364 :
3365 :
3366 ;
3367 :
3368 :

MACRO M1113 22-DEC-80 12:16 PAGE 109

012777
7

177400

175052

MOV
RTS

#2,aM .REG+120
GOOD.BLK ,aML .REG+30

#10.8BUF ,aML .REG+20
#-600,aML .REG+10
PC

: Routine Size: 13 words
: Maximum stack depth per invocation:

.
s
-

0 words

265
2661

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

6 8
PAGE 110

—d

;

:
:
:

s -Dec-1980 09:%4:31

-Dec-1980 09:21:22

:
}g :

;;
4

341; :
3413
3414 :
3415 :
3416 :
34617 ;
3418 ;
3419 :

75
2676
5277
78
79

?‘g :

2685

22510 :
:

3‘;7

144

2686

THE DSA,

INFORMATION BEFORE A MBUS
TRANSFER CAN COMMENCE

i
|
i
|
e

LOADS A MASS BUS BLOCK
TRANSFER AT THE LAST BLOCK
ADDRESS

begin
ECC_DIS = ONE:

'DISABLE ERROR CORRECTION

MLWC = not 255;

iLOAD WORD COUNT REG WITH COMPLIMENT 256

MLDX = .LST BLK:
MLBA= 10 BOF;

3438

3439

ILOAD DSA REG WITH THE LAST BLOCK ADRS
iLOAD BUS ADRS REG WITH THE 10 BUF ADRS

end;

3% 016130
012777 011600 175036
3435 016136 012777 177400 175020

BUS ADRS AND WORD

COUNT REGISTERS WITH APPROPRIATE

i
:

33 O1e1e 152777
75152
ug omg 016777 W 175054
3‘4339 016144

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BL3ML4.BLI.2 (15)

routine LAST _BLK_XFER : novalue =

i FUNCTIONAL DESCRIPTION:
i
A REPEATEDLY CALLED SEQUENCE OF
i
ASSIGNMENT EXPRESSIONS TO LOAD

7 :

SEQ 0097

T BTEY w2 am REGH120
MOV
LST.BLK,aML .REG+30
MOV
MOV

RTS

: Routine Size:

;

#10.8UF ,aML .REG+20
#-400, 3L .REG+10

:
;

13 words

: Maximum stack depth per invocation:

;
0 words

’
2684
268

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 111

7 ;M6

55-0091938 09:54:31

-Dec-1980

routti’f.\;iTSY_LNG_mo (NIB_NUM, NIB_PAT, ERR_FLG)
n

T AT

)

1 1 8 8 M U

09:21:22

TOPS-20 Bliss=16 v2(212)

PA:<NEALEXAL3IML4.BLI.2 (1&)

: novalue =

COMPARES THE CURRENT NIBBLE
POSITION IN *NIB_SAVE' WITH THE

! FUNCTIONAL DESCRIPTION:

SIS
S LS LS LS LS LS LS Y

CURRENT TEST PATTERN.

IF THE

TWO VALUES ARE NOT EQUAL AN

ERROR FLG IS SET WHICH THE
CALLER CAN INTERIGATE
FORMAL PARAMETERS:

NIB_NUM

CASE SELECT EXPRESSION TO SELECT THE
CURRENT NIBBLE TO BE EXAMINED

NIB_PAT

CURRENT NIBBLE PATTERN TO BE

COMPARED
ERR_FLG

CONTAINS THE ADDRESS (PASSED BY REF)

VRNCNE WSO

PN NNININN

RYRRDERBRTRANARR2 3333333333§§ SERERRERLA SIS

A
A
TR TR TR
T
R
A
A
T A
R
A RR
e AR
A

A AA

R R R

E e

S AR S

A N A
A
A
IAIA A AR
T R
L

TEATRIATR] A

EEREI
IR

3501 ;

SEQ 0098

OF THE CALLERS ERROR FLG

TO ENABLE THE CALLER TO EXAMINE
THE ERROR STATUS OF THE ROUTINE CALL

IMPLICIT INPUTS:
NIB_SAVE

BLOTK OF 3 WORDS TO STORE

THE DATA FOUND IN MLD1, MLD?
AND MLE2 AFTER A DIAGNOSTIC MODE

IMPLICIT OUTPUTS:

NONE

.ERR_FLG = ZERO;
case .{NIB_MH)

!CLEAR THE ERROR FLAG BACK IN THE CALLING FOUTINE
from 0 to 9 of

!SELECT THE NIBBLE TO BE TESTED

[0l :
it .NIB_SAVE [NIB_0] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE:

'TEST NIBBLE O AND SET ERR FLG IF NEQ

1] :
if .NIB_SAVE [NIB_1] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE:

cvuao ML-11 LOGIC TEST

SCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE {12

8
SEQ 0099

SSbec-1900 39:81:3)
:

;28

;21

;24

;22

;2;

;gg

:
3520 :
gsa :

%;gl
275
2754

3524 :
3525
526 :

2757
2758
2759

3§

2760
;61

3530

3531 :

2765
2766
g;g;

3536

2769

3537 -

gssa :
539 ;

2775
2776
777

it .NIB_SAVE [NIB_4] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE:

ITEST NIBBLE 4 AND SET ERR FLG IF NEQ
[s] :
it .NIB_SAVE [NIB_5] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE;

'TEST NIBBLE 5 AND SET ERR FLG IF NEQ

6] :

it .NIB_SAVE [NIB_6] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE;

ITEST NIBBLE 6 AND SET ERR FLG IF NEQ

73 :
if .NIB_SAVE [NIB_7] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE:

ITEST NIBBLE 7 AND SET ERR FLG IF NEQ
(8] :
if .NIB_SAVE [NIB_8) neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE:

'TEST NIBBLE 8 AND SET ERR FLG IF NEQ
93 :

784

787

557 :

4] :

554 556 :

ITEST NIBBLE 3 AND SET ERR FLG IF NEQ

781

785

5SS

if .NIB_SAVE [NIB_3] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE;

778
77;3

552 :
553

£33 :

b144]

354; :
3543 3544 :

549 ;
550 :
551 :

!TEST NIBBLE 2 AND SET ERR FLG IF NEQ

2;77%

577:.

548 :

it .NIB_SAVE [NIB_2] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE;

2770

gsszg :

545
5529.:

€23 :

2764

ssg :
3533
;
:;gg :

if .NIB_SAVE [NIB_9] neq .(NIB_PAT)<0, 3>

786

then

788

790

TOPS-20 Bliss=16 v2(212)

ITEST NIBBLE 1 AND SET ERR 7LG IF NEQ

;gz

527 :
ggza :

IR BRLS rian .,

tes;
end;

.ERR_FLG = ONE

'TEST NIBBLE 9 AND SET ERR FLG IF NEQ

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

SEQ@ 0100

3 "\ 88

¥ v3

OPLoSLTRLMCENTRLLTR

mmmmmmmmmmmmmmmmmmmmmo .

s.o=%.o32toWed'o&.=a.3o8M

PAGE 113

- o~ - P

32=583mBR3mnuunnmm&m25,8

CZMLABO ML-11 LOGIC TEST

MACRO M1113

22-DEC-B0 12:16

K 8
PAGE 114

SEQ 0101

:MLG

52-0«:-19” 09:264:31

2-Dec-1980 09:21:22

BIC

MOV
ASR
ASR
ASR

68:
78:

B8R

MOV

15’;;;) R1

BIC
oca
B8R
MOV

n%eo.ag'
158
1
15’;;;)
R1

98:

BIC

177760, ,R1

BIC

#177760.R2

6o
MOV

15
1
}? ) .R1

BIC
guovm

7%66 R1
NIB. SAVE+2,R2

8IC

77760.,R2

B8R

}1?%%6“;1

MOV

NIB. SAVE+2,R2

SAB
BIC

108:

158

MoV

0179;66 R1

BIC

MOV

|i
: NIB.PAT,*

2755

: NIB.PAT,*

|
|
sz'
{

1
!
;

: NIB.PAT, :

2767%|
AP

: NIB.PAT,*

2773

77760.R2

oca

B8R

|
|
‘

NIB.SAVE+2,R2

B8R

ASR
ASR
ASR

NIB. SAVE ,R2
R
R

R#177760,R2

MOV
ASR
ASR

8s:

77760 ,R1

BIC

TOPS

PA:<I

12(SP) .R1

NIB.SAVE+4,R2

|
: NIB.PAT,*

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

70
71
177760

o001
1

118:

172344

1
1
177770

g%) 016640

et e
{

e
>

e e
e
e e ettt S

000001

12%:
138:

8335 gzszzgg 8583 4’43

BIIBEND

369
3698

SEQ 0102

T
H,

MACRO M1113 22-DEC-80 12:16 PAGE &15'

“?

onnou

gam

; NIB.PAT
,»

mssfiuaz

zres
|

|
R
R
R

#177770.R2
?31

#., (RO)

; Routine Size:
158 words
; Maximum stack depth per invocation:

3 words _

—aN
A

CZMLABO ML-11 LOG IC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

LI
PAGE 116

SSDec=1980 83 81i3s
mt;.n;‘xm_m.m (NIB_NUM, NIB_PAT, RESULT)
n

T A A
A A A R

: novalue =

FUNCTIONAL DESCRIPTION:
EXCLUSIVE ORS THE

NISBLE POSITION xumve'

A A
A
A
A A A
T A

{

WITH THE CURRENT
TEST PATTERN

AND ASSIGNS THE aesuus 10 THE
FORMAL PARAMETER ‘RESULT

|
|

rm PARAMETERS :

CASEMn
SELECT EXPRESSION TO

SELECT THE CURRENT NIBBLE T0 BE
EXAMINED

NIB_PAT

CURRENT NIBBLE PATTERN TO BE

XOR'ED

RESULT
CONTAINS THE ADDRESS (PASSED BY REF)
OF AN OWN STORAGE LOCATION TO
ENABLE THE CALLER TO EXAMINE THE XOR RESULTS.
i IMPLICIT INPUTS:
NIB_SAVE

BLOTK OF 3 WORDS TO STORE
MLD2 AND MLE2 AFTER A
DIAGNOSTIC MODE READ.

IIPLICJT OUTPUTS::

NONE

case .(NIB_NUM) from 0 to 9 of
set

!SELECT THE NIBBLE TO BE XOR'ED

R
A AA

194

ol :

.RESULT = _NIB_SAVE [NIB_OJ xor .NIB_PAT;

OR'NIBBLE O AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

TR
R
A A

1] :
.RESULT = ._NIB_SAVE [NIB_ 1] xor .NIB_PAT;

&E | AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

TA
R
A
T AR

TOPS=20 Blis =16 v2(212)
PA: <NEALE>8L
4.BLI.2 (17)

THE DATA FOUND IN MLD1

3758

A A A O AR N R

A E AR

A R

A A O

T R

A TR

TR AT AT

SEQ 0103 |

2] :
..
.RESULT = .NIB_SAVE [NIB_2J xor .NIB_PAT;

NIBBLE 2 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

3] :

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

7 M6

|
g
SEQ 0104 |
ss—oecd% 83:5"31

-Dec~1

:21:22

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BLIML4.BLI.2 (17)

LRESULT = .NIB_SAVE [NIB_3] xor .NIB PAT;
IXOR NIBBLE $ AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

4] :

64 :

.RESULT = .NIB_SAVE [NIB_4) xor .NIB PAT;

62 :

IXOR NIBBLE 4 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

67 :

s :

68 :

.RESULT = .NIB_SAVE [NIB_S5] xor .NIB PAT;

69 :

IXOR NIBBLE 5 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

6l :

.RESULT = .NIB_SAVE [NIB_6] xor .NIB_PAT;

IXOR NIBBLE 6 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

3775

r7) :

6 :

.RESULT = .NIB_SAVE [NIB_7] xor .NIB_PAT;

IXOR NIBBLE 7 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

3779 :

8l :

3780 :

.RESULT = .NIB_SAVE [NIB_8] xor .NIB_PAT;

% :

IXOR NIBBLE 8 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

:
S -

.RESULT = .NIB_SAVE [NIB_9] xor .NIB PAT
IXOR NIBBLE 9 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

es;

16(SP) ,R1
14(SP) .R2
azg(sm RO
1$(RO) ,PC
b
e
o
e
e
—

1$:

R1,S$SAVE

PAANAAOW

XOR.LNG.WRD:

:RN

3788

N 8
PAGE 117

60 ;
61

22-DEC-80 12:16

: NIB.PAT,*
* RESULT,*
: NIB.NUM,*

2791

2831
2827

:3 1 BE OB BR RE Eo§
MACRO M1113 22-DEC-80 12:16 PAGE ?18

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

sMLG

2 $g3 o 3S zql oz 89

3KERes5259388m3mmmRe3RYsaaBER5T3R3REaRAeBp3aen0020t8s3R

3s:

FA
9s

R
S

~5~25~4[+ ~

4
o-

¢oWew5.L'

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE $19
;MLG

nis

1
1
1
1n

cco

ge AN

00020

‘.

BIC

BIS
RTS

; Routine Size:

R1.(R2)

89 words

-Dec=1980 09:21:22

PA: .
|i

R3.(R2)

: Maximum stack depth per invocation:

SEQ 0106
22-Dec-1980 09:24:31
I

S words

2791

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

D_9
PAGE 120

H, T

SS—D«-WOO

RSSRR
RS

-Dec=1980

routine LD_LNG_WRD (NIB_NUM, NIB_PAT)
begin

:26:31

09:21:22

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BLIML¢.BLI.2 (18)

: novalue =

I+

i FUNCTIONAL DESCRIPTION:

LOADS *NIB SAVE' WITH UNIQUE

NIBBLE PATTERNS PRIOR TO WRITING
TO MLD1,

MLD2 AND MLE?

DATA DIAGNOSTIC REGISTERS.
FORMAL PARAMETERS:
NIB NUM

CASE SELECT EXPRESSION TO SELECT
THE CURRENT NIBBLE TO BE LOADED

NIB_PAT

CURRENT NIBBLE PATTERN TO BE

LOADED

IMPLICIT INPUTS:
NI B_SAVE

BLOCK OF 3 WORDS TO STORE
THE DATA TO

INTO MLDT MLDZ2

WRITTEN

MLEZ2

IMPLICIT OUTPUTS:
NIB_SAVE IS LOADED WIH
THE CURRENT NIBBLE PATTERN

case . (NIB_NUM) from 0 to 9 of

* \SELECT THE NIBBLE LOCATION IN NIB_SAYE TO BE LOADED

!LOAD NIBBLE 0 WITH NIB_PAT

. NIB_SAVE [NIB_1] = .NIB_PAT;

1LOAD NIBBLE 1 WITH NIB_PAT

’ NIB_SAVE [NIB_2] = ..NIB_PAT:

'LOAD NIBBLE 2 WITH NIB_PAT

53]:5':

7 NIB_SAVE [NIB_3] = .NIB_PAT;

ILOAD NIBBLE 3 WITH NIB_PAT

1§

. NIB_SAVE [NIB_4] = .NIB_PAT;

'LOAD NIBBLE 4 WITH NIB_PAT

v NIB_SAVE [NIB_0J = .NIB_PAT;

SRR
SR

%‘;

SEQ 0107

. NIB_SAVE [NIB_5] = .NIB_PAT;

6] :

'LOAD NIBBLE 5 WITH NIB_PAT

SWmRB”“B“M@W?...\WW".BlB2323
%B-LR. sm&'p&c«.eRRw—RRw—RELwRtRw,—‘m3-.1
88&2 E E E 3NE28

mé

3: w

FS
e

88 8 E

9S LOONORSmMANG

%SO88S&55g8&6255f555i82%5&5%56f5i55mi6f5i5mef.8i1g.wif1nsini§e.g
e[]l -4=4=
MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 521

38S&2ap2n5e3ti2u0et8iy
s

SEQ 0108

n.>:=4&.s W©®oNO

M‘ Sg

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F_9

PAGE 122

SEQ 0109

H, )
3

2% 8
%

4001

171650

400%
4005
4.009
400

4008 01

171642

4009

4010 01
4011
l.o1.§ 01
401

4014
4015
4.019 8}
401
4.013 01
4019 017354
0

709 177617
767 000360 171616
12

170377
007400 171600

4031

017

761

761
01741

2% 70
4034

4035
%

404

4044
4045

7777
1
171552
171546
170377
007400 171532

107777
0
171504
171500

ASL

ASL
BIC
BIC
BIS
B8R
BIC
BICB
BR

#170000,N18. SAVE
ng NIB. SAVE
15§
#177760.R)
#17,NIB.SAVE+2
118

R
:9777 RO

:
:

RO -

BICB
BR
SWAB
BIC
BIC
BR

#360,NIB.SAVE+2
118
RO
#170377 RO
#7600,NIB. SAVE+2
118

;

SWAB

rol

ASL

ASL
ASL
ASL
BIC

RO
’
RO
RO
#177417 RO

TOPS
PA:<

;

|
|
2905
291
|
|
2921

|
2924
|
;
|

2927

118:
128:

BIC
s
BIC
BIS
BR
SWAB
BIC

¥o RO
#170000,NIB. SAVE+2
ng NIB. SAVE+2
15§
RO
#170377 RO

o,
SWAB

BIC

138:

017

017
7
74
4‘g§ 7640
76kl
4040 017452
4041 017456
40!.; 017460

98:
108:

017365

68:
78:

s -Dec~-1980 09:%6:31
-Dec=1980 09:21:22

ASL

ASL
ASL
ASL
BIC
BIC
148: - BIS
158:
MOV
RTS

‘|
;

;

2933

#7400 ,NIB. SAVE+4

RO
RO
RO
#107777 RO
#70000,NIB.
SAVE +4
RO,NIB. SAVE+4
(sP)+.R1
PC

; Routine Size: 111 words
; Maximum stack depth per invocation:

|
;

:
2 words

2872

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 ~PAGE ?23

33’0“4980 :24:31
-Dec-1980 09:21:22
routine WRT_CS1
begin

4089 0175%
4090 01751

4091 017516

iS
0175
40% 01
4095
4096
4097

4102

FGNL gm TERS:

CU*ENT DATA PATTERN TO BE LOADED IN THE REGISTER.

INDEX
USED BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS,

FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION.

MLCST = WRT_MASK;

!LOAD GENERATED WRT_MASK PATTERN INTO MLCS1

end;

013156
000012
013160
013162

173424

WRT.CS1:JSR
MOV

14
23

; %33%%%33323 2

LOADS THE CONTROL & STATUS REGISTER 1 WITH A DATA PATTERN
GENERATED BY THE MACRO
WR

164356
000010

4085 01;274

: novalue =

: FUNCTIONAL DESCRIPTION:

R IFATATEATEATE
IR
AR TATE TR

e
Gtk 0172%

(TST_PAT, index)

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BL3ML
4.BLI.2 (19)

‘e

PRTA TR

PR PR PR PR T

353355k RRRRRARTRRRER

4051 ;M6

SEQ@ 0110

s INDEX,»

ASL

2937

ASL
ASL
MOV

MOV
BIS

: TST.PAT,
»

BIC
MOV
BIS

MOV
RTS

; Routine Size:
20 words
Haxinul stack depth per invocation:

3
3 words

2937

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H_9
PAGE 124

T
T
P
T
P

TR T

COMPARES THE CONTENTS OF THE
CONTROL & STATUS REGISTER 1

GENERATED BY THE MACRO °‘WRT_MASK'
IF THE COMPARE IS NOT EQUAL THEN
THE FORMAL PARAMETER 'ERR FLG' IS

eSSIMD A ONE TO INDICATE THE
FORMAL PARAMETERS:

TST_PAT

DATA PATTERN TO BE MASKED AND

COMPARED AGAINST THE CWTENTS
OF THE REGISTER UNDER TEST.

INDEX
USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS
FORCED HI, FORCED LO AND DON'T CARE

MASK INFORMATION.

ERR_FLG

CONTAINS THE ADDRESS (PASSED BY REF)

OF THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS
OF THE ROUTINE CALL.
IPIJCIT I'FUTS.

GETSLOADED WITH THE GENERATED
WRT

DATA PATTERN THUS ALLOWING

ER TO PRINT FAILING GOOD DATA.

RD_DATA

GETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER
TO PRINT FAILING BAD DATA.

o R

PR PR LA PR TR T
P
A
LA TR TR PR TR L

: novalue =

WITH THE MASKED DATA PATTERN

PR EREE SRR

R
R
TR
P

(TST_PAT, index, ERR_FLG)

R
A
TR R R

ol o a2 oL 2

b ed e
b d e

routine RD_CS1
begin

i FUNCTIONAL DESCRIPTION:

e e e e e
e cd o cd o

e
o

X 02 T o

410
4108

35Dec-1980 09:51:

TR TR T

3 VONOWVSWN=O 3838

4105 ;M6

SEQ 0111

IFPLIC(I{ QUTPUTS:

OBAL LOCATION WR_DATA

AND RD DATA LOADEDWITH GOOD
AND BAD REGISTER DATA

TOPS=20 Blis 16 v2(212)

PA: <NEALE>SBL

4.BLI.2 (20)

e c——————————————

MISCELLANEOUS CODING SEC TION

2}61 H, €1

41
418

8}75

4184 8}75
(A
75
4188
4189

4190
017576
4191 017600

l.‘lgg 017604

8588

4193
017610
4196 017614
4195 N
4196 017
6197 017
4198 017636
4199

SEQ 0112
4:31

10
11
1§
1
&
15
19
1

.ERR_FLG = ZERO;

wT _DATA = WRT_MASK;

RD_DATA = .MLTS1 or .IGNORE;

161

013156

MOV

1
61

13162

1
010;6
%6 67
1403
012776
7

'READ THE REG FOR WRT_MASK

-+ 1SET ERROR FLAG IF NEQ

end;

RD.CS1: JSR
CLR
MOV

10001

TOPS-20 Bliss=16 v2(212)
PA: <NEALE
4.8L1.2 (20)

!CLEAR ERROR F FLAG
!SAVE THE DATA WRITTEN TO THE REGISTER
!READ AND SAVE THE REGISTER

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

164306
000010
000012

ng?

ap ank s
a8lf5e e
0175

$3 Dec-1980 09: 1:22

418

4183

MACRO M1113 22-DEC-80 12:16 PAGE #25

CZMLABO ML-11 LOGIC TEST

4164 ;
6165 ;
6166 ;
L4167 ;
4168 ;
6169 ;
6170 ;
an ;
4175
79 0175

ERR.FLG
INDEX ,*

ASL
ASL
ASL
MOV

wflo
13160

BIS
8IC

;

TST.PAT,»

MoV
8IS

173322
173344

MOV
MOV

0}%}62

BIS

173310
173302

173302

MOV
gE';

000001

000010

MOV

; *,ERR.FLG

RTS

; Routine Size:
35 words
; Maximum stack depth per invocation:

3 words

CZMLABO ML-11 LOGIC TEST

MACRO M1113

J_ 9
PAGE 126

SEQ 0113

35001080 09:51:20
b

-Dec-1980

—

mt;.r\;{mt
ER (TST_PAT, index)
—

09:24:31

Ph-oNEALESALIMS .12 (21
TOPS-20 Bliss=16 V2(212)

: novalue =

144

! FUNCTIONAL DESCRIPTION:

LOADS THE ERROR REGISTER WITH A DATA PATTERN GENERATED BY THE MACRG WRT_MASK

g FORMAL PARAMETERS:
i

TST_PAT

;

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER.

INDEX
USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS.

FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION.

MLER

Gtirnc

ggggggggggggg TR R R L A R R R R TR N TR

]

o
T S
S S S GRS

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

7640 004167 164200

7644
7650
7652
7654
;%
76%
76
;%3

m 000010

006300

0001
6100 013156
000012
8:.6100 013160
0;3‘1);3’. 013162

7702 01

7706 003507

173326

= WRT_MASK

'LOAD GENERATE WRT_MASK PATTERN INTO MLER

WRT.ER: JSR

MOV
ASL
ASL
ASL
MOV
MOV
BIS
BIC
3%

MOV

RTS

R1,S$SAVE?2

10(sP) ,RO
RO

* INDEX,*

RO
RO,R1
né.ns6+2(R1) ,RO
12(SP) .RO
ML .REG+4 (R1) ,RO
?‘o' 6+6(R1) _R2

: TST.PAT,#

R2.aML .REG+60

;: Routine Size:
20 words
; Maximum stack depth per invocation:

:
3 words

3018

3036
f
|
|

3018
i

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

K_9
PAGE 127

-Dec~-1
:26:31
55-0«-1338
83:51:22

V) NV
SRR

routine RD_ER (TST_PAT, index, ERR_FLG)
begin
1+4

! FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE
ERROR REGISTER WITH
THE MASKED DATA PATTERN

IF THE COMPARE IS NOT EQUAL THEN

THE FORMAL PARAMETER 'ERR FLG' IS

Wfi A ONE TO INDICATE THE

ge%%sr
BNRERRRRRSRISEEE
LA L

FORMAL PARAMETERS:
TST_PAT

DATA PATTERN TO BE MASKED AND
CWMED AGAINST THE CONTENTS

OF THE REGISTER UNDER TEST.

INDEX
USED BY THE MACRO WRT
T0
sa.ecr THE CURRENT REGISTERS ADDRESS.
ceom FORCED LO AND DON'T CARE

NFORMAT ION.

ERR_FLG

CMAINS THE ADDRESS (PASSED BY REF)

THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS
OF THE ROUTINE CALL.

IMPLICIT IWTS.
WT_DATA

GETS LOADED WITH THE GENERATED

DATA PATTERN THUS ALLOWING
R TO PRINT FAILING GOOD DATA.

RD_DATA
GETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER

2%‘1)8 H

4311 ;
4312
;
4313
;

4314 ;

6315 ;
4316 ;

: novalue =

GENERATED BY THE MACRO "WRT_MASK®.

R
R
S T RS S R S

4306 ;
4307 ;
4308 ;

SEQ 0114

TO PRINT FAILING BAD DATA.

4
gggg

IMPLICIT OUTPUTS:
GLOBAL LOCATION WR_DATA
AND RD_DATA LOADEDWITH GOOD

AND BAD REGISTER DATA

G’S-ZO
’)&’,flb V2(212)
4.BLI.2 (22)

.
m——
e
. <
e
—
—
— .
R —
———
I R
—
R
R
R
RR
e
R
A R
.

MACRO M1113 22-DEC-80 12:16 PAGE %20

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

it
18

;M4

'A
&

:
:

5
4

:
:

4
A
4

;
3

.ERR FLG = ZERO;

6346 017764

l.% 017750

44350
349 01773
01%

4351 017766
£352
017772
4353
017776
(354
4355

30
10
12

RD.ER:

156
000014
60
&7

JSR
CLR
MOV
ASL
ASL
ASL
MOV
MOV
8IS
BIC
MOV

R1,$SAVE2
310(sp)
12(SP) ,RO
RO
RO
RO
RO.R1
ML.REG+2(R1)
,RO

MOV

R2.WT.DATA

%6
162
173132

!READ THE REG FOR WRT_MASK

!SET ERROR FLAG IF NEQ

017740

4357
4358
4359

!READ AND SAVE THE REGISTER

end;

)

4356

'SAVE THE DATA WRITTEN TO THE REGISTER

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

75
017
77

TOPS-20 Blis =16 v2(212)
PA: <NEALE>BL3IML4.8LI1.2 (22)

!CLEAR THE ERROR FLAG

:
T_DATA = WRT
RDDATA = .MLER or .IGNORE;

017710
8}7716

'
4
[
6345

$3Dec-1980 09:31:23

SEQ 0115

BIS

[
BIS

173126

173124

000001

000010

MOV
%
18:

MOV
RTS

; Routine Size:

:
* ERR.FLG
: INDEX,*

14(SP) RO
ML.REG+4
(R1) ,RO
a.zscmm.nz

; TST.PAT,»

ML .REG+60
ML.REG+6(RT)
,R2
R2.RD.DATA

g;.uu.m.DATA
#1.,310(SP)
PC
35 word

aninun stack depth por invocation:

:
: *,ERR.FLG
:
3 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

4
4

22-DEC-80 12:16

100
101

routine WRT_DA (TST_PAT, index)
begin

4 ;

10§
}8‘

: FUNCTIONAL DESCRIPTION:

}82

107

! FORMAL PARAMETERS:

11;

”lso

o380
2% :
4

4387

l.ga 2

2389 :

4398

4399
4400
4401
fig

108 i
”? :
n

119

118

167

INDEX

USED BY THE MACRO WRT
FORCED HI, FORCED LO

: novalue =

TO SELECT THE CURRENT REGISTERS ADDRESS.

DON'T CARE MASK INFORMATION.

MLDA = WRT_MASK;

!LOAD MLDA WITH GENERATED WRT_MASK PAJ TERN

end;
164022

000010

440
4408

173120

EEEER

109S-20 BLise-16 ¥2(212)

PA: CEALESBLIM4.5 1.2 23

TST_PAT
CI.RRENY DATA PATTERN TO BE LOADED IN THE REGISTER.

013156
000012

ONN=O

6:31
1:22

LOADS THE DESIRED SECTOR WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK

4404

44605
“%

SEQ 0116

mn9
PAGE 129

33-ec-19m8 o

g"
H
:

MACRO M1113

01%160
013162

WRT.DA: JSR

ASL
ASL
ASL
MoV

MoV
BIS

BIC
MoV
BIS

; Routine Size:

R1,$SAVE?2

10(SP) ,.RO

; INDEX,*

RO
RO
RO
RO.R1

!lé.REG*Z(M) RO
12(SP) ,RO

TST.PAT
»

&.REGM(M) RO
%.:SG*G(M)R2
®
R2 aML.REG+30
20 word

* Maximum stack depth per invocation:

3 words

CM ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

N_9
PAGE 130

H, ¥A

-Dec
53-»«-1333
83 4:31
1:22

U-gg
&30
63
fi

119

routine RD_DA (TST_PAT, index, ERR_FLG)

3
:

1
121

} 3

3
;
;
3

1
1
1
}

l.l.glo 3
&435 ;
U.% 3
G437
;
4438 ;
6439 ;
6440 ;
&4 ;
l.“i 3
L4643 ;

1
131
1
1
‘l%l»
135
136
137
3138
g139

4445 ;

141

G444 ;

4446 ;

140

14§

G447 ;
4448 ;
4449 ;

143
gw.
145

4451 ;
4452 ;

147
148

4450 :

6453

6454
6455
4456
6457
4458

;

3146

149

begin

!
!
'
:

!
!
!

!
!

4460 ;
4461 ;

156
}g‘

!
:

160
161

!
!

167

OF THE REGISTER UNDER TEST

INDEX

USED BY Tl-t MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS.
FORCED MI,
FORCED LO AND DON'T CARE

MASK INFORMAT
ION

CMAINS THE ADDRESS (PASSED BY REF)

!
OF THE CALLERS ERROR FLG TO ENABLE THE
!
TO EXAMINE THE ERROR STATUS
!
OF THE ROUTI
.
! IMPLICIT IWTS.
!
WT_DA

228 3

159 1|

RD_DATA

4466 ;
L4667 ;
4468 ;
4469 ;
4470 ;

18
1
164
165
169

35168
3169
3170

ERR FLG

GETSLOADED WITH THE GENERATED

4472
;
4473
;
4474 ;

COMPARES THE CONTENTS OF THE
DESIRED SECTOR ADDRESS REGISTER
WITH THE MASKED DATA PATTERN
GENERATED BY THE MACRO ‘WRT_MASK'

155 !

&7 ;

!
IF THE COMPARE IS NOT EQUAL THEN
!
THE FORMAL PARAMETER 'ERR FLG' IS
!
ASSIGNED A ONE TO INDICATE
T
!
ERROR
!
! FORMAL PARAMETERS:
!
!
TST_PAT
!
DATA PATTERN TO BE MASKED AND
!
COMPARED AGAINST THE CONTENTS

3150
3151
315;
3153
3154

L4664 ;
4465 ;

v2(212)
PATOPS=-20
: <NEALEBliss=16é.8L1.2
(264)

: novalue =

: FUNCTIONAL DESCRIPTION:

;
;
;
;
;

4459 ;

SEQ 0117

DATA PATTERN THUS ALLOWING
ER TO PRINT FAILING GOOD DATA.

GETS LOADED WITH DATA READ FROM THE
REGISTER TMUS ALLOWING CALLER

!
TO PRINT FAILING BAD DATA.
!
! IMPLICIT OUTPUTS:
!
GLOBAL LOCATION WR_DATA
!
AND RD DATA LOADEDWITH GOOD

!
!=-

AND BAD REGISTER DATA

.
e

-+
MACRO M1113

!SET ERROR FLAG IF NEQ

end;

RD.DA:
A

ASL

ASL
ASL

JSR
CLR

163752
000010
000012

013156

012160
013162

BIS
8IC
BIS

172766

1%060

013162
172754
172746

172746

000001

000010

: ERR.FL
: INDEX,

.REG+2(R1) ,RO
(SP) ,RO

; TST.PAT,»

.REG+4(R1) ,R0
.gsfis(an-R2
,WT.DATA

BIS

BEQ

MOV
RTS

1$
#1,310(SP)

; *,ERR.FLG

: Routine Size: 35 words
; Maximum stack depth per invocation:

A
Bk
B
=D

g -o§

!READ THE REG FOR WRT_MASK

dd:

s e d ek

NN WANN NN

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

3 words
’

C———————————

!READ AND SAVE THE REGISTER

s 81
KRa
(VA XV

>
o< IR

—

4508 020144
4509 020150
4510 020154

4514

RDMTA: .MLDA or .IGNORE;

-0
3333:33833~d

4507

DKTASWT_MASK;

32 8358

4504
4505
4506

§32 35

{2
{5

TOPS-20 Blis =16 v2(212)
4.BLI.2 (24)

PA: <NEALE

!CLEAR THE ERROR FLAG
!SAVE THE DATA WRITTEN TO THE REGISTER

.EM FLG = ZERO;

'
02011

SEQ 0118

35Dec-1980 09:51:22

perd

SeSEEREEEEREES
4500

22-DEC-80 12:16

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

azaa
oy o

8_10
PAGE 131

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE SSL

loS

283

routine WRT_MR (TST_PAT, index)
begin

§ N U N N NN N N AN NN NN NN NN

88Dec=1989 5:51:22
: novalue =

: FUNCTIONAL DESCRIPTION:

LOADS THE MAINTENANCE REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK

LA BYRGREC28IBIRA

TOPS-30 Blis =16 v2(212)
PA: XNEALE
4.8L1.2 (25)

144

i) FORMAL PARAMETERS:
g

TST_P,

INDEX
USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS,

CLRRENT DATA PATTERN TO BE LOADED IN THE REGISTER.

m.nd
= WRT_MASK;

!LOAD, MLMR WITH GENERATED WRT_MASK PAT TERN

163644
000010

WRT.MR: JSR
MOV

013156
000012
013160

MOV
BIS
BIC

: et i
S

FORCED HI FORCED LO AND DON'T CARE MASK INFORMATION.

P
—
—

SEQ 0119

013162

173032

ASL
ASL
ASL
MoV

MOV
BIS

;‘T)g

R1,$SAVE2
10(SP) .RO

: INDEX,*

RO
RO
RO
RO.R1

Hé.REGQ(R‘I).RO
12(SP) ,RO
ML.REG+4(R1) ,RO

: TST.PAT,
»

% 56060!1)-R2
RZ.CI..REGOIZO

; Routine Size:
20 words
* Maximum stack depth per invocation:

3 words

D_10

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 13}

4577 M6

4578

-Dec-1980 09:24:31

;

$8 Dec 1980 09:51:33

4580 ;
4581 ;

199

428 3
:
2553150 H

4586 ;

‘l:gg :

3500

59 ;
4592
;

§10
1"

£59¢ ;
4595 ;

1
3214

4587 :
4588 ;

4593

;

routine RD_MR (TST_PAT, index, ERR_FLG)
begin

: novalue =

144

! FUNCTIONAL DESCRIPTION:
COMPARES THE CONTENTS OF THE

MAINTENANCE REGISTER WITH THE
MASKED DATA PATTERN

GENERATED BY THE MACRO "WRT_MASK'.
IF THE COMPARE IS NOT EQUAL THEN
THE FORMAL PARAMETER 'ERR FLG' IS

§1§

ASSIGNED A ONE TO INDICATE THE
ERROR.

4596 ;

3215

4598 ;
4599 ;
4600 ;
4601 ;

3217
3218
3219
3220

TST_PAT
DATA PATTERN TO BE MASKED AND
COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

4604 ;
4605 ;

3223
3224

USED BY THE MACRO WRT MASK TO
SELECT THE CURRENT REGISTERS ADDRESS

4607 ;

33%%9

MASK mm ION.

3
:

3228
3&

ERR FLG
CONTAINS THE ADDRESS (PASSED BY REF)

3231

4602 ;
4603 ;

ERRRERRRRRRESEOS2EEEEEEES

:
:

3216

FORMAL PARAMETERS:

21
22

INDEX

3225

FORCED HI, FORCED LO AND DON'T CARE

OF THE CALLERS ERROR FLG TO ENABLE THE

SRR

4597 ;

SEQ@ 0120

OF THE ROUTINE CALL.

CALLER TO EXAMINE THE ERROR STATUS

IMPLICIT INPUTS:
WT_DATA

GETS LOADED WITH THE GENERATED

WRT

RD_DATA

GETS LOADED WITH DATA READ FROM THE

4
2‘

3
-

46
3247
23

4631 ;

250

DATA PATTERN THUS ALLOWING

CALLER TO PRINT FAILING GOOD DATA.

IMPLICIT OUTPUTS:

GLOBAL LOCATION WR_DATA
AND RD DATA LOADED WITH GOOD
AND BAD REGISTER DATA

708-20 Blis 16 v2(212)
4.BLI.2 (26)
<NEALE

MACRO M1113 22-DEC-80 12:16 PAGE 534

SEQ 0121

".F.

35
gg

58
01

ERR.FLG
*
INDEX,

(SP) ,RO

suga
g NJoNy
SRS RI=R

6+2(R1)
RO
.
G+*4(R1) ,RO
G6+6(R1) .R2

; TST.PAT,»

.DATA

.REG+120 R2

3 3

.REG+6(R1J
,R2

g 3

10(sP)

(elelele]

B3R3NS3EREREREREE

465

005076

-t
O b b

ds8

Lty

R1,$SAVE2

RD.MR:

1$:

RTS

22.310(5}")

; Routine Size:
35 words
; Maximum stack depth per invocation:

: *,ERR.FLG

3 words

4654

RNIEEES333 N
SRRR R»

004167

!READ THE REG FOR WRT_MASK

!SET ERROR FLAG IF NEQ

%
ces?

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

466%

_DATA = WRT_MASK;
RD_DATA = .MLMR or .IGNORE;

4640
4641

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3M 4.BLI.2 (26)

!CLEAR THE ERROR FLAG
'SAVE THE DATA WRITTEN TO THE REGISTER
!READ AND SAVE THE REGISTER

.ERR_FLG = ZERO;

g 33

55Dec-1980 09:51:22

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 13;

H, €9

SEQ 0122

S -Dec=1980 09:34: N

-Dec=1980 09:21:22

4685 ;
4686
4687 ;
4688 ;
4689 ;
4690 ;
2291 3

routine WRT_PA (TST_PAT, index)
begin
les
' FUNCTIONAL DESCRIPTION:

!
LOADS THE PROM ADDRESS REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK
: rmrgmt
o TERS:

W DATA PATTERN TO BE LOADED IN THE REGISTER.

4695 ;
4696 :
L697 ;
4698 ;

!
!
fom

USED BY THE MACRO WRT
FORCED HI, FORCED LO

&699 ;
4700 ;
4701 ;

g?lo
75
3276

&710 020352

004167

471;

016600

152777

£713 G20 00
4715

4716

374

Yald
4719
4720

4721
4
4

4rt

4726
2%

6100

10
16

0461
0161
01

142

000207

TO SELECT THE CURRENT REGISTERS ADDRESS.
DON'T CARE MASK INFORMATION.

PROM_DIS = ONE;
MLPA = WRT_MASK;

!SET PROM DISABLE BIT
'LOAD MLPA WITH GENERATED WRT_MASK PATTERN
'CLEAR PROM DISABLE BIT

PROM_DIS = ZERO;

163466

000040

000010

172710

WRT.PA: JSR

R1,$SAVE?2

MOV

10(SP) ,RO

s INDEX,*

BISB

006300

0001

4.BL1.2 (27)

: novalue =

22§‘§ 3

77%

TOPS=20 Blis 16 v2(212)

PA:<NEALE>BLIM

#40,aML.REG+i20

ASL

013156

MoV

!f.REG+2(R1)RO

013160
013162

BIC
MOV

H..REGM(M) RO
.:SG%(RURZ

172626

000040

MOV

BIS

172640

MOV

BICB

RTS

; Routine Size:

;
|

,
!

R2,aML .REG+100

#40,aM.REG+120

;

26 words

327
|

RO.R1

; Maximum stack depth per invocation:

!
i
,

:
3 words

3276,

3260/

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

6.10
PAGE 136

4735 ;M4

4740 ;
4741 ;
2;‘
:

L7464 ;
4745 ;
4746 ;

-Dec=1980 09:24:31

SS—D«:-W&O :21:22
78

routine RD_PA (TST_PAT, index, ERR_FLG)

81
8

!++
: FUNCTIONAL DESCRIPTION:

86
85
86

!
!
!

2;2; 3

2317;

4749 :
4750 ;
4751 ;
4752 ;
4753 ;
L7546 ;
4755 ;

4756 ;

4757 ;

2;553 s

4760 ;

4761 ;
4762 ;

4763 ;

4764 :

4765 ;
4766 ;

&767 ;
4768 :
4769 ;
&770 ;
&771 ;

3291
329§
3293
3296
3295
3296
3297

begin

OF THE REGISTER UNDER TEST.

3302

USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS.

3304

3298

ggg
!!
301
3303

3305
3306

!
!

&775 ;
4776 :
&L777 ;
4778 ;
&779 :
4780 ;
4781 ;
4782 ;

3315
3316
3317
318
319
3320
3321
?2;

!
!
!
!
!
!
!
!

4784 ;
4785 ;
4786 ;

324
325

!
!
:

4783 ;

o788 :

GENERATED BY THE MACRO °"WRT_MASK'.

DATA PATTERN TO BE MASKED

4774 :

COMPARES THE CONTENTS OF THE
PROM ADDRESS REGISTER
WITH THE MASKED DATA PATTERN

!
!
!
!
!

L7738 :

: novalue =

!
IF THE COMPARE IS NOT EQUAL THEN
!
THE FORMAL PARAMETER 'ERR FLG' IS
!
ASSIGNED A ONE TO INDICATE THE
!
ERROR.
!
! FORMAL PARAMETERS
!
TST_PAT

3307
3308
3309
3310
3311

&772 ;

SEQ 0123

g‘li

3314 !

358

COMPARED AGAINST THE C(NTENYS

INDEX

FG!CED HI

ERR FLG

CONTAINS THE ADDRESS (PASSED BY REF)

OF THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS .
OF THE ROUTINE CALL.
IFHJCIT I'FUTS.

GETSLOADED WITH THE GENERATED

DATA PATTERN THUS ALLOWING
ER TO PRINT FAILING GOOD DATA.

RD_DATA

GETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER
TO PRINT FAILING BAD DATA.

' IMPLICIT OUTPUTS:

FMCED LO AND DON'T CARE

NFORMAT ION

GLOBAL LOCATION WR_DATA
AND RD DATA LOADEDWITH GOOD
AND BAD REGISTER DATA

TOPS-20 Blis =16 v2(212)
4.BLI.2 (28)

PA: <NEALE>BL

H_10

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 13}

43Dec=1980 09: 1: 22
6 :5

4791 M6

4738*

479
4795 ;
4796 :

479 :

2% :

4ao!1

238% :
4810
4811
mi
481
4814
4815
4816
4817
mg
481
4820
4824
4825

4826
zg;

4829
4830
4831

2&3

4834

w.o”

SEQ 0124

.ERR_FLG = ZERO;

WT_DATA = WRT MASK;

iREAD AND SAVE THE REGISTER

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

PROM_DIS = ZERO;

end;
oom;r 163402
RD.PA: JSR
oos% 000010
CLR
152
000040 172620
BISB
01
000012
MOV
ASL
ASL
ASL
1
MOV
6100 013156
MOV
000014
BIS
100 013160
BIC
16102

013162

MOV

1
01
056102
010;6
35?‘gg
012776
142777
000207

172410
172532
013162
1%76
172370 172370
000001 000010
000040 172516 1$:

MOV
MOV
BIS
MOV
EE';
MOV
BICB
RTS

BIS

ICLEAR THE ERROR FLAG
iSET THE PROM DISABLE BIT
iSAVE THE DATA WRITTEN TO THE REGISTER

PROMTMDIS = ONE;

RD_DATA = .MLPA or .IGNORE;

TOPS-20 Blis =16 v2(212)
4
28

PA: <NEALE

'READ THE REG FOR WRT_MASK

ISET ERROR IF NEQ

iCLEAR THE PROM DISABLE BIT
R1,$SAVE2
:
a310(sp)
* ERR.FLG
#40,aML.REG+120
:
12(SP) .RO
* INDEX,*
RO
RO
RO
RO,R1
ML .REG+2(R1) ,RO
14(SP) RO
: TST.PAT,*
ML.REG+4(R1)
,RO
wss«mn.nz
¥

R2.WT.DATA
aML .REG+100
%.nesw(mi.az
RD.DATA
WT.DATA,RD.DATA
#1,310(SP)
#40.aML.REG+120
PC

; Routine Size: 41 words

; Maximum stack depth per invocation:

3 words

3333

3335

: *,ERR.FLG
:
:

3278

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1

113 22-DEC-80 12:16 PAGE {38

s -Dec~-1980 09:24:31
-Dec=1980 09:21:22

l&ivu
3

4&6 3
4847 :

(TST_PAT, index)

: novalue =

fee

7
)
S50
351
Sg
S
54
5SS
56
00617%

152

LOADS THE ECC CRC WORD REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK

;

Clllfifin‘l DATA PATTERN TO BE LOADED IN THE REGISTER.

USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS.

; FORMAL PM TERS

FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION.

ECC_DM = ONE:

163260
000001
000010

172502

01%160
013162

!SET ECC DIAG MODE

MLET = WRT MASK;
ECC_DM = ZERO;
end;

013156
000012

172470
000001

SHEBRBBRESSNESSES

routine WRT_E1
begin

TOPS=20 Bliss=16 v2(212)
PA: <NEALE
4.BLI.2 (29)

! FUNCTIONAL DESCRIPTION:

4849 ;
4850 ;
4851 ;
485§ 3
%853 ;
4854
;
4855 :
(856 ;
4857 ;
4858 ;
4859 ;
4860 ;
4861 ;
4862 ;
(866
4870 020560

487

SEQ@ 0125

'LOAD MLE1 WITH GENERATED WRT_MASK PATTERN
'CLEAR ECC DIAG MODE

WRT.E1: JSR
B8IS8
MOV
ASL
ASL
ASL
MOV
MOV
BIS
BIC
MOV

R1,S$SAVE?2
#1,3ML.REG+120
10(SP) ,RO
RO
RO
RO
RO.R1
Hé.REGQ(M).RO
12(SP) .RO
ML.REG*+4(R1) ,RO
%.gs%(M).RZ

MOV
BI(B
RTS

R2.@ML .REG+150
01.Ol.REG4120
PC

BIS

172432

H
:
: INDEX,*

: TST.PAT,
»

; Routine Size:
26 words
; Maximum stack depth per invocation:

3
3
3 words

3355
33

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

J 10
PAGE 139

Ss-bec -1980 09:21:22

3%ML

-Dec=1980 09:24:31

4900 ;
4901 ;

290

4904 ;

4906 ;
2% 3

S
8

4909 ;
4910 ;
N3
6914
915
916
N7
(918
919
4920
4921
4922

;
;
;
;
;
;
;
;
;
;

;

4934 ;

COMPARES THE CONTENTS
OF THE

ECC CRC WORD REGISTER
1

IF THE COMPARE IS NOT EQUAL THEN
THE FORMAL PARAMETER 'ERR_FLG' IS

3%;;
3
6
75
76
3377
ggn
79
3380
3381

! FORMAL PARAMETERS:
!
TST_PAT
!
DATA PATTERN TO BE MASKED AND
!
COMPARED AGAINST THE CONTENTS
!
OF THE REGISTER UNDER TEST.
!
!
INDEX
!
USED BY THE MACRDO WRT
TO
!
SELECT THE CURRENT REGISTERS ADDRESS
!
FORCED HI, FORCED LO AND DON'T CARE

3
3384

!
!

33%;10

3387
3388
3389
3390

3391

3392

23;2 s

394

4937 :
4938 ;
4939 ;

2&? 3

399

69’-§ 3
4943 ;

1
i

6944 ;
4945 ;
4946 ;
4947 ;
4948 3
4949 ;

144

: FUNCTIONAL DESCRIPTION:

!
!

3385
3386

4933

: novalue =

368
3369

4926 ;
4927 :

49§ 3

(TST_PAT, index, ERR_FLG)

WITH THE MASKED DATA PATTERN
GENERATED BY THE MACRO "WRT_MASK'

4928 ;
4929 ;
4930 :
4931 ;

begin

!
:

4923 ;

49264 ;
4925 ;

routine RD_E1

4905 ;

2&1 3

SEQ 0126

gzga

ASSIGNED A ONE TO INDICATE THE ERROR.

MASK wmnm.
ERR_FLG

!
!

!
!
!
!

CMAINS THE ADDRESS (PASSED BY REF)

OF THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS
OF THE ROUTINE CALL.

IMPLICIT IWTS.

WT_DA

GETSLOADED WITH THE GENERATED

DATA PATTERN THUS ALLOWING

ER TO PRINT FAILING GOOD DATA.

:
!
!

RD _DATA
BETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER

:
!
!

TO PRINT FAILING BAD DATA.

IMPLICIT OUTPUTS:
GLOBAL LOCATION WR_DATA

!
:
H
Sou

AND RD DATA LOADEDWITH GOOD
AND BAD REGISTER DATA

.ERR_FLG = ZERO;

'CLEAR THE ERROR ‘FLAG

TOPS-20 Blis =16 v2(212)
4.BLI.2 (30)

PA: <NEALE>BL

—

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

K10

PAGE 140

SEQ@ 0127
SS-D«-WOO 8:5‘:31
-Dec~-1980
1:22

TOPS-20 Blis -12 v2(212)
PA: <NEALE
.BLI.2 (30)

ECC_DM = ONE;

'SET ECC DIAG MODE

RD_DATA = .MLE1 or .IGNORE;

IREAD AND SAVE THE REGISTER

WT_BATA = WRT MASK;

iSAVE THE DATA WRITTEN TO THE REGISTER

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

ECC_DM = ZERO;

'SET ERROR FLAG IF NEQ
iCLEAR ECC DIAG MODE

end;

163174
000010
000001
000012

013156
000014
mgmo
013162
1
172374
01 1%
1721

RD.E1:
172412

172162

000001

000010

000001

172310

JSR
CLR
BISB
MOV
ASL
ASL
ASL
MOV
MOV
BIS
BIC
MOV
BIS
MOV
MOV
BIS
MOV

R1,$SAVE2
310(sp)
#1,aML.REG+120
12(SP) .RO
RO
RO
RO
RO,R1
ML .REG+2(R1)
,RO
14(SP) RO
ML.REG+4 (R1) ,RO
n..:ssmm.nz
RO,
R2.WT.DATA
M .REG+150,R2
.REG+6(R1)
,R2
RD.DATA

MOV

#1.310(SP)

gz;

18:

IREAD TME REG FOR WRT_MASK

g%ge

; Routine Size:

:
:
* ERR.FLG
:
* INDEX,*

: TST.PAT,*
;

g.mn.m.mm

: *,ERR.FLG

g}.a.nesflzo

41 words

; Maximum stack depth per invocation:

3 words

CZMLABO ML-11 LOGIC TEST

S
REREREIIIR£38

L TR A

AR AR

R P

AT A A

PR TETR

TATE

A TA

PEA TR

PEATEA

PR TR

TNTN T

s sy

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE ‘{41

SEQ 0128 |
4.BLI.2 (31)

~Dec-1980

routine WRT_E2 (TST_PAT, index) : novalue =
begin

1
1

144

LOADS THE ECC CRC WORD

;

WRT_MASK

g
5

; FUNCTIONAL DESCRIPTION:

i
i

| FORMAL PARAMETERS:

TST_PAT

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER.

i
i
i
i

INDEX
USED BY THE MACRO WRT_MASK
TO SELECT THE CURRENT REGISTERS
ADDRESS, FORCED HI, FORCED

INFORMAT ION.

LO AND DON'T CARE MASK

ECC_DM = ONE;

I1SET ECC DIAG MODE

MLE2

= WRT_MASK;

ILOAD MLE2 WITH GENERATED WRT_MASK PAT TERN

ECC_DM

= ZERO;

MLE

MLE
end;

163052

000001

= %£0°177700°;

= %0'000000°;

172274

177700 172334

000010

IMASK OUT DATA DIAG BITS

WRT.E2: JSR

BISB

MOV

IRESTORE MLE2

iCLEAR ECC DIAG

R1,$SAVE2

#-100,ML .REG+166

#1.aML.REG+120

13156

MOV
ASL
ASL
ASL
MOV
MOV

10(SPS RO
RO
RO
RO
RO.R1
né.necozmx.ao

013160
013162

BIC
MOV

ML .REG+4
(R1) ,RO
%.neemm) .R2

800012

BIS

MODE

12(SP) ,RO
R

: INDEX,*

; TST.PAT,*

M10

MACRO M1113 22-DEC-80 12:16 PAGE 16}

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

%
1

S
5066
5071
5072

021

10277 1 Sg:

142

000207

sMLS

172212

BRcUm gy

MOV R2,@ML.REG+160
CLR

Hi.REGfl“

R TS

BI(B

#1,8ML.REG+120

; Routine Size:
31 words
; Maximum stack depth per invocation:

3 words
|
{
'
|

1
|

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 1‘1

ERHAE41
AV Svi ()

routine RD_E2 (TST_PAT, index, ERR_FLG)
begin
! FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS
THE
ECC CRC WORD REGISTER
WITH THE MASKED DATA PATTERN
GENERATED BY THE MACRO 'WRT_MASK'

IF THE COMPARE IS NOT EQUAL THEN

THE FORMAL PARAMETER °'ERR FLG' IS

ASSIGED A ONE TO INDICATE THE

[

VIV

2S5 ;
26 ;
27 :
28 ;

”§§§§§§%§§§§§§§§§§§§§§§§§§§§§§ 333

P PR
TR
P
P
T
A

BIBN

AT AT A T A T A
M

S
i G

gl Gt

gg4 s;

: novalue =

144

A
AT AT A
PR PR PR TR TR TR
PR PR T
PR PR
A

2o IBIRIRERV28

gl g

e
S

Sl S

i S

gt g
G
S
ot g

A AV

20 ;
21 ;

SEQ 0130|
38Dec-198
-Dec=19 0 09:51:

PR PR PR PR TR P

EREERRRREC LS

74 ;M4

FORMAL PARAMETERS:
TST_PAT

DATA PATTERN TO BE MASKED AND

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

INDEX
USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS,
FORCED HI,
FORCED LO AND DON'T CARE

MASK INFORMAT ION.
ERR_FLG

CONTAINS THE ADDRESS (PASSED BY REF)

OF THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS
OF THE ROUTINE CALL.

IMPLICIT INPUTS:

!
:

WT_DATA

g;s LOADED WITH THE GENERATED

DATA PATTERN THUS ALLOWING

R TO PRINT FAILING GOOD DATA.

RD _DATA

DATA READ FROM THE

!H IMPLICIT
OUTPUTS:
GLOBAL LOCATION WR_DATA

98
3499
3500

!
!
!
!'=-

AND RD _DATA LOADED WITH GOOD
AND BAD REGISTER DATA

TOPS-20 Blis

PA: <NEALE>BL

16 v2(212)

4.8L1.2° (32

MACRO M1113 22-DEC-80 12:16 PAGE ?“

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

SEQ 0131

b 0

09: 1:22
33Dec-1980

H, T
i

;

162754
200010

s e [ WY W
b b

RD.E2:
1721 7%
17223

e
e

(=]

SRR

!SET _ERROR FLG IF NEQ

!RESTORE MLE2 MASK
!CLEAR ECC DIAG MODE

JSR
CLR

ERR.FLG

MOV

INDEX
,*

B8IS8
MOV
ASL
ASL
ASL
MOV

MOV
BIS
B8IC
MOV

TST.PAT,»

BIS

171754

MoV

175156
013162
171742
171734

171734

MOV
BIS
MoV
%

000001

000010

MOV

000001

172056

g%gfl

172132

IREAD THE REG FOR WRT_MASK

SeNe NN,

W=
O

pury

=l=
— e kb

ECC DM = 2ERG: 00000
end

013156
000014
013160
013162

2828823

TOPS=20 Bliss=16 v2(212)
PA: <NEALE
2

!CLEAR ERROR FLAG
!SET ECC DIAG MODE
!MASK OUT DATA DIAG BI TS
!SAVE THE DATA WRITTEN TO THE REGISTER
!READ AND SAVE THE REGISTER

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE:

000012

e
B
e
R
B

.ERR_FLG = ZERO;

ECC_DM = ONE;
MLEZ _MASK = %0'177700°;
WT_DATA = WRT_MASK;
RD_DATA = .MLE2 or .IGNORE;

000001
177700

I NEREDERERERNYO a8

§§§§§§§§§§§§§§§§§§§§§§§§
FELS A ———

4:31

Bt b

VNN

v D

B Bt

bt Bt B

\*,B]

et At w
B

IITERBOROR B LR AR LSS RS S ST

6 b 0

—_

[}

CLR

; Routine Size:
46 word s
; Maximum stack depth pe r invocation:

3 words

* ERR.FLG

——

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE g‘;

22-Dec=1980 09:
22-Dec-1980 09:

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3M 4.BLI.2 (33)

: novalue =

‘4

; FUNCTIONAL DESCRIPTION:

LOADS THE PROM DATA
REGISTER WITH A DATA PATTERN
GENERATED BY THE MACRO
WRT_MASK
FORMAL PARAMETERS:

TST_PAT

CURRENT DATA PATTERN TO BE

LOADED IN THE REGISTER.

INDEX
USED BY THE MACRO WRT_MASK
TO SELECT THE CURRENT REGISTERS
ADDRESS, FORCED HI, FORCED

LO AND DON'T CARE MASK
INFORMAT
ION

DATDA =O

RLED o, AT sk
PRO
R = ZERD:
Aend;

838

000010

000010
13156

12
013160
.

172034

WRT.PD:

BISB

#100,aM.REG+120

JSR

R1,$SAVE2

BISB

#10,aML.REG+120

MOV
ASL
ASL

MOV
BIS
BIC

10(5P) ,RO
RO
RO

B
"REG+2(R1)
RO

12(SP) ,RO
ML.REG+4(R1)
,RO

; INDEX,*

: TST.PAT,»

00021553 172042

DATA DI
WWWW

(V. [)¥)

b e

OO~

routine WRT_PD (TST_PAT, index)
begin

e
SR
—

SRS FIONY

FELY
%ggggggga%uumuwmumumum\nmm\nm
OO
w tzk!_.
333
BUR BRIV SS

NN NNNN
NN NN

N SRR883ERREE28BBS

A
i
o

S185 ;M4

ERRERE NNR

SEQ 0132

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

o 1N
PAGE 146

SEQ 0133 |

sMLG

-Dec-1
:2:31
%S-DOP1
:21:22

H
1270

016102

013162

1276

1274

15
171764
10 142777 000100 171756
5248 021316 142777 000010 171750
5249 021326
5250

353

5257

000207

BIS
BISB
BICB
BICB
RTS

T
PA:

G¢6(R1) R2

aML .REG+2

al. REG+1
no.n REG+120

:
:
:

106.01.!!860120

: Routine Size:
35 words
; Maximum stack denth per invocation:

:
3 words

gsA
354

351

CZMLABOML-11 LOGIC TEST

HISCELLNEOJS
CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE sk;

H, T

-Dec~-1980

547

ggg‘» 3

548

' &
8
5268 ;

551

S :

5269 :
70 ;
Se71 ;

routine RD_PD (TST_PAT, index, ERR_FLG)

begin

549

: novalue =

' FUNCTIONAL DESCRIPTION:
ssg)
SS
H
COMPARES THE CONTENTS OF THE
554
!
PROM DATA REGISTER
555
!
WITH THE MASKED DATA PATTERN

3%9

5274 :
Se7S ;
5276 :
5277 :
5278 ;
5279 :
5280 ;
5281 ;
5282 ;
5283
5284 ;
5285 :
5286 :
5287 :
5288 ;
5289 :

3558
3559
3560
3561
328
3
3564
3565
566
S67
3568
3569
3570
3571
35;;
35

!
IF THE COMPARE IS NOT EQUAL THEN
!
THE FORMAL PARAMETER 'ERR FLG' IS
!
ASSIGNED A ONE TO INDICATE THE
!
ERROR
!
! FORMAL PARAMETERS:
!
!
TST_PAT
!
DATA PATTERN TO BE MASKED
!
COMPARED AGAINST THE CMTENTS
!
OF THE REGISTER UNDER TEST
!
!
INDEX
!
USED BY THE MACRO WRT
TO
!
SELECT THE CURRENT REGISTERS ADDRESS.
!
FORCED HI, FORCED LO AND DON'T CARE

5291 ;
529§ $

3575
3576

!
!

5296 :
5295

3578
3579

!
!

5290 :

5293

;

5296 ;

3576

3577

gSBO

GENERATED BY THE MACRO ‘WRT_MASK'

MASK INFORMATION.

ERR FLG
CONTAINS THE ADDRESS (PASSED BY REF)
OF THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS

OF THE ROUTINE CALL.

5297 ;
5298
5299 :

581
358
35

!
! IMPLICIT IWTS
!
WT_DA

5301 ;
5302 :
5303 :
5304 :
5305 :
5306 :

585
586
587
588
589
590

!
!
!
!
!
!

5309 ;
5310 :
5311 ;
531§ 3
5313 ;
5314 :

593
596
595
S
597
598

! IMPLICIT QUTPUTS:
!
GLOSAL LOCATION WR_DATA
!
AND RD DATA LOADEDWITH GOOD
!
AND BAD REGISTER DATA
!
!=-

5300 ;

gg% H

SEQ 0134

SS-Dec-WaO :26:31

1:
3

586 !

231

GETSLOADED WITH THE GENERATED
WRT

DATA PATTERN THUS ALLOWING
ER TO PRINT FAILING GOOD DATA.

RD_DATA
GETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER
TO PRINT FAILING BAD DATA.

:21:22

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3M 4.BLI.2 (34)

H, 8

SEQ 0135

S5Dec-1980 89:51:22
599

ERR_FLG= ZERO;
'

DAT DM = ONE;

RD_DATA = .MLPD or .IGNORE;

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

end;

16251
00001
000100
000010

000012

171730
171722

171512
171764
013162
171500

JSR
CLR
BISB

BISB

MOV

ASL
ASL
ASL
MOV

013156
000014
013160
013162

MOV
BIS
BIC
MOV
BIS

171472

000001
000100
000010

000010
171620
171612

MOV
MOV
BIS
MOV

1%:

!READ THE REG FOR WRT_MASK

!SET ERROR FLAG IF NE
!CLEAR PROM READ WRTE
!CLEAR DATA DIAG MODE

RD.PD:

TOPS~20 Blis =16 v2(212)
4.BLI. 2 (34)

PA: <NEALE

!CLEAR ERROR FLG
!SET PROM READ WRITE
!SET _DATA DIAG MODE
!SAVE THE DATA WRITTEN TO THE REGISTER
!READ AND SAVE THE RE GISTER

WT_DATA = WRT mask;

%355

33EREIRaRIYSRR

§m§§§§§§§§§§§§§§§§ 006 04 U B WBs P Ts S S OO TE &

=0V~

VI
o

PAGE 148

R1,$SAVE?2

310(spP)
#100,aML .REG+120
#10,aML .REG+120
12(SP) .RO

14(SP) ,RO

: TST.PAT,*

* ERR.FLG
:
:
* INDEX,*

RO
RO
RO
RO.R1
ML .REG+2(R1)
,RO
ML.REG+4(R1)
,RO
%.smmn.az

R2.WT.DATA

M .REG+

;

RD.DATA
g.un.m.mm

;

MOV
BI(CB
s#gfl

#100,aM_ .REG+120
#10,aML .REG+120

%.aeewmi.az
#1,310(SP)

; Routine Size: 47 words
; Maximum stack depth per invocation:

: *,ERR.FLG

:
;
3 words

i §

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

A B4 )

MACRO M1113

CZMLABO ML-11 LOGIC TEST

22-DEC-80 12:16

6n
PAGE 149

23—00«:-1 980 09 :26:31

H, T

22-Dec-1980 09 :21:22

MISCELLANEOUS CODING SEC

MACRO M1113

CZMLABO ML-11 LOGIC TEST 108

routine WRT_EL (TST_PAT, index)
begin

SEQ 0136
TOPS~20 Bliss=16 v2(212)

PA: <NEALE>BL 3mé.8LI.2(35)

: novalue =

l44

‘ FLNCTIM DESCRIPTION:
DUMMY ROUTINE CALL TO ASSIST IN THE READ
WRITE REGISTER ALGORITHEM

FMTPMTERS.

DATIPATTERN TO BE MASKED AND

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST

INDEX
USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS,

FORCED HI, FORCED LO AND DON'T CARE
MASK INFORMAT ION.

ERROR LOCATION REG IS READ ONLY
return;

end;

WRT.EL: RTS

3612

; Routine Size: 1 word
; Maximum stack depth per invocation:

0 words

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H 1

PAGE 150

5413H, A
g‘: :

542

routine RD_EL (TST_PAT, index, ERR_FLG)

552%2s

5427 ;
5428 ;

3644
s

!
!

5631 ;
54%% 3
5633
5634 ;
5435
5636 :
5437 :

3648
3649
3650
3651
52
53
3654

!
IF THE COMPARE IS NOT EQUAL THEN
!
THE FORMAL PARAMETER 'ERR FLG' IS
!
ASSIGNED A ONE TO INDICATE THE
!
ERROR
!
! FORMAL PMTERS.
!
TST

5439 ;
5440 ;
5441 ;

56
3657
3658

!
!
!

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST

!
!

USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS.

Ss‘l:% :

su.g 3

5443
;
5444 ;

5445
5446
5447
5448

:
;
:
;

5450
5451
5452
5453
5454
5455

;
;

5449 ;

;

5456 ;
5457

5458 ;

1 tes

: FUNCTIONAL DESCRIPTION:

ggSS '
3659

3662
3663
3664
3665

!
!
!
!

%0
]

3666

begin

: novalue =

5438 ;

COMPARES THE CONTENTS OF THE
ERROR LOCATION REGISTER

WITH THE CONTENTS OF TST_PAT.

DAT!PATTEM TO BE MASKED AND
INDEX

FORCED HI, FORCED LO AND DON'T CARE
MASK INFORMATION.
ERR FLG

CONTAINS THE ADDRESS (PASSED BY REF)

3667
3668
3669
3670
3671
36;5

!
OF THE CALLERS ERROR FLG TO ENABLE THE
!
CALLER TO EXAMINE THE ERROR STATUS
!
OF THE ROUTINE CALL.
!
! IMPLICIT I'PUTS.
!
WT _DA

3676

WRT MASK DATA PATTERN THUS ALLOWING
RD_DATA
GETS LOADED WITH DATA READ FROM THE

3675

GETSLOADED WITH THE GENERATED

CALCER TO PRINT FAILING GOOD DATA.

5459 :
5460
5461 ;

3676
3677
3678

!
!
!

5464 ;
5465 ;
5466 ;
5467 ;

3681
gggi

!
! IMPLICIT OUTPUTS:
!
GLOBAL LOCATION WR_DATA
:
AND RD DATA LOADEDWITH GOOD

3263

5468

5469 ;
5470 ;
5471 ;
5472 ;

55-00:-1980 83:54:31
-Dec-1980
:21:22

Sszgg :

)

380
5

!
o

TOPRINT FAILING
BAD BATA-

AND BAD REGISTER DATA

.ERR_FLG = ZERO;

SEQ 0137

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BL3ML¢ .BLI.2 (36)

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE {S‘l

MISCELLANEOUS CODING SECTION

2274 sMLG
;2 3

SEQ 0138

ss-m-mo 83:%4:31
-Dec=1980
09:21:22

&77 3

WT_DATA = _TST_PAT;

gz& :
saaz” :

g‘
95

if .RD_DATA neq .WT_DATA then .ERR_FLG = ONE;
end;

s&;’p :

021466
‘l%

005079
1

000002

S4
5494
5495
g“%

S06
514
516
1524

026767
001403
012776

171416

s:.gg

5498

?’sg
5505

'SAVE THE DATA WRITTEN TO THE REGISTER

RD_DATA = .MLEC;

5490
5691

017762 171670

000001

171656

RD.EL:

171422
000002

'READ AND SAVE THE REGISTER

CLR
MOV

MOV

171412
18:

TOPS=-20 Bliss=16 v2(212)
PA:<NEALE>BL3MLS
.BLI.2 (36)

P
BEQ
MOV
RTS

; Routine Size:

'!READ REGISTER FOR WT_DATA

82(SP)
6(SP) T JATA

: ERR.FLG
; TST.PAT
>

RD.DATA,WT.DATA
18
#.,32(SP)
PC

am_ REG+220,RD.DATA

16 words

; Maximum stack depth per invocation:

0 words

3691

; *,ERR.FLG
:

.
3638

369

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

5507 El‘o
g
3
}69?
9

5515
;
5514 ;
5515 :
5519 |
517
;
5518 ;
5519 ;

5520 ;
5521 :

SS%;
5523
5524
5525
- 5526
5527
5528
5529
5530

3
.
;
;
;
;
;

5533

;

;
5531 ;
SSg 2

ggg :

SS‘% 021526

554
5544
5545

22-DEC-80 12:16

J 1
PAGE 152

5510 ;
5511 ;

$S1§ 3

MACRO M1113

routine WRT_EE (TST_PAT, index)
begin

SS-D«:-WOO 09:24:31
-Dec~-1980 09:21:22
: novalue =

705

l+e
! FUNCTIONAL DESCRIPTION:
!
DUMMY ROUTINE CALL TO ASSIST IN THE READ
'
WRITE REGISTER ALGORITHEM
!
! FORMAL PARAMETERS:
!
TST_PAT

708
3709
3710
3711
371;
37
gfllo
715
3716

!
!
!
!
!
'
!
!
'=—

1
70§
703

709
70

3717
3718
3719

3720

000207

!
H

SEQ 0139

DATA PATTERN TO BE MASKED AND
COMPARED AGAINST THE CONTENTS

OF THE REGISTER UNDER TEST

INDEX
USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS.
FORCED MI, FORCED LO AND DON'T CARE
MASK INFORMATION.

! ECC ERROR REGISTER IS READ ONLY
return;

end;

WRT.EE: RTS

‘

: Routine Size: 1 word
; Maximum stack depth per invocation:

0 words

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3MLé.BLI.2 (37)

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SEC

SS3 ;M4
554 ;
S
5556
;
5557 ;
5558
5559 :
5560 :
5561 ;
b
3
S
:
5564 ;
5565
5566 ;
5567 :
5568 ;
5569 :

R
3578
5574 :
§S7S
5576 :
§577 :

3579

3383

ERERESEEJUEIYITEHY

5584 :
5585 :
5586
5587 :

—

MACRO M1113 22-DEC-80 12:16 PAGE 15}

SEQ 0140

S -Dec-1980 09:34: 31

-Dec=1980 09:21 122

1
75

routine RD_EE (TST_PAT, index, ERR_FLG)
begin

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3ML4.BLI.2 (38)

: novalue =

144

! FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE
ECC ERROR REGISTER WITH TST_PAT.
1

738
3739

g;co
41
g;l.

3764

37¢8

3749
750
751
375;

3755

s
3

757
3758

IF_THE COMPARE IS NOT EQUA'. THEN
THE FORMAL PARAMETER 'ERR FLG'' IS

Wb A ONE TO INDICATE THE
FORMAL PARAMETERS:
TST_PAT

DATA PATTERN TO BE

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

INDEX
USED BY THE MACRO MLEE TO
SELECT THE CURRENT REGISTERS ADDRESS.

ERR_FLG

CONTAINS THE ADDRESS (PASSED

BY REF) OF THE CALLERS ERROR FLG TO ENABLE
THE CALLER TO EXAMINE THE ERROR STATUS

OF THE ROUTINE CALL.

IMPLICIT INPUTS:
WT_DATA

GETS LOADED WITH THE TST_PAT
THUS ALLOWING CALLER TO PRINT
THE FAILING DATA.

RD_DATA

GETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER
TO PRINT FAILING BAD DATA.

IMPLICIT OUTPUTS:
GLOBAL LOCATION WR_DATA
AND RD_DATA LOADED WITH GOOD

AND BAD REGISTER DATA

.ERR_FLG = ZERO;

'CLEAR THE ERROR FLAG

RD_DATA = .MLEE;

'READ AND SAVE THE REGISTER

WT_DATA = .TST PAT;

!SAVE DATA WRITTEN TO THE REGISTER

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE #54

MISCELLANEOUS CODING SECTION

}? MG
:

:26:31
5 -Dec-1
-m-133 83:51:32

“}5 :

77;2

5614 :

775

552}5 3

776

15
53%

sgs
5

SEQ 0141 |

if .RD_DATA neq .WT_DATA then .ERR_FLG = ONE;

17767 171616 171360
171356

556
001403
1560 012776 000001

'READ MLEE FOR TST_PAT

ISET THE ERROR FLAG IF NEQ

end;

oosorg 000002
RD.EE: CLR
01
oggooe 171364
MOV
767

TOPS=20 Bliss=16 v2(212)
PA:
NEALE>BLIM4.BLI-2 (38)

MOV

171350

000002

18:

BEQ
MOV
RTS

a2(sP)
6(SP) ,WT.DA

; ERR.FLG
: TST.PAT,*

37
B

RD.DATA,WT.DATA

L. nécmoao DATA

18
#1,32(SP)
PC

; Routine Size:
16 words
; Maximum stack depth per invocation:

; *,ERR.FLG
:
0 words

3771
3721

CZMLABO ML-11 LOG IC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 15;

SEQ 0142 |

s 5£§

S5Dec-1980 09:21:22
routine WRT_D1 (TST_PAT, index)
begin

TOPS-20 Blis 16 v2(212)
4.BLI.2 (39)

PA: <NEALE

: novalue =

£33

! FUNCTIONAL DESCRIPTION:

LOADS THE DATA DIAG REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK

| FORMAL PNWE TERS:
TST_P.

fw DATA PATTERN TO BE LOADED IN THE REGISTER.
TO SELECT THE CURRENT REGISTERS ADDRESS,

DON'T CARE MASK INFORMATION.

DAT DM = ONE;

!SET DATA DIAG MODE

MLDT = WRT MASK;
DAT_DM = ZERO;

!LOAD MLD1 WITH GENERATED WRT_MASK PATTERN
!CLEAR DATA DIAG MODE

d-.g

162250

000010

171472

MOV

s INDEX,»

&1)&1)56

MOV

013160
013162

BIC
MOV

%.56060!1)‘R2

MOV

2. aML .REG+170

171500

r3=1

BIS8

ASL
ASL
ASL
MoV

WRT.D1: JSR

258

end;

000010

BIS
BIS

171422

s{’gfl
; Routine Size:

né.nesozm).ao
1 (sm.no
ML.REG+4(R1) ,RO

;

10,3 .REG+120

26 words

: Maximum stack depth per invocation:

TST.PAT
,»

#3828

USED BY THE MACRO WRT
FORCED HI, FORCED LO

3 words

.
CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22~DEC-80 12:16

N1
PAGE 156

gg s
%9? 3

83-Dec-1980 99:34:3)
795

3% :

g;gt‘) :

799

5577853

5699 :

:
5704 :
g;g :

5707 :

5708 :

5709 :

5710 :
5711 :
g;}g :

routine RD_D1 (TST_PAT, index, ERR_FLG)

144

i
i
:
i

OMPARES THE CONTENTS OF THE

mm DIAG REGISTER 1
WITH THE MASKED DATA PATTERN
GENERATED BY THE MACRO ' WRT_msx

IF THE COMPARE 1S NOT EQUAL
T

THE FORMAL PARAMETER 'ERR n.e' 1s

ASSIGNED A ONE TO INDICATE THE

10
38}1

3814

38}9

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

gg;g

USED BY THE MACRO WRT

5725 :

ggl.

ERR FLG

5727 :

ggzza :

5715 :

5716 :

smn; 3

5719 :

5720 :

3753

5726 -

5728 :
ggg :

gglg i
3815

ifiu i

3851 |
5

TST_PAT

DATA PATTERN TO BE MASKED AND

INDEX

CONTAINS THE ADDRESS (PASSED BY REF)

OF THE CALLERS ERROR FLG TO ENABLE THE

5731 :

3830

| IMPLICIT INPUTS:

573% :
ggg :

ggts.

i
:

5737 :

3831
ssg:g

WT_DATA
Gsrs LOADED WITH THE GENERATED

RD_DATA

% i

g;l‘.? ;

5742

5725 :

5744 *
5745 5749 3
5747

3846

DATA PATTERN THUS ALLOWING
en TO PRINT FAILING GOOD DATA.

BETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER
TO PRINT FAILING BAD DATA.

| IMPLICIT OUTPUTS:

ggg i
3844
3845

CALLER TO EXAMINE THE ERROR STATUS
OF THE ROUTINE CALL.

!
i

5738 :

5739 :

’5%%25 e r‘m"‘“‘"m'LS‘
"D DON T CARE"

7
3828

ggg 3
:

: novalue =

| FUNCTIONAL DESCRIPTION:

i
@

ooy

i
ERROR.
|
| FORMAL PARAMETERS:

5714 :

SEQ 0143

i
|
!

GLOBAL LOCATION WR_DATA

AND RD DATA LOADEDWITH GOOD
AND BAD REGISTER DATA

TOPS~20 Blis 16 v2(212)
4.BL1I.2 (40)

PA: <NEALE

P—

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODINC SECTION

MACRO M1113 22-DEC-80 12:16 PAGE ?s}

%9 ;M6

-Dec~-1

75 :

S :

5758 :

ggsi

S760 ;

ggSS

g;ssg :

§1

5759 -

S761 ;
5762
5763

:
;

.ERR_FLG = ZERO;

g;gg 3

3859

5766 -

5769 :

33%;

§771 :

ggge

g;g :

5777 °

5781 021654

i
5794

5795

iSET ERROR FLAG IF NEQ

btgin

CLR_MBUS
;
DAT_DM = ONE;

ICLEAR MBUS TO GENERATE INIT DATA

end;

WT_DATA = WRT_MASK;

ISAVE THE DATA WRITTEN TO THE REGISTER

RD_DATA = .M.D1;

iREAD AND SAVE THE REGISTER

if .RD_DATA neq .WT_DATA then .ERR_FLG = ONE;
CLR_MBUS;

004167 ' 162164

IREAD MLD1 FOR WRT_MASK

ISET ERR_FLG IF NEQ
iCLEAR TRE MBUS
RD.D1:

JSR

021714

R1,$SAVE2

I
BICB

flgiaiaes

REG.INIT.FLG. M

BIS8
BISB

021706

BNE
BISB

L <

1.@ML.REG
@M .REG+120

1$
#40,aML.REG+40

AR1

3795,

B,
:

3851

;

3856,

;

3858

384

3853

BIC

102175

021762

5799
021774
5800 021776

ISEE IF CALLER IS REG INIT TEST

then

18:

5797

5798

iDO A DATA CLK

if .REG_INIT_FLG IS_SET

3783 oo1een
152978 00001
021672
i

é.BLI.2 (40)

iLOAD MLCST WITH WRITE FUNCTION

ONE;

. 378

5785
5786
5787
5788
5789

PA: <NEALE

iSET DATA DIAG MODE

ML_FUNC = write;
DAT_CLK =

TOPS=20 Bliss=16 V2(212)

:21:22

ICLEAR THE ERROR FLG

DAT DM = ONE:

57
58

g;gg :

SEQ 0144

3 -ooc-1g£ 83: %:31

' :

S?Si 3
§753 :

010001
016100 013156

5801 022002 856600 000014

5802 022006 046100 013160

A
BISB
#10,aML.REG+120
fl

;S(sr).no

ASL

MOV
MOV

RO,R1
ML .REG+2(R1)
,RO

BIC

ML .REG*+4 (R1) ,RO

BIS

* INDEX,*

14(SP) ,RO

3861

: TST.PAT,»

,
|

CZMLABO ML-17 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 558

3818 0
5319 Y.

5818
5819 (
5821
582

;

SEQ 0145 |

sMLG

gs-oormo 09:24:31

-Dec=1980 09:21:22

013162

MOV

171102
1721314 171076

MOV
MOV

000001

MOV
BISB

171072

171066

171136 28

i
000007 171120
171114

.
.

.gscowm .R2

BIS

acg

g.mn.ur.ém

BIt
BICB

R2.WT.DATA
aML.REG+170,RD.DATA

#1,310(SP)
#40,aML.REG+40

: *,ERR.FLG

#i9PT0
A2 #7.aML.REG+40

BISB
R2.aML.REG+40
RTS
PC
: Routine Size: 75 words

: Maximum stack depth per invocation:

;
3 words

PA:

|
|

|
3795
i

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE D15;12
s -Dec-1980 88:56:31

-Dec=1980

09:21:22

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3MLS.BLI.2 (41)

g8
b

=8
23
et

'00

i FUNCTIONAL DESCRIPTION:

LOADS THE DATA DIAG REG 2 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK

cmliem DATA PATTERN TO BE LOADED IN THE REGISTER.

i
:

useo av THE MACRO WRT
FORCED HI, FORCED LO

i FORMAL mwtrsas
ST P
i

10 sev.scr T’E cmne
DON'T CARE MASK

DAT_DM = ONE:

iLOAD "iD2 WITH GENERATED WRT_MASK PATTERN
iC'TAR DATA DIAG MODE

161736
WRT.D2: JSR
171160
BIS8
000010
MOV
ASL
ASL
. ASL
MOV
013156
MOV

R1,$SAVE2
#10,aML.REG+120
10(5P) ,RO
RO
RO
RO
RO,R1
né
RE5+2(R1) ,RO

013162

MOV

%.gsemm)R2

171176

MOV

12
013160

000010 171110

REGISTERS ADDRESS,
TION.

ISET DATA DIAG MODE

MLD2 = WRT MASK:
DAT_DM = ZERO;
end;

000010

-2

RERERERERRNARES

eR §§§§§§§§auau:aaxao

routine WRT_D2 (TST_PAT, index) : novalue =
begin

S s e
G
R

SEQ 0146 |

BIS
BIC

BIS

ggga

; Routine Size:

;
:
* INDEX,*

12(SP) RO
ML.REG+4 (R1) ,RO

: TST.PAT,*

ML .REG+200

nb aML.REG+120
26 words

; Maximum stack depth per invocation:

:
3 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 563

gg‘.’: H, A

gg H

3887 ;

S888
S889

m H

SS-D«:-WGO :24:31

-Dec=1980 09:21:22

?fi? routine RD_D2 (TST_PAT, index. ERR_FLG) : novalue =
begin

1e4

' FUNCTIONAL DESCRIPTION:

509§ 3

gggl’s H
s
5896 ;
S897
S898 ;

!
:
!
!
:

WITH THE MASKED DATA PA:"EM
GENERATED BY THE MACRO 'WRT_MASK'',
IF THE C
AREIWEMT’ENT"E
FORMAL PARAMETER 'ERR FLG''
ASSIGNED A ONE TO INDICATE flf

DATA PATTERN TO BE MASKED AND

5893

COMPARE THE CONTENTS OF THE

DATA DIAG REGISTER

S899
5900 :
5901 ;

1
%

!
ERROR.
!
! FORMAL PARAMETERS:
!
!
TST_PAT

5905 :
5906 :
5907
5908 ;
5909 ;
5910 ;
5911 ;
5912 ;
5913
5914 :

ggb
y
3908
3909
3910
3911
3915
391
3914
&s

!
.2
!
!
!
!
!
!
!
!

5916 ;
5917 ;

3917
53118

5920 ;

%35? ! IMPLICIT lM'UTS

ggg :

392

Sggg 3

5904

5915 :

23113 3
5921 ;
3

5924 ;
S

5928

!
!

INDEX
USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS.
FORCED HI, FORCED LO AND DON'T CARE

MASK wmnm.
ERR FLG

CONTAINS THE ADDRESS (PASSED BY REF)

OF THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS

OF THE ROUTINE CALL.

g%i

WT_DATA

WRT

RD _DATA

ggg H

]

5931 ;
59§ :

5935 .
5936 :
5937 ;

CM’ARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

5933
.
5934 :

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3ML¢.BLI.2 (42)

9.
935

o
37
938

GETS LOADED WITH THE GENERATED

DATA PATTERN THUS ALLOWING
ER TO PRINT FAILING GOOD DATA.

BGETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER

TO PRINT FAILING BAD DATA.

! IMPLICIT OUTPUTS:
!
GLOBAL LOCATION WR_DATA

:
!

'
==

AND RD DATA LOADEDWITH GOOD
AND BAD REGISTER DATA

SEQ 0147

MACRO M1113

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

F 12

PAGE 161

-Dec=19

20 ;

SS—D«-W&% 88 1:22
WN—=O0

M__FUNC = write;

DATCLK = ONE;

FENEMII

if .REG_INIT_FLG IS_SET
then
in

!CLEAR MBUS TO GENERATE INIT DATA

SA
T-DM = M

end;

!SAVE THE DATA WRITTEN TO THE REGISTER
!READ AND SAVE THE REGISTER

WT_DATA = WRT_MASK;

RD_DATA = .mLD2;

if .RD_DATA neq .WT_DATA then .ERR_FLG = ONE;

170734

ooo%g
170

1
01

170742

8ICB

BIS8

171046
000001

B8IS8
4,4

170750

BIS8
MOV

1155177 370796
: 7 170732
152777
56

000010

CLR
BIS8

171000

gi&
818
18:

B8IS8
MOV

ASL
ASL
ASL
MOV
MOV
BIS
BIC
MOV
BIS

R1,$SAVE2
810(SP)

ERR.FLG

-@ML .REG+120
ML .REG
ML .REG
-@ML .REG+120
M
REG.INIT.FLG.
ML .REG+40

2=}

000061

0000

JSR

32333:

171070

152777
727

RD.D2:

+ INDEX,*

162777

152777

161655

00001
000010

!READ MLD2 FR WRT_MASK PATTERN

!SET ERROR FLAG IF NEQ
!CLR MASS BUSS

AR EI3I3N-o
J2A e
=3

é.8L1.2 (42)

!SEE IF CALLER IS REG INIT TEST

CLR_MBUS;
end;

TOPS-20 Bliss~ 6 v2(212)

PA: <NEALE

'CLEAR ERROR
F
iSET DATA DIAG MODE
'LOAD WRITE FUNC TO CS1
'DO A DATA CLOCK

.ERR_FLG = ZERO;

DAT DM
= ONE;

3955

004167

4:31

;

TST.PAT,»

3 P OPREEE

SEQ 0148 |

MACRO M1113 22-DEC-80 12:16 PAGE ?62

CZMLABO ML-11 LOGIC TEST

SEQ 0149

25-00&1980 09:24:31

000001

L
2

170606

22-Dec-1980 09:21:22

§§§§§§§§3§§

17052

19;27 }7101

£&

10267

SRR

MISCELLANEOUS CODING SECTION

R2,WT.DATA

395
%2

@ML .REG+200,RD.DATA
RD.DATA,Wi.DATA

" 310(5?)

;

b @ML .REG+40

T
#7, 3L .RE5+40

2 aML.REG+40

; Routine Siu 75 word
: Maximum stack depth per invocation:

TOPS

PA:<

*,ERR.FLG

3887
3 words

MACRO M1113 22-DEC-80 12:16 PAGE 161

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

0 :21:22
$5Dec-19809
:264:31

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BL3ML¢.BLI.2 (43)

routine WRT_D3 (TST_PAT, index) : novalue =
961

begin

144

i FUNCTIONAL DESCRIPTION:

LOADS THE DATA DIAG

WRT_MASK.

FORMAL PARAMETERS:
TST_PAT

CURRENT DATA PATTERN TO BE

LOADED IN THE REGISTER.

INDEX
USE BY THE MACRO WRT

TO SELECT THE umertmé'éxsrens

ADDRESS, FORCED MI. FORCED

LO AND DON'T CARE MASK
INFORMATION.

MLE2MASK
io
= 000377*;
= WRT
DAT DM
=

'SET DATA DIAG MODE
!MASK OUT ECC CRC WORD BITS
ILOAD MLE2 WITH GENERATED WRT_MASK PATTERN
!RESTORE MASK
!CLEAR DATA DIAG MODE.

n.sz

a;zmmsx ;Rgo"ioosooz
end;
161424

000010

170646

000
170706
000010
013156
00001
0131

013162

WRT.D3: JSR

BIS8

MOV
MOV
ASL
ASL
ASL
MOV
MOV
BIS
BIC
MOV

R1,$SAVE2

#10,aML.REG+120

#377
ML .REG+166
10(sP),
RO
RO
RO
RO.R1
né.aemzm).no
12(SP) RO
ML .REG+4
(R1) ,RO
ML .REG+6(R1)
.R2

L Y

(V2 1,¥) —t

S R§ g

SEQ 0150

s INDEX,*

TST.PAT
»

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE {64

6073

sMLG

6076

g
;g

% 022512

&i
8088
6089

SEQ 0151

10’
157%

000207

‘

170636
100300

000010

170636
170562

2-Dec=1 980 09:%6:31
2-Dec-1 980 09:21:22

8IS

MOV
MOV

8I(8
RTS

PA: '

RO.R2

£
REG+160
#-77500
,ML .REG+166
#10,@ML.REG+120

3939

3959

: Routine Size: 32 words
; Maximum stack depth per invocation:

3 words
|
|

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 16;

6091 ;M6

LJ
Ld

}

OVRNOVESWN=O
=

1
1

2123

6131

61§
g}

6135

6136
6137

g};g

6140
6141
61
614
6144
6145

.
.

routine RD_D3 (TST_PAT, index, ERR_FLG) : novalue =
begin

144

i FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE
DATA DIAG REGISTER 3

L4
.
L4

L4
.
.
Ld
.
.
L
.
.
L4

.
.
L4

.
L
.
L4
.
L4

L4
.
L

L4
L
k2

k2
L4
L4

L4
.

.
L4
@
L4
L4
-

’

k2
.
L4

WITH THE MASKED DATA PATTERN

600‘0001

GENERATED BY THE MACRO ‘WRT_MASK''.

600§

IF THE COMPARE IS NOT EQUAL THE

400
4004
4005

shssassabRRssssasessetenss

-t

1
i
99

NRUNONNY
IR IR a om0 BRI IRER2E

1
1

-Dec=19

(:0‘98(‘099

SEQ 0152
Ss-oec-w
09 4:31

% :

609
6095
6096
6097

FORMAL PARAMETER ‘ERR_FLG'' IS
ASSIGNED A ONE TO INDICATE THE
ERROR.
FORMAL PARAMETERS:

TST_PA

DATIPAYTEM TO BE MASKED AND

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

INDEX
USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS,
FORCED HI,
FORCED LO AND DON'T CARE

MASXINFORMATION
ERR_FLG

CONTAINS THE ADDRESS (PASSED BY aen

OF THE CALLERS ERROR FLG TO ENABLE
T

cn.usn TO EXAMINE THE ERROR STATUS

OF THE ROUTINE CALL.

xmucn ururs

GersLOADED WITH THE GENERATED
WRT

RD DATA

BETS LOADED WITH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER

403%

fiss

40%9

4038
4039
4040
4041
40462

DATA PATTERN THUS ALLOWING

R TO PRINT FAILING GOOD DATA.

TO PRINT FAILING BAD DATA.

IMPLICIT OUTPUTS:

GLOBAL LOCATION WR_DATA
AND RD DATA LOADEDWITH GOOD
AND BAD REGISTER DATA

:21:22

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BL3MLS.BLI.2 (44)

SEQ 0153

ss
-Dec-19
-Dec=19

6147 ;MG
6148 ;

4044
4045
046
4047

.ERR_FLG = ZERO;
MLE2"MASK = Xo'000377°
DAT DM = ONE;
ML_FUNC = write;

4050

!LOAD WRITE FUNCTION TO MLCST
!DO A DATA CLOCK

if .REG_INIT_FLG IS_SET

4051

then

405
4054

CLR_MBUS;
DAT-DM = ONE;

2055

end;

405

WT_DATA = WRT

‘68553

!SEE IF CALLER IS REG INIT TEST
!CLEAR MBUS TO GENERATE INIT DATA

ISAVE THE DATA WRITTEN TO THE REGISTER
iREAD AND SAVE THE REGISTER

RDMTAs.!l.2or.IME

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

MLE2 MASK = 20'100300°;
CLR
s

1613%4

RD.D3:

77 7
152777

170610
179 170534
1
1 1
170512
000001
170414

7 170376

150177

8}61

056600

000010

000012

013156
000014

170444

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BL3ML 4.BLI.2 (44)

!CLEAR ERROR FLAG
!SET DATA DIAG MODE

DAT_CLK = ONE;

4049

09 %:31
:21:22

'READ THE REG FOR WRT_MASK

!CLEAR THE MASS BUS

.C:Ls:

m ssavsz

MOV
BIS8
BICB
BIS8
BISB
gz
BISB

03 .unssnee
fi.a-REG+120
TaML .REG
1.@ML .REG
#20.aML .REG+120
%G.INITFLG.M
#40,aML.REG+40

ERR.FLG

EA
R1
BICB
c?.u.fiesug

BIC

BISB

18:

BISB

MOV
ASL
ASL
ASL

fl
BIS

R1.aML.REG+4

#10,aM .REG+120

12($P) .RO

u'gcozmv RO
14(SP),

* INDEX,*

: TST.PAT
,»

MISCELLANEOUS CODING SECTION

K12
PAGE 166

22-DEC-80 12:16

8585

MACRO M1113

LA TR TR TR

CZMLABO ML-11 LOGIC TEST

MACRO Mi113 22-DEC-80 12:16 PAGE %;2

SEQ 0154 |
5 -Dec-1980 oo:gl.m
TOPS

ga~28 3383233535

¥33

OODORE®

:-.g-.-. 28 332

ddodd

~Dec=1980 09:21:22

RTS

; Routine Size:

”:j

ML .REG+4(R1)
,RO
%.56%(&1).'!2
R

JWT.DATA
ML .REG+160,R2

4058

:né.nssmm §.R2
JRD.DATA

4060

g.um.ao.ma

1193001, REG#166

: *,ERR.FLG

#60,@ML .REG+40

4062

R2
s

#7, ML .REG+40

g%.fl..REGMO
84 words

; Maximum stack depth per invocation:

3991
3 words

CZMABO ML-11 LOGIC TES T
MISCELLANEOUS CODING SE CTION

MACRO M1113

22-DEC-80 12:16

Hd?.
PAGE 1

H, )
S :

:
3
1:

43 ;

S
3
7 :

S5Dec-1980 09:31:22
2065

routine WRT_DS (TST_PAT, index)
begin

: novalue =

4063
: FUNCTIONAL DESCRIPTION:
DUMMY ROUTINE CALL TO ASSIST IN THE READ
6090
%71
WRITE REGISTER ALGORITHEM
144

l.og rm gMflt TERS:
4074
4075
DATXPA;YEM TO BE MASKED AND
407

:
6249 ;
:

4078
4079
4080

6254 :
6255 :

4084
4085

6257 ;
6258 ;
6259 :
6260 ;
6264
6268 022764
6269
6270
627
6276
6277

4087
4088
4089
4090

| I

SEQ 0155 |

4081

000207

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST

INDEX
USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS.
FORCED MI
roaceo LO AND DON'T

MASK INFORMATION

DRIVE STATUS REG IS READ ONLY

WRT.DS: RTS

; Routine Size:
1 word
; Maximum stack depth per invocation:

0 words

TOPS-20 Blis =16 v2(212)
6 .BLI.2 (45)

PA: <NEALE>BL

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 16%
N

79 ;M4

:H
6293

~Dec-1980

4091

409§

routine RD_DS (TST_PAT, index, ERR_FLG) : novalue =

283/. 144

4095

: FUNCTIONAL DESCRIPTION:

409;
!
4098 !

COMPARES THECONTENTS OF THE

4099
2}8?

!
:

;

610§

IF THE COMPARE IS NOT EQUAL THEN

6106

ASSIGNED A ONE TO INDICATE THE

6109 !
4110 !

T_PAT
Mfl PATTERN TO BE MASKED AND

411%
&N

OF THE REGISTER UNDER TEST.

@ 3

410

6296 ;
6297 :
6298 ;

6105
4106
2}8:

630; H

4111

6305 :
6306 ;
6307 ;
6308 :

4114
6115
6116
4117

!
!
!
!

6310 :
6311 ;

4119
6120

6313

6122

2% 3
6301 ;

6303 ;
6304 ;

6309 :

631§ s

;

6314 ;
6315 ;
6316 ;
6317 ;
6318 ;
6319 ;
6320 ;
6321 ;
632; :
6323 ;

6326 ;
6325 ;
6326 ;
6327 ;
6328 ;
6329 ;
6330 ;
6331s

63
633

begin

DRIVE STATUS REGISTER WITH THE
MASKED DATA PATTERN
GENERATED BY THE MACRO °‘WRT_MASK',

:
3

SEQ 0156

SS-D«-WBO 83:56:31

9 :
H

4118

4121

412
4124
6125
4126
4127
41
41
41
64131
413;
4133
61346
6135
6136
4137
4138
4139
6140

4141
4142

THE FORMAL PARAMETER °'ERR FLG' IS

!
ERROR.
!
: FORMAL PARAMETERS:

!
!

|
|
!

TOPS=20 Bliss=16 v2(212)

PA:<NEALE

4.8LI.2 (46)

f
;

COMPARED AGAINST THE CONTENTS
INDEX

USED BY THE MACRO WRT
T0
SELECT THE CURRENT REGISTERS ADDRESS.
FORCED HI FMCED LO AND DON'T CARE

MASK INFORMATION
ERR _FLG

CONTAINS THE ADDRESS (PASSED BY REF)

|
|

OF THE CALLERS ERROR FLG TO ENABLE THE

!
CALLER TO EXAMINE THE ERROR STATUS
!
OF THE ROUTINE CALL.
!
! IMPLICIT l"UTS
!
WT_DATA
!
GETS LOADED WITH THE GENERATED
!
DATA PATTERN THUS ALLOWING
!
ER TO PRINT FAILING GOOD DATA.
!
!
RD_DATA
!
GETS LOADED WITH DATA READ FROM THE
!
REGISTER THUS ALLOWING CALLER
!
TO PRINT FAILING BAD DATA.
!
! IMPLICIT OUTPUTS:
!
GLOBAL LOCATION WR_DATA
!
AND RD DATA LOADEDWITH GOOD
!
AND BAD REGISTER DATA

!
'--

09:21:22

’

MACRO M1113 22-DEC-80 12:16 PAGE ?733

CZMLABO ML-11 LOGIC TESTI
MISCELLANEOUS CODING SECTION

S ;M.

-Dec=1

3
:H

6143
4144

1:;

2}29

&‘ :

&z :

50 :

854
63

.ERR_FLG = ZERO;

WT_DATA = WRT

2}23

if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

4151

RD.DS: JSR

goso 6 000010
16600 000012

CLR
250!

ASL

ASL
MOV
MOV
BIS

1
6100 013156

100
16102

01
01
056102
01
026767
001403
012776
207

000014

013160
013162

BIC
MOV

170066
170160
013162
170054

170046 170046

000001

000010

18:

MOV
MOV
BIS
MOV
CW
BEQ
MOV
RTS

; Routine Size:

IREAD AND SAVE THE REGISTER

'READ THE REG FOR WRT_MASK

ISET ERROR FLAG IF NEQ

end;

Bliss=16 v2(212)

ISAVE THE DATA WRITTEN TO THE REGISTER

RD_DATA = .MLDS or .IGNORE;

004197 161052
8}

TOPS=20

35-»«-1833 83: 1:22 PA:
ICLEAR THE ERROR FLAG i

4145

4150

:26:31

SEQ 0157|

R1,$SAVE2

310(sP)
;(z)(sm,ao

: ERR.FLG
* INDEX,®

é.BLI.2 (46)

‘
|

4091

4144
4145

RO
RO,R1
ML .REG+2(R1) ,RO
14(SP) ,RO

: TST.PAT,*

ML.REG+4 (R1) ,RO
n..gsemm).nz

|
|
|
«
l

R2.WT.DATA
ML .REG+50,R2
ML.REG+6(R1) ,R2
R2.RD.DATA

;

|
4146

WT.DATA.RD.DATA

41451

#1,310(SP)

: *,ERR.FLG
:

|
4091|

35 words

; Maximum stack depth per invocation:

3 words

Ss-bec-w :26:31
-Dec-19
:21:22

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3ML¢ .BL1.2 (47)

routine WkT_REG (TST_PAT, REG_SEL, index) : novalue =
begin

TR TR TA

lee

CALLED ROUTINES WHICH

WRITE TO INDIVIDUAL ML11

REGISTERS

FORMAL PARAMETERS:

REG_SEL

CASE SELECT EXPRESSION TO

SELECT THE WRITE REGISTER
ROUTINE TO CALLED
TST_PAT

DATA PATTERN WHICH THE SELECTED

SELECT NUMBER OF TRE REGISTER

BEING TESTED

"SIDE EFFECTS:'

WHEN A WRITE REGISTER RWT]?E IS CALLED
THE VARIABLE °INDEX' FROM THE CALLING
TEST IS LOADED WITH THE REGISTERS

ML_REG INDEX NUMBER.

THIS ENABLES THE CALLING TEST JO FIND
THE FAILING REGISTER ADDRESS.

case .REG_SEL from 0 to 13 of
set

] ..

WRT_CS1

(.TST_PAT,

1] :

WRT_ER (.TST_PAT,

2] :

WRT_DA (.TST_PAT,

J 3

WRT_MR (.TST_PAT,

.index = 0);

!SELECT THE WRITE REGISTER ROUTINE CALL

!CALL ROUTINE TO LOAD MLCS1

.index = 6);

!CALL ROUTINE TO LOAD MLER

.index = 3);

!CALL ROUTINE TO LOAD MLDA

.index = 10);

!CALL ROUTINE 10 LOAC MR
———————

[4] :

2BIFJFUNANIISE
IR SRER

BBIRRREN8
28SIRAR

— e

BB PN

b md d md ed

d md

e B

e T

e R

BEBBEEBBEEEELEEEEEENS

4161

Tl icaiaicicaiaiaiaiaiaiaiaiaiaimimiaimimimimimimiamt
Mmoot
s
s -

! FUINCTIONAL DESCRIPTION:
A ROUTINE TO SELECTIVELY

TR A
R
R
A
R
TR T R
A
PR
PR R
P
T
A
T A
T

VRNOWVSWN=O

P
P
A
PR TR
TR T
PR A
R
AR AT E PR

SEQ 0158

SSEEREERERLRLRERL R At

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE $71

CZMLABO ML-11 LOGIC TEST

CZMLABO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION

D_13

MACRO M1113 22-DEC-80 12:16 PAGE 17

6440 :MLG

64l :

w.fif :
porcl
% :

55-0«-1933 83:54:31

258'5
4

WRT_E1 (.TST_PAT, .index = 13);
€] :

6448 :
6451

4$1§

€73 :

6454 :

4515

] :

6457

4218

] :

6460 :

4221

£103 :

6‘28 :

4224

ggg :

2%53

6461 :

““a.es :

2352

WRT_PD (.TST_PAT, .index = 19);

ICALL ROUTINE TO LOAD MLPD

WRT_EE (.TST_PAT, .index = 17);

'CALL ROUTINE TO LOAD MLEE

WRT_EL (.TST_PAT, .index = 18);

252;

ICALL ROUTINE TO LOAD MLDS

WRT_D1

(.TST_PAT, .index = 15);

'CALL ROUTINE TO LOAD MLD1

WRT_D2 (.TST_PAT, .index = 16);

ICALL ROUTINE TO LOAD MLD2

WRT_D3 (.TST_PAT, .index = 14);

ICALL ROUTINE TO LOAD MLE2

6466 :

4227

£12] :

666!9! :

[13] :

l.zz_g

tes;

6467

2523

6470 :

4231

6471 ;

72 :

&" 3

4234

fifl?“!

023122

6488

1
0231

6491
a.9§
649

0231
ooo%
134
0001
136 000156

6489
6490

0231
0231

WRT.REG:JSR
MOV
MOV
n&v

R1,$SAVE2
10(sP) ,RO
14(SP) .R1
12(5P) .R2

18:

gs‘fl
18

ADD

. WORD
-WORD

JWORD
JWORD

- WORD
- WORD
.WORD

1 mf""

43-1%
53-18

&13
1%
83-1%

i
|

‘
|

(

end;

6481 023076 004167 160744
225023100 816600 000010
106 016601 000014
6484
“2 1
000012

ICALL ROUTINE TO LOAD MLEL

WRT_DS (.TST_PAT, .index = 5);

€11 :

1CALL ROUTINE TO LOAD MLE1

1CALL ROUTINE TO LOAD MLPA

6 :

zg}g

TOPS=-20 Bliss=16 V2(212)

PA:<NEALE>BL3ML$.BLI.2 (47)

WRT_PA (.TST_PAT, .index = 8);

gzgg :

:21:22

'CALL ROUTINE TO LOAD MLE2

3}?

'i }‘

-Dec=19

WRT_E2 (.TST_PAT, .index = 14);

&"53 :

22§§ :

SEQ 0159 |

:
: INDEX,®
t TST.PAT,*
* REG.SEL.*

4152
419
"‘“fi

:
-

6300

002X

$208 O

6506
6505 O

00021

30050

D00 320
111

2$:

005

174272

‘710

000006

6510

10146

767 174432

000012

0476

174732

101466
¥710

000015

5%:

bu76? 175300

210 000016
5Bz udRIze AR IR

ERERER2

6519

o
174572
ba76?
112

000003

(A H

—r

218 21t
&s18

00523
gflb

6514
6515

g}l

175470

000010
175036

000023
175666

000021
176156

108:

550e

TOPS

PA:q

«192
£

(RO) ,-(sP)
PC, WRT.ER
16$
R1,-(SP)

#3° (RO)

(RO) ,-(sP)
PC.WRT.DA

1
R1,-(SP)

(f?gp)
?ngi
PC WRT.MR
16$

qg‘dr.ee

———

000174

6499

SEQ 0160 |

c=1980 09:21:22

#5383%5338%2893%538955388%5299%4
23955383 L Sp ks

6498

c-1980 09:24:31

sMLG

6495

MACRO M1113 22-DEC-80 12:16 PAGE 57}

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

6551
gss

sMLG
:

6555
6529
6557
0,
652% )
6559
O,
6560 02'
6561
238

000022
000005
177360

176146

6569

6568
6569
6570
6571

000020

255;;

176442

6574
6575
6576
6577
6578

10146
12710 000016
011046
004767 176736
022626

6581

gssg;

118:

176076

6564

6579 023460

MACRO M1113

000207

128:

13s8:

148:

158:
168:

22-DEC-80 12:16

MoV

F 13
PAGE 174

R1,=(SP)

MOV
MOV
JSR
B8R
MOV
MOV
MOV
JSR
BR

",":3 (RO)
(ROS ,=(SP)
PC WRT.EL
168
R1,=(SP)
#5° (RO)
(RO ,~(sP)
PC,WRT.DS
16§

fl
JSR

ggi
‘R?s);m
PC,WRT.D1

MOV

B8R
MOV
MOV
MOV
JSR
B8R
MOV
mov
MOV
JSR
(WP
RTS

SEQ 0161 |

SS’”‘“”” 09:24:31
-Dec-1980 09:21:22

;

:
.

4219

41
422

R1,-(SP)

TOPS
PA:<

e
|
|

168
R1,-(SP)
#20, (RO)
(ROS ,~(SP)

:
:

ma
422

168
R1,-(SP)
#16,(RO)
(ROS ,~(SP)
PC,WRT.D3
(SP)+,(SP)+

:
:

PC,WRT.D2

; Routine Size: 123 words

4188
4231
|
,
a
415

; Maximum stack depth per invocation:

)

:
5 words

41521
,

l
l

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

G 13

PAGE 175

6590 ;M4

25531 :

2-Dec=1980 09:24:31

4235 routine RD_REG (TST_PAT, REG_SEL, ERR_FLG) : novalue =

6595 :
6596 :
6597 :
6598 ;
6599
6600 ;
6601 ;
660§ 3
6603 ;
6604 ;

4237
4
4239
4240
6241
4 4§
454
4244
4245
4246

144
! FUNCTIONAL DESCRIPTION:
!
A ROUTINE TO SELECTIVELY
!
CALLED ROUTINES WHICH
!
READ TO INDIVIDUAL ML11
!
REGISTERS.
!
! FORMAL PARAMETERS:
!
ERR _FLG

6606 ;
6607 ;
6608 ;
6609 ;
6610 ;
6611 ;
6612
;
6613
;
6614 :
6615 ;
6616 :
6617 ;
6618 ;
6619 ;

4248
6249
4250
6251
4252
425
4256
£255
4256
4257
4258
4259
4260
4261

!
!
!
!
!
!
!
!
!
!
!
!
!
'=-

6605 ;

4247

l.gg

662§ 3

4264

6623

CONTAINS THE ADDRESS (PASSED BY REF)

REG_SEL

CASE SELECT EXPRESSION TO

SELECT THE WRITE REGISTER

ROUTINE TO CALLED

TST _PAT
DATA PATTERN WHICH THE SELECTED
REGISTER WILL BE TESTED AGAINST

case .REG_SEL from 0 to 13 of

set

4265

6625 ;

&267

6627 ;

4269

1 :

23 :

4275
4276

33 RD_MR
:
(.TST_PAT, 10, .ERR_FLG);

4278

4] :

4280
4281

[s] :

4284

6l :

6626 :

6628 :

4266
4268

2%;!1)

6631 ;

2%7‘

6634 ;
6635 ;

4277

6636 :

6637 ;

4279

66‘0““ S

6638 ;
6639 ;

664; 3

6643 :
6644 ;

4285
4286

OF THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS
OF THE ROUTINE CALL.

;

6624 ;

PA:<NEALE>BL3ML¢

begin

6620 ;

6621 ;

TOPS=20 Bliss=16 v2(212)

2=-Dec-1980 09:21:22

659§ H

659 :

SEQ 0162

ol :

RD_CS1 (.TST_PAT, 0, .ERR_FLG);
RD_ER (.TST_PAT, 6. .ERR_FLG);
RD_DA (.TST_PAT, 3, .ERR_FLG);

RD_E1 (.TST_PAT, 13, .ERR_FLG);

RD_E2 (.TST_PAT, 14, .ERR_FLG);
RD_PA (.TST_PAT, 8, .ERR_FLG);

!SELECT THE READ REGISTER ROUTINE CALL

'CALL ROOUTINE TO READ MLCS1
ICALL ROUTINE TO READ MLER
'CALL ROUTINE TO READ MLDA
'CALL ROUTINE TO READ MLMR

'CALL ROUTINE TO READ MLE1
'CALL ROUTINE TO READ MLEZ
'CALL ROUTINE TO READ MLPA

.BLI.2 (48)

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

H_13
PAGE 176

22-DEC-B0 12:16

SEQ 0163
Ss-boc-19
-Dec=1980

6648

7] :
RD_PD (.TST_PAT, 19, .ERR_FLG);

;

RD_EE (.TST_PAT, 17, .ERR_FLG);

9 :

RD_EL (.TST_PAT, 18,

!CALL ROUTINE TO READ MLD1

!CALL ROUTINE TO READ MLEZ2

: ERR.FLG,*
: TST.PAT,»

* REG.SEL.*

4263,

4267

).PC

T Y

g“““““fl

- Y-

b d i e i

T
e T

e AR
e

Lo L

ban

Roro2
s~0=

.ERR_FLG);

_.ug$
' 7

1%:

RD.REG:

ST
T A

RD D3 (.TST_PAT, 14,

!CALL ROUTINE TO READ MLD?2

131 :

.ERR_FLG);

4
N23 3

(.TST_PAT, 15, .ERR_FLG);

RD D2 (.TST_PAT, 16,

023510

!CALL ROUTINE TO READ MLEE

!CALL ROUTINE TO READ MLDS

[12] :

tes;

!CALL ROUTINE TO READ MLPD

.ERR_FLG);

RD DS (.TST_PAT, 5,
RD D1

TOPS-20 Bliss=16 v2(212)
¢.BLI.2 (48)

PA : <NEALE

!CALL ROUTINE TO READ MLEL

£10] :

€11l :

09 :21:22

.ERR_FLG);

(8]

09:24:31

6701

173754
000006
176114
000003

6719

000012

y
12363
)

{

Eg e
)2 365¢
)0
Xe

30
)

)
6740
6761
678

000015

174776

000016
175200

000010
174534
000023
175406

000021

67‘9 )¢

175572

6747
0,
67‘3 )

750
o
6751 0

25
675%
6755

4s:

58:

1746414

6764 O

6745 0,

38:

174254

6718

SEQ 0164

22-Dec-1980 09:24:31

6
13
6
6708
6709
6710
6711
671; 2
6713 0,
671% 02
6715 O
6719
67N

()

MACRO M1113 22-DEC-80 12:16
PAGE {7;
.
JMLG

. BB
-

—

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

o
175512
000005

22-Dec-1980 09:21:22

CLR
MOV
JSR
B8R
MOV
MOV
MOV
JSR
B8R
MOV
MOV
MOV
JSR
BR

-(SP)
RO,=(SP)
PC.RD.CS1
168
R1,=(SP)
#6.,-(SP)
RO, =(SP)
PC.RD.ER
16$
R1.=(SP)
#3.-(SP)
RO.=(SP)
PC.RD.DA
16§

MOV

#12,-(5P)

BR
MOV
MOV

MOV

Ts’av

6$:

7%
8s:

98:
108:

MOV
MOV
JSR

Q%
42

426

168
R1,=(SP)
#5.-(sP)

:
:

42%
42

}l?‘
(SP)
#16,-(5P)

2%3

4263

4263
4288

4263/
429N

R1,-(SP)

gggsg
2?'3 El

MOV
MOV
JSR
B
MOV
MOV
MOV
JSR
BR
MOV

#10.-(sP)
RO, ~(SP)
PC.RD.PA
168
R1,~(SP)
:53.-(39)
.~(SP)
PC.RD.PD
16§
R1,-(SP)

MOV
JSR

128:

:
:

B8R

MOV
118:

:
:

|
|
4263
4270
|

RO, =(SP
PC.RD.E2
168

MOV

Bt
MOV

oy
JSR

PA: 1

R1,-(SP)

.csi.-(sm

4276

4285

.~(SP)

PC RD.EE

‘

168

4263,
429

R1,~(SP)

fg.oae
PC.RD.EL

i
MOV
#5.-(SP)
MOV

R1,-(SP)

MOV

RO,~(SP)

25
4297

|
|

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

J_13
PAGE 178

SEQ 0165
22-Dec-1980 09: 24:31
22-Dec~1980 09: 21:22

176774

000017

138:

175644
000020

14$:

176140

000016
176450
000006

158:

168:

~8¢233%¢333%5333%

sMLG

6757

: Routine Size:

PC,RD.DS

168

! <BLF/PAGE>

4263

R1,=(SP)

4300

#1?.,-(SP)

1
BC’RD
168

4263

4303

R1,-(SP)

556.-(sp)

PC';ésgé

4263

16$

R1,=(SP)

4306,

RO,=(SP)

#16,-(SP)

;

42
423

124 words

; Maximum stack depth per invocation:

4310

TOPS
PA:<

6 words

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 17;

&
xgg;;;
o

000004

DUMPER: : JSR

Pg MSDUMPER

TRAP

RTS

; Routine Size:

& words

4314
T o0t et
WWW

b
b

FUNCTIONAL DESCRIPTION
UPON COMPLETION OF ERROR MESSAGES
DUMP OUT ALL PERTINENT DRIVE AND
RH REGISTERS

*REG_1

MLCST1, .MLCS1);

aec‘1g. MLWC. .MLWC):

!PRINT REGISTER DUMP MESSAGE
!PRINT DUMPER COLUMN HEAD INGS

!PRINT OUT THE RH & ML11 REGISTER CONTENTS

=E§:"ILDA * MDA ;"

a£¢'?7. mLcs2. MCs2):

IE.

62, MLDS, -HLDS)

;

(FMT_

)

NTB

b e
b

N -

PRINTB (ONE rm PHR_14);
...‘\...‘.Q.v

T
T
T
T o o
o
Tt
Y Pl T
P

A
A
A
A
A A
T A
R

2
g
2
2

—

T
T
T
X
T

TR T
A
A

=200V~

4315

TA TR

681 S

0 words

144

6814

A R

TR PR PR PR D T 1)

631
631

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3MLG .BLI.2 (49)

BGNMSG (DUMPER) ;

: Maximum stack depth per invocation:

6&5
6810
6811

681
681

SEQ 0166

5 ~Dec=1980 09:24:31
~Dec-1980 09:21:22

A A

SUSE—"—

AR AL

»_ S

K_13

CZMLABO ML-11 LOGIC TEST

::‘;‘LST_NT_REG eql 21

R (3t R0 RS A

!SEE IF THIS IS A RH70

!IF YES THEN PRINT RH70 REGISTERS

4311

GlghoWRbo5
PivxdPIod8P38PIsx8go-x8_RS<E§_
SESCT-CESCTRsCHSCTR<SHSCTRBS#SCTR9o1&sW&i oy
. A B

R.(lu.obSeso.Ro\le0b”(e.\sR.o(bl.eo o+Re.(bI.ioeq&ln.wR.u(blle\oel\lo\Eo.(.n(l E.8‘lua\nl

LBY BPEFIP Nee SH8USTNEYEPU2EUL8OLEIiT TR

§ §e e § B B BN Eer

MSDUMPER:

me £ -3
82

%ow

=3
iR

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE '180

13
SEQ 0167

&%ew..wc.w.)u...wv(.:.\wm.(.mwvT

Nwm«sITRYm,.\,.‘sRg¥iS'23T
8&s) A e vy PyAR RY8®5

L LALLLT L Pl

O¢I
FRe“etBsELa_8oOErN%sREoLo-RTrte8e%ERoPHBoTrVkBLee3BLoEURErSEoes8EoEWo.RCrET8sR3PLRRoEoU.el]rET8e%RSoL¥.eoriE8e5SRg
eIs y FgueRE i
CZMLABO ML-11 LOGIC TEST

JMLS

22-DEC-80 12:16

S5 bec- g8 51122
—-—

MISCELLANEOUS CODING SECTION

MACRO M1113
M13
PAGE 181

SEQ 0168

MACRO M1113

22-DEC-80 12:16

N 13
PAGE 182

SEQ 0169|
2-Dec-1980 09:24: 31
c-Dec=1980 09:21:22

18:

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
(s 2
BNE
MOV
MOV
MOV
MOV
MOV
MOV
TM
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
ADD
RTS

ML .REG
n..nes
58°

'<BLF/PAGE>

#REG.153.z
#FNT
. 2%
“.(5
‘RO
14
fisr.DUT .REG,#25
%
a .aseo %0,~(SP)
ne §P
.= ( <(SP)
#FMT. 24 . =(SP)
#6 ,~(SPS
RO
14
n.nseo 50, (SP)
ML .REG+250,~(SP)
REG. 21-(§P)
#FMT. 24 =(SP)
#6,-(SPJ
RO
1
#22,SP
#2.SP

4336

4339

; Routine Size:
205 word
Hoxfnun stack depth per invocation

PA:

52 words

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 10;

6995 :ML4

-Dec=19

6998 ;

4345

7000 :

7004 :

4351

7001 :

% :;

7005
7006
7007
7008

sEa 0170

Ss-oec-wsg 88:34:31

% 3

6999 :

seunn

4348

T0P5-20 Bliss-16 v2(212)

PA:<NEALE>BL3MLé .BLI.2 (50)

INITIALIZATION CODE IS EXECUTED AT THE assxmms OF EACH

PASS, WHEN POWER- DOMN/POWER
UP HAS OCCURRED,

4349
|
4350 |

:21:22

OR WHEN THE

P-TABLE INFORMATION FOR neu.osxw.mnuoen TEST. THE

:
:
:
:

4352
l.gs
4354
6355

local

7010 :
7011 ;

4357
4358

external

|
|

4360

)

7009 :

701; :

7013 :

778}? :

4356

4359

|
i

OPERATOR
HAS ISSUEDQA START RESTART OR coufms COMMAND .
DURING mmmu ION,THE *GPHARD® MACRO IS USED TO GET

NUMBER OF UNITS Awuuue FOR TESTING IS CONTAINED IN A
HEADER LOCATICN (°'LSUNIT®)

OFFSET;

LSUNIT;

2361

{'fm‘n'ot READEF (EF _CONTINUE)

w018
7018 :
7019 :
7020 :

4363
4365
4366
4367

begin
if READEF (EF_START)
then
begin

7023 :
7024 :

4370
4371

7027!
70292 :

g;l;
4376

7021 :
7022 :

7005 :

ML_LUN = =1;

g;g

begin

ML_LUN
= .ML_LUN + 1;

I1SKIP INIT

4379
4380
4381

RH_ADD = .((.PTBL_PTR) + 0);
RHTYP = .((.PTBL_PTR) + 2):
RHCVEC = .((.PTBLCPTR) + &):

;833;
¢
7039 :

ggg
4386

7041 :

mm :

2390

7047 :

ggg

if READEF (EF_NEW) then ML_LUN = =1;

7049 :

4396

7040 :
M

77&42 3

OFFSET = 0;

'REPEAT THE GPHARD UNTIL A 0 IS RETURNED

IGET BASE RH ADDRESS FOR THIS UNIT
1GET RH TYPE FOR THIS UNIT
IGET RH VECTOR FOR THIS UNIT
PINIT OFF SET COUNT

)

incr bggtim from 0 to 21 do
ILOAD THE REGISTER ADDRESS FOR THIS UNIT INTO ML_REG
MLREG [.COUNT, REGISTER_ADD] = .RH_ADD + .OFFSET:

4387
439,

CODE IF CONTINUE

if .ML_LUN geq .LSUNIT then DOCLN; !START OVER IF ALL UNITS HAVE BEEN TESTED
end

7032 :
7033 :
7034 :

' INCREMENT LOGICAL UNIT NUMBER

until (GPHARD (.ML_LUN, PTBL_PTR)) neq 0;

77832 ;

ISTART GPHARDS AT LUN 0 AND LOAD ‘ML_RE6'
ISEE IF THIS IS THE VERY FIRST PASS
ITHIS IS CATEGORY 1 CODE

g;;

38555

;%:33 :

A
4369

OFFSET = .OFFSET+ 2;
;

L -

eLse

begin

'IS THIS A NEW PASS

!'IF NEW PASS START GPHARDS AT LUN 0

MACRO M1113

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

€ 14
PAGE 184
S -Dec-1980 09: 4:31
-Dec-1980 09: 1:22

7051 ;M4

7057 :
7058 ;
7059

7060 ;

7061 ;

£397
4
4399

4400
4401
440

4405

7064 :
706S ;
7066 ;

4407
4408
4409

7067 :
7068 ;
7069 ;
7070 ;
071 ;

44606

4415

70;9 :

4419

7073
;
7074 :
7075 ;

7077
;
7078 ;
7079 ;
7080 ;
7081 ;
7082 ;
7083 ;
7084 ;
7085 :
7086 ;
7087 :
7088 ;
7089 ;
7090 ;
7091 ;

709% 3

7093 ;
7096
7095 ;
7096 :
7097 :
7098 :
7099
7100 ;
7101 ;

7105 3

7103 ;
7104 ;

,‘
(.PTBL PTR) + 12);
" (C.PTBL_PTR) + 6) =

LSTTBLK = ZEROES:
if .C(.PTBL_PTR) + 8) IS_SET
then
TYPE = 20°000110°;

SIZE = %0’140000°;

—INC

*'200°

“ARR<D, 4> = JOP_NIM

LSTBLK<9, 4> = .OPunffi%
else

LSTCBLK = .LST_BLK or
end”
in

8"“?"2;;{" =1%0°000111°;
RAS"INC =xo°1883°°°‘
CHIP SIZ = 64;

ARR_INC
= %o°

;

ARR16<11 & = 20°74°;
r/mai 4> = ,0P_NUM_ARR;
<11,

!GET PARITY DISABLE FLAG
!GET DRIVE NUMBER
'GET WERATG NUMBER OF ARRAYS

LINIT flf
TO BLOCK ZERO
TINIT ARRAY 16 TO ZERO
!INIT LAST ARRAY TO ZERO
!INIT LAST BLOCK TO ZERO

LST-ARR = ZEROES;

4435

&>
= .0P"NUM_ARR

LS TBLK = LSTeuz or wsm-

!CALCULATE ML11 16K MOS RAM PARAMETERS
'EXPECTED DRIVE TYPE VALUE

!WORD COUNT SIZE FOR 16K WORD XFER
!RAS INCREMENT FOR 16K RAMS
'CHIP SIZE
IARRAY |

TARRAY 16
ILAST ARRAY
!LAST BLOCK

!CALCULATE ML11 64K MOS RAM PARAMETERS
!EXPECTED DRIVE TYPE VALUE

'm COUNT SIIE FOR 64K WORD XFER
!RAS INCREMENT FOR 64K RAMS
'CHIP SIZE
IARRAY
TARRAY 16
ILAST ARRAY
!LAST BLOCK

if .((.PTBL_PTR) + 2) eql %0'70' then LST_DUT_REG = 21 else LST_DUT_REG = 19;

ERI}NTB (FMT_17, .ML_LUN);

4445

4446
4447

!START OVER IF ALL UNITS ARE TESTED

ARR_T6 = ZEROES;

44
4631
44
(73
4434
4436
44
&4
4439
4440
444
444
444
4444

if .ML_LUN geq .LSUNIT then DOCLN;

G000 at:‘(": ZEROES;

4416
6617
44618
44620
4621
“gg
46
4424
4425
4426
4427
4428

!IF NOT GET NEXT LUN PTABLE

PA
0P ”NUM

4410
&N
441
441
6614

70;% :

begin
ML_LUN = .ML_LUN + 1;

end

4404

778?3 3

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3ML¢ .BLI.2 (50)

until (GPARD (.ML_LUN, PTBL_PTR)) neq 0;

440

705
7054
705S
7056

SEQ 0171

ENDINIT;

!TELL MMT&WHICH UNIT IS BEING TESTED
'CLEAR MASS

MACRO M1113

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
m
m
714
115
7119

n
n
n
n
n
n
n
n

024714

g)l»l 7

157140

000040

166606

735
7136
s

164552

7138
n3»
7140
;1141

nas

18:

166630

155030

164556
164544

164536
000002
164524
000004

166556

166546
166536

ek
7145
7146

7147

4S:

7148

166512

7150
7151

013154
000002

7149

n
niss

7154
7155
n g?
n
7158

7159
7160

000025
000035

177777
166452

5%:

166456

D 14
PAGE 185

.GLOBL

LSUNIT

JSR
MOV

R1,$SAVE3
#36,R0

TRAP
BHIS

g )
ns
7134

LINIT:

000036

177777
166624
166620

22-DEC-80 12:16

RTS

47
18
PC

MOV

#40.R0

MOV
INC
P
BLT
TRAP
MOV
TRAP
MOV
ST
BEQ
MOV
MOV
MOV
MOV
MOV
CLR
CLR
MOV
ASL
ASL
ASL
MOV
ADD
MOV
ADD
INC
TM
BLE
B8R
MOV

#=1,ML.LUN
M. (LN
ML.LUN,LSUNIT
3s
44
.LUN,RO
4
RO,PTBL.PTR
PTBL.PTR
28
@PTBL.PTR,RH.ADD
PTBL.PTR,R1
2(R1) ,RH.TYP
PTBL.PTR.R1
4(R1) ,RH. VEC
R2
R1
R1.RO
RO
RO
RO
RH.ADD ,R3
:g.ns
"ML .REG(R0)
#2.R2
R1
R1,#25
4
8s
#35.R0

MOV
INC

#<1,ML.LUN
M. (LN

TRAP
BHIS

47
68

4
4

4381
OFFSET
COUNT,
=

4
4

OFFSET,*
* OFFSET
COUNT
COUNT
,»

4387
4384

4365
439

4398

omxnxuunta[VxuM|:ctflqfl|immwml~.BMW.
zmmwmnnmr
oIVO=EKP08 §L8me2anm0§.nmu5§n3umunn .\ERE2E8BpyoBeg35 ¥02

ALfRTitRiDRsRTmRRRADE1lR3FHR1RERTeRtTRRR3RR3
1b
287
Load

015‘56

£ 88

¥$I39 3m “«uwm; 33 mm 3w Jmw

BSAeNRY8I0k 3mwWB9358§3%mENuToma
i -

MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE ?u

SEQ 0173 |

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
1

MACRO M1113

22-DEC-80 12:16

F 14

PAGE 187

SEQ 0174

sMLG

2-Dec-1980 09:24:31

2-Dec-1980 09:21:22

TOPS

PA:<

ASL

)

BIC

164072

164034

164022

000070
165342

7238 0¢

;gg )

’

165364

02563

7250 02
7251

165346

725255
725

7255
7256
7261
7262
7266
7270 025660
7271 025664

;
|
4437|

ASL

)
)
255X
)

)

;

ASL

)

72649

#74000,LST.ARR
R3,LST.ARR
OP.NUM.ARR ,R3

SWAB

g&
7245

#103777.,R3

BIC
BIS
MOV

108:

ASL
BIC
BIC
BIS

#103777
.R3

MOV

PTBL.PTR,R1

BIS

#74000,LST.BLK
.BLK

:'%.Lsr.eu

c®
BNE
&pv

2(R1) 470
118
gg.tsv.m.m

MOV
MOV
MOV

MT.17,-(SP)
#2,-(SP)
SP.

BISB

#60,@ML .REG+40

TRAP

L
”

3‘7’2

:c"'sp

177030

4438

4441

|
=
|

|
|
1

: SP,*

R3
LR3

)
=

#7.,aML.REG+40
R3.aML.REG+40

; Routine Size:

242 words

LSINIT::JSR
TRAP

PC.LINIT
n

; Maximum stack depth per invocation:

004767
104411

MOV
BIC

BICB
BISB

;

|
;
|

|
,

;

23’8‘

4445

7 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

G 14
PAGE 188

ss-ooc-mo 09:24:31

000207

-Dec=1980 09:21:22

RTS

; Routine Size:
& words
; Maximum stack depth per invocation:

7286 ;

|
SEQ 0175 |

MLS

gu
76 025666

22-DEC-80 12:16

4448

! <BLF/PAGE>

0 words

PA:

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

H 14
PAGE 189

H, A

-Dec=19
09:51:1:22
55-0«-19

:31

3
i:
:
:
:

L4649
4450
4451
4452
&g‘

!
BGNTST;

7297 :
7298 ;

4455
4456

| TEST NAME:
|

7301

4459

% :
:

4457
4458

4460
4461

nog :
7303 :
730% :

228

'++
: TEST NUMBER:

MASS BUS READY TEST

| TEST DESCRIPTION:
i
TEST THE RH CONTROLLER FOR EXISTANCE
i

BY:

|
|

;

WRITTING ONES TO THE RH CS2 REGISTER
RESULTING IN A MASS BUS CLEAR

446k

7310 :
7311
731§ :
7313 :

4468 smus
4469 n.c 1 = ZEROES;
4470
= %0'177770°;
4471 oeuv (ONE_US);

7315 :

7317 :
7318 :
7319 :
7320 :

4475
4476
4477
4478

33 :-

ot
4481

4465
4bb
4467

7314 ;

7316 :

447%

7321 :

4479

7324 :

4482

2. THEN READ THE CS2 REGISTER FOR CLEAR DATA

1
=

7
7

mmo 025

150177

!LOAD CS2 WITH ONES

AND FORCE A MBUS CLEAR

!SEE IF CS2 GOT CLEARED

b%'

'REPORT ERROR IF NOT CLEARED

(119
DUMPER)
PRINTB (THR mr aes 17. FNCés PHR_4);
DODU (.ML_LON);

DOCLN;
ENDTST;

JOI

701

ICLEAR OUT CS1

if u.n.cszn
and (%0'177670')) neq ZERO

%s:g ggg;q 0101766
$T1:
733
4357k 93777 000040 165312
;3_53,
%%

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3ML¢ .BLI.2 (51)

TST 1

nos! :

7307 :
7308 :
7309 :

SEQ 0176

?2¥
BIS3

ak;;sm
440, aM_REGH0

BI(8

flamL.fiec«.g

fio
aML .REG+40

1%;3
1

MOV
BIC

1652

BIS8

7 165274

01 L4 }9‘%’6 165256

7341 025736 015700 000001

MOV

4450

.nee«.

" .R0

4469

* , $STMP2

MACRO M1113 22-DEC-80 12:16 PAGE 190
*

177670

165222

gDLY.R‘I

: *,S8TMP1

2%:

(SP)
R1

; SSTMP

oame

222

;

18:

3s:

: SSTMPI

: $SSTMP2

#-110,8ML .REG+40

4S:

007454
01024
0104
0060.
000004
165540
000012

b1 H

oo
e

177606

—

004767
104466

; Routine Size:
59 words
; Maximum stack depth per invocation:

154146

22-Dec~1
22-Dec~1

PC.$T1

7 words

.:lllo

SEQ 0177

£8

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

TOPS

PA:<

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

J 14
PAGE 191

SEQ 0178 |

sMLG

200

Ss-ooc-wao 09:24:31

;601

-Dec-1980 09:21:22

; Routine Size:
; Maximum stack

;‘48;
7609 ;

22-DEC~80 12:16

4483

! <BLF/PAGE>

6 words
th per invocation:

0 words

TOPS

PA:4
l
,

|
.

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
7611 ;L4
7612
;
741
7414 ;
7615 ;
7616 ;
7617 ;
7418 ;
7419 ;
72%0 s
7621 ;
74 g 3

7623

4484
4485
4486
G487
2233

4490
4691

'+
! TEST NUMBER:
i

' TEST NAME:

;

450

7435
7636
7637
J438

;
;
:
;

4505
4506
4507
4508

7640 ;
7641 ;

4510
4511

4504

4509

TEST MASS BUS TO UNIBUS COMMUMICATIONS

VIA THE CONTROL BUS BY:

i
|
|
-

READING RH AND DRIVE REGISTERS AND

TEST THE NON EXISTANT DRIVE 'MNED’
BIT

Llocal

SAVE,

! TEMPORARY SAVE LOCATION

DODU_FLG;

'DROP UNIT FLAG

DODU_FLG = ZERO;

incr REG_SEL from 0 to .LST_DUT_REG do

CLR

2;}

7644
7645
7646
7647

:
;
;
;

4514
4515
4516
4517

if .NED IS_SET
then
b%?
E
(120, RH_ERROR, DUMPER):

4518

7450

4520

7649 ;

4521
45
45
6524
45
45

76460 ;

738 :
7439
;461 3

728 .

4358
45
2231

..& _REG [.REG_SEL, REGISTER_ADD];

!READ THE REGISTER

!DID READ CAUSE THE NED BIT TO SET
!REPORT AN ERROR IF SET

PRINTB (FIV_FMT, WRD 62, PHR 5, WRD 12, WRD_52, FNC_6);

4519

7451 ;
7452 ;
7453 ;
76454 ;
7455 :
7656 :

!TEST ALL PRESENT RH REGISTERS

!START OF SCOPE LOOP

;‘62

7448 :

TOPS~20 Blis =16 v2(212)
4.8L1.2 (52)

MASS BUS HANDSHAKE TEST

|
|

76433

TST 2

449
4495

4497
4498
44699
4500
4501
4502

SEQ 0179

!
BGNTST;

i TEST DESCRIPTION:

4496

7639 ;

449,

7626 ;

7634 :

K 14
PAGE 192
-Dec~1980 09:

449

7627 ;
7428 ;
7
:
7630
;
7631 ;
7632
;

22-DEC-B0 12:16

5 -Dec=1980 09:i

;

7
3
7625 ;

MACRO M1173

PRINTB (F

11,

DODU_FLG = ONE;

.ML_REG L. EG_SEL, REGISTER“ADDI)
;

ENDSUB;
end;
if ooouFLG IS_SET

353u AL
end;

45§§ ENDTST;

'END OF SCOPE LOOP

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

———

2675
7%
7
7%

MACRO M1113 22-DEC-80 12:16 PAGE %9;

156020
165030

$T2:

;‘

18 :

ASL

BIS8
MOV
BIC
BICB
BISB
MOV
BIT
BEQ
TRAP
LMORD

N, M .REG+40
ML, DUT RO
#]
RO
#7,aML.REG
RO,aML.REG+40
“6035 (R3) ,RS
#10000,
ML . REG+40
?
5
170

;

010004
22 007066
127
;g

MOV
MOV
MOV

cmc.g -(SP)
MRD . g.-csm
MRD.12.-(SP)

;

0127646 007210

MOV

MARD.62,~(SP)

—_—————— '

7
748
7488
7489
7490
74N
7
7%
769%
7495

7501

ggg

7%
A
gg;
7508 0;
7509
7510

751
751;
751
7514 0,
7515
7519
751
7518
7519
7520

:
* DODU.FLG
:
* REG.SEL

:2.RO

7498
76499
7500

R1,$SAVES
R1
LST.DUT.REG,RG

or 3]
7

74
7

JSR
CLR
MOV
CLR

000040 165062
1%
1
000007 165044
165040
013154
010000

165026

.WORD
-WORD

012746 oo:94

MOV

766 006062

MOV

pigrg oo

104414
016316
%6
%6
046414
01 ;83
7
3
005301

o
TRAP

013154

004750
000002

1
000022

P
ASL
RO

48:

REG. o SEL ¥

RO.R3

; *,SAVE
:

;

RM.ERROR

#PHR.S, ~(SP)

#FIV.FMT,~(SP)

B
14
P

o®

MOV

ML.REG(R3), (SP)

;

MOV

SP.RO

; SP,»

MOV
MOV
3s

TRAP
MOV
ADD
TRAP
ROR
BLO
INC
P
BLE
DEC

#FMT.11,-(5P)
#2,-(SP)

14
1 R
a;é.sr
6
RO
2s
ag
R2.R4
1$
R1

: *,DODU.FLG
;
;

: REG.SEL
* REG.SEL.*
: DODU.FLG

CZMLABO ML-11 LOGIC TESTY

MISCELLANEOUS CODING SECTION

MACRO M1113

—

—_—— W

801

104451

104444

000207

Hi.LLN.RO

TRAP

RTS

; Routine Size:

772

MOV

TRAP

58:

7531

-Dec=1980 09:21:22

BNE

165264

76 words

; Maximum stack depth per invocation:

7548
7549
7550
7551

4529

;

4482

|
;

15 words

|
.

004767 177544
104466

103

7358

75
7554

1$:

12-.

JSR

TRAP
[
BLO
RTS

PC.$T2

4534

! <BLF/PAGE>

;

66
RO
1%
PC

; Routine Size: 6 words
; Maximum stack depth per invocation:

7559
7561 ;

PA:

7543

SEQ 0181 |

s -Dec=1980 09:24:31

—_—
W

M 14

PAGE 194

JMLS

22-DEC-80 12:16

0 words

4531
|

t
{

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 19}

MISCELLANEOUS CODING SECTION

MG
. :
Ag S
4
4S5
45
4539
4540

7573

loSki

4544
4545
4546

|
|
|

THIS TEST
READS THE DESIREM SECTOR
ADDRESS REGISTER N Tl-E DRIVE UNDER
TEST, DELAYS 1
IF SET,
AN ERROR MESSAGE IS
PRINTED AND THE UNIT IS DROPPED

;

7574 :

7575 ;
7576 :
7577 :

7578 :

6541

454

144
! TEST NUMBER:
i

‘ TEST NAME:

4547 1

7584 ;
7585 :
7586 ;

455
4554
4555

local
DODU_FLG,

7389

7590 ;

4556

BGNSOB;

4561

SAVE

7593 :
759 :
7595 :

4558
4
4564

9
7597 :

7598 ;
7599 ;
7600 ;
7601 ;
760% 3

7603 ;
7604
7605 ;
7606 ;
7607 :
7608 :
7609 ;
7610 ;
7611 ;
7612 ;

SAVE;

4559

4560

i==

4338 DODU FLG = ZERD

759 ;

DRIVE PRESENT TEST

READS THE NED BIT6rucsz

|
i
:

7587 ;

TST 3

i TEST DESCRIPTIW

4548
4549
gg?

4552

4565
4566

&567
4568
4569
4570
4571

45;5‘
45
4574
4575
4576
4577
4578
4579
4580
4581

TOPS=20 Bliss=16 v2(212)
PA: <NEALE
é.8L1.2 (53)

BGNTST;

7579 ;
7580 ;
7581 ;

gg 3

SEQ 0182

5 -Dec=1980 09:Slo: 31
-Dec=1980 09:21:22

7569 3
7567 :
7568 ;
7569 ;
7570 :
s ;

TSg 3

CLR

= .MLDA;

'DROP UNIT FLAG

'TEMP STORAGE LOCATION

'READ A DRIVE REGISTER

DELAY (ONE_US);

iDELAY 1 US

1if .NED IS_SET
then
bmf

'TEST THE NED BIT

E
(1, ASYNC, DUMPER):
PRINTB (QE FMT, PHR_3);
DODU_FLG
= ONE;
end;”

ENDSUB;
if ooouFLG IS_SET

gu
( ML_LUN)

ENDTST;

'IF SET THEN REPORT ERROR AND SET DODU_FLG

:
!DROP THIS UNIT IF DODU IS_SET

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

—

MACRO M1113

761
761
167
7

155534

165

164614

164600

12701

000001

153500

005

$T3:

164636

1$:

4
1

BISB
MOV

#40,aML.REG+40
ML.DUT,.R

455

BICB

#7.@ML.REG+40
amTM__REG+30,Ré

; *,SAVE

4561

5$
LSDLY,R2

; *, $STMP1

(SP)

: SSTMP

BEQ
g
C

R2,aML.RE3+40
#1.R

007422

MWORD
.WORD
.WORD
[

1
ASYNC
R
#PHR.3,~(SP)

000002

MOV

164554

58:

TRAP

7646
7647

.«

R2
38
;
R1
28
.
#10000, aML . REG+40
63

010000

: *,$8TMP2

4562

: SSTMP1
: SSTMP2

.
4564/

:
“«

4567
|

4568

MOV

#ONE .FMT ,~(SP)

MOV

SP.RO

#1.R3
#6,SP
67
RO
1$
R3

; *,DODU.FLG
:
:

456
4
45

MOV
ADD
TRAP
ROR
BLO
DEC

'
: DODU.FLG

4574

165060

MOV

ML.LUN,.RC

(SP)+

. 006016
000001
000006

DEC
BNE
DEC
AR
BIT
BEQ

48:

7645

: DODU.FLG

BISB

3s:

T
PA:

MOV
28

22-Dec-1980 09:24:31
22-Dec-1980 09:21:22

R1,$SAVES
-($P)
R3

BIC

SEQ 0183

JSR
ST
CLR

TRAP

]

150277

7639
7640
7641
mg
764
7644

000007 164620

7638

8 15
PAGE 196

MG
:

;gg

22-DEC-B0 12:16

TRAP

BNE
78:

TRAP
TRAP

RTS

; Routine Size:

#2,-(SP)
14

;’

;] P,

51
&4

61 words

; Maximum stack depth per invocation:

9 words

4577

:
,

4533

MACRO M1113 22-DEC-80 12:16 PAGE $9;

CZMLABO ML-11 LOGIC TES
MISCELLANEOUS CODING SECTION

7676 :ML4

Ss-bec-‘lno 83:54:31

772;2 3

-Dec~-1980

;

7685

026530

004767 177602

7687

0265

oogggg

542

000207

7686
7688

540

104466

13::

18:

JSR

PC.$T3

ROR

TRAP

BLO
RTS

76N

: Routine Size:

;gg;

7698
7699 ;

;

PA:<NEALE>BL3MLé.BLI.2 (53)

,
'
’

4579
1

6 words

; Maximum stack denth per invocation:
4582

09:21:22

TOPS=20 Bliss=16 v2(212)

0 words

!<BLF/PAGE>

7680
7684

SEQ 0184 |

CZMLABO ML-11 LOGIC TEST -

MACRO M1113

MISCELLANEOUS CODING SEC

22-DEC-80 12:16

D 15
PAGE 198

25-0«-1980 l. 3
22-Dec-1980 09:21:22

7701 ;M4

DARNASARANAREREEERRERFPREEFER

SEQ 0185

4583 .
4584
4585
386
2?3‘

!
BGNTST;

2;309

4591

459;
459
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609

!4+
: TEST NUMBER:
l
l

TEST NAME:

TST &
DRIVE SELECTION TEST

NUMBERS OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REGISTERS

AND READING THE DUT DSA FOR ITS DRIVE NUMBER.

IMPLICIT INPUTS:
ML_DUT

LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE DRIVE

NUMBER OF THE DRIVE PRESENTLY BEING TESTED.

local

DS?U_FLG.

'DROP UNIT FLAG

VE:

! TEMPORARY SAVE LOCATION

BGNSUB

_FLG = ZERO;

7731
7732

4610 MLDA = .ML_DUT;:
gr SAVE = .MLDA;

7735
7736
7737
7738
7739
7740

461% then
4615
b%'
461
E
(2, INTER, DUMPER);
1ERROR AND sxn TEST IF DSA NEQ DRIVE NUM
461
PRINTB (SIX_FMT, PHR 4, WRD 12, FNC_3, WRD_37, WRD_13, REG_6);
4618
PRINTB (FMT—2, .mL_DOT, .SAVE (.ML-DUT xoF .SAVE)
7
4619
EXIT_TST;

773%

'LOAD THIS DRIVES DRIVE NO. INTO ITS DSA REG
IREAD THE REGISTER BACK

4.615 if .SAVE neq .ML_DUT

7741 ;

7742

777’24 :

4620
4621

ISEE IF DSA HAS DRIVE NUMBER

end;

incr DRV_SEL from 0 to 7 do

u onvSEL neq .ML_DUT

7747 :
7748 :

bogin
._Mauv
.DRV_SEL;

7750 :

7751 ;

'SKIP IF .DRV_SEL EQL TO THE DRIVE UNDER TEST (DUT)
'SELECT DRIVE TO BE WRITTEN TO

SEL;

iWRITE DRIVE SEL NO. INTO ITS DSA REG

iDELAY 1 US

end;

83 DRV_NUM = .ML_DUT;

7755

463%

4635

'WRITE DRV NO OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REG.|

DELAY (ONE
Ds>

;7725 :
775

;77256 :

7749

THIS TEST TESTS FOR UNIQUE DRIVE SELECTION BY WRITING THE DRIVE
UNDER TEST (DUT) DRIVE NUMBER INTO ITS DSA REG.
THEN WRITING THE DRIVE

i
l

TEST DESCRIPTION:

TOPS-20 Bliss-16 v2(212)
PA:<NEALE>BL3MLé .BLI.2 (54)

'SELECT THE DUT

SAVE
= .MLDA;

iREAD ITS DSA REG

————

—

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 599

7757 M4

SEQ 0186

SS-D«:-WOO :24:31

;77553 :
;772? :

4635

7763
e:

§
4639

7764

7765 :

4640

7766 :

4641

:'fm.‘sms neq .ML_DUT

o ASYNC,
asmc, vR);
PRINTB(fmFMT., FNC_3, WRD_37, WRD_14);

PRINTB (FMT1,

DODU_FLG = ONE;

464
464

7770 :
7

4645
4646 'lf ooou FLG IS_SET

7769 :

4H4h

7772 ;
7773 ;

4647
4648

7775 ;

4650

777% :

4649

7776 :

767 :
7768 ;

7777 :

465

7786 026544

1SEE IF WRITTING 10 OTHER DRIVES CHANGE ITS VALUE

'E R AND
If C HGE D
M0 SET
SET 0BG_FLG 17

.mL_DOT. .SAVE):

end;”

‘

ENDSUB;

880

|
'

'DROP UNIT IF DODU_FLG IS_SET

z
|

(.n. _LUN);

§
:

4653

ENDTST;

004167

155346

|
$T4:

JSR

R1,$SAVES

7788 036559 104400
w
7789 352554 152% 000040 164432

R
BISB
MOV

ML.DUT

BIC

BICB
BISB

CLR
MOV
MOV

#7.aML.REG+40
R3. a REG+40

RS
ML.DUT,aML. nec+so
L. Reé+

7798

BEQ

7800
7801

WORD
.WORD

2
INTER

7790 3%255226 016703 165014

779N

o;:'gg; 177770

7%
7795
%

oosgg;
01
164770 164370
01
164364

1
150377

000007
164410

7799

780%
7805
no;
780
7808
7809
7810

PA:<NEALE>BL3ML.BLI.2 (54)

4651

7782"78 3

TOPS=20 Bliss=16 v2(212)

~Dec=1980 09:21:22

164414

TRAP

010316
36
700
S0
gg
882

000007

.WORD

MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOV

TM
#40,aML.REG+40
R3

0179976R3

DUMPER

#REG.6,~(SP)
MARD.15.-(SP)
mg .=(SP)
#FNC.3, =(SP)
J12.-(SP)
b, =(

#SIX.FMT,=(SP)
#7.,-(SP)

4581

mg*
460
|

: DODU.FLG
:
: *,SAVE

woa
461
4611

4616

4617

|
|
|
i
!
|

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

781

SEQ 0187 |

22-Dec- 1980 09:54:31

15 026676

010600

17
18

18110
01

7819

F 15

PAGE 200

;g} 2
16

22-DEC-80 12:16

026700

02670
026706

104414

026710

164674

164656
004266

000004

026776

;g 027000
59 027006
7840 02701
7841 0270
% 0270
02702(
7844 027022
7845 0270264

mg 027026
7847 027030
7848 02703
7849 0270

000030
g

177770

150277

000007

164214

6$:
7s

000007

177770

1641
7

435

164114
164506

104455

4618
5

BIC

R, ($P)

: SAVE,

‘Z
0
81 7466

7865 ng
7866 0271

81 746
12746

12746

0077

(SP) R3

R3, (SP)
Ré,=(SP) _
ML.DUT,=(3P)
#FMT.2,=(SP)

MOV

SP,

TRAP

#6,~(SP)
14

#30,5P

B8R
CLR
g;ov

108
R3
gss.n.our

MOV
BIC

R3
n

BIS8

:g.a.necu.o

MOV
MOV
BEQ
MOV
BEQ

CLR
DEC
BNE

LML .REG+30
AR

7s
LSDLY,R2
6%
(SP)
R2
5$

R1
43
R3
R3.47

BIC

017%6.3

BICB

BISB

|
|

:
,
s
;
|

: SAVE,*

: SP,*

461
461

: DRV.SEL
: DRV.SEL,*

462

: DRV.SEL,*

#7,aML.REG+40

DEC
BR
INC
P

ROV

164134

8IS
MOV
MOV
MOV

A.DUT.A3

: DRV.SEL ,*
: o, $8TMP2

|
|
l

: %, SSTMP
: SSTWP
: SSTMPI

|
.

: SSTMP2
: DRV.SEL
: DRV.SEL,*

4622

4632

#7,@ML.REG+40

R3,aML.REG+40

MOV
P

ML .REG+30,R4
R4 .ML.DUT

: %, SAVE
: SAVE,®

4635

TRAP

4638

BEQ

.WORD
.WORD

7861 Q
% (
02711
7864 02711

48:

005301
767

7859 0
7860 @

;
; SAVE,*

BICB

5$:

D2705¢

7858 0270

164220

Q05
001

08 16453

027074

28:
3s:

01
164200
012701 000001
410
6702
153100
001

% 027046
7855 02706
% 0S707C

n.ggr.(sp)
Ré&

ADD

164624

785y o570es
7854 027060

MOV
MOV

TRAP

0267
7831 02¢
;gg
026766

: SP,*

MOV

D¢

D267

7834 0267
D¢

SP,RO

BIC

02671
02671
D26
02¢

PA:<

MOV

TRAP

041

02671

22-Dec-1980 09:21:22

TOPS

ASYNC

.WORD
MOV
MOV

DUMPER
MRD.14,~(SP)
m.y.-(sm

MOV
MOV

#THR.FMT ,=(SP)
#4,~(SP)

MOV

#FNC.3,-(SP)

»
4639
;
I

;

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 301

7863

sML4

010600
1046414
10416
16746
127

12746

1046414

1 %

7881

1
0271

7890
789N

789%

1
000167
005305
001004
016700
104451
104444

164436
00422%

00000

000020
177350

7909 027222
7910 02;22%
1 8%
791;
7232
g‘ 027234

9s:

108:

000207

SP,RO
14
R&4, (SP)
ML.DUT,=(SP)
#FMT.1,=-(SP)

; SP,»

MOV

SP,RO

; SP,»

MOV

# RS

; *,DODU.FLG

466;1

4642

ADD

TRAP

BHIS
JMP
DEC
BNE
MOV

TRAP
TRAP

TST

RTS

c;’).sp

177316

915

T4::
18:

(SP)+

! <BLF/PAGE>

4637

; DODU.FLG

51
44

;
I.Uq
,
-

45319
|

19 words

i
|
JSR
TRAP
ROR
BLO
RTS

; Routine Size:

4654

4640
,

9%
1%
RS
108
LUN,RO

; Maximum stack depth per invocation:

004767
104466
006000
103773
000207

; SAVE,*

#3,-(SP)

: Routine Size: 151 words

7900
7904

7908 027222

TOPS

PA:<

MOV
TRAP
MOV
MOV
MOV

TRAP

164366

005726

22-Dec~1980 09:21:22

MOV

000001

7894

16
7921 ;

22-Dec-1980 09:24:31

;371
g
?’g
74
7875

7884
7885
7886
7887
7888
7889

SEQ 0188

PC,8T4
66
RO
1$
PC
6 words

; Maximum stack depth per invocation:

4651

,
0 words

t
|

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEf-80 12:16

H 15
PAGE 202

3 ;M6

SEQ 0189

22-Dec-1980

ggg 3

09:24:31

22-Dec-1980 83:51:22

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3ML¢ .BLI.2 (55)

7926 ;
7927 :
7928 ;
79%8 3
7930
:
7931 ;
79% 3
7933
;

4655
4656
4657
4658
4659
4660
4661

!
BGNTST;

7935 ;

773339 3

4664

4665

OF THE ML11'S READ / WRITE REGISTERS.

7938

4667

ROUTINES WRT _REG AND RD_REG ACCEPT ARGUMENTS TO FURTHER SELECT ROUTINES

7961 ;
7942 :
7943 ;

4670
4671
46;%

!
!
'

THE UNIT IS DROPPED ON DETECTED ERRORS.

7946 ;
7947 :
7948 ;

4675
4676
4677

7934 ;

7939 ;

7944 ;
7945 :

7949 :
7950 ;

7951 ;
7952 :

!'++
! TEST NUMBER:
!
! TEST NAME:

46
4674

!
!

4678
4679

!
!

4680
4681

223%

THIS TEST WRITES AND READS A DATA PATTERN OF ALL ONES AND ZEROES TO ALL

WHICH ACTUALLY PERFORMSTMTHE READING AND WRITING OF THE REGISTERS.

IMPLICIT INPUTS:

!
!
!

!'—

WT_DATA
LOADED BY READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN WRITTEN
TO THE REGISTERS (REPRESENTS GOOD DATA).

RD_DATA

LOADED BY THE READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN
READ FROM THE REGISTER (REPRESENTS BAD DATA).

4684

local
ERR_FLG,
TST_PAT,

7957 ;

4686

DODU_FLG;

4685

'ERROR FLAG PASSED TO ROUTINES

'TEST PATTERN

index,

'POINTS TO REGISTER PRESENTLY BEING TESTED
'DROP UNIT FLAG

4687
4688

DODU FLG = ZERO;

TST_PAT = ONES;

'LOAD TEST PAT WITH ONES

7732_23 :
:

4691
469,

incr TWICE from 0 to 1 do
begin

'REPEAT LOOP TWICE

7965 ;
7966 :

4694
4695

7968 ;
7969

4697
4698

CLR_MBUS;
WRT_REG (.TST _PAT, .REG_SEL, index):

'WRITE TO THE REGISTER

:7781

::’.;‘ERR_FLG IS_SET

!SEE IF READ FOUND AN ERROR

773;15 3

2778‘

begin

!IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG

7976 ;

4705

selectone .REG_SEL of

!SELECT WHICH MODULE FAILED

% :
7964 ;

3
J

g;? $

lo‘ggg

469

26738

7958
7959 :

READ WRITE REG ONES/ZEROES TEST

2225 ! TEST DESCRIPTION:

7953 :
7956 ;
7955 ;

7956 :

TST S

incr REG_SEL from 0 to 7 do
in

RD_REG (.TST_PAT, .REG_SEL, ERR_FLGS:

set

'TEST ELEVEN WRITE/READ REGISTERS

'READ THE REGISTER

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 50}

7979 :MLG

SEQ 0190

5 -Dec=1980

% 3

-Dec=1980

09:24:31

09:21:22

4707
4708

[0 to 3] :

4710
711
2;}

ERRDF (4, ASYNC, DUMPER);

'ASYNC MODULE FAILURE

(4 to SJ :
ERRDF (4, SYNC, DUMPER);

!SYNC MODULE FAILURE

7989 :

4714

(6 to 7] :

7991 ;

4716

tes:

77%; 3
3

7984 :

4709

7985 :
7986 :
7987 :

7990 :

4715

&717

TOPS=-20 Bliss=16 V2(212)

PA:<NEALE>BL3MLé.BLI.2 (55)

ERRDF (4, ARR_DAT, DUMPER); 'ARRAY DATA MODULE FAILURE

799% 3:

4718

PRINTB (SIX_FMT, PHR 4, WRD_12, FNC_5, FNC_6, WRD_52, WRD_56):

7996 :

L721

end;”

7998 :

472

8000 :

4725

8003 :
8004 :

4728
2

79%

4719

7995 :

7997 :

ENDSUB;

4724

8001 :
aoo; :

4726
4727

8006 :

4731

8007 :

8008 :

8009 :
8010 :

473%
4735

gg}; :

8021
ggg

DODU_FLG= ONE:

472

7999 ;

8019

PRINTB (FMTTM16, .ML_REG
[ ndcx. REGISTER_ADD], .QTDATA. .RD_DATA);

4720

4736

end;

TST_PAT = not .TST_PAT;
end?

IREPEAT AGAIN WITH COMPLIMENT DATA

if ooou FLG IS_SET

'DROP THIS UNIT IF THE DODU_FLG IS_SET

Sfiflu AL

|
|

ENDTST:

004167 154634

$TS:

012702 177777
m§w1
1

152

000040

ooooo17 163710

164310

g
s pamr IO
2% 957319 N8

163726

18
28:

JSR

?L';
MOV
CLR

CLR
TRAP
BISB
MOV

gfga

R1,$SAVE4

;és"""s”
#-1,R2
R1

2
#40,aML.REG+40
n’% RO

DODU.FLG
* «, TST.PAT
* TWICE

%
4691

4696

* REG.SEL
:

"7,nbkekgoeo

8
RS
nov
RSoiSR)
oTM

4653

.
¥
* REG.SEL
.+
M

469%
4695

-|
|
|

sMLS

173546
000012
1764116
000012

010.'(§P)

;

122

TOPS

PA:
<

INDEX,*

; TST.PAT
,»
; REG.SEL,*

; ERR.FLG,*
; ERR.FLG,*

4701

; REG.SEL

4705

; REG.SEL,*

-y

SRS

000001

§§§§§§§§§§§§§§§§§§§§§3833§§§§§3E$’§§§§§35§23§§§§§§§§

000010

2-Dec~1
2-Dec-1

SEQ 0191

TION

MACRO M1113 22-DEC-80 12:16 PAGE 504

b4y

€8

T S

d-‘

°°

:
PRSIS T300 B LR ER B SR BN 28 SERRER L L IR AR :

MISCE

M-1

A ¥

58:

4705

: REG.SEL,*

4705

; REG.SEL,*

472

; REG.SEL,*

4705

; REG.SEL,*

4715

478

“n9
;

INDEX,*

CZMLABO ML-11 LOGIC

SECTION

S83PER28
Y8 LRI RSEIS

MISCELLANEOUS CODI

TEST

s
N =

—

SEQ 0192

JMLG

163744
7%:

TRAP
TRAP

RTS

TS::
1$:

JSR
TRAP
ROR
BLO
RTS

; Routine Size:

SeSaNa N,

470

4721

: TST.PAT
; TWICE
; TWICE,*

—

; REG.SEL
: REG.SEL,*

DODU.FLG

46
(SP)+,(SP)+

24 words

PC,$T5

4734

177366

*,DODU.FLG

ML.LUN.RO

; Routine Size:
131 words
; Maximum stack depth per invocation:

004767
104466

TOPS

PA:<

SP,*

000001

SeR
ger BaR

22-Dec-1980 09:24:31
22-Dec-1980 09:21:22

SEIRAZIIJCAI3LE 3a¢R3A

000007

81%
857654
103993
8139
027656 000207

g}‘O

K 15
PAGE 205

22-DEC-80 12:16

R
E R TR EEL

81
8108
8109
8110
81
811;
8n
8114
8115
8116
8117
8118
8119
8120
8125
8126
8130
8134 027644
8135 027644
3136 8%;%?2

MACRO M1113

6 words

; Maximum stack depth per invocation:

0 words

Y.TV.B

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

4737

— —— —

MACRO M1113

! <BLF /PAGE>

22-DEC-80 12:16

PAGE

15
SEQ 0193

8158 ;
8159 ;

SEQ 019

-Dec=19

160 ;
161 ;

!
BGNTST;

L7641

‘ TEST NUMBER:

TST 6

g]‘gg H

l‘o;zlso

: TEST NAME:

READ WRITE REG SHIFTING ONES/ZEROES TEST

8169 s

4749

i TEST DESCRIPTION:

8168 ;
8169 :

4748
4749

;

8170 ;

2;2

474

THIS TEST QITES AND READS A

READ/WRITE REGISTERS

4754
4755

1
|

8177 ;
8178 ;
8179 ;
8180 ;
8181 ;

4757
4758
4759
4760
4761

i
|
THE DRIVE IS DROPPED ON DEYECTED
|
ERRORS.
|
i IMPLICIT IWTS.

8183 ;

4763

g}n :
;g -

2;? :
475 i

WII'GS WRT REG NO RD _REG
ACCEPT ARGUMENTST T'ER

8176 ;

WRITING OF THE REGISTERS.

WT_DATA

8182 ;

4762

8184 ;
8185 ;
8186 ;
8187 :

4764
4765
4766
4767

8189 ;
8190 ;
3191 3

4769
4770
2771

8188 ;

813§ :

4768

L7746
4775

8197 ;
8198 ;

4
4778

8199 :

SELECT ROUTINES WICH ACTUALLY
PERFORMS THE READING AND

COADED BY READ REGISTER ROUTINES AND

1
1
|
|

CONTAINS THE DATA PATTERN WRITTEN TO THE
REGISTERS (REPRESENTS GOOD DATA).

RD_DATA

COADED BY THE READ REGISTER ROUTINES AND

'
|
:

CONTAINS THE DATA PATTERN READ FROM THE
REGISTER (REPRESENTS BAD DATA).

6;7/; [R—-

819 ;
8195 ;

8196 ;

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3MLé .BLI.2 (56)

SHIFTING ONE'S AND SHIFTING ZEROE'S
PATTERN TO ALL THE ML11°'S

8174 ;
8175 :

:26:31

35—0«-1933 83:51:22

L77

4779

Llocal

ERR_FLG,

'ERROR FLAG PASSED TO ROUTINE

DODU_FLG;

IDROP UNIT FLAG

TST_PAT,
index

'TEST PATTERN
'POINTS TO REG PRESENTLY BEING TESTED

8200 ;
8201 ;

4780
4781

DODU_FLG = ZERO;

TST_PAT = ONE;

'LOAD TST_PAT WITH A 1 IN A FILED OF 0'S

8204 :

incr SHIFT from 0 to 15 do

DO SHIFT 16 TIMES

820$ 3

4;39

8209 ;

4L£789

mi&ZO 3

8205 ;

8208 ;

2%
2785

4788

begin

incr TWICE from 0 to 1 do
begin

'REPEAT LOOP TWICE

——

—

M 1S5
PAGE 207

g@? 3

8167

t——————

22-DEC-80 12:16

8155 :mLé

MACRO M1113

CZM AB0 ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE

Yob’

11 :Mé

ss-m-wgg 83: 4:31

3 :
}‘s' :

2773?

19 :
17 ;

479,
479

18 ;
&;3 :
321 :

479%
2%
2773;

8225 :

4801

ggi

8226 ;

8227 :
352' :

8231 :
ggi :

823
:
8235 :

8236 :
8237 :
8238 :

4831

8257 :

483

483%
4835

'FIND WHICH MODULE FAILED

IASYNC MODULE FAILURE

(4 to 5] :
ERRDF (5, SYNC. DUMPER);

6 toERRDF
7] : (5, ARR_DAT, DUMPER);
tes.;

!SYNC MODULE FAILURE
'ARRAY DATA MODULE FAILURE

PRINTB (SIX_FMT, PHR 4, WRD_12, FNC_5, FNC_6, WRD 52, WRD_56):

PRINTB (FMT_16, .ML_REG [.index, REGISTER_ADD], .QT_DATA, .RD_DATA);
DODU_FLG = ONE;

end;

ENDSUB;
end;

8255 :

'IF THE ERROR FLAG IS_SET THEN ERROR

- tgwszgr:(s ASYNC, DUMPER)

4818
4819
4820

4827
8

8258 :
8259 :
8263

set

2316

8251 :
8252 :
8253 ;
8256 :

selectone .REG_SEL of

481%
481
4814

Egg

8254 :;

begin

4851:0

8249 :
8250

WRT REG (.TST _PAT, .REG_SEL, index);
'WRITE TO THE REGISTER
RD_REG (.TST_PAT, .REG_SEL. ERR_FLG);
IREAD THE REGISTER
3’".‘5m.ns IS_SET
ISEE IF THE READ FOUND AN ERROR

4811

TOPS=20 Bliss=16 V2(212)

-Dec=19
:21:22
PA:<NEALE>BL3ML¢.BLI.2 (56)
'TEST ELEVEN READ/WRITE REGISTERS

3
CLR_MBUS;

4807
4808

8241 ;

32222 c:

t.aog
%

4815

8265 2
8243 ;
8244 ;

incr ne?.s& from 0 to 7 do

4799

8239 ;

8240 ;

SEQ 0195 |

TST_PAT = not t . .TST_PAT s
TST PAT = .TST_PATONE;

end:

if .DODU_FLG IS_SET
then

end;
ENDTST;

(.ML_LUN);

'REPEAT WITH A O IN A FIELD OF 1°'S
"

'SHIFT THE 1 IN THE FIELD OF 0°'S
IDROP THIS UNIT IF DODU_FLG IS SET

!
l
|

1 LOGIC TEST |
MISCELLANEOUS CODING SECTION

" CZMLABO ML-1

MACRO M1113 22-DEC-B0 12:16 PAGE 309
$T6:

7%
75 O,
;9

18:

28:

163302

3s:

8301

8303
8304

8305
nso;
830

8308
8309
8310

831

3315

831

8314

8315

8318
8319

104455
000005

010570

000007

: TST.PAT,*
: REG.SEL,*

#0,-(sP)
SP, (SP)
:g.tm.aes
. (SP)
R&,=(SP)
#12,-(SP)
SP, (SP}
PC.RD.REG
12(SP) ,#1
7%
Ré
X
RG ,#3
X
S5
§

P
BLT
P

R& . ¥4
S5$
RG #5

JWORD

SYNC

BLT

B8GT
TRAP
WORD
.WORD

”

: INDEX,*
: TST.PAT,*
* REG.SEL.*
: ERR.FLG,*
:
: ERR.FLG,*
: REG.SEL
: REG.SEL,*

“YoRD
DUMPE
.WORD
DUMPER
63

8320

#7,aML.RE3+40
g.n.nflmo
.~(SP)
R&.=(SP)

BNE

1046455

&319

831

BICB
BIS8
MOV
MOV

ST
BLT
TM
BGT
TRAP
WORD

000006

* REG.SEL

#40,aML.REG+40
M
RO

ADD
JSR
P

7 000004
419
000005

BISB
MOV

MOV

024053
2
000‘%5

: DODU.FLG
: «, TST.PAT
: SHIFT
* TWICE

Ré

TRAP

MOV
MOV

003005
104455
000005

CLR

MOV
ADD
JSR

000001

R1,$SAVES

-($P) ,-(SP)
RS
#1,R3
R1

BIC

163264

8284
gg
8287
8288
8289
8290
8291
mg
829
829%
8295
8296
8297
8298
%

JSR

v
CLR
MOV
CLR

P
P

BGT

TRAP
WORD

.WORD

: REG.SEL,*
: REG.SEL,*

5%
5SS
S

DUMPER

R4, #6

* REG.SEL,*

RG 47

: REG.SEL,*

55
S

£%

ARR.DAT

SEQ 0197

SRESEERpERRRRRTRES

103626

000017

163306

8s:

TRAP
TRAP

RTS

DUMPER

MRD
. 56,~(SP)
MRD.52.=(SP)
pmc.g.-(sm
#FNC.S5 . =(SP)
MRD.12,=(SP)
#PHR.&, ~(SP)
WSIX.FMT,=(SP)
#7,-(SP)
SP.
14
RD.DATA, (SP)
WT.DATA. ~(SP)
36(SP),
RO
RO
RO
ML .REG(RO) ,-(SP)
#FMT.16,-(SP)
#4,-(SP)
SP.RO
14
#1 RS
#30,5p
#12.5P
67
RO
3s
R4
RG A7
3s
R3
R
‘
R2.M
28
}
R3
R
R1.#17
1%
RS
£3
ML.LUN,RO

4815
INDEX,=

SP'.

479
481

s REG.SEL

: REG.SEL,*

s TST.PAT

51
44

(SP)+,(SP)+

; Routine Size:
137 words
; Maximum stack depth per invocation:

*,DODU.FLG

& §

78:

LWORD

MOV
MOV
MOV
MOV
MOV
MOV
MOV .
MOV
MOV
TRAP
MOV
MOV
MOV
ASL .
ASL
ASL
MOV
MOV
MOV
MOV
TR
MOV
ADD
ADD
TRAP
ROR
BLO
INC
P
BLE
CoM
INC
P
BLE
ASL
INC
P
BLE
DEC
BNE
MOV

PA :<|

NNNNY

Or &~

535%

— e

68:

22-Dec-1980 09:24:31
22-Dec=1980 09:21:22

Se %o %0,

S
33.. XN
X NN 5558

sMLG

<343

MISCELLANEOUS CODING SEC TION

MACRO M1113 22-DEC-80 12:16 PAGE 510

ae
-

CZMLABO ML-11 LOGIC TEST

25 words

&»

'
put guy

SR5R444437409828

MISCELLANEOUS CODING SECTION

767

MACRO M1113 22-DEC-80 12:16 PAGE 511

177352

000207

T6::

18:

JSR

22,876

BLO

CZMLABO ML-11 LOGIC TEST

RTS

!
!<BLF/PAGE>

; Routine Size:
6 words
; Maximum stack depth per invocation:

4836
4837

SEQ 0198

4833
|

0 words

MACRO M1113 22-DEC-80 12:16 PAGE 51%

CTE ST
NG
SECTION

SEQ 0199

&£

ss-boc-WBO 09:24:31
-Dec=1980 09:21:22

§§§§§§é§§§§§§§§§§§§§§§§§§§é§§§§§§§§§§§§§§§§§§§§§§§§§

B 00909000990 %090 990009090 900909 %% 90909 %0 9090909 % 90 9%%: % 90%90% % 90909090 %% 00% 9% %8s %s0,

SIS
38

oS VONOWVSWIN=O

SLRERRRRRRER&

CZMLABO ML-11 L
MISCELLANEOUS C

TOPS=20 Bliss=16 Vv2(212)
PA:<NEALE>BL3ML¢ .BLI.2 (57)

BGNTST;
1+4

: TEST NUMBER:

TST 7

! TEST NAME:

TEST DESCRIPTION:

THIS TEST TESTS THE ABILITY OF

ALL ACCESSIBLE ML11 REGISTERS
TO CLEAR OUT REGISTER DATA OF

ONE'S AND ZEROES PATTERN.
ROUTINE WRT _REG WRITES
A

PATTERN TO THE SELECTED REGISTER.
A MASS BUS CLEAR IS DONE.

THEN ROUTINE RD_REG READS THE

SELECTED REGISTER FOR CLEARED DATA

THE DRIVE IS DROPPED ON DETECTED ERRORS.

THIS TEST WILL ALSO READ THE
DRIVE TYPE REGISTER FOR ITS
INITIAL REGISTER VALUE.

IMICIT INPUTS :

THIS FLAG IS NEEDED DUE TO THE UNIQUE
MANNER IN WHICH THESE REGISTERS
MUST BE READ.
RD_DATA

LOADED BY THE READ REGISTER ROUTINE

AND CONTAINS THE DATA PATTERN READ FROM
THE REGISTER (REPRESENTS BAD DATA).

DRIVE TYPE
LOADED DURING THE INITIALIZATION CODE AND
STORES THE EXPECTED CONTENTS OF THE DRIVE
TYPE REGISTER.

local

TST_PAT,

'TEST PATTERN

iPOINTS TO REG PRESENTLY BEING TESTED

ERRTMFLG.
CLR DATA.

SAVE,

DODU_FLG;
ML_REG [19, FORCE_HI] = %0°177777";

'ERROR FLAG PASSED TO ROUTINE

ISTORES CALCULATED REGISTER CLEAR DATA

! TEMPORARY ST(RAGE LOCATION
'DROP UNIT FLAG

!CLR DATA FOR MLPD IS ONES

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 21}

MISCELLANEOUS CODING SECTION

SEQ 0200

5 -Dec-1980 09:24:31

~Dec-1950 09:21:22

4890

DODU FLG = ZERO;

4894

begin

8474 ;
8475 ;
8476 ;

2339

4898

incr REG_SEL from 0 to 10 do
in
3

8479 ;

4901

8471 ;

8477 ;
8478 ;

TST PAT = ONES;

4895 incr TWICE from 0 to 1 do

'BACKGROUND PATTERN

'REPEAT LOOP TWICE

!TEST THIRTEEN REGISTERS

CLR_MBUS;
WRT_REG (.TST_PAT, .REG_SEL, indox)

'WRITE REGISTER WITH BACKGROUND

490§
2&

CLRTMMBUS;
RD_REG (.CLR.DAVA. .REG_SEL. ERR-FLG):

'CLEAR THE REGISTER
'READ THE REGISTER FOR THE CLEARED DATA PAT

8483 ;
8484 ;
gz'g :

4905
4906
238;

if .ERR_FLG IS_SET
then

8487 ;

4909

8480 ;
8481 ;

8488 ;
8489
8490 :
849 ;
8492 :

8493 ;
8496 ;
8495 ;
8496 ;
8497 :
8498 ;
8499 ;
8500 ;

8501 ;

8502 :
8503 :

4899
4900

TOPS-20 Bliss=-16 v2(212)

PA:<NEALE>BL3ML$.BLI.2 (57)

4910
4911
4912
(913
4914

!IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG

selectone .REG_SEL of

!FIND WHICH MODULE FAILED

set

0, 1,2, 3,9, 10] :

ERRDF (6, ASYNC, DUMPER):;

'ASYNC MODULE FAILURE

s, S 8]
:
RRDF (6. SYNC, DUMPER);

!SYNC MODULE FAILURE

(6 to 7] :
ERRDF (6, ARR_DAT, DUMPER);

'ARRAY DATA MODULE

PRINTB (FIV_FMT, PHR 4, WRD_12, WRD_52, FNC_23,

4924
4925

DODU_FLG = ONE;
end;”

g% :H

2853

tes;

ENDSUB;

end;

TST _PAT= not .TST_PAT;

4931

495

8512
;
8513
;
8514 ;
8515 ;
8516 ;
8517 ;
8518 ;
8519 ;

4934
4935
4939
4937
4938
4939
49640
4941

49.

56);

PRINTB (FMTT16, .ML REGindex. REGISTERABDJ. .CLflDATA. .RD_DATA);

4928

8510 ;

8511 ;

!SEE IF READ FOUND AN ERROR

begin

492

4926
4927

8509 ;

'CALCUWLATE THE CLEARED DATA PATTERN

4915
4916
(917
4918
4919
4920
4921
492

8504 :
8505 ;

8506 :

CLRDATA = (.AI) or IM

end;

ML_REG (19, FORCE_HI] = ZEROES;
!
!
!
!
!

NOW TEST THE DRIVE TYPE REGISTER

if .MLDT neq .DRIVE_TYPE
then

'REPEAT WITH COMPLIMENT BACKGROUND PAT

'RESTORE MLPD FORCED_HI
i
.
'COMPARE REG CONTENTS TO CALCULATED VALUE

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE S‘M

8521 ;M4
8522
:

SEQ 0201

Ss-ooc-mo
09:24:31
-Dec=1980 09:21:22

TOPS=20 Bliss=16 V2(212)
PA:<NEALE>BL3MLé.BLI.2 (57)

mor (113, ASYNC, DUMPER)
PRINTB (TWO_FMT, REG_7 mk 4);
PRINTB (FMT_2, -DRIVE_fvpe .SAVE) ;
n ooou FLG IS_SET

'DROP THIS UNIT IF DODU_FLG IS_SET

6'3&1 ( ML_LUN);
ENDTST;

153574

000006
177777 163052

$T7:

JSR

1$:

?gsoglég

162636

000007

162620

177770
162614

2$:

8574 030464

142

;99 17777

000007

'céo afigesuo

BICB

#7.aML.REG+40

BISB
MOV
MOV

162540
162522

%33

BIC

013156
13162
163125

#6._SP
#-1.ML.REG+232
RS
R1
R4

TRAP

000012
172456
000012

:
;
* DODU.FLG

ML .

BICB

#7.aML.REG+40

#40,aML.REG+40

DUT RO

77776,R0

4339*
489
1.899

4897

;
@

R3.aML.REG+40
R2.-(SP)
R4 . =(SP)

MOV

4835

: TWICE
* REG. SEL
:

nr%bR3

#12,-(SP)
SP, (SP)
PC.WRT.REG
12(SP) .RO
RO
RO
RO
RO.R3
ML .REG+2(R3) ,RO
ML .REG+6(R3) .RO
RO.6(SP)

BIC

MOV
ADD
JSR
MOV
ASL
ASL
ASL
MOV
MOV
BIS
MOV

BISB

R1,$SAVES

SuB
MOV
CLR
CLR
CLR

: TST.PAT,*
: REG.SEL.*
; INDEX,*
: INDEX,*

,
: *,CLR.DATA

;
4900
|

4901

MACRO M1113 22-DEC-80 12:16 PAGE 21;

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

162516

}6616

000006

1 7?6

000014

§ 1727

7
1110

2a8q5533e

150077

000001

704

000003

8600
8601
ggg;

000004

000005

8604
8605

7
005

000010

8610

88821;

8611
861§
861
8614
8615
8616
8617
618

7
7
1

000007

S
‘2

hes O00a%3
0157¢0 avees

058

Roces

o157e8

722
7.
766

000006

030

106414
8}6716

1e5ed

0074
006062
000006

1622;8

0993

14(SP) .M

4903

; ERR.FLG,*

: ERR.FLG,*

4905

; REG.SEL

4909

493

; REG.SEL,*

4909

¢ @

; REG.SEL,*

1046455
000006
010526

8609
860
gggg

C.RD.REG

«*
: CLR.DATA,

; REG.SEL,*

; REG.SEL,*
&~
[ ]

So209s
006606
1

(SP)

; REG.SEL,*

000012

8395
8308
8597
8598
8599

000011

($P),

4, ~(S$P)
14.,-(SP)

RO, aML .REG+40

TOPS
PA:<

; REG.SEL,*
N

8589
8590
8591
85
85¢

:24:31
:21:22

T S

JMLG

857
85
85

; REG.SEL,*

4916

; REG.SEL.*

LR L L TP

—

4909

; REG.SEL,*

4922

SP'.

: CLR.DATA,
=«

4923

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 516

108:.

177362

138:

~ ADD

" TRAP
ROR
BHIS
JMP

INC
cwP
BLE
- COM
INC

: REG.SEL

; REG.SEL,*
TST.PAT

CLR

ML .REG+232

BEC
TRAP
- WORD

°§3

162106

007454
010324
000003

162042
004266
000003

000016

#6,~(SPJ

8GT

1 77338
162262

“#FMT.6,-(SP)

000001

MOV
MOV
MOV
TRAP
- MOV
ADD

2
§c~§§
S
§0\n
2527

000012

—b

000012

~3&&

g_a-.-a

005216
000004

14$:

162460
15%:

T B LEELFEELLE g8

D e
md el
o
o

&a8&

) =D o o

ERNIRISRR8

SRR PR R R REs R 2R E NS R

R Ly

sMLG

RTS

; Routine Size:

SP,*
SAVE
,*

»
SP,

1
#16,SP
R5

* DODU.FLG

158
ML.LUN.RO
5
44
#6,SP
PC

198 words
; Maximum stack depth per invocation:

25 words

r——

—

TEST

CZMLABO ML-11 LOGIC
MISCELLANEOUS CODING SECTION

e —————————————————

MACRO ' MI113 22-DEC-80 12:16 PAGE 3176

SEQ 0204

869

8705 0311
a;%i 11

767 177160
?324“

g% 031144

000207

8704
0311
8705 0311

006992
103

ROR
B8LO

; Routine Size:

3;102

8716 ;

Jsm
TRAP

RTS

8708
8715

185
i

pesT?
66

RO
1%

6 words

; Maximum stack depth per invocation:

4956

4953

:
0 words

! <BLF/PAGE>

869

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

K 16
PAGE 218

8718 ;M4
879 :

SEQ 0205
TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3M 4.BLI.2 (58)

BGNTST;
144

f TEST NUMBER:

TST 8

TEST NAME:

TEST DESCRIPTION:

THIS TEST TESTS FOR UNIQUE REGISTER
SELECTION BY FIRST WRITING A BACKGROUND
PATTERN INTO ALL READ/WRITE REGISTERS

TR TR

TR PR

PRTA

A TR

R T

N T

SS-Dcc-WBO :24:31
:21:22
-Dec~-1980

IT THEN WRITES A COMPLIMENT

T A

PRTR

BACKGROUND PATTERN INTO ONE REGISTER
AND READS THE REMAINING UNWRITTEN
RE?ISTERS FOR AN UNCHANGED BACKGROUND

local
DODU_F G

!DROP UNIT FLAG

'TEST PATTERN

T A TR

THIS PROCEDURE IS REPEATED UNTIL ALL
REGISTERS HAVE BEEN WRITTEN WITH A
COMPLIMENT BACKGROUND PATTERN.

R T A T R A
A A

R A A

(TR

ENWR

MACRO M1113

CZMLABO ML-11 LOGIC TEST

!ERROR FLAG PASSED TO ROUTINE:
iIPOINTS TO REGISTER PRESENTLY BEING TESTED.

i n&
CLR

ST mBxo°125252'

1’cs1 (.TST PAT. 0):

g. TST_PAT, g):
UT’PA JIST"PAT.
8):
(.7ST PAT.

6):

!LOAD TST _PAT WITH ALTERNATE 1°'S € 0°S

IWRITE A BACKGROUND INTO ALL THE DIRECTLY
IACCESSABLE READ WRITE REGISTERS

WRT_E1 (. TST"PAT.

135;
Iflt’EZ TST'PAT 14);
inchNTl from 0 to 4 do

!WRITE A COMPLIMENT PATTERN INTO ONE REGISTER

TS PAT = not .TST_PAT;

!GENERATE THE COMPLIMENT PAT

case .CNT_1 from 0 to 4 of

!SELECT THE REGISTER TO WRITE INTO

set

ol :

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 519

MISCELLANEOUS COD. s SECTION

8774 ;M4

SEQ 0206

ss-boc-wgg 88:54:31

377772 S

-Dec=19.

PA:<NEALE

8779 :

5011

S015

8785 ;

5017

3] :

WRT_PA (.TST_PAT, 8);

!FORTH PASS WRITE COMP PAT TO MLPA

8788 ;
8789 ;

5020
5021

(4] :
WRT_E1 (.TST_PAT, 13);

!FIFTH PASS WRITE COMP PAT TO MLE1

%;g% H

gg%g

TST_PAT = not .TST_PAT;

!COMPLIMENT TST_PAT BACK TO BACKGROUND

8794 :

5026

incr

!INOW READ THE REMAINING UNWRITTEN REGISTERS FOR AN

8797 ;
8798 ;

5029
5030

784

8
H
8787 ;

8790 ;
8791 ;

37732 :

8799 ;
8800 ;

8801 :

8803 ;

5035

8805 ;

5037

8802 :

8804 ;

!SECOND PASS WRITE COMP PAT TO MLER

WRT_DA (.TST_PAT, 3);

5018
5019

5031
sogg

WRT_ER (.TST_PAT, 6);

J s

5016

gg%g

!FIRST PASS WRITE COMP PAT TO MLCS1

1 :

SO1§
501
5014

5022
5023

(.TST_PAT, 0);

4.BLI.2 (58)

26”9

8780 ;
8781 ;
8;8 :

WRT_CS1

TOPS-20 Bliss=16 v2(212)

:21:22

3777 :

778 ;

tes;

NT_2 from .CNT_1 + 1 to 5 do

begin

case .CNT_2 from 0 to 5 of
set

'UNCHANGED BACKGRUUND

!SELECT THE REGISTER TO READ

RD_ER (.TST_PAT, index = 6, ERR_FLG);

2] :

8309 :

5041

J 2

5039
5040

RD_DA (.TST_PAT, index = 3, ERR_FLG);

'READ MLCS1
'READ MLER
'READ MLDA

504
5044
5045

RD_PA (.TST_PAT, index = 8, ERR_FLG);

'READ MLPA

[4] :
RD_E1 (.TST_PAT, index = 13, ERR_FLG);

'READ MLE1

8815 ;
8816 ;
8817 ;

5047
5048
5049

g 3
RD_E2 (.TST_PAT, index = 14, ERR_FLG);
tes;

'READ MLE2

8819 ;

5051

8811 ;
881§ $
8813 ;
8814 ;

8818 ;

8820 ;

8821 ;

g
:

5045

5046

5050

5055

505

8824 ;

5056

8828 ;

5060

8825 ;

5057

if .ERR_FLG IS_SET

then

begin

selectone

set

.02

.(NT_2

!SEE IF READ FOUND AN ERROR

|
|

1] :

5036
5038

8810 ;

RD_CS1 (.TST_PAT, index = 0, ERR_FLG);

8806 :

8807 ;
8808 ;

!THIRD PASS WRITE COMP PAT TO MLDA

5034

CZMLABO ML-11 L

MISCELLANEOUS C

C TE ST
NG S E CTION

MACRO M1113

22-DEC-80 12:16

M_16
PAGE 220

SEQ 0207
TOPS-20 Blis =16 v2(212)
4.BLI. 2 (58)

S5Dec-1980 09:31:22 PA: EALE
(3 to 5] :
tes;

ERRDF (110, ARR_DAT, DUMPER);

!ARRAY DATA MODULE FAILURE

PRINTB (THR_FMT, WRD_38, WRD_37, WRD_10)

PRINTB (FMT~16, .ML_REG [.index. necrsreh_ADD], .WT_DATA, .RD_DATA);
DODU_FLG = ONE;

end;

1f D(DUFLG IS_SET

!DROP THIS UNIT IF DODU_FLG IS_SET

380(&“}0

————————

SREEREGREEREAREE]E

SoSRNITRRTS

ENDTST;

152744

$78:

162030
162012

1$:

R1,$SAVES
=(SP)

:l.o.n REG+40

n
”
87, fiewo

:g.aML .REG+40

:-szsze R4

~(§P)

CS1
PCWRT.

; DODU.FLG

: =, TST.PAT
: TST.PAT,*
;

TST.PAT,»

; TST.PAT
,»

#0,-(5pP)

TST.PAT,*

4997

MACRO M1113 22-DEC-80 12:16 PAGE 321

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

seoozoo§

sMLG

i
%§
B

£-98

899

8500

8901

15
16

167460

031322

8008 &
o &
aoo?

166116

8910
8911
mg )3

000006
166260

8914
gs

000003
166422

5913 )3
8N )

000010
166742

8§91

4S:

5$:

000015

167134

)3
)3
)

108:

031442

118:

avg
g S
8a
8938

8939

128:

000030

§§§§§§§§§§’§§§§§3§§§3§§§3§§§3§§§§§§§§§§§§§§§§§§§§

167070

8cc

5
PC,WRT.PA

-Dec =1980 09:%4:31
-Dec~- 1980 09:21:22

TOPS
PA:<
|

RG . (SP)

; TST.PAT,»

4998

PC,URT.E1
Ré. (SP)

; TST.PAT,»

n5,-(sp)
#16,-(SP)

:c.m.ez

; CNT.1

;

TST.PAT

; CNT.1,»

-(SP

sg.fl'l’.C!'fl
R&,-(SP)
#6,-(SP)

; TST.PAT
=

: TST.PAT =

PC.WRT.ER

TST.PAT ,*

:: TST.PAT,*
98
Ré ,~(SP)

nM5,-(sP)
:C.ERT.U

:: TST.PAT ,*
; TST.PAT
s CNT.1,CNT.2
; CNT.2,»

SP
#30,-(SP)

; TST.PAT,»
: INDEX

5033

MACRO M1113 22-DEC-80 12:16 PAGE 322

000030
167026
178:

000016

000030
167258

000001

000002

000003
000005

198:

&
B8

TST.PAT
»
*, INDEX
INDEX
,*
ERR.FLG,*

LA TR TR T
..

TST.PAT

*, INDEX
INDEX,
*

168:

000015

ERR.FLG,*

ERR.FLG,*
ERR.FLG,*

CNT.2
CNT.2,*

CNT.2,*
CN‘.Z.'

5 8

166644

Qe %e NN,

000030

ERR.FLG,*

TST.PAT
,«
*, INDEX
INDEX,
*

158:

000010

ERR.FLG,*

166320

000030

TST.PAT,»
*, INDEX
INDEX,
*

TST.PAT
,+

14$:

000003

166166

Pacd

ERR.FLG,*

3232

138:

B Dec 1080 Bi31i2

ALY g 3a32AN322285483389%483299%538022%983233%58

SRRSNNSBRRERRBR
LRSI SRRIIIE

sMLG

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 523

SEQ 0210|

22%:
238:

000016

248:

ASL
ASL
MOV
MOV
MOV
MOV
TRAP
MOV
ADD

RO
RO
ML .REG(RO) ,~(SP)
#FMT.16,~(SP)
#6,~(SP)
SP.RO
14
#1 RS
#22,5P

g"g

RS”

Sor

JP
(W
INC
oy

o
ADD

JMP

177056

258:

161472

BHIS

258

26%:

TR
TRAP

TST

RTS

; Routine Size:

8
*,DODU.FLG
CNT.

CNT L

108
(SP)+,(SP)+
R
R1, 4%
#16,SP
67

JMP
DEC
BNE
MOV

SP,»

334

TRAP

ROR

,=
INDEX

* CNT.1
* CNT.1
LA

13
268
ni.um.no
RS

DODU.FLG

S
44

(SP)+

244 words
; Maximum stack depth per invocation:

ASL

5065

MRD.37.-(SP)
MARD.38.-(SP)
STHR.FMT
= (SP)
#6,-(SP)
SP.RO
14
RD.DATA, (SP)
WT.DATA.~(SP)

MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV

55
156
ARR.DAT
DUMPER
MRD.10,~(SP)

208:

TRAP
MORD
JWORD
.WORD
MOV

28 words

- —

CZMLABO ML-11 LOGIC TEST
L) SCEI.L&GS CODING SE SECTION
1

g;g

%;3
G
9080
9081 ;

767

—_—

MACRO M1113 22-DEC-80 12:16 PAGE 326

177024

Tg::
1$:

JSR
TRAP

; Maximum stack depth per invocation:

5084

!<BLF/PAGE>

—_—

——

SEQ 0211

PC,$78
66

18
80
RTS
PC
: Routine Size: 6 words

00020

-——

0 words

5081

—

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE SZS

9083 .MLé

’

BGNTST;

% : TEST NAME:

TST 9

PRINT SERIAL NUMBER

I
3

5101
S10§

external

5104
5105

Llocal

510

5106

3
3

5107

5108
5109

3
s
3
3
3

5110
5111
511§
511
5114

3
3
:
3
3
3
3
3
3
3
H
:
H

5116
5117
5118
5119
5120
5121
512
51
5124
51
51
51 27
51 28

5115

!LOCATION WHERE ANSWER TO SW QUESTION IS STORED

D3.

!STORES DIGIT 3 OF
ISTORES DIGIT 2 OF
!STORES DIGIT 1 OF
!STORES DIGIT 0 OF

D2.

D1.
D0;
if .PRSN IS_SET
then
in
D3 = .SN3;

SERIAL NUMBER
SERIAL NUMBER
SERIAL NUMBER
SERIAL NUMBER

!SEE IF WE PRINT THE SERIAL NUMBER
!PRINT THE
SERIAL NUMBER IF THE REPLY WAS YES
!LOAD DIGIT 3 OF SN INTO D3
!LOAD DIGIT 2 OF SN INTO D2
!LOAD DIGIT 1 OF SN INTO D1

D2 = .SN2;

D1 = .SN1;
= _SNO;

iLOAD DIGIT O OF SN INTO DO

if ((.D3 gtr 9) or (.D2 gtr 9) or (.D1 gtr 9) or (.D0
r9)
'SEE IF DI ITS ARE TO BIG FOR COVERSION
hen
PRINTB (FMT_25, PHR_15, .MLSN)
!PRINT OCTAL SN IF TO BIG
else
PRINTB (FMT_26, PHR_15, .D3, .p2, .01, .D0);
!ELSE PRINT DECIMAL SERIAL
end;

ENDTST;
.GLOBL

PRSN

—

BRRUBBNRRRUNNS
TR IR r a2 BIBURIRER2S

2222229992222828222
292928 LL2242222e

S097
5%

! TEST DESCRIPTION:
!
UPON A YES RESPONSE TO THE
!
SOF TWARE QUESTION °‘PRINT SERIAL NO?
!
PRINT OUT THE DRIVE UNDER TEST
:
SERIAL NUMBER.

/ K

1+4
: TEST NUMBER:

9095
9099 3
9097 ;
9098
9099

3
3

TOPS-20 Blis -12 v2(212)
.BLI.2 (59)

PA: <NEALE

| S

9093 3

SEQ@ 0212

S5Dec-1980 09:51:22

% 3H

9088 :
9089 .
9090 ;
9091 ;

-——

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

a§

22-DEC-80 12:16

g«s
g;’;

151

1?082 000001
161142

$T9:

JSR

R1,$SAVE3

“msn.n
@ML.REG+140,R3

= §

ASR

N
N

177760

SWAB
BIC

#177760.R3

3%
91% 3
9158 03¢

177760
161106

Bic.
MOVB

#177760.70
@ML.REG+140,R1

97159
960
9161 03
918 9N
9164 O
965 O
918
311“
91% 3

161120

161

BLE
MOV

-¥
ML .REG+140,~(SP)

oor%.

0%t

9180 03

98>
918
*
mg 3

3113 )3
%‘g
9190 03
311%

177760
161
177760
000011
000011
000011

9N 7% 032264

4
N
-

ASR

@ML.REG+140,R0

R1
R1
R1
#77760
.REG+140,R2
#177760,
R3.#M1
13
RO, #11
R1. 411

000011

mg
N

MOV

18:

MOV

3”

m.1§.-(sfi)

7714
764

: D3
: *,D3

: «’D2

i: 02
D1
s

: oi

: D1
: D1
: D1
: *,D1
: .00
: =.p0
. pS,
: D2,*
: D1,»

: DO, *

[

: SP,*

MOV

: D0,

R2,=(SP)

v
MOV
MOV

R-(P)
=g.-(SP)
#PHR.15,-(SP)

%
W
ADD

osg.;ésps
k‘w
n0,sp

MOV

AR
SP.RO

MOV

2s:

000006
000010

%G.I

:
: sgos

RTS

oTM

#FMT.26.-(SP

PA:

5111
5114

‘D

ASR
ASR
ASR
BIC
MOVB
BIC
e
BGT
gsv;
P

31‘71 )

1980 09:21:22

g:
g

—

SEQ 0213 |

Smwoo 09:5?:31

9144

—

F_1

PAGE 226

MLG

i Boie
: og.-

5115

5116
511
511

1
5122

511

5121

SP,*
A

5113

5083

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 327

919%

1
SEQ 0214

H, T

7%
913;

;
: Routine Size: 72 words

: Maximum stack depth per invocation:

-Dec~-1

:24:31

BRI BT
11 words

K
i
:

g
gi‘

004767

177554

103
000207

9
g!gzzg

9226
9227 ;

19::
18:

JSR

PC.$T9

BLO
RTS

1$
PC

: Routine Size: 6 words
; Maximum stack depth per invocation:
5129

!<BLF/PAGE>

0 words

5126

<
CZMLABO ML-11 LOGI C TEST ——

MACRO M1113

MISCELLANEOUS CODI NG SEC

22-DEC-80 12:16

H_1
PAGE 228

SEQ 0215

wviviviuaiiuauavaviaiaiaaviiauaaavia
i
i v
awv

35Dec-1080 09:51:22 PA:NEALESBLIM 4.B01-2
(60)
b

C=BUS PARITY TEST

TEST DESCRIPTION:

d e

i TEST NAME:

TST 10

TEST THE CONTROL BUS PARITY
DETECTION AND GENERATING BY:

WRITING BAD PARITY TO DEVICE
AND TEST CPAR SET.

WRITING GOOD PARITY TO DEVICE

READING DEVICE AND TEST GOOD

d e
b ed

AND TEST CPAR CLR.

PARITY GENERATION BY READING
MCPE CLR.

b
b
b
d
b
b
b e
d
md
D e
b
b
d
b
b
d
e
b
b

2B ISV

b —d e
d o
b

BRERSSES
8§8§EAREE RS CHEER SRR

d e

NANIITE LR SRER LB BEIFNRUKR LB & LGSR ER

—_

D e

Tes

: TEST NUMBER:

BGNTST;

local

SAVE,

!TEMPORARY SAVE LOCATION

TST_PAT;

'TEST PATTERN

:'f‘.'.‘PAR_DIS IS_NOT_SET

!SEE IF PARITY IS DISABLED

in
TST_PAT = %0'125252°;

!BEGIN IF PARITY IS ENABLE
!ALTERNATING 1, O PATTERN

incr W*CE from 1 to 2 do

'REPEAT LOOP TWICE

CLR_MBUS;

PAT
= ONE;

'GENERATE EVEN PARITY BY SETTING THE PAT BIT

if .CPAR IS_NOT_SET

'READ CPAR BIT SET

MLDA = .TST_PAT;

'WRITE BAD PARITY ON CONTROL BUS

bflor 7
IF NOT SET
mm(fmm tu|§ um? WRD_9)'EW
;
n.ol = .TST_PAT;
LR_MBUS;

!CLEAR OUT PAT BIT
'WRITE ODD PARITY CONTROL BUS

if .CPAR IS_SET
then

!READ CPAR BIT CLEARED

CM ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

032366

032376

SRR

T0PS-20 Bise-16 ¥2(212)

NEALESEL
I 4.501-2

end;

CLR_MBUS;

D d

RERIS BRIRRREC282E

SEQ 0216|

33Dec1980 09:51:25
in
'5’3&,;
(8, ASYNC., DUMPER);
'ERROR IF SET
PRINTB (THR_FMT. WRD_6, WRD_7, WRD_9);

SAVE = .MLDA;

!READ A REGISTER FROM DUT

if .MCPE IS_SET
then
in

!SEE IF GENERATED GOOD PARITY

TST_PAT = _TST_PAT“ONE;

!REPEAT WITH SHIFTED DATA

D ed eh o

) e

%(9
ASYNC, DUMPER) ;
:ERROR IF MCPE IS_SET
mm(fmrm WRD_6, WRD_7, WRD_8);

Efifiéfimfifififiéi‘%g%%fiéfimfim

WACRO M1113 22-DEC-80 12:16 PAGE 529

end
lse
PRINTB (TWO_FMT, WRD_7, WRD_53);

004167

151466

125252
1

: 7

$T10:

157170

160576

160560
160546
160554

18:

JSR

R1,$SAVE3

BNE
MOV
MOV

)
#-52526.R1
M .R2

BISB

BIC

#40,aML .REG+40

R BTGRORO

#7.3ML.REG+40
ML .REG+40
ML .REG+40
R1,aML .REG+30
10, aM .REG+60
5

JWORD
.WORD

ASYNC
DUMPER

MOV
MOV
MOV

PAR.DIS

BICB
BIS8
BIS8
[
g.xfra
TRAP

.WORD

!JUST PRINT MESSAGE IF PARITY IS DISABLED

MRD.9,~(SP)
MRD.7.-(SP)
MRD.5.~(SP)

: *,TST.PAT
: =, TWICE

513
51

5165

:
: TST.PAT,»
:

5167
b

5173,

5174

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 530

SEQ 0217 |

9345

MOV
MOV

0355

: SP,*

160460 28:

ADD
BIS8

12.5P
ML .REG+40

51;3
51

160442

BICB

R
R0
#7,9M.RES

;
:

160444

MOV
gga

R1_aML .REG+30
90,3 .REG+60

; TST.PAT,
:

51
5180

5184,

BISS

TRAP

JWORD

o
%

160350 3s:

03267¢
270k

160254

)

o7
¥

3076

58:

:‘15.9

=
BICB

BISB

m
#7.@ML.RE
RO.aML.REG+40

BIT
BEQ

#
(%)

BIS8

-aML.REG

ARD.8,~(SP)
ARD.7.-(SP)
ARD.6.~(SP)
#THR.FMT,~(SP)

;

5194

518

MOV
MOV
TRAP
ADD
ASL
INC
[,

#%,-(SP)
?P.
4
n2,sP
1
5
M2

MOV

; SP,w

ASYNC

MOV

51331

;

ML .REG+40

"WORD
- WORD

BLE
RTS

ASYNC

ADD

MOV
MOV
MOV
MOV
48:

RO.aML.RE

DUMPER
MARD.9,~(SP)
MARD.7.~(SP)
MRD.6.~(SP)
STHR.FMT ,~(SP)
#6,-(SP)
SP.RO

MORD

13272
13273

.WORD
MOV
MOV
MOV
MOV
MOV
MOV
R

160332

BIt

MORD

2632

TOPS
PA
q

SP.RO

.,
260
03
.
:

#THR.FMT ,=(SP)
#6,-(SP)

-Dec=1980 09:24:31
ss-bowlm
09 g 22

MOV

TRAP

939%

MRD.53,-(SP)

MRD.7.~(SP)

: SP,»

513;

: TWICE
* TWICE,»

5164

: TST.PAT
3

$159|

§202

fiéfi&fimfi%fifififié%fi

CM ML-11 LOGIC TEST
SCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 231

SEQ 0218

JMLG

4
D5e

%20

:22

MOy
MOY

#TWO.FMT ,=(SP)
.~(SP)

RTS

MOV
TRAP
ADD

000010

: Routine Size:

o
4
f70,SP

139 words

; Maximum stack depth per invocation:

004767
104466

177346

T10::
18:

JSR
TRAP

ROR
BLO
RTS

5205

! <BLF /PAGE>

5128
9 words

5202

PC.$T10
66

RO
1$
PC

; Routine Size:
6
HaxiM stack depth per invocation:

TOPS

PA:<

0 words

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 532

MISCELLANEOUS CODING SECTION
9438

;M4

-1

&‘o .

%56 :

5221

i IMPLICIT INPUTS:

%57

53
%61

B
5226 |

bk :

%8S :

&29 3
%69

i
|

e
m:ms INIT CODE AND

sroaes vemrms INPUT TO THE
SOF TWARE QUESTION:

NUMBER OF ARRAYS PRESENT?

5234

local

26‘779, :

Sgg

%78
%79

DODU_FLG;

&‘g 3
3

%84
9485
9%86 :
%87 :

9/.09”! :
%90

5249
S
5251
5

‘
5555

525

'DROP UNIT FLAG

_FLG = ZERO;

if (LOP_NUM_ARR + 1) neq .ML_NUM_ARR
m

9480
%81

9492

THE DRIVE IS DROPPED ON DETECTED ERRORS.

5231

5235

&;ls' :

PRESENT TO THE n.n SI1ZING

NUMBER OF ARRAYS PRESENT

§227
28

9%70 :

%7 ;

4.BLI.2 (61)

BGNTST;

0444
964S ;
9%4b
%47 :
9448 :
9449 ;
950 :
%51
%52
:
9%53
%54 :

2",,8 :
:

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BLIM

w.f :

9%58 :

:26:31

55-0«-138 83: 1:22

9641 ;

%55

SEQ 0219

(10, ASYNC., DUMPER)

'SEE IF DRIVE SIZED SAME NO. OF ARRAYS AS OP INPUTED
'IF NOT EQL THEN ERROR AND SET DODU_FLG

PRINTB (TWO_FMT, FNC_1, WRD_14)
PRINTB (FMT"2, (.OP
ARRTM+ 13, .ML_NUM_ARR);
end;

_FLG

= DNE;

ENDSUB;

11 omuFLG IS_SET

3& AL

'DROP THIS UNIT IF DODU_FLG IS_SET

_——

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

LR
PAGE 233

949% MG

SEQ 0220 |

S5 Dec-1980 09:21:22

TOPS-20 Bliss=16 v2(212)
PA: <NEALE
4 BLI.2 (61)

1
i

2
5239
5241

i
MRD.
14 ,-(SP)
#FNC.1,-(SP)

#TW0.FNT ,-(SP)
.~(SP)

]

177740

SP.RO
14
-REG+120,R3

& el|

160172

DODU.FLG

#177740.R3
SP)
,
- (SP)
OP.NUM.ARR

SERT.2,(SP)
,=(SP)

]

16
[]

156464

$T11:
$:

ODODDEBOD

rried

160150

%m 160132

3333
333333
VBN
VS UWNN=O

151024

G5~ 2ges
LR
L

ENDTST;

SP.RO
%

S&fi

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 234

CIMABD ML-11 LOGIC TEST

SEQ 0221

H, €1

1980

200078
1

2s:

9560

9561

ADD
TRAP

#16.5P
67

MoV

”n .R2

ROR

=
TRAP

TRAP

33:

9564

: Routine Size:

95659570

RIS

76 words

;
11 words

o5 s

9584

9585

177544

o
1

JSR
TRAP

PC.$T11
66

BLO
RTS

000207

9586
gssgg

9593
95% ;

T11::
18:

8
18

: Routine Size: 6 words
; Maximum stack depth per invocation:
5260

!<BLF/PAGE>

;

5204

Y
.
:

:
4:

0 words

M
3%

i
;

9S71

004767
104466

: = ,DODU.FLS

; Maximum stack depth per invocation:

9575
9579
9580
9581

09:24:31

Sohe 1980 B:513%

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 3352

H, 8

-Dec~1
:26:31
53—0«-1838
g:ShSZ

TOPS-20 Bliss=16 v2(212)
PA:
<NEALE
é.8L1.2 (62)

!
BGNTST;

lee
' TEST NUMBER:

TST 12

: TEST NAME:

NO=-OP FUNCTION TEST

: TEST DESCRIPTION:

%
|
;lso :

ANO_OP
FUNCTION WiTH oot o
HANGING THE DRIVE.

INTO.H.

CHECKED FOR CORRECT STATES.

Wfi%fiw

ViV
i
iAaviaaiwvawn

A A I A

A A A

T AR A I A O A

A A

307

5310

NO_OP FW"W IS WRITTEN

THEN GO “ ERROR BITS ARE

THIS UNIT IS DROPPED ON DETECTED
ERRORS.

i
i

IMPLICIT INPUTS:

NONE

fao

local

DODU_FLG;

!DROP UNIT FLAG

]

A T

S
A
L
S

T T AT TR TATATATA T

SEQ 0222

DELAY (oe.u§>.
1;.'.‘60 IS_SET

bt
E
(11,

!DO A NOOP FUNCTION

iDELAY 1 US
'SEE IF GO STILL SET
ASYNC. DUMPER);

'ERROR AND SET DODU_FLG IF STILL SET

PRINTB (FIv_FMT, WRD_1, PHR_2, WRD_11, FNC_2, WRD_19);
DODU_FLG = ONE;

end;

if JILF IS_SET
then

colr
E
(12, ASYNC. DUMPER);

ISEE ILF SET

'ERROR AND SET DODU_FLG IF SET
PRINTB (FIV_FMT, WRD_3, PHR_S, WRD_11, FNC_2, WRD_19);

MISCELLANEOUS C

MACRO M1113 22-DEC-80 12:16 PAGE 536

CZMLABO ML-11 L

X 1)
TR LA PR T
PR PRTR
A
T

if .OP1 IS_SET
then

TOPS-20 Blis 16 v2(212)
4.BLI.2 (62)

PA: <NEALE

ISEE IF CPI SET

;
AND SET DODU_FLG IF SET
(13, ASYNC. DUMPER)
ERDF
mm(rivrm.wl.
PHR_S,
WRD_11, FNC_2,'ERROR
WRD_19);

DODU_FLG

= ONE;

ENDSUB;
H omuFLG IS_SET

!DROP THIS UNIT IF DODU_FLG IS_SET

&':80 (.lLUN) ;

A A

TATE

TR PR PR T A LA

SEQ 0223 |

33 Dec-1980 09:31:3)

SEnEuR

H, T

ENDTST;

150544
157702

$T12:

JSR

18:

157664
1

1466540

157554

S58:

L necrio0

BIC

BIS8
CLR

R1.,3ML .REG+40
R2

BEQ

CLR
DEC

000001

SP)

oY
7%%
BICB
#7.aML.REG+40
MOV
MOV
BEQ
MOV

157610

R1 +SSAVE2

BNE
DEC
&R
8IT8
BEQ
TRAP

WORD
WORD
.WORD

; DODU.FLG

#1,3ML .REG
#1.RO
s$
LSDLY.R1

:
: *, $STMP2

(SP)
R1

: SSTWP
: SSTMPY

3s
RO
23
#1,8ML .REG
?S
g
1
ASYNC
DUMPER

: *,$8TMP1

: SSTMP2
:
2

MACRO M1113 22-DEC-80 12:16 PAGE 3372

SEQ 0224 |

Sisea83s

5% VASIIRGEN

2
sR
V:S\M

: *,DODU.FLG

3N
5308
5314

5317|

5318

*,DODU.FLG

: DODU.FLG

157720

ssufi

SE L

974

Ti
PA:

*,DODU.FLG

3R
VA SBEBL.@n

3RB®

L EE L EELLEEE
R, FELLEELLLY $°aG ELLELLEE

S5 Do 1980 09:21:22

5327

33 3 S5 322

1 C TES
1NG SE TION

MACRO M1113 22-DEC-80 12:16 PAGE 5382
JMLG

9s:

126 words
; Maximum stack depth per invocation:

T12::

1$:

JSR
TRAP
ROR
B8LO
RTS

; Routine Size:

9799

RTS

bale
(SP)+
PC

; Routine Size:

9790

TRAP

TST

! <BLF/PAGE>

11 words

5329

ST12

6 words
; Maximum stack depth per invocation:

5332

5259

Sa3&3

M-111L

LLANEOUS C

5188 B}

—

0 words

MACRO M1113

CM ML-11 LOGIC TES T
MISCELLANEOUS CODING SE CTION

22-DEC-80 12:16

F
2
PAGE 239

A
TR

T A

; 5

tee

‘ TEST NUMBER:

i
l

5345
b}
5

i
i

TEST IF THE DRIVE CAN PERFORM
A WRITE CHECK FUNCTION WITHOUT

A WRITE CHECK FUNCTION IS WRITTEN

THEN GO AND ERROR BITS ARE
CHECKED FOR CORRECT STATES

HANGING THE DRIVE.

INTO MLCS1.

local

DODU_FLG;

3338 BONSLE
sgéo oond‘%= 2ERO;

!DROP UNIT FLAG

5359 CLR_MBUS;
5361
g

FIRST_BLK XFER ();
MLCS1TM= WRT_CHK;

!SET UP_A FIRST BLK XFERR
DO A WRITE CHECK FUNCTION

u .m IS_NOT_SET

!SEE IF THE GO BIT GOT SET

5
g

*F NOT SET
b%f (14, ASYNC, DUMPER):
mmmvrmWRD_1, PHR_1, WRD_12, mu uun

if .DRY IS_NOT_SET

5371

then

gl (15, ASYNC, DUMPER);

PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_43,

A
AR
Y

TR TRIATATE
LA

28
v

WRITE CHECK FUNCTION TEST

TEST DESCRIPTION:

5 59

TST 13

TEST NAME:

A\
w

)
b
]
&
)
5§35
5354

TOPS-20 Blis 16 v2(212)
PA:<NEALE
4.BLI.2 (63)

BoNTST:

A A

S R

T A A T R

A A

E T A I AE T R A A

R A

981
9818
9819

ZS-Doc-lggg 835?3}
~Dec~1

9814
9815
%19

%18

Q}l

9810

TATATATE

333233&

H, T

SEQ 0226 |

else

!SEE IF THE DRY IS SET WHILE GO IS CLFARED
MAERROR_IF CLEARED
PHR_6);

DODU_FLG = ONE;
end

ISET DODU_FLG

if .DRY IS_SET
then
in

!THE GO IS SET SO SEE IF DRY IS CLEARED

anf (16, ASYNC, DUMPER);

'ERROR IF DRY IS SET

CM ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 340

MISCELLANEOUS CODING SECTION

5MG
S

9864
S 2

9868 ;
:

”z 3
9873
9874 ;
9875 ;

§
S

S
b
S
S

”% 3

5400

9878 :
9879 :

5”°§
540

9877

9880
9881 ;

gg s

9884 .

5401

TOPS-20 Blis 16 v2(212>
RRBAHE
P?

DODU_FLG = ONE;
then

Qgg 3

SEQ 0227 |

PRINTB (FIV_FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_S);

if JILF IS_SET

9871 ;

‘

-Dec-1
:264:31
BRBBND

!SEE IF ILF IS SET

‘

ba n

E
(17
YNC, DUMPER);
sF SET
PRIMB(FVF . WRD_3, PHR_S, WRD_12, FNC‘ \fibl

DODU_FLG = ONE;

end;"

'lf .Ol IS_SET
baw

(18,

'SEE IF OP]1 IS SET

ASYNC, DUMPER);

'ERROR sf SET

PRINTB (FIV_FMT,
WRD_4, PHR_S, WRD_12, FNC_4. WRD_19);
DODU_FLG = ONE;
end;”

5404
5405

DELAY (FRTY_US);

5408

then

5407 1if .DRY IS_NOT_SET

'WAIT FO XFERR TO COMPLTE

!SEE IF DRY IS SETS AFTER XFERR

9885 ;

5409

9887 :

S411

if .G0 IS_SET

9889
9890

541
Ssz}g

bmin

% 4

552}9

if .GO IS_SET then ERRDF (19, ASYNC., DUMPER) else ERRDF (20, SYNC., DUMPER);

989% :

5418

9896 .
9897 ;

5420
5621

9886

9888

9895

5410

5415

5419

9899

begin
,

'IF THE GO IS SET THEN TRY TO CLR GO

?
r

'IF GO IS STILL SET THEN ASYNC FAILURE

PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19);

end
else

(21 ASYNC, DUMPER);

9900

'IF DRY IS NOT SET THEN SEE IF GO IS SET

'ELSE SYNC MODLE FAILURE

'ERPOR GO AND DRY BOTH CLEARED

FRINTB (FIVFMT, WRD_2, PHR_1, WRD_11, FNC4, WRD_19);

990% :

5427

9906 :

?‘.ig
if .GO IS_SET

'SEE IF THE GO IS STILL SET

9908
m9910 3

54
552

blo_gin

'TRY TO CLR GO IF STILL SET

33115 :

ssfiz

if .GO IS_SET then ERRDF (22, ASYNC, DUMPER) else ERRDF (23, SYNC, DUMPER):

9907 ;

5431

D@U_FLG = ONE;

;

;
5
:

!SET THE DCDU_FLG

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H 2
PAGE 241

914 M4

<1980

33115 3
9919 :

PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19);

919 ;
:

DODU_FLG = ONE;

su.;:s
5448

9930
;
9931 :

gll:SO
51

99”%3
9540

9961
g“i
994
995
9946
9947
958
9949
9950
9951
%
9954
9955
%

9959
9960
9961
%
9964
9965
9966
9967

ENDSUB;

TOPS=20 Bliss=16 v2(212)

5449

082257

||
;

end;

$T13: JSR
ST

ENDTST;

oogo‘o
157654
oggg%
1
162066
000051
000001

157272

157254
157174
157166

1046455

R %6

'DROP THIS UNIT IF DODU_FLG IS_SET

in
3530
CML_LUN) ;
DOCLN;

004167 150134

005746
1%
1
201
1
150177

1ELSE SYNC MODULE FAILURE

gfig :L'.‘ooou.nc IS_SET

7 :3:
3

09:24:31

SM#% 83:31:32 PA: NEALE
&.BLI.2 (63)
'IF GO IS STILL SET THE ASYNC FAILURE

918 :

SEQ 0228

18:

TRAP
BISB
MOV
BIC
BICB
BISB
CLR
JSR
MOV
BITB
BNE
TRAP
WORD
WORD
WORD

R1,$SAVE2
-($P)

2
#40,aML.REG+40
u%
”n
R1
#7.aML.REG+40
R1.aML.REG+40
R2
;g FIRST.BLK.XFER
f.amL.REG
#.am.
is
5
16
ASYNC

:
:

53
53

: DODU.FLG
:
:
;
;

5361
5
53
536
5368

506

MOV

MARD.19,~(SP)

n;o
~

MOV
MOV
MOV
MOV
MoV
TRAP
BITB
BNE
TRAP

ARD.1.-(SP)
#FIV.FAT,~(SP)
#6,-(SP)
RO
4
#200,aML.REG+50
3s
55

: SP,»

766
%6
746
14
132777 000200 157156
ogzgsg
10445

A3
A
MPHR.1,~(SP)

5331

:
:

5370
5373

MISCELLANEOUS

TESE

IC
CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 5422
sMLG

371%

-1980 09:24:31
2801980
Bi%ii

MORD

99;3

)

28:

MOV
MOV
TRAPY
ADD
B8R

#6.~(SP)
SP.RO
14
16,SP
3s

Ls'zn

MOV
MOV
MOV

MOV
MOV

99598

10000 8

1
1

ARD.4S,-(SP)
#PHR.1,=(SP)

DUMPER

MRD.1 =(SP)

034¢

)

157012

ARD.4S.-(sP)
m.i.-(sm
MARD.2.~(SP)

#FIV.FRT,~(SP)
#6,-(SP)

BITB

#1,8ML.REG+60
21
ASYNC

1
10010 O
10011 0
1 i )
1
10014

MOV
MOV
MOV
MOV
MOV
MOV

MARD.19,~(SP)
#FNC.4, ~(SP)
ARD.12,~(SP)
#PHR.S,~(SP)
ARD.3.-(SP)
#FIV.FMT,~(SP)

110058
281
85

gs
5

5384,

g,
TSR0 338

;

B
TRAP 14
Ty
BIT

;

4$:

156722 S$:

5381

: *,DODU.FLG

MORD
"WORD

1835? )3

#6,SP

BEQ
TRAP

i
10019 4,
1019 &

;

”.R2

)
)

; SP,*

MOV

)

i
1

5374

?sl.neeoso

3s:

ADD

MARD.2.~(SP)
#FIV.FMT,-(SP)

- WORD DU

999% 0.
9995
%

MOV
MOV

MORD

m.?.-csm

TRAP

99N

10001

MOV

MOV
MOV

9980
10

9988

ASYNC

MOV

TOPS
Ive

JWORD

.WORD

9975

9589

‘

:
SEQ 0229 |

,@ML.REG+60

;

5393

‘.

f W
:

§397

510

COUABO ML-11 LOGIC TEST

MISCELLANEOQUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 5‘32

5 c=1980 09:21: 22

9s:

) b e

8888

) e oD e

108:

AR53302383329333%8

:;',i’
sl.mi
|

: SP,*

; *,DODU.FLG

: *,$8TMP2
: =, SSTMP

: SSTWP

: SSTMP1

; $SSTMP2

5407
5411

5413

156526
156454

118:

128:

L LELEE LT

156544

) d) D d D e

) e

156574

8s:

D D D D D

eot

2P2BR

FIARAINAI
DI I
:; R : vf‘v‘

) D d B d md o o

D D d o

D D md

D i o

) ol D b 5

c=1980 09:24: 3

sMLG

156514

D b o o

seoozsof

5416,

5419

541

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

1
1
1

138:

)
)
)

)

10100
10101
1018 )
10103
Q.
1010% O

10105 Q:
1o1$ )

0
1018 )

16
1

1%8:
156300

15$:

156330

W 156312
1
000001

10113
1o11§ )
1011%

}ms

1o119 )
10113 )

}&1

)

10122

}m
10127
}g
18}

1
101

)
O
)

TRAP

MORD
JWORD
.WORD

168:
006506
7756

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
ADD
BITB

BEQ
BISB
MOV
BIC
BICB

178:

)

176670

}g )3
1o1§ )3

156546

ARD.19,~(SP)

#FNC.4, ~(SP)
ARD.11,-(5P)
MPHR.1,~(SP)
MARD.2.-(5P)
#ETV.FAT,=(SP)
#6,-(
fr.no
4
” . R2
mé,sp
#1,8M .REG

188
#40,aML.REG+40
n
R1
”
R1
#7.3ML.REG+40
R1.@ML.REG+40
#1,aM.REG

JWORD

ASYNC

JWORD

SYNC

mvE ,

m'
u.Ew.-(sm

aRD.11,-(5P)

MOV

#FIV.FAT,~(SP)

MOV

e
198:

PA:
5426

: SP,*

: *,DODU.FLG
3
:

;

fisfi

5438

oD
QUTER
TRAP 5SS
MORD 27

MOV

1
ms

b 31

2§
ASYNC
DUMPER

e 3
WORD 26

)

55-'3:-1900 09:5?:22

BISB
BITB

156240

10110

-1980 09:24:31

MOV

10098 (3464,
7
)

s
SEQ 0231 |

|
)
1
)
1
)
1
134¢
1
)
1009% O
1
)
1
1346
1
463

10121

K 2
PAGE 244

H, T2

22-DEC-80 12:16

[
ADD
ROR

BHIS

JP
DEC

go‘v
TRAP

#FNC.4, ~(SP)

mf -(
#6,-(SP)
ip.no

0‘1‘ R2
né.sp
3(7)
198

18
vg‘

ML.LUN.RO
51

: SP,*

:
i

DODU.FLG
-

: DODU.FLG

54
5
544k

5447

“

—_——

CZRABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 5&5

1
10140
10141
}018

104444
005726
000207

208:

10160
}81161

s
10164

10165

004767
104466

176636

903723

1$:

303 words

JSR
;&AP

PC.$T13
%

RTS

000207

; Routine Size:

}81167

101;5

T13::

; Maximum stack depth per invocation:
5452

!<BLF/PAGE>

TOPS

5331

5449

18 words

6 words

——

44
(SP)+
PC

* Maximum stack depth per invocation:

10166

10176 ;

TRAP
TST
RTS

SEQ 0232 |

21980 09:2¢:31

; Routine Size:

}mg

18}“

10138
18}93

0 words

CM ML-11 LOGIC TEST

MACRO M1113

9§§§

3333

MISCELLANEOUS CODING SECTION

L J4
PAGE 246

1018 3
}g}“ :

gzgs

10185 :
10186 ;
18:3‘ :

gzs

}gg :

2463

10191 ;

14+
: TEST NUMBER:

TST 14

i TEST NAME:
WRITE FUNCTION TEST
i
| TEST DESCRIPTION:

TEST IF THE DRIVE CAN PERFORM A WRITE FUNCTION WITHOUT

HANGING THE DRIVE.

5465

A WRITE FUNCTION IS WRITTEN INTO MLCS1.

10193
;
1019% :
10195 ;

5467
5468
5469

10197 :

547

10196 :

5‘69

5470

CHECKED FOR CORRECT STATUS.

DODU_FLG;

'DROP UNIT FLAG

KR e
5474 owfiss = ZERO;
5475
ssz

FIRST_BLK_XFER ();
MLCS1"= write;

10204 ;
10205 :

5478
5479

if .GD IS_NOT_SET
then

:
:

10206 :
10207 :

}ozoo :
185% :

10211 ;

5480
5481

ssl‘.g
5484

5485

1021; :
1& :

5486
5487

10215 :

5489
5490
5491

1021% :
10216 :

1%7 :

30213 :
.

10220 ;

5488

s’2

5494

5496

5504

ASYNC, DUMPER);

'SEE IF THE GO IS SET

'ERROR IF NOT SET

ASYNC, DUMPER);

;
DODU_FLG = ONE:

'SET DODU_FLG

L yo-

160 IS SET DURING FUNCTION

elLse

if .DRY IS_SET

then

'SEE IF DRY CLEAR WITH GO SET
'ERROR IF SET

mm (rivFMT, ‘WRD_2, PHR_2, WRD_43, WRD_1, PHR_S);
3

S500

g501

PRINTB(rivFMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6);

]

1@ :

then

}

ISET UP A FIRST BLOCK XFERR
iDO A WRITE FUNCTION

PRINTB(rivFMT, WRD_1, PHR_1, WRD_12, FNC_S, WRD_19);
if .DRY IS_NOT_SET
ISEE IF DRY SET WITH GO CLEAR

5495

[

THEN GO AND ERROR BITS ARE

THIS UNIT IS DROPPED ON DETECTED ERRORS.

Llocal

B
10200 :
1
}

Ph-EALESBLINS.B
2 6k
LI

BGNTST;

10133 :

SEQ 0233 |

S0
Dec-1980 09:21:35

10180 ;

22-DEC-80 12:16

DODU_FLG

end;”

if JILF IS_SET

then

ASYNC, DUMPER);

= ONE;

'DID FUNCTION CAUSE ILF

CM ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE g‘?

MISCELLANEOUS CODING SECTION

505

D o
D i
e

B 53
SR

D D e
D o
D o
) D e
D b
) D e
D
i

SRARER
S

D cd b D e
d b cd e

SRRERR

—

ERADF (27, ASYNC. DUMPER):

50
508
g}i

'ERROR IF YES

PRINTB (Fiv_FMT, WRD_3, PHR_S, WRD_12, FNC_S, WRD_19);
DODU_FLG = ONE;

D i

50¢

v2(212)
LR 64.BLI.2
(64)

BRCIMBND

end;

it .OP1 IS_SET

331§ °
gm
515

5519
Sgh

in
gfl» (28, ASYNC, DUMPER);

'DID FUNCTION CAUSE OPI

'ERROR IF YES

PRINTB (Fiv_FMT, WRD_4, PHR_S., WRD_12, FNC_S, WRD_19);

DODU_FLG = ONE:
end;

%}3 DELAY (FRTY_US);

'WAIT FOR XFERR TO COMPLETE

ISFE IF DRY CLEARED AFTER XFERR

if .DRY IS_NOT_SET

begin

ggg

it
.60 IS_SET

gg%a
gfi

bfl
'CLEAR GO IF STILL SET
if .60 xs-ser then ERRDF (29, ASYNC, DUMPER) else ERRDF (30, SYNC, DUMPER):

5527

'TST GO TO DETERMINE FAILING MOD

PRINTB (FIV_FMT, WRD_1. PHR_2, WRD_11, FNC_S, WRD_19):

5535
5536

5337

?flor a1,

gss.;g

5540

2541

5546

DUMPER);

IDRY NOT SET AND GO CLEARED
iREPORT ERROR

mm(nvm ‘WRD_2, PHR_1, WRD_11, FNC_S, WRD_19);

DODU_FLG = ONE:

gsszg g..‘eo IS_SET

—f'—-—'msmw—-

ITST GO CLR IF DRY NOT SET

BUS;

ISET DODU_FLG

'SEE IF GO CLEARED AFTER XFERR.

'CLEAR GO IF STILL SET

ggl.sg

if .GO IS_SET then ERRDF (32, ASYNC, DUMPER) else ERRDF (33, SYNC, DUMPER);

5551

PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_S. eGl)sn“ SN D -

555

5554

5555

1TST GO TO

DODU_FLG
= ONE;

end;

DET

SEQ 0234

MACRO M1113 22-DEC-80 12:16 PAGE !‘l

CTION

SEQ 0235
5-006-1

:2b:

5 -o«-1m g:&:g}
:'fm.‘l’li IS_SET
i

TOPS=20 Bliss~16 v2(212)

PA: NEALE

4.BLI.2 (64)

ISEE IF XFERR CAUSED A TRANSFER ERROR
'REPORT ERROR IF SET AND CONTINUE TEST ING

(115, INTER, DUMPER);

PRINTB (SIX_FMT, WRD_61, WRD_20, PHR_S, WRD_12, FNC_S, WRD_19);

DODU_FLE = ONE;

end;

:'f”.‘ooou.ne IS_SET

'DROP THIS UNIT IF DODU_FLG SET

bodu”

C.ML_LUN)
;
DOCLN;

end;

ENDTST;

JSR

R1,$SAVE2

156102

BISB
MOV
BIC
BICB

#40,aML.REG+40
M
R
”
R1
#7.aML.REG+40

160714
1 156022

CLR
JSR
MOV

R2
PC,FIRST.BLK.XFER
#61, M .REG

: DODU.FLG
:
:

TRAP

gs’,

156120

156076

156014

18:

ST
TRAP

BISB

BITB
BNE

.WORD
JWORD
.WORD

7;96
4
7

000200

156004

R1.aML.REG+40

#1.3ML.REG
ASYNC
DUMPER

MOV
MOV
MOV
MOV
MOV
MOV
MOV

MARD.19,~(SP)
#FNC.S,~(SP)
MRD.12,-(SP)
-1.=(SP)
1.=(5P)
#FIV.FAT,~(SP)
.=(SP)

TRAP

MOV
777

-($P)
2

BITB

£2
¥

$T14:

SP.RO

: SP,x

#200,aML.REG+50

166762

MACRO M1113 22-DEC-80 12:16 PAGE 5‘93

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION
10

s
BNE

WORD

1038
]
103!

7591.
3

103¢

1
1

000016

155720

103¢
103¢

»
P

10367

103¢
10
1037¢
10

1
1
10
1
}

)
.

10383

1
16
1

155640

4$:

Pas

10389 03542¢
1039
1039
1
3544,
1
1
)38
18%
1

3s:

MOV
MOV
MOV

#PHR.6,-(SP)
MARD.1.~(SP)
ARD.4S,-(SP)

5488

MOV
MOV
MOV

MARD.2.~(SP)
#FIV.FMT,~(SP)
#6,~(SP)

ADD

16,SP

TSTB

@ML.REG+S0

B8R

8PL
TRAP

%
14

1
155550

S$:

m.;,-(sm

SP.RO
14

; SP,»

4
g

5491

.m
om

”m

MOV
MOV
MOV
MOV

MPHR.S,~(SP)
MARD .1 ~(SP)
ARD.4S,-(SP)
MPHR.2,~(SP)

;

MOV

SP.RO

: SP,*

MOV
ADD

M .R2
”né,sp

; *,DODU.FLG
;

S
54

;

5507

3&5’
.m

0354¢

10385
Q.
10386 03
10387 03

5487

MOV
MOV
MOV

1
1
1

TOPS

;

.WORD

7672
76

PA: <

MOV
TRAP

:24:31

TRAP

MOV

1
1
]

-1% ggg?

S—Dx-'

SEQ 0236

}

1
1

ARD.2.~(SP)
#FIV.FAT,~(SP)
#6,-(SP)
14

1,8 .REG+60

JWORD

ASYNC

MOV
MoV
MoV

m.p.-(sm
#FNC.S,~(SP)

MOV
MOV
MOV
MOV
TRAP
MOV

ARD.S -(SP)
#FIV.FAT,~(SP)
#6,-(SP)
fr.no
4
1 .R2

ADD

BIT
BEQ

;

5499

MARD.12,-(SP)

né
o
43

@M .REG+60

: SP,*
: *,DODU.FLG

SS08

;

§511

5505

6$:

}

7%:

}

8s:

}

9s:

}

155422

}

155342

}

155372
)

]}
3

1
1

5662
)356

20!

»?

1@ )35¢

3074

1858 &8
1

1323
1

155302

BTy

10438

155354

—

O3e758

118:
:

PA:

551

$DLY.R1

(SP)
"Rl

108:

1
1
1
1
1
1
1
1
1
1
1
104
1
1
1
1

SEQ 0237

55 0ec"1988 85:51:2%2

e 2033
2e®
3 813
3
Ey

158

13§

; *,DODU.FLG

551

v, $STP2

551

; *,SSTHPY

; SSTMP2

#200,3ML .REG+50

#1,

332

7282833283323%
5k 3

}

$23323323Er
i aredl

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE SSO

2RI 0
At
L)
o
88°<8°3

CZMABO ML-11 LOGIC TEST

3 .REG

%iumo
1
R1

5521

LaML
. REG+40
5530)

5533

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 551

MISCELLANEOUS CODING SECTION

1045S
D38

1
1
1
1

D3S
D3S
0357
03575(

O3S

D3S77¢

035740

DEs

1000 S0

}1067%;5 ji"
036014
0SSO0

NTAEN10

036020

03603C

10073 G360

0360

1
1

035066
03607C

1
1

i
10691

036060

w«»
1

]

155126

148

158:

:{’3‘5
036154

036166

:I:--,

19258
1%
10509 03620

ASYNC
DUMPER
ARD.19,(SP)

5538

MOV

MRD.11,-(5P)

#FNC.S,~(SP)

.1,=(SP)

MARD.2,-(SP)

MOV

#FIV.FMT,=(SP)

MOV
ADD

EMé,sp
R2

BITB

BEQ

8IS8

s
o

#1,@ML.REG
}g

@ML.REG+40

#1P7970.
#7.9M.REG+40

000001

155066

BIlB

BISB

8EQ
TRAP

LWORD
.WORD

%
16

.REG

s
%,

DODU.FLG
¥

554

5552

ASYNC

41
SYNC

178:

MOV
MoV
mv

MARD. 19,~(SP)
#FNC.S,=(SP)
aRD.11.-(sP)

oy
MOV
MOV
[0

1,=(sP)
WFIV.FAT,~(SP)
#6,-(SP)
fn.no

; SP,»

'r“w

188:

00000 154752 198: "

BHIS

BIT
BEQ@

WORD
WORD

L'
ADD

5541
5
s

168:

TRAP

1
me

.WORD

R1,aML.REG+40

1
5

BIC
BICB

03610
03610¢

]
1

;

155140

1551

é;

03610¢

1
03613¢
10639 QR61%
1
0361
1
036146

09:24:31

.WORD
>
.WORD
OV

155156

o‘a

1
03611
1osg D361
i
036122

TRAP

plY

03604
|:L 4

TRAP

MOV

0360

D360

-Dec=1980

MoV

;9 NREODE

10480 03604¢

}

035764

138:

D3S7

106414

SEQ

JMLG

S R2
né,sp
'1'83

#60000.aML.REG
208 =

: *,DODU.FLG
Thatae

5553,
gs«s

’

554

-1
SEQ 0239

sMLG

50 c=1980
c-1980

FLEEELLLEE TS

5561

: DODU.FLG

; Routine Size:

5451

333 words

; Maximum stack depth per invocation:

176542

T14::
18:

18 words

JSR
TRAP
ROR
BLO
RTS

: Routine Size:

: SP,w

218:

TOPS

PA:<

6 words
s Maximum stack depth per invocation:

5571

0 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

1§-: :
1
1

MACRO M1113 22-DEC-80 12:16 PAGE 3533

5574 !<BLF/PAGE>

MACRO M1113

22-DEC-80 12:16

ST
CTION

CIRABO ML-11 LOGIC
MISCELLANEOUS CODING

F
3

§-‘

182% 3
:

1
9

:
:

}

}% :

10588 :
10589 :

10590 :
10591 :
1059§ :
10593 :
1059% :
10595 :
10509 :
10597 :
10598 ;
10599 :
10600 :

}oem -

10605 :

lee

: TEST NUMBER:

TST 15

: TEST NAME:

READ FUNCTION TEST

i TEST DESCRIPTION:
i

gsa

588
gsw
590
5591
5595
5593
559¢
5595
5506
5597
5598

5599

i
i

TEST IF THE DRIVE CAN PERFORM
A READ FUNCTION WITHOUT

|
i
|
i
i
i
|
i
i—

HANGING THE DRIVE.

A READ FUNCTION IS WRITTEM
INTO MLCS1
THEN GO AND ERROR BITS ARE
CHECKED FOR CORRECT STATES.

local

DODU_FLG;

5604 rxnsT_au:XFER ();

10609 :

5609 if .60 IS_NOT_SET

10611 :
1%1; :
}gg}‘ :

5609
5610
ssgp

10617

10618 :

5615

10620 :
10621 ;

5618
19

10610 :

}%; :

10619 :

}

10627 ;

10628 :

'DROP UNIT FLAG

% mfi.’é = ZERO;

10606 :

}(507 :

PRALESBIMLC.BL1
-5 t65)

7? BGNTST;
76

1
:
10587 :

SEQ 0241

$5Dec-1980 09:01:32

H 3
PAGE 254

5605

MLCS1TM= read;

5608

then

iDO A READ FUNCTION

'SEE IF GO GOT SET

m
'ERROR IF CLEAR
E
(34, ASYNC, DUMPER);
PRINTB (FIV_FMT, WRD_1, PHR_1, WRD_12, FNC_6. WRD_19);

ssg}‘g

u m IS_NOT_SET

5619

efl» (35

561

'TST DRY SET WITH GO CLEAR

DUMPER);

'ERROR IF NOT SET

mmtrivrm wz PHR_1, WRD_43, WRD_1, PHR_6);

w.fls = ONE;

else
%

ISET UP A FIRST BLK XFERR

ISET DODU_FLG

GO BIT GOT SET
if .DRY IS_SET

then

begin

'SEE IF DRY IS CLEAR

'ERROR IF SET

CM ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 555

MISCELLANEOUS CODING SECTION

}

]

}

S :

}

ERRDF (36,

{f..;."" IS_SET

'DID FUNCTION CAUSE ILF

'ERROR IF YES

2.%; ASYNC, DUMPER)
mm(rlvmWRD_3, ms WRD_12, FNC_S, WRD_19);
DODU_FLG = ONE;

5640
1

then

10649 :

10650 :

564

}8251 :

1065 :

5645

su.’?

}gggg :

ASYNC, DUMPER)

mmtrivmWRD_2, mz WRD_43, WRD_1, PHR_S);

10&9 :

10647 ;
10648 :

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BLIMLG.BLI.2
(65)

DODU_FLG = ONE;

1%? .
1%:
10648

SEQ 0242

333: % 83 31
:22

5644

if .OPI IS_SET
i

'DID FUNCTION CAUSE OPI

ASYNC, DUMPER);

'ERROR IF YES

mm(rivrm WRD_4, PHR_S, WRD_12, FNC_S. WRD_19);

DODU_FLG
= ONE;

ssg‘l.s

DELAY (FRTY_US);

'WAIT FOR XFERR TO COMPLETE

10656 :

5650

if .DRY IS_NOT_SET

'IS DRY SET AFTER XFERR

10659 ;

563

10660 :

5654

1f .eo IS_SET

1% :

5657

bffl

}0661 3
M

10664 -

1’%65 :
10667 :

}oass:

s’2§2

}&7¥

5667

10675 :

10676

10677

;

10678 :
10679 :
10680 ;

10681 ;
}ggg?g :

10684 :

56%

S671

56;;
5673
5674

5675
Ssg;g

5678

'CLEAR GO

5659
5661
5664
5665

106;3 :

5658

10670 :
10671 :

'TEST GO CLEAR WITH DRY NOT SET

if .60 xs_ser then ERRDF (39, ASYNC, DUMPER) else ERRDF (40, SYNC. DUMPER):
ITST eo ro DETERMINE FAILING MOD

mm(nvrm WRD_1, PHR_2, WRD_11, FNC_S,

41,

. DUMPER) ;

WRD_19);

160 BIT CLEAR WITH DRY NOT SET
iREPORT ERROR

PRINTB (nvrm ‘WRD_2, PHR_1, WRD_11, FNC_S., WRD_19);
.

DODU_FLG = ONE;

end;

it .GO IS_SET
then

bmin
CLR_MBUS;

1SET DODU_FLG
'SEE IF GO CLEAR AFTER XFERR

'CLEAR GO IF STILL SET

if .GO IS_SET then ERRDF (42, ASYNC, DUMPER) else ERRDF (43, SYNC, DUMPER);

_—
|

SEQ 0243|

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

TOPS-20 Bliss-16 v2(212)
PA: SNEALE>BLIMLS.BLI.2 (65)

TST GO TO DETERMINE FAILING MOD

PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_S, WRD_19);
=

ONE
:

if .TRE IS_SET
!SEE IF XFERR CAUSED A TRANSFER ERROR
then
in
!REPORT ERROR IF SET AND CONTINUE TESTING
E
(116, INTER, DUMPER);
PRINTB (SIX_FMT, WRD_61, WRD_20, PHR_S5, WRD_12, FNC_6, WRD_19);

DODU_FLG = ONE;

end;

if .DODU_FLG IS_SET
then

!DROP THIS UNIT IF DODU_FLG SET

C.ML_LUN);
DOCLN;
end;

ENDTST;

18:

154652

§\fl\h

$T15:

145514

DODU.FLG

154554
54546

5605
5607,
5610

®e e

S5Dec-1980 89:51:22

g
CEEEREE

B
)

MACRO M1113 22-DEC-80 12:16 PAGE 556

5611

CIUABO ML-11 LOGIC TEST

MISCELLANEOQUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 557

TOPS

PA:<

5613
5616

[

5617

561

]

.3,~(SP)
o

ARD.45,-(SP)

SURIIIREEN
2333
s
A 283
.:. Z i

-2.~(SP)

gd 3

FMT,=(SP)
SP,»

SP)

*,DODU.FLG

212.-(SP)

4$:

EELLE CHLEEELLE GELLLEELLA GELLLE

B
00:.,0
e S S
T B P S S S
e
%e

154372

ML .REG+50

- e o
—b

e
e i s e
D i s cd D

3s:

154536

b b b o

000200

S5Dec-1980 0:21:22

@
°3

00000000

D ) D ) o

D ) D D ) e

H, ¥

2$:

e i e i b e o e

SEQ 0244

D800 (

PR,

000006

108

108
108
108

1
16

#6,~(SP)

TRAP
MOV
ADD

A
" .R2
n

TRAP

108
10805

1081

SEQ 0245

MORD
JWORD

-WORD
MOV
MOV

)
)

MOV

1031; )

-Dec=1980

MOV

10¢€

1081
1%
1

JMLG

MOV

gP.RO

: *,DODU.FLG
:

&6
ASYNC

MARD. 19,~(SP)
#FNC.S . ~(SP)

564

;

5644

ARD.12,~(SP)

#PHR.S,~(SP)

1031: )

MoV

SP,

: SP,

1082
108
10822

MOV
ADD
MOV

. .R2
n&.sp
#50,R0

: *,DODU.FLG
3
: -, SSTMP2

MOV

gou.m

: =, SSTMP1

10819

106

)

10825

1082%

10826
10827

TRAP

68:

7$:

143070

BEQ
BEQ

ARD.&, ~(SP)
#FIV_FAT,~(SP)
#6,-(SP)

108

Q'
O

8s:

CLR
DEC

(SP)
R1

: SSTMP
: SSTMPY

10829 Q
108

9s:

DEC
BR

RO
7$

: SSTMP2

BaE
8ITB
BEQ

BISB
MOV

1
lkn..nes
1
#40,aML.REG+40
R1

Se
8IT8

Maand
ikn.uss

10828

108

10832
O
10833
Q.
108
10835
Q@
1083¢
108

1083
}g 17
1

10848

10844

000200 1541564
000001

10850
10851

BITB

BIC

o006

000001 154034

)

TRAP

LWORD

}ous ).
10849

154074

156126

108:

yoo

006506

128:

; SP,»

MOV
MOV
[

09:24:31

BRIWEND

1081
13}’
1

atand

MACRO M1113 22-DEC-80 12:16 PAGE 550

|
CZMABO ML-11 LOGIC TEST
Mi SCELLANEOUS CODING SECTION

@.n.msoso

564

sofl

5654

5656,

56$9J

5662

ASYNC

WORD io
WORD

WORD
MOV

SYNC

DUMPER
MARD. 19,-(SP)

wuao ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

-y

MACRO M1113

22-DEC-80 12:16

N3
PAGE 259

SEQ 0246

32-Dec-1980 09:24:31

c=1980 09:

MoV
MOV
MOV
MOV
MOV
MOV

#FNC.S,=(SP)
nrD.11,-(sP)
PR, 2,~(SP)
ARD.1.~(SP)
#FIV.FMT,~(SP
#6,~(SP)

BR
TRAP

[ 3%

138:

57
ASYNC
DUMPER

MOV

SP.RO

14
” .R2

ggn

153710

BISB

—

153660

158:

153620

}

13734

1
1

7.
3735,

16$:

€

178:

)

7
7

37354
15735

i
7

: SP,»

56
“zz
5667

; SP,»
: *,DODU.FLG

5¢

fl‘h.m

#40,aML.REG+40

;

gfg
.1'&°§m
BITB 413 REC
e
g?‘
MORD
52

s678

;

5681

ADD

"WORD

B8R

TRAP
.WORD

JWORD
JWORD

né,sp

SYNC
AUMPER

)

MOV

) &

MOV

SFIV.FAT,=(SP

MOV
TRAP

MOV

5675|

% !

ARD.19,~(SP)
#FNC.S,~(SP)

[

ASYNC

MOV
MOV

10905 O
10903

1090

ARD.19,~(SP)
FNC.S,~(SP)
aRD.11,-(sP)
m.1.-(sr)
MRD.2.~(SP)
#FIV.FAT,=(SP)
#6,-(SP)

RV
MmOV

48:

128

MORD
JWORD
JWORD

MOV
MOV
MOV
MOV
MoV
MOV
MOV

}}g )
o1@ &3734

?.ao

ToPS

PA:<

ARD.11,-(sP
#6,-(SP)

"M .R2

: SP,*

: *,DODU.FLG

5682

108
1
108
108

“

14
74
100

} >
‘

000007

108

000001

} 5

000020

1093¢

% 5

154032

10939
10940
;om

218:

10568

10960 037562
10961 037564
10962 037566

DEC

BNE
MY
TRAP
TRAP

TST

RTS

333 words
; Maximum stack depth per invocation:

004767
104466

176542

T15::
1$:

JSR

TRAP

ROR
8LO

§§
§

; Routine Size:

10944
10949
10950
10954

10058 8;5556
10959
56

208:

TRAP
MOV
ADD

g g% 4%g

BEQ
TRAP
.WORD
.WORD
.WORD
MOV
MOV
MOy
MOV
MOV
MOV
MOV
MOV
MOV

‘

BIT

19%:

]

153504

e
ety

176670

TRAP

ROA
BHIS
JMP

oso
©
I

1
11

ADD

1
1

188:

000016

55 0e

Rgt‘.".x Ry83 le......
353823

}

SEQ 0247

H, T

1
1
1

MACRO M1113 22-DEC-80 12:16 PAGE 5603

PC.$T15
66

RO
18

5 2

CZABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

18 words

T
CTION

MACRO M1113 22-DEC-80 12:16 PAGE 361

SEQ 0248

§§d‘ddd

e e

)

M4
000207

B PR
RTS

: Routine Size:

PC
6 words

: Maximum stack depth per invocation:

5703

!<BLF/PAGE>

0 words

MACRO M1113 22-DEC-80 12:16 PAGE 562

SEQ 0249

~NO~

ne |
:,zazzzgaéaaa
NS WW

i
A AW E ARWA
RN
AN

TR T
A
PR TRLA AT AT A T A PR
A
A
PR LA PR PR PR TR
PR T
PR T
PR T

wmmwa\n“ere
ENENENoRN
IR

WRRILRL P

PA: <NEALE

(X2
l
i

rssr NUMBER:

TST 16

i]1 TEST NAME:

CLEAR FUNCTION TEST

i TEST DESCRIPTION:
:
TEST IF THE DRIVE CAN PERFORM A CLEAR FUNCTION WITHOUT HANGING THE DRIVE.
]

A CLEAR FUNCTION IS WRITTEN INTO MLCST.

THEN GO AND ERROR BITS ARE CHECKED FOR CORRECT STATUS.
THIS DRIVE IS DROPPED ON DETECTED ERRORS.

1
¢

]

local

DODU_FLG;

'DROP UNIT FLAG

BGNSUB;

FLG = ZERO;
SR

MLER= ONES;

&cm = DRV _CLR;

LAY (ONE_DS);

gfl.‘eo IS_SET
E

(44,

ISET BITS IN ERROR REGISTER
iDO A CLEAR FUNCTION

iDELAY

ISEE IF GO CLEARED AFTER FUNCTION
ASYNC, DUMPER);

'ERROR IF SET

PRINTB (FIV_FMT, WRD_1, PHR_S. WRD_11, FNC_3, FNC_7. WRD_19);
gfl.‘mv IS_SET

ITST DRY CLEAR WITH GO SET

m»r (45, ASYNC, DUMPER);
PRINTB (FIV_FMT, WRD_2, PFR_S. WRD_43. WRD_1, PHR_S);

'ERROR IF SET

w.fl.s = ONE;

1SET DODU_FLG

T
P
PR TR PR LA PR TR PR TR TR PR T
TRTR
LA

— cd b ) D cd D d D d D D cd D e D d D d D e
— o e cd D ) D cnd D cd D
) D d D ) D ) D e

D ) D D
D ) D i

BREEISRERRERRRIIIIZIAIZIGRIRERARER

d e D D D D ) D D D D D nd D d =D
) ) D D ) D ) b b

DR PR A TR LA

T8T 1

RUIRRID
-Dec~1

else
:'fm.‘onv IS_NOT_SET
in

160 CLEARED AFTER FUNCTION
ITST DRY SET WITH GO CLEAR
1ERROR
IF NOT SET

E
ASYNC., DUMPER)
mm(rivmWRD_2,
mn WRD_43, WRD_1, PHR_6);

DODU_FLG
= ONE;

MACRO M1113 22-DEC-80 12:16 PAGE 363

TION

SEQ 0250 |

35Dec-1980 09:51:22
!PID FUNCTION CAUSE ILF

DUMPER)
(47, ASNC.WRD_3,
ERROP
mm«r!vm
ms WRD_12, FNC_3, FNC_7., WRD_19);
!ERROR IF YES

DODU FLG = ONE;

if .OPI IS_SET
then
in
ASYNC, DUMPER);
E

!DID FUNCTION CAUSE OPI

!ERROR IF YES

mmcrivrm WRD_4, PHR_S, WRD_12, FNC_3, FNC_7, WRD_19);

DODU

-’

= ONE;
&

if .MLER

then

ZERO

ITEST ERROR REGISTER FOR CLEAR

'ERROR IF NOT CLEAR
m
(49,
ASYNC
. DUMPER);
::x’m (SEX_FMT, "FNC_3, FNC_7, WRD_19, WRD_14, WRD_13, REG_3);

ENDSUB;
if DQUFLG IS_SET

!DROP THIS UNIT IF DODU_FLG SET

mu (.lLUN);
ENDTST;

164246
%

TOPS=20 Bliss=16 V2(21 2)

PA: <NEALE

$T16:
153404

18:

R1,$SAVE2

(SP)

m%A

.REGMO

RZ
n.REGMS

177777

153372

ki 2

3 fifi"fiéfi TN
N e R g g ARSI

5780

if JILF IS_SET
then

A A S S
b

— D e e e e d D ) D D nd e d d D d ) e d d e
o e D D D e cd D ) D D e D D e d D ) D D D e

S eS

b D b e ) D e ed b D
D
D D d D D D D d D e D d D
d D e D d D D D ) D d D e D D D e e D D o D D o d b

&M z-fl L

#-1,3ML .REG+60

: DODU.FLG

b d D e o ) cnd ) D
D el D ) e e
) ) D

000200
6

153140

7s8:

#PHR.6,-(SP)
DUMPER

2828238 5

D D ) D ) o D ) D b
D ) D ) ) D e e b

5.=(SP)

\s (%,

ZRAIINBURG
2

PAGE

| <

wIey 2633

58:

2 -z' °a'3'o =
5
¥
I\

153250

% FLRRRTIINGEN

000001

S RL

4S:

22-DEC-80 12:16

D ) D D D D D ) D D D ) D ) D ) D e
D ) D D e D D ) D D D ) D o D ) D e

3s:

) D ) D
) D ) D

162234

L LLEEE LTV D LLLEELLL I

) D b d e D D ) D D D
) )
D D ) D ) D D D

g -

— e
— e

L
MACRO M1113
5“6

g
-

gou.m
: *, 88T

SP)
: SSTWP

fit&:flazzafifisfmozgi
o

: SSTMPY

: SSTMP2

5741

3
5742

: *,DODU.FLG
5745
574

.
5753

nn.(a3%3..?.mw-

3§u“&8oo§o7ol5\§%&§o5-’§l\"m”5°flfifiwflwmM
22-DEC-80 12:16

TRAP
. WORD
. WORD
.WORD

PAGE 265

~SNED

-REG+60

m.}

mIPm<m&manho.oI=.a

9 -(SP)

5 285

@ML.REG+60

.REG*60

.FLG

§ m m 2Ke

;

Twmem00mTomP00m00m0m00mTw0m0mo0em0t0oTn0a0n0a0n11n10toes1s0SooosOeOsOe0c=a0a=d=a=st=aodoOOO

XdololadgololXolloloollooolooldoloolloSlLlFeEleeeEoollEoolloloolSolloXlaoldoollSSlLSlLSllelSlooleolloooolloolloolooladLLoll!
TION

MACRO M1113
4

-(SP)

$.-(sP)
-(SP)
-(SP)

.~(SP)

.FLG

5751
575

5760

5761

5
5

.~(SP)

; SP,»

5767
5773

5776

CM ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

JMLG

118:

177142

128:

153132
138:

$50ec1980 33:31:%2

LR LR LLELLLEED

VOO

) =D b
d
) D e ) D

TRAP
TRAP

TST

RTS

; Routine Size:

s
L4
(SP)+
PC

218 words

; Maximum stack depth per invocation:

g
19 words

0460456
0404

004767
104466

g &

0404

U%%

— b b b d d ) D ) e D d md D D
D D ) D o D D D d d = D D d md e D D D
— e e )
e ) D D ) d
D D D ) D e ) D ) D D D o ) D D D D D D D D D

MACRO M1113 22-DEC-80 12:16 PAGE S“

177110

T16::

18:

PC.$T16
66

RTS

; Routine Size:

5787

RO
1$
PC

6 words

; Maximum stack depth per invocation:

0 words

CZMLABO

ML-11 LOGIC TEST

nxscmko,s CODING SECTION

MACRO M1113

fig 11260

;

22-DEC-80 12:16

——

&
7

SEQ 0254

SDec-1980 09:51:38
5790

!<BLF/PAGE>

PA.CEALESA N1
3 (68)

—

(M M.-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

;g
74

g
78

314

315

316

AIATATATATATE PR PR A PRTEA PR TR PR PRTR TR1) o."a A

SRR
PR AR P S

SEQ QSSi
S5Dec-1980 09:51:22

791
792

!
BGNTST

796

!+¢

: TEST NAME: DIAGNOSTIC REGISTER TESTS

78
795

: TEST NUMBER:

TOPS=20 Bliss~ 6 V2(212)

PA: <NEALE

4.BL1.2 (67)

TST 17

‘' TEST DESCRIPTI(N
TEST THE DATA DIAG REGISTERS MLD1, MLD2, MLE2

: §§§§§§§§§§§¥§§§§§§§§§§§§§€§

AT TR A T PR LA A T PR A A A PR PR A LA DA R PR PR DA DR PRLA DR TR D T TR

H, ¥

) b
) d
D D e D D D e o
D d D D e e D o
D D e
D D e
D D e D d e
D D D D e e
— e e o D D ) d D d D d D e d e e D ) D D d D ) D D ) D e D D e e D e e
— el b wd D b d d e e D e D d e ) D cd ) D D ) D d e D e D D D e ) D D e e

MACRO M1113 22-DEC-80 12:16 PAGE 56‘

FOR 1°S/0°'S, SHIFTING 1°S/0°'S NO INITIMJZATI(N

local

,
CLR_DATA

!CLEAR DATA FOR INIT TEST

SAW

'TMMLXGSAVE LOCATION
!ERROR
F

!TEST PAT TERN

1n6 -

!POINTS TO REGISTER PRESENTLY BEING TESTED
!DROP UNIT FLAG

DODU_FLG:

WFLG = ZERO;

FIRST TEST THE REGISTERS FOR ONES AND ZEROES

TST_PAT = ONES;

!LOAD TEST PAT WITH ONES

incr TWICE from 0 to 1 do
begin

!REPEAT LOOP TWICE

- incr IIE?_SEL from 11 to 13 do — —
I.R

REG ( TST_PAT, .REG_SEL, index):

w_REG(.TST_PAT, .REG_SEL. ERR_FLG);:

!WRITE_TO THE REGISTER
READ THE REGISTER

if .ERR_FLG IS_SET
thon
in

!SEE IF READ FOUND AN ERROR

5841

5842

(121, ARR_DAT,

DUMPER):

PRINTB (SIX_FMT PHR 4, WRD_ iz
PRINTB (FMT~16, .ML_REG [.inde

5840

—1TEST ELEVEN WRITE/READ- REGISTERS — - -

DODU_FLG = ONE;

!IF_ERROR :LAG 1S SELT& ERROR AND SET DODU_FLG

g WRD_§6)

QT_DATA,“.RD_DATA);

ENDSUB;

TST_PAT= not .TST_PAT;

!REPEAT AGAIN WITH COMPLIMENT DATA

ke,

CIMABD ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE $69

:‘

v2(212)
PATOPS=20
: <NEALEBliss=164.BL1.2
(67)

i
2 32

TEST THE REGISTERS FOR SHIFTING ONES AND ZEROES

TST_PAT = ONE;

'LOAD TST_PAT WITH A 1 IN A FILED OF 0°'S

incr SHIFT from 0 to 15 do
begin

D0 SHIFT 16 TIMES

incr TWICE from 0 to 1 do
begin

388

incr asfi.seu. from 11 to 13 do
n

5860

5861

'REPEAT LOOP TWICE

'TEST ELEVEN READ/WRITE REGISTERS

cu:r_mjs.-

WRT_REG (.TST _PAT, .REG_SEL, index):

gg;
586
5868
5869

:'f".‘EM.FLG IS_SET
'SEE IF THE READ FOUND AN ERROR
w
'IF THE ERROR FLAG IS_SET THEN ERROR
E
(122, ARR_DAT, DUMPER):
|ARRAY DATA MODULE FAJLURE
PRINTB (SIX_FMT, PHR 4, WRD_12, FNC_S, FNC_6, WRD_ 52, WRD_S56):

RD_REG (.TST_PAT, .REG_SEL. ERR_FLG);:

5870

IREAD THE REGISTER

DODU_FLG = ONE;

sag
58

5874

ENDSUB;

5877

357
ssg

'WRITE TO THE REGISTER

PRINTB (FMT_16, .ML_REG [.index, REGISTER_ADD], .OT_DATA, .RD_DATA):

5871

TST_PAT = not .TST_PAT;

TST_PAT = .TST_PATONE;

end;

'REPEAT WITH A O IN A FIELD OF 1°S
'SHIFT THE 1 IN THE FIELD OF 0'S

NOW TEST THE REGISTERS FOR INITIALIZATION

5888
5889
5890

2598
589

REG_INIT_FLG = ONE;
TST_PAT = ONES;

'BACKGROUND PATTERN

incr TWICE from 0 to 1 do

'REPEAT LOOP TWICE

begin

incr REG_SEL from 11 to 13 do

oTRle

0 oo
SEQ 0256

:26:31
S3-00:-1
-Doc-1% g:Sth

SR FE A A L R MR S I 13 S 2

—d d d b d D ) d and D e D D ) D ) ) D D e D D e ) d D o D D D e D D d e ) D D ) D D d D ) D D ) D D e e e d o d D
— d ) D d d ) d ad D D D ad e D D ) D e D D D D d e D d D ) D d ) D D D ) D D ) D D ) D ) D D ) D D D D D o e b

MISCELLANEOUS CODING SECTION

!TEST THIRTEEN REGISTERS

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

11382
“

S5Dec-1980 09:51:22

:
;

W
(.TST_PAT, .REG_SEL, index);
CLRDATA = (.RAI) or (.IGNORE);

;ggi
3908
5

11389 :
11390 :
11391 :

5’%

5916

11399 :
11400 :
11401 ;
m‘gg :

§917
5918
5919
5

1140% ;
11405 :

114606 :
11407 ;
11408 ;

b
b
b

mtp :

1141; 0460472
11419

e 1

'RITE REGISTER WITH BACKGROUND

!CALCULATE THE CLEARED DATA PATTERN
!READ THE REGISTER FOR THE CLEARED DATA PAT
!SEE IF READ FOUND AN ERROR
!IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG

iARRAY DATA lmugg

sgfe;'_‘nu cm_u’u. .RD_DATA) ;

PRINTB (FIV_FMT, PHR 4, WRD_12, WRD
PRINTB (FMT16, .ML_REG C[.iRdex, REGI
DODU_FLG = ONE:
:

5911
N

11398 ;

5910

3
3

}}397 -

if .ERR_FLG IS_SET
p—?flw (118, ARR_DAT, DUMPER);

590
5908
5909

11% 3

1
1
1

REG_INIT_F c ONE;
RD_REG (TCLR_DATA, .REG_SEL. ERR_FLG);

11385 :
1383
;
11& .
n
1

TOPS-20 Blis =16 v2(212)
4.8L1.2 (67)

PA: SNEALE

ENDSUB;

end;

TST_PAT

end;

= not

t .TST_PAT

!REPEAT WITH COMPLIMENT BACKGROUND PAT

.TST_PAT;

REG_INIT_FLG = ZERO;

!CLEAR THE FLAG

u ooouFLG IS_SET

!DROP THIS UNIT IF DODU_FLG SET

6'5&; (.u_LUN);
ENDTST;

167 143420

177777
000013

000040 152470

8§;’§’;
15995
1
000007 152452

$T17:
18:

JSR
R1,$SAVES
GR —py P

MOV
CLR
MOV

M .R3
ns R2

o REGH40

LB
BICB
#7,aML.REG+40

DODU.FLG
* TST.PAT
TWICE

gheRas

11380
11381

;M4

SEQ 0257

TR1Y

K_4&

PAGE 270

LA TEATEA TR

11326
1375
1
"

22-DEC-80 12:16

MACRO 1113 22-DEC-80 12:16 PAGE 371 :

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

sMLG

11435

1
1

150577

n
11440
04t
11641
040576
11642
04
11443 0«

152446

012746 000012
N1C

D60616
004767

010316

010246
012746
060616
004767

012746

007122

;
012746
012746

10004

013746

114
11453

g
114
11460 040878

;

016600

Tides Qioroe

Qou

11468 0

012746

11465

i11% 8el
114670
04
11471 0

1165 )l

irieg
i
mfi 4
Bg
ped

111‘.5

‘0‘0

016046

i1044

062 70¢

;

MOV

2.-'9)‘

o
MOV
RV
g

tfi‘ 000001
000001

3s:

RD.DATA,(SP)

UTDATAL~(sP)
:8(9».60

ML.REG(RO),~(SP)

MOV
ADD

ADD

pa:

5828

::z

5834,

b
;

5835|

: INDEX,*

MOV

; TST.PAT,»

000042

WORD 1;1
me ARR.DAT
m.ss.-(w

09:24:31

SoDec-1980 B:51:

: REG.SEL,*
: ERR.FLG,*
: ERR.FLG,*

. (SP)

#FNC.6.-(SP)
#FNC.S.-(SP)
128,-(sP)

fi -(SP)
4,-(sP)
sP, (SP)
PC,RD.REG
s(sm.n

MOV
MOV
MOV

013154

-1980

: INDEX,®

000040

SEQ 0258

SP,(SP)
WRT.REG

#RD.56.~(SP)

;:,% 000015

012703

MOV

DT0600

012766
D670¢

#1509

MOV

7066

R
016716 1
Oleree 135930

“g e

MV
MOV

14 000001

1A
01057¢

:g.u.nes«.o

MOV
MoV
ADD
JSR
oe

000014
1

BIS8
ADD
JSR

162310

11}“’
“g
mg %!

WFMT.16,-(SP)
»

#1,42(SP)
ng.sr
#12,.SP

; *,DODU.FLG
;

5836)|
5832

gg;

—
: TWICE.»
B

&
o
2

5.:15

3
&

i REG.SEL.+

MOV

#1.R3

; =, TST.PAT

5850

CZRABO ML-11 LOGIC TEST

22-DEC-80 12:16

L
PAGE 272

SEQ 025°

Acgg—a5g=sg0omlR0adR©oml0gTAw(0RgogYNRm0Y(PRY0(m=RS0(w=RTR6g(7wRo(5&e(5TmXS0g=0R2mo0e=S(0RmnoR62XR0mnXR6oSgmn2oR0eRl0Snnle0oXmg6nXg6emU6o§nBgeRlmPTog0l§(mRoE0g&lROu(eE7UmoegslmgGmAog0lmTiR6mO0(oRmlagm0oXgweTgwdogGSmG5Te5§T3G9a23do28lg0LT8oGEl

MISCELLANEOUS CODING SECTION

MACRO M1113

35Dec-1580 09:21 3

T
PA:

585

RaR : 3#3%§i

m.uu.mw

.unsnm PRI
RSRR ¥

sMLG

; TST.PAT
,»
; REG.SEL.,*

; INDEX,*

REG.SELs

; ERR.FLG,*

fl"

NRD.1
MPHR.
6
IX.

; SP,»

D.MTA. (SP)

WT.DATA ~(SP)
(SP), RO

wTmSnRuS?.

; INDEX,*

-RE

: SP,»

.SP

mnl-'-M.Mo.o'o“L“o”o.o-'oond[Lm
=5555BRSNgg,Sg3gg(R3(R1g:(3Rgg8gg3(Re3iRgRIP0L0SR0A0PROSOPNRNOISRSOROaROeROROSSTOP
‘W&s ‘L«s ‘.sa' neO u ‘Se ‘Ss aetsLR %- 2TR2LT2Y g®L8T

umm m mm mmu&m m m mwmwum.m m m m m YYBREERREELT

I§f..&33B<&¢ XX€§F 4 BEpuwsBTyTwNwTS. 4%E

-Se.oSoR.50m8APRmDOmmG‘mLe,AN&BHNedPIuTPde2eoPe3SD03STeA0R0Ge0R=QPR0Ne0Ee0R=P=eNN.PRPmSN0TAwN0PRyu7Pm=PI=eAm=OPNu=N=PmIP0SSeA=AEwM=RPTNuAPRmPTASePRmRPA=PRm=PR=ePS=
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 Mfli%B

sMLG

151656

=2 Mm)vm)&h

B, e

151506

8s:
9s:

”

0260

2=t
ke3%
-

lfig. INIT.FLG

ns.nz

151640

(R1) .RS
(R1) RS
INIT. FLG

5907

5
SEa 0261

Bdec-ione B33

e
D e
e
e

SRR E RN

000001

e e

151310
000001

151740

000006

118:

TRAP
TRAP
ADD
RTS

;

el ey =D e

RRRRR

—3

176614

T17::
1$:

JSR

TRAP

BLO

%08

53
g3

*REG(R1) ,~(SP)

CLR.DATA*
,

SP,*

MT.16,-(5P)
-(SP§

REG. SEL
REG.SEL,*
TST.PAT

R4
Re¢.M

8s
REG. INIT.FLG

(S;).l1

ML.LUN.RO
5
44

#6,SP

PC.$T17
66
RO
1$

26 words

d §8
¢

VBN

000015

DATA, (SP)

108:

e e

000040

2GRIATZG

Ave

SP,*

R TR ELS

e e

13154

RS F R EE PR P L P

RRETINFR RS ERRR

d
d
e

151376

.RO

; Routine Size: 312 words
; Maximum stack depth per invocation:

2$EREE

MACRO M1113 22-DEC-80 12:16 PAGE !76
JMLG

AN AN

)
b
D b ) D D ) D d
D ) d ) D D o) D D ) D D ) D ) D ) D i ) D D D o o
d D
e d d d D D ) D D ) D d d D nd d d D D d D D ) D e d D D D D D d o D d D o d b

CZRABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

CZMLAS0 ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 575s

SEQ 0262

»
5 041664

S8823

) ) D i i o o
) i i ) e ) )

MISCELLANEOUS CODING SECTION

000207

BN B
RTS

: Routine Size:

6 words

; Maximum stack depth per invocation:

5928

!<BLF/PAGE>

0 words

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 376

5
SEQ 0263

S5Dec-1980 0:31:22 PA
EALESBLIML.BLI-2 (68

090%0800%s%:0%s0,

JAJAN

BGNTST;
144

: TEST NUMBER:

TST 18

i1 TEST NAME:

COMPOSIT ERROR TEST

09000% 0009090000009

it] TEST DESCRIPTION
i
i

]

TEST TO SEE IF SETTING EACH
BIT IN THE ERROR REGISTER
CAUSES
A COMPOSIT ERROR BY:
WRITING A SHIF

]
i
i
]
1

]

5954

DAT_PAT,

s;gs;

!DROP UNIT FLAG

‘

P
[1]

000%0 0000000000909

ggoow\naw-o

e 00 00 00090 %, 0% 0% 900000 % %0000 0000000000000

d b o o

D e

D ) D

D ) D e

) D D e

D D D ) e e

D D e

D D ) e

D D D D e

D D ) D D D D

D ad D

) ) ) b

MISCELLANEOUS CODING SECTION

—

e g

!DATA PATTERN

SKIP_MASK;

!POINTS TO MLER READ ONLY BITS

o SIS
= %0°'163157°;
gg’go

ILOAD SKIP MASK

AT = ONE:

iDATA PATTERN SET BIT O IN MLER

1 omoFLG =zeho

b
964
%9
g%

3%
2958
97%

incr COUNT from 0 to 15 do
begin
:'fm(‘.MT_PAT and .SKIP_MASK) neq ZERO
in

'WRITE DATA_PAT TO MLER

if .COMP_ERR IS_NOT_SET

'SEE IF DAT_PAT CAUSED A COMP ERROR

then

59
59

PRINTB (FMT4, .DAT_PAT);
DODU_FLG= ONE;

!SKIP IF DAT_PAT FALLS ON READ ONLY BIT

MLER = .DAT_PAT;

975

'WRITE AND SHIFT DATA PAT TO MLER 16 TIMES

ASYNC., DUMPER)

y NO COMP ERROR

PRINTB (réam FNC 8 mn umlé FNC_

MACRO M1113 22-DEC-80 12:16 PAGE 577

%3&EesDTol% 3

CZMLABO ML-11 L0GIC TEST

$5Dec-1980 09:31:22

. -&odz £

eP0=go-TOM

.&6

b Qo

MISCELLANEOUS CODING SECTION

DAT_PAT = .DAT_PATONE;

!SHIFT DAT_PAT TO NEXT BIT AND REPEAT

if .DODU_FLG IS_SET

LUN)

mm2u

Ré

sm msendnays‘emdmSiRaYn2aY2n ie:AR

DOCIN;
end;

% 5 % 823z

!DROP UNIT IF DODU_FLG IS_SET

.REG+60
.@ML .REG+50

-(SP)

—_—

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

1"
MM

000002

::
e
Mo

S-o.c-w

3s:

48:
000017

11% Do

1}% ::

l?
R1
c;b.sP

SE'S

TRAP

ASL

INC
cwe

177552

11&
“828

11& 3

T18::
18:

bsfi
b

: DAT.PAT

sgg

: COUNT
2 COUNT,»

; DODU.FLG

5987

?i.Ll.N.RO

5G90

TRAP
RTS

44
PC

5927

5992;

JSR
TRAP
ROR
BLO
RTS

13 words

PC,$T18
66
RO
18
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:

5995 !<BLF/PAGE>

; Routine Size: 73 words
; Maximum stack depth per invocation:

004767
104466
oogggg
10
000207

DODU.FLG

TOPS

PA: <

11800
}}a
10
10
16
16
5(2)

5$:

; SP,»

1"
11]‘77?’

11815
1181?
118
11818
11819
ug?

:24:31

DEC

BNE

151476

#2,-(SP)
RO

ADD

BLE

}1% dog

SEQ 0265

s -Doc-wg g:fi:;?
MOy
MOV

E_S

PAGE 278

H1
“

22-DEC-80 12:16

1"
1"

—

0 words

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE SN

14 34 St o
PR IR
L

e
S
S
RS S S
R
Y
S
e e ey I N R i
e e e T IS I I
e
e
R
o I e e
R
e e T S
e
N S
e
e
P
L

e L I B B
e e
S
e
R
I e
T
o S
I
e S
I S e e S
N
e R

e
D

5
SEQ 0266

BIREBIY

YS Y
S
Y

AR Og S ERREGRRGaRT
AR LR

MISCELLANEOUS CODING SECTION

WERALRE P

BGNTST;
X2

| TEST MUMBER:
l

i
;
:

TEST NAME:

TST 19
ATA BIT TEST

TEST DESCRIPTION:
;$ST THE ATA BIT FOR SETTING

i
i
l

l
l
l

i
i

SETTING A BIT IN THE ERROR
REGISTER.

TEST THE ATA BIT rm CLEARING
AFTER BEING SET BY:

i
i

1.
2.

:
l

WRITING A FUNCTION TO MLCS1.
WRITING A ONE INTO THIS
UNITS ATA BIT

TEST THE ATA BIT FG NOT CLEARING
AFTER BEING SET
B

l
l

i
l
l

WRITING A ONE INTO THE
ATA BIT OF THE OTHER
UNITS.

local

ATA_SAVE : bitvector (8],

DAT_PAT;

'STORES ALL 8 ATA BITS ON READS AND WRITES

'DATA PATTERN

= (NE;
MLER =
S
ATA_SAVE = .MLAS;

'SET THE ATA BIT

:;.'.‘ATASAVE [.ML_DUT] IS_NOT_SET

'SEE IF THIS DRIVES ATA BIT IS SET

'READ THE ATTN REGISTER

(51
Balor
{ERROR AND EXIT_TST IF NOT SET
PRINTB (r(nrm “WRD_1E hn 1, WRD_11, FNC_8);
in

2(‘1’1 TST;

:'fn'.'ATTN IS_NOT_SET
begin

!SEE IF THE ATTN BIT IS SET

CZMLABO ML-11 LOGIC TEST

MACRO M1113

PA:CEALBLING.BLI-S (69

PR TR TR LA TR TR TN T8 1

DUMPER) ;
AND EXIT_TST IF NOT SET
Ea}m (riv
m. ."REG_2,
WRD_16, PHR_1, WRD_11,IERROR
FNC_8);
MLCS1 = NOOP;

ITRY TO CLEAR THE ATA BIT WITH NOOP FUNC

if .ATTN IS_SET

'SEE IF ATA GOT CLEARED

((53
ESor

PR PR PR

mm(r(nm "Ehnz WRD_11, FNC_2,'Em no
19); EXIT_TST IF SET

EXIT_TST;
end;

A
PR LA
TR PR T

ATA_SAVE = .MLAS;

'READ THE ATTENTION REGISTER

:'f'n
LATA_SAVE [.ML_DUT] IS_SET

'SEE IF THE ATA REG GOT CLEARED BY NO-OP

(58

PR PR

AT A

3
PRINT
(rivFMT,
m.1§. PHR_2, WRD_11, FNC_2, WRD_19);
ISET THE ATA BIT

if .ATTN IS_SET

ISEE IF THE ATA GOT CLEARED

PR
A
A
P
T
TR L

then

R);

MLER = zenb
Au_sm
sAvE t.n.ourj = ONE;
=

23 XA IR BN SN E R

;

ONE;

A_SAVE

ICLEAR ATA_SAVE

iSET ATA_SAVE FOR THIS DRIVE

'TRY TO CLEAR THE ATA BY WRITING TO IT.

IF NOT CLEARED
mm (rivm ouvg finz.mou WRD_1m6_5);

PR TR TR L

ENDSUB;
BGNSUB;

A
P
TR T E PR LR TR PR T
LA

MLER =(erf

'SET THE ATA BIT

incrb:;?asa from 0 to 7 do

'REPEAT LOOP 8 TIMES

quE,rAr = ONE;

e
)
D d D ) D ) D D D e ) d D D ) D e
d
D e
D D e e e
b el D D ) D ) D ) D b e D el ) D D ) D d ) ) D ) D D e ) e
—
—

H S5
PAGE 280

$Dec-1980 09:21:22

ERRDF (52

R R R R

D D ) D ) D D D d ) D eD ) D ) D D D o
) D o o
D D
D ) D D D ) ) D D e D ) D D D d e D ) o

b
b

R A A AR

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

: 'f‘.'.‘ATA_SEL neq .ML_DUT

ms
= ,DAT_PAT;
ATA_SAVE
= TMLAS;

'DATA PATTERN OF ONE IN FIELD OF ZEROES
!SKIP IF ATA_SEL EQLS THIS DRIVE NO.

'WRITE
DAT PAT TO ATA REGISTER
iREAD ATA REG BACK

—

CZMABO ML-11 LOGIC TEST
NSCELL&GS CODING SECTION
1"

MACRO M1113 22-DEC-80 12:16 PAGE L“I

N
11952 :
11953

2}}1
611§
6114

“

1132 %

11978

11975
113;9
1
11377; Mo
1
11980

11oes
119€
—

}}% 11960 ;

6116

1"237%
167

1198
1

1}1
1

i
1
1

WEARIRE e

ISEE IF THIS DRIVE ATA IS CLEARED

PRINTB (FMT-7, .DAT_PATS;

end;

DAT PAT = .DAT_PATONE
end;
=

_DAT_|

ISHIFT DAT_PAT AND REPEAT

ENDSUB;

ENDTST:
141

151

151056

m 151040
1
ogo% 151046
15
151046
151400

1198

1196

TOPS=20 Bliss=16 v2(212)

exitloop;

6110

6115

——

E
(55, ASYNC,
R);
egRROR
EXIT koar IF CLEARED
oelor
PRINTB (SIX FMT, m” '1§ PHR_6, WRD_i1, WRD_17, REG_S, PHR_7);

11961 ;
n
3

if .ATA_SAVE C.ML_DUT] IS_NOT_SET
then

61
3
61

E:
:

:26:31

BRIB B
61
6101
61

SEQ 0268

g
11951 :

H, A

11947 ;
1191.3 :
11949 ;

151
1?7;673

—or
140

ooom

$T19:

BISB

#40,aML.REG+40

JSR

R1,SSAVE3

MOV

BICB
BISB
MOV
CLR
MOV
MOV

#7.aM.REG+40
R3.@ML.RE
M N .RE
ML .RE
@ML .REG+70,~(SP)
l. PUT o R

ASR
MOV
ADD

RO.R1

BIC

RV
BIC

eoga

:
:
: *,ATA.SAVE

;

M
R1

SP.RO

RLDUT~(SP)
'r‘i
(SP)

603

; ATA,SAVE,+

v
R PCT~ BLSGT2
JSR

ADD
ST

néfir
RO

v
.WORD a§
"WORD

ASYNC

_—

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

—_—

MACRO M1113 22-DEC-80 12:16 PAGE 5‘2

;

SEQ 0269

P-ec-1om0 go:20:31 s
-Dec=1980

LMORD

g&.sp

BIT

#100000, ML .REG+50

604

BNE
MORD

MOV
MOV
MOV
MOV
MOV
MOV
MOV

TRAP
BR
MOV
ST
8PL

TRAP

WORD

JWORD
.WORD

S$:

MoV
MOV
MOV
MoV
MOV
MOV
MOV
MoV
TRAP
TRAP
ADD
JP
g

ASR
ASR

mx., -(SP)
aRD.11,-(5P)
MPHR.1,~(SP)
ARD.15,-(SP)
#FOR.FAT,=(SP)
#5,-(SP)
?.N
é

JWORD
.WORD
[

3s:
48:

DUMPER

09:24:31

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
TRAP

ogggg; 150536 2%

— ey

150672 18:

——

6041

; SP,»

ASYNC
DUMPER
#FNC.8,~(SP)

;

ARD.11,-(5P)
MPHR.1,~(SP)
m.s&.-(sm
#REG.2,~(SP)
#FIV.FAT,~(SP)
#6,~(SP)
SP.RO

: SP,»

a3
g
n.n.ngg

.REG+

ASYNC
DUMPER

ARD.19,~(SP)
#FNC.2,~(SP)
AR 11,-(sP)
SPHR.2,~(SP)
aRD.15,-(SP)
#F0R.FIT,~(
#6,-(SP)
ir.no
4
63
216.SP
128

nw!'sgo.(sm

:c'i

6049

6045,
605

;
]

6059/

: SP,»

;
:

: «, ATA.SAVE

6055
6057

606

MACRO M1113 22-DEC-80 12:16 PAGE 5‘3

SEQ 0270

SDec-1580 85:31:22

S L

TOPS

PA:<

AT #8335L

[+ -]

; ATA.SAVE,*

?3(9)“
- REG+70
.aséa’
5
66
ASYNC
DUMPER
#REG.S,~(SP)

MARD.17,-(SP)
MRD.11.-(5P)

ATA.SAVE

sesees

LR L

i i

ATA.SAVE ,*

ATA.SAVE

-4 BC.

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

e ad D D o

78:
8S:

150202

gd
dg

22
22 IR
A3

SRERZZEBILNRUK
2B SEIEGREKLE

) D D b b e

D ad e ed e

D e

D d

) D D D o

283

d d D e

9s:

-—ed b e ed b ek cded e e

SEQ 027
-1980

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
ADD
TRAP
ROR
BLO

TRAP

MOV
CLR
MOV
CLR
ow
BEQ
MOV
MOV
MOV
ASR
ASR
ASR
MOV
ADD
MOV
MOV
BIC
MOV
CLR
JSR
ADD
ST
BHE

TRAP
.WORD
JWORD
- WORD

MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
TRAP
MOV
[
MOV

350 -1980

PPHR. 2.~ (SP)
ARD.15,-(SP)
#F1V.FRf,-(SP)
#6,-(SP)
»
4
ns.sr
#10,5P
4
#1, 3 .REG+60
M .REG+60
7 .R3
.DUT
1
LaML.
@M .REG+70,(SP)
.DUT ,R1
R
R1
R1
SP.RO
RO.R1
R1.-(SP)
,1.
-(SP)
(SP)
1 ,-(SPS
-($p)
Pcou.scrz
nob.sp
1

TOPS|

<
PA:

) D

D D D D D D d b

* ,DAT.PAT

ATA. SEL

ATA.SEL,*
,»
DAT.PAT

= _ATA.SAVE

34
382888

MACRO M1113 22-DEC-80 12:16 PAGE 5“

CZRABO ML-11 LOGIC TESY
RISCELLANEOUS CODING SECTION

6104

ASYNC

SPHR.7,~(SP)
#REG.S . ~(SP)
12.-(sP)
“11.=(5P)
? =(SP)
218, -(sP)
1X.Fif,-(SP)
,=(SP)
‘RO
4
R3, (SP)
SFNT.7,-(SP)
#2,-(5P)

6105

v"
DAT.PAT,
»

6106

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

NS
PAGE 285

JMLG

}

-1980

1
1

%3,
)%

108:
24

118:
128:

}

1
}

MoV
TRAP

fP.RO
4

B8R
ASL

118

INC

BLE

BLO

ROR

TST

RTS

1
1

b cmd e cemb wd

767

176640

T19::

18:

(SP)+

JSR
TRAP
ROR

PC.$T19
66
RO

RTS

BLO

000207

; Routine Size:

6117

!<BLF/PAGE>

bflm

: DAT.PAT

611

6113

5994,

6115

16 words

6 words

; Maximum stack depth per invocation:

) o

3
2 ATA.SEL

TRAP

TOPS

PA: <

3 W,

.SP

; Routine Size:
302 words
; Maximum stack depth per invocation:

129
12195
12199

09:24:31

Sm-mo 835?:22
ADD

)

b b

SEQ 0272

0 words

192
1

g TEST NAME:

SEARCH FUNCTION TEST

R
R
R
AR

TEST THE SEARCH FUNCTION BY:

i
i

613%

O AE

A A T I

TST 20

g TEST DESCRIPTION:

A
T

DOING A SEARCH mnmm AT

ARRAY ZERO AND TEST

ERROR BITS AND ATTN rd
SETTING/NOT SETTING

;

A A A

DOING semcurwnaus AT ALL

Fsgsm

AND TEST ATTN

1 3.

[]

A
R
A
A A
A
A A

1+e
;rssrm:

618

{

]

DOING SEARCH FUNCTIONS AT ALL

NOT PRESENT ARRAYS® AND TEST
ATTN CLEARED.

= ZEROES;

6146

CLR

6148

MLCS1 = SEARCH;

DO A SEARCH FUNCTION

6130

1t
.60 ISs$

!SEE IF GO IS SET

A A

A I A A A

615

A A L

SRR

DUMPER) ;
IF NOT SET
mnp’?ivm WRD_1,
PHR_2, WRD_11, FNC_10,{ERROR
WRD_19);

6154

A A

SEQ 0273

SDec-1980 30:51:30

sy,

NNN
INININ
;\g\gwwv\‘\‘\'
’o

D
D ) D D D
) D e
D D d D
D o
D o
) D
) D e
d
D e
D D d e
D ) D o
D
)
D e
) o
D D
D d ol
) D
D
b o
b

MACRO M1113 22-DEC-80 12:16 PAGE g“

S
Yo

CZMLABO ML-11 LOGIC TEST
HISCEMAGS ING SECTION

if .ILF._IS.SET ; /"
then it
in

6161
6164
61

'SEE IF ILF IS SET

(57,

ASYNC, DUMPER):

'ERROR *F SET

mm (flV_FflT, WRD_3, PHR_S, WRD_11, FNC_11, FNC_10, WRD_19);
:.f-'.'A"N IS_NOT_SET
:

!SEE IF ATTN IS SET

g&r (59, ASYNC, DUMPER)
mm (FIV_FMT,

sm IF NOT SET

"WRD_16, fim 1. mo 12, FNC_i0,

WRD_19);

IR e e

MACRO M1113 22-DEC-80 12:16 PAGE 3.7)

SEQ 0274
TOPS-20 BLLiss~

PA: <NEALE

begin

incr ARR_SEL from 0 %o .LST_ARR by .ARR_INC do
in
CLR

D 0T T 0S T S e e e

e e o e St

§§§§22222222323
S8 8RR
RGN 2 BRI ARER 2B IV AN

$5 Dec-1580 8:51:2)

= .ARR_SEL;

!DO SEARCH AT ALL PRESENT ARRAYS

MLCS1= SEARCH;

!LOAD DSA REG WITH ARR_SEL
!DO A SEARCH FUNCTION

1f Ol IS_SET

!READ ATTN

ERROR IF NOT SET
E:'aflor
(60, ASYNC, DUMPER)
DUMPE ;
PRINTB (FIV_FMT, WRD 4, PHR_S, WRD_ 1é FNC_10, WRD_ 19);
PRINTB (FMTC9, .ARR_SEL):

end;
ENDSUB;

end;

if .OP_NUM_ARR Lss %0'000017"

then

!SEE IF LSS 17 ARRAYS ARE PRESENT

incr ARR_SEL from .LST_ARR + .ARR_INC to Am b{"
16
v KLL
'8? —

'AMAYS IF LSS 17

CLR

seL:

MLCS1= SEARCH;
if .OP1 IS_NOT_SET

WN=O

then
in
mf (61, ASYNC, DUMPER);

!LOAD DSA REG WITH ARR_SEL

!DO A SEARCH FUNCTION
~
!SEE IF OPI IS SET

IF NOT SET

PRINTB (FIV_FMT, WRD &, mn WRD_12, FNC_10, WRD_19);
PRINTB (FMTC9, .ARRSEL

VNV

end;

b e

ENDSUB;
end

ENDTST;

v2(212)

—

MACRO M1113 22-DEC-80 12:16 PAGE 5”6

147600

147500

18:

2s:

614
61
615

D
-

LI]

SEQ 0275

6+40

: §§§a=a

BAggi?i?i

[r
At
P i’

1,SSAVES

g
g

R G L ELEE L AT S EELLLEEL T o

trdvtvtvir

%
%

6154

615
615

6160
YNC
DUMPER
MRD.19,~(SP)
amc.tg.-«sm
#FNC.11.-(SP)
ARD.11.-(SP)
#PHR.S,~(SP)
ARD.3.-(SP)

6161

#FIV.FAT,~(SP)

#7,-(SP)

R
gm.a.moso

6159
6164

6167
ASYNC
DUMPER

MRD

oODOOm®

;hoh.-n
88"

858

T
CTION

————————————

(SP)

6168r

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS

CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 509

1238

SEQ 0276

sMLG

-Dec=19

1258
1058
10388

012746
012746
012746

MOV
MOV
MOV

#PHR.1, ~(SP)
MRD.16,~(SP)
#F1V.FNf,-(SP

o 7%
15%1

J |

UOW
104414

6'l

Lsr.m.g

; ARR.SEL

} "..j

6202

202001

12
1
1
1
1

04402
016700
042 70C
277

1
}

]

016703

"'f‘
3‘;

33
001438

000074

145766

38:

145746

MOV

ARR.INC,

TRAP
BISB
MOV
8IC
BIC8

#40,aML.REG+40
%ao
RO
LML
RE

CLR

147364

4S:

147346

MOV

BISB
g

147503

BIT
BEQ

TRAP

MORD

0240

“.- ”

. WORD

RO.@ML.RE
R ’u.ae.g

#20000,3ML .REG+60
7%

:24:31

TOPS

” "

:
:

61;;
61

: ARR.SEL,*

;

i
1
1
1
1
1
1

D127
|
:
012748
;
019746
01060C

MOV
MOV
MOV
MOV
MOV
MOV
MOV

ARD.19,~(SP)
mcc.lg.-(sm
m; .=(SP)
ARD.%.~(SP)
#FIV.FAT,~(SP)
#6,-(SP)
SP.RO

: SP,*

' ';-

z;figss) _—

: ARR.SEL,*

10600

MoV

?,m

062706

c;z.sr

6182

YOS0O(

060301

: *,ARR.SEL

6173

.};_-f%

145552 000017

%‘M.mm?

619N

01670

1455528

LST.ARR,R1

6194

1
1

}

1
g

10441

0441

TRAP

. %&
000022

MOV

TRV

58:

0371 ¢

pe! O¢

066701
016703

ADD

TRAP

BLO

14
145546

6$:

ADD

Bcz

MOV

ADD
MOV

#2,-(SP)
14

fi.RZ

ARR. INC.R1
ARR.16.R3

6184

6185

SP,»

: ARR.SEL,*

6186|

i
7s

D d ) D D ) ) D ) D e ol D ) D e
) ) e e
b
—

$-Dec-19%0 09:24:31 1opy
MOV
B8R

TRAP
BIS8

61
61

MOV
8IC
8I(8
8IS8

L)
= C

REEEEG

SEQ 0277

MOV

: ARR,.SEL,*

B8IT

MoV

BNE

TRAP

MOV

.WORD
-WORD
- WORD

6206

MoV

: SP,»

MOV

; ARR.SEL,*

6207

MoV

s SP,»

ADD

6204

ADD

: *, ARR.SEL

619

BLE
RTS

6116|

TRAP

MOV
MOV

8s:

TRAP
ROR

BLO

98:
108:

MOV
MOV
MOV
MOV
MOV
MOV

) D D D

) D D D ) D o

) ) D D D D ) e

D D D ) o

T
MISCELLANEOUS CODING SECTION

; Routine Size:

: ARR.SEL.,*

234 words

; Maximum stack depth per invocation:

13 words

6508

MACRO M1113 22-DEC-80 12:16 PAGE 291°

sE0 0278

Bpec-ioe Wisti

TRAP
ROR
BLO
RIS

; Routine Size:

pe.st20
1

6 words

; Maximum stack depth per invocation:

6216

! <BLF/PAGE>

;

0 words

—

CZMABO ML-11 LOGIC TEST
NM CODING SECTION
}1 :
12517

-1

6217 !

33 :

6318 BGNTST;

1956

893]

12508 ;

.%a

' TEST NUMBER:

TST 21

,9- :

-11;1

; TEST NAME:

READ IN PRESET TEST

12528 :

i TEST DESCRIPTION:

;

;;' :

§ :
.

TEST THE READ IN PRESET FUNCTION BY:

12531 :

5008

12533

8230

12532 :
;

5229

193 ¢

0% MLCST = RD_IN_PRE:

13541 :

4538

}

}:
13545 :
12546 :
12549

£53

13:

5249

12556 ;
155 .
1%:

5251
.
:

1;8:

5255

12553

12557

}

8250

528

6259

12562

12563 :
12564

560
661

12567

6264

125

ISEE IF GO IS NOT SET

DUMPER) ;

JERROR
IF SET

ASYNC. DUMPER);

'ERROR
IF SET

mm(rivmWRD_1, PHR_2, WRD_11, FNC_11, WRD_19);
:
: ‘i if JILF IS_SET
'SEE IF ILF IS NOT SET

5246

12550

!DO A READ IN PRESET FUNCTION

f%_.-if .60 IS_sET

then

mm«ivrm WRD_3, PHR_S, WRD_11, FNC_11, WRD_19);
if .OPI IS_SET

then

'SEE IF OPI IS NOT SET

ASYNC, DUMPER):

'ERROR
IF SET

mmn(rivrm WRD_4, PHR_S, WRD_11, FNC_11, WRD_19);

end;

n.wxsnorser

'SEE IF WV IS SET

t’flor«s ouvs
'ERROR
IF NOT SET
mm (rivm
PHR_1, WRD_11. FNC_i1, WRD_19);
ENDTST;

4.BLI.2 (71

TOPS-20 Bliss=16 V2(212)

*it cun!pus-

15542

PA: NEALE

PERFORMING A READ-IN-PRESET FUNCTION AND TESTING GO, ERROR BITS

5231
.l‘

:26:31

AND WV FOR SET / NOT SET.

12534 :
12535 o

;i- :

SEQ 0279 |

35-0«-1& 83:5?:32

;M4

12520 :
gXCe

MACRO M1113 22-DEC-80 12:16 PAGE 392

L .. [.

.55nm%mnxu
3%eftiwtfeananetae
3im?.,ma%“SmRwm md?emamRwe8f2i§am08sX

o.J.Wv;»o ;‘onm4NO\STP+

1Wwtal1eT3al“e1cTe®‘1SEO11-o-1o,o1oWo13e§le1eol1OB-1y-1e-1'e1o131a'o1Ew1le1e1®o11Y11E111111’T
MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST
128

@
e

~adRo¢tiT.aXhZaetrTAR»=NMWLkl&

MACRO M1113 22-DEC-80 12:16 PAGE 393

()

JMLG

¢x1-

2s:

33Dec-180 09:21:

$T21:

oyB

CZMABO

=11 %GIC TEST

ODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 594

S Dec-1980 &:51:22

T0PS

PA:<

s B

"
5

§8 §%

>\ el -y £

R SHER R R R R

6261

6262

CZMLABO ML-11 LOGIC TEST
NSCELL&GS CODING SECTION

lg :
1
1

MACRO M1113 22-DEC-80 12:16 PAGE 595

6265 !<BLF/PAGE>

“

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 596

lusca.u&ous CODING SECTION
D D ) D e e o o

28 SIS DO N Y e Sa a O o 8 S AP RSB S S AR BT

sea 0283

SDec-1080 09:31:28

PRENLESBLIMA.BI-Y
7

BGNTST:
144

i TEST MMBER:

R
R
RIS

D e
D ) D e
d D d D D D e
D ) d D D D e
D e
d D D D ) D d D e
D d e
D D e e
b e e cd D e e
—

TEST NAME:

TST 22
ILLEGAL FUNCTION TEST

TEST DESCRIPTION:

TEST THE DETECTION OF ILLEGAL
;WTIO‘S WRITTEN TO MLCST
WRITING ALL POSSIBLE ILLEGAL
FUNCTIONS TO MLCS1.
THEN
TEST GO AND em BITS CLEARED.

ocal
BAD_BITS,
BAD_FUNC;

!STORES A COUNT TO GENERATE BAD FUNCTIONS
!STORES GENERATED BAD FUNCTION

BAD_BITS = ZEROES:;

!CLEAR BAD BITS

incr 0‘}_1 from 0 to 2 do

!REPEAT LOOP 3 TIMES

_BITS = .BAD_BITS + %0°'2°;

incr CNI_Z from %0'1° to %0'71' by %0°10* do
n

FIRSY "ENT_(Z + .BAD_BITS;

!ADD 2 TO BAD_BITS
!REPEAT LOOP GENERATING °"GOOD® FUNCTIONS

!ADD BAD_BITS TO CNT 2 mmnns BAD FUNCTIONS

MLCST = lM.FLNC

'SET UP K FIRST BLOCR
XF

if JILF IS_SET
then

!SEE IF ILF IS SET

!LOAD MLCST WITH TWO w FWT!O‘S

begin

if .60 IS_SET
then
E

!IF ILF IS SET THEN SEE IF GO IS SET
ASYNC, DUMPER);

'ERROR IF GO ser WITH BAD FUNCTION

PRINTB (FIv_FMT, WRD_1, PHR_2, WRD_11, FNC_12,

PRINTB (FMT_12,” .BADZFUNC) ;TM

WRD_19);

CM ML-11 LOGIC TEST

D D e o o

PRINTB (FMT 12,

D )

end;

if .OPI IS_SET
then
1n

BADZFNC);

!SEE IF OPI IS SET

DUMPER)
PRINTB(rivm.m«ms
WRD_12,IERROR
FNC_[F
12SET
WRD_19);
ASYNC,

43 SENWR
§B8R

REG

FIRST.BLK.XFER

- LV o

1466216

l.\.

1466306

1466312

& =SRRLIERTINA

dv
%,

146330

e
Geg
=l
HE
3=353asee
8a%°

18:

IRERET:

$T22:

NN RN

mxm (FMT_ 12, .BAD

o«

d ) wd D D ) D i
D ) D D b D b b wd D
d e
D b
b wd d e
D e
b i

TOPS-20 Bl{iss-1 6 v2(212)
4.8L1.2 (72)

PA: <NEALE

67 ASYNC, DUMPER)
(F
EO
?AD
FUCT
()N DON'T CAUSE ILF
PRINTB (fivHTWS Hfll\fibfl FNC

D o

D d e

S5 Dec-1980 09:51:22
else

MACRO M1113 22-DEC-80 12:16 PAGE 597‘

MISCELLANEOUS CODING SECTION

=11 LOGIC TEST
CODING SECTION

MACRO M1113

22-DEC-80 12:16

M 6
PAGE 298

SEQ 02’:%
T
PA:

sOmT9oKS

1iS&.a1-n1.lcqlaclncleolnclcltclaqlnclcplnclt.lecSolnclecalc®lctllcelcnl.elon!qlcazlcnlc.alf.ilcnlql:lcla.w clScltalclcol‘clcalL.lcln«lclecTlclcdlclalsclclalclcl

CZMLABO
)|

.10"“‘-”w.HJv."

1 > .~

)

631

; BAD.FUNC,*

6314

: SP,»

631

6320
6321

; SP,»

: BAD.FUNC,*

: SP,»

6322

6328

6329

: BAD.FUNC,*

6330|

N{C TESE

MACRO M1113 22-DEC-80 12:16 PAGE 399
ROy
MOV

#2,-(SP)
RO

ADD
TRAP

[

TRAP

AAA

PN "

78:

2.5P

8o
=

39
o

cMP

R1.#2

B8GT

8S:

JMP
RTS

; Routine Size:

141 words

; Maximum stack depth per invocation:

T22::

1$:

JSR

TRAP
ROR
BLO
RTS

2 Routine Size:

6339

!<BLF/PAGE>

15 words

PC, 8722

66
RO

6 words

; Maximum stack depth per invocation:

TOPS

PA:4

8§
W

:22

R
D R S

H, )

0 words

e R Sy S
Y

50
31

: TEST NUMBER:

TST 23

| TEST NAME:

54
35

§9
58
59

BLiss=16
v2(212)
B
B

TEST THE DETECTION OF A
gE'GISTER MODIFICATION REFUSED
1.

GaGEEEs

WRITTING TO MLCS1,

MLDA

AND MLER WHILE nt DRIVE

IS as:gv AND TEST
8IT

ALSO SEE IF THE DRIVE ASSERTED
EXCEPTION BY TESTING THE TRE BIT SET.

inchN‘{metoZdo
n

CLR_MBUS;

!REPEAT LOOP 3 TIMES

MLCST1 = write;

!DO A WRITE FUNCTION

case .CNT from
0 to 2 of

!WRITE TO SELECTED REGISTERS FORCING RMR

set

0] :
MLCS1 = %0'000000°;
€1 :
MLDA = ONES:

21
tes;

W
=1

TOPS-20

PA: <NEALE

TEST DESCRIPTION:

3 |

§§§§§§§§§2§§§%&%§

e T e
B
T
e B
T
L
e
e T
e

SEQ 0287

BGNTST;

L
e
R
e
P

35Dec1980 09:21:22

SSRR

MACRO M1113 22-DEC-80 12:16 PAGE ‘00

MLER = ONES

DELAY (FRTY_US);

if .RMR IS_NOT_SET

then in o
E

(69,

ASYNC, DUMPER)

!SEE IF RMR GOT SET

IF NOT SET

PRINTB (FOR_FMT, ‘WRD_21, bun WRD_11, WRD_ 1);
end;

CZMABO ML-11 LOGIC TEST
CODING SECTION

—_—

MACRO M1113 22-DEC-80 12:16 PAGE SO‘I

%6 ;ML

SEQ 0288

4:
TOPS-20 BLiss=16 V2(212)
33Dec1980 09:21:32
PhoRMLE
4.BLI.2 (73)
ISEE IF DRIVE ASSERTED EXCEPTION BY TESTING TRE

965

it .TRE IS_NOT_SET

mor
SYNC, 55 hln WRD_11, WRD_21);
mm (117
(FOR_FMT,

$T23:

5306

531(

145676

18:

JSR

R1,$SAVE2

CLR

: CNT

BISB

#40,aML.REG+40

MOV
MOV

i aml.REG
Rl

TRAP

-($P)

636

N &

534
5346

145606

535¢

ASL

535¢
5 35¢
340

2s:

536¢

3N
3

>40(

145604 4$:
1456264

WORD

58~

RMOVWl#-1,aML
e .REG+30
BR

MOV

#-1,3ML .REG+60

7%:

BEQ

6$:

98:
108:

MOV
MOV
BEQ

CLR

6369
6371

6371

(R1).PC
43~

S$:

8s:

145570

ADD
.WORD
JWORD

:
: CNT,»

:
:

: =, $8TMP2

5’ Y.R1

; *, $8TMP1

(SP)

: SSTMP

DEC
BNE

R
o%

l;g

: $STMP2

BITB

#4, aML.REG+60

&e‘c

BNE

11$

6384

: SSTMPY
6386,

|Rpod mwmw ¢ mwmw o~

2L£M8R§na%en8;tentMiBnRa3nB;tEatiange:g¢2@m
m%:&m 2£3
5

e :<

NNi | 8 23 3

mflu

CZMABO ML-11 LOGIC TEST

CODING SECTION

B b B B D o ed o =B h =D D

MACRO M1113 22-DEC-80 12:16 PAGE 503

767 177452

123::

1%:

JSR
TRAP
ROR

8LO
RTS

; Routine Size:

PC,$T23

6404

! <BLF/PAGE>

6 words

; Maximum stack depth per invocation:

SEQ 0290

0 words

6401

—

MACRO M1113 22-DEC-80 12:16 PAGE SO‘

SEQ 0291 |

333332

$5 Dec-1980 85:51:22

6611
wi

TST 26
|
| TEST NAME : initial PROM TEST

! TEST NUMBER:

: TEST DESCRIPTION:

wg
6617
wg

i
|
;

TEST THE MEMORY ARRAYS®' PROM
TIMING AND CONTROL LOGIC FOR
INITIAL PROM READS BY:

11
%

TOPS-20 Bliss=16 v2(212)
PA: <NEALE
4.8L1.2 (74)

READING 14 PROM LOCATIONS
AND TESTING FOR:

A. CHECK SUM ERRORS AT

EACH ROW COLUMN ADRS

OF EACH PROM BIT SET

,0> GTR 14.

€30 '%%%er
ser on

6435

g3
6440

S
0000
rt%fb ¥

6441

tor

vector

10, bytel

R_CTSAV ‘cg%t: "I" %&'5 nzj'
H

vector

ERR_FLG;

elJ,

!COUNTS EACH NIBBLE OFFSET
!SAVES ROW DATA OR'ED WITH COL DATA
!TEMP LOCATION FOR ROW COL DATA
!PROM ADDRESS
ICHECK SUM DATA
!CHECK SUM
{COUNTS BAD NIBBLES
!COUNTS BAD NIBBLE POSITION EQL 14
!DROP UNIT FLAG
!ERROR FLAG

Shes fiuz?n_
DiS = ey
w
= JEROES;

!SET PROM DISABLE MODE

“&s
22450

ierflTmeEc9go
OFF _SET_CNT C.CNT] = ZEROES;

!CLEAR OFFSET COUNTS

6451

incr ADRS_CNT from 0 to 14 do

!READ PROM DATA FROM 15 ARRAY WORDS

&25

6454

6455
6456

'Sm COL = ZEROES :

PROM_ADRS = .

incr TWICE from 0 to 1 do

!CLEAR ROW ORED COL SAVE LOCATION
!GET COPY OF ADRS_CNT
'READ ROW AND COL DATA FOR THIS ARRAY WORD

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

}
3
13155 ;
1
:
1
:

a.gg

} }g :

a;g

13174 :

1’ 11773 ¢

6480

13180 :

fig

13181 ;

ERRFLG = ZERO;
MLPK = Wbas
DELAY (ONE_US):
R_C_SAV = -mLPD;

'LOADING MLPA INITIATES PROM READ

'GET THE ROW OR COL DATA
incr BIT_ONT from 0 to 9 do
1COUNT NUMBER BITS SET IN <9:0>
if .R_C_SAV C.BIT_CNT] IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1;
CHK_SUM = .R_C_SAV<10, 3>;
1GET THE CHECK SUM BITS

g%o

if JR_C_SAV [13] IS_SET then CHK_SUM = .CHK_SUM + 1;

!'ADD IN BIT 13

it .R_C_SAV [15] IS_SET then CHK_SUM = .CHK_SUM + 1;

'ADD IN BIT 15

if .R_C_SAV [14] IS_SET then CHK_SUM = .CHK_SUM + 1;

if .R_C_SAV [15] IS_SET

then

if .BAD_NIB_CNT Lss .CHK_SUM then ERR_FLG = ONE;

else

gzgg

if .BAD_NIB_CNT neq .CHK_SUM then ERR_FLG = ONE:

13186 .:

6488

end;

13188 :
1 1g :

6490
6491

}

3 :

gsos

1% .:

if .ERR_FLG IS_SET
then

u.gi

13197 :

mE:

begin

6489

64
649%
6495
64

!'SET ERROR FLG IF CHECK SUM ERROR

end

11 } % :

13191 :
t gg :
1
:
1319% :

'ADD IN BIT 14

1S BIT 15 SET

6484

PA:W&&‘.&I.Z (76)

} }§ 3

13187 ;

TOPS-20 Bliss=16 v2(212)

m_ma.cm = ZEROES;

6457

} 1;10 :

13175 ;

:26:31

553::438 83:3?:32

} 8 :
} 2‘5 :
} 129 :

} }gg :

5057

-1

645
6460
6461
2“8
figs'
2“29
u.sg

1
:
1
:
} gg :

PAGE

'SET ERROR FLG IF CHECK SUM ERROR
‘

'WAS THERE A CHECK SUM ERROR
'REPORT INTERMEDIATE ERROR IF YES

E
(70, INTER, DUMPER);
PRINTB (SIX_FMT, FNC_21, WRD_10, WRD_12, WRD_4S, WRD_35, FNC_6);
PRINTB (FMT-10, .CHK_SUM, .RZC_SAV);
DODU_FLG = ONE:

ROW_ORED_COL = (.ROW ORED_COL) or (,R_C_SAV):

2558‘1’

'OR ROW AND COLUMN DATA

w_»as = (.PROM_ADRS) or (%0°2000°Y; 'GET COLUMN DATA
.

incr index from 0 to 9 do

650
6508

end;

'GET TOTAL OFF SET COUNTS FROM THE 15 ARRAY WORDS

if .ROW_ORED_COL C.index] IS_SET then OFF_SET_CNT [.index) = .OFF_SET_CNT [.index] ¢+ 1;

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 306

p ine

o D

[7,]

CELL&QIS ¢CODING ING SE SECTION

SEQ 0293

35001080 09:31:22 MR- MBI BIY (70

) D e D e d ) D ) e e ) D D e D D ) D ) D e D d D d ) D ) D e De o De D ) D e i

CNT_14_BAD = ZEROES;
incr CNT from 0 to 9 do

!COUNT HOW MANY OFFSET COUNTS GEQ 14

1t .OFF_SET_CNT [.CNT] geq 14 then CNT_14_BAD = .CNT_14_BAD ¢ 1;
g.'.‘cnrJ&,w neq ZERO

'WAS ANY OFF_SET COUNTS GTR ZERO

E:R&? (71, ARR_DAT, DUMPER);

'ERROR IF YES

:31

bfm.‘cm_u,w eql 10

'WERE ALL 10 NIBBLE OFFSETS GEQ 14

.l“m'::a (SIX_FMT, WRD_SS, WRD_S4, w.u.!#o“s; bgo’;%h%&o)“s -"zem IF YES

13.

&’Ym (FOR_FMT, WRD_46, WRD_47, WRD_42, WRD_40);

incr CNT from 0 to 9 do

!PRINT MESSAGE

'FIND OFFSETS GEQ 14

if .OFF_SET_CNT [.CNT] geq 14 then PRINTB (FMT_13, .CNT, (.OFF_SET_CNT [.CNTD));
i

!PRINT NIBBLE POSITION AND COUNT

DODU_FLG = ONE;
end;

:f .DODU_FLG IS_SET
hen

!DROP THIS UNIT IF DODU_FLG SET

sog

C.ML_LUN);
DOCLN;
end;

6544

824
8955
256
v

— d be

‘

5636 006167
065640 1
045644

ENDTST;

1
1

$T24:

145342

g o
i
M e
045676 005066

JSR
SuB
BIS8
MOV
BIC

MG
CLR

R1,SSAVES
#30.spP
ML .REG+40
u% 5
#1
RS

fmvked
2(sP)

;
;

6403
6441

: DODU.FLG

64kl

MACRO M1113 22-DEC-80 12:16 PAGE ;07

SECTION
D
D o
et
tat

;A:;

12877

000040

012701

000016

D4S

o.’o’ '

145366

%llj!

18:

43783 00300
v

DLS734

l’t‘,’OC

005066

fhae
P

2s:

; xfi{' 010564 800006
]

n‘!,

glesr?

0457%

~
:

oooooe 145272
1

134122
000014

#60,@ML .REG+120

MOV
ADD

e2rss
g0
4574 -},ff-‘q 000011
[}

$peccioe0 Bisiin

6 A1
R2.R1

CNT

6448

: ONT,»
:

MOV

10(SP)

MOV

6(SP),aML.REG+100

5$:

OV
CLR

L3OLY.R2
14(SP)

MOV

644

CLR

! Ox.SN e

ADRS, CNT
b4

: ROW.ORED.COL

6(SP)

: ADRS,CNT,PROM.ADRS
: PROM.ADRS,*

ALRI

6451
64

: «,$STHP2

6461

; *,$8TWP1
; SSTWP

«t

tettte
et etBetOet et et oN‘:‘:4 i
1 ittt
11 OB
nd
€

'-'-*-'.‘f'R AR
IR
NOWwSs

- O

D d D D D D
D b D e
D d D ) b

tele

2 IR
',
-2

t et et ot

b D D ) D o
D d D

o) \J ot

) D D o

D D D

D e

balta)
"'

D b d D
b d e

SEQ 029%

'.bv.t..p'.r,u'.n"»'.),f +vfibfbftfi'.b'.b
X
-

D e
)
D e
— cd b cd

46012

017766

ps0s

:;.fi;—‘:

.".'o 20

D0S00¢

‘:"::.:'1
Me0%s

0:0::‘0
012900

6062

010146

%6
26052

062716
0197646

rnr R

Re0e0
D606k

Q0aes
06270¢

660/

o‘a

0’

.:".:o)70

26078
::". I

X6110

s
046122

‘.

00:'f’.‘.

145366

000012
177770
000001

135054
10

005266 000004
' u‘L‘

016603

000012

042703

177770

000012

CLR

@ML.REG+230,12(SP)

RoA]

: BIT.CNT,»

MOV

R1.=(SP)

BIC
MOV

-(SPJ

H BiT.CNT

2.1

g
:‘
el -l

: *.R.C.SAV

#0.5P

INC

”

4(SP)

: BAD.NIB.CNT

BLE

“.

M77770.R3

B8
: =, CHK.SUM

MOV

2
BIC

L=|

(sP)

DEC

e Al

12(sP).RS

‘

: RC.SAV. CHK.SUM

6468,

22-DEC-80 12:16

PAGE

SEQ 0295

000100

000013

3
%
L.

g7
4
20

.5AVH]

; (K -SUM
*,R.C.SAV+]

L
L L e

: R.C.SAV+1
INC

; CHK.SUM
BAD.NIB.CNT,CHK.
SUM

g &

128:

*,R.

: CHK.SUM

118:

-1 LT Eon §3323333338333333%

>
).
-~
>

?.13(8?)

—om

vivivte

)
L
.
S

‘.v"f‘f' A

.13(SP)

000013

S5 Dec-1980 09:51:22
=3

000040

3 IIIIIIIIII IIII

BAD .NIB.CNT,CHK.
SUM

PA:

672
6474

; *,ERR.FLG

: ERR.FLG,*

6494/

RARRR

MACRO M1113

6505

CZAABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SEC TION

MACRO M1113 22-DEC-80 12:16 PAGE 509

s
)
s
s
>
$
)
)
s
)
)
s
$
)
L
s
)

ASR
ASR
MOV
ADD
ADD
MOV
MOV
BIC
MOV
CLR
JSR

000010

32%

n0,sp

MOV
ADD
ADD

26,81
SP.R1
R2.R1

19%:

INeg
INC
P

BLE

208:
218:

INC
P
86T
JP

CLR

CLR
MOV
ADD
ADD

BLO.,
228:

R1
R1
#10,R0
SP.RO
R1
R1.=(SP)
fi -(SP)
(SP)
n ,-(SP§
-($p)
n6um2

ROW.ORED.COL
,*

INDEX,*

(RD)

6451

RS, #16

R
#16,R2
9.3
R1

651

ag).ns

INC

21§

INC
P

R1
R1,#11

6511

g%
TRAP

WORD

JWORD
-WORD
P
B

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

ToPs

PA:<

6515

6518

107

ARR.DAT

ARD.40,~(SP)
ARD.42.~(SP)
ARD.51.-(SP)
NRD.%6.~(SP)
ARD. 54 .~(SP)
ARD.5S5 . ~(SP)
"
(

2.°0:.°7.%9.29.29.%9.
9. Y "
P8P8 8¢ IRRS

BDec-1588 B:51:22

CNT.14.BAD,»

o529

6522

B Dec1980 89151122
RO
(SP)+,(SP)+

SP,*

25$:

6527|

27%:

28$8:

. B

: *,DODU.FLG

RTS

; Routine Size:

£55

Ti
PA:

L)
=
<?,

3333340ARARARR2

OFF .SET.CNT
=
CNT o

3_-“ VAV Grhd A

b
D D d D o o
do
) D D D D ad D D D D D D e
D ad

SEQ 0297

CNT

b e ol D ed d d D b d D D ed D D e

MACRO M1113 22-DEC-80 12:16 PAGE §1o

CM ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

: DODU.FLG,*

&
6
6

6540

#30,SP
PC

304 words

* Maximum stack depth per invocation:

29 words

CDUABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE g‘ll

JMLG

BRIRRR

767

176634

T26::
1$:

50ec-1588 B:5 :22
JSR
TRAP
ROR
BLO
RTS

: Routine Size:

PC.$T24
66
RO
1%
PC

6 words

; Maximum stack depth per invocation:

) ) ) D e
b b b b
- ad

6545

! <BLF /PAGE>

0 words

CZRLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SE CTION

MACRO M1113 22-DEC-80 12:16 PAGE §12

SEQ 0299

gggm T
S
A

v2(212)

Pa-eaBELIM 164.8L1.2 (75)

BGNTST;
Tee

TST 25

i TEST NAME:

PROM OR FUNCTION TEST

TEST DESCRIPTION:

TEST THE HARDMWARE ORING OF
THE MEMORY ARRAYS® PROM
ROW COLUMN DATA BY:
1.

READING AND STORING 128
W ORED ROW COLUMN

THEN IN PROM DISABLE
MODE

- ¥

Ittt iaicicaiaiaiaiaiaiaiaiatimimimias
o

| TEST MMBER:

AND VIA SOFTWARE CONTROL,
PROM ROW
COLUMN DATA AND COMPARE
AGAINST THE RESPECTIVE
STORED HARDWARE ORED DATA.

000000000000000000000000s0,
0000000 0000000000000 0000000000000

Ve 08800, %% o000 00000000 0000000

-—d

b ) b b e e cnd b b

NN
A

2L WVeEEFYRYERRCEaES

b ol emd b b b b cd cod D b wmd b =D D b md d cod D i d =D e o cmcd =D o D o D md =D od D o

D oD oD D D d

SDec-1980 $9:1:22

sn“
né

'SNTW! CALCULATED PROM ORED DATA
!SOFTWARE PROM ORED DATA
iDROP UNIT FLAG

8000
FLG = ZERO;

638

o
2 R

!SET UP A FIRST BLOCK XFER
DO A WRITE FUNCTION

imr%.@
fN!' 0 to 127 do

!READ AND STORE 128 HARDWARE PROM ORED DATA

659%
6595
65
659

CLR

DECAY (ONE_US);

Md_OR_TBL [.PROM_ADRS] =

%Ct"“.
H

|_DIS = ONE;

incr PROM_ADRS from 0 to 127 do

!READ HARDWARE PROM ORED DATA

!CLOCK NEXT ONE OUT

!SET PROM DISABLE MODE

!CALCULATE 128 SW ORED DATA © COMPARE TO HW TABLE

H, T

$5Dec-1980 09:51:2)

8399

= .WS:
L?;s(u
):
= MPD:

or %0°2000°;

ORED = .R BITS or .C

BITS;

D D D ) D e

M/ SAVE = .wfm.m t.lgm_mas:l:

6603
6610

if (.HJ_SAVE<O, 9>) nea (.SW_ORED<O, 9>)
then
in

661 i

) e
D D ) ) D D D D e

!SAVE COL DATA
!CALCULATE SOF TWARE ORED
!GET RESPECTIVE HARDWARE ORED
!COMPARE SW ¢ MW ORED
!IF NEQ THEN ERROR

w.nc = ONE;

661 g
661

!SAVE ROW DATA
!ENABLE COLUMN DATA ADRS

PRINTB (FMT
2, .SW_ORED<0, 95, .MJ_SAVE<O, 95, (.SW_ORED<O, 9> xor .MW_SAVE<O, 9));

661
6614
6615

661

v2(212)

2'%:
(76, ARR_DAT
R);
PRINTB (FOR_FMT, WRD gs. WRD 36, WRD 19, PHR 4);

6611

661 s

TOPS-20 Bliss=16

PA:OGALE&&?.&I.Z (75)

=,
LAY (ONE_US);
C BITS = JLPD:

D e

end;

if .DODU_FLG IS_SET
then

!DROP THIS UNIT IF DODU FLG IS_SET

CML_LUN)
;
DOCLN;

ENDTST;

1351

144166

44144

23N

D D
D D ) D o
D ) e i cnd =D b
—

MACRO M1113 22-DEC-80 12:16 PAGE !13.

ML-11 LOGIC TESTY
OUS CODING SECTION

D ) D ) il D ) D e o

CZMLABO
RISCE

$T25:

144150

144212
e
1 1440

000001

JSR

R1,$SAVES

alx_asa

H a’t.neeu

g‘,‘}, 4 '& REG+40
A
B8I(8
IC
a .n.fiec«g
RS

BIS8
bl
ax_nsa
18:

2$:

MOV
BEQ

n?u.aesnzo
ER
R
1.8 .REG
#1.R1
5

DODU.FLG

2%
6584
6585

3
: PROM.ADRS

. SSTMP2

6587,

6389|

aunRmuns820n8&

BRP3RBR8 s&“w
108:

.R£G4230.2(SP)

u1..mw%on1a

REG*100

118

128:
%

14$:

0 a

g8 e

gvek

000002

64230. (SP)

TS CF=aE

144120

& [) 8 82

6590
6591

6587

65
65

RASet T TtE P

2L
@g

PeOt

h2a

o% L
o

¢ 3 232

..m

(kS).Rk

6603

3
$

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 315

MISCELLANEOUS CODING SECTION

13¢

]

BIC

BEQ
TRAP
7454

136
13¢

MOV
MOV

1
1
1
1
1
1

1
1

}

000004

1464040

000010

;
1

}

168:

6612

; SP,

(SP)

: SW.ORED,*

“
L (SP)
L (SP)

MOV
BIC
MOV
MOV
MOV

RS,=(SP§
n
,(SP)
#FMT.2,~(SP)
#%,-(SP)
SP.RO

; SW.ORED,*
: SP,»

MOV
ADD

#1.30(SP)
#24,sP

: *,DODU.FLG
:

(v, ]

R1.M77

INC

nh% (SP)
14

6614
“S;%

: PROM.ADRS

"cgm.n

: DODU.FLG,*

6619

Moy

Hf.LlN.RO

6622

70,SP

6544

BLE

000001

ARD. 36,~(SP)
MARD.35,-(SP)
#FOR.FMT,=-(SP)
#5,-(SP)
f?.ao
4

6611

: HW.SAVE,*

TRAP

158:

#PHR.&, ~(5P)

-(SP)

BIC

1 000030
A

000177

1
1

MoV

177000

BIC
BIC
BIS

177000

; $

MARD.19,-(5P)

TOPS

PA: <4

; WN.SAVE
,»

.R3

MOV

13¢

13¢
13¢
1

114
ARR.DAT
DUMPER

MoV
MOV
MOV
MOV
MOV
TRAP

MORD
.WORD
.WORD

MOV

1
i
1
1

:24:31

Ss-ooc-wg g:g:&
MOy

1
1

1
1
1

~Dec=19

:
177000

SEQ 0302

} .
1

gt-

TRAP
TRAP

ADD
RTS

; Routine Size:

: PROM.ADRS,*

§
&4

177 words

: Maximum stack depth per invocation:

20 words

11 LOGIC TEST

177232

I3 20 a8

767

TiS::
1$:

JSR

TRAP
ROR
BLO
RTS

: Routine Size:

6627

!<BLF/PAGE>

SEQ 0303

%.8725
1
PC

6 words

: Maximum stack depth per invocation:

DI S

G
RISEELLMEOLS¢CODINSECTION

MACRO M1113 22-DEC-80 12:16 PAGE 516

0 words

CZMABO ML=11 LOGIC TEST
MISCELLANEOUS CODING SECTION
1

13789
‘}

WACRO 1113 22-DEC-80 12:16 PAGE 517

)

i
3

BGNTST;

}

: TEST NUMBER:

}
}

:
:

}
1

$
:

]
1
1
|
1
1

:
:
3
:
:
:

}

6640

664k

1
1
1
1
1
1

:
:
3
3
3
3

1
7

1
1

]
1
1

}
}

TEST THE DETECTION OF UV ADRS

ERRORS BY:

&) i
w.§ i
6645
mg
6647
6648
6649
6650

gssl

|
i
!
|
|
|

DE TERMINE m nssrscrm

VIA DAT DM AND PROM R/W
MODES
PRESENT GENERATED
PROM DATA TO THE UV ADRS

ERR PROM.

66S§ i

6654
6655
6659
6657
6658
6659

A PATTERN
" FROM
o ro zo 7799;
PATTERN IS GOOD/OR
PROM DATA.

3. TEST ERROR CONDITIONS FOR

|
|
!
=

CORRECT RESPONCE TO GOOD/
OR BAD PROM DATA.

local

.
:

6660
6661

:
:

6664
6665

%’ DODU_FLG = ZERO;

:
.’

DODU_FLG,
HIGH CNT.

'DROP UNIT FLAG
ISTORES PROM DATA CHECK SUM BITS

TEMP
ERR_FLG.

iTEMPORARY STORAGE
iERROR FLAG

PROM_DATA : bitvector [16],
LOW_ONT,

6669

GTR_FLG:

ISETS WHEN PROM DATA BIT 15 IS A ONE

PROM_DATA = =1;

2271 do

}% :
7
:
1% :
1g1o :

ggg
6675
66;9
66

DATA = .PROM_DATA + 1;
CLR rws‘
ERRTMFLG = ZERO;
LOW"CNT = ZEROES;

13812

6679

GTR_FLG = ZERO;

13811

iSTORES PROM DATA
'sroass SUM OF PROM DATA BITS <9:0>

6678

TST 26

: TEST NAME:
UV ADRS ERROR TEST
; TEST DESCRIPTION:
i

TOPS=20 Bliss=16 v2(212)
Ph:NEALESBLIMG.BL1
2 (76)

‘}

SEQ 0304
:26:31
30~Dec~1
Deco1080 09:21:23

mal CNT = zenoek

'TEST ALL POSSIBLE PROM DATA COMBINATIONS

! INCREMENT PROM_DATA

WACRO MI113 22-DEC-80 12:16 PAGE 3188
D i o o
) D ) D ) D ) D ) D ) D ) D o

incr BIT_CNT from 0 to 9 do

PEALDELIMG.BLILL (76)

!COUNT PROM DATA BITS <9:0>

if .PROM_DATA [.BIT_CNT] IS_SET then LOW_CNT = .LOW_CNT + 1;

HIGH_CNT = .PROM_DATA<10, 3>;

!GET PROM DATA CHECK SUM BITS

if .PROM_DATA [13] IS_SET then HIGH_CNT = .HIGH_CNT + 1;

!ADD IN BIT 13 IF SET

if .PROM_DATA [14] IS_SET then HIGH_CNT = .HIGH_CNT + 1;

!ADD IN BIT 14 IF SET

if .PROM_DATA [15] IS_SET then HIGH_CNT = _HIGH_CNT + 1;

!ADD IN BIT 15 IF SET

if .PROM_DATA [15) IS_SET then GTR_FLG = ONE;

!SET FLAG IF BIT 15 IS SET

DAT
%xrea0;

) D D D ) D d D D D

m=
,PROM_|
(WA
MLCS1 = write;

DO A WRITE F

DAT_CLK = ONE:

iCLOCK PROM DATA INTO UV PROM

if .UNS IS_SET
then
beyin

ISEE IF PROM DATA CAUSED A UV ERROR

D e

if .GmFLG IS_SET

'UNS IS_SET. SEE IF GTR FLG IS SET

b?r .PROM_DATA;

'LOAD TEMP WITH PROM DA

z'fm.‘rer eql %0°'162000°

'THESE BITS SET AUTOMATICALLY CAUSE A UNS

TEMP = .TEMP and $0°'162000°;

b o

SEQ 0305 |

$Dec-1980 (9:s1122

iISEE IF THESE BITS ARE SET IN PROM DATA

begin

D D

ILOWK9:0> SHOULD BE ISS THAN THE HIGH<15:10> IF GTR FLG IS S

n .Lou CNT geq .HIGH_CNT

(72

DAT ogwen)-

-0

PRINTB (six
FMT, WRD
ERR_FLG
= ORE;
end;

'ERROR IF LOW<9:0> IS GEQ HIGH<15:10>

PHR_S, WRD_32, WRD_6, WRD_33, WRD_24);

(V.1
=

end;

else

end

begin
I'fm.‘wu_cm eql .HIGH_CNT

—

OCOONONONONONONONONONONON

(LA

b— ol D md ) D e end d e e nd D

begin

'GTR FLG IS NOT SET
ILOW<9:0> SHOULD BE NEQ HIGH<15:10>

'ERROR IF EQL

‘fl

QOOOOGOOO

S5Dec-1980 09:51:2%

TOPS-20 Bliss=16 v2(212)
PA: SNEALE
4.BLI.2 (76)

'UNS WAS NOT SET

u .smFLG IS_SET

) D d D ) D o

ISEE IF GTR FLG IS_SET

bgp= ,PROM_DA
TEMP = .TEWPTMmto°1szooo

!LOAD TEMP WITH PROM DATA
!SEE IF THESE BITS ARE SET IN PROM DATA

it .TEWP

!IF THESE BITS ARE SET THEN UNS SHOULD BE SET

then

iERRDF (7%

20°162000°

!ERROR UNS IS NOT SET

DAT

) d D D D ol D D ) D D

E:,{"T
(six
m WRDfl PHR_1, WRD_32, WRD_S, WRD_33, WRD_24):
else

IBITS 162000 ARE NOT SET

begin

!LOW<9:0> SHOULD BE GEQ HIGH<15:10>

ff .LOU CNT Lss .HIGH_CNT

R);
?flw(rs
rgm csifimPAiofl PHR_1, WRD_32, WRD_S, WRD_33, WRD_24);

!ERROR IF LSS

FLG

D D
) D D e

R);

end

else

) D D D ) D e
—d d e e e

ARR_DAT

\V,]

g
—

D bB
o
b
) D ) i o
D D

ERRDF

PRINTB (SEX_FMT, dn.g.imfi_s. WRD_32, WRD_6, WRD_33, WRD_24);

) D D

) D ) o

TION

MACRO M1113 22-DEC-80 12:16 PAGE §19'

end

!GTR_FLG IS NOT SET

begin
if .LOW_CNT

then

( 108, ARR_DAT

?1%6(51&117" WRD_

end'
end
end;

!LOW<9:0> SHOULD EQL HIGH<15:10>

«HIGH_CNT

R):

!ERROR IF NEQ

., PHR.1, WRD_32, WRD_S. WRD_33, WRD_24);

MACRO M1113 22-DEC-80 12:16 PAGE iZO

b sMLé

if .ERR_FLG IS_SET
then
bt,in
PRINTB (FMT_7, .PROM_DATA);

TOPS-20 Bliss=16 v2(212)
PA: <NEALE
4.BL1.2 (76)

ISEE IF ERROR FLG GOT SET
IPRINT FAILING PROM_DATA AND SET DODU_FLG

ENDSUB
end :

until .PROM_DATA eql %0'177777°;

!TRY ALL BIT COMBINATIONS

27739

if .DODU_FLG IS_SET

!DROP THIS UNIT IF DODU_FLG IS SET

6798 TM begin
6799
DoBU C.MLLUN:

ggo
1

DOCLN;
end;

ENDTST;

134326

$T26:

O
o0 18:
000010
143370

1”%3
m‘ 143352
R
000002
000004

3s
000010

JSR

suB

B
#".E,.
BISB

R1,$SAVES

#2,SP

10(5P)

*,PROM.DATA

: PROM.DATA

#40,aML.REG+40

BICB

BIC

n’%ans
¥
RS
#7.aML.RE

gg
CLR
CLR
MOV
ASR

2(sP)
4(SP)
RS
RS.Ré
R4

MOV
ADD
ADD
MOV

SP.R2
R2.R%
Ré.=(SP)

: DODU.FLG

N
#10,R2

667

2 ERR.FLG
s LOW.CNT
s HIGH.CNT
: GTR.FLG
: BIT.CNT
: BIT.CNT,»

; PROM.DATA,
»

(

égfifi&t

4V|

SEQ 0307

“ooou.ne = ONE;

{4
27733

33Dec-1980 09:31:23
OO0

“‘5“ ‘5‘

ddddddddddddd*dddddddddddddddddddddddddddddddd‘d

CZRABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE iZ‘l.
MG

=19

55 0e=19

2(sP)

s!xc

BITB
58:

o
3

143220

163174
163126

#40,11(5P)

ISTB

11(SP)

TA,HIGH.CNT

I1GH.CNT
* ,PROM.DATA+1
HIGH.CNT

*,PROM.DATA+1

HIGH.CNT
PROM.DATA+1

w2
N
83
T
B

: HIGH.CNT

MOV
JSR
BIS8
MOV
MOV
MOV
8IS8

1.,4(SP)
DAT.DM.XFER
00,8 ,REG+120
10(SP)
RS
ML .REG+230
{4 .REG
-REG+120

PROM.DATA
,»

4(SP) .M

GTR.FLG,*

oY
BIC

9s:
108:

77770

BEQ

000001

I
1
1

o
BIT8
#100,11(SP)

X
TRAP

338

000011

§(m.n

(SP) ,#~16000

¥(sr>.n3

168
}?’

* ,GTR.FLG

.REG+60

RSP
nsg.m)

~ TEMP
~ TEMP

: TEWP,»

LOW.CNT ,HIGH.CNT

6715
678

000011

RS. M1

$§ § & 32 8%
3

ASR
ASR

222

MOV

INC

fl's'

4S:

§ &

INC

§ § &8

-($P)
rcoussrz
nb.sp

CLR
JSR
ADD

A A TR

BIT.CNT,»

2282

RS, -

MOV

TOPS

<
PA:

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE §22

012746

1
1
]
1

)é
S

50216

14047

030318

3
50004

50032

]

)

1
1
1
+
1
16061
3

16064

1
}

]
1
1

PIVCE

1
|

}

)5
150046
)50,

50,
0
:

.
012746
017
01766

MOV
MOV
MOV
MoV

MARD.6, =(SP)
#PHR.S = (SP)
ARD. 34, -(SP)
sxx.mf.-(sm

01060

$ SP.o

BR
W

15$
(SP) ,R3

:
* LOW.CNT,HIGH.CNT

;

6733

)50

DOC
026603

50302

TRAP

000002

18:

104455

TRAP

WORD

000111

MORD

D240
012746
© z
;
012746
012746
012746

.WORD
MOV
MOV
MOV
MOV
MOV
MOV

;

MOV

J | OO

06414

,,.}
50320

MoV

]

|
-

T
M

m.ig.«sr)

013746

0105

Obe

000001

128:

015777
162000

DUMPER
m.g.—(sn
MARD.33,-(SP)
ARD.6, ~(SP)
MARD.32,~(SP)
MRS, =(SP)
ARD. 34, -(SP)
9.”

671

ARR.DAT

,=(SP)

?gn.n

: GTR.FLG,*

6734

MOV

RS, (SP)

: «, TEMP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

PARD. 24 ,~(SP)
ARD.33,-(SP)
ARD.S_ ~(SP)
ARD.32,-(SP)
MPHR.] ,=(SP)
ARD.34, ~(SP)
31x.mf.-(sr)
.~(SP)
fr.uo

6753|

: SP,*

;(sp).ns

; LOW.CNT,HIGH.CNT

TRAP

{3"

BGE

158

: SP.'

MORD
-WORD
.WORD

138:

sxx.mf.-(sm

BIC
z

04455

MOV

TRAP

000004

.~{SP)

-1980 09:24:31
P53
Sopecion

MOV

1
1
1
1
1
1
1
1
1

}

SEQ 0309

H, T

08777,
(sp)
{;}.fi-uooo
112
ARR.DAT
DUMPER

133

: = TEMP
: TEMP,»

6743

674
674

6754

6759
6762

CZRABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 523

SEQ 0310

188:
19%:

S. W
4
—

RN
AR S8
G I
Ag
8}\?0..0.0
4

6763

9'.

; LOW.CNT,HIGH.CNT

67
6

—

6776

| x

30F

w'.

; * ,ERR.FLG

Py .n

~—

* ERR.FLG,*

~ |

)

oz 3N Xg

178:

168:

=D
3-.
AEIRGNIR
332
yeegaNgs
u:a

158:

6777|

14$:

Bi5id

§§23¥§§%§§§§§§§§§§33§§§§§§!!!§§§§§§§§3’§§§!§§§§§§§§§

FIIT

H, T

SP‘.

: *,DODU.FLG

: DODU.FLG,*

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE g?‘

14149

8
SEQ 03N

H, T

@s B e

161

141

141
141

146174
16175
161;9
14

710

004767
106466

176664

126::
1$:

JSR
TRAP

ROR
8LO
RTS

1
00020

292 words

!<BLF/PAGE>

19 words

PC.$T26
66

ag
1

: Routine Size: 6 words
: Maximum stack depth per invocation:
6804

:26:31

: Maximum stack depth per invocation:

14178
}2}2
14185
14186 ;

: Routine Size:

}2}

14
141

=19

0 words

6801

CIMABO ML-11 LOGIC TEST
RISCELLANEOUS CODING SECTION
146188

MACRO M1113 22-DEC-80 12:16 PAGE §2$

;L6

-1

—

90909 090900909
00 %

:26:31

sm#gg 83:5?:32

Vo0 %0 000000 %0 009090000090 %090 9000090990009 % 9009000 %

d D b b cnd D cd e

) cnd ced wmd D b b D cnd e

RAA
VNV

D D D b D D D ed D e

WNN=O

0009000 %

000909000 %;0800,

b e e

0000009

d
e e e cd

D D d D D D d D D e ad D D D d D d D D D D b b

}2}& 3
94

SEQ 0312

TOPS=20 Bliss~- 6 v2(212)

PA: <NEALE

BGNTST;

f TEST NUMBER:

TST 27

! TEST NAME:

INITIAL ARRAY TEST

YESY DESCRIPTION:
DUE TO THE NATURE OF THE DEVICE
THERE EXISTS KNOWN BAD ARRAY
DATA LOCATIONS.
THEREFORE TO INITIALLY TEST THE ARRAYS'
TIMING AND
C A BAD

LOGIC TO BE IN ERROR.

THE ARRAYS® ARE INITIALLY TESTED BY:
1.

VIA DAT_DM MOD WRITE DATA PATTERNS

ST EACH NIBBLE (4 BITS) FOR
1°S AND 0°S AND COUNT EACH BAD
ENCOUNTERED

IF ACCUMULATED BAD NIBBLES
EXCEED 36 THEN REPORT AN ERROR.

OF 1°S AND 0°S TO S ARRAY

ocal

TST_PAT,

'TEST PATTERN

ERR_FLG:

iERROR FLAG

BAD_NIB CNT,

INUMBER OF BAD NIBBLES FOUND

BAD_NIB_CNT = ZEROES;
ggg?
685,

685
6854
6855
6556

incr W%CE from 0 to 1 do

cua'mus
fsrPAT;
= .TST"PAT:
n.e = .TST PAT;

'REPEAT LOOP TWICE

'LOAD TEST PATTERN INTO DIAG REGISTERS

4.BL1I.2 (7D

TEST

MACRO M1113 22-DEC-80 12:16 PAGE !26

-1

D o

d =D—

) e

'SET DATA DIAG MODE

MLCS1TM= write;

iDO A MBUS WRITE

FIRST_BLK_XFER ;

iSET UP A FIRST

B
n

end;

6875
6876

LR_MBUS;
M.T‘SM = ONE;

'SET DATA DIAG MODE

MLCS1TM= read;

iDO A READ FUNCTION

incr ARRWRD from 0 to 4 do

'READ THE S WORD IN MEMORY

ISET UP A FIRST BLK XFERR

DELAY (ONE_US);
n

DAT_CLK = ONE;
DELAY (ONE_US):

gfl

ICLOCK OUT A WORD INTO THE DIAG REGS

RD_LNG_WRD

'READ THE DIAG REGISTERS

incr NIB_PTR from 0 to 9 do

'READ THE 10 NIBBLES IN THE WORD

m:fns_w (.NIB_PTR, .TST_PAT, ERR_FLG); !COMPARE TST PAT TO NIBBLE UNDER TEST

D d D
o

! INCREMENT BAD_NIBBLE COUNT IFERR_FLG SET

end;

R R R RR

NS QU

—

) d

D b e e

end;

XFERR

'CLOCK S WORDS INTO MEMORY

;

FIRST_BLK_XFER ();

4.BL1.2 (77)

TOPS-20 Bliss=16 V2(212)

FUNCTION

it .ERR_FLG IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1;

e D

PA: <NEALE

:26:31

wsun = ONE;

incr CN‘: from 0 to 4 do

d D D D D D e
D d D D D e

) D

D d D o

SEQ 0313

ss:g::-lw 83:51:32

T R RR
N 4

4
NG SECTION

903

E'SOI

AT = not .TST_PAT;

'REPEAT WITH COMPLIMENT TST PAT

:'fm.‘w_ma_m gtr 36

(77,

ASYNC,

!SEE IF 36 OUT OF THE 100 XFERRED WHERE BAD

R);

'ERROR IF GTR 36

PRINTB (ri\LrDr‘m. mo",zs. PHR_4, WRD_12, WRD_45, FNC_14);
ENDTST;

MACRO M1113 22-DEC-80 12:16 PAGE §27

<11 LOGIC TEST

w&ous CODING SECTI

D o e

D o

133200

$T27:

D e

177777

D o e

162254

e
d D e
b e e

¥
0,
2
D6
197 051032

000001

131064

000004

¢:

051060

‘:}'

51044

Ss:

3¢ 0510

000020 142216 6S:

399 05104

$36

UDIT1UE

051064

543

ab&b Pttt

;

P
MOV

CLR
CLR
TRAP
BISB

R1,$SAVES

-(?} -(SP)
1 R1

-(SP)

: *,TST.PAT
: BAD.NIB.CNT

: TWICE

#40,aML.REG+40

FRs

;

.,
RE

Ré.aML.RE

R1.aML .REG*

MOV
BIS8
JSR
MOV
CLR
MOV
BEQ
g
R

1.8 .REG*
0,aM .REG+1
PC, FIRST .BLK.XFER
§. 9 .REG
R3
6
Y.R4
4(sP)

BNE

DEC

:24:31

5 -Dec-1980 8:5?322

: TST.PAT.#

: TST.PAT.#
:
:
:
: ONT
: v, S8TMP2
: =, $STMP1
: $STWP
: SSTMP

&e‘c

: $STMP2

8IS

¥20,aM .REGH20

Fad

6864

142120

BISB

#40,@ML.REG+40

6865

8
60

frem

71 142016
130746
000004

JSR

BISB

142270
142136

s-o.c-mo

BIt
BICB

‘

i
Ye
o
e
R
e e D

18:

142236

el
B
D

SEQ 0314

)

bP
et
—_

—

BR ALRRCT
S
51
.REG

MOV
7s:

8s:

9s:

108

MOV

BEQ
MOV
B8EQ
CLR
g,f.g

DEC

CLR

£
kg .
1&

: o, $8TMP2

5’ Y.R4
4(SP)

; *, $STMPI
: SSTMP

: $SSTMP2

Ré

6871

SSTMP

: ARR.WRD

6873

28 s & 8 &$ 28 g »

8
"5"1hz§f38555§3%252E§338H0388Ew§L3m>nos>5z%S55To2R&m8w;°fg&

omumm2m29n5m37vmammwwnDoensasnmrmasuisnemagsmns_tsrRas8u8enaLeeisNiey&m&§s
$Q‘4$fl;
CZMLABO ML-11 LOGIC TEST

127

900020

130706

13018

000010

12706 000008

000011

000004

177364

000001

000044

142076

&£ % ad at5odeN o

MISCELLANEOUS CODING SECTION

118

R K= gw “

& 22o3

CZMABO ML-11 LOGIC

TEST

MISCELLANEOUS le'finSECTlUl
1641
1641

? 678 162142
g
%

1
1

}
48
164

}g:
767 177232
BiE
ey
1

?f
- PP

RTS

ADD

127::

1$:

JSR
TRAP
ROR
B8LO
RTS

}6“

16449
146450
16451 ;

.LUN,RO

TRAP
gl

; Routine Size:

177 words

! <BLF/PAGE>

16 words

PC,$727
66
RO
18
PC

6 words

; Maximum stack depth per invocation:
6904

6303

#6,5P

; Maximum stack depth per invocation:

i 8
16“;

MOV
208:

LE =1980 B:5:%
-19

: Routine Size:

164

SEQ 0316

gll‘

}2“1
1“} 114
rE
1“13 1
;l“‘l

MACRO M1113 22-DEC-80 12:16 PAGE 529

0 words

wuao ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

14453

MACRO M1113 22-DEC-80 12:16 PAGE 530

;M4

}fig .l

164
164
164
164

SEQ 0317

-Dec~1

:26:31

5 -Doc-‘lgg 83:51:32

'
BGNTST;
1es

Bliss=16 v2(212)

ggi TEST NUMBER: TST 28

mfi

3i TEST NAME:

16464
16465
1u.¢9
1646

1
|2
9

}2%
144

PROM SELECTION TEST

1647%
16475
144

Auato
DURING DIAG TESTING.
nflera’% THE ARRAY MODULE UV PROMS

1. AT EACH PRESENT ARRAY MODULE WRITE 127 ARRAY WORDS WITH 1°S/0°'S PATTERN.

1578

THE PROMS MASK BAD NIBBLE LOCATIONS (ENCOUNTERED BAD NIBBLES

COUNT EACH BAD NIBBLE ENCOUNTERED AT AN

ALLOW
A THRESHOLD OF 5 BAD NIBBLES AT ANY ARRAY MODULE.

1
}““

REPORT PROM SEL ERRORS AT RESPECTIVE ARRAY MODULE IF THE
THRESHOLD 1S EXCEEDED.

14485

xmucn INPUTS:

1&5

PD_TEMP:

A BIT VECTOR OF 16 BITS WHERE

1450

14488
16489

164
1649%

VECTOR OF 256

S WHERE

DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

16495
1464

144

69‘9

16499 :
14500 ;
14501 ;

691.3
6%
6950

16498

14504 :
}2505 :

145539 :

6947

ggss

6953

2355?

local

DODU_FLG,
ERR_FLG,
TST PAT.

ERR”CNT

1DROP um FLG
iERROR FLG
'resr PATTERN

1ERROR COUNT

DODU_FLG = ZERO;
TST_PAT = ONES;

;

THE READ PROM DATA IS STORED
AND ACCESSED FROM.

mgg

READ THE UV PROMS AT THEIR RESPECTIVE ARRAY WORD LOCATION AND SEE IF
wuwmcr MASKING).

16479

ARE TESTED FOR UNIQUE SELECTION BY:

144

4.BL1I.2 (78)

rsst oesca{;nou
NATURE OF THE DEVICE
AND or
mv MODULES® UV
Y PROM READS ARE

TOPS=-20

PA:

6956 incr ARR_SEL from 0 to .LST_ARR by .ARR_INC do !TEST ALL PRESENT ARRAYS

P R TR SN

) D i o
-

d i

L-1. ENT. V. P XV N}

b D d d b

SEQ 0318 |

$5-Dec1980 0:31:22

d oD o

D D

) d e

MACRO M1113 22-DEC-80 12:16 PAGE §3‘l

H, T

BBBBDN BEPEDPDEDDDDDEDDDN L

MISCELLANEOUS C

CZAABO ML-11 L

?3! CNT = ZERO;
fncr TWICE from 0 to 1 do

!REPEAT LOOP TWICE

!LOAD DATA DIAG REGISTERS WITH TST_PAT

MLCST = write;

D o

TOPS-20 Bliss~ 6 V2(212)

PA: <NEALE

!CLOCK IN 127 WORDS

R R

!SET DATA DIAG MODE
:
OUNT

llC$1 = read

TOR
DO A READ FUNCTION

incrwcmmetofi?do

!READ THE 10 WORDS

DELAY (ONE us;

CEEEREREE MR RN

) el o
d o)
o

ViAW

incr CNT from 0 to 127 do

'SET DATA DIAG MODE
!LOAD WORD COUNT
!LOAD UBUS ADRS
iILOAD SECTOR
!DO A WRITE FUNCTION

!GET PROM DATA FOR THIS WORD
ICLOCK THIS WORD INTO DIAG REG
!READ DIAG REG FOR THIS WORD
incr NIB_PTR from 0 to 9 do

!LOOK AT ALL 10 NIBBLE

if .PD_TEMP [.NIB_PTR] IS_NOT_SET
!FIND GOOD NIBBLES
then
in
TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG);
!COMPARE NIBBLE TO TST_PAT
if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1;
end;

! INCREMENT ERROR COUNT IF ERROR FLG IS SET

end;
TST_PAT = not .TST_PAT;

!REPEAT WITH COMPLIMENT DATA

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE §32

MISCELLANEOUS CODING SECTION

14565

:ML&

;

;809

112271 :

1%
14574 :

12
15

14575
14576
:

19
;81

7019

14580 ;

14583

14579

14584 :

:'fm.‘em.cm gtr S

ENDSUB;

:'fm.‘ooou,m IS_SET

'DROP THIS UNIT IF D2OU_FLG IS SET

SEZU C.ML_LUN);

DOCLN;

ENDTST;

14598 051470
14599 051474
14600 1&

132422
1
1

]

160055 990008

]mo

}

1
1

4611

051

14613
1461%
14615

051
051
051

14612

|
|

end;

}g& :

'ALLOW 5 ERROR BEFORE ERRORING

end;

14589 ;

PRINTB (FMT9, .ARR_SELS:
DODU_FLG = ONE:;

14
4
:
14
14588 :

}

BRRoF (78. ARR_DAT
R)
et ek,
PRINTB (THR_FMT, D55 Eunb,s?. WRD_10);

14585 :

TOPS=20 Bliss=16 V2(212)

PA: NEALE>BLIMLG.BLI
-2 (78)

end;

112581 :

:26:31

55-0«-1338 83:51:32

16% :

SEQ 0319

~Dec-1

}2% :
14568

051

}fi# }
14618 051614

$T28:

oV
18:

28:
141444

JSR
SuB
CLR

CLR

TRAP

CLR

BISB

BIC

6
141
14155

BIS8
MOV
MOV

?°°222 141426

"151 141460
1“% 141342

BICB

'a?s's
MOV

R1,$SAVES
6, SP
10($P)
"}s

INC-2(3P)

690

: DODU.FLG

695

: ARR.SEL

g(sm

; ERR.CNT

6958

(sP)

: TWICE

6961

: TST.PAT,*
: TST.PAT.*

6964
6965

#40,aML.REG+40

%as

6962

LaML.RE

J@ML .RE
@M
.REG*+
. @ML .REG*

6'&'\'('%41
#-400, 3. .REG+10

Baoutgn.
;

4,94,“76

ST
'c&TESECTlm

MACRO M1113 22-DEC-80 12:16 PAGE §33

166

051630

051622
051634

012777
010177
0

141

} 57

012704

000001

016705

130240

051660

005066

000014

u’cn

}

14631

16632
146

16636
166
14638

14€

051642

051664
1664

0053

14643 03
14645 0"

1‘“9
14647 0F
1&
1
1

14651 05,

ls.gz
6%

goouo

i
A2
771

;
10177

1
141214

0127
01370

0014

BISB

141256
141326

52774

01277

BLE

161274

71
1

052060 05066 000014

50066

146

14671

1‘65
146
14674

n,Vto'.

05¢

5¢

017767

141264

137050

137044
137040

;

;
: ARR.SEL,*

DEC

: $STMP2

178:

B8R

CLR

MOV

108

-REG+230,PD. TEMP

; WD.CNT

6%3

; *,$8TMP2

6991

#20,aM.REG+120

BEQ

17§

DEC

CLR

; SSTMP

DEC

: SSTMP2

MOV

@ML.REG+170,D1.TEMP

BNE

£R

MOV
MOV
CLR

14(sP)
158

148

aML.REG+200,D2. TEMP
@ML.REG+160,E2. TEMP

6987

BISB

MOV

6981

:
; *,$8TMP2

; SSTWP
: SSTMPI

168:

017767 141 33
017767 141
00500

6977

14(SP)
RS

158:

00530

CLR
DEC

148:

001374

: CNT
CNT,»

108

12§

; =, $STMP1

141

00530

#71,am.RE6
MR

697,

n‘.gu.ns

141350 141062 138:

#10.BUF ,@M .REG+20
R, @M .REG+30

MOV
MOV

L@ .REG+10

: SSTMP1

BEQ

1;:.

1527

flberl.lEGflZO

09:24:31

; CNT

98:

00500

01270

BISB
mov
MOV

52026

017767

R
RS
#7.ML.RE

141156

:0:9‘2.‘1

#40,@ML.REG+40

o
BICB

MOV

001374

nrz

8IC

141

141210

118:

D53050

: SSTWP

14(SP)

INC

¢ UG

052064

; *,$8TMPI

CLR

14656

050036

gou.ns

DEC

.ngg

000014

: *,$8TMP2

000177

005066
0053

052030

g.a‘

-;{fx:

- *msg 052012
1
052016

146 0

#20,@ML.REG+120

130106

:0’«:%’o'

3
: ARR.SEL,*
:

BISB

‘5

016705

c{o.aur @M, REG+20
R1,aML.REG+30
f.aL.REG

CLR

053020

MOV
MOV
MOV

Lfy‘ 000020 141372 8$:

00373

146

141344
141312

'’

~Dec=1980

BHE

002

0°

}

00500

003 if"

16640

SEQ 0320

sMLG

14623
14624
14655
166

SSTMP

: NIB.PTR

69%

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE iJ‘

122
1

013120

Jeeas 82
14686 05,

mv
BIC

000001
1307

128 &S
)2
1225
%
%

000020
a&s;g 000001

}27“ 5.

000011

14705

000177

MOV

o
JSR
g

Ré,~(SP)

; NIB.PTR,*

ADD

SP, (SP)

B: ERR.FLG,*
PR

6999
7001

INC

10(sP)

: ERR.FLG,*
: ERR.

R M1

: NIB.PTR,*

gs;

INC

1 n7?

: WD,

: w.%.-

6987

S Tarce

Weoe

BNE

05¢

052,

Ly,

)

1627

000001

}4&‘

000002 000005 218:

et 177260

}2
14

14
1%

: TWICE,*

DUMPER
MARD.10.~(SP)
MRD.37.-(SP)

;

7015

MOV

SP.RO

: SP,»

MOV

#FMT.9,-(SP)

JWORD
MOV
MOV
MOV
MOV
MOV

000602

(sP).n

—p

MORD

~35P)
~TST.LNG.WRD
(sP).n

-WORD

'}5595
PC BLSGT2

116

105

7011

1471

14
1%
14

: ERR.CNT,*

TRAP

NIB.PTR

g(sp).ps

(

%71
1%
1%

avg

14715

147

#PD. TEMP RS

R -(3P)
n?fi% (SP)

ROv
JSR

14692 053

14700

-Dec=1980 09:24:31
T
BRURBHD
K

ADD

177770

o:r

16687 31
....
l‘,r
14689 05¢

14698

SEQ 0321

SMLG

14683 05¢
e S

MoV

MOV
TRAP

ARR.DAT

MRD.35.-(SP)
STHR.FMT ,=(SP)
#6,~(SP)

;? (SP)

#2,-(SP)
SP.RO
14

ARR. SEL

: SP,»

7016

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE §3$

MISCELLANEOUS CODING SECTION

SEQ 0322

JMLG

1%
16
1%

1676

000010

147
1%

000026
228:

000001

23s:

141170

1erie
}2:78

1478
14750

6S:
SS:

000016

268:

177100

14751

e
}2;5549

s-boc-'”

" ,26(SP)

: *,DODU.FLG

701

TRAP

701

o(sP) .n

; DODU.FLG,*

ADD

RIR
BHIS
JMP

né.sP

BNE
MOV

248
Hi.U.N.RO

MDD
gsr;

4esP).A1
R1,6(5P)

TRAP

JMP
ADD
RTS

004767

d0000

177024

5 05253

1%
146774

128
18:

JSR

000207

RTS

14775

; Routine Size:

}2;7816
7032

!<BLF/PAGE>

« AR SEL
ARR. SEL , *

?g‘

6954

6903

20 words

PC,$728

RO
19

6 words

701

76,SP

: Maximum stack depth per invocation:

244 words
; Maximum stack depth per invocation:

1e7¢8
14769
1o
%

:24:31

MOV

; Routine Size:

14760

14
14

0 words

CM ML-11 LOGIC TEST

iéfiifi%%@%%%%%%ééfiéifiéEéiiiéiégéifiiiéifiim

b e ol

SEQ 0323

BREEDBAD

T
T

So0s

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 536

]

BGNTST;
tas

: TEST NUMBER:

TST 29

! TEST NAME:

READ WRITE ARRAYS WITH PROM DATA

TEST DESCRIPTION:
COMBINE
READING OF ARRAY
m.eu WITH ARRAY MODULE UV PROM DATA AND
FINDA GOOD BLOCK WHERE FURTHER
TESTING WILL BE PERFORMED BY:
1.

STARTING AT BLOCK O WRITE THE BLOCK WITH SELECTED DATA PATTERNS
AND READ THE BLOCK AVOIDING ANY BAD NIBBLES POINTED TO BY THE
PROM DATA.

SET ERROR FLAG IF ANY BAD NIBBLES ARE ENCOUNTERED IN BLOCK.

2.
3.

REPEAT WRITING/READING THIS BLOCK UNTIL ALL PATTERNS ARE TESTED

OR THE ERROR FLAG IS SET.

IF ALL PATTERN HAVE BEEN TESTED AND THE ERROR FLAG IS NOT SET

THEN SAVE THIS BLOCK ADDRESS AS THE GOOD BLOCK ADRS AND EXIT TEST.

ELSE IF THE ERROR FLG HAS SET THEN REPEAT TEST AT THE NEXT ROW.
REPEAT UNTIL A GOOD BLOCK IS FOUND OR LAST ROW IS REACHED.

IF NO GOOD BLOCK IS FOUND BY LAST ROW THEN REPORT ERROR AND
EXIT TEST.

IMICIT INPUTS:
INC

LWED DURING THE INITIALIZATION CODE AND CONTAINS THE ROW ADDRESS
INCREMENT VALUE FOR THIS DRIVE.

PD_TEMP:

A BITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND
ACCESSED FROM.

:Rgé-FC‘Tm OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION
10

local

WRD_CNT,
NIB_PTR,

!WORD COUNT
!NIBBLE POINTER

)

2 (79)
RRBEWNLEY

—_——

CZMLABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 537

SEQ 0324

}%:ML

:26:31
smq
-1% g:fi:;l’

]

IPASS COUNT
INIBBLE PATTERN
IDONE FLAG
IERROR FLAG

14845
1
1

;
:
:

}

1&? :
le8s?

ok:

}%5 :

70997100

16864 ;

7105

}&g
1% :
1
:

}ass :

}&9 :

gm
7185
7104

ggg

14869 :
14870 :

7110
711

mg.’

711%

}am :

}q“;g :
1
:

m;
rakl

14879 :

}%m :
}mm :

TOPS=20 Bliss=16 v2(212)
PA:
<NEALE
4.8L1.2 (79)

ISECTOR NUMBER

ITHIS LOOP DETERMINES WHEN TO STOP

:!scm-msscmn
oAr DM=ONE;
MLDX = .SECTOR_NO;
MLWC = not 2557
MLBA = I0_BUF;

case .l:Ass_cm from 0 to 3 of
5@

ol :

NIB_PAT = %0°000000°;

€1 :

NIB_PAT = %0'17°;
2] :

es,

' INCREMENT THE PASS COUNT
'SET DATA DIAG MODE
iLOAD SECTOR NUMBER IN DSA
1LOAD WORD COUNT

iLOAD UBUS ADRS

ISELECT A NIBBLE PATTERN
' ZEROES
1ONES

NIB_PAT = %0°'12°;

'ALTERNATING ONE'S, ZEROES

NIB_PAT = %0'15’

|COMPLIMENT ONE'S. ZEROES

3) :

ITHIS LOOP RUNS THE PATTERNS

1
1%
:3

}

incr LD_CNT
fral 0 to 9 do

ILOAD NIBBLE PATTERN INTO NIBBLE SAVE

1
}

:
:

7
g

WRT_LNG_WRD;
MLCST =write;

ILOAD THE DATA DIAG REGISTERS WITH NIBBLE SAVE
DO A WRITE FUNCTION

'2
1%

}ml
=

1489 :

14895

;11

g :

]

7135

—_———

LD_CNG_WRD( LDONT. .NIB_PAT) ;

incr uqCNT from 0 to 127 do

BoAo

end;

CLR_MBUS;

IWRITE PATTERN INTO THIS BLOCK

MACRO M1113 22-DEC-80 12:16 PAGE gl.

CZMLABO ML-11 LOGIC TES T
RISCELLANEOUS CODING SE CTION

1491§ :
146913

;

169 ;

7145

iREAD DIAG REGISTERS

7150

;
3
3
3
3

7156
7157
7158
7159
7160

7155

7164
7165
7166
7167
7168
7169
7170
n
T‘Ig
71
7174

Yooy

14943 ;
164964 ;

7180
7181

7175
717

715
n
7184
7185
7189
712‘
7

iRESET THE NIBBLE POINTER

in
NIB_PTR = .NIB_PTR + 1;

'SEARCH FOR GOOD NIBBLES
i INCREMENT NIBBLE POINTER

if .PD_TEMP [.NIB_PTR] IS_NOT_SET
then
TST_LNG_WRD (.NIB_PTR,

718

14
s
14
3
14
3
14
3
14
3
14
3
14
3
14
3
14935 ;
14936
:
14
F;

14945 ;

:"3T

715

16919
14
14
1%
14

149‘9 3
14947 ;
14948 ;
14949 ;
14950 ;
14951 ;

!TEST ONE BLOCK FOR NIBBLE PATTERN
!GET PROM DATA
;CLOCK DATA WORD INTO DIAG REG

71$§
715
7154

14938 ;
14939 ;

'RESET THE WORD COUNT

7149

149155 ;
16916 ;
19N7 ;

1‘913 3

‘
flna

7149
714
7148

14
3
146910 ;
16911 ;

1‘% 3

iDO A READ FUNCTION

4
7140
;}41
4‘3’
714
7164

3
3
:
3
3
;

TOPS-20 Bliss=16 v2(212)
PA: <NEALE
4.8L1.2 (79)

ISET DATA DIAG mo:
ILOAD SECTOR NUMBE

1%
14
14
14
14
14907

;}g

SDec=1980 09:51:33
R

H, )
3

1
1

SEQ 0325

!TEST THIS NIB IF PROM FLAG NOT SET

.NIB_PAT, ERR_FLG);

end
until (.ERR_FLG) or (.NIB_PTR eql 9);

end
until (.ERR_FLG) or (.WRD_CNT eql 127);
end
until (.PASS_CNT eql 3) or (.ERR_FLG IS_SET );

!REPEAT UNTIL ALL PAT TESTED OR ERROR FLG GETS SET

:'fm(‘.nss,cm eql 3) and (.ERR_FLG IS_NOT_SET )

!WAS THIS A GOOD BLOCK?

in
FLG = ONE;
w_aut = .SECTOR_NO;

else
Lo

NO = _SECTOR_NO
+# .RAS_INC;

:'Ass_cm = =1;

IYES
ISET DONE FLAG
!GOOD BLOCK GETS THIS SECTOR NO

TINCREMENT
ROW NO
iRESET PASS COUNT

end
until (.DONE_FLG IS_SET ) or (.SECTOR_NO eql .LST_ARR + .ARR_INC);
ENDSUB;

!REPEAT UNTIL GOOD BLK FOUND OR AT LST ROW

MACRO M1113 22-DEC-80 12:16 PAGE !330

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTI

14953

:MLé

}295

-Dec=1

14.953 :
14959

14960 :

DODU

Mgi 3

(79, INTER, DUMPER);

132
149

ENDTST;

1497%

131436
000014

ug;g

177777 000002

14981
14

05¢
¥.

14980

14990

14991 052572
14
:

066

052576

16o%
14

}2&
}sooo

1%”
%
1
12%
1

15006

2s:

000015

144260

R1,$SAVES
4,
sp

MOV

#-1,2(SP)

CLR
INC

4(SP)
2(SP)

TRAP

BISB

MOV
BIC

'A GOOD BLK NOT FOUND BEFORE LAST BLK
{ERROR AND DROP UNIT

140530

38:

58:
68:

78:

8s:
98:

;

+ SECTOR.NO

#40,aML.REG+40

7031

: *, PASS.CNT

709,

: DONE.FLG
: PASS.CNT

, 7101

709

RS
&5

BICB

#7.9M.REG+40

BIS8

#0,aM.REG+120

BISB

48:

000017
000012

JSR
SUB
CLR

160434
177400 140406
%sgg 140410

}29“

1$:

023226 160462

14986
05,
1%
ug
14

$7T29:

140500

v2(212)

C(.ML_LON);

14964
14965 :

14975

TOPS-20 Bliss=16

PA: NEALE>BLINL4.BLI -2 (79)

ISEE IF WE'RE AT THE LAST BLOCK

PRINTB (THR_FMT, WRD_14, PHR_10, FNC_15);

}2961 3

¥.

:26:31

53—9«-1338 83:51:32
:'fm.‘secma_w eql .LST_ARR + .ARR_INC

14.3'718
14

SEQ 0326 |

RS.aML.RE

MOV
MOV
MOV
MOV

R2,8ML .REG+30
#-400,aM_.REG+10
#10.80F ,aM.
. REG+20
2(sP) RS

LWORD

43~

710

: SECTOR.NO,*
:
:
: PASS.CNT,*

71
71
n
n

I
Rl

: NIB.PAT

14l

gv
Efl"

: *,NIB.PAT
: *,NIB.PAT

gu
W

: LD.CNT
* LD.CNT,»

n
725

ASL
ADD

.WORD

CLR

RS
38(RS),PC
5%~

MOV

#15.R1

#7.R1
#12.R1

CLR
MOV

RS,=(SP)

JSR

PC.LD.LNG.WRD

MOV

R1.-(SP)

* «,NIB.PAT
: NIB.PAT,»

71%2

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 543

§
1
1
i
1
]
b
]

00520

)2262¢
"’{’{ 000011
003 7¢
016777 1
D1€
1
01
1

]

00141

}

127176

005066

000012

1
g

D007

|5¢

1
}
1
]
1
15036 05;

062705

05300

1
15041
1

020
053026
(

053

1
1504

53062
033066

128:

150%

138:

000020

000177

gooow 140230
1
1
140212
10

010277

1”183

01270
X

012777
O
|

140326 14$:

127042

005066

000012

168:

- ia

149006

005266
001411

}

q- 126764

15060

005066

D05 3¢
D0137%

000012

BEQ

g
(LR

DEC
BNE

: *,$8TMP2

14$

Y.RS

12(sP)

;
: WRT,CNT

71
71

: SSTMP

: SSTMPI

128

11‘

R nz?

#40,aML.REG+40
fi
RS
RS
n.n.fisg:tg
RS.aML..RE

.
;
:

7
n
7141

.REG+30

gu.as

5(39)

168
Ré&

: SECTOR.NO,*

: v $8TMP2
: SSTTMP

: SSTMP2

158

#-1,6(SP)

: *,WRD.CNT

7143

BISB

#20.aML.REG+120

BEa

238

g
(LR

DEC
BNE

.REG+230,PD, TEMP

Ré

: o, S8TMP2

?sou.as

; *,$8TMPI

(sP)

: $STWP

R
21s

: SSTMPI

: WRD.CNT

MOV

: *,$8TMP1

6(SP)

MOV

7134

L @M .REG+10
#10.80F
, @M .REG+20
ML REG
4R
188

INC

MV
Bea

CLR

: WRT.CNT
: WRT.CNT,*
;

M0,aM.REG+120

MOV

; *,$8TMP1

#20,aML.REG+120

INC
g;
BISB
MOV
BIC
BICB

7124
7125

BISB

MOV

21$:

#1 .Ré

TOPS

PA: <

* LD.CNT,
;

: SSTMP2

18%

208:

: LD.CNT

fé

178
198

(SP)+, (SP)+
RS, M1
93
D1.TEMP.aML.REG+170
D2.TEMP.aML .REG+200
i,@ML
REG

:24:31

35-0«-193 83:3?:22

DEC

BRr

DEC
BNE
DEC

1460154

01270

MOV

MoV
MOV
MOV
15:

177777 000006

000764

[0 2
e
TM
BLE
MOV
MOV
MOV
CLR

BISB8

140136
11600 140140
71 140112

016

-Dec=19

BISB

140260

012766

15061
15062

108:

11$:

5.3

15055
1

000001

53066
5.

1
1
140246

D05 3C
001374
0053C

005.20:
020327
¥
01670

15038

1
1
1

00530

1 >

}&9

D05 3¢
001374

15039

SEQ 0327

H, ¥}

}

150

: SSTMPY

7147

714

MACRO M1113 22-DEC-80 12:16 PAGE g“l

RRRRY

+ ¢t
.

; NIB.PTR,*

ot
JSR

258:

000011
000001
000177

MOV
ADD
JSR
ADD

né,-(sP)
SP, (sP)
PC.TST.LNG.WRD
‘sP

g:
glfl’

5sr).m
# RS

?(sn.cm

; WRD.CNT,»

S‘w‘”

: PASS.CNT,*

MOV
gxé

000002 000003

2%8:o
R

000001

7%:

BNE

288:

ggom 000004
166
1
29

1;;;;9 000002

(55”’

(SP)

BNE

000016
1

: NiB.PTR

rcoausrz
nob.sp
2

ADD

RRRRRR

WNOWNES
N =

RS AR
R RN

SIBIXIREI28

D el =D i
st
il s oD ol D oz

D e

) el e

d
) e

med e b

ceh o

”m.zg.ns
z(%n’-(sm

BIC

;

000006

33
MOV

ASR
ASR
ASR

&omo
10

2 NIB.PTR,*

;s = NIB.PTR

BrE

7160

; ERR.FLG,*

10(SP) ,RS
RS

7163
: NIB.PTR,*

7166|

7169|

31§

ROR
BCC

R4
298

MOV
gv
ADD

#1,4(SP)
600D
. BLK
RAS. INC,R2

MOV

: NIB.PTR,*
: NIB.PAT
=

248:

013120

RRRRRRRY
IS

D D D cnd

238:

; $$TMP2

208
@ML.REG+170.D1. TEMP
@ML.REG+200.D2. TEMP
n{.nsso JE2.TETMWP
#-1,(SP)
(spP§
gms

0-1.5(#)

BINN

135770
135764

BR
MoV
MOV
MOV
MOV
INC
MOV

A
n

1§m

160172
1
1

DEC

2
b

1401

-Dec=1980 09:
-Dec=1980
09

TeTeT

i1N r 1SINE~*

22%:

D b d
) D d D D ) D D d
—

b b e

D D

) D d e

D d d D

) D

wviviawninannanwaW
BB AWML

SEQ 0328

)

5& T o e2 Sy A 5E ) EAN Xy, ‘o L‘

D D D d D D D D bP e
Py

T
Tl

CZMABO ML-11 LOGIC
MISCELLANEOUS CODING SE TION

SEQ 0329

H, )

308:

1
1
1
1

318:

1
1
1

328:

33s:

1
1

MOV
ADD
P

)5,

1
1

D53

MOy
ADD

05353

)

D535,

LST.ARR. RS

#FNC.15,.-(SP)
#PHR.10.-(SP)

MOV

TRAP

)53

348:

;

1;
15
15
15
15

176676

129::
1$:

7194

7193

.LUN,RO

#2,5P

RTS

JSR
TRAP

; SECTOR.NO,*

[

neé,sp

; Maximum stack depth per invocation:

004767
1046466

7104

MRD.
14 ,~(SP)
#THR.FMT ,=(SP)

; Routine Size: 287 words

INTER

ADD
ADD

MOV
MOV

09:24:31

s SECTOR.NO,*

MR%NC.RS

117

MOV
MOV

05353

; DONE.FLG,*

LST.ARR,RS
AM%NC.

MWORD

.WORD

053¢
053¢

(SP)

BEQ
JMP
TRAP
ROR

TRAP

1
3

(MP

(v, <
BNE

-1980

PC,$T729
66

7194
raba

7031

7196

17 words

CZMLABO ML-11 LOGIC TEST
D
e e

7199

!<BLF/PAGE>

3 -Dec-1980 09:

A
6 words

; Maximum stack depth per invocation:

)
— e

SEQ 0330 l

s-o«-mo 09:

; Routine Size:

) D

e ) e i
ViAWY

) e e

MLG

b
D i o o

JoiA

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE S‘i0

0 words

PA:<

CM ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

g
15192

MACRO M1113 22-DEC-80 12:16 PAGE g“

B B3D

15195 ;
15196
;

'
!

} }9 ;

BGNTST;

}

0 ;

: TEST NUMBER:

}
}

:
:

: TEST NAME:
REFRESH TIMING TEST
: TEST DESCRIPTION:

1
1

:
:

11
1;

i
i

1 133

}
}

} }23
15215

144

15210 :

;

REG BY:

1§

}g ;

READ THE GOOD BLOCK FOR ONES.

|
i

uLwAwmuemm
OF 20 BAD NIBBLES OUT OF THE

15219
7

:
:

7226

}

1
1
9

}

:
:
:

1 :

i
i
i

15233

i—

1
15

:
3

}s 0 ;

15244 :
15322 :
15246
:

KEEP coun OF BAD NIBBLES

1280

;

NIBBLES TESTED.

IF THRESHOLD IS EXCEEDED THEN

REPORT ERROR AND DROP THE UNIT.

: IMPLICIT INPUTS:
PD_TEMP:
A BIT VECTOR OF 16 BITS WHERE
THE READ PROM DATA IS STORED

4
15235 :
1
:

GOOD BLOCK.

WRITING ALL ONES INTO THE

2. DELAY
FOR 2 MS

19 .

TST 30

TEST THE MEMORY ARRAY MODULES
REFRESH TIMING AND CONTROL LOG:C

}‘

TOPS-20 Blis 1
v

AND ACCESSED FROM.

local
TST_PAT,
%
44

ERR”CNT.
ERR"FLG:

'TEST PATTERN

iERROR COUNT
IERROR FLAG

4S5 g&sus:

3 echm“= ZERO;
%9

7
7251

TST"PAT = ONES:

MDY = .TST PAT;
MLD2 = .TST PAT:
MLE2 = .TST PAT:

'ILOAD DATA DIAG REGS WITH TST PAT

MACRO M1113 22-DEC-80 12:16 PAGE g‘}

CZMLABO ML-11 LOGIC TES T
MISCELLANEOUS CODING SE CTION
b
o

000, %

d D o

82&:e o

R
R B e

) md )
D d D e
) d cd e o

!WRITE BLOCK WITH TST PAT

CLR_MBUS

0;
DM_
DATxfen
W

9 0% 000000 % %

Co 00 00 00 009090900090 909090909 %000% 00% 0% %0009 900900000 %

end;

TOPS-20 Bliss-16 v2(212)
PA:
<NEALE
4&.BL1.2 (80)

ISET UP A DATA DIAG MODE XFZRR
iDO A WRITE FUNCTION

incr ng_cm from 0 to 127 do

009090000000 %

d D e
D e e
d D D e
d D D D D e
b ) D ) D ) D D ) D d D e

ER ();

DAT_DM_XF
= write;
§ MLCST1

MLCS1 = read;

DELAY (TWO_TH_US);

'SET UP A DATA DIAG MODE XFERR
!DO A READ FUNCTION
IDELAY FOR 2 MS

imrwmeOtofl?do

!READ THE BLOCK
!GET THE PROM DATA
!CLOCK DATA WORD INTO DIAG REG
'READ THE DIAG REG

— cd e

SEQ 0332

:26:31
S -Dec-1
%-1% 83:51:32

H, T

incr NIB_PTR from 0 to 9 do
begin

!LOOK AT 10 NIBBLES

it .PD_TEMP [.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG);

77
78
79
7280
1

!FIND GOOD NIBBLES AND COMPARE THEM

if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1;

!INCREMENT ERROR COUNT IF ERR_FL6 IS SET

7284
7285
if .ERR_CNT gtr 20
then

(80, ASYNC, DUMPER) ;

!ALLOW 20 NIBBLES TO FAIL
!ERROR IF GTR 20

PRINTB (Fiv_FMT, WRD_22, PHR_4, WRD_12, FNC_16, WRD_48);

DODU (.ML_LON);

DOCLN;

ENDTST;

MACRO M1113 22-DEC-80 12:16 PAGE §46

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

15308
15305

004167 130324

1531¢

153
153
153
153

}
15 $ 5.
153
15315
153
15321

$7T30:
137410

18:

137372

]
137510
137464
40306

300061 137272

.;I-'

000001

15308

000002

48:

:3:
15325

126220

15330

} 331

58:

tit‘t

000020

:}»

000177

1533,

1533%

1
15343
} 4

]
s

137254

137160

126110
000002

15354 054(

13735

15355

1
1

6$:

-($P) ,~(SP)

#40 n.igewo
R3
.n.&w

%{as
MOV

g.a.n
#<1,Ré

ncv&v

:gi.n.nes

g.nz

: «,$STMP2

2(sP)

; SSTMP

ROV
CLR

RG,SML . REG+1
RG.aML.
RG.aML
PC .DAT.DM.XFER

LSOLY.R

: ERR.CNT
: *, TST.PAT

: TST.PAT,*
: TST.PAT.#
: TST.PAT.#
:

F oo it
:

; *,$8TMP

DEC

gsc

a}g

: SSTMP2

?g‘csa

:;o.n.nssflzo

':mo -

g.nn

: WRD.CNT,*

BISB

#40,aML.REG+40

BNE

: SSTMPI

BIC

RR3

JSR
MOV
g

%Mrim.mn
@ML .REG
03720’“ R2

:
:
: o, SSTMP2

"
8s:

angx
CLR

gou.as
2(SP)

: *,$8TMPY
; SSTMP

; SSTMP2

98:

108:

TRAP

BISB
MOV
BIC
8I(B

R1,$SAVES

mou
e
140174

}
153
15345
15350
153

} &5

137352

MOV
MOV
MOV
JSR

{:.f

JSR

DEC
BNE

R3
5%

?fn

BISB

#20.aML.REG+120

DEC

1370342. 118:

MoV

128

MOV
BEQ

1372

nekeg

.REG+230,PD . TEMP

M R2
15§

: SSTMPY

: WRD.CNT

: o« $STMP2

MACRO M1113 22-DEC-80 12:16 PAGE ;6;
MOV
BEQ
CLR
DEC
BNE

%sou.ns
S
2(sP)
1

135052 15$
135

MOV
MOV

@ML.REG+170.D1.TEMP
n.nesoggg.os.rem

168:

MOV
ASR

000002

138:

137222

13504

Nty

hHhTNy

v AN MR

R R

148:

1
1

mv
BIC

000001

MOV
CLR

126764

JSR

053010

ADD
TST

000006
141744
178:

BS:

BE
MOV
MOV
MOV
ADD
JSR
ADD
W
BNE

N
vy

BLE
198:

1L
BHIS
JMP
(W

o
WORD
TRAP

8070;3
101

@TM .REG+160,E2. TEMP

JWORD
.WORD

MOV
MOV

:26:31

09:21:22

TOPS

PA:
<

; *,$8TWP1
sSTMP
: $STMP1
; $STMP2

; NIB.PTR
; NIB.PTR,»

#PD.TEMP,R3

R3-(3)

nh% (SP)

: NIB.PTR,*

”,-(SP§
-($P)

rcbu.ssrz

70.sp

1
R2,~(SP)
RG.=(SP)
#6.-(SP)
SP. (SP)
;g.rsr.ms.mo
SP
(sh).n
188

R
33:11

Ty
o
R1,M77

000177
177324
000024

ADD

177770

000011

&E‘C

ASR
ASR

013120

-1980

11$

4
?8:
g

120

ASYNC
DUMPER

MRD . 48,-(SP)
#FNC.16.-(SP)

; NIB.PTR,*
; TST.PAT,»

; ERR.FLG,*
; ERR.FLG,*

: ERR.CNT
: NIB.PTR
: NIB.PTR,*
s WRD.CNT,~

: ERR.CNT,»

¢S
8§

d
D D d D o

126042

D d D e
) D D D
D D D e
d D e
D e
D
D
)e
d D
) D D ) D D d e e
d D e

ss—o«-mo

sMLG

) D
) D ) D D d
D b
—

SEQ 0334

3§

RISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

SCELLANEOUS CODI

‘fl

CM ML-11 LOGI

CTION

MACRO M1113 22-DEC-80 12:16 PAGE 54;

sMLG

1
197
197

%
S

-Dec=-1980 09:

MOV
MOV
MOV

MOV

MARD. 2
1 . (SP)
R4, ~ SP
MRD.22,- SP

NFIV.FM
f (SP)

T i

000016

ADD

n6,SP

RTS

7295

208:

e
(WP

: Routine Size:

(SPJ+,(SP)+
184 word

: Maximum stack depth per invocation:

PA: <

14"
ni.uuRO

054

SP,

TRAP
MOV

152

054346

55'00:-19” 09:

06416
3
137246

004767
104466

177214

000207

130::
18:

JSR
T
ROR
BLO
RTS

! <BLF/PAGE>

15 words

PC.$730
66
RO
1$
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:

18
1

SEQ 0335

0 words

—_———

CM ML-11 LOGIC TEST
b d D 8 D

§§§§é§§§§§§§§§§§§§§§§§§§§£§§§§§§§§§a‘°§§§§§§§

MISCELLANEOUS CODING SECTION

1es

TST 31

i TEST NAME:

ADDRESS COUNTER TEST

]

TEST Elimfl
LITY OF THE ADDRESS

CESSFULLY COUNT

}(7,

COUNTER

A
A
A
A
T A A
A

10
}1

FROM BLOCK ZERO THROUGH THE
DEVICES LAST BLOCK BY:

A AR A

A oRALEBLI.B1- (8)

i TEST DESCRIPTION:

[]

A A

TR TR TR A

! TEST NUMBER:

|
:

}g :

1. WRITING THE LAST BLOCK WITH ONES PATTERN.

STARTING AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK UP TO THE

LAST BLOCK ADRS MINUS ONE.

READ THE LAST BLOCK FOR ONES AND ERROR IF ZEROES.

%t’» ;

3. gan&m AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK THROUGH THE LAST

732§ :

READ THE LAST BLOCK FOR ZEROES AND ERROR IF STILL ONES.

g xm.xcg 1&;15-

7 :

& snvecroa OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM.

local
DODU_FLG,

A A A A A

A T A A

SEQ 0336

$5Dec-1980 00:21i30

A DA
PRTR
TR 1)

D e o
D d) o
)e
D
) D D ) =D nd D ) ed =D d D e
D D md ) D e
D

ERR_FLG.

BG_PAT;

IDROP UNIT FLAG

iERROR FLG

'swms SECTOR NUMBER

IBACKGROUND PATTERN

as‘s

5518

A A I AR A AA

515

= .BG PAT:
DAT DM = ORE:

ISET DATA DIAG MODE

MLCST

iDO A WRITE FUNCTION

511

510

86_PAT = ONES;

A I A A A

A A I

D e e
) ad D D) e
D e
d ol o
)e

5517

— e

MACRO M1113 22-DEC-80 12:16 PAGE &6;

mD1 = .BG _PAT;

lus = .BG_PAT;

MLE2

wT"au_xrek 0;

= write;

incr mgCNT from 0 to 127 do

DECAY (ONE us);
DAT_CLK = ONE;

'BACKGROUND PAT OF ONES

iLOAD DATA DIAGS WITH BG PAT
iSET UP A LAST BLOCK XFERR

IWRITE THE LAST BLOCK WITH THE BG PATTERN

MACRO M1113 22-DEC-80 12:16 PAGE 258

5556
5557

NINIIEEEESREREEY

5558 ;
5

b cd D d D cd o e

5561

fiimk 0;

MLCS

‘SET DATA DIAG MODE
ISET UP A LAST BLOCK XFERR
iDO A READ FUNCTION

incr WD_CNT from
0 to 127 do

!READ THE LAST BLOCK FOR BG PATTERN

uS)
DELAY (ONE

g’%-m
DAT_CLK
=
ONE:

TOPS-20
6 v2(212)
8 liss~
PA: OEN.E
4.8L1.2 (81)

end;

DELAY cocusi

§R
d§
Y] [«XV P 5
VRONOWN

D d b e
D e o
D D cd b d D ) ) =D d D e

D e

SS
SS
5554
5555

SEQ 0337

B3 Dec-1980 09:31:22

SR SELELEES8 SRS ERNRTRENNS

H, T

VAWVI

D D D ) D ) ) D D e

d cd e

) D D ) e

d D D e

D B D b

ANV ANIANNAMAVWVAVBRIWAWN

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

incr NIB_PTR from 0 to 9 do
begin

!GET PROM DATA
ICLOCK OUT THE DATA WORD
!READ THE DATA WORD

!LOOK AT 10 NIBBLES

if .PD_TEMP [.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .BG_PAT, ERR_FLG);
!FIND GCUD NIBBLES AND COMPARE THEM
if .ERR_FLG IS_SET
then

!SEE IF ERROR WAS FOUND

!ERROR IF FLG IS SET
baor (81, INTER, ouvea
PRINTB (THR_FMT,
WRD 13, FNC_22);
PRINTB (TWO_FMT. FNC-13 WRB_56);
EXIT_TST;

end;”

end;

end;
END_CNT
= LST BLK - 1;
MLDY = ZEROES;

MLD2

MLE2

= ZEROES:

!END AT LAST BLOCK -1
!LOAD DATA DIAG REG WITH COMP BG PAT

= ZEROES:

incr W{CE from 0 to 1 do

!REPEAT LOOP TWICE

g‘?r_ax,xréa 0;

MLCST = write;

!SET DATA DIAG MODE
1SET UP A FIRST BLOCK XFERR
!DO A WRITE FUNCTION

incr BLK_CNT from 0 to .END_CNT do

!CLOCK THE ADDRESS COUNTER UP TO END_CNT

incr AD!{!S-CNT from 0 to 127 do
n

DAT_CLK = ONE:

CZMABO ML-11 LOGIC TEST

CODING SECTION

}

;403

;
;
;uo

1 gg :
4
:
13584 :
}E :

1‘5

MACRO M1113 22-DEC-80 12:16 PAGE 351

;2}1

15590 :

761%

12509 :
15591 :

SEQ 0338

741

s:g::q

:26:31

-183 2:51:32

CLR_MBUS;

DATTMDM = ONE;:
LAS
xrelt 0:
MLCS
DELAY (ONEu&)

incrbz’cm from 0 to 127 do

PD TEMP = ,MLPD;

7615

ISET DATA DIAG MODE
iSET UP A LAST BLOCK XFERR

iDO A READ FUNCTION

'READ THE LAST BLOCK FOR BG PATTERN

'GET THE PROM DATA

DAT_CLK = ONE:

DELAY (ONE us$

iCLOCK OUT DATA WORD

;2}

RD_LNG_WRD?

'READ DATA WORD

15594 :

7418

incr NIB_PTR from 0 to 9 do

ILOOK AT 10 NIBBLES

1%?2 :

;221

15601 :

7625

:
15604 :
15605 :
15609 :

7427

15608 :
15609 :
15610 ;
15611 ;
1561§ 3
15613
:

15607 :

7431

74
74
74
7435
74
7

15616 :
15617 :
15618 ;

7440
7441
744

128? 3
1
4

7444
7645

35&53
13658 ¢

;2‘53 ENDTST .

}gg ;
12% 3

15614 :
15615 :

15619 :
1% 3

;219

begin

it .PD_TEMP [.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .8G_PAT, ERR_FLG);

;l.‘zzi

'FIND GOOD NIBBLES AND COMPARE THEM

if .ERR_FLG IS_SET

7426

then

7644

7“9

ISEE IF ERROR WAS FOUND

in
'ERROR IF FLG IS SET
E
(82, ASYNC. DUMPER);
PRINTB (THR_FMT, ‘WRD_S0, WRD_51, WRD_10);
DODU_FLG = ONE;

76
7
74

7438
7439

v2(212)

end;

}gggg :

};;95 -

TOPS=20 BL{

PA: OCALE
2.&12 (81)

end;”

end;
end;
END CNT = .END CNT + 1;

BG_PAT = not .BG_PAT;
end;

INOW END AT THE LAST BLOCK

iCOMPLIMENT THE BG PATTERN AND REPEAT

ENDSUB;

u ooouFLG IS_SET
m

'DROP THIS UNIT IF DODU_FLG IS_SET

(.ll. _LUN);

S—

MACRO M1113 22-DEC-80 12:16 PAGE gd

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

}

:H.

~Dec-1980 09:24:31
Ss-occ-wao
09:51 :22

sMLG

]
1

1363

)54

}

054372

15643

D543

054408

034368 J6or06

1564
05441
1
05442¢
15&9 )54k 0k
15647 05443C

1275

$T31:

000010
136612

18:

JSR

si8

R1,$SAVES

#0,sp

;

%33

#40 "‘i?““’o

BISB

RS,aML.REG+40

TRAP

BIC
BICB

136574

15648 03643k

136704

1
05445
15652
054456
q
05446
122?. 0544
7¢
15655 0
‘% '{
.
1
05450
156;3 05450
15659 054506
15660 05451
15661 05451

?oomo 136616
msg
000061 136464
000001
g:
H
125412
000006

48:
58:

;;7%6
RS
LML REG+40

CLR
MOV

2($p)
#~1,R1

: DODU.FLG
: *,BG.PAT

BISB
JSR
MOV
CLR
MOV
BEQ
MOV
BEQ
CLR
DEC
BNE

#10,aML.REG+120
PC,LAST.BLK.XFER
f.aML.REG
#1.R3
6‘
gsou.m
s
6(SP)
R4
48

:
:
:
* WRD.CNT
: *, $8TMP2
; * $STMP1

MOV

}% 05451

&e‘c

R1,8ML.REGH170

000020 136544 6$:

BISB

#20,aML.REG+120

155229 ;
[
.

000177

g&
BISB

n7r
#40,aML.REG+40

1?&

BIC

’

15672

15665 (

15673

i
¢

15674 05457¢

13678 034ort
13677 0346
1

054622

15581) 05464
15681
05463C
1

'’

136446

B3¢

16131

000006

MOV

136430

BICB

BISB

136476

000001 1

INC

BIS8

JSR

7s:
8s:

.‘;;.%7

9s:

15685

054640

108:

ROV
Be@

BEQ

SSTMP1

SSTMP2

* WRD.CNT

: WRD.CNT,

ni%as

#7.aML.REG+
RS.aML.REG+é

#10,aM .REG+120

LAST.BLK.XFER

108

v, $3THP2

CLR
DEC

6(SP)
R4

: SSTMP
: SSTMPY

DEC

: SSTMP2

CLR

BNE

T
PA:

: BG.PAT,*

15664 04
1

SEQ 0339

WD.CNT

734
73%
73%
734

-=RoS’n.o.flo”vcfi'o=a‘c.uRRRESEWP
ThPrsvyeSA0AoeNARGoNNoAI0RogAgATR0YNAoR'SI0@0A0ST0H@RR=0l0Roifl0fRzi0aEC00e0000AANT£'0l0R0wR0s1R0808R0oeePeoRE=RR0ZoReeSRoEefOOeeeO
15741

.m+?28 25 .. TEMP

.R&

(SP)

@ @ oo

MACRO M1113 22-DEC-80 12:16 PAGE SS}

S E

Tmmf‘eyiTmTnmL”s&emwye&AL1TNRSO,‘zs sSRLL=E“aR,LTY2I"IeqT2-RF "< .
eE < ke < .@£ = &

A
IOw00
S
R
S
:l.(::{{:{{ttti e AWD00WM N
CZMLABO ML-11 LOGIC
1 TEST
1 SCELLANEOUS CODI NG SECTION
1

S5Dec-1980 09:31:22

TST LNG.WRD

PA:

.:eeg:wo.m . TEMP

TEMP

MACRO M1113 22-DEC-80 12:16 PAGE gS‘

sfl

MISCE

TES‘Y: -

15743

;LG

} %

}

:: NIB.PTR,*
NIB.PTR

INC

[

134416

MOV

LST.BLK, (SP)

: *,END.CNT

13614

CLR
CLR
%33

@ML.REG+160
RS
#40 "'52““"

3}%
JSR
R.v

31‘6'3"(%120
PC,FIRST .BLK.XFER
si.n.aee

]
1

136162
12163

15761
1%
}

}sm
¥
}mss;%
15577%

15776

000020 136014 5‘1’3:

}ss;;;!

000177

]}

¥
i

228:
135710

l% 135672

}2
157739

7 135774

10 136042
000061 135710

1
155;35
1
1579%

Ok
CLR

% 136012 198:

g}- é:nn

124536
000006

CLR

BISB

-J

—

2%$:

258:"

228

#20,aML.REG+120

mmen
:

738

:
: TWICE
:

;

8k
g

: ADRS.CNT

SM ADRS:
. CNT o

BLK. CNT

;

7398,

g(g"(sm

* BLK.CNT,END.CNT

%‘a;a

BIC

#460 nizsmo

7403

BISB

Ré4.aML.REG+6

o
7

23s:

71'?%6
Ré
n.n.fiee«g

: 3.%.-

gl;
BI(B

71 135606
1

BIC
BIC8

o REGH70
aML .REG+

PA:

: SP,»

3;2'

000177

ig
$30.s
.1'3 1

}

188:; g;
'x"u'z

000011

TRAP
oo

}

09:24:31

55-0«:-19” 83:5?:22
MOV

] 29
13768

-Dec-1980

}

SEQ 0341

57%6
Ré
.a.fiemg

n0.a.Aeei0

MoV

fiigmim'

BEQ

268

MoV
MOV
BEQ
CLR
DEC

DEC
BR

$DLY.R%
(SP)
R4

%ss

a3t
gs

: o« S8TMP2
; *,88TMP1
: SSTMP
: SSTMPY

SSTMP?

7&#

25m“.vwl.\.«AqRr«wm«mL~aw-8£8E.3LY
A3 24R85%
348:

3.3 2

8 82 £ 2

e3&&&S8-gE3s .wm§&s8&o3s9c2yee8v.a$e3a8z8 y82zlm2amSom&um<a2nu2n&u+n,m§

1Lm11‘-T11'111.''1T.o1.T1o'1‘R11,.o11DL11.'"R1e'un1y‘T11‘1e11-11N10— 11111
MACRO M1113 22-DEC-80 12:16 PAGE 551
1

H, B

Q 0342

33 Dec-1980 09:21:22

611
741
741
741

76418
7621

7425

7428

7429

76430
7427
76418,

CZMLABO ML-11 LOGIC TE T
MISCELLANEOUS CODING
CTION

MACRO M1113

D
d D ) D d o
—d D D b d d d D e

000011

135650

) D D
D D e

002010

D d

004767
104466
N

JMP
I, )
BNE
MOV
ADD

#10,5P

BGT
JMP
TRAP
ROR
BHIS

000001

37%:

TRAP
TRAP

RTS

176414

T31::
1$:

PC.$T31

ROR
BLO

RO
1%

TRAP

RTS

7en

76437

7438
7391

7439

DODU.FLG,
*

7297
18 words

7448

; Routine Size:
6 words
; Maximum stack depth per invocation:

Tha

JSR

T0PS

PA:
<

NIB.PTR,
*

51
&4

; Routine Size:
376 words
; Maximum stack depth per invocation:

) D D b

35s:

3
R

nz?
2
(SP)
R
RS
RS M
35¢
19s
67
RO
368
1s
g(sm N
78
ML.LUN,RO

177272

-1980

000001

,;(

) D ) D

SEQ 0343

55 De -1980 33
BLE
INC
4, ]
BLE
INC
coM
INC

000177

176456
000002

d b cd b e

EN
PAGE 356

H, O

+44

—

22-DEC-80 12:16

0 words

ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
CZMLABO

MACRO M1113 22-DEC-80 12:16 PAGE is;

1 91? :
1

H, T

15913

;

SEQ 0344

S5Dec-1980 09:51:25
76451

! <BLF/PAGE>

TOPS-20 Bliss=16 v2(212)
‘.ul. 2 (81)

PA: <NEALE

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 35;

n
9000000000000t

b e
w1

BGNTST;
; TEST NUMBER:

TST 32

i TEST NAME:

ARRAY MODULE SELECTION TEST

i TEST DESCRIPTION:
90090%00000%

(Y,]

%0 0090 %0 00009090 %0 9090 9090909090900
o %0 00 00 000

$EERERERTETISS SRARIEEE EEEREREE

00090%: 9% 90%

D b

%9000

—5

d b

£33333

D =D b
b e

VWY

T0PS-20 BLiss-16 V2(212)

PA: <NEALE>BL

]

8833

d D e
b e
d
D D e
b
d b
d e
d
b e
d
D d e
d e
e
d e
b e
b

1:22

144

D d e e

b e

;

SEQ 0345

33-Dec-1980 09:2¢:31

38%%

S ilk

TEST FOR UNIQUE ARRAY MODULE
SELECTION BY:

!
|

i
i
i
i
:

WRITING THE RESPECTIVE ARRAY
MODULE POSITION NUMBER INTO
THE_FIRST GOOD NIBBLE FOUND
IN THE ARRAY.
DO FOR ALL
PRESENT ARRAYS.

i
:

READ THE ARRAYS FOR THEIR
RESPECTIVE POSTION NUMBERS.

| IMPLICIT INPUTS:
:
PD_TEMP:

A BIT VECTOR OF 16 BITS WHERE

;

THE READ PROM DATA IS STORED
AND ACCESSED FROM.

10 BUF :

i
i

A VECTOR OF 256 WORDS WHERE

]

DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

i
i
i

ocal

WRDS_TSTED,

%‘olr’ua

ARR_SEL = ZEROES;

!WORDS TESTED
!ARRAY SELECT
{FOUND GOOD NIBBLE
!ARRAY NUMBER

ARR_SEL = .ARR_SEL - .ARR_INC;

!START ARR_SEL BACK ONE ARRAY

incr MI{LCNT from 0 to .OP_NUM_ARR do

'TEST ALL PRESENT ARRAYS

FND-GD_NIB = ZERO;

U!DSMTSTED = ZERO;
DAT
= ONE

MW = not 255;

!SET DATA DIAG MODE
!LOAD WORD COUNT

4.BLI.2 (82)

Sfl

MISCELLANEOUS C

CZMLABO ML-11 L

TION

MACRO M1113 22-DEC-80 12:16 PAGE 55;

-Dec-1

} 9;5 :
15974 :;

15975 :
1

% 3

}59

|
SEQ 0346 |
:26:31

55%488 83351:32
7

MLBA = |0

ARR_SEL

'Loox NEXT ARRAY

MLDX = .Am
SEC;

'LOAD DSA WITH SELECTED ARRAY AT BLOCK ZERO

MLCST1 = write;

}5 )3
} sfim :

;SS}’
;gé

L (OE R
mbs
TSTED = \Jtos TSTED + 1;

'GET THE PROM DATA
iCOUNT WORDS TESTED

}mm :

g}g

incr CNT from 0 to 8 do

'LOOK AT 9 NIBBLES

15987 :
15988
15989 :

7517
7518
7519

15990 ;
15991 ;

15993 3

7520
75%1

75 g

15993 :
1599 :
15995 ;
15996 :
15997 :
15998 ;
15999
16000 ;
}6&1 s

752
7524
7525
7526
7527
7528
75;3
75
;231

16004 ;

7534

‘l% 3

16005 ;
16006 ;
16007 ;
16008

16024 :
1
3

€1l :

(MLD1)<4, 4> = _ARR_CNT;

INIBBLE 1

2l :

(MLD1)<8, 4> = .ARR_(CNT;

INIBBLE 2

INIBBLE 4

Cs] :
(MLD2)<4, 4> = .ARR_CNT;

INIBBLE S

7“754;
754

'NIBBLE 0

4] :
(MLD2)<0, 4> = .ARR_CNT;

}%‘1!5 ¢
16019 3
3

ol :
(MLD1)<0, 4> = .ARR_CNT;

'NIBBLE 3

754

ISELECT AND LOAD GOOD NIBBLE WITH ARRAY CNT

set

(MLD1)<12, 4> = .ARR_CNT;

;

case .CNT from 0 to 8 of

'FIND A GOOD NIBBLE

7535
75%9
75
7538

16013

16018 ;
16019 ;
}%? 3

if .PD_TEMP [.CNT] IS_NOT_SET
then
begin

3] :

7539
7540

16014 ;

'THIS LOOP WRITES ARRAY NUMBERS TO THE ARRAYS

bo&

755

16009 ;
16010 ;

16011 ;
1601; 3

'DO A WRITE FUNCTION

7510

7541
754§

6] :

(MLD2)<8, 4> = .ARR_CNT;

7544

e ;&02)02 &>

7548
7549
;???

ARR_CNT
X

8] :
(MLE2)<8, 4> = .ARR_(CNT;
tes;

755§

FND_GD_NIB
= ONE;

7554
7555

end;

755

4.BL1.2 (82)

'LOAD l

=.mhseu LARR_INC;

1;3% 2

1?? 3

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

exitloop;

INIBBLE 6

'NIBBLE 7
!NIBBLE 8
ISET FOUND GOOD NIBBLE FLG

iEXIT THE LOOP

—

CZMABO ML-11 LWIC TEST

ISR

AT AT A
T AR

until (.FND_GD_NIB IS_SET ) or (.WRDS_TSTED

eql 14);

if .WRDS_TSTED eql 14
then

'IF 14 WORDS TSTED

m (111, INTER, DUMPER);
PRINTB (SEV FMT, W 14, Plfl 10,

T
A

10PS-20 Bliss-16
V2(212)

%7 TST;

!DO UNTIL FOUND GOOD NISSLE OR 14 WRDS TSTED

!THEN ERROR AND EXIT TESTED

*NC_15, WRD_12, FNC_17, WRD_37, WRD_56);

!START ARR SEL BACK ONE AGAIN
!TEST ALL PRESENT ARRAYS

CLR_MBUS;

rm,eoniaszsno
=
DM

llllcnot 55
MLBA
= IO
ARR_SEL =Anksa.+ .ARR_INC;
MLDX = .ARR SEC;
MLCS1 = read;

!SET DATA DIAG MODE
!LOAD WORD COUNT
!LOAD UBUS ADDRESS

ILOOK AT NEXT ARRAY
!LOAD DSA WITH ARRAY SELECT
!DO A READ FUNCTION
!THIS LOOP READS ARRAYS FOR ARRAY NUMBERS

b‘EAY (OEUS)

!GET THE PROM DATA

A
T
T TR
PR R
PR
AT A TR
TR
AR

222 S

PacemE

!CLOCK GOOD NIBBLE INTO MEMORY & GET NXT PROM WRD

mcu = ONE;

incr CNT from O to 8 do

b =

16074

SEQ 0347 I

SDec-1980 09:51i2k

PR TR TR

T A T

PR T

P T

TR R

) D
D
b D d D

MACRO M1113 22-DEC-80 12:16 PAGE u

.H.‘

SERReRER 558I
B Ga g AR AN

D d d D

. MISCELLANEOUSCODING SECTION

if .PD TEMP [.CNT] IS_NOT_SET

!LOOK AT 9 NIBBLES
!FIND THE GOOD NIBBLES WHERE ARR NUM IS STORED

b.?i(.'LK ONE;

!CLOCK ARRAY WORD OUT

case .CNT from 0 to 8 of

!SELECT AND READ GOOD NIBBLE

set

[oJ :

ARR_NUM = . (MLD1)<0, &>;

1] :

ARR_NUM = ,(MLD1)<4, &>;

2] :

ARR_NUM = ,(MLD1)<8, &>;

!NIBBLE 0
!NIBBLE 1

!NIBBLE 2

ML-11 LOGIC TEST

FAN /8

MISCELLANEOUS CODING SECTION

SEQ 0348 |

~Dec~1

}% :

:26:31

s -Doc-1ggg 83:51:32

1
:
16039
:
1% :

7
77610

16091 :
]
:

761
761%

1
:
16090 ;

7611
761

16093 :

h
AR

MACRO M1113 22-DEC-80 12:16 PAGE §61

7615

£33 ARR_NUM
:
= . (MLD1)<12, 4>;

INIBBLE 3

4] :
ARR_NUM = . (MLD2)<0, 4>;

INIBBLE &

ARR_NUM = . (MLD2) %, 4>;

INIBBLE §

€S :

1609%
16095
1% :
1
:
16098
16099 ;
}g}oo .

761
761
761
761
7
7621
7

6 :
ARR_NUM = . (MLD2)<8, 4>;

INIBBLE 6

€73 :
ARR_NUM = . (MLD2)<12, 4>;

INIBBLE 7

16103
:
16104 ;

7625
7

tes.

ARR_NUM = . (MLE2)<8, &>;

'NIBBLE 8

16109 :

7628

FND_GD_NIB = ONE;

16108 ;
16109 :

7
7631

end;

16105 ;

16107

762

;

exitloop;

PA : <NEALE

;2334

until .FND_GD_NIB IS_SET;

'REPEAT UNTIL FOUND THE GOOD NIBBLE

112“3 :

;

:'fmm_cm neq .ARR_NUM

ISEE IF ARRAY CONTAINS IT'S ARR NUM

16116

7638

16118 :
16119 :
16120

7640
7641
764

764
7

‘n

end;

}2}

7647

ENDTST;

16133

055756 0046167

osgooe

5762 1

16135
s;%
16136
055

166705

'ERROR IF NOT THERE

ENDSUB;

7645

161

|
|

PRINTB (FOR_FMT, WRD_39, FNC_17, WRD_37, WRD_10);
PRINTB (FMT_14, .ARRZCNT, .ARR_NUM);
end;

;

;
|

1CLOCK OUT NEXT PROM LOCATION

E%c (83, ASYNC. DUMPER);

16123

1612%

}

;

}g“g :

16121
16122

4.8L1.2 (82)

'EXIT LOOP

;

7639

ISET FND GD NIB FLG

112“2 :

16119 :

DA."L.CLK = ONE;

TOPS=20 Bliss=16 V2(212)

126134

133566

$T32:

JSR

SuB

CLR
suB

R1,$SAVES

7450|

RS
ARR. INC RS

: ARR.SEL
: *=,ARR.SEL

749
7495

#6.SP

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 56}

}g}«

161

133560 000002
S

135176

11 :
16143 03

!
135160
i

}2}

999

}2}
161

16155
}g}

056(

161

16164
16165

18:

RS, @M. .REG+30
:?‘l hl'l..REG

* ARR.SEL,*
pap—

MOV

ksou.nz

: =, $STMP1

2% 2&"?‘&'@'} S

000004

BEQ

%Eg

134756

68:
:

161
161

o—
124734

}2}
16191 056
16192

056224

8s:

: SSTMP

§; SSTMP2
o

Ra‘l.nesozso.po.rem

B
R1

?&v

ASR
ASR
ASR
ADD

R1
R1
#PD
. TEMP R1

:5-%;
o

BIC

#%7770, (SP)

?gg

n0.sp

BNE

dsm

R1
3s

v
JSR

053010

£3 [

i« ARR.SEL

DEC
BR

gvv

161

16185
161

FND. GD.NIB

MOV
g

177770

}2}

’

135106
ooooa} 135050

?gi% P

21‘0

;: WRDS. TSTED

013120

%2%;3
161

nigewo

B1cs ?1 o REG+40
BE S Rone
g'iga

161?

2%8

REG+1

S
161

}2};5‘

%33

F onat

Hbs.a'l.assflo

135244

16171
1613
161

JWP

OP.NUM.ARR, 2(SP)

MOV

58:

mg’

-1980

11§s15253

124000

}2}2?

161
161

SEQ

JMLG

}2} 2

1‘2%‘

B~
PC,BLSGT2

MOV
ASL

R2.R1
R1

WORD
JWORD

1
1

ADD
.WORD

(R1) .PC

'm‘ }
:
.mm }

e
o

CNT

: CNT,*

09:24:31

SS-o.c"-:m 8351' :32

Boms b

CZMABO ML-11 LOG
MISCELLANEOUS coo

MACRO M1113 22-DEC-80 12:16 PAGE 961

SEQ 0350

$3fecc1%90 g3:2¢:3)

sMLG

135010

b D ) D e

118:

D D e

138:

) ) D e

134760

148:

158:
134746

) D

'.«EA..Q’.Q’..’.".‘

R3,R

M
77760,R1
#17.aML_REG+170

118
R
R1
R1
R1

BIC
BICB

:}3&17.&1
#360,aM
.REG+170

MOV
o
SWAB

R1
B
Rl

BISB

#170377.R1
#7600,
aM_ .REG+170

MOV
SWAB

R3.R1
Rl

B8R

14$

ASL
ASL
ASL

R1
R1
R1

BIC
gs

#170000 a.nscmo
51 aML.RE

BIE

> m.CMo.

7525

; ARR.CNT,*

7528

R1,aML.REG+170

BIC
BIC

: ARR.CNT,»

; ARR.CNT
,*

M 77760.R1

n?R1

BR
MOV
ASL
ASL

17
R
R1

: ARR.CNT,*
; ARR.CNT,*

#17,aML.REG+200
R3.R1

134720

BIC
BICB

M77617.R1
#360,aM. .REG*

18%:

MoV

Rsfk‘l

* ARR.CNT,*

198:

MOV

; ARR.CNT,*

178:

134674

ax‘sa

BIC
gc

SWAB

ASL
ASL

7534

W77r.A1

MOV
BIC

BICB

168:

333~

) el D md oD oD o ed D) ) D
D b
b o o e
—

B8R
ASL
ASL
ASL
ASL

128:

D D ) e o

135034

BIC
BICB

ad ed =D D =D =D P D

D e

135062

MOV

1
21

p D

JMORD
JWORD

Jors

51 ML .REG+

2}
R1
mg.a&.nwzoo
Rl

R1
R1

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

1625C
006301

57y
?22%
134644 208:
DS0177
1

16233

10X

500411

042701

} 8¢

ig7é 000001

228:

00520¢
020227

238:

16266
} :

377
4377
&&90
134600
3507
574

218:

.‘«,-E
1626
1€ :r.';

00 !‘

} 4‘;

fig

16270
-“

}:
1627

% 83

1628;
1628
16284
16288
1629C
16291
1629¢

16085

|5¢

000010
1

% 134506 248:
1

.' 000016

,' 87

177274

Jo0kg? 000016

16278

1‘

OC. 7
16296
. "

D240
D
‘
;

'
.
.
01060C
0641

81¢
BIS

B8R

MOV

BIc

0170068181%60200
R1,aM.REGH
2

INC
g

5
#no

: CNT
: CNT,»

751

BISB

#20 a;i.aesnzo

Rene

; WRDS.TSTED,*

g‘r

%?ms

JWP

JMP

gi.

0 61

MoV

MOV
MOV
MOV
TRAP

-,:{

016766 1

02003

00167 000516

000002

; WRDS.TSTED,*

:::j

MARD.
14 .~(SP)
#10,-(SP
?.io
A

;

7564

ossv.mf ~(SP)

INC

JWP

: SP,*

: ARR.CNT

JMP

g&y

gz.kn.im.z(sm

JMP

558

7523

: FND.GD.NIB,*

162

177064

7549

: =, FND.GD.NIB

‘Y

7521

: ARR.CNT,#

zwsn

m.g;.-(sm
MARD.37.-(SP)
#FNC.17.-(SP)

;

R
#7400,
Wy
REG#160
R1,@ML .REG+160

‘WRD DUMPER

00520 3

PA: <

BIC
8IS

MOV
MOV
MOV

TOPS

;

157

'o'q"‘
"0

ASL

WORD

71755

019746

l’.’

55-0«-1900 09:21:22

TRAP

000167

1630

258:

DOC

16295

16308

~Dec=1980 09:24:31

':;
1655;
1655

SEQ 0351

‘zi
16254

MACRO M1113 22-DEC-80 12:16 PAGE gu

§ AR SeL
: m C"“
B

”3;

e14)

7573

836016
000020

134116

057166

':1[

':1[‘0;

0:1[0.

134130

3555388885° &

177770
000001

R
»

5 2

—sa

@ML.REG+230,PD.TEMP
R2.R1

FND.GD.NIB

* ,ARR. SEL

ARR. SEL, *
*, $STMP2
*, SSTMP1

; SSTMP

: SSTMP
; $STMP2

; CNT

2 CNT,»

; CNT,»

AN AAAY
AA AR
A
A AR R A A

£58AV

]

013120

—d

m
o

134020

(]

134306

.REG+30

- 838%5%3C3%77 233333838
o

134112

RYuRR Getsi DersLT

OOO\O\C
O
OO
OO
OO
OO

134150

D D D D D D D D D ) d D e

134146

D ad oD D ) D ) d e

13264

b wd b b D e cd ) D e
b b

134220

—d e

e cd cd o

134236

b
b
b comd) e cmd o
) med el e

SEQ 0352

$3Dec-1980 89:31:22

)

MACRO M1113 22-DEC-80 12:16 PAGE 36;2

@ML.REG+170,R3

P CNT,»

7595
7597

: *,ARR.NUM

7601

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE §66

1636

MLG

} .

163
} 834

3
9272]

16
1€
16375
16
16
16

)
057¢
05726¢

1638

} 38
1& e
9
i

573

Y5734

}
|

B8R
g’pvs

498
é .REG+170,R3

: *,ARR.NUM

760;

134106

408:

ES"

.REG+170,R3

: *, ARR.NUM

761

134110

418

MOV

AL.REGe200,R3

: *, ARR.NUM

761

134102

4
4

MOVB
ASR
ASR

@MTM_.REG+200,R3

761(1

498

: *, ARR.NUM
: ARR.NUM
: ARR.NUM
: ARR.NUM
: ARRLNUM

ROV
SWAB

fi‘ REG+160,R3
R3

ASR
ASR

134056

458: MOV @ML .REG+200,R3

; *, ARR.NUM

nzj

134020

“7s:
488:

*, ARR.NUM
: ARR.NUM

7625,

177760

000010

000001

000020

;

1
1661?

1641
16‘1;
1641
1641%
16415
16416

508:
133726

S1$:

BIC

MOV
B8R
INC

#177760.R3
”, (SP)
51$

g&a

‘no

: CNT

: CNT,»

7
7

#20,aML.REG+120

7632|

BNE
P
BEQ
TRAP

R4 R3
g

; ARR.CNT,ARR.NUM

;

7640|

; SP,*
: ARR.NUM,*
* ARR.CNT.*

7641

- WORD

1 173

: *,ARR.NUM

: «.FND.GD.NIB
:

BISB

gghn

-WORD 1523mc

16404

’%

498:

000001

}
1

TOPS
PA:<

388:

1&
1
54
16400 O
]
)57

-Dec=1980 09:24:31
S -Dec-1980
09:%1:22

134122

16379

SEQ 0353

MOV

MNRD.10,~(SP)

#FENC. 7'-53823

MOV
MOV

#F0R.FMF,-(SP)
.~(SP)

716

MOV

gm oosng
746

MOV
TRAP
MOV
MOV
MOV
MoV

: FND.GD.NIB,*

7634

.39:-(SP)

RO
R3, (SP)
Ré.~(SP)
#FAT.
14 ,-(SP)
.~(SPJ
4

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE ge}2

1641
}

]

?01.412

1
1
1

74
4

164
164

}&4

Ss-occ-wao 09:24:31

4
osnri
057476

703 000022
1

528:
538:

000002

558

00020

5.8:
56$:

: SP,»

ADD
TRAP
ROR

I;Z.SP
6
RO

:
:

76
764

UMW

298

R4 ,2(SP)

: ARR.CNT

757#

53¢
.SP

7645

BHIS

INC

BLE
ADD
RTS

; Routine Size:

16441
16445
16449 057500

132::

}2”“3

104466

}

000207

osrsos 006000
057510
103773

548

425 words

18:

JSR

PC,$T32

ROR
BLO

RO
1$

TRAP

RTS

! <BLF /PAGE>

: ARR.CNT,*

18 words

66
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:

057512

FISIINS
v
~N LAV S

16451 057506

1
1
1
1
1

; Maximum stack depth per invocation:

16450 057500 004767 176252

TOPS

PA: 4

SP.RO

TRAP

177264

709 000006

-Dec-1980 09:21:22

164

1
1

SEQ 0354

0 words

CZMABO ML-11 LOGIC

)

166§ 3

76 i

'+¢

| TEST MUMBER:

TST 33

}gz;z :

;255

: TEST NAME:

SEQUENCER EXISTENCE TEST

16478 ;
16479 :

7653
7659

!
|

LOGIC FOR EXISTENCE BY:

1% :

}&8 :

;gg

16488 :

7668

16491 :

7671

1649% :

72676

16497 :

72677

}&n :

16477 :
}““gg :
1

}&g :
}zgg :

}&432 :

16498 :
16499 :
16500 :
16501 :

16504 :

16505 :
16506 :
16507 :
16508 :;
16509 :

16510 :
16511 :
1es1§ :
16513 :
1651% :
16515 :
16519 :

16517

16518 :

16519 ;
16520 ;

)

:264:31

35-0«-19% 83: 1:22
!

—————————————————————

SEQ 0355 !
~Dec=19

7649

16470

———————————

MACRO M1113 22-DEC-80 12:16 PAGE Sbl2

TEST

MISCELLANEOUS CODING SECTION

}

—

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BLIMLG.BLI.2 (83)

765? BGNTST:
;65‘

7439 i TEST DESCRIPTION:
;fi
7

;2673
;g

;g;g
7678
7679
7680
7681

;25

723‘

7685
7&9
7
7
7

7690
7691
769,
769
769%

TEST SEQUENCER TIMING AMD CONTROL

FIRST WRITING THE GOOD BLOCK VIA DAT_DM MODE WITH A BACKGROUND

PATTERN OF ONES.

VIAA

BLOCK.

THEN VIA DAT_DM READ GOOD NIBBLES IN THE GOOD BLOCK AND XOR THEM

AGAINST THE BACKGROUND PATTERN.

RECORD THE NUMBER OF NIBBLES THAT WERE UNCHANGED OR PARTIALLY CHANGED

BY THE MBUS WIRTE.

;

REPORT A FATAL ERROR AND DROP THIS UNIT IF THE NIBBLES TESTED EQUALS
THE COUNT OF UNCHANGED NIBBLES.

REPORT AN INTERMEDIATE DIAGNOSTIC MESSAGE IF AT LEAST SOME NIBBLES

|
WERE CHANGED BY THE MBUS WRITE.
|
i IMPLICIT INPUTS:
|
PD_TEMP:

A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM.

10_BUF:

|
i
i—

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTIONS
ARE FOUND.

local

BG_PAT
SUR_BAD
NIB_TSTED,
Auafn
RESOLT;

7695

7699 CLR

7697

BG_PAT = ONES:

7%99

MLD2
MLE2

7698

WRITE FUNCTION WRITE ONES INTO THE

M.D1 = .BG PAT;

= .BG_PAT;
= .BG_PAT;

IBACK GROUND PATTERN
iSUM NIBBLE ARE BAD
iNIBBLES TESTED
iALL NIBBLES ARE BAD
iRESULTS OF XOR
IBACKGROUND EQL ONES

ILOAD DATA DIAG REG WITH BG PAT

-y
-

88
SG

MACRO M1113 22-DEC-80 12:16 PAGE 36$

SEQ 0356 |

-Dec~1

:26:31

TOPS-20 Bliss~16 V2(212)

PA QEM.E

MLCST = write;

!SET UP_A_DATA DIAG XFERR AT THE GOOD BLOCK
!DO A WRITE FUNCTION

incr WD_CNT from 0 to 127 do

!WRITE BLOCK WITH BG PAT

E@%JP‘&%“
n

end;

=’ ZEROES:
= ONE;

xrtn 0;

!SET UP_SAME DATA DIAG XFERR
!DO A READ FUNCTION

incr WD_CNT from 0 to 112 do

begin
PD_TEMP = llJ’D

!READ 113 LONG WORDS
!GET PROM DATA
!CLOCK OUT THE DATA WORD
!READ THE DATA WORD

incr NIB_PTR from 0 to 8 do

if .PD_TEMP [.NIB_PTR] eql ZERO
then

7735

;;%;

!LOOK AT 9 NIBBLES
!FIND GOOD NIBBLE

:'3TSTED = _NIB_TSTED + 1;

INCREMENT COUNT OF NIBBLES TESTED

7740
7761

if .RESULT<0, 4> eql ZERO
then

!SEE IF ALL BITS IN NIBBLE WERE BAD?

77;2‘

else

0!LNG_WRD
(NIBPTR, BGPAT, RESLlT)

774

;7722
7747
7749

7751
7752

ALL_BAD = .ALL_BAD + 1

!XOR NIBBLE WITH BG PAT

! INCREMENT COUNT IF ALL BAD

if .RESULT<0, 4> neq %0°'17' then SUM_BAD = .SUM_BAD + 1;

7748

7750

4.BL1.2

DAT_DM_KfER Q0

§§§

PRRRRRT

5 'Dflc:"lgg g: 1:22

dd;dddddddddddddddd‘d‘dd
O
ONON

T S

b e

BB e e oo
n
oS 33000

MISCELLANEOUS C

bt i

CZMLABO ML-11 L

end;

end;
ENDSUB;

!SEE IF SOME BITS IN mas WERE BAD
! INCREMENT COUNT IF SOME BAD

MACRO M1113 22-DEC-80 12:16 PAGE 2732

CZMLABO ML-11 LOG

MISCELLANEOUS COD

-Dec=-19

R i

:26:31

5 -o.c-wSS 83:51:32
if .NIB_TSTED eql .ALL_BAD
then

TOPS-20 Bliss=16 V2(212)

PA: <NEALE

é.8L1.2 (83)

IWMERE ALL NIBBLES XFERR'ED ALL BAD?

IERROR IF ALL BAD

,
ERROF
(84
mm (sévFMT. 52 PHR_4, WRD_9, WRD_12, WRD_23, FNC_S, WRD_19);

}

;
0N

else
if .SUM_BAD gtr ZERO
then
in

ISEE IF SEE NIBBLE WERE BAD?

%r (85, INTER, DUMPER);

ISOME BAD IS OK SO GIVE INTERMEDIATE ERROR

PRINTB (SIX_FMT, PHR_4, WRD_9, WRD_12, WRD_23, FNC_S, WRD_19);

133336

D e e
D e
—d

133416

;

7647

m.gsflo

;

769,

: *,BG.PAT

#7.3M
. REG+40
RS . aML . REG+40

o-i 2(SP)

a REG+170
s() , @M .REG+200
SP) (ML .REG+160
PC,DAT. on XFER

:
: BG.PAT,*
: BG.PAT.*
:

lbf REG

ss'

6(SP)
R2
3s

: SSTWP
: SSTMPY

'2‘1

: SSTMP2

#20,aML .REG+120

;

’

: WD.CNT

7
7
7701

4
7707
7704

——————————————————————————

ggggf
133556
133530

R1,$SAVES

n0.sp

133444

£28%

133462

D d D d e

e e

d ) b

) =D

$733:

SEEQ..g
B oam Res 8% gegzgggggan
; b4

b =D

oo AT
éd
3333885888
v s O§OOOOOO
VO NO VS W=D EREE3 28 £3 RES SEIEERARELS

SEQ 0357

OEEERoI-BA)DVWL.OP=OXxR;RcomfpsyBmoNsugcalmeRsdS
11'L11LV111‘[-1'4’1[1T’111Ro11T.‘11ras111o1il1')1r‘1"1”11
%fi@&%&fi%fi%&%&%fi%@
LYETLMTR~LeoatmLaTLt2N3T2t8LN yL 3UB7LIDUST TSIs
118:

12%:

138

148

158

gee $

MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 371

33 Dec-1980 09:51:22

108

T
PA

MACRO M1113 22-DEC-80 12:16 PAGE i?l2

TEST
MISCELLANEOUS CODING SECTION
CZMLABO ML-11 LOGIC

16689

}66%
5

00620

1
wh
1% D60
16 97
060

010146
|
;

sMLG

12233
06 8 u@‘
013120
1665 Q60160
010, o

116
69
16

06k

)60

60226

16708
06
1
16710

16711

1671§

1671
16714
16715

R1,-(SP)

016646

000012

00
01664
042702

136406
12
177760

060616
00100

INC

198

020127

003722
»}{ 27

000006

000010
000160

NOG000

01052¢

1
16
16
16
16
16

'
;
'
'
0127
|

1678
B
1675

01060C

fgrty
04414

%
S

oooto

774

: SUM.BAD

: NIB.PTR

77
774

;_gg

: WD.CNT

7725

BLE
TRAP

1;6
6

;

7750

; NIB.TSTED,ALL.BAD

7754

;

7757,

R3,#160

RS ,Ré

WORD

124

.WORD

; ALL.BAD

INC

[0 3

ROR

D40

: NIB.PTR,*

17§

: RESULT,*

R1,#0

BLE

: RESULT,*

INC

6(SP)

: BG.PAT,+

BAE
TRAP

Ps.xoa.
7;;)
R2

: NIB.TSTED
: NIB.PTR,*

#6,SP

001(
D6k
5S
D0

,=(SP)

n -(sm

ADD

INC

|
z

:
:

BLO

; NIB.PTR,*

193
n“m
1

0361

02050

4(SP)

BNE

062706

um?

JSR
MOV
BIC

188

00366
044

ADD

B8R
(P
BEQ

16
16
j
16

MOV

00040
020227 000017
00140

005203

MOV

00520

000004

INC
MOV

BNE

M ,~(SPS

00520
010146

00520

-(SP)
#177770 . (SP)

70(

DOS

16718

1671

000001

#PD
. TEMP,R2
Re.-(59)
n0,sp
RO

005266

MOV
BIC
MOV

177770

pfi

ADD
ST

16719

1671

5 -Dec=-1980 09:21:22

ADD
WV

04767
122736
06270 050010

D010

16
16

-Dec=1980 09:24:31

ASR

SEQ 0359

§1£
S

SYNC

.WORD

DUMPER

MOV
MOV
MOV
MOV
MOV
MOV

#FNC.S,~(SP)
MRD. 2%,-(SP)
MRD.12,~-(SP)
MRD.9,~(SP)
m; -(SP)
MRD. 22 ,~(SP)

o
TRAP

MOV

: WD.CNT,*

V.FMf -(sP)

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

16745
167
1674
167
1674
16

P B

22%:

$Ra9E3E

000022

-Dec-1980 09:24:31

%-Dec-1980 09:21:22

77
764

; Routine Size:
255 words
; Maximum stack depth per invocation:

16784

004767
04466

176776

T33::

1$:

JSR
TRAP
ROR
BLO
RTS

Ti
PA:

* SUM.BAD

CEFLLELLLEEL

133172

218:

ERFERERT

SEQ 0360

JMLG

) ool b

MACRO M1113 22-DEC-80 12:16 PAGE §7}P4

19 words

PC.$733
66
RO
1$

7769

; Routine Size:
6 words
; Maximum stack depth per invocation:

0 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE §7lo12

SEQ 0361 |
I

16&’ :

7772 ! <BLF/PAGE>

|
|

—

ZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE §7;

3 Dec-1980 09:2

OVRNO
VS WN=O
=

R R R
R

§§§3§A§3§?§§§§§§§§333§§§§§§§3§§§§§§§§§§§§§§

LR R R EARRRERREREE

OO0 NO VS

—

IN) = O

3§
—

)
S
e e R
e R
e
B
e
e
T
e
e
e Rt
e
e e
e e T
e
B

4:31
1:22

]

BGNTST;
tee

: TEST NUMBER:

TST 34

! TEST NAME:

SYNC DATA BUS CONTINUITY TEST (WRITE PATH)

TEST DESCRIPTION:
TEST THE CONTINUITY OF THE
SYNCHRONOUS MODULE WRITE PATH
DATA BUS BY:
1.

VIA DAY _DM MODE WRITE
A

BACKGROOND PATTERN N ONES
INTO THE GOOD BLOCK

VIA MBUS WRITE FUNCTION

WRITE A ZEROES PATTERN INTO
THE GOOD BLOCK.

VIA DAT_DM MODE READ GOOD

'Z‘éfigs IN THE GOOD BLOCK FOR
REPEAT WITH COMPLIMENT
DATA AND BACKGROUND PATTERNS.

IMICIT INPUTS:
PD_TEMP
A BIT VECTOR OF 16 BITS WHERE
THE READ PROM DATA IS STORED
AND ACCESSED FROM.

10_BUF

A VECTOR OF 256 WORDS WHERE
DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

!DROP UNIT FLAG
!BACKGROUND PATTERN
!RESULTS FROM XOR
!TEST PATTERN

TOPS-20 Bliss~ 6 v2(212)

PA: <NEALE

CZMLABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE ?7612

16865 :MLé

-Dec=1

}w 3

DODU_FLG

123
:
}“71 :

1&% :

%2'670 :

16879 :

incr TWICE from 0 to 1 do
in

S
gg:fl:

}6&1 :
1
mg

ILOAD BLOCK WITH BG PAT

16890 :

78467

BAI = ONE;

1% :

7849

GD_BLK_XFER (7

mvs““ :
16897
}awm :

ns%
T
7?3;2

}woowm

77%;

ggo

'REPEAT LOOP TWICE

iDO A WRITE FUNCTION

boazn
DECAY (ONE US);

1&09“" :
:

'8G
PAT EQL 0'S
iTST PAT EQL 1°'S

incr WD_CNT from 0 to 127 do

784

}

DAT_CLK = ONE;

CLR_MBUS;

10_BUF = .TST_PAT;

'T'itl a.nw{ito.

'SET ON FIRST 10 BUF ADRS

iFIRST 10_BUF WORD EQL'S TST_PAT

iSET UP A"GOOD BLOCK XFERR

‘DO A WRITE FUNCTION

rJl!us
RL
DELAY (ONEuS)

190’ ACREAD FURCTION © T AT SAE BLOCK

incrbz’gm from 0 to 112 do

'READ 113 LONG WORDS

12333 :

7859

PD_TEMP = .MLPD;

'GET THE PROM DATA

}6%5!:
}%82
}mmo

;38
ms
gg"mr

RD_LNG_WRD?
incr NIB_PTR from 0 to 8 do
gfl.‘m_rw C.NIB_PTR] IS_NOT_SET

'READ THE DATA WORD
'LOOK AT 9 NIBBLES
'FIND GOOD NIBBLES

}

%&9"(‘&%5-

iCLOCK OUT THE DATA WORD

16911 :

7868
8 9

XOR_LNG_WRD (.NIB_PTR, .TST_PAT, RESULT);

}gg}g

77371

:'fm.‘nesu.m. 4> neq ZERO

}%g :

}%9
16918 :

16919 ;

;gg
7875
7876

4.BLI.2 (84)

I1SET UP A DATA DIAG XFERR AT THE GOOD BLK

16886 ;

16891 :

PA: <NEALE

DAT_DM_xrsuO:

MLCST
= write;

;g:o

TOPS-20 Bliss=16 v2(212)

'LOAD DATA DIAG REG WITH BG PAT

16880 :

= ZERO;

86
m- ZERCES:
TST_PAT = ONES;

}68;; 3

16884 ;
16885 :

:26:31

ss-bcc-lgg 83:51:22

16868 ;
16093 :

SEQ 0363 |

bgin

IXOR NIBBLE DATA WITH TST_PAT

'SEE IF EQUAL

b in
'ERROR IF NEQ
PRINTB (rivr 'U"Sl. WRD 25 m1o WRD_12, FNC_S);

PRINTB mn‘s. TST
m. .RESULT, .NTB_PTR);TM

MACRO M1113 22-DEC-80 12:16 PAGE !7;‘J

}

~Dec=19

788?

3
:

DODU_FLG = ONE;

end

end;

}69 13

ENDSUB;

16930

;

16933

1693%
:
16935 :
16936

16937
16938

1691 :
1% B
1
.

789
7895
7896

}2&3 :

7898

16939 ;
16940 :

789;
789

16964 :

7897

16560
16961

BG_PAT = not .BG_PAT;
TST_PAT = not .TST_PAT;
end;

' COMPLIMENT BG_PAT
iCOMPLIMENT TST_PAT AND REPEAT

end;

ENDTST:

1&
;

- b . A

16964

16965
1%
1
1

06
50
50€
506

6062

16971
.Qo

060630

'.4

168
50636
16974 060642

$T34:

132436

132414

71
77 132544
7 1
zg
7 1

‘11

016705
001404

000001

121254

JSR
TM

CLR
CLR
MOV

IAND EXITS TEST

C.ML_LUN);
DOCLN;

16953 %& 004167 123364
16954
024646
16955
123559
1

'DROP THIS UNIT IF DODU IS_SET

then
Mn

7889

7890
7891

end

if .DODU_FLG IS_SET

;g‘

:
:

4.BL1I.2 (84)

18:

CLR

TRAP

-(SP)

MOV

©:

TWICE

: BG.PAT,
*
: BG.PAT,*
: BG.PAT.»
:
:
: WD.CNT
: *, $STMP2

nggou.as

; *,$STMPI

as.n.aes«go

! : DODU.FLG
%
BG.PAT
% «, TST.PAT

R1,aML .REG+]
m.a.neegoo
R1,aM .REG+160
PC,DAT.DM.XFER

8IS8

MOV
CLR
MOV

#40,aML.REG+40
,1,,%616

MOV
MOV
MOV
JSR

132326

-(SP)
R1
#-1,R2

BISB
MOV
BIC
BICB

132420

R1,$SAVES
-(SP) ,~(SP)

}69

TOPS=20 Bliss=16 v2(212)

PA : <NEALE

1
1

:24:31

SS’D“-ng 83:31:22

RRgERe

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTI

(5
#7.aML.REG+40

{.am.REG
1 .Ré
[

J—

MACRO M1113 22-DEC-80 12:16 PAGE !7‘3

SEQ 0365

;

132406

6$:

BISB

)

000177
vr

132272

132260

13220

. 78:

132226

e
D60
D6

060

D¢

132132

D¢

121062

D¢

000006

98:

32 132036 b
1
121014

000006

L ks”w
bu.ueagg.

.:B:.XFER
RF

1’%%‘;55

L
RE

#40,8M. ,REG+40

” DAT .DM, XFER

;

RS.aML.REG+4

CLR

158:

Y.RS

6;5»

CLR

REG230.PD, TEWP
fim.ucfl

&e‘c

8IS

MOV

CLR

5‘%
DE

B8R

7844
TST.PAT,*

v, $8TMP2

SS|

: », 88T

Y.RS

e;w

: WD.CNT

;
;: * , $8TMP2

; *,38TPI

; gm'

Yis

Yetnd

ng‘

: $STMP2

:‘l.

I
|

; $$TMP2

B ORRRLE

MOV

;aa

: gm’

‘ngg

148:

JSR

MOV

108:

u.gtwo

; WD.CNT
; WD.CNT,»

%fl?
47, AeGuo

BISB

::.

MOV
Bic
BIC

132210

D¢

#20,8ML.REG+120

MOV

INC
CNE'

: SSTMP2

gx’sa

132310

--'-----0---

000020

: 8%1

L TR TR AD

|
;

5$:

g SP)

b83- P
oD

48:

000006

~FFODD®D

33Deccio8 Btz

g e8%

w au tg{'C“Tfiznm

_————

+160.E2.T

; NIB.PTR

7864

;

3®o®IB,&580SAI8cIL.SKdEKR3BBRYEGLKB,SB58U1o
Ag¢ 2TNo2 mFmernugv4m.mmso3efgososorreedivnarasnyzz

n| SmmmRwLmmwe3&§3]L8RNSVBERgT&£.,&&Se8k-3g5
MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

MACRO M1113

sMLG

22-DEC-80 12:16
PAGE

§7°
SEQ 0366

o£3

T
CTION

MACRO M1113 22-DEC-80 12:16 PAGE gBO

SEQ 0367|

000001

b =D e

)

22%:

000010

21$%
1%
S( ).n
2%
H..L RO
51
44
R1
R2

cTMwpP
BLE
ADD

(sP) . m
208
010.SP

INC

RTS

: Routine Size:

(se)

232 words

: Maximum stack depth per invocation:

177054

T34::

1$:

JSR
TRAP
ROR

B8LO
RTS

24 words

PC.$734
66
RO
1$
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:
! <BLF/PAGE>

; DODU.FLG,*

132160

BHIS
JMP
mP
BNE
MOV
TRAP
TRAP
coM
coM

000001

503:
1$:

2-Dec-1980 09:
2-Dec=1980 09:

LA TR TR T

—

dg
b

177145
000002

) i e

FEeaRtgz 5883

sMLG

SRRYBVFRRENIIGRIEIRER28
FERIZERERRREER

SYIIIIIIIIIINIIIIIIINIIII

) b

b e o o

SFEFEEEREEE

CZMLABO ML-11 L
MISCELLANEOUS C

0 words

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 581

MISCELLANEOUS CODING SECTION

17138

17139

;M4

;

171‘; s
17143 ;
17144 ;
17145 ;
17166 ;
17147 ;
17148 ;

17149 ;
17150 ;
17151 ;
1715§ 3
17153 ;
17154 ;
17155 ;
17156 :

7901
7'90§
7903
7904
7905
7909
790

7908
7909
7910
o

SEQ 0368|
s -Dec-1980
~Dec-1980

09:24:31
09:21:22

BGNTST;

!4+
| TEST NUMBER:
i
l
TEST NAME:
l

l
l

TST 35
SYNC DATA BUS CONIINUITY /READ PATH

TEST DESCRIPTION:
TEST THE CWITWITY OF THE SYNCHRONOUS MODULE READ
DATA BUS BY:

791§
1
7914
7915

VIA MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK.

VIA MBUS READ FUNCTION READ THE GOOD BLOCK FOR ONES.

7916

l
l

REPEAT WITH COMPLIMENT DATA PATTERN.

17159 ;
17160 ;
17161 ;
1718 3
m7m
3

917

7918
7919
7920
7921
79%;

17166 ;
17167 ;

7925
7926

17169 :;
17170 ;

7928
79;3

DODU_FLG = ZERO;

7931

BG_PAT = ZER(ES

17174 ;

incr TWICE from 0 to 1 do

1777 ;

7939

17157 ;
17158 ;

17164 ;
17165 ;

17168 ;

1717 ;

171;% s
m

17178 ;
17m7 ;

178
198
17188

17186 ;
3

17187 ;
17188 ;

17189 ;
17190 :

17191 ;
17192 ;

79
7926

7927

79
79

793
7938

R0
B
Ay

l
l

IMPLICIT INPUTS:
10_BUF
A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND

local

DODU_FLG,
TST PAT,

'DROP UNIT FLAG

'TEST PATTERN

BG_PAT;

!BACKGROUND PATTERN

TST_PAT = ONES:

Embms

ONE;

10” = ,TST_PAT;
GD”
_XFER (7;

7945

TiR ouTLo
oNes:
incr 10_CNT from

7948
7949

7946
7947

7950
7951

TOPS-20 Blis -12 v2(212)
PA: <NEALE
.BLI.2 (85)

0 to 255 do

!REPEAT LOOP TWICE
!SET ON FIRST I10_BUF ADRS

!FIRST 10_BUF ADRS GT TST PAT

!SET UPA”GOOD BLOCK XFERR

DO A WRITE FUNCTION (WRITES THE TST_PAT)

0_BUF [.10_ CNTS= .BG_PAT;

!LOAD I0_BUF WITH BG PAT

lll'
TIMEourLoofi

XFER ()

!SET UP_A GOOD BLOCK XFERR
!DO A READ FUNCTION (READ THE TST PAT)

incr I0_CNT from 0 to 255 do

'READ THE I0_BUF FOR TEST PATTERN

ncr

rom

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

17196 ;M4

795
7954
7955
7959
795
7958
7959
7960
7961
%
7964

1;515 :

mifir6

;

17214 ;

7969

17217 :

79;;

17218 ;

TST_PAT
= not .TST_PAT;

17231
1

061474

1%
1

17235

121

12701

151

$T35:

177777
131506

18:

ogooor 131470
131464

10 131456

1758 %
B
}
}54 !
17264 138 1

%0608t 131400
1”?10444“
2s:
3s:

17246 061572 016703

17245

061564

17247 061576

152

042703

JSR

131422

R1,$SAVES

;

CLR
MOV

-(5P)
#~1,R1

: DODU.FLG
i« TST.PAT

CLR

: TWICE

MOV

BI(B

fl.n.fiewo

CLR

'
'

ENDTST;

132070

:
s
~

iCOMPLIMENT BG_PAT AND REPEAT

end;

17228 061462 004167 122430

061
0614

'COMPLIMENT TST PAT

BG_PAT
= not .BG_PAT;

797%
7975

|
?

7970
7971

17219 :
};7252 :

é.BLI.2 (85)

3580 ( ML_LUN);

7968

1;%15 .
17216 :

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

it .10_BUF C.10_CNT) neq .TST_PAT
'SEE IF 10_BUF WORD EQLS TST PAT
then
b%'
'ERROR AND SET DODU_FLG IF NEQ
(37 SYNC, ouvs
PRINTB (SEV_FMT,
6,
25, WRD_10, WRD_12, WRD_23, FNC_6, WRD_19)
PRINTB (FMT2, .TST
m suim CNTd, T r§r
PAT xor .I0_BUF [.10_ ENTID)
DODU_FLG = ONE;"
end;
ENDSUB;
u ooouFLG IS_SET
IDROP THIS UNIT IF DODU_FLG IS SET

7965

;72}? 3

:26:31

55-0«-1938 83:31:22

7955

mg :
17
:
1
:
1
E
1
:
1
:
1
:
1
:
1
3
}
7 :
1;509 :

1
1

SEQ 0369

-Dec=19

mw :'l
17139 :

17213

MACRO M1113 22-DEC-80 12:16 PAGE 38;

BISB

BIC

BIS8

MOV

PR
Ls{a
TRAP
BISB

MOV
BIC

#40,aML.REG+40

: BG.PAT

7931

7934

7933%

aML .REG+40

016
aML .REG+40

;

7936

T To
n.nec«gs
5’

;

7940|

R1,10.80F

#40,aML.REG+40

17%R3

#177770,R3

: TST.PAT,»

;

7937

7941

CZMLABO ML-11 LOGIC

MACRO M1113 22-DEC-80 12:16 PAGE §0§3

TEST

MISCELLANEOUS CODING SECTION

17249

sMLG

}

1
1
}

1
1
}
1

1
1
]
]

1
1

131404

48:

011600

000377
1342;0
1

121950

131304

5$:
68:

011600

MOV
INC
g_!g
JSR
MOV

TSTB

BPL
CLR
MOV
ASL

806506
10004
26

552
120
10

; 10.CNT
* 10.CNT,»

7951
7953

MN377
P; 6D.BLK.XFER
¥ i.n.gsc
S

R2.R3

o‘;‘g.aur.ns
(R3)

00000
00000

1 000032
%822

W
ADD

266

000377

MoV

78:

.R1

TRAP

MOV
MOV
BIC
BIC
BIS

INC
g}-

TRAP

ROR

@ML.REG+

MARD.10.~(SP)
ms .=(SP)
MRD. 24 .~ (SP)
cssv.mf -(SP)

}
1
1

; BG.PAT,*
: 10.CNT
: 10.CNT,»
:

MOV
MOV
MOV
MOV

%ooa

R&, 10.BUF (R3)

MARD.19,-(SP)
#FNC.6,~(SP)
ARD.2%,-(sP)

A
MOV
MOV

1
} :

; 10.CNT
* 10.CNT,»

MOV
MOV
MOV

]
1
1
1

R
R2.R3

127
SYNC

MOV

. @ML .REG+40

MWORD
.WORD

MOV

FA:

#7,aML.REG+40

1
1
1
1
1

8Is8
CLR
22‘(

ADD

1
1

1
1
1
1

35-0.&-19” 09:21:22
BICB

1
1
1

-Dec=1980 09:24:31

SEQ 0370

MRD.

: *, TST.PAT

7944/

ros
|
|

;

7957
|

12,~(SP)

#10,-(SPJ

(R3), (SP)
R1,-(SP)
2(8P), (SP)
Ri ;c&n
(SP)+, (SP)

:
* TST.PAT,*

-l
#FRT.2,-(SP)
#6,~(SP)

‘

:? 32(SP)
#3%,SP

SP.RO

TST.PAT
e

: SP,»
-

.‘

‘.

DODU.FLG
-

R2. 4377

: 10.CNT
: 10.CNT,»

;

i
|

; TST.PAT,*

7959
7955
7951

7960

MACRO M1113

TEST
SECTION

22-DEC-80 12:16

H13
PAGE 384

SEQ 0371

c-1980 09:24:31
c-1980 09:21:22

000001

131524

8%:

e L

000001

TST
RTS

D dP
d d e ed D d d ) md D d d ) e
b e

BLO
cMP
BNE
MOV
TRAP
TRAP
coM
coM
INC
TM
BLE

; Routine Size:

004767
177356
1
04466

205773

000207

8
)

usm

TRAP

80
RTS

135 words

!<BLF/PAGE>

7964

mfl
TST.PAT

; TWICE,»

20 words

pe.srss

I8
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:

7976

; DODU.FLG,*

(SP)+
PC

; Maximum stack depth per invocation:

TOPS

PA:Q'
|

3s
(SP) .M
8%
ML.LUN.RO
51
44
R1
R4
RS
RS.M
18

LR TR T

JMLG

0 words

7971
79
793

— SN
. \ - S——
.

CZMLABO ML-11 LOGIC TEST

MmISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE il;3

H, ¥

1 gg 3
1
3
17361 ;

}

. :

79;8
BGNTST;
7980
1

%
7909

!+s

: TEST NUMBER:

TST 36

: TEST NAME:

RAM BUS ADRS COUNTER TEST /WRITE PATH

i TEST DESCRIPTION:

7987
7988

|
|

}

79917990

RAM DURING WRITE FUNCTIONS BY:

799§

}

6 :

7994

17376 ;

7996

7989

7993

17377 ;
17378 ;
17379 ;
17380 ;

7997
7998
7999
8000

1% ;

8003

17383

i
|
i
|

°°°.oo§‘ :|

1% 3

8017

17399 ;
17400 ;
176401 ;
1740; $

8019
8020
1

|
i
i
‘

17604 ;
17405 ;
17406 ;
17607 ;
17408 ;

G
S

17403

;

ao19

8013

8028

LOADING A REPEATI
COUNT NG
OF 0
T0

INTO THE NIBBLES OF THE

FIRST
64 WORDS OF THE 10_BUF.

8006
8005
8006
8007
8008
8009
8010
8011
ao1§
8013
8014
8015

TEST ABILITY OF THE m_ws ADDRESS
COUNTERS TO LOAD/UNLOAD
THE SKIP

17384 ;
17385 ;
17386 :
17387 :
17388 ;
17389 ;
17390 ;
17391 ;
1m§ 3
17393 ;
173% :
17395 ;

17396 :

4:31

53-9«-19 51:22

17367 ;
1
$

SEQ 0372

-Dec=19

} ?S'3

VIA MBUS WRITE FUNCTION WRITE

VIA DAT DM READ GOOD NIBBLES IN

THE CONTENTS OF THE 10_BUF
INTO THE GOOD BLOCK.

N
o S0 s e nenaEN

A BIT VECTOR OF 16 BITS WHERE

AND ACCESSED FROM.

THE READ PROM DATA IS STORED

10_BUF
A VECTOR OF 256 WORDS WHERE
DATA FOR MBUS READS AND WRITE

FUNCTION ARE FOUND.

iee
local

DODU_FLG,

'DROP UNIT FLAG

TG’S-ZO 8 iss=16 v2(212)

PA: <NE

4.8L1.2 (86)

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE i“

MISCELLANEOUS CODING SECTION

17610 ll.lo

-Dec~-1

};‘}1
17413

SEQ 0373 |

:24:31

55—0«-1338 83-5%22

;

17414 ;

memcbae bitvector [16].

mmus xame FLAGS

ERR"F
BAD xa CNT,

iERROR
F
'w nxue COUNT

};2}3 :

NIB_PAT;

INIBBLE PATTERN

Asg CNT,

iPASS COUNT

i; )

ORDTNT = ZER0Y"

11;

incr CNT from 0 to 63 do

11;32

12427

17428
17429
17430

m:r m cm from =1 to 11 by 4 do

6'38

:
:
:

8044
8045
aug

8048

17431 :

17632

8041

(

804

17437 :

17438

174640 :

17443 ;
17444 ;
17445 -

MLTST

= .WRD_CNT
+

_BLK_XFER ();

8061

MESan-

BAD
CNT = 2
DAT-DM_RFER ();
MLCS1 = read;

8064 do oad

e
o

PD_TEMP = .MLPD;

};lég

890

RD_LNG_WRD?

17455 :

17456 ;
17457 :

g
g

17430 :
17461

4]
78

17464 :

8080

11;

%&S“E = %5

incr NIB_PTR from 0 to 8 do

in
g

if .PD_TEMP [.NIB_PTR] IS_NOT_SET

oybeg B

ISET UP A DATA DIAG MODE AT THE GOOD BLOCK

iDO A READ FUNCTION

DELAY (ONE_US);

17450 :

| INCREMENT TO NEXT WORD

iDO A WRITE FUNCTION

8035 (LRMouss %P

11;2443 :

17458 :

iLOAD SECOND NIBBLE IN WORD
iLOAD THIRD NIBBLE IN WORD
iLOAD FORTH NIBBLE IN WORD

gggg NIB IGNORE = ZEROES;

};251 :

'LOAD FIRST NIBBLE
IN

ISET UP A_GOOD BLOCK XFERR

= write;

17446 :

17647 :

'LOAD NIBBLES IN WORD WITH REPEATING COUNTS OF 0~63

JWRD_CNT))<4. 4> = .PAT-(NT + g.JWRDCNTI)<B. 4> = .PAT CNT + 3:
“WRDcmmé 4> =" PAT_ONT +74;

B8 s
17435
g?: CLR_MBUS;
17636 :

'LOAD 64 WORDS WITH REPEATING COUNTS OF 0-63

JWRD_CNT1)<0, 4> = .PAT_CNT
+ 1;

uoau=
ao‘u
u

4.BLI.2 (86)

'WORD COUNT

12415
174.19 :

172617 ;

TOPS=20 Bliss=16 v2(212)

PA: SNEALE

'LOOP UNTIL THE BLOCK IS READ OR 9 BAD NIBBLES FOUND

'GET
THE PROM DATA
iCLOCK OUT THE DATA WORD

'READ THE DATA DIAG REGISTERS
ILOOK AT 9 NIBBLES
'FIND GOOD NIBBLES

:'fm.‘ma,xame C.NIB_PTR] IS_NOT_SET

begin

'SEE IF THIS NIBBLE FOUND BAD BEFORE

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

H, A

TST_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG);

]‘;271 3

:'f‘.'.‘EM_FLG IS_SET
S

17475 :
7478 ;

17487 ;
17488 ;
17489 ;
17490 ;
1769 ;
17492 ;

8099
8100
8101
8102
3103
104

17495 ;

‘lggi 3
17514
17515

17519

'ln

DAT, DUMPER);

else

end

bogi
NIB_IGNORE [.NIB_PTR]
= ONE;
BADNIB CNT = .alo B CNT + 1;

end;

NIB_PAT = _NIB_PAT + 1;
end;

'THIS NIBBLE IS BAD
!SET THIS NIBBLE NIB_IGNORE FLAG
! INCREMENT BAD NIB COUNT

' INCREMENT NIB PAT

PASS_CNT = _PASS_CNT + 1;
end

' INCREMENT PASS COUNT

until (.PASS_CNT eql 113) or (.BAD_NIB_CNT eql 9);

8108
8109
8110
8111
811;

then

8116

164

!ERROR AND SET DODU_FLG IS SET

8}05

8115

}750‘ 3

1751

'SEE IF TEST FOUND AN ERROR

8189 ENDSUB;

17496 :
17497 ;
17498 ;
174699 :;
17500 ;

0046167

162706

'TEST THE NIBBLE IF NEVER FOUND BAD

end

8098

]';282 -

é.BLI.2 (86)

DODU_FLG = ONE;

8090

8091
009§
809
8094
8095
8096
8097

17486 ;

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

PRINTB (six
mFNC_18, WRD_50, WRD_10, WRD_12, FNC_S, WRD_19);

8088
8089

17679 ;
17480 ;
17481 ;
1728 3
17
3
17684 ;
1748S ;

1751§

808

17476 ;
17677 ;

09:24:31

55-0«-1933 Sl122
8081

17473
;
17674 ;

SEQ 0374

-Dec=1980

};46 3
};‘ 9 ;

MACRO M1113 22-DEC-80 12:16 PAGE 50}

if D(DUFLG IS_SET
ggu

'REPEAT UNTIL COMPLETE

!DROP THIS UNIT IF DODU_FLG SET

(.H. LUN);

ENDTST;

121776

000006

1318 085138 Qigsey !
17519 062140 ooag&

$T36:

1 S
H

JSR

R1,$SAVES

7975

CLR
CLR

-(SP)
R3

; DODU.FLG
2 WRD.CNT

8036

SuB
CLR

ASL

#6,SP
R2

s CNT

S WD T e

o®

8043

_——

——

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE &O&

011600

ADD
MOV

#10.8UF
:g

INC

,R1

000017

177760

BIC

#177760 RS

1
1
|
|
1
b

000002

ADD
ASL
ASL
ASL
ASL
BIC

%38

RO'I(Q’S"’

000360

17540
17541
1
1
17544
17545
175‘;
1754
17548
17549

i
wsg

};ss
}75675601 ':
Mo

};’,8 ¥

17366 O

}m %
1%

1737 &

17575

’

:g.ns
RS
RS
RS
#1776417 RS

#360, (R1)

MOV

RO.RS

RS, (R1)

-Dec=1980 09:21:22

T0PS

PA:<

; PAT.CNT,*

PAT.CNT
.

8044

#3.R5
RS
#170377..RS
#7400, (R1)
RS, (R1)
RO.RS
#4.RS
RS
RS
RS

: PAT.CNT,*

8045

: PAT.CNT,#

8046

RS, (R1)
R3
#%.R0
RO.#13

: WRD.CNT

aot.fi

000013

BIS
INC
ADD
P

000077

&fle’

é.fl?

CNT

TRAP

: CNT,»

8039

#40 aigssu.o

ADD
SWAB
BIC
BIC
BIS
MOV
ADD
SWAB
ASL
ASL
ASL

oo
170000

17554
17555
175
175

154

]

#17.(R1S

BICB

BISB

000003
170377
007400

wsgo

BICB

177417

SEQ 0375 |

22-Dec-1980 09:24:31

}75

——

CZMLABO ML-11 LOGIC TEST
}
1
1

e ———

BIC
%af

130670

3s:

%\s's

B
#170000., (R1)

Es
2

130652

BICB

B
.n.fise«.g

% 130574

MOV

ni.a.gs

13351
"

130620

000007 130602

%Rsa

et il ‘il

: = PAT.CNT
: PAT.CNT,»
:

%'S‘fx‘;fim
g

BISB

#40,aML.REG+40

BICB

#7,aML.REG+40

8041

gg‘ssl
%

;

8054

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE g0913

MLG

}

130576
000004

1315;?
000071
130512
000001

1
1
1
1
1

1
1

000006

}

1 2
1% 264
17598
17599

¥
¥

130706 130420
000020
130566 8$

000001

117376
000006

}nos

17609 062

17610
17611

58:

68:

17608 0%

130556

CLR
CLR
CLR
JSR
MOV

R4
R3
RS
P; DAT.DM. XFER
#71, ML .REG

BEQ
MOV

13
gou.az

MOV
BEQ

#.R1

: NIB.IGNORE

* PASS, CNT
* NIB.PAT
* BAD.NIB.CNT
:
;

: =, SSTMP2

CLR

6(SP)
g

: SSTMP1

DEC

: SSTMP2

DEC

MOV
BIS8

% .REG+230,PD.
ML .REG+120 TEMP

9s:
108:

BEQ
CLR

118
6(SP)

: SSTMP

BNE

g W
126376

DEC

805

805
8061

; SSTMP

: o« 88TMP2

MOV

TOPS

PA: <4

: =, $STMPI

M R
1

138:

1761;

R2,aML.REG+40
4($P)

MOV
BEQ

118:

]

2-Dec-1980 09:21:22

BISB
CLR

117442

]

1
17

2-Dec~1980 oo:s?m

1
1

1;8(1:

SEQ 0376

LSDLY,.R2

806

: =, $8TMP1

: SSTMPY

&Eac

RNLIN-l.Tew

CLR
MOV

ASR

R1
R1,RO

: NIB.PTR
: NIB.PTR,*

8071
8074

MOV

: SSTMP2

ML .REG+160,E2. TEMP

17615

000004

MOV

8078|

1761

013120

MOV

RO.=(SP)

8074

BIC
MOV

#PD.
TEMP, (SP)
1,~(SP)

177770
000001

ADD
MOV

CLR
JSR
ADD

-($P)
Pc6a|.scrz
n0.sp

BNE
MOV

1
n;.-(sm

};g}’

17613

1
1

1
1
1

1
17

17631

318
1

177770

000001

Akgg

BIE

MOV

: NIB.IGNORE,*

i
(SP)
1 ,-(SPJ

#5753

M,-(SP§

()

: NIB.PTR,*

8078

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELLANE OUS CODING SECTION
b

000001

T e T T

Yol

CLR
JSR
ADD
ST
BNE
MOV
MOV
MOV
ADD
JSR
o
BNE

-(SP
PC,BLSGT2
0,
RO
168
R1,=(SP)
R3.=(SP)
n0,-(sP)
SP, (SP)
PC TST.LNG.WRD
10(sP) .M
148

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TR
MOV
ADD

MRD. 19,~(SP)
#FNC.S,~(SP)
ARD.12,~(SP)
MRD.10.~(SP)
MRD. 50.~(SP)
#FNC.18.~(SP)
31x.mf.-(sp)
,=(SP)
SP,
14
#1,26(SP)
#20,sP

TRAP
MORD
JWORD
- WORD

- and b e and =D d b b d cnd cnd e D b D d D d D ) D D

LT e T

) D D D o D ) D ) D D ) D D D D ) )

PAGE

:MLG

000026
14$:
158:

ADD

168:

ooowg 177202

178:

,=(SP)

BIC
MOV

#1
(SP)
" ,-(SPJ

BHIS
JP

8081

ERR.FLG,*
ERR.FLG,*

*,DODU.FLG

#6, 5P

MOV

ADD
INC
INC
P
BLE
INC
P
BEQ
P
BEQ
JWP
TRAP
ROR

NIB.PTR,*
NIB.PAT,*

5
1
ARR.DAT

5@
MOV
R1.=(SP)
g

) el =D e cmd
—h ) e e

22-DEC-80 12:16

807
NIB.PTR,*

(sfi‘&-(sm

#10.SP
R3
R1
R1,410
13§
R%
R4 4161
17§
n;‘m
1
a’
6
RO
188
3s

BAD.NIB.CNT
NIB.PAT
NIB.PTR
NIB.PTR,*

8071

PASS
. CNT
PASS.CNT

8103
8105

BAD.NIB.CNT

TEST

CZMLABO ML-11 LOGIC
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 3911L

}fi

Ss-o«-wao 09:21:22

JMLG

};ggg

}

000001

}769576“

}

130454

18%:

-Dec=1980 09:24:31

; DODU.FLG, *

'IPRXP

lsl1.LtN.R0

1
}%

; Routine Size:
265 words
; Maximum stack denth per invocation:

1770
1771
17715 063136
1771.9
136

004767

}% 063150

000207

e
e s
17719 88146 103

176752

136::
1$:

JSR

PC,.$736

RTS

B
BLO

: Routine Size:

‘%

!<BLF/PAGE>

’

6 words

21 words

; Maximum stack depth per invocation:

8117

%3;).11

.© B
Hos
RIS
PC

PA:

PR
E B w0
17698 0631 %’239

17729
17730 ;

SEQ 0378

0 words

8114

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE §9;

MG
T

4.BLI.2 (87)

!
!
BGNTST;
‘44

a} S

| TEST NAME:

resr DESCRIPTION:

RAM BUS ADRS COUNTER TEST /READ PATH

TEST ABILITY OF RAM/BUS ADRS

camens TO LOAD/UNLOAD THE SK:P

RAM DURING READ FUNCTIONS BY:

%8%&&2&%28‘8&“4&&1?&‘6‘3338S&Gt&tflc‘:‘.‘é‘&‘d&&‘fi

D d d d e
D d
b d
d
d d D

LOADING
A REPEATING COUNT OF 0
10
NTO THE NIBBLES OF THE
FIRST
WORDS OF THE 10_BUF.

VIA MBUS WRITE FUNCTION WRITE

CLEAR OUT THE 10_BUF

VIA MBUS READ FUNCTION READ
THE GOOD
OCK FOR THE REPEATING

COUNT OF

0 63.

D D

IMPLICIT INPUTS:

D e

THE CONTENTS OF THE 10_BUF
INTO THE GOOD BLOCK.

A VECTOR OF 256 WORDS WHERE

DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

d d
d d d d ed e
d d e

10_BUF

b e

T T

T L

II I A R R A

TR T

TOPS-20 Bliss~
6 v2(212)

PA:<NEALE

§}
? ! TEST NUMBER: TST 37

LA L
MR LR LR

—h e cd b

) d D e e

D D b e cd d D

) b

D D D D e

D b D D e

D D e

D D

e LT RRARRRPAE AT R T AP RN SN ER]R

7748

119
1
121
1

D D D

7749

774

~Dec=1980 09:21:22

— ed

D —d

;;2;

mmmmMmmnmmMnInI

}77;2;

}77;2?

I I

17735

]
1
1
1

SEQ 0379

gs-occ-19ao 09:24:31

}

local

DODU_FLG,

'DR(P UNIT FLAG

PAT_INC,

IPATTERN INCREMENT

POS_EXP,

'POSITIONAL EXPRESSION

WRD_CONT,

'WORD COUNT

SIZTEXP,

'SIZE EXPRESSION

TEMP;

550 FLG: ZERO
=

WRD_UNT = ZERO;

'TEMPORARY
STORAGE LOCATION
$

incr COUNT from 0 to 63 do

!LOAD 64 WORDS WITH REPEATING

COUNTS OF 0-63

,
‘

CZMLABO ML-11 LOGIC TEST

s b

§§§§§‘§§§§§§§§§§§§§§§§§88888238383894832&838333&‘3&&333

-Dec=19.

d =D —h

incr PA} CNT from =1 to 11 by 4 do

(10-BUF

C.WRD-CNTI)<12, 4> = .PAT_CNT
+

(10BUF

[.WRDCNTJ)<8,

4> = .PAT CNT
+

b e

WRDCNT = .WRD_CNT + 1;
end;

b
D =D
b
D
d
b
D

[.WRD_CNT)<0, 4> = .PAT_
[.WRD_CNT1)<4, 4> = .PAT

GD_BLK_XFER ();

BGNsOB; ~

1:22

TOPS-20 Bliss=16 v2(212)

PA: <NEALE

é.8L1.2 (87)

!LOAD NIBBLES IN WORD WITH REPEATING COUNT OF 0-63

!LOAD FIRST NIBBLE IN WORD
L
SECOND
ILOAD THIRD NIBBLE IN WORD

| INCREMENT TO NEXT WORD
!SET UP_A _GOOD BLOCK XFERR
!DO A WRITE FUNCTION

’

fncr10 _CNT from 0 to 255 do

10_BUF C.I0_CNT)

'CLEAR OUT 10_BUF

= ZEROES;

(10_BUF
(10-BUF

!SET UP_A GOOD BLOCK XFERR
!DO A READ FUNCTION

!FIELD SIZE FOR NIBBLES ALWAYS 4 BITS

D e
D
b e

N
e e

SEQ 0380 |
35%?1988 83554:31

R L LG LS PSP RS RERE

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 39}

incr COUNT from 0 to 63 do

!READ 64 WORDS IN 10_BUF

incr PAI-CNT from =1 to 11 by 4 do
n

!READ REPEATING COUNTS OF 0-63

PAT-ING = ey

!FIELD SELECTOR SELECTS THE FOUR NIBBLES

TEMP = .10_BUF [.WRD_CNTJ;

!GET A WORD OUT OF 10_BUF

incr CNT from 0 to 3 do
begin

!READ THE FOUR NIBBLES IN WORD

if .TEMP<.POS_EXP, .SIZ_EXP> neq (.P’Y CNT + .PAT INC)

'COMPARE NIBBLE WITH RESPECTIVE 0 =63 CNT

(89, ARR DAT, DUMPER);

!ERROR AND SET DODU_FLG IF NEQ

mm?Lésxx&n. FNC_18, WRD_S0, WRD_10, WRD_12, FNC_6, WRD_19);
=

!POINT TO THE
! INCREMENT THE

NEXT _NIBBLE IN WORD
COUNT

!GET THE NEXT I0_BUF WORD

CZMLABO

ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 596

MISCELLANEOUS CODING SECTION

}
1

}

22-Dec-1980

S :

-Dec=1980

‘3’

S :

ENDSUB;

17850 :

{if .DODU_FLG IS_SET

}778? 3

1ns§ :

17854 :

17856 :

}7732; :

1%2 881

17868
17869
17870
1781
178
mg
1787%
17875
1%’
1
1%
1

17880
17881
1%
1

17884
17885
1%

]

1755
17890

10PS-20 Bliss-16 ¥2(212)

PA:<NEALE>BL3ML4.BLI.2 (87)

,
‘

'DROP THIS UNIT IF DODU_FLG SET

152

1 ;%

end;

ENDTST;

004167

120740

130024
1
1
7 130006
1
00001

000002
177777

000002

011600

suB

$T37:

JSR

BISB
MOV
BIC
BICB
BISB
CLR
CLR
CLR
MOV

MOV
ASL
ADD
MoV

177760
000017

INC
BIC
BICB

000002

MOV
ADD

177417
000360

178%
17895
17896
17897

000003
170377
007400

1
1

09:21:22

DOCLN;

1;355 3

17867

then

09:24:31

35& (.ML_LUN);

SEQ 0381 |

BISB

ASL

ng.sp

R1,$SAVES

811

#40.aML.REG+40
u%&s
”
RS
#7.aML.REG+40
RS.aML.REG+40
10(sP)
2(SP)
R2
#~1,R3

: DODU.FLG
* WRD.CNT
: COUNT
: = PAT.CNT

81
816
81
8171

2(SP) R4
Ré
#10.BUF ,R4
RS

: WRD.CNT,»

: PAT.CNT,*

#177760 RS
#17.(R4S

RS, (R4)

RS
cg.ns

: PAT.CNT,»

8174

: PAT.CNT,*

8175

P
#177417 RS

BIC
BICB

#360, (R&)

ADD
SWAB
BIC
BIC

#3.RS
RS
#170377 .RS
#7400, (R4)

BISB
MOV

RS, (Ré)
ag.ns

IMABO ML-11 LOGIC TEST
ISCELLANEOUS CODING SECTI

MACRO M1113 22-DEC-80 12:16 PAGE 39;

1
1
1
1
17910
17911

1791

BIS

SWAB

6334,

ASL
ASL
ASL
ASL
BIC
BIC

),
063
0

BIS

INC
ADD

17915 063
1791; 3

179

1”1

17922
179
17924
179
1792

063

127530

061

48:

5$:

179

179
175
17930
179
17932
17933
17934
17935

3s:

ASL

127512

17938 061

127434

MOV

} :

17939

17940

063

17941 063
1m

127460

1794;
179

127442

179‘9 ¥’
17947 06
179&3
17949 063
17950 063

1795

ggass

TSTB

BPL

000006

2(8P)
#6,R3

1
PC,GD.BLK.XFER
#61, M . REG
@ML.REG+50
3s
2
R3
R3.R4

gg.aurw.)

R3,#377
5$
#40,aML.REG+40
M
Ré
#1
R4
#7.aML.REG+40

fii.n.gss

M’;‘fi XFER
@ML.REG+

[

BICB
BISB

#7,aML.REG+40
R4,aML.REG+40

CLR
MOV
CLR

R1
#-1,R3
RS

ASL

: WRD.CNT
: *,PAT.CNT

8177
8171

: COUNT

8169

8180

:
: 10.CNT
: 10.CNT,»

81
818
1

: 10.CNT
: 10.CNT,»

8185

amfi

: PAT.CNT,*

#40,aML.REG+40
n{
Ré

2
CLR

78:
8s:

RS, (R&)

BISB
MOV
BIC

8176
'

RS
RS
R5
RS
¥
RS
#170000, (R4)

RS A77

TSTB
BPL
TRAP
CLR
MOV

PA:

: PAT.CNT,#

BLE
JSR
MOV

063
063
061
06

127530

R3.RS
#% RS

R3,#13
28

CLR
INC
MP
BLE
BISB
MOV
BIC
BICB

063

RS, (R4)

[V
BLE

INO

17913

17920

-Dec-1980 09:21:22

MOV
ADD

179
17914

175

Ss-ooc-rm 09:24:31

;

SEQ 0382 |

}

1
]

8181

819N

: *,SIZ2.EXP
: WRD.CNT

8193
819%

Ré&

#4,6(SP)
2(8pP)

Ré

: COUNT,#

: C
: « PAT.CNT
: POS.EXP
e

o
.

8196
8198
8200

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE g%

SEQ 0383 |

5
gg.aurtaa>.&<sr>
4(SP) ,~(SP)
RS,=($P)
12(SP) ,=(SP)
-(SP)
PC,BLSGT1

#0,spP
R3,R%
($8) R

RO, Ré

*, TEWP
CNT
TEMP, *

POS.EXP,*
SIZ.EXP.*

PAT.CNT,»
PAT.INC,*

R
”..

*,DODU.FLG
*,POS.EXP

PAT. INC

CNT
CNT,»

WRD
. CNT
* PAT.CNT
PAT.CNT,*

COUNT
COUNT, »

TRAP
ROR
8LO
P
BNE
MOV
TRAP
TRAP
ADD
RTS

; Routine Size:

T1O0PS

PA:

821

BLE
INC
P
BLE

118:

-Dec~1 980 09 24: 31
-Dec~1 980 09 21 :22

3§§E3§§§§§§§§§§§§§§§§§§§§3§§§§§§§§§§

108:

R R

R RRR R R R R R R R R R R R

RRRRRRRRRR!

sMLG

DODU.FLG,
*

221 words

CZMLABO ML-11 LOGIC TES
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 39}

i80re

53-0«-1980 09:24:31

18011

sMLG

ig}g

; Maximum stack depth per invocation:

064044
064044
064050
064052
m

1
1
1

177102

103
000207

JSR
TRAP
ROR
BLO
RTS

8233

!<BLF/PAGE>

TOPS

PA:<

19 words

0 words

PC,$737
A6
RO
1%
PC
6 words

; Maximum stack depth per invocation:

d e
-

137::
1$8:

-Dec-1980 09:21:22

; Routine Size:

004767
104466

SEQ 0384

gggm

CZMLABO ML-11 LOGIC TEST
ELLANEOUS CODING SECTION

)

MACRO M1113 22-DEC-80 12:16 PAGE §9;

}&69 :
18083
:

é(NTST

1aos§
}&S s

le4
: TEST NUMBER:

TST 38

: TEST NAME:

SYNC DATA BUS BIT UNIQUENESS TEST/WRITE PATH

}aoss 3

18058 :;
18059 :
18060 ;
18061 ;
1% s

o4
8245
846
47
8248

} ums s

822?

18066 :

825§

18069 :
18070 :
18071 ;
1&%:
18073
;
18074 :;

8255
8256
8257
8258
8259
8260

!
!
!
!
!
!

18076 :
18077 :
18078 ;
18079 ;
18080 :
18081 ;

!
!
&.
INTERRIGATE STACK STRUCTURE FOR
!
SHIFTED DATA PATTERN.
!
!
! IMPLICIT INPUTS:

18067 :
18068 :

18075 :

1
3
8

18084 :
18085 ;
18086 ;

18087 :

18088 :
18089 ;
18090 :
}”91 3

1&93 3

18096 ;
18095
10099 3
18097 ;
18098 ;
18099 ;

SEQ 0385

35Dec-1980 09:21:22

18048 ;

1&5; 3

549

825
8256

8261

8264
8265
8266
gg;

! TEST DESCRIPTION:
!
!
!
!
!
!

!
!

8269

71
82;3

!
!

70 !

82
76
75
;9

:
!
!
!
:

;3 !
1

'
!
!
:
!
!

TEST SYNCHRONOUS DATA BUS FOR
DATA BIT UNIQUENESS BY:

LOADING THE FIRST 16 WORDS IN
THE 10 BUF WITH A SHIFTING

ZERO IR A FIELD OF ONES PATTERN.
2.

VIA MBUS WRITE FUNCTION WRITE

SHIFTING PATTERN THROUGH THE
DATA BUS AND INTO THE GOOD

BLOCK.
3.

VIA DAT_DM MODE READ THE

GOOD BLOCK
AND SAVE ALL GOOD
NIBBLE DATA, IN THEIR PROPER
SEQUENCE, INTO A STACK

STRUCTURE
.

TEMP

ABIT VECTOR OF 16 BITS WHERE

THE READ PROM DATA IS STORED
AND /7 CCESSED FROM.

10_BUF
A VECTOR OF 256 WORDS WHERE
DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

STACK

A VECTOR OF 198 BYTE LOCATIONS
WHERE GOOD NIBBLE DATA IS STORED
WHEN STRIPPING AWAY BAD NIBBLE
LOCATIONS OF A BLOCK.

TOPS-20 Blis =16 v2(212)
é.8L1.2 (88)

PA: <NEALE

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE §93

MISCELLANEOUS CODING SECTION
18101 :mLé

}g}

-Dec~1980 09:21:22

18108 :

18109 :
18110 :

18111 :
1811; :

local

SAV_NIB

iDROP
UNIT FLAG
INIBBLE PATTERN

NIB_BIT,
TST_PAT

ITEST PAma;

ALL-ONES_1,
ALL_ONES_2,

THOW MANY *17° NIBBLE PATTERN POSITION TO READ
iHOW MANY °*17° NIBBLE PATTERN POSITION TO READ

STK"PTR,

iSTACK POINTER

839

}3}}9
:
18118 ;

53 0000 FLG= ZERO;

11%}21 :
1313 :

% incrbgg from 0 to 15 do
8305
10 BUF [.CNT] = not .TST_PAT;

18124 :

1815

COUNT;

!COUNTER

CLR_MBUS

8301

TST_PAT = ONE;

18129 :

311

18130 ;
18131

8310

8313

ISET UP A GOOD BLOCK XFERR

MLTST = write:

IWRITE SHIFTING PATTERN THROUGH SYNC BUS

TIME_OUT_LOOP:

STRIPPERTM (21, 8):
STK PTR = =1;

'CALL ROUTINE TO STRIP OUT BAD NIBBLE DATA FROM ARRAY WORDS
IRESET THE STACK POINTER

ALLCONES_2 =

iREAD THREE °*17°' NIBBLE PATTERN ON FIRST PASS

131% :
18133
:

8314
8315

NIBTBIT = ONE;
ALL_ONES_1 = geao.-

18136 :

8318

1incr BY_FOUR_WRDS from 0 to 3 do

}g}?s' :

1813 :

}g}% :

;g}u :

}gz‘% :

'WRITE 16 WORDS WITH SHIFTING O IN FIELD OF 1°S.

TST_PAT = .TST_PATAONE;

8309 GD_BLK_XFER ();

'ONE IN A FIELD OF ZEROES

1815; :
18128

g}g

333221

asz%

ISHIFTING
NIBBLE PAT OF 1 IN FIELD OF 0'S
IREAD NO *17° NIBBLE PATTERN ON FIRST PASS

'READ & GROUPS OF & WORDS

incr BY#!!_&RD from 0 to 3 do

'READ 4 GROUPS OF 1 WORD

gt'fm = ZERO;
n

until goun eql .ALL_ONES_1 do
n

'CLEAR COUNT

'READ X NUMBER OF °17° NIBBLE PAT

C
= ,COUNT + 1;
STK_PTR = .STK_PTR + 1;

18148 :

itC.stack [.STK_PTRD) neq %o0°000017"

18151

181S§ :
18153 ;
18154 ;
18155 ;

EEERERS

18145 :
}3}29 3

18150 :

PA:<NEALE>BL3ML4.BLI.2 (88)

ISTORES THE SHIFTED BIT PATTERN

oood FLG,

}mg 3

}g}g :

TOPS=20 Bliss=16 v2(212)

loe

18107 :

;

SEQ 0386
S -Dec-1980 09:54:31

18104 ;
18105 ;
18106 :

18113

BRAor (90, SYNC,
SYNC

! INCREMENT COUNT
! INCREMENT STACK POINTER

R);

ICOMPARE STACK WITH *17°

'ERROR AND SET DODU_FLG IF NEQ

PRINTB (SIX_FMT, WRD_23, WRD_39, PHR 4, WRD 12, FNC_S. WRD_19);
PRINTB (FMT_5, ONES,”.stack [.STK_PTRI. .STR_PTR);
DODU_FLG = ONE;

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

K 14
PAGE 400

18157 ;M4

~Dec=19

}§}§g :

:264:31

53-0«-1933 83:51:22

18160 ;
}g}fl 3

8338
9

} a}gls' :

13169 :
18167 ;
18168 :
18169 :

&4
S
&9

1318 :

;

SEQ 0387 |

end;

TOPS=20 Bliss=16 V2(212)

PA:<NEALE>BL3ML4.BLI.2 (88)

STK_PTR = ,STK_PTR+ 1;

| INCREMENT THE STACK POINTER

if (.stack [.STK_PTR]) neq (.SAV_NIB)
then
in
(91
DUMPER)

!COMPARE STACK TO SHIFTED BIT

SAVONIB = ( not .NIB_BIT) and (%0'000017%);

'GENERATE THE SHIFTED BIT

IERROR AND SET DODU_FLG IF NEQ

18170 :

8348

181;; :

8350

PRINTB (FMTCS,

18174 ;

835

end;”

}g};g :

ggts.

COUNT = ZEROES;

ICLEAR COUNT

18178 :

8356

until .COUNT eql .ALL_ONES_2 do

'READ X NUMBER OF *17°' NIBBLE PAT

18180 :
}g}m :

8358
8359

C
= .COUNT + 1;
STK_PTR = .STK_PTR + 1;

18185 :
18186 :

8363
8364

18171 :

18173

18175 ;

18179 ;

11g1§ :

mm (slxrm WRD_23, moso PHR_4, WRD_12, FNC_S, WRD_19);

8349

PRINTB (FMT-15,° .STK"PTR);

8351

DODU_FLG = ONE;

835

8357

.SAV_RIB, “stack [.5TK_PTR]);

bw‘?

gg%

! INCREMENT COUNT
i INCREMENT STACK POINTER

'lf (.smk C.STK_PTR]) neq %o'000017°
%’
E
(92

. DUMPER)

!COMPARE STACK POINTER WITH *17°

'ERROR AND SET DODU_FLG IF SET

18187 :

8365

PRINTB (sixrm WRD_23, *WRD 39, PHR4. WRD 12 mcS. WRD_19);

18189 :
18190 :

8367
8368

DODU_FLG= ONE;
end;”

1819§ 3

8370

18191 :

18193 ;
1819% :

18195 ;
18196 :

18197 :

18198 :
8199 :
3

-0

8264,

PRINTB (FMT-S, ONES,”.stack L.STK_PTR]. .STR_PTR)

8369

end;

8371
gss;g

8374

8375

GECRERERERINTS

18188 :

NIB_BIT = .NIB_BIT“ONE;
end:

NIB_BIT = ONE:

ALL_ONES_1 = .ALL_ONES_1
ALL-ONES”2 = .ALLZONESZ2

+
1.- 1:

'SHIFT THE SHIFTED NIBBLE BIT

IRESET THE SHIFTED NISBLE BIT
IREAD ONE MORE '17° PATTERN
iREAD ONE LESS *17° PATTERN

ENDSUB;

{L'.‘ooou_rw IS_SET

by (.ML_LUN);
DOCLN

ENDTST;

'DROP THIS UNIT IF DODU_FLG SET

’
|

48
rFas

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE kO‘l

SEQ 0388 |

SS°°'M938 83:54:31

} o

Dec=19
.C'

TOPS=20 Bliss-16 V2(212)

1:22
:

PA:<NEALE
:

é.BL1I.2
(88)
.

:
18

1
‘

$T38:

18
18

127114

1$:

}
18

011600

18
18
15

18
18
18
18

126754

38:

18
18

}

18
18
18
18

000006

68:

}'
14

000017

18
1
1

006506

BISB

#40,aML.REG+40

TRAP

MOV

ML,

BICB

#7,aML.REG+40

CLR

:soLv

R4.RS

; CNT

MOV

6(SP) , 10.BUF (RS)

; TST.PAT,*

DUT,RS

ng.n.nesobo

coM
ASL
INC

10.BUF (RS)
6(SP)
Ré

BLE
JSR
MOV
TSTB

MOV
MOV

2
PC,GD.BLK.XFER
61,9,
@ML.REG+S
#25,-(SP)
0.-(SP)

MOV
CLR
MOV
CLR

.4(5P)
10(sP)
#3,6(SP)
Ré&

8PL

g‘s,e

000004

N2,
sP

%{Rsa
28:

R1,$SAVES

suB

BIC

127076

}

JSR

PC{SRTSIPPER

RO
P

?52
INC

gga

830

: CNT,»
: TST.PAT
+ CNT

;
:

831
.o

STK.PTR
.

: =.NIB.BIT
* ALL.ONES.1
: * ALL.ONES.2
: BY.FOUR.WRDS

;oo

: COUNT,ALL.ONES.1

: STK.PTR

STACK(R2) . .#17

JWORD
.WORD

SYNC
DUMPER

MRD.19,~(SP)

830
831

R3.10(SP)

TRAP

MOV

DODU.FLG

COUNT

(STK.PTR) o.

831

8314
8315
831
831

8353

8325

8327,
gg'

8333

8334

2B5:7egxw.T,&%&tBilareCsves®
5toP%RBtp2m-332523997

mmmBEEDBEMpas
DgSe8troA3nVTaDSNnEVnTesnRgNaVnRa0tmDa_Rno.Uma.tl.sam.nE.aRs.ni.egst.a8na.n8nsm-anma(tnnuawc.u3tu8a«1n3n»nnotnwauTnnsmlraenuwnksu
.lql.l.lqlcl.lqlqlclqlclqlqlqlclclclqlclclclqlqlal.l2.lclqlcl.l.lal.l.l‘11111-1111E-.!

o 9E23 o& %5m5 os« BgaZ32E5o3S9 ;& .&8 Ea57S<-s R

m-“m0&-sm"-m‘mlm-‘m-ml.'5ml m-s'ls-m“"mm“'-' m mm m5
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113
22-DEC-80 12:16
M 146
PAGE 402

MACRO M1113 22-DEC-80 12:16 PAGE '6‘0}

183§ Dé
18355
1 &0¢

01261
'
004430

18360 0

000030

bt A4

108:

1% 064 754

}

0'.

:-:,:'
¢

f ’&’.

18378 0630)
18377 -.'

18378 065022

177272
1

000004

11s:

000003
177236

177042

128:

STK.PTR,*

STACK(R2) , (SP)

#~1,-(SP)

#FMT.5,-(SP)
#%,-(SP)
RO

*(STK.PTR)
,»

y..

*,DODU.FLG

€
-

e L

— W0 SWIS

]

SP,»

)+,(SP)+

de B

064672

NIB.BIT
BY.ONE
. WRD
BY.ONE.WRD,
*

*,NIB.BiT

ALL .ONES.1
ALL .ONES.2
BY.FOUR.WRDS

BY.FOUR.WRDS
,*

ROEE

£e
544

1oes
oonsss
i
3

Rorere

J23I7Q

06463

8351

COUNT
STK.PTR
*(STK.PTR) ,*

AGORRR2
R g “>

TOPS

PA:<

COUNT
COUNT
,ALL .ONES.2

}f D 06463

*,DODU.FLG

—

O6LED!

P L P LLEEEL s3BgRRRICEE;

1837 06AG:

000017

L
S

o
2%

8s:
9s:

-Dec-1980 09:21:22

10
| 155

18349

Ss-m-mo 09:26:31

JMLG

18
18
18

SEQ 0390

ML-11 LOGIC TEST

CZMABO
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-B80 12:16 PAGE 404

B 15

SEQ 0391

5 ~Dec-1980 09:24:31

1
1
}&39

148:

; DODU.FLG

MoV

?i.LlN.RO

ADD

; Routine Size:
252 words
; Maximum stack denth per invocation:

18208

PA:

000012

l1i1

g‘“ I

126542

?.Efc

138:

-Dec-1980 09:21:22

26 words

1“% 065050
1840 &5585‘50
18408
18409 065056
18410 065060
18411 065062
15«.1;
1841
18414

004767
104466
103

177004

JSR
TRAP

ROR
BLO
RTS

207

PC,$738
66

8390

!<BLF/PAGE>

8387

RO
1$
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:

18419

}8620

738::
1$:

0 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

1
}
<5

MACRO M1113 22-DEC-80 12:16 PAGE 20}5

sMLG
3

ss-ooc-mo 83:34:31
-Dec=1980
09:21:22

1
1
1

3
2
:

SEQ 0392

§
9

BGNTST;

}g ¢ 3

TST 39

}gz

: TEST NAME:

SYNC DATA BUS BIT UNIQUENESS TEST/READ PATH

8401

}8639 s

8404

18441 ;
10‘4; 3
18443 ;
18444 ;
18445 ;
18446 ;
18447 ;

8409
8407
8408
8409
8410
8411
841§

!
!
!
!
!
!
!

18438 ;

PATH FOR DATA BIT UNIQUENESS BY:

%g !

ZERO IN A FIELD OF ONES PATTERN.

VIA MBUS WRITE FUNCTION WRITE SHIFTING PATTERN INTO THE GOOD BLOCK.

CLEAR THE 10_BUF.

VIA MBUS READ FUNCTION B~.f* THE SHIFTING PATTERN THROUGH THE
READ PATH.

INTERIGATE THE 10_BUF FOR THE SHIFTING PATTERN.

841
8414

'%gzgg -

84};

18455 ;
18456 ;
18457 ;

8420
8421
862;

Llocal
DODU_FLG,
TST_PAT;

18460 ;

D&U?L% = ZERO;

}&8 3

incr CNI from 0 to 15 do

18454 ;

18439

]'8661 3

8464 ;

B3
18467 ;
18468

;
18469 :
18470 ;
18471 ;

186% 3

18473
;
18474 ;
18475 ;
18476 ;
18477 ;

8415
8416

8219

!
!

1. LOADING THE FIRST 16 WORDS IN THE I0_BUF WITH A SHIFTING

18448 ;
18449 ;
18450 ;
18451 ;

!
!

IMPLICIT INPUTS:
10_BUF

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION ARD FOUND.

'DROP UNIT FLAG
'TEST PATTERN

845 CLR

gl‘-

84
84
gz S

8438
8439
8440
8441
8442

! TEST DESCRIPTION:
!
TEST SYNCHRONOUS DATA BUS READ

}&% :

TST_FAT = ONE;

'ONE IN A FIELD OF ZEROES

'WRITE 16 WORDS WITH SHIFTED O IN A FIELY OF 1°'S

GERcom
= ,TST_PAT“ONE;
smgye
end;
GD
XFER ();
MLUS1 = write;
TIME_OUT_LOOP;

!SET UP A GOOD BLOCK XFERR
'WRITE SHIFTING PATTERN

8GNSOB;

incr CNT from 0 So 15 do

I0_BUF [.CNT]

CLR_MBUS;

= ZEROES;

.
|

'+4
: TEST NUMBER:

‘lg
3
18435 ;

TOPS-20 Bliss=16 v2(212)
PA: <NEALE
é.8L1.2 (89)

!CLEAR OUT THE 10_BUF

MACRO M1113

CZMABO ML-11 LOGIC TES T
MISCELLANEOUS CODING SE CTION

22-DEC-80 12:16

D 15
PAGE 406

-Dec~1

}@ MG
GD_BLK_XFER ();

8454
8455
8456
8457
8458
8459
8460
8461
328

18515
18519 065064
18520 065070

06$?§

&21

116
1
1
1
1
1

0651

18531 &5140

18532

é.8L1.2

|
|

ISET UP A GOOD BLOCK XFERR

= read;

iREAD SHIFTING PATTERN THROUGH SYNC BUS

TIME_OUT_LOOP;

ISHIFTING PATTERN

1ncrb£g¥ from 0 to 15 do

'READ 10_BUF FOR SHIFTING O IN FIELD OF 1°S

i
|

065144

8464
8465
8466
8467
8468
8469
8470
8471
8472

:'fm.‘xo.u C.CNT] neq ( not .TST_PAT)

g".‘ooou_n.s IS_SET
.

006304

'DROP THIS UNIT IF DODU_FLG IS_SET

ool

C.ML_LUN);
DOCLN;
end;

ENDTST;

117026
1

126074

005161

ISHIFT THE PATTERN AND REPEAT

ENDSUB;

000007

'ERROR AND SET DODU_FLG IF NEQ

SYNC, DUMPER):

TST_PAT = ,TST_PATONE;

704

(93,

end;

000040

'COMPARE 10_BUF TO SHIFTED PAT

PRINTB (FIV_FMT, WRD_23, FNC_6, WRD_19, WRD 39, PHR_4);
PRINTB (FMT-2, ( notTM.TST_PAT), .10_BUF [.CRT]. ( not .TST_PAT xor .I10_BUF [.CNTJ));
DODU_FLG = ONE;

004167
152

016705

845

18493 ;
18496 ;
18495 ;
18496 ;
18497 :
18498 ;
18499 :
18500 :
18501 ;
18% 3
18
3
18504 :
18505 ;
18506 :
18507 ;
18508 :
18509 ;
18510 ;
18511 ;

1
1
1
18
1

PA: <NEALE

TST_PAT = ONE:

8450
3251
Sg

1849§ 3

1
1

MLEST

TOPS=20 Bliss=16 v2(212)

18487 ;
18488 ;
18489 ;
1&90 :
18491 ;

;

:26:31

55-00:-1333 88:51:22

1
B
:

}

SEQ 0393 |

126116

$T39:

R1,$SAVES
ML
RS

BICB

#7.aML.REG+40

BIC

126100

000001
18:

011600
011600

JSR
MOV

BIS8

BISB
CLR
MOV
CLR
MOV
ASL
MOV

coM

ASL

#40,aML.REG+40
il

RS.aML.REG+40
RS
#1.Ré
RO
RO,R1
R1
Ré&,10.BUF (R1)
10.BUF (R1)
R4

: DODU.FLG
: = TST.PAT
: CNT
: CNT,*
; TST.PAT,*
: TST.PAT

8431

4Xg5TuaeG8@ueoNabiusmndTm"8g“m.ove)1fii)mgmne=»ae.\u.rUm?s«.mn"+s»v«mwv/f“io&3v25BS3TRe“o&t»“P%o«T“RWSaeN,yRvoS8EfivgToatRAIEAeot&5y%efto=oTTRgS8h3Eg%IS
'-"ll-“-'

K85& 2& Y2

&: }@ sVeE. A=2 2 .2z
3 3 3 mu m- m 3 Lum 33 38

]B F LT 3 38YR

gmq'lof-qmlyiql%‘mcf-lmci"mlc%-l&m.lmm0‘m.l-&.swlmqml-m.“mlq-ml"cmml-qglEmck-lm1mwl1-%u“1mRm‘w-c-m-lm’cwl-qmml‘wa-lmmc‘ul-cmml0.ml‘m1‘0um1m“%S1"mm-1m"12wm-1m‘mf1-9ni1-w-1mw-1a'm1..s7‘.1.m’..1
. 5sy385a32g ik3 Ig .& £,.
000017

13070(1)

011600

000017

1
1

B33
0

7
} 5742

£e

CZMLABO ML-11 LOGIC
TEST
I
MISCELLANE
CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE EO;

SEQ 0394;

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

1
1

11346
1 122

12766
0046266
1746 000004

S -Dec=1980 09:24:31

)

000001

000026

1%'5.

1&%
1860

15608
1

18610

18611
1&1;
?Iglli

(R3) ,~(SP)
R1,=-(SP)

MOV
TRAP
MOV

SP.RO
14
# RS

; SP,»

ASL
INC

R4
RS

: TST.PAT
; CNT

ADD

#FMT.2,=(SP)
#4,~(SP)

ROR
BLO

801006

BAE

;

TRAP

005

16700

104451
1046444
000207

DEC

126110

MOV
8s:

TRAP
TRAP
RTs

; Routine Size:

8473

177362

! <BLF/PAGE>

139::
18:

: CNT,»

TOPS

PA:<

845

8461

: DODU.FLG

8465

ML .LUN,RO

;

8468

44
PC

133 words

; Maximum stack depth per invocation:

004767
104466
006000
103773
000207

; *,DODU.FLG

#26,5P
23'”7

}8622

18643 ;

MOV
MOV

BCI'.'E,

}8616

18631 065476
1
065502
1
065504
18634 065506
}8635 065510

000017

18615

1% 065476

~Dec-1980 09:21:22

MOV
MOV

}

18637
18638

SEQ 0395 |

1
1

]

F 15

PAGE 408

MLG

1
1
1
1
1

22-DEC-80 12:16

u
'

'
'
8389

17 words

JSR
TRAP
ROR
BLO
RTS

PC,$739
66
RO
1%
PC

; Routine Size: 6 words
; Maximum stack depth per invocation:

0 words

8470

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

6 15
PAGE 409

18674
18675
18676
18677
18678
18679
18680
18681
1&‘28
1
18684
18685
18686

S -Dec=1980 09:24:31
-Dec=1980 09:21:22

: §§§§§§§§§§§§§§§§§§§§§za§§§§

A AR 3

1864S :ML4

SEQ 0396

TOPS=-20 Bliss=16 v2(212)
PA:<NEALE>BL3ML4.BLI.2 (90)

[}

BGNTST;
144

: TEST NUMBER:

TST 40

ARRAY ADDRESS MUX TEST

l
l
l

TEST NAME:

TEST DESCRIPTION:

TEST FOR UNIQUE MOS RAM ROW
AND COLUMN ADDRESSING BY:

l
l

FIRST FINDING A ERROR FREE
16K OR 64K CHUNK OF MEMORY.
THIS REPRESENTS ONE ROW OF

EITHER 16K OR 64K MOS RAMS.

l
l

WRITE A BACKGROUND OF ALL

ONES INTO THE GOOD CHUNK

WRITE ZEROES INTO THE FIRST

BLOCK OF THE GOOD CHUNK.

READ REMAINING BLOCKS IN
GOOD CHUNK FOR ONES.

18688

501
850
850
8504
8505
8506
8507
8508
8509
8510
8511
3515
851
851%

18691

8517

8518
ggg

DSA_ADRS = =-.RAS_INC;
FND_GD_CHK = ZERD;

10 _BUF = ONES;

'LOAD FIRST 10 BUF WORD WITH ONES

18695

8521

DO UNTIL FOUND GOOD CHUNK OR LBT

18698
18699

8524
8525

18687

}awm

1869§
}869

;8697!

l
l
l
l
l
l

A VECTOR OF 256 WORDS
WHERE DATA FOR MBUS
READ AND WRITE TRANSFERS
CAN BE FOUND.

l
l

l
l
0

local

DSA_ADRS,

gg};

gggi

IMPLICIT INPUTS:
10_BUF

FND_GD_CHK;

_psus

ONE ;
scc _DIS= ONE;

IDSA ADRS COUNTER

IFOUND GOOD 16K/64K CHUNK FLAG

iREST DSA COUNT
iCLEAR FLAG

'SET ON FIRST 10 BUF WORD
iDISABLE ECC

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

H 15
PAGE 410

22-DEC-80 12:16

18701 ;M4

-Dec=19

}g% :

gs
5
8528

DSA_ADRS = .DSA ADRS + .RAS_INC;
mwl
= W C SIZE;
MLBA = 107BOF;

18708 :

ML FUNC = write;

18711 :

18713

8535

;!8377?3 :
1871§ 3
:

1871% :
18715

MLBA = 107BOF;

8539

ML_FUNC = WRT_CHK;

18720 :

18% :

8544

18724 :
18725 :

8546
8547

}gg; :

gggg

18726 :

}g% :

gggl

18731 :
18732 :
18733 ;

8553
8554
8555

18735 :
18736 :

8557
8558

1873% :

18737 :

556

8560
8561

18763

8362

18740 :

18743

then

”sgi

'YES SET FLG

(111, INTER, DUMPER):

PRINTB (FIV_FMT, FNC_13, FNC_17, WRD_SO, WRD_60, WRD_56):
PRINTB (THRZFMT. WRD_14. PHRZ10, FNC-155;
DODU (.ML_LON);

else

DOCLN;
end

'A GOOD CHUNCK WAS FOUND CONTINUE TEST

OoR meus

MLWC = not 255;
MLBA = ]O_BUF;
ML_FUNC = write;

577

IS THIS CHUNK GOOD

if .DSA_ADRS eql .LST_ARR + .ARR_INC
then
in

8569
8570
571

18755 :

iDO A WRITE CHECK FUNCTION

'REPEAT UNTIL FOUND GOOD CHUNCK OR AT BT

18747 :
18748 :
18749 :

asg
85
8574
8575
8576

iLOAD DSA ADRS

until (.FND_GD_CHK IS_SET ) or (.DSA_ADRS eql .LST_ARR + .ARR_INC);

18745 :

18750 :
18751 :
18752 :
18753 :
18754 -

iLOAD UBUS ADRS

end

BAI = ONE;
ECC_DIS = ONE;
10 BUF = ZEROES:

18746 :

iLOAD WORD COUNT

FND_GD_CHK = ONE;

8565
856

18744 :

IXFERR WAS OK

end

8559

18738 :
18739 :

'DID XFERR CAUSE AN SC

TIME_OUT_LOOP:
if .SC IS_NOT_SET

8545

8548

iDO A WRITE FUNCTION

MLDA = .DSA ADRS;

854

PA:<NEALE>BL3ML4.BLI.2 (90)

iLOAD DSA ADRS

= ,W_C SIZE:

8537

8540
8541
854

18723

MLUC

TOPS=20 Bliss=16 V2(212)

' INCREMENT DSA ADRS COUNTER
116K OR 64K WORDS
iLOAD UBUS ADRS

if .SC IS_NOT_SET

then

8536

18718

18721 ;

TIME_OUT_LOOP;

8538

18719 :

MLDA = .DSA_ADRS;

gg 1

18716 :
18717 :

:264:31

55-0«-1938 83: 1:22

18704 :
18705 :
18706 :

18707 :

SEQ 0397

MDA = .os\z/ms.-

TIRE_OUT_LOOP;
CLR_MBUS;
BAI =
ONE;
10 BUF = ONES;
ECT_DIS = ONE:

MLDX = .DSA_ADRS + 1;

'DISABLE ECC

IFIRST BLOCK IN CHUNCK GETS ZEROES

iLOAD DSA

iLOAD WORD COUNT
iLOAD UBUS ADRS
iDO A WRITE FUNCTION
'READ REMAINING BLOCKS FOR ONES

'LOAD DSA WITH NEXT DSA INCREMENT

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 111

MISCELLANEOUS CODING SECTION

18757 ;M4

-Dec=19

}5%8 :

ssn

1 78 ;
18763
:

8581

579

aggo

ILOAD

UBUS ADRS

ML FUNC ="WRT_CHK

iDO A WRITE CHECK FUNCTION

iLOAD WORD COUNT WITH LESS ONE BLOCK

mt
OUT_LOOP?

agg
8

18767 :

8585

18769 :

858

PRINTB (FOR_| rm fnc 17, ufin 50, WRD_60, WRD_14);

18;7'_; 3

8590

DOCLN;

18768 :

18770 :

18771 ;

18775
;
18774
18775 ;
18776 :

}gg :

18785 065512

if .WCE IS_SET

8584

bgw

8588

DODU (.ML_LON
S

8595

ENDTST;

004167

116326

124054

$T40:

125434

10 125422

125312
011
1

125474

125352
125354

0 7 1833% PR

}aaos

100000

125300

18808
18809
18810

011
125
000077

125302
125250

C(.MLDK = 1));"

;
'

|
|
‘

000040 125452 18:
1;9%

It
18908
1880%

DUMPER)

end;

18798
18799
18800

'ERROR IF WRITE CHECK FOUND BAD DATA

end;

1879%
18795
1%

ASYNC,

mm (FMTTM9,

8589

18786 065516 012767 177777
1
065526
016
125374
18788 065
18789 065

18790
18791

(112,

;
;

'WERE ANY BITS DISTURBED

then

3509

8591
859
859.
8594

TOPS=20 Bliss=16 V2(212)

PA:<NEALE>BL3ML4.BLI.2 (90)

MLBA
= 10 _BUF;

MWC= .WC size + 256;

18764 :
18765 :

18766 :

:24:31

5 -m-wsg 83:51: 2

18760 :

13761 :

SEQ 0398

125240 135300

JSR

R1,$SAVE2

MOV
MOV
NEG
CLR

#-1,10.BUF
RAS . INC.R2

BIC

BISB
MOV
BICB

BISB
BIs8
BISB8

ADD

MOV
MOV
MOV

818

BPL
g{‘r

MOV

MOV
MOV
BICB

#40,aML.REG+40
ML, DUT ,R1

;

:
+ =,DSA.ADRS
* DSA.ADRS
* FND.GD.CHK

851
851

851

852

#7.aML.REG+40

R1.aML.REG+40
mb.am. newo

;

8524

* *,DSA.ADRS

as
85
84

#2 h

¢
s”a
zs

‘

u c sxzs n nesno

;

8533

v.C.sxzé .REGHO
#10 .’n
fis30
nooooo.n.nes

, @M .REG+20
a;’a.aemo
aML .REG

:
:
: DSA.ADRS,*

:
: DSA.ADRS,*
:

8525

8536|
8537
85
83

s7a2novESn.»mm2o
Nu8ESrf%iTg.w3nyym4I”ST3dgLeAzeR8iE3®%GiJAs5L73ALRA8TE2oL38=5=oRS80R®E8%
mmwmmmmwmmwmmwwmum

32 && :& 2 32 82

o
w
[a¥]

u
m
u
m
m
w
m
w
m
w
m
m
&@%2o3 ——-lo ?mmommmm:o“ feimm % 1 1

1Ne~-1v8=1tO18—ak1hB3—1dt>Ti1ae1nzm1nm1ant1ns1awn14tan1ma1.ein1wr1aPS11sg'tiR1Olr1A1aty‘T1I1N1&dL16I1S5RgP 16BYN1—71.191
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

125502

MACRO M1113

sMLG

22-DEC-80 12:16

J 15
PAGE 412

SEQ 0399 |

S5 Dec15
:24:31

:21:22

-—

T
PA:
o

;s:j

8553

8556

85574

8558

8559|

8555
8553
8563,

8565
8566
8567
8568

85'7,(9)’

———

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 41}

}8868”93

sMLG

1§
1

134768

i
i
1

18889
18890
}”l

8572

BIC

BICB

81s8

124734

81s8

123312

MOV

Y
2

124662

DSA.ADRS
,*

MOV

MOV
8I(B
?g%

8580

8586

- WORD
2
MOV
=
MOV

857
85
857
85
85
85

18899
i
1
i
18904

8587

1391;

MOV

18915
18919
1891
18918

TRAP
TRAP
ADD
RTS

18921

8571

B1s3

124746

#7
@M .REG
7

#61 ,fl..lsiSG
%.REG*

BPL

124764

12
124612

BICB

9s:
s

Routine

JSi1ze:

8589

8585
8472

245 words

; Maximum stack depth per invocation:

14 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE kflo
.

SEQ 0401

189

}89 1
1

1
18941

004767
1

18943 066474
18944 066476
18945

189‘; 0664

177022

L
L AL AL
ek
AL
o
LA

18:

JSR
TRAP

PC,$T40
66

BLO
RTS

1$
PC

ROR

18946
}0947

1895
18954 ;

T40::

: Routine Size: 6 words
; Maximum stack depth per invocation:
8596

!<BLF/PAGE>

0 words

8593
'

AWV

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

18956 ;M4

18957 :

18958
18959 :
18960 s
18%) 3

}338

3
H

233

3BERZ

18%3
3
18967 3
18968
18%9
s
18971 3
1897; 3

:
18977
:;

18978 :
18979 ;
18980 :

MACRO M1113

18981 :
18982 :
18983

18984
18985 ;

8604
8605

TEST NAME:
NIBBLE OFFSET TEST
TEST DESCRIPTION:
TEST NIBBLE OFFSET COUNTERS TO OFFSET GOOD NIBBLE DATA A MAX
OF
14 WORDS ON DETECTION OF ALL BAD NIBBLES BY:
i
. 1. LOADING FIRST 2 1/4 WORDS OF THE 10_BUF WITH ZEROES AND THE
:
REMAINING OF BUFFER WITH ONES.
i
!

!
|

8608
8609
8610
8611
%li

861

8615
8616
8617
8618

8619
8620
8621
862§

gA&A;_m MODE WRITE THE GOOD BLOCK WITH BACKGROUND

VIA PROM R/W MODE FORCE ALL ARRAY NIBBLES BAD.

VIA A MBUS WRITE FUNCTION LOAD IO_BUF INTO THE GOOD BLOCK.

VIA DAT_DM MODE READ FIRST 15 ARRAY WORDS FOR ZEROES AND THE
REMAINIRG WORDS FOR ONES.

i
i
N

i
!

]

8626

8631
ggg

8634
S

18999 :

R
19005 ;

IMPLICIT INPUTS:
PD_TEMP

A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND
ACCESSED FROM.

10_BUF
A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE
FUNCTIONS ARE FOUND.

]

i
!

local
DODU_FLG,

'DROP UNIT FLAG

TST PAT,
START,

'TEST PATTERN
ISTARTING WORD

FINISH

'ENDING WORD

ERR_FLG;
g&&.fl:

R G

}% H

19008 :
19009 ;
19010 ;

86‘9
8647
8648

IERROR FLAG

incr WD _CNT from 0 So 255 do

!LOAD I0_BUF WITH ONES

10_8UF
10 BUF
10_BUF

'LOAD FIRST 2 1/4 WORDS WITH ZEROES

10_BUF [.WD_CNT]
(0]
[1)
[2])

= ONES;

= ZEROES:
= {5
.
=
%0°177760°;

8627
8628
%

19000 :
}9001 3

PA-NEALESBLIMS.BL15 (o)

18989 :
18990 ;
18991 ;
1899; 3

18998

TOPS-20 Bliss=16 v2(212)

| TEST NUMBER: TST 41

18996 :
18997 :

09:24:31

35Dec-1980 09:31:20

85977 !
gs98 BGNTST;
I99

8624
8625

18993 ;
1899 :
18995 ;

|
|
SEQ 0402 |
~Dec=1980

18986 :
18987 ;
18988 :

M 15
PAGE 415

|
|

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

19012

MACRO M1113

22-DEC-80 12:16

N 15
PAGE 416

;M4

-Dec~1

}%}4 s

ggz

19013 :

38 DAT_DM_XFER ();
gg‘

MLCST = write;

ISET UP A DATA DIAG MODE XFERR

}9021 B

8655

incr w1cm from 0 to 127 do

ILOAD BLOCK WITH BG PAT

}901

'DO A WRITE XFERR

B
n

8659

19059
:
1%53 :

208
(DS,();19):
8664 MATPD
GD_BLK_XFER

ST
PRONA GOOD
READ BLOCK
URITE XFERR
iSET UP

0669

19031 :

aee'
”1” CLR_MBUS;

MLUST = write:

866

z&t OUT_LOOP;

iOFFSETTING 14 NIBBLES WITH ZEROES ALSQ.

9036 :

8670

FINISH = 14

IEND AT THE 14°TH BLOCK WORD

asz

_XFER

D d d d D h

end;

8665

1% :

9037 :

8671

9039 :

8676

1905?1
057
19059 :

19060 :

19061 :

1% :

1
:
19064 :

19065 :

19066 ;

ISTART AT THE FIRST BLOCK WORD

TST_PAT = ZEROES;

= read;

DELAY (ONE_US);

gg;z

begin

8679
8680
8681

8694

8697
8698

8699

8700

ITEST FOR ZEROES IN FIRST 14 WORDS

();

8674
8675

FEESESeEResEEER

b d e e

EERE

D d D e

D d D

) D D e

9040 :
9041 :

IWRITE ZEROES IN FIRST BLOCK WORD LOCAT/ON

866!9 START = ZERO;

9035 :

9038 :

=IVWN

é.8L1.2 (91)

ILOAD DATA DIAG REGISTERS WITH ONES

}9025 :

mozi
:275 :

L Ak
4

MLD] = ONES;

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

19015 ;
.

wer

:24:31

SS-Doc-‘lggg 88:51:22

iSET UP A DATA DIAG MODE XFERR

iDO A READ FUNCTION

incr TWICE from 0 to 1 do

!READ WORDS 0-14 FOR 0°'S AND 15-126 FOR 1°'S

incr WQ.CNT from .START to .FINISH do
n

PD_TEMP = .MLPD;

DAT_CLK = ONE;

WRD:

!READ THE DATA DIAG REGISTERS

incr NIB_PTR fiom 0 to 8 do

!LOOK AT 9 NIBBLES

if .PD_TEMP [.NIB_PTR] IS_NOT_SET
then
in
TST_LNG_WRD (.NIB_PTR,

(94, ARR DAT,

!FIND GOOD NIBBLES

.TST_PAT, ERR_FLG);

if .ERR_FLG IS_SET
then

!GET PROM DATA

!CLOCK OUT THE DATA WORD

DELAY (ONE_US);

!READ BLOCK WORDS FORM START TO FINISH

ISEE IF COMPARE FOUND AN ERROR

DUMPER):

'ERROR AND SET DODU_FLG IF ERROR FLG SET

PRINTB (THR_FMT, WRD 41, WRD_46, WRD_10);
PRINTB (FMT~6, .NIB_PTRS;

DODU_FLG = ONE;
end;

'COMPARE NIBBLE WITH TST PAT

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 21;)

MISCELLANEOUS CODING SECTION

4:31
g3-Dec-1980 09:2:21:22

H, A
701

1%% :

70.

19074 :

704

19073

;

}Q;S :
19079 3

%
8707

19078 :

8708

19080 :
19081 ;

710
711

19079 ;

709

1
F3I

871
8714

19084

1908S :
19086

8715
8716
8717
8718
8719
8720

19087 :

19088 ;
19089 ;
}9090 3

19098 066500
19099 066506
19100 066510
19101 066512
1918;
M

0046167
162706
1?‘%
152
D16
'

191%

191046
19105
1910

1
1

end;

TST_PAT
t .TST_PAT;
START = 15;

19108 0665

FINISH= 1%6;

end
ENDSUB;

if D@UFLG IS_SET

880

!DROP THIS UNIT IF DODU_FLG SET

(.ll LUN);

S
ENDTST;

115412
000012

000040

$T41:

124474

1$:

124456

8ICB
BIS8
CLR

2$:

MOV

ASL
MoV
INC

011600

1911;

v, 4

1911
19114
19115

1911

19119

JSR
sus
TRAP
BIS8
MOV
BIC
CLR

'
'

1518
este
19120 oeacss
19121 066636

!NOW READ FOR ONES
!START A 15
'END AT 126

= no

19109
19110
19111

v2(212)(91)
I0PS-20 BLiss-1¢é4.8L1.2

PA: <NEALE

end;

BLE
CLR
CLR

122774

1245

124310

R1,$SAVES

gésp

#60,@ML .REG+40

#7.,

REG+40

,Ré

m..a REG+40
4(SP)
R2

RZ.R3
R3

#-1,10.BUF (R3)

ko N377
28

MOV

MoV

DODU.FLG
WD.CNT
s WD.CNT, »

PC,DAT.DM.XFER

#61, M .REG

Se e

19070
19071 ;

LA
TR PR PR TR PR PR

}

SEQ 0404 |

WD.CNT
,»
WD.CNT

8641
8643

2SRlarym&.PRouv2wwvylK.gy_¥(cl2|8E¥0oR,arbd8.uBomufgowuwnlRamugBmaladefteoal¥EsasaRoSy-sN

e&8s§¥3=8s%mRzm:.3.8mammmx58%%g82¥
e&3g205=8gTme0204o905g030i00s00o00oTRoo000oo00P=1a00eAoS0E0eo2P=2=2=P+eosoeOO
.5Szoi-ERR SX < 3o5ookBoRtgkBSceka

B
FIHE B 1

5-o%TNI¢1N5IprC52OeR80530B5TB8mt0LT 5VgTI50mST25eATLT0tB5y5RIA02ARA5RS0A2N45eR06tS50SbS0§I5A03NEy5ELgERNb5otE5R~95NT525g55t2§525y88%5w5E.5
MISCELLANEOUS CODING SECTION

~—-—-eo—

:
sgogi 000006

%8 ¥BE 0 1#H3 By

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 21;L)
SEQ 0405

g34e []88 22

T
PA:

aos%'

865

8676

oTA¢iyg8Ra2-Tso.LD11TBWL-&gRT-&-3‘o-STNg-eBDCST.0z§.LSD2&OzR-l§PB2.ST2y.

RBReOIRYRSAERFIP

&5RR!OISRISBBLDARARSNPLB
MACRO M1113

§1 746

1752

000034

18$:

1742

22-DEC-80 12:16

333

g 3

1R 1.11. . T

& 2428 O¢VsXESR. )8892 R,$3=28 a$d5u5 _2

T=eBgogSg5g00tyBooe8TeoooTeTI:[oRT0Eg&0T000:30200us=7E0=&1RT 00OoeSoo5«e0PeSTso e-N eeOeO
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
D 16
PAGE 419
SEOO‘“;

sMLG

35 Dec-1980 09:51:22

198%:

PA:<

TOPS

158:

FEER
288258Pyg:fig NNNNYY'.:NNN
.
Y&
3GRS S08

el A
5

19275
19279 067516
19280 067516

i 8o
1% 0675%8

19284 0675
19285
19286
19287

; -Dec-1980 09:21:22
-Dec=1980 09:24:31

:6.$P

22%:

ag‘no
R

NIB.PTR
NIB.PTR,*

f'!l‘lo (SP)

WRD
. CNT
WRD.CNT
,F INISH

RS
#17,6(SP)

TST.PAT

Ré M1

TWICE
TWICE,*

*,START

:1 76,4(SP)

*,FINISH

TOPS

PA:fi

8
870

(SP)+,(SP)+

177020
000004

000001

23s:

DODU.FLG,*

124074
000012

19264
19265
19270
19271

——

SEQ 0407|

JMLG

1
19251
1
1
3
19255
1
1
7476
19258 067500
19259 067504
19260 067506

MACRO M1113 22-DEC-80 12:16 PAGE 220

V.]

d-flddfl-‘d-.-.-‘dd-‘dd

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

248:
; Routine Size:
263 words
; Maximum stack depth per invocation:

176756

T41::
1$:

23 words

PC,$T41

8718

66
RO
1$

; Routine Size:

6 words

; Maximum stack depth per invocation:

0 words

MACRO M1113

! <BLF /PAGE>

22-DEC-80 12:16

F_16
PAGE 421

SEQ 0408

MACRO M1113 22-DEC-80 12:16 PAGE 222

19331

9000 % 0000900090900
909%0¢%0,
%%
009%
9%

SEQ 0409

55Dec-1980 09:51:22

o B0 %0 00" 000 %0 %0505 0000 %0 %0 0090 %0090 %0 90000005 %0 90900, %0000 %

= OO0V

W= o

Ri
b b EEEREEE
e o o o e b d §§§R

N0 00 Y0 0 00 0 0 000000
OO0

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

i BGNTST;

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3MLS .BLI.2 (92)

]

'+4

! TEST NUMBER:
TEST NAME:

TST 42
CS1 FUNCTION ABORT TEST

TEST DESCRIPTION:

TEST CS1 FUNCTION ABORTS ON DETECTION OF CLASS °'A' £ 'B' ERRORS BY:
1.

VIA MBUS WRITE FUNCTION LOAD THE GOOD BLOCK WITH BACKCR

PATTERN OF ONES.

CLEAR THE 10_BUF

DO A MBUS READ FUNCTION.
WHILE THE READ I S _IN PROGRESS WRITE TO
MLDA (CLASS °'A' ERROR) READ THE I10_BUF FOR ONES.

CLEAR THE 10_BUF

VIA PROM R/W MODE FORCE UV ERROR TO THE UV ADRS ERROR PROM
(CLASS 'B' ERROR).
DO A MBUS READ.

READ I0_BUF FOR ZEROES

IH’LICIS INPUTS :
10_BUF

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND
WRITE FUNCTION ARE FOUND

!SET ON FIRST 10 BUF ADRS

'LOAD FIRST 10_BOF ADRS

!SET UP A GOOD BLOCK XFERR
!WRITE BACKGROUND PATTERN

!FORCE CLASS 'A' AND CLASS 'B' ERRORS

incrlgm from 0 to 255 do

BUF [.CNT] = ZEROES:

if .TWICE eql 1
then
inmA_

MLPD = 1;'%‘:

!CLEAR OUT 10_BUF

!IF 2ND PASS THEN FORCE 'B' ERROR

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 42}

H_16

MISCELLANEOUS CODING SECTION

sMLG

SEQ 0410

-Dec=19

}322 3

:24:31

55-9«-1933 83:51:22

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3MLL .BLI.2 (92)

19359 ;
19.
3
19361 ;

8774
8775
8;779

MLTST1

GD aliK-XFER (O F

!SET UP A GOOD BLOCK XFERR

]'333245 3

if .TWICE eql O then MLDA = ONES;

'IF FIRST PASS THEN FORCE AN 'A' ERROR

19366 :

8781

TIME_OUT_LOOP;

8784
8785

if .TWICE eql O
then
begin

19367 ;
19368 ;

B;g
8

19371 ;

8786

19369 :
19370 ;
19
19373

3
;

8787
8788

19375 :

8790

19374 ;

19376 ;
19377 :
19378 ;

19379 :

end;

= read;

8789

then

b;agn
ERRDF (95, SYNC, DUMPER);

19381 ;
19382 ;
19383 :
19384 ;
19385 ;
19386 :
19387 ;

8796
8797
8798
8799
8800
8801
880,

end;

19389 :
19390 ;

8804
8805

19392 ;
19393 ;
193%
19395 ;

8807
8808
8809
8810

19397 ;

881§

19391 ;

19396 :

8795

880.

8806

881

19400

8815

pa:
19403

;

8819
8820
8821

19408 :

ggg

19409 ;
19410 ;

else

882§

4
8825

'READ 10_BUF FOR BG PAT
'ERROR AND EXIT LOOP IF ZEROES

FNC_13, WRD_19, WRD_10);

end

'CLASS 'B' ERROR

begin

incr WRD_CNT from 0 to 64 do
begin

!SEE IF XFERR WAS ABORTED

if .10_BUF [.WRD_CNT] neq ZEROES
then
b;ggn
ERRDF (96, SYNC., DUMPER):

PRINTB (FOR_FMT, PHR_9,
exitloop

'READ 10_BUF CLEARED DATA
'ERROR IF ONES AND EXIT LOOP

FNC_13, WRD_19, WRD_10);

end;

me
8818

!SEE IF XFERR WAY ALLOWED TO CONTINUE

end;

8814

19604 ;
19405 ;
19406 ;
19407 ;

exitloop;

8811

19398

19399 ;

'CLASS °'A' ERROR

if .10_BUF [.WRD_CNT] neq ONES

8791
879
879

PRINTB (FOR_FMT, PHR_8,

19388

!SEE WHICH PASS WE'RE ON

incr WRD_CNT from 0 to 64 do
begin

879

19380 ;

'DO A READ FUNCTION

if .SC IS_NOT_SET
then
bmn

ERRDF (104, SYNC, DUMPER);

'SEE IF SC BIT SET
'ERROR IF NOT SET

PRINTB (FIV_FMT, WRD_59, PHR_1, WRD_11, WRD_19, FNC_13)

end;

ML
#1

R3 aML.REG+40

.10.BUF

PC,6D.BLK.XFER

18:

:fi:

123360

?’l.REG*SO

i
R2
”
R2
#7 .M .REG+40
R2.aML .REG+40
RO
R1

123232

#61,aML
. REG

TWICE

#40,aML
. REG+40

123342

g2
¥ -

fi?.a.newo

1217;2

177777
123246

1234

123220

PA:<NEALE>BL3MLé.BLI.2 (92)

R1,$SAVE3

#7 .M .REG+40

123360
123462

TOPS=-20 Bliss=16 v2(212)

#40,aML .REG+40

123432

123340

$T42:

SEER R

NN
O
NN

[
gy

b
-

EEEREREEESSIS
33 SIS et
IR
FREZFRR
88§8Nafl\l
NNN
§88
2
NSRERREL8888% POV

123450

761

b
D
) cd d d o ad
) =D b ) d
D
D ) d
) D
) D e
) D
D e
) ) D
b
d
) e
—

SEQ 0411

22-Dec-1980 09:51. : 5
22-Dec-1980 09: 1:2 2

) D

MACRO M1113 22-DEC-80 12:16 PAGE {24

;M6

e i o

RR
ERRR
NV

19612

(V. [,V]

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

10.8BUF (R1)
RO
RO, 4377
3
R3.M
4$
4S:

CNT
CNT =
TWICE,*

#100,@ML .REG+120
#
aML .REG+230

PC,GD.8LK.XFER
:fl .aML.REG
5
R2

5%:

CNT
CNT >

#-1,3ML .REG+30

?;..REG*SO

TWICE

MACRO M1113 22-DEC-80 12:16 PAGE 42}

SEQ 0412

sMLé

S5 Dec-—

33 iy R
:24:

TOPS

PA:d

3755

lm.w....MI,-,.Iliql.

-ooo y3e7tg

mummu S

e e .— S

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

wmmm

InsSELEySIE

55852

)i~

[

88 55
5

pn;rnrmN2s

177777

mmummnsus Y e

LSE5RS
mmmmomm

011600

LoeXTYdl erceRsierieariecs mSwmmRmm&

o1 m

m
118:

000100
100000

122766

128:

(R1)

R.l

8811

..(

; SP,»

8812
: WRD.CNT

100

: WRD.CNT,*

8804
8819

8822

010112

#FNC.13,-(SP)

8823

"BeckesS¥zRon—SNaBvS8eF$oEda—PlRovEg—uInNR13ee&im
T&£2R43GeSas 2ZT43 BR R5285 ¥ n&xS

TeoT SR)RB3--R"ALRTR8TRe§S=y5IRSTev£'2B
wmmmmx

—— e

1111‘11111111

19564 070302

000207

8830

N eo

CZMLABO ML-11 LOGIC TESY

5 5
2 -

MISCELLANEOUS CODING SECTION

! <BLF/PAGE>

hw(>)&=n5-\3]

o3g

oy%

(=]

19577

MACRO M1113 22-DEC-80 12:16 PAGE kZ;

)

MISCELLANEOUS CODING SECTION

H, A

-Dec-1980

19578
19579 ;
19580 ;

1%8 3

S lee

}9581 3

19584 :
1958S ;
19586 :
19587 ;

! TEST NUMBER:
i
' TEST NAME:
i

8841

19590 ;

19591 ;
}go :

884
%

1959%
19595
19596
19597
19598
19599

:
;
;

LAST BLOCK TRANSFER TEST

‘ TEST DESCRIPTION:

TEST THE LAST BLOCK INDICATOR BIT

FOR SETTING/NOT SETTING AND THE
DSA REGISTER FOR INCREMENTING BY:

8846
8847
8848
8849
8850
8851

|
|
|
|
|
|

DOING MBUS TRANSFERRS AT EACH
BLOCK FROM
BLOCK ZERO TO
LAST BLOCK =1 AND TEST LBT
CLEAR AND DSA REGISTER TO BE
INCREMENTED.

8853

DO A MBUS TRANSFERR AT

8852

8854

TEST LBT TO BE SET AND

8855

gggg

3
4

8858
8859

| IMPLICIT INPUTS:
|
10_BUF

3
H
.
e

8861

THE LAST BLOCK.

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

TST 43

'
:

19600 ;

9601 ;

1:22

!
'

7
ggl
9

8840

4:31

BGNTST;

19588 ;

19589 ;

SEQ 0414

55-0«:-1980

;

§§§§§§§§§§§§§§§§§§§§§ §

SR -

| ——

CZMLABO ML-11 LOGIC TEST

'
:
l

TEST FOR CLEAR.

TEST DSA REG TO BE INCREMENTED.

A VECTOR OF 256 WORDS WHERE
DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

local
DODU_FLG;

!DROP UNIT FLAG

DODU_FLG = ZERO;

incr DS? CNT from O to .LST_BLK - 1 do

ilps
notmgs
IS =

= ]0 BUF

&DA = .DSA CNT
MLCST1 = write;
TIME_OUT_LOOP;

if .LBT IS_SET

!DO XFERRS UP TO THE LAST BLOCK

!DISABLE ECC
'LOAD WORD COUNT

!LOAD UBUS ADRS
iILOAD DSA WITH DSA_CNT

DO A WRITE FUNCTION

!SEE IF THE LAST BLOCK XFERR BIT SET

é.8L1.2 (93)

—————

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

}

MACRO M1113

22-DEC-80 12:16

-yE%;
in (97, ASYNC, ouv;

19641
1328 :
1
:

8889
8890
8891

:
if .MLDA neq .DSA_CNT + 1

19645
19646 -

889
8894

19644 :

19647 :

19648 :
19649 -

19650 :

19651 :

19653 :
19654 ;
19655 ;
19656 ;
19657
19658

19659 :

19660 :
19661 :
}
:
19664 :

19665 -

19666 :

19667 :
19668 :

19669 :

19670 :
19671 :
! 196;; .

19673

;

}gg;g :

19626 :

aaag
&‘

8895

8907

ECCTMDIS = ONE:
LAST BLK_XFER ();

:an neq .LST_BLK + 1

'SEE IF DSA REGISTER INCREMENTED

'ERROR AND SET DODU_FLG IF NOT

(101

PRINTB (THRFMT,
kes 6, WRD_31, WRD_14);

PRINTB (FMT~7, .LST_BLK);
DODU_FLG = ONE;
H

if .LBT IS_SET
then

892

3354

'SEE IF LBT BIT SET

= ONES;

'IF SET THEN TRY TO CLEAR IT

if .LBT IS_SET

then

(99,

'SEE IF BIT CLEARED
ASYNC, oup;m:

'ERROR IF NOT

PRINTB (Fiv_FMT, WRD_27, PHR_2, WRD_11, WRD_17, REG_6);
DODU_FLG = ONE;

8931
893,

iDO A WRITE FUNCTION

TIME_OUT_LOOP:

8917

89
89

'DISABLE ECC
ISET UP A LAST BLOCK XFERR

MLCST = write;

8915
8916

g,?

19686 -

BGNSUB;
CLR_MBUS;

8914

}9&1 .-

1% 2

ENDSUB;

3915

8921

'ERROR AND SET DODU_FLG IF NOT

end;

89N

8918
8919
8920

REG_6 WRD_31, WRD_14);

'SEE IF THE DSA REG INCREMENTED

end;”

8900

8908
8909
3311?

ba;?
E
(98, ASYNC om*

PRINTB (THR_FMT,

8899

8904
8905
8909

'ERROR AND SET DODU_FLG IF SET

PRINTB (FMTTM7 nf
DODU_FLG n\é

8898

8925
avzg

19684 :
19685 :

then

8896
8897

8901
%

TOPS=20 Bliss=16 V2(212)

PA: <NEALE

PRINTB (THR_FMT, WRD_2
hns WRD_29);
PRINTB (FMT7, .DSA_CNTS;
DODU_FLG = ONE;

aa9§

19677
:
19678 :
19679 :

19680 :

:264:31

55—0«-1338 83:51:22

1174
ggg’s'

1
:
19640 :

SEQ 0415

-Dec-1

;

}] 2 :
1
:

19652

M_16
PAGE 428

else

end

begin

'LBT NOT SET

TERROR AND SET DODU_FLG

$é.8L1.2 (93)

MACRO M1113 22-DEC-80 12:16 PAGE 42;

N_16

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

19688 ;M4
19689 :
19690

%:31

S5Dec-1980 09:3 1:22

B
19693 ;

BE
g?

1969 :

}
1

:
S

19698 :
19699 :

l%i
8943

end;

ENDSUB

if .DODU_FLG IS_SET
then

8944
8945
8946
89547

}9705 3

8949

ENDTST;

19713 070304

%&6’7

113566

19715 0%1%

016706

121254

oA
19719
1

g‘s’“’
9303
1231#;

19704 ;

8348

19714 070310

1971? 070316

1%7
1
777
777

19735
19

6700

162

1
1
19
1

005002

1
1
1
1
1
1

105777

1 g;
0
?0163;

1
19739 070442
19740 070446
19741 070452

(.ML_LUN);
DOCLN;
end;

$T43:

000040

7
“5

1
011600
122576
1

122604

002000

JSR

CLR

: DODU.FLG

CLR

* DSA.CNT

MOV

1.
122656

2s:

8I(B

1225
122572

122574

B8IS8

MOV

122540

3s:

BIS8
BIS8
MOV
MOV
MoV
MoV

TSTB

6PL
BIT
BEQ

.WORD

1232‘

.WORD

10
007472

DSA.CNT,*

8IC

122640
1

MoV
TN
TRAP

TRAP

141

2
012746
012746
012746

!DROP THIS UNIT IF DODU_FLG SET

0445

704,

TOPS-20 Bliss-16 v2(212)
4.8L1.2 (93)
PA: <NEALE

R);
B0 e unen
27, PHR_1, WRD_11, WRD_27);
DODU_FLG = ONE:

19700 :
19701 ;
13;85 3
i
3

SEQ 0416

. WORD
MOy
MOV
MOV

ML .REG+30
i.a.gs

?sl.REG*

azooo.a.assoso
55

141
ASYNC
DUMPER
m.io.-(sm
#PHR.S
= (SP)

MRD.27,~(SP)

%3o%SaIitoaddwee‘E.-ast(5=]i3a_8s~i%wge3.3o535P—

C4SewkedEodBoferierebSzex
w. a,. 8 m

m&%fimm & E

m33e11mNM1I,10gm1e1NBm81R,1mcl2cm8lL.>I9lmcNPl1m.N29 cmTlclRmcl.m_Nlclmcl.wfl.il1m.lm1NLTT m1%I1B@11A”11RTI1R1111111IX11.
o24 33 3

2X3

2 &% B 5B8 B§ $BE 3 82

CZMLABO ML-11
MISCELLANEOUS

MACRO M1113 22-DEC-80 12:16 PAGE 230
1

SEQ 0417

1.al .c.l 1’111

SERSE555R58K.5y5FKe5s8RNKeNdoNN4mNmNwNmHKNRHNNz”NmNmnmnmnmfl
mm%mmmmmmm

mnmRZSmiv.Sl\Ialm.\SyIloZm\Fmswmmwnm1m2s[llwm(:al.\%myl6a&\.mauwm3n.&85s8153 wmmmmnmmm

P
RooooFoERoRo R 1!.‘3‘56789

1IR1TIo1RA.T.1lE\1.S1R111N1oRSB1.~RrI1Y.A.~R1rSSRT1IL1S1e‘111e1111R11111R11m1m1m1m1m1111
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

—

EE
R
S
00 0 0 0 0 0

—N\

Bmk

MACRO M1113 22-DEC-80 12:16 PAGE 231

122202

9s:

1
SEQ 0418

sMLS

sg-bcc-l 980 09:54:31
-Dec=1980 09:21:22

-.'

: *,DODU.FLG

.FLG

TOPS
PA:<

8913

8936

; SP,»

8937

8914

; SP,»

.FLG

.n.REGfiO

895

892

: SP,»

8929

8996
8919
8935

MISCELLANEOUS CODING SECTION

MACRO M1113

D_.1
PAGE 432

SEQ 0419

JMLG

71174

?620“6709

4
7
7
%71
071216
071220
071222

103611
1
1004
16700
104451
104444
000207

000014

118:

122362

128:

22-Dec=1980 09:24:31
22-Dec-1980 09:21:22

ADD

TRAP

#14,SP

ROR

BLO
DEC
BNE
MOV
TRAP
TRAP
RTS

78
R1
128
ML.LUN,RO
51

; Routine Size:

44
PC

232 word 3

; Maximum stack depth per invocation:

071224
071226
071230
071232
071234
071236

004767
1
006000
103773
000207

177054

T43::

18:

JSR
TRAP
ROR
BLO
RTS

!<BLF/PAGE>

12 words

PC,$T43
66
RO
1$
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:

8950

s DODU.FLG

T
B

ERERHEE
LT RS L S

19855

22-DEC-80 12:16

52_2_33

CZMLABO ML-11 LOGIC TEST

0 words

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 533

MISCELLANEOUS CODING SECTION

SEQ 0420

s BRI

§§§§%§%E§¥E%Z§§§%§§§§§§

% AN I 33 40 8 EE AR RE MRSSRR

H.lo

BGNTST;
‘44

' TEST NUMBER:

TST 44

INVALID ADRS TEST

TEST DESCRIPTION:

TEST THE DETECTIM OF ILLEGAL DSA
ADDRESSES BY:

i
l

i
i
i

DOING A MBUS WRITE FUNCTION
AT ALL POSSIBLE ILLEGAL DSA
ADDRESSES AND TEST THE
IAE BIT SET.

: IMPLICIT INPUTS:
i

AVECTU! OF 256 WORDS WHERE

8977
8978
8979
8980

TEST NAME:

)

8974
8975

8981

DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

i
.

local

IAE_CNT;

'INVLID ADRS COUNT

% IAE_CNT = .LST_BLK;
8984
8985

8087

8988

8995

8996

238%

8997

!START AT LAST

S ONT = .1AE ONT + 1;

?89”"

8990”
ok oA ;
A ipat

899

BLOCK + 1

!TEST FOR ALL INVALID ADDRESSES
! INCREMENT IAE_CNT

MLCST = uritc.

!LOAD DSA
!LOAD WORD COUNT
!LOAD UBUS ADRS
!DO A WRITE FUNCTION

.JAE IS_NOT_SET

!SET IF IAE SET

DRRDF (102, ASYNC. DUMPER):

!ERROR IF NOT SET

then

PRINTB (FIV FMT, WD 30, PHR_1. WRD_11, WRD_30, WRD_10);

ENDSUB;

=16 v2(212)
4.BLI.2 (94)

3hpunennetatoeantleeMtloenentv
S“TROgG%3Bmte-£gR3y0308S3s92"s)SeEwRsSo~R~RrN&oeIARSETELW5NR5ERo2UAlRmRBwmE8Rew.ERASN3R<;
~ 3 2T

38drearuansndy stssEransrloeNnnd iz
. . - 23

GHEE B if

e-:mwvNI8R08g0-gg0gg8eSlgT8gGog08g00003"80wOF02,VH8O>oUAE,No8H0%mo0&TOooom-*gec%TaciW3M.=meIncsH0Om8T8
CZMLABO ML-11 LOGIC TEST
MACRO M1113
22-DEC-80 12:16
&

~
£“‘ 53

9003

5
9006

BI>soaMtiAim%gs

MISCELLANEOUS CODING SECTION

PAGE 434
SEQ 0421 |

ML-11 LOGIC TEST

MISCELLANEOQUS CODING SECT

MACRO M1113 22-DEC-80 12:16 PAGE 235

SEQ 0422 |

71’0%
714
712143
I4)

8716“

714646

767

177600

000207

JSR
TRAP
ROR
BLO
RTS

20034

: Routine Size:

20042

Té44::
18:

PC,8T44
66
RO
1%
PC

6 words

; Maximum stack depth per invocation:

9007

!<BLF/PAGE>

0 words

CZMLABO ML-11 LOGIC cT TES T
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

H_1
PAGE 436

%‘ MG

ss-ooc-w

S :

7 :

-Dec=1980

9008

SEQ 0423

9009

09:24:31

09:21:22

BGNTST;

9 :
50 ;
1:

9010
9011
gg}g

20053 :
20054 :
20055 :
2005(7» :

9014
9015
9019
gg}a

| TEST NAME:
ADRS OVERFLOW BIT TEST
|
i TEST DESCRIPTION:
:
TEST THE DETECTION OF ADDRESS OVERFLOWS BY:

20058 :
20059
20060 :
20061 :
% :
:
20064 20065 :
20066 :
20067 :
20068 :

9019
9020
9021
9052
9023
9024
9025
9026
9027
9028

20069 :

20071 :
20072 :
20073 ;

9032
9033
9034

20070 :
20074 :
20075 :
20076 :

20077 :

9038

20080 :

9041

20078 :
20079 :

!¢+
| TEST MUMBER:

CLR_MBUS;

MLWE = not 511;

'DO TWO BLOCK XFFRR

MLDA = .LST BLK:
MLCS1 = write:
TIME_OUT_LOOP;

iSTART AT LAST BLOCK
iDO A WRITE FUNCTION

if .AOE IS_NOT_SET
then

ISEE IF AOE SET

904,
9043

end;

ENDTST:

20091 071456 8!1.3700 1;;17;3
zoov; 871462

71496

071476

;99

1250

150077

'ERROR IF NOT SET

E
(103, SYNC, DUMPER):
PRINTB (FOR_FMT, WRD_26, PHR_1, WRD_11, FNC_19);

200902” 071450 152777 000040 121536 $T45:
%

iLOAD UBUS ADRS

ba‘i,?

9039
9040

20081 :
20082 :

TST 45

1 MLBA
= ]0_BUF:

9035
9036
9037

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BLIMLé.BLI.2 (95)

121514

121520

20095 071500 012777 1;7000 121456

20096 071506 012777 011600 121460
20097 071514 016777 120052 121462

BISB

#40,aML.REG+40

BIC

”

MOV

BICB
BISB

MOV

MOV
MOV

ML . DUT RO

;

#7.aML.REG+40

RO %.neeu.o

#-1000,aM_ .REG+10

no.auf.n.nsmgg
LST.BLK.aML .REG+

:
:

9030
9031
9032

g2§odm25;5eat.i.qiuo>nanen|t8e

3228.m3%B2eIN=SIREmmmNsImmm8gmm2r%
5g $5

RSARNRYISR8T3RIEmA3RRRRRNRRPRRiRo&tIRR2RA8RAR3SR S5
3 °3f% geny4o Ag38%42oym mnm2Ee&Se;n&
5 TM
MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-B0 12:16 PAGE 137

H, T

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

J_ 1
PAGE 438

‘lgl-H, ¥
182

}g:

159 :

160 :
}61 :

}§ ;

SEQ 0425|
Ss-oec-mo 83:54:31
-Dec=1980
09:21:22

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BLIML4.BLI.2 (96)

2048
éensr :
&‘9
9048
m

!4+
: TEST NUMBER:

%1 : TEST NAME:

TST 46

SYNC BUS PARITY TEST

58165 :

9os§ i TEST DESCRIPTION:

20169 Z

9057 |
gggg

VIA MBUS WRITE FUNCTION WRITE ALTERNATING ONES AND ZEROES TO THE

zo;g

90690601

REPEAT WITH SHIFTED DATA

223}%

382%

VIA MBUS READ FUNCTION READ THE ALTERNATING PATTERN AND MDPE CLEARED.

0158 :

et | PRLICHT Deurs:

166 :
228}2:7; :

223}77?:

20178 :

228}3 :

20181
:
223}% :

9054
gggg

9066

9067

|
:

TEST ABILITY OF SYNC BUS TN DETECT AND GENERATE
GOOD PARITY BY:

DEVICE AND READ THE DPAR BIT CLEARED.

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITES

FUNCTIONS ARE FOUND.

«»'«04,:59I
9,8;10 :'fm
.PAR_DIS IS_SET

I1SEE IF PARITY IS DISABLED

20185

184 :

'PRINT MESSAGE AND EXIT TST IF YES

20188 :

90;9

90;5

b'?ura mnFMT, FNC_3, WRD_7, WRD_37);

228}33 :

3378 gkx"‘- o'f"

'SET ON msr 10_BUF ADRS

%3}32

9081

'REPEAT LOOP TWICE

20196 :
g}w :

9084
9085

GD_BLK_‘XFER O
MLTST = write;

ISET UP A GOOD BLOCK XFERR
iDO A WRITE FUNCTION

20200 :

9088

if .DPAR IS_SET

ISEE IF DPAR GOT SET

20004

%312

20195 :

20133 :

) ::

mzozw
:
20208 :

ggz 10_BUF = %0'125252';

90890“7

2050
9091
909sm

9096

incr ru{cs from 0 to 1 do

TIlE _OUT_LOOP:

gehfiflorS (105

TALTERNATE1, O PATTERN

'ERROR IF SET

mm(rokmr
Smoo WRD_7, WRD_9);

10 BUF=. 10_BUF “ONE ;

MLER = ZEROES;

ISHIFT
THE 10 BUF & REPEAT
iCLEAR OUT ERROR REG & REPEAT

MACRO M1113

22-DEC-80 12:16

K_1
PAGE 439

SEQ 0426|

35Dec-1980 09:51:22

TOPS=-20 Bliss~ 6 v2(212)

PA: <NEALE

ENDSUB;

incr W{CE from 0 to 1 do

!REPEATE LOOP TWICE

=S OOV

BAI
=

!SET ON FIRST 10 _BUF ADRS

MLEST = read

!DO A READ XFERR

GD_BLK_xrén O;

!SET UP A GOOD BLOCK XFERR

TIME_OUT_LO0P;

WN=O

u m IS_SET

e
e (L W S W
.

hl'!abf (106, SYNC, DUMPER)

VNV

U
GD_BLKz ri
te;
10”

!MAKE DATA PATTERN HAVE ONE LESS ONE
!SET UP A GOOD BLK XFER
!CHANGE THE BACKGROUND IN MEMORY

MLCS1

IEMLW

ENDTST;

117724

000001

$T46:

006700
006344
007750
006034

000012

R
REE

!ERROR IF MDPE SET

PRINTB (ron FMT, WRD_23, WRD_6, WRD_7, WRD_8);

§§g~*333933§
~§§§ SE20ERNE DRNN

—b
—d b

!SEE IF READ GENERATED BAD PARITY

1
000007

121276

121260

18:

SR LEELLEEET

22eYeYeeYeYae

9109

SNSRI NERRRERER

NOWVES WO

CZMLABO ML-11 L 0GI CTE ST
MISCELLANEOUS C oDl NG
SE CTION

%43
9073

9070|

9075

. @M .REG+40

T
%
iBRNLZTMK“L".£2N.LawBMImKPmFMiHak“3e%QnW5S8 SWMON[KR ”P@@ OB.vTE.B5b8mT1957mLmmM5 &iBEAM.P2M%2.oMZW.m3sMwR“gg s
32 Y 2

[_BGBOyEI4Y]2R9:298o~N8$oN59B2Bo3_%88%o~=o£Ne3—524&g)

2TFuN9AuRNuEe-u—?o-5u1LuoS=2uuEB-8—A-RB.uNeuE.SRBu.u.auxua«8ua9¥0-yxua«u$aT31wu39a83--9ya3-8.a.a-.Ia.«mwoo¢amz-n¢m"-BomK3-R3a3mSw¢"mwv%
(&}

£3

MACRO M1113 22-DEC-80 12:16 PAGE kl.o
1
]
(=

MACRO M1113

22-DEC-80 12:16

PAGE 441

SEQ 0428

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

:2b:

T0PS

PA:<

wo -g\I\Iy

I e FRLE L

mezu&mm,

S5Deccld33 33 3 ey

9124

;

; Maximum stack depth per invocation:

! <BLF/PAGE>

& & 55 5

a
~
o A wLAY )BA LA - “n “

& &2

o P

oooooo

20374 ;

L
1
1

00
3

~ $ |8©L)

0 words

9121

MACRO M1113

CM ML-11 LOGIC TEST
LLANEOUS CODING SECTI

22-DEC-80 12:16

N1
PAGE 442

SEQ 0429
-Dec=19

:26:31

SS-D«:-WS(O’ 83:51:22

TOPS=20 Blis =16 v2(212)

PA: <NEALE

.
o

L 4

BGNTST;

.
.

144

' TEST NUMBER:

TST 47

.
-

.
.

50404

&
20415

5017
20419

%
50450

LJ
3

L4
.

@
o

.
.

.
B

L
B

L
o

K4
.

L4
-

@
B

.
B

.
o

LJ
-

L4
-

L
.

.
-

.
.

L
-

.
.

o
.

.
-

L
.

.
3

.
.

L
3

L
.

.
.

L4
-

@
N

.
-

.
.

L
-

.
.

IGHREARSETE

~F NN ISR VR R RER LB SR TRN UK 28 G

288288 L8ee8R8eLeRee8eeRegeeLeeee89geee

PROVIDES A MBUS READ/WRITE
&A‘T: EWER TROUBLE SHOOTING

—

WRITE READ ML11

TEST DESCRIPTION:

TEST NAME:

i
i

LOAD APPROPRIATE RH REGISTERS.
DO A WRITE FUNCTION.

LOAD APPROPRIATE RH REGISTERS

DO A WRITE CHECK FUNCTION.

COMPLIMENT DATA AND

REPEAT.

IMPLICIT INPUTS:

AVECTM OF 256 WORDS WHERE

i
i

DATA FOR MBUS READ
FUNCTIONS IS FOUND.

i
i
l

ocal

TST_PAT;

'TEST PATTERN

TST_PAT = %0°'052525°;

incrbE;ICE from 0 to 1 do
C

nus

!WRITE READ 1'S AND 0°'S ON MBUS
!SET ON FIRST 10 BUF ADRS

XFER (7;
au.'s = urm.

IRST
DF ADR
'§g”w
w&g’f
x?em
iD0 A ume FUNCTION

u{xxréa 0O;
MLTST = WRT_CHK:

'SET ON FIRST 10 BUF ADRS

xo af =

.TST_PAT;

Tllt out

TIME_OUT_LODP;

ISET
UP A GOOD BLCOCK XFERR
iDO A WRITE CHECK FUNCTION

@ BLI.2 (97)

MACRO M1113 22-DEC-80 12:16 PAGE 243

sMLG

SRREI2B IS

000000V V0V

if .WCE IS_SET
then
begin

D md
s
e
o
b ot ek

!COMPLIMENT TST_PAT AND REPEAT

120542

120530
120456

120502

L TST.PAT,*

Se %e %N,

poy

*, TST.PAT
TWICE

22922

3 33233734 R 9.
}.3
. S

120560

555 S gare o 5 -

120534

838

007750
01
007774

1200612

CRODODODDEDO

012746

18:

<~ODOO®D

$T47:

SIREGEER 33,

TST_PAT = not .TST_PAT;

[+
~N

!ERROR IF SET

end;

—

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BL3MLS .BLI.2 (97)

:zsnra (SIX_FMT, FNC_4, WRD_10, WRD_12, FNC_S, FNC_6, FNC_3);

120624

09:24:31
09:21:22

!SEE IF WRITE CHECK ERROR SCT

ERgDF (109, TRBLE_LOOP, DUMPER);

120642

NN‘N Ll o
XAGEEE £3KE
%
C

i O
e
-

SIS}
PV

SEQ 0430
5 -Dec=1980
-Dec-1980

*rretititititisitics,
COOOOOCOOOOD
0000000000000

R R o o

22392

R AR R LR e R L R R ELCLR Ly

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

%.286

MACRO M1113 22-DEC-80 12:16 PAGE 2“

SEQ 0431i

VIV

BoRgddddfld
&
28 rBESRESES
I

A ¥

000001

04466

177516

S
3

#20,SP
R1
R2
R2.M

* TST.PAT

1%
PC

T47::
1$:

" otes

PC.8$T47
66
1$

6 words
; Maximum stack depth per invocation:
!<BLF/PAGE>

11 words

; Routine Size:

TWICE

9123

9188

; SP,»

;

004767

T
PA:#

IX.FMT,=(SP)

zg.-(sp>

; Routine Size:
87 words
; Maximum stack depth per invocation:

0
0

:22

: 31

#RD.10,-(SP)
#FNC.4,=(SP)

100
000007

000020

22-Dec~-1980
22-Dec~-1980
MRD.12,-(SP)

000000000000

sMLS

222

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

0 words

MACRO M1113 22-DEC-80 12:16 PAGE D4452

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

g M4

S8Deco1980 30:81:3)
N
9

!
BGNTST;

205‘§ 3

9192

!4+

: TEST NUMBER:

TST 48

gg“z s

g}gg

: TEST NAME:

CRC DATA BUS TEST

gsszz H
H

9197
9198

! TEST DESCRIPTION:
!
TEST THE CRC DATA BUS BETWEEN THE CRC

3
H

gss":‘ H

20549 :
20550 ;
20551 ;
2055; :

SEQ 0432|

91N

3}8‘

ss ;
S4 ;
SS :

9199
9200
9201
9202
9203
9204
9205

20557 ;
20558 ;
20559 :
20560 :
20561 ;
20562 :
20563 ;
20564 ;
20565 ;
20566 :

9207
9208
9209
9210
9211
921
921
9214
9215
9216

!
UNIQUENESS.
!
!
2.
THEN IN DATA DIAGNOSTEC MODE READ
!
THE CRC NIBBLES FROM ONE CRC GROUP
!
FOR CORRECT CRC_A,CRC_B AND PAR_CRC_WRD
!
DATA PATTERNS.
!
! IMPLICIT INPUTS:
!
PD_TEMP
!
A BIT VECTOR OF 16 BITS WHERE THE READ

20569 ;
20570 ;
20571 ;

9219
9220
9251

!
!=

922

56 :

2056820567 4

% 3

;

20574 :

20575 ;
20576 :
20577 ;

9206

85};

92 g

9224

9225
9226
925‘

205773 ]

20581 ;

8231

ggao;

20383

!
!
!
!
!
!
!

WHILE IN ECC DIAGNOSTIC MODE DO
GOOD BLOCK TRANSFERS WITH VARIOUS
CRC_A,CRC B AND PAR CRC WRD WHICH

WILL

local

CRC_NIB

CRCTSTED,

ERRCFLG,
NIB_PAT;
CRC_NIB = 9;
in

R es:

32345

ECCCDM = ONE;

5‘8553; 3
3

92;;
92

set

58239 :
90 ;

EXERTISE BUS CONTIRUITY AND

PROM DATA IS STORED OAND ACCESSED FROM.

2058; 3

gssgb 3

9%%6

9239
9240

B i %es

TOPS-20 Bliss-16 v2(212)

GENERATORS AND THE CRC/MBUS DATA
MUX FOR CONTINUITY AND BIT UNIQUENESS
BY:

9558 incr LOOP from 0 to 4 do

398

case .LOOP from 0 to 4 of
] :
NIB_PAT = %b'110°;

tPOINTER TO THE CRC NIBBLE
;ETMES'W MANY CRC NIBBLES WE HAVE TESTED

irg?“m'ff\sroa THE CRC NIBBLE
ISET CRC NIBBLE POINTER

'REPEAT THE TEST WITH FIVE NIBBLE PATTERNS

!START OF THE SCOPE LOOP

ISET ECC DIAG MOD
'SELECT ONE OF THE FIVE NIBBLE PATTERNS

!PATTERN 0

C TEST
NG SECTION

€8

CZMLABO

MISCE

MACRO M1113

22-DEC-80 12:16

PAGE 5662

88-Dec-1980
Dec=1980

b.g‘l= “S.
= 001°;
mePAT16

:264:31
:21:22

PA: <NEALE>BL

TOPS-20 Blis =16 v2(212)
é.8L1.2 (98)

!PATTERN 1

end;

!PATTERN 2
CRC_B = mfs,

NIB_PAT = %2b'000°;
end;
:
€3]

818CRC_WRD= ONES;

!PATTERN 3

saw?‘u‘on'
'c“g
end;
€4l
:

818cnc_WRD= ONES;
in

!PATTERN 4

fi?gPA;(-Mzg‘101°;

tes;

end;

GD_BLK_XFER ();

MLTST = write;

OAT DA~

GD_BLK_xrsn 0;
MLTS1 = read

CRC_TSTED = 25&0

!SET UP A GOOD BLOCK TRANSFER
DO
A WRITE TRANSFER
!WAIT UNTIL DRIVE READY
!SET DATA DIAG MODE

!SET UP A GOOD BLOCK TRANSFER
!DO A READ TRANSFER

DELAY (ONE_US);

do bos

!TEST ONE CRC GROUP "6 CRC NIBBLES'

PD TEMP = .MLPD;

DELAY (ONE_US);
RD_LNG_WRD?

'READ THE PROM DATA FOR THIS ARRAY WYORD
1CLOCK OUT AN ARRAY WORD INTO THE DATA DJAG REG'S
iDELAY ONE MICRO SECOND
!READ THE DATA DIAG REG'S INTO MEMORY

if .PD_TEMP [.CRC_NIB] IS_NOT_SET

!TEST THIS CRC NIBBLE IF GOOD

DAT_CLK = ONE;

then

CRC_TSTED = .CRC_TSTED + 1;

! INCREMENT THE GOOD NIBBLE COUNTER
!TEST THE CRC NIBBLE

TSTCLNG_WRD(.CRC_NIB, .NIB_PAT, ERR_FLG);

SEQ 0433 |
|

MACRO M1113 22-DEC-80 12:16 PAGE “72
F

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SEC TION

.lllo

3
3

%
SS
59 3
3
58 ;

35Dec-1980 03: 1:32
4:31

9293

fl .ERRFLG IS_SET

9
9
]

"%r (131

PRINTB (FOR_FMT, WRD_64

9297

b
9
9

PRINTB (FMT_S,

22
13

o
9%

20664 :
20665 :

9306
9307

7 3

9309

ENDTST;

004167
162706

111266
000006
000011

3
3

&6 3

20671
20675 0
206;9 0

o7 o
50673 §
20680 8
20681

S0eas ¢

9304
9305

9308

e
3
6

150477

R as
D7¢
'
'

657 07t

20699 0727640
20700 072744
20701 072746

15 {77
1

(98)

!REPORT ERROR IF FLAG IS SET

WRD
24

WRD_73, WRD 10)

NIBPAT. .maSAVE (RIB9], B);

end

'REPEAT UNTIL ONE CRC GROUP HAS BEEN TESTED

ENDSUB;
end

!END OF SCOPE LOOP

$T48:

120326

1$:

120310

9187
: *,CRC.NIB
: CRC.NIB,*

2
#60,@ML .RE
R
. G+40
#7,@ML .REG+40
R4, @ML .REG+40
n.Rfl‘..REG*‘IZO

120356

; LOOP

92
928

9231 ’

: LOOP,

9234
9236*

000

012
00044
012

=16 v2(212)

until .CRC_TSTED eql 6;

12&%
152
704

end;

20684 (
'
'

TOPS=20 BL

PA: <NEALE

!SEE IF THE TEST FOUND AN ERROR

SYNC, DUMPER)

358555388

SO
2Y 3

SEQ 0434

;g.RZ
120350

4$:

#-1,3ML.REG+150

: *,NIB.PAT

9240
9236
9244

-BWgRooteeoReded=W.S&,.gIv2008=B83eo8r3e58s0ywfSagen8olmmTwnfl3ySABB83%$
: zsaaxnqu

———

e S S A LS KK

1m"1 " 1 1.“-%“&%7 -A.A..W&MHVHW.NI

e39TT&&nSESBEIo1OkReSR2oSo3k.4t0-S4tOK..5w %ilt03k.8>gLe go2.BMnoKGnaSKMnooRg G2BmEes3=MS2Ky2g W£&5BH8MN-S5.3WBy

rRmOmme2m¢t¥mI2momPmSRm3R5o%mOmmRmRmmE23mERS mEm0mm8Rwm8mmnN£mkRmmmmmRmOmmRmm
iA3etT SetTTTLS1itTRP
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 248
sMLG

8i&£2¢g38

SEQ 0435 |

52-0«-1980 09:54:31
2-Dec=1980 09:21:22
T
PA:

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

759

MACRO M1113

22-DEC-80 12:16

H 2
PAGE 449

|
:

SEQ 0436 |

sMLG

55-0«:-1980 09:24:31

-Dec~1980 09:21:22

INC

2(sP

BNE

76k

778 |

MOV

‘
0

198

: CRC.TSTED

g-gg;

: 'c‘?g.g}\?.-

#12,-(SP)
-

9290
9291

ADD
JSR

SP, (SP)
PC,TST.LNG.WRD

1gtsein

: ERR.FLG,*

9293

TRAP

9296

77% Q
775 C

TSorp 303

% '

.WORD
.WORD

MOV

SYNC
DUMPER

9297

;;3 |
20779
(
20780 0
20781 (
;8 D73,

: ERR.FLG,*

m.}g.-(sm

MOV
MOV
MOV
MOV
MOV
MOV

MRD.73.-(SP)
MRD . 24 ,~(SP)
MRD
. 64 .= (SP)
#FOR.FMT,~(SP)
#5,-(SP)
y

; SP,

% 07334

MOV

#10, (SP)

;

789 (

ASR

336¢

TRAP

'ff
786 0
787 077
788 (

MOV
ASR
ASR
ASR

790 Q
79 Q

20792
58

073
|

79% Q
gm 073422
% '

n‘.

798 73432
799 ffi’,};
07
07

198

D73
)7

;

‘

;

}? 0
2&1;

2081

MOV
MOV

#FMT.S,~(SP)
#6,-(SP)

: NIB.PAT,*

SP.RO

: sPc.

}‘5 SP
#6.SP

TRAP

BHIS

218

P
BNE

2(5P) .46
138

: CRC.TSTED,*

%S
RTS

: Routine Size:

9295
9289/
9304

k.
P

9298

Ré,~(SP}
R2,-(SP)

15“8’
ADD

ROR

NIB.SAVE+4,Ré
Ré
R4
R4
Ré
#77770,R4

188:

SWAB
BIC

MOV
MOV

LOOP

R1,#%

: LOOP,*

3‘1’3
SP
PC
215 words

; Maximum stack depth per invocation:

9230

9137|i
|

23 words

;

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 150

SEQ 0437

ML
.

2-Dec-1980 09:24:31
2=-Dec=1980 09:21:22

TOPS
PA:q
|

004767
104466

177116

oo%

T48::

18:

|
JSR
TRAP

PC,$T48
66

8LO
RTS

1$
PC

ROR

10
000207

; Routine Size:
6 words
; Maximum stack depth per invocation:

9310

!<BLF/PAGE>

9307
!
;

*
0 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

-80
12:16
MACRO M1113 22-DEC~80

PAGE

451

g :'Il
51 ;

gg :

59 :
:

SEQ 0438 |

55-0«-1988 09:51:22

sgggi :

-Dec=1980

9311

931

9314

!++

g }s

: TEST NUMBER:

9319

| TEST DESCRIPTION:

}

3 }2 : TEST NAME:
9

TEST CRC

TST 49

CODES GENERATED FOR ONE CRC

GROUP (52 UNIQUE UNIBUS NIBBLES) BY:

|
i
:

FIRST 10
CRC GROUP HAVING 51 NIBBLES
OF XB'0000° PATTERN AND THE
REMAINING
NIBBLE
WITH PATTERNS OF ¥8°'0000° TO %B8°1111°.

DOING MASS BUS WRITE TRANSFERSS WITH THE

20868 :

9328

THEN IN DATA DIAGNOSTIC MODE CALCULATE

%71 :

3331

933%
9335
9336
9337
9338
9339
9340
9341

939,
9325
ggg

9329
9330

|
|

20884 :

9%.4 :

20887 :

9;2. TEMP

:
:

3. REPEAT PATTERN OF ¥8°'0000° TO %8°'1111°

Llocal
DODU_FLG .

IDROP UNIT FLAG

i TEMPORARY STORAGE LOCATION

9
NIB_SEL;
3;453 pOD0_FLG = ZEROES;

ISELECTS 4 BITS 'ONE mus' FROM THE 10_BUF
iCLEAR THE DROP UNIT FLAG

‘

9351

dincr CNT from 0 to 13 do

ICLEAR THE FIRST 14 I0_BUF WORDS

:
:

3§§§ incr uuz,cm from 0 to 12 do
gggg
m_s& = -4;

'DO THIS TEST ON 13 I0_BUF WORDS
IRESET THE NIBBLE SELECTOR

8%23

:
M

%20905

9345
93‘9

THE CRC CODE FOR THE FIRST CRC
GROUP AND COMPARE IT AGAINST THE
HARDWARE GENERATED CRC CODE.

zos% :

2088S
20886 :

UNIQUE NIBBLE CRC GENERATION TEST

20876 :
20875 :
20876 :
20877 :
20878 :
20879 :
20880 :
13

TOPS-20 Bliss-16 V2(212)

9323

20869 :
20870 :

PA: <NEALE>BL3MLé .BLI.2 (99)

9 15 BGNTST

20864 :
20865 :
% :

09:24:31

g gg

10_BUF [.CNT]

= ZEROES;

9358

33325

incr NIB_TST from 0 to 3 do
begin

DO THIS TEST ON 4 NIBBLES PER WORD

if (.WRD_CNT eql 12) and (.NIB_TST eql 2) then exitloop;

'THE LAST 2 NIBBLES ARE NOT TESTED

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

K 2
PAGE 452

$3Decc1900 B:ds:3] Joes-20 ouis

0000

TEMP =

iCLEAR TEMP

ZEROES;

incr Nl?.PA‘l from Tb'0000° to Xb'1111° by Xb°0001° do
n

EMP<..N aSEL. 4> = .NIB_PAT;
QRD_CNTI

=16 v2(212)
£ .BLI.2 (99)

BLE SELECTED
| INCREMENT THELOCNIB
ATION

NIB SEL 8 .NIB_SEL + &;

-0

SEQ 0439

TEMP;

SRR

_xfea 0;

!RUN PATTERNS ON THEIS N/BBLE

!START OF SCOPE LOOP

'LOAD PATTERN lNTO TEMP AT THIS NIBBLE

OAD THE GENERATED PATTERN INTO THE I0O3UF

‘SET UP A GOOD BLOCK TRANSFER
D0
A WRITE TRANSFER
IWAIT FOR THE TRANSFER TO COMPLETE
!CLEAR THE GEN & CAL STORAGE LOCATIONS

!CALL ROUTINE TO CALCULATE THE CRC CODE FOR THIS PATTERN
!NOW SEE IF THE GEN CRC IS SAME AS CAL CRC

!REPORT THE ERROR IF NOT THE SAME

ENDSUB;

§§§§§§§ 3433

00000

BRI

P_ GENS

9399
9401

10_BUF [.WRD_CNT] = ZEROES;

end;

!END OF SCOPE LOOP

!CLEAR THIS 10_BUF WORD FO NEXT NIBBLE

end;

if D@UFLG IS_SET

m (.lLUN);
ENDTST;

!DROP THIS UNIT IF THE DODU FLAG GOT SET

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE k53

MISCELLANEOUS CODING SECTION

20964 073516
0965 073522
20966 0735¢

st ffig
0968

(

110374
000002

20969 073534
20970 073536

011600

20972 073544

000015

o7s O3
'fi%ic'

177774

20971

07354¢

0973

0738

05
2ud.

$T49:

OO ‘ffi
Uy

o h

20983 07360:
20984

073606

20986

07361

20985

073622

D990 0736¢
0991 073630
20992 07363
0993 07363

099%

0736khe

0%
0996 O
0736
0997 073660
73678

07370

005 073722
oo; 07372¢

D7373¢

073742
%? 073746
21012

000004

4$:

073610

0987 07361
0988 073616

0989

000002

2101§ 073756

MOV

5%:

R1,$SAVES
=(SP) ,=(SP)
2(SP)
o

zg,h

(LR

Ré

g;;

RG 42

; NIB.TST,»

CLR

: TEWP

TRAP

ADD

CLR

8%, (5P

#,(SP)

000002

1074646

MOV
JSR
MoV
MOV

R3,-(SP)
PC,%SHH
»
10.BUF (R1)

MOV

117344

'A‘g{

RS,~(SP)
2(SP) ,~(SP)

1600

i ENT e
I

R
10.BUF (R1)
RO
RO.MS

MOV
MOV

000004

3
; DODU.FLG

ASL
CLR
INC
(¥

BLE

50978 073564
US

JSR
CLR

BISB

#4,~(SP)

#40,aML .REG+40

: CNT

: CNT,»

S ANIB
SEL

;

: WRD.CNT,*

: NIB.TST

: *,NIB.SEL
: NIB.PAT

: TEMP,»
; NIB.SEL,*
: NIB.PAT,*
: », TEMP
: TEMP,»

9%
G

9%7”31

wggg? 117326

BICB

BIC
MY

ReR
RO
#7,aML.REG+40

1 117250

MOV

#61,aML.REG

8PL

117224
11

CLR
CLR

)
151340

CLR

GSR
ag

P.GEN
A.CAL
B.CAL

:
:
:

9
<

BCC

9386

117314

TSTB

TRAP

@ML.REG+

PE-CAL.CRC
%.em.cm.cnc

:
:

9381
9%3

CZMLABO ML-11 LOGIC
TEST
1
)| SCELLANEOUS COD ING SECTION

MACRO M1113

M2
PAGE 454

22-DEC-80 12:16

SEQ 0441

sMLG

mmmmmmmmmmmmmmmwwmmwumwumwwumwm

m22 mJ m it m m m :

3535383
N

L2RYVERS

L~.MIRS

RTS

9389

9366,

2 NIB.TST

9358

s WRD.CNT

9354

; DODU.FLG,*

9401

s WRD.CNT,»

25 words

936
9391

2 NIB.PAT

: NIB.TST,
»

(SP)+,(SP)+
PC

.FLG

; NIB.PAT,»

; Routine Size:
156 words
; Maximum stack depth per invocation:

9388

; SP,»

(SP) .M

9387

: SP,»

ZL5-

ToPS

PA: <

; SP,»

10.BUF (R1)

-4 <

32
22

9404

93091

BLO
RTS

909
9410

!
!<BLF/PAGE>

SEQ 0442 |

PC,8T49
66
RO

0 words

;

(omey

2-0

Sfl

JSR
THAP
et

; Routine Size:
6 words
; Maximum stack depth per invocation:

028 IRITIZIFRRRIS

ifi

§
A

H
3

MACRO M1113 22-DEC-80 12:16 PAGE N6552

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

106

MACRO M1113 22-DEC-80 12:16 PAGE 256

;M4

1}82 3
189 3

1115 ;

9419

”g 3

az‘l

21119 ;

g}g? H

!4+
: TEST NUMBER:

2115% 3

21125 ;

%gg

21126 ;

21127 ;
21128 ;
21129 ;
21130 ;
21131 ;
21132 ;
21133 ;
21134 ;
21 35 ;

UNIQUE WORD CRC GENERATION TEST

TEST CRC CODES GENERATED FNOR ONE

CRC GROUP (13

942§ i
9%27
9428

TST SO

' TEST DESCRIPTION:

&%’so

21123
;
21126 ;

TOPS-20 Bliss~ 6 v2(212)

PA:<NEALE>BL3ML4.BLI.2 (100)

BGNTST;

gflg : TEST NAME:
94%0

:24:31

5 -Doc-1938 88:51:22

%11 !

941§
941
9414
&}g

1116 ;

SEQ 0443

-Dec=19

1108
1109
1110 ;
1}}1 3

]‘ui H

UNIBUS WORDS) BY:

1. DOING MASS BUS WRITE TRANSFERS

USING VARIOUS WORD DATA PATTERENS.

|
'

THEN IN DATA DIAGNOSTIC MODE

CALCULATE THE CRC CODE FOR THE
FIRST CRC GROUP AND COMPARE IT TO

THE HARDWARE GENERATED CRC CODE.

21136 ;
g}g H

9431
932
9433
%3
9435
9%36
9437
9438
94639

9440
w1

local

DODU_FLG,
TST FAT

'DROP UNIT FLAG
'TEST PATTERN SAVE LOCATION

%11}3‘3 :

?’24“

DODU_FLG = ZEROES;

'CLEAR THE DROP UNIT FLAG

9445

incr PAT_SEL from 0 to 3 do

'RUN THE TEST ON & PATTERNS

21141 ;

2116% 3
21143 ;
21144 ;

9446
9447
9448

21146 ;

9450

21145 ;

147 ;

9449

9451

| IMPLICIT INPUTS:
i
IOBUF
|
“VECTOR OF 256 WORDS WHERE DATA
|
rm MBUS READS AND WRITES TRANSFERS
'
IS FOUND.
|
i==

2
CLR_MBUS;

'START OF SCOPE LOOP

case .PAT_SEL from 0 to 3 of

!SELECT ONE OF THE & PATTERNS

set

148 ;

945

1150 ;

9454

15§ 3
1153 ;

9456
9457

):
TST_PAT = %0°'052525°;

155 ;
156 ;

9459
9460

] :
TST_PAT = %0°'125252°;

1158 ;

9462

149 ;

151 ;

1156 ;
157 ;

945

9455

9458
9461

J :

TST_PAT = ONES;

3] :

MACRO M1113 22-DEC-80 12:16 PAGE 257

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

160 ;M4

SEQ 0444 |

-Dec=19

1}61 :
18 :

9463

‘I}glso 3

9469‘“5

1169 :

tes;

TST_PAT = %0°'070707°;

:24:31

55—0«-1933 83:51:22

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

}2' :

946

94.69

'lncr cm fm 0 So

'LOAD THE FIRST 13 I0_BUF WORDS WITH TST_PAT

1169 :
170
:
171 :

9469
9470
9471

GD
xrsa O:
MLTST = write:
TIME_OUT_LOOP;

'SET UP A GOOD BLOCK TRANSFER
DO A WRITE TRANSFER
IWAIT FOR THE TRANSFER TO COMPLETE

2173
;
21174
21175 :

9%
9%74
9%75

B_GEN = ZEROES:
P_GEN = ZEROES:
A_CAL = ZEROES;

2177 ;

9%77

21180 :
21181 ;

9480
9481

15 ;

21176 :

5“773 :

2115 :
21183
;

CAL_CRC ©);

ICALCULATE WHAT THE CRC CODE SHOULD BE

if ERR_CHK_CRC ()
then

INOW SEE IF THE GENERATED CRC CODE IS THE SAME

21189 :

9489

P"CAL = ZEROES:

949,
949

21195 :
21196 :

9495
9496

g‘l” 3

2119 5

9494

21197 :
21198 :

9500

ENDSUB;
:

35&;

1 074232

2121§ 074

21213

074242

ENDTST;

016703

000040

117334

IDROP THIS UNIT IF THE DODU FLAG GOT SET

( ML_LUN);

$T50:

87853 m
07

'REPORT THE ERROR IF NOT THE SAME

'END OF SCOPE LOOP

1f ooouFLG IS_SET

gzoa 074222 004167 107670
P4

SYNC, DUMPER);

end;

9%97
9498

zzg :

(133,

PRINTB (THR_FMT, WRD 5. WRD_64, WRD 8):
PRINTB (FMT_19, .B_GEN, .A_BEN. .P_BEN);
PRINTB (FMT-20, .BCCAL, .A_CAL, .P_CAL):
DODU_FLG = ONE;

9488

9490
9491

}
|

iCLEAR THE GEN & CAL SAVE LOCATIONS

&773

9484
9485
9486
9487

193

A_GER = ZEROES;

B_CAL = ZEROES:

S}m :
185 :
21186 :
21187 ;

21190 :
21191 ;
gwg :

rsrPAT;

976

8“8

21188 :

C.CNT

4.BLI.2 (100)

116752

JSR

R1,$SAVES

CLR

CLR
TRAP

BISB

MOV

;

9408

+ PAT.SEL

9445

9447

* DODU.FLG

#40,aML.REG+40

ML.DUT,R3

9443

9446

MACRO M1113 22-DEC-80 12:16 PAGE 2583
sMLG

(R3) ,PC
43~
536s-

*, TST.PAT

7s
#52525,R1
78
#-52526,R1
7$
#70707,R1
R2
R1.10.BUF (R3)
R2

RS, 4377
83

*, TST.PAT
*, TST.PAT
*, TST.PAT
CNT
CNT,
»
Se %,

TST.PAT

CNT

; CNT,»

PC,GD.BLK.XFER

i.n.nsc

YU=232
2%3
33
2 gt 3
3C55shEs
e

AL TR TR

TRTR

-REG+5

3335333383 558 i

e
5
g

333

R3.aML
. REG+40
R&.R3

w?'o

SRS

R
B

#177770,R3

#7.,aML .REG+40

#~1,R1

A T L R R

(393
&~

e e
R
R

. L

)

Pie v e ¥

074274

T
PA:

SP,»

116734

88"~

St
b
s

ool]

-Dec=1980 09:24:31

5-Dec=1980 09:21:22

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 5593

2-Dec-1980 09:21:22

sMLG

2-Dec=1980 09:24:31

074514

0127

1% 880004

5412

MOV

NFMT.19,=(SP)

74
76
76

1046414
1 71‘2
Y4

116410
1

TRAP
MOV
MOV

4
P.CAL,(SP)
A.CAL,=(SP)

75 074
D
74

;2
76

e
127

?‘%S
1
709 oooo””gz

oy
ADD

}? RS
#32,5P

; PAT.SEL

18
RS
118

; DODU.FLG

949

87‘61

%}%

1004

016700

104451
1046444
000207

TRAP
ROR
BLO
INC
(v,

BLE
DEC

116762

S1316 Orecoe 004767 177372
21319 07280 104466
2133%%
21

108:

MOV

118:

TRAP
TRAP
RTS

SP.RO

00%

10
000207

BLO
RTS

1$
PC

948
fié

19 words

; Routine Size: 6 words
; Maximum stack depth per invocation:

DODU.FLG

51
44
PC

pe.sTSO
66

.‘

; PAT.SEL,*

ML.LUN,RO

usm
TRAP

ROR

R4 .43

; Routine Size: 129 words

; SP,»

67
RO
1$

; Maximum stack depth per invocation:

S}Sfl

g 19 074634
21;51, 0746636

MOV

000003

301
21306
21307

21;18 074632

r
9486

G,
#4,~(SP}

296 074616
21297 072%
%11290 07

#4,~(SPS

o
MOV

103616

76604
7
074661

T
Pfi

LSS
33000:.

76
74
74

SEQ 0446 |

21
21
21

;;

0 words

TES

T
CZMLABO ML-11 LOGI C
MISCELLANEOUS CODI NG SECTION

§1
1
1

9501

MACRO M1113 22-DEC-80 12:16 PAGE F6603

!<BLF/PAGE>

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 261 3

H, A

S8Dec-1980 09:51:3)

0 :

35584.

g :

9505

;

2&2

9508

: TEST NAME:

1% :

9510

| TEST DESCRIPTION:

1349 :

9515

}

1348

ggg(‘) :

21352 ;

9511

gg}‘

!4+

9515 |

TEST NUMBER:

CORRECTABLE ERROR SYNDRONE DECODE TEST

TEST SYNDRONE DECODE AND ERROR

CORRECTION TO DECODE AND comecr

SINGLE aér AND nalit IPLE BIT

SIS, ISR

|
i
:

21357 :

9520

%1§§3
:
21363

338
| wLICTBeurs:
9506 |
A “VECTOR OF 256 WORDS WHERE DATA

21
21

R TR

TR1

A
PR
A
PR TR
PR P
A
A
A
TR P
A
T

SEREREREREEIIIIIIRNIS

21366
21367
21368
21369
2l
%11
1l

TR TR PR PR PR TR PR

511%

|
:

VIA ECC DIAG MODE FORCE SYNDRONE
BITS TO DECODE SINGLE BIT AND
MULTIPLE BIT CHANNEL ERRORS.

THEN DO A MASS BUS READ TRANSFER

AND EXAM THE 10 BUF FOR CORRECT
BIT COMPLIMENTIRG.

;gnrmm READS AND WRITES TRANSFERS

95;3 i
’
9530
|
9531 i
95;;
95
ocal
ggg
BITS_XFERED;
95;9 BAI = ONE;

!POINTS TO THE CHANNEL BEING TESTED
!BEFORE WE START LETS CLEAR OUT THE ML11'S
!GOOD BLOCK BY WRITTING ZEROES TO IT

A
MLTS1
= write;

9539

TIME_OUT_LOOP:

BITS_XFERED = -1;

!RESET THE CHANNEL POINTER

e incr PLOG from 0 to S do
9544

9545

TOPS-20 Blis =16 v2(212)
4.8LI.2 (101)

TST 51

9516
9517
gss}g
9521
%%f

IR DL

BGNTST;

21353 :
21354 :
gggg :
21358 :
§359 :

SEQ 0448

!TEST ONE CRC GROUP "6 ARRAY WORDS'

begin

incr CM{NEL from 0 to 35 do
n

!TEST 36 BITS IN EACH ARRAY WORD

gssgg

BITS_XFERED = .BITS_XFERED + 1;

!START OF SCOPE LOOP
!CLEAR THE DRIVE
! INCREMENT THE CHANNEL POINTER

955§

incr CNT from 0

!CLEAR THE FIRST CRC GROUP IN THE 10_BUF

9549
955

CLR_MBUS;

to 255 do

10_BUF [.CNT] = ZEROES;

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SEC TION

MACRO M1113

22-DEC-80 12:16

H 3
PAGE 462

-Dec~1
4:31
55-0«:-198883
1:22

:
H

SEQ 0449

9554

TOPS=20 Bliss=16 v2(212)
PA:<NEALE
4.BLI.2 (101)

:
:
:
:

9555
9559
955
9558

FORCE_REM (.PLOG, .CHANNEL);
GD_BLR
XFER ();
ECC DIS = ZERO:
MLCS1 = read;

1:83 :

9561

I;"r:ot FIND_COMP_BIT (.BITS_XFERED)

21405
21406 :

9564
9565

21408 ;

9567

%’;,‘1? :

355678

incr WRD_CNT from 0 to 12 do

21415 :
21413
21414 :
21415
21416 :
214617 ;
21418 :
21419 :
214620 :
21621 ;

9571
95;;
95
9574
9575
9576
9577
9578
9579
9580

it .10_BUF [.WRD_CNT) neq ZEROES
!TEST THE IO_BUF FOR ZEROES
b%
'REPORT
AN ERROR IF ANY OTHERS ARE SET
F (135, SYNC, DUMPER);
PRINTB (FOR_FMT, ‘WRD_61, WRD_74, WRD_75, PHR_S):
PRINTB (FMT-21,” .PLOB, .CHANRELS;
end:;
ENDSUB;
1END OF SCOPE LOOP
end;

g& :

21426 :

823
1
ggls. BITS_XFERED = -1;

'RESET THE CHANNEL POINTER

gg‘ :

gggg incr cw;wfl. from 0 to 35 do

ITEST 36 CHANNELS FOR MULTIPLE BIT ERRORS

21453 :

9588

ISTART OF SCOPE LOOP

5}231 :

214:'8
:
212;; :

959
35534

436 :

9595

ronce REM (58,

439 :

9598

% :

404 :

21407 :

21409 :

gzz

21430

;

437

438 :

9599

959

9599
9601

214646 :

9605

%og

iWAIT FOR THE TRANSFER TO COMPLETE

ISEARCH THE 10_BUF FOR THE COMP BIT

'REPORT AN ERROR IF THIS BIT IS NOT COMP

PRINTB (FMT-21, .PLoc. - CHANRELS;
end;

9568

9589

{ FORCE mxs BIT IN THIS WORD IN ERROR
iSET UPA GOOD BLOCK TRANSFER
'CLEAR ECC DISABLE
iDO A READ TRANSFER

E
(134
. DUMPER)
PRINTB (THR_rm WRD 74, URD 75 PHR_1);

9566

fi(‘) :
214‘2; :

§2’:.’; :

TIME_OUT_LOOP;

3558

9581

ISEE IF ANY OTHER BITS GOT COMP'ED

then

cuarspus-

RED = .BITS_XFERED + 1;

incr 10_BUF
CNT fral
[.CNT r zsaoes
XFER (J;

ect DIS = ZERO:

MLCS1 = read;

.CHANNEL):

TIME_OUT_LOOP;
incr BIT_OFFSET from 0 to 180 by 36 do

iCLEAR THE DRIVE

i INCREMENT THE CHANNEL POINTER

'CLEAR THE FIRST CRC GROUP IN THE IO_BUF
IFORCE n.L 6 BITS IN THIS CHANNEL IN ERROR
ISET UP
A GOOD BLOCK TRANSFER

'cw\a ECC DISABLE

iDO A READ TRANSFER

iWAIT FOR THE TRANSFER TO CMOPLETE
'SEE IF EVERY 36TH BIT GOT COMP'ED

:'fmr:ot FIND_COMP_BIT (.BITS_XFERED + .BIT_OFFSET)
begin

ISEARCH THE 10_BUF FOR THE COMP'ED BITS

'REPORT AN ERROR IF ANY OF THE BITS ARE NOT COMP'ED

ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 163

CZMABO
MISCELLANEOUS CODING SECTION
448 MG

249 :

4?? ;

960?

960
9608

zgg :

9,211

1460 :

9615

gzgg :
:

961
9618

g«ss :
466 :

9620
9621

21468 :

962

2;89 :

21461

21464 ;
21467

21469 ;
21473

%10

gg}%

479
480
481

484
485

ERRDF (134, SYNC, DUMPER);

incr WRD_CNT from 0 to 12 do

:'fm.‘m_u C.WRD_CNT] neq ZEROES
bggn

ERRDF (135, SYNC, DUMPER);

9624

7
7

ENDSUB;
:

;

CLR
JSR
MOV

10.8UF
PC,GD.BLK.XFER
#61,aM .REG

:
;
:

TSTB

#10,aML.REG+40
@ML.REG+SO

BPL
MOV
CLR
CLR

1$
#-1,RS
Ré

BISB

#40,aML.REG+40

BICB
INC

R2
R2

|
|

:
t

ASL
CLR

R2
10.BUF (R2)

INC
M
BLE
MOV

95
95
9541
954

954

: BITS.XFERED

9550

: CNT,»

955

#7.aML.REG+40

CLR

MOV

; *,BITS. XFERED
: PLOG
* CHANNEL

g.n.newo

S00 074762
21501 074764

'REPORT AN ERROR IF ANY OTHERS ARE COMP'ED

'TEST THE I0_BUF FOR ALL ZEROES

R1,$SAVES

BIS8

498
499

JSR

BISB

4
4

'IALSO SEE IF ANY OTHER BIT GOT COMP'ED

ENDTST;

m
¥

495

MOV
BIC

'END OF SCOPE LOOP

489
490
4

4.BLI.2 (101)

end;

TRAP

PA:<NEALE

PRINTB (FIV_FMT, WRD_61, WRD_74, WRD_7S5, WRD_12, WRD_67);
PRINTB (FMT_21, 58, -CHANNELY;

9619
962§

~Dec=1980 09:21:22

TOPS=20 Bliss=16 v2(212)

PRINTB (THR_FMT, WRD_74, WRD_75, PHR_1);
PRINTB (FMT_21, 58, -CHANNELY:

9619

5114.77 0

478 0

SEQ 0450

55-0«-1980 09:54:31

4s§ :
453 :

o3¢

R1.R2

R1
R1,4377

4
R&,=(SP)

+ CNT

955

: CNT
* ONT,»

9552

: PLOG,*

9555

m&.gRBliS\tz.Rmogam0esauEmRmmm”o&mm.”8a§m.nu%&gmB8RmiB.zla\mom8m0Em|RmmxmwmwBoe£8sm3s,'miBFm8mo2gxns‘k.3aoges
m m mwm m - mmmmm

gfig m30ga gag 2g
s
5
0
a
b
r
e
n
s
c
t
i
S
i
a
s
n
a
d
a
n
n
t
s
NI. Oim1[mmaeScoycand.m.io’ .masmmmm&mmRgS2
b G E ¥M 82 ¥ & BE B:
CZMLABO ML-11 LOGIC C TEST
MISCELLANEOUS CODING NG SSECTION

011600

2
mmm

&u,

MACRO M1113
22-DEC-80 12:16

sMLG

TRAP

TST

m
- WORD
. WORD
MOV
MoV
MOV
MoV
MoV
MOV
MOV
TRAP
MOV
MOV
MOV
MoV
MOV

PAGE 464

SEQ 0451 |

& |] 88 23 25 =%

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

K 3
PAGE 465

SEQ 0452 |

;ML

S -Dec=1980 09:24:31

ssgi |

07522

gg«s. 0752206
075¢
X

229 | 3,0

000022

000014

-Dec-1980 09:21:22

8s:

#22,5P

R1
R1.M4

(;P».(sm

;

* WRD.CNT
; WRD.CNT,#

95;#

‘,"

[

075946

; CHANNEL

9546

; PLOG

9543

#-1.RS

: *,BITS.XFERED

574 075556

gm 075260

rs»;? 075266
gg '

000005

g:.ns

177777

075¢
21580 075:

9s:

581 0750
gg 075310
D75314

gsas 07533(

587 07533:

21588 075334

389 07533

2
#60, ML .REG+40
m
R&
n
Ré
#7 , 3w .REG+40

"s'g 075322
075 8¢

Ré, @M .REG+40
RS
10s:

590 075344
N

22-DEC-80 12:16

R1.R2
R

10.BUF (R2)

:1:{“

?&024

3%
ffi»};v
596 075356

#72,=(SP)
R3,=(SP)

393 075370

s Se

% 73404

118:

% 07541

128:

07541

073416

& | g

G
608 0re
610 075436

§13 87360 033%2% oo
2161§ 075446 15746 oo?s%

: PLOG,*

: CHANNEL

:
:

; BITS.XFERED

pc'fiz S

(sh)y+

5
3%
SYNC

PIRCY ~(SP)
MRD.75,-(SP)

: CNT

9592

;; CHANNEL
,*

9595,

s CNT,»
: CNT =

959

'Ae;i »

Eg.-(sm

958

: BIT.OFFSET,*
: BIT.OFFSET

: BITS.XFERED,»

9603
9601

9607

byL~]ETRT3l
”\l.(l...o\lN )..\l.oolo\l
<88%33%292kBNORSEsSozS®W8IoSESo82
uxk NER R n Bgn n nu

Rs‘Q-ae-dMlzsR-eeIisR-an-tRe“an‘On0na‘s“Iyd'Iam-Enmt'uRlms-a‘wnE-nRad-vSiRas'no0OnSk“ai-ooonR-ne'ar-nyas-it‘anbnldn‘-nlEau’bat-aon-eeNu“n't.As8S R
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 266

sMLG

138

148:

158

TRAP

8LO
INC
P
BLE

RTS

)]
(=

ib g8 23

CZMLABO ML-11 LOGIC TEST

22-DEC-80 12:16

sMLG
; Routine Size:

HoY

MISCELLANEOUS CODING SECTION

MACRO M1113

690
M
gg

-Dec=1980 09:24:31

55-0«-1900 09:21:22
271 words

; Maximum stack depth per invocation:

075676

075
75704
75706

% 075710

004767
104466
006%
103

176736

000207

T51::

18:

JSR
TRAP
ROR
BLO
RTS

693
6732

21703
21704 ;

SEQ 0454

681
685
689

L
PAGE 467

9625

!<BLF/PAGE>

18 words

PC.$T51
66
RO
1$

: Routine Size:
6 words
; Maximum stack depth per invocation:

TOPS

PA:<

0 words

9622

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 468

MG
& .'l
!
BGNTST;

g¥

: TEST NUMBER:

gz :

: TEST NAME:

715 :

713 :

719

729 :

x22

UNCORRECTABLE ERROR SYNDRONE DECODE TEST AT CHANNELS > 35

i TEST oescaxmm
i

TEST SYNDRONE DECODE TO DETECT BUT

NOT CORRECT UNCORRECTABLE CHANNEL

ERRORS BY:

DIAG MODE FORCE SYNDRONE
VIA ECC
1. BITS
TO INDICATE CHANNEL ERRORS

i
@
9640 |

:
3

964

i
i

9646

:
3
:

9648
9649
9650

BITS SET
|
|
| IMPLICIT INPUTS:

gm:

5};’%‘ :

9641

9651

9652

;
21738

9655

;2‘ :

96609“’

736:

737:

739
;
740
:
741 ;
74.; :

AT msoragncmann CHANNELS

GREATER THAN 35.

9“96“5 ;
9647

9653

2. DO A MASS BUS READ TRANSFER

THEN EXAMIN THE 10 BUF FOR NO

BITS COMPLIMENTED AND ECH

AND

xoBUF

roa MBUS READS AND WRITES TRANSFERS

“VECTOR OF 256 WORDS WHERE DATA

9654 ||
9656
9657
9658
9659

TOPS-20 Bliss- 6 v2(212)(102
4.8L1.2
PA:<NEALE

TST 52

% ::

SEQ 0455

-Dec=1
:22
c-1333 33 51
35

709 ;
710 :
m :

ne ;

IS FOUND.

|
=

Local

'INDEX INTO REMAINDER TABLE 'REM_TBL'

10_BUF 2£noes
=

'FIRST LETS CLEAR THE 111 S GOOD BLOCK

745 :

746

% BAl =

767 :
748 ;
749 :
750 :

9664
9665

751 :

9669
966

9668

754 :

9671

9674

ol :

'POINTS TO WORD O IN THE CRC GROUP

1760 :

9679

£1 :

'POINTS TO WORD 1 IN THE CRC GROUP

;Ssg 3
1755 ;

;

969“970
ggg

gg;s

GD
MLUS1

BLK_XFER ();
= write;

iBY WRITING ZEROES TO IT

TIME_OUT_LOOP:

incr PLOG_SEL from 0 to 6 do

begin

case .PLOG_SEL from 0 to 6 of
set

PLOG = 0;

ITEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES

ISELECT A PLOG VALUE

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 269

g?gH, T

;7"9
1 3

S5Dec-1980 09:51:2)
3

177?3 :

9685

21775 ;

968

9688

3
21778 ;
gm :

9690
9691
969

§1774 3
1

780 ;

21781 ;

21;5 3
21
$

21784 ;
21785 ;
21786 :
21787 ;
21788 :
21789 ;
21790 ;
21791 :
21792 ;
21793 ;
2179 ;
gm :
796 :

969

G,y

9695
9696

9697
9698
9699
9700
9701
9702
9703
9704
9705
9706
9707
9708
9709

9710
9711

21800 ;

971

801 ;

gg 3

804 ;
805 ;
806
807 ;
808 ;
809 ;
810 ;
811 ;
81; 3
813
;
21814 ;

21815 ;
21816 ;

971

9714

9715

9719
971
9718
9719
)
9721
9 §
Q@
9724
9725
9
9727

9728
9729

TOPS=20 Blis =16 v2(212)
4 .BLI.2 (102)

PA:<NEALE

!POINTS TO WORD 2 IN THE CRC GROUP

!POINTS TO WORD 3 IN THE CRC GROUP
!POINTS TO WORD 4 IN THE CRC GROUP

9639

21797 :
21798 ;

21799 ;

SEQ 0456

5] :

!POINTS TO WORD 5 IN THE CRC GROUP

6] :

!POINTS TO ALL 6 WORDS IN THE CRC GROUP

tes;

PLOG

incr CH?NGL from 36 to 62 do

!TEST AT CHANNELS > 35 TO FORCE UNCORRECTABLE ERROR

CLR_MBUS;

!START OF SCOPE LOOP
!CLEAR THE DRIVE

incr COUNT from O to 255 do
10_BUF [.COUNT] = ZEROES;

!CLEAR THE FIRST CRC GROUP IN THE 10_BUF

FORCE_REM (.PLOG,

TIME_OUT_LOOP;

!FORCE _UNCORRECTABLE ERROR AT THIS WORD AND CHANNEL
!SET UP A GOOD BLOCK TRANSFER
!CLEAR ECC DISABLE
!DO A READ TRANSFER
!WAIT FOR THE
TRANSFER TO COMPLETE

if not ((.ECH_ERR) and (.UNC_ERR))

!SEE IF THE ERROR WAS DETECTED

GD_BLR XFER ();
ECT DIS = ZERO:
MLCS1 = read;
then

.CHANNEL):

i 0% I v
E

(136

PRINTB (FOR_rm

!ERROR IF NOT DECTECTED
10,

mm (FMT_21, .PLOG, .CM 5:

WRD_76, WRD_9);

incr CNT from 0 to 12 do
if .10_BUF [.CNT]

then

—

!SEE IF ANY CORRECTION WAS DONE
ZEROES

(137, SYNC,

!SEARCH THE 10_BUF FOR ALL ZEROES

'REPORT AN ERROR IF ANY CORRECTION WAS DONE

PRINTB (FIV_FMT, WRD 61,)lflb 764, f. WRD_75, WRD_12, WRD_67);

PRINTB (FMT-21,°.PLOB, .CHANREL
end;

ENDSUB;
end

!END OF SCOPE LOOP

pp—

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

818

MACRO M1113 22-DEC-80 12:16 PAGE 270

;M4

182

SEQ 0457 l

:24:31

TOPS=20 Bliss=16 v2(212)

PA:<NEALE

4.B8L1.2 (102)

end;

ENDTST;

3m1i

7571
75

$T52:

10 115270
S0
126
1 115212
115256
18:

757

835 oray
g?;,
841

28:

075762

845
846
847
848
849
850 ;%
851
gg 76004

000001

gg
858
859
860

000003
000004
000005

$183%
Oreo1s
855 %
;
50,

115514

150277

871 076106

010102

870 07610

#10,aML.REG+40
10.8UF
PC.GD.BLK.XFER
#61,aM .REG
@ML.REG+S

3
RS.R%
RG

:
:
:
:

962

966

PLOG. SEL
* PLOG.SEL,*

9668
9671

; PLOG
:
: *,PLOG

9%
9671
S,

MOV
BR
MOV
BR
MOV

#3.R3
11$
#6 R3
11$
#5.R3

: *,PLOG
;
: *,PLOG
:
: *,PLOG

9671
9671

108:
118:

MOV
MOV
TRAP
BISB
MOV
BIC
BICB
BISB

#72.R3
864 RG
2
#40,aML.REG+40
M
R2
i
R2
#7,aML.REG+40
R2.aML.REG+40

: = PLOG
+ *. CHANNEL
3
:

138:

MOV

R1.R2

78:
8s:
98:

115132

lc"fta
MOV
ASL

R1,$SAVES

3$(R4) ,PC
4$-38
S$g:
g:ss
3s
108-38
R3
11s
1 .R3

48:
58:

000072
000044

JSR

BISB
CLR
JSR
MOV
TSTB

ADD
LWORD
.WORD
-WORD
-WORD
-WORD
-WORD
.WORD
CLR
BR
MOV

38:

000002

865
aa;
86
88
869

55-0«:-1938 83:51:22

13
3

—

-Dec=19

13 3

———

128:

7 115114
115110

ROV
BR
B8R

CLR

}5‘::3
11$
11$

:: «.PLOG

o4
9671

: COUNT

9701

* COUNT,»

9702

MACRO M1113

ZMLABO ML-11 LOGI
HISCELLMGJS CoDI

22-DEC-80 12:16

PAGE 471

000022

011600

ane®a

§g§§§a§§§§§§§§§§§§§: *,asa§§§§§§£3§§§

XN NV

04414

005534
000003

R1,#377

s COUNT
; COUNT,»

R&,=(SP)
PC.FORCE .REM

s CHANNEL
,*

B (s

: PLOG,*

aeenSo
p’?l'
5
:

-REG+

noo.n.asmw

a&-REG+210

9714

; CHANNEL
,*
: PLOG,*

: CNT
>
; CNT,

46
46
7466
766
46
7466

R2
'I‘?.” (R2)

IR
D=—
b-]

158:

83333382

148:

SRS 3N 23R BB ARS8 IR NI R I IFREFBERASE

sMLG

9715

9723

.67 ,-(SP)

9724

CZMLABO ML-11 LOGIC

TEST

MISCELLANEOUS CODING SECTION

940
91

7641

SP.RO
14

MOV

R3,=(SP)

10416

127

07641
07641
07641

949

951

MOV

000024
000014

0764

076440

51954 076442

z}g’g 076446

SEQ 0459 |

188:

:
: CNT

BLE

17§

INC

86T

198:

JMP
RTS

; Routine Size:

ggg

#FMT.21,~(SP)
#3,-(SP}

#24,SP
R

27 000006
00020

R1 .44

213;; 076450

076450

004767

21975 076456
21976 076460

006000
103773

21976 076454

ggg 076462

1046466

000207

177236

152::
18:

: CHANNEL
,*

; PLOG.SEL

RS 46

198

PC,$T52

ROR
BLO

RO
1$

RTS

: PLOG.SEL,*

175 words

972
971

96&1

;
|

9624

9731

18 words

66
PC

; Routine Size: 6 words
; Maximum stack depth per invocation:

9725

R4 #76

JSR

TRAP

: CNT,»

(SP)+,(SP)+
67

; Maximum stack depth per invocation:

21964
21968

: PLOG,*

ADD
INC

BLE

177304

; CHANNEL, *
; SP,»

232
000167

R&,(SP)

SP.RO

TRAP

TOPS

PA: <

: SP,*

MOV

e
TRAP
ROR

21957

21979
21980

MOV
MOV

7 000076

gssi 764

21973

-Dec=1980 09:21:22

MOV
TRAP

21950

.
|

5 -Dec-1980 09=§4:31

010600
1046414

12746 005534
12746 000003

%4
945
946

&‘i

;MLG

9
933

MACRO M1113 22-DEC-80 12:16 PAGE 572

0 words

CZMLABO ML-11 LOGI C TES T
MISCELLANEOUS coplNG SE CTION
?909
1990

1991 ;

9734

MACRO M1113

! <BLF /PAGE>

22-DEC-80 12:16

PAGE 473

SEQ 0460 |

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 27‘

“

993 .MmLé

ss-bec-w :24:31

% 3
H

1997 ;
998
999 ;

-Dec=19

9735

BGNTST;

3;21

: TEST NAME:

% H

974

i TEST DESCRIPTIW

3;29

ERRORS BY:

H
:

7 2

144

87‘0! TEST NUMBER:

9744
9745

|
|

2009 ;
10 ;
%20}1 3

9748
9749
8;;?

|
|
:

22014 ;
22015 ;

9753
9754

|
|

2201§ s

22016 ;

22017 ;
22018 ;
22019 ;

22020 :
22021 ;
% 3

5 095
25058

22027 ;
22028 :
22029 :
22030 ;

22031 ;

975

9755

9756
9757
9758

9759
9760
3;61

4o
Sree

9766
9767
9768
9769

9770

220§ 3
22033
;
22034
22035 ;
:

9771
977775
9
9774
9775

2039 ;

9778

38 :

g&w 2

3775
9779

9780

3
2044 ;
2045 ;

9;5
9
9784

sgg“g s
22046 ;

55047

9781

9785

9786

:21:22

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3ML4.BLI.2 (103)

9
G
G

% :

SEQ 0461

TST S3
MULTIPLE CHANNEL ERROR SYNDRONE DECODE TEST

TEST SYNDRONE DECODE TO DETECT BUT NOT
CORRECT WCG!RECTIBLE MULTIPLE CHANNEL

VIA ECC DIAGNOSTIC MODE FORCE SYNDRONE
BITS TO INDICATE MULTIPLE CHANNEL ERRORS
BY ASSIGNING CRC_A EQUAL TO CRC_B

2. DO A MASS BUS READ TRANSFER
3.

THEN EXAMIN THE IO BUF FOR

NO BITS

COMPLIMENTED AND ETH AND UNC BITS SET

|
| IMPLICIT INPUTS:
i
10BUF
|
“VECTOR OF 256 WORDS WHERE DATA

‘
:

F('R MBUS READS AND WRITES TRANSFERS
IS FOUND.

Llocal

'INDEX INTO REMAINDER TABLE °"REM_TBL'

BAI = Gf

10_BUF
= 2ER(IS

GDBLK_XFER Q0);
MLTST
= write;
TIME_OUT_LOOP;

dncr PLOG_SEL from 0 to 6 do

case .PLOG_SEL from 0 to 6 of
set

'FIRST LETS CLEAR THE ML11'S GOOD

'BLOCK BY WRITING ZEROES TO IT

'TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES

'SELECT A PLOG VALUE

[0l :

'POINTS TO CRC WORD 0

1] :

'POINTS TO CRC WORD 1

PLOG = 0;

PLOG = 1;

MISCELLANEOUS C

TEST
CTION

Bfi

CZMLABO ML-11 L

MACRO M1113

22-DEC-80 12:16

H_&
PAGE 475

S5Dec-1980 09:51:22

CBVRNR NSO

oo
s ksBRLLLERLRS8LR

$103

AMIATRAIATEATE

PRTEA

PRTATE

PR PR PR PR

R TR

TRTR 1

St
v ageaans RRS&Re

9 MG

SEQ 0462
TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3ML4.BLI.2 (103)

2] :
PLOG = 2;

!POINTS TO CRC WORD 2

(3] :
PLOG = 3;

!POINTS TO CRC WORD 3

4] :
PLOG = &;

!POINTS TO CRC WORD 4

Cs] :
PLOG = 5;

!POINTS TO CRC WORD 5

6] :
PLOG = 58;

!POINTS TO ALL 6 WORDS IN CRC GROUP

tes;

incr CH?MEL from 1 to 35 do
n

!TEST 35 CHANNELS STARTING AT CHANNEL 1

CLR_MBUS;

!START OF SCOPE _LOOP
!CLEAR THE DRIVE

incr COUNT from 0 to 255 do

!CLEAR FIRST CRC GROUP IN THE 10_BUF

E%CfiREC'(‘CPEOG. .CHANNEL) ;

!FORCE ERR AT THIS WORD AND CHANNEL

10_BUF [.COUNT] = ZEROES:
=

GD_BLk
XFER T);

ECt DIS = ZERO

MLCST1 = read;

TIME_OUT_LOOP;
if not ((.ECH_ERR) and (.UNC_ERR))
then
in

'CRC_A EQL TO CRC B CAUSES THE UNC ERROR
!SET UP_A GOOD BL
TRANSFER
'CLEM ECC DISABLE
!DO
A READ TRANSFER
IWAIR UNTIL THE TRANSFER IS COMPLETE
!SEE IF THE ERROR WAS DETECTED

!REPORT ERROR IF NOT DETECTED

WRD 10, WRD_76, WRD_9);
mm (rnr‘21. .PLoc. .cm
5:
incr CNT from 0 to 12 do
H‘ .10BUF [.CNT] neq ZEROES

!SEE IF ANY ERROR CORRECTION WAS DONE
!TEST THE I0_BUF FOR ALL ZEROES

bflflor (139,

!ERROR IF ANY BITS GOT FLIPPED
. DUMPER);
PRINTB (FIVFHT “WRD 61, HARELS
WRD 74 WRD_75, WRD_12, WRD_67);

PRINTB (FMT-21, .PLOB, .CHANRE
end;

ENDSUB;
end

'END OF SCOPE LOOP

MACRO M1113 22-DEC-80 12:16 PAGE 276

9839

end;

32? ENDTST;

s54Baseaim

M‘ Sa

e'tatataaaeta ‘s et*asta*s

105426
10
113076
117354

3g a g2z oa.2 5¥8
TS9SN . . .

35Dec-1980 09:51:22

mn38aa2mmnwm3mmenmwmMIg ammm.mw.mmmzmmm-mw_mnmmwmmmnmmmsmmmvmmammmmmmwmmmmmwmmmmewm.,emmm,imwmmmmmmmmm

SEQ 0463

-—a

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

114440

ITIVITITITRANIRARE

o mm888 oY

114 :

114516

076534

000001

000002

000003

000004
000005

72
1

sone

114360

2 e

J_ &4
PAGE 477

22-DEC-80 12:16

SEQ 0464 |

JMLG

: PLOG,*

s CHANNEL
,*

9818

P ]

g Lt

3 338

.REG+60

.@ML

981
981

-REG+210

25%

=(SP)
-~(SP)
-(SP)
.

SP'.

; CHANNEL
,*
: PLOG,*

158:

981 g

237%

114370

g33%="

000100

14$:

8382 oc-qm‘—fl. TR ELLERLLELLLE

116246

117126

9811

9812

0 W=

T1e372
14

§3582833 ag S

—=h

1166

9808

g 8

I#Tg

s COUNT
s COUNT,»

;

000377

Pk:fi

: CNT
; CNT,»

011600

-Dec-1980 09:24:31
:22

5 -Dec=1980 09:

TOPS

10.BUF (R2)

MACRO M1113

BRYRRRES

TR IRRRERD2BIAIJFANANIITEIRERER2S

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

K_&
PAGE 478

SEQ 0465|

-Dec-1980 09:24:31

%71 74

005534
000003
000024
000014

18$:

:34RS ShS
']

—

177256

INC

R1
R1 414

TM
TRAP

(SP)+, (SP)+
67

1039%

000207

177210

* CNT

; CHANNEL

RTS

153::
1%:

PC,$753
66

RTS

ROR
BLO

; PLOG.SEL

: PLOG.SEL.*

JSR
TRAP

RO
1%

s CHANNE,*
L

w8
BGT
208
JMP

9833

SP‘.

=
2 CNT

RO
128
R4
RG 443

186 words
; Maximum stack depth per invocation:

004767
104466

s CHANNEL
,*
; PLOG,*

208:

TOPS

PA:
<

17$

; Routine Size:

%-Dec=1980 09:21:22

MRD.61,~(SP)
#FIV.FMT,-(SP
#6,~(SP)
SP.RO
14
R, (SP)
R3.-(SP)
#FMT.21,=(SP)
#3,-(SP}
SP RO
14
#24,SP

ROR
BLO
INC
cTMP

000043
177372

MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
BLE

&»

g.‘-c

g-._.-..a

sSN O
ddgflflfi5

sMLG

9775
9733

18 words

ML-11LOGIC TEST
MISCELLANEOUS CODING SECTION

“

MACRO M1113 22-DEC-80 12:16 PAGE 279

MLG

; Routine Size:

281
282 ;

SEQ 0466 |

4:31
T
55-ooc-1900
83 51
Pzi
6 words

: Maximum stack depth per invocation:
9842

!<BLF/PAGE>

0 words

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 480

5 ~Dec=1 38 83 54:31
~Dec=19
1:22

TOPS=20 Bliss=16 V2(212)
PA:<NEALE
4.BL1I.2 (104)

000000000000 % 900909000090,

]

BGNTST;
t4e

: TEST NUMBER:

TST 54

: TEST NAME:

SINGLE BIT ERROR SYNDRONE GENERATION & DECODE TEST

i TEST oescaxmon

i
i

TEST SYNDRONE GENERATION, SYNDRONE DECODE
AND ERROR CORRECTION FOR SINGLE BIT CHANNEL

CLEAR THE FIRST CRC GROUP IN THE

VIA DATA DIAGNOSTIC MODE FLIP A BIT

i
i

THEN DO A MASS BUS READ TRANSFER AND
EXAMIN THE 10 BUF FOR ZEROES INDICATING

ERRORS BY:

90000000000

I0_BUF AND GOOD BLOCK TO ZEROES

TO A ONE

THE CORRECTION WAS PERFORMED

REPEAT WITH ALL BITS IN THE CRC GROUP

i IMPLICIT INPUTS:
9870
9871

%873

§§§§§§3§§§§8§§§* W

B %000 00 %0 000090 0000909090 9000009000090 %0 %0 9009009%:0%0%:00% 909,90 %

D med =E
e

) d

NOWVSUWN=O

b e o

SEQ 0467

9874
987

i
:
i

xo_aur
VECTOR OF 256 WORDS WHERE DATA
roa MBUS READS AND WRITES TRANSFERS

i
i

PD_TEMP
A BIT VECTOR OF 16 BITS WHERE THE READ

IS FOUND.

PROM DATA IS STORED AND ACCESSED FROM.

:
local

DONE

NIBSEL,

iPOINTER WHERE SBE IS TO BE WRITTEN

NIB_PAT : bitvector [4],
_GRD_CNT;

FLAG

ISTORAGE FOR SBE DATA GENERATED

iCOUNT OF WHERE GOOD °NIB_SEL' ARE FOUND

incr“ugacm from 0 to S do
fncrbgg_cm from 0 to 35 do

'FORCE SINGLE BIT ERRORS IN ONE CRC GROUP
'FORCE SBE'S AT EACH BIT OF A WORD

incr CNT from 0

10_BUF C.CNT]

to 255 do

= ZEROES;

ICLEAR FIRST CRC GROUP OF 10_BUF

!
|

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 481

-Dec~1

::
?1§
22345
;

2343

1CLEAR

22350 ;

22351 ;

{i :

9905

22356

9908

3
¢
22355 :
2237

2358 ;

59 :
77

SOLU

9909
950
9909

9910

gg111

;

9915

22365 :

9917

22305

22364

9918
9919

22570

”2

e Y ;
77

SOF

IWITH ZEROES PAT AND CRC BIT

NIB SEL = ancn'm
T

ER ()

'ZEK!S PAT
!CAL
TE THE NIBBLE WHERE THE SBE IS TO GO

MLCST = write;

DELAY (ONE_US);

ISET UP A DATA DIAG MODE TRANSFER
!D0 A WRITE TRANSFER
!GIVE THE PROM DATA TIME TO GET OUT

!FIND THE GOOD NIB AT THE TESTED WORD

g’ffifl’- MLPD;
if .PD_TEMP [.NIB_SEL] IS_SET
then
DAT_CLK = ONE
else
begin
GD_WRD_CNT = .GD_WRD_CNT + 1;

9916

22506 ;
1‘- 3

DRIVE AGAIN

!CLEAR
DONE _FLAG
COUNT
'RESET
!LOAD THE DATA DIAG REG (OITS 0-38)

ge 49y ;

99%1

!READ THE PROM DATA FOR THIS ARRAY WORD
!I1S THIS A GOOD NIBBLE

!IF NOT THEN GET THE NEXT ARRAY WORD

'ELSE SEE IF WE ARE AT THE TESTED WORD
!UP THE COUNT
!AND SEE IF WE ARE DONE

?”? 2

if .GD_WRD_CNT eql .WRD_CWNT then DONE = ONE else DAT_CLK = ONE:

:
2¢
22374 ;
:
2¢

end;

22
7S

9925
9929
992

22379

;

99?
9931

22383 ;

9935

2 378

223580
{L.

:
:

eI0C

22384

22385

;

223586

22388

22387

;

; 89 ;

i
22392 ;
90

v2(212)

TOPS-20 Bliss=16
4.BLI.2 (104)
<NEALE
PA:

'CLEM THE DRIVE
ISET UP A
BLOCK TRANSFER
'DO A WRITE
TRANSFER
!WAIT UNTIL THE TRANSFER IS COMPLETE

2246
T4
74 4
74 - &

235¢

:26:31

35-0«-1% 83:3?:32

22340 M6

SEQ 0468

Q9
g

9939

9940

9941

B
9944
9945

end
until .DONE IS_SET;

!REPEAT UNTIL WE ARE DONE

NIB_PAT = ZEROES

!CLEM THE SAVE LOCATION

DS:TW. ‘o S'

!CLEAR THE OTHER NIBBLES IN THIS ARRAY WORD
iT0 BE ZEROES PATTERN AND ZFROES CRC PATTERN

uxaat.lmcu’t mod 4] = ONE;

LDLNG_WRD (.NIBsa. .NIB_PAT);

WRT_LNG_WRD;

s,
BGNSUB
CLR
GD

ECC_DIS

ER ();

NDSETMS& IN THIS NIBBLE

ILOAD
SBE _INTO
SAVE LOCATION
IAND WRITE THE SBE
TFEMTA DIAG RES'S
SBE NTO THE ARRAYS MEMORY
! CLOCK
SCOPE_LOOP
THE

= ZERO;

MLCST = re“.

TIME_OUT_LOOP;
incr CNT from 0 to 13 do

!SEE IF THE SBE WAS CORRECTED

MACRO M1113 22-DEC-80 12:16 PAGE 282

sMLG

s -Doc-1938 83:56:%1

-Dec=19

e
-.-.dgg
g8
§
S LESSRRSRERERN2
RRSAN
2
323
18 g

:'f‘".‘lo_” C.CNT] neq ZEROES

begin
£

(140,

SYNC,

'END OF SCOPE LOOP

113614

: WRD.CNT

:{.R‘

: CNT
: CNT,
=

* BIT.CNT

10.BUF (R4)

; CNT
; CNT,»
3

b ]

R3
R3,#4377
3s
:ll.o OI..QEGMO

)

=F 4

#7.aML.REG+40
e

)

—

48:

BICB

113646

R1,$SAVES

70, sp

32C23C g ;
CLR

MoV

#6 .n.gse

BISB
MOV

#40,@ML.REG+40
R

2(SP

; DONE

g{fl

&ML .REG+
4%

BICB ?’7.&.&“&40
@

S
O

3
~N

JSR

BLE
BIS8

é@? 113576

diia
Rt Rl
22449 077436 005077 113;‘1’3

$754:

000040

4.BLI.2 (104)

PRINTB (THR_FMT, PHR_12,
WRD_76, WRD_9);
PRINTB (FMT-22, .WRD_CNT, .BIT_CNT);

113664

113570

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

'ERROR IF THE ERROR WAS NOT CORREC TED

R);

end;

:21:22

!TEST THE I0_BUF FOR ALL ZEROES

ENDSUB;

e
O

SEQ 0469

CLR

o
CLR

i d §38 &

MISCELLANEOUS CODING SECTION

Hie,

aML .REG+200

Rt
;

CZMLABO ML-11 LOGIC TESY

9901

£
9904

S1
S§

24 14

012777 060000 113664

%
??

¥
30476

00
~
012703
001411
016

114472
000061 113456
000001

005066

000012

00530

75
;9
g

JMLG
3

10829%

102406

OC
4
NOS
20
D007

58
68:
78:

010504

8s:

DOG2(

'3‘:
0131
017767 mefg 113350 9s:
LU

)

010546
062716 177770
0127646 000001
103346
-;06 000010
006767

MOV

aML.REG+160

o
JSR

Rl
Pc:% v

JSR
MOV
MOV
BEQ
MOV

PC.DAT.DM.XFER
#61,aML .REG
#.R3
23
gou.m.

BEQ

CLR

12(SP)

DEC

BNE
DEC
BR

63
R3
b3 ]

ASR

MOV

RS.Ré

SEQ 0470|
22-Dec-1980 09:24:31
22-Dec-1980 09:21:22

aML .REG+230,PD.
TEMP
:ngss:;
#77770, (SP)
o}é;gspf

4(SP).R1

*,NIB.SEL

*, $STMP2
*, SSTMP1
SSTMP
SSTMP1

$STMP2

NIB.SEL,*

e
¥

Do
5049
52

15788 000001 000006
5277
113442 108
02
%&g 000001 118
005066

000010

AL
#20,aML.REG+120
6(SP)
.#

DONE
,*

D
BISB
P

MOV

%.-(SP)

BIT.CNT,»

104104

JSR

PC.BL

225(

006200

2250¢

NGOG0

000014

ASR

010246

225¢

20620C
012703

230a0 Gr7ong 010446
Oioots
SU

BNE

CLR

ASR

fi§>

10(SP)

; GD.WRD.CNT
GD .WRD . CNT ,WRD . CNT
~,DONE

NIB.PAT

MOV

#14.R3

oy
MOV

ADD

RIS
oooons
026601 000004
w}} '

9915

PC,BLSGT2
#10,spP

22486

T
PA:

BIT.CNT,*

E:o TEMP, R4

MOV
%
BIC
'c'fav
JSR
sgg

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 283

SP,flS
P

R4 .~(SP)

NIB.PAT
,»

CZMLABO ML-11 LOGIC TEST

MACRO M1113

22-DEC-80 12:16

PAGE 484

5
SEQ 0471

—
=
—
=
~
—
TR5,8ST53m582LmLoe2PMNie%3e 5I A3TA0s3Ti2sRT%SNYRRLNP21T3
5a =BWF R - 8 - B RBR M82

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

sMLG

m.m,.;.‘3.mmwmogymmmnnmnno5wmmS

£3v 88 &g 35

111216

=e =e L

o83

128

138

14$:

WO
113534
177770

113152

158

131
“&%z
115772

%712
13114

168

178

011600

5
SEQ 0472 |

2 -Dec~1 nomgun
2 -Dec-1 980 09:21:22

000020
000015

188:

000020

000043
177030

000005

006016

198:

208:

#FEMT.22 -(SP)

#3,-(SP)
RO

§§0.SP

T564::
18:

: CNT

»
s CNT

17$

BIT.CNT
BIT.CNT,
»

; WRD.CNT

s WRD.CNT,~

RTS

; Routine Size:
259 words
; Maximum stack depth per invocation:

176766

SP,*

805003

53837389RERa3ReRE230

H, B

26 words

PC.$T754
66
RO
1$

; Routine Size:
6 words
; Maximum stack depth per invocation:

T0PS

timim @

MISCELLANEOUS CODING SEC TION

MACRO M1113 22-DEC-80 12:16 PAGE 585

0 words

0§

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F 5
PAGE 486

SEQ 0473|
-Dec-1

; -Dec=19
! <BLF /PAGE>

:24:31

:21:22

TOPS-20 Blis =16 v2(212)
4.8L1.2 (104)

PA : <NEALE>BL

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 287

MISCELLANEOUS CODING SECTION

Ss-boc-wsg 83:54:31

-Dec~19

:
:
:

9963
9964
9965

!
BGNTST;

] :

: TEST NUMBER:

?’ggg

: TEST NAME:

9971

| TEST DESCRIPTION:

22636 ;

SEQ 0474

9966

99;;

!4+

MULTIPLE BIT ERROR SYNDRONE GENERATION AND DECODE TEST

TEST SYNDRONE GENERATION, SYNDRONE DECODE

AND ERROR CORRECTION FOR MULTIPLE BIT

9974
9975
9976
3;78

|
|
|
:

226’»§ H
22643 ;
22644 ;

9979
9980
9981

i
|
|

22648226‘7 :

mms

22649 ;
22650 ;
22651 ;
2265'§’ 3

9986
9987
9988
9989

|
4. REPEAT FOR ALL CHANNELS IN THE CRC GROUP
|
| IMPLICIT INPUTS:
|
PD_TEMP

22654 ;
22655 ;
22656 ;
22657 ;
22658 ;
22659 ;
22660 ;
22661 ;

9991
999%
9993
9994
9995
9996
9997
9998

|
i
i
|
i
|
|
|

22653

;

$56aS ::

22664 ;
22665 ;
H

9990

Yoo
10000

i
i

TOPS~20 Bliss~ 6 v2(212)

PA:<NEALE>BL3ML4.BLI.2 (105)

TST 55

22637 ;
22638 ;
22639 ;
gfi? H

22645 ;
22646 ;

:21:22

CHANNEL ERRORS BY:
1.

CLEAR THE FIRST CRC GROUP IN THE
I0_BUF AND GOOD BLOCK TO ZEROES

VIA DATA DIAG MODE FLIP ALL BITS IN
A CHANNEL TO ONES

THEN DO A MASS BUS READ TRANSFER AND
EXAMIN THE 10 BUF FOR ZEROES INDICATING
THE CORRECTION WAS PERFORMED

A BIT VECTOR OF 16 BITS WHERE THE READ

PROM DATA IS STORED OAND ACCESSED FROM.
0_BUF
A VECTOR OF 256 WORDS WHERE DATA
FOR MBUS READS AND WRITES TRANSFERS
IS FOUND.

10001 Llocal
1%
NIB_PAT : bitvector [4],
1
NIB_SEL,

ISTORAGE FOR SBE TO BE GENERATED
‘POINTER TO WHERE ERROR IS TO BE WRITTEN

$5670 H

}% E2_TEMP<12, 3> = Xb'110°;

'LOAD DATA STRUCTURE WITH ZEROES CRC PATTERN

22671 ;

10008 incr BIT_CNT from 0 to 35 do

!TEST FOR MULTILPLE ERRORS AT 36 CHANNELS

7 :

226g 3
%76 H

75 :

ggg;g H

}ooos

GD_BRD_CNT;

10009
}88}(1)

bain
CLR_MBUS;

1001

incr CNT from 0

}%é

!COUNT OF WHERE GOOD °*NIB_SEL' ARE FOUND

'CLEAR THE DRIVE

to 255 do

I10_BUF [.CNT] = ZEROES:;

!CLEAR FIRST CRC GROUP IN THE I10_BUF

-y

D D e

d D

T
CZMLABO ML-11 LOG IC
MISCELLANEOUS CODING SECTION

TIME_OUT _LOOP;

MLEST

ICLEAR D

NIB_PAT = ZEROES:

ma&er
C.BIT UNT mod 4] =

NIB_SEL = .BI]

iCALCULATE THE NIBBLE TO BE IN ERROR

i CALCULATE AND flf

'LOAD THE ERROR IN

T TO BE IN ERROR

D1_TEMP OR D2 TEMP

iLOAD THE REGISTER uITH THE ERROR

DAT-DM_RFER ();

AR
SRR S
R

rar

iCLEAR uxmPATTERN

(.RIB_SEL, .NIB_mS

: SET UP_A DATA DIAG MODE WER

MLCST = write;

D0
A WRITE TRANSFER

DELAY (ONE_US):

‘GIVE THE PROM DATA TIME TO COME OUT

!LOAD THIS CHANNEL WITH MULTIPLE ERRORS

339799 .MLPD;

'READ THIS ARRAY WORDS PROM_DATA

:;.aro_rsm C.NIB_SEL] IS_SET

ISEE IF THIS A GOOD NIBBLE

: DAT_CLK = ONE

'CLOCK OUT ANOTHER ARRAY WORD IF BAD

eLse

begin
GD\RDCNT comocmn.DAT_CLR
=

e
D D d D ) D e
D b d d

WRY_

.BLI-2 (105)

TOPS-20 Blis -12 v2(212)

1IN THE ML11°S GOOD BLOCK

ICLEAR D.

PRt

'ALSO CLEAR THTE FIRST CRC GROUP

D2"TEMP = ZEROES:

d D D D d D e

D cd D e

SARRAARRA

716
22n7
ggg

D d

gns

D e

2271§

22714

SoDec1980 $0:51:3)
'CLEAR C

'ELSE CLOCK IN THE ERROR INTO A GOOD NIBBLE

end;

end

until .GD_WRD_CNT eql 6;

'REPEAT UNTIL 6 WORDS ARE WRITTEN

'START OF SCOPE LOOP

fi’s

ICLEAR OUT THE DATA DISG MODE TRANSFER

XFER ();

ISET UP A GOOD BLOCK TRANSFER

Ect DIS = o
MCS1 =
TIMEourLoofi

iENABLE ERROR CORRECTION
iREAD OUT THE ERRORS
IWAIT FOR THE TRANSFER TO COMPLETE

incr WRD_CNT from 0 to 13 do

!SEE IF THE CORRECTIONS WHERE DONE

if .10_BUF [.WRD_CNT] neq ZEROES
then

) b

225;111

SEQ 0475

_WRD CAT = ZERO;

bmr

D wd

22710

H S
PAGE 488

= write;

141

DUP§

PRINTB (THR_m PHR_1

!TEST THE I0_BUF FOR ALL ZEROES
!REPORT THE ERROR IF ANY LOCATIONS ARE NOT ZEROES

76, WRD_9);

PRINTB (FMT_22," .WRDcuf.BIT_CNT);

708

22709

b e e

22705
22706
22707

gfi%

—

22-DEC-80 12:16

xren O:

D D

D D D D

0013

MACRO M1113

ENDSUB;
end

ENDTST;

'END OF SCOPE LOOP

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 1895

SEQ 0476

S5Dec-1980 89:51 :22
:31

103604

110634

$755:

110626
112654

JSR

8ic

18:

#40,aML.REG+40
%
R2
R2

BISB

R2.aML.REG+40

BICB

INC
P
BLE

177770
000001

3s:

JEe.T

BISB
MOV
BIC

CLR
ASL
CLR

000010

"ég”%sm

g{g

112636

112536

R1,$SAVES

1
2
10.8UF (R2)

R1,4377

JSR

PC,GD.BLK. XFER

TSTB

ML .REG+

MOV

s CNT

s CNT
=
CNT
CNT, »

61,0,

B8PL
CLR

3
RS

JSR
MOV
MOV
MOV
JSR
MOV
ASR
ASR
ASR
MOV
ADD
ADD
MOV
MOV

PC.BLSDIV
‘R
=(SP)
=(SP)
-BLSMOD
i
RO
RO
RO
#10.R1
SP.R1
R1.R0
RO. (SP)
R2.-(SP)
M ,-(SP

BIC

; BIT.CNT

#7.aML.REG+40

(< 167

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>BL3ML4.BLI.2 (105)

]

os(sp)

(SP) ,=(SP)

NIB.PAT
,*

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

J_ 5
PAGE 490

SEQ 0477 |

3 ~Dec=-1980 09:24:31

102646
1
1
1
1
110374
1
1
1
101306
000022

-Dec=1980 09:21:22

JSR
MOV
JSR
MOV
MOV
MOV
JSR
MoV
MOV
BEQ
*nox
CLR
DEC
BNE
DEC
B8R
MOV
ASR
MOV

112574
11257
11255
112356
48:
58:

68:
78:

ASR

0131

112536

ASR

112250 8s:

177770
000001

102246
000010
m 112362 98:

12262

115104

112226

n22es "
112246
115310
112162

11$:
128:

011600

ADD
MOV

MOV
BIC
MOV
CLR
JSR
ADD
DEC
BEQ
INC
BIS8
g:

MOV
BIC
BICB
BISB
JSR
BICB
MOV
TSTB
B8PL
CLR
MOV
ASL
ST

PC.BLSPU2
16(SP) ,=(SP)
Pg.w.ucs.w
D1.TEMP,aML.REG+170
os.rav.n.assozoo
E2.TEMP.aML .REG+160
PC,DAT.DM.XFER
#61, a0 .REG
M .R1
73
gou.nz
sgtsm
5%
R1
X
R4 ,R2
R

Ré, (SP)

; NIB.SEL,*

: NIB.PAT.*

:
: o, 88TMP2
; =, $STMP1
; SSTMP

TOPS

.
|
|
|
i
ooé
1
1%
1
'
1002

: SSTMPY

; SSTMP2
; NIB.SEL,*

100

aML.REG+230,PD. TEMP

;

1oo§

Ré.=(SP)

: NIB.SEL,*

-($P)
PC,BLSGT2
n0.sp
RO
9
RS
:go.a.neeflzo
M6

:
* GD.WRD.CNT
:
* GD.WRD.CNT,*

#PD.T

ne7770, (SP)
M,-(SPJ

540,am.REGH40

u%nz
&
R2
#7.aML.REG+40
R2.aML.REG+40
-GD.BLK
. XFER
#2 @M .REG+1
@M .REG
@ML_REG+
118
R1
R1.R2
R2
10.BUF (R2)

1oo§
100
1004
1004

1004
1004
1004
1005

: WRD.CNT

* WRD.CNT,*

1005
1005

CZMABO ML-11 LOGIC TEST

MISCELLANEoUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

K 5
PAGE 491

SEQ 0478 |

sMLG

9 10101

10ne

851

353

H
gg

22857
1
358 1
1

1
1
1
1
1
1

b 1
10107
3 1011
9 1011

1011

101113
101115
10111

?
7

7636

?
?

MWORD

215

.WORD

DUMPER

MOV
MOV

m.rg.-(sm
#PHR.13,-(SP)

TRAP
MOV
MOV

MOV
MOV
MOV

04641
16
146

766 005606
7646 000003

MOV
MOV

06414
706 000020
201

TRAP
ADD
INC

14
#20.SP
R1

BLE

1;!

127

006690
508707

1011

000015

MOV

138:

ROR
B0

101142

22899 101146

104466

BIT.CNT,*
.CNT.*

,
1006/

; SP,»

R1,M5

p
: WRD.CNT

1&%
1

1008
1

* WRD.CNT,»

RO
108

ADD

go.sp

;

000043

R3, 443

: BIT.CNT,»

(SP)+,(SP)+

9961

1006

INC

148:

000207

004767

PA:
1ooq

: SP,*

SP.RO

(TM

RTS

177140

TS5::

18:

JSR

TRAP

: BIT.CNT

: Routine Size:
206 words
; Maximum stack depth per invocation:

101142

09:24:31

000020

18}136 833626

;

#THR.FMT,-(SP)
,=(SP)
.

L (SP;
R1.=(SP)
#FMT 22 ,~(SP)
#3,-(SPS

18}1

101140

BEQ

2855
1
22856 1

-Dec=1980

sg-m-mo g:%:ZZ

PC,$T55
66

24 words

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE k92

SEQ 0479

H, T

-Dec=1980 09:24:31

ROR
BLO
RTS

RO
1%

; Routine Size:
6 words
; Maximum stack depth per invocation:
10067 !<BLF/PAGE>

SS-M-W” 09:21:22
0 words

PA:<

nSs
MACRO M1113 22-DEC-80 12:16 PAGE 493

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MG
:
:
:

10071 !4+

;; | TEST MMBER:

:
:

}
1

;g ; TEST NAME:
;9 i TEST DESCRIPTION:

1% i

10009 i

}0039:

1
100;8
10079
}(moo»o1

i
i
|
:

ECC ERROR REGISTER TEST

TEST THE ECC ERROR REGISTER FOR
CLEARING AND LATCHING OF ECC ERROR
INFORMATION ON DETTECTION
OF ECC ERRORS BY:

1
i
}38345' ;

}ooc

TST 56

THIS TEST IS TABLE DRIVEN.

DATA TABLE (DT_1)

CONTAINS ERROR FORCING DATA AND EXPECTED
MLEE DATA AS A RESULT OF THE FORCED ERROR

THE TEST THEREFOR INDEXES INTO DT_1 TO FORCE

AN ECC ERROR

A MASS BUS READ TRANSFER IS DONE

10091:::
i
1ooo§ i

4. DT_1
IS AGAIN INDEXED AND ITS CONTENTS
IS”COMPARED AGAINST THE RESULTING

10095 |

10098 |

1o18§
18104

:
:
3

}% :

MLEE REGISTER

}3339 :
}8?30? :

101

181&
CLR
:
}mg FINISH = &;

:
:

TOPS=-20 Bliss=-16 v2(212)
PA: <NEALE
4.8L1.2 (106)

'
BGNTST;

1
}
}

:
.

SEQ 0480 |

55—0«-1938 83’5"3'
-Dec=19
:21:22

:
:
:
:

?
{

101
}o;o

CONTENTS

A MASS BUS CLEAR IS DONE AN MLEE IS CHECKED FOR
ZEROES

THE ECH BIT IS ALSO EXAMINED FOR CORRECT

LATCHING INFORMATION

local

FINISH,
ERR_FLG;

IVARIABLE ENDING CONDITION FOR LATCH_LOOP
1ERROR FLAG

ICLEAR
THE DRIVE
IMAKE LATCH_LOOP DO 5 LOOPS AT FIRST

1o11§ incr CLR_LOOP from 0 to 1 do
}3”4

%sscoo PASS TESTS MLEE FOR CLEARING

ITHE FIRST PASS TESTS MLEE FOR LATCHING

:
i
:

10115
}8}}9
10113

incr LALC‘H_LW from 0 to .FINISH do
.

ITEST MLEE FOR LATCHING BY USING DT_1 DATA
ISTART OF SCOPE LOOP

101

ERR_FLG = ZERO;

ICLEAR THE ERROR FLAG

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

N 5
PAGE 494

SEQ 0481

-1

}
}

}
}
}
}

}
1
1

EC s"

B0_5J;

= JERO;

PO_5J;

TOPS=20 Bliss=16 V2(212)

PA: NEALE

4.BLI.2 (106)

!CLEAR THE ERROR REGISTER
{ENABLE ECC DIAG MODE -

1GET CRC_A
iGET
iSET P

1GET PAR %uu DATA FROM DT_1

FROM BT

FROM DTTM1
gnuo BLOCK TRANSFER

iDISABLE ECC DIABLE

iREAD THE ERROR AND LACTH MLEE

TIME_OUT_LOOP;

if .CRC_ERR neq .DT_1 C.LATCH_LOOP, CRC_DATA] then ERR_FLG = ONE;

!TEST CRC_ERR

if .SGL_ERR neq .DT_1 [.LATCH_LOOP, SGL_DATA] then ERR_FLG = ONE;

!'TEST SGL_ERR

if LUNC_ERR neq .DT_1 C.LATCH_LOOP, UNC_DATA] then ERR_FLG = ONE;

'TEST UNC

if .BIT_IN_ERR neq .DT_1 [.LATCH_LOOP, E0_S] then ERR_FLG = ONE;

ITEST BIT IN ERROR

if .CHAN_IN_ERR neq .DT_1 [.LATCH_LOOP, CO_S] then ERR_FLG = ONE;

ITEST CHANNEL IN ERROR

:'fm.‘ecu_m neq .DT_1 C.LATCH_LOOP, ECH_DATA]
w
E
(123,

ASYNC, DUMPER);

!TEST IF ECH GOT SET

'REPORT ERROR IF NOT SET

mm (FOR_FMT, WRD_67, WRD_10, WRD_69, WRD_14);
:'fn'.'EM_FLG IS_SET

!TEST IF THE ERROR FLAG GOT SET

SYNC, DUMPER);

'REPORT ERROR IF SET

PRINTB (THR_FMT, REG_14, WRD_52, PHR 11);
.DT_1 C.LATCHLOOP, EE_DATA), .MLEE)::
mm (FMTZ19,".DT_1

ENDSUB;

CLR_MBUS;
:'fm.‘n.ss neq ZERO
ba;?

(125,

C.LATCH_LOOP, AO_S5], .DT_1 [.LATCH_LOOP, PO_5))

1END OF SCOPE LOOP

end;

C.LATCA_LOOP, B0_5), .DT_1

SYNC, DUMPER);

'CLEAR THE REGISTER
-1SEE IF THE REGISTER GOT CLEARED
'REPORT ERROR IF NOT CLEARED

PRINTB (FOR_FMT, ‘REG_14, WRD_S2, FNC_7. WRD_14);

) o omd o

e e
e

) o

_s;.-

MLCS1 = read;

PRINTB (FMTTM1,

b
e
e

= .DT1 C.LATCH_LOOP,
ERTMO);

w
E
(124,

e o) sk o) D)

e e

=~.DT_1 t.urcn LOOP,

CRCB
6D

CRCA

b i

e o

PAR_CRC_WRD = ,DT_1 C.LATCH_L

i o

MLER = ZEROES;
ECC_DM = ONE;

D b

}

23T NEERER LT SEIRNRUN LI SIS G RO SE SR ISR R UK IS IRNRRRONNS

e
e e
o
o
e e
D e
e e
D e
D e o e
e o
e

1
1

e e

cmad condt e o

9
k-

b d o o

1§

1
1

(1»

:26:31

553::-133 835?’32
b

:'l

ECC_DM = ONE;

:'I:HSH = ZERO;

!ENABLE ECC DISABLE

!MAKE LATCH_LOOP LOOP ONCE TO CLEAR MLEE AGAIN

MACRO M1113 22-DEC-80 12:16 PAGE 295)

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

H, )

-Dec=19

;

4.BLI.2 (106)

037400
112004

177700

112000

112010

111770

000077

111756

013540

b b oh b od D o o

&“n 111752

157777

7 114474

111700

3=
XN

01
71 111552
105777 111616
48:
®

MOV
ADD
TRAP

#7.1+42.R2
RS.R2
2

:
:

CLR
BISB
MOV

aML .REG+60
#1,aML.REG+120
(R2) ,RO

:
:
:

ASL
BIC

RO
#140377.RO

CLR

BIC
BIS

MOVB

77
111764

;99 i

RS.R1

psnoo.n.ngsnso
RO, ML .REG+150

;

BIC

®1

BIC

DT
RS) RO
nfino.no

-GD.BLK.XFER

;

BICB
BISBS

BICB

BISB
JSR

BICB

MOV
TST8
MOV

8IC

; ERR.FLG

#77,aML.REG+150
RO,
.ngenso

1012

#77,aML.REG+160

RO, aML.REG+160
#2

@M .REG+1

ci.n.nss
+5

222

150077

f. 1R

ASL

140377

; *,FINISH
* CLR.LOOP
* LATCH.LOOP
; LATCH.LOOP,*

RS.aML.REG+40

#%. ~(SP)
-($p)
R4
168
Ré,=(SP)
#6.-(SP)
PC.BLSMUL
RO.R

e
camd ek

152777

MOV
CLR
CLR
JP
MOV
MOV
JSR
MOV

ADD

011

#7.aML.REG+40

MOV

1
77 111746

BICB

10985
12701 013534
865501
1
013536

#40,aML.REG+40

0446
271.9 000006
767 102266

BISB

18:
28:

000644

POV

3 2

b D

167

R1,$SAVES

112006

JSR

BISB

]

112002

$7T56:

112024

g; }1

102734

ggu 7

R D e

b =

TOPS-20 Bliss~- 16 v2(212)

PA: <NEALE

10172 ENDTST;

) b e
D b oD
) b =D b D o
h D omd omed D D h el o
D ol o

:26:31

SS-Doc-ng 88:51:22

SEQ 0482 |

1013

CZMLABO ML =11 LOGI C TEST
MISCE
OUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 296

SEQ 0483 |

em%fiwmgmufim fim & m % mg&m&mm

sz-occ-19ao 09:5?:3}
2-Dec-1980 09:

RN NNCERERARNI NIARERA2 2r2SranE

ggs wSTDRBEmmmwmummmm
5%:

32g

T0PS

PA: <

210,R0

87790 oRO
+

: *,ERR.FLG

: * ERR.FLG

1014’

1013

1013
|

; * ERR.FLG

: * ERR.FLG

1014
1014

108

118:

128

1014

CZMLABO ML-11 LOGIC TEST

22-DEC-80 12:16

D 6
PAGE 497

3 ¢& & .8 4 = g

MISCELLANEOUS CODING SECTION

MACRO M1113

N
8
5
.
3
o
8
%
9
MAPYSBHLIRTDATBENCN 3&YX2»NTL14Am7Rn5aJ£<TwSrmo56wE;Jm58TA&Eci8eYLfJEa2<s.

SEQ 0484

S bec-1980 $3:31:22

gg2a%728TT

emmm

T
ow:

<8zs g. Yy "3 &5= 6.

101
101

1 01

1015

01
01

MACRO M1113 22-DEC-80 12:16 PAGE 5986

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

SEQ 0485

JMLG

5 -Dec-1980 09:24:31

-Dec=1980 09:21:22

17712

BGT
JMP

MOV

BICB
BIS8

#7.aML.REG+40
u.n.nsc«.o

000048 111102 178:
1

BISB

BIC

111064

111224

;g;

000005

000014

000001
176760

198:

.REG+210

.WORD
.WORD

SYNC
DUMPER

175

T56::

18:

1015

;

101

;

1016

MRD. 14 ,~(SP)
#FNC.7,~(SP)
MRD .52, (SP)
#REG.14.~(SP)
#FOR.FMT ,~(SP)

MOV

SP.RO

; SP,»

ADD

4, SP

CLR
INC
P
BGT
JMP

2(8p)
(SP)
(SP) .M
198
1%

* FINISH
: CLR.LOOP
: CLR.LOOP,*

BISB

(WP

RTS

#5,-(SP)
14

#1,aML.REG+120

(SP)+,(SP)+

; Routine Size:
283 words
; Maximum stack depth per invocation:

176706

MOV
MOV
MOV
MOV
MOV

TRAP

188:

MOV

111054

#40,aML.REG+40

TRAP

WORD

003345
1001
(7396
10376

17%
23

JSR

PC.$T756

ROR
3L0

RO
18

TRAP

PA:

101

1017

101
1011

22 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE ‘996
F

SEQ 0486

js
5 102256

000207

$Bpeccioe B3
RTS

10173 !<BLF/PAGE>

; Routine Size:
6 words
; Maximum stack depth per invocation:

5 :

0 words

1
'

MACRO M1113 22-DEC-80 12:16 PAGE §006

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

5 ~Dec-1980 09:54:31

etFononcs 8838823838383832&8383833 &

~Dec-1980 09:21:22

b
D
D

144

% TEST NUMBER:

D
D
D oD
D
b
d

b e

d d
i e
D oD e

D
b e

D ed od e
d

D md D

i
i

D
d =D

TEST FOR BIT UNIQUENESS BY:

A. WITH FORCED ECC ERRORS DO READ TRANSFERS AT VARIOUS DSA
ADDRESSES AND CHECK MLEL FOR LATCHED DSA ADDRESSES
B. DO CLEAR AND REPEAT

TEST FOR LATCHING AND CLEARING BY:

A. WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT THE

B. AGAIN WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT DSA

ZERO AND CHECK MLEL FOR NOT LATCHING.
NO _CLEAR DONE
C. WITH FORCED UNCORRECTABLE ERRORS DO A READ TRANSFER AT DSA

D. WITH FORCED SINGLE BIT ERRORS DO A READ TRANSFER AT THE LAST

AdD

D =D

v &»

B e o

b e

d e

R
N

b e

OO NS
N =

G. Ulfl;

i
i

CLEAR

FORCED SINGLE BIT ERROR DO A READ TRANSFER AT THE

H. DO A MASS BUS CLEAR AGAIN AND CHECK MLEL FOR ZEROES

CK MLEL FOR NOT LATCHING

E. WITH A FORCED UNCORRECTABLE ERROR DO A READ TRANSFER AT
¢
D.Tlf LAST BLOCK AN CHECK MLEL FOR NOT LATCHING

D
b o
b =B d

TES? rm CLOCKING BY:
DO
A MASS BUS CLEAR FORCING REGISTER BITS TO ZEROES
8. FORCE AN ECC ERROR AT THE LAST BLOCK AND DO A READ TRANSFER
C. CHECK MLEL FOR LAST BLOCK ADDRESS

LAST BLOCK. (LATCHES MLEL WITH THE LAST BLOCK ADDRESS TO START THE TEST OFF)

;

i
i

ECC ERROR LOCATION REGISTER TEST

TEST DESCRIPTION:
TEST THE ECC ERROR LOCATION REGISTER FOR CLOCKING, BIT UNIQUENESS
CLEARING AND LATCHING OF DSA ADDRESSES ON DETECTION OF ECC ERROR BY:

D b D

D ek

D e

TST 57

i TEST NAME:
i

b ed ek

VRNV

oEECEEE

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>BL3ML4.BLI.2 (107)

75 BGNTST;

b ed e

D o

D D

elelelolelelelelelelelelelelelelelalelelelelelelela]

2BIIIF AN

7 ;MG

SEQ 0487

IMPLICIT INPUTS:
10_BUF

A "VECTOR OF 256 WORDS WHERE DATA

FOR MBUS READS AND WRITES TRANSFERS

IS FOUND.

i
i
-

local

GL,

‘

'SINGLE BIT ERROR PARRAMETER

CZMLABO ML-11 LOG IC TESE
MISCELLANEOUS C 00 ING SECTION

22-DEC-80 12:16

PAGE 501

MACRO M1113

.
.

o
-

.
o

.
.

.
-

L4
-

w
B

L4
©

.
-

L4
.

o
-

kd
B

.
.

L4
-

.
-

.
.

®
.

L4
B

.
-

.l.fl

;§;3

ed B

ssa:asgs

b d D oD e
D
d
D D e o

PRINTB (THR_FMT, REG_1S, &RD_52. PHR_11);

!FORCE
A SBE

!LATCH THE LAST BLK ADRS INTO THE MLEL

!SEE IF THE MLEL GOT CLOCKED
'REPORT AN ERROR IF NOT CLOCKED

EXIT_TST;
end;

ENDSUB;

9 SHF_DATA= .LST_ARR;
1 incrL(!inrcnOtolbdo

SRERRRSE

oY
3o&

ERDF (126, SYNC, DUMPER)

DORS
BEHIS

CRRRRRRR
JlARANIS

) d D e e

D b b d D

23347

ais

!START OF SCOPE LOOP
!CLEAR THE MLEL REGISTER

!DO A READ AND LATCH THE MLEL

if .MLEL eql ZEROES
then

B d

3
aotz%"

mt.wr_wafi:

Elsu;tsafl UNC = 0);

MLCST = rud

D d el

D o

D d

D o

D D

D e e

L
-

ISHIFTING DATA PATTERN SAVE LOCATION
!EXPECTED DSA PATTERN LATCHED IN MLEL

d o

=16 v2(212)
4.BLI.2 (107)

! TEMPORY SAVE LOCATION
1

»
k4

WRRLL

'WCWECT&E ERR_PARRAMETCR

SEG 0488

BIIRRIG

'END OF SCOPE LOOP
!LOAD
THE SHIFT DATA
!FIRST TEST FOR 1°S AND 0°'S THEN SHIFT DATA

CLR_MBUS;

FOR_ECC_ERR (SGL = 1. UN
=C
0);

!START OF SCOPE LOOP
!CLEAR THE DRIVE
!FORCE A SBE

selectone .LOOP of

!SELECT THE TEST PATTERN

set

ol
:

ggPAT = ZERWS

!ZEROES PATTERN

MLDA
= .DSA_P
01l
:

33PAT = _LST BLK;

!MOSTLY ONES PATTERN

MLDA
= .DSA_PAT;
end;

[othorw}soJ
PAT = SW DATA

Dl = _SHF _DADATA;
SHF DATA = -SHF bArA--oue
end;

!SHIFT PATTERN

MACRO M1113 22-DEC-80 12:16 PAGE §026

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

SEQ 0489

-Dec=19

:
:

}

:
:
:

1
10281
1

MLWC = not 255:
MLBA = JO_BUF;
MLCS1 = read;

'DO THE TRANSFER AND LATCH MLEL

;

}

92
93

1
1

}

PRINTB (FMT_2, .DSA_PAT, .SAVE, (.DSA_PAT xor .SAVE));

394

;

72
:

TIME_OUT_LOOP;
SAVE = MLEL;

'READ AND SAVE THE MLEL REGISTER

:'fm.‘SAVE neq .DSA_PAT

1SEE IF SAVE IS WHAT WE EXPECTED

(127, ASYNC,

DUMPER);

'REPORT AN ERROR IF NOT THE SAME

PRINTB (TWO_FMT, REG_15., PHR &4:;

1029§

1029%

ENDSUB;

%%«.‘8? :

CLR_MBUS;

MWC =

zzi‘gg :

'END OF SCOPE LOOP

FOR“ECC_ERR (SGL = 1, UNC = 0);
not 255;

IFORCE A SBE

iSET UP A LAST BLOCK TRANSFER

10300
10301
10302
}o

23409 :

10305 incr LOOP from 0 to 4 do

'NOW TEST FOR CORRECT LATCHING

23%11 ;

10307
}83383

MLER = ZEROES;

'START OF SCOPE LOOP

23414 ;
23415 ;
23419 :
gg
:

10%10
10311
1031§
1031

case .LOOP from 0 to 4 of
set

g;g :

10306

18 :
19 :
:

10314
10315
10319

1og13

23421

1031

10. g

MLBA = ]0_BUF:
MLDA = .L3T B(K:
MLCS1 = read;
TIME_OUT_LOOP;

'CLEAR THE DRIVE

23404 :
23405 :
23406 :
23407 :

23410 ;

iTO LATCH THE MLEL WITH T

ol :
sl

in
= 1;
= 0;

€1l :

SGL = 0;
n

UNC = 1;

3430
34631
534
:

10
10
10328

MLDA = ZEROES;
2

3433

10329

'SELECT TEST DATA
'FORCE A SBE AND CHECK FOR THE LST BLK ADRS

= ZEROES;

10324

10325

iCLEAR THE ERROR REGISTER

DSA_PAT = ,LST_BLK;

MLDA

28 ;

?6 :

4.BLI.2 (107)

ISET UP THE TRANSFER

(388

5
}

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

tes:

:
;

gxggz :

:264:31

55—0«-19& 83:51:22

'FORCE A UNC E

AND CHECK FOR ADRS ZERO

DSA_PAT = ZEROES;

2] :

'FORCE SBE AND CHECK FOR ADRS ZERO

CZMLABO ML-11 LOGI C TES T
MISCELLANEOUS CODI NG SECTION

MACRO M1113 22-DEC-80 12:16 PAGE !03

-Dec=19
BIIRBHD
10
10331
10
1

MLDA = LST_BLK;
end;
3] :

DSA_PAT = ZEROES:;
MLDA = LST_BLK;

end;

10344

10345

4] :

}8:‘;'29

10360

10361

18%

'FORCE SBE AND CHECK FOR ADRS ZERO

C ::"aus

10348
10349
10350

10359

!FORCE UNC ERROR AND CHECK FOR ADRS ZERO

UNC = 1;

10341
18&

10357
10358

g&.’ =0;

10356

SGL = 1;
UNC = 0;
DSA_PAT = ZEROES:;

tes;

MLDA = LST_BLK;
end;

FOR_ECC_ERR (.SGL, .UNC);

!FORCE SELECTED FORCED ERROR INTO ML11
!SET UP A TRANSFER

MLWT = not 255;

MLBA = JO_BUF;
MLCST = read;

!READ THE ERROR OUT AND LATCH MLEL

if .LOOP neq 4

!TEST THE REG FOR LATCH DATA IF LOOP NEQ 4

TIME_OUT_LOOP;
then

SAVE = .MLEL

A
A

10.

P L

T A

A
R

10370
10371

10.
10367

C
SAVE

10374

1037
10?78
10380

!ELSE TEST THE REG FOR CLEAR

3
= .MLEL;

if .SAVE neq .DSA_PAT
then
(128,

SYNC,

!SEE IF THE REG LATCHED

R);

PRINTB (THR_FMT, REG_15,

10375

LT o

in
S6L
= 1;
UNC = 0;
DSA PAT = ZEROES;

1
10335
10
}8

10351
1035§
1035
10354
10355

R A A

R A A A R

A A O

R T A A A R R

R AE T A

TR I IR

TsE I

SEQ 0490

!REPORT ERROR IF NOT LATCHED

71, WRD_10);

PRINTB (FMT_1, .DSA_PAT, .SAVE)

ENDSUB;

end;

10381 ENDTST;

'END OF SCOPE LOOP

S82nmm&§R%EY383
mkwsS%S2erbrgzese§wm2mfiReRo-?35
M8-H7SPimMRwA.053S.52Sm00QnoE11um1R‘n“#n1g1~-ym!2w8m->¥0833“gw
53e0s58|-3eg8e8e B=T— BRv¥

éIetcoly.@~canNleoatinmittwsmnety. S9 ontenyt®.o5nYoAma=PTD14%nDita.41t&©4l1f8ukineéRroSN..g~nKaIy:u“d..uBen.;gIN w”;a0W0esS0%-5t3%"B E44
MISCELLANEOUS CODING SECTION

CZMLABO ML-11 LOGIC TEST
MACRO M1113
22-DEC-80 12:16
PAGE 504

SEQ 0491

%% B8 23

3."

]

M‘ 3

IRBTBNABw.i.«£8g3kez2f3Kg5s£R27
oA2oFTNA5TE3IR33&TGli-%TGS3 8E38883B 53L8yLi“tgY¥k

E5N(oo=8=OSRo”El\o\l,~0"§m0X§Sm=-S3SN80G—RF.S|unmc-su04su5mBmGma.0nEPs8NEe-U.sTewa§o=nee.sp-B;Q“3¢ 2 ”
MACRO M1113 22-DEC-80 12:16 PAGE kOS

108:

oga.u¢8hd

: .

ML-11 LOGIC TEST
coo ING SECTION

sMLG

—_——

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION
2360
<

—

22-DEC-80 12:16

DOS00C

ROR

7360

-I:«"

00520

INC

flw

73612

{

103002

04270

93614
103014
23615 -, 020

371
01270:

73619 103032

00476

3626 103066

1€

23613

103006

>3 1’

o}:{w

73620 103036
3621 103064
73622 103052

362 '{;Ig

110216

01670°

14277

4
1

01034¢

(
01277
016777

00;

3626 103076

00500

0440

1
?11
106514

“81:32

2 36¢

'} '

73628
103100
73629
103106

005077
01020

110130

23631

103110

066507

103114

BISB

MOV

BI(8

118:

000046

23637 10;

012703

000001

R6%0 103140 G00eae

00432

23638 '.x

73641

00500

DO5003

128:

5 1 03

103162

23648 103164
2 5éoke

§ l’L

73650

23459

s
23652

53653

93654

103

148:

158:

NZT20(

1;3’
10320

10321¢

103216

23655 ',‘;{{
DY

103226

' v’o;f’c

005003
(

‘ff

D004
'

D62

AL
703

150:

0127¢

005001

PC,FOR.ECC.ERR

BPL

000001

110014

1025

;

1029

.~(SP)

; *,S6L

1029

#~400,3M .REG+10
#10.BUF ,aML .REG+
LST.BLK,
@M .REG+

:
;
;

1
10
1

v%.neco
1

: SGL,*

CLR
MOV

@ML .REG+60
ng.ns

:
: LOOP,*

10
1031

ADD

i 38(RS)

1;:1

MOV

#,R3

: *,SGL

1031

) S

§ SO0

: 3i0%

10%

s *,UNC

CLR

COR

CLR

MOV

BIS8

BISB

MOV
CLR

,PC

18%-1

.REG+30
Hs

: UNC

: SGL

# R

m
BIC

BICB
208:

; LOOP

17%

107776

TOPS

; LOOP

TRAP

CIR

198:

:26:31

t6s:
188

CLR

.WORD

s
Mg ferd ooooor
F3644 10313 :::fi,i‘{,, 110026
73647

JSR

T1ST8

RS.¥ML.REG+4
S.IB

MOV
[
MOV

—

LML .RES

BISB
MoV
MoV

73634 103120 000C

23635 103122

BIC

110200

1101
110122
110126

#40,aML.REG+40

_—

SEQ 0493
-1

10¢

7361( 'Z'm'

a—————————

N6
PAGE 506

JMLG

235605

e ———————————————————————

ML .REG+40
RS
RS

1031

1
1

.a.fiewg

RS.aML.REG+4

# .R3

: *,SGL

1034

UNC

CZUABO ML-11 LOGIC TEST
mscsu.kws CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 's‘or

SEQ 049

:MLG

2366
53461

o366

e
3664

? 11251
%209 1
1
10771

5366
23661

3664

23671

120227

2367C

34
3

106336 107744

10?7

73675 103

736
34
734

228:

238:

MOV

MOV
MOV

Ré

‘L.gr.w: @ML.REG+30

PLIEOR.ECC.ERR
LML,

BISB
BIC

103

103
103

103

: LOOP,#

#40,aML.REG+40

103

10
1

8ICB
BISB
MOV

LML .REG*40
RS,aML.
ML .REG+220,10(SP)

: *,SAVE

73481

TRAP

;

10371

368

.WORD

SYNC

006406
72
1

MOV
MOV
MOV
MOV
MOV

MARD.10,~(SP)
ARD.71,~(SP)
#REG.15,~(SP)
STHR.FMT,=(SP)
#6,~-(SP)

1037,

2369

000022

MOV

1037|

7365

%ooi

MOV

L
#3,-(SP)

; SAVE,*

b
TRAP

(T (spre
6;' L

:
:

19%
1033'91

3¢

5606

368
93686
2368,
73681
73689
23691

00001

53609 103440
73700 10344¢

3s:

103444

103456
103460

23707
103462
i D8 1C 8464

TRAP

ROR

53708
103450
53704 1054 5¢
93705
73706

TRAP

2345

93701

107662
000010 24$:

: SGL,*

-RE

8PL

MOV

103

4400,
REGHI0
#10.80F
,aML .REG+20

09:24:31

: DSA.PAT

-~(SPS

1STB

BNE

107700

CLR

MOV

000004

218:

«1980

(
§
0002C

: SAVE,DSA.PAT

22(SP),(SP)

TMe
&
P RO M
BLE
1

000004
022626

10(SP) ,R%

268:

[

TST
RTS

LooP

: LOOP,

(SP)+,(SP)+

(SP)+
PC

0
1

; Routine Size:

323 words

; Maximum stack depth per invocation:

19 words

1030
1017

C
NG SECTION

10347
103476

3 103500

23744 ;

767

%466

176566

00020

SEQ 0495

157::

18:

JSR

TRAP

PC,$757

RUA
B8LO
RTS

Rg
1
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:

10382 !<BLF/PAGE>

1037

0 words

CZMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 209

MISCELLANEOUS CODING SECTION

SEQ 0496

D e o

)

$5Dec-1980 09:21:22 PA-NEALESBLIMLG.BLI2
€108)
‘e

‘ TEST NUMBER:

=l=]
W

§§§§§§§§§§§§§§§°

D md

)

BIT"FOR SETTING AND NOT SETTING BY:

S37

3
:

d e cmd o B md
ol d ced o
D

23799 :

23800 ;

e md D md e

82 1

g% :

FOR MBUS READS AND WRITES TRANSFERS
IS FOUND.

IEXPECTED ECH_ERR VALUE

0418 PAR_CRC_WRD = ZEROES;

b e

23796 -

10_BUF

A “VECTOR OF 256 WORDS WHERE DATA

0419 cac$ ="ZEROES;

53795 :

I'PLICIT INPUTS :

82}5
CLR_MBUS
'
0419 ECC DM =ONE;:

:
:

DO A READ TRANSFER AND THECK ECH NOT SET

&}4 “'émcreo

g;gb 3

WITH ECC DM = 0 AND ECC DIS
= 1

!
04611
oug

S 3

DO A READ TRANSFER AND THECK ECH SET

0410!

od e o

73]
%:

WITH ECC_ DM = O AND ECC DIS
= 0

ERRDRS INTO THE ML11°'S GOOD BLOCK

b =

53778
:
77

ECC

23774 :

VIA
ECC DM AND A WRITE TRANSFER FORCE
1

d e

b e

23768

ECC HARD ERROR BIT TEST

TEST DESCRIPTION:
VIA ECC_DM AND ECC DIS TEST THE

D oD =D

53766

TST 58

i TEST NAME:

D
D oD md
D

B@JYST:

CRC'B

= ZEROES:

BLK_XFER ();

MLCST1

;cmn
THE
on;ve
iSET ECC DIAG MODE

iFORCE UNCORRECTABLE ERRORS INTO THE GOOD BLOCK

= write;

TIME_OUT_LOOP;

incr Lm from 0 to 1 do

cuaflus.-

GD_BLK_XFER ();

if .LOOP

then

eql ZERO

'TEST ECH BIT FOR SETTING / NOT SETTING

ISTART OF SCOPE LOOP
iCLEAR THE DRIVE

iSET UP A GOOD BLOCK TRANSFER

'SELECT THE TEST DATA

TEST

MACRO M1113 22-DEC-80 12:16 PAGE 210

CTION

803

53-00:-1938 835?3}

‘..

-Dec=19

805
806
:

10435

in
?E?
DIS = 0;

807

182

808 ;
809 :

1
10639

810 :

18240

1§ :

811

else

18 :

10448

23820 :
23821 :
%’s%%i :

10450
10451
1045;

%3352256 :

10456

B1S

10445

19 &

10449

23827 :

10457

boai

llCSl = rnd

'READ THE ERROR OUT

if JECH_em neq .EXPECTED

'1S ECH BIT WHAT WE EXPECTED

then

in
'ERROR IF NOT
E
(129, SYNC, ouv;)
PRINTB (FOR_FMT, WRD_6
10, WRD_69, WRD_14);

PRINTB (FMT_1, "EXPECTED, tuERR);

ENDSUB;

'END OF SCOPE LOOP

end;

103502

004167

103514

016

10035

% 103506 1527% oooo‘s107500
23840 1

089026 107462

107530

14 18?)37;57 107404

]
155777
10355%
015rer
005001
1

$758:

R1,$SAVE3

MOV

u%&z

BICB

#7.aML.RE

BISB

BIS8

#:0,aML.REG+40
#1

|
|

8ICB

a.neefl

,aM.REG+150

L@ .REG+150

BISB
ROV

410 9 RECILE
A1 10-B0F

18:

TSTB

%l.nss 28

CLR
TRAP

R
2

BISB

1038

;

1041

: LOOP
:

1042
1042

R2,aML.REG*4

BIC

300010 107
857?

23855 103626 122% 000040 107360

JSR

BISB

BIC

499
107552

S 1

1
23854 10

'EXPECT ECH BIT NOT TO SET

DIS = 1;

10458
10459 ENDTST;

:
:

23846k 1

4.BLI.2 (108)

exPEcrso = 0;

1045

TOPS-20 Bliss=16 v2(212)

PA: <MEALE

'EXPECT ECH BIT TO SET

end
ECC

1044
10444

SEQ 0497 |

EXPECTED = 1;

18221

813
;
B14 :

#40,aML.REG+40

:
:

1041

1043
1065

1042

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 511

238

103¢

23863 103652

>38
~\,-;-,’.
I3B4 %m

1
1

10774

fl 19777§
7;

107342

3870 10370¢

000002

107364

23869 10370C

3871 103710
73872 10371

103732

401

23879 103
23880 103

73881

103

3882 103750
73883 10375,
23884 10
73885 103756

23887 10376
23888 10377C
23889
103774

73890 104000

38:

009%10 107234 4$:
1

000100

58:

107274

1441

00725

7240

1040

?gg}g

23896 1040

401

23895

104016

23897 10402¢
73898 10403C
73899 104032
23900 1040

23901

1046042

73002 106044
23903 104046
23904 10405
2300

0:"0

53907

104060

201

53909 101.0%
2391g 1040

? 3906

6056

23908 104606

000100

46 004225
00000
106414

127

BISB

RO,@ML.REG+4

000022

104
104

BICB
MOV

#2,@ML.REG+120
”.R2

3
: *,EXPECTED

104
104

#2,@ML.REG+120

CLR
MOV

#71,3ML

BISB

TST8
BPL
MOV
CLR

#100,aML.REG+60

INC
P

RO
RO.R3

BEQ

; EXPECTED
:

104%

gs
55

MOV
MOV
MOV

MRD.69,~(SP)
m.19.-(sm
MRD.67 ,~(SP)

14 o

BITB

#100,aML.REG+60

INC
MOV
MOV
MoV

(SP)
R2.=(SP)

: EXPECTED,~

SP,

: SP,»

ROR

1
1
1044

201
SYNC
DUMPER

TRAP
ADD
TRAP

104

: EXPECTED,»

.WORD
.WORD
.WORD

BLO

000001

?l.REG*S
$
R2.R3
RO

.REG

BITB

MOV

0
:
: LOOP

BEQ
7$:

#7.aML.RE

PC,GD.BLK.XFER
;;

CLR

107210

PA:

JSR
Lsfr

MOV

3
73893
10'os!g 046414

2389%

579976 RO

TRAP

26
2

T,RO

BIC

BEQ

104455

%6
46
722

55‘00:-1900 09:21:22
BICB

112

107400

23878 103740

=-Dec-1980 09:24:31

MOV

mz
1

>3877

SEQ 0498 |

23867 103666
73868 1036/

873
103720
23876 103726
23875
10379¢
93876
103730

;ML

i,%
03860 1036
2386] 103640
3862

#FOR.FMT ,~(SP)
(SP)

;

1045

#FNT.1,-(SP)
#3,-(SP)

14
n;z.sp
6
RO
2‘

1045
1045

INC

: LOOP

1042

BLE
RTS

2%
PC

1038

cwP

R1.M

; LOOP,»

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F 7
PAGE 512

SEQ 0499 |

SDec-1o80 B:51id

: Routine Size:

124 words

; Maximum stack depth per invocation:

T58::
1$:

JSR
TRAP
ROR

PC,$758
66
RO

RTS

; Routine Size:
6 words
; Maximum stack depth per invocation:

10460 !<BLF/PAGE>

13 words
|

BLO

23946 ;

ou:

0 words

104

CZMLABO ML-11 LOGIC TEST

MACRO M1113 22-DEC-80 12:16 PAGE 213

MISCELLANEOUS CODING SECTION

:
38
S :

-Dec=1980

}8“80“’ éGUTST
}ow. 144
}0465 : TEST NUMBER:

}0669 ; TEST NAME:

TST 59

1«% i TEST DESCRIPTION:

}&g :

VIA ECC_EN,

10473

va ECC DM AND A WRITE TRANSFER FORCE

10476

WITH DCK_EN
= 1, ECC.DM = 0, ECC_DIS = 0

g%b;‘gi:

}&;2 !:

10479 |

}w:

3. WITH DCK_EN = 0, ECC
DM = 0, ECC_DIS
=0

23233.7;% ::

23975 :

10485 |

23978

10488 |

23979 :

239452”1n .
S
3
:

23986 :
g&z :

3% :

23990 :
:

ECC ERRORS INTO THE ML11°S GOOD BLOCK

DO A READ TRANSFER ARD CHECK THETMDCK BIT SET

DO A READ TRANSFER
ARD CHECK THETMDCK
BIT NOT SET

}M&g i:

WITH ECK_EN = 1, ECC DM = 0, ECC_DIS
=1

DO A READ TRANSFER ARD CHECK THETMDCK BIT SET

A “VECTOR OF 256 WORDS WHERE DATA

}&33 :

;(s"r'ws READS AND WRITES TRANSFERS

10491 |

1069§ !
10493 !==
1049%

10495 Llocal

6L,
UNC

}8233

EXPECTED;

10500 CLR mus
}% w
£ “tm (SGL= 1, UNC = 0);

:
3

10505 MLTST = write;
}85589 TIME_OUT_LOOP:

52332 :

ECC_DM AND ECC_DM TEST THE

DCK BITFOR SETTING AND NOT SETTING BY:

m;g :

10499
1049

lo,aur= JEROES;

10504 GD

TOPS=-20 Bliss=16 v2(212)

PA: SNEALE

DATA CHECK ERROR BIT TEST

10470

239645. :

09:24:31

Ss-occ-mo 83:31:22

9 :
:

SEQ 0500

ISINGLE BIT ERROR PARRAMETER
IUNCORRECTABLE ERROR PARRAMETER

IEXPECTED DATA CHECK BIT VALUE
ICLEAR THE DRIVE
IFORCE A SBE

xrsn O:;

'SET UP A GOOD BLOCK TRANSFER

}osoom incr Lm from 0 to 2 do

'TEST DCK BIT FOR 3 CONDITIONS

10510
10511

10512

CLR

;

GD_BLK_XFER ();

iWRITE THE DRIVE WITH THE ERROR

ISTART OF SCOPE LOOP
iCLEAR THE DRIVE

iSET UP A GOOD BLOCK TRANSFER

4.BLI.2 (109)

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:1€

H 7
PAGE 514

-Dec~-1

10513

10515

10 ;

:24:31

53-»«-1338 83:51:22

SEQ 0501 |

10514

case .LOOP from 0 to 2 of

set

10519

4.BL1I.2 (109)

!SELECT THE TEST DATA

’
i
l

1051

13 ;
1% :

1051
105

DCK_EN = 1;
ECCTDIS = 0;

.
|

19 3

105

end;

; 3

1S :

17
;
18 :
19 ;

10518

:
3

10531
1OS§

10534

€21 :

}3;%

EXPECTED = 1;

26034 ;
24035 :
?é% :

10540
10541
}855»4‘

10538
10539

:
'EXPECT THE DCK BIT NOT TO SET

'EXPECT THE DCK BIT TO SET

ECCTDIS = 1
tes;

MLCS1 = read;

'READ THE ERROR AND CLOCK THE DCK BIT

:'fm.‘ocx neq .EXPECTED

'1S THE DCK BIT WHAT WE EXPECTED

TIME_OUT_LOOP;

z‘ogg :

}omosas

begin

240402‘0“ 3

}05460“7

if .LOOP neq ONE then ERRDF (130, SYNC. DUMPER) else ERRDF (130, ASYNC, DUMPER):

zl.osg ::

26044 :

10548
10549
10550

PRINTB (THR_FMT, WRD 72, PHR_S, WRD_10); 'CHOOSE WHICH THE ERROR IS ON

% :3

1oss§
10554

26049 :
246050 :
26054

.
|
‘

EXPECTED = 0;
DCK_EN = 1

105

zl.og :
24033 :

€1l :

105

24031 ;

'EXPECT THE DCK BIT TO SET

EXPECTED = 1;

105
10524
10525

105

bozin

10521

:
7 :

coJ :

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

'REPORT THE ERRRO IF NOT THE SAME

PRINTB (FMT_1, .EXPECTED, .DTKJ;

ENDSUB;
end;

10555
10556 ENDTST;

'END OF THE SCOPE LOOP

§28yes Re2E

:3 2 83 38 m 3 m8 52SESk§ES5E

8gTTy3p@gL3RK|4RT3RL2YQ33R9 2L3LIs %_ S& oI55 e“1%,&Ao&G3R“Agg33R8S2Pg

3.E%R§#W8BEBN¢.EeRuEdG5UXiopiadey

.o........”mB.fl.u-fmlS%m%Ema%m8.......8..B.8%.R8.H..,o.8..3£.....m2-m3.m8m%g8m.mnw
$

0§ & oodduMeREsE 5 B285 8 8 83

O<2+ ¢K53oBERmeaGNa0KRkeRf=%sT
i
1 88 23 i

MACRO M1113 22-DEC-80 12:16 PAGE ;15
7

SEQ 0502

MACRO M1113 22-DEC-80 12:16 PAGE glb

1RAI1TI1TsnI1TI1nT‘I1tTaR1AtR1nNA1oNnG1S1o1e11t1‘11812s‘13318811AN

ML-11 LOGIC
1 TEST
ous CoD ING SECTION

SEQ 0503|

35Dec-1980 0:21:22

Tg &TYove &YmVsemmmaszmmmmm.mv

&8& & 8&ee&e&T&T08e&aOxTaP&PuTu=uP&= = T7OT ==

JMLG

118

128:

SnRESe

wSyEzes eM%Wzm Nm
B
00422%

PA:

1054

: P,

1055,
; EXPECTED,*
; SP,»

1035
1

148

(SP)+,(SP)+
PC

; Routine Size:
141 words
; Maximum stack depth per invocation:

; LOOP

; LOOP,~

1050

1045

14 words

SCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 517

1§

D md b

SIR2B IV

e o

S5Dec=1980 09:51:22

JMLG
1

;g 1
1
1
1045
1045

s o

SEQ

D b e e

767

177342

00020

159::

18:

-1

JSR
TRAP
ROR
BLO
RTS

PC.$T759
66
RO
1%
PC

; Routine Size:
6 words
; Maximum stacc depth per invocation:
10557 !<BLF/PAGE>

0 words

:26: 31

. _gm—

IMLABO ML-11 LOGIC TESTY

MACRO M1113 22-DEC-80 12:16 PAGE §18

H, )

SEQ 0505 |

-19.

:26:31

Ss-m-wg 88:51:22

§§§§§§§§§§§§§§§§%§§§§§§§§§%§§§§§§§§§§§§§§§§§§§§§§§

}

R———

CZMABDO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

TOPS=20 Bliss=16 v2(212)

PA: <NEALE

4.BLI.2 (110)

}

BGNTST;

1
1
1
1

144
: TEST NUMBER:

TST 60

! TEST NAME:

PROM DATA TEST

TEST DESCRIPTION:
VERIFY THAT CHECK SUM VALUES FOR
ALL PRESENT MEMORY ARRAY UV PROM
LOCATIONS ARE ERROR FREE BY:
1.

DOING MBUS TRANSFERS
AT ALL PRESENT BLOCKS
AND TESTING THE UNS BIT
TO BE CLEARED.

IWLICIT INPUTS:

231

‘i

10_BUF

A VECTOR OF 256 WORDS WHERE
DATA FOR MBUS READ AND WRITE
FUNCTIONS IS FOUND.

CHIP_S

xmxtAtso THE SIZE OF THE

ARRAY MODULES MOS RAMS.

incr DSA_CNT from 0 to .LST_BLX do

‘msz o§

'oxms ECC

= not S

iLOAD WORD COUNT
iLOAD LBUS ADRS

AT ;

iLOAD DSA

n.cs1 = mtc.

iDO A WRITE FUNCTION

TIME_OUT_LOOP:

" uas IS_SET
b

in o

'WRITE TO ALL PRESENT BLK'S AND CHECK UNS BIT

ISEE IF XFERR CAUSED AN UNS ERROR
s

PRINTB (TWO_FMT, WRD

PRINTB (FMT_9, .DSA_CNTS;

M'n.

'ERROR IF SET

& g m &%

en4nw..n.n.WM2m
s Sy P}
28.- 'yG382

-sa

o R

o3 %wk

MACRO M1113 22-DEC-80 12:16 PAGE ?19

g Z ~P X

b ML

3 £
BE 5BE ¢

8
>
.
8
8
<<
FT § Eem-P0EgoNgER oy sy+

8O=M
888888888
O ON SN O

ol SoSlol SololololdSlolSlooldololadadTNlTsNkTeNkT.NTNiNIeR=ReNo—eRRTLe=eleRoL=eRLoMkL

BLRSREERLLR RRSNLSR 3.53o8_.2dg8sg
&<23
CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
7
SEQ 0506

1553

853

1060|

CIMABO ML-11 LOGIC TEST
NM CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE gZO

SEQ 0507

H, )

1
1

‘

8 1

9 1

1
}

1
1
1
1
1

106616

B 1

177760

) 1
|
105

10503
10503

|
1

5 1
|

MOy

?P.RO

#2,-(SP)

:26:31

TOPS

: SP,»
(sP)

s DSA.CNT,»

1“(1

: SP,»

4
aflP.SlZ.l‘IOO

1061

MOV
ASR
ASR
ASR
SWAB

R1.RO

s DSA.CNT,»

1061

MOV

RO,=(SP}

B8IC

RO
M77760 RO

MOV

#2,-(SP)

MOV
TRAP

';,‘,

1050

2&9‘;’

TRAP
g:

000100

fP.RO
&

MOV

105

0 10503

-1
MOV
TRAP

%88‘5

i————

fP.RO
14

: SP,»

1061

ASR

177760
004610

000002
000022

BIC

#177760,R0

INC
MOV

($P)
#FMT.8,-(SP)

MOV
TRAP

SP.RO
14

MoV

MOV
4£S:
5%:

~(SP§

2,=-(SP)

ADL
TRAP

J;Z.SP
()

5 ';?',-‘
10506

BLO
INC

18505%

RTS

: SP.»

1
1

1$
Al

2 DSA.CNT

1059

1055

; Routine Size: 103 words
; Maximum stack depth per invocation:

12 words

CZMABO ML-11 LOGIC TEST

RISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-.v 12:16 PAGE 221.

SEQ 0508

]
103108

103105

767 177456
903293
000207

Dec-1980

s
8o
RIS

pe.sTe0

24379 ;

10627 !<BLF/PAGE>

1062

; Routine Size:
6 words
; Maximum stack denth per invocation:

09:24:31

0 words

MACRO M1113 22-DEC-80 12:16 PAGE §22

H, 2

seoosov§
-Dec=1¢

3
3
3
3

1
1
1

!
THE CLEANUP CODING SECTION IS EXECUTED AFTER THE
H
HARDWARE TESTS ARE RUN ON A LOGICAL UNIT,
BGNCLN;

return;

105106
105114

10631 CLR = ONE;
1

ENDCLN;

152777
000207

000040

106100

ICLEAR THE MASS BUS

LCLEAN: BISB
RTS

; Routine Size:

TOPS-20 Bl iss=16 v2(212)
PA : <NEAL
4.BLI.2 (M)

#40,aML .REG+40
PC

& words

; Maximum stack depth per invocation:

3
3

—d

:1264:31

5 %-1938 83: 1:22

—d

CZMABDO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

0 words

004767
104412
000207

177764

g?i
24427
26428
26429 ;
26430 ;

LSCLEAN::
,
JSR
TRAP
RTS

PC.LCLEAN
12
PC

1063

; Maximum stack depth per invocation: 0 words

; Routine Size:

& words

70634 LASTAD;
10635 BGNSETUP (0);
10636 ENDSETUP;

|S —

15 105116
19 105116
17 105122
Sfi}g 105126

CZMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 2238

SEQ 0510 |

ML
1051

1051
1051

105134

-Dec-1980

1051

BLSLAS::.WORD

105132
000000

LSLAST==
TSPTHY==

000207

LWORD
TSFREE::.WORD

TSFREE

<<TSFREE~-<BLSLAS+4(>>/2>
O

BLSLAS+4
0

SEND.LINK::

RTS

; Routine Size:

1 word

; Maximum stack depth per invocation:

3
0 words

; OTS external references
.GLOBL BLSGTS SSAVES $SAVESL, SSAVE3

.GLOBL
SPUZ BLSPU‘I. BLSGT1
.GLOBL au.soxv. BLSMOD,

; Size:
4698 codo + 1916 data words
; Run Time
03:04
: l
E apsed
Hm (1)115348
6

3 Cwi{ation Cwlctc
000001

.END

09:24:31

TOPS

NOOOO

RN= 0000

TA=
EF-S
EIG
ERRBLK
ERRMSG

ERRTYP

ITO §-==
oBBITO1

$GG

E§ERRRO=F=Re 000QU0
CS
000060

EERR.CH
EVL

BIT08 =

G¢$

CSGETB=
CSGE

FMT.10=
FAT.1
fm."‘ll

TOS === G¢e
IBITOS
BBITO4
2
m 'x
BEceemc
BITO7 =
&

I o
i

BITI == 010000 ¢66
BITI2
BITIS == 6e
BITIL
= 6
BIT1S
=
BlTi
= 00002006G
BIT3
BIT4
=
000040 :GG
BITS == 000100
BIT6
i
BIT? E= 000200 GG
HA
BLSDIV
6
BLST]
003016
6
BLSGT]
GG
&ssr
&
6
10312
S
BLSLA
¢
$MOD
6
¥6

000G
O=
CSERS
00001(
CSESCA=
CSESEG=
00000
ou‘
=
TST oo
ey
CSEXIT= 00003
000C
poX
NOOC

CSGPLO=
000C
000030
O=
D0004(
&G’RI
' 00002
cs”‘"
INLP=
000050
I=
CSMAN
000031
CSMEM 000
C3opens
0000
S
o0
Ec:m
all£F=ol ot
%CSPNTB=
000017
cml:a;
0C
000007
CSREFG=
000047
ST 0000
000033
E=
CSRES
3
CSRFLA= 000021

C$SEFG=
000C
EssmDOOC
“sswm"
0000
C=
DATA.L=
L 010¢

PTBL 0 2358 G
BheE- "& 1}
DT.1 L
° 013534
D1.TEM=
01115
D2.TEM=
0111
EFEF s.CON=
000036 G&G
.NEW=50008
000035

D=
ESLON
E2.TEM=
FIND.C'.k
FIV
o
FMT.1

m'1§:
. 14=5=
FMTFMT.1
1
FMT.
1g
FMT.
rm'1
AT
=
FMT.
AT
FMT. 1=
AT
FMT.
FAT.
FMT.
FMT.3
=
FAT.%
FMT % =
FMT.6 =
FMT.8
mig===
FNC.1
m"?’
NG'1?-1T

rm'g =

x
eI

ENC.
FNC.172
mc'tt
FNC.
FNC.31=
NC.21=
FNC.
1=
FNC.23=

N ==
ENC.S
fm.s
ENe.S z-=
"x.g
FORCE, (
FOR
FOR.
FOR-FM.FME¢ =
On
FSAIT
FSO‘
FSCLEAS
W =
FS
i
Fsmmn-'

NTen ==
I1&]
s
e
l U =- UU
ISD
1 -&
Imm
&
lm
I:HSGM"
1lm.f 3
B
mmtb

'snsc
omoe .=
F'm’
'm -=
FSReT
4 -rssemc
'ssu"
FSSUS
FSTES
sy T=K=
iFeTEsTs
F6D.BL
aoe.'
SPe= 000400
GSEXCP
00X
P=
C3oxc
=
GSLOL]
oS OLT=

”::’.
f3shy
ilm =..
e)
LLASWTB
w"e“
xG
LD.LN
iLINIT
2
5
ior,: =
et
LST.AR

F4FSINI
v T=

emrEke
aor's'
¢003
GSPRMA=
S1= (X
it 2

i
S X
&
e o0
GSXFER=
er o=
ok
0.
Hd.0R.
R
IV

il :.=
ISSEG

L:.«c»sr.BL
Ltwun
tSAUTO
L
(3e
taco”
LST.DU

Liseie
L
(s’
taote
tiory
LSOV
L”sunr”
tsovn

oi i

¢
00003
C=
CSCVE
000044
N=l" 30000
CSOCL
0000;
E“Eo
CSDRPT== n,w}%
CSDU
c‘cv]:

NONC

AR
ARR.1IN6=
ASYNC
vy
A
-~
AR
=

MACRO M1113 22-DEC-80 12:16 PAGE 523!1

STAAB0
CZMABOML)
ML-11 LOGIC TE ST

-RRass—94—TRoAb3u$R3—30-39y893090490293’9-3%-93'5-3538‘90-385-93"9-383392=53CO3Ce8OC3Oe3eC43O5=O38
P’.cePl'ele-alP-“Pe‘e-Ps‘e’l0ePce-Ps"PT’lsPP-ss’Ps"Pec-sPPl‘’s-PePle-”PeP‘eP-PeeP’l"P‘ePo’llePo“’le-PlPe'lelP-ePlelPw-PlelPePc'le-lPePT-ePPe'eP-lPDle”'ePPl-e‘PPe-elPlP-ePPel-ePP'ee-PDe-N--PP.l
PELEhL2%E&RPREEEPEPPPPPPPPP>~PPPY.EELKPN”TM~MOMW”lM

naua aumaamaamamaamaS E ERE E
RSABRRSS R B
.

*Mwm

VOVL VLVL VL L L

SYMBOL TABLE

CZMABO ML-11 LOGIC TEST

MACRO M1113

*Ml?%w-moq\fiw“.“uhohohohNolL]llll

22-DEC-80 12:16
PAGE 52

8
2
SEQ 0512

THR.FM=

TEN.FM=

' VO

4
—

J~iic-

SIS NI NE

SVCSUB= 177777
SVCTAG= 177777
SVCTST= 177777
SYNC =
010526
Ssym=
010000

> _* ROV
*_*

2}',5#',
4
175177
SVCGBL=
SVCINS= 177777

RIEVIBNRUR

] ] =

0061

o] e

0061

] e

SFPTBL
SIX.FM=
STACK

010

SC.SET=
SEV.FM=

013
011
013574
013576

]

RH.ADD
RH.ERR=
RH.TYP
RH.VEC

oos}u.
1

e e

RE
RE&

rONSOCOS

0444

REG.21=
010454
74
REG.S =
REG.& =
REG.S =
1
REG.6 = 010316
REG.7 =
REG.8 =
REG.9 =
REM.TB
013434

010266

$8888858888388888888885<=

REG.

—

OHOKOHOHOHOHOHOHOMHMHOHMHMHOHOHOHO

REG.2

oMK

REG.19=

REG.1

EGJ:

I
2508

3 a{.

01040

tcng:

PRI
o o0 35 36 3 S8LR
S IS St
S SS SSt oo PRS0 S0 IR I S S

016

REC:
14=

REG. 15=

]

*.
RISIVN!
e I
0 3 2%

REG.1
REG.11=

alin

RD.MR
RD.PA
RD.PD
RD.REG
REG. IN
REG.1 =

FYYN

RD.E2

SEQ 0513

S8
EE s
ssss88888888855%
o
S
e
L 1S 2 LR
A
D ks

$30

RD.EL
RD.ER
RD.E1

£55%
et
e e

RD.EE

OO OMOOHOHOHOHOOHOHOMHOHOHOHOHOOHOHOHOHOMHOHOHOHOHOOHOO

MACRO M1113 22-DEC-80 12:16 PAGE g23-3

CZMLABO ML-11 LOGIC TEST
SYMBOL TABLE

CZMABO ML-11 LOGIC TEST
SYMBOL TABLE

$14
876?
i
$Tfi
1744

. ABS.

MACRO M1113

$745

37‘9
b
STll:s

71260
105136

000000

ERRORS DETECTED:

$T15

714
71

$715

H_8
PAGE 523-4

74
STg
7¢§£§
b
$T54
264

SEQ 0514

$7155
$75
fe
$T15

1
1011
e
104106

87;0
T
$T79

1 7222
men
832133

000

001

VIRTUAL MEMORY USED:
DYNAMIC MEMORY:

22-DEC-80 12:16

34695 \IRDS

( 136 PAGES)

2155?0005 82 PAGES)

ELAPSED TIME: 00:11
ML11,ML11/-SP/CR:SYM=SVC/ML ,CZMLAB.DOC ,ML2.P11,B16PG1.P11,816PG2.P11,B16PG3.P11,816PG4.P11,B16MUL.P11,B16SAV.P11 ML3.P11,ML4.P11

nn
CREATED BY MACRO
gm C’)SS REFERENCE

ON 22-DEC-80 AT 12:19

ARR.DA = 1

%§92-9403s 8130007 $337005, SUAINIE BTN SRS 3%-1772

5258

——

) el e

g-l
-1
m
1

o 0 Sl
101-2991

101-3015

#453-21003

‘

102-3086

24;7

48922772

523-24472

103-311

3-15715

431-1

1
16-

-21029 "S

658—

454~ 10

430-19761

*458-21249

459-21279

%13388

R S

X8R RPN
SVt A 44 A

[=l=]

1
(21
]

0000 00 00 00 00 00 00 00 00 00 00 00NN

gz
-

—

@®

011574
= 000010
= 010464

—k

ARR.16
ASSEMB
ASYNC

SEQ 0515

5
13
15
234
6
12
15
234
3
60
14
233
g
i
f
i
f
Z
&gg %@? -?E}gi

011562

D i D el ot el emeh =)

ARR.IN

PAGE 1

382439

-2707

-1

17624

;
103~

1-1 gg‘
0;7

4644
26496

‘19-19

489-22776

-11991

523-@066

=-12145

7-13%

448-20756

483-22481

490-22822

26470

523-24472

-1 2‘8 %'16179 gg:l

16699

o2 ST &
S&4) A[b M-— S

TR R

ON 22-DEC-80 AT 12:19
[
)

log;
4
101=
1
1-143

ne— 3i~t

SEQ 0516

4=65

~
N
3
M5-

4RALA SR-

.clsad —N.On
’

-—-

49531
115

184~

B3 S

5g g

"«&

&|]—

“ w-}gm
1

?23-

v 3R

~ v4m

(AN RN NN NN NN NNE

CREATED
SYMBOL CROSS REF

MACRO

ON 22-DEC-80 AT 12:19

5:smes

#4-1
#6=1

SEQ 0517|

CREF

#4-1
46

- Sé“ 93-2663_

417-19120

321-14015 346~15321 346~15342 370-16618 371-16658 377-16968 378-17004
418-19161

483-22459

490-22800

o,
9233 G

389-

PAGE 3

*355-15814

(21211
)

ORES

b
b
—

= 011152

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL V
G
E..O‘

MACRO

ON 22-DEC-80 AT 12:19

fif ,
UL

. f 453-21010 458-21253

g 5

8154

PAGE 4

IR B LB

-1

=® e

101
-} 7

10
}1

*347-15371 *353-1570.
484=22522 *489-22747

'355-13912
*489-22

13613
1
-1
1
1
1

1
1
1
511-23899

647
516-26140

223-9018

271-11466

1%
1%

2108343

216-8635

459-21274

497-23184

75
6942

131 -694%

180-6889
182-6961

180-68%6
182-6970

402-18284

402-18320

403-18355

449-20794

161
1

430-19751

430-19771

431-19814

334=14727

413-18910

520~24307

3951565

12413

53‘0:} 459

425-19504

425-19521

272-11530

274-11605

383-17293 408-18595 505-235%
deke,
R 466-21625 466-21653 471-21907 472-21936 477-22197 478-22226
315-13705

181-6907
182-6977

181-6914

181-6921

g‘t

g
Z
L

57
o
%

g
3?
3 gg

z‘%%
364-16286

412-18844

36616407

412-18838

413-18903

—————

FMT
FMT
FMT

———

FMY
FMT
FMT
FMT
FMT
FMT
FMT
FMT

SEQ 0518

CREF

§°

=a8

uuuunuonn<g

ON 22-DEC-80 AT 12:19
ENCES

PAGE 5
CREF

SEQ 0519

396=17979

237-9728

237-9745

282-12039

283-12075

m
1
1
1
‘l

1}533

4-39
4-1
4-1

4-3
4-1

119

&-139

4-39

5-337

5-288
226

5-337
5-247

443-20483

11516

1-1049%
16734

272-11515

308-13347

498-23214

5-274

5-305

5-337

4-13
4-13

310-13442

441-20326

eR R

*186~7181

439~

S B 3?%’3% B

MACRO

+341-15115

315-13691

366~16409

449-20780

46421549

-1
4-1

4-13
4-39

T G
gl
395-17937

401-1

443~

TED BY MACRO
REFERENCE

ON 22-DEC-80 AT 12:19

RN
I

= 0106%
011600

—26

opg

TR~

5-240
g:

5-2641
6-153

5=291

5-242
6-27

5-313

5243
lo-:‘l’gg

S-%’“
4-121

5-340

5245
4-152

5-285
#5-167

314-13672

199-7801

252-10516 260-10921 308-13345 342-15140 353-15729 364-16280 373-16757

=2559

407~ ”
4

#5-

#5-247

#4-1

4-39

#5-274

#5-288

61 -1

41 -1

s .mzz,.
t‘

ek e e

#4-39

b cmd cond) el

TR~

*314-13632

RN ARENRENRNENRNENHN,
AR R

sgéggns
=3

%Re

5-249

041

5=
&
?

OOt

§§§fi

#4-1
Hiy~d

PAGE 6
CREF

5-337

#5-337

216
-

TED BY MACRO ON 22-DEC-80 AT 12:19
REFERENCE
fif RENCES

PAGE 7
CREF

SEQ 0521 |

uhi
91
P2

3 2=15652
43-1
43-1
52;
16

352-15674

354-15787

1 %6

484-22519

490-22796

'%3}1 125 HEIR. e,

7199

34-2750
187-

430-19790

DOOOOOOHOHOHOOOHOS

54=15757

102-%32?2 '187-;259 *187-7241
P

519-24274

0187-75220 *187-7226
289-12394 289-12435 332-14602
504~
186~7206_ 187~ 33 *187-7234 +187-7235
436-20097 504~ 5164 505-23563 506~23622
193-7477

#43-198
#43-100

#522-24415
#4-87

#6-103

93-2641

AOOOHONOHOOHOOOS

e
0, S, U,

418-19165

=15
1

93-2667

2-15657
1-16674

93-2680

1-13010
465

419-19184 448-20730 448-20741
#43-148
#4-80
#4-96

196~7

14-1

15022
54=15
1 7052
484-22526

16-172247 14~1 2260

15045
55-15807
175
490-22804

15058
191 39
17600

3~10043

7=115326
%5

365-16324
418-19129

CREATED BY

MACRO

2
ddddddm

5-226

#5-226

&-119

#4119

4=6

#187-7270

4=65

#523-24444

b3
013600

4=65

#5-305

4-65
4=65

#63-49
5274

#5-274

4=65

4-150

#4-150

185-7113

185-7129

#4665

ML.LUN

ON 22-DEC-80 AT 12:19

‘Eim

9n|:1.ccoss REFERENCE

#4-139

PAGE 8
CREF

186~7165

; B zsz.%iz SR, %ézi§ st

SEQ 0522|

u1.1%"1.‘w.701;4.-\~tv‘.uT”MnN1Vg.+HfVu1Os-‘.nv“s--A_1.:ntevm.‘Q€o»oDNY:4e~hwo)'ouyO-..<+P.ty.“tYrP..P4Ye=YTo—T0BYNfYlANy)O=M4T0r.7i'T‘K2.)‘.4«.=.”~4YT»4“w

SocBNt)?.?&.R.r»-2zg;’oW.r
SYMBOL CROSS REFERENCE
SYMBOL VALUE

ML .REG

CREATED BY
MACRO
ON 22-DEC-80 AT 12:19

013154

9“4!

-AHU N DOPBPy 9-. L4NG e

AN L1143ATz. . fln f.

,‘’1'1'1,1"1"1"1",1"'1

911111cl.lclclclqlclqlalqlalcl.l“.lqlalql
~eN¢X11-OI4OS»CLO“OO”NgMAR‘NIri.DLO.sVOOP\aNoPs\cOol-lNcMClOc\BilOOcONlOtGcNODlOcal2cleO=cluNcRlclclq\lilalaelqlqlcRl“E.lAclclal.l
nn
PAGE
9

SEQ 0523

132%33?? iy Rt :.’53'-38522 3519882

42AD4A4444ALA

1w11'11111‘1"‘“1'11,1}1“"-‘.1".111%."1”."1.'1.1171}111}'‘‘1q1l’’c11lL.tl11.p,Ll1.1l‘11cl1a1lc1l1al1c’3l1,c1lc1l1c1lq1l1c1l)'c‘l11cl1c%1l.qr1l.1"q,l.
MACRO

% a&m&msm m&&?%m gfi%

CREATED BY
ON 22-DEC-80 AT 12:19

% =

2 LB Rtu‘7.7.7.7. V4V¢u

e PFEFESES R RBnEHR
SYMBOL CROSS REFERENCE
SYMBOL VALUE

PAGE 10
CREF

MACRO

ON 22-DEC-80 AT 12:19

Lol

MSGHé

MSGH5

MSGS1
MSOUMP
NIB.SA

002

002726
02
011152

002512

ggg

002476

110

MSGH1

AV LV IV ]

—b

CREATED BY

3P l?l
.333&3§§¥§§
? ?&bb
8 -ad- v

SYMBOL CROSS REFERENCE
SYMBOL VALUE

1
5=
#5-25
#5-258
#5-259
5~
#5-261
-

7180855
88-2397
8888-2399
89-2433
89-2439
89-2445
89-2451
89-2457
902477 fi%ofizw&zm&awm1m&n»1
114~

a1
NIN.FM

= 006166

1143648

114-36%

118-3845

114

1183847

118-383

115-

118-3817

= 000001
= 006016
011560

21307

31308

4-34

4-164

5-190

5-353

*186-7180

186-719%

1867200

1867215

1877227

233-9514

OSAPTS
OSAU
OSBGNR
O$BGNS

= 000001
= 000001
= 000001
= 000001

#4~46
#4~46
#4~46

196~7650

4-65

4~65
4~65
4-65

*121-3987

233-9542

289-12433

5 *122-4007 +1224014 +122-4018 +122-4026 1522027

ONEFIL
ONE.FM
oP.NUM

118~

118-3857 121

118~

+153-4081

CREATED BY

SYMBOL CROSS REFERENCE

MACRO ON 22-DEC-80 AT 12:19

SYMBOL

0sOU
OSERRT
OSGNSW
OSPOIN
OSSETU

PAGE 12

PHR. 1
PHR.10

465

1-1 q-gzg: 54 ;;;15377
- s-1§gs
«371-1

3 % %%‘81‘%&7‘; A19-19199 447-20882 *448-20757
&
%E
9=1 gg
1-}04‘2; sg-}om g:}om
4.08 141
11.155 5§2: §§1u-1 7 434-1533? -2011
1

304-288%%

nn.1§

PHR.1
PHR. 14

::'55
-

ggfg% 43-100
44=10120 24910371 25010449 251-10496 257-10776
12041 5 9 Su-mu. Ssa- i:. 29g31zsu go-tzaoo 431-19832

PHR .4

99-

PHR.S

= 007504
= 007516
=00
= 00755

= 001

= 000040

=
=
= 000
=

G
G
6
6

-1215
625-1
425-19505

271-11454

11518

4 ?2%:'2‘19 35&"333 572-’ 1'6‘%: %1'27‘64 402-18273 f&mos
i:m

10012

243-100

49-10368

249-10388

89-126415

293-12610

293-12626

298-12849

322-14044

322-14061

257-10756

264=11144

28412157

185-7137

185-7138

185-7140

7-10

57-10793

249-10351

16_%?

PNT

SEQ 0526

-16287 412-18845

PHR.6
PHR.7
PHR.8
PHR.9

CREF

465
4
4
4
4

:S'i%{
:

10814

10926

-1111

-11125

-11128

oo
PRICO
000
=
6
€
PRIOT

PRI
PRI

PRIOG
PRIOS
PRIOS
PRIO?

PRSN

= 000100 G
= 000140 G
6 6

3gz

226=91

ge-

186-7185

PTBL.P

011556

-1 5-71

P.AAA
P.AAB

004
004,

P.AAE

0044

fhians

85-2

135-7135

187-7236

+186~7170

186~7171

186~7173

nmwmwmwumwmwm»wuwmMmaummwuamummmamammmmmm
T m m&wmw»&» & &»

Sti"a’iPe”i'tPi’TPi”iPcTMeP—sPilPPPPPPPPP1P"’1P‘P1PP1PP‘P1PPPPPPPPPP
CREATED BY MACRO
cuoss REFERENCE

069-1

ON 22-DEC-80 AT 12:19

PAGE 13
CREF

SEQ 0527

TR ALLILLLTARRPRB RRPR SRSR

a8cQOaN3M.q8EaeOUaN38ca3Ma8Ma8aALR"M"oR”L"RPSe.’PPP-N’IP.PP.R.PNS.PRImvNuPIuOnPuuPuuupPu&nPuu”nfi
m mmmmmmmmmmmmmmmmm»mmmmmmmmmmmmmmmmmmmmmmmmmwmmmmmmmmm

0071 7‘

< e ~N e o

PAGE 14

CREF

SEQ 0528

L A A A P T T T mm
NWW%”M mMOm Om m m S

smm"om"m"mP"omP=me"PmT'.=P-!-'mPmPPPPP'PPPPP?PPPP
& g ? B8 [ - ~N TM o

ocloa—l

362

355

#76-1

R
n¥

PAGE 15
CREF

SEQ 0529

8 53 s

N [W+ON wiwNv

R
Enth

%2‘ 76

iai ser

e a0

~N N

eTks o&2 R2

180-6867

SWo5n=Sk NA—

SR ®
g R

3 [—N3a¥19yV] .—RoOlrr.m—_we.Wel-—q0Ml-Nzm84E3A&I2S-yb—L

NeR2:yyR%&iAF3Aal-cl2SM."8»9ymaRf8l0.ol 85©n—O=rNmMDmOTVOWLmNVLOVLNmV®LnVmLOLYmamaml:iiamduSzomlEnxmex S ”" ’P"” "P’P"
e&233%O2 2Ri° &NoPRPP TS~N
ey oe% e
ON 22-DEC-80 AT 12:19
a

SEQ 0530

7SR

Sy CROSS REFERENCE _ cne.
CREATED BY

MACRO

ON 22-DEC-80 AT 12:19

X
GRIAZRARARRARAS

m.;#

266-11205

1 1

98-2895

3
g

SEV.FM

STRIPP
svCGBL

105-3209

105-3213

193-7496

372-16740

6
= 006100

012600

014214
= 177777

’% igm
S gm SO
402-1
#4-1

4-65
4-65
4-65
4

4-65
4-65
4-65
4-65
4-65
4
4-65

SVCINS

105-3206

185-7148

=
=

STK.OF

121

oégg 3319765 431-19808 431-19829

SIX.FM

SEQ 0531

PAGE 17

282-12024

RE4

RH.ADD

CREF

= 177777

&
4-1
4-1
5=274
#4-1

46
4-65
4-65
4-65

8—

1 18

#4=2

4
4-65

4-65
4-65
465
4-65
465
4=65
4
4-65
4-103
4-1

5274
-19
4-65
4-65
4-65
4-65

222?

401-18248
4-65

9%=2712

=65
-63
4-65

6-65
4-65
4-65

4-65

4-65
4-65
4-65
4=65
4-65
4-65
4-65
-65

4-65

4
465
4-65
4-65
4-65
4

4-119
4-150

5-305
4=6
465

4-65
4-65
4-65

4-65

4&-87
4-119
6-152
30
-65

4=65
4-65

ECUS

97-2843

101-2984

401-18260

402-18282

4-65

465

=65

4-65

*94-2716
4=65
4-65
4-65

4=65
4-65
4=65
4-65
4=65
4-65
465
4:35

4-87
4-119
4-150
5:225
4

4-65
4-65
4-65
]

4=65
4-65
4-65

4-65
4-65
4-65

4-65
4-65
4~65
4=65
4-65
4-65
4-65
4-65

4-65
4-65
4-65

4-119
-

4-119

4-119
5-226

4-63
4-65

4-65
4-65

4-65
4-65
4-65

4-65
4-65
]

4-65
4-65
4=65

4-65
4-65
4-65
4-65
4-65
4-65
4-65
4-65

4-65
4-65
4-65

465
465
465
4-65
4-65
4
465
4-65
4-65
465
4-103
4-1
5-274

465
4-65
4-65

FA% 18
CRE

41
&=1
4=1

4=1
4=1
&=1
4=1
4=1
4-}

&-1
4=1
‘-}

SVCSUB
SVCTAG

SSLSYM

= 010000

TIME.O
TRBLE.
TST.AN

= 011106
= 011026
016146

n“

TWO.FM
TSARGC

= 006024
= 000003

#85-,
#

TSCODE

= 000

TSERRN

= 000000

TSFREE 1051 G
TSHILI = 00000
=

4-1

4-1
4=1
4=1
4-1
4-1
4=1

4-1
4=
4=1

4-1
&-1
4=1

4-1
4=1

4-1
4-1

4-}

4-1

=162

5-247

4=162

10115

s%*;i 3

TSEXCP

4-1
4=1
4=1
4=1
41
4-1

é~1
4=1

S = 010526

‘
SEQ 0532 |

4-1
4=1
4=1

= 177777

m $S

ON 22-DEC-80 AT 12:19

an
CREATED BY MACRO
§m CPS REFERENCE

4=162

2501

1-10491

Hiole
Srineel ¢ SR553 al
e
Sl
1=

516~241

?fig‘
e,
e
f?
it
Rehoy
SEI mm ‘t’g‘f—z il e SrimSRl

#6-1

#5-

fim
6

334~14697

341-15092

i16-“63

'%31-9399

f”flfll

5-239

#5-240

5-240

'g 3 24439 523-24440 #523-24441
S-%%!
5-239 #5-240
5-240
=

258-10849

347-15391

353-15723

355-15836

353-15740

SOS°23583

519-242”

#5-241

5=261

#5-242

5-262

#5-241

5-241

#5-242

5-242

#5-244

4-65

39017645

B
SIS
419-19213

#6-65

TSLAST

= 000000

#o-

5-239

#5-240

5-240

#5-241

5-241

#5-242

5-242

#5-264

TSLSYM
TSNEST

= 01%
=1

#o#4-1
4-139

4-13
4-39
#4-139

4-139
#4-39
4-150

4-1
4=3
#4-15

5247
4-119
4~15

S-%’Bs
#6e-11
4-1

4119
4-1

4-139
4-162

4-139
#6-162

TSLOLI

= 000000

5-226

#5-226

5-226

5-24

5-28

05-28

5274

#5-274

CREATED
BY MACRO

SWBOL CROSSREFERENCE
-

TPV =

TSPTNU

Gl
TSSUBN

ON 22-DEC-80 AT 12:19

Eg
.

#523-26445

B8
#=150

CREF
FEB
4=162

EB
#5-226

3B
§-247

#5823%
W5-27%

5-305
5-288

5311
#5-305

ST =

|g
]

119
§-¥
%
-

119
tf}‘
z-

119
213
"am

i
i
i
p
p
-1
i
i
a1
-1
-1
=
P
-1
i

i
o1
-1
i
-1
s
-1
-1
-1
a1
-1
i
-1
1
-1
-1

91
#o-1
¥
#o-1
#4-1
91
91
¥
91
v
91
91
91
91
91
91
91

-1

#a-1

44
~-285

5-247
4&-139

—

||
|

neta ==

R =

SEQ 0533

————————

——————

0 01 1 1 0 o o o o

m.,. T.r,u mfl»mnmfimfi ST

mnwmsmw%flssowmzmu..4

ReR=go==clclclSalclcl.l.lql.l’qlal.lclclqlqlalclql—==—
an

SYMBOL CROSS REFERENCE

CREATED BY

06547

MACRO
ON 22-DEC-80 AT 12:19

4-103
0

| &

PAGE 20
CREF

810

CREATED "E MACRO

i Wme

oERl o

WRD.10

= 006406

WRD.11

= 006416

WRD.12

= 006426

WRD.13
WRD.14

ON 22-DEC-80 AT 12:19

€10

PAGE 21

CREF

SEQ 0535

A
-971

IO
BN BEIGRS BTI
R DR
BB s
IR

‘66-%1625 &7~

= 006436
= 006442

= 006470
= 006502
= 006506

1-9958

36416288

g.}g = 006454
WRD.17
WRD.18
WRD.19

s
i

guios
1

grisk

3-1

412-18846

413-18900

430-19763

243-100

43-10070

244-10088

1241

28412115 284-12158
431-19830
9764

1
9=1
1
1

261-9956

262-10009

8:1
1

407-18577

425-1

13‘“

10737
11183
12591
16759

249-10355

249-10372

251-10468

257-10760

257-10777

1-1

18302

110664
1
]

2511049
11109

15-1

1057
11%

19503

WRD.2

= 006302

264=10092

WRD.20

= 006514

13045

WRD.23

= 006544

402-18275

402-18307

403-18346

407-18579

440~20286

u“gsg

= 00655

322-14078

323-14099

323-14116

379-17064

38317281

449-20778

WRD.

431-19845

431-19848

WRD.3

24910389

257-10794

265-11170

288-12367

293-12611

298-12829

WRD. 21 :oossgg
m.g = 0065
e

uug.

wi% = 006646
WRD.33
= 006654
WRD.3% = 006660

1
1

140%

=140
14083

141

141
14104

14119
14117
14121

w11

CREATED BY

SPBOL CROSS REFERENCE
wo.33

MACRO

ON 22-DEC-80 AT 12:19

86~257%

w037

W04 =

85 %}

WRD.40

86~2284

WRD.4]
WRD.42
2

TR
..

‘

=
=

TR
TR
16-328

WRD.45 =

B-9985

w048

WRD.40 =

WRD.S

W30

00704

36-235

= 007130
= 007140

o
A
WRD_60 = 007156
=

007174

D65 = 007316
¥

w064

§5-2048

CREF

315-13690 33414721

200-7863

223-9005

18276

D10

SEQ 0536

519-24297

334=14720 364-16283 366-16406 439-20250

402-18306

403-18345

407-1857

29-10353

249-10370

257-10758

257-10775

32314118

454-21023

458-21262

245-10054 290-10430 298-10813 26511168 28912416 290-12462 294-12631
310-13438
310-1439
4

13349 328-1440

85398

WRD.57
WRD.58

w061

19-1
14g8

0P0%s

= 00707%
= 007104
= 007114
= 007122

078

WRD.S3
WRD.54
WRD.55
WRD.56

899

D32 = 000%6

PAGE 22

13441

419-19221

16080

323-14101

90-176%

3%-17978

112-18837

204-8074 210-8327 215-8621
210-8326

215-8619

271-11449

41318902

265-11150

27111450 272-11514 273-11591 497-23159
272-11513

273-11589

353-15738

364-16282

230-0382 322-14042 322-14059 440-20285 441-20326
-

£13-18901
260-10928

464-21548

454-21022

458-21261

466-21646

471-21925

478-22219

477-22211

497-23146 511-23889

230-93%

439-20251

= 00

w067 = 00

migg Z %
w7

WRD.71

47121900 471-21921

511-23887
361

230-9381

440-20284

WRD . 74 -g
WRD.75

$4-21547 466-21618 466-21645 4TI-21924 47722214
46-21613

46621644

WRD.8

440-20318 454-21021

458-21

m.z
WRD.

264=11127

=
=

w76 = 00

WRD.9 =

-31346

477-22188

330-5%60°

484-22554 491-22855

471-21923

440-20319

4rr-2213

37556087 37904963 440-20283 471-21897 47722187 484-22553

MACRO ON 22-DEC-80 AT 12:19

P
it
#
n

E 10

PAGE 23

SEQ 0537

75
221-8907
BRR B0

#1¢

221-8911
g78 B

P+
i

1'3?'

154~
w.C.SI
01312
‘N

ee
937 “144-516
271114

-15
17053

A = 000050

221-8919

5811

1283013

411-13790

$11-18807

102-

113-3570

¥72°11501

273-11569

*131 596
131-451
'136-326
1464-5171
'1‘0-535
7 '151-5491
3999 *167-6208
} €35997
1676212
11460 2
11524
4 13-18887

= 000400

SPATCH

002756

SEND.L

SSAVE2

1051% G
G

004044 G

o o

SSAVEG,

004076

SSAVES

$T1
$T10
$T11
$T1
$T1
$T14
$T15
$T16
$T17
$T18
$T19

004116

¢
0

0
036324
0
0404
041666
042124

#62-61

1324556

148-5339
1766679

1344652

155~

135-4710

137-5781
241-99

SHGN
70
159—5858
1-5 gw
1

248-10315

125-4179

s e B
2269146 229-9318 33—9506 S:-11971 23:‘12332

126~4239

1079

128-4337
141-5043

666179
301-12987
-3

XSOFFS

‘-19426 510-23837
1967626
205-8019
77-1
#42-85
13-74753s&#fi&
4-8545
7-12
1
;7;g&-us
g9-14973
% 7-17
-Y 786 401-18223
r-0078 25320904 75?3503
21
4
4&70-21
476-22118
482-224621
904-99507 $33-94436
100~2975

CREATE

MACRO

ON 22-DEC-80 AT 12:19

220~-8863

FAGE 24

CREF

F10

SEQ 0538