Digital PDFs

AH-S390B-MC

May 1981

541 pages

Original

23MB

view download

OCR Version

19MB

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

CZMABO ML-11 LOGIC TEST

MACRO M1113

22-DE.~80 12:16

SEQ 0001

LTITLE CZMLABO ML-11 LOGIC TEST

.SBTTL

USER DOCUMENTATION
.REM ¢

IDENTIFICATION

PRODUCT CODE:

PRODUCT NAME:

AC-S7888-M(C

)

CZMLABO ML11 LOGIC TEST

PRODUCT DATE:

2-FEB-81

MAINTAINER:

TOM LANWSBY

AUTHOR :

D.W.NEALE

THE

INFORMATION IN THIS DOCUMENT IS

SUBJECT

CHANGE WITHOUT

NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT B8Y DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
\

NO RESPONSIBILITY IS ASSUMED
FOR
SOF TWARE ON EQUIPMENT THAT IS NOT

AFFILIATED COMPANIES.

THE

FOLLOWING ARE

DIGITAL
DEC

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

1981 BY DIGITAL EQUIPMENY CORPORATION

TRADEMARKS OF

PDP

DECUS

DIGITAL EQUIPMENT CORPORATION:

UNIBUS

DECTAPE

MAS SBUS

CZMABO ML -11 LOGIC TESTY

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

TABLE OF CONTENTS

USER DOCUMENTATION

63~

MISCELLANEOUS CODING SECTION

WA —=O

—

PROGRAM HEADER AND TABLES

GENERAL INFORMATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS

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 DJAGNOSTICS HAVE
BEEN SUCCESSFULLY RUN.
THIS DIAGNOSTIC WILL HOWEVER PERFORM MINIMAL RH TESTS
TO
ENSURE
ITS
EXISTANCE
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 DIAGNOSTIC 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 INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C)

EXIT

ADD

DROP
PRINT
DISPLAY
FLAGS
ZFLAGS

CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE Al START TIME

DEACTIVATE A UNIT
PRINT STATISTICAL INFOFMATION (IF (MPLEMENTED
BY THE DIAGNOSTIC - SECTION 4.0)
TYPE A LIST OF ALL DEV.CE INFORMATION
TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)
CLEAR ALL FLAGS (SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST TFREE CHARACTERS

YOU MAY, FOR EXAMPLE,

TYPE 'STA'' INSTEAD
OF °‘STAR

SEQ 0004

MACRO M1113

CZMABO ML-11 LOGIC TEST

USER DOCUMENTATION

2.2

22-DEC-80 12:16

PAGE 2-3

SEQ 0005

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.
ALL OF THE LEGAL

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY 'DDDDD’'.

SWITCH

EFFECY

JTESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN
THE LIST.
LIST IS A STRING OF TEST

NUMBERS,

/PASS :DDDDD

/FLAGS :FLGS

/EOP : DDDDD
JUNITS:LIST

FNR EXAMPLE - /TESTS:1:5:7-10.

THIS LIST WILL CAUSE TESTS 1,5,7.8,9.10 10
BE RUN. ALL OTHER TESTS WILL NOf BE RUN.
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)

SET SPECIFIED FLAGS.
IN SECTION 2.3.

FLAGS ARE DESCRIBED

REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

IN THE LIST.
LIST EXAMPLE - /UNITS:0:5:10-12
USE UNITS 0.5.70,11,12 (UNIT NUMBERS = 0-63)

EXAMPLE OF SWITCH USAGE:

START/TESTS:1=5/PASS:1000/E0P: 100
THE EFFECT OF THIS COMMAND WILL BE:

TESTS 1

THROUGH 5 WILL BE

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

PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACIERS.
YOU MAY,

FOR EXAMPLE, TYPE °‘/TES:1-5"' INSTEAD OF '‘/TESTS:1-5'".

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH
COMMAND
.

START

RESTART

CONT INUE

TESTS

PASS

FLAGS

EOP

UNITS

PROCEED

DROP
ADD

DISPLAY

X
X

FLAGS
ZFLAGS
EXIT

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS
LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS

CZMABO ML-11 LOGIC TEST

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

USER DOCUMENTATION

SEQ 0006

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE
FLAG SWITCH.

THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR

ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,
NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY REMAIN SET OR

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECT

HOE
LOE
[ER»
IBE*

HALT ON ERROR - CONTROL IS RETURNED TO
RUNTIME SERVICES COMMAND MODE
LOOP ON ERROR
INHIBIT ALL ERROR REPORTS
INHIBIT AL'. ERROR REPORTS EXCEPT
FIRST LEVEL

ERROR TYPE,

IXE+

(FIRST LEVEL CONTAINS

NUMBER,

PC. TEST AND UNIT)

INHIBIT EXFENDED ERROR REPORTS (THOSE

CALLED BY PRINTX MACRO'S)

PRI
PNT
BOE
UAM

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES
‘BELL'' ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)

IDU
ADR

INHIBIT PROGRAM DROPPING OF UNITS
EXECUTE AUTODROP CODE

ISR

INHIBIT STATISTICAL REPORTS (DOES NOT
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

Lot
EVL

LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH
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, INHMIBIT ERROR REPORTS

AND TYPE A 'BELL'' ON ERROR,

YOU MAY USE THE FOLLOWING STRING:

/FLAGS:
: IER:BOE
LOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) 7"

YOU MUST ANSWER ‘Y'' AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BEEN 'PRELOADED'' USING THE SETUP UTILITY (SEE
CHAPTER 6 OF THE XXDP+ USER'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A "Y', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
YOU WILL THEN BE ’.KED THE FOLLOWING
QUESTIONS FOR EACH UNIT.

PARAMETER CODING CAILS

GPRMA

MSGH1,0,0,0,177777,YES

sRH ADDRESS

MACRO M1113

CZM ABO ML-11 LOGIC TEST

USER DOCUMENTATION

GPRMD

22-DEC-B0 12:16

MSGH2.2.0.77 11.79 YES

:RH TYPE

MSGH6.12.0.7,0.7.YES

*DRIVE NUNBER

GPRMD
GPRMD
GPRML

MSGH3.4.0.777.0.777 YES
MSGM&.6.D.77,1.%6..YES
MmsGHS.10.1.vEs

GPRML

MSGH7.14.1.YES

GPRMD

PAGE 2-5

*RH VECTOR ADDRESS
:NUMBER FO ARRAYS
:DRIVE OPTIONS
SPARITY DISABLED

PARAMETER CODING MESSAGES

MSGH1:

.ASCIZ

/RH ADDRESS?/

MSGH&4:

.ASCIZ

/NUMBER OF ARRAY MIDULES?/

MSGH2:
MSGH3:
MSGHS.
MSGH6:

.ASCIZ
.ASCIZ

/IS RH AN '70' OR *117/
/RH VECTOR ADDRESS?/

.ASCIZ

/IS DRIVE OPTION AN ML11A?/

.ASCIZ

MSGH7:

.ASCIZ

CHANGE

W <L>

# UNITS <D>

/ML-11 DRIVE NUMBER?/

/IS PARITY DISABLED?/

2?2 1

<CR>

UNIT O
RH ADDRESS <0> 176400
?
<CR>
IS RH AN °70° OR ‘11°' <0>
? <(R>
RH VECTOR ADDRESS <0>
204
?
<(CR»
NUMBER OF ARRAYS MODULES
? <D>
16
?
14
IS
DRIVE OPTION AN ML11A 2 <L>
Y
?
<(R>
ML-11 DRIVE NUMBER ? <0> 0
?
<(CR>
IS PARITY DISABLED ? <L>

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 PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES.

YOU WILL BE PROMPTED BY

'THANGE SW (L) ?*'

PARAMETER CODING CALLS

GPRML

MSGS1,0,1.NO

PARAMETER CODING MESSAGES

MSG1:

.ASCIZ

SAMPLE DIALOGE

/PRINT SERIAL NO.?/

;PRINT THE DRIVE SERIAL NUMBER

SEQ 0007

CZM_ABO ML-11 LOGIC TEST

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

USER DOCUMENTATION

PRINT SERIAL NO.

2.6
.

<L>

N ?

SEQ 0008

<(R>

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS,

YOU ARE BUILDING ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.

THE SIMPLEST

WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH
UNIT TO BE TESTED.
IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF

THE ANSWERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD,

A FICTIONAL DEVICE,

THE XY11.

SUPPOSE YOU ARE TESTING

SUPPOSE THIS DEVICE CONSISTS OF

A CONTROL MODULE UfTNEIGHT UNITS (SUB~DEVICES) ATTACHED T0 IT.
THESE UNITS ARE DESCRIBED B8Y THE OCTAL NUMBERS O THROUGH 7.

THERE

' ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE
‘ACTm
THIS O=FACTOR MAY BE O OR 1.
BELOW IS A SIMPLE WAY
TL BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS.
# UNITS (D)

B<CR>

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

Q-FACTOR (0) 0 ?

UNIT 2
CSR ADDRESS (0) ?
SUB-DEVICE # (0)

Q-FACTOR (0)

160000<CR>
1<CR>

(O<CR>

UNIT 3
CSR ADDRESS (0) ?

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

UNIT 5

CSR ADDRESS (0)

160000<CR>

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

UNJT 6
CSR ADDRESS (0) ?
160000<CR>
S5<CR>
SUB-DEVICE # (0) ?
Q-FACTOR (0) 0 ?
<CR>

UNIT 7
CSR ADDRESS (0) ?
SUB-DEVICE # (0)

160000<CR>
6<CR>

CZMLABO ML-11 LOGIC TEST

MACRO M1113

USER DOCUMENTATION

22-DEC-80 12:16

Q-FACTOR (0) 0 ?

J
PAGE 2-7

SEQ 0009

1<CR>

UNIT 8
160000<CR>
CSR ADDRESS (0)
7<(CR>
?
(0)
#
E
SUB-DEVIC

Q=FACTOR (0) 1 ?

<CR>

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THZ HARDWARE PARAMETERS
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN IS
NOT VERY EFFICIENT.
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.

IF.E;;EREIJILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
# UNITS

(D)

B8<CR>

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

1,0<CR>

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

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

1<CR>

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 ENTRIES
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.
THE
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS,
FOUR ENTRIES WERE

BUILT.
"""

THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.

THE

CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA

FROM THE FIRST NUMBER TO THE SECOND.

2, 3,

4 AND 5 WERE SPECIFIED.

IN THIS CASE. SUB-DEVICES

(IF THE SUB-DEVICE WERE SPECIFIED

ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST

BE ON AN EVEN BOUNDARY.)

THE CSR ADDRESSES AND Q-FACTORS FOR

THE FOUR ENTRIES ARE ASSUMED TO BE

160000 AND 0 RESPECTIVELY

SINCE THEY WERE ONLY SPECIFIED ONCE.
SPECIFIED IN THE THIRD PASS.

THE LAST TWO UNITS ARE

THE WHOL' PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS
SHOWN BELOW.
# UNITS

(D)

B<(R>

MACRO M1113

CZMABO ML-11 LOGIC TEST
USER DOCUMENTATION

22-DEC-80 12:16

K 1
PAGE 2-8

SEQ 0010

UNIT 1
CSR ADDRESS (0) ? 160000<(R>
SUB-DEVICE # (0) ? 0-7<CR>
Q-FACTOR (00 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 5S0HZ (JF THERE
IS A CLOCK) QUESTIONS
3.
4.

TYPE 'R NAME'’, WHERE NAME 1S THE NAME OF THE BIN OR BIC

FILE FOR THKIS PROGRAM

TYPE 'START’

5. ANSWER THE °‘‘CHANGE HW' QUESTION WITH ‘¥’
6. ANSWER ALL THE HARDWARE QUESTIONS

7. ANSWER THE ‘CHANGE SV QUESTION WITH ‘W'’
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

THESE DEFAULTS

3.0 ERROR INFORMATION
3.1

TYPES OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ]ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES

ARE ALWAYS PRINTED UNLESS THE °‘‘IER'’ FLAG IS SET
THE GENERAL ERROR MESSAGE IS OF

NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBER

LWHERE; NAME = DIAGNOSTIC NAME
TYPE = ERROR TYPE

THE FORM:

(SYS FATAL,

NUMBER = ERROR NUMBER

(SECTION 2.3).

TST NUMBER PC:XX\aXX

DEV FATAL,

HARD OR SOfT)

UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:JOOXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS
THE
'IER’' OR
"IBR"'
FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.
EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION

CZMABO ML-11 LOGIC TEST

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

USER DOCUMENTATION

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS THE "‘IER',
"IBRTM OR 'IXR'' FLAGS ARE SET (SECTION 2.3).

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR

MESSAGE AND ANY ASSOCIATED BASI. 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: 000000

3.2.1 ERROR NUMBER DEFINITION
ERROR NO.
1

FAILING LOGIC
DRIVE DID NOT RESPOND

WITHIN 1.5 US

DSA REG READ/WRITE ERROR
DURING DRIVE SEL TEST

UNJQUE DRIVE SELECTION
ERROR

ML REGISTER READ WRITE

ML REGISTER READ WRITE
ONES/ZEROES ERROR

ML REGISTER INITIALIZATION

CONTROL BUS BAD PARITY
NOT DETECTED

8
9

ONES/ZEROES ERROR

ERROR

CONTROL BUS GOOD PARITY

NOT DETECTED.

CONTROL BUS BAD PARITY

SEQ 0011

CZMABO ML -11 LOGIC TEST

MACRO M1113

USER DOCUMENTATION

22-DEC-B0 12:16

PAGE 2-10

SEQ 0012

GENERATED.
10

ARRAY SIZING LOGIC ERROR

G0 BIT NOT CLR AFTER
NOOP FUNCTION

[14

ILF BIT SET DURING NOOP

FUNCTION

OP] 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

GO BIT NOT SET DURING WRITE

DRY BIT CLEAR WITH GO CLEAR
DURING WRITE FUNCTION.

DRY BIT SET WITH GO BIT
DURING WRITE FUNCTION.

CHECK FUNCTION °'SYNC FAILURE'

FUNCTION

ILF BIT SET DURING WRITE

FUNCTION

OP] BIT SET DURING WRITE FUNCTION

—

MACRO M1113

CZMLABO ML-11 LOGIC TEST

USER DOCUMENTATION

22-DEC-B0 12:16

N 1
PAGE 2-11

GO BIT NOT CLEAR AFTER WRITE
FUNCTION *ASYNC FAILURE'

GO BIT NOT CLEAR AFTER WRITE
FUNCTION 'SYNC FAILURE'

DRY BIT NOT ScT AFTER WRITE

GO BIT NOT CLEAR AFTER WRITE
FUNCTION ‘ASYNC FAILURE'

GO BIT NOT CLEAR AFTER WRITE
FUNCTION 'ASYNC FAILURE'

FUNCTION.

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.

OP] 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

FUNCTION

GO BIT NOT CLEAR AFTER READ
FUNCTION ‘'ASYNC FAJLURE'

GO BIT NOT CLEAR AFTER READ
FUNCTION °SYNC FAILURE'’

GO BIT NOT CLEAR AFTER
CLEAR FUNCTION

DRY BIT SET WHILE GO SET
DURING CLEAR FUNCTION

DRY BIT NOT SET AFTER
CLEAR FUNCTION.

ILF BIT SET DURING CLEAR

FUNCTION

SEQ 0013

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

CZMABO M -11 LOGIC TEST
USER DOCUMENTATION
48

OPl 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
MLCST NOOP FUNCTION

ATA BIT NOT CLEAR AFTER
WRITING A ONE TO IT

WRITING A ONE TO OTHER

FUNCTION

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
glégAR THE ATA BIT AFTER BEING

ATA BIT NOT SET AFTER

SEARCH FUNCTION

OP] BIT SET DURING SEARCH

FUNCTION AT PRESENT ARRAYS

ATA BIT SET AFTER SEARCH
AT NOT PRESENT ARRAYS.

GO BIT NOT CLEAR AFTER
READ~-IN-PRESET FUNCTION

ILF BIT SET DURING

READ~IN-SET FUNCTION

OP] BIT SET DURING
READ-IN-PRESET FUNCTION

UV BIT NOT SET AFTER
READ-IN-PRESET
GO BIT NOT CLEARED
AFTER ILLEGAL FUNCTION

ILLEGAL FUNCTION NOT
DETECTED
R

SEQ 0014

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

CZMLABO ML-11 LOGIC TEST

USER DOCUMENTATION

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

UNS BIT NOT SET WITH BAD
UV DATA

UNS BIT NOT SET WITH BAD

MEMORY ARRAY PROM ROW/
COL DATA ORING ERROR

BAD NIBBLE THRESHOLD OF

GREATER THON 14 DETECTED.

UV DATA

36 EXCEEDED DURING

%gé;IAL ARRAY READ/WRITE

UNIQUE PROM SELECTION
ERROR

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

MEMORY ARRAY TIMING AND
CONTROL FAILURE TO REFRESH
MEMORY

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

ADDRESS COUNTER ERROR

UNJQUE MEMORY ARRAY
MODULE SELECTION FAILURE

ALL BITS IN ALL NIBBLES

TESTED DURING SEQUENCER

EXISTENCE TEST WERE IN

SEQ 0015

MACRO M1113

CZMABO ML-11 LOGIC TEST

USER DOCUMENTATION

22-DEC-80 12:16

D 2
PAGE 2-14

ERROR (FAIL UNIT)

INTERMEDIATE FAILURE.
SOME
BITS IN NIBBLES TESTED WERE
IN ERROR (CONTINUE TESTING)
SYNC BUS DATA BIT
WRITE PATH CONTINUITY
FAILURE

SYNC BUS DATA BIT

READ PATH CONTINUITY
FAILURE.
RAM BUS ADRS COUNTER
FAILURE TO LOAD/UNLOAD

SKIP RAM DURING WRITE
FUNCTION
.

RAM BUS ADRS COUNTER
FAILURE TO LOAD/UNLOAD
SKIP RAM DURING READ
FUNCTION.

SYNC DATA BUS WRITE PATH
UNIQUE DATA BT
FAILURE (ALL ONES NIBBLE
PATTERN)

SYNC DATA BUS WRITE

PATH UNIQUE DATA BIT
FAILURE (SHIFTED BIT
NIBBLE PATTERN)

SYNC DATA BUS WRITE
PATH UNIQUE DATA BIT
FAILURE (ALL ONES NIBBLE
PATTERN)

SYNC DATA BUS READ PATH
UNJQUE DATA BIT FAILURE
NIBBLE OFF SET

COUNTERS FAILURE

CS1 FUNCTION ABORi

FAILURE DURING TiASS

‘A’ ERROR.

CST1 FUNCTION ABORT

FAILURE DURING CLASS

‘8" ERROR

97
98

LBT BIT SET BEFORE

A LAST BLOCK TRANSFER

DSA REGISTER INCREMENT

SEQ 0016

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

CIMABO ML-11 LOGIC TEST

USER DOCUMENTATION

FAILURE DURING NON LAST

BLOCK TRANSFERS.

(BT 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
AFTER ADDRESS OVERFLOW

104

SC BIT NOT AFTER
CST FUNCTION ADORT

105
106

107

GOOD DATA BUS

PARITY NOT DETECTED

GOOD DATA BUS

PARITY NOT GENERATED

UNS BIT SET AFTER

WRITING TO A SECTOR

[szlsqm PROM DATA

108

UNS BIT NOT SET WITH
B8AD UV DATA

109

WCE BIT SET DURING

MBUS WRITE/READ

FUNCTION TROUBLE SHOOTING
LOOP TEST

110
1N

112

113

UNIQUE REGISTER
SELECTION TEST FAILURE
FAILURE TO FIND GOOD

MOS RAM ROW DURING
ARRAY ADRS MUX TEST
(INTERMEDIATE DIAG MSG)
UNIQUE ARRAY MODULE
ROW/COL ADDRESS ING
FAILURE

DRIVE TYPE REGISTER VALUE

WAS NOT CORRECT

SEQ 0017

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

CIMABO ML-11 LOGIC TEST

USER DOCUMENTATION

114

TRE BIT SET UNEXPECTEDLY

DURING A WRITE CHECK TRANSFER
(INTERMEDIATE DIAG ERROR)

115

116

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

DURING A
TRANSFER
(INTERMEDJATE DIAS ERROR)
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 DIAGNOSTIC REGISTER D1 D2 E2
ONE'S / ZEROE'S READ WRITE ERRORS

122

DATA DIAGNOSTIC REGISTER D1 D2 E2
SHIFTING 1°'S AND 0°S READ WRITE ERRORS

123

ECC HARD ERROR BIT NOT SET WHEN
UNCORRECTABLE ECC ERRORS WERE READ

124

ECC ERROR REGISTER FAILURE TO LATCH

125

ECC ERROR REGISTER FAILURE TO CLEAR

126

ECC ERROR LOCATION REGISTER FAILED

127

ECC ERROR LOCATION REGISTER DATA
B8IT ERRORS

128

ECC ERROR LOCATION REGISTER
INITIALIZATION ERRORS

129

ECC HARD ERROR BIT FAILED TO SET
NOT SET

130

DATA CHECK ERROR BIT FAILED TO
SET / NOT SET

131

CRC DATA BUS FAILURE.
BIT CONTINUITY / UNJQUENESS ERRORS

FAILING ERROR CORRECTION INFORMATION

TO CLOCK IN DSA ADDRESS

SEQ 0018

MACRO M1113 22-DEC-80 12:16 PAGE g-‘I;

CZM ABO ML-11 LOGIC TEST

USER DOCUMENTATION

132

UNJQUE NIBBLE CRC GENERATION CODE
FAILURES

133

UNJQUE WORD CRC GENERATION CODE

134

CORRECTABLE ERROR SYNDRONE DECODE
FAILURE.
FAILURE TO COMPLIMENT

FAILURES

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 INHIBITED
DURING UNCORRECTABLE ECC ERRORS.

UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED
138

ECH OR UNC BIT NOT SET WHEN MULTIPLE
CHANNEL ERRORS WERE READ

139

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

140

ECC FAILURE TO DETECT AND CORRECT

141

ECC FAILURE TO DETECT AND CORRECT
MULTIPLE BIT CHANNEL ERRORS

SINGLE BIT CHANNEL ERRORS

4.0 PERFORMANCE AND PROGRESS REPORTS
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

THE "EOP'' SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END
OF PASS MESSAGE IS PRINTED.
SECTION 2.2 DESCRIBES SWITCHES.

5.0 DEVICE INFORMATION TABLES
HARDWARE DEFAULT PTABLE

176400
16.

OO~

- WORD
-WORD
.WORD
.m
.WORD
.WORD
.WORD

:RH ADDRESS
:RH TYPE
:RH VECTOR ADDRESS
:NUMBER OF ARRAY MODULES

;1S DRVE OPTION MLT1A,
116K, 0=64K
;ML-11 DRIVE NUMBER
;1S PARITY DISABLED,
1=YES, O=NO

SOF TWARE DEFAULT TABLE

SEQ 0019

——

MACRO M1113 22-DEC-B0 12:16 PAGE 2-1%
H

CZMABO 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 COMMUNI] CATIONS

TST3.

DRIVE PRESENT
TEST TO SEE

TST4.

THE DRIVE UNDER TEST EXIST.

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

INIT DATA.

TSTO.

PRINT DRIVE SERIAL NUMBER
PRINT THE CONTENTS
OF

ANSWERED °YES'.
TST10.

MLSN

THE

SOFTWARE

QUESTION

WAS

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

(-BUS

AND

GENERATE

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

O=NO

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

CZM_ABO 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
1°5/0°S , SHIFTING 1°S/0'S AND

INITIALIZATION

TST18.

COMPOSITE ERROR BIT TEST
EEEGI?F EACH INDIVIDUAL ERROR BIT IN MLER CAUSES

COMPOSITE

TST19. ATA BIT
TEST IF

TST20.

THE ATA BIT CAN BE SET AND CLEARED.

SEARCH FUNCTION

ggf IF A SEARCH FUNCTION CAN BE EXECUTED ON ALL PRESENT ARRATST21. 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
THAT A TRANSFER IS NOT INITIATED.

CAN BE DETECTED AND

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

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

CZM ABO ML-11 LOGIC TEST

USER DOCUMENTATION

SEQ 0022

TST26. UV ERROR TEST

EEST gBILITY OF UV ERR PROMS TO DETECT ALL POSSIBLE CHECK SUM
1ST27.

INITIAL ARRAY TEST
TEST ARRAY TIMING AND CONTROLFOR EXISTENCE.

TSTZ8. PROM SELECTION TEST
TEST FOR UNIQUE PROM SELECTION.

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

TST34.

IF BASIC SEQUENCER TIMING EXISTS.

SYNC DATA BUS CONTINUITY/WRITE PATH
TEST SYNCHRONOUS DATA BUS WRITE PATH FOR CONTINUITY BY

ING WRITING ONE'S AND ZERO°'S.

TST35.

READ~

SYNC DATA BUS CONTINUITY/READ PATH
TEST SYNCHRONOUS DATA BUS READ PATH FOR CONTINUITY BY READING

WRITING ONE'S AND ZEROES.

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-B0 12:16 PAGE 2-2%
K

CZM_ABO ML-11 LOGIC TEST
USER DOCUMENTATION

SEQ 0023

TST38. SYNC DATA BUS BIT UNIQUENESS/WRITE PATH
TEST SYNCHRONOUS DATA BUS FOR DATA BIT UNJQUENESS BY

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

WRITING

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
TST4O0. ARRAY ADDRESS MuUX
TEST FOR UNIQUE ROW AND COLUMN ADDRESSING

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

ALLOWED

TST43. LAST BLOCK INDICATOR
TEST THE LAST BLOCK INDICATOR BIT FOR NOT SETTING

LAST AND SETTING AND CLRING AT THE LAST BLOCK
TST44.

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-BUS 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 ANG BT LN1GUENESS
TEST CRC_CODES GENERATED FOR ONE CRC

GROUP (52 UNIQUE NIBBLES)

TEST CRC CODES GENERATED FOR ONE

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

CZMABO ML -11 LOGIC TEST

USER DOCUMENTATION

CRC GROUP (13 UNIBUS WORDS)
TSTS1.

TEST SYNDRONE DECODE AND ERROR

TSTS2.

TEST SYNDRONE DECODE TO DETECT 8UT
IE()T CCSRRECT UNCORRECTABLE CHANNEL

TSTS3.

TEST SYNDRONE DECODE TO DETECT 8UT NOT
gmgr UNCORRECTABLE MULTIPLE CHANNEL

TST564.

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

TSTSS.

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

CORRECTION TO DECODE AND CORRECT
SINGLE BIT AND MULTIPLE BIT
CHANNEL ERRORS

INFORMATION ON DETECTION OF ECC ERRORS

TST57.

TST58.
TST59.

TEST THE ECC ERROR LOCATION REGISTER FOR

&?Efi"f;. BIT UNIQUENESS, CLEARING AND
VIA ECC_DM AND ECC DIS TEST THE ECH

BIT FORTSETTING 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.

ScQ 0024

CZMABO ML-11 LOGIC TEST

PROGRAM HEADER AND TABLES

MACRO M1113

22-DEC-~80 12:16

.SBTTL

35 000000

333

39 002000

2000

*
*

THE PROGRATM YEADER IS THE INTERFACE BETWEEN
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

002000

POINTER AL'.

002000

HEADER

002122

ML11,A,0,1800..0

NAMES OF DEVICES SUPPORTED BY THIS PROGRAM

’

DEVIYP <ML-11>

TEST DESCRIPTION

002152

002152
002154
002156
002160

000000
000000
000000
000000

’

DESCRIPT <ML-11 LOGIC TEST>

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

THE GLOBAL ERROR TABLE

ERRTBL

ERRTYP: :
ERRNBR: :
ERRMSG: :
ERRBLK: :
I

WORD
.WORD
WORD
WORD

(INFORMATION

0
0
0
0

2 4

: THE DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST.
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

002162

DISPATCH 60
rd

*
+

2B BR IR R RERLBIIIFERIEER
QR

J+e

7 002130

ABS.AMA

BGNMOD

40
41
42
43

—A-A_A_A—A—l-l-l—bs—l_n_a
bk ed e ek b b =l
o

SEQ 0025

PROGRAM HEADER AND TABLES
(ENABL

002000

PAGE 4

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,
AND IS USED AS A '‘TEMPLATE'' FOR BUILDING THE P-TABLES.

CZMABO ML -11 LOGIC TEST

22-DEC-80 12:16

¢S
¥

BGNHW

.WORD

N 2
PAGE 4-1

SEQ 00¢c6

DFPTBL

;RH ADDRESS

176400
70

:RH TYPE

0
0

;ML-11 DRIVE NUMBER
;1S PARITY DISABLED,

204
}6.

JRH VECTOR ADLRESS
JNUMBER OF ARRAY MODULES
;1S DRVE OPTION ML11A,

1=16K,

0=64<

1=YES,

O=NO

+
+

§ 833828
¥ JSEELER

AR LB ELESELEGREN
S ESE YIS NRUKNCEENS

PROGRAM HEADER AND TABLES

MACRO M1113

THE DEFAULT SOF TWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE
PROGRAM AS OPERATIONAL PARAMETERS.
THESE PARAMETERS ARE SET

UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR AT RUN
TIME.

002374
002376
002400

000000

PRSN:

BGNSW

SFPTBL

WORD

ENDSW

;PRINT SERIAL NUMBER, 1=YES,

O=NO

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

CZMABO ML-11 LOGIC TEST

80@\‘0%8

PROGRAM HEADER AND TABLES

SEQ 0027

PR TR ]

L YR TR

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

221

: WITH THE OPERATOR.

040

MSGH2:

.ASCIZ

055

MSGHé:

.ASCIZ

040

MSGH7:

.ASCIZ

77777 ,YES
11,70

?.0.77
1.16..

,7.YES

/RH ADDRESS?/

/1S RH AN '70° OR

/ML-11 DRIVE NUMBER?/

/IS PARITY DISABLED?/

*
+

WS WO WO

—_ bbb
b ek

N =2PON)
=N =2

b
b
cd
o
b
-

— e
k) =2 )
S WN=0NN)—N)

HHHHE

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
MACROS ALLOW THE SUPERVISOR TO ESTABLISKH COMMUNICATIONS
WITH THE OPERATOR.

‘

BGNSFT

GPRML

.EVEN

MSGS1,0,1,YES

ENDSFT

290
297 002726
298
299

120

122

111

MSGS1:

.ASCIZ
.EVEN

/PRINT SERIAL NO.?/

;PRINT DRIVE SERIAL NUMBER?

CZMLABO ML-11 LOGIC TEST
PROGRAM HEADER AND TABLES

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

300

302
303

; TO PROTECT THE LOAD MEDIA.
M

;

304

THIS TABLE IS USED BY THE RUNTIME SERVICES

3382 002750
307 002750
308 002752
%?8 002754
311 002756
312
326
327 002756
328 002756

329

336
337 003016
338
339
352

BGNPROT
177777
177777
177777

-1
-1
-1

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

ENDPROT
$PATCH::

BLkWw

ENDMOD

SEQ 0028

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

D.3
PAGE 43

.SBTTL MISCELLANEOUS CODING SECTION

6 ;M3

17-0ct=1980 11:31:46

g :

10
1M
12
13

29-Sep=-1980 10:13:18

0001

0002
000
0004
0718

BEGIN

15 ;
16 ;

0719
0720

'+
!
THE REPORT CODING SECTION CONTAINS THE

}g :

19 :

20 ;
21 ;
22
26

%23 004152

8;%}

0723

07246
0725
0726

REQUIRE

BGNRPT;
RETURN;
ENDRPT;

000207

LRPT:

1 word

; Maximum stack depth per invocation:

49 004154

004767

g} 004162

000207

S0 004160

104425

177772

LSRPT:: JSR

TRAP

RTS

; Routine Size:

242
;

0727

;
;
;
;
;

0728
0729
0730
0731
8;33%

72 :

;g :

%:2 004164

073%

0735
0736

0737

;

0725

& words

0 words

BGNAUTO;
RETURN;

ENDAUTO;

000207

LAUTO:

RTS

. Routine Size:

PC
1 word

; Maximum stack depth per invocation:

004767

0716

'+
! THE AUTODROP CODE IS EXECUTED IMMEDJATELY AFTER THE INITIALIZE
! CODE IF THE ‘‘ADR'‘ 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.

100 006166

:
O words

PC.LRPT

; Maximum stack depth per invocation:

73 ;
74 :

92
9%

RTS

: Routine Size:

2(5)

63
64
65
66
67
68
69
;10

"MACRO.REQ';

: 'PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS.

TOPS-20 Bliss=16 v2(206)

PA:<NEALE>M 3.8L1.2 (1)

MODULE ML3 =

;
;
:
;

SEQ 0029

177772

LSAUTO: : JSR

PC.LAUTO

0726

0736

0 words

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

101 004172

004174

MACRO M1113

22-DEC-80 12:16

104461

TRAP

000207

RTS

104

: Routine Size:

}(1)(5)

E_3
PAGE 43-1

& words

; Maximum stack depth per invocation:

111 ;
112 ;M3

0738

115

116 ;

29-Sep-1980 10:13:18
0739

;
;
;
;
;
;
:

0740
0741
0742
0743
0744
0745
0746

111'%12 004176

000207

148 004200

149 004204
]lg? 006206

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

LDU:

104453
000207

177772

152
]'gg
159
160 ;
161

162 ;

163 ;
164 ;
165 ;
166 ;
167 ;M3
}gg :
170 ;
171 ;
172 ;

};37 :

‘%8812 004210
183

]lgloq
190
194

RTS

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

004767

TOPS=20 Bliss=16 v2(206)

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

133
gg

0 words

17-0ct=1980 11:31:46

‘Hz :

117
118
119
120
121
122
}%?7:

SEQ 0030

LSDU::

JSR

TRAP
RTS

0737

0745

0 words

PC,LDU

53
PC

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

;

0 words

0747

0748

0749
0750
0751
0752

0753
0754
0755

0756

000207

! THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
! TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
! TO THE TEST CYCLE.
!17-0ct-1980 11:31:46
29-Sep-1980 10:15 °8

TOPS~=20 Bliss=16 Vv2(206)
PA:<NEALE>M
. 3.BL1.2 (1)

BGNAU;
RETURN;

ENDAU;

LAU:

RTS

; Routine Size:

PC
1 word

; Maximum stack depth per invocation:

:
0 words

0746

CZMABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

198 004212
199 004216
228? 004220

004767
104452
000207

177772

202

220
221

222

223

2264

LSAU::

JSR
TRAP
RTS

; Routine Size:

22(0)3

209
210 ;
211 ;
212
216
217
218
219

MACRO M1113 22-DEC-80 12:16 PAGE 43-3
PC.LAU
52
PC

& words

: Maximum stack depth per invocation:

0757
0758
0759

075S

0 words

ELUDOM

M3
:

)

17-0ct=-1980 11:31:46
29-Sep-1980 10:13:18

; Size:

227
228

; Elapsed Time: 00:07.1
: Hemor{ Used:
12 pages

229

;

END

225

226

SEQ 0031

; Run Time:

20 code + 0 data words

00:01.9

; Compilation Complete

TOPS
PA:<

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

6 ;M4

12
13
14
15
16
17
18
19
%?

;

:
:
:
:
;
;
;
;
:

22 :
23 :

26
25
26
27

;
:
;
;

28 :

29 :

30 -

33% :

SEQ 0032
22-Dec-1980 09:24:31

g ;

9
10 :

G 3
PAGE 45

20-Dec-1980 09:21:22
0001
0002

MODULE ML4 =
BEGIN

0004
0005
0006
0007
0008
0009
0010
0011
(1123)%

000

1497
1498
1499
1500
1501
1502

1503

1504

1505

1506

}ggg

require

'BLSMAC.REQ':

'BLISS INTERFACE MODULE

| CONSTANT LITERALS
i

Lliteral
ONE = 1

ONES = $0'177777°.

2ERO = O,

2EROES = 0,

NUM_OF REG = 22.
F'IEED_SIZ =4,

IDATA BIT OF ONE

iDATA PATTERN OF ONES

iDATA BIT OF ZERO

iDATA PATTERN OF ZEROES

INUMBER OF BLOCKS IN GLOBAL STORAGE 'ML-REG'

'FIELD SIZ FOR FIELD DECLARATIONS 'WORD_MAP'

3% :

1509

3% :
37 ;

1511
1512

NOOP =
1,
DRV CLR = %0'11°,

'NOOP FUNCTION
iDRIVE CLEAR FUNCTION
IWRITE CHECK FUNCTION

35 :

38 39 :

40 :

1510

1513
1514

TOPS=20 Bliss-16 v2(212)

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

iMLCST FUNCTION CODES

RO IN
= %o0'21°,
SEARCA = %0'31',

IREAD IN PRESET FUNCTION
ISEARCH FUNCTION

41
42 ;

1515

1516
}g}g

WRT_CHK = %0°51F,

g}g

| DELAY ARGUMENTS

1521

ONE US = 1,

'ONE MICRO SECOND DELAY

}ggz

TWO_TH_US = 2000;

i TWO THOUSAND MICRO SECOND DELAY

1522

wrife = 20'61°,
read = %0°'71°,

FRTY US = 40

IWRITE FUNCTION
iREAD FUNCTION

IFORTY MICRO SECOND DELAY

!
| FIELD DECLARATIONS
!

:
:
:
;
:
:

1525
1526
1527
1528
1529
;gg

:
:

1532
1533

REGISTER_ADD = [0, 0, 16, 0J.
FORCE_HI = [1. 0, 16. 0],

'REGISTERS ADDRESS
IREGISTERS FORCED HI BITS

1535

DONT_CARE = [S$, 0. 16, 03

iREGISTERS IGNORE BITS

1534

field
uono_nzp =
se

FORCECLO = [2. 0, 16. 0]

'MAPS GLOBAL STORAGE 'ML_REG' INTU REGISTER PERSONALITIES

IREGISTERS FORCED LO BITS

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

62 M4

3
SEQ 0033

22-Dec=1980 09:24:31

22 ;
65 ;

PAGE 46

22-Dec-1980 09:21:22
1536

tes,

23 ;

}gig

68 ;
69 :
70 :

1539
1540
1541

NIB_O = [0, 0. 4. 0J.
NIBZ1 = [0, 4. 4. 0],
NIBZ2 = [0, 8, 4, 0]

INIBBLE 0 BITS <0:3>
INIBBLE 1 BITS <4:7>
INIBBLE g BITS <8:11>

13
168,

1543
1544

NIBZ4 = [1. 0, 4, 0],
NIBZS = [1. 4. 4. 0J.

INIBBLE & BITS <16:19>
INIBBLE S BITS <20:23>

7% :

75 :
76 :

78
79
80
81

1542
1545

1546
1547

1548

;
;
;
:

1549
1550
1551
1552

83 :

1554

82 :

1553

8 :

1555

86 :

1557

85 :

NIB_MAP =

'MAPS OWN STORAGE NIB_SAVE INTO TEN FOUR EIT NIBBLES

set

NIBZS

= [0, 12, 4, 01,

NIBCS = [1. 8,

4. 0]

NIBT8 = [2. 8,

INIBBLE 6 BITS <24:27>

INIBBLE 7 BITS <28:31>

iNIBBLE 8 BITS <32:35>

NIBD9 = (2, 12, §, 0]

iNIBBLE 9 BITS <36:39>

tes.
DT1_fLD =
set
E0_S = [0, 0, 6, 0J.

€0-S = (0. 6,

CRE_DATA = [0, 13.71, 03.

SGL_DATA = [0, 14. 1. 0J.

UNC_DATA = [0,

87 :
88 :

1558
1559

A0TS =
[1, 0. 6. 0J.
P05 = [1. 6, 6, 0],

91 ;
92 ;
93 :

1562
1563
1564

tes;

1560
1561

iNIEBLE 3 BITS <12:15>

NIBZ? = (1. 12. 4, 03,

1556

89 :
90 :

15,

1. 03,

EE_DATA = [0, 0, 16.

0],

ECA_DATA = [1, 12, 1. 03.
5 =10[2,0,6, 0

! <BLF /PAGE>

TOPS-20 Bliss-16 v2(212)

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

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~80 12:16

1.3
PAGE 47

95 .mLé

22-Dec=1980 09:24:31

g{,) :
98 .
99 ;

22-Dec=1980 09:21:22
1565
1566

100 ;
101 ;
102 ;

1567
1568
1569

104 ;
105

1571
15;%

103 ;

106 ;
108 ;

1570

own

NIB_SAVE

)

: block [3] field (NIB_MAP) volatile,

15
1575

PYBLPTR : volatile
ARR INC
: volatile,

109 ;
110 ;
111
112
113 .
114 ;

1576
1577
1578

GooD BLK : volatile,
PAR DIS : volatile,
CHIP SIZ : volatile,
LST_BLK : volatile,
ARR_16: volatile,
LST
: volatile

117 ;

1584

1579
1580
1581

1582
1583

'LAST ADDRESSABLE BLOCK
'MAX MUMBER OF ARRAY ALLMD

Io
: vector [256] volatile
STR_OFF : vector [10, bytelJ volatile.
stack : vector (198, byte] volatile,

1585

PD_TEMP
: bitvector [16] volatile,

1586
1587
1588
1589
1590
1591
1592

W_C_SIZE: volatile,
RASTINC : volatflo.
WT_BATA: volatile,
RD"DATA
: volat'lle.
DRIVE TYPE : volati le,
LST_DOT _REG: volatile,
)
REGINITFLG: initial (0) volatile,

127 :

1594

B_CAL : volatile.

129 ;

1596

A_GEN : volatile,

‘g; :

}gg

130 ;

135 ;

136 :;
137 ;
138 :;
139 :
140 ;
141 ;
}2% M

1593

1602

1603
1604
1605
1606
1607
1608
;lg?g

144 ;

1611

148 :

1615

145 ;
146 ;
147 ;

149 ;

1612
1613
1614

1616

P_CAL

‘LAST ADDRESSABLE ARRA

| INPUT OUTPUT BUFFER
ISTACK OFFSET STORAGE LOCATION
!STACK OF 198

!STORES WORD COUNT FOR 16K OR 64K XFERS
'ROW ADRS STROBE INCREMENT
!SAVE WRITE DATA DURING REG READ WRITE TEST
'SAVE READ DATA DURING REG READ WRITE TEST
'DRIVE TYPE STORAGE LOCATION
'LAST ML-11 REG INDEX FOR THIS TYPE RH CONTROLLER
'FLAG TO DETECT DOING REG INIT TEST

'CALCULATED CRC STORAGE LOCATION
'CALCULATED CRC STORAGE LOCATION

volatile,

!CALCULATED CRC STORAGE LOCATION

!GENERATED CRC STORAGE LOCATION

B_GEN : volatile,

!GENERATED CRC STORAGE LOCATION

P_GEN : volatile,

!GENERATED CRC STORAGE LOCATION

ML_REG: blockvector [NUM_OF _REG.FIELD_SIZ] field(WGRD_MAP)

“preset (

[O,FORCE_HI]

= %0°'0046000°,

co. FG?CE LOJ

= %0'173701°,

[5.FORCE_LO]

= Xo' 25077'

[5.DONT_TARE]

= 20°'000100°.

[0.DONT_TARE]

{S.FORCE"HI]

BYTE LOCATIONS

!PROM DATA STORAGE LOCATION DURING DIAG MODES

A_CAL : volatile,

1595

1597

!HARDWARE P-TABLE POINTER
iOPERATORS NUMBER OF ARRAY INPUTTED
'ARRAY SELECTION INCREMENT VALUE
!1GO0D BLOCK ADRS
'PARITY DISABLE FLAG
'MOS RAM CHIP SIZE

119 ;
120 ;
121 ;
122 ;
123 .
124 :
125 ;
128 ;

!STORAGE LOCATION TO SAVE NIBBLE DATA READ DURING DIAG MODE
'STMES HARDWARE ORED PROM DATA DURING PROM OR FUNC TEST

: \.ector £127] volatile,

OP_NOM_ARR : volati(e.

126 ;

PA: <r£AL sLmé4.BLI.2 (2)

1574

118 ;

TOPS=20 Bliss~16 v2(212)

!
| OWN STORAGE

107 .

1S :
116 ;

SEQ 0034

'MLCST

= 20'160200°,

= %0°'010600°,

'MLDS

'ML1' REGISTERS

ISTNOCTURE TO STORE INDIVIDULA
'REGISTER PERSONAL JTIES
‘ie. REGISTER ADDRESSES
'18ITS FORCED HIGH
'B1TS FORCED LOW
'READ ONLY BITS

CZMABO ML-11 LOGIC TES T
MISCELLANEOUS CODING SECTION
151

MACRO M1113

22-DEC-80 12:16

PAGE 48

;M6

22-Dec-1980 09:24:31

}gg :
154 ;

22-Dec-1980 09:21:22
1617

}gg :

}g}g

(6.FORCE_LO]

= %0'014620°,

'MLER

}gg :

}222(1)

[7.DONT_CARE]

= %0'177400°',

'MLAS

}5,8 H

1222‘2’

(8.FORCE_LO]

= %0'100000°,

'MLPA

1¢7 .

1624

[10,FORCE_LO)

[10.DONT_TARE]

= X0'177400°,

= X0'000020°,

'MLMR

164 ;

1627

C11,FORCE_HI)

= X0'000110°,

mLDT

;

}g :
16S ;
166 ;
167 ;

12222
1628
1629
1630

C11,FORCE_LO]
C11,DONT_TARE]

= X0'177666",
= 20'000001°,

168 ;

1631

[13,FORCE_LO]

= %0'140300°,

'MLET

};(1) M

}&5

[14,FORCE_LO]

= %0°'100300°,

'MLE?2

172 ;
173 .

1635
1636

(17,FORCE_LO]
[21,DONT_CARE]

= %0°'010000°,
= Xo'000000°

'MLEE
'MLCS2

175 .
176 :
177 ;

1638
1639
1640

179 ;
180
181 ;
182 :
183
184 ;
185 ;
186

1642
1643
1644
1645
1646
1647
1648
1649

169 ;

174 ;

178 ;

187
188
189
190
19
192
193
194
195
196

;

1632

1637

1641

:
.
.
.
;

1650
1651
1652
1653
1654
1655
1656
1657
1658
1659

206 ;
205 ;

1667
1668

197 ;
198
199 :
200 ;
201 ;
202 ;
203 ;

SEQ 0035

1660
1661
1662
1663
1664
1665
1666

Y volatile,

REM_TBL:vector [63,byte]

preset (

(0]
1]
(2]
3]
(4]
(5]
{61
7]

= Xb°*'000001°,
= Tb°000010°,
= Tb°000100°,
= ¥b°001000°,
= ¥b°010000°,
= ¥b°100000°,
= ¥b°000011°,
= ¥b°000110°,

(18]
(19]
(20)
[21])
E2§J
(23]
£24])

= Xb°001111°,
= ¥°011110°,
= Xb°111100°,
= ¥b°111011°,
= ¥b°110101°,
= ¥°101001°,
= Xb°010001°,

8] = ¥b°001100°,
(9] = !b'011000"
£10] = Xb°110000°,
C11] = ¥°100011°,
£12) = ¥b°000101°,
£13) = 2b°'001010°,
£14) = Xb°010100°,
£15) = Xb°101000°.,
£16]) = ¥°010011°,
€17 = ¥°100110°,

£25) = Xb*100010°,
[26] = Xb°'000111°,

'REMAINDER TABLE

ISTRUCTURE TO STORE PRECALCULATED

!CRC REMAINDER VALUES FOR CRC CODE
! GENERATION

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BLIMLS4.BLI.2 (2)

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

207 :ML4
583 ;
210
2N
212
213
214
215
216
217
218
219
220
221
222
223
206
225
226
227
228
229
230
231
232
233
3%
235
236
237
238
239
240
261
262
243
244

;

°
:
:
:
°
;

267 :
248 ;
249 °

1706
1707
1708

DT_1:blockvector(5.3]) tield (DT1_FLD)
preset (
(0,E0_S] = ¥b*111111°,

251
252
253
25

:
:
-

1710
1711
1712
1713

CO.CRT_DATA]
= Xb'1°,
LO.SGLTMDATA]
= Xb°'1°.
[O-UNC_DATA)
= b'0°¢
[O.AO_Sg = ¥b'000000°,

256 :

1715

[O.ECHSDATAJ = 260’

¢
:
:
:
:
:
:
:
;
;
:
:
:

gzg :

250 -

255

257
258
259
260
261

:
-

:
;

SEQ 0036

25-Dec~1980 09:24:31
20-Dec-1980 09:21:22
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1gg§
1
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
169%
1695
1696
1697
1698
1699
1700
1701
1702
1703

:
¢
:
;
:

K 3
PAGE 49

};82

1709

1714

1716
1717
1718
1719
1720

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

£27] = 1b'001110°,
tzag = £6°011100°.
Eig = £b°111000°,
= 16°110011°
.
E31
= ¥5°100101°,
3§ = ¥5°001001°.
€333 = £°010010°.
(34] = Zb°100100°.
£35) = 2°001011°.
(36] = 15'930110'.
€373 = 26°101100°.
£38] = b'011011°,
€393 = T'110110°.
£40] = Xb'101111°,
E41J = 5°011101°
.
423 = T'111010°.
£43) = Ib°110111°,
(44) = %b'101101°.
£45) = Tb'011001'.
(46] = 1b°110010°.
€473 = Tb*100111°.
(48] = ¥b'001101°.
(493 = X'011010°.
£503 = ¥b°110100°.
£51] = 2°101011°.
£52) = %'010101°.
£53) = °'101010°.
£54) = £'010111".
£55] = X°101110°.
£56] = ¥b'011111°.
£573 = ¥°111110°.
£583 = Tb'111111°.
£593 = Tb'111101°.
(603 = %b'111001°.
£61] = %b°110001°

£62] = Tb'100001'Svolatile,

£0.€0°5) = £b°100100°.

£0.P0"5)

= Zb'111111°

£0.80_5]
= ¥b'000000°,
£1.60°5] = xb*111111°,
£1.€0°53 = Xb°100100°.
[1.CRT_DATA] = 2>°1°,
£1.SGL_DATA] = %b'1',

'DATA TABLE 1
'STRUCTURE TO STORE TEST DATA
iFOR TEST 56 'ECC ERROR LOCATION TEST'

m0m.m.’"Mm."m."2m.ue.Mnl=b.AsuvzwR1:.wOzmr.W5—_:5m0_W.O\wu3:0,.5z_bm:5w“:Ons)r:u=QonObMMPoWW~“Sm_o0Suz”O_tb0xS_:0uW0m:o—:mbQMP:urD:rWnLMr»WnM—aWWrH:rM:uS-:n_:OSMmW_0S.:n0.
o3ty5gy38tg3eyRtgRtyNtgotytMqRgo-~tyRLgR)eg=tSg©&g©®g8—t6ry—&0eY.vye0y0TyggSPDPgoo0®oQPeygee&eAP0ypR&eeey0g-.0m9eePv—YtB-qeTPgN0LgTgPooRPsooOQe—O.—rP.r—l—ee..PNP-O8.P.oP=.e-o
T
Te N N 7 7

NSRaBRI4SA\RAAA0ROAAARARTRilRaLaelEAaRlalaS)loa)lSolRARololIVelRVAgVNNIaVILaAAVAVNTAVeAeVARbetttBb[t8R
MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

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

ll 4

RH_ADD
RH_TYP
RH_VEC

ML_LUN :
ML_DUT :

| BLF /PAGE>

-Ql§W0Oeo"®.l«9‘

3
SEQ 0037

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

ML DRIVE NUMBER

RH
RH
RH
ML

TOPS=20 Bliss=16 V2(212)
PA:<NEALE>BL3IMLS.BLI.2 (2)

]]
> (=) —t L} & - —t[

CONTROLLER BASE ADDRESS
CONTROLLER TYPE
CONTROLLER VECTOR ADDRESS
LOGICAL UNIT NO.

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

311 M6

SEQ 0038

22-Dec=1980 09:24:31

314 ;
315 ;
316 ;
117 :
318 .
319 ;
320
321 ;
322
323
.
324
325 ;
326 ;
327
328 .
329 :
330 .
331 ;
332 .
233 33% .
335
336 ;
337 .
338 ;
339
340 ;
341 ;
342 :
343
3464 ;
345
346 ;
U7 ;
348 .
349 ;
350
351 :
352 :
353 ;
354 ;
355
356 .
357 :
358 .
359 ;
360 ;
361 ;
362 ;
363 ;
364 ;
365 ;

M 3
PAGE 51

22-Dec-1980 09:21:22
1765
1766
1767
1768
1769
1770
1771
1772
1773
1776
m 1775
1776
m 1777
1778
M 1779
1780
M 1781
1;%%
M1
1784
M 1785
1786
M 1787
1788
M 1789
1790
n 1791
1792
M 1793
1794
M 1795
1796
M 1797
1798
M 1799
1800
M 1801
180%
M 180
1804
M 1805
1806
M 1807
1808
M 1809
1810
M 1811
181§
M 181
1814
M 1815
1816

TOPS=20 Bliss=16 v2(212)

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

!
EQUALS:;
!
! MACRO DEF INITIONS
!
wmacro
!
! REGISTER NAMES:
!
MLCST =

.M._REG [O,REGISTER_ADDIX,
Wt =
.M._REG [1,REGISTER_ADDIX,
MABA =
.M._REG [2,REGISTER_ADDIX,
MDA =
.M._REG [3,REGISTER_ADDIX,
MLCS2 =
.M._REG [4,REGISTER_ADDIX,
MDS =
M._REG [5.REGISTER_ADDIX,
MLER =
M._REG [6,REGISTER_ADDIX,
MLAS =
.ML_REG (7 ,REGISTER_ADDIX,
LA =
.ML_REG (8,REGISTER_ADD]IX,
RALPA =
.M._REG [8,REGISTER_ADDIX,
AD8 =
.M._REG [9,REGISTER_ADDIX,
AMR =
.M._REG [10,REGISTER_ADDIX,
MLDT =
M._REG [11,REGISTER_ADDIX,
MLSN =
ML_REG (12,REGISTER_ADDIX,
MAET =
M_REG [13,REGISTER_ADDIX,
RALE2 =
M._REG (14 ,REGISTER_ADDIZ,
M1 =
ML._REG [15,REGISTER_ADDIX,
MLD2 =
M._REG [16,REGISTER_ADDIX,
MLEE =
M_REG [17,REGISTER_ADDIX,

MLEL =
.ML_REG [18,REGISTER_ADDIX,
MLPD =
ML_REG [19,REGISTER_ADDIX,

'CONTROL AND STATUS REGISTER 1

'WORD COUNT REGISTER
'UNIBUS ADDRESS REGISTER
!DESIRED ADDRESS REGISTER

'CONTROL AND STATUS REGISTER 2
'DRIVE STATUS REGISTER

'ERROR REGISTER
'ATTENTION SUMMARY REGISTER

'LOOK AHEAD REGISTER
'PROM ADDRESS REGISTER
'DATA BUFFER REGISTER
'MAINTENANCE REGISTER

'DRIVE TYPE REGISTER
!SERIAL NUMBER REGISTER

'ECC CRC WORD REGISTER 1
'ECC CRC WORD REGISTER 2
'DATA DIAGNOSTIC REGISTER 1
'DATA DIAGNOSTIC REGISTER 2
'ECC ERROR REGISTER

'ECC ERROR LCOATION REGISTER
'PROM DATA REGISTER

CZMABO M -11 LOGIC TESY

MACRO M1113

MISCELLANEOQUS CODING SECTION

22-DEC-80 12:16

367 M6
3323 :

N 3
PAGE 52

SEQ 0039

25-0«-1980 09:26: 31
22-Dec=1980 09:21:22

370 ;

m 1817

" “Ig}g

ML REg}[?O.RE’SISTER_ADDJI.

'BUS ADDRESS EXTENSION REGISTER

%;2 M

}gg?

‘.Fl-REG (21,REGISTER_ADDIX,

ICONTROL AND STATUS REGISTER 3

375

182%

! BIT ASSIGNMENTS:

%;12 N

MLBAE =

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

376 ;
377 ;
378 ;
379 :
380 .

1823
M 1824
1825
M 1826
1827

382 .

1829

('lCS1)<13 1>X,

1831

(llCS1)<11 1>X,

1833

(H.CS1)<7 1>X.

1835

(llCSl)<6 1>%,

1837

(R.CS1)<0 1>X.

181

;

M 1828

383 .

M 1830

385

M 1832

387 ;

M 1834

389 ;

M 1836

391

392 :

;

M 1838

393 ;

394 ;
395 .

M 1840

1841
M 1842

384 ;

386 ;
388 .

390 .

396 .

1839

;
;
;
;
;
;
;
;
;

m 1850
1851
M 185
185
M 1854
1855
M 1856
1857
M 1858

413 ;

M 1860

415 ;
416 ;
417 ;

M 1%
1
M 1864

419 ;

M 1866

L2l

M 1868

;

1€
=

GO
=

tNC

(H.CSI)<0 6>l

DLTY
(H.CSZ)<1S 1>X,

(FI.CSZ)<11 1>%.

403
404
405
406
407
408
409
4610
411

420 ;

RDY

1849

M 1848

418 ;

DVA

(FI.CSZ)<12 1>X.

;

414 ;

MCPE
=

1847

401

PE
=

NED

NEM
=

PGE
=
(H.CSZ)<10 1>X,
(H.CSZ)<9 1>%
MDPE
=
(FlCSZ)<8 1>%,
ORDY
(H.CSZ)(? 1>X.
IRDY
=

1859

(N.CSZ)<6 1>X,

1861

(H.CSZ)(S 1>X,

1865

1867

'MLCST BIT ASSIGNMENTS

m.cs1><1l. 1>X.

(FlCSZ)<13 1>%,

M 1846

412 :

1845

399 ;

402 ;

TRE

(H.CSZ)(‘M 1>%,

M 1844

400 ;

SC
=

(FlCS1)<15 1>X.

1843

397 :

398 ;

CLR
=

(llCSZ)<4 1>X,
8A]
=

(H.CSZ)<3 1>X.
DRV_NUM
=

(MLCS27<O0, 3>z
ATTIN =

'MLCS2 BIT ASSIGNMENTS

CZMABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODIMNG SECTION

423 ;M4
2%‘5' :
426 ;

1869

(MLDS)<15,1>%,

1871

(MLDS)214,1>X,

1877

(MLDS)<8,1>X,

M 1870

429
430
431
6“3
433

;
;
;
;
;

- 18;%
18
m 1874
1875
M 1876

435 ;

M 1878

437 :

M 1880

439 ;

M 1%

M 1884

443 ;

M 1886

445 ;

M 1888

447 ;

m 1890

449 ;

M 1892

451

;

M 1896

453 ;

M 1896

4SS ;

M 1898

457 ;

M 1900

459 ;

M 1902

461

;

M 1904

465 ;

”m 1908

467 ;

M 1910

469 ;

M 1912

&7 ;

M 1914

474 ;
475 :
476 ;

M 1918

434 ;
436 ;

438 ;
LL0 ;

&2 ;

444 ;
446 ;

448 ;

450

452 ;
454 ;

456 ;

458 ;

460 ;

462 ;
463 ;
464 ;
466 ;
468 ;
470 ;

472 ;
473 ;

477 ;

SEQ 0040

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

427 ;

428 ;

MOL =
(MLDS)<12,1>X,
LBT =
(MLDS)<10,1>X,
DPR =
DRY =

1879

(MLDS)<7,1>X,

1881

(MLDS)<6,1>X,

(MLER)<15,1>X.

188S

(MLER)<14,1>X,

1887

(MLER)<13,1>X,

1889

(MLER)<10,1>X,

1891

(H.ER)<9 1>X.

1893

W =

DCK =

'MLER BIT ASSIGNMENTS

OP] =
1AE =

ADE =

ECH RR

(H.ER7<6 1>!
DPAR
=

(H.ERKS 1>X,

1897

(H.ER)<3 1>%,

1899

(FlER)(Z 1>X,

1901

(FlER)(‘I 1>%.

1903

(H.ER)<0 1>X,

CPAR
=

RMR
=
ILR
=

ILF

TP =

1905
M 1906
1907

(mmo 1>X
(mkn 5>z

1909

(n.m <7 1>I

1911

(n_mRb 1>x

1913

(MLMR) B, 1>,

1915
M 1916

(M’« 1>x
DAT

M 1920

UNS =

1895

1917
1919

'MLDS BIT ASSIGNMENTS

COMP_ERR =

'MLMR BIT ASSIGNMENTS

’MR

PROM DIS
=
DAT CLK =

(MYG 1>2
DCK_EN =
(M)?Z 1>%,
ECC DIS

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

——

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

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

SEQ 0041
22-Dec~-1980.09: 26:31 1
22-Dec~1980 09:21:2 2

479 M4

" TOPS-20 Bliss=-16 v2(212)

PA: KNEALE>BL 3ML4.8L 1.2 (B

(M)d 1>l
ECC

(mr<3fi1>X,
morko 11,
CRC_A =

3
X
X
X

D e
d e

b
d cnd

EZEX

)
b cnd

XX
XX

d ad cnd =
b aud

EZEX

b
bl

b
b
e
d
b
e —d

b
—d

S VNS NSO

wViviwonaiwviwiaiwiawni

b Td ced —d el

) —d

b cd

h —d axd

b wd

PRRRRRRR
N
VAW
=0V REREEREELGR SRURZEY
N-‘B!O EERIRERBLTIIRT

O O 00 O 0000

(H.E‘l )<0 6>!

!MLDT BIT ASSIGNMENTS
!MLE1 BIT ASSIGNMENTS

UQD

(FlE‘I)28 65%.
CRC_B
=

(H.EZ)<0RR6>1

(F%EE)’GS
LY,
(llcEEkM
1>!

'MLF2 BIT ASSIGNMENTS
!MLEE BIT ASSIGNMENTS

(MLEE) 20,bzRR
CHAN

' (IILEE)<8.6SZ.

g MISCELLANEOUS MACRO DEF INITIONS:
SN3 =
(MLSN)<12,4>X,
SN2 =
(MLSN)<8,4>X,
SN1 =
(ML<4
SN)
,6>X,

SNO =
(MLSN) <0,46>X,
IS_SET =
L 1%,

eq IS_NOT_SET =
eql 0%,

a Hl =

!I.-ESGE. index,FORCE_HIJX,
ML_REGL. index,FORCE_LOJX,
IGNORE =

ML_REGC. mdex.D(NT CARE]Z,

TMLE2_MASK
=

ML_REGL14,DONT_CAREJX,

!TEST IF BIT IS EQUAL 1
!TEST IF BIT IS EQUAL O
!READS REGISTERS FORCED HI BITS FROM PERSONALITY TABLE
!READS REGISTERS FORCED LO BITS FROM PERSONALITY TABLE

!READS, REGISTERS DONT_CARE BITS FROM PERSONALITY TABLE

!READS MLEZ2 DONT CARE MASK EITHER DATA DIA6 OR ECC CIE REG

—

PR
—

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

D 4
PAGE 55

22-DEC-80 12:16

S35 .ML&
S%?

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

538
539
50 ;
541
562 :

M 1973
M 1974
1975
M 1976
M 1977

544 :

1979

543 &

1978

|GENERATE MASK DATA PATTERN USING REGISTER FORCE LO., HI AND IGNORE B
.IGNORE or ((not .LO) and (.HI or .TST_PAT))X,
CLR_MBUS
=
ICLEAR MASS BUS RESTORE DRIVE NUMBER

CLR
= ONE; DRV NUM
= .M _DUTYX,

'<BLF/SYNONYM IS _SET = EQC 1 » >

}gg?

= EQL 0 + >
| BLF/SYNONYM ISTNOT_SET

547 -

1982

s DIAGNOSTIC DATA REGISTER MACROS

548 ;
549 :
550 :
551

1983
M 1984
M 1985
M 1986

553 :

1988

554 -

555 :
556 557 :

558 :

559
560 :
561
562 :

563 :

564
S6S
566
S67
568
569
570

;
;
:
:

g_;} :

RD_LNG_WRD =
D1_TEMP
= .MLD1;

M 1587

D2"TEMP = .MLD2;

M 1989

WRT_LNG_WRD
=

M 1990
M 1991

" 1992

n
M
M
M

1993

199
1995
1996
1997

20062007

'READ DATA DIAG REGS INTO BIND LOCATIONS

E"TEMP= .MLE2Y.
MLD1 = .D1_TEMP;

MD2

1LOADS DATA DIAG REG WITH CONTENTS OF BIND LOCATIONS

= .D2"TEMP:

MLE2 = .E2"TEMPX.

TIME_OUT_COOP =
'WAIT LOOP DIRING MASS BUS TRANSFER
0

1998

1999
2000
2001
2002
2003
2004
2005

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

WRT_MASK =

5522 :

582

SEQ 0042

urftil .DRY;X;
!
| BIND DECLARATIONS
!
bind
!

| ERROR DATA MAPPING FORMATS

573 574 575 :
576 :
577 :
578 579 :
580 581 -

2008
2009
2010
2011
2012
2013
2014
2015
2016

FMT_1 = uplit (Zasciz'YAEXPECTED: Z06XA
READ: JOGININ').
FMTZ2 = uplit (Zasciz'IAGOOD DATA: Z0GIA
BAD DATA: T06IA
XOR: YOGININ®).
FMT-S = wplit (Tasciz’'YADRIVE
SN: XO6ININ')
FMT 4 = uwplit (lasciz TABIT IN m 206 INEN')
FMT-S = uplit (Zasciz'YAGOOD NIB DATA: Z02XA BAD NIB DATA: X02XIA
NIB POS: O4ININ'),
FMT—6 = wplit (Zasciz'TANIB IN ERROR: ID4ININ').
FMT=7 = wplit (hsciz'WAILED AT xosmw
FMT8 = wplit (Zasc{z’ TAREPLACE
FMTTM9 = wplit (hscif SAFAILED AT DSA: xg

583 584 585 -

2018
2019
2020

FMT-11 = uplit (Jasciz'IAFAILING REG ADRS:
rm_1§ = uplit (Tasciz IAFAILING FUNC: zosm
FMIZ13 = wplit (Zasciz! XAOFF SET %‘r FOR NIB
: inz TA= ID2 ININ'),

582 :

2017

586 :

2021

588 *

2023

587 :

589 ;

FMT-10 = uplit (Yasciz*IABIT<15:10>: 1B6
FMT 14 = uplit (Yasciz'YAWROTE:

exf<9o> TB1OININ') ,

READ: ID2ININ')

2022

FMTT1S = wplit (Yasciz’ TANIBBLES XFERED BEFORE ERROR: IDSIN') .

2024

FMT_17 = uplit (Zasciz'INXADJAGNOSING UNIT ZO1XININ'),

FMTZ16 = uplit (Zasciz'YAFAILING REG: X06IA GOOD DATA: I06IA BAD DATA: XOGININ'),

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

CZM ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

591

.mLé

gs-oec-wao 09:

594 .
595
596 :
597 .
598 .

599 :

-Dec-1980 09:

2025
2026
2027
2028

FMT_18 = uplit
FMT_19 = wplit
FMT_20
= wplit
FMT_21 = uplit

(Xasciz'XATIMED OUT DURING MBUS
(Zasciz'YACRC GEN = B: IBOXA A:
(Xasciz'XACRC CAL = B: IBOXA A:
(Xasciz'XAFAILED AT PLOG: XD

FMT_ g z uplit (Zasciz'XAFAILED AT WRD: XD

FMT-23

2031
2032

2033

gg‘so :

2035

: ERROR MESSAGE MAPPING FORMATS

606 ;

2037

ONE_FMT = uplit (Zasciz'ITIN')

608 ;
609 ;
610 ;
611 ;
612 ;

2039
2040
2041
2042
2043

THR_FMT = uplit
FOR_FMT = uplit
FIV_FMT = uplit
SIX_FMT = uplit
SEV_FMT = uplit

614 ;

2045

NINFMT = uplit (Tasciz'ITXTXTTITITITITITING)

607 ;

613

615 ;

FAT_26 = uwplit (Zasciz' TS4XTIA:ISID1XDITD1ZD1INY) ,

TWO_FMT = uwplit (Zasciz'XTXTIN )‘

2044

(Zasciz'XTXTXTIN ) ¢
(Xasciz’XTXTITITIN ) ¢
(Xasciz'XTXTXTXITITIN ) ¢
(Zasciz'STXTXTETXTITIN ) ¢
(Xasciz'XTXTXTXTITITITIN ) ¢

EIG_FMT = uplit (Zasciz'XTETXTXTITITITITIN )‘
TEN_FMT = uplit (Zasciz"XTXTXTITXTXTITITITITAN )‘

2047

618 ;
619 ;

2049
2050

! DIAGNOSTIC VOCABULARY
!

ELV_FMT = uplit (Xasciz'XTXTITYTITITITITITITITING),

620 ;
621 ;

2051
2052

623 ;

2054

WRD_1 = wplit (Xasciz' GO*),

625 ;

2056

WRD_3

624 ;

626 ;
627 ;
628 ;
629 :

2053
2055

2057

2058
2059

630 ;
631 ;
63

2061
2062
2063

634 :

2065

636 ;

2067

638 :

2069

641
642
643
644
645

2072
2073
2074
2075
2076

633 ;
635 ;
637 .

639 .
640 ;

;
;
;
;
|

2064

2066

2070
2071

B]T: XD2ININ')

FMT_24 = uplit (Xasciz'XSXTISSIOGYS4X016IN'),
FMT_25 = uplit (Xasciz2*'XS4XTXA:XSX06°)

g}g :

622 :

X02XA FUNC
YBOXA P:
IBEXA P:
CHANNEL: XD

= uplit (Xasciz' YAREGISTERXS3SXAADDRESSTS/7XACONTENTSINEN

600 ;
601 ;

8% ;

SEQ 0043

!
! WORDS

HRD,% = uplit (Zasciz' DRV_RDY'),

= wplit (Xasciz®' ILFY),

WRD
46 = wlit (Xasciz®' OPI*),

WRD_5 = wplit (Xasciz® BAD')
WRD_6 = wplit (Xasciz® GOOD'),

WRD_7 = uwplit (Xasciz® PARITY NOT'),

WRD_8 = wplit (Zasciz® GENERATED'),
WRD_9 = wplit (Xasciz® DETECTED®),
WRD_10 = uplit (XZasciz’ ERROR'),
WRD_11 = wplit (Zasciz’' AFTER’)

uno_1§ = uplit (Zasciz’ DURING'S,

WRD_13

= wplit (Zasciz® AT®),

WRD_146 = uplit (XZasciz® FAILURE'),

WRD_15 = wplit (Zasciz® ATA')

WRD_16 = uplit (Zasciz® ATIN'S,

WRD_17 = uplit (Xasciz®’ WRITING'),
WRD_18 = uplit (Zasciz’ W')‘

WRD_19 = wplit
RD-SO = wplit
WRD_21 = uplit
\RD_Z% = uplit
WRD
23 = uplit

(Xasciz®
(Zasciz®
(Zasciz’
(Zasciz’
(Xasciz'

FUNC'),
TRE'),
RMR'),
EXCESSIVE'),
MBUS'),

TOPS=20 Bliss=16 .2(212)
PA: NEALEXAL3IML4.BLI.2 (3)

CZMABO M -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F_4&

PAGE 57

6A7 M4

22-Dec-1980 09:24:31

gzg :

22-Dec-1980 09:21:22

650 ;
651 ;
652 ;
653 .
654 ;
655 ;

2077
2078
2079
2080
1

WRD_26 = uplit
WRD_25 = uplit
WRD26 = uplit
WRD_27
= uplit
WRD
= wplit
WRD
z uplit

657 .
658 ;

2084
2085

WRD
WRD

2088

U!D% = yplit (Yasciz®' OR'),

656 ;

(Xasciz'
(Xasciz®'
(Xasciz®
(Zasciz’'
(Zasciz®
(Zasciz'

WRD_31 = uplit (Xasciz®

DATA'),
CONTINUITY'),
AOE'),
LBT'),
PREMATURLY'),
IAE'),
INCREMENT'),

=z uplit (Zasciz’® WITH'),
=z uplit (Xasciz' WV*)

659 :
660 :

2086
2087

662
663
664
665
666
667
668

2089
2090
2091
2092
2093
2094
2095

WRD_37
= uplit
WRD 38 = plit
WRD_39 = uplit
WRD 40 = uplit
WRD 41 = wplit
\-RD_kg = wlit
WRD_43 = wplit

2097

WRD 45 = wplit (Zasciz® INITIAL'),

2099

WRD 47 = wplit (Xasciz® COURT'),

210
2102

WRD_49 = wplit (Xasciz®' TESTS'),
WRD_S0 = wplit (Zasciz’
S*)

661 ;

;
;
;
;
;
;
;

669 :

670 ;

671 ;

672 :

673 ;
674 ;
675 :

676 :

677 ;

2096
2098

2100

2103

2104

678 :

2105

680 ;

2107

679 ;

681 :

682 :

683 :

684
685
686
687
688
689
690
691
692

2106

;
;

(Zasciz’ GTR'),
(Zasciz® WHILE'),

WRD
4% = uplit (Zasciz' TRE'),

WRD_46 = wplit (Xasciz' OFF SET®),

WRD_48 = uwplit (Zasciz’' DELAY')

WRD_S1 = uplit (Zasciz® COUNTER'),

hRD_S% = uplit (Rasciz’' REG'),

WRD_53

= uwplit (Yasciz® TESTED').

WRD_564 = wplit (Zasciz® NIBBLE'),
WRD_55 = uwplit (Zasciz® ALL')

WRD_S8 = wplit (Zasciz® NIBBLES'S,

2121

(Zasciz’' UNJQUE'),
(Xasciz®' 14°),
(Zasciz® NIBBLE CNT'),

2110

2109

69% :

;
;
;

(Xasciz® SELECT®),
(Xasciz® REG'),

WRD256 = wplit (Xasciz® TEST'S,

2111
2112
2113
2114
2115
2116
2117
2118
2119

695
696
697
698
699
700
701

WRD 3% = wplit (Zasciz® UNS')
WRD-3S = wplit (Zasciz’' PROM'S,

2108

;
;
;
;
;
;
;
;
;

693 :

SEQ 0044

2120

2122
2123
2124
2125
2126
2127
2128

WRD_57 = uwplit (Zasciz® XFERED')
WRD_59 = uplit
WRD_60 = wplit
WRD_61 = wplit
U!D-gg = uplit
WRD 63 = uwplit
WRD_64 = wplit
WRD_65 = uplit
WRD_67 = wplit
WRD_68 = wplit

(Zasciz® SC'),
(Zasciz® MULTIPLEXER'),
(XZasciz®' UNEXPECTED'),
(Zasciz® NED'),
(Xasciz’ ILR')
(Xasciz®' CRC*),
(Zasciz® SGL'),
(Zasciz® ECH')
(Zasciz'UNC’)

WRD_69 = wplit (Zasciz® BIT'S
WRD-70 = uwplit

WRD_71 = wlit
m-g = wplit
WRD_73
= uwplit
WRD_76 = uplit
WRD_75 = uplit
WRD_76 = uplit
WRD_77 = uplit

ciz' CHANNEL®)

(Zasciz’
(Zasciz®'
(Zasciz’
(Xasciz®
(Xasciz'
(Zasciz’
(Zasciz®'

LATCH'),
DCK*),
BUS'),
SYNDRONE'),
DECODE'),
NOT'),
UNCORRECTABLE'),

TOPS=20 Bliss=16 v2(212)
PA: NEALE>BL 3ML4.BLI.2 (3)

—

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

G &
PAGE 58

703 .mLé

NN NN A

GREESEYENRUC
LS
Novwne

d —d
b
—b

S-S TR
B

NN MNINININIAININININIAINININOININ)

22-Dec=-1980 09:24:3 ]
22-Dec-1980 09:21:2 [

2148

PHR_1 =
Pm_g =
PHR_3 =
PHR_4& =
PHR_S =
PHR_6 =

wplit
wplit
yplit
uplit
wplit
uplit

b
—d
b
d md
b
d
d
d
d
d
ed o
b o
b ad ed e
b

BIFJFANANISTEIERRER2E

2159

' NO RESPONCE AFTER 1.5 US'),
CLR*)
OF OTHER DRIVES'),
CLASS A'),

PHR_7 = wplit

PHR_8 = uwplit
PHR_9 = wplit
PHR_10 = uplit
PHR_11 = uplit
PH!_1§ = uplit

SINGLE 8IT ERRG!')‘

PHR_13
= wpiit (Xasciz®' MULTIPLE BIT ERROR'),
PHR_14 = uwplit
asciz’
REGISTER
DUMP'),

F;’FRJS = uplit (Xasciz'SERIAL ¢'),

; FUNCTIONS
FNC_1
FNC_2
FNC_3
FNC_4
FNC_S
FNC_6

AUALALALNLNLALAINLALININL
NN NNV NININININD

RANE33EE
NS

Be O Ve By 0 89 9g 0, 0, 0,08, 8, U, 880, %5 0 Q@3 0 09 %3900, 08, %80 8%008, 009 %)% 9, 0,08,9: 0,090,800 %0%9%s0,

04 ;
705

SEQ 0045

=
=
=
=
=
=

uplit (Zasciz® MEM SIZING'),
wplit
NOOP'),
wplit
DRV'),
wplit
WRITE CHFCK'),
WRITE'),
wplit
wplit
READ"')

CLEAR'S,

FNC_7 = uplit
FNC_8 = wplit
FNC_9 = wplit
FNC_10 = wplit
FNC_11 = wplit
FNC_1§ = uplit
FNC_13
= wplit
FNC_14 = wplit
FNC_15 = wplit

COMP ERROR')
.
SYS CLR'),

*“SEARCH') |

READ-IN-PRESET'),
ILLEGAL"),

FNC_16 = wplit

FNC_17 = wplit
FNC_18 = wlit
FNC_19 = wplit
FNC_51 = uwplit

FNC_ %’ = uplit
fNC_Z

= uplit (Zasciz’

.: REGISTERS
REG_1
REG_2
REG_3
REG_&
REG_S5
REG_6

=
=
=
=
=
=

wplit
wplit
wplit
uwpli
wplit
uwplit

(Xasciz®
(Zasciz®
(Zasciz®
(Zasciz®
(Xasciz®
(Zasciz®'

mLCS1"),
mLDS'),
MLER'),
MMR'),
MLAS'),
MLDA'),

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

[

—

CIMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEQUS CODING SECTION

22-DEC-80 12:16

759 ;M4
2181

REG_? = uplit

(Zasciz' MLDT'),

REG_9 = uplit

(Xasciz®' MLSN')

213%

REG_8 = wplit (Xasciz®' MPA'),

765 ;

2184

REG_10 = uplit (Yasciz’' MLE1'S,

767 ;

2186

REG_1§ = uplit (Zasciz’ mD1*),

769 ;

2188

REG_146 = uwplit (Xasciz’ MLEE'),

766 ;
768 ;

SEQ 0046

22-Dec~-1980 09:21:22

763 ;
764 ;

22-Dec=-1980 09:24:31

;g? :
762 ;

PAGE 59

2185

REG_11 = uplit (Xasciz2' MLE2®),
REG_13

= uplit (Zasciz' MLD2').

;
;
;

2189
2190
2191
2192
2193

REG_1S
REG_16
REG_17
REG_18
REG_19

=
=
=
=
=

;779 :

S}gg

I'REG_Z‘I = uplit (Zasciz® MLCS3*),

% :

g}gg

: MODULES IN ERROR MESSAGES

780 ;
781 ;
782 ;

2199
2200
2201

ASYNC = uplit (Xasciz'ASYNCHRONOUS FAILURE MODULE 7361'),
SYNC = wplit (Xasciz'SYNCHRONOUS FAILURE MODULE 7362 ')‘
ARR_DAT = uplit (XascizZ°ARRAY DATA FAILURE MODULE 7363 ')

784 ;

2203

770
7
772
773
776

;

775 ;

783 .

785 .

786 :

787 ;
788 ;

% H

2187

219

uplit
uplit
uplit
uplit
uplit

(Zasciz®
(
ciz’
(Zascfz®
(Xasciz®
(XZasciz®'

MLEL'),
MmLPD’),
MLCS2'),
mMLw(C'),
MLBA')

REG_20 = uplit (Zasciz’ n.aAi'S.

2202

MEM

= uplit (ZasciZ°MEMORY ARRAY FAILURE MODULE 7357'5.

2204

DATA LATE = uwplit (Zasciz’DATA LATE ERROR DURING TRANSFER'),

2206
2207

TRBLE LOOP = wplit (Zasciz'TROUBLE SHOOT LOOP ERRORS'),
RH ERROR = uplit (Xasciz'RH CONTROLLER ERRORS'),
TIRE_OUT = wplit (Zasciz'DRIVE HUNG AFTER MASS BUS TRANSFER'),

INTER = uplit (Zasciz'INTERMEDIATE DIAGNOSTIC MESSAGE'),

2205

SC_SET = wplit (Zasciz*SC BIT SET DURING TRANSFER'),

;3} M

gg}?

; DATA DJAGNOSTIC REGISTER SAVE LOCATIONS

793 .
79% 795 ;

2212
2213
2214

D1_TEMP = NIB_SAVE,
D2_TEMP = NIB_SAVE [1, 0, 16. 0],
E2_TEMP = NIB_SAVE [2, 0, 16, 0J;

7739 :

2 215
2216

! <BLF/PAGE>

T0PS=-20 Bl iss=16 v2(212)

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

(ZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-~80 12:16

4
I
PAGE 60

09999 99 %¢ 909, 090, 9% %% 95 % 9, 08,
Ve B g 8,08 8,00 %) 8,99 0%; 930390 % 008,80 9% 8,%9%9; 0009 % 9,069 0, 9% % 95

sty Pt Sut Suctr Sutr ot
2 Pt R
—

R OREREERRRERRERRE

pels NOWVES
WD -=O

(o
-To] 00 00 00 00 00 0o 0o Co

799 H. X4

SEQ 0047
22-Dec-1980 09:2 4:31
22-Dec-1980 09:2 1:22

routine LOAD_STACK (STK_PTR, NIB_PTR)
begin

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

novalue

FLNCTI(NAL DESCRIPTION:

LOAD STACK TAKES GOOD NIBBLE DATA
FOUND IN THE STRUCTURE °NIB_SAVE'

AND STORES IT INTO THE STRUTTURE

*STACK® REWRITING ANY BAD NIBBLE
l')i}:CK' LOCATIONS WITH GOON NIBBLE

FORMAL PARAMETERS:

STK_PTR
POINTS TO PRESENT DEPTH OF THE
'STACK® WHERE PRESENT GOOD NIBBLE
DATA IS TO BE STORED.

NIBPTR
POINTS TO CURRENT NIBBLE POSITION BEING
MANIPULATED.

g?:lal((.'fl INPUTS :
VECTOR OF 198 BYTE LOCATIONS WHERE

GOOD NIBBLE DATA IS STORED
DURING DIAGNOSTIC MODE READS, AFTER
BAD NIBBLE LOCATIONS HAVE BEEN
STRIPPED AMAY.

STK_OFF

vector of 9 byte LOCATIONS WHICH
STORES AWAY

A BAD NIBBLE OFF SET

COUNT FOR EACH NIBBLE POSITIDN

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
COMPLETETION CODES:

NONE

SIDE EFFECTS:

NONE

case .NIB_PTR from 0 to 9 of

!SELECT NIBBLE DATA TO BE LOADED INTO THE STACK

CIMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

SEQ 0048
TOPS-20 Bl iss=16 v2(212)
PA:<NEALE>BL3ML4.BLI.2 (5)

PR TR TR YR TN
¥

0] :
stack [(.STK_PTR - (.STK_OFF C.NIB PTRJ))J = ,NIB_SAVE [NIB 0];

LOAD NIBBLE DATA O INTD SELECTED STACK LOCATION

PRTR TN TR PR TR T PR TN TR PR

1 :
stack [(.STK_PTR - (.STK_OFF C.NIB PTRJ))J = .NIB _SAVE [NIB 1];

LOAD NIBBLE DATA 1 INTD SELECTED STACK LOCATION

2l :
stack [(.STK_PTR - (.STK_OFF [.NIB_PTR]))] = .NIB_SAVE [NIB
2

'LOAD NIBBLE DATA 2 INTD SELECTED STACK LOCATION

3] :
stack [(.STK_PTR - (.STK_OFF C.NIB_PTR])))]
= ._NIB_SAVE [NIB 3];

T TN

'LOAD NIBBLE DATA 3 INTD SELECTED STACK LOCATION

PRFE

4] :
stack [(.STK_PTR - (.STK_OFF C.NIB_ PTRJ))J = NIB_SAVE [NIB 4];

'LOAD NIBBLE DATA 4 INTD SELECTED STACK LOCATION

TRPR TR
TN PN PR P TN
PNPR PR
PR TR TR

869

J 4
PAGE 61

set

(5] :
stack [(.STK_PTR - (.STK_OFF C.NIB_ PTRJ))J .NIB_SAVE [NIB

'LOAD NIBBLE DATA 5 INTU SELECTED STACK LOCATION

6] :

stack [(.STK_PTR - (.STK_OFF

[.NIB_PTR1))] = .NIB_SAVE [NIB

'LOAD NIBBLE DATA 6 INTU SELECYED STACK LOCATION

:
stack [(.STK_PTR - (.STK_OFF C.NIB_PTR)))] = .NIB_SAVE [NIB_
7

'LOAD NIBBLE DATA 7 INTD SELECTED STACK LOCATION

8] :
stack [(.STK_PIR - (.STK_OFF [.NIB_PTRJ))J = .NIB_SAVE [NIB 8];

YR FE TR SR YR TR

867

AR PR

865

22-DEC-80 12:16

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

855 H, &4
856
857
858
859
861

MACRO M1113

ILOAD NIBBLE DATA 8 INTD SELECTED STACK LOCATION

9] :
stack [(.STK_PTR - (.STK_OFF C.NIB_PTR]))] = .NIB_SAVE [NIB
9
tes;

end;

'LOAD NIBBLE DATA 9 INTD SELECTED STACK LOCATION

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

909

22-DEC-80 12:16

JMLG

a(‘)

045
130
103
104
045
045
0450

101
120
1264
072
117
101
040

105
105
105
040
066
040
040

920 00425
921 00425
922 004260
923 004263
924 004266
925 00427
926 004274

/ZXAE/
/XxPE/
/CTE/
/D: /
/%06/
/XA /
7
7/

104
045
045
116
045
117
040

072
117
116
000
101
117
104

040
066
045
000
107
104
101

LASCII
LASCI1
ASCI1
LASCII
_ASCII
.ASCI1
ASCII

/D: /
/7X¥n6/
/XINX/
/N/<00><00>
/ZAG/
/000/
/7 oA/

928 004302
929 004305
930 004310
931 004313
932 004316

040
066
040
040
104

045
045
040
102
040

117
101
040
101
104

ASCIl
ASCII
ASCII
LASCI1
.ASCII

/ %0/
/76XA/
7
7/
/7 N/
/D D/

934 004324
935 004327
936 004332
937 004335

072
117
101
040

040
066
040
040

045
5
040
130

ASCI1
ASCI1
ASCII
ASCII

/: X/
/06%/
/A /
/7 X/

939 004343
004
941 004351
9%2 0046354
963 004357
%4 004362
945 004365
946 004370
947 004373
98 004376
949 004400
950 004403
951 004406

040
045
045
122
105
116
045
045
116
045
111
m

045
045
116
101
mm
040
072
117
116
000
101
124
116

117
116
000
106
126
123
040
066
045

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

7 X0/
76NV
/IN/<00>
/72AD/
/RlV/
V/E S/
/N: /
/%06/
/INX/
/N/<O0>
/XA8/
/1T /
V/IN/

954 004417
955 004422
956 004425
957 0044
958 004433
959 004436
960 004441

040
066
045
045
117
040
102

045
045
116
101
117
116
040

117
116
000
107
104
M
104

LASCI1
LASCII
ASCI1
.ASCI]l
.ASCI1
ASCII
LASCII

/ X0/
/76N
/7IN/<00>
/XIAG/
7000/
/ NI/
/B D/

962 004447
963 004452

072
117

040
062

045
045

927 004277

933 004321

938 004340

952
953

004411
004414

961 004444

122

124

101

117

105
117

101

105

101

124

122

122
122

124

101

ASCI1

P.AAB:

072

ASCI1

101

ASCI1

072

102
040
040

.ASCI]

P.AAC:

P.AAD:

122
072

101

.ASCI1
.ASCI]l

P.AAE:

SEQ 0049
22-Dec-1980 09:21:22

_ASCI]
LASCI]
LASCI]l
ASCIl
ASCI1
LASCII
ASCII

919 004247

P.AAA:

22-Dec-1980 09:24:31

91§ 004222
9N 004% S
914 004
9S 00‘2§6
916 0042
917 004241
918 004244

PAGE 62

ASCII

ASCII
ASCI1

/REN

/TA:/

/ATA/

/OR:/

/ERR/
/OR:/

/ATA/

/: %/
/702%/

TOPS

PA:<

3O“=ON0IN“O—1Nr—-—~2N7~0eN——WOiON-WVNr—FNnOe=—0OVNOe——2rVM—n—ONN.OlV—WNNN27O0OFN—OJMQO-r—L.ONl—ITO

M-01-2o-—odn-NW1N111305103OOr—eO1Nl1lW10W1M1N11110101WQIeO3O0r
1
1
l
¢
|
a a

eSQWg/PeMmcOgL33GSW/LPrS3v8eWgMLeP/WP/OruSngL3)SMSPD3/SLrPyWDIWGSO/3LBGNDWGLI/SDmB2nwgLGrSme3VgS/SLmPegVSmReDumgL2/OVSwL35SVuBmeWgL/33SV.IgOS2L/VWSG9LI<VSBmOY/gTLSD3gBLngO2/gNIwLSN9gDSmL/IgVGLg(V2eO/TmgL9OETSguLwngO/SLSD9E<SguLmngWUa/SguLngDN9mLGDT/eg2LIgO9mPL/GmOGngoWwSL2r/geI9GOumSLagmNO<gqLVG/wgD9BLSTgLG®VgLS2VmDg/O9Lw2DGNOqL/(3SVoD2gOgLL/gqGDm3WgG/P5PqL$gmmS3eg/$QVgeOgT
AAG:

(Pegs

& & &8

MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

MACRO M1113

P.AA]

22-DEC-80 12:16

P .AAF

PAGE 63

ASCI

P.AAH

SEQ 0050

22-Dec-19
22-Pec-19

2 22 1:22

4:31
PA:<

TOPS

SwCwuCu“/Cwccwcuucwcmcwcwc5cw3y0cy2cu1c2Cmc>mCu‘cw75C”2cw76cmwcn4w7cu51cw35cy6wcufcl0w1c6umca2n6cu5y5c/0z2c‘w
ggegg(R@RRPRU(UR(RR1@R1ghe0@R1(Re.PRlI-PRlqglaRl(R1(e(R1GU0(T1(R(e(RPPSPge(S(IeP(o(oO~PPPPeePOAo
ISQg&2yg35SLGSuummeggAGS2inSm5ggYSS30SEoSung2SeS3ASumPn2gRRSOrSeng3gSTPSP3eSiPGS30gS2GS0gT3og9SB5(3SeG0Sy2g87P3lSSy24SmSug96oSB3AGuSmeg25SS9BS1emgGLuGng09ggR6eIAS0g9eSemqegO82BGTUSS9N-BB0BS9N8SSP9BGnuangg9BSGy9BFonSg)9AgBR9eBnOqGBAAg2BR2TSGGSm9GegTSBQgGGqBGTqGBrmygqGS8q$mSg?ge
8A 8A &A
CZMLABO ML-11 LOGIC TESTY

mBmimcmewmmsmimamcuammcmsmmmmmmm —-1c_—le—O.1r_l1

1n&monn5msmno

040
040
045
040
045

MACRO M1113

22-DEC~80 12:16

H, K

P.AAK:

;

P.AAM:

22dec-19
22dec=-19

MISCELLANEOUS CODING SECTION

PAGE 64
SEQ 0051

/yumwwaHWW/muwwm/uwy/W/wuVW/n/wmuwuxuum>nmwxzw
LgS<WN]VSoAOByLoYBUuPngOe3BVSyLA0PVSyLYOSGLVnygOA°BumBLegVY&PBLAo"BGVY°LSoSnVgOL&LSSVABoNLumSagOY&VBBLA&gVSLYS0GNorDutngL&GBLA&gALSUY&SSrouuVnnggAL©US°mGVg5gUeLY&geVLA&GoSunfV&UGSLA6VGSL&eSVLYegBOLAogSuefYOoSSLI¢OgBLY9SVvGngWAoLgVGLUoVSPLIogeLYeGrVmGegLAOgBVYU&BreSLngAVoNeSLoNSGVY®WSGLI”WSBNOYoLSBVASooLSVIsNSLBYoBGmDegALoNGBDOoggL¢oVSB0DA¢LGBR©ggAOLA&OGSL?®OSSL.gAeD

s3Esast0298,ORIN22SISBoteSBgYRASIoRaSaraluRE

1Sql|ql1.l1.l.LQ]l1e"114l.1|.'l11-¢'l1¢.al11N110111A1-l1-l-1lRalo:c'l.1lcl1cLa]l111.1l1.l1q1l.1l1101111111L1RQ]1a111111-1
MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST
1077
1078

oeaplkf

BNSRYO8DEMoSREROmm8wmmwm2mmmm8wmmmmmmmmmmmwmmm oeTNR-Pkt

MACRO M1113

22-DEC-80 12:16
PAGE 65

SEQ 0052

22-Dec~1980 09:24:31
:21:22
22-Dec-1980 09:2
<
PA:

TOPS

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS COOING SECTION

MACRO M1113

1133

040
125
045
045
106
103
045
000
045
122

115
123
117
101
125
045
116

000

101
103

103
040

1147 005423
1148 005426
1149 005431

040
102
045

075
072
102

040
040
066

1151 005437
1152 005442
1153 005445
1154 005450
1155 005453
1156 005456

101
045
04S
120
045
045

072
102
101
072
102
116

040
066
0450
040
066
000

1158 005462
1159 005465

045
122

101
103

103
040

1161 005473
1162 005476
1163 005501
1164 005504
1165 005507
1156 005512
1167 005515
1168 005520
1169 005523
1170 005526
1171 005531
1172 005534

040
102
045
045
101
045
045
120
045
045
116
045

075
072
1.2
101
072
102
101
072
102
116
000
101

040
040
066
040
040
066
040
040
066
045
000
106

1174 005542
1175 005545
1176 005550
1177 005553
1178 005556
1179 005561
1180 005564

105
101
120
107
045
045
103

104
124
114
072
104
101
110

1182 (X)SS?g
1183 00557
1184 005600

114
045
045

072
104
116

1157 005461

1160 005470

1173 005537

1181 005567

1185 005603
1186 005606
1187 005611

107

045

103

101

116

116
045
101

105

101

1M1

116

000
101
m

102
040
062
040
116
116

P.AAS:

116

2 -Dec=1980 09:21:22

LASCII
LASCII
ASCI1
ASCII
ASCI1
LASCID
LASCII
ASCI]1
.ASCI]
LASCI1

/7 mB/
/sUS /
/%0¢2/
/XA /
/FUN/
/7CINV/
/7XIN/<00>
<00>
/XAC/
/RC /

ASCI1
.ASCI1
LASCI1

/7 =7/
/8: /
/XB6/

ASCII
LASCI1
LASCII
LASCII
LASCII
ASCII

/A: /
/XB6/
/XA /
/P: /
/7¥B6/
/7IN/<OO0>

_ASCII
.ASCII

/XAC/
/RC /

LASCI1

040

LASCII

P.AAT:

114

ASCII
ASCI1

/GEN/

/XA /

<00>

/CAL/

ASCI1
ASCI1
ASCI1
LASCII
ASCII
ASCI1
LASCI]
ASCI1
ASCII
LASCI1
ASCI1
_ASCII

/7 =7/
/8: /
/XB6/
/%A /
/A: /
/XB6/
/XA /
/P: /
/7Y¥B6/
/INX/
/N/<00><00>
/XAF/

040
040
117
040
062
040
101

LASCI1
ASCI1
ASCI1
ASCI1
ASCII
ASCI1
ASCII

/ED /
/AT /
/PLO/
/G: /
/XD2/
/XA /
/Cha/

040
062
045

LASCII
ASCII
ASCII

/L: /
/XD2/
/INX/

114

P.AAU:

105

000
106
114

ASCII1

LASCI1

P.AAV:

SEQ 0053

2-Dec=1980 09:24:31

1136 005364
1137 005367
1138 005372
1139 005375
1140 005400
1141 005403
114% 005406
1143 005411
1144 005412
1145 005415

1150 005434

PAGE 66

JMLG

H?fi

1146 005420

22-DEC-80 12:16

ASCII
_ASCI]1
ASCII

/AIL/

/NNE/

/N/<00><00>
/XAF/
/AlIL/

TOPS

PA:<

CZMLABO ML-~11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

1189

22-DEC-8C 12:16

C_5
PAGE 67

JMLS

Hg‘)

2 -Dec=1980 09:24:31

22 -Dec=-1980 09:21:22

1192 005614
1193 005617
11946 005622
1195 005625
1196
1197 005633

105
101
127
072
)|
101

104
124
122
040
062
040

040
040
104
045
045
102

.ASCII1
LASCI1
ASCI1
LASCI1
ASCI1
ASCI1

/ED /
/AT /
/WRD/
/: X/
/D2X/
/A B/

1199 005641
1200 005644
1201 005647
120% oosssg
1203 00565

040
062
045
045
105

045
04S
116
101
107

104
116
000
122
1M1

LASCII
ASCI1
ASCII
ASCI]
LASCI]l

7 XD/
/2W/
/7IN/<00>
/IAR/
/EGI/

1205 005663
1206 005666
1207 005671

122
063
101

045
045
104

123
101
104

ASCII
LASCI1
.ASCI1

/RXS/
/73%A/
/ADD/

1209 005677
1210 005702

123
067

045
045

123
101

ASCIT
ASCII

1213 005713
1214 005716
1215 005721
1216 005722
1217 005725
1218 005730
1219 005733
1220 005736
1221 005741
1222 005744
1223 005746
1224 005751
1225 005754
1226 005757
1227 005762
1228 005764
1229 005767
1230 005772
1231 Q05775
12%% 006000
1233
006003
1234 006006
1235 006011
1236 006014
1237 006016
1238 006021
1239 006024
1240 006027
1241 006032
1242 006034
1243 006037

124
116
000
045
124
065
066
064
061
116
045
045
101
123
066
045
045
101
123
061
061
061
061
000
045
116
045
124
000
045
124

123
045

045
116

123
045
045
045
045
066
000
123
124
072
045
000
123
124
072
045
045
045
045
045
000
124
000
124
045
000
124
045

045
123
117
123
117
04S

P.AAX:

064
045
045
117

P.AAY:

0646
045
045
104
104
104
104
116

P.AAZ:

045
000
045
116

P.ABA:

045
124

P.ABC:

LASCI1
ASCII
LASCII
_ASCI]
ASCII
ASCI1
ASCI1
ASCII
ASCII
ASCI]l
_ASCI]l
ASCII
ASCI1
.ASCl]
ASCI1
_ASCII
ASCI1
ASCI1
.ASCI1
LASCI1
ASCI1
ASCII
ASCII
LASCII
_ASCI]
LASCII
.ASCII
ASCII
LASCIT
.ASCII
LASCII

1198 005636

1204 005660

1208 005674

1211 005705
1212 005710

1R}

123

122
103
124

124

105

117
105

072

LASCI1

P.AAW:

105

ASCJ1

123

ASCIl

116
116

ASCII
LASCII

P.ABB:

SEQ 0054

/17:/

/STE/

/RES/

/SXS/
/7w

/CON/
/TEN/

/TSX%/
/
<00>
/XS%/
/7%S/
/5%0/
/6XS/
/4%0/
/716%/
/N/<00>
/XS4/
/%TX/
/A:X/
/S%0/
/76/<00>
/XS4/
/%TY/
/A:X/
/SXp/
/71XD/
71X/
/1XD/
1w
<00><00>
/%TX%/
/N/<00><00>
/%XTV/
/TN
<00><00>
/XTX%/
/TX1/

TOPS

PA:<

CIMABO ML -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

1245

22-DEC~80 12:16

sMLé

}%29

045

116

000

1250 006046
1251 006051
125% 006054
1253 006057
1254 00606%
1255 00606
1256 006070
1257 006073
1258 006076
1259 006100

045
126
045
116
045
124
045
124
000
045

24
045
124
000
126
045
124
045
000
126

045
124
045
000
045
124
045
116

P.ABD:

P.ABF:

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

116

045
124
045
124
000

1264
045
1264
045
124
000
126
045
124
045
124
045
000
124
045
124
045
1264
045
116

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

P.ABG:

045

P.ABI:

126
045
126
045
1264
045
1264
000
124
045
1264
045
124
045

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

1260 006103
1261 006106
1262 006111

1263 006114
1264 006117
1265 006120
1266 006123
1267 006126
1268 006131
1269 006134
1270 006137
1271 006142
1272 006145
1273 006150
1274 006153
1275 006156
1276 006161
1277 006164
1278 006166
1279 006171
1280 006174
1281 006177

1222 006202
1283 006205
1284 006210
1285 006213
1286 006214
1287 006217
1288 %2%
1289
2
1290 006230
1291 006233
129% 006236
1293 006241
1294 006244
1295 006247
1296 006252
1297 006255
1298 006260
1299 006263

000

124
045
124

124
04S
124

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

045
124
045

124
0u5
1¢6

2-Dec=1980 09:21:22

LASCII

P.ABE:

P.ABH:

045
124
000
P.ABJ:

P.ABK:

SEQ 0055

2-Dec-1980 09:24:31

1248 006042

1249 006045

D §
PAGE 68

ASCII

.ASCII
ASCII
ASCII
ASCJ]
.ASCII
LASCII
LASCII
ASCII
LASCII
_ASCII

LASCII
ASCI1
.ASCI1
ASCII
ASCII
.ASCII
LASCII
ASCI1
LASCI1
ASCI1
ASCII
.ASCII
LASCII
ASCI1
LASCIDT
LASCII
ASCI1
ASCII
.ASCII
ASCI]
ASCI1
ASCI1
ASCII
ASCII
ASCII
LASCII
L.ASCII
ASCII
LASCII
ASCII
LASCII
LASCII
ASCI1
LASCII
_ASCII
ASCII
LASCII
ASCII
LASCII
LASCII

/7IN/<00>

<00>

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

/7XIN/<O0>
<00>
/%7%/
/T1X1/
/XTX%/
/7X1/
/7XTX/
/N/<00><00>
/%TX%/
/1X1/
/XTX/
/7TX1/
/XTX%/
/TW/
<00><00>
/%1X%/
/1X1/
/7XT%/
/1%1/

/7XTX/
/1XT/
7IN/<00>
<00>
/%TX%/
/1X1/
/XTX/
/7X1/
/XTX/
/1X1/
/XTX%/
/N/<00><00>
/%T%/
/7X1/
/7XTX%/
/1X1/
/7X1%/
/TX1/

TOPS

PA: <

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

1301

22-DEC-80 12:16

MLS

}338%

045
124
000
040
000
040

124
045
000
107

04
116
117

P.ABL:

104

122

P.ABM:

1311 00631%
13‘I§ 00631
1318 006314
1314 006317
131§ 00632§
1316 %0
1317
1318 006333
1319 006336
1320 006341
1321 006344
1% 006347
1
006352
1324 006355
1325 006360

104
000
040
106
040
1M
040
104
040
117
040
122
13
117
040

13N

000

m
000
117
000
102
000
107
104
120
1M1
040
126
107
105

114
000
120
000
101
000
117
000
101
124
116
000
105
122

000
104

000
105

1331 006402
1332 006405
1333 006406

104
040
124
124
000
040

105

104

1335 006414
1336 006416

000
040

000
101

1338 006424
1339 0066%6

000
040

000
104

1341 006434
1342 006436
1343 006441
1344 0%“;

107
040
000
040

000
101

1346 006450
1347 006453
1348 006454
1349 006457
1350 006462
1351 006465
1352 006470
1353 006473
1354 006476
1355 006501

122
000
040
101
040
124
040
111
116
000

1326 006363
1327 006366

1328 006371
1329 006374

1330 006377

1334 006411

1337 006421

1340 006431

1345 00644

126

116
101

122

124

122

1M1

137

124

105

117

105
m

122

/7XT%/
/TN
<00><00>
/ GO/
<00>
/ DR/

P.ABS:

ASCI1
LASCII
_ASCl]
ASCI1
.ASCII
ASCII
.ASCll
LASCI1
_ASCI]
ASCI1
.ASCI]l
ASCI1
ASCII
.ASCI1
.ASCI]

/DY/<00>
<00>
7/ 1w/
/F/<00><00>
/ oF/
/71/<00><00>
/ 8N/
/7b/<00><00>
/ GO/
/00/<00>
/ PN/
/RIT/
/Y vV
/07/<00>
/ GE/

P.ABT:

.ASCI1
_ASCI1

/D/<00><00>
/ DE/

P.ABU:

ASCI1
ASCII
.ASCll

/TEC/
/TED/
<00>
/ ER/

P.ABV:

ASCII
.ASCI1

<00><00>
7/ AF/

P.ABM:

LASCII
.ASCII

P.ABO:

P.ABP:
P.ABQ:
P.ABR:

105

103

122
122

106
122

125

116

126

P.ABX:

106

101

P.ABY:

105

000

101
000
101
116
127
124
107

126
000
126
000
122
111
000

114

125

22-Dec=1980 09:21:22

LASCI1
LASCII
LASCII
.ASCII
LASCII
_ASCIl

P.ABN:

P.ABZ:
P.ACA:

P.ACB:

SEQ 0056

22-Dec-1980 09:24:31

1304 006266
1305 006271
1306 006274
1307 %(7)6
1308
1
1309 006302

1310 006305

E S
PAGE 69

ASCIl

.ASCI]
ASCI1
ASCII

ASCII

ASCI]l

/V R/

/NER/
/ATE/

/ROR/

/TER/

<00><00>
/7 DU/

ASCI]l

/RIN/

LASCI1

/ILW/

ASCII
.ASCII
ASCII
_.ASCIl
.ASCI1
LASCII
.ASCI]1
ASCI1
.ASCI]
LASCII
.ASCI]
LASCI1
ASCII
ASCII

/G/<00>
/ AlV/
<00>
/ A/
/RE/<00>
<00>
/ AT/
/A/<00><00>
/ AT/
/TN/<OO0>
/
/7111
/NG/<00>
<00>

TOPS

PA:<

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

1357

22-DEC-B0 12:16

H. ¥4

}ggg

040
000
040
116
040
105
040
122
040

126

P.ACC:

106
103
124
000
122
000
10S

125
000
122
000
11S
000
130

P.ACD:

1371 006541
1372 006544
1373 006547
1374 006552
137S 006555
1376 006560

108
040
125
040
124
040

000
115
123
104
101
103

000
102
000
101
000
117

1379 006571
1380 006574
1381 006577
1382 006602

1383 006605
1384 006610

126
040
105
040
124
040

13
101
000
114

000
117
000
102

1386 006616

124

125

1369 006533
1370 006536

1377 006563
1378 006566

1385 006613

103
123

116
116

105

105
111

124
125

000
120
115

123
126

1M
1M

000
122
101

114
040
105
040

13
111
000
M

000
101
000
116

139% 006640
1393 006643
1394 006646

115
124
040

105
000
127

1396 006654
1397 006657
1398 006660
1399 006663
1600 006666
1401 006671
1602 006674
1403 006677
1404 006700

040
000
040
123
040
117
040
000
040

125

1606 006706
1407 006710
1408 006713
1409 006716

124
040
107
040

000
122
000
125

1411 006724

105

000

1395 006651

1405 006703

1410 006721

103

124

114

P.ACF:
P.ACG:

P.ACH:
P.ACI:

P.ACJ:
P.ACK:
P.ACL:

P.ACM:

122

1387 006621
1388 006624
1389 w
1390
1391 006635

P.ACE:

.ASCII
ASCI1
L.ASCI1
LASCII
.ASCII
LASCII
.ASCll
.ASCI1
.ASCII

7/ vv/
<00>
7/ FW/
/NC/<00>
/_TR/
/8/7<00><00>
/7 AW
/R/<00><00>
/ EX/

ASCI1
.ASCIl
ASCI1
.ASCII
ASCII
.ASCII

/7E/<00><00>
/ mB/
/US/<00>
/ oA/
/TA/<O0>
7/ CO/

LASCII
.ASCI1
ASCII
.ASCl]

LASCI1
.ASCI1

/TY/<00>
/ A0/
7E/<00><00>
/ W/
/T1/<00><00>
/ PR/

ASCII

/TWR/

.ASCI1
LASCI1

.ASCI]
LASCI1

ASCl1

P.ACO:

116
000
111

P.ACP:

ASCII
ASCI1
.ASCII

126

P.ACQ:

125
000
120
115
117

116
000
122
000
122

P.ACR:

123

105

P.ACU:

122

110

105

121

105

000

103

105
000
116
125

P.ACS:
P.ACT:

P.ACV:
P.ACW:

SEQ 0057
22=-Dec-1980 09:21:22

ASCII
.ASCI1
ASCI1
.ASCI1

P.ACN:

22-Dec=1980 09:24:31

1360 006502
1361 006505
1% 006506
1
006511
1364 006514
1365 006517
1366 MSZ%
1367 %Sgo
1368 0065

PAGE 70

.ASCI]1

LASCI]

.ASCII
ASCI1
.ASCII
ASCI1
.ASCIl
ASCII
.ASCI1
ASCI]
.ASCI]
ASCI1

ASCI1
L.ASCI]
ASCI1
.ASCII

ASCII

/CES/
/S1v/

/NTl/
/NuUl/

/ema/

/LY/<00>
7/ IN
/E/<00><00>
/7 IN
/CRE/

/MEN/
/1/7<00><00>
7/ Wl/
/TH/<00>

7 uv/
<00>
/ W/
/5/<00><00>
/ PR/
/0M/<00>
7/ OR/
<00>
/ SE/
/LEC/

/7/<00>
/ RE/
/76/<00><00>
/7 UN/
/1lQu/

/E/<00>

TOPS

PA: <

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

1615
1416 006;%6
1417 006731
1418 00673§
1419 00673
1420 0067
1421 00674
1422 006746
1423 006751
1454 006754
1425 006757
1426 006762
1427 006764
1428 006767
1429 006772
1430 006775
1431 007000
1432 007003
1433 007004
1434 007007

040
000
040
102
105
116
040
122
040
111
000
040
105
040
m
101
000
040
106

1436 007015
1437 007016
1438 007021
1439 007024
1440 007026
1441 007031
1442 007034
1443 007036
1444 007041
1445 007044
1446 007046
1447 007051
1448
007054
1449 007057
1450 007062
1451 007065
1452 007066
1453 007071
1454 007074
1455 007077
1456 007102
1457 007104
1458 007107
1459 007112
1460 007114

000
040
125
000
040
114
000
040
123
000
040
122
040
125
105
000
040
107
040
123
104
040
102
105
040

1462 007122
1463 007125
1464 007130
1465 007133
1466 007136
1467 007140

040
123
040
105
104
040

1435 007012

1461 007117

105

114

061

064

P.ACX:

116
102
040
124
107
000
127
174
000
124
000
mm
124
114

111
114
103
000
126
000
110
105

P.ACY:

122
000
116
1
000

P.ADB:

117
137

106
123

P.ADD:

P.ACZ:

P.ADA:

P.ADC:

124

000

103
116
000
104
101
000
124
124
000
101
123
103
116
122

117
124

P.ADE:

105
131

P.ADF:

105
123

P.ADG:

104
000
117
124
000

P.ADH:

105
000
105
105

P.ADJ:

111
114

P.ADL:

114

P.ADM:

105
000
106
105

P.ADN:

111

P.ADP:

122
000
124
124
000
116
102
000
101

000
124
124
130
122
000
116

000

.ASCII
LASCIl
.ASCIl
LASCI1
ASCII
LASCI1
.ASCII
.ASCI1
_.ASCII
.ASCI1
ASCII
.ASCII
LASCII
.ASCI]
ASCI1
JASCI]
LASCII
.ASCI1
.ASCII

/ 14/
<00>
/ NI/
/BBL/
/E C/ - - -/N7/<00>
/ GI/
/R/<00><00>
/ W/
/1'E&/
<00><00>
/ TR/
/E/<00><00>
/ IN/
/1T1/
/AL/<00>
<00>
/ OF/
/F_S/

LASCII
.ASCII1
ASCII
LASCII
_ASCII
LASCII
.ASCI1
.ASCII
ASCII
LASCI]1
_ASCI1
ASCII
.ASCII
ASCI1
.ASCII
LASCI]
.ASCII
ASCII
_.ASCII
.ASCI1
.ASCII
.ASCII
.ASCl1
.ASCII
_ASCII

<00>
/ CO/
/UNT/
<00><00>
/ DE/
/LAY/
<00><00>
/ TE/
/STS/
<00><00>
/ AD/
/RS/<00>
/ CO/
/UNT/
/ER/<00>
<00>
/ RE/
/6/<00><00>
/ TE/
/STE/
/D/<00>
/ NI/
/88L/
/E/<00>
/ AL/

_ASCII
.ASCI1
.ASCII
.ASCI1
.ASCI1
.ASCIl

/ TE/
/ST/<00>
/ XF/
/ERE/
/D/<00>
/ NI/

LASCII

P.ADI:

P.ADK:

P.ADO:

SEQ 0058

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

JMLG

-—b

1413

LASCII

/EY/<00>

/L/<00><00>

TOPS
PA:<

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

14669

H S
PAGE 72

}2;?
16472
1473

22-DEC-80 12:16

22-Dec=1980 09:24:31

:
007143
007146

102
105

10%
12

114

123

103

P.ADQ:

115

125

P.ADR:

1474 007151
1475 007152
1476 007155
1477 007156

000
040
000
040

1480 007167
1481 007172
1482 007174
1483 007177

130
000
040
105

105
000
125
130

1485 007205
1486 007210
1487 007213
1488 007216
1439 007221
1490 0072264
1491 007227
1492 007232
1493 007235

105
040
104
040
122
040
103
040
114

104
116
000
111
000
103
000
123
000

000
105
000
114
000
122
000
107
000

125

116

1478 007161
1479 007164

1484 007202

114
120

105

1494 007240
1495 007243

040
110

1498 007252

040

1500 007260

040

1502 007266

105

1496 007246
1497 007251

1499 007255

1501 007263

124
114

103

105
000

102

MM
105

122
116
120
124

111

P.ADZ:

110

P.AEA:

000

101

116

114

101

1506 007300
1507 007302
1508 007305
1509 007310
1510 007313
1511 007316

040
113
040
123
040

000
104
000
102
000
123

103
000
125
000
131

1513

117

116

105

1S1§ 007321

007324

124

116

103

104

1516 007327
1515 007330

000
040

104

1517 007336
1518 007340
1519 007343
1520 007346

105
040
124
040

000
116
000
125

1516 007333

1521 007351
1522 007354
1523 007357

103

103
122
124

117

117
105
101

P.ADW:

P.ADY:

040

1505 007275

P.ADV:

103

000

1504 007272

P.ADU:

P.ADX:

114

1503 007271

P.ADT:

103
000

124

103

P.ADS:

110

122
105
104

117
000
116
122
103
102

22-Dec=1980 09:21:22
LASC]1
LASCI]

/88L/
/ES/<00>

LASCII
LASCI]1

/LT1l/
/PLE/

.ASCI1

/ECV/

LASCII
.ASCII
LASCII
.ASCI1

ASCI1
ASCII
.ASCI]l
ASCI1

ASCJ1
_ASCI1
ASCI1
.ASCI1
ASCI1
.ASCIl1
.ASCI1
.ASCII
LASCI1
.ASCI]
LASCI1

.ASCI]
ASCII

.ASCIl

P.AEC:

P.AED:

P.AEE:

P.AEG:

P.AEH:

/XER/
<0N><00>
/7 UN/
/EXP/
/ED/<00>
/ NE/
/D/<00><00>
7/ 1L/
/R/<00><00>
/ CR/
/C/<00><00>
/ SG/
/7L/<00><00>
7 EC/
/7H/<00><00>
/UNC/
<00>

/ 81/

/7T/<00><00>

ASCI1

/AN

.ASCI1
ASCII

/ CW/

/EL/<00>
<00>

.ASCll

/7 W/

ASCI]
.ASCII
ASCII
.ASCI1
ASCI1
.ASCI1

<00><00>
/ oC/
/K/<00><00>
/ B/
/5/<00><00>
/ SY/

ASCI1

ASCI1
ASCI]

P.AEF:

<00>
/ SC/
<00>
/ my/

LASCII

ASCII

P.AEB:

SEQ 0059

ASCII
.ASCII

/TCH/

/NDR/

/0ONE/

<00>
/ DE/

.ASCI]

/COD/

.ASCI]
.ASCI1
.ASCI]

/COR/
/REC/
/TAB/

ASCI1
.ASCII
ASCII
.ASCIl

/E/<00>
/ NO/
/T/<00><00>
/7 W/

TOPS

PA:<

)

b e

) o

b and

b e

d ol

b e

d ed

d wd

b e

)

d nd

) wdd

D i

) i

) e

g
T

N
o

Y W

[
Py

M)~

P.AEQ:

- -

—

—t

N —

b ok

LV VT,
WP

—y

P.AEM:

P.AEN:

P.AEP:

P.AER:

nd cmd

g bumg Sg B

g o

—b

Sumg Sy

By Suung

g By

g B

Bt o

Sumg B

g B

mn Buuep B

Bmg e

Do St Bt Se

alalalalalialele] (alalslalalalslalalel

2z 2 2z 333333333 333333334

— el

R2I2 ”R

1525

P_AEL:

——d

—

P.AEK:

N —

—

SO0
—

N
NOO
=

e B e T R
e e
O=O=
Vion
WNWN

b wud

WNSOO

-l—l—h? £8 SINRIS

P.AEJ:

— b _n—n?_n

—d

P.AEIl:

§23 88z §oz g ONNNg 8g= §N—i NSO NV!Ng

O =
WNSO

7602

— b d b b -A?-A - R
?O—‘—‘
NSO
N
?8'\)
&S
NN
OoONO ONO
=W g
RN = RSR832o3N> g
VI
VO
&~ON) T

\A]

JFISIIINIE SEEEEFELEE U\é‘\h\h\h\.fl\l\\h\h\n
4 PARAIABE ELELFEREE AT
88888282888888288 8
8288
8822888
g
g
gegEsss
SN
AAAAAAAR
gg SuRey
2 35EGR
%
&
T
SNEREEY,

— ed ed

MISCELLANEOUS COD! NG SE CTION

CZMLABO ML-11 LOG] C TES )

MACRO M1113 22-DEC~B0 12:16 PAGE 53
H, T

<00>
/ 81/
/T N/
/0T /
/SET/
<00><00>
/ Bl/

/LE/<OC>

/T N/

/07 /
/CLR/
<00><00>
/ NO/
/ RE/
/SP0Q/
/NCE/

/ AF/
/TER/

P.AEQ:

/1VE/

/5/<00><00>

/ A/<00>
<00>
/ CL/
/ASS/
/ B/<00>
<00>
/ 10/
/ F1/
/ND/<00>
<00>
/ CL/
/ASS/

SEQ 0060

22-Dec-1980 09: 26 : 3
22-Dec-1980 09: 21 :22
PA:<

TOPS

CZM ABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

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

1581

1584 007576
1585 007601

040
124

116
040

1587 007607
1588 007612
1589 007614

110
000
040

105
000
123

159 00762%
1S9§ %7(&0

105
111

040
124

102
040

1596 007633
1595 007636

117
040

122
118

000
125

1597 007644
1598 007647
1599 007652

120
040
124

114
102
040

1601 007660
1602 007662
1603 007665
1604 007670

122
040
040
040

1607 007701
1608 007704

1610 007712

1586 007604

1590 007617
159

1596 007641

1600 007655

1605 007673
1606 007676

1609 007707
1611 007714
1612 007717

1613 007722
1614 007725
1615 007726
1616 007731
1617 007734
1618 007737
1619 007742
1620 007745

1621 007750
1225 007753
1
007756

101

116
105

124

107

122

22=-Dec-1980 09:24:31

114

P.AET:

/ATC/

.ASCI1

/NGL/

.ASCI]1
LASCI1

122

ASCI]l

/HED/
<00><00>
/7 Sl1/

/E 8/
/71T /

/ERR/

/PLE/
/ Bl/
/T E/

000
040
040
040

040
040
040

.ASCI1
.ASCII
LASCII
ASCI1

108
040

122
040

040
104

000

040

122

122
1M1
125

123
1M

000
040
115
111

116
040
117
040

122

105
123
115
105
101

P.AEV:

107
124

.ASCIl
LASCII

.ASCI1
.ASCIl1

120

LASCII

115
040
132
107
116
120

105
123

P.AEX:

124

104
103

101
000

000
117
000
122

000
122
105

P.AEY:

P.AEZ:

105

105
000
116
122

ASCII
.ASCI]
LASCIl

LASCI1
ASCI]I
.ASCII

/RRO/

/R/<00>
7
/
7/
/7
/
/REG/
/IST/

V/ER /
/7 D/

7ump/

<00><00>
/SER/
ZIAL/

/ #4/<00>
<00>
/ ME/

/m S/
7111/
/NG/<00>
7/ NO/
/70P/<00>

.ASCI1

/ITE/

P.AFA:

P.AFB:

ASCI1I
LASCII
ASCI]
.ASCI]

P.AFC:

ASCII
.ASCII

P.AFD:

/LTl/

LASCIl
LASCI1
LASCI1
.ASCII
ASCI1

.ASCll
LASCI]
_ASCIl

110
113
122

ASCII

.ASCI]l

000

000
122

101
0460
105
000

117

043

000
040

111

P.AEU:

P.AEW:

1630 010002
1631 010004

111

122
114

103
103
000
127

1635 010020

111

LASCII

.ASCI]1
LASCII
_ASCII

.ASCIl1
.ASCl]l
LASCIl

124

040
105
000
040

1634 010015

104

/ NO/
/T L/

105
111
105

114

1625 007764
1626 007767
1627 007772
1628 007774

16% 010007
1633
010012

103

.ASCIl
ASCI1

/OR/<00>
/7 muv/

104
000
127

1629 007777

P.AES:

LASCI]
.ASCI]

126
040

1626 007761

117
114

SEQ (061

20-Dec-1980 09:21:22

}

ASCI1

LASCI]
_ASCII

.ASCI1

ASCII

7/ DR/
/v/<00><00>
/ W/
/7 CW/
/ECK/
<00><00>
/ W/
/I1TE/

<00><00>
/ RE/

/AD/<00>
/ CL/
V/EAR/

<00><00>

TOPS

PA:<

CZM ABO M -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

1637

22-DEC-80 12:16

MLé

}2%8

040
115
105
117
040
123
114
000
040

103
120
122
12%
12
040
122

117
040
122
000
131
103
000

P.AFE:

123

105

P.AFG:

110
040
101

000
122
104

105
055

P.AFH:

1654 010071

120

122

105

010066

1655 010074

101

111

123

122

116

105

103

0SS

000
040

1659 010106
1660 010111
1661 010112

101
000
040

1663 010120
1664 010122
166S 010125
1666 010130
1667 010133
1668 010136
1669 010141

000
040
122
104
122
040
117

000
101
040
137
124
107
104

1671 010147
1672 010150
1673 010153
1674 01015€
1675 010161
1676 010162

000
040
106
123
000
040

1678 10170
1679 010172

000
040

000
122

1681 010200
1682 010203
1683 010204
1684 010207

125
000
040
105

123

000

117
122

126
106

1686 010215
1687 010216

000
040

1689 010224
1690 010227
1691 010230

125

115

000

040

114

101

1662 010115

1670 010144

1677 010165

1680 010175

1685 010212
1688 010221

114

117

102

122
115

114

113

1194

114

000

101

102

105

122

114

107

124

122
122
127
000
117
040

22-Dec-1980 09:21:22

.ASCI1
ASCII
.ASCI]
.ASCIl
.ASCI1
LASCIl
ASCI]
LASCI1
.ASCI]
ASCI]1
ASCII
.ASCI]
LASCI1I

/7 CO/
/mP /
/ERR/
/OR/<00>
7/ Sv/
/S ¢/
/LR/<00>
<00>
/ SE/

.ASCI]1

/PRE/

LASCI1

126

1656 .10077
1657 010100

1658 010103

P.AFF:

LASCI]1

P.AFJ:

LASCII
.ASCI1
ASCI]
ASCI1
LASCII
.ASCII
ASCI]

<00><00>
/7 AR/
/R R/
/D W/
/RY/<00>
/ GO/
/0D /

P.AFL:

ASCI]

/RAY/

122

P.AFN:

P.AFO:

LASCII
.ASCII

117

103

137

127

110

123

/ORT/

.ASCI1

101

P.AFP:

/LEG/

/BLK/

P.AFM:

102

<00>
7/ IL/

ASCIl

105
105
000

055

/SET/

/AL/<00>
>
/ a8/

ASCI1

122
122
110

101

/7IN~/

ASCI1
LASCI1]
L.ASCII

113

/H/<00>
/ RE/
/AD=/

P.AF1:

ASCII
_ASCI1
.ASCI]
LASCII
ASCII
.ASCI]

101

/ARC/

LASCII
_ASCI1

P.AFK:

SEQ 0062

22-Dec=1980 09:24:31

1640 01@2%
1641 01002
164§ 010030
1643 010033
1644 010036
164S 010041
1646 010044
1647 010047
1648 o1oosg
1649 0100S
1650 010056
1651 010060
165% 010063
1653

K §
PAGE 75

.ASCI1]

ASCI1
LASCII
_ASCI1
LASCIT

<00>
/ RE/
/FRE/
/SH/<00>
<00>
/7 AR/
<00><00>
/ RN/
/7US/<00>
<00>
/ ov/
/ERF/

LASCl.

/LOM/

ASCII

/K S/

P.AFQ:

LASCII
_.ASCII

P.AFR:

LASCII
ASCII
.ASCIlI

<00>
/ CW/
/7UR/<00>
<00>
/7 W/

TOPS

PA: <

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

1693

JMLG

}gg‘s

1696 010233

124

040

1698 010241
1699 010242

000
040

1M1

116

P.AFS:

170§ 010253
1703 010256
1704 010261
1705 010264
1706 010266
1707 010271
1708 010274
1709 010277
1770 010302
1711 010305
1712 010310
1713 010313
1714 010316
1715 010321
1716 010324
1717 010327
1718 010332
1719 010335
1720 010340
1721 010343
1722 010346
1723 010351
1724 01035«
1725 010357
1726 010362
1727 010365
1728 010370
1729 010373
1730 010376
1731 0104601
1732 0104604
1733 010407
1734 010412
1735 010415
1736 010420
1737 010423
1738 0104§8
1739 0104
1740 010433
1741 010436
1742 010441
1743 010444
1744 010447
1745 010452
1766 010454
1747 010457

132
040
103
000
040

105
115
123
000
115
123
115
122
115
122
115
123
115
101
115
126
115
101
115
116
115
061
115
062
115
061
115
062
115
105
115
114
118
104
115
123
000
115
103
115
101
115
101
000
115
123

000
1%
061

P.AFT:

1700 010245
1701 010250

102
MM
101

104
040
105
040
115
040
101
040
104
040
104
040
120
040
123
040
105
040
105
040
104
040
104
040
105
040
105
040
120
040
103
000
040
127
040
102
040
102

000
040
103

114
124
114

1M
MM

114
000
116
000
114
000
114
000
114
000
114
000
114
000
114
000
116
000
114
000
114
000
116
000
114
000
116
000
114
000
114
062

P.AFU:
P.AFV:
P.AFW:

P.AFX:
P.AFY:
P.AFZ:
P.AGA:

P.AGB:
P.AGC:
P.AGD:

P.AGE:
P.AGF:

P.AGG:
P.AGH:
P.AGI:
P.AGJ:

114

P.AGK:

114

P.AGL:

114

P.AGM:

114
063

P.AGN:

000
000
1M1

22-Dec-1980 09:21:22

LASCII

113

SEQ 0063

22-Dec=1980 09:24:31

123

1697 010236

/ST /

ASCI1

/BLK/

ASCII
LASCII

7171/
/ALL/

ASCII
L(ASCIl
ASCII
_ASCII
ASCI1
ASCII
.ASCII
ASCI1
_.ASCII
.ASCI]
.ASCII
LASCII
.ASCII
ASCII
.ASCI1
ASCI1
.ASCI1
ASCII
.ASCIl
ASCI1
.ASCII
LASCII
.ASCII
ASCI1
.ASCIl
ASCI]
.ASCIlI
ASCII
.ASClI
LASCI]
.ASCII
ASCI1
.ASCIlI
.ASCI]
.ASClI
LASCII
.ASCI]
ASCI1
ASCI]
.ASCII
LASCII
.ASCII
LASCII
.ASCI]
ASCI1
ASCII
.ASCI]
LASCI1

<00>
/ IN

/2E/<00>
/7 M/
/CS1/
<0N><00>
7/ m/
/DS/<00>
/7 M/
/ER/<00>
/ ML/
/MR/<00>
/7 M/
/AS/<00>
7/ m/
/DA/<00>
/7 WM/
/DT/<00>
/ m/
/PA/<00>
/ mL/
/SN/<00>
/
/E1/<00>
/
/E2/<00>

/D1/<00>
/D2/<00>
/EE/<00>
/EL/<00>

/PD/<00>
/
M/
/(CSe/
<00><00>
/ ML/
/WC/<00>
/ m/
/BA/<00>
/ ML/
/BAl/
<00><00>
/
m/
/CSS/

TOPS

PA:<

PWLW-]LNOLeVL—LW]nDLL]ND.LeDLL]VL*WDL5]LDL1L1VLL2DLLD11ULOLVL]L15VL]LV0]D[LaVOL][LULTO]LLV.]LlD[mLN.OLl)LDqeUlLqOLV]lOcLLPNOlL.LDlOOqLLVlORLLLDLW]LOL6OL22—LVDL.7VO0LL—V1oOL2e1VW.L5LV1OL]L-0JD12LNNOLLLVOoLVD&1LVe0DLL6D]OL3]—[DO1][L—V5L[D]O—0L][VO—“oLO5&L—OeWLm*rx.b
QLX.) Qona a ao0 acnce&-

gSNR—OygSE-BiPgmeRS<@—umIngSvgSEhnSN@umEnAgn1e(IRL-PSUnRSNogne1lfg@gReRBO.gEnWg=GEgnN(GAegT(—SNs=<GPResGLNRSL2(SRL1SPA1ASOSP0u—mPeLg1eGRN12GPy5e1GFASY0LPSA4NoBGA1SAg1A01BOE6SRO-G31AE—LG1MG51O-S0LO—S“1—<AG-GY—TNGDNGRg—GNeSA—SS1OeGOM.1eGMGSmu1gASN1«CMGSg&(MM/=l_].
e2 3. 3SNSISRE.&I U3SN2.NSNSN Y& g 3 R< —.
3gBBurnggS3¢SAiregS3Gng2gg2OB2SB2B)gG3S2gB3g2SS2oGGgeS¢AB2G?(ggSgSG)Pg<G$AGG3goGmeG3ggggg va«A *S
|

MISCELLANEOQUS CODING SECTION

CZMABO ML-11 LOGIC TEST

OC0O00O0O0O0O000O00000000 ql.l1‘0M—567250N7s2012‘o5—5705 sXae3set2n3oany3alanag
OO

qlqlql

=~ ~
W
SEQ 0064

22-Dec-1980
22-Dec-19.80

33 :21:22

:26:31

PA:<

TOPS

—=-0~1—e1=1O01«11=11N1y1111Mz1o———gINgtONSNBySTSyNStgNP0NuSNYgGNSoSNSyGDuSmNegSBNNBSNMgSS-P$ShnIgTyBSngGSyNS3GNSSSNnggNSuNmegSSNSNyeSgSSSGNSNISNNSLgSNTNBGNPgSNtGNgNSNBbgNNGgNNGNG(g

o(0=loe0leol0eloe0leol0eole0loa)0oooooOC0OYPRT10O10SO10IONei1CUT11Rt
[efololeololeloleleolele]

1-1'1!

A A

Ne—ON N—NI-O —reONONO

[e]ololele]-

MACRO M1113

-—

22-DEC-80 12:16
PAGE 78

A
)

P A

oneNny

R210aAQN—RNAN3NRN35 aRONOSY=rR~N—PrT—NPO3a—EPNYENOOQNONINONNYONOOFWNINNLNOeVONOINYNOOrOOea-rP-ONTTOOMNNAOO—OF ec-u

gSSPoegSGumngS-PGume)D)(-gG-ocef-BS-eGumeqGG-hungSSgBggSSvggGrungSgggSGBgBGBSSGGeByGyBGngGumgBmgg

1]cx[u]=[]c1[u]16LWc][0Ax1][7uc»<1][m1cO]wN—[uLN]1c]O&[-Iu|]o[eMN|1c][gINA—u]-[eQN1cL<O]ePIu1N]A[Mc]—NNLu1]I—[ON1c]gT[CMuA1N][MNgOc]-LONgu1MNL[=]NOIcL[=]TNu1KL1<N]—AAc][4Nu1Cw]M—[A7eOc][EuM12=—*WMN5cO]A[uO1N][TI-mNNc]T[uA1MI]-[Ac][-N[¥f1MaL)][iTcN]A-[u1]-O[uYOWNc0]Lu1]N[Omc%]pN[u1—gO.reu——cN]-Ou[O1g—LWu—]Nc*—=u1Oc]u[Mc]<-Pu—Y[1T—c]uOA[NMc]uPA1[Ncu]L[-—c4u]A1[s2N8sc=u]-[lL—cu]1e[l-UcuO—l141
MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

SEQ N065

o WV 10 22 22 NF- Mo-0

[
]

TOPS
PA:<

6
SEQ 0066

H, T

22-Dec-19
22-Dec~19

23 3- LalaVY}-0

TOPS

m%mo — OW2N

—_O

NnoNMg

LASCI1
.ASCI1
ASCI1
.ASCI1

LASCI1

/R/<00><00>

01110‘*.--e etVe==e~M

gudEiy%2fxzdBIpBUnGa5Sg338

‘SNmZZ%wEQn%%.2w%au/me625?S‘%w& WU3mUQD

PA: <

/7 B8Y/
/S 1/
/RAN/
/SFE/

—
3N N§vdisz ngncdSedgzg8 o i8

oNO

P MM

PgLlalalPalPalPalealPalaPl=alaPlaOlaPlaPlaPlaPlaOlioaleal(oaloaloal0iaPlP(7TPePelPePelOePePeoePPPePetPelPetPadPiPPP"===PPOOO

24235)(elelelels
82332
o—rre—e—
ol ol ad Ll

MISCELLANEOUS CODING SECTION

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

CZMLABO ML -11 LOGIC TEST

4'a]N2701234567WOwWwON
PwW>PA(PYweP=ewBSQePWSPPwBfPm5e(wo2BelPwePi((Oow=poem(oPiewPb=(Po(oPoYPSvPGwSnPgBvSeBPlwbnPAyTe)3aPgwTyPASi)PSLwo)bS)PTg3oAS5UvPSvoLSeLPA)BvPSw5nLPiAS50-P5Lo0SV5AgPVSAPi2S5SOLS5LUP)Sg5LPSw5iPAdSAv=0uSgPGSv5aOAgSLvP)vBAaPgywSaL=gAwSiPGg=goLAuBnPLyPboAPn24gPOO
RA
So0oRooSooooo000RT 000001210001oooooooo

300000nvooooo0o0oooooooomoooooo 8288888333R38RASTH gS2e
>£
13230

025077
g

883

S gN

MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

MACRO M1113

22-DEC-~80 12:16
¢ )
PAGE 80

SEQ 0067

22-Dec-1980 09:24:%1
22-Dec=-1980 09:21:22

TOPS
PA:<

2=5B~BobBBPBPYSNST5ST1SB=2P=PPPD=ePPoPPeDB2b
bboebePQOeobeeBMN Obbbbeebbeb= — eeebbbbbb=bbb-O——b

OO0O0O0O0O|0O000100000000240”-.!1000000(olelaly)

WYWWAWWW&WWDAAWW©W)W))WWW))WL)LAWWWWWWWWWDWW))LLA)AAG
N

558

o
2
S
R
gReBkMmmommmmmmmmmmmmmmmmmmmmmmmmTR

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

JMLS

SEQ 0068

22-Dec-1980 09:264: 3
22-Dec=1980 09:21 :22
TOPS
PA:<

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

2028
%233
203 01%351
2032
O 35%
20
01%5
2034 013354
2035 013355
2036 013356
2037 013357
2038 013360
2039 013361
2060 01%332%
2041 01
20462 013364
2063 013365
2044 013366
2045 013367
2046 013370

2047 0133%;%
2048 O
2049 013374
2050 013375
2051 013376
2052 013377
2053 013400
2054 013401
2055 013402
2056 013403
2057 013404
2058 013405
2059 013406
2060 013407
2061 013410
2062 013411
2063 013412
2064 013413
2065 013414
2066 013415
2067 013416
2068 013417
2069 013420
2070 013421
2071 01342
2072 0134
2073 013424
2074 013425
2075 013426
2076 013427
0134
2078 013431

2079 013432
2080 013434
2081 013436
2082 013440

MACRO M1113 22-DEC-80 12:16 PAGE 52
JMLS
:
.BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE
BYTE

O
O
O
O
0
0
O
O
O
O
O
O
0
O
O

000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
000
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
BYTE
BYTE
BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE

O
O
O
O
O
O
0
O
O
O
0
O
0
O
O
0
0
0
O
O
0O
O
O
O
0
O
0
O
O
O
O
O

001001
004
020020

SEQ 0069

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

010000

)

.WORD

MWORD
REM.TBL:.WORD
LMWORD
LWORD

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

10000

O
1001
4004
20020

TOPS
PA: <

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

2084
2085

2109
2110
2111

2112
2113
2114
2115

2116

d mh
h and
D o
b
b
h o
b
b
D
b oh
d
d
d
md oh
oh o

2104
2105
2106
2107
2108

2102
2103

b od o

2094
2095
2096
2097
2098
2099
2100
2101

021460
005005

. WORD
.WORD

3454

023023

LWORD

013460
013462
013464
013466
013470
013472
013474
013476

035474
024465
021021
007007
034034
022463
0110M
005444

S04
S06
013510
013512
013514

016457
033472
014455

013524
013526
013530
013532

;46
SO0
013452

3456

S0
502

013516
013520
013522

b ed ad

209

(eleleleleBielelelelelelnlelelelelelolelelelalelelealalelelelelele]

209%

.WORD

014014

024024

017017

23023

17017

015015

037037
036477
030471
041

WORD
WORD
WORD
BYTE

16457
33472
14455
23462
15015
25464
25025
97027
37037

WORD
WORD

025464
025025
027027

100577
010077
077

264024

WORD
W
WORD
WORD
WORD

2133 013564
2134 013566
2135 0135720
2137 013572
2138 013574

LMORD

16460
005

35474
24465
21021
7007
34034
22463
11011
5444

064477
007700
000
000
064477
000077
000

2136

14014

MWORD
JWORD
WORD
WORD
WORD
WORD
WORD
WORD

2117
013534
2118
013536
2119
013540
2120 013541
2121
013542
2122 013544
2123 013546
2124 013547
2125 013550
2126 013552
2127 013554
2128 013555
2129 013556
2130 013560

2131 013
2132 013

003

LMWORD

WORD

026026
033033

WORD
WORD
WORD

DT.1:

100577
017700
0
100577

077
000

"EVEN

6026
3033

36477
30471
41

.WORD
JWORD
BYTE
BYTE
WORD
WORD
BYTE
'BYTE
WORD
WORD
.BYTE
BYTE
WORD
WORD

(4477
7700
0
0
64477
77
0

SWORD
WORD
'BYTE

=77201
10077
77

BYTE
BYTE
RH.ADD:
RH.TYP:

PAGE 83

SEQ 0070

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

003003

W NN A NN N NN 4

2088 01

2091

22-DEC-80 12:16

JMLG
:

2087 01%:22
2089
2090

MACRO M1113

-EVEN

.BLKW
.BLKW

=77201
17700
77
0
=77201
0

77
0
1
1

TOPS
PA:
<

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

2140
%}2}

H, ¥
:

2143 013576
2144 013600
2145 013602

RH.VEC:
ML.LUN:
M .DUT:

2146
2147

.BLKW
.BLKW
BLKW

1
1
1

100000
040000
020000
010000
004000
002000

8IT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==

-100000
40000
20000
10000
4000
2000

2155
2156
2157
2158
2159

0004600
000200
000100
000040
000020

81708==
8IT07==
B8I1706==
BIT0S==
B8IT04==

400
200
100
40
20

2161
2162
2163

000004
000002
000001

81702==
8IT01==
81700==

4
b4
1

2165
2166

000400
000200

BIT78==
BIT7==

400
200

2169

000020

BIT4==

2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181

000004
000002
000001
000040
000037
000036
000035
000034
000340
3G0
000240

2160

2164

2167
2168
2170

2182
2183

001000

000010

001000

000100

000010

000140

B8IT09==

B8IT03==

81T9==

BITb==
8175==
8]73==

1000

100
40
10

8IT2==
BITl==
81T0==
EF .START==
EF .RESTART==
EF .CONTINUE==
EF .NEW==
EF.
==
PRIO7==
PR]I06==
PR]IOS==

4
P4
1
40
37
36
35
34
340
300
240

PRIO4==
PR]03==

200
140

2184
2185
2186
2187
2188
2189
2190

000100
000040
000000
000004
000010
000020
000040

PR]I0Z2==
PRIO==
PRI00==
Evi==
LOT==
ADR==
IDU==

100
40
0
4
10
20
40

2192
2193
2194

000200
000400
001000

=
==
PNT==

200
400
1000

2191

000100

ISR==

SEQ 0071

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

2148
2149
2150
2151
2152
2153
2154

100

TOPS
PA:<

CZM_ABO ML -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

2196
%}8;

2199
2200
2201
2202
2203
2204
2205
2207
2208
2209
2210
221
2212
2213
2214
2215
2216
2217
22" 8
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250

MACRO M1113

22-DEC-80 12:16

H 6
PAGE 85

JMLS
:

002000
004000
010000
020000
040000
100000
004222
0042
004354
0046400
004430
004532
004562
004610
004644
004676
004750
005004
005034
005110
005150
005216
5306
005342
005412
005462
005534
005606
005652
005722
005746
005764
006016
006024
006034
006046
006062

006100
006120
006142
006166
006214
006244
006276
006302
006314
006322
006330
006336
006344
006360
006374

PR]==
IXE==
IBE==
1ER==
LOE==
==

FMT.1=
FMT. 2=
FMT ., 3=
FMT . 4=
FMT.S5=
FMT.6=
FMT . 7=
FMT.8=
FMT 9=
FMT.10=
FMT.11=
FMT.12=
FMT.13=
FMT.14=
FMT.15=
FMT.16=
FMT.17=
FMT.18=
FMT.19=
FMT.20=
FMT.21=
FMT.22=
FMT.23=
FMT.24=
FMT.25=
FMT.26=
ONE .FMT=
TWO.FMT=
THR.FMT=
FOR.FMT=
FIV.FMT=
SIX.FMT=
SEV.FMT=
EIG.FMT=
NIN.FMT=
TEN.FMT=
ELV.FMT=
WRD. 1=
WRD.2=

WRD.3=
WRD. 4=
WRD. 5=
WRD . 6=
WRD.7=
WRD . 8=
WRD. 9=

SEQ 0072

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

2000
4000
10000
20000
40000
=100000
P.AAA
P.AAB
P.AAC
P.AAD
P.AAE
P.AAF
P.AAG
P.AAH
P.AAI
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
P.ABA
P.ABB
P.ABC
P.ABD
P.ABE

P.ABF
P.ABG
P.ABH
P.ABI
P.ABJ
P ABK
P.ABL
P.ABM
P.ABN
P.ABO
P.ABP
P.ABQ
P.ABR
P.ABS
P.ABT

TOPS
PA: <

FRO=ITAOTMTMOONO

<> <

OO o

P DD>

'D'U.VV N

SSTETEEILSETSEETS 338

VVVVVVV???V?V‘DVVVVV

N =2

(]

-0

1T
Mmoo
nhnfis
>N <X

>>> b >

~NO\n -

—

8 1133331113333113333113333131333331313333
1333331111 003
W
7 b i A AATR TR R AR TR e ke I Yatam Reeees
"?lll "W" " ?l'??‘"?:” nhn

22-Dec-19
22-Dec-19

P.ACG

LAY Y]

MACRO M1113 22-DEC-80 12:16 PAGE éb
38

MISCELLANEOUS CODING SECTION

CZM_ABO ML-11 LOGIC TEST
6

SEQ 0073

PA:<

T0PS

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

2308

2310

MACRO M1113

22-DEC-80 12:16

J_
6
PAGE 87

MLG

007216
007224
0072
007240
007246
oo;gsz
007260
0077%2
007302
007310
007316
007330
007340
007346
007366
007404
007422
007454
007472
007504
007516
007540
007552
007
007576
007614
007636
007662
007714
007726
007742
007750
007756
007774
010004
010012
010022
010036
010050
010060
010100

WRD . 63=
WRD . 64=
WRD.65=
WRD.67=
WRD . 68=
WRD. 69=
WRD . 70=
WRD.71=
WRD.72=
WRD.73=
WRD . 7%=
WRD . 75=
WRD . 76=
WRD.77=
PHR. 1=
PHR. 2=
PHR. 3=
PHR. 4=
PHR. 5=
PHR . 6=
PHR. 7=
PHR. 8=
PHR . 9=
PHR.10=
PHR.11=
PHR . 12=
PHR. 13=
PHR.14=
PHR.15=
FNC.1=
FNC.2=
FNC.3=
FNC.4=
FNC. 5=
FNC.6=
FNC.7=
FNC. 8=
FNC.9=
FNC.10=
FNC.11=
FNC 1§f

P.ADU
P.ADV
P.ADW
P.ADX
P.ADY
P.ADZ
P.AEA
P.AEB
P.AEC
P. D
P.AEE
P.AEF
P.AEG
P.AEH
P.AE]
P.AEJ
P.AEK
P.AEL
P.AEM
P.AEN
P.AEO
P.AEP
P.AEQ
P.AER
P.AES
P.AET
P.AEU
P.AEV
P.AEW
P.AEX
P.AEY
P.AEZ
P.AFA
P.AFB
P.AFC
P.AFD
P.AFE
P.AFF
P.AFG
P.AFH
P.AFI

2354
2355
356
2357
2358
2359
2360
2361

010136
010150
010162
010172
010204
010216
010230
010242

FNC.15=
FNC.16=
FNC.17=
FNC.18=
FNC.19=
ENC.21=
FNC.22=
FNC.23=

P.AFL
P.AFM
P.AFN
P.AFO
P.AFP
P.AFQ
P.AFR
P.AFS

2362

010112
010122

010256

FNC.13=
FNC.14=

REG.1=

SEQ 0074

229 ec-1980 09:24:31

2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2330
2331
2332
2333
23%
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353

P.AFJ
P.AFK

P.AFT

22-Dec-1980 09:21:22

TOPS

PA:<

LR
A J

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

2364
2365
2367
2369
2370
2371
2372
2373
2374
2375

2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
23N
2392
2393
23%
2395
2396
2397
2398
2399

2400
2401
2402
2606 013604

26407 0136064

26408 013610
2609 013614
2610 013620
2611 013622
2612 013626

26413 013632
2614 013634
2415 013640
26416 013642

MACRO M1113

22-DEC-80 12:16

PAGE 88

6
SEQ 0075

JMLé
:

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

010266

REG.¢=

P.AFU

010302
010310
010316
010324
010332

REG.4=
REG.5=
REG.6=
REG.7=
REG. 8=

P.AFW
P.AFX
P.AFY
P.AFZ
P.AGA

010354
010
010370
010376
010404
010412
010420
010430
010436
010444
010454
010464
010526
010570
010630
010672
010732

REG.11=
REG.12=
REG.13=
REG.14=
REG.15=
REG.16=
REG.17=
REG.18=
REG.19=
REG.20=
REG.21=
ASYNC=
SYNC=
ARR .DAT=
MEM. ARR=
INTER=
DATA.LATE=

P.AGD
P.AGE
P.AGF
P.AGG
P.AGH
P.AGI
P.AGJ
P.AGK
P.AGL
P.AGM
P.AGN
P.AGO
P.AGP
P.AGQ
P.AGR
P.AGS
P.AGT

010274

REG.3=

010340
010346

004167
016601
012702
060102
016601
016600

006300
066007
000024
000042

P.AFV

REG.9=
REG.10=

010772
011026
011060
011106
011152
011154
011156

SC.SET=
TRBLE . LOOP=
RH. ERROR=
TIME.OUT=
D1.TEMP=
D2.TEMP=
E2.TEMP=

170250

LOAD.STACK:

JSR

000012
012600

MOV
MOV
ADD
MOV
MOV

000014
000012
013640

18:

TOPS
PA:<

ASL
ADD
.WORD
.WORD

P.AGB
P.AGC

P.AGU
P.AGY
P.AGW
P.AGX
NIB.SAVE
NIB.SAVE+?2
NIB.SAVE
+4

R1,$SAVE3

12(SP) ,R1
#STK.OFF
,R2
R1.R2
14(SP) ,R1
12(SP) ,RO

RO
1$(R0O) ,PC
2%-1%
33-1$

;

2217

: STK.PTR,*
: NIB.PTR,
=

2268

: NIB.PTR,»

2272

CIMABO ML-11 LOGIC TESY

(AR 4/

MISCELLANEOUS CODING SECTION

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

)

SEQ 0076

2333358 :

TOPS
PA:<

2$:

2272

175252
3s:

(R2) ,R3

2276

R1.R0

175234
48:

R3.RO
NIB. SAVE .R3
8$

?22) R3

2280

R1.RO
R3,R0O

175216

NIB.SAVE
.R3

58:

138

?32) R3

2284

R1,R0
R3,R0

175200

NIB.SAVE
.R3
118

2288

R1.RO

R3.RO
NIB.SAVE+2.R3

175164

7%:

148

?32) R3

175146

oo dodvdedTod

P-4

1.R0

.RO
N1B.SAVE+2,R3

148

(R2) ,R3

26472 014026

R1.R
R3.RO
L4

2292

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 90

SEQ 0077

2 -Dec=19 80 09: 24 : 31
22-Dec-1980 09: 1 :22

SRERVERRCERNBRER

2 2 a3 2 2% 2

Y 2 a2l

2493 014074
2496 014100
2495 014
2496 01
2497 N
2498 01
2499 01
2500 01
2501 01
2502 0
2503 01
25064 01
2505 01

108:

TOPS

PA:<

2300

R1,RO

175102

‘RO
NIB.SAVE+2,R3

118:

12%:

2304

175056

177760
012612
012612

R3,STACK(RO)

2268
2308

(RZ)iRS

NIB. SAVE+4.R3

175024

177770
012612
012612

;BB REkEE s

26490 0146066
2691 014070
2692 014072

NIB.SAVE+2,R3
138
R3
(R2) ,R3

175120

REQDES

;BRERIRRRRRRE

MLG

222222222222

2674
2475
2676
2677 0

MACRO M1113

SWAB
8IC
CLR8
818
RTS

R3
R3
R3
R3
g177770 R3

TACK (R)

2%.STACK(R1)

119 words
: Routine Size:
;. Maximum stack depth per invocation:

2217
4 words

CIMLAMO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532

2533

253
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544

M6
;

;
;
;
;
;
;
;
:
;
;
:
;
;
;
;
:

2313
2314
2315
2316
2317
2318
2319
2320

2321

;

2322
2323
2326
2325
2326
2327
2328
2329
2330
2331
2332

2547 -

2335

2545 ;
2546 ;
2548 ;

2552
2556 014162

2557 014162
2558 014170
2559 014176
2560 014204
ggg; 014212
2563

2564

PAGE 91

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

)
routine DAT_DM_XFER : novalue =

TOPS=20 BlLiss=16 v2(212)
PA: <KNEALEXBL3ML4.BLI.2 (6)

‘e
! FUNCTIONAL DESCRIPTION:
!
!
A REPEATEDLY CALLED SEQUENCE
!
OF ASSIGNMENT EXPRESSIONS TO
!
LOAD THE DSA, BUS ADRS AND WORD

COUNT REGISTERS WITH APPROPRIATE

!
!
!
!
!
!
!
=

INFORMATION BEFORE A MASS AUS
TRANSFER CAN COMMENCE

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

beqin
DAY DM = ONE;

2333
334

MLDX = .GOOD BLK;
MLBA = 10 BUF;

2336

end;

152777
016777
012777
012777
000207

22-DEC-80 12:16

!SET DATA DIAG MODE
!LOAD DSA REG WITH THE GOOD BLOCK ADRS

!LOAD BUS ADRS REG WITH THE 10 BLF

MLWC = not 255;
000010
175370
011600
177400

177104
177006
176770
176752

ADRS

'LOAD WORD COUNT REG WITH COMPLIMENT 256

DAT.DM_XFER:

81S8
MOV
MOV
MOV
RTS

: Routine Size:

M0,aML.REG+120
GOOD .BLK ,aML .REG +30
#10.8UF
,aML .REG+ 20
#-400,@ML .REG+10
PC

13 words
; Maximum stack dept* -er invoca tion:

2332

;
.

2335
231

;
;

0 words

2333
2334

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

B 7
PAGE 92

22-DEC-80 12:16

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

RRERRRE BEXRRBERRY L

Ve 00 0¢ V%00 %0, %0 9¢%0 8% 0309 05 %00, %0 %90 %0 %0 0300%0 0095 %505 0,%5%9000%09070,9%0%0% 830090008999 %00e0,0,

Fele ENTo JV P NN

2607

SEQ 0079

routine STRIPPER (WRD_CNT, NIB_CNT)
begin

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

: novalue =

l4e

! FUNCTIONAL DESCRIPTION:
STRIPPER RUNS IN DATA DIAG MODE AND STRIPS OUT
A VARIABLE NUMBER OF GOOD NIBBLES FROM THE
GOOD BLOCK AND STORES THEM INTO A CONTIGIOUS
STACK FOR SEQUENTIAL ACCESSING

FORMAL PM TERS:
WRD_C

ren.tssmppen HOW MANY WORDS N TKE GOOD

BLOCK TO READ OUT
NIB_CNT

TELLS STRIPPER HOW MANY NIBBLES TO
STRIP OUT OF EACH WORD.

IMPLICIT INPUTS:

local
STK_PTR;

!STACK POINTER

incr CNT from 0 to .NIB_CNT do

!CLEAR OUT THE STACK OFFSETS

STK_OFF [.CNT) = ZEROES;

CLR_MBUS;

STK_PTR
= -1;
DAT_DM_XFER 0;
MLCST1 = read;

!RESET THE STACK POINTER
!SET UP A DATA XFER AT THE GOOD BLOOK
!D0 A READ XFER
!ALLOW PROM DATA TO GET INTO THE ML.P® REG

incr CNT from 0 to .WRD_CNT do
begin
PD_TEMP
= llPD:

!LOAD THE STACK WITH ALL GOOD NIBBLE DATA

DELAY (ONE US)

DAT_CLK
=

!GET THE PROM DATA
;CLOCK OUT THE DATA WORD

RD_LNG_WRD?

iREAD DATA DIAG REGS INTO NIBBLE SAVE

incr NIB_PTR from O to .NIB_CNT do

ISTRIP OUT X NUMBER OF NIBBLES

DELAY (ONE usS

g?fi_PTR = ,STK_PTR + 1;
in

! INCREMENT THE STACK POINTER

if .PD_TEMP [.NIB_PTR] IS_SET
ISEE IF THIS A GOOD NIBBLE
then
STK_OFF [.NIB_PTR]
= (.STK_OFF [.NIB PTR]) + (.NIB_CNT + 1)

else

ITHER INCREMENT ITTMS STACK OFFSET

LOAD_STACK (.STK_PTR.

.NIB_PTR);

!ELSE LOAD THE NIBBLE IN THE STACK

MACRO M1113

CZMABO ML~11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

c.7
PAGE 93

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

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

end;

CLR_MBUS;
end;
.GLOB..

STRIPPER:
JSR
TST
MOV
CLR
BR
1%:
CLR8B
INC

167676

000020
000403

012600

2s:
152777

000040
177324
177770
000007
176720
177777
177656
000071
000G01

176742

2681 014372

165524

STK.OFF (R1)

R1
R1.R4
13
#40,aML .REG+40

#7. 3

176642

#~1.pS
PC.DAT.DM.XFER
#71,aM .REG
#1.R)
6$

2362

*(CNT)
CNT
CNT,»

2363
2362

CNT

2363

.REG+40

RS.,aML .REG+40

176546
176714

,«
NIB.CNT

#77776.RS

176724

165572

177034
002020
000001

20(SP) ,R4

2337

ML .DUT RS

A ¥

2676 014344

BLE

R1,$SAVES
=(SP)

*,STK.PTR

v, SSTMP2
~, SSTMP1

LSDLY ,R2
5%
(SP)
R

sSTMP
S$STMP

$STMP?

R3
6$
aML.REG+230,PD., TEMP
20.aM .REG+120

CNT

2647 0146214
2648 014214
2649 014220
2650 014222
2651 014226
2652 014230
2653 014232
2654 014236
2655 014240
2656 014242
2657 0142644
2658 014252
2659 014256
2660 014262
2661 014270
2662 014274
2663 014300
2664 014304
2665 014312
2666 014316

LSDLY

1.R1

11$

LSDLY,R2
108

*, $STMP2

*, $STMP

2366

2367
2369

MACRO M1113

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:1¢

PAGE 94

SEQ 0081

229 ec=-1980 09:24 31
22dec-1980 09:21 :22

£R
SN

174536
174532
174526

X
v

3333 =R

;ML
9%:

sSTTMP
$S$TMP1

108:

$STMP2

118:

8s
aML.REG+170,D1.TEMP
aML.REG+200,D2. TEMP

Razl.REGfléO.E .TEMP
12%:

158
R5

TOPS
PA:<

NIB.PTR

2378

STK.PTR
NIB.PTR,*

2380
2382

013120
NIB.PTR,*

177770
000001

012600

Nosl

RO
RO,STK.OFF (R2)

+,*(NIB.PTR)

RS,=(SP)
R2.-(SP)

STK.PTR,*
NIB.PTR,*

R2
R2 R4
1

NIB.PTR
NIB.PIR,»

2378

CNT
CNT,WRD
. CNT

23N

PC.LOAD. STACK
(SP)+,(SP)+

R3,22(SP)

000022

000040
177012

176430

uo.arl.necwo

00000
176406

176412

#7. 3 .REG+40
RS @M .REG+40

aon

YSEF XExk

*(NIS.PTR)
,*

14§

177046

2384

,R1
FF
(R2)
STK.O

Ré4.R1
R1.RO

012600

QS Q992

[aS [, ¥ 1,8 1,8]

PININTINININY

NN AR NYYIYYNY

VRNV
WN

2711

elelelelelelelele)

166444
000010

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

2382
2387

23N

2337

11 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

2739

2740
2761

2746

MACRO M1113 22-DEC-80 12:16 PAGE 55
H, ¥

7
SEQ 0082

2 -Dec=1980 09:24:31

22 -Dec-1980 09:21:22

TOPS

PA:
<

CZMABO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F
7
PAGE 96

2749 ;M4

22-Dec=1980 09:24:31

%;g? :
2752 :

SEQ 0083

22-Dec~1980 09:21:22
2395

routine CAL_CRC : novalue =

;
;
;
:
;
;

2397
2398
2399
2600
2601
2602

!'+¢
! FUNCTIONAL DESCRIPTION:
!
CALCULATE THE CRC CODE FOR THE GOOD BLOCKS
!
FIRST CRC GROUP (60 NIBBLES) BY STRIPPING
!
OUT GOOD NIBBLES AND MODULO 2 ADDING EACH

2762 :

2605

| IMPLICIT INPUTS:

2764 ;

2407

27S3 ;

2754
2755
2756
2757
2758
2759

%;g? .

2763 ;

2396

%28‘3.

begin

BITS WEIGHT RESULTING IN A_CAL,B8_CAL,P_CAL.

P CAL,A CAL.B CAL

2408
2609
2410

!
!
!

CRC CODES ARE STORED AND EXAMINED FROM

;
:
;
:
;
:
:

2612
2613
2614
2415
2416
2417
2418

!
!
'—

777 ;

2420

2765 ;
2766 :
2767 ;

2768 :
2769
2770
2771
2772
2773
2774
2775

2776 :

g% H

2406

2611

2419

Szg;

TOPS=20 Blrss=16 v2(212)

PA:<NEALERLIML4.BLI.2 (8)

GOLBAL STORAGE LOCATION WHERE CALCULATED

REM_TBL

TABLCE CONTAINING PRECALCULATED BIT POSITION

WEIGHTS USED IN THE MODULO 2 CALCULATION OF THE
CRC CODE

local
CHANNEL ,
STK_PTR,

NIB“SAV : bitvector [4],

ALOG,
BLOG:

'CHANNEL POINTS TO THE BITS IN A WORD
ISTACK POINTER

INIBBLE SAVE LOCATION

TINDEX INTO REMAINDER TABLE

VINDEX INTO REMAINDER TABLE

2780 :

2423

STRIPPER (12, 9):

'STRIP OUT ALL 10 NIBBLE FROM 13 ARRAY WORDS

%772

325(7)

incr PLOG from 0 to S5 do

'PLOG POINTS TO ONE CRC GROUP 6 WORDS®

%773;. :
.

gzgg

STK_PTR = -1;
n

'RESET STACK POINTER

%7732 H

Szgg

%;gg :

52.;(1)

incr NIB CNT from 0 to 8 do

52332

NIB SAVY = .stack C. STK _PTR];

2792 '

2435

incr BIT_TST from 0 to 3 do

%77845

szgg

2796 .
2797 ;

2439
2440

2799 ;
ggg? :

2642
gzzz

2645

urnte ALOG

2789 :

2793 ;

2798 :

2802 :

2803 ;

2432

2436

2441

2446

L =-1;

'RESET CHANNEL FOR EACH WORD

srlq(PTR = .STK_PTR + 1;
in

begin
C

L = .CHANNEL + 1;

if .NIB_SAV [.BIT_TST]) IS_SET
then
be&i;n

= PLOG + .CHANNEL.
= PLOG + .CHANNEL*2;

2‘?86- 63

'READ DATA NIBBLE 0~-8 AND CALCWATE CRC

' INCREMENT THE STACK POINTER

'LOAD NIV_SAV WITH A STACK NIBBLE

'TEST THE BIT FOR BEING SET
{CHANNEL POINTS TO THIS BIT

'SEE IF TH]IS BIT IS SET
'IF SET THEN MOD 2 ADD THE REMAINDER

'CALCULATE THE ALOG
'CALCULATE THE BLOG

IREDUCE ALOG UNTIL < 64

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~80 12:14

G_ 7
PAGE 97

2805 .mLé
_‘gggg :

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

2808 :
2809 :
gg}? :

2647
2448
3215.3

while .BLOG 8'&“ do
BLOG = .BLOG
- 63;

2812 :
2813
2814 :

2451
245
245

P_CAL =
A_CAL =
B_CAL =

2816 :
2817 :
2818 :

2455
2456
2457

815 ;

2454

2819 :

2458

2821 ;

2460

2820 ;

2822

2823 :

5222’6 :

end:;

2832 014612
2833 014616
2834 014622
2835 014626
2836 014632
2837 014636
2838 014644
2839 014650
2840 0164656
2841 014662
2842 014666

004167
162706
012746
012746
004767
012766
005
012766
005066
005266
016605

167300
000012
000014
000011
177356
177777 000006
000004
177777 000010
000012

2844 214700

105066

000015

012612

2845 014704
2846 014706
2847 014712
2848 014714
2849 014716
2850 014720
2851 014722
285 ou.gg
2853 014
2854 014732
2855 014734

005003
005266 000010
010305
006205
006205
006205
012704 000014
060604

2857 014742

012746

2856 014736

2858 014746

042716
005

'MOD 2 P_CAL WITH REM_TBL
iMOD 2 AZCAL WITH REM_TBL
iMOD 2 BZCAL WITH REM_TBL

!SKIP OVER THE CRC NIB NT THE STACK

end:
end;

010546
010346

CAL) xor (.REM_TBL [.PLOG)):
CAL) xor (.REM_TBL [.ALOG]):
CAL) xor (.REM_TBL [.BLOGJ):

STK_PTR = .STK_PTR + 1;

2461

116566

'REDUCE BLOG UNTIL <64

end;

2459
2462

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

end;

2463

2843 014672

SEQ 0084

177770

000001

000014

CAL.CRC:JSR
SuB
MOV
MOV
JSR
MOV
CLR
18:
MOV
CLR
2s:
INC
MOV

MOVB
CLRB

33:

R1,$SAVES
#12,SP
#4.-(SP)
”11,-(SP)
PC.STRIPPER
#-1,6(5P)
4(SP)
#-1,10(SP)
12(SP)
6(SP)
6(SP) .RS

STACK(RS),14(SP)
15(SP)

CLR
INC
MOV
ASR
ASR
ASR
MOV
ADD
ADD
MOV
MOV

R3
10(SP)
R3.RS
RS
RS
RS
#14 R6
SP,R4%
R4.RS
RS.-(SP)
R3 - (SP)

MOV

# - (SPS

BIC

CLR

77770, (SP)
-($P)

;

2395
2423

; «,STK.PTR
: PLOG
> «, CHANNEL
: NIB.CNT
: STK.PTR
: STK.PTIR,*

; = NIB.SAV

: NIB.SAV

s BIT.TST
+ CHANNEL
: BIT.TST.»

; NIB.SAV,*
; BIT.TST,«

2424
2426
2428
2430
2432
2433
2435
2437
2439

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

H 7
PAGE 98

22-DEC-80 12:16

SEQ 0085

;MLG

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

TOPS
PA:<

PC ,BLSGT2

06 6.sp

(SP) ,R1

PLOG,ALOG
CHANNEL ,ALOG
CHANNEL
,=

(sPS ,R1

24642

2443

PLOG,*
48:

5%:

*,BLOG

0,
o

ALOG,
*

2445

*
BLOG.,

24646
2445
2448

*,BLOG
RS

88
S¥R NIFRREELEFERNG
SR8on

SRERSE

4(SP) ,R4
REM.
TBL (R4) ,R5

PLOG,
*

R5,-(SP)

RS,P.CAL
(SP)+ P.CAL

R5
REM.
TBL (R1) ,RS
R5.R4

*(ALOG,*
)

2452

b =

v iiawnawviawiawavwawn

SN0

000005

N3
SP)

88 &%

b
b ud

000010

INC

*(BLOG)
,*

2453

o%d

78:

SENIRTIABRER

b e

REM.
TBL (R2) ,RS
R5.Ré
B.CAL R¢
R5.8.CAL

b
- emd i ad cnd

3IYRY RUBBREYE

2222222223322 2223232323322388%

2882 015042

24649
2448
2451

SP) .m0

2435

NIB.CNT

2430

STK.PTR
PLOG
PLOG,*

2460
2426

=
NIB.CNT,

?(SP).IS
#16,SP
PC
; Routine Size:
128 words
; Maximum stack depth per invocation:

BIT.TST
BIT.TST,»

2395

17 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

2916
2917

2918
2923

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

SEQ 0086

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

TOPS
PA:<

MACRO M1113

CZMABO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION

22-DEC-80 12:16

J 7
PAGE 100

2926 ;mLé
22358
2929
;

2%-0¢c-1980 09:24:31
22-Dec=1980 09:21:22
2464

routine ERR_CHK_CRC
=

2931 ;
2932 ;

2466
2467

'++

293%

2469

2930 ;

2933

293S ;

223?3’9 M

2465

2468
2470

52;}

i FLNCTIM 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

26473
2474

! IMPLICIT INPUTS:
!
P
.A_CAL ,B_CAL

2961 ;
2942 :

2476
2477

!
!

2%y ;

2944 ;

294S ;
29466 ;
297 ;

2948 ;
2949 ;
2950 ;

2475

GLOBAL STORAGE LOCATIONS WHERE CALCULATED

2478

P_GEN,A_GEN.B_GEN

2480
2481
2482

!
=

CRC CODES ARE STORED AND EXAMINED FROM

2479

CRC CODES ARE STORED AND EXAMINED FROM

Gt(BAL STROAGE LOCATIONS WHERE MARDWARE GENERATED

2486
szgg

local
PQS,
TEMP,;

'VARJABLE FOR FIELD SELECTOR
!'TEMPORARY STORAGE LOCATION

POS = -1;

'RESET THE POS

?9295545 H

gzgg

incr STKPTR from 9 to 59 by 10 do

'CONVERT VERTICAL STACK CRC TO HORJ ZONTAL REPRESENTATION

2957 ;

2492

TEMP
= .stack t STK_PTR];

2951 ;
22355:25 M

2956 :

2958 :
2959 ;
2960 ;

2961 ;

2483
26484
26485

TOPS=20 Bliss=16 Vv2(212)
PA:<NEALE>BLIMLSL.BLI.2 (9)

begin

2938
2939 ;

2940 ;

SEQ 0087

24691

2493
2494
2495

(P_GEN)<.POS, 1> = TEFP(O 1>
(A GEN)<.POS, 1> = not TEH’<1 1>.'
(B_GEN)<.POS., 1> = not .TEN’(Z. 1>;

2496

2962 ;
2963 ;

2497
%’zgg

2965 ;

2500

2966 ;
2970
2974 015212

POg POS + 1;
n

2501

end;

166642

2977 015222

012702

000011

2979 015230

005003

005201

ICONVERT 1ST BIT
I CONVERT ? 8IT
1 CONVERT
b BIT

!COMPARE GENERATED CRC CODE TO CALCULATED CRC CODE

end;

004167

2978 015226

'READ CRC NIB FROM THE STACK

if (.P_GEN neq .P_CAL) or (.A_GEN neq .A_CAL) or (.B_GEN neq .B_CAL) then return ONE else return 2£RO;

2975 015212

2976 015216 012701

! INCREMENT POS

ERR.CHK.CRC:

JSR

177777
18:

R1 $$AVES

MOV

#-1.R

INC

MOV
CLR

011.R2
R3

2464

: *,POS

2487

; POS

; «,STK.PTR
: TEMP

2489
2492

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

2981

299 015274

005046

2997 015304

005216

3001 015320

010146

3003 015326

005046

3005 015334
3006 015336

001401
005216

3008 015342

004767

3011 015356

020227

01261
01315
000001
177776

166114
013146

29923 015270 012746 000001

2-Dec~-1980 09:24:31

2998 015306 005116
2999 015310 004767 166062
3000 015314 012716 013150
3002 015322 012746

000001

3004 015330 032703

000004

3007 015340 005116

3009 015346 062
3010 015352 06270

001403
012701 000001
000401
005001
010100

STACK(R2).R3
#P.GEN,~(SP)
R1,-(SP)
#1.~(SP)
R3.=(SP)
M 77776. (SP)
PC.BLSPU2
#A.GEN, (SP)
R1,-(SP)

CLR

-($P)

#2.R3
28

com
JSR
MOV

(SP)
PC.BLSPU2
#8.GEN, (SP)

MOV

”,-(SP)

14C

BIT
3s:

BEQ
INC

com

JSR

175562

175552

175546

175536

175540

175530

48:
5%
6$:

2493

; TEMP,»
:
. POS,*

: «, TEMP
:

R1,-(SP)

: POS,»

-($P)

#4,R3

)

2494

2495

; o, TEMP

(SP)

PC.BLSPU2

#24 . SP
M2 R

BLE
P
BNE
cMP
BNE

18
P.GEN,P.CAL
4
A.GEN,A.
CAL
«$

R2.47

B.GEN.B. CAL

RTS

BEQ
MOV
BR
CLR
MOV

TOPS

PA:
<

(SP)

ADD
ADD

: «(STK.PTR) , TEMP
:
: POS,*

#1.~(SP)

BIT
BEQ

CLR

0000

3018 015412
3019 015414
015420
3021 015422
3022 015426

BISB
MOV
MOV
MOV
MOV
BIC
JSR
MOV
MOV

Mov

000024
oooog

003721
026767
001010
026767
001004
026767

2s:

166030

3012 015362
3013 015364
3014 015372
3015 015374
3016 015402

2 -Dec=1980 09:21:22

MOV

2995 o1s§(7)g 032703 000002
2996 015
001401

CESS

SEQ 0088

156203
012746
010146
012746
012;46
042716
004767
012716
010146

3023 015426

K 7
PAGE 101

MLG

wowgg
2985 015
2986 015262
2987 015244
2988 015250
2989 015252
2990 015256
2991 015262
015266

3017 015406

22-DEC-80 12:16

2490
2489

;

2498

;

2465

: STK.PIR,*

S
#1,R1
6$
R1
R1,RO

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

;
: =, STK.PTR

:
14 words

24664

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 102

3034 M4

22-Dec=-1980 09:24:31

%gg M
3037
3038
3039
3040
30461
3042
3043
3044
304S

22-Dec-1980 09:21:22

.
;
;
;
;
;
;
;

2502
250
2504
2505
506
507
2508
2509
%g}?

routine FIND_COMP_BIT (BITS_XFERED) =
begin

3047 ;

251%

3049 ;
3050 ;
3051

2514
2515
2516

!
! FORMAL PARAMETERS:
!
BITS XFERED
!
!
!

;

2518
2519
2520
2521
2522
2523
2524
2525
2526

3065 ;
3066 ;
3067 ;

3048 ;

3052 ;

3053
3054
3055
3056
3057
3058
3059
3060
3061

.
;
;

;
;
;

SEQ 0089

251

2517

TOPS=20 Bl iss~-16 Vv2(212)

PA:<NEALEXALIMLS.BLI.2 (10)

!+¢
' FLNCTIWL DESCRIPTION:
!
FIND COMPLIMENT®
BIT IS CALLED BY THE
!
SYNDROME DECODE TESTS AND INDEXES INTO
!
THE 10_BUF LOOKING FOR COMPLIMENTED
:
BITS. “A COMPLIMENTED BIT IS BY DZF A ONE
A ONE IS RETURNED IF THE INDEXED BIT IS

NOT SET

REPRESENTS THE BIT BEING TESTED

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

! IMPLICIT INPUTS:
local
COMP_WRD,

'WORD WHERE COMPLINEMT BIT IS LOCATED

2530
2531
2532

COMP_WRD = .BITS_XFERED/16;
COMP BIT = .BITSXFERED nod 16;
BUF SAv = .I0&f C.COMP _WRD];

ICALCULATE THE COMP WORD
'CALCULATE THE COMP BIT
!LOAD THE COMP WORD INTO BUF _SAY

338;(1) :

S%g

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

3072 :

2537

3062 ;
30633064 M

33823 N

3073
3077

3081 015430

3082 015430
3083 015434
3084 015436
3085 015442
3086 015446
3087 015452

2527
gg%g

gggz

2538

004167
005746
016646
012746
004767
010001

COMP_BIT
M-SA : bitvector [16];

Bur
10_ C. CGPWRD] = ZERDES:

000012
000020
166300

'ZERO THE COMP WORD

'FIND COMPLIMENTED BIT AND RETURN ERROR STATUS

end;
166410

'BIT THAT IS COMPLINEMTED
ISTORES THE WORD IN WHICH THE BIT 1S COMPLIMENTED

FIND.COMP.BIT:

JSR
TST
MOV
MOV
JSR
MOV

R1,$SAVE?
-(SP)
12(SP) ,=(SP)
#20,-(SP)
PC.BLSDIV
RO.R1

;

2502

; BITS.XFERED,

2530

;

=, COMP.WRD

CZM_ABO ML-11 LOGIC TESY

WYY

»>104 0155
3105 015504
3106 0155
3107 0155
3108 015532

3109 01553
3110 015540
3111 015544
3112 015546
3113
015552
3114 015556
3115 015560
3116 015562
3117 015564
3118 015566
3119 015572
3120 015574
3121 015500
3122
3123
3124

M7
PAGE 103

SEQ 0090

H, T

22-Dec=1980 09:24:31
22-Dec=1980 09:21:22
16(SP; , (SP)

GBocecss

— 33§33
28L&

3089
3090
3091
3092 015454
3093 015460
3094 015464
3095 015470
30% 015472
3097 01547
3098 017176
014304
3100 01- 10
3101 018,12
3102 0155 4
7103 015516

2°-DEC-80 12:16

; BITS.XFERCD,*

#20,-(SP)

PC.8 $SMOD
ROR
R1.RO
RO
(RO) ,6(SP)
10.BUF
10.BUF (RO)
SZ.RO

: E.COHP.BIT

OMP.WRD,
*

;

*,BUF SAV

; COMP.BIT,«

TOPS
PA:<

2531

2532

2533

2535

MISTELLANEOUS CODING SECTION

MACRO M1113

;

Ro’=(3p)

-($P)
PC.BLSGT2

165366
000010

000001
000010

; COMP.BIT,»

#177770, (SP)
#1,~(SP$

177770

BUF .SAV,

a&b.sp

1$:

2%:

MOV

MoV

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

2503

2502

11 words

WWVIeTM

MACRO M1113

CZMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

N3
3 33
3134
3135 ;
2136 ;

3137
3138
3139
3140
3141
3142
3143
3144
314S
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156

;
.

;
;
;
;
;
;

;
;

;
;
;
;
:
;
;
:

3157 ;
3158 ;
3159 ;
3160 ;
3161 :
3162 :
3163 ;
3164 :
3165 ;
3166 ;
3167 ;
3168 ;
3169 ;
3170 :
3171 ;
3172 :
3173 ;
3174 ;
3175 ;
3179
3183 015602
3184 015602
3185 015606

22-DEC-B0 12:16

N 7
PAGE 104

SEQ 0091

22-Dec-1980 09:2¢4: 3
22-Dec-1980 09:21: 22

2539
2540

2541
2542

5543
544
2545
2546
2547
2548
2549
2550
2551
2552
2553
25564
2555
2556
2557
2558
2559
2560

2561
2562
2563
2564

2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
004167
016600

routine FORCE_REM (PLOG, CHAN)
begin

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

: novalue

iee

FUNCTIONAL DESCRIPTION:

VIA ECC_ DM AND THE PRECALCULATED MODULO 2

REMI'OERS STORED IN REH 1BLL], THE
CRC_A,.CRC_B8 AND PAR
(
ARE“FORCED WITH ERRMOUS CRC DAT.A TO
FORCE PERDICTABLE ECC ERRORS

FORMAL PARAMETERS:
PLOG

POINTS TO ONE OF
A CRC GROUP

THE SIX WORDS OF

CHAN

PCINTS TO ONE OF 36 CHANNELS IN

A CRC GROUP

IMPLICIT INPUTS:
i 1

local
ALOG,

!INDEX INTO REM_TBL

ALOG = .PLOG + .CHAN;

!CALCULATE A_LOG

while .ALOG
ALOG =

63 do
- 63;

'REDUCE A_LOG UNTIL < 64

while .BLOG

63 do

'REDUCE B_LOG UNTIL < 64

'INDEX INTO REM_TBL

BLOG;

'CALCULATE B_LOG

BLOG = .PLOG + .CHAN®?;

BLOG = .gng - 63;

ECC_DM
= ONE.

PAR_CRC_WRD
= .REM_TBL [.PLOG]:

CRC_A =~.REM_TBL [.ALOGJ:

CRC_B = .REM_TBL [.BLOG];
end;
166252
000014

FORCE .REM:

JSR
MOV

R1,$SAVE3
14(SP) ,RO

!SET ECC DIAG MODE
!LOAD PAR_CRC_WRD WITH REM_TBL

'LOAD CRC_A WITH REM_TBL
iLOAD CRCB WITH REM_TBL

;. PLOG,»

2539
2566

CZMABO ML-11 LOGIC TEST

MISCELLANEOQUS CODING SECTION

3187
3188
3189
3190 015612
3191 015614
319§ 0N
3193 015624
3194 015626
3195 0156

MACRO M1113

SEQ 0092

22-Pec-1980 09:24 : 3
22-Pec-1980 09:21 :22

01000

18:

2s:

3201 01565
3202 015656
3203 015660
3204 015666
3205 015672
3206 015674
3207 015700
3208 015706
3209 015712
3210 015716

175406

CHAN,ALOG
CHAN,
»

2567

ALOG,
*

2569

*,ALOG

2570
2569

8LOG,*

33
477 .R1
2$

*,BLOG

2572

2573
2572

2575

#1,3ML .REG+120
).R3
.T8L

3$:

TOPS
PA:<

2576

175416

321 015%2’5

KKK
XRIo

B 8
PAGE 105

MLé

3196 01563
3197 015636
3198 015642
3199 015644
3200 015652

3212 015
3213 015734
3214 015740
3215 015744
3216 015752
3217 015756
3218

22-DEC-80 12:16

”

175362

2577

*(BLOG)
,*

2578

#77 ., .REG+150

175374

0000
175356

*(ALOG)
,*

8ICB
8IsS8
RTS

R3,8ML .REG +150
REM.
TBL (R1 ).R3
#177700 ,R3

;

#77 ,@ML .REG+160
R3,3ML.REG +160

2539

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

& words

CZMABO ML-11 LOG TES
MISCELLANEQUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

c 8
PAGE 106

228 .mLé

22-Dec~-1980 09:24:31

g?}g :
23
3232
3233
3%
23S
3236
237

;
;
.
;
;
:

22-Dec-1980 09:21:22
2580
2581
255
25
2584
2585
2586

routine FOR_ECC_ERR (SGL, UNC)
begin

;
;
;
;
;
;
;
;
;
;
:

2588
2589
2590
2591
2592
2593
2596
2595
2596
2597
2598
2599
2600
2601

!
ECC DIAGNOSTIC REGISTERS
!
! FORMAL PARAMETERS:
!
SGL
!
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
!
! IMPLICIT INPUTS:
!'—

3256 ;

2605

3238

3239
3240
3241
3242
3243
32464
324S5
32646
3247
3248
3249
325C
3251
3252

2587

;

3253 ;
3254 ;
3255 ;

2602
2603
2604

3257 ;
3258 ;

2606
2607

3261 ;

2610

3259 ;
3260 ;

3262 ;
3263 ;

3264
3265 ;
3266 ;
3267 ;

3268 ;
3269 :

3273
3277 015760
3278 015760
3279 015766
3280 015774
3281 015776

SEQ 0093

152777
032766
001407
052777

: novalue =

OR UNCORRECTABLE ECC ERRORS INTO THE

ECC_DM = ONE:
)
if .SGL

then

'SET ECC DIAG MODE
YIF SGL IS TRUE

be in
_CRC_WRD = Xb*111111°;

'THEN FORCE A SINGLE BIT ERROR

CRC —A ="%b'000000°;
CRCB
= Xb'000000°;

else

2613
2614
2615
2616
2617
2618

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

144
! FLNCTICNAL DESCRIPTION:
!
'FORCE ECC ERROR' WHEN CALIED WILL FORCE
!
VIA ECC DIAG MODE, SINGLE BIT E.C ERRORS

2608
2609
2611
2612

TOPS=-20 Bliss=16 V2(212)

end”

begin

PAR_CRC_WRD = Xb°'111111°;
CRC A ="¥b'111111°;
CRC_B = Ib'000000°;
end;

'ELSE FORCE A UNCORRECTABLE ERROR

end;

000001
000001

175306
000004

037400

175320

FOR.ECC.ERR:
8IsS8
BIT
BEQ
BIS

#1,aML.REG+120
#.,4(SP)
18
#37400,@ML .REG+150

M
; *,SGL

2602
2604

2607

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

D 8
PAGE 107

SEQ 0094

22-Pec-1980 09:24:31
2>Dec=-1980 09:21:22

JMLG

000077

175302

175274
175276

18:

2s:

#77 ,8ML .REG+150

Pé 3

8IS8
8I(8

#77,@M .REG+150
#77 , M .REG+160

8IS
RTS

BICB

B8R

037400

175312

#374600,aML .REG+150

000077

Ce ®e B,

3283
3284
3285
3286 016004
3287 016012
3288 016014

MACRO M1113

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

0 words

TOPS
PA: <

2608
2609

2613
2614

2615
2580

CIMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

E 8
PAGE 108

VOOV
WA= O

22-Dec-198 0 09:24:31
22-Dec-198 0 09:21:22

TOPS-20 Bliss=16

PA:<NEALE>RL3MLG.

routine FIRST_BLK_XFER : novalue =
!++

i FUNCTIONAL DESCRIPTION:
A REPEATEDLY CALLED SEQUENCE OF
sxaosm EXPRESSION TO LOAD
THE
DSA, BUS ADRS AND WORD COUNT

Resxsrsfis WITH APPROPRIATE INFORMATION

BEFORE MASS BUS TRANSFERS CAN
COMMENCE
.

LOADS A MASS_BUS BLOCK XFERR AT
BLOCK ZERO.

!LOAD THE DSA REG WITH SECTOR ZERO
!LOAD THE BUS ADDRESS REG WITH 10 _BUF ADRS

8o B

3323

%000 000585 0s%s V00080 0B Vo000,

SRK TSR

3302 M4
3

SEQ 0095

!LOAD WORD COUNT REG WITH COMPLIMENT 256

175140

011600 175122
177400 175104

CLR

MOV
MOV
RTS

@ML.REG+30

2636
2637
2638
2619

#10.BUF
,aM_ .REG+20
#-400,
ML .REG+10
PC

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

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

.
_F
8
PAGE 109

3348 M4

22-Dec=-1980 09:24:31

gks?) .
3351
3352
3353
3354
335S
3356
3357

22-Dec~1980 09:21:22
2640
2641
2642
2643
2644
2645
2646

routine GD_BLK_XFER : novalue =

3359
3360 ;
3381
3362

2648
2649
2650
2651

!
!
!
!

3365
3366
337
3368
3369
3370

2656
2655
2656
2657
2658
2659

!
!
'~

.
:
:
:

3358 -

3363 ;
3364

;
;
:
;
;

3371 ;
3372 :

3373

3374 :

3378
3382 016062

3383 016062
3384 016070
3385 016076
3386 016104
3387 016112

3389
ggg

SEQ 0096

2647

2652
2653

'++
' FUNCTIONAL DESCRIPTION:
!
A REPEATEDLY CALLED SEQUENCE OF
!
ASSIGNMENT EXPRESSIONS TO LOAD
!
THE DSA, BUS ADRS AND WORD

COUNT REGISTERS WITH APPROPRIATE
INFORMATION BEFORE A MASS BUS
TRANSFERS CAN COMMENCE

LOADS A MASS BUS BLOCK XFERR

!
!

AT THE GOOD BLOCK ADRS FOUND
8Y THE READ WRITE ARRAYS WITH
PROM DATA TEST

MLDA = .GOOD BLK;
MLBA = JO BUF.

2663

end;

152777
016777
012777
012777
000207

- e

begin
ECC_DIS = ONE;

2660
2661

2662

TOPS=20 Bliss=-16 Vv2(212)

PA:<NEALEX3L3IML4.BLI.2 (14)

'DISABLE ERROR CORRECTION
'LOAD DSA REG WITH THE GOOD BLOCK ADRS
'LOAD BUS ADRS REG WiTH ]O BUF ADRS

MLWC = not 255.

000002
173470
011600
177400

175204
175106
175070
175052

'LOAD WORD COUNT REG WITH TOMPL IMENT 256

GD.BLK.XFER:
BIS8

MOV
MOV

MOV
RTS

; Routine Size:

#2,8 .REG+120
GOOD.BLK ,@ML .REG+30
#10.8UF ,aML .REG+20

2659
2660
2661

#-600,aML .REG+10
PC

13 words

; Maximum stack depth per invocation:

2662
2640

0 words

CZM_ABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~80 12:16

G 8
PAGE 110

3368 M4

22-Dec~1980 09:24:31

33288 :
%01
3402
3403
3604
3405
3406
3407

;
;
.

22-Dec-1980 09:21:22
routine LAST_BLK_XFER : novalue =

:
:
:

2664
2665
2666
2667
2668
2669
2670

3409
3%10
3411
%12

:
;
;
:

2672
2678
2674
2675

!
!
!
!

314
3415
3416
317

:
:
:
;

2677
2678
2679
2680

3408 :

%13

2671

2676

3418 ;

2681

3422 :

2685

3419 :
3420 ;
3421 ;
34623

3427
331 016114

3432 016114
333 016122
334 016130
335 016136
34339 016144
3438
3439

SEQ 0097

!'++
! FUNCTIONAL DESCRIPTION:
!
A REPEATEDLY CALLED SEQUENCE OF
!
ASSIGNMENT EXPRESSIONS TO LOAD
!
THE DSA, BUS ADRS AND WORD

COUNT REGISTERS WITH APPROPRIATE
INFORMATION BEFORE A MBUS
TRANSFER CAN COMMENCE

LOADS A MASS BUS BLOCK

TRANSFER AT THE LAST BLOCK

!
!
!~

ADDRESS

begin

2682
2683
2684

ECC_DIS = ONE:
MDA = .LST BLK;

2686

end;

152777
016777
012777
012777
000207

TOPS-20 Bliss=-16 v2(212)

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

'DISABLE ERROR CORRECTION
'LOAD DSA REG WITH THE LAST BLOCK ADRS
'LOAD BUS ADRS REG WITH THE ]0 BUF ADRS

MLBA = 10 BOF:

MLWC = not 255:
000002
173444
011600
177400

175152
1750564
175036
175020

1LOAD WORD COUNT REG WITH COMPLIMENT 255

LAST.BLK.XFER:

BISB
MOV
MOV
MOV
RTS

#2,3M .REG+120
LST.BLK,@ML .REG+30
#10.8UF ,aML .REG+20
#-400, 34 .REG+10
PC

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

:
:
;
;
:
0 words

2682
2683
2684
2685
2664

CZMABO ML~-11 LOGIC TES T

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-~B0 12:16

H 8
PAGE 111

347 ML

22-Dec-1980 09:24:31

%g :

22-Dec-1980 09:21:22

3450 ;

2687

routine TST_LNG_WRD (NIB_NUM, NIB_PAT, ERR_FLG)

3452 ;
3453 ;
3454
3455
3456 ;

2689
2690
2691
2692
2693

'++
! FUNCTIONAL DESCRIPTION:
!
COMPARES THE CURRENT NIBBLE
!
POSITION IN °*NIB SAVE' WITH THE

3458
3459
34,60
3461
3462
63

:
:
;
:
;

2695
2696
2697
2698
2699
2700

!
TWO VALUES ARE NOT EQUAL AN
!
ERROR FLG IS SET WHICH THE
!
CALLER CAN INTERIGATE
!
! FORMAL PARAMETERS:
!
NIB NUM

3465
3466
3467 :

2702
2703
2704

!
!
!

NIB PAT

3469

2706

COMPARED

3451 ;

3457 :

3464 :

3468

2688

2694

2701

2705

begin

CURRENT TEST PATTERN.

CASE SELECT EXPRESSION TO SELECT THE

3470 :

2707

372 :

2709

3471

3473
374
3475
3476
77
3478

:
:
:
:
:

3479 ;

3480
3481
3482
3483
3484
3485
3486

:
;
:

;
;
:

SEQ 0098

2708

2710
2711
2712
2713
2714
2715

2716

2717
2718
2719
2720
2721
2722
2723

!
!
!
!
!
!

TOPS=20 Bliss=16 v2(212)

PA:<NEALEX3L3ML4.BLI.2 (16

: novalue =

IF THE

CURRENT NIBBLE TO BE EXAMINED

CURRENT NIBBLE PATTERN TO BE

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:
NIB_SAVE

BLOTK OF 3 WORDS TO STORE

!
THE DATA FOUND IN MLD1, MLD?2
!
AND MLE2 AFTER A DIAGNOSTIC MODE
!
READ
!
! IMPLICIT OUTPUTS:
NONE
!'=—

332% :

5;%15

.ERR_FLG = ZERO;

'CLEAR THE ERROR FLAG BACK iN THE CALLING FOUTINE

2726

case .(NIB_NUM) from O to 9 of

'SELECT THE NIBBLE TO BE TESTFD

3492 :

2729

3490 ;
3491 ;

3493 :

332345 :

2727
2728

2730

oy :

577%}

3496 ;
3497 ;
3498

2733
2734
2735

3500 :
3501 ;

2737
2738

3499 ;

set

2736

it .NIB_SAVE [NIB_0] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE;
'TEST NIBBLE O AND SET ERR FLG IF NEQ
1]

)

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

CZMLABO ML-11 LOG ) C

MISCELLANEOUS COD 1 NG

ST
E CTION

MACRO M1113

22-DEC-80 12:16

3503 M6
3

[

PAGE 112

8
SEQ 0099

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

TOPS=-20 Bliss=16 v2(212)
PA:<KNEALE>BL 3ML4.BLI.2 (16)

2] :
if

'TEST NIBBLE 1 AND SET ERR TLG IF NEQ

_NIB_SAVE [NIB_2) neq .(NIB_PAT)<0, &> then .ERR_FLG = ONE;

(3] :
it

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

'TEST NIBBLE 3 AND SET ERR FLG IF NEQ

4] :
if

€53 :
it

PN PR P
I
FN PR

.NIB_SAVE (NIB_5] neq .(NIB_PAT)<0, &> then .ERR_FLG = ONE;

'TEST NIBBLE 5 AND SET ERR FLG IF NEQ

6] :
if

.NIB_SAVE NIB_6] neq

.(NIB_PAT)<0, &> then .ERR_FLG = ONE;

'TEST NIBBLE 6 AND SET ERR FLG IF NEQ

(7] :
if

.NIB_SAVE (NIB_7] neq .(NIB_PAT)<0, &> then .ERR_FLG = ONE:

!TEST NIBBLE 7 AND SET ERR FLG IF NEQ

8] :
if

YNPR
PR TS FE

FN T

.NIB_SAVE INIB_4) neq .(NIB_PAT)<0, &> then .ERR_FLG = ONE;
'TEST NIBBLE 4 AND SET ERR FLG IF

TN P

FE PR YIS
PR Y

N YN
P I

'TEST NIBBLE 2 AND SET ERR FLG IF NEQ

'TEST NIBBLE 8 AND SET ERR FLG IF NEQ

A
TE PR TR TR IATE IR
AR

.NIB_SAVE NIB_8J neq .(NIB_PAT)<0, &> then .ERR_FLG = ONE;

9] :
if .NIB_SAVE (NIB_9] neq . (NIB_PAT)<0, 3>
then
ONE
ITEST NIBBLE 9 AND SET ERR FLG IF NEQ

CZMLABO ML-11 L OGIC TEST

MISCELLANEOUS C ODING SEC TION

MACRO M1113

22-DEC-80 12:16

J .8
PAGE 113

165672
000010

YST.LNG.URg:

000014

2%:

000012
177760
172672

3s:

GaRKEERaENs

2929992929292

NN=O

SEEREEEEES

177760

000012
177760
172634

2687
2724

NIB.NUM,
»

2726

;

NIB.PAT,»

2731

NIB.PAT,*

2737

NIB.PAT,«

2743

NIB.PAT
,»

2749

177760
172720
177760

ERR.FLG,
*

[m )

000012

TOPS-20 Bliss=16 v2(212)
PA: NEALEMBL3IMLG.BLI.2 (16)

1$(R1) ,PC

3579 016200

. WORD
.WORD
.WORD

]

18:

016172

R1,$SAVE?2
10(SP) ,RO
(RO)
14 (SP) ,R1
R

2E3= 35535333 mém

IRIERERES

b e

124 : 31
22-Dec-198 0 09:2
22-Dec-198 0 09:2 :22

3574 0

b o

o e

3565
3569 0

o 3o T e ologTo Yo Yo Yo Yo o

3559 ;w4
3560 :
3561

SEQ 0100

A ¥

MOV

R2
R2
R2
#177760 ,R2
RZ,R1
138
128

12(SP) .R1

2177760 ,R1

NIB. SAVE ,R2
R2
:}75;60,R2

177760

13§
000012

5%:

MOV

128
12(SP) .R1

CZM_ABO ML-11 LOGIC TEST

K 8
PAGE 114

SEQ 0101

R R B b s e ks £ R IIIE FEF FOCERE

D
b

177760
172604

#177760,R1
gIB.SAVE.RZ

177760

#177760.R:
R2 R1

TOPS

PA:<

b o

ook

b —

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

)

13¢

128
12(SP) ,R1

000012
177760

#177760.R1

172546

b
b

; NIB.PAT,»

2755

; NIB.PAT,»

2761

; NIB.PAT,»

2767

: NIB.PAT,»

2773

: NIB.PAT
=

2779

NIB,SAVE+2,R2
#177760,R2
R2,R1

177760

13§

000012

b ed

177760
172520

7%:

1 23
12(SP) .R1

177760
.R1

gée.SAvs+2.R2
R2
R2
R2
#177760,R2
R2,R1

177760

13§

12
12(sP) R1

000012
177760
172462

NIB.SAVE+2,R2

177760

g;?;;bo.nz

#177760,R1
R

13§

o ~NOWN

8
3

22-DEC-80 12:16

JMLS

o (elelelelelelelelelelelalelelaleleleTe)

BRERCERRRRRERRRE sg

MISCELLANEOUS CODING SECTION

MACRO M1113

000012
177760
172432

:
9%

016702

#177760.R1

NIB.SAVE+2.R2

177760

00001¢
177760
172374

12
12(sP) .R1

:17;{60.R2

108
:

128
12(SP) ,R1

#77760,R1
NIB.SAVE+4
,R2

1
CZMLABO ML-11 LOGIC TE ST
MISCELLANEQUS CODING S ECTION

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

8
SEQ 0102

JMLG

0014
0004

N
SO

—

000012
177770
172344

STalk
118:

MOV

153
12(SP) ,R1

; NIB.PAT,*

#77770.R1

2785

gxe.sww,nz

177770

000001

TOPS

PA:<

R2
#177760,R2

177760

#177770,R2
R2,R1

d oD

BB E% 2E SESRG
RE
;

(eleleleleleTele]

3680 016606

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

12%:
13%:

MOV
RTS

13§

#1,(RO)

2787
2687

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

3 words _

CZMABO ML-11 LOGIC TEST

W wN

wivwl

f)yvi

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

M8
PAGE 116

3701 .mL6

22-Dec-1980 09:24:31

%% :

22-Dec=1980 09:21:22

3704 ;

2791

3706 ;
3707 ;
3708 ;
3709 ;
3710 .
37N
3712 .
3713 ;
3714 ;
3715 ;
3716 ;
3717 ;
3718 ;
3719 ;
3720 ;
3721 ;
3722 :
3723 ;
37264 ;
3725 ;
3726 ;
3727 ;
3728 ;

2793
2794
2795
2796
2797

3705 .

3730
3731
3732
3733
3734
3735
3736
3737
3738
3739

:
;
.
.

2792

2798
799
800

2801
2802
2803

2804

2805
2806
2807
2808

2809

2810
2811
2812
2813
2814
gg}g

;
:
;
.
;

2817
2818
2819
2820
2821
2822
2823
2824
2825
2826

3742 ;

2829

3740 ;
3741 ;

3743 ;
3744 ;

%7722 ;

2827
2828

2830
2831

gggg

3747 ;

2834

%77153 H

sg%g

3748 ;

2835

3751 ;

2838

33;%2 H

Sgli?

3752 :

3755 .

SEQ 0103

2839

2842

routine XOR_LNG_WRD (NIB_NUM, NIB_PAT, RESULT)

begin

TOPS-20 Bliss=-16 v2(212)

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

: novalue =

!4+
! FUNCTIONAL DESCRIPTION:
!
EXCLUSIVE ORS THE CURRENT
!
NIBBLE POSITION IN °'NIB_SAVE'
!
WITH THE CURRENT TEST PATTERN
!
AND ASSIGNS THE RESULTS TO THE
!
FORMAL PARAMETER 'RESULT®.
!
! FORMAL PARAMETERS:
!
NIB_NUM
!
CASE SELECT EXPRESSION TO
!
SELECT THE CURRENT NIBBLE TO BE
!
EXAMINED
!
!
NIB_PAT
!
CURRENT NIBBLE PATTERN TO BE
!
XOR'ED
!
!
RESULT
!
CONTAINS THE ADDRESS (PASSED BY REF)
!
OF AN OWN STORAGE LOFATION TO
:
ENABLE THE CALLER TO EXAMINE THE XOR RESULTS.
! IMPLICIT INPUTS:
!
NIB_SAVE
!
BLOTK OF 3 WORDS TO STORE
!
THE DATA FOUND IN MLD1
!
MLD2 AND MLE2 AFTER A
!
DIAGNOSTIC MODE READ.
!
! IMPLICIT OUTPUTS:
NONE
!'—

case .(NIB_NUM) from 0 to 9 of
set

!SELECT THE NIBBLE TO BE XOR'ED

] :
LRESULT = _NIB_SAVE [NIB_0] xor .NIB PAT;

'XOR NIBBLE O AND STORE RESULTS IN THE ADRS CONTAINED IN .RESWLTS

01l :

.RESULT = .NIB_SAVE [NIB_1J xor .NIB_PAT;

'XOR NIBBLE 1 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESWALTS

. [23 :

LRESULT = _NIB_SAVE [NIB_2] xor .NIB PAT;

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

(31 :

CZMABO ML-11 LOGIC TEST
MISCELLANEOL'S CODING SECTION

MACRO M1113

22-DEC-80 12:16

N 8
PAGE 117

3757 M6
33;%3 :

SEQ 0104

22-Dec-1980 (9:24:31
22-Dec~1980 09:21:22

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

3760 :

2843

3763 ;
3764 :
%Z,gg :

2846
2847
%&g

[4) :
LRESULT = _NIB_SAVE [NIB_4] xor .NIB PAT.
'XOR NIBBLE & AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

3767 ;
3768 ;

2850
2851

£s) :
LRESULT = .NIB_SAVE [NIB_S5] xor .NIB PAT.

3771 :
3772 ;

2854
2855

(6]

3775 :
3776 :

2858
2859

3779 :
3780

2862
2863

(8] :
CRESULT = _NIB_SAVE [NIB_8) xor .NIB PAT;

3783 ;
3784 ;
3785 ;

2866
2867
2868

9] :
.RESULT = _NIB_SAVE [NIB_9] xor .NIB_PAT
'XOR NIBBLE 9 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

3787 :
3788 ;

2870
2871

%Z,gnz :

%Z,(_}g :
%_7,772 :

%77;78 :
3781 ;

3786 :

3792
3796 016642

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

%ggg

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

2869

3807 016

000076

000120
000136
000144

:
LRESULT = .NIB_SAVE [NIB_7] xor .NIB PAT;

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

gggg

000024
000036
000062
000070

:
.RESULT = _NIB_SAVE [NIB_6] xor .NIB PAT;

'XOR NIBBLE 6 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESWLTS

532(1)

004167
016601
016602
016600
006300
066007

3808 016702
3809 016704
3810 016706

'XOR NIBBLE $ AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS

%gg%

3797 016642
3798 016646
3799 016652
3800 016656
3801 016682
3802 016666
3803 016670
3804 016672
3805 016674
3806 016676

LRESULT = _NIB_SAVE (NIB_3] xor .NIB PAT;

%?.‘z‘g

tes;

end;

165230
000016
000014
000020
016670

XOR.LNG.WRD:

1$:

JSR
MOV
MOV
MOV
ASL
ADD

R1,$SAVE4
16(SP) ,R1
14(SP) ,R2
20(SP) ,RO
RO
1$(R0O)
. PC

MWOKD

63-183

.WORD
.WORD
MWORD
.WORD
MORD
.WORD
.WORC

28%-1%
3%-1%
43-18
5%-1%

83-18%
93-1%
108-1$%

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

2791
2831
2827

CZMABO M.-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

381

000162
176

3818 016720

042712

3817 016714 016712

3819 016724 ooo:.rg
3820 016
016703
3821 016
006203
3822 016
006203
3823 016
006203
3894 016740 006203
3825 016742
042703
3826 016746
010312
3827 016750 00041
3808 016752 016704
3829 016756 000437
3830 016760 016704
3831 016764 000425
3832 016766 016712
3833 016772 042712
3834 016776 010104
3839 017010
3840 017014
3841 017016
3842 017020
3843 017022
3844 017026
3845 017026
3846 017032
3847 017034

3848 017040

040112
050412
000207

016704
006204
006204
006204
006204
000415
016704
000411
016704

006204
006204
006204
000402
016704

3856 017066
3857 017066
3858 017072
3859 017074
3860 017076
3861 017100

000411
016704
006204
006204
006204
006204

% 017102
017104
3864 017110

000304
042704

000304
042704
010412

3865 017112 010103
3866 017114

172232

28:

172220

38:

177760

172174
172166

48:
58

172162

68:

177760

041204

3849 017042
3850 017044
3851 017046
3852 017050
3853 017052

3854 017056
3855 017060

8 9
PAGE 118

SEQ 0105

22-Dec-1980 09:24:31

3815 016710
3816 016712

3836 017002
3837 017004
3838 017006

22-DEC-80 12:16

3?3}‘

3835 017000

MACRO M1113

041203

78:

172140

8s:

172122

98:

172114

108:

172100

118:

128:

177760

138:
148:

172064

158:

177770

168:

22-Dec=1580 09:21:22
LWORD
'WORD

12%-15
15%-1%

MOV

NIB, SAVE, (R2)

BR
MOV
ASR
ASR
ASR
ASR
BIC
MOV
B8R
MOV
B8R
MOV
BR
MOV
BIC
MOV

178
N!B.SAVE R3
R3
R3
R3
R3

BIC

8IC
BIS
RTS

#177760, (R2)

#177760. (R?)

R&
R4
R4
138
NI3.SAVE+4,Ré

B8R
MOV
ASR
ASR
ASR
ASR

168
NIB.SAVE+4 R4
R4
R4
R4y
R4

MOV

R1.R3

BIC

;

2835

;
;

2839
2843

;

2847

;

2827

(R2) R4

R1, (R2)
R&. (R2)
PC

ASR
ASR
ASR
B8R
MmOV

SWAB
BIC
MOV

2831

R1,Ré

NIB. SAVE+2.Ré4
R4
R4
R4
R4
148
NIB. SAVE+2.Ré
138
NIB.SAVE+2.R4

SWAB
BIC

;

#177760.R3

R3, (R2)
7s
NIB.SAVE R4
138
NIB.SAVE R4
118
NIB, SAVE+2, (R2)

MOV
ASR
_ASR
ASR
ASR
B8R
MOV
8R
MoV

-ASR

TOPS

PA:<

‘
;e

Ré
#177760.R4

R4
#177770.Ré4
R, (R2)

(RO),R3

2851

2855
2859

;

2863

;

2867

CZMABO M-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

c 9
PAGE 119

SEQ 0106

JMLS

22-Dec~- 1980 09:24: 3
22-Dec~ 1980 09:21: 22

B8IC

R1, S)

RTS

81S

R3.(

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

TOPS
PA:<

2791

S words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

D_9
PAGE 120

38815. H, ¥

SEQ 0107

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

routine LD_LNG_WRD (NIB_NUM, NIB_PAT)

begin

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

novalue

+4
T IR R E R R

!
.

[}
.

}

[}

!
]

aEaEaITraIaEaaIEmmMRaEaIaEaIEEER

}
o

]
.

[}
.

!
.

[}
.

]
[}
.

]
.

IR M

NIB_NUM

CASE SELECT EXPRESSION TO SELECT
THE CURRENT NIBBLE TO BE LOADED

NIB_PAT

CURRENT NIBBLE PATTERN TO BE

LOADED

]

IMPLICIT INPUTS:
NI 8_SAVE

B8LOTK OF 3 WORDS TO STORE
THE DATA TO BE WRITTEN

INTO MLD1 MLDZ MLEZ2

[}
.

|
1
.

[}

IMPLICIT OUTPUTS:
NIB_SAVE IS LOADED WIH

THE “CURRENT NIBBLE PATTERN

SRR FRBAYYIYY LR
2905

NN
O
W= OO WNOWNS

ET IR I mMammamESEaTrIaIEaaEaT

FORMAL PSRMETERS:

TO MLD1, MLD2 AND MLE?2
DATA DIAGNOSTIC REGISTERS.

I A

LOADS 'NIB_SAVE' WITH UNIQUE

NIBBLE PATTERNS PRIOR TO WRITING

IR R

FUNCTIONAL DESCRIPTION:

case .(NIB_NUM)
set

from 0 to 9 of

ol :
NIB_SAVE [NIB_0] = .NIB_PAT;

1] :

NIB_SAVE [NIB_1] = .NIB_PAT;

el :

" ISELECT THE NIBBLE LOCATION IN NIB_SAYE TO BE LOADED

'LOAD NIBBLE O WITH NIB_PAT
'LOAD NIBBLE 1 WITH NIB_PAT

NIB_SAVE [NIB_2] = .NIB_PAT;

'LOAD NIBBLE 2 WITH NIB_PAT

3] :
NIB_SAVE [NIB_3] = .NIB_PAT;

'LOAD NIBBLE 3 WITH NIB_PAT

(4] :

NIB_SAVE [NIB_4) = .NIB_PAT;

'LOAD NIBBLE 4 WITH NIB_PAT

] :
NIB_SAVE [NIB_S5] = .NIB_PAT;

!LOAD NIBBLE 5 WITH NIB_PAT

(6] :

CZMABO ML-11 LOGIC TEST
MISCELLANEOQUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

E_9
PAGE 121

3960 .m4

SEQ 0108

22-Dec-1980 09:24:31

33&5 :

22-Dec=-1980 09:21:22

TOPS=20 Bliss=16 Vv2(212)

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

3943 ;

2924

NIB_SAVE [NIB_6] = .NIB_PAT;

'!LOAD NIBBLE 6 WITH NIB_PAT

3945 ;
3946 :

2926
2927

(71 :
NIB_SAVE [NIB_7] = .NIB_PAT;

'LOAD NIBBLE 7 WITH NIB_PAT

3948 :
3949

2929
2930

(8] :
NIB_SAVE [NIB_8) = .NIB_PAT;

!LOAD NIBBLE 8 WITH NIB_PAT

3951 :

2932

9] :

3953 ;

2934

tes;

3944 ;
3947 ;
3950 ;

3952 :

3954 ;

3955 .

395y
3963 017124

3964 017126

3965 0171§g
3966 0171
3967 017136
3968 017160
3969 017144
3970 017146
3971 017150
3972 017152

3973 017154
3974 017156
3975 017160
3976 017162

3977 017164

3978 017166
3979 017170

3980 017174
3981 017202
3982 017204
3983 017206
3984 017210
3985 017212
3986 0172146
3987 017220
3988 017226
3589 017230
017232
3991 017236

3992 017244
3993 017246

2925

2928
2931

2933
2935

2936
010146

016600
016601
006301
066107
000024
000040

NIB_SAVE [NIB_9) = .NIS_PAT

end;
LD.UNG.WRD:

000004
000006
017144

18:

000064
000102

000134

mov

R1,-(SP)

LMHORD
.WORD

483-18
5%-1%

MOV
MOV
AS
ADD
.WORD
.WORD

000174
000212

.WORD
.WORD
MORD
LWORD

000262
042700

.WORD
1C

000150

000244

142767
w

006300
006300
006300
042700

142767
000421
000300

042700
042767

000412
(00300

'LOAD NIBBLE 9 WITH NIB_PAT

.WORD
177760

000017

171750

2s:

177417

170377
007400

2906

2906
2902

15;_—18

13%-18
#177760.R0

S$:

BR
SWA8

63
RO

171706

2872

9%-18
108-1%

4%:

8IC
BIC

5 NIB.PAT
,»
; NIB.NUM,»

7%-1%

#17 ,N1B.SAVE
63
RO
RO
RO
RO
277617
.RO
#360,N18.SAVE
63
RO

171724

8%-18

8lc8
B8R
ASL
ASL
ASL
ASL
8IC
aI(8
B8R
SWAB

3s:

000360

4(SP) ,RO
6(SP) P}
R1
1$(R1) ,PC
g—n
-1$

#170377 .RO
#7400,N1B. SAVE

2909

;

2912

;

29NS

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

3995
006300
006300

03
8};2223 042 : 007777
400% 017264 m;&’? 170000 171660

4004 017272 050067 171654
4005 017276 0004667
4006 017300 msroo 177760
4007 017306

4013 017326
4014 017330

142767

000433
006300
006300
006300
042700
142767

4015 017336 000421
4016 017340 000300
4017 017342
4018 017346

042700
042767

4020 017356

000300

4019 017354

4021 017360
4022 017362
17364
402¢ 017366
4025 017370

4026 017376

4027 017402

000412

006300
006300
006300
006300

170377
007400

000300

4038 0176440
4039 017444

042700
042767

4041 017456

012601

000412

4034 017430
006300
4035 017432 006300
4036 017434 006300
4037 017436 006300
050067

000207

171642

68:

78:

170000

9s:
171600

170377
007400

171552

118:
128:

171532

138:

107777
070000
171500

171504

22-Dec=1980 09:21:22
ASL
ASL

RO
RO

3?%
BIC

507777
RO
#170000 ,NIB. SAVE

RO NIB. SAVE
15§
#177760.R)

B8R
ASL
ASL
ASL
ASL

118
B.
RO
RO
RO

BR
SWAB

118
RO

BICB

148:

158:

#17,NIB.SAVE+2

#170377
R0
#7600,NIB. SAVE+2

SWAB

BIC

#7777 RO

BIS

RO NIB. SAVE+2

SWAB
BIC
BIC

RO
#170377.RO
#7600,
NIB. SAVE +4

SWAB

ASL
ASL
ASL
ASL
BIC

BR
B8R

118

RO
RO
RO
RO

15§

;

2921

;

,
2924

;

2927

2902

2933

2872

148

RO
RO
RO
RO

8IS

RO,NIB. SAVE+4

RTS

MOV

2902
2918

#170000
.NIB. SAVE+2

ASL
ASL
ASL
ASL
BIC
BIC

PA: <

;
:

1774617
,RO
#360.NIB.SAVE+2

BIC
BIC

B8R

TOPS

8IS
BR
BIC

BIC
BICB

171616

108:

171546

4033 017426

L0464
4045

177417
000360

050067
000300
042700
042767

&g 017460

22-Dec-1980 09:24:31

ASL

8s:

007777

042767

4029 017410
4030 0176412
4031 017416

4040 017452

000017

042700

4028 017406 000423
4032 017426

SEQ 0109

4000 017254 006300

4008 017312
4009 017314
4010 017316
4011 017320
4012 017322

F_9
PAGE 122

;MLG

33339

3998 017250
3999 017252

22-DEC-80 12:16

2930

#107777.RO
#70000,NIB.
SAVE +4

(SP)+ R1

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

2 words

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CUDING SECTION

4051

22-DEC-80 12:16

G_9
PAGE 123

;M6

22-Dec-1980 09:24:31

%g%
4056 ;

SEQ 0110

22-Dec-1980 09:21:22
2937

routine WRT_(CS1

(TST_PAT,

index)

: novalue =

4055 .

2938

4057
4058
4059
4060

2940
2941
292
29643

!'+¢
! FUNCTIONAL DESCRIPTION:
|
LOADS THE CONTROL & STATUS REGISTER 1 WITH A DATA PATTERN

2945

4056 ;

;
;
;
;

2939

begin

4061 ;

2944

40€3 ;
4064 ;

2946
2947

i FORMAL PARAMETERS:
i
TST_PAT

4066

4062 ;

4065 ;

4067 ;

2948

2950

4068 ;

2951

4070 ;
4071 ;
4072 ;

2953
2954
2955

28;3 :

2957

4069 ;

4073 ;

2952

2956

4082 017662
4083 0176466
4084 017472
4085 017474
4086 017476
4087 017500
4088 017502
4089 01

004167
016600
006300
006300
006300
010001
016100

4093 017526

010277

4090 017512
4091 017516
4092 017522

046100
016102
050002

4096 017530

000207

4096
2(1)(9);

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BLIM 4.BLI.2 (19)

GENERATED BY THE MACRO WRT_MASK,

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER.

INDEX

USED BY THE MACRO WRT MASK TO SELECT THE CURRENT RECISTERS ADDRESS,

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

i
i—

MLCST = WRT_MASK;

!LOAD GENERATED WRT_MASK PATTERN INTO MLCS1

end;

164356
000010

013156
000012

WRT.CST:JSR
MOV
ASL
ASL
ASL
MOV
MOV
8IS

173424

MOV

013160
013162

R1,$SAVE?2
10(SP) ,RO
R
RO
RO
RO.R1
!I. REG+2(R1) ,RO
12(SP) ,RO

BIC
MOV
8IS

M. REGM(RU RO
ML.REG+6(R1), RZ
RO.R2

RTS

; Routine Size:

:
;

20 words

2937
2956

; TST.PAT,«

R2.aML .REG

; Maximum stack depth per invocation:

INDEX,*

:
3 words

2937

CZMABO M_-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

H_ 9
PAGE 124

4105 M6

22-Dec=1980 09:24:31

2}89 :
2188 :

4110
4111

;

22-Dec-1980 09:21:22
gggg

5060

routé:e.RD_CS1

2}}% ;

2961

!++

6114

2964

(1S
6116 :

4119 :

2969

2}55 ;

223;}

4120 :

4123 :

2%7

2970

2973

2}% :

g;g

6126 :

2976

4128 ;

2978

6131 ;

2981

2}%2 :

2985

6127 ;

2}2}3 :
4132
4133
3% ;

(TST_PAT,

index, ERR_FLG)

: novalue =

| FUNCTIONAL DESCRIPTION:

2965
2966

2}}; :

|
|

COMPARES THE CONTENTS OF THE

CONTROL & STATUS REGISTER 1
WITH THE MASKED DATA PATTERN

GENERATED BY THE MACRO 'WRT_MASK'

IF THE COMPARE IS NOT EQUAL THEN

THE FORMAL PARAMETER

'ERR FLG'

ESR%?&D A ONE TO INDICATE THE

)

| FORMAL PARAMETERS:

TST_PAT

2977

DATK PATTERN TO BE MASKED AND

223;2

OF THE REGISTER UNDER TEST.

INDEX

COMPARED AGAINST THE CONTENTS

2982
2983
2984

|
|
i

MASK INFORMATION.

4137 :

2987

ERR FLG

4139 :
4140 :
2}2; :

2989
2990
zzg;

|
!
i

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

4138 :

2988

USED BY THE MACRO WRT MASK TO
SELECT THE CURRENT REGISTERS ADDRESS.
FORCED HI, FORCED LO AND DON'T CARE

CONTAINS THE ADDRESS (PASSED BY REF)

e
4145

9337
| PLICIT BETS
Deuts:
2995 i
LOADED WITH THE GENERATED

2}2; :

2997

2996

4149 ;

2999

3006

| IMPLICIT OUTPUTS:

flgg ;

3007

;

4159 °

3009

4146 -

4150 ;
4151 :
zgg :

4154 :

4155
4156 -

SEQ 0111

3000
3001
%g
3005
3006

;

!
!
:
|
!

WRT _MASK DATA PATTERN THUS ALLOWING

CALLCER TO PRINT FAILING GOOD DATA.

RD DATA

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

GLOBAL LOCATION WR_DATA
AND RD DATA LOADED WITH GOOD

AND BAD REGISTER DATA

TOPS=-20 Bliss=16 v2(212)

PA:<NEALE>B.3M 4.BLI.2 (20)

CIM_ABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

G161

22-DEC-80 12:16

1.9
PAGE 125

SEQ 0112

;M6

._2-0«-1980 09:24:31

¢-Dec-1980 09:21:22

4164 ;

3C10

2}29 :

3383

4165 ;

'CLEAR ERROR FLAG

RD_DATA = .MLTS1 or .IGNORE:

'READ AND SAVE THE REGISTER

UT_DlTA = WRT _MASK;

2112(8) :

gg)';

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

6170 ;

3016

3017

46179 017532
4180 017536
4181 017542
4182 017546
4183 017550
4184 017552
4185 017554
4186 017256
4187 017562

004167
005076
016600
006300
006300
006300
010001
016100
0

4189 017572

4188 017566

4190 017576

4191 017600
4192 017604

4193 017610
4194 017614

4195 017620
4196 017626
4197 017630
z}gg 017636

4200
2228;
4207

ISAVE THE DATA WRITTEN TO THE REGISTER

013156
000014

R1,$SAVE?2
810(SP)
12(SP) ,RO
RO
RO
RO
RO.R1
ML .REG+2(R1)
,R0O
14(SP) ,RO

016102

013162

Moy

ML .REG+6(R1)
,R2

010267
017702

173322
173344

MOV
MOV

R2,WT.DATA
&ML .REG,R2

(v, o
BEQ

WT.DATA RD.DATA
1%
#,810(SP)
PC

050002

056102
010267

026767
001403
012776
000207

164306
000010
000012

013160

013162
173310

'READ THE REG FOR WRT_MASK

-+ !'SET FRROR FLAG IF NEQ

end;
RD.CS1: JSR
(LR
MOV
ASL
ASL
ASL
MOV
MOV
8IS

046100

PA:<NEALE>BLIM ..BLI.2 (20)

.ERR_FLG = ZERO;

3011

2;!;15 ;

TOPS=20 Bliss=16 V2(212)

8IC

B8IS

173302

000001

000010

8IS
MOV

18:

MOV
RTS

; Routine Size:

;
: ERR.FLG
; INDEX,»

2958
3010
3011

; TST.PAT,»

ML.REG+4(R1)
RO

RO.R2

ML .REG+6(R1)
,R2
R7.RD.DATA

35 words

)

; Maximum stack depth per invocation:

3 words

3012

3014

; % ,ERR.FLG
:

2958

CIMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-B0 12:16

J_ 9
PAGE 126

6209 .ML4

22-Dec~1980 09:24:31

2%}? :
6212 ;

22-Dec-1980 09:21:22
3018

routine WRT_ER (TST_PAT,

4214 ;
6215 ;

3020
3021

!++

“:%}g M

338%‘§

4220 ;
6221 ;
&222 ;

3026
3027
3028

!
!
!

3036
3031
3032

!
!
!

6213 ;

25}9 M

4223 ;

4224 ;
4225 ;
4226 ;

4227 ;

4228 ;
4229 ;

4230 ;
2%;; :
4239 017640
42640 017644
4241 017650
42642
4243
4264
4245
42646

017652
017654
017656
017660
017664

42647 017670

42648 017674
4249 017700
4250 017702
252} 017706

4253
2523
4260

SEQ 0113

3019

338%

3029

3033

3034
3035

3036
3037
004167
016600
006300

006300
006300
010001
016100
056600
046100
016102
050002
010277
000207

index)

begin

TOPS=-20 Bliss=16 Vv2(212)

PA:<NEALE>BLIML.BLI.2 (21)

: novalue =

: FUNCTJONAL DESCRIPTION:
LOADS THE ERROR REGISTER WITH A DATA PATTERN GENERATED BY THE MACRC 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 INFORMATION.

MLER = WRT_MASK;
end;
164200
000010

013156
000012

013160
013162

173326

!LOAD GENERATE WRT_MASK PATTERN INTO MLER

WRT.ER: JSR
MOV
ASL

R1,S$SAVE?
10(SP) RO
RO

ASL
ASL
MOV
MOV
BIS

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

MOV
BIS
MOV

M. .REG+6(R1)
,R2
RO.R2
R2,aML .REG+60

8IC

RTS

;
; INDEX,«

; TST.PAT,s

ML .REG+4(R1)
RO

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

3018
3036

H
3 words

3018

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODIMs SECTION

MACRO M1113

22-DEC-80 12:16

K_9
PAGE 127

H, T

09:24:31
25-00c-1980
22-Dec-1980 09:21:22
routine RD_ER (TST_PAT,
begin

index, ERR_FLG)

: novalue =

L2 22

! FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE
ERROR REGISTER WITH
008,2000,%0,% 00,0,

THE MASKED DATA PATTERN

GENERATED BY THE MACRO ‘WRT MASK'.
IF THE COMPARE IS NOT EQUAL THEN

THE FORMAL PARAMETER °'ERR FLG'

eSSI“D A ONE TO INDICATE THE

FORMAL PARAMETERS:

TST_PAT

DATK PATTERN TO BE MASKED AND

B 00 % %9080 0; %8 %00 0,00009: 00,2090

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

INDEX
USED BY THE MACRO WRT MASK TO

SELECT THE CURRENT REBISTERS ADDRESS.

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

C(NTAINS 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 GENERATED

WRT _MASK DATA PATTERN THUS ALLOWING

CALCER TO PRINT FAILING GOOD DATA.

ggegsrages

Vo Bg By 0y e 0380000

SEQ 0114

RD 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 LOADED WITH GOOD

AND BAD REGISTER DATA

TOPS-20 Bliss-16 v2(212)
PA:<NEALE>BL3M 4.8LI.2 (22)

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

L_9

PAGE 128

JMLSG

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

4319 ;

.ERR_FLG = ZERO;

.WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

SEE

82 g
4356 020014
4357

310(sP)

b b
—d
b \J omd

' ERR.FLG

12(SP) ,RO
RO
RO
RO
RO,R1

§S 33233
22 go
NURSE 22=R
prd

R1,$SAVE2

RD.ER:

-t ad

4353 017776
4354 020004
4355 020006

'READ THE REG FOR WRT_MASK

'SET ERROR FLAG IF NEQ

S,k Qb

4345 017740
436 017744
4347 017750
4348 017754
4349 017756
4350 017762
4351 017766
4352 017772

TOPS-20 Bliss=16 Vv2(212)
PA: NEALE>BLIM 4.8BLI.2 (22)

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

WwT _ DATA = WRT _MASK;
RD_DATA = .MLER or .IGNORE:

Kk
64344 01

SEQ 0115

ML.REG+2(R1) ,RO
14(SP) ,RO
ML.REG+4(R1) RO
H..RSG%(RU .R2
RO.R
R2.WT.DATA
M.REG+60,R2

INDEX,»

VST.PAT,«

3092

3093

ML.REG+6(RT)
,R2

R2.RD.DATA
*I.DAIA.RD.DATA

173124
000010

3038

1%:

RTS

#1,310(SP)
PC

; Routine Size:
35 words
; Maximum stack depth per

: *,ERR.FLG

invocation:

3 words

3038

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

22-DEC-80 12:16

Mmoo
PAGE 129

SEQ 0116

IBIRIREI2S

§§§§§§§§§ WWWWWWWWWWWWWWWWW§
b
ad wd
b
b
b
d

OCOOOOOO

b
d
b e
b e
b
d
-

b md

B¢

50002

§O
S

0y
Ga
00

[« QS R R
e P e
e T X
N
ONOMWVMSAUWN=O

00000908,
9,%e

0900
0000,

4393
4397 020016
4398 020022
4399 020026
4400
4401 020032
4402

(=]
N

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

010277

routine WRT_DA (TST_PAT,

index)

begin

TOPS-20 Bliss~16 v2(212)
PA: NEALE>BLIM 4.BLI.2 (23)

: novalue =

144

FUNCTIONAL DESCRIPTION:

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

l
l
l

FORMAL PARAMETERS:

TST_PAT

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

CLR“ENT DATA PATTERN TO BE LOADED IN THE REGISTER.
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION.

[
l

FlDA WRT_MASK
.

'!LOAD MLDA WITH GENERATED WRT_MASK PAJTERN

164022
000010

WRT.DA: JSR
MOV

013156
000012

ASL
ASL
MOV
MOV
BIS

013162

MGV

013160

173120

ASL

R1,$SAVE?2
10(SP) ,RO

:
; INDEX,%

RO
RO
RO.R1
!Ié.RE +2(R1) ,RO
12(SP) ,RO

; TST.PAT,»

BIC

ML .REG+4(R1) RO

8IS

MOV
RTS

3099
3117

H..RSG%(RI),RZ
RZ ML .REG+30

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

3 words

3099

chuso ML-11 LOGIC TEST

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

MISCELLANEQUS CODING SECTION
20 MLS

25-0ec~1980 09:24:31

22%% :
6623 ;

routine RD_DA (TST_PAT, index, ERR_FLG)

;
;
;
;
;
;
;

3121
3122
%153
126
3125
3126
3127

'++
! FUNCTIONAL DESCRIPTION:
!
!
COMPARES THE CONTENTS OF THE
!
DESIRED SECTOR ADDRESS REGISTER
!
WITH THE MASKED DATA PATTEFN

GENERATED BY THE MACRO 'WRT_MASK'

3%
4435 ;
4436 ;

3130
3131
313%

!
!
!

IF THE COMPARE IS NOT EQUAL THEN
THE FORMAL PARAMETER 'ERR FLG' IS

4425
4426
427
4428
44629
&30
4431

22%% :

3120

%}%g

4437
4438
4439
4440
L4641

;
;
;
;

L4643
4444
4445
6446
6447

;
;
;
;
;

L4449
4450
4451
4452

;
;
;
;

3145
3146
3147
3148

4454 ;
4455 ;

3150
3151

4442

4448 ;

4453 ;

44656 ;
L4457 ;
4458 ;
j

22~-Dec-1980 09:21:22
3119

424 ;

313
3134
3135
3136
3137

3138

3139
3140
3141
3142
3143

3144

3149
3152
3153
3154

4459 ;

3155

4461 ;

3157

4460 ;

4462 ;
4463 ;

L4464 ;
4465
4466
L467
4468
4469
4470

3156

3158
3159

3160

;
;
;
;
:

3161
3162
3163
31664
3165
3166

4474 ;

3170

L7 ;
4472 ;
4473 ;

SEQ 0117

3167
3168
3169

begin

!
!
!
!
!

: novalue =

ASSIGNED A ONE TO INDICATE THE
ERROR

FORMAL PARAMETERS:
TST _PAT

DATK PATTERN TO BE MASKED AND

!
!
!
!
!

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST
INDEX
USED BY THE MACRO WRT MASK TO

SELECT THE CURRENT REGISTERS ADDRESS,

!
!
!
!

FORCED Hl, FORCED LO AND DON'T CARE
MASK INFORMAT
JON

!
!

OF THE CALLERS ERROR FLG TO ENABLE THE
CALLER TO EXAMINE THE ERROR STATUS

ERR FLG

!
!
!

CONTAINS THE ADDRESS (PASSED BY REF)

OF THE ROUTINE CALL.
IMPLICIT INPUTS:
WT _DATA

BGETS LOADED WITH THE GENERATED

WRT _MASK DATA PATTERN THUS ALLOWING

CALCER TO PRINT FAILING GOOD DATA.

!
!

RD_DATA

!
!
!
!
!
!

TOPS=20 Bliss=16 Vv2(212)

PA:<NEALE>BLIML.BLI.2 (24)

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

IMPLICIT OQUTPUTS:
GLOBAL LOCATION WR_DATA
AND RD DATA LOADED WITH GOOD

!
!
=

AND BAD REGISTER DATA

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

8 10
PAGE 131

76 MG

SEQ 0118
22-Dec=-1980 09:24:31

zz% :

22-Dec=1980 09:21:22

79 ;

217
g};‘

UT_DKTA = WRT MASK:;
RD_DATA = .MLDA or .IGNORE;

zzgz 3

g};g

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

4485 ;
2238 :

3177
3178

end;

(480 ;
44681 ;

494 020066
4495 020072
4696 020076
4497 020192
4498 020104
4499 020106
4500 020110
4501 020112
4502 020116
4503 020122
4504.020126
4505 020132
4506 020134
4507 020140

004167
005076
016600
006300
006300
006300
010001
016100
056600
046100
9216102
050002
010267
017702

4509 020150
4510 020154

010267
026767
001403

4508 020144

4511 020162
4512 020164
22}2 020172
451S
22}?

4522

056102

012776

000207

.ERR_FLG = ZERO;

TOPS-20 Bliss=16 v2(212)

PA: NEALE>BLIM 4.BLI.2 (24)

'CLEAR THE ERROR FLAG

ISAVE THE DATA WRITTEN TO THE REGISTER
'READ AND SAVE THE REGISTER
'READ THE REG FOR WRT_MASK

!SET ERROR FLAG IF NEQ

163752
000010
000012

RD.DA:
t

013156
000014
013160
013162
172766
173040

013162

JSR
CLR
MOV
ASL
ASL
ASL
MOV
MOV
8IS
8IC
MOV
8IS
MOV
MOV

BIS

172754
172746

172746

000001

000010

MOV
cTMP
BEQ
18:

MOV
RTS

R1,$SAVE?
810(SP)
12(SP) ,RO
RO
RO
RO
RO.R1
ML.REG+2(R1)
,RO
14(SP) RO
ML.REG+4(R1)
RO
ML.REG+6(R1)
,R2
RO.R2
R2,.WT.DATA
ML .REG+30,R2

H
;. ERR.FLG
: INDEX,%

;

’

R2.RD.DATA
WT.DATA ,RD.DATA

18
#1.,810(SP)
PC

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

TST.PAT,x

ML.REG+6(RT) ,R2

‘

. *,ERR.FLG

.2
3 words

’

3119
"7
3172

3173
3175

3119

CZMABO ML-11 LOGIC TE S T

MISCELLANEOUS CODING S 3 CTION

MACRO M1113

22-DEC-80 12:16

€.10

PAGE 132

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

% BURRLCLRTBIRTRERZRY

routine WRT_MR (TST_PAT,
begin

) ) d ad

§ WA W U G N N N N NN NN DN NN N

;
i

i
i

novalue =

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

TST_PAT

;

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER.

i
i
i

INDEX
USED BY THE MACRO WRT _MASK TO SELFCT THE CURRENT REGISTERS ADDRESS,

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

w = WRT_MASK.

!LOAD, MLMR WITH GENERATED WRT_MASK PAT TERN

163644
000010

WRT.MR: JSR
MOV

013156

ASL
ASL
MOV
MOV

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

MOV
8IS

ML .REG+6(R1) ,R2
RO.R2

RTS

-—b

TOPS-30 Bliss=16 v2(212)
PA:KNEALE>BL3M 4.8L1.2 (25)

FUNCTIONAL DESCRIPTION:

000012
013160
013162

4566 020242
4567
4568
4569
4574
4575

index)

SEQ 0119

fes

— b wd d D e d el e d wd i d e o

Ve
Ve Be

Bs0000%eBe%0

08, %0%0%0

900,

4526 MG

4558 020210
4559 020212
4560 020214

173032

ASL

8IS
BIC

MOV
: Routine Size:

R1,$SAVE?2
10(SP) RO

:
: INDEX,
=

12(SP) ,RO
ML.REG+4(R1) ,RO

; TST.PAT,»

R2,8ML.REG+120
20 words

; Maximum stack depth per invocation:

3179
3197

3 words

3179

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

D_10
PAGE 133

SEQ 0120

routine RD_MR (TST_PAT,
begin

index, ERR_FLG)

: 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

esngégfo A ONE TO INDICATE THE
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 MASK TO

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.
IMPLICIT INPUTS:
WT_DATA

BETS LOADED WITH THE GENERATED

WRT_MASK DATA PATTERN THUS ALLOWING

CALCER TO PRINT FAILING GOOD DATA.

RD_DATA

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

A ARS NS

PR N

TR PR P

A A
PR P TN

PR TR

N P
PRYA

TRTR

IR PR

PR YRPR
FEPR FE
FEFE
YRFE TR
YRPR
PN

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

IMPLICIT OUTPUTS:
GLOBAL LOCATION WR_DATA

AND RD DATA LOADED WITH GOOD

AND BAD REGISTER DATA

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

MACRO M1113

CZM ABO ML-11 LOGIC TE ST
MISCELLANEOUS CODING S ECTION

22-DEC-80 12:16

E_10
PAGE 134

4633 M4

L6634
4635
4636
L6637
4638
4639
4640
4641
4642

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

;

;
;
;
;
;
;
;
4643 ;
L6446 ;

4648
4652 020244
4653 020250
4654 020254
4655 020260
4656 020262
4657 020264
4658 020266
4659 020270
4660 020274
4661 020300
222% 020
020310
4664 020312
4665 020316
L666 020322
4667 020326

4668 020332

4669 020340
4670 020342
4671 02C350
L672
4673
4674
4679
4680

SEQ 0121

3251
325%
325
3254
3255
3256
3257
3258
3259

.ERR_FLG = ZERO;

.MUPR or .IGNORE;

.WT_DATA neq .RD_DATA then .ERR_FLG = ONE:

!READ THE REG FOR WRT_MASK

!SET ERROR FLAG IF NEQ

0046167
005076
016600
006300
006300
006300
010001
016100
056600
046100
016102
050002
010267
017702
056102
010267

RD.MR:

R1,$SAVE2

a10(sp)

ERR.FLG
,»
INDEX

12(SP) RO
RO
RO
RO
RO.R1

ML.REG+2(R1)
,RO

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

;

172570
000001

000010

18:

3199
3252

3253

TST.PAT,»

ML .REG+6(R1)
,R2
RO.R2
R2.WT.DATA
M.REG+120,R2

3254

R2.RD.DATA
?I.DATA,RD.DATA

3256

ML .REG+6(R15
,R2

026767
001403
012776
000207

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

WT_DATA = WRT MASK;
RD_DATA =

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

#1,310(SP)

;

: Routine Size:
35 words
; Maximum stack depth per

invocation:

3 words

*,ERR.FLG

3199

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

F_10
PAGE 135

H, T

SEQ 0122

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

YN )

routine WRT_PA (TST_PAT,

index)

: novalue =

'4#

TR IETEIE I

FUNCTIONAL DESCRIPTION:

LOADS THE PROM ADDRESS REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK

: f

Lrgr PATE TERS:

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

fwmxm DATA PATTERN TO BE LOADED IN THE REGISTER.

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

0
W

EYE TR FE PN

begin

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

PROM_DIS = ONE;

R
(YA

163466
000040

000010

172710

013156
000012
013160
013162

4722 020422

4723 Q20426
4724 020634

4725
4726
4727
4732
4733

'SET PROM DISABLE BIT

MLPATM= WRT_MASK;
endmom_ms ="ZERO:

000207

172626
000040

ILOAD MLPA WITH GENERATED WRT_MASK PATTERN
iCLEAR PROM DISABLE BIT

WRT.PA: JSR
BISB

MOV
ASL
ASL
ASL
MOV
MOV
BIS
BIC
MOV

10(SP) .RO
RO
RO
RO
RO,R1
ML .REG+2(R1) ,RO
12(SP) ,RO
ML .REG+4
(R1) ,RO
ML .REG+6(R1) .R2

MOV
2{§8

R2.3ML .REG+100
ub aM_ .REG+120

8IS

172640

R1,$SAVE2
#40,aML.REG+;20

:
:

: INDEX,w

3260
3274
3275

: TST.PAT,*

RO.R2

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

;
3 words

3276
3260

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

routine RD_PA (TST_PAT,
begin

6_10
PAGE 136

index, ERR_FLG)

FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE

PROM ADDRESS REGISTER
WITH THE MASKED DATA PATTERN

GENERATED BY THE MACRO ‘WRT_MASK'.

IF THE COMPARE IS NOT EQUAL THEN

THE FORMAL PARAMETER

°'ERR FLG'

esmigfb A ONE TO INDICATE THE

X
R
N

FORMAL PARAMETERS:
TST_PAT

DATK PATTERN TO BE MASKED AND

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

INDEX
USED BY THE MACRO WRT MASK TO

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.

FEFEFE

TRN PR FE

FEFE FE FE FE FE FE TR PR FIE PN

PN PRP

PN P T N FN

iyt

N
R

A TR

SEQ 0123

novalue

fes

4745
4746
4747
4748
4769
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763

22-DEC-B0 12:16

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

4763
4764

4761
4762

N I IR TN TN T IR TR I I
IR YT TP YR

4735 4, T
4736
4737
4738
4739
4740

MACRO M1113

IMPLICIT INPUTS:
WT_DATA

BGETS LOADED WITH THE GENERATED

WRT_MASK DATA PATTERN THUS ALLOWING

CALCER 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
AND RD_DATA LOADED WITH GOOD

AND BAD REGISTER DATA

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BLIM 4.BL].2 (28)

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

H_10
PAGE 137

[}

X
0

22-Dec-1980 09:24: 5
22-Dec-1980 09:21 22
ZERO;

.MLPA or .IGNORE;

.WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

PROM_DIS = 2ERO;
end;

163402
000010
000040
000012

RD PA:

'READ THE REG FOR WRT_MASK

'SET ERROR IF NEQ
iCLEAR THE PROM DISABLE BIT
JSR

R1,$SAVE2

310(sP)

! ERR.FLG

12(SP)
. RO

* INDEX,

#40,3ML .REG+120

172620

RO
RO
RO
RO,R1

K RBRA

376

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

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

ONE;
WT_DATA = WRT _MASK;

J2IJF 2298
NuNa
WND
W
—d A\
b
—

Ve 00 %0 %50, % %, 8,

4, &4

SEQ 0124

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

;

ML.REG+4
(R1) RO
ML .REG+6(R1)
.R2
RO.R2

172370

000001
000040

000010
172516

M.REG+100,R2
ML .REG+6(R1)
,R2
R2.RD.DATA

3333

g;.oArA.no.oArA

1%:

8I(C8
RTS

3335

#1,310(SP)

* ERR.FLG

géb.iflL.REG*l?O

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

3331
3332

TST.PAT,»

R2.WT.DATA

172370

3278

3 words

3337
3278

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

110
PAGE 138

484% H, €A
G843

SEQ 0125

22-Dec-1980 09:24:31

;

22-Dec-1980 09:21:22

L84S ;

3339

routine WRT_E1

4847
4848
4849
4850
4851
(852

3341
3342
g“
344
3345
3346

4+
! FUNCTIONAL DESCRIPTION:
!
LOADS THE ECC CRC WORD REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK
! FORMAL PARAMETERS:
!
TST PAT

3348
3349

!
!

4846 ;

;
;
;
;
;

4853 ;

4854 ;
4855 ;

4856 ;

3340

3367

3350

4857 ;
4858 :
4859 ;

3351
3352
3353

4861 ;
‘8664862 :

3355
3356

4860 ;

3354

4870 020560
(871 020564
4872 020572
4873 020576
4874 020600
4875 020602
4876 020604

004167
152777
016600
006300
006300
006300
010001

4879 020616

100

(877 020606
4878 020612

4880 020622
4881 020626
4882 020630
4883 020634

l;’ggg 020642

4886
4887

begin

index)

: novalue =

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.

ECC_ DM = ONE:
MLET = WRT MASK;

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

ECC_DM = ZERO;
end;
163260
000001
000010

016100
056600

013156
000012

016102
2
010277
142777

013162

000207

(TST_PAT,

TOPS=-20 Bliss=~16 Vv2(212)

PA:<KNEALE>BLIM 4.BL].2 (29)

172502

WRT.E1: JSR
8Is8
MOV
ASL
ASL
ASL
MOV
MOV
BIS

013160

172470
000001

'CLEAR ECC DIAG MODE

8IC

172432

MOV
8IS
MOV
8ICB
RTS

R1,$SAVE?2
#1.,3M .REG+120
10(SP) ,RO
RO
RO
RO
RO.R1

:
:
: INDEX,*

ML.REG+2{R1) RO
12(SP) .RO

M. .REG+6(R1) ,R2
RO.R2
R2.ML .REG+150
#,aML .REG+120

M. REG+4(R1) RO

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

3 words

3339
3353
3354

TST.PAT,«

3355

3339

(ZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

J_10
PAGE 139
22-Dec~1980 09:24:31
22-Dec~-1980 09:21:22

NNPR N
YN

PRP
P P
P

Y P P
Y

PN PN

PR YRPR PRI

TEFE

FEFA

YR YRPR
PRPR
PN PR TR PR
PNTN ¥

H,
routine RD_E1

begin

(TST_PAT,

index, ERR_FLG)

: novalue =

lee

! FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE
ECC CRC WORD REGISTER 1

WITH THE MASKED DATA PATTERN

GENERATED BY THE MACRO ‘WRT_MASK'

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 7O BE MASKED AND

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

INDEX
USED BY THE MACRO WRT _MASK TO

SELECT THE CURRENT REBISTERS ADDRESS,

FORCED HI, FORCED LO AND DON'T CARE
MRSK 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 INPUTS:
WT_DATA

BETS LOADED WITH THE GENERATED

WRT_MASK DATA PATTERN THUS ALLOWING

CALCER TO PRINT FAILING GOOD DATA.

RD _DATA

CETS 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

FE TN

P PR
P

TR P

SEQ 0126

.ERR_FLG = ZERC;

!CLEAP THE ERROR FLAG

TOPS-20 Bliss=16 Vv2(212)
PA:<NEALE>BL3M 4.8BL1.2 (30)

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
4951

MACRO M1113

22-DEC-80 12:16

K10
PAGE 140

:MLé

SEQ 0127
22-Dec~1980 09:24:31

22-Dec~1980 09:21:22

4954 ;
4955 :
2% :

3409
3410
%B

ECC_DM = ONE;
WT_DATA = WRT_MASK;
RD_DATA = .MLE1 or .IGNORE;

%’g‘g :

332}2

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

4960 ;
4961
222.2 :

3415
3416
3417

ECC_DM = ZERO;

004167

163174

4972

152777

000001

4971 020650 005076 000010
020654

4973
00662
4974 020666

4975 020670

4976 020672
4977 020674
4978 020676
4979 020702

016600
006300

000012

RD.E1:

172412

JSR

R1,$SAVE?2

;

3357

BISB

#1.aML.REG+120

;

3409

ASL

CLR

a10(sp)

013156
000014

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

916102

013162

MOV

ML .REG+6(R1)
,R2

4983 020720
4984 0207264
4985 020730

010267
017702
056102

172202
172374
013162

MOV
MOV
BIS

R2.WT.DATA
aML .REG+150,R2
ML .REG+6(R1),R2

4987 020740
4988 0207646
4989 020750

026767
001403
012776

172162

000001

000010

o
BEQ
MOV

WT.DATA,RD.DATA
18
#1._310(SP)

4981 020712

4982 020716

4986 020734

4990 020756
zgz 020764

4993

046100

010267

142777
000207

013160

172170

000001

8IC

8IS

172310

MOV

1$:

BICB
RTS

; Routine Size:

: ERR.FLG

12(SP) ,RO
RO

ASL
MOV
MOV
8IS

4980 020706

'READ THE REG FOR WRT_MASK

'SET ERROR FLAG ]F NEQ
'CLEAR ECC DIAG MODE

MOV
ASL

006300

006300
010001
016100
O

'SET ECC DIAG MODE
'SAVE THE DATA WRITTEN TO THE REGISTER
'READ AND SAVE THE REGISTER

end:

4970 020644

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BLIM 4.BL1.2 (30)

: INDEX,*

34,08

3410

: TST.PAT,»

ML.REG+4(R1).RO

RO.R2

R2.RD.DATA

41 words

3413

: *,ERR.FLG

#1.aML.REG+120
PC

; Maximum stack depth per invocation:

:
;

3 words

3415
3357

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-B0 12:16

L 10
PAGE 141

S002 .M.4&
5003 :
S00S ;

5006 ;

5007 :
SO08 ;
5009

S010 :
5011
5012
5013
5014
5015
5016
S017
5018

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

routire WRT_E2 (TST_PAT,

3420
3421
342%

4+
| FUNCTIONAL DESCRIPTION:

3619

342

:
;
:

3406
3405
3426
3407
3408
3409
3,30
3431

5021 :
5022 :

5024 :
5025 :

5019

:
:

5023 :

5026 :

332%%

LOADS THE ECC CRC WORD
REGISTER 2 WITH A DATA PATTERN
GENERATED BY THE MACRO
WRT_MASK

i
| FORMAL PARAMETERS:
!
!
TST PAT

INDEX
USED BY THE MACRO WRT_MASK

3437
34,38

i
|

ADDRESS, FORCED HI, FORCED
LO AND DON'T CARE MASK

3436

3439

3443

5034 ;

3447

5045 021000

i
i
!

343,
3435

5030 :

5043 020766
5044 020772

3441
3442

3444
3445
3446

006167
152777

012767

TO SELECT THE CURRENT REGISTERS
INFORMATION.

ECC DM =

'SET ECC DIAG MODE

ECC_DM = ZERO;

!CLEAR ECC DIAG MODE

MLE2_MASKio 177700° ;
MLE2 = \m
MLE2 MASK =booooo
Yo'
163052
000001

177700

172274

R1.$SAVE2
#1.aML.REG+120

;
:

3418
3443

10(SPS R

* INDEX,*

3445

#~100 M. REG+166

5047 021012 006300
5048 021014 006300
5049 021016 006300
5050 021020 010001
5051 021022 016100 013156
5052 021026
000012

ASL
ASL
ASL
MOV
MOV
BIS

RO
RO
RO
RO.R1
ML .RE G+2(R1) RO
12(SP

5054 021036

MOV

ML.REG+6(R1) ;R2

046100

5055 021042

050002

016102

013160

013162

172334

WRT.E2: JSR
BISB

IMASK OUT DATA DIAG BITS
ILOAD MLE2 WITK GENERATED WRT_MASK PAT TERN
IRESTORE MLE2 MASK

MOV

5046 021006 016600 000010

5053 021032

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

: novalue =

CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER.

3440

5031 5032 :
5033

index)

begin

;

5027 -

5028 :
5029 ;

SEQ 0128

MOV

BIC

BIS

M. REG+4(R1) RO
RO.R2

: TST.PAT,»

3444,

5072

m10
PAGE 142

010277
00506

142777
000207

172264
172266
000001

172212

22=Dec-1
22-Cec-1
MOV
CLR
BICB
RTS

: Routine Size:

RZ,ML .REG+160
ML.REG+166
#1,@ML .REG+120
31 words

.
.

3
22

TOP
<
PA:
3446

3447
3418

: Maximum stack depth per invocation:

s
2

- o

SEQ 01729

JMLé

RRZE

5057
5058
5059
5060 021
5061 021
5062 021
5063 (21
5064
5065
5066
5071

22-DEC-80 12:16

MISCELLANEOUS CODING SECTION

MACRO M1113

CIMABO ML-11 LOGIC TEST

3 words

(cvuso M.-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

N 10
PAGE 143

SEQ 0130

index, ERR_FLG)

: novalue =

tee

COMPARLS THE CONTENTS OF THE

ECC CRC WORD REGISTER 2

WITH THE MASKED DATA PATTERN
GENERATED BY THE MACRO ‘WRT _MASK'

IF THE COMPARE IS NOT EQUAL THEN

THE FORMAL PARAMETER °'ERR FLG'

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 MASK TO

SELECT THE CURRENT REGISTERS ADDRESS,

FORCED HI,

FORCED LO AND DON'T CARE

MASK INFORMATION.

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

ERR_FLG

eg’sulj?fb A ONE TO INDICATE THE

ettt

me -,

! FUNCTIONAL DESCRIPTION:

CONTAINS THE ADDRESS (PASSED BY REF)

IMPLICIT INPUTS:
WT_DATA

BETS LOADED WITH THE GENERATED

WRT_MASK DATA PATTERN THUS ALLOWING

CALLCER TO PRINT FAILING GOOD DATA.

S am it e

VO NOVNBWNI—-OP0

$oREEEE ARS

3465

routine RD_E2 (TST_PAT,
begin

ettt

VB
WA
BNRRRUNNN
I Icrr 2o BRIc>igc>c><>

—d

d i

oed wtd

b cnd

b and

b e

ond

b d e b b b b b ok

(@]

b —

A N WA ANV AW NN VAN

5100

Vo By 0, 05 %00, 00009 %) 059000909090 %05 0090900 0000 %: % %3:9009090%008200% 0%00000,% 00000300090, 9%5%59,0408,

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

RD_DATA

SETS LOADED WiTH DATA READ FROM THE
REGISTER THUS ALLOWING CALLER
TO PRINT FAILING BAD DATA.

IMPLICIT OQUTPUTS:
GLOBAL LOCATION WR_DATA

AND RD_DATA LOADED WITH GOOD

AND BAD REGISTER DATA

TOPS-20 Bliss~1 6 v2(212)
PA: <NEALE>BL3M 4. 8LI.2 (32)

MACRO M1113

CZM_ABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

-— e b

.WT_DATA neq .RD_DATA then .ERR_FLG = ONE;

5173 021176
5174 021204
5175 021210
5176 021216
5177
5178
5179

!CLEAR ECC DIAG MODE

end;

172172

172232

JSR

R1,$SAVE2

BISB

#1,aML.REG+120

MOV
ASL
ASL
ASL
MOV
MOV

12(SPJ RO
RO
RO
RO
RO.R1
ML .REG+2(R1) RO

CLR

MOV

BIS

RO.R2

BIS

000010
172056

18:

#-100,M_ .REG+166

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

MOV
MOV
171734

a10(sP)

BIS
BIC

MOV

5165 021140

5172 021174

'RESTORE MLE2 MASK

ECC_Dm = ZERO;

5162 0211%3
5163 0211
5164 021134

5166 021144
5167 021146
5168 021152
5169 021156
5170 021162
5171 021166

ISET ERROR FLG IF NEQ

MLE2_MASK = X0°'000000°'.

RD.E2:

MOV
o
BEQ
MOV

CLR
BICB
RTS

; Routine Size:

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BL3IMLS .BLI.2 (32

IREAD THE REG FOR WRT_MASK

ERR.FLG

3449
3502
3503

,»
INDEX

350>

TST.PAT,»

ML .REG+6(R1) .R2

R2.WT.DATA
M .REG+160,R2

3506

ML .REG+6(R15 ,R2

R2.RD.DATA
WT.DATA,RD.DATA
1$
#1.310(SP)

3508
Be % % 0,

5155 021074
5156 021102
5157 021110
5158 021114
5159 021116
5160 021120
5161 021122

NNONv um-os

5154 021070

3508

OANNO

5153 021064

WT_DATA = WRT _MASK;
RD_DATA = .MLE2 or .IGNORE:

i§NNU’|
VSO-J NNt
V1V 1V 1V, 1V 1

;
;
;
;
;
;

SEQ 0131

'CLEAR ERROR FLAG
iSET ECC DIAG MODE
iMASK OUT DATA DIAG BITS
iISAVE THE DATA WRITTEN TO THE REGISTER
TREAD AND SAVE THE REGISTER

.ERR_FLG = ZERO;
ECC
= ONE
MLE 2 MASK = %0'177700°;

-—h
b )

5140
5141
5142
5143
5144
5145
5149

8 11
PAGE 144

22-Dec-1980 09:24:3 1
22-Dec~-1980 09:21:2 2

Oo-fl8§

5130 ;M4
5131
5132
5133 .
3% .
5135 :
5136 :
S137 ;
5138 ;
5139 ;

22-DEC-80 12:16

ML .REG+166
#1.aML.REG+120
PC
46 words

; Maximum stack depth per invocation:

3 words

*,ERR.FLG

351
3512
3449

CIMABO ML-11 LOGIC TEST

MACRO M1113

(Y,]

novalue =

FUNCTIONAL DESCRIPTION:

LOADS THE PROM DATA

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

ACDRESS, FORCED HI,

FORCED

LO AND DON'T CARE MASK

sosfi 3 é"fi

INFORMATION

RW = ONE:

ISET PROM READ WRITE

= WRT_MASK;

iLOAD MLPD WITH GENERATED WRT_MASK PATTERN

T DM = ONE;

index)

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BL3M 4.8LI.2 (33)

l+4

W
W

iSET DATA DIAG MODE

CLK = ONE;

- OVO~NONWNS

v
PON) b b b d b b

NN NN NN NN

098800,y 8y 8, %90, .o.o.o‘;.o...o...c.... LN N NN P N N S N TN TN N TN PN Y

routine WRT_PD (TST_PAT,
begin

000
00001
0000

5233 021246
5234 021250
5235 021252
5236 021254
5237 021260
5238 021264

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

5199

¢ 1N
PAGE 145

BIERRES28IBLR 00

d e

b e

) e

d md

b--

(S LV LV LV, L0, IV, LV, 10, IV, 1V, [V IV ] W 19,

MISCELLANEOUS CODING SECTION

22-DEC~B0 12:16

iDO A DATA CLK

= ZERO;

iCLEAR PROM READ WRITE

_BM = ZERO;

172042
172034

iCLEAR DATA DIAG MODE

WRT.PD: JSR

IS8
BIS8
MOV
ASL
ASL
ASL

MOV
MOV
BIS
8IC

R1,$SAVE2

#100,aML .REG+120
#10,aML.REG+120
10($P) ,RO
RO
RO
RO

RO.R1
ML _REG+2(R1) ,RO
12(SP) ,RO

ML .REG+4(R1)
,RO

;

:
:
* INDEX,*

: TST.PAT,«

7
CZMLABO ML-11 LOG IC TEST

MISCELLANEOUS COD ING S ECTION

5261
52
52643 021270

MACRO M1113

22-DEC-80 12:16

D 11
PAGE 146

SEQ 0133

:MLG

22-De<.~19 09:24:

;
016102
05000
010
15
142777
1462777
000207

MOV

013162
172102
000020
000100
000010

22-Dec=1980 09:21 22
BIS

171764
171756

171750

MOV

BISB
61CB

g%gs

: Routine Size:

T(PS

PA:<

n.
RSG+6(R1)R2
%
aML .REG+230

#20 aM.REG+120
#100,aM .REG+120

;
;

no aML .REG+120
35 words

;
)

; Maximum stack denth per invocation:

3 words

354
3

gg?

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

EN
PAGE 147

AR
TR N

PRNS
T P

PR P

PR PR PRTR
PR YA FE

RS TE

PR NN PRFE

PR TS PR
YA T FE

FE PR PR

PN PR PRPR
PN PRTR

TR PR
PRPR

N TN PN PP Y W

sMLS

SEQ 0134

22-Dec-1980 09:24:31
22-Dec~1980 09:21:22
routine RD_PD (TST_PAT,

begin

index, ERR_FLG)

: novalue =

FUNCTIONAL DESCRIPTION:
COMPARES THE CONTENTS OF THE

PROM DATA REGISTER
WITH THE MASKED DATA PATTERN

GENERATED BY THE MACRO ‘WRT_MASK'
IF THE COMPARE IS NOT EQUAL THEN

THE FCRMAL PARAMETER 'ERR FLG' IS
egg(lgfb A ONE TO INDICATE THE
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 MASK TO

SELECT THE CURRENT REGISTERS ADDRESS,

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

ERR FLG

couTAms 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 GENERATED

WRT_MASK DATA PATTERN THUS ALLOWING

CALLER TO PRINT FAILING GOOD DATA.

RD_DATA

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

IMPLICIT QUTPUTS:
GLOBAL LOCATION WR_DATA
AND RD_DATA LOADED WITH GOOD

AND BAD REGISTER DATA

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

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F 11

PAGE 148

5316 :ML4

SEQ 0135
22-Dec-1980 09:24:31

g%}g :

22-Dec~1980 09:21:22

§319 ;
5320 :

3599
3600

5322 ;
5323

TOPS=-20 Bliss=-16 v2(212)

PA: <NEALE>BLIM 4.8L1.2 (34)

:
.ERR_FLG = ZERO;

'CLEAR ERROR FLG

3602
3603

DAT DM = ONE;
WT_DATA = WRT _MASK;

iSET DATA DIAG MOOE
ISAVE THE DATA WRITTEN TO THE REGISTER

%229 :

3‘3389

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

5328 :

3508

5330 gg%; ;

3610
3611

5321 :

gssgg ;

5329 :

3601

3323?

3609

PROM RW = ONE;

RD_DATA = .MLPD or .IGNORE;

004167

162512

5341 021336
5342 021344

152777
152777

000100
000010

046100

013160

5343 021352
5344 021356
5345 021360
53466 021362
5347 021364
5348 021366
5349 021372

016600 000012
006300
006300
006300
010001
016100 013156
056600 000014

5351 021402

016102
050002

5353 021410 010267
5354 021414 017702

RD.PD:
171730
171722

;

3547

BISB
BISB

#100,@ML.REG+120
#10,aML.REG+120

:
:

3601
3602

310(sP)

MOV

n..gssfis(mmz

171512
171764

MOV
MOV

BIS

026767
001403
012776
142777

171472

000001

000010

gs}g 021462

000207

000010

171612

5364
5365

R1,$SAVE2

CLR

013162

5357 021430
5358 021436
§359 021440
5360 0214646

142777

JSR

BIC

013162

5361 021454

ICLEAR DATA DIAG MODE

12(5P) ,RO
RO
RO
RO
RO.R1
ML .REG+2(R1),R0
14(SP) ,RO

056102

5356 ozugz 010267

'CLEAR PROM READ WRTE

MOV
ASL
ASL
ASL
MOV
MOV
BIS

5355 021420

171500

000100

171620

: INDEX,*

3600
3603

: TST.PAT,

RO,

R2.WT.DATA
a4 .REG+230,R2

ML .REG+6(R1)
,R2

P
BEQ
MOV
BICB

WT.DATA,RD.DATA
13
#1,310(SP)
#100,aML.REG+120

RTS

BICB

* ERR.FLG

ML.REG+4
(R1) ,RO

BIS

MOV

18:

'READ THE REG FOR WRT_MASK

'SET ERROR FLAG IF NEQ

DAT_DM = ZERO;
end:

53,0 021332 005076 000010

5352 021406

IREAD AND SAVE THE REGISTER

PROM RW = ZERO;

5339 021326

5350 021376

'SET PROM READ WRITE

R2.RD.DATA

3604

;

3606

; *,ERR.FLG
:

#10.3ML.REG+120

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

;

3 words

3609
3610

3547

CIM ABO M-11

LOGIC TEST TION

MACRO M1113

MISCELLANEOUS CODING SEC

5371 .mLé
S372
S3
S374 .
5375 :
5376 ;
5377 :
S378 .
5379 ;
5380 ;
5381 ;
5382
5383 .
5384 ;
5385 .
5386 .
5387 :
5388
5389 .
5390 .
5391 ;
5392
5393 .
5394 ;
5395 .
5396 ;
5397
5398
5399 .
5403
5407 021464
5408
5409
5410

22-DEC~80 12:16

6N
PAGE 149

SEQ 0136

22-Dec=-1980 09:24:31
22-Dec-1980 09:21:22
361%
361
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
000207

routine WRT_EL

begin

(TST_PAT,

index)

TOPS~20 Bliss=16 v2(212)
PA:<NEALE>BL3IMLS .BLI.2 (35)

: novalue =

I+4

FUNCTIONAL DESCRIPTION:

DUMMY ROUTINE CALL TO ASSIST IN THE READ

WRITE REGISTER ALGOR]THEM
FORMAL PARAMETERS:
TST_PAT

DATK PATTERN TO BE MASKED AND
COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST

INDEX
USED BY THE MACRC WRT MASK TO

SELECT THE CURRENT REGISTERS ADDRESS,

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

ERROR LOCATION REG IS READ ONLY
r:(t’um;

ena,

WRT.EL:

RTS

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

0 words

3612

CZMABO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H 11

PAGE 150

5418 ;M4

22-Dec=-1980 09:24:31

55‘&8 :
5421

;

22-Dec=1980 09:21:22
3638

routine RD_EL (TST_PAT,

3640
3641

!++

!
!
COMPARES THE CONTENTS OF THE
!
ERROR LOCATION REGISTER
!
WITH THE CONTENTS OF TST_PAT.
!
!
IF THE COMPARE IS NOT EQUAL THEN
!
THE FORMAL PARAMETER 'ERR FLG' IS
!
ASSIGNED A ONt' TO INDICATE THE
!
ERROR
!
! FORMAL PARAMETERS:
!
TST_PAT

5422 :

3639

5425 ;

364

5423 ;
5424 ;
;
:

begin

index, ERR_FLG)

: novalue =

! FUNCTIONAL DESCRIPTION:

5426
5427
5428
5429
5430
5631
5432
5433
5634
5435
5436
5437

;
;
:
.
:
;
:

3648
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654

5439
5440
5441
5442
5443

;
;
;
;
;

3656
3657
3658
3659
3660

!
!
!
!
!

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST

5445
5446
5447
5448

;
;
:
;

3662
3663
3664
3665

!
!
!
!

FORCED H], FORCED LO AND DON'T CARE
MASK INFORMATION.

!
!
!

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

;

5438 ;

5444 ;

5449 ;

56450 ;
5451 ;
5452 ;

5453
5454 ;
5455 ;

5456 ;

5457 ;

5458 ;

3655

3661

3666

3667
3668
3669

!
!
!

3674

3675

!
!

5662
5463
5464
5465

3679
3680
3681
3682

!
!
!
!

3685

;
;
;
:

5466 ;
5467 ;

5468 ;

5469 ;
5470 ;
5471 :

5472 ;

3683
3684

3686
3687
3688

3689

SELECT THE CURRENT REBISTERS ADDRESS.

ERR FLG

CONTAINS THE ADDRESS (PASSED BY REF)

IMPLICIT INPUTS:
WT_DATA

BETS LOADED WITH THE GENERATED

WRT MASK DATA PATTERN THUS ALLOWING

3676
3677

3678

INDEX
USED BY THE MACRO WRT MASK TO

3670
3671
3672

3673

DATR PATTERN TO BE MASKED AND

5459 ;
5460 ;

5461 ;

SEQ 0137

CALLER 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
AND RD DATA LOADED WITH GOOD

!
!--

AND BAD REGISTER DATA

.ERR_FLG = ZERO;

TOPS=-20 Bliss=16 v2(212)

PA:<NEALE>BL3MLS.BLI.Z2 (36)

CZM_ABO ML-11 LOGIC TESTY
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

5476 ;M4

In
PAGE 151

SEQ 0138
2§-Dec-1980 09:26:31

552;2 :

22-Dec-1980 09:21:22

5477

3690

WT_DATA = ,TST_PAT;

54805481 '

3323‘3

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

saaew ;

3695

end;

Ssz;g :

5490 021466
S491 021472
5492 021500
5493 021506
5494 021514
5495 021516
Ssll:g‘?) 021524
5498
5499

3323}

005076
016667
017767
026767
001403
012776
000207

!'SAVE THE DATA WRITTEN TO THE REGISTER

RD_DATA = .MLELC;

000002
000006
171670
171416

171426
171422
1714612

000001

000002

RD.EL:

1$:

TOPS=20 Bliss=16 v2(212)

PA: <NEALE>BLIML .BLI.2 (36)

'READ AND SAVE THE REGISTER

CLR
MOV
MOV
0,
B8EQ
MOV
RTS

!READ REGISTER FOR WT_DATA

82(SP)
6(SP) WT DATA
am__REG+220,RD.DATA
RD.DATA,WT.DATA
1%
#1,82(SP)
PC

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

0 words

: ERR.FLG
: TST.PAT
,»
:
:

3689
3690
3691
3693

: *,ERR.FLG
:

3638

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

5S07 .mLé

J 1
PAGE 152

ggu’\g :
5510 ;

22-DEC-80 12:16

22-Dec~1980 09:21:22

routine WRT_EE

3698
3699
700
701

4+
! FUNCTIONAL DESCRIPTION:
!
OUMMY ROUTINE CALL TO ASSIST IN THE READ

5517 :
5518
5519 ;

3703
3704
3705

!
' FORMAL PARAMETERS:
!
TST_PAT

5521
5522
5523
5524
5525

;
:

3707
3708
3709
3710
3711

!
!
!
!
!

INDEX
USED BY THE MACRO WRT MASK TO

5527 :
5528 :

3713
37146

!
i

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

5512
5513 ;
5514 ;
$51S8 ;

5516 ;

5520 ;

;
:

5526 :
5529 :

5530
5531 .
5532 :
§533 .
5534

5538
SSSSIZ% 021526

5544
ggég

3697

3702

3706

3712

3715

3716
3717
3718
3719
3720

000207

begin

(TST_PAT,

22-Dec~-1980 09:24:31

3696

5511 ;

index)

WRITE REGISTER ALGORITHEM

DATX PATTERN TO BE MASKED AND

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BL3ML.BLI.2 (37)

: novalue =

SEQ 0139

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST

SELECT THE CURRENT REGISTERS ADDRESS,

'—
! ECC ERROR REGISTER IS READ ONLY
return;
end;

WRT.EE: RTS

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

:
0 words

3696

CZM ABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

PAGE 153

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

9553 H, T
routine RD_EE
begin

(TST_PAT,

index, ERR_FLG)

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

: novalue =

le4

FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE
ECC ERROR REGISTER WITH TST_PAT.

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

IF THE COMPARE IS NOT EQUA!. THEN
THE FORMAL PARAMETER "ERR FLG'' IS

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

N R

BGETS LOADED WITH THE TST PAT
THUS ALLOWING CALLER TO PRINT
THE FAILING DATA.

RD 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 LOADED WITH GOOD

AND BAD REGISTER DATA

W Bo 8y 00003 00,y 0090, %5900, 0900000 0p %00, 00840900, 8: %%, 090 % %0909 80000990 % 090800999 %:8¢8, 0,

SEQ 0140

.ERR_FLG = ZERO;
LIST_PAT;

WT_DATA

RD_DATA

-MLEE;

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

'READ AND SAVE THE REGISTER

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

L N
PAGE 154

S609 ML

22-Dec=1980 09:24:31

Ssg}? :

22-Dec-1980 09:21:22

se12

g;;z

5614 :

3775

552;3 :
5623 021530
5624 021534
5625 021542
5626 021550
5627 021556
5628 021560
S629 021566

S631

Ssggg

SEQ 0141

3776
005076
016667
017767
026767
001403
012776
000207

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

TOPS=20 Bliss=16 Vv2(212)

PA:<NEALE>BLIM 4.BL1.2 (38)

'READ MLEE FOR TST_PAT

ISET THE ERROR FLAG IF NEQ

end;
000002
000006
171616
171354

171364
171360
171350

000001

000002

RD.EE:

1$%:

CLR
MOV
MOV
(0, o
8EQ
MOV
RTS

; Routine Size:

82(SP)
6(SP) ,WT _DATA
@ML.REG+210,RD.DATA
RD.DATA ,WT.DATA
18
#1.,82(SP)
PC

16 words

; Maximum stack depth per invocation:

0 words

;. ERR.FLG
: TST.PAT
»
:
:

3769
3770
3771
3773

; *,ERR.FLG
:

3721

CZM_ABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

LJRR
PAGE 155

SEQ 0142

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

5640 .ML6
5641 ;
routine WRT_D1
begin

(TST_PAT,

index)

TOPS=20 Bliss=16 v2(212)
PA: <NEALE>BL3M
4.8L 1.2 (39)

novalue =

‘o4

FUNCTIONAL DESCRIPTION:

LOADS THE DATA DIAG REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK

FMLY!;%TERS

C@ENT DATA PATTERN TO BE LOADED IN THE REGISTER.
1

USED BY THE MACRO WRT _MASK TO SELECT THE CURRENT REGISTERS ADDRESS,

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

DAT DM
= ONE;

ISET DATA DIAG MODE

MLDT = WRT MASK:
DAT_DM
= ZERO;
end;
162250

000010

171472

013156
000012
013160
013162
171500

000010

iLOAD MLD1 WITH GENERATED WRT_MASK PATTERN
'CLEAR DATA DIAG MODE

WRT.D1: JUSR

BIs8

MOV
ASL
ASL
ASL
MOV
MOV
BIS
BIC
MOV
BIS

171422

MOV

g%ga

; Routine Size:

R1,$SAVE

10(SP) ,RO
RO
RO
RO
RO,R1
ML_REG+2(R1) ,RO
12(SP) RO
ML .REG+4 (R1) RO
ML .REG+6(R1) .R2

: INDEX,*

#0.am. Rsc+1zo

;

3777
379N
3792

; TST.PAT,»

RO.R2

R2.aML .REG+170

nb aML.REG+120
26 words

;
.

; Maximum stack depth per invocation:

3 words

3793
3777

CZMABO ML-11 LOG ICT ST
MISCELLANEOUS COD ING
E CTION

MACRO M1113

22-DEC-B0 12:16

N
PAGE 156

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

S693 M4
5694
routine RD_D1

PN PR
TRPN
PN Y

begin

(TST_PAT,

index, ERR_FLG)

: novalue

144

e
B
N
e
e
g
X
R

OOV WO

3807

RPN

£ EEERREELES §Egsess

FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE
DATA DIAG REGISTER 1

WITH THE MASKED DATA PATTERN

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

eSSI“D A ONE TO INDICATE THE
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 MASK TO

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.

3827

IMPLICIT INPUTS:

PRPN
PR P FY PR PR
PRPR
PR
IR PRFE TN
A TN FE FE P
FEFE FEAFE FE FE
YRFE
PR IR
IRIA TR FEFE
PR
IEFETE
AR FENEFEFE
LA
FA

SEQ 0143

WT_DATA

GETS LOADED WITH THE GENERATED

WRT_MASK DATA PATTERN THUS ALLOWING

CALCER 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

AND RD_DATA LOADED WITH GOOD

AND BAD REGISTER DATA

TOPS~20 Bliss=16 v2(212)
PA:<NEALE>BLIM 4.8BL]1.2 (40)

—_——————

MACRO M1113

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODINC SECTION

22-DEC-80 12:16

B 12
PAGE 157

g?-Dec-1980 09:24:31
2-Lec-1980 09:21:22

TOPS-20 Bliss-16 v2(212)
PA: NEALE>BLIMLS .BLI.2 (40)

!CLEAR THE ERROR FLG
!SET DATA DIAG MODE

.ERR_FLG
= ZERO;

DAT DM
= ONE;
ML FUNC = write;

DAT CLK = ONE;

iLOAD MLCS1 WITH WRITE FUNCTION

'SEE IF CALLER IS REG INIT TEST
ISET ERROR FLAG IF NEQ

'DO A DATA (LK

.REG_INIT_FLG IS_SET

then

.
beg1n
CLR_MBUS;
DAT_DM = ONE;

'CLEAR MBUS TO GENERATE INIT DATA

enda,;

WT_DATA = WRT MASK;

'SAVE THE DATA WRITTEN TO THE REGISTER

RD_DATA = .M.D1;

000 %0

IREAD AND SAVE THE REGISTER

.RD_DATA neq .WT_DATA then .ERR_FLG = ONE;

162164

JSR

R1,$SAVE2

;

#10.aM .REG+120

;

CLR

171402

BISB

000061

171245

BISB

000020
171216

042701

RD.D1:

000010

000077

171254

BICB

171360
000001

BISB
g::

a10(sP)

#77.3% _REG

#61.aL _REG

#20.aML.REG+120
?geCINIT.FLG.M

000040 171262
171644

BISB
MOV

#40,aML .REG+40
n.}ggr R1

000007

BI(B

07 aML.REG+40

177770

171240

013156

000014
013160

BIC

171244

000010 171312

000012

FOR WRT_MASK

iCLEAR TRE MBUS

end;

000010

'READ MLD1

'SET ERR_FLG IF NEQ

CLR_MBUS;

000008, %0 0000 0,%0058,0%
0000000, %00,

5749 .mL4
5750 ;

(%)

SEQ 0144

BIs8

18:

aML .REG+40

316
ML .REG+120

ASL
ASL
ASL

RO
RO
RO

MOV

ML .REG+2(R1) ,Ry

MOV
RIS
BIC

;
;
:

;

77770 R

8ISB

MOV

: ERR.FLG

12(SP) ,RO

;

+ INDEX,w

RO.R1

14<sp) RO
ML.REG+4 (R1) ,RO

;

TST.PAT,*

3858
3861

CZMLABO ML-17 LCGIC TEST

MISCELLANEOUS

5804
5805
5806
5807 022012
5808
16
5809
5810
&
5811
58

“COING SEC TION

MACRO M1113

€ 12

PAGE 158

SEQ 0145

JMLS
016102
05000;
010
017767
026767

013162
171102
171314
171072

042;9;
142
150277
000207

1
0
000007
171114

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

ML .REG+6(R1)
,R2

MOV

&ML .REG+170,RD.DATA

BIS
MOV

1721076

171066

518 0350e0 012778 000001 000010
3814 033030 155777
171136 28:
5815 0%2056 016702 1715;8
5816 022062
5817 022066
5818 022074
5819 022100

22-DEC-80 12:16

171120
'
’

;
;

(0,

BEQ

MOV

B8IS8

MoV

8IC
8I(B
B8IS8
RTS

RO.R2
R2,WT.DATA

3862
3864

sg.DATA.HT.DATA

#1.310(SP)
#40,3ML .REG+40

ML,

TOPS
PA:<

* ERR.FLG

DUT R2

” %b.az

#7.3M .REG+40

gg.n.nesuo

75 words
Routine Size:
Maximum stack depth per invocation:

3795

3 words

CZMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

D12
PAGE 159

5830 M4
5831 .

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

&%
o

routinre WRT_D2 (TST_PAT,
begin
!

FUNCTIONAL DESCRIPTION:

!
!

FORMAL PARAMETERS:
TST_PAT

;

index)

novalue =

LOADS THE DATA DIAG REG 2 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK

E}lfi;’fl DATA PATTERN TO BE LOADED IN THE REGISTER.

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

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

DAT DM = ONE.

!SET DAY\ DIAG MODE

&
é

MLD2 = WRT MASK;
DAT_DM = ZERO;

ILOAD *.D2 WITH GENERATED WRT_MASK PATTERN
10V " « DATA DIAG MODE

end;

022120

161736

000010

171160

WRT.D2: JSR

R1,$SAVE2

3869

MOV

10(SP) ,RO

: INDEX,w

3884

BISB
ASL

MOV

ML .RE5+2(R1)
RO

BIS

RO.R2

BIS
BIC
MOV

171176
000010

MOV
BICB
RTS

; Routine Size:

000012
013160
013162
171110

#10.aM.REG+120

ASL

ASL
MOV

013156

5870 022152
5871 022156
5872 022164
5873
5874
5875
5880
5881

TOPS-20 Bliss=16 v2(212)

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

144

022102
5859 022106
5860 022114

SEQ 0146

3883

RO
RO,R1

12(SP) ,RO
ML.REG+4
(R1) RO
ML .REG+6(R1)
R2

; TST.PAT,*

R2. ML .REG+200
#10.aM.REG+120

;

26 words

: Maximum stack depth per invocation:

3 words

3885

3869

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

E 12
PAGE 160
22-Dec~1980 09:24:31
22-Dec-1980 09:21:22

routine RD_D2 (TST_PAT,
begin

index. ERR_FLG)

: novalue =

144

! FUNCTIONAL DESCRIPTION:

COMPARE THE CONTENTS OF THE
DATA DIAG REGISTER 2

WITH THE MASKED DATA PATTERN

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

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

INDEX
USED BY THF MACRO WRT MASK TO

SELECT THE CURRENT REGISTERS ADDRESS,

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

ARA

PR N

PR N PR
T

P PR
P

PR PR P

PR TR P

TR YRIR

YR TRN

TR PRYR

T E YR PR TR PR TR TR

PN X

5883 .mMLé

5887

SEQ 0147

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 GENERATED

WRT_MASK DATA PATTERN THUS ALLOWING

CALCER 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:
GLOBA: LOCATION WR_DATA

AND RD_DATA LOADED WITH GOOD

AND BAD REGISTER DATA

TOPS-20 Bliss~16 V2(212)
PA:<NEALE>BLIMLé.BLI.2 (42)

CZMLABO ML-11 LOGIC TEST
TE
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F 12
PAGE 161

5939 .mMLé4

ZS-Dec-‘l980 :24:31

g&g ;
5942

20-Dec-1980 09:21:22

;

3939

23‘/.2 :

g&%

5943 :
5944, :

5947 :
5948 :
5949 :
5950 :
5951
5952 ;

SEQ 0148

.ERR_FLG = ZERO;

ICLEAR ERROR FLAG

DAT_CLK = ONE;

'DO A DATA CLOCK

3940
3941

DAT DM = ONE;
M. FUNC = write;

iSET DATA DIAG MODE
iLOAD WRITE FUNC TO CS1

3644
3945
3946
3047
3048
3049

if .REG_INIT_FLG IS_SET
then
begin
CLR_MBUS;
DAT DM = ONE
end’

'SEE IF CALLER IS REG INIT TEST
ICLEAR MBUS TO GENERATE INIT DATA

ISAVE THE DATA WRITTEN TO THE REGISTER

5953
595%

3950
3951

WT_DATA = WRT_MASK:

ggssg .

ggSSg

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

5959 :
5960 -

3956
3957

CLR_MBUS;

2322 7

ggg; :

ggg;

3958

RD_DATA = .m.D2:

004167

161652

5971 022176

152777

000010

5973 022212
5974 022220

152777
152777

000061
000020

5970 022172 005076 000010

JSR

R1,$SAVE2

;

3887

171070

BIS8

#10.aML.REG+120

3940

170734
171046

BISB
BISB

#61.aML.REG
#20.aML.REG+120

000077

5975 022226
5976 022

026727
001017

170704

000001

5978 022244

016701

000040

170750

5980 022254
5981 022262

142777 000007
150177 170726

170732

5983 022274
5984 022300
5985 022302
5986 022304
5987 022306
5988 022310

016600 000012
006300
006300
006300
010001
016100 013156

152777

171332

5979 022250 042701 177770

170742

5082 022266 152777 000010 171000

5989 022314
5990 022320

59971 022324

5992 022330

056600
046100

016102

050002

000014
013160

013162

'READ MLDZ2 FR WRT_MASK PATTERN

'SET ERROR FLAG IF NEQ
iCLR MASS BUSS
RD.D2:

142777

5977 022236

IREAD AND SAVE THE REGISTER

end:

5969 022166

5972 022204

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BLIMLG.BLI.2 (42)

CLR

BICB

cMP
BNE

BISB

18:

a10(sp)

#77.3ML.REG

REG. INIT.FLG.#1
18

#40,aML.REG+40

;

3946

3048

B8IC

BI(B
81s8

8Is8

n n REG+40
-REG+40

MOV
ASL
ASL
ASL
MOV
MOV

nb
aML .REG+120

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

;

14(SP) ,RO

: TST.PAT,+

MOV
BIS

ML.REG+4 (R1) ,RO

ML .REG+6(R1) .R2
RO.R2

3941

3942

;

017%6R1

3939

;

MOV

BIS
8IC

DUT,R1

* ERR.FLG

. INDEX,*

3044

3951

CZMLABO ML-11 LOGI C TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

5994

6002 022362

010267 170570
017767 171012 170564
026767 170560 170554
001403
012776 000001 000010
000040

6004 022374

042;9;

177770

6006 022406

150277

6003 022370 016702 171206
142

23% 022612 000207
6009
%1?

6016

SEQ 0149

22-Dec-1980 09:24:31

152777

6005 022400

612
PAGE 162

SMLG

g&?

§997 022332
5998 002336
5999
002344
6000 022352
6001 022354

22-DEC~80 12:16

000007
170602

170624

170606

28:

22-Dec-1980 09:21:22

MOV
MOV
P
BEQ
MOV

R2,WT.DATA
aM( .REG+200,RD . DATA
RD.DATA, W1 .DATA
2
#1,310(SP)

MOV

n.% R2

BICB

#7.3ML.RE3+40

BISB

BIC

BISB

RTS

; Routine Size:

;

TOPS

PA:<

3952
3954

; *,ERR.FLG

#40,aML.REG+40

n77776,R2

R2.aML.REG+40

75 words

; Maximum stack depth per invocation:

;
3 words

3887

CZMABO M -11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H 12
PAGE 163

‘6018 ;M4

22-Dec=1980 09:24:31

%}8 :

22-Dec-1980 09:21:22

6021

;

3959

routine WRT_D3 (TST_PAT,

6023
6024
6025
6026
6027
6028

;
;
:
;
:
;

3961
3962
3063
3064
3065
3066

!++
| FUNCTIONAL DESCRIPTION:
!
|
LOADS THE DATA DIAG
|
REGISTER 3 WITH A DATA PATTERN

6030
6031
6032
6033
6034

:
;
:
;

3068
3969
39070
3971
3972

|
WRT_MASK.
!
| FORMAL PARAMETERS:
!
|
TST _PAT

6036
6037
6038
6039

;
:
:
:

3974
3975
3976
3977

!
|
!
!

6041
6042
6043
6044
6045
6046

;
;
:
;
;
:

3979
3980
3981
3982
3983
3984

6022 :

6035 :

6040 :

6047 :

6048

6049 :

6050 :

6051 :
E’°3§§ :
6060 022414

6061 022620
6062 022626
6063 022434

6064 022440

3960

3067

3973

3978

3085

begin

index)

CURRENT DATA PATTERN TO BE

LOADED IN THE REGISTER.

INDEX
USE BY THE MACRO WRT MASK

TO SELECT THE CURRENT REGISTERS

|
|
|
|
i—

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

MLE2 MASKio 000377 ;

!SET DATA D!AG MODE

3988

MLE2 MSK %0'100300°;

IRESTORE MASK

3989
3990
004167

152777
012767
016600
006300

DAT DM
=

MLE2 =

161424

000010
000377
000010

170646
170706

WRT.D3: JSR

ASL

010001

MOV

6070 022460

6071 022464

046100

016102

013156
013160

013162

R1,$SAVE?2

nc .REG+120
377 n REG+166
10(SP) ,RO

ASL

000012

ICLEAR DATA D1AG MODE.

BIS8
MOV
MOV

6067 022446

006300

016100

'LOAD MLE2 WITH GENERATED WRT_MASK PATTERN

DAT_DM = 2ERO;
end;

ASL

6069 022454

IMASK OUT ECC CRC WORD BITS

HASK

006300

6068 022450

: novalue =

3986

3987

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3MLé.BLI.2 (43)

GENERATED BY THE MACRO

6065 022442
6066 022444

SEQ 0150

RO
RO

ML.REG+2(R1)
RO

BIC

ML .REG+4(R1)
.RO

MOV

:
;
: INDEX,

RO.R1

MOV

8IS

;

12(SP) ,RO

ML .REG+6(R1)
.82

; TST.PAT,s

3959

3985
3986
3987

CIMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

6073
05000

010¢

170636

6079 022504

142777

000010

6078 032476 012767 100300 170636
6082
6083
6089

SEQ 0151

22-Dec=1980 09:24:31

6077 022472

66“3(1) 022512

112
PAGE 164

MLé

%;‘So

6076 022470

22-DEC~80 12:16

000207

170562

22--Dec=1980 09:21:22
8IS

RO.R2

MOV

W-57500.ML.REG+166

RTS

MOV

8I(8

R2,

ML .REG+160

#10,aML .REG+120

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

;

3988

;

3959

;
3 words

TOPS

PA: <

3939

CIMABO M -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

J 12
PAGE 165
22-Dec-1980 09:24:31
22-Dec=-1980 09:21:2¢

routine RD_D3 (TST_PAT,
begin

index, ERR_FLG)

: novalue =

tee

FUNCTIONAL DESCRIPTION:

COMPARES THE CONTENTS OF THE

DATA DIAG REGISTER 3

WITH THE MASKED DATA PATTERN

GENERATED BY THE MACRO ‘WRT_MASK''.
IF THE COMPARE IS NOT EQUAL THE

FORMAL PARAMETER 'ERR FLG'' IS

gssxefo A ONE TO INDICATE THE

PR
A FE
FE
IRFE
SRPR FE
A
AN S
NS
FEFE PR
A PR
YA FE
P

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 MASK 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
CALLFR TO EXAMINE THE ERROR STATUS
OF THE ROUTINE CALL.
IMPLICIT INPUTS:
WT_DATA

BGETS LOADED WITH THE GENERATED

WRT _MASK DATA PATTERN THUS ALLOWING

CALLCER TO PRINT FAILING GOOD DATA.

P
PR T
PR
N NN
T
A
L
II

80@\‘0\\05\.&'\)
b

b
b

o
b

2p Sp

d
b e

b
b
—

1o Yo Yo o Yo Yo Jo Yo Yo

PRFE

TR FI

NNFIE TN
FE FE

PR PR
N FE TR

PR TN PN 7

H, T

6121

SEQ 0152

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

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

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

K 12
PAGE 166

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

A
X

Ve Ve 0g%s 0008090000 000008%0083% 00,020

6147 ;M6
6

6
6179 022514
6180 022520
6181 022524

6182 022532
6183 022540
6184 022546

6185 022554
0186 022562
6187 022570
6188 022572
6189 022600
6190 022604
6191 022610

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BLIML 4.BL]1.2 (44)

= ZERO;
.ERR_FLG

!CLEAR ERROR FLAG
!SET DATA DIAG MODE

ML FLNC = write;

!LOAD WRITE FUNCTION TO MLCSI
!DO A DATA CLOCK

!SEE IF CALLER IS
REG INIT TEST
!CLEAR MBUS TO GENERATE INIT DATA

MLE2"MASK = Xo'000377°;

DAT bnONE

DAT_CLK = ONE;

.REG_INIT_FLG IS_SET

then

begin

DAT DM
= ’ ONE
end;
WT_DATA = WRT_MASK;

!SAVE THE DATA WRITTEN TO THE REGISTER
!READ AND SAVE THE REGISTER

RD_DATA = .MLE2 or .IGNORE:
it

.WT_DATA neq .RD_DATA then

.ERR_FLG = ONE.

MLE2 MASK = X0'100300°;

CLR _MBUS;
end;

161324

000010
000377 170610

RD.D3:

R1,$SAVE2

BISB
BICB
BISB
BISB

#10,aML.REG+120
#77.aML.REG
#61.aML.REG
#20.aML.REG+120
#40,aML. necvt.o

CLR
MOV

170534
170406
170400
170512

000040

170414

BISB

000007
170372

170376

81(8
8Is8

1703

170776

177770

000010 170444

6196 022636
6197 022640

013156
000014

g{p

MOV

18:

a10(sp)
#377 .M .REG+166

' ERR.FLG

?gs.mn.ns.n

BIC

7[7’976

BISB

nb
am . REG+120

MOV
ASL
ASL
ASL
[ 0)")
MOV
BIS

!READ THE REG FOR WRT_MASK

!CLEAR THE MASS BUS

JSR

000010
000077
000061
oooogg

000012
6198 022642
6199 022644
6200 022650

SEQ 0153

REG+40
@M .REG+40

12(5P),
RO
RO
RO
RO.R1
ML .REG+2(R1) ,RO
14(SP) ,RO

* INDEX,*

;

TST.PAT,»

4054
4057

CZM_ABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

MACRO M31113 22-DEC-80 12:16 PAGE l167

620%

JMLG

620

6205 022654
2660

6207 022664
0%2666
6209 022672

013160
013162

6211 022702
621% 022706
6213 022714
6214 022716
6215 022724
6216 022732
6217 0227640

010
026767
001403
012776
012767
152777
016702

170222
170214

000001
100300
000040
170636

000010
170410
170254

6219 022750
6220 022756

142777
150277

000007
170232

170236

6218 022764

056102

0462702

22221 022762 000207
[4

6223

222%3

22-Dec=1980 09:24:31

J
(0461
016102
05
010267
017702

6210 022676

SEQ 0154

BIC
MOV
8IS
MOV
MOV

170234
170436

013162

177770

22=Dec=1980 09:21:22

8IS

170214

2%:

MOV
cMP
B8EQ
MOV
MOV
81S8
MoV

BIC

8I(CB
BIS8

RTS

; Routine Size:

TOPS

PA:<

ML.REG+4(R1)
RO
ML .REG+6(R1) ,R2
RO.R2
R2.WT.DATA
ML .REG+160 R2

ML .REG+6(R1J,R2

R2.FD.DATA
WT.DATA RD.DATA
23
#1,310(SP)
#-77500,ML .REG+166
#60,3M .REG+40
"l.DgT R2

4058

4060

: % ,ERR.FLG
:

4062

;

3991

0177778 ,R2

#7,ML .REG+40
R2,aML .REG+40

84 words

; Maximum stack depth per invocation:

3 words

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

Mm12
PAGE 168

SEQ 0155

22-Dec-1980 09:24:31
22-Dec=1980 09:21:22
6235 :
6236 ;
6237 :

6238
6239
6240
6241
6242
6243

4065
4066
4067

routine WRT_DS (TST_PAT,
begin

;
;
;
;
;
;

4068
4069
4070
40N
4072
4073

l+e

6245 ;
6246 ;
6247 ;
6248 ;
6249 ;
6250 ;
6251 ;
6252 ;
6253 ;
6254 ;
6255 ;
6256 ;
6257
6258 ;
6259 ;
6260 ;
6264
6268 022764
6269
6270
627

4075
4076
4077
4078
4079
4080
4,081
4082
4083
4084
4085
.36
4087
4088
4089
4090

6244 ;

6276
6277

4074

000207

index)

TOPS=-20 Bliss=16 v2(212)
PA:<KNEALE>BLIMLS .BLI.2 (45)

novalue =

! FUNCTIONAL DESCRIPTION:
!
DUMMY ROUTINE CALL TO ASSIST IN THE READ
i
WRITE REGISTER ALGORITHEM
|

!
!

FORMAL PARAMETERS:
TST_PAT

DATK PATTERN TO BE MASKED AND

!
!

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST

!
!

INDEX
USED BY THE MACRO WRT _MASK T0

!
;

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

SELECT THE CURRENT REGISTERS ADDRESS,

]

DRIVE STATUS REG 1S READ ONLY
return,

end;

WRT.DS:

RTS

; Routine Size:

1 word

; Maximum stack depth per invocation:

4065

0 words

—

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

N 12
PAGE 169

22-Dec~=1980 09:24:31
22-Dec~1980 09:21:22
routine RC_DS (TST_PAT,

begin

index, ERR_FLG)

: novalue =

‘+e

COMPARES THE CONTENTS OF THE
DRIVE STATUS 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

eSSIGfD A ONE TO INDICATE THE

N
LT

T
B
N

COMPARED AGAINST THE CONTENTS
OF THE REGISTER UNDER TEST.

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.

IMPLICIT INPUTS:
WT_DATA

GETS LOADED WITH THE GENERATED

WRT_MASK DATA PATTERM THUS ALLOWING

CALCER 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 LOADED WITH GOOD

b —d
b
b

o
b

D
b md
b
d o

& 8 B NN NN

DATA PATTERN TO BE MASKED AND

INDEX
USED BY THE MACRO WRT MASK TO

4129

—

FORMAL PARAMETERS:

TST_PAT

V.7 .7
VP ¥

b ed e
b

VY Y
Y

b cd

=t b od d b b e d o b
-t
OV
NN
WN=O

- b e

'S Iy Y

! FUNCTIONAL DESCRIPTION:

00009008, %6800 0000%0050, 0800980 %080000%
Ve
o Vg 0o B0 000080005
05 000

OO0 NN
W -0

9000008000000 008;85089800909%,

GRERRRE Gaaaaatt &8 G
e ot

279 M4

SEQ 0156

AND BAD REGISTER DATA

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

]

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC~80 12:16

PAGE 170

S ;ML

22-Dec=1980 09:24:31

63% :

6338 ;

813

4143

)

4144

4145
2}29

WT_DATA = WRT MASK;
RD_DATA = .MLDS or .IGNORE;

6343 :

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

6345 ;

4150

6340 :
&; :

23315’3 ;

4151

6354 022766

004167

6357 023002
6358 023004
6359 023006

006300
006300
006300

.ERR_FLG = ZERO;

6363 023022

010001
016100
056600
046100

161052

RD.DS:

013156
000014
013160

R1,$SAVE2

ASL
ASL
ASL

RO
RO
RO

(LR
MOV

RO,R1
ML .REG+2(R1)
,RO
14(SP) ,RO
ML.REG+6(R1) .R2
RO,
R2.WT.DATA

ML.REG+6(RT)
.R2

BIC

170066

MOV
BIS
MOV

6368 0224k

056102

013142

BIS

170160

6369 023050 010267 170054
6370 023054 026767 170046
6371 023062 001403
6372 023064 012776 000001
6375

ggg?

000207

'READ THE REG FOR WRT_MASK

MOV
170046

000010

18:

MOV
P
BEQ
MOV
RTS

: Routine Size:

a10(spP)
12(SP) ,RO

MOV
MOV
BIS

013162

g;z 023072

iSAVE THE DATA WRITTEN TO THE REGISTER
'READ AND SAVE THE REGISTER

JSR

016102
0
010267

017702

'SET ERROR FLAG IF NEQ

6364 023026
6365 023032
6366 023034

6367

PA:NEALE>BL3IML4.BLI.2 (46)

ICLEAR THE ERROR FLAG

end:

6355 022772 005076 000010
6356 022776 016600 000012

636C 023010
6261 023012
6362 023016

TOPS=20 Bliss~16 v2(212)

22-Dec-1980 09:21:22

6339 :

SEQ 0157

* ERR.FLG
: INDEX,®

4091

4144
4145

; TST.PAT,«

ML.REG+4(R1)
,RO

M _REG+50,R2

4146

R2.RD.DATA
WT.DATA,RD.DATA
s
#1,310(SP)

;

4148

; %, ERR.FLG

35 words

; Maximum stack depth per invocation:

;
3 words

4091

CZJMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

€13

22-DEC-80 12:16

PAGE 171

6384 ;M4
6385 ;

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

6387 ;
6388 ;
6389 ;
6390 ;
6391 ;
6392 :
6393 ;
63%
6395 .
63% ;
6397 ;
6398 ;
6399 ;
6400 ;
6401 ;
6402 ;
6403 ;
6404 ;
6405 ;
6406 ;
6407 ;
6408 ;
6409 ;
6410 ;
6411 ;
64612 ;
6613 ;
6414 ;
6415 ;
6416 ;
6617 ;
6418 ;
6419 ;
6420 ;
6421 ;
6422 ;
6423 ;
6424 ;

4152
415
4154
4155
4156
4157
4158
4159
4160
4161
412%
41
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
6182
4183
4184
4185
4186
4187
4188
4189

6426 ;
6427 ;
6428 ;

4191
4192
4193

6430 ;
6431 ;
6432 ;

4195
4196
4197

6434 ;

4199

6425 ;

6429 ;

6433 ;

6435 ;
6436 ;
6437 ;
6438 ;

4190

4194

4198

4200
4201
4202
4203

routine WkT_REG (TST_PAT, REG_SEL, index)
begin

SEQ 0158

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

: novalue =

les
! FINCTIONAL DESCRIPTION:
!
A ROUTINE TO SELECTIVELY
!
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

INDEX
!
LOADED WITH THE MmL_REG INDEX
!
SELECT NUMBER OF TRE REGISTER
!
BEING TESTED
!
! SIDE EFFE(CTS:'
!
WHEN A WRITE REGISTER ROUTINE 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
.
'SELECT THE WRITE REGISTER ROUTINE CALL
set
o]l

:
WRT_CS1

.index = 0);

'!CALL ROUTINE TO LOAD MLCS?

.index = 6);

!CALL ROUTINE TO LOAD MLER

WRT_DA (.TST_PAT, .index = 3);

!CALL ROUTINE TO LOAD MLDA

31 :
WRT_MR (.TST_PAT, .index = 10);

!CALL ROUTINE 10 LOAC MUMR

01l :

(.TST_PAT,

WRT_ER (.TST_PAT,

2l :

(4]

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

D_13
PAGE 172
22-Dec=1980 09:24:31
22-Dec-1980 09:21:22

H, €1

.index = 13);

!CALL ROUTINE TO LOAD MLE1

:
WRT_E2 (.TST_PAT,

.index = 14);

!CALL ROUTINE TO LOAD MLE?2

.index = 8);

!CALL ROUT INE T0 LOAD MLPA

(.TST_PAT,

.index = 19);

!CALL ROUT INE T0 LOAD MLPD

(.TST_PAT,

.index = 17);

!CALL ROUT INE TO LOAD MLEE

(.TST_PAT,

.index = 18);

!CALL ROUT INE TO LOAD MLEL

(.TST_PAT,

.index = 5);

!CALL ROUT INE TO LOAD MLDS

(.TST_PAT,

.index = 15);

!CALL ROUT INE TO LOAD MLD1

WRT_D2 (.TST_PAT,

.index = 16);

!CALL ROUT INE

.index = 14);

!CALL ROUT INE T0 LOAD MLE?

6l :

WRT_PA (.TST_PAT,

7] :

WRT_PD

(8 :

WRT_EE

9] :

WRT_EL

€103

WRT_DS

1] :

WRT_D1

[12] :

13] :

ERCERRNERSREN

tes.

WRT_D3 (.TST_PAT,

.REG:JSR
MOV
MOV

023122

TOPS=-20 Bliss=16 Vv2(212)

PA:<NEALE>BL3IMLS .BLI.2 (47)

(.1ST_PAT,

WRT_E1

SEQ 0159

1%:

MOV
ASL
ADD
.WORD
.WORD
.WORD
JWORD
.WORD
.WORD
.WORD

R1,$SAVE?2
10(SP) ,RO
14(SP) ,R1

12(SP) ,R2
R2
18(R2) ,PC
18
18
43-13
5%-183
63-1%
73-1%
83-1%

T0 LOAD MLD2

,*
INDEX
TST.PAT
»
REG.SEL,*

4152

4199
41

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

6495

MACRO M1113

22-DEC-80 12:16

E_13
PAGE 173

SEQ 0160

H, ¥A

gzgg

22-Dec~1980 09:24:31

6498 023140
6499 023142
6500 023144
6501 023146
esog 023150
6503 023152
6504 023154

000174
000212
000230
000246
000
000302
000320

6506

(005010

6505 023156 010146
023160

6507 023162

6508 023164
6509 023170
6510 023172
6511 023176
6512 023200
6513 023202
6514 023206
6515 023210
6516 023212
6517 023216
6518 023220
6519 023224
6520 82333
6521
6522 023234
6523 023236
6524 023242
6525 023244
6526 023266
6527 023252
6528 023254
6529 023260
6530 023262

6531 023264
6532 023270
6533 023272
6534 023276
6535 023300
6536 023302
6537 023306
6538
10
6539
14
6540 023316
6541 023320
6542 023324
6543 %

005046

0046767
000532
010146
012710
011046
004767
000523
010146
012710
011046
004767
000514
010146
012710
011046
004767
505
010146
012710
011046
004767
000476
010146

23:
174272
000006
176432
000003
000012

58:

174732
000015

68:

175300

012710 000016
011046
004767 175470
000467
010146
012710 000010
011046
004767 175036
000460
010146
012710 000023
011046
004767 175666

000451

6566 023336
6547 023342
6548 023344
6549 023350

012710 000021
011046
004767 176156
000442

010146

48:

174572

6544 02

6545 023334

38:

7¢:

98:

108:

22-Dec-1980 09:21:22

.WORD
WORD
WORD
WORD
JWORD
"WORD
.WORD

93-1$
108-1%
113-18
12%-1%
138-1%
143-18
158-1%

MOV

R1,~(SP)

CLR

-(SP)

CLR

JSR
BR
MOV
MOV
MOV
JSR
BR
MOV
MOV
MOV
JSR
BR
MOY
MOV
MOV
JSR
B8R
MOV
MOV
MOV
JSR
B8R
MOV

MOV
MOV
JSR
BR
MOV
MOV
MOV
JSR
B8R
MOV
MOV
MOV
JSR

MOV

MOV
MOV
JSR
B8R

(RO)

PC,WRT.CS1
168
R1,~(SP)
#6_ (RO)
(RO) ,-(sP)
PC,WRT.ER
16$
R1,-(SP)
#3° (RO)
(RO) ,-(SP)
PC.WRT.DA
168
R1,-(SP)
#12, (RO)
(ROS ,~(SP)
PC,WRT.MR
16$
R1,~(SP)
21§ (RO)
(ROS ,=(5P)
PC,WRT.E1
16$
R1,-(SP)
#16, (RO)
(ROS ,~(SP)
PC,WRT.E2
168
R1,-(SP)
#10, (RO)
(ROS ,~(SP)
PC,WRT.PA
16$
R1,-(SP)
#2% . (RO)
(ROS ,~(SP)
PC,WRT.PD
R1,-(SP)

#21_ (RO)
(ROS ,-(SP)
PC WRT.EE
16§

TOPS

PA: <

4192

:
:

4188
4195

;
:

4188
4198

:
:

4188
4201

;
:

4188
4204

:
:

4188
4207

;
;

4188
4210

;

4188

;

4188

;

4213

4216

CZMAB0 ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

6551

6.59

52 010146
S4 012710 000022
011046
004767 176076
000433
010146

023404

000424

023403 010146

6565 023410
6566 023414
6567 023416
6568 023422

012710 000017
011046
004767 176146
000415

65
ozsagg
6571 023432
6572 023434
6573 023440
6576 023442
023444
6576 023450
6577 023452

012710
011046
004767
000406
010146
012710
011046
004767

ggg 023460

000207

6569 023424

6578 023456
6581

ggg;

F 13
PAGE 174

SEQ 0161

22-Dec-1980 09:24:31

;

012710 000005
6561 023376 011046
023400 004767 177360
6563

22-DEC-80 12:16

ggg

6554
6555
6556
6557
6558

MACRO M1113

010146

022626

000020

118:

128:

138:

148:

176442
000016
176736

158:
168:

22-Dec~1980 09:21:22

MOV
MOV
MOV
JSR
BR

MOV

MOV
MOV
JSR
BR

R1,-(SP)
#22, (RO)
(ROS ,-(SP)
PC , WRT.EL
16$

R1,~(SP)

;

4219

;

4188

#5° (RO)
(RO ,-(sP)
PC,WRT.DS
16§

MOV
MOV
JSR
B8R

717, (RO)
(ROS ,~(SP)
PC,WRT.D1
16$

MOV
MOV
JSR
8R
MOV
MOV
MOV
JSR
(WP

#20, (RO)
(ROJ ,~(SP)
PC,WRT.D2
16$
R1,-(SP)
#16, (RO)
(RO ,=(SP)
PC.WRT.D3
(SP)+,(SP)+

MOV

RTS

; Routine Size:

R1,-(SP)

123 words

4188

4225
4188

:
:
:

; Maximum stack depth per invocation:

4222

R1,-(SP)

:
S words

TOPS

PA:<

4228

;

4188
4231
4153
4152

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

G_13
PAGE 175

Y yeres

SEQ 0162
00

22-Dec-1980 0 :24: 31
22-Dec-1980 0 :21: 22
routine RD_REG

begin

(TST_PAT, REG_SEL, ERR_FLG)

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

novalue =

FUNCTIONAL DESCRIPTION:
A ROUTINE TO SELECTIVELY

CALLED ROUTINES WHICH
READ TO INDIVIDUAL ML11
REGISTERS.

FORMAL PARAMETERS:

ERR_FLG

I R

I I

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

E I

SELECT THE WRITE REGISTER
ROUTINE TO CALLED

CASE SELECT EXPRESSION TO

TST_PAT

DATA PATTERN WHICH THE SELECTED
REGISTER WILL BE

TESTED AGAINST

case .REG_SEL from 0 to 13 of

R
IR
RR
R AR
R R

!SELECT THE READ REGISTER ROUTINE CALL

set

ol :

RD_CS1

€1l :

RD_ER

(.TST_PAT, 0.

.ERR_FLG);

!CALL ROOUTINE TO READ MLCS1

(.TST_PAT, 6,

.ERR_FLG);

!CALL ROUTINE TO READ MLER

RD_DA (.TST_PAT, 3,

.ERR_FLG);

!CALL ROUTINE TO READ MLDA

A AR

R R

REG_SEL

CONTAINS THE ADDRESS (PASSED BY REF)

2l :

(3] :

RD_MR (.TST_PAT,

10,

.ERR_FLG):

!CALL ROUTINE TO READ MLMR

13,

.ERR_FLG);

!CALL ROUTINE TO READ MLE1

(5] :
RD_E2 (.TST_PAT, 14, .ERR_FLG);

!CALL ROUTINE TO READ MLEC

4] :

RD_E1

(6] :

RD_PA

(.TST_PAT,

(.TST_PAT, 8,

.ERR_FLG);

!CALL ROUTINE TO READ MLPA

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS C ODING SECTION

MACRO M1113

22-DEC-80 12:16

H 13
PAGE 176

6646 ;MG

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

6647 ;
6649 ;

4287

6651 ;

4289

6650

SEQ 0163

RD_PD (.TST_PAT, 19, .ERR_FLG);

'CALL ROUTINE TO READ MLPD

4290
4291

(8] :
RD_EE (.TST_PAT, 17, .ERR_FLG);

'CALL ROUTINE TO READ MLEE

6655 ;
6656 ;

4293
4294

9] :
RD_EL (.TST_PAT, 18, .ERR_FLG);

'CALL ROUTINE TO READ MLEL

6658 :
6659 ;

4296
4297

10l :
RD_DS (.TST_PAT, 5, .ERR_FLG);

'CALL ROUTINE TO READ MLDS

6661 ;
6662 ;

4299
4300

(11l :
RD_D1 (.TST_PAT, 15, .ERR_FLG);

'CALL ROUTINE TO READ MLD1

6665 ;

4303

£12] :
RD_D2 (.TST_PAT, 16, .ERR_FLG);

'CALL ROUTINE TO READ MLDZ2

6667 ;

4305

(131 :

6652
6653

;

6654 ;

6657 ;
6660 ;

6663 ;
6664 ;
6666 ;

6668 ;
6669 ;
6670 ;
gg;; K

4288

TOPS-20 Bliss=16 v2( 2 2)
PA:<NEALE>BL3H.4 BLI.2 (48)

4292
4295

4298

4301
+~302

4304

4306
4307
4308
4309

tes;

004167
016600

160356
000010

6682 023476
6683 023502
6684 023506
6685 023510
6686 023512
6687 023514
6688 023516
6689 023520
6690 023522
6691 023524
66
526
6693 023530
6694 023532
6695 023534
6696 023536

016602
006302
066207
000034
000050

000012

6697 023540
6698 023542
6699 023544

016601

000014

023510

RD.REG: JSR
MOV

MOV

1$:

000104
000122
000140
000156

000174
000212

000230
000246
000264
000302
000320
010146

'CALL ROUTINE TO READ MLE?

end;

6679 023462
6680 023460

6681 023472

RD_D3 (.TST_PAT, 14, .ERR_FLG);

2$:

MOV
ASL
ADD
.WORD
.WORD
WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.MWORD
MORD
.WORD
.WORD

LWORD
.WORD
MOV

R1,$SAVE?2
10(SP) ,RO

;
: ERR.FLG,*

4235
4267

12(SP) ,R2
R2
1$(R2) .PC
g:n
13
4%3-1%
5%-1%
63-1%
7%-1%
8%-1%
9%-18%
108-1%
118-18
12%3-18
133-1%

; REG.SEL,*

4263

14(SP) ,R1

143-1%
15%-1%
R1,-(SP)

TST.PAT,«

4267

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~B0O 12:16

[ .13
PAGE 177

JMLSG

SEQ 0164

22-Dec-19 80 09:24 : 3
22-Dec-19 80 09:21 : 22

TOPS
PA:<

-(SP)

29'5552§1

173754

000006

168

3s:

R1,=(SP)

#6.~(SP)
RO.=(SP)

174114

000003

PC.RD.ER

16$

R1,-(SP)
#3.~(SP)

A ¥

RC" RS DA

174254

000012

16§

5%:

R1,-(SP)

#12,~(SP)

1746414

000015
174776

000016

R1,-(SP)

:15.-(s§>
JSR

7%:

175200

PC RD.E1

4263
4285

174534

gc RD.PA

RO,-(SP)

R1,-(SP)

p23.-(s§)

175406

PC.RD.PD

108:

175572
11%:

175512

000005

4263
4279

16$

#10.-(sP)

000022

4263
4276

4263
4282

000010

000021

4263
2273

16§

R1,~(SP)
#16,=(SP)

R1,-(SP)

000023

6753 023756
6754 023760
6755 023764

168

6$:

4263
4270

128%:

16§

R1,-(SP)

c21.;<s§>

PC.RD.EE
168
R1,-(SP)

#228,~(SP)

168

R1,-(SP)
#5,-(SP)
RO,-(SP)

4263
4288

4263
42N

4263
4294

4263
4297

CZM_ABO ML-11 LOGIC TES T
MISCELLANEOUS CODING SECTION

MACRO M1113

6757

22-DEC-~80 12:16

J_13

PAGE 178

SEQ 0165

sMLG

2;23

22-Dec-1980 09:24:31

;

6760 023766

004767

6762

0237764

010146

6765 026004

004767

6761 023772 000424

176774

6763 023776 012746 000017
6764 026002 010046

6766 024010
6767 026012
6768 024014
6769 024020
6770 024022
6771 026026
6772 024030
6773 024032
6774 024036

175644

000415
010146
0127646 000020
010046
004767 176140
000406
010146
012746 000016
010046

6775 024040 004767 176450
6776 0264044 062706 000006
g% 024050

000207

6779

148:

158:
168:

JSR

PC,RD.DS

MOV

R1,-(SP)

JSR

PC.RD.D1

MOV
MOV

B8R
MOV
MOV
MOV
JSR
BR
MOV
MOV
MOV
JSR
ADD
RTS

; Routine Size:

g;gg

6786
6787 ;

138:

22-Dec~1980 09:21:22

;

4310

!<BLF/PAGE>

168

16$
#20.-(sP)
RO,~(SP)
PC.RD.D2
168
R1,=(SP)
#16,-(SP)
RO, =-(SP)
R1,-(SP)

PC.RD.D3
#6.SP
PC

124 words

4263

:
:

4263
4306

;

4236

n?.-(sP)
RO,=-(SP)

’

Maximum stack depth per invocation:

:
6 words

TOPS

PA:<

4300

4303

4235

MACRO M1113

CZMABO ML-11 LOGIC TESY

MiSCELLANEOUS CODING SECTION

&789 .mML4
6790 ;
6
6792 :
6796
6800 024052
6801 024056
6802 024060

6803

6804
6805
6810
6811
6812 ;

—_—

6813 ;
6814 ;
6815 ;
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826

;
;
;
;
;
;

.
;

6827 ;

6828
6829
6830 ;
6831 ;
6832 :

6833 ;
6834 .
6835 ;
6836 ;
6837 :
6838 ;
6839 ;
6840 :
6841 ;
6842 ;

22-DEC-80 12:16

K 13
PAGE 179

SEQ 0166

22~-Dec-1980 09:24:31
22-Dec=-1980 09:21:22
4311
004767
104423
000207

BGNMSG (DUMPER);

000004

DUMPER: : JSR

TRAP

RTS

PC .MSDUMPER

;

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

4312
4313
6314
4315
4316
¢317
4318
4219
4320
(321
4322
4323
43264
4325
46326
4327
4328
4329
46330
4331
43
433
6334
4335
4336
4337
4338
4339
4340
(341
4342

TOPS-20 Bliss-16 Vv2(212)
PA: NEALE>BL3IMLS .BLI.2 (49)

!
!
!
!

0 words

FUNCTIONAL DESCRIPTION
UPON COMPLETION OF ERROR MESSAGES
DUMP OUT ALL PERTINENT DRIVE AND
RH REGISTERS

PRINTB (ONE_FMT, PHR_14);

PRINTB (FMT23):
PRINTB (FMT~24, REG_1,

MLCS1,

.MLCS1);

PRINTB (FMT~24. REG_18, MLWC, .MLWC);

!PRINT REGISTER DUMP MESSAGE
!PRINT DUMPER COLUMN HEADINGS
!PRINT OUT THE RH € ML11 REGISTER CONTENTS

PRINTB (FMT-24. REG_19. MLBA. .MLBA):
PRINTB (FMT24. REG_6, MLDA,
.MLDA):

PRINTB (FMT~24. REG-17, m.CS2. .MLCSD);

PRINTB (FMT 24, REG_2, MLDS, .MLDS);
PRINTB (FMT 4. REG_S. MLER, .MLER):

PRINTB (FMT 34.
PRINTB (FMT

REG-5.

MLAS.

.MLAS):

24, REG4.
& MUR

MUR):

PRINTB (rm_%l.. REG_9, MLSN,

.MLSN):

PRINTB (FMT 24 . REG_7,
=
MLDT,

.MLDT):

PRINTB (FMT~04. REG-14, MLEE, .MLEE);
PRINTB (FMT 24. REG_1S, MLEL. .MLEL):
if .LST_DUT_RCou eql 21
then
in
PRINTB (FMT_24, REG_20, MLBAE,
PRINTB (FMT_24, REG_21, ML(CS3,
*

!SEE IF THIS IS A RH70
'IF YES THEN PRINT RH70 REGISTERS
.MLBAE);
.MLCS3);

4311

CZMABO ML-11 LOGIC TEST

22-DEC-80 12:16

L 13

PAGE 180

AR 44

MISCELLANEQOUS CODING SECTION

MACRO M1113

SEQ 0167

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

TOPS=-20 Bliss~-1 6 v2(212)
PA: <NEALE>BLIML ¢ .BLI.2 (49)

ENDMSG;

007662
006016
000002

#PHR. 14 ,~(SP)
NONE
. FMT ,-(SP)

#2,-(SP)
1

005652
000001
167032
167026
010256

005722
000004

167012

:
.

4320
SP'.

#FMT .23 (5P)

1 ,~(SPJ
RO

4321

:
.

SP'.

4322

ML .REG,=(SP)
#REG.1.-(SP)

#FNT.
24 - (SP)
#6,~(SP$
SP.RO
14

aML.REG+10, (SP)

ML.REG+10,~(SP)
#REG.18,~(SP)

SP,»

;

4323

NFMT .24 ~(SP)

#4,-(SPS
14

6879 024176
6880
202

SP,w

;

4324

#REG.19,-(SP)
NFMT .24 ~(SP)

#4,~(SPJ
SP.RO
14

@M .REG+30, (SP)
ML .REG+30,~(SP)

SP,*

4325

MREG.6,~(SP)

#FNT .24 - (SP)
#4,-(SP}

3
58

—b

o OOO0O0=000000—=20

6896 024272
6897 024276

aML.REG+20, (SP)
MLREG+20,~(SP)

;

’

ML .REG+40, (SP)
= (SP)
ML .REG+40,
#REG.17,-(SP)
NFMT .24 ~(SP)

#4,~(SPS

SP'.

CZM_ABO ML-11 LOGIC TESTY

MISCELLANEUUS CODING SECTION

6899
g%

6902

6903

22-DEC-80 12:16

m13
PAGE 181

SEQ 0168

MLG
N

026

024304

6904 024
6905 024312
6906 024316
6907 026322
6908 024
6909

MACRO M1113

024

6910 024
6911
024336
691; 6342
6913
24346
6914 (24352

010600
104414

017716
016746
012746
019746
013746

010600

166712
166706
010266
005722
000004

104414
017716 166672
016766 166666
01%746 010274
012746 005722

6915
0264356 012746 000004
6916 026362 010600
6917 024364

104414

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

MOV

SP,RO

; SP,*

MOV
MOV
MOV
MOV
MOV

ML .REG+S50, (SP)
ML.REG+50,=(SP)
mes.g ~($P)
#FMT. 34 ~(SP)
#6,~(SP}

MOV

SP.RO

TR
MOV
MOV
MOV
MOV

14
@TM__REG+60, (SP)
ML .REG+60,~(SP)
#REG.3. ~(SP)
NFMT .24 ,~(SP)

MOV
MOV

#4,-(SPS
SP.RO

; SP,w

017716 166652
016766 166646
012746 010310
0127646 005722
012746
010600

MOV
MOV
MOV
MOV
MOV
MOV

aML .REG+70, (SP)
ML.REG+70,~(SP)
#REG.S ,~(SP)
#FMT.24 ~(SP)
#4,-(SPS
SP.RO

6925 024416
6926 024422
6927 024426
6928 026432
6929 026436
6930 024442

017716 166652
016766 166646
012766 010302
012746 005722
012746
010600

MOV
MOV
MOV
MOV
MOV
MOV

ML .REG+120, (SP)
ML.REG+120,~(SP)
#REG.& ~(SP)
#FMT .24 ~(SP)
#4,~(SPS
SP.RO

gozw.o,
6933 024452
693% 024456
6935 024462
69
4ebb
6937 024472

017716
016746
012746
012746
012746
O1

166632
166626
010324
005722

MOV
MOV
MOV
MOV
MOV
MOV

aML .REG+130, (SP)
ML.REG+130,~(SP)
WREG.7 ,~(SP)
#FMT.
24 ~(SP)
#4.-(SPS
SP.RO

6939 026476 017716
69540 024502 816746

166612
1

MOV
MOV

ML .REG+140, (SP)
ML .REG+140,~(SP)
WREG.9,~(SP)
MFMT.24 ~(SP)
#4,-(SPS
SP.RO

;

; SP,*

ML .P€G+210, (SP)

6931 0244k

6938 024474

6941
694§

104414

TRAP

12746 010340
019746 005722
034516 012746
024522 010600

MOV
MOV

6546 02‘553 017716 166632

MOV

6952 024554

TRAY

6943
694

024
4512

TRAP

6945 024526

104414

6947 024532
6948 024536
6949 004542
6950 024546
6951 024552

016746 166626
012746 010376
015746 005722
012746
010600
104414

6953 024556 062706

000146

MOV
MOV

TRAP

MOV
MOV
MOV
MOV
MOV

ML .REG+210,=(SP)
#REG.14,~(SP)
#FMT. 24 ~(SP)
#4,-(SPS
SP.RO

ADD

#146,5P

4327

_
4328

; SP,w

6918 024366
6919 024372
6920 024376
6921 0264602
6922 0264406
6923 024412
6924 024414

TOPS
PA:<

4329

: SP,w
4330

; SP,*

4331

; SP,%

: SP,»

4332

4333

MISCELLANEOQUS CODING SECTION

MACRO M1113

N 13
PAGE 182

SEQ 0169

JMLS

6955
6956

22-Dec-19 80
2¢c-Dec-19 80

o
NNNWY

§&&E& o

. REG+220, (SP)
aML
ML .REG+220,~(SP)

6983 024712
6984
6985
6986
6991
6992
6993 ;

4334

#4,~(SP}
SP.RO

SP,*

14
%gT.DUT.REG.IZS

000025

4336

@TM _REG+240,~(SP)
ML .REG+240,~(SP)
mec.go.«sm

4339

NFMT .24 ~(SP)

#4,-(SPS

85
oL
69;§ 8%4 )

6982 024706

TOPS
PA:<

#REG.15,-($P)

0246636

6974
Q24e 2
6975
024¢ 5
6976 0246.2
77 02
6978 024672
6979 024676
6980 024700
6981 024702

: 24 : 31
:21 :22

#FMT .24 ~(SP)

0245
02457
£602
4606
02461
02461

Ss222922

6959 4222

6960
6961
6
6
6964
6965
6966
6967
6968
6969
6970

22-DEC-B0 12:16

CZMLABO ML-11 LOGIC TEST

34RO

;

SP,»

aML .REG+250, (SP)
ML .REG+250,~(SP)
#REG.21,-($P)
MMT .24 -(SP)

005722
000004

#4,~(SP§

000022
000012

14
#22,SP
#12,SP
PC

SP.RO

1%:

ADD

205 words
; Maximum stack depth per invocation:

; Routine Size:

! <BLF /PAGE>

4340

SP,%

4338
4311

52 words

MACRO M1113

CZMABO ML-11 LOGIC TEST
MISCELLANEOQUS CODING SECTION

22-DEC-B0 12:16

B 14
PAGE 183

6995 M4

¢2=Dec~1980 08:2-’.:31

2339 :

6998 ;
6999 ;

SEQ 0170

22-Dec-1980 09:21:22

7000 ;
7001 ;

4345
4346
(347
(4348

!
BGNINIT;
!
INITIALIZATION CODE IS EXECUTED AT THE BEGINNING OF EACH
!
PASS, WHEN POWER DOWN/POWER UP HAS OCCURRED, OR WHEN THE

7004 ;

(357

7002
7003 :

(349
4350

7005
7006 ;
7007 :

7008
7009
7010
7011

(352
4353
4354

!
|

OPERATOR HAS ISSUED;A START, RESTART OR coufuu COMMAND.
DURING INITIALIZATION, THE °GPHARD® MACRO IS USED TO GET

!
!

NUMBER OF UNITS AVAILABLE FOR TESTING IS CONTAINED IN A
HEADER LOCATICN ('LSUNIT®).

P-TABLE INFORMATION FOR THE LOGICAL UNIT UNDER TEST.

;
;
;
;

4355
4356
4357
4358

external

7013 ;
7014 ;
7015 ;

4360
4361
4362

if not READEF
then

7018 ;
7019 ;
7020 ;
7021 ;

4365
4366
4367
L3458

7012 .

4359

778}9 M

23322

7022 :
7023 ;
7024 ;

4369
4370
4371

;8%2 .

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>BLIMLS .BLI.2 (50)

THE

Llocal
OFFSET;

LSUNIT;

)
(EF_CONTINUE)

1
ISKIP INIT CODE IF CONTINUE

begin

!START GPHARDS AT LUN O AND LOAD 'ML_RE6’

if READEF (EF_START)
then
)
begin
ML_LUN = -1;

'SEE IF THIS IS THE VERY FIRST PASS

'THIS IS CATEGORY 1 CODE

i
begin

2%;%

ML_LUN = .ML_LUN + 1;

VINCREMENT LOGICAL UNIT NUMBER

;8%5 :

/;3;‘5

if .ML_LUN geq .LSUNIT then DOCLN.;

!START OVER IF ALL UNITS HAVE BEEN TESTED

29 :

4376

2%%

until (GPHARD (.ML_LUN, PTBL_PTR)) neq 0;

7032 ;

4379

RH_ADD = .((.PTBL_PTR) + 0);

7034 ;

4381

RH_ VEC = . ((.PTBL_PTR) + &);

(384
4385
4386
4387
4388

incr COUNT from 0 to 21 do
!LOAD THE REGISTER ADDRESS FOR THIS UNIT INTO ML_REG
begin
ML_REG [.COUNT, REGISTER_ADD] = .RH_ADD + ,OFFSET;
OFFSET = ,OFFSET + 2;
end;

778::5"(1) s

7033 :
;8%2 :
.

7037 .
7038 ;
7039 ;
7040 ;
7041 ;
7042 :

7043 :

7044 ;
7045 ;

7046 ;
778445 :

7049 :

end

4380

RHCTYP = .((.PTBL_PTR) + 2):

‘Igg%

OFFSET = 0;
'

4$389

4390

4391
4392

else

end

4393
2%8‘5

)
begin
]
if READEF

4396

'REPEAT THE GPHARD UNTIL A O IS RETURNED

!GET BASE RH ADDRESS FOR THIS UNIT

IGET RH TYPE FOR THIS UNIT

'GET RH VECTOR FOR THIS UNIT

YINIT OFF SET COUNT

YIS THIS A NEW PASS

(EF_NEW)

then ML_LUN = -1;

'IF NEW PASS START GPHARDS AT LUN O

MACRO M1113

CZMABO ML-11 LOGIC TESTY

MISCELLANEOUS CODING SECTION

¢ 14
PAGE 184

22-DEC-80 12:16

7051 ;ML
7782
.
7054 ;

SEQ 0171
22-Dec-1980 09:24:31
22-Dec-1980 09:21:22

4397

begin

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

;8%2 :

ggg

MULUN = .ML_LUN + 1:

'IF NOT GET NEXT LUN PTABLE

z,ggg :

228?

'START OVER IF ALL UNITS ARE TESTED

7059
7060
7061
7062
7063
7064

4402
4403
4404
4405
44606
4407

;
:
:
;
:

7065
7066 :

7067 :
7068 :
7069 :

;SQ :

7082 :

7083 :

7084

7085 :
7086 ;

7087 :
7088

7089 :

7090 :

7091 ;

4419
4420
6621

IARRAY INCREMENT

4> = %0'17';

TARRAY 16

LSTCARRSY, 4> = .OP_NUM_ARR;
LSTZBLK<9, 4> = .OP_NUM_ARR

LSTBLK = .LST_BLK or %o’777'

else

end”

ILAST ARRAY

ILAST BLOCK
ICALCULATE ML11 64K MOS RAM PARAMETERS

be?in

DRIVE TYPE
= %0'000111°;

'EXPECTED DRIVE TYPE VALUE

4433

CHIP_SIZ
= 64;

iCHIP SIZE

4431

SYZE = xo'oooooo;

4432

ARR_INC = 10'40003

4437

LSTTBLK<11, 4> = .OPTNUM_ARR:

4438

ARRAY INCREMENT

IARRAY 16
ILAST ARRAY

LST-BLK= .LST_BLK or %o'3777';

4439

7098 ;

222}

if .((.PTBL_PTR) + 2) eql X0'70'

7100 :
7101

4443
4hlely

PRINTB (FMT_17, .ML_LUN);
CLR_MBUS;

7103 :
7104 :

4446
4447

4445

IRAS INCREMENT
FOR 64K RAMS

ARRTM16<11
= Y0%74°;
LSTARR<1{, 4> .0P_NUM_ARR;

7096 :

4440

IWORD COUNT SIZE FOR 64K WORD XFER

nlsmc 20°1000°;

4434

7095 :

7102 :

'WORD COUNT SIZE FOR 16K WORD XFER
IRAS INCREMENT FOR 16K RAMS
iCHIP SIZE

4630

4435
4436

7007 :

'EXPECTED DRIVE TYPE VALUE

ARR_INC = %0'1000°;

4426

4428
4429

ICALCULATE ML11 16K MOS RAM PARAMETERS

W _C_STZE
= %0°140000°;
RASTINC
= %0°'200°;
CHIP SIZ
= 16;

4425

TINIT GOOD BLOCK TO BLOCK ZERO
PINIT ARRAY 16 TO ZERO

TINIT LAST BLOCK TO ZERO

if .((.PTBL_PTR) + 8) IS_SET
then
be?
DRIVE_TYPE = %0°000110°;

ARRTM16<9,

1GET DRIVE NUMBER
IGET OPERATOR NUMBER OF ARRAYS
TINIT LAST ARRAY TO 2ERO

LST_BLK = ZEROES:

'GET PARITY DISABLE FLAG

LST_ARR = ZEROES;

4424

4427

GODO_BLK = ZEROES:
ARR_T6 = 2EROES;

4423

7092 :
7093 :
7094 :

ML BUT = .((.PTBL_PTR) + 10);
OP"NUM ARR = . ((.PTBL_PTR) + 6) =

22}2

4422

7081 :

PAR DIS
= .((.PTBL PTR) + 12):

4412

7079 :

7080 :

end;

4410
41N

4415
4416
4617
4418

7076 :
7077 :
7078 :

end
until (GPMARD (.ML_LUN, PTBL_PTR)) neq 0;

4408
4409

7072 :
7073 :
7074 :
7075

.ML_LUN geq .LSUNIT then DOCLN;

end;

ENDINIT:

ILAST BLOCK

end:

then LST_DUT_REG
= 21 else LST_DUT_REG
= 19;

'TELL OPERATOR WHICH UNIT IS BEING TESTED
ICLEAR MASS BUS

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~80 12:16

nie

nis3

7119 024714
7120 0264

004167
012700

7122 024
7123 024
7124 024732
7125 024736
7126 0264740
7127 024742
7128 026
7129 024754

103001
000207
012700
104447
103061
012767
005267
026767

7121 024724

7130 024762
7131 024764
7132 024766
7133 024772
7136 024774
7135 025000
7136 025004

7137 025006
7138 025014
7139
71640 02

7141 025032
7142 025040
7143 025042
7144 025044
7145 025046

7146 025050

7147 025052
7148 025054
7149 025060

7150 025062
7151 025066
7152 025072

7153 025076
7154 025100
7155 025102
7156 025106
7157 025110
7158 025112
7159 025114
7160 025122

104447

002401
104444
016700
104442
010067
005767
001761

017767
016701
016167
016701

016167

157140
000036

LINIT:

177777
166624
166620

18:
166630
155030

166606

3s:

000004

166556

020127
003761

000426
012700
104447
103003
012767
005267

LSWNIT

JSR
MOV

R1,$SAVE3
#36,R0O

BHIS
RTS
MOV
TRAP
BHIS
MOV
INC
CTMP

1$
PC
#40,R0
47
58
#-1,ML.LWN
ML.LUN
ML.LUN,LSUNIT

BLT
TRAP
MOV
TRAP
MOV
1ST
BEQ

MOV
MOV
MOV
MOV

166546
166536

005001
010100
006300

006300
006300
016703
060203
010360
062702
005201

2s:

164556
164552

164544
164536
000002
164524

.GLOBL

TRAP

000040

48:

MOV
CLR
CLR
MOV
ASL

ASL

ASL
MOV
ADD

166512

013154
000002

‘

000025

000035
177777
166452

58:
166456

63:

D 14
PAGE 185

MOV
ADD
INC

P
BLE
BR
MoV
TRAP
BHIS
MOV
INC

33
44
ML.LUN,RO
42
RO,PTBL.PTR
PTBL.PTR
23

SEQ@ 0172

@PTBL.PTR,RH.ADD
PTBL.PTR R1
2(R1) ,RH.TYP
PTBL.PTR,R?
4(R1) ,RH.VEC
R2
R1
R1,RO
RO

RO
RO
RH.ADD ,R3
R2.R3
R3.ML .REG(RO)
#2.R2
R1
R1.425
43

83
#35.RO
47
63
#=1,ML.LUN
ML.LUN

;
:

4343
4361

’

4365
:
;
:

4368
4372
4374
4377

.
:

4379
4380

4381

; OFFSEY
; COUNT
; COUNT,»

4382
4384
4386

; OFFSET,*
; =, OFFSET
s COUNT
; COUNT,»

4387
(384

;
:

4365
439%

4398

—

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

E 14

PAGE 186

SEQ 0173

H, ¥A

Q“

22-Dec~1980 09:24:31

7165 055152 026767
7166 025134
002401

166446

7168 835140 016700

166434

7170 025146 010067

164404

7172 025156
7173 025160
7174 025166
7S 025175
7176 025176
7177 025204
7178 025210

164372
000014
164360
000012
164346

7167 025136

104444

7169

10444

055144

nn 055152

7179 025214

7180 025216
7181 025222
7182 025226
7183 055232
7184 025236
7185 025242
7186 0252646
7187 025254
7188 025256
7189 025264
7190 025272
7191 025300
7192 025306
7193 025314
7194 025322

7195 025326

7196 025330

005767

001761
016701
016167
016701
016167
016701
016103
005303

010367
005067
005067
005067
005067
016701
026127
001054
012767
012767
012767
012767
012767
(52767
016703
000303

78:

164374
166376

164336
164336
164342
164340
164330
164310
000010 000001
000110
140000
000200
000020
001000
017000
164232

165646
165630
165624
164262
164246
164252

7201 025354

00030

7203 025360
7204 025364
7205 025372
7206 025376

042703
042767
050367
052767

7200 025350 016703
7202 025356 00630

7207 025404 000461
012767
7209 025414 005067
7210 025420 012767
7211 025426
012767
7212 025434
012767
7213 025442 042767
7214 025450 052767
7215 025456 016703
000303

000111
165502
001000
000100
004000
074000

164076

4400

MOV

ML .LUN,RO

;

4403

;

4407

;

4408

;

4409

;

4410
4411
4412
4413,
4415

TRAP
TRAP

BEQ
MOV
MOV
MOV
MOV
MOV
MOV
DEC

MOV
CLR
CLR
CLR
CLR
MOV
cMP
BNE
MOV
MOV
MOV
MOV
MOV
8IS
MOV

ASL
164232

164204

160777
017000
184174
000777

;

SWB

303

042703
160777
042767 017000
050367
- 164226

ML.LUN,LSUNIT
7

8s:

H
BIC
Bls

MOV

SWAB

ASL
164200
164166

165516 93:
165476
164134
164120
164124
164116

TOPS

PA:<

0y o
BLT
MOV

164400

7197 025332
7198 025336
7199 025344

7216 025462

154656

22-Dec-1980 09:21:22

RO,PTBL.PTR

PTBL.PTR

63
PTBL.PTR,R1
14(R1) ,PAR.DIS
PTBL.PTR,R1
12(R1) ,m(.puT
PTBL.P?R,R1
6(R1) ,R3
R3

R3.0P.NUM.ARR
GOOD . BLK
ARR. 16
LST.ARR
LST.BLK
PTBL.PTR,R1
10(R1) .4
9
#110,DRIVE. TYPE
#-40000,W.C.SIZE
#200,RAS . INC
#20,CHIP.SIZ
#1000, ARR
. INC
#17000,ARR. 16
OP.NUM.ARR.R3
R3

;
:
;
;
:
:
;

4418
441
442
4421
442
442
4424

#160777.R3
#17000,(ST.ARR
R3,LST.ARR

0P .NUM.ARR ,R3
R3

;

4425

4426

;

4436

BIC
BIC
BIS
8IS

#160777.R3
#17000,LST.BLK
R3,LST.BLK
N77P,LST.BLK

SWAB

B8R
MOV
CLR
MOV
MOV
MOV
BIC
BIS
MOV

108
#111,DRIVE. TYPE
W.C.SIZE
#1000,
RAS
. INC
#100,CHIP.SI2
#4000 ARR
. INC
#76000,ARR. 16
#60000.ARR
. 16
OP .NUM.ARR.R3

:
:
:
:
;
:
:

4415
4430
4431
4432
4433
4434
4435

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

F 14

22-DEC-80 12:16

PAGE 187

SEQ 0174

22-Dec-1980 09: 24 : 3
22-Dec-1980 09: 21 :22

~-s

3% §O
3

3 77

164072

TOPS
<
PA:

(7.
) -]
-~

odvlods
e Tvdvded

H, T

-ARR

4437

164034
164022

000070

4438

:
108

4441

118
#25,LST.DUT.REG

3
<

b
—

165332

~n —

165342

128
#23,LST.DUT
.REG

44643

ML.LUN,~(SP)

NEMT.
17 =(SP)
#2,-(SPS

RO
14
#40,aML
. REG+40

;

165364

7253 025656
7254
7255
7256
7261
7262
7266
7270 025660
7271 025664

ML .DUT ,R3

2177770
R3

#7., ML .REG+40

165346

72
7252 025652

RTS

R3,aML .REG+40
#6.SP

177030

LSINIT::JSR

TRAP

4363
4343

: Routine Size:
242 words
. Maximum stack depth per invocation:

004767
104411

SP,w

PC.LINIT
1"

7 words

4445

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

7273
;%;g
7276 025666

7277

G 14
PAGE 188

SEQ 0175

MLG
:
000207

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

7278

: Routine Size:

77%872

7285
7286 ;

22-DEC-~B0 12:16

& words

; Maximum stack depth per invocation:

4448

' <BLF/PAGE>

0 words

TOPS
PA: <

CZM_ABO M_-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H 14

PAGE 189

SEQ 0176
22-Dec-1980 09:24:31
22-Dec~-1980 09:21:22

TOPS=-20 Bliss=16 Vv2(212)
PA:<NEALE>BLIML¢ .BLI.2 (51)

]

BGNTST;
144

FETR
TEYE
A
TEIETE

VNV

LA TEAIAIE IR TEA

WN=O

CKRRRRR PR DR 68

7307

N PR FIE TE

PRFI PR
NPN T PN
PN T

N Y

TEST NUMBER:

TST 1

g TEST NAME:

MASS BUS READY TEST

g TEST DESCRIPTION:

TEST THE RH CONTROLLER FOR EXISTANCE

BY:

i
i
i
H
‘

WRITTING ONES TO THE RH (S. REGISTER
RESULTING IN A MASS BUS CLEAR

THEN READ THE (S2 REGISTER FOR CLEAR DATA

]

i
CLR_MBUS

MLCS1 = ZEROES:
MLCS2 = 20'177770°;

'CLEAR OUT CS1
'LOAD CS2 WITH ONES

if ((.MLCS2) and (%0'177670')) neq ZERO
then

!SEE IF CS2 GOT CLEARED

DELAY (ONE_US);

gl
ERRDF (119, RH_ERROR, DUMPER);

AND FORCE A MBUS CLEAR

'REPORT ERROR IF NOT CLEARED

PRINTB (THR_FMT, REG_17, FNC_23, PHR_4,;
DODU (.ML_LON);

DOCLN;
end;

ENDTST;
_

000040

165312

000007

165274

165674
177770
165270

1652264
177770
000001

165256

$T1:

My
ST

R1,~(SP)
-($P)

MOV
BIC

n..(#r R1
0177776 .R1

BISB

BICB
BISB

CLR
MOV
MOV

44647

#40.aML.REG+40

4450

#7.aML.REG+40

R1.aML.REG+40

aM .REG
#-10,aML .REG+40
”1.,R0

D ox,$3TMP2

4469
4470
4N

CZMABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

MACRO M1113

7343
773322
7346 025742
7347 025764

7348
0257
7349 025752
7350
025754
7351 025756
7352 025760
7353 025762
7354 Q25764
7355
025772
7356
025776
7357
776
7358 026000
7360 026004

012746

007454

7362 026014

0127646

010420

7364 026026
7365 026030
7366 026032
7367 026034
7368 0260640
7369 026042
7370 026044

012766
010600
104414
016700
104451
104444
062706

000004

7372 026052
;33;2 026054

012601
000207

024052

18:

154146

28:
3s:

177670

165222

4$:

BEQ
MoV
BEQ
CLR
DEC
BNE
DEC
B8R
BIT
B8EQ
TRAP
.WORD
.WORD

33
(SP)
R1
P 3
RO
18
#-110, ML .REG+40
S$
55
167
RH.ERROR

MOV

MPHR .4, ~(SP)

MoV

#MREG.17,~(SP)

.WORD

MCY

7363 026020

MOV

012746

7371 026050 005726

006034

165540
000012

7375

7396 026066
7395 026070
7396

5$:

X3
LSDLY R

006000

103773
000207

177606

T1::
18:

MOV
RTS

(SP)+ R1
PC

4473

44761

4477

; SP,»

(SP)+

59 woras

JSR
TRAP

PC.$T1
66

8LO
RTS

18
PC

ROR

: SSTMP?2

#THR.FMT ,~(SP)

; Maximum stack depth per invocation:

004767
104466

; SSTMP
: $STMPY

#ENC. 25.-(sP)

#6,-(SP)
SP,RO
14
ML.LUN,RO
51
44
#2,SP

TOPS
PA: <

; ¢, $8TMP1

DUMPER

MOV
MOV
TRAP
MOV
TRAP
TRAP
ADD

; Routine Size:

gg?

7393 026064

SEQ 0177

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

7361 026010 012746 010242

7382
7386
7390 026056
7391 026056
7392 026062

1 %
PAGE 190

sMLS
;
001410
016701
001403
005016
005301
001375
005300
000767
Q32777
001426
104455
000167
011060

7359 026002

22-DEC-80 12:16

4478

4475

4480

4447

7 words

CZM_ABO M -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-~80 12:16

J 14
PAGE 191

7358
,7,288

sMLé
:

7601
;28;

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

7408
7609 ;

4483

! <BLF/PAGE>

SEQ 0178

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

TOPS
PA:<

MACRO M1173

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

K 14
PAGE 192

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

SEQ 0179
TOPS-20 Bliss=16 v2(212)

PA:<NEALE>BL3ML¢ .BLI.2 (52)

BGNTST:
e

TEST MMBER:

| TEST NAME:

TST 2

MASS BUS HANDSHAKE TEST

i TEST DESCRIPTION:

TEST MASS BUS TO UNIBUS COMMUMICATIONS
VIA THE CONTROL BUS BY:

PR IR TRIR IR
IRIR T

H, X

READING RH AND DRIVE REGISTERS AND
TEST THE NON EXISTANT DRIVE 't&D°
BIT

local

SAVE,
DODU_FLG;

incr bze?_s&

from 0 to .LST_DUT_REG do

'TEST ALL PRESENT RHM REGISTERS

BGRSUB;

ISTART OF SCOPE LOOP

SAVE = ..ML_REG [.REG_SEL., REGISTER_ADD];

'READ THE REGISTER

;'f‘ .NED IS_SET

'DID READ CAUSE THE NED BIT TO SET

CLR_MBUS.;

ERRDF (120, RH_ERROR, DUMPER):

'REPORT AN ERROR IF SET

PRINTB (FIV_FMT, WRD 62, PHR 5, WRD 12, WRD_52, FNC_6):
PRINTB (FMT 11,

DODU_FLG = ONE;

P FI TN
P PR PR
PR PRFE
N NI FE

' TEMPORARY SAVE LOCATION
IDROP UNIT FLAG

DODU_FLG = ZERO;

PNP

N PN P TR T

PN YN

T T

PN TN

P YN Y

PR T P TN PN

AR NS

(

.ML_REG [.REG_SEL, REGISTERZADDI);

end;

ENDSUB;

end;

it .DODU_FLG IS_SET
then
begin

oogu C.ML_LUN);

DOCLN;
end;

ENDTST;

'END OF SCOPE LOOP

CZMLABO ML-11 LOGIC TEST

MTSCELLANEOUS CODING SECTION

004167
005001
016704
005002
000474
010;88

156020

$T2:

165030
18:

22-DEC-80 12:16

L 164
PAGE 193

JSR

2}.$SAVES

MOV
CLR
BR
MOV
ASL
ASL

kST.DUT.REG.R4

CLR

ASL
MOV

SEQ 0180

DODU.FLG
REG. SEL

REG.SEL
,*

165062

#60
M .REG+40
,
T,RO

165044

#7 .M.REG+40
RO, ML .REG+40

4482
4506
4508

4512

4509
4510

70.R0

,RS
am.REG(R3)

#10000,
3ML . REG+40

165026

*,SAVE

3g
55
170

4512
4514
4517

RH.ERROR
DUMPER
#ENC.6,-(SP)
6

4518

MRD.52,~(SP)
MRD.12.-(SP)
MPHR.S

, = (SP)

MRD .62 ,~(SP)

1V.FMT,-(SP)
‘ SP

:’G-‘J:’63%

mwn

MACRO M1113

013154
004750

.REG(R3), (SP)

4519

T.11,=(SP)

,-(SPS

000002

000001
000022

SP,»

‘RO

SP,

*,DODU.FLG

4520
4516
4521

REG. SEL

4508

DODU.FLG

4526

3s:

REG.SEL
,*

AR 44

CZMABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

752
752
7524
7525 026306
7526 026310
7527 026314
7528 026316
7529 026320
7530
7531
7532
7537
7538
7542
7546 026322
7547 026322

026326

7549 026330
7550 026332
7551 026334
52
7553
7554
7559

MACRO M1113

22-DEC-80 12:16

M 14
PAGE 194

SEQ 0181

‘MLS

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

BNE

165264
58:

MOV
TRAP
TRAP
RTS

ML.LUN,RO
51
44

4529

4482

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

004767

177544

006000
103773

000207

T2::

18:

JSR

TRAP
ROR
8LO
RTS

: Routine Size:

PC.$T2

4531

)

;. Maximum stack depth per invocation:

4534

! <BLF /PAGE>

1S words

66
RO
18

6 words

TOPS
PA:<

0 words

FaS
¢/

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

7563 M4
7564 ;
7565
7566 ;
7567 ;
7568 ;
7569 ;
7570
7571

7572
7573
7574
7575
7576
7577
7578

7579
7580
7581
7582
7583
7584
7585
7586
7587

;

;
.
;
;
:
;
.
;
;
;
.
;
:
:

7380

7590 ;

7591

7592 :

7593
7594 ;
7595 :
7596 ;

7597 ;

7598 ;

7599 ;
7600 ;
7601 ;

7602
7603
7604
7605
7606
7607

;
;
;
;
;
:

4535
4536
4537
4538
4539
4540
4541
6542
4543
4544
4545
4546
4547
4548
4549
4550
4551
4552
4553
4554
4555
4556

SEQ 0182

4559
4560

4561

'+e
! TEST NUMBER:

TST 3

| TEST NAME:

DRIVE PRESENT TEST

i
i
|
!
!

TEST DESCRIPTION:
THIS TEST READS THE DESIREN SECTOR
ADDRESS REGISTER OF THE DRIVE UNDER
TEST, DELAYS 100 US, THEN
READS THE
NED BIT OF MLCS?
IF SET, AN ERROR MESSAGE IS
PRINTED AND THE UNIT IS DROPPED

|
|
i—-

Llocal
DODU_FLG.
SAVE;

(LR FBJS

SAVE
= .MLDA;

'READ A DRIVE REGISTER
!DELAY 1 US

if .NED IS_SET
then

!TEST THE NED BIT

DELAY (ONE_US);

4567

ERRDF

4568
4569
4570
4S71
4572
4573
4574
4575
4576

7610 ;

4579

4578

4580
4581

!DROP UNIT FLAG
!TEMP STORAGE LOCATION

BGNSOR;

4562
4563
4564
4565

4566

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

BGNTST;

¢33% boou_FLG= ZERO

4577

7611 ;
7612 ;

N 14
PAGE 195

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

7608 :
7609 ;

22-DEC-80 12:16

(1, ASYNC. DUMPER):

PRINTB (M FMT, PHR_3);
DODU_FLG = ONE;
end;”

'IF SET THEN REPORT ERROR AND SET DODU_FLG

ENDSUB;
if DODU FLG IS_SET

D(fiun

(.ML_LUN);

DOCIN;

end;
ENDTST;

!DROP THIS UNIT IF DODU IS_SET

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

7618
7619
7620
7624 026336

7625 026342

MACRO M1113

22-DEC-80 12:16

8 15
PAGE 196

SEQ 0183

22-Dec-1980 09: 24 : 31
22-Dec-19 80 09: 21 :22

$713:

155534

164636

4533

R1,$SAVES
-(SP)

18:

TRAP

R3
2

;

BEQ

2s:

,} JR1

p]
LSOLY,R2

;
;

% ,SAVE
*,$$TMP2

;

*,$$TMP1

3s:

CLR

; SSTMP
: SSTMP1

68:

DEC

; $STMP2

#10000,
aML . REG+40

164554

4561
4562

4564

6$
55

4567

1
ASYNC
DUMPER
#PHR.3,~(SP)
W#ONE.FMT ,~(SP)
#2,-(SP)

007422
006016
000002

4558
4559

010000

DODU.FLG

A” 77976.:12
s ABEGe40

#7 .M .REG+40
R2,aML
.RE 5+40
am _REG+30,Ré4

164620

TOPS
PA: 4

4568

;

SP,

; *,DODU.FLG

4569
4566
4570

;

4574

DODU.FLG

4577

7665 026526

7666
7667
7668

78:

TST
RTS

; Routine Size:

4533

+
(SP)

61 words

; Maximum stack depth per invocation:

9 words

CZMABO ML-11 LOGIC TES?

MISCELLANEOUS CODING SECTION

MACRO M1113

c 15
PAGE 197

22-DEC~B0 12:16

7674 :ML4

22-Dec-1980 09:24:31

_7,2;2 :

7685 026530
7686 026534
7687 026536
7688 026540
Z,ggg 026542

22-Dec=-1980 09:21:22

004767
104466
006000
103773
000207

177602

7691

18:

JSR
TRAP
ROR
8LO
RTS

: Routine Size:

;gg;

7698
7699 ;

T3::

PC,.$T3
66
RO

6 words

; Maximum stack denth per invocation:

4582

;

1%
PC

!<BLF/PAGE>

7680
7684 026530

SEQ 0184

0 words

TOPS-20 Bliss=16 Vv2(212)

PA:<NEALE>BL3MLS .BLI.2 (53)

4579

—

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

Ve 0o 05030908, 09% 0, 0,%00,% %9005 35000 % %00
%0 00090 %094 %00,00% % 000000% %0000 030ce%¢%¢%2 038009990080, 9, 09,

sMLS

D 15
PAGE 198

SEQ 0185
22-Dec~-1980 09:24:31
22-Dec-1980 09:21:22

TOPS=-20 Bliss-16 v2(212)
PA: <NEALE>BLIMLS.BLI.Z2 (54)

]

BGNTST;
lee

' TEST NUMBER:
TEST NAME:

TST 4
DRIVE SELECTION TVEST

TEST DESCRIPTION:

THIS TEST TESTS FOR UNIQUE DRIVE SELECTION BY WRITING THE DRIVE

UNDER TEST (DUT) DRIVE NUMBER INTO ITS DSA REG.
THEN WRITING THE DRIVE
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.

!DROP UNIT FLAG
! TEMPORARY SAVE LOCATION

LR_MBUS;

0000 FLG = ZERO;

MLDA = .ML DUT;
SAVE = .MLDA;

!LOAD THIS DRIVES DRIVE NO.

if .SAVE neq .ML_DUT
then

!SEE IF DSA HAS DRIVE NUMBER

!READ THE REGISTER BACK

INTO ITS DSA REG

ERRDF (2, INTER, DUMPER);
!ERROR AND EXIT TEST IF DSA NEQ DRIVE NUM
PRINTB (SIX FMT. PHR 4, WRD 12, FNC_3, WRD_37, WRD_13, REG_6);

PRINTB (FMT_2, - DUT .SAVE, (.mL DUT xor .SAVE)T;

EXIT_TST;
end;

incr DRV_SEL from 0 to 7 do
if .DRV_SEL neq .ML_DUT
then
begin
DRV MM
= .DRV_SEL.

MLDX
= .DRV SELC;
DELAY (ONE_DS);
end;

DRV NUM
= _ML_DUT;

SAVE
= _MLDA;

'WRITE DRV NO OF OTHER DRIVES INTO THEJR RESPECTIVE DSA REG.
!SKIP IF

.DRV_SEL EQL TO THE DRIVE UNDER TEST

!SELECT DRIVE TO BE WRITTEN TO
!WRITE DRIVE SEL NO. INTO ITS DSA REG

!DELAY 1 US

!SELECT THE DUT

!READ ITS DSA REG

(DUT)

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

E 15

PAGE 199

7757 ML

22-Dec~1980 09:24:31

ggg :

7760 ;
7761 :

20-Dec-1980 09:21:22
4635
4636

7762 :

4637

7767 :

L6042

7763 :
7764
7765 :
7766 :
7768

7769

4638
4639
4640
4641
4643

it .SAVE neq .ML_DUT
then

b;gin

4H4% ENDSUB;

7774

4649

77787782:

4653

ENDTST;

004167

155546

7786 026544

7787 026550
7788 026550
7789 026554

4648

4650
4651
4652

005746
104402
152777

7790 026562
7791 026566

016703
042703

7795 026606
7796 026614
7797 026620

016777
017704
020467

7792 026572
7793 026600
7796 026604

7798 026624

142777
150377
005005

001451

if .DODU_FLG IS_SET
then

ll;eo&jjn

7803 026636
7804 026642
7805 026646
7806
026652
7807 025656
7808 025662
7809 026666
7810 026672

010672
024052

012746
012746
012746
012746
012
012
012746
012746

!DROP UNIT IF DODU_FLG IS_SET

(.ML_LUN);

DOCLN;
end;

$T4:

000040

164432

000007
164410

164414

164770
164364
164756

164370

165014
177770

7799 82222.%‘»6 104455
7800
000002
7801 026632
7802 026634

'ERROR AND SET DODU_FLG IS CHANGED

end;

L6045
4646
4647

7775 ¢
7776 :
7777

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>BLIML.BLI.2 (54)

'SEE IF WRITTING 10 OTHER DRIVES CHANGE ITS VALUE

ERRDF (3, ASYNC., DUMPER):
PRINTB (THR_FMT. FNC_3, WRD 37. WRD_14);
PRINTB (FMT-1, .mL_DOT, .SAVE);
DOOU_FLG = ONE;

7770 ;
7771 :
7772

7773 .

SEQ 0186

010316
006436
006700
007750
006426
007454
006100
000007

18:

JSR

TST
TRAP
BISB

R1,$SAVES

-($P)
2
#40,aML.REG+40

;

4581

;
:

4605
4607

MOV
BIC

ML .DUT,R3
#M77770,R3

MOV
MOV
CTMP

ML.DUT,aML .REG+30
@M .REG+30.Ré
R4, ML .DUT

:
: *, SAVE
* SAVE,*

4610
4611
4613

TRAP
.WORD

55
2

;

4616

#REG.6,~(SP)
MRD.15.-(5P)
MRD.37.-(SP)
#FNC.3, < (SP)
MRD.12,~(SP)
#PHR
.4, ~(SP)
#SIX.FMT,=(SP)
#7.-(SP)

;

4617

BICB
BISB
CLR

BEQ

-MORD
.WORD

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#7.aML.REG+40
R3.aML.REG+40
RS

INTER
DUMPER

;

DODU.FLG

4609

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

781

22-DEC-B0 12:16

F 15
PAGE 200

SEQ 0187

JMLG

;31

22-Dec-1980 09:24:31

22-Dec-1980 09:21:22

ms 026676 010600

MOV

SP,RO

; SP,*

7817832702
706
7819
7820
712
7821
7822 ozcm

016716 1646746
010403
041603
040416
050316
010446

MOV
MOV
BIC
BIC
BIS
MOV

ML.DUT, (SP)
R4 .R3
(SP) ,R3
R, (SP)
R3. (SP)
R&,~(SP)

:
* SAVE,
; SAVE,*
: SAVE,*

026

012746

MOV

7827 026736
7828 026740

104414
104463

700

106414

%3 o%grzo 016746
o
0 6726 012746
026

TRAP

1646656
004266

MOV
MOV

78312 026752

7813 026756

020367
001425

7834 026760 010302
7835 026762

042702

7838 027000
7839 027006
7840 027010
7841 027012
7842 027016

010377 164200
012701 000001
001410
016702 153100
001403

7816 026766
7837 026774

7843 02
7844 027022

7845 027026

7846 027026

142777
150277

28:

164624

177770

000007
164214

3s:

48:

005016
005302

5%:

005301

6%:

001375

7847 027030 000767
7848 027032 005203

78:

7849 027034 020327 000007
7850 027040 003744
7851 027042 016703 164534
7852

027046

042703

7855

027064

017704

7857

027074

001435

7853
027052
7854 027060
7856

097070

7858 027076
7859 027100
7860 027102
51
027104

7862 027106
7863 027112
7864 027116
7805 027122
7806 027126

177770

142777
150377

000007
164130

020467

164506

104455
3
010464
024052

012746
012746
012746
(12746
012746

164114

006442
006700
007750
006034
000004

164134

#4,~(SP)

SP,

; SP,®

ADD
B8R
CLR

#30,SP
108
R3

;
:
: DRV.SEL

4613
4615
4622

BEQ

: DRV.SEL,*

4627

; DRV.SEL,*
Do, 88TMP?

4628
4629

CMP

14
63

R3.mML.DUT

MOV

R3,R2

BICB
BISB

#7.aML.REG+40
R2.aML.REG+40

BIC

164220

ML .DUT.=(5P)
NFMT_2.-(SP)

4618

MOV

TRAP
TRAP

7829 026742 062706 000030
7830 026746 000523
7831 026750 005003

TOPS

PA:<

M P7770,R2

; DRV.SEL
,»

MOV
MOV
BEQ
MOV
BEQ

R3.aML .REG+30
#1.R1
73
LSDLY,R2
é$

DEC

: SSTMP
; SSTMPI

DEC

CLR

BNE

(SP)

B8R
INC

X
R3

BIC

#177770

P
BLE
MOV
BICB
BISB

MOV

R3.47
33
ML .DUT,R3

,R3

#7.,aML.REG+40
R3,aML.REG+40

; o+, $STMP1

$SSTMP2

:; DRV.SEL
: DRV.SEL.*

4622

4632

RG.ML.DUT

* SAVE,*

; *,SAVE

4633

TRAP
WORD
WORD
WORD

S5
3
ASYNC
DUMPER

;

4638

;

4639

BEQ

MOV
MOV
MOV
MOV
MOV

aM .REG+30,
R4

4624

MRD.14,~(SP)
MRD.37.~(SP)
#ENC.3,=(SP)
NTHR.FMT ,=(SP)
#4,-(SP)

4635

(ZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

SEQ 0188

§33§§z§
E&&an

ddddd?d

l>]eole
Pl

7871 027132
7872 027134

H, W

7868
7869
7870

104467

22-Dec-1980 09:24 :31
22-Dec~-1980 09:21 :22
SP.RO

14
R4, (SP)
ML.DUT,-(SP)
#FMT.1,-(SP)
#3,-(SP)

164436

004222
000003
000001
000020

177350

SP"

;

SAVE ,*

;

SP,

. *,DODU.FLG

TOPS
PA:<

4640

4641

4637

4642

9s:

DEC

108:

TST
RTS

;

DODU.FLG

N OV

80
N
3

3 4494434

UWN=O

CEEREREE

164366

4581

151 words
depth
per invocation:
; Maximum stack
;

004767

177316

103773
000207

4654

Routine Size:

T4::
18:

JSR
TRAP
ROR

B8LO
RTS

! BLF /PAGE>

19 words

PC,$T4

4651

66
RO
13

; Routine Size:
6 words
. Maximum stack depth per invocation:

0 words

MACRO M1113

CIMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DE” #0 12:16

H 15
PAGE 202

SEQ 0189

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

TOPS~20 Bliss-16 v2(212)

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

]

BGNTST;

R T

‘o4

TEST NUMBER:

TST S

TEST NAME:

READ WRITE REG ONES/ZEROES TEST

TEST DESCRIPTION:
THIS TEST WRITES AND READS A DATA PATTERN OF ALL ONES AND ZEROES TO ALL

OF THE ML11°'S READ / WRITE REGISTERS.

ROUTINES WRT REG AND RD_REG ACCEPT ARGUMENTS TO FURTHER SELECT ROUTINES

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

!ERROR FLAG PASSED TO ROUTINES
'TEST PATTERN
'POINTS TO REGISTER PRESENTLY BEING TESTED
!DROP UNIT FLAG

L
I P
P A

S P

I WA
P

T I

A S A
T T Y S S
R

N
R
R

THE UNIT IS DROPPED ON DETECTED ERRORS.

DODU_FLG = ZERO;

TST_PAT = ONES;

!LOAD TEST PAT WITH ONES

incr TWICE from 0 to 1
begin

incr REG_SEL trom O to 7 do
beqgin
8
;
CLR_MBUS
WRT_REG (.TST_PAT, .REG_SEL.

'REPEAT LOOP TWICE
!TEST ELEVEN WRITE/READ REGISTERS

index);

RD_REG (.TST_PAT, .REG_SEL. ERR_FLG):
if .ERR_FLG IS_SET
then
begin

selectone .REG_SEL of
set

'WRITE TO THE REGISTER
!READ THE REGISTER
!SEE IF READ FOUND AN ERROR

!1F ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG
!SELECT WHICH MODULE FAILED

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

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECY
7979 M6

22-Dec=-1980 09:24:31

% :

4707
(708

7985
7986
7987
7988
7989
7990
7991
7992
7993

4710
471
47
471
4714
4715
4716
4717
4718

;
:
:
;
;
;
;
:
:

799 ;

7995 :

7996

7997
7998
7999
8000
8001
8002
8003
8004
8005

(0 to 3]

4709

(4 to S] :
ERRDF (4,

4720

4732
4733

D
(.ML_LUN);
DOCLN;

TST_PAT = not
end;

end;

%}; :

4736

ENDTST;

004167

154634

10440

177777
13

152
016700

000040
164310

163726

8029 027276
8030 027304

142
150077

000007
163704

163710

8028 027272 042;99 177770
010246
010346

.TST_PAT;

$TS5:

8026 027260
8027 027266

8031 027310
8032 027312

WRD_56);

'REPEAT AGAIN WITH COMPLIMENT DATA
'DROP THIS UNIT IF THE DODU_FLG IS_SET

O&‘Jn

4734

8025 027256

WRD 52,

ENDSUB;
end;

8009 :

024646
(005004
012702
005001
005003

FNC_6,

DODU_FLG
=

8007 :
8008 :

8020 027242
8021 027244
8022 027246
8023 027252
8024 027254

'ARRAY DATA MODL'.E FAILURE

end;”

if .DODU_FLG IS_SET
then

8019 027236

'SYNC MODULE FAILURE

PRINTB (FMT~ 16 M REG C.:hdex, REBISTER IDDJ QT DATA. .RD_DATA);

4721

4735

PA:<NEALE>BL3IML .BLI.2 (55)

'ASYNC MODULE FAILURE

PRINTB (SIX_FMT, PHR &4, WRD_12, FNC_S,

4722
4723
4724
4725
4726
4727
4728
4729
4730

8010 ;

SYNC, DUMPER):

(6 to 7] :
ERRDF (4, ARR_DAT, DUMPER);
tes:

4719

L7321

ERRDF (4, ASYNC, DUMPER);

:
:
;
:
;
:
:
:
:;

8006 :

TOPS-20 Bliss=16 v2(212)

22-Dec=-1980 09:21:22

7982 ;
7983 ;

7984 ;

SEQ 0190

2s:

JSR

(W, o
CLR
MoV
CLR
CLR

TRAP

R1,$SAVES

-(SP) ,-(SP)
R4
#-=1,R2
R1

BISB
MOV

#e0,aML .REG+40
ML .DUT,RO

8I(B
B8IS8B

#7,aM .REG+40
RO.,aML .REG+40

8IC

MOV
MOV

:
;
:
;
:

4653
DODU.FLG
=, TST.PAT
TWICE
REG.SEL

4L688
4689
469N
L4694

4695

4696

: TST.PAT,»
: REG.SEL.*

4698

#177776.R0
R2.,-(SP)
R3,-(SP)

MISCELLANEOUS CODING SECTION

8034
8035
8036
8037 027314
8038

MACRO M1113

22-DEC-B0 12:16

J 15
PAGE 204

SEQ 019

sMLG
000010

22-Dec-19
22-Dec-198
#10,-(SP)

173546

000012
174116
000012

000001

000003

CZMABO ML-11 LOGIC TEST

:3
:22

TOPS

PA:<

;

INDEX,*

;
;

TST. PAT
REG. SEL,~

ERR. FLG,*

;

ERR. FLG,*

4701

;

REG. SEL

4705

;

REG. SEL.,*

4699

470

. REG. SEL .+

3s:

8059 027412
8060 027414
8061 027416

000005

4705

REG. SEL.*

4712

48:

: REG. SEL,*
.

4705

REG. SEL.*

4715

5%:

ARR.DAT
MJ‘T R

MRD.56,-(SP)
ARD.S52.-(SP)

4718

#ENC. 6 Z(SP)

#ENC.S = (SP)

MRD.12,-(SP)

206
8081 027512
7514
7516

m 4,~(SP)
#SIX.FMT,~(SP)

#7.-(SP)

SP.RO
14

; SP,

R
36(SP)

;

8084 027522

RD.DATA, (SP)
WT.DATA.-(SP)

8088 027536

RO
RO
RO

4719

INDEX,*

CZM_ABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

K 15
PAGE 205

SEQ 0192

‘MG

NFMT .16 ,-(SP)

#4 ,-(SP$

SP,«

*,DODU.FLG
6%:

ADD

P e
3]

163744

8137 027652
8138 027654
8139 027656
8140
8141
8142

0,
RTS

(SP)+,(SP)+
PC

: Routine Size:
131 words
;. Maximum stack depth per invocation:

104466
006000
103773
000207

4703

REG. SEL
REG.SEL
,*

4694

TST.PAT
TWICE
TWICE,

4726
4691

DODU.FLG

4729

4732
7%:

177366

4720

4695
4721

000001

004767

TOPS
PA:<

ML .REG(RO) ,-(SP)

-—

O-S‘OOOO
gk

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

TS::
18:

JSR
TRAP
ROR
BLO
RTS

4653

24 words

PC.$T5
66
RO
18

4734

: Routine Size:
6 words
. Maximum stack depth per

)
.
irnvocation:

0 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

8153 ;

4737

MACRO M1113 22-DEC-80 12:'6 PAGE 506

! <BLF /PAGE>

SEQ 0193

~——

MACRO M1113

22-DEC-80 12:16

M 15
PAGE 207

SEQ 0194
22-Dec~1980 09:24:31
22-Dec-1980 09:21:22

8155 :mLé
:
81

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

BGNTST;
‘44

TEST NUMBER:

TST 6

TEST NAME:

READ WRITE REG SHIFTING ONES/ZEROES TEST

TEST DESCRIPTION:
THIS TEST WRITES AND READS A
SHIFTING ONE'S AND SHIFTING ZEROE'S
PATTERN TO ALL THE ML11'S
READ/WRITE REGISTERS

ROUTINES WRT REG AND RD REG

ACCEPT ARGUMENTS TO FURTHER

SELECT ROUTINES WHICH ACTUALLY
PERFORMS THE READING AND

WRITING OF

THE REGISTERS.

THE DRIVE IS DROPPED ON DETECTED
ERRORS.

IMPLICIT INPUTS:
WT_DATA

COADED BY READ REGISTER ROUTINES AND

CONTAINS THE DATA PATTERN WRITTEN TO THE
REGISTERS (REPRESENTS GOOD DATA).

RD_DATA

[OADED BY THE READ REGISTER ROUTINES AND
CONTAINS THE DATA PATTERN READ FROM THE

(REPRESENTS BAD DATA).

0003930920005 0,%09000990850,
09,

]

o 8¢ %5 0o 0 %0 0,00 05045009000 %0 %00, 8908000090030, 0,00 %0859 0900800009002

CZm \BO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION

!ERROR FLAG PASSED TO ROUTINE
'TEST PATTERN
!POINTS TO REG PRESENTLY BEING TESTED
!DROP UNIT FLAG
DODU_FLG = ZERO;

TST_PAT = ONE;

'LOAD TST_PAT WITH A 1

incr SHIFT from 0 to 15 do
begin

DO SHIFT 16 TIMES

incr TWICE from 0 to 1 do
begin

'REPEAT LOOP TWICE

IN A FILED OF 0°'S

——

CZMABO ML-11 LOGIC TEST

MACRO M1113

N 15
PAGE 208

SEQ 0195
SS-DCPWBO :264:31
-Dec~1980 09:21:22

4790

incr REG SEL from 0 to 7 do

479

B&Slfi

!TEST ELEVEN READ/WRITE REGISTERS

PBUS'

4794

kRT “REG (.TST_PAT, .REG_SEL, index);

27735

Lf‘.ERR_FLG IS_SET

4795

RD_REG (. 1531 _PAT, .REG SEL, ERR_ FLG):
en

4799

4801
4802

T0PS-20 Bliss=16 v2(212)
PA: NEALE>BL3ML¢ .BLI.2 (56)

!WRITE TO THE REGISTER

!READ THE REGISTER

!SEE IF THE READ FOUND AN ERROR

begin

!IF THE ERROR FLAG IS_SET THEN ERROR

selectone .REG_SEL of
set

'FIND WHICH MODULE FAILcD

4804
4805

(0 to 3] :
ERRDF (5, ASYNC, DUMPER);

!ASYNC MODULE FAILURE

4807
4808

C4 to 5] :
ERRDF (5, SYNC, DUMPER);

!SYNC MODULE FAILURE

4810

6 to 77

4812

tes.

4811

ERRDF

(5, ARR_DAT, DUMPER);

'ARRAY DATA MODULE FAILURE

4814

PRINTB (SIX_FMT, PHR 4, WRD_12, FNC_5, FNC_6,

22}9

o%u FLG= DNE;

4815

WRD 52, WRD_56);

PRINTB (FMT-16. .ML_PEG[.index, REBISTER lbpl), .Q1 DATA. .RD_DATA);
eng,

TN PRIR

TR FA YATR

YRIEAYFEATE

PRV IETE

YR PR YNFE

PRTN

PRFE FI PN T T PN FI PN PR P PN

I TN Y I

H, €1

RRRRRORR RERRRRETRR R
BNRRRERD SOV
AR WY

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

4819
4820

ENDSUB;
end;

(822
4823

TST_PAT = not .TST_PAT;
end;

4825

4826

4828

!SHIFT THE 1

.DODU_FLG IS_SET

'DROP THIS UNIT IF DODU_FLG IS SET

8% M
begi
4831
l%gu C.ML_LUN);
in

4833
48
4835

1°S

TST PAT = .TST PAT“ONE;

end;
:f

'REPEAT WITH A O IN A FIELD OF

DOCLN;
end;

ENDTST;

IN THE FIELD OF 0°S

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

8271 027660
.74

004167

MACRO M1113 22-DEC~B0 12:16 PAGE 509
$76:

154232
0000C1

000040
163664
177770
000007
163260

MOV

CLR
CLR
CLR

R1,$SAVES
=(SP) ,~(SP)
RS
#1,R3
R1

4736
DODU.FLG
* TST.PAT

SHIFT

TWICE
REG.SEL

Ré

M40, aML. REG*‘O

163302

c177976RO
pUT,
R

163264

RE:*40
RO n REG+40

R3.-(SP)
R .=(SP)

TST.PAT
,«
REG.SEL.,*

SP. (SP)

*
INDEX,

R3. (SP)

RG .- (SP)

TST.PAT
,«
REG.SEL,*

SP, (sP}

ERR.FLG,
*

12(SP) , #1
78
R4
48
R4 A3
43

ERR.FLG,*

4797

REG.SEL

4801

#10.-(SP)

000010

173122

PC.WRT.REG

#12.~(SP)

000012
173472
000012

JSR
cMP
CLR

SEQ 0196

PC.RD.REG

000001

000003

A ¥

000005

4805

REG.SEL
,*

5%:
3004
104455
000005
010570

000007

55
5

ARR.DAT

4801

REG.SEL,*

55
5

SYNC
DUMPER
6$
R4 #6
6$
R4 47
6$

4795

REG.SEL
., *

5
ASYNC
DUMPER
6$
Ré 44
5%
R4 .45
5$

4794

4808

REG.SEL,*

4801

REG.SEL
,*

4811

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

832
33322‘

MACRO M1113

22-DEC-80 12:16

c.16
PAGE 210

SEQ 0197

MLG
:

8325 030074

024052

8326 030076
8327 030102
8328 030106
&gg 030112

012746 007122
012746
007066
012746 010004
010746 007774

8331 030122
030126
132
030136
8335 0301
8336 030142
030146
8338 930152
8340 030160
8341 030162
8342 030164
8343 030170
8344 030174
8345 030200

.WORD

DUMPER

MIRD . 56,=(SP)
MIRD.52,~(SP)
#FNC.6.,=(SP)
#FNC.S.=(SP)

012746 007454
012746 006100
012746 000007
010600
104414
016716 162762
016766 162754
016600 000036

MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV

#PHR
.4, = (SP)
NSIX.FMT,=(SP)
#7,-(SP)
SP.
14
RD.DATA, (SP)
WT.DATA.~(SP)
36(SP) ,RO

006300
006300
016046
012746
012746
010600

ASL
ASL
MOV
MOV
MOV
MOV

RO
RO
ML .REG(RO) ,~(SP)
NFMT.16,~(SP)
#4,~(SPS
SP.RO

: SP,*

MOV
ADD
ADD

#1 RS
#30,spP
#12.SP

ROR
BLO

RO
3s

4816
4799
4791

8351 030222 006000
8352 03022¢ 103626

; *,DODU.FLG
:
:

003622
005103

BLE
com

3
R3

; REG.SEL
: REG.SEL,*

4790

8355 030234
8356 030236

R4
R4, 47

8359 030246
8360 030250

003614
3

BLE
ASL

2$
R3

BLE
DEC
BNE

1$
RS
8s

8339 030156

030202

012746 006426

006300

ASL

013154
005216
000004

104414

7 550206 012705 000001
8348 030210 062706 000030
8349 030216 062706 000012
030220

MOV

104467

TRAP

78:

8353 8338353 005204
8354
020427 000007
8357 030240
8358 030242

8361 030252
8362 030256

805202
020227
005201
020127

8363 % 003606
8364 0
005305
8365 % 001004
8366 0

016700

8369 030276

022626

8367 030272
8368 030274

s 030300

8372
8373

104451
104444

000207

TRAP

INC
P

000001

INC
P

000017

163306

MOV

8s:

TRAP
TRAP

RTS

;

TOPS
PA:<

MOV
MOV
MOV
MOV

030116

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

4814

#MRD.12,-(SP)

; SP,*
;
; INDEX,»

R2
R2 .M

4815

: TST.PAT

4817

4822

: TWICE
s TWICE,*

4787

; TST.PAT

4825

: DODU.FLG

4828

ML .LUN,RO

;

4831

(SP)+,(SP)+

4736

]

R1
R1.#17

. SHIFT
. SHIFT,»

51
&4
PC

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

25 words

4784

CZMABO ML-11 LOGIC TEST
MISCELLANEOQUS CODING SECTION

8387
8391 030302
839§ 030302

8393 030306
839% 030310
8395 030312
33339 030314

004767
104466
006000
103773

MACRO M1113

177352

000207

: Routine Size:

gzgz

8407 :

JSR
TRAP
ROR
8LO
RTS

8398

8405
8406 ;

T6::
1$:

22-DEC-80 12:16

D 16
PAGE 211

PC.8T6
66
RO
1$

4836

! <BLF/PAGE>

;

6 words

; Maximum stack depth per invocation:

4837

SEQ 0198

O words

4833

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

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>BLIMLé.BLI.2 (57)

BGNTST;
1+

TEST NUMBER:

TST 7

TEST NAME:

I
l
l

A MASS BUS CLEAR IS DONE.

YA
PR FETR
FES

PATTERN TO THE SELECTED REGISTER.

THEN ROUTINE RD_REG READS THE

THIS TEST WILL ALSO READ THE

DRIVE TYPE REGISTER FOR ITS
INITIAL REGISTER VALUE.

C
l

IMPLICIT INPUTS:
THIS FLAG IS NEEDED DUE TO THE UNIQUE
MANNER IN WHICH THESE REGISTERS
MUST BE READ.

AND CONTAINS THE DATA PATTERN READ FROM
THE REGISTER (REPRESENTS BAD DATA).

PN TN
P PN

TRA
PN F N
PRYR

LORDED BY THE READ REGISTER ROUTINE

RD_DATA

THE DRIVE IS DROPPED ON DETECTED ERRORS.

SELECTED REGISTER FOR CLEARED DATA

PNPR Y
P

ROUTINE WRT REG WRITES A

PR PR

TO CLEAR OUT REGISTER DATA OF

ONE'S AND ZEROES PATTERN.

ALL ACCESSIBLE ML11 REGISTERS

TEST DESCRIPTION:
THIS TEST TESTS THE ABILITY OF

A YA

NE YRTR FEFE

PNFREFE TN FRE TR PR PR NN
PN PN

]

DRIVE TYPE
LOADED DURING THE INITIALIZATION CODE AND
STORES THE EXPECTED CONTENTS OF THE DRIVE

l
l

TYPE REGISTER.

local

TST_PAT,

ERR FLG
CLR DATA.

SAVE,

DODU_FLG.;

'TEST PATTERN

'ERROR FLAG PASSED TO ROUTINE

'POINTS TO REG PRESENTLY BEING TESTED

'STORES CALCULATED REGISTER CLEAR DATA

! TEMPORARY STORAGE LOCATION
'DROP UNIT FLAG

SN =

3
RRRRERRRRRS
SR Velo RNTe XV, P JV 1,8 P o

8409 .ML4

8425

SEQ 0199

ML_REG [19, FORCE_HI] = 20°'177777';

!CLR DATA FOR MLPD IS ONES

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

F 16
PAGE 213

L4
o

[4
[

SEQ 0200
22-Dec=1980 09:24:31
22-Dec=198) 09:21:22

4890
2891

DODU_FLG
= ZERO;

TST PAT ONES.

!BACKGROUND PATTERN

incr TWICE from 0 to 1
begin

!REPEAT LOOP TWICE

incr REG_SEL from 0 to 10 do
beqin

L4
[4
[4

&?%’S( TST PAT, .REG_SEL

[
LJ

!TEST THIRTEEN REGISTERS

dex);
ex

CLRCDATA
= (.RI) or (.IGNORE)
CLRTMMBUS;
RD_REG(.CLR_DATA, .REG_SEL, ERR_FLG):

[4
[4
[4

if .ERR_FLG IS_SET
then
begin

L4
[4

[4
[4

!IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG

set

4
o

co.

L4
L4
[4

2, 3,9,10] :
ERRDF (6, ASYNC, DUMPER);

4, 5, 8] :

ERRDF

L4
[ 4

(6, SYNC, DUMPER):;

(6 to 7] :
ERRDF (6, ARR_DAT, DUMPER);

[4
L4

tes;

[4
4

!WRITE REGISTER WITH BACKGROUND
ICALCULATE THE CLEARED DATA PATTERN
!CLEAR THE REGISTER
!READ THE REGISTER FOR THE CLEARED DATA PAT

!SEE IF READ FOUND AN ERROR

selectone .REG_SEL of

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

!FIND WHICH MODULE FAILED

!ASYNC MODULE FAILURE
!SYNC MODULE FAILURE
!ARRAY DATA MODULE

PRINTB (FIV_FMT, PHR 4, WRD_12, WRD_52, FNC_23, WRD_56);

PRINTB (FMT_ 16 M REG [.index, REGISTER ADDJ. .CLR DATA. .RD_DATA);

[ 4

DODU_FLG
=

end;”

[4
[4

ENDSUB;
end;

L4
Ld

TST_PAT = not

end;

[4
[4
L4

[4
[
4
L4

[4
[4
[4

.TST_PAT;

F'l_REG (19, FORCE_KI] = ZEROES:

!REPEAT WITH COMPLIMENT BACKGROUND PAT
!RESTORE MLPD FORCED_HI

i
]
[§

NOW TEST THE DRIVE TYPE REGISTER

]

if .MLDT neq .DRIVE_TYPE
then

!COMPARE REG CONTENTS TO CALCULATED VALUE

MACRO M1113

CZMABO ML~-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

T
Y

IRTE T

TOPS-20 Bliss~16 Vv2(212)
PA:<NEALE>BL3IMLS .BLI.2 (57)

begin

ERRDF (113, ASYNC, DU‘PER)
PRINTB (TWO_FMT, REG_
7, PHR_4);

PRINTB (FMT_2, -DRIVE_TYPE, .SAVE);
if .DODU_FLG IS_SET
then

!DROP THIS UNIT IF DODU_FLG IS_SET

003u (.ML_LUN);

DOCLN:
end;

ENDTST;

177777

$T7:

163052
1%:

000040
163220

162636

000007
162614

162620

177770

JSR
SUB

R1,$SAVES
#6.SP

CLR
MOV

RS
#-1,R2

CLR

MOV

177777

2s:

CLR

TRAP

172456
000012

#-1.M_.REG+232

#7.3ML.REG+40
R3.aML.REG+40
R2.-(SP)

TST.PAT,
=

MOV
ADD

#15,-(SP)
SP, (SP)

INDEX,*

p177776R3
R4 ,=(SP)

PC.WRT.REG
12(SP) .RO
RO
RO
RO

ML .REG+2(R3) ,RO
ML .REG+6(R3).RO

MOV

M .D

000007

BICB

#7.aML.REG+40

BIC

; REG.SEL,*

; INDEX,»

RO.R3

MOV
BIS

MOV
BIS8

162522

TWICE
REG. SEL

000006
000040 162540

77770

*,TST.PAT

BICB
BISB
MOV

BIC

MOV

163122

DODU.FLG

#40,aML. REG+40
M. DUT

JSR
MOV
ASL
ASL
ASL

013156
013162

4835

BISB
MOV

MOV

000012

8574 030464

SEQ 0201

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

153574
000006

6. 16
PAGE 214

SMLG
:
Y

8522

22-DEC-B0 12:16

RO,6(SP)
ub.a.nec+4o

” 77776,R0

: *,CLR.DATA

4889
4891
4893

4897
4898

4900

4901

TEST
CZMABO ML-11 lc. OGIC
l
MISCELLANEOUS
ODING SECTION

MACRO M1113

22-DEC-80 12:16

H 16
PAGE 215

SEQ 0202

JMLG

22-Dec-19
22-Dec=19
: CLR.DATA,«

SP, (SP)

; ERR.FLG,*

14(SP) , M
108
R4

; ERR.FLG,*

4905

; REG.SEL

4909

PC.RD.REG

000001

33
R4, 43

000003

000011

8593 030546
859 030552
8595 030554
8596 030556
8597 030560
8598 030562
8599 030564

3s:

000012
48

00004

5$:

000005

000010
’$:

43
R4, M1

58
R4 412
53
55
6
ASYNC
DUMPER
98
R4, #4
63
RG A5
78

; REG.SEL,*

; REG.SEL,*
; REG.SEL.,*

493

; REG.SEL.*

R4,#10
8s
55
6

. REG.SEL,*

R& 46

; REG.SEL.*

R4 N7

; REG.SEL,*

4916

4922

8630 030716

4909

4919

:
9%

162216

4509

; REG.SEL,*

000030
013154

4903

; REG.SEL.*

SYNC
DUMPER

8s:

TOPS

<
PA:

RO, ML .REG+40
6(SP), (SP)

R4 ,~($P)
& ,-(sP)
172744
000014

SP'.

; CLR.DATA,*

4923

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

SEQ 0203

JMLG

22-Dec-1980 v9:24:31
22-Dec~1980 09:2 1:22

005216
000004

NFMT.*6,-(SP)

#4,-(SPS

SP,»

14
#1,R5

* DODU.FLG

4897
4925

REG.SEL

4896

TST.PAT
TWICE
TWICE,*

4930
4893

REG.SEL,*

162106

4924

—

L1]

—_—

:
108

0
162262

TOPS

PA:<

13%:

ML .REG+232
@ML .REG+130,DRIVE.TYPE

4933

4940

4943

007454
010324
006024
000003

4944

SP,»

R4, (SP)
DRIVE.TYPE ,-(SP)
W#FMT.2,~(SP)
#3,-(SP)

BRVIXNSRS

162042
004266
000003

SAVE
,

: SP,»

000016

148:

162460

15%:
: Routine Size:

#16,SP
RS
158

DODU.FLG

ML.LUN,RO
51
44
#6,SP
198 words

4942
4948

4951
4835

; Maximum stack depth per invocation:

4945

25 words

CIMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

J 16
PAGE 217

SEQ 0204

8692
8693

8697
8701 031132
8
031132

00472867

3778(; 031144

000207

8703 031136
8704 031140
8705 031142

104466
006000
103773

177160

JSR

TRAP
ROR
8LO
RTS

8708

: Routine Size:

g;?z

8716 ;

17::
18:

PC.$T7

6 words

; Maximum stack depth per invocation:
4956

! <BLF/PAGE>

66
RO
18

0 words

4953

CZMABO ML-11 LOGIC TEST

MACRO M1113

hA4h
o0 4

ryvvie

MISCELLANEOQUS CODING SECTION

22-DEC-80 12:16

K 16
PAGE 218

8718 .mLé

22-Dec-1980 09:24:31

3;128 :
8721
8722
8723
8724
8725
8726
8727
8728

22-Dec~1980 09:21:22

;
:
;
:
.
:
.
;

4957
4958
4959
4960
4961
4
4
4964

!
!
!
BGNTST;

8731 ;
8732 :
8733 .

4967
4968
4969

! TEST DESCRIPTION:
!
THIS TEST TESTS FOR UNJQUE REGISTER
!
SELECTION BY FIRST WRITING A BACKGROUND

PATTERN INTO ALL READ/WRITE REGISTERS

8736
8737
8738
8739

4972
4973
4974
4975

!
!
!
!
!
!
!
!
!
!
!—

IT THEN WRITES A COMPLIMENT
BACKGROUND PATTERN INTO ONE REGISTER
AND READS THE REMAINING UNWRITTEN
REGISTERS FOR AN UNCHANGED BACKGROUND
PAT

377?5' :

8740
8741
8742
8743
8744
8745
8746
8747
8748
8749

:
;
;
;

;
;
;
;
;
;
;
;
;
;

8750 ;
8751 ;
8752 :
8753 ;
8754
8755 ;
8756 ;

8757 :

8758 .

2322

23;?

4976
4977
4978
4979
4980
4981
4982
4983
4984
4985

4986
4987
4988
4989
4990
4991
4992

4993

144
! TEST NUMBER:
!
:

TEST NAME:

THIS PROCEDURE IS REPEATED UNTIL ALL
RFGISTERS HAVE BEEN WRITTEN WITH A
COMPLIMENT BACKGROUND PATTERN.

local
DODU_FLG,

TST_PAT,
ERR_FLG,
index;

BGNSUB;
CLR

DODOD FLG

= ZERO.

WRT_ER (.TST_PAT, 6);

'ACCESSABLE READ WRITE REGISTERS

4996
4997

WRT_DA (.TST_PAT, 3):
WRT_PA (.TST_PAT, 8):

8763 ;
8764 .
8765 ;

4999
5000
5001

WRT_E2 (.TST_PAT, 14);

8766 ;
g;gg H

4998

5002
2882

8769 ;
8770 ;

5005
5006

8772 ;

5008

8771 ;

5007

'TEST PATTERN
!ERROR FLAG PASSED TO ROUTINE:;
!POINTS TO REGISTER PRESENTLY BEING TESTED.

'LOAD TST PAT WITH ALTERNATE 1°'S & 0°'S

8760 ;
8761 ;

8762 :

'DROP UNIT FLAG

TST_PAT = 20°125252';

WRT_CS1 (.TST_PAT, 03;

4995

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3ML 4.8BLI.2 (58)

TST 8

4994

8759 .

SEQ 0205

'WRITE A BACKGROUND INTO ALL THE DIRECTLY

WRTZE1 (.TST_PAT. 13;
1incr CNT_1

fram 0 to 4 do
be?m
TST_PAT = not .TST_PAT;

case .CNT_1 from 0 to 4 of
set
(ol :

'WRITE A COMPLIMENT PATTERN INTO ONE REGISTER

!GENERATE THE COMPLIMENT PAT
!SELECT THE REGISTER TO WRITE INTO

CZMLABO ML-11 LOGI

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

TEST
5 SECTION

MISCELLANEOUS COD:

8788
8789
8790

879

8792

8793
8794
8795

8796
8797
8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808
8309
8810
8811
8812
8813
8814
8315
8816
8817
8818
8819
8820
8821
8822

8823
8824
8825
8826
8827
8828

Puus Guurd

NWAN

WRT_CS1

Guur G
G
G

NOWVS
NN =O

ot Qe

8781
8782
8783
8784
8785
8786
8787

o [eleolelelelels)

8778
8779

Sg-bec-1980 09:24:31
~Dec-1980 09:21:22

N VIR

8775
8776
8777

Be 00 03000590050,
0;5 %0 %00,
% 058, %% 08007 350,000, 0,00050, % %0 9,0, %0 000¢% 09% 20 0.% 000,020,320 00209, %0,0, %

8774 H, X1

SEQ 0206

!FIRST PASS WRITE COMP PAT TO ML(CS?

(.TST_PAT, 0);

1] :

WRT_ER (.TST_PAT, 6);

!SECOND PASS WRITE COMP PAT TO MLER

2l :

WRT_DA (.TST_PAT, 3);

!THIRD PASS WRITE COMP PAT TO MLDA

3] :

WRT_PA (.TST_PAT, 8);

6] :
tes.

WRT_E1

TST_PAT = not
inc

!FORTH PASS WRITE COMP PAT TO MLPA

(.TST_PAT, 13);

!FIFTH PASS WRITE COMP PAT TO MLE1
!COMPLIMENT TST_PAT BACK TO BACKGROUND

.TST_PAT;

NT_2 from .CNT_1
begin

+ 1

to 5 do

INOW READ THE REMAINING UNWRITTEN REGISTERS FOR AN
!UNCHANGED BACKGRUUND

case .(NT_2 from 0 to 5 of

!SELECT THE REGISTER TO READ

set

RD_CS1

1] :

RD_ER

(.TST_PAT,
(.TST_PAT,

index = 3, ERR_FLG);

'READ MLDA

index = 8, ERR_FLG);

'READ MLPA

(.TST_PAT,

index = 13, ERR_FLG);

'READ MLE1

RD_E2 (.TST_PAT,

index = 14, ERR_FLG);

!'READ MLE?

:
RD_DA (.TST_PAT,
RD_PA (.TST_PAT,

RD_E1

5] :

index = 6,

!KREAD ML(CS!
'READ MLER

3] :

index = 0, ERR_FLG);
ERR_FLG);

4] :

T0PS-20 Bliss-16 Vv2(212)
PA:<NEALE>BL3M 4.8L1.2 (58)

es;

i; .ERR_FLG IS_SET
en

ISEE IF READ FOUND AN ERROR

begin
selectone .(NT_2 of
set

(o to 2] :
ERRDF (110, ASYNC, DUMPER);

!ASYNC MODULE FAILURE

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-~80 12:16

M 16
PAGE 220

8830 :ML4
8831
8833 ;

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

(3 to SJ :

5063

tes;

8834 :

5062

8836 :
8837 :

5064
5065

8839

5067

8835 .

8838

8840 ;

8841
8842
8843
8844

:
;
:
-

8846
8847
8848
8849
8850
8851
8852

:
:

8845 :

5073

;
;
;
:

8854 :

5082

gggg .

5081

DODU_FLG
=

end;”
end;

end;
ENDSUB;
1if .DODU_FLG IS_SE~
then
bsgun
(.ML_LUN);
DOCLN:

ENDTST:

037146
8864 031152
8865 031156
8866 031156

006167
005746
104402
152777

152744

8868 031170

042703

177770

8871 031206

005005

8869 031174
8870 031202

016703

!DROP THIS UNIT IF DODU_FLG IS_SET

end;

5083

8867 031164

16241

$T8:

162030

M _DUT ,R3

BICB
BISB

#7.aML.REG+40
R3.aML.REG+40

BIC

8872 031210 012704
8873 031214 010446

125252

MOV
MOV

8875 031220 004767

166236

JSR

8877 031226 012746

000006

8876 031224

010416

8878 031232
8879 031236
8380 031240

004767
010416
012746

8882 031250

010416

8881 0312644

8883 031252

004767

012746

166402

000003

166546

000010

R1,$SAVES
~(SP)
2
#40,aML.REG+40

MOV

000007
162006

005046

162012

18:

JSR
ST
TRAP
BISB

142777
150377

8874 031216

IARRAY DATA MODULE FAILURE

PRINTB (FMTTM 16 .ML_REG C.index, REGISTER_ADD], .WT_DATA, .RD_DATA);

5068
5069
5070
5071
5072

ERRDF (110, ARR_DAT, DUMPER);

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

PRINTB (THR_FMT, WRD 38, WRD_37, WRD_10);

5066

5074
5075
5076
5077
5078
5079
5080

8853 ;

SEQ 0207

CLR

4955

:
:

4988
4990

: DODU.FLG

4992

#177770
R3

#-52526 ,Ré
R~ (SPS
-(SP)

PC,WRT.CS1

: = TST.PAT
: TST.PAT,*

4993
499

MOV

Ré.(SP)

; TST.PAT,

4995

JSR
MOV
MOV

PC.WRT.ER
R&. (SP)
#3.-(SP)

: TST.PAT,*

4996

RG . (SP)

; TST.PAT,s

4997

MOV
JSR

MOV

#6,-(SP)

PC.WRT.DA

#10.-(SP)

—

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

8885

8889 031262
8890 031
8891 031270
saog 03174
8893 031976
8896 031
8895 o?
8896 031310
7 031312
8898 031314
031316
8900 031322
8901 031324
8902 031326
8903 031330
890% 031332

OC’767

= .416
012746
004767
010416
012746
004767
005001
005104
010103
006303
066307
000012
000024
000040
N00054
000070

167070

000015
167264
000016

167460

28:

031322

005046

38:

48:

004767
000427
010445
012746
004767
000421
010446
012746
004767
000413
010446
012746

8920 031410
8921 031412
8922 031414
8923 031420
8924 031424
8925 031426
8926 031430
8927 031432

00 )S
010446
012746 000015
004767 167134
005104
010103
000576
010300

98:

8929 031436 066007 031442
8930 031442 000014

28 031434

004767

166116
000006
166260
000003
166422

000010

000036

8937 031460
5938 031462

005002
005046

5$:
68:
78:

166742

006300

8931 031444
8932 031446
8933 031450
8934 031452
8935 031454

36 031456

SEQ 0208

22-Dec~1980 09:24:31

000106
000132
000156

010446

8939 0%1464 12746 000030

22-Dec=1980 0%:21:22
JSR

8907 031340
8908 031344
8509 031346
8910 031350
8911 031354
8912 031360
8913 031362
8914 031364
8915 031370
8916 031374
8917 031376
8918 031400
8919 031404

N 16
PAGE 221

;

8905 031334 010446
8906 031336

22-DEC-80 12:16

:MLG

éé“g?

8888 031256

MACRO M1113

MOV
MOV
JSR
MOV
MOV
JSR
CLR
com
MOV
ASL
ADD

PC,WRT.PA

RG . (SP)
#5,-(sP)
PC.WRT.E1
RG. (SP)
#16,-(SP)
PC.WRT.E2
R1
R4
R1.R3
R3
3$(R3),PC

.WORD
‘WORD
JWORD
JWORD
WORD

4$-3$
58-38
63-38
7%-3$
88-38

CLR

-($P)

MOV

JSR
B8R
MOV
MOV
JSR
B8R
MOV
MOV
JSR
BR
MOV
MOV
JSR

R4, =(SP)
PC,WRT.CS1
R&,=(SP)
#6.~(SP)
PC.WRT.ER
R4, ~(SP)
#3.-(SP)
PC.WRT.DA
R4 ,~(SP)
#10,-(sP)

PC.WRT.PA

108:

BR
MOV
MOV
JSR
coM
MOV
B8R
MOV

RG,~(SP)
#5.-(sP)
PC.WRT.E1
RS
R1,R3
22%
R3.RO

118:

ADD
. WORD

11$(R0) ,PC
1;;_-_113

128:

MOV

R4, =(SP)

MOV

#30,-(SP)

8s:

CWORD
WORD
WORD
JWORD
WORD

CLR
CLR

13%-118
143~11%
15%-11%
163-11%
178-118%

R2
-(5P)

TOPS

PA: <

: TST.PAT,«

4998

: TST.PAT,«

4999

: CNT.1
. TST.PAT

5001
5003

: TST.PAT,«

5009

:
. TST.PAT,*

5005
5012

:
© TST.PAT,»

5005
5015

.
. TST.PAT,«

5005
5018

:
. TST.PAT,®

5005
5021

: TST.PAT
- CNT.1,CNT.2

5024
5026

. CNT.2,*

5029

: TST.PAT,»

5033

* CNT.1,

INDEX

5005

#30,-(sP)

gp'égpén
13(

166166
:
148

000003

000030

15%:

000010

000016

000030

17%:

TOPS
PA:<

5029
5036

5029
5039

5029
50642

*
INDEX,

ERR.FLG,*

*, INDEX
,*
INDEX

ERR.FLG,*
TST.PAT
»
*, INDEX
INDEX,»

MOV

167026

*, INDEX

Ve e Ny v,

000030

TST.PAT
«

LX)

16$:

000015

TST.PAT
,»

5029
5045

5029
5048

ERR.FLG,*

(2]

19%:

000001

000002

000005

FRR.FLG,*

TST.PAT,«

Qe %o ®y 8,

166644

000003

TST.PAT
»
*, INDEX
INDEX
,»

000030

167222
000030

ERR.FLG,*

Ve %o ®e 8,

166320

Ve Bq ®e 0,

000030

*, INDEX
INDEX,
*

LX)

R4 ,=-(SP)
#6.R2
R
~(SP)

Se®e B,y %,

188

13%:

ERR.FLG,*

LX)

3€'é§P231

166034

22-Dec=1
22-Dec=1

=
o
-

ANO

EERFRET
S $ 3843408So PR NNE R SRR EEEE MR INGS ror8aN
RS
~N

T e
e et
et st et e e et et e
e tE e

rv e

e rd e

ee e

PR CSRES S L
E E LT
EEERE CHET EEE e SRR

SEQ 0209

JMLG

891

MISCELLANEQUS CODING SECTION

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

CZMABO ML-11 LOGIC TEST

ERR.FLG,*

5051

CNT.2

5055

CNT-Z;'

5059

CNT.2,»
CNT.2,»

5055

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

8997

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

104455
000156

9004 031

012746

9oo§ 8gms 010570
9003
031
026052
9005 031
9006 031
9007 031736

006406

12766 006700
15746 006710
012746 006034

208:

9009 031746 01&00
9010 031
9011 031752

104414
016716

9013 031762

010

9012 031756

016746

9014 031764 ooaggg

013154
005216

9022

012705

000001

9024 032022 062706
9025 032026 005203

000006

032012

032016

9026
30
9027 032034

104414

062706

020327 000005
003002

9028 032036 000167
032042 022626
9030 032044
9031 032046

000022

005201
020127

032052 88300;
032054
167

9034 032060 062706
9035 032064

104467

9037 032070

1osoo;

9039 032076

005305

177370

000016

167

9040 032100
9041 032102

001004
016700

9044 032112

005726

9042 032106
9043 032110
9045 032114

104451
10444é

000207

177056

MOV

m.lg.-(sm

;

5065

MOV

SP RO

#4,-(SP)

; SP,*

.WORD
.WORD

MOV
MOV
MOV

MOV

ASL

218:
228:

238:

243:

161472

268:

MRD.37.~(SP)
MRD .38 ~(SP)
#THR.FMf
= (SP)

14
RD.DATA, (SP)

;

WT.DATA,=-(SP)

5066

: INDEX,*

RO
RO
ML .REG(RO) ,-(SP)
#FMT.16,~(SP)
#4,~(SPS
SP,RO

: SP,%

MOV

#1 RS

: *,DODU.FLG

5067

ADD
INC

#6.SP
R3

:
: CNT.2

502
502

ADD

P
8GT
JMP
P

#28,5P

R34S
PX<3

S CNT.2,*

108
(SP)+,(SP)+

;

505

5002

INC
P

R1
R1, #4

* CNT.1
: CNT.1,»

5001

ADD

#16,SP

;

ROR

BGT
JMP
TRAP

BHIS

258:

ARR.DAT
DUMPER

ASL
ASL
MOV
MOV
MOV
MOV

TRAP

9036 032066 006000

9038 032072

5062

MoV

000004

177230

TRAP
MOV

161144

TOPS

PA:<

55
156

MOV

161152

9015 031766 006300
9016 031770 006300
9017 031772 016046
9018 031776 012746
9019 032002 012746
9020 032006 010600
9021 032010

22-Dec=1980 09:21:22
TRAP
.WORD

9008 ogmz 012746 000004

9047
9048

22-Dec=1980 09:24:31

9000 031712
9001 031714

9033

SEQ 0210

8998

902%

JMP
DEC

BNE
MOV

TRAP
TRAP

RTS

24$
2s
67

5072

258

268
ML.LUN.RO

: DODU.FLG

5076

;

5079

(SP)+

;

4955

51
44
PC

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

28 words

CZMABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

9057
9058
9062
9069 032116

9067 032116
G068 032122
9069 032124
9070 032126

2871 032130

004767
104466
006000
103773

MACRO M1113

177024

000207

1$:

JSR
TRAP
ROR
8L0
RTS

: Routine Size:

38;3

9080
9081 ;

18::

22-DEC~80 12:16

D 1
PAGE 224

PC,8$78
66
RO
18

!'<BLF/PAGE>

6 words

; Maximum stack depth per invocation:
5084

SEQ 0211

0 words

5081

CZMLABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

9083 .mLé
9086
9087 ;
9088

5085
5086
SO87

!
!
BGNTST;

9090
9091 ;
9092 ;

S089
SO90
5091

!++
! TEST NUMBER:
|

9096 ;
9095
9096
9097 ;

5093
5094
5095
5096

|
|
|
|

;
;
:
:
;
;
;

5098
5099
5100
5101
5102
5103
5104
5105

|
|
i—

9108 ;

5107

9093 .

9098 .

9099
9100
No1
9102
9103
9104
oS
9106

9107 .

5088

5092

5097

5106

909 ;
g}? :

5108
g}%

912 :
913 .

5111
S112

1S ;
916
N7 ;

5114
5115
5116

914 ;

a}g H

SEQ 0212

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

% :

9089 .

5113

g”g

' TEST NAME:

TST 9

PRINT SERIAL NUMBER

TEST DESCRIPTION:
UPON A YES RESPONSE TO THE
SOF TWARE QUESTION 'PRINT SERIAL NO?

PRINT OUT THE DRIVE UNDER TEST
SERIAL NUMBER.

external
SN;
Llocal

'LOCATION WHERE ANSWER TO SW QUESTION IS STORED

ISTORES DIGIT 3 OF SERIAL NUMBER

D1,
D0;

!STORES DIGIT 1 OF SERIAL NUMBER
'STORES DIGIT O OF SERIAL NUMBER

D2.

!STORES DIGIT 2 OF SERIAL NUMBER

if .PRSN IS_SET
then

!SEE IF WE PRINT THE SERIAL NUMBER

begin

'PRINT THE S§RIAL
NUMBER IF THE REPLY WAS YES

D3 = .SN3;
D2 = .SN2;
D1 = .SN1:

‘LOAD DIGIT 3 OF SN INTO D3
'LOAD DIGIT 2 OF SN INTO D2

'LOAD DIGIT1 OF SN INTO D1

D0 = .SNO;

'LOAD DIGIT O OF SN INTO DO

9120 ;

5119

it ((.D3 gtr 9) or (.D2 gtr 9) or (.D1 gtr 9) or (.DO

N2 ;
g%{ :

5121
g}gg

then

N2t ;
:

5120

g]'%g

ne ;
91728 ;
929 ;
9133
9134
35
36

5126
5127
5128

—

g%g :

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

gtr 9))

'SEE IF DIGITS ARE TO BIG FOR COVERSION

PRINTB (FMT_25, PHR_15,

.MLSN)

PRINTB

(FMT_26, PHR_15,

.D3,

.GLOBL

PRSN

end;
ENDTST;

.D2.

'PRINT OCTAL SN IF TO BIG
.D1,

.DO);

'ELSE PRINT DECIMAL SERIAL NUMBER

2o0329392%93G98T2RG_9RWBCERSAR8_E-~E=R=NBERENINRwmSN%5

e m mmmummwmmm,1
RTLelN&NNTNTBRT8NTTRTRNTRNNRNRTfNAIReARgVRNBTNRERNWaRNENPNLLPNPbmhYRHTePNhsmNTNE«PNEw:YNR
)LLwM-YL()7,30wyD%q0tyoSD—-4YX[0V0~aNq)[7+LwY(-oN-VoN—)LYLoYL[Y~¥0wO-y-Ygtyw-NKtKqNg-Yg-Y-eYt-Xt[O-¥aa—)0EqXT-R-PwANQ—%EQX%0Y0Ye'o%QY0Q0[4-WVX[—a
CZMABO ML-11 LOGIC TEST

GLPDRIBEwTIROmAERwBAEBI«AIRAERN
@ g =o22980QU

MISCELLANEOUS CODING SECTION

MACRO M1113
22-DEC-80 12:16
PAGE 226
SEQ 0213

4
[- w "M
PR SN,

\raI\#I\r“I\(l#h4+]cY[.osl“) L[3N&a-B«|,leKay0’—]

CZMAB0 ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

9194
g}gg
99?7

9213 032352
9214 0323
9215 032360
9216 032362
gg]lg 032364

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

; Routine Size:

;

004767
104466
006000
103773
000207

177554

9219
3%%'(5)
9226
9227 ;

SEQ 0214

JMLG
N

8128%

9204
9208
9212
032352

72 words

Maximum stack depth per invocation:

19::

18:

JSR
TRAP
ROR
B8LO
RTS

5129

!<BLF/PAGE>

11 words

PC.8$79
66
RO
18
PC

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

TOPS
PA: <

;

0 words

5126

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

H
1
PAGE 228

92;3 M
8531

9232
9233
9234
923S
9236
9237
9238
9239
9240
9241

.
.

.
:

:
:
:

9242
9243
9244
924S
9246
9247
9248
9249
9250
9251
9252
9253
9254
9255
9256
9257

:
:
;
;
;
;
;
;
;

9259
9260
9261
9262
9263

;
:;
:
:

;
;
;
;

9258 ;

g% H

9266 ;
9267 ;

9268 ;

22-Dec~1980 09:24:31

22-Dec=1980 09:21:22

5130
5131
513%
513
5134
5135
5136
S137
5138
5139
5140
5141
5162
5143
51464
5145
51646
5147
5148
5149
5150
5151
5152
5153
5154
5155

5156

5157
5158
5159
5160
5161

g}g%

5164
5165

5166

9269 :

5167

9272 ;

5170

3577? H

g}gg

9273 ;
9274 :

5171
5172

9276 ;
9277
9278 ;

5174
5175
5176

9275 ;

5177
g]l;g

9282 .

5180
5181

TOPS=20 Bliss~16 v2(212)

PA:<NEALE>BLIM 4.8BL1.2 (60)

!
!
BGNTST;

!4+
! TEST NUMBER:
TST 10
!
! TEST NAME:
C-BUS PARITY TEST
!
' TEST DESCRIPTION:

!
!
!
!
!
!
!
!
!
!
!
!
!
!'=—

TEST THE CONTROL BUS PARITY
DETECTION AND GENERATING BY:

WRITING BAD PARITY TO DEVICE
AND TEST CPAR SET.

WRITING GOOD PARITY TO DEVICE
AND TEST CPAR CLR.

READING DEVICE AND TEST GOOD
PARITY GENERATION BY READING
MCPE CLR.

local

SAVE,

' TEMPORARY SAVE LOCATION

TST_PAT;

'TEST PATTERN

it .PAR_DIS IS_NOT_SET

then

]
begm

'SEE IF PARITY 1S DISABLED

'BEGIN IF PARITY IS ENABLE

TST_PAT = %0°'125252°;

'ALTERNATING 1, O PATTERN

incr TWICE from 1 to 2 do
beqin

'REPEAT LOOP TWICE

CLg_F&JS:

PAT = ONE:;

'GENERATE EVEN PARITY BY SETTING THE PAT BIT

if .CPAR IS_NOT_SET

'READ CPAR BIT SET

MDA = TST_PAT;
then

5173

9279
85?1) N
9283 ;

SEQ 0215

bzgin

ERRDF (7, ASYNC, DUMPER);

'WRITE BAD PARITY ON CONTROL BUS

'ERROR IF NOT SET

PRINTB (THR_FMT, WRD_S, WRD_7, WRD_9);
end;

CLR_MBUS;
MDA = _TST_PAT;

'CLEAR OUT PAT BIT
'WRITE 0DD PARITY CONTROL BUS

if .CPAR ]S_SET

'READ CPAR BIT CLEARED

then

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

9285 .ML4
g%gg ;
9288 ;

9289 :
9290 :

5182

9296 :

5190

9300 :
9301

ERRDF (8, ASYNC, DUMPER);
'ERROR IF SET
PRINTB (THR_FMT. WRD_6, WRD_?. WRD_9);
P

CLR_MBUS;

g}gg
5191
5192
5193

5199

9307 ;

§201

else

5204

ENDTST;

9318 032366
9319 032372

004167
005767

151466
157170

9321 032400
9322 032,04
9323 032410
9324 032416

012701 125252
012
000001
152
000040
016700 161160

gg}g :

9320 032376

9325 032422
9326 032426
9327 032434

5200
g%gg

001171

160532

9332
9333

10445
000007

9334

032462
032464

9335 032470

9336 032472
9337 032476
9338 032502

012746
012746
012746

$T10:

U
ST

BNE

160576
160560

000020

160546

000010

160554

18$:

006374
006344
006330

R1,$SAVE3
PAR.DIS
b} 3

1JUST PRINT MESSAGE IF PARITY IS DISABLED

:
:

5128
5159

: *,TST.PAT
i o« TWICE
:

5162
5164
5165

MOV
MOV
BISB
MOV

#-52526.R1
#1.R2
#40,aML .REG+40
e
RO

BISB

#20,aM.REG+40

;

5167

BITB
BNE

#10.
a4 .REG+60
23

5170

5173

.WORD

ASYNC

MOV
MOV
MOV

MARD.9,~(SP)
MRD.7.-(SP)
MRD.S.-(SP)

5174

BIC
BICB
BISB

MOV

TRAP
WORD

010464
024052

'REPEAT WITH SHIFTED DATA

PRINTB (TWO_FMT, WRD_7, WRD_53);

010177
132777
00102

'ERROR IF MCPE IS_SET

end

9329 032446

152777

in
ERRDF (9, ASYNC. DUMPER);

end’

1
0
000007
160554

9330 032452
9331 032460

'SEE IF GENERATED GOOD PARITY

TST_PAT = .TST_PATAQONE;

5198

042700
142777
150077

9308 032440

if .MCPE IS_SET

PRINTB (THR_FMT, WRD_6, WRD_7. WRD_8);
end:

9305 :

3% :

'READ A REGISTER FRQOM DUT

5194
5195

5196
5197

9306 :

SAVE = _MLDA;
then

9302 :
9303 :

9304

TOPS=-20 Bliss=16 Vv2(212)
PA:<NEALE>BLIM 4.BLI.2 (60)

baggn

5183
5184

5185
5186
5187

9297 9298 :
9299 :

SEQ 0216

25-0ec-1980 09:24:31
2-Dec=1980 09:21:22

9291 :
9292 :
9293 :

9294

.WORD

"
RO
#7.@3L.REG+40
RO,aML.REG+40

R1,3ML.REG+30
SS
7

DUMPER

. TST.PAT,»

MISCELLANEOUS oo

MACRO M1113

Lead ol

CZMABO mML-11 LOG

SEQ 0217

160460

A‘O.n.REG%O

’S:

160442

BIS8

160254

ZLLLEERD

81T
BEQ
TRAP

000002

007074
006344

ADD
ASL
INC

4(8:

BLE
5%:

RTS
MOV

MRD.6,-(SP)
ATHR.FMT ,~(SP)
#4,-(SP)

SP.RO

14
#12.5P
:‘40.31 égecu.o

: SP,»

” 7%6.!&0

87,3 .REG+40
RO ML .REG+40

am .REG+30,R3
zszoooo.in.kec

*,SAVE

NRD.6,-(SP)
#THR_FMT ,-(SP)
#6,-(SP)

v'm
14

#12,SP
21

RS.IZ
18

MRD
.53 ,-(SP)
MRD.7,-(SP)

SP,»
8,

BIC

160332

DUMPE
MRD.9,-(SP)
MNRD.7,~(SP)

e e B,y

FEEELLETY
B8ls8

PRER 5% a§§§w~3§§3§§3§:§sasas§

160350

N
owmn

&H
-2\

2 RAR20220920
ZRIBARFNO
RSN gz3
2R2838L2
NERE
R

s TST.PAT,»

160444

aQQQ

228
&
&SE W
012746

TOPS
PA:
<

SP,»

14
”2,SP

3 di§§3§ SNy

g 33 aRgass
fard

#THR
. FMT ,-(SP)
#6,~(SP)

SP.RO

—t ) =
-

22=-Dec—-1980 09:26:31
22-Dec=1980 09:21 :22

006034

000012

9393 032762
939%% 032766

1
J_
PAGE 230

MLG

9341
9

22-DEC-80 12:16

TST.PAT
TWICE
TWICE .,

5159

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

93%
333&?

K_.1
PAGE 231

SEQ 0218

JMLG
:

9399 032772
%00 032776

0
0

SRASEEEREREE

901

22-DEC-80 12:16

033012

033014
8%128

9%
9424 033022
9625 033024

gzgg 033026

012746
012746

010600
104414
062706
000207

006024
000003

MOV
MOV

MOV
TRAP
ADD

000010

RTS

#TWO.FMT,~(SP)
#3,-(SP)

SP.RO
14
#10,SP

004767
10464666
006000
103773
000207

177346

T10::
18:

JSR
TRAP
ROR
BLO
RTS

; Routine Size:

32232

6 words

5205

!<BLF/PAGE>

5128

5202

9 words

PC.$T10
66
RO
18
PC

;. Maximum stack depth per invocation:

TOPS
PA:<

; SP,»

; Routine Size:
139 words
. Maximum stack depth per invocation:

9428

9435
9636 ;

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

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

9438 .M
4
939 ;
9641
942

943

0bbd
9445
9646
b7
0448
9649

22-Dec~-1980 09:24:31
22-Dec-1980 09:21:22
5206
§207

:
;
;
:
:

9650 ;
9651 ;
9652 ;

9453
9654

94SS
9456 ;

9457 ;

9458

5208

5209
5510
§211
521§
521
5214
5215
5216
5217

5218
5219

5220
5221
§222

5$223

BGNTST:
tee
! TEST NUMBER:
TST 11
i
' TEST NAME:
MEMORY SIZING TEST
i
‘ TEST DESCRIPTION:
!
i
THIS TESTS THE ML11'S SIZING
i
LOGIC BY COMPARING THE
|
OPERATORS INPUTED NMUMBER OF ARRAYS

i
i

PRESENT TO THE ML11 SIZING
NUPBER OF ARRAYS PRESENT

THE DRIVE 1S DROPPED ON DETECTED SRRORS.

i IMPLICIT INPUTS:

5224
5225

!
1

OP_NUM_ARR:

62 ;

5227

STORES OPERATORS INPUT TO THE

9463 ;

5226

LOKDED DURING INIT CODE AND

5228

%6S
%66 ;
%67
%68 ;
969

5230
5231
5032
5233
5234

|
|
i~
local

9671 ;
9672 ;

5236
5237

BGNSUB.

9664 ;

970 .
9%73 :

9474 :

9675 ;
9476 ;
%77 ;
9478 ;

5229

5235

5038

5239
5240
52641
5242
5243

SOFTWARE QUESTION:

NUMBER OF ARRAYS PRESENT?

DODU_FLG.;

'‘DROP UNIT FLAG

CLR MBUS;
D(DU FLG
= ZERO;
1if (.OP_NUM_ARR + 1) neq -ML_NUM_ARR
then
bm?

§$244

%81 :

5246

PRINTB (FMT 2, (.OP_RUM_ARRTM+ 13, .ML_NUM_ARR):

5248

end;”

982 .

9483

5245

PRINTB (TKJ FMT, FNC 1, WRD_14);

§247

5249
5250

ENDSUB;

9488 :

5253

then

9489 ;

3550 {f . .DODU_FLG
IS_SET
_FL
5254

9490 ;

5255

9492

5257

%91 ;

5256

'IF NOT EQL THEN ERROR AND SET DODU_FLG

DODU_FLG = DNE;

9484 ;
%8S ;

%87 M

(10, ASYNC, DUMPER);

'SEE IF DRIVE SIZED SAME NO. OF ARRAYS AS OP INPUTED

9679 ;

9480 ;

TOPS=20 Bliss=16 V2( 212)
PA:<NEALE>BLIM 4.8LI1.2 (61)

!
!

9459 ;
9460 ;

9661 ;

SEQ 0219

gg&n

CML_LUN)

DOCLN;

end;

!DROP THIS UNIT IF

DODU_FLG IS_SET

CZMABO M -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

M1
PAGE 233

949 M4

22=-Dec~1980 09:24:31

g:gg :

20-Dec-1980 09:21:22

9497
9498 :

5258
5259

9506:20

9507
9508
9509
9510 033050
9511 %
951;
951 osso%
9514 033070
9515 033074
9516 033076
9517 033102
9518 033106
9519 033106
9520 033110
9521 033112

033120

9524 0331%%
9525 033154

ENDTST:

004167 151024

10«.;9;
152
016701
042701
162777
150177
005002
016701
005201
017703
006203
006203
006203
00C303
042703

955 033116 010100
9523

SEQ 0220

000040 160150
160532
*77770
C.0007 160132
160126

156464
160172

177740

012746

9534 032156

1046414

R1,$SAVE3

TRAP
BISB
MOV
BIC
BICB
BISB
CLR
MOV
INC
MOV
ASR
ASR
ASR

2
#40,aML.REG+40
M. DUT R
:179976.::1
#7.aML.RE5+40
R1.aML.REG+40
R2
0P .NUM.ARR,R1
R1
@M .REG+120,R3
R3
R3
R3

MOV

R1,R0O

SWAB
BIC

TRAP

9526 0331;16 000012

9531 033164

JSR

BEQ

104455

010464
024052

001444

9527 033130
9528 033132

$T11:

MORD

"WORD
. WORD

;

5204

; DODU.FLG
:

5239
5241

:
:

RO.R3

pe
5§

5244

ASYNC
DUMPER

MOV
MOV

MARD.14,~(SP)
#FENC.1,~(SP)

;

9532 033150 012746 000003
9533 033154 010600

MOV
MOV

#3,-(SP)
SP.RO

; SP,»

9535 033160
9536 033164
9537 033166
9538 033170

MOV
ASR
ASR
ASR

aML .REG+120,R3
R3
R3
R3

MOV

R3, (SP)

TRAP

9539 033172
9540 (7317%

9541

017703
006203
£u6203
006203
000303
042703

0 010316

954_%0 202
9543 33
9544 UTZ210
9545 253214
9546 033220
9547 033222

160110

177740

016746 156352
;16
012746 004266
012746 000003
010600
104414

MoV
TR

SWA8
BIC

MOV
INC
MOV
MOV
MOV

5235
5237

R3
#177740.R3

35&9)033134 012746 006442
033140 012746 007726
006024

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>BL3IM 4.BLI.2 (61)

5245

#TWO_FMT ,-(SP)
14

;

R3
#177740.R3

OP .NUM.ARR - (SP)
(SP)
NFMT.2,~(SP)
#3.-(SP)
SP.

; SP,»

5246

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

9549
9550
3251

MACRO M1113

SEQ 0221

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

000001
000016

9554
955S
9556
9557
9558
9559 033246
9560 033252
9561 033254
9562 033256
9563

160326

RTS

177544

9586
9587
9592

T11::
18:

JSR
TRAP
ROR
B8LO
RTS

! <BLF/PAGE>

5247
5243
5248

;

5252

DODU.FLG

11 words

PC.$T1
66
RO
18

5257

Routine Size:
6 words
. Maximum stack depth per invocation:

5260

; *,DODU.FLGS

5204

: Routine Size:
76 words
s Maximum stack depth per invocation:

75
9579 033260
9580 033260
9581 033264
033266
9583 033270
9584 033272
9585

T0PS
PA:<

5255

38:

9564
9565
9570
957

——

PAGE 234

JMLS

9593
9594 ;

22-DEC-B0 12:16

0 words

TEST

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

CZMABO ML-11 LOGI C
MISCELLANEOUS C o0l NG SEC TION
9596 M4

-Dec=1980 09:21:22

9599
9600 ;
9601 ;

5261
52
52

!
!
BGNTST;

9603
9604
9605
9606
9607

5265
5266
5267
S268
5269

!4+
! TEST NUMBER:
|
| TEST NAME:
|

5271

5074

.
;
;
;
;

9608 ;
9609 ;

9610 ;
9611 ;

9612 ;

5264

5270

527
52

A NO_OP FUNCTION IS WRITTEN

9618
9619
9620
9621

5080
5281
52
52

|
'
‘
]

9622

9623
9626
9625
9626
9627

5284

;
;
;
;

5085
5286
5287
5288
5289

9629 ;

5291

9628

9630
9631
9632
9633
9634

5290

NO=-OP FUNCTION TEST

TEST IF THE DRIVE CAN PERFORM
A NO OP FUNCTION WITH OUT

!
|

:
;
;
:

TST 12

i
i

5275
5276

5277
5278
5279

HANGING THE DRIVE.

'
‘
'

INTOTMLCST.
THEN GO AND ERROR BITS ARE
CHECKED FOR CORRECT STATES.

THIS UNIT IS DROPPED ON DETECTED
ERRORS
.

' IMPLICIT INPUTS:

|
|
i—

NONE

local

DODU_FLG:

'DROP UNIT FLAG

;

529
5293
529
5295
5296

DOD0 FLG = ZERO;
MLCST = NOOP;

'DO A NOOP FUNCTION

9637 ;

then

if .GO IS_SET

'SEE IF GO STILL SET

;

9635
9636 :

5297
5298

9638 :

9640 :

530

9639

9641 ;
9642 ;

9643 ;
9644 ;
9645 ;

9646 ;
9647 ;
9648

9649 :
9650 ;

5301
530
5304
5305
5306
5307

5308
5309
5310

5311
5312

TOPS-20 Bliss=16 Vv2(212)

PA:<NEALE>BLIML .BLI.2 (62)

' TEST DESCRIPTION:

9613 .
9614 ;

9615 ;
9616 :
9617 :

SEQ 0222
5 -Dec-1980 09:24:31

ggg :

960% N

CLR

;

DELAY (ONE US)

b;go

F (11,

ASYNC, DUPER)

'DELAY 1 US

'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;
it .ILF IS_SET
then

b;ggn
F (12, ASYNC, DUMPER);

'SEE ILF SET

'!ERROR AND SET DODU_FLG IF SET

PRINTB (FIV_FMT, WRD_3, PHR_S. WRD_11, FNC_2. WRD_19);

DODU_FLG
= ONE;
end;”

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

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

RERRESLES

%S§ MG
96SS
9654
9655 ;

9657 ;

SEQ 0223
ZS
-Dec=1980
09:24:31
~Dec-1980
09:21:22

5313
sgw.
5315
5316
§317

5318

5319
5320

if .OPI IS_SET
then
b;go
F (13, ASYNC, DUMPER):

gs}sé

:f.DODU_FLG IS_SET

2328

004167

150544

10«;9;
52

000040

157702

142
000007
150177 157660
a

157664

160264

042701 177770
g
000001
¢ 2700 000001
Hi410
16701

16%

146540

;gg

132777

010464

024052

$T12:

JSR

R1,$SAVE2

;

5259

18:

TRAP
BISB

2
#40.aML. REG+60

;
;

5290
5292

157554

-($P)

T.R

B8IC

7‘7’976R1

2s:

MOV
MOV
BEQ

#1,3ML .REG
#1.RO
ss

8I(8
BIs8
CLR

48:

000001

MOV

157610

005301
001375

001430
104455
000013

'DROP THIS UNIT IF DODU_FLG IS_SET

85& (.ML_LUN);

ENDTST;

016701

'ERROR AND SET DODU_FLG IF SET

oocuu

5331

005746

1SEE IF CPI SET

DODU_FLG
= ONE;
end;”

ENDSUB;

5327

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

PRINTB (FIv_FMT, WRD_4, PHR_S, WRD_11, FNC_2, WRD_19);

g}zg
5326

9705 033410

5$:

MOV

aML .REG+40
m a REG+40
R2’

: DODU.FLG
:
; v, 88TMP2

LSDLY.R1

; *,$8TMPI

DEC
BNE

R1
3s

. SSTMPY

Rzg

; SSTMP2

BITB

#1.aML.REG

;

5298

;

5301

ggc

BEQ
TRAP
LWORD
JWORD
.WORD

63
S5
13

ASYNC

DUMPER

ssTP

—

CIMABO M. -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

0.2
PAGE 237

22-DEC~80 12:16

SEQ 0224

5 RUAIIZECY

5302

I <

oogggooo

; SP,»

§ol

[

5306

DUMPE
ARD.19,-(SP)

5310

2,~(SP)

FRT,=(SP)
$P)

IIRC2X

» . u‘O-n

ARD.11,~(SP)

:; SP,»

: »,DODU.FLG

-SML .REG+60

%
3

; SP,»

age

22 8

- O

R L L EE

3 285

g-‘-‘-‘

O=200000

5318

000001
000016

157720

5311
S
5314
531

006506
007742
007472
006322

5303

5309

Sg:&a 3

7%:

; *,DODU.FLG

-t

63:

S L LLEEELL S

jolele)
Lad nd

000

1575644

157454

9759 0334652
9760 033654
9761 033660

TOPS
PA:
<

§38 28

—nols

22-Dec-1 980 09:24 3
22-Dec-1 980 09:21 :22

JMLG

. «,DODU.FLG

5319
5316
5320

: DODU.FLG

5324
5327

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

9763
g;gg
9766 033662
9767 033664

g;gg 033666

104444
005726

9s:

000207

9787 033674
9788 033676
9789 033700
gg 033702

TRAP
TST

RTS

44
(SP)+

126 words

; Maximum stack depth per invocation:

004767
104466
006000
103773
000207

177400

9792
87733
9800

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

; Routine Size:

9786 033670

SEQ 0225

H, ¥}
:

9770
9777
9781
9785 033670

T12::

1$:

JSR

TRAP
ROR
8LO
RTS

5332

!<BLF/PAGE>

§259

5329

11 words

PC,LT12
66
RO
18
PC

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

TOPS
PA: <

0 words

Pa—

MACRO M1113

CZMLABO ML-11 L 06l C TE ST
MISCELLANEOUS C oDl NG
S3 CTION

22-DEC~80 12:16

F_2
PAGE 239

-t

TOPS-20 Bliss-16 2(212)
PA: KNEALE>BL3M
4
1.2 (63

]

BTST;
X

TE ST NUMBER:

TST 13

TE ST NAME:

WRITE CHECK FUNCTION TEST

TE ST DESCRIPTION:
TEST IF THE DRIVE CAN PERFORM
A WRITE CHECK FUNCTION WITHOUT
HANGING THE DRIVE.

00NN

L\:W
J& VH WA= O

auauawgafigrgrw §§§§§§§%

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

A AN

%0909 %003%0 09099990
W 000,00 By 00, 00 09099, 0, %0 8,09 % 900099 009 %0099 %00, %%, 9% 08¢ %5 025%: 0990

OOV
NN =0

Lol 228882888 SRERNHE

m%lll.

SEQ 0226

A WRITE CHECK FUNCTION IS WRITTEN

INTO MLCST.,

THEN GO AND ERROR BITS ARE

CHECKED FOR CORRECT STATES

loca (

DODU_FLG;

!DROP UNIT FLAG

CLR Feus

pob0 FLG
= ZERO;
FIRSY BLK_XFER 0:;
MLCS 17= WRT_(HK;

!SET UP A FIRST BLK XFERR
!D0 A WRITE CHECK FUNCTION

it . GO IS_NOT_SET
then
in

gagbf (14, ASYNC, DUMPER):;

PRINTB (FIV_FMT, WRD_1, PHR_1, WRD_12,

!SEE IF THE GO BIT GOT SET

if .DRY IS_NOT_SET
then
in

?iflor (15, ASYNC, DUMPER);

!ERROR IF NOT SET

FNC_4., WRD_19);

PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_43,

!SEE IF THE DRY IS SET WHILE GO IS CLEARED

‘ERRU! IF CLEARED

. PHR_6);

else

DODU_FiLG = ONE;
end

ISET DODU_FLG

if .DRY IS_SET
then

!THE GO IS SET SO SEE IF DRY IS CLEARED

8
ERRDF (16, ASYNC, DUMPER);

!ERROR IF DRY IS SET

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

CZM ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

%58
9859

2
SEQ 0227

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

TOPS-20 Bliss-16 2 212)
PA:<NEALE>BLIM
4.8L1.2 (63)

PRINTB (FIV_FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_S);

_FLG = ONE;

if JILF
then

IS_SET

'SEE IF ILF

b;gw (17, ASYNC, DUMPER);

IS SET

'ERROR |F SET

PRINTB (FIv FMT, WRD_3, Pm S, WRD_12, FNC_4&, WRD_19);

DODU_FLG = ONE;

end;
if .OP1
then

IS_SET

!SEE IF OP]

b&%r (18, ASYNC, DUMPER);

PRINTB (FIV FMT, WRD_4, Pm 5, WRD_12,

DODU_FLG = ONE;
end;”
DELAY

(FRTY_US).

IS SET

'ERROR IF SET

FNC_4, WRD_19);

'WAIT FO XFERR TO COMPLTE

Hm.‘DRY IS_NOT_SET

!SEE IF DRY IS SETS AFTER XFERR

begin
1'f‘.GO IS_SET

'IF DRY IS NOT SET THEN SEE IF GO IS SET

then
in

CLR_MBUS.
if

'IF

.GO IS_SET then ERRDF

THE GO IS SET THEN TRY TO CLR GO

(19, ASYNC, DUMPER) else ERRDF

(20, SYNC, DUMPER);

1IF GO IS STILL SET THEN ASYNC FAILURE
PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19);
TELSE SYNC MODLE FAILURE

else

?;§DF (21, ASYNC, DUMPER);

'ERPIR GO AND DRY BOTH CLEARED

PRINTB (FIV_7MT, WRD_2, PHR_1, WRD_11, FNC &, WRD_19);

DODU_FLG = ONE:;
end;

!SET THE DCDU_FLG

.GO IS_SET

'SEE

then

CLR_MBUS.;

if .GO IS_SET then ERRDF

THE GO IS STILL SET

'TRY TO CLR GO IF STILL SET

(22, ASYNC, DUMPER) else ERRDF

(23, SYNC, DUMPER);

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

H 2
PAGE 241

SEQ 0228

9914 M4

2-Dec~1980 09:24:31

g;g ;
917 ;

9918 :
9919 :
9920 ;

9921
9922
9923

:
:
.

9924 :
9925

9926 ;

2-Dec=-1980 09:21:22
5437

5438
5439
5440
5441
5442
544

5444
5445

5446

'IF GO IS STILL SET THE ASYNC FAILURE

mnra (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19);
DODU_FLG = ONE;
end;"
u .DODU_FLG IS_SET
880

5447

gg; ;

5451

ENDTST;

004167

150134

9939 033704

9940 033710
991 033712
033714

9943

033722

5448
5449
5450

9945 0

9946 033740

157272

142777

000007

157254

150177

9947 033744 oosoo;
998 033766 004767
99 033752 012777
9950 033760

132777

9952
9953
9954
9955

104455
000016
010464
024052

9951 033766 001057
033770
033772
033774
033776

9956 034000
9957 034004
9958 0346010
9959 034014
9960 034020
9961
4

$T13:

000040

157656

9944 ag% 042701 177770

012746
012746
012746
012746
012746
012746

157250

162066
000051
000001

157174

157166

006506
007756
006426
007366
006276
006062

9966 034066

001056

9965

034040

9967 034050

132777

104455

000200

TST
TRAP
BISB

157156

R1,$SAVE2

=-(SP)
2
#40,amL. REGMO

MOV

BICB

:7 aML. REG+40

BIC

BISB

CLR
JSR
MOV

BITB

BNE

7%6R1

R1.aML.REG+40

R’
PC,FIRST.BLK.XFER
#51,aML .REG
#1.3ML.REG

28’

55
16
ASYNC
DUMPER

;

5331

;
:

5355
5358

: DODU.FLG
:
:

53601
5361
5362

;

5367

5368

MOV
MOV
MOV
MOV
MOV
MOV

MRD.19,-(SP)
#FNC.4 ~(SP)
ARD.12,-(SP)
MPHR.1,~(SP)
ARD.1.~(SP)
SEIV.FMT,=(SP)

;

MOV

SP.,

: SP,«

BITB

#200,aML.REG+SO

;

TRAP

MOV

034034 010600
104414

1$:

JSR

TRAP
WORD
JWORD
.WORD

9962 osl.oio 012746 000006
9964 074036

'DROP THIS UNIT IF DODU_FLG IS_SET

( ML_LUN);

005746
10447%
152

016701

TELSE SYNC MODULE FAILURE

ENDSUB;

9927 :
9928
9929 :
9930 ;

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>BLIM 4.8BLI.2 (63)

TRAP

BNE

#6.,-(SP)
14

5364

5370

5373

CZMABO ML-11 LOG IC TEST

MISCELLANEDQUS CODING SECTION

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

2
SEQ 0229

9969
9970
P

22-Dec-1980 09:24 : 3
22-Dec-1980 09:21 : 22

TOPS
PA:<

99;; 034052

RR
£
Gk
5 &% Rt 2 ik NIFBRERLESRERX
RIS RSR

9973
034054
9974
9
9976 0
9977 0340

5374

9978 034074

Ix
000001
000016
020000

156722

5%:

37
P

¥ R BLT v
[

JFAT.,=(SP)
(SP)

SP,«
* DODU.FLG

-REG+60

5386
5383
5389
5392

DUMPER
MRD
. 19,-(SP)
SP)

5393

g <

007472
006314
006062
000006

5385

]

006506
007756
006426

.~(SP)

2283:-\-”a&2 Z

4$:

5384

.2.~(SP)

FMT ,-(SP)
SP)

157012

.REG+50

5 NURNRNFERY

3s:

5372
S377
5381

Koy

2s:

157072

NAGRRRZORY

000022

000016

THEFLLEEELEE
s L L EEEELLL 58

EY T

000000

D e cd e

D e

e e

)

D o

SSTREEREEEEREECCE
B
AR R AR R i3

9979 034100

.aML .REG+60

=
SP,

*,DODU.FLG

5394
539N
5397
5400

CZMAB0 ML-11 LOGIC TEST

22-DEC~B0 12:16

PAGE 243

SEQ 0230

4, T

O
S NN5- mo—0y
[gV]aV] Mm[VLV"4 -— mw

e3yesOM«N2”5[v

S A3SESEREX3%A3&SAp 5N§ARNbRA3s¥a

m
SRR
w
m
m
w
m
m
w
m
m
m
m
m
it

MISCELLANEOQUS CODING SECTION

MACRO M1113

8 <

wuw mwmmm

wmmm

OoON

034520
34522

883885R8E5R3ICOLR BT

010526
024052

223

L
*
‘
t
)
e
a
mEFTSR3Ov[wnuBQSN-R.N>0e86mn gw+O(J

156454

HORD

82358

11%:

12%:

AG2o

ASYNC

DUMPER

121

5419

& —

%
3
3

157126
§
W
R
000001

m Wm m mim mw

:
:

152

§ b
mm
BR

£x

034442

R3R

R
SAARAAARE JoEXERRTRRRS mm

552

-l (T

ooclo

I .FMT,=(SP)

a .

888

S
s
e
a
c
a
n
a
t
a
n
e
n
s
y
n
s
n
e
t
s
®
s
~ . . u0w[Lei]ew]VeWo WO xN¢+~ Xx oP[Io-S|~-~

;

SP.»

541

2Mm].¢°l,o.wmozwwwa
-;.=P3P%Po&PP22P75LP2e5no3P1PP%PPPPPNPeSkrNTexSoETAoONoTSkLPmEPFtimrtrmPaaPvmtett.etPP&.
008010

0?2777 000040 156330

350
1455

016701
042701
142777

000016
000001

156300

156712
177770
000007

156312
158:

TLI
\I\I) )w

Z0Na./s w»

3I5<350

5 X3 2

CINABO ML-11 LOGIC TEST

8= B o.

i
|

——AN
AN

;
2
o
m
8 2 ® 2 2 8¥ 2

g33ITRx3dT4LX1msns1sLnuwnmwmTmmNmwmNmmmmsmmmwmO
MISCELLANEOUS CODING SECTION

3 o22 22 3-

wQ4vTNVM

CZMABO ML-11 LOGIC TEST

RISCELLANEOUS CODING SECTION

10137
10138
10139
10140 035034
10141 035036
1014§ 035040

1014
10144
10145
10150
10151
10155
10159 035042
10160 035042
10161 035046
1012% 035050
10163
035052
1064 035054
10165
10166
10167
10172
10173

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

2
SEQ 0232

H, ¥4
104444

208:

000207

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

RTS

TST

(SP)+

: Routine Size:
303 words
)
: Maximum stack depth per invocation:

004767

104466

176636

006000
103773
000207

T13::
18:

#E:P

22.8713

ROR

RTS

B8LO

5452

' <BLF /PAGE>

5351

18 words

5449

: Routine Size:
6 words
.
. Maximum stack depth per invocation:

TOPS
PA:<

0 words

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC~80 12:16

L4
PAGE 246

10176 ;ML

22-Dec=1980 09:24:31

}8};78 :

22-Dec=1980 09:21:22

10179
10180
10181
1013%
101
10184
1018S
10186
10187
10188

;
;
;
:
:
;
;
:
;
;

5453
§4564
5455
5456
5457
5458
S459
5460
5461
gzg%

!
BGNTST;

HANGING THE DRIVE.

10191

;

5465

A WRITE FUNCTION IS WRITTEN INTO MLCST.

10194 ;
10195 ;

5468
5469

local

sS4
56472
5473

BGNSUB;
CLR _MBUS:

}8}% :
}8}8% :

10196 ;

10197 ;
10198
10199 .

10200 ;
10201 ;

10202 :
10203 ;
10204 ;
10205

55%

5470

5474
$475

5476
S477
5478
5479

10206 ;
10207 :
}m0209 M

5480
5481
g%

10210
10211
10212
10213

5484
5485
5486
5487

;
;
:
;

10214 :

5489

10217 ;
10218 ;

5491
549

10220 ;
10221 ;
10222
10223
10224 ;

5494
5495
5496
5497
5498

10219 ;

10225 :

5499

10227 ;

5501

10226 ;

10228 ;
10229
10230 ;

CHECKED FOR CORRECT STATUS.

DODU_FLG;

DODO _FLG = ZERO:
FIRST_&K-XFER Q)

MLCS1 = write;

if .GO IS_NOT_SET
then

5500

5502
5503
5504

THEN GO AND ERROR BITS ARE

THIS UNIT IS DROPPED ON DETECTED ERRORS.

'DROP UNIT FLAG

ISET UP A FIRST BLOCK XFERR
‘DO A WRITE FUNCTION

'SEE IF THE GO IS SET

b;g&?
'ERROR ]F NOT SET
E
(24, ASYNC, DUMPER);
PRINTB (FIV_FMT, WRD_1, PHR_1, WRD_12, FN(C_5, WRD_19);
if .DRY IS_NOT_SET
then
b;gfi’n
€
F (25, ASYNC, DUMPER);

'SEE IF DRY SET WITH GO CLEAR

PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6);
H

5490

5493

TOPS=20 Bliss=-16 v2(212)

PA: CNEALE>BLIMLS.BLI.2 (64)

!4+
! TEST NUMBER:
TST 14
!
! TEST NAME:
WRITE FUNCTION TEST
!
! TEST DESCRIPTION:
!
TEST IF THE DRIVE CAN PERFNIRM A WRITE FUNCTION W]THOUT

5488

10215

10216 ;

SEQ 0233

else

DODU_FLG = ONE;
end

.
if .DRY IS_SET
then
b;agn
ERRDF (26, ASYNC, DUMPER);

'SET DODU_FLG
!GO IS SET DURING FUNCTION

'SEE IF DRY CLEAR WITH GO SET

'ERROR IF SET

PRINTB (FIV_FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_S);
DODU_FLG = DNE;

end;

if .ILF IS_SET
then

'DID FUNCTION CAUSE ILF

MACRO M1113

CORABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

SEQ 0234

S -Dec-1980 09:24:31
-Dec=1980 09:21:22
WAV AWMV
AN
vivaoarviviwvuiiuaviuaniaivvaiaaoa

b;gg?

(27,

TOPS=20 Bliss=~16 v2(212)
PA: NEALE>BLIML4L.BLI.2 (64)

'ERROR IF YES

ASYNC, DUMPER);

PRINTB (rfvFMT, ‘WRD_3, PHR_S, WRD_12, FNC_S., WRD_19);

NO NN
—O

DODU_FLG
= ONE;

= OV

FRERE RS SIS &R2

SeVe e u,0,4%;0, .l‘..‘...,.u Ve 0y %0060, 05 08¢ 03900090080 %03 %095 80%0%0000,9%00; %0000 0;8:02:00%09:0080000, 0,

R eRRRRReRRRRRRRRR
3
g

EoEn

o
N
|9,]
W

Ro
2

N 2
PAGE 247

102
102

22-DEC-B80 12:16

end;
it .0P1
then

IS_SET

b;gg?

IDID FUNCTION CAUSE OPI

!ERROR IF YES

(28, ASYNC, DUMPER);

PRINTB (Fiv FHT WRD_4, PHR_S, WRD_12, FNC_5. WRD_19);
DODU_FLG
=
end;
DELAY

(FRTY_US):;

'WAIT FOR XFERR TO COMPLETE

:'fm.‘DRY IS_NOT_SET

'SFE IF DRY CLEARED AFTER XFERR

begin
if .GO IS_SET
then

'TST GO CLR IF DRY NOT SET

CLR_MBUS.;
if

'CLEAR (O IF STILL SET

.GO IS_SET then ERRDF

(29, ASYNC, DUMPER) else ERRDF

(30, SYNC, DUMPER):

'TST GO TO DETERMINE FAILING MOD
mNTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19);

else

'DRY NOT SET WD GO CLEARED

b;gsn

ERRDF (31, ASYNC, DUMPER):

'REPORT ERROR

PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_11, FNC_S5, WRD_19);
DODU_FLG = ONE;
end;

!SET DODU_FLG

if .GO IS_SET
then

'SEE IF GO CLEARED AFTER XFERR.

CLR_MBUS;
it .G0 IS_SET then ERRDF

‘CLEAR GO IF STILL SEY
(32, ASYNC, DUMPER) else ERRDF

PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11,

DODU_FLG= ONE;

5555

5556

end;

ENDSUB.;

(33, SYNC, DUMPER);

'TST GO TO DETERMINE FAILING MOD
FNC_S,
_19;

CZMABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

10288 M4

-Dec-1980

}852% ;
10291

SEQ 0235

:24:31

;

5557

gggg

:f.TRE IS_SET

10294 :

5560

ggg

PRINTB (SIX_FMT, WRD_61. \.ho 20, PHR_S, WRD_12, FNC_S, WRD_19);

118535 :

10295 :

10296 :

10297 :

2561

'SEE IF XFERR CAUSED A TRANSFER ERROR

DODU_FLC = ONE;

5564
5565
5566

1{f .DODU_FLG IS_SET

10308 :

23265

DU (ML

:
.

10304 :

10305 :
10306 :

}8%); :

§570

5571
ss;g

5573

end;

DOCLN;
;

ENDTST:

146762

10318 035066

000040

10447%

10319 035074

016701

152

10320 035100

042701

10323 035116

oosoo;

10321 035104
10322 035112

156502
177770

142777
150177

000007
156076

10324 035120 004767
10325 035126 012777

160714
000061

10326 035132
10327 035140

132777
001057

10329 035144

800030

10328 0351642

10330 035146
10331 035150

10332 035152
1
035156
10334 035162
10335 0351
10336 0351
10337 0 sgs
10338 035
10339 035206
10340 035210
10341 035212

000001

$T14:
156120
156102

156022
156014

104414
132777

Ri,S$SAVE2
-($P)

;

5451

BISB

#40,aML.REG+40

5470

BIC

Pibéead
R2’

: DODU.FLG

5474

M am REG

TRAP

MOV

BICB
BISB

JSR
MOV

BITB
BNE

TRAP

WORD

010464

012746
012746
012746
12746
12746
12746
12746
010600

1$:

JSR
ST

CLR

104455

024052

'DROP THIS UNIT IF DODU_FLG SET

10315 035056 004167
10316 0
005746
10317 0

'REPORT ERROR IF SET AND CONTINUE TEST ING

(115, INTER, DUMPER)

10298 :
10;33 :

10300

TOPS=-20 Blise~16 Vv2(212)

55-0«-1980 :01:22 PA:NEALE>BLIM 4.BLI.2 (64)

CWORD
.WORD

006506
007774
006426
007366
006276
006062
000006
000200

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
156004

TRAP
BITB

M % R1

5472

#7.aML.REG+40
R1.aML .REG+40

PC,FIRST. su< XFER
#61,am .REG
5

ASYNC
DUMPER

ARD.19,-(SP)
#ENC.S ~(SP)
MRD.12,-(SP)
MPHR.1.=(SP)
MARD.1.~(SP)
mvrfln ~(SP)
#6,=(
SP.RO

14
#200,aML.REG+50

;
:

5475
547

;

5481

5482

; SP*
:

5484

—

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

10397 035464

000001
000016
020000

155550

S$:

3
KUGY fi;:%&% 53883

BLx,

b
o

3532 1:

[
A4

LYK

I <

5507

.@ML .REG+60

SP..

*,DODU.FLG

006506
007774
006426
007472
006314
006062
000006

5506

-—d

10381 035376
10
035400

4$:

5
5497
5503

£ :

155640

*,DODU.FLG

3s:

SP‘.

000016
000001

5499

:BZ BL<
g3

000001

5498

48.-(sP)

10374 035

10375 035%?3

5486
5491
5495

006754
007404

5488

ZUARIINZERS
2
2R 3 N;\)

x:uuw
NN

007472

TOPS
PA:<

5487

.REG+50

& Soo
ro

28:

1 L L EEEEELLTY58 R
L ELLLE Y

155720

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

g 233533323383,

000016

R8I

ALALA A A LAA VAV AVIWVAVAVA VIVIWAWNUAWAWIW

Gae

]

b e

) b b
i

) D

(=]

Qa28a L
Al
o§o§ooo
gwuu
338 EERETEL —-O0
SIXRRIG2E
v
& SReaaaees

e e e
D ad )

0000

) D ) i e
e
- -

333
b

jole]

A A A A

JMLG

SEer

10345

SEQ 0236

19,

}OéS

VIWAVA

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TESY
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 250

3
SEQ 0237

RNALA] sRRA[SRER3R&xmmA3mw3mSRR
wLLi TaRQmRAeyMASTGMYOAMPOwwwmwewwwmm A

M R 8K8 o) © 3

9%:

132777

000200

155422

28035606

132777

000001

155342

w3omwm3ow&uw3ss

142777

000007

155354

012746

LY.R1

5574

wwn
=

x_gananomsdoKseRpyx!g82oAErgeid,

5& 355 %o : 2 A2 « & G« 5855

od.I\e|-.la\l\.n[o"aleo[W\TMXla)&xeaOX-nWRnWs.Mgi(,72172g17Re=.I\g..l\li\.oWew

[Tal [ nWW al’alal[ wn\ wn

o(iP=geOT7 wmSNaoEwam8mamERo1mYom

63
7%

108

118

006506

12%

-o

EEo

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

3
SEQ 0238

sMLG

:26:31
22-Dec-1980 09:2
22-Dec=1980 09:21:22

88 g 2552 2 NB2L¢ seRi 2

Bam m m m mun a.n 1fiwm ns0Lio

LTLTLeiKSRopmareRndPoR5TIT5IR5L

ELoeasdknldSLMmRmwmw%mTPg(GebaERSn

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

Ss s

8od

TOPS
PA:<

525
537

5538

: SP,»
.

.’

.FLG

5546

2m«wunwmIREH5

5541
5523
5544

V. m

(SP)

39887

.19,

5549

5552

11 -(SP)

HT.-(SP)

l40000.3l.REG

; SP,»

; »,DODU.FLG

5553
546
554

5558

CZMABO M. -11 LOGIC TEST

MISCELLANEQUS CODING SECTION

10511
}g}g
10514
10518
10516
10517
10518
1051

10520
10555
105
10524
10521

10525
10526
10527
10528

105?6

1044(53
1
01067%
02405
012746
12766

012746
010600
106414
012702

0065
007774

104451
1046444
005726
000207

016700

000001

208 :

MoV
MOV
TRAP
MOV

#7,-(SP
SP.RO
14
# ,R2

DEC
BNE

MOV

21%:

TRAP
TRAP
TST
RTS

: Routine Size:

]'0539

SEQ 0239

004767
104466
006000
103773
000207

176542

T14::
18:

JSR
TRAP
ROR
8LO
RTS

TOPS
PA:<

5561

5562

ARD.12,-(SP)
#PHR.S = (SP)
MRD .20 ,-(sP)
MRD.61,-(SP)
#SIX.FMf,-(SP)
: SP,»
: *,DODU.FLG

#20,sp
R2
218

51
44
(SP)+
PC

333 words

5560

5569

5451

5571

5566

18 words

PC,8T14
66
RO
18
PC

. Routine Size: 6 words
; Maximum stack depth per invocation:

5563

: DODU.FLG

ML.LUN,.RO

;. Maximum stack depth per invocation:

10545
10549

10560
10561

5§
163
INTER
DUMPER
MNRD.19,-(SP)
#FNC.S, =(SP)

ADD

155300

10538

TRAP
.WORD
.WORD
. WORD
MOV
MOV

MOV
[ 02"
MOV
MoV
MOV

000007

062706 000020

105
10534
10535
10536

10553 036310
10554 036310
10555 036314
10556 036316
10557 036320
}82;8 036322

PAGE 252

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

12766 006426
12766 007472
31 76 006514
12746 007174
012746 006100

005302
001004

10537

22-DEC-80 12:16

H, ¥
:

105
10531

105%

MACRO M1113

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

10572 ;

5574

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

! <BLF/PAGE>

3
SEQ 0240

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

10576 M4
1855;2 :
10577
10578
10579
10580
10581
10582
10583
10584
1058S
10586
10587
10588
10589
10590
1059
10592
10593
1059

;
;

;

;
:
.
;
;
;
:
;

557§
5576
SS77
5578
5579
SS80
5581
553
SS
5584
5585
5586
5587
5588
5589
559C
5591
5592

5593
5594
5595
5596
5597
5598

10602 ;

S600

5599

10603 ;

5601

10605 :
10606 ;

5603
5604
S605
5606
$607
S608

10604 ;

10607
10608 ;
10609 ;
10610 ;

S602

10611 ;

$609

}82}2 ;

22}3

10612 :

10615 ;
10616 ;
10617 ;

10618 ;
10619 :

10620 ;
10621 ;

10622 :
10623 ;
10624 ;
10625
10626 ;
10627 ;
10628 ;

SEQ 0241

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

10595 ;
10596
10597 ;
10598 ;
10599
10600

10601 ;

H 3
PAGE 254
TOPS=20 Bliss =18 V2(212)
PA: NEALE>BLIMLL.BLI.2 (65)

!
!
BGNTST;

!+e
! TEST NUMBER:
TST 1§
!
! TEST NAME:
READ FUNCTION TEST
!
! TEST DESCRIPTION:
!
!
TEST IF THE DRIVE CAN PERFORM
!
A READ FUNCTION WITHOUT
!
HANGING THE DRIVE.
!
!
A READ FUNCTION IS WRITTEY
!
INTO MLCST
!
!
!
!
!~

THEN GO AND ERROR BITS ARE
CHECKED FOR CORRECT STATES.

local

DODU_FLG.

'DROP UNIT FLAG

CLR MBUS:

DpOD0 FLG = Z2ERO;
FIRSY BLK_XFER ();

MLCS1 = read:

'SET UP A FIRST BLK XFERR
'DO A READ FUNCTION

if .GO IS_NOT_SET
then

!SEE IF GO GOT SET

b;ggn

'ERROR IF CLEAR

5610

5613
5614
5615

it .DRY IS_NOT_SET
then

'TST DRY SET WITH GO CLEAR

DODU_FLG = ONE;
end

!SET DODU_FLG

)
it .DRY IS_SET
then
begin

'SEE IF DRY IS CLEAR

(34, ASYNC, DUMPER);

PRINTB (FIV_FMT, WRD_1, PAR_1, WRD_12, FNC_6, WRD_19);

bag&n
'ERROR IF NOT SET
ERRDF (35, ASYNC, DUMPER):
PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6);
end;

5616
5617

5618
5619

5620
5621
5622
5623
5624
5625
5626

else

'GO BIT GOT SET

'ERROR [F SET

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

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

FEY

d o

5627

ERRDF (36,

FEY
P TS
PN PN PR P
FETR
PRPR

PRYN
P
P
PR TR

ASYNC, DUMPER);

DODU_FLG
=
end;

:'fm.‘ur IS_SET

'DID FUNCTION CAUSE ILF

?330: (37, ASYNC., DUMPER);
PRINTB

'ERROR IF YES

(FIv_FMT,"WRD_3, PHR_S, WRD_12, FNC_S, WRD_19);

DODU_FLG = ONE:
end;”
1;".1091 IS_SET
b;gg?

'DID FUNCTION CAUSE OPI

(38, ASYNC, DUMPER);

'ERROR IF YES

PRINTB (Fiv rm WRD_4, PHR_S, WRD_12, FNC_S, WRD_19);
DODU_FLG
=

end;”

DELAY (FRTY_US):

'WAIT FOR XFERR TO COMPLETE

if .DRY IS_NOT_SET
then
begin

'IS DRY SET AFTER XFERR

FE T

I'fm.‘so IS_SET

'TEST GO CLEAR WITH DRY NOT SET
'CLEAR GO

begin
CLR_MBUS;

PRI

if .GO IS_SET then ERRDF

(39, ASYNC, DUMPER) else ERRDF

(40, SYNC, DUMPER):

'TST GO TO DETERMINE FAILING MOD
mme (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_S, WRD_19);

R YR

TR PR PN T

else

160 BIT CLEAR WITH DRY NOT SET
b;ggn
iREPORT ERROR
ERRDF (41, ASYNC, DUMPER);
PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_11, FNC_5, WRD_19);

DODU_FLG = ONE;
end;

if .GO IS_SET
then
begin
CLR_MBUS;

'SET DODU_FLG

'SEE IF GO CLEAR AFTER XFERR
ICLEAR GO IF STILL SET

S
L R

- and

b ad add

) —d

h e

PN P

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

PRINTB (Ffv rm WRD_2, PHR_2, WRD_43, WRD_1, PHR_S);

YR TR

i
e
e
e
b e
b
b e
b
b
b i

—d d b e

SEQ 0242
S-Dec-1980
09:264:31
22-Dec-1980 09:21:22

R
T S A 28 EERTRREREERECERRRE

10630 ;M4

.GO IS_SET then ERRDF

(42, ASYNC, DUMPER) else ERRDF

(43, SYNC. DUMPER):

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

CIMABO ML-11 LOGIC TES )

MISCELLANEOUS CODING SE CTION

10686 M4
10687 ;
10688
10689 ;
10690 ;
1069 ;
10692 :
10693 ;
10694 ;
10695 ;
10696 :
10697 ;
10698 ;
10699 ;
10700 ;
10701 ;
10702 ;
10703 ;
10704
10705 .
10706 ;
10707 :
10708 :
10709 ;
10710 ;
10711 ;
10712 ;
10716
10720 036324
10721 036330
10;%% 036332
10
036334
10726 036342
10725 0363;3
10726 0363
10727 036360

10
10

036406
036410

10734 036412
10735 036416
10736 036416
10737 036420
10738 036424
10739 036430

SEQ 0243

25-0%-1980 09:24:3 1

22-Dec-1980 09:21:2 2
5679
5680
5681
5682
5683
S684
5685
5686
5687
S688
5689
5690
5691
5692
5693
5694
5695
5696
$697
5698
5699
5700
5701
§702

004167
005746
10440
152
016701
042701
162777
150177

;o?éu_n.c = ONE
ENDSUB;
it .TRE IS_SET
then

!SEE IF XFERR CAUSED A TRANSFER ERROR

it .DODU_FLG IS_SET
then

!DROP THIS UNIT IF DODU_FLG SET

mbf (116, INTER, DUMPER);
PRINTB (SIX_FMT, WRD_61, WRD_20, PHR_S, WRD_12, FNC_6, WRD_19);

!REPORT ERROR IF SET AND CONTINUE TESTING

m"(.u,Lm):

DOCLN
end;

ENDTST;

$T1S:

145514

000040
155234
177770
000007
154630

132777

000001

O
024052
012746
012746
012746

006506

001057
104455

TOPS=20 Bliss-16 v2(212)

PA: NEALE>BLIML4.BLI.2 (65)

!TST GO TO DETERMINE FAILING MOD
PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_S, WRD_19);

154652
154634

10759 3ixte o9eve 157446
10730 0%2%9% 012777 000071 154554
10731 036400

006426

154546

18:

R1,$SAVE?2

5573

5599
5601

=(SP)

#40,@ML .REG+40

#7 .M .REG+40

R1.aML .REG+40

R2
PC FIRST.BLK.XFER

#7%, M .REG

#1,3ML .REG

DUMPER
MRD.19,~(SP)
#FNC.6,~(SP)

MRD.12,-(SP)

: DODU.FLG

;

5603

5607

5611

CIABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

10741
}8;4

PAGE 257

3
SEQ 0264

LG
:

10764

036434 012766 007366

107‘90;2244
10747 036450
10748
5%
10749
56
10750
10751 036466
1ors§ osug

012746 006062
019746 000006
0
104414
132777 000200
001056
104455

10
%gsoo
10757
036506
10758 03651G
10759 036514
10760 036520
10761 036506
10762 036
10763 036534

012746
012746
012746
012746
012746
012746
012746
01

10753 036472
10754 036476
10755 036476

10764 036536

000043
010464
024052

10444

10767 036546

154452

ooo:;;;

10768 036552

100030

105

10769 036554

104455

10772

010464
024052

10770 034556
10771 036560
036562

10773
036564
10774 02.570
1077S 036574
10776 036600
10777 07-604
10778 0.5610
10779 036614
10780 035620
10781 024622

012746
012746
012746
012766
012746
012746
012746
010600

154536

WORD
‘WORD
"WORD

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

TRAP

ADD

2s:

10%% 012702 000001
10783
0
oig;% 000016
10784 0 5634

10786 036644
10787 036646

104455
000045

10791 036660
1o79§8w
10793 036670
1079% 036674
10795 036700

012746
012766
010746
012746
012746

000001

sg 010464
024052
5 012746 006506

007774
006426
007472
006314
006062

3s:
154372

4$:

#FIV.FMT,=(SF)
#6,-(SP)
SP.RO
164
#200.aML.REG+50
38
5§
43
ASYNC
DUMPER

; SP,»
;

;

5613
5616

;

5617

MPHR .6, (SP)
MRD .1 ~(SP)
NRD.43.-(SP)
#PHR.1,~(SP)
MRD.2.-(SP)
#FIV.FMT,~(SP)
#6,~(SP)
SP.RO

: SP,®

#16.SP

;

5615

a@ML.REG+50

5624

BPL

5620

WORD
WORD

S5
4k
ASYNC

5627

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

SPHR.S - (SP)
MARD.1-(SP)
MRD
. 4S5, - (SP)
#PHR.2, = (SP)
ARD.2.~(SP)
SFIV.FMT,=(SP)
#6,-(SP
SP.RO

5628

: SP,*

MOV
ADD

1 .R2
216,SP

: *,DODU.FLG
:

5629
5625

BEQ

;

5635

;

5636

.WORD

007472
006276
006754
007404
006302
006062
000006

#PHR.
S = (SP)

TSTB

TOPS
PA:<

MRD.1.~(SP)

B8R

TRAP

104414

10785 Q36642 001430

MOV
MOV
MOV
TRAP
BITB
BNE
TRAP

000006

000016

10766 036544

MOV

007504
006276
006754
007366
006302

10765 036540 062

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

MOV

107450%2240 0127646 006276

10788
10789
10790

22-DEC-80 12:16

TRV

BITB
TRAP
WORD

WORD
.WORD
MOV
MOV
MOV
MOV
MOV
MOV

DUMPER

#1,aML.REG+60
55
45

ASYNC
DUMPER
ARD.19,-(SP)

#FNC.S .= (SP)
MRD.12,-(SP)
m.§.-<sm
MRD.3.~(SP)
SFIV.FMT,=(SP)

5632

CZMABO ML-11 LOGIC TEST

M. CCELLANEOUS CODING SECTION

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

3
SEQ 0245

JMLé

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

W
N

8o
—

\V,]

RRESRKER

b i
b e
e
b
b
b

5634

5643

AS YNC
DUMPER
ARD.19,-(SP)

5644

#ENC.S < (SP)

m.1é.-(s:;)
MRD
.4 .~(SP)

#FIV.FAT,=(SP)
.

SP,w

; «,DODU.FLG

P e ssTP2
;

VBNV
LN

-—
-—t ed el and el b b b 2
828 OgO-‘OOOOOOOO
NNN%NMN
53%
W0 383788
&

D o
e
D o
b
D
D
D e
e
D d e

5645
5642

=, $STMP1

; SSTMP
; $SSTMPT

D
D wed

: SSTMP2
5650

154074

M, .REG

5654

73
#200,aML .REG+S0
15%

000001

154124

':ll.o.aé?ewo

5656

154106

#7,3 .REG+40
R1,3ML.REG+40

-—b

b o
D
e e
e

108:

5637

54506

13§

N0
R

154034

b e

154154

. *,DODU.FLG

#20000
. am_ .REG+60

b e

D ed

746

néRgP

TOPS
PA:<

SP'.

&EQ%

58$:

LEE L LLEEELEY 5 §ReEasas

1564302

D e

e e

000001
000016
020000

-4

D e

SRR
RS
RaRC
SR
AERRS
g REREEEE
RS g
Rt
i
eEERRNSEREE

ZEZRREEERE
Sl
ia Rty 3

10797
10798

118:

006506

12%:

DUMPER
MRD.19,-(SP)

5659

CZMABO ML-11 LOGIC TESY

22-DEC-80 12:16

PAGE 259

mRmmmemmwemmw.mmwwmmmwmmwmmmmmBmwmmmLT,mOmRwEmRT,SmNTmT1mL3mT.”mumImsnm£S3mT83mcemmw

MISCELLANEQUS CODING SECTION

MACRO M1113

22-Dec~-1980
22-Dec-1980

:264:31

33 :21:22

TOPS
PA:<

Rupu.hmwmMmm"eSHEL

RSmNSARAR

JMLG

SEQ 0246

@& ; ~ ~ o S § : a ~ ~ : a -~
2 -

wNuI.w\2m32887RAXRsioy.)§.n.l\3m38o8o8s7e .I\58O5RI7

mIMRARmzImzSmzm

148

153660

15$:

5654
5666

5667

5670

5652
5673

5675

5678

16%

17%

5681

5682

CZMABO ML-11 LOGIC TESY

MJSCELLANEOUS CODING SECTION

MACRO M1113

10909
062

10915 037434

037626

103002

10918

0014

10914 0374

037450

10919 037452

10920 037454
10921 037456

1044729
%

000016

176670
040000

22-Dec-1980 09:24:31

012746
012746
010600

006100
000007

153504

19%:

BEQ

10938 037546
10939 037550

104451
10444k

208:

154032

005726

218:

000207

10963

;

5683

13
#40000, aML .REG

5687

5690

198

164
INTER

MOV
MOV
MOV

#SIX.FMf,~(SP)
#7,-(SP)
SP,

: SP,«

MOV
ADD

1 ,R2
#20,sp

; *,DODU.FLG
:

BNE
MOV

21s
ML.LUN,RO

: DODU.FLG

(SP)+

5573

;

5700

DEC

TRAP
TRAP

TST

RTS

104466

10961 0
006000
10962 037566 103773

176542

T1S::

18:

51
46
PC

333 words

JSR

PC.8T1S

ROR
BLO

RO
18

TRAP

'
:

5691

ARD.20,-(SP)
ARD
. 61,-(SP)

)

; Maximum stack depth per invocation:

004767

5675

R
ARD.19,~(SP)
#FNC.6,-(SP
MRD.12,~(SP)
#PHR.S, = (SP

: Routine Size:

‘%%

TOPS

PA: <

-WORD
MOV
MOV
MOV
MOV

TRAP

005302

10960 037562

JMP
BIT

104414

10936 037540 001004
10937 037542 016700

10959 037556

MOV
MOV

10935 037536

10950
10954
10058 037556

ROR

012746 006514
012746 007174

10933 Q37526
012702 000001
10934 037532 062706 000020

10940 037552

#16,SP

TRAP

WORD
.WORD

10929
037512
10930
037516
10931 037522

11&; 037554

ADD

TRAP

006506
010004
0064
007472

037526

22-Dec=1980 09:21:22

BHIS

1
010672

024052
012746
012746
012746
012766

10927
10928

188:

10445

1093_2s 037
10923 037
10924
10925 037472
10926 037476

10932

SEQ 0247

1091§ 0376

10919
109

N 3
PAGE 260

JML4

}g}?

10912

22-DEC-80 12:16

5692
5689

18 words

CZMABO ML-11 L OGIC TESTY
MISCELLANEOUS ( ODING SECTION

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

10964

22-Dec-1980 09:2¢ :31

22-Dec-1980 09:21:22

037570

000207

RTS

: Routine Size:
6 words
: Maximum stack depth per invocation:
10976
10¢
M

SEQ 0248

5703

! <BLF/PAGE>

0 words

TOPS

PA:<

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SEC

TION

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

}0979 H, €3
0980 :

‘}0%1
‘Iggi :

10984
10985
10986
10987
10988

:
;
:
10969 ;
10990
10991 ;
10992 :;
10993
10994 ;
10995
10996 ;
10997 ;
10998 ;
10999 :
11000 ;
11001 ;
11002 ;
11003 :
11004
11005 ;
11006 :
11007 ;
11008 ;
11009 ;
11010 ;
11011 ;

1101% :
11018
11014
11015
11016
11017
11018
11019
11020
11021

;
;
;
;
;
;
;
;
;

11023
11024
11025
11026
11027
11028
11029
11030
11031
11032
11033

;
;
;
;
:
.
:
;
;
:
;

1102§ :

SEQ 0249
S%-Dec-WBO 88:54:31
-Dec-1980
09:21:22

5704
5705 BGNTST:

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

]

5706
5707
5708
S$709
5710
S711
S71§
571
5714

5715
§716
5717

5718
5719
5720
5721
S?Zi
572
5724

5725
5726
§727
5728
57,
5
5731
5732
5733

5734

144

;

TEST NUMBER:

TST 16

i
i
i
i

TEST NAME:

CLEAR FUNCTION TEST

]

TEST DESCRIPTION:
TEST IF THE DRIVE CAN PERFNRM A CLEAR F UNCTION WITHOUT HANGING THE DRIVE.

A CLEAR FUNCTION IS WRITTEN INTO MLCST.

i
i
i
i

THEN GO AND ERROR BITS ARE CHECKED FOR CORRECT STATUS.
THIS DRIVE IS DROPPED ON DETECTED ERRORS.

Local

DODU_FLG;

CLRMBS

0000_FLG
= ZERO;

MLER = ONES;

!SET BITS IN ERROR REGISTER

MLCS1 = DRV_CLR;

!DO A CLEAR FUNCTION
!DELAY

if .GO IS_SET
then

!SEE IF GO CLEARED AFTER FUNCTION

DELAY (ONE_US);

§735
5736
5737
5738
5739
5740
5741
5§74
574

o
ERRDF (44, ASYNC, DUMPER);

!ERROR IF SET

if .DRY IS_SET
then

!TST DRY CLEAR WITH GO SET

DODU_FLG = ONE;

'SET DODU_FLG

PRINTB (FIV_FMT, WRD_1, PHR_S, WRD_11, FNC_ 3, FNC_7, WRD_19);

o5l

'ERROR IF SET
ERRDF (45, ASYNC, DUMPER):
PRINTB (FIV_FMT, WRD_2, PFR_S, WRD_43, WRD_1, PHR_S);

5744

5745
5746
§747
5748
5749
5750
5751
575
575
5754
5755

!DROP UNIT FLAG

else

end

!GO CLEARED AFTER FUNCTION

if .DRY IS_NOT_SET
then

e
ERRDF (46, ASYNC, DUMPER);

'TST DRY SET WITH GO CLEAR

'ERROR IF NOT SET

PRINTB (FIv_FMT, WRD_2, PFR_1, WRD_43, WRD_1, PHR_6);

DODU_FLG = DNE;
[4

CZRABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

D 4
PAGE 263

11035 ;ML
Hg

SEQ 0250

Ss-ooc-wso 09:24:31

<Dec=1980 09:21:22

11038 :
11039 :

5756
§757

11041

;

5759

11043

5761

1104S
11066
11047
11048
11049

;
:
:
;

57
5764
§765
§766
5767

11040 :

5758

1101.5 :

1t .ILF IS_SET

then

5760

110464 ;

5768

'DID FUNCTION CAUSE ILF

(47, ASYNC, DUMPER);

PRINTB (FIv_FMT, WRD_3.

578

11050 :

DODU_FLG = ONE:

'ERROR IF YES

PHR_S, WRD_12, FNC_3, FNC_7. WRD_19);

end;

1t .OPI IS_SET
then
m\

'DID FUNCTION CAUSE OPI
'ERROR IF YES

(48, ASYNC, DUMPER);

11051

5769

PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_3, FNC_7. WRD_19);

11053 ;

5771

end;

11052 ;

5770

11054 ;
11055

S;g
5

11056 :
11057 :
11058 :
11059 :

$774
5775
§776
5777

11060 ;

DODU_FLG = ONE;

it .MLER neq ZERO

then

S§778

11061 ;
11062

5779
5780

11064 -

5782

11063 ;

5781

1106S ;

$783

11066 ;
11067 ;

$784
5785

ENDSUB:
if .DODU_FLG IS_SET

gg‘j’n

Hgg :

S789

ENDTST;

004167

144246

11079 037572

11080 037576
11081 037600

"35 037608
1
61

11084
11085

037614

037620

11086 °372§$
11087 037

11088 037634

005746
1044ro,;

C.ML_LUN);

DOCLN;
end;

$T16:

152
16701

000040
153766

153404

000007

153366

5;917 17777

150177 153362

oosg%

012

IDROP THIS UNIT IF DODU_FLG SET

then

5786
5787
5788

'TEST ERROR REGISTER FOR CLEAR

b;&i)n
1ERROR [F NOT CLEAR
ERRDF (49, ASYNC. DUMPER);
PRINTB (SIX_FMT, FNC_3., FNC_7, WRD_19, WRD_14, WRD_13, REG_3);

11068
11069 :

11070 :

TOPS=20 Bliss=16 v2(212)

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

177777

153372

18:

JSR

ST
TRAP

R1,SSAVE2
-(SP)
2

BISB
MOV

#40,aML.REG+40
m
R1

BICB

#7.aML.REG+40

BIC

BISB
CLR

MOV

5702

5723

: DODU.FLG

5727

5725

0177776 ,R1

R1.aML.REG+40
R2

#-1,3ML .REG+60

;

5728

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

SEQ 0251

H, B

}S% 000011

153304

m Rulans . m. nm m«w1uBma.noT«2

oQGPeOgT111111111.Iql.lalqlclalclalcl111111111

764.58

23 33

1410

1?4783 142234

>\ -~

654

223

MOV

Mmoy

ooPo(ooiPPIooooooPoPogoPOPoPOOPPoPPPPoo(0oPP=PPoPPPOoP=OO

z5MuammsngusxR%yx‘y.wmuwqanoraWogReMe&MRWBMSEMIALfiEsREOTmS%RmRE

22-Dec-19
22-Dec-19

-0

TOPS
PA:<

5729
5730

3s:

A ¥

000001

153250

S%:

okmmmmmm R PS R
N~
006506
010012

46 007750

153236

4052
12766 007472
746 006276

7‘6 0 0 06
766 886754

766

7472

006065

Eou.

777

' 5010

040076

4, 040076

900016
000001
000020

000200

81504.&4.C

024052

012746

5735

5736

006416
007472
006276
006062
000007

007504

SSRR

1800111.1111

‘6

5732

153140

7%:

5738

5741

5742

5740

5745
5734
5732
5749
5752

5753

lw9\.CH2S.HE”T)4m2ol9\-m.S»H.o‘A“8C.oH.&-”T*®)NnR&.Naol\.S..mR\l’

NESNezgrxRremNYmsm‘mmn—osmRgNPogNAIRanSmSAN
1111m1-l1nte1h1y1|lWe1—n|@1111m1toe1rwvl8t1fl|c1iboc1r|m1w11111w1wfi111'o1a:1bq1l1)W:1r|w1owt111
nSwNnwnv w2 n3wgnpwnew w3 "Bo}NN[oo"oYal Q$.3-

aRdsknb..St»SmantadadYde-k~etokodoloAlolololTadatets|Gt}oiloflollovlsulnpdadsTlade%f tatatstSEtAetIataTIbIabRatARsNtLst2etLTe-~ ktsteHtststLtt
TPeO—o mmmmmmmmmn6mmwmumwmmzmwmwmmmmmmmwmWmuwWumMW1mwmWnmwMmonm1amw
t“-(Lol] 9 t-“Qo 9 t“|Oo “w

ML4

:
108

22-DEC-B0 12:16

153060

8$:

BITB

152764

PAGE 265

% ](S [] -—v O \ a0o0 2Z . —0y

N
0no

MACRO M1113

[aV1aV]
oy

MISCELLANEQUS CODING SECTION

CZMABO ML-11 LOGIC TEST
‘

SEQ 0252

SIRSBORCR

Sfl

JMLS

i
b o

NSIX.FMT ,~(SP)
#7,-(SP)
%P.RO

b cnd wad

28%&
0
YA NREBVRRRGRNS
o=

TOPS
PA:<

PRl o v e e lololele]

SIS TASTASIASIAS T S TA S LAST S TN T ST N 1,8 [ NTNT NI NI N NN N

D o

) D o

el
i

D D

) i
)

D el e

D
) D

) D

d o

D e

D
)

)
D

o
) e

) D e

22-Dec=1980 09:24 : 3
22-Dec-19 80 09:21 :22

5777

000020

177142

SP,»

#20,SP
6

11%:

5775
5778

12%:

; DODU.FLG

[

153132

5782
5785

13%:

D e

d b d D D i

SEQ 0253

CTION

d b

CZMABO ML-11 L 0G I
MISCELLANEOUS C oD 1

5702

19 words

—d e

»H

- emd s aed emd e o

)

) i

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

177110

T16::
18:

JSR

TRAP
ROR
BLO
RTS

PC.8T16

5787

66
RO
1$

; Routine Size:
.
6 words
; Maximum stack depth per invocation:

0 words

CIMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

11%57 H, B

PAGE 267

&4
SEQ 0254

22-Dec-1980 09:26:31

}]228 :
11260 ;

22-DEC-80 12:16

22-Dec-1980 09:21:22
5790

!<BLF/PAGE>

TOPS-20 Bliss=-16 v2(212)

PA: NEALE>BL3ML4.BLI.2 (66)

CZMABO ML-11 LOGIC TEST

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

MISCELLANEQUS CODING SECTION

H, ¥

11265
11266
11267
11268
11269
11270

;
;
;
;
;
;

5791
579§
S79
5794
§S795
5796

11272 :
11273 ;
11274 :

5798
5799
5800

11275 ;

11276
11277
11278
11279
11280

SEQ 0255

25-0«-1980 :126:
31

1127 ;

22-Dec=1980 09:21:22

5797

5801

TOPS=20 Bliss-16 v2(212)

PA:<NEALE>BLIMLG.BLI.2 (67)

!
BGNTST

!+¢
! TEST NUMBER:
TST 17
i
' TEST NAME: DIAGNOSTIC REGISTER TESTS
|
i TEST DESCRIPTION:
|
TEST flf DATA DIAG REGISTERS mMLD1, MLDZ2, MLE?
'
FOR 1°S/70°'S, SHIFTING 1°S/0'S AND INITIALIZATION
i
i—

;
;
;
;
;

S&Oi
5808
5804
S$805
5806

Llocal
CLR DATA
,

'CLEAR DATA FOR INIT TEST

11282 ;

5808

ERR_ FLG

'ERROR FLAG

11281 ;

11283 ;
11284 ;

1128S ;

11286 ;

11287
11288
11289
11290
11291
11292
11293
11296

;
;
;
:
:
:
.

11295 ;

11296 ;

5807
S809
5810
5811

581

581
5814
5815
5816
5817
5818
5819
5820

5821

5822

SAVE
,

'TEMPORARY SAVE LOCATION

TST PAT
,
index .

'TEST PATTERN
'POINTS TO REGISTER PRESENTLY BEING TESTED

DODU_FLG:

'DROP UNIT FLAG

ooouFLG
= ZERO;

!
!
!
FIRST TEST THE REGISTERS FOR ONES AND ZEROES
!
!
TST _PAT
= ONES;
'LOAD TEST PAT WITH ONES
incr TWICE from O to 1 do

begin

11297 .
11298 ;

5823
5824

11300 ;
11301 ;

5826
5827

RDREG (.TST PAT. -REG_ SEL, ERR_ FLGS

11304 :
11305 ;
11306 :

5830
5831
5832

if .ERR_FLG IS_SET
then
b%;

11308 ;

5834

PRINTB (SIXFMT, PHR 4, WRD_ iZ FNC 5 FNC6, WRD
S

11310 ;
11311 ;

5836
5837

DODU_FLG
= ONE;
end;

11313 ;
11314 ;

5839
5840

11316 ;

5842

11299 ;

}}3385 H

11307 :

11309

11312 ;
11315 ;

5825

5833

5835

5838

5841

incr REG_SEL from 11 to 13 do
m

'REPEAT LOOP TWICE

CLRst
WRT_REG ( TST _PAT, ._REG_SEL, index);

(121, ARR_DAT, DUMPER);

JTEST ELEVEN WRITE/READ- REGISTERS

'WRITE TO THE REGISTER

'READ THE REGISTER

'SEE IF READ FOUND AN ERROR
‘IF ERROR FLAG IS _SET THEN ERROR AND SET DODU_FLG

| ARRAYDATA m! FAILURE

WRD_56);

PRINTB (FMT_ 16, .ML REG C. index. REGISTER XDDJ. Q7 DATA. -RD_DATA);
ENDSUB;
end;
TST_PAT = not .TST_PAT;

'REPEAT AGAIN WITH COMPLIMENT DATA

CZMABO

M-11 LOGIC TEST

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

MISCELLANEOQUS CODING SECTION

11318 ;M4
”fig :

11321 ;
1132% :

11328
11324
11325
11326
11327

;
;
:
;
:

25-0ec-1980 09:26:31
22-Dec=1980 09:21:22

5343
5844
5845
5846
5847
5848
5849

!
!
!
!
!

TEST THE REGISTERS FOR SHIFTING ONES AND ZEROES

gggg

TST_PAT = ONE;

11331 ;

585

begin

1133 ;
11335 .

5856
5857

11332 ;
11333 .

11336 ;
11337 ;

5852

5854
5855

5860
5861

Hi} H

2866

11340 ;

'LOAD TST_PAT WITH A 1 IN A FILED OF 0°S

1incr SHIFT from O to 15 do

'DO SHIFT 16 TIMES

incr TWICE from 0 to 1 do

'REPEAT LOOP TWICE

begin

5858
5859

11338 ;
11339 ;

incr REG_SEL from 11
in

to 13 do

;
CLR_MBUS,

WRT REG (.TST PAT,

11343 ;
11344 ;
11345 ;
11346 ;

5865
5866
5867
5868

if .ERR_FLG IS_SET
then
b;gg?
E
(122, ARR_DAT, DUMPER);

11348 ;
11349 ;

5870
5871

11350 ;

11351
11352
11353
11356

11355

;
;
;
.

11356

;
;
;

11371 ;
11372 ;

5890
5891
589%

589
5894

!IF THE ERROR FLAG IS_SET THEN ERROR
!ARRAY DATA MODULE FATLURE

ENDSUB;
end;

TST_PAT = not .TST_PAT;

5878

5
S
5884
5885
5886
5887
5888
5889

:
;
:
;
;
;
;
;

!SEE IF THE READ FOUND AN ERROR

end;

5877

5881

'!READ THE REGISTER

PRINTB (FMT_ 16, .ML_REG [.index, REGISTER_ADD], .QT_DATA,”.RD_DATA);
DODU_FLG = DNE;

5872

11360
11361
11362
11363
11364
11365
11366
11367
11368
11369
11370

11359 ;

'WRITE TO THE REGISTER

PRINTB (SIX_FMT, PHR 4, WRD_12, FNC_5, FNC_6, WRD 52, WRD_56):

5873
5874
5875
5876

5879
5880

index):

RD_REG (.TST_PAT, .REG_SEL, ERR-FLGS:

5869

11357 ;
11358 ;

.REG_SEL,

!TEST ELEVEN READ/WRITE REGISTERS

11347 ;

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

end;

1111328 :

11%58 :

SEQ 0256

end;

TST_PAT = ,TST_PAT“ONE;

end;

'!REPEAT WITH A O IN A FIELD OF 1°'S
'SHIFT THE 1 IN THE FIELD OF O°'S

!
!
!
NOW TEST THE REGISTERS FOR INITIALIZATION
!
!
REG_INIT_FLG = ONE;
TST_PAT = ONES:;
'BACKGROUND PATTERN

incr TWICE from 0 to 1 do
begin

.
incr REG_SEL from 11 to 13 do

'REPEAT LOOP TWICE

!TEST THIRTEEN REGISTERS

COUABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

K_4&
PAGE 270

113726 :ML4
” 2 :

11377 ;

1378

SEQ 0257

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

5895

TOPS=20 Bliss~16 v2(212)
PA: NEALE>BLIML4.BLI.2 (67)

beqi

3896

BGRSLB;

5898
5899
5900
gggj"

WRT_REG (.TST _PAT, .REG_SEL, index):
CLRCDATA = (.RI) or (.IGNORE);
REG_INIT_FLG = ONE;
RD_REG (TCLR_DATA, .REG_SEL, ERR_FLG);

11385 ;
11386 ;
11387 ;
11388 ;
11389 :

5903
5904
5905
5906
5907

if .ERR_FLG IS_SET
'SEE IF READ FOUND AN ERROR
then
bagti)n
'IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG
ERRDF (118, ARR_DAT, DUMPER)
'ARRAY DATA MODULE
PRINTB (FIV_FMT. PHR 4, WRD_12, WRD_52, FNC_23, WRD 56);

11391 ;

5909

11379 ;

11380 ;
11381 ;
11382 ;
11}333‘.3 :

11390 ;

11392
11393
1139
11395
11396
11397

:
;
;
;
;
:

11398 :

11399 ;

5897

CLR_MBUS;

5908

5910
5911
5912
5913
5914
5915

5916

5917

'WRITE REGISTER WITH BACKGROUND
'CALCULATE THE CLEARED DATA PATTERN
'READ THE REGISTER FOR THE CLEARED DATA PAT

PRINTB (FMT 16, .ML_REG [.index, REGISTER_ABD]. .CLR_DATA, .RD_DATA);
DODU_FLG = ONE;

end;
ENDSUB;
end;

TST_PAT = not

end;

.TST_PAT;

'REPEAT WITH COMPLIMENT BACKGROUND PAT

ulzg? :

gg}g

REG_INIT_FLG = ZERO;

'CLEAR THE FLAG

11402 ;
11403 ;
114604 ;

5920
5921
5922

it .DODU_FLG IS_SET
then
ggbn
(.ML_LUN);
DOCLN;

'DROP THIS UNIT IF DODU_FLG SET

11405 :

114606 ;

11407 ;

11408 ;

”’z?g :

11417 040472

11418 0460476
11419 040500
11420 040502

11421 040506

11% 040510

1
0460516
11426 060516
11425 0460526

11426 040530
11427 040534

5923
5924

5§925

5926

end;

§927

ENDTST;

004167

143420

177777

026646
005046
012703

012

1
152

016705

042705

142777

$T17:

000013

000040
153052

177770

000007

18:

152470
152452

2s:

JSR

R1,$SAVES

o
CLR
MOV

-(SP) ,-(SP)
-(SP)
#-1,R3

MoV

#13.R2

MOV

ML.DUT RS

BICB

#7, @M .REG+40

CLR

TRAP
BISB

BIC

2
#40, aML .REG+40

8177770
RS

;

5789

: DODU.FLG
; «, TST_PAT

5812
581

; *,REG.SEL

5823

: TWICE
;
;

58281

5824
5825

CZRABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

11480

SEQ 0258

JMLS

11464 040706
11465 040710

}}271 828;;%

006300
016046
0157‘6
012746
010600
104414
012766
062706

11476 040750

006000

1144§ 060576
1144
114644 040610
11445 060612

11446 060614
11447 060616
11448 040620

11450 m

040704

114666 0460714
11467 060720

11468 040
11469 040
11470 040

11478 8co7eg

11475 060752
11476 040754

11477 040756
11478 040762
11479 040764
11480 040766
11481 040770
11482 040774
11483 040776

012746

000014

162660
000014

000001

007122

007066

010004
007774

007454
006100
000007
152236
152230

006300

Jotaer

103660
00520;

0202%4
0036
005103
005201
020127
003645
012703

013154
005216
000004
000001
0000?2

000015

000001
000001

000042

TST.PAT,»
REG.SEL,

5828

ERR.FLG,*

5830

5833

5834

: SP,*
5835
,*
INDEX

G(RO) ,=(SP)
16,~(SP)

sPS

SP,x

012746
012746
012746
012746
012746
012746
010600
104414
016716
016746
016600
006300

5827

,*
INDEX

11451
114§§ 040636
11453
040542
11654 060646
11455 040652
11456 06056
11457 O+ %62
11458 Obi6h
11459
06 66
11660 060672
11461 0640676
1122§ 040702

11441

162310

114649 060622

19
004767
010316
010;66
127646
19
004767
7
001054
104455
000171
010570
024052
012746

116%9 040556
11437
060560
11438 040564
11439
11440

TST.PAT,
=
REG.SEL,*

* ,DODU.FLG

10246

TOPS

PA:
<

11435 gzgggg 810;46 000012
114

RS, ML .REG+40
R3,~(SP)

152446

a?ggzz

hotrarfadvh
PPN £ oy
N =2 (= & CXIE333
X
NS
(R
x
N Tod
3& R
(V]

11431

}}2%% 0460542

22-Dec-1980 09: 26:31
22-Dec-1980 09: 2 1:22

§§S§§E%’§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§23§§§§§ %33 %

REG. SEL
REG.SEL.,*

5823

TST.PAT
TWICE
TWICE,»

5842
5820

«, TST.PAT

5850

SOSBRIeSRSt
2”?~.o4mw.8l\).wmo)W8A)o0W0)&VeUMEyOe9~[]wl\WR9~[]na(aSlx$\nawYw4[od

ABR28O8NSAILOIEegP¥YANQARBRR?
P e o P P Pe e 0 P o Oe P 0 P 0 P o o 0 P O 1o O e T o P P P T P P P P O P P O P Oe P O O e O O
LTS 8 3 28. . SN0L20 RN[& Bswgegex

eELAgeIPPRoRLnyIPPtIO?SaIPoLLag(GBIISIrR&RelsggLwLOPoPEI.I.egRne-sLmRSO(geIEo2(gnBeLIa”wNgIEInR(gteZgeaAanR((RLiSn*H<SoMN(egePE3RT(LRtS‘I?2eegLsAPP>I.&xcLg@T.v(eaLRsNmC~9oInggI3(eLhIcsEGR9Zeg'EA3SLnaSC9ROPeEH3LETP‘Y9eeeeL(giI[-PgSRI(P.IeLeeBtITPYA8OLu$-LgKPTI"ao2PPSlLI‘UN5w\oJePLmRnoPPAtaA2APeott2E‘Vn(KLerORLmoBAPlTTa‘S\XLoeP%.InROPaeQ2L2&PtvdoPT[R.nPtSe OId1EPIsSoAPPRstOPsR(sBTTT=RO]yd%xOeS.l-« -2ePOSw®an9EeP‘caIt=os.e
MISCELLANEOUS CODING SECTION

COMABO ML-11 LOGIC TEST

MACRO M1113
22-DEC-B0 12:16

ADD
TRAP

8LO

PAGE 272
4

SEQ 025°

H, T

22-Dec=19 80 09:24:
22-De:-19 80 09:21

<29.“52

CZMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113

11541

N_&
PAGE 273

Hsszi

oosso;
ozogl. 000015
0036
005103
005201
020127 000001
003645
006303
005204
82028; 000017
012267 000001 151622

11558 041
11559 041
11560 041
11561 041

2702 000013
10‘%
152
000040
016701 152240

11563

142777

11556 041316 012703
11557 041

11& o:.1g2§ 042701 17;770
041

000007

11564 ongfisg 150177 151634
11565 041
10346
11566 0461362

11567 041364

11568 041370
11569 041372
11570 041376
11571 041402
11sg 041406
11573 041406
1157% 041410
11575 061412
11576 0416416
11577 0412%

o;:.e

012746

060616
004767
016600
006300
006300
006300
8}0001
016105
056105
013;67

013156
013162
000001

041446 026627 000014

11355 Qiese Joadss
010570

11590 0414
11591 041476
1159; 041502
11593 041506
1159 041512
11595 041516

46
012766
012746
012746
012746
012746

151640

161476
000012

19
67 162014

11587 041462

151656

000012

11578 041
010516
11579 041432 ow;«s
11580 041434
012746 000014

11581 onzzg
1123 041

INC
P
BLE
comM
INC
P

BLE
ASL
INC
P
BLE
MOV

177777

11588 &1466 024052
11589 1‘% 012746 007122

010242
007066
006426
007454
006062
000006

151506

000001

8s:
98:

SEQ 0260

22-Dec-1980 09:24:31

11544 821
11545 041
11566 041
11547 041
11548 041
11549 041
11550 041
11551
0412764
1153 1
15
1
11554 041
11555 041

11583

22-DEC-80 12:16

MOV
CLR

MOV
TRAP
BISB
MOV

BIC

BICB

BISB
MOV
MOV
MOV
ADD

R2
R2,MS
6$
R3
R1
R1.M1
1
R3
R
RG.#17
/X3
#1 REG. INIT.FLG
#13.R2
2
#40,aML.REG+40
m
R1

”

R1.aML.REG+40
R3.~(SP)
R2~(SP)
#12,-(SP)
SP, (SP)

MOV
MOV
MOV

RS. (SP)
R2.-(SP)
#14.,-(sP)

14(sP) , M

58
585

:
P w,TST.PAT
> TWICE
: *,REG.SEL
;

5891

‘WORD

ARR.DAT

MRD.

: TST.PAT,*
* REG.SEL.*
: INDEX,®

5898

: INDEX,*

5899

* CLR.DATA,*
* REG.SEL,*

SP, (SP)
PC_RD.REG

MOV
MOV
MOV
MOV
MOV
MOV

5
585

: *,CLR.DATA
* «.CLR.DATA

# ,REG. INIT.FLG

e
- WORD
MOV

: TST.PAT
: SHIFT
L SHIFT,w

PA:4

#7.3ML.REG+40

PC_WRT.REG
12(SP) .RO
RO
RO
RO
RO.R1
ML _REG+2(R1) ,RS
ML .REG+6(R1) RS

ADD
JSR

* TWICE,w

»~1.R3
Ré

JSR
MOV
ASL
ASL
ASL
MOV
MOV
BIS
MoV

; REG.SEL
* REG.SEL,w
: TST.PAT
* TWICE

TOPS

22-Dec=-1980 09:21:22

5900/

5901

; ERR.FLG,w
; ERR.FLG.*

5903

;

5907

5906

56.-(SP)

#FNC.23.-(SP)
ARD . s.-(sm
MRD.12.~(SP)
MPHR .4, =(SP)
MFIV.FAY,=(SP)
#6,~(SP)

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

11597

SEQ 0261

sMLG

11598

010600
104414
816716

151376

11604 041534

016146

013154

11606
041544
11607 041550

0137646
01

000004

0415

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

11599
11600 041522
11601 8215 &
11235
15

11608

10546

MOV
TRAP
MOV

SP,RO
14
RD.DATA, (SP)

MOV

ML _REG(R1) ,-(SP)

MOV
MOV

#4,-(SPS
.

MoV

11605 82154.0 81 7646 005216

MOV

11608 82155
11609
041554
11610 041§2g
11611 041
1161§ 061572
11613
041574
11614 041576
11615 041600

TRAP
MOV
ADD
ADD
TRAP
ROR
BLO
INC

11616 041602
11617 041606

104414
012766
706
709
10446
10365
ooszo;

2?
003647

000001
000026
000012

005103
005204
7

000001

11622 041

021627

000001

016700
104451
104444
062
000207

151740

11624 041

11625 061634
11626 041640
11627 041642
11628 041644
;;g 041650

003640
005067

001004

000006

RS.-(SP}

004767

11649 041660
11650 041662

006000
103773

104466

176614

T17::

18:

SP,«

14
#1.40(SP)
#26,SP
#12.SP
67
RO
9
R2

RS.#15
98

*,DODU.FLG

REG. SEL

)
S9N
5891

REG.SEL,*

TST.PAT
TWICE

(sP) .M

DODU.FLG, *

BNE

MOV
TRAP
TRAP
ADD
RTS

TWICE,
»

8s
REG. INIT.FLG

118

ML.LUN,RO
51
44
#6,SP
PC
312 words

JSR

PC.$T17

ROR
BLO

RO
13

TRAP

5908

#FEMT.16,-(SP)

; Maximum stack depth per invocation:

11647 041652

CLR.DATA,
#

R3
R%
RG .M

BLE
CLR

118:

SP,*

com
INC
P

: Routine Size:

11632

11648 041656

19, o
BLE

151310

11631

11637
11638
11642
11646 041652

108:

000015

11618 041610
11619 041612
11620 041614

11621 041620
11622 041

000040

T
PA:

590
5
591

SN
59

592

5789
26 words

5925

CZMLA0 ML-11 LOGI C TEST

MISCELLANEOUS C 001 NG SE CTION

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

SIELK

OO OO~

e nd o
d d o b

b
b o
- d e e

55 041664

SEQ 0262

1165
1165
A

000207

22=-Dec-1 980 09:24:3 1
22-Dec~1 980 09:21:2 2
RTS

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

5928

! <BLF /PAGE>

0 words

TOPS
PA:<

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CGCING SECTION

22-DEC-80 12:16

11667 .lll.
59
59
5931
59
29
9
5935
59
59
59
5939

11& H

594

22-Dec~1980 09:21:22

;
;
;
;
;
;
;
;

594
5944
5945
5946
5947
5948
§$949
5950

11693 ;
1169 ;
11695 ;
11696 :
11697 ;
11698 ;
11699 ;
11700 ;
11701 ;
11702 .
11703
11706 ;
11705 ;
11706 ;
11707 ;
11708 ;
11709 :
11710 ;
11711 ;
11712 ;
173 ;
11714 ;
11718 ;
11716 ;
M7 ;
11718 ;
11719 ;
11720 ;
11721 ;

595
595
5954
5955
5956
5957
5958
5959
5960
5961
5
b]
5964
5965
5966
5967
5968
5969
5970
5971
59
59
5974
5975
5976
5977
5978
5979
5980

1169% :

SEQ 0263

ZS-Dec-1980 :24:31

11668
;
11669
11670 ;
11671 ;
116;% :
11673
;
11674 ;
11675 ;
1167€ :
11677 ;
11678 ;
1679 ;
11680 :

11684
1168S
11686
11687
11688
11689
11690
1169

D_§

PAGE 276

TOPS-20 Bliss-16 v2(212)

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

BGNTST;
‘e

TEST NUMBER:

TST 18

TEST NAME:

COMPOSIT ERROR TEST

i
i

TEST DESCRIPTION:

TEST TO SEE IF SETTING EACH
BIT IN THE ERROR REGISTER

CAUSES A COMPOSIT ERROR BY:

i
i
i

WRITING A SHIFTING ONE THROUGH
THE ERROR REGISTER (SKIPPING THE
READ ONLY BITS) AND TESTING THE

WRITE.

i
i

COMPOSIT ERROR BIT IN MLDS
FOR BEING SET AFTER EACH

5951

!DROP UNIT FLAG
!DATA PATTERN
!POINTS TO MLER READ ONLY BITS
LR _MBUS.

oooOFLG =
0000_ FLG ZERO.
incr COUNT from O to 15 do
begin
if (.DAT_PAT and .SKIP_MASK) neq ZERO
then
in

!LOAD SKIP MASK
!DATA PATTERN SET BIT O IN MLER
!WRITE AND SHIFT DATA PAT TO MLER 16 TIMES

!SKIP IF DAT_PAT FALLS ON READ ONLY BIT

MLER = .DAT_PAT;

!WRITE DATA_PAT TO MLER

it .COMP_ERR IS_NOT_SET
then

!SEE IF DAT_PAT CAUSED A COMP ERROR

oofor
E
(50, ASYNC. DUMPER):

'ERROR IF NO COMP ERROR

PRINTB (FOR_FMT, FNC_8, PHR_1, WRD_12, FNC_8);
PRINTB (FMT4, .DAT_PAD);
wFLG= ONE;

CZIRABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

11723 ;M4

11%’» H

-Dec-1980

11726 :

5981

11727 ;

1
:
11731 ;
n%:

5985
5986
5987

5984

ML
11;?5' :

155168)

DAT_PAT = .DAT_PAT“ONE;

!SHIFT DAT_PAT TO NEXT BIT AND REPEAT

end;

1f .DODU_FLG IS_SET

IDROP UNIT IF DODU_FLG IS_SET

DOCLN;

599,

end;

”;gg :

5994

ENDTST:

11738 ;

599

11747 041666 0064167 142204
11748 0461672

152777

ogool.o

11750 041704

704

177770

11749 041700 016704

11751 041710
1175§ 041716
11753 041722

11756 041
11755 041
11756 041734

11757 041736

149777
150477
1

"78 041756

11763
041760
11764 041762
11765 041764
11766 041766

000007
151272

11776 042022

11775 042026
11776 042026

MOV
BIC

151276

BICB
BISB
CLR

032

001035

1$:

151264

040000

104455

010464
024052

11767 041770
012746 010022
11768 041776 012746 006426
11769 042000 012746 007366

BISB

12706 163157
01
000001

11758 041740 001447
11759 041742 1
11760 041744 01
11761 041750

151676

JSR

151314

107646 010022
010746 006046

81 746
1

000005

010216
012746

004400

106414

28:
151246

MOV
MOV
CLR
BIT

8EQ
TRAP
MOV

R1,$SAVEL

#40,aML .REG+40

[
0177770

#7.aML.REG+40
R&4.aML.REG+40
R1

#-14621,R4
#1.R2
R3
R2,R4

R2,aML .REG+E)

8IT

#60000,
aML .REG+5U

TRAP
.WORD
WORD
.WORD

5§
62
ASYNC
DUMPER

MOV
MOV

#ENC.8.~(SP)
#FOR.FMT,~(SP)

BNE

MOV
MOV
MOV
MOV
MOV

TRAP

MOV
MOV

Qe ®p 83 0, 0,

5991

11737 ;

DODU.FLG

*,SKIP.MASK
* ,DAT.PAT

COUNT
DAT.PAT,SKIP.MASK

11736 :

11;;;
11773
04

TOPS-20 BlLiss~-16 V2 212)
PA: CNEALE>BL3ML4. BL

end;

2089 TM beqi
5990
33&1 C.ML_LUN) ;

ENDSUB;

S%i

11728 ;

11770
177

SEQ 0264
5
35 -Dec-1980 09:2
09:2 1 122

11725

11799

DAT.PAT, =

#ENC.8,~(SP)
MRD.12,-(SP)
#PHR.1,=(SP)
#5.-(SP)
SP.RO
14

R2, (SP)
#FMT .4, ~(SP)

SP,»

,»
DAT.PAT

5977

CZRABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

MACRO M1113

HA
11;g§
11784
1
1"

e
R
13
8
1179
72
11796 82%874
11795 042076
11796 042102
11797 042104

11818 042116
11819 042120
11820 042122
1181
11822

: 31
:22

#2,-(SP)

SP.RO

SP‘.

000001
000020

” R1

;

*,DODU.FLG

14’

3s:

TRAP

'A ¥

ASL

#20.sP

&
28

R3.#17

151476

S$
M_.LUN.RO
51

; DAT.PAT
; COUNT
; COUNT,»

13
R1

5%:

RTS

; DODU.FLG

177552

T18::
1%:

JSR
TRAP
ROR
8LO
RTS

: Routine Size:
;

44
PC

5995

! BLF/PAGE>

5984
5963

13 words

5992]

6 words

5974

592

PC.$718
66
RO
13

Maximum stack depth per

5978

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

004767
104466
006000
103773
000207

TOPS
PA:4

5979

000017

11823

11828
11829
11830 ;

SEQ 0265

000002

1178

11817 042114

F_5
PAGE 278

11778
nre
11780

11798 042106
11799
11800
11801
11806
11807
11811
11815 042110
11816 042110

22-DEC-80 12:16

invocation:

0 words

CZMABO ML-11 LOG TEST
MISCELLANEOUS (COD NG SECTION
b

Ve 0g 00,5 0 00 %00 0,0 0, % 009080, 9% % 98003000,

SEQ 0266

§§§§§§§§§§§§§§

T0PS-20 BLliss=-16 v2(212)
PA:<NEALE>BLIML4.BLI.2 (69)

[}

BGNTST:
149

TEST NUMBER:

TST 19

TEST NAME:

ATA BIT TEST

TEST DESCRIPTION:

TEST THE ATA BIT FOR SETTING

SETTING A BIT IN THE ERROR

i
i
i
|

TEST THE ATA BIT FOR CLEARING
AFTER BEING SET BY:
1. WRITING A FUNCTION TO MLCS1.
2. WRITING A ONE INTO THIS

;

UNITS ATA BIT

TEST THE ATA BIT rm NOT CLEARING
AFTER BEING SET BY:

l
l
l

WRITING A ONE INTO THE
ATA BIT OF

UNITS.

THE OTHER

local

ATA_SAVE

DAT_PAT;

CLR

RRERRREE

e,
0000003090080 03%9290¢090298¢0e 000000V

NOWNES
VOB

B R R R ISISININIIEETREREREE

0000

N
=

00 00 00 00 00 OB 00 00 OB 0O

S2LLLL 2BLLZ2LLLLL
RORGRX SomIcnrwmSO

25 SRERRETEEGETE&

d
b

b
D

b e e

b e

nd
e

o o

b e

e e

b e

D e

D s

b o
D

e e

e
b

b d =

d
b e

md b e

b e

ek e

D e e

b e

b d

e
o

) b
b

e o e

e
e

b e

b
D

b
d e

b e

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

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

: bitvector [8],

!STORES ALL 8 ATA BITS ON READS AND WRITES

!DATA PATTERN

MLER
= ONE;
MLER = ZERO;

!SET THE ATA BIT

ATA_SAVE = _MLAS;

!READ THE ATTN REGISTER

it .ATA_SAVE [.ML_DUT] IS_NOT_SET
then

!SEE IF THIS DRIVES ATA BIT IS SET

ggbf
(51, ASYNC, DUMPER)
!ERROR AND EXIT_TST IF NOT SET
PRINTB (FOR_FMT, WRD_1S, bm 1, WRD_11, FNC_8);

EXIT_TST;
end;

if .ATTN IS_NOT_SET
hen
begin

!SEE IF THE ATTN BIT IS SET

CZRABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

11888 ;M6

1189§ :
;

11893 ;
1189 :
11895
11899
11897
11898
11899

11900

;
:
;
:
.

11901 :
1190% :
11908 :
11906 .

11905 :

uggg :

SEQ 0267

Ss-oec-wso :24:31

H% .

11891

H S
PAGE 280

~Dec=1980 09:01:22

604

mmm (rivFMT, REG_2. \.éo 16, PHR_1, WRD_11, FNC_B8);

6043

ASYNC, DUMPER)

6050
6051

605
6053
6054
6055
6056

6057

mMLCS1 = NOOP;

'TRY TO CLEAR THE ATA BIT WITH NOOP FUNC

{if .ATTN IS_SET
then

'SEE IF ATA GOT CLEARED

b;gw

(53, ASYNC, DUMPER);
'ERROR w EXIT_TST IF SET
PRINTB (FOR_FMT, WRD_15, PHR_2, WRD_11, FNC_2, WRD_19);
EXIT_TST;

6061

6063

'ERROR AND EXIT_TST IF NOT SET

EXIT_TST;
end;”

6058
6059
6060
6062

TOPS-20 Bliss-16 v2(212)

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

end;”

ATA_SAVE = .MLAS;

'READ THE ATTENTION REGISTER

1{f

'SEE IF THE ATA REG GOT CLEARED BY NO-OP

11908 :

6065

11910 ;

6067

11914
11918
196
11917

6071
6072
6073
6076

BGNSUB;
MLER = ONE;
MLER = 2ERO;

'SET THE ATA BIT

28;;

MAS = _ATA_SAVE;

'TRY TO TLEAR THE ATA BY WRITING TO IT.

11909 :

11911 ;
11912 :
1193 ;
:
;
:
;

11918 :
11919 :

ngg? :

1192,

6066

6068
6069
6070

6075
6076

.ATA_SAVE [.ML_DUT] IS_SET

then

b;ggf

E
(58, ASYNC., DUMPER);
PRINTB (FIV_FMT, WRD_1S, PHR_2, WRD_11, FNC_2, WRD_19);
end;

ATA_SAVE= ZEROES;
ATATSAVE [.ML DUTS
= ONE:

'CLEAR ATA_SAVE
ISET ATA_SAVE FOR THIS DRIVE

1t .ATTN IS_SET

ISEE IF THE ATA GOT CLEARED

6079

11924 :;

6081

b’o&i"

6084

PRINTB (FIV_FMT, WwRD_15, PHR_2, WRD_11, WRD_17, REG_S);
:

11928 :

11925 :

11926 :
11927 :

11928
11929
11930
11931
11932

:
:
;
;
:

}113332 :

11935 ;

6080 then

gggg

DAT_PAT = ONE:

'DATA PATTERN OF ONE IN FIELD OF ZEROES

6092

1incr ATA_SEL from 0 to 7 do

'REPEAT LOOP 8 TIMES

6090

11938 :

6095

11940 ;

11941 ;
1192 &

'ERROR IF NOT CLEARED

ENDSUB:
BGNSUB;
MLER = ONE:
MLER = ZERO;

609

11939 ;

(54, ASYNC, DUMPER);

6085
6086
6087
6088
6089

11936 ;

11937

6094

6096

6097

6098
6099

begin

if .ATA_SEL neq .ML_DUT
msn

.DAT_PAT;
ATA_SAVE = "MLAS;

ISET THE ATA BIT

'SKIP IF ATA_SEL EQLS THIS DRIVE NO.
'WRITE DAT PAT TO ATA REGISTER
IREAD ATA REG BACK

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

sfl

COUABO ML-11 L 0GI

MISCELLANEOUS C oDl

11964 .4

ERIPIFIFIITILLRRR

it .ATA_SAVE C.ML_DUT] IS_NOT_SET

then

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

!SEE IF THIS DRIVE ATA IS CLEARED

'E RROR AND EXIT LOOP IF CLEARED
mof
(55, ASYNC, DUMPER);PHR_6, WRD_ 1.
PRINTB (SIX_FMT, WRD 15

PRINTB (FMTZ7, .DAT_PATS;

WRD_17, REG_S, PHR_7);

exitloop;

end;

DAT_PAT = _DAT_PAT“ONE:;
end;

!SHIFT DAT_PAT AND REPEAT

ENDSUB;
ENDTST;

000001
140700
000010

”1 7%6 R3

#7., % .REG+40
R3. ML .REG+40
ML .REG+60
ML .REG+S0

By b,

151046

R1,8$SAVE3

:{.b.vrt h§ec»4o

Se Bo

151040

8ls8

—

151360

151056

141730
000040
151440
177770
000007
151034
00000
151042
151046
151400
-—d

L AV R JV

e
b
b

bk
b
d

5
>&&=

end;

g
333355533c300m2
g HEd

BELE
R
RN

R
TM

b acd

FNEBRELRER

S
8823]2
§ ooooonorO 00
SIS
&L ;3§§§£§§§
IR R R e N

NPt o]

6109

RRETRTEX

EPRYRAREE
AR §2 ELEE NRRENRRRRLS

SEQ 0268

88Dec1980 5:51:22

o b D d e d b b
d =D D o D b o i
e D d d D b d
b ) D b
D b b e
D
e e
D e e e b e
i e e e e o
e e cmd e e b e b b e e b e D
rd b e e
b e e apd b e e e o o e e
—h el b md
—d ed b b e

;

* ,ATA.SAVE

ATA.SAVE,*

603

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

333 3232 333 38%3

CIWABO ML-11 LOGIC TESY

Tneo3ntnn-x aTonnoTesSTbSSe«sNoIanidmase2dRSie«an2ene¥

mGAmLAAo,MmoEn...Am..%RMAmTATA.w,“.meox].V”S%n..w.....—.r.«M<o

MISCELLANEOUS CODING SECTION

cml

wmmwmmwmmwmmmsmmamamwm

g
e
y
a
y
z
s
,m= m61mw

-— w 8 [ o

150536

28:

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

12055

120;;

22-Dec-1980 09:24:31

2
4

151044
177770

000001

140364

000010

010464

22=-Dec-1980 09:21:22

ASR
MOV
ADD
MOV
MOV
BIC
MOV
CLR
JSR
ADD
DEC
BNE
TRAP
WORD

R1
SP,RO
RO.R1
R1.-(SP)
n.rr#r ~(SP)
2177770, (sP)
”,-(SPS
-($P)
PC.BLSGT2
#16.sP
RO
63
S5
72
R
ARD.19,~(SP)
#ENC.2,~(SP)
R0 11.-(sP)
MPHR.2 ,~(SP)
ARD.
15 ,-(SP)
EIv_Fmt,-(SP)

WORD

024052
12766
12746
012746
012746
012746

-WORD
MOV
MOV
MOV
MOV
MOV

12090
12081
12082

012746 000006
01
104414

MOV
MOV
TRAP

12084 042640

1044

TRAP

12079

006506
007742
006416
007404
006454
012746 006062

12033 042634 062706

MOV

000016

ADD

12185

1000;2

121
1044
12104
000066
12105 042740 ggow.
12106 043742
2

12107 042746 012746 010310
12108 042750 012746 006470
12109 042754 012746 006416

150316

#6,-(SP)
SP,
14

; SP,*

;

60
6074
6075

” ,-(SPS
(sP) ,.~(SP)
PC.B(SPU2
10(SP) ,aM .REG+70

MOV
MOV
JSR
MOV

00977 150272

60691

;
:
: ATA.SAVE

7646 000001
1%
67
140456
016677 000010

12101

;

ASYNC

#1.3M .REG+60
M .REG
(SP)
ML.DUT,R1
R1
R1
R1
SP.RO
RO.R1
R1.~(SP)

1
1
1
15100

716 177770

6068

MOV
CLR
CLR
MOV
ASR
ASR
ASR
MOV
ADD
MOV

MOV

016746

;

606

150700

; ATA.SAVE,®

;

012
000001 150364
005077 150360
005016
016701 150720
006201
1
1
0600
010146

702

TOPS

PA:
<

96,SP

12085
120%
12087
54
120&&%
12089
12090
12091
122833
1
1209%
76

SEQ 0270

120
1207‘82%253
12075
120;9042604
12077 042610
12078
16

K S
PAGE 283

sMLG

1
59
1205

12058
12059
1
12061
)|
1
y
12065
1%
y
12068
12069
12070
1207

22-DEC-80 12:16

BIC

TST

8PL

TRAP
WORD
JWORD
.WORD

MOV
MOV
MOV

6076

; ATA.SAVE,*

-(SP)

n?%b (SP)

ML .REG+S0

: ATA.SAVE,*

6077

5§
66

;

6082

DUMPER
#REG.S,~(SP)
ARD.17,-(SP)
MRD.11.-(SP)

;

6083

6079

ASYNC

N.2(aR&0Tw.9R91R0z“SRA“BR.ITB“LlRH“NI.Y.“aTmfRi”oHN3wS]Rg!E.RTnbMRooWR3R.MGwom.bo5£
m2[Sww-7mmol\moR@mom7eSmam1.mmSoyl1nN\a1isl(y&cEsed1-w(8ummaaBU~5nmE0mnn.im8muE1:RwA”TASIo‘w17oS:
=~rowp|r-.e.eoleNPtIoP«Pt—PaeWxts[TtTeTweeTPeTveyToP.P-PPO
. - . Y ooo 8555

NTSANXDRNRAOSRTNRANMARNSORRNN2R2NRTAINYATNIRSwRAEmSwARmSAmRESmRmNuRRmEAmRwOR«RuQAmNTmNRuR2u0RuNruEinuAounNANSN
wUm“mm)mom~mwmmFISRTETSTRP)m PwTGN}DTRAPP L4T~3T
XM&®o .M& gDa>1<Ta«S”g.\.f-. o
COUABO ML-11

JML6

mw8S5Nm0O35Nowz
150202

88:

5 = y _B

MISCELLANEOUS

MACRO M1113 22-DEC-80 12:16 PAGE 584
22-Dec-19 80
22-Dec-1980

MISCELLANEOUS CODING SECTION

MACRO M1113

12167

010600

12176 04

%303

121;9 04

1gn
12179 04

104467
006000

118:

12181 04%552
;g}g 04

005726
7

128%:

}%:‘IN 82 o 10‘;(1)2 000024
1978
B33 00508
12175 04

12180 043252

103663

12200 043260
12201 063264
12202 043266
12203 043270
}5
043272

004767
104466
006000
103773
000207

176640

T19::

1$:

6117

!<BLF/PAGE>

; SP,«

;DRSP ;34 SP
LT

ASL

: DAT.PAT

R2 A7

; ATA.SEL,*

INC

BLE

: ATA.SEL

PA:

610
611

609

TRAP
ROR

67
RO

611

TST
RTS

(SP)+
PC

6115

8L0

302 words

JSR
TRAP
ROR
8LO
RTS

16 words

PC.8T19
66
RO
1%
PC

: Routine Size:
6 words
.
; Maximum stack depth per invocation:

b
-

108:

; Maximum stack depth per invocation:

12191
12195
12199 04

RN 3%

22-Dec-1980 09:21:22

: Routine Size:

}S}&S)

SEQ 0272

22-Dec-1980 09:24:31
MOV

000007

12184

12
12
12
12

nS
PAGE 285

12170 043222

22-DEC-80 12:16

H, ¥

}%}23

L =&=

——. SN BN N AL B .

CZMABO ML-11 LOGIC TEST

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

6118
6119
61
6121
61 g
61
6124
6125
6126
61%7
6128
61%8
61
6131

!
!
BGNTST;

12235 :;
12236 ;
12237 :
12238 ;
12239 ;
12240 ;
12241 ;
12242 :
12243 :
122644 ;
12245 ;
12266 ;
12247 ;

6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146

|
i
|
i
i
|
|
‘
'
'
i—

12248 ;
12249
12250
12251
12252

;
;
:
:

12253 :
12254 ;

12255 ;

61%%
61

SEQ 0273

1e¢
' TEST NUMRER:

TST 20

' TEST NAME:
SEARCH FUNCTION TEST
|
i TEST DESCRIPTION:
|
'
TEST THE SEARCH FUNCTION BY:
i
|
1.
DOING A SEARCH FUNCTION AT

i
i

ARRAY ZERO AND TEST GO,
ERROR BITS AND ATTN FOR
SETTING/NOT SETTING.

DOING SEARCH FUNCTIONS AT ALL
PRESENT ARRAYS' AND TEST ATIN
SET

DOING SEARCH FUNCTIONS AT ALL
NOT PRESENT ARRAYS' AND TEST
ATTN CLEARED.

CLR_MBUS;

MLCS1 = SEARCH;

!DO A SEARCH FUNCTION

!SEE IF GO IS SET

6152
6153

1if .GO IS_S g
then
b;go
F (56, ASYNC, DUPER)

6148
6149
6150
6151

6154

12259 :
12260 ;
12261 ;
12262 :
12263 ;
12264 ;
12265 ;
12266 ;
12267 :
12268 ;

6158
6159
6160
6161
61
61
6164
6165
6166
6167

70 ;

6169

MDA = Z2EROES;

6155
6156

} 569 :

PAGE 286

6147

12256 ;
12257 :

12258 :

22-DEC-B0 12:16

31
25-Dec-1980 :24:
184:2)
22-Dec=1980
09

12216 .HL4
12217
;
12218
12219 ;
12220 ;
12221 ;
12222 :
12223
;
122264 ;
12225 ;
12226 ;
12227 :
12228
;
12229 ;
12230 ;
12231 ;
12232

12233 :
12234 ;

MACRO M1113

6157

6168

!ERROR IF NOT SET

PRIN}B (Flv FMT, WRD_1 ., PR_2, WRD_11, FNC_10, WRD_19);
end;

if .ILF IS _SET

then

!SEE IF ILF IS SET

b%
E
F (57, ASYNC, DUMPER):
'ERROR IF SET
PRINTB (FIV FMT, WRD_3, Pl-fl 5., WRD_11, FNC_11, FNC_10, WRD_19);
end;

1if .ATTN IS_NOT_SET
then
b;g
ERRDF (59, ASYNC, DUPER)

ISEE IF ATTN IS SET

{ERROR IF NOT SET
PRINTB (nv FMT, WRD_16, PHR-1 iRD 12, FNC_10, WRD_19;;
end

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

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

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

}

~Dec=-1980

12275 ;
12276 ;
12277 ;
1%%78 :
12 79
:
12280 ;

6170
6N
61;%
61
6174
6175

12282

6177

12283

12284 ;

6176

else

incr ARR_SEL from 0 *o .LST_ARR by .ARR_INC do
in
:

CLR mus-

12288 ;
12289 :
12290 ;

6183
6184
6185

6181
6182

it .OP1 IS_SET

IREAD ATTN

then

DF (60, ASYNC. DUMPER):
' ERROR IF NOT SET
PRINTB (FIV_FMT, WRD 4, PHR_S, WRD_12, FNC_10, WRD_19);
PRINTB (FMTZ9, .ARR_SEL);

end;

12293 ;

6188

ENDSUB;

12295
12296
12297
12298

6190
6191
6192
6193

;
;
;
:

12299 :

12300 :;
12301 :
12302 :

6187

6189

12307 :

6202

12310 :
12311 ;
12312 :

6205
6206
6207

12308 :;
12309

12315 ;
12316 ;

6210
6211

12318 ;

621

12317 ;

12319 :
12320 ;
12324

6214
6215

IARRAYS IF LSS 17

segsx.e

CLR mus
M DX= .ARR_SEL:
MLCS1= SEARCH;

'LOAD DSA REG WITH ARR_SEL
'DO A SEARCH FUNCTION

it .OPI IS_NOT_SET

'SEE IF OPI IS SET

then

b‘e&i’n

ERRDF (61, ASYNC, DUMPER);
'ERROR IF NOT ser
PRINTB (FIV_FMT, WRD 4, PHR_1, WRD_12, FNC_10, WRD_19);
PRINTB (FMT <9, -ARR_SE():
H

6209
621§

D0 A~ SEAR AT KLL NOT PRESENT

begin

6203
6204

6208

'SEE IF LSS 17 ARRAYS ARE PRESENT

incr ARR_SEL from .LST_ARR + .ARR_INC to .ARR_16 by .ARR_INC do

6201

12313 ;

12314 ;

if .OP_NUM_ARR lss %o0'000017'
then

6195
6196
6197

6198
6199
6200

12306 ;

end;

6194

12303 ;
12304 :
12305 ;

DO A SEARCH FUNCTION

bag

6186

12294 ;

'DO SEARCH AT ALL PRESENT ARRAYS

'LOAD DSA REG WITH ARR_SEL

12291 ;

12292 :

TOPS~-20 Bliss-16 V2(212)

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

M DX = _ARR SEL;
MLCST
= SEARCH;

6179

6180

09:21:22

begin

6178

12285 :

12286 :
12287

SEQ 0274
%S-oec-wso :. 31

12281 :

)

ENDSUB;
end;

end;
ENOTST;

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

CZMABO ML-11 LOGIC TEST

SEQ 0275

T%TSRgTSRphovppsdy

T
R
HWkSwmBWowomWmumM«$um«mmM«mm1mw8ww9u,cm81i9.5fi.5%6.565.65.6.........

MISCELLANEOUS CODING SECTION

1460560

$720:

JSR

14IR TR141nmnnsmuTIEey

167

147670

81S8
MOV
8IC

L33 oL .P T83T8S2o9 |- P3tL
T8382 3 7 :3

000007
1647664
147650
000031
000001

1647706

B8ICB

MATL

g B Br

147600

147500

18:

8 Y

147612
147604

6128
6n

614J
61
61

615

6154

615
615

6161

6159
6164

6167

6168

TEST
S ECTION

MACRO M1113

22-DEC~B0 12:16

PAGE 289

)

SEQ 0276

JMLG

S =538208¥33I 5

§2o&o5vmaJJ.m<anX582gREG

SEER

3S©ogakw©ve©eAo0y5TIoo s8 o ©V0Y:To0%Pa0st0TsRP =a

-0y
Ny

OFMn2RE2S2A«2(CeRS2a2A2LENaISLNnETRO2Yr SX38RIgNi9Rs3YyeEs amNG.wLbS—M2.nM8Y).5M

&§3 2 22

Mmooy

CZMABO ML.-11 LOGIC
RMISCELLANEOQUS C ODING

MOV
MOV
MOV
MoV
MOV
RAP

MOV
MOV

TRAP
81S8

8IC
8I(B

BISB
BIT

0433;“

sé?

37
37
r7

\mo
. WORD
. WORD
MOV
MOV
MoV
MoV
MoV
MoV
MoV
MoV
TRAP
MOV
MOV
Moy
MoV
TRAP
TRAP
Rm

cm
BLE
P
BGE
MOV
ADD
MOV

4opnanzataonatmautmuannsmhoemnremtemem
SO O0 o 0 O 0g 0 -Q

N - BN

NNR,S
N

13N=5E2agr8C1EN1grg1Is1e31Yas81eymi1on1moi1nE18,1L1I1E1PR1pR1g1gIh1s11£.

ISU5Ag3Y)nsSnw¢mn8R5YERBsARAlRpRigeSRr8EgOMAmANIRBLaRR2AmS%~2w5»:w8v
S STR
5 3

MISCELLANEOUS CODI NG SECTION

CZRABO ML-11 LOGIC TESY

00000

MACRO M1113
22-DEC-80 12:16
PAGE

S90°
SEQ 0277

1647132

147054
147126

5- —0y

CZMLABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

MACRO M1113

12494

SEQ 0278
22-Dec-19 80 09:24 :3 1
22-Dec-19 80 09:21 :22

12696

004767
104466

177050

103
000207

120
$

JSR
TRAP
ROR
8LO
RTS

6216

! <BLF/PAGE>

TOPS
<
PA:

6213

PC,8T20
RO
18
PC

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

}%g?g

12514
12515 ;

PAGE 291

JMLG

12495

12500
12501
1 ggg
12
12504 044
12505 044
12506
12507

22-DEC-80 12:16

0 words

—

CZMABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

12517 ;M4
;

SEQ 0279

22-Dec~1980 09:31.:31

} g}g :
12520

20-Dec-1980 09:21:22
6217

TOPS-20 Bliss=-16 v2(212)

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

}221 :

8}3 BGNTST;

1552« ;
12525 :
}g%? :

8 1
g
8 3

1
!
|

155

i TEST DESCRIPTION:
i

TEST THE READ IN PRESET FUNCTION BY:

12531 :

6228

183 :
12535 :
12536 :

3
6032
62§ CLR_MBUS;

ggg MLCS1 = RD_IN_PRE;

'DO A READ IN PRESET FUNCTION

12539 ;

6236

ISEE IF GO IS NOT SET

12543

6240

1552§ :
} zg

12532 :

155533; :

12540 :
12541 :
1254; :

6220 !+
6228
&ig

2524

12548 :
12549 :

6245
6245

12552 :

6249

12556

625

12553

12557
12558 :

%23 ::

12561 ;

6250

6254
6255

TEST NAME:

READ IN PRESET TEST

PERFORMING A READ-IN-PRESET FUNCTION AND TESTING GO, ERROR BITS
AND VV FOR SET / NOT SET.

it .GO IS_SET

1ERROR IF SET
PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_11, WRD_19);

If,.a“' IS_SET

m
E
(63, ASYNC. DUMPER);

6260
&0
6261

12566 :
12567 :
12571

62
6264

'SEE IF ILF IS NOT SET

'ERROR IF SET

mum (FIV_FMT, "WRD_3, PHR_S, WRD_11, FNC_11, WRD_19);

’

if .OPI IS_SET

gfiflor (64, ASYNC, DUMPER):
n

'SEE IF OPI IS NOT SET

1ERROR IF SET

PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_11, FNC_11, WRD_19);
end;

%‘;9 if . .VV IS_NOT_SET

1538
12563
::

12564 :
12565 :

TST 21

6237 then
6238
b;gg?
6239
E
(62, ASYNC., DUMPER);

'%254625‘7

%g? :

TEST NUMBER:

then

I1SEE IF vv
WV IS S SET

Eoen (65, ASYNC. DUMPER);
'ERROR IF NOT SET
PRINTB (FIV_FMT, WRD_18, PHR_1, WRD_11, FNC_11, WRD_19);
end;
-

ENDTST:

,g2one68mRJMMHWMg
9 xea =gy

ieFIaRRkseren

I nR o 99

m z8w23mu3m mmwwmmm3mmmm
:3 2$
LT P TT LTIL L L

ZREXTILGREP

e55gae3P3PggUe(OmPg(.gR3Pg8g5o(P2gggTgP:T=PgNeeeoNoo0gPePSPePlPewPdPyPPeP
SPI2RIIRSIe?

12746

eyIsa
$

006506
:

298

020000

22-DEC-80 12:16

-l33

PAGE 293

’

$3 23 23

1RIH woN~0

).0

0 B T8 3 3 3 3 I I8 3 o

MACRO M1113

23%33% Ji e, S

MISCELLANEQUS CODING SECTION

CZMABO ML-11 LOGIC TEST

SEQ 0280

CZRABO ML-11 LOGIC TEST

)

SEQ 0281

kool5eSg8et5ole8e2-.eooolo&l]11S1512oafolod[

MISCELLANEQUS CODING SECTION

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

TOPS
PA:<

R R SRR R e

onires

22-Dec=1980 09:24:31
:21:22
22-Dec-19 80 09:2

0000

000016
000100

166470

38:

766 007366

746 006506
010060
766

5
3
U
B
~
sedaleiSiennnds: menaswmmmmmumn
S1

¢ SP,*

625;
625

6260

006416

10600

48:

6261

6259

6215

3 5

mwmmm

,umwww

; Routine Size:
120 words
;. Maximum stack depth per invocation:

T3P 8°$9y
83

;

7 words

0 words

CZMABO ML-11 LOG IC TES

MISCELLANEOUS COD ING SECTION

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

12687

12688

12689 ;

6265

! <BLF/PAGE>

SEQ 0282

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-B0 12:16

K 6
PAGE 296

25-Dec-1980 09:264:$:3 31
2 -Dec~1980 09:21:22

H, T
.

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>BL3IML4L.BLI.2 (72)

]

6269
6270

BGNTST:
lee

; TEST NUMBER:

TST 22

TEST NAME:

ILLEGAL FUNCTION TEST

;

TEST DESCRIPTION:

'
;

TEST THE DETECTION OF ILLEGAL
gtymnous WRITTEN TO MLCS?
:

;

'
!
;

WRITING ALL POSSIBLE ILLEGAL
FUNCTIONS TO MLCS1.
THEN
TEST GO AND ERROR BITS CLEARED.

[
local
BAD_BITS,

ISTORES A COUNT TO GENERATE BAD FUNCTIONS
!STORES GENERATED BAD FUNCTION

NOWNESWN-=O

SotoatoeReReRRReRtt 5

BAD_FUNC;

AlAA
AN AN

(v,

0000000 00030000000 %0%00900% 0% 0 %000% 0,0%

D e
D e e
b
D e
b e e
o
D e
b e
b e
e o
e
b e e
i
oD e e
b e e
b
b b el

Ve 80000803 %

D b

b b

AR
R RN N NN EERP S PR AR SEERE 3288

0038000032000 07908:02 0000930000800 000000,

NI NI AININI NN
NINIALINININIRONIN
N AN NN ALNI NIAINIAL AR AININININIAIAI

SEQ 0283

BAD_BITS = ZEROES:

!CLEAR BAD BITS

incr CN¥_1 from 0 to 2 do

'REPEAT LOOP 3 TIMES

_BITS = .BAD_BITS + X0'2°:

ner CN}_Z from 20'1* to %20°'71° by %20°10° do
n

CLR }BJS' :

BAD FUNC = ,(NT_2 + .BAD_BITS;

'ADD 2 TO BAD_BITS
'REPEAT LOOP GENERATING 'GOOD’ FUNCTIONS

!ADD BAD _BITS TO CNT 2 GENERATING BAD FUNCTIONS

FIRST_BLK XFER V);
MLCS1 = .BAD_FUNC.

'SET UP K FIRST BLOCR XFERR

if ILF IS_SET
then
begin

!SEE IF ILF IS SET

!LOAD MLCST1 WITH TWO BAD FUNCTIONS

if .GO IS_SET

then

!IF ILF IS SET THEN SEE IF GO IS SET

;

'E’%F (66, ASYNC . DUMPER);
R);
n

!ERROR IF GO _SET WITH BAD FUNCTION

PRINTB (FIV_F MT, WRD_1, PHR_2, WRD_11, FNC_12, WRD_19);
mNTB (FMT_12,
end

.BAD_FUNC)

CZMABO ML-11 LOGIC TESY

MISCELLANEQUS CODING SECTION

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

12747 L6

004167
005004
005001
062706
012

O1
060205
104;9;
152
016700
042
142
150077
010503
004767
010377
132777
001440
132777
001471
104455
000102
010464

ERgDF
(67, ASYNC. DUMPER);
PRINTB (Fiv_FMT, WRD_3, PHR_1,
PRINTB (FMTZ12,".BAD
BADFUNC) ;

TOPS=-20 BLiss=16 v2(212)

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

'ERROR BAD
BAD FUNCTION DON'T CAUSE ILF
WRD_11, FNC_12, WRD_19);

it .OPI IS_SET

then

!SEE IF OP]

b;gbf (68, ASYNC, DUMPER);

!ERROR
]

IS SET

SET

PRINTB (FIVFMT, WRD_4, Pl-fl 5., WRD_12, FNC_ 12 WRD_19);

PRINTB (FMTZ12, .8ADCTFING),
ENDSUB;

end;

end;
ENDTST;

137262

$T722:

000002
000001

000040
146712
177770
000007
146306

28:
146330
146312

151124
146234
000001

146306

000001

146216

R1,$SAVES

;

R4.RS

: BAD.BITS,

Ré
R1
#2.R4
#-R2

gz.ns

'cll.o@MU .REG+40

i%bRO

: BAD.BITS
* CNT.1
: %,BAD.BITS
t « CNT.

P CNT.2.®

6264,

6291
629

629

6301

n.n.necw.o

RO. ML .REG+40

RS.R3

; *,BAD.FUNC

R3.aML .REG

: BAD.FUNC.*

PC.FIRST.BLK.XFER

fi.n.necwo
g.n.nec
102

6329
6330
6331
6332
6333
6334
6335
6336
6337
6338

else

12783 044650
12784 044652
12785 0464654
12786 044656
1g787 064664
12788 044670
12789 044676
12790 044702
12791 044706
12792 044710
12793 044714
12796 064720
12795 0‘4;%8
12796 0h4
12797 0464736
12798 0464740
12799 044742
12800 064744

2%18
19
6320
6321
632§
632
6324
6325
6326
6327
6328

12761 ;
12762 :
12763 ;
12764 ;
12765 ;
12766 ;
12767 ;
12768 ;
12769 :
12770 :
12774
12778 044630
12779 044634
12780 044636
12781 044640
12782 044644

SEQ 0284
Ss-oec-19 09:24:31
-Dec=1980 09:21:22

12748 ;

12749
12750 :
12751 ;
12752
127538
;
12754 ;
127SS :
12756 :
12757
12758 ;
12759
12760 :

)

6301

;

6302

:
;

6305
6309

;

6312

6303

SRERISILIS9505832939398g
Tg5JINRJY5&S8ewR3JS(2SRSMowm&BwRyn58m3.3m2YRwm5EmRnBdn5m8f3i3Sw3Rm2
g3un(RRQRsDRgQsSPgunggPg(PaOmgPe2g(Tggwgmggg282eemeTePPPP882P52ePTP
RRhGmm|}nnmemwemnm)aBa)nmu~aw«0dmm§ReS:mwmSm£WmTmm3ao9eBemcmRnm8nemm]amwntmmowonAmBwn)mrMdawem0nn1wmdmNiwI%mSw1eFmwsBmc]w[oAswwmoeSTmwodNeaammn)3~c3lRme3R0td3s13m.
3Zo s 52% ¢ g53
MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

MACRO M1113

: P4

22-DEC-B0 12:16
PAGE 298
)

SEQ 0285

i 23

PA:d

TOPS

6313

6314

6311
6320

6321

6322

6319
6325

6328

6329

6330

CONABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113

12858
}

)

SEQ 0286

5 -Dec-1980 09:24:31

045210
S21&
S

1285
1
S
1
12848
1
12870
12871
123;;
12873
045
12874 0455240
}%g;g 045

818746
O
106414

000002

709 000022

103611

201
127

00
000167
207

000002

177360

12896 045266
12895 045270
12896 045272
}22333 065274

8s:

-Dec=-1980 09:21:22

MOV
MOV
TRAP

#2,-(SP)
SP,RO
14

TRAP
ROR
8L0
ADD
P
BLE
INC
(v,
B8GT
JMP
RTS

6
RO
3s
#10,R2
R2.#71
23
R1
R1.#42
8s
18
PC

ADD

004767
104466
006000
103773
000207

177342

12899
}2900

T22::
1$:

JSR
TRAP
ROR
8LO
RTS

6339

'<BLF/PAGE>

6327

6331

: %,CNT.2
; CNT.2,*

6297

: CNT.1
: CNT.1,»

6293

6264

6336’

15 words

PC,8T22
66
RO
1$
PC

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

TOPS

PA:d

s SP,«

:;2.9

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

12884
12888

1289% 0465262
12893 045262

78:

000010
000071

12877
}%ga?g

12906
12907 ;

N 6
PAGE 299

sMLG

12861
1 68
1

22-DEC-80 12:16

0 words

CIMABO ML-11 LOGIC TEST

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

MISCELLANEQUS CODING SECTION

}290910 M6

1291§ H

12914 ;

‘s

634§

634

12918
12919
12920
12921
12922
12923
12924
12925
12926
12927

;
;

6346
6347
828
9
6350

12929
12930
12931
129%

;
;
;
H

1%817 H

;
;

:
;
;
;
;

12928 :

129

12934 ;
12935
12936 ;
12937 :;

6351
635§
6353
6356
6355

6356

6357
6358
6359
6360

6361

gggi
6364
6365

6366
6367
6368
6369

12943 ;

6371

12946 :

6374

12948 ;

6376

12944 ;
12945 ;

12947 ;

BGNTST;

6370

233;%

l4¢

!
| TEST NAME:
REGISTER MODIFICATION REFUSED TEST
!
! TEST DESCRIPTION:
!

!
!
!
!
!

TEST THE DETECTION OF A

|
!
!
!
!

WRITTING TO MLCS1,

IS BUSY AND TEST AR
BIT SET.

ALSO SEE IF THE DRIVE ASSERTED

EXCEPTION BY TESTING THE TRE BIT SET.

!
|

Jincr CNT from 0 to 2 do

!REPEAT LOOP 3 TIMES

:
CLR_MBUS
MLCS1 = write;

!DO A WRITE FUNCTION

case .CNT from O to 2 of

!WRITE TO SELECTED REGISTERS FORCING RMR

set

0] :

6375

MLCST1 = X0°'000000°;

6377
6378

1] :
MLDA = ONES:

1295% :

6380

2] :

12954 ;
12955 ;

23325

tes;

;

12953

12956 12957

12958 :

12959 ;
12960 ;
12961 ;

12962 :

12963 ;

6379

6381

6384
6385
6386

6387
6388
6389

6390
6391

MLDA

AND MLER WHILE THE DRIVE

12949 ;
12950 ;
12951

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

&g ! TEST NUMBER: TST 23

12938 ;
12939 ;
12940 ;
12941 ;

12942 ;

SS-D«-‘I‘)BO 09:54:31
-Dec-1980 09:21:22

821 !

}29}2 :
:

MLER = ONES

DELAY (FRTY_US);
if .RMR IS_NOT_SET
then

bgg?
E
(69, ASYNC, DUMPER);

!SEE IF RMR GOT SET

'ERROR IF NOT SET

PRINTB (FOR_FMT, WRD_21, PHR_1, WRD_11, WRD_21);
end;

SEQ 028;|

CZMABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

12965 ;M4
}

22-Dec=1980 09:21:22

9§

12970
:
12971
129;§ :

9
95

153

639

10976

6400

}% :

6403

129764
;
12975
;

12977 ;
12978 ;

if .TRE IS_NOT_SET

then

005
1
152

end;

ENDSUB;

end;

ENDTST;

$T23:

000040

145676

1299% us& 162777 000007

145660

12996 045340
12997 045346
12998 o:.sssg
12999 045352
13000 045356

012777 000061
010201
1
066107 045356
000006

145606

1
065364
13004 045
13005
045
13006
13007 s‘os
13008 82541
13009 045414
13010 045416
13011
1301;

005077
ooo;g;
01

oasge 016701

12993 045322 042701 1
12995 045

13001 045360
13&5 045362

13013

045406

13014 8:54
13015
0454

13016 045434

13017 045436

13018 045444

150177

000014
000024

145654

18:

2s:

145564

3s:

177777

145604

4$:

15
177777
12700 000050
001410

145624

S$:
6$:
7s:

016701
1403
16

134474

005301

001

767

132777

001024

ISEE IF DRIVE ASSERTED EXCEPTION BY TESTING TRE

PRINTB (FOR_FMT, WRD_20, PHR_1, WRD_11, WRD_21);

898
99

6401
640§

TOPS-20 Bliss=-16 v2(212)

PA: NEALE>BLIMLS.BLI.2 (73)

b;gin
ERRDF (117, SYNC., DUMPER):

12967 oas%g 004167 136542
12988 045
005746
12989 045306
12990 045306
12991 045310

SEQ 0288

zs-oec-mo 09:24:31

$ :

12969 :
1

000004

145570

JSR
ST

R1,$SAVE2
-(SP)

MOV

BIC

n%m

BICB
BISB

#7.3ML.REG+40
R1,aML.REG+40

CLR
TRAP
BISB

MOV
MOV
ASL
ADD
.WORD
)
.WORD

CLR
B8R
MOV

BR
MOV
MOV
BEQ

8s:

MoV
BEQ
CLR

9s:

BNE
DEC

108:

6338

: CNT
:
:

636
3
636

#61 ., aM .REG
R2.R1
R1
ggm.»c
23

:
: CNT,»

6369
6371

aML .REG
3
#-1,3ML .REG+30
68
#-1,3ML .REG+60
#50.R0
108
gou.m

;
:
:
:
:
: %, $STMP2

6375
6371
6378
6371
6381
6384

; «,$STMPI

(SP)

; SSTMP

8s
RO

; SSTMP2

R2
2
#40,aML.REG+40

”

4$-2%
53-2%

DEC

BITB

BNE

#4 aML.REG+60

11§

: SSTMPY

;

6386

|$R3¥Se%9sa2&n82atetane8BumeR223w8mmmmmmB&mmm,§&2g8-3
adamdolodandolslolaglololglolololadilolokXololsla8ndodaddolodolaadslolololoolandarntL.ol
3

£ m

RS LR RRERRPRSRRe SiR
CZRABO ML-11 LOGIC IC TESY
TE
MISCELLANEOUS COD ING SECTION

000002

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

mns2iwnugn8unasn1dmsem .3

22-Dec=-19
22-Dec-19

F- "o

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

1508
°‘§
767 177652
1"&1: 82 AR
S2ees 90599
045632

000207

18
)

Jm
;&&
BLO
RTS

pe.sTas
38'
18

! BLF/PAGE>

6401

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

6404

SEQ 0290

0 words

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEQUS CODING SECTION

22-DEC-80 12:16

F
7
PAGE 304

13096 .llk
}% .
13099 ;
1%100 :

13101
13102
1%103
13104
13105
13106

;
;
:
:
;
:

ss-oec-1980 :264:31
-Dec=1980 09:21:22
6405
64

6407
6408
6409
6410
6411
641§

!+e¢
! TEST NUMBER:

TST 24

641
6414
6415
6416

' TEST NAME: initial PROM TEST
i
| TEST DESCRIPTION:
|
'
TEST THE MEMORY ARRAYS' PROM

13112 :
13113 ;

6418
6419

|
i

6421
6622

|
|

64625

6427
6428
6429
6430

!
|
1—

13111 ;

13114 ;

13118 ;
13116 ;

13117 ;
13118 ;
13119 ;

6417

6420

6423
6426

13120 ;

6426

13125 ;

6431

13121
13122
131283
13124

;
:
;
;

13126 ;
13127 :
13128 ;

13129 ;

6432
6433
6434

‘

TIMING AND CONTROL LOGIC FOR

INITIAL PROM READS BY:

READING 14 PROM LOCATIONS
AND TESTING FOR:

'
'

A. CHECK SUM ERRORS AT
EACH ROM COLUMN ADRS

‘

8. SUM OF EACH PROM BIT SET
<9,0> GTR 164.

local

OFF SET_CNY : vector C10, bytel,
R(H-(REB COoL
bitvector [16],
R CTSAV
© bitvector 161,

'COUNTS EACH NIBBLE OFFSET
ISAVES ROW DATA OR'ED WITH COL DATA
'TEMP LOCATION FOR ROW COL DATA

!CDGCK SUM ERROR

13130 ;

6436

6435

PROA_ADRS

13132 :
13133

6437
6438
6439

W, &
_SUM_ERR,

CNT_NIB
CN

1313 ;

CHK_Sun

1313% :

6440

3% :
13138 .

Sss o
6444 D(Ddfi% = 7ERO;

13140 :

6446

13135 .

13139 ;

6441

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

!
!
BGNTST;

;
;
;
;

13107
13108
13109
13110

SEQ 0291

0000 F(G
ERRFLG

'PROM ADDRESS

!CHECK SUM DATA

1COUNTS BAD NIBBLES
‘CMTS BAD NIBBLE POSITION EQL 14

'DROP UNIT FLAG
'ERROR FLAG

6445

PROMDIS = ONE

'SET PROM DISABLE MODE

13141 ;
13142 ;

6447
6448

1incr CNT from 0 to 9 do

ICLEAR OFFSET COUNTS

‘%}g M

2‘4?

incr AD?S CNT from 0 to 14 do

'READ PROM DATA FROM 15 ARRAY WORDS

g}’zg :

PROM_ADRS = .ADRS_CNT;

6456

incr TWICE from 0 to 1 do

}g}l’:z M

13147 ;
13150 ;

22;3

645

CHK_SUM_ERR = ZEROES;
OFF _SET_CNT ( CNTJ ZEROES:;

2&ORED_COL= ZEROES:

'CLEAR ROW ORED COL SAVE LOCATION
!GET COPY OF ADRS_CNT

'READ ROW AND COL DATA FOR THIS ARRAY WORD

—

CZMABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

§1s§MG
1313

1;155 :

6457

3:8{

7
SEQ 0292

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

TOPS-20 Bliss=-16 V2(212)

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

13156
13157
1§1sa :
13159

6458
6459
6460
6461

_NIB_CNT = ZEROES:
ERR"FLG = ZERO;
MLPK = .PROM ADRS;
oeuw (ONE_ US);

'LOADING MLPA INITIATES PROM READ

R_C_SAV = -MLPD;

1GET THE ROW OR COL DATA

1%}8 :

6464“65

fncr BIT_CNT from 0 to 9 do

'COUNT NUMBER BITS SET IN <9:0>

11%245 :

24“(39

mgg ;

6:.63“69

CHK_SUM = .R_C_SAV<10, 3>;

%}gg :

22;10

if .R_C_SAV [13] IS_SET then CHK_SUM = .CHK_SUM + 1;

'ADD IN BIT 13

%};10 :

22;;

it .R_C_SAV [14] IS_SET then CHK_SUM = .CHK_SUM + 1;

'ADD IN BIT 14

m% :
13174 :

gz;g
6476

it .R_C_SAV [15] IS_SET then CHK_SUM = .CHK_SUM + 1;
if .R_C_SAV [15] IS_SET
1S BIT 15 SET

'ADD IN BIT 15

13177 ;

6479

%}g? :

13175 ;
13176 ;

gtgi

6477
6478

11§1177g :

223?

13180 :

6482

13182 :

6484

13181 ;
13183 :

if .R_C_SAV [.BIT_CNT] IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1;

then

'GET THE CHECK SUM BITS

begin

if .BAD_NIB_CNT Lss .CHK_SUM then ERR_FLG = ONE;

6483

end

else

begin

6485

1%11%1; :

gzgg

if .BAD_NIB_CNT neq .CHK_SUM then ERR_FLG = ONE:

13186 :

6488

end;

13187 :

13188 :

6489

6490

13189 ;

6491

13194 ;

6496

13190 :
13191 ;
13192 :
13193

13195

13196 :

13197 :
13198 13199 :
13200

113203 :

gggg

13205

6507
6508

DODU_FLG= ONE;

6499
6500
gg&

'WAS THERE A CHECK SUM ERROR

end;

6498

6501
650

ISET ERROR FLG IF CHECK SUM ERROR

'REPORT INTERMEDIATE ERROR IF YES
(70, INTER., DUMPER):
PRINTB (SIX_FMT, FNC_21, WRD_10, WRD_12. WRD_4S, WRD_35, FNC_6);
PRINTB (FMTZ10, .CHK SUM, .RZC_SAV);

6497

]'3201 H

13206 :

if .ERR_FLG IS_SET

then

6492
6493
649%
6495

'SET ERROR FLG IF CHECK SUM ERROR

ROW_ORED_COL = (.ROW _ORED_COL) or (.R_C_SAV):
'OR ROW AND COLUMN DATA
md!_ADRS = (.PROM_ADRS) or (%o° zooo Y:"VGET COLUMN DATA
incr index from 0 to 9 Jo

'GET TOTAL OFF SET COUNTS FROM THE 15 ARRAY WORDS

if .ROW_ORED_COL [.index] IS_SET then OFF _SET_CNT C.index) = .OFF_SET_CNT [.index] + 1;
end;

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

}

H 7
PAGE 306

-Dec=~1980

6509
6510

‘%%}‘ N

gg}l

}g}z ;

gg}‘

13217
13218 ;
13219 ;

6515
6516
6517

1322% ;

6520

13225

652

}33%%? :

13223
13224 ;

gg}g

6524
g;gg

‘%33%233 :

gggg

11:3522%} :

ggz}g

13233 .
13234 ;
13235 :

6531
6532

incr CNT from 0 to 9 do

'ERROR IF YES

if .CNT_14_BAD eql 10

IWERE ALL 10 NIBBLE OFFSETS GEQ 14

then

else

PRINTB (SIX_FMT, WRD_S5, WRD_54, WRD_46, \RD S1, WRD 42, WRD 40)

be?in
PRINTB (FOR_FMT, WRD_46, WRD_47, WRD_42, WRD_40);

6536
6537
6538
6539
6540

if .DODU_FLG IS_SET
then
mn
(.ML_LUN);

6S
6544

ENDTST:

004167

133%% 065644

152
016705

13259 045662

142

13261 045674

005066

045652

162

150577

.CNT,

(.OFF_SET_CNT [.CNTI));

end;

'DROP THIS UNIT IF DODU_FLG SET

DOCLN.
end;

136256

000030
000040

145724

13258 045656 04277957 1
13260 045670

'PRINT MESSAGE

'PRINT NIBBLE POSITION AND COUNT

end;

13238 .
13239 :
13240 ;
13241 ;
13242 :

13255 045640

YES

'FIND OFFSETS GEQ 14

it .OFF_SET_CNT [.CNT] geq 14 then PRINTB (FMT_13,

6535

'ERROR IF

F RO THEN PRINT WHICH ONES WERE

incr CNT from O to 9 do

6533

13254 045634

'WAS ANY OFF_SET COUNTS GTR ZERO

ERRDF (71, ARR_DAT, DUMPER);

DODU_FLG = ONE;

13245 ;
}333‘53 3

PA: <NEALE>BLIML4L.BLI.2 (74)

"COUNT HOW MANY OFFSET COUNTS GEQ 14

1f .CNT_14_BAD neq ZERO
then
b;ain

6534

6541
654

09:21:22

1t .OFF_SET_CNT [.CNT] geq 14 then CNT_14_BAD = .CNT_14_BAD + 1;

13236 :

13243 ;
132644 ;

TOPS=-20 Bliss-16 Vv2(212)

CNT_14_BAD = ZEROES;

6521
652

13226 ;
‘%%2255 :

13237 ;

SEQ 0293
35-0«-1980 4 31

% :

1;%11 :
1
1§ :

22-DEC-80 12:16

145

000002

$T24:

JSR

R1,$SAVES

;

BISB
MOV

#60, n REG+40
Fl

1645324

8I1(B

l? amL. REG*‘O

CLR

2(SP)

SUB

BIC

BISB

#30,sP

6ns

RS.aML.REG+40

; DODU.FLG

6441

12701

INC

000011

BLE

000006
000001

28:
3s:
145272

134122

001404
005066 000014

d o

885302

1374
005301

nd e =D i

000766
017766
005002

145366 000012

010201

o
D e
b ud

48:

UJ
NOVEA WO O BN
NA GRS

d wad e
d

MOV

6(SP)
,aML .REG+100

CLR
MOV
CLR
CLR
CLR
MOV

BEQ
MOV

10(SP)
RS.6(SP)
R%
4(SP)
(SP)
#1.R1

73
LSDLY,R2

BNE
DEC

58
R1

7$:

DEC

BR
MOV
CLR

MOV

ASR

R2.R1

0001

ADD

RO.R1

BIC

M F7770, (SP)

10146
10246

MOV
MOV

177770

MOV
CLR
JSR

000010

S
7

000004
27

000011

16603

000012

000303
042703

177770

ADD

DEC
BNE

9s:

SP,RO

R.C.SAV,*

R1.-(SP)
R2.=(SP)

BIT.CNT,»

#1,-(SP}
~(SP)
PC BLSGT2
#10.sp

INC

4(SP)

R2.M1

INC

BLE

MOV

;§<sp>.ns

8
SWA8

BIC

Ve e By, 0,

X3
ML .REG+230,12(SP)
R2

B
#12,R0

ADD

OFF.SET.CNT,»
CNT ,»

r
MOV

b
e
b
e
b e

AY]
N

b b
d

CLR

CHK.SUM.ERR

CNT
CNT,»

R2.M1

63
14(SP)

81@746 000001
%6
004767 135054

b aph

winlnivlols)

0591
.gfifih_anmz
042716

SP,R1
R2.R1

BEQ
CLR

O %00

) cad

#16,R1

006201

ADD
ADD

CcLRe

5005

16677

MOV

#40.3ML.REG+120
R2

YR YRYN ¥

BISB
CLR

PR YR

A A A At

) i
) D

D
D
D i e
b i
d
) e
D
D

18:

105011

001411
016702

000016

005066 000010
010566 000006
005004
005066 000004
00501

b
) ad wd

145366

TETE

000040

09:

§z§§§§§§§§aafi&mfi&'yaédada‘dk‘wfi o
RRERRRRRPRRRRRRRRRERR
PRPPRRORRPLE
L
i
NN NANAIAMANIAY
S3>ro8R8 PNETEYEH
SEEL
L onvox ki8RO b gmwv\v\mmm\n
PRFTPIIIIPNIRINEIEE

D
e e

152777
oog

1
08%01

b ed
b

22-Dec-19
22-Dec-19

;L6

N
W

—d

#177770.R3

BAD .NIB.CNT
BIT.CNT

BIT.CNT,»

R.C.SAV,CHK.
SUM

. SUM
CHK
. SUM
CHK
CHK
. SUM
*,CHK.SUM

ING SECTION

MACRO M1113 22-DEC~-80 12:16 PAGE §07

IC TEST

MACRO M1113 22-DEC-B0 12:16 "AGE §08

CZMLABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

SEQ 0295

000010
000006

o228a
16%:

CHK.SUM
*,R.C.SAV+1

6472

CHK. SUM

(V]

CHK.SUM

BAD.NIB.CNT ,CHK.SUM

6474

6476

6480

BAD .NIB.CNT,CHK.
SUM

6470

R.C.SAV+1

§§§%§S§§§§§§§§§§§§§§§§§§§§§§§§§2%§§39§3

000030

=8§

~ O&

§323232090esees

&S
\I\JV\IVN\JN 828

d-‘gfi
§k!8 SRR
O S TN I IS
T Y TN

128:

. AVH

*,R.

* ERR.FLG
ERR.FLG,*

6493

e
A
¥

pareury,
-, |
Ly

118:

000013

00,13(sP)
$

BB ERgodga &5

000013

s D
\n—il\z-l bt

000100

#40,13(SP)

TOPS
PA:<

000013

000040

> 4

SR R B8

22-Dec=19 80 09: 24 N
22-Dec-19 80 09: 21 122

6494

SP,»

R.C.SAV,*
CHK.SUM,~
SP,x
#1.,30(SP)
6 .”
12(SP),10(SP)

l‘

17§

R2
R2.R1
R1

.6(SP)

*,DODU.FLG
R.C.SAV ROW.ORED.COL
* ,PROM.ADRS

6495

CMABO ML-11 LOGIC TES

MISCELLANEOUS CODING SECTION

]
13378

1
1
%63
13281
1
1
133.34
1338$
1
1573
133 8
13389
1370
13391
133°§
1339
13394
13395
mog

1325
1338
13399
13400

1?«85

000010

177770
000001

134512
000010
000016

000011

000016

13407
13408
13409

000016

13410
1

1§

1341
1§u
13415
1 19

000011

1341
1
13

151

}
1
1
1
]
1
1342
13428
13429

198:

000016

13404
13405

13411

SEQ 0296

208:

218:

228:

22-Dec-1980 09:24:31

22-Dec-1980 09:21:22
ASR
ASR
MOV
ADD
ADD
MOV
MOV
BIC
MOV
CLR
JSR
ADD
DEC
BNE
MOV
ADD
ADD
INB

R1
R1
#10,R0
SP,RO
RO.R1
R1.-(SP)
R2.~(SP)
#¥7770, (SP)
#1,-(SPS
-(%P)
PC BLSGT2
#10,sP
RO
198
#16.R1
SP.R1
R2.R1
(RD)

TM
BLE
INC
P

R2, 11
18§
RS
RS,#16

CLR

ADD
P8
BLO.

INC

CLR
MOV

; ROW.ORED.COL,*
; INDEX,®*

: OFF .SET.CNT,*
: INDEX,*
: INDEX

6451

; CNT.14.BAD

6509

R1.R2
(R2).M6
223

* CNT.»

R1
#16.R2

: CNT
:

; CNT.14.BAD

0, o

R1 M1

; CNT,»

INC

BLE
TST
BEQ
TRAP

~WOR

g:
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

6503

: INDEX,®
; ADRS.CNT
: ADRS.CNT,*

INC

WORD
-WORD

000012
006
006746
7054
7004
7104
007114
006100
000007

TOPS

PA:<

218
RO
gn
S

107
ARR.DAT

n2
ARD .40, -(SP)
ARD
. 42.-(SP)
ARD.S51.~(SP)
RD. 46.~(SP)
MRD
. 54 .~ (SP)
MRD.SS ~(SP)
oSIX.Fmf,-(SP)
#7,-(SP)

6511
6513

: CNT

6511

: CNT.14.BAD

6515

6518|

: CNT.14.BAD,»
;

6520
6522

CORABO ML-11 LOGIC TESY

MISCELLANEQUS CODING SECTION

}

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

13434

0466612 010600

12766

1
1&20
13441
1%
1
13644 046652
}.w.s

134439 82%

: ‘zg

10746
10746
10746
10746
187646
010600
104414

006726

238:

006746
007016
007004
006046
000005

12701 000032

046700

111116

13458 046716

104414

248:

134640 046

13661 046
1;28 046

046736

13464 0466742
13465 066746

134666 046756
13467 046756

13468 046762
13469 046764
13470 046766
11332.71 046772

13474
13479
13480
13484

258:

012766

000001

000016

268:

000002

000001

278:

706 000014

104451
104444
062706
000207

SP.RO

Ve g

263

144616
000030

B8R

MOV

MOV
MOV
MOV
MOV
MOV
MOV
EL":"

MOV

ADD
ADD
c8
BLO
CLR

288:

(SP)+,(SP)+

OFF .SET.CNT,»
CNT
=

(R1),(SP)

R2 M1
24$

»
ON,T

SP,»

CNT

6527

#1,16(SP)

*,DODU.FLG

2(sP),.m

DODU.FLG,
*

6534
6517
6537

ADD

0,
sp

BNE
MOV

28s
ML.LUN,RO

TRAP
TRAP
ADD
RTS

CNT

SP,R1
R2.R1
(RY).mé6
258
~(SP)

P
BLE
(TM

SP,*

cgz.m

#10,SP

MOV

MRD.62.~(SP)
RD .47 .- (SP)
MRD
. 46~ (SP)
#FOR.FAT, -(SP)
#5.-(SP)
SP,RO
;4

ADD
INC

655%

ARD
. 40, ~(SP)

R2,-(SP)
#EMT.13,-(SP)
#3,-(SP)
.

TOPS

PA:<

SP,»

MOV
MOV
MOV
MOV

TRV

000010

37§ 000011
2

001004
016700

MOV

MOVB

13454 046702 010266
13455 046706 012746 005034
13456 046710 012746 000003
13457 046714 01

13459 046720 %g

22-Dec=1980 09:21:22
TRAP

13448 046664 060601
13449 o‘a% 060201
13450 0466
181127 000016
13451 046674 103413
1343 066676 005046

134;§

22~Dec-1980 09:24:31

JMLS

104414

SEQ 0297

13435 066616

13453

CNT,»

65401

§1
&4
#30,SP
PC

: Routine Size: 304 words

; Maximum stack depth per invocation:

29 words

CZRABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 311

4
SEQ 0298

22-Dec-19 80 09:24 : 31
22-Dec-19 80 09:21 :22
1

04%46

004767

13495 047002
13496 047004
}?gg 047006

006000
103773
000207

1046466

176634

JSR

TRAP

ROR
BLO
RTS

13499

; Routine Size:

13500

13505
13506
13507

18:

PC,8T24

6545

! <BLF/PAGE>

654

RO
18
PC
6 words

; Maximum stack depth per invocation:

TOPS
PA:

0 words

]

MACRO M1113

CZMAB0 ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

22-DEC-B0 12:16

N_ 7
PAGE 312

SEQ 0299
25-0«-1980 :24:31
22-Dec~-1980 09:21:22

TOPS-20 Bliss-16 v2(212)
PA: <KNEALE>BL3MLS.BLI.2 (75)

]

BGNTST:
lee

: TEST NUMBER:
i
I

i
i

TEST NAME:

PROM OR FUNCTION TEST

TEST DESCRIPTION:
TEST THE HARDWARE ORING OF
THE MEMORY ARRAYS®' PROM
ROW COLUMN DATA BY:

l
'
l
|

3528

TST 25

i
i

READING AND STORING 128
HARDWARE ORED ROW COLUMN

)

DATA.

THEN IN PROM DISABLE MODE
AND VIA SOF TWARE CONTROL,
READ AND OR PROM ROW
COLUMN DATA AND COMPARE

’

‘s

AGAINST THE RESPECTIVE
STORED HARDWARE ORED DATA.

l
l

[

local

R_BITS,

C-BITS,

odSU.FLG:

Sto FLG = zsno
FIRST BLKxrén ¥

DAT DM =

!PROM ROW DATA
!PROM COL DATA
!SOF TWARE CALCULATED PROM ORED DATA
!SOFTWARE PROM ORED DATA
!DROP UNIT FLAG

ML_FURC ="write;

ISET UP_A FIRST BLOCK XFER
!DO A WRITE FUNCTION

incr PR(‘)n!ADRS from 0 to 127 do

!READ AND STORE 128 HARDWARE PROM ORED DATA

HJ_OR TBL [.PROM_ADRS] = .MLPD;

!READ HARDWARE PROM ORED DATA
!CLOCK NEXT ONE OUT

!SET PROM DISABLE MODE

incr PROM_ADRS from O to 127 do

!CALCULATE 128 SW ORED DATA & COMPARE TO HW TABLE

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

CZMABO ML-11 LOGIC TES

MISCELLANEOUS CODING SECTION

boain
MLPA = PROM _ADRS;

13609
13610
13611

1361§
1361

13614
13615
13616
13617
13618

047036
047044
047050

7054
7062
047066
047074
047102
047104
047110

RRERRR £888888888 333330
VOO NOVS
N = O

13608

8
=38

i e

6626

NT
047010
047014

6607

VR AV

13600
13604
13605

???ggmggggggg D T T I

—d

b e

AL
VIV IV IV IV Y

bb e

D nd

) b

REER =23o
RRRES2 LIRS gu

574
S7S
1357
135

-Dec-19

82833

-—bd
e

13
3578

35-Dec~-19

13569
13570

O O T T T YO YO APS Gy

1
1

£E8

1%565 H, T

SEQ 0300

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

!LOADING MLPA INITIATES A PROM READ

DELAY (ONE_US);
R BIT
RPD;
MCPA
DELAY ( (ONE US):;:
¢ BITS

4:31
1:22

!SAVE ROW DATA
!ENABLE COLUMN DATA ADRS

SU_ORED = R BITS or .C_BITS;
H_SAVE = .HO_OR_TBL L. PROM_ADRS);
f (.HW_SAVE<O, 9>) nea (.SW_ORED<O, 9>)

s
ERRDF (76, ARR DAT

DUMPER);

ISAVE COL DATA
!CALCULATE SOF TWARE ORED

!GET RESPECTIVE HARDWARE ORED

!COMPARE SW ¢ WW ORED
!1F NEQ THEN ERROR

PRINTB (FOR_FMT, WRD 35, WRD 36, WRD_ 19, PHR
PRINTB (FMT_2
.SW_ORED<O, 95, .HW_SAVE<O, 9

DODU_FLG = ONE;

(.SW_ORED<O, 9> xor .HW_SAVE<O, 9));

end;

if .DODU_FLG IS_SET
then

!DROP THIS UNIT IF DOOU FLG IS_SET

begin

DO&J C.ML_LWN);

DOCIN;

ENDTST;
135102
000010

$T2S.

000040

144166

000007

144150

144212

144060
144052

ISR

SuB
B81s8
MOV

R1,$SAVES

6544

fio.a}légecwo

6579

nQ.sp

017%6.&5

8I1¢C
8ICB
8l1s8
CLR
8ls8
JSR
8ICB
81s8
CLR

#61,3ML .REG
R2

BEQ

MOV

#7., 3 .REG+40
RS, aML .REG+40

4($P)

#10,aM .REG+120

DODU.FLG

Ps,fmsr.au.xrsn

#7734 .REG

6582
6583
6585

; PROM.ADRS
;

%, $$TMP2

6587
6589

}

SEQ 0301

MLG

2-Dec-1980
2-Dec~-1980

1
1
1

7112
vak
n

1
0471
1
0471
1
0471
1
82”
13631
0471
13632 047

13633
047146
1334 047154
13635 047156

016703 133000
1604
000006
5

1
1

%
1

15
00 zo;
020227

13636 047162 0037

48:
58:
1442640 011160

000020

144120

13640 04

1:5.35

1364§ 047214

152777

13641 047210

13643 047222

150577

000177

000007

144000

13645 04
13646

13647 047223
13648 047242
13649 047264
13650 owzsg
13651 047052
136;%04

016703 132654
001404
000006
005303
001374
005302

13654 047260

13655 04
13656

047070

1365782 76
13658
13659 047304
13660 04
13661 04731
1%
1
1
13664
13665
4
13666 04
13667 04
13668 827334
13669 %
13670 04

oog;es
1010

05270

144120

13671 047344 00630
136;5 047346 016304
13673 047352 01050
13674 047354
042

BISB

78:

011160

177000

CLR

MOV

MOV
BEQ

#20.aML.REG+120
R
nw

#40,3ML.REG+40
n%
”
RS

:sboo.ns

ASL
MOV
MOV
BIC

R3
Hd.O0R. TBL (R3) ,Ré
RS
#177000,R2

128:
138:
148:

; PROM.ADRS
; PROM.ADRS
,*

65N

6587,
6592

R1,aML.REG+100

8IS

118:

; PROM.ADRS
,*

1 R2
108

@ML.REG+230,2(SP)

MOV
MOV
BEQ
MOV
BEQ
(R
DEC
BNE
DEC
BR
MOV
MOV
BIS
MOV

; $STMP2

MOV

311

RS.aML.REG+40

108:

; *, $$TMP1

#40,aM .REG+120

98:

8s:

TOPS

PA:q

#7.aML.REG+40

MOV
BEQ
CLR
DEC
BNE
DEC

oozogo

010
143754
012
060001
00141
16703 132604
404
000006
137%%
302
766
01
144050
01
000002
851605
1010

33
R1
2s
R2.R3
@TM _REG+230,Hd.0R.
TBL (R3)

DEC

BICB

68:

000002

BNE
DEC
BR
MOV
ASL
MOV

BISB
MOV
BIC

144052

012702 000001
047236 001411

LSDLY,R3
(s
6(SP)

BLE

144004

13644 047236 010177 144024

MOV
BEQ
CLR

8IS8
INC
P

13637 om% 152
000040 144022
13638 047172
016705 144404
13639 047176 042;9; 177770

13653

LSDLY.R3
o
6(SP)
R3
83
R2
78

R1,R3

,aM .REG+100
1 R2
1
LSDLY.R3
138
6(SP)
R3
1
R
118
ML .REG+230,
(SP)
2(SP) ,RS
(SP).R
R1.RS

6601

: &

MISCELLANEOUS CODING SECTION

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

CIAABO ML-11 LOGIC TEST

CZMABO ML-11 LOGIC TEST

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

-RISmeWSNeA3&EeARBReYSem“eemSe1Be5e2IR“EeFewEiR“EeRESRRyEERPaPRPR

MISCELLANEQUS CODING SECTION

SEQ 0302

H, O

nhooo R3

4:31

3 33 1:22

TOPS

PA:4

HW.SAVE,«

151

.2,3.35EpoRAE..

T+

eTRTRRATRRNNeSumTwTmmTmTmsLs1

nnmrmmnmwmuummrwmmmmr777

22-Dec-19
22-Dec~-19

;

SP,w

HM.SAVE
,~

HW.SAVE,
«

SW.ORED,*

; SW.ORED,*

6611

6612

6613

000004

000001

: Routine Size:

a ~

LEy

000030

ONENtT BYENORNO RN

mmm

”

mz?
)

: SP,»
.'

FLG
S

; DODU.FLG,»

66131
661

6597

6619

LUN

6622

6544

177 words

; Maximum stack depth per invocation:

20 words

CZRABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

13741

04755

1 Ai
755¢
1374
7556
137464 047560
13745 047562
g;zg 047564

004767
104466
oogggg
10
000207

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

177232

13748

18:

JSR
TRAP
ROR
B8LO
RTS

; Routine Size:

}%;gz

13756 ;

T25::

PC,8T25
66
RO
18
PC
6 words

;. Maximum stack depth per invocation:

6627

! <BLF/PAGE>

SEQ 0303

6624

0 words

CZMLABO ML-11 LOG ICT ES Z
MISCELLANEOUS CODING SECTION

1
1|

MACRO M1113

22-DEC-80 12:16

H, XA

;
:
.
;
;

13769
13770
13771
13772
13773
13774

;
:
;

13777
13778
13779
13780
13781

:
;
;
;
;

;
;

13778 ;
13776 ;

6635

6636
6637
6638
6639
640
6641

664
664

6644
6645
6646
6647
6648

6649
6650

13786 :

665

13787
13788
13789
13790
1379
13792

;
;
:
;
:

13793 ;
13794 :
13795

13796 ;

13797 ;

13798 -

13799 ;
13800 ;

13801 ;

13802 :
13803
13804 ;
13805 .
13806
13807 ;

13808 :
13809

13810 ;

13811 :
13812 ;

6651
6652

6654
6655
6656
6657
6658
6659

6660
6661

: TEST NUMBER:

TST 26

' TEST NAME:

UV ADRS ERROR TEST

|
|
|
|
!

TEST DESCRIPTION:

TEST THE DETECTION OF UV ADRS
ERRORS BY:

i
i

GENERATING PROM
FROM 0 TO X0°1

i
'
|
|

VIA DAT_ DM AND PROM R/VW

MODES PRESENT GENERATED
PROM DATA TO THE UV ADRS
ERR PROM.

!
|
-

TEST ERROR CONDITIONS FOR

CORRECT RESPONCE TO GOOD/
OR BAD PROM DATA.

Llocal

DODU_FLG,
HIGCCNT.
LOW ONT,

TEMP,

6665

ERR_FLG,

6668

DODU_FLG = ZERO;

6675
6676

PROM _DATA
: bitvector [16],

6664

6669
6670
6671
66
66
6674

GTR_FLG;

'DROP UNIT FLAG
ISTORES PROM DATA CHECK SUM BITS
ISTORES PROM DATA

ISTORES SUM OF PROM DATA BITS <9:0>

! TEMPORARY STORAGE

iERROR FLAG

'SETS WHEN PROM DATA BIT 15 IS A ONE

PROM_DATA = =1;

g;&
DATA PROM_DATA + 1;

J‘&IS
ERR FLG
= ZERO;

6677

LOW CNT = ZER(ES

6679

GTR_FLG
= ZERO;

6678

A PATTERN
' AND

DETERMINE WHETHER RESPECTIVE
PATTERN 1S GOOD/OR BAD
PROM DATA.

|
|
!
|

222%

6666
6667

TOPS=20 Bliss=-16 v2(212)

PA: NEALE>BLIML4.BLI.2 (76)

!
!
BGNTST;
144

13782 ;
13783 ;

13784 ;
13785 ;

SEQ 0304
22-Dec-1980 09:21:22

}g?,gg H
13768

25-0ec-1980 09:24:31

68 H

137261
1%7
N Y4
15764
13765

PAGE 317

HIGR CNT= ZEROES;

'TEST ALL POSSIBLE PROM DATA COMBINATIONS

! INCREMENT PROM_DATA

CZMABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

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

13814 ;ML

SEQ 0305

Sg-oec-mo :26:31

}333}2 :

13817 ;

~Dec-1980 09:21:22

6680

TOPS=-20 Bliss-16 v2(212)

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

‘%gg}g :

6681

incr BIT_CNT from O to 9 do

'COUNT PROM DATA BITS <9:0>

]|382§ H

6685

HIGH_CNT = .PROM_DATA<10, 3>;

'GET PROM DATA CHECK SUM BITS

}%‘; :

6687

if .PROM_DATA [13] IS_SET then HIGH_CNT = _HIGH_CNT + 1;

'ADD IN BIT 13 IF SET

}%229 :

gggg

it .PROM_DATA [14] IS_SET then HIGH_CNT = _HIGH_CNT + 1;

'ADD IN BIT 14 IF SET

‘%38283829 :

2231

it .PROM_DATA [15] IS_SET then HIGH_CNT = .HIGH_CNT + 1;

'ADD IN BIT 15 IF SET

1133%? :

ggg‘

1f .PROM_DATA [15] IS_SET then GTR_FLG = ONE;

13832
13833
13834
13835
}3&36

;
:

6695
6696
6697
6698
26788

DAT_DM XFER (),
PROA_RQ
= ONE;
MLPD
= PROM_ DATA
MCST = urite.
DAT_CLK
= ONE;

!SET UP A DATA DIAG MODE XFERR
ISET PROM READ WRITE
'LOAD MLPD WITH PROM_DATA
'D0 A WRITE FUNCTIONTM
'CLOCK PROM DATA INTO UV PROM

13838 .
13839 ;
13840 ;

6701
6702
6703

if .UNS IS_SET
then
beyin

!SEE IF PROM DATA CAUSED A UV ERROR

%‘65(1) :

.
.

13841 ;

6704

}% :

g;?g

1384% H
13843 ;
13844 ;
13845 ;

6705
6706
6707
6708

13848 ;
13849 ;
13850 ;
13851 .
1385% :
13853
;
13854 ;
13855 ;

6711
6712
6713
6714
6715
6716
6717
6718

13857 .

6720

13856 ;

13858
13859
13860
13861

;
;
;
;

1% :
1
H

13864 ;
13865 ;

13866 :

13867 ;
13868 ;

if .PROM_DATA C.BIT_CNT] IS_SET then LOW_CNT = .LOW_CNT + 1;

if .GTR_FLG IS_SET
then
begin
TEMP
= _PROM_DAT

'LOAD TEMP WITH PROM DATA

if .TEMP eql %0°'162000°
then
begin

'THESE BITS SET AUTOMATICALLY CAUSE A UNS

6729
6730
6731

!SEE IF THESE BITS ARE SET IN PROM DATA

if .LOW_CNT geq .HIGH_CNT
'LOW<9:0> SHOULD BE ISS THAN THE HIGH<15:10> IF GTR FLG IS S
then
in
'ERROR IF LOW<9:0> IS GEQ HIGH<IS:
10>
ERRDF (72, ARR DAT, DU‘PER)

PRINTB (SIX m WRD_34, PHR_S, WRD_32, WRD_6, WRD_33, WRD_24);
ERR_FLG
=

6721
672§
672
6724

6727
6728

'UNS IS_SET. SEE IF GTR FLG IS SET

TEMP = .TEMP andio 162000°' ;

6719

6725
6726

!SET FLAG IF BIT 15 IS SET

end;

else

end

begin

if .LOW_CNT eql .HIGH_CNT

then
begin

!GTR FLG IS NOT SET

LOW<9:0> SHOULD BE NEQ HIGH<15:10>
'ERROR IF EQL

CZNABO M.-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-~B0 12:16

PAGE 319

13870 .ML4
}
% :

13874 :

gs-oec-wso 09:24:31
-Dec=1980 09:21:22

6
6735

1387
:
1%& :

&3
6739

}

2;21

13881 ;

6740

674

13886 .

6745

}3888 :

g;zg

13887 ;
13890
13891
1389;
13893
1389
13895
13896
13897
13898
13899
13900

;
;
:
.
:
;
:
:
;
;

13901 ;

67644

6763
6764

6765
6766
6767
6768
6769

13912 :
13913 .
13914 ;

677
6%
6

13915 ;
13916

13917 :
13918 :

13919 .

13920 ;

13921
13922
13923
13924

;
:
;
;

else

!UNS WAS NOT SET

begin
if .GTR_FLG IS_SET

then

be&in

= ,PROM_DATA:

TEMP = . TEMP and io'162000':

6770

'SEE IF GTR FLG IS_SET

'LOAD TEMP WITH PROM CATA

!SEE IF THESE BJTS ARE SET IN PROM DATA

if .TEMP neq %0'162000°
'IF THESE BITS ARE SET THEN UNS SHOULD BE SET
then
b;&i)n
'ERROR UNS IS NOT SET
€
F (74, ARR DAT, DUMPER);
PRINTB (SIX_FMT, WRD_34, PHR_1, WRD_32, WRD_S, WRD_33, WRD_24);
ERR_FLG = ORE:
end
else
'BITS 162000 ARE NOT SET
begin
if .LOW_CNT Lss .HIGH_CNT

then

6762

;
;
.
.
;

13911 ;

end

6760

13904 ;
13905 :

13906
13907
13908
13909
13910

end

6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6761

13903

R);

ERR_FLG = ORE;
end;

6746

1390§ :

ARR DAT

TOPS-20 BLiss=16 Vv2(212)
PA:<NEALE>BLIMLL.BLI.2 (76)

PRINTB (Six_FMT, \Jm_g, PHR_S, WRD_32, WRD_6, WRD_33, WRD_24);

13884 :

1388S .

ERRDF (73,

13875 :
13876 :

1§gfl :

SEQ 0306

ERRDF (75, ARR DAT, DUMPER):;

'LOW<D:0> SHOULD BE GEQ HIGH<1S:10>
'ERROR IF LSS

PRINTB (SIX_FMT, WRD_34, PHR_1, WRD_32, WRD_S, WRD_33, WRD_24);
ERR_FLG = ORE;
end;

end

else

end

begin
it .LOW_CNT neq .HIGH_CNT

6774
6775

then

b;ggn

'GTR_FLG IS NOT SET
'LOWKD:0> SHOULD EQL HIGH<1S5:10>

'ERROR IF NEQ

6776
6777

ERRDF (108, ARR_DAT, DUMPER):
PRINTB (SIX FMT, WRD_34, PHR_1, WRD_32, WRD_S, WRD_33, WRD_24);

6779

end

6778

6780
6781
6782
6783

ERR_FLG = ORE;

end
end;

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

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

®r ?gg?gg 00e 0000000009000 850000050000 %0 00000
al\l

it .ERR_FLG IS_SET
then
in
PRINTB (FMT 7
.PROM_DATA) ;

T0PS-20 Bliss-16 V222
PA:<NEALE>BL3ML4.BL]. 2 (76)

ISEE IF ERROR FLG GOT SET
!PRINT FAILING PROM_DATA AND SET DOODU_FLE

DODU_FLG = ONE:

end;

ENDSUB;
end

until .PROM_DATA eql X0°'177777°;

!TRY ALL BIT COMBINATIONS

1f D(DUFLG IS_SET

!DROP THIS UNIT IF DODU_FLG IS SET

g&U(H.LlN)
ENDTST.

134324
000012
000006
177777
000010

..c% 3

T, SECEEESEEREE
SN3%SERRRRIIEs

000040
143752
177770
000007
143346
000002
000004

JAJFANANIS

09:26:31

25-0«-1980 88:%1:22

D
b
) b b
b
o e

W
O

—d e e

SEQ 0307

22-Dec~19%0

b D D i

) D d cnd e

D ) D b

) e

b ol

D d o

) =D D

b b

13934

12702
060602

010446

000010

$T726:

R1,8SAVES

#12,5P

000010
143370

143352

: DODU.FLG
:

*,PROM.DATA

: PROM.DATA

#460,3ML .REG+40
M. DU T,RS

2177770 RS
#7., 3% .REG+40

fin.necw.o

ERR.FLG
LOW.CNT
HIGH.CNT
GTR.FLG
BIT.CNT
BIT.CNT =

2(SP)
R3

4(SP)

R5
R5.R4

;

PROM.DATA
=

CIAABO ML-11 LOGIC TEST

) e

000001

133212
000010
‘s

2(SP)

4$:

R5.#11

#40,11(SP)

000011
000011

5$:

R3
R3
4177770
,R3

PR YR1)

PROM.DATA HIGH.CNT
HIGH.CNT
HIGH.CNT
HIGH. CNT
* HIGH.CNT
* ,PROM.DATA+1

#100,11(sP)

HIGH.CNT
* ,PROM.DATA+1

HIGH.CNT

11(sP)

PROM.DATA+1

PROM.DATA,

6685
6687

6691

6693
6695

6697

6698

2T3

2333
2%

6701

=Ny

000001

SVek

RRSELERKIGNBS

Z2LFLIT
b
—d

143220

* ,GTR.FLG

558 LAY L EELLEL

A R

b wd —d o cd D e
D

LOW.CNT
BIT.CNT
BIT.CNT,»

;g(SP).RS

143062
143174
143126

) D ol

TOPS
PA:<

BIT.CNT,»

LA TR

D ) wd wd d b nd

B BERRERRS

O RTEERE,RSRREFIEY

D b b
)
)
P il il e
) D
D d el

3918 177770

)

) D D

22-Dec=19 80 09: 24 : 31
22-Dec-19 80 09: 1 :22

000004

D e

SEQ 0308

HIGH.CNT

D
b
d
) b
—led ) b e

I
:EEEEE
RN T T
i \?igggiiiggiifi
ERFATRRY,
3

MISCELLANEOUS CODING SECTION

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

GTR.FLG,*

6705

-499

6708

TEMP,»

6711

LOW.CNT HIGH.CNT

6715
618

C2RABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~80 12:16

SEQ 0309

eSPTPPOP0OS0o0gOoNe000oPO=T===PePeeeeoTPOPePPPOPPOPOe
R
;z3z2 B;E2zo £3g ;
F SRR SR :

H, B

PAGE 322

4:31
:21:22

TOPS
PA:<

m585 -5 2325825222 3358552

111111111

s=g5TNgglSsesAReRyeRgsonEns%IH$5A93AE9E98.2

22-Dec-19
22-Dec-19

(T1UWG{

SN85sSis
118

006552

—X

716

7».&4
—

015777

ikl

m|gq.,cu l

12%:

026603
104455

000002

138

m4s“mrmmrnomruam3ENAIRAI~SI.u\mz“w“““wu“

w3S2,B3,%Ze-HEB11A1T1AT1A1AN1A111

REININERERKIRMNENRERAITIISIS2R-2L85¥BLE8SBLmmm
8000 00'

111

176754

176740

[
o 3 ~N - 3

—FERE
N

S e s a aoannaiat S8
MISCELLANEOUS CODING SECTION

JMLS

m w<9<4

15%:

-& vy o

" f.5528259
«.qfn>

148

~N ~ « -—

mwm

cesosasndastynsantasisiesenys?S

ggggPgggE0$ggegg0ePO OOOTegeigO lO OsP
CZMABO ML-11 LOGIC TEST

O v 0 Qa M=

|238
R

.o.

[E"][] -—- S 23

[
-]

MACRO M1113 22-DEC-B0 12:16 PAGE &23
Q (=]

W) & - S oy 3 [
&)

6777

6778
6775
6785

6788

178

6789
6787
6790

18%:

6794

6 796

6 799

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING

SECTION

MACRO M1113

16149
}2}?1)

16152
14153

22-DEC-80 12:16

m_8
PAGE 3264

SEQ 0311

H, U
:

050666
050670

;lfigg 050674

104444
062706

000207

000012

14156

004767
104466
006000
103773
000207

176664

14178

T26::

18:

JSR
TRAP
ROR
B8LO
RTS

: Routine Size:

}2}2

14185
14186 ;

RTS

44
”2,SP
PC

292 word

: Maximum stack depth per invocation:

1168

141% 050676
16173
050702
14174 050704
164175 050706
}2};9 050710

TRAP
ADD

: Routine Size:

‘%2}57

16167
164171 050676

208:

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

6 words

6804

!<BLF/PAGE>

662

;

6801

19 words

PC,8726
66
RO
1$
PC

: Maximum stack depth per invocation:

TOPS
PA:

0 words

COMABO ML~-11 LOGIC TEST

RMISCELLANEQUS CODING SECTION

MACRO M1113

22-DEC-B0 12:16

N_8
PAGE 325

b
b
b and

(VFNWINEYOY.1.

- — end

[«

WO NOAVES
LN =20

ERRERRRE 2222282288§aEse

08029 V99009%9990¢ ;06099

b
b ad
-

ad wnd
—bed and end e

16217

e 00000005 05 0900 %080 99000;990000%000% 90,0002 00%907000300000

b
b el

)

bb
b
D
b
b
b
e ad
b
b
)
b =

b e

d e

SEBRBELREENSS

P 2
N

—

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

-l

EEPEIEEEES s

RERRELEERLAES 5 BLIRRREE282

16188 H, U}

SEQ 0312

6828

T0PS-20 Bliss=-16 v2(212)
PA: <NEALE>BL3MLL.BLI.2 (77)

]

BGNTST;
144

| TEST MMBER:

TST 27

g TEST NAME:

INITIAL ARRAY TEST

g TEST DESCRIPTION:

DUE TO THE NATURE OF THE DEVICE

THEREFORE TO INITIALLY TEST THE ARRAYS'

i
:

THERE EXISTS KNOWN BAD ARRAY
DATA LOCATIONS.

i
i

TIMING
AND CONTROL
LOGIC
A BAD
NIBBLE THRESHOLD OF 36 BAD NIBBLES

THE ARRAYS' ARE INITIALLY TESTED BY:

i
i
;

OUT OF 100 NIBBLES TESTED WILL BE
TOLERATED BEFORE DETERMINING CONTROL
LOGIC TO BE IN ERROR.

;

VIA DAT_DM MOD WRITE DATA PATTERNS

OF 1'S RAND 0°'S TO 5 ARRAY

WORDS
.

i
i

TEST EACH NIBBLE (4 BITS) FOR

1°S AND 0°S AND COUNT EACH BAD
NIBBLE ENCOUNTERED.

IF ACCUMULATED BAD NIBBLES

EXCEED 36 THEN REPORT AN ERROR.

ilocal

TST_PAT,

BAD_NIB_CNT,
ERR_FLG:

'TEST PATTERN

INUMBER OF BAD NIBBLES FOUND
{ERROR FLAG

TST_PAT = UNES;

BAD_NIB_CNT = ZEROES;

incr TWICE from 0 to 1 do
uflm
CLR
MLD I = .T1ST_PAT;
MLD 2 = .TIST_PAT:
MLE 2 = .TST_PAT;

!REPEAT LOOP TWICE

!LOAD TEST PATTERN INTO DIAG REGISTERS

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

C TEST
0GIC
LOG
oo ING SECTION

080870303080000000 8¢

SPEES

e 0000 0030000900000 90000,% % 0003000000000, 0%08,3% 0000

SEQ 0313
-Dec-19

:26:31

53-9.:-1933 88:51 :22
6857

DAT DM
=

6858

TOPS-20 Bliss-16 V2(212)
PA: <NEALE>BLIML4.BLI.2 (77)

6859

FIRST_BLK_xrta 0

MLCS1 =z write;

'SET DATA DIAG MODE
ISET UP A FIRST BLK XFERR
'DO A MBUS WRITE FUNCTION

6861

incr CN} from 0 to 4 do

!CLOCK 5 WORDS INTO MEMORY

6864
6865

DAT_CLK
= ONE;
end;

6860

232%

6866

0% 000% 0000030000000

SRR
ES
RTINSNN
NN S
& [V,]
=590 SIRRRULESELESK

I SCELLANE

§_.

M -1

6867
6868

DELAY (ONE _US).

CLR_MBUS;
DAT DM = ONE;

6869
6870
6871

FIRST_BLK xrén 0;
MLCS1 = read
DELAY (ONE u&)

68
6874

incr ARR_WRD from 0 to 4 do
in

6875

DAT

6876

CLK
= ONE;

DELAY (Gf usS

ISET DATA DIAG MODE
iSET UP A FIRST BLK XFERR
iDO A READ FUNCTION

'READ THE 5 WORD IN MEMORY
1CLOCK OUT A WORD INTO THE DIAG REGS

6877

RD_LNG_WRD

'READ THE DIAG REGISTERS

6879
6880

incr NIB-PTR from 0 to 9 do
in

'READ THE 10 NIBBLES IN THE WORD

6878

6881

TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG):

233%

it .ERR_FLG !S_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1;

6884
6885

6886

end;

6887

6888
6889

6890
8N
689§

689
689%
6895
68%

6897

!COMPARE TST PAT TO NIBBLE UNDER TEST

' INCREMENT BAD_NIBBLE COUNT IFERR_FLG SET

end;

TST_PAT
= 10t .TST_PAT;

ENDSUB;
end;

1if .BAD_NIB_CNT gtr 36
then
;
n

ggbf (77, ASYNC, DUMPER);

!REPEAT WITH COMPLIMENT TST PAT

!SEE IF 36 OUT OF THE 100 XFERRED WHERE BAD
!ERROR IF GTR 36

6898

PRINTB (Fiv_FMT,"WRD_22, PHR_4, WRD_12, WRD_45, FNC_14);

6900

DOCLN;

6899

6901

6902
6903

pooU C.ML_LON);

end;
ENDTST;

Eyfi

DR ABO ML-11 LOGIC TEST

SCELLANEOUS CODING SECTION

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

SEQ 0314

JMLG

22=-Dec=1980 09:24:31

167 133200

14
1%
14

1% 1?
145

1431

744

1
1

77777
000040

162636

1431¢
050750
14315
14§19
14317 0507
14318 050

14
150477
10177
10177
10177

14
140356
14
14

14320 051006
14321 051010

004767
01

145030
000061

14323
051020
012705
16324 051026 001411

000001

16327 051034

005066

000004

14329 051042
14330 051044
14331 051066

001374
005303
000766

14333

051056

ooszo;

14335 051064
14336 051066

003755
152777

14339 051106

14319 050

14335 051016

14325 os1oig
14326 0510

14328 051040

14§§ 051050

$T27:

152777 000010

142254

152777

142136

28:
3s:

14334 051060 ozo;g

48:
5$:

000020

142216

6$:

000004
142120

142777

000007

142102

1434;
1124
14343 0511
16344 0511

8.,47 7
1
16703

14471
000071
000001

14349
1
14347 051150

16704
01

130746

142502

14348 051152

14349 051156

14350 821160

14351

14352

14353

051162

051164

051166

1411

1374

000766

005002

000004

680

MOV
CLR
(LR

#-1 R}
-(SP)
RS

; *, TST.PAT
* BAD.NIB.CNT
s TWICE

684
684
68

MOV

n%m.

: TST.PAT,»
t TST.PAT.w
: TST.PAT.»
:
:
:

6854,
6855
68
685
685
685

TRAP
BISB

CLR

78:
8s
o

108:

2
#40,aML.REG+40

”

:
:

: CNT

CLR

4(SP)

BNE
DEC
BR

4
R3
33

; SSTMP2

INC

* CNT

MOV
BEQ
DEC

BISB

gsou.nl.
s

: e, S8TMP

; =, $STMP1

33'“
#40,aML .REG+40

BICB

#7,3M.REG+40

T,.R4
R4

R&4.aML.REG+40
#10,aM .REG+120

JSR
MOV
MOV

P; FIRST.BLK.XFER
#7539 .REG
21 R3

:
:
; o, $STMP2

MOV
BEQ

LSDLY.RéG
9

: *,88TMP1

10$

CLR

4(SP)

BNE

B8R

DEC

CLR

686

; SSTMP

: CNT,»

BLE
BISB

BEQ

6861

i SSTMPI

#20,aML.REG+120

nf
]

6851
685

#7.aML.REG+40
nl..n.nesug
R1.3ML.REG+170
R1.aML .REG+200
R1 .M .REG+160
#10,aM .REG+120
PC FIRST.BLK.XFER
#61, 3 .REG

#1.R3
6

BISB
BIS8

142016

-($P) ,-(5P)

MOY
BEQ

MOV
BIC

14340 osmg 150477 142076
14341 ggm
152777 000010
142150
14345 32"

000040

14337 051074 81670‘
14338 051100
704

R1,8SAVES

BICB
BIS8
MOV
MOV
MOV
BISB
JSR
MOV

142270

PA:

JSR

8I¢C

142236

16704 131064
1404

005304

18:

22-Dec-1980 09:21:22

TOP

6864
6861

6865

6868

6869
6870/
6871

; SSTMP

: SSTMPY
: SSTMP2

: ARR.WRD

6873

mm2m9:.5.947-OOTMgI283RL2
e‘\.n-e\r.e.ee.le\.P!RLm).ggeP‘egP‘w.OZ\egIv5—®TLNyePPgPY&q-LeKGe.I83PL3L‘egG0.9a2x«yPo%yPSRq*2&Z.yeq[RY.Ww§-]LgR[oSP‘.W«£«eGw~PRsLgaE&P)*T-a([T-ag(yUo=QINoG\eQBPRe“mgIt3mYSn‘”-weeP‘-e@eP&SYIN“«PL34[4 > 4-

sepuzresdsteve ndi8ia ananast TRTR fE bt

RMewmw5-m3m8wm2m5w2Rmww“&PwRwm“wL&wAm‘AwS&R4ww“mEwWIm“wEywn“IwP4%mw‘mR4wwmw4m‘wSg4mw4zww‘mw4a-m‘w0uu4mw‘mww“mmw4A‘wR4o4OwRoNy“AS“
152777
12703
1411
1 6 704

746

mWOONem
12
’46
12746
127646

144656
000010

000001

000044

7‘6 006530
007454
11 746

010122
006772
006426

JMLG
81S8

130706

12%

000004

138

4%1 4
42112

178

8s
9%

nov

KJV

CLR

148

158:

16%

000010

000001

INC

J”RPXRe’—16”R1R91R6R1R

LoVeV 33 [SX%) |] O \

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

— -

MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST
9

SEQ 0315
PAj

TOPS

687
6876

6879

6881

6850

689

6897

6898

:
[elelelelels)

339933

SEQ 0316

JMLG

b e
et od
—

OO0 NO NS

MACRO M1113 22-DEC~80 12:16 PAGE §29

) —

(@]

m
[

SRR RRRRRRRR
SRR RRRRRERRREREE
RERERERRER
55
S5EREEER 3 FEORUIZS
]
~

—

=11 LOGIC TEST
OUS CODING SECTION

016

162142

104444
706
706
000207

000016
000006

106431

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

ADD

44
n6,SP

177 words
; Maximum stack depth per invocation:

177232

T127::
1%:

16 words

PC,$T27
66
RO
18

6901

: Routine Size: 6 words
: Maximum stack depth per invocation:
6904

6305

“.SP

: Routine Size:

004767
104466
006000
103773
000207

6899

ML.LUN,RO
51

208 :

! BLF/PAGE>

T
PA:

0 words

CZRABO ML-11 LOGIC TESY

RISCELLANEQUS CODING SECTION

MACRO M1113

22-DEC~80 12:16

PAGE 330

16453 M6

-Dec=1980 09:21:22

;
;
;
;
;
;
:
:

6905
6909
690
6908
6909
6910
6911
691

!
BGNTST;

16465 ;

6914

16464 ;

16466 ;

SEQ 0317

SS Dec~1980 09:24:31

}figg :

16456
16457
14458
16459
16460
16461
1228
1

TST 28
PROM SELECTION TEST

TEST DESCRIPTI(N

DUE
TO THE NATURE OF THE DEVICE

AND N THE ARRAY MODULES®' UV

6918
6919
ggg?

'
‘
:

THEREFORE THE ARRAY MODULE W PROMS
ARE TESTED FOR UNIQUE SELECTION BY:

114427‘ :

gg%

AT EACH PRESENT ARRAY MODULE WRITE 127 ARRAY WORDS WITH 1°S/0°S PATTERN.

16475 ;

6926

READ THE UV PROMS AT THEIR RESPECTIVE ARRAY WORD LOCATION AND SEE IF

16477 ;
14478 ;
16479 ;

6926
6927
6928

|
'
i

16482

6931

16484 ;

6933

16467 ;

16468 ;

16469 ;
14470 ;
}fifl :

16476 ;

}“&“81 H

16483 ;

6915

!4+
! TEST NUMBER:
|
| TEST NAME:
i

TOPS=-20 Bliss=16 v2(212)

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

6916

6925

REPORT PROM SEL ERRORS AT RESPECTIVE ARRAY MODULE IF THE

14488
16489
16490
14491

;
;
;
;

6937
6938
6939
6940

|
|
i
|

14495
146496
14497
164498

;
;
;
;

694
6945

|
i—

14503
14504
14505
14506
14507

;
;
;
;
;

THRESHOLD 1S EXCEEDED.

‘ IFPLICIT INPUTS
TEMP:

6936 |

ABIT VECTOR OF 16 BITS WHERE

69%1
696
694

A VECTOR OF 256 WORDS WHERE
DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

6946
6947

6948
6949
6950
6951
695
6953
6954
6955
6956

COUNT EACH BAD NIBBLE ENCOUNTERED AT AN

ALLOW A THRESHOLD OF S BAD NIBBLES AT ANY ARRAY MODULE.

146499 ;
14500 ;
14501 ;
14502 :

INDICATES INCORRECT MASKING).
ARRAY MODULE.

6935

16492 ;
164493 ;
16494 ;

THE PROMS MASK BAD NIBBLE LOCATIONS (ENCOUNTERED BAD NIBBLES

6934

164487

ALLMD DURING DIAG TESTING.

‘

146485 ;
146486 ;

ONLY PROM READS ARE

6917 i

HE READ PROM DATA IS STORED
»o ACCESSED FROM.
10_BUF

i
'
'

local

DODU _FLG,
ERRrLo.
TSTPAT,
ERR_CNT;

'DR(P UNIT FLG
'ERROR FLG
ITEST PATTERN
'ERROR COUNT

DODU FLG
= ZERO;
TST_PAT
= ONES:;
incr ARR_SEL from O to .LST_ARR by .ARR_INC do

!'TEST ALL PRESENT ARRAYS

0060250800000 9,:%0000;%0%00¢0¢8,

BPIVFRRERVTY

0009 %008000000e099%
900,890
%0 0000080 0000%000%

83Dec=198B0

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

?33 CNT = ZERO;

BGNSUB;

incr TU{CE from 0 to 1 do

'REPEAT LOOP TWICE

CLR_MBUS

MDY = .TST_PAT;

!LOAD DATA DIAG REGISTERS WITH TST_PAT

DAT nn = ONE;

MLBA = O BUF:

MDA = .ARR SEL:
MLCST = write:

!SET DATA DIAG MODE
!LOAD WORD COUNT
!LOAD UBUS ADRS
!LOAD SECTOR
!DO A WRITE FUNCTION

incr C~¥ from 0 to 127 do

!CLOCK IN 127 WORDS

D¢= . ISTPAT:

MW= not 255;

DECAY (ONE_US)

DAT_CLK = ONE;
!SET DATA DIAG MODE
!LOAD WORD COUNT

DELAY (Gf US)
incr I-D?CNT from 0 to 127 do

!LOAD UBUS ADRS
'LOAD SECTOR
!DO A READ FUNCTION

!READ THE 10 WORDS

PO TEMP
= .H.PD

DAT CLK
=

!GET PROM DATA FOR THIS WORD
!CLOCK THIS WORD INTO DIAG REG

RD_LNG

!READ DIAG REG FOR THIS WORD

incr NIB_PTR from 0 to 9 do

!LOOK AT ALL 10 NIBBLE

DELAY(Gf usS

it .PD_TEMP (.NIB_PTR] IS_NOT_SET
!FIND GOOD NIBBLES
then
begin
TST_LNG_WRD (.NIB_PYR, .TST_PAT, ERR_FLG);
! COMPARE NIBBLE TO TST_PAT

0000000590900

SEQ 0318

it .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1;
end;

! INCREMENT ERROR COUNT IF ERROR FLG IS SET

end;
Ve 09000,

b -l

)

) wd

ld cd d wd d wD

d d

ld o

N L aZ 22 o a2 2l a2 22 xR a2 2l 22 2% a2k I » L
He
1521%,](ALY LY VL IV TV LV TV LV LV IV AV AV, TV, AV, VIV, 1V, V](¥, 1V,
b b b b b b
i o
W

14509 .14

NW
n)—

MISCELLANEOUS CODING SECTION

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

NN
_‘l\

CORABO ML-11 LOGIC TEST

TST_PAT = not

.TST_PAT;

!REPEAT WITH COMPLIMENT DATA

MACRO M1113

555585558 EhEsEEERES \§ 3 $2%8 4 R JAJIANIN
IS
AT

CZMABO ML-11 L 0GIC TEST
MISCELLANEOUS C ODING SECTION

H_9
PAGE 332

d b o

BB
LN

d e e

45
7011

701%

e e e

701
7014
7015
7016
7017

h wd i e

7019

then

;835

if ooou FLG IS_SET

7024

oogu (.ML_LUN);

7030
7031

RRAFEREEE
NI RFSRE

b wd D nd b
b wd
end wd e
e
b ed ond e

b ad
—d ed e and

-—b

004167
162706
005066
012702
016766
016766
005001
000167

DOCLN;
end;

end;
ENDTST:

132422
$728:
000016
00001
1
140062 000006
140040 000004
000666

005066

000002

152

000040

705
162777
1

177770
7
141422

104402
00501

16205 142026

18:

2s:
141444
141426

010277 141546
010277 141552
010277 141526

152777 000010 141460

012777

'DROP THIS UNIT IF DJOU_FLG IS SET

7026
7027

35938383393933959535 3

'ERROR IF GTR S
(78,
DAT, DUMPER);
mmra (TR ru& 35, WRD_37, WRD_10);
PRINTB (FMTTM9, .ARR_SELS;
DODU_FLG = ONE;

ENDSUB;

7029

IALLOW 5 ERROR BEFORE ERRORING

;8%?

7028

TOPS=-20 Bliss=16 V2(212)
PA:<NEALE>BL3ML4.8L1.2 (78)

end;”

7025

e e

WNONES WO

end:

if .ERR_CNT gtr §

7018

b e

H»

i and =D -t
b el
d
i

SEQ 0319

ZS-Dec
-1980 09 264:31
22-Dec~1980 09:21:22

D e
d d
b
el
b
b
and e
—d o

22-DEC~80 12:16

177400

141342

38:

JSR
SuB
CLR
MOV
MOV
MOV
CLR
JMP
CLR

TRAP
CLR

BIs8

MOV

8IC
BI(8
BISBS

MOV
MOV
MOV

BIS8

MOV

R1,$SAVES
#16,SP
10(SP)
#~1.R2
LST.ARR,6(SP)
ARR.
INC .4 (SP)
R1
258

;

6903

; DODU.FLG
: =, TST.PAT
:
; ARR.SEL

695
6954
6956

2<sp>

: ERR.CNT

6958,

040 sto

; TWICE
:

6961
6962

R2.aML.REG+170
.aML .REG+200
ML .REG+160

: TST.PAT,*
. TST.PAT.*
* TST.PAT.*

6964
6955
6966

#-400.3M.REG+10

6968

’%

0.rS
07 ML .REG+40
RS,n.nesug

nb ML .REG+120

6967

———

CIMABO ML-11 LOGIC TEST

MACRO M1113 22-DEC~80 12:16 PAGE §33

MISCELLANEOUS CODING SECTION

}

9
SEQ 0320

sMLé

22-Dec~-1980 09:24:31

1
051
1
051
1
1
1
1&
1
1
1
0516
1% 165
1
16
1
1660
1
1664
)|
051
16634 8216
14635 0516
1% 05167
1
051702
14638 051704
16639 05171

141344
141312
48:
58:
68:

78:
141372 8$:

14640 05171

141274

14641 051

14&; 05174

14643 051

142777

14645 051742

152777

14644 051

14646 051
14647 051756
14648 051764
14649 051770
14650 051776
14651 052002
146% 052006

14653 05201
14654 05201
14655

14656 0.

141252

012777
012777
010177
m%m
012704
001411
016705

177400
011600
141214
000071
000001

1404

05201

14658 0F
14659 0520;3
14661 0¢

766
3
15

98:

108:
118:

141350

000020

141062

141230

n%&s

BICB

#7.aML.REG+40

BISB

141156

000014

MOV

BISB

141206
141210

130106

#10.BUF ,aM ,REG+20
1,aML
. REG+30
{,aML .REG
#.Ré6
8s
$OLY,RS
14(SP)
RS
6$
Ré
s$
#20.aML.REG+120
R3.M77
X

8IC

141324

1%2

14657 05

14660 05>

MOV
MOV
MOV
CLR
MOV
BEQ
MOY
BEQ
CLR
DEC
BNE
DEC
BR
BISB
INC
P
BLE
BISB

7 141256

150577

22-Dec-1980 09:21:22

128:

138:

#40,aML.REG+40

”

RS.aML.REG+40

M0, M .REG+120

#~400, 3 _REG+10
#10.80F , 3, REG+20
R1,aM .REG+30
#71 .3 .RE6
M Ré
1
LSDLY.RS

DEC

Ré

BNE

; v, 88TMP1
; SSTMP
L SSTMPI
; SSTMP2
;
> CNT
: CNT,»
:

118
14(SP)
108

:
:
* ARR.SEL,*
:
: #,SSTMP2

; SSTMP2

98
R3

; WO.CNT

6987

BISB

#20.aML.REG+120

6990

MOV

aML _REG+230.PD. TEMP

14674 052116

CLR

: NIB.PTR

141220

137040

6981
6
3
6
6985

BR
CLR

Lo« SSTMP2
; *,SSTMP1
: SSTMP

005004

T SSTMPI

1 ,Ré
17§
LSDLY,RS
168
14 (SP)
RS
158
R%
148
aML.REG+170.D1.
TEMP
aML .REG+200.D2. TEMP

017767

697
69

: SSTMP

MOV
BEQ
MOV
BEQ
CLR
DEC
BNE
DEC
BR
MOV
MOV

052110

6
69
6971
69
697

; =, SSTMPI

1% 2044
704 000001
1
41
148:
14664 O ..
16705 130040
14665 05
1604
14666 05
000014
158:
14667 0* 2064
ggs
14668 83 )
137%%
14669 0520
304
168:
14670 0520
766
14671 osgm 017767 141244 137050 178:
146;; 05
017767 141246 137044
14673

PA:q

MOV
MOV
MOV
MOV
MOV
BEQ
MOV

BEQ
CLR

;
* ARR.SEL,w
:
: CNT
s o« SSTMP?

TOPS

MOV

aML.REG+160.E2. TEMP

6989

6991

. SSTMP1

: SSTMP2

6994

CZNABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

SEQ 0321

H, ¥
18%:

013120
177770
000001

2-Dec-19 80 09:24:3
2-Dec-1980 09:21:2
; NIB.PTR,*

TOPS

PA:<q

69%

; NIB.PTR,»

FIIIINPR%@&fifgoé
S

2288

130762
000010
: NIB.PTR,»
: TST.PAT
,»

000001

000011

S82
b
b

OO000

2oas
&

-go NS

—d ed wd
b

BageNES
o~ )
—n

000001

004644
000002

000005

21%:

: 32333333333258

~NO

000177

177260
000002

QOO

000010
000006

143742
000020

aa-a:nz
BET

000020

—b el wmd

FREQEEELFEX
RN

AZIAZRR

Gatagracdedc SRERRRASS

16677

gm 3882553

16676

;

6999

ERR.FLG,*

; ERR.FLG,*

; ERR.CNT
; NIB.PTR
; NIB.PTR,*

; WD.CNT

»
; WD.CNT

;

.
;

TST.PAT

6998
6994

6987,

TWICE
TWICE,*

6961

=
; ERR.CNT

7014

7015

; SP,»
: ARR.SEL,*

; SP,»

7016

CIRABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

14
14

22-DEC-80 12:16

K_9
PAGE 335

JMLG
H

012766

000001

709 000016

000026

10446
10

167

7
001004
?16700
04451
104444
066601

177142

000010

22%:

000001

oosoo;

000167
062706
000207

23%:

141170
000004

020166 000006
177100
000016

248:

258:

268 :

TOP

PA :j

MOV

M ,26(SP)

TRAP
ROR

67
R

ADD

BHIS
JMP

(v, 4
BNE
MOV
TRAP
TRAP
ADD

10(SP) .M
248
ML.LUN.RO
51
(¥4
4(SP) R

B8GT

268

JMP
ADD
RTS

164769 052440
16770 052444
14771 052446
14
052450

14
052452
14774
14775
“Ill:%?
14782

14783 ;

004767
104466
006000
103773

177024

000207

T28::

18:

JSR
TRAP
ROR
8L0
RTS

! <BLF/PAGE>

*,DODU.FLG

701

; DODU.FLG,*

R1,6($P)

18
#6,SP
PC
20 words

PC,8728
66
RO
18

7029

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

7032

;

#6,sP

: Routine Size:
244 words
;. Maximum stack depth per invocation:

14768 052440

SEQ 0322

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

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

14785 .MLé6
}2% :
14788
14789
14790
1679
1479%
14793
14794
14795
14796
14797

;
;
;
;
:
;
;
;
;
;

22-Dec-1980 09:24:31
22-Dec=1980 09:21:22
70%12
70
7035
7036
7037
7038
7039
7040
7041
7042

14798 ;

704

}m'o&? :

14799 ;

14802 :
14803 ;
14804 :
14805 ;

SEQ 0323

!
BGNTST;

!++
! TEST NUMBER:
TST 29
i
| TEST NAME:
READ WRITE ARRAYS WITH PROM DATA
|
i TEST DESCRIPTION:
COMBINE THE READING OF ARRAY

MODULE DATA WITH ARRAY MODULE UV PROM DATA AND

TESTING WILL BE PERFORMED BY:

7047
7048

‘
'

7044

7049
7050

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

FIND A GOOD BLOCK WHERE FURTHER

STAKTING AT BLOCK O WRITE THE BLOCK WITH SELECTED DATA PATTERNS
AND READ THE BLOCK AYOIDING ANY BAD NIBBLES POINTED TO BY THE
PROTM DATA.

}% :

7782}

14808 :
}2?1)3 :

7053
;8215

'
:

REPEAT WRITING/READING THIS BLOCK UNTIL ALL PATTERNS ARE TESTED
OR THE ERROR FLAG IS SET.

14811 ;
}g}g :

7056
%gg

'
:

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.

14814 ;
}g}g :

7059
;82?

'
:

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.

14817 ;

7062

14818 ;
14819 ;
164820 ;
14821 ;

14822 :

7063
7064
7065
7066

7067

|
|

14823 ;
14824 ;
14825 ;

7068
7069
7070

|
|

14828 ;

14826 ;
164827 ;

7071
70

SET ERROR FLAG IF ANY BAD NIBBLES ARE ENCOUNTERED IN BLOCK.

IMPLICIT INPUTS:
RAS_INC

7074
7075

|
i

14832 ;
14833 ;
1483% ;
14835 :
14836 :
14837 ;

7077
7078
7079
7080
7081
7082

i
i
i
i—

14838 ;
14839 ;

LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE ROW ADDRESS
INCREMENT VALUE FOR THIS DRIVE.

‘
'

14829 :
14830

14831 ;

PD TEMP:
A BITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND

ACCESSED FROM.

7076 '

7083
7084

IF NO GOOD BLOCK IS FOUND BY LAST ROW THEN REPORT ERROR AND

EXIT TEST.

AVECY(R OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION
ARE FOUND.

Llocal

WRD_CNT,
NIB_PIR,

'
COUNT
INIBBLE ~OINTER

MACRO M1113

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

M9
PAGE 337

}4841 M6

14.845

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

16844 ;
14845 ;

7085
7069

708

DONE FLG.

164848 ;

7089

SECTORMJ

164846 :

14847 ;

14849 ;
14850 ;
14851 ;

14852

PASS CNT,
NIB_PAT

7088

BGNSUB;
PASS CNT = -1

7095
7096

7093

‘NI&LE PATTERN

FLG
ERR

7090
7091
7092

!DONE FLAG
IERROR FLAG
!SECTOR NUMBER

SECTOR_NO = ZEROES:

7094 m,rtsz ZERO

14856 ;

7097

14858 ;
14859 ;

7099
7100

14861 ;
1% :
1
:
14864 ;
14865 :

7102
7103
7104
7105
7106

14857 ;
14860 ;

14866
14867
14868
14869
14870

:
;
;
;

14871 ;

;

7098
7101

7107
7108
7109
7110
711

7112

14872
14873
14874
14875
14876
14877
14878

:
;
:
;
;

7113
7114
7115
7116
7117
7118
7119

14880
14881
14882
14883

;
;
:
:

7121
7122
7123
7124

14879 ;

7120

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

!PASS COUNT

14853 ;

14854 ;
14855 ;

SEQ 0324

!THIS LOOP DETERMINES WHEN TO STOP

begin

!THIS LOOP RUNS THE PATTERNS

beqin

PASS CNT = .PASS_CNT + 1;

CLRMJS.
DAT DM
= ONE;
MDA = .SECTM NO;
MLWC
= not 255;
MLBA = ]O_BUF;

case .PASS_CNT from 0 to 3 of
set
)

NIB_PAT = %0'000000°;

1] :
NIB_PAT = %0'17°;
]

:
NIB_PAT = X0'12°;

]
tes;

NIB_PAT = %0'15’

! INCREMENT THE PASS COUNT
!SET DATA DIAG MODE
!LOAD SECTOR NUMBER IN DSA

!SELECT A NIBBLE PATTERN

!ZEROES

!ONES

!ALTERNATING ONE'S, ZEROES

!COMPLIMENT ONE'S, ZEROES

7125
7126
7127

incr LD _CNT from 0 to 9 do
LD_ONG_WRD (.LD_CNT, .NIB_PAT);

!LOAD NIBBLE PATTERN INTO NIBBLE SAVE

WRT LM;WRD;

14888 ;
14889 ;

7129
7130

MLCST
=write;

!LOAD THE DATA DIAG REGISTERS WITH NIBBLE SAVE
!DO A WRITE FUNCTION

incr WRT_CNT fram 0 to 127 do

!WRITE PATTERN INTO THIS BLOCK

14893 :

7134

end;

7136

CLR_MBUS;

14884 ;
14885 ;
14886 ;

14887 ;

14890 ;
14891 ;
14892 ;

14894 ;

14895 :

7128

7131
7132
7133
7135

1
DELAY
(ONE US);
DAT_CLK
= DNE;

MACRO M1113

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
14897 M4
14898 ;
14899
14900 ;
14901 ;
14
:
14903 ;
14904 :
14905 ;
14906 :;
14907 ;
14908 ;
14909 :
14910 ;
16911 ;
16912 ;
16913 ;
14974
14915
14916
14917
164918
164919
14920
14921
14922
14923

;
;
;
:

;
;
;
;
:
;
;
;
;
;
;

14924
14925
14926
14927
14928
14929
14930 :;
14931 ;
14932 :
14933 ;
14934 ;
14935 ;
14936 ;
14937 ;
14938 ;
14939
14940
14941
14942

;
;
;
;

14943 .
14944 ;
14945 ;

14946 ;

14947 ;
14948 ;
14949 ;
14950 ;
14951 ;

22-DEC-80 12:16

N9
PAGE 338

SEQ 0325
% ~Dec=1980 09:24:31
~Dec-1980 09:21:22

7137
7138
7139
7140
7161
714
714
7144
7145
7146
7147
7148
7149
7150
7151
7152
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166

ISET DATA DIAG MODE
!LOAD SECTOR NUMBER
!LOAD WORD COUNT
!LOAD UBUS ADRS
!D0 A READ FUNCTION
!RESET THE WORD COUNT
!TEST ONE BLOCK FOR NIBBLE PATTERN
!GET PROM DATA
;CLOCK DATA WORD INTO DIAG REG
RD_LNG

7180
7181
7182

7183

7184
7185
7186
7187
7188

!RESET THE NIBBLE POINTER

i
3?3. TR = .NIB_PTR + 1;

!SEARCH FOR GOOD NIBBLES
! INCREMENT NIBBLE POINTER

if .PD_TEMP [.NIB_PTR] IS_NOT_SET
!TEST THIS NIB IF PROM FLAG NOT SET
then
TST_LNG_WRD (.NIB_PTR, .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

;':m(‘.PASS-CNY eql 3) and (.ERR_FLG IS_NOT_SET )

!WAS THIS A GOOD BLOCK?

DO -FLG = ONE;

7174
7175

7176
77
7178
n79e

IREAD DIAG REGISTERS

NIB_PTIR = -1;

7167

7168
7169
7170
7171
7172
7173

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

else

GOOD_BLK = .SECTOR_NO;
end

SE
NO = ,SECTOR_NO + .RAS_INC;
PASS_CRT = -1;
end;

end

until

(.DONE_FLG IS_SET ) or (.SCCTOR_NO eql

ENDSUB;

1YES
!SET DONE FLAG
!GOOD BLOCK GETS THIS SECTOR NO

!NO
! INCREMENT ROW NO
!RESET PASS COUNT

.LST_ARR + .ARR_INC);
'REPEAT UNTIL GOOD BLK FOUND OR AT LST ROW

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

14953 ;M4

Ss-oec-mo :26:31

}235545. :

-Dec-1980 09:01:22

14956 :
14957
14958 :
14959

7189
7190
7191
719

14961 :
14962
:
14963
-

7194
7195
7196

}2&3:

7198

ENDTST:

14973 052454 004167
14974 052460 162706

131436
000014

14976 052466

012766

177777

14978 052476
14979 052502

005066 000004
005
000002

14960 :

14964 -

14975 052464

14977 052476

14980 052506

SEQ 0326

719

7197

104402

005002

1{f .SECTOR_NO eql .LST_ARR + .ARR_INC
then
in
DF (79, INTER, DUMPER);

TOPS~20 Bliss-16 v2(212)

PA:<NEALE>SL3ML4.BLI.2 (79)

ISEE IF WE'RE AT THE LAST BLOCK

mmra (THR_FMT, "WRD_14, PHR_10, FNC_15);

'A GOOD BLK NOT FOUND BEFORE LAST BLK
TERROR AND DROP UNIT

DODU (.ML_LON);
DOCLN;
end;

152

000040

042705
142777

177770
000007

14985 052536
14986 052544

152777
010277

14988 052556

012777

14990 052570

006305

$729:
000002

R1,$SAVES
#14,SP

7031

MOV

#-1,2(SP)

: = PASS.CNT

4(SP)
2(SP)

+ SECTOR.NO

709

(LR
INC

* DONE.FLG
* PASS.CNT

7101

TRAP

CLR

2s:

709

BISB

#40,aM .REG+40

140462

BIC
BICB

#177770.,RS
#7.aML.REG+40

000010
140434

140530

BIS8
MOV

nb aML.REG+120
M .REG+30

;
: SECTOR.NO,

710
71

14989 052564 016605

011600

140410

MOV

#10.80F ,aM_.REG+20

* PASS.CNT,*

14991 052572 066507
1:.993 052576 000010

052576

: NIB.PAT
:
: % NIB.PAT

7112
7108,
7115

14981 052514

016705

14984 05

150577

14982
14983

052520
052534

141062

140456

140500

18:

JSR
suB

MOV

BISB

14987 052550 012777 177400 140406

14993

052600

000014

MOV

MOV
ASL

14994 osggg‘z 000022
14995 05

14996 oszoos 005001
14997 05261
10
14998 052615 012701 000017

43
58

000012

68:

1% 05
12701 000015
1
05
005005
15004 052634 010546
15005 05
010146

78:
8s:

14999 05261
15000 05
15001 052624

15006 052640

800405
12701
800402

004767

144260

ML.

DUT RS

RS.aML.REG+40

p—t'.oo ML _REG+10
2sP), 5

ADD
LWORD

SS(RS) PC
4$-38

JWORD
.WORD
CLR

6$-3$
73-38
R1

.WORD

BR
MOV
B8R

8s
#12.R1
8s

MOV
CLR
MOV
MOV
JSR

5$-3$

B8R

MOV

#17.R1

#15.R1
RS
RS.-(SP)
R1.-(SP)

PC.LD.LNG.WRD

:
: =, NIB.PAT
:

: = NIB.PAT
: LB.CNT
* LD.CNT,»
: NIB.PAT,+

7108
7118
7108

721
7126

7125

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DE(-80 12:16 PAGE 540

SEQ 0327

22-Dec-19 80
22-Dec-19 80

15008
15009

15010

15011 05
1501§ 03

éSP)*.(SP)*

D1.TEMP,3ML.REG+170
D2.TEMP,@ML .REG+200
E2.TEMP ,@ML.REG+160
#61,
ML .REG

RS,
93

15024 052724
15025 05

127174
128:

000012

15026 05

15027 052734

138:

140326

15031 052750
150%% 052754
15033
052756
15034 052764
15035 052770
15036 052774
12837 05
15038 053006
15039 053014
15040 053020
}5041 8230

83§338

REX

RISR

b
o

LV IV TV v TV

wd e e
) e
—

VAV NAVIVIVIV VAV

1
1

(Vv v L

£2g g2

Voo~

1SOS§
1505
15054
15055
15056

LSDLY.RS
138
12(SP)
RS
12

R
118

#20.3ML .REG+120

WRT.CNT

v, $STMP2

71§§

7
n

*,SSTMP1
sSTMP
sSTMP1

SSTMP2
WRT.CNT
WRT.CNT,
«

140212

140260

SECTOR.NO,
*

140136

160140
140112

15044 053046
15045 053050
15046 053054

15050
15051

14$

7125

140230

1504; 053042

15047
15048
15049

:
148

1 R4

7124

«, $STMP2

15%:

*, $SSTMPI
SSTMP
SSTTMP1

177777
000006
140274
000020
000001

158
#-1,6(SP)

000006
140006
140154

000012

218:

*,WRD. CNT

6(SP)

WRD
., CNT

#20.aM .REG+120
51 R&

*, $STMP2

5sgu.ns

*, SSTMP1

12(SP)

SSTMP
$STMP1

ML .REG+230,PD.
TEMP

126764

SSTMP2

RS
218

806G

000001

—

15017 05 753
15018 05
15019 05 ;?8
15020 052

LD.CNT
LD.CNT,»

TOPS
PA:
<

15013

:264:3 1
:21:2 2

8—\8y68~888-—-~EE~E”E6.58S5”8y”8.6)8L85858)A6wL58l588.85x8aL)xL)a8L~Y58
PPBm@3mgPYgSPo~gumqaQuePgo¥gggonP%89vPgunP5gw.gTvP82o.o~gfT£3.oo.0o6es0o'.!\P0"l0Pso\olo-lP?fPloPOOOO@.f=09=.eooTMZ;l«Oeto\O.gaIOx\IPePeO"O%oOOO
KB 2

ERER

$8'S

22%:

0
0
0

013120

0 69
01 0267

000001
136166

702
012766
137520
177777

MoV

2648

000002

25%:

m23

000004

29%:

DEC
BR

MOV
MOV

MoV

INC

8IC
MOV
CLR
JSR
ADD
TST

MOV
ADD

JSR

ADD

BIT

334

—euey

JMLé

refretvy]

o0§-©awx«z<sa

ARNO S ~c %<

22239308

N5 82 2325 - o2 ¥ 3

R-Sb111D3D-5 - T A “ISTER:AI hok

eatR&uatueSgtEqsMAt¢aNytR~eqIRN3n~LY5NsR13NOH-T%a2eZ3NSNY1-TLR—1NL3LEYMEew1-N3T2NLTX)RLRewEN-EZLZYRLeAAGcee|A arLZYazMlcntL«YRZ*aZ*te xLN“:Y
MISCELLANEOUS COD ING SECTION

CZMABO ML-11 LOGIC IC TESY
TE
10

MACRO M1113 22-DEC-~80 12:16 PAGE g41
SEQ 0328

22-Dec=19
22-Dec-19

7152

’é%

7160

7163

7166/

MACRO M1113 22-DEC-80 12:16 PAGE §42
;MLG

J\g

308:

22-Dec-19
22-Dec-19
4(SP) .M

CZRABO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION

; DONE.FLG,*

328
LST.ARR
RS
ARR. INC RS

;

318:

SECTOR.NO,*

FRRFZZIRRRIRR
% 2SR89
v
v v v¥
PP S
g

328:

33s:

7189

; SECTOR.NO,*
7192

7193

7194
N
7031

348:
; Routine Size:

287 words

;. Maximum stack depth per

176676

129::
1%:

JSR

TRAP

PC.$T29
66

invocation:

17 words

7196

CZMABO ML-11 LOGIC TEST

[V,

EZRER2BIIN ~

g2
83

FEE

299

ROR

RTS

RO
18

b ey

SEQ 0330
22-Dec-19 80 09:24 : 3
22-Dec-19 80 09:21 :22

BLO

; Routine Size:
6 words
; Maximum stack depth per invocation:
LX)

b i
b ed

b d i
b

;MLG

b e e o

ViAWV
AN\V,]

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE 34.]5

7199

! <BLF/PAGE>

0 words

TOPS
PA: <

CZMLABO ML-11 LOGIC TEST

Ve B0 B¢ 0g 969 8508600 %: 8¢ 0 V08, %y %5 8908090990 00, 000005893 %6%095C000,029030¢0%s0¢08,

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

TOPS-20 Bliss-1 6 v2(212)
PA : <NEALE>BL3IML 4. BLI.2 (80)

]

BGNTST;
lee

E TEST NUMBER:

TST 30

REFRESH TIMING TEST

i
i
i
i

TEST NAME:

TEST DESCRIPTION:
TEST THE MEMORY ARRAY MODULES
:EERS?H TIRING AND CONTROL LOG.C

]

i
i
i
i
i
i
i

i
;
i
i
i
i
i
i
i
i
i

WRITING ALL ONES INTO THE
GOOD BLOCK.

DELAY FOR 2 MS

READ THE GOOD BLOCK FOR OMNES.

ALLOW A BAD NIBBLE THRESHOLD

KEEP COUNT OF BAD NIBBLES
ENCOUNTERED

OF 20 BAD NIBBLES OUT OF THE
1280 NIBBLES TESTED.

IF THRESHOLD IS EXCEEDED THEN

RFPORT ERROR AND DROP THE UNIT.

IMPLICIT INPUTS:

i
i
i
i
i
i

PD TEMP:

A BIT VECTOR OF 16 BITS WHERE
THE READ PROM DATA IS STORED
AND ACCESSED FROM.

Local

TST_PAT,
ERR_CNT,
ERR_FLG:;

B
Vo 00 Vg VsV Vg 0p B

b
D ced
D
e
b
d
b cd
D

H, T

80@\)0\"3‘0‘!\)—‘0 EH R $asaans O

SLSLSLSTSTNT
LSS ST 81,8}

-d

ViAW
AN WM WWA N WVWAVIWA[V, 10,1V,]

MISCELLANEOUS CODING SECTION

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

'TEST PATTERN

BGNSUB;
CLR_MBUS;
ERR_CNT = ZERO;

TST_PAT = ONES;
MDY = .IST_PAT;
MLD = .TST_PAT;

MLE

LTST_PAT;

!LOAD DATA DIAG REGS WITH TST PAT

MACRO M1113

CZMABO ML-11 LOGIC TEST

YN T
PN PN TNPN YN
YR T P FI
PRPR
R PR
FETE AR TR
IR FE

7§S§
725
7254
7255

TR PR PR FE T

TOPS-20 Bliss-16 v2(212)

PA: <NEALE>BLIML4.BL!I.2 (80)

MCS1 = write;

DAT_DM_XFER ().

!SET UP A DATA DIAG MODE XFCRR
!DO A WRITE FUNCTION

incr \RI{) CNT from O to 127 do

!WRITE BLOCK WITH TST PAT

DEEA (ONE_US);
DAT_CLK = ONE:

s
end;
7361 CLR_MBUS;

DAT_DM_XFER ();
MLCST
= read:

DELAY (TWO_TH_US);

!SET UP A DATA DIAG MODE XFERR
!DO A READ FUNCTION
!DELAY FOR 2 MS

incr WRD_CNT from 0 to 127 do

!READ THE BLOCK

begin

PO TEMP = .n.Po

DAT CLK
=

gga (ONE usS

incr NIB_PTR from 0 to 9 do
begin

!GET THE PROM DATA
!CLOCK DATA WORD INTO DIAG REG
!READ THE DIAG REG

!LOOK AT 10 NIBBLES

if .PD_TEMP [.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR,

.TST_PAT, ERR_FLG):

!FIND GOOD NIBBLES AND COMPARE THEM
it

PR FEYA

IETEAIETERIEAFETE

~Dec-1980 09:01:22

.ERR_FLG IS_SET then ERR_(NT =

.ERR_CNT + 1;

! INCREMENT ERROR COUNT IF ERR_FL6 IS SET

end;

ENDSUB;

: 'fm:‘ERR CNT gtr 20

A
FEYR TN
A
FE

SEQ 0332

S%-Dec-1980 :264:31

b;aDF (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;

YRTE

15284

H 10

PAGE 345

H, ¥

d end

ViAW WAWIAA

D ) b

)

d e

D d e

) D o

D cod

d i

)

d o

D s

V!V!\hw\h\hMV‘MMMMU‘MMV‘V’V‘\I’U\V‘V’MMMWMMM
NN
N
~
L
P ERER d

NRET
LSS TR
S

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

ENDTST;

::
0

V\MMM\AMMMM\A\AM\QU\MMMMMU\V‘MV!V!\I'U!V!U!
JRARUK=ZS £55 3 LEELER4Y HREREER

g£
4
i35SRNERSEES£3r8

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

130324

?299;0
17777

79736
177777
137504
1;7510
137464
160306
000061

$730:
137410

#60,

TRAP

7243
7245

pUT.R3

PC.DAT.DM.XFER

2$:
3s:
A ¥

137352

7198

ML . REG+40

fii.n.nec
#1.R2

63
LSOLY.R3
58
2(SP)
R3

5%:

4s
R2

6%:

:go.iflL.REG*120

000177

R1.m77
137254

ERR.CNT

*, TST.PAT
TST.PAT,»
TST.PAT,»
TST.PAT,
,»

. CNT
WRD

*, $STMP2

* SSTMPY
sSTMP
$STMP1
$STMP2
WRD. CNT
WRD.CNT,«

7258
7255

#40
ML .REG+40
,

7259

PC.DAT.DM.XFER

7262
7263
7264

137236

#71 am .REG
#3720 ,R2

137160

108

126110
000002

137352
000020
000001

BISB

g.n.aflmo

137272

000002

003720

R1,$SAVES
E(SP).°(SP)

#~1,R6
R4 . 3ML.REG+170
R4, ML .RE5+200
R4 .aML .REG+160

126220

000040
137636
177770
000007
137232
140174

JSR
A

SEQ 0333

177776 R3
27 .M .REG+40

137372

000001

000020

18:

137064
137232

|2"

RFARRRZZRRRR K2 BRI v avs

~NO VS UWIN) =4O

22288

FoR SNS 5

d
s e
b ed od e

D i
D o i d d e s i
v
D d ) D
d d D
D e
o
i d D
) e e
D
D el
d e
)
d D
b el e

NN
N NN NN

D D d D o d D o d
AaAauawnWAanawbng
NN

=11 L OGIC TESY
CODING SECTION

LSDLY.R3
98
2(SP)
R3
83
R2
78

R1
aML .REG+230,PD.TEMP
#20,aML .REG+120
#1 _R2

15§

~, $STMP?
*, SSTMP1

sSTMP
$STMP1
$STMP2
. CNT
WRD

*,$$TMP2

CZMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

o
(%)

013120

R
N

SS9&333

FRR

; *,$$TMP1
; SSTMP
; $STMP1

; $STMP2

; NIB.PTR
; NIB.PTR,»

7273

7276

126764
000010
; NIB.PTR,»

000006
161744
000006
000001

SP,(SP)

PC,TST.LNG.WRD

178:

188%:

177324
000024

#6,SP

.m
(sP)

188
RS

168

S} mz7

000177

b
b
b
b

Wh=0O

TOPS

PA:<

»
; NIB.PTR,

177770
000001

PREY

-REG*+170,D1.TEMP
<REG+2)0,D2.TEMP
..REG+160,E2. TEMP

16%:

3z 2RR AT

15%:

-—bd

14%:

000011

b e

22-Dec-19 80 09:26:31
22-Dec-19 80 09:21:22

138:

D d

D D e

b e

b b

b o o

R R R R R R R R AR R R AR
3SNIDFRBREERFHONRNNF
R

b b e

e nd e

SNSRI ggnge FEEELE #3333SIRIJLELRERERE

b bb

VA VTAWWAWAWNIUAAUIVAUWA

e
e e
e
e
e
b md e o
b

SEQ 0334

MLé

15359

MACRO M1113 22-DEC-80 12:16 PAGE i‘?

19%:

TST.PAT
=

; ERR.FLG,*
; ERR.FLG,*

7280

; ERR.CNT
; NIB.PTR

7273

: WRD.CNT

7266

=
; ERR.CNT,

7288

s NIB.PTR,*
; WRD.CNT,«

729

007026
010150

DUMPER
MRD
. 48,-(SP)
#FNC.16,-(SP)

7292

CZMABO ML-11 LOGIC TEST

K 10
PAGE 348

SEQ 0335

°§§§§§§§§§§§§
3 U IR

22-Dec=-19 80 09:24 : 31
21 :22
22-Dec-19 80 09:

TOPS
PA:
<

MRD.12,~(SP)
#PHR
. 4 - (SP)

MRD .22 ,~(SP)
#FIV.EMT.-(SP)
#6,-(SP)
RO

;

7293

208 :

Voo~ w

22-DEC-B0 12:16

JMLS

D D

)

) D e

) b ol

) D e

)

® d

S TEENE SIS
RSEhe8 EX¥R

MISCELLANEOUS CODIMG SECTION

MACRO M1113

(0,

RTS

#16,SP

7290
7198

(SPS+, (SP)+

184 words
; Maximum stack depth per invocation:

15 words

— e ed b

b and

ERRGEE

)

) d

) i

: Routine Size:

004767

177214

006000
103773
000207

730::
18:

JSR

TRAP
ROR

8L0
RTS

: Routine Size:

PC.$T730
66
RO
1$

6 words

; Maximum stack depth per invocation:
7298

! <BLF /PAGE>

7295

0 words

CZMABO ML-11 LOGIC TESY

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

MISCELLANEOIS CODING SECTION

15464 Vb
15465 :

35467
13084

15469
15470
15471
15472
15473

SEQ 0336
zs-oec-wao 09:24:31
22-Dec-1980 09:21:22

7
750 BGNTST;

TOPS=-20 Bliss=-16 v2(21 2 )
PA:<NEALE>BL3M 4.BL].2 (81)

]

:
;
;
;
;

7301
7302
7303
7304
7305

15476 ;

;gge

15477 ;
15478 ;
15479 ;
15480 ;
15481 ;
15482 :
15483 ;
15484 ;
15485 ;
15486
15487 ;
15488 ;
15489 ;
15490 ;
15491 ;
15492 ;
15493 ;
15494
15495 .
15496 ;
15497 ;
15498 ;
15499

15500 ;
15501 ;
15502 ;
15503 ;
15504 :
15505 ;
15506 ;
15507 .
15508
15509 ;
15510 ;
15511 ;
15512 ;
15513 ;
15514 ;
15515 ;
15516 ;
15517 ;
15518 ;

7309
7310
7311
7312
7313
7314
7315
7316
7317
7318
7319
7320
7321
7322
7323
7324
7325
7326
7327
7328
7329
7330
7331

7332
7333
7334
7335
7336
7337
7338
7339
7340
7341
734
734
7344
7345
7346
7347
7348
7349
7350

144

| TEST MMBER:

TST 31

g TEST NAME:

ADDRESS COUNTER TEST

i TEST DESCRIPTION:
i
i

TEST THE ABILITY OF THE ADPRESS
COUNTER TO SUCCESSFULLY COUNT

i
;

FROM BLOCK ZERO THROUGH THE
DEVICES LAST BLOCK BY:

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.

gzeg;mc AT BLOCK 2ERO WRITE ZEROES INTO ALL BLOCK THROUGH THE LAST

READ THE LAST BLOCK FOR ZEROES AND ERROR IF STILL ONES.

| IMPLICIT INPUTS:
PD TEMP:

A BITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM.

local

DODU_FLG,

!DROP UNIT FLAG

END CNT.

TENDING SECTOR NUMBER

ERR_FLG,

BG_PAT;

'ERROR FLG

IBACKGROUND PATTERN

CLR MBUS

0000 _FLG= ZERO;

BG_PAT = ONES;
MmB1 = .BG_PAT;

IBACKGROUND PAT OF ONES
'LOAD DATA DIAGS WITH BG PAT

DAT DM = ORE

ISET DATA DIAG MODE

MLCST = write:

DO A WRITE FUNCTION

MLD2
MLE2

= .BG_PAT:
= .BG PAT:

LASY_BLK_XFER ();
incr WRD_CNT from 0 to 127 do
begln
DELAY (ONE_US);

DAT_CLK = ONE;

iISET UP A LAST BLOCK XFERR
'WRITE THE LAST BLOCK WITH THE BG PATTERN

CZMABO ML-11 LOGIC TESY
MISCELLANEOUS CODING SECTION
15520 :ML4
1%51 ;

D D o

5508
22323

55?2

D o

55
5533
5534,

5535

AR
2%o

AWK

) wnd d wnd D wnd =

D ) D

5543
5544
5545
5546
5547
5548
ssg
55

b e

5554
5555

i cd d b wd s and b e e

5556

5557

5558

5559

o wud

5560
5561
5562
5563
5564
5565
5566
5567

b e

gs‘fi}g

1%;10

15572

15573
15574

'SET UP A LAST BLOCK XFERR

56 MLCSY = read;
;33;; DELAY (ONE_US);
7359

DO A READ FUNCTION

1incr WD_CNT from 0 to 127 do

'READ THE LAST BLOCK FOR BG PATTERN

7367
7368

incr NIB_PTR from 0 to 9 do

begin

'LOOK AT 10 NIBBLES

7366

77%‘7’3

7371
7372
7373
7374
7375
7376

7377
7378
7379

n
PD_TEMP = .MLPD;
DAT_CLK = ONE;

7381

7383

'GET PROM DATA
iCLOCK OUT THE DATA WORD

DELAY (ONE_US);

if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR,

.BG_PAT, ERR_FLG);

'FIND GL.D NIBBLES AND COMPARE THEM
if .ERR_FLG IS_SET
then
b;gin
ERRDF (81, INTER, DUMPER);
PRINTB (THR_FMT, PHR_4,

'SEE IF ERROR WAS FOUND

'ERROR IF FLG IS SET

WRD 13, FNC_22);

PRINTB (TWO_FMT. FNC_15, WRD_56);

EXIT_TST;

7380

7382

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

ISET DATA DIAG MODE

LAST BLK_XFER ();

'READ THE DATA WORD

0000900030000

) v

255212

CLR_MBUS:

RD_LNG_WRD

0000000000309 000000000

5539
5540

DAT DM = ONE;

7364
7365

e eV 0000000000000 %00

D ) D d

5538

7354,

7360
7361
%

5536
5537

end;

gss

SEQ 0337

00080000000

5527

M 10
PAGE 350
zs-oec-wao 09:24:31
20-Dec-1980 09:21:22

7351

735§
7353

22-DEC-80 12:16

0030000030009

) D D D

5526

0000s09%08008,s0,

552_5

5524
5595

MACRO M1113

end;

7384

end;
7386 END CNT = .LST_BLK - 1;
7385

7387

MDY = ZEROES;

7388 MD2 = ZEROES:
7389 MLE2 = ZEROES:
7390
7391 incr TWICE from 0 to 1 do
7392
in
7393
CLR_mBUS;
739%
DAT DM = ONE;
7395
FIRST_BLK_XFER ()
ggg

MLCS1TM= write;

incr BLK_CNT from 0 to .END_CNT do

7400

incr ADRS_CNT from 0 to 127 do

7601
7602

be?in
DAT_CLK = ONE;

END AT LAST BLOCK =1

'LOAD DATA DIAG REG WITH COMP BG PAT

'REPEAT LOOP TWICE
ISET DATA DIAG MODE
iSET UP A FIRST BLOCK XFERR
iDO A WRITE FUNCTION

'CLOCK THE ADDRESS COUNTER UP TO END_CNT

CZMABO M.-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

15576 ;M4
}gg% :
15579 ;
15580
15581 ;

15% :
15583
15584 :

15585 :

15586 :
15587 :

15588 ;
15589 :
15590 ;

15591 :

7403
74604
7405

7410
7611

incr WD_CNT from 0 to 127 do

'READ THE LAST BLOCK FOR BG PATTERN

7409

741
741
7414

DELAY (ONE_US);

begin
PD_TEMP = .MLPD;
DAY _CLK = ONE;

7415

7423
7424
7425
7426

15604 ;

7428

DELKY (ONE_US);

'READ DATA WORD

incr NIB_PTR from 0 to 9 do
begin

!LOOK AT 10 NIBBLES

if .PD_TEMP [.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR,

15615 :
15616 :
15617 :
15618 :
15619 :
15620 :
15621 ;

7439
7440
7441
7642
7443
7444
7445

7438

15622 :

74646

15624 :
15625 :
15626 :
15630

7448
7449
7450

7447

.9G_PAT, ERR_FLG);

'FIND GOOD NIBBLES AND COMPARE THEM

if .ERR_FLG IS_SET
then

b;ggn

ERRDF (82, ASYNC. DUMPER);

7429
7430

7431
76432
7433
7634
7435
7436
7637

'GET THE PROM DATA
!CLOCK OUT DATA WORD

RD_LNG_WRD;

74627

:
;
:
;
;
:
:

15623 ;

CLR_MBUS;

'SET DATA DIAG MODE
ISET UP A LAST BLOCK XFERR
D0 A READ FUNCTION

:
:
:
;

15614 :

end;

DAT DM = ONE:
LAST BLK_XFER );
MLCSY = Fead:

15599
15600
15601
15602

15607
15608
15609
15610
15611
15612
15613

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

74606
7607
7408

7416
7617
7418
7419
7420
;23}

15605 :
15606 :

SEQ 0338

52-0«-1980 09:24:31
2-Dec-1980 09:21:22

15592 :
15593 :
155% :
15595 ;
15596
%ggg :

15603 :

N 10

PAGE 351

'SEE IF ERROR WAS FOUND

'ERROR IF FLG IS SET

PRINTB (THR_FMT, WRD_50, WRD_S51, WRD_10);
DODU_FLG = ONE;
end;
end;

end;

END_CNT = .END CNT + 1;

BG_PAT = not .BG_PAT;
end;

INOW END AT THE LAST BLOCK

'COMPLIMENT THE BG PATTERN AND REPEAT

ENDSUB;
{if .DODU_FLG IS_SET
then

38&11"

(.ML_LUN);

DOCLN;
end;

ENDTST;

'DROP THIS UNIT IF DODU_FLG IS_SET

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

156§
}

SEQ 0339

MG
:

15638 osz.%gi
15639 054
15640 osa;;z
}sa.n 054

1sa.§

15644 054412

15645 054420

15669 %g‘a’
1564
15648 054434
15649 054440
15650 054444
15651 (54450

004167 127530
$T31:
162
000010
1
18:
11
1 7172 136612

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

JSR
SUB
TRAP
%39

R1,$SAVES
#0,spP
2
fio.a}figec«o

BICB

#7.aML.REG+40

&g; 177770

BIC

150577

BISB

805066
12701
010177
010177
010177
152777

oggoor 136574
136570

1
136704
136710
1

000010

136616

1565 osu.% 012777 000061

136464

1ses§ 054456 004767
15654 054470

00500

15656 054476

001411

141432

15655 054472 012703

000001

15657 054500 016704
15658 054504 001404

125412

3s:

005304

15662 054516

005303

48:

15661 054514 001374

58:

15663 054520 000766

15664 os:.gg 12777 000020 136544 68:

RS.aML.REG+40

2(ép)
#~1,R1
R1.3ML.REG+170
R1.3ML .REG+200

R1 @M .REG+160

: DODU.FLG
: *,BG.PAT
: BG.PAT,*
: BG.PAT.*
* BG.PAT.»

PC,LAST.BLK.XFER

: WRD.CNT

#°0,aM .REG+120

MOV

#61.3ML .REG

MOV

#1.R3

CLR

BEQ

MOV
BEQ

6(SP)

BNE

DEC

7349

$STMP

SSTMP1
SSTMP2

15666 054532 ozozg 000177
15667 0“223
785
15668 054
152777 000040 136446

P
BLE
BISB

R2.M77
2s
#40,aML.REG+40

: WRD.CNT,»

15670 054552
15671 054556

BIC
BICB

n77770 RS
#7.aML.REG+40

15669 054546 016705

156;; 054564

15673

054570

137030

042705
142777

177770
000007

136430

152777

000010

136476

150577

136424

15674 054576 004767 141312
15675054608 81 777 000071
15676 054610
012703 000001
15677 054614

001411

15680
15681

g&s 000006

15678 054616
016704
15679 054622 001404

15682 054632

001374

15684 054636

000766

125274

MOV

BISB

136344
78:

8s:

15683 054634 005303

98:

15685 054640

108:

005002

JSR
MOV
MOV
BEQ

MOV
BEQ

: WRD.CNT

RS.aML.REG+40

#10,
M .REG+120

:
: o« $STMP2

LSDLY,R4
o

: %, $8TMP]

6(SP)
R4

: SSTMP
: SSTMPI

DEC

. SSTMP2

CLR

: WD.CNT

734

7354

PC,LAST.BLK.XFER
#71 .M _REG
#1 R3

CLR
DEC

BNE

nsg
7351

n..t#r RS

734

. SSTMP1

INC

734

;o $8TMP2

#20.aML.REG+120

zo;

7341
734

734

BISB

15665 054

73
733

LSDLY R4
58

CLR

DEC

729
73
73

BISB

JSR

28:

15659 os«sog 005066 000006
15660 054512

CLR
MOV
MOV
MOV
MOV

217 7 0

T
PA:

7355
7356
7357

7359

MISCELLANEOUS CODING SECTION

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

15687

22-Dec~19
22-Dec-19

136536
000020
000001

#20,3ML .REG+120
#1,.R3

15§

128:

LSDLY,R4
148
6(SP)

138:

138
R3
128
@ML.REG+170,D1.TEMP
ML .REG+200,D2.
TEMP
RO}I..REG*160.EZ.TEH’

£ex

364
364
364

b
b ad

14$:

15%:

16$%:

013120

R4
Ré4
R4
#PD
. TEMP R4

177770
000001

M 7770, (SP)
” ,-(SPS

Ry =(3p)

000001

010112
006024
000003

17%:

§§§§§§§§§§§§§§§23§§§§§§3

141130

W
-d \N

g_.
N
L
NS T Y YNY
g
anld

000012

007122

; *, SSTMPY
; SSTMP
; $SSTMP1

; $STMP2

; NIB.PIR
; NIB.PTR,
=

7369

; NIB.PIR,*

#10.sP

000010

010230
36
007454

: o, $8TMP2

-($P)
PC BLSGT2

126150

QOO0

SOSERERE
b

—t

-REG+230,PD,
TEMP

118:

125226

SN tggdd

PRARR RRRERR
FRRP
AL
RIFHPN

SRR ZRR2I2RZ2R22223

—t e ad

b e

e e

VAWML
AW

)

D o

D s

)

D i ed

D i

) d

)

VO NO VSN
=O

) D D

)

D i

) D e

D el

) d e

T
i
B
B
B
B
BB
RN NSRS
I8IFFREISS
8RR RS8R

SRR33

)

JMLS

CZMABO ML-11 LOGIC TEST

RO
173
R3.-(SP)
R1.-(SP)

: NIB.PTR,*
; BG.PAT,»

SP, (SP)

;

?(SP).I1

; ERR.FLG,*

#12.-(SP)

PC.TST.LNG.WRD
#6 SP

ERR.FLG,*

3
121
INTER
DUMPER

moc.zg.-(sp)
ARD.13.-(SP)
#PHR
.4, - (SP)
#THR.FMT ,~(SP)
#4,~(SP)

14
MRD .56, (SP)
#FNC.13.-(SP)

#Tw0.FMf
- (SP)

#3,-(SP)

7373
7376

SP'.

CZMABO M-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

SEQ 0341

JMLS

wVivivoaawnmawnw
Vv

(alTal)

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

TOPS
PA:<

SP.RO
14

18%:

378

g ”1
16$

136012

19%:

Se By e v,

c;o.sp

NIB.PTR
NIB.PTR,*

RO M177
RS
1%

WD.CNT
WO.CNT,»

LST.BLK, (SP)
(SP)
ML .REG+1/0

* END.CNT
END.CNT

RS
fio.a}ézeswo

TWICE

017%6 A

135774

#7. % .REG+40

136042

#10,aM .REG+120

135710

si.n.nec

R4, aML .REG+40

PC.FIRST.BLK.XFER

228

136014

. CNT
ADRS

RG #177

. CNTY
ADRS
ADRS.CNT
,=

R3
R3, (SP)

BLK.CNT
BLK.CNT,END .CNT

218

135710

BLK.CNT

Ré&

IEO.GHL.REG*120
R

228%:

Qe e Sy 0,

-t

lolele] o

VWD N Viviuawviuauaviuaaviaauavivawuawawaviaiw
NIOAD N

VAW

b\‘
S A 3 S FAFIRAIASZER
L&
PSP RREETEET EEEREE
RRRRSRRARE o5 XA
R
R PR R
ST KRR 23 F22RRR2RRZARARR
PN ERERTE ERKE R
33"
FREREREELELCEREZ
RS

—b b

D crd

) b wmd e

) e

b rd

D d d

D wed

)

d D e

aed i

D D D b

el e

D b

D e o

D b o

b nd =D

wvivivawvauoniuiuaun
i
A
A anauaniana wvivivroavaiwnunoawnaw(¥, 1V,
NN NNNNNNVNNNY

15743
15744
15745

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

20$

#40,
M .REG+40

135672

7403

R4 . @M .REG+40

135740

#10, 3 .REG+120

135606

m,.un.nee

PC,LAST.BLK.XFER

238:
248:

25%:

2
LSDLY R4
2

*,$STMP2
«,SSTMP1
: SSTMP

: SSTMP
SSTMP2

7606
7407
7408
7409

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

MISCELLANEOUS CODING SE

15799
15800

MLG

006204
006204
006204
062704
010446
010346
042716

15826 055514
15827 055520
1568 055522
13829 055508
15830 055532
15831 055534
1383 055536
15833
055540
138% 053542
13835 055546
15836 055550

00476
062706
005700
001011
010346
010146
012746
16
004767

15839 055566

0010

15837 055554
15838 055560

012746

062706
026627

13840 055570
13841 055572
1584¢
053574
15843 055576
15844 055600
15845 055604
15846 055610
13847 055618
13848
055620

104435
000122
010464
024052
012746
012746
012746
012746
010748

13850 055626
15851 055630
13852 055636
15853 055642

104414
012766
062706
005203

15849 055624

000020
000001
124470

000006

:
268
278:

R2
@M .REG+230.PD. TEMP
#20
M .REG+120
.
#1,R3

31§

28$:

%SDLY.RA
0s
6(SP)

29%:
308:

135674
135676
135650

318:

@ML.REG+170,D1.TEMP
@ML.REG+200,D2.
TEMP
R?.REG*‘MO.EZ.TE'P

328:

R3.R4

R4
R4
Ré

013120

; WD.CNT

; *,$$TMP2
;

TOPS

PA:<

741

7413

7414
7415

*, $$TMP1

; $$TMP
; $STMPT

; $$TMP2

; NIB.PTR
: NIB.PIR,*

7418
7621

. NIB.PTR,»

177770
000001

125412
000010
: NIB.PIR,»
;: BG.PAT,»

000012
140372

33s:

010600

348:

15819 055472
15820 055474
15821 055476
1382¢ 055500
13823
055504
13824 055508
15625 055510

150777
014703
001411
016704
001404
5
5
1374
005303
Q00766
1776
017767
017767
005003
010304

22-Dec-19
22-Dec-19

BFE

13802 055376 0 5
13808 033400 037063 136000

15804 05
15805
055414
15806 05
15807 055492
15808 05
15809 05354
13810 0554
15811
0554
1581¢ 05
13813
055042
15814 05
15815 055452
15818 05
15817 055466
15818 055470

SEQ 0342

CZMABO ML-11 LOGIC TES

PC.TST.LNG.WRD

4($P) .M

; ERR.FLG,*
; ERR.FLG,*

7425

7428

7429

;

SP,»

, *.DODU.FLG
;

NIB.PTR

7630
7427
7418

CZMABO ML-11 L

MISCELLANEOUS C

SEQ 0343

22-Dec~19 80 09:24 : 3
22-Dec-1980 09:21 :22

elo

000011

NIB.PTR,*

000177

WD.CNT
moCNT,.
END. CNT
BG.PAT
TWICE

000001

TWICE,*

177272

176456
000002

35%:

TRAP

T0PS
PA:<

76411

7637

7438

7391

7439

000001

DODU.FLG,
*

135650

7443
7446

) D D o

D ) D D D ) D D el el od nd D il D D i s

§4484% §N§ < EEEgYIS SRS 33 T g5%
A
A
\s\fl\h\fl\l\\hvflfl\fl\h\h
SEREINTS N §SEEREREEE

15855
158%9

D el

002010

37%:

ADD

: Routine Size:

7297

376 words

18 words

~
&~
~n

v
v,

—t b cod b b b ) wd i

b e

; Maximum stack depth per invocation:

004767
104466

006000
103773
000207

1764614

T31::
1%:

JSR

7448

TRAP
ROR

B8LO
RTS

)
)
6 words
: Routine Size:
; Maximum stack depth per invocation:

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

15910 ;mLé
15911 ;
15912
15913 .

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

SEQ 0344

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

! <BLF/PAGE>

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

CIM ABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H 11
PAGE 358

15915 ;M4

25-0«-1980 09:24:31

}23}9 ;

15918 ;
15919 ;

15920 :

15921
15922
15923
15924
15925
15926
15927
15928
15929
15930
15931
15932
15933
15934
15935
15936
15937
15938
15939
15940
15941
1592

:
:
:
:

:
:
:
:
;
.
:
:
:
:
:
:
:

22-Dec=1980 09:21:22

7452
745%

7454

7455
76456
7457
7458
7459
76460
7461
728
7
76464
76465
7666
7467
7468
7669
76470
7671
76472
76
7474
7475
7476

15943 ;
15944 :

7677
7478

15946 :

7480

15945 :

15947
15948
15949
15950
15951
15952
15953
15954

:
:

7479

BGNTST:
'+¢
| TEST NUMBER:
TST 32
i
| TEST NAME:
ARRAY MODULE SELECTION TEST
!
| TEST DESCRIPTION:
i
i
TEST FOR UNJQUE ARRAY MODULE
SELECTION BY:
i
1.
WRITING THE RESPECTIVE ARRAY
1
MODULE POSITION NUMBER INTO
THE FIRST GOOD NIBBLE FOUND
1
IN THE ARRAY.
DO FOR ALL
i
PRESENT ARRAYS.
i
i
1
|

PD_TEMP:

A BIT VECTOR OF 16 BITS WHERE
THE READ PROM DATA IS STORED

AND ACCESSED FROM.

15956 :

7490

ARR_SEL,

749

ARR_NUA;

15957 -

15958 :

7491

READ THE ARRAYS FOR THEIR
RESPECTIVE POSTION NUMBERS.

IMPLICIT INPUTS:

:
:
:
:
:
;

7489

TOPS=20 Bliss=-16 V2(212)

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

!
i

7481
76482
7483
7484
7485
7686
7487
7488

15955 -

SEQ 0345

10 BUF :
A VECTOR OF 256 WORDS WHERE

DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

!
11—
Llocal

WRDS_TSTED,

'WORDS TESTED

FND_GD_NIB,

'FOUND GOOD NIBBLE

'ARRAY SELECT

IARRAY NUMBER

15959 :
15960 :

749
749

ARR_SEL = ZEROES;

ARR_SEL = .ARR_SEL - .ARR_INC;

ISTART ARR_SEL BACK ONE ARRAY

15963 :
15964 :

7497
7498

incr ARR_CNT from 0 to .OP_NUM_ARR do
in

!TEST ALL PRESENT ARRAYS

}ggg} :

;t‘.g

15965 :
15966 -

7699
7500

15969 -

7503

15967 :
15968 -

7501
7502

CLR_MBUS;
FND~GD NIB = ZERO;

WRDS TSTED = ZERO:
DAT DM = ONE:

MW = not 255;

ISET DATA DIAG MODE

ILOAD WORD COUNT

MISCELLANEOUS COD

CZMABO ML-11 L

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

ST
3 CTION

SEQ 0346

2-Dec-1980 09:24:31
2-Dec=1980 09:21:22
MLBA
ARR
M DX
M)

sE
Aah SEL + .ARR_INC;
1= urife.

85 Av (ONE_US);
CSué‘?ZrEo
Bt_WRDS_TSTED + 1;
incr CNT from O to 8 do

TOPS-20 Bliss-16 v2(212)
PA: <KNEALE>BL3ML4.8BLI.2 (82)

'LOAD 10_BUF

'LOOK ATNEXT ARRAY

!LOAD DSA WITH SELECTED ARRAY AT BLOCK ZERO
!DO A WRITE FUNCTION
!THIS LOOP WRITES ARRAY NUMBERS TO THE ARRAYS
!GET THE PROM DATA
!COUNT WORDS TESTED

!LOOK AT 9 NIBBLES

TN P

PR PN YR Y

TR T

H, K

set

b o

) wd

!SELECT AND LOAD GOOD NIBBLE WITH ARRAY (NT

] :
(MLD1)<0, 4> = _ARR_CNT;

INIBBLE 0

1] :
(MLD1)<4, 4> = _ARR_(CNT;

'INIBBLE 1

2l :
(MLD1)<8, 4> = _ARR_CNT;

'N]IBBLE 2

3] :
(MLD1)<12, 4> = .ARR_(CNT;

'NIBBLE 3

[4] :
(MLD2)<0, 4> = .ARR_CNT;

INIBBLE 4

(MLD2)<4, &> = .ARR_CNT;

'INIBBLE 5

6] :
(MLD2)<8, 4> = .ARR_CNT;

INIBBLE 6

7] :
(MLD2)<12, 4> = _ARR_CNT;

'NIBBLE 7

] :
(MLE2)<B, 4> = .ARR_CNT;

'NIBBLE 8

PR TR P

PRTN
PR P

PN P

Cs) :

tes;

N
RNNN TN
LA

b
d
b
d
d wd and
—d ad

VOO

WNI=O

D
)
e md
) e
)
ed
— e

case .CNT from O to 8 of

ZEERe 32TL2ILLBTRY R

16001

!FIND A GOOD NIBBLE

begin

TN YN PRYR
YN PN

TR TN P RN Y YRR YR PR P

if .PD_TEMP [.CNT] IS_NOT_SET

then

FND_GD_NIB
= ONE;

e:&f 00p;
e

ISET FOUND GOOD NIBBLE

'EXIT THE LOOP

FLG

“a:xEr

—

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

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

}

7 M4

16029
16030
;
16031 ;

1128

SEQ 0347

32-09c-1980 09:26:31
2-Dec-1980 09:21:22
7556
7557

DAT_CLK = ONE;
end

'CLOCK GOOD NIBBLE INTO MEMORY & GET NXT PROM WRD

;ggg

until (.FND_GD_NIB [S_SET ) or (.WRDS_TSTED eql 14);

16034 ;
16035 ;

7560
7561

it .WRDS_TSTED eql 14
then

16036 ;
16037

75
75

b;g
DF (111,

INTER, DUMPER);

16038 ;
16039 ;
16040 ;

7564
7565
7566

16042 ;

7568

16044 ;
16045 ;

7570
7571

ARR _SEL = ZEROES;
SE = .ARR_ SEL = .ARR_INC;

16047 ;
16048 ;

75
7574

incr ARR_CNT from
0 to .OP_NUM_ARR
do
begin

16041

;

16043 ;

16046 ;

16049 ;

7567
7569

75;%‘

7575

7579

MW = not 255;

7583

16057 ;

7580
7581
7582

16058 ;
16059 ;

7584
7585

16061

;

7587

16065 ;
16066 ;
16067 ;

7591
7592
7593

16070 ;
16071 ;

596
7597

16060 ;

16062 ;
16063 ;
16064 ;

16068 ;
16069 ;

16072 ;

7586

7588
7589
7590

7594
7595

7598

16073 ;

7599

16076 ;

7602

16074 ;
16075 :

ITHEN ERROR AND EXIT TESTED

!START ARR SEL BACK ONE AGAIN

!TEST ALL PRESENT ARRAYS

B&SLB:

16053 :
16054 ;
16055 ;
16056 :

'IF 14 WORDS TSTED

end;

7576

7577
7578

DO UNTIL FOUND GOOD NIBBLE OR 14 WRDS TSTED

PRINTB (SEV FMT, MRD 14, P!R 10, *NC_15, WRD_12, FNC_17, WRD_37, WRD_S6);
EXIT_TST;
end;”

16050 ;

16051 ;
16052 ;

CLR_MBUS;

FND_GD_NIB = ZERO;
DAT DM
= ONE:

MLBA = JO_BUF;
ARR SEL = ARR SEL + .ARR_INC;
MmDX = .ARR_SEL;

MLCST1 = read;

!SET DATA DIAG MODE
!LOAD WORD COUNT
!LOAD UBUS ADDRESS
!LOOK AT NEXT ARRAY
!LOAD DSA WITH ARRAY SELECT
!DO A READ FUNCTION

!THIS LOOP READS ARRAYS FOR ARRAY NUMBERS

begin

DELAY (ONE_US);

PD_TEMP
= .H.PD

!GET THE PROM DATA

incr CNT from O to 8 do

!LOOK AT 9 NIBBLES

it .PD_TEMP L[.CNT] IS_NOT_SET
then

!FIND THE GOOD NIBBLES WHERE ARR NUM IS STORED

begin
DAT_CLK = ONE;

!CLOCK ARRAY WORD OUT

case .CNT from O to 8 of

!SELECT AND READ GOOD NIBBLE

set

7600
7601

ol :
ARR_NUM = ,(MLD1)<0, &>;

!NIBBLE 0

16077 ;
16078 ;

7603
7604

1] :
ARR_NUM = . (MLD1)<4, &4>;

!NIBBLE 1

16080
16081 ;

7606
7607

2] :
ARR_NUM = . (MLD1)<8, &>;

INIBBLE 2

16079

7605

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

CZMABO ML-11 LOGIC TEST

)

(4% 48

MISCELLANEOUS CODING

MACRO M1113

SECTION

22-DEC-80 12:16

K 11
PAGE 361

16083 n.l.

22-Dec~1980 09:24:31

16085

22-Dec=-1980 09:21:22

16086
;

7608

16088
16089
16090
16091
16092
16093
16094
16095
16096
16097
16098

;
;
:
;
:
:
:
;
:
;
;

7610
7611
761
761
7614
7615
7616
7617
7618
7619
7620

16101

;

16087 ;

SEQ 0348

7609

(3] :
4]

€s)
6l

ARR_NUM = . (MLD1)<12, &>;

'NIBBLE 3

:
ARR_NUM = . (MLD2)<0, 4>;

INIBBLE 4

ARR_NUM = . (MLD2) <4, &>;

INIBBIE

:
ARR_NUM = . (MLD2)<8, 4>;

INIBBLE 6

INIBBLE 7

16099 ;
16100 ;

7621
7622

7] :
ARR_NUM = . (MLD2)<12, 4>;

16102 ;

7624

(8] :

16104 ;

7626

tes;

16103 ;

7623

7625

16105 ;

7627

16108 ;

7630

16106 ;
16107 :
16109 ;

7628
7629

ARR_NUM = . (MLE2)<8, &>;

FND_GD_NIB
= ONE;
exitloop;

end;

7631

'NIBBLE 8

'SET FND GD NIB FLG
'EXIT LOOP

7632

}2“"3 :

;(gg

until .FND_GD_NIB IS_SET;

16114 ;
16115 ;
16116 :
16117 ;
16118 :;
16119 ;

7636
7637
7638
7639
7640
7641

it .ARR_CNT neq .ARR_NUM
'SEE IF ARRAY CONTAINS IT°'S ARR NUM
then
bfifio
'ERROR IF NOT THERE
F (83, ASYNC, DUMPER):;
PRINTB (FOR_FMT, WRD_39, FNC_17, WRD_37, WRD_10);
PRINTB (FMT_14, .ARR_ CNT, .ARR Nun)

16121 ;

764

16120 ;

16122 ;
16123 ;
16124 ;
}2}25 :

7633

764

7644
7645

16135 055766

16136 055770

'REPEAT UNTIL FOUND THE GOOD NIBBLE

end;

ENDSUB;
end;

7646
7647

ENDTST;

162706

000006

166705

133566

005005

1CLOCK OUT NEXT PROM LOCATION

end

161% 055756 004167 126134
16134 055762

(82)

16110 ;

16111 ;

DAT_CLK = ONE;

TOPS-20 Bliss-16 V2(212)

PA:<NEALE>BL3IMLS .BLI.2

$732:

JSR

R1,$SAVES

7450

: ARR.SEL

7496

suB

#6,SP

suB

ARR. INC.RS

CLR

; *,ARR.SEL

7495

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

SEQ 0349

22-Dec-19 80 09:24 : 3
22-Dec-1980 09:21 :22

JMLé
OP.NUM.ARR,2(SP)
R3
278

000002
135176

SRR
SANERRERDSE
RS R ER RIS R=R

TS
ZEES

R2.aML.REG+40

Ré
#10,aML .REG+120

1352
135104
135106

2$:
38:

#10.80F
,aML .REG+20
ARR. INC.RS
RS, aML . REG+30

* ,ARR. SEL
ARR.SEL
,*

#1.R1

*, SSTMP2

#61 ., 3 .REG
6$
LSOLY R2
5%

5%:
134756

g:L.REG+230.PD.TEHP
78:

*, SSTMP1
sSTMP
SSTMPY

$STMP?

R2
R2.R1

WRDS.TSTED
CNT

CNT ,»

013120

177770
000001

R2.-(SP)

#177770, (SP)
#1,-(SPS

056224

CNT ,»

-(5P)
PC ,BLSGT2

#10.sp

23s

R2.R1
R1
88(R1) ,PC

143-8%

FND.GD.NIB
WRDS.TSTED

3 .REG+10
#-400,

A ¥

135244

7497
7498

” 7‘7)976 R2
(SP)

135050

ARR.CNT

TOPS

PA:<

#7. M . REG+40

135160

124734
000010

-3

N 28R R R R AR 2B AIY AN

—d

b cnd vnd

b cnd

) cud cud wnd

d d

) end e

D and

D ed wd

D d

D e

D ad WD

) D

) 2D

3o 30303322 ATATARAARERE2A0000
0020800002000 000000.50.50

IITE IR RER LB SL LN RUN LB EIE SR ELLE S

d cnd and

CZMABO ML~-11 LOGIC TESY
MISCELLANEOUS CODING SECTION

=
CNT

751

CZMABO ML-11 L 0G IC TEST
MISCELLANEOUS C b ING SECTION

MACRO M1113

22-DEC-80 12:16

mn
PAGE 363

SEQ 0350

142777

177760
000017

M 57760,R1

135062

108:

177617
000360
135030

135034

118:

128:

170377

007400

TOPS
PA:<

007777

134754

135010

177760
000017

134760

177

170377
007400

; ARR.CNT,
=

7528

; ARR.CNT
,»

7521
7531

; ARR.CNT
=

7534,

; ARR.CNT,»

7521
7537

; ARR.CNT,»

7540

;

ARR.CNT,»

7521
7543

; ARR.CNT
,»

7546

#360,@ML .REG+170
gé‘aHL.REG#17O

R3.R1

15%:
134746

1
R3.R1
R1

R1
R1
R1

134720

17%:

18%:

701

R1
R1
R1
R1
#77617
,R1

7525

148

16%:

1774617
000360
134714

#17 .3.REG+170
118

»
; ARR.CNT

#170377
,R1
l?:OO.iHL.REG+170

13%:

142777

R
&%

22-Dec=-1980 09:24:31
22-Dec=1980 09:21:22
193-8$

& BRISRRg
=4

3353

oy 882K

MLé

134674
19%:

M77617
R
#360,@ML .REG+200
R1 @ML.REG+200

R1
#170377
,R1
#7400,3ML .REG+200
208
R1
R1
R1

CIMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

16250

1625

o1
1

St B;97 170000 134644
1

177

10@1

1625

16260
16261
1

0565

16264 056540

134640

1
3;9; 170377
007400

177 134574

16265 056544 oosws

000001

012716

16267

000010

16269 056546 8%20?
056550

227

16268 056554

1870 osc%%
16271 056
162;; 056574

152
000020
1627 000001
001405

16269 056556 0201797 177364
16273

056576

16276 056602

001402

16276 056610

020427

16278 055616
16279 056620

104455
157

16275 056606 000167
16277 056614 001035

16280
16281
‘258
1
16284 %
16285 0%
16236
16287 056652
16, 3 026656

10672
024052
012746
012746
12746
10746
12746
012746
012746

22-Dec-1980 09:24:31

1629§ 056674
16293 056676

104414
104463

1629% 05670v
16298
16296 056710
16297 05671
16298 05671

208:

218:
134600
228:

238:

16303 056740
16304 056742

005004
000167

177274

248:

258:

007122
0067

010162
010136

000516

SWAB
BIC

BIS

288:

000002

R1,aM .REG+200

‘23!

LR1

R}
#170377
.R1

R1,aM .REG+160

INC

R2,#10

JoP

BISB
v 3
BEQ

JMP

;

7521

; *,FND.GD.NIB

755

: CNT

751

: ARR.CNT,

7549

#7600,
3 .REG+160
#1.

248

(SP)

24$

#20,aML.REG+120
(sPS .M
258
R4 M6

P OONT,
e

:
: FND.GD.NIB,*

755

75561
7558

: WRDS.TSTED,*

(TM

R4, #16

; WRDS.TSTED,*

7560

TRAP
.WORD

5§
157

7563

;

7564

BNE

268

.WORD
-WORD
MOV
MOV
MOV
MOV
MOV
MOV
MOV

INTER
R
MRD . 56.~(SP)
MRD.37.~(5P)
#FENC.17.-(SP)
m.1g,-<sp)
#FNC.15.-(SP)
#PHR.10.-(SP)
MARD .14 .~ (SP)

TR
TRAP

14
63

MOV
MOV
MOV

268:
78:

PA:

MOV

000016

132€22

MOV

BEQ

062706 000022
000167 000562
005203
850366 000002
300;
016766

BIS

B8R

BGT

134504

T(Pi

N
#170000,
aML . REG+200

BIC

8IC

000016

16299
000167 177064
16300 056726 005005
16301
166705 132630

20-Dec-1980 09:21:22

ASL

006442
16209 056662 012746 006120
16290 osw;g 012746 000010
16291 056672
010600

wso%

SEQ 0351

1
1

NI
PAGE 364

H, ¥

1 6‘%
]

22-DEC-80 12:16

ADD
JMP
INC
(TM
8GT

#SEV.FMF - (SP)
#10,-(SPS
SP.RO

#22,SP
S6s
R3
R3,2(SP)
28§

:
:
* ARR.CNT
* ARR.CNT,*

7560
7562
7497

: ARR.SEL

7570

JMP
CLR
SuB

18
ARR. INC RS

CLR
P

R4
558

MOV

; SP,%

OP.NUM.ARR, 2 (SP)

: =, ARR.SEL
:
: ARR.CNT

7571
7573

MACRO M1113

CZMABO ML-11 L 0G IC TEST

PAGE

3612
365

SEQ 0352

JMLG

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

#7. 9% .REG+40

#~400,aM .REG+10

134112

31s:

s$STMP
$STMPI

33s:

$STMP2

348:

gzl.REG*ZZSO.PD. TEMP

35%:

R2.R1
R1
R1
R1

#1%7770, (SP)
#1,-(SP}

124000
000010

#10,sp

R1,-(SP)
R2.-(SP)

CNT
=
CNT

759

CNT ,»

-(5P)
PC BLSGT2

RO
508

-l

134116

37%:

36%:

333333355

#20,@ML .REG+120

v, SS$TMP?

328:

177770
000001

134130

~ ARR.SEL
ARR.SEL
,*

~, SSTMP1

#PD
. TEMP.R1

057166

FND.GD.NIB

(sh)

#10,aML .REG+120

R2,aML .REG+40

013120

000020

757
757

n%b R2

134264
134146
134150

134020

T
PA:

o
&”NO

2
’céo.ahgewo

LR
TR TR T

~\NOr

#=38
EE

b d € ud

134220

29%:

398
33333833333
gggggfijjfiflfifl
N RNSERBLLERERKSR Sano& RS I ERER

134236

g
g ggg RIVS$3

A
)
A
A A AV o

SFRRIRRRR

(o lele]

b e
b e e
e o
b e
b
b e

WAAA

b cnd cnd ol e
b

VRNV
NN =O

-l and and

056746

g&&&&&&&&&&
1.
Qv It A 8 :

d e

b e o

b o

D o

o b e

e e

D d

b
b e
b

AR AR
2s& GERR & &]SRCRRREREE AR
S
GEe
g

MISCELLANEOUS C 00 ING SECTION

22-DEC-80 12:16

R2.R1
R1
(R1).,PC
73-36$

CNT,»

7595
7597

*,ARR.NUM

7601

408~
413-368
423-363
443363

&ML .REG+170.R3

CZMLABO ML-11 LOGIC TEST

~
o G

s Phurd

QOO0 =

006700
010162
006716
006046
000005

005110

000003

133726

51%:

761

B
§ 3§ 2233,

..REG+200,R3

51$

R2
R, #10

35¢

#20,aM_.REG+120

(sPS ., M1

308
R4 ,R3

s2$

3333
£3:3 gags

#177760.R3
#1,(SP)

.REG+160,R3

-REG+200,R3

’

-REG+200,R3

508:

-REG+200,R3

47%:
(8%
:
498
:

761

134020

-REG+170,R3

45%:
468

760

134056

-REG+170,R3

[alm)

:
448

Qe %s Ve %9 % %, N,

134064

TOPS|

PA:d

761fl

7619

7622

7625

7625
7
75

FND.GD.NIB,
*

7632
7634

ARR.CNT ,ARR.NUM

7636
7639

7640

£3

42%:
438:

CXRCRECHEES ol do l O ERP

134102

418:

134110

.REG+170,R3

$E33RRRET

408:

P -J
»H

R §§§ SRR Ex
AN

FRR FRIIIR2

7410

S
N
~

134106

R B L

§§§§§§§§§§§§%§§§§%§§§2§§§%§%§%
hE

&
V.
A

FERRERE

398:

000020
000001

(e JV, F AV
NPT

134114

22-Dec-1980
22-Dec-1980

LR L T

b
D wd
D ) e
D e
D D
D e
D ad

388:

000010

b ad i cnd D

134122

177760
000001

D d
D )
D e
b b
b il
b
D nd e wud e
b e
—b

SEQ 0353

JML6

IV A Avave A Ay v A dvav

RMISCELLANEOUS CODING SECTION

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

T=(SP)

#EMT.14,-(SP)

#3,~(SP}

7641

MISCELLANEOUS C

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

CZMABO ML-11 L

)

1%,

D o

222 RELZRREXLIZR
SNX
N3 o
o
233 N

JMLG

d d D e
D D wd e
)
b

N:V
&

000002

057500
057500
057504
057506
057510
057512

528:

538:
548:
55%:
56%:

22-Dec=1930 09:24:31
22-Dec-1980 09:21:22
MOV
TRAP
ADD

004767

104466

176252

T32::
18:

7638

TRAP

7642

ROR
B8HIS

JWP
INC
CMP

; ARR.CNT

; ARR.CNT
»

BLE
ADD
RTS

006000

JSR
TRAP

ROR

103773
000207

8LO
RTS

; Routine Size:

;

7648

! <BLF /PAGE>

TOPS

PA:d4

; SP,»

7573
7450

;. Routine Size:
425 words
; Maximum stack depth per invocation:

d e

177264

32 057476

RhESREran
e bhEERE

ol D d o

D D d ) o

000022

) d
b d

SEQ 0354

18 words

PC,$732
66
RO
1$

7645

6 words

Maximum stack depth per

invocation:

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

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

9
765?

!
BGNTST;

7652
765

!+¢
: TEST NUMBER:
l
l
l
l

0
l

l
l

7672

FIRST WRITING THE GOOD BLOCK VIA DAT_DM MODE WITH A BACKGROUND

PATTERN OF ONES.

7685

7686
7687

16508

7688

16510

7690

7689

7691

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.

THEN VIA DAT DM READ GOOD NIBBLES IN THE GOOD BLOCK AND XOR THEM

AGAINST THE BACKGROUND PATTERN.
BY THE MBUS WIRTE.

7681

VIA A MBUS WRITE FUNCTIGN WRITE ONES INTO THE GOOD BLOCK.

RECORD THE NUMBER OF NIBBLES THAT WERE UNCHANGED OR PARTIALLY CHANGED

:
l

7684

16511

SEQUENCER EXISTENCE TEST

16504

16509

;7'

16506
16507

IMPLICIT INPUTS:

PD TEMP:

A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM.

l
l

A VEcroa OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTIONS

ARE FOUND.

l
l

local

BG_PAT,

'BACK GROUND PATTERN

NIB ISTED

INIBBLES TESTED
'ALL NIBBLES ARE BAD

SUMBAD

16512
16513

7692
7693

16515
16516
16517

7695
7696
7697

CLR MBUS:
BG_PAT
= ONES;

16519

7699

MLD2 = .BG_PAT;

16514

16518

16520

TST 33

TEST SEQUENCER TIMING A*D CONTROL
LOGIC FOR EXISTENCE BY:

112558.;

16505

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

TEST DESCRIPTION:

16501

TEST NAME:

22XR222RRR

BRSRIREC2R

§adaslERt
S RiNNgE 333

16466 ML
1

SEQ 0355

7694

7698

7700

RES&.T
mMDb1 = .BG_ PAT:

MLE2 = .BG_PAT;

'SUM NIBBLE ARE BAD

'RESULTS OF XOR

'BACKGROUND EQL ONES

'LOAD DATA DIAG REG WITH BG PAT

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEQUS CODING SECTION

22-DEC-80 12:16

F 12
PAGE 369

165%% H, €3

%S-Dec-1980 09:24: 31
-Dec-1980 09:21.22

16523
;
16524
16525 ;

7701

16527 ;
16528 ;

770
7706

16526 ;

16529
16530 ;
16531 ;

165§ :

16533
16534 ;

SEQ 0356

7705

7705
7706
7707
77
7710

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

MLCSY = write;

DAT_DM_XFER ();

!SET UP A DATA DIAG XFERR AT THE GOOD BLOCK
!DO A WRITE FUNCTION

incr uo CNT from 0 to 127 do

'WRITE BLOCK WITH BG PAT

EA
DELAY (ONE US);
DAT_CLK
= ONE:

end;

CLR _MBUS;

16535 ;
16536 ;
16537 :

7711
77
77

10 BUF = ZEROES;
BAY
= ONE;
GD_BLK XFER 0);

16540 ;

7716

BGNS(B;
~

7718
7719
7720
7721
7722

ALL_BAD = ZEROES:
_BAD = ZEROES.;
NIB TSTED = ZER(ES
DAT_DM_XFER ();
MLCS1
= read;

!SET UP SAME DATA DIAG XFERR
!DO A READ FUNCTION

1incr WD_CNT from 0 to 112 do

!READ 113 LONG WORDS

16338

16541 ;

16542 :
16543 ;
16544 :
16545 ;
16546 ;
16547 ;
16548 ;
16549 ;

16550 ;
16551 :
16552 ;

16553 :

!LOAD FIRST WORD OF 10_BUF
!MAKE XFERR SET ON ONE ADRS
!SET UP_A GOOD BLOCK XFERR
!DO A WRITE FUNCTION

o ol
oee:

7717

7723
7724
7725

7726
7727
7728

7729

CLR_MBUS;

DELAY (ONE US)

In
PD TEMP
= .llPD
DAY (LK
=

DELAY (ONE usS

!GET PROM DATA
!CLOCK OUT THE DATA WORD

16554 ;

7730

RD_LNG_ WD

!READ THE DATA WORD

16556 :

7732

incr NIB_PTR from 0 to 8 do

!LOOK AT 9 NIBBLES

16558 :

7734

16561 ;
16562 :;

7737
7738

16564 ;
16565 ;
16566 :;
16567 ;

7740
7761
7742
7743

16569 ;

7745

16555 ;
16557 ;

16559 ;
16560 ;

16563 ;

16568 ;

16570
16571
16572
165

;
;
:
:

16574 ;

16575 :
16576 ;

7731

7733

if .PD_TEMP [.NIB_PTR] eql ZERO

7735
7736

then

if .RESULT<0, 4> eql ZERO

then

else

7744

7750
7751
7752

begin

NIB_TSTED = .NIB _TSTED + 1;
! INCREMENT COUNT OF NIBBLES TESTED
X(R LNG_WRD
(NIBPTR, .BG_PAT, RESWT);
!XOR NIBBLE WITH BG PAT

7739

7746
7747
7748
7749

!FIND GOOD NIBBLE

ALL_BAD = _ALL_BAD + 1

!SEE IF ALL BITS IN NIBBLE WERE BAD?
! INCREMENT COUNT IF ALL BAD

if .RESULT<0, 4> neq X0'17' then SUM_BAD = .SUM_BAD + 1;
end;

end;
ENDSUB;

!SEE IF SOME BITS IN NIBBLE WERE BAD
! INCREMENT COUNT IF SOME BAD

—

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

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

16578 .MmL4

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

if .NIB_TSTED eql
then

.ALL_BAD

ERRDF (84, SYNC. DUMPER);
PRINTB (SEV_FMT, WRD_ 22,

pooU (.ML_LON);

&
2

SEQ 0357

else

TOPS-20 Bliss=16 Vv2(212)
PA: <KNEALE>BLIMLS .BLI.2 (83%)

!WHERE ALL NIBBLES XFERR'ED ALL BAD?
!ERROR IF ALL BAD

PHR_4, WRD_9, WRD_12, WRD_23, FNC_S., WRD_19);

DOCLN;
end

if .SUM_BAD gtr ZERO
then
begin

ERRDF

!SEE IF SEE NIBBLE WERE BAD?
!SOME BAD IS OK SO GIVE INTERMEDIATE ERROR

(85, INTER, DUMPER):

§3

PRINTB (SIX_FMT, PHR_4, WRD_9, WRD_12, WRD_23, FNC_S, WRD_19);

ENDTST;

124376

$733:

R1,$SAVES

#10.sP

133462

{.o.a;l.égscwo

133444

#7., ML .REG+40
RS,aML .REG+40

NP6
RS

000002
133554
133556
133530

#-1,2(sP)

*,BG.PAT

2(SP)
,aML .REG+200
2(SP) @M .REG+160

,»
BG.PAT
,»
BG.PAT

#-1.3

.REG+170

PC,DAT.DM.XFER
sgi.n.aec

133336

#1.R1

58
LS$DLY ,R2

6629
646
6630 057650
6631 057656

000020

133416

WD.CNT

*, $STMP2
*, $STMP

3s:

43
6(SP)
R2

sSTMP
$STMP1

'A ¥

$STMP2

58:

#20,8ML .REG+120
RO

: WD.CNT

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

16633
}66346635

16638 057666

16639 057674

016705

152777

oggg«o

133320

16641 057704
wa.i osmi

14
150577

7
133276

133302

13370

16640 057700 oa;g; 177775
05771

16646 057734

16647 057742

16648 057746

16649 057750

ogs%

BISB

131656

012777 000061
105777

100375

133256

133212

16651 057760 016703
057766

16653
057770
16654 057776
16655 060002

042703

142777
150377
005004

133616

177770

000007
133212

16658 060010 004767 134146
16659 060014 012777 000071
16660 060022 012701 000001
16661 060026 001411
1
060030 016702 122062
1
060034 001404
16664 0600
5066 000006

8s:

16665 ooooig 005302

98:

16667 050046

108

001374

16668 060050

766

005301

16669 060052
005003
16670 060054 017767
16671 060062

166;:3 060070
062074

152777

012701
001411

16674 060076
16675 060102
16676 060104

016702
001404
066

16678 060112

001374

16677 060110

16679 060114

005302

133324

000020

000001

133036
133204

000006

148:

005301

158:

16681 %120 017767 133220 131024
16682
1;2 017767 133222 131020
017767

16685 060144
16686 060146

010102
006202

16684 060142

16687 060150

005001

006202

11$:
128:
138:

122014

16680 060116 000766

16683 060134

10.8UF

7711

MOV

#61,aM .REG

8PL

;

7715

#7.aML.REG+40
RS.aML.REG+40

TSTB

TRAP

BISB

133174

16$:

131014

.,RS

#10,aML.REG+40
PC,GD.BLK.XFER
aML.REG+S
2

#40,aML.REG+40

;
:

771
771

7716

n?ggr R3

BICB
BISB
CLR

#7.aML.REG+40
R3.aML.REG+40
R&

: ALL.BAD

7718

: NIB.TSTED

7720

#177776

(SP)

JSR
MOV
MOV
BEQ
MOV
BEQ
CLR

PC,DAT.DM.XFER
#71 .M .REG
1 R1
11§
LSDLY,R2
108
6(SP)

BNE

* SUM.BAD

:
:
: o, SSTMP2

7719

7721
7722
7723

; %, 8STMPI

; SSTMP

DEC

; SSTMP?

CLR
MOV

R3
aML .REG+230.PD. TEMP

; WD.CNT
:

7725
7727

MOV

#1 R1

T o, $STMP2

7729

DEC

BISB

BEQ

#20.aML.REG+120

16$

MOV
BEQ
CLR

LSDLY,R2
158
6(SP)

BNE

148

DEC

MOV
MOV

aML.REG+170.D1.
TEMP
aML .REG+200.D2. TEMP

CLR

ASR

B8R

MOV
178:

17 7 0

DUT RS

MOV

CLR

133132

#40,aML.REG+40

BICB
BISB

CLR

005005

16666 060044

7708

BIC

133216

16656 060004 005016
16657 060006

;

CLR

TOPS
PA:<

; WD.CNT,®

BISB
JSR

68:

RO.#177
18

MOV

BIC

16650 057752 152% 000040 133234

16673

SEQ 0358

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

TM
BLE

16644 ns% 152
0&9010 133264
16645 U5
004767 136126

16652

PAGE 371

H, ¥
:

16636 057660 020057 000177
16637 057664 003755

16643

H_12

22-DEC-80 12:16

MOV
ASR

138

aML.REG+160.E2. TEMP

R1.R2
R2

P SSTMPI
:

7728

; *,$8TMPI
; SSTMP

L osSTMPY
; SSTMP?

: NIB.PTR

NIB.PTR,*

7732
7734

CZM_ABO ML-11 LOGIC TES
MISCELLANEOUS CODING SECTION

16689

‘

}gg@
16692

060152

006;85

MACRO M1113 22-DEC-80 12:16 PAGE §72
H,

22-Dec-1980 09:24:31

;

22-Dec-1980 09:21:22
ASR

16693 060154
1669 060160
16695 060162
16696 %1
16697
0601

062
010246
010146
oasm
12746

013120

177770
000001

ADD
MOV
MOV
BIC
MOV

16699 060176

004767

122736

JSR

1670§

001027

BNE

16704 060214 010146
16705 060216 016646
16706 060222 012746

000004
000012

MOV
MOV
MOV

16709 060234

016602

000012

MOV

16711 060244
16715 060266

001002
005204

16714 060252

16698 060174

16700
16701

1670

OCS

CLR

885706 000010
700

005205

16707 0",ozigoeoz 060616
16708
004767 136406
16710 060240

16713

060250

042702

16715 060256

001402

16717 060264

062706

16720 060276
16721 060300
16722 060302
16723
060306

00372
00520
020327
003662

16725 060312
16726 060314

16716 060260

16718 060270
16719 060272

16726 060310

16727 060316

16728 060
16729
060
16

16731 &o %
16;33%

16733

030

060332

177760

000017

000006

188:

#PD
. TEMP ,R2
R2,~(SP)
R1.=(SP)
#%7770, (SP)
” ,-(SP}

ADD
ST

#10,sP
RO

INC

; NIB.TSTED

ADD
JSR

SP, (SP)
PC.XOR.LNG.WRD

: RESULT,w

BIC

#177760.R2

208

R1,=(SP)
4(SP) ., -(SP)
#12,~(SP)

188
R4

: ALL.BAD

7742

(TM

R2 M7

7745

INC

6(SP)

; SUM.BAD

R1
R1,#10

: NIB.PTR
: NIB.PTR,*

7732

: WD.CNT
. WD.CNT,»

7725

;

7750

RS R4

; NIB.TSTED,ALL.BAD

7754

7757

;

7758

BNE
INC
B8R
BEQ

198
19§

ROR
BLO

RO
7s

001037
104455

BNE
TRAP

124

WORD

010526

026052

INC
P

TRAP

020504

WORD

.WORD

;n
5
124

006506

MOV

MRD.19,~(SP)

16735 060342

012746

006544

MOV

MRD.23.-(sP)

16738
060356
16739 060
16740 060
16741 060
16742 060376

012746
012746
012746
012746
010600

007454
006530
006120
000010

MOV
MOV
MOV
MOV
MOV

16736 oeoy.g
16737 %335

16743 060400

12746 006426
12746 006374

104414

MOV

MOV
MOV

TRAP

:
:

7740

7736

SYNC

DUMPER

012746

16734 ooossg 012746 007774

7738

7740

006000
103615

104467

7737

: RESULT,»

17§
R3
R3,#160
12§

000160

* NIB.PIR,*
: BG.PAT,*

12(SP) .R2

BLE
INC
P
BLE

208:

: NIB.PTR,*

-($P)
PC.BLSGT2

#6,SP

000010

198:

TOPS

PA:<

ADD

005201
020127

000006

SEQ 0359

#FNC.S,=(SP)

ARD.12.-(SP)
MNRD
.9, ~(SP)

#PHR.4 - (SP)
MRD .22 ,~(SP)
#SEV.FMT -(SP)
#10,~(SP$
SP.RO
14

; SP,x

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

16745

?3;23 060402 016
133172
16749 060406 10422?

16750 060410
16751
1

16756
16757 0604

1046444
0627%3

1
2
4

16758 0604

16759 0604
16760 060440

16761 0604hh

16762
060450
16763
060454
16764 060460

16765 060464
16766 060470
16767 060474

16768 060476

16769 060500
16770 060504
;g;;; 060510

005716
003430
104455

. 0001
106

024052

006506
007774

0127646
012746
012746

006426
006374
007454

104414

16791 060520
16792 060522
12;32 060524

16796

B8R
TST
BLE
TRAP

223
(SP)
228
55

.WORD

012746 006544

062706
062706
000207

ML.LUN,RO
51

LWORD
.WORD

012746
012746

012746
0127646
010600

MOV
TRAP
T
ADD

21s:

000020
000010

MNRD.12,-(SP)
MNRD.9,~(SP)
#MPHR.
4 ,~(SP)

TRAP

228:

ADD
ADD
RTS

133::
1$:

JSR
TRAP
ROR
8LO
RTS

; Routine Size:

7764

7767

7768

ASIX.FMT ,-(SP)
#7,-(SP)
.

SP"

#20,SP
#0,SP
PC

255 words
; Maximum stack depth per invocation:

176776

7756
7754

MRD
.28 ,-(5P)

: Routine Size:

004767
104466
006000
103773
000207

* SUM.BAD

DUMPER

MOV
MOV
MOV

TOPS
PA:<

7759

125
INTER

MARD.19,-(SP)
#FNC.5,-(SP)

MOV
MOV
MOV

22-Dec-19 80 09:24 : 31
22-Dec-19 80 09:21 :22

4
#22,SP

MOV
MOV

MOV

006100
000007

16774

16779
16780
16784
16788 060512
16789 060512
16790 060516

000022

16773

16795

SEQ 0360

H, ¥4

16746

1675
1675
16754
16755

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

7766
7647

19 words

PC,8$T33
66
RO
1$
PC
6 words

; Maximum stack depth per invocation:

7769

0 words

CZMLABO ML-11 LOG IC TEST
MISCELLANEOUS COD ING SEFTION
16805
16806
16807 ;

7772

MACRO M1113

! <BLF/PAGE>

22-DEC~80 12:16

K_12
PAGE 374

SEQ 0361

M fAwWs

A
& A

4L5 &

b A4S

MACRO M1113 22-DEC-B0 12:16 PAGE &75

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

16809 ;M4
16810 ;
16811
1681§ :

22-Dec~1980 09:24:31
22-Dec-1980 09:21:22
777’3
7774
7775
7776
7777
7778
79
7780
7781
773%

!
!
BGNTST;

7784
7785
7786
7787
7788

!
!
!
!
!

TEST THE CONTINUITY OF THE
SYNCHRONOUS MODULE WRITE PATH
DATA BUS BY:

;
:
;

7798
7799
7800

7801
7802
7803

!
!
!
!
!
!
!
!
!
!
!

INTO THE GOOD BLOCK.

7790
7791
792
7793
77946
7795
7796
7797

7804
7805
7806
7807
7808
7809
7810
7811
781%

!
!
!
!
!
!
!
!
!

7814
7815
7816
7817
7818
7819
7820

!
!
!
!
!=—

16813
;
16814 ;
16815 ;
16816 ;
16817 ;
16818 ;
16819 ;
16820 ;
16821 ;

12333 :

16828 ;

7789

1
16824
16825
16826
16827

:
;
;
:
;

16829
16830
16831
16832
16833
1683
16835
16836

;
;
;

;
;

16837 :
;

16838
16839
16840
16841
16842
16843
16844
16845
16846
16847
16848
16849
16850
16851

;
;
;
;
;
;
;
;
;

16853
16854
16855
16856
16857
16858
16859

:
;
;
;
;
;
;

16852 :

781

16860 ;

7821

16861 ;

16862 ;

16863 :

SEQ 0362

‘'+¢
! TEST NUMBER:
TST 34
!
! TEST NAME:
SYNC DATA BUS CONTINUITY TEST (WRITE PATH)
!
! TEST DESCRIPTION:

!
!
!

VIA MBUS WRITE FUNCTION
WRITE A ZEROES PATTERN INTO
THE GOOD BLOCK.

VIA DAT_DM MODE READ GOOD
NIBBLES IN THE GOOD BLOCK FOR

JEROES.

REPEAT WITH COMPL IMENT
DATA AND BACKGROUND PATTERNS.

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
FUNCTION ARE FOUND.

Llocal

DODU_FLG,

7822

8G_PAT,

7824

TST_PAT;

7823

VIA DAY DM MODE WRITE A

BACKGROOND PATTERN OF ONES

RESWLT,

'DROP UNIT FLAG

!BACKGROUND PATTERN
'RESULTS FROM XOR

iTEST PATTERN

TOPS=-20 Bliss~1 é v2(212)
PA : KNEALE>BL3IML 4. BL1.2 (84)

CIMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEQUS CODING SECTION

;
;
;
;
:
;
;
;

SEQ 0363

25-0«-1980
09:24:31

}68668667 :

22-Dec=1980 09:21:22

7826
73%7
7828
;ggg
7831
7832

DODU FLG
= ZERO;
8G_PXT
= ZEROES;
T1SY PAT
= ONES;

'8G PAT EQL 0'S
'TST PAT EQL 1°'S

incr WICE from 0 to 1 do

'REPEAT LOOP TWICE

TOPS-20 Bliss=16 v2(212)

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

16876 :

7833

CLR

16878 ;
16879 ;

7835
7836

FlD
MLE2

16881 ;

7838

MLCSY
= write;

DAT_DM_ XFER ()'

ISET UP A DATA DIAG XFERR AT THE GOOD BLX

16883 ;
16884 ;

7840
7841

incr w CNT from 0 to 127 do
EA

'LOAD BLOCK WITH BG PAT

16877 :

16880 :
b

M 12
PAGE 376

16865 :MLé4
16868
16869
16870
16871
16872
16873
16874
16875

-—d

22-DEC-80 12:16

16882 ;

7834

7837
7839

écPAT;

'LOAD DATA DIAG REG WITH BG PAT

.BG
PAT'
= .BG PAT'

'DO A WRITE FUNCTION

16885

7842

16887 ;

7844

16889 :
16890 ;
16891 ;
16892 ;

7846
7847
7848
7849

CLR_MBUS;
BAI = Of
10_BUF = TST_PAT;
GD &KXFER (3;

7851

TIME OUT L(IP

16886 ;

16888

7843
7845

16893 ;

7850

16895 :
16896 ;
16897 ;
16898 :

7852
7853
7854
7855

16901 ;

7858

1689 ;

16899 :
16900 ;

7856
7857

DELAY (ONE US);

DAT_CLK
= ONE;

end;

!SET ON FIRST 10 BUF ADRS
!FIRST 10_BUF WORD EQL'S TST _PAT
!SET UP A"GOOD BLOCK XFERR

MLEST
= write;

'DO A WRITE FUNCTION

CLR
DAT_DM_XFER QO:
MLCST1
= read:
DELAY (ONE US)

ISET U~ A DATA DIAG XFERR AT SAME BLOCK
'DO A READ FUNCTION

incr WD _CNT from 0 to 112 do

'READ 113 LONG WORDS

16902 :
16903 :

7859
7860

PO _TEMP = .PlPD:
DAY (LK
=

!GET THE PROM DATA
'CLOCK OUT THE DATA WORD

16905 ;

7862

RD_LNG_WRD?

IREAD THE DATA WORD

]'gggg :

;é‘lég

incr NIB_PTR from 0 to 8 do

'LOOK AT 9 NIBBLES

16909 ;
16910 ;
16911 ;
]'ggg s

7866
7867
7868
773%9)

16914 ;

7871

16904 :

16906

16915 ;
16916 ;
16917 ;
16918

16919

7861

7863

7872
7873
7874
7875

7876

DELAY (ONE usS

it .PD_TEMP (.NIB_PTR] IS _NOT_SET
'FIND GOOD NIBBLES
then
begin
XOR_LNG_WRD (.NIB_PTR, .TST_PAT, RESULT);
!XOR NIBBLE DATA WITH TST_PAT
if .RESULT<0, 4> neq ZERO

then

ISEE IF EQUAL

bsap
'ERROR IF NEQ
F (86, SYNC, DUMPER);
PRINTB (FIV FMT, WRD 24, WRD 25, WRD 10, WRD_12, FNC_5);
PRINTB (FMTZS, _TST_PAT. .RESuLf., .NIB_PTR)

7877
7878

16927 ;
}ggzs :

7880
7881

16931 :

7884

16933

7886

16935 :
16936 16937 :
16938 ;
16939 :

7888
7889
7890
7891
7892

then

7894
7895

BG PAT
= not .BG PAT;
TSY _PAT = not IST PAT

6926 :

16950

16932

16934 :

16940 *
16941 ;
16942 ;

w000

16943 *

}g&g :

16953 060526
16954 060532

e
7885

7887

7893

7896

7897

004167
024646

123364

000040

16962

042705

177770

16965 060600
16966 060606
16967 060610
16968 0606146
16969 060620

133020

000007
132414

010177 132540
010177 132544
010177 132520
004767 133342
012777 000061

16970
16971

005003
012704 000001

16974 060642

001404

16972 060634 007411
16973 060636 016705

'AND EXITS TEST

begi
poBU
(. ML_LUN);
DOCLN;
end;

$T34:

121254

JSR
TM

CLR
CLR

77777

005046
104402
152777
142777
150577

!DROP THIS UNIT IF DODU IS_SET

!COMPLIMENT BG_PAT

!COMPLIMENT TST_PAT AND REPEAT

end:

ENDTST:

16961 060556 016705

end

ENDSUB;
if .DODU_FLG IS_SET

7898

005046
005001

TOPS=20 Bliss=16 Vv2(212)
PA:<NEALE>BL3IML4.BLI.2 (84)

enda;

060544
16959 060546
16960 060550
1
060566
16964 060576

SEQ 0364

DODU_FLG = ONE;
end

7879

16957 060540 012702

060562

N_12
PAGE 377

22-Dec~1980 09:24 : 3
22-Dec~1980 09:21 :22

16924 :
16925 :

16955 060534
16956 060536

22-DEC-B0 12:16

MOV
132436

18:

CLR
TRAP
BISB

MOV
BIC

132420

BICB
BISB

MOV
MOV
MOV
JSR
MOV

132326

28:

3s:

R1.$SAVES
-($P),~(SP)

-(SP)
R1

#~1.R2

-(SP)
2
#40,aM .REG+40

DODU.FLG
B8G.PAT
*, TST.PAT
TWICE

ML. DUT RS
077770

#7.aML.REGH0
RS.aML.REG+40

R1,aML .REG+170
R1.aML .REG*
R1.aML .REG+160
PC.DAT.DM.XFER
#61.am .REG

CLR
MOV

R3
#1 R4

BEQ

BEQ
MOV

7N
R

2 OWWWINGGG%

16921 ;ML
16922 :
1692

16944 -

MACRO M1113

MISCELLANEOUS CODING SECTION

CZMABO ML-11 LOGIC TEST

6
LSDLY.RS

BG.PAT,»
BG.PAT,»
WD.CNT

~, SSTMP2
*, SSTMP

782
782

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

CZMLABO ML -1 LOGIC TES
MISCELLANEOUS CODING SE

68$:

ONVONINLON

ZLXIX23 282
JRRIPN RERCRERSRRR
NS

b
b
-

=S\
S

511?

132346

ON 2NN

132260

#10, M .REG+40
R2.10.80f

7843
7840

784

579976 RS

#7.a
. REG+40
RS @M .REG+40

PC.GD.BLK.XFER

7%:

261,
3
.REG
%‘l.REG*S

#40,

TST.PAT
,»

.REG+40

077770 RS
A
N7
. REG+40
,

132210

RS .M. .REG+40

Ps DAT .DM. XFER

#7§ L .REG
” Ré
11$

132132

v, $S$TMP2

LSgLY,RS

7853
7854
7855

*, $$TMP1
3 1 it
$STMP1
$STMP2

132324
000020
000001

132036
132204

@M .REG+230.PD.
TEMP
z;ofi‘n.necnzo
138:

121014

A2 AR

-y

=g N R

—

138

133146

Mm??

132272

132202

WwD.(NT
WD.CNT,»

#60, @ .REG+40
T.RS

132226

b
b b

000007
1 322?6

121062

- A\

132310

$S$TMP?

38
Ego.fl.REG“IZO

132406

$STMP
$STMPY

000020

TOPS
PA: <

®e ®o

58:

0000
000001

-—b

&~
N

=)
V2
UeY. RNT. NV P JV

R R R BE R R R RRRRRRRR ZEEZ
RRSZRLSRI
N SRITEERREFERRZSE R 8%
BB

e e

SIIIIIINY

D ad el e

)

D i

D cnd e

D e

D el

d ih

)

D o

et 3333333333 CEELEEREED :

16998 0607

22-Dec-1980 09:

000177

b e

SEQ 0365

JMLé

1697

—d

148:
15%:

130024
130020
130014

168%:

168

LSDLY,RS
158
6(SP)
RS
148

7857
7859

v, $STMP2

7861

*, $STMPI

$STMP
$STMP1

138
ML .REG+170,D1.TEMP

&ML .REG*
%‘..REG*

WD.CNT

.Ds.TEH’
.TEMP
4

$STMP?2

NIB.PTR

7864

CZMLABO ML-11 LOGIC TEST

SEQ 0366

sMLG

TOPS
PA:
<

7866

~
o

) i
)

- etd

d ad

NIB.PTR,*

: 31
:22

013120
R4 .~(SP)

NIB.PTR,*

R&,~(SP)
R2.=-(SP)

NIB.PIR,*
TST.PAT,*

SP, (SP)

RESULT,*

0;3.12(sp>

* RESULT

#177770, (SP)
»,-(sPS

177770
000001
121736
000010

#12,-(SP)

135412
000017

PC XOR.LNG.WRD

000012

D and i

000012

22-Dec-1980
22-Dec~-1980

17%:

FRENS FEREE RN S Ro R IFRBFVSER

) ced el

FRXXRZERRRREXERRERERRERERRZRERZRZERERXERIRREREEXERERE

7869

7871

7874

)

]

=de

"«

&
Y

NIEERTEL R

b cnd
)

SP,

NIB.PTR
NIB.PTR,w

7864

000160

WD.CNT
WD.CNT

7857

b
—b

000010

) wnh

7877
7873

b and sd

000036

7876

d ud cnd

D wd

004430
000004
000001
000026
000006

SP"
NIB.PIR,
RESILT,
*
TST.PAT,+

000030

b
b

—d
b

D e

wd cad

I <<

7875

*,DODU.FLG

9
P

—t md b e

D cnd cd e

d D cd

N S e

) D wd D D d

D D D e

D ad

D and D d pud D and wd b cad

S PR SRR T S S St

o cad o

3333
s

MISCELLANEOUS CODING SECTION

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

MISCELLANEOUS CODING SECTION

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

17088
17089

17090
17091 061376
1709§ 061400
17093 061404

17096 061412
17095 061414
17096 061
17097 061422
17098 061426
17099 0614
17100 0614
17101 0614%
17102 0614

17103 061440
;;118;. 061444

JMLG
:
10300;
000167
856627
1004
016700
1046451
104444
005101
005102
005216

021627
003760
062706
000207

1771«2
000002

000001

228:

000001
000010

22-Dec-1980
22-Dec-1980
BHIS
JMP
0,

BNE
MOV
TRAP
TRAP
coM
coM
INC
v, 4
BLE
ADD
RTS

218
18
2(SP) .M

004767
104466
006000
103773

177054

000207

T34::
18:

JSR
TRAP
ROR
8LO

RTS

; Routine Size:

17129

!'<BLF/PAGE>

; BG.PAT
; TST.PAT
. TWICE

;

TOPS

PA:<

7886

TWICE,»

7894
7895

7830
777N

24 words

PC.$734
66
RO
18

7896

6 words

DODU.FLG,*

: 31

:22

7890

#10,SP
PC

; Maximum stack depth per invocation:
7899

22%
ML.LUN.RO
51
(YA
R1
R2
(SP)
(<P) M
2U8

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

17128

17134
17135
17136 ;

208:
21$:

132160

17106
};}%

17113
17117
17121 061446
17122 061446
17123 061452
17126 061454
17125 06146456
]'ggg 061460

SEQ 0367

CZMABO ML-11 LOGIC TEST

0 words

CZM_ABO ML-11 LOG

IC TEST

MISCELLANEOUS CODING SE CTION

MACRO M1113 22-DEC~B0 12:16 PAGE 581

17138 M4

22-Dec=1980 09:24:31

};1128:
17141
1714%
1713
171464
17145
17166
17147
17148
17149
17150
17151
17152

SEQ 0348
22-Dec~-1980 09:21:22

;
K
;
;
;
;
;
;
;
:
;
:;

7900
7901
790
7903
7904
7905
7906
7907
7908
7909
7910
7911

!
BGNTST;

VIA MBUS WRITE FUNCTION WR:TE ONES INTO THE GOOD BLOCK.

m;g :

773%

;

VIA MBUS READ FUNCTION READ THE GOOD BLOCK FOR ONES.

17157
17158
17159
17160
17161
17162
17163
17164
17165

7916
7917
7918
7919
7920
7921
7922
7923
7924

!
!
!

REPEAT WITH COMPLIMENT DATA PATTERN.

Local

7928
7929

DODU FLG
= ZERO;

}gg :

;
;
;
;
;
;
;
;
;

773}

17166 ;
17167 :
17168 ;

7925
7926
7927

177 ;
17172 ;

7930
7931

17169 ;
17170 :

17173 :
17174 ;

17175 ;
17176 :
17177 :
17178 ;
17179 ;
17180 ;
17181 ;

17182 ;
17183 ;
17184 ;

17185 ;

17186 ;

17187 ;

7932
7933

7934
7935
7936
7937
7938
7939
7940

7941
794
794
7944

7945

7946

TOPS-20 Bliss=-16 v2(212)

PA:<NEALE>BL3MLL.BLI.2 (85)

!++
! TEST NUMBER:
TST 35
!
! TEST NAME:
SYNC DATA BUS CONIINUITY /READ PATH
!
! TEST DESCRIPTION:
!
TEST THE CONITNUITY OF THE SYNCHRONOUS MODULE READ
!
DATA BUS BY:
!

IMPLICIT INPUTS:
10 BUF
A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE
!
FUNCTION ARE FOUND.
'—

!
!

DODU_FLG,
TST _PAT,
BG_PAT;

'DROP UNIT FLAG
'TEST PATTERN
'BACKGROUND PATTERN

TST PAr ONES;
BG_PAT = ZEROES;
incr TWICE from 0 to 1 do

begi
CLR_MBUS,
BAl = oré
10_BUF
= _TST_PAT;
GD_BLK_XFER (J;
MLCST = write;
TIME_OUT_LOOP;

'REPEAT LOOP TWICE

'SET ON FIRST 10 BUF ADRS

'FIRST JO_BUF ADRS GET TST PAT
!SET UP A~ GOOD BLOCK XFERR
'DO A WRITE FUNCTION (WRITES THE TST_PAD)

BansOB;
~
CLR_MBUS;

incr JO_CNT from 0 to 255 do

!LOAD 10_BUF WITH BG PAT

10_BUF [.JO_CNT] = .BG_PAT;

17188 ;
17189 ;
17190 ;

7947
7948
7949

GD_BLK_XFER ();
MLTST = read;
TIME_OUT_LOOP;

!SET UP A GOOD BLOCK XFERR
!DO A READ FUNCTION (READ THE TST PAT)

17192 ;

7951

incr 10_CNT from 0 to 255 do

'READ THE I0_BUF FOR TEST PATTERN

17191

;

7950

CZMLABO ML-11 L 0Gl C TEST
MISCELLANEOUS C 00l NG SE CTION

MACRO M1113

F 13
PAGE 382

22-DEC-80 12:16

17196 .14

D D

) b

YYYYY

PREERER 88883

22-Dec~-1980 09:24 3
22-Dec-1980 09:21 122
it .10_BUF [.IO_CNT] neq .TST_PAT

D d D o

then

d e
D D

ENDSUB;
it .DODU_FLG IS_SET
th en

D wd

D e

DOCLN;
end;

B PAT = noct BL PRI

!COMPLIMENT TST_PAT

'COMPLIMENT BG_PAT AND REPEAT

end;

ENDTST;

000007
131464

131470

$735:

177777

5588
-

b wmd D d D d o

!DROP THIS UNIT IF DODU_FLG IS SET

Sog" (.ML_LUN);

131506

D ad D d b e wnd

'ERROR AND SET DODU_FLG IF NEQ

SYNC. DUMPER):

DODU_FLG
= ONE;

000040

7237 0615%46

) b ed e

7238 0615
7239 061536
7240 061542
72641 061546

724§ 061554

d e

D e

7245 061560
7264 061562
7245 061564
7246 061572
7247 061576

—

!SEE IF IO_BUF WORD EQLS TST PAT

end;

061500
7234 061506
7235 061512
7236 061516

TOPS-20 Bliss~-16 2 212
PA: <NEALE>BLIMLS
.BL

PRINTB (SEV_FMT. WRD 24, WRD_25, WRD 10, WRD 12, WRD 23, FNC_6, WRD 19);
PRINTB (FMTTM2, .TST_PAT. .100BUF
(C.I0_CNT], T.TST_PAT xor .I0_BUF C[.I0_CNTI)):

) ) D d e
~

N Vm\l
N AINININ
RMMNMNNRY
83 BRI VBN NVSNN=O 2SS

eRAOF
DF (87,

122430

SEQ 0369

132070

177770

18:

og%w 131456

130036
134314
000061 131400
131444
28:
000040

132004
177770

131422

3s:

JSR

R1,$SAVES

MOV

#~1,R1

MOV

BIC

n..

BI(B
81s8

81s8

n aML.REG+40
aML .REG+40

nb
aML.REG+40

CLR

CLR
CLR
BIS8

MOV
JSR
MOV
TSTB

BPL
TRAP

BISB

MOV
BIC

-(5P)

Ré
RS
#40, n.nee«o

7931
7934

6R3

R1.10.BUF
PC.6D.BLK.XFER
#65, ML
. REG
a@ML.REG+S

#40,aML.REG+40

M_.DUT R3
#177770.R3

TST.PAT,»

7936
7937

793
7940
7941

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

SEQ 0370

17249
17250

};321 061
25

22-Dec-19
22-Dec-19
142777

1;%54 061614
17255 061616
17256 061
17257 061
1;%58 061
17259 061
17260 061

000007
131400

011600

000377
134220
000071
131350

17264 061654
17265 061656
17266 061660
17267 061662
17268 061664
17269 061670
17270 061672
171 061674
172;% 061676
17273
061700
17274 061702
17275 061704
17276 061710
17277 061714
17278 061
17279 061724
17280 061

131404

}7300 0620§2

17301 0620
17302 062034
17303 062036

TOPS

PA:<

4 7,8ML .REG+40

R3, ML .REG+40

R2
R2.R3

;
;

R4 ,10.8UF (R3)
R2
R2 4377
43

;

10.CNT
JO.CNT,»

; BG.PAT,»

;

JO.CNT

JO.CNT,»
7947

#71,3ML .REG
ML .REG+50

011600

7948

;
;

10.CNT
TI0.CNT,»

;

», TST.PAT

7951
7953

7956

;

b b b b b\)

SP,*

; TST.PAT,»

347

— b

ggfgi?:<>
3=k
#2888
3 S3o8a8ar

e Ei
Ik &

17284 061750
17285 061752
17286 061754
17287 061756
17288 061760
17289 061764
17290 061;;g
17291 061
1729§ 061774
17293 061776
17294 062002
17295 062006
17296 062010
17297 06201
17298

3
22

004266

000001
000032
000377

1
#1,32(SP)

#32,5P

R2
R2,A4377

63
67

;

TST.PAT,»

;

TST.PAT,*

;

SP,«

7958

* ,DODU.FLG

7959

10.CNT
=
I0.CNT,

7951

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

17305
17306
17307
}7308 062040

MACRO M1113

;

’

DODU.FLG,*

COM

; TST.PAT
; BG.PAT
TWICE
TWICE,*
.

000001
(SP)
+
PC

17321
17322
17323
17328
17329
17333

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

004767
104466
006000

177356

T3S::

1%:

JSR
TRAP

ROR

103773
000207

B8LO
RTS

: Routine Size:

! BLF /PAGE>

7964

7898

7973

6 words

7971
7972
7933

20 words

PC.8$735
66
RO
18

;. Maximum stack depth per

7976

TOPS
PA:<

7967
8%:

17317 062066
17318 062072
17319 062074
17320 062076

17344
17345
17350
17351
17352

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

131524

9%
3

17343

SEQ 0371

000001

17311 062050
1731; 062054

17340 062106
17341 062110
17342 062112

H 13
PAGE 384

H, ¥

17310 062042

17337 062100
17338 062100
17339 062104

22-DEC~80 12:16

invocation:

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

1%55 :

17354 M4

17356
17357 ;

17358
17359
17360
}7361

17363

;
;
;
:

17364 ;
17365 ;
17366 ;
17367 ;
17368 ;
17369 :
17370
17371 ;
17372 :
17378 .
17374 ;
17375 ;
17376
17377 :
17378 ;
17379 ;
17380 ;
17381 ;
17382 :
17383 .
17384 ;
1738S ;
17386 ;
17387 ;
17388 ;
17389 ;
17390 .
17391
17392 ;
17393 :
17394 ;
17395 .
17396 ;
17397 ;
17398 .
17399 ;

17400 ;
17401 ;

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

7978
7979
7980
7981

;335

7984
7985
7986
7987
7988
7989
7990
7991
799
799
7994
7995
7996
7997
7998
7999
8000
8001
8002
8003
8004
8005
8006
8C07
8008
8009
8010
8011
8012
8013
8014
8015
8016
8017
8018
8019

17402 :
17403 ;

80
8021
8022
8023

17405
17606
17407
17408

8025
8026
8027
8028

17404 ;

;
;
;
;

SEQ 0372

]

BGNTST;
‘44

;

TEST NUMBER:

TST 36

TEST NAME:

RAM BUS ADRS COUNTER TEST /WRITE PATH

TEST DESCRIPTION:

TEST ABILITY OF

THE RAM_BUS ADDRESS

COUNTERS TO LOAD/UNLOAD
THE SK:P

RAM DURING WRITE FUNCTIONS BY:

LOADING A REPEATING COUNT OF 0
TO

INTO THE NIBBLES OF

THE

FIRST 64 WORDS OF THE 10_BUF.

VIA MBUS WRITE FUNCTION WRITE
THE CONTENTS OF THE 10_BUF
INTO THE GOOD BLOCK.
VIA DAT_DM READ GOOD NIBBLES IN

THE GOOD BLOCK FOR THE UNBROKEN

COUNT OF 0 TO 63.

ONCE A BAD NIBBLE IS ENCOUNTERED

%STMT NIBBLE FROM FURTHER

REPEAT READING NIBBLES UNTIL

113 WORDS ARE READ OR ALL 10 NIBBLES

ARE MASKED.

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
FUNCTION ARE FOUND.

8024

local

DODU_FLG,

!DROP UNIT FLAG

TOPS=-20 Bliss=16 v2(212)

PA:<NEALE>BL3MLL .BLI.2 (86)

CZMABO ML-11 LOGIC TEST

- _AV)

MISCELLANEOUS CODING SECTION

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

17410 .ML6
172611
174}1
:;

25-09c-1980 09:24:31
22-Dec-1980
09:21:22

17613 ;
17414 :
17415 :
174616 :
17617 :
17418 :

8029
8030
8031
803
80
80

17621 :

8037

WRD_UNT
= ZERO;

17419 ;
17620 :

8035
8036

WRD_CNT
NIB JGNORE : bitvector [16],
Sme CNT,
PASS CNT,
NIB_PAT;

8038

3828

incr CNT from 0 to 63 do

114252 :

g&}

incr PAT-CNT from -1

17427 :

8043

17433 :
174634 :
17435 :

8049
8050
8051

17428 :
174629 :
17430 :
17631 ;

8052
8053
8054
8055

17441 :
17442 :
17443

8057

17445

8061

17440 :
174644 :

174646 :
17447 :
174648 :

17649 ;

17450 :
17451 :
17452 :
17453 :

17454 ;
17455 ;

17456 :

12457 :

17458 :
17459 :

TIME OUT_LOOP;
CLR_MBUS;

DELAY (QONE_US)

8069

8070
8071

807,
80

8074
8075

17462 ;
17463

8078
8079

8077

8080

!LOAD FIRST NIBBLE IN WORD

'SET UP A GOOD BLOCK XFERR
‘DO A WRITE FUNCTION

888

8076

;

GD_BLK_XFER ();
MLTS1 = write;

BAD_NIB CNT = ZEROES:
DAT DM _RFER ();

17460 ;

17461

BGNSUB;
CLR MBUS;

8059
8060

8066
8067

'LOAD NIBBLES IN WORD WITH REPEATING COUWNTS OF 0-63

(10ZBUF [.WRD_CNTJ)<4, 4> = .PAT_CNT + 2:
'LOAD SECOND NIBBLE IN WORD
(102BUF [.WRD-CNT1)<8 4> = .PAT_CNT + 3:
'LOAD THIRD NIBBLE IN WGRD
uo.eur .uw
c~n><1é 4> = PAT_CNT + &
'LOAD FORTH NIBBLE IN WORD
_c
NT = .WRD_CNT + 1;
'INCREMENT TO NEXT WORD

NIBIGNORE = ZEROES:

8064

to 11 by & do

(18BUF [.WRD_CNT1)<0, 4> = .PAT_CNT + 1;

8056

8065

'WORD COUNT
INIBBLE IGNORE FLAGS
'ERROR FLAG
'BAD NIBBLE COUNT
'PASS COUNT
INIBBLE PATTERN

'LOAD 64 WORDS WITH REPEATING COUNTS Of 0-63

8044
8045
8046
8047

17436 ;
17437 :
17438 :
17439 :

TOPS-20 Bliss=-16 V2( 212

PA: <NEALE>BL3MLG.BLI.2
(

DODU_FLG
= ZERO;

17422 :

11;‘;32 :

SEQ 0373

PASS CNT = ZEROES:
NIB_PAT = ZEROES;

!SET UP A DATA DIAG MODE AT THE GOOD BLOCK

MLCS1 = read;

'DO A READ FUNCTION

'LOOP UNTIL THE BLOCK IS READ OR 9 BAD NI/BBLES FOUND

PD_TEMP = .MLPD:
DAT_CLK = ONE
DELAY (ONE_US);
RD_LNG_WRD:

'READ THE DATA DIAG REGISTERS

incr NIB_PTR from 0 to 8 do

'LOOK AT 9 NIBBLES

begin

if .PD_TEMP [.NIB_PTR] IS_NOT_SET
then
~

'GET THE PROM DATA
'CLOCK OUT THE DATA WORD

'FIND GOOD NIBBLES

begin

if .NIB_IGNORE [.NIB_PTR] IS_NOT_SET
then
begin

'SEE IF THIS NIBBLE FOUND BAD BEFORE

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

K 13

PAGE 387

176466 ;M4

SEQ 0374

23-0«-1980 09:24:31

};“ogg H

22-Dec-1980 09:21:22

TOPS=20 Bliss-16 v2(212)

PA:<KNEALE>BLIMLS .BLI.2 (86)

]‘;2673 M

8081

TST_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG);

17471
17472
17473
17474

;
;
;
;

8083
8084
8085
8086

if .ERR_FLG IS_SET
'!SEE IF TEST FOUND AN ERROR
then
b;gin
!ERROR AND SET DODU_FLG IS SET
ERRDF (88, ARR DAT, DUMPER);

17476 ;

8088

17475 :

8087

172477 ;
17478 ;
17479 ;
17480 ;
17481 ;
17482 ;
17483 ;
17684 ;
17485 ;
17486 ;
17487 ;
17488 ;

8089
8090
8091
8092
8093
8094
8095
8096
8097
8098
8099
8100

17492 ;

8104

17489 ;
17490
172691 :

PRINTB (SIX_FMT, FNC_18, WRD_50, WRD_10, WRD_12, FNC_S, WRD_19);
DODU_FLG = ONE;

end
end
else

end

.
begin
NIB_IGNORE [.NIB_PTR] = ONE:
BAD_NIB_CNT = .BAD_NIB_CNT + 1;
end;

NIB_PAT = _NIB_PAT + 1;

8101
8102
8103

'THIS NIBBLE IS 8AD
ISET THIS NIBBLE NIB_IGNORE FLAG
' INCREMENT BAD NIB COUNT
'INCREMENT NIB PAT

end;

PASS_CNT = _PASS_CNT + 1;

VINCREMENT PASS COUNT

end

‘%;232 :

g}gg

until (.PASS_CNT eql 113) or (.BAD_NIB_CNT eql 9);

17495
17496
17497
17498
17499
17500
17501
17502
17503

8107
8108
8109

ENDSUB:

;
:
:

;
;

;

};28‘8 H

17512 062114
17513 062120
17514 062124
17515 062126
17516 062130
17517 062132
17518 062136
17519 062140

8110
8111
8112
8113
8114
8115

1if .DODU_FLG IS_SET

then

'REPEAT UNTIL COMPLETE

!DROP THIS UNIT IF DODU_FLG SET

ggan

(.ML_LUN);
DOCIN;

end;

8116

ENDTST;

004167
162706
005046
005003
005002
012700
010301

121776
0000V6

$736:

177777

1$:
2$:

006301

'TEST THE NIBBLE IF NEVER FOUND BAD

JSR
SuUB
CLR
CLR
CLR
MoV
MOV
ASL

R1,$SAVES
#6,SP
-(SP)
R3
R2
#-1,R0
R3.R1
R1

:
:
;
;
>
;

7975
DODU.FLG
WRD.CNT
CNT
% PAT.CNT
WRD.CNT,»

8036
8037
8039
8041
8043

CZRABO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION
17521
175
175
17524
175
175
17527
17528
175%8

175

17534

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

142
1
1
06215
123
1

172

011600

#10.BUF
,R1

RO,RS
RS
#177760 RS

177760
000017

RS, (R1)
RO.RS

#2.RS

RS
RS
RS
RS
#177417
RS
#360, (R1)
RS, (R1)
RO.R5
#3.R5
RS

174

176

170377
007400

1755% 062262

007777
170000

};ggg 062 ;g
17558 062%02

};Ssg‘l 062254

17554 062266
17555 062270

17559 062304
17560 062306

g
%

17
17570 062368

17571 062364
175;% 062366
17573
062374
17574 062400
17575 062404

TOPS

¢
PA:

; PAT.CNT,»

#7.(R1S

000002

17535 062200
17536 062202
17537 062206
17538 062212
17539 062214
17540 062216
17541 062222
17542 062224
17543 062230
17544 062234
17545 062236
17546 062240
17547 062244
17548 062246
17549 062250
17550 062252

17564
17565
17566
17567

SEQ 0375

JMLS

175
164
17531 062166

175%%

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

1774617
000360

; PAT.CNT,»

PAT.CNT,»

8045

;

PAT.CNT
=

8046

000004
000013

.
;
;

WRD.CNT
* ,PAT.CNT
PAT.CNT
=

8041

000077

;
;

CNT
CNT,»

000003

#170377
RS
#7400, (R1)

RS, (RY)

000004

131 Sg
177;79
1
133510

000061
130640
3

130670

8050

130652
130574

130620

130602

A ¥

PC.6D.BLK.XFER
osi.anl.nsc
2;L.R£G+s

o s 5e6e40
t1?9976 R2
#7., M.REG+40

8052

8053
8054

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

M3
PAGE 389

SEQ 0376

130576
000004

&
4

4
042

17598 062506

17400 ezsts
17601 063329

1728% 0625
17
0625
17604 0625
17605 062532
17606 062534
17607 062536
17608 062544
17609 062552
17610 062560
17611 062562
17612 062564

131526
000071
000001

17620

17622 eseis
17653

17624
4
17625
17626
17627
17628
17629
17630 062644
17631 062650

PC,DAT.DM.XFER

:71.101L.REG

130512
5$:

000006
7%:

130706
000020
000001

130420
130566

130602
130604
130556

LSOLY,R2

14 ]
6(SP)
R2
68
R1
58
ML .REG+230.PD.
TEMP
#20.aML .REG+120
R

124

117376

126406
126402
126376

NIB. IGNORE
PASS.CNT
NIB.PAT

BAD.NIB.CNT

*, SSTMP?
*, SSTMP1
sSTMP
$STMP1

$STMP2

~, SSTMP2

*, SSTMP1

108:

sSSTMP
$STMP1

118:

$STMP?

128:

138:

72
6

R3
RS

1174642

17613

17615
17616
17617
17618
17619

424

17588
17589
450
17590
454
1759
222
17595 062
17593 062464
1759% 062466
17595 062470
17596
472
17597

17614

R2,aML.REG+40

4($P)

.REG+170,D1.TEMP
-REG+200,D2.
TEMP
-REG+160,E2.TEMP

a1
423

22-Dec-19 80 09:24 : 31
22-Dec-19 80 09:21 :22

3oR3332%
22XRE3

2§RRdRtas

;ML

NIB.PTR
NIB.PTR,*

8071
8074

NIB.IGNORE,*

8074

013120
NIB.PTR,*

177770
000001
120310
000010

177770
000001

R2.-(SP)
R1.~(SP)

#177770,(SP)
”,-(SP§

NIB.PTR,»

8078

16%:

000010
000161
000011
177372

177202

17%:

Sgg&gagf

ERR.FLG,*

8083

b
[4

070010

()

120340

ERR.FLG,*

SP,x

R1.#10
R

R4 4161
1
RS 411

17§

67
188
3s

Ve 0o Be By Sg 0,

177770
000001

8081

8087

=g o2

15%:

P) SP
,TST.LNG.WRD
(SP) .M

148:

nb.-(;m

000026

b nd i

) d d

b e

D nd nd e

b cnd

D cd

: BREES BIIITIRINTITEERERERES

TR RRRRAR
3 R EEPNITS

) d i

) D

) e

SIS
Z29%ay

) D

8
i

NIB.PTR,*
NIB.PAT,*

1 x

000001

)

D ) D

7646
712
7647
7
7648 062
7649 062
7650 062726

133236
000010

R EELLLEEE

d d ad

000010

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

ag.fl

2
4

TOPS

PA:<

) =D

#10,spP

7640

:26:3
:21:2 2

-(SP)
PC,BLSGT2

322TIJIZEIY
3 2288828

120256
000010

200
a23

i
it

b d

SEQ 0377
22-Dec-1980
22-Dec-1980

&2 3332 8%

NNNNNNN SN NN W N N N NN NN N NN NN NN N

N 13
PAGE 390

JMLS

17
17

22-DEC-80 12:16

MACRO M1113

L L L i e

250

MISCELLANEOUS CODING SECTION

b ad cd e

NO RN

) =t

CZMABO ML-11 LOGIC TEST

*,DODU.FLG

NIB.PTR,~

808%
8074
8096

BAD.NIB.CNT

8097

NIB.PAT
NIB.PTR
NIB.PTR,*

8100
807N

PASS
. CNT
PASS.CNT
=

8103
8105

BAD.NIB.CNT,»

CZMABO ML-11 LOGIC

TEST

MISCELLANEOUS CODING SECTION

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

17689

sMLG

};gg?

1769% 822112
1769
116
17694 88150

17695
126
17696 063126
17697 0631
;I;ggg 063134

17717 063142
17718 063144
17719 063146
};77%(1) 063150

021627
001004
016700

104451
104444
062706

000207

000001

17730

188:

130454
000010

19%:

22-Dec=-1980 09:21:22
P
BNE

MOV
TRAP
TRAP
ADD
RTS

(sP) .M
198

ML.LUN,RO
51
44
#10,SP
PC

; Routine Size: 265 words
)
; Maximum stack denth per invocation:

004767

104466
006000
103773
000207

176752

17722
}77;%.;:
17729

22-Dec-1980 09:24:31

17700
17701

17706
17707
17711
17715 063136
17716 063136

SEQ 0378

136::
18:

JSR

TRAP
ROR
B8LO
RTS

8117

!<BLF/PAGE>

PA:q

; DODU.FLG,*

8109

8112

797¢<

8114

21 words

PC,8736

66
RO
1$
PC

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

TOPS

0 words

CZMABO ML-11 LOGI crT 3

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

MISCELLANEOUS CODING SECTION

}773

17737 ;

17738
17739
17740
17761

22-Dec-1980 09:24:31

17735 ;
17736 ;

22-Dec-1980 09:21:22
8118
8119

8130

;
:
:
;

8121
812§
8123
8124

17743
:
17744 :
1774S ;
17746 ;
17747 ;
17748 ;
17749
17750 ;
17751 ;
17752 ;
17753 ;
17754 :
17755 ;
17756 ;
17757 ;
17758 :
17759 :
17760 :
17765 :
17762 :
17763 :
17764 :
17765 :
17766 :
17767 ;
17768 :
17769 :
17770 :
17771 ;
17772 ;
17773 ;
17774 :
17775 :

8126
8127
8128
8129
8130
8131
8132
8133
813
8135
813
8137
8138
8139
8140
8141
8142
8143
8144
8145
8146
8147
8148
8149
8150
8151
8152
8153
8154
8155
8156
8157
8158

17779 :

812§

1774:;’s :

17776
17777 ;
17778 :

17780 :

17781 ;
17782 :

17783
17784
17785
17786

;
;
;
:

SEQ 0379

8125

8159
8160
8161
81

8164
8165

8166
8167
8168
8169

TOPS-20 Bliss-16 Vv2(212)

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

!
!

BGNTST;
144
! TEST NUMBER:
!

! TEST NAME:

TST 37

RAM BUS ADRS COUNTER TEST /READ PATH

!
! TEST DESCRIPTION:
!
!
TEST ABILITY OF RAM/BUS ADRS
!
COUNTERS TO LOAD/UNLOAD THE SK:P
!
RAM DURING READ FUNCTIONS BY:
!
!
1.
LOADING A REPEATING COUNT OF 0
!
T0
INTO THE NIBBLES OF THE
!
FIRST 64 WORDS OF THE I0_BUF.
!
!
2.
VIA MBUS WRITE FUNCTION WRITE
!
THE CONTENTS OF THE 10_BUF
!
INTO THE GOOD BLOCK.
!
!
3.
CLEAR OUT THE 10_BUF
!
!
VIA MBUS READ FUNCTION READ
!
THE GOOD BLOCK FOR THE REPEATING
!
COUNT OF 0 TO 63.
!
! IMPLICIT INPUTS:
!
!
10_BUF
!
!
A VECTOR OF 256 WORDS WHERE
!
DATA FOR MBUS READS AND WRITE
!
FUNCTION ARE FOUND.
!
=

local
DODU_FLG,

'DROP UNIT FLAG

WRD_TNT,
PAT_INC,
SIZTEXP,

'WORD COUNT
'PATTERN INCREMENT
'SIZE EXPRESSION

EMP;

! TEMPORARY STORAGE LOCATION

POS_EXP,

'POSITIONAL EXPRESSION

CLR MBUS:

DODO FLG = ZERO:
WRD_UNT = ZERO;
incr COUNT from 0 to 63 do

'LOAD 64 WORDS WITH REPEATING

COUNTS OF 0-63

CZMLABO ML-11 LOGI C
MISCELLANEOUS CODING
1

CTION

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

17788 .mL4
}7789 :

g?-bec-1980 09:24:31
2-Dec=-1980 09:21:22

17791 ;
'%77;35 :

8170
31;12

17794 :

8173

17797 :

8176

17795 ;
17796 ;

17798 ;
17799 ;

17800 ;
17801 ;

17802
17803
17804
17805

8174
8175

8177
8178

8179
8180

:;
.
:
;

8181
8182
8183
8184

17807 :

8186

17806 ;

SEQ 0380

8185

incrbzA';_CNT from -1

to 11 by 4 do

TOPS-20 Bliss=16 Vv2(212)
FA:<NEALE>BLIMLS.BLI.2 (87)

'LOAD NIBBLES IN WORD WITH REPEATING COUNT OF 0-63

(18_” LWRD_CNT1)<0, 4> = PAT_CNT + 1;

'LOAD FIRST NIBBLE IN WORD

(10_BUF

'LOAD FORTH NIBBLE IN WORD

(10_BUF
(J0_BUF

[.WRD_CNTJ)<4, &> = _PAT_(NT + %:
[.WRD_CNT]))<8, 4> = _PAT CNT + 3;

([.WRD CNTJ)(‘Ié 4> = PAT CNT + &;

WRD_CNT = hRB CNT + 1;
end;

'!LOAD SECOND NIBBLE IN WORD
'LOAD THIRD NIBBLE IN WORD

YINCREMENT TO NEXT WORD

GD_BLK_XFER (),
MLTS!
= write;
TIME QUT_LOOP;
BGNSOB;
~

'SET UP A GOOD BLOCK XFERR

1incr IO _CNT from 0 to 255 do

!CLEAR OUT 10_BUF

'DO A WRITE FUNCTION

10_BUF [.IO_CNT] = ZEROES;

17808 ;

8187

17810 ;
17811 ;

8189
8190

6D BLKXFER Q0.
MLTS1
= read;

!SET UP A GOOD BLOCK XFERR
'DO A READ FUNCTION

:
;
;
;

8193
8194
8195
g}gg

SIZEXP = &;
WRD_(NT = 0;

'FIELD SIZE FOR NIBBLES ALWAYS 4 BITS

incr COUNT from 0 to 63 do

!READ 64 WORDS IN 10_BUF

}7819 :

g}gg

incr PAT CNT from -1

8201

PATINC = ONE;

17809 :

17812 ;
17813 ;

17814
17815
17816
]'77315

8188
8191
8192

17821 ;

8200

}%{ H

g%%

17822 ;

CLR MBUS;

TIME OUT L(XP
CLR_|
:

POgEXP = ZERO;

to 11 by 4 do

'READ REPEATING COUNTS OF 0-63

'FIELD SELECTOR SELECTS THE FOUR NIBBLES

TEMP = .I0_&f C.WRD_CNT];

'GET A WORD OUT OF 10_BUF

incr CNT from 0 to 3 do
begin

'READ THE FOUR NIBBLES IN WORD

17825
17826 ;

8204
8205

17828

8207

it .TEMP<.POS_EXP, .SIZ_EXP> neq (.PAT_CNT + _PAT_INC)

8209

then

17827 ;

8206

17829 :

8208

17831 ;

8210

17830 ;

17832 :
17833 .
17834 ;

8211
8212
8213

17838 ;

8217

17835 .
17836 ;
17837 :

17839 ;

17840 ;
17841 ;
17842 ;

' COMPARE NIB(E WITH RESPECTIVE 0 -63 CNT

b;g

'ERROR AND SET DODU_FLG IF NEQ
DF (89, ARR DAT, DUMPER):
PRINTB (SIX FMT, FNC 18, \flD 50, WRD_10, WRD_12, FNC_6, WRD_19);
DODU_FLG = ONE;

8214
8215
8216

POS_EXP = .POS_EXP + &;

8218

end;

8219
8220

8221

end;

PAT_INC = PAT_INC + 1;

WRD_CNT = WRL_CNT + 1;
end;

'POINT TO THE NEXT NIBBLE IN WORD

' INCREMENT THE 0-63 COUNT

!GET THE NEXT [0_BUF WORD

TEST

CZMLABO ML-11 LOGIC TE
MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC~80 12:16 PAGE §94

17844 MG
}ms :
17847
17848
17849
17850
17851

:
;
;
;

1785% :

22-Dec-1980 09:24:31
22-Dec=1980 09:21:22
822§
8225
8224
g%%s
6

8227

if .DODU_FLG IS_SE!
then

};gg

8232

ENDTST;

17865 063152

004167

120740

17867 063162

152777

000040

1/869 063176

042705

17866 063156

17870 063200
17871 063206

end;

130406

177770

142777
150577

000007
130002

005002
012703

177777

17:3;?_,s 063212 005066
17873 063216
005066
17874 063222
17875 063226

(.ML_LUN);
DOCLN;

162706 000012

17868 063170 016705

17877 063234
17878 063236
17879 063242

062704
010305

011600

1% 063252

142714

000017

063256

905205
042705

150514

17884 063260 010305
17885 063262 062705
17886 063266 006305
17837 063270

17888 063272
17889 063274

177760

000002

006305

150514

17893 063310 010305
178% 063312 062705

17895 063316
1789 063320
17897 063324

000305
042705
042714

130024

JSR

SUB

BISB

28:

000003
170377
007400

#40.aML.REG+40

8163

10(SP)
2(SP)

; DODU.FLG
* WRD.CNT

81
816

2(SP) R4

* WRD.CNT,*

#7.@ML.REG+40
RS.aML.REG+40

#177770.RS

CLR
MOV

R2
#-1,R3

ASL
ADD
MOV

R4
#10.8BUF ,R%
RS

MOV
INC
BIC

RS
#177760 RS

BICB

#17. (R4S

MOV
ADD
ASL

R3.RS
#2.R5
RS

ASL.
AS!.

RS
RS

BISB

8116
;

BICB
BISB

CLR
CLR

1%:

#2,sP

ML .DUT,RS

BIC

130006

R1,$SAVES

MOV

ASL

006305
5

17890 &i%g 0462705 177417
17891
142714 000360
17892 063306

$T37:

000010
000002

17876 oesz%o 016604 000002

17830 063244
17881 063246

!DROP THIS UNIT IF DODU_FLG SET

8228
8229
8230
31

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

ENDSUB:

17853 :
17854 :

178SS ;
17856 ;

SEQ 0381

RS, (R4)

*
;

COUNT
=, PAT.CNT

816
81N

; PAT.CNT,»

: PAT.CNT,*

8174

: PAT.CNT,*

8175

BI(
#1774617
RS
BI(B #360, (R4)
BISB

MOV
ADD)

SwA8
BIC
BIC

RS, (Ré)

R3.RS
#3.RS

RS
#170377
RS
#7400, (R4)

CZMLABO ML-11 LOGIC TES 7

MISCELLANEOUS CODING SECTION

MACRO M1113

17899

SEQ 0382

:MLG

}m79001

22-Dec-1980 09:24:31

330

179o§ 883

1790%
17905
17909

050514

BIS

R3.RS

ASL

062705 000004
000305

005266
062703
020327
003713

000002
000004
000013

17918 063404 020227
17919 063410 003705
17920 063412 004767
17921 063416 012777

000077

17917 063402

m‘g oay.%

063430

17924 ossag

ADD
SWAB

00520

105777

100375

132644
000061

127574

8IS

127530

48:

005003
010304
006304
005064
005203
020327
003770

011600

17933

063466

17934 063470

016704

130112

17935 063476
17936 063502

17937 063
17938 gggn

142777
150477

004767 132350
012777 000071

127434

000040

127460

17943 063540
17944 063544

042706
142777

17777
oooogg

127442

17946 063556
17947 063564

012766
066

000004
000002

17949 063572

012703

177777

17951 063600
17952 063604
17953 063610

012716
0755604
006304

000001
000002

17939
063520
17940 063524
17941 063526

17945063

17945 063552

17948 063570
17950 063576

5$:
000377
000040

042704 177770

105777
100375

016704

150477

001

005005

3s:

000007
127506

127500

13004

1274

127530

2($p)
#6.R3
R3.#13
2

P
BLE
JSR
MOV

Y 244
18
PC,GD.BLK.XFER
#61.aML . REG

; PAT.CNT,+

8176

: WRD.CNT
w,PAT.CNT
* PAT.CNT,w

8177
8171

8PL

3s
R3
R3.Ré
R
10.BUF (R4)

;

8169

: 10.CNT
* 10.CNT,

8182

8185
8186

R3
R3.#377
53

; 10.CNT
* 10.CNT,»

8185

8186

PC.GD.BLK.XFER
#71 .M REG

:
:

8189
8150

BISB

#40,aM .REG+40

;

8191

BIC
BICB

2177770
R4
#7.aML.REG+40

MOV
CLR

#4.6(SP)
2($P)

: %, SIZ.EXP
: WRD.CNT

8193
8194

MOV

#-1.R3

¢ = PAT.CNT

MOV
MOV
ASL

#1,(SP)
2(5P) R4
R4

* ,PAT.INC
: WRD.CNT,*

TSTB

TRAP

CLR
MOV
ASL
CLR
INC
P
BLE

BIC

8s:

#40,3aML.REG+40

ML.DUT

017%6.;:4.

#7.aML_.REG+40
Ré.aML.REG+40

TSTB
8PL

aML_REG+S0
63

JSR
MOV

BISB

78:

@ML.REG+S0

BICB
BISB

MOV

000006

COUNT

8180
8181

MOV

68:

: COUNT,»
:
:

BISB

127512

RS, (R4)

INC
ADD
cTMP
BLE
INC

104402

152777

#4.RS
R

TOPS

PA: <

R
3‘:’%
2;777 RS
BIC
#170000. (R4)

17925 063434
17926 063436
17927 063440
17928 063442
17929 063446
17930 063450
17931 063454
mg 063456

RS, (R&)

MOV

17‘915063338 050514

17913 063
17914 063370
17915 063374
17976 063400

22=-Dec~1980 09:21:22

010305

0e
}7910 3§° 04 7o§ 007777
17911 82%52 045714 170000

17923

F 14
PAGE 395

22-DEC-80 12:16

CLR

ML, DUT R4

R4.aML.REG+40

: COUNT

8196

: POS.EXP

8200

8198

8201
8202

R
O LS S L SR AR SRRSRRNRNRY

wm
mwm

sfi

(7.)

?
mg

N
d

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

SEQ 0383

JMLG
011600

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

000004

9%:

MOV

000012

(R4) ,4(SP)
10.BUF
R2
4(SP) ,~(SP)
R3,<(SP)
1%(SP).°(SP)

117154
000010

«, TEMP
CNT
TEMP, +

POS.EXP,*

TOPS
PA:<

8204

8207

SIZ.EXP.+

PAT.CNT,*
PAT.INC,*

8211

8212

2
—O

82SA2SK

purd

(=]

SN§§§SR
S
:REFLEI3SE

#SIX.FMT ,~(SP)

#7,-(SP)

SP.RO
14

000030
108:

ADD

000003

000010

#4 RS
(SP)
R2

PAT. INC

2(SP)

R3.#13
8s

R1.477
73
67
RO
43
10(sP) .m
118
ML.LUN.RO
51

000001

127546

000012

*,DODU.FLG

#4 ,R3

000077

118:

ADD

; Routine Size:

SP,»

#1,30(SP)

#20,sP
R2. A3
9%

000002
000004
000013

b
b d
—d
D e
D o
)
D ced
) e
D wd
D
b o
D d
D
D
d
D
D d
e e
e
D e
D
i
d D d
D e
b ol
e
e e
b e e
o
e e

[

T
CTION

44
#2,SP
PC

221 words

* ,POS.EXP

CNT
CNT,»

WRD.CNT
* PAT.CNT
PAT.CNT
,»

COUNT
COUNT,»

8196

8221
DODU.FLG,
*

8225
8228

8116

E
{a)

IMABO M_-11 LOGIC TEST
ISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H 14
PAGE 397

18011
}gg}%

H, ¥A
:

}&0)}3

; Maximum stack depth per invocation:

18020
18024
18028 064044

18029 064044
18030 064NS0
18031 064052
18032 064054
18033 0640
18034

C04767
104466
00600y
103773
000207

177702

18035

18042

18:

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

JSR
TRAP
ROR
BLO
RTS

;. Routine Size:

1%(()){.’:?

18043

137::

6 words

!'<BLF/PAGE>

TOPS
PA: <

19 words

PC,.$737
)
RO
13
PC

; Maximum stack depth per invocation:

8233

SEQ 0384

0 words

8230

—

CIM ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

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

18045 ;M4
}80‘80467 :
18048 ;
18049

18050 :

22-Dec-1980 09:24:31
22-Dec-1980 09:21:22
8234
8235

8236

!
!

BGNTST;

18051
1805%
18053
18054

;
:
;
;

}gggg :

32221

; TEST NAME:

18057
18058
18059
18060
18061
18062
18063
18064
18065
18066
18067
18068
18069
18070
18071
18072

;
;
;
:
;
:
;
;
;
:
;
;
:
;
;
;

8243
8244
8245
8246
8247
8248
8249
8250
8251
8252
8253
8254
8255
8256
8257
8258

!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!

18074 :

8260

18073 :

18075 :

18076
18077
18078
18079
18080
18081
18082
18083

:
:
;
:;
:
;
:
;

18084 ;
18085 ;

18086 :

18087 ;
18088 :
18089 :

18090
18091
18092
18093
1809
18095
18096

:
:
:
:
:
:
:

18097 :

18098 :
18099 :

SEQ 0385

8237
8238
8239
8240

8259

8261

8262
8263
8264
8265
8266
8267
8268
8269

8270
8271

82
8274
8275

!'++
! TEST NUMBER:
!

SYNC DATA BUS BIT UNIQUENESS TEST/WRITE PATH

TEST DESCRIPTION:
TEST SYNCHRONOUS DATA BUS FOR
DATA BIT UNIQUENESS BY:
1.

LOADING THE FIRST 16 WORDS IN
THE O BUF WITH A SHIFTING
Z2ERO IR A FIELD OF ONES PATTERN.

VIA MBUS WRITE FUNCTION WRITE
SHIFTING PATTERN THROUGH THE
DATA BUS AND INTO THE GOOD
BLOCK.

VIA DAT_DM MODE READ THE
GOOD BLOCK AND SAVE ALL GOOD

NIBBLE DATA, IN THEIR PROPER

STRUCTURE.

!
!
!
!
!
!
!
!

!
!

!
!
!

8276
8277
8278
8279
8280
8281
823%

!
!
!
!
!
!
!

8284
8285

!
!

TST 38

SEQUENCE,

INTO A STACK

INTERRIGATE STACK STRUCTURE FOR
SHIFTED DATA PATTERN.

IMPLICIT INPUTS:

PD TEMP
A BIT VECTOR OF 16 BITS WHERE
THE READ PROM DATA [S 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 Bliss=16 v2(212)
PA: CNEALE>BL3MLS.BLI.2 (88)

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

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
18101

‘}g}O

;M6

22-Dec-1980 09:24:31

18104 ;
18105 ;

18106 :

22-Dec-1980 09:21:22
8286
8287

8288

18107 ;

8289

18109 ;
18110 :
18111 ;
18112
18113 ;
183116 ;

8291
829
829
829
8295
8296

18108 ;

18115 ;
18116 ;
18117 ;

18118 ;

131123 :
18121

;

g}g

8306
8308
8309

8320

8325

18145 :

8327

18148 ;
18149 :

8330
8331

18153

}g}glso :

GD_BLK_XFER ();

ISET UP A GOOD BLOCK XFERR

MLTST = write;
TIME_OUT_LOOP;
STRIPPERTM (21, 8);

'WRITE SHIFTING PATTERN THROUGH SYNC BUS
'CALL _ROUTINE TO STRIP OUT BAD NIBBLE DATA FROM ARRAY WORDS

'READ 4 GROUPS OF 4 WORDS

18143 ;

18152 :

TST_PAT = .TST_PATAONE;

incr BY_FOUR_WRDS from 0 to 3 do

8319

8322
8324

8326

8328
833%
833

8334

8335

8336

8337

1°S.

end;

8318

832

18150 ;
18151 ;

beyin
10 BUF [.CNT] = not .TST_PAT;

'RESET THE STACK POINTER
!SHIFTING NIBBLE PAT OF 1 IN FIELD OF 0°'S
'READ NO *17° NIBBLE PATTERN ON FIRST PASS

18141 :

}g}zg :

DODD FLG = ZERO;

STK_PTR = -1;
NIB_BIT = ONE;
ALL_ONES_1 = ZERO;

8321

18144 ;

INIBBLE PATTERN
'TEST PATTERN
'HOW MANY °*17° NIBBLE PATTERN POSITION TD READ
'HOW MANY °*17°' NIBBLE PATTERN POSITION TO READ
!STACK POINTER
| COUNTER

8313
8314
8315

18139 ;

18142 ;

'DROP UNIT FLAG

NIB_BIT,
TST_PAT,
ALLCONES_1,
ALL”ONES”2
STK"PTR,
COURT;

'WRITE 16 WORDS WITH SHIFTING O IN FIELD OF

}ggds. :

18140 ;

'STORES THE SHIFTED BIT PATTERN

FLG,

incr CNT from 0 to 15 do

8303

8310
8311
8312

18138 ;

SAV NIB,

'ONE IN A FIELD OF ZEROES

18128 ;
18129 :
18130 ;

18137 ;

local

TST_PAT = ONE;

8307

18136 ;

!'—

8300

18125

18131 :
18132 ;
18133 ;

PA:<NEALE>BL3ML4.BL].2 (88)

BGNSUB;
(LR _MBUS:

8304
8305

18126 ;
18127 ;

T0PS-20 Bliss-16 v2(212)

8297
8298
8299

18122 ;
18123 ;

18124 ;

SEQ 0386

ALL_OWES_2 = 3;

'READ THREE *17°' NIBBLE PATTERN ON FIRST PASS

begin

incr BY ONE_WRD from 0 to 3 do

bg&?n

!READ & GROUPS OF 1 WORD

COUNT = ZERO;

'CLEAR COUNT

until .COUNT eql .ALL_ONES_1 do

'READ X NUMBER OF °17°' NIBBLE PAT

bwn

= COUNT + 1;

STK_PTR = ,STK_PTR + 1;

! INCREMENT COUNT

' INCREMENT STACK POINTER

it (.stack [.STK_PTR]) neq %o'000017'
then
bzgin
ERRDF (90,

SYNC, DUMPER);

PRINTB (SIX_FMT, WRD_23, WRD_39,

!COMPARE STACK WITH *17°

!ERROR AND SET DODU_FLG IF NEQ

PHR 4, WRD 12, FNC_S, WRD_19);

PRINTB (FMTZ5, ONES, .stack [.Sfk_PTR], .STR_PTR);

DODU_FLG = ONE;

end;

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEQUS CODING SECTION

22-DEC-80 12:16

K 14
PAGE 400

18157 :mL4
}g}gg :
18160 :

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

18161 ;

8339

18163 :
}g}gg :

8341
&

18162 ;

18166 ;

18167 ;

STK_PTR = ,STK_PTR
+ 1;
'INCREMNT THE STACK POINTER
SAVONIB = ( nof .NIB_BIT) and (%0'000017%)
'GENERATE THE SHIFTED BIT

8344

if (.stack [.STK_PTR]) neq (.SAV_NIB)

8345

8346
8347
8348
8349
8350
8351

1817S ;

8353

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

end;

8340

18168 ;
18169 ;
18170 ;
18171 ;
18172 :
18173 :

18174 ;

SEQ 0387

then

!'COMPARE STACK TO SHIFTED BIT

b;g
'ERROR AND SET DODU_FLG IF NEQ
DF (91, SYNC, DUMPER):;
PRINTB (sxx FMT, WRD_23, WRD_39, PHR_4, WRD_12, FNC_S, WRD_19);
PRINTB (FMT_15, .STKPTR);
PRINTB (FMT_S, .SAV_RIB, ~stack [.5TK _PTRY);
DODU_FLG
= ONE;

8352

end;”

18176 :

8354

COUNT = ZEROES:;

'CLEAR COUNT

18178 ;

8356

unnl .COUNT eql .ALL_ONES_2 do

'READ X NUMBER OF *17°' NIBBLE PAT

18180 ;

8358

18183 ;

8361

18185 :
18186 ;
18187 ;

8363
8364
8365

18177 ;

18179 ;

}g}g} :

18184 ;

18188 ;
18189 ;

8355

8357

8370
8371

8372
8373

18198 :
18199 ;

8376
8377

18201
18202
18203
18204
18205

;
;
;
;

8379
8380
8381
g%gg

18206
18207 ;
18208
18209 .
18210 ;

8384
8385
8386
8387
8388

18196 ;
18197 :

18200 ;

18211 ;

8374
8375

8378

8389

! INCREMENT STACK POINTER
ICOMPARE STACK POINTER WITH

Rg
'ERROR AND SET DODU_FLG IF SET
ERRDF (92, SYNC, DUMPER):
PRINTB (SIX_FMT, WRD_23, WRD_39, PHR4, WRD 12, ENC_ S. WRD_19);
PRINTB (FMT'S, mfs .stack [.STK _PTR]. .STR_PTR);

DODU_FLG
= DNE;

end;”

8369

18194 ;
18195 :

! INCREMENT COUNT

if (.stack [.STK_PTR]) neq %0'000017’

then

8366
8367

18192 ;
18193 ;

= .COUNT + 1;

STK_PTR= ,STK_PTR + 1;

8362

8368

;

8359

18190 ;
18191

end;

NIB_BIT = .NIB_BIT~ONE;
end;
NIB_BIT
= ONE;

ALL”ONES_1 = .ALL_ONES_1 + 1;
ALL_ONES_2 = .ALL_ONES_2 - 1;
.

'SHIFT THE SHIFTED NIBBLE BIT
'RESET THE SHIFTED NISBLE BIT

'READ ONE MORE '17°' PATTERN
'READ ONE LESS "17° PATTERN

ENDSUB;

if .DODU_F.G IS_SET
then

bsgun

(.ML_LUN);
DOCLN;
end;
ENDTST;

'DROP THIS UNIT IF DODU_FLG SET

°*17°

CZMABO ML-11 LOGIC TEST

A A XL

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~80 12:16

L 14
PAGE 401

18213 ;M4

22-Dec~1980 09:24:31

}g}g ;
18219

22-Dec=1980 09:21:22

18223 064060

004167

18225 0640

1041;9;

120032

18224 064064 162706

000012

18296

1sg

000040

18228 064104

045;9;

177770

1 0641

005001

064132

005004

0640

18227 064100

18229
1

064110
oemg

016705

14
150577

127476

$T38:
127114

18:

JSR

MOV

'1-997 RS

#7.aML.REG+40
RS.aML.RE5+40

1% 064196 012766 000001

000006

MOV

18239 064156
18240 064160

005204
020427

18241 064164 003763
1824§ 064166 004767
18043 064172 012777
18044 064200

18245 064204
18246 064206
18247 064212
18248 064216
18249 064222
1
ouzzi‘\o

105777

100375
012746
012746
004767
012702
012766

000006
011600
000006

CLR

011600

131670
000061

127020

126754

38:

000025
000010
127772
177777
000001 000004
18251 064
000010
18252
064240 012766 000003 000006

005004

18258 064262

005203

18254 064250 882335
18255 064252
3
18256 064.54 020366 000010
18257 064260 001455
18259 064064
18260 064266

ooszo;
126927

18261 064274

001767

000132

1%228

064

18264 064302
18265 064304

18266 064306

012612

104455

010526
02464052

012746

CLR

MOV

48:
5$:
68:

Ré
RG . #17

#61 . aML . REG

8PL
MOV
MOV
JSR
MOV
MOV

3s
#25.~(SP)
#10.-(SP)
PC,STRIPPER
#~1.R2
#1.4(SP)

MOV

#3,6(SP)

aML.REG+S0

10(sP)

8300

P« TST.PAT

8301

* CNT,»

8305

CNT

8303

; TST.PAT,«
; TST.PAT

8306

;
:

8309
8310

;

8312

; =, STK.PTR
* « NIB.BIT
: ALL.ONES.1
* *»,ALL.ONES.2

8313
8314
8315
831

L OCNT
P OCNT,«

: BY.FOUR.WRDS

8303

831

CLR
CLR
P
8EQ

RS
R3
R3,10(SP)
7%

* BY.ONE.WRD
: COUNT
* COUNT.ALL.ONES.1

INC
(MP8

R2
STACK(R2).#17

: STK.PTR
P *(STK.PTR) ,«

8328
8330

;

8333

;

833

BEQ

LWORD

132

TRAP

006506

MOV

INC

000017

8298

Ré

R4 .RS

2s
PC,GD.BLK.XFER

CLR

8296

; DODU.FLG

#1.6(SP)

BLE
JSR

CLR

8232

RS
6(SP) , 10.BUF (RS)
10.BUF (R$)
6(5P)

TSTB

TOPS=-20 Bliss-16 V2(212)

PA:<NEALE>BLIM 6.BLI.2 (88)

#77776.RS

ASL
MOV
comM
ASL
INC
P

000017

;

#40,aML.REG+40

TRAP

BICB
BISB

006305
016665
005165
006366

BISB

BIC

2s:

;

#18,5P

127076

18234 ow& 010405

R1,$SAVES

SuB

000007
127072

18235 064136
18236 064140
18237 064146
18238 064152

SEQ 0388

.WORD
.WORD

MOV

SYNC
DUMPER

MRD.19,~(SP)

: COUNT

8321
8323
8325
8327

18268

R RRERRTRRR R
s
A
e
JIFINI 3

22-Dec-1980 09:24:31
22-Dec=-19 80 09:2 1:22

TOPS
PA:
<

#PHR.
4 .~ (SP)

MRD .39, ~(SP)

MRD .23 ~(SP)

#SIX.FMf,-(SP)

#7,~(SP)

d D e

14
R2.(SP)
-(SP)
STACK(R2) , (SP)
#~1,~(SP)

SP,»
STK.PTR,*

8335

*(STK.PTR)
,»

#Fmt. S, -(sp)

D )

#6,-(SP)

14
#1 R

d b ed b b

D e

#30.,sP

000017
000004

) D D

012612
000014

000014
000014

7$:

63
R2
#17,14(SP)
:6SP).14(SP)

STACK(R2)
,RO
RO,14(SP)
8s
55
133

SP..

+,DODU.FLG
STK.PTR

*,SAV.NIB
NIB.BIT,SAV.NI8

*(STK.PTR)
,»
*,SAV.NIB

833
8332
8325
8341
8342
8344

8347

SYNC

) D e

DUMPER
MRD.
19, ~(SP)
#FNC.S .~ (SP)

8348

MRD.12,~(SP)

wd wd

MPHR.4 ~(SP)

MRD.23.~(SP)

#SIX.FMT,~(SP)

g—‘OOOO-flO

#7.-(SP)
‘RO
14
R2, (SP)
NFMT.15 -(SP)

§ && 2 R2ke
>rond&&aR

#2.,-(SP§

b
—d
b ek

b
d
b
b

340

8318 064542
8319 064546
8320 064552
8321 064556
8322 064562

MRD.39,-(SP)

064502
064506
064512

QOO0
~

e wd b
D ad i

SEQ 0389

#ENC.S,~(SP)

831
064558
8314 0645
8315 064534
8316 822536

D cd e ed )

LR
PAGE 402

MRD.12,-(SP)

831% 822553

8317

22-DEC-80 12:16

4, T

18269

— wd b cnd cnd

_
N=OQOERNON
AW

MISCELLANEOUS ¢

MACRO M1113

CZMLABO ML-11 L

012612
000040
004430

000003

SP,x

STK.PIR,
«

SP.RO

SP,x

STACK (R2) , (SP)

*(STK.PTR)
,«
SAV.NIB,
¢

14
(SP)

40(SP) ,~($P)

NFMT.5.-(SP)
#3,-(5P)

SP.RO

8349

8350

CZMABO ML-11 LOGIC TEST

N 14
PAGE 403

SEa 0390
22-Dec-1Y 80 09:24 : 31
22~-Dec-19 80 09:21 :22

000001

*,DODU.FLG

000032

000006

012612

COUNT
COUNT
,ALL .ONES.2

COUNT
STK.PTR
; *(STK.PTR),»

000017

TOPS

PA:

8351
8 346
83
83
835
835
8361
8364

8365

#7,-(SP)

5455555458 RERBE St a U S
FRRRRRTTIRE : e
SEERESE
%g& SSRINESidaRNGEReREPPN
g

b b
d cmd ) e
D d cnd b il amd D D d e
D

22-DEC~80 12:16

H, T

14
R2, (SP)
-(SP)

012612
177777
004430
000004

STACK(R'Z,;.(SP)

SP,»

STK.PTIR,*
*(STK.PTR) , =

N#FMT.5,~(SP)
SP..

000001
000030

*,DODU.FLG

000004

108:

NIB.BIT
BY.ONE
. WRD
BY.ONE.WRD,
*

000003

177272
000001
000010
000006

000004

118:

177236

177042

*,NIB.BiTl

000003

b d i
b

md
A AB )

D cd b wd b ad D ) b

) b b b b

N
2= N

MISCELLANEOUS CODING SECTION

MACRO M1113

R4 A3

12$

12%:

43
(SP)+,(SP)+

RO
13$
1%

ALL .ONES.1
ALL .ONES.2

BY.FOUR.WRDS
B8Y.FOUR.WRDS
,*

8296
8378

CZM ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

138:
126542

2288
5

PR 33585k

000012

B 15
PAGE 404

148:

DEC

BNE
MOV
TRAP
TRAP

RRRRRRER
nN

004767

177004

006000
103773
000207

T38::
18:

ADD

252 words

TOPS
4
PA:

8382

26 words

JSR

8387

TRAP
ROR

8LO
RTS

'<BLF/PAGE>

8232

RTS

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

8390

DODU.FLG

: 24 :3
:21 :22

8385

b e
D e
b
b )
d
b md d
b md ed d

SEQ 0391

22-Dec~-19 80
22-Dec-19 80

: Routine Size:
: Maximum stack

K&
4%

b o)

27-DEC-80 12:16

H, ¥4

18380
18381
18382
18383 06
18384 0650

MACRO M1113

0 words

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

18453
18424
18425
18426
18427

18428
18429
18430
18431
184%%
18433
18634
18435

MACRO M1113

22-DEC-80 12:16

€15

PAGE 405

SEQ 0392

ML
;
;
;

;
;

:
.
:
;
:

}g“ogg .

22-Dec~1980 09:24:31
22-Dec-1980 09:21:22
8391
8392

839
8396
8395
839%
8397
8398
8399
8400

&8}

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

!
BGNTST:

!++
| TEST NUMBER:
TST 39
!
! TEST NAME:
SYNC DATA BUS BIT UNJQUENESS TEST/READ PATH
!
! TEST DESCRIPTION:
!
TEST SYNCHRONOUS DATA BUS READ

PATH FOR DATA BIT UNIQUENESS BY:

18438 ;

8403

LOADING THE FIRST 16 WORDS IN THE [0_BUF WITH A SHIFTING

%%12 H

3289

VIA MBUS WRITE FUNCTION WRITE SHIFTING PATTERN INTO THE GOOD BLOCK.

18443
18444
18445
18446
18447
18448
18449
18450
18451

!
!
!
!
!
!
!
!
!

CLEAR THE 10_BUF.

;
;
;
;
;
;

8408
8409
8410
8411
8412
8413
8414
8415
8416

18454 ;
18455 .

8419
8420

Llocal

‘}322(9) M

;
;

11322:25 M

8282

gfig

ZERO IN A FIELD OF ONES PATTERN.

VIA MBUS READ FUNCTIONM TM~
READ PATH.
5.

THE SHIFTING PATTERN THROUGH THE

INTERIGATE THE I10_BUF FOR THE SHIFTING PATTERN.

IMPLICIT INPUTS:
10_BUF

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION ARD FOUND.

18456 ;
18457 ;

8421
8422

18460 ;
}8461 :

8425
%Sg

D000 FLG = ZERO:
TST_PAT = ONE;

'ONE IN A FIELD OF ZEROES

18463 ;

8428

incr CNT from 0 to 15 do

'WRITE 16 WORDS WITH SHIFTED O IN A FIELD OF 1°S

18458 ;
18459

18464 ;
18465 ;

8423
84246

8429
8430

18466 :

8431

18468 ;
18469

8433
8434

18467 ;

18470 ;

18471
18472
18473
18474

begin
I0_BUF [.CNT]) = not .TST_PAT;

TST_PAT = .TST_PATAONE;

end;

8435

MLTS1 = write;

8436
8437
8438
8439

18476
18477 ;

8441
8442

8440

'DROP UNIT FLAG
'TEST PATTERN

CLR MBUS;

8432

;
:
;
;

18475 ;

DODU_FLG,
TST_PAT:

GD_BLK_XFER ();

TIME OUT_LOOP;
BGNSOB;

1incr CNT from 0 to 15 do

I0_BUF [.CNT] = ZEROES;

CLR_MBUS;

'SET UP A GOOD BLOCK XFERR

'WRITE SHIFTING PATTERN

!CLEAR OUT THE 10_BUF

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

D 15
PAGE 406

18479 M4

22-Dec=1980 09:24:31

} at.aw1 :
1328 :

18484 :

}8‘85 :

18487 :

22-Dec-1980 09:21:22
8443

gzzg

TST_PAT = ONE;

ISHIFTING PATTERN

8448

incr CNT from 0 to 15 do

'READ I0_BUF FOR SHIFTING O IN FIELD OF 1°S

8445

8451

18492 :
18493 ;
18494 :
18495 ;

8453
8454
8455
8456

18497 :

8458

8450

8452

8459

18500 ;
18501 :
18502 :
18503 :

8461
8462
8463
8464

18504 :
18505 ;

TIME OUT_LOOP;
begin

it .10_BUF [.CNT] neq ( not .TST_PAT)

then

8457

18498 :

18499 :

'SET UP A GOOD BLOCK XFERR

'READ SHIFTING PATTERN THROUGH SYNC BUS

18490 :

18496 ;

8460

DODU_FLG = ONE;

end:

TST_PAT = .TST_PATAONE;

ENDSUB;

18507 :
18508 :

8468
8469

0
(.ML_LUN);
DOCLN;

18510 :
18511 :
18515
18519 065064

8471
8472

ENDTST;

004167

117026

18521 065076

016705

18509

18520 065070

8470

152777

185%% 065102

042705

18524 0651146

150577

18523

065106

18525 065120

18526 065122

142777

005005

012704

18527 0651
005000
18528 065130 010001

18529 065132
18530 0651346
18531 065140
18532 065144

006301
010461
005161

006304

'SHIFT THE PATTERN AND REPEAT

end;

if .DODU_FLG IS_SET
then

8467

'COMPARE 10_BUF 1O SHIFTED PAT

bokgin
'ERROR AND SET DODU_FLG IF NEQ
ERRDF (93, SYNC. DUMPER):
PRINTB (FIV_FMT, WRD_23, FNC_6, WRD_19, WRD 39, PHR_4);
PRINTB (FMTZ2, ( notTM.TST_PAT), .10_BUF [.CRT], ( not .TST_PAT xor .10_BUF [.CNUJ));

8465
8466

18506 :

PA: NEALE>BLIML4.BLI.2 (89)

MLTSY = read;

8449

18491 ;

GD_BLK_XFER ();

TOPS-20 Bliss=-16 V2(212)

8444

18488 ;

18489 ;

SEQ 0393

!DROP THIS UNIT IF DODU_FLG IS_SET

bg&zn

end;

000040
126500

177770

000007

126074

126116

$7T39:

R1,$SAVES

MOV

Fl.DgT RS

BICB

#7.aML.REG+40

BIS8
BIC

126100

8IS8
CLR

000001

MOV

1$:
011600
011600

JSR

CLR
MOV

ASL
MOV
coM
ASL

38&

;

; DODU.FLG

8425

RO
RO.R1

: CNT
: CNT,x

8428
8430

#40 .,

.REG+40

8422

#177770.RS

RS.,aML.REG+40
#1.R4
R1
R4, ]10.BUF (R1)
10.8UF (R1)
R4

: %, TST.PAT

8426

: TST.PAT,«
:

TST.PAT

8431

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

18534
005

18539 065154

003765

065150

18540 0651
18541 065162
1854§ 065170

0651764

18544 065176

130700
000061

JSR
MOV

PC,GD.BLK.XFER
#61, ML REG

8PL

105777

100375

18553

016703

18554 065234

152777

042703

142777
150377

18557 065252 004767
18558 065256 012777
18559 065264

105777

18560 065270 100375
18561 065272 012704
065276

065

005002

18569 065316

18570 065

18571 065322
18572
065324
18573
065

1857% 065

125764

012703
060103
010407
005101

28:
38:

48:

011600
000040

126346

177770

000007
125742

1
000071

125734

125764

125670

58:

104455
000135
010526

024052

aML.REG+S0
2

INC
TM
BLE

RO
RO.#17
/X3

10.8BUF (R1)

#40,aML.REG+40

8439
8440

:
P

8439

CNT
OONT,»

53
”1.R4

; *,TST.PAT

8446

MOV

R2.R1

P CNT,«

8451

TSTB

aML.REG+S0

CLR

ASL

MOV
ADD
MOV
com

#10.BUF ,R3
R1.R3
R4 .R1
R1

BEQ

.WORD

MOV
MOV
MOV
MOV
MOV
MOV

8448

; TST.PAT,
;

8454

#PHR
. 4 - (SP)
ARD.39,~(SP)
MRD.19.~(SP)
moc.g <(SP)
nRD. 2% ,-(sP)
#51V.FMT,-(SP)

;

8455

DUMPER

040166
052616

BI(
BIS

R1,2(5P)
(SP)+, (SP)

BIC

CNT

5§
135
SYNC

18587 065402
18588 065406

TRAP

(R3) .R1

(R3) ., (SP)
R1,-(SP)

000002

8436

* CNT
L CNT,»

8PL
MOV

MOV
MOV

000002

;

8443
8444

JSR
MOV

011316
010146
046616

8434
8435

#177770 ,R3

18584 065372
18585 065374
18586 065376

;
:

:
:

#7.aML.RZG+40
R3.aML.REG+40

#6.-(SP
SP.RO

104414

8428

L OCNT,#

PC.GD.BLK.XFER
#71.aML .REG

BICB
BISB

MOV
MOV

065370

: CNT

8440

ML . DUT ,R3

18581 oas}sgg 012746 000006
18582
065
010600
18583

TOPS

PA:<

MOV

TRAP
WORD
WORD

18575 065332
012746 007454
18576 065
012746 006716
18577 065
012746 006506
18578 065
012746 010004
18579 065352 012746 006544
18580 065356 019746

RO
RO .R1
R1

1447

RO, #17

CLR
MOV
ASL

BIC

125746

68:

8%1301

TRAP

BISB

000001
011600

TSTB

CLR

000017

010201

18564 065302 ooa§‘61

18565 065306
18566 065310
18567 065312
18568 065314

126030

BLE

104.1685

005200
020027
003

18555 065240
18556 065246

;3;

18549 065212
18550 065214
18551 065220

065

INC

CMP

18548 oeszog 065061
1as§§ 065222

22-Dec-1980 09:21:22

000017

005
010001
006301

18563

22-Dec-1980 09:24:31

020027

18545 065
18546
065
18547 065

18562

SEQ 039

1asg 065146

18543

E 15

PAGE 407

sMLG

}gg S

18538

22-DEC-80 12:16

2(5P)
. (SP)

; SP,w
;

8456

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

F 15
PAGE 408

SEQ 0395

22-Dec-19 80 09:24 : 3
22-Dec-19 80 09:21 :22
R1,=(SP)
NFMT.2,~(SP)

004266
000004

SP.RO
14

78:

ASL

000017

SP,»
N,

#1,RS
#26,SP
Ré
R2
R2.mM7
63

Ve ®aSe N,

000001
000026

#4,-(SP)

*,DODU.FLG
TST.PAT

CNT
CNT,»

8457
8453
8448

8461

: DODU.FLG

8465

126110

8$:

RTS

8389

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

TOPS
PA:<

(R3) ,~(SP)

004767
104466
006000
103773

177362

T39::

18:

JSR
TRAP

ROR

B8LO
RTS

: Routine Size:

FRRXRIRRIFRIRRR

-y

-—bd e cud cud b

Q= OOOOO

Fgunas
IR TN

8473

! <BLF/PAGE>

17 words

PC,$739
66
RO
18

8470

6 words

; Maximum stack depth per

invocation:

0 words

CIMABO ML-11 LOGIC TEST
MISCELLANEQUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

615
PAGE 409

18645 ;M4

22-Dec-1980 09:24:31

}% :

18648
18649
18650
18651
1865%
18653
18654
18655
18656

;
;
;
;
:
;
;
;
;

18658
18659
18660
18661
18662

;
:
:;
;
;

18664
18665
18666
18667
18668
18669

:
;
;

18657 ;

18663 ;

22-Dec=1980 09:21:22
8474
8475
8476
8477
8478
8479
8480
8481
84g§

!
!
BGNTST;

8484
8485
8486
8487
8488

!
!
!
!
!

8489

;
;

8490
84691
8492
8493
8494
8495

18671 ;
18672 ;

8497
8498

18670 ;

8496

!++
! TEST NUMBER:
!
! TEST NAME:
!

ARRAY ADDRESS MUX TEST

! TEST DESCRIPTION:

!
!
!
!
!
!

TEST FOR UNIQUE MOS RAM ROW
AND COLUMN ADDRESSING BY:

FIRST FINDING A ERROR FREE

16K OR 64K CHUNK OF MEMORY.

THIS REPRESENTS ONE ROW OF
EITHER 16K OR 64K MOS RAMS.

WRITE A BACKGROUND OF ALL
ONES INTO THE GOOD CHUNK

WRITE ZEROES INTO THE FIRST

READ REMAINING BLOCKS IN

!
!

BLOCK OF THE GOOD CHUNK.

8499

18675
18676
18677
18678
18679
18680
18681
18682
18683
18684
18685
18686
18687
18688

;
:
;
;
;
;
;
:

!
!
! IMPLICIT INPUTS:
!
!
10_BUF
!
!
A VECTOR OF 256 WORDS
!
WHERE DATA FOR MBUS
!
READ AND WRITE TRANSFERS
!
CAN BE FOUND.
!=—

;

8501
8502
8503
504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514

18691

;

8517

18694
18695
18696
18697
18698
18699

;
;
;
;
;
;

8520
8521
8522
8523
8524
8525

;

}gggg ;
18692 ;
18693 :

8500

gg}g

8518
8519

TOPS=20 Bliss=16 Vv2(212)

PA:<NEALE>BLIMLA.BLI.2 (90)

TST 40

18673 ;

18674 ;

SEQ 0396

GOOD CHUNK FOR ONES.

local
DSA_ADRS,

!DSA ADRS COUNTER

10 BUF = ONES;

'LOAD FIRST 10 BUF WORD WITH ONES

'DO UNTIL FOUND GJOD CHUNK OR LBT

FND_GD_CHK;

DSA_ADRS = -.RAS_INC;
FND_GD_CHK = ZERD;
.
begin
CLR_MBUS;
BA]l = ONE;
ECC_DIS = ONE;

iFOUND GOOD 16K/64K CHUNK FLAG
'REST DSA COUNT
iCLEAR FLAG

I!SET ON FIRST 10 BUF WORD
'DISABLE ECC

MACRO M1113

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

I R

SEQ 0397

.RAS_INC:

116K OR 64K WORDS

!LOAD UBUS ADRS
!LOAD DSA ADRS
!DO A WRITE FUNCTION

:f
.SC IS_NOT_SET

!DID XFERR CAUSE AN SC

TIME_OUT_LOOP;

N.ac

begin

W_C SIZE;

10780F;
.D3A ADRS
ML FUNC
= WRT CH(
TIME_OUT_LOOP;

MLBA

Y YN

MLDA

if .SC IS_NOT_SET
then

FND_GD_CHK = ONE;

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

! INCREMENT DSA ADRS COUNTER

.DSA ADRS
MLDA
M FUNC = write;

N
PR PNTN PN PR PN
P PN TR PN TR
FIE N
P PR

Y R TR I R

DSA_ADRS = .DSA_ADRS +

Mmwl = W ( ssz

!XFERR WAS 0K
!LOAD WORD COUNT
!LOAD UBUS ADRS
!LOAD DSA ADRS
!D0 A WRITE CHECK FUNCTION
'1S THIS CHUNK GOOD
'YES SET FLG

end
end

until

(.FND_GD_CHK IS_SET ) or (.DSA_ADRS eql

.L./_ARK + .ARR_INC);
!REPEAT UNTIL FOUND GOOD CHUNCK OR AT BT

if .DSA_ADRS eql
then

.LST_ARR + .ARR_INC

ERDDFF (111, INTER, DUMPER);

PRINTB (FIV FMT, FNC 13, FN
C 17, WRD_50,

PRINTB (THRCFMT, WRD_14, PHR_10, FNC]1 S5;
DODU (.ML_LON);

WRD_60, WRD_56):

DOCLN;

!A GOOD CHUNCK WAS FOUND CONTINUE TEST

FEYE PR

YR FE FE PR

PAGE

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

P Y

VBN

-—d

FEPR FETE

'DISABLE ECC
!FIRST BLOCK IN CHUNCK GETS ZEROES

!LOAD
'LOAD
!LOAD
!D0 A

FE PRFEFE

721

AZE TR
IR TR

—d

d rd cnd

d wd wd D

WIN—=O

D o

T R

oogao SIS
23 <

I E T I

18701 H, T
) 870§
1870
18704
18705

22-DEC-80 12:16

DSA
WORD COUNT
UBUS ADRS
WRITE FUNCTION

!READ REMAINING BLOCKS FOR ONES

MLDX = DSA ADRS + 1

!LOAD DSA WITH NEXT DSA INCREMENT

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 411

18757 :ML4

22-Dec=-1980 09:24:31

}g;gg ;
18760 :

SEQ 0398

20-Dec-1980 09:21

TOPS-20 Bliss-16 v2(212)

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

8578

8579

MLBA =

'LOAD

18763
:
18764 18765 :

8581
85
85

8580

ML FUNC ="WRT_CHK;
TIME_OUT_LOOP?

iDO A WRITE CHECK FUNCTION

18767 :

8585

18761
18762

18766 :

18768 ;
18769 :
18770 ;

18771 ;

18772 ;

18773
18774
18775
18776

:
:
;
:

}g%:

8584

MLWC = u‘csize + 256;
if .WCE IS_SET

then

b;g

'ERROR IF WRITE CHECK FOUND BAD DATA

DF (112, ASYNC, DUMPER);
PRINTB (Fm FMT, FNC 17. GRD 50, WRD_60, WRD_14);
PRINTB (FMTTM9, (.MDX
- 1));

8590

DOCLN:

8589

8591
8592
8593
8594

DODU (.ML_LONS;

end;

ENDTST;

18785 065512
18786 065516
18787 0655264
18788 065530
18789 065532

004167
012767
016702
005402
005000

116326
177777
125374

124054

18791 065542

016701

000040

125452

18793 065552
1879% 065560

142777 000007
150177 125430

125434

18796 065572

152777

125474

152777

126034

18792 065546 042701 177770

$T40:

1$:

18795 065564 152777 000010 125422
2

18797
065600
18798 065606
18799 065612
18800 065620

066779,;
016
012777
010277

125320
125312
011600
125360

1% 065632
1
065640

152777
105777

000061
125360

18801 065626

18804 065644
18805 065646
18806 065654
18807 065656
18808 065664
18809 065672

18810 065676

'WERE ANY BITS DISTURBED

8586
8587
8588

8595

18790 065534

UBUS ADRS

iLOAD WORD COUNT WITH LESS ONE BLOCK

142777

100375
032777
001027
016
012777
010277
142777

000077

125322

100000

125300

125240
011600
125306

125300
125302

000077

125250

R1,$SAVE2
#-1,10.8UF
RAS. INC,R2
R2
RO

;
:
»,DSA.ADRS
: DSA.ADRS
* FND.GD.CHK

84
851
8518

MOV

BIC

ML . DUT

8I(B
BIS8

8Is8

n aML.REG+40
aML .REG+40

nb
aML .REG+40

;

8524

ADD
MOV
MOV
MOV

RAS. INC,R2
W.C.SIZE,aML .REG+10
#10.8UF ,aM .REG+20
R2,aM .REG+30

=,DSA.ADRS
:
:
* DSA.ADRS,*

8526/
8527
85
85

BISB
TSTB

#61.aML.REG
@ML.REG+S

BISB

125352
125354
125314

JSR
MOV
MOV
NEG
CLR

BICB

2s:

BPL
BIT
BNE
MOV
MOV
MOV

BICB

#40.amL. nse+4o

851

852

nm?bm

#2,aML.REG+120

#77.aM.REG

23
#100000, aML . REG
4
W.C.SIZE.aML .REG+10
#10.BUF ,aML .REG+20
R2,aML .REG+30
#77,3M.REG

;

8525

;

8533

;
:
: DSA.ADRS,*

8536
8537
8538

8539

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

1881
}g]"

22-DEC-80 12:16

J.15

PAGE 412

SEQ 0399

H, X3
:

18815 065704
18816 065712

18817 065716
18818 065720

18819 065
18820 065

18821 065

152777
105777

100375
777

000051
125306

125242

100000

125226

001002
012709 000001

02002

18822 065740 001406
1
065742 016701
18894 065746 066701

18825 0657725 020201
18826 065
001267

18827 065756 016701
18828 065762 066701

18829 065766

020201

18831 065772
18832 065774
18833 065776
18834 066000

104455
000157
010672
026052

000001

3$:

'A ¥

123630
123610

123614
123574

5$:

18830 065770 001047

22-Dec-1980 09:24:31
22-Dec-1980 09:21:22
BISB
TSTB

#51,3aML.REG
aML.REG+50

BNE
MOV

43
#1.R0

BEQ
MOV
ADD

11
LST.ARR.R1
ARR. INC .R1

MOV
ADD

LST.ARR.R1
ARR.
INC R1

8PL
BIT

CMP
BNE

012746
012,46
012746
012746
012746
012746
012746
010600

007122
007156
007046
010162
010112
006062
000006

18844 066042
18845 066046
18846 066052
18847 066056
18848 066062
18849 066066

012716
012746
012746
012746
012746
01

010136
007564
006442
006034
000004

18851 066072

016700

18854 066102

062706

RO M

;

8542

; *,FND.GD.CHK

8544

. FND.GD.CHK,»

8549

R2.R1
1$

: DSA.ADRS,*

R2,R1

: DSA.ADRS,*

TRAP
JWORD
.WORD
.WORD

55
157
INTER
DUMPER

;

8556

;

8557

BNE

18835 066002
18836 066006
18837 066012
18838 066016
18839 066022
18840 066026
18841 066032
1
066036

3s
#100000, aML .REG

TOPS
PA: <

;

8553

MRD . 56, ~(SP)
MRD .60~ (SP)
MRD.SO.-(SP)
#ENC.17.~(SP)
#ENC.13.~(SP)
SFIV.FAT,-(SP)
#6,-(SP)
SP.RO
14
#FNC. 15, (SP)
#PHR
. 10.-(SP)
ARD.14.-(SP)
HTHR.FMT
= (SP)
#4,~(SP)
SP.RO
14
ML.LUN.RO

; SP,a
;

8558

125502

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
MOV

; SP,«
;

8559

000026

ADD

#26,SP

;

8555

MOV

ML, DUT R

18859 0661;2 148777 000007 125060
18860 %1
150177 125054

BICB
BISB

#7.aML.REG+40
R1.aML.REG+40

18362 066146

BISB

1w.§oasow 104414

18850 066070

1885§ 066076
18853 066100

18855 066106
18856 066110

18857 066116

104414

1046451
104444

000207
152

016701

000040

125460

18858 066122 042701 1%7770
18861

066140

152777

000010

18863 066154
18864 066160
18865 066164
18866 066172

005067
010277
012777
012777

123420
15020
177400
011600

152777

TRAP
TRAP

125076

125046

125120

124772
124774

6$:

RTS
BISB

BIC

BIS8

CLR
MOV
MOV
MOV

51
44

PC
#40,aML.REG+40

0179976.::1

#10,aM .REG+40
#2,3ML.REG+120

10.BUF
R2.aML .REG+30
#4600, aML .REG+10
#10.B0F ,@ML .REG+20

:
:

8553
8563

;

8565

:
: DSA.ADRS,*
;
:

8567
8568
8569
8570

8566

CZMLABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

18868
}gg??)

18878 066240

142777
152777

105777
100375
152777
0167201
045701

124746
124740

125004
000040 124764
125346
177770

78:

BICB
BISB

TSTB
BPL
BISB
MOV
BIC

8571

;

8572

;
:

8574
8575

;
:

8578
8579

#77,3M.REG

;

8580

aML.REG+S0
8s
#40000, aML . REG+40
9

;

8583

;

8586

;

8587

@ML.REG+S
78
#40,aML.REG+40
n’% R1
n 77770 R

152777 000010
012767 177777

124734
123312

BISB
MOV

wmm
18 S
18 36 066304
18837 066312
18 8 066316
18t ) 066322

201
010177 124700
012777 011600
016702 124604
062702 000400
010277 124636

124662

INC
MOV
MOV
MOV
ADD
MOV

R1
R1,aML .REG+30
#10.BUF , @M .REG+20
W.C.SIZE.R2
#400,R2
R2, @M. .REG+10

18891 066334

152777

BIS8

#51.aML.REG

152777

13&5 066274 010201

18890 066326

142777

000002

000077
000051

1089§066342 105777 124656
18893 066346 100375
1889% 066350 032777 040000
18895 066356 001441
18896 066360
18897 066362
18898 066364
18899 066366

104455
000160
010464
024052

18900 066370
18901 066374
1%066400
1
066406
18904 066410
18905 066414
18906 066420
18907
18908
6
18909
18910

012746
012746
012746
012746
012746
012746
010600
104414
017716
005316
012746

1391§

8ISB

125000

BISB

MOV

124620
124612

BICB

8s:

124636

TSTB
8PL
8IT
BEQ

TRAP
.WORD
JWORD
.WORD

#7,aML.REG+40

R1,aML.RE5+40

#8,aM .REG+40
#-1,10.BUF

#2,aML.REG+120

R2.R1

* DSA.ADRS,*

55
160
ASYNC
DUMPER

8576

8577

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TR
MOV
DEC
MOV

MRD.14,~(SP)
MRD .60~ (SP)
MRD .50, - (SP)
#FNC.17.-(SP)
#FOR.FMT,~(SP)
#5.-(SP)
SP.RO
14
aML .REG+30, (SP)
(SP)
NFMT.9,~(SP)

MOV

SP.RO

; SP,x

125126

MOV

ML .LUN,RO

;

8589

18916 %254 104444
18917
56 062706 000020
}gg}goou& 000207

98:

TRAP
ADD
RTS

44
#20,SP
PC

:
:

8585
8472

18920
18921

; Routine Size: 245 words
.
; Maximum stack depth per invocation:

18911
18913

06644s

124554
004644
019746 000002

MOV

104414

TRAP

18914 066446 016700
18915 066452

006442
007156
007046
010162
006046
000005

TOPS
PA: <

;

18880 066252
18881 066260

150177 124742

BICB

#77.3ML.REG
#61.aML.REG

124746

066266

140777

000077
000061

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

18879 06624.3
1€ "2

SEQ 0400

JMLSG
;

18871 066200
188;;066206

188
18874
18875
18876
18877

104451

TRAP

: SP,*

.14

14 words

8588

CZMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

18930
18931
18935
18939 066464
18960 066464
18941
1894%
18943
18944

W N

WIYNT
YW
WIie" YN

b 4

VIS

18945
18946

18947
18952
18953

066470
066472
0664764
066476

18954 ;

004767
104466
006000
103773
000207

8596

MACRO M1113 22-DEC~80 12:16 PAGE k‘M

177022

740::
18:

JSR
TRAP
ROR
8LO
RTS

PC.8$740

8593

RO
18
PC

.
.
; Routine Size:
6 words
; Maximum stack depth per invocation:
! <BLF/PAGE>

SEQ 0401

0 words

CIMABO ML-11 LOGIC TESY
TE

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

M 15
PAGE 415

18956 :ML4
}8957 :

18959 :
18960 ;
18961 ;

13?’2% :
)
:

SEQ 04602

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

8597
8598
8599

8600
1

!
BGNTST;

!¢+
! TEST NUMBER:

TST 41

18964
18965
18966
18967
18968

:
:

r
8603
!
8604
!
8605
!
8606
!

8607

18971

8609

LOADING FIRST 2 1/4 WORDS OF THE I0_BUF WITH ZEROES AND THE

18974 :
18975 :
18976 :

8612
8613
86146

VIA DAT_DM MODE WRITE THE GOOD BLOCK WITH BACKGROUND
ON ONES.

gg}g

!
!
!

VIA PROM R/W MODE FORCE ALL ARRAY NIBBLES BAD.

]|8979 :

gg};

VIA A MBUS WRITE FUNCTION LOAD I0_BUF INTO THE GOOD BLOCK.

18981 :
18982 ;
18983 :

8619
8620
8621

!
S.
VIA DAT_DM MODE READ FIRST 15 ARRAY WORDS FOR ZEROES AND THE
!
REMAINIRG WORDS FOR ONES.
!
! 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 uoaos WHERE DATA FOR MBUS READS AND WRITE
!
FUNCTIONS ARE
F
!'—

}gggg :

}33;32 :

}gg% :

18984 :
18985 :
18986 :

18987 :
18988 :
18989 ;
18990 :
18991 :
18992
18993 :
18994 :

gg}?

8622
8623
8624
8625
8626
8627
8628
8629
8630
8631
8632

18995 :
18996 :
18997 :
18998 :
18999 :

8633
8634
8635
8636
8637

19001

8639

19003 :

8641

19000 ;

19002 ;

19004 :
19005 .

19006

19007 :
19008 ;
19009 :

19010 :

8638

8640

864
8643

8644

8645
8646
8647

8648

TOPS=20 Bliss~16 V2(212)
PA:<NEALE>BLIMLS.BLI.2 (91)

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:

REMAINING OF BUFFER WITH ONES.

local

DODU_FLG.,
TST _PAT,
START,
FINISH,
ERR_FLG;

'DROP UNIT FLAG
ITEST PATTERN
'STARTING WORD
'ENDING WORD
'ERROR FLAG

;

CLR _MBUS:

DODD_FLG = ZERO;
incr WD_CNT from 0 to 255 do

!LOAD 10_BUF WITH ONES

10_BUF [0] = ZEROES:
10_BUF (1] = zsno;;-

'LOAD FIRST 2 1/4 WORDS WITH ZEROES

J0_BUF

[.WD_CNT] = ONES:

10-BUF [2] = %0'177760°;

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

19012
19013
19014
19015
19016
19017
19018

]

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

19020 ;
19021 ;

8654
8655

!SET UP A DATA 5IAG MODE XFERR
!DO A WRITE XFERR

1incr WD_CNT from 0 to 127 do

!LOAD BLOCK WITH BG PAT

19022 ;

8653

8656

'LOAD DATA DIAG REGISTERS WITH ONES

beEIn

19023 ;

8657

19025 ;

8659

}%SS :
19029 ;

e fnur.’m (ONES, 19)
ggg% PROA RW = ONE

19031 ;

8665

MLTS1 = write;

19033 .
19034 ;
19035 .
19036 :
19037 .
19038 ;
19039 ;

8667
8668
8669
8670
8671
86
8673

TIME_OUT_LOOP;
CLR_MBUS;
START = ZERO;
FINISH = 14;
TST_PAT = ZEROES;
DAT _DM_XFER ().
MLCS1 = read;

!START AT THE FIRST BLOCK WORD
1END AT THE 14°TH BLOCK WORD
!TEST FOR ZEROES IN FIRST 14 WORDS
!SET UP A DATA DIAG MODE XFERR
!DO A READ FUNCTION

19043 ;

8677

incr TWICE from 0 to 1 do

!READ WORDS 0-14 FOR 0°S AND 15-126 FOR 1°S

19030 :

19044 ;

22-Dec=1980 09:21:22

MLCST = write;

19040 ;
19041 ;
19042 ;

22=-Dec=1980 09:24:31
MLD1 = ONES;
MLD2 = ONES;
MLE2 = ONES.
DAT DM_XFER ();

19032 :

SEQ 0403

8649
8650
8651
8652

19026 :

N 1S
PAGE 416

;
;
;
:

19024 ;

22-DEC-80 12:16

M4
;

19019 ;

MACRO M1113

86556

8666

8674
8675
866
8678

DELAY (ONE_US);

DAT_CLK = ONE;

end;

!FORCE ALL NIBBLES BAD
!SET PROM READ WRITE
!SET UP A GOOD BLOCK XFERR
!WRITE ZEROES IN FIRST BLOCK WORD LOCAT/ON
!OFFSETTING 14 NIBBLES WITH ZEROES ALSQ

GD_BLK_XFER (};

DELAY (ONE_US);

begin

19045 ;
19046
19047 ;
19048

8679
8680
8681
8682

19050 :

8684

RD_LNG_WRD;

!READ THE DATA DIAG REGISTERS

19052 ;
19053 .

8686
8687

incr NIB_PTR f.om 0 to 8 do

!LOOK AT 9 NIBBLES

19055 ;
19056 ;

8689
8690

19049 :
19051 ;

19054 :

8683
8685

8638

incr WRD_CNT from .START to .FINISH do
in
PD_TEMP = .MLPD;
DAT_CLK = ONE;

DELAY (ONE_US);

it .PD_TEMP [.NIB_PTR] IS_NOT_SET

then

!READ BLOCK WORDS FORM START TO FINISH

{GET PROM DATA
!CLOCK OUT THE DATA WORD

!FIND GOOD NIBBLES

begin

19057 :

8691

19059 :

8693

TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG);
!COMPARE NIBBLE WITH TST PAT
_
it .ERR_FLG IS_SET
!SEE IF COMPARE FOUND AN ERROR

8695
8696

b;gin
!ERROR AND SET DODU_FLG IF ERROR FLG SET
ERRDF (94, ARR DAT, DUMPER);

19058 :

19060
19061 ;
19062 ;
19063 :

8692

8694

8697

then

PRINTB (THR_FMT, WRD 41

19064 :

8698

PRINTB (FMT_6, .NIB_PTRS;

19066 ;

8700

end;

19065 ;

8699

DODU_FLG = ONE;

WRD_46, WRD_10):

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

19068 M4
19069 :
19070
19071 ;

19072

19073

8701

870

19075 :

8705

8706

19078
19079 :

8708
8709

19080 :

19081 :

19082 :
19083 :
19084 1908S

19086 :

19087 ;
19088
19089 ;

}90949090 :

8707

8710

8711

871
8713
8714
8715

8716

8717
8718
8719

8720

19098 066500

004167

19100 066510
19101 066512

104%
152

19099 066504

19102 066520
19103 066526

162706

016704
042704

19104 066530
19105 066536
19106 066542

142777
150477
005066

19108 066550
19109 046552
19110 066556

010

TST_PAT = not .TST_PAT;

ENDSUB;
it .DODU_FLG IS_SET
t
beqin

!DROP THIS UNIT IF DODU_FLG SET

DoBU (.ML_LUN);
DOCIN;
end;

ENDTST;
115412

000012
000040

125056
0

124452

124474

$T41:

JSR

18:

TRAP
BISB

2
#40,aML .REG+40

BICB
BISB
CLR

#7.aML.REG+40
R&.aML.REG+40
4($P)

MOV
ASL
MOV

R2.R3
R3
#=1,10.8UF
(R3)

177777

124456

020227
003767

000377

1;%00

011600

19114 066572

005067

19116

012767 177760 122774

CLR

124526
1245
124502
124310

R1,$SAVES

CLR

10.BUF

MOV

MOV
MOV
MOV
JSR
MOV

8637
8639

ML
. DUT ,Ré
n77770.ré

CLR

8595

M2.SP

INC

4,
BLE

123002

177777
177777
177777
125324
000061

sUB

MOV
BIC

28:

3
012763

012777
012777
012777
004767
012777

(91)

!START A 15
'END AT 126

FINISH = 126;
end

ooszo;

19117 066610
19118 066616
19119 066624
19120 066632
19121 066636

NEALE>BL3ML4 .BLI.2

!NOW READ FOR ONES

START = 15;

19111 066562

19115 066576

TOPS-20 Bliss=16 v2(212)

PA:

end;

19107 066515-8 oosoog

1911§ 066566
19113 066570

SEQ 0404

end;

8704

19076 :

19077 ;

B 16

PAGE 417

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

;

19074 ;

22-DEC-80 12:16

R2.N377
2
10.8UF
+2

#-20,10.BUF
+4

#~1.3% .REG+170
#~1.3M .REG+200
#-1.3M .REG+160
PC,DAT.DM.XFER
#61.
M _REG

: DODU.FLG
: WD.CNT
: WD.CNT o

: WD.CNT
: WD.CNT o %

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

19123
}3}2‘5'

22-DEC-80 12:16

€ 16

PAGE 418

SEQ 0405

M4
:

19126

066644

oeesgz 001411

19127 066646

005001

012702

000001

191;30666
016703 113236
19130
066660 001404
19131
S
000010
mg
5303
19133
0666
1374
19133.4.0666
833 2
19135 06667
766
19136 066676

19137 066706
19138 066706

152777

000177

152777

000040

19139 066712

003755

19141 066722

016704

19140 066714

000020

005201
020127

124656

1914§oa>

042704 177770

19145 06676k
19146 066750
19147 066756

012746
012746
004767

19149 066766
19150 066772
19151 067000
19152 067004

004767
012777
105777
100375

19154 0672014

016704

19143
066
19144 066740

19148 066760

19153 067006

38:

124254

152777

000100

124306

152777

177777
000023
132240

127070
000061
124220
000040

124562

124154

; v, 88TMP1

R3
53
R2

P ST

68:

DEC
BNE
DEC

7$:

BISB

#20,@ML.REG+120

19161 067052
1912% 067056
19163
067064

004767
012777
012702

125104
000071
000001

19165 0672072
19166 067076
19167 067100
19168 067106
19169 067106

016703
001404
005066
005303
001374

113020

1971 067112

000766

19160 osmsg

19164 osro;g

19170 067110
19172 067114

19173 067116
19174 067122

19175 067124

19176 06126
19177 C62134

1411

8s:

124200

016601
005301

534

017767

152777

)

8655

BISB

M40,aML.REG+40

;

8659

;

8662

MOV

BIC

ML, DUT R4

BICB
BISB

MOV
MOV
JSR

#7.aML.REG+40
Ré4.aML.REG+40

#~1,-(sp)
#23.-(SP)
PC,WRT.PD

n7997b.m.

818

#100,am .REG+120

8663

BISB

#40,aML .REG+40

8667

6($P)
#16.4(SP)

: START
;= FINISH

8669
86

8572
8673
8674

JSR
MOV
TSTB
BPL

PC,6D.BLK.XFER
#65 ., ML _REG
aML.REG+S50
8s
ML. DUT R4

:
:

8664
8665

017%6.534

#7.,aML.REG+40
R4.aML.REG+40

124070

JSR
MOV
MOV

PC,DAT.DM.XFER
#71 .,
.REG
1 R2

:
:
P o, SSTMP2

MOV
BEQ
CLR
DEC
BNE

LSDLY,R3
118
14(SP)
R3
108

; *,$STMPI

CLR

128:

000006

138:

123764

124132

14$:

8658

; WD.CNT
L WDLCNT.Le

B8ICB
BISB

108:

8657

R1
R1.#177

BIC

9s:

8655

INC
P

MOV

11$:

000020

TOPS
PA:<

; SSTMP

CLR
MOV

000014

124252

B8R

10(SP)

000004

005302
005004

CLR

BLE

19155 067020 042704 177770
066 000006
012766 000016

L$DLY,R3
6

19156 0677853 142777 000007 124162
19157 06
150477 124156
19158 067036
19159 067042

8EQ

MOV

: WD.CNT

MOV
BEQ

124272

000007
124250

Low,$STMP2

58:

162777
150477

CLR

#1,R2

is:

124370

22-Lec-1980 09:24:31
20-Dec-1980 09:21:22

BEQ

DEC

CLR

MOV
DEC

B8R

MOV

BISB

124

* TST.PAT

; SSTMP
P SSTMPI

; SSTMP?2

;

6(SP) .R1

TWICE

: START.WRD.CNT

WRD.CNT

aML.REG+230.PD, TEMP

;

228

#20.aML.REG+120

8671

8676

8679

8681

8682

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

19179

sMLG

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

1915 067142 o1270§ 000001
067146

00141

19184 067150
19185 067154

016703
001404

19187 0671

885

158:

112742

19186 osngg oosggg 000014
19188 067164

168:

001374

19189 osm;g 005302
19190 067170

19191 067172

1919; 067200

000766

017767

178:
124146

124150

1919 osgga 017767 124122

19194 067214
19195 067216

00500
01020

19199 06
19200 06
19201 06

062703 013120
010346
010246

19204 067246

005046

121752

121746

067236
067242

177770
000001

19205 067250 004767
19206 067254 062706

113664
000010

005700

19210 067266
19211 067270
19215 067276
19213 067276

010546
012746
060616
004767

19215 067310

001034

19214 067302

19216 067312
19217 067314
19218 067316
19219 067320

19220
19221 06

06732

026627

104455
000136
010570
024052

;

*,$$TMP2

MOV
BEQ

LSDLY,R3
17$

;

*,$$TMP]

DEC

; SSTMP
; $STMP1

DEC

; $STMP2

CLR

BNE
BR

MOV

000001

18§

14(SP)
16$

158

@M .REG+200.D2. TEMP

CLR
MOV

R2
R2.R3

ADD
MOV
MOV

#PD. TEMP,R3
R3.=(SP)

ASR
ASR
ASR

ML .REG+160.E2.
TEMP

R3
R3
R3

R2.-(SP)

BIC
MOV

#197770, (SP)
#1,-(SP}

JSR
ADD

PC.BLSGT2
#10.sp

BNE
MOV

218
R2.-(SP)
RS - (SP)

BNE

208

20(sP) .1

006406
007004

MOV
MOV

MRD.10,~(SP)
MRD .46~ (SP)

19224 067342
19225 067346

81 7646
010600

000004

MOV
MOV

19227 067352
19228 067354
19229 067360
19230 067364

010216
012746
012746
010600

004532
000002

#,-(SP)
SP.RO
14
R2. (SP)
#FMT_6,~(SP)
#2.,-(SP)

19232 067370
19233 067376

012766
062706

000001
000016

19226 067350

19231 067366

12746 006732
012746 006034

MOV
MOV

104414

TRAP

MOV
MOV
MOV
MOV

000034

TRA

MOV
ADD

NIB.PTR,*

:
;

NIB.PTR,*
TST.PAT,»

;

ERR.FLG,*

5§
136
ARR.DAT
DUMPER

012746
012746

1922 &
192
7336

; NIB.PTR
; NIB.PTR,*

#20.-(sP)
SP, (SP)
PC.TST.LNG.WRD

TRAP
LWORD
.WORD
.WORD

8683

-($P)

MOV
MOV
ADD
JSR
P

TOPS

<
PA:

aTM__REG+170.D1.TEMP

MOV

000020
000020

# R2

BEQ

CLR

19208 osgg‘z 001051
19209 06
010246

126644

MOV

MOV
198:

042716
012746

19207 067260

188:

121742

19196 067220 006203
19197
0672 2 006203
19198 067294 006203

1
19203

D16
PAGE 419

SEQ 0406

19180
19181

19183

22-DEC-80 12:16

8691

8693
8696

8697

MARD.41.~(SP)
STHR.FAT
.- (SP)

SP.RO
14

#1.,34(SP)
#6,SP

;

SP,x

;

NIB.PTR,

SP"

;

*,DODU.FLG

8698

8699
8695

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

E_16
PAGE 420

SEQ 0407

4, T

000010

22-Dec-1980
22-Dec-1980

208:
218:

ADD
INC

22%:

INC

“‘SP

Re M0

; NIB.PTR
; NIB.PTR,»

R1
R1,4(SP)

:
;

19§

14$

RS
#17.6(SP)
#176,4(SP)

000017
000176
000001

177020
000004

23%:

260

506

000012

13262 067514

067516
067516
067522
067524

19283 067526

19284 067530
19285

004767
104466

176756

TST.PAT

8706

* FINISH
TWICE
TWICE,*

8676

8707

8637

;

DODU.FLG,*

8713

8716

248:

ADD

8595

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

19279
19280
19281
19282

8679

8709

124074
19261 067510

8690
8686

WRD.CNT
WRD.CNT,FINISH

*,START

1 3§
éSP)*.(SP)#

TOPS
PA:<

Té1::
18:

006000
103773
000207
;

;

23 words

JSR

8718

TRAP
ROR
8LO
RTS

Routine Size:

6 words

Maximum stack depth per

invocation:

0 words

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION
19296
19297
19298 .

8721

MACRO M1113

!<BLF/PAGE>

22-DEC-80 12:16

F_16
PAGE 421

SEQ 0408

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

19300 ;ML4

22-Dec~-1980 09:21:22

19303
19304
19305
19306
19307
19308
19309
19310
19311
}3:351%

:
;
;
:
:
:
;
:
:
:

872%
8723
8724
8725
8726
8727
8728
8729
8730
gg}

!
BGNTST;

19314
19315
19316
19317
19318
19319
19320
19321
19322
19323
19324
19325
19326
19327
19328
19329
19330

:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:

8733
8734
8735
8736
8737
8738
8739
8740
8741
8742
8743
8744
8745
8746
8747
8748
8749

!
!
!
!
!
!
!
!
!
!
!
!
i
!
!
!
!

19332
19333
1933%
19335
19336

:
:
:
:
:

8751
8752
8753
8754
8755

!
‘t—

19338 :

8757

19337 :

19339

19340
19341
19342
19343
19344

8750

8756

8758

;
:
:
;
:

8759
8760
8761
8762
8763

19346 :

8765

19345 ;

19347 ,

19348 :

19349 :

19350 :

19351 ;

19352 :
19353 ;

19354 :

SEQ 0409
22-Dec~-1980 09:24:31

}g% :

19331 ;

6_16
PAGE 422

8764

!'++
' TEST NUMBER:
TST 42
|
| TEST NAME:
CS1 FUNCTION ABORT TEST
!
| TEST DESCRIPTION:
;
TEST CS1 FUNCTION ABORTS ON DETECTION OF CLASS ‘A’ & 'B' ERRORS BY:

VIA MBUS WRITE FUNCTION LOAD THE GOOD BLOCK WITH BACXC®
PATTERN OF ONES.
CLEAR THE 10_BUF
DO A MBUS READ FUNCTION.
WHILE THE READ IS IN PROGRESS WRITE TO
MLDA (CLASS ‘A’ ERROR) READ THE 10_BUF FOR ONES.

CLEAR THE 10_BUF

.
VIA PROM R/W MODE FORCE UV ERROR TO THE UV ADRS ERROR PROM
(CLASS '8’ ERROR).
DO A MBUS READ.
READ 10_BUF FOR ZEROES

IMPLICIT INPUTS:
10_BUF

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND
WRITE FUNCTION ARE FOUND.

CLR_MBUS;
BAI = ONE:

10_BUF = ONES;

'SET ON FIRST 10 BUF ADRS
'LOAD FIRST 10_BOF ADRS

MLTS1 = write;

'WRITE BACKGROUND PATTERN

incr TWICE from 0 to 1 do
bag;lr‘\e
8
:

'FORCE CLASS ‘A’ AND CLASS 'B' ERRORS

GD_BLK_XFER (J;
TIME_OUT_LOOP;

incr CNT from 0 to 255 do

8768

8769

8770

8771

8772

8773

'SET UP A GOOD BLOCK XFERR

CLR_MBUS;

8766

8767

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>BL3IML.BLI.2 (92)

10_BUF [.CNT] = ZEROES:

if .TWICE eql 1

then

be?;;n

PROM_RW = ONE;

MLPD = X0'777%;

'CLEAR OUT 10_BUF
'IF 2ND PASS THEN FORCE

'B' ERROR

CZMABO M -11 LOGIC TEST
MISCELLANEQUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H 16

PAGE 423

19356 M4

SEQ 0410

22-Dec~1980 09:24:31

}gggg :

22-Dec=-1980 09:21:22

TOPS-20 Bliss=16 Vv2(212)

PA:<NEALE>BLIMLS .BLI.2 (92)

19359
19360

8774
8775

:}333223 H

MLTST = read;

GD_BLK_XFER ();

'SET UP A GOOD BLOCK XFERR

g;gg

if .TWICE eql O then MLDA
= ONES.;

'IF FIRST PASS THEN FORCE AN 'A' ERROR

8781

TIME_OUT_LOOP;

19361 ;

]‘g'.;gg :

19366 ;

19367 ;

8776

8782

19368 ;

8783

19370 ;

8785

19373 ;

8788

19369

19371 ;
19372
19374 ;

19375 :
19376 :
19377 :
19378 ;

19379 :

19380 ;

8784

8812

19400 ;
19401

;

if .J0_BUF [.WRD_CNT] neq ONES
then
bag
DF (95, SYNC, DUMPER):;
exitloop;

end;
else

end

incr WRD_CNT from 0 to 64 do
begin

if .J0_BUF [.WRD_CNT] neq ZEROES
then
begin
ERRDF (96, SYNC, DUMPER);

SEEREE

'!READ [0_BUF CLEARED DATA
'ERROR IF ONES AND EXIT LOOP

exitloop
end;

end;

8816

8819

!SEE IF XFERR WAS ABORTED

PRINTB (FOR_FMT. PHR_9, FNC_13, WRD_19, WRD_10);

8815

19604

'CLASS 'B*' ERROR

begin

8813
8814

8818

'ERROR AND EXIT LOOP IF ZEROES

end;

8811

8817

'READ 10_BUF FOR BG PAT

PRINTB (FOR_FMT. PHR_8, FNC_13, WRD_19, WRD_10);

8803

19402 .

19403 ;

'SEE IF XFERR WAY ALLOWED TO CONTINUE

begin

8795

19397 :

19398 .
19399 ;

incr WRD_CNT fraom 0 to 64 do

8794

8804
8805
8806
8807
8808
8809
8810

'SEE WHICH PASS WE'RE ON

!CLASS ‘A’ ERROR

8790
8791
8792
8793

19389 .
19390 ;
19391 ;
19392 :;
19393 .
19396
19395 ;

'DO A READ FUNCTION

begin

8789

8796
8797
8798
8799
8800
8801
8802

19396 :

if .TWICE eql O

then

8786
8787

19381
19382 ;
19383 .
19384
19385
19386 ;
19387 .
19388 ;

end;

end;
if .SC IS_NOT_SET

then

bagm

!SEE IF SC BIT SET
!ERROR IF NOT SET

DF (104, SYNC, DUMPER);
PRMI’NTB (l’IV FMT, WRD_59, PFR 1, WRD_11, WRD_19, FNC_13)
e

CZMABO ML-11 LOGIC TEST

MACRO M1113

116
PAGE 424

e
e
—b ad ad b

g
g

i
D

1146322
000040
124032
177770
000007
123426
000010
177777
126254
000061
123404

d )

TOPS=20 Bliss=16 Vv2(212)

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

ENDSUB;
end
ENDTST;

SEQ 0411

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

)

R
FRRERRRRPRRRREE
W
IS ERPRE N

MISCELLANEQUS CODING SECTION

22-DEC-80 12:16

000040
123742
177770
00000
123336

123450

$T42:

#7 .9 .REG+40
R3,aML .REG+40

#10.
3 .REG+40

123420
121776

123360

1%:

2$:

5_A.a-a_ng—l.a_a-a-n_.—l-a—b—l-a
g

011600

000377

123220

aML .REG+50
1$

R3
2
'c't:o.a'rtégfcwo
#7. 3 .REG+40
R2.aML .REG+40
RO

RO.R1

R1
10.BUF (R1)
RO
RO, #377

3
M
R3.
43

000001

126134
000071

123232

TWICE

8761
8762
8763

CNT
CNT,+

CNT
CNT ,»
TWICE,~

#100
3ML .REG+120
.

'A ¥

#7779 .REG+230
PC,GD.8LK.XFER

:Si ,aML .REG
R3
5%

177777
123246

8757
8758

#6130 .REG

” 7%6.!%2

123342

123360
123462

8755
8756

#~1.10.BUF
PC,GD.BLK.XFER

3s:

000100

8720
8723

:179976 R3

123432

123340

R1,$SAVE3

:lab.a;lhgewo

5%:

TWICE

R2
#-1,3ML .REG+30

ggL.REG*SO

8783

MISCELLANEOUS CODING SECTION

011600

:
108

000014

118:

000100
100000

122766

;

SP,=

.
;

WRD.CNT
WRD.CNT,»

: WRD.CNT
; WRD.CNT
,»

8795
8787

8783
8807

(R1)
8810

8811

128:

;

SP,w

8812
; WRD.CNT
;

WRD.CNT,»

8819

D o

b o

006406
006506
010112
007552
006046
000005

8787

8790

000100

WRD.CNT,~

TOPS
PA:<

8794

-—h

7%:

RCERr o “2 i % ] 6333
§378833%
3
:

006406
006506
010112
007540
006046
000005

; WRD.CNT

;

: 24 : 31
:21 122

8793

aRaw

177777

8s
R2
R2.R1
R1
;2.BUF(R1).J-1

8822

~
&»H

VONOWVEWNI=2O

NANRIDRN

333
33 S9S333353335333
S5 NSEBRBBELEECINR

d e
e
d e
b e
o
b d o
b cd
b emd e
d el
b
b

SEQ 0412
22-Dec~-19 80
22-Dec-19 80

N =\ N
D D D —
SN0
= NIN)

011600

& = <
pury

(=]

NN
SNV NN = NN

ooooooooooooooooooooo

6$:

e o ek o

d o

b e

D e

b e

d wd

RS R o kR hRbERREE 333&2#
38
SRRRERaRIEE:
S SSEReR

d o

RRRRRRRR

;i 067766
067770
067772

J_ 16
PAGE 425

22-DEC-80 12:16

JMLG

19467
19468
19469
19470 067762
971 067764

MACRO M1113

CZMABO ML-11 LOGIC TEST

010112

DUMHER
#FNC.13,-(SP)

(AN 4]

Bt
A dh

A
4

CZMABO ML-11 LOGIC TEZY

MISCELLANEOUS CODINCG SECiION

MACRO M1113

19523

19524
19525
19526 070204

012746

012746
012746

19531 0
195%% 0
19533
070236
195%4 0;8540
19535 070244
19536 0;8%;8
19537 0

012746
010600
104414
062706
104467
006000
10300;

19538 070252

19539 070256

19540 070260
19541 070264

}322% 070266

19544
19545
19550
19551
19555
19559 070270
19560 070270
19561 070274
19562 070276
19563 070300
}8222 070302
19566
19567
19572
19573
19574 ;

K_16
PAGE 426

SEQ 0413

22-Dec-19 80 09:24 : 31
22-Dec-19 80 09:21 :22

JMLS
:

19527 070210
19528 070214

195g3 0
19530 070296

22-DEC-80 12:16

006506

006416
007366

019746 007152
012746 006062
000006

000016

000167

177346

020327
003772

000001

005203

MOV

MRD
. 9,-(SP)

MOV
MOV

MRD .59, -(SP)
#f 1V Fmf,-(SP)

MOV
MOV

138:

148:

15%:

000207

MOV
MOV
TRAP
ADD
TRAP
ROR
BHIS

JMP
INC

(W,
BLE

RTS

MRD.11,-(SP)
#MPHR.1,-(SP)

#6,-(SP)
SP,RO
14
”6,SP
67
RO
158

177236

T42::
1$:

JSR
TRAP
ROR
8LO
RTS

!'<BLF/PAGE>

8821
8824

;
;

TWICE
TWICE,»

8761
8720

words

PC,8T42
66
RO
18
PC

; Routine Size:
6 words
; Maximum stack depth per invocation:
8830

: SP,»

R3I .M
148

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

004767
104466
006000
103773
000207

TOPS
PA:<

8827

0 words

MACRO M1113

CZMLABO ML-11 L 0G IC TE ST
MISCELLANEOUS Co ING S E CTION

22-DEC-80 12:16

L_16
PAGE 427

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

19576 .MLé4

;
19577
19578

B9 0005009903000,
% 0009, %¢0g 8¢ 099080 %
Ve Ve 80005 8000 %y 0

-3
8

0y g, 0005000, 060

$3383333339333003

§EeRes §§§§88883fi£828§8g

000080000y 0¢0s%e000908;306%09¢
0,

19579
;

SEQ 0414

TOPS-20
Bliss=16 2 212)

PA: <NEALE>B
(93)
>BL3mé.BLI.2
L

BGNTST,
144

: TEST NUMBER:
TEST NAME:

TST 43
LAST BLOCK TRANSFER TEST

TEST DESCRIPTION:

TEST THE LAST BLOCK INDICATOR BIT
FOR SETTING/NOT SETTING AND THE
DSA REGISTER FOR INCREMENTING BY:
1.

DOING MBUS TRANSFERRS AT EACH
BLOCK FROM BLOCK ZERC TO

LAST BLOCK -1 AND TEST LBT

CLEAR AND DSA REGISTER TO BE
INCREMENTED.

DO A MBUS TRANSFERR AT
THE LAST
TEST LBT
TEST FOR
TEST DSA

BLOCK.
TO BE SET AND
CLEAR.
REG TO BE INCREMENTED.

IFPLICIT INPUTS :
0_BUF

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 DSA CNT from O to .LST_BLK - 1 do

BeRALe:
B

MW = not 255:
MLBA = 10 BUF

MLDA = .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
!LOAD DSA WITH DSA_CNT

'DO A WRITE FUNCTION
!SEE

THE LAST BLOCK XFERR BIT SET

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC~80 12:16

M 16
PAGE 428

1
H, XA
}3233‘ .
19635 :

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

19636 ;
19637 ;
19638 ;

8884
8885
8886

19640 ;
19641 ;

8888
8889

19643
19644
1964S
19646
19647
19648

8891
8892
8893
8894
8895
8896

19639 :

19642 :

;
;
;
;
:

19649 -

8900
8901

19654 ;
19655
19656 :

19657
19658
19659 ;
19660 ;
19661 ;
19662 :;

19663 ;
19664 ;

8902
8903
8904

8905
8906
8907

8908
8909
8910

8911
8912

8913
8914

19670 .
19671 ;
19672 .

8918
8919
8920

19673
19674
19675
19676

.
;
;
;

8921
892
892
8924

8925
8926
8927

19681 ;
19682 ;

8929
8930

19683 ;
19684 ;
19685 ;

19686 ;

DODU_FLG= OnE;

end;”

ENDSUB;
end;
BGNSUB:
CLR lBJS

ECCDIS
= ONE:
LASTY BLK_XFER ().
MLCST = write:;

'DISABLE ECC
!SET UP A LAST BLOCK XFERR
'DO A WRITE FUNCTION

1if .MLDA neq .LST_BLK + 1

!SEE IF DSA REGISTER INCREMENTED

TIME_OUT_LOOP;

then

895,

!ERROR AND SET DODU_FLG IF NOT

PRINTB (FMTTM7, .LST _BLK);
DODU_FLG= ONE;

end;”

if .LBT IS_SET
then

begin
MLDA = ONES:

)
if .LBT IS_SET
then
b;gp
F (99, ASYNC, DUMPER);

8928
8931
8932
8933

b;agn

F (101, ASYNC, DUMPER):;
PRINTB (rm _FMT, REG 6, InRD 31, WRD_14);

8915
8916
8917

19677 ;
19678 ;
19679 ;

19680 :

if .MLDA neq .DSA_CNT + 1
!SEE IF THE DSA REG INCREMENTED
then
in
!ERROR AND SET DODU_FLG IF NOT
E
F (98, ASYNC, DUMPER):;
PRINTB (rm _FMT, REG_6, \-RD 31, WRD_14);
PRINTB (FMT" 7, .DSA N T)

8899

19665 ;
19666 ;

19667 ;
19668 ;
19669 ;

PRINTB (FMTTM7, .DSA_UNTS;

DODU_FLG
= ONE;
end;

8897

19652 :
19653 ;

;

RB
!ERROR AND SET DODU_FLG IF SET
ERRDF (97, ASYNC, DUMPER);
PRINTB mn FMT, WRD 27 P'-R S, WRD_29);

8890

8898

TOPS=-20 Bliss=16 Vv2(212)
PA:<NEALE>BLIMLS.BLI.2 (93)

thcn

8887

19650 .

19651

SEQ 0415

'SEE IF LBT BIT SET

'IF SET THEN TRY TO CLEAR IT

!SEE IF BIT CLEARED
'ERROR IF NOT

PRINTB (FIV_FMT, WRD_27, PHR_2, WRD_11, WRD_17, REG_6);

DODU_FLG
= ONE;
end;”
else

end

begin

'LBT NOT SET

!ERROR AND SET DODU_FLG

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

N_16
PAGE 429

19688 :ML4

22-Dec=-1980 09:24:31

}%968990 ;

20-Dec-1980 09:21:22

19691 ;

8935

19693
19694 ;

8937
8938

19697 -

8951

19692 :

19695 :
19696 -

19698 :

19699 :

19700 :

19701 :

8936

ERRDF (100, ASYNC. DUMPER);

DODU_FLG
=
end;
ENDSUB;

894

if ooou FLG IS_SET

8944

Dogu (.ML_LUN);

8945

}3;003 :

8949

ENDTST;

004167

113566

19715 070312 016704

121254

1971% 070310

19716 070316

8948

005001

005002

DOCLN;
:

$743:

19720 070326
19721 070330

18:

005203

104
152

000040

19723 070342

042700

177770

19727 070366
19728 070374
19729
070402
19730
070406

012777 177400
012777 011600
010277 122576
012777 000061

19732 0

100375

19722 070336 016700 123240

19724 070
19725 070354
19726 070360

19731 070414

19733 070422
19734 070430

19735 070432
19736 070434
19737 070436
19738 070440

142777
150077
152777

000007
122634
000002

105777

122604

032777 002000
001433
104455
000141
01
024052

19739 070462 012746 006610
19740 070446 012746 007472
19741 070452

012746

006602

JSR

R1,$SAVE4L

;

8829

MOV

LST.BLK.R4

8871

CLR

19717 070320
541
19718 070322 010203
19719 070324

'DROP THIS UNIT IF DODU_FLG SET

8946
8947

19713 070304

DNE;

8939
8940
89

TOPS-20 Bliss-16 v2(212)

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

PRINTB (roa FMT, \RD 7. PHR 1, WRD_11, hRD_Z?);

19702 :
19703 :

19704 :

SEQ 0416

122655

28:

122704

122570
122572
122540

122574

3s:

B8R
MOV

6
R2.R3

TRAP
BISB

2
#40,aML.REG+40

INC

MOV

ML, DUT, RO

BICB
BIS8
BISB

#7.aML.REG+40
RO.aML.REG+40
#2.aML.REG+120

BIC

122640

MOV
MOV
MOV
MOV

TSTB

BPL

#<400,aM .RE6+10
#10.80F ,aM .REG+20
R2,aML .REG+30
#61. 3 .REG
aML.REG+S0

#2000, aML .REG+S0
43

MOV
MOV

MRD. 29.-(59)
#PHR.S < (SP)

MOV

: DSA.CNT

8869

: DSA.CNT,»

8891

;
;

8872
8873

8875

#177770,R0

a1t
BEQ

TRAP
LWORD
.WORD
.WORD

: DODU.FLG

55
141
ASYNC
DUMPER

MRD .27 .~ (SP)

:
:
* DSA.CNT,»
:

8876
8877
8878
8879/

;

8882

;

8885

;

8886

CZMABO ML -11 LOGIC TEST

MISCELLAMEOUS CODING SECTION

MACRO M1113

19743

22-DEC~80 12:16

8_1
PAGE 430

SEQ 0417

sMLG

}3;‘43

22-Dec-1980 09:24:31

22-Dec-1980 09:21:22

19746 070456 012746 006034
19747 070462 012746 000004
19748 0
010600

MOV
MOV
MOV

#THR.FMT,~(SP)
#4,=(SP)
SP.RO

19750 070472
19751 070474
19752 070500
19753 070506

MOV
MOV
MOV
MOV
TRAP
MOV
ADD
CMP
BEQ

R2, (SP)
NFMT.7,=(SP)
#2,-(SP)
SP.R0

19749 070470

19754 070508
19755 070510
19756 070514
19757 070520

104414

TRAP

010216
012746 004562
012746 000002
010600

; SP,*
; DSA.CNT,w

8887

; SP,*

14
#1.R1
#16,SP
@M .REG+30,R3

; *,DODU.FLG
:
:

8888
8884
8891

5SS

8894

MOV
MOV
MOV
MOV
MOV
MOV

MRD.14,~(SP)
MRD.31.-(SP)
#REG.6,~(SP)
NTHR.FMT,~(SP)
¥4 ,-(SP)
SP.RO

;

8895

010216
012746 004562
012746 000002
010600

MOV
MOV
MOV
MOV

R2,(SP)
FEMT.7
. -(SP)
#2,-(SP)
SP.RO

: DSA.CNT,w

19775 070606 012701 000001
19776 070610 062706 000016

MOV
ADD

#1.R1
#16,SP

; *,DODU.FLG
;

889
889

19758 070524

19759 0705

104414
012701 000001
062706 000016
ozm}:g 122460

TOPS

PA:<

104455

19760 070530
19761 070532
19762
070534

000142
010464
024052

19769 070564

104414

19763 070536
19764 070542
19765 070546
19766 070552
19767 070556
19768 070562

19770 070566
19771 070570
19772 070574
19773
070600
19774 070602

48:

0014

012746
012746
012746
012746
012746
010600

TRAP

WORD
"WORD
.WORD

006442
006632
010316
006034
000004

TRAP

104414

TRAP

19777 070614

104467

5$:

19780 0
19781 0

005202
020204

6$:

19778 070616 006000
19779
0
103642

19782 0

22
4

19783 0
19784 0

002635

104479;
152

000040

150477
152777

122332
000002

122354

78:

19785 0
016704 122736
19786 0
oa;% 177770
19787 070650 14
oooogr 122336
19788 070656
19789 070662

19790 070670 004767 125220
19791 070674 012777 000061
19792 070702 105777 122316
19793 070706 100375
1979¢ 070710 016702 120656
19795 070714

19796 070716
19797 070722

005202

027702
001434

122262

122252

8s:

142
ASYNC
DUMPER

; SP.*
8896

; SP,%

TRAP

INC
o, o

R2
RZ.R4

. DSA.CNT
; DSA.CNT,
=

8871

2
#40,aML.REG+40

;
:

8901
8903

;

8905

;

8910

ROR
BLO

BLT

TRAP
BISB

RO
b1

MOV
8IC

n.o% R4
0177776 R4

BISB
BISB

R4.aML.REG+40
#2.aML.REG+120

BICB

122404

JSR
MOV
TSTB
8PL
MOV
INC

o, o
BEO

#7.,aML.REG+40

PC_LAST.BLK.XFER
osi.n.nsc
@ML.REG+S
8s
LST.BLK,R2

aML .REG+30,R2
9%

:
:

8906
8907

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

SEQ 0418

NSO

SRRERIRERRERRNZZIRY
SSRRSNEREIERERERER

22-Dec-19 80 09:24: 3
22-Dec-19 80 09:21:22

-l-‘-l—lg—.

006442

ASYNC
DUMPER
MRD.14,~(SP)

010316

#REG.6,-(SP)

14
LST.BLK, (SP)
#EMT.7,<(SP)
#2,-(SP)

120602
004567
<

200076

8914

MRD.31.-(SP)

NTHR.FMT,=(SP)
#4,-(SP)
SP RO

002000

122202

177777
002000

122152
122164

9%:

; SP,»

8915

SP.RO

; SP,«

; «,DODU.FLG

TOPS
PA:<

8913

55
145

O=20000=0

3333333
dddddd
|
§38 XTSRS 5 ldn
NRFNIIIIIINIIIIIIIIIIIIIIIIIIIIIIIN
23
b
-

VRN

T
L
EE
(NN
=

VSN —~-O

BRLLLRLLLR

2288

70724

&% 3iadats

) b
D =
) D
b
D
d
D
e
)
D
D
D ad
d e
D e
D
d
) e
D
b
D
d
D nd i
)
b
D
D e
nd e
) i —d =D ) e
d
b ad crd
b

c_1
PAGE 431

JMLG

19799
19800

ol amd

22-DEC-80 12:16

1(2)260.31.'!56*50

8916

8919

#~1,aML .REG+30

8922
8924

#200
aML .REG+50
0,
118
55
143

8927

ASYNC

DUMPER
#REG.6,~(SP)

010316
006470
006416
007404
006602
006062
000006

8928

MRD.17,-(SP)

MRD.11.~(SP)
#PHR.
2, ~(SP)

MRD.
27 ,-(SP)
#FIV.FME,~(SP)
#6.,~(SP)
SP.RO
14

000001
000016

#1.R1
#16,SP

108:

; SP,x

* DODU.FLG

118

8929
8926
8935

144

ASYNC

DUMPER

D
. 27 ,~(SP)
MR

8936

MRD.11.-(SP)

#PHR.1,~(SP)

MRD .27 ,~(SP)
#FOR.FMT,~(SP)
#5.-(SP)

SP.RO
14

; SP,x
. %,DODU.FLG

8937

—

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

19855
}%gg
062706

19860 071202

006000

13%25 071506
1
071210
19864 071212
19865 071216
19866 071220

005301
001004
016700
104451
104444

19861 071204

]|9867 071222

104467

000014

19889 071236
19890

122362

000207

128:

ADD

#4,SP

ROR

TRAP

DEC
BNE
MOV
TRAP
TRAP
RTS

; Routine Size:

;

R1
12%
ML.LUN,RO
51
44
PC

232 words

]

; Maximum stack depth per invocation:

004767

104466
006000
103773

177054

000207

196891
}ggg;

19898
19899 ;

SEQ 0419

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

8LO

}gg;(s)

19886 071230
19887 071232
19888 071234

118:

103611

19869
19876
19880
19884 071224
19885 071224

D_1
PAGE 432

JMLG
:

19858 071174

19859 071200

22-DEC-80 12:16

T43::
18:

JSR

PC,8T43

RTS

TRAP
ROR
8LO

8950

!'<BLF/PAGE>

8934
8938

; DODU.FLG

8942

8945

8829

;

8947

12 words

66
RO
1$

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

TOPS
PA:d

0 words

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

19901 .MLé
1990% :
1990
19904 ;
19905 ;
19906 ;
19907
19908 ;
19909 .
19910 ;
19911 ;
19912 ;
19913 :
19914 ;
19915 ;
19916 :
19917 ;
19918 ;
19919 ;
19920
19921
19922 ;
19923 .
19924 ;
19925 ;

8951
895
8953
8954
8955
8956
8957
8958
8959
8960
8961
8962
8963
8964
8965
8966
8967
8968
8969
8970
8971
8972

!
!
BGNTST;

19927 :
19928 :
19929 ;

8976
8975
8976

!
!
!

19926 :

19930 ;
19931 ;
19932
19933
19934 ;
19935
19936 .
19937 .
19938 .

8973

8977
8978
8979
8980
8981
8982
8983
8984
8985

8986
8987
8988
8989
8990

19945
19946 ;

8992
8993

19947 ;

8991

8994

!
!
!
!

!
!
!
!
!
!
!

TEST THE DETECTION OF ILLEGAL DSA
ADDRESSES BY:
1.

10_BUF

A VECTOR OF 256 WORDS WHERE

DATA FOR MBUS READS AND WRITE
FUNCTION ARE FOUND.

!
!—
Llocal
IAE_CNT;

PINVLID ADRS COUNT

IAE_CNT = LST_BLK;

!START AT LAST

'TEST FOR ALL INVALID ADDRESSES

B8LOCK + 1

begin
|
CNT = _JAE_CNT + 1;
BGNSUB;
CLR_MBUS;
MLDA = .]AE _CNT;

'LOAD DSA

MLBA = I0_BUF;
MLCS = write;

'LOAD UBUS ADRS
'DO A WRITE FUNCTION

MLWC = not 255;

9000

end;

19955 ;

9002

ENDSUB;

9001

DOING A MBUS WRITE FUNCTION
AT ALL POSSIBLE ILLEGAL DSA
ADDRESSES AND TEST THE
IAE BIT SET.

IMPLICIT INPUTS:

19953

8999

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

!4+
! TEST NUMBER:
TST 44
!
! TEST NAME:
INVALID ADRS TEST
!
! TEST DESCRIPTION:

8995
8996
8997
8998

19954 ;

SEQ 0420

’

19948 ;
19949 :
19950 ;
19951 ;

19952 :

E__1

PAGE 433

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

19939 ;
19940 :
19941 ;
19942 ;
19943

19944 ;

22-DEC-80 12:16

if .JAC IS_NOT_SET
then
bagin
ERRDF (102, ASYNC, DUMPER):

! INCREMENT [AE_CNT

'LOAD WORD COUNT
'SET IF IAE SET

'ERROR IF NOT SET

PRINTB (FIV_FMT, WRD_30, PHR_1, WRD_11, WRD_30, WRD_10);

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

F_1
PAGE 434

19957 :ML4

22-Dec~1980 09:24:31

}gssg :

22-Dec=1980 09:21:22

19960 :;

9003

19963 :

9006

19961 :
19962 :

19967

9004
9005

19971 071240

010146

19973

005201

mg 071242

071246

19974 071250

19975 071%28
19976 0N

016701
10440

121716

012777
012777

001026

177770

121676
177400

121650

002000

121676

011600
000061

19990 071350
19991 071354
19992 071360
19993 071364
1999 071370
19995 071376
19996 071400
19997 071404

012746
012746
012746
01.77646
073746
Q12746
(12746
00600

006406
006624
006416
007366
006624
006062
000006

19999 071410

062706

000016

19998 071406

20000 071414

20001 071416
20002 071420
20003 071422
20004 071426
20005 071430
20006 071432

20007

20008
20009

2s:

104si¢

104467

103713
020127

001307
012601
000207

R1,=-(SP)

;

8949

INC

: IAE.CNT

8987

£988

8990
8991

LST.BLK,R1

TRAP

121652
121624

#40,3ML .REG+40
ML
. DUT,RO

BICB
BISB

#7.3ML.REG+40
RO,aML.REG+40

R1,aML .REG+30
#~400, ML .REG+10

: IAE.CNT,*
:

8IT

#2000, aML .REG+60

;

#10.8UF ,aML .REG+20
#61 ,aML .REG

BNE

TRAP
WORD
.WORD
.WORD

S5
146
ASYNC
DUMPER

8992
8993

;

8998

;

8999

8995

MRD.10,-(SP)
MRD.30.~(SP)
MRD.11,-(SP)
#PHR.1,=(SP)
MRD.30,-(SP)
#FIV.FMT,-(SP)
#6,-(SP)
SP,RO

; SP,w

ADD

#16,SP

;

ROR
BLO
P
BNE
MOV

RO
2s
R1.#~1
1s
(SP)+,R1

9000

; IAE.CNT,»

9004

8949

TRAP

;
:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

TRAP

177777

8983

#177776,R0

MOV
MOV

3s:

: «, IAE.CNT

BISB
MOV
BIC

104455
000146

010464
024052

'REPEAT UNTIL ALL TESTED

MOV

18:

000007
121712

19984 071330 032777
19986 071340
19987 071342
19988 071344
19989 071346

$T44:

120324

142777
150077

010177
012777

TOPS-20 Bliss=-16 v2(212)

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

ENDTST:

121734

19980 071302
19981 071306
19985 071336

.JAE_CNT eql X0'177777';

000040
122316

042700

1% 071314
1
071322

end

until

152
016700

19977 071264

19978 071270
19979 071276

SEQ 0421

RTS

; Routine Size: 62 words
.
. Maximum stack depth per invocation:

8 words

8997

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

20018
20019
20023

20027 071434

20028 071434
20029 071440
20030 071442
20031 071444

20032 071446

20033

004767
104466
006000

177600

103773
000207

T44::

1$:

JSR
TRAP
ROR

BLO

)

20034

RTS

)

; Routine Size:

20035

6_1

PAGE 435

9007

!<BLF/PAGE>

SEQ 0422

PC,8T44
66
RO

;

18
PC

6 words

; Maximum stack depth per invocation:

2004?

20042 ;

22-DEC-80 12:16

0 words

9004.

CIMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

H_1

PAGE 436

MLG

SEQ 0423

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

VSN
=

28 88888222y
£2388 32
52

20045 ;

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

]

BGNTST;
+4

TEST NUMBER:

g TEST NAME:

TST 45

ADRS OVERFLOW BIT TEST

i TEST DESCRIPTION:
;

TEST THE DETECTION OF ADDRESS OVERFLOWS BY:

STARTING AT THE LAST BLOCK DO A TWO BLOCK TRANSFER.

READ THE AOEf BIT SET.

I IMPLICIT INPUTS:
i

10_BUF

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE

;

FUNCTIONS ARE FOUND.

CLR_MBUS;

MWl = not 511;

'DO TWO BLOCK XFFRR

MDA = .L3T_BiK;

ISTART AT LAST BLOCK

MLBA = O BUF:

1LOAD UBUS ADRS

MLCST = write;
TIME_OUT_LOOP;
if

DO A WRITE FUNCTION

Aoe IS_NOT_SET

'SEE IF AOE SET

'ERROR IF NOT SET

ERRDF

(103, SYNC. DUMPER):

PRINTB (FOR_FMT, WRD_26, PHR_1, WRD_11, FNC_19);

ENDTST;

122120

121536

000007

121520

011600
120052

121460
121462

121514

177000 121456

20097 071514

$T45:

BISB

#40,aML.REG+40

BICB

n ML .REG+40

MOV
BIC

BIS8

MOV
MOV
MOV

n.% RO
#177770
R0

ML .REG+40

p—iooo aML .REG+10

#10.8UF ,aM .REG+20
LST.BLK.aML .REG+30

;
;
;

9030
9031
9032

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

20099
228}8(1)

2010

1.1

PAGE 437

SEQ 0424

MG
;

0715%%

012777

000061

121424

20104 071534
20105 071536
20106 071544

100375
032777
001024

001000

121470

20108 071550
20109 071552
20110 071554

000147
010526
024052

20103

22-DEC~80 12:16

0715

20107 071546

20111 071556
2011% 071562
20113 071566

105777

121470

18:

104455

012746
012746
012746

010204
006416
007366

012746
012746
010600

006046
000005

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

MOV

#61,3ML .REG

;

9033

8PL
8IT
BNE
TRAP

18
#1000,3ML .REG+60
$

;

9036

;

9039

MOV
MOV
MOV

#FNC.19,-(SP)
MRD.11,-(SP)
MPHR.1,-(SP)

9040

MOV
MOV
MOV

#FOR_FMT ,=(SP)
#5,-(SP)
SP.RO

TST8

LMWORD
WORD
.WORD

20114 071572 012746 006574

MOV

20118 071610
20119 071612
%}%? 071616

TRAP
ADD
RTS

20115 071576
20116 071602
20117 071606

104414
062706
000207

000014

20122

2s:

: Routine Size:

228153

TOPS
PA: <

ML .REG+50

147
SYNC
DUMPER

MRD
. 26, ~(SP)

: SP,x

14
#14,SP
PC

52 words

: Maximum stack depth per invocation:

:
:

9038
9006

;

9041

6 words

20129

20133
20137 071620

20138 071620

004767

20140 071626
20141 071630

006000
103773

20139 0716246

228}2% 071632

104466

177624

000207

18:

JSR

PC,8T4S

ROR
8LO

RO
1%

TRAP

RTS

20144
228‘{28
20151
20152 :

T45::

; Routine Size: 6 words
; Maximum stack depth per invocation:
9044

! <BLF/PAGE>

0 words

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

1
J_
PAGE 438

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

SCER

Boe 00 00000000000, %0 %0000 %0 0000 %00.00%0 %000 %000 00%000%0%0000000000Q;%0 %0%00003%0 0300000080009

8, 0900,

SEQ 0425

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

]

BGNTST;
[R2

‘

TEST NUMBER:

TST 46

TEST NAME:

SYNC BUS PARITY TEST

TEST DESCRIPTION:
TEST ABILITY OF
GOOD PARITY BY:

SYNC BUS TO DETECT AND GENERATE

VIA MBUS WRITE FUNCTION WRITE ALTERNATING ONES AND ZEROES TO THE
DEVICE AND READ THE DPAR BIT CLEARED.

REPEAT WITH SHIFTED DATA

VIA MBUS READ FUNCTION READ THE ALTERNATING PATTERN AND MDPE CLEARED.

IMPLICIT INPUTS:
I10_BUF

A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITES
FUNCTIONS ARE FOUND.

:’f‘“.\PAR-DIS IS_SET

beqi
PR NTB (THR_FMT, FNC_3, WRD_7, WRD_37);

!SEE IF PARITY IS DISABLED

'PRINT MESSAGF AND EXIT TST IF YES

EXIT_TST.

end;”

CLR I‘fllS

BAl =

10_BUF
io
= 125252°;

TALTERNATE 1, O PATTERN

incr TUICE from 0 to 1 do

'REPEAT LOOP TWICE

GD BLK XFER 0);

MLTST
= write;

TIME_OUT_LOOP;

'SET ON FIRST IO BUF ADRS

'SET UP A (OOD BLOCK XFERR

DO A WRITE FUNCTION

if .DPAR IS_SET
then
Rg
ERRDF (105, SYNC. DUMPER);

'SEE IF DPAR GOT »>°&T

10 _BUF
= .10 _BUF“ONE;

!SHIFT THE

!ERROR IF SET

PRINTB (roa FMT, WRD_23, \RD 6. WRD_7, WRD_9);

MLER = ZEROES

10 BUF & REPEAT

!CLEAR OUT ERROR REG € REPEAT

CZMABO ML-11 LOG IC Tg

MISCELLANEOUS CODING
00

MACRO M1113

ECTION

22-DEC-80 12:16

K_1
PAGE 439

20210 ;M4

22-Dec=1980 09:24:31

%}} :

20213 ;
20214 :

20215
20216 ;
20217

29518
:
20220 :
20221

20222 :

22-Dec=1980 09:21:22

9097
9098
9099
9100
9101

3103
9104

9105

9106

20223 :
20224

9107
9108

20226
20227
20228
20229
20230
20231
20232
20233

9110
9111
9112
9113
9114
9115
9116
9117

20225 :

:
:
:
:
:
:
:
:

20234 :
20235 :

20236 :

20237 :

20238 :

20239 :

20243
20247 071634

20248 071636
20249 071644
20250 071646
20251 071652
20252 071656
20253 071662
20254 071666
20255 071672
20256 071676
20257 071676

9109

incr TWICE from 0 to 1 do
begin

Bea"mcm:ru}s

'SET ON FIRST 10 BUF ADRS
ISET UP A GOOD BLOCK XFERR
iDO A READ XFERR

it .MDPE IS_SET

'SEE IF READ GENERATED BAD PARITY

TIME_OUT_LOOP;
then

20263 071726

b;gin
'ERROR IF MDPE SET
ERRDF (106, SYNC. DUMPER):
PRINTB (FOR_FMT, WRD_23, WRD_6, WRD_7, WRD_8);
end;

ENDSUB;
I0_BUF
= .]O_BUF“ONE;

GO BLK_XFER T);
MLTST
= write:

9121

end;”

9122

'REPEATE LOOP TWICE

BAI= ONE;
GD_BLK_XFER (3;
MLTST = read;

9118
9119

9120

TOPS-2C Bliss~=16 v2(212)

PA:<NEALE>BLIM 4.BLI.2 (96)

ENDSUB;
end;

IMAKE DATA PATTERN HAVE ONE LESS ONE
ISET UP A GOOD BLK XFER
1CHANGE THE BACKGROUND IN MEMURY

TIME_OUT_LOOP;

9123 ENDTST:
010146

026727 117724
001021
012746 006700
012746 006344
012746 007750
012746 006034
012746 000004
010600

000001

$T46:

104414
104463

58 071700
709 000012
20259 071704 0001797 000402
071710 152
000040
20261 071716 0167201 121660

20262 071722

SEQ 0426

042701

142777

177770

000007

MOV

PAR.DIS . #
18
MRD.37,-(SP)
MIRD.7,~(SP)
#FNC.3.~(SP)
#THR.FMT ,=(SP)
#4,-(SP)
SP.RO

ADD
JMP
BIS8
MOV

#12,SP
93
uo anL REG+40
9

eics

#7, L REG+40

TRAP
TRAP

121276
121260

1$:

R1,=(SP)

P
BNE
MOV
MOV
MOV
MOV
MOV
MOV

BIC

14
63

:177 70, m

9043

9073

9070

; SP,*

:
:
:

9070
9072
9075

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

L 1
PAGE 440

SEQ 0427

JMLG

20265

22-Dec=-1980 09:24:31
22-Dec=1980 09:21:22
R1,aML .REG+40

2s:
121162

3s:

121226

PC,GD.BLK.XFER

#61,aML
. REG
3‘av;l.nemso

TWICE

240
3L .REG+60
,
4$

9088

SYNC
DUMPER
#MIRD.9,~-(SP)
MRD.7.~(SP)
MRD .6 ~(SP)

9092

SP)

TWICE
TWICE,

20318 072210
20319 072214

00000
121052
000010
123706
000071
121036
000400

006360
006344

121074

TWICE

5$:

121056
121044
120772

121016

\h\la

RBIBEN
IR

olelelelelslels]

-—b

20
20307 0

AANRARARAN

20305 0

121456

SP,*

4537433

LFMt,~(sP)

000001

20301 072

9091

A ¥

e 8t

55
151

000014
117514
121144

&
90

Y
I YN PN

:;52526.10.&}

LR TR

#10, M .REG+40

TOPS

PA:<

#RD.8,-(SP)
MRD.7,-(SP)

CZM_ABO M_-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MAZCRO M1113

2081
228-

72220

013746

SEQ 0428

MOV

MD.S -(SP)

0127646 006046

MOV

#FOR.FMT,=(SP)

20327 072234
20328 072240
20329 072242
20330 072264
20331 072250
20% 072252
20
072254
20334 072256

012746
01
104414
062706
104467

20335 072262

103715
006367
004767

20337 072276
20338 072300
20339 072302
20340 072304
20341 072310
20342 072312
20343 072314

105777
100375
005201
020127
003677
012601
000207

006544

MOV

000005

000014

117316
123574

20336 072266 012777 000061

20344
20345

120724

78:

120660

20361 072316
20362 072322
20363 072324
20364 072326
20365 072330

MOV
MOV
TRAP
ADD
TRAP
ROR
8LO
ASL
JSR

8s:

000001

0s:

MOV

TST8
8PL
INC
(v, 4
8LE
MOV
RTS

.
]
: Routine Size:

%8%?

20352
20356
20360 072316

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

006336

012746

MRD.2% -(SP)

004767
104466
006000
103773
000207

177312

T46::

18:

JSR
TRAP
ROR
BLO
RTS

.
; Routine Size:
!<BLF/PAGE>

9111
9114

;
:

91
911

: TWICE
: TWICE,»

9100

904}

9121

7 words

PC,8T46
66
RO
18
PC

6 words

;
:

;

ML .REG+50
8s
R1
R1.M
5%
(SP)+,R1
PC

; Maximum stack depth per invocation:

91264

; SP,»

#61 .M _REG

153 words

TOPS
PA:fi

#5,.-(SP)
SP.RO
14
M4, ,SP
67
RO
S$
10.8BUF
PC,GD.BLK.XFER

; Maximum stack depth per invocation:

58%

20374 ;

M1
PAGE 441

MLG
.

20325 072206

20366
20367

22-DEC-80 12:16

0 words

‘

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

N 1
PAGE 442

20376 M4
20377 ;

SEQ 0429
22-Dec-1980 09:24:31
22-Dec~-1980 09:21:22

TOPS=20 Bl{ss=16 Vv2(212)
PA:<NEALE>BLIML.BL]I.2 (97)

BGNTST;
1e¢

TEST NUMBER:

TEST NAME :

PROVIDES A MBUS READ/WRITE
E(AXTIA’ ;ly!ANSFER TROUBLE SHOOTING
1.

LOAD APPROPRIATE RH REGISTERS.
DO A WRITE FUNCTION.

LOAD APPROPRIATE RH REGISTERS
DO A WRITE CHECK FUNCTION.

COMPLIMENT DATA AND

REPEAT.

PR N

ImPLIC IT INPUTS:

10_BUF

A VECTOR OF 256 WORDS WHERE

PR PR P

PR PN TN

WRITE READ ML11

DATA FOR MBUS READ AND WRI TE
FUNCTIONS IS FOUND.

ocal

TST_PAT;

!TEST PATTERN

N
P
P

P TS T
PN T T
P
NN PN
R
AP TR

b o

b e

b o

§§§§§§§§§§§§§¥§§§§§§§g
BYRNEHNER 8‘0@‘0\/‘&“'\)—‘0

20407

TST 47

TEST DESCRIPTION:

PRR

YR PR YR TR PR PR YR PR YR TR YR TR

TR YR YN TN

]

TST_FAT = X0°'052525°;

incr TWl CE

from 0 to 1 do

!WRITE READ 1°'S AND 0'S ON MBUS

BAI

!SET ON FIRST 10 _BUF ADRS

GD_BLK_XFER OF
=
= write;
mts1

!DO A WRITE FUNCTION

= ,TST_PAT,
I0_BUF

TIME OUT_LOOP;
CLR MBus:

BAI
=

GD_BLK_XF E O,

MmLTS1 = rWRT C
TIME_

'LOAD FIRST 10_BOF ADRS
'SET UP A _GOODTMBLOCK XFERR

'SET ON FIRST 10 BUF ADRS

ISET UP A GOOD BLOCK XFERR

'DO A WRITE CHECK FUNCTION

MACRO M1113

CZMABO M. -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

333

20434
20435
36
20437
38
20439
20440
20441
20442
204643
20445
20449

20453 072332
72336
20455 072342

8 2
PAGE 443

SEQ 0430
2%-0ec-1980 09:24:31
22-Dec=-1980 09:21:22

it .WCE IS_SET
then

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

'SEE IF WRITE CHECK ERROR SZT

'ERROR IF SET
begin
ERRDF (109, TRBLE_LOOP, DUMPER);
PRINTB (SIX_FMT, FNC_4, WRD_10, "WRD_12, FNC_S. FNC_6, FNC_3):

end;

TST_PAT = not
end;

!COMPLIMENT TST_PAT AND REPEAT

.TST_PAT;

ENDTST;

111506
052525

$T47:
120642

1$:

Qo.a}égeswo

M0,
M .REG+40
R1,10.80F
PC.6D.BLK.XFER

28:

TWICE

TST.PAT
,»

#61 ., aML .REG
23;1.REG+50

#40,3ML .REG+40

120542

#7 .M .REG+40
RO aML .REG+40

210,
M .REG+40

120530

120502

n7‘7’976,no

120560

120456

P« TST.PAT

RO @M .REG+40

120012
120534

R1,$SAVE2

:gészs,m

47 .3 .REG+40

120624

20485 072534

22-DCC~80 12:16

3s:

;g 6D.BLK.XFER
{9 .REG

ML .REG+S
3s
#40000,3ML .REG+40
4$
S5
155
TRBLE
. LOOP
DUMPER

007750

#FNC.3,-(SP)

007774

#FNC.5,-(SP)

#FNC.6,-(SP)

912
9161

916
9164

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

20487

22-DEC-80 12:16

¢ 2
PAGE 444

SEQ 0431

JMLS

22-Dec-19 80 09:24:3
22-Dec-19 80 09:21:2 2
1

006426
006406
007756

MRD.
1 2,=(SP)
#RD.10,-(SP)
W#FNC.4,=(SP)
#SIX.FMT,-(SP)
#7,~(SP)

000007
000020

SP.RO

48:

000001

com

BLE
RTS

; Routine Size:

004767
104466
006000
103773
000207

177516

T47::
18:

JSR
TRAP
ROR
B8LO
RTS

; Routine Size:

87 words

! <BLF/PAGE>

: TST.PAT
: TWICE

invocation:

9163

11 words

9185

6 words

9179
9184

9123

PC,8T47
66
RO

; Maximum stack depth per

9188

: SP,*

14
#20,SP
R1
R2
R2 .41
18
PC

; Maximum stack depth per

TOPS
PA:
<

invocation:

0 words

—

CZM ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

D 2
PAGE 445

20536 .mL4
Sgg :

23-0ec-1980 09:24:31
22-Dec=1980 09:21:22

20539 ;
20540 ;
20541 ;
20542 :
20543
20544 ;
20545 ;
20546 ;
20547 ;
20548 ;
20549 ;
20550 :
20551 ;
20552 :
20553
20554 ;
20558 ;

9189
9190
9191
9192
919
9196
9195
9196
9197
9198
9199
9200
9201
9202
9203
9204
9205

!
BGNTST;

20557
20558
20559
20560
20561
20562
20563
20564
20565

;
;
;
;
:
;
;
;

9207
9208
9209
9210
9211
9212
9213
9214
9215

!
!
!
!
!
!
!
!
!

20568 ;
20569 ;

9218
9219

!
!

20556 :

20566 ;
20567 .

9206

9216
9217

20570 :
20571 ;
20572 :
205738 ;
205764 ;
20575 :
20576 :
20577 ;
20578 ;
20579 ;
20580 ;
20581 ;

9220
9221
9222
9223
9224
9225
9226
9227
9228
9229
9230
9231

20583 ;

9233

20582 ;

SEQ 0432

9232

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

!¢+
! TEST NUMBER:
TST 48
!
! TEST NAME:
CRC DATA BUS TEST
!
! TEST DESCRIPTION:
!
TEST THE CRC DATA BUS BETWEEN THE CRC
!
GENERATORS AND THE CRC/MBUS DATA
!
MUX FOR CONTINUITY AND BIT UNIQUENESS
!
8Y:
!
!
1. WHILE IN ECC DJAGNOSTIC MODE DO
!
GOOD BLOCK TRANSFERS WITH VARIOUS
!
CRC A,CRC B AND PAR CRC WRD WHICH

!
!

WILL EXERTISE BUS CONTIRUITY AND

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
PROM DATA IS STORED OAND ACCESSED FROM.

!'-local
CRC_NIB,
CRC_TSTED,
ERR_FLG,
NIB_PAT;

'POINTER TO THE CRC NIBBLE
'STORES HOW MANY CRC NIBBLES WE HAVE TESTED
'ERROR FLAG
'TEST DATA FOR THE CRC NIBBLE

CRC_NIB = 9;

'SET CRC NIBBLE POINTER

incr LOQP from 0 to 4 do
begi

!REPEAT THE TEST WITH FIVE NIBBLE PATTERNS

B&S‘B:

!START OF THE SCOPE LOOP

CLR_MBUS;

20584 ;

9234

ECC_DM = ONE;

'SET ECC DIAG MOD

20586 :

9236

case .LOOP from 0 to 4 of

'SELECT ONE OF THE FIVE NIBBLE PATTERNS

20588 ;
20589 :
20590 -

9238
9239
9240

] :
NIB_PAT = %b'110°;

20585

20587 :

9235

9237

set

'PATTERN 0

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

E 2
PAGE 446

22-Dec-1980 09:21:22 PA:<NEALE>BL3IMLS .BLI.2 (98)

2059% ;MG

228234 :

20595
20596
20597
20598
20599

;

:
:
:

20600 :
20601

zg-oec-wso 09:24:31
9241
924
924
9244
9245

20609
20610
20611
20612

9255
9256
9257
9258

20613

20614

20615

20616 :

20617 :
20618

20619 :

20620 ;
20621 :

20622 :

20623 ;
20624 :
20625 :
20626

:
begi
ME1 = o~es.MLE2 =

9252
9253
9254

[2] :
8"1
CRE_A
= ONES:

'PATTERN 2

(3]

IPATTERN 3

CRCTB = ONES:
NIBZPAT = 1b'000°;
end?

9259

:
be in
_CRC wo ONES:

cac B

9260

end;

9262

9263
9264

€4 :
begin

9265

9266

cnc_mo ONES:

9267

NIB_PAT
= Ib 101°;

9268

DAT DM="ONE;
GD_BLK_XFER ();
MLTST = read;

20632 ;
20633

9278
9279

DELAY (ONE_LS);

20635 ;

9281

20634 :

9277

9280

tes;

end;

9274
9275
9276

20631 ;

'PATTERN &

CRCCA =

MLTST = write:

20628 :
20629 ;
20630 :

=TONES:

NIB_PAT
= xb 011°;

9261

9273

'PATTERN 1

end?

9269
9270
9271
9272

20627 :

TOPS-20 Bliss-16 v2(212)

NIB_PAT 16
= 001°;

9247

9248
9249
9250
9251

:
:
:
;

9246

20602 :
20603 :
20604 ;
20605

20606 :
20607 :
20608 :

SEQ 0433

GD_BLK_XFER ();

'SET UP A GOOD BLOCK TRANSFER

TIME_OUT_LOOP;

'WAIT UNTIL DRIVE READY

CRC_TSTED = ZERO;

begin

DO A WRITE TRANSFER

ISET DATA DIAG MODE
!SET UP A GOOD BLOCK TRANSFER
DO A READ TRANSFER

'TEST ONE CRC GROUP ‘6 CRC NIBBLES'

20636 :
20637

9282
9283

PD TEMP = .nPo;
DAT (LK =

'READ THE PROM DATA FOR THIS ARRAY 'JORD
1CLOCK OUT AN ARRAY WORD INTO THE O/.TA QJAG REG'S

20639 :

3532

RD_LNG_WRD?

'READ THE DATA DIAG REG'S INTO MEMORY

20638

9284

20641

9287

20643 ;

9289

20645

3223}

20642 ;

20644 :

9288

9290

DELAY (ONE usS

if .PD_TEMP [.CRC_NIB] IS_NOT_SET

then

begqi

CR rsrso = .CRC_TSTED + 1;

iDELAY ONE MICRO SECOND

'TEST THIS CRC NIBBLE IF GOOD

' INCREMENT THE GOOD NIBBLE COUNTER

TSTCLNG_WRD (.CRT_NIB, .NIB_PAT, ERR_FLG);

'TEST THE CRC NIBBLE

MISCELLANEOQUS coDnl

sfi

CZMLABO ML-11 LOG]

CTIM

MACRO M1113

22-DEC-B0 12:16

PAGE 447

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

if .ERR_FLG IS_SET
then

TOPS=20 Bliss=16 Vv2(212)

PA:<NEALE>BLIMLS.BLI.2 (98)

!SEE IF THE TEST FOUND AN ERROR

snflor (131, SYNC, DUMPER);
PRINTB (ron FMT, WRD 64, WRD 24, WRD 73, WRD 10);
PRINTB (FMT_S,
end;

!REPORT ERROR IF FLAG IS SET

-NIB_PAT, .NIB_SAVE (RIB 97, B);

end;
e nd

until

CRC_TSTED eql 6.

!REPEAT UNTIL ONE CRC GROUP HAS BEEN TESTED

ENDSUB;
end;

'END OF SCOPE LOOP

ENDTST;

111266
000006
000011

$748:

JSR

R1,$SAVES
#6,SP

ni
‘RS

RS Z(5P)

9187
;. *,CRC.NIB

;

CRC.NI8B,*

013120
120326

18:

TRAP

177777

120350

9230

9231

9232

#60,aML .REG+40
ML. DUT ,RéG
#7.,
.REG+40
R&.aML .REG+40
#1 .M .REG+120
R1.R%

120356

072736
20699 072740
20700 072744
20701 072746

9287

0177770 R4

120310

072726

9228

2s:

.WORD

3s:

MOV

A ¥

MOV

9234

gg(Rlo) PC
P

: *,NIB.PAT
#-1,3ML .REG+150

9240
9244

—

SEQ 0435

MLG

22-Dec-1980 09:24 :3
22-Dec~1980 09:21 :2 2

78:

120070
120174

, ML .REG+150

gl. R€6+150
K
R

&ML R .REG+120

GD.BLK.XFER

120042
108:

* NIB.PAT

NIB.PAT

* NIB.PAT

* ,NIB.PAT

120264
120256

REG+150
+160

CRC.TSTED

~, $STMP2

$S$TMP
$STMP

12%:

$STMP?

14%:

15%:
16$:

17%:

ML .REG+230,PD.TEMP

#20,aML.REG+120
#1 R3

~, $STMP2

LSDLY.R4

*, $STMP1

17§

168
6(SP)
R4
158

158
@ML.REG+170,D1.TEMP
aML.REG+200,D2.
TEMP

RS '§£§P)

#177770, (SP)
”,-(SP§
-(SP)
PC . BLSGT2

#10,5pP

9282
9283
9284

sSTMP
$STMP1

$STMP2

?;lP.REG*‘lbO.EZ.TEH’

20757 073256

9278

*, $SSTMP1

118:

13%:

TOPS
PA:<

6$:

e %4

120306
120310

EG+150
EG+160

58$:

8 3y

120326
120330

120352

Ve e V) VW W B0 %00, %0, 0,0, 4, %,

20703
20704
20

6 2
PAGE 448

22-DEC-80 12:16

20N

MISCELLANEOUS CODING SECTION

MACRO M1113

o N¥S3 243233 vt

CZMABO ML-11 LOGIC TEST

CRC.NIB,*

9287

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

20759

22-Dec-1980 09:24:31

0
0

20764
20765
20766 073276
20767 073276
20768 0
20769 0

005700
001066

005266 000002
010546
012;46
012746 000012
060616
804.767 122636

20770
073310 086627 000012
20771 073316
001047
20772
0
104455
20773
0
000203
20774 073326

024052
012746 006406
012746 007310
012746 006552

20783

104414

20779 073344
20780 073350
20781 073356
20782
073360
073362

20784 073364
20785 073370
20786 073374
20787 073376
20788 073400
20789 073402
20790 073404
20791 073406

20792
073412
20793 073414
2079% 073416
795 073422
20796 073426
20797 073430

012746
012746
012746
010600

007224
006046
000005

012716
016704
006204
006204
w

000010
115562

000304
042704

010446
010246
012746
012746
010600

000001

004430
000004

2283}? 073500

000207

#10, (SP)
NIB.SAVE+4,Ré
R4
R4
R4
R4

000010

208:
218:

; ERR.FLG,*

9293

9296

;

9297

; SP,*

;

9298

Ré
#177770 R4

MOV

SP.RO

: SP,w

ADD

#24,SP

;

TRAP

ROR
177172

: ERR.FLG,*

: NIB.PAT,*

oo
e

9290
9291

: NIB.PAT.*

Ré&,~(SP}
R2.~(SP)
#FMT.5, ~(SP)

TRAP

1046467

003
062706

MOV
MOV
ASR
ASR
ASR
ASR

MOV

006000

20807 073466 ozo;% 000004

20808 073472
20809 073474

MRD
. 64 ,~(SP)
#FOR.FMT
- (SP)
#5.-(SP)
SP.RO

MOV
MOV
MOV

; CRC.TSTED
* CRC.NIB,

TOPS

PA:<

SYNC

MOV
MOV
MOV
MOV

SWAB
BIC

177770

104414

10300,
000167
005201

DUMPER
m.;g.-(sm
MRD. 73, ~(SP)
MRD
. 24 .~ (SP)

TRAP

20804 073456
20805 073460
20806 073464

.WORD
MOV
MOV
MOV

-WORD

o0 or3azs
000003 000006 195
So801 or3ese 0073%%
073452

P
BNE
TRAP
LWORD

RO
19
2(SP)
RS,~(SP)
R2.=(SP)
#12,~(SP)
SP, (SP)
PC.TST.LNG.WRD
12(SP) .M
18%
S5
203

INC
MOV
MOV
MOV
ADD
JSR

20798 073432 825706 000024

20803 073454

22-Dec-1980 09:21:22

ST
BNE

010526

20775 0
20776 0
20777 0
20778 073340

20812
20813

SEQ 0436

;MLG

228;2(1)

20762
20763

H 2
PAGE 449

22-DEC-80 12:16

#4,-(SP)
14

% we
8

9295
o.

9504

BHIS
UwP
INC

21$
18
R1

: LOOP

9230

BLE
ADD

20§
#10,SP

9187

RTS

R1,#6

: LOOP,*

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

23 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

20815
20816

228%% 0;‘}5502

004767

20836 073514

000207

073506
20834 073510
20835 073512

20837
20838
20839

20844
20845
20846 ;

I 2
PAGE 450

SEQ 0437

H, T
:

20817
2082
20827

%1 073502

22-DEC-80 12:16

104466
006000
103773

9310

177116

T48::
18:

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

JSR

PC,$T48

RTS

TRAP
ROR
8LO

]
.
; Routine Size: 6 words
. Maximum stack depth per invccation:
!<BLF/PAGE>

66
RO
18

0 words

TOPS
PA:<

9307

CZMABO ML-11 LOGIC TESY

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-B0 12:16

J .2
PAGE 451

20848 :mL4
208ng :
20851
20852
208S3
20854
2085S
20856
20857
20858
20859
20860
20861

;

22-Dec~1980 09:24:31
22-Dec~1980 09:21:22
!
BGNTST

;
;

9311
931
931
9314
9315
9316
9317
9318
9319
9320
ggg}

20863
20864
20865
20869

;
;
;
H

9323
9324
9325
3%%9

|
!
|
:

20868
20869
20870
20871
20872
20873
20874
20875
20876

;

9328
9329
9330
9331
9332
9333
9334
9335
9336

|
|
|
i
|
|
|
|
|

20880
20881
20882
20883
20884
20885
20886

:;
;
:
;

9340
9341
9342

|
!
i

;
;
:
:
:

;
;
:
:
:
:

20877 :
20878 ;
20879 .

SEQ 0438

9337
9338
9339

TOPS-20 Bliss=16 Vv2(212)
PA:<NEALE>BLIML¢.BLI.2 (99)

'++
! TEST NUMBER:
TST 49
|
| TEST NAME:
UNJQUE NIBBLE CRC GENERATION TEST
|
i TEST DESCRIPTION:
|
TEST CRC CODES GENERATED FNR ONE CRC
:
GROUP (52 UNIQUE UNIBUS NIBBLES) BY:

|
|
|

DOING MASS BUS WRITE TRANSFERSS WITH THE

FIRST ]O BUF CRC GROUP HAVING S1 NIBBLES

OF XB'0000' PATTERN AND THE REMAINING NIBBLE
WITH PATTERNS OF X8°'0000° TO %B'1111°,

THEN IN DATA DIAGNOSTIC MODE CALCWLATE
THE CRC CODE FOR THE FIRST CRC
GROUP AND COMPARE IT AGAINST THE
HARDWARE GENERATED CRC CODE.

REPEAT PATTERN OF IB'0000° TO 2B'1111°
FOR EACH OF THE 52 NIBBLES.

IMPLICIT INPUTS:

10_BUF
“VECTOR OF 256 WORDS WHERE DATA
FOR MBUS READS AND WRITES TRANSFERS
IS FOUND.

9343
9344
9345
9346

local
DODU_FLG
,

!DROP UNIT FLAG

20888 .

9348

NIB SEL

'SELECTS 4 BITS °ONE NIBBLE' FROM THE 10_BUF

9351
9352

1incr CNT from O to 13 do
I0_BUF [.CNT] = ZEROES:

!CLEAR THE FIRST 14 ]O_BUF WORDS

incr iRD CNT from 0 to 12 do

!DO THIS TEST ON 13 10_BUF WORDS

20887 ;
20889

20891 ;
20892

20893 :
208% .
20895 ;
20896 :
20897 ;
20898 ;
20899 .
20900 ;

20901 ;

9347
3:3"28

9353
9354
9355
9356
9357
9358
9359
9360

9361

i—

TEMPTM,

oooD FLG = 2EROES;

'TEMPORARY STORAGE LOCATION
'CLEAR THE DROP UNIT FLAG

NIB_SEL
=

'RESET THE NIBBLE SELECTOR

incr NIB_TST from 0 to 3 do
begin

'DO THIS TEST ON & NIBBLES PER WORD

if (LWRD_CNT eql 12) and (.NIB_TST eql 2) then exitloop;

'THE LAST 2 NIBBLES ARE NOT TESTED

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

K 2
PAGE 452

20904 ;ML4
20905 ;

SEQ 0439

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

20907 ;

9363

NIB SEL NIB SEL + &;

20910 ;

9366

incr NIB_PAT fram Xb'0000' to %b'1111° by %b'0001° do

20912 :
20913 :

9368
9369

20908 :
20911 ;
20914 ;
20915 ;

20916 :

20917 :
20918 :
20919 ;

20920 :

33322

9367

:
TEMP<.NIB SEL, 4> = .NIB PAT;
10 BUF C.QRD_CNT] = .TEMP;
mMBUS;

CLR

9372

GD_BLK_XFER O);

9373
9374
9375

M.UST = write;
TIME _OUT_LOOP;
A_GER = 2EROES;

9376

B_GEN = 2EROES.

9378

A_CAL = ZEROES;

9377

20923 :

9379

20926 ;
%%g :

ZEROES;

9370
9371

20921 ;

20922 :

TEMP
=

' INCREMENT THE NIBBLE SELECTED
'CLEAR

'SET UP A GOOD BLOCK TRANSFER

'DO A WRITE TRANSFER
'WAIT FOR THE TRANSFER TO COMPLETE
'CLEAR THE GEN & CAL STORAGE LOCATIONS

P_GEN = ZEROES;

B_CAL = 2EROES;

9380
g_;’g}

P_CAL = ZEROES;
CAL_CRC O);

'CALL ROUTINE TO CALCULATE THE CRC CODE FOR THIS PATTERN

if ERR_CHK_CRC ()

INOW SEE IF THE GEN CRC IS SAME AS CAL CRC

20929 :
20930 ;
20931 ;

9385
9386
9387

20933 :

9389

PRINTB (FMT-20, .B_CAL, .A_CAL, .P_CAL);

20935 ;
20936 :

9391
9392

end;”

20934 :

20937 :
20938 ;
20939 ;

9384

9399

20945 :

9401

20946
20947 ;

20948 ;
20949 :
20950 :

20951 :
20952 :

ENDSUB;
end;

9395

20943 :
20944 ;

DODU_FLG= ONE;

9393
9394
9397
9398

9400

9402
9403

9404
9405
9406

9407
9408

b;agn
'"REPORT THE ERROR IF NOT THE SAME
ERRDF (132, SYNC, DUMPER);
PRINTB (THR_FMT, WRD 5. WRD 64, WRD 8):

PRINTB (FMT-19, .B_GEN. .A_BEN. .P_BEN);

9390

9396

20941 :
20942 :

then

9388

20940 :

'RUN PATTERNS ON THEIS N/BBLE

'LOAD THE GENERATED PATTERN INTO THE I0/3UF

9383

20932 :

TEMP LOCATION

'START OF SCOPE LOOP
'LOAD PATTERN INTO TEMP AT THIS NIBBLE

20927 :

20928 ;

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

10_BUF [.WRD_CNT] = ZEROES;

end;

'END OF SCOPE LOOP

'CLEAR THIS 10_BUF WORD FO NEXT NIBBLE

end;
1f ooou FLG IS_SET
D(flun

(.ML_LUN);
oocm
end:
ENDTST;

'DROP THIS UNIT IF THE DODU FLAG GOT SET

000002
18:

011600
000015
177774

2$:

000014

3s:

000002
000004

5%:

Jdd

OO0 000000

gREBIREEG
WN=O

REANANNNRNNNTRNNN
2232

004767
006000
103055
104455

JSR
cMP
CLR
CLR
MOV
ASL
CLR
INC
P
BLE
CLR

R1,$SAVES
=(SP) ,~(SP)

2(SP)

RO
RO.R1
R1
10.8UF (R1)
RO
RO.#15
18
R2
#-4,(SP)
R2.R1
R1

Ré
R2.#14
4$
R4, #2
8s

9309
DODU.FLG
CNT
=
CNT

9349
9351
9352

CNT
=
CNT,

9351

. CNT
WRD
~ ,NI1B.SEL
WRD.CNT,»

9354

NIB.TST

WRD.CNT,

#4,(SP)
RS

* ,NIB.SEL
TEMP
NIB.PAT

2
R5,-(SP)
2(SP) ,~(SP)

TEMP ,»
NIB.SEL.,*

R3,=~(SP)

NIB.PAT,*

RS’ 10.BUF (R1)

TEMP,»

#4,-(SP)

PC.BLSPUI

117344

gb.afigscwo

117326

#7 .M .REG+40

117250

SEQ 0440

7976
RO

RO.aML .REG+40

PC.GD.BLK.XFER

#61,aML _REG

aML .REG+50

.CRC
.CHK. CRC

~, TEMP

9361

$749:

00000

110374

iolelelolelelal

004167

3 83331

5
SSEETTEE
ig A
X
fiEiSRk2R o387R
SR

MISCELLANEOUS CODING SECTION

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

v 2VV
4 Y VD> VD> A

CZMABO ML-11 LOGIC TEST

9367
9370

CZM_ABO ML-11 LOGIC TEST

KRS

TOPS
PA:<

§§§=

L L L E R L LEE R LLLEE

g\l\l

O QOOOOOOOOOO

oo
o
NN ~

358

23S

MRD.5,=(SP)
ATHR.FMT ,~(SP)
#4,~(SP)

P.GEN, (SP)

9388

A.GEN.=(SP)
8.GEN,~(SP)

#FMT.
19, ~(SP)
#6,~(SPS
14

P. CAL, (SP)
A. CAL ,-(SP)

I 20,~(SP)

Lidal

9389

-(SP)

(sP§

;

SP,*

; *,DODU.FLG

S Fa
S
R &R

(=1 =l

b
b

000014
177372
000002
117402

N
~

: 31
:22

9387

MRD.64, - (SP)

44 (SP)

SEQ 0441

22-Dec-19
22-Dec=19

ZTRERERER 2 §O FRRAS
ISR RERRER 23 SHREREREEIRREEREREE

eololele]

(NN N
NN NN NN NN NN
NN NN
NN NN
RN

M 2
PAGE 454

22-DEC-B0 12:16

d ol

2107

VO ~yO N

MISCELLANEOUS CODING SECTION

MACRO M1113

; NIB.PAT
; NIB.PAT
=

R3.m7
5%
10.BUF (R1)

R4
R4, N3

; NIB.TST

: NIB.TST,»

R2
R2.M4
]

2s
2(sP) ,”

108
ML.LUN,RO

9396
9358

; WRD.CNT
; WRD.CNT
,»

9354

; DODU.FLG,*

9401

44
(SP)+,(SP)+

9309

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

25 words

CZTM 230 ML-11 LOGIC TEST
PiSCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

N 2
PAGE 455

SEQ 0442

21077
21078
1082

1086 074
1087 074

1088 07421
21089 074216
21090 074216
g}%} 074220

004767

104466
006000
103773
000207

177304

21093

JSR

TRAP
ROR
B8LO
RTS

; Routine Size:

%]‘8349

21100
21101 ;
21102 ;

T49::
18:

PC,8T49

6 words

; Maximum stack depth per invocation:

9409
94610

!
!<BLF/PAGE>

;

66
RO
1%
PC

0 words

9406

8 3
PAGE 456

911
941%
941
9614
9415
9416
9417
918
9419
9420
9621
9422
9423

!
BGNTST;

21122
21123
211264
21125
21126
21127
21128
21129
21130
21131
21132
21133
2113
21 35

9426
9427
9428
9429
9430
9631
9632
9433
9634
9435
9436
9437
9438
9439

!
2.
THEN IN DATA DIAGNOSTIC MODE
!
CALCULATE THE CRC CODE FOR THE
!
FIRST CRC GROUP AND COMPARE IT TO
!
THE HARDWARE GENERATED CRC CODE.
!
! IMPLICIT INPUTS:
!
10_BUF
!
A VECTOR OF 256 WORDS WHERE DATA
!
FOR MBUS READS AND WRITES TRANSFERS
!
IS FOUND.
!
=

%HS? N
;
;
;
;
:
;
.
;
;
.
;

22-Dec-1980 0 9: 24: 3
22-Dec-198 00 9:21:
21: 22

g‘o‘%‘so

21136 ;

9440

21138 ;
21139
21140 ;
21141 ;

9442
9443
9444
9445

21137 ;

9441

21142 ;
21143 ;
21144 ;
21145 ;
21146 ;
21147 ;

9446
9447
9448
9449
9450
9451

21149 ;
21150 ;

9453
9454

21148 ;

21151 ;

21152 :
21153 ;

21154 ;

21155 ;
21156 ;
21157 ;
21158

9452

9455

'++
! TEST NUMBER:
TST 50
!
! TEST NAME:
UNIQUE WORD CRC GENERATION TEST
!
| TEST DESCRIPTION:
!
TEST CRC CODES GENERATED FNR ONE
!
CRC GROUP (13
UNIBUS WORDS) BY:
!
!
1.
DOING MASS BUS WRITE TRANSFERS

USING VARIOUS WORD DATA PATTERENS.

local

DODU_FLG,

TST_PAT;

!CLEAR THE DROP UNIT FLAG

incr PAT_SEL from 0 to 3 do

!RUN THE TEST ON 4 PATTERNS

H
CLR_MBUS;

!START OF SCOPE LOOP

case .PAT_SEL from 0 to 3 of
set

!SELECT ONE OF

J :
TST_PAT = ONES:

1] :
TST_PAT = 20°'052525°;

9459
9460

] :
TST_PAT = %0°125252°;

9461
9462

!DROP UNIT FLAG
!TEST PATTERN SAVE LOCATION

DODU_FLG = ZEROES;

9456
9457

9458

TOPS~20
PA: SNEAL

(3] :

THE & PATTERNS

-1

2(212)
1.2 (100)

®<

21104 .mLé
21105 ;
21106
21107 ;
21108 ;
21109 ;
21110 ;
21111 ;
2112 ;
21113 ;
211146 ;
21115 ;
21116 ;
21117 ;
21118 ;
21119 ;

SEQ 0443
~O

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS C0
1))|

Sfl

CZMLABO ML-11 L 0G!

MACRO M1113

ST
E CTION

22-DEC~80 12:16

PAGE 457

51160 H, K

22-Dec~-1980 0 9:24:3
22-Dec~1980 09: 21:2 2

PR PR TS FIR PN ¥

tes.

PRTR

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

TST_PAT = %0°'070707";

incr CNT from 0 to 255 do

!LOAD THE FIRST 13 I0_BUF WORDS WITH TST_PAT

GD_BLK_XFER ();

1SET UP_A GOOD BLOCK TRANSFER
!DO A WRITE TRANSFER
!WAIT FOR THE TRANSFER TO COMPLETE
!CLEAR THE GEN & CAL SAVE LOCATIONS

10_BUF [.CNT] = ,TST_PAT;

TRTR FE PN FEFE FEFE

ST =

B9 00 0000805 0,0%00080,% 0300998000054, % I PR

!CALCULATE WHAT THE CRC CODE SHOULD BE
if ERR_CHK_CRC
then
begin

()

!NOW SEE IF THE GENERATED CRC CODE IS THE SAME
!REPORT THE ERROR IF NOT THE SAME

ERRDF (133, SYNC, DUMPER);

PRINTB (THR_FMT, WRD S, WRD_64, WRD 8):

PRINTB (FMT_19, .B_GEN, .A_GEN, .P_ BEN) ;

PRINTB (FMT_20,

DODU_FLG = ONE;

.B_CAL,

.A_CAL,

.P_CAL):

end;

ENDSUB;

'END OF

end;

if .DODU_FLG IS_SET
then

SCOPE LOOP

!DROP THIS UNIT IF

THE DODU FLA6 GOT SET

begin

oogu C.ML_LUN);

DOCIN;
end;

ENDTST;

o o

e e

) wicd

b e

b d mad

b crmb cnad

b e

b ok

b e

) md e

md =D

b h =D

D b

AINIAIAIAI NI NIALNIAI NI NINIAI A NININIAI NI AL NI NI NI NIAI NN AL NN A NI N ALNINI NN A

RE R SRS R SRR TR B R R 2B I I NN IIBEIRERERS

21208 074222
21209 074226

21210 074230
21211 074232
21212 074234
21213 074242

SEQ 0444

107670

016703

000040

117334

$750:

116752

JSR
CLR
CLR

R1,$SAVES
RS
R4

81s8

#40,8ML .REG+40

TRAP

MOV

ML.DUT,R3

;
; DODU.FLG
; PAT.SEL
:
:

9408
9443
9445
9446
0447

CIMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

21215

042703
142777
150377

177770
000007
116730

o1oao§
00630
066307 074274
000010

21228 074306
21229 074310
21230 074312
21231 074316
21232 074320
21233 074324
21234 074326
21235 074332
21236 074334
21237 074336
21238 0764340
21239 074344
21260 074346
212641 074352
21262 074354
21263 074360
21264 0764366
21245 074372

012701
000410
012701
000405
012701
000402
012701
005002
010203
006303
010163
005202
020227
003770
004767
012777
105777
100375

000016
000024
0000

21246 074374
21247 074400
21248 076404

005067
005067
005067

21255 074436
21256 074440
21257 074442
21258 074444
21259 074446

103054
104455
000205
810526
024052

21266 074476

104414

21249 076410
21250 074414
21251 074420
21252 074426
21253 0764430
21254 074434

21260 074450
21261 074454
21262
074460
21263
074466
21264 0764470
21265 074474

3
SEQ 0445

22-Dec-1980 09:24:31

;

21221 074
21222 074266
21223 076270
21224 074274
21225 074276
21226 074
21227 074302

PAGE 458

MLG

gg}g
21218 0742646
21219 074952
21220 074

22-DEC-80 12:16

005067
382327
7
004767
004767
006000

177777
052525
125252
070707

116734

28:

38:
48:
5$:
68:
78:
8s:

011600
000377
121502
000061 116566
116632
98:
116546
116544
116542

116524
116522
116520
120162
120556

012746
012746
012746
012746
012746
010600

006360
007224
006330
006034
000004

21267 074500 016716
21268 074504 016746
21269 074510 016746

116446
116436
116434

20-Dec~1980 09:21:22
BIC
BICB
BISB

#177770,R3
#7.aML.REG+40
R3.aML.REG+40

WORD
‘WORD
WORD

4$-2%
5$-2%
6$-28

MOV
ASL
ADD
.WORD

TOPS

PA:<

R&.P3
R3
gmmc
-2%

; PAT.SEL,*

9450

MOV
BR
MOV
B8R
MOV
B8R
MOV
CLR
MOV
ASL
MOV
INC
P
BLE
JSR
MOV
TSTB
BPL

#~1,R1
78
#52525.R1
78
#-52526,R1
7$
#70707 R
R2
R2.R3
R3
R1,10.BUF (R3)
R2
R2,W377
8s
PC,GD.BLK.XFER
#67,aML .REG
aML.REG+S0
98

; *,TST.PAT
:
P« TST.PAT
:
o« TST.PAT
:
P« TST.PAT
* CNT
P CNT,*
; TST.PAT,«
: CNT
* CNT,*
:
;

94,54,
945
945
9%
9%

946
97

CLR
CLR
CLR
JSR
JSR
ROR

A. CAL
8. CAL
P.CAL
PC.CAL.CRC
PC.ERR. CHK. CRC
RO

;
:
:

:
:
:
:
:

9%
9
9474

9475
94,76,
9477
9478
9480

;

9483

;

9484

CLR
CLR
CLR

8CC
TRAP
.WORD
JWORD
.WORD

A.GEN
B.GEN
P.GEN

108
S§
205
SYNC
DUMPER

MOV
MOV
MOV
MOV
MOV
MOV

MRD.8,-(SP)
m.g&.-(sm
MRD.S,=(SP)
ATHR.FMT ,=(SP)
#6,~(SP)
SP.RO

MOV
MOV
MOV

P.GEN. (SP)
A.GEN,-(SP)
B.GEN.-(SP)

TRAP

946
966

; SP,w
;

9485

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

$i573
212;§

21274 074514
21275 0745
21276 074524
21277 0745
21278 0745
21279 0745
21280 074540
21281 074544
21282
074550
21283
074554
21284 074556
21285 074560
21286 074564
21287 074570
21288 074572
21289 074574
21290 074576
21291 074600
21
076604
21293 074606
21294 074610
21295 074612
21296 074616
21297 074620
21298 074622
21299

21300
21301
21306
21307
21311
21315 074624
21316 074624
21317 074630
21318 074632
21319 074634
21320 074636
21321
21322
21323

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

3
SEQ 0446

H, K
01%746
012746
010600
104414
016716
016746
016746
012746
818746
O1
104414
012705
062706
104467
006000
103616
005204
020427
003612
005305
001004
016700
104451
104444
000207

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

005412

#FMT.
9, =(SP)

¥4 ,~(SP}
SP.RO
1

116410
116400
116376
005462
000004
000001
000032

P.CAL, (SP)
A.CAL.~(SP)
8.CAL .~(SP)

9486

NFMT .20 ,~(SP)
#4,-(SPS
SP RO

; SP,x

14
#1,R5

; *,DODU.FLG

d;é.SP

108:

000003

s PAT.SEL

9445

s DODU.FLG

9493

116762

PAT.SEL,*

9496

118:

9408

; Routine Size:

177372

9487
9488

129 words

; Maximum stack depth per invocation:

004767
104«66
006000
103773
000207

TOPS
<
PA:

T50::
1%:

JSR

TRAP
ROR

8LO
RTS

: Routine Size:

19 words

PC,$T50
66
RO
1$

9498.

6 words

. Maximum stack depth per

invocation:

0 words

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

21334 ;

9501

MACRO M1113

!<BLF/PAGE>

22-DEC-80 12:16

F 3
PAGE 460

SEQ 0447

—

MACRO M1113

CZMABO ML-11 LOG IC TE
MISCELLANEOUS COD ING S ECTION

Ao
by
RIXIEE ELRERERE o

RN N
—bd

b ad and wvd

Ve Ve 00003 8,%0 050, %00, %085 038 % 0, %%, 0,088 09% % %9%09¢ %999 %0 800000 %0 90886099900 0e%0 0800000800,

21336 .ML4
21337 ;
21338
21339

SEELRERE

21382

22-DEC-80 12:16

G 3
PAGE 461

SEQ 0448
22-Dec-1980 09:24:31
22-Dec-1980 09.21:22

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

2308 BGNTST;
]

‘e

TEST NMBER:

TEST NAME:

TEST DESCRIPTION:

TST 51
CORRECTABLE ERROR SYNDRONE DECODE

TEST SYNDRONE DECODE AND ERROR

i
i

CORRECTION TO DECODE AND CORRECT
SINGLE BIT AND MLTIPLE BIT

i
i

CHANNEL ERRORS BY:

i
i
i

VIA ECC DIAG MODE FORCE SYNDRONE
BITS TO DECODE SINGLE BIT AND
MULTIPLE BIT CHANNEL ERRORS.

:
i

TEST

THEN DO A MASS BUS READ TRANSFER
AND EXAM THE 10 BUF FOR CORRECT

BIT COMPLIMENTIRG.
IMPLICIT INPUTS:

1o_gur
“VECTOR OF 256 WORDS WHERE DATA
FOR'MBUS READS AND WRITES TRANSFERS

IS FOUND.

ocal
BITS_XFERED;
BA] = ONE.
10_BUF = ZEROES

GD_BLK XFER O);
M. CS1 = write;
TIME_OUT_LOOP;

'POINTS TO THE CHANNEL BEING6 TESTED
'BEFORE WE START LETS CLEAR OUT THE ML11°'S
'GOOD BLOCK BY WRITTING ZEROES TO IT

BITS XFERED = =1;

'RESET THE CHANNEL POINTER

incrbl:LQG from 0 to S do

'TEST ONE CRC GROUP ‘6 ARRAY WORDS'

gin

incr CrML from 0 to 35 do

B&Slfl

'TEST 36 BITS IN EACH ARRAY WORD

'START OF SCOPE LOOP

CLR PBUS

'CLEAR THE DRIVE

incr CNT from 0 to 255
d

!CLEAR THE FIRST CRC GROUP IN THE

BITS XFERED BITS_XFERED + 1;
10_BUF [.CNT]
=ZEROES

'INCREMENT THE CHANNEL POINTER
10_BUF

—

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 462

2139§sMLG
21393

SEQ 0449

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

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

21395 ;
21396 :

9554
9555

FORCE_REM (.PLOG,

21399
%}28? :

9558
gggg

nLcs = re
TIME_OUT_ Looé

iDO A READ TRANSFER
IWAIT FOR THE TRANSFER TO COMPLETE

21402 :

9561

if not FIND_COMP_BIT (.BITS_XFERED)

ISEARCH THE 10_BUF FOR THE COMP BIT

21397
21398 :

9556
9557

GD BLR XFER ();
ECC DIS = z RO

'FORCE THIS BIT IN THIS WORD IN ERROR

'SET UP A GOOD BLOCK TRANSFER
ICLEAR ECC DISABLE

21403 :
21404 :

9562
9563

21406 :

9565

PRINTB (THR_FMT, WRD 74 mo 75,

21408 ;
21409 ;

9567
9568

end;

21412 ;
21413 ;

9571
9572

21415

9574

21405

216407 :

%}2119 :

21414 ;

then

.CHANNEL):

9564

'REPORT AN ERROR IF THIS BIT IS NOT COMP

ERRDF (134, SYNC. DUMPER);

9566

PRINTB (FMT_21, .PLOG,

3298

.CHANRELS:

PHR_1);

incr WRD_CNT from 0 to 12 do

'SEE IF ANY OTHER BITS GOT COMP'ED

if .10_BUF C.WRD_CNT] neq ZEROES
then

9573

bagin
ERRDF

(135, SYNC. DUMPER);

21416 :

9575

PRINTB (FOR_FMT, WRD 61 mo 74,

21418 :

9577

end:

21420 :
21621

9579
9580

214617 &

21419 ;

21622 :

21423 :

9576

PRINTB (FMT—21, .PLOG.

9578

9581

9582

'TEST THE 10_BUF FOR ZEROES

'REPORT AN ERROR IF ANY OTHERS ARE SET

.CHANRELS:

ENDSUB;
end;

WRD_75, PHR_S);

'END OF SCOPE LOOP

end:;

21424 :

9583

%gg

BITS_XFERED = -1;

IRESET THE CHANNEL POINTER

21627 :
21428

9586
9587

1incr CHANNEL from 0 to 35 do
begin

'TEST 36 CHANNELS FOR MULTIPLE BIT ERRORS

21430 ;

9589

%}zsg :

21429

eeflsw-

ISTART OF SCOPE LOOP

ggg?

BITS_XFERED
= .BITS_XFERED + 1;

| INCREMENT THE CHANNEL POINTER

21433 ;

9592

incr CNT fram 0 to 20 do

!CLEAR THE FIRST CRC GROUP IN THE 10_BUF

21436

9595

FORCE_REM (58,

'FORCE ALL 6 BITS IN THIS CHANNEL IN ERROR

21438 :

9597

ECT DIS = ZERO:

211&12 :

g}gg :

21437

21439 ;

9588
gggz

9596

CLR_MBUS;

10_BUF C.CNT] = ZEROES;

GD BLR XFER (J;

.CHANNEL):

gmg :

9598

9599

ML (51 = read;

gmg :

323}

incr BIT_OFFSET from 0 to 180 by 36 do

3}2‘2‘5 :

9603

21446 :

9605

9604

TIME_OUT_LOOP;

ICLEAR THE DRIVE

iSET UP A GOOD BLOCK TRANSFER
ICLEAR ECC DISABLE

IDO A READ TRANSFER

'WAIT FOR THE TRANSFER TO CMOPLETE
'SEE IF EVERY 36TH BIT GOT COMP'ED

;'f' not FIND_COMP_BIT (.BITS_XFERED + .BIT_OFFSET)
en

begin

ISEARCH THE 10_BUF FOR THE COMP'ED BITS

'REPORT AN ERROR IF ANY OF THE BITS ARE NOT COMP'ED

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

PAGE 463

21648 ;M6
%}2453 ;

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

21451 ;
21452 ;
21453 ¢
21454 :

9606
9607
9608
9609

%112% :

32}5

21455

9610

21458 :
21459 :
21460 :
21661 &

9613
9614
9615
9616

21664

9619

21466 ;

9621

21468 :

9623

21662 :
21463 ;

21465

21667

%}267‘; :

9620

incr WRD_CNT from 0 to 12 do

end;
ENDSUB;

9624

ENDTST;

21479 074652

005067

21482 074670

105777

107252

000010
114722

21480 074656 004767 121200
21481 0764662 012777 000061
2" 483 074674 100375
484 074676 012705
21485 074702

005004

21487 074706
21488 074710

10440
152

21486 074704

21489 074716
21490 074722

21491 074;52 142
21492 074
21493 074740
2149 074742

150277
005205
005001

21497 074750
21498 074754
216499 074756

005062
005201
(20127

21501 074764

010446

21495 074744 010102
21496 074746 006302

21500 074762

116330

116342

116264

003770

'END OF SCOPE LOOP

$TS1:

18:

177777

005003
016702
2779;

'TEST THE 10_BUF FOR ALL ZEROES
'REPORT AN ERROR IF ANY OTHERS ARE COMP'ED

PRINTB (FIV FMT, WRD_61, ERD 74, WRD_75, WRD_12, WRD_67);
PRINTB (FMT 21 S8, .CHNW{ Y;

end;

152777

'ALSO SEE IF ANY OTHER BIT GOT COMP'ED

if .10_BUF [.WRD_CNT) neq ZEROES
then
R3
ERRDF (135, SYNC, DUMPER):

9622

006167

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

ERRDF (134, SYNC. DUMPER);
PRINTB (THR_FMT, ‘WRD_74, WRD_75, PHR_1);
PRINTB (FMT-21, 58, -CHANNELT;
end;

9617
9618

21477 076640

21478 074644

SEQ 0450

28:

000040

116660
177770

116276

3s:

000007 116260
48:
000377

R1,$SAVES

;

CLR

10.8UF

#10,aML.REG+40

JSR
MOV

PC,GD.BLK.XFER
#61 .3 .REG

BPL
MOV

9500

9536

9537

:
:

9538
9539

18
#-1,RS

; *,BITS.XFERED

9541

CLR

+ CHANNEL

MOV
BIC

ML.DUT ,R2
#177770 ,R2

BISB
INC
CLR

TSTB

CLR

TRAP
BISB

BICB

116254

011600

JSR

BISB

MOV
ASL
CLR
INC
P

BLE

MOV

@ML.REG+S0
R4

2
#40,aML.REG+40

: PLOG

954,

:
:

954,
9548,

R2.aML.REG+40
RS
R1

: BITS.XFERED
* CNT

9550
9552

10.8UF (R2)
R1
R1.4377

; CNT
T CNT,*

9552

R4 ,-(SP)

; PLOG,*

9555

#7.3ML.REG+40
R1,R2
R2
43

: CNT,»

9553

CIRABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

21503
21504
21505

J 3
PAGE 464

-—t

d e

b e

nd —d wd

RikieRRaces

22-Dec=1980 09:24:31
22-Dec=1980 09:21:22
R3,~(SP)

120606
121062
000002
000071
116204

PC.FORCE .REM

120400

PC,FIND.COMP.BIT

9561

9564

9565

MRD
.74 ,~(SP)

#THR.FMT ,~(SP)
#4,~(SP)

SP,

;

SP,*

R3,(SP)

;
:

CHANNEL
,*
PLOG,*

;

SP,*

R4 ,<(SP)
#FMT.
21 -(SP)

005534
000003

#3,-(SPS
RO

000020

; WRD.CNT
: WRD.CNT,»

9566

9563
9571

011600

9574

007472
00

007316
007174
006046
000005

[«]

OOO00 OO

; BITS.XFERED, «

(s6)+

005534
000003

8388333833332 :

e!EREDERLERRERRNE
PSS
R

XXEE
N, AAAAAAS S
p\h\h\_fl. SokmN
0

[WNANRNN
X
b ol a=b -

NN N

075
21555 075206
21556 075212
21557 075216

9556
9557
9558

#71, 9 .REG
aML _REG+S
58
RS,-(SP)

TOPS
PA:<

CHANNEL
,*

PC.GD.BLK.XFER

21541 0

;

c; ML REG+120

007366
007330
007316

(W 1V, 1V 1V, ] W

SEQ 0451

; CHANNEL
,*
: PLOG,*
.

SP..

9576

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

1559

3
SEQ 0452

22-Dec-1980 09:24:31

:
075220

104414

21565 075

020127

21566 075234 003733
21567 075
022626

8s:

000014

21568 075240 134467
21569 075242

103620

21574 075256
21575 075260
21576 075264

005204
020427
003607

000005

21580 075276

152

000040

21581 075304

075310

21583
075314
21584 075322
21585 075326
21586 075330
21587 075332

21588 075334

21589 075336
21590 075342

21591 075344
21592 075350
21593 075352
2159 075356
21595 075360
21596 075364
21597 075370

016704

042704

116272

177770

000007
115666

005062
005201

011600

ozo;%
003
012746
010
004767
004767

21599 075406

21605 075424

21606 0754
21607 075430

21608 075432
21609 075434
21610 075436
21611 075440

120216
120472

105777

115614

BLE
cTMP

78
(SP)+,(SP)+

;

9547

115550

120004

104455

21612 075442 012746 007366
21613 075446 012746 007330

RO
3

9577

; CHANNEL
* CHANNEL
,*

9546

: PLOG
* PLOG,

9543

MOV
CLR
TRAP

R4
R& A5
2s

#-1,RS
R3
2

ML
. DUT R4

9584
9586
9587

MOV

#40,aML.REG+40

; *,BITS.XFERED
* CHANNEL
:

BICB
BISB
INC
CLR
MOV

#7 @ .REG+40
Re«,@ML.REG+40
RS
R1
R1.R2

; BITS.XFERED
: CNT
: CNT,»

9590
9592
9593

10.BUF (R2)
R1

BISB

ASL

9588

#177770.R4

P
BLE
MOV
MOV
JSR
JSR

R1,#24
10§
#72.-(SP)
R3.~(SP)
PC.FORCE .REM
PC.GD.BLK XFER

; CNT

9592

:
: CHANNEL,*

9595

9596

MOV

#71 .,

95931

; BIT.OFFSET
: BIT.OFFSET,»
: BITS.XFERED,»

9601
9603

9606

;

9607

BICB

11$:

* WRD.CNT,w

R3
R3, 443
33

CLR
INC

115676

R1.#14

INC
P
BLE

BIC

115672

128:

10343

010526
024052

98:

000072
000002

005726

115710

000024

142777

100375
005002
010246
060516
004767

9573
9569

INC
TM
BLE

108:

21598 075376 012777 000971
21600 075410
21601 075412
2160% 075414
21603 075416
21604 075420

;
* WRD.CNT

BLO

177777

142777
150477
005205
005001
010102

006302

#22,SP
R1

ROR

21571 075246 005203
21572 075250 020327 000043
21573 075254 003614

TOPS

PA:<

ADD
INC

TRAP

21570 075244

21577 075266 012705
21578 075272 005003
21579 075274 10440

22-Dec-1980 09:21:22
TRAP

21563
075292 062706 000022
21564 075
005201

21582

PAGE 465

dMLG

2}%
21562

22-DEC-80 12:16

TSTB

#2.3ML.REG+120

.REG

aML.REG+S0

BPL
CLR
MOV
ADD
JSR

118
R2
R2.=~(SP)
RS. (SP)
PC.FIND.COMP.BIT

ROR
8L0

RO
3s

MOV
MOV

APHR.1,-(SP)
MRD.75.-(SP)

TST

TRAP
.WORD
JWORD
.WORD

2 CNT,»

9597

(SP)+

55
206
SYNC
DUMPER

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC~80 12:16

L 3
PAGE 466

SEQ 0453

22-Dec-1980 09:24 : 3
22-Dec=1980 09:21 122

SSRRRRD:
gRERERE
OOO000O
22
333
PN
SPK

SO0

QOO0

& 2228

NO\\A

SEREREE

Bog

VA
BEIEA X WNA) =

SEENERENs

Q000040000

R R R R RO E R REREERRRRRARRRE

—

TEPRTERY
°°°°°°°°°°°°°°°°§§§°333
SIOIAIAASA
A A AN AN
3 PR
SRRKB R R RN
2 RS RE NSgé&"’

°®y

000

N NN
NN NN NN NN NN NN NN N NN nNNRRNRRARNNNNNN

21615
21616

MACRO M1113

007316
34

MRD
. 74 ,~(SP)

#THR.FMT,-(SP)

#4,~(SP)

SP.RO

;

SP,»

R3, (SP)

;

CHANNEL
,

SP.RO

SP'.

;

=, BIT.OFFSET

#72,-(SP)
#Fmf_
21, -(sP)
#3,~(SPS

000072
005534
000003
000020
000264

TOPS

PA:<

138

14
#20,SP
#44.R2
R2, 4264

; 2$
148:

; BIT.OFFSET,«
; WRD.CNT
; WRD.CNT
,»

9605
9601
9611
613

011600
%16

9617

000072

000024
000C14

#FEMT.21,~(SP)
#3,-(SPS
15%:

14
#24,SP

8 e
148

;

SP,*

;

CHANNEL
,*

;

SP,*

. WRD.CNT

; WRD.CNT,*

(SP)+,(SP)+

000043

R3. 443
9s

9615
9611

9587
919

RO
9%
R3

9618

; CHANNEL
: CHANNEL
,*

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~80 12:16

m3
PAGE 467

MLS

22-Dec-1980
22-Dec~-1980

: Routine Size:
271 word
Haximun stack depth per invocation:

21689 075676

21693 075706
21694 075710
21695

SEQ 0454

004767

104466
006000
103773

176736

TS1::
1$:

JSR

TRAP
ROR

8L0

000207

RTS

9625

! <BLF/PAGE>

1:22

TOPS

PA:
<

18 words

PC,8$T51
66
RO
18

9622

; Routine Size:
6 words
. Maximum stack depth per invocation:

4 :31

0 words

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOQUS CODING SECTION

22-DEC-80 12:16

PAGE 468

21706 .mL4
%}% :
21709 ;
21710 ;

9626
9627

%};]'2 H

g
93]

21715

963§

21716 ;
2177 ;
21718 ;
21719 ;
21720 ;
21721 ;
21722 ;
21723 .
21724 ;

21725 ;
21726 ;

9635
9634
9635
9636
9637
9638
9639
9640
9661

144

: TEST

UNCORRECTABLE ERROR SYNDRONE DECODE TEST AT CHANNELS > 35

!
! TEST DESCRIPTION:
!
TEST SYNDRONE DECODE TO DETECT BUT
!
NOT CORRECT UNCORRECTABLE CHANNEL
ERRORS BY:
!
!
!
1. VIA ECC DIAG MODE FORCE SYNDRONE
!
BITS TO INDICATE CHANNEL ERRORS
!
AT WORDS OF A gRC GROUP BUT AT CHANNELS

21731 ;
21732 ;
21733 ;
21734 ;
21735 ;
21736 ;
21737 ;
21738 ;
21739 ;
21740 ;
21741 ;
21742 ;

9648
9649
9650
9651
9652
9653
9654
9655
9656
9657
9658
9659

Llocal

21745 ;

9662

BAl = ONE;

21767 :

9664

GD BLK_XFER ();

%]';2 H

21746 ;

21748 ;

9647

ggg?

9663

TST 52

! TEST NAME:

21728 ;
21729 ;

21730 ;

!
!
!
!
!

GREATER THAN 35.

2.
3.

DO A MASS BUS READ TRANSFER
THEN EXAMIN THE 10_BUF FOR NO

BITS COMPLIMENTED AND ECH

PLOG;

10_BUF = §ER(ES:

MLUS1 = write;

21750 ;
21751 ;
72 ;
21753 ;

9667
9668
9669
9670

incr PLOG_SEL fram 0 to 6 do
begin

21755 ;
21756 :
21757 ;

9672
9673
9674

21754 ;

21758 ;

21759 .

21760 ;

9666

9671

AND

!
BITS SET
!
! IMPLICIT INPUTS:
!
10_BUF
!
A VECTOR OF 256 WORDS WHERE DATA
!
FOR MBUS READS AND WRITES TRANSFERS
!
1S FOUND.
!
!
‘-

9665

21749 ;

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

!
BGNTST;

9642
9643
9644
9645
9646

21727 ;

SEQ 0455
22-Dec~-1980 09:24:31
22-Dec-1980 09:21:22

ami

'INDEX INTO REMAINDER TABLE °‘REM_TBL'
'FIRST LETS CLEAR THE ML11'S GOOD BLOCK

'8Y WRITING 2EROES TO IT

TIME_OUT_LOOP;

case .PLOG_SEL from 0 to 6 of
set

'TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES

!SELECT A PLOG VALUE

9675

ol :
PLOG = 0,

'POINTS TO WORD 0 IN THE CRC GROUP

9677

€1l :

'POINTS TO WORD 1 IN THE CRC GROUP

9676

CZMLARO ML-11 LOG} TEST

MISCELLANEQUS CODING SECTION

21762

S
21765

MACRO M1113

22-DEC-80 12:16

8 4
PAGE 469

:MLé

SEQ 0456

25-0ec-1980
09:24:31

55-Dec-1980 09:91:22

TOPS~20 Bliss-16 2 212)

PA:<NEALE>BLIML4.BLI.2' (102)

;

9678

PLOG = 1;

21767 :
21768 ;

9680
9681

2] :
PLOG = 2;

'POINTS TO WORD 2 IN THE CRC 6ROUP

2177 ;
21772
21773 ;
21774 :

9684
9685
9686
9687

3] :

'POINTS TO WORD 3 IN THE CRC GROUP

4] :
PLOG = &;

'POINTS TO WORD 4 IN THE CRC GROUP

21776 :
21777 ;

9689
9690

(sl :
PLOG = §5;

'!POINTS TO WORD 5 IN THE CRC GROUP

21779 ;
21780 ;
21781 ;

9692
9693
9694

6] :
PLOG = 58;
tes;

'POINTS TO ALL 6 WORDS IN THE CRC GROUP

21766 ;

21769
21770 :

21775

21778 :

21782
21783
21784
21785
%}7739

9679

%gi

9688

9691

PLOG = 3;

.
;
;
.

9695
9696
9697
9698
gg%

21788 ;
%}% M

9701
8;8%

incr COUNT from O to 255 do
10_BUF [.COUNT] = ZEROES;

'!CLEAR THE FIRST CRC GROUP IN THE 10_BUF

21791 :
21792 :
21793 ;
21794 :
%}% H

9704
9705
9706
9707
8;83

FORCE _REM (.PLOG, .CHANNEL):
GD BLR XFER ():
ECT_DIS = ZERO;
MLCST = read;
TIME_OUT_LOOP;

'FORCE UNCORRECTABLE ERROR AT THIS WORD AND CHANNEL
ISET UP A GOOD BLOCK TRANSFER
'CLEAR ECC DISABLE
'DO A READ TRANSFER
'WAIT FOR THE TRANSFER TO COMPLETE

21797 ;

9710

it not ((.ECH_ERR) and (.UNC_ERR))

!SEE IF THE ERROR WAS DETECTED

21798
21799
21800
21801

;
:
;
;

9711
9712
9713
9714

21802 :

9715

21804 :

9717

21807 ;
21808 ;

9720
9721

21810 :
21811 ;

972
9724

21803 ;

%11382 H

21809 ;

21812

21813 ;
21814 ;
21%}2 .

9716

8;]'3

incr CHANNEL from 36 to 62 do
dq‘gn
BGNSUB;
CLR_MBUS;

then

ISTART OF SCOPE LOOP
'C'.EAR THE DRIVE

b'ezgin
ERRDF (136, SYNC, DUMPER);

'ERROR IF NOT DECTECTED

PRINTB (ron FMT, WRD 67, \RD 10,

PRINTB (FMT_21, .PLOB, .CHANRELS:
.

WRD_76, WRD_9);

end;

incr CNT from 0 to 12 do

it .J0_BUF [.CNT] neq ZEROES
then

972

'SEE IF ANY CORRECTION WAS DONE

!SEARCH THE 10_BUF FOR ALL ZEROES

b;gm

'REPORT AN ERROR IF ANY CORRECTION WAS DONE
DF (137, SYNC. DUMPER):;
PRINTB (FIV FMT, WRD 61 WRD 74, WRD_75, WRD_12, WRD_67);

9725

9726
9727
9728
9729

'TEST AT CHANNELS > 35 TO FORCE UNCORRECTABLE ERROR

PRINTB (FMT_21, .PLOB.
end;

ENDSUB;

end;

.CHANRELS:

'END OF SCOPE LOOP

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

C 4
PAGE 470

22-DEC~80 12:16

21818 ;M6
%}819 :

21821 ;
21822
21823 :

g}gg ;
21832

21833

075712

075716

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

9730
9731
973

9733

004167

152777

21840 075752
21841 075754
21842 075756
21843 075762

21844 075764
21845 075766
21846 075770
21847 075772
21848 075774
21849 075776

21850 076000
21851 076002
21852 076004
21853 076010
21854 076012
21855 076016
21856 076020
21857 076026
21858 076026
21859 076032
21860 076034
21861 076040
21862 076042

ENDTST;
106200

000010

21863 07
21864 076052
21865 076054

21871 076106

$T52:

18:
28:

38:

000022

000036

000052

012704
10440
152

21867 076066 042
21870 076104

115212

010504
006304
066407 075762
000016

21866 076062 016702

21868 076072
21869 076100

115270

0050035

005003
000421
012703
000416
012703
(00413
012703
000410
012703
gooaos
012703
000402
012703

142
150277

005001

010102

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

end;

2183 075724 005067 113650
21835 075
004767 120126
21836 075
012777 000061
21837 075725 105777 115256
21833 375746
100375
21839 075750

SEQ 0457

48:

000001

000002

68:

000003

7%:

000004

8s:

000005

98:

000072

108:

000044

000040

115132

000007
115110

115114

115514

177770

118:
128:

138:

JSR

R1,$SAVES

;

962

CLR
JSR
MOV
TSTB
8PL

10.8UF
PC.GD.BLK.XFER
#65 .M . REG
@ML.REG+S0
18

;
:
:

966

BISB

CLR

#10.aML.REG+40

MOV
ASL
ADD
LWORD

RS.R4
R4
3$(R4) ,PC
4$-3$

CLR
BR
MOV
8R
MOV

MOV

R3
118
#1,R3
114
#2 R3
11§
#3 R3
11$
#4 R3
11§
#5,R3
11§
#72.R3

MOV

BIC

ML,

BICB
BISB

CLR

#7.aML.REG+40
R2.aML.REG+40

.WORD
JWORD
WORD
.WORD
WORD
.WORD

MOV
BR
MOV
BR
MOV
BR
MmOV
TRAP
BISB

MOV

5$-3$
6$-3$
73-38
B8S$-3$
93-3$
108-3s

#44 RG

#40,aML.REG+40

DUT R2

317%632
R1.R2

;

; PLOG.SEL

* PLOG.SEL,*

9671

; PLOG
:
: =,PLOG
:
: *,PLOG
:
: *,PLOG
:
¢ =,PLOG
:
: *,PLOG
;
¢ =,PLOG

9675
9671
978
9671
9681
9671

9684
971
9687
9671
9690}
9%
9693|

;. CHANNEL
:
:

9696
9697
9698|

; COUNT

9701

+ COUNT,»

9702

—

MISCELLANEOUS CODING SEC TION

MACRO M1173

22-DEC-80 12:16

D_4
PAGE 471

SEQ 0458

‘ML

22-Dec-1980
22-Dec-1980

(=1

P
Qs
¢

; COUNT
; COUNT,»
; PLOG,*
; CHANNEL
,*

13$

148:

,=(SP)
Ré&.=(SP)
PC.FORCE .REM
PC.GD.BLK.XFER
pg.n.necn 0
#71,
M .REG

@M _REG+S0
148

#100,@ML .REG+60

158

-REG+210
9713

006374

9714

CDVCNR

PG S AL LA S B A A
i it

;

000022

9701

9710

158%:

005534
000003

TOPS
PA:<

V00

:} #377
&

NI R
&&&

283388L35228822388
DN
R AR 533

R2
10.BUF (R2)

:24:3 1
:21:2 2

CZMLABO ML-11 LOGIC TEST

SP,»

; CHANNEL
, »
; PLOG,*

;

SP,*

;
:

CNT
CNT,»

9715

9712
9718
9720

011600

9723

9724

21927 076346

CZMLABO ML-11 LOGIC TE S T
MISCELLANEOUS CODING S 3 CTION
219

MACRO M1113

22-DEC-80 12:16

E_4
PAGE 472

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

MOV

005534
000003
000024

000014

188:

177304

MOV
TRAP

SP,RO
14

#24 ,SP
R1
R1,#14

cMP
TRAP
ROR
BLO
INC
cMP

(SP)+,(SP)+
67
RO
128
R4
R4 #76

BLE

BGT
198:

JMP
RTS

21980

006000
103773
000207

177236

T52::
1$:

JSR
TRAP
ROR
8LO
RTS

; CNT
; CNT ,»

9725

9722

9718

9697

9726

s
.

12$

CHANNEL
CHANNEL
,*

9696

. PLOG.SEL
; PLOG.SEL,*

198

23
PC

9624

18 words

PC,8$TS52
66

9731

RO
18

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

CHANNEL
,*
PLOG,
*

; SP,»

17§

; Routine Size:
175 words
. Maximum stack depth per invocation:

004767

;
:

#3,~(SPS

ADD
INC
P

TOPS
PA:<

; P«

R&., (SP)

R3,~(SP)
NFMT.21,~(SP)

BLE

000076

SP.RO
14

MOV
MOV

MOV

)
N

g8g8gzccegaze
x
ooooR
2%

SeEgRENRRER

sMLG

21950 0764
21951 076432
21952 076434
21953 076440
21954 076442

21972 076450
21973 076450
21974 076454
21975 076456
21976 076460
21977 076462
21978
21979

SEQ 0459

0 words

CZMLABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

21989
21990
21991 ;

9734

MACRO M1113

!<BLF/PAGE>

22-DEC-80 12:16

PAGE 473

SEQ 0460

MISCELLANEOUS CODING SECTION

G_ 4
PAGE 474

SEQ 0461

22-Dec-198
22-Dec-198

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

]

BGNTST;
'4+¢

: TEST NUMBER:
l
l

l
l

TST S3

TEST NAME:

MULTIPLE CHANNEL ERROR SYNDRONE DECODE TEST

TEST DESCRIPTION:

TEST SYNDRONE DECODE TO DETECT BUT NOT
CORRECT UNCORRECTABLE MULTIPLE CHANNEL
ERRORS 8BY:

l
l
0

i
i

VIA ECC DIAGNOSTIC MODE FORCE SYNDRONE
BITS TO INDICATE MULTIPLE CHANNEL ERRORS
BY ASSIGNING CRC_A EQUAL TO CRC_B

DO A MASS BUS READ TRANSFER

THEN EXAMIN THE 10 BUF FOR

NO BITS

COMPLIMENTED AND ETH AND UNC BITS SET

IMPLICIT INPUTS:

10_BUF

“VECTOR OF 256 WORDS WHERE DATA

FOR MBUS READS AND WRITES TRANSFERS

IS FOUND.

l
l

local

0G;

'INDEX INTO REMAINDER TABLE 'REM_TBL'

BAl = ONE;
10_BUF = ZEROES'

GDBLK_x ER ();
MLTST
= write;

'FIRST LETS CLEAR THE ML11'S GOOD
'BLOCK BY WRITING ZEROES TO IT

TIMEour LOOP;

incr PLOG_SEL from O to 6 do
begin

case .Ft’LOG_SEL from 0 to 6 of

!TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES
'SELECT A PLOG VALUE

A I
P

PR
T P P P
PRPRI A TRIR

TR TR N
P

PR YN

A PN

PR Y

PR PRIR

FEPR
FETR
TRPR

R PR
TRTR VYR PN

21993 .mLé
21994
21995
21996
21997
21998
21999

22-DEC-80 12:16

MACRO M1113

CZM_ABO ML-11 LOGIC TEST

ol :
PLOG = 0;

'POINTS TO CRC WORD 0

1] :

!POINTS TO CRC WORD 1

PLOG = 1;

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22049 M4
22050 ;
22051
22052 .
22058
;
22054 :
22055 ;
22056 ;
22057
22058
22059 :
22060 ;
22061 ;
22062 ;
22063 ;
22064 ;
22065 ;
22066 ;
22067
22068 :
22069 ;
22070 ;
22071 ;
22072 ;
22073 ;
22074 ;
22075
22076 :
22077 ;
22078 ;
22079 ;
22080
22081 ;
22082 :
22083
22084 :
22085 ;
22086 ;
22087 ;
22088 :
22089 :
22090 ;
22091
22092 ;
22093 ;
22096 :
22095 ;
22096 ;
22097 :
22098 :
22099 ;
22100 :
22101 ;
22102 :
22103 ;

MACRO M1113

22-DEC-80 12:16

PAGE 475

SEQ 0462

22-Dec-1980 09:24:31
22-Dec~1980 09:21:22
9787
9788
9789
9790
9791
9792
9793
9794
9795
9796
9797
9798
9799
9800
9801
9802
9803
9804
9805
9806
9807
9808
9809
9810
9811
9812
9813
9814
9815
9816
9817
9818
9819
9820
9821
9822
9823
9824
9825
9826
9827
9828
9829
9830
9831
9832
9833
9834
Q835
9836
9837
9838

TOPS-20 Bliss=-16 v2(212)
PA: NEALE>BL3IMLS.BL 1.2 (103)

2] :
PLOG = 2;

!POINTS TO CRC WORD 2

(3] :
PLOG = 3;

!POINTS TO CRC WORD 3

6] :

!POINTS TO CRC WORD &

[s] :
PLOG = 5;

!POINTS TO CRC WORD 5

[6] :
PLOG = 58;

!POINTS TO ALL 6 WORDS IN CRC GROUP

PLOG = &;

tes.

incr CHANNEL

from 1

begin

to 35 do

SUB;

!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

FORCE_REM (.PLOG,

'FORCE ERR AT THIS WORD AND CHANNEL
!CRC_A EQL TO CRC_B CAUSES THE UNC ERROR

I10_BUF [.COUNT] = ZEROES:

CRC_A"= .CRC_B:
GD BLK XFER T);
ECT_DIS = ZERO:
MLCST = read;

.CHANNEL);

'SET"UP A GOOD BLOCK TRANSFER

!CLEAR ECC DISABLE
!DO A READ TRANSFER
!WAIR UNTIL THE TRANSFER IS COMPLETE

TIME_OUT_LOOP;

if not ((.ECH_ERR)
then
be

and

(.UNC_ERR))

RRDF (138, SYNC, DUMPER);

PRINTB (FOR_FMT, WRD 77, WRD 10

PRNI’NTB (FMT-21, " .PLOB, .CHANRELS;

!SEE IF THE ERROR WAS DETECTED
!REPORT ERROR IF NOT DETECTED

WRD_76, WRD_9);

incr CNT from 0 to 12 do

if .10_BUF
then

begin

[.CNT] neq ZEROES

ERaDF (139, SYNC, DUMPER);

'SEE IF ANY ERROR CORRECTION WAS DONE

'TEST THE 10_BUF FOR ALL ZEROES
'ERROR IF ANY BITS GOT SLIPPED

PRINTB (FIV FMT, WRD 61, WRD 74 WRD_75, WRD_12, WRD_67);
PRINTB (FMT_21, .PLOG, .CHANRE LS;
end;
ENDSUB;
end;

'END OF

SCOPE LOOP

MACRO M1113

CZMLABO ML-11 LOGIC TEST

MISCELL'WEOUS CODING SECTION

22-DEC-B0 12:16

1_4
PAGE 476

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

ENDTST;

10.8UF

PC.GD.BLK.XFER

#61 ., aML
. RZ6

18:

1a;w..newso

RS
R5.Ré
R4

0C0001

000002
000003

000005

000072
000001
00004
114742

114360

00000
114336

114342
13%:

9769
9770
9771
G772
PLOG. SEL

PLOG.SEL
,*

N N

333 gReeaL

3s:

zazgee 3=33233838 T

076534

9733

Ve Wy B, 0,0,

R1,$SAVES

#10,
ML .REG+40

114440

$753:

YRTR R
FETE FE FE TR FIE

114504

114516

#40,aML .REG+40

ML
. DUT R2

AR YR TR IR

105426

000010
113076
117354
00006

2s:

22157 076660
22158 076662

TOPS-20 Bliss=16 Vv2(212)
PA: <NEALE>BLIMLS.BLI.2 (103)

end;

—

NS IASIAY

PONIN)
N
RRRRRRNNS

GRNIS= =3

22}05 H, T

SEQ 0463

PLOG

*,PLOG
*,PLOG
*,PLOG

*,PLOG
*,PLOG

*,PLOG
*, CHANNEL

077770.R2
47,3

.REG+40

gg.n.necwo
R1,R2
R2

COUNT
COUNT
,»

9775

9778

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22160

22-DEC-80 12:16

4
J_
PAGE 477

SEQ 0464

SMLG

%jflm

22125 076664 005062 011600
22164 076670

005201

22165 0766
22166 07667
22167 076700
22168 076702
22169 076706
22170 076710

85017% 000377
3
010346
018«6
004767 116672
117702 114420

22173

150277

22171 076714 o:.grrc}; 177700
22172
076720 14
000077

22-Dec-1980 09:24:31

CLR
INC

P
BLE
MOV
MOV
JSR
MOVB

10.8UF (R2)

R1, 4377
13§
R3,=(SP)
R&,=(SP)
PC.FORCE .REM
an’ eenu R2

TOPS

PA:<

; COUNT

9808

L CHANNEL
,*

9811

: COUNT,w
; PLOG,*
;

9812

114376

BIC
BICB

22174 076
22175 076736
22176 076744
22177 076752
22178 076756
22179 076760
22180 076766
22181 076770
22182 076774

004767 117124
142777 000002 114330
012777 000071 114202
105777 114246
100375
132777 000100 114246
001403
005777 114370
100434

JSR
BICB
MOV
TSTB
BPL
BITB
BEQ
TST
aM]

PC.6D.BLK.XFER
c;
aML .REG+120
. .REG
aML.REG+SO
m
#100,aM .REG+60
15$
ML .REG+210
16$

;
:
:

9813
9814
9815

;

9818

;

9821

22187 077006
22188 077012
22189 077016
22190 077022
1
omgg
22192
077032
22193 077036

012746
012746
012746
012746
012746
012746
010600

MOV
MOV
MOV
MOV
MOV
MOV
MOV

ARD.9,~(SP)
MRD
. 76~ (SP)
ARD.10.-(SP)
MRD.77.~(SP)
#FOR.FMT,-(SP)
#5.-(SP)
SP.RO

;

9822

: SP,*

22195 077042 010416
0
010346

MOV
MOV

nusm
R3.-(

; CHANNEL
,*
* PLOG,

0
104414
22201 077062 062706 000022
om%
5001
22
8770
01010
77072

MOV
TR
ADD
CLR
MOV
ASL

SP.RO
14
#22,5P
R1
R1.R2
R2

; SP,*

076

22183 076776
22184 077000
22185 077002
22186 077004

9% 077040

104455
000212
010526
02

114372

BISB

148:

158:

006374
007340
006406
007346
006046
000005

104414

197 0
012746 005534
22198 077052 012746
22199 077056 010600

22205 077074

005762

22207 077102

104455

077106
22210 077110

010526
024052

22206 077100 001436

011600

012746
012746
012746
012746

MOV
MOV

168:
178:

8EQ

TRAP

077104 000513

22211 om12
g
77116
2221 077122
22214 077126

TRAP
WORD
-WORD
.WORD

L.WORD

007240
006426
007330
007316

JWORD
.WORD

MOV
MOV
MOV
MOV

7700
#77,amL.ase+1so

20-Dec-1980 09:21:22

R2,aML.REG+150

S§
212
SYNC
DUMPER

MFAT. 21 -<sp>
#3,-(SPS

9823

;
: CNT
S CNT,»

9820
9826
9828

;

9831

;

9832

10.BUF (R2)

188

5§

213

SYNC
DUMPER

MRD.67,-(SP)
MRD.12.~(SP)
MRD .75 -(SP)
MRD .74 .~(SP)

CZM ABO ML -11 LOGIC TES T
MISCELLANEOUS CODING SE CTION

22216
22217
22218
22219 077132
22220
077136
22221 077142
222
0771;8
22223
071
22226 077152
22225 077154
22226 077156
2%7 077162
22228 077166
22229
077170
22
077172
22231 077176
232 0
22233 077204
234 0
22235 077210
22236 0
22237 077214
22238 077216
22239 077220
22240 077226
22241 0772%3
222642 0
22243 077234
22244 077240
22245 077242
22246 077246
22247
22248
22249
22254
22255
22259
22263 077250
22264 077250
22265 077254
22266 077256
22267 077260
22268 077262
22269

MACRO M1113

22-DEC-~80 12:16

K_ &
PAGE 478

SEQ 0465

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

H, T
012746
012746
012746
010600
106414
010416
010346
81 746
012746
O
104414
062706
005201
020127
003731
022626
104467
006000
103603
005204
020427
003002
000167
005205
020527
0r=n02
0Lu167
000207

007174

#IRD
.

61,-(SP)

#F1V.FmE,-(SP)

#6,-(SP)
0

;

R, (SP)
R3.~(SP)

; CHANNEL
,*
., PLOG,*

14’

005534
000003
000024

000014

NFMT .21, ~(SP)

#3,-(SPS
18$%:

SP.RO
14
#2464 ,SP

S} s

17$
éSP)*.(SP)+

177256

103773
000207

SP'.

;
;

CNT
=
CNT

19%:

18:

9830
9826

9803

; PLOG.SEL

9775

CHANNEL
,*

; PLOG.SEL,*

:
208

153::

9833

CHANNEL

9733

186 words
: Maximum stack depth per invocation:

177210

;

; Routine Size:

004767

SP,*

9804
9834

000043
177372

TOPS

PA:<

PC.$753

RO
PC

18 words

9839

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113 22-DEC-80 12:16 PAGE k?o

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

JMLG

222N

; Routine Size:
6 words
)
; Maximum stack depth per invocation:

22282 ;

SEQ 0466

9842

!<BLF/PAGE>

0 words

TOPS
PA:<

MACRO M1113

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SEC TION

22284 :ML4
28S
286
22287 ;
22288 ;
22289 ;
2290 ;
22291
22292 ;
22293 :
222% ;
22295
2296
22297 ;
22298 ;
22299 ;
22300 :
22301 :
22302 ;
22303 :
22304 ;
22305
22306 ;
22307 ;
22308 .
22309 ;
22310 ;
22311 ;
22312 ;
22313 ;
22314 ;
22315 ;
22316 ;
22317 :
22318 ;
22319 ;
22320 ;
22321 ;
22322 :
22323 ;
22324 ;

9843
9844
9845
9846
9847
9848
9849
9850
9851
985%
985
9854
9855
9856
9857
9858
9859
9860
9861
9862
9863
9864
9865
9866
9867
9868
9869
9870
9871
9872
9873
9874
9875
9876
9877
9878
9879
9880

22327 ;

ggg%

H
22330 ;
22331 ;
22332 ;
22333 ;
22334 ;
22335
22336 :
22337 :
22338 ;

9885
9886
9887
9888
9889
9890
9891
9892
9893
9894

22328 ;

22-DEC-80 12:16

PAGE 480

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

9884

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

]

BGNTST;
1e¢

TEST NUMBER:

i
i

TEST NAME:

i
]

TST 54
SINGLE BIT ERROR SYNDRONE GENERATION €& DECODE TEST

TEST DESCRIPTION:
TEST SYNDRONE GENERATION, SYNDRONE DECODE
%ms
o CORRECTION FOR SINGLE BIT CHANNEL

i
i
i
i

CLEAR THE FIRST CRC GROUP IN THE
10_BUF AND GOOD BLOCK TO ZEROES

i
i

VIA DATA DIAGNOSTIC MODE FLIP A BIT
TO A ONE

i
i

THEN DO A MASS BUS READ TRANSFER AND
EXAMIN THE 10 BUF FOR ZEROES INDICATING

i
i
i

THE CORRECTION WAS PERFORMED

REPEAT WITH ALL BITS IN THE CRC GROUP

IMPLICIT INPUTS:
10_BUF
A “VECTOR OF 256 WORDS WHERE DATA

FOR MBUS READS AND WRITES TRANSFERS

IS FOUND.

PD_TEMP

A BIT VECTOR OF 16 BITS WHERE THE READ

PROM DATA IS STORED AND ACCESSED FROM.

local

DONE,

NIB_PAT : bitvector (4],
NIB_SEL,

GD_RRD_CNT;
incr beu;g_cm from 0 to 5 do
mn

incr BIT_CNT fram 0 to 35 do

'DONE FLAG

iSTORAGE FOR SBE DATA GENERATED

iPOINTER WHERE SBE IS TO BE WRITTEN

ICOUNT OF WHERE GOOD °‘NIB_SEL® ARE FOUND
'FORCE SINGLE BIT ERRORS IN ONE CRC GROUP
'FORCE SBE'S AT EACH BIT OF A WORD

gin

incr CNT from 0 to 255 do

10_BUF [.CNT] = ZEROES;

ICLEAR FIRST CRC GROUP OF

10_BUF

CZMABO ML-11 LOGIC TEST
MISCELLANEOUS CODING SECTION

22-DEC~80 12:16

MACRO M1113

PAGE 481

SEQ 0468

B 8 0o 0080008080000 00 0a08s% 8% 000090000 2¢0500% 0000400000000

0000000000000 000000,0¢0p0¢0%:0,

25-0«-19 4:31
22-Dec-1980
1:22

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

CLR MBUS;

GD_oLK_XFER ();

MLEST = write;
TIME_OUT_LOOP;
CLR

zéRo

= -1;

um ="JEROES;
n.e

= ZERQES:
=z Yo'

NIB_ SEL = BIT_ CNT/4
DATTM m_XFER 07
MLCST = write;

IRESET THE COUNT

'LOAD THE DATA DIAG REG (BITS 0-38)

!WITH ZEROES PAT AND CRC BIT FOR
!ZEROES PAT
ICALCULATE THE NIBBLE WHERE THE SBE IS TO GO
!SET UP_A DATA DIAG MODE TRANSFER

DELAY (ONE_US):

!DO A WRITE TRANSFER
'6IVE THE PROM DATA TIME TO GET OUT

'FIND THE GOOD NIB AT THE TESTED WORD

begin

PD_TEMP = .MLPD;

!READ THE PROM DATA FOR THIS ARRAY WORD

if .PD_TEMP [.NIB_SEL] IS_SET

'IS THIS A GOOD NIBBLE

then
else

DAT_CLK
= ONE

!iF NOT THEN GET THE NEXT ARRAY WORD

begin
GD_WRD_CNT = .GD_WRD_CNT + 1;

'ELSE SEE IF WE ARE AT THE TESTED WORD
!UP THE COUNT
!AND SEE IF WE ARE DONE

it .GD_WRD_CNT eql .WRD CAT then DONE = ONE else DAT_CLK = ONE:
end;
end

until .DONE IS_SET;

!REPEAT UNTIL WE ARE DONE

NIB_PAT = ZEROES;

!CLEAR THE SAVE LOCATION
!AND SET THE SBE IN THIS NIBBLE
!CLEAR THE OTHER NIBBLES IN THIS ARRAY WORD
!TO BE ZEROES PATTERN ANL ZFROES CRC PATTERN

LD LNG WRD (.NIBSEL. .NIB_PAT);

OAD THE SBE INTO THE SAVE LOCATION
'ND WRITE THE SBE INTO THE DATA DIAG RES'S
‘CLOCK THE SBE INTO THE ARRAYS MEMORY
IGIVE IT TIME TUWITE INTO THE MEMORY

NIB”PAT [.BIT CNT mod 4]
=
D1_TEMP = ZERDES:
D2_TEMP = ZEROES.
E2_TEMP = Xo'
WRT_LNG_mo
DAT (LK
=

DELRY (or:usi
CLR_MBUS;

GD BLK XFER ();
Sftc:s?ls
= ZERO:

TIME_OUT_ Loofi
=

incr CNT from 0 to 13 do

ISTART OF SCOPE
L
!CLEAR OUT THE DATA DIAG MODE XFERR
!SET UP A GOOD BLOCK TRANSFER
!CLEAR ECC DISABLE
!AND READ QUT THE SBE
!SEE IF THE SBE WAS CORRECTED

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

8 §
PAGE 482

SEQ 0469

PN PN YN ]

22-Dec-1980 09:24:3 1
22-Dec~-1980 09: 21:2 2
it .J0_BUF [.CNT] neq ZEROES

!ERROR IF THE ERROR WAS NOT CORRECTED

WRD_76, WRD_9);

PRINTB (FMT-22, .WRD_CNF, .BIT_CNT);

(V]

!TEST THE I0_BUF FOR ALL ZEROES

o
ERRDF (140, SYNC, DUMPER);

PRINTB (THR_FMT, PHR_12,

PN PR YN PN

n
N
~

TN PN

then

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

!END OF SCOPE LOOP

ENDSUB.;

ENDTST;

104626
000010

$754:

JSR

R1,$SAVES

CLR
CLR
CLR

R1
R?2
R3

011600

146246

113664

22444 077410

22449 077436

nb,sp

R3.R4
R4
10.BUF (R4)
R3
RS, 4377

BLE
%33

33
;f:o.w}ézscwo

BICB
BISB

#7.aML.REG+40
Ré4.aML.REG+40

BIC

113646

113634

MOV
ASL
CLR
INC
P

000377

00004

suB

9841

: WRD.CNT
; BIT.CNT
; CNT

x
. CNT
; CNT
»
; CNT,

9887
9
989
8%

9893
9894

017[#76.“

JSR
MOV

PC.GD.BLK.XFER
#61 ., aML
. REG

9897
9898

113614

8PL
%ea

43
'c{.o.a}éf‘zecwo

9899

113576

BICB

#7.aML.REG+40

113570

48:

TSTB

BIC

8158
CLR
MOV
CLR
CLR

aML.REG+S0

n%b,m.

R4, ML .REG+40
2(SP)
#-1,(SP)
ML .REG+170
aML .REG+200

22421 077264
22422 077270

end;

Ce %o vy

AR NN
°

n
N
»

end;

DONE

*,GD.WRD.CNT

CZMABO ML-11 LOG IC TE S

MISCELLANEOUS coo ING S E CTION

MACRO M1113

C 5
PAGE 483

22-DEC~B80 12:16

SEQ 0470

sMLS
22454 077442
22455 077450
22456 077452
22457 077456
226458 077462
22459 077464
22660 077470
22661 077476
2222? 077502
22
077504
22464 077512
22465 07751
22666 077516
226467 077520
22468 077522
22469 077524
22470 0775
2247 0775
22472 077532
22473 077534
22474 077536

22-Dec=19 80 09:24 : 3
22-Dec-1980 09:21 : 22

113664

#60000,

104270

114472
000001

BIT.CNT,»

RO-RS

* ,NIB.SEL

PC DAT.DM.XFER

#61,am .REG

113456

#1.R3

b1 ¥

102406

aML . REG+160

R2.~(SP)

8s
LSOLY R4

78
12(SP)
R4
63
R3
5%
R5.R4

000012
78:

Ré
R4
R4
#PD
. TEMP R4

R4, ~(SP)

RS .~(SP)

9907
9908
9909

*, SSTMPI
sSSTMP
SSTMP1

$STMP2
NIB.SEL,*

9915’

NIB.SEL,*

. CNT
GD.WRD
GD.WRD
CNT ,WRD . CNT

9917

9923

~,DONE

#20,@8ML .REG+120
(sP) .m
93
10(SP)
R2,~(SP)
#4,-(SP)
PC.BL$MOD
[4

DON,E»

9928

NIB.PAT
BIT.CNT,*

9930
931

neé,

333

e
—h

S
000014

828885243233CR3
%3R3

666

22501 077670
077674
22
22503 077676
22504 077700
22505 077702

-t ad

#127770, (SP)
#,-(SP}

9905

9906

aML.REG+230,PD. TEMP

113350

22486
077606
22487 077612
22488 077614
22489 077622

*, SSTMP?

TOPS

PA:<

SP,R3
R3.RO

RO, (SP)
R4 ,~(SP)

NIB.PAT
,»

[
CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22507

PAGE 484

S
SEQ 0471

sMLG

%%ggg

22-Dec-1980 09:24:31

22510 077704

042716

177770

22511 077710 012746 000001

2251; 077714 011
22513 077716 004767

103454

22516 0
22517 077740
22518 omzz
22519 0777
22520 0777563
22521 077760
22522 077766

060000
oooogg
1171
111176
111170
111164

22514 0
515 0

22-DEC-80 12:16

07777

005067
005067

012767
010516
1661.9
767
16777
016777
016777
152777

111224
111222

000020

22526 100002 012703 000001
22525 100006

001411

22529 109022

005304

113364
113366
113340
113272

22533 100032

2253, 100034

10440

152

138:

22535 100042 016704

22536 100046

042704

22539 100064

004767

22537 100052
22538 100060
22540 100070

148:
000040

113534

177770

142777
150477

000007
113130

113134

142777

000002

113176

105777

113114

115772

22541 100076 012777 000071
22542 100106

22543 100110 100375
22544 100112 005003
22545 100114 010304
546 100116 006304

22547 100120

005764

22548 100124 001432
100132

22552 100134
22553 100136
22556 100142
22555 100146
22556
100152
22557 100156
22558 100162

011600

22559 100164

010526

024052
012746
019746
019746
012746
012746
104414

20560 100166 010216
22561 100170 010146

113050

158:

MOV
JSR

(SP),=(SP)
PC .8 $PU2

MOV

M R3

#20,aML_REG+120

15§

BNE
DEC
BR

138
R3
128

MOV

ML .DUT R4

BICB
BISB

#7.@ML.REG+40
Ré&.aML.REG+40

TRAP
BISB

2
#40,aML.REG+40

; v, $STMPY
; SSTMP

L SSTMPI

; SSTMP?

;

9941

#71 .3 .REG

9943

16$
R3
R3.R4
R

9942

; CNT
P CNT,»

9946
9948

;

9951

;

9952

10.BUF (R4)

188%

TRAP
LWORD

5§
214

- WORD
MOV
MOV
MOV
MOV
MOV
MOV

R
MRD.9,-(SP)
MRD.76,~(SP)
#PHR.
12~ (SP)
STHR.FMF
- (SP)
#6,-(SP)
SP.RO

: SP,%

MOV
MOV

R2, (SP)
R1,-(SP)

; BIT.CNT,»
* WRD.CNT.»

9937

9938

PC.GD.BLK.XFER
aML.REG+50

BEQ

9935,

#177770,R4

TSTB

BPL
CLR
MOV
ASL

9934,

9939

#2.aMm .REG+120

MOV

P o, $8TMP2

9932
9933

;

BICB

JWORD

006374
007340
007614
006034
000004

p
* NIB.SEL,w
* NIB.PAT.w

LSDLY R4
148
26(SP)

DEC

;
:

RS. (SPS

MOV
BEQ
CLR

JSR

168:

D1.TEP
02.1

E2.TEMP
22(SP) ,=(5P)
PC.LD.LNG.WRD
D1.TEMP,
ML .REG+170
D2.TEMP.aML .REG+200
E2.TEMP.aML .REG+160

BEQ

PA: <

#1,~(SPS

MOV
MOV
MOV
JSR
MOV
MOV
MOV

BIC

178:

22549 100158 104455
22550 1%1
googu.
22551

113152

#177770, (SP)

MOV

BISB

128:

22530 100024 001374
22531 1ooo§8 005303
22532 100030
000766

BIC

CLR
CLR

111216

22526 100010 016704 102102
22527 100014 001404
22528 100016 005066 000026

22-Dec-1980 09:21:22

TOPS

SYNC

9953

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22-DEC~80 12:16

PAGE 485

5
SEQ 0472

=00

R
888R3222
SREIEE 55

;MLG

888

22563
22564
%2565

MACRO M1113

22-Dec-19 80 09:24 : 3
22-Dec-19 80 09:21 :22

005606

#FEMT .22 ,~(SP)

#3,-(SPS

000003

000020

000015

SP.RO

18%:

INC

Ko
R3,#15

000020

: BIT.CNT
; BIT.CNT,»

000043

000005
177012
000010

19%:

INC

208 :

ADD

; WRD.CNT
; WRD.CNT,*

103773
000207

176766

1564::
18:

JSR
TRAP
ROR
8LO
RTS

; Routine Size:

9950

9891
9890

9887

9841

;. Routine Size:
259 words
: Maximum stack depth per invocation:

004767

SP'.

; CNT
=
; CNT

17§

104467

177030

TOPS
PA:<

26 words

PC,8$T54
66
RO
13
PC

6 words

. Maximum stack depth per

invocation:

0 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22618 ;M4
%2619 :
22621

;

22-DEC-80 12:16

PAGE 486

5
SEQ 0473

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

! <BLF/PAGE>

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

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

6 5
PAGE 487

IR E

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

333??333%%%%2%%2%%%%%fifi%fi%fi%ééié?é

AT E

TR TE TR T

TR PR PR PR PN PR P

PN T

PR T

TR PR P

PR P

TN PN T

22623 :ML4

SEQ 0474

[]

BGNTST:
les

TEST NUMBER:

10003
10004

TST S5

TEST NAME:

MULTIPLE BIT ERROR SYNDRONE GENERATION AND DECODE

2.
3.

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 CORRECTIOR WAS PERFORMED

REPEAT FOR ALL CHANNELS IN THE CRC GROUP

IMPLICIT INPUTS:
PD_TEMP

A BIT VECTOR OF 16 BITS WHERE THE READ

PROM DATA IS STORED OAND ACCESSED FROM.

IO_BUF
“VECTOR OF 256 WORDS WHERE DATA

Fm MBUS READS AND WRITES TRANSFERS
IS FOUND.

NIB_PAT : bitvector (4],

NIB_SEL,
GD_BRD_CNT;

10005
10006 E2_TEMP<12, 3> = Xb'110°;
10007
10008 incr BIT_CNT from 0 to 35 do

10009
10010
10011
10012
}%}2

TEST

TEST oeggmpnm
T_SYNDRONE GENERATION, SYNDRONE DECODE
AND ERROR CORRECTION FOR MULTIPLE BIT
CHANNEL ERRORS BY:

10000
10001 Llocal

10002

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

in
CLR_MBUS;
.
incr CNT from 0 to 255 do
10_BUF [.CNT] = ZEROES;

!STORAGE FOR SBE TO BE GENERATED

!POINTER TO WHERE ERROR IS TO BE WRITTEN
!COUNT OF WHERE GOOD °'NIB_SEL® ARE FOUND
!LOAD DATA STRUCTURE WITH ZEROES CRC PATTERN

!TEST FOR MULTILPLE ERRORS AT 36 CHANNELS
!CLEAR THE DRIVE
!CLEAR FIRST CRC GROUP IN THE

I0_BUF

CZMABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

H 5
PAGE 488

22679 ;ML

22-Dec=-1980 09:24:31

%%23? :

22-Dec~1980 09:21:22

%%25 :

10015

22684 :

10017

SEQ 0475

GD_BLK_XFER ();

TOPS=20 Bliss=16 Vv2(212)

PA: NEALE>BL3ML4.BLI.2 (105)

'ALSO CLEAR THTE FIRST CRC GROUP

10016

MLCST = write;

22685 :

10018

GD_WRD CRT = ZERO;

'CLEAR COUNT

22687 :
22688 :

10020
10021

D2"TEMP = 2EROES:
NIB_PAT = ZEROES;

ICLEAR D2 TEMP
!CLEAR NIBBLE PATTERN

22690 ;
2269 ;
22692 :
22693 :
22694

1002
10024
10025
10026
10027

NIB"PAT [.BIT UNT mod 4] = ONE;
LD_CNG WRD (.RIB_SEL, .NIB_PATS;
WRT_LNG_WRD;
DAT_DM_RFER ();
MLCST = write;

'CALCULATE AND THE BIT TO BE IN ERROR
'LOAD THE ERROR IN D1 _TEMP OR D2 TEMP
'LOAD THE REGISTER WITH THE ERROR
'SET UP A DATA DIAG MODE TRANSFER
'DO A WRITE TRANSFER

10030

'LOAD THIS CHANNEL WITH MULTIPLE ERRORS

22686 ;
22689 ;

%%222 :
22697 :

10019

1002;

}88%3

22698
%%6788 :

10031
}8%%

22701 :

10034

22703 :

10036

22706 :

10039

22702 ;

22704 ;
22705 ;

22707 ;

22708 :

22709 :

22710 ;
%.3%12 :

TIME _OUT _LOOP;

D1_TEMP = ZEROES:

NIB_SEL = .BIT_(NT/4;

DELAY (ONE_US);

begin
PDO_TEMP = .MLPD;

it .PD_TEMP [.NIB_SEL) IS_SET

10035

then

10037
10038

GD WRD_CNT = .GD_WRD_CNT + 1;

10040

!CLEAR D1_TEMP

'CALCULATE THE NIBBLE TO BE IN ERROR

'GIVE THE PROM DATA TIME TO COME OUT
IREAD THIS ARRAY WORDS PROM_DATA

'SEE IF THIS A GOOD NIBBLE
'CLOCK OUT ANOTHER ARRAY WORD IF BAD
'ELSE CLOCK IN THE ERROR INTO A GOOD NIBBLE

DAT_CLR = ONE;

10041

10042

DAT_CLK = ONE

else
|
begin

"IN THE ML11°'S GOOD BLOCK

end;

10043
}%g

_end
until .GD_WRD_CNT eql 6;

'REPEAT UNTIL 6 WORDS ARE WRITTEN

22713 ;
2274 ;
2275 :
22716 :
277 :
5%;}3 :

10046
10047
10048
10049
10050
}8821

BGNSUB;
CLR_MBUS;
GD_BLK _XFER ():
EcT DIS = O;
M CS1 = read;
TIME_OUT_LOOP;

ISTART OF SCOPE LOOP
ICLEAR OUT THE DATA DISG MODE TRANSFER
ISET UP A GOOD BLOCK TRANSFER
'ENABLE ERROR CORRECTION
IREAD OUT THE ERRORS
'WAIT FOR THE TRANSFER TO COMPLETE

22722 :

10055

22724 :
22725 ;
22726 :
22727 :

10057
10058
10059
10060

22729 ;

18825

2277%(1) :

723 ;

22728 ;

22730 :

22731 ;
22732 ;
22733 ;

}%é

incr WRD_CNT from 0 to 13 do
it .J0_BUF [.WRD_CNT] neq ZEROES

10056

then

10061

!SEE IF THE CORRECTIONS WHERE DONE
!TEST THE 10_BUF FOR ALL ZEROES

b;am
'REPORT THE ERROR IF ANY LOCATIONS ARE NOT ZEROES
ERRDF (141, SYNC, DUMPER);
PRINTB (THR_FMT, PHR_13, WRD_76, WRD_9);
PRINTB (FMT_22, .WRD_CNT, .BIT_CNT);
:

ENDSUB;

10064
end;
10065
10066 ENDTST;

'END OF SCOPE LOOP

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 489

22735 ;ML
%5;339 ;

SEQ 0476

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

22741

22745 100

004167

22766 100312

0246646

103604

22747 100314 042767 070000

$T55:

110634

22749 100

0099;

22750 100

22751 100

152

000040

016702 113236

112654

22753

000007

112636

22752 100344 045;9; 177770
100350

22754 100223 150277 112632
22755 100
005001
22756 100364 010102
22757 100366 00630

22759 100374
22760 100376

005201
020127

000377

22761 100402 003770
22762 100404 004767 115452
22763 1006410 012777 000061
22764 100416

22765 100422
100426

20768 100432
22769 100436
22770 100440
22771 100442
227
1

105777

100375

005005
005067

18:

112602

110520

112536

38:

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

R1,$SAVES

;

9961

#70000,€2. TEMP

;

1000

; BIT.CNT

1000

MOV
ASL

R2.aML.REG+40
R1
R1.R2
R2

; CNT
* CNT,»

1001
1001

INC
P

R1
R1,4377

: CNT
L ONT,»

1001

;
:

1001
1001

RS
D1.TEMP

: GD.WRD.CNT
:

1001
1001

BIS

28:

22758 100370 oososs 011600

JSR

8IC

22748 1oo§8 052767 060000 110626

22766
22767 1

CLR

-($P) ,-(SP)

#60000.E2.
TEMP

BISB

#40,aML .REG+40

BICB

#7.aML.REG+40

MOV

BIC

BISB
CLR

CLR

BLE
JSR
MOV

TSTB

8PL

CLR
CLR

DUT,R2

:179976,::2

10.BUF (R2)

28
PC,GD.BLK.XFER
#61 . aML . REG
aML.REG+S0

005067 110516
005016
010346
012746 000004
004767 103300

CLR
CLR
MOV
MOV
JSR

D2.TEMP
(SP)
R3,~(SP)
¥4, -(SP)
PC.BLSDIV

22776 100454 010346
22775 100456 012746 000004
22776 100462 804767 103276
22777 100466 010002

MOV
MOV
JSR
MOV

R3.-(SP)
#%,-(SP)
PC .BL $MOD
RO.R?

RO.R4

; *,NIB.SEL

22779 100472
22780 100474
22781 100476
22782
100502
22783
100504
22784 100506
22785 100510

006200
oos;go
012701 000010
0L0601
060100
010016
010246

ASR
ASR
MOV
ADD
ADD
MOV
MOV

RO
RO
#10.R1
SP.R1
R1.R0
RO, (SP)
R2.-(SP)

; NIB.PAT,*

22788 100522

011646

MOV

(SP) ,~(SP)

100453 010004

22778 100470

22786 100512
22787 100516

006200

042716
012746

177770
000001

MOV
ASR

BIC
MOV

#177770, (SP)
#1,-(SPS

:
t NIB.PAT
: BIT.CNT,»

P BIT.CNT,»

1000

1002
1002
1002
1002

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22790

16646 oogggg
ooa;g 1

22797 10054.58
22798 1005
22799 100556
22800 100564
gem 100570
100576
22
1%3

016
816777
016777
ooa;g;
013
012701
001411

22805 100610

001404

22804 1

016702

110406
110400
110374
113372
000061
000001

112574
112576
112550
112356
48:

101306

22806 100612 005066 000022
22807 100616 005302
22808 100620 001374
22809 138252 005301
22810
10 604 000766
22811 1832?‘56 010402
2231; 1
2
22813 100632 006202
22814 100634 006202
22815 100636 os;;og 013120
22816 wous% 017767 112536 112250
22817 100650
010246
22818 100652 010446
22819 100654
22820 100660
22821 100664
% 100666

042716 177770
012746 000001
oosoag
004767 102246

22824 100676

005300

22826 100702
22827 100706

005205
152777

22829 100716
22830 100720

001351
1041.077;

J 5
PAGE 490

5$:

68:
78:
8$:

22-Dec=-1980 09:24:31

JSR

MOV
MOV
JSR
MOV
MOV
MOV
JSR
MOV
MOV
BEQ
MOV
BEQ

PC.BLSPU2
R&. (SP)

16(SP) ,~(SP)
PC.LD.LNG.WRD

01.TEMP,aML .REG+170
D2.TEMP.aML .REG+200
E2.TEMP.aML .REG+160
PC.DAT.DM. XFER
#61 . M RZG
#1.R1
78
LSDLY.R2
6

CLR
DEC
BNE
DEC
BR
MOV
ASR
ASR
ASR
ADD
MOV
MOV
MOV

22(SP)
X3
R1
4
R4 ,R2
R2
R2
R?
#PD. TEMP R2
@MU .REG+230,PD. TEMP
R2.-(SP)
R&.-(SP)

BIC
MOV
CLR
JSR

27770, (SP)
#,~(SP§

100672 062706 000010

ADD

-($P}
PC.BLSGT2
#10.sP

100700 001401

BEQ

000020

22828 100712 020527 000006

DEC

112362

22831 100% 152
000040 112264
22832 100
016702 112646

22833 100734 042% 177770
22834 100740
22835 100766

142

150277

000007
112242

22836 100752 004767 115104
22837 100756 142777 000002
22838 100764 012777 000071
22839 100772

22840 100776

105777

100375

22841 101000
2 101002

005001
010102

22844 101006

005762

22843 101004 006302

112226

9%:

108:

112310
112162

INC
BISB

cmP

BNE
TRAP

RS
#20,aML.REG+120

RS.#6
2

#40,aML.REG+40
ML. DUT R2

BICB

#7.aML.REG+40

BISB

11$:

BISB
MOV

BIC

112246

128:

011600

SEQ 0477

§77g1
2279§
100526 8101.16
004767 102646
%%794 1005
795 1005
22796 1005

22-DEC-80 12:16

JSR
BIC8
MOV
TSTB

BPL

0179976 R2

R2.¥ML.REG+40

PC.GD.BLK.XFER
0; aML .REG+120
#7539 .REG
aML.REG+S0

CLR
MOV

R1
R1.R2

10.BUF (R2)

ASL

22=-Dec=1980 09:21:22

TOPS
<
PA:

; NIB.SEL,*
* NIB.PAT.»

1002

;

1002

:
Do, 88TMP2
; *,$STMP1

1002
1002

; SSTMP

L 3STMPY

; SSTMP2
; NIB.SEL.*

1003

;
:
NIB.SEL,*

1003
1003

;

1003

. GD.WRD.CNT,*

1004

1 GD.WRD.CNT
:

1003
1004

;

1004

;
:
:

1004
1004
1005

: WRD.CNT
: WRD.CNT,»

1005
1005

CZMLABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22846
22847

MACRO M1113

22-DEC-80 12:16

K 5
PAGE 491

SEQ 0478

;M4
:

22849 101012 00143

22850 101014
22851 101016
22852 101020
22853 101022

10445
000215
010526
024052

BEQ

22854 101096
22855 101
22856 1010346
22857 101040
22858 101044
22859 1o1osg

012746
019746
012746
012746
012746
010600

22861 101056
22862
101056
101060
22864 101064
22865 101070

010316
010146
012746 005606
012746 000003
010600

22867 101074

062706

22860 101052

22866 101072

22868 101100
22869 101102

22870 101106

22871 101110

TRAP
MWORD
JWORD
.WORD

006376
007340
007636
006034

104414

005201
020127

003735

000020
000015

000020

22878 101132

003002

22879 101136
zzaa? 101140

022626
000207

000167

R3, (SP>
R1.-(SP)
NFMT .22 ,~(SP)
#3,-(SPS
SP.RO

; BIT.CNT,*
: WRD.CNT.*

ADD

#20,SP

;

1005

;

1006

:
> BIT.CNT
. BIT.CNT,*

1000
1000

9961

;

1006

INC
P

R1
R1,#15

12$

177174

JMP

o
RTS

14§

(SP)+,(SP)+
PC

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

22888
22889
22893

22897 101142
22898 101142

101146

004767

104466

177140

155::
18:

JSR

TRAP

: WRD.CNT
+ WRD.CNT,*

000043

PC.$T55

1006

; SP,*

RO
108
#20,SP
R3
R3, 443

BGT

; SP,e

ROR
BLO
ADD
INC
cmP

22882
22883

1005

MOV
MOV
MOV
MoV
MOV

BLE

148 :

1005

;

TRAP

22872 101112
22873 101114 103701
22874 101116 062706
22875 101122 005203
22876 101126 020327

;

MRD.9,~(SP)
m.7§,-<sp>
#PHR.13, -(SP)
#THR.FMT, -(SP)
#4 ,~(SP)
SP,RO

TRAP

138:

138

S5
215
SYNC
DUMPER

TOPS
PA:<

MOV
MOV
MOV
MOV
MOV
MOV

TRAP

104467

22877 101130

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

1005

24 words

CZMABO ML -11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22905 101152
22906 101154
22907

S
SEQ 0479

22-Dec=1980 09:24:31

M
10377
000207

22908

22-Dec=1980 09:21:22
ROR

8LO
RTS

; Routine Size:

%2909291‘

22916 ;

PAGE 492

JMLS

22904 101150

22-DEC-80 12:16

1%
PC

6 words

; Maximum stack depth per invocation:
10067 ! <BLF/PAGE>

0 words

TOPS

PA:<

CZMABO M ~-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:16

L J]
PAGE 493

22918 :ML4

SEQ 0480

22-Dec-1980 09:24:31

22228;8 :

22-Dec-1980 09:21:22

22921 ;
22922 :
22923
22924 ;
22925 ;
22926 ;
22927 ;
22928 ;
229§8 :
22930
;
22931 ;
22932
;
22933
;
22934 ;
22935 ;
22936
szzgg H

10068
!
10069 BGNTST;
10070
10071 !++
100;; i TEST NUMBER:
TST 56
10073
|
10074 | TEST NAME:
ECC ERROR REGISTER TEST
10075 |
10076 | TEST DESCRIPTION:
10077 |
TEST THE ECC ERROR REGISTER FOR
10078 !
CLEARING AND LATCHING OF ECC ERROR
10079 |
INFORMATION ON DETTECTION
10080 !
OF ECC ERRORS BY:
10081 |
10082 |
1.
THIS TEST IS TABLE DRIVEN.
DATA TABLE (DT_1)
10083 |
CONTAINS ERROR FORCING DATA AND EXPECTED
}ooaooaé :
MLEE DATA AS A RESULT OF THE FORCED ERROR

22939
22940
22941
22942
22943
22944

;
;
;
;
.
;

10086
10087
10088
10089
10090
10091

!
|
|
|
|
|

22946 ;
22947 ;
22948 ;
22949 .
22950 ;
22951 ;
22952
22953 ;
22954 ;
22955 ;
22956 :
22957 ;
22958 ;

10093
1009
10095
10096
10097
10098
10099
10100
10101
10102
10103
10104
10105

!
!
|
!
|
!
!
!
!
!
i—

22945 ;

22959 ;

22960

22961 ;
22962 ;

22963 ;

10092 |

10106

10107

THE TEST THEREFOR INDEXES INTO DT_1 TO FORCE
AN ECC ERROR

A MASS BUS READ TRANSFER IS DONE

DT_1 IS AGAIN INDEXED AND ITS CONTENTS

ISTCOMPARED AGAINST THE RESULTING

MLEE REGISTER

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;

10108
10109 CLR_MBUS;

}8”‘1) FINISH = &;

22965 ;

1011% incr CLR_LOOP from 0 to 1 do

22967 ;
22968 ;
22969 ;
22970 ;
22971 ;
22972 ;

10114
10115
10116
10117
10118
10119

22966 ;

1011

TOPS=20 Bliss~16 v2(212)

PA: <NEALE>BL3MLS.BLI.2(106)

!THE SECOND PASS TESTS MLEE FOR CLEARING

!VARIABLE ENDING CONDITION FOR LATCH_LOOP

IERROR FLAG

'CLEAR THE DRIVE

!MAKE LATCH_LOOP DO S LOOPS AT FIRST
'THE FIRST PASS TESTS MLEE FOR LATCHING

begin

incr LATCH_LOOP from O to .FINISH do
begin
BGNSUB;
ERR_FLG = ZERO;

!TEST MLEE FOR LATCHING BY USING DT_1 DATA
!START OF SCOPE LOOP
'CLEAR THE ERROR FLAG

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

22976 ;M4
22975 ;
22976

23021 :
2302% :
23023 ;
23024 :
23025 ;
23026 :
23027 :
23028 ;

22-DEC~B0 12:16

N S
PAGE 494

SEQ 0481

5 SDec-io8 &i%ii22

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

%22877 :
78 .

22979 ;
22980 ;
22981 ;
2% :
22983
22985 ;
2298S ;
22986
22987 .
226988 :
22989 ;
22990 ;
22991
22992 :
22993
22994 ;
22995 ;
22996 :
22997 :
22998 :
22999 :
23000 :
23001 :
23002 ;
23003 :
23004 ;
23005
23006 :
23007 :
23008 ;
23009 :
23010 ;
23011 ;
23012 :
23013 ;
23014 ;
23015 ;
23016 ;
23017 ;
230‘%8 :

MACRO M1113

101
10121

101 i
1012
10124
101%5
10126
10127
10128
10129
10130
10131
1013%
1013
10134
10135
10136
10137
10138
10139
10140
10141
10142
10143
10144
10145
10146
10147
10148
10149
10150
10151
10152
10153
10154
10155
10156
10157
10158
10159
10160
}0}61
10164
10165
10166
10167
10168
10169
10170
10171

MLER = ZEROES;
ECC_DM = ONE;

PARCCRC_WRD =

CRCTA
CRCTB

'CLEAR THE ERROR REGISTER

,DT_1 [.LATCH_LOOP,

=~.DT_1 E.LATCH_LOOP, A0_S]:
= .DT-1 (.LATCHILOOP, B0 S]:

PO_SJ;

GD BLK XFERTM():
ECT DIS = ZERO;
MLCS1 = read;

1ENABLE ECC DIAG MODE
-

1GET PAR cacRD DATA FROM DT_1

'GET CRC_A FROM BT
iGET CRCTMB FROM or

!SET L° X GOOD BLOTK TRANSFER
IDISABLE ECC DIABLE
iREAD THE ERROR AND LACTH MLEE

TIME_OUT_LOOP;

it .CRC_ERR neq .DT_1

[.LATCH_LOOP,

CRC_DATAJ then ERR_FLG

ONE;

'TEST CRC_ERR

if .SGL_ERR neq .DT_1

[.LATCH_LOOP, SGL_DATA] then ERR_FLG

ONE;

ITEST SGL_ERR

it .UNC_ERR neq .DT_1

[.LATCH_LOOP, UNC_DATAJ then ERR_FLG

ONE;

ITEST UNC

it .BIT_IN_ERR neq .DT_1
it .CHAN_IN_ERR neq .DT_1

[.LATCH_LOOP, E0_S] then ERR_FLG = ONE;
[.LATCH_LOOP, CO_S) then ERR_FLG = ONE;

it
-ECH_ERR neq .DT_1 [.LATCH_LOOP, ECH_DATAJ

o5
l (123, ASYNC. DUMPER);
ERRDF

'TEST BIT IN ERROR
ITEST CHANNEL IN ERROR

!TEST IF ECH GOT SET

!REPORT ERROR IF NOT SET

PRINTB (FOR_FMT, WRD_67, WRD_10, WRD_69, WRD_14);

it .ERR_FLG IS_SET
then
bag;?

(124, SYNC, DUMPER);

!TEST IF THE ERROR FLAG GOT SET
!REPORT ERROR IF SE T

PRINTB (THRFHT REG_14, WRD_52, PHR 11);

PRINTB (FMT_1, .DT_1-L.LATCH LOOP, EE_DATAJ.
PRINTB (FMT 719,7.0T_1
L.LATCA_LOOP, 80_5), .bT_ 1 [ urcu LOOP, A0_5].
ENDSUB;
end

'CLEAR THE REGISTER

1f .H.EE neq ZERO

'SEE IF THE REGISTER GOT CLEARED

ONE ;

ZERO;

[.LATCH_LOOP, PO_SJ)

!END OF SCOPE LOOP

CLR_MBUS;

ERgDF (125, SYNC, DUMPER);
mNTB (roa FMT, REG_14, \RD 52, FNC_7,

.DT_1

!REPORT ERROR IF NOT CLEARED

WRD_14);
'ENABLE ECC DISABLE
'MAKE LATCH_LOOP LOOP ONCE TO CLEAR MLEE AGAIN

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC~80 12:16

B 6
PAGE 495

23030 M4
%31 ;

%%)37 :
23041 101156

23045 101162

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

004167

152777

102734

112024

23045 101200

142777 000007

112006

23047 101%15
23048 101216
23049 101223
23050 101222

012746 000004
005046
005004
000167 000644

101170 016705

112406

23044 101176 042705 177770

23046 101206

23051 101226
zsos§ 101230

23053

101234
101240
23055 101242
101246
23057 101250
23058 101254
23059 101256

150577

010446
012746

112002

152777

000001

042700
042777
050077
111200
042700
142777
150077
116500

140377
037400
112004

23075 101350
23076 101356

142
150077

000077
111752

177700
000077
111764
013540

177700

23077 101362 004767 114474
23078 101366 142777 000002
23079 101374 012777 000071

23080 101402

23081 101406
23082 101410

23083 101412

105777

111616

042716

157777

100375
011146

1006

POV

BI(B

n ML REG+40

MOV
CLR
CLR
JMP

#4.~(SP)

; *,FINISH
: cLR.LOOP
* LATCH.LOOP

1011
1011
1011

: LATCH.LOOP,«

1012

MOV
ADD
MOV
ADD

PC.BLSMUL
RO R®
#of. . R1
RS ,R1
#DT.142,R2
RS.R2

101

;

101

CLR
CLR

R3
ML .REG+60

;

1011

MOV

#1,aM .REG+120

: ERR.FLG
:

(R2) ,RO

MOV
MOV

3$:
112000

TRAP

BISB

ASL

23066 101302
23067 101306
23068 101314
23069 101320
23070 101322
23071 101326
zsog 101334
23073
101340

23076 101364 042

;

BISB

23064 101276

23065 101300

R1,$SAVES

JSR
MOV

104402

23063 101274 011200

JSR

BIs8

BiC

2s:

000006
102266

111746

$T56:

18:

004767
010005
012701 013534
060501
012702 013536
060502

23060 101260 005003
23061 101262 005077

23062 101266

TOPS-20 Rliss~-16 v2(212)
PA:<NEALE>BLIML4.BLI.2 (106)

10172 ENDTST;

000040

23043

SEQ 0482

ASL
112010

111770

111700
111552

48:

bns

RS, n REG+40

-(§p>

16:

R4 ,-(SP)
#6.-(SP)

101

;

1012

;

1012

PC.GD.BLK.XFER
pganemzo
i
SG

;
:
:

1012
1012
1012

4
(R1) ,~(SP)

;

1013

#77,aML .REG+160
RO,aML.REG+160

TSTB

@ML.REG+S

8IC

1011
101

BICB
BISB

8PL
MOV

1010

101

#140377
RO
#37600,3M_ .REG+150
RO, 3ML .REG+150
(RJ),RO
#177700,RO
#77,aML .REG+150
RO.aML.REG+150
DT.1+4(RS).RO

JSR
BICB
MOV

BIC
8IC
BIS
MOVB
BIC
BICB
BISB
MOVB

BIC

111756

#4d, an. Rec+4o

M 77700,R0°

#157%77.(SP)

MACRO M1113

22-DEC-80 12:16

C
é
PAGE 496

SEQ 0483

«Q.£L)|S-~'s~4so~'.3~@.-

CIMLABO ML-1 1L OGIC TEST
MISCEL
ouUs C ODING SECTION

PA-<

4:+&«5go<8papaR~v¥nIN&0RaECXnSEpREARYoapRaESRNDa9TNS

0-«o—«do—dLo-«o|L()

I} [

V][aV a o)QQQe (SIS} ooBB

& s& o& & 4&

Rt TR{RtetBT RT RH RR

~NRIANKNNCSCR (GP@gQeRUaEuIYsSlinDemaaoalelelemlelololalelalelelamlelnlololelelololewlelolelolmelolalalelelelalelmelalelelolaleleleTme]%mmmmmmmmmmwmmmmmwmwmmm LoOQ—-klo0

(1D5LG]

. --m3o
b b ot o

[

1013

1014

MISCELLANEOUS CODING SECTION

D 6
PAGE 497

101

R
#PHR.11,~(SP)
MRD.52.-(SP)
#REG.14.~(SP)

007576
007066
010376
006034
000004

101
101

[

: ERR.FLG,*

101

STHR.FMT
- (SP)

#4,~(SP)
[4

(SP)
ML .REG+210,

111410

(R1) ,~(SP)
W#FMT.1,-(SP)
#3,<(SP)
SP.RO

14’

; SP,»

(R2) ,RO
RO
RO
RO
RO
RO

1015

177700

177700
013540

DT.144(RS),~(SP)
#177700, (SP)

005412
000004

#4,-(SP$

000030

14
#30,SP

16$:

——

(V.
P o

158
33

(SP)+,(SP)+
R&
R&,2(SP)

* LATCH.LOOP

LATCH.LOOP,F INISH

—

158:

—

14$:

—

000002

SP.RO

177170

NFMT.19.-(SP)

O NN

1015

22r2g=e

-d

004222
000003

-0

: SP,*

024052

02070
02072

13%:

22-Dec=-19
22-Dec-19

33PRESR

& 35

000014
000001

01713
01N
01714
01716
01
01724
01
01734
01740
01744
01746
01750
01754
01756
01762
01766
01770
01772
01774
776

007252
006406
007240
006046
000005

(=]

01662
01666
01672
01674

o8 25 o2222c2
S
RN
55855

01646
01652
01656

-t

23
23
23
23
23

22-DEC-80 12:16

H, T

BREaos b 58R
oS g
=2
;
£ gg ¥ 2R5ESEb8SOEOOOOO

ARAIIITE VR TR ER LB EEIERR I

23
23
23
23
23
23
23
23
23
23
23
23
23
23

BRGNS 8 BEIRRREL 2B IV

St
Sk

2B ELEGR

R
P
e e

23141
2314
2314
23
23
23
23
23
23
23

MACRO M1113

CZM ABO M-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

23197
23198
23199
23200 102076
23201 102100
2
18%104
102112
112
1
23204
23205 1021
23206 1021
23207 1021
23208 10214g
23209 10214
23210 102144

22-DEC-80 12:16

17712
00004
111464

111102

177770
00000

111064

178:

23250 102254

000014
000001
000002

104466
006000
103773

1014
1014

1014

MRD
.52 ,~(SP)

#FOR.FMT,-(SP)

#5.-(SP)

111054

18%:

‘RO

SPQ.

M4, SP
#1,3M .REG+120

2($P)

(SP)
(sP) .M

198

19%:
:

176706

n?%b.ns

#REG.
14 .~(SP)

004767

TOPS
PA:<

1015

DUMPER
MRD.
14 ,-(SP)
#ENC.7,=(SP)

000001
176760

: 24 :31
:21 :22

Y X

23221 1022%

178
23
:éo.a;l.étstec«o

#7.aML .REG+40
RS aML
.REG+40
M .REG+210
188
55
175
SYNC

006442
010012
007066
010376
006046
000005

23219 102202
23220
102204

22-Dec-1980
22-Dec-1980

A IR TR TE

111060
111224

1021
102152
102156
102162
102166
102172
102176

23222 10221
23223 102220
23224 102224
232
102%%3
23226 102
23227 102234
23228 102240
23229 102242
23230
23231
23232
23237
23238
23242
23246 102244
23247 102244
23248
102250
23249 102252

SEQ 0485

H, B

23211 1021?8

23212
23213
23214
23215
23216
23217
23218

E 6
PAGE 498

CIMLABO ML-11 LOGIC TEST

Routine Size:

CLR.LOOP,
*

1$
(SP)+, (SP)+
PC

283 words

Maximum stack depth per

T56::
1%:

FINISH
CLR.LOOP

PC.8$756
66
RO
1}

invocation:

22 words

1017

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

2325
%%%gk
23255 102256
23256

F
6
PAGE 499

SEQ 0486

H, ¥4
;
000207

23257
23258

23264
23265 ;

22-DEC-80 12:16

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

: Routine Size: 6 words
; Maximum stack depth per invocation:
10173 ! <BLF/PAGE>

0 words

TOPS
PA: <

CZMABO ML-11 LOGIC TEST

MISCELLANEQUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

G 6
PAGE 500

23267 M4
23268 :

SEQ 0487

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

TOPS-20 Bliss=16 Vv2(212)
PA: <NEALE>BLIML4L.BLI.2 (107)

23270
2327
232;%
23273
3276
3275
23276
23277
23278
23279

;
;
:
.
;
:
:
;
;
;

10174
!
10175 BGNTST;
10176
10177 !++
10178 ! TEST NUMBER:
TST 57
10179 !
10180 ! TEST NAME:
ECC ERROR LOCATION REGISTER TEST
10181 !
1018 ! TEST DESCRIPTION:
101
!
TEST THE ECC ERROR LOCATION REGISTER FOR CLOCKING, BIT UNIQUENESS

}8}3‘50 :

CLEARING AND LATCHING OF DSA ADDRESSES ON DETECTION OF ECC ERROR BY:

23282
23283
23284
23285
23286
23287
23288
23289
23290
23291
23292
23293
2329
23295
23296
23297
23298
23299
23300
23301
23302
23303
23304
23305

10186
10187
10188
10189
10190
10191
10192
10193
10194
10195
10196
10197
10198
10199
10200
10201
10202
10203
10204
10205
10206
10207
10208
10209

TEST FOR CLOCKING BY:
A. DO A MASS BUS CLEAR FORCING REGISTER BITS TO ZEROES
B. FORCE AN ECC ERROR AT THE LAST BLOCK AND DO A READ TRANSFER
C. CHECK MLEL FOR LAST BLOCK ADDRESS

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
LAST BLOCK. (LATCHES MLEL WITH THE LAST BLOCK ADDRESS TO START THE TEST OFF)
B. AGAIN WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT DSA
ZERO AND CHECK MLEL FOR NOT LATCHING.
NO CLEAR
C. WITH FORCED UNCORRECTABLE ERRORS DO A READ TRANSFER AT DSA
ZERO CMECK MLEL FOR LATCHED DSA ZERO
NO CLEAR DONE
D. WITH FORCED SINGLE BIT ERRORS DO A READ TRANSFER AT THE LAST
BLOCK AND CHECK MLEL FOR NOT LATCHING
NO CLEAR DONE
E. WITH A FORCED UNCORRECTABLE ERROR DO A READ TRANSFER AT
THE LAST BLOCK AN CHECK MLEL FOR NOT LATCHING

%g‘) .

;
;
;
;
:
;
:
;
;
:
:
;
;
;
;

23306 :

23307 ;
23308 ;

gg% N
23311
23312
23313
23314
23315
23316
23317
23318
23319
23320
23321

;
;
;
;
;
:;
:
;
;
;
;

!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!
!

10210 !

10211 !
1021% !

}8%}‘ :
10215
10216
10217
10218
10219
10220
10221
10222
1022
10224
10225

F. DO A MASS BUS CLEAR

G. WITH A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT THE
LAST BLOCK

H. DO A MASS BUS CLEAR AGAIN AND CHECK MLEL FOR ZEROES

! IMPLICIT INPUTS:
!
10_BUF
!
A VECTOR OF 256 WORDS WHERE DATA
!
FOR MBUS READS AND WRITES TRANSFERS
!
IS FOUND.
!
!
!'—

local
SGL,

'SINGLE B]T ERROR PARRAMETER

CZMABO ML-11 L 0Gl C TESY
MISCELLANEOQUS C 00! NG SECTION

CeBe Ve a0, %0 00009500 0,00 9000900000 % 05 0,%0090%000 % 0¢% e 00%%0000:%0 0% 8,3 % 0800830

1,]

0080080200000, 008¢9%,

23323 ;mLé
23324 ;
23325
23326
2332
23328
23329

MACRO M1113

22-DEC-80 12:16

H 6
PAGE 501

SEQ 0488

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

10227

10228

102%8

102

UNC

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

!UNCORRECTABLE ERR PARRAMETCR
!TEMPORY SAVE LOCATION
!SHIFTING DATA PATTERN SAVE LOCATION
'EXPECTED DSA PATTERN LATCHED IN MLEL

SAVE,

SHF _DATA,

DSA_PAT;

10231 BGNSUB;
102§ CLR_MBUS.

!START OF SCOPE LOOP
!CLEAR THE MLEL REGISTER

10234 MLDX = TLST BLK;
10235 MLWC = not 255;

!LATCH THE LAST BLK ADRS INTO THE MLEL

10237 MLCST1 = read;
}8%%8 TIME_OUT LOCP

‘DO A READ AND LATCH THE MLEL

102640 if .MLEL eql ZEROES
10241 then
1024
b;gm
1024
DF (126, SYNC., DUMPER):

!SEE IF

102

FOR_ECC_ERR (SGL = 1, UNC = 0);

10236 MLBA = [10_BUF;

10244
10245

10246

10254
10255

10256
10257
10258
10259

10260
10261
102

102

10264
10265

10266

10267

10268
10269
10270
10271
10272

10273

10274
10275
10276
10277

THE MLEL GOT CLOCKED

'REPORT AN ERROR IF NOT CLOCKED

PRINTB (TPR FMT, REG_15, hRD_SZ. PHR_11);
EXIT_TST;

end;”

10247
10248 ENDSUB;
10249 SHF_DATA
= .LST_ARR;
10250
10251 incr LOOP from 0 to 16 do
10252
in

10253

!FORCE A SBE

UB;

CLR naus
FORTM
_ECC ERR (SGL
= 1, UNC = 0);
selectone .LOOP of
set

ol :

begin
DSA_PAT = ZEROES:;

'END OF SCOPE LOOP
!LOAD
THE SHIFT DATA

'FIRST TEST FOR 1°'S AND 0°'S THEN SHIFT DATA
!START OF SCOPE LOOP
'CLEAR THE DRIVE
!FORCE A SBE
!SELECT THE TEST PATTERN
!ZEROES PATTERN

MLDX = .DSA_PAT;

end;

1] :

!MOSTLY ONES PATTERN

begin

D
PAT
= .LST BLK;
MLDX = DSA PAT;
end;

(otherwise]

begin

D
PAT = _SHF DATA:
MDA = .SHF _DATA;
SHF_DATA = LSHF DATA‘-(WE
end;

!SHIFT PATTERN

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

CZM_ABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

SEQ 0489
22~Dec~-1980 09:24:31

388% §§§§§§§z§§§§§§§§8°°°°°oooo°o
SEIRRRER2BI

AOALNINLINININININININ)
~
o

'SET UP THE TRANSFER

MLCS) = read;

'DO THE TRANSFER AND LATCH MLEL

SAVE = .MLEL;

'READ AND SAVE THE MLEL REGISTER

if .SAVE neq .DSA_PAT
then
Rain

!SEE IF SAVE

MLBA = JO_BUF;

TIME_OUT_LOOP;

ERRDF (127, ASYNC, DUMPER):
PRINTB (TW FMT, REG_15, PHR 4.

PRINTB (FMT_2, .DSA_ PAT. .SAVE,
ENDSUB;

IS WHAT WE EXPECTED

'REPORT AN ERROR IF NOT THE SAME

(.DSA_PAT xor .SAVE));
'END OF SCOPE LOOP

end;

CLR_MBUS;

FORECC_ ERR (SGL
= 1, UNC = 0);
LWt = pot 255;
MLBA = ]JO BUF;

MDA = .L37 BLK
M.CS! = read;

!CLEAR THE DRIVE
!FORCE A SBE
'SET UP A LAST BLOCK TRANSFER
!TO LATCH THE MLEL WITH T

TI*,WT_LW.‘

W N NN NN NN NN NN
[a8] ) = b b mnd b cod b d b b

OV NN
NN O

incr LOOP from 0 to 4 do
begin
BGNSUB;
MLER = ZEROES:

b
b
b
b
d e
b
b
b
b e
b
o
b
b
e
b
b
b
d e
b
d e
d
i cd e

b aed

P T
N
N TN T TN PN
T
TR PR T

MLWC = not 255:

case .LOOP from 0 to 4 of
set

:
[0l

DSA PAT

!NOW TEST FOR CORRECT LATCHING
!START OF SCOPE LOOP
!CLEAR THE ERROR REGISTER
!SELECT TEST DATA

!FORCE A SBE AND CHECK FOR THE LST BLK ADRS

becgm ..
.LST_BLK;

MLDA = ZEROES

end;

:
a1l be

'FORCE A UNC ERROR AND CHECK FOR ADRS ZERO

GEm

PR PRTN

N IR

tes;

UNC =

TR N

DSA PAT = ZEROES;
MLDA = ZEROES;
end;

I XA

23424

d e

GRNR3 O NO\N SN =

R R R

Y P

jelelelololelololelolelololololaloleloleolelolololole)

AR A

R IE I

I E AR

E I A

e m

22-Dec-1980 09:21:22

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

!FORCE SBE AND CHECK FOR ADRS ZERO

CZMABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

234%2 JMLG
%37 M
23438

10330

10331
1033
1033

2344 ;
23k ;
23445 ;

10335
10336
10337

23447 ;

10339

23446 ;

2353 ;
23454 ;

10345
10346

23455 ;
23456
234S7 ;

23458
23459
23460
23461
23462
23463

1.
= 0,
DSA PAT = JEROES;

MLDX= .LST_BLK;
end;

£3]

10338

10340
10341
10342
10343

beEin

SGL

10344

23465 ;
23466 ;
2367 ;
23468 ;
23469 ;
23470 ;
2371 ;
23472 ;
23473 :

10357
10358
10359
10360
10361
10362
10363
10364
10365

MLBA = ]0_BUF;
MLCST = read;
TIME_OUT LOG’

23476 :

10368

end;

23475 :

10366

10367

23477 ;
23478 ;
23479 ;
23480 :
23481 ;
23482 ;

10369
10370
10371
1037
103
10374

23484 ;
23485 ;

10376
10377

23483 ;

23486
23487 ;

23488
23489 :

10375

10378
10379

'"FORCE SBE AND CHECK FOR ADRS ZERO

CLR_MBUS;
SGLTM= 1;
UNC = 0;

10350
10351
10352
10353
10354
10355

2374 ;

[4] :
.
begin

10347
10348
10349

10356

'FORCE UNC ERROR AND (MHECK FOR ADRS ZERO

UNC= 1;
DSA_PAT = ZEROES:
MLDX = .LST _BLK;
end;

;
;
:
;
;
;

23464 ;

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

becgin

10334

23448 ;
23449 ;
23450 ;
23451 ;

23US2

SEQ 0490

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

23439 .
234640 ;
2341 ;

23442

tes;

DSA_PAT = ZEROES;
MDA
= .LST_BLK;
end;

FOR_ECC_ERR (.SGL,

M wl = not 2)5

.UNC);

if .LOOP neq 4
then
SAVE
= .MLEL
else
be in
MBUS;

SAVE = .MLEL:

'"FORCE SELECTED FORCED ERROR INTO mML11

ISET UP A TRANSFER

'READ THE ERROR OUT AND LATCH MLEL

'TEST THE REG FOR LATCH DATA IF LOOP NEQ &

YELSE TEST THE REG FOR CLEAR

if .SAVE neq .DSA_PAT
'SEE IF THE REG LATCHED 0K
then
bagm
'REPORT ERROR IF NOT LATCHED
DF (128, SYNC. DUMPER):;
PRINTB (mn FMT, REG 15, URD 71, WRD_10);

PRINTB (FMT~_1, .DSA PAT .SAVE)
end;

ENDSUB;
end;

10380
10381 ENDTST;

'END OF SCOPE LOOP

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 504

23491 ML

SR eDT
T anEs
238
SeeeeeR
g 28R YIS
b ol wnd i

$757:
110716

18:

b
i

2
'0‘4.0 R 371’."515 G+40

1022
1023

” ?%O.RS

*,SGL
SGL,*
UNC

)
b

R1
-(SP)

1023

PC,FOR.ECC.ERR

3555

LST.BLK,aML .REG+30

&l\f\)o

cub and w—b
—

el
and b

b ad

2s:

#-400,
M .REG+10
#10.80F
,aML .REG+20
#71.aML -REG

aML .REG+50

ML .REG+220

-bd

n
'

1017

R3.-(SP)

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

R1,$SAVES
=(SP)

47,3 .REG+40
RS.aML .RE3+40
#1.R3

110700

b
- ad ad wd acd cud

VA 3 VR NOWVS WO

IO
UGttt

wviviuviuaonawnaanu

N
W

SEQ 0491

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

23
23

23527 102416
23528 102422
23529 1024

007576

23530 1024
23531 102436

SP,»

1024
1024
1022

3s:

107106

23543 102474
23544 102502

00004
111074

110512

#40,8ML .REG+40

ML.DUT.RO

Ve e B,y 8,

1024

*,SHF .DATA

LOOP

1024
1025
1025

JMLé

LOOP

177400
01160?
00007
110374
110536
000004

007454
010404

R3,R4
RS ,@ML.REG+30
R5
#-400,3ML .REG+10
#10.BUF
,aML .REG+20
#71,3M .REG
ML .REG+5
9%
ML .REG+220,4(SP)
4(SP) R4
108
55
177

I XY

*,SAVE
SAVE ,DSA.PAT

ASYNC

#TWO.FMT
- (SP)

#3,-(SP)
‘RO
14
14(SP)
, (SP)
R4 ,=(SP)

SP"

DSA.PAT
,»

1029

DSA.PAT,
*

000014

000020

SHF .DATA ,DSA.PAT
SHF .DATA
SHF .DATA

#PHR.
4 - (SP)

000002
000002

23598 102744
23599 102750
23600 102752

* ,DSA.PAT

DSA.PAT
,*

#REG.15,-(SP)

000014

004266

LOOP,»

YA YA

78:

gg.fl.REG*ZSO

DSA.PAT

A TR

5%:

110414

2359 102
23595 102734
2359 102740
597 102742

R2
5%
Ré
63
R2.M
73
R4
LST.BLK

1025

MVE'.

DSA.PAT
,*

SP,x

108:

#20,SP

(SPS+, (SP)+

355
0o

100726

UNC

PC,FOR.ECC.ERR

107006

110404

R1
-(SP)

TOPS
PA:<

-—t ad owd

23573
102630
23574 102632
23575 102640
23576 102644
23577 102646
23578 102650
23579 102652
23580 102654
23581 102656
23582 102662
23583 1
23584 1026
23585 102676
23586 102700
23587 102702
2358 102708
23529 10071
23590 102714
23591 102720
23592 102722

113216

000001

*,SGL

R3.-(SP)

: 24 :31
:21 :22

AR TR IA

23570 10261
23571 102616
23572
100624

#177770,R0
#7,3ML .REG+40
RO, @ML .REG+40
#1.R3

110474

§ TR
L e b

17777
00000
110470
000001

23548
23549 102506
23530 10651
551 1095
2355¢ 102504
23553 1005
23554 1025
23555 1
23556 1025
23557 102
23558 100544
23559 102544
23560 1095
23561 102552
23562 102556
23563 102560
23564 102564
23565 102570
23566 102572
23567 100574

22-Dec-1980
22-Dec-1980

23546
547

23593

SEQ 0492

RRRROR Y]

MISCELLANEOUS CODING SECTICN

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

CZMABO ML-11 LOGIC TESY

3T5ogW5RT5.8Lg5%Mmwem@&L:gRTfNe8gdSElRlYeK3R9a28n5g8§?5§S:2:

nRwm3l17mmn8s21L2eiRP3oNSNMSRNPSNRTN
N8

ERERE R R AR R R E E R R R

933 I ERoNE gg 32 2c
%3 £ e2% 3 :N T% :3 8

T2nS328uPnw8odxRP>d1eooD8S1>P0Pb1oo8nPdiomuP8dPmoPuaPnE2P5m0nPni<ePalPmy2PuOnoaPuOnBsPhoooonOsuE=hn3Po%mPiO:Yo&aotPiBwPESEPaPOtERiOynoomPu>@ P&mRPomcOewowsoBGmO>&z@o8owo8m%OS&m>P8mOwo3E,6Sm2
i3Ld

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

oy%

CZM ABO ML -11 LOGIC TESY

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

N 6
PAGE 507

SEQ 0494

H, T

228:

238:

000004

o2x

868°

107700
107662

000010

24%:

8¥

000040
110262
177770
000007
}07656
10032
000010

006406
007272

8 gseseces

Rgivpet

010404

000022

004222
000003
000020

25%:

:
268

MOV
TRAP
ADD
P
TRAP
ROR
8L0

INC
P
BLE
e
TST
RTS

; Routine Size:

DSA.PAT

R3,-(SPS

SGL,*

LST.BLK ML .REG+30

R1.~(SP)
PC.FOR.ECC.ERR

UNC,*

TOPS
PA:q
103

1035

#-400,
aM _REG+10

#10.8
,aM . REG+20
0F
#71,3M .REG
aML -REG+S

23¢

LOP,

R2 W

248

f{’°‘°’,‘§§55*‘°

n’%.8.RS

#7. 3 .REG+40
RS.aML .REG+40
ML .REG+220,10(SP)
1g;SP).R4

v, SAVE
SAVE ,DSA.PAT

200

SYNC
DUMPER
MARD.10,~(SP)
MRD.71.~(SP)

#REG.15.=(SP)

STHR.FMT,~(SP)

#6,~(SP)

SP.RO

SP,»

22(SP), (SP)

SAVE,»
DSA.PAT,*

R&,=(SP)
NFMT.1,~(SP)
#3,~(SP)
SP,RO
14
#20,SP

(SPS+, (SP)+

128

1037

1030

RS‘I6
(SP)+,(SP)+
(SP)+

1017

323 words .

. Maximum stack depth per

1037

SP,»
LT T Y

107706
107710
107662

218:

Y 3%

112510
177400
011600
000071
107726

107744

223233242825
E NS

106334

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

3=238s 83833335

3S
;S
B
5
BB
=3 oHEES
FERERE

23658
23659

invocation:

19 words

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

23720
23721
3725
23729
103466

103466
1 103472
2
103474
23733 103476
5% 103500

004767
104466
006000
103773

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

176566

000207

23736

18:

JSR
TRAP
ROR
8L0
RTS

: Routine Size:

%l;;zg

23743
23744 ;

187::

PC,8757
66
RO
13

6 words

; Maximum stack depth per invocation:

10382 !<BLF/PAGE>

SEQ 0495

0 words

1037

CZMABO ML-11 LOGIC TEST

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

MISCELLANEOUS CODING SECTION

23746 :ML4
22%;2; :

SEQ 04696

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

23749 ;
3750 ;
23751 ;
23752 ;
23753 ;
23754 ;
23755 :
23756 :
23757 :
23758 :
23759 ;
23760 ;
23761 ;
23762 ;
23763 :
23764 :

23766
23767
23768
23769
23770
23771

10400
10401
10402
10403
10404
10405

23765 ;

:
:
:
:
:
:

23772 :
23773
23774 :
23775 :
23776 ;

23777 :
23778 :
23779 ;

23780 :
23781
23782
23783
23784
23785
23786
23787
23788

:
:
:
:
:
;

10399 i

10406
10407
10408
10409
10410

DO A READ TRANSFER AND tuecx ECH SET

!
|
3.
WITH ECC_DM = O AND ECC DIS
= 1
!
DO A READ TRANSFER AND THECK ECH NOT SET
!
| IMPLICIT INPUTS:
|
10_BUF

!
!
|
|
|

“VECTOR OF 256 WORDS WHERE DATA

FOR MBUS READS AND WRITES TRANSFERS
IS FOUND.

10611 i—
10415
10413
local

10414

TOPS=-20 Bliss=-16 V2(212)
PA: <NEALE>BLIML4L.BLI.2 (108)

EXPECTED;

10415
10416 CLR_MBUS;
10417 ECC_DM = ONE;
10418 PARZCRC_WRD = ZEROES;
10419 CRC_A =~ ZEROES;
10420 CRC_B = ZEROES;
10421 BAl = ONE:
104%3 10_BUF = ONES

'EXPECTED ECH_ERR VALUE
'CLEAR THE DRIVE
ISET ECC DIAG MODE
'FORCE UNCORRECTABLE ERRORS INTO THE GOOD BLOCK

23789 :

10423

23792 :
23793 ;

10426
10427 incr LOOP from 0 to 1 do

'TEST ECH BIT FOR SETTING / NOT SETTING

23795 :
23796 :

10429
10430

CLR fiaus

'START OF SCOPE LOOP
'CLEAR THE DRIVE

23799
:
3800 ;

1045
10434

if
.LOOP eql ZERO
then

'SELECT THE TEST DATA

23790 ;
23791 ;

23794 :

5%778; :

GD_BLK_XFER (};

10424 MLTST = write:
10425 TIME_OUT_LOOP;

10428

}&31

GD_BLK_XFER ();

ISET UP A GOOD BLOCK TRANSFER

CZMLABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC~80 12:16

D 7
PAGE 510

B&O% H, XA
%380

22-Dec=1980 09:24:31

23805 :
23806 :
23807 :
23808 :

23809 :;

22-Dec=1980 09:21:22

10435
10436
10437
10438

10439

23810 :
23811
23812 :
23813 ;

10440
10441
1044%
1044

23815 ;

10445

23814 :

23816

10444

10446

23817 :

10447

23819 ;
23820 ;

10449
10450

23818 :

23821
23822 :

23823 ;

23826 :

10448

10457

10456

004167

23841 103526
z_w.g 103532

142
150277

23843

103536

23844 103544

23845 103552
23846 103
23847 103566

152777
016702
042702

152777

042777
142777
162777
152777

23848 103574 012767
23849 103602 004767
23850 103606 012777
23851 103614

23852 103620

23853 103622
23854 103624
23855 103626

'EXPECT ECH BIT TO SET

in
DIS = 1;
EXPECTED = 0;
end;

'EXPECT ECH BIT NOT TO SET

'READ THE ERROR OUT

if .ECH_ERR neq .EXPECTED

'1S ECH BIT WHAT WE EXPECTED

TIME_OUT_LOOP;
then

beRgin

'ERROR IF NOT

ERRDF (129, SYNC. DUMPER);
PRINTB (FOR_FMT, WRD 67, WRD_10, WRD_69, WRD_14);

PRINTB (FMT_1, .EXPETTED, .ETH_ERR);

end;
ENDSUB;

'END OF SCOPE LOOP

end;

10458
10459 ENDTST;

23837 103502

23838 103506
23839 103516
23840 103520

TOPS-20 Bliss~16 v2(212)

PA:<MEALE>BL3M 4.BLI.2 (108)

MLCST = read:;

10454

23827 :

SEQ 0497

begin
ect DIS = 0;
EXPECTED = 1;
end
ECt

10453
10455

23828 :
%3829 :

else

10451
10452

23825 :

23826 :

‘

105777

100375

005001
10440
152

100352

000040
110062
177770

107500

7
107456

107462

037499

107552

000077

000010

112254

107404

000040

$758:

BICB
BISB

107530

BIS8
BIC

107544
107546
107420

105776

107340

107360

JSR

BISB
MOV
BIC

1$
2s:

R1,$SAVE3

#.0,aM .REG+40
ML, DUT,R2
0177770
,R2
#7.3ML.REG+40
R2,3ML.REG+40

-REG+120

#37400,3M .REG+150

BICB
BICB
BISB

#77.3L.REG+150
#77.3ML.REG+160
#10.aML.REG+40

ISTB

aML.REG+S0

MOV
JSR
MOV
BPL

CLR
TRAP
BISB

#-1,10.BUF
PC,GD.BLK.XFER
#61,aM _REG
s

R
2
#40,3ML.REG+40

;

1038

1041

;

1041

;

: LOOP
:
;

1041

1041
1042
1042

1042
1042
1042
1042
1042
1042

—

CIMABO ML-11 LOGIC TESY

MISCELLANEOUS CODING SECTION

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

23857

103644
103652

150077

107742
177770

000007
107336

107342

004767 112200
005701

23867 103666

142

000002

107400

23870 10
23871 103710

152777
00500

000002

107364

3$:

105777

000071

107300

107234

4$:

23866 103664 001

23868 103676 012702 000001

23869 103700 003404
zsag 103712
103

012

23874 103724 100375
23875 1% 010203
23876 10
005000

23877 103732

132777

23879

103742

005200

103752
23884 103754
23885 103756

000201
010526
024052

23878

103740 001401

000100

012746
012746
012746
012746
012746
012746
010600

2389% 104014

005016

106012

23895 104016

23896 104026 001401
23897 1
005216

58:

107274

23900 18:8126

12746 000003

23902 104044

104414

062706

104054
23906 106056

006000
103662

104467

23907 104060
23908 104062

005201
020127

gg}? 104070

000207

23909 104066

003656

000022

000001

104
104

#1.R2

;

104

#2,aML.REG+120
R

:
* EXPECTED

1
1

#71,3ML .REG

)
R2,.R3
RO

: EXPECTED,

1C44|

;

1045

;

1045

TSTB

8PL
MOV
CLR

@ML.REG+SO

BITB

#100,aML.REG+60

INC

P
BEQ
TRAP

CLR

BITB

BEQ
INC

MOV

RO.R3
8s
55

201
SYNC
DUMPER

MRD. 14 ,~(SP)
MARD.69.~(SP)
MRD.10.~(SP)
MRD.67.~-(SP)
#FOR.FMT
- (SP)
#5,-(SP)
SP.RO

; SP*

(SP)

;

#100.aML.REG+60

78
(SP)

MFMT_1,~(SP)

R2,-(SP)

: EXPECTED,«

MOV

SP.RO

; SP,*

ADD

#22,SP

;

ROR
8LO

RO
2

MOV

TRAP

104

MOV
TR

8s:

#2.@ML.REG+120

;
: LOOP

MOV

BISB
CLR

MOV
MOV
MOV
MOV
MOV
MOV
MOV

78:

PC.GD.BLK.XFER
R

.WORD
JWORD
.WORD

107210

#7.aML.REG+40

B8R

000100

TOPS

PA:<

: = EXPECTED

BEQ

23901 104042 010600

23904 104052

RO,aML.REG+40

MOV

006442
007252
006406
007240
006046
000005

012746 004222

23903 104046

BISB

BICB

68:

23858 104053 010246
23899 104032

ML 997 RO
8177776 RO

BNE

104414

132777

MOV
BIC

JSR
ST

23880 103744 020003
23881 103746 001441
%103750 104455
23886 103760
23887 103764
23888 103770
23889 103774
23890 104000
23891 104004
zsaog 104010

20-Dec-1980 09:21:22

BICB

23864 1
23865 1

23893

22-Dec=1980 09:24:31

;

23860 103634 016700
23861 103640 oagg

23873

SEQ 0498

MLG

gggg

#3,-(SP)
14

1045

INC
o

R1
R1.41

; LOOP
: LOOP,

1062

RTS

;

1038

BLE

CZMABO ML-11 LOGIC TEST
TE

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

23913
%333}‘50

H,
:

23916

; Routine Size:

ggg?

104072
104076
104100
104102
104104

23939
23944
23945
23946 ;

004767
104466
006000
103773
000207

177404

T58::
18:

)

JSR
TRAP
ROR
B8LO
RTS

; Routine Size:

124 words

6 words

TOPS
PA: <

13 words

PC,8$758
66
RO
13
PC

; Maximum stack depth per invocation:
10460 ! <BLF/PAGE>

SEQ 0499

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

; Maximum stack depth per invocation:

2392
23927
23931 104072

23932
23938
23934
23935
23936
23937
23938

F
7
PAGE 512

0 words

1045

CZMABO ML-11 LOGIC TES

MISCELLANEQUS CODING SECTION

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

23948 M4
238458 :
23951
23952
23958
23956
23955
23956
23957
23958
23959
23960

;
;
;
;
:
;
;
:

23961 ;

SEQ 0500

22-Dec=-i1980 09:24:31
22-Dec=1980 09:21:22
10461 !
10462
BGNTST;
1
10464 !++
106465 ! TEST NUMIER:
TST 59
10466 !
10467 ! TEST NAME:
DATA CHECK ERROR BIT TEST
10468 !
10469 ! TEST DESCRIPTION:
10470 !
VIA ECC_EN, ECC_DM AND ECC DM TEST THE

10471 !

23962 :
23963 :

104;% !
10473
!

23967 :

10477 !

DCK BIT"FOR SETTING AND NOT SETTING BY:

10474 !
10475 !
10476 !

VIA ECC_DM AND A WRITE TRANSFER FORCE
ECC ERRDRS INTO THE ML11°'S GOOD BLOCK

WITH DCK_EN = 1,

23968 :
23969 ;

10478 !
10679 !

WITH DCK_EN = 0, ECC DM = O, ECC_DIS = 0

23972 :

10482 !

23964 ;
23965 ;
23966 ;

gg;? :

}&g? ;

ECC DM = 0, ECC_DIS = 0

DO A READ TRANSFER ARD CHECK
DO A READ TRANSFER ARD CHECK

10483
10484
10485
10486
10487
10488
10489
10490
10491
10492
10493
10494
10495

23989
23990
23991 ;
23992 :
23993 :
23996 ;

10499
10500 CLR_MBUS;
10501 FOR_ECC ERR (SGL = 1, UNC = 0);
1050; BAl = ORE;
10503 10_BUF = ZEROES;
10506 GD_BLK_XFER ();

10496
10497
10498

THETMDCK BIT SET
THETMDCK BIT NOT SET

4.
WITH ECK_EN = 1, ECC DM = 0, ECC_DIS = 1
!
DO A READ TRANSFER ARD CHECK THE DCK BIT SET
!
!
! IMPLICIT INPUTS:
!
10_BUF
!
A “VECTOR OF 256 WORDS WHERE DATA
!
FOR MBUS READS AND WRITES TRANSFERS
!
IS FOUND.
!
!
'—

23973 :
23974 :
23975 :
23976 :
23977 ;
23978 ;
23979 :
23980 ;
23981 ;
23982 ;
23983
23984 ;
23985 ;

986 ;
23987 ;
M

TOPS=20 Bliss=16 Vv2(212)
PA:<NEALE>BLIML4.BLI.2 (109)

local

SGL,
UNC,
EXPECTED;

'SINGLE BIT ERROR PARRAMETER
{UNCORRECTABLE ERROR PARRAMETER
'EXPECTED DATA CHECK BIT VALUE
'CLEAR THE DRIVE
'FORCE A SBE

10505 MLTS1 = write;

!SET UP A GOOD BLOCK TRANSFER
'WRITE THE DRIVE WITH THE ERROR

23997 ;
23998 ;

10507
10508 incr LOOP from 0 to 2 do

'TEST DCK BIT FOR 3 CONDITIONS

4000 ;

10510

ISTART OF SCOPE LOOP

23995 ;
996

23999 ;

24001 ;
24002 ;

10506 TIME_OUT_LOOP;

10509

10511
10512

CLR MBUS;
GD_BLK_XFER ();

'CLEAR THE DRIVE
'SET UP A GOOD BLOCK TRANSFER

CIM ABO ML-11 LOGIC TEST

MACRO M1113

MISCELLANEOUS CODING SECTION

22-DEC-80 12:1€

H 7
PAGE 514

26004 .mLé
26005
26007 :

%4008 :
&009 ;

246010
26011
26012
24013

;
;
;
:

26014 :

24015 ;
26016 ;

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

10514
10515

10516
10517
10518
10519

26023 ;
26024 ;

10529
10530

10531
10532
10533

26029 ;

10535

%‘&? :

}8;2?

24042 ;

10548

26044 -

10550

%’zggg M

26043

24045
26046
24047
24048
246049

;
;
;
;

24050 ;

}822‘5

'EXPECT THE DCK BIT TO SET

:
begin
OCK_EN = 0,

'EXPECT THE DCK BIT NOT TO SET

ECCTDIS = 0
EXPECTED = 0;
end;
2l

:
)
beqgin
DCK_EN = 1;

‘EXPECT THE DCK BIT TO SET

ECCTDIS = 1;

EXPECTED = 1;

tes;

end;

MLCST = read;
TIME_OUT_LOOP;

'READ THE ERROR AND CLOCK THE DCK BIT

it .DCK neq .EXPECTED
then

'IS THE DCK BIT WHAT WE EXPECTED

begin

if .LOOP neq ONE then ERRDF

10549

10551
10552
10553
10554
10555

:
.
beqgin
DCK_EN = 1;
end;

10536

10537
10538
10539
10540
105461
10542
10543

'SELECT THE TEST DATA

ECCTDIS = 0;

10534

24031 ;
24032 ;
24033 :
24034 ;
26035 ;
24036 ;
26037 ;

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

EXPECTED = 1;

10527
10528

26025 ;
26026 ;
26027 ;

264030 ;

(0]

10521

10522
10523
10524
10525
10526

24028 ;

case .LOOP from 0 to 2 of
set

10520

26017 ;
26018 ;
26019 ;
246020

24021 :
24022 :

SEQ 0501

'REPORT THE ERRRO IF NOT THE SAME
(130, SYNC, DUMPER) else ERRDF

PRINTB (THR_FMT, WRD 72, PHR_S, WRD_10);

(130, ASYNC, DUMPER):;

'CHOOSE WHICH THE ERROR IS ON

PRINTB (FMT_1, .EXPETTED. .DTKS;
end;

ENDSUB;
end;

10556 ENDTST;

'END OF THE SCOPE LOOP

CZMABO ML-11 L 0GIC TES T

1045

:lab.a}tégewo

1049

n?%b,az

#7.,aML .REG+40
R2.aML .REG+40

107056

#1.R1

1050

R1.=(SP)
R1
-(SP)

PC,FOR.ECC.ERR

107026

#10,
M .REG+40

106750

#63 ., aML .REG

106770

1050
1050
1050
1050

10.8UF

PC.GD.BLK.XFER

18:

2s:

aML .REG+50
18
R1

LOOP

#40,@ML .REG+40

1050
1050
1051

106752

RO
3$(RO) .PC
4$-38
5$-3$
63-38

06776
06770

#46,3M .REG+120

06760
106752

#4,3M_.REG+120
#2,3ML .REG+120

106740
106732
106600

LOOP,

g.n.necnzo

R2
8s

26, @M .REG+120
#2. M .REG+120
#1.R2

#7§ .3 .REG
%.REG*SO

EXPECTED

~ EXPECTED

1051
1051

1051
1052
1052
1052
1052

26083 104
26084 104234
26085 104242
26086 104246
24087 104252
26088 104254
264089 104256
26090 104262
26091 104264
2409% 104266
26093 104270
26094 104%52
264095 104
264096 104306
26097 104314
24098 104322
26099 104324
24100 104%%2
26101 104
2410§ 104342
26103 104346
26104 104354
24105 104360
26106 104362
26107 104364
24108 104363
26109 10437
26110 104374
264111 104376
264112 104400
24113 104402

111664

000061
107014

R1,$SAVE3

TOPS
PA:<

323233

26077 104204
26078 104210
26079 104212
26080 104214
26081 104216
26082 104%%8

111600
000010
105406

22-Dec-19 80 09:24: 1
22-Dec-19 80 09:21 :22

%08, %, % 0,09,

104160
10419%
1041
104176

SEQ 0502

e Be B B0,

26073
26076
26075
26076

177770
000007
107052
000001

$759:

3e9 8

26068
26069 1041
26070 1041
26071 10415
240;5 104154

107456

107074

1
s7 1041
1041

077746
000040

104106
10411
1041
26065 104124

JMLG

-—t

RerEs

MISCELLANEOUS C ODING SE CTION

MACRO M1113 22-DEC-80 12:16 P~GE §15

EXPECTED,»

108:

000001

LOOP,
»

1054

CZMABO ML-11 LIGIC
MISCELLANEQUS CODING

ECTION

26115
%2”9
001405

26120 10441
26121 1044146
26122 106416

26123 104420
261264 104422

104455

000202
1
024052

26129 1044
26130 104442
26131 104446
26132 104452
264133 104456
26134 1046460
26135 104462
26136 104464
24137 104470
26138 104472
26139 104474
2614640 106476
26141 104502
26142 104506
261463 104510
26164 104512
26145 1064516
261466 104520
264147 104522
26148 104524
26149 104526
264150 104532
26151 104534

0127646
012746
012746
012746
01
1044146
005016
005777
100001
005216
010246
012746
012746
010600
104414

gfigg 104536

24154

gflgg

24161

J 7
PAGE 516

SEQ 0503

012766

104467
103634
005201
020127
003630
022626
000207

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

118

.WORD
LMORD
.WORD

202
SYNC
DUMPER

LWORD

ASYNC

TRAP

0105
024052
04

26125 1044264
241
10“;8
26127
1044

24128 1044§

22-DEC-80 12:16

JMLS
;

26118 104406

26119 104410

MACRO M1113

118$:

006406

007472
007302
006034
000004

12%:

106544

004222

000002

.WORD
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
CLR
TST

138.

000003

000020

B8R
TRAP
WORD

148:

8Pl
INC
MOV
MOV
MOV
MOV
TRAP
ADD
TRAP
ROR
8L0
INC
(v, o
B8LE
v, o
RTS

; Routine Size:

TOPS
PA: <

5§

12%
55
202

DUMPER
MRD.10,-(SP)

M.S‘-(SP)
MRD.72,-(SP)
#THR
. FMT ,-(SP)
#6,-(SP)
SP.RO
16
(SP)
ML .REG+60
138
(SP)
R2.=-(SP)
#FMT.1,-(SP)
#3,-(SP)
SP,.RO
16
#20,SP
67
RO
23
R1
R1.#42
23
(SP)+,(SP)+

; SP,x
;

141 words

1055

; EXPECTED,»
: SP,»

; Maximum stack depth per invocation:

1054

14 words

:
:

1054
1055

; LOOP
; LOOP,»

1050

1045

CZMABO ML-11 LOGIC TE ET
MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

PAGE 517

SEQ 0504

JMLG

004767
104466
006000
103773
000207

177342

159:
18:

22-Dec=19 80 09: 24 : 31
22-Dec-19 80 09: 1 :22
JSR
TRAP
ROR
8LO
RTS

PC,8T759
66

10557 !<BLF/PAGE>

1055

; Routine Size:
6 words
; Maximum stacx depth per invocation:

TOPS
PA:<

0 words

CZMABO ML-11 L 0Gl C TEST

MISCELLANEOUS C(0
1) NG SECTION

MACRO M1113 22-DEC~80 12:16 PAGE %18

SEQ 0505

Vo 000000050 000000900009 00%0%

000900708500 %000008000099%09%; %0099 %0900

0000009000008 03008000000,

22-Dec-1980 09:24:31
22-Dec~1980 09:21:22
10558 !
10559 BGNTST;
10560
10561 !++
}8
: TEST NUMBER:
10564 !
10565 !

}8;29 :

TEST NAME:

TST 60
PROM DATA TEST

TEST DESCRIPTION:

10568 !
10569 !

VERIFY THAT CHECK SUM VALUES FOR
ALL PRESENT MEMORY ARRAY UV PROM

10572
10573
10574
10575
10576
10577
10578
10579
10580
10581
10582
10583

}82;? :
!
!
!
!
!
!
!
!
!
!
!
!

LOCATIONS ARE ERROR FREE BY:
DOING MBUS TRANSFERS
AT ALL PRESENT BLOCKS
AND TESTING THE UNS BIT
TO BE CLEARED.

IMPLICIT INPUTS:
10_BUF

A VECTOR OF 256 WORDS WHERE
DATA FOR MBUS READ AND WRITE
FUNCTIONS IS FOUND.

10584 !
10585 !

10586 !

CHIP_S]2

10588
10589
10590
10591
1059
10593

ARRAY MODULES MOS RAMS.

10587 !

10596
10595
10596

10597

10598

INDITATEL THE SIZE OF THE

!
!
!
!=—

incr DSA_CNT from 0 to .LST_B(K do

CLR

;

ECC_DIS = ONE;

MW = not 255;

10599

MLBA = ]O_BUF;

10601

MLCS! = write;

10600

10602

10603

10604
10605
10606
10607
10608

10609

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

MDA = .DSA_CNT;

TIME_OUT_LOOP;

if .UNS IS_SET
then
b;gin
ERRDF (107, ARR_DAT, DUMPER):
PRINTB (TWO_FMT, WRD 35, PHR_4);

PRINTB (FMT_9, .DSA_TNTS;

!WRITE TO ALL PRESENT BLK'S AND CHECK UNS BIT

!DISABLE ECC
!LOAD
!DO A WRITE FUNCTION
!SEE IF XFERR CAUSED AN UNS ERROR
'ERROR IF SET

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

MACRO M1113

22-DEC-80 12:16

mn 7
PAGE 519

26266 :MLL

22-Dec~1980 09:24:31

22252; :

22-Dec-1980 09:21:22

26249 :

10610

26251

1oe1§

24250 :
24252

26253 :
26254

24255 ;
26256 :;

10611

if .CHIP_SIZ eql 64

then

1061

10614
10615

10616
10617

else

26257 :
26258

10618
10619

26260 *

10621

end;

26262 :
26263 :

1062
10624

ENDSUB;
end:;

522223 :

10626 ENDTST;

26259 :

26261 :
26264 :

26273 104554
26276 104560
26275 104564
26276 104566
26277 1045720
26278 104

10620
1062§

10625

be?in

PRINTB (FMT_8, ((.DSA_CNT<11, 4>) + 1));
end
be?in

004167 077264
016702 105006
005001
000536
1
152

000040

246280 1046046 042
26281 104610 142

150077
152777

$T60:

106414

18:

177770
o&gor 106376
106372
000002

106444

26291 104672
26292 104676
26293 104676
2629 104700
26295 104702

26296 104704
26297 104710
26298 104714
26299 104720

001470
104455
000153
010570
024052

012746
012746
012746
012746

007454
006666
006024
000003

106276
106342

R1,$SAVE2
LST.BLK,R2
R1
63

BISB

#40,aML.REG+40

28:

MOV

ML. DUT RO

BISB
BISB

RO.aML.REG+40
#2.aML.REG+120

BIC
BICB

26284 1
012777 177400 106326
26285 104636 012777 011600 106330
26286 104644 010177 106334
26287 104650 012777 000061
26288 106656 105777 106342
26259 104662 100375
26290 104664 032777 040000

JSR
MOV
CLR
BR

TRAP

#<400,aM_.REG+10
#10.80F ,@ML ,REG+20

B0
TRV
.Worh
.WORD
.WORD

58
55
153
ARR.DAT
DUMPER

MOV
MOV
MOV
MOV

164K MOS RAM
116K MOS RAM

:
:
* DSA.CNT

105
105

:
:

105
105

;

105

”
RO
#7.aML.REG+40

MOV
MOV

MOV
MOV
TSTB
8PL
817

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>SL3IML4.BLI.2 (110)

INEED TO KNOW CHIP SIZE TO FRINT ARRAY NUMBER

PRINTB (FMT_8, ((.DSA_CNT<9, 3>) + 1));
end

26279 10«.23 016700 106776
zaggg 104616
24
1&2_;‘5

SEQ 0506

R1,aML .REG+30
#61,amL .REG
aML.REG+S0
2s
#40000, aML .REG+60

#PHR .4 - (SP)
MRD.35,-(SP)
#TWO.FMT,~(SP)
#3.-(SP)

:
:

* DSA.CNT,»
:

1059
105
1
1

;

1060}

MACRO M1113

22-DEC-80 12:16

N 7
PAGE 520

SEQ 0507

22-Dec-1980 09 :26:
22-Dec-1980 09 1:

SP.RO
14

000100

—

27882

(SP)
NFMT.8,-(SP)
#2.-(SP)

el aub

004610
000002

1061

R1.RO

177760

1060

; SP,*

CHIP.S12,m00
33

RO
RO
RO
RO
#177760 RO

; DSA.CNT,»

1061

RO,-(SP}
SP.RO

14
4
R1,RO

177760

RO
RO
#177760 RO

004610
000002

(SP)
NFMT
.8, -(SP)
#2,-(SP)

000022

; DSA.CNT,®

#2,-(SP)

828

104616

; SP,»

R1,(SP)
NFMT.9,-(SP)

004644
000002

TOPS
PA: <

v’.

; DSA.CNT,»

RO,=(SP}

ADI

6$:

(v,4

5%:

1060
1062

TRAP
; DSA.CNT
: DSA.CNT,»
PC

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

1059
1055

12 words

———

28932922232

22d Rl
9§§§z3
&
S E ilSSNSE =g

Q=000

e
) D i e
i
b wrd i e
b i
e
e
b e
b e

ki
R

b e

WO NV

md od e

SEREG

LIN=D

d i and e

Shtetrere
gi@@%ggggggggggggggggggg
S Ao RS IS RR SRS Rshaly

CZMABO ML-11 L 0G IC TE S 7
MISCELLANEOUS C0 ING § 3 CTION

CZMABO ML-11 LOG IC TEST
M1 SCELLANEOUS coo ING SECTION

MACRO M1113 22-DEC-.. 12:16 PAGE ?21

357

SEQ 0508
22-Dec-1980 09:264:31

:
004767
104466

177456

006000
103773
000207

26371

160::
18:

22-Dec-1980 09:21:22
JSR
TRAP

ROR
8LO
RTS

: Routine Size:

26372

24379 ;

22%23
26 360
26364 1050
26365 1050
26366 105076
26367 105100
26368 105102
243678 105104

PC.8$760
66

RO
18
PC

6 words

; Maximum stack denth per invocation:
10627 ! <BLF/PAGE>

;

0 words

PA:
1062

—

%‘5381 H, K

THE CLEANUP CODING SECTION IS EXECUTED AFTER THE

ICLEAR THE MASS BUS

return;

ENDCLN;

152777
000207

000040

NNd-J

— emd el

=lelele]

b
b
b
—

004767

104412
000207

106100

177764

26420
26421

LCLEAN: BISB
RTS

#60,3ML .REG+40
PC

LSCLEAN::
JSR

TRAP
RTS

;

10634 LASTAD

10635 BGJSETLP 0;

10636 ENDSETUP;

:
;

0 words

PC,LCLEAN

12
PC

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

(111)

HARDWARE TESTS ARE RUN ON A LOGICAL UNIT.

% CLR = ONE:

T0PS-20 Bliss=16 v2(2
(21 22

PA:<NEALE>AL3ML4.BLI.2

g\d

b
)
ol cd
—

(%,

—

%fi :

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

26429 ;

9 264:31

-Dec-1980 :21:22

SeBsVetene 0,

(=]

—h=d

a
hey

SEQ 0509

ZS-Der

26400
264601

MISCELLANEQUS CODING ) SECTION

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

—

CZMABO ML-11 LOGIC TE TEST

O words

1063

—

CZMABO ML-11 LOGIC TEST

MISCELLANEOUS CODING SECTION

35
4436

22-DEC-80 12:16

D_.8
PAGE 523

1
132

24444
26445
3%
34

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

105132

BLSLAS: : .WORD

105132
000000

LSLAST==
T$PTHV==

000000
000000

000207

26454
26455

MWORD
TSFREE:: .WORD

TSFREE

BLSLAS+4
0

SEND.LINK::

RTS

0 words

10637 end
10638

10639 eludom

: 0TS external references
.

244N
26472

.GLOBL
.GLOBL

; Size:

24479
—

: Run Time:

BLSGT2, SSAVES, SSAVE4L, SSAVE3

$SAVEZ2, BLSPUZ2, BLSPU1, BLSGT1
B8LSDIV, 8LSMOD, BLSMUL

16698 code + 1916 data words

03:04.1

; Elapsed Time: 03:48.6

; Hemor;{ Used:
118 pages
. Compilation Complete

000001

TOPS
PA:<

<<TSFREE-<BLSLAS+4>>/2>
O

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

24469

24485

SEQ 0510

H, T
:
1%8

24462 ;
;
26464 ;

MACRO M1113

.END

1063

CZMLABO M_-1
SYMBOL TABLE

ADR

= 000020

ARR . DA= 0105;8
ARR.IN
ARR.16

011562
011574

ASSEMB= 000010
ASYNC = 010464
A.CAL
013140

A.GEN
013146
BITO = 000001 G

BITO0 = 000001 G

BITO1
BITO2
BIT03
BIT04
BITO5

=
=
=
=
=

1 LOGIC TEST

000002
000004
000010
000020
000040

G
G
G
G
G

MACRO M1113 22-DEC-B0 12:16 PAGE 523-1
CSCLPI=

EF .RES=

37 G

IER

CSDCLN= 000044
C$000U= 000051

EIG.FM=
ELV.FM=

142
b4

10.8UF
011
ISR
= 000100 6

CSCVEC= 8%822

ERRBLK
ERRMSG
ERRNBR

CSERROSOOOO?O

EVL

CSERNE= 000055
CSERHR= 000056
CSERZF=
CSERSO=
CSESCA=
CSESEG=
CSESUB=

000054
000057
000010
000005
000003

CSETST=
CSEXIT=
CSGETB=
CSGE Tw=
CSGWN=
CSGPHR=

BIT13 = 020000 G

C$INIT= 000011

BIT14 = 040000 G
BIT15 = 100000 G
BIT2 = 000004 G

EF.STA=

CSORPT= 0000%4
(SOU = mg
CSED]T=

BIT06 = 000100 G
BITO07 = 000200 G
BITO8 = 000400 G
BITO9 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G

000001
000032
000026
000027
000043
000042

CS$GPLO= 000030
CSGPRI= 000040
CS$INLP= 000020
CSMWI= 000050
CSMEM = 000031

ERRTYP
ERR.CH

002160 G
88 156 6
154 6
80 155 G
01521

= 000004
G

ESEND =
ESLOAD=
E2.TEM=
FIND.C
FIRST.

002100
000035
011156
015430
016040

FIV.FM= 006065
FMT.1 = 8822
FMT.10=
6
FMT.11= 004750
FMT.12= 005004
FMT.13=
005034
FMT.14= 005110
FMT.15= 005150

FMT.16= 005216
FMT.17= 005
FMT.18= 005342
FMT.19= 005412

BIT3 = 000010 G
BIT4 = 000020 G
BITS = 000040 G
BIT6é = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
BIT9 = 001000 G
BLSOIV 003752 6
BLSGT1
003016 G
BLSGT2 003140 G
BLSLAS
105126 G
BLSMOD 003764 G
BLSMR 003526 G
BLSPUT
003302 G
BLSPUZ 003376 G
BLSSHF 003776 G
=
6
B.CAL
013142
B.GEN
013150
CAL.CR 014612
CHIP.S 011570
C
= 000052
CSAUTO= 000061

CSMSG = 000023
CSOPEN= 000034
C$PNTB= 000014
CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015
($QI0 = 000377
¢
000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
CS$SPRI= 000041
CS$SVEC= 000037
CS$TPRI=
13
DATA.L= 10723
DAT.DM 0141
DFPTBL 002355 6
DIAGMC=
DIVWOD 003
DRIVE.
013132

FMT.2
=
266
FMT.20= 005462
FMT.21= 005534
FMT.22= 005606
FMT.23=
005652
FMT.24= 005722
FMT.25= 005746
FMT.26= 005764
FMT.3
= 004354
FMT.4 = 004400
FMT.5 = 004430
FMT.6
= 004532
FMT.7
= 0045
FMT.8 = 00461
FMT.9 = 004644
FNC.1 = 007726
FNC.10= 010050
FNC.11= 010060
FNC.1§: 18100
FNC.1
1 115
FNC.14= 10‘|§6
FNC.15=
0101
FNC.16= 010150

($8SEG= 000004

DUMPER

FNC.18= 01017

CSCEFG= 000045
C$CLCK= 000062
CS$CLEA= 000012
($CLOS= 000035

D2.TEM=
EF.CON=
EF .NEW=
EF .PWR=

C$8RX = 000022

cs8suB=

SEQ 0511 |

DT.1

013534

(024052 6

D1.TEM= 011152

011154
000036
G
000035 G
000034 6

FNC.17= 010165

FNC.19= 019;04
FNC.2 =
FNC.21=
FNC'Zif
FNC.23=

007742
010216
010530
010242

= 0

INTER = 0106

IXE
= 004000 G
ISAU_ = 000041
I1SAUTO= 000041
ISCIN = 000041
ISOU = 000041

ISHRD
= 000041
ISINIT=
ISM0D =
1$MSG =
I1$PROT=
13PTAB=

ISPWR =
ISRPT =
ISSEG =
ISSETU=
ISSFT =
ISSRV =

000041
000041
000041
000040
000041

000041
000041
000041
000041
000041
000041

I1$SUB = 000041
ISTST = 000041

JSIMP = 000167

LAST.B
LAY
LAUTO
LCLEAN
LDV
LD.LNG
LINIT
LOAD.S
LOE
=
LOT_
=

016114
004210
004164
105106
004176
017124
024714
013604
040000 G
000010 G

LRPT
LST.AR
LST.BL
LST.0U
LSACP
LSAPT
LSAU
LSAUT
LSAUTO
LS$CCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP

002076 G
005060 G

LSDLY

002116 G

LSOTYP
L$DU
LSOUT
LSOVTY

88%034
200
00507%
002122

LSDISP

LSDTP

004152
011576
011572

013134
002110
002036
004212
002070
004166

6
G
6
G
G

08%106 G
105116 G

002032 6
005011 G

002130 G

002164 G

002040 6

G
6
G
G

bGLoBIRRBTRBRoFRTN
MACRO M1113

vaw

£ZS q

2OE(8oEleSl8Oe5lSe5lo8e=5l(e0l8ga6lge5le8e0legle8g0le0Plee03lee8l30ogl0aesl0ee2lee9l0eP3l0ePl0aSgl8e(el0e3gl6aPl0aOl8eP3loPle3O3l8aOIlePleIPlaPla3LPl8eeleLOl38eElge8l8aEl5a8lCePtelrotmlTenleOle0lt8PeBte8tPaAteReYaCPYeLTYaPtePYaPtaeBtaeRtseB)

aPoc3rP03ePlt%BP2iSeP¢1o3RaP&Y9R5&i3LPA9a83PnY3AiN3PB8OnRPEANSgP8n5PA0Ty83P3PW83PemPR53Pw2PmS3R(PIPwM18RPm9PewoR3PSm9P3PPmP3PPRSm5PR9PP%mP5PPDe7mP5PPmPS8PPB4mPS3oPPi5mP9RPPmP3PP9OmP3PP9XmP5PP3DPmg

SOV9IM5N3=59T5€N9—5%9R595F5e9YR4m5m0-—0m4So&S1[S80XN8£F5-38D2I58>9I35X89I23N89230385Q3U0W9mU8WO0Im9T3=Hm3I0N2Im3JE

VTRRRB1e2RoNLSNBSe2eBSNAReoR

mmmwmewmmmmmmmwawm:m&w1m.4m“x&m“8:m8wm»:mP8m::mR:m8:m8Pm:R8:mhmR*wm”wlmSmw..\.v
SYMBOL TABLE

CZMABO M -11 LOGIC TEST

22-DEC-B0 12:16

P P <<«

P.ACF

PAGE 523-2

SEQ 0512

MACRO M1113 22-DEC-80 12:16 PAGE 223°3

TIME.O= 0111
TRBLE.= 01102

b
— ol

Okl\

lolele] o
NNN ~

000000

TSLSYM= 01
TSNEST= 1
TSNSO = 000000
TSNS1 = 000021

}gTW! 000000

T$SAVL= 177777
}SSEGLS 177777

TSTAGL= 177777

TSTAGN= 010005

124
125
126
127

128

729

13
130
131
132

045262
045
046774
047552
050676
051454

052440

053552

026530
054346
055742
057500

WRD.
WRD.

WRT.D
WRT.D

WRT.EL
WRT.ER
WRT.E1

WRD.

WRD.3/=
WRD. 38«
WRD. 39=
WRD.4 =

WRD.40=

00
10
16
2

726

331“ 7&
U!D.loi: 882754

WRD
. 44= 006764

WRD.45= 006772
\-RD.49= 007004
WRD.47= 007016

WRD . 48= 0070§2
WRD.49=
WRD.S =
WRD, 50=
WRD.51=

()70
006330
007046
007054

hRD.Si: 007066
WRD.S
8(0)7074

WRD.57= 007130

1
1
1
1
1
1
1
1
1
1

]

527=

WRD.58=
WRD.59=
WRD.6 =
WRD.60=

007140
007152
006336
007156

s
o5 007516

WRD
. 64= 007224
WRD.65=
007232
WRD.67=
007240
WRD.68= 007246
\-RD.99= 007252
WRD./7

WRD.70= 887 60

SN&S&;

122
123

SEQ 0513

WRD.S54=
007104
WRD.55= 007114
WRD.S56= 007122

83
ERRERE
FRERe RS 5

TSTSTR= 1
187STS= 000000
TSSHAR= 010002
TSSHW = 010000
TSSPRO= 010004
T$$S0F= 010003
T18$SW = 010001
T
026056
110
033014
18}
033260
T12
033670
713
035042
T14
036310
T15
037556
116
040456
117
041652
718
042110
119
043260
12
026322
120
044220
121
044614

E3833
4

N 400 AN o g

(a1
lalalalalalalalalaYaYalalalATATaT
AT AT AT AT AT AT 4T

8§§28B35

REFRRER

NSO
NN
OO

TSERRN=
TSEXCP=
TSFREE
1051
TSGMANE
TSHILI=
TSLAST=

T$CODE=

16146
4

STRIPP 014214
SVCGBL= 177777
SVCINS= 177777
SVCSUB= 177777
SVCTAG= 177777
SVCTST= 177777
SYNC = 010526
SSLSYM= 010000
TEN.FM= 006214
THR.FM= 006034

TST.LN
TWO. F M=
TSARGC=

EESESEEEESS -3833888388%

RN N R
S&
o

2009082
OOOOO? SRRPR Rococoo%
b

b e

b o

et e e

h ik

(=lelelelelelelelelolalalalelalelelelaletl
)

¥ PR TR Y T e 2O
NN

OOPGOOOOOOOGQGQOQQOG'

RITFTODT

mmmm

RARRR RARRRRRRRARRRARRABEB38833 3

SYMBOL TABLE

o~
W
~oo

CZM ABO ML~11 LOGIC TEST

WRD.71=
007272
WRD.72= 007 S
WRD.
00731

WRD.74= 007316

D 7=097320
tho.
79= 007306

WRD.8 = 006360
WRD.9 = 006374

WRT.CS

WRT.DA
WRT.DS
WRT.D1

017462

020016
022764
021570

WRT.E2

WRT.MR
WRT.PA
WRT.RE
WT.DAT
W.C.SI
XOR. LN
XSAL WA=
XSFALS=
X$OFF S=
XSTRUE=

SEND.L

SSAVES
SSAVEi
$SAVES

$SAVES
$T1

$T110
$T11
$712
$T13

$T14
$T15
$T716
$117

CZM ABO ML -11 LOGIC TEST

MACRO M1113

SYMBOL TABLE

$T4
$740
$741

$742
$743
$T44

. ABS.

026544
065512
066500

$745
$746
$747

067532
070304
071240

$748
$749
$TS

105136

000000

ERRORS DETECTED:

8714 0
71
072332

072624
073516
027236

22-DEC-80 12:16

$750
$751
$T75

$75
$T54

87422
74664
075712

076464
077264

H 8
PAGE 523-4

SEQ 0514

$755
$756
$757

$758
$T59

100306
101156
102260

103502
104106

$T76
$760
377

$78
$79

027
104554
030316

031146
032132

001

VIRTUAL MEMORY USED:
34695 WORDS
( 136 PAGES)
DYNAMIC MEMORY:
21558 WORDS
( 82 PAGES)
ELAPSED TIME:
00:11:10
M1, ML11/~SP/CR:SYM=SVC/ML ,CZMLAB.DOC ,ML2.P11,B16PG1.P11,B16PG2.P11,B16PG3.P11,B16PG4.P11,816MUL.P11,B16SAV.P11.ML.3.P11.
M4 .P11

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VAL UE
ADR
000020
ARR .DA
010570

MACRO

ON 22-DEC-80 AT 12:19

REFERENCES

419—19218

-8071
1-14034
19-2¢4

ARR. IN

011562

#79-1880

i8-8y

ARR.16
ASSEMB
ASYNC

011574
000010
010464

#79-1887

*186-7182

361-16136

A.CAL
A.GEN

8170

43 ~1
98-2891

CREF

15-8617

22-14076

$53°72057
289-12436

364-16351 5-16319 412-18824
*186-7193 *186~7 13 *186-7214
*186~721

89-1§§95

458-19843 4£34-19988

1012991

SEQ 0515
71-11447

23-164114
E?g—} 442

334-14717

272-11511

390-17650

273-11587

309-13418

332-14603

342-15126

342-15135

216-8659

22-8989

396~17972

289-12457

*98-2892
101-3015

*98-2893
*4(53-21003

16403
505-23579
%653-21006
454-21029 *458-21246

483-22457

489-22772

523-24472

103-3112
347-15383
419-19205

281-11991
353-15715

448-20756

489-22776

523-24472

29-9334

41-9954
42-9973
4910349
249-10366
57-10771
257-10788
5-11163
265-11181
84-12151
288-12344
=12641
7-12800
413-18898 429-19737
516-24126
454-21036 #458-21249
458-21268

42-9990
249-10383
258~10809
265-11199
288-12360
298-12823
430~19761

284-12145
362-16179
490-22822

309-13388
372-16699

459-21279

(a1~

(ole]

Rgg §g

8IT01
B8IT02
81703

AOOOOONONOOOOOOOOONOOOHOOHOHOOHOOOHOO

431-19804
904

362-16154

09-8320
22-14055

PAGE

523-24471
98-2863

04
#523-24439
#38-304

?23-24440

523-24444
483-22496

283-12066
355-15828
483-22481

307-13305
365-16343
523-24470

CREATED BY

CROSS REFERENCE
VALL§

003526

MACRO

ON 22-DEC~80 AT 12:19

FERENCES

#54-128

%ig%
g
003776 G

:9-155
g-}gg

013142
013150
014612
011570

#79-1905
#79-1908
#97-2832
#79-1884

kit
-

#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4613
#4-1
#4-1
#4-1
#46~1
zz-}

D000080
=

#6-13
#6-13
#4-13
#4-13
#4-13
#6-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13
#4-13

= 000060
= 000054
= 000057
= 000010
= 000005
= 000003
= 000001
= 000032
= 000026
= 000027
= 000043
= 000042
= 000030
= 000040
= 000011

16~¢07

= 000052
= 000061
= 000022
= 000004
= 000002
= 000045
= 000062
= 000012
= 000035
= 000006
= 000036
= 000044
= 000051
= 000024
= 000053
= 000003
= 000055
= 000056

495-23053

PAGE 2
CREF

SEQ 0516

5 g-%‘l.??.

?(s)?.
9% 9-1
? 1-5999“71 9-166
101-3008 283-12099
390-17671
484-22513
490-22793
523-24471
9-15
10-191
16-175
16-178
16-182
16-186
-

21-143

21-147

21-153

22-180

98-2897
«98-2898
+98-2899
101-3000
101-3017 #453-21004
453-21009 458-21252
*186-7191 «186-7211
520-24311

4-65

28-192

101-3017 #453-21007
454-21030 #458-21247

28-196

28-202

454-21037 *458-21250
458-21269

29-234

459-21280

mnn

CREATED BY

SYMBOL CROSS REFERENCE

E&PNTX VA88891
ESOIO =
72
CIREFG = 000007
E 4

E J

CSRESE
CSREVI
CSRFLA
CSRPYT
(CSSEFG
CSSPRI
CSSVEC
CS$TPRI

DATA.L
DAT.DM

DFPTBL

DIAGMC

DIVMOD

=
=
=
=
=
=
=
=

0000
00000

DRIVE.
DT.1
DUMPER

ON 22-DEC-80 AT 12:19

014162

002356

#4-119

389-17585

4-13
#35-196
#79-1898
#83-2117

003570
013132
013534
024052

SEQ 0517

REFERENCES
#4-13
#6-1
#6-1
6=
#4-1
#4-13
#6-1
465

#4-13
#4-13
#4-13
#4-13
#4-13
#6-13
#88-2392
#91-2556

1
S
000046
000041
000037
000013
= 010732

MACRO

93-2663
417-19120
4-13
37-275

+186-7188

95~23055

321-1
418-1

346-15321
483-22459

346-15342

490-22800

370-16618

371-16658

377-16968

378-17004

38-305
186~

495~
1?3—

~9991

549-10350
552-10517
5591089

Sa13343
SBe15i

= 011154

EF.CON
EF .NEW
EF.PR
EF.RES

= 000036
= 000035
= 000034
= 000037

EIG.FM
ELV.FM
ERRBLK
ERRMSG
ERRNBR
ERRTYP

= 006142
= 006244
002160
002156
002154
002152

EF.STA

71-21
5042352

*94-2691

471-219
05-235

«328-14

497-23157
4671

06
*484-22514
#88-2398
#94-2692
#328-14369 *333-14672 340-150 6 *341-15070
*371-16682 +378-17028 *389-17608 *419~19192 *448-20749 *484-22515
#84~ 1;9
#84-21
#84-2178
#84-2175
#84-2174
#85-2238
*371-16681 +378-17027 *389-17607 *419-19191

#85-2241

#4-96
#4-96
#4-96
#4-96

OO0

D2.TEM

#88-

= 011152

OOOO

D1.TEM

498-23212

+355-15
4 90-22
2276
*353-15702 *355-15815

484-22521 %489-22768

490-22798

m11

CREATED BY

MACRO

ON 22-DEC-80 AT 12:19

gm CC%S REFERENCE REFE
EC{.CH 0??212 c
010035972 453-21010 458-21253

PAGE &
CREF

SEQ 0518

ESEND
ESLOAD
E2.TEM

= 002100
= 000035
= 011156

FIND.C

015430

FIRST.

FIV.FM

016040

04-1
#6-1
t‘

399

-1

01§§E

#85-2235

42-10014

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

FMT.25
FMT.26
FMT.3
FMT.4
FAT.5
FMT.6
FMT.7
FMT.8
FMT.9
FNC.1
FNC.10
FNC.11
FNC.12

= 005746
= 005764
= 004354
= 004400
= 004430
= 004532
= 004562
= 004610
= 004644
= 007726
= 010050
= 010060
= 010100

FNC.16
FNC.17

= 010150
= 010162

FNC.i3
FNC.14
FNC.15

004222
004676
004750
005004
005034
005110
005150
005216
005
005342
12
004266
005462
005534

005652
005722

= 010112
= 010122
= 010136

464-21514
24

750

50-10411

8:1

282-12025
29312612
407-18580

59-1

FMT.1
FMT.10
FMT.11
FAT.12
FMT.13
FMT.14
FMT.15
FMT.16
FMT.17
FMT.18
FMT.19
FMT.2
FMT.20
FMT.21
FMT.22
FMT.23
FMT.26

=65
=2693
*328-14370 *333-14673 340-15017 «341-15071 #347-15371 «353-15703 «355-15816
*378-17029 *389-17609 *619-19193 %448-20750 *484-22516 £84=22522 *489-22747 #489-22748

#85-2205
#85-2214
#85-2215
#85-221
#85-221
#85-2218
#85-2219
#85-2220
#85-2221
#85-222
#85-222
#85-2206
#85-2224
#85-2225
#85-2226
#85-2227
#85-2228

181-6928
#85-2229
#85-2
#85-2207

#85-2208
#85-2
085-3310
#85-2211
#851§
#85-221
#87#87-2349
#87-2350

#87-2351
#87- 35§
#87-235
#87-2354

#87-2355
#87-2356

412'18940

72
359
195~-7508
12816
10~13455
16415
402-18313
205-809¢
187-7243
454-21031
200~7824
454-21038
464-21531
485-22566
180-6861
80-6¢&

1816935
226~9175
226~9185

77-11776
79-170
419-1922
§84-121
20-24321
1;4 2

4 10%32

465-21

12-8624
43-10075
=10469
9-10903

56107
=971

84-12116
=12648
426~19530
49723167

7-12792
37-9732

313-13613

57-10778
5-111n
89-12417
28-14406
471-21926

478-22220

42~9980
49-10373
57-10795
65-11189
12463
~15421

354-15769

42~9997
49-10390
SS
79-17065

516-24140

223-9018

271-11466

272-11530

274-11605

233-9544

315-13705

383-17293

408-18595

505-2359¢

466-21625

466-21653

471-21907

472-21936

&77-22197

478-22226

180-6875
1816942

180-6882
181-6949

180-6889
182-6961

180-6896
182-6970

1816907
182-6977

181-6914

181-6921

402-18284

402-18320

403-18355

449-20794

323-14131
520~24332
290-12468

430-19751

430-19771

431-19814

33414727

413-18910

520-24307

298-12835

298-12856

210-8343

216-8635

459-21274

497-23184

216-8669
459-21281
464-21555
-22863

289-12413 290~12459
g1 288-12380
12608 293-12624 294-12644
-12847
53-15739 FERS 425-19482 425-19504 425-19521
8-14401

-1541
364-16284

327-14342

41-9961
49-10356

511-23899

88-12347
1
1 ;g?

gz;-1516

327-14320

364-16286

412-18844

366-16407

412-18838

413-18903

}0172

- ob7%es

t 4

283-12075

64-11111
43~1
‘8:10
59-10856
71
02-1
i‘

3=11167
43—18?71
491
¢59-1087
02-1
10738

265-11185
44~10089
50=10407
59-10
03-18342
260~10924

56583

Sgg:}}809

498-23214

71-51883
506~23619
282-12043

477-22169
507-¢3665
302-13031

515-24072
302-13046

= 007776

= 010004

= 010022
= 010036
015602
015760

= 000015
= 000020
= 000040
= 000007
= 000016
= 000041

413~18904
471-21901
#6-13
#4-13
#4-13
#6-13
#4-13
#4-13

= 000012
= 000003
= 000005
= 000010
= 000002
= 000014

#4-13
#4-13
#4-13
#4-13
#4-13
#4-13

#4-13
7109-3382

407-185?%
443~204
471-21884
511-23864
#79-1
#4-1

011564
000200

#6-13

237-9745
73-11590

#87#87l104-§
#106~
#85-22

= 000004
= 000013
= 000006
= 000050
= 000000
= 000011
= 000021

= 000001
016062

237-9728

#87~

4-13
5-247
#4-13
#4-13
#4-13
#4-13
#6-13
#46-13
#4-13

= 000017

SEQ 0519

282-12039

#87~
#87#87#87-

= 010012

PAGE 5
CREF

396-17979

= 010216
= 010230
= 010 48
= 00775
=z 007756

ON 22-DEC-80 AT 12:19

477-22191

497-23147

631-19849
498-23217

4-39

5-226

5-274

5-305

5-337

4-13
4-13
5-288
5-226
«-119

4-13
4-13

4-39

5-337

5-305

5-311

5-274

5-288

4-150

4-162

371-16645
407-18557
448~20

378-16995 382-17240 383-17261
418-19149 4;4-19434
424~19456
4?9-507;5 453-20999 8—215 g
&77-22174 4B82-22437 4B4-22539
4086
109-3384 +186-7181
+341-15115

476~ 2??2
$1S-§40

91-2 58

5-337
5-247

437-20115
511-23890

440-20287

266~11210
44-1011;
250~-1044
71-11452
443-20485
271-11451

310-13442

441-20326

439-20252

443-20483

51-1046
72-11516

91=-104%

272-11515

308-13347

315-13691

366~-16409
46421549

395-17937
441-20335
465-21596
495-23077

401-18242

449-20780

72-16734

-13
-13

CREATED BY MACRO
CRRES REFERENCE
UE
FE

4-139

388-1759%
440-202
463-21480
489-22762

395-17920

440~-20308
464-21508
490-22836

2046
470~-21835
510-23849

o
a0e

#6-1

5-239

§5-260

5-241

§-242

#6-1
#4-1
#4-1
#-13

§-939
3-g¢
5-24

§-241
§-245

§-242
5-285

5-244

5-24
5-24

5245

5-285

#4-1

5-239

#4-1
#6-1

#-13

5-239

#4-13

5-239

§5-240

4-30
5-276

#79-1876
#85-220

*314-13632

314-13672

1997801

252-10516

388-17524
407-183¢5
*617-19114
436~20096
*663-21479
*477-22163
507-23667
=219

91-2559
340-15041

§5-241

5-241

§5-241

§-242

#5-288

5-2644

§-242

§-243

5-244

4-105
5-330

4121
5-340

260-10921

308-13345

34215140

353-15729

103-3098_
+103-3099
108-3335_
109-3385
110-3434
362-16153 365-16318 #371-16643 +378-16994 38217239 »

#4-39

5-337

5-285
5-285

5-244

5-244
5-245
4-152

364-16280

#5-337

5-285
#5-167

373-16757

g Bl

*401-1
*401-18257 +406-18530 «
18531
"12-1
41218866
+413-18881
4]
18886
+424-19448 425-1947¢ 2315
429-19728
0443~
#453-20970 %453~
%454-21051
*470-21834 471-21877 471-21915
466~21
#489-22758 490-22844
504-23516 505-23570

#5-247

#5-305

5-243

467
5-313

(641635 2¢e1-2138

4-39

§-243

448
5-291

39%4-17878 +395-17928 396-17958
+411-18786 411-18799 411-1
#417-19115
#417-19116 +624-1933
'440-50279
%463-2149
477-22205 '48 =22428 484~ 2547
#510~23848 #515-24074 519-24285

b and cmd ad
b

5-240

48
§-249

#79-1889
339-14988

5-240

#6—%
28

¥83-2391

SEQ 0520

#-1

#o-1

010672
purd

PAGE ¢

#4-1

OO
=

oA
CREATED B8Y MACRO ON 22-DEC-B0 AT 12:19
SYMBOL CROSS REFERENCE
REFERENCES
V.
=
#e-1
#4=1

*407-18548
*417-19110
434-19982
%458-21238

*476~22120
S06~23621

CREATED BY

013134
002110
002036
004212
002070
004166

LSCLEA
L$CO
LSDEPO

105116
002032
002011

LSOESP
LSOEVP
LSDISP
LSOLY

LSOTP
LSDTYP
LSOU
LSOUT

LSOVTY
LSEF
LSENVI
LSERRT
LSETP
LSEXP]
LSEXP4

LSEXPS

002106

002130
002076
002060
002164
002116

002040
002034
004200
002072

002122
00
00
002152
002102
2046
2064

002066

0552-54397

119
gSree-tis

352-15652
43-198
43-100
502-24416
43~148
339-15006
187-7270

352-15674

354-15787

48422519

£90-22796

SEQ 0521

430-19790

94~2720

#84-2188

#43-32
#79-1888

43—49
*186-7 183 *186-7198 *186-7199 *187-7225
*187-7226
289-1239¢ 289-12435 332-14602
342-15125 342-;2;34 412-18823 412-18827 504-235 40
#79-1886
110-3433 *186~7184 *186-7204 *186~7205 *186~7206 *187-7233 *187-7234 *187-7235
354=15757 429-19715 430-19794 431-15813 634~19972 436-20097 504-23514 505-23563 506-23622
506-23639 507-23662 519-24274
#79-1900
182-6965
*187-7239
*187-72461
193-7477

#6465
#4665
4~65
#4665
465
#4665
4~65
#4665
#4665
465
#4-65
#4665
4-65
#4-65

#43-198
#43-100
#522-26415

w4-87

#4-103

250-10419
327-14346
346~15346
370-16623

418-19165
419-19184
#5-65
#4665
465
#43-148
#4-65

465

#4665
#4-65
4-65
#4-65
#4-65
#4665
#6-65

#4-80

#4-96

93-2667
64-11096
3-14629

93-2680

448-20730

448-20741

352-15657
371-16674

301-13010
333-14652
352-15678
377-16973

483-22463

378-17020

484-22526

36-9693
-1 3660
058
159

243-10043

[« YV
,]

LST.DU
LSACP
LSAPT
LSAU
LSAUT
LSAUTO

REFERENCES
#4-1
#4-1
#4-1
#46-1

PAGE 7
CREF

011572

ON 22-DEC-~80 AT 12:19

#110-3431
#63-181

(211]

LST.BL

LSOESC

000041
000041
000041
000167
016114
004210

IlalaIalaYalaTalalaT
AT 2T A

004164
105106
004176
017124
024714
013604
= 040000
= 000010
004152
011576

LS$CCP

=
=
=
=

aoaoOHOOOOOOs

ISSRV
ISSUB
ISTST
JSUMP
(AST.B
LAY
LAUTO
LCLEAN
LOU
LD.LNG
LINIT
LOAD.S
LOE
Lot
LRPT
LST.AR

MACRO

\¥ [y %

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

7600

418-19129

CREATED BY

60340

QOO OHAOAMHOOOOOOOONOOOOOOO

SYMBOL CROSS REFERENCE
VAL

MACRO

ON 22-DEC-80 AT 12:19

REFERENCES
465

#4-65
#4-65

5-226

#5-226

4-119

#4-119

#523-246444

#5-305

#43-49

5-274

#5-274

4-150

#4-150

185-7113
#4-139
#4-162

185-7129

93-2658
187-7248
200-7832
29-9324

94-27
189-7335
7851
349

158-5815
196-7629
521-7876

161-5978
1

77-11749

1-11973

81-1198
124

=12051
1

84-12134
13-13607
15318
71~

58-?309

10478

284-12141
1
5338
71-16651

§3:143?§
1566

7-14‘§9

401-18227

4;0- 1§26 476—53{22

418-19154
443-20457
482-22433
506-23611

443-50468
482~ 5242
506-25651

484~ ig 5
507-25674

*185-7127
190-7367

185-7129

185-7132

+185-7159

95-17933

21;:1910%

218:1914;

504-23505
519- 4579

504-23544

237-9760

*185-7158
194-7526

244-10134

196-7661

<2-10532

167-6217

200~-7817

59-10823
4-13 64
78-1
4
521

9%-1

#84-2144
187-7242
234-9559

186-7165

#5-247
#5-288

§50-10£31

013600

SEQ 0522

#187-7270

#88-2390
#84-2145
*186~7176

M.LUN

PAGE 8
REF

424-18%38 424~19441
201-7887
260-10937

205-8113
266-11222

4
5
+185~-7160

210-8366
274-11625

186~7165

216-8676

186~7168

23~9041

10-13467

%m1wmm1,ww1mf.lf“miwflmmf,imfmimm4w“mm%ms%mSweE7mR3E7RT&RnfSlUEm6mL&w5s%m4Lr4u5m5«,zO4u“m4“%Vm4mm%lm1a4,%”%3R4%%
ML .REG

905w\ PN 5329

g S G PR NS

eQ0—M(=N OOR.-a}G1.0P7GP.0[SGoGSPPeR)FNPTalPW’aS1G0"aNIoYPUTaOlIRSoE4Py&5So8LYY.M.IXXN.RX‘JEX“‘RoJ[RlEOeIRNNON

V-nT0]oVTmK0oVAToNNTnOSTAmVATNxoVTosNNoYmToWVmFTTMFQNTemQNNnoNTQmWT[aVIEaNqVT-QmVnm+1mA24H'‘ATn9019R0ya01S1QIs1vq1eALNsNI1nNTmORg1CTR”m3A1RRS7sIF7A1TYFNTR14COYAUNTHIION1N4MTAwMT1R-1OoNK1%A1\UNiWyS&
e

m11
CREATED BY
MACRO
SYMBOL CROSS REFERENCE
SYMBOL VALUE
ON 22-DEC-B0 AT 12:19

PAGE 9

CREF

013154

SEQ 0523

X 18914 420-19258 432-19864

15875

373-16748

380-17095

m1“R12m37m11m1m1m}wNem1}4dz7s14b»w1,a4u0m148Bw4»14rA1wLueSwl’~G1mKwR1u‘aa1en»14uBs1S0OSdmeh2wgd:w@hw&m%my%uS“m?%mimms

wmBSePTRS%%%uzw

87z13m51R5.’1P15N1881n'rE1m1Rm,qs.1ln1e3m1'a11sR1’13-s1a18'e11Am1o"D$‘m3ea1lRag’lc10sliAln1mRcl;mcml1aclmc1lnuclnq1lmcRl1.lmcp,la1laaDl4q1lBa
M

ON 22-DEC-80 AT 12:19

““““ LA4&NF 4bAa& L“A4‘“
Liddmhi
dbeb d

MACRO

-PP

CREATED BY

. -

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

S“3S?csrammmobdmoftdiasisme mw %S&5z” tdths S

mw%9 PmgumwgmPPwgmufP5l % “6%.64“%455S55m.”.m)x‘(c)c.,!m:aml%

Eu4XPLo2P8FTw42 EPm45R£&0S48E&CwgaE7xANmEvLMalrwo%&m3w3mwsmzw6Sm3mT3mmwm3mmm3zwu3mawzwmwuw“u
M1
PAGE 10
CREF

SEQ 0524

ddd

$04=5351
505-93

51
51
51

§15-3408
5§15-2410
519-2428

88-2398
90-2483

88-2399
90-2493

-l

&£ N
)

& § 5&
Lot
~

—d add aud

“

RERRR
S

3e JE8EITLIT

4983300

506~33621
507-

]

476=9215
-35632
4 3-354%
Col-95534
499-95°73
40-2 4
495495-33

506~
506~
507
51
51

002476

pry
AP
411-¢1t ¢

¥g5838

‘

$57-8121

F Y YY)

476~
47’
482484~
489490495495~

510~
510-2385
§11-2389

465471~

4. SERGSY

m
4
44

BN =AW
N

"
“
4

SEQ 0525

SYMBOL

PAGE 11
CREF

ON 22-DEC-80 AT 12:19

MACRO

CREATED BY

SYMBOL Cfi&REFERENCE

VIVAWVWAWIWAIWAWN
b b b d i wcd O
W

522-24397

19-24282

519-24283

002512
002540
002563

002614
002646
002672
002726
0246062
011152

NIN.FM

ONEF IL
ONE.FM
OP.NUM

OSAPTS

*121-3991
*122-4039
#85-2239
#2-4
#85-2231

#79-1878

362-16141

#4-13
#4-13
#4-13
#4-13

114-3648
114-3656
118-3839
118-3845
*122-4004
*122-4007
449-20785

3-1308

196-7650
186-7194

4-65
4-65
4-65

4-65

89-2433
?0-2502
3668

118-3847
*122-4014

89-2439
113-3588
115-3680
118-3853
*122-4018

1867215

187-7227

89-2451
3606

89-2457

114-3618

8-3828
*121-3987
*122-4031

4-34
186-7200

233-9514

233-9542

289-12433

A S

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL

osou
OSERRT
OSGNSW
OSPOIN
OSSETU
PAR.DI

VALUE

=
=
=
=
=

PD.TEM

PHR.1

PHR.10
PHR.11
PHR.12
PHR.13
PHR.14
PHR.15
PHR.2
PHR.3
PHR.4
PHR.S5

PHR.6
PHR.7
PHR.8
PHR.9
PNT
PRI
PRIOO
PRIOT
PRIO2
PRIO3
PRIOG
PRIOS

PRIO6
PRIO7
PRSN
PTBL.P
P.AAA
P.AAB
P.AAC
P.AAD
P.AAE

REFERENCES

PAGE 12
CREF

#4-1
#4-1
#4=1
#4-1
#4-1

013120

#79-1892
26 9
=2701
'§S3-156 53-1
09 *355-15803

#79-1883

#87-2325

9-108

#87-2334
#87-2335
#87-2336
#87-2337
#87-2338
#87-2339
#87-2326

004222
004266
004354
004400
004430

4~65

41-9959

65-11151

412-18845

328-14404
505-23581

25010409
265-11169

252-10521
265-11187

429-19740

6
G
6

364-16287
504-23526

315-13687
407-18575

#87-2329

G
G
G
G
G
G

iB 12095 585-12022 249~10
289-12386

273~-11593
403-18344

#87-2330
#87-2331
#87-2332
#87-2333
#84-2194
#85-2199
#84-2186
#84-2185
#84-2184
#84-2183
#84-2182
#84-2181

196-7649
190-7360
193-7501

46421545

439-20248

242-9978
=-11769
22-14082

259-10901

#87-2327
#87-2328

G
G

497-23158
48422555
491-22856
80-6856
226-9174
237-9713

29-9319

226~9184
2429995
282-12041

259-10858

= 007472

= 000370
= 000340
002376
011556

'1%&-717‘

464-%1 2 -2161
;-1514

007564
007576
007614
007636
007662
007714
007404

007504
007516
007540
007552
001000
002000
000000
000040
000100
000140
000200
000240

#6-46
#4~46
#4646
04-46

SEQ 0526

13314660 34-14683 *340-15054
2-16166 362-16173
72-1669 78-1 01 37917039«335178%¢©389-17619
+418-19176
4 2674 '483-2247 490-22815 *490-22816

011566

= 007422
= 007454

=
=
=
=
=
=
=
=
=
=
=
=

ON 22-DEC-80 AT

000001
000001
000001
000001
000001

= 007366

=
=
=
=
=
=
=

MACRO

4b~1

248-10335

354

23-14120

426-19528

244-10120
284-12114

249-10371

288-12349

210-8331
353-15733

257-10744
294=12646

257-10759
298-12828
437-20113

250~10449
293-125%¢

251-10496
298-12809

431-19832

215-8623
372-16738

216~8661
373-16764

402-18273

271-11454

272-11518

289-12415

242-9992
258-10814
293-12610

242-10012
260~10926
293-12626

243-10033
264-11113
298-12849

249-10368
264-11125
322-14044

249-10388
264-11128
322-14061

186-7171

186~7173

2643-10073
283-12077

199-7808

249-10351

257-10756

264-11144

284-12157

#84-2180
#84-2179
#4-160
#79-1876

225-9134
*185-7134

185-7140

85-2205
85-22
85-2207
85-2208
85-2209

185-7137
187-7236

185-7138

#62-912
#62-924
#62-942
#62-949
#62-957

226-9145
185-7135
186-7185

1867177

447-20682 *448~-20737

43419993

25-14103

242-9975
284-12153
425-19483
425-19505

186~71

347-15377
365-16337 «371-16670

g78 ~346-15354

*186-7170

257-10776

402-18305

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL VALUE

P.AAF
P.AAG

0045
004

P.AA]

004644

P.AAH

004610

P.AAJ
P.AAK
P.AAL
P.AAM
P.AAN
P.AAD
P.AAP

004676
004750
005
0050
005110
005150
005216

P.AAR

005342

P.AAQ

MACRO

ON 22-DEC-80 AT 12:19

REFERENCES

-983
1

1009

#65-1126

85-22 i

#65-1116

#66~1144

P.AAU

005534

#66~1172

P.AAW
P . AAX

P.AAY

005652
005722

005746

5=221

5-22164
§-2215
S- 19
§-221
5-2218
5-2219
85-22

005412

P.AAV

85-

1018
#64-1036
#64~1
#64-1054
#64-1069
#65-1084
#65-1097

P.AAS
P.AAT

85-% 10
85-2211

#66~-1158

#66~-1186

85-2221

85-222

85-22264

85-2225

85-2226

#67-1202
#67-1216

85-2227
85-2228

#67-1223

S~ Zgg

P.AAZ
P.ABA

005764
006016

#67-1228
#67-1237

85-22
85-2231

P.ABC

006034

#67-1242

85-223

P.ABB

006024

#67-1239

85-223

P.ABD

006046

#68-1250

P.ABF

006100

#68-1259

P.ABH

006142

#68-1271

85~

P.ABJ
P.ABK
P.ABL

006214
006244
006276

#68-1286
068-1584
#69-1307

85-2240
85-2241
85-224

P.ABN
P.ABO
P.ABP
P.ABQ
P.ABR

006314
006322
006330
006336
006344

#69-1313
#69-1315
#69-1317
#69-1319
#69-1321

85-2244
85-2245
85-2246
85-2247
85-2248

P.ABT

006374

#69-13

85-2250

P.ABYV
P.ABW

006416
006426

#69-1336
#69-1339

P.ABY

006442

#69-1344

P.ACC
P.ACD
P.ACE

006502
006506
006514

#70-1360
#70-1362
#70-1364

P.ABE

P.ABG
P.ABI

P.ABM

P.ABS
P.ABU

P.ABX
P.ABZ
P.ACA
P.ACB

006120
006166

006302

006454

#68-1254

85-2235

#68-1265

85-2237

#68-1278

#69-1309

#69-1325

#69-1333

85-2239

85-224

85-224%
86-2255

86-2256
86-2257

#69-1342

86-2258

#69-1348
#69-1350
#69-1352

2
86-2261
86-226

86~2259

2
86-2264
86-2265

?ags 13

SEQ 0527

LQA

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE
P.ACF
006522
P.ACG
0065
P.ACH
006544
P.ACI
006552
P.ACJ
006560
P.ACK
006574
P.ACL
006602
P.ACM
006610
P.ACN
006624

P.ACO

P.ACP
P.ACQ

P.ACR
P.ACS

006632

006646
006654

P.ACT
P.ACU
P.ACV
P.ACW
P.ACX
P.ACY
P.ACZ
P.ADA
P.ADB
P.ADC
P.ADD
P.ADE
P .ADF
P.ADG

006674
006700
006710
006716
006726
006732
006746
006754
006764
006772
007004
007016
007026
007036

P.ADI
P.ADJ
P.ADK
P.ADL
P.ADM
P.ADN
P.ADO
P.ADP
P.ADQ
P.ADR
P.ADS
P.ADT
P.ADU
P.ADV
P.ADW
P.ADX
P.ADY
P.ADZ
P.AEA
P.AEB

007054
7066
007074
007104
007114
007122
007130
007140
007152
007156
007174
007210
007216
007224
007232
007240
007246
007252
7260
007272

P.AED
P.AEE

007310
007316

P .ADH

P.AEC

MACRO

ON 22-DEC-80 AT 12:19

R;FER NCES
#70~1

#70~1
#70-1372
#70-1374

#70-1376
#70-1
#70-1
#70~1384

#70-1388

#70~1390
#70-13%
#70-1396

#70~-1398

86-2266

gg:

67
68
gg: 69
270
86~ %71
86~ ;§
86-¢2
86-2274
86-2275
86-2276
86-5%77

86-2278

#70-1400
#70-1402
#70-1404

#70-1407
#70-1409

86~$%79
86-2280
86-2281
86-2282
86-2283

#72-1490
#72-1492
#72-1494

87-231
87-231
87-2314

#72-1511

87-2321

007302

PAGE 14
CREF

SEQ 0528

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

ON 22-DEC-80 AT 12:19

R;F ER§N§ES

P.AEF
P.AEG
P.AEN
P.AE]
P.AEJ
P.AEK
P.AEL
P.AEM
P.AEN
P.AEO
P.AEP
P.AEQ
P.AER
P.AES
P.AET
P.AEU
P.AEV

007330
007340
00
00
007404
007422
0074
007472
007504
007516
007540
007552
007564
007576
007614
007636
007662

#72-151
#72-151
#72-15
27515
#73-15
#73-1540
#73-1549
#73~1554
#73-1558
’
1525
#7315
#73-1572
#73-1576
#746-1584
#74-1589
#74-1595
#74-1602

875
7=
7-¢3264
7-¢3¢5
7=
9
7=
87-¢328
g?- g
7=
7-2331
7= 33;
87- g
7= %4
7-2335
7-2336
87-2337
87-2338

P.AEX
P.AEY
P.AEZ
P.AFA
P.AFB

007726
007742
007750
007756
007774

#74-1615
#764-1619
#74-1621
#74-1623
#74-1628

87-2340
87-2341
87-2342
87-2343
87-2344

P.AFE
P.AFF

010022
010036

#75-1640
#75-1644

87-2347
87-2348

P.AFH
P.AFI

010060
010100

#75-1651
#75-1657

P.AFK
P.AFL

010122
010136

#75-1664
#75-1668

P.AEW

P.AFC
P.AFD

P.AFG
P.AFJ

P.AFM
P.AFN
P.AFO
P.AFP
P.AFQ
P.AFR
P.AFS
P.AFT

007714

010004
010012

010050

010112

010150
010162
010172
010204
010216
010230
010242
010256

P.AFU

010266

P.AFX

010310

P.AFV
P.AFW

P.AFY
P.AFZ

P.AGA
P.AGB
P.AGC
P.AGD
P.AGE

010274
010302

010316
010324

010332
010340
010346
010354
010362

#764-1611

#76-1631
#764-1633

#75-1648

87-2339

87-2345
87-2346

87-2349

87-2350
87-2351

#75-1661

87-235

#75-1672
#75-1676
#75-1679
#75-1683
#75-1687
#75-1691
#76-1699
#76-1703

87-2355
87-2356
87-2357
87-2358
87-2359
7-2
87-2361
7=2

#76-1706
#76-1708
#76~1710

#76-1712

#76~1714
#76-1716

#76-1718
#76-1720
#76-1722
#76-1724
#76-1726

87-235
87-2354

88-236

88-2368
88-5369

88-2370

88-2371
88-%37

88-237
88-2374
88-2375
88-2376
88-2377

PAGE 15
CREF

SEQ 0529

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VAL

MACRO

ON 22-DEC-80 AT 12:19

Rsrensmss

P.AGF
P.AGG
P.AGH
P.AGI
P.AGJ
P.AGK
P.AGL
P.AGM
P.AGN
P.AGO
P.AGP
P.AGQ
P.AGR
P.AGS
P.AGT
P.AGU
P.AGV
P.AGW
P.AGX
P.CAL
P.GEN

010370
010376
010404
010412
010420
010430
010436
010444
010454
010464
010526
010570
01
010672
010732
010772
011026
011060
011106
013144
013152

#76-1728
#76-17
#7617
#76~1
#76~1
#76-1739
#76-1741
#76~1743
#7617
#77-175
#77-1765
N77-1777
#77-1788
£77-1
#78-181
#78-1
#78-1
#78-1845
#78-1853
#79-1906
#79-1909

RD.DA

020066

M31449%

RAS.IN
RD.CS1

RD.DAT

013124
017532

013130

RD.DS
RD.D1
RD.D2
RD.D3
RD.EE
RD.EL
RD.ER
RD.E1
RD.E2
RD .MR
RD.PA
RD.PD

022766
021654
022166
022514
021530
021466
017710
020644
021064
020244
020436
021326

REG.IN

013136

RD.REG

REG.1
REG.10
REG.11
REG.12

023462

= 010256
= 010346
= 010354
= 010

#79-1895
#125-4179

+186-7190
1776706

791897

#125-4196

#170-6356
#157-S781
#161-5969
#166-6179
#154-5623
#151-5490
#128-4337
01604970
$1464-5153
#134-4652
#137-4810
#148-5339

178-6760
178-6765
178-6770
1786775
177-6746
177-6751
1776711
177-6726
177-6731
177-6;;;
177-6
177-6741

21374826
151-5493
*170-6369

87~
‘gg:

180-6867

37
#88~
#88-3378
#88-0379

REG.1S

= 010404

288~ ggo

REG.17 = 010420
REG.18 = 010430

#88-238
#88-238

REG.16

= 010412

1374827
#154-5625
170~6370

204-8044

#79-190

= 010370

= 010376

1776716

M76~6679

REG.13
REG.14

gg- 78
-3379
88-2380
88-2381
8888~
08~
£8-238S
88888888~ gao
88-2390
88-2391
88-939
88-339
88-239%
88-2395
88-2396
98-2885
101-2985

#88-2381

+98-2886
101-3013

»186~7210
%22-8945

220-8959

1254195

1404986
154~5626
204~8083

PAGE 16
CREF

+98-2887
#453-21005

341-15117

#128~4352

140~4987
#158-S810
210-8336

459-21278

411-18787

411-18797

1284353

#131-4509

144-5171
*162-5998
223-9011

#148-5356
148-5357 #151-5492
162-5999 #167-6211
1676212
271-11459 272-11523 274~11602

134-4668

271-11442

272-11506

273-11582

*144-5170
158-5811
215-8628

131-4510

222-8966
215-8584

181-6948

497-23160

498-23216

180-6895
180-6874%

190-7362

182-6960

101-3013 *453-21008 454-21035 %458-21251
454-21028 *458-21248 458-21267

222-8952
220-8973
222-8980
209-8293

157-5787

SEQ 0530

161-5975

504-23528

166~6186

505-23582

%273-11555 #273-11577 %274-11622

507-23687

1344667

CREATED BY MACRO
SYMROL CROSLSEREFERENCE
SYMBOL

REG.19
REG.
REG.
REG.Z1
REG.
REG.4
REG.S
REG.6
REG.7
REG.8

REG.9
REM.TB
RE2

RE3
RE4

RH.ADD
RH.ERR
RH.TYP
RH.VEC

SC.SET
SEV.FM
SFPTBL
SIX.FM
STACK
STK.OF
STRIPP
SVCGBL

VAL

=
=
x
=
=
=
=
=
=
=
=

010436
010266
010444
010454
010;54
010 8
01031
010316
0103%3
0103
010340
013434
004144
004142
004140

013572
= 011060

RSFER NCES

7
5

#
#88~

#88#88~
#88-2374

085-2080
42-66
42-74
4%-83

2137

#88-2395

180-6881
1 1-6908
182-696

282-12024

181-691

266~11205

182-697
1;1-69
181-69

283-12107

gags 17

284-12154

430-19765

431-19808

431-19829

98-2883

98-2889

98-2895

105-3204

105-3209

*185-7137

185-7148

181-69

216~8662

1816941

#42-96
#4295
#62-9%%

190-7358

*185-7139
*185-7141
36416289

372-16740

383-17282

012612

#85-2236
284-12159
390-17658

#79-1891

199-7809
308-13353
396-17980

-8079
13428
402-18276

10-8332
=14046
402-18308

402-18318

403-18335

012600
014214
= 177777

#79-1890

= 177777

52-10524

*90-2496

= *90-249

*90-2509

22-1406;
403-1834
*90-2510

88-2409

+93-2653

94-2712

*94-2716

#93-2647
#4-13
465
4-65

97-2836
#4-22
4~65
465

4-65
465
465
465
465
465
465
4~65
465
-80
4-103
4-150
5-274
#4-13
465
465
4-65
465
4-65

4-65
465
465
465
4~65
465
4~65
465
4-65
4-80
4-103
4-150
5=274
#=19
4~65
465
465
465
465

465

105-3213

193-7496

#83-2138
#84-2143
#88-2393
:25; 837

402-18295

SEQ 0531

199-7803

013574
013576
= 010772
= 0061
002376
= 006100

4-065

SVCINS

ON 22-DEC-80 AT 12:19

403-18353

401-18248
465
465
465

4-65
465
465

465
465
4-65
465
465
4-65
465
465
465
4-87
4-119
4-150
5-305
465
465
465
465
465
=65

465
465
465
465
465
465
4~65
465
465
4-87
4-119
4-150
5-305
465
465
465
465
4~65
465

465

266-11211
323-14105

271-11455
323-14122

272-11519
37316765

101-2984

401-18260

402-18282

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

MACRO

ON 22-DEC-80 AT 12:19

REFERENCES

SVCTST

SYNC

SSLSYM

TEN.FM
THR.FM

SEQ 0532

=10
4-103
4-103
4-103
4-103

4-103
4-103
4-103
4-103
4-103

4-103
4=103
4-103
4-103
4-103

4-103
5-239
5-¢41
5=24
524

4=10
5-239
5-¢41
5243
5-245

4-103
S-% 9
5-241
5-243
5-245

4-103
4-103
s-g 9
5-241
5-243
5-247

4-103
4-103
5-240
§-241
5-244
5-274

4-139
5-288

4-103

SvCSuB
SVCTAG

PAGE 18
CREF

#4-13
#4-13
5247

#4613

#88-2388

259-1089%6

425-19478
S
29}; 2852

4-10

#4-21
#4~23
5-247

04-20
42

g-13040

4-103

§09-8311

7;16731

1543
697— 3156

42519519
465-21610
498- 2N

#85~
#85353-15734
458-21263

190-7363
355-15847
464-21525

200-7865
412-1 884
466-21619

#88-239%4

4£43-20481

4-103
410
4-10
4-10
4~10

15-8608
79~17058

437-20109
46601640

504-93524

#5-24

4-103
4-103
4-103
4-103
4-103

5-285

5-288

4-139
5-288

4-162

5-247

243-1
17273

264-10115

440~20281

&4
774
477-22185
516~26121

471-21895

50703683

#5-288

2309343

251-104N
403-18339
454-21019
47722209

258-10849
407-18573

458-21258
484-22551

230-9363
43019766

230-9383
431-19809
504-23529

439-2025

342-15145
454-21024

355-15836

390~17645

419-19213

TSEXCP

#113-3569
328-14376 334-14697 341-15092 347-15391
353-15723
449-20769
#85-2
216-8663
231-9399
233-9531
353-15740 505-23583
#4-65
465
#4-65
#4-65
465
4~65
465
4~63
#4-65
465
4-65
#5-239
5-239
#5-239
5-239
#5-239
5-240
#5-240
5-240
#5-241
5-241
#5-24
5-24
#5-24
5-242
#5-242
524
#5-24
5-24
#5-244
5-244
#5-245
5-245
#3-245
5-245
#5-245
5-285
#5-285
5-285
#4-13
#5-239
5-239
#5-240
5-240
#5-241

TSFREE

'2 1324439

523-24440 #523-24441

TSHILI

#5-239
5-244
#4-13
#5-239
5-244

5-239

#5-240

5-240

#5241

5-239

#5-240

5-240

#5-241

4-13
4-39

4-139
#4-39

4-162
4~39
#6-150
5-247

5-247
4-119
4-150
5-247

TIME.O
TRBLE.
TST.LN

TWO.FM
TSARGC

T$CODE

TSERSN

TSLAST
TSLOLI
TSLSYM
TSNEST

#88-2596

282

#4-1
#4=1

4-139
5-226

#4-139
#5-226

4-150
5-226

419—19§
484-22556

43019746
491-22857

497-23161

334-1472
507-23688

516-24131

319-24298
465

4-139
62
#5-274

8¢Os3=tMO3O0O3R0OOhO0AMOmTM0nOIO0¥OOIA0MRNOO08O3M0O8O08OMOMO3OMLOO43O8OS3MO‘0M43N“ON8N\~0yp”AoamtetoOonM”L-l
AIeN8LAQRWYYSVGT0NVT'LooT8aVTd¥lga3d3VTlseoaV0o1e3lgeaoteol3eallae8bloiaeollb3aadblea8elloa0lleoallbdea3olla0lola3oLllhs8aendlbaan0dlsui3daolobl3aslelIoandlTLo=dnrdaeON\o—ufagtL &NMON—LOmoONMTb
ALAtaodalaelalalalalalalaialalalalalBlb wn

NSOV8Tetst
,I3IL8NRILYTRL3XRNRR8T028-383eA3ieSI8RAOIL3eA3Iet3ee3eAAe3=7=9R3v7N=3e=TteNSR o¢ NaA—1!03oD[Y0=y
0FVNAblL
VLiYVIA$®®N]OTtVMNQTn¥OVT¢IU”T=¥OMVMTToOVVN”OT©TSo)oOo=VOo’AIetNeML5OM)oNeYYTC)Me"YXe)oOo))DNo)ieYNIO"(e)o-M)oot))llMOo))PeYdCoVVe"lM))Oo)eNlP'oI)VeNl)a))Oned“teo))NCloeoeD)"Oyl)o)PMeTlIt)s)ANel}OseMEWulede))"tLMMo=YL)n)dOEt=AoYtM)ALNoNo)s l\ TN&O%-N)’Lo2oNWRN1[alNMAR.ya
YaXAlLt"a)NaN2lNJ=SNaYRoelAaelvalaeleLebalaRlaeaelarlalraeeLLatLBCLLAARNe b]N oT]NNW]
SYMBOL CROSS REFERENCE
SYMBOL VALUE

m
CREATED BY
MACRO
[T

4-103
4-103
4-103
4-103

ON 22-DEC-80 AT 12:19

2W [

3 e Wy

#238-9785

PAGE 19

CREF

SEQ 0533

—

116
117
118
119
12
120
14

122
123

124
125
126
127
128
129
13
130
31
132
133
134
135
136
137
138
139
T4
140
141
142
143
T44
145
146
147
748
149
15
150
151
152

153
154
155
156
157
758
159
T6

03 048
1
037556

041652
042110
04
0
2
0442
044614

045262
045

046774
047252
050676
051454
052440
053552
026530
054346
055742
057500
060512
061446
062100
043136
064
065050
065476
027222

067516
070270
071224
071434
o1
072316
072610
073502
074206
027644

074624
075676
076450
077250
100272
101142
102244
103466
104072
104540
030302

ON 22-DEC-80 AT 12:19

REFERENCES

4-10
4-10
4-10
4-10
4-10

4-103

4-103
4-10

4-10

4-103
4-103
4-10
4-10
4-103
4-103
4-103
4-103
4-103
4-103

(.2 -2 8
'
[J

13
114
115

21 lalalalalalal Al alalalalalalalalalalaTalalaTalalalalalala
ol alaTalaTa a2 12T a1 T2 X2 12121212121 2] (]

SYMBOL CROSS REFERENCE
SYMBOL
VAL

MACRO

CREATED BY

4-103
4-103
4-103
4-103

4-103

4-103
4-103
4-103
4-103
4-103
4-103
4-103
4-103
4-103
4-103
4-103
4-103
4-103
4-103

#397-18028
#404-18406
#408-18630
#201-7908
#416-18939
192

#211-8391

PAGE 20
CREF

8 10
SEQ 0534

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
VALUE

160
17
18
19

UAM
WRD.1

105072

= 000200
= 006276

o3
032116
032352

= 006406

G
G
6

MACRO

ON 22-DEC-~80 AT 12:19

REFER;NCES

4-10

PAGE 21
CREF

l%‘l?- 701
' 34-9066
#227-9212

#85-224

379714

41-9960

;—9976

264-11126

565-11149

88-1;'3550

3-12595

269-10369
255

179

SEQ 0535

#521-24364

4-10
4-10
4-10

084-519

c 10

250-10450

251-10497
13331

194

=10745

14719

6;—9993

257-10757

-1 810

5
=15844

63-10074

257-10774

366-16405

264-10121

259-10859

379-17062

248-10336

259-10902
383-17279

249-10352
264-11114
390-17655

625-19505 -19990

04420491

44920776

471-21899

477-22189

43-1007.
64-1111
3-1259
31-19831
10~
;9-10 9
=-11768
72-16736

=10119
1525
5

251-10466
283-12076
298-12808

41-9958
258-10813
28912414
79-17061
471-21922

250-10448
82-12040
=12645
437-20112
42-10011
10925
290-126460
383-17278

412-18846

413-18900

430-19763

006416

006426

#86-225

WRD.13
WRD.14

= 006436
= 006442

#86-2258
%2;59

20490

44-10090
82-12004
12609
431-19846
15-8622
257-10/792
12381
167
466-21643

342-15144

364~-16288

WRD.15

= 006454

#86~-2260

284-12115

284-12158

= 006506

#86-2264

261-9956

242-10009

243-10030

243~-10070

244-10088

559-10
S

60-10923
288-123

264-11109
589-15412

265-111€5
290-1245¢%
372-16733
425-19481

265-11183
3-12591

373-16759
425-19503

WRD.16
WRD.17
WRD.18

WRD.19

= 006462
= 006470
= 006502

#86~2261
¥86-~22
#86~22

25710790
266~11208

%g3-1 607
426-} 9%52

250—10446

258-10811
28%:1

%9 1
§94
90~-176
96-17974

298-12806
401-18266
264-10092

WRD.2

= 006302

#85-2243

2429979

WRD.20
WRD.21

= 006514
= 006522

#86~2265
#86~2266

252-105 ;
60-1092
2-1302

WRD.22

259-10873

WRD.23

= 006530
= 006544

#86~2267
086-“125%2 s

WRD.24
WRD.25
WRD.26

= 006552
= 006560
= 006574

'86.5569
#86~2270
#86-2271

WRD.27
WRD.29
WRD.3
WRD.30
WRD.31

WD.32
WRD.33
WRD.34

= 006602
= 006610
= 006314
= 006624
= 006632

= 006646
= 006654
=

#86~2 ;i
#86~2
#85-2244
#86~2274
#86-2275

#86~2276
#86-2277
#86-2278

24%

265-1115

256-10737

315-1
407-18577

249-10355

249-10372

251-10468

257-107%60

257-10777

37%-16739
17277

402-18275

402-18307

403-18346

407-1859

440-20286

323-14116

379-17064

383-17281

449-20778

288-12367

293-12611

298-12829

302-13045
302-13042

322-146040
37917063
4£37-20114

322-14057
17280

322-14078

323-14099

431-19833

431-19845

431-19848

242-10013
434-19994
431-19807

249-10389

257-10794

265-11170

322-14081
322-14079
322-14083

323-14102
323-14100
323-14104

323-14119
323-14117
323-14121

=14
322-14058
322-14062

252-10518

298-12846
403-18341

;‘

322-14043
322-164041
322-14045

251-10493

298-1
402-18302

328-14405
372-16735

42919741
429-19739
237-9731
434-19991
430-19764

15420
16761

51-10464

477-22212

263-10032
265-11168
298-12848
390-17654

CREATED BY

MACRO

ON 22-DEC-80 AT 12:19

SR VALl RereReces
WRD . = 006666
2%6- ;8 302-1 348
WRD .
WRD.37

WRD.
WRD.39
WRD.4

= 006674
= 006700
= 006710
= 006716
= 006322

WRD.40 = 006726

#8646~ SO
#86~2281

D10

SEQ 0536

315-13690

334-14721

51926297

200~7863

223-9005

334-14720

364-16283

366-16406

439-20250

402-18274
263-10034

402-18306

403-18345

258-10815

407-18576
265-11188

289-12416

290~12462

294-12631

310~13439
262-99%

264910353

249-10370

257-10758

257-10775

264-11127

265-11150

13425

328-14402
310-13441

419-19221

15-13689
199-780

86~
86~
85~ 1‘850

23-90088
194
2379748
419-192
309-13;;
262-99

0823.554

PAGE 22
CREF

309-1345

250-10410

310-13438

WRD.41
URD.kg
WRD .43
WRD.44
WRD.45

=
=z
=
=
=

006732
006746
006754
006764
006

¥86~2285
#86~ 589
36~228
#84~2288
#86~2289

WRD.47
WRD.48
WRD.49
WRD.5
WRD.50
WRD.51
WRD.52

=
=
=
=
=
=
=

007016
007026
007036
006330
007046
007054
00

#86~2291
#86~
g
#86#85-2246
#86~
#86~
86~

29-9338
55-15846
309-1342¢4
93-7499

§2 =-14080
17656
355-15845
204-8074

323-14101
396~17978

323-14118
412-18837

454-21023
413-18902

458-21262

210-8327

215-8621

271-11450

272-11514

273-115N

497-23159

WRD.53
WRD.54
WRD.55
WRD.56

=
=
=
=

007074
007104
007114
007122

#86~229
#86-2298
#86~ 533
#86~2

%30—939
1342
309-1342
204-8073

210-8326

215-8619

271-11449

272-11513

273-11589

353-15748

364-16282

WRD.57
WRD.58
WRD.59
WRD.6
WRD.60
WRD.61
WRD.62
WRD.63
WRD.64
WRD.65
WRD.67
WRD.68
WRD.69
WRD.7
WRD.70
WRD.71
URD.;g
WRD.
WRD.74
WRD.75
WRD.76
WRD.77
WRD.8
WRD.9

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

007130
007140
007152

230~9362
412-18836
252-10523
193-7502

230-9382

322-14042

322-14059

440~-20285

441-2032¢4

260~10928

464-21548

466-21646

471-21925

478-22219

449-20779

454-21022

458-21261

466-21642

471-21%900

471-21921

477-22211

497-23146

511-23889

497-23144
229-9337

511-23887
230-9361

230-9381

230-9394

439-20251

640-20284

46421547
464-215646
477-22188

466-21618
465-21613

484-22554

466-21645
466-21644
49122855

471-21924
471-21923

477-22214
477-22213

4460-20318

454-21021
372-16757

458-21260
373-16763

440-20283

471-21897

WRD.46

= 00

007156
007174
007210
007216
007224

007232
007240
007246
007252
00
007272
007302
007310
007316
007330
007340
007346

006374

#8646~

498-23;15

412-18835
086-%301
#86~ 30§
#86~2

#85-2247
#86~
#86~2305
#86-2
#87-2311
#87-231

#87-231
087-5314
#87-2315
087-5316
#85-2248
#87-2317
#87-2318

#87-2319
#87-2320
7-¢2321
#87~ 2§
#87-232
#87-2324
#85-2249
#85-22 50
491-22854

13349
10~13440
7-15412

504-235;7

4;8:19529

413-18901

440-20319

507-23686

:16-24;;9
946421524
464-21523
471-21898
477~ §1
530-9 80
29-9336

230-9360

477-22187

484-22553

m11

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL

WRT.CS
WRT.DA
WRT.DS
WRT.D1
WRT.D2
WRT.DS
WRT.EE
WRT.EL
WRT.ER
WRT.E1
WRT.E2
WRT.MR
WRT.PA
WRT.PD

VAL

010462
020016
02276k
021570
022102
022414
021526
021464
017640
020560
020766
020174
020352
021220

WRT.RE

W.C.SI
XORILN
XSALWA
XSFALS
X$OFFS
XSTRUE

SEND.L
SPATCH
$SAVE2

=
=
=
=

105136
002756
004044

G
G
G

004060

SSAVEG
SSAVES

004076
004116

G
G

025670
032366
033030
033274
033704
035056
036324
037572
040472
041666
042124

221-8907
221-8915

220-8878
21-880)
221-88%

221-8911
221-8923

221-8888
418-19147

221-8919

N21-5043
#132-4554
NB4710
#145-5228
#79-1896

#125-4191

125-4195

#79-1893
#117-379¢
#4-13
#4~13
#4-13
#4-13

+186~7189
*186-7209
372-16708
379~1705

#523-24451
#5-327
34-128
1294397

144-5153
170-6354
411-18785

143
1043184
515-26062

#42-76
35-196

20-8863

406-18519
48322745

#189#229-9318
#233-9506
1
#241-9939
#248-10315
#256~10
#263-11079
#270-11417
#277-11747
#281-11971

-8039

1374827
#154-5634
120-6370

PAGE 23
CREF

220-8875
0-8881

173-6508
173-651
174656
17¢-636
174-6572
17463
173-6548
1746557
1736313
173-65c8
1
533
1736573
1736c
s
173-6545

01374823
151-5493
*1?

SSAVES

$T1
$T10
$T11
$T12
$T13
$T1%
$115
$T16
$T17
$T18
$T19

aerg_sn

#172-64

013126

013122
016642
000000
000040
000400
000020

ON 22-DEC-80 AT 12:19

71553668
£159-5858
#163-6060
y152-554¢
i
ne-izle

023074

WT.DAT

MACRO

209-8288

*140-4983
154=5626
204-8084

271-11437 272-11501
273-11569
*131-4506
128-4353
131-4510
* 1344664
*144-5167
144=5171
*148-5353
148-5357
158-5811
*162-5997
162-5999 *167-6208
210-8337
223-9012
271-11460 272-11524
411-18798
411-18807 413-18887

214-8562

117-3797
196=7624
39371 _ #42-85

52-15638

361-16133

297-12778

417-19098
495-23041

44720675
504-23301

190-7391
231-9422
234~9580
786
945-10160
252-10554
60~10959
26611244
274-11647
278-11816
285-12200

SEQ 0537

*128-4349
160-4987
*158-5809

39-371_
#42-61
131-44%
132-4554
145-5228
148-5339
172-6481_
1766679
443-20453
51924273
10=191
15-153
185-7119
226~9144
523-24470

270-11417

E 10

0964
523-24470

113-3570
135-4710
157-5781

2641-9939

123-4082
137-4810
159-5858
248-10315

125-4179
138-4870
161-5969

134-4668
*151-5491
167-6212

128-4337
141-5043

256-10720

126-4239
140-4970
163-6060

263~11079

28-183
233-9506

#42-68
29-234
281-11971
288-12332

88-2407
424-19426

100-2975
510-23837

277-11747

429-19713
193-7475
32013956
382-17228
463-21477

523-24470
199-7786

-8271

214-8545
339-14973

470-21832

476-22118

97-2832
313-13604
377-16953

457-21208

401-18223
482-22421

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL VALUE

$12
$7
$721
$722
$723
$124
$125

026072
043274
044234

045276
045634
047010

$726

047566

$729

052454

$127
$128

$13
$730
$731
$132

050712
051470
026336
053566

$T33
$734
$135

054362
055756
057514
060526
061462

$137
$738
$739
$T4
$740
$T41
$T42
$743
$T44

063152
064
065064
026544
065512
066500
067532
070
071240

$T746
$T147

071634
072332

$7136

$745

062114

071450

$748
$749
$15
$150
$751
$T52

072624
073516
027236
074222
074640
075712

$T55
$756
$157
$758

100306
101156
102260
103502

$T53
$T54

$T159
$76
$760
$17
$78

MACRO

ON 22-DEC-80 AT 12:19

ST 1907507
1

1-12501

#2971

893

4
l

#301-1
”
1
#313-1

80
93

#327-14305
”
145
y
149
#196~7
’
1
#352-1
#361-1
”
16607
#377-16953
’
17228
#387-1751
#396-1786
#401-18223
#406-18519
#199-7786
#611-18785
#617-19098

He26-19426
#429-19713
#4634-19971
#436~20090

#439-20247

5-14769
-15172
8-15448
56~15897
7-1
373-16789
17122
-17338
91-17716
97-18029
404-18407
408-18631
201-7909
414-18940
420-19280

426~
432-19885
4£35-20028

44 1-20361

444-20520

076464
077264

104106

027660
104554
030316
031146

#519-24273

#214-8545
#220-8863

521-24365

217-8702
224-9067

FAGE 24
CREF

F 10

SEQ 0538