Digital PDFs

AH-S430B-MC

July 1982

387 pages

Original

18MB

view download

OCR Version

18MB

view download

Document:	CZMLBB0 ML11 PERF EXERCISER JUL 1982 bw
Order Number:	AH-S430B-MC
Revision:	000
Pages:	387
Original Filename:	CZMLBB0__ML11__PERF_EXERCISER__AH-S430B-MC__JUL_1982_bw.pdf

OCR Text

PorCaie BIEIIE

CZMLBBO PERFORMANCE EXERCISER

USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 3

SEQ 0001

.REM §

IDENTIFICATION
PRODUCT CODE:

AC-54288-M(C

PRODUCT NAME:

CZMLE3T ML11 PERFORMANCE EXERCISER

PRODUCT DATE:

19--MAR-82

MAINTAINER:

MEMORY DIAGNOSTICS ENGINEERING

AUTHOR:

MICHELE D. ROSEN

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO
CHANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED
k.R
SOFTWARE ON EQUIPMENT THAT IS NOT

AFFILIATED COMPANIES.

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DIGITAL
DEC

PDP
DECUS

UNIBUS
DECTAPE

MASSBUS

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTAT
ION

MACRO M1113

29-MAR-82 13:41

c
PAGE 3

SEQ 0CJ2
TABLE OF CONTENTS

1.0

GENERAL INFORMATION

1.1
1.2
1.3
1.4
1.5

PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

2.0
2.1
2.2
2.3

OPERATING INSTRUCTIONS
CONMMAND
S
SWITCHES
FLAGS

2.4

HARDWARE QUESTIONS

2.5
2.6
2.7

SOF TWARE QUESTIONS
EXTENDED P=TABLE DIALOGUE

3.0

ERROR INFORMATION

4.0

PERFORMANCE AND PROGRESS REPORTS

5.0

DEVICE INFORMATION TABLES

6.0

TEST SUMMARIES

7.0

MAINTENANCE HISTORY

QUICK STARTUP PROCEDURE

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113

USER DOCUMENTATION

29-MAR-82 13:41

D
PAGE 4

SEQ 0003

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THE ML11 PERFORMANCE EXERCISER IS A BLISS PROGRAM
THE

PDP=11_

DIAGNOSTIC

SUPERVISOR

WHICH

RUNS

UNDER

AND WHICH EXERCISES UP TO 8 ML11

UNITS ON A SINGLE RH CONTROLLER.
AN ML11 UNIT IS A FAST, RANDOM ACCESS, BLOCK MODE MOS MEMORY SYSTEM WITH ECC CAPABILITY.
IT IS MADE
UP OF 3 CONTROL MODULES AND UP_TO 16 ARRAY MODULES.
IT IS A MASSBUS
DEVICE., AND AS SUCH, CONFORMS TO MASSBUS STANDARDS.
THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC

RUNTIME

SERVICES SOFTWARE (SUPERVISOR).
THESE SERVICES PROVIDE THE INTERFACE
TO THE OPERATOR AND TC THE SOFTWARE ENVIRONMENT.
THIS PROGRAM CAN BE
USED WITH XXDP+, ACT, APT, SLIDE AND PAPER TAPE.
FOR A COMPLETE DES~
CRIPTION OF THE RUNTIME SERVICES,
REFER TO THE XXDP+ USER'S MANUAL.
THERE 1S A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN
THIS DOCUMENT.

1.2

1.3

SECTION 2 OF

SYSTEM REQUIREMENTS
1.

PDP-11 WITH 28K WORDS OF MEMORY

CONSOLE TERMINAL

RH11 OR RH70 CONTROLLER

170 8 ML11A

XXDP+ LOAD MEDIA

OR ML11B

DRIVES

RELATED DOCUMENTS AND STANDARDS

THE_HARDWARE DESIGN IS EXPECTED TO CONFORM TO THE STAMDARDS SET FORTH
IN THE MASSBUS SPECIFICATION (DEC STANDARD 159).

;zg ;E%%OUING DOCUMENTATION MAY PROVE USEFUL IN LEARNING

1.4

ML17 ENGINEERING SPECIFJICATION

RWS04 FIXED~HEAD DISK SUBSYSTEM USER'S MANUAL

THE ML11 PERFORMANCE EXERCISER'S PROGRAM LISTING

THE ML11 LOGIC TEST'S SPECIFICATIONS AND LISTINGS

ML11 PROJECT PLAN

XXDP+ USER'S MANUAL (CHQUS)

PDP=-11 DIAGNOSTIC SUPERVISOR DOCUMENTATION (SUPINT,

ABOUT

SUPFUN,

DIAGNOSTIC HIERARCY PREREQUISITES

ML11 SUBSYSTEM FAULTS WILL BE DETECTED BUT NOT ISOLATED,

DIAGNOSTICS

SINCE

OTHER

WILL BE AVAILABLE FOR TROUBLESHOOTING THE EXACT CAUSE OF

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 4-1

1
SEQ 0004

FAILURE.

= A LIST OF AVAILABLE DIAGNOSTIC TOOLS IS INCLUDED IN APPEN-

DIX A OF THE ML11 FUNCTIONAL SPECIFICATION.
1.5

ASSUMPTIONS

2.0

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A VERY
BRIEF DESCRIPTION OF THOSE PARTS OF THE
DIAGNOSTIC RUNTIME SERVICES OF THE PDP=-11 DIAGNOSTIC SUPERVISOR WHICH
ARE APPLICABLE FOR THIS EXERCISER.
CONSULT THE XXDP+
USER'S MANUAL
(CHQUS) FOR MORE DETAILS.

2.1 COMMANDS
THE FOLLOWING IS A LIST OF THE 11 COMAANDS AVAILABLE TO THE DRS.
ANY
COMMAND
IS
RECOGNIZED BY ITS FIRST 3 CHARACTERS,
AND MANY COMMANDS
lsle{r?suHODIFlED BY OPTIONAL SWITCHES WHICH ARE DESCRIBED
IN THE NEXT

DRS COMMAND

EFFECT

START

START THE DIAGNOSTIC FROM AN INITIAL STATE

RESTART

START THE DIAGNOSTIC WITHOUT INITIALIZING

CONTINUE

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “()

PROCEED

CONTINUE FROM AN ERROR HALT

EXIT

RETURN TO THE XXDP+ MONITOR

ADD

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

DROP

DEACTIVATE A UNIT

PRINT STATISTICAL INFORMATION

DISPLAY

TYPE A LIST OF ALL DEVICE INFORMATION

FLAGS

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)

ZFLAGS

CLEAR ALL FLAGS (SEE SECTION 2.3)

2.2 SWITCHES
SWITCHES ARE USED TO MODIFY PROGRAM OPERATION,

AND ARE

APPENDED

/PASS :DDDDD

EXECUTE DDDDD PASSES (DDDDD = 1

TO 64000)

/FLAGS:FLGS

SET SPECIFIED FLAGS (SEE SECTION 2.3)

/EOP:DDDDD

REPORT END OF PASS MESSAGE AFTER EVERY

COMMANDS.
THE SWITCHES WHICH HAVE MEANING FOR THIS EXERCISER AND INFORMATION ABOUT THEIR USE ARE GIVEN IN THE FOLLOWING TWO TABLES.

SWITCH

EFFECT

CIMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

F
1
PAGE 4~2

SEQ 0005
ODDDD PASSES ONLY (DDDDD = 1 TO 64000).

JUNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIgD
IN THE LIST.
LIST EXAMPLE:
/UNITS:0:3:5-7
EXAMPLE OF SWITCH USAGE:
START/PASS:1000/E0P:100

THE EFFECT OF THIS COMMAND WILL BE:

ALL UNITS WILL BE TESTED 1000 TIM

THE END OF PASS MESSAGES WILL BE

PRINTED AFTER EACH 100 PASSES ONLY.

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

START

RESTART
CONTINUE
PROCEED

DROP
ADD

PASS

FLAGS

EOP

UNITS

X
X

X
X
X

DISPLAY
FLAGS
ZFLAGS
EXIT

X
X

X
X
X

2.3 FLAGS
FLAGS ARE USED TO SET UP CERTAIN OPERATION PARAMETERS SUCH AS LOOPING
ON ERROR. ~ ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN CLEARED UNTIL
EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS 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 OF CLEARED AS SPECIFED BY THE LAST FLAG SWITCH.

FLAG

EFFECT

HOE

HALT ON ERROR = CONTROL IS RETURNED TO

LOE

LOOP ON ERROR

IER+

INHIBIT ALL ERROR REPORTS

IBE*

INHIBIT ALL ERROR REPORTS EXCEPT
FIRST LEVEL (FIRST LEVEL CONTAINS
ERROR TYPE, NUMBER, PC, TEST AND UNIT)

DRS COMMAND MODE

CIMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

1
6
PAGE 4-3

SEQ 0006
IXE*

INHIBIT EXTENDED ERROR REPORTS (THOSE
CALLED BY PRINTX MACRO'S)

PRI

DIRECT MESSAGES TO LINE PRINTER

BOE

"BELL'* ON ERROR

ISR

INHIBIT STATISTICAL REPORTS

INHIBIT PROGRAM DROPPING OF UNITS

ADR

EXECUTE AUTODROP CODE

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

FLAG MAY BE SPECIFIED WITH THE /FLAGS SWITCH.

MORE THAN ONE

FOR EXAMPLE,

TO CAUSE

THE PROGRAM TO LOOP ON_ERROR, INHIBIT ERROR REPORTS AND TYPE A 'BELL'"

ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE: IER:BOE

2.4 HARDWARE QUESTIONS
WHEN A DIAGNOSTIC IS STARTED, THE DIAGNOSTIC RUNTIME SERVICES PROMPTS
THE USER FOR HARDWARE INFORMATION BY TYPING ‘’CHANGE HW (L) ?*'.
YOU

MUST ANSWER °'Y'' AFTER A START COMMAND UNLESS THE HARDWARE INFORMATION
HAS BEEN PRELOADED USING THE SETUP UTILITY
(SEE CHAP. 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 ASKED THE FOLLOWING QUESTIONS FOR EACH UNIT:

2.4.1 QUESTIONS AND ANSWERS
1.

CSR ADDRESS (172000) 0?
ANSWER: THE CSR ADDRESS OF THE RH CONTROLLER
(OCTAL, DEFAULT 172000).

INTERRUPT VECTOR (204) 0?
ANSWER: THE INTERRUPT VECTOR ADDRESS

(OCTAL, DEFAULT 204).

BR LEVEL FOR INTERRUPT (5) 0?
ANSWER:

THE BUS REQUEST LEVEL FOR INTERRUPT
(OCTAL, DEFAULT 5).

DRIVE NUMBER (0) 0?
ANSWER: THE PHYSICAL DRIVE NUMBER(S) OF THE DRIVE(S) TO BE TESTED
(OCTAL, €0-7), DEFAULT 0).

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

W
PAGE 4-4

SEQ 0007

2.4.2 SUMMARY OF HARDWARE QUESTION SEQUENCE
s 212312433332
21%%
3

& UNITS?

ARANRNRRAAAAARAER
t

i
ARARAAANAARNRNNNS
®

(SR ADDRESS? *

(33332821233
3231%]
22
]

12222232332323
227%]

VECTOR?

AXANRRNARARANAAAS
]

L 24314223113 33221%

BR LEVEL?

AARRNRRGNNARAANANR

i
ARAARERRNRANNARRA

* DRIVE NUMBER? »

ANRANARANRARRARNA

2.5

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS, OR AFTER A RESTART OR
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 ''CHANGE SW (L) ?
IF,YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING
Y',
THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED
IN THE NEXT PARAGRAPH(S).

INCLUDED IN THIS SECTION ARE QUESTIONS ABOUT PARAMETERS WHICH AFFECT
PROGRAM OPERATION.
REQUESTS FOR SOF TWARE OPTIONS SHOULD BE DISCUSSED
AND INCORPORATED INTO THIS SPECIFICATION AS SOON AS POSSIBLE, AND CERTAINLY BEFORE SIGNOFF TIME.

IF A 2 (CONTROL=Z) IS TYPED AS THE ANSWER TO ANY QUESTION,
GRAM WILL START TO EXECUTE.
IF A “C_(CONTROL-C) IS TYPED AT ANY TIME, CONTROL WILL RETURN
DIAGNOSTIC SUPERVISOR.

THE
TO

PROTHE

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 4-5

1
SEQ 0008

2.5.1 QUESTIONS AND ANSWERS
1.

LIMIT RANGE OF SECTORS TO BE TESTED (N) L?
ANSWER: TO TEST ONLY A CERTAIN RANGE OF SECTORS INSTEAD OF AN ENTIRE
UNIT.
ALTHOUGH
THIS QUESTION IS NOT OPTIONAL, IT
SHOULD BE ANSWERED °'NO' UNLESS THE ANSWER TO THE
HARDWARE
QUESTION ‘# UNITS ?'°
WAS 1.
ékgf%cag. {Y TO TEST PARTIAL UNIT, N FOR ENTIRE UNIT), DE-

THE QUESTIONS WHICH FOLLOW ARE OPTIONAL, AND DEPEND ON AN AFFIRMATIVE ANSWER TO THE PREVIOUS QUESTION:

DO YOU KNOW THE EXACT RANGE OF SECTORS TO BE TESTED (N) L?
ANSWER:

THIS DECIDES WHETHER TO
BOARD NUMBER.

ASK

FOR

THE NEXT TWO QUESTIONS WILL BE ASKED ONLY
ANSWERED YES:

NUMBERS

QUESTION

FIRST SECTOR TO TEST (0) 0?
ANSWER:

SECTOR

THE SECTOR NUMBER WHERE TESTING BEGINS

(OCTAL, {0-7777 FOR ML11A, 0-37777
DEFAULT 0).

FOR

ML11%),

FOR

ML11B),

LAST SECTOR TO TEST (LAST) 0?
ANSWER: THE LAST SECTOR NUMBER TO BE TESTED

(OCTAL, {0-7777 FOR ML11A, 0-37777
DEFAULT 37777).

LgE NEXT QUESTION WILL BE ASKED ONLY IF QUESTION 2 IS ANSWERED

WHICH BOARD {1-16) SHOULD BE TESTED (1) D?
ANSWER: THE NUMBER OF THE ONLY BOARD TO BE TESTED
(DECIMAL, {1-16), DEFAULT 1).

THE PROGRAM OPTIONS INCLUDE:

ADDRESS CHECK

PATTERN TEST

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 4-6

1
SEQ 0009

UNIQUE DATA CHECK

MARCH TEST

RANDOMNESS TESTS

DO YOU WANT TO DROP ANY OF THESE FROM THE EXERCISER (N) L?

ANSWER: THIS DECIDES WHETHER TO ASK FOR OPTION NUMBERS.

(LOGICAL, (Y FOR PARTIAL EXERCISER,
ERCISER), DEFAULT N).

FOR

COMPLETE

THE FOLLOWING SET Gr QUESTIONS WILL BE ASKED ONLY IF

6 1S ANSWERED YES:
7.

DROP OPTION 1

DROP OPTION 2 (N) L?

DROP OPTION 3 (N) L?

EX-

QUESTION

(N) L?

10. DROP OPTION & (N) L?
11. DROP OPTION 5 (N) L?
12. ENABLE REFRESH MARGINING (N) L?
ANSWER: NORMAL OPERATION IS WITHOUT REFRESH MARGINING,

(LOGICAL, (Y TO ENABLE, N TO DISABLE)}, DEFAULT N).

13. DISABLE ERROR CORRECTION (N) L?
ANSWER: NORMAL OPERATION IS WITH ECC ENABLED.
(LOGICAL, (Y TO DISABLE, N TO ENABLE}, DEFAULT N).

14. ENABLE END OF PASS SUMMARY PRINTOUT (N) L?
ANSWER: NORMAL OPERATION IS WITHOUT END OF PASS SUMMARY PRINTOUT.
(LOGICAL, {Y TO ENABLE, N TO DISABLE PRINTOUT}, DEFAULT N).

15. ENABLE ERROR PRINTOUTS (N) L?
ANSWER: NORMAL OPERATION IS WITHOUT ERROR PRINTOUTS.
(LOGICAL, {Y TO ENABLE, N TO DISABLE PRINTOUT}, DEFAULT N).

2.5.2 SUMMARY OF SOFTWARE QUESTION SEQUENCE

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

X
1
PAGE 4-7

SEa 0010
REARRRANARAANCNRN
*

LIMIT

OF SECTORS?

RANGE

t==cccccccace- >!

CRARARNRARNRR RN AR

YES !

FRANAARRARAACNNARN
*
KNOW EXACT
+

SECTORS?

!
!

ARRRRAREARRANRARS

YES

EARRRANARARAREN

\ NO
\

!
!
!

*BOARD NUMBER?+

EARRREANCRRERTY

* 1ST SECTOR? =

RARKERRAAANAAARY

ARRRAARARRANCEL

]

!
]

;

* LAST SECTOR?x

REARRANRRARCARR

AARRARRARANR SRR

!
v
(CONTINUED ON NEXT PAGE)

!
!

ARARRRANAARANRARL

*
*

DROP ANY
OPTIONS?

AARRAARAAARANNAAR

>!
!

RRAARRRNNRNNNRACRN

* DROP OPTION 12 «

TAERERAARRAANARRNRRNEY

)

FERAARAARANANRANAR

NO !

* DROP OPTION 2?7 +

RANEANRARAANRRARAY

]

TRRARNAACRRARAARNR

* DROP OPTION 3? «

(

]

TERXARRANRNREAANAR

ARAAAARRRRANANAANNDE

REARRAACRARARARERY

RERRAAARNNNNARANN

PAT # USED
WITH MARCH?

=
«

RAAARRAARERNRAAAY
[}

YES

* DROP OPTION 4? teceee)!

*
*

YES

«
=

NO !

RERXAARANARARAANR

*
*

PAT # USED
WITH MARCH?

»
«

12423323222
2Ed]
22

ARCARRRRRNRCNRNRARSY

t DROP OPTION 5? «

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

1
L
PAGE 4-8

SEQ 0011
!

AREERRAANANRRNNERR

]

§< ............... coscensea
]

RARARERRENRNAARRR

* ENABL REFRESH «
* MARGINING?
=
1242322322334 232824223]
!

1823218832233 322322

«
.

DISABLE
ECC?

“

13383322322
434231
23
f

ERERAANARRRRRARAN

*
t

ENABLE
*
EOP SUMMARY? +

AARRARAARCRENAEAY
!

ARAANRERRRARRAAAY

ENABLE

PRINTOUTS?

(2242323123322
3222]

2.6

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, THE DIALOGUE BECOMES TEDIOUS BECAUSE MOST OF
THE ANSWERS ARE REPETITIOUS.

SUPPOSE YOU ARE TESTING A HYPOTHETICAL DEVICE, THE XY11 WHICH IS

MADE UP OF ONE CONTROL MODULE WITH 8 UNITS (SUB-DEVICES).

8 UNITS, NUMBERED O THROUGH 7,

THESE

HAVE JUST ONE HARDWARE PARAMETER

THAT CAN VARY AMONG UNITS, CALLED THE Q-FACTOR.

UNIT #

Q-FACTOR

NOWNSAWNN=O

L OOOO=O

THE 3 EXAMPLES WHICH FOLLOW SHOW DIFFERENT WAYS OF ANSWERING THE
HARDWARE QUESTIONS TO ACHIEVE IDENTICAL RESULTS.
IN EACH EXAM:kEiO£QERE ARE TO BE 8 XY11'S TESTED WHICH HAVE THE FOLLOWING Q-

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

LI
PAGE 4-9
SEQ 0012

EXAMPLE 1:

ANSWER SEPARATELY FOR EACH UNIT

# UNITS (D)

B8<CR>

UNIT O

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

UNIT 1

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

Q-FACTOR (0) 0 ?

1<(R>

UNIT 2

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) 2
2<CR>
Q=-FACTOR (0) 1 ? O0<CR>

UNIT 3

CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (0) ?
3<CR>

Q-FACTOR (0) 0 ?

UNIT 4

CSR ADDRESS (0)

<(R>

SUB-DEVICE # (0) ?

Q-FACTOR (0) 0 ?

160000<CR>

4<CR>

<CR>

UNIT 5
CSR ADDRESS (0) ?

160000<CR>
SUB-DEVICE # (0) ?
5<CR>
Q-FACTOR (0) 0 ? 1<CR>

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

? 1<CR>

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

Q=-FACTOR (0)

? <(R>

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,
THE HARDWARE PARAMETERS DO NOT DIFFER
SIGNIFICANTLY FROM UNIT TO UNIT.
THE PROCEDURE SHOWN

1S NOT VERY EFFICIENT.

(ZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

N
1
PAGE 4-10

SEQ 0013

EXAMPLE 2:

USE THE MULTIPLE SPECIFICATION FEATURE OF THE RUNTIME
SERVICES TO MAKE FEWER PASSES THROUGH THE QUESTIONS.

# UNITS

(D)

B<CR>

UNIT O

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

UNIT 2
CSR ADDRESS (0) ?

160000<CR>
SUB-DEVICE # (0) ?
2-5<(R>
Q-FACTOR (0) 1 ?
0<CR>

UNIT 6

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

AS YOU CAN SEE IN THE ABOVE DIALOGUE, RUNTIME SERVICES
WILL BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY ONE PASS THROUGH THE QUESTIONS.
THE
FIRST PASS BUILDS 2 ENTRIES, BECAUSE 2 SUB-DEVICES AND
Q-FACTORS WERE SPECIFIED. THE DRS ASSUMES THAT THE CSR
ADDRESS IS 160000 FOR BOTH UNITS.
IN THE_SECOND PASS,
4 ENTRIES WERE BUILT.
THE “*~'' CONSTRUCT TELLS THE DRS
TO INCREMENT THE DATA FROM THE FIRST VALUE TO THE SECOND.
IN THIS CASE, '°2-5'"
SPECIFIES SUB-DEVICES 2,3,4,

AND 5.
THE CSR ADDRESS AND Q-FACTOR FOR THE & ENTRIES
ARE ASSUMED TO BE 160000 AND O RESPECTIVELY SINCE THEY
WERE ONLY SPECIFIED ONCE.
THE LAST 2 UNITS ARE SPECIFIED IN THE THIRD PASS.

EXAMPLE 3:

ACCOMPLISH THE WHOLE PROCESS IN JUST ONE PASS THROUGH
THE QUESTIONS.

# UNITS

UNIT 1

(D)

B<(R>

CSR ADDRESS (0
?
160000<CR>
SUB-DEVICE #
)
Q-FACTOR (0) 0 ?? 0.1.0...o1.1<CR>
0

CIMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 4-11

SEQ

AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS
ENCLOSING A BLANK FIELD)
DIRECT THE DRS TO REPEAT THE
LAST REPLY.

2.7 QUICK START-UP PROCEDURE

2.7.1

T0 START-UP THIS PROGRAM WHEN RUNNING UNDER XXDP+
1.

B00T XXDP+

GIVE THE DATE AND ANSWER THE LSI AND SOMZ QUESTIONS

TYPE 'R NAME'',

TYPE ''START"

WHERE 'NAME'' IS THE FILENAME OF THE

.BIN OR .BIC FILE FOR THIS PROGRAM

ANSUER THE °''CHANGE HW'' QUESTION WITH ‘'v*

ANSWER ALL THE HARDWARE QUESTIONS

ANSWER THE '‘CHANGE SW'* QUESTION WITH ‘W'’

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE

DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
PRE DESCRIBED IN SECTIONS 2.3 AND 2.S.

2.7.2

THE DEFAULTS

TO START-UP THIS PROGRAM WHEN RUNNING UNDER ACT

THE FILE WHICH WILL BE STARTED MUST, AT SOME TIME, HAVE BEEN CREATED
WITH THE °‘SETUP® UTILITY PROGRAM.
ASSUMING THAT THIS HAS BEEN DONE,
THE START-UP PROCEDURE IS THE SAME AS THE ONE IN SECTION 2.7.1.

TO CREATE A FILE USING THE SETUP UTILITY:

TYPE 'R SETUP"

THE TARGET ENVIRONMENT IS ACT, SO TYPE *'AC*'

TYPE THE SETUP COMMAND:

*SETUP OUTFILE.EXT=INFILE.EXT
WHERE QUTFILE.EXT = THE NEWLY CREATED FILE

AND
4.

INFILE.EXT = THE RELEASED .BIN FILE

YOU WILL HAVE AN OPPORTUNITY TO SET UP A PERMANENT
DEFAULT TEST CONFIGURATION BY ANSWERING THE HARDWARE
AND SOF TWARE QUESTIONS.
ONCE THIS :S DONE,
YOU WitL

NO _LONGER BE FORCED TC ANSWER ''Y'' TO ''CHANGE W ?°'

EVERY TIME YOU START THE PROGRAM.
YOU WILL ALSO BE
ASKED THE LSI AND 50MZ QUESTIONS HERE.

TYPE "EXIT"

CIMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 4-15

USER DOCUMENTATION

3.0 ERROR INFORMATION

3.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED B8Y
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR H§S$AGES
ARE ALWAYS PRINTED UNLESS THE
°‘‘IER'*
FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:
NAME TYPE NUMBER ON UNIT NUMBER

ERROR MESSAGE

NAME = DIAGNOSTIC NAME
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
NUMBER = ERROR NUMBER
UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL
"nn

WHERE:

TST NUMBER PC:XXXXXX

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

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 BASIC ERROR MESSAGES.

3.2 SPECIFIC ERROR MESSAGES
3.2.1

MESSAGES DURING INITIALIZATION

DURING INITIALIZATION, THERE ARE 3 ERROR CONDITJONS WHICH CAN BE
DETECTED AND WHICH CAUSE THE DRIVE TO BE DROPPED:

CAUSE1
CAUSE2
CAUSES

=
=
=

*
'
'

(NOT POWERED UP)'
(NOT AN ML11 UNIT)'®
(OPERATOR SELECTED TEST LIMITS INCORRECTLY)®

THE *CAUSE3' MESSAGE IS THEN FOLLOWED BY
EITHER: !'TOP SECTOR OF XXXXXX EXCEEDS SYSTEM LIMIT OF YYYYYY'

OR:

3.2.2

!'LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YvYyyy'

MESSAGES DURING TESTING

AFTER INITIALIZATION, THERE ARE 4 ERRCR DIAGNOSES WHICH ARE POSSIBLE:

MSG1

‘'==> RUN ML11 LOGIC TEST®

THIS MESSAGE APPEARS WHEN AN ML11

SEQ 0015

CZMLBBO PERFORMANCE EXERCISER

USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 4-1%
SEQ 0016

SYSTEM ERROR OCCURS.
THE USER IS
INSTRUCTED TO RUN THE LOGIC TEST 10
SEE IF THAT PROGRAM CAN ISOLATE THE
REASON FOR THE FAILURE.
NOTE THAT
ggégRgESSAGE IS NOT USED FOR DATA

MSG2

'==>

RUN ML11

PROM MAINTENANCE

PROGRAM'

THIS MESSAGE APPEARS WHENEVER ANY
OF THE FOLLOWING CONDITIONS IS TRUE:

A) AN ECC HARD ERROR (ECM OR UNC)
DETECTED

B) AN ARRAY REACHES ITS HARD OR SOFT
ERROR THRESHOLD

C) DURING A PERFORMANCE SUMMARY, IF

AN ARRAY HAS REACHED OR EXCEEDED

ITS HARD OR SOFT ERROR THRESHOLD.

MSG3

'SOFT ERROR'

A SOFT ERROR IS A CORRECTABLE DATA
ERROR WHICH CAN BE ELIMINATED BY
REWRITING AND REREADING.
MSG4

'HARD ERROR’
A HARD ERROR IS A CORRECTABLE DATA
ERROR WHICH PERSISTS AFTER A REWRITE
AND A REREAD.

ANY WRITE COMMAND HAS 3 POSSIBLE ERROR CALLS ASSOCIATED WITH IT:

POSITION

ERROR

ERROR
TYPE

DIAGNOSTIC
MESSAGE

ERRDF

MSG1

CAUSE OF ERROR/ACTION

ALL 6 RETRIES FAILED FOR AN ML11 SYSTEM

ERROR WHICH WAS ORIGINALLY CONSIDERED
TO BE NON-FATAL.

DROP THE DRIVE.

2ND

ERRDF

Ms61

CONTROLLER FATA_ ERROR.

3RD

ERRDF

MSG1

DRIVE FATAL ERROR.

DROP THE DRIVE.

ANY READ OR WRITE CHECK COMMAND HAS 8 ERROR CALLS ASSOCIATED
WITH IT,

5 FOR SYSTEM ERRORS (WHICH RESULT IN DROPPING THE DRIVE) AND 3 FOR

HARD AND SOFT DATA ERRORS (WHICH ARE COUNTED ON A PER ARRAY BASIS):
THE SYSTEM ERRORS:

ERROR

DIAGNOSTIC

CIMLBBO PERFORMANCE EXERCISER
USER DOCUMENTAT
ION

MACRO M1113

29-MAR-B2 13:41

3
2
PAGE 4-14

SEQ 0017
POSITION

TYPE

MESSAGE

18T

ERRDF

MSG1

CAUSE OF ERROR/ACTION

AFTER A SUCCESSFUL READ COMMAND, THE
WRITE AND READ BUFFERS ARE COMPARED.
IF THEY DO NOT MATCH PERFECTLY,
THEN

THE ECC LOGIC FAILED.

2ND

ERRDF

MSG1

DROP THE DRIVE.

ALL 6 RETRIES FAILED FOR AN ML11 SYSTEM
ERROR WHICH WAS ORIGINALLY CONSIDERED
TO BE NON-FATAL.

DROP THE DRIVE.

3RD

ERRDF

MSG!?

CONTROLLER FATAL ERROR.

4TH

ERRDF

MSG1

DRIVE FATAL ERROR.

5TH

ERRDE

MSG2

ECC HARD ERROR DETECTED.

ERROR

DJAGNOSTIC

6TH

ERRHRD

MSG4

DROP THE DRIVE.

DROP TME DRIVE.

DROP THE DRIVE.

THE DATA ERRORS:

POSITION

TYPE

CAUSE OF ERROR/ACTION

MESSAGE

HARD ERROR.
DURING ERROR CLASSIFICATION,
RETRY FAILED AGAIN (AS IF A DATA ERROR
IN THE SAME BIT POSITION).
UPDATE THE
HARD COUNT FOR THE ASSOCIATED ARRAY AND

CHECK THE NEW COUNT AGAINST THE THRESHOLD.

7TH

ERRSOFT

MSG3

SOFT ERROR.
DURING ERROR CLASSIFICATION,
RETRY FAILED AGAIN (AS IF A DATA ERROR IN
A DIFFERENT BIT POSITION).
UPDATE THE
SOFT COUNT FOR THE ASSOCIATED ARRAY AND
CHECK THE NEW COUNT AGAINST THE THRESHOLD.

8TH

ERRSOFT

MSG3

SOFT ERROR.
DURING ERROR CLASSIFICATION,
RETRY DID NOT PRODUCE ANOTHER DATA ERROR
(THE RETRY MAY PASS, OR IT MAY FAIL FOR
SOME _NEW REASON).
UPDATE THE SOFT COUNT
FOR THE ASSOCIATED ARRAY AND CHECK THE NEW
COUNT AGAINST THE THRESHOLD.

THERE IS A CORRESPONDENCE BETWEEN EVERY NUMBER AND THE PLACE IN THE
PROGRAM WHERE THE ERROR WAS DETECTED:
A)

THE MOST SIGNIFICANT DIGIT IDENTIFIES THE OPTION NUMBER.

EXCEPTION:

T4E COMMAND INTEGRITY ROUTINE IS

THOUGHT OF AS OPTION O, AND SO ALL ITS ERROR
NUMBERS WILL APPEAR TO ONLY BE 1 OR 2 SIGNIFICANT DIGITS.
TAKE THE O TO BE A SIGNIFICANT

DIGIT (SEE EXAMPLES).

THE 2 LEAST SIGNIFICANT DIGITS ARE THE POSITIONAL
NUMBERS TO IDENTIFY WHERE THE ERROR CALL IS LOCATED
WITHIN THE OPTION.

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 4-1§

USER DOCUMENTATION

FOR OPTION §

5Q D018

THE SECOND MOST S

USED 1O 1DEnf IFY WHICH RANDOM T

EXAMPLES:
1)

ERROR NUMBER:

ERRCR NUMBER:

ERROR NUMBER: 5311 => OPTION 5, RAND3, ERROR 11

6 => COMMAND

(OPTION

INTEGRITY ROUTINE
0), ERROR 06

208 => OPTION 2, ERROR 08

BELOW IS A SUMMARY OF THE ACTUAL ERROR CALLS IN EACH TEST OPTION:

g THE *INTEGRITY® ROUTINE:
IWRITE COMMAND:
'ERRDF (1,MSG1,0);
TERRDF (2,MSG1,0);

!ERRDF (3,MSG1,0);

!sexs INTEGRITY ROUTINE ERROR 01 tes+
isews INTEGRITY ROUTINE ERROR 02 st
inexe INTEGRITY ROUTINE ERROR 03 sewe

IREAD COMMAND:
'ERRDF (4,MSG1,0);:
'ERRDF (5,MSG1,0);
'ERRDF (6.MSG1,0);
'ERRDF (7,MS61,0);
'ERRDF (8,MSG2,0):

'ex«e
inese
iwwse
isxnax
iwene

INTEGRITY
INTEGRITY
INTEGRITY
INTEGRITY
INTEGRITY

ROUTINE
ROUTINE
ROUTINE
ROUTINE
ROUTINE

ERROR
ERROR
ERROR
ERROR
ERROR

04
05
06
07
08

weses
ss#e
sewe
swa+
sawe

iERRHRD
(9,MSG4,05: ivxenn INTEGRITY ROUTINE ERROR 09 svee
TERRSOFT(10,MSG3,0);
ivens INTEGRITY ROUTINE ERROR 10 weee

TERRSOFT(11,MSG3,1):
ixnxs INTEGRITY ROUTINE ERROR 10 weee

!WRITE CHECK COMMAND:

'ERRDF (12.M561.,0);
1ERRDF (13.M561.0);
1ERRDF (14.M561.0) ;
iERRDF (15.M562°0);

fawan INTEGRITY ROUTINE ERROR
{enee INTEGRITY ROUTINE ERROR
tanan INTEGRITY ROUTINE ERROR
fenns INTEGRITY ROUTINE ERROR
1ERRHRD
(16 ,MSG4 .03 : {nxxs INTEGRITY ROUTINE ERROR
iERRSOF T(17,MSG3.8); 1eene INTEGRITY ROUTINE ERRM
'ERRSOFT(18,MSG3,1)
; !avex INTEGRITY ROUTINE RROR
1

g OPTION 1:

)

'WRITE COMMAND:

‘ERRDF (101.M561.0);
1ERRDF (102.MS G1,0);
'ERRDF (103,MS61.0);

Tanen OPY ION 1 ERROR Q1 xwnw

!eexe OPTION 1 ERROR 8§ teee

ienxe OPT 10N 1 ERROR

'RAE

!CHECK OR READ:

!ERR
(104 ,MSG1,0);
DF

!«e*vx OPTION 1 ERROR 04 *ewe

i$
1

L2 4 2 ]

LA
L 1]

14 L1244
15 L 2 2 3]
4 2]
16 L2
17 tRNR
18 TANR

6
MACRO M1173 29-MAR-82 13:41 PAGE 4~1i

(ZMLBBO MERFORMANCE EXERCISER
USER DOCUMENTATION

nnie

'ERRDF (105,M5G1,0);
iERRDF
(106.MSG1,0):
ERRDF (107.MSG1,0);
'ERRDF (108.MSG2,0):

'exe+ OPTION 1 ERROR 05
isese OPTION 1 ERROR 09
isews OPTION 1 ERROR 0

ise«« OPTION 1 ERROR 08

[ AR F]

TERRSOFT(111,MSG3.0):

ixens OPTION 1 ERROR 11

LE L]

2 1]
LA

L 2

5 2]

LA
L E

i ERRHRD (109 MSG4,0): ieewe OPTION 1 ERROR 09 ThAN
IERRSOF T(110,MSG$.03: ieves OPTION 1 ERROR 10 L 22 2]

g OPTION 2:
|

'WRITE COMMAND

'ERRDF (201,MSG1.,0);

iERRDF (202.MSG1.0):
TERRDF (203,MSG1.0):

!sxex OPTION 2 ERROR 01

(2
3 44

is#xe OPTION 2 ERROR 03

L2224

ixewe OPTION ¢ ERROR 02 L 2 2 2

'CHECK OR READ:
'ERRDF (204,MSG1,0);

i ERRDF (205.M5G1.0):
IERRDF (206,MSG1.0);

{ERRDF (207 .MSG1.0);

TERRDF (208.MSG2,0):
i ERRHRD (209 ,MSG4 03iERRSOFT(210,M5G3.0);
IERRSOFT(211.MSG3.1):

!#xx+ OPTION 2 ERROR 04

ixwex OPTION 2 ERROR 0S L2421
22
iexes OPTION 2 ERROR 06 L2

inexe OPTION % ERROR 07

ANAN

isasx OPTION 2 ERROR 08 LA 2]
2 2 4
iweve OPTION 2 ERROR 09 L2
L322
inxave OPTION 2 ERROR 10
ixexe OPTION 2 ERROR 10 L 2.8 A

'LOOP CHECK OR READ:

zennorcztz
MSG1, o>

!saan OPTION 2 ERROR 12 13421

zennor(516MS62,0):

ixexe OPTION 2 ERROR 15 L182

iERRDF (215.MSG1.0)

L 4.2.2

inews OPTION
OPTION 22 ERROR
16
sennuno(217MSG4L,05; ieerv
ERROR
17
iERRSOF T (21é
MSGS,0); isene OPTION 5 ERROR 18

L2
E ]

2 2
L2

L2 8]
L2
2 2]

TERRSOFT(219,M563,0); isees OPTION 2 ERROR 15 TRAN
1

g OPTION 3:
IWRITE COMMAND:

'ERRDF (301,M561,0);

1ERRDF (302.MSG1.0):
ERRDF (303,MSG1,0):

!se«« OPTION 3 ERROR 01

ixsse OPTION g ERROR 0
iswex OPTION 3 ERROR 0

L2 22

AhER
Rtk

!CHECK OR READ:

'ERRDF (304.MSG1.0);

1ERRDF (305.M5G1.0):
TERRDF (306.M5G1.0):
TERRDF (307.MSG1.0):

TERRDF (308-/MSG2,0):
{ERRHRD (309,M564,03;

'eexs OPTION g ERROR 04

L 3 2 2]

iat«r OPTION 3 ERROR 05 1222]
!saxe OPTION 3 ERROR 06 1 24 21
iewse QPTION 3 ERROR 07 1 3 2 21

isses OPTION 3 ERROR 08
iwase OPTION 3 ERROR 09

L 22 2
L3
A 2]

MACRO M1113 29-MAR-82 13:41 PAGE 4-1;
H

'~eee OPTION 3 ERROR

#eee

anee

saen

—d

'ERRSOFT(310,MSG3.0);

iERRSOF
T
(31 nsc J0); isxxse OPTION 3 ERROR

SEQ 0020

]

g OPTION &:
'MARCHING UP:
'WRITE DATA:

'ERRDF (401,MSG1,0);

ERRDF (402.MSG1.0):
{ERRDF (403.MSG1.0):

!++*xx OPTION 4 ERROR

Iwwex OFTION 4 ERROR
i«xex OPTION 4 ERROR

0% 212
L 23

!MARCHING UP:

!CHECK OR READ DATA:

'ERRDF (404,MSG1,0);

ERRDF (405.M5G1.0):
iERRDF (406.MSG1.0):
1 ERRDF (407.MSG1.0)
iERRDF (408.MSG2.0)>
iERRHRD (409 ,MSG4 03

!#axsx OPTION 4 ERROR

tann

i+aws OPTION 4 ERROR 05 anan
iwexe OPTION 4 ERROR 06 wune
faeas OPTION 4 ERROR 07 sxne
isanxe OPTION & ERROR 08 sxan
ivexe OPTION 4 ERROR 09 seax

'saasorr(416MSGS, 05 ixnex OPTION 4 ERROR

10 snnn

IERRSOFT(411.MSG3.0): ixexx OPTION & ERROR 11 sane
!WRITE COMP:

!ERRDF (412 ,MSG1,0);

TERRDF (413.MSG1,0):
TERRDF (414,MSG1,0);

!«wwx OPTION 4 ERROR 1% (117

isawe OPTION 4 ERROR 13 wnnn
ieaws OPTION 4 ERROR 14 ARARE

!MARCHING DOWN:

{ERRHRD (420 nssi

isxex OPTION 4 ERROR
isxstx OPTION 4 ERROR
iesxs OPTION 4 ERROR
ineas OPTION 4 ERROR

-.... OPTION 4 ERROR

iERRSOF T (421 nsc3oS innex OPTION 4 ERROR

'ERRSOF T(422.M5G3.0): Iasax OPTION 4 ERROR

!s«x#x QOPTION 4 ERROR
s

TERRDF (416.M561.0);
'ERRDF (417,M561.0):
iERRDF (418.MSG1 0
. )
1ERRDF (419.M562
0

'ERRDF (415,M561,0);

V00 ~NO\N

{CHECK OR READ COMP:

(IMLB50 PERFORMANCE EXERCISER
USER DOCUMENTATION

REkY
1211

1211
rRNE
rRA

20 tenn
21 saen
22 nunn

'WRITE DATA:

!ERRDF (423,M5G1,0);

!ERRDF (424 ,MS61.0):

TERRDF (425.M5G1,0):

!sx«x OPTION 4 ERROR 23 snan

isssx OPTION 4 ERROR 24 wanx

Iexex OPTION 4 ERROR 25 trnn

!MARCHING UP:

!CHECK OR READ DATA:

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113 29-MAR-82 13:41 PAGE 4-18
'ERRDF (426.M5G1,0):
iERRDF (427.M5G1.0);
'ERRDF (428.MSG1.0):

| ERRDF (4629.M561.0);
iERRDF (430,MSG2,0):
iERRHRD (431 ,MSG4 03:
iERRSO
T (432,MSGS$.0
F
);
IERRSOF T(433.MSG3.0):

!sxas OPTION 4 ERROR 26 s+
iswes OPTION 4 ERROR 27 wess
iswex OPTION 4 ERROR 28 sewe

isese OPTION 4 ERROR §9 cane
isnes OPTION 4 ERROR 30 waes
iewsn OPTION 4 ERROR 31 wens
iexes OPTION 4 ERROR 32 nene
iaex OPTION 4 ERROR 33 sewns

z OPTION §:
! *RAND1' ROUTINE:
IWRITE COMMAND:
'ERRDF (5101,M361,0);

'ERRDF (5102.MSG1,0);

TERRDF (5103,MSG1.0):

!#w«x OPTION 5. RAND] ERROR 01

iswxx OPTION 5. RAND1 ERROR 02

isxaex OPTION 5. RAND1 ERROR 03

twes

twew

ewee

ICHECK OR READ:

'ERRDF (5104,MSG1,0);

!#vx« OPTION 5, RAND] ERROR 04 seas

TERRDF (5105,M5G1.0);

ixses OPTION 5. RAND] ERROR 05 e

IERRDF (5107.MSG1.0):
TERRDF (5108.MSG2,0):
{ERRHRD (5109,MSG4 oS

iextx OPTION 5. RAND1 ERROR 07 saes
isxes OPTION 5. RAND] ERROR (8 awes
innas OPTION 5. RAND1 ERROR 09 vt

'ERRDF (5106.MSG1,0);

!ennsorr<s116LMSG3,05;

ixxav OPTION 5. RAND1 ERROR 06 tasw

ixeax OPTION 5. RAND1 ERROR 10 neee

IERRSOFT(5111.MSG3. o>- ineesr OPTION 5. RAND1 ERROR 11 sewe
1'RAND2' ROUTINE:
'WRITE COMMAND:

'ERRDF (5201,MSG1,0);

!sw*«* OPTION 5, RAND2

ERROR 01 sews

'ERRDF (5203,M561,0);

ixexx OPTION 5. RAND?

ERROR 05

TERRDF (5202.MSG1.0):

iweas OPTION 5. RANDZ

ERROR 02

t#ew

wews

1CHECK OR READ:
'ERRDF (5204.,MSG1,0);

1ERRDF (5205,MSG1.0):
1ERRDF (5006.M561,0):
1ERRDF (5207.M561.0)
TERRDF (5208 MSG2.0):
TERRHRD (5209 ,MSG4 05

!senx OPTION g. RAND2

ERROR 04 waws

issxs OPTION 5. RANDZ
ineex OPTION 5. RAND?
-~--- OPTION 5, RAND?
innes OPTION S, RANDZ
ieens OPTION 5. RANDZ

ERROR 05 s+
ERROR 06 vttt
ERROR 07 twaw
ERROR 08 ween
ERROR 09 taws

TERRSOFT(5211.MSG3.0): !wxex OPTION 5. RAND?

ERROR 11 #aese

'ERRsorr<521bMSGS.0); inaes OPTION 5. RAND? ERROR 10 wewe
! *"RAND3* ROUTINE:
!WRITE COMMAND:

!ERRDF (5301,M561,0);

{xxx« OPTION S, RAND3 ERROR 01 weee

CIMLBBO PERFORMANCE EXERCISER

USER DOCUMENTATION

MACRO M1113 29-MAR-82 13:41 PAGE 4-18
'ERRDF (5302,MSG1,0);
TERRDF (5303.M5G1,0);

SEQ 0022

!'svex OPTION 5, RAND3 ERROR 02 #+#s
issex OPTION 5. RAND3 E/tROR 03 #wes

'CHECK OR READ:

ERR
(5304 ,MSG1,0);
DF
i ERRDF (5305.MSG1,0):
TERRDF (5306,MSG1.0);

'sxae OPTION 5, RAND3 ERRUR 0. st
isxes OPTION 5. RAND3 ERROZ 05 wee
isexe OPTION 5. RAND3 ERROR 06 ta+s

IERRDF (5308,MSG2,0):

inexe OPTION 5. RANDS ERROR 08 twes

iERRDF (5307.MSG1.0):

isxax OPTION 5. RANDS ERROR 09 wene

\AN

i ERRHRD (5309 ,MS64 ,05; inewe OPTION 5. RAND3S ERROR 09 swve
iERRSOF T(5310.M565.05; ienes OPTION 5. RANDS ERROR 10 tewe
inexe OPTION 5. RAND3 ERROR 11 twee

TERRSOF T(5311,MS63,0);

! 'RAND4* ROUTINE:

!ERRDF (5403,MSG1,0);

!exax QPY
!wexs QPT
!wsxs OPT

» RAND4 ERROR 01 wans

*ERRDF (5401,MSG1,0);
!ERRDF (5402,M561,0);

552

!WRITE COMMAND:

.
ERROR 02
» RAND4 ERROR 03

wwwe
wwen

!CHECK OR READ:

'ERRDF (5404,MSG1,0);
1ERRDF (5405,MSG1,0):
1ERRDF (5406.MSG1.0):
TERRDF (5407.MSG1.0):
VERRDF (5408.MSG2,0):

!=%*«
isxax
ixxax
iaxax
ixxws

1ERRSOFT(5411.MSG3,0):

inxex OPTION 5. RAND4 ERROR 11 newe

OPTION
OPTION
OPTION
OPTION
OPTION

S,
5.
5.
5.
5.

RAND4
RAND4
RAND4
RAND4
RAND4

ERROR
ERROR
ERROR
ERROR
ERROR

04
05
06
07
08

seas
sens
wes+
sews
we#w

iERRHRD (5409 MSG4 03 1evee OPTION 5. RANDG ERROR 09 wae+
TERRSOFT(5410,MSG3,05; iness OPTION 5. RANDG ERROR 10 +eas
4.0 PERFORMANCE AND PROGRESS REPORTS
AT THE END OF
SUMMARY WHICH
STARTED.
THE
THE PROGRAM'S

COMMAND.

EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH A
SHOWS THE DIAGNOSTIC'S PERFORMANCE SINCE IT WAS
SAME PROGRESS REPORT CAN BE OBTAINED BY STOPPING
EXECUTION (VIA A “C) AND BY ISSUING THE °‘PRINT®

A TYPICAL REPORT FOR 2 DRIVES IS SHOWN BELOW:

PERFORMANCE SUMMARY
NUMBER OF MBYTES TRANSFERRED:

1028 MBYTES WRITTEN
250 MBYTES READ
1145 MBYTES WRITE CHECKED

LOGICAL UNIT: O
DRIVE: 1
SOFT ERROR COUNT:
9
ARRAY 3:
HARD ERROR COUNT:
11
ARRAY (:
ARRAY 10:
ARRAY 15:
TRANSFER RETRIES:
0

SERIAL #:

1234

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 4-28

USER DOCUMENTATION

LOGICAL UNIT: 1

DRIVE DROPPED

DRIVE:

SEQ 0023

SERIAL #: 9876

(CONTROLLER FATAL ERROR)

SOFT ERROR COUNT:
ARRAY
1:
9

100

:gg:; }2:

==> RUN ML11 PROM MAINTENANCE PROGRAM

ARRAY 15:

==> RUN ML11 PRCA MAINTENANCE PROGRAM

ARRAY 14:
ARRAY 15:

1
1

HARD ERROR COUNT:
TRANSFER RETRIES:

5.0 DEVICE INFORMATION TABLES
AT THE START OF

THE PROGRAM, AN AUTOMATIC CHECK OF

THE SYSTEM

CONFIGURATION 1S MADE AND DEVICE INFORMATION SIMILAR TO THE
FOLLOWING IS PRINTED FOR EACH UNIT:

LOGICAL UNIT: O
DRIVE: 0
SERIAL #: 1234
ML11-A
SECTORS UNDER TEST: 000000 TO 017777
TRANSFER RATE:

1 MBYTES/SECOND

CSR ADDRESS:

176400

6.0 TEST SUMMARIES
THERE IS JUST ONE HARDWARE TEST IN THE EXERCISER, AND ITS PURPOSE
IS TO ACT AS A SCHEDULER TO CALL THE SUBROUTINES WHICH ACTUALLY
PERFORM ALL OF THE TEST CODE.
THE SUBROUTINES, CALLED OPTIONS, ARE
DESCRIBED BELOW:

6.1 OPTION 1

PURPOSE :

(OPT1)

TO CHECK ADDRESSES USING DATA = SECTOR NUMBER.

Iggfl%gg?gDARE 4K WORDS IN LENGTH, AND ALL SECTORS

THE CODE FOR *OPT1' IN BRIEF:

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING
INCR COMPLEMENT FLAG FROM 0 TO 1

: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP)
¢ INCR LOGICAL UNIT FROM O TO LAST
:
?Eg#rogP(START OF LOGICAL UNIT SELECTION LOOP)

: : : BEGIN & (START OF LOOP THAT COMPLETELY TESTS ONE UNIT)
[ %zEgNIT IS ACTIVE

: : s
: 2 3
t:t
: 2
t:

: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)

¢ INITIALIZE WRITE AND READ BUFFER POINTERS
: SECTOR = LOWEST
: WHILE SECTOR LEQ HIGHEST DO
: : BEGIN 6 (START OF SECTOR SELECTION LOOP)
2 GET_WRDCNT

: GENERATE THE PATTERN

-IMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 4=21

SEQ 0024

::::
::: :
:
2 1
::::

:
:
:
:

LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP)
CHOOSE WHETHER TO WRITE CHECK OR READ
DO THE WRITE CHECK OR READ
LOOK FOR ERRORS (IF DROP UNIT,
LEAVE TESTLOOP)

UPDATE SECTOR NUMBER BY NUMBER OF

SET _UP BUFFER POINTERS BEFORE

WRITE

TRANSFER

:: : : : CHANGE BUFFER POINTERS AFTER TRANSFER
:

SECTORS

::::: END 6 (END OF SECTOR SELECTION LOOP)
otz : END 5 (END OF TEST FOR AN ACTIVE UNIT)
: : : END & (END OF TESTLOOP)
: : END 3 (END OF LOGICAL UNIT SELECTION LOOP)

IN PREVIOUS

TRANSFER

: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP)

RETURN

END 1

(END OF ROUTINE)

6.2 OPTION 2 (OPT2)
PURPOSE :

TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM

THE PATTERN TABLE.

THE CODE FOR °'OPT2'

IN BRIEF:

BEGIN 1 (START OF ROUTINE)
SAY THE ROUTINE IS RUNNING

CHOOSE A MAXIMUM PATTERN NUMBER
INCR COUNT FROM 1 TO (2+MAX)
: BEGIN 2 (START OF PATTERN SELECTION LOOP)
: GENERATE THE PATTERN
:

INCR LUN_FRUM O TO LAST

I ?Eg%fogp(STARY OF LOGICAL UNIT SELECTION LOOP)
: 3 : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
e %;EENIT IS ACTIVE

: ¢t : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
$ ¢t ¢ INITIALIZE THE WRITE AND READ BUFFER POINTERS
: s : : SECTOR = LOWEST
: : : : WHILE SECTOR LEQ HIGHEST DO
t 2 : ¢ : BEGIN 6 (START OF SECTOR SELECTION LOOP)
Prof ot : GET_WRDCNT
Tz SS}TgP BUFFER POINTERS BEFORE TRANSFER
t: s ¢ :
D2t :
: 2 ¢ : :
:
¢t

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
CHOOSE WHETHER TO WRITE CHECK OR READ
DO THE WRITE CHECK OR READ
LOOK FOR ERRORS (IF DROP UNIT,
LEAVE TESTLOOP)

UPDATE

: 1 : : : CHANGE BUFFER POINTERS AFTER TRANSFER
:

SECTOR NUMBER BY NUMBER OF

SECTORS

END 6 (END OF SECTOR SELECTION LOOP)

: 2 : : END 5 (END OF TEST FOR AN ACTIVE UNIT)
:: : END & (END OF TESTLOOP)
: : END 3 (END OF LOGICAL UNIT SELECTION LOOP)
: IF NOT THE QUICK VERIFY PASS THEN 'LOOP READ®

fiegfignz (END OF PATTERN SELECTION LOOP)
END 1

(END OF ROUTINE)

IN PREVIOUS

TRANSFER

(DESCRIBED BELOW)

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 4-25

USER DOCUMENTATION

THE

'LOOP READ'

SEQ 0025

CODE IN BRIEF:

BEGIN 11 (START OF LOOP READING SECTION)
INCR LUN FROM 0 TO LAST

: ?Eg%fioagz(START OF LOGICAL UNJT SELECTION LOOP)

: : BEGIN 13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
. %LEgNIT IS ACTIVE
:

:
:
¢

:
$

:
:

:
:
$
:
:

: BEGIN 14 (START OF TEST FOR AN ACTIVE UNIT)

¢t INJTIALIZE THE WRITE AND READ BUFFER POINTERS
¢ : SECTOR = LOWEST
: : WHILE SECTOR LEQ HIGHEST DO
: : : BEGIN 15 (START Of SECTOR SELECTION LOOP)
: i : GET_WRDCNT
1 ¢ ¢ SET UP BUFFER POINTERS BEFORE TRANSFER
: : : CHOOSE WHETHER TO WRITE CHECK OR READ

INCR KOUNT FROM 1

TO TIMES

(IF

21
22

1
2

13
¢ ¢
¢ ¢
2
: 2

¢ : END 16 (END OF COUNTING LOOP FOR LOOP READING)
: CHANGE BUFFER POINTERS AFTER TRANSFER
: UPDATE SECTOR NUMBER BY # SECTORS IN PREVIOUS TRANSFER
: END 15 (END OF SECTOR SELECTION LOOP)
END_14 (END OF TEST FOR AN ACTIVE UNIT)

: BEGIN 16 (START OF COUNTING LOOP FOR LOOP READING)
: DO THE WRITE CHECK OR READ
LOOK FOR ERRORS

DROP UNIT,

LEAVE

TESTLOOP2)

: : END 13 (END OF TESTLOOP2)
: END 12 (END OF LOGICAL UNIT SELECTION LOOP)
END 11 (END OF LOOP READING SECTION)

6.3 OPTION 3 (GPT3)

PURPOSE :

TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS.

THE CODE FOR °'OPT3'

BEGIN 1

IN BRIEF:

(START OF ROUTINE)

SAY ROUTINE IS RUNNING
INCR COMPLEMENT FLAG FROM 0 TO 1

: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP)

: GENERATE THE PATTERN
: INCR LUN_FROM 0 TO LAST
I ?Eg%fiogp(START OF LOGICAL UNIT SELECTION LOOP)

: i : BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1
s %SEENIT IS ACTIVE

:::

: BEGIN 5

UNIT)

(START OF TEST FOR AN ACTIVE UNIT)

: ¢
: INITIALIZE THE WRITE AND READ BUFFER POINTERS
:: 2 : SECTOR = LOWEST
: ¢ i : WHILE SECTOR LEQ HIGHEST DO
i3z : BEGIN 6 (START OF SECTOR SELECTION LOOP)
::r ot GET_WRDCNT
trororoe SS}TgP BUFFER POINTERS BEFORE TRANSFER
-----

ooooo

¢t

LOOK FOR ERRORS

(IF DROP UNIT,

LEAVE

TESTLOOP)

CIMLBBO PERFORMANLE FYER"ISER

MACRO M1113 29-MAR-82 13:41 PAGE 4-25

USER DOCUMENTATION

SEQ 0026

ot
CHOOSE WHETHER TO WRITE CHECK OR READ
otz ot : DO THE WRITE CHECK OR READ
¢z
: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: ot r: ¢ CHANGE BUFFER POINTERS AFTER TRANSFER
i3 3 3 ¢ UPDATE SECTOR NUMBER B8Y NUMBER OF SECTORS IN PREVIOUS TRANSFER
:::: : END 6 (END OF SECTOR SELECTION LOOP)
::: : END 5 (END OF TEST FOR AN ACTIVE UNIT)
:: : END & (END OF TESTLOOP)

: END 3 (END OF LOGICAL UNIT SELECTION LOOP)

éE?figNz (END OF COMPLEMENT FLAG SELECTION LOOP)
END 1

(END OF ROUTINE)

6.4 OPTION 4 (OPT4)

PURPOSE :

TO LOOK FOR INTEREACTIONS BETWEEN SECTORS

USING A MARCH TEST.

THE CODE FOR 'OPT4' IN BRIEF:

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING
WORD COUNT = 256

GENERATE A BUFFER OF DATA
GENERATE A BUFFER OF COMP
INITIALIZE POINTERS TO 4 BUFFERS FOR WRITE/READ DATA/COMP
INCR LUN_FROM 0 TO LAST
: BEGIN 2_(START OF LOGICAL UNIT SELECTION LOOP)

: BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
IF INIT IS ACTIVE

:
:
:
$
:

1
:
i
s
2

: BEGIN & (START OF TEST FOR AN ACTIVE UNIT)
3 INCR SECTOR FROM LOWEST TO MIGHEST
i : BEGIN 4A (START OF 1ST SECTOR SELECTION LOOP)
: : WRITE °*DATA’
: : LOOK FOR ERRORS (IF DROP UNIT,
LEAVE TESTLOOP)

:
:
:

1
:
i

: CHOOSE WHETHER TO WRITE CHECK OR READ *DATA®
: INCR SECTOR FROM LOWEST TO HIGHEST
i : BEGIN 4B (START OF OND SECTOR SELECTION LOOP)

:
:

1 : CHOOSE WHETHER TO WRITE CHECK OR READ °COMP’
: : DECR SECTOR FROM WIGHEST TO LOWEST

t: i : END 4A (END OF 1ST SECTOR SELECTION LOOP)

DO THE WRITE CHECK OR READ OF ‘DATA’
LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
WRITE *COMP"
LOOK FOR ERRORS

(IF DROP UNIT,

LEAVE TESTLOOP)

2 :: END 4B (END OF 2ND SECTOR SELECTION LOOP)

: BEGIN 4C (START OF
3RD SECTOR SELECTION LOOP)
DO THE WRITE CHECK OR READ OF °COMP

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)

: LOOK FOR_ERRORS (IF DROP UNIT,

LEAVE TESTLOOP)

: END 4C (END OF 3RD SECTOR SELECTION | 00P)

CHOOSE WHETHER TO WRITE CHECK OR READ
INCR SECTOR FROM LOWEST TO WIGHEST

‘DATA’

: BEGIN 4D (START OF 4TH SECTOR SELECTION LOOP)

(IMLBBO PERFORMANCE EXERCISER

MACRO M1113

USER DOCUMENTAT
ION

29-MAR-82 13:41

PAGE 4~2%

SEQ 0027
it

t:t

:
:

DO THE WRITE

st
ot

CHECK OR READ OF

LOOK FOR ERRORS

(IF

DROP UNIT,

'DATA’
LEAVE

TESTLOOP)

: END 4D (END OF 4TH SECTOR SELECTION LOOP)
END & (END OF TEST FOR AN ACTIVE UNIT)

: : END 3 (END OF TESTLOOP)
.
: END 2 (END OF LOGICAL UNIT SELECTION LOOP)
RETURN

END 1

(END OF ROUTINE)

6.5 OPTION 5 (OPTS)

PURPOSE :

TO EXERCISE THE ML11 SYSTEMS UNDER TEST IN A RANDOM

MANNER. SO AS TO SIMULATE THE FLEXIBILITY OF
THAT WOULD BE DONE BY AN OPERATING SYSTEM.

TESTING

THERE ARE 4 RANDOM TESTS WHICH ARE CALLED BY °‘OPTS®
TO ACCOMPLISH ALL TESTING.
IT IS THE RESPONSIBILITY

OF THIS ROUTINE TO DECIDE HOW MANY TIMES THOSE 4

RANDOM TESTS WILL BE EXECUTED.

REFER TO 'RAND1*

‘RANDG' BELOW FOR MORE INFORMATION.

6.5.1 RAND1 ROUTINE

PURPOSE :

TO TEST USING RANDOM DATA

THE CODE FOR 'RAND1'

IN BRIEF:

BEGIN 1
(START OF ROUTINE)
SAY ROUTINE IS RUNNING
INCR COUNT FROM 1 TO REPEAT
: BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE)
: GENERATE THE RANDOM PATTERN
:

INCR LUN FROM 0 TO LAST

2 ?Eg%{logp(STMT OF LOGICAL UNIT SELECTION LOOP)

: : : BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
LI #'E:‘NIT IS ACTIVE
:: :
s :
: o
¢t :
¢ttt
Pt
[

: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
: INITIALIZE THE WRITE AND READ BUFFER POINTERS
: SECTOR = LOWEST
: WHILE SECTOR LEQ HIGHEST DO
1 : BEGIN 6 (START OF SECTOR SELECTION LOOP)
i ¢ GET_WRDONT
A ls#E!}T'éP BUFFER POINTERS BEFORE TRANSFER

::::
::::
::::
::::

: LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP)
: CHOOSE WHETHER TO WRITE CNECK OR READ
: DO THE WRITE CHECK OR READ
: LOOK FOR ERRORS (IF DROP UNIT,
LEAVE TESTLOOP)

: : : : : CHANGE BUFFER POINTERS AFTER TRANSFER

: 21 : :
:::::

UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER
END 6 (END OF SECTOR SELECTION LOOP)

:::: END S (END OF TEST FOR AN ACTIVE UNIT)
: : : END 4 CEND OF TESTLOOP)

: END 3 (END OF LOGICAL UNIT SELECTION LOOP)

LIMI.BBO PERrCRMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

(
3
PAGE 4-25

SEQ 0028

: END 2
RETURN

END 1

(END OF REPEAT LOOP FOR THIS ROUTINE)

(END OF ROUTINE)

6.5.2 RAND2 ROUTINE

PURPOSE :

TO TEST USING RANDOM DATA AND WORD COUNTS

THE CODE FOR 'RAND2'

IN BRIEF:

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING
INCR COUNT FROM 1 TO REPEAT

: BEGIN 2 (START OF REPEAT LOOP FOR THE ROUTINE)
: INCR LUN FROM O TO LAST
: : BEGIN 3 (START OF LUGICAL UNIT SELECTION LOOP)
T ?Eg;fi%g THE RANDOM PATTERN

¢
:

BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1
%ZE}‘NIT 1S ACTIVE

UNIT)

: : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
2 : ¢ SECTOR = LOWEST
: ¢ : INITIALIZE THE WRITE AND READ BUFFER POINTERS
:: : : JHILE SECTOR LEQ HIGHEST DO
::: : : BEGIN 6 (START OF A PASS THROUGH ALL SECTORS)
: ¢t
: CHO
A RANDOM
OSE
WORD COUNT
£
2t
SET UP BUFFER POINTERS BEFORE TRANSFER
2ttt CALCULATE NEXT STARTING SECTOR (BASED ON WORD COUNT)
s
2t s JF NEXT STARTING SECTOR GTR MIGHEST
:

i
L

THEN ADJUST THE WORD COUNT AND NEXT SECTOR SO THEY FIT
£
WITHIN THE TESTABLE SECTOR LIMITS

: 221 3 LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: 3t t ¢ CHOOSE WHETHER TO WRITE CMECK OR READ
22 s : DO THE WRITE CHECK OR READ
3
3 : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
:: 2t SECTOR = THE CALCULATED MEXT STARTING SECTOR
: i 3t : CHANGE BUFFER POINTERS AFTER TRANSFER
:: 33 : END 6 (END OF A PASS THROUGH ALL SECTORS)
: s
3 END 5 (END OF TEST FOR AN ACTIVE UNIT)
:: : END & (END TESTLOOP)

: END 3 (END OF LOGICAL UNIT SELECTION LOOP)

':‘E%NRQNZ (END OF REPEAT LOOP FOR THIS ROUTINE)

END 1

(END OF ROUTINE)

6.5.3 RAND3 ROUTINE

PURPOSE :

TO TEST USING RANDOM DATA, WORD COUNTS AND SECTORS

THE CODE FOR 'RAND3’ IN BRIEF:

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE 1S RUNNING
INCR COUNT FROM 1 TO REPEAT

: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE)
: GENERATE THE RANDOM PATTERN
: INCR LUN FROM 0 TO LAST

(ZMLBBO FtRFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 4~26

SEQ 0029

: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)

{gg'{e&l’lf BUFFER POINTERS

: BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)

%’F‘E}‘NIT IS ACTIVE

: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
:
:
:
:

2t :
2 2 :
2 2t
¢ 2 s

: ¢
2

s
t

¢t
¢t

:
:
:
t
:

1 :
¢t

TIMES = (HIGHEST - LOWEST)/2 ¢+ 1

INCR KOUNT FROM 1 TO TIMES
: BEGIN 6 (START OF COUNTING LOOP FOR SECTOR SELECTION)
: CHO
A RANDOM
OSE
WORD COUNT
2 SET UP BUFFER POINTERS BEFORE TRANSFER

¢
s

CHOOSE A RANDOM SECTOR
CALCULATE WHERE TRANSFER WILL END

dRiTE

2t
2t
¢t
22
1t

2
¢
:
¢
¢

(BASED ON WORD COUNT)

IF CALCULATED VALUE GTR HWIGHEST
: THEN ADJUST THE WORD COUNT SO IT FITS
WITHIN THE

TESTABLE

SECTOR LIMITS

LOOK FOR ERRORS (IF DROP UNIT, LEAVE LABEL)
CHOOSE WHETHER TO WRITE CHECK OR READ
DO THE WRITE CHECK OR READ
LOOK FOR ERRORS (IF DROP UNIT, LEAVE LABEL)
CHANGE BUFFER POINTERS AFTER TRANSFER

:: 2 : : END 6 (END OF COUNTING LOOP FOR SECTOR SELECTION)
::: : END S (END OF TEST FOR AN ACTIVE UNIT)
: : : END & (END OF TESTLOOP)
: : END 3 (END OF LOGICAL UNIT SELECTION LOOP)

I:iEgt‘RPNZ (END OF REPEAT LOOP FOR THIS ROUTINE)
END 1

(END OF ROUTINE)

6.5.4 RAND4 ROUTINE

PURPOSE :

TO TEST USING RANDOM DATA, WORD COUNTS, SECTORS

AND UNITS
THE CODE FOR 'RAND4® IN BRIEF:

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING

INCR COUNT FROM 1 TO REPEAT

: BEGIN 3 (START OF COUNTING LOOP FOR UNIT SELECTION)
CHOOSE A_RANDOM LOGICAL UNIT WHICH IS ACTIVE
{gé}'i&tfll’lf BUFFER POINTERS

o¢

: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE)
GENERATE THE RANDOM PATTERN
TIMES = NUMBER OF UNITS « &
INCR KOUNT FROM 1 TO TIMES

:
:
:

2
2
¢

: BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
: INCR KOUNT2 FROM 1 TO 10
: ¢ BEGIN 5 (START OF COUNTING LOOP FOR SECTOR SELECTION)
: : CHOOSE A RANDOM WORD COUNT
: ¢ SET UP BUFFER POINTERS BEFORE TRANSFER

:
1
¢

: CHOOSE A RANDOM SECTOR
3 CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT)
¢ IF_CALCULATED VALUE GTR HIGHEST
: 2t 3 : THEN ADJUST THE WORD COUNT SO IT FITS
P2 QR;TE
WITHIN THE TESTABLE SECTOR LIMITS

CIMLBBO PERFORMANCE EXERCISER

E
MACRO M1113 29-MAR-82 13:41 PAGE 6-2;

USER DOCUMENTATION

SEQ 0030
:

¢
:
¢
:

:
t
:
¢

¢
:
:
¢

e
.«

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
CHOOSE WHETHER TO WRITE CHECK OR READ
DO THE WRITE CHECK OR READ
LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)

CHANGE BUFFER POINTERS AFTER TRANSFER

END 5 (END OF COUNTING LOOP FOR SECTOR SELECT ON)

ND & (END OF TESTLOGP)

3 (END OF COUNTING LOOP FOR UNIT SELECTION)

: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE
RETURN
END 1 ( END OF ROUTINE)

7.0 MAINTENANCE HISTORY
MODIFIE D B8Y: D.W. NEALE

DATE:

18-FEB-82

VERSION: B

ALL FUNCTIONAL CHANGES TO THIS DIAGNOSTIC ARE LABLED
WITH A COMMENT LINE OF °VER CZMLBB' PRECEEDING ANY
MoD IFIED OR ADDED LINE/BLOCK OF CODE.
FUN CTIONAL CHANGES TO THIS DIAGNOSTIC INCLUDE:

MODIFING CODE TO ENSURE QUALITY TESTING OF ML-118
AND ML-11A BLOCK MODE MEMORY SYSTEMS.

CORRECT EXERCISER FUNCTIONALITY TO CALL OUT ML11
PROM MAINTENANCE PROGRAM AFTER 10 UNIQUE FAILING
SINGLE BIT ERRORS (SBE'S) HAVE BEEN DISCOVERED
PER ARRAY MODULE.

VERSION ‘A’ PROM MAINTENANCE CALL OUT OCCURES AFTER

ANY TEN SBE'S ARE DISCOVERED PER ARRAY MODULE.

PER REQUEST OF F/S AND MEMORY ENGINEERING, THE REPORTING

OF 'MOPE’ ERRORS DURING SBE'S (ORRECTION WILL BE IGNORED.
ADDING TO THE REPORT SUMMARY (ODE SECTION A TABLE OF SBE

'ISRCIZ'A‘H%S AND PRINTING OF THIS TABLE DURING REPORT CODE

(IMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND TABLES

MACRO M1113

29-MAR-82 13:41

SEQ 0031

.SBTTL

35
gg

PAGE 6

PROGRAM HEADER AND TABLES

.ENABL
.

002000

‘3’8 002000

ABS,AMA
=
2000

BGNMOD

41
4

24
: THE PROGRAM HEADER IS THE INTERFACE BETWEEN

;

THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

29 002000

POINTER ALL

65 002000

HEADER

002000
002000
002001
00200
00200
2004
002005
2006
002007
002010
002010
002011
002011
002012
002012

002014

002016

002020

103
132
115§
114
102
000
000
000
102

060
000000
003410
002266

002020

002456

2022

002210

002024

002222

002026

105050

002022

002024

002026

002030

000000

002032
00583‘
00203«

000000
000001

002036

000000

002040

002204

002032
002036

002040

002042

000000

002044

000000

002044

(ZMLB,8,0,1800.,1

LSNAME
::

LSREV::
LSDEPO: :
LSUNIT::

LSTIML::
LSHPCP: :
LSSPCP::
LSHPTP: :
LSSPTP::
LSLADP: :
LSSTA::
L$CO::
LSDTYP::

LSAPT::
LRDTP::

LSPRIO: :
LSENV]::

LASCII
.ASCI1
LASCI1
.ASCI1
ASCII
BYTE
BYTE
BYTE

/C/
72/
/M/
7L/
/B/
0
O
0

.ASCI1

/8/

JASCII

70/

LWORD

TSPTHV

.WORD

1800.

WORD

LSHARD

.WORD

LSSOFT

LORD

LSHW

WORD

LSSW

.WORD

LSLAST

WORD

MWORD

LMORD

LHORD

LSDISPATCH

MORD

MWORD

LIMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND TABLES

002046

002050
002050
002051

002052
002052

002054

002056

002060

002062
002062

002064

002066

002070

002072

002100

002102

002102
002104
002104

002106

002106
002110
002110
002112
002112

002114

002114
002116
002116

002120
66 002120

SEQ 0032

LSEXPY::

LSMREYV: :
LSEF::

000000

LSSPC::

000000

LSDEVP: :

002122

LSREPP: :

005474

LSEXPS: :

000000

LSEXPS::

000000

LSAUT::

005652

000000

002100

003

002074

002076

PAGE 6-1

003

005640

002076

29-MAR-82 13:41

000000

002072

002074

MACRO M1113

L$DUT::

LSLUN::
LSDESP: :

002130

LSLOAD: :

104035

LSETP::

002172

LSICP::

040722

LS$CCP::

105034

LSACP::

005506

LSPRT::

004126

LSTEST::

000000

LSDLY::

000000

LSMIME: :

000000

80 002122

LWORD

BYTE

CSREVISION

LMORD

MORD

.WORD

LSDVTYP

.WORD

LSRPT

LWORD

WORD

L3AU

LWORD

LSDU

WORD

.WORD

LSDESC

EmT

ESLOAD

.WORD

LSERRTBL

.WORD

LSINIT

.WORD

LSCLEAN

.WORD

LSAUTO

.WORD

LSPROT

MWORD

MORD

WORD

.BYTE

.WORD

CSEDIT

NAMES OF DEVICES SUPPORTED BY THIS PROGRAM
DEVTYP <ML11>

115

LSDVTYP:

CIMLBBO PERFORMANCE EXERCISER
PROGRAM HEADER AND TABLES

82
83
84
85 005130
002130
00213¢

MACRO M1113

29-MAR-82 13:41

PAGE 7
SEQ 0033

TEST DESCRIPTION

DESCRIPT <(CZMLBB ML11 PERFORMANCE EXERCISER>
103

132

LSDESC::

115

ASCIZ
.EVEN

/CZMLBB ML11 PERFORM

THE GLOBAL ERROR TABLE (INFORMATION
USED IN A CALL TO THE MACRO 'ERROR'")

96 002172

ERRTBL

002172
002172
002174
002176
002200

THE DI SPATCH TAHLE CONTAINS THE STARTING ADDRES OF EACH TEST.

DISPATCH 1

000001

.WORD
LSDISPATCK::
.WORD

NOWVS
NN O

102712

PN T
AR TR T

000004

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
THE TEST-DEVICE PAR~ETERS.
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.

BGNHW

DFPTBL
DFPIBL::

KWN"%OQQ

LSHW::

stt

b e cnd el

d end ek

-WORD

s IT 1S USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

b rd o

-WORD

S i -l

D ed ad ok

95
96
97
98
99
100
101 002202

::
LSERRTBL

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

176400

-WORD

WORD
WORD

ENDHW

176400
204

5
O

sCSR ADDRESS
:RH VECTOR ADDRESS
;BR _LEVEL FOR INTERRUPT
sML11 DRIVE NUMBER
L10000:

.WORD

L10000-L$HW/2

CIMLBBO PERFORMANCE EXERCISER

0
(2)

TIME.

THESE PARAMETERS ARE

SET

BGNSW

SFPTBL

LSSW::

N
TM~

LIMIT::
~N
~N

.WORD

L10001-L8SW/2

SFPIBL::

,WMORD

TSECT::
ONLY::

.WORD
.WORD
.WORD

DROPNE:: .WORD
DROP1:: .WORD
DROP2:: .WORD

LIMIY SMGSOOFISEC;?;S TO BE TESTED

:LOW SECTOR NUMBER

O
O

RoR
RZE

ECCDIS::

.WORD

;TOP SECTOR NUMBER
SONLY BOARD TO TEST (BOARD #°S ARE

0 TO 15)
1= YES
1 =YES
1 = YES

0
O
O

;DROP ANY OPTIONS?
;DROP OPTION #1?
:DROP OPTION #2?

O
1
O
O

:DROP OPTION #4?
0=N0O 1 =YES
sPATTERN NUMBER USED FOR MARCH TEST
;DROP OPTION #5?
0=N0O 1= YES
;ENABLE MARGINING?
0 = NO (LEAVE DISABLED)
H
1 = YES (ENABLE IT)
sDISABLE ECC?
0 = NO (LEAVE ENABLED)

0060000

:DOES OSEEA'T‘gR l(MO\i1 YE)S(ACY SECTOR NUMBERS?

002254

DROP3:: .WORD

DROP4:: .WORD
MARPAT:: .WORD
DROPS:: .WORD
REFRESH:: .WORD

RANGE::

LSECT:: .WORD

b e
b i e
ool e

b ad sl

PROGRAM AS OPERATIONAL PARAMETERS.

000021

sasnnnnnanan

:DROP OPTION #3?

IMPORTANT

NOTE

0=N0
0=N0O
0=NO

0=N0

1 = YES

(DISABLE

YES

IT)

tetananannn

s THE FOLLOWING 2 SOF TWARE PARAMETERS :
: HAVE NON-STANDARD DEFAULTS. ERRORS :
s AND END OF PASS PERFORMANCE SUMMARY ;

:
¢
s
s

) wnd wnd md cd

REPORTS WILL »+« N O T «« BE PRINTED ;
UNLESS THE OPERATOR SPECIFICALLY :;
REQUESTS THE PRINTOUTS VIA SUITABLE ;
ANSWERS TO THE SOFTWARE QUESTIONS.

: THIS OPERATING FEATURE WAS INCLUDED 5

: IN THE ML11 PERFORMANCE EXERCISER'S :
s FUNCTIONAL SPECIFICATION AT THE RE- ;
s QUEST OF FIELD SERVICE.
H

JARNARAA
A RN A RRANRANARA
RAAN
RARNAENRRA
RR
SN

002256

000000

EOPSUM:: .WORD

;ENABLE EOP SUMMARIES?

002260

000000

ERROUT:: .WORD

;ENABLE ERROR PRINTOUTS? ? = tvlgsPRlNTOUT

002262

000000

EFNS21:: .WORD

:'ENABLE SOFT ERROR TESTING C1) = tvdgs(DEFAULT)

? = DYKELPRINTOUT

ETHIS OPTION IS DESIGNED FOR MEMORY ENGINEERING

2
3

KRR

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

b wnd i cod e

2ETRIRAR WN = OOV NV

et wdh =D

0DO00B 00~ NN NN NN~ NN

SEQ 0034

ctt

) wnd
D
d cud el d wad wd i
b

; THE DEFAULT SOF TWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE

i d

2323 ZERSEIZIRURGLE

b crd sacd b md e wmd —

-—b

::—i-a—a—.—l
S
WNSEDE 1.3

PROGRAM HEADER AND TABLES

MACRO M1113 29-MAR-82 13:41 PAGE é

ENDSW

:FOR DMT PURPOSES

(IMLBBO PERFORMANCE EXERCISER
PROGRAM HEADER AND TABLES

197

MACRO M1113

002264

L10001:

550

251
252
253

: THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
¢ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

254

¢ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

255
256

257
258
259 002264
002264

002266

;==

BGNHRD

000022

LSHARD : :
GPRMA

000031
002332
000000
1177777

GPRMA

001031
002351
000000
000377

GPRMD

002032
002374
000007

000001
000007

GPRMD

003032
002425
000007
000000
000007

277 002332

258

294

QH2,2,0,0,377,YES

QH3,4.0,7,1,7,YES

QMH4,6,0,7,0,7,YES

WORD
.WORD
WORD
WORD

TSCODE
OM1
TSLOLIM
TSHILIM

.WORD
WORD
LWORD
WORD

TSCODE
QM2
TSLOLIM
TSHILIM

.WORD
MORD
.WORD
WORD
.WORD

TSCODE
QM3
7
TSLOLIM
TSHILIM

WORD
WORD
WORD
WORD
WORD

TS$L0DE
QK
7
TSLOLIM
TSHILIM

ENDHRD
L10002:
103
111
102
104

123
116
122
122

122
124
040
111

QH1:
QM2:
QH3:
OHé:

291
29

.WORD L70002-LSHARD/2

QH1,0,0,0,177777,YES

002332

286 002332
287 002351
288 002374
289 002425

290

THE

s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
. WITH THE OPERATOR.

272 002266
002266
002270
002272
002274
273 002276
002276
002300
002302
002304
274 002306
002306
002310
002312
002316
002316
275 002320
002320
002322
002324
002326
276 002330

288

J
PAGE 8-1
SEQ 0035

222
248

260

29-MAR-82 13:41

14é

.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ

.EVEN

/CSR ADDRESS
/INTERRUPT VECTOR
/BR LEVEL FOR INTERRUPT
/DRIVE NUMBER

A
2/
?
2/

: THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS

.EVEN

(IMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND TABLES

29-MAR-82 13:41

K
3
PAGE 8-2
SEQ 0036

: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.

THE

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

296

; MACROS ARE NOT EXECUTED AS MACHMINE INSTRUCTIONS BUT ARE

0
[« ]

295

MACRO M1113

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

297

. WITH THE OPERATOR.

300

301

302 002446

002446

002450

33
31% 002450

002450
002452
002454
314 002456
002456
315 002460
002460
002462
002464

BGNSFT

000106

L3SOFT::

000130
002664
000001
025044
001130
002732
000001

31 88%222 014044

317 002470
002470
002472
002474
002476
002500
318 002502
002302
002504

GPRML

QS§1,0,1,YES

XFERF

GPRML

QS2.2,1,YES

XFERF
3%
GPRMD
0§3,4,0,177

777,0,177777,YES

002032
003007
177777
000000
177777

GPRMD

003032
003947

054,6,0,177777,0,177777
,YES

02310 900000

002512
319 002514

005514

320 002516
002516
002520

177777

006004
004052
003107

5%:

XFER

GPRMD

0§5,10,D,37,0,15.,YES

00335¢ 000000

0025
321 0025
00 Slg
0025
5
322
5
5
323 00254
002540
002542

002544
0025
00555
324 00255

000017

005130
003147
000001
007024
012052
003554
000077

000001
000012

.WORD L10003-L$SOFT/2

.WORD
.WORD
WORD

TSCODE
QS1
1

.WORD

T$CODE

.WORD
WORD
WORD

TSCODE
Q@S2
1

.WORD
.WORD
WORD
WORD
LWORD

TSCODE
Q@S3
177777
TSLOLIM
TSHILIM

.WORD
LWORD

TSCODE
QS4

WORD TSCODE

WORD TsioLIn
LWORD
TSHILIM

.WORD

TSCODE

WORD
LWORD

TSCODE
QS5

LWORD

TSHILIM

.WORD
WORD
.WORD

TSCODE
QS6
1

.WORD

TSCODE

.WORD
.WORD
WORD

TSCODE
Qs11

VORD TéLouim

6$:

GPRML

0S6,12,1,YES

XFERT

GPRMD

0§11,24,0,77,1,10.,YES

XFER

138

JWORD
WORD

77
TSLOLIM
TSHILIM

(IMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND TABLES

002552 026004
325 002554
002554 006130
002556 003454
002560 000001
326 00256
002562
007130
002564 003474
002566 000001
327 002570
002570 010130
002572 003514
002574 000001
328 002576
002576 011130
002600 003534
002602 000001
329 002604
002604 006024
330 002606
002606 012052
002610 003554

331 002620
002620
002622
002624
332 002626
002626
002630
002632
333 002634
002634
002636
002640
334 002642
002642
002644
002646
335 002650
002650
002652

017130
004030

002656
002660
002662

020130
004066
000001

013130
003637
000001

014130

003657
000001

015130

002664

78:

GPRML

3
SEQ 0037
- WORD

0S7,14,1,YES

. WORD

GPRML

.WORD

Qs8,16,1,YES

.WORD
.WORD
.WORD

0§9,20,1,YES

-WORD

GPRML

128:

XFERT

128

GPRMD

0§11,24,0,77,1,10.,YES

GPRML

. WORD

Q$10,22,1,YES

©S512,26,1,YES

000001

016130
003763
000001

T$CODE
T$CODE

?57

T$CODE
?58
T$CODE

?59

- WORD
.WORD
.WORD

T$CODE
?510

.WORD

T$CODE

-WORD

TSCODE
Qs11
77
TSLOLIM
TSHILIM
T$CODE

?812
138:

GPRML

0513,30,1,YES

T$CODE
$S13

GPRML

Q§14,32,1,YES
TS$CODE

003724

336 88%222 000001
338
339 002664

MACRO M1113 29-MAR-82 13:41 PAGE 5-3

g$14

GPRML

QS15,34,1,YES
T$CODE
?515

GPRML

0516,36,1,YES
TS$CODE
?516

Q$17,40,1,YES

T$CODE
?517

.EVEN

ENDSFT
L10003:

(ZMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND

347 002664
348 002732
349 003007
350 003047
351 003107
352 003147
353 003203

354 003231
355 003256
356 003310
357 003333
358 003364
359 003454
360 0034746

361 003514
362 003534
363 003554
364 003637

365 003657
366 003724
367 003763
368 004030
369 004066
370
37
372
373

TABLES

114
104
106
114
127
124
012

012
012
012
012
012
104
104

104
104
120
104
105
104
105
105
105

374

29-MAR-82 13:41

SEQ 0038

111
117
M
101
110
110
015

015
015
015
015
015
122
122

122
122
101
122
116
m
116
116
116

115
040
122
123
111
105
040

040
040
040
040
104
117
117

117
117
126
117
101
123
101
101
101

QS1:
QS2:
QS3:
QS4:
QSS:
Qsé6:

QS7:
QS8:
QS9:
QS10:
QS11:
05’%:
QS13:
QS$14:
Qs15:
QS16:
as17:

ASCIZ
.ASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCI1
LASCII

LASCII
LASCI]
LASCII
LASCII
ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
+ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.EVEN

<12><15>/
g.
PATTERN TEST/
<12>¢<15>/
.
UNIQUE DATA CHECK/
<12><15>/
4.
MARCH TEST/
<12><15>/
5.
RANDOMNESS TESTS/
<12><15>/D0 YOU WANT TO DROP ANY OF THESE FROM 1HE EXERCISER 2/
/DROP OPTION 1 7/
/DROP OPTION g A

/DROP OPTION 3 7/
/DROP OPTION 4 ?/
/PATTERN NUMBER {1-10) TO BE USED WITH MARCH TEST 7/
/DROP OPTION 5 2/

/ENABLE REFRESH MARGINING
A
/DISABLE ERROR CORRECTION
2
/ENABLE END OF PASS SUMMARY PRINTOUT?/
/ENABL- ERROR PRINTOUTS
A
/ENABLt SOFT ERROR TESTING
2/

: SERVICES TO PROTECT THE LOAD MEDIA.

378
379 004126

BGNPROT

380 004126
177777
177777
177777

LSPROT::

-1
-1
-1

385 004134
386

ENDPROT

2%% 004134

SPATCH:: .BLKW

410
411 004234
412
413
414
415
428

/LIMIT RANGE OF SECTORS TO BE TESTED ?/
/DO YOU KNOW EXACT RANGE OF SECTORS TO TEST 7/
/FIRST SECTOR YO BE
TESTED
7/
/LAST
SECTOR
71O ?g
TESTED
7/
/WHICH BOARD
(0-~1
TESTED
1?2/
/THE PROGRAM OPTIONS INCLUDE:/
<12><15>/
1.
ADDRESS CHECK/

: THE PROTECTION TABLE IS USED BY THE RUNTIME

g;g

PAGE 9

pR 2

375

381 004126
382 004130
3332 004132

MACRO M1113

ENDMOD

sOFFSET INTO P-TABLE FOR CSR ADDRESS
+sOFFSET INTO P~TABLE FOR MASSBUS ADDRESS
sOFFSET INTO P-TABLE FOR DRIVE NUMBER

32.

sTHIS LEAVES ROOM FOR THE 22 ML-11 REGISTERS TOO

(ZMLBBO PERFORMANCE EXERCISER
‘RANDOM NUMBER GENERATOR®

MACRO M1113

29-MAR-82 13:41

N_3
PAGE 42

SEQ 0039

;

.SBTTL

ROUTINE TO GENERATE 16-BIT PSEUDO RANDOM NUMBERS

S
6
7

s INPUTS:
JIMPLIED INPUTS:
:

NONE
SEED1, SEED2, SEED3 are global values which will
be used by, but not input to the ?enerator

sIMPLIED QUTPUTS:

NONE

'RANDOM NUMBER GENERATOR'

J0UTPUTS::

JCALLING SEQUENCE:

12 005370

13 005372

14 005376
15 005400
16 005404

17 005406
18 005410

19 005414

010046

016700

000241
005367
006100

006100
066700

066700

20 005420
21 005424
22 005426

010067
006100
006100

25 005436
26 005440
27 005444
28 005452
%3 005454

006100
010067

23 005430
24 005434

33 005456
34 005460
35 005462
36
37 005464

066700
006100

016767
012600

000207

RN::

000062

CLC
DEC
ROL

000052

000042

000026

000010

000012

SEED2,RO

ROL
ADD

MOV
ROL
ROL

RO, SEED?2
RO
RO

ADD
ROL

ROL
MOV

MOV
MOV
RTS

JSR PC.RN

RO,=-(SP)

SEED1
RO
RO
SEED1.RO

ADD

000034

000016

MoV

MOV

'RANDOM® =~WORD CONTAINING RANDOM T6-BIT INTEGER VALUE

SEED3.R0O

SEED3,RO
RO
RO
RO,SEED3

SEED2,RANDOM
(SP)+,R0

000000
001233
007622

SEED1:: WORD
SEED2:: .WORD
SEED3:: .WORD

O
1233
7622

000002

RANDOM:: .WORD

;SAVE NEW R.N.

(ZMLBBO PERFORMANCE EXERCISER
"RANDOM NUMBER GENERATOR®

MACRO M1113

29-MAR-82 13:41

[}

SEQ 0040

6 :MLX3
g:
9
10 ;
11 .

25-Mar-1982
25-Mar-1982
MODULE MLX3 =
BEGIN

}% N

0001
000;
000.0

00041‘9‘

REQUIRE 'BLSMAC.REQ’:;

}‘s' ;

}232

XSBTTL 'REPORT CODING SECTION'

1497

EXTERNAL ROUTINE

16 :

17 ;
18 :
19 .

20 ;
21 ;

22
23
26
25
29
30
31

:
.
;
:

1498
1499
1500

1501
150%

150
1504
1505
1506

gg 005474

RETURN;
ENDRPT;

075234

g?
62 005500
22 005502
65

(7:?

LRPT:

.GLOBL

EOP

.SBTTL

LRPT REPORT CODING SECTION

JSR
RTS

PC,EOP
PC

1502
1498

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

004767

177766

SBTTL

L:fl;;:: JSR

:
104425
000207

(

EOP();

42
23

83
54

TOPS-20 Bliss=16 v2(21

PA:<NEALE>MLX3.8LI.1

BGNRPT:;

004767
000207

22:2
22:2

EOP: NOVALUE:

39 005466
2? 005472

PAGE 44

0 words

LSRPT REPORT CODING SECTION

PC.LRPY

25-Mar-1982 22:23:37
25-Mar-1982 22:21:30

REPORT CODING SECTION
TRAP
RTS

: Routine Size:

25
PC
& words

s Maximum stack depth per invocation:

0 words

1504

TOPS
PA:<

CZMLBBO PERFORMANCE EXE RCISER

LSRPT REPORT CODING SECTION
76 :MLX3

;2 :
77 :
78 ;

79 ;

80 ;
31 ;

1510
1511

!
!

!4+

84 .

1514

87 :

1517

90 ;
91 ;

gg :
97

}8} 005504

}g}g

1518
1519

1520
1521

1522

TEST TO SEE IF THEY WILL RESPOND.

123
124

THOSE THAT DON'T RESPOND ARE DROPPED.

BGNAUTO;
RETURN;

ENDAUTO;
LAUTO:

.SBTTL

RTS

LAUTO AUTODPROP SECTION

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

000207

TOPS=-20 Bliss-16 Vv2(212)

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

THIS FUNCTION IS AN INTEGRAL PART OF THE INITIALIZATION CODE ITSELF, AND

000207

004767
104461

:21:30

THEREFORE A SEPARATE AUTODROP SECTION IS REDUNDANT AND NOT PROVIDED.

}g; 005514

SEQ 0041

THIS SECTION IS OPTIONALLY EXECUTED IMMEDIATELY AFTER THE INITIALIZATION
CODE IF THE /ADR FLAG WAS SET.
THE INTENT IS TO EXAMINE THE UNITS UNDER

103
}816

115
119 005506
120 005512

25-Mar-19

XSBTTL 'AUTODROP SECTION'

1509

PAGE 45

ZS-nar-19gs Sg 3:57

1507
1508

}g}g

88 .
89 ;

29-MAR-B2 13:41

AUTODROP SECTION

gg H

gz :

MACRO M1113

177772

.SBTTL
LSAUTO: : JSR
TRAP

RTS

1506

1520

0 words

LSAUTO AUTODROP SECTION
PC,LAUTO
61

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

0 words

CIMLBBO PERFORMANCE EXERCISER

LSAUTO AUTODROP SECTION
130 .mLx3

}g; ;
133
13
135
136
137

.
.
;
.

MACRO M1113

29-MAR~82 13:41

=
0
PAGE 46

SEQ 0042
25-Mar-1982 22:53:37

DROP UNIT SECTION

25-Mar-1982 22:21:30

1523
1524
1525
1556
1527

ZXSBTTL °'DROP UNIT SECTION'

}29 H

}gg?

(1) SET THE DRIVE STATUS TO INACTIVE AND SET THE DRIVE'S DROP FLAG.

}2% :

}gg%

(2) DECREMENT THE NUMBER OF ACTIVE DRIVES, AND IF ZERO ABORT PASS.

1464
145
146
147
148
149
150
151
152
153
154
155

1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545

138 :
;
;
;
;
;
;
.
;
;
.
;
.

}gg :

}gzg

1548
1549
1550
1551
1552
1553
15564
1555

168
169 ;

1558
1559

N
172 :

};2 H

175 ;

}ggg

B8GNDU;
'+
! DELCARE THE EXTERNAL SUMMARY REPORT CODE
| DATA STORAGE LOCATIONS TO THIS SECTION
!~

EXTERNAL
LSLUN,
DRIVE_STATUS:BiTVECTORLS].
DROPT DRIVES:BITVECTOR[S8],

!DEFINES NUMBER OF WT'S ATTACHED
‘DRIVE STATUS FLAG REGISTER
'DRIVE DROP STATUS FLAG REGISTER

LITERAL
INACTIVE = 0,
ACTIVE = 1;

!CODE TO DESELECT WuT'S
!CODE TO SELECT wr's

M_DRIVES:

}gg{

1565

1566

'INDICATES THE NUMBER OF ATTACHED UUT'S TO TEST

!+
! THIS SECTION IS CALLED FOR THE PURPOSE OF

: DROPPING THIS UUT FROM FURTHER TESTING.

! THEREFORE CLEAR THIS UUT'S DRIVE ACTIVE FLAG BIT
! AND SET THIS WUT'S DRIVE DROPPED FLAG.

138 1562

176 ;

177 :

e+
!
THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DRIVE TO NO
!
LONGER BE TESTED.
WHEN THIS HAPPENS, THE FOLLOWING ACTIONS WILL BE

1355 i TAKEN:

158 ;
159 ;
160 ;
161 ;
162 ;
163
164 ;
165 ;

;29 :

DRIVE_STATUSL.LSLUN] = INACTIVE;

DROPT_DRIVESL.LSLUN] = ACTIVE;

fCLEAR THE DRIVE ACTIVE FLAG

ISET THE DRIVES DROPPED FLAG

! DECRIMENT THE GLOBAL VARIABLE

'NUM DRIVES®' WHICH

;I;g :

1567

]ggg

! STORES THE NUMBER OF UUT'S WHICH ARE TESTED BY THIS

180 .
181 ;
18% :

1570
1571
157%

! IF _THE NUMBER OF DRIVES REMAINING TO TEST IS ZERO
! THEN CALL THE CLEAN UP CODE SECTION AND EXIT THIS
! PROGRAM ELSE CONTINUE TESTING THE REMAINING ACTIVE

185 ;MLx3
186 ;

TOPS-20 Bliss=-16 v2(212)

PA:<NEALE>MLX3.B8L].1 (3)

: EXERCISER.

DROP UNIT SECTION

25-"ar-1985 22:%3:37
25~Mar-1982 22:21:30

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX3.8LI.1 (3)

CZMLBBO PERFORMANCE EXERCISER

LSAUTO AUTODROP SECTION
187

188 ;

}893 :

191 ;

%35 :

194 :

SRIS28R

195 ;

NINIAININ

;

1575

g;g

MACRO M1113

29-MAR-82 13:41

PAGE 46-1

SEQ 0043

NUM_DRIVES = .NUM_DRIVES - 1;

'DECRIMENT THE NUMBER OF DRIVES REMAINING TO TEST

}g;g

'DO CLEAN UP CODE AND EXIT PROG IF ZERO

1581

RETURN;

1583

ENDDU;

1578

158%

.NUM_DRIVES EQL O THEN

DOCLN;

.GLOBL
.GLOBL

LSLUN, DRIVE.STATUS, DROPT.DRIVES
NUM.DRIVES

.SBTTL

LDU DROP UNIT SECTION

~ OO

2SS

CE E XERCISER
TION

[«

(- ¥ X NT.N

R SN
o~

Lot ©

533 005626

-t

338
AN gesesssssssssssssens
$
A

(ZMLBBO PER
LOU DROP

016700

174352

MACRO M1113

29-MAR-82 13:41

PAGE &7
SEQ 0044

LDU:

034442
1746332
177770
000001
177034
174310

MOV
ASR
ASR
ASR
ADD
MoV
MoV
BIC
MOV
CLR

JSR

fovV
ASR
ASR
ASR
ADD

034444
1746270
127770

MoV

000001

176772
026630

000016

LSLUN,RO
RO
RO
RO

#DRIVE.STATUS,RO

fg'“(spzsp)

0159§?o (SP)

2, -(sPS

-(SP)
PC.BLSPUR

LSLUN,RO

177652

1563

RO
RO
RO

#DROPT .DRIVES RO

RO, (SP)
LSLUN, ~ (SP)

#1777%0,(SP)
M ,-($2)
(SP) ,~(SP)

PC,BLSPU2
?gn.oaxvss

18:

ADD
RTS

LSDU::

LSDU DROP UNIT SECTION
;S.LDU

RTS

: Routine Size:
-

1522

.SBTTL
JSR
TRAP

1576
1579

&4
216,5P

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

257 005640
258 005644
259 005646

1562

& words
Maximum stack depth per invocation:

7 words

1581

0 words

(ZMLBBO PERFORMANCE EXERCISER

LSDU DROP UNIT SECTION

270 ;MLX3

g;} :
273
274
275
276

MACRO M1113

29-MAR-82 13:41

PAGE 48

SEQ 0045

55-"0r-19gs 35:5%?;5

ADD UNIT SECTION

5-Mar-19

.
;
;
:

1584
1585
1586
1587

XSBYTL 'ADD UNIT SECTION'

78 ;
279 ;
280 ;
281 ;
282 ;
283 ;
284 ;
285
286 :

1589
1590
1591
1592
1593
1594
1595
1596
1597

!
TO THE TEST CYCLE.
SINCE THE INITIALIZATION CODE WILL MAVE
!
710 BE EXECUTED IMMEDIATELY AFTER AN 'ADD',
THERE IS NO NEED
!
FOR ANY CODE IN THIS SECTION.
==

277 ;

287

;

291
292
%39 (05650

1588

1598

000207

T0PS-20 Bliss=16 V2(212;

PA:<NEALE>MLX3.BLI.1 (4

!4+
!
THE ADD UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES

710 BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK

BGNAU;
RETURN;
ENDAU;

LAU:

.SBTTL
RTS

LAU ADD UNIT SECTION
PC

1583

(ZMLBBO PERFORMANCE EXERCISER
LAU ADD UNIT SECTION

MACRO M1113

299
300
305
31

315 005652
316 005656
g}g 005660

319

gsg

H 4
PAGE 49

SEQ 0046
; Routine Size:
1 word
,
H Maximum stack depth per invocation:

004767
104452
000207

177772

%%g :

.SBTTL

JSR
TRAP
RTS

END

ELUDOM

0 words

LSAU ADD UNIT SECTION

PC,LAU

1596|

PC
& words

; Maximum stack depth per invocation:

ADD UNIT SECTION
1600
1601
1602
1603

LSAU::

; Routine Size:

1599

326 :mLx3
329 ;
330 .
331 ;
2

29-MAR-82 13:41

0 words

25-Mar-1982 22:23:37

25-Mar-1982 22:21:30

TOPS-20 Bliss=-16 v2(212)

PA:<NEALE>MLX3.8LI.1

(4)

(ZMLBBO PERFOR:

LSAU ADD UNIT

MACRO M1113 29-MAR-82 13:41 PAGE gO

; OTS external references
.GLOBL

BLSPU2

PNPN T
LR PR PR PN

WA~ OO

AARARRRRRRRRY

338
339
340

XERCISER

1604
16

Size:
62
+ () data words
Run Time:
00:
Elapsed Time: 00:05.2
{ Used:
26 pages
Compilation Comnlete

SEQ 0047

CIMLBBO PERFORMANCE E XERCISER
LSAU ADD UNIT SECTION

MACRO M1113

29-MAR-82 13:41

J_
4
PAGE 53

SEQ 0048

6 :MLX4

27-Mar-1982 19:24:42

g :
9 ;
10 ;
11 ;
12 :
13 ;

15 :

16 :
17 ;
}g :

27-Mar-1982 19:53:44
0001
0002
0003
0004
0005

0006

0007

0008
0009
?(5)88

20 MLX4

55 :

23 :
264 ;
2s :
26 ;

MODULE MLX4 =
BEGIN
!
| PERTTY BLF COMMANDS
|
| <BLF/NOERRORS>

!<BLF/LOWERCASE_KEY>

require 'BLSMAC.REQ;

VARIABLES AND CONSTANTS
1501
1502
1503
1506

}ggg

29 :
30 ;

1507
1508

}g%

32 :

};}1

! OTHER LITERIAL DEFINITIONS

35 :

151%

40 ;
4 ;

1518
1519

36
37
38
39

;
:
:
:

2% :
o ;

45 ;
46 ;
47 ;
48 :
49 :

2‘1) ::
52 :
53
54 -

1514
1515
1516
1517

;gsg
1522

1523
1524
1525
1526
1527

;gzg
1s§o
1531
1532

1533

56 :

1534

58 :

1536

57 :

59 :

60 :

61 ;

62 :

1535

1537

1538

1539

1540

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS-20 Bliss-16 Vv2(212)

PA:<NEALE>MLX4.BLI.S (2)

Zsbttl 'VARIABLES AND CONSTANTS®
|
Lliteratl
!

% :

g; :

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>MLX4.BLI.S (1)

! VER CIMLBB ADDED LITERIAL TRUE. FALSE AND ZERO
2ERO = %0'000000°,
TRUE = 1

FALSE = 0.

ONE = 1

SIX = 6,
NUM_PATS = 10,
NUM_REGS = 22,
TIMES T _5009 z 2,

BUFSIZ ="256+L,
1256 = NUMBER OF WORDS IN A SECTOR

8 = NUMBER OF SECTORS IN THE BUFFER

ML11 DRIVE TYPES:

i
ML11A = 20°000110°,
ML118 = 20°000111°,
!
!
FUNCTION CODES:

r';nv CLR = %0°'11
%0°'11°,
we_tMD == %0°51°,
WRZCMD = %0°'61°.
RDZCMD = %0'71°,

[

STATUS CODES:

INACTIVE = 0,

ACTIVE = 1,

ERROR THRESHOLD VALUES:

'DEFINE ZERO DATA
'LOGICAL TRUE INDICATOR

'LOGICAL FALSE INDICATOR

!NUMBER OF TIMES TO RETRY FOR DATA ERROR

!NUMBER OF TIMES TO RETRY FOR SYSTEM ERROR
!NUMBER OF REGULAR PATTERNS
'NUMBER OF ML11 REGISTERS
ssoop READING CONSTANT
12048 16-BIT WORDS IN A FULL BUFFER

'16K CHIPS
164K CHIPS

CZMLBBO PERFORMANCE E XERCISER

LSAU ADD UNIT SECTION

63 .
6
65

1541
154%
154

MACRO M1113

S16K_LIMIT = 10,
HI16K_LIMIT = 10,
S64K_LIMIT = 10,

}gzg

HO4K_LIMIT = 10,

68
69 ;
70 ;

1546
1547
1348

!
!
!

;
;
;
;

1549
1550
1551
1552

K_
4
PAGE 53-1

SEQ 0049

29 :

71
722
73
7

29-MAR-82 13:41

!SOFT
{HARD
:SOFT
;HARD

ERROR,
ERROR,
ERROR,
ERROR,

SUMMARY OF ERROR CODES:

! THE *INTEGRITY® ROUTINE:
!
!WRITE COMMAND:
!ERRDF (1,MSG1,0);
!#*xe INTEGRITY ROUTINE ERROR 01 waws

16K ARRAYS
16K ARRAYS
64K ARRAYS
64K ARRAYS

CIMLBBO PERFORMAN CE EXERCISER
LSAU ADD UNIT SEC TION

sMLX4

1555
1556
1557
1558
1559
1560

) cavd

CD#DOD‘UO‘UMEWNNO—iC>¢ND"UO\UMFWNNJ-*C£305‘Ugiknsahflv

d b wnd Wb b el e wd wnd and wd vud b b and e cad cndh
b wnd wud cond cndh ved @l S

57°""°19
7-Mar-19

'ERRDF
TERRDF

(2,MSG1,0);
(3,MSG1.0);
iREAD COMMAND:
iERRDF (4,MSG1,0);
'ERRDF (5,MSG1.0);
TERRDF (6,MSG1.0);
TERRDF (7,MSG1,0);
iERRDF (8,MSG2,0);

'es«x INTEGRITY ROUTINE ERROR 8§
isene INTEGRITY ROUTINE ERROR

!wexe
iexee
insee
isxex
iewes

INTEGRITY
INTEGRITY
INTEGRITY
INTEGRITY
INTEGRITY

ROUTINE
ROUTINE
ROUTINE
ROUTINE
ROUTINE

ERROR
ERROR
ERROR
ERROR
ERROR

04
05

8 1983144
LA 2L
(i1

LA 24

LAl d]
LAl d]
LA 4]

g L A2 2]

i ERRMRD (9,MSG4,05: iewee INTEGRITY ROUTINE ERROR
LA 2]
iER
T (§0,MSG3,0
RSO
); isnee
F INTEGRITY ROUTINE ERROR 18 g

1564
1565
1566
1567
1568

IWRITE CHECK COMMAND:
TERRDF (12,MSG1,0);
!«xew
'ERRDF (13,MSG1,0):
i=xee
'ERRDF (14,MS61,0):
iwsxes
'ERRDF (15,MSG2,0):
iexex

TERRSOF T(11,MSG3,1) ; i axax INTEGRITY ROUTINE ERROR 1
INTEGRITY
INTEGRITY
INTEGRITY
INTEGRITY

ROUTINE
ROUTINE
ROUTINE
ROUTINE

ERROR
ERROR
ERROR
ERROR

15
1
14
15

1569
1570

i ERRHRD
(16 ,MSG4,03; ivxexs INTEGRITY ROUTINE ERROR 16
IERRSOFT(17,MSG3,8)
; i#nse INTEGRITY ROUTINE ERROR 17

1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
158%

i OPTION 1:
i
iWRITE COMMAND:
'ERRDF (101,MSG1,0);
TERRDF (102.M5G1.0):
'ERRDF (103,M5G1,0);
iCHECK OR READ:
'ERRDF (104,M561,0);
TERRDF (105.M561.0):
'ERRDF (106,MSG1,0);
'ERRDF (107,MS61,0);
'ERRDF (108,MSG2,0):

!sex« OPTION
ixaxx OPTION
ixxxx OPTION
iswxx OPTION
inxas OPTION

'ERRSOFT(111,MSG3,0);

ixxx« OPTION 1 ERROR 1] weae

};;5

SEQ 0050

1561
1562

1563

WAINININNNINNNIN
b b d b b b ek ek b = OO OO OO

VARIABLES AND CONSTANTS

1553
1554

101

MACRD M1113 29-MAR-82 13:41 PAGE gk

IERRSOF T(18,MSG3,1); i=exs INTEGRITY ROUTINE ERROR 18

!s*+x OPTION 1 ERROR 01 #wwe
isxsxx OPTION 1 ERROR 02 sxw«
ixaxx OPTION 1 ERROR 03 swwx

1
1
1
1
1

ERROR 04
ERROR 05
ERROR 08
ERROR 07
ERROR 08

#aws
aaww
t#w
s#ss
s#s

1585
1586

ERRHRD (109 ,MSG4 03: Ixvex GPTION 1 ERROR 09 s
TERRSOFT(110,MSGS,03; ivesx OPTION 1 ERROR 10 #was

1589
1590
1591
1592

! OPTION 2:
i
iWRITE COMMAND:
YERRDF (201,M5G1,0);

159%
1595
1596
1597
1598
1599
1600

IERRDF (203,MSG1.0):
iCHECK OR READ:
'ER
(204RDF
,MSG1,0);
'ERRDF (205,M5G1.,0):
'ERRDF (206,M5G1,0):
'ERRDF (207,MSG1,0):
'ERRDF (208 ,MSG2,0):

}ggg

1593

1601
1602
1603
1604

{ERRDF (202.MSG1,0):

!+wex OPTION 2 ERROR 07 swwne
ixexx OPTION 2 ERROR 02 #t#+

ixxtx OPTION 2 ERROR 03 twes

!s*x*%
isxxxx
isxxxx
iswxes
ixxxx

OPTION 2 ERROR
OPTION 2 ERROR
OPTION 2 ERROR
OPTION 2 ERROR
OPTION 2 ERROR

04
05
06
07
08

sxws
ttws
#xe
wess
#ets

IERRMRD (209 ,MSG4 05: ixxse OPTION 2 ERROR 09 teas
TERRSOFT(210,MS63,03; iaxee OPTION 2 ERROR 10 s+
'ERRSOFT(211,MSG3,1):
iLOOP CHECK OR READ:

isxxx« OPTION 2 ERROR 10 avax

TOPS~20 Bliss=-16 v2(21

PA:<NEALE>MLXS.BL]I.S (

29-MAR-B2 13:41

PAGE 55

o
o
o
e

fannn
fnany
Tannn
Ienan

fntnyn
Iwnn

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR
£
E

B NN -2 OO G0 O N

AR
N

L2
2 24

L 2 2 24

ANk
LA id
L3
2 4
12221
wkAN

g OPTION 3 3:
IWRITE COMMAND
:

i ERRDF (301,M561,0);
1 ERRDF (302.MSG1.0):
i ERRDF (303.M5G1.0)
iCHECK OR READ:

i ERRDF (304 ,MSG1.
M) ;
iERRDF (305.MSG1.0,
iERRDF (306.MSG1.0)
P ERRDF (307.MSG1.0)
i ERRDF (308 MSG2.0);

1ERRHRD (309 ,MSG4 ,0) ;
TERRSOFT(310,M565.03;

{ERR
T (311.M5
SO
63.0);
F

Innnw
Ixenw
fhnnn

fnnnn
Innnn

K121
fannn
Iennw
Innnn
Ianan
tannn

CPTION 3 ERROR

L2
2 4]

OPTIO N 3 ERROR
OPTION ¥ ERROR
OPTION
OPTION
OPTION
OPTION

OPTION
OFTION
OPTION
OPTION

L2
2 2]

L2
8 2]

3 ERROR
3 ERROR
3 ERROR
3 ERROR
3 ERROR
3 ERROR
3 ERROR
3 ERROR

1 2.2 2]
L2244

AN
R

1 2.4 2
L2424
L1 A2

L3111
]
kN

1ERRHRD (409, MsG4 .03 ;
TERRSOFT(410,M563.03;

iERRSOFT(411.MS63.0)
IWRITE COMP:
iERRDF (412.MS61,0) ;
iERRDF (413.M561.0)
iE(414
RR
.MSG1.
DF
0)
!

fannn

Innen
fannw
1242117

fexen
Innns
fnann
Innne
Fanswn
faenn
Ixanw

DOWN:

READ COMP:
S61.0);
S 61.0);
S 61.0);
MSG1,0);

Inaxn
fannn
Taansn
Tannn

fannn
Tanawn
tnenw

mmm
P
0

IMARCHING UP:
iWRITE DATA:
i ERRDF (401,MSG1,0);
1 ERRDF (402,M561.0);
i ERRDF (403.MSG1.0):
iMARCHING UP:
iCHECK OR READ DATA:
i ERRDF (404 ,MSG1,0);
i ERRDF (405.MSG1.0)
1 ERRDF
(406.MSG1.0)
iERRDF (407.M5G1.0);
i ERRDF (408.MS562.0);

LaF
o

§ OPTION 4:

22°

R R R R Ry
OB NN~ O DD NN S LN =O

KX AR
wvivAawL AL

iERRDF 215 (215.MSG1.0):
iERRDF 216 (216.M5G2.0)+
{ERRHRD (21
(217 ,MsG4
.05 :
T(2
TERRSOFT(218
.M563.05;
|ERRSOF T(
T 2 (219,M5630)}

faenw
fannn

222 2229LEPL?

e e

e emch

ad i

wnd ook

b b i e v

O 00 NONN I NN =2 © O 08 O

ek nd d d o mad o e e omd

ONONOONONONO oo oonoONONONO Lo alepnleple
Yo Yo To Yo Yo Xo oo
NN
N NN NN W NN ok e o b
e o
=000
000 NOMNMS
NN =2O

i e med s
e
e
e
e
i e
b e
e md
o e

'ERRDF (212,M561,0) ;
ERRDF 213 (213.M5G1.0)
i ERRDF(214
214 .MS61.0)

OONN
NN

7-Mar-19 B2 19:24:
7-Mar=-19 82 19:23:4

VARIABLES AND CONSTANTS

o el el e

000,
v
Ve ws
LN
u,
.,

O S A I S

MACRO M1113

SEQ 0051

OOONONONONON

ORI

78
79

XERCISER

SMLX4

LER PR YR TR TR FR FE TR T T T T WAL WAE WY WY YA YO YA ST S SPar i e
o LI P TR W TRR R S S

OO O WAV
\AJ\#NbJ‘C‘bNbJ\“@WNLNUNNLNUflN
IIININNITRIRSR O
lNflPdChOGPNONfi@WNNfi“CMOGPMOWHé&NRfi‘ChOGPNOth@Jc

e
D S S G O S SN

(ZMLBBO PERFORMAN
LSAU ADD UNIT SEC

wann
AR
ARAY

1222
ARER

(2 24

TRAN
12224

ARER
L3544

L2l
KRR

LA %2
L2244

ERROR
ERROR
ERROR

ERROR

RN
AWER

L2 22
L L 421

TOPS~20 Bliss=16 v2(21

PA:<NEALE>MLX4.BL!.5 (

(ZMLBBO PERFORMANCE E XERCISER
LSAU ADD UNIT SECTION

188 ;MLX4

}gg ;
191

;

192 :
193 :

1657

1658
1659

}gg?

196 :

1662

198 :

1664

200

201 :

202 :
203 :
204
205
206 :
207 :

533 :

210 :

211 :

29-MAR-82 13:41

SEQ 0052

1663

1687

1667

1668
1669
1670
1671
1672
1673

}2;‘;

1676

1677

'ERRDF (419 ,MSG2,0);

!###x OPTION 4 ERROR 23 twxw#

i ERRDF (425.MSG1.,0):

isxwx OPTION 4 ERROR 25 s«ww

ERRDF (426,M5G1,0);

!s*x+ OPTION 4 ERROR 26 s+

(MBCHING OE: A

iERRDF (427.MSG1.0):
TERRDF (428.MSG1.0):
TERRDF (429.MSG1.0):
iERRDF (430,MSG2,0):
ERRHRD (431 ,MSG4,03;
iERRSO
T (432,M5G5,
F
03;

' OPTION §S:

ERRDF (5102.M5G1.0):

1684

iasxx OPTION 4 ERROR 27 swaw
Isxax OPTION 4 ERROR 28 s##
inext OPTION 4 ERROR 29 nxas
!#xxx OPTION 4 ERROR 30 weww
ixwwe OPTION 4 ERROR 31 nwws
isxexs OPTION 4 ERROR 32 ##w+

1681

218 ;

inxes OPTION 4 ERROR 24 twaw

i ERRSOF T (433 JMSG3.0): isxxx OPTION 4 ERROR 33 wxaw

215 ¢

}ggg

!sst* OPTION 4 ERROR 19 s

ERRDF (423,M5G1,0):

'snaomg JM5G1.0):

TuRDAD omouTNE:

1680

27-Mar-1982 19:23:44

:55??3'5}‘7’52JMSG3.0): inexx QOPTION 4 ERROR 22 weww

1679

5}9 :

27-Mar-1982 19:2¢:42

iERRHRD (420,MSG4 ,05;
ixens OPTION 4 ERROR 20 #a#+
ERRSOFT(421.MSG$,03; ixves OPTION 4 ERROR 21 #asw

518 :

214 -

N
&
PAGE 56

VARIABLES AND CONSTANTS

;gg ;
197 *

MACRO M1113

TERRDF {5101,MSG1,0);

!s*x* OPTION 5., RAND1 mon

355‘2%;(3‘1‘03&2361J0):

iseex OPTION 5. RAND1 mon 03

'ERRDF (5104 ,MSG1,0);

ieex+ OPTION 5. RAND1
E

1 eaen

; txnn

snen

!wesx OPTION 5, RAND1 ERROR 04 ewes

219 &
220 ;
221 ;
222 ;

1685
1686
1687
1688

204
225 :

1690
1691

TIERRSOFT(5110,MS65,05; ieens OPTION 5. RAND! ERROR 10 tete
!eaasorrcsnnsss 0): inans OPTION 5. RANDT ERROR 11 wene

1694

veanor(szm UMSG1.0);

}239

;Efinons
0 nsm :

lawax OPTION

5. RANDZ

cRROR 03 wwee

1698

VERRDF ( 04 nsm 0);

!exax OPTION

5, RAND2

ERROR 04

223 :

228 :

229 5

egg.-

233 ¢

3% ;
236 :
237 ;
238 :
239 ;
32? :
262 ¢
235 :

1689

1695

1699

1700
1.01
1702
1703
1704
1705
};89
1708

'ERRDF (5105,MSG1.0):
TERRDF (5106,MSG1.0);
iERRDF (5107.MS61.0):
TERRDF (5108, MSG2,0);

ixxex OPTION 5. RAND1
iwwes OPTION 5. RAND1
ixeax OPTION 5. RAND1
i+wxx OPTION 5. RAND]

ERROR 05 veaw
ERROR 06 wewe
ERROR 07 weew
ERROR 08 vtew

1ERRHRD (5109 ,M564,0); 1xvae OPTION ? RAND1 ERROR 09 wewe

1| ERRDF (sgg.nsm
20):

ERRDF

(5205.M561.0):

!essx OPTION 5, RAND2 ERROR

01 e

isaen OPTION ; mg ERROR §§ xree

iewer OPTION § RANDZ ERROR 05 wres
vt

iERRDF (5 86MSG1.0): isxee OPTION 5. RANDS ERROR 06
TERRDF
(5007.MS61.0);
!avee OPTION 5. RANDS ERROR 07 #ewe
iERRDF (5 3 MSG2,0): inexe
OPTION E RANDZ ERROR 08 xene
i ERRHRD (
MSG4,05: innar OPTION 5. RANDS ERROR 09 sese
'snnsomi 16nsgoS.- ixesx OPTION g RANDS ERROR ? rene
'ERRSOF!(S
.0)- issen OPTION + RANDZ ERROR 17 waan
aourins
'smng 01, G1 0); !wexe OPTION 5, RAND3 ERROR 01 sese

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (2)

(ZMLBBO PERFORMANCE CE E XERCISER

LSAU ADD UNIT SECTI

244 ;MLXG

522 :

HMACRO M1113

29-MAR-82 13:41

1709

'ERRDF (5302,MSG1,0);

249

1711

iCHECK OR READ:

250 :
251

252
253

256 :

255 ;
256 -

27-Mar-1982 19:24:42

VARIABLES AND CONSTANTS

67 ;

248 *

PAGE 57

1710

TERRDF (5303,M5G1.0):

1712

{ERR
(5304 ,MSG1,0);
DF

1714
1715

ERRDF (5306.MSG1,0):
'ERRDF (5307.M561.0);

1713

'ERRDF (5305.MSG1,0);

1716

1217
1718

27-Mar-1982 19:23:44

issex OPTION 5. RAND3 ERROR 03 sewe

'eexe OPTION 5, RAND3 ERROR 04 #wae

ixxex OPTION 5. RAND3 ERROR 05 #ssw

iexss OPTION 5. RANDS ERROR 06 sw#s
iwexs OPTION 5. RANDS ERROR 07 #ese

'ERRDF (5308,MSG2,0);:

iwsxx+ OPTION 5. RANDS E"ROR 08 #we+

isean OPTION 5. RANDS ERROR 11 #ews

| ERRHRD (5309,MSG4 ,05:
iwexs OPTION 5. RAND3 EAROR 09 exes
iERRSOFT(5310,M568,05: inene OPTION 5. RANDX ERROR 10 wewr

1719

VERRSOFT(5311,MSG3.0):

259 :
260 :
261 :
262 :
263 ;
264 :
265 266 :
267 :
268 :

1721
1722
1723
1724
1725
1726
1727
1728
1729
1730

IWRITE COMMAND:
'ERRDF (5401,M5G1,0);
'ERRDF (5402.MSG1.0);
'ERRDF (5403,.MSG1,0):
iCHECK OR READ:
ERR
(5404 ,MSG1,0);
DF
'ERRDF (5405,MS61,0):
'ERRDF (5406,M561,0);:
'ERRDF (5407.MS61,0):
'ERRDF (5408 MSG2,0);

!=exx
isean
waxx
iwean
isex«

'ERRSOF T(5411,MS63,0);

ivaxs OPTION 5. RAND4 ERROR 11 exee

269 :
270 :

5;% :

273

TOPS-20 Bliss=-16 V2(212)

PA:<NEALE>MLX4.BLI.S (2)

!sxxs OPTION 5. RAND3 ERROR 02 sew+

257

258

SEQ 0053

1720

i VRANDG* ROUTINE:

1731
1732

'+x%w OPTION 5, RAND4 ERROR 01 waww
iwesxx OPTION 5. RAND4 ERROR 02 w###
isxxe OPTION 5. RAND4 ERROR 03 wes
OPTION
OPTION
OPTION
OPTION
OPTION

5,
5.
5.
5.
5.

RAND4 ERROR 04 wase
RAND4 ERROR 05 #w#«

RAND4 ERROR 06 #ve#
RAND4 ERROR 07 seew

RAND4 ERROR 08 #w#s

TERRHRD (5409 MSG4L,0); iseae OPTION 5. RAND4 ERROR 09 sexs
TERRSOFT(5410,MSG5,05; iewee OPTION 5. RANDG ERROR 10 swew

;;;2

1735

i CODES FOR WHY A UNIT WAS DROPPED:

7%
275 ;

1736
1737

i
CODE_1 = 1,

!DRIVE NOT POWERED LP

7 ;
278 :

1739
1740

CODE-3 = 3.
CODETM% = &,

IOPERATOR SET TEST LIMITS INCORRECTLY
'FAILED ALL RETRIES FOR A NON-FATAL ERROR

276 -

279 ;
280 :
281 :
282

1738

CODE=2 = 2.

1741
1742
1743
1744
1745
1746
1747
1748

!
| FIELD DECLARTIONS
|

288 .
289 :

1750
1751

field
!

292 :

1754

2% :
295 :
296 :

1756
1757
1758

283 :
284 ;
285 :
286 :

287 :

ggg :

293 -

297 ;
298 -

1749

;;gg

1755

1759
1760

CODE-S = 5.
CODETM6 = 6.
CODE=7 = 7.
CODE_8 = 8:

IDRIVE NOT AN MLT1 UNIT

ICONTROLLER FATAL ERROR
IDRIVE FATAL ERROR
TECC HARD ERROR
'ECC LOGIC FAILED TO DETECT ERROR

! VER CZMLBB ADD FIELD DECLARATION
FIELD DECLARATION TO MAP THE SINGLE BIT

| ERROR LOG TABLE.
SBE_TBL_MAP =
set

BNKS_SBE = [0, 0, 2. 01,
BRD$_SBE = [0, 2. 4. 03.

'LOG BANK OF SBE
iLOG BOARD OF SBE

CIMLBBO PERFORMANCE E XERCISER

LSAU ADD UNIT SECTION

300 .mLxé

338‘]! H
303 .

304
305 ;
306 :

3207 ;

308 :

MACRO M1113

29-MAR-82 13:41

PAGE 58 ~
27~Mar-1982 19:24:42

VARIABLES AND CONSTANTS
1761

BITS SBE = [0,

1762
1763
1764

27-Mar-1982 19:23:44

7. 0]

UNITS SBe = [0, 13,73, 62.
sums 3BE = [1, 0 i6 01,
wRDS_0 = [0, 0. 6. 03.

1765

1766

SEQ 0054

WwRDS 1 = (1, 0, 16, 0]

tes,

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>MLX4.BLI.S (2)

'LOG BIT OF SBE

iL0G UNIT OF SBE
'LOG NUMBER OF TIMES OCCURING
TACCESS FIRST WORD OF TABLE
fACCESS SECOND WORD OF TABE

309 ;

1767

};gg

: VER CZMLBB ADDED FIELD DECLARATION

312 :
313 .
314 ;
315 :
316 ;
317 ;
318 ;

319
320 :
321 :
322 :
323 .
324 :
325 ;
326 ;
327 ;
328 :
329 ;
330 .
gg; H

1770
1771
1772
1773
1774
1775
1776
1777
1778
17279
1780
1781
1782
1783
1784
1785
1786
1787
1788
};gg

! FIELD DECLARATION FOR PROM MAINTENANCE
! SUM TABLE
!
PM_SBE_MAP =
set
PM_SBES_Sum = [0, 16, 0]
tes,
!
! FIELD DECLARATION FOR PATTERN TABLE
!
PATMAP =
set
COUNTT1 = [0, 0, 16, 0],
COUNT2 = [1, 0, 16, 0]
tes;

%gz H

};3}

: VER CZMLBB ADDED FOLLOWING THREE DATA DECLARATIONS

335 :

1793

179%
1795
}7739

SBE_LOG : blockvector [128, 2, word]l field (SBE TBL MAP)
!SBE LOCATION TABLE
PM SBE (NT : blockvector [8, 16, word] field (PM _SBE MAPS,
IARRAY SBE COUNT TALBE
SBES COUNT : word,
'COURTS RUMBER OF SBE LOCATION TABLE ENTRIES
QIT_M.
ISTORS FAILING SBE CHIP NUMBER

332(1) .

};33

: ML~-11 EXERCISER STORAGE ALLOCATION

342 ;
343 ;

1800
1801

WBUFF : vector [BUFSIZ) volatile,
RBUFF : vector [BUFSIZ) volatile,

g}? :

336 337 :
ggg H

344
345 .

1802
1803

347 :

1805

346

1804

own

!
! Single bit error logging and Prom Maint

: program storage structures

WPTR : volatile,
RPTR : volatile,

QUICK : volatile

1806

DATA_COUNT : volatile,

350 ;
351 ;

1808
1809

EOP_TOUNT : volatile,
BASE_ADDR,

352 .
353 ;

354 ;

1807

1810
181

1812

FIMPORTANT -~ WBUFF AND RBUFF MUST
!BE CONTIGUOUS AND IN THAT ORDER!!

PATTERN : volatile,

348 ;

349 ;

'ACCESS NUMBER OF SBE PER ARRAY

COMP_COUNT : volatile,

VEC,
BR_LEVEL

SOFTS : Glockvector (8, 161,

{COUNTS FOR 8 LUNS, 16 ARRAYS EACH

(IMLBBO PERFORMANCE CE € XERCISER
LSAU ADD UNIT SECTI ON

356 .mLx4
ggg 3
359 .
360 ;
361 ;
362
363 .
364 ;
365 :

366 ;

367
368 .
369 ;
370 :
371 ;
372 ;
373 .
374 ;
375 :

376 ;
377 ;
378 :

379 .

380 ;

381
382
383
384
385

1813
1814
1815
1816
1817
1818
1819

1820

1821
1822
1823
1824
1825
1826
1827
1828
1829

1830
1831
1832

1833

1834

1835
1836
1837
1838
1839

388
%gg :

1842
}gl‘oz

391 .
392 .
393 .

M 1845
1846
M 1847

ggg :
39%

ggg ;

399
400
401
402
403
404
405
406
407
408

.
;
;
;
;
;
;
;
;
;

409 ;
410 ;

29-MAR-82 13:41

PAGE

VARIABLES AND CONSTANTS

.
;
:
;
;

386 ;
387 ;

MACRO M1113

1840
1841

}gfig

1850

}gg;

M 1853
1854
1855
1856
1857
M 1858
1859
M 1860
1861
M 1862
1863
M 1864

SEQ 0055
27-Mar-1982 19:24:42
27-Mar-198? 19:23:44

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BL]I.S (2)

HARDS : blockvector [8, 16],
TRIES : blockvector [8, 16],
WR_COUNT,
WR_THCUSANDS,
WR_MILLIONS,
RD_COUNT,
RD_THOUSANDS
,

!COUNTS FOR 8 LUNS,
1COUNTS FOR 8 LUNS,
!# BYTES TRANSFERED
! THOUSANDS OF BYTES
!MILLIONS OF BYTES
'# BYTES TRANSFERED

WC_COUNT,
WC_THOUSANDS,
WC_MILLIONS,
1_AM _DONE,
RETRYING,
BOARD,
BANK;

!4 BYTES TRANSFERED VIA 'WRITE CHECK®

RD_MILLIONS,

16 ARRAYS EACH
16 ARRAYS EACH
VIA *WRITE'
VIA °'READ’

global
ML_REG : vector [NUM_REGS] volatile,
PTABLE_ADDR : vector [8] volatile,
DRIVE_STATUS : bitvector [8] volatile,
DROPT _DRIVES : bitvector [8) volatile,

WHY_DROPT : vector [8, bytel,

NUM_DRIVES,
LOW_SECT : vector [8] volatile,
TOP_SECT : vector [8] volatile;

EQUALS:

macro

[
: TO CALCULATE THE TEST RANGES FOR A PARTICULAR LOGICAL UNIT:

LOWEST =
.LOW_SECTL.LUNIX,
HIGHEST =

'.TOP_SECTL'.LWJZ.

!THE FIRST SECTOR TO TEST

!THE LAST SECTOR TO TEST

! ADDRESS IN MAIN MEMORY THAT CONTAINS THE PHYSICAL DRIVE

: NUMBER THAT CORRESPONDS TO A PARTICULAR LOGICAL UNIT:

DRIVE =
(.PTABLE_ADDRL.LUN] + 6)%.
!
!
ML-11 REGISTER NAMES:
!
MLCST =
.ML_REGLO]X,
ALWC =
.ML_REG[1]1%,
ALBA =
.ML_REG[2]X,
ALDA =

!CONTROL AND STATUS REGISTER 1
!WORD COUNT REGISTER
!UNIBUS ADDRESS REGISTER

{ZMLBBO PERFORMANCE E XERCISER
LSAU ADD UNIT SECTION

412 MLX4

‘}2 :
415 ;
46 ;
AN
418 ;
419 ;
620 ;
421

422 :

423 ;
&4

625
426
427
428

429
430
431
432
433

;
;
:
;

;
;
;
;
;

434 ;
435 ;
436 :
437 ;
438 ;
439 ;
440 ;
441 :
442 ;
443 ;
444 :
445 ;
446 ;
447 ;
448 ;
449 ;
450 ;
25} H

453 ;

454 ;
455 ;
456 ;
457

458 ;

459 ;
460 ;

461 ;
462
;

2(6:‘ ;

465 ;

466 ;

MACRO M1113

29-MAR-82 13:41

1865
m 1866
1867
" 1868
1869
n 1870
1871

.mL REGL31T,
MLCS?
=
.ML REG[OX
ALDS
.mL REG[SJX
RLER
.MU REGC61X.

1873
n 1274

.M REG[?J!
ALPA

1875
m 1876
1877
" 1878
1879
m 1880
1881
m 1882
1883
M 1884
1885

BLAS
=

e REG(BJ!
D8
=
.M _REGL9IX.
ALMR
=

AL REGUOJ:
RLDT
.mL REG(HJ!
ALSN
.mt REGUZJ:

ALET
.mL_REG[13]X,
m 1886
ALE2
=
1887
.M REG[MJ!
n 1888
ALDT =
1889
.M. _REGC151%,
M 1890
D2
=
1891
.M. _REGL16]X.
" 1892
MEE
=
1893
.mL REGU?J!
m 189
MEL
189
ML REG[‘IBJX
n 1896
ALPD
=
1897
m REG[1932
. 1898
MLBAE
=
1899
.M REG[ZOJ!
n 1900
ALCS3
=
}?’81 M REG[ZUZ

19o§
1904
1905
1909
190

n 1908

1909
M 1910

1911
n 191§

! BIT ASSIGNMENTS:

!
!
!
!

5
SEQ 0056

VARIABLES AND CONSTANTS

m 1872

PAGE 60

27-nar-19ag 19:26:42

27-Mar-1982 19:23:44

TOPS-20 BlLiss-16 v2<212)

PA:<NEALE>MLX4.BLI.S (2)

'DESIRED ADDRESS REGISTER
'CONTROL AND STATUS REGISTER 2

'DRIVE STATUS REGISTER
'ERROR REGISTER

'ATTENTION SUMMARY REGISTER

'PROM ADDRESS REGISTER
!DATA BUFFER REGISTER
'MAINTENANCE REGISTER

!DRIVE TYPE REGISTER
!SERIAL NUMBER REGISTER

'ECC REGISTER 1

'ECC REGISTER 2
!DATA DIAGNOSTIC REGISTER 1
'DATA DIAGNOSTIC REGISTER 2

1ECC ERROR REGISTER
'ECC ERROR LOCATION REGISTER
!PROM DATA REGISTER
!BUS ADDRESS EXTENSION REGISTER

{CONTROL AND STATUS REGISTER 3

MLCS1 BITS:

$C =

(H.CSl)dS 1>%.
TRE
=

(HI.CS1)<14 1>%.,
NCPE
=

ISPECIAL CONDITION
!'TRANSFER ERROR

" }8}‘

(HLSSI)(BJ0X,

IMASSBUS CONTROL BUS PARiITY ERROR

191§

(H.C$1)<11 1>,

'DRIVE AVAILABLE

M 1916

RDY

(/MBSO PERFORMANCE E XERCISER

LSAU ADD UNIT SECTION

29-MAR-82 13:41

PAGE 61

5
SEQ 0057

468 ;MLX4

298 M
471
472
473
474
2;2

MACRO M1113

VARIABLES AND CONSTANTS

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

;
;
;
:

1917
M 1918
1919
" 1920
}gg;

(78
479 ;
480 ;
481 ;
482 ;
483 ;
484
485 ;
486 ;

1924
n 1925
19%6
N 1927
1928
n 1929
1930
n 1931
193%

!
OLT =
(MLCS2)<15,1>%,
UCS =
(MLCS2)<14,1>%,
PE =
(MLCS2)<13,1>X,
NED =
(MLCS2)<12,. 1>,

1934

(MLCS2)<11,1>X,

INON=-EXISTENT MEMORY

1936
" 1937

(MLCS2)<10,1>X,
MXF =
(MLCS2)<9,1>X,
MOPE =
(MLCS2)<8,.1>%,
ORDY =
(MLCS2)<7,.1>X,
IRDY =
(MLCS2)<6,1>X,
CLR =

!PROGRAM ERROR

477

1923

487 ;

m 193

489 ;

m 1935

488 ;
490 ;
491 ;
492 ;
493 ;
494 ;
495 ;
496
497 :
498 .
499 .

1938
" 1939
19640
" 1941
1942
M 1943
1944
n 1945

501
502
503
504
505

;
;
.
:
;

M 1947
1948
n 1949
1950
n 1951

507 ;
508 ;
509 ;
510 :
511 ;
512 :
13 ;
514 ;
515 ;
516 .

1953
1954
1955
M 1956
1957
M 1958
1959
m 1960
1961
M 196‘§‘

518 .
519
520 ;
521 ;
522 ;

M 1964
1965
M 1966
1967
M 1968

500 ;

506 ;

517 ;

(MLCS1)<7,1>),
1€ =
(ML.CS1)<6,1>X,
FUNC =
‘(HLCS1)<0.6>!.
'

19$§

PGE =

196

(MLCS2)<5.1>X,

PAT =
(MLCS2)<6,1>%,
BAl =
(MLCS2)<3,1>X,
UNIT =

'READY
'INTERRUPT ENABLE

'FUNCTION (COMMAND) CODE AND GO BIT

MLCSZ2 B1TS:

NER =

1946

TC28-20 Bliss=-16 v2(12)

PA:<NEALE>MLX4.BLI.5 (2)

(MLCS2)<0,3>X.,

!
MLDS BITS:
'
ATA =
(M.DS)<15.,1>%,
ERR =
(MLDS)<14,1>%,
MOL =
(MLDS)<12,1>%,
LBT =

(MLDS)<10,1>%,

DPR =
(MLDS)<8,1>%,
PRY =
(MLDS)<7.1>X,
VW =

IDATA LATE
'WRITE CHECK ERROR

'PARITY ERROR
INON-EXISTENT DRIVE

IMISSED TRANSFER
!MASSBUS DATA BUS PARITY ERROR

10UTPUT READY

{INPUT READY

CONTROLLER CLEAR
'PARITY TEST

{UNIBUS ADDRESS INCREMENT INMIBIT

TUNIT SELECT

'ATTENTION ACTIVE

'ERROR SUMMARY
'MEDIUM ON LINE

'LAST BLOCK TRANSFERRED
!DRIVE PRESENT

!DRIVE READY

CIMLBBO PCRFORMANCE
EXERCISER
LSAU ADD UNIT SECTION

526 :MLXG

g 2 :
527
528
5‘2‘3
530
531
53%
533

MACRO M1113

29-MAR-82 13:41

6.5

PAGE 62

SEQ 00s#

VARIABLES AND CONSIANTS

27-Mar-1982 19:26:42

27-Mar-1982 19:23:44

;
:
;
:
:
.

1969
1970
1971
197%
n 197
1974
n 1975

535 .

M 1977

537
%89

M 1979
" }ggg

IAE
=
(&ER%(IOX,

540
541

1982
M 1983

(HLER)<9 1>X,
ECH

543

M 1985

545
546
547
548

M 1987
1988
M 1989
1990

CPAR
=
(HLER)<3 1%,
RMR
=
(HLER)<2 1>X,

'CONTROL PARITY ERROR

1992

(HLER)<1 1>X,

'ILLEGAL REGISTER

(HLER)(O 1>X,

TILLEGAL FUNCTION

534
536

542

S§44

1978

(HLER)(B 1>X,

'OPERATION INCOMPLETE

oPl
=

!ADDRESS OVERFLOW ERROR

(HLER)<6 1>,

YECC HARD ERROR

1986

(MLER)<S.1>X,

IDATA PARITY ERROR

553
554

1995
1996

1994

DPAR
=

ILR

ILF

1997

!
!

M 1998
1999
m 2000
2001

§Z =
(MLMR)<11,5>%,
ARR TYP =
(HLMRW 1%,

561
562

2003
M 2004

(HLM)<8.2>!
F_MAR
=

564

M 2006

566

M 2008

M 2002

'REGISTER MODIFICATION REFUSED

MLMR BITS:

556
557
558
559

563

INVALID ADDRESS ERROR

1984

M 1993

560

'DATA CHECK

'DRIVE UNSAFE

551

555

!
MLER BITS:
!
DeK
(HLER)<1S 1%,
UNS
=

'VOLUME VALID

(HLER)(M 1>%,

M 1991

552

(MLDS)<6,1>%,

1976

549

550

TRT
=

ISYSTEM SIZE (# ARRAY CARDS)
'ARRAY TYPE (0=16K:1=64K CHIPS)

'TRANSFER RATE

2005

(HLM)Z? 1>1

fREFRESH MARGIN

2007

(MLMR)<B.1>2,

PROM READ/WRITE

567
568 ;
569
570

2009
M 2010
2011
M 2012

(MLMR)<S,1>%,
DAT_CIK =
(M)?k 1>!
DAT

IPROM DISABLE

572
573 .

m 2014
2015

565

S71

PROM_RY =

PROM DIS =

2013

(HUR)Z} 1>!

574
575
576

M 2016
2017
M 2018

ECC_DIS =
(M)21 1>l
ECC

578

2020

5§77

201%

DCK
(MLMR)Z 1>!

TOPS=-20 Bliss~16 V2(212)

PA:<NEALE>MLX4.BLI.S (2)

(HLMRO 1>2

IDATA CLOCK

'DATA DIAGNOSTIC MODE
'DATA CHECK ENABLE
1ECC DISABLE

YECC DIAGNOSTIC MODE

(ZMLBBO PERFORMANCE £ XERCISER
LSAU ADD UNIT SECTI ON

OO N

v ek v

o wd

NN = O

605

619

29-MAR-82 13:41

H
5
PAGE 63

SEa 0059

SOOSSSSS
T T
Ny
&(T
A
A

VARIABLES AND CONSTANTS

NI
QO

e Ve B8 0485038030308 9Ve0e8g8,0W, e 0200800, % V02 Bs%0, 0, LRI NTY TN
PR TN PT POy W LT X LER TN PR TN PR PR TN Y

580 .MLX4

MACRO M1113

;

27-Har-198$ 19:54:42
27-Mar-1982 19:23:44

MLSN BITS:

SN3 =

(MLSN)<12,46>X,

'HIGH ORDER DECADE

(MLSN)<8,6>X,

!THIRD DECADE

(MLSN)
<4, 6>,

!SECOND DECADE

'<HLSN)<O.4>I.

!LOW ORDER DECADE

SN2 =

SN1 =

SNQ =

;

TOPS=20 Bliss=16 v2(212)

PA: <NEALE>MLX4.BLI.S (2)

MLEE BITS:

UNC
=

(HL§5)<15REY S

!UNCORRECTABLE ERROR

mes)m 1>,

!SINGLE ERROR

(HLEE)<13 1>X,

!CRC ERROR

CHAN
=
(MLEE) <6,6>%,

EFUN
=

(MLEE)<0,6>X;

!CHANNEL IN ERROR

!ERROR FUNCTION

extefnal

5HEADER INFORMATION:
srus21

LSUNIT,

LSLUN.

:ALL OF THE SOFTWARE P~TABLE LOCATIONS:

LIMIT,
RANGE,

LSECT,
TSECT,
ONLY,
DROPNE,
DROP1,

]

IRANDOM NUMBER GENERATION VALUES:

! VER CZMLBB EVENT FLAG TO TURN ON SBE TESTING

CZMLBBO PERFORMANCE E XERCISER

L$AU ADD UNIT SEC
636 :MLx4
g 7

639

640 ;
641 ;

6462
643

644 ;

645 ;

229 .

TION

2073

13:41

PAGF 64

2079

%8%?

651
652
653
654
655

2085
2086
2087
2088
2089

SEQ 0060
27-Mar-1982 19:%4:42
27-Mar=-1982 19:23:44

SEED3,

external routine

RN : novalue:;

'+
!

2084

!
!
!
!
'

'FOR 16-BIT RANDOM NUMBER 7FHERATION

THE PATTERN TABLE:

REGULAR

PATTERN

PATTERNS

ggg :

383?

NUMBER

THE TWO ASSOCIATED COUNTS

658 ;
659

2092
2093

!
!

1
2
3

0 NIBBLES OF DATA, 1024 NIBBLES OF CoMP
1 NIBBLE OF DATA,
1 NIBBLE OF COmMP

660 ;
661 ;

209
2095

gg% :

%83(7:

664 ;
665 .
666 ;

2098
2099
2100

223 :

5}8%

667 ;

670 ;

671 ;
672 ;

673 ;
674 ;

g;g .

677 ;

678 .

679 :
680 :

2101

2106

2105
2106

2107
2108

%}?g

211

2112

2113y
21146

gg} ;

%”g

683 .
684 ;
685 ;
23; :

686 ;

689

690 ;

!
!

& NIBBLES OF DATA,
9 NIBBLES OF DATA,

4 NIBBLES OF COmMP
9 NIBBLES OF Comp

0101
0101
0101

1010
1010
1010

0101

1010

0101

comp

1010

!
!
!

6
7
8

O NIBBLES OF DATA, 1024 NIBBLES OF COMP
1 NIBBLE OF DATA,
1 NIBBLE
OF COmP
4 NIBBLES OF DATA,
4 NIBBLES OF Comp

0000
0000
0000

1024 NIBBLES OF DATA, 1024 NIBBLES OF COMP

0000

IRER)

VALUE OF

9 NIBBLES OF DATA,

9 NIBBLES OF ComMP

0000

11
"M
"M

!
!

v
'

COMPLEMENT

PATTERN

PATTERNS

NUMBER

THE TWO ASSOCIATED COUNTS

0 NIBBLES OF DATA, 1024 NIBBLES OF CompP

-2

-3
- 4

1 NIBBLE

OF DATA,

4 NIBBLES OF DATA,
9 NIBBLES OF DATA,

1 NIBBLE

DATA

OF (OMP

0101
0101

1
1M
1111
1

0000
0000
0000
0000

!
!
¢+

-6
-7
-8

0 NIBBLES OF DATA, 1024 NIBBLES OF COMP
1 NIBBLE OF DATA,
1 NIBBLE OF COMP
4 NIBBLES OF DATA,
4 NIBBLES OF COMP

5;51

=10

1024 NIBBLES OF DATA, 1024 NIBBLES OF COMP

-9

global

9 NIBBLES OF DATA,

0101

1010
1010

21z
2118
2119

1010

compP

4 NIBBLES OF COMP
9 NIBBLES OF COMP

1024 NIBBLES OF DATA, 1024 NIBBLES OF COMP

2124

VALUE OF

DATA

1024 NIBBLES OF DATA, 1024 NIBBLES OF ComMP

= 5

212%

VALUE OF

2120

TOPS~20 Bliss~16 v2(212)
PA:<NEALE>MLX4.BLL.S (2)

SEEDT,
SEED?.

2076
2077

2078

2074
2075

2082
2083

;
:
;
;
;

29-MAR-82

VARIABLES AND CONSTANTS

648 ;
649 ;
650

MACRO M1113

9 NIBBLES OF COMP

1010

0101

0000

(ZMLBBO PERFORHANCEOSXERCISER

LSAU ADD UNIT SECT

692 MLX4
;
.
;
.
;
;

29-MAR-82 13:41

27-Mar-1982 19:24:42

VARIABLES AND CONSTANTS
2125
2126
2127
2128
2129
2130

27-Mar-1982 19:23:44

704 ;
705 ;
706 707 ;
708 ;
709 ;
710 ;
711 ;
712 ;

2134
2135
2136
2137
2138
2139
2160
2141
2142

%}22

;

715
716
7?7
718
719
720

2145
2146
2147
2148
2149
2150

WDBUFF = WBUFF,
WCBUFF = WBUFF + 512,
ROBUFF = RBUFF,
RC3UFF = RBUFF + 512,
END_WBUFF = (WBUFF + BUFS1Z2%2),
END_RBUFF = (RBUFF + BUFSIZ+#2),

;}2 :

;
;
;
;
;
;

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (2)

! <BLF/NOFORMAT>
.
PATTBL: blockvector [NUM_PATS/2,2] field(PATMAP)
preset (
C0.COUNT1]
= Xdecimal'0’
.
'FOR PATTERNS 1, =1, 6, =6
£0,COUNT2]
= Xdecimal'1024°,
[1,COUNT1]
= Xdecimal'l’®
.
'FOR PATTERNS 2, =2, 7, ~7

213
2132

2133

5
SEQ 0061

701 ;
702 .

703 .

PAGE 65

282 :
095
696
697
698
699
700

MACRO M1113

£1,COUNT2)
[2,.COUNT1]

£2.COUNT2)

[3.COUNT1]
[3,COUNT2]
(4,COUNTT)
[4,COUNT2]
);
!<BLF/FORMAT>
bind

= Xdecimal'l'
= Xdecimal'é'

!FOR PATTERNS 3, -3, 8, -8

Ydecimal'9*
,
Xdecimal'9'
Xdecimal'1024°,
Xdecimal'1024'

!FOR PATTERNS 4, =4, 9, -9

= Ydecimal'é*'

=
=
=
=

!FOR PATTERNS 5, -5, 10, -10

DEFINITIONS OF LOCATIONS WITHIN THE WRITE AND READ BUFFERS:
1256~WORD WRITE DATA BUFFER
1256-WORD WRITE COMP BUFFER
1256-WORD READ DATA BUFFER
1256-WORD READ COMP BUFFER
1JUST BEYOND END OF FULL WRITE BUFFER
!JUST BEYOND END OF FULL READ BUFFER

(ZMLBBO PERFORMAN CE E XERCISER
LSAU ADD UNIT SEC TION
2
8
H.
72
724
725 ;
726 ;
727 ;
728 ;
729 ;
730 :
3 ;
732 ;
733 ;
736 ;
735 ;
736 ;
737 ;
738 ;
739 ;
740 ;
7641 ;
742 ;
743 ;
744 ;
745 ;
7646 ;
747 ;
748 ;
749 ;

MACRO M1113

29-MAR-82 13:41

K
5
PAGE 66

SEQ 0062

27-Mar-1982 19:26:42

MESSAGES AND PRINT FORMATS

lsbtgl

[

]

[0PS-20 Bliss=16 v2(212)

27-Mar-1982 19:23:44

PA:<NEALE>MLX4.BLI.5 (3)

'MESSAGES AND PRINT FORMATS'

% SINGLE BIT ERROR LOGGING TABLE MESSAGE STRINGS

PHR21 = uplit (Yasciz’

SINGLE BIT ERROR LOG SUMMARY REPORT')

?BESHEA ER

ARRAY #:

FMT16 = uplit

*
Ll

(Xasciz'XNYD1XA(D)

= uplit (¥asci2®UNIT #:

XD2ZA(D)

XD1ZA(D)

BANK #:

BIT #:

AD2%A (D}

SPECIAL PURPOSE FORMATS (WITH SAMPLE PRINTOUTS):

FMT1A = uplit (Zasciz'INXTXS22D2'),
!*PATTERN NUMBER
XX'
FMT18 = uplit (Xasciz'XS7ITASXA-XD2'),
'
ATTERN NUMBER -XX*
FMT2 = uplit (XYasciz'XS2XT"),
'*
(NOT POWERED UP)'
1
(NOT AN ML1T UNIT)®
!'
(OPERATOR SELECTED TEST LIMITS INCORRECTLY)'
!*
(ALL RETRIES FAILED FOR A NON-FATAL ERROR)'

4
L

f*
!'*
{:

(CONTROLLER FATAL ERROR)'
(DRIVE FATAL ERROR)'
6S§C HARD ERROR)'

”
.

.
4
.
d
@
.

4
Ll

L
”
*
4
[4
”
.
4
»

[
4
[

OO OO VO 0000

'
DOWN'®
1'*
~=> RUN ML11 PROM MAINTENANCE PROGRAM®
FMT3 = uplit (Zasciz INXA*«ZSITISYTIDITSTAR"),
19ax END PASS
X #n'
FMT4A = uplit (Xasciz'XN2XTXA:YSXDT1ZSLITIA:XSXD1"),
T*LOGICAL UNIT: X
DRIVE: v*
FMT4B = uplit (Zasciz'XS4XTXA:25%06'),
$e
SERIAL #: 212211°
1
CSR ADDRESS: XXXXXX*
FMT4C = uplit (Zasciz'XS4XTXA:XSID1ZDIXDIZDI®),
e
SERIAL #: pDDD’
FMT5 = uplit (Zasciz'INXTISIXASECTORS UNDER TEST:XSY06XSIATOXSX06')
.
!°'MLI1-X
SECTORS UNDER TEST: XXXXXX TO YYYYyy'
FMT6 = uellt (Xasci
' INXABEGz
AN ID4SXA WORDISXTXA ATXSITXSX06'),
1'BEGAN YYYY WORD WRITE AT SECTOR 272221'°
!*BEGAN YYYY WORD READ AT SECTOR 2271121'
! '"BEGAN YYYY WORD WRITE CHECK AT SECTOR 222211'
L]

FMT? = uplit (Sasciz'INXS2XTIA:XS2DS')
!*
SOFT ERROR COUNT: DDDDD®
!*
HARD ERROR COUNT: DDDDD'
'
TRANSFER RETRIES: DDDDD'
FMT8 =
uplit (Xasciz’'INTATRANSFER RATE: XTYA MBYTES/SECOND'),
! * TRANSF R RATE: X MBYTES/SECOND'
ng9 =AR l}tx§!a;$;§;§n SGXAARRAYID3IXA:XSXDS'),
[4

L4
.

L4
.
.

FMT10A = uplit (Zasciz'INXTZA:3S2XTXSX06XS2XABOARDYD3YS2IABANKID2')
,
'*FAILED:
~SECTOR XXXXXX BOARD YY BANK 2
ng1g?T=osglrt (ZTasciz'YS2IABITXD3'),

COUNT #:°),

ID6XA(D)*),

(ZMLBBO PERFORMAA CE E KERCISER
LSAU ADD UNIT SEC TION

MACRO M1113

29-MAR-82 13:41

PAGE 67

5
SEQ 0063

27-Mar-198 2 19:24:4
142
27-Mar-198 2 19:23:4 A

A A AN A S LS LS [ ST VT ST VT XY NT TN

NIND
NIPNIAININININD
~
b i o s b ed e NNNSNNNN
d D
QOO
OO0 NONN NN = OO OOg
00~ SN

MESSAGES AND PRINT FORMATS

FMT11 = u?lit (Zasciz'INXTYSX06XA EXCEEDS XTXSX06'),
''TOP SECTOR OF XXXXXX EXCEEDS SYSTEM LIMIT OF YYYYYY'

''LOW SECTOR OF XXXXXX EXCEEDS TOP SECYOR OF YYYYYY®
FMT12A = uplit (Xasciz'INZAGOOD DATA: X06XA AT LOCATION X06'),

1*GOOD DATA: XXXXXX AT LUCATION YYYYYY'

FMT128 = uplit (Xasciz'INXABAD DATA:
XO06XA AT LOCATION %06°),
'*BAD DATA:
XXXXXX AT LOCATION YYYYYY'
FMT13 = uglit (Zasc iz’ INSAARRAYZID3XS2XT'),
'*ARRAY X
==> RUN ML11 PROM MAINTENANCE PROGRAM'
FMT14 =
uplit (Xasciz'XNXDSXSXT'),
TOXXXXX
MBYTES WRITTEN®
POXXXXX MBYTES READ'
PEXXXXX MBYTES WRITE CHE CKED'*
FMT15 = uplit (Yasciz'%S 2xTY),
'
ECH'®
'
NED'
! (ANY OF THE ERROR BITS)

QRLF = uplit

;

(Zasciz'IN'),

MESSAGE MAPS:

SAY1 = uplit (Xasciz'INXT')

SAY2 = uplit (Zasciz'INXTXSET*)
SAY3 = uplit (Yasciz'INYTXSITZSET®)
SAY4 = uplit (Zasciz'INITXSXTXSITXSET®)

SAYS = uplit (Yasciz'INXTESITISITASXTASET"),
;
A =2 OO 00NN
NN =

0000 0o 0o 0o Go 0o 0o 00 OB 00 00 00
NN ) b b d o e o e b ok

810

WORDS :

WRD2 = uplit (Zasciz'BEGIN'),
WRD3 = uplit
(Xasciz'END')

WRDG = uplit (Xasciz'PASS'S,

WRD6 = uplit (Zasciz'ML11~-A’),
WRD7 = uplit (Zasci2'ML11-B'),
WRD11 = uplit (Xasciz'DRIVE')

WRD15 = uplit

(Yasciz'SECTOR'S,

WRD16 = uplit
(Xasciz'WRITE®),
WRD17 = uplit (Xasciz'READ')

WRD18 = uplit (Yasciz'RETRY'S,
WRD19 = uplit

(Zasci2'SUCCEEDED'),

WRD21 = uplit

(Xasciz'DROPPED'S,

WRD25 = uplit
WRD34 = uplit
WRD35 = uplit
WRD36 = uplit

(Xasciz'DOWN'),
(Zasciz'RUNNING'),
(Xasciz'MARCHING:
(Zasciz'ENABLED®)

WRD20 = uplit (Zasciz'FAILED®)

WRD24 = uplit (Rasciz UP®)

WRD37 = uplit (Zasciz'DISABLED'S,

WRD38 = uplit (Xasciz'ECC')

WRD40 = uplit (Zasciz'WITH'S,

WRD41 = uplit (Zasciz'AND'),

'),

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

CIMLBBO PERFOQRMAN CEE XKERCISER
LSAU ADD UNIT SEC TIUN

MACRO M1113

29-MAR-82 13:41

PAGE 68

SEQ 0064

NINONININININLNY
JAS1AY LN 18T N1 T T N
OO OM AL
N =2 OO0 O\

MESSAGES AND PRINT FORMATS

;

27-Mar-1982 19:24:42

27-Mar-1 982 19:23:44

TOPS=-20 Bliss~=16 v2(21

PA:<NEALE>MLX4.8LI1.S (

ML~-11 BITS:

MLB? = uplit (Xasciz'NED'),
MLB3 = uplit (Zasciz'NEM'),

MLBS = uplit

(Xasciz'PGE'),

MLBS = uplit (Rasciz'DLT'),
MLBS = uplit (Xasciz'WCE"),
MLB7? = uplit (Xasciz'PE*)

MLB8 = uplit (Yasciz'MXF'S
MLBY = uplit (Zasciz'MDPE’S
MLB10 = uplit (Sasciz'MCPE'S,

MLB11
MLB12
MLB13
MLB14
MLB1S
MLB16
MLB17

= uplit
= uplit
= uplit
= uplit
= uplit
= uplit
= uplit

(Xasciz'INS'),
(Xasciz'IAE').
(Xasciz'AOE"*),
(Zasciz'RMR'),
(Xasciz'ILR'),
(Xasciz'ILF'),
(Xasciz'OP]’)

MLB18 = uplit (Zasciz'DPAR'S,

MLB19 = uplit (Xasciz'CPAR’),
MLB20 = uplit (Xasciz'DCK'),

MLB21 = uplit
MLB2? = uplit
MLB23 = uplit
§L824 = uplit
:

(Xasciz'ECH'),
(Xasciz'CRC'),
(Xasci2'SGL'),
(Xasciz'UNC*),

ROUTINE NAMES:

RINO = uplit (Xasciz’COMMAND INTEGRITY ROUTINE'),
RINT = uplit (Zasciz'OPT1*),

RIN2 = uplit (Rasciz'OPT2'),
RTIN3 = uplit (Xasciz'0PT13")
RING = uplit (Zasciz'OPT4®),
RTINS = wplit ( asciz'OPTS'),
RINSA = uplit (Zasciz’RAND1Y),
RIN3B = uplit (Xasciz'RAND2®),
RINSC = uplit (Xasciz'RAND3®),
QTNSD = uplit (Zasciz'RANDS'),

;

!RANDOM DATA
'DATA & WORD COUNTS
!DATA, WORD COUNTS & SECTORS
!DATA, WORD COUNTS, SECTORS £ UNITS

PHRASES :

PHR1 = uplit (Zasciz'WRITE CHECK®')

PHR2 = uplit (Zasciz’QUICK VERIFY'S,

PHR3 = uplit (Zasciz'REFRESH MARGINING'),

PHR4 = uplit (Zasciz'CSR ADDRESS'),

PHR5 = uplit (Xasciz'SOFT ERROR COUNT'),

PHRS = uplit (Xasciz'TRANSFER RETRIES®),

PHR7 = uplit (Zasciz'LOGICAL UNIT'),
PHRB = uplit (Xasciz'SERIAL #°),

PHRY = uplit (Xasciz'PATTERN NUMBER') .

PHR10 = uplit (Zasciz'ERROR BITS SET:')

PHR11 = uplit (Zasciz*SC SET BUT NO SYSTEM ERRORS FOUND'),

(ZMLBBO PERFORMANCE EXERCISER

L$SAU ADD UNIT SECTION

890 ;MLX4

gg% :
893 .

89% :

895
896
897
898
899
900
385

:
.

MACRO M1113

29-MAR-82 13:41

SEC 0065

MESSAGES AND PRINT FORMATS
2307

2308

903 .
904 ;
905 .
906

2317
2318
2319
2320

!
TRANSFER RATES:
!
TRT00 = uplit (Xasciz'2'),
TRT01 = uplit (Xasciz'1')

909
910
911
912
913
914
915
916
917
918

;
;
;
;
;
;
;

2321
2322

27-Mar-1982 19:23:44

(Yasciz'TOP SECTOR OF '),
(Zasciz'LOW SECTOR oF'),

(Zasciz'SYSTEM LIMIT OF'),
(Xasciz'PERFORMANCE SUMMARY'),
(¥asciz'HARD ERROR COUNT'),

(Xasciz'MBYTES WRITTEN'),

(Xasciz"MBYTES READ'),

TRT10 = uplit (Yasciz'.5'S
TRT11 = uplit (¥asciz'.25°J,

;
;

2323
2324
2325
2326
2327
2328
2329
2330
2331
2332

2333

CAUSE8 = uplit (Xasciz'(ECC LOGIC FAILURES®),

35% :

5;%2

;

923
924
925
926
927

2337
2338
2339
2340
2341

MSGO = uplit
MSG1 = uplit
MSG2 = uplit
MSG3 = uplit
MSG4 = uplit

319

;
.
:
;

3%8 :

ggzg

TOPS=20 Bliss-16 V2(212)

PA:<NEALE>MLX4.BLI.5 (3)

PHR12 = uplit (Xasciz'NUMBER OF MBYTES TRANSFERED:'),

PHR14 = uplit
PHR15 = uplit
PHR16 = uplit
PHR17? = uplit
PHR18 = uplit
PHR19 = uplit
fHRZO = uplit

907 .
908 ;

27-Mar-1982 19:24:42

PHR13 = uplit (Xasciz'MBYTES WRITE CHECKED'),

2309
2310
2311
2312
2313
2314
%g}g

.
;
:

N
5
PAGE 69

!
!
DROP MESSAGES:
!
.
)
CAUSE1 = uplit (Xasciz'(NOT POWERED uP) '),
CAUSEZ = uplit (Xasciz'(NOT AN ML11 UNIT)')

CAUSE3 = uplit (Zasci2'(OPERATOR SELECTED TEST LIMITS INCORRECTLY)*),
CAUSE4
CAUSES
CAUSES
CAUSE7

=
=
=
=

uplit
uplit
uplit
uplit

(Zasciz2®'(ALL RETRIES FAILED FOR A NON-FATAL ERROR)'),
(Xasciz’'(CONTROLLER FATAL ERROR)'),
(Xasciz'(DPIVE FATAL ERROR)'),
(Xasciz'(ECC HARD ERROR)')

DIAGNOSES :
(Xasciz'INTERRUPT DID NOT OCCUR, BUT THE TRANSFER IS COMPLETE'),
(Xasciz’=~> RUN ML11 LOGIC TEST'),
(Zasciz'==> RUN ML11 PROM MAINTENANCE PROGRAM'),
(Xasciz'SOFT ERROR®),
(Xasciz'HARD ERROR')

MSG5 = uplit (Xasciz'ECC LOGIC FAILED TO DETECT DATA ERROR');

CZMLBB0O PERFORMPANCE EXERCISER

LSAU ADD UNIT SECTION
931 .MLX4

gg% .

946 405670

947 005673

948 005676

949 005701
950 005704
951 005707

952 005712
953 005715

954 005720
955 005723
956 005726
957 005731
958 005734
959 005736
960 005741
961 005744

962 005747
963 005752
964 005755
965 005760
966 005763
967 005766
968 005771
969 005774
970 005777
971 006002
972 006005
973 006010
974 006013
975 006016
976 006021
977 006024
978 006027
979 006032
980 006035
981 006040
982 006042

983 006045

984
985
986
987 006050
988 006053
989 006056
990 006061

Isbttl "ML11 INTERRUPT SERVICE ROUTINE®
BGNSRV (SERVICE):
1 AM DONE = ACTIVE;

“RDSRv;

040
040

0640
011

116

107

114

126
122
122

040
122
040

115
k3
105
122
000
116
061
050

101
040
120
124

()R]

123

105

040

114
040

117
123

111
105
117

115
122

122
117
000
045
104
101
051
040
040
062
050
040
040
045
045
104
040
040
104
101
051
040
040
104
101
051
125

124

072
040
122
040

(4)

040
040
045
045
104
040
040
104
101
051
040
040
062
050
040
040
040
066
050
000
116

040

040
101
101
043

P.AAA:

.ASCII

102

ASCI1

.ASCII
.ASC11I
.ASCI]

107
125

045
045
104

111

040
122
131
072

/7
/
/<11
/
<11>/81/
/NGL/

/€ 8/

.ASCII
.ASCII

P.AAB:

040
040
104
101
051
040
040
061
050
040
040
045
045
104
040
040
045
045
104

043

_ASCII]
.ASCII

P.AAC:
JMLXG
:

.ASCI1
.ASCI1
ASCI]
LASCII
.ASCI!I
.ASClI
.ASClI
.ASCII

.ASCI1I
.ASCII
.ASCI1]
ASCI1
ASCI1
.ASCI1I
.ASCI1I
.ASCI1
.ASCII
LASCI]
.ASC]1}
+LASCII
ASCI]
LASCI1
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCI]
LASCII
.ASCII

.ASCII

942
943
944 005662
945 005665

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S

937 .,
941

27-Mar- 198 2 19:24:4 2
27-Mar- 198 2 19:23:4 4

ML11 INTERRUPT SERVICE ROUTINE
%;ék
S
23+6
2247

SEQ 0066

O;N
~N)
t ] NS
o~ bt
e 1
NN
N
NN

936 .

PAGE 70

934
935 ;

MACRO M1113 29-MAR-82 13:41

/A(D/
/)/<00>
/UN1/
/T &/

ML11 INTERRUPT SERVICE ROUTINE

.ASCI1
.ASCI]
.ASCI}
ASCI1

/:
/
/ AR/
/RAY/
/ #8:/

27~Mar-1982 19:24:42
27-Mar-1982 19:23:44

TOPS
PA:<

- 380 PERFORMANCE E XERCISER
LSAU ADD UNIT SECTION

991 006064
992 006067
993 006072
994 006075
995 006100
9%6 006103
997 006106
998 006111
999 006114
1000 006117
1001 006122
1002 006125
1003 006126
1004 006131
1005 006134
1006 006137
1007 006142
1008 006145
1009 006150
1010 006153
1011 006156
1012 006160

1013 006163

10146 006166
1015 006171
1016 006174
1017 006127
1018 006202
1019 006205
1020 006210
1021 006213

1022 006216
1023 006221

1024 006224
1025 006227
1026 006232
1027 006235
1028 006240
1029 006243
1030
006246
1031 006251
103§ 88%35%
103
S
1034 006269

1035 00626
1036
0062
1037 006270
1038 006273

040
102
113
072
040
126
072
040
040

125
040
000
045
124

062

062
045
045
123
055

062
045

045

045
101
045
124
045
104
123
052

045
045

101
123
061
064
045
045
104
000
045
045
101

123
066
045
045

040
101
040
040
102
040
040
049
103

MACRC M1113
040
116
043
040
M
043
040
040
117

124
072

116
045

045
123

000
123
124
045
045

000
067
045
101
104

000
123
124
116
052
123
045
124
063

045

052
116
124
072
045
045
045
101
123
061

123
124
072
045
000
123
124

PAGE 70~

SEQ 0067

116
043

045

29-MAR-82 13:41

P.AAD:

104

P.AAE:

062

P.AAF:

045
052
045
123
045
045
101
000

P.AAG:

000

062
045

P.AAH:

064
045
045
117

P.AAI:

064
045

P.AAJ:

045
104
123
124
072
045
000

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

LASCII

.ASCII
LASCI1
LASCII
.ASCI1
ASCII
.ASCII
LASCIl
JASCII

_ASCII
LASCII

7/
/i
/
/K #/
/:
/
/ Bl/
/T &/
/:
/
/7
/
/7 CO/

/UNT/
7 #:/
<00>
/INX/
/7XS/

/2%D/

727<00><00>
/Xs7/
/XT%/
/SXA/
/=XD/

/72/7<00>
/%S2/

/%X7/<00>

/INY/
/Axn/
/%S%/
/TXS/
/XT%/
/D3%/

/SXA/

/+2/<00>
/iIN2/
/%7T%/

ASCII
.ASCII
ASCI1
LASCI1
ASCI1
ASCII
ASCI1
LASCI1I
_ASCI1
ASCII
LASCII

/7A:%/
/SXb/
/1X%S/
74XT/
/XA:/
/3S%/
/D1/<00>
<00>
/%S4/
/%7X/
/A:X/

ASCI]
LASCII

/XS4/
/7%T%/

.ASCII
ASCII

/SX0/
/76/<00>

{IZMLBBO PERFORMANCE E XERCISER

LSAU ADD UNIT SECTION

MACRO M1113

1040

JMLXG

1052 006331
1053 006334
1054 006337
1055 005342
1056 006345
1057 006350
1058 006353
1059 006356
1060 006361
1061 006364
1062 006367
1063 006372

1064 006375
1065 006376

1066 006401
1067 006404
1068 006407

:
101
123
061
061
061
061
045
126
063

105
117
040
104
040
123
045
117
123
124
123
066

101
107
040

116
102
101
045

1069 006412
1070 006415

064
040

1073 006426
1074 006431
1075 006434
1076 006437
1077 006442
1078 006445
1079 006446
1080 006451
1081 006454
1082 006457
1083 006462
1084 006465
1085 006466
1086 006471
1087 006474
1088 006477
1089 006502
1090 066505
1091 006510
109% 006513
1093 006516
1094 006521

045
101
123
045
117
000
045
123
124
072
045

1071 006420
1072 006423

072
045
045
045
045
000
116
045
045

123
124
123
116
122
105
072
045
045
101
045
117

000
045

122
123

000
045
101
101
106
040
124
049
045
115
124

PAGE 71

SEQ 0068

}825

1043 006276
1044 006301
1045 006;84
1046 006307
1047 006312
1048 006315
1049 006320
1050 005323
1051 0063%6

29-MAR-82 13:41

045
104
104
104

104

000

045
123
101
103
122
125
105
124
124
123
066
045
117
045

P.AAK:

045
105
116
104

P.AAL:

ML11 INTERRUPT SERVICE ROUTINE
ASCII
.ASCI1
.ASC1]
LASCII
ASCI1
ASCII
,ASCI]
LASCII
LASCII

LASCI1
LASCI1
LASCI1I
LASCI1
JASCII
.ASCI1
.ASCI1
LASCI1
LASCII
LASCI1
ASCI1
ASCI1

000

045
127
104
045
107
124
045
123
066

040
045
24
045
000

116
062
045
045
104

045
045
101
123
065

P.AAM:

116
124
116
105
122
105
045
101
102
105

045
122
123
122
101
072
124
040
131
123

P.AAN:

101
117

LASCII
L_ASCII

.ASCII
ASCII
LASCII

LASCI1
LASCII

045
124

LASCII
LASC1l
ASCI1
LASCII
.ASC1]
ASCl]l
ASCI1
LASCII
_ASCI]
LASCI1
ASCII
ASCI1
.ASC1]
LASCII
_ASCII
.ASCI1
.ASCII
.ASCII
ASCII
ASCII
LASCII
ASCII
ASCI1
LASCI1

/A:X/
/S5%p/
/1X¥p/
/1¥p/
71%p/
717<00><00>
/INX/
/1XS/
/3XA/

/SEC/
/TOR/
/S W/
/NDE/
/R V/
/EST/
/:XS/
/%06/
/%S%/
/ATO/
/%S%/
/06/<00>

<00>
/INY/
/ABE/
/GAN/
7/ XD/

/43XA/
/7 WO/

/RDX/
/SXT/
/%A /
/ATX/
/8%1/
/%S%/
/06/<00>
<00>
/3INY/
/52%/
/TA/
/:XS/
/%b5/
<00>
/INY/
/ATR/
/ANS/
/FER/
/ RA/
/TE:/
7/ X1/
/%A /
/MBY/
/TES/

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TUPS

PA: <

(IMLBBO PERFORMANCE E
LSAU ADD UNIT SECTION

XERCISER

MACRO M1113 29-MAR-82 13:41 PAGE ;2 6

1096

sMLXe

}%g

1099 006524

057

1101
1102
1103
1104

006532
006534
006537
006542

10¢
045
123
101

1106 006550
1107 006553
1108 006556
1109 006561
1110 006564
1111 006567

04
045
045
104
045
124

1113 006575
1114 006600

062
045

1100 0065%7

1105 006545

1112 006572

1115 006603
1116 006606
1117 006611
1118 006614
1119 096617
1120 006622
1121 m
112%

1123

103

12%

072

123

117

000
116
064
101
101
104
101
123

065
116

045
045

043
123

117
123
101
101
045
045
045
101

066
062

000

006633

045

1125 006640
1126 006643

045
045

102
122
104
123
101
116

105

104
045
124
045

063
116
045
117

090
045
123

1133 006670
1134 006673
1135 006676
1136 006701
1137 006704
1138 006707
1139 006710
1140 006713

105
105
123
124
045
200
045
101

130
105
040
045
117

103
104
5
123
066

116

045

114§ 006721
1143 006724
1144 0067%7
1145 0067 ;

104
101
045
045

1147 0067490
1148 006743
1149 006746
1150 006751

114
101
117
045

113% 006665

1141 006716

1149 00673

045

117

101

124

101

124

040

117
124
115
117

JASCII

LASCII
LASCII
ASCI1
ASCI11
.ASCII
LASCII
LASCII
ASCII

P.AAQ:

P.AAR:

<57>/SE/

/CON/

/D/<00>
/XINY/
/S4%/
/AAR/

/RAY/

/%D3/
/XA:/
/XS%/
/D5/<00>
/2NX/
/T2A/

/:%S/

/2XT/
/2S%/
/06%/
/S52%/
/ABO/
/ARD/
/XD3/
/%S2/
/XAB/
/ANK/

/XD2/

_ASCI1
ASCI1

/%S2/
/XAB/

-ASCI1
_ASCII
JASCII
ASCII

/D3/<00>
/INX/
/TXS/

LASCII

P.AAS:

INTERRUPT SERVICE ROUTINE

LASCII

ASCII

040

117
040
124
040
066

LASCII
ASCII
ASCII
LASCII
_ASCII
ASCII

ASCII
LASCII

045

107
104
101
072
117

101

P.AAP:

045
045
117
104
063
062
102
113

062
102

.ASCII
ASCII
LASCII
LASCII

.ASCI1

123

123
101

1128 006651
1129 006654
1130 006657
1131 006662

P.AAD:

124
045

062

1127 006646

LASCII

131

063
072
045
000
045
101

104

1126 006636

LASCII

116

045
045
122

ML11

-ASCI1
.ASCI1
LASCI1
LASCI1
-LASCI1
LASCII
.ASCII
ASCI1

LASCII

<00><00>

/11%/

/%06/
/XA /

/EXC/
/EED/
/S X/
/T7%S/
/%06/
<00>
/INY/
/AGO/

/0D /

040

.ASCI1
LASCII
LASCII
LASCII

/DAT/
/A: /
/%06/
/XA /

103
111
040
066

+ASCII
ASCII
.ASCII
.ASCI11

/LGC/
/AT1/
/ON /
/%06/

LASCILI

/AT /

SEQ 0069

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

TOPS

PA:<

OBSN¥RMINTWmmmnw
S 8

8R8e8ie8e 3e88e3R8238R3R8SRo8R=1[8l 8 s QO0

0PSYVg<="AASSI1Oy2I8/.BgEy~0DNN1SBI\RE/GlAhaRGRng\RPg.Z1ODELW/'yTN=SGBNDZR.2LMIa=1NE]G3S/8=xl8VNBN-S.BI1SeoPyN3/NLB.¢SRI1ZITASIN/E.TVMSBSRINL1a]XPSA).<SqARNlBS/").WISNN.ASPRI/‘gM1'bRSRI=NN.8YLlD(]GBVR-l/C.BIBGO1DSASgS=EIRB8DO/9VSen3.NnNgSo81ILG20ea]RwBVnOM/8xoSlmemn.Ng1<M]<a.YALBm/LNSlRP1AN3.LaAONSGI8S3/S8NBAIa.VG1<i<Rg]OraLYR)P2N/V.RS1IYbSSNOGS=OR/RQBCe.RAEI1NLQ=g-R]RXOS.A]MN/=PI.LSIGOUB1E<AYNgINA,MSIeD.BDE.0/NRCSG’SNURg2IIO.YBN1/L_N<gaO]_BGOG]DN<AImSOCAB.1R>BM/IORgON,ISE8INIVRC3$1lPBO/v5QNGRuR3OBmgVI8IM1eSY3/—5@rAgRSOMN3¢ogR1W0Y18S/O9cNg0mR5c3g&egmN61LPeNg8/nog”AS5URBg&u"-N,&rV833S0/A&e=8Sa15N0Rwor®72’S0e*Fe
LSAU ADD UNIT § ECTION

u IMLBBO PERFORMAN CE E XERCISER

MACRO M1113
29-MAR-82 13:41

ML11

£
6
PAGE 73

SEQ 0070

INTERRUPT SERVICE ROUTINE

27-Mar=1982 % 19:24:4
142
27-Mar-1982 19:23:4 4

TOPS
PA:<

P.ABM:

104

101
105
000
122
120
000
120

111
104

FP.ABO:

117
105

P.ABP:

000

P.ABQ:

127
000
116
116

P.ABR:

122
11
072
000

P.ABT:

116

>>>»

-ASC
+AS

@
9

P.ABS:

101

P.ABU:

123
114
000

P.ABY:

105

-ASC

105

AS(

.
-

i-.h-.—nt—al-fl-fl-h—i—..-.hob—t-nt—ohni-nh-nl-nt-u-fl-nl—o—.mt—..—nhflh-ht-a.-l-h-t—MMH*—MNO—&—M‘—&-MO—..—O—MN.—

P.ABL:

P.ABN:

114
000
111
102
104

P.ABJ:
P.ABK:

IOIIVIIIICICIOIOIOIICIM
g Bovng g S g Smueg s Sineg Buveg g uneg St g Pusg Peg g P g Sy

P.ABI:

103
105

117
000
125
111
080
101
110
107
040

»
>
wnnuthrnnmumnunnnnn

111
000
103
122

-AS

alalalalalalalalalatatalalal lalalalalnlslalalele
el Yel
Surg framg Sung Sumeg ey $oorg Song i oy Saint Boucg g ot fuong Pong Brasp Bovep B Boivg Sy S S Srng Svng fmagSurs Gy B g e §mp ey B

105

P.ABH:

102
104
104
101
105
000

1%56 007370

061
102

1257 007;73
1258 007376
1259 007400
1%60 007403
1261 007406
1262 007411

12686 007335

125
105

P.ABG:

1247 007336
1248 007341
1249 007344
1250 007347
1251 007352
1 55 007354
1253 007357
1254 007362
1255 007395

120
104
125
000
104
116
122
116
107
11§
103
116
040

111
000
101
000
124
000

P.ABF:

114
000
104

114
0ss
09
114
055
000
122
105
105
117
000
122
105
105
000
105
131

P.ABE:

1239 007312
1240 007315
1241 007320
1262 007322
1243 007325
12464 007330
1245 007332

123
000
061
101

<00>
/BEG/

»> »»
73 337 3333333 >>>>»
7373733 wn [Z.37%]

1237 007306

1238 007311

101
000

P.ABD:

1235 007300
1236 007303

104
122
122
123
103
104
000
106

107
000
106

1218 007220
1219 007223
1220 007226
1221 007230
122¢ 007233
1223 007236
1224 007240
1225 007243
1226 007246
1227 007251
1228 007254
1229 007256
1230 007261
1231 007264
1232 007267
1233 007222
1234 007275

105
116
116

ML11

1217 007215

000
102
111
105
000
120
123
11§
061
000
115
061
000
104
126
123
124
000
127
124
122

JMLXG
:

>2
3» 30 2o 3>

1208
1209
1210
1211 007177
1212 007200
1213 007203
1214 007206
1215 007211
1216 007g12

MACRO M1113 29-MAR-82 13:41 PAGE 94 6

17, nnanann

CIZMLBBO PERFORMANCE EXERCISER
LSAU ADD UNIT SECTICN

INTERRUPT SERVICE ROUTINE

/IN/<00>
/END/
<00>
/PAS/
/5/<00><00>
/ML1/
/1=A/
<00><00>

/ML1/
/1-8/
<00><00>
/DR1/
/VE/<00>
/SEC/
/TOR/

/9/7<00><00>
/RET/
/RY/<00>
/8UC/
/CEE/
IDEg/

/FAl/
/LED/
<00><00>
/DRO/
/PPE/
/D/<00>
7UP/<00>
<00>
/DON/
/N/<00><00>
/RUN/
/NIN/
/6/<00>

SE0 0071

7-Mar-198

19:24
5 7-Mar-19822 19:23:
44

:42

TOPS
PA:<

CZMLBBO PERFORMANCE E XKERCISER
LSAU ADD UNIT SECTION

MACRO M1113

127§ 007427
1273 0074
1274 007433
1275 007434
1276 007437
1277 007440
1278 007443
1279 007444
1289 007447
1281 007450
1282 007453
1283 007454
1284 007457
1285 007460
1286 007463
1287 007464
1288 007467
1289 007472
1290 007475
1291 007500
1292 007503
1293 007504

129% 007507
1295 007510

1296 007513
1297 007514
1298 007517
1299 007520
1300 007523
1301 007524
1302 007527
1303 007530
1304 007533
1305 007534
1306 007537
1307 00754
1
88754

1309
00755
1310 00755
1311 007554
131§ 007557
131 837562
1314
00756
1315 007564

}3}? §§;s 4
1513 7579

sMLX4
2

105

103

P.ASW:

12
110
101
000
116
000
116
000
120
000
104

11
000
116

126
000
106

P.ABX:
P.ABY:

105

106

P.ABZ:

105

115

P.ACA:

107

105

P.ACB:

114

124

P.ACC:

103

105

P.ACD:

105

000

P.ACE:

130

106

P.ACF:

104
000

120
000

P.ACG:

000

127
000

120
000
115
000
115
105
115
105
125
000
111

000
101

000
122
000
11
000
11
000

117
000
104
122
103
122

104
000
105
000
103

000
122

?32
000

103
000
116

120
000
123

P.ACI:

101

105

P.ACJ:

117

105

P.ACK:

115

122

P.ACL:

114

122

P.ACM:

114

106

P.ACN:

120

111

P.ACO:

120
000
120
000
103

101
000
101
000
113

P.ACP:

P.ACR:

103

110

P.ACS:

122

103

P.ACT:

107

114

P.ACU:

116

PAGE

SEQ 0072

1264
}%22

1267 007412
1268 007415
1269 007416
1270 007421
1271 007424

29-MAR-82 13:41

P.ACH:

P.ACO:

103 P.ACV

ML11

.ASCII
-ASCIT
.ASCII
ASCII
.ASCII

INTERRUPT SERVICE ROUTINE

ASCIT
.ASCII
JASCII
.ASCII
JASCIT
.ASCI]
ASCII
.ASCII

/ECC/
<00>
/wiT/
7H/<00><00>
/AND/
<00>
/NED/
<00>
/NEM/
<00>
/PGE/
<00>
/DLT/

.ASCII
JASCII

/WCE/
<00>

ASCIT

.ASCII
JASCIT
.ASCII
JASCIT
.ASCII
JASCII
.ASCII
JASCII
.ASCII
JASCIT
.ASCII

ASCIT
.ASCII
JASCIT
.ASCII
JASCII
.ASCI1
ASCIT
.ASCI]
LASCIT
.ASCII
JASCIT
.ASCI1
JASCI1
.ASCII
-ASCII

.ASCIT
ASCIT
.ASCII
ASCIT
.ASCIT

JASCIT
.ASCII

<00>

/PE/<00>
<00>
/MXF/
<00>
/MDP/
7E/<005><00>
/MCP/
7E/<00><00>
/UNS/
<00>
/IAE/

<00>
/AOE/
<00>
/RMR/
<00>
/ILR/
<00>
/ILF/
<00>
/0P1/
<00>
/DPA/
/R/<00><00>
/CPA/
/R/<00><00>

/DCK/
<00>
/ECH/
<00>
/CRC/
<00>
/SGL/

'figfff 5335/
JASCIT <00>

7-Mar-1982 19:24:42
7-Mar-1982 19:23:44

TOPS
PA:<

/% 380 PERFORMANCE

500 ADD UNIT SECTION

ERCISER

MACRO M1113 29-MAR-82 13:41 PAGE &6 6

1320

)

SMLXG

1323 007574
1356 007577
1325 007602
1326 007605
1;27 00761g
1328 00761
1353 007616
1330
007621
1331 007624

102
13
104
116
107
154
122
124
105

117
101
040
124
1%2
15
117
111
000

115
116
m
105
m
040
1¢5
116

P.ACW:

P.ACX:

133% 007626
1333 007631
1334 007634
1335 007637

117
061
117
062

120
000
120
000

126
000
124
000

1337 00764
1338 007650
1339 007653

063
117
064

000
120
000

000
126
000

1341 007661
1342 007664
1343 007667
1344 007672
1345 007675
1346 007700
1347 007703
1348 007706
1349 007711
1350 007714
1351 007717
1352 007722
1353 007725
1354 007730
1355 007733
1356 007736
1357 007741
1358 007744
1359 007746
13560 007751
1361 007754
1362 007757
1363 00776
1364 00776
1365 007770
1366 007773
1367 007776
1368 010001
1369 010004
1370 010007
1371 010012
1372 010015
1373 010020
1374 010023

065
122
104
122
104
122
104
122
104
127
124
103
103
121
103
126
111
000
122
122
110
101
111
116
103
040
104
123
123
124
122
122
117
124

000
101
061
101
062
101
063
101
064
122
105
110
113
125
113
105
106
000
105
105
040
122
116
107
123
101
122
123
117
040
122
040
125
000

00
116
000
116
000
116
000
116
000
111
040
105
000
111
040
122
131

1336 00764

1340 0075856

11?7

117

120

126

106
123
115
107
111
000
122
104
105
000
106
105
117
103
116
000

P.ACY:

P.ACZ:
P.ADA:

P.ADB:
F.ADC:
P.ADD:

P.ADE:
P.ADF:

P.ADG:

P.ADH:

P.ADI:

P.ADJ:

P.ADK:

ML11

.ASCI]
ASCI1
LASCIl
.ASCII
.ASCI1
LASCIL
LASCII
LASCI1
LASCII

L.ASCII
LASCI1
.ASCIl
LASCI1

.ASCII

LASCII
.ASCII
ASCI1

.ASCII

LASCI1
L.ASCII
ASCII
.ASCI]
ASCII
.ASCII
LASCI1
.ASCl]
ASCIS
.ASCI]
.ASCI1
.ASCI1
ASCII
.ASCII
LASCII
.ASCI1
LASCII
LASCI1
_ASCI]
.ASCI1
ASCI1
LASCIl
LASCII
ASCII
.ASCII
ASCI1
LASCI1
LASCII
.ASCI]
.ASCI1
.ASCI1
LASCI1
LASCII
LASCII

INTERRUPT SERVICE ROUTINE

/com/
/mMAN/
/D 1/
/NTE/
/GRl/
/TY ¢/
/ROU/
/TIN/
/E/<00>

s0PT/
/71/<00><00>
/0PT1/
72/7<00><00>

/0PT/

73/<00><00>
/0PT/
/74/<00><00>

/0OPT/

/75/<00><00>
/RAN/
/D1/7<00>
/RAN/
/D2/<00>
/RAN/
/7D3/<00>
/RAN/
/D4/<00>
/WRl/
/TE /
/CHE/
/(CK/<00>
/Qul/
/CK /
/VER/
/IFY/
<00><00>
/REF/
/RES/
/H W/
/ARG/
/IN1/
/NG/<00>
/CSR/
/7 AD/
/DRE/
/585/<00>
/SOF/
/T E/
/RRO/
/R C/
/0UN/
/1/7<00><00>

SEG 0073

7-Mar-1982 19:24:42
7-Mar-1982 19:23:44

TOPS

PA: <

NIO =NSO N MNOMNINIOWY
vOe OeO Ne= ONNO

SSSS338282

2OOO
R—~SMAANTAILeO MrBNemiIrNe=FrIe0NN\eOBWNBONOeOOStNB At ee NiPetMP NN<7TTVN=S=eOMOMMANM M O ON

1P=]gM<~I-eyNMlSgOe1SNIaVyQL2»SN]D|SLee.oR(1OOSPIGN|S.O1-NeOlIK|ONS1PNc|W.NSP1POO|OGyGr1S-=ByN.SLOCelBee\A1sMSIBeCyqc1oelSN.ALs8N28e]eSBCc[+1-.gSlCsBSWOOeSO—cvcaegN1l)VFLSrc1CsaBlgcONISEeyNc8eALGlgIsC41ONcBeBNMPL1&Ie=.CSgPscS0LSBA1O8Bger-aLg’Ncls9SerOa¢g1C=M¢rlMSBc.sNQ8g.(L1—B1.]CDSeumnaeLcg)1sPSgUON2NVgCref1M9“eScgW’LWs221ICSSg.—YL&ggNc1’MCsO&7*Qe63=SNSLa1s&gCScm!egLs1*g=®gSLsN0cggOCe1gOLs!BgeCgW1sc&gL&GN—s1C"3LQO]SBOLcsSOD1OumCanfgsCOe2OeB1CcsB13g~=GLBlM1Nm8SC.£g21De[cL-s1O5SSC.s"O1gCO—N.ScsCI1CrBg02SVNL!Ors07g1C=cSGrIN!sLQLE&3S]XmFTB1y.CsWN0r°g'’NcLGN1sCPO1gg,reNO-CsON&1gmgsoLI!Os05cCgOXD1OoMCs1a%15N04dCO!scLL®27385‘]NC1Na5[0n0-d!1.11
T
NMD(:-cO/.:Nme(&ovA\=][sm. >NR<‘O.mN-Nr~.-L@NlNvMAwAmNRw:N.o=Wi(<.t3>0N,lwRnN.RWOlAUSNFvA—RO0ZSUNI)U.oKNnvOFVnWgNWmOUno=ADxW[VNVWYOSOL=NCW7—Y)O-O(oANA=W3O—JZ5NCIIZRNNEoOAAONRU=CVYIEWE~ONRENoo o8vA AEWANe-LYIZNNONSCLuU
(ZMLBBO PERFORMANCE £ XERCISER

LSAU ADD UNIT SECTION

PACRO M1113
29-MAR-82 12:41

cMLX4

ML11

J_
6
PAGE 77

SEQ 0074

INTERRUPT SERVICE ROUTINE

27-Mar-19

os</NLSVv/gr-mngO.SgL,s/P“1iBngmO<V$4oPncgrLlOs/SVo0DywoU/AONleBL]>s/gz0S(vVDL=o2vBls/WB4oSsUeg-\$m0hLS/engs,g2<S/LS%yswiA1,-SBVN/>4LSIsS0ATyN/LN>O$2oBtUaVgOQso0SNuSmLnAg=p/OSA2VeD4yuUsLNgNSE<VV4gOSNLs/En1BTUSVyENWN4(LSeU>s/O%OGNB»W(Or2A=GB>4LOs,=0GTuSmNegO/w1aBLuGngsN,0WSPyNd/L2YSGOOsE1NuinrWg/H3OOXG]sK1L$eg.ns/L/0ReNSBUNs)2FgLEs,PgLOBIs/E1LVAGSsNWETO2SgmnRgOWw/o1GgAONUyKs(2gLM=Ss(OW4LEGNNs’LE1SULs/OU0NeGLs’_=E@TALSG3"s/(W1LgOSNsLSD2gSMLs/"4)AgLOsIN0WSgLBs(T%Lgs/LF(oWMN=S]LAs<)g§OSOJsR/M5UsI0gs=75OLY0
A A vN A
N

4WO|uBW.o«eaWNxm1€1l8u70Ml14&€AyL@oaNOP-1n‘W6o7oN0¢8.Mwll&0a«e4-N=I3iRm¢—01PlTT=1&e1O“Mu1-1¢0Oe4M1W.OQ0~[.<D1P.~1“1&0OA624'@ON—=ET1%121SNI&0eRO1wTN&4-=1OMwlw”I®oVAMeT3.EO18<.0>24l[m“-~-Ao.OOf4M110eSrMiA‘UOT.n‘A14oIN0N1ls5“OoOF1=n-lI40x<.Qes5O1.N1ol%=O1o0vev4VlW1NomOV1MIVl0wOWMNe1".oAAONlI-lam0NeA11dVn&L%0QN<1Oa[sn-1dal01o=u10Mef—A11OM1I0M—OinN11Io2eOlt1T&=oN1eI1f\aoo.><a2OeO1i&1oM31O’w4oe1AA1ImN4oN1“MOn11IoNM“eNeA‘Oo]<.eQOT541AnO1OoV4O1T1MoTr5OAn1M“INor611I“roKON1Qne1“[L.=o<a“T’,o=An]g“o1O7A1n1oOeN“w1Oo7m4N1Mo0&“1Oo“Tu1“1“eu’‘]oP31s}
3L8A-OVO01¢4—CNO|Ww<.aL-|LO1«—1CO10R
LCLCCCLCCLLLCLCLABCLSCBLCPLeAC0LSCOLBLCOLPLCPL0CBLBCOLOC0L5C&6L0&C5L® ]LL CLLC»LC*
CZMLBBO PERFOR
CE 3 EXERCISER
LSAU ADD UNIT SECTIO
11 N

MACRO M1113
29-MAR-82 13:41

ML11

PAGE 78

6
SEQ 0075

INTERRUPT SERVICE ROUTINE

27-Mar-19 82 19:24:42
27-Mar-1982 19:23:44
PA:<

TOPS

TAXZW=EADOK.Ji~"SNMCY(LRSAEFxwoawEDP(OA"-IW\I)PeLOI61QVW0S4P2.—o=1n70Ii12OM05NnP1N7U01Y0POS!352(AM1oR15—0eSWEPN-5257OAN(11o4002N;IPM:OR50~11PN20SA-V114!5No'=T'1T00O1o2-47o51PN'651NOT10O4W4o50GM"ONTQwoSS.O-11Oo5N1001NeVSo—41oO5WNB4—P0515NNe2U=o41OM65MDo0NI14O1v4OF—1o5NA0OtNO124O10NN0TB102o5e0I—3e1W16TNA4NP1Oo5MNI1104eOMIM102o5NO131TN5MMO’O21I10o5wSM1a4]1P0315-1-14o5OVO01215=41O12o5N05N1P215A01e0C‘5oO101SV(a2rC5.11MN2Y.P]OI5oO41RNPP057—10OOeP=TO‘5o'RSM65o271-LN—O5Q@s5Oec>~5n
1BON27ea0TIoM[8Osl-0547“S=[oY-]IoB21N"o%enA%-"0N1AoT4geOoWn60SOo.gV100N4lVIoOfNS1ImVTP.l1&O0N04OLo'TPI1P54ONGN31%‘=0R
sZ1/cL1L(o/scA~=0]1LT'/lsCOU.1/cs'1/cLiI/.s'1/cn<s0a1/(co0A-=4/ls0'.cC®»-O./s0LlC1/c5U/W1s5Oc&~1/s&L-1cA8l/s0GL1cOL/Is6L'1ycOCJ/1sk¥L0cOC,1sA[TLA/~c18Cs0/1cLOcs81/CSN2L1csdCS/Lm&1"cs5/1L&kL1cs-%/,&L1/cs&=lL1O8(csv&<C1((WE/®A==]]LcsE1/1L1csALC/1csLV/91Al"cs=(o\]421[(<*cs/O<1’<--4=4[
29-MAR-82 13:41

[+ o W (7Y=9
4 > —y LS w [+
4 o o] — [ &)
[Y¥

-6 []

NN N
-a
wyv

MACRO M1113

CE 3 EXERCISER

(A=] wo

AITY 9 ”%0 0%0%0 01H1 M1 1W1Nfl23%2%2”8fifl9§% m8%9 9 9
LSAU ADD UNIT SECTION
Tl

(ZMLBBO PERFOR

L
6
PAGE 79

SEQ 0076

S«

1PmrOe|IEWWENCOHOUKD=ENZELOOWONWWWO\
Ps-—t4iddME2Z/u)UHw.)IOOCF2.4/)U="I‘RIPRw=—uoalr-AiQ0ODZCVXIA@rXiLdOEIULVIiAO=DWTIOAXoEV_—
.N—Y0¢O40U01“OOl|\1|l2t~%O¢104r.n/UN“|OAl1—10‘0OW4oq~IFA1N206Ol.W=¢P|152A4UIO1A51N00qNM~.OV13lY0ON4ON5v01=.10AA1IOl0‘10O.5MeGO-0N2oN3=!e1Al055O12r!O210-NoOO1.=153o!V!0WOM71lWo0N5SON5.3110!O2OCIO!U.1oNM3V5O60(T1I5M.2Zo!AN-1!=O1550~360.©NI1o17T3I5OD_0l1‘0N“5-1)=2O5-O60O.O4A011M6“rNAIlO2c3167N)OOV-!No|N’50&LV41m1-NON5¢6!IwNN2RoM|5N-017MO1A‘IIwN4NY1vo51m2!IO47NO=110R/=Tw5O2Q1o14IM57wO5N1!I6L2N1e!O0oN1n5Y'5O17AR1f~1N!=Q-V0lSo3O511O178f2=110l5OF—1NI4oN15‘1f1ewO5N1~1lO48-1I‘165o1fA101l~73O61A00Nf581oIe11l1u4O9OO0A1f15O80o’NO7OlI0I1“R4e1ONMf1T51W82i2oNe10N3NOM1f1O“531O5’1l—0‘8N4oM1OA0~fI0’”%O56I1OlN11O09S6of115l4’Oe7IN011RNf=98Qo7N11l5NNt1O5%11f16Oo901Ol15%2953
/.//0//=[A=]3[/0///(oA=]/0////.,/o////oA</.////("A=4/]/<//,/oA/////
LSAU ADD UNIT SECTI ON

(/MLBBO PERFOR MANCE

€ XERCISER

MACRO M1113

JMLXG

29-MAR-82 13:41

ML11

M
)
PAGE 80

SEQ 0077

INTERRUPT SERVICE ROUTINE

(=][
=] A

27-Mar-19
27-Mar-19

CZMLBBO PERFORMANCE E XERCISER
LSAU ADD UNIT SECTION

MACRO M1113

1600

sMLXG

608 01
609 01
610 01
611 0N
612 01
613 01
614 01
615 01
616 0
617 01
618 01
619 01
620 011
621 O
622 011240
1623 011243
16246 011246
1625 011251
1626 011254
1627 011257
1628 011262
1629
1630
1631
1632 011264
1633 012264
1634 012264
1635 012664
1636 012664
1637 012666
1638 012670
1639 022670
1640 832670
1641
032672
1642 032674
1643 032676
1644 032700
1645 032700
1646 032702
1647 032702
1648 032704
1649 8357
1650 0327
1651 83 706
165; 32710
1653 032712

116
103
120
107
115

123
124
122
122
110
104
122
122
105
040
107
040
m
104
117
105
103
104

101
122
122

101
105
122
122
000

117
040
122
000
101
040
122
000
103
114
m
106
114
040
040
124
124
101
040
122
000

N
PAGE 81

SEQ 0078

}gg%

1603 011150
604 011153
605 011156
606 011161
607 01

29-MAR-82 13:41

116
040
117
101

106
105
117
000
122
105
117
000
103
117
103
101
105
124
104
105
040
124

P.AEP:

P.AEQ:

P.AER:

105
117

ML11 INTERRUPT SERVICE ROUTINE
LASCI1
.ASCI1
.ASCI1
ASCII
LASCI1

.ASCIl
LASCII
.ASCI1
ASCII
.ASCII
.ASCI1
.ASCI1
ASCII
.ASCII
LASCII
LASCII
ASCII1
+ASCI1
LALCII
ASCI1
LASCII
ASCII
LASCII
LASCII
+ASCII
.ASCI1

SBE.LOG:.BLKW
PM.SBE.CNT:
.BLKW
SBES.COUNT:
BLKW
BIT.NUM: .BLKW
WBUFF:
.BLKW
RBUFF:
.BLKW
WPTR:
.BLKW

RPTR:

.BLkW

QUICK:
.BLKW
PATTERN: .BLKW
DATA.COUNT:
BLKW
COMP. COUNT :
BLKW
EOP.COUNT
:
.BLK
BASE.ADDR
BLKW
VEC:
BLKW
BR.LEVEL:

/NAN/
/CE /
/PRO/
/GRA/
/M/<00>

/SOF/
/T E/
/RRO/
/R/<00><00>
/HAR/
/D E/
/RRO/
/R/<00><00>
/ECC/
/7 LO/
/GIC/
/ FA/
/ILE/
/D T/
/0 D/
/ETE/
/CT /
/DAT/

/A E/
/RRO/
/R/<00>

400

200

1
1
4000
4000
1
1

1
1

1
1
1

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS

PA:<

BLKW
W( . THOUSANDS:
.BLKW
WC.MILLIONS:

b
i o
i e e
e

N NN
VWA
OO O

°°°§° 'SI3

DRIVE.STATUS::
.8LKB
.EVEN
DROPT.DRIVES::
.BLKB
.EVEN
WHY
. .DROPT : :
.BLKV
NUM.DRIVES::
.BLKW
LOW.SECT::
.BLKW
TOP.SECT::
.BLKW
PATTBL
: .WORD
:
-WORD
-WORD

—d
-b
—d
-—b

.BLKW

WC.COUNT:

BLKW

RD.MILLIONS:

-—

LBLKW

RD.THOUSANDS:

ML.REG::.BLKW
PTABLE.ADDR::

e e

= 000

BLKY

RD.COUNT:

SIS

WR. THOUSANDS:
BLKW

RETRYING:
BLKW
BOARD:
.BLKW
BANK:
.BLKW

b o

SRERG 288289

.BLKW
.BLKW

-—b

N NN
N
NN
PV WO
(=] oo
»

NN~
U‘WW_‘_._._.

N NN

(=]
W

QOOOC

b i
b

SOFTS:

)

A 2223
WA -2 OO0 NO&
RRELRRP AR
R R RRETE

d ok —

(ol ONONON
oA
Al 1Y,

b —d cd cod e
i awd e

&
NN
=2 OO

d o md o e e

NNNNN

Laloal
ol alea

WR.MILLIONS:

e
e

oo i e

e ech b o

NNNNNN N NN
©

ML11

HARDS:
.BLKW
TRIES:
.BLKW
WR.COUNT:

034442
693 034442
694
695 034444
696 034444

e e

MACRO M1113 29-MAR-82 13:41
sMLXS

d ek
b =l

1675 0

XERCISER

LS T T

(ZMLBBO PERFORMAN

LSAU ADD UNIT SEC

26
10

10
10

0
2000
1

PAGE 82
INTERRUPT SERVICE ROUTINE

SEQ 0079

27-Mar-198 2 19:24:42
27-Mar-198 2 19:23:44

TOPS
PA:<

(IMLBBU PERFORMANCE 3 XERCISER
(=]

P30
nNO

VWA

RRRes

000001
000004
000004
000011

000011
002000
002000

.GLOBL
.GLOBL
.GLOB!
+GLOBL
.GLOBL

EFNS21, LSUNIT, LSLUN, LIMIT, RANGE

27-Par-198 2 19:24
19:2 :42

TOPS

27-Mar-1982 19:23:44

PA:<

27-Mar-19 82 19:2 4:4 P4
4
27~Mar-1982 19:23:4
19:2

TOPS
PA:<

000
000

LSECT, TSECT, ONLY, DROPNE, DROP1
DRCP2, DROP3, DROP4, DROPS, MARPAT

REFRESH, ECCDIS, EOPSUM, ERROUT
SEED1, SEED2, SEED3, RANDOM, RN

=100000

(=
QOO
* TS—-a
PN SN

)
)

e wmf g

=SAINIUAN NN B AN
8 =AY

v
] ) el e
= NI
S~ N

8l7

8IT0==

£ OO EV.
T. XTo)
OCOO0QO

SRS OO NN

) b ch i
b

NN OO0

WIIVAWAWAWAWVWAWVIWIAS
&

b e

Sung Grong Smg Dot g Drung Suug By

DOOOO®DODDD

BIT

N NN N NN NN N N N NN N NI N SN N N N

it b b o o ok e e wnnd ind srch o o e

[}

b e e e

b e

bug

OOm

W
~

el b

INTERRUPT SERVICE ROUTINE

-WORD
-WORD
-WORD
.WORD
.WORD
.WORD
.WORD

O =—2rolN &N

100000
040000

ML11
NINS
b b BN
N b

W
&
IWA

NN
LNOO

sMLX4
[=lelelelelel.]

PAGE 83

SEQ 0080

) wmd i

b b b

SNSNNSNNNYN

L«

29-MAR-82 13:41

D aod e

b d d b d e md i i e

o o

g\lg\l
VIS NN = O 000~ O WIS NN = OV 00 NN D NN -

NINININININ)
b b cad ed end b md 3 o) —d

NN NNNISN
N NN SN NN N N~

LSAU ADD UNIT SECT] ON

MACRO M1113

EF .START==
EF .RESTART==
EF . CONTINUE==

000140
ML11

INTERRUPT SERVICE ROUTINE

LSAU ADD UNIT

(ZMLBBO PERFOR

XERCISER

MACRO M1113

29-MAR-82 13:41

D_7

PAGE 83-1

SEQ 0081
0O
(=]

1767
1768
1769
1770
1771
1772
1773

END.RBUFF=
PHRZ21=
FMT16=

SBESHEADER=
FMT1A=

FMT1B=
FMT2=
FMY3=

FMT4A=

FMT4B=
FMT4(C=

FEMTS=

FMT6=
FMY7=

FMT8=
EMT9=
FMT10A=
FMT108B=
FMT11=
FMT12A=
FMT128=
FMT13=
FMT14=
FMT15=
CRLF=
SAY1=
SAY2=
SAY3=

b vd b conb e e cend

007152

007200

SAYé=
SAYS=

sMLX4

WRD2=

WBUFF +1000

RBUFF
RBUFF +1000
WBUFF +10000
RBUFF +10000

P.AAA
P.AAB
P.AAD

P.AAF
P.AAG
P.AAH
P.AAL
P.AAJ
P.AAK
P.AAL
P.AAN
P.AAN
P.AAO
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

ML11 INTERRUPT SERVICE ROUTINE
P.ABD

27-Mar-198 21 :26:42
27-Mar-1982 1 :23:44
00

HOE==
WDBUFF=
WCBUFF=
RDBUFF
=
RCBUFF=
END.WSUFF=

b b reh

R
W= OOV
NN =O

obboi

Hann
LU U (I
T

(=]

2EEEITIIIIIS
SNNNNN
—b b b b :::.-a
NNN
::3-1

e oRee SRESIFIFILS32 ] SEIRRR

e v b o o ee b

0B 00 00 00 0o OG0 0 00 00 00 00 00

beb=b

PR]==

TOPS
PA:<

SEQ 0C82

WRD3=

WRD4=
WRD6=
WRD7=
WRD1
WRD1
WRD1
WRD1
WRD1
WRD1
WRD2

WRD2
WRD3
WRD3
WRD3
WRD3
WRD38

raanunan i nnun

[e e 1o -]

NN
WA
-

£E_7

PAGE 83-2

b e

D ek

oed i

and i

b e i

et
gPBDRRBRRED
SIS -~ OO B

b s

R SRA R

aRaEssssEE[«[vd

SRR
R R R-OR
3@&@&@&
OOVONO VSN
»og ngfi

bb
o b ks nd und e med

1829

007206
007212
007220
007230
gu7240
007246

29-MAR~82 13:41

0 0
O
NIAY
NS OO0\
=

LSAU ADD UNIT SECTION

MACRO M1113

(ZMLBBO PERFORMANCE EXERCISER

P.ACS
P.ACT
P.ACU
P.ACV
P.ACY
P.ACX
P.ACY
P.AC2
P.ADA
P.ADB
P.ADC

ML11 INTERRUPT SERVICE ROUTINE
P.ADD
P.ADE
P.ADF

27-Mar-198 2 19:24:4
:42
27-Mar-1982 19:23:4 'A

TOPS
PA:<

It
|

IMLBBU PERFORMANCE EXERCISER
$AU ADD UNIT SECTION
1881
1882
1883
1884
1885
1886
1887
1888
1889

1890

1891
1892

1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920

1921
1922
1926 034544
1927 034544
1928 034552
19%3
19
;331

MACRO M1113

v07714
007730
007746
007770
010004
010026
010050
010066
010100

PHR1=
PHR?=
PHR3=
PHR4=
PHRS=
PHR6=

P.ADG
P.ADH
P.ADI
P.ADJ
P.ADK
P.ADL

PHR?7=

P.ADR

PHR8=
PHRO=
PHR10=

010120

010140
010202

P.ADN
P.ADO
P.ADP

PHR11=

P.ADQ

PHR12=
PHR13=
PHR14=
PHR15=
PHR16=
PHR17=

010240
010266
010304
010322
010342
010366
010410
010430
010444
010446
010450
010454
010460
010502
010526
010602
0106656

P.ADR
P.ADS
P.ADT
P.ADU
P.ADV
P.ADW

PHR18=
PHR19=

P.ADX
P.ADY

PHRZ20=

P.AD2

TRT00=
TRT01=
TRT10=
TRT11=
CAUSE1=

P.AEA
P.AEB
P.AEC
P.AED
P.AEE

CAUSE2=
CAUSE 3=

P.AEF
P.AEG

CAUSES4=

P.AEH

CAUSE5=
CAUSES=

010710
010734

P.AE]
P.AEJ

CAUSE7=

010756
011002
011070
011120

P.AEK

CAUSES8=

P.AEL

MSG0=

P.AER

MSG2=
MSG3=
MSGé=
MSGS=

P.AEQ
P.AEP
P.AEQ
P.AER

MSG1=

011166

011202
011216

P.AEN

SBTTL

012767
000002

000001

F_?
PAGE 83-3

SEQ 0083

177564

SERVICE ML11 INTERRUPT SERVICE ROUTINE

SERVICE::
MoV
RTI

#1,1.AM.DONE

ML1T INTERRUPT SERVICE ROUTINE

JMLXG

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

1939

1940
1961 MLX4
1?6; H
194
1944 H

29-MAR-82 13:41

ONCE-ONLY CODE

2348

2Xsbttl °'ONCE-ONLY CODE'

27-Rar-1982 19:24:42
27-Mar-1982 19:23:44

0 words

27-Mar-198
27-Mar-198

§:42
$ 1333:44

TOPS=-20 Bliss-16 v2(21 2)
PA: <NEALE>MLX4.BLI.S5 (5)

234¢
2345

10PS

PA:<

232222323 920822 333338952
ROCISRRRRE

CIMLBB0 PERFORMANCE EXERCISER
MACRO M1113
SERVICE ML11 INTERRUPT SERVICE ROUTINE

‘e
: ROUTINE:

CLRTBLS

.
H
:

2355
2356
sggg

!
!
:

THIS ROUTINE IS CALLED BY THE INITIALIZATION CODE WHEN
A ‘START' OR ‘RESTART' COMMAND HAS BEEN USED TO BEGIN
THE PROGRAM.
THE PURPOSES OF THE ROUTINE ARE:

%ggg

(i)

TO INITIALIZE STATISTICS TABLES

2361
2362

(2)

TO SET ALL DRIVE AND ARRAY STATUS LOCATIONS TO ACTIVE
NOTE: EVEN IF A UNIT WAS DROPPED DURING A PRFVIOUS

2366

2368

!~-

V0000

VILIVLAW

routine CLRIBLS : novalue =
begin

:
:
:
:

:
:
71
;:
:
:
:
o

SEQ 0084

2349
2350
2351
235%
gg‘

;

:
:

:
:
:

1982H
[
W

G_7

PAGE 83-4

:
H
:
:
:

28 3883338888 888533 2

29-MAR-82 13.41

;
:
:

:
:

2363

2367

2369
2370
2371

2372

2373
2374
2375
2376
2377
2378

RUN,

THE START OR RESTART COMMAND GUARANTEES

THAT THE DRIVE WILL ONCE AGAIN BE TESTABLE.

(3)

TO ENABLE THE RUNNING OF ALL TEST OPTIONS IF THE

OPERATOR WANTED THER ALL TO RUN.

!+
'THIS IS THE CODE FOR PURPOSE 1:

incr LUN from 0 to (.LSUNIT - 1) do
begin
.
incr ARRAY from 0 to 15 do
be?in
SOFTS [.LUN,

.ARRAY, 0, 16, 0] = 0;

TRIES

.ARRAY, 0, 16, 0] = 0;

HARDS E.LUN. +ARRAY, 0, 16, 0] = 0;

2382
2383
gggg

end;

2381

[.LUN,

end;

2386

SBES_COUNT = 0.

2387

EOP_TOUNT = 0.

2388

NUM_DRIVES = 0;

2389
2390
2391

WR_MILLIONS = O;
RD_COUNT = 0.

2395

RD_MILLIONS = 0;

2396

;

S%gg

2397

MLXG
H

RD_THOUSANDS = 0

WC_COUNT = .

WC_THOUSANDS = 0;
WC_MILLIONS = 0;

ONCE-ONLY CODE

26400

! VER CZMLBB ADDED CLEARING THIS VARIABLE

RETRYING = INACTIVE;
WR_COUNT = 0.
WR_THOUSANDS = 0;

239
239

2379

2394

2380

PURPOSE:

‘e 1«

!THIS 1S THE CODE FOR PURPOSE 2:

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

TOPS-20 Bliss-16 v2(2 12)

PA:<NEALE>MLX4.BLI.S

(ZMLBB0O PE?:ORHANCE EXERCISER

SERVICE ML11

2002 ;

2003 .

004 .

005 ;
2006 :
2007 ;
2008 ;
2009 ;
2010
2011 ;
2012 ;
2013 .
2014 ;

2018 ;

2016 ;
2017 ;
2018 ;
2019 ;
2020 ;
2021 ;
2022 ;
2023 ;
2024 ;
2025 :

MACRO M1113

INTERRUPT SERVICE ROUTINE

2403

2404

2416

2417
2418
2419
2420
2421
2622
2423
2424
2425
2426

PAGE 83-5
SEQ 0085

incr LUN from 0 to (.LSUNIT - 1) do
egin

26405

406
407
2408
2409
2410
2611
241;
2413
26146
2415

29-MAR-82 13:41

LSCUN = .LUN;

LOW SECT
[.LUN] =
0.
DRIVE_STATUS [.LUN] = ACTIVE;
DROPT DRIVES [.SUNJ = INACTIVE;
wHY_DROPT [.LUN] = 0;
end;

e 2 ¢

e 2 @

'+
!THIS IS THE CODE FOR PURPOSE 3:
!~

if .DROPNE eql 0

then

egin
DROP1 = Q;
DROP2 = Q;
DROP3 = 0.,
DROP4 = 0.
DROPS = O0;
end;

't 3 »

a3«

%8%? H

szgg

2028 ;
2029 :
2030 ;
2031 ;
2032 ;
2033 .
2034
2035
2036 :
2037 ;
2038 .
2039 ;
2040 ;
2061 ;
2042 ;
2043 ;
2044 ;
2045 ;

2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2642
2443
2444
2445
2446

gzzg

; VER CZMLBB ADDED CLEARING OF THIS STRUCTURE

2048 ;
2049 ;
2050 ;

2449
2450
2451

! The prom maintanence program is called out
! to be run on a particular array
ule when
! that array module has colliected 10
unique

%829 :

; VER CZMLBB ADDED CLEARING OF THIS STRUCTURE

! The single bit error log table stores all
! detected sbe's detected durvng the run time
! of the exerciser.
In this table is stored
! the sbe's: unit #, board #, bank
#, bit #
! and a count of how many times this sbe has
! reoccured.
!
.
! This code initializes this structure to zeroes
! before starting execution of the exerciser.
l-

incr index from 0 to 127 do
begin
SBE_LOG [.index, WRDS_0]
SBE_LOG [.index, WRDS_1]
end;

!Clear the single bit error lLog table
= ZERO:
= ZERO;

!Clear word zero
!Clear word one

E EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE ‘4

CZMLBBO PERFORMANC
SERVICE ML11 INTERRUPT SERVICE ROUTINE

2052 .mLxs

Sggz :
2055
2056
2057
2058

;
:
;
;

2059 ;

2060 ;
2061 ;
2062 ;

2456

2457
2458
2459

5822 :

szgg

2065 ;
%82? :

2462
5222

2068 ;

2465

gggg :

2074

2078 0345564
2079 034560
2080 034564
2081 034566
2082 034570
2083 034572
2084 034574
2085 034576
2086 034600
2087 034602
2088 034604
2089 034606
2090 034610
2091 034612
2092 034616
2093 03462
2094 034626
2095 034630
2096 034634
2097 034636
2098 034640

2466

0064167
016704
005001
000424
010100
006300
006300

006300
006300
005003
010002
060302
006302
005062
005062
005062
005203
020327
003763
005201
020104

2099 034642
2100 034644
2101 034650
210% 034656
2103 034660

002752
005067
005067
005067
005067

2105 034670
2106 034674

5067
005067

2104 034664

SEQ CCBE

27-Mar-1982 19:5‘:62

ONCE~ONLY CODE
2645
45
454
2455

005067

27-Mar-1982 19-23:44

TOPS~20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S (5)

! tailing chips.
This structure stores for
! each array within each unit its total number
! of unique failing chips.
!
.

This code initializes
this structure to zeroes

! before the exerciier is executed.
e

incr UNJT_SEL from 0 to 7 do

!Clear each units table

incr ARRAY_SEL from 0 to 15 do
!Clear each orra‘ within each unit
PM_SBE_CNT [.UNIT_SEL, .ARRAY_SEL, PM_SBES_SUM] = 2ERO:
!Clear this array sum

return;

end;
150534
145226

032714
033314
033714
000017

SBTTL

CLRTBLS:JSR
MOV
CLR
BR
18:
MoV
ASL
ASL
ASL
ASL
CLR
2s8:
MoV
ADD
ASL
(LR
CLR
CLR
INC
cwe
BLE
INC
3s:
P

CLRTBLS ONCE~ONLY CODE

R1,$SAVES
LSUNIT R4
R1
33
R1,RO
RO
R0
RO
RO
R3
RO.R2
R3.R2
R2
SOFTS(R2)
HARDS (R2)
TRIES(R2)
R3
R3,.#17
23
R1
R1.R4

156014
176030
177576
177454

BLY
CLR
CLR
CLR
CLR

1%
SBES. COUNT
EOP.COUNT
NUM.DRIVES
RETRYING

177422
177420

CLR
CLR

WR. THOUSANDS
WR.MILLIONS

177424

CLR

WR.COUNT

:
:
: LUN

2349
2374

: LUN,»

2379

; ARRAY
:
s ARRAY,*

2377
2379

H
:
s ARRAY
; ARRAY,*

2380
2381
2377

; LUN
: LUN,»

2374

:
:
:
:

2386
2387
2388
2389

:
:

2390

2391
2392

CZMLBBO PERFORMANCE EXERCISER

#DRIVE.STATU
(SP)
S,

177770
000001

#177770, (SP)
#1,-(SP)

Wy
Wy
By
%o
WaVe

R1, (SP)

#197770, (sP)
#1,-(SP}

; LUN
=

WHY . DROPT(R2)
036.SP
R

*(LUN)

R2,-( SP)

000001

-($P)
PC,E5L8PUR

S O0ON

N rvivy

b el end wuld cad

145156

6$:
7%:

R2,.Ré
43
DROPNE
6$
DROP1
DROP
DROP
DROP4
DROPS
R3

R3.R2

R2
R2
SBE.LOG(R2)
SBE.LOG+2(R2)
R3
R3.#177
78
R3

LUN
LUN,

PN NS FY T

5%:

147560
034446

emd wub

TOPS

PA:
<

2393
2394
2395
2396
2397
2398
2403

2407

2408

177770

cnd e

(SP) ,=(SP)
PC.BLSPU2

#DR
. DRIVES,
OPT
(SP)

LUN,«

034444

SED
N
VvtV

RENSRERT

(=
-h

WA\

LUN,
«

R2,=(SP)

147606

000177

R1
R1
R1,-(SP)

034442

011264
011266

2405
2406

LI R

NNt

RNINIZIR

822283§
NSRS

S22
nNOVSO

)
= o cd

LUN

LOW.SECT(RT)

000016

2 OQNOmgWHSOO O
O
QOO
N4 O
WA A A N A
A AN AN
N
VARWAWWAWVIVAWLALA

5%
R2,LSLUN
R2,R1
R1

So00oN s~

)

s
b e
md

NNNNNN
N~

g’ P FRRRREER
NN
P (v
N\
NI
)
N
&» OJ‘O?O

VvV S
o000

OOO00O0CO00

VAVA\AW

NN NN

OO QO

27-Mar-1982 19:
27-Mar-1982 19:

ONCE-ONLY CODE

&»H
»

AL AVAVAVAW

R2,R1

b b b wd o

-— —

QSIS LSTSUNT NS IS NS LN NTNT N LN TNTNT NT ST NT.NT.NY[pS NINT,NT.NY
NT 5]NN

034460

4 035046

PAGE 85

RD.COUNT
RD. THOUSANDS
RD.MILLIONS
WC.COUNT
WC. THOUSANDS
Ug.HILLIONS
R

004767

anNNRRN

29-MAR-8¢ 13:41

SEQ 0087

sMLX4

oo QOOD QOO0

b de-

NINIAINIAIN) N

(=4
154 4V Sved obrtTM BBNR AR N—.-O-J—O-A—l—‘—la—l—ho
OO0 NO NS WNI—=OO oo

CLRYBLS ONCE-ONLY CODE

MACRO M1113

INDEX
INDEX,*

INDEX
INDEX
,*

UNIT.SEL

(ZMLBBO PERFORMANCE EXERCISER
CLRTBLS ONCE-ONLY CODE

2164
2165
2166
2167 035136
2168 035140
2169 035142
2170 035144
2171 035146
2172 035150
2173 035152
2174 035154

2175 035156
2176 035160
2177 035164
2178 035166
2179 035172

2180 035174
2181 035176
2182 035202
2183 035204
2184

2185

2186

2191
2192

MACRO M1113

29-MAR-82 13:41

SEQ 0088

sMLX&
010300

006300

012264

000017
000007

K
7
PAGE 86

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

ONCE-ONLY CODE

8s:

MoV
ASL
ASL
ASL
ASL

9s:

MoV
ADD

CLR

ASL
CLR
INC
CMP
BLE
INC
CMp
BLE

RTS

: Routine Size:

TOPS
PA:<

; UNIT.SEL,»

2463

: ARRAY.SEL

2462
2463

s ARRAY.SEL,*

:M.SBE.CNT(R1)

R2.#17
93
R3
R3,#7
8s

2462

: UNIT.SEL

2460

; UNIT.SEL,»

141 words .

: ARRAY,SEL
s ARRAY.SEL,*

2349
.

: Maximum stack depth per invocation:

12 words

CZMLBBO PERFORMANCE EXERCISER
CLRTBLS ONCE~ONLY CODE

2467

2468

2669
3470
2471
247
247
2474
2475
2476
2477
2478

routine INIT_ADDRESSES (PLOC)

begin

;

ROUTINE :

PURPOSE:

!
;

SEa 0089

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

ONCE-ONLY (ODE
: novalue =

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.5 (6)

e 1 »

INIT_ADDRESSES (PLOC)

THIS ROUTINE IS CALLED ONLY ONCE DURING THE INITIALIZATION

CODE, EVEN IF THERE IS MORE THAN ONE DRIVE PRESENT.
PURPOSES OF THE ROUTINE ARE:

THE

(1)

(2)

TO SET UP THE ADDRESSES FOR THE 22 ML-11 REGISTERS.

(3)

71O SET UP THE INTERRUPT SERVICE ROUTINE AT THE

!
{

i
;

ARGUMENT:

TO OBTAIN HARDWARE P-~TABLE INFORMATION FROM

MAIN MEMORY WHICH PERTAINS TO ALL DRIVES.

CORRECT PRIORITY, AND LOWER THE CPU PRIORITY TO
ALLOW INTERRUPTS TO OCCUR.

PLOC = THE POINTER TO THE LOCATION IN MAIN MEMORY WHERE
THE HARDWARE P-TABLE IS TO BE FOUND.

local
TEMP,

PRIORITY,

OFFSET;
s

;THIS IS THE CODE FOR PURPOSE 1:

BASE_ADDR = .(.PLOC + 0);
VEC = .(.PLOC + 2);
BR_LEVEL = (.PLOC + &4);

PRIORITY = .BR_LEVEL"S:
if .ECCDIS
then
o

TENP = WRD37

1ECC IS DISABLED

TEMP = WRD36:

'ECC IS ENABLED (NORMAL OPERATION)

PRINTB (CRL F);
PRINTB (SAY 5, WRD34, WRD4O, WRD3B,

.TEMP, WRD41):
! 'RUNNING ¥ ITH ECC ENABLED/DISABLED AND'

if .REFRESH
then
TEMP = WRD36
else
TEMP = WRD37.

!REFRESH MARGINING IS ENABLED
!REFRESH MARGINING IS DISABLED (NORMAL OPERATION)

b amd wand cmd end sl el
b aud

WAIAWAWAWAWIAAWG

NN
NN —O

eiLse

[AST, ST ST, ST, 87,87, 87,81

B0, 0000800,

05 0% 0005000 0,80000;5 %y 4,

De®a 0o 0005 000000000, % 09009 % 6,00 n, Ve T 00090009,
% 000,00

JMLXS

MACRO M1113 29-MAR-82 13:41 PAGE h? I4

27~Mar-198 2 19:
27-Mar-198 2 19:

TOPS~20 Bliss~-16 v2(2
( 12)
PA:<NEALE>MLXG.BL]. 5 6)

——

WVISMANN
= OO0 NO NS NN = OO

VIV
NN NN AN N

.TEMP);

!‘WITH REFRESH MARGINING ENABLED/DISABLED®

PRINTB (CRLF);
'+

;THIS IS THE CODE FOR PURPOSE 2:

OFFSET = 0;
incr COUNT from 0 to (NUM_REGS - 1) do

begin
ML_REG [.COUNT] = .BASE_ADDR + ,OFFSET;

v 2 x

end;

In 2

OFSSEt = ,OFFSET + 2

SETPRI (PRIO0D);
SETVEC (.VEC, SERVICE,
return;

.PRIORITY);

end;

004167
016602
011267
016267

,SBTTL
INTT
. ADDRESSES:

150102

JSR

000014
175464

144772

007400
007370
007066
000001

R1.$SAVES
14(SP) .R2?
(R2) ,BASE
. ADDR

PLOC,
*

4(R2) .BR.LEVEL
BR.LEVEL ,~(SP)
#5.-(SP)
pc.a§ssur
RO.R
g;.sccoxs

147742

012716
012746
010600
104414

INIT.ADDRESSES ONCE~ONLY CODE

2(R2) ,VEC

175460
175454

000005
000001

#RD37.RY

1$:

#WRD36,R1

#CRLF, (SP)

#1,=(SP)

SP.RO
14

*,PRIORITY
LT RPN PN ¥

P YA PN YA S Sy Sy LRI

mn
7
PAGE 88

SEQ 0090

PRINTB (SAY3, WRD40, PHR3,

016267

035310

29-MAR-82 13:41

ETHIS IS THE CODE FOR PURPOSE 3:

AXE TR PR T TN T P

035206

MACRO M1113

ONCE-ONLY CODE
NININININI
AN NININININI NI NI NI POA L

Y e %s N0,

sMLX6

I T IR YO

NOWVISNNI=O

WViwawmIiwWAWL

NS IS\ Y]

CZMLBBO PERFORMANCE EXERCISER
CLRTBLS ONCE-ONLY CJODE

*, TEMP
~, TEMP
SP,x

CZMLBBO PERFORMANCE EXtRCISER
INIT.ADDRESSES ONCE-ONLY CODE

MACRO M1113

2306

JMLXS

2309 035312
2310 035316

2311 035320

2312 035324
2313 035330
2314 035334

2315 035340
2316 035344
2317 035346
2318 035350
2319 035356

012716
010146

012746

012746
012746
012746

012746
010600
104414
032767
001403

007424

012701
000402
012701

007370

2324 035374
2325 035400

012746
012746

007746
007416

2326 0354046
2327 035410

010116

012746
012746

2328 035414

010600

2330 035420
2331 035424
2332 035430

012716
012746
010600

2329 035416

2333 035432
2334 035436
2335 035436

104414

010001

2338 035446
2339 035450
2340 035452
5 1 035456

016704
060204
010461
062702

2337 035442

035462

007400

006301

005200

005000

347

010316

035476
sg

175236
034346
000002

035510

104441

12746

12766

034544

175200

01 749 000503

#WRD41, (SP)
R1,=(SP)

#6,-(SP)
SP.RO
14
#1 ,REFRESH
3s

MOV
MOV

#PHR3, = (SP)
MIRDLO
< (SP)
,

#SAY3,=(SP)
#4,-(SP)

TRAP

MOV
MoV
MOV

TRAP
CLR
CLR

2514

: %, TEMP
:
: o« TEMP

2516
2514
2518

: TEMP,»

SP.RO

: SP,*

#CRLF, (SP)
#1,-(SP)
SP.RO

:
: OFFSET
: COUNT

RO,R1

: COUNT,#*

MOV
ADD
MOV
ADD

BASE
. ADDR, R4
R2.Ré
nl..ns.neemn
#2.R

: OFFSET,»

INC

2520

2522

: SP,x

14
R2
RO

MOV
ASL

2511

: SP,%

R1, (SP}

MOV
MOV

MoV

TOPS

PA:<

MIRDG0
- (SP)
MIRD34
.~ (SP)
#SAYS ,=(SP)

MIRD36,R1
4
#WRD37,R1

MoV

:
* TEMP,«

MIRD38,
- (SP)

MOV
B8R
MOV

; *,OFFSET

: COUNT

2528
2530

2532

2533

RO, #25

: COUNT,»

2530

gua

2540

: PRIORITY,*

2541

BLE

RAP

§'
000042
é 0 §§}‘
5523 10“53
289
55
356

3s:

38:

5$:

003763

345 035472

23«75 0 gm

144674

007066
000001

234 035494 020027 000025
344 035470

MOV
MOV
TRAP
BIT
BEQ

007112
000004

104414
005002
005000

2336 035440

MOV
MOV
MOV

000006

2320 035360
2321 035364
2322 035366
2323 035372

MOV

007416
007344
007152

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

ONCE=-ONLY CODE

MoV
MoV

007412

000001

N 7
PAGE 89
SEQ 0091

g%gg

342

29-MAR-82 13:41

ROY

;gf
RTS

;

(sP)

RVICE,~(SP)

.~(SP}

.=(SP)

;42 SP
PC

: Routine Size:
103 words
: Raximum stack depth per invocation:

2467
22 words

C/MLBBO PERFORMANCE EXERCISER
IN1
. ADDRESSES
7 ONCE-ONLY CODE

2362 .MLX4

%3322 :
2365 ;

2366 ;
2367 ;
2368 ;

2369 ;

5%;9 :
2372

2544

2545
2546
2547

PAGE 90

SEQ 0092

7-Mar-1982 19:24:42

2548

%ggg
2551

routine SAYWHO (LUN)
begin

'+e

ROUTINE:

SAYWHO (LUN)

PURPOSE:

TO PRINT OUT AN IDENTIFICATION LINE WHICH INCLUDES:

2375 ;
2376
2377 :

2554
2555
2556

!
!
!--

2557

LOGICAL UNIT: X

DRIVE: Y

SERIAL #: 2222

THE UNIT'S SERJAL NUMBER IN EITHER BCD OR OCTAL FORMAT.
BCD WILL BE PRINTED AS LONG AS THE DIGITS ARE ALL VALID.
locatl
03.
D2.
01.
00;

Sgg? :

2567
2568

gg%

D3 = .SN3:
D2 = .SN2:
D1 = .SN1;
D0 = ,SNO:
PRINTB (FMT4A, PHR7, .LUN, WRD11, .DRIVE):

2392 :
2393 ;
239 ;

2571
2572
2573

if ((.D3 gtr 9) or (.D2 gtr 9) or (.D1 gtr 9) or (.DO gtr 9))
then
PRINTB (FMT4B, PHRB, .MLSN)

2575

else

2580

'
SERJAL #: DDDD*
return;
end;

2388 :
2389 :

2395 ¢

2574

2397 :
2398 :
2399 .
2400 ;

2576
2577
2578
2579

2396 ;

528; :

2406
2610 035524
2411 035530

004167
017705

2413 035536
2414 035540

006205
006205

2412 035534

2415 035542
2616 035544
17

22%3

26420 035546
2421 035552
2422 035556
2423 035560
2424 035564

006205

'*LOGICAL UNIT: X

147604
176642

117701

DRIVE: v*

TSERIAL #: 221811

PRINTB (FMT4C, PHRS8, .D3, .p2, .D1, .DO):

.SBTTL
SAYWHO: JSR
Moy

JMLX4

177760
176620

177760

176606

SAYWHO DRIVE IDENTIFICATION ROUTINES
R1,$SAVES
:
@ML.REG+30.RS5
: *_D3

ASR

ASR
SWAB

RS
RS

ASR
ASR

006205
000305

042705
017704
000304
042704

TOPS=-20 Bliss=16 v2(212)

PA: <NEALE>MLX4.BLI.S (7)

: novalue =

!
!

2558
2559
2560
2561
2562
2563
2564
2565
2566

7-Mar-1982 19:23:44

Isbttl 'DRIVE IDENTIFICATION ROUTINES'

Sggg

778 :

29-MAR-82 13:41

DRIVE IDENTIFICATION ROUTINES

gg;z :

23579 ;
2380 ;
2381 ;
2382 :
2383 .
2384 ;
2385 ;
2386 ;
2387 ;

MACRO Mi113

8IC
MoV
SWAB
BIC

Movs

RS
RS

DRIVE IDENTIFICATION ROUTINES

#177760,RS
aML.REG+30,Ré
Ré
#177760.R4
aML .REG+30,R1

2545
2564

: s

:
:
;
.

D3
D3
D3
D3

: *,D3
s+, D2
: Dé
: v,D2

;s .01

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS

PA:<

2565
2566

ERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 80-

(ZMLBBO PERFORMANCE EX
SAYWHO DRIVE IDENTIFICATI ON
ROUTINES

2625 035570
2626 035572
2627 035574
2628 035576
2629 035600

006201
006201
006201
006201
042701

2431 035610

042702

2430 035606
2632 035614

117702

016603

ASR
ASR
ASR
ASR
BIC

177760

176566

MOVB

177760

8IC

000016

MOV

2633 035620
2634 035622
2435 035626

006303
016303
016346

034422
000006

ASL
MOV
MoV

2637 035636

016646

000022

MOV

2441 035656
2642 035660
2643 035662
2644 035666
2645 035670
2646 035676
26447 035676
2448 035702
2449 035706

010600
104414
020527
003011
020427
003006
020127
003003
020227

26451 035712

017746

2436 035632 012746 007240

2638 035642 012746 010050
2639 035646 012746 006216
2640 035652 012746 000005

26450 035710 003413
2652 035716

000011

000011
000011
000011

176460

012746

010066

2454 035726
2455 035732

012745
010600

00003

2457 035736

000416

2453 035722

1$:

012746 006252

2458 035740
2459 035742

2460 035744
2461 035746
26462 035750
2663 035754
2464 035760

26465 035764

010446
010546

012746
012746
012746

010600

2666 035766
2467 035770

104414
062706

3293 036000

000207

2468 035776

000006

062706 000024

16 (sp) ,R3

. LN,

2568

: +,D0

3
PTAgLE
ADDR(RS) .R3

22(SP).=(SP)

; LUN,*

MOV
TRAP
P
BGT
cMP
BGT
P
86T
P

SP.RO
14
RS, 411
1%
RG,#11
18’
a1 M
13
R2,411

: SP,*

: D0,

MOV

afll.REG+30 ~(SP)

BLE

MoV

B8R

mov
MOV

MOV
MOV
oV

MOV

3s:

2567

#PHR7
< (SP)
SFMT4A,~(SP)
#5,~(SP)

nov
ROV

010066
006270
000006

TRAP
ADD

ADD
RTS

; D3,¢

: D1,

#PHRS, - (SP}

: SP,e

R2,-(SP)
R1.~(SP)

Ré.=(SP)
RS,=(SP)

: o;.t
: D3,

SP,RO

: SP,x

PRS- (SP)
SFATLE,~(SP)
#6,-(SP)
:g sp

#24,sp

2581

routine CONFIG (LUN) : novalue =

2576

; Maximum stack depth per invocation:
DRIVE IDENTIFICATION ROUTINES

2571

: 00,*
S Dloe

52;(5)

2481
2482 :MLX4
zzgz :
2
2485 ;

2573

FENTLE, -(sp>

#3,-(SP)
SP.RO

: Routine Size:
SMLXG

257

: D2,

2471
2472

52;2

D1
D1
01
D1
+,D1

: *.00

”

MOV
MoV
MoV

MOV

28:

;
t
t
2
:

%nmmaz

auno1i -(sp)

TRAP

010246
010146

R1
R1
R1
R1
#177760.R1

MOV

MOV
MOV

2656 035734 104414

SEQ 0093

87 words

ORIVE IDENTIFICATION ROUTINES

2545
27-Mar-1982 19:24:4

27-Mar-1982 19:23:4

19 words

27-Har-19g$ 19:54:42
o7-Mar-1982
19:03:44

TOPS=-20 Bliss=-16 v2(212)
PA:<NEALE>MLX4.BLI.S (8)

PA:<
TOPS

CZMLBBO PERFORMANCE EXERCISER

SAYWHO DRIVE

2486 ;
2487 ;
2488 ;
2489 :
2490 ;
26491 ;
24692 :

MACRO M1113

IDENTIFICATION ROUTINES

29-MAR-82 13:41

PAGE 90-?2
SEQ 0094

gzgz :

2582
2583
2584
2585
2586
2587
2588

%ggg

'+
'
ROUTINE:
!
!
PURPOSE:
!

CONFIG IS CALLED BY THE INITIALIZATION CODE FOR EACH DRIVE
WHICH SUCCESSFULLY RESPONDS TO A REQUEST FOR ITS HARDWARE

%232 :

%235

;

(1)

TO CHECK THAT THE DRIVE IS POWERED UP.

%28; H

%ggz

;

(2)

TO VERIFY THAT THE DRIVE IS AN ML11 UNIT.

2499 ;

2595

(3)

%gg% :

Sggg

;

(4)

2504 ;
2505 :
2506 ;
2507 :
2508 ;
2509 ;
2510 ;
2511 ;
2512 ;
2513 :
2514 ;
2515 ;
2516 :

2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612

!
ARGUMENT:
i
!--

LUN = THE LOGICAL UNIT NUMBER, COUNTING FROM 0 TO
NUMBER OF DRIVES MINUS 1.

ggg? :

2517 :
2518 :
2519 :
2520 ;
2521 :
2522 :
2523 :
2524 :
2525 ;

2526 :
2527 ;
2528 :
2529 ;
2530 .
2531 ;

2532 :

2533 .

2534 ;
2535 :
2536 ;

gggg

2613
2614
2615
2616
2617
2618
2619
2620
2621

2622
2623
2624
2625
2626
2627

2628

2629

2630
2631
2632

begin

;

‘e |«

CONFIG(LUN)

P-TABLE.

THE PURPOSES OF THIS ROUTINE ARE:

TO VERIFY THAT THE OPERATOR DEFINED TEST RANGES ARE

WITHIN THE CALCULATED SYSTEM SIZE.

TO PRINT DRIVE IDENTIFICATION INFORMATION.

local
TYPE,
TEMP,
TOP;

1+
'THIS IS THE CODE FOR PURPOSE 1:
ta

UNIT = .DRIVE;
]
if .DPR neq 1
then
be?in
PRINTB (FMT4A, PHR7, .LUN, WRD11, .DRIVE);
1'LOGICAL UNIT: X
DRIVE: Y*
PRINTB (SAY2, WRD11, WRDZ21):;
!*DRIVE DROPPED'®
PRINTB (FMTZ2, CAUSE1);
'
(NOT POWERED UP)*
WHY DROPT [.LUNJ = CODE_1;
DODU (.LUN);
return;
end;

'THIS 1S THE CODE FOR PURPOSE 2:
[N

(ZMLBBO PERFORMANC
3 3 REISER
MACRO M1113
SAYWHO DRIVE IDENT Fl A TION ROUTINES

2538 .MLX4
TR Y
TR

T P TN TR TRT Y 9300098900085 %a0,8,0 K
P

PAGE 91

SEC 0095

S?-Har-198
7-Mar-1982

DRIVE IDENTIFICATION ROUTINES

SAYWHO (.LUN);
!'LOGICAL UNIT: X
TYPE = .MLDT;

DRIVE: Y

SERIAL #: 2222

i; ((.TYPE neq ML11A) and (.TYPE neq ML1iB))

then

be?in

PRINTB (SAYZ2, WRD11, WRD21):
'*DRIVE DROPPED'
PRINTB (FMT2, CAUSE?2):;

1°7

(NOT AN MLT1 UNIT)®

WHY DROPT [.LUN] = CODE_2;

poD0 (.LUN);
return;

else

end

begin

'n 3 o

if .ARR_TYP eql 0
then
egin

in 4 »

TYPE = WRD6:;
TOP = 1;

P
A TE PRTR

2560

ATR XA TE FRTR FE FI PN TN TN TR PR TN PN YT PN WA Sy Y AR

VT
AU A
viwawiiau

AINIAIRININIAINININIAI
NI

AINIAIPI

DA YUY GT O Oy o o o e

LT NI I Y S 9
4w
V0O~V O
SN —SOVBNOVNB
WIS

29-MAR-82 13:41

else

end

x4 »

egin

TYPE = WRD7:
TOP = &;

end;

's § w

;THIS IS THE CODE FOR PURPOSE 3:

TOP_SECT [.LUN] = (.TOP)«(512)%(.S2) - 1;

it LIMIT
then
'+

; THE OPERATOR HAS CHOSEN LIMITS:

begin

v § o

if .RANGE eql 0
then
'+

;THE BOARD NUMBER (0-15)

IS CONTAINED IN °ONLY®

13:56:42
19:23:44

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.5 (8)

MACRO M1113

29-MAR-82 13:41

SAYWHO DRIVE IDENTIFICATION ROUTINES

2625 ;
2626 :
2627 ;
2628 ;
2629
2630 ;
2631 ;
2632 ;
2633 :
2634 ;
2635 ;
2636 :
2637 ;
2638 ;
2639 ;
2640 ;
2641 ;
264§ :
2643 ;
2644 ;
2645
2646 ;
2647 ;
2648 ;

2685
2686
2687
2688
2689
2690
269
269
269
2694
2695
2696
2697
2698
2699
2700
2701
270
270
2704
2705
2706
2707
2708
2709
2710
271
2712

2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736

'« 10 »

begin

oS
&"no

7-Mar~19
7-Mar-19

DRIVE IDENTIFICATION ROUTINES

—

SEQ 0096
00

2594 :MLXS
2595
596
2597 ;
2598 :;
2599 ;
2600 ;
2601 ;
2602 :
2603 ;
2604 :
5605 :
606 ;
2607 :
2608 .
2609 ;
2610 ;
2611 :
2612 :
2613 ;
2614 ;
2615 ;
2616 ;
2617 :
2618 ;
2619 ;
2620 ;
2621 :
2622 :;
2623 :
2624 ;

PAGE 92
0000

CZMLBBO PERFORMANCE EXERCISER

| VER CZMLBB CHANGED .TYPE TO .ARR_TYP
if .ARR_TYP
then
e

;THE CHIPS ARE 64K

begin
LSECT = 2048+.0ONLY;

In
7 »

end

e 7

TSECT = .LSECT + 2047;

else
‘e

;THE CHIPS ARE 16K

begin
LSECT = 512+.0NLY;

' § o

enda,

s 8 v

rgscr = LLSECT + §11;

end;

v 10 »

if .TSECT leqa .TOP_SECT [.LUN]
then
TOP_SECT [.LUN] = .TSECT
else

begin

PRINTE (SAY2, WRD11. WAD21):
' 'DRIVE
DROPPED'

PRINTB (FNT2,

CAUSE 3);

(OPERATOR SELECTED TEST LIMITS INCORRECTLY)"

PRINTB (FMT11, PHR14, .TSECT

PHR16

LTOP_SECT [.LUN]):

1TOP SECTOR OF XXXXKX EXCEEDS SYSTEM LIMIT OF YYyyYy'

WHY DROPT [.LUN] = CODE_3:

p0D0 (.LUN);
return;

end;

:; LSECT leqa .TSECT
en

else

LOW_SECT [.LUN] = LSECT

be?in
PRINTB (SAYZ

WRD11, WRD21);

'"DRIVE DROPPED®

TOPS=20 Bliss=16 VZ(le)
PA:<NEALE>MLX4.BLI.5 (8

PERF ORMANCE EéE?CISER

CZMLBBO

SAYWHO DRIVE IDENTIFI

2650 :mMLXé4

sggg :

2653 ;
2654 :

2655 :
2656 ;
2657 ;
2658 :
2659 :
2660 :
2661 ;
2662 ;
2663 ;
2664 ;
2665 ;
2666 ;
2667 ;
2668
2669 ;
2670 ;
2671 ;
2672 :
2673 :
2674 ;
2675 :
2676 :
2677 :
2678 ;
2679 :
2680 ;

2681 ;

2682
2683
2684
2685
2686
2687

;
;
;
;
;
;

2688 ;

2689 ;
2690 :
2691 ;
2692 :
2693 :
2694 ;
2698
2699
2703 036002
2704 036006

MACRO M1113 29-MAR-B82 13:41 PAGE 33 8

ION ROUTINES

7-Mar-1982 19:24:42

DRIVE IDENTIFICATION ROUTINES

2737
2738

end;

I 6 %

'+
'THIS IS THE CODE FOR PURPOSE 4:
'
PRINTB (FMTS5, .TYPE, LOWEST, HIGHEST);
P'ML1T=X
SECTORS UNDER TEST: XXXXXX TO YYYYYY®

selectone .TRT of
set

ol :
TEMP = TRTO00;
1l :
TEMP = TRTO1;
{2l :

2765

TEMP = TRT10;

2766
2767
2768
2769
2770
2771

€3] :
TEMP = TRTI1;
tes;

PRINTB (FMTS, .TEMP):

o772

004167
016603

7-Mar-1982 19:23:44

PRINTB (FMTZ2, CAUSE3);
'
(OPERATOR SELECTEb TEST LIMITS INCORRECTLY)'
PRINTB (FMT11, PHR15, .LSECT, PHR14, .TSECT);
!*LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YYYYYY'
WHY DROPT [.LUN] = CODE_3;
0000 (.LUN);
return;

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

2773
2774
2775
2776
2777
2778

SEQ 0097

! *TRANSFER RATE: X MBYTES/SECOND'

PRINTB (FMT4B, PHR4, .BASE_ADDR):
'
CSR ADDRESS: XXXxxx*
end;

return;
end;
147326
000016

'n 3 »
e 1 »

-SBTTL
CONF1G: JSR

MoV

CONFIG DRIVE IDENTIFICATION ROUTINES
R1,$SAVeS
;

16(SP) .R3

¢ LUN,»

TOPS-20 Bliss=16 V2(212)

PA: CNEALE>MLX4.BLI.S

(8)

ZHQBBO PERFORMANCE EXERCISER
MACRO M1113
ONFIG DRIVE IDENTIFICATION ROUTINES

2706

.
o1o§oa
006304
016401
016105

042705
142777

177770
000007

176316

BIC
8I(B

#1777%0,RS
#7.aML.REG+1

2716 036044

032777

009400

176306

BIT

4400, ML . REG+12

2717 036052
2718 036056
2719 036060

2720 036064
2721 036070

2722 036072
2723 036076

2724 036102

150577

001051
016401
016146

012746
010346

012746
012746

012746

2725 036106
2726 03611C
2727 036112
2728 036116
2729 036122
2730 036126
2731 036132
2732 036134
2733 036136

010600
104414
012716
012746
012746
012746
010600
104414
012716

2736 036152
2737 036156
2738 036156
2739 036164
2740 036166
2741 036170
2762 036174
2743 036176
2744 036200
2745 036204
2746 036210
2747 036214
2748 036216
2749 036222
2750 036226
2751 036230
2752 036234

010600
104414
112763
010300
104451
062706
000207
010346
004767
017702
020227
001435
020227
001432
012746
012746
012746

2734 036142
2735 036146

2753 036240
2754 036244
2755 036246
2756 036250
2757 036254
2758 036260
2759 036264
2760 036266

012746
012746

012746
010600
104414
012716
012746
012746
010600
104414

176312

BIS8

BNE
MOV
MOV

034422
000006

007240
010050
006216

000005

010460

006160
000002

000001
000026
177320
176164
000110

000111
007322
007240
007100

000003

010502
006160
000002

MoV

#5,-(5P)

MOV
MOV

034446

18:

1$
PTABLE .ADDR(R4) ,R1
6(R1) ,~(SP)

MRD11,-(SP)
R3,~(SP)

MOV
TRAP
MOV
MOV
MOV
MOV
MOV
TRAP
MOV

007322
007240
007100
000003

RS,aML.REG+1

MoV
MOV

MoV
MoV

MOV
TRAP
MOVB
MOV
TRAP
ADD
RTS
MOV
JSR
MOV
P
BEQ
P
BEQ
MOV
MOV
MOV

MOV
MoV
TRAP
MOV
MOV
MOV
MOV
TRAP

TOPS

PA:<

R3,R4
RG
PTABLE .ADDR(R4) ,R1
6(R1) RS

2713 036026
2714 036032

2715 036040

7-Rar-1982 19:24:42
7-Mar-1982 19:23:44

DRIVE IDENTIFICATION ROUTINES
nov
ASL
"0V
MOV

034422
0600006

PAGE 94

SEC 0098

JMLX4

5;8;

2709 036012
2710 036014
2711 036016
2712 036022

29-MAR-87 13:41

;

2615

2618

#PHR7
= (SP)
NFEMTLA, = (SP)

SP.RO
14
MRD21, (SP)
MURD11.=(SP)
#SAY2,<(SP)
#3,-(5P)
SP,RO
14
#CAUSE1, (SP)

#FMT2,-(SP)
#2,-(SP)

SP,RO
14
#1,WHY.DROPT(R3)
R3.RO
57
#26,5P
PC
R3,-(SP)
PC.SAYWHO
M ,REG+26,R2
ng.n11o
2
a§.1111
2
#RD21,~(SP)
MRD11
- (SP)
,
cgnvz.-(sp)

#3,-(5P)
SP.R
14
#CAUSE2, (SP)
FMT2,=(SP)
#2,-($P)
SP_RO
14

: SP,
e

2620

: SP,*

2622

: SP,¢

P
:

2624
2625

:
:
:

2615
2617
2633

: *,TYPE
: TYPE,#*

2635
2637

: TYPE,«
:

2640

: SP,«
:

; SP,*

2642

CZMLBBO PERFORMANCE EXERCISER

CONF IG DRIVE

MACRO M1113 29-MAR-82 13:41 PAGE 55

IDENTIFICATION ROUTINES

276

JALXS

%;gl‘

2765 036270
2766 036076

112763
010300

000002

2768 036302
2769 036306
2770 036310

062706
ooo;or
032777

000016

2767 036

104451

002000

2771 036316
2772 036320
2773 036324
277% 036330

001005
012702
012701
000404

007220
000001

2776 036336

012701

000004

034446

176056

28%:

38:

2777 036342
2778 036346
2779 036350
2780 036352
2781 036356

48:

2782 036360

2783 036362

2784 036364
2785 036366

2786 036372

2787 036376

2788 036400
2789 036402

2790 036404
2791 036406

012705
(060405
010146
017701
006201

004767

146344

000300
105000

2803

036452

036456
gggg
56

60
807 036464
2808 036470
2809 0
58
5010 036500

811 036504

#16.5P
PS
#20
3ML
00,
.REG+24

;
:
;

2637
2639
2651

BNE
MOV
MoV
aR

000300
105000

002000

JSR

SWAB
CLR8

BIT

BEQ
ST
BNE
8IT
BEQ
MOV

175732

143564

SWAB
(LR8

006300

006300
ooozog

010067
010067
885{67
14
016700

300

ASL
143542
143540
003777

062767

ASL
AS.

143532

143526

000777

58:

143500

26 R

Lo TOP

#T0P, SECT.RS
R4 .RS
R1,-(SP)
aml .REG+24
,R1
R1

MoV

143574

: «,TYPE
teToP
:

MOV
ADD
MOV
MoV
ASR
SWAB
8I¢

143600

38
#WRD6 ,R2
”,R1
43

MWRD7,R2

DEC

000001

MOV

Moy

s fess 1
%g;'i
8&23% 8} 7 }25?0
816
036522

ADD
RTS
BIT

010115

001575
005767
001037
032777
001417
016700

(OPS

PA:<

2644
2645

ASL
MOV

032767

T=Mar-1982 19:23:44

;
:

006300
010001

279 036414

7-Mar-1982 19:%4:62

IDENTIFICATION ROUTINES

0§.wv.oaomn3)
R3.KO

ASR

177740

SEQ 009%

moV8
MOV

ASR

000301
042701

005301

2795 036422
2799 036426
2797 036430
32
2799 036440
2800 036442

176014

006201

2792 036410

2793 036412

0634500

006201

010146

DRIVE

TRAP

2775 036332 015702 007230

2801 036446
2802 036450

2659

2660

2667

: TOP,«

2649

2667

2669

2678

2690

2698

: LSECT,»

2699

R1
#177740,R?

R1,-(SP§

PC.BLSMUL

RO
RO

RO
RO.R1

R1. (RS)

2,L1n17

11§
RANGE
6S
#2000, M .REG+24
ss
ONLY,RO
R
R

RO
RO

MOV
MoV
ADD
B8R
MoV

RO,LSECT
R r;ecr
#3%77.1seCT
68
ONLY,RO

s
:33
ADD

u
:§%§EE}
8797,

SWAB

i «,TYPE

i
2654
2655
2651

TSECT

2690

2708

LSECT,*

2709

CONFIG DRIVE

MACRO M1113 29-MAR-82 13:41

IDENTIFICATION ROUTINES

2818

2821 036530
28¢2 036534
2823 o§gsso
2824 036542
2825 036564
2826 034550

026715 143474
101003
016715 143466
000445
012746 007322
012745 007240

2828 036560
2829 036564

012746
010600

000003

2831 036570
2832 036574
2833 036600
2834 036604

012716
012746
012746
010600

010526
006160
000002

2836 036610
2837 036612
2838 036616
2839 036622
2840 036626
2841 036632
2842 036636

011516
012746
016746
012746
012746
012746
010600

010322
143406
010266
006654
0000CS

2845 036650

010300

2847 036654

000455

68:

78:

2827 (36554 013766 007100

2830

036566

2835 036606

2843 036640
2844 036642
2846 036652

2848 036656

104414

143344

143334

034460

101004
016764
000450
012746
012746
012746

2856 036716

010600

2858 036722
2859 036726
2860 036732
2861 036736

012716
012746
012746
010600

010526
006160
000002

2863 036742
2864 036746
2865 036752
2866 036756
2867 036762
2868 036766
2869 036772

016716
012746
016746
012746
012746
012746
010600

143262
010266
143250
070304
006654
000005

2872 037004

010300

2857 036720

2862

036740

2870 036774
2871 036776

012746
104414

104414

104414
112763

#CAUSES, (SP)
NFMT2,~(SP)
#2,-($pP)
SP,RO

MOV
MoV
MOV
MoV
MoV
MOV
MOV

(RS) , (SP)
#PHR16,
- (SP)
TSECT,~(SP)
PHR1,
- (SP)
#FMT11.~(SP)
#5,-(SP)
SP.RO

MOV

R3.RO

TRAP

2849 036664
2850 036666
2851 036674
2852 036676
2853 036702
2854 036706

2855 036712

MOV
MOV
MOV
MOV

007322
007240
007100

98:

000003

8S:

B8R

BHI
MOV
B8R
MOV
moV
MOV

034446

SP,s

2723

SP,s

2725
2726

108

2714

LSECT, TSECT

98
LSECT,LOW.SECT(R4)
118
MURD21.~(SP)
MRDT1.~(SP)
:gnvz =(SP)
14

SP,RO

MOV
novV
MOV
MOV

#CAUSE3. (SP)
#EMT2 S (SP)
#2,-(5p)
SP.RO

MOV
MOV
MOV
MOV
MOV
MOV
MOV

TSECT, (SP)
PHR1
.~ (SP)
LSECT,~(SP)
#PHR1S
= (SP)
,
#FMT11.-(5P)
#5,-(SP)
SP.RO

MoV

2721

14
#3,WHY.DROPT(R3)

TRAP

TRAP
MOVB

SP_»

#3,-(¢p)

TRAP

2716
2714
279

MOV

2714

#SAY2,~(SP)

#3,-($P)
SP.RO

TRAP
MOVE

034446

TSECT, (RS)
7%
TSECT, (RS)
8s
#URD21,-(SP)
#WRD11.=(SP)

MOV
MoV

TRAP

104451

026767

¥, o
BH]
MoV
B8R
MOV
MOV

TRAP

000003

TOPS
PA:<

DRIVE IDENTIFICATION ROUTINES

MOV

104414

104414
112763

&
SEQ 0100

JMLXG

%g%g

PAGE %6

14
#3.WHY.DROPT(R3)

R3.RO

2730

2732

s O W

CZM.BBO PERFORMANCE EXERCISER

2735

SP,»

2757
SP,»

2739

SP,¢
761
7462

CIMLBBO PERFORMANCE EXERCISER
MACRO M1113
CONFIG DRIVE IDENTIFICATION ROUTINES

2874

2894 037070

2895 037072
2896 037076
2897 037100

2898 037104

2899 037106
2900 037112
2901 037116

2902 037120

2903 037122

2904 037126

2905 037130
2906 037134
2907 037140
2908 037142
2909 037146

2910 037150
2911 037156
2912 037160
2913 037164

2914 037166
2915 037170
33;9 037174

2918

3
N

g%z

104451
062706
000207
011516
016446
010246
012746
012746
010690
104414
017701
000301
042701
001003
012700
000421
020127

001003

000034
034460

010450

012700

010454

001002

010016

012746
012746
010600
104414
016716

012746
012746
012746
010600

104414
062706
000207

000002

000003

006466
000002

173536

007770
006252
000003
000030

TOPS

PA:<

138:

MOV
8R
(WP

#TRTO1,RO
15$
R1,#2

; *, TEMP
:

2762
2755

MOV
BR
P

#TRT10.RO
15$
R1,43

; *,TEMP
:

2765
2755

MOV

#TRT11,R0

: v, TEMP

2768

MOV
MOV
MOV
TRAP
MOV

NFATS, - (SP)
#2,-(8P)
SP,RO
4
BASE.ADDR, (SP)

: SP,e

010444

012700
000405
020127

001003

TRAP
ADD
RTS
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
SWAB
8IC
BNE
MOV

27-Mar-1982 19:23:44

128:

177774

010446

27-Mar-1982 19:24:42

DRIVE IDENTIFICATION ROUTINES

8R
(MP

118:

175324

012700
000413
020127

51
#34,5P
PC
(R5), (SP)
LOW. SECT(R4) ,~(SP)
R2,~(SP)
NFMTS,
= (SP)
#4,-(5P)
SP.RO
14
aML .REG+24,R1
R!
2177774
,R1
128
#TRT00,RO
15$
R1, 41

108:

006320
000004

000001

PAGE 97

SEQ 0107

:MLXG

5352

2877 037006
2878 037010
2879 037014
2880 037016
2881 037020
2882 037024
2883 037026
2884 037032
2885 037036
2886 037040
2887 037042
2888 037046
2889 037050
2890 037054
2891 037056
2892 037062
2893 037064

29-MAR-82 13:41

148:

158:

BNE

MOV

MOV
MOV
MOV
MOV

IRAP
ADD
RTS

; Routine Size:

: SP,*

148

15§

RO, (SP}

2755

: *,TEMP
:

2759
2755

t TEMP,«

#PHRG - (SP)
NFEAT4B, ~(SP)
#3,~($P)
SP,RO

bY44]

2773

: SP,»

14
#30,SP
PC

318 words

2730
2734
2752

; TYPE,#

13§

; Maximum stack depth per invocation:

;
:
:

20 words

2581

SER

MACRO M1113 29-MAR-82 13:41 PAGE 58

(ZMLBBO PERFORMANCE EX ER Cl
CCNHIG DRIVE IDENTIFIC AT ION ROUTINES

2927 ;MLX4
2

P ey

TO INTERPRET THE FIELDS OF THE FAILING SECTOR

FOR BOTH 16K AND 64K CHIPS.

ARGUMENT :

SECT = FAILING SECTOR NUMBER

RESULTS:

(1)

BANK = WHICH ROW OF CHIPS (0~4)

(2)

BOARD = WHICH ARRAY MODULE (0-15)

LR
LR

O
TTTT

1f MLDT

!THE CHIPS ARE 64K

BAflK .SECT<9 2>
n

BOARD
= .SECT<i1,
end

!THE CHIPS ARE 16K

beg1n

BANK = ,SECT<?

BOARD = .secr<§

L LT

: novalue =

DECODE (SECT)

PURPOSE :

3
H

(9)

ROUTINE:

else

end;

g VER CZMLBB ADDED LOADING OF BIT_NUM TO ROUTINE

AR L A

2973 037204
2974 037206
2975 037212
2976 037214
2977 037216
2978 037222
2979 037226
2980 037232
2981 037234

(SECT)

TOPS=~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.5

th en

8
2972 037176

7-Har-1985 19:%4:42
7-Mar-1982
19:23:44

ORIVE IDENTIFICATION ROUTINES
routine DECODE
begin

SEQ 0102

BIT_NUM = _CHAN;

!SAVE THE FAILING CHIP NUMBER

regurn:

ena;

001415

000001

000002
177774

175116

000002
006200

175170

.SBTTL
DECODE: BIT
8EQ
MOV
ASR
SWAB
BIC

MOV

MoV
ASR

ASR

DECODE ORIVE IDENTIFICATION ROUTINES
1;.3HL.REG 26

2795

2(SP) ,RO

: SECT,«

2798

s SECT,»

2799

RO
RO
#177774 RO

RO,BANK

2(SP) ,RO
RO

CZMLBBO PERFORMANCE EXERCISER

DECODE DRIVE

IDENTIFICATION ROUTINES

2983

2986 037236
2987 037240
2988 037244
2989 037246
2990 037250
2991 037254
2992 037260
2993 037264
2994 037266

2995 037270

2996 037276
2997 037300
2998 037304
2999 037306
3000 037310
3001 037312
3002 037314
3003 037316
3004 037320
3005 037324
%889 037330

gg?z

3015

29-MAR-82 13:41

000412
016600
006100
000300
042700
010067
016600
006200
000300

042700

010067
017700
006200
006200
006200
006200
006200
006200
042700
010067
000207

000002
177774
175064
000002

177760

175042
175104

177700
153336

n 8
PAGE 99
SEQ 0103

sMLXS

%ggg

3008

MACRO M1113

1$:

2$:

27-Mar-1982 19:24:42

DRIVE IDENTIFICATION ROUTINES
B8R
MOV
ROL
SWAB
8IC
MOV
MOV
ASR
SWAB

BIC

MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV
RTS

; Routine Size:

23
2{(SP) RO
RO
RO
7?7774 R0
RO ,BANK
2(SP) ,RO
RO
RO

27=-Mar-1982 19:%3:44

TOPS

PA:<

; SECT,»

2803

; SECT,»

2804

2810

2779

#177760,R0

RO,BOARD
oML .REG+42,R0
RO
RO
RO
RO
RO
RO
#177700,R0
RO,.BIT.NUM
PC

46 words

; Maximum stack depth per invocation:

0 wo ds

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113

DECODE DRIVE IDENTIFICATION ROUTINES

sMLXSG
3018 ;

N 8
PAGE 100

SEQ 0104

7-Mar-1982 19:54:42
7-Mar-1982 19:23:44

N
AN = O OO NN

NININ) NINININI NN

00
Q0 00 QD G0 00 00 0B 00 G0 00 00
NININD NI = cad e ened b d weh

DRIVE IDENTIFICATION ROUTINES

begin

T+

;

ROUTINE:

ISOLATE

;

PURPOSE :

UPON THE DETECTION OF A DATA ERROR (EITHER RECOVERABLE OR
NOT) TO EXAMINE THE SECTOR ADDRESS CONTAINED IN THE ECC
ERROR LOCATION REGISTER AND PINPOINT THE LOCATION OF THE
ERROR,
THE SECTOR, BOARD (0-15) AND BANK (0-3) WILL BE
REPORTED.

{

[
5

2825

DECODE

if .ERROUT then PRINTB (FMT10A, WRD20, WRD15,

(.MLEL);

'*FAILED:

return;

0 037410
037412
037416
037420

SECTOR XXXXXX

BOARD YY

.MLEL,

.BOARD,

.BANK);

BANK 2°

end;

037332
037336
037342
037350
037352
037356
037362
037366
037372
037376
037402
037406

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

routine ISOLATE : novalue =

3020 .
3021

29-MAR-82 13:41

017746
004767
032767

175054
177634
000001

174766
174760
175024

007246
007312
006564
000006
000016

142710

.SBTTL
ISOLATE :MOV
JSR
BIT
BEQ
MOV
MoV
MOV

Mov
MoV
MOV
MOV

MoV
TRAP

18:

ADD

TST
RTS

: Routine Size:

ISOLATE DRIVE ID ENTIFICATION ROUTINES
ML .REG+44 ,~(SP)

2826

g}.ERROUT

2828

PC,DECODE

BANK,
= (SP)

BOARD ,~(SP)

ML . REG+44 ,~(SP)

MRD1S,~(SP)
#URD20
- (SP)
.
#FMTI0A, = (SP)

#6,~(SPS

SP.RO
14
#16,SP

: SP,x

(SP§+

2813

28 words

: Maximum stack depth per invocation:

8 words

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
ISCLATE DRIVE IDENTIFICATION ROUTINES

3072 ;MLX&

%;2 :

3075

2834
2835
2836

%ggg

3081

2839

3085

:
3087 .
3088 .
3089 ;

30930‘:?01 :

SEQ 0105

27-Mar-1982 19:24:42

begin

!'++

ROUTINE :

PURPOSE :

ggll:g

: novalue =

TO INCREMENT THE HARD ERROR COUNT FOR THE GIVEN

ARRAY, AND TO SEE IF THE HARD ERROR THRESHOLD HAS
BEEN REACHED.

ARGUMENTS:

LUN
= LOGICAL UNIT WHICH HAS THE HARD ERROR
ARRAY = THE BOARD NUMBER (0-15)

-~
local

! VER (ZMLBB ADDED THIS LOCAL STORAGE

SBE_EXIST;

!Indicates if the searched sbe already exists

3383% :

%gg?

O;IARDS C.LUN,

33832 :

Sgg%

: VER CZMLBB ADDED FOLLOWING CODE TO LOG SBE'S

3096 :
3097 ;
3098 ;
3099
3100 ;
3101 ;
3102 :
3103 ;
3104 .
3105 :
3106 ;
3107 ;

2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865

!
!
!
:
!
!
!
!
!

3108 :
3109 .

2866
2867

3111 ;
3112 ;
3113 ;

2869
2870
2871

3110 ;

3114 :
3115 ;
3116 :
3119 .

2868

2872
2873
2874
2877

3120 :
3121 .
g;gg :

2878
2879
Sggg

3124 ;
3125 :

2882
2883

3126 :

2884

TOPS=20 Bliss=16 Vv2(212)

PA:<NEALE>MLX4.8L1.5 (11)

UP_HARD_COUNT (LUN,ARRAY)

%gz;
2843
2844
2845
2846
2847

27-Mar-1982 19:23:44

routine UP_HARD_COUNT (LUN, ARRAY)

%gg

3082
gggz :

PAGE 101

DRIVE IDENTIFICATION ROUTINES
2833

3076
3077
3078

29-MAR-82 13:41

.ARRAY, 0, 16, 0] = .HARDS [.LUN,

.ARRAY, 0, 16, 0] + 1;

First search the sbe lo? table and see if
this single bit error already exists in
the table.
If it does exist then just
increment its occurance count,
else
record its failing location into the
table.
Only log away 128 single bit errors.

if .SBES_COUNT lss 127
then

!Have 128 errors been logged yet

begin
SBE_EXIST = FALSE:;

!There is room for at least one more sbe
!Init the existance flag to false

'+
.
.
! Search the single bit error Log table
! and see if this error already exist.

=
.
)
incr index from 0 to .SBES_COUNT do

it (.SBE_LOG [.index, BITS SBE] eql .BIT_NUM) and

‘Does this bit exist

(.SBE_LOG [.index, BNKS_SBE] eql .BARK) and
!Does this bank exist
(.SBE_LOG [.index, BRD$ SBE) eql .BOARD) and
iDoes this board exist
(.SBE_LOG [.index, UNITS_SBE] eql .LUN) !'Does this unit exist

begin
.
SBE_LOG [.index,

SBEZEXIST = TRUE;

!This sbe already exist _so iust up its occurance count
SUMS_SBE] = .SBE_LOG [.index, SUMS_SBE) + 1;

Indicate that this sbe already exist

(ZMLBBO PERFORMANTE ExtRy] SER

MACRO M1113
ISOLATE DRIVE IDENTIFICATION ROUTINES

3128 ;MLX4

%}%8 :

2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
ggg}

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 .

2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
295
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927

;
.
;
;
.

v
t
PAGE 102

ORIVE IDENTIFICATION ROUTINES

3131 .
3132 .
3133 .
3134 ;
3135 ;
3136
137 .
3138 ;
3139 ;
3140 ;
3141 ;
3142 ;
3143 ;
3144 ;
3145 ;
3146 ;
%}25 :

3174
3175
3176
N7
3178

29-MAR~82 13:41

2928
2929
2930
2931
2932

SEQ 0106

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.B8LI.5 (11)

exitloop;
end;

end;
'+
.
.
.
: Test to see if this sbe was alreadin
y the table

: by testing the flag sbe_exist.
If it did not exist then
! up the Prom Maintenance count, load this sbe into the table

: and test to see if this array module needs to be Prom Maintenanced.

! If the sbe did exist then return from this routine.
.
if not .SBE_EXIST
!Was this sbe found in the table
then
.
begin
11t was not found in the table so up the
count
F"I‘I_SBE-CNT C.LUN, .BOARD, PM_SBES_SUM] = .PM_SBE_CNT [.LUN, .BOARD, PM_SBES_
SUM] + 1;
! Now see if the Prom Maint Program needs tc be
! run on this array module.
!
.
if .PM_SBE_CNT [.LUN, .BOARD, PM_SBES_SUM] eql 10
!Is the Limit exceeded
then
.
egin
!The limit was exceeded
SAYWHO (.LUN);
PRINTB (FMT13, .ARRAY, MSG2);
{*ARRAY XX <==> RUN ML11 PROM MAINTENANCE PROGRAM®
end;
o
! This sbe was not found in the table so
! load this failing sbe into the table

! at the bottom of the list.
le

SBE_LOG [.SBES_COUNT, BITS SBE] = .BIT NUM;
SBE_LOG [.SBES_COUNT, BNKS_SBE) = .BANR;
SBE_LOG [.SBES_COUNT, BRDS_SBE] = .BOARD;
SBE_LOG [.SBES_COUNT, UNITS SBSJ = JLUN;
SBE_LOG [.SBES_COUNT, SUuMS_SBE] = 1;
SBES_COUNT = .SBES_COUNT +71;
!Up the
end;

.
!Load the failing bit
!Load the failing bank
iLoad the failing board
!Load the failing unit
!Indicate this is the first one
count of unique sbe's detected

end;
!
! VER COMMENTED Oul THIS CODE

g;gg :

58%4

; REPLACED BY ASOVE CODE

3181 .
3182 :

2935
2936

!
!

if ((C.ARR_TYP eql 1) and (.HARDS [.LUN, .ARRAY, 0, 16, 0] eql H64K_LIMIT)) or ((.ARR_TY
P eql 0) and (
-HARDS T.LUN, .ARRAY, 0, 16, 01 eql H16k_LIMIT)S)

(ZMLBBO PERFORMANCE EX ERCISER
MACRO M1113
ISOLATE DRIVE IDENTIF] CATION ROUTINES

3184 ;MLX4
3185 ;

3186

3187 .

2937

]

3190 ;

2940

3192 :
3193 .
3194 :
3198
3199
3203 037422
3204 037422

2942
2943
2944

3189 ;
3191

3205 037426
3206 037432

SEQ 0107
7-Mar-1982 19:264:42
7-Mar-1982 19:23:44

2939

2941

004167
016605
010500

begin
SAYWHO (.LUN):

]

PRINTB (FMT13, .ARRAY, MSG2);
!'sRRAY XX

end,;

==> RUN ML11 PROM MAINTENANCE PROGRAM'

return;

end;

.SBTTL
:
. COUNTD
UP.HAR

145706

000020

033314

153200

R1.S$SAVES

ASL
ASL
ASL
ASL
MOV

RO
RO
RO
RO
RO,R2

ASL

P
BLT
RTS
CLR
CLR

SBES. COUNT ,#177
1$
PC
R4
R1

ADD
INC

000177

28:

UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES

JSR

MOV
MOV

1$:

022626
001037
016746
111346

TOPS-20 Bliss~16 v2(212

PA:<NEALE>MLX4.BL].

then

000016

3234 037536
3235 037542
3236 037544
3237 037546
3238 037552

9
D
PAGE 103

DRIVE IDENTIFICATION ROUTINES

2938

3188 ;

29-MAR-82 13:41

BR
MOV

ASL
ASL

¢ LUN,*

16(SP) ,R2

: ARRAY,*

HARDS (R2)

X
R1.R2

R2
R

011264

MOV

#SBE.LOG.R3

153146

MOV

BIf.NumM,-(SP)

177600

174572

ADD

MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
P
BNE
MOV

MOV8

20(SP) ,RS
RS.RO

833
850

2864

; SBE.EXIST
INDEX

2867
2874

: INDEX,*

2877

2878

R2,.R3

(R3),~(SP)
(SP)
(SP)
(SP)
(SP)
(SP)
(SP)
#177600, (SP)
(SP)+,(SP)+
33
BANK, =(SP)

(R3) ,~(SP)

(ZMLBBO PERFORMANCE EX ERC ISER
MACRO M1113
UP .HARD.COUNT DRIVE 1 D ENTI FIC ATION ROUTINES

3255 037612
3256 037614
3257 037616
3258 037620
3359 037622
3260 037626
3261 037630
3262 037632
3263 037636

042716
022626
00

174552

BOARD ,~(SP)

177760

(SP)
(SP)
#177760, (SP)
§§P)*.(SP)0

RS, ~(SP)
(SP)

(SP)
(SP)
(SP)
#177770, (SP)
§§P)4.(SP)0

177770

012264
012264

SBE.LOG+2(R2)

#1,Ré

*,SBE.EXIST

3s:

R1
R1,SBES.COUNT

INDEX
INDEX

5$:

Ré&
78

SBE.EXIST

48:

PM. SBE . CNT(R2)
2;.382.CNT(R2).I12

000012

RS.-(SP)

PC,SA' WH0

#M§G2. (SP)

20(SP)
.= (SP)

3282 037732

3392 037766
3393 037770
3394 037772

RO.R2
BOARD ,R2
Re

175612

3283 037734
3284 037736
3285 037742
3286 037746
3287 037750
3288 037752
3289 037756
3290 037760
3291 037764

6$:
0717264
152702

006004
006004

2880

(R$) ,=(sP)

174454

3276 037704
3577 037706
3278 037712
3279 037716
3280 037722
3281 037726

TOPS
PA:¢

2879

(R3),~(SP)

153012

3371 037662
3272 037666
3373 037670
3274 037674
3375 037702

27-Mar-198 e 19:24:14 2
27-Mar-1982 19:23: 4 4

DRIVE IDENTIFICATION ROUTINES

§§P>*.(§p)’

& -t

3366 037646
3267 037652
3268 037654
3269 037656
3270 037669

SEQ 0108

8177774,(SP)

011266
000001

3264 037642
3265 037644

E 9
PAGE 104

177774

Y
etP o
VOO ONONONONON

3554 037610

sMLXé
4

22882
SRES8882328

3240
3241
3342
2343 037554
3244 037560
3245 037562
3264 037564
3247 037570
3248 037572
3349 037574
3250 037576
3251 037602
3252 037604
3353 037606

29-MAR-82 13:41

AFMT13.-(5P)
#3,-(5P)
SP.RO
14
#10,SP

ggei.couur.nz
R?
#SBE.LOG,R1
R2,.R1
BIT.NUM
R4
Ré4
Ré4
R4
Ré4

ARRAY
,»

SP,x

2909
2921

(IMLBBO PERFORMANCE EX ERCI SER
MACRO M1113
UP.HARD.COUNT DRIVE | D ENTIF I CATION ROUTINES

29-MAR-82 13:41

SEQ 079

SMLX4

ORIVE IDENTIFICATION ROUTINES

160077

BIC
BIC

#160077.Ré4
#17700, (R1)

174332
177774

MOV

BANK , R

8ICB
8ISB
MOV
ASL
ASL
BIC

#3,(R1)
R4, (R1)

017700

8IS

BIC

000003
174312
177703

BICB

000074

BISB
ROR
ROR
ROR
ROR
BIC

g3 sERgEsaresses

RRRRZIZIRR2=R

3299 037774
2300 040000
3301 040004
3302 040006
3303 040012
3304 040016
3305 040022
3306 040024
3307 0400

F
9
PAGE 105

017777

BIC

160000

000001
152562

8IS

MOV

011266
78:

INC
RTS

27=-Mar=1982 19:24:4 2
27-Mar-198 2 19:23:4 4

TOPS
PA:<

RG, (R1)

2922

0177774
R4

BOARD
, R4
Ré
R4

2923

#177703,R4

#74,(R1S

R4, (RY)
RS
RS
RS
RS

2924

n7777.RS

#160000, (R1)
RS, (R1)

#1.SBE .L0G+2(R2)

2925
2926
2833

SBES. COUNT
PC

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

10 words

(ZMLBBO PERFORMANCE EXER
ERCISER = MACRO M1113
UP.HARD.COUNT DRIVE IDENTIFIC ATION ROUTINES

3332 ;MLx4

?%%2 ;
3335
3336
3337
2338

.
.
.
.

29-MAR-82 13:41

9
SEQ 0110

27-Mar-1982 19-24:42

DRIVE IDENTIFICATION ROUTINES

27-Mar-1982 19:23:44

routine UP_SOFT_COUNT (LUN, ARRAY)
begin

%gzg :

2945
2946
2947
2948

sgég

3341 ;
3342 ;
3343 3344 ;
3345 ;
3346 ;
3347 ;
3348
3349 .

2951
2952
2953
2956
2955
2956
2957
2958
2959

!
PURPOSE:
!
!
!
|
ARGUMENTS:
!
l--

ggg? H

PAGE 106

ggg?

ROUTINE:

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>MLX4.BLI.S (12)

: novalue =

US_SOFT_COUNT (LUN,ARRAY}
TO INCREMENT THE SOFT ERROR COUNT FOR THE GIVEN
ARRAY, AND TO SEE IF THE SOFT ERROR THRESHOLD HAS
BEEN REACHED.

LUN
= LOGICAL UNIT WHICH HAS THE SOFT ERROR
ARRAY = THE BOARD NUMBER (0-15)

local

! VER CIMLBB ADD THIS LOCAL STORAGE

SBE_EXIST;

!Flag to indicace if sbe already exists

%gg% :

53%%

§OFTS C.LUN, .ARRAY, 0, 16, 0] = .SOFTS [.LUN, .ARRAY, 0, 16, 0] + 1;:

gggg H

gggg

; VER (ZMLBB ADDED FOLLOWING CODE TO LOG SBE'S

3356
3357
3358
3359
3360

2966
2967
2968
2969
2970

!
!
!
!
!

:
.
;
;
:

3361 ;
3362 ;
3363 .
3364 ;
3365 .
3366 :
3367 ;
3348 ;
3369 ;
3370 ;
3371 ;
3372 :
3373 .
3374
3375 .
3376 :

2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986

3379 :
3380 ;
3381 ;
3382 .
3383 ;
3384

2989
2990
2991
2992
2993
2994

3386 :

2996

3385 .

rald
2972

2995

First search the sbe log table and see if
this single bit error already exists in
the table.
If it does exist then just
increment its occurance count,
else
record its failing location into the

! table.
!
! Only log away 128 single bit errors.
!
if .SBES_COUNT (ss 127
then
begin
SBE_EXIST = FALSE;

!Have 128 errors been logged yet
!There is room for at least one more sbe
!Init the existence flage to false

I+
! Search the single bit error lLog table
! and see if this error already exist.
l.
.
incr index from 0 to .SBES_COUNT do

it (.SBE_LOG [.index, BITS_SBE) eql .BIT NUM) and
!'Does this bit exist
(.SBE_LOG [.index, BNKS_SBE] eql .BARK) and
!Does this bank exist
(.SBE_LOG [.index, BRDS_SBE] eql .BOARD) and
iDoes this board exist
(.SBE_LO6 [.index, UNITS_SBE] eql .LUN) 'Does this unit exist
then
.
.
begin
.
!This sbe already exist so iust up its occurance count
SBE_LOG [.index,

SBEZEXIST = TRUE;

SUM$_SBE] = .SBE_LOG [.index, $

E] +

'Indicate that this“sbe already exist

(ZMLBBO PERFORMANCE EXERC{'S:ER
MACRO M1113
UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES

3388 .M x4

;ggg :

3.491

335¢
3393 .
3394 ;
3395 ;
3396
3397 .
3398 .
3399 .
3400 ;
3401 ;
3402 :
3403 .
3404 ;
3405 :
3406 ;
3407
3408 ;
3409 ;
3410 .
3411 ;
312 ;
3413 ;
3414 ;
3415 ;
3416 ;
317 ,

3418 ;
3419 ;
3420 ;

29-MAR-82 13:41

H 9
PAGE 107

DRIVE IDENTIFICATION ROUTINES

2997

SEQ 0111

27-Har-19gs 19:34:42

27-Mar-1982

end;

end;
e
! Test to see if this sbe was already in the table
! by testing the flag sbe_exist.
If it did not exist then
! enter this SBE 1nto the table.
!
! NOTE:
!
Soft errors are not counted toward the Prom Maintenance
!
call out.
'e

it not .SBE_EXIST
then
begin

!Was this sbe found in the table
!It was not found in the table so up the pm count

'
.
! This sbe was not found in the table so
! load this failing sbe into the table
! at the bottom of the list.
I
SBE_LOG [.SBES_COUNT, BITS_SBE] = .BIT_NUM:;
SBE_LOG [.SBES_COUNT, BNKS_SBE] = .BANR;

'Load the failing bit
!Load the failing bank

%21 ;
3422 :
3423 ;
3424 ;
3425 :
3426 ;
34627 ;

!
! VER CZMLBB THIS CODE WAS COMMENTED OUT AND REPLACED BY THE

3430 .

3036

if ((C.ARR_TYP eql 1) and (.SOFTS [.LUN, .ARRAY, 0

3432
3433
3434
3435

3038
3039
3040
3061

then
begin
SAYWHO (.LUN);

;
;
;
;

3436 ;
3437 ;
3438 ;

3439 ;

3037

304%
3043
3044

3045

TOPS=20 Bliss=16 V2(212)

PA:<NEALE>MLX4.BLI.S (12)

exitloop;

2998
%999
000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023

3024
3025
3026
3027
3028
3029
3030
3031
3032
3033

331 ;

19:23:44

SBE_LOG {.SBES_COUNT, BRDS SBEJ = .BOARD:
SBE_LOG [.SBES_COUNT, UNITS_SBE] = .LUN:
SBE_LOG L.SBES_COUNT, SUMS_3SBE] = 1;

SBES_COUNT = .SBES_COUNT +71;
end;

!Load the failing board
!Load the failing unit
!Indicate this is the first one

!Up the count of unique sbe's detected

end;

!
!

-SOFTS T.LUN, .ARRAY, 0, 16, 01 eql S16K_LIMIT)S)

16, 0] eql S64K_LIMIT)) or (C.ARR_TYP eql 0) and (

PRINTB (FMT13, .ARRAY, MSG2):
!*ARRAY XX ==> RUN ML11 PROM MAINTENANCE PROGRAM'
end;
return;
end;

CZMLBBO PERFORMANCE EXERCISER

UP.HARD.COUNT DRIVE

~ MACRO M1113
iDENTIFIC ATION ROUTINES

344

3447

3448

3452 0460104

34,53 040104

3,54 040110
3,55 040114

004167

016605
010500

145224

3456 040116
3,57 040120

006300
006300

3,59 040126
3,60 040126
3461 040132
34,62 040134

006300
066600
006300
005260

000016

020127

000177

040140

3464 040144

3465 040150

3466 040152
3467 040154

3468 040156
3469 040160

3,70 040162
3471 040164

3472 0460166
3473 040172
3474 040176
3475 040200

3476 040202
3477 040204

3,78 040206

016701

002150

3491 060250
3,92 040252
3493 040256
2494 040256
3495 040262

3,96 040264
3,97 040266
3,98 040270

152466

ASL
ASL

novV
ADD
MoV
MOV
ASR
ASR

006216

ASR

006216
042716
022626

3,89 040242
3490 040244

011264

BR
MoV

ASR

3481 040214
3,82 040216
3483 040222

3,86 040232
3487 040234
3488 040240

B8GE

006216

3484 040226
3485 040226

1$:

006216
006216

3479 040210

3,80 040212

A0V
(LR
CLR

000463
010004

012702
060402
016746
011246

R1,$SAVES

ASL

005003
005000

006304
006304

JSR

ASL
ADD
ASL
INC

152520

001037
016746

111246
042716
022626

001030
016746

111246
006216
006216
042716
022626

001017
010546
011246

ASR

177600

174112
177774

174072
177760

T=-Rar-1982 19:23:44

UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES

ASL
ASL

032714

27-Mar=-1982 19:264:42

SBTTL

MOV
MoV

34,58 o‘mgz 006300

DRIVE IDENTIFICATION ROUTINES

UP.SOFT.COUNT:

000020

PAGE 108

SEQ 0112

H, 8.

fizg

3463

29-MAR-82 13:41

ASR
BIC
e

20(SP) RS
RS.RO

P OLUN,

TOPS

PA:<

2945

2962

RO
RO

RO
16(SP) .RO
RO
SOF
TS (RO)

SBES, COUNT .R1
R1.4177

R3
RO

3s
RO.R4

R4
R¢

: ARRAY,

2976

; SBE.EXIST
: INDEX

2979
2986

; INDEX,*

2989

#SBE
. LOG,R2
Ré ,R2
8If.Num,-(sP)
(R2) ,=(SP)
(SP)
(SP)

(SP)

(SP)
#177600, (SP)
(SP)+, ($P)+

BNE
MOV

28
BANK , = (SP)

2990

BNE
MOV

28
BOARD, - (SP)

2991

BNE
MOV
MOV

23
RS,=(SP)
(R3) ,=(SP)

2992

MOVB
8IC
P

MOVB
ASR
ASR
BIC
cP

(RQ).-(SP)
2177974, (5P)
(SP)+,(§P)+

(R2).=(SP)
(SP)
(SP)
#177760, (SP)
(SP)+,(§P)+

CIMLBBO PERFORMANCE EXERCISER

\IP_SOFT.COUNT DRIVE

MACRO M1113

IDENTIFICATION ROUTINES

3500
Pl

3510 040312
3511 040316

006116
006116
006116
006116
042716
022626
001005
005264
012703

3513 040324
3514 040326

005200
020001

2s:
38:

006003
103456
006301
006301
072700
060100
016704
000304

48:

3512 040322

3515 040330

3516 040332
3517 040336
3518 040336
3519 040340
3520 040342
3501 040346
3522 060350
3523 060354

3524 040356
3525 040360

3526 040362

000403

177770
011266
000001

003713

011264

152312

106004
006004

006004

042704
042710
050410
016704

160077
017700

3532 040406
3533 040412

142710
150410
016704
006304
006304
042706
142710
150410

000003

173742

3534 040414

3535 060420
3536 040422
3537 040424
3538 040430
3539 040434

3540 040436

006005

3541 060440
3542 040442
3543 040444

0060C5
006005
006005

3545 040452

042710

3544 040446

3546 040456

3547 040460
3548 040466

042705

050510

012761
005267

gfigmmn 000207

3551

gggs

177703
000074

INC
CMP

RO
RO.R1

* INDEX
¢ INDEX,«

2986

ROR
BLO
ASL
ASL
MOV
ADD
MOV
SWAB

R3
53
R1
R1
#SBE.LOG,RO
R1.R0
817.NUM,RG
R%

: SBE.EXIST

3012

;

3022

0177774 R

3023

BOARD , R4

3024

3025

:
:

3026
3027

B8R

BLE

000001
152172

5$:

#3,(R0O)
Ré&.,(RO)

Ré
R4
#177703,R4
#74,(ROS
R&,(RO)

ROR
ROR
ROR

RS
RS
RS

2997

#7777 .85

BIC

tlsooob (RO)

MOV
INC

” sas.Loc+2(n1)
saé

; Routine Size:

2995
2996

BI(B
BIS8
MOV
ASL
ASL
8IC
8ICB
BISB

RTS

%, SBE.EXIST

Ré
R

2160077, R4
017700 (RO)
(R
5
aaux

8IS

011266

BIC
BIC
8Is
MOV

BIC

160000

TOPS

PA:<

:
:

ROR

017777

27-Mar-1982 19:23:4

(SP)
(SP)
(SP)
(SP)
#177770, (SP)
(SP)+,(§P)+
28
SBE.LOG+2(R4)
#1.R3

BIC

173722

27-Mar-1982 19:24: z

ROL
ROL
ROL
ROL
BIC
CMP
BNE
INC
MCV

ROR

3531 040402 062704 177774

DRIVE IDENTIFICATION ROUTINES

RORB
ROR

3527 040364
3528 040370
3529 040374
3530 040376

PAGE 109

SEQ 0113

SMLXG

}ggg

3503 040272
3504 040274
3505 040276
3506 040300
3507 040302
3508 040306
3509 040310

29-MAR-82 13:41

RS,
(

124 words

)

; Maximum stack depth per invocation:

8 words

2945

CZMLBBO PERFORMANCE EXERCISER ~ MACRO M1113
UP.SOFT.COUNT DRIVE IDENTIFI CATION ROUTINES

3563 :MLXG

%gg‘so H
3566
3567
3568
3569
gg;?

;
;

29-MAR-82 13:41

PAGE

K
S
110

SEQ 0114

27-Mar-1982 19:264:42

INITIALIZATION CODE

27-Mar-1982 19:23:44

;
:

3046
3047
3048
3049
ggg?

ZXsbttl "INITIALIZATION CODE'
BGNINIT;
v 1 #
!
INITIALIZATION CODE IS EXECUTED AT THE BEGINNING OF EACH
!
PASS, WHEN POWER DOWN/POWER UP HAS OCCURRED, OR WHEN THE
:
OPERATOR HAS ISSUED A START, RESTART OR CONTINUE COMMAND.

3572 ;
3573 ;
3574 ;

3052
3053
3054

!
!
!

DURING INITIALIZATION, THE °'GPHARD' MACRO IS USED TO GET
P-TABLE INFORMATION FOR THE LOGICAL UNIT UNDER TEST. THE
NUMBER OF UNITS AVAILABLE FOR TESTING IS CONTAINED IN A

THE CODE WITHIN THE INITIALIZATION SECTION IS DIVIDED
INTO THREE CATEGORIES:
1)
ONCE-ONLY CODE WHICH IS EXECUTED
ONLY ON THE VERY FIRST PASS (I.E.,

gg;g :

gggg

3577
3578
3579
3580

3057
3058
3059
3060

!
!
!
!

3582
3583
3584 .
3585 ;
3586
3587
3588
3589 ;
3590 ;
3591 ;
3592

3062
3063
30646
3065
3066
3067
3068
3069
3070
3071
3072

!
!
!
!
!
!

3594 .
3595 :

3074
3075

3581

:
:
:
;
.

3593

350¢ :

3597 ;
3598 .
2599 ;
3600 ;
3601 ;
3602 ;
3603 .
3604 ;

3061

3073

3076

3077
3078
3079
2080
3081
3082
3083
3084

HEADER LOCATION ('LSUNIT®).

WHEN THE OPERATOR HAS JUST TYPED

2)
3)

IN THE 'START®' COMMAND:
CODE WHICH SHOULD NOT fiE EXECUTED
ON THE FIRST PASS, BUT WHICH IS
TO BE RUN ON EVERY SUBSEQUENT PASS:
COMMON CODE WHICH IS TO BE EXECUTED

ON EVERY PASS (INCLUDING THE FIRST).

Llocal
PLOC;
1if ((READEF (EF_START)) or (READEF (EF_RESTART)))

then

be?in
QUICK = 1;

!THIS IS CATEGORY 1 CODE

'n 2 »

CLRTBLS (3

.
incr LUN from 0 to (.LSUNIT - 1) do
begin

'n 3«

it GPHARD (.LUN, PLOC) neq O
then
beggn

s 4 &

LSLUN = .LUN;

33282 :

gggg

3328; ;

gggg

if .NUM_DRIVES eql 0 then INIT_ADDRESSES (.PLOC):;

3089

NUM DRIVES = .UM DRIVES + 1;

3091
3092
3093
3094
3095
3096
3097

CONFIG (.LUN),
end

3609 :

3610

3611
3612
3613
3614
3615
3616
3617

;
;
;
;
;
;
;

PTABLE_ADDR [.LUN] = .PLOC;

3090

DRIVE _STATUS [.LUR] = ACTIVE;

else
end;

v 4 ¢

DRIVE_STATUS [.LUN] = INACTIVE;
'n 3 »

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (13)

CIMLBB0O PERFORMANCE EX ERCISER
MACRO M1113
UP.SOFT.COUNT DRIVE IDENTIFIC ATION ROUTINES

3619 :MLX4
3620 ;
3621
3622 .
3623 :
3624 ;

3625 :
3626
3627 :
3631
3632
3636 040474
3637 040500
3638 040504
3639 040506
3640 040510
3641 040516
3642 040516
3643 040520
3644 040526
3645 040532

SEQ 0115

27~Mr=-1982 19:24:42
27-Mar-1982 19:23:44

3098
3099

else

3101
3102
3103

!CATEGORY 3 CODE WOULD GO HERE, BUT THERE IS NONE.
ENDINIT;
TR

3100

end
QuICK = 0;

004167
012700
104447

000040

012700

000037

012767
004767
016704

000001

103404

104447
103076

164614

174022
141254

LINIT:

010300
006300

18:

2s:

MOV

BHIS
MOV

JSR
MOV
CLR
BR
MOV
MOV
ASR
ASR
ASR
ADD

MOV

TRAP
MOV
8EQ
:g{

034422

MOV

173650

173632

177770

000001

143746

3s:

LINIT INITIALIZATION CODE

Av€4

c6RO

47
18
#37.R0
47

7%
#1,QUICK

PC.CLRTBLS
LSUNIT.RG
R3
63
R3.LSLUN
R3,R2
R2
R2
R2
#DRIVE.STATUS,R2

R3.R0

42
ao R1

ngRO

R1,PTABLE.ADDR(RO)

NUM.DRIVES

JSR
ST

PC,INIT.ADDRESSES
(SP)+

BNE
MOV

174370

004767
010316

.SBTTL

JSR

TRAP
BCS
MOV
TRAP

172146

TOPS=-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (13)

‘e 2 »
iTHIS 1S CATEGORY 2 CODE

034442

36
367
3672 040642
3673 040646

PAGE 111

INITIALIZATION CODE

141326

3658 040572
3659 040574

29-MAR-82 13:41

INC

MoV
MOV

s
R1,~(SP)

NUM.DRIVES
R -(39)

BIC

p17777o (SP)

MOV

(sp) -(sp)

MOV

JSR

MOV

;

:
:
: LUN

: LUN,*
: LUN.*

: LUN,*

3082

; *,PLOC
; LUN,*

: PLOC,*

3085

3087

: PLOC,*
:

:
: LUN,*

(sP$

PC,BL$PU2
R3. (SP)

; LUN,*

3091

(ZMLBBO PERFORMANCE EXERCISER
LINIT INITIALIZATION CODE

3675

%2;9

3678 040650
3679 040654
3680 040656
3681 040660

3682 040662

3683 040660

3684 040672
3685 0640674

3686 040700

3687 040704
3688 (40706
3689 040710
3690 040712
3691 040714
ggg% 040720

004767
000411
010246
010346

042716

012746

005046
004767

062706

005203
020304
002714
000207
005067
000207

175126

3714

177770

000010

MOV
5%:
6%:

171754

JSR
BR
MOV
MOV

BIC

000001

143714

LR
PAGE 112
SEQ 0116

48:

3694

%;}8

29-MAR~82 13:41

JMLXG

7$:

CLR
JSR

ADD

INC
cMp
BLT
RTS
CLR
RTS

: Routine Size:

g%g
3701
3705
3706
3710 040722
3711 040726
g;}% 040730

MACRO M1113

177546

27-Mar-1982 19:23:44

INITIALIZATION CODE

PC,CONFIG
b1 ]
R2,-(SP)
R3, =(SP)

Me7770, (SP)

TOPS
PA:<

H
:
: LUN,*

3082
3094

3079

H
H
:

3072
3100
3045

3100

#1,-(SP}

-(SP)
PC,BLSPUZ

#16.SP
R3
R3.R4
28
PC
QUICK
PC

75 words

s LUN
2 LUN,»

)

: Maximum stack depth per invocation:

004767
1064411
000207

27-Mar-1982 19:24:42

9 words

.SBTTL
LSINIT::JSR
TRAP
RTS

LSINIT INITIALIZATION CODE
PC.LINIT
1
PC

: Routine Size:

& words

; Maximum stack depth per invocation:

3078

0 words

(IMLBBO PERFORMANCE EXERCISER
LSINIT INITIALIZATION CODE

3723 .MLXx4

g;gg .
3726 ;
3727 ;
3728 .
3729 ;

3730 ;

MACRO M1113

29-MAR-82 13:41

N9
PAGE 113

SEQ 0117
27-Mar-1982 19:54:42

GENERATOR FOR OPTION 1
3104
3105
3106
3107

3108

27-Mar-1982 19:23:44

ZXsbttl °'GENERATOR FOR OPTION 1°
routine GENT (SECTOR, FOMP_FLAG)
begin
!++

: novalue =

TOPS~20 BLiss=16 v2(212)

PA:<NEALE>MLX4.BLI.5 (14)

v 1«

g;g% :

%}98

;

ROUTINE :

GEN1(SECTOR,COMP_FLAG)

3733 ;
3734 ;
3735

3111
3112
3113

!
!
!

PURPOSE:

TO GENERATE THE ENTIRE 4K-WORD WRITE BUFFER FOR OPTION 1.
THE GENERATION IS IN 16 GROUPS OF 256 WORDS (THE SIZE
OF 1 SECTOR).
EACH GROUP OF 256 WORDS RECEIVES THE

ARGMENTS:

g;gg :

%}}g

;

%;gg :

§}}9

3740 ;
3741 ;
374C ;
3743 ;
3744 ;
3745 ;
3746 ;
3747 ;
3748 ;
3749 ;
3750 ;

3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128

!
!
!
==

g;g% :

g%gg

3753 ;
3754 :
3755 ;
3756 :
3757 .
3758 :
3759 ;
3760 ;
3761 ;
3762 :
3763 ;
3764 ;

n
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142

3;%2 :

g}zz

767 ;

3145

3769 :
3770 ;

3147
3148

3768 :

;771 :

3772 :
3773 ;
3774 ;
3775 ;

5779 :
777

3146

3149

3150
3151
152

SECTOR ADDRESS WHERE THE WORDS WILL BE TRANSFERRED.

155

SECTOR

(2)

COMP_FLAG = AN INPICATOR WHICH IS USED TO DECIDE
WHETHER THE LOCATION IN THE WRITE BUFFER
SHOULD BE COMPLEMENTED.

= CURRENT SECTOR NUMBER.

local
OFFSET;
OFFSET = 0;
.
if .COMP_FLAG

then

!GENERATE COMPLEMENT DATA

incru SECT from (.SECTOR) to ((.SECTOR) + 15) do
begin
8BREAK;
.
incru COUNT from 1 to 256 do
b&gtn
e 2A =
(WBUFF + (.OFFSET)) = not (.SECT);
!COMPLEMENT DATA
OFFSET = .OFFSET + 2;
end;
e 2A »

end

else

!GENERATE REGULAR DATA
incru SECT from (.SECTOR) to ((.SECTOR) + 15) do

begin
BREAK;

incru COUNT from 1 to 256 do

bag&n
(WBUFF + (,OFFSET)) = (.SECT);
OFFSET = .OFFSET + 2;

153

154

(1)

end;

' 28 »
!'REGULAR DATA
' 2B »

(ZMLBBO PERFORMANCE EXERCISER

LSINIT INITIALIZATION CODE

SEQ 0118

27-Mar-1982 19:56: 42
27-Mar-19 82 19:23:44

GE.NERATOR FOR OPTION 1
return;

end;

't 1 »

000016
000017
000001

000014

18:

000001
012670
000002

2s:

000400

3s:

000001
012670
000002

4%:

5%:

000400
6%:

.SBTTL
JSR

(LR
MOV
MoV
ADD
BIT
BEQ
MOV
8R
TRAP
MOV
COM
MoV

MOV

ADD
INC
(MP
BLOS
INC

(o,o

8LOS
RTS
TRAP
MOV

MoV
ADD
INC
M

BLOS
INC
P
BLOS
RIS

; Routine Size:

GEN1 GENERATOR FOR OPTION 1
R1.,SSAVESL
R2

16(SP) ,R1
R1 R4

;
; OFFSET

; SECTOR,

M7’ .RG

g}.iusm

; *,COMP.FLAG

R1.73

: %, SECT

:;.R1

; SECT,»

3$
22

#1.R0

s +,COUNT

R1,WBUFF (R2)
#2,R2
RO
gg.IAOO

s
;s
;
;

R3
R3.R4
13
PC

s SECTY
s SECT,»
H

#1,R0
R1.WBUFF (R2)
#2 ,R2

s *,COUNT
s SECT, ~(OFFSET)
: %, OFFSET

*,«(0OFFSET)
w,OFFSET
COUNT

COUNT,
=«

RO
gg,t400

s COUNT
s COUNT,
=

R1
R1.R4
43
PC

: SECT
: SECT,»

46 words

: Maximum stack depth per invocation:

S words

GEN1:

144356

TOPS=-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (14)

RRRRERRRER RRRRRRRRR 2
RReo000003050
& REFNSRER RN g g
ZRE Qoo

LA
& gL
OSSN
= OO0 NS W= O

§& gg

3793 040732
3794 040736
3795 040740
3796 040744
3797 040746
3798 040752
3799 040760
3800 040762
3801 040764
3802 040766
3803 040770
3804 040772
3805 040774

BEAY

PAGE 114

b cnd b

780 ;

29-MAR-82 13:41

WAN NN

3779 .MLx4

MACRO M1113

3145

LIMLBBO PERFORMAN CE EXERCI%ER

GEN1 GENERATOR FOR OPTION

29-MAR-B2 13:41

¢ 10
PAGE 115

SEQ 0119

27-Mar-1982 19:24:42

b —d

&@Q“ NNNNNNNNNNOCOOOO

b wvd ad wud b wd

b e

NN AN NN NN NN NN
N NN AN
el e

PATTERN NUMBER SELECTION

o e

000~

=0 VO~NON o

33
3865
3866

LTR TN TR TH TR TR PN P Y e 02920000 %008,% 082000, 08, s wg

S LB
LRV

3831" ‘MLX4

MACRO M1113

27-Mar-1982 19:23:44

TOPS-20 Bliss=-16 v2(212)
PA:<NEALE>MLX4.BLI.5 (15)

Xsbttl °PATTERN NUMBER SELECTION®
routine SELPAT

begin

: novalue =

] +4

ROUTINE :

SELPAT

PURPOSE :

TO SELECT THE NEXT PATTERN NUMBER IN OPTION 2.

]
.

[}

]

THIS ROUTINE AUTOMATICALLY COMPLEMENTS THE CURRENT

PATTERN NUMBER AND EXAMINES THE SIGN OF THE RESULT.
IF _THE RESULT IS NEGATIVE, THEN IT IS TAKEN TO BE
THE _PATTERN NUMBER OF A COMPLEMENT PATTERN AND A
'RETURN® IS EXECUTED,
IF, HOWEVER,
THE RESULT IS

]

POSITIVE, THEN AN ENTIRELY NEW PATTERN NUMBER IS

[}

REQUIRED.

THE NEW PATTERN NUMBER IS OBTAINED BY

INCREMENTING THE OLD.

]

PATTERN = ~(.PATTERN);

if .PATTERN geq O then PATTERN = .PATTERN + 1;
return;

end;

171604
171600

171572

.SBTTL
SELPAT: NEG
IST
BLT
INC
18:
RTS

SELPAT PATTERN NUMBER SELECTION
PATTERN
:
qngERN

3178
3180

PATTERN
PC

3160

: Routine Size:
8 words
]
. Maximum stack depth per invocation:

:
0 words

(IMLBBO PEPFORMANCE E XER CISER
MACRO M1113
SELPAT PATTERN NUMBER SE LECTION

3885 .mMLx4

29-MAR-82 13:41

SEQ 0120
27-Mar-1

TOPS=20 Bliss-16 v2(212 )
PA:<NEALE>MLX4.BLI.S (1 6)

"USING THE PATTERN TABLE'

routgneiGETCNTS (PATTERN) =
+

egin

ROUTINE:

GETCNTS(PATTERN)

PURPOSE :

YO POINT TO THE APPROPRIATE BLOCK OF THE PATTERN

TABLE AND GRAB THE VALUES WHICH ARE REQUIRED FOR THE
PATTERN GENERATOR FOR OPTIONS 2 AND 4.

ARGUMENT :

PATTERN = THE CURRENT PATTERN NUMBER.

RESULTS:

(1)

pert

W N NN
N NN NN
)8!
Q
O

90D DOV 000 DDBDPPE

N AN NN AN AN A NN

USING THE PATTERN TABLE

Isbttl

D 10
PAGE 116

(2)
(3)

'VALUE' RECEIVES THE VALUE WHICH IS RETURNED FOR

THE SUBROUTINE.
IT IS THE 4-BIT BINARY AMOUNT WHICH
WILL BE USED AS THE CONTENTS OF A NIBBLE OF COMPLEMENT
DATA.

"DATA_COUNT' RECEIVES THE NUMBER OF NIBBLES OF DATA.
°'COMP_COUNT® RECEIVES THE NUMBER OF NIBBLES OF

COMPLEMENT DATA.

local

PATNUM,
VALUE:

selectone .PATTERN of
set

L1 to 5] :
begin

PATNUM = _PATTERN

VALUE = 2b'1010°;
end;

- 1;:

-5 to -1]
begin

PATNUM = -(.PATTERN) ~ 1;
VALUE = Xb*0101°;

end;

[> to 10 :
begin

PATNUM = _PATTERN - 6;
VALUE = Zb*'1111°;
end:

[-10 to -6] :

begin
PATNUM = =(_PATTERN) =~ §;

USING THE PATTERN TABLE

7-Mar-1982 19:24:42
7-Mar-1982 19:23:44

TOPS~20 Bliss~16 v2(21 2 )
PA:<NEALE>MLX4.BLI.S ( 1 6)

(IMLBBO PERFORMANCE EXERCISER
MACRC M1113
SELPAT PATTERN NUMBER SELECTION

3942

3943 ;

3944
3945
3946
3947

3948

;
;
.
.

3949

gggg :
3955
3959 041106
3960 041112
3961 041116
3962 041120

3963 041124

3964 0411%8
3965 0411

3966 041132
3967 041136
3968 041140
3969 041144
3970 041146
3971 041150
3972 041152
3973 041156
3976 0641160
3975 041164
3976 041166
3977 061172
3978 041174

3979 061300

3980 041202
3981 041204
3682 041210
3983 041214
3984 041216
3985 041222
3986 041226
3987 041230
3988 041232
3989 0412
3990 041240
3991 041242
3992 0412446
%99 0612646

994 041254

3995

3998 041262
2999 047264

4001

2%;

3236

3237
3 28
3239
3240

3261

3242

3243
0046167

016600
003410
020027
003005

012702
000441
020027
002410
005700
002006
012701
160001
012702
000426
020027
002411
020027

003006
010001
162701
012702
000412
020027
002407
020027
003004
012701
160001
005002
006301
006301
016167

016167

010200

000207

PAGE

£ 10

116-1
SEQ 0121

VALUE = Zb'0000°;

tes;

end;

DATA_COUNT = _PATTBL [.PATNUM, COUNT1);

COMP_COUNT = _PATTBL [.PATNUM, COUNTZ2]:
return .VALUE:

end;

.SBTTL
GETCNTS:JSR

144150

000010
000005

177773

18:

177777
000005
000006

28:

000012

MoV

RO,R1

; %, ,PATNUM

3217

MoV
B8R
cwP
8LT
187
8GE
mov
suB
MoV
B8R
cwe
BLY
o

#12.R2
43
RO, 4-5
23
RO
2%
#-1,R1
RO.R1
#5,.R2
43
RO.#6
3s
RO, 412

: %, VALUE
:

3218
3212

: * ,PATNUM
: * ,PATNUM
: %, VALUE
:

3223

mov
SuUB
MoV
BR
cHP
8LY
P
86T
MOV
suB
CLR
ASL
ASL
MOV

RO,R1
#6,R1
n?.R2
43
RO, #-12
4$
RO, #-6
4s
#-6,R1
RO.R1
R2
R1
Rl
PATTBL(R1) ,DATA.COUNT

867

000006

000017
177766

3s:

177772
177772
4$:
034520

3185

DEC

000012

034522

GETCNTS USING THE PATTERN TABLE
R1,8SAVE?2
H

MOV
BLE
(4, 2
867

010001

005301

29-MAR-82 13:41

171424

171420

JMLXG

MOV

MOV
RTS

; Routine Size:

10(SP) .RO
1%
RO.45
1$

: PATTERN,*

; PATNUM

3229

3230

3212

s *,PATNUM
s * PATNUM
s VALUE
:

USING THE PATTERN TABLE

R2,.RO

s VALUE,*

56 words

3224
3212

: *,PATNUM
: * PATNUM
s *,VALUE
:

PATTBL+2(R1),COMP. COUNT

: Maximum stack depth per invocation:

3212

3 words

3235
3236
3240

27-Mar-1982 19:24:42

27-Mar~-1982 19:23:44

3241

TOPS

PA:<
3186

3185

CZMLBBO PERFORMANCE EXERC]SER
MACRO M1113
GETCNTS USING THE PATTERN TABLE

4010 ;L X4
4011 :
4012
4013 H
4014 :
4015 :
4016 :
4017 :
4018 :
4019
4020 E
4021 M
6022 :

4023

4024 3
4025 N
4026 H
4027 ;

:
:
:
:

;
:

H
:
.
:
H

:
:

3244

27-Mar-1982 19:24:42

Xsbttl

27-Mar-1982 19:23:44

°'NIBBLE GENERATOR®

routine FILLER (BUFFER, WRDCNT, VALUE)
begin

3251

g%g4

;

3255

325%

3256
3257
3258
3259
3260
3261

'+ee
;
ROUTINE :

PURPOSE :

THE °FILLER® ROUTINE IS A LOOP WHICH WILL ALTERNATE BETWEEN

!
!
!
!
!
!

THE TWO COUNTS AND FILL THE APPROPRIATE NUMBER OF NIBBLES OF
THE CHOSEN BUFFER WITH THE CONTENTS OF °VALUE'. EVERY TIME
A COUNT 1S EXMAUSTED, THE OTHER COUNT IS STARTED UP AGAIN,
AND EACH TIME A NEW COUNT IS BEGUN, °VALUE® IS COMPLEMENTED.
NOTE THAT THE FIRST COUNT THAT WILL BE USED WILL ALWAYS BE
'DATA_COUNT®, SO THAT THE BUFFER WILL BE REPETITIONS OF:

gsgg

(2)

gsgg
3270

(3)

327

59
8

3
328
3%3;

FOR A SPECIFIED NUMBER OF 16-8IT WORDS.

THIS ROUTINE IS THf HEART OF THE GENERATOR FOR OPTIONS 2 AND 4.

g%gg % ARGUMENTS :

3278
3279

: novalue =
v 1 »

TO LOAD A CHOSEN WRITE BUFFER, ONE NIBBLE AT A TIME, WITH A

PARTICULAR PATTERN,

;

3271
327
327
3274
gZ;S

TOPS-20 Bliss=16 v2(2 12)

PA:<NEALE>MLX4.BL].S az )

FILLER(BUFFER,WRDCNT
,VALUE)

gzg

DATA, COMP, DATA, COMWP ...

(1) BUFFER = THE STARTING ADDRESS OF THE CHOSEN WRITE BUFFER.
WRDCNT = THE NUMBER OF WCRDS OF PATTERN TO BE GENERATED.

VALUE = NIBBLE OF DATA TO BE PLACED IN THE WRITE BUFFER

Llocal
NIBBLE,
OFFSET,
FLAG,
THE_COUNT;

FLAG = 0;

OFFSET = 0;
NIBBLE = 0;

while 1 do

bexin
FLAG = not .FLAG:
VALUE = not .VALUE:

if .FLAG eql 0

then
g gME-COUNT = .COMP_COUNT

In 2 o
'FLIP THE FLAG
IAND THE DATA

1CHOOSE A COUNT

else

;
:

SeQ 0122

3245
3246
3247
3248
ggég

g g?

:
:

PAGE 117

NIBBLE GENERATOR

:
:
:

F 10

29-MAR-82 13:41

THE_COUNT = .DATA_COUNT:

decr COUNT from .THE_COUNT to 1 do

beg&?
(.
FER + (.OFFSET))<.NIBBLE, 4,

NIBBLE = (((.NIBBLE) + &) mod 165;

TEXHAUST THE COUNT
e 3 »

0> = ,VALUE;

'LOAD THE NIBBIE

!CHANGE NIBBLE POINTER

CIMLBBO PERFORMANCE EXERCISER
MACRO M1113
GETCNTS USING THE PATTERN TABLE

4110 041340

<111 041344
4112 061350
4113 041354
4114 041356
4115 041362
4116 061366
4117 061372
4118 041374
4119 041376
4120 041400

VOO
2L

if . NIBBLE
then
begin
BREAK;

MNN) =

OFFSET

WRDCNT

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.5 (17)

ql O
e

‘x4

-OFFSET + 2;
JWRDCNT -~ 1;

it .WRDCNT eql O then return;

end;

3307

end;
end;

end;

144042

000016

171364
171354

000024

000024
143240
000004
ooggzo
143610

000002

«SBTTL

FILLER: JSR

CLR
CLR

18:

CLR
com
com

ST
BNE
ggv

MOV

MoV

BLE
MOV

ADD
MOV
novV
MoV
JSR

MOV
ADD

MOV
JSR

MOy
BNE
TRAP
ADD

FILLER NIBBLE GENERATOR
R1,$SAVES
R
RS
R2
R1
16(SP)

$
cgnr.couur.n4

DATA,

R4 .R3

COUNT R4

1$
RS,~(SP)

24(SP), (SP)
R2,-(SP)
#4.-(SP)

24(SP) ,~(SP)
PS.BLSPUZ
R2.(SP)
¥4 (SP)

#20,~(5p)
PC,BLSMOD

RO.R2
6$
22
#2,RS

FLAG
OFFSET
NIBBLE
FLAG
VALUE
FLAG

TNT

4101 041310
4102 041312
4103 041316
6104 041320
4105 041324
4106 041326
4107 0641330
4108 041332
4109 041336

27-Mar-19 82 19:24:4
162
27-Mar-1982 19:23:4 4

AR TR

4090
4094 0461266
4095 041272
4096 041274
4097 041276
4098 041300
4099 041302
4100 041306

SEQ 0123

LI AX

4089

610
PAGE 118

NIBBLE GENERATOR
A LA LA AN AN AN
N odYal
NN NN N NI
QOO0O0O0

4066 ;MLX4
4067 ;
4068
4069 ;
4070 ;
4071 ;
4072 ;
4073 :
4074 ;
4075 ;
4076 ;
4077
4078 ;
4079 ;
4080 ;
4081 ;
4082 .
4083 ;
4084
4085 ;

29-MAR-82 13:41

t, THE . COUNT

THE . COUNT
, COUNT

OFFSET,
BUFFER,
NIBBLE,*
VALUE
,»
NIBBLE,*

* NIBBLE
« OFFSET

3295

3297
3301

|94 MLBBO PERFORMANCE EXERCISER
Fl LLER NIBBLE GENERATOR

- OWN

OObOONOg

b e

i o

&
KRRRR]RR[=4
ol o a3
bmwbb b b

¥
T

b —h

005366
003

000032
000012
000012

H 10
PAGE 119

SEQ 0124

sMLXé

) ol el b ad i

T
O NT
oF 3F P T

&S oW

29-MAR-82 13:41

63:

5-Mar-1982

~Mar-1982

NIBBLE GENERATOR

[

NAAH
N NN NN
gwngO\lo\fl

de
b b

MACRO M1113

DEC
BNE
ADD
RTS
ADD
DEC
BNE
B8R

: Routine Size:

32(SP)
63

WRDCNT

#12,SP

PC
#12,SP

R3
43
1$

50 words

Maximum stack depth per invocation:

COUNT

1 3:54:42
1
3:44

TOPS
PA:<

3302
§304
245
3304
3293
3292
3281

11 words

(ZMLBBO PERFORMANCE EXERCISER
FILLER NIBBLE GENERATOR
4143 .mLX6

2_}2? H
4146 ;

4147 ;

4148
4149
4150
4151
4152

;

;
;
;

4153 ;
4154 ;
4155 .
46156 :
4157 ;
4158 ;
4159 ;
4160 ;
4161 ;
46162 ;
4163 ;

2}23 :

4169
4173 0414632
L1746 0641636

4175 041442

4176 041446
4177 04146452
4178 041454
64179 041460
2113? 0641464
4182
2}33
4189

MACRO M1113

29-MAR-82 13:41

SEQ 0125

27-Mar-1982 19:24:42

GENERATOR FOR OPTION 2
3313

3314

3315
3316
3317
3318
3319

3320
3321
332
3323
3324
3325
3326
3327
3328
3329
3330

3331

016746
004767

012716

012746
010046
004767
062706
000207

lsbtgl

[ .10

PAGE 120

27-Mar=-1982 19:23:44

TOPS=-20 Bliss-16 v2(212)

PA:<NEALE>MLX4.BLI.S (18)

*GENERATOR FOR OPTION 2°'

routine GENZ2 : novalue =
begin

les
!
ROUTINE:
!

!
PURPOSE:
!
!
te-

GEN2

TO GENERATE THE ENTIRE WRITE BUFFER (WHICH
WILL BE USED IN CONJUNCTION WITH OPTION 2)
BASED ON PATTERN TABLE ENTRIES.

local
VALUE;
VALUE = GETCNTS (.PATTERN);
FILLER (WBUFF, BUFSIZ, .VALUE):;

return;
end;
171240
177444

012670
0046000

177606
000006

GENZ2:

.SBTTL
MOV
JSR

MOV
MoV
MoV
JSR
ADD
RIS

GEN2 GENERATOR FOR OPTION 2
PATTERN,-(SP)
PC,GETCNTS

MBUFF , (SP)

#6000,-(SP)
RO,=-(SP)
PC,FILLER
#6,SP
PC

; Routine Size:
14 words
]
. Maximum stack depth per invocation:

3328

3329

s VALUE,*

3 words

3314

CIMLBBO PERFORMANCE EXERCISER

MACRO M1113

GEN2 GENERATOR FOR OPTION 2
43191

;MLXG

2}8% :
4194
6195
4196
4197
4198

;
;
;
;
;

29-MAR-82 13:41

PAGE

J_10
121

SEQ 0126
27~Mar-1982 19:24:42

GENERATOR FOR OPTION 3

27-Mar-1982 19:23:44

Isbttl "GENERATOR FOR OPTION 3'
routine GEN3 (COMP_FLAG) : novalue =
begin

2}88 :

3332
3333
3334
3335
3336

g%gg

ROUTINE :

GEN3(COMP_FLAG)

4201 ;
4202 ;

ggz;

!
!

PURPOSE:

2%82 :

3239
3340

TO GENERATE THE ENTIRE WRITE BUFFER WHICH WILL BE MADE
UP OF WORDS WHICH CONTAIN THE UNIQUE COUNT FROM ONE TO

BUFSIZ.

4205 ;
4206 :
4207 ;

3343
3344
3345

!
ARGUMENT:
!
--

COMP_FLAG - THIS IS AN INDICATOR OF WHETHER OR NOT TO
COMPLEMENT EVERY WORD IN THE WRITE BUFFER.

4208 ;
4209 ;
4210 ;
4211 ;
4212 ;
4213 ;
4214 ;
4215 ;
4216 ;
6217 ;
4218 ;
4219 ;
4220 ;
4221 ;
4222 ;

4223 ;

4224
4225
4226
4227
4228
4229
4230
4231

;
;
;
;
;
:
;
;

25%% :

4237
4241 041466
4262 041470
4243 041472
4244 041500
4245 041502

3346
3347
3348
3349

3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369

3370

010146
005001
032766
001415
012700

!¢+

TOPS=20 Bliss=-16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (19)

local
OFFSET;

OFFSET = 0;
.
if .COMP_FLAG
then
.
incru COUNT from 1 to BUFSIZ do
bfigrn
(WBUFF + (.OFFSET)) = not (.COUNT);
OFFSET = .OFFSET + 2;
end

else

.
incru COUNT from 1 to BUFSIZ do
bagrn
(WBUFF + (.OFFSET)) = (.COUNT);
OFFSET = ,OFFSET + 2;
end;

!GENERATE COMPLEMENT DATA

!'COMPLEMENT DATA

!GENERATE REGULAR DATA

!REGULAR DATA

return;

end;

GEN3:
000201
000001

000004

-SBTTL
MoV
CLR
8IT
BEQ
MoV

GEN3S GENERATOR FOR OPTION 3
R1,-(SP)
R1
#1,4(SP)
23
#1,R0

:
; OFFSET
s *,COMP.FLAG
s *,COUNT

/| CZMLBBO PERFORMANCE EXERCISER
GEN3 GENERATOR FOR OPTION 3
4247

6266
2%95
4273

29-MAR-82 13:41

010061
005161
062701
005200
020027
101766
000412
012700
010061
062701
005200
020027
101770
012601
000207

012670
012670
000002

1$:

004000
000001
012670
000002

K_10
PAGE 122

SEQ 0127
sMLXS

2523
4250 0641506
4251 041512
4252 041516
4253 041522
4254 041524
4255 0641530
4256 041532
4257 041534
4258 041540
4259 041544
4260 041550
4261 041552
4262 041556
4263 041560
2522 041562

MACRO M1113

28:
3s:

004000
48

27-Mar-1982 19:24:42

GENERATOR FOR OPTION 3
MOV
coMm
ADD
INC
CMP
8L0S
B8R
MOV
MOV
ADD
INC
CMP
8LOS
MOV
RTS

27~Mar=-1982 19:23:44

RO,WBUFF(R1)
WBUFF (R1)
#2 ,R1
RO
RO, #4000
18
48
#1,R0
RO, WBUFF (R1)
#2.R1
RO
RO, #4000
3
{SP) +,R1
PC

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

:
.
s
2
2

COU
, ~(OFFSET)
NT
»(OFFSET)
~, OFFSET
COUNT
COUNT,»

:
:
s
;
;
s

«,COUNT
COUNT,«(OFFSET)
*,0FFSET
COUNT
COUNT,»

2 words

TOPS

PA:<
3357
3358
3355

3352
3363
3365
3366
3363
3333

CZH%BBO PERFORMANLE EXERCI%ER
GEN
GENERATOR FOR OPTION

4275 ;MLXG

4276 ;

MACRO M1113

29-MAR-82 13:41

PAGE

L 10
123

SEQ 0128

27~Mar-19 82 19:24:4
142
27~Mar-1982 19:23:4 4

GENERATOR FOR OPTION &

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX&4.BLI.5 (20)

Isbttl 'GENERATOR FOR OPTION 4°

routine GEN4 (MARPAT, BUFFER)
+
+

GENG (MARPAT ,BUFFER)

PURPOSE
:

THIS IS THE GENERATOR WHICH IS USED FOR OPTION 4, THE
MARCH TEST.
IT BEGINS AT THE START OF THE CHOSEN
BUFFER AND GENERATES 256 WORDS IN THE EXACT WAY THAT
OPTION 2 DOES.

ARGUMENTS
:

(1)

MARPAT - THE MARCH PATTERN NUMBER

(2)

BUFFER ~ THE STARTING ADDRESS OF THE CHOSEN BUFFER

L
R
Lt

L T R
R L

local

M R

P )

: novalue =

ROUTINE:

iy U

begin

VALUE = GETCNTS (.MARPAT);
FILLER (.BUFFER, 256, .VALUE);

4306
4310 041564
4311 041570
4312 041574
4313 041600
4314 041604
4315 041606
4316 041612
4317 061616
4318
4319
4320
4325
4326

VALUE;

return;

end;

016646
004767
016616
012746
010046
004767
062706
000207

000004
177312
000004
000400
177454

000006

GEN4:

.SBTTL
MOV

JSR
MOV

MoV
MOV
JSR

ADD
RTS

: Routine Size:

GEN4& GENERATOR FOR OPTION 4
4(SP) Y ,~(SP)

PC,GETCNTS
4(SP), (SP)

#400,-(SP)
RO,-(SP)
PC.FILLER

3391

s BUFFER,*

3392

s VALUE,x

#6,SP
PC

14 words

; MARPAT
,»

3372
.

. Maximum stack depth per invocation:

3 words

CZMLBBO PERFORMANCE EXERfileR
GEN&4 GENERATOR FOR OPTIO

4328 sMLXSG
6329
4330
LI
NI TN WA S

o P
O o
AL TR TR TR TR PR TR T N
MR

29-MAR-82 13:41

Xsbttl

Mm_10
PAGE 124

SEQ 0129

GENERATOR FOR OPTION S

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (21)

'GENERATOR FOR OPTION §°

routine GEN5S : novalue =

begin

144

ROUTINE:

GENS

PURPOSE:

THIS IS THE GENERATOR WHICH IS USED FOR OPTION S.

!
!
s

4365

MACRO M1113

IT BEGINS AT THE START OF THE WRITE BUFFER, AND GENERATES
A FULL BUFFER OF RANDOM DATA.
THE FIRST 3 WORDS OF THE BUFFER
RECEIVE THE 3 SEEDS WHICH WERE USED IN THE GENERATION.

local
OFFSET;
(WBUFF
(WBUFF
(WBUFF
OFFSET

+
+
+
=

0) = ,SEED1;
2) = _SEED2:
4) = ,SEED3;
6;

!THE FIRST 3 WORDS OF THE
!WRITE BUFFER RECEIVE THE
!3 GENERATING SEEDS.

incrg COUNT from &4 to BUFSIZ do

gg:{i:
egin

(WBUFF + .OFFSET) = .RANDOM;

OFFSET = ,OFFSET + 2;
end;
return;

end;

!NOTE: USING SIGNED VALUES (FULL 16 BITS)

CZMLBBO PERFORMANCE EXERCISER
GENS GENERATOR FOR OPTION §

4367
4371 061620

004167

143436

4373 061632

016767

143622

MACRO M1113

016767
012701
01270;
004767
104422
016761
062701
005202
020227
101764

2;32

2%%; 0641706
4389
2;3?

4396

GENS:

151032

143616
000006
000004
143506

151026

143574
000002

012670

.SBTTL
JSR

004000

JMLXG

3396

SEED2.WBUFF
+2

3412

SEéD1+WBUFF

MOV
MOV
MOV
JSR
TRAP
MOV
ADD
INC
CMP
8LOS

SEEDS. WBUFF
+4
#6,R1
#4,R2
PC.RN
22
RANDOM,WBUFF (R1)
#2.R1
R2
R2.#4000
1

MOV

18:

GENS GENERATOR FOR OPTION §
AVEZ2

MOV

000207

N_10
PAGE 125

SEQ 0130

6372 041624 016767 143626 151036

43746 061640
4375 0641646
4376 041652
4377 041656
4378 041662
4379 0641664
4380 041672
4381 041676
4382 0641700
4383 041704
4384

29-MAR-82 13:41

;

:
s
;
:

%,0FFSET
»,COUNT

3413
3414
3416
3418

:
:
s
;

«,%(OFFSET)
%, OFFSET
COUNT
COUNT,«

3420
3421
3416

27~Mar-1982 19:24:42

GENERATOR FOR OPTION §
RTS

27-Mar-1982 19:23:44

: Routine Size:
2B words
: Maximum stack depth per invocation:

3411

:
3 words

TOPS

PA:<
3396

\ZMLBBO PERFORMANCE EXERCISER

MACRO M1113

GENS GENERATOR FOR OPTION 5

4398 sMLX4
4399

4423
6424
4425
4426
4427
4428
4429

4430
4431

LA PR YR YE TR T ..‘..'.......l..'.'..l'......l...-.l BeVe®a vy VeLR 0,000, L E R

YR
IR TR TR)

4400
4601 ;
4402 °
4403
4404
4405
6406
4407
4408
4409
4410
4411
4412
4413
44614
4415
4416
4417
4418
4419
4420
44621
4422

29-MAR-B2 i3:41

8_11

PAGE 126

SEQ 0131

27-Mar-1982 19:24:4 2

SYSTEM ERROR DETECTOR

Xsbttl

begin

]
.

1
H

)
-

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5

°*SYSTEM ERROR DETECTOR'®

routine SYSERR
¢

27-Mar-1982 19:23:4 4

(LUN)

'x 1«

ROUTINE :

SYSERR(LUN)

PURPOSE :

(1)

TO SCAN FOR SYSTEM ERRORS AFTER A TRANSFER HAS ENDED.

(2)

PRINT ERROR MESSAGES IF APPROPRIATE:

]
.

|
.

A) ERROR MESSAGES DURING RETRIES WILL NOT
BE PRINTED.

[}
-

t
.

}

]

(3)

THE OPERATOR HAS THE ABILITY TO INHIBIT THE

PRINTING OF DATA ERRORS, BUT NOT SYSTEM ERRORS.

DECIDE ON A VALUE TO RETURN WHICH WILL INDICATE THE

RELATIVE SEVERITY OF THE ERROR.

ARGUMENT :

LUN = THE CURRENT LOGICAL UNIT NUMBER
[0 TO NUMBER OF DRIVES MINUS 1].

RESULT:

VALUE RETURNCD FOR THE SUBROUTINE SHOWS TYPE OF ERROR:

0 = NO _ERRORS AT ALL

1 = RETRY ALLOWED FOR THESE TYPES OF ERRORS

2 = FATAL CONTROLLER ERROR

2 = FATAL DRIVE ERROR
UNCORRECTABLE DATA ERROR
5
CORRECTABLE DATA ERROR
FIGURE OUT WHICH VALUE TO RETURN BY THE FOLLOWING SCHEME:

(1)

(2)

(3)

IF THERE IS A CHOICE BETWEEN DATA ERROR AND SYSTEM ERROR,
FIRST CHOOSE THE DATA ERROR.

1F THERE IS A CHOICE BETWEEN FATAL AND NON-FATAL ERROR,

FIRST CHOOSE THE FATAL ERROR.

IF THERE IS A CHOICE BETWEEN CONTROLLER ERROR AND DRIVE ERROR,

FIRST CHOOSE CONTROLLER ERROR.

Label
PURPOSE_2_CODE;
local

ERRZ,
ERR3,
ERRS,
ERRS,

ERRS,

ERR?7,
ERRS,

! VER CZMLBB ADDED THIS LOCAL

(22)

CZM.BBO PERFORMANCE E ¥§g§1§ER

GENS GENERATOR FOR OP
4456 MLXS

2222 M
4457 ;
4458 ;
4459 ;
4460 ;
4461 ;
4462 ;
4463 ;
4464 ;
4465 ;
4466 ;
4467 ;
4468 ;
4469 ;
46470 ;
4471 ;
L4472 ;
4473 ;
4474 ;
4475 ;

MACRO M1133

29-MAR-82 13:41

SEQ 0132
27-Mar-1982 19:24:42

SYSTEM ERROR DETECTOR
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496

(.1
PAGE 127

27-Mar-1982 19:23:44

ERRY;

ERR2 =
ERR3 =
ERR4 =
ERRS =
ERRG =
ERR7 =
ERR8 =
ERR9 =

INACTIVE;
INACTIVE;
INACTIVE;
INACTIVE;
INACTIVE:
INACTIVE:
INACTI'E;
INACTIVE;

'+
! THIS IS THE CODE FOR PURPOSE 1:
l.
if .SC
then
.
begin

TOPS=-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (22)

VER CZMLBB ADDED THIS LOCAL

!
!

VER CZMLBB
VER CZMLBB

!THERE ARE SOME ERRORS ~- FIND OUT WHAT KIND
In 2 »

22;9 :

gzgg

if ((.NED) or (.NEM) or (.PGE)) then ERR2 = ACTIVE;

22;3 :

gggg

if ((.DLT) or (.PE) or (.MXF) or (.MOPE) or (.MCPE)) then
ERR3 = ACTIVE;

4480
4481
4482
4483
4484

3501
3502
3503
3504
3505

;
;
;
.
;

! VER ADDED THIS ERR9
if (.MDPE) and ( not .SGL)

then ERR9 = ACTIVE:

! VER ADDED THIS ERRS
.
it ((.DLT) or (.PE) or (.MXF) or (.MCPE)) then ERR8 = ACTIVE;

4485 ;
22%9 :

3506
gggg

22%8 :

§§?3

if (C.WCE) and (.ECCDIS eql 0)) then ERR3 = ACTIVE:

2239 :

§§}}

if ((.UNS) or (.IAE) or (.AOE) or (.RMR) or (.ILR) or (.ILF)) then
ERR4 = ACTIVE;

223% :

gg}z

if ((.OPI) or (.DPAR) or (.CPAR)) then ERRS = ACTIVE;

2232 :

gg}g

if ((.DCK) or (.crc) or (.SGL)) then ERR? = ACTIVE:

2289 :

gg};

if ((.WCE) and (.ECCDIS eql 1)) then ERR? = ACTIVE:;

4498 ;
4499 ;
4500 ;
4501 .
4502 ;
4503 .
4504 ;
4505 .
4506 ;
4507 ;
4508 ;

3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529

if (C.ECH) or (.UNC)) then ERR6 = ACTIVE:
else

end

return 0;

e
! TMIS IS THE CODE FOR PURPOSE 2:
!
!
LABEL:
!
BEGIN 3

Ix 2«
!THERE ARE NO ERRORS =~ RETURN SUCCESSFULLY
!INO ERRORS AT ALL

(ZMLBBO PERFORMANCE EXERCISER

GENS GENERATOR FOR OPTION
4510 mLX4

22}; M
4513
$514 ;

4515
4516
4517
4518
4519
4520
4521

4522
4523
4524
4525
4526

;
:
;
;
;
:
;

;
;
;
;
;

4527 ;
4528 ;
4529 ;
4530 .
4531 ;
4532 :
4533 ;
4534 ;

4535 ;
4536 ;

4537 .
4538 .
4539 .
4540 ;
4547 ;
4542 ;
4543 ;
4544 ;
4545 ;
4546 ;
4547 ;
4548 ;
4549 ;
4550 ;
4551 ;
4552 ;
4553 ;

MACRO M1113

29-MAR-82 13:41

PAGE 128

SEQ 0133

SYSTEM ERROR DETECTOR
3530
3531

3532
3533
3534
3535
3536
3537
3538

3539
3540
3541
3542
3542

3544
3545
3546
3547
3548
3549
3550
3551

3552
3553

3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570

'
!
[
!
'
!
!
!
!

!
!
!
!
'

!
!
!
!
!
'

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS~20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S (22)

IF RETRYING
THEN LEAVE LABEL (NO PRINTOUTS AT ALL)

ELSE
BEGIN 4
IF ERROR PRINTOUTS ARE ALLOWED
THEN
BEGIN SA
IDENTIFY THE LOGICAL UNIT
SCAN FOR & PRINT DATA ERRORS

END
SA
ELSE
BEGIN 58
IF THERE ARE SYSTEM ERRORS TO REPORT
THEN IDENTIFY THE LOGICAL UNIT

ELSE
LEAVE LABEL
END
SB
SCAN FOR & PRINT SYSTEM ERRORS
END 4
END 3

PURPOSE 2_CODE :
begin
.
if .RETRYING
then
leave PURPOSE_2_CODE
else
begin

if .ERROUT
then
beein
SAYWHO (.LUN);
PRINTB (SAY1, PHR10);
'*ERROR BITS SET:
)
if .ERR7
then
begin

!« 3«

!(NO PRINTOUTS AT ALL)
In 4

In SA =

22;; :

§§;1

if .DCK then PRINTB (FMT1S, MLB20):

2229 :

§§;4

if .crc then PRINTB (FMT15, MLB22):

2§§g :

gg;g

if .SGL then PRINTB (FMT15, MLB23):

2?2? H

gg;g

if ((.WCE) and (.ECCDIS eql 1)) then PRINTB (FMT1S, MLB6):

4
:
4563 ;
4564 ;

579
580
3581

end;
.
if .ERR6

CIMLBBO PER: ORMANCE EXERCISER
GEN5 GENERATOR FOR OPTION S

4578
4579
4580

BRREEEas
O mwgmgum

4574
6575
4576
4577

E_N

PAGE 129

SEQ 0134

then

end;

4582

begin

if .UNC then PRINTB (FMT15, MLB24);

else

4581

7-Mar-1

if .ECH then PRINTB (FMT15, MLB21);

29-MAR-82 13:41

SYSTEM ERROR DETECTOR
N AN N NN
NNN

4566 SALXS
4567
4568
4569 ;
4570 ;
65N
4572
4573

MACRO M1113

end

I S5A ¢

befl;n
VER CZMLBB CHANGED ERR3 TO ERRS

's 58 «

if ((.ERR2) or (.ERR8) or (.ERR4) or (.ERRS))
then
begin
SAYWHO (.LUN):
PRINTB (SAY1, PHR10):

!*ERROR BITS SET:
end

else
! VER CZMLBB ADDED TEST OF ERR9 HERE

OO NN

i v

o cndh e

AR,

if .ERRY
then
begin
SATWHO (.LUN);
PRINTB (SAY1, PHR10);
!*ERROR BITS SET:
end
else
begin
leave PURPOSE_2_CODE;
end;

end;
if .ERR2
then
begin

it .NED then PRINTB (FMT1S, MLB2):

if .NEM then PRINTB (FMT15, MLB3):
if .PGE then PRINTB (FMT15, MLB4):

end;

if .ERR3
then

v 58 «

TOPS-20 Bliss=-16 v2(21 2 )
PA: <NEALE>MLX4.BLI.S ( 2 2)

(IMLBBO PERFORMANCE EXERCISER

GEN3 GENERATOR FOR OPTION S
4622 :MLXG
4623

4624 °

MACRO M1113

29-MAR-82 13:41

PAGE

F_11
130

SEQ 0135

57-Har-198 Sk
42
7-Mar-%98
3:44

SYSTEM ERROR DETECTOR

4625 ;
4626
4627
4628 ;
4629 ;

begin

[

it .DLT then PRINTB (FMT15, MLBS);

[

it ((.WCE) and (.ECCDIS eql 0))

then PRINTB (FMT15, MLBG);

4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643

;
;
;
;
;
:
;
;
;
;
.
;
;

if .PE then PRINTB (FMT1S5, MLB7);

if .MXF then PRINTB (FMT15, MLBS8);

.
®

! VER CZMLBB ADDED °‘AND NOT .SGL®

it ((.MDPE) and ( not .SGL)) then PRINTB (FMT15, MLBY);

if .MCPE then PRINTB (FMT1S, MLB10);

.
4

end;

.
»

begin

if .UNS then PRINTB (FMT15, MLB11);

”

[

if .JAE then PRINTB (FMT1S, MLB12);

[
.

if .AOE then PRINTB (FMT15, MLB13);

[4
e

if .RMR then PRINTB (FMT15, MLB14);

[4
[

if .ILR then PRINTB (FMT1S, MLB1S5);

”

if ILF then PRINTB (FMT1S, MLB16);

4
.

end;

4
.

if .ERRS
then
begin

[4
[
[

if .OPI then PRINTB (FMT15, MLB17);

[4
.

if .DPAR then PRINTB (FMT15, MLB18);

[4
[4

if .CPAR then PRINTB (FMT15, MLB19);

[
L4

end;

.
»

end;

v 4 o

”
.

[4
4

end;

It 3«

TOPS-20 Bliss-16 V2(212)
PA:<NEALE>MLX4.BLI.S (22)

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113

GENS GENERATOR FOR OPTION S
4678 MLXG
2gg8 2
4631 ;
4682 ;

4683

4684 ;
4685 ;
4686 ;
4687 ;
4688 .
4689 ;
4690 ;

4691 ;

3686
3687

3688

3689
3690
3691
3692
3693
3694
3695

3696

:
;
;
;
;
;

3697
3698
3699
3700
3701
3702

4699
4700
4701
4702
4703
4704
4705
4706
2;8;

;
;
:
:
;
;
;
;
:

3704
3705
3706
3707
3708
3709
3710
3711
g;}%

4709
4710
4711
4712

;
;
;
;

3714
3715
3716
3717

2%;,

4718
4722 041710
4723 041714
4724 041716
4725 041720
4726 041722
4727 04641724
4728 041726
4729 041732
4730 041734
4731 041736
4732 041740
4733

SEQ 0136
27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

3703

3718

004167
005746
005046
005046
005001
005002
005066
005003
005004
005005
005777

it .ERR6
then
return 4;

!UNRECOVERABLE DATA ERROR (NO RETRY ALLOWED)

it .ERR?
then

!RECOVERABLE DATA ERROR (RETRY TO CLASSIFY)

,
if .ERR2
then
return 2;

'CONTROLLER FATAL ERROR

it .ERRé4

'DRIVE FATAL ERROR

return 5;

then

return 3;

if (.ERR3 or .ERRS)
INON=-FATAL ERRORS
then
return 1
else
begin
.
if ((.ERROUT) and ( not .RETRYING)) then PRINTB (SAY1, PHR11);

1°SC SET BUT NO SYSTEM ERRORS FOUND'
return 1;
end;

end;

s 1 o
.SBTTL
SYSERR: JSR
TST
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
ST
JMLXG

143420

000004

172402

10040
167
032777
001010
032777

T0PS=20 Bliss~16 v2(212)
PA:<NEALE>MLX4.BLI.S (22)

'+
! THIS IS THE CODE FOR PURPOSE 3:

2;%2

4736 041744
4737 041746
4738 041752
4739 041760
4740 041762

6.1
PAGE 131

SYSTEM ERROR DETECTOR

4692
4693
4694
4695
4696
4697

4698 :

29-MAR-82 13:41

002344
010000

172376

004000

172366

18$:

8M!
JMP
8IT
BMNE
8IT

SYSERR SYSTEM ERROR DETECTOR
R1,$SAVES
~(SP)
-(SP)
-(SP)
R1
R
4(SP)
R4
RS
aML.REG

:
;
s
:
:
s

ERR2
ERR3
ERRS
ERRS
ERR6

: ERR?7
s ERR8
: ERR9
:

SYSTEM ERROR DETECTOR
538
#10000,8ML .REG+10
23
#4000,9ML .REG+10

3427
3480
3481
3482
3483
3484

27-Rar-1982 19:24:42

27-Mar-1982 19:23:44

3485
3486
3487
3493
TOPS

PA:<

3497

(ZM.BBO PERFORMANCE E XERCISER
SYSERR SYSTEM ERROR DETECTOR
47641
4742
4743
4744
4745

041770
041772
042000
oagoo
042010

4746 042014
4747 042016

4748 042024

4749 04: 026
4750 04c056
4751 042036

4752
4753
4754
4755

042044
042046
042054
042056

4756 042062

002000

172356

oogg21
172342

000002

032777

020000

172332

001000

172322

000400

172312

020000

172272

100420

001014

032777
001010
032777

001004
032777
001402
012716

032777

001406
032777

4760
4761
4762
4763
4764

042102
042106
0462112
042114
062122

012705
005777
100414
032777
001010

4766 042132
4767 042134

001004
032777

4765 042126

4768 042142
4769 042144

4770 042150
4771 062156
4772 042160

4773 042164

4774 062166

4775 042172

4776 042200

4777 042202

4778 062210
4779 042212
4780 042220
4781 042555

4782

042

4783 062232

4784 042240

4785 042242

4786 0462250
4787 042252
4788

001002

032777

001402
012704

032777
001405
005767

001002

012716

032777
001024

032777

000001

000400
040000

172266

172234

001000

172224

020000

172204

172200

040000

172162

002000

172152

001000

172142

000004

172132

132777

000002

132777

000001

001004

001402
012701

4792 0462264

4793 042266

4794 042274

4795 042276
4796 042
4797 042306

S$:

BIT
BNE
BIT

#10
3ML
00,
.REG+10
48
#46
ML00,
.REG+10

BNE
BIT
BEQ
MOV

8IT

98:

MOV
TST
aM]
8IT
BNE

#1,RS
ami .REG+10
78
#20000
aML . REG+10
,
78

BEQ
MOV

7
#200aML
00,
. REG
8s
1 .Ré

: «,ERR3

8IT

#40000,amL . REG+14

BIT

#20
aML
00,
.REG+14

BNE

108

#1,aML.REG+14

BNE

BEQ
MOV

000040

172066

132777
001402
012702

000010

172056
128:

3511

108
10$

11$
#1.R1

BIT

psoooo.anL.asc*14

BITB

#40,aML.REG+14

BITB
BEQ
MOV

#10.aML.REG+14
138
”,R2

BNE

3509

: *,ERR4

SYSTEM ERROR DETECTOR

BNE

3507

; «,ERR8

#1,(SP)

BITB

132777

: *,ERR9
:

MOV

BNE

31$:

3503

172112

172076

»,ERR3

#60000,amL .REG+10
o8
ECCDIS

#2,aML.REG+14

020000

;

3499

8IT
BEQ
ST

BITB

108:
SMLX4

*,ERR2

#10
3ML.
00,
.REG+10

172122

000001

#400,3ML .REG+10

108
#10
aML
00,
.REG+14
108
#4,aML.REG+14

032777

001004

43
#20000,3ML .REG
5$
. (SP)

6
#40000
ML . REG+42
,

BIT

:
:

BEQ
BIT

BNE
BIT

8S:

#20000,3ML .REG+10

BNE

78:

2s
0;000.3HL.REG010
3
#1,2(SP)
am{ .REG+10

BIT

001010

Hn
PAGE 131-1

BNE
8IT
BNE
BITB

2;33

4791 042256

aM]

BNE

001020
032777
001014
132777

001010

48:

140070
000001

BNE
811
BEQ
MOV
ST

BNE

68:

020000

040000

28:
3s:

172310

000001
172244

000001

29-MAR-82 13:41

SEQ 0137

001004
032777
001403
0127
005777

4757 042070
4758 062072

4759 042100

MACRO M1113

128

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

3513

128

;

TOPS

PA:<

*,ERRS

CZMLBBO PERFORMANCE EXERCISER
SYSERR SYSTEM ERROR DETECTOR

4798 £.2312
4799 (42316

005777
100419

MACRO M1113

172044

138:

032777

020000

172062

4802
4803

032777
oou.g

040000

172052

000001
040000

172004

137674

000001

042330
04 i“

4804 042340
4805 042344

012703
032777

4806 042352
4807 042356

001406
026727

4809 04%364
4810 042370

01%7
132777

090001
000100

4812 062400

005777

172004

4314 062406
4815 042414

012766
032767

000001
000001

4808 042362

4811 042376

4813 0462404

00100

001003
100003

4816 042422

001402

4818 042630

032767

000001

016646

000024

012716
012746
012746
010600

010120
007072
000002

4817 042426

4819 042436

4820 042440
4821 062646

4822 0462450
4823 042456
4824 042460
4825 0462464

4826 042466
4827 062470

4828 062474

4829 042476

000167

001552

004767

001520

000001

005777

171660

001473

4830 042502
4831 042506
4832 042510
4833 0462514
483% 042520

100012
012746
012746
012746
010600

007550
007060
000002

4836 042524
4837 042530

062706
032777

000006
020000

4839 0642540
4840 042544
4841 042550
4842 042554

012746
012746
012746
010600

007560
007060
000002

4835 042522

4838 042536

4843

104414

001412

171764

000004
171716

137622

104414

062706

4849 042572

001412

4850 042574
4851 0462600
4852 042606
4853 0462610
4854 042612

#200
aML00,
.REG+42

8IT
BEQ

#400
ML00,
.REG+42
158

MOV
8IT

16$:

17S:
188:

19%:

MoV
BIT8B

#1,R3
#100.aML.REG+14

ML
. REG+42

MOV
BIT

#1,4(SP)
#1.RETRYING

BNE
8PL

BEQ

000006

032777

040000

012746
012746
012746
010600

007564
007060
000002

104414

218:

168

17¢

18$

; *,ERR?
:

3519

;
:

*,ERR6

3554

#1 _ERROUT

;

3560

MOV

24(SP) ,=(SP)

: LUN,*

3563

MOV
MoV
MOV
MOV

#PHR10, (SP)
#SAY1,~(SP)
#2,-(§P)
SP.RO

3564

BEQ

23$

JMP

473

BEQ

258

BIT

PC, SAYWHO

; SP,#

14
#1,R3

: *,ERR?

3567

ML .REG+14

3571

8PL
MoV
MOV
MOV
MOV

208
MLB20,~(SP)
#FAT1S .~ (SP)
#2,-(5P)
SP.RO

: SP,«

ADD
BIT

#6,SP
#20000, amL . REG+42

MOV
MOV
MOV
MOV

msgg.-gsp)
#FMT15.-(5P)
#2,-(SP)
SP.RO

: SP,w

BEQ

218

SYSTEM ERROR DETECTOR
TRAP

171616

3517

35356

TRAP

sMLX4G

; *,ERR?
:

208:

3515

19%

TRAP
8IT

171652

#1,R3
#60000,aML .REG+10

168
ECCDIS.
M

BNE

;

148

BEQ
(%

4847 042560
4848 042564

143
158

ML REG+14
14$

8IT

JSR

2%‘5-

4846 042556

TIST
gM]

BNE

173054

104414
032703

PAGE 131-2
SEQ 0138

4800 042320

4801 04 3%6 001

29-MAR-82 13:41

ADD

TOPS

PA:<

46, SP

#40000, amL .REG+42

MOV
MOV
MOV
MOV

#MLB2
- (SP)
3,
#EMT15.-(SP)
#2,-(5P)
SP.RO

: SP,¢

TRAP

27-Mar-1982 19:24:42
27-Rar-1982 19:23:44

BIT

BEQ

3573

228

3575

- M oBO PERFORMANCE EXENCISER
SYCEQR SYSTEM ERROR DETECTOR

4855 042614

4856 042620

4857 042626
4858 042630
4859 042636
4860 042640

4861 042644

4862 042650
4863 042654
4864 042656
4865 042660
4866 042664

4B67 042672

4868 C42676
4869 042702
4870 042706
4871 042710
4872 062714
4873 042720
4874 042722
4875 042726
4876 042730

4877 042734
4878 042736
4879 042742
4880 042746
4881 042752
4882 042756
4883 042756

4884 0462762
4885 042764

4886 042772

062706

032777

001416
026727
001012
012746

012746

012746
010600
104414
062706
032766

001505

132777
001412
012746
012746
012746
01060C
104414
062706
005777

001010

4891 043006
4892 043012
4893 043016
4874 043020
4895 063026
4896 043030

032702
001415
016646
004767
012716
012746

4897 043034

4898

001003

012746

000001

007450

000006
000001

000012

000100

171460

23%:

007554
007060
000002

000006
171454

248:

007570
007060
000002

000001
000001

000024
172500
010120
007072

00000

ADD

BIT

BEQ
CMP
BNE
MOV

MOV

000002

zggg

4901
4902
4903
4904

228:

007060

000001

006004
103406
032701

171530

137420

032766

4887 042774
4888 042776
4889 043000

4890 043004

000006

29-MAR-82

4905 043050
4906 043052
4907 043056
4908 043062
4909 043066
4910 043072
4911 043076

010600
104414
000420
006005

103402
000167
016646
004767
012716
012746
012746

000002

258:

J_1n

131-3

268:

sMLXG

288:

46, SP

#40000,aML .REG+10

238
ECCDIS.#1
238
#MLB6 ,~(SP)

BITB
BEQ
MOV
MOV
MOV
MOV
TRAP
ADD
TST

#100,aML.REG+14
24$
#MLB21,~(SP)
#7MT15.~(SP)
#2,=(SP)
SP.RO
14
#6,SP
oML .REG+42

BEQ

8PL
MOV
MOV
MOV
MOV
TRAP
ADD

29§

29
#MLB24 ,~(SP)
#FMT15.-(SP)
#2,-(SP)
SP.RO
14
#6,SP

29%

; SP,e

; *,ERR6

3581

;

3585

; SP,

#1,2(SP)

ROR
BLO
BIT

R&
268
#1,R1

: ERR8

BIT
BEQ
MOV
JSR
MOV
MOV

#1,R2
27§
24(SP) ,~(SP)
PC,SAYWHO
#PHR10, (SP)
#SAY1,=(SP)

; *,ERRS

MOV

26$

268

BLO
JMP
MOV
JSR
MOV
MOV

MOV

3562

: +,ERR2

3596

: *.ERR4

: LUN,*

3599

3600

#2,~(5P)

27-Mar-1982 19:24:42

SYSTEM ERROR DETECTOR
MOV
TRAP
BR
ROR

3587

: SP,%

BIT

BNE

3577

#EMT
-1S
(SP)

#2,-(5P)
SP.RO
14
#6,5P
#1.12(sP)

BNE

278:

001072
000024
172436
010120
007072
000002

PAGE

MOV
MOV
TRAP
ADD
BIT

043040
043042
043044
043046

13:41

SEQ 0139

040000

100064
012746
012746
012746
010600
104414
062706

000451

MACRC M1113

SP.RO
14
298
RS

288
478
24(SP) ,~(SP)
PC.SAYWHO
#PHR10, (SP)
#SAY1,=(SP)
#2,-(SP)

27-Mar-1982 19:23:44

TOPS

PA:<

; SP,¢

:
: ERR9

3598
3606

; LUN,*

3609

3610

CZMLBBO PERFORMANCE EX ERCISER
SYSERR SYSTEM ERROR DE TECTOR

010600
104414
062706

OVNN

NININ)
= N\) s

o
oS
S

ol-lelelal)

S
SENNNENE
~N WDy

032766

—

=
gmv\\nbb
omoowgmowgmg

el e b
b b

J\bfiifi ‘R

[=]=TeYe]

(=
&

o o e ol i wad i e

NN
N N NN N NN NN

22 a0 2P o X

N
W

NN
-0 OO
NO NS

4912 043102
4913 043104

171172

30$:

171136

318:

e~
Pl

K11
PAGE 131-4

SP.RO

z?'gfisp)
32§

3608
3620

: *,ERR2

#10000,aML .REG+10

3624

30$

MLB2 - (SP)

#FEMT1S,-(SP)

#2,-(5P)
SP.RO
14
#6,SP

: SP,«

#6000,3ML.REG+10

3626

31s
#MLB3, ~(SP)

#FMT1
- S,
(SP)
#2,-(5P)
SP.RO
14

#6,SP

#200
amL .REG+1
0,0

3628

328

#2,~(3P)

SP.RO

328:

14
#6,SP
#1,(SP)
38$
aML.REG+10

; SP,x

: *,ERR3

3632
3636

33s

MBS~ (SP)

HFNT1S,=(SP)
#2,-(5P)
SP,RO
14

171042

33s$:

sMLX4

; SP,*

#6,5P

#40000,aML .REG+10

3638

348

9:24:4 2
27-Mar-1982 19:
27-Mar-1982 1 9:23:4 4

SYSTEM ERROR DETECTOR

136732

ECCDIS

007450
007060
000002

#MLB6 - (SP)

007454

SP"

#4LB6 - (SP)

007444
007060
000002

000006
020000

#FMT16,-(sP)

TOPS

PA:<

348

PEMT15,-(SP)
#2,-(5P)
SP.RO
14

L8N

SNNNE NN

b
b b

—

OO0

8IT
8EQ
MoV
Mov

MoV

171076

000006
040000

MoV
Mov
MOV
MOV
TRAP
ADD

MOV

000006

01
012746
01
104414
062706
03
001

MOV
TRAP
ADD
8IT
8EQ
8IT

8EQ

007430
007060
000002

000001

4968 043370

171226

007440
027060
000002

=4
-‘OOOOg
2 NN b 4
\JY

N
N

N
A
Ao
W

]

&
0
&H

4829 043364

010000

298:

007434
007060
000002

4934 043220

4964 043350
4965 043356
4
04 3360

000002

000006
002000

29-MAR-82 13:41

SEQ 0140

000006
000001

000006
004000

4929 043176
4930 043202
4931 043204
4932 043206
4933 043212

493, 043222
4936 043226
4937 043232
4938 043236
4939 043240
4940 043242
4941 043246
4942 043252
4943 043254
494% 043260
4945 043262
4945 043966
4947 043272
4948 043276
4949 043300
4950 043302
4951 043306
4952 043314
4953
4954
4955
4956 043316

MACRO M1113

171000

34$:

SP..

#6,SP

gggooo.anL.Res+1o
#MLB7, - (SP)

NFMT1
< (SP)
S,
#2,-(5P)

3640

MACRO M1113

4973 043412

6974 043414
4975 043420
4976 043424
4977 043430
L978 0643432
4979 043434
4980 043440

000006
001000

0
0O
0
0
104414
0

4981 043446
4982 0463450
4983 043456
4984 043460

170710

040000

170732

170634

36%:

37%:

040000

38%:
170606

HOOONONNVN

22
2&
3= 2
SENNNENISEN

b wub ~d
b

=0000

MOV
MGV
MOV
MoV
TRAP
ADD
BIT

BEQ
817

oNE
MOV
MOV
MOV
Mov
TRAP
ADD
817
BEQ

14
#6,SP

: SP,»

#100
3ML .REG+
0,
10
368

#MLBS, - (SP)

#FMT-1S
(SP)
#2,-(SP)
SP.RO
14

#6,SP

#400,aML .REG+10

3646

37¢

#40000,8ML.REG+42

37%
#MLBY - (SP)

#FMT15,-(SP)

#2,-(5P)
SP.RO
14
#6,SP

#20000,amL .REG
388

#MLB10,~(SP)
#FMT1S.~(SP)

#2,-(SP)
SP,RO

: SP,x

]

; *,ERR4

44 g
#40000,3ML .REG+14

3656

#2,=(SP)

1%’

sMLX4
170552

39s%:

007504
007060
000002

; SP,x

#6,5P

27-Mar-1982 1 2 :42
27-Mar-1982 1 :2 :64

SYSTEM ERROR DETECTOR

#2000,3ML .REG+14
408
#MLB12,-(SP)
#EMT15,-(SP)
#2.-65?)

007510
007060
000002

170516

40$:

#6,SP

#100
aML .REG+14
0,
418
#MLB13,~(SP)
HFMT15.~(SP)

cz.-ésfi)
14

TOPS
PA:<

3658

s SP,x
000006
001000

3652

#MLB11,-(SP)
#FMT1S.-(SP)

000006

002000

8IT
8EQ

SP,RO

398

007500
007060
000002

1
062706

MOV
TRAP
ADD

000006
000001

E5E

SRERNGRES

OO
&

RRRRRRRARRRR
(-3
Al i

-0

000006
000400

007472
007060
000002

4999 043544

SE 8

35%:

007460
007060
000002

000006
020000

4996 043532
4997 043534
4998 043540
5000 043546
5001 043554
5002 043556
5003 043562
50064 043566
5005 043572
5006 043574
5007 043576

170744

007464
007060
000002

4985 043464
4986 043470
4987 063474
4988 043476
4989 043500
4990 043504
4991 043512
4992 043514
4993 043520
4996 043524
4995 043530

L. N

PAGE 131-5

SEQ 0141

4969 043374

4970 043376
4971 043400
4972 043404

29-MAR-82 13:41

CZMLBBO PERFORMANCE EX ERCISER
SYSERR SYSTEM ERROR DE TE CTOR

: SP,x

(IMLBBO PFRFORMANCE EXERCISER

SYSERR SYSTEM ERROR DETECTOR

5026 043666
5027 043672

5028 043700

5029 C43702
5030 043706
5031 043712
5032 043716
5033 043720
5034 043722
5035 043726

5036 043734

5037 043736
5038 043742
5039 043746
5040 043752
5041 043754
5042 043756
5043 043762

5044 043770

5045 043772
5046 063776
5047 044002

5048 044006
5049 044010

5050 044012
5051 044016

062706
132777

000006
000006

012746
012746
012746
010600
104414
062706
132777

007514
007060
000002

001412

000006
000002

012746
012746
012746
010600
104414
062706
132777

000006
000001

012746
012746
012746

007524
007060
000002

001412

010600
104414

000006
000001

032777
001412

020000

5056 044040
5057 044044
5058 044050
5059 044052
5060 044054

012746
012746
010600
104414
062706

007060
000002

5062 044066
5043

001412

5053 0464026
5054 044032

5055 044034

5061 044060

001452

012746

132777

170462

170426

170372

012746
012746
012746
010600
104414
062706
132777
001412
012746
012746
012746
010600
104414
062706
032766
001403
012700

428:

43$:

000006

4S:

170330

170274

458:

007534
007060
000002

170240

46$:

007542
007060
000002
000006
000001
000004

BEQ

MOV
MOV
MOV
MOV
TRAP
ADD
BITB

LBL
PAGE 131-6

000004

47$:

#6,SP
#4.3ML.REG+14

42§

#MLB14,~(SP)
#FEMT1S.<(SP)
#2,-(SP)
SF.RO
14
#6,SP
#2.3ML.REG+14

: SP,*

MOV
MOV
MOV
MOV
TRAP
ADD
BITB

#MLB15,~(SP)
NFMT15.=(SP)
#2,-(5P)
SP.RO
14
#6,SP
#1.3ML.REG+14

; SP,*

MOV
MOV
MoV

#MLB16,~(SP)
#FRT15.~(SP)
#2,-(SP)

BEQ

43§

448

SP.RO
14

ADD
BIT

#6,SP
#1.R2

BIT
BEQ

MOV
MoV
MOV
TRAP
ADD

BEQ

MOV

sMLX4
:

000006
000010

ADD
BITB

MOV
TRAP

gggg

5066 044070
5067 044074
5068 44100
5069 044104
5070 044106
5071 044110
5072 044114
5073 044122
5074 044126
5075 044130
5076 044136
5077 044140
5078 044142
5079 044144
5080 044150
5081 044156
5082 044160

41$:

007530

000040

29-MAR-82 13:41

SEQ 0142

007520
007060
000002

062706
032702

5052 044022

MACRO M:113

BITB
BEQ

3664

;

3666

: SP,*
; *,ERRS

3670

#20000,3ML .REG+14
45$

3674

#FMT
.~15
(SP)
#2,-(5P)
SP.RO
14
#6,SP

: SP,*

47%

#MLB17,-(SP)

#40,aML.REG+14
468

MLB18,~(SP)
#FMT1
.~ (SP)
S
#2,-(5P)
SP.RO
14
#6,5P
#10,aML.REG+14
478
MMLB19,-(SP)
#FMT15.-(SP)
#2,-(SP)
SP.RO
14
#6.SP
#1.4(SP)
48§
#4,R0

3676
27-Mar~-1982 19:24:42
27-Mar-1982 19:23:44

SYSTEM ERROR DETECTOR

MOV
MOV
MOV
MOV
TRAP
ADD
BITB
8EQ
MOV
MOV
MOV
MOV
TRAP
ADD
BIT
BEQ
MOV

3662

TOPS
PA:<

; SP,*
:

3678

; SP,%
: *,ERRG

3690

3692

CZMLBBO PERFORMANCE EX ERCISER
SYSERR SYSTEM ERROR DE TECTOR

000005

000001
000441

000002

495:

000002
508:
000003

cocooo

000001

000207

29-MAR-82 13:41

N1
PAGE 131-7

SEQ 0143
488:

b el ced

NN
Y

SINGRERS
KRR
RRERR
RRRRRRR
PN
N
e
NN NN
W
)
wd
8
N
AH
Son
NN
o000o

NO=O
VO NN/ W20

VIV

NNN\

d e end e cnd b

b b b be e

D cnd wrd o

b ek d =2 O

b b and emb and mad wnd il and wmd

b —t

AWM WIVIVIWVIA VAW VIV IVIVWVIVIVIVA L%,

5083 044164
3084 044166
5085 044170
5086 044172
5087 044176
5088 044200
5089 044206
3090 044210
5091 044214
5092 044216
5093 044220
5094 044222
5095 044226
5096 044230
5097 044234

MACRO M1113

S1$:

000001

136010

000001

170060

010140
007072
000002
000006
000001

52%:

000006

53s:
54%:

B8R
ROR
BCC
MoV
B8R

MoV
BR
ROR
8cC
MOV
BR
817
BNE
ROR
8LO
8IT
BEQ
BIT
BNE
Mov
MoV
MOV
MoV
TRAP
ADD
Mov
MoV
B8R
CLR
ADD
RTS

3694

36%0

8IT
BEQ

; Routine Size:
;MLXS

ERR7

* ERR2

3698
3700

ERR4

3702
3704

#1,(SP)

* ERR3

5
R
52

3706

ERR5

#1,ERROUT

3712

52$

#1 RETRYING

524

#PHR11,~(SP)
#SAY1,=(SP)
#2,~(5P)

SP,RO
14

SP,*

#6,5P
#1.RS

RS,RO

3706
3428

RO
#6,SP

3427

54§

647 words

27-Mar-1982 1 9:24:4 2
27-Mar-1982 1 9:2 3:4 4

SYSTEM ERROR DETECTOR

: Maximum stack depth per invocation:

15 words

TOPS
PA:<

{ZMLBBO PERFORMANCE EXERCI SER
SYSERR SYSTEM ERROR DETECTOR

5129 .MLXé

g}g? H
5132
5133
5134
5135
5136

;
.
;
.
;

MA(RO Mi113

29-MAR-82 13:41

B _1c
PAGE 132
SEQ G144

DATA COMPARISON ROUTINE

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

Zsbttl 'DATA COMPARISON ROUTINE®
routine DOUBLE_CHECK (W_POINTER, R_POINTER, COUNT) =
begin
L

g}gg :

3719
3720
3721
3722
3723

%;sg

;

ROUTINE:

DOUBLE_CHECK(W_POINTER,R_POINTER,COUNT)

5139 ;
$140 .,

3726
3727

!
!

PURPOSE:

TO DOUBLE CHECK THE ECC DETECTION LOSIC AFTER A
SUCCESSFUL READ COMMAND.
THE WRITE AND READ BUFFERS

g;z% :

g;%g

;

5144 ;
5145

3731
3732

g;gz

!
!

5148 ;
5149 ;
5150 ;
5151 .
5152 :

3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758

!
ESULTS:
!
!
-~

5141 ;

g}l’:g H

5153 .

5154 ;
5155 ;
5156 .
5157 .
5158 ;
5159 ;
5160 ;
5161 ;
5162 :

5163 ;

5164 ;
5165 ;
5166 ;
5167 .
5168 .
5169 :
5170 ;
5171 ;
5172 .
5173 ;
5174 .
5175 .
5176 ;
5177 .
5178 :
5179 ;
5180 ;
5181 ;
5182 .

5183 .

3728

3759
3760

3761

3762
3763
3764
3765

3766

3767
3768
3769

3770

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (23)

ARE COMPARED, AND NO ERRORS SHOULD BE FOUND UNDER

NORMAL CIRCUMSTANCES.

ARGUMENTS:

W_POINTER = POINTER TO THE WRITE BUFFER
R_POINTER = POINTER TO THE READ BUFFER

COUNT = THE NUMBER OF WORDS TO COMPARE

VALUE RETURNED IS EJITHER:
0 = NO ERRORS WERE FOUND
N > 0 = ADDRESS IN WRITE BUFFER WHERE ERROR WAS FOUND

local

VALUE,
OFFSET,
GOOD,
BAD;

Label
LOOP;

OFFSET = 0.

VALUE = 0;

LoOP :
begin
.
incr I from 1 to .COUNT do
begin
D = ,(.W_POINTER + .OFFSET);
BAD = .(.R_POINTER + .OFFSET);
.
if .GOOD eql .BAD
then
OFFSET = .OFFSET + 2
else
begin
VALUE = (.W_POINTER + .OFFSET);
leave LOOP;
end;

end;
end;

In 2«
v 3 e

In 4
!ADDRESS OF GOOD
v 4 «

' 3«
v 2 «

CZMLBBO PERFORMANCE EXERC ISER
SYSERR SYSTEM ERROR DETECTOR

5185 .mLx4

g}g? M
5188 :

g}gg :

5194
5198 044326
5199 044326
5200 044332
5201 044334
5202 044336
5203 044340
5204 044342

5205 044344
5206 044346
5207 044352
5208 044356
5209 044356
5210 044362
5211 044364
5212 044366

5213 044370
5214 044374
5215 044376
5216 044400
5217 044402

5218 044404
5219 044410

5220 044412

5221 044416
gggg 044416

52264

§5§3

MACRO M1113

29-MAR-82 13:41

€. 1
PAGE 133
SEQ 0145

27-Mar-198

DATA COMPARISON ROUTINE
3771

772

004167
005746
005003
005001
005002
000417
010304

066604
011416
010305
066605
011500

021600
001003
062703
000402
010401
000404
005202
020266
003755
010100
005726
000207

27-Mar-198

return .YALUE;

000024

ADD
MOV
MOV
ADD
MOV

000002

2s:

000020

3s:
43:

TOPS-20 Bliss~-16 v2(212)

PA:<NEALE>MLX4.BLI.S (23)

' 1 =

.SBTTL
DOUBLE
. CHECK:
JSR
TST
CLR
CLR
CLR
B8R
18:
MOV

000022

:123:44

'EITHER 0 OR THE ADDRESS OF GOOD DATA

end;

141002

126:42

CMP
BNE
ADD
BR
MoV
B8R
INC
P
BLE
MOV
18T
RTS

: Routine Size:

DOUBLE.CHECK DATA COMPARISON ROUTINE

R1,$SAVES
-(SP)
R3
R1
R2
3s
R3.R4

24(SP) ,R4
(Rk) ($P)
3.RS
ZZ(SP) RS
(RS) ,RO

(SP) ,RO
2%
#2.R3
3s
R4 ,R1
43
R2
R2,20(SP)
1%
R1,RO
(SP)+
PC

29 words

; Maximum stack depth per invocation:

3720

: OFFSET
; VALUE
;1

3749
3750
3754

:
:
;
;
:
*
:

3756

OFFSET,«
W.POINTER,«
*,600D
OFFSET,«
R POINTER, «
*.BAD
*,BAD

3759

s %,0FFSET
:
s %,VALUE
:
|
; 1,COUNT

3761
3759
3764
3765
3754

s VALUE,*

7 words

3757

3721

3720

L/MLBB0 PERFORMANCE EXERCISER
MACRO M1113
DOUBLE .CHECK DATA COMPARISON ROUTINE

5233 .MLX4

gggg :
5236 .
5237 .
5238 :
5239 ;
5240 ;

ggz; :

5243 :

5244 ;

ggzg :

5250
5254 044420
gggg 064422

5257
gggg

29-MAR-82 13:41

PAGE

D12
134

SEQ 0146

COMMAND INITIATION AND TERMINATION

7-Har-1985 19:24:42

7-Mar-1982

19:23:44

3773
37764
3775
3776
3777

Xsbttl "COMMAND INITIATION AND TERMIMATION'
routine WAITER : novalue =
begin
'+
! THIS ROUTINE DOES NOTHING, BUT IT 1S CALLED BY °'START IT' TO

3780

g;;g
3781

3782

104422
000207

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MULXL.BLI.S (24)

: WASTE TIME WHILE WAITING TO BEGIN OR END AN ML11 TRANSFER.

BREAK;

return;

end;

+SBYTL
WAITER: TRAP
RTS

WAITER COMMAND INITIATION AND TERMINATION
22
:
PC
:

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

0 words

3775
3774

(ZMLB8O PERFORHANC$ EXERCISER = MACRO M1113

IUAITER COMMAND INITIATION AND TERMINATION

5266 ;MLXG

gggg M
5269

29-MAR-82 13:41

£ 12
PAGE 135
SEQ 0147

COMMAND INITIATION AND TERMINATION

57-flar-198$ 19:54:42

7-Mar=-1982

19:23:44

3783

routine START_IT C(COMMAND, LUN, WRDCNT, BUFFER, SECTOR) =

5271 :
5272 :
gg;z :

3785
37
§;38

lee
:
ROUTINE :

START_IT(COMMAND ,LUN,WRDCNT ,BUFFER,SECTOR)

5275 ;
5276 :

3789
3790

!
!

TO INITIATE A TRANSFER TO OR FROM THE mL11
TO WAIT FOR THE TRANSFER TO COMPLETE. AND fO CALL

5270 ;

gg;g N

5279 :

5280 ;
5281 ;
5282 :

5283 .

3784

begin

§%1

3796
3795
379

!
!
!

PURPOSE:

379% ! ARGUMENTS:

3797

THE *SYSERR® ROUTINE TO LOOK FOR RESULTING ERRORS.

(1) COMMAND - THE FUNCTION CODE FOR THE TYPE OF TRANSFER

DESIRED.
THIS CODE WILL BE SENT TO THE MLCS?
REGISTER TO START THE OPERATION, SINCE IT
ALSO CONTAINS THE GO BIT.

gggg :

%;33

;

(2)

LUN

= LOGICAL UNIT NUMBER

%%gg .

g%?

(3)

WRDCNT

= NUMBER OF 16~8IT WORDS TO TRANSFER

5288

TOPS=-20 Bliss~16 v2(212)

PA:<CNEALE>MLXG.BLI.S (25)

gsgg H

gggz

3802

(4)

BUFFER

- THE ADDRESS IN MAIN MEMORY OF THE SELECTED

22299} :

I;ggz

(5)

SECTOR

THE TRANSFER'S STARTING ADDRESS IN THE ML11

5293 :
5294 ;
5295 ;
5296 ;
5297 :
5298 :
5299 ;
5300 ;
5301 :
5302 ;
5303 ;
5304 ;
5305 .

3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819

!
RESULTS:
!
!--

VALUES RETURNED ARE IDENTICAL TO THOSE DEFINED ABOVE IN
THE °SYSERR® ROUTINE.

5307 :
5308 .
5309 ;
5310 ;

3821
3822
3823
3824

5306 ;

3820

5311 :

3825

5313 :
5314 :
5315 ;

3827
3828
3829

5312 :

3826

5316 .

3830

gg}g :

%gg

5317 ;

5320 ;

WRITE OR READ BUFFER

local

TEMP,
READY_BIT,
RTN;

Label
LOOP;

! WAIT FOR DRIVE READY:

!
UNIT = _DRIVE:;
READY_BIT = 0;

YSELECT THE UNIT

until .READY_BIT neq 0 do

'WAIT FOR DRIVE READY

be?in

WAITER ();
READY_BIT = .MLCS? and BIT7;
end;

3831

3834

CLR = 1;

% INITIALIZE BEFORE EACH TRANSFER:
!CONTROLLER CLEAR

C/MLBBO PERFORMANCE E XERCISER _ MACRO M1113

WAITER COMMAND INITIATION AND TERMINATION

1,322 MLX4

gsgz :

5335 .
5325 :

5327 :

29-MAR-82 13:41

PAGE

F .12
136

SEQ 0148

COMMAND INITIATION AND TERMINATION

3835

3836

3837

DELAY (1);

27-Mar~1982 19:24:42

27-Mar-1982 19:23:44

'DELAY FOR CLEAR TO COMPLETE

MLCST = DRV_CLR;

iDRIVE CLEAR

DELAY (1);

IDELAY FOR CLEAR TO COMPLETE

g%gg ;

gggg

UNIT = .DRIVE;

gg%g :

ggz?

g SET UP THE REQUIRED ENABLE/DISABLE BITS:

g%%i :

§gz§

DCK_EN = 1;

gggg :

§gzé

if .REFRESH then REF_MAR = 1;

§336 :

3846

if .ECCDIS then ECC_DIS = 1;

IPUT BACK THE DRIVE NUMBER

'ALLOW REPORTING OF DATA CHECK ERRORS

!TURN ON REFRESH MARGINING IF OPERATOR SELECTED IT
!TURN OFF ECC IF OPERATOR SELECTED IT

5337
5338 ;

3847
3848

gggg

! SEND REQUIRED INFORMATION TO DEVICE REGISTERS:

5341 :

3851

MLWC = <(.WRDCNT):

gggz

MLDA = .SECTOR;

ggzg :

5342 :

ggzz :

§345 -

5346 :
5347 :
5348 -

gggg :

§351 :

5352
5353
5354 :
5355 5356 5357 :
5358 :
5359

3852

3855

3856
3857
3858

gggg

3861

3862
3863
3864
3865
3866
3867
3865
3869

ggg? :

gg;?

5362 :

3872

5363 .
5364 ;
5345 :
5366 :
S$367 :
5368
5369 5370 :
gg;t :

g;;% :
5375 :

5376

3873
3874
3875
3876
3877
3878
3879
3880
ggg}

gggz

5885

3886

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (25)

'WORD COUNT REGISTER

MLBA = .BUFFER;

'BUS ADDRESS REGISTER (ADDRESS IN MAIN MEMORY)

!DESIRED SECTOR ADDRESS REGISTER (ADDRESS IN ML11)

i GO:

i
I_AM_DONE = INACTIVE;
TEMP = _COMMAND + BIT6;

!SET THE INTERRUPT ENABLE BIT WHILE LOADING THE

MLCST = . TEWP;

'CONTROL AND STATUS REGISTER WITH THE COMMAND

i WAIT FOR DRIVE TO FINISH:

LOOP :
begin
READY_BIT = 0;

until .I_AM_DONE do
begin
WAITER 0);

READY_BIT = .MLCST and BIT7:

if ((.READY_BIT neq 0) and (.I_AM_DONE eql INACTIVE))

then

begin
it ( not .RETRYING)
then
begin
SAYWHO (.LUN);
]
if .COMMAND eql WR_CMD then RTN = WRD16:

if .COMMAND eql RD_CMD then RTN = WRD17;:

if .COMMAND eql WC_CMD then RTN = PHRI1:

JIMIBBCG TERIORMANCE EXER? iSER ~ MACRO M1113

[WAITER COMMAND INITIATION AND TERMINATION

5378 :MLX4

gggg :
5187 |
5782 :
5383

5384 §385
5386
5387
5388 .
5389 :
5390 :
5391
5392 :
$393
539 5395 .
§399
5400

5408 044424

3887
3888
3889

3890
3891
389
289
3894
3895
3896
3897
3898
3899
3900
3901

end;
return SYSERR (.LUN);
end;

006301
016102
016203

034422
000006

042703

142777
150377
005003
020707
001007
004767
017703

5424 044512

000770

5423 044506

5425 044514
5406 044522
5427 044526
5428 044530
5429 064534
5630 044536
5431 044540
5432 044542

042703

152777
012700
001410
016702
001403
005016
005302
001375

.SBTTL
START.IT:

140664

$412 044440
5413 044442
3414 044446
5416 044456
5417 044464
5418 044470
5419 044472
5420 044474
5421 044476
5422 064502

19:23:44

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (25)

end;

000024

010401

7-Mar-1982

leave LOOP;
end;

.GLOBL

004167

7-Har-1985 19:54=42

PRINTB (SAY1, MSGO):
'INTERRUPT DID NOT OCCUR, BUT THE TRANSFER IS COMPLETE
end;

005746
016604

5415 044452

SEQ 0145

PRINTB (FMT6, .WRDCNT, .RTN, WRD1S5,
.SECTOR):
''BEGAN YYYY WORD (222) AT SECTOR 22211%°
IWHERE (?2?) IS EITHER 'WRITE®, 'READ’' OR 'WRITE CHECK'

5409 044430
5410 044432

5411 044436

6.12

PAGE 137

COMMAND INITIATION AND TERMINATION

300y

5403
5407 044424

29-MAR-82 13-41

177770

000007
167666

177577

000040
000001
135362

MOV

R4 .R1

BIC

1%:

167634

2%:

3s:
4$:

START.IT COMMAND INITIATION AND TERMINATION

R1,$SAVESL

ASL
MOV
MOV

177716
167640

LS$DLY

JSR

ST
MOV

167672

!PASS ALONG THE ERROR VALUES THAT °*SYSERR' OBTAINED.

BICB
BISB
CLR
o
BNE
JSR
MoV

-($P)
24(SP) R4

3783

: LUN,*

3822

R1
PTABLE
.ADDR(R1)
,R2
6(R2) .R3

M777%0.R3

#7.aML.REG+10
R3.aML.REG+10
R3

PC.PC
2s
PC,WAITER
an; u;c.as

; READY.BIT
:

3823
3825

:
: *,READY.BIT

3827
3828

BIC

#177577 R3

BISB
MOV
BEQ
MOV
BEQ
CLR
DEC
BNE

#40,aML.REG+10
#1.R0
6$
LSDLY,R2
5s
(SP)
R2
X

B8R

: *.READY.BIT

:
: o+, 88TMP2
; +.88TMPY

: SSTMP
: SSTAPY

3825

3834
3835

{ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
START.IT COMMAND INITIATION AND TERMINATION

5434,

5437 044544

5438 044546
§439 044550
5440 044556
5441 044562

044564

5443 044570
5444 044572
5445 044576

5446 044576

005300

000767
015777
012700

000011

016702

135326

001410

001403
005016
oossog

000001

5449 044606

016102

034422

§451 044614
5452 044620
5453 044626

042701
142777

177770
000007
167524

5450 044610

78:

00137

005300

000767
016201

6$:

8s:

5447 044600

5448 044602

167570

98:

108:

000006
167530

H_ 12
PAGE 138
SEQ 0150

SMLXG

gz%g

5442

29-MAR-82 13:41

COMMAND INITIATION AND TERMINAT]ION
DEC

B8R
MOV
MOV
BEQ

MOV
BEQ
CLR
DEC

BNE

K 131,
T,

LSDLY,R2

; v, 88TMP1

98
(SP)
R2

27-Mar-1982 19:23:44

TOPS

PA:<

; SSTMP?

38
#11,3ML .REG
#1 RO
10§

27-Mar-1982 19:24:42

;

3836

3837

; $STMP
L ssTMPY

DEC

; $$TMP2

MOV

PTABLE .ADDR(R1) ,R2

;

3838

8IC
BICB
8ISB

#1772%0,R1
#7.aML.REG+10

B8R

MOV

6(R2) R

150177
152777
032767

000004
000001

167532
135404

BISB
BIT

R1.aML.REG+10
#4.aML.REG+24
#1,REFRESH

;
:

3842
3844

§457 044650
5458 044656

152777
032767

000200
000001

167514
135370

BISB
BIT

#200,3ML.REG+24
#1,ECCDIS

3846

5461 044676

016677

000022

167446

22(SP) ,aML .REG+2

5463 044706
5464 044716
5465 044722
5466 044726
5467 044732
5468 044734
5469 044740

; WRDCNT, s

016677
016677
005067
016602
010201
062701
010177

000020
000016
167410
000026

167436
167432

3851

20(SPY ,aML .REG+4
16(SP) . 3ML .REG+6
1.AM_DONE
26(SP) .R2
R2,R1
#100,R1
R1,@ML .REG

; BUFFER,*
: SECTOR.«
:
: COMMAN,D+
.« TEMP
¢ < TEMWP
: TEMP,»

3852
3853
3857
3858

5454 044632
5455 044640

5456 044646

5459 044664
5460 044666

5462 044702

5470 044744
5471 044746

5472 044754
5473 044756
5474 044762

5475 044766
5476 044772
5477 044774

5478 045000

5479 045002

5480 045010
5481 045012

5482 045014
5483 045020

5484 045024
§485 045026
5486 045032
5487 045036
5488 045040

001403

001403
152777

005477

005003
032767

001067
004767
017703
042703
001765
005767

001362

000002

167442

000001

128:

167362

13$:

177577

167336

004767
020227

170504
000061

007256

007264

NEG

ML _REG+2

MOV

CLR
BIT

BNE
JSR
MOV

148:

R3
#1,1.AM.DONE

17§
PC.WAITER
ang.a;c,ns

3859

* READY.BIT
:

3865
3867

:
: *,READY.BIT

3869
3870

8IC
8EQ
TST

27757783
138
1, AM. DONE

: «,READY.BIT
:

3872

BIT

#1,RETRYING

3876

JSR
P

PC. SAYWHO
RO #61

3879

3881

BNE
MOV

000071

128
#2,aML.REG+24

BNE

167330

11$

BEQ
BISB

MOV
MoV
CLR
MOV
MOV
ADD
MOV

177436
167360

000007

001002
012701
020227
001002
012701

11$:

000100
167402

032767

001051
010446

167476

BEQ

BNE
MOV
(WP
BNE
MOV

13s

17$
Ré,=(SP)

14$
#MRD16.R1
ag 1 74]
154
SURD17,R1

: *,RIN

3883

(IMLBBO PERFORMANCE EXERCISER

START._IT COPMAND

INITIATION AND TERMINATION

5490

SMLXG

gzg;

5493 045044

5494 045050
5495 045052
5496 045056

:
020227

000051

016616

000020

001002
012701

007714

5497 045062
5498 045066
5499 045070
5500 045074
5501 045100
5502 045106

012746
010146
016646
012746
012746
010600

§504 045110
5505 045114
5506 045120
5507 04512¢

012716
012746
012746
010600

011002
007072
000002

5509 045130

062706

000020

5503 045106

5508 04.51%8
5510 045134

5511 045136
§512 045142

22112 045144
5515
23}?

5522

MACRO M1113 29-MAR-82 13:41 PAGE 539

104414

010446

004767
022626
000207

007246

158:
168:

000030
006376
000005

174546

COMMAND INITIATION AND TERMINATION
P

R2,451

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS

PA:<
3885

BNE
MOV

16§
#PHR1 R

MOV
MOV
MOV
MOV
MOV
MOV

MRD15 =(SP)
R1,=(5P)
30(SP),~(SP)
SEMT6, = (SP)
#5.-($P)
.

MOV
MoV
MOV
MOV

#NSGO, (SP)
#SAY1,=(SP)
#2,-(SP)
.

ADD

#20,SP

§an

JSR
P

PC.SYSERR
(SP)+,(SP)+

3783

MOV

TRAP

178:

SEQ 0151

MmOV

RTS

: * RIN

20(SPJ, (sP)

t SECTOR,

: RIN, ¢
¢ WRDENT,e
: SP,e

3890

; SP,«

R&,=(SP)

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

3887

14 words

900

sMLXS

29-MAR-82 13:41

J 12
PAGE 140
SEQ 0152

27-Mar-1982 19:24:42

COUNTING BYTES TRANSFERED

27-Har-198§ 19:23:44

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.5 (26)

LR XN PR P ¥

Isbttl "COUNTING BYTES TRANSFERED®
routgne_UP_UR_COUNT (WORD_COUNT) : novalue =

ufifcounr = WR_COUNT + (.WORD_COUNT*2);
in

“en,

if .WR_COUNT geq 20000
then
begin
WR_THOUSANDS = .WR _THOUSANDS + 20;
WRZCOUNT = .WR_COURT - 20000;

if .WR_THOUSANDS geq 1000
then
begin

;

WR_THOUSANDS = .WR_THOUSANDS - 1000;

WR_MILLIONS = .WR_MILLIONS + 1;

if .WR_MILLIONS lss O then WR_MILLIONS = 0;

o4l

WVIALILY ANANANALY
ALY IV IV, |

w
paA
NW
y\' RREE
ViAW
NN WWNNININIPON) no
(v
OV~ SHR(V.1 ,¥] - OV~
NE

LM BBO PERFORMANC E EXE RCISER
MACRO M1113
START.IT COMMAND | NITIA TION AND TERMINATION

end;

IO
NOHO

N NIO

WALV VA
W
AV
IV v iV ]
O
NN~

AL
SO
ARUINIIDEIIR A $ e
L
T
RRRRRRR SERRRRRER
VivinniVAWMIAWLK VHuawiAaIwnwWA
NININ)
= i b ced emd i b and
RN
NN
= —d

end;
return;

end;

«SBTTL
UP.WR.COUNT:

000002
167134
167130
047040

:g{

gssP).RO

s WORD.COUNT,+

3905

ADD
MOV
gfg

WR.COUNT
RO
RO,.WR,
COUNT
RO,44704

: WR.COUNT,+

3907

000024

167116

ADD

167104

001750
167070

047040

167062

UP.WR.COUNT COUNTING BYTES TRANSFERED

#24 . WR. THOUSANDS

001750

SUB

gc;

#47040,WR.COUNT

3910
3911
3913

167072

suB
INC
8PL
CLR
RTS

#1750,WR. THOUSANDS
WR.MILLIONS
18
WR.MILLIONS
PC

3916
3917
3919

167106

18:

gg.THOUSANDS.017SO

: gougine Szze; d29t=ords ]

Maxi

sMLX4 M stack

;

depth

invocation:

COUNTING BYTES TRANSFERED

3903

words

27-Mar-1982 19:24:
27-Mar-1982 19:23:

TO0PS
PA:<

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113

UP.WR.COUNT COUNTING BYTES TRANSFERED

5589 ;MLX4
8250

553? :

3927
3928
3929
3930
3931
393
393
3934
3935
3936
3937
3938
3939
3940

5608 ;
5609 ;
5610 ;
5611 ;
5612 ;
5613 ;
5614 ;
gg}g :

3943
3944
3945
3946
3947
3948
3949
3950

5620
5624 045240
5625 045240
5626 045244
5627 045246
5628 045252
5629 045256
5630 045262
5631 045264

5632 065272

5633 045300
5634 045306
5635 045310
5636 045316
5637 045322
5638 045324
ggzg 045330

5641
ggg%

K 12
PAGE 141
SEQ 0153

glMar-1982

COUNTING BYTES TRANSFERED

5592 .
5593 .
5594 ;
5595 ;
5596
5597 ;
5598 ;
5599 ;
5600 ;
5601 ;
5602
5603 .
5604 ;
5605 ;

2289 :

29-MAR-82 13:41

162767

026727
002410
162767
005267
100002
005067
000207

19:24:42

1 9:23:44

T0PS-20 BLiss=16 V2(212)

PA:<NEALESMLX4.BLI.S

(27)

routine UP_RD_COUNT (WORD_COUNT) : novalue =
begin
RD_COUNT = .RD_COUNT + (.WORD_COUNT*2);
if .RD_COUNT geq 20000
then
begin
RD_THOUSANDS = .RD_THOUSANDS + 20;
RD_COUNT = .RD_COURT - 20000;
if .RD_THOUSANDS geq 1000
then
begin
RD_THOUSANDS = .RD_THOUSANDS ~ 1000;

§32}

016600
006300
066700
010067
020027
002422
062767

7-Mar-1982

RD_MILLIONS = .RD_MILLIONS + 1;

if .RD_MILLIONS (ss O then RD_MILLIONS = 0;

end;
end;
return;
end;

000002
167050
167044
047040
000024

047040

167032

167022

167020

001750

001750
167004

167006

166776

.SBTTL
UP.RD.COUNT:
MOV
ASL
ADD
MOV
cop
BLT
ADD

SUB

1$:

P
BLY
SuUB
INC
8PL
CLR
RTS

UP.RD.COUNT COUNTING BYTES TRANSFERED
2(SP) ,RO
RO
RD.COUNT
RO
RO,RD.COUNT
RO, #4704
13
#24 RD . THOUSANDS

3929

s RD.COUNT,=

3931

#67040.RD. COUNT

RD.THOUSANDS #1750
1$
#1750 ,RD. THOUSANDS
RD.MILLIONS
18
RD.MILLIONS
PC

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

s WORD.COUNT,+

0 words

3934

3935

3937

:
H
:

3940
3941
3943

3927

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
UP.RD.COUNT COUNTING BYTES TRANSFERED

5653 ;MLX4
5656 ;
5655
5656 .
5657 ;
5658 ;
5659 .
5660 .
5661 .
5662 .
5663 ;
5664 ;
5665
5666
5667 ;
5668 .
5669
5670 .
5671 ;
5672 ;

5673 ;
5674 ;

5675 ;
5676
5677 .
5678 ;
5679 :
5683
5684
5688 045332
5689 045332
5690 045336
5691 045340

L 12

PAGE 142

SEQ 0154

27-Mar-1982 }
27-Mar-1982

COUNTING BYTES TRANSFERED

3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967

routine UP_WC_COUNT (WORD_COUNT)

begin

016600
006300
066700

005067
000207

32%

TOPS=-20 Bliss=16 v2(212)
PA:<NEALE>MLX4&.BLI.S (28)

: novalue =

if .WC_COUNT geq 20000
then
begin

UC?TNOUSANDS = .WC_THOUSANDS + 20:;
WC_COUNT = .WC_COURT - 20000;
if .WC_THOUSANDS geq 1000
then
begin

UC?THOUSANDS = ,WC_THOUSANDS - 1000;
WC_MILLIONS = .WC_MILLIONS + 1;

if .WC_MILLIONS lss O then WC_MILLIONS = 0;

3968
3969

3970
39N
3972
3973
3974

WC_COUNT = .WC_COUNT + (.WORD_COUNT®2);

end;
end;
return;

end;

.SBTTL
UP.WC.COUNT:
MoV

000002
166764
166760

ADD

MoV
CMP

047040

5702 0456416
5703 045422

29-MAR-82 13:41

000024
047040
166734

166746
166736
001750

ADD

001750
166720

166722

166712

2(SP) ,RO

3953

s WC.COUNT,

3955

WC.COUNT
RO

RO,WC.COUNT
q0.347040
$
#24 ,4C. THOUSANDS

gg.mousmos.cwso

3958
3959
3961

su8
INC

#17
,WC . THOUSANDS
50
?E.HILLIONS

3964

CLR
RTS

WC.MILLIONS
PC

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

”

; WORD.COUNT,+

#47040,WC. COUNT

Sus

18:

UP.WC.COUNT COUNTING BYTES TRANSFERED

3967

3951

0 words

CZMLBBO PERFORMANCE EXERCISER
HACRO M1113
UP.w..COUNT COUNTING BYTES TRANSFERED

S717 :MLX4

g;}g M
§720
5721
5722
5723

:
;
;

3975
3576
3977
3978

SEQ 0155

27-Mar=-1982 19:24:42

!4+
| ROUTINE:

5727 :

3982

PURPOSE:

g;gg ;

gggg

ARGUMENTS:

5732

3987

RESULTS:

g;gg :

gggg

5737 :

3992

§ggz

3088
3989

27-Mar-1982 19:23:44

TOPS-20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S (29)

Xsbttl 'ML11 TRANSFER COMMANDS'
routine write (LUN, WRDCNT, BUFFER, SECTOR) =
begin

3979
ggg?

5733
5734 :

M2
PAGE 143

ML11 TRANSFER COMMANDS

5726
gggg :

g;gg ;

29-MAR-82 13:41

|
|

WRITE (LUN,WRDCNT ,BUFFER, SECTOR)

TO TRANSFER INFORMATION FROM MAIN MEMORY TO THE ML11

AND TO DECIDE ON THE ADVISABILITY OF A RETRY.

SEE "START_IT' ROUTINE ABOVE FOR DETAILS
UPON_TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS

AND THE CONTENTS OF °*VALUE' BECOMES IMPORTANT IN TERMS OF
WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A

RETRY SHOULD OR SHOULD NOT BE PERMITTED.

THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS

5738
5739 :
5740 :
5741 ;
5742 :
5743 :
5744 :
5745 :
g;zg :

3993
3994
3995
3996
3997
3998
3999
4000
2885

g;zg :

2883

if ( not .RETRYING) then UP_WR_COUNT (.WRDCNT);:

g;g? :

288§

if .VALUE eql O then return 0;

g;g% :

2885

5754 :

4009

it ((.ERROUT) and ( not .RETRYING)) then PRINTB (FMT6, .WRDCNT, WRD16, WRD15. .SECTOR):

5755 ;
g;gg :

5761
5765 045424

5766 045430

5767 0454346
5768 045436
5769 045442
5770 045446
5771 045450

4010
4011
004167

012700

010046
016646
016601
010146
016646

i
i--

FOR THE SYSERR ROUTINE ABOVE.
local
VALUE,
COMMAND;
COMMAND = WR_CMD;
VALUE = START_IT (.COMMAND, .LUN,

.WRDCNT, .BUFFER, .SECTOR):

!NO ERRORS AT ALL

!*"BEGAN YYYY WORD WRITE AT SECTOR 222111°

return ,VALUE;
end;
137632

000061

000020
000020

000020

WRITE:

.SBTTL
JSR

WRITE ML11 TRANSFER COMMANDS
R1,$SAVE2

MoV
MoV
MoV
MoV

RO,~(SP)
20(SP) ,=(SP)
20(SP) .R1
R1,=(SP)
20(SP),=(SP)

MOV

#61,R0

3976

: COMMAND,
*
; LUN,*
¢ WRDCNT,»

4001

: *,COMMAND

: BUFFER,~

CZMLBBO PERFORMANCE EXERCISER

WRITE ML11

TRANSFER COMMANDS

MACRO M1113

SEQ 0156

5773

sMLXG

g;;g

5776 045456
5777 045460

5778 045464
5779 045466
5780 045474
5781 045476
5782 045500
5783 045504
5784 045506
5785 045510
5786 045512
5787 045516
5788 045520
5789 045526
5790 045530
5791 045536
5792 045540
5793 045544
5794 045550
5795 045554
5796 045556
5797 045562
5798 045566

5799 045570
5800 045572
5801 045576
5802 045602
5803 045604
5804 045606
2382 045610
5807
§g?§

016646
004767

010002
032767

001004
010146
004767
005726
005702
001003

062706
000433
032767
001423
032767
001017
016646
012746
012746
010146
012746
012746
010600
104414
062706
062706

010200
000207

005000
000207

000020
176740
000001

166644

BIT

1$:

000012
000001

134532

000001

166602

ML11

MOV
JSR
MOV

177442

2%:

000022
007246
007256

006376
000005
000014
000012

N 12
PAGE 144

29-MAR-82 13:41

3s:
48:

BNE
MOV
JSR
TST
TST

BNE

ADD
BR
8IT
8EQ
BIT
BNE
MoV
MOV
MOV
MOV
MOV
MoV
MOV
TRAP
ADD
ADD

MOV
RTS
CLR
RTS

27-Mar-1982 19:24:42

TRANSFER COMMANDS

27-Mar-1982 19:23:44

20(SP) ,-(SP)
PC,START.
IT

: SECTOR,*

RO.R2
#1,RETRYING
18
R1,-(SP)
PC,UP.WR,COUNT
(SP)+
R2
28
#12,5P
48
#1,ERROUT
3s
#1,RETRYING
3s
22(SP) ,=(SP)
#MIRD15,-(SP)
#MIRD16,-(SP)
R1,-(SP)
AFMTE,=(SP)
#5,-(SP)
SP,RO

; *,VALUE
:

4003

s VALUE

4005

4007

; SECTOR,*

: SP.»

14
#14,SP
#12,SP
R2,.RO
PC
RO
PC

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

TOPS

PA:<

14 words

3976

s VALUE,*

3977

3976

(ZMLBBO PERFORMANCE EXERCISER
WRITE ML11 TRANSFER COMMANDS

5816 :MLX4

gg}g :
5819 .
5820
5821 :
5822 :

gggz :

5825

MACRO M1113

SEQ@ 0157

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

4012
4013
401%
4015

routine read (LUN, WRDCNT, BUFFER, SECTOR) =
begin

28}9

ROUTINE:

!++

2333

4018

PURPOSE:

gggg ;

2355

ARGUMENTS:

5830 :

4023

RESULTS:

5831
5632 :

6024
4025

2359

5835

4028

5836 5837 :
5838
5839 .
5840 :
5841 :
5842 :
5843 -

B 15
PAGE 145

ML11 TRANSFER COMMANDS

gggg :

;ggz :

29-MAR-82 13:41

4029
4030
4031
4032
4033
403%
4035
4036

i
i

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (30)

READ (LUN,WRDCNT ,BUFFER, SECTOR)

TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY

USING A 'READ' COMMAND.

SEE *START_IT® ROUTINE ABOVE FOR DETAILS
UPON_TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS

AND THE CONTENTS OF °‘VALUE' BECOMES IMPORTANT IN TERMS OF
WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A

RETRY SHOULD OR SHOULD NOT BE PERMITTED.

THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS

i
i--

FOR THE SYSERR ROUTINE ABOVE.
local
VALUE,
COMMAND;

COMMAND = RD_CMD;

ggzg :

28%3

ggzg :

VALUE = START_IT (.COMMAN, .LUN, .WRDCNT, .BUFFER, .ECTOR):

2823

if ¢ not .RETRYING) then UP_RD_COUNT (.WRDCNT);

ggzg :

2825

it .VALUE eql O then return 0;

gggg :

2322

5852 :

4045

it ((.ERROUT) and ( not .RETRYING)) then PRINTB (FMTG, .WRDCNT, WRD17. WRD15, .SECTOR):
!*BEGAN YYYY WORD READ AT SECTOR 222211°

gg;’é :

4047

5853 .

5859

5863 045612
5864 045616
5865 045622
5866 045624
5867 045630
5868 045634
5869 045636
5870 045642

4046

004167
012700
010046
016646
016601
010146
016646
016646

!NO ERRORS AT ALL

return .VALUE;

end;
137444
000071

000020
000020
000020
000020

READ:

.SBTTL

JSR
MOV
mov
MoV
[
MoV
MoV
MOV

{PEAD ML11 TRANSFER COMMANDS

RT,$SAVE2
#71.R0
RO,~(SP)
20(SP),~(5P)
20(SP) .R1
R1,-(SP)
20(SP) ,=(SP)
20(SP) .-(SP)

:
¢«
:
:
¢

COMMAND
COMMAND,
*
LUN,*
WRDCNT,»

: BUFFER,*
: SECTOR.+

4012
4037

CZMLBBO PERFORMANCE EXERCISER
READ ML11 TRANSFER COMMANDS

5872
5873
5874
5875 045646
5876 045652
5877 045654
5878 045662

004767
010002
032767
001004

010146

|slelolelels)

5903 045776

5904
5905
5906
5911
5912

ML11

000207

T0PS
<
PA:

PC,START.IT

166456

q;.RETRYING

;

*,VALUE

;

VALUE

4039

R1,-(SP)

177346

PC,UP.RD.COUNT
(SP)+

1$8:

R2
2%
#12,SP
43
#1,ERROUT

000012
000001

134344

000001

166414

28:

4041

4043

#1,RETRYING

38
22(SP) ,~(SP)

000022
007246
007264

; SECTOR,«

MIRD1
.~ (SP)
5
MIRD17.=(SP)
R1,=(SP)
AFMT6,~(SP)

006376

#5,-($P)

000005

000014
000012

27-Mar-1982 1 9:24:42
27-Mar-1982 1 9::23:44
2

TRANSFER COMMANDS

RO,R2

SP.RO
14
#14,SP
#12.5P
gz.no

5901 045772
5902 045774

SEQ 0158

176552

000001

¢ 13
PAGE 146

29-MAR-82 13:41

sMLX4

004767
005726
005702
001003
062706
000433

5896 045754
5897 045756
5898 045760
5899 045764
5900 045770

MACRO M1113

3s:
48:

* VALUE,+

RTS

: Routine Size:

4012
4013

4012

59 words

sP:*

Maximum stack depth per invocation:

16 words

(ZMLBBO PERFORMANCE EXERCISER
READ ML11 TRANSFER COMMANDS

5914 :MLX6

gg}g :
§917
5918 ;

MACRO M1113

29-MAR-82 13:41

PAGE

D 13
147

SEQ 0159
7-Mar-1982 19:24:42

ML11 TRANSFER COMMANDS

7-Mar-1982 19:23:44

4048
4049

routine CHECK (LUN, WRDCNT, BUFFER, SECTOR) =
begin

§920 :

4051

tee¢

5923 :

4054

23?2

gg%g :

§919 :

ggg} :

4050

282

ROUTINE:

PURPOSE:

28?5

ARGUMENTS:

5928 :

4059

RESULTS:

gggg :

5929 :
5930

ggg; ;

4060
4061

282%

|
i

5933 :

4064

5934
5935
5936
5937 :
5938 :
5939 :
§940 :

5941

4065
4066
4067
4068
4069
4070
4071

TOPS~20 Bliss=-16 v2(212)

PA:<NEALE>MLX4.BLI.S (31)

CHECK (LUN,WRDCNT ,BUFFER,SECTOR)

TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY

USING A 'WRITE CHECK' COMMAND.

SEE 'START_IT' ROUTINE ABOVE FOR DETAILS
UPON_TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS

AND THE CONTENTS OF 'VALUE' BECOMES IMPORTANT IN TERMS OF
WHETHER THE TRANSFER WAS COMPLETELY SUCCESSFUL OR WHETHER A

RETRY SHOULD OR SHOULD NOT BE PERMITTED.

THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS

i
i--

FOR THE SYSERR ROUTINE ABOVE.

local
VALUE,
COMMAND;

4072

28;2

ggzg :

VALUE = START_IT (.COMMAND, .LUN, .WRDCNT, .BUFFER, .SECTOR):

28;2

gg:g ;

28;;

it ( not .RETRYING) then UP_WC_COUNT (.WRDCNT);
if .VALUE eql O then return 0;

gg:g :

2353

if ((.ERROUT) and ( not .RETRYING)) then PRINTB (FMT6, .WRDCNT., PHR1, WRD1S5, .SECTOR):

ggz% :

5950 :

5951 ;
gggg :

4081

4082
4083

COMMAND = WC_CMD;

!"BEGAN YYYY WORD WRITE CHECK AT SECTOR Z22111'

return .VALUE:
end;

5957
5061 046000
5962 046004

004167
012700

137256
000051

5964 046012
5965 046016

016646
016601

000020
000020

5063 046010

5966 046022
5967 046026
5968 046030

010046

010146
016646
016646

INO ERRORS AT ALL

000020
000020

CHECK:

.SBTTL
JSR
MoV

MoV
MOV
MOV
MoV
ol
MOV

CHECK ML11 TRANSFER COMMANDS
R1,$SAVE2
#5§.R0

RO,=~(SP)
20(SP),=(SP)

20(SP) .R1
R1,-(SP)
20(SP) ,=(SP)
20(SP).~(SP)

:
: +, COMMAND

: COMMAND,+

: LUN,*
: WRDCNT,+
: BUFFER,*
; SECTOR.*

4048
4072
4073

(ZMLBBO PERFORMANC EE XERCISER
3
CHECK ML11 TRANSFER COMMANDS

5995 046144
3996 046146
5997 046152
5998 046156
5999 046160

O0000

SRR
R RS RS S A SR I BSNBSS

5994 046142

29-MAR-82 13:41

176364

000001

E 13

PAGE 148

>EQ 0160

sMLX&

SOOOOOOOOOOD

5970
5971
5972
5973 046034
5974 046040
5975 046042
5976 046050
5977 046052
5978 046054
5979 046060

MACRO M1113

JSR
166270

7-Mar-19 21 9:26:4
142
7-Mar-19 21 9:23:4 4

ML1T TRANSFER COMMANDS

817

TOPS
<
PA:

PC,START.IT

RO.R2

#1_.RETRYING
18

*,VALUE
4075

R1,-(SP)
PC,UP.WC.COUNT
(SP)+

177252
18:

;

VALUE

4077

000012
000001

134156

000001

166226

2s:

g;.ERROUT

4079

#1,RETRYING

33
22(SP) ,-(SP)

#URD1S ,~(SP)

;

SECTOR,*

SP.'

#PHRY ,~(SP)

R1,~(SP)

#EMT
- E,
(SP)

#5,-(SP)
SP.RO
14

#14,SP

3s:
4$:

r22,5P
g2.R0

CLR
RTS

: VALUE,*

¢
RO

4048

: Routine Size:
59 words .
.
Maximum stack depth per invocation:

4048
4049

14 words

CIMLBBO PERFORMANCE EXERCISER
CHECK ML11 TRANSFER COMMANDS

6012 ;MLX4

28}2 .
6015
6016
6017
6018
6019
6020
6021
6022

4086
4085
4086
4087
4088
4089
4090
4091

28%2 :

2832

6096

0027 ;

6028 :
6029 :
6030

29-MAR-82 13:41

SeEQ 01¢°

27-Har-1985 19:%4:42

4092
4093

«097
4098
4099

27-Mar-1982

!
!
!

!
!--

ROUTINE:

CHOOSE

PURPOSE:

TO DECIDE WHETHER TO DO A ‘WRITE CHECK® OR A ‘READ'.
THE 'READ' WILL BE SELECTED APPROXIMATELY 25% OF THE
TIME.
THIS IS ACCOMPLISHED BY EXAMINING THE MOST AND
THE LEAST SIGNIFICANT BITS OF A ANDOM NUMBER,
|[F

RESULTS:

THE VALUE RETURNED FOR THIS ROUTINE IS THE ADDRESS OF

THE CHOSEN COMMAND (EITHER 'READ' OR ‘CHECK®).

RN O):

6036 :
6037 ;
6038 :
6039 ;

4105
4106
4107
4108

if ((.RANDOM) and (.RANDOM Llss 0))
then
VALUE = read
else

g&? H
6042 :
%; :

6048

6052 046166
6053 046172
6054 046200

6055 0646202
6056 046206
6057 046210
6058 046214

6059 046216
60660601 0646222

6062

2}(1)8

4111
4112
004767
032767
001406

005767
002003
012700
000207
012700
000207

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLXG.BLI.S (32)

BOTH ARE SET, THEN °'READ' IS CHOSEN.

4100
4101
4102
4103

4104

19:23:44

routine CHOOSE =
begin

6031 ;
6032
6033
6034 .

6035 ;

F 13
PAGE 149

ML11 TRANSFER COMMANDS

;
;
;
;
;
;
:

6023 ;
6024 :

MACRO M1 113

local
VALUE;

VALUE = CHECK;

!CHOOSE THE READ COMMAND

!CHOOSE THE WRITE CHECK COMMAND

return .VALUE;
end;
137176
000001

137256

LSBTTL

137264

CHOOSE: JSR
8It
BEQ

045612
046000

1$:

TST
86E
MoV
RIS

MOV
RIS

: Routine Size:

CHOOSE ML11 TRANSFER COMMANDS

PC.RN
#1 ,RANDOR
1$

18
AREAD .RO
PC

; %,VALUE
:
s *,VALUE
H

#CHECK RO
e

15 words

; Raximum stack depth per invocation:

0 words

1 CZMLBBO PERFORMANCE EXERCISER
CHOOSE ML11

TRANSFER COMMANDS

6074 ;MLXS

28;2 :
6077
6078
6079
6080
(&8%5

MACRO M1113

29-MAR-82 13:41

6 13

PAGE 150

SEd Qied

7-Mar~1982 19:24:42

ML11 TRANSFER COMMANDS

7-Mar-1982 19:23:44

;
;
.
;
:

4113
4114
4115
116
l‘ong

routine RETRY (TIMES, COMMAND. LUN, WRDCNT, BUFFER, SECTOR) =
begin
L
:

ROUTINE :

RETRY(TIMES, COMMAND ,LUN,WRDCNT ,BUFSER,SECTOR)

6083 ;
6084 .
6085 .

4119
4120
2}5;

!
!
:

PURPOSE:

(1)

6087 ;

4123

IF THE OPERATOR HAS ALLOWED ERROR PRINTOUTS, AND
IF THE RETRY IS NOT TO CATEGORIZE ERRORS, THEN SAY
THAT THE RETRY IS BEGINNING.

6088 ;
6089 ;

6126
2}52

!
:

{2)

6091 ;
6092 ;

figg

!
!

(3)

gggz :

4127
4128

6095 ;
6096 ;

4131
4132

!
!

(4)

INCREMENT THE RETRY COUNTER FOR EVERY RETRY DONE
WHICH WAS NOT FOR ERROR CLASSIFICATION.

(1)

TIMES - THE NUMBER OF RETRIES PERMITTED BEFORE

OTHER ARGUMENTS ARE THE SAME AS FOR 'START_IT®

6097 ;

4133

REISSUE THE WRITE, WRITE CHECK OR READ COMMAND

UNTIL THE COMMAND SUCCEEDS OR UNTIL ALL PERMITTED
RETRIES HAVE FAILED.

IF A "BEGIN RETRY®' MESSAGE WAS PRINTED, THEN A FINAL
MESSAGE ABOUT THE SUCCESS OR FAILURE OF THE RETRIES

SHOULD ALSO BE PRINTED.

6098 :
6099 .

4136
4135

!
!

6102 :

4138

(2)

6105 ;
6106 ;
6107 ;
6108 ;
6109 .
6110 ;
6111 ;
6112 ;
6113 ;
6114 :
6115 ;
6116 ;
6117 ;
6118 ;
6119 ;
6120 .
6121 ;
6122 ;
6123 ;

6141
4142
4143
6144
4145
4146
4147
4148
6149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159

!
RESULTS:
!
!--

THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS
FOR THE SYSERR ROUTINE ABOVE.

6125 :
6126 :

4161
416%

g}g? H

6126 ;

6127 ;
6128 ;

flgg

4160

416
4164

ARGUMENTS:

IT IS CALLED A FAILURE.

Label
LOOP;
local

TEMP,

VALUE,

COUNT,
TBOARD,
TBANK;

! THIS IS THE CODE FOR PURPOSE 1:
le

RETRYING = ACTIVE;

it ((.TINES neq 1) and (.ERROUT))
then

begin

TOPS=-20 Bliss=-1o Vv2(212)

PA: <NEALE>M(X4.BL1.S (33)

‘e 2 »

(ZMLBBO PERFORMANCE EXERCISER
CHOOSE MLT1 TRANSFER COMMANDS

6130 .mLxé

235 M
213313. :
6135 ;

MACRO M1113

29-MAR-82 13:41

PAGE

W13
151

SEQ 0163

ML11 TRANSFER COMMANDS

57-flar-198

7-Mar-1982

19:54:42

19:23:44

2}22

if .COMMAND eql write then PRINTB (SAY3, WRD2, WRD16, WRD1S):

4167

'BEGIN WRITE RETRY

6136 ;
g]'g :

4168
2}98

g}gg :

2};}

!BEGIN WRITE CHECK RETRY

g}lz} H

2};2

if .COMMAND eql read then PRINTB (SAY3, WRD2, WRD17, WRD18);

6143 ;
6144 ;
6145 ,
6146 ;
6147 ;
6148 ;
6149 ;

6175
4176
4177
4178
6179
4180
4181

IBEGIN READ RETRY
end;

6150 ;

6151
615¢
6153
6154
6155
g}gg

4182

;
;
;
;
;
:

4183
4184
4185
4186
4187
2}33

6158 ;
6159 ;
6160 ;
6161 ;
6162 :
6163 ;
6164 ;
6165

4190
41N
4192
4193
4194
4195
4196
4197

6167 ;
6168 ;
6169 ;
6170 ;
6171 ;
6172 :
6173 ;
6174 ;

4199
4200
4201
4202
4203
4204
4205
4206

6166 .

6175 ;

6176 :
6177 ;
6178 ;
6179 ;
6180 ;
6181 ;
6182 ;
6183 ;

6184 :

4198

4207

4208
4209
4210
411
4212
4213
4214
4215

4216

TOPS~20 Bliss=16 v2(212)

PA: <NEALX6
E>ML
.BLI.S (33)

if .COMMAND eql CHECK then PRINTB (SAY3, WRD2, PHR1, WRD18);

‘e 2«

'+
! THIS IS THE CODE FOR PURPOSE 2:
f-

LOOP :

begin
.
incr KOUNT from 1 to .TIMES do
begin

I 3«

I 4 »
.
if .COMMAND eql write then VALUE = write (.LUN, .WRDCNT, .BUFFER, .SECTOR);

if .COMMAND eql CHECK
then
be?in
write (.LUN, .WRDCNT, .BUFFER, .SECTOR):
VALUE = CHECK (.LUN, .WRDCNT. .BUFFER, .SECTOR):
end;
.
if .COMMAND eql read

then

begin
write (.LUN, .WRDCNT, (.BUFFER ~ BUFSIZ*2), ,SECTOR):
VALUE = read (.LUN, .WRDCNT, .BUFFER, .SECTOR):
end;

'+
! THIS 1S THE CODE FOR PURPOSE 3:
(£

if .VALUE eql O
then
begin
.
if ((.TIMES neg 1) and (.ERROUT))
then
be?in
PRINTB (SAY2, WRD18, WRD19);

PRINTB (CRLF);

!THE RETRY WAS SUCCESSFUL
a5«

(ZMLBBO PERFORMANCE EXERCISER
CHOOSE ML11 TRANSFER COMMANDS

0186 .MLXé
g}gg :
6189 ;
6190 ;
6191 ;

6192 ;

6193 ;
619 ;

6195 ;

6196
6197
6198
6199
6200

;
;
:
;
;

6201 ;
6202 ;
6203 ;

6204 ;

6205 :;
6206 ;
6207 ;
6208

6209
6210
6211
6212
6213
6214
6215

.
;
;
:
;
;
;

6217
6218
6219
6220
6221

;
;
;
;
:

6216 :

6222 ;

6223 .
6224 ;
6225 :
6226 ;
6227 :
6228 ;
6229 :
6230 ;

6231 ;
2532 ;

36
6237

MACRO M1113

29-MAR-82 13:41

PAGE

113

152

SEQ 0A

7-flor-19gg 19:5&:42
7-Mar~-19
19:23:44

ML11 TRANSFER COMMANDS
6217
4218
4519

'RETRY SUCCEEDED
end;

229

COUNT = _KOUNT:;

4221
422%

leave LOOP;
end;

422

4224
4225

4226

4227
4228
4229
4230
4231
4232
4233
4236
4235
4236
4237
4238
4239
4240
6241
4242
4243

4244

4245
4246
4247
4248
4249

4250

4251
4252
4253
4254
4255
4256
4257
4258

4259
4260

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.5 (33)

‘e S »

end;

In 4 o

! FALLS THROUGH HERE IF ALL RETRIES FAILED:
‘-

it ((.TIMES neq 1) and (.ERROUT))
then
be?in
PRINTB (SAYZ2, WRD18, WRD20);

!
! VER CIMLBB COMMENTED OUT THIS PRINT CRLF
!
PRINTB (CRLF):
IRETRY FAILED
COUNT = .TIMES:
end;

end;

ix 3 »

e
! THIS IS THE CODE FOR PURPOSE &:

lw
.
if .TIMES neq 1
then
begin

TBSARD = .BOARD;

TBANK = _BANK:
DECODE (.SECTOR);
TRIES [.LUN, .BOARD, 0, 16, 0] = .TRIES [.LUN, .BOARD, 0, 16, 0] + .COUNT;
BO0ARD = .TBOARD;
BANK = ,TBANK:
end;
RETRYING = INACTIVE;
return .VALUE;
end;

'n 1 »

+SBTTL

RETRY ML11 TRANSFER COMMANDS

sHLX4

et Atk

L IR TR 1)

TIMES,»

.415 9
416 1

COMMAND
,+

4165

SP,s

¢12 SP

&cuscx

4169

- JURD18 =(SP)

#PHR1,=(SP)
- #ERD2,=(SP)
#SAY3,=(SP)
#%,=(5P)
[4

062706- 000012 . -

6291 046460
6292 046464
6293 046470
6294 046474
6295 046500
6296 046502

~-_'4113

£§PéRROUT

8g3939 000001

JSR
R1,$SAVES
#1,.RETRYING
MoV
Hov
30(SP) ,R1
CLR
" =(SP)
CKP
R1.M
8eQ 3s
INC
BIT
BEQ
33
KOV
30(sP) ,R2
(HP
.nuai
BNE
MoV
"RYRD16,=(SP)
ROV
KoV
.-#ERD2,=(SP)
KOV
- #SAYS,-;SP)

TOPS
PA:<

ikt

4173

3’
L4

" flERDIG.-(SP)

flHRDi? =(SP)

2 SP

30(59),n2

gg.#unxte

26(SP) ,~(SP)

. 26(SP) ,=(SP)

6(SP).=(SP)

SP,»

’

6244
6245 046224. 004167 137104
RETRY:
6246 046230 012767 000001
166102
6247 046236 016601 000030
6248 046242
6249 046244
6250 046250 001472
6251 046252 005216
6252 046254 032767 000001 133776
6253 046262 001465
62564 046264 016602 000030
6255 046270 85022; 045424
6256 046274
6257 046276 012746 007272
6258 046302 012746 007256
6259 046305 012746 007200
6260 046312 012746 007112
6261 046316 012746 000004
6262 046322 010600
6263 046324 104414
6264 046326 062706 000012
6265 046332 020227 046000
18:
6266 046336 001016
’
6267 046340 012746 007272
6268 046344 012746- 007714.6269 046350 012746 007200
6270 046354 012746 007112
6271 046360 012746 000004 ’
6272 046364 010600
..
’
6273 046366 104414
6274 046370
6275 046374 020227 045612 ;
6276 046400 001016
_
6277 046402 012746~ 007272
6278 046406 012746 007264
6279 046412 012746 = 007200
6280 046416 0127461 007112
- ..
6281 046422 012746* 000004 .
6282 046426 010600
L
6283 046430 104614 6284 046432 062706 000012
6285 046436 866682 000030
3s:
6286 046442
6287 046444 00054
N
820227 045424

27-Mar-1982 1 124 42
27-Har-1982 19:23:4

HL11 TRANSFER COMMANDS

wsey

624%

SEQ 0165

CORAAND,«
KOUNT

4188
4185

4188

LUN,®
URDCNT
,=
BUFFER, *

‘1A¥26(SP)f-(SP)

SECTOR,*

116SP

*,VALUE

MACRO M1113 29°HAR-82 13 &1 PAGE 15}

CIHLBBO PERFORMANCE EXERCISER

RETRY HL11 TRANSFER COMMANDS

MACRO M1113 29-MAR-82 13:41 PAGE K1
1563
JMLXG
-

6301 046506
6302 046512
6303 046514
6304 046520
6305 046524
6306 046530
6307 046534
6308 046540
6309 046544
6310 046550
6311 046554
6312 046560
6313 046564
6314 046566
6315 046572
6316 046576
6317 046600
6318 046604
6319 046610
6320 046614
6321 046620
6322 046624
6323 046630
6324 046634
6325 046640
6326 046644

R2., #CHECK
6S

6(SP) .=(SP)
6 (SP) .=(SP)
g( SP) . -(5P)

wrIfe
6(sP), (SP)

26(SP) ,-(SP)
26(SP) ,~(SP)
26(SP) ,~(SP)
#10000, (SP)
26(SP) ,~(SP)

PC,WRITE

36(SP), (SP)
34(SP) ,~(SP)
34(SP) ,~(SP)
34(SP) ,~(SP)

PC,READ
RO.R3

000016

78:

000001

]
~

[«

3
&

b
b md

LUN,
WRDCNT,
«
BUFFER,*
SECTOR,»

4193

LUN,
«
WRDCNT,
«
BUFFER,
«

1194

6$:

000026
000026
000026
010000
000026
17,574
000036
000034
000034
000034
176736

#16,5P
R3
o3

s LUN,»
; WRDINT,«

4200

SELTOR,«
WRDCONT
,»

4201

BUFFER,*
SECTOR,»
* VALUE

VALUE

4199
4208

4212

133356

4192
€197

BUFFER,
«

#1,(5P)
#1,ERROUT

8s
#URD19,-(SP)
#URD18,-(SP)
#SAY2,~(SP)

000003

#3,-(SP)
SP.RO
14

007066
000001

000001

4190

*,VALUE

000016
045612

000012

TOPS
PA:<

SECTOR,
«

177214

000001

27-Mar-1982 19:24 142
27-Mar-1982 19:23: 44

ML11 TRANSFER COMMANDS

26(SP) ,=(SP)

ParGhuur
g

6327 046650
6328 046654
6329 046656
6330 046662
6331 046664
6332 046666
6333 046672
6334 046674
6335 046702
6336 046704
6337 046710
6338 046714
6339 046720
6340 046724
6341 046726
6342 046730
6343 046734
6344 046740
6345 046742
6346 046744
6347 046750
6348 046752
6349 046754
6350 046756
6351 046760
6352 046762

046000

SEQ 0166

Ve e vy v,

CZMLBBO PERFORMANCE EXERCIS ER
RETRY ML11 TRANSFER COMMAND S

4215

SP,e

#CRLF, (SP)

#1,-(SP)
?P.RO

¢
SP,

8s:

KOUNT
, COUNT

KOUNT
KOUNT
,»
#,(SP)

TRANSFER COMMANDS

sMLXé

6390
6391
6396
6397

000001

TOPS
PA:<

108

007312
007272
007100
000003

000010
000001

27~Mar=19 82 1 :2§:42
27-Mar=-19 82 1 4 3:44

TRANSFER COMMANDS

118
#1, ERROUT

133262

#MRD20
= (SP)
,
MRD18,~(SP)
#SAY2,~(SP)
#3,-(SP)

4233

SP.RO

SP,«

#10,5p

*,COUNT

4238
4232
4247

*, TBOARD

4250
4251
4252

14
R1,RS

108:

#1,(SP)

11$

165276
165274
000020
170116
000030

BOARD ,R1
BANK ,R2

*, TBANK

20(SP) ,-(SP)

SECTOR,
«

PC,DECODE

30(sP)
RO

4253

165242

033714

R3,TRIES(RO)
R1,80ARD

165230
165226

165214

Y TR PN ¥

~
o
o

OWNON
=
- NONO

OCOO0O0O—O

2_333°

6357 046766
6358 046770
6359 046776
6360 047000
6361 047004
6362 047010
6363 047014
6364 047020
6365 047022
6366 047024
6367 047026
6368 047032
6369 047036
6370 047040
6371 047044
6372 047050
6373 047054
6374 047060
6375 047064
6376 047066
6377 047070
6378 047072
6379 047074
6380 047100
6381 047102
6382 047106
6383 047112
6384 047116
6385 047120
6386 04724
6387 047126
6388 047130 000207
6389

ML11

SEa 0167

R2 ,BANK

(SP)+
RETRYING

11$:
RTS

: Routine Size:

LA TE PR

RETRY ML11

MACRO M1113 29-MAR-82 13:41 PAGE %55

OO0

CZMLBBO PERFORMANCE EXERCISER

R3.RO
(SP)+

227 words
: Maximum stack depth per invocation:

14 words

COUNT
,+
TBOARD,»
TBANK
,»
VALUE,
*

4254
4255
4249
4258
4114
4113

CZMLBBO PERFORMANCE EXERCISER

RETRY ML1T

TRANSFER COMMANDS

6399 ;MLX4

228? :
6402 ;
6403 ;
6404 ;

MACRO M1113

29-MAR-82 13:41

" 13
PAGE 156
SEQ 0168

TO SET UP BUFFER POINTERS BEFORE A TRANSFER

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

Xsbttl 'TO SET UP BUFFER POINTERS BEFORE A TRANSFER®
routine SET_PTRS (WRDCNT) : novalue =
begin

gzgg :

4261
4262
4263
4264
4265

2529

ROUTINE:

6409 :

4268

PURPOSE:

22;3 :

25;?

22}2 :

25;%

ARGUMENT:

6415 :

4274

RESULTS:

22}; :

25;9

;

UNCHANGED.

6419

4278

NOTE:

6405 :
6406 :

6410 :

6616 ;

6420 :
6421 :

4269

4275

4279
4280

'++

SET_PTRS (WRDCNT)

TO MAKE SURE THAT THE BUFFER POINTERS ARE SUITABLY PLACED

BEFORE A_TRANSFER, SO THAT THEY WILL SUPPORT THE CHOSEN WORM

COUNT WITHIN THE BUFFER SPACE.

i--

WRDCNT = THE NUMBER OF WORDS IN A TRANSFER.
'WPTR® AND 'RPTR' ARE SET BACK TO THE START OF THE BUFFERS

ONLY IF THE WORD COUNT WON'T FIT.

OTHERWISE, THEY ARE LEFT

THE WRITE BUFFER IS LOCATED BEFORE THE READ BUFFER.

225% :

2535

if (.WPTR + .WRDCNT*2) geqa END_WBUFF then WPTR = WBUFF:

6424 *

4283

RPTR = .WPTR + (BUFSI2*2);

2258 :

4285

end;

6425 ;

4284

return;

6431
6435 047132
6436 047132

016600

000002

6438 047140
6439 0467144
6440 047150
6441 047152

066700
020027
103403
012767

163524
022670
012670

6443 047164

062700

010000

6437 047136 006300

6442 047160 016700

6444 047170

2222 047174
6447

010067

000207

TOPS-20 Bliss=16 V2(212)

PA:<NEALE>MLX4.BLI.S (34)

163504

163476

.SBYTL
SET.PTRS:
MOV

ASL

163510

1$:

ADD
cMP
BLO
MOV

MoV
ADD

MOV

RTS

SET.PTRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER
2(SP) RO

WPTR,RO
RO.#E
. WBUFF
ND
1$
MIBUFF ,WPTR

WPTR,RO

#10000,R0

: WRDCNT,*

4281

4283

4262

RO.RPTR

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

0 words

CZMLBBO PERFORMANCE EXERCISER = MACRO M1113

29-MAR-82 13:41

SET.PTRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER

6454 MLXG

gzgg H
6457 ;
6458 ;
6459 ;
6460 ;
6461 ;

6462 ;
6463 ;

6464
6465
6466
6467

;
;
:
;

4286
4287
4288
4289
4290

4293
4294
4295
4296

gz;g :

2%88

22;{ :

6482
6486 047176
6487 047176
6488 047202

6489 047206

6490 047210
6491 047214
6492 047216
6493 047220
6494 047222

6495 047224

2289 047230

6498

2282

27-Mar-1982 19:24:42

4301
4302
4303
4304
4305

4306

016600
166600
005200
020027
103003
000300
105000
000207
012700
000207

27-Mar-1982 19:23:44

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.5 (35)

ZXsbttl °CHOOSING A WORD COUNT®
routine GET_WRDCNT (SECTOR, LAST) =
begin

local

42N
4292

2%3;

6472 :
6473 :
6474 :
6475 ;
6476 ;

SEQ 0169

CHOOSING A WORD COUNT

gzgg :

N 13
PAGE 157

TEMP,
WRDCNT;

TEMP = _LAST = ,SECTOR + 1;

!NUMBER OF SECTORS LEFT TO TEST

; version czmlbb changed gtr to gtru
:; (BUFS12/256) gtru .TEMP

!LESS THAN A FULL BUFFER LEFT?

else

WRDCNT = . TEMP=%256

!YES =~ USE AS LARGE A COUNT AS FITS

WRDCNT = BUFSIZ;

INO

=~ USE THE ENTIRE BUFFER SIZE

return .WRDCNT;

end;

000002
000004

+SBTTL
GET.WRDCNT:
MOV
sus

INC

000010

004000

1$:

CMP
BHIS
SWAB
CLRB
RTS

MOV
RTS

: Routine Size:

GET.WRDCNT CHOOSING A WORD COUNT

2(SP) ,RO
4(SP) RO
RO
RO, #10
1$
RO
RO
PC
#4000,R0
PC
14 words

; Maximum stack depth per invocation:

0 words

: LAST,»
; SECTOR,»

4294

: TEMP,*

4299

4301

:
: *,WRDCNT
:

4299
4303
4287

‘

TNV

CIMLBBO PERFORMANCE EXERCISE
MACRO
1SE R
GET.WRDCNT CHOOSING A WORD COUNT
6507 .mLxs

2?83 .
6510 ;
6511 ;

6512 ;
6513 .
6514 ;

M1113

29-MAR-82 13:41

PAGE 158
SEQ 017y

COMMAND INTEGRITY ROUTINE
4307
4308

!sbtgl ‘COMMAND INTEGRITY ROUTINE®
routine INTEGRITY : novalue =

4309
4310
4311

begin

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

!* 1 «

START OF ROUTINE

gg}g :

2;}%

;

ROUTINE :

INTEGRITY

6517
6518 :

2%}9

!
!

PURPOSE:

gg;g ;

4314
4315

TO MAKE SURE THAT THE BASIC ML11 TRANSFER COMMANDS
WHICH WILL BE USED BY THE EXERCISER (WRITE,READ,

6521
6522
6523
6524
6525
6526
6527

4318
4319
4320
4321
4322
4323
4326
64325
4326
4327
4328
4329
4330
4331

!
!
'
'
!
'
!
!
!
'
!
!
!
!

TME (ODE FOR 'INTEGRITY' IN BRIEF:

;
;
;
:
;
;
;

6528 .
6529 ;
6530 .

6531 ;
6532 ;
6533 :
6534 ;
6535 ;
6536 :
6537 :
6538 ;
6539
6540 ;
6541 ;
6542 ;
6543 ;
65644 ;
6545 ;
6546 ;
6547 ;
6548 ;
6549 ;
6550 ;

6551 .

6552

;

6555
6556
6557
6558
6559
6560
6561

;
:
;

6553
.
6554 ;

;
;
;

4332
4333
433%

6335
4336

4337
4338
4339
4340
4361
4342
4343
4344
4345
4346
4347

'
1
'

!
!

!
'

!
!

!
'
'
|
!
!--

WRITE CHECK) WORK PROPERLY.

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING
INCR COMPLEMENT FLAG FROM 0 TO 1
: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP)
: GENERATE THE PATTERN
: INCR LOGICAL UNIT NUMBER FROM 0 TO LAST
: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
: : TESTLOOP:
: : : BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
: : : IF UNIT IS ACTIVE
: : : THEN
: : : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)

. :
. :
: :
:

:
:
:

: SECTOR = LOWEST
: GET WRDCNT
: WRITE

:
:

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: READ

: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: : : : WRITE CHECK
: : : : LOOK_FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: : : : END S (END OF TEST FOR AN ACTIVE UNIT)
: : : END & (END OF LOOP THAT COMPLETELY TESTS 1 UNIT)
: : END 3 (END OF LOGICAL UNIT SELECTION LOOP)
: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP)
RETURN
END 1 (END OF ROUTINE)

4348

label

4350
4351

tocal

4349

4352
4353
4354
4355
4356
4357
4358

LOOP;

VALUE,
WRDCNT,
OLDSEC,
OLDCHN,
SECTOR,
DBL_VALUE;

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (36)

CZMLBBO PERFORMANCE EXERCISER

GET.WRDCNT CHOOSING A WORD COUNT

6563 MLX4
6564 :
6565
6566
6567
6568
6369
6570
6571
6572
6573
6574
6575
6576
6577
6578
6579
6580
6581
6582
6583 ;
6584
6585
6586 .
6587
6588 ;
6589
6590
6591
6592
6593 .
6594
6595
[

’
.

.
.

MACRO M1 113

29-MAR-82 13:41

€ 14
PAGE 159

SEQ 017

27-Har-198$ 19:24:42

COMMAND INTEGRITY ROUTINE

27-Mar-1982

19:23:44

TOPS~20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S (36)

PRINTB (SAY2, WRD34, RTNO):
!*RUNNING COMMAND INTEGRITY ROUTINE'

.
.

incr COMP_FLAG from 0 to 1 do
bealn

GEN3 (.COMP_FLAG);

o
.

!# 2 «

START OF COMPLEMENT FLAG SELECTION LOOP

!« 3 «

START OF LOGICAL UNIT SELECTION LOOP

!* 4 =

START OF LOOP THAT COMPLETELY TESTS 1 UNIT

! 5 «

START OF TEST FOR AN ACTIVE UNIT

[
-

.
-

[

LOOP :

incr LUN from 0 to (.LSUNIT - 1) do
begin

begin

.
.

[

[4
-

”
-

”

é; DRIVE_STATUS [.LUN] eql ACTIVE
en

begin
LSLUN = .LUN;
SECTOR = LOWEST:

WRDCNT = GET_WRDCNT (.SECTOR, HIGHEST);
VALUE = write (.LUN, .WRDCNT, WBUFF, LOWEST):

SEE HOW SUCCESSFUL THE WRITE WAS:

selectone .VALUE of
set

!SEE_"SYSERR' FOR DEFINITION

!OF ERROR # CONTAINED IN 'VA_UE'

[

begin

i SA « RETRY ALLOVWED

[4
.

o
’

if RETRY (SIX, write,
thenb
)
egin

WHY

[

.LUN, .WRDCNT, WBUFF, LOWEST) neg 0
!THE RETRY FAILED =~ SYSTEM FATAL ERROR

_DROPT C.LUN] = CODE_4;

5335F((10~?861, 0); !sx3x INTEGRITY ROUTINE ERROR 01 t#es

rd
Ll

Leave LOOP; *

[
[

end;

'JUMP JUST BEYOND END OF BLOCK * 4 +

L4
-

[

end;

't S5A ¢

[
.

»
.

[4
-

NOWES
NN -

6610

EEEETNRN

.
-

[4
.

[
[4

el :

begin
1% 58 * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED
WHY_DROPT [. [.LUN] :
= CODE_S.
[4

ERRDF (2, MSG1, 0);

“texxe INTEGRITY ROUTINE ERROR 02 wene

end;

e 5B »

DODU (.LUN);
leave LOOP

'JUMP JUST BEYOND END OF BLOCK * & =

.
-

*
*
L4

€31 :

bsgin
ERRDF (3, MSG1, 0);

!« 5C «~ FATAL DRIVE ERROR =~ NO RETRY ALLOWED
'eans INTEGRITY ROUTINE ERROR 03 rewe

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
GET.WRDCNT CHOOSING A WORD COUNT

6619 mLx4

225? :

LN
66412
4413
4614
4415
4416
4617

6630 ;
6631 ;
6632 ;
6633 .
6634 :
6635 :
6636 ;
6637 ;

4619
4420
4621
4422
4423
4424
4425
4426

6638 :
6639 :

6640 ;
6641 ;
6642 ;
6643 ;
6644 ;
6645 :
6646 :
6647 ;

4427
4428

4429
4430
4431
4432
4433
4434
4435
4436

44637

6650 :

4439

6651 :

6652 ;
6653 :
6654 :
6655 :
6656 ;

Aadh
4 J

4418

6648 ;
6649 ;

c7-Mar-1982

tes;

6659 ;
6660 ;
6661 :
6662 :

4448
4449
4450
4451

6664 ;

4453

4452

6665 ;
6566 ;
6667 ;
6668 ;

4454
4455
4456
4457

6670 :
6671 ;
6672 ;
6673 ;

4459
4660
4461
4462

4458

19:24:42

27-Mar-1982 19:23:4¢

TOPS=-20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLT.S (36)

WHY DROPT [.LUNJ] = CODE_6.
000D (.LUN):
leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * 4 »
end;
v 5C »

VALUE = read (.LUN,

.WRDCNT, RBUFF, LOWEST):

e
!
SEE HOW SUCCESSFUL THE READ WAS:
lselectone .VALUE of
set

ISEE *SYSERR' FOR DEFINITION
'!OF ERROR # CONTAINED IN °'VALUE'

03 :

if (DBL_VALUE = DOUBLE_CHECK (WBUFF, RBUFF, .WRDCNT)) neq 0
then
°
egin
SAYWHO (.LUN):
PRINTB (SAY1, MSGS);
!'ECC LOGIC FAILED TO DETECT DATA ERROR®
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE):
1'GOOD DATA: XXXXXX AT LOCATION YVYYYY®
DBL_VALUE = .DBL_VALUE + BUFSIZ*2:

PRIRTB (FMT128, ..DBL VALUE, .DBL_VALUE);
!'8AD DATA:

PPPPPP AT LOCATION Q3Q00Q°

WHY DROPT C.LUN] = CODE_8;

4440

44641
4442
4443
4444
4445

2229

6669 ;

SEQ 01+

4438

gggg :

6663 :

D 14
PAGE 160

COMMAND INTEGRITY ROUTINE

6622 :
6623
6624 ;
6625 ;
6626 ;
6627 :
6628 :
6629

29-MAR-82 13:41

ERRDF (4, MSG1, 0);

DODU (.LUN);
Leave LOOP;
end;

begin

!a«%x INTEGRITY ROUTINE ERROR 04 tx#

'JUMP JUST BEYOND END OF BLOCK * & =

'« SD « RETRY ALLOWED

if RETRY (SIX, read, .LUN, .WRDCNT, RBUFF, LOWEST) neq 0
then
!THE RETRY FAILED =-- SYSTEM FATAL ERROR
begin
WHY _DROPT [.LUN] = CODE_é4;
ERRDF (S5, MSG1, 0); !'sx®x INTEGRITY ROUTINE ERROR 05 nnxx
DODU (.LUN);

leave LOOP;
end;
end;

1JUMP JUST BEYOND END OF BLOCK « & «
e 5D »

£l :
begin
!* SE » FATAL CONTROLLER ERROR -- NO RETRY ALLOWED
WHY _DROPT [.LUN] = CODE_S5;
ERRDF (6, MSG1, 0);
Yxeax INTEGRITY ROUTINE ERROR 06 wnwx

CZMLBBO PERFORMANCE EXERCISER
MACRD M1113
GET.WRDCNT CHOOSING A WORD COUNT

6675 MLX4
6676 :
6677
6678 :
6679 ;
6680
6681 :

6682 ;

6683
6684
6685
6686
6687
6688

;
;
:
;
;
;

6689 :
6690 ;
6691 ;
6692 :
6693 ;
6694
6695 ;
6696 :
6697 ;
6698 ;
6699 ;
6700 ;
6701 ;
6702 :
6703 ;
6704 .
6705 :

6706 :
6707 ;
6708 :

6709 ;

6710 ;
6711 ;

6712 ;
6713 ;

6714 :
6715 :
6716 :
6717 ;
6718 ;
6719 :
6720 :
6721 ;
6722 :
6723 .
67264 ;
6725 ;
6726 ;
6727 ;
6728 :
6729 ;

29-MAR-82 13:41

SEQ 0173

27-Mar-1982 19:24:42

COMMAND INTEGRITY ROUTINE

4463
4464
4465
4466
4467
4468
4469
4470
4471
4472
4473
4474
4475
4476
4477
2478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490

469
4492
4493

4494

4495
4496

4497
4498

4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
451N
4512
4513
4514

E 14

PAGE 161

27-Mar-1982 19:23:44

00DU (.LUN);

leave LOOP;

end;

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (36)

!JUMP JUST BEYOND END OF BLOCK * 4

!« 5E

31 :

begin
ERRDF (7, MSG1, 0);

!« SF = FATAL DRIVE ERROR -~ NO RETRY ALLOWED
{enex INTEGRITY ROUTINE ERROR 07 eeee
wHY_DROPT [.LUN] = CODE_6;

0020 (.LUN);

leave LOOP;
end;

1JUMP JUST BEYOND END OF BLOCK + 4 +
'n SF «

%5 2215 0

!« 5G ~ UNRECOVERABLE DATA ERROR

ERRDF (8, MSG2, 0):

!xxxx INTEGRITY ROUTINE ERROR 08 sw+s

WHY DROPT [.LUN] = CODE_7;

00DD (.LUN);

Leave LOOP;
end;

!JUMP JUST BEYOND END OF BLOCK * & *
I 5G »

begin

'* SH *» RECOVERABLE DATA ERROR

ISOLATE O);

it .ERROUT then PRINTB (FMT108,

.CHAN):

BIT @Q°

OLDSEC = .MLEL.
OLDCHN = .CHAN;

:’1“ RETRY (ONE, read, .LUN,
en

.WRDCNT, RBUFF, LOWEST) eql S

:z ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
en

begin
if .ERROUT then ERRHRD (9, MSG4, 0);

!sasx INTEGRITY ROUTINE ERROR 09 wwww
UP_HARD_COUNT (.LUN, .BOARD);

else

end

begin
it .ERROUT then ERRSOFT (10, MSG3, 0);

!eexx INTEGRITY ROUTINE ERROR 10 sxw
UPaSOFT_COUNT (.LUN, .BOARD);
en

CZMLBBG PERFORMANCE EXERCISER
MACRO MI113
GET.WRDCNT CHOOSING A WORD COUNT

[4
.

[

'l
-

’

4
.

CONOMAN
SN = O OO O

WAV

PAGE 162

Stw

27~Mar-198 2 19:24:4 2

COMMAND INTEGRITY ROUTINE
N PINIAINININIAIN)
b b bb

6731 SMLXS
6732 :
6733
6734
6;35
6736
6727 :
6738
6739 ;
67460
6741 ;
6742 ;
6743
6744 ;
6745
6746 ;
6747 ;
6748
6749 ;
6750
6751 ;
6752 ;
6753
6754
6755
6756 ;
6757
6758 ;
6759
6760

29-MAR-82 13:4.

27=-Mar-1 98 2 19:23:4 4

else

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.S (36)

begin
if .ERROUT then ERRSOFT (11, MSG3, 0);

UP_SOFT_COUNT (.LUN,

end;
tes;

end;

!esnx INTEGRITY ROUTINE ERROR 11 weee
.BOARD);

'n SH »

VALUE = CHECK (.LUN,

.WRDCNT, WBUFF, LOWEST);

SEE HOW SUCCESSFUL THE WRITE CHECK WAS:

-«

selectone .VALUE of

!SEE_"SYSERR' FOR DEFINITION
!OF ERROR # CONTAINED IN °‘VALUE®

set

[J
.

L4
[

begin

!* 5] « RETRY ALLOWED

6761 ;
6762
L4

[

if RETRY (SIX, CHECK, .LUN, .WRDCNT, WBUFF, LOWEST) ne
then
begin
WHY DROPT L[.LUN] = CODE_4.

ERRDF (12, MSG1, 0);

6763 ;
6764 ;
6765 ;

DODU (.LUN);
leave LOOP;
end;

!THE RETRY FAILED -- SYSTEM FA?AL ERRIR

[4
4

!eest INTEGRITY ROUTINE ERROR 12 swww

!JUMP JUST BEYOND END OF BLOCK * 4 «

[4
[

end;

'x 51

[4
[
[
L4

[4
[
.
.

3 :

begin
é. SJ * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE

ERRDF (13,

DODU (.LUN):
leave LOOR;
end;

MSG1, 0);

“Tasax INTEGRITY ROUTINE ERROR 13 wews
{JUMP JUST BEYOND END OF BLOCK = 4 =
' 54

[
[4

[
4
*
.

[4
[4

£33 :

begin
ERRDF (14, MSG1,

WwHY DROPT [.LUNS = toDE 6
poDD (.LUN);

leave LOOP;
end;

[

0);

1= 5K * FATAL DRIVE ERROR -- NO RETRY ALLOWED
i#asxx INTEGRITY ROUTINE ERROR 14 w2t

4l :

1JUMP JUST BEYOND END OF BLOCK * &

Iv 5K

LIMLBBO PERFORMANCE EXERCISER
MACRO M1113
GET.WRDCNT CHOOSING A WORD COUNT

6787 .mMLX4

g;gg :
6790 ;
6791 ;
6792 ;

6793 °
6794 ;

6795 ;
679 .
6797 ;
6798 :
6799 ;
6800 ;
6801 ;
6802 :
6803 .
6804 ;
6805 ;
6806 ;
6807 ;
6808 ;

6809

G 14

PAGE 163

SEG 0175

27-Mar-1982 19:24:42

COMMAND INTEGRITY ROUTINE
4567
4568
4569
4570
4571
4572
4573

27-Mar-1982 19:23:44

begin
ISOLATE (),
ERRDF (15, MSG2,

Leave LOOP;
end;
653 :
begin
ISOLATE O);

'
8IT QQ'
OLDSEC = .MLEL;
OLDCHN = .CHAN;

4586

then

4584
4585

6820 ;
6821 ;

4597
4598

!* 5L * UNRECOVERABLE DATA ERROR
0);

!«xxx INTEGRITY ROUTINE ERROR 15 wwwe
'JUMP JUST BEYOND END OF BLOCK * & +
i 5L«

! 5M « RECOVERABLE DATA ERROR

if .ERROUT then PRINTB (FMT108,

4582
4583

4587
4588
4589
4590
43N
4592
4593

TOPS=20 Bliss-16 v2(212)

PA:<NEALE>MLX4.BLI.S (36)

WHY_DROPT [.LUNJ = CopE_7;
DODD (.LUN);

4574
4575
4576
4577
4578
4579
4580
4581

6810 ;
6811 ;
6812 :
6813 ;
6814 ;
6815 ;
6816
6817 ;
6818 ;

6819 ;

29-MAR-82 13:41

.CHAN):

if RETRY (ONE, CHECK, .LUN, .WRDCNT, WBUFF, LOWEST) eql 5

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin
.
if .ERROUT then ERRHRD (16, MSG4, 0):

4594

!t INTEGRITY ROUTINE ERROR 16 stes

4595

UP_HARD_COUNT (.LUN, .BOARD);

4596

else

end

begin

%2 ;

4599

it .ERROUT then ERRSOFT (17, MSG3, 0);

6825 ;
6826 ;

4602
4603

!eaax INTEGRITY ROUTINE ERROR 17 twwx
UP_SOFT_COUNT (.LUN, .BOARD):

6822 :

6827 ;

6828 ;

6829 ;

6830 ;

6831 .

gg;

4604

end

6605

4606

else

4607

4608

begin

2%?3

if .ERROUT then ERRSOFT (18, MSG3, 0):

6834 .
6835 ;
6836 ;
6837 .
6838
6839 .
6840 ;
6841 ;

4611
46612
4613
4614
4615
461
461
4618

!xeax INTEGRITY ROUTINE ERROR 18 se2x
UP_SOFT_COUNT (.LUN, .BOARD):
end;
tes;

end;

in 5N«
!» 5§ «

END OF TEST OR AN ACTIVE DRIVE

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
GET.WRDCNT CHOOSING A WORD COUNT

6843 MLX4

6‘32? ’

6846 ;
6847 ;
2828 :

4619
4620
2255

ggg? :

22 2

6852

2327 .

4625

4626

6864 047236
6865 047242
6866 047246

6867 047252
6868 047256
6869 047262

004167

162706
0127646
012746

012746
012746
010600

104414
005001

6873 047272

004767

6874 047276

6875 047

6876 047306
6877 047312

6878 047314
6879 047316

6880 047320
6881 047322
6882 047326
6883 047330
6884 047332

6885 047336

010146

19:24:42

7-Mar-1982 19:23:44

end;
return;

end;

136076

172170

002110

006200
062700
010046
010446

034442

012746

000001

006200
006200

6889 047356

005300

062706

6890 047356
6891 047360
6892 047364

001117
010467
010400

689 047370
6895 047374
6896 047376
6897 047402

012702
060002
011266
016646

006300

SUB
MOV
MoV

007100
000003

000167
010400

042716

INTEGRITY:
JSR

000012
007574
007344

132510

005046
004767

6893 047366

57-Har—198

end;
end;

016766

005004

6886 047342
6887 047344

6888 047350

SEa 0174

TOPS~20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S (36)

! 4«
'« 3 «

END OF LOOP THAT COMPLETELY TESTS 1 UNIT
END OF LOGICAL UNIT SELECTION LOOP

!« 2 «

END OF COMPLEMENT FLAG SELECTION LOOP

!« 1 «

END OF ROUTINE

.SBTTL INTEGRITY COMMAND INTEGRITY ROUTINE

6870 047264
6871 047266

6872 047270

H 14
PAGE 164

COMMAND INTEGRITY ROUTINE

6858

6862 047232
6863 047232

29-MAR-82 13:41

177770

135006

MOV
MOV
MoV
1$:
000020

#SAY2,=(SP)
#3,-(5P)
SP.RO

TRAP
CLR

14
R1

JSR

PC.GEN3

MOV
MOV

CLR

28:

R1,$SAVES

#12,5p
MRTND = (SP)
#IRD3
, - (SP)
4

JNP
MOV
ASR
ASR

ASR
ADD
MOV
MOV

4308

4359

; SP.%
s COMP.FLAG

4362

LSUNIT,20(sP)

;

4366

388
R&,RO

: LUN,s

437

RO
#DRIVE.STATUS
RO
RO,=(SP)
Ré.~(SP)

; LUM,w

R1,=(SP)

RO
RO

8IC

#1797770, (SP)

CLR
JSR

-($P)
PC,BLSGT2

MOV

. COMP.FLAG,*

: LUN

4364

#,-(SP}

000010

ADD

#10,sp

132510

BNE
MOV
MoV

63
Ré,LSLUN
R&.RO

; LUN,w
: LUN,+

4374
4375

MOV
ADD
MoV
MOV

#LOW. SECT,R2
RO,R2
(R3),22(SP)
22(SP),~(SP)

; *,SECTOR
: SECTOR,*

4376

034460
000022
000022

DEC

ASL

MR RN NOPSINNRARENS
= NV~
O OO N~
OO OO

6912 047444
6913 047446
6914 047452
6915 047456
6916 047460
6917 0476462
6918 047466
6919 047470
6920 047474
6921 047500
6922 047502
6923 047504
6926 047512
6925 047514
6926 047516
6927 047520
6928 047522

2222228828222228°2

6911 047440

1
m

SEQ 0177

TOP. SECT(RO)

Pc.sgr.unocui
R3.~(SP)

012670

NWBUFF ,-(SP)

175766

PC.WRITE

6934 047544
6935 047546
6936 047550
6937 047552
6938 047554
6939 047556
6940 047560
6941 047562
6942 047566
6943 047570

RO.RS

000006
045424

6944 047572
6945 047574
6946 047576

6947 047600
6948 047606
6949 047610
6950 047612

6951 047616
6952 047620

6953 047622

=, WRDCNT

; WRDCNT,«

; *,VALUE

RS.#1
33
#6,-(SP)

; VALUE,*

4377

RG ,=(SP)

: LUN,*
; WRDCNT
,«

R3.-(5P)

MBUFF ,~(SP)

176530

PCRETRY

4383

4389

MRITE ,=(SP)

012670

(R2) ,~(SP)

#14,sp

000014

RO
[4 ]

034446

gg.UHY.DROPT(Rb)

1
MsSG?
0
R4 .RO

000002

000005

;

; LUN,»

(R2) ,-(SP)

000001

000004

TOPS
PA:<

,~(SP)

Ré . (SP)

6929 047524

6930 047526
6931 047530
6932 047534
6933 047536

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

COMMAND INTEGRITY ROUTINE

!
O~
~

6899
6900
6901
6902 047406
6903 047412
6904 047416
6905 047450
6906 047422
6907 047424
6908 0474
6909 047432
6910 047436

C 4 MLBBO PERFORMANCE EX ERL i
I N TEGRITY COMMAND | NTE GR] T

3s:
034446

000003

4%:

5%
R3 .42
43
#5,WHY .DROPT (R4)
55
2
MSG1
0
R4 ,RO
51
58
R3.43
78
55

2, x(LUN)

4392

; LUN,*

4394

* VALUE,*

4395
4383

: %, %x(LUN)

4402
4403

: LUN,
=

4404

; VALUE,«

4393

4405

4383

4410

5561
000006

034446

#6,WHY .DROPT (R4)
R4 ,RO

4411
4412

#12,sP
8s
R4, (SP)
R3,-(SP)

44613

000012

5%:

78:

4617

wviop

QA=

~~0Ww

CIMLBBO PERFORMANCE EXERCISER
MACRO M1113
INTEGRITY COMMAND INTEGRITY ROUTINE

6955

6958 047624

6960 047632

6961 047636
£67 047640
6965 047642

6964 067646
6965 047652

6966 047656
6967 047660

012746

022670

004767

175754

012746

012670

011246

010005
001072

012746
010346

004767
062706

6968 047664

010066

6970 047672

010446

6972 047700
6973 047704
6974 047710
6975 047714

012716
012746
012746
010600

011216
007072
2

6977 047720
6978 047726
6979 047730
6980 047734
6981 047740

016616
017646
012746
012746
010600

000040
000040
006710
000003

6983 047744
6984 047752
6985 047756
6986 067762

062766
016616
017646
012746

010000
000046
000046
006756

6969 062670
6971 047674

6976 067716

6982 047742

6987 047766
6988 047772

001477
004767

104414

012746
010600

6989 047774
6990 047776
6991 050006
6992 050006
6993 050010
6994 050012

104414
112764
104455
000004
011070
000000

6996 050016

104451

6995 050014

6997 050020
6998 0500246
6999 050026
7000 050032
7001 050034
7002 050040
7003 050044
7004 050046
7005 050050
7009 050056
7007 050056
7008 050062
7009 050066

165624

004767
062706
005700

000001
000006
045612
022670
176142
000014

Pc.agno

ARBUF
-~ (SP)
F
R3.-(SP)

: WRDCNT,*

MOV

RO 32(SP)

; *,DBL.VALUE

MOV

Ré,~(SP)

: LUN,*

4431

MOV
MOV
MOV
MOV

#M3GS, (SP)
#SAY1.-(SP)
#2,~(SP)
SP.RO

4432

MOV
MOV
MoV
MOV
MOV

40(SP) , (SP)
340(SPS ,-(SP)
#FMTI2A - (SP)
#3,~(SP}
SP,RO

ADD
MoV
MOV
MoV

#10000,46(SP)
46(SP) ; (SP)
346(SPJ,~(SP)
FMT128 ~(SP)

MIBUFF ,-(SP)

JSR
ADD

PC.DOU.BLE
CHECK
#6.SP

MOV
MOV

TRAP
MOVB
TRAP
WORD
.WORD
JWORD

10§

PC.SAYWHO

#3,-(SPS
SP.RO

14
#10,WHY.DROPT(R4)
5§
&
MSG1
0

4423

4428

: SP,«

: DBL.VALUE,*
: DBL.VALUE
*

4434

: SP,»

: *,DBL.VALUE
: DBL.VALUE,*
: DBL.VALUE.*

4436
4437

: SP,#
: *,*(LUN)
:

4439
4440

MOV

Ré,RO

: LUN,*

4441

ADD
BR
cnp

262,5P
168
RS, 1
12§
26,~(SP)
#REA
- (SP)
D
R¢,-(SP)
R3.-(SP)
ARBUF
.- (SP)
F
(R2) ,-(SP)

4442

: VALUE,*

4423

4448

TRAP

8s:
98:

(R2) ,~(SP)

MOV

TRAP

034446

TOPS

PA: <

; *,VALUE
:

TRAP

000046

7-Rar-182 19:23:44

RO.R
93

JSR

000003

000042

JSR

BEQ

010400

062706
000510
020527
001933
015 %6
012746
010446
ow;l.o
012746
011246

#RBUFF ,~(SP)

MOV
MoV

000032

000010

MOV

MOV
BNE

176446
000006

7-Mar-1982 19:24:42

COMMAND INTEGRITY ROUTINE
Moy

022670

J 14

PAGE 166

SEQ 0178

SMLX4&

gggg
6959 047630

29-MAR-82 13:41

BNE
MOV
MOV
MOV
MOV
MOV
MOV
JSR
ADD
ST

PC RETRY
».sp
RO

: LUN,
v
* WRDCNT,

108:

034446

118:

29-MAR-82 13:41

K 14
PAGE 167

SEQ 0179

7=Mar-1982 19:2
:24:42
7=Rar-1982 19:2 3:44

COMMAND INTEGRITY ROUTINE

TOPS
PA:<

118

248

gg.HHY.DROPT(Ré)

s *,*(LUN)

4451
4452

MSG1

000002

000005

128:

034446

000003

R4 RO
31
158
RS 42

: LUN,»

4453

> VALUE,*

4454
4423

#5,WHY .DROPT (R4)

; #,2(LUN)

4461
4462

: LUN,»

4463

: VALUE,*

4464
4423

13§

138:

4469

000006

034446

000004

148:

167112

#6,WHY .DROPT(R4)
R4 .RO
51
158
RS, 44

17$

s *,«(LUN)

s LUN,»

4470
44n

% VALUE,*

4423

Pg.ISOLATE

10
8562

000007

034446

000020
001146
000005
167046

000001

164110

&7 ,WHY .DROP
(R4)
T
R4 ,RO

131766

: *,*(LUN)
; LUN,»

p;o.SP

378
RS, A4S

248

PC,ISOLATE
#1ERROUT

18§

aML.REG+42,R0
RO
RO
RO
RO

4472

4477
4478

QOWwnss

000520
000004

e
mal o

OO
O

38U AIVRIRLSRBYS VINNSNON
=82
O NN NN - 8 SSHNA2HHSSIBE N5

7064 050304
7065 050306

7053 050240

7054 050242
7055 050246
7056 050252
7057 050256
7058 050260
7059 050264
7060 050272

83SSR8R32282
RN&

7049 050224
7050 050226
7051 050230
7052 050236

perd

7041 050200
7042 050202
7043 050204
7044 050206
7045 050212
7046 050214
7047 050220
7048 050222

7035 050160

=
O I

RSSS=8R =8 22 2832888328232188
=SReoR2R28283788

-0

7036 050162
7037 050164
7038 050166
7039 050170
7040 050172

7031 050146
7032 050150
7033 050152
7034 050154

O O

b
b
b
b
b amd

7025 0501

CRNOR FOE ROND

93%88

WA WMAAVHAWVIWAL

QO0O00O

&
»

N N N

sMLXG
QOOO00O 00000

7011
701

NV Y~y

(ZMLBBO PERFORMANCE EX ER CISER
MACRO M1113
INTEGRITY COMMAND INTE GR 1Ty ROUTINE

J385S333333s
WA =O Vo~

4479
4480
4481

; VALUE,*

4423

4486
4488

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
INTEGRITY COMMAND INTEGRITY ROUTINE

7067
;&g
7070 050310
7071 050312
7072 050314

7073 050320

7074 050322
7075 050326
7076 050332

7077 050334

7078 050336
7079 050342
7080 050350
7081 050354
7082 050356
7083 050360

7084 050362
7085 050364
7086 050366

7087 050370
7088 050374
7089 050400
7090 050404
7091 050410

006200
006200
040700

010046

012746
012746
010600

104414

062706
017766
017700
006200
006200
006200

006200
006200
006200

042700
010066

000006
164044

164034

7097 050432

020027

000005

027766
001034
016646

163746

7098 050436

7099 050440
7100 050446
7101 050450

7102 050454
7103 050460
7104 050462
7105 050464
7106 050466
7107 050470

7108
7109
7110
7111
7112

050472
050474
050500
050502
050506

7113 050512
7114 050514
7115 050516
7116 050520
7117 050522
7118 050526
7119 050526
7120 050532

7121 050536

062706

001051

017700
006200
006200
006200
006200
006200

006200
042700
020026
001016
032767

001404
104456
000011
011202
000000
010446
016746
004767

000426

000036

188:

175576

000014

000036

131546

198:

R3.-(SP)
ARBUFF ,~(SP)

BEQ
TRAP
WORD
.WORD
-WORD
MOV
MOV
JSR

B8R

; *,0LDSEC
:

4491
4492

;

*,0LDCHN

4494

; LUN,*
* WRDCNT,«

(R2) ,-(SP)
PC .RETRY

218

ASR
BIC
CMP
BNE
BIT

177700

#177700,R0
RO.34 (SP)
#.~( P)
#READ,~(SP)
Ré,=(SP)

BNE

MoV
ASR
ASR
ASR
ASR
ASR

: SP,e

RO
RO
RO

#14,5P

CMP
BNE
MOV

163730

ADD

CMP

000034

163610
166664

#6,SP
ML REG+44,36(SP)
@ML .REG+42.R0
RO
RO
RO

MOV
MoV
MOV
MOV
MOV
MOV
JSR

022670

000001

ADD
MOV
v
ASR
ASR
ASR

MOV

000001
045612

RO,~(SP§

#FMTI08,~(SP)
#2,-(SP§
SP.RO

ASR
ASR
ASR
BIC

TOPS
PA:<

RO
RO
#177700,RO

MoV
MOV
MOV

TRAP

177700
000034

7096 050420
7095 050422

7096 050426

MOV

006640
000002

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

COMMAND INTEGRITY ROUTINE
ASR
ASR
BIC

177700

L 16

PAGE 168

SEQ 0180

JMLX4
H

012746
012746
010446
010346
012746
011246
004767

7092 050412
7093 050414

29-MAR-82 13:41

RO, 45

aML.REG+44,36(SP)
208
34(SP) ,~(SP)

: OLDCHN,

RO
#177700,R0
RO, (SP)+
20§
#1,ERROUT

;

4501

; LUN,*

4504

4497

aML.REG+42,R0
RO
RO
RO
RO
RO

19§
56
11
M5G4
0
R4 ,=(SP)
BOARD
- (SP)
,
PC,UP_HARD
. COUNT

23§

;

*,0LDSEC

4497

131512

20$:

104457

000012

7133 050562
7134 050570
7135 050572
7136 050574
7137 050576
7138 050600
7139 050602
7140 050604
7141 050610
7142 050614
7143 050616

000001

131470

218:

228%:

163532
167270

7144 050620
7145 050622
7146 050626
7147 050630
7148 050634
7149 050636
7150 050642
7151 050644
7152 050650
7153 050654
7154 050656
7155 050660
7156 050664
7157 050666

7158 050672
7159 050676
7160 050700
7161 050702
7162 050710
7163 050712
7164 050714
7165 050716
7166 050720
7167 050722
7168 050724
7169 050726
7170 050732
7171 050734
7172 050742
7173 050744
7174 050746
7175 050750
7176 050752
7177 050754

000001

23%:
248:

27-Mar-1982
1 9:24:42
27-Mar-1982
1 9:23:44

COMMAND INTEGRITY ROUTINE
#1_ERROUT

4509

228

57
12
MSG3
0
228

#1,ERROUT

22%

57
13
MSG3
0
R4 ,=(SP)

B0ARD,~(SP)

; LUN,*

(SP)+,(SP)+
R&, (SP)

R3,=-(SP)

#WBUFF ,~(SP)

175144

PC, CHECK

; LUN,*
; WRDCNT,

; *,VALUE

; VALUE,»

000006

4533
4539

046000

012670

MBUFF ,~(SP)

175332
000014

PC Rsrnv

; LUN
=
; WRDCNT,»

(R2) ,~(SP)

ni.
283

034446

gg,uuv.oaopr(n4>

; *,%x(LUN)

4542
4543

14
M5G1

R4 RO

000002

258%:
034446

51
28s
RS A2

: LUN,»

4544

: VALUE,«

4533

gg.uuv.onopr<n4>

; *,*(LUN)

4352
4553

; LUN,*

4554

268

15
MSG1

104451

«435
4527

(R2) ,=(SP)

000001

000005

521

PC,UP.SOFT.COUNT

012670

000004

TOPS
PA:<

032767
001415

SEa 0181

-t

sMLX4

L)
PAGE 169

cony

7123
7124
7195
7126 050540
7127 050546
7128 050550
7129 030552
7130 050554
7131 050556
7132 050560

29-MAR-82 13:41

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
INTEGRITY COMMAND INTEGRITY ROUTINE

R4 ,RO
51

4545

7179

7184 050765

7185 050766
7186 050770
7187 050772
7188 050774
7189 050776

7190 051004

7191 051006

7192 051010

;

000433
020527

001012

104455
000016
011070
000000
112764

010400

000006

020527
001014
004767

7197 051026
7198 051030
7199 051032
7200 051034
7201 051042
7202 051044
7203 051046
7204 051050

000017
011120
000000
112764
010400
104451
000562
020527

104455

000004

000007

7209 051072

017700

163312

7211 051100
7212 051102
7213 051104
7214 051106
7215 051110
7216 051112
7217 051116
7218 051120
7219 051124
7220 051130
7221 051132
7222 051134

006200
006200
006200
200
006200
042700
010046
012746
012746
010600
104414
oeg7oe

7223 051140
7224 051146

7225 051152
7226 05115¢
7227 051156
7228 051160
7229 051162
7230 051164
7231 051163
7232 051172
7233 051176

006200

017766
017700

006200
006200
006200
006200
006200
006200
0462700
010066
012746

278:

034446

288:
298:

131170

163236

177700
000042
000001

000044

308:

55
16
MSG1
0
#6,WHY.DROPT
(R4)

17
MSG2
0
#7.WHY.DROPT{(R4)
R&.RO
51
36
RS, #5

ASR
ASR
ASR
ASR
ASR
8IC
MOV
MOV
MOV
MOV
TRAP
ADD

MOV
MoV

ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV
MOV

4561
4562

: VALUE,w

4563
4533

4568
4569

36§
PC.ISOLATE
#1,ERROUT

4555
4533

*, % (LUN)

28$

TOPS
PA:<

4560

R4 .RO

WORD
.WORD
JWORD
MOVB
MOV
TRAP
B8R
(WP

BNE
JSR
BIT
BEQ

VALUE,
*

27§

RS, #4
208
PC,ISOLATE

ASR

006640
000002

20s
RS 43

CMP
BNE
JSR

MOV

177700

000006
163246

B8R

TRAP

000005

166250
000001

7210 051076

BNE

MOV

166306

001157
004767
032767

001423

BR
WP

TRAP
WORD
.WORD
WORD
MOVB

034446

27-Mar~-198
27-Mar-198

COMMAND INTEGRITY ROUTINE

TRAP

7205 051054
7206 051056
7207 051062

7208 051070

268:

104451

000416

7193 051012
7194 051016
7195 051020

7196 051024

000003

N_14
PAGE 170

SEQ 0182

sMLX4

;;g?

7182 050756
7183 050760

29-MAR-82 13:41

s *,«(LUN)

VALUE,*

4570
457

4572
4533
4577

4579

30§

aML.REG+42,R0

RO
RO
RO
RO
RO
#177700,R0
RO,=(SP}
#FAT108,-(SP)
#2.-(SP}
SP.RO
1
#6,SP

ML .REG
,44
+44
(SP)
ML .REG+42.R0

s *,0LDSEC

RO
RO
RO
RO
RO
RO
#177700,R0

RO.42(SP)
#1.-(SP)

LR X

CZMLBBC PERFORMANCE EXERCISER
MACRO M1113
INTEGRITY COMMAND INTEGRITY ROUTINE

*,0LDCHN

4582
4583

4585

+(M.BBO PERFORMANCE

INTEGRITY COMMAND

OTM~

PNININONININ U

JRINRER
MJ\J\& Vo
HLrO0NNNOON

7235
7236
7237
7238 0 51
7239 0 51
7240 0 51
7241 0 51
7262 0 5
7243 051
7244 05
7245 051
7246 051
7247 0 Si
7248 0 51
7249 0 51
7250 0 31
7251 051256
7252 051260
7253 051262
7254 051264

7255 051266
7256 051270

7257 051272
7258 051276

INT

St R
MACRC M1113
Y ROUT INE

sMLXG
046000

27-Mar-1982
1 9:24: 2
27-Mar-1982
1 9:23:4

COMMAND INTEGRITY ROUTINE

R3,=(sr)

MBUFF ,=(SP)

TOPS.
PA:<

N LUN.'
: WRDCNT
,

(R2) ,-(SP)

PC RETRY

#1é,sp
RO, #5
33§

000044

ML .REG*44,
44 (SP)

32¢

000042
163132

42(SP) ,R0
gflL.REG*LZ.RZ

~,0LDSEC

4588

: OLDCHN,«

177700

130750

163012
166066

4592

318:

R&,=(SP)
B0ARD ,-(SP)
01§ERROUT

7270 051336

000001

130714

328:

000001

130672

33s:

360

SE@ 0183

#CHECK ,~(SP)

175000
000014
000005

000001

7271 051344
7272 051346
7273 051350
7274 051352
7275 051354
7276 051356

B_io
PAGE 171

R&,=(SP)

012670

163150

29-MAR-82 13:41

162734

Ré,=(S5P)
B80ARD ,~(SP)

000026

PC,UP.SOFT.COUNT
(SP)+.(SP)+
02 .SP

000020

R4,20(SP)

166472

Ré

; LUN,»

4595

MACRO M1113
INTEGRITY COMMAND INTEGRITY ROUTINE
729N

29-MAR-82 13:41

SEQ 0184

O‘NO‘*O& SO0

SRR
R S

sMLXé
002002

175656

39s:

000001

000207

175616
000022

40$:

€15

PAGE 172

27-Mar-198 21 :24:42
27-Mar~198 21 :23:44
00

CZMLBBO PERFORMANCE EXERCISER

COMMAND INTEGRITY ROUTINE

BGE
JMP
ST
INC
CMP

867
JMP

ADD
RTS

TOPS
PA:<

398
23

(sP)+

* COMP.FLAG

: COMP.FLAG,*

408

1$
#22.,5P

4308

; Routine Size:
587 words
s Maximum stack depth per invocation:

4363
4362

33 words

[ CZMLBBO PERFORMANCE EXER Cl SER

MACRO M1113
INTEGRITY COMMAND INTE GR 1TY ROUTINE

0_15

PAGE 173

DEFINITION OF OPTION 1

SEQ 0185

27-Mar=-1982 19:24:4b4

27-Mar-1982 19:23:4 4

T0PS-20 Bliss=16 v2(21

PA:<NEALE>MLX4.BLI.S (

Isbttl °*DEFINITION OF OPTION 1°
routine OPT1

: novalue =

A PO,

begin

R Al

7313 MLX4
7314 ;
7315
7316
7317

29-MAR-82 13:41

' 1 «

START OF ROUTINE

ROUTINE :

OPT1

PURPOSE :

TO CHECK ADDRESSES USING DATA = SECTOR NUMBER.

;geN§ES¥EDARE 4K WORDS IN LENGTH, AND ALL SECTORS

THE CODE FOR °'OPT1' IN BRIEF:

BEGIN 1

(START OF ROUTINE)

SAY RQUTINE IS RUNNING
INCR COMPLEMENT FLAG FROM 0 TO 1
: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP)
¢ INCR LOGICAL UNIT FROM 0 TO LAST
s e ?Eg%fiogP(START OF LOGICAL UNIT SELECTION LOOP)
t

: BEGIN &

(START OF LOOP THAT COMPLETELY TESTS ONE UNIT)

%;EgNIT IS ACTIVE

: 1 : : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
¢ ¢ ¢ INITIALIZE WRITE AND READ BUFFER POINTERS
s : : : SECTOR = LOWEST
¢ 2 ¢ ¢ WHILE SECTOR LEQ HIGHEST DO
$::: : BEGIN 6 (START OF SECTOR SELECTION LOOP)
s
2 & : GET_WRDCNT

t:
¢ 22
: 22
$ 2t

: GENERATE THE PATTERN

SS}TgP BUFFER POINTERS BEFORE

s :
¢t
: 2
:

TRANSFER

LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
CHOOSE WHETHER TO WRITE CHECK OR READ
DO THE WRITE CHECK OR READ
LOOK FOR ERRORS (IF DROP UNIT,
LEAVE TESTLOOP)

::: : : CHANGE BUFFER POINTERS AFTER TRANSFER

:
t

:
$

2
s

¢
:

: :
::

:
:

UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFE
R
END 6 (END OF SECTOR SELECTION LOOP)

2 : END 5 (END OF TEST FOR AN ACTIVE UNIT)
: END & (END OF TESTLOOP)

: END 3 (END OF LOGICAL UNIT SELECTION LOOP)

éE;figNz (END OF COMPLEMENT FLAG SELECTION LOOP)

END 1 (END OF ROUTINE)

Label
LOOP;
local

VALUE,

CZMLBBO PERFORMANCE EXER(
XERC1 ef
MACRO M1113
INTEGRITY COMMAND INTEGRI
ITY T ROUTINE

7369 .anl.

;g;(‘)
7372 :
7373 :

7374 ;
7375 ;
7376 :
7377 ;
7378 :
7379 ;
7380 ;
7381 ;
7382 :
7383 ;

4679
4680

4683
4684
4685
4686
4687
4688
4689
4690

7386 ;
7387 ;
7388 ;

4693
4694
4695

?%33 :

2239

7391
7392
7393
7394
7395

4698
4699

;28% ;

76409 ;
76410 ;

71
71

INININ)
ced cd and cod cnd b =

;
:
;
;
:
;
7404 ;
7405 ;
76406 ;

4703
4704
4705
4706
4707
4708
4709
4710

N~ O D00 NN ESANN) -

;
;

4700
4701
4702

EaT TV ¥ F ¥ ¥ ¥ ¥ ¥ ¥
~ NNNNNNNY
NN

7396
7397
7398
7399
7400
7401
7402
7403

SEQ 018¢

27-Mar-1982 19:24:42
27-%ar-1982 19:23:44

4723
4724

4726

T10PS=-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (37)

WRDCNT,
COMMAND
,
PTR,
OLDSEC,
OLDCHN,
SECTOR,
DBL_VALUE;

4681
4682

223}

;
;
;

E_15
PAGE 174

DEFINITION OF OPTION 1

%g’; :

;
:

29-MAR-82 13:41

PRINTB (SAYZ2, HRD34 RTIN1);
! 'RUNNING OPT1’
incr COMP_FLAG from 0 to 1 do

LOOP :

begin

!* 2 »

START OF COMPLEMENT FLAG SELECTION LOOP

incr LUN from 0 to (.LSUNIT - 1) do
begin

!« 3 «

START OF LOGICAL UNIT SELECTION LOOP

!* 4 «

START OF THE LOOP THAT COMPLETELY TESTS ONE UNIT

!= 5 «»

START OF TEST FOR AN ACTIVE UNIT

begin
if .DRIVE_STATUS [.LUN] eql ACTIVE
then
begin
LSLUN
= _LUN;
WPTR = WBUFF:

RPTR = RBUFF:
SECTOR = LOWEST;
ulnle .SECTOR lequ HIGHEST do
’q‘
= 6 * START OF SECTOR SELECTION LOOP
GEN1 sscroa. .COMP_FLAG);
WRDCNT
= GET H!DCNT T.SECTOR, HIGHEST);
SET PTRS (.WRDCNT)
VALOE
= write (. LUN. .WRDCNT, .WPTR, .SECTOR);

SEE HOW SUCCESSFUL THE WRITE WAS:

selectone .VALUE of
set

‘SEE 'SYSERR' FOR DEFINITION

!OF ERROR # CCNTAINED IN ‘VALUE'

1] :

begin

‘v 6A « RETRY ALLOWED

if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) nea 0
hen
TTHE RETRY FAILED -- SYSTEM FATAL ERROR

4727

ufiDROPT [. wNJ CODE_4;
ERRBF (101

, 0);

4729
4730

Leave LOOP;
end;

!JUMP JUST BEYOND END OF BLOCK ¢ 4 ¢

4728

DODU .
( umS

~lxasx OPTION 1 ERROR 01 sees

CZMLBBO_ PERFORMANCE EXERC]SE
MACRO M1113
1 N3 R
INTEGRITY COMMAND INTEGRITY
ITY T ROUTINE

7625 ;mLX4

;2%9 :
74628
7429
76430
7431

;
.
;
:

7632 ;

4731
(732
4733
4734

7456 ;
7457 :
7458 ;
7459 .
7460 ;
7461 ;
7462 :
7463
7464 ;
7465 ;
7666 ;

4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769

7468 ;
7469 ;
7470 ;
767 ;
472 ;
7473 ;
7474 ;
7475 :
7476 ;
747¢ ;
7478 :
7479 ;

F_1
175

StQ 0187
27~-Mar-1982 19:24:42

4758

4770

4771
4772
4773
4774
4775
4776
4777
4778
4779
4780
4781
4782

27-Mar-1982 19:23:44

end;

4735

4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
{749
4750
4751
4752
4753
4754
4755
4756
4757

7467 :

DEFINITION OF OPTION 1

7433 ;
7634 ;
7435
7636 ;
7437 ;
7638 ;
7439 ;
76440 ;
7447 ;
7442 :
7643 ;
76444 :
7445 :
7446 ;
7447 ;
7448 :
76449 ;
7450 ;
7451 :
7452 :
7453 ;
7454 ;

7455 ;

29-MAR-82 13:41

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (37)

v 6A =

21 :
begin
! 68 + FATAL CONTROLLER ERROR == NO RETRY ALLOWED
WHY _DROPT [.LUN] = CODE_S;
ERRDF (102, MSG1, 0);
'xxxa OPTION 1 ERROR (02 twre
DODU (.LUNJ;
Leave LOOP;
1JUMP JUST BEYOND END OF BLOCK * &4 *
end;
v 68 *
33 :
|
begm
! 6C » FATAL DRIVE ERROR -~ NO RETRY ALLOWED
ERRDF (103, mMSG1, 0);
Yaxax DPTION 1 ERROR (3 wxesx
wHY DROPT [.LUN] = CODE_6;
00D0 (.LUN);
leave LOOP;
1JUMP JUST BEYOND END OF BLOCK * 4 *
end;
'n 6C »
tes;
COMMAND = CHOOSE ():

if .COMMAND eql read
then
begin
PTR = .RPTR:
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR);
end
else
begin
PTR = .WPTR:
VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR):
end;

s
!
SEE HOW SUCCESSFUL THE OPERATION WAS:
fe
selectone .VALUE of

set

!SEE "SYSERR' FOR DEFINITION

19F ERROR # CONTAINED IN °‘VALUE®

ol :
.
if .COMMAND eql read
then
begin

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0
then
begin
SAYWHO (.LUN);
PRINTB (SAY1, MSG5):
!*ECC LOGIC FAILED TO DETECT DATA ERROR®

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
INTEGRITY COMMAND INTEGRITY
ROUTINE

7481

;MLX4

;23

;

7484 ;
7485 ;
7686 :

7487 :
7488 :

7489 :
7490 :
7491
7692 ;
7493 ;
749% :
7495 :
7496 :

7497 :

7498 :
76499 5

7500 :
7501 :

7502
7503
7504
7505
7506

:
:
;
:
:

7507 :
7508 :

4788
4789
4790
4791
4792
4793
4794
4795

4796
4797
4798

4799
4800

4801
4802
4803
4804
4805

4806
4807

4811

4809
4810

4812
4813
4814

7516 ;
7517
7518 ;
7519 :
7520 :
7521 -

4815
4816
4817
4818
4819
4820

7524
7525
7526
7527

:
:
:

4823
4824
4825
4826

{

z,ggg :

27-Mar-1982 19:24:42

27-Mar-1982 19:23.44

4821
4822

2%55

WHY_DROPT [. LUNJ CODE_8;
ERRDF (104, MSG1, 0):
Ivexa OPTION 1 ERROR 04 see
DODU (.LUNS;
Leave LOOP; 'JUMP JUST BEYONL END OF BLOCK * 4 =
end;

end;

L1l

begin

!s 6D * RETRY ALLOWED

if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) neaRO
then
'THE RETRY FAILED <-"SYSTEM FATAL ERR
begin
WHY DROPT [.LUN]
= CODE_4;
ERRDF (105, 'MSG1, 0);
~!ansx OPTION 1 ERROR 05 swaw
DODU (.LUNJ;
Leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * 4 #

end;

tx 6D

£2l :

!# 6 = FATAL CONTROLLER ERROR -- NO RETRY ALLOWED

'DROPT L. LUNJ cooe 5:
enamr (106
,0);
DODU (¢.LUN5

Leave LOOP;
end;

1aaxx OPTION 1 ERROR 06 ttwe

'JUMP JUST BEYOND END OF BLOCK * &
ix GF #

£33 :
be in
!« 6F * FATAL DRIVE ERROR -- NO RETRY ALLOWED
DROPT [. Lu~J CODE_6;

ennnr €107
pODU .
( wnS
leave LOOP;
end:

81n

, 0);

!* 66 * UNRECOVERABLE DATA ERROR

smor noa MsG2, 0);
WHY DROPT t LUN] "= CODE_7;
pODD (.LUN):

7534 ;

4833

end;

leave LOOP:"

texas OPTION | ERROR 07 tnes

1JUMP JUST BEYOND END OF BLOCK * & +
'n 6F »

4829
4830
4831

4832

,:<NEALESMLXG4.BLI.S (37)

PRIRTB (rnnza, ~.DBL_VALUE, .DBL VALUE);
BAD DATA:
PPPPPP AT LOCATION 00Q0QQ*

7530 :
753; °
7532 :

7533 :

~PS-20 Bliss=~16 v2(212)

PRINTB (FMT12A, ..DBL _VALUE, .DBL_VALUE):
1'GOOD DATA: XXXXXX AT LOCATION YYYYYY®
DBL _VALUE = .DBL_VALUE ¢ BUFSIZ*2;

4786
4787

7512 :

7522 :
7523 :

SEQ 0188

4783
4784
4785

4808

7513 5
7514 :
7515 ;

615

PAGE 176

DEFINITION OF OPTION 1

7509

7510 ;
7517

29-MAR-82 13:41

!exee OPTION 1 ERROR 08 *wes

'JUMP JUST BEYOND END OF BLOCK + 4 =

‘v 66

CZMLBEBO PERFORMANCE EXERCIS ER
MACRO M1113
INTEGRITY COMMAND INTEGRITY ROUTINE

7537 .MLX4

;ggg .
7540 ;
7541 ;

7542
7543
7544
7545
7546

:
;
;
;
:

7547 ;
7548 ;

H_15
PAGE 177

29-MAR-82 13:41

SEQ 0189

27-Mar-1982 19:24:42

DEFINITION OF OPTION 1
4835
4836

51 :
|
begin

4837
4838
4839
4840
4841

;
;
;
.
;
;
:
:

4845
4846
4847
4848
4849
4850
4851
232%

if RETRY (ONE,
then

7559 ;
7560 ;
7561 ;
7362 ;
7563 ;
;ggg K

4854
4855
4856
4857
4858
2%28

7566 ;
7567 ;
7568 ;
7569 :
7570 ;
7571 ;
;?;% :

4861
4862
4863
4864
4865
4866
232;

7574
7575
7576
7577
7578
7579
7580
7581

4869
4870
4871
4872
4873
4874
4875
4876

:
:
:
:
:
;
;
:

;gg% :

7584 ;
7585
7586 ;
7587 ;
7588 ;
7589 :
7590 .
7591 ;

4844

.COMMAND,

.LUN,

.WRDCNT,

.PTR,

.SECTOR) egl S

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin
if .ERROUT then ERRHRD (109, MSG4, 1)K

else

UP_HARD_COUNT (.LUN,
end

Ixxex OPTION 1 ERROR 09 wnenr

.BOARD):;

begin
.
if .ERROUT then ERRSOFT (110, MSG3, 0):;

faexs OPTION 1 ERROR 10 teee

UP_SOFT_COUNT (.LUN, .BOARD);
end

else

begin
if .ERROUT then ERRSOFT (111, MSG3, 0);

UP_SCFT_COUNT (.LUN,
end;
tes;

end;

end;
end;

!xtxx OPTION 1 ERROR 17 nwex

.BOARD):;

v 6H »

WPTR = ,WPTR + (.WRDCNT*2):
SECTOR = .SECTOR + (.WRDCNT/256);

23;;
4879
4880
4881
488%
48
4
4885
4886

.CHAN) ;

81T @@’

OLDSEC = .MLEL:
OLDCHN = ,CHAN:

7549 :

PA:<NEALE>MLX4.BLI.S (37)

!* 64 « RECOVERABLE DATA ERROR

ISOLATE ();
.
if .ERROUT then PRINTB (FMT108,

4842
4843

7550
7551
7552
7553
7554
7355
7556
;ggg

T0PS=20 Bliss=16 v2(212)

27-Mar=-1782 19:23:44

' 6 »

END OF SECTOR SELECTION LOOP

's 5 «

END OF TEST FOR AN ACTIVE UNIT

1+
! Test to see if this uut's address space is
! to be read for soft errors.
This test is
! is intended for DMT purposes.
fe

[ CZMLBBO PFRFORMANCE EgER
INTEGRIT. COMMAND INT

7593 ;MLXé4
759 ;
7595
7596
7597
7598
7599
7600
7601
7602
.

.
-

[
.

HAERO M1113

115

29-MAR-82 13:41

PAGE 178

SEQ 0190

27-Mar-1982 19:24:42

DEFINITION OF OPTION 1

27-Mar-1982 19:23:44

:; LEFNS21
en

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (37)

!Is the background pattern to be read

begin

L]
.

g version camlbb changed incr to incru

[

.
-

incru SECTOR from LOWEST to HIGHEST do

e
-

L4
-

.
-

L
.

it read (.LUN, 256, RBUFF,

then

.SECTOR) eql S

begin
ISOLATE ();

!Find the failing bank and board no.

*
.

L4
.

”

if .ERROUT then PRINTB (FMT10B, .CHAN):
Print where the error is

[4
.

Save the contents of the ML error location

d
[

[4
4
.

[4
-

[4
.

to the new

contents of this register after the retry.
This is done to classify the error.

OLDSEC = .MLEL:

OLDCHN = . CHAN;

L
-

[
L4
.

[
L4

!
!
!
5

Do a classity retrg call.
If the same error
occures then classify it as a hard error.
If
a different error occured or the error went away
then classify it as a soft error.

[4
o

[
L4

L4
[
[

[4
4

z; RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql §
)

i The same error occured so see if it is at the same
! sector and channel number,

if so then classify

! it as a hard error else classiy it as a soft

; error,

[
[4
[4

2; ((.MLEL eql .OLDSEC) and (.CHAN eql
en

begin

!Same error occured 'hard’

if .ERROUT
then

!Print error if enabled

L4
[
.
*
[4

begin
ERRHRD (112,
MSG4,

[
[4
.

.OLDCHN))

P 0):

end;

'Error number

!Error message

]

!Additional message routine

CZMLBBO PERFORMANCE EXERCIS
ERC
ER
MACRO M1113
INTEGRITY COMMAND INTEGR] TY ROUTINE
7649 :MLX4

;gg? H
7652 ;

7653
7654
7655
7656

.
;
;
;

7657 ;

7658 .
7659 ;

7660 ;

7661

;

7662 ;
7663 ;
7664 ;
7665 :
7666 :
7667 :

7668
7669
7670
7671
7672
7673

:
;
:
;
:
;

7676 :

7686 ;
7687 .

;% :

7690
7691
7692
;237

;
;
:
;

7698
7702 051460

7703 051464

27-Mar-1982 19:23:44

else

4944

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (37)

4947

P 4949
4950
4951
495
495
4954

else

begin

if .ERROUT
then
begin
ERRSOFT (114,
MSG3,
0;

4961

4965

end;

!Not the same error ‘soft’
.

'‘Print error if enabled
‘Error number
‘Error message
!Additional message routine

UP_SOFT_COUNT (.LUN, .BOARD):

4968

end;

4969
4970
114
4972

end;
end;

4973
4974

end;

28;2

162706

!Not the same error 'soft’

UP_SOFT_COUNT (.LUN, .BOARD):;
end

4955
4956
4957
4958
4959
4960

004167

begin

.BOARD):

if .ERROUT
!Print error if enabled
then
beain
ERRSOFT (113,
'Error number
MSG3,
!Error message
0;
!Additional message routine
end;

P 4948

4977
4£978
4979
4980

UP_HARD_COUNT (.LUN,
end

4945
4946

4966
4967

:
;
;
;

27-Mar-1982 19:24:42

4939

7679 :
7680 ;

7682
7683
7684
7685

SEQ 0191

4940
4941
494
494

P 4962
P 4963
4964

7681 ;

J_15
PAGE 179

DEFINITION OF OPTION 1

7675 :
7676 ;
7677 ;

7678 ;

29-MAR-82 13:41

end;

return;
end;

000020

END OF LOOP THAT COMPLETELY TESTS ONE UNIT

i« 2 «

END OF COMPLEMENT FLAG SELECTION LOOP

s 1 «

END OF ROUTINE

! 3«

end;

133650

i 4 =

OPT1:

.SBTTL
JSR

SuB

END OF LOGICAL UNIT SELECTION LOOF

OPT1 DEFINITION OF OPTION 1
R1,$SAVES

#20,sp

4628

#SAY2,=(SP)

#3,-($P)
SP.RO
14
18:

28:

26(SP)

LSUNIT,12(SP)
1 ? ( SP)
4 $
10 (SP) RO
RO
RO
RO
#DRI
. STATUS,RO
VE
RO,=(SP)
1 2(SP) ,=(SP)

l 177770,

#1,-(SP)

000001

SP,+

O NONNONO OO

004767

173472

b e

[« 1<

OOO

g§s~
Soea
EINSIARNE

lelelolelelele]

QOO0

160744

000001
000006
045424

40698

LUN,
=

(SP)

#IBUFF ,WPTR
#RBUFF ,RPTR

5%:

LOW.SECT(RS ) R4

gg.TOP.SECT (R5)

K XY

298
10(SP) ,LSLUN

;2(SP).R5

175220
000016

LUN,*

#56.59
3s:
48:

034500
175274

* LUN

4690
4693

~($P)
PC,BLSGT2

132556
000010

167042

; COMP.FLAG

LW'*

000012

177770

000030

TOPS
PA:<

4687

WA
b b b

#RTN1 ,~(SP)

000012

034460
034500

27-Mar-198 2 1 9:24:4 2
27-Mar-19 8 2 1 9:23:4 4

DEFINITION OF OPTION 1

MRD34,~(SP)

034442

e
QAR SD bNg

0
7737 051642
7738 051644
7739 051650
7740 051654
7741 051656
7742 051660
7743 051664
7744 051670
7745 051672
7746 051676
7747 051702
7748 0517C%
7749 051706
7750 051712
7751 051716
7752 051720
7753 051724
7754 051726
7755 051732
7756 051734
7757 051740
7758 051742
7759 051746

K 15
PAGE 180

Vl§\h
NOO&NO?
\ll\ll\fl\l!\h\ll§bb
B
VAN

007626
007344
007100
000003

OSSO

o e

e ek e

WVIWVAWVIAVIWAWVIVAA
AL

ek b —d

NN
»HO

000026
130266
000010
002254
000010

29-MAR-82 13:41

SEQ 0192

sMLXG

wviawb

7721

QO OCO0O0O0VOOOOO

b wd cocd b

OVRONO
NS W=D

d e

NN~

I\ ek =

NSNS

7705
7706
7707
7708 05
7709
144

MACRO M1113

LUN,*

*,SECTOR

4701
4702
4703
4704

SECTOR,
*

4706

¢ SECTOR,*

4708

R (SP)

SECTOR,
*

4709

RO.R2
R2,(SP)

WRDCNT
,+

4710

16(SP), (SP)
R2,~(SP)

LUN,
WRDCNT,

4711

Ré4,=(SP)
30(SP) ,-(SP)

PC,GENT

CZMLBBO PERFORMANCE EX RCI ?ER
OPT1 DEFINITION OF OP1 ON

TOP. SECT(RS) ,~(SP)
PC,GET.WRDCNT

*,WRDCNT

PC,SET.PIRS

WPTR,~(SP)
Ré&,-(SP)
PC,WRITE

RO.R3
R3.M
6$

#6,<(SP)

MIRITE,-(SP)

COMP.FLAG,~

SECTOR,«
s

* ,VALUE

2 VALUE,*

anz

4723

CIZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

MACRO M1113

7761

s MLX4

;

7764 051752
7765 051756
7766 051760
7767 051764

016646
010246
016746
010446

000030

7769 051772
7770 051776
7771 052000
7772 052002
7773 052006
7776 052014
7775 052016
7776 052020
7777 052022
7778 052024

062706
005700
001456
016601
112761
104455
000145
011070
000600
016600

000014

7768 051766 004767

7780 052032

7781 052034

7782 052040
7783 0520642
7784 052046
7785 052054

104451

000436

020327

016600

000024

7790 052070
7791 052072
7792 052074
7793 052100

104451
000416
020327
001016

779 052102
7795 052104
7796 052106
7797 052110
7798 052112

7799 052116
7800 052124
7801 052126
7802 052130

104455
000147
011070
000000
016601
112761
010100
104451
062706

7804 052136
7805 052142
7806 052146
7807 052150
7808 052154
7809 052156
7810 052160
7811 052166
7812 052172
7813 052176
7814 052200
7815 052202

004767
010066
005001
020027
001015
005201
016766
016646
010246
016746
010446
004767

7803 052134

000543

ADD
TST
BEQ
MOV
MOVB
TRAP
.WORD
-WORD
JWORD
MOV

034446

TRAP

000002

000024
000005

000146
011070
000000

JSR

000024

001015
016601
112761
104455

7786 052056
7787 052060
7788 052062
7789 052064

174232

6$:

034446

000024

000006

78:

034446
8s:

174024
000034

9s:

045612

160472
173404

cMP

BNE
MOV
MOVB
TRAP

000036

30(SP) ,~(SP)
R2,-(5P)
WwPTR,=(SP)
Ré,=(SP)

PC . RETRY

#1¢,sp
RO
98
24(SP) .R1
#4,WHY.DROPT(R1)
S5
145
MSG1
0
24(SP) ,RO

73
24(SP) .R1
#5,WHY.DROPT(R1)
§5

146
MSG1
0

TRAP
BR
cMp
BNE

51
8s
R3,43
93

24(SP) ,RO

5§
147
MSG1
0
26 (SP) ,R1

MOVB
MOV
TRAP
ADD

214,5P

JSR
MOV
CLR
mp
BNE
INC
MOV
MOV
MOV
MOV
MOV
JSR

PC., CHOOSE
RO.34(SP)
R1
RO, #READ
108
R1
RPTR, 36 (SP)
24(SP) ,~(SP)
R2,~(SP)
RPTR,=(SP)
Ré,=(SP)
PC.READ

B8R

#6.WHY.DROPT(R1)
R1.RO

TOPS
PA:<

LUN,
¢
WRDCNT,
«

SECTOR,

LUN,«

4726
4727

LUN,«

4728

VALUE,
*

4729
4717

R3.#2

.WORD
-WORD
JWORD

TRAP
WORD
.WORD
JWORD
MOV

000014

160506
000024

B8R

MOV

000003

27=-Mar-1982 1 9:2b :42
:4
27-Mar-1982 1 9:2 3:4 A

DEFINITION OF OPTION 1
MoV
MOV
MOV
MOY

160704

000024
000054

L 15

PAGE 181

SEQ 0193

;;gg

7779 052030

29-MAR-82 13:41

4736
4737

LUN,*

4738

* VALUE,*

4739
4717
4744

LUN,*

LUN,
*

148

*, COMMAND
COMMAND
,»
: *,PIR

s LUN,®
; WRDCNT
,»
SECTOR,
*

CZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

MACRO M1113

7817

sMLXG

7838 052300
7839 052302
7840 052306
7841 052312
7842 052316
7843 052322
7844 052326
7845 052330
7846 052332
7847 052336
7848 052342
7849 052346
7850 052352
7851 052356
7852 052356
7853 052364
7854 052370
7855 052374
7856 052400
7857 052404
7858 052406
7859 052410
7860 052414
7861 052422
7862 052426
7863 052426
7864 052430
7865 052432
7866 052436
7867 052440
7868 052444
7869 052446
7870 052452
7871 052454

000413
016766
016646
010246
016746
010446
004767
010003
101102
006001
103402
000167
016746
016746
010246
004767
062706
010066

160454
000024

000036

10$:

160440

1735642

11$:

001016
160412
160410

128:
138:

172036
000006
000042

001762
016646 000034
004767 163212
012716 011216
012746 007072
012746 000002
010600
104414
016616 000050
017646 000050
012746 006710
012746 000003
010600
104414
062766 010000
016616 000056
017646 000056
012746 006756
012746 000003
010600
104414
016601
000056
112761
000010
104455
000150
011070
000000
016600 000056
104451
062706 000046
000522
020327 000001
001635
012746 000006

M 15

PAGE 182

SEQ 0194

;g}g

7820 052206
7821 052210
7822 052216
7823 052222
7824 052226
7825 052230
7826 052232
7827 052236
7828 052240
7829 052242
7830 052244
7831 052246
7832 052252
7833 052256
7834 052262
7835 052264
7876 052270
7837 052274

29-MAR-82 13:41

000056

034446

14$:
158:

27-Mar=-198
27-Mar-198

DEFINITION OF OPTION 1
BR
MOV
MOV
MOV
MOV
MOV
JSR
MOV
BNE
ROR
8LO
JMP
MoV
MOV
MOV
JSR
ADD
MOV

BEQ
MOV
JSR
MOV
MOV
MOV
MOV
TRAP
MOV
MoV
MoV
MOV
MOV
TRAP
ADD
MOV
MOV
A0V
MOV
MoV
TRAP
MOV
MOVB
TRAP
WORD
.WORD
JWORD
MOV
TRAP
ADD
BR
(Mp
BNE
MoV

118
WPTR,36(SP)
24(SP) ,=(SP)
R2,=(SP)
WwPTR,=(SP)
R4, =(SP)
PC . CHECK
RO.R3
15¢$
R1
138
288
WPTR,=(SP)
RPTR.~(SP)
R2,-(SP)
PC.DOUBLE
. CHECK
#6.SP
RO 42(SP)

12§
34(SP) ,~(SP)
PC, SAYWHO
#MSG5, (SP)
#SAY1.-(SP)
#2,-(SP)
SP.RO
14
50(SP), (SP)
aS0(SPS ,~(SP)
NFMTI2A.-(SP)
#3,-(SP)
SP.RO
14
#10000,56(SP)
S6(S
. P)
(SP)
356(SP3,=(SP)
#FMT12B.~(SP)
#3,-(SP)
SP.R0
14
56(SP) ,R1
#10,WHY.DROPT(R1)
55
150
MSG1
0
56(SP) ,RO
51
#46,SP
208
R3 41
16$
#6,-(SP)

;

*,PTR

LUN,+

WRDCNT,»

;

SECTOR,*

;

*,VALUE

142
4

TOPS

PA:<

4761
4762

4769
4774

4778
;

WRDCNT,

; *,DBL.VALUE
4781

4782
.

SP.‘

; DBL.VALUE,+
; DBL.VALUE,*
.

SP"

; *,DBL.VALUE

; DBL.VALUE,+
; DBL.VALUE,+
.

4783

4785
4786

SP"

; LUN,*

4788

4789

;

LUN,*

4790

479
;

VALUE,x

4769
4799

CZMLBBO PERFORMANCE EXERCI?ER

OPT1 DEFINITION OF OPTION

MACRO M1113

s MLX4

;g;g

7892 052542

7893 052544

7894 052546
7895 052552

7896 052556

7897 052560
7898 052566
7899 052570
7900 052572
7901 052574

7902 052576
7903 052602

016646
016646
010246
016646
0104646
004767
062706
005700
001655
016607
112761
104455
000151
011070
000000
016600

104451

000460

020327
001015

016601

112761
104455
000152
011070
000000

000046
000040

173520
000014

000034

000005

G00C24

020327

000003

7907 052614
7908 052620
7909 052626
7910 052630
7911 052632
7912 052634
7913 052636
7916 052642
7915 052646
7916 052646
7917 052652
7918 05265¢
7919 052660
7920 052662
7921 052664
792§ 052

016607
112761
104455
000153
011070
000000
(16600
104451
000420
020327
001021
004767
104455
000154
011120
000000

000034
000006

7924 052674
7925 052702
7926 052706
7927 052706

112761
0101
104451
062706

7905 052606

7906 052612

7923

052670

000440
001015

016601

TRAP

000002

016600
104451

7904 052606

034446

168:

178:

034446

000004

188:

164452

000007

000024

198:

198

R3, 42
17§

MOVB
TRAP
WORD
-WORD
MORD

¥5.WHY.DROPT(R1)
55
152
MSG1
0

B8R

34(SP) ,R1

34(SP) RO
51

198

27-Mar-1982 19:23:44

;
*
:
:
:

TOPS

PA:<

COMMAND,
*
LUN,
%
WRDCNT,
«
PIR,
SECTOR,*

: LUN,+

4802

4803

: LUN,*

4804

4805

; LUN,*

4812

4813

: LUN,*

4814

¢ VALUE,*

4769

4815

R3.43

¢ VALUE,*

4769

MOV
MOVB
TRAP
WORD
.WORD
JWORD
MOV
TRAP
8R
(M
=
JSR
TRAP
WORD
.WORD
-WORD

34(SP) ,R1
#6.WHY.DROPT(R1)
5§
153
MSG1
0
34(SP) RO
51
198
R3. 44
$
PC,ISOLATE
5§
154
M562

; LUN,*

4820

4821

: LUN,*

4822

:
: VALUE,

4823
4769

:
:

4828
4829

MOVB
MOV
TRAP
ADD

#7.WHY.DROPT(R1)
R1.R0
51
224,SP

: LUN,®

4830

: LUN,®

4831

4832

BME

MOV

034446

46(SP) ,~(SP)
40(SP) S~ (SP)
R2,-(SP)
56(SP) ,=(SP)
RG,=(SP)
PC.RETRY
#1é,sp
RO
128
34(SP) ,R1
#4,WHY.DROPT(R1)
55
151
MSG1
0
34(SP) ,RO

WP
BNE

MOV
TRAP

000034

B8R

MOV

034446

27-Mar=1982 19:24:42

DEFINITION OF OPTION 1
MoV
MOV
MOV
MOV
MOV
JSR
ADD
ST
BEQ
MOV
MOVB
TRAP
WORD
-WORD
WORD
MOV

000056

000034
000004

N 15
PAGE 183
SEQ 0195

7873

7876 052460
7877 052464
7878 052470
7879 052472
7880 052476
7881 052500
7882 052504
7883 052510
7884 052512
7885 052514
7886 052520
7887 052526
7888 052530
7889 052532
7890 052534
7891 052536

29-MAR-82 13:41

18$

(SP) ,R1

(ZMLBBO PERFORMANCE EXERCI?ER
OPT1 DEFINITION OF OPTION

MACRO M1113

7932 052712

7936 052730
7937 052736
7938 052740
7939 052744
7940 052746

000167
020327
001162
004767
032767

001070
000005
164402

000001

g 10

PAGE 184

SEQ 019¢

sMLXé

7933 (52716
7934 052722
7935 052724

29-MAR-82 13:41

DEFINITION OF OPTION 1

:
208
218:

408
R3.#5

27 -Mar-1982 19:24:4 2
27-Mar-1982 1 9:23:4 4
VALUE
,*

283%

PC,ISOLATE
#1_ERROUT

127322

4769

4837
4839

22§

161444

TOPS
PA:<

ML .RESG+42
R
R1

7941 052750
7942 052752
7943 052754

7964 052756

7945 052760
7946 052764
7947 052766
7948 052772
7949 052776
7950 053000
7951 053002
7952 053006
7953 053014
7954 053020
7955 053022
7956 053024
7957 053026
7958 053030
7959 053032
7960 053034

177700

006640
000002

000050

RG,=(SP)

S REFNERARS

173130
000014
000005

PC.RETRY

000050

214, sp
RO, #
25¢

aML.REG+44,50(SP)

248
40(SP) ,RO

ML .REG+42,R1

-—

ég

977 0531
7978 05313
7979 0531

140

3146

020100

177700

R
#177700,R1
R1.RO

N PR

R1,40(SP)

#1.-(SP)
46(SP) ,~(SP)
40(SP
.- (SP)
)
R2,~(SP)
56(SP) ,~(SP)

000056

7982 053142

s *,0LDSEC

#177700,R1

000046
000040

000040
161262

#6,SP
ML .REG+44,50(SP)
ML .REG+42,R1

843

177700
000040
000001

161300

22%:

T TR TR

161400
161370

LIE

000006

SP,»

*,0LDCHN
COMMAND
, «
LUN,*
WRDCNT,*
PTR,*
SECTOR,»

*,0LDSEC
OLDCHN,«

4845

4848

(IMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

MACRO M1113

29-MAR-82 13:41

SEQ 0167

7935

sMLXG

;339

7988 053150

7989 053152
7990 053160
7991 053162
7992 053164
7993 053166
7994 053170
7995 053172
7996 053176
7997 053202
7998 053206
7999 053210

8000 053216

8001 053220

8002 053222
8003 053224

8004 053226

8005 053230

8006 053232
8007 053240
8008 053242
8009 053246
8010 053246

8011 053250

8012 053252
8013 053256
8014 053262
8015 053266
8016 053270
8017 053272
8018 053274
8019 053300

8020 053304
8021 053306
8022 053312
8023 053316
8024 053320
8025 053322

001017

032767
001404
104456
000155
011202
000000
016646
016746
004767
000427
032767

001415

000001

000156
011166

000000

000430

032767
001404
104457
000157
011166

000001

016646
016746
004767
022626
010200
006300
066700
010067

000034
161060
164616

000000

010216
012746
004767
060400
010004
062706

000440
000010

8033 053360
8034 053364
8035 053370
8036 053374

016005
000167
016646
012746

8038

010546

034500
034460
000406
000010
000400

8037 053400 012746 022670
8039 053406

004767

268:

278:
288:

172200

126722

29%:
308:

318:

248

#1,ERROUT
238
56
155
MSG4
0
34(SP) ,~(SP)
BOAR
, ~(SP)
D
PC,UP.HARD.COUNT
7%
#1,ERROUT

BEQ

268

NORD
-WORD

.WORD

156
MSG3
0

BIT
BEQ
TRAP
.WORD
.WORD

#1 ERROUT
268
57
157
MSG3

MOV
MOV
JSR
(WP
MOV
ASL
ADD
MOV

34(SP) ,~(SP)
BOAR
, = (SP)
D
PC,UP.SOFT.COUNT
(SP)+.(SP)+
R2.R0°
RO’
WPTR,RO
RO, WPTR

B8R

.WORD

MOV
MOV
JSR
ADD
MOV
ADD

000026

000167
016600

006300
016001

25%:

000400
131652

8029 053342
8030 053346

001002

127020

157370
157364

176316
000001

053404

24%:

BIT
BEQ
TRAP
.WORD
-WORD
-WORD
mov
MoV
JSR
BR
BIT
TRAP

000167
032767

8031 053352
8032 05335¢

127042

104457

3026 053326
8027 053332

8028 053340

23s:

27-Mar-1982 19:24:42

DEFINITION OF OPTION 1

BNE

127100

00N034
101140
164214

000001

€ 16

PAGE 185

27-Mar-1982 19:23:44

TOPS

PA:<

4852

: LUN.*

,
4834

:
:

4848
4859

4861

; LUN,*

4869

;
: WRDCNT,«

4836
4875

: WRDCNT,»

4876

268

R2. (SP)
#400,~(sP)
PC.BLSDIV
R&.RO
RO.Ré
#26,SP

; SECTOR,*
: =, SECTOR
:

4867

4707

JNP
BIT

(13
#1,EFNS21

:
:

4706
4887

JMP
MOV

408
10(SP) .RO

; LUN,*

4894

BNE

ASL
MOV

MOV
JNP
MOV
MOV

30§

RO
TOP. SECT(RO) ,R?

§ou.SECT(RO)_RS
9
1o(sp) -(sp>
(sP)

MOV

tasufr -(sp>

JSR

PC.READ

MOV

RS,=(SP)

; *,SECTOR
: LUN,*
; SECTOR,*

4896

-{MLBBO PERFURMANCE EXERCI%ER
OPT1 DEFINITION OF OPTION

MACRO M1113

8041

8044 053412

8047 053426
8048 053430
8049 053436
8050 053440
8051 053444
8052 053446
8053 053450
8054 053452
8055 053454
8056 053456
8057 053460
8058 053464
8059 053466

8060 053472

8061 053476

8062 053500

8063 053502

M
062706

020027
001164

004767
032767
001423
017700
006200
006200
006200
006200
006200
006200
042700
010046
012746

012746

010600

104414

8073 053540
8074 053544
8075 053550
8076 053554
8077 053560
8078 053564
8079 053570
8080 053576

8081 053600

8082 053604

8083 053610
8084 053612
8085 053620
aoag 053622
8087 053626
8088 053632

042700

160706

000024

328:

;
:

SP.RO

; SP,«

TRAP

MOV

#6,SP

ML .REG*+44,24 (SP)

MOV

aML.REG+42. RO

8IC

#177700,R0

ASR
ASR
ASR
ASR
ASR
ASR

177700

PC,ISOLATE
#1.ERROUT
32§
aML.REG+42,R0
RO
RO
RO
RO
RO
RO
£177700,R0
RO,-(SP}
AFMT108,-(SP)

#2,-(SPS

ADD

RO
RO
RO
RO
RO
RO

000014
000001
000022
000014
000400
000032
000036

MOV
MOV
MOV
MOV
MOV
MoV
MOV

062706

000014

ADD

214&,sp

BNE
cMP
BNE
MOV
MOV

35§
aML.REG+44 ,24(SP)
348
14(SP) ,=(SP)
aML.REG+42,R0

ASR

004767

020027

001052
027766
001035
016646
017700

006200

8091 053640

006200

8093
053644
8094 053646
8095 053652

ggg
042700

172424

JSR

000005

160574

000014
160556

000024

ASR

RO, 14 (SP)
#1,=(SP)
22(SP) ,=(SP)
14(SP) .~(SP)
#400,-(SP)
32(SP) ,~(SP)
36(SP) ,~(SP)

PC,RETRY

ASR

ao9§ 85;&2 006200

ASR

020026

177700

ASR
8IC

; *,0LDSEC

4899
4901

4910

491

: *,OLDCHN
:
5 COMMAND
,*
: LUN,*

4919

: PIR,*
* OLDSEC,*

RO, 45

006200

ASR

TOPS

PA:<

#10,SP

MOV
MOV

27-Mar-1982 19:23:44

RO, #5
38$

010066
012746
016646
016646
012746
016646
016656

8089 05

8090 053636

006640

000002

160670

006200
006200
006200
006200
006200
006209

JSR
817
BEQ
MOV
ASR
ASR
ASR
ASR
ASR
ASR
8IC
MOV
MOV

177700

017700

8066 053520
8067 053522
8068 053524
8069 053526
8070 053530
8071 053532

CMP
BNE

126622

27-Mar-1982 19:24:42

DEFINITION OF OPTION 1
ADD

160744

000006

017766

8072 053534

163702
000001

062706

8064 053506

8065 053514

000010

000005

0 16

PAGE 186

SEQ 0198

s MLXG

gg;’:%

8045 053416
8046 053422

29-MAR-82 13:41

RO
#177700,R0
RO, (SP)+

; *,0LDSEC

: OLDCHN,*

4928

CZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

MACRO M1113

gfoo 05365¢ 001017

8102 053664
8103 053666

8104 053670
8105 053672
8106 053674

8107 053676

8108 053702
8109 053706

8110 053712
8111 053714
8112 053722

8113 053724
8114 053726
8115 053730
8116 053732

032767

001404
104456

000140
011202
000000

016646

016746
004767

000427
032767
001415

000410
032767
001404
104457
000162
011166
000000
016646
016746
004767
022626
005205
020501

8131 054002
8132 054006
8133 054012
8134 054020
8135 054022
8136 054026
8137 054032
8138 054040
8139 054042
8140 054046
ng; 054052

000167
005266
026666
002002
000167
005266
026627
003002
000167
062706
000207

8143
8144

8149
8150

126374

000010

338:

160434
163510

000007

126336

101002

BNE

34$:

MORD
.WORD
WORD

160
MSG&
0

MOV
JSR

BOAR
= D,
(SP)
PC,UP.HARD. COUNT

BR
BIT
8EQ

TRAP
WORD
.WORD
.WORD

000001

126314

000010
160354

368:

164112

378:
388:
398:

177362
000010
000010

000012

175510
000026
000026

000001

175452
000030

358:

408:
41$:
428:

43$:

348

#1_ERROUT

MOV

BR
BIT
BEQ
TRAP
MORD
.WORD
.MORD
MOV
MOV
JSR
(MP
INC
(WP

BH]

JMP
INC
(M
BGE
JMP
INC
cMP
BGT
JMP
ADD
RTS

; Routine Size:

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 1

BIT

BEQ
TRAP

104457
000161
011166
000000

3117 053734
8118 053736
8119 053744
8120 053746
8121 053750
8122 053752
8123 053754
8124 053756
8125 053762
8126 053766
8127 053772
8128 053774
8129 053776

8130 054000

JMLXS
:
000001

E 16
PAGE 187
SEQ 0199

8097
8098

8101 053656

29-MAR-82 13:41

TOPS
PA:<

33§
56

4932

4937

10(SP) ,=(SP)

; LUN,#

4940

37§
#1,ERROUT
368

:
:

4928
4945

4950

:
:

4953
4959

4964

: LUN,*

4967

:
: SECTOR
: SECTOR,*

4898
4894

; LUN
: LUN,*

4693

; COMP.FLAG
: COMP.FLAG,

4690

4628

57
161
MSG3
0

368
#1,ERROUT
368
57
162
MSG3
0
10(SP) ,~(SP)
BOARD
~ (SP)
,
PC,UP.SOFT. COUNT
(SP)+,(SP)+
RS
R5,R1

40§

31$
10(SP)
10(SP) ,12(SP)
42$
2s
26(SP)
26(SP) .M
438
13
#30,SP
PC

638 words

; Maximum stack depth per invocation:

37 words

(IMLBBO PERFORMANCE EXERCISER

MACRO M1113

OPT1 DEFINITION OF OPTION 1

3152 ;MLXx4

gz :

55
56
8157
8158 ;
8159
8160
8161
8162
8163

8164

DEFINITION OF OPTION 2
4981
4982
4983
4984
4985
4986
4987
4988
4989

4990

!4+
!
ROUTINE:
!
!
PURPOSE:
!

8178
8179

5006
5005

8181
8182

5007
5008

!
!

: :
: :

5010
5011

!
!

5006

e oud

DO NON\ALS
NN

i o

med e

OOOOOOOO

VAVAVAIUVAWAAWAWAL

5031

START OF ROUTINE

TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM
THE PATTERN TABLE.

BEGIN 1 (START OF ROUTINE)
SAY THE ROUTINE IS RUNNING
CHOOSE A MAXIMUM PATTERN NUMBER
INCR COUNT FROM 1 TO (2+MAX)
: BEGIN 2 (START OF PATTERN SELECTION LOOP)
: GENERATE THE PATTERN
: INCR LUN_FROM 0 TO LAST
: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
: : TESTLOCS®:
: : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)

!
!

:
:

THE CODE FOR ‘*OPT2' IN BRIEF:

: : : IF UNIT IS ACTIVE
:
:

: THEN
: : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)

: : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS
: : SECTOR = LOWEST
: : WHILE SECTOR LEQ HIGHEST DO

:: :: : BEGIN 6 (START OF SECTOR SELECTION LOOP)
: : : : GET_WRDCNT
oz 2 S'EJT[EJP BUFFER POINTERS BEFORE TRANSFER

!
2 :::
!t : 1 :
!
st ::
.
2z

!
!
!

1 1 :
s : :
:::

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: CHOOSE WHETHER TO WRITE CHECK OR READ
: DO THE WRITE CHECK OR READ
: LOOK FOR ERRORS (1F DROP UNIT, LEAVE TESTLOOP)

: CHANGE BUFFER POINTERS AFTER TRANSFER
: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER
: END 6 (END OF SECTOR SELECTION LOOP)

: END S (END OF TEST FOR AN ACTIVE UNIT)

END &

(END OF TESTLOOP)

: END 3 (END OF LOGICAL UNIT SELECTION LOOP)

IF NOT THE QUICK VERIFY PASS THEN ‘LOOP READ'

END 1

'* 1 «

TOPS-20 Bliss=-16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (38)

OPT2

éegfig"Z (END OF PATTERN SELECTION LOOP)

5029
5030

27-Mar-1982 19:23:44

!
!
!
!
!
!
!
!
!
!
!
!

!
N
(¥

8197 -

5009

RRREE
28 BRINRR

8183 :

G000 00 0o 00 00 00 O 00 0B (0 00 0o

5003

27-Mar-1982 19:24:42

Xsbttl *DEFINITION OF OPTION 2'
routine OPT2 : novalue =
begin

4991
4992
499%
4994
4995
4996
4997
4998
4999
5000
5001
3002

8180

F 16
PAGE 188

SEQ 0200

8165
8166 .
8167
8168
8169
8170
8171
8172
8173
8174
8175
8176

e17z7

29-MAR-82 13:41

(END OF ROUTINE)

Label
LOOP

LOOPS;

(DESCRIBED BELOW)

C.-LBBO PERFORMANCE EXERCISER

OPT1 DEFINITION OF OPTION 1

8208 :MLX4

322?8 H
8211

8212
8213
8214
8215
8216

;

;
;
;
;

8217 ;
3218 ;

8219 :

MACRO M1113

29-MAR-82 13:41

G 16

PAGE 189

SEQ 0201

OEFINITION OF OPTION 2
5033

5034
5035
5036
5037
5038

27-Mar-1982 19:24:42

27~Mar-1982 19:23:44

local

WRDCNT,
VALUE,
TEMP,
MAXPAT,
OLDSEC,

5039
€040

OLDCHN,
SECTOR,

5041

PIR,

8220 ;
8221 :
8222 :
8223 .
8224 ;
8225 ;
8226 :
g%%g :

5042
5043
5044
5045
5046
5047
5048
gggg

PRINTB (SAY2, WRD34, RTN2);
! 'RUNNING OPT2'
PATTERN = 0;
.
if .QUICK neq 0 then MAXPAT = 1 else MAXPAT = NUM_PATS;

8229 ;
8230 :
8231 ;
8232 ;
8233 ;
8234
8235 ;
8236 :
8237 .
8238 :
8239 :

5051
5052
5053
5054
5055
5056
5057
5058
5059
5060
5061

incr COUNT from 1 to (.MAXPAT*2) do
begin
SELPAT ();
.
it .PATTERN gtr 0
then
PRINTB (FMT1A, PHR9, .PATTERN)
!"PATTERN NUMBER
XX'
else
begin
TEMP
= =(.PATTERN):

8240 :

8241 ;
8242 ;
8243 ;

8244 ;
8245 ;
8246 ;
8247 ;
8248 ;

5062

g%gg ;

gg%

8251 ;
8252 :
8253 ;
8254
8255 ;
8256 ;
8257 *
8258 ;
8259 ;

5073
5074
5075
5076
5077
5078
5079
5080
5081

8260 ;
8261 ;

8262 ;

COMMAND,
DBL_VALUE;

5082
5083
5084

! 2 »

START OF PATTERN SELECTION LOOP

!« 3 «

START OF LOGICAL UNIT SELECTION LOOP

! & «

START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT

I 5 «

START OF TEST FOR AN ACTIVE UNIT

PRINTB (FMT1B, PHRY, .TEMP):

5063
5064
5065

5066
5067
5068
5069
5070

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (38)

"
end;

LOOP :

PATTERN NUMBER -~ XX°'

GEN2 (.PATTERN):;
.
incr LUN from 0 to (.LSUNIT - 1) do
begin
.

begin

if .DRIVE_STATUS [.LUN] eql ACTIVE
then
beEin
LSLUN = .LUN:
WPTR = WBIFF;
RPTR = RBUFF;
SECTOR = LOWEST:
.
while .SECTOR Lequ HIGHEST do

begin
‘= 6 » START OF SECTOR SELECTION LOOP
WRDCNT = GET_WRDCNT (.SECTOR, HIGHEST):
SET_PTRS (.WRDCNT);

(IMLEBO PERFORMANCE EXEICISER
OPT1 DEFINITION OF OPTION 1

8264 ;MLX4

gggg M
8267 :
8268 ;
8269 ;
8270 :
8271 ;
8272 :
8273 :
8274 ;
8275 :
8276 :
8277 ;
8278 ;

MACRO M1113

29-MAR-82 13:41

H 16
PAGE 190

SEQ 0202

27-Mar=-1982 19:24:42

DEFINITION OF OPTION 2
5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
5095

27-Mar-1982 19:23:44

VALUE = write (.LUN,

.WRDCNT,

.WPIR,

TOPS-20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.5 (38)

.SECTOR);

1+
!
SEE HOW SUCCESSFUL THE WRITE WAS:
l=

selectone .VALUE of
set
)

5096

!SEE *SYSERR' FOR DEFINITION
!0OF ERROR # CONTAINED IN °'VALUE'

begin
.

!» 6A » RETRY ALLOWED

8279 :
8289 ;

5097
5098

if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) neg 0
then
!THE RETRY FAILED ~-- SYSTEM FATAL ERROR

8282 :
8283
8284 :

5100
5101
5102

WHY _DROPT [.LUN] = CODE_4:
ERRDF (201,
MSG1, 0
!exax OPTION 2 ERROR 01 wxxe
DODU (.LUNS;

8281 ;

8285 ;

5099

5103

8286 :
8287 ;
8288 .
8289 ;
8290 ;
8291 ;
8292 :
8293 .
829 :
8295 :
8296
8297 :
8298 :
8299 ;
:
8301 :
8302 :
8303 .
8304 ;
8305 ;
8306 .
8307 :
8308 :
8309 .
8310 ;
8311 ;

5104
5105
5106
5107
5108
5109
5110
5111
5112
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128
5129

8315 .
8316 ;
8317 ;

5133
5134
5135

8312 :
8313 ;
8314 ;

8318 ;

begin

5130
5131
5132

5136

leave LOOP;

end;

!JUMP JUST BEYOND END OF BLOCK * 4 *

Ix 6A =

23 :
|
begin
! 6B * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE_S;
ERRDF (202, MSG1, 0);
txexx OPTION 2 ERROR 02 txwx
DODU (.LUNS:
leave LOOP:
YJUMP JUST BEYOND END OF BLOCK * 4 =
end;
In 68 %

£33 :
beain
ERRDF (203,

! 6C ~ FATAL DRIVE ERROR -- NO RETRY ALLOWED
MSG1, 0):
!axxx OPTION 2 ERROR 03 wtxs

WHY DROPT £.LUNI = CODE_6;

D000 (.LUN);
leave LOOP;

tes;

end;

1JUMP JUST BEYOND END OF BLOCK * 4 «

Ix 6C «

COMMAND = CHOOSE ();
.
if .COMMAND eql read
then
begm

else

PTR = .RPIR;
VALUE = read (.LUN, .4RDCNT, .RPTR, .SECTOR);
end

begm
PTR = .WPIR;

VALUE = CHECK (.LUN, .WRDCNT, .WPTR,

.SECTOR):

CZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

8320 ;MLX4

ggg% :

29-MAR-82 13:41

116
PAGE 191
SEQ 0203

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2

8323 ;
832
:
8325 :
8306 :

S1§7
5138
5139
5140

8328 :
8 gg :
:
8331
8332 :
8333 .
833
;
8335 .

s14§
514
5144
5145
5146
5147
5148
5149

8338 :
8339 :
8340 ;
83%1 :
834% :
8343
8344 :
83%S :
8346 :
837 :
8348 :
8349 :
8350 :
8351 :
8352 :
8353 :
8354 :
8355 :
8356 :

5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
5165
5166
5167
5168
5169
5170

8337 :

MACRO M1113

5141

gggg ;

g};}

8359 :
8360 :
8361 :
8362 :
8363 :
8364 8365 :
8366 :
8367 :
8368 :
8369 :
8370 :
8371 :
8372 °
8373 :
8374

5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188

27-Mar-1982 19:23:44

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>MLX4.BLI.5 (38)

end.

'+
.
!
SEE HOW SUCCESSFUL THE OPERATION WAS:

selectone .VALUE of
set

'SEE 'SYSERR' FOR DEFINITION
!0F ERROR # CONTAINED IN *VALUE®

ol :
if .COMMAND eql read
then

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0
then

beain

SAYWHO (.LUN);
PRINTB (SAY1, MSGS5);
!'ECC LOGIC FAILED TO DETECT DATA ERROR'
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE):
1'GOOD DATA: XXXXXX AT LOCATION YYYYYY®
DBL_VALUE = .DBL_VALUE + BUFSIZ*2;
PRIRTB (FMT128, .DBL_VALUE, .DBL VALUE):

T°8AD DATA: PPPPPP AT LOCATION 0@Q0QQ"
WHY_DROPT [.LUN] = CODE_8;
ERRDF (204, MSG1, 0);
Yawsx OPTION 2 ERROR 04 wnan
DODU (.LUNS;
leave LOOP; !JUMP JUST BEYOND END OF BLOCK * & *
end;
end;
€1l :

begin

!* 6D » RETRY ALLOWED

if RETRY (SIX, .COMMAND, .LUN, .WRDCNT. .PTR, .SECTOR) negRO
then
'THE RETRY FAILED -~ SYSTEM FATAL ERR
begin
WHY DROPT [.LUN] = CODE_é;
ERRDF (205, MSG1, 0);
~!%xxx OPTION 2 ERROR 05 #va+
DODU (.LUNS:
leave LOOP;
'JUMP JUST BEYOND END OF BLOCK « 4
end;
end;

v 6D ®

21 :
|
begin
!» 6E « FATAL CONTROLLER ERROR -- NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE_S;
ERRDF (206, MSG1, 0);
!xxxt OPTION 2 ERROR 06 #txt
DODU (.LUNS;

CZMLBBO PERFORMANCE EXERCISER
OPTY DEFINITION OF OPTION 1

8376 MLX4

g%;g .
8379 ;
8380 .
8381 .
8382 :
8383 ;
8384 ;
8385
8386
8387 ;
8388 .
8389 .

8390 ;

8391 ;
8392 ;
8393 :
839 :
8395
8396 ;
8397 :
8398 ;
8399 ;
8400 ;
8401 ;
8402 ;
8403 .
8404 ;
8405 ;
8406 ;
8407
8408 ;
8409 ;
8410 ;

8411

;

MACRO M1113

29-MAR-82 13:41

SEQ 0204

27-Mar-1982 19:24:42

OEFINITION OF OPTION 2
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198
5199

5200

5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220

5221

8612 :
8413 .
8414 :
8415 ;
%2;9 :

5222
5223
5224
5225
gg%g

8418 ;
8419 ;
8420 ;
8421 ;
8422 :

5228
5229
5230
5231
5232

J 16

PAGE 192

27-Mar-1982 19:23:44

leave LOOP;
end;

TOPS~20 Bliss=16 Vv2(212)

PA:<NEALE>MLX4.BLI.S (38)

'VUMP JUST BEYOND END OF BLOCK * 4 #
'« 6E ¢

£33 :
begln
!« 6F « FATAL DRIVE ERROR =-- MO RETRY ALLOWED
ERRDF (207, MSG1, 0):
!*xxx OPTION 2 ERROR 07 xnxw
WHY DROPT [.LUNI = CODE_6;
pOPD (.LUN);
leave LOOP;
YJUMP JUST BEYOND END OF BLOCK * & +
end;
' 6F »

(41 :

begin
' 66 * UNRECOVERABLE DATA ERROR
ISOLATE ().
ERRDF (208, MSG2, 0);
Ixxax OPTION 2 ERROR 08 wxnw
WHY DROPT [.LUNI = CODE_7;
poDD (.LUN);
leave LOOP;
1JUMP JUST BEYOND END OF BLOCK * 4 «
end;
't 6G »

51 ¢
begin
' 6H » RECOVERABLE DATA ERROR
ISOLATE ();
.
if .ERROUT then PRINTB (FMT108, .CHAN):
!
8IT Q@'
OLDSEC = .MLEL:

OLDCHN = .CHAN;
.
if RETRY (ONE, .COMMAND,
then

.LUN, .WRDCNT, .PTR, .SECTOR) eql S

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin
.
if .ERROUT then ERRHRD (209, MSG4, 0);
tenax OPTION 2 ERROR 09 wrse

else

UP_HARD_COUNT (.LUN, .BOARD);
end
begin

%2%2 :

gggz

if .ERROUT then ERRSOFT (210, MSG3, 0):

8425 ;
8426 ;
8427 :
8428 ;
84%9 :
8430 ;

5235
5236
5237
5238
5239
5240

UP_SOFT_COUNT (.LUN, .BOARD):
end

else

begin

fxxxx OPTION 2 ERROR 10 trwe

CZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

PRTR FE FE TY

I T YA P
FRYE

K 16
PAGE 193

SEQ 0205

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

UP_SOFT_CCUNT (.LUN,

end;

tes;

end;

TOPS=20 Bliss~16 v2(212)
PA:<NEALE>MLX4.BLI.S (38)
!seex OPTION 2 ERROR 11 sews

.BOARD);

In 64 »

WPTR = .WPTR + (.WRDCNT®2):

SECTOR = .SECTOR + (.unocui/gsw:

end;

end;
end;
end;

6 «

END OF SECTOR SELECTION LOOP

!~ 5«

END OF TEST FOR AN ACTIVE UNIT

I 4 «~
!# 3 «

END OF TESTLOOP
END OF LOGICAL UNIT SELECTION LOOP

!* 11 «

START OF LOOP READING SECTION

if .QUICK eql O
then

begin
V44

i
1

THE CODE IN BRIEF:

BEGIN 11 (START OF LOOP READING SECTION)
INCR LUN FROM 0 TO LAST
?Eg§foagZ(START OF LOGICAL UNIT SELECTION LOOP)
op

i
i
i
i
i
i
j
i
i
i
i

THIS 1S THE 'LOOP READ® SECTION WHICH WAS MENTIONED IN
THE DOCUMENTATION AT THE BEGINNING OF THIS ROUTINE.
IT
IS NOT EXECUTED DURING THE QUICK VERIFY PASS, BUT IT IS
FOR EVERY OTHER PASS THROUGH OPT2.

]

i
i
i
i
i
i
i
i

WV WAVLAVIAIVIVAWMAVAVIVAVIWAA

PINININININD AN
L LS LS LS LT ST 1T
wvivawawviwinaa VIS
SN ES BN ESSSS
0o NOVNANN
=2 O 000 NOMN S (NN —

it .ERROUT then ERRSOFT (211, MSG3, 0);

AR TR TE

29-MAR82
- 13:41

DEFINITION OF OPTION 2

iviLa

RRPRRP &
3
SRE&R2 3 seeEeres
VOO
NO NN

8450

o'-!-!c.-!-b.!ol..-..t.h.\o'a....!..-!nl.!-!- ..‘OQ.!-!.‘.‘...Q.....‘..o"

SMLXG

MACRC M1113

: BEGIN 13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)

¢
¢
¢

%;EgNIT IS ACTIVE

: BEGIN 14 (START OF TEST FOR AN ACTIVE UNIT)

: INITIALIZE THE WRITE AND READ BUFFER POINTERS
: SECTOR = LOWEST
: WHILE SECTOR LEQ HIGHEST DO

:
:
:
¢ : BEGIN 15 (START OF SECTOR SELECTION LOOP)
s : GET_WRDCNT
t 22 ¢ SET UP BUFFER POINTERS BEFORE TRANSFER
¢ ¢ : CHOOSE WHETHER TO WRITE CHECK OR READ
2z ¢ INCR KOUNT FROM 1 TO TIMES
P2t : BEGIN 16 (START OF COUNTING LOOP FOR LOOP
READING)

: 22
¢t
$ ot 2
¢ 2 2
: ¢

:::

¢
:

:
:

: DO THE WRITE CHECK OR READ
: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP?)
: END 16 (END OF COUNTING LOOP FOR LOOP READING)
CHANGE BUFFER POINTERS AFTER TRANSFER
UPDATE SECTOR NUMBER BY # SECTORS IN PREVIOUS TRANSFER

END 15

(END OF SECTOR SELECTION LOOP)

(ZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

8488 .MLX4

gzgg H
8491
8492
8493
8496
8495
8496
8497

;
;
;
;
;
.
.

8498

8499

5293
5294
5295
5296
5297
5298
5299

5300
5301

gggg

8502 :
3503 ;
8504 :

5304
5305
5306

5307

8506
8507 .
8508
8509 ;
8510 ;
8511 ;
8512 ;
8513
8514 :
8515 ;
8516 ;
gg}g :

5308
5309
5310
5311
5312
5313
5314
5315
5316
5317
5318
gg;g

8519
8520
8521
8522
8523
85264

5321
5322
5323
5324
5325
5326

.
;
;
:
;
;

8525
8526 ;

8527 :

8528 ;
8529 ;
8530 ;

8531 ;
8532 .
8533 ;

8534 .

8535 .

8536 .
8537 ;
8538 ;
8539 .

8540 ;
8541 ;
8542 ;

29-MAR-82 13:41

L 16

PAGE 194

SEQ 0206

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2

ggg? H

8505 ;

MACRO M1113

5327
5328

5329

5330
5331
5332

27-Mar-1982 19:23:44

!
¢ : : END_14 (END OF TEST FOR AN ACTIVE UNIT)
!+ : END 13 (END OF TESTLOOP?2)
!
: END 12 (END OF LOGICAL UNIT SELECTION LOOP)
!
END 11 (END OF LOOP READING SECTION)
lem

incr LUN from 0 to (.LSUNIT = 1) do
LOOP2 :

begin

!« 12 «

START OF LOGICAL UNIT SELECTION LOOP

begin

!= 13 «

START OF THE 2ND LOOP THAT COMPLETELY TESTS 1 UNIT

]

if .DRIVE_STATUS [.LUN] eql ACTIVE
then
begin
!« 14 «
LSLUN = .LUN;

START OF LOOP THAT TESTS AN ACTIVE UNIT

WPTR = WBUFF;
RPTR = RBUFF;
SECTOR = LOWEST;
.
while .SECTOR lequ HIGHEST do
begin
!« 15 = START OF SECTOR SELECTION LOOP
WRDCNT = GET_WRDCNT (.SECTOR, MIGHEST):
SET_PTRS (.WRDCNT);
COMMAND = CHOOSE (5 ;
.
incr KOUNT from 1 to TIMES_TO_LOOP do
begin
!«
16"«
START OF COUNTING LOOP FOR LOOP READING
if .COMMAND eql read
then
begln
PTR = .RPTR;
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):
end
else
begin
PTR = .WPTR;
VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR);
end;

5333
5334
5335

'+
!
SEE HOW SUCCESSFUL THE OPERATION WAS:
le

5337

selectone .VALUE of

5336

5338
5339
5340
5341

5342
5343
5344

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (38)

set

!SEE *SYSERR' FOR DEFINITION

'!OF ERROR # CONTAINED IN °VALUE'

ol :
.
if .COMMAND eql read
then
begin

CcMLBBO PERFOR MANCE EXERCI?ER
OPT" DEFINIT] ON OF OPTION

PAGE 195

1
Sea 0207

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

=O O W~

VIOV
AV ViAW AL

y\:www
S

DEFINITION OF OPTION 2

[0PS~20 Bliss=16 v2(212;
PA:<NEALE>MLX4.BLI.S (38)

if ( DBL_VALUE = DOUBLE_CHECK (.WPTR,
then

.RPTR,

.WRDCNT)) neqg 0

begin

NN
N NN NN NN NN
OTM ViAWV
S

SAYWHO (.LUN);
PRINTB (SAY1, MSGS):

1'ECC LOGIC FAILED 70 DETECT DATA ERROR'

PRINTB (FMT12A,

..DBL_VALUE,

.DBL_VALUE):

!*GO0D DATA: XXXXXX AT LOCATIDON YYYYYY'®
DBL_VALUE = .DBL_VALUE + BUFSIZ*2;

PRINTB (FMT128, ~.DBL_VALUE, .DBL VALUE):
! 'BAD DATA:

N 2O VBN

N Gy A Oy S SR LTS MR TELE
TR DI PN TR I R PO S S Sy S

29-MAR-82 13:41

PPPPPP AT LOCATION QQ0QQQ°

WHY DROPT [.LUN] = CODE_8;

ERRDF (212, MSG1, 0);

DODU (.LUN):;
legve LOOP2;

!axxx OPTION 2 ERROR 12 wtne

!JUMP JUST BEYOND END OF BLOCK * 4 x

end;

1y :
begin

I 16A *

RETRY ALLOWED

if RETRY (SIX, .COMMAND, LUN, .WRDCN7, .PTR,
.SECTOR) neq 0
thenb
.
!THE RETRY FAILED -- SYSTEM FATAL ERROR
egin

HHg DROPT [.LUN] = CODE_4.;

A TR TR TN TN T S
AR AR TR
8.0, 000,.0,9,80%:
% 8,% 0,0, ,
R

VAL

JMLXG

MACRO M1113

ERRDF (213, MSG1, 0):;

DODU (.LUN):

legve LOOP2:

YJUMP JUST BEYOND END OF BLOCK * 13 «

end;

fx 16A *

2y :

begin

WHY

!2xax OPTION 2 ERROR 13 nwwns

'« 1

DROPT [.LUN] = CODE_5;

ERRDF (214, MSG1, 0);

pODU (.LUN):

leave LOOP2:

end;

33 :

begIn
ERRDF (215,

I 16B ¢

FATAL CONTROLLER ERROR == NO RETRY ALLOWED

!axxx OPTION 2 ERROR 14 xrwn

!JUMP JUST BEYOND END OF BLOCK * 13 »

I 1€C =
MSG1, 0);

WHY DROPT [.LUNI = CODE_6;

FATAL DRIVE ERROR =~ NO RETRY ALLOWED
!*xxx OPTION 2 ERROR 15 xexs

poD0 (.LUN):

leave LOOP2;
'JUMP JUST BEYOND END OF BLOCK * 13 »
end;
Iv 16C *

[4] :

begin

'~ 16D =

UNRECOVERABLE DATA ERROR

CZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION GF OPTION 1

8600 .MLX4
8601 ;
8602
8603
8604

MACRO M1113

29-MAR-82 13:41

SEQ 0208

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 2

WAL

ISOLATE ();
ERRDF (216, MSG2. 0);

TOPS=20 Bliss-16 v2(212)
PA:<NEALE>MLX4.BLI.S (38)

!wsax OPTION 2 ERROR 16 ewws

LR LI

poD0 (.LUN):

ATST

Leave LOOP2:
'JUMP JUST BEYOND END OF BLOCK * 13 «
end;
'x 16D *

5] :
begin

ISOLATE

U T

();

!* 16E *

RECOVERABLE DATA ERROR

if .ERROUT then PRINTB (FMT10B,
D md wd wnd aad el

QOO
NI NN —

i Yey

.CHAN);

8IT Qa'

OLDSEC = .MLEL;
OLDCHN = .CHAN;

:; RETRY (ONE,
en

.COMMAND,

.LUN,

.WRDCNT,

.PTR,

.SECTOR) eql 5

:; ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

- Dok el

Vivhvuaiwa
IV G

e 0,%0 050,088, % 8,% 0,0, MR
T P IR TR TR T o e S G Sy S LR
T DI PN T P TR WA

o
o
-fl-fl—fl-fl-‘-fl-fl-fl-i

OO\
LN =

ERPRES

8608
8609

WHY DROPT [.LUN] = CODE_7;

8606
8607

c
1
PAGE 196

begin
if .ERROUT then ERRHRD (217, MSG4,
0);

!xxax OPTION 2 ERROR 17 #nxx
UP_HARD_COUNT (.LUN, .BOARD):

else

end

begin
if .ERROUT then ERRSOFT (218, MSG3. 0):

Ixxxx OPTION 2 ERROR 18 saww
UP_SOFT_COUNT (.LUN, . BOARD);
en

else

begin
it .ERROUT then ERRSOFT (219, MSG3, 0);

!s+x* OPTION 2 ERROR 19 sew+

UP_SOFT_COUNT (.LUN, .BOARD);

end;
tes;

end;

v 16E
»
!* 16 ~

WPTR = .WPTR + (.WRDCNT*2):

SECTOR = .SECTOR + (.WRDCNT/256);

END OF COUNTING LOOP FOR LOOP READING

CZMLBBO PERFOR MANLE EXERCI?ER
OPT1 LEFINIT] OUN OF OPTION

SMLXS

MACRO M1113

(¢9-MAR-82 13:41

PAGE 197

1
SEQ 0209

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2

27-Mar-1982 19:23:44

end;

TOPS=20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (38)

'* 15 «

END OF SECTOR SELECTION LOOP

'* 14 «~

END OF

TEST FOR AN ACTIVE UNIT

‘e

:
'
<

Test to see if this uut's address space is
to be read for soft errors.
This test is
is

intended

for DMT purposes.

:g .EFNS21
en

!Is the background pattiern to be read

begin

]

; version czmlbb changed incr to incru
incru SECTOR from LOWEST to HIGHEST do

if read (.LUN, 256, RBUFF, .SECTOR) eql 5
then
begin
.
.
ISOLATE ();
!Find the failing bank and board no.

if .ERROUT then PRINTB (FMT108, .CHAN);
Print where the error is
Save the contents of the ML error location
register so we can compare

the new

contents of this register after the retry.

This is done to classity the error.

OLDSEC = .MLEL:

OLDCHN = .CHAN;

: Do a classify retry call.
If the same error
! occures then classify it as a hard error.
If
! a different error occured or the error went away
. then classify it as a soft error.

g; RETRY (ONE, .COMMAND,
]

:
:

.LUN, 256, .PTR, .OLDSEC) eql §

The same error occured so see if it is at the same
sector and channel number,
if so then classify

! it as a hard error else classiy it as a soft

; error.

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

29-MAR-82 13:41

PAGE 198

SEQ 0210

27-Mar-1982 19: 24:42
27-Mar=-1982 82 19:23:44

DEFINITION OF OPTION 2
then

8712 .MLX4
8713 ;
8714
8715 ;
8716 :
8717 :
£718 ;
8719 ;
8720 :
8721

MACRO M1113

CZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

begin

!Same error occured ‘hard’

if .ERROUT
then
begin

Print error if enabled

ERRHRD (220,
MSG4, ~

q 0);

end;

'Error number
!Error message

!Additional message routine

UP_HARD_COUNT (.LUN,
else

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S

end

begin

.BOARD);

!Not the same error ‘'soft’

if .ERROUT
!Print error if enabled
then
begin
ERRSOFT (221,
!Error number
MSG3,
~
!Error message
4 0); !Additional message routine
end;

UP_SOFT_COUNT (.LUN,

end

else

begin
if .ERROUT

then

.BOARD):

!Not the same error ‘soft’

IPrint error if enadled

beain

ERRSOFT_(222,
'Error number
MSG3, !Error message
.
0);
!Additional message routine
end;

UP_SOFT_COUNT (.LUN,

end;

.BOARD):

end;
end;
end;
end;

end;

8766

end;

Ix 13 «
v 12 «

END OF TESTLOOP2

v 11

END OF LOOP READING SECTION

END OF LOGICAL UNIT SELECTION LOOP

END OF PATTERN SELECTION LOOP

(38)

(ZMLBBO PERFORMANCE EXERCISER

OPT1

DEFINITION OF OPTION 1

8768 MLX4

g;gg :
8771 ;
g;;g :
8777

8781 054054
8782 054060
8783 054064

8784 054070
8785 054074
8786 054100

8787 054104
8788 054106

8789 054110
8790 054114
8791 054120
8792 054122
8793 054126
8794 0564130
8795 054134
8796 054140

MACRO M1113

29-MAR-82

13:41

PAGE

199

SEQ 0z11

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2
5553
5554
004167
162706
(12746

012746
012746
012746

010600
104414

005067
005767
001403
012705
000402
012705
010566
006366

8797 054144 005066
8798 054150 000167
8799 054154 004767
8800 054160 005767
8801 054164 003413
8802 054166 016746
8803 054172 012746
8804 054176 012746
8805 054202 012746
8806 054206 010600
8807 054210 104414
8808 054212 000417
8809 054216 016766
8810 054222 005466
8811 054226 016646
8812 054232 012746
8813 054236 012746
8814 054242 012746
8815 054246 010600
8816 054250 104414
8817 054252 016716
8818 054256 004767
8819 054262 016766
8820 054270 005005
8821 054272 000167
8822 054276 010500

27-Mar-1982 19:23:44

return;
end;
131254
000026
007634

oPTZ:

007344
007100
000003

MOV
MOV
MoV

MoV
TRAP

1565¢€2
156554

000001
000012
000032
000032
000030
003650
164706
156512

1%:
2s:

3s:

156504
010100
006126
000003

156456
000034
000034
010100
006142
000003

001462

CLR
ST
BEQ
MOV
B8R
MoV
MOV
ASL

CLR
JMP
JSR
TST
BLE
Mov

MOV
MoV
MOV

000034

156420

165150
125524

.SBTTL

JSR
SuB
MoV

4$:

5%:

000034

6$:

MoV
TRAP
BR
MOV
NEG
MOV
MOV
MOV
MOV
MOV

TRAP

MOV

JSR
Mov
CLR
JMP
Mov

1 «

END OF ROUTINE

OPT2 DEFINITION OF OPTION 2

R1,$SAVES
#26,SP
#RTN2 ,~(SP)

#MIRD34 ,~(SP)
#SAYZ,=(SP)
#3,-(SP)

SP,.RO
14

PATTERN
QUICK
13
#1,RS
23
#12.R5
RS.32(SP)
32(SP)

30(SP)
74%
PC,SELPAT
PATTERN
43
PATTERN,=(SP)
#PHRS , = (SP)
#FMTIA,.-(SP)
#3,-(SP)
SP.RO
14
5$
PATTERN,34(SP)
24(SP)
34(SP) ,=-(SP)
#PHR9,~(SP)
#FMT1B,-(SP)
#3,-(SP)
SP.RO
14
PATTERN, (SP)
PC,GEN?
LSUNIT,34(SP)
RS
33s
R5,RO

TOPS=-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (38)

4982

5045

; SPx
:
:

5047
5049

* ,MAXPAT

. % , MAXPAT
¢ MAXPAT
»

5051

: COUNT
H
:

5053
5055

5057

: SP,x

:
; «, TEMP
: TEMP
; TEMP,x

5055
5061
5062

: SP,x
:

5066

H
: LUN

5068

; LUN,»

5073

CZMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION 2

MACRO M1113

sMLX4
:

8827 054300 006200
8828 0564302 006200
8829 054306 006200
8830 054307, 062700
8831 05451 010046
8832 054314 010546
8833 054316 0642716
8834 054322 012746
8835 054326 005046
8836 054330 004767
8837 054334 062706
8838 0564340 005300
8839 054342 001127
8840 054344 010567
8841 054350 012767
8842 054356 012767
8843 0543664 010501
8844 054366 006301
8845 054370 016104

8852 054416
8853 054420
8854 054424
8855 054426
8856 054430
8857 054434
8858 054436
8859 054442
8860 054444
8861 054450
8862 054452
8863 054456
8864 054462
8865 054464
8866 054466
8867 054472

8868 054474

8869 054500
8870 054504
8871 054506
8872 054510
8873 054516
8874 054520
8875 054522
8876 054526
8877 054526
8878 054530

020461
101110
010446
016146
004767
010002

010216
004767
010516
010246
016746
010446
004767
010003
020327
001031
012746
012746
010546
010246
016746
010446

004767

062706
005700
001446
112765
104455
000311
011070
000000
010500
104451

034442
177770
000001

130022
000010
125524
012670
022670

156312
156306

034460

034500

78:

034500
172562

156234

170762

000001
000006
045424

156176

171524

ASR
ASR
ASR
ADD
MoV
MOV
BIC
MOV
CLR
JSR
ADD
DEC
BNE
MOV
MOV
MOV
MOV
ASL
MOV

cMP
BHI
MOV
MoV
JSR
MOV

JSR

000014

034446

27-Mar=1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 2

MOV
JSR
MOV
MOV
MOV
MOV
JSR
MOV
CMP
BNE
MOV
MOV
MOV
MOV
MOV
MoV

172506

000004

6
1
PAGE 200

SEQ 0212

8824
gggg

8846 054374
8847 054400
8848 054402
8849 054404
8850 054410
8851 054414

29-MAR-82 13:41

ADD
TST
BEQ
MOVB

TRAP
WORD
.WORD
.WORD
MOV
TRAP

RO
RO
RO
#DRIVE.STATUS.RO
RO,=-(SP)
RS~ (SP)
#1%7770, (SP)
#1,-(SP}
-($P)
PC,BLSGT2
#10,sP
RO
118
RS,LSLUN
#UBUFF ,WPTR
#RBUFF .RPTR
RS,R1
R1
LOW.SECT(R1) ,Ré4

R&,TOP.SECT(R1)
11§
R&,=(SP)
TOP.SECT(R1),~(SP)
PC,GET.WRDCNT
RO.R2

R2, (SP)
PC,SET.PTRS
RS. (SP)
R2,-(SP)
WPTR.=(SP)
R&,=(SP)
PC.WRITE
RO.R3
R3.M
8s$
#6,-(SP)
MIRITE,=(SP)
RS5,=(SP)
R2,~-(SP)
WPTR,=(SP)
R%,=(SP)

PC.RETRY

#14,5P
RO
128
#&,WHY.DROPT(RS)
55
371
MSG1
0
RS.RO
57

TOPS
PA:<

: LUN,*

; LUN,*
:
:
: LUN,*

5076
5077
5078
5079

; *,SECTOR

SECTOR,*

5081

; SECTOR,*

5083

; *,WRDCNT
* WRDCNT,*

5084

: LUN,*
* WRDCNT,
*

5085

; SECTOR,*
: *,VALUE
: VALUE,*

5091

5097

: LUN,*
¢ WRDCNT,*
: SECTOR,*

; %, %(LUN)
:

5100
5101

; LUN,*

5102

CZMLBBO PERFORMANCE EXERCISER

OPTZ DEFINITION OF OPTION 2

MACRO M1113

054534
8885 054540
8886 054542

SMLX4
;

000431

020327
001012
112765

8887 054550
8888 054552
8889 054554
8890 054556
8891 054560
8892 054562
8893 0546564
8894 054566
8895 054572
8896 054574
8897 054576
8898 054600
8899 054602
8900 054604
8901 054612
8902 054614
8903 054616
8904 054622
8905 054626
8906 054630
8907 054634
8908 054640
8909 054644
8910 054646
8911 054652
8912 054660
8913 054662
8914 054664
8915 054670
8916 054672

104455
000312
011070
000000
010500
104451
000414
020327
001014
104455
000313
011070
000000
112765
010500
104451
062706
000537
004767
010066
005066
020027
001015
005266
016766
010546
010246
016746
010446
004767

8918 054700
8919 054706
8920 054710
8921 054712
8922 054716
8923 054720
8924 054724
8925 054726
8926 054730
8927 054736
8928 054740

016766
010546
010246
016746
010446
004767
010003
001076
032766
001513
016746

8917 054676

8929 054744
8930 054750
8931 054752

8932 054756
8933 054762

8934 054766

000412

016746
010246
004767

062706
010066

001477

000002
000005

8s:
034446

000003

000006

95:

033446

000012

108:

11$:
128:

171336

000034
000040
045612
000040
156014

156002

000036
> .
,

170714

155764

000036

13$:

155752

1710564
000001

155724
155722

167350

000006
000060

H
1
PAGE 201

SEQ 0213

8880
ggg;

8883 054532

29-MAR-82 13:41

148:
000050

27-Mar=1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 2

B8R

cMP
BNE
MOVB

108

TRAP
.WORD
-WORD
JWORD
MOV
TRAP
8R
cMP
BNE
TRAP
WORD
-WORD
.WORD
MOVB
MoV
TRAP
ADD
BR
JSR
MOV
CLR
CMP
BNE
INC
MOV
MoV
MoV
MoV
MOV
JSR

55
372
MSG1
0
RS.RO
51
10s
R3,43
12§
55
313
MSG1
0
#6.WHY.DROPT
(RS)
RS.RO
51
#12,5P
158
PC. CHOOSE
RO, 34 (SP)
40(SP)
RO, #READ
13§
40(SP)
RPTR, 36 (SP)
RS,=(SP)
R2.-(SP)
RPTR,~(SP)
R4 ,~(SP)
PC .READ

Mmov
MoV
MOV
MOV
MOV
JSR
MOV
BNE
BIT
BEQ
MOV

WPTR,36(SP)
RS,~(5P)
R2.=(SP)
WPTR,=(SP)
Ré,=(SP)
PC.CHECK
RO.R3
168
#1,50(SP)
17%
WPTR,~(SP)

B8R

MOV
MOV
JSR

ADD
MOV

BEQ

R3,#2
93
#5.WHY.DROPT(RS)

* VALUE,*

:
:

%, % (LUN)

TOPS
PA:<

5103
5091

5110
5111

: LUN,*

5112

;
¢ VALUE,w

5113
5091

;

5118

; %, % (LUN)
: LON,
*

5119
5120

5121

5125

* %, COMMAND
:
¢ COMMAND,
*

5127

; *,PIR
¢ LON,*
* WRDCNT,
*

5130
5131

; SECTOR,*

14$

RPTR.=(SP)
R2,~(SP)
PC.DOUBL
. CHECK
E

#6.SP
RO.60(SP)

17§

; *,PTR
:LUN,
%
¢ WRDCNT,*

5135
5136

: SECTOR,*
; *,VALUE
:
:

5143
5148

5152

; WRDCNT,+
;

*,DBL.VALUE

CZMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION 2

MACRO M1113

sMLXG

gggg

8943 055006

8944 055012
8945 055014
8946 055016
8947 055022
8948 055026
8949 055032
8950 055036
8951 055040
8952 055042
8953 055050
8954 055054
8955 055060
8956 055064
8957 055070
8958 055072
8959 055074
8960 055102

8961 055104

8962 055106
8963 055110
8964 055112
8965 055114
8966 055116
8967 055172
8968 055124
8969 055130
8970 055132
8971 055136
8972 055142
8973 055144
8974 055146
8975 055152
8976 055154

8977 055160

8978 055164

8979 055166
8980 055170

8981 055174
8982 055202

8983 055204

8984 055206
8985 055210
8986 055212

8987 055214
8988 055216
8989 055220
8990 055224

:
010546
004767
012716
012746

012746

010600
104414
016516
017646
012746
012746
010600
104414
062766
016616
017646
012746
012746
010600
104414
112765
104455

000002

000010

000074

034446

000314

011070
000000
010500
104451
062706
000510
020327
001033
012746
016646
010546
010246
016646
010446

004767

062706

005700

001002
000167
112765
104455

15$:

000001

168:

000006
000046

000056
171044

5156

MOV
TRAP
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MoV
TRAP
MOVB
TRAP

SP.RO
14
66(SP) , (SP)
266 (3P) ,~(SP)
#FMT12A
- (SP)
#3,-(SP}
SP.RO
14
#10000,74(SP)
74(SP) . (SP)
@74 (SP) ,=(SP)
#FMT128.~(SP)
#3,~(SP}
SP.RO
14
#10.WHY.DROPT(R5)
55

: SP,w

-WORD
-WORD
MOV
TRAP
ADD
BR
(MP
BNE
MOV
MoV
MOV
MOV
MOV
MoV

MSG1
0
R5,R0
57
#44,SP
238
R3, 41
19§
#6.~(SP)
46(SP) ,=(SP)
R5,~(SP)
R2,~(SP)
56(SP) ,~(SP)
R&,=-(SP)

000520

000004

ADD
17$:
034446

188:

000315

011070
000000
010500

104451
000450
020327
001012

5155

JSR

000014

BNE
JMP
MOVB
TRAP
.WORD

.WORD
.WORD
MOV

000002

198:

TOPS

PA:<

: LUN,*

WORD

000044

27-Mar-1982 19:23:44

RS,=(SP)
PC.SAYWHO
#MSGS ., (SP)
#SA
.~Y1
(SP)

MOV

000066
000066
006710
000003

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2
MoV
JSR
MOV
MOV

160526
011216
007072

010000
000074
000074
006756
000003

I
1
PAGE 202
SEQ 0214

8936

8939 054770
8940 054772
8941 054776
8942 055002

29-MAR-82 13:41

TRAP
B8R
(Mp
BNE

#2,-(5P)

374

PC.RETRY

; DBL.VALUE,*
; DBL.VALUE
.+

5157

; SP*

; *,DBL.VALUE
: DBL.VALUE,*
: DBL.VALUE.*

5159
5160

; SP,%

;
:

%, %(LUN)

5162
5163

|
; LUN,*

5164

;

5165’

: VALUE,*

5143

;
¢
:
*
*

5173

COMMAND,
*
LUN,*
WRDCNT,
*
PIR,*

¢ SECTOR,+

#14,SP

188
378

#4.WHY.DROPT(RS)
55

;
:

MSG1
0
RS.RO

; LUN,*

5178

:
: VALUE,*

5179
5143

315

51
228
R3, 42
208

%, %(LUN)

5176
5177

(IMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION 2

MACRO M1113

8996 055236

8997 055236
8998 055240
8999 055242
9000 055244
9001 03,246

9002 055250
9003 055252

9004 055256
9005 055260
9006 055262

9007 055264
9008 055266
9009 055270

SMLXG
:
112765

104455

000433

020327

001012
104455
000317

011070
000000
112765

010500

9012 055302

000416

9013 055304
%014 055310
9015 055312
9016 055316
9017 055320
9018 055322
9019 055324
9020 055326

0364446

000003

TRAP

000006

208:

104451

020327
001017
004767
104455
000320
011120
000000
112765
9021 055334 010500
9022 055336 104451
9023 055340 062706
9024 055344 000167
9025 055350 020327
9026 055354 001157
9027 055356 004767
9028 055362 032767
9029 055370 001423
9030 055372 0177200
9031 055376 006200
9032 055400 006200
9033 055402 006200
9034 055406 006200
9035 055406 006200
9036 055410 006200
9037 055412 042700
9038 055416 010046
9039 055420 012746
9040 055426 012746
9041 055430 010600
%@Ofiuz1mua
9043 055434 062706
9044 055440 017766
9045 055446 017700
9046 055452 006200

218:

162014

000007

034446

000022
000406
000005

161750
000001

228:
238:
248:

124670

157012

177700

006640
000002
000006
156746
156736

000052

258:

316
MSG?
0
RS.RO
51

(TMp

R3.43

B8R

BNE
TRAP
.MORD

228

218
55
317

MSG1
0
#6.WHY.DROPT(RS)

;

%, % (LUN)

: LUN,*

5189

5194

5195
5196

B8R

228

R3, 44
248
PC.ISOLATE
55
320
MSG2
0
#7.WHY.DROPT(RS)
R5.R0
51
#22,5P
328
R3, 45
318
PC.iSOLATE
#1.ERROUT
25§
aML.REG+42,R0
RO
RO
RO
RO
RO
RO
#177700,R0
RO,~(SP}
NFMT108,~(SP)
#2,-(SPJ
SP.RO
14
#6,5P
ML .REG+44 ,52(SP)
aML.REG+42 RO
RO

5188

;

: *,%(LUN)
: LON,*

(MP
BNE
JSR
TRAP
.WORD
.WORD
.WORD
MOVB
MoV
TRAP
ADD
JUMP
CMP
BNE
JSR
BIT
8EQ
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
ASR

5186

5187

5143

RS.RO

TOPS
PA: <

: VALUE,*

MOV

TRAP

000004

#5,WHY.DROPT(RS)

LWORD
-WORD
JWORD
MOV
TRAP

-WORD
JWORD
MOVB

034446

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 2

MOVB

000316
011070
000000
010500
104451

9010 055276

9011 055300

000005

J
1
PAGE 203
SEQ 0215

8992
gggz
8995 055226

29-MAR-82 13:41

5197

: VALUE,*

5143

:
:

5202
5203

: %, %(LUN)

5204

: LUN,*

5205

5206

; VALUE,*

5143

:
:

5211
5213

; SP.%

; *,0LDSEC
:

5216
5217

OPT2 DEFINITION GF OPTION 2

MACRO M1113

sMLXG

8828

9068 055536
9069 055544

9070 055546

006200
006200
006200
606200
006200
042700
010066
012746
016646
010546
010246
016646
010446
004767
062706
020027
001051

027766
001034

016646

000056

170500
000014
000005

000052

CMP

000054

9071 055552 017700
156632
9072 055556 006200
9073 055560 006200
9074 055562 006200
9075 055564
006200
9076 055566 006200
9077 055570 006200
9078 055572 042700
177700
9079 055576 020026
9080 055600 001016
9081 055602
032767 000001
9082 055610 001404
9083 055612
104456
9084 055614 000321
9085 055616 011202
9086 055620 000000
9087 055622 010546
9088 055624
016746
156512
9089 055630 004767
161566
9090 055634
000426
9091 055636 032767 000001
9092 055644
001415
9093 055646
104457
9094 055650 000322
9095 055652 011166
9096 055654
000000
9097 055656 000410
9098 055660 032767 000001
9099 055666 001404
9100 055670
104457
9101 055672 000323
9102 055674
011166

268:

124414

278:

124372

28%:

RO
RO
RO
RO
RO
#177700.R0
RO,
54 (SP)
#1.~(SP)
46(S
. ~(SP)
P)
RS,~(SP)
R2,=(SP)
$6(SP) ,=(SP)
R4, =(SP)
PC .RETRY
#14,SP
RO, #5
288

COMMAND
,+
LUN,*
WRDCNT,«
PTR,
*
SECTOR,»

*,0LDSEC

54 (SP) ,~(SP)

OLDCHN,
«

278

MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
CMP
BNE
8IT
BEQ
TRAP
.WORD
-WORD
JWORD
MOV
MOV
JSR
BR
BIT
BEQ
TRAP
.WORD
.WORD
.WORD
B8R
BIT
BEQ
TRAP
.WORD
-WORD

aML.REG+42,R0
RO
RO
RO
RO
RO
RO
#177700,R0
RO, (SP)+
27%
#1,ERROUT
268
56
321
MSG4
0
RS,=~(SP)
BOARD,~ (SP)
PC,UP.HA
. COUNT
RD
308
#1,ERROUT
29%
57
322
MSG3
0
29
#1 _ERROUT
29§
57
323
MSG3

TOPS
PA:<

*,OLDCHN

aML .REG+44,52(SP)

BNE

MOV

124450

27-Mar-198 2 19:24 142
27-Mar-198 2 19:23 144

DEFINITION OF OPTION 2
ASR
ASR
ASR
ASR
ASR
BIC
MOV
MOV
MOV
MoV
MOV
MOV
MOV
JSR
ADD
CMP
BNE

177700
000054
000001
060046

156650

K
1
PAGE 204

SEQ 0216

9048

9051 055454
9052 055456
9053 055460
9054 055462
9055 055464
9056 055466
9057 055472
9058 055476
9059 055502
9060 055506
9061 055510
9062 055512
9063 055516
9064 055520
9065 055526
9066 055530
9067 055534

29-MAR-82 13:41

AR TR PR TN FE FE

(/MLBBO PERFORMANCE EXERCISER

52195
|

5222

5226

LUN,*

9141 056044

9142 056050
9143 056052

9144
9145
9146
9147
9148

056056
056062
056064
056066
056072

9149 056076
9150 056104
9151 056112
9152 056114

9153 056116

9154 036122

9155 056126
9156 056130
9157 056132
9158 056136

062700

010046
010546
042716

012746

005046
004767

062706
005300
001402
000167
010567

012767
012767
010501
006301

016104

020461

101357
010446
016146
004767

308:
31s:

744
740

400

156434
162172

226

000024
176416

32%:
338:

000034
176304
154676
002014
124002

34%:

000034

001766

35%:
36%:

034442
177770

000001

126300
000010

154564
154560

37%:
38s:

39%:

. WORD
MOV
MOV
JSR
MoV
ASL
ADD
MOV
MoV
MoV

JSR
ADD
MOV
ADD
JMP
INC

8GE
JMP
IST
BEQ
JMP
MoV
CLR
JMP
MOV
ASR
ASR
ASR
ADD
MOV
MOV
BIC
MOV
CLR
JSR
ADD
DEC
BEQ
Mov
MoV
Mov
MOV
ASL
MoV

CMP
BH1
MOV

JSR

0
R5,=(SP)
BOARD, ~(SP)

LUN,
*

(SP)+,(SP)+
R2,RO
RO

WRDCNT,
«

RO,WPTR
R2,(SP)
#400,-(SP)

WRDCNT,

RO,R4

*,SECTOR

TOPS
PA:<

5243

PC,UP.SOFT.COUNT

WPTR,RO

PC,BLSDIV
R4 ,RO

SECTOR,~

#24,SP

7$
RS
R5,34(SP)
43

LUN

5082
5081
5068

5258
kSUNIT.34(SP)
LUN

728
R5 RO
RO
RO
RO

LW.*

5299

5304

#DRI
. STATU
VE
S RO

RO,-(SP)
RS .-(SP)

LUN,*

#177770,(sP)

#1,-(SP)
-(§°)
PC,BLSGT2
#10,5P
RO

38¢
408
RS,LSLUN

NWBUFF ,WPTR
#RBUFF ,RPTR

RS5.R1
R1

LUN,
=

LUN,*

2888

9138 056034
9139 056036
9140 056040

29%:

27=-Mar-19 82 19:24 142
27-Mar-19 82 19:23 144

DEFINITION OF OPTION 2

OV~

9137 056030

000167
005205
020566
002002
000167
005767
001402
000167
016766
005005
000167
010500
006200
006200
006200

1
SEQ 0217

000000
010546
016746
004767
022626
010200
006300
066700
010067
010216
012746
004767
060400
010004
062706

PAGE 205

WAV

9122 055752
9123 055756
9124 055760
9125 055764
9126 055766
9127 055772
9128 055776
9129 056000
9130 056004
9131 056012
9132 056014
9133 056020
9134 056022
9135 056024
9136 056026

29-MAR-82 13:41

JMLXG

9104
9105
9106
9107 055676
9108 055700
9109 055702
9110 055706
9111 055712
9112 055714
9113 055716
9114 055720
9115 055724
911, 055730
9117 055732
9118 055736
9119 055742
9120 055744
9121 055746

MACRC M1113

e Sane w,

CZMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION 2

LOW.SECT(R1), R4
R4, TOP.SECT(R 1

*,SECTOR
SECTOR,*

5312

R&,=-(SP)

SECTOR,

5314

378

TOP.SECT(R1) ,~(SP)
PC,GET.WRDCNT

CZMLBBO PERFORMANCE EX E RCIST>
OPT¢ DEFINITION OF OPT I ON 2

MACRO M1113

29-MAR-82 13:41

SEQ 0218

9160
9161

sMLXS

9191 056302
9192 056306
9193 056310
9194 056314
9195 056320
9196 056324
9197 056326
9198 056330
9199 056334
9200 056340
9201 056344
9202 056350
9203 056352
9204 056354
9205 056360
9206 056364
9207 056370
9208 056374
9209 056376
9210 056400
9211 056406
921¢ 056412
9213 056416
9214 056422

PC.SET.PTRS
PC . CHOOSE

000032
045612

RO.26(SP)
#1.32(5P)

40%:

24(5P)
26 (SP) ,#READ

418
24 (SP)
RPTR, 30(SP)
RS.,~(SP)
R2.-(SP)

000030

154444

RPTR.,=(SP)

R4 ,-(SP)
PC,READ

167356
154426

000030

41%:

154414
167516

001513
016746

016746
010246
004767
062706
010066
001477
010546
004767
012716
012746
012746
010600
104414
016616
017646
012746
012746
010600
104414
062766
016616
017646
012746
012746

000001

42%:

5315
5316
5318
5321

5324
5325

*,PTR

5329
5330

#1,34(SP)

448

PC,DOU
.BLE
CHECK

R2,=(SP)

WRDCNT,«

#6,SP
RO.52(SP)

*,DBL.VALUE

RS,=(SP)

LUN,*

448

PC. SAYWHO

#MSGS, (SP)
#SAY
.- (SP)
1
#2,-(5P)

0707
000002

TRAP

000060
000060
006710
000003

TOPS
PA:<

SECTOR,»

*,VALUE

166012
000006
000052

010000
000066
000066
006756
000003

* PTR

LUN,
*
WRDCNT
,»

RO.R3

WPTR,~(SP)
RPTR,=(SP)

1121

COMMAND
,»

SECTOR,
*

154366
154364

5717

* KOUNT

R4 ,~(SP)

43$

000034

* , COMMAND

LUN,
*
WRDCNT,

PC.CHECK

: 24 142
:23 144

*, WRDCNT

WRDCNT
,»

428
WPTR,30(SP)
RS5,~(SP)
R2.~(SP)

WPTR,=(SP)

9189 056274
9190 056276

000026
000001
000024
000026
00Cn24
1564456

010446

RO.R2
R2. (SP)

170760
170010

9178 056230
9179 056234
9180 056236
9181 056244
9182 056246
9183 056250
9184 056254
9185 056256
9186 056262
9187 056264
9188 056266

004767

27-Ms--198
27-Mar-198

DEFINITION OF OPTION 2

010002
9166 056152
9167 056156
9168 056162
9169 056170
9170 056174
9171 056202
9172 056204
9173 056210
9174 056216
9175 056220
9176 056222
9177 056226

n1
PAGE 206

60(SP) , (SP)

000066

SF,«

DBL.VALUE,
*
DBL . VALUE,
*

§:.Ro

SP,*

#10000,66(SP)
66(SP) - (SP)

ab6(SP) ,=(SP)

MoV

5350

a60(SP) ,~(SP)

#FMT12A.=(SP)
#3,-(SP)

#EMT128.~(SP)

#3,-(SP§

5349

*,DBL
. VALUE

DBL.VALUE,*
DBL.VALUE,
*

5352

]CZMLBBO PERFORMANCE EXERCISER
OPTZ DEFINITION OF OP/ION 2

MACRO M1113

IMLXG

gg}g

9219 056426
9220 056430
9221 056432
9222 056440

9223 056442

9224 056444
9225 056446

9226 056450
9227 056452
9228 0564546
9229 056460
9230 056462

9231 056466
9232 056470
9233 056476
056500
056502
056504
056510

010600
104414
112765
104455

000324

010500
104451
062706

000510
020327

001033
012746
016646

010546
010246
016646
010446

004767
062706
005700
001002
000167
112765
104455
000325
011070
000000
010500

9250 056554
9251 056556
9252 056562
9253 056564
9254 056572
9255 056574
9256 056576
9257 056600
9258 056602

000450
020327
001012
112765
104455
000326
011070
000000
010500

9259 056604
9260 056606
9261 056610
9262 056614

9263 056616
9264 056620
9265 056622

9266 056624
9267 056626
9268 056634
9249 V56636
9270 156640

034445

000036
000001

438:

000006
000040
000050

167506
000014

000520
000004

44$:

034446

45$:

104451

104451
000433
020327
001012

000005

468:
034446

000003

478:

104455
000327
011070

000000
112765
010500
104451
000416

MOV
TRAP
MOVB
TRAP

SP,RO
14
_
#10.WHY.DROPT{RS)
55

.WORD
.dORD

MSG1
0

RS5.RO
57
#36,SP

BNE
MOV
MOV

468
#6,=(SP)
40(SP) ,~(SP)

BR
CMP

000006

034446

508
R3,#1

MoV
MOV
MOV
MOV
JSR
ADD
ST
BNE
JMP
MOVB
TRAP
.WORD
.WORD
WORD
MOV

RS,=(SP)
R2.=(SP)
50(SP) ,~(SP)
R&,=(SP)
PC.RETRY
#14,SP
RO
45%
58$
#4,WHY.DROPT(RS)
55
325
MSG?
0
RS.RO

BR
(MP
BNE
MOVB
TRAP
.WORD
-WORD
WORD
MOV

493
R3, 42
47§
#5,WHY.DROPT(RS)

TRAP
BR
CMP

8BNE
TRAP
.WORD
.WORD
.WORD
MOVB
MOV
TRAP

27-Mar-1982 19:23:44

324

MoV
TRAP
ADD

TRAP

000002

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2

L.WORD

011070
000000

9238 056512
9239 056516
9240 056522
9241 056524
9242 056526
9243 056532
44 056540
9245 056542
9246 056544
9247 056546
9248 056550

9249 056552

000010

N
1
PAGE 207

SEQ 0219

9216

9234
9235
9236
9237

29-MAR-82 13:41

326
MSG1
0
RS.RO

57
498
R3,43

488
5§
327
MSG1
0
#6,WHY.DROPT(RS)
RS.RO
6]

498

;

SP,»

:
:

%, *(LUN)

TOPS

PA:<

5357
5358

: LUN,*

5359

5360

;

VALUE,*

5337

;
: COMMAND,*

5368

s %, %(LUN)
:

5371
5372

; LUN,*

5373

:
: VALUE,»

5374
5337

¢
:
:
¢

LUN,*
WRDCNT
%
PTR.*
SECTOR,

; *,*(LUN)

5381

5382

; LUN,*

5383

:
: VALUE,*

5384
5337

;

5389

: %, %(LUN)
: LON,*
:

R
5390
5391
5392

MACRO M1113

9272

9280 056660
9281 056662
9282 056664
9283 056672
9284 056674

9285 056676
9286 056702
9287 056706

9288 056712
9289 056714
9290 050720

9291 056726
9292 056730

9293 056734
9294 056736
9295 056740
9296 056742
9297 056744
9298 056746
9299 056750
9300 056754
9301 056756
9302 056762
9303 056766
9304 056770
9305 056772
9306 056776
9307 057004
9308 057010
9309 057012
9310 057014
9311 057016
9312 (57020
9313 057022
9314 0570246
9315 057030
9316 057034
9217 057040
9318 057044
9319 057046
9320 057050
9321 057054
9322 057056
9323 057062
9324 057066
9325 057072
9326 057074

M
020327
001017
004767
104455
000330

011120
000000
112765
010500
106451

062706
000167
020327

001157
004767
032767

001423
017700

006200
006200
006200
006200
006200
006200
042700
010046
012746
012746
010600
104474
0€2706
017766
017700
006200
006200
006200
006200
006200
006200
042700
010066
012746
016646
010546
010246
016646
010446
004767
062706
020027
001051
027766

000004

48%:

160456

000007

034446

000014
001076
000005

160412
000001

49%:
508:
51%:

123332

155454

177700

004,640
050002
000006
155410
155400

000044

177700
000046
000001
000040

000050
167142
000014
000005
155312

000044

52%:

B 2
PAGE 208
SEQ 0220

sMLXG

85;2
9275 056642
9276 056646
9277 056650
9278 056654
9279 056656

29-MAR-82 13:41

27=Mar-198 2 19: 24 142
27-Mar-1982 1 9: 23 244

DEFINITION OF OPTION 2
CiAP
BNE
JSR
TRAP
.WORD
.WORD
MWORD
MOVB
MOV
TRAP
ADD
JMP
CMP
BNE
JSR
BIT
BEQ
MoV
ASR
ASR
ASR
ASR
ASR
ASR
BIC

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR
8IC
MOV
MOV
MOV
MOV
MOV
MOV
MOV
JSR
ADD
CMP
BNE
cmp

R3, 44
518%
PC,ISOLATE
55
330

VALUE,
*

MSG2
O
#7 ,WHY .DROPT(RS)
R5,RO
51

*, % (LUN)

LUN,*

#14,SP
718
R3,45

5337

5399
5400
5401

VALUE
,

58$%
PC,ISOLATE
#1_ERROUT

5337
5406
5408

528
aML.REG+42,R0
RO
RO
RO
RO
RO
RO
#177700,R0

RO,-(SP)
#FMT108,-(SP)
#2,-(SP)
SP.RO
14
#6,SP
oML .REG+44,44(SP)
aML.REG+42,R0
RO
RO
RO
RO
RO
RO
#177700,R0
R0O,46(SP)
#.,-(SP)
40(SP) ,-(SP)
R5,-(SP)
R2,-(SP)
SU(SP) ,-(SP)
R4 ,-’SP)}
PC.RETRY
#14,SP
RO, A5
558
aML.REG+44 44 (SP)

TOPS
PA:<

5397
5398

SP,x

*,0LDSEC

e8P ReDa®s vy 0,

CZMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION 2

*,0LDCHN
COMMAND
,+
LUN,

5613

WRDCNT
,»
PIR,*
SECTOR,
«

*,0LDSEC

5616

29-MAR-82 13:41

177700

000001

52s.

155154
160230

9352 057172
9353 057174
9354 057202
9355 057204
9356 057206
9357 057210
9358 057212
9359 057214
9360 057216
9361 057224
9362 057226
9363 057230
9364 057232
9365 057234

000001

9366 057236
9367 057240
9368 057244
9369 057250
9370 057252
9371 057256

123056

123034

000010
000032
000032

176672

9376 057300

9377 057302
9378 057306

153362
153356

060400

000400
125644

54%:

55s:

56%:

155076
160634

9372 057262
9373 057270
9374 057272
9375 057276

9379 057312
9380 057314
9381 057320
9382 057324

123112

57%:
58%:

000002
59%:

27-Mar-198 2 19:24 142
27-Mar-1982 19:2 3 144

DEFINITION OF OPTION 2
BNE
MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR
8I1C
CMP
BNE
8IT
BEQ
TRAP
-WORD
-WORD
-WORD
MoV
MoV
JSR
BR
BIT

BEQ
TRAP
-WORD
.WORD
. WORD
BIT
BEQ
TRAP
.WORD
-WORD
. WORD
MoV
MoV
JSR
ADD
INC

CMP
86T
JMP
MOV
ASL

ADD
MOV
MoV
MoV
JSR
ADD

548
46(SP) ,-(SP)
gflL.REG*éZ,RO

TOPS
<
PA:

OLDCHN,
*

R
#177700,R0
RO, (SP)+

548

#1 ,ERROUT

53§

5420

56
331

MSGé4
0

R5,~(SP)

BOARD
= (SP)
,

LUN,*

PC,UP.HA
. COUNT
RD

578

#1,ERROUT
568

57
332
MSG3
0
56%

5631
5437

#1,ERROUT

568
57
333
MSG3
0
R5,=(SP)

BOARD ,-(SP)
PC,UP.SOFT.COUNT

LUN,
=

(SP)+,(SP)+

#10,SP

32(sP)
32(SP)
42
59%
408
R2,RO

KOUNT
KOUNT,»

5439

NN NINNNNNIN
N W
e b emed ok b ol v e ad
NN N NN
= b 2 OO
»HO OB NOONSO £
-

NOMNASS
N

[elelelelels] VOO0OLOOO
(L n v vV vyViviUWAI LAWY

Nl o1V}

WIWNN
W

O
W
&~
N

017700

2
SEQ 0221

sMLXG
011034
016646

€

PAGE 209

[- -2-1V

MACRO M1113

[a¥17,)

CZMLBBO PERFORMANCE EXER(I
OPT2 DEFIN ITICN OF OPTION

RO
WPTR,RO
RO.WPTR
R2: (SP)

WRDCNT,»

5447

WRDCNT
,+

5448

PC.BLSDIV
R4 .RO

SECTOR,
«

#400,-(sP)

(ZMLBBO PERFORMANCE EXERCISER
OPTZ2 DEFINITION OF OPTION 2

MACRO M1113

9421
9422
9423
9424
9425

057502
057506
057510
057516
057522

9426 057524

9427 057526
9428 057530

9429 057532

9430 057534

v431 057536
632 057542
9433 057546

9634 057552

9435 057556
9436 057560

9437 057564
9438 057570

s MLXG
:
010004
062706 000006
000167
176562
032767 000001
001002
000167 000430
010500
006300
016066
034500
016001
036460
000577
010546
012746
000400
012746
022670
010146
004767
166176
062706 000010
020027 000005
001161
004767 157700
032767 000001
001423
017700
154742
006200
006200
006200
006200
006200
006200
042700
177700
010046
012746 006640
012746 000002
010600

104414
062706
017766
017700
006200

000006
154676
154666

006200

042700
010066
012746
016646
010546
012746
016646
016646

122714

60$:

61:
000526
628:

122620

000030

63$:

MOV
ADD
JMP
BIT
BNE
JMP
MOV
ASL
MOV
MOV
8R
MOV
MOV
MOV
MOV
JSR
ADD
CMP
BNE
JSR
BIT
BEQ
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV
MOV
MOV
MOV

TRAP
ADD
MOV
MOV
ASR

000400
000034
000042

RO.R&
#6.SP
39%
#1_EFNS21
61%
718
RS,RO
RO
TOP. SECT(RO) ,26(SP)
LOW.SECT(RO) .R1
708
RS,~(SP)
#400,~(SP)
#RBUFF ,=(SP)
R1,=(SP)
PC .READ
#10,SP
RO, 45
69§
PC.ISOLATE
#1.ERROUT
63§
aML .REG+42,R0
RO
RO
RO
RO
RO
RO
#177700,R0
RO, -(SP}
#FMT10B,~(SP)
#2,~(SPJ
SP.RO

14
#6,SP
ML .REG+44,30(SP)
aML .REG+42 RO
RO

RO
RO

ASR

BIC
MOV
MOV
MOV
MOV
MOV
MOV
MOV

;
:
:
:

5313
5312
5459

; LUN,*
;

5466

*,SECTOR

; LUN,*

;

TOPS
PA:<

*,SECTOR

5468

SECTOR,*

:
:

5471
5473

; So,x

; %,0LDSEC
:

5482
5483

: *,0LDCHN
:
> COMMAND,
s LUN,*

5491

ASR
ASR

ASR
177700
000032
000001
000024

27-Mar-1982 19:24:42
27-Mar-1982 19:33:44

DEFINITION OF OPTION 2

ASR

006200
006200

02
PAGE 210
SEG 0222

9384
3%32
9387 057326
9388 057330
9389 057334
9390 057340
9391 057346
9392 057350
9393 057354
9394 057356
9395 057360
9396 057366
9397 057372
9398 057374
9399 057376
9400 057402
9401 057406
9402 057410
9403 057414
9404 057420
9405 057424
9406 057626
9407 057432
9408 057440
9409 057442
9410 057446
9411 057450
9412 057452
9413 057456
9414 057456
9415 057460
9416 057462
9417 057466
9418 057470
9419 057474
9420 057500

29-MAR-82 13:41

#177700,R0
RO,32(SP)
#1.-(SP)
24(SP) ,=(SP)
RS,=(SP)
#400.~(5P)
34(SP),~(5P)
42(SP) .~(SP)

: PTR,*
: OLDSEC.*

CCMLBBO PERFORMANCE EXERCIS
SER
OPT2 DEFINITION OF OPTION 2

940
941
9442
9443 057574
9444 057600
9445 057604
9446 057610
%47 057612
9448 057620
9449 057622
9450 057626
9451 057632
9452 057634
9453 057636
9454 057640
9455 057642
9456 057644
9457 057646
9458 057652
9459 057654
9460 057656
9461 057664
9462 057666
%63 057670
%64 057672
9465 057674
9466 057676
9467 057700
9468 057704
9469 057710
9470 057712
9471 057720
9472 057722
%73 057724
9474 057726

29-MAR-82 13:41

004767
062706
020027
001051
027766
001034
016646

017700

006200
006200
006200
006200
006200
006200
062700

020026
001016
032767
001404

104456
000334
011202
000000
010546
016746
004767
000426

032767

001415
104457
000335

166424

154574

BNE
CMP
BNE

070030

000032

MOV
MOV

154556

ASR
ASR
ASR
ASR
ASR
ASR
8IC

177700
000001

122374

648:

154426
157512

000001

%8S 057762
9486 057766

658%:

8IT
BEQ
TRAP
.WORD
«WORD
. WORD

122316

668%:

8IT
8EQ
TRAP
.WORD
<WORD
.5ORD
MoV
MoV
JSR
CMP
INC
CMP
8HI
JMP
INC

68$:

%87 057770

%88 057772

000026

9489 057776
9490 060000
94,91 060004
%92 060006

177370

000034
000167

176000

BNE
8IT
8EQ
TRAP
-WORD
-WORD
. WORD
MOV
MOV
JSR

122340

67%:

708:
71%:
728:

27-Mar-198 2 1 9:2 4:42
27-Mar-198 21 9 :2 3:44

DEFINITION OF OPTION 2
JSR
ADD

000014
0000n5

PAGE 211

SEQ 0223

sMLX&

9475 057730
9476 057732
9477 057734
9478 057742
9479 057744
9480 057746
9481 057750
9482 057752
9483 057754
9484 057756

9493 060012
9494 060014

MACRO M1113

BGE
JMP

TOPS
PA:<

PC,RETRY

#14,5pP
RO #5

aML .REG+44,30(SP)

65%
32(sP) ,-(SP)

gHL.REG*42.R0

*,0LDSEC

5500

OLDCHN,

#177700,R0
RO, (SP)+

65$

#1,ERROUT

64$
56
334

MSG4

0
R5,=(SP)

BOARD ,~(SP)

LUN,
=

PC,UP.HA
. COUNT
RD

68%

#1,ERROUT

67%
57
335
MSG3
0
67%
g1.ERRDUT

0
R5,=(SP)

BOARD,~(SP)

LUN,
=

PC,UP.SOFT.COUNT

(?P)*,(SP)+

R1,26(SP)

71$

623
RS
R5.34(SP)
73§
368

SECTOR
SECTOR,
»
LUN

LUN,*

5470
5466

5299

(ZMLBBO PERFORMANCE EXERCISER

OPT2 DEFINITION OF OPTION 2

MACRO M1113

MLX4
H

9499 060020
9500 060024

9507
3;?%

9514

060030
060036
060040
060044
060050

062706
005266

026666
003002
000167
062706
000207

(00010
000030
000030

174110
000035

.2 13:41

F
PAGE 212

SEQ 0224

9496
323;

9501
9502
9503
9504
3282

29-MAR

000032

73%:
74%:

758:

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 2
ADD
INC

CMP
BGT
JMP
ADD

RTS

#10,SP
30(SP)

30(SP) ,32(SP)
75%
3s
#36,5P
PC

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

43 words

TOPS
PA:<

:
: COUNT
s COUNT,«

5052
5051

4982

(IMLBBO PERFORMANCE EXERCISER

MACRO M1113

OPT2 DEFINITION OF OPTION 2
9516 :MLX4

gg}g H

29-MAR-82 13:41

PAGE 213

SEQ 0225
27-Yar-1982 19:24:42

DEFINITION OF GPTION 3

27~Mar-1982 19:23:44

9519 ;
9520
9521 ;
9522 ;
9523 ;
9524 ;
9525
gg%g ;

3555
5556
5557
5558
5559
5560
5561
ggg%

!
;

9528
9529
9530
9531
9532
9533

5564
5565
5566
5567
5568
5569

!
!
!
!
!
!

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING
INCR COMPLEMENT FLAG FROM 0 TO 1
: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP)

5571

;
;

;
:
.

9534 .

9535 .

9536 :
9537 .

9538
9539
9540
9541
9542
9543

;
;

:
;
;
9544 ;
9545 ;

9546 ;

9547 ;
9548 ;
9549 ;

9550 .
9551
9552 .

9553 .
9554 .

9555 .
9556 ;
9557 ;
9558 ;
9559 ;
9560 ;
9561 ;
9562 .
9563 ;
9564 .
9565 .
9566 .
9567 .
9568 .
9569 .
9570 ;

Xsbttl °DEFINITION OF OPTION 3'
routine OPT3 : novalue =
begin

!+¢
!
ROUTINE:

5570

3572
5573

5574
5575
5576
5377
5578
5579

3580
5581
5582

5583
55846
5585

5586
5587
5588

5589
5590

3591
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606

!
!

!
'
'
!
!
!

!
!

!
!
!

!
!

!
!
!
!
!

!
'
1--

!« 1

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

PA:<NEALE>MLX4.BLI.S (39)

START OF ROUTINE

OPT3

PURPOQOSE :

TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS
.

THE CODE FOR 'OPT3'

IN BRIEF:

: GENERATE THE PATTERN

:
:

INCR LUN FROM 0 TO LAST

:
:
: :
: :
: :
: :
: :
: :
: :
: :

BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
TESTLOOP:

:
:

: WHILE SECTOR LEQ HIGHEST DO
: : BEGIN 6 (START OF SECTOR SELECTION LOOP)

:
:
:

:
:

: BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1
UNIT)
: IF UNIT IS ACTIVE
: THEN
: : BEGIN S (START OF TEST FOR AN ACTIVE UNIT)
: : INITIALIZE THE WRITE AND READ BUFFER POINTERS
: : SECTOR = LOWEST

: : :
:: :
: : :

:
:
:

:
:

: GET_WRDCNT

: SET UP BUFFER POINTERS BEFORE TRANSFER
: WRITE
: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)

: CHOOSE WHETHER TO WRITE CHECK OR READ
: DO THE WRITE CHECK OR READ
: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)

: CHANGE BUFFER POINTERS AFTER TRANSFER
: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVI
OUS TRANSFER

: :: : : END 6 (END OF SECTOR SELECTION LOOP)
: : : : END 5 (END OF TEST FOR AN ACTIVE UNIT)
: : : END & (END OF TESTLOOP)
: : END 3 (END OF LOGICAL UNIT SELECTION LOOP)
: END 2 (END OF COMPLEMENT FLAG SELECTION LOOP)
RETURN
END 1 (END OF ROUTINE)
label
LOOP;

local

WRDCNT,
VALUE,
OLDSEC,

CZMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION 2

H
2
PAGE 214

SEQ 0226

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>M{ X4.BL!.5

PIR,
COMMAND,

DBL_VALUE;
PRINTB (SAY2, WRD34, RIN3):

! *RUNNING OPT3®

incr COMP_FLAG from 0 to 1 do
beain

!« 2 «

START OF COMPLEMENT FLAG SELECTION LOOP

begin

!*= 3 »

START OF

begin

!* 4 «~

START OF THE LOOP THAT COMPLETELY TESTS 1 UN1T

!* 5 «

START OF TEST FOR AN ACTIVE UNIT

'!* 6 *

START OF SECTOR SELECTION LOOP

GEN3 (.COMP_FLAG);

incr LUN from 0 to (.LSUNIT = 1) do

LOOP

’

:; -DRIVE_STATUS [.LUN] eql ACTIVE
en

begin
LSLUN = _LUN;

LOGICAL UNIT SELECTION LOOP

NS =2 [=1V.1.
.S NT. NV F NPV NY

SEgaesees

WPTR = WBUFF;
RPTR = RBUFF;
SECTOR = LOWEST;

2LREEREZRES

(39)

OLDCHN,
SECTOR,

Yuiy

9581

——teded
e 2 O OO

9577

9578
9579
9580

OV NI
NN — OV~

9575
9576

29-MAR-82 13:41

DEFINITION OF OPTION 3
Vi WAL
oo oo oo
O ONONON

9572 :MLX4
9573 .
9574

MACRO M1113

while .SECTOR lequ HIGHEST do
begin

WRDCNT = GET_WRDCNT (.SECTOR, HIGHEST)
:

SET_PTRS (.WRDCNT):

VALOE = write (.LUN, .WRDCNT, .WPTR, .SECTOR);
e

;

SEE HOW SUCCESSFUL THE WRITE WAS:

selectone .VALUE of
set

!SEE _°*SYSERR' FOR DEFINITION

'OF ERROR # CONTAINED IN

01 :

begin

'VALUE®

!* 6A * RETRY ALLOWED

if RETRY (SIX, write, .LUN, .WRDCNT, WPTR, .SECTOR)
neq 0
thenb
.
!THE RETRY FAILED -- SYSTEM FATAL ERROR
eqgin

WHY_DROPT [.LUN] = CODE_4;

ERRDF (301, MSG1, 0):

DOPU (.LUN);
legve LOOP;

ena,

end;

!xxxx OPTION 3 ERROR 01 sews

'JUMP JUST BEYOND END OF BLOCK * & +
I 6A »

(ZMLBBO PERFORMANCE EXERCISER

OPT2 DEFINITION OF OPTION 2

9628 ;MLX4

9643 :

9644
9645
9646
9647
9648

;
;
:
;

9649 ;
9650 ;

5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670

5671

5672
5673
5674
5675
5676

5677
5678

5679
5680
5681

2655 ;
9656 .
96L7 ;
9658
9659 ;
9660 ;

5683
5684
5685
5686
5687
5688

9662 ;

5690

9661 ;

9683 ;
9664 ;
9665 ;

9666
9667
9668
9669
9670

;
;
.
.

9671 ;

9672 :
9673 .

9674
9675
9676
9677
9678
9679
9680
9681

;
:
:
;
:
;
;

9682 ;

PAGE 215

2
SEQ 0227

27-Mar-1982 19:24:42

DEFINITION OF OPTION 3

9651 ;
9652 :
9653 .

9654 ;

29-MAR-82 13:41

gg%g M
9631 ;
9632 ;
9633 ;
9634 9635 :
9636 :
9637
9638 ;
9639 :
964 ;
9641 ;
9642 :

MACRO M1113

27-Mar-1982 19:23:44

:
begin
1% 68 « FATAL CONTROLLER ERROR -- NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE_5;

ERRDF (302, MSG1, 0.
!exxt OPTION 3 ERROR 02 xawe
DODU (.LUNS;
leave LOOP;
1JUMP JUST BEYOND END OF BLOCK * 4 =
end;
'« 6B «
£33 :
beg1n
ERRDF (303,

:* 6C = FATAL DRIVE ERROR -- NO RETRY ALLOWED
MSG1, 0);
!xxxx OPTION 3 ERROR 03 wwee

WHY DROPT [.LUN] = CODE_6;

tes;

poD0 (.LUN);
leave LOOP;
end;

COMMAND = CHOOSE
.

1JUMP JUST BEYOND END OF BLOCK * 4 «
' 6C «

():

5689

if .COMMAND eql read
then
begin
PTR = .RPIR;
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):;
end
else
begm
PTIR = .WPIR;
VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR):
end;

5691
5692
5693

'+
!
SEE HOW SUCCESSFUL THE OPERATION WAS:
[

5682

5694
5695
5696
5697
5698

5699

5700
5701

5702
5703
5704
5705
5706
5707
5708
5709
§710

TOPS=20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (39)

selectone .VALUE of
set

!SEE *SYSERR' FOR DEFINITION
!OF ERROR # CONTAINED IN 'VALUE®

ol :
.
if .COMMAND eql read
then
begin

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT))
neq 0
then
~
begin
SAYWHO (.LUN):
PRINTB (SAY1, MSGS):
!'ECC LOGIC FAILED TO DETECT DATA ERROR®
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE):
1'GO0D DATA: XXXXXX AT LOCATION YYYYYY®

J.
2
PAGE 216

29-MAR-82 13:41

SEQ 0228
27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 3
1

DBL_VALUE = .DBL_VALUE + BUFSI2#2:

PRIRTR (FMT12B, ..DBL_VALUE, .DBL VALUE) ;
!'BAD DATA:

5
9

egin

WHY

755
756
757
758
759
0
761

end;

23 :
begin

i 6D »

I 6E * FATAL CONTROLLER ERROR =- NO RETRY ALLOWED

WHY_DROPT [.LUN] = CODE_S:

ERRBF (306,

DODU (.LUNS;
Lleave LOOP:

end;

[3]

MSG1, 0):

!xxax OPTION 3 ERROR 06 #+*

'JUMP JUST BEYOND END OF BLOCK * 4 =
'« 6E =

begin
ERRDF (307,

! 6F * FATAL DRIVE ERROR -- NO RETRY ALLOWED
MSG1, 0):
!aexx OPTION 3 ERROR 07 e+
WHY DROPT £.LUNI = CODE_6;
poD0 (.LUN):
Leave LOOP:
'JUMP JUST BEYOND END OF BLOCK <« 4 *
end;
s 6F =
[4] :
begin

ISDLATE ):

!* 66 * UNRECOVERABLE DATA ERROR

ERRDF (308 MSG2, 0):
!xxxx OPTION 3 ERROR 08 sxw+
WwHY DROPT [.LUN] = CODE_7;
poDD (.LUN):
leave LOOP:
'JUMP JUST BEYOND END OF BLOCK * 4 +
end;
's 6G «

(51 :
begin

!* 6H « RECOVERABLE DATA ERROR

DROPT [.LUN] = CODE_4;

enda;

2
3

.COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) neg 0
*THE RETRY FAILED -~ SYSTEM FATAL ERROR

ERRDF (305, MSG1, 0);
~!d«xx OPTION 3 ERROR 05 +#es
DODU (.LUN);
leave LOOP:"
!JUMP JUST BEYOND END OF BLOCK * 4

9
?

' 6D * RETRY ALLOWED

it RETRY (SIX,
thenb
)

9
0
1

'JUMP JUST BEYOND END OF BLOCK % & +

begin‘

legve LOOP;

!ene OPTION 3 ERROR 04 wene

end;

5
3

MSG1, 0);

enag,

ERRDF (304,

DODU (.LUNJ;

5
3
7
8
9
0
1
2
3

PPPPPP AT LOCATION Q0QQQQ’

WHY DROPT [.LUN] = CODE_8;

5
é

2
3

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.S (39)

9684 MLX4
9685 .

MACRO M1113

(IMLBBO PERFORMANCE EXERCISER
OPTZ DEFINITION OF OPTION 2

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 3
ISOLATE

\Gmmmmmu\m

9743

9744
9745
9746
9747
9748
9749
9750
9751
9752
9753
9754
9755 :

K
2
PAGE 217

29-MAR-82 13:47

SEQ 0229

NNV OO
O~
N =00 PN
W

9740 sMLXS
9741
9742

MACRO M1113

CIMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION ¢

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.S (39)

();

it .ERROUT then PRINTB (FMT10B,

.CHAN):;

1
BIT Qa'
OLDSEC = .MLEL;
OLDCHN = _CHAN;

I; RETRY (ONE,
en

5773

.COMMAND,

.LUN,

.WRDCNT,

.PTR,

.SECTOR) eql §

:; ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

[

9756
9757
9758
9759
9760 ;
9761

[4
.

begin

[4
-

if .ERROUT then ERRHRD (309, MSG4, 0);

UP_HARD_COUNT (.LUN,

9762
9763
9764
9765 ;
9766
9767
9768

else

4
.

[
.

end

!xxxx OPTION 3 ERROR 09 #twe

.BOARD):

begin

if .ERROUT then ERRSOFT (310, MSG3., 0);

[

UP_SOFT_COUNT (.LUN, .BOARD):

9769
9770 :
9771
9772
9773
9774
9775
9776
9777 .
9778
9779
9780
9781
9782

!=xxx OPTION 3 ERROR 10 t""

’

789

else

[

begin

if .ERROUT then ERRSOFT (311, MSG3, 0);

”

4
.

UP_SOFT_COUNT (.LUN,

end;

[

end;

[

'++=+ OPTION 3 ERROR 11 xaew

.BOARD) ;

!
I 64 «

[
-

[

WPTR = .WPTR +

[

9783
9784
9785

9786
9787
9788
9789
9790
9791
9792
9793
9794

.
.

L
.

end;

e
.

[4
-

[
.

.
.

L
.

(.WRDCNT#2);

SECTOR = .SECTOR + (.WRDCNT/256);
end;
'* 6 *

!* 5«

END OF SECTOR SELECTION LOOP

END OF TEST FOR AN ACTIVE UNIT

!
!
;

Test to s ee if this uut's address space is
to be rea d for soft errors.
This test is
is intended for DMT purposes.

.
-

.
.

[

if .EFN$21
then

!Is the background pattern to be read

(ZMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION 2

9796 MLX4

g;gg :

MACRO M1113

29-MAR-82 13:41

PAGE 218

2
SEQ 0230

27-Mar-1982 19:24:42

DEFINITION OF OPTION 3

9799 ;
9800 :
9801 ;

27~Mar-1982 19:23:44

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.5 (39)

be3zin

g version czmlbb chenged incr to incru
)

incru SECTOR from LOWEST to HIGHEST do
if read (.LUN, 256, RBUFF.,
then
begin
ISOLATE ();

.SECTOR) eql 5

.
.
!Find the failing bank and board no.

if .ERROUT then PRINTB (FMT108,

.CHAN) ;

Print where the error is

Save the contents of the ML error location
register so we can compare

to the new

contents of this register after the retry.
This is done to classify the error.

OLDSEC = .MLEL;

OLDCHN = .CHAN:

Do a classify retry call.
If the same error
occures then classify it as a hard error,
[f
a different error occured or the error went away
then classify it as a soft error.

Z; RETRY (ONE,

.PTR, .OLDSEC) eql 5

O
Y

!Same error occured ‘hard’

begin

if .ERROUT
'Print error if enabled
then
begin
ERRHRD (312,
!Error number
MSG4,
!Error message
)
0);
!Additional message routine
end;

5866

UP_HARD_COUNT (.LUN, .BOARD);

P 5862
5863
5864

:; ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

5
6
7
8
9

! sector and channel number, if so _then classify
: it as a hard error else classiy it as a soft
; error.

: The same error occured so see if it is at the same

.LUN, 256,

9
0
;

[

.COMMAND,

]

:
!
!
;

(ZMLBBO PERFORMANCE EXERCISER

OPT2 DEFINITION OF OPTION ¢

9883
9884 ;
9885 .

9886 .

9887 .
9888 .

8383 :

9891
9892
9893
3333

;
.
.
:

9899
9903 060052

9904 060056

9905 060062

9906 060066

5867

5868

else

5869
5870
5871
5872

5873
P 5874
P 5875
5876
5877

!Not the same error 'soft’
.

'Print error if enabled

A wd

!Error number
'Error message
.
!Additional message routine

end;

5899
5900

end;

ggg;

012746

begin
.
if .ERROUT
then
begin
ERRSOFT_(314,
MSG3,
0);
end;

.BOARD):

UP_SOFT_COUNT (.LUN, .BOARD):
end;

5898

012746

!Not the same error ‘soft’
.
.
!Print error if enabled

else

5895
5896
5897

004167
162706

begin
.
if .ERROUT
then

UP_SOFT_COUNT (.LUN,
end

5893
5894

5906

end

bealn
ERRSOFT (313,
‘Error number
MSG3,
!Error message
.
0);
!Additional message routine
end;

5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
P 5888
P 5889
5890
5891
5892

5903
5904
5905

TOPS~20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S (39)

o cnad

9881 ;
9882 ;

27-Mar-1982 19:23:44

9866 :
9867 :
9868 ;
9869 .
9870 ;
9871 .
9872 :
9873 ;
9874 ;
9875 :
9876
9877 ;
9878 ;
9879 ;
9880 .

27-Mar-1982 19:24:42

DEFINITION OF OPTION 3

9861 .
9862
9863
9864 ;
9865 ;

SEQ 0231

9857 ;
9858 ;
9859 ;
9860

i~ 4 «

end;

return;
end;

125256
000020

007642

007344

OPT3:

.SBTTL
JSR
SuB

MOV

END OF TESTLOOP

!* 3 «

END OF LOGICAL UNIT SELECTION LOOP

!= 2 ~

END OF COMPLEMENT FLAG SELECTION LOOP

!* 1 «

END OF ROUTINE

OPT3 DEFINITION OF OPTION 3
R1,$SAVES
#20,5P

#RTN3,-(SP)

#URD3S ,~(SP)

5556

5613

9855 ;

9856

PAGE 219

PreSypmagpny

gggz :

29-MAR-82 13:41

—ld—‘fl_‘—‘—l-—lddd.—.dddd—'dd—. nad el

9852 :MLX4

MACRO M1113

9950 060302
9951 060306
9952 060310
9953 060314
9954 060316
9955 060322
9956 060324
9957 060330
9958 060332
9959 060336
9960 060342
9961 060346
9962 060350

010346

016546
004767
010002
010216
004767

016616
010246
016746
010346
004767
010004
020427
001035
012746
012746

016646
010246
016746

000014
177770
000001
124154
000010
001502
000012

012670

022670
000012

034460
034500
034500
166704
166630
000016

152354
165102

000001
000006
045424
000030
152314

121650

152436

3$:
4$:

152432

5%:

CLR
JSR
ADD
DEC
BEQ
JMP
MOV

MOV

MOV
MOV
ASL
MOV
CMP
BHI

MOV

MOV
JSR
MOV
MoV
JSR

MOV
MOV
MOV
MOV
JSR
MOV
CMP
BNE
MOV
MOV

MOV
MOV
MOV

-($p)
PC,BLSGT2
#10.sp
RO
4
298
12(SP) ,LSLUN

#IBUFF ,WPTR

#RBUFF .RPTR
12(SP) .RS
RS
LOW.SECT(RS)
,R3

R3,TOP.SECT(RS)
33

R3,~(SP)

TOP.SECT(RS),~(SP)
PC,GET.WRDCNT
RO,R2

R2. (SP)
PC.SET.PTRS

16(SP)
, (SP)
R2,=(SP)
WPT=R,
(SP)
R3,-(SP)
PC.WRITE
RO.R4
RG . #1
6$
#6,~(SP)
MIRITE,=(SP)

30(SP) .-(SP)
R2,~(SP)
WPTR,=(SP)

LUN,
*

5620
5625

LUN,*

LUN,
*

LUN,*

*,SECTOR
SECTOR,
+

034442

LUN

5616
5618

A e eh

012767
016605
006305
016503
020365
101355

28:

COMP.FLAG
COMP.FLAG,*

SECTOR,
«

h e

9948 060274
9949 060276

012767

000014

SP,+

: %, WRDCNT
: WRDCNT,*

b e

9945 060262
9946 060266
9947 060272

062700
010046
016646
0462716
012746
005046
004767
062706
0C5300
001402
000167
016667

1$:

#SAY2,~(SP)
#3,-(§P)
SP,RO
14
26(SP)
26(SP) ,-(SP)
PC,GENS
LSUNIT,14(SP)
12(SP)
418
12(SP) RO
RO
RO
RO
#DRIVE.STATUS,RO
RO, =(SP)
14 (SP) ,=(SP)
#177770, (sP)
#1,~(SP)

LUN,
*
WRDCNT,
«

b e

9944 060260

006200
006200

000026
000026
161344
121664
000012
002240
000012

MOV
MOV
MOV
TRAP
CLR
MOV
JSR
MOV
CLR
JMP
MOV
ASR
ASR
ASR
ADD
MOV
MOV
BIC
MOV

TOPS
PA:<

) b

9938 060232
9939 060240
9940 060244
9941 060246
9942 060252
9943 060256

104414
005066
016646
004767
016766
005066
000167
016600
006200

007100
000003

:24:42
:23:44

SECTOR,
»

*,VALUE

VALUE,
«

5643

5649

b nd b

9937 060224

012746
012746
010600

27-Mar~-198
27-Mar-198

DEFINITION OF OPTION 3

D wd e

9930 060174
9931 060175
9932 060202
9933 060206
9934 060210
9535 060212
9936 060216

SEQ 0232

sMLXG
:

9911 060072
9912 060076
9913 060102
9914 060104
9915 060106
9916 060112
9917 060116
9918 060122
9919 060130
9920 0601346
9921 060140
9922 060144
9923 060146
9924 060150
9925 060152
9936 060156
9927 060160
9928 060164
9929 060170

N_2
PAGE 220

b end

9908
3393

29-MAR-82 13:41

OPT3 DEFINITION OF OPTION 3

MACRO M1113

LR T T

CZMLBBO PERFORMANCE EXERCISER

(ZMLBBO PERFORMANCE EXERCISER
OPT3 DEFINITION OF OPTION 3

MACRO M1113

9970 060366

9971 060370
9972 060372
9973 060376
9974 060404
9975 060406
9976 060410
9977 060412
9978 060414
9979 060420
9980 060422
9981 060426

9982 060430
9983 060432
9984 060436
9985 060444
9986 060446
9987 060450
9988 060452
9989 060454
9990 060460

9991 060462

9992 060464
9993 060470
9994 060472
9995 060474
9996 060476
9997 060500
9998 060502
9999 060506
10000 060514
10001 060516
10002 060520
10003 060524

170% 060526
10005 060532
10006 060536
10007 060540
10008 060544
10009 060546
10010 060550
10011 060556
10012 060562
10013 060564
10014 060570
10015 060572
10016 060576
10017 060600
10018 060606

JMLXSG
:

010346
004767
06276

005700

001456
016601
112761
104455
000455
011070
000000
016600
104451
000636
020427

001015
016601
112761
104455
000456
011070
000000
016600
104451

000416

020427
001016
104455
000457
011070
000000
016601
112761
010100
104451
062706
000543

004767
010066
005001
020027
001015
005201
016766
016646
010246
016746
010346
004767
000413
016766
016646

165642
000014

034446

000024
,
000002

000024
000005

6%:

034446

000024

000003

000024
000006

78:

034446

000012

8s:

165434
000040

9%:

045612

152116
000024

000036

152102
165014
152064

000024

000036

16$:

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 3
Mov
JSR
ADD

R3,-(SP)
PC.RETRY
#14,SP

BEQ
MOV
MOVB
TRAP
.WORD
.WORD
WORD
MOV
TRAP
8R
CMP

9s
24(SP) R
#4.WHY.DROPT(R1)
55
455
MSG1
0
24 (SP) ,RO
51
8s
RG, 42

TST

000024
000004

8
PAGE 221
SEQ 0233

9964
3322

9967 060354
9968 060356
9969 060362

29-MAR-82 13:41

BNE
MOV
MOVB
TRAP
LWORD
-WORD
.WORD
MOV
TRAP

B8R

CMP
BNE
TRAP
.WORD
-WORD
.WORD
MOV
MOVB
MOV
TRAP
ADD
BR

JSR
MOV
CLR
tMp
BNE
INC
MOV
MOV
MOV
MOV
MoV
JSR
BR
Moy

MOV

SECTOR,«

78
24(SP) .R1
#5,WHY.DROPT(R1)
55
456
MSG1
0
24(SP) ,RO
51

R, #3
9%
55
457
MSG1
0
24(SP) .R1
#6,WHY.DROPT(R1)
R1.RO
51
#12.5P
148

PC, CHOOSE
RO.40(SP)
R1
RO, #READ
10§
R1
RPTR,36(SP)
24(SP) ,=(SP)
R2,~(SP)
RPT
=R,
(SP)
R3.=-(SP)
PC.READ
11$

WPTR,36(SP)

24(SP),~(SP)

TOPS
PA:<

LUN,*

5652

;

5653

; LUN,*

5654

;
: VALUE,+

5655
5643

: LUN,*

5662

5663

; LUN,*

5664

5665

: VALUE,*

5643

5670

; LUN,*

5671

; LUN,

5672

;

5673

;
: %, COMMAND
:
* COMMAND,
*

5677

; *,PIR
:LON,
%
* WRDCNT,
»

5679

5682
5683

; SECTOR,*
;

*,PTR

P LUN,»

5687

5688

|
|

(ZMLBBO PERFURMANCE EX%RCISER
OPT3 DEFINITION OF OPTION 3

MACRO M1113

;MLX4
:

10023 060612
10024 060614
10025 060620
10026 060622
10027 060626
10028 060630

010246
016746
010346
004767
010004
001102

10030 060634
10031 060636

103402
000167

10032 060642
10033 060646

10034 060652

10035 060654
10036 060660
10037 060664
10038 060670
10039 060672
10040 060676
10041 060702
10042 060706
10043 060712
10044 060716
10045 060720

10046 060722

10047 060726
10048 060732
10049 060736
10050 060742
10051 060744
10052 060746

152050

165152
118:

006001

016746
016746

010246

004767
062706
010066
001762
016646
004767
012716
012746
012746
010600
104414

016616

017646
012746
012746
010600
104414
062766

001014
152022
152020

10054 060760
10055 060764
10056 060770
10057 060774
10058 060776
10059 061000
10060 061004
10061 061012
10062 061014
10063 061016
10064 061020
10065 061022
10066 061026
10067 061030
10068 061034
10069 061036
10070 061042
10071 061044
10072 061050
10073 061054

10074 061060

017646
012746
012746
010600
104414
016601
112761
104455
000460
011070
000000
016600
104451
062706
000521
020427
001035
012746
016646
016646

010246

128:
138:

MOV
MOV
MOV
JSR
MOV
BNE

000050

MOV

000050
006710
000003

MOV
MOV
MOV
MOV
TRAP
ADD

000056

MOV

000056
006756
000003

000056
000010

034446

000056
000044

000001
000006
000052
000040

MoV
MOV

JSR
ADD
MOV
BEQ
MOV
JSR
MOV
MOV
MOV
MOV
TRAP

000034
154622
011216
007072
000002

010000

8LO
JMP

MOV

163446
000006
000042

14$:
158:

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 3

ROR

10053 060754 016616 000056

PAGE 222

SEQ 0234

10020
}8855

10029 060632

29-MAR-82 13:41

MOV
MOV
MOV
MoV
TRAP
MOV
MOVB
TRAP
LWORD
.WORD
-WORD
MOV
TRAP
ADD
B8R
CMp
BNE
MOV
MOV
MoV
MOV

R2,=(SP)
WwPTR,=(SP)
R3,-(SP)
PC. CHECK
RO R4
15§

138
288
WPTR,=(SP)
RPTR.=(SP)
R2,~(SP)
PC.DOU
.BLE
CHECK
#6.SP
RO,42(SP)
12§
34(SP) ,~(SP)
PC.SAYWHO
#MSGS, (SP)
#SAY1,=(SP)
#2,-(5P)
SP.RO
14

SO(SP) , (SP)

56(SP) . (SP)

a56(SP),~(SP)
#FMT128.-(SP)
#3,-(SP)
SP.RO
14
56(SP) ,R1
#10,WHY.DROPT(R1)
55
460
MSG1
0
56(SP) ,RO
51
#44,SP
208
R4, #1
168
#6,-(SP)
52(SP),~(SP)
40(SP) .~(SP)
R2,~(SP)

WRDCNT,

SECTOR,*

;

*,VALUE

:
:

a50(SPj ,~(sP)
NFMT12A.-(SP)
#3,-(SP}
SP.RO
14
#10000.56(SP)

;

TOPS
PA:<

5695
5700

;

5704

: WRDCNT,*

*,DBL.VALUE

: LUN,*

57C7

;

5708

SP,%

DBL.VALUE,*

: DBL.VALU. E
*

5709

; SP,%
; *,DBL.VALUE

: DBL.VALUE,»

: DBL.VALU.+
E

5711

5712

; SP,%

: LUN,*

5714

5715

: LUN,*

5716

;

5717

; VALUE,*

5695

:
¢ COMMAND,«
¢ LUN,*
¢ WRDENT,
*

5725

(ZMLBBO PERFORMANCE EXERCISER
OPT3 DEFINITION OF OPTION 3

MACRO M1113

10090 061124
10091 061126
10092 061132

10093 061134
10094 061136
10095 061142
10096 061144
10097 061150
10098 061156
10099 061160
10100 061162
10101 061164
10102 061166
10103 061172

10104 061174

10105 061176
10106 061202
10107 061204
10108 061206
10109 061210

10110 061212
10111 061214
10112 061220
10113 061226
10114 061230
10115 061232
10116 061234
10117 061240
10118 061242
10119 061246
10120 061250
10121 061252
10122 041256

10123 061256
10124 061262
10125 061270
10126 061272
10127 061274
10128 061300
10129 061304
10130 061310

s MLXG

}8855

10088 061120
10089 061122

PAGE 223

SEQ 0235

10076

10079 061062
10080 061066
10081 061070
10082 061074
10083 061100
10084 061102
10085 061104
10086 061110
10087 061116

29-MAR-82 13:41

:
016646
010346
004767
062706
005700
001655
016601
112761
104455

000056

MOV
MOV
JSR
ADD
ST
BEQ
MOV
MOVB
TRAP

165130
000014
000034

000004

034446

000467
011070

000000
016600
104451
000457
020427
001015
016601
112761

104455
000462
011070
000000
016600
104451

000437

020427
001014
104455
000463
011070

00060
016601
112761
010100
104451
000420
020427
001021
004767
104455
000464
011120
000000

016601
112761
010100
104451
062706
000167
020427
001162

LWORD
.WORD

000034
000002
000034
000005

168:
034446

000034
000003

000034
000006

178:

034446

000004

188:

156064

000034
000007
000022
001070
000005

034446
19$:
208:
218:

27-Mar-1982

DEFINITION OF OPTION 3

_WORD
MOV
TRAP
BR
(MP
BNE
MOV
MOVB

56(SP) ,-(SP)
R3.=(SP)
PC.RETRY
#14,sp
RO
128
34(SP) ,R1
#4.,WHY.DROPT(R1)
55

0
34(SP) ,RO
51

19s
R, #2
17§
34(SP) ,R1
#5,WHY.DROPT(R1)

&5
462
MSG1
0
34(SP) .RO
51

CMP
BNE
TRAP
WORD
.WORD

RG A3
188
55
463
MSG?

B8R

.WORD
MOV
MOVB
MOV
TRAP
BR
CMP
BNE
JSR
TRAF
.WORD
.WORD
.WORD
MOV
MOVB
MOV
TRAP
ADD
JMp
(M
BNE

19%

0
34(SP) ,R1
#6,WHY.DROPT(R1)
R1.RO
51
19s
A
21%
PC,ISOLATE
5§
464
MSG2
0
34(SP) ,R1
#7.WHY.DROPT(R1)
R1.R0
51
#22,5P
408
R A4S
28§

TOPS

PA:<

: PTR,+
* SECTOR,«

461
MSG1

TRAP
.WORD
.WORD
-WORD
MOV
TRAP

19:24:42

c7-Mar-1982 19:23:44

: LUN,*

5728

;

5729

; LUN,*

5730

:
¢ VALUE,»

5731
5695

: LUN,*

5738

;

5739

; LUN,*

5740

5741

: VALUE,*

5695

5746

: LUN,*

5747

: LUN,*

5748

;
: VALUE,*

5749
5695

;
:

5754
5755

: LUN,*

5756

: LUN.*

5757

5758

: VALUE,+

5695

e o) il el el wnd

s wnld cncd[

77 061516
78 061520

79 061522

80 061526
81 061526
82 061530
83 06153¢
84 061536
85 061540
86 061546

012746
016646

016646
010246
016646
010346
004767
062706
020027
001052
027766
001035
016600
017701
006201

JSR
8IT
8EQ
MOV
ASR
ASR

120734

153056

ASR

ASR
ASR
ASR

177700

BIC
MOV
MOV
MOV
MOV

006640
000002

000006
153012
153002

000044

177700
000040

000001
000052

TRAP
ADD
MOy
MOV
ASR
ASR
ASR
ASR
ASR
ASR
8IC
MOV

MOV
MOV

000040
000056

164542
000014
000005

152712

22$:

000044

000040
152674

MOV
MOV
MOV
MOV
JSR
ADD
cMP
BNE
cMP
BNE
MOV
MOV
ASR

006201
006201

ASR
ASR

006201
006201
042701
020100
001017
032767
001404

ASR
ASR
BIC
CMP
BNE
BIT
8EQ

006201

ASR

177700
000001

120512

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 3
PC, ISOLATE
#1.ERROUT
22§
aML.REG+42,R1
R1
R1
R1
R1
R1
R1
#177700,R1
R1,-(SP}
#FMT108,-(SP)
#2,-(SP§
SP.RO

;
;

14
#6,SP
aML .REG+44 ,44 (SP)
aML .REG+42.R1
R1
R1
R1
R1
R1
R1
#177700.R1
R1,40(SP)

5763
5765

SP,%

;
:

*,0LDSEC

5768
5769

: *,0LDCHN

#1.-(SP)
52(SP) ,~(SP)

40(SP) .=-(SP)
R2,~(SP)
56(SP),~(SP)
R3,=-(SP)
PC.RETRY
#14,sP
RO,#5
25¢
aML.REG+44 ,44 (SP)
24$
40(SP) .RO
aML.REG+42,R1
R1

TOPS
PA:<

:
¢ COMMAND
,+

5771

; *,0LDSEC

5774

¢
;
:
:

LUN,*
WRDCNT,
*
PIR,*
SECTOR,*

; OLDCHN,*

R1
R1

R1
R1
#177700,R1
R1,R0
24$
#1,ERROUT
23§

;

a_—a.
&
a

164 061442
165 061446
166 061450
167 0614564
168 061456
169 061462
170 061466
171 061472
172 061474
173 061502
174 061506
175 061510
176 061514

104414
062706
017766
017701
006201
006201
006201
006201
006201
006201
042701
010166

156014
000001

2 & b

162 061432
163 061436

s MLXG
2
004767
032767
01423
017701
006201
006201
006201
006201
006201
006201
042701
010146
012746
012746
010600

PAGE 224

5778

b b end ok b

135 061312
136 061316
137 061324
138 061326
139 061332
140 061334
141 061336
142 061340
143 061342
164 061344
145 061346
146 061352
147 061356
148 061360
149 061364

29-MAR-82 13:41

SEQ (236

132
}%2

150 061366
151 061370
152 061376
153 061402
154 061406
155 061410
155 061412
157 061414
158 061416
159 061420
160 061422
161 061426

) e

MACRO M1113

—b b b ced cnd wvd wod cmd end wd wnd b cod

=lalelelelele
ot _n_n_a._...;.b—o..n-n_a—l—n_._.—h—a_;—n_._a_n—a...n-.a—a—a_a..a_n_._.._a_._._.

OOOOOOOOOOOOOQOOOOOOOOOOOOO (wlelololalolale)

O
o~
X

BB0 PERFORMANCE EXERCISER
DEFINITION OF OPTION 3

MACRO M1113

10229 061730
10230 061734

10231 061740
10532 061742
10233 061746
10234 061752
10235 061756
10236 061762
10237 061766
10238 061772
10239 061774
10240 062000
10241 062004
10242 062010

000167
016600

006300
016001
016005
(00167
016646
012746
012746
010546
004767
062706
020027
001164

238:

000001

120454

24$:

000001

120432

258:

000034
152472
156230

268:
278:
288:

151002
156776
0004600
123264

000024
176332
000001

000440
000012
034500
034460
000406
000012
000400
022670

163612
000010
000005

120334

29%:

308:

318:

465
MSG4
0
34(SP) ,~(SP)
BOA
, <RD
(SP)
PC,UP.HARD. COUNT
27%
#1,ERROUT
26§
57
466
MSG3
0
268
#1,ERROUT
268
57
467
MSG3
0
34(SP) ,=(SP)
BOARD,
= (SP)
PC,
SOF
UP.
T. COUNT
(SP)+.(SP)+
R2.RO
RO
WPTR,RO
RO,WPTR
R2. (SP)
#600,~(sP)
PC.BLSDIV
R3.R0
RO.R3
#24,5P

BIT
8NE

#1,EFNS21
30§

JMP

JMP
MoV

ASL
MOV

MOV
JMP
MOV

MoV

MOV
MOV
JSR
ADD
CMP
BNE

408
12(SP) ,RO

RO
TOP. SECT(R0) ,R1

LOW. SECT(RO) _RS
398
12(SP) ,=(SP)

#400,-(SP)

#RBUFF
, = (SP)
RS.=(SP)
PC.READ
#10,sp
RO, #5
38§

; LUN,*

5780

:
:

5774
5785

:
:

5787
5793

: LUN,*

5794

:
: WRDCNT,*

5762
5801

: WRDCNT,
*

5802

: SECTOR,*
; *,SECTOR
:
:
:

5813

; LUN,*

5820

5634
5633

032767
001002

000167

000034
152552
155626

LWORD
-WORD
.WORD
MoV
MoV
JSR
8R
BIT
BEQ
TRAP
.WORD
.WORD
WORD
8R
BIT
8EQ
TRAP
WORD
-WORD
.WORD
MOV
MOV
JSR
(MP
MOV
ASL
ADD
MOV
MOV
MOV
JSR
ADD
MOV
ADD

10227 061720
10228 061726

10226 061714

TRAP

104456

000465
011202
000000
016646
016746
004767
000427
032767
001415
104457
000666
011166
000000
000410
032767
001404
104457
000467
011166
000000
016646
016746
004767
022626
010200
006300
066700
010067
010216
012746
004767
060300
010003
062706

TOPS
PA: <

; *,SECTOR

; LUN,*
; SECTOR,+*

5822

b o woid b e wad

061550

27-Mar~-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 3

D cnd e

sMLX4
H

10192 061552
10193 061554
10194 061556
10195 061560
10196 061564
10197 061570
10198 061574
10199 061576
10200 061604
10201 061606
10202 061610
10203 061612
10204 061614
10205 061616
10206 061620
10207 061626
10208 061630
10209 061632
10210 061634
10211 061636
10212 061640
10213 061644
10214 061650
10215 061654
10216 061656
10217 061660
10218 061662
10219 061666
10220 061672
10221 061674
10222 061700
10223 061704
10224 061706
10225 061710

F_
3
PAGE 225

SEQ 0237

10188
{8}33
10191

29-MAR-82 13:41

-l cnd cd b

CIMLBBO PERFORMANCE EXERCISER
OPT3 DEFINITION OF OPTION 3

b e e

66 062106
67 062110
68 062112

69 062114

062706

017766
017700

006200

SHL.REG*éz.RO

ASR
ASR

177700

R
#177700,R0

006640
000002

#FMT10B,~(SP)

RO, -(SP)

#2,-(SP}
?P.RO

00006
52312
52302

000022

32%:

SP,

£6,SP

aML.REG+44,22(SP)
ML _REG+427R0

*,0LDSEC

0 062116

177700
000016

74 062132
75 062136
276 062142
277 062146

#177700,R0

RO,16(SP)

#1,-(SP)

30(SP) ,-(SP)

16(SP) ,~(SP)
#400,-(SP)

34(SP) ,~(SP)
34(SP) ,~(SP)

PC,.RETRY

COMMAN,D
«
LUN,
=

5845

PTR,*

OLDSEC,
«

#14,SP
RO, #5

000005
152206

*,0LDCHN

72 062122

73 062196

LR
TR TN Y

71 062120

e cdh nd
b e ad
b
b
be

152356

5825
5827

006200

000022

000016
152170

e cod

35§

ML.REG+44,22(SP)
348
16(SP) ,~(SP)
gHL.REG*42.RO

*,0LDSEC

5854

OLDCHN,
*

2
291 0622%6
2
0
293 062232

~
»

L=
O~
NS
N

N
0

294 062234
295 062240
296 062242
~

e
e o
o
b b o
b

BEQ

PC,ISOLATE

;I.ERROUT

006200

278 062152
279 062156
280 062162
281 062166
282 062172
283 062176
284 062200
285 062206

o0 olelelels)

JSR

120234

TOPS
PA:<

64 062074
65 062102

010046
012746
012746
010600
104414

155214
000C01

27-Mar-198 2 19:24:4 2
27-Mar-198 2 19:23:4 4

DEFINITION OF OPTION 3

298 062252

R
#177700,R0
RO, (SP)+

177700

032767
001404

J00001

120006

3¢$

#1,ERROUT

338

el e e eyl D e b e e 5 D e g
il il
i LR T
oY

63 062070

004767
032767
001423
017700
006200
006200
006200
006200
006200
006200
042700

6.3

PAGL 226

5858

e e o i oy el e e

De e e e

5
5
5
5 9 062054
6 0 062060
61 062064
62 062066

29-MAR-82 13:41

SEQ 0238

oO~NOM NS

062036
062040
062042
062044
062046
062052

MACRO M1113
sMLXS

o QOO0 OO000O b

b d b b o e

&\nmm

D
b d b
—
OO0 OO00O000OO ss_a_i—l_a_a_n
OO0

244
245
246
47 062012
48 062016
49 062024
0 062026
1 062032
2 062034

COO00000 o
sgf\)NNNNNN
NSNNNN NONININININIPININD NNNSNOOO

Qe
o~
—=

BBO PERFORMANCE EXERCISER
) EFINITION OF OPTION 3

(ZMLBBO PERFORMANCE EXERCISER

OPT3 DEFINITION OF OPTION 3

MACRO M1113

29-MAR-B2

sMLX&

321 062336
322 062340

10331 062370

10332 062374
10333 062400
10334 062406

10335 062410
%0336 062414

10340 062432
10341 062436
10342 062442
10343
10344
10345
10350
10351

032767
001404

000012
152046
155122

000001

33s:

12(SP) ,=-(SP)
BOARD ,=(SP)

117750

LUN,»

5866

37§

348:

5854
5871

#1,ERROUT

368
57
471

5876

MSG3
0

000001

117726

368

35%:

5879
5885

#1,ERROUT

368
57
472

5890

MSG3

000000
016546
016746
004767
022626
005205
020501

000167
005266
026666
002002
000167
005726
005266
026627
003002
000167
062706
000207

;

PC,UP.HARD.COUNT

104457
000472
011166

101002

5863

0
12(SP) ,=(SP)

36%:

177362

000014

175524

000026
000026
175454
000030

(SP)+,(SP)+

RS
R5,R1
408
318
12( SP)
12¢ SP) ,14(SP)
428
2%
(SP)+
26(SP)

:
408
418:

:
428

000001

438:

5893

PC,UP.SOF T.COUNT

378:
38%:
39s:

000012
000012

: LUN,
=

S0ARD,
- (SP)

ADD

RTS

: SECTOR
; SECTOR,*
; LUN
: LUN,»

;
:

26(SP) ,.m
438
18

#30,sP
PC

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

COMP.FLAG
COMP.FLAG,*

5824

5820

5620

5617
5616

5556

37 words

a-s
=
»

031
031
031
03
31

56
470
MSG4

TOPS
PA:<

b b e i wasdh e b ek b Ak k. b s

1031
1031

27-Mar-1982 19:24 142
27-Mar-1982 1 9:23 <44

DEFINITION OF OPTION 3

b el sl e cad ) b md et

031
031

104456
000470
011202
000000
016646
016746
004767
000427
032767
001415
104457
000471
011166
000000
000410

H_3

PAGE 227

SEQ 0239

303 062254
304 062256
0305 062260
0306 062262
0307 062264
0308 062270
0 309 062274
03 10 062300

13:41

MACRO M1113

29-MAR-82 13:41

PAGE

1.3

223

SEQ 0240

sMLXG

Zsbttl °'DEFINITION OF OPTION &'
routine OPT4 : novalue =
begin

333%

144
i
ROUTINE:

§914

PURPOSE:

gg;g

THE CODE IN BRIEF:

5919
5920
5921
5922
5923

i
|
i
|
|

BEGIN 1 (START OF ROUTINE)
SAY ROUTINF IS RUNNING
WORD COUNT = 256
GENERATE A BUFFER OF DATA
GENERATE A BUFFER OF COMP

INCR LUN FROM 0 TO LAST

3955

9957
5958

!
i

:
:
:
:
:
:
:
:
:
:
:
:
:

BEGIN 2 (START OF LOGICAL UNIT SELECTION LOOP)
TESTLOOP:
: BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
: IF UNIT IS ACTIVE
: THEN
: : BEGIN 4 (START OF TEST FOR AN ACTIVE UNIT)
: : INCR SECTOR FROM LOWEST TO HIGHEST
: : : BEGIN 4A (START OF 1ST SECTOR SELECTION LOOP)
: : : WRITE 'DATA'
: : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTL
OOP)
: : : END 4A (END OF 1ST SECTOR SELECTION LOOP)
: : CHOOSE WHETHER TO WRITE CHECK OR READ ‘DATA'
: : INCR SECTOR FROM LOWEST TO HIGHEST
: : : BEGIN 4B (START OF 2ND SECTOR SELECTION LOOP)
: : : DO THE WRITE CHECK OR READ OF °*DATA’
: : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTL
OOP)

: LOOK FOR _ERRORS (IF DROP UNIT. LEAVE TESTLOOP)
: END 4B (END OF 2ND SECTOR SELECTION LOGP)
CHOOSE WHETHER TO WRITE CHECK OR READ 'COMP'
DECR SECTOR FROM HIGHEST TO LOWEST
: BEGIN 4C (START OF 3RD SECTOR SELECTION LOOP)
: DO THE WRITE CHECK OR READ OF 'COMP’
: LOOK FOR _ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: WRITE DATA
: LOOK FOR_ERRORS_(IF DROP UNIT, LEAVE TESTLOOP)
: END 4C (END OF 3RD SECTOR SFLECTION LOGP)
CHOOSE WHETHER TO WRITE CHECK OR READ 'DATA'
INCR SECTOR FROM LOWEST TO HIGHEST

: DO THE WRITE CHECK OR READ OF

:
:

: : BEGIN 4D (START OF 4TH SECTOR SELECTION LOOP)

:
2

*DATA’

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: END 4D (END OF 4TH SECTOR SELECTION LOOP)

1
T
1
1

,
i

: WRITE 'COMP'

:
: i :
: : :
: : :
: : :
: : :
: : :
: : :
'z : :
:::
: : :
: : :

: :

5953

INITIALIZE POINTERS TO 4 BUFFERS FOR WRITE/READ DATA/
COMP

) o

3956

5948

3949
5950
9951
3952

5954

i
!
!
!
!
!
!
i
!
!
!
!

'
1
1
)
¥
1

) b

5943
5944
3945
5946
3947

5942

;

!
!
!
i
i
!
!
!
!
!
!
!
!
|
!
i

TO LOOK FOR INTEREACTIONS BETWEEN SECTORS

USING A MARCH TEST.

5926
5927
5928
5999
5930
5931
5932
5933
5934
3935
5936
5937
5938
5939
3940
5941

OPT4

START OF ROUTINE

3924

(40)

) wult cnd b wrd cand = and-l b e

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.5

“

gg}g

!~ 1

19:23:44

5909
5910
5911

5925

27-Mar-1982

) ol i B

5907
5908

REIREIIT
S
NN)
—

27-Mar-1982 19:24:42

DEFINITION OF OPTION 4

—

»<0

FORMANCE EXERCISER
TION OF OPTION 3

‘CZHLBBO PERFORMANCE EXERCISER

MACRO M1113

OPT3 DEFINITION OF OPTION 3

5981

! RUNNING OPT4'
.
GEN4 (.MARPAT, WDBUFF);
GEN4 ((=-.MARPAT), WCBUFF);
WDPTR = WDBUFF;

}8225 H

gggg

RCPTR = RCBUFF;

10443 ;
10444 ;
10445 ;

5990
5991
5992

5986
5987

;8229 :

gggz

10448 .
10449 ;

5995
5996

106450
10451
10452
10453
10456
10455

;
;
;
;
;
;

6003
6004
6005

10460

6007

10461

;

;822% ;

incr LUN from 0 to (.LSUNIT - 1) do
begin
LOOP :
.

begin

6006

6008

28?8

begin
LSLUN = _LUN;
PRINTB (SAY1, WRD3S5);
! *"MARCHING®
PRINTB (FMT2, WRD24);
oup

!
!
!

2 ad D
D ok e
) el
) D e pod D el
b md B
ad
b
d d i

'POINTER TO 256-WORD WRITE DATA BUFFER
!POINTER TO 256~WORD WRITE COMP BUFFER
!POINTER TO 256-WORD READ
DATA BUFFER

!POINTER TO 256-WORD READ

COMP BUFFER

!* 2 »

START OF LOGICAL UNIT SELECTION LOOP

'* 3 «

START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT

!# 4 »

START OF TEST FOR AN ACTIVE UNIT

if .DRIVE_STATUS [.LUN] eql ACTIVE
then

5997
5998
5999
6000
6001
6002

10456 ;
10657 ;
10458 ;

10459 ;

WCPTR = WCBUFF;
ROPTR = RDBUFF;

10439 ;
10440 ;

b b amd b T

PRINTB (SAY2, WRD34, RTN4):

5982
5983
5984
5985

5979

5980

;
;
;
;

5975

QU S

10435
10436
10437
10438

VALUE,
OLDSEC,
OLDCHN,
PTIR,
COMMAND
,
DBL _VALUE,
WDPTR,
RDPTR,
WCPTR,
RCPTR;

d mad i b o coed b D

10634 ;

local

104632 ;

10433

Label
LOOP;

5976
5977
5978

: END & (END OF TEST FOR AN ACTIVE UNIT)

: END 3 (END OF TESTLOOP)

D b e

10629 .
10430 ;
10431 ;

!
: END 2 (END OF LOGICAL UNIT SELECTION LOOP)
!
RETURN
!
END 1 (END OF ROUTINE)
! __

5970
5971
5972

5973
5974

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (40)

WHEFPRY P

5961
5762
5963
5964
5965
5966
5967
5968
5969

10426 ;
10427

10428 ;

27-Mar-1982 19:23:44

10423 ;
10424 ;
10425 ;

5959

5960

27-Mar-1982 19:24:4?2

10414 ;
10615 ;
10416 :
10617 ;
10418 ;
10419 ;
10420 ;
10421 ;
10422 ;

DEFINITION OF OPTION &

10413 ;

SEQ 0241

10612 ;

}82}? :

PAGE 229

b d b rud b b il e

10409 ;MLX4

29-MAR-82 13:41

version camlbb changed incr to incru
.
incru SECTOR from LOWEST to HIGHEST do
begin
.
!* 4A «

START OF 1ST SECTOR SELECTION LOOP

VALUE = write (.LUN, 256, .WDPTR, .SECTOR);

29-MAR-82 13:41

K
3
PAGE 230

10465 ;MLX4

}8229 :
10468
10469
10470
10471
106472
106473
10474

:
:

:
:
:

10475 :

10676 ;
10477 :
10478 :
10479
10480 ;
10481 ;
10482 :
10483 :
10484 ;
10485 ;
10485 :
10487 ;
10488
10489
10490 :
10491 -

10492 :
10493 ;
10494 :

6011
6012
6013
6014
6015
6016
6017

10518 :
10519 *

set

begin

WHY

6061
6062

'SEE

}

'SYSERR' FOR DEFINITION

v LAY

.LUN, 256, .WDPTR, .SECTOR) neg 0
!THE RETRY FAILED -- SYSTEM FATAL ERROR

v 4A1

23 :
|
begin
1% 4A2
FATAL CONTROLLER ERROR -~ NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE_5;
ERRDF (402, MSG1, 0);
“Tanxx OPTION 4 ERROR 02 ##%%
PODU (.LUN);
leave LOOP;
'JUMP_JUST BEYOND END OF BLOCK * 3 +
end;
1% 4A2
(31 :
|
begvn
'x 4A3 «
FATAL DRIVE ERROR -- NO RETRY ALLOWED
ERRDF (403, MSG1, 0);
!axxx OPTION 4 ERROR 03 ses
WHY DROPT [.LUN] = CODE_6;
DCD0 (.LUN);
leave LOOP;
'JUMP_JUST BEYOND END OF BLOCK * 3 =

end;

1% 4A3 «

!* 4A «

END OF 1ST SECTOR SELECTION LOOP

)

if .COMMAND eql read
then

1
1
1

1
1
1
1
1

1
]
1
1
1
1
1

1
!

incru SECTOR from LOWEST to HIGHEST do

begin

1
]
1

! version czmlbb changed incr to incru
i

1
1
]
1
1
1
1
]
1
1
1
1
1
1
1
1

PRINTB (FMT2, WRD24);
10
ype
COMMAND = CHOOSE ();
!

RETRY ALLOWED

DROPT [.LUN] = CODE_é;

end;

tes;

1
1
1
1
1
1
]

'OF ERROR # CONTAINED IN *VALUE®

ERRDF (401, MSG1, 0);
!xxxx OPTION 4 ERROR 01 wws
DODU (.LUN):
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * 3 =
end;

6046

gggg

T0PS-20 Bliss=-15 v2(212)

PA:<NEALESMLX4.BLI.S (40)

begin
)
if RETRY (SIX, write,
then

6035
6036
6037

6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058

;gg;g :

selectone .VALUE of

6018

10504 :
10505
10506 :
10507 :
10508
10509 :
10510 :
10511
10512 ;
10513 .
10514 :
10515 :

27-Mar-1982 19:23:44

's
!
SEE HOW SUCCESSFUL THE WRITE WAS:
-

6019
6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
603%

6038
6039
6040
6041
6042
6043
6044
6045

10503 :

27-Mar-1982 19:24:42

DEFINITION OF OPTION 4

10495 >
10496
10497 :
10498 :
10499
10500 :
10501 :
10502 :

)
OF1

SEQ 0242

MACRO M1113

!* 4B ~

START OF 2ND SECTOR SELECTION LOOP

—h.-l—n—l-‘—n—i—l-‘—l_.—l_....-b_.—b—n_n_.—n_-_n_n_._.

CZMLBBO PERFORMANCE EXERCISER
OPT3 DEFINITION OF OPTION 3

1
!

;
1
1

527 ;

S SO

528 .

529 ;

530 :
531 :

QOO0O0O0CO0OOOVOCOCOOD (=]

532
533
534
535
536

.
:
;
.
;

T
T
P

544 ;

545 ;

546
547
548
549

;
;
;
;

552 .

h
b e
b e
e
b
b md i
i
b ced

6069
6070

6071
6072
6073
60764
6075

6080

;

550 ;
551 .

6067

6068

541

543 ;

6066

6076
6077
6078

542 :

553 .
554 .
555 ;
556 ;
557 :
558 ;
559 :

OO0 =lelslelelelale] COO0O0O0OO0O e

560 :
561 ;
562 .
563 .

564 .
565 ;
566 ;

6079

6081

27-Mar-1982 19:23:44

begin
PTR = _RDPIR:;
VALUE = read (.LUN, 256, .PTR,
else

end

6083

6084

begvn

end;

selectone .VALUE of
set
.

if .COMMAND eql read

then

begin

.
if (DBL_VALUE = DOUBLE_CHECK (.WDPTR, .RDPTR, 256))
neq 0
then
egin

SAYWHO (.LUN):
PRINTB (SAY1, MSGS):;

6091

!'ECC LOGIC FAILED TO DETECT DATA ERROR'

692
6093
6094
6095
6096
6097
6098

PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE) ;
1'GOOD DATA: XXXXXX AT LOCATION YVYYYY®
DBL_VALUE = .DBL_VALUE + BUFS]Z+2;
PRINTB (FMT12B, -.DBL VALUE, .DBL VALUE);
!'PAD DATA:
PPPPPP AT LOCATION CLGLETY
WHY _DROPT [.LUN] = CODE_8;
ERRDF (404 MSG1, 0);
!axxx OPTION 4 ERROR 04 wrwt

6099
6100
6101
6102

569 :
579 .
S$77 .
572 ;
§73 .
574 *

6108
6109
6110
6111
6112
6113

6114

!SEE "SYSERR' FOR DEFINITION
!OF ERROR # CONTAINED IN °‘VALUE'

ol :

6089
6090

2}89

.SECTOR) ;

'+
!
SEE HOW SUCCESSFUL THE OPERATION WAS:
-

6085
6086
6087
6088

6103
6104
6105

TOPS=-20 Bliss-16 v2(212)

PA:<NEALE>MLX4.BLI.S (40)

.SECTOR):

PTR = _WDPIR:
VALUE = CHECK (.LUN, 256, .PIR,

6082

ggg :

575 ;

6063
6064
6065

537 ;
538 .
539 .

540 ;

27~Mar-1982 19:24:42

DEFINITION OF OPTION &

DODU ¢.LUNS;
leave LOOP;
end;

'JUMP JUST BEYOND END OF BLOCK * 4 «

end;

0y :

524 ;
525 ;
526 :

SEQ 0243

begin

'v 4B1 «

RETRY ALLOWED

if RETRY (SIX, .COMMAND, LUN, 256, .PTR, .SECTOR)
neq 0
then
.
!THE RETRY FAILED =-- SYSTEM FATAL ERROR
begin
WHY DROPT [.LUN] = CODE_4;
ERRDF (405, MSG1, 0.
Yexat OPTION 4 ERROR 05 swex
DODU (.LUNJ;

leave LOOP;

!JUMP JUST BEYOND END OF BLOCK * 3 «

gg% :

L_3

PAGE 231

;MLX4

29-MAR-82 13:41

e
S J

CO000000000OTOS

521

MACRO M1113

[

880 PERFORMANCE EXERCISER
DEFINITION OF OPTION 3

;

10606 ;

10607 ;
10608 :
10609 :
10610 :
10611
10612 :
10613 :
10614 :
10615 :
10616 10617
10618
10619 :
10620 :
10621

10622 :
10623 .

10624 ;
10625 :

6135
6136
6137
6138
6139
6140

6141

6142
6143
6144
6145
6146
6147
6148
6149
6150
6151
6152
6153
6154
6155
6156

6157
6158

6159
6160

ERRDF

(406, MSG1, 0);

DODU (.LUN):
Leave LOOP;
end;
(31

FATAL CONTROLLER ERROR =~ NO RETRY ALLOWED

DROPT [.LUN] = CODE_5;

:
begln

'x 4B3
FATAL DRIVE ERROR -- NO RETRY ALLOWED
ERRDF (407, MSG1, 0);
!'s%xx OPTION 4 ERROR 07 *tw
WHY_DROPT E.LUN] = CODE_6;
poD0 (.LUN);
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * 3 «
end;
'a 4B3 x

leave LOOP:

end;

51 :
begin

ISOLATE

'x 4BS «

1
]
1
1
1
1
1
1
1
1
1

RECOVERABLE DATA ERROR
.CHAN):

.LUN, 256,

.PTR,

.SECTOR) eql 5

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin

10628
10629
10630
10631

6163
6164
6165

UP_HARD_COUNT (.LUN,
end

else

]
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

'x 4B4

if .ERROUT then PRINTB (FMT108.
1
8IT ao’
OLDSEC = .MLEL;
OLDCHN = .CHAN:
]
if RETRY (ONE, .COMMAND,
then

1JUMP JUST BEYOND END OF BLOCK * 3 =

it .ERROUT then ERRHRD (409, MSG4, 0);

6166

i
.
i

(61 :
begin
'x 4B4
UNRECOVERABLE DATA ERROR
ISOLATE ();
ERRDF (408, MSG2, 0);
!axxx OPTION 4 ERROR 08 #wws
WHY_DROPT [.LUNI = CODE_7;
pODD (.LUN);

g}g;

:
;
.
;

!JUMP JUST BEYOND END OF BLOCK ¢ 3
'x 4B2 «

}8g$§ :

[

“Taxax OPTION 4 ERROR 06 *+es

6134

e (B2 *

1
1
1)

:
:
:
:

WHY

6122

6129
6130
6131
6132
6133

:
begin

10600
10601
10602
10603
10604
10605

v 481

1
1
1

10599 :

end;

10596 :
10595
10596 ;
10597 :
10598

}

end;

6121

6123
6124
6125
6126
6127
6128

:
;
:
:
:
:

6118
6119
6120

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (40)

10587

10588
10589
10590
10591
10592
10593

6115
6116
6117

27-Mar-1982 19:23:44

b wed wnd wd

10586 :

DEFINITION OF OPTION 4

OPT

10583 :
10584 ;
10585 ;

27-Mar-1982 19:24:42

!'s+«+ OPTION 4 ERROR 09 sese

.BOARD):

begin

10580 :
10581 :
10582 ;

SEQ 0244

}82;3 :

n3
PAGE 232

o8 ald ool adl abl a82

10577 :MLX4

29-MAR-82 13:41

d..-.-.-.dd-.fld.dddd —l-.—l-‘-l-.-b-.—l..—ld—l-l-l_.—l_.—e_l-i-h_e_._...-_s._n—- -

T3 DEFINITION OF OPTION 3

MACRO M1113

ol and b ol b wnd wnd od e o

ML BB0 PERFORMANCE EXERCISER

CZH%BBO PERFORMANCE EXERCISER
OPT3
DEFINITION OF OPTION 3
10633 ;MLX&

}82§§ :
10636 :

%82%% ;

10639
10640
10641
10642
10643
10644

:
;
;

:
:

6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192

10662 :
}8222 :

6193
g}gg

10665 ;
10666 ;

6196
6197

10668 :
10669 ;
10670 :
10671 ;
10672 :
10673 :
10674 :
10675 :
10676 :

6199
6200
6201
6202
6203
6204
6205
6206
6207

10680 :
10681 ;

10682
10683
10684
10685
10686
10687

:
;
:
:
:

)

6170
6171
6172
6173
6174
6175

6178
6179

10679 ;

27-Mar-1982

6198

6208
6209

6210

6211
6212

6213
6214
6215
6216
6217
6218

19:24:42

TOPS-20 B!iss-16 v2(212)

27-Mar-1982 19:23:44

6167

10647 ;
10648 :

10677 :
10678

N
3
PAGE 233
SEQ 0245

2}23

g};g

10667 ;

29-MAR-82 13:41

DEFINITION OF OPTION 4

}8222 :

10649 :
10650 ;
10651 :
10652 :
10653 :
10654 :
10655 :
10656 :
10657 :
10658 :
10659 :
10660 :
10661 :

MACRO M1113

.ERROUT then ERRSOFT

UP_SOFT_COUNT (.LUN,
end

else

(410, MSG3,

}

!'s+ex OPTION 4 ERROR 10 se¢ve

begin
]

UP_SOFT_COUNT (.LUN,
end;

end;

'wxxe OPTION 4 ERROR 11 #awe

.BOARD);

'SEE 'SYSERR' FOR DEFINITION
'0F ERROR # CONTAINED IN °*VALUE'

_
ix 4B6 «

RETRY ALLOWED

if RETRY (SIX, write, .LUN, 256, .WCPTR, .SECTOR)
ne? 0
then
!THE RETRY FAILED -~ SYSTEM FATAL ERROR
egin
WHY DROPT [.LUN] = CODE_4:
ERRDBF (412, MSG1, 0);
Ixxxx OPTION 4 ERROR 12 taws
DODU (.LUN);
leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * 3 «
end;

end;

1
n
1
17
"
11

}¥

17
1"
1
1"
1"
1
1"
1

' 4B5 «

s
!
SEE HOW SUCCESSFUL THE WRITE WAS:
[

(13 :
begin

1"
17

)
VALUE = write (.LUN, 256, .WCPTR, .SECTOR):

selectone .VALUE of
set

PA:<NEALE>MLX4.BLI.S (40)

.BOARD):

if .ERROUT then ERRSOFT (411, MSG3, 0);

tes;

0);

(m
OPT

Iv 486 *

1 :
begin
v 4B7 «x
FATAL CONTROLLER ERROR =-- NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE_5;
ERRDF (413, MSG1, 0);
“Txaxx OPTION 4 ERROR 13 tw«a
DODU (.LUN);
leave LOOP:
'JUMP_JUST BEYOND END OF BLOCK * 3 «
end;
Ix 4B7

31 :
begvn
fx 4B8 =
FATAL DRIVE ERROR =~ NO RETRY ALLOWED
ERRDF (414, MSG1, 0);
iaxxx OPTION 4 ERROR 14 %tws
WHY_DROPT [.LUNI = CODE_6;

1"
1"
1
11
1

n
}}
1"
n

1
n.
n
1.
11
1
11¢
1
11¢

11
11
114
1u
114
114
114
114
114
114
114

CZMLBBO PERFORMANCE EXERCISER
OPT3 DEFINITION OF OPTION 3

MACRO M1113

29-MAR-82 13:41

&
B_
PAGE 234

SEQ 0246

10689 MLXx4

}823? H
10692 ;

6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
gg%}

10706 ;
10707 ;

6233
6234

;
:
:
;

10712 ;

10713 ;
10714 :
10715 ;

10716 :
10717 ;
10718 ;

10719 ;
10720 ;
10721 ;

10722 :

10723 :
10724 :
10725 ;

6235
6236
6237
6238

6239

6240
6241
6242

6243
6244
6245

6246
6247
248

€249

6250
6251
6252

10726 ;
10727 :

6253
6254

10729 ;
10730 ;
10731 ;

6256
6257
6258

10728 :

10732
10733
10734
1073S

:
;
;
;

10736 ;
10737 :
10738 ;
10739 ;
10740 :
10741 ;
10742 ;
10743 .

<7-Mar-1982 19:23:44

6219

10693 ;
10694 ;
10695 ;
10696 ;
10697 ;
10698 ;
10699 ;
10700 ;
10701 ;
10702 ;
10703 ;
}8;8; H

10708
10709
10710
10711

27-Mar-1982 19:24:42

DEFINITICN OF OPTION &

6255

6259
6260
6261
6262

6263
6264
6265
6266
6267
6268
6269
6270

DODU (.LUN);

tes.

Leave LOOP;
end;

end;

TOPS-20 Btiss~16 v2(212)

PA:<NEALE>MLXG.BLI.S (40)

1JUMP JUST BEYOND END OF BLOCK % 3 «
In 4B8 t
!* 4B «

END OF 2ND SECTOR SELECTION LOOP

PRINTB (FMT2, WRD25):
'
DOWN'
COMMAND = CHOOSE ();

decr SECTOR from HIGHEST to LOWEST do
begin

'« 4C «

START OF 3RD SECTOR SELECTION LOOP

if .COMMAND eql read
then

else

begvn
PTR = _RCPTR;
VALUE = read (.LUN, 25¢, .PIR,
end

.SECTOR);

begvn
PTR = .WCPIR;
VALUE = CHECK (.LUN, 256, .I'TR, .SECTOR):

end;

'+
!
SEE HOW SUCCESSFUL THE OPERATION WAS:
'
selectone .VALUE of

set

ISEE

*SYSERR' FOR DEFINITION

!OF ERROR # CONTAINED IN ‘VALUE®

£oJ :

.
if .COMMAND eql read

then

begin

if (DBL_VALUE = DOUBLE_CHECK (.WCPTR, .RCPTR, 256))
neq 0
then
~
begin
SAYWHO (.LUN);
PRINTB (SAY1, MSGS);
!'ECC LOGIC FAILED TO DETECT DATA ERROR®
PRINTB (FMT12A, ..DBL VALUE, .DBL VALUE);
1'GO0D DATA: XXXXXX AT LOCATION YYYYYY®
DBL_VALUE = .DBL_VALUE + BUFSIZ#*2;
PRIRTB (FMT12B, -.DBL VALUE, .DBL_VALUE):;
!'BAD DATA:
PPPPPP AT LOCATION 0Jagaa’
WHY DROPT [.LUN] = CODE_8;
ERRDF (415, MSG1, 0);
!xxax OPTION & ERROR 15 ween

«IMLBBO PERFORMANCE EXERCISER
OPT3 DEFINITION OF OPTION 3
10745 :MLX4

}8;2(7: :
10748 ;
10749 ;
10750
10751 :
10752 ;
10753 :
10754 :
10755 :
10756 :
10757 :
10758 :
10759 ;
10760 :
10761 :

10762
10763 ;
10764 ;

10765 :
10766 ;
10767

10768 :

10769
10770
10771
10772
10773

*
:

1077%
10775 :
10776 :
10777 :
10778
10779 :
10780 :
10781 :
10782 :

10783 ;
10784 ;
10785 :

29-MAR-82 13:41

€_
4
PAGE 235
SEQ 0247
27-Mar-1982 19:24:42

DEFINITION OF OPTION &
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
628%

6288
6289
6290

6291

6292
6293
629%
6295
6296

6297
6298
6299
6300
6301
6302
6303
6304
6305

6306
6307
6308

6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320

10799 :

6322

6321

27-Mar-1982 19:23:44
DODU (.LUN);
Leave LOOPend;

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (40)

YJUMP JUST BEYOND END OF BLOCK = 4 «

end;

€13

6285
6286
6287

10786 10787 :
10788
10789 :
10790 :
10791
10792 :
10793 :
10794 :
10795 &
10796 :
10797 :
10798 :

MACRO M1113

:
begin
v 4C1 «
RETRY ALLOWED
.
if RETRY (SIX, .COMMAND, .LUN, 256, .PTR, .SECT
OR) neq 0
then
'THE RETRY FAILED == SYSTEM FATAL ERROR
begin
WHY _DROPT [.LUN] = CODE_4;
ERRDF (416, MSG1, 0):
Ixaxs OPTION 4 ERROR 16 #w#e

DODU (.LUNJ;
Leave LOOP;
end;

end;

'JUMP JUST BEYOND END OF BLOCK * 3 +
v 4C1

21 :

begin
1% 402 «
WHY DROPT [.LUN] = CODE_S;

ERRDF

(417,

DODU (.LUNJ;
Leave LOOP;:
end;

MSG1, 0);

FATAL CONTROLLER ERROR =~ NO RETRY ALLOWED

“Tanxx OPTION 4 ERROR 17 nexs

!JUMP JUST BEYOND END OF BLOCK * 3
ix 4C2 «

£33

:
begln
v 4C3 *
FATAL DRIVE ERROR ~~ NO RETRY ALLOWED
ERRDF (418, MSG1, 0):
isxexx OPTION 4 ERROR 18 ttx#
WHY DROPT [.LUNI = CODE_6;
pODD (.LUN):
Leave LOOP:
!JUMP _JUST BEYOND END OF BLOCK * 3 +
end;
ix 4C3 »

(41

:
begin
Ix 4C4 «
UNRECOVERABLE DATA ERROR
ISOLATE ();
ERRDF (419, MSG2, 0):
!sxxx OPTION 4 ERROR 19 #aws
WHY DROPT [.LUNI = CODE_7:
DODD (.LUN);
leave LOOP;:
'JUMP JUST BEYOND END OF BLOCK * 3 +
end;
ix 4C4 *

(51

:
begin
ISOLATE O);

Ix 4CS *

it .ERROUT then PRINTB (FMT10B,

BIT Q@'

RECOVERABLE DATA ERROR
.CHAN):

(ZMLBBO PERFORMANCE EXERCISER

OPT3 DEFINITION OF OPTION 3
10801

.MLX4

}838% M
10804 ;

10805 .
10806 :

10807 .
10808 ;

10809
10810
10811
10812
10813
10814
10815

;
;
;

;
;
;
10816 ;
10817 ;
10818 ;
10819 ;
10820 ;
10821 ;
10822 ;

10823 ;
10824 ;

10825
10826
10827
10828

:
:
;
;

10829 ;
10830 :
10827 .
10832 .

10833 ;

10834 ;
10835 .
10836 ;
10837 ;
10838 ;
10839 ;
10840 ;
10841 ;
10842 ;
10843 ;
10844 ;
10845 ;

10846 :
10847 ;
10848 .
10849 ;
10850 ;
10857 .
10852 ;
10853 .
10854 :
10855 ;

MACRO M1113

29-MAR-82 13:41

D_4
PAGE 236

SEQ 0248
27-Mar-1982

DEFINITION OF OPTION 4
6323

27-Mar-1982

OLDCHN = .CHAN;
.

6326
6327

if RETRY (ONE, .COMMAND. .LUN, 256, .PTR, .SECTOR) eql
S
then
.
if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin
.
it .ERROUT then ERRHRD (420, MSG4, 0);
!xxxx OPTION 4 ERROR 20 weew

6328
6329
6330
6331
6332
6333
6334

6335

UP_HARD_COUNT (.LUN,

6336
6337
6338
6339
6340
6341

else

.BOARD):;

begin

UP_SOFT_COUNT (.LUN,
end

6344
6345
6346
6347

else

6348
6349
6350
6351

sxwe

begin
.

UP_SOFT_COUNT (.LUN,
end;
tes;

!'+#x+ OPTION & ERROR 21

.BOARD):

if .ERROUT then ERRSOFT (422, MSG3, 0;

6352

6364

end

if .ERROUT then ERRSOFT (421, MSG3, 0);

6342
6343

6365
6366
6367
6368
6369
6370
6371
6372
6373
6374

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.5 (40)

OLDSEC = .MLEL;

6324
6325

6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363

19:24 142
19:23:4 4

end;

.
VALUE = write (.LUN, 256,

!axex OPTION 4 ERROR 22 twtx

.BOARD):

tx 4C5 »
.WDPITR,

.SECTOR) ;

'+
!
SEE HOW SUCCESSFUL THE WRITE WAS:
l-

selectone .VALUE of
set

1SEE 'SYSERR' FOR DEFINITION
!OF ERROR # CONTAINED IN ‘VALUE®

[ :
begin
v 4C6 »
RETRY ALLOWED
.
.
if RETRY (SIX, write, .LUN, 256, .WDPTR, .SECTOR
) ne? 0
then
:THE RETRY FAILED -- SYSTEM FATAL ERROR
begin
WHY DROPT [.LUN] = CODE_4;
ERRDF (423, MSG1, 0);
!#xxx OPTION 4 ERROR 23 sarv
DODU (.LUNS;
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * 3 «

(ZMLBBO PERFORMANCE EXERCISER

OPT3 DEFINITION OF OPTION 3
10857 :MLX4

}83;3 :
10860
10861 ;
10862 ;
10863
10864 ;

10868
10869
10870
10871

6383
6384
6385
6386

10872 ;

10873 :
10874 ;
10875 :
10876 .
10877 ;
10878 ;
10879 ;
10880 :
10881 :
10882 .
10883 .
10884 ;
10885 ;
1786 .
10887 .
10888 .
10889 .

10890 ;
10891 ;
10892 ;

10893 :;
10894 ;
10895 .

10896 .
10897 :

10898
10899
10900
10901

;
;
.
;

10902 ;

10903 .
10904 ;
10905 .
10906 ;

E__&4
PAGE 237

SEQ 0249

6375
6376
6377
6378
6379

6380
6381

;
;
;
;

29-MAR-82 13:41

27-Mar-1982 19:24:42

DEFINITION OF OPTION 4

10865 ;
10866 ;

10867 ;

MACRO M1113

end;
ey

6408
6409
6410

6411
6412
6413
6414
6415
6416

6417

6418
6419
6420
6421

6424
6425

' 4C6 *

begin
I 4C7 »
WHY DROPT [.LUN] = CODE_S;
ERRDF

(424, MSG1, 0;

DODU (.LUN);
leave LOOP;
end;

6387

6405
6406
6407

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (40)

end;

6382

6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404

27-Mar-1982 19:23:44

tes;

FATAL CONTROLLER ERROR == NO RETRY ALLOWED

!xaxx OPTION 4 ERROR 24 wane

!JUMP_JUST BEYOND END OF BLOCK * 3«
'n 4C7 »

begln
In 4C8 »
FATAL DRIVE ERROR =-- NO RETRY ALLOWED
ERRDF (425, MSG1, 0);
!xaxx OPTION 4 ERROR 25 s#wn
WHY DROPT [.LUN] = CODE_6;
popD (.LUN);
leave LOOP;
1JUMP JUST BEYOND END OF BLOCK * 3 «
end;
In 4(C8 «

end;

! 4C «

END OF 3RD SECTOR SELECTION LOOP

PRINTB (FMT2, WRD24);
voyp!
COMMAND = CHOOSE ().

!
.
.
.
! version czmlbb changed incr to incru
!

incru SECTOR from LOWEST to HIGHEST do
begin
! 4D *
.

START OF 4TH SECTOR SELECTION LOOP

if .COMMAND eql read
then
beg1n

PTR = .RDPTR;
VALUE = read (.LUN, 256, .PTR, .SECTOR):

else

end

begvn
PTR = .WDPIR;

VALUE = CHECK (.LUN, 256, .PTR, .SECTOR):

end;

te
;
SEE HOW SUCCESSFUL THE OPERATION WAS:

selectone .VALUE of
set

{SEE_"SYSERR' FOR DEFINITION
!0F ERROR # CONTAINED IN °‘VALUE®

CZMLBBO PERFORMANCE EXERCISER

OPT3 DEFINITION OF OPTION 3
10913 .mLXx4

}88}? :
10916 ;

6427

6428
6429

10920 .

6431

10921
10922
10923
10924
10925
10926
10927

;
;
;
;
;

10928
10929

10939
10940
10941
10942
10943
10944

6450
6451
6452
6453
6454
6455

b e

-0
~yO N &S N —a

oy b

i mh b

b ed

%O888000000

O AW vila N

»H

d d

e e
e

olel=lelelelele] [=l=le]

;

;
:

;

;
;
;
;
:
;
;
:
;
:
;

gzgg

.
it .COMMAND egl read

then

begin

.
it (DBL_VALUE = DOUBLE_CHECK (.WDPIR, -RDPTR, 256))
neq 0
then
~
begin
SAYWHO (.LUN);
PRINTB (SAY1, MSGS);
!'ECC LOGIC FAILED TO DETECT DATA ERROR®
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE);
1'GO0D DATA: XXXXXX AT LOCATION YVYYYY®

DBL_VALUE = .DBL_VALUE + BUFSIZ*2:
PRIRTB (FMT128, -.DBL_VALUE, .DBL VALUE);
!'BAD DATA:
PPPPPP AT LOCATION alQaoQ*
WHY DROPT [.LUN] = CODE_8;
ERRDF (426, MSG1, 0);
!exxx OPTION 4 ERROR 26 swan

DODU (.LUN);
leave LOOP;

end;

!JUMP JUST BEYOND END OF BLOCK * 4 «

end;

11 :
begin
.
if RETRY (SIX,
thenb

)

v 4D1
.COMMAND,

egin

WHY DROPT [.LUN] = CODE_é;
ERRDF (427,
MSG1, 0);
DODU (.LUNS:

6462

end;

6461

leave LOOP;

6463

6465
6466

6467

6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478

end;

RETRY ALLOWED

.LUN, 256, .PTR, .SECTOR) neq 0
'THE RETRY FAILED -~ SYSTEM FATAL ERROR

6458
6459
6460

6464

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (40)

6449

10947 :
:
;
950 ;;
:

6432
64633
6434
6435
6436
66437
6438

6446
6447
6448

27-Mar-1982 19:24:42

6430

10935
10936
10937

;

27~-Mar-1982 19:23:44

6441
6442
6443
6444
6445

10938

PAGE 238

SEQ 0250

6439
6440

10930
10931
10932
10933
10934

b e

29-MAR-82 13:41

DEFINITION OF OPTION &

10917 :
10918 ;

10919

MACRO M1113

Yexes OPTION 4 FRROR 27 *xas

'JUMP JUST BEYOND END OF BLOCK * 3 +

'x 4D

21 :

begin

v 4D2 *

FATAL CONTROLLER ERROR -- NO RETRY ALLOWED

'x 4D3 *

FATAL DRIVE ERROR == NO RETRY ALLOWED

WHY DROPT [.LUN] = CODE_S5;
ERRDF (428, MSG1, 0);
“Tawxx OPTION 4 ERROR 28 s
DODU (.LUNS:
leave LOOP;
'JUMP_JUST BEYOND END OF BLOCK * 3 =
end:
T 4D2 =

£33 :

bea1n

ERRDF (429,

MSG1, 0);

xxx« OPTION 4 ERROR 29 wess

WHY DROPT E.LUN] = CODE_6;
0000 (.LUN):

CgHLBgO PERFORMANCE EXERCISER

OPT3

DEFINITION OF OPTION 3

10969 MLX4

}83;? H
10972 ;
10973 ;

10974
10975
10976
10977

;
;
;
;

10978 :
10979 *
10780 ;
10981 ;
10982 ;
10983
10984 ;
10985 ;
10986 ;
10987 :
10988
10989 ;
10990 ;

10991

10992 :

10993 :
10994 :
10995 ;

10996 ;
10997 ;

10998 :
10999 ;
11000 ;

6479
6480
6481
6482
6483
64684

6485
6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497

11010 ;
11011 :

6517
6518

.
;
:
;

1JUMP_JUST BEYOND END OF BLOCK « 3 «
‘v 4D3 «

:
begin
ISOLATE

v 4D4 «

();

UNRECOVERABLE DATA ERROR

'
8IT aQ'
OLDSEC = .MLEL;

OLDCHN = _CHAN;
,
if RETRY (ONE,
then
.
if

.COMMAND,

((.MLEL eql

then

else

.LUN, 256,

.PTR,

.OLDSEC) and (.CHAN eql

,SECTOR) eql 5
.OLDCHN))

begin
.
.
if .ERROUT then ERRHRD (431, MSG4, 0);

UP_HARD_COUNT (.LUN,
end

‘'%xxx OPTION 4 ERROR 31

wews

.BOARD):

begin

if .ERROUT then ERRSOFT (432, MSG3, 0); !'sxxx OPTION 4 ERROR
32 »une
UP_SOFT_COUNT (.LUN,
end

6519
6520
6521
6522

else

ggsz

.BOARD);

begin
.

if .ERROUT then ERRSOFT (433, MSG3, 0);

6525
6526

6527
6528
65;9
6530

TOPS~-20 Bliss-16 v2(212)

PA: <NEALE>MLX4.BLI.S (40)

leave LOOP;
end;

6505
6506
6507

gg}g

11020
11021
11022
11023

27-Mar-1982 19:23:44

51 :
|
begin
v 4DS «
RECOVERABLE DATA ERROR
ISOLATE ();
.
if .ERROUT then PRINTB (FMT108, .CHAN):

6503
6504

1;88% H

11018 ;
11019 ;

27~Mar-1982 19:24:42

ERRDF (430, MSG2, 0):;
!«xet OPTION 4 ERROR 30 woen
YHY DROPT [.LUN] = CODE_7;
00D0 (.LUN):
leave LOOP;
1JUMP JUST BEYOND END OF BLOCK + 3«
end;
v 4D4 «

6500
6501
6502

6510
6511
6512
6513
6514

%%8}? N

043

6499

11003
11004
11005
11006
11007

;
;
;
;

G
&
PAGE 239

SEQ 0251

6498

gggg

11012
11013
11014
11015

29-MAR-B2 13:41

DEFINITION OF OPTION &

%}88% :

;
;
:
;
:

MACRO M1113

UP_SOFT_COUNT (.LUN,
end;
tes;

end;

.BOARD);
'x (DS «

!*xvx OPTION 4 ERROR 33 sene

Onmr
o~
b

b b —h b d i cmd b b cnd b vd =D ) b
mpd b
il cnd @D md ad wmd crnd Sd i —d b
b ok
) et e s D _a—t...—c—_a_a_._.a_a_g_._a—a-n_.-n_‘_._.
) vd e d ad d
—

88 O PERFORMANCE EXERCISER
DEFINITION OF OPTION 3

b d ek e b b i d oy ey,

1025 .MLX4
18%9 :

ggg :

030 :

031
032
033
036

:
;
.
;

035 ;

036 :
037 ;
038 ;
039 ;
040 ;
041 ;
042 ;

043 ;
044 ;

822 H

047 ;
048 ;
049 ;

nd e ol e

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

2;%}

end;

6533

end;

6546
6547

ggzg

6550
6551

6552

END OF 4TH SECTOR SELECTION LOOP

!* 4 +

END OF TEST FOR AN ACTIVE UNIT

e
.
.
)
; Test to see if this uut's address space is
! to be read for soft errors.
This test is
! is intended for DMT purposes.
.
if _EFNS21
!Is the background pattern to be read
then
begin

6538

6539
6540
6541
6542
6543
6544
6545

!
!

version czmlbb changed incr to incru

incru SECTOR from LOWEST to HIGHEST do
if read (.LUN, 256, RBUFF, .SECTOR) eql 5
then
begin

)

if .ERROUT then PRINTB (FMT10B, .CHAN);

054 ;

6557

! Print where the error is

060 ;
061 ;
062 :
063 ;
064 :
065 :
066
067 ;

068
069
070
071
072

073
074
075
076
077

;
.
;
;
;

;
;
;
;
;

078 ;

079 ;

ISOLATE ();

!Find the failing bank and board no.

6558
6559

!
.
! Save the contents of the ML error location

6561
6562

! contents of this register after the retry.
! This is done to classify the error.

6560

6563
6564
6565
6566
6367
6568
6569
6570

6571
6572
6573
6574
6575

6576
6577
6578
6579
6580

6581

6582

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.5 (40)

‘% 4D ~

gggg

el
and e S oed med WD e —d ond wnd cod

D e

SEQ 0252

DEFINITION OF OPTION 4

6534
6535
6536
6537

8§§ :

058 .
059 ;

i vt ek e

PAGE 240

gggz

057 ;

e el o

29-MAR-B2 13:41

829 :

055 ;
056 ;

b e

MACRO M1113

!
OLDSEC = .MLEL;
OLDCHN = .CHAN;
[
)
: Do a classify retry call.
If the same error
: occures then classify it as a hard error.
If
. a different error occured or the error went away
! then classify it as a soft error.
!

if RETRY (ONE,
then
!

.COMMAND,

.LUN, 256,

.PTR,

.OLDSEC) eql §

L
! The same error occured so see if it is at the same
: sector and channel number,
if so then classify
! it as a hard error else classiy it as a soft
! error.
!

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

O PERFORMANCE EXERCISER

EFINITION OF OPTION 3

81 .MLx4

gg :

MACRO M1113

29-MAR-82 13:41

PAGE 541

SEQ 0253

27-Mar-1982

DEFINITION OF OPTION &

86 ;

27-Mar-1982

6583

85 ;

6584

86
87

then

:
:

!Same error cccured 'hard'

if .ERROUT
then

Print error

end;

6594
6595
6596

else

6599
6600
6601
6602

!Not the same error 'soft’

if .ERROUT
then

!Print error if enabled

else

6613

then

begin
ERRSOFT (436,
MSG3,
0);
end;

6616
—

begin
if .ERROUT

6614

o
o

.BOARD);

!'Error number
!Error message
)
!Additional message routine

UP_SOFT_COUNT (.LUN, .BOARD) ;
end

6610
6611

!Additional message routine

begin

6604
6605

6618
6619
6621
6622

!Not the same error ‘soft’
'!Print error if enabled
'Error number
'Error message
!Additional message routine

UP_SOFT_COUNT (.LUN, .BOARD):
end;

6624

end;

6626

6631
6632

0);

begin
ERRSOFT (435,
MSG3,
0):;
end;

6607
6608

'Error number
iError message

UP_HARD_COUNT (.LUN,
end

o
o
o

6597

6628
6629

if enabled

begin

ERRHRD (434,
MSGé,

65N
6592

7
98 ;

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (40)

begin

89
90

:
:

19:24:42

19:23:44

end;

end;
end;

return;
end;

:* 3 «+
'* 2 «~

END OF LOOP THAT COMPLETELY TESTS 1 UNIT
END OF LOGICAL UNIT SELECTION LOOP

'« 1 «

END OF ROUTINE

O
Ory

MLBB O

PERFORMANCE EXERCISER

T3 DEFINITION OF OPTION 3

11141
11142
11146 062446
11147 062450

11148 062456
11149 062460
11150 062464
11151 062470
11152 062476
11153 062476

11154 062500

11155 062504
11156 062510
11157 062514

11158 062520

11159
11160
11161
11162

062522
062526
062532
062540

11163 062546
11164 062554
11165 062562
11166 062570
11167 062574
11168 062600
11169 062604
11170 062606
11171 062610
11172 062612
11173 062616

11174 062620
11175 062624

11176 062630

11177 062634
11178 062636
11179 062642
11180 062646
11181 062650
11182 062652
11183 062656
11184 062664
11185 062670
11186 062674
11187 062700
11188 062702
11189 062704
11190 062710
11191 062714

006167
162706
012746
012746
012746
012746
010600
104414
016716
012746
004767
016716
005416
012746
004767

012766
012766

012766
012766
016766
005066
000167
016600
006200
006200
006200
062700
010046

016646
042716

012746

005046
004767
062706
005300
001402
000167
016667
012746
012746
012746
010600
104414
012716
012746
012746

MACRO M1113

0PT4:

117542

012670
157050
117526

022670
023670
117224
000014
005362
000014

000016
000026

000024
000034
000042

1$:

000016
177770

000001

/332
006160
000002

MOV
MOV
MOV
CLR
JMP
MOV
ASR

117210

2%:

OPT4 DEFINITION OF OPTION 4
R1,$SAVES
#30,sp

#RTNG - (SP)
#WRD3S
- (SP)
#SAY2,<(SP)
#3,-($P)
SP.RO
14
MARPAT . (SP)
MWDBUFF ,~(SP)
PC,GENG
MARPAT, (SP)
(SP)
MICBUFF ,~(SP)
PC,GENG

5908

;

5981

;

MIDBUFF , 16 (SP)
MWCBUFF .26 (5M)

SP,«

;

5983

5984

;
¢

*,WDPTR
«.WCPTR

¢ «.RDPTR
¢ *.RCPTR
:
FILY

ASR
ASR
ADD
MOV
MOV
8IC

#RDBUFF .24 (SP)
#RCBUFF 34 (SP)
LSUNIT,42(SP)
14(SP)
958
14 (SP) ,RO
RO

16(SP) ,=(SP)
2177770, (sP)

; LUN,*

CLR
JSR
ADD
DEC
BEQ
JMP
MOV
MOV
MoV
MOV
MOV
TRAP
MOV
MOV
MOV

-(5P)
PC,BLSGT2
#10.sp
RO
2s
838
14(SP) ,LSLUN
MIRD3S5 .~ (SP)
#SAY1,<(SP)
#2,-(SP)
SP,RO
14
MIRD2G , (SP)
#FMT2,Z(SP)
#2,-(5P)

: LUN,*
:

MOV

121514
000010

007072
000002

.SBTTL
JSR
sUB
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
Mov
JSR
MoV
NEG
MOV
JSR

MOV
MOV

034442

004630
000034
007354

PAGE 242

SEQ 0254

122664
000030
007650
007344
007100
000003

013670
157032
012670
013670

29-MAR-82 13:41

; LUN,»

5985
5986

5987
5988
5990
5995

RO
RO
#DRI
. STATUS
VE
RO
RO,=(SP)

#1,-(SP}

5998
5999

; SP,*
:

6001

(IMLBBO PERFORMANCE EXERCISER
OPT4L DEFINATION OF OPTION &

MACRO M1113

11203 062752
11204 062756
11205 062762

11206 062766

11207 062770
11208 062776

11209 063000
11210 063004
11211 063006
11212 063012
11213 063014
11214 063020

11215 063022

11216 063026
11217 063032
11218 063036
11219 063042
11220 063046
11221 063050
11222 063054
11223 063060

11224 063062
11225 063064
11226 063070
11227 063076

11228 063100

11229 063102
11230 063104

11231 063106

11232 063112
11233 063114

11234 063116

11235 063122
11236 063124
11237 063130
11238 06313
11239 063140
11240 063142
11241 063144
11242 063146
11245 063152

11244 063154
11245 063156

11246 063162
11247 063164

JMLX&

};;gg

11199 062730
11200 062732
11201 062740
11202 062744

PAGE 243

SEQ 0255

11193

11196 062720
11197 062722
11198 062724

29-MAR-82 13:41

:
010600
104414
016600

006300
01276€
06006C
012766

060066
017601
017604

000516

01¢646
012746

016646
01044%
004767
010005
020527
001036

012746

012746
016646
012746
016646
010446
004767
062706
005700
001455
016600
112760
104455

MOV
TRAP
MOV

000026
034460
000052
034500
000050
000050
000052

ASL
MOV
ADD
MOV

000052
000050

000026
000400

ADD
MOV
MoV

38:

000034

000001
000006

045424
000062
000400
000050
163150
000014
000036
000004

016600
104451
000435

020527

001015
016600
112760
104455
000622
011070

000060

016600
104451
000415
020527
001015
104455

MOV
MOV

BEQ
MOV
MOVB
TRAP

034446

000621

011070
000000

B8R

MOV
MOV
JSR
MOV
CMP
8NE
MOV
MOV
MOV
MOV
MOV
MOV
JSR
ADD
ST

162412

WORD

000036

000036
000005

48:
034446

000003

5¢:

SP,#

;

LUN,*

RO,50(SP)
a50(sP),R1
252(SP) 'R4

;

*,SECTOR

LUN,*

RO
#LOW.SECT,52(SP)
RO,52(SP)
#TOP_SECT,50(SP)

26(SP) ,=(SP)
#400,~(SP)

34(SP) ,=(SP)
R4 ,=(SP)
PC.WRITE
RO.RS
RS.#1
43
#6,<(SP)
MURITE,-(SP)
42(SP) .~(5P)
#400,-(SP)
50(SP) ,~(SP)
Ré,=(SP)
PC.RETRY
#4,Sp
RO

621

MSG1
0

TRAP
BR

51
6$

cMP

BNE
MOV
MOVB
TRAP
JWORD
.WORD
.WORD

000036

;

78
36(SP) RO
#4.WHY.DROPT(RO)
S5

MOV
TRAP
B8R
CMP
BNE
TRAP

36(SP) RO

RS, #2

53
36(SP),RO
#5.WHY.DROPT{RO)
55
622
MSG1
0
36(SP) ,RO
51

68
R5.#3
78
5%

19:24:42

c7-Mar-1982 19:23:44

SP.RO
14
26(SP) .RO

.WORD
.WORD

MOV

000002

27-Mar-1982

DEFINITION OF OPTION &

TOPS

PA:<

6007

6009

; WDPIR,*
* SECTOR,*
:
*

%, VALUE
VALUE,+

6015
6021

LUN,*

: WDPIR,*
¢ SECTOR,*

: LUN,*

6024

;

6025

: LUN,»

6026

;

6027

: VALUE,*

6015

; LUN,*

6034

6035

; LUN,*

6036

:
: VALUE,*

6037
6015

6042

CZMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION &

MACRO M1113
JMLXG

Hgg?

11252 063166

11¢53 063170
11254 063172

0631764
063200
063206
063210

11259 063214

11260 063216

11261 063222

11262 063224
11263 063226
11264 063230
11265 063236
11266 063240
11267 063244
11268 063246
11269 063250
11270 063254
11271 063256

11272 063264
11273 063270
11274 063274
11275 063276
11276 063302
11277 063304

11278 053306
11279 063312

11280 063316

11281 063322
11282 063324
11283 063326
11284 063332
1,085 063334
11286 063340
11287 063364
11288 063350
11289 063352
11290 063354

11291 063360
11292 063362
11293 063364
11294 063366
11295 063370
11296 063374
11297 063400
11298 063406

11299 063410
11300 063414
11301 063420
11302 063424
11303 063426

000623

011070
000000

.WORD
JWORD

016600
112766
104451
062706

000022

6$:

062706

000010

78:

000565

005204

020401
101660
012716
012746
012746
010600
104414
004767
010002
017666

017604
000167
005001
020227
001014
005201

016603
016646
012746

010346
010446
004767
0U0412
016603
016646
012746
010346
(10446

004767

010005
001103
006007
103402
000167
016646
016646
012746

004767
062706
010066
001761
016646

034446

8$:
007332
006160
000002

162712
000054

000056
001350
045612

000046

0000642
000032

000400

000034
000032
000400
162420

001012
000044
000054
000400
160712
000006
000060

000042

ADD

#10,5P

INC

(MP
BLOS
MOV
MOV
MOV
MOV
TRAP
JSR
MOV
MOV

MOV
JMP
CLR
(MP
BNE
INC
MOV
MOV

108:

1$:

128:
138:

MOV
MOV
JSR
BR
MoV
oV
MOV
MOV
MoV
JSR

MoV
BNE
ROR
8LO
JMP
MoV
MOV
MOV

JSR
ADD
MOV
BEQ
MOV

TOPS

PA:<

623

36(SP) RO
#6.WHY.DROPT(RO)
51
#22,5P

B8R

27-Mar-1982 19:23:44

MSG1
0

MoY
MOVB
TRAP
ADD

MOV

162260

27-Mar-1982 19:24:42

DEFINITION OF OPTION 4
.WORD

000036
000006

L
4
PAGE 244
SEQ 0256

11249

11255
11256
11257
11258

29-MAR-82 13:41

148

#4600, ~{SP)

R3,-(SP)
RG.-(SP)
PC.READ
11§
34(SP) .R3
32(SP) .~(SP)
#4500, -(SP)
R3,-(SP)
RG.~(SP)
PC. CHECK
RO RS
15§
R1
13s
288
44 (SP) ,=(SP)
54(SP) .~(SP)
#400,-(sP)
PC,DOU
. BLE
CHECK
#6.SP
RO,60(SP)
12§
42(SP) ,~(SP)

6043

;
:

6044
6045

6008

* SECTOR

R4 ,R1
38
#WRD24 , (SP)
NEMT2,Z(SP)
#2,-(5P)
SP.RO
14
PC.CHOOSE
RO.R2
854 (SP) ,46(sSP)

256(SP) JRé
33s
R1
R2,#READ
10§
R1
42(SP) ,R3
32(SP) .~(SP)

: LUN,*

SECTOR,*

;

:
:
:
¢

6007
6051

SP.#

*,COMMAND

*,SECTOR

6053
6058

:
: COMMAND +

6061

: RDPTR,PIR
: LUN,*

6064
6065

: PIR,*
: SECTOR,*

; WDPTR,PTR
: LUN,*

6069
6070

; PIR,*
: SECTOR,*

; *,VALUE
:
:
; WDPIR,*
* RDPTR.+*

;

6077
6082
6086

*,DBL.VALUE

: LUN,*

6089

CZMLBBO PERFORMANCE EXERCISER

OPT4 DEFINITION OF OPTION &

MACRO M1113
JMLXG
:

004767
012716

11310 063442
(12746
11311 063446
012746
11312 063452
010600
11313 063454
104414
11314 063456
016616
11315 063462
017646
11316 063466
012746
11317 063472
012746
11318 063476
010600
11319 063500
104414
11320 063502
062766
11321 063510
016616
11322 063514
017646
11323 063520 012746
11324 063524
012746
11325 063530 010600
11326 063532
104414
11327 063534
016601
11328 063540
112761
11329 063546
104455
11330 063550 000624
11331 063552 011070

11332
11333
11334
11335
11336

063554
063556
063562
063564
063570

11337 063572

11338 063576
11339 063600
11340 0636046
11341 063606
11342 063612
11343 063616
11344 063620
11345 063622
11346 063626
11347 063632
11348 063634
11349 063636
11350 063642
11351 063650
11352 063652
11353 063654
11354 063656
11355 063660
11356 063664
11357 063666
11358 063670
11359 063674

000000
016600
104451
062706
000520

020527

001034
012746
010246
016646
012746
010346
010446
004767
062706
005700
001655
016601
112761
104455
000625
011070
000000
016600
104451
000457
020527
001015

152066
011216

MOV
MOV
MOV
TRAP
MOV
MoV
MOV
MoV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV
TRAP
MoV
MOVB
TRAP
MWORD
.WORD

000066
000066
006710
000003

000064

000010

000074

034446

000064
000050

14$:
158 :

000001

000006

000046
000400
162376
000014

000042
000004

034446

000042
000002

16$:

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION &
JSR
MOV

007072
000002

010000
000074
000074
006756
000003

PAGE 245

SEQ 0257

11308
}}%89

11308 063432
11309 063436

29-MAR-82 13:41

.WORD
MOV
TRAP
ADD
BR
CMP

BNE
MOV
MoV
MOV
MoV
MoV
MOV
JSR
ADD
ST
BEQ
MOV
MOVB
TRAP
.WORD
.WORD
WORD
MOV
TRAP
8R
CMP
BNE

PC,SAYWHO
#MSGS, (SP)

#SAY1.~(SP)
#2,-(SP)
SP,RO
14
66(SP) , (SP)
2b6(SP) ,~(SP)
#FMT12A.-(SP)
#3,~(SP)
SP.RO
14
#10000, 74 (SP)
74 (SP) . (SP)
374 (SPY ,=(SP)
NFMT12B.~(SP)
#3,-(SP)
SP.RO
14
64 (SP) ,R1
#10.WHY.DROPT(R1)
55
624
MSG1

0
64 (SP) ,RO
§1
#50,SP
208

R5.M

168
#6,~(SP)
R2.~(SP)
46(SP) ,=(SP)
#400,-(SP)
R3,~(SP)
R4,~-(SP)
PC.RETRY
4, SP
RO
128
42(SP) ,R1
#4,WHY.DROPT(RT)
55
625
MSG1
0
42(SP) ,RO
§1
198
RS, #2
17$

;

6090

SP,w

; DBL.VALUE,+
3 DBL.VALUE.«
:

TOPS
PA:<

6092

SP,«

; +,DBL.VALUE
; DBL.VALUE,*

: DBL.VALUE.«

6094
6095

; Skw
: LUN,*

6097

6098

: LUN,*

6099

6100

; VALUE,*

6077

:
: COMMAND,
+
: LUN,*

6108

: PIR,»
; SECTOR,*

: LUN,
=

6111

6112

; LUN,*

6113

;
; VALUE,*

6114
6077

;

(ZMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION 4

MACRO M1113

JMLX4

}}ggg

11364 063676
11365 063702
11366 063710
11367 063712

063714
063716
063720
063724

11372 063726
11373 063730

11374 063736
11375 063736
11376 063740
11377 063742
11378 063744

11379 063746
11380 063752

11381 063760
11382 063762

11383 063764
11386 063766
11385 063772
11386 063774
11387 064000
11388 064002
11389 064004
11390 064006
11391 064010
11392 064014
11393 064022
11394 064024
11395 064026
11396 064032
11397 064036
11398 064042
11399 064044
11400 064050
11401 064056
11402 064060
11403 064064
11404 064066
11405 064070
11406 064072
11407 064074
11408 064076
11409 064100
11410 064104
11411 064106
11412 064112
11413 064116
11414 064120
11415 064122

016601
112761
104455

000042
000005

000437
020527

001014
104455
000627
011070
000000

.WORD

000003

016601 000042
112761

010100
104451

-WORD
JWORD
MOV
TRAP

000042

000006

000420
020527 000004
001021
004767
153332
104455
000630
011120
000000
016601
000042
112761
000007
010100
104451
062706 000026
000167 004120
020527 000005
001161
004767
153262
032767 000001
001423
017701
150324
006201
006201
006201
006201
006201
006201
042701
177700
010146
012746 006640
012746 000002
010600
104414
062706
000006

178:

034446

034446
198:
208:
218:

116202

B8R
CMP

BNE
TRAP
.WORD
-WORD
.WORD

42(SP) ,R1
#5,WHY.DROPT(R1)
55

626

MSG1
0
42(SP) ,RO
51

198
RS, 43
18§
55
627
MSG1
0

27-Mar-1982 19:23:44

LUN,*

TOPS

PA:<
6121
6122

|
:

LUN,*

6123

:
¢ VALUE,*

6124
6077

;

6129

MoV

42(SP) ,R1

: LUN,*

6130

MOV
TRAP

R1.RO
51

; LUN,*

6131

;
: VALUE,*

6132
6077

;
:

6137
6138

; LUN,*

6139

: LUN,*

6140

6141

; VALUE,*

6077

;
:

6146
6148

MOVB

188:

27-Mar=1982 19:24:42

DEFINITION OF OPTION &
MOV
MOVB
TRAP

0346446

000626

011070
(00000
016600
104451

N &
PAGE 246
SEQ 0258

11361

11368
11369
11370
11371

29-MAR-82 13:41

B8R
(MP
BNE
JSR
TRAP
.WORD
.WORD
.WORD
MOV
MOVB
MOV
TRAP
ADD
JMP
(MP
BNE
JSR
BIT
Bea
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
MoV
MOV
MoV
MOV
TRAP
ADD

#6.WHY.DROPT(R1)

198
RS, 44
218

PC.,ISOLATE
55
630
MS5G2
0
42(SP) R1
#7.WHY.DROPT(R1)
R1.RO
51
#26,5P
94$
RS, #5

28§
PC,ISOLATE
#1,ERROUT
228
ML .REG+42,R1
R1
R1
R1
R1
R1
R1

[

#177700,R1

R1,~(SP}
#FMT108B,~(SP)
#2,-(SPS
SP.RO

14
#6,5P

; SP,*

{{MLBBO PERFORMANCE EXERCIS ER
0PT4 DEFINITION OF OPTION 4

MACRO M1113

11428 064156

11429 064160

JMLX4
:

017766
017701
006201
006201
006201
006201
006201
006201

042701

010166

11430 064164
012746
11431 0646170 010246
11432 066172
016646
11433 064176 012746
11434 066202 010346
11435 064264
010446
11436 066206 004767
11437 064212 062706
11438 064216
020027
11439 066222 001052
11440 064226
027766
11441 064232 001035
11442 064236
016600
11443 0642640 017701
11444 064244
006201
11445 0646246 006201
11446 0646250 006201
11447 064252 006201
11448 064254
006201
11449 064256
006201
11450 064260 042701
11451 064264
020100
11452 064266
001017
11453 064270 032767
11454 064276 001404
11455 064300
104456
11456 064302 000631
11457 064304
011202
11458 064306
000000
11459 0664310 016646
11460 064314
016746
11461 064320
004767
11462 064324
000427
11463 064326
032767
11464 064334
001415
11465 064336
104457
11466 064340 000632
11467 064342 011166
11468 064344
000000
11469 064346

11470 064350
11471 064356

000410

032767
001404

150260
150250

000046

228:

177700

000046
000400

162012
000014
000005
000046

000050
150144

177700

000001

MoV
MOV
ASR
ASR
ASR
ASR
ASR
ASR

MOV

00000

115762

000042
150022
153076

238:

000001

115724

24$:

000001

115702

25%:

27-Mar-1982 19:24:42
27-Mar-1982 19:23.44

DEFINITION OF OPTION 4

BIC

000050

150162

B
S
PAGE 247
SEQ 0259

11417
}}2}3

11620 064126
11621 064136
11422 064140
11423 066142
11624 066144
11425 066146
11426 064150
11427 066152

29-MAR-82 13:41

ML .REG+44 , 46 (SP)
aML .REG+42 .R1
R1
R1
R1
R1
R1
R1

;
:

*,0LDSEC

R1,50(SP)

*,0LDCHN

6151
6152

#177700,R1

MOV
MOV
MOV
MOV
MoV
MOV
JSR
ADD
cMP
BNE
CMP
BNE
MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR
8IC
CMP
BNE
BIT
BEQ
TRAP
.WORD
.WORD
.WORD
MOV
MOV
JSR
BR
BIT
BEQ
TRAP
.WORD
.WORD
.WORD

#1.=(SP)
R2.-(SP)
46(SP) ,-(SP)
#400,~(SP)
R3,-(SP)
R&.~(SP)
PC.RETRY
#14,SP
RO, 45
25$
aML .REG+44,46(SP)
24$
50(SP) ,RO
ML .REG+42,R1
R1
R1
R1
R1
R1
R1
#177700,R1
R1,R0
248
#1,ERROUT
238
56
631
M5G4
0
42(SP) ,~(SP)
BOA
, =RD
(SP)
PC,UP.HARD. COUNT
278
#1 _ERROUT
268
57
632
MSG3
0

BIT
BEQ

#1,ERROUT
268

TOPS
PA:<

268

:
¢ COMMAND,
«
: LUN,*

6154

; PIR,*
* SECTOR,*

;

*,OLDSEC

6157

; OLDCHN,

6161

: LUN,»

6163

:
:

6157
6168

6170

6176

CZMLBBO PERFORMAN CE EXERCISER
OPT4 DEFINITION O F OPTION &

MACRO M1113

11473

1474
1475
1 476 064360
11 477 064362
11 478 064364
114 79 064366

29-MAR-82 13:41

SEQ 0260

sMLX%

114 80 064370
114 81 064374
114 82 064400
114 83 064404
114 84 064406
114 85 064412
1 486 064416
1 487 064422
11 488 064424
11 489 064430

200042
147742

268%:

153500

27%:
28%:

000042
000400
000056
160774

11 490 064632
11 491 064436
11 492 064440
11 493 064444
1694 064450
1 1295 064454
11496 064460
4 7 064464
11649
11498 064466
11499 064472
11500 064476
11501 064500
11502 064502

000006
045424
000054
000400
000072

000050
000004

8563
42(SP) ,-(SP)
BOARD ,=(SP)
PC,UP.SOFT.COUNT
(SP)+,(SP)+
42(SP), (SP)
#600,-(SP)
56(SP) ,~(SP)
Ré4,=(SP)

;

LUN,*

P LUN,*
;
;

WCPTR,*
SECTOR,

;
;

*,VALUE
VALUE,*

;

LUN,*

PC.WRITE

54(SP),=(SP)

72(SP) ,~(SP)

. WCPTR,»
; SECTOR,*

R4 ,-(SP)
PC,RETRY
#14,SP

RO
328
50(SP) ,R1

034446

: LUN,*

gg.UHY.DROPT(R1)

6199

6200

634

MSG1

000050

115
15

000002

000050
000005

29%:

034446

0
50(SP) ,RO
b
21s
RS 42

;

LUN_*

6201

VALUE,

6190

50(SP),R1

;

LUN,x

6209

30§

g;,UHY.DROPT(R1)

6202

6210

635

64560
64562
64564

MSG1

000050

000003

30s:

0
50(SP) RO
51
318
RS, 43

32%

55
636

57
633

#400,~(SP)

115

1
11
n
1
11
"
11
11
1
11
11
1"
1

cMp

MoV
MoV
MoV
MOV

TOPS
PA:<

#WRITE ,~(SP)

161532
000014

11503 064506
11504 064514
11505 064516
115
115
115
115

TRAP
.WORD
.WORD
. WORD
Mov
MOV
JSR

RO,RS
R5.M
298
#6,~(SP)

000001

27-Mar-16 8 2 19:24 242
27-Mar-19 8 2 19:23 144

DEFINITION OF OPTION 4

104457
000633
011166
000000
016646
016746
004767
022626

€
5
PAGE 248

000000

MSG1

LUN,*

6211

;

VALUE,+

6190z

6212|

6217

~ALBBO PERFORMANCE EXERCISER
FINITION OF

OPTION 4

MACRO M1113

29-MAR~82 13:41

PAGE 249

5
SEQ 0261

MLXG
:

016601

112761

010100
104451

062706
000570

062706

005204
020406
101002

000006

000016

328:

000046

€16603
016646
012746

000050
000036
000400

006007
103402

000167
016646
016646
012746
0064767
062706
010066
001761
016646
004767

338:

176416
007336
006160
000002

348:

161264
000062
000060
001350

045612

000052
35$:

000056
000036
000400

160772

001012
000060
000070
000400

157264
000006
000064
000046
150440

368:

37%:

388:
398:

27-Mar-1982

OPTION &

27-Mar-1982

19:24:42

19:23:44

TOPS

PA:<

S0(SP) .R1

: LUN,
s

6218

MOV

R1.RC

; LUN,#

6219

ADD
8R

#36.5P
408

6220

R4
RG,46(SP)

¢ SECTOR
* SECTOR,

6058

6226

MOVB

31$:

160632

010346
010446
004767
010005
001103

MOV

034446

000034

000167
012716
012746
012746
010600
104414
004767
010002
017666
017604
200167
005001
020227
001014
005201
016603
016646
012746
010346
010446
004767

000412

QOO0
SEXIIK SRR

000050

DEFINITION OF

TRAP

ADD

INC
CMP

BHI

#6,WHY.DROPT(R1)

#16.,SP

;

JMP
MoV
MOV
MOV
MOV
TRAP
JSR
MOV
MoV
MOV
JMP
(LR
CMP
BNE
INC
MOV
MOV
MOV
MOV
MOV
JSR

9s
#WRD2S , (SP)
#EMT2,<(SP)
#2,-($P)
SP.RO
14
PC.CHOOSE
RO R2
262(SP),52(SP)
360(SP) _R4
595
R1
R2,AREAD
368
R1
56(SP) ,R3
36(SP) .~(SP)
#400,-(SP)
R3,-(SP)
R&.-(SP)
PC.READ

MOV
MOV
MOV

50(SP) ,R3
26(SP) .-(SP)
#400,-(sP)

B8R

MOV
MOV
JSR
MOV
BNE

ROR
BLO

JUMP
Moy
MOV
MOV

JSR
ADD
MOV
BEQ
MOV
JSR

37%

R3.~-(SP)
R&.-(SP)

PC.CHECK
RO RS
41$
R1
398
548
60(SP) ,~(SP)
70(SP) .-(SP)
#4600, -{SP)

PC.DOUBL
. CHECK
E
#6.5P
RO.64 (SP)
38§
46(SP) ,-(SP)
PC,SAYWHO

6029

; SP,+
:
: %, COMMAND
:
* *,SECTOR

6228

:
* COMMAND,«

6233

: RCPTR,PTR
¢ LUN,*

6236
6237

6230

: PIR,*
* SECTOR,*

: WCPTR,PTR
¢ LUN,*

6241
6242

: PIR,*
¢ SECTOR,*

.
: *,VALUE
:
:
: WCPIR,*
* RCPIR.*

6249
6254
6258

; *,DBL.VALUE
; LUN,*

6261

CZMLBBO PERFOR MANCE EXERCISER
OPT&4 DEFINITION OF OPTION 4

MACRC M1113

29-MAR-82 13:41

e Yo Yo B NSTe ¥o No N

NRFREINRT
SranoNNY

) d ad o md
— e d ad e

597 065124
598 065126
599 065130
600 065136
601 065142
602 065146
603 065152
604 065156
605 065160
606 065162

b=4
o
o
o

96 065110
595 N485114
396 065120

COCOOC—=OODO

2 065102
93 065104

104414

019000
000100
000100
006756
000003

000100

MoV
MoV

TRAP
MOV

034446

Movs
TRAP
-WORD
-WORD

65226

000054
020527
001034
012746
010246
016646
012746

S
-y
|174

D
—

5220

. WORD

000070

[aS AN [N

wViVaun

OO
O

65200

000001

000006

o005
010346

010446
004767
062706
005700
001655
016601
112761
104455
000640
011070
000000
016600
1046451
000457
020527
001015
016601

ADD

#MSGS, (SP)

TOPS
PA:<

6262

#SAY1,-(SP)

#2,-($P)
SP.RO
14
72(SP), (SP)

SP,'

; DBL.VALUE,
«
; DBL.VALUE,«

a72(SPS,~(SP)

#FMTI2A.~(SP)

#3,-(sp)
SP.RO
14
#10000,1C.
' SP)

SP'.

;

*,DBL.VALUE

SP..

100(SP) , (SP)
2100(SPS ,-(sP)

; DBL.VALUE,*
; DBL.VALUE,«

#FMT128,=(SP)

6264

6266
6267

#3,-(SP)

SP.RO
14
70(SP) ,R1
g}O.UHY.DROPT(R1)

6269
6270

637

SSGT

70(sP) ,RO

#56,SP
468
R3 .41
428
#6,-(SP)
R2,~(SP)

52(SP),~(SP)

#400,-(SP)

R3,-(SP)

R4 ,~(SP)
PC ,RETRY

160750
000014

27-Mar-19 82
27-Mar-1982

DEFINITION OF OPTION 4
MOV
MOV
MoV
MOV
TRAP
MOV
MOV
MOV
MoV
MoV
TRAP
ADD
MOV
MoV
MOV

000072
000072
006710
000003

000070
000010

7 065166
p= [=lelelelelelele)

011216
007072
000002

S
ScQ 0262

sMLXS
587
588 065064
589 065070

PAGE 250

;

LUN,*

6271

6272
;

VALUE,*

s COMMAND,«
s LUN,»
.

PIR,»

;

LUN,»

6249
6280

: SECTOR,«

000046
000004

388

46(SP) ,R1

034446

g?.UHY.DROPT(R1)

6284

640
HSG1

000046

000002
000046

6283

42%:

46(SP) ,RO

; LUN,=

6285

RS 42

¢ VALUE,*

6286
6249

46(SP) ,R1

; LUN,»

6293

51
458

43§

CZMLBBO PERFORMANCE EXERC]EER
OPT4 DEFINITION OF OPTION

MACRO M1113

11650 065352
11651 065354
11652 065356
11653 065362
11654 065364
11655 065366
11656 065370
11657 065372
11658 065374
11659 065400

11660 065406
11661 065410

11662 065412

11663 065414
11664 065420
11665 065422
11666 065426
11667 065430
11668 065432
11669 065434
11670 065436
11671 065442
11672 065450
11673 065452

sMLXG
M
112761
104455
000641
011070
000000
016600

104451
000437
020527
001014
106455
000642
011070
000000
016601
112761

010100
104451

000420

020527
001021
004767
104455
000643
011120
000000
016601
112761
010100
104451

11674 065454
11675 065460
11676 065464

062706
000167
020527

11678 065472
11679 065476

004767
032767

11677 065470

11680 065504
11681 065506

11682 065512
11683 065514

11684 065516
11685 065520
11686 065522
11687 065524
11688 065506
11689 065532
11690 065534
11691 065540
11692 065544
‘1693 065546
11694 065550
11695 065554

001161

001423
017701

006201
006201

006201
006201
006201
006201
042701
010146
012746
012746
010600
104414
062706
017766

000005

034446

000003

438:

034446

TRAP
8R
(MP
BNE
TRAP
.WORD
.WORD
WORD
MOV
MOVB

MOV
TRAP

000004

4S:

151704

000046
000007

034446

000032
002472
000005
151634
000001

45%:
468:
478:
114554

177700
006640
000002

000006
146632

B8R

CMP
BNE
JSR
TRAP
.WORD
.WORD
JWORD
MOV
MOVB
MOV
TRAP

000052

48%:

#5.WHY.DROPT(R1)
55
641
MSG1
0
46(SP) RO

RS, 44
478§
PC.ISOLATE
55
643
MSG2
0
46(SP) ,R1
#7.WHY.DROPT(R1)
R1.RO
51

PC,ISOLATE
#1.ERROUT
48§
aML.REG+42,R1
R1
R1
R1
R1
R1
R1
#177700,R1
R1,=-(SP}
#FMT10B,-(SP)
#2,-(SPS
SP.RO
14
#6,SP
aML .REG+44,52(SP)

548

T0PS
PA:<
6294

LUN,*

6295

¢ VALUE,*

649

6301

: LUN,*

6302

6303

45$

JSR
817

ASR
ASR
ASR
ASR
ASR
ASR
BIC
MoV
MoV
MOV
MOV
TRAP
ADD
MOV

R1.RO
51

#32,SP
948
RS,#5

BNE

S1
458
RS, 43
4.8
55
642
MSG1
0
46(SP) ,R1
#6,WHY.DROPT(R1)

ADD
JMP
CMP

BEQ
MOV

146676

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

DEFINITION OF OPTION 4

MOVB
TRAP
LWORD
.WORD
JWORD
MOV

000046

000046
000006

F
5
PAGE 251
SEQ 0263

11641
}%gzg
11644 065330
11645 065336
11646 065340
11647 065342
11648 065344
11649 065346

29-MAR-82 13:41

:
:

LUN,*

VALUE,*

;
:

6296

6304

6249
6309
6310

LUN,*

6311

: LUN,*

6312

;

6313

: VALUE,*

6249

;
:

6318
6320

: SP,¢
;

*,0LDSEC

6323

(ZMLBBO PERFORMANCE EX?RCI%ER
OPY4L DEFINITION OF OPTION

[

MACRC M1113

11697

11700 065562
11701 065566
11702 065570
11703 065572
11704 065574
11705 065576
11706 065600
11707 065602

11708 065606
065612
065616
065620
065626

11713 065630
11714 065632

11715 065634
11716 065640
11717 065644

11718 065650

11719 065652

11720 065660
11721 065662
11722 065666

11723 065672
11724 065676
11725 065676

11726 065700
11727 065702

11728 065704
11729 065706

11730 065712
11731 065714
11732 065716
11733 065724

11734 065726
11735 065730
11736 065732

11737 065734

11738 065736
11739 065742
11740 065746

11741 065752
117642 065754

11743 065762
11744 065764
11745 065766
11746 065770
11747 065772
11748 065774

11749 065776

11750 066004
11751 066006

017701
006201
006201
006201
006201
006201
006201
0462701

010166

012746
010246
016646
012746

010346
010446

146622

177700

160364
000014
0000US

027766

146534

001035
016600
017701

006201
006201
006201

MOV
MOV
MOV
MOV

000052
000600

004767
062706
020027

001052

MOV

000001

MOV
MOV

JSR
ADD
MP

BNE

000052

CMP

BNE
MOV
MOV

000054
146516

ASR
ASR
ASR

006201
006201

006201
042701

020100
001017
032767
001404

ASR
ASR

ASR
BIC

177700

000001

cMP
BNE
BIT
8EQ

114334

104456
000644
01120:

000000

016646
016746
004767

TRAP
LWORD
.WORD

000046
146374
151450

498:

000427
032767

000007

114276

50$:

032767

000001

114254

51$:

001415
104457
000645
011166
000000
000410
001404
104457

27-Mar-1982 19:24:42

DEFINITION OF OPTION &
MOV
ASR
ASR
ASR
ASR
ASR
ASR
8l

000054

PAGE 252

SEQ 0264

SMLXG

”ggg

11709
11710
11711
11712

29-MAR-82 13:41

.WORD

MOV
MOV
JSR

BR
BT
BEQ
TRAP
.WORD
.WORD
.WORD
8R
BIT
BEQ
TRAP

TOPS

27-Mar-1982 19:23:44

ML .REG+42,R1
R1
R1
R1
R1
R1
R1
#177700,R1

;

#1.5(SP)
R2.~(SP)
52(SP) ,=(SP)
#400,-(SP)

:
:
:

R1.54(SP)

R3,~(SP)
RG.=-(SP)
PC_RETRY
#14,SP
RO, #5
51$
aML.REG+44,52(SP)

PA:<
6324

*,0LDCHN
COMMAND,
*
LUN,»

6326

; PIR,*
¢ SECTOR,*

;

50$
54 (SP) ,RO
aML.REG+42,R1

*,0LDSEC

6329

; OLDCHN,*

R1
R1
R1

R1
R1

R1
#177700,R1

R1,RO
50$
#1,ERROUT
49%

56
644
MSG&
0
46(SP) ,~(SP)
BOARD,
= (SP)
PC,UP_HAR
. COUNT
D
53§
#1,ERROUT
528
57
645
MSG3
0
528
£1,ERROUT
528
57

:
:

6333

LUN,*

6335

6329
6340

6342

6348

/ML ML3BO
PERFORMANCE
88

P14

DE FINITION OF

EXERCISER
OPTION 4

MACRO M1113

63 066034

4 64 066040
1 1 765 066044
1 ] 766 066050
1 1 767 066052
1 17 68 066056
1 17
1 1770 066064
1

000646
011166
000000
016646
016746
004767
022626
016616

000046
166314
152052

000046
000400
000052

52%:

.WORD
. WORD
. WORD
MOV

53%:

JSR
CMP

157346

000001
000006
0456424
000060
000400
000066
160104

LUN,»

6350

MOV
MOV

(SP)+,(SP)+
46(SP), (SP)
#4600,-(SP)

: LUN,*

6317
6356

MOV

R4 ,~-(SP)

; WDPTR,
*
; SECTOR,*

RO,R5
RS .71

TST

000054
000004

BEQ

MoV

034446

MovB
TRAP
. WORD
.WORD
.WORD

000054

TRAP

000002

000054
000005

55%:
034446

000054

000003

016601

000054

568%:

646
8563
:

JSR
ADD

000014

TOPS

PA:<

46(SP) ,~-(SP)
BOARD ,~(SP)

JSR
MoV
CMP
8NE
MoV
MOV
MoV
MOV
Mov
MOV

27-Mar~19 2 19:24 142
27-Mar-19 2 19:2
:23 H YA

DEFINITION OF OFTION 4

177

11807 066240

sMLXé

1
1
1
1
11
1
N?
11 4
1 780 066126
n 781 066130
11 782 066134
1 783 066142
11 784 066144
1 785 066146
1 786 066150
n 787 066152
11 788 066156
1 789 066160
N 790 066162
11 791 066166
1 1 792 066170
1 1 793 066174
1 1 794 066202
1 795 066204
1 1796 066206
1 1797 066210
1798 066212
1 1799 066216
1 1800 066220
1801 066222
1 18 02 066226
] 1 803 066230
1 804 066232

805 066234
1 306 066236

PAGE 253

SEQ 0265

1 14 53

1" 7 54
1 7 55
1 756 066010
n 757 066012
1 758 066014
1 759 066016
1N 760 066022
i 761 066026
1 1 ;62 066032

29-MAR~82 13:41

PC,UP.SOF T.COUNT

52(SP) ,~(SP)

PC.WRITE

;

558

*,VALUE

VALUE,+

#6,-(SP)

6362

6368

AWRITE,-(SP)

60(SP) ,=(SP)

; LUN,»

66(SP) ,=-(SP)
R4 .,-(SP)
PC,RETRY
#64.SP
R

: WOPIR
,»
; SECTOR,«

#400,-(SP)

58$
54 (SP) ,R1

; LUN,«

gg.UHY.DROPT(Rl)

6371
6372

647

MSG1

0
54(SP) RO
51
57

: LUN,*

6373

CMP

RS, 42

;

VALUE,«

6374
6362

MOV
MovB
TRAP
. WORD
.WORD
. WORD
MOV
TRAP

54(SP) ,R1

LUN,~

6381

568

gg,uuv.onoprca1>

6382

650
8561

54 (SP) RO
59

8R
CMP

AyA3

TRAP
-WORD
. WORD
. WORD
MOV

55
651
8561

58§

54(SP) ,R1

;

LUN,»

6383

;

VALUE,«

6384
6362

6389

;

LUN,»

6390

(ZMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION 4

MACRO M?113

11816 066262

11817 066264
11818 066270

11819 066272
11820 066%76
11821 066300
11822 066304
11823 066310
11824 066314

11825 066320
11826 066322
11827 0663%4
11828 066330
11s§9 066332
11830 066340
11831 066344
11832 066350
11833 066352
11834 066356
11835 066360
11836 066362
11837 066366
11838 066372
11839 066376
11840 066400
11841 066402
11842 066406
11843 066410
11844 0664146
11845 0664620
11846 066424
11847 0664626
11848 066430
11849 066434
11850 066436
11851 066440
11855 066442
11853 066444
11854 066450
11855 066454
11856 066460
11857 066464
11858 066470

11859 066474
11860 066500

11861 066502
11862 066506
11863 066512

]

JMLXG

}}g}?

11812 066244

PAGE 254

SEQ 0266

11809

11813 066252
11814 066254
11815 066256

29-MAR-82 13:41

:
112761

010100
104451
062706

000570

062706
005304

020466
002402
000167
012716
012746
012746

010600
104414
004767
010002
017666
017604
000167
005001
020227
001014
005201
016603
016646
012746
010346
010446
004767
000412
016603
016646
012746
010346
010446
004767
010005
001103
006001
10340
000167
016646
16646
012746
004767
062706

010066
001761

016646
004767
012716

000006

034446

000040

MOVB

57$:

000016

588:

000052

598:

176416
007332

60$:

006160
000002

000064
000066
001120

045612

000064

618:

000052
000042
000400
157204

000044
000042
000400
157344

001012

000054

000064
000400
155636
000006
000070
000052
147012
011216

MOV
TRAP
ADD

B8R

ADD
DEC
(MP
BLT
JMP
MoV

628:

638:

648:

658:

: LUN,*

6391

;

6392

#16.5P
RG
R&,52(SP)
608
358
#RD24 , (SP)

;
*
:

668

JSR
MOV
MOV
MOV
JMP
CLR
(mp
BNE

PC.CHOOSE
RO.R2
864 (SP) ,64 (SP)
866(SP) JR4
81%
R1
R2,#READ
628

R1
52(SP) ,R3
42(SP),-(SP)
#400,-(SP)
R3,-(SP)
R&,=(SP)

B8R
Moy
MoV
MOV
MoV
MoV
JSR
MOV
BNE
ROR
BLO
JMP

638§
44 (SP) ,R3
42(SP) .- (SP)
#400,-(sP)
R3,~(SP)
R&,=(SP)
PC.CHECK
RO.RS
67§
R1
658
808

MOV
MOV
JSR
ADD
MOV
BEQ
MOV
JSR
MOV

64(SP) ,~(SP)
#400,~(SP)
PC,DOU
. BLE
CHECK
#6.SP
RO,70(SP)
648
§2(SP),=(SP)
PC,SAYWHO
#MSGS, (SP)

6231
6230

6398

; SP,*
:
%,
:
:

COMMAND
*=,SECTOR

6400
6405

:
: COMMAND,*

6408

: RDPTR,PTR
s LUN,*

6411
6412

; PIR,*
: SECTOR,*

PC _READ

54(SP) .= (SP)

SECTOR
SECTOR,
*

INC
MoV
Mov
MoV
MOV
MOV

MoV

TOPS

PA:<

R1.RO
51
#40,5P

#FMT2,
< (SP)
#2.,-(5p)
SP.RO

JSR

27-Mar-1982 19:23:44

#6.WHY.DROPT(R1)

MOV
MOV
MOV

TRAP

157636

27-Mar-1982 19:24:42

DEFINITION OF OPTION &

; WDPTR,PIR
: LUN,»

6416
6417

; PIR
»
: SECTOR,»

; *,VALUE
:
:

6424
6429

: WDPTR,*

6433

; RDPTR,
»

; *,DBL.VALUE
: LUN,*

6436

;

6437

(IMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION &

MACRO M1113
SMLXG

;}ggg

11868 066516
11869 066522
11870 066526
066530

11872 066532
11873 066536
11874 066542
11875 066546

11876
11877
11878
11879

066552
066556
066556
066564

11880 066570

11881
11882
11883
11884
11885
11886
11887
11888
11889

066576
066600
066604
066606
066610
066616
066622
066624
066626

11890 066630
11891 066632
11892 066636
11893 066640
11894 066644
11895 066646
11896 066652
11897 066654
11898 066660
11899 066662
11900 066666
11901 066672
11902 066674
11903 066676
11904 066702
11905 066706
11906 066710
11907 066712
11908 066716
11909 066724
11910 066726
11911 066730
11912 066732
“1913 066734
11914 066740
11915 066742
11916 066744
11917 066750
11918 066752
11919 066756

012746
012746
010600
104414

016616
017646
012746

012746

010690
104414
062766
016616

017646

012746
012746
010600
104414
016601
112761
104455
000652
011070

000000
016600
104451
062706
000520
020527
001034
012746
010246
016646
012746
010346
010446
004767
062706
005700
001655
016601
112761
104455
000653
011070
000000
016600
104451
000457
020527
001015
016601
112761

007072
000002

TRAP

MOV
MOV
MOV

000003

000074
000010

MOV

MOV
TRAP
ADD
MOV

000104

MOV

MOV
MOV
MoV
TRAP
MOV
MOVB
TRAP
.WORD
.WORD

034446

000074

000060
668:
678:

000001

000006
000056
000400

157322
000014
000052
0000046

034446

000052

000002

000052
000005

68$:

034446

27-Mar-198
27-Mar-198

DEFINITION OF OPTION 4
MOV
MOV
MOV

000076
00007¢
006710

010000
000104
000104
006756
000003

PAGE 255

SEQ 0267

11865

11871

29-MAR-82 13:41

.WORD
MOV
TRAP
ADD
BR
(Mp
BNE
MOV
MoV
MOV
MOV
MOV
MoV
JSR
ADD
ST
BEQ
MOV
MOVB
TRAP
.WORD
.WORD
.WORD
MOV
TRAP
B8R
CMP
BNE
MoV
MOVB

#SAY1,=(SP)
#2,-(SP)
SP.R0

1462
4

TOPS

PA:<

SP'.

76(SP) , (SP)
876 (SPJ ,=(SP)
NEMTI2A.~(SP)

s DBL.VALUE,+

; DBL.VALUE,*

6439

#3,-(SP)

SP.RO
14
#10000, 104 (SP)
104 (SPS , (SP)

SP..

; «,DBL.VALUE

; DBL.VALUE,*
; DBL.VALUE,«

81
(SP)
04
,=(SP)

NFMT128,=(SP)
#3,-(SPS
SP.RO
14
74 (SP) .R1
#10,WHY.DROPT(R1)
&5
652
MSG1

SP’*

;

LUN,»

64446

6445

0
74(SP) ,RO
51
#60,SP
728

;

LUN,»

6446

6447

RS, #1

6424

68$
#6,~(SP)
R2.-(SP)

56(SP) ,~(SP®
#400,-(SP)
R3,-(SP)
R&.-(SP)
PC.RETRY
#14,SP
RO
643
S2(SP) ,R1
#4,WHY.DROPT(R1)
55
653
MSG1
0
52(SP) ,RO
§1
718
RS, #2
69%
52(5P) ,R1
#5,WHY.DROPT(R1)

6441
6442

; COMMAND
,«
: LUN,»

6455

: PTIR»
,

SECTOR,»

;

LUN,»

6458
6459

: LUN,»

6/-60

;

6461
6424

VALUE,»

; LUN,»

6468

{CIMLBBO PERFORMANCE EXERCISER
GPT4L DEFINITION OF OPTION 4

MACRO M1113

11933 067012

s MLXG
:
104455
000654
011070
000000
016600
104451
000437
020527
001014

11964 067146
11965 067150
11966 067152
11967 067154
11968 067160
11969 067162
11970 067166
11971 062172
11972 067174
11973 067176
11974 067202
11975 067210

000052
000003

69%:

104455

11934 067016
0C0655
11935 067016
011070
11936 067020
000000
11937 067022
016601
11938 067026
112761
11939 067034
010100
119640 067036
104451
11941 067049
000420
11942 067042
020527
11943 067046 001021
11944 067050 004767
11945 067054
104455
11946 067056
000656
11947 067060
011120
11948 067062
000000
11949 067064
016601
11950 067070
112761
11951 067076
010100
11952 367100
104451
11953 067102
062706
11954 067106
000167
11955 067112
020527
11956 067116
001161
11957 067120 0047267
11958 067124
032767
11959 067132
001423
11960 067136
017701
11961 067140
006201
11962 067142
006201
11963 062144
006201

006201
006201
006201
042701
010146
012746
012746
010600
104414
062706
017766
017701

034446

000004

70%:

150256

000052
000007

034446

000036
001044
000005
150206
000001

71%:
72%:
73%:
113126

145250

.
177700
006640
000002
000006
145204
145174

000056

74%:

27-Mar=~1982 19:24:42
27~Mar-1982 19:23:44

DEFINITION OF OPTION 4
TRAP
.WORD
.WORD
LWORD
MOV
TRAP
B8R
CcMp
BNE

55
654
MSG1T
0
52(SP) RO
51
718
R5.,43
708

.WORD
.WORD
.WORD
MOV
MOVB
MOV
TRAP
B8R
cMP
BNE
JSR
TRAP
WORD
.WORD
WORD
MOV
MNOVB
Mov
TRAP
ADD
JMP
cmp
BNE
JSR
BIT
BEQ
MOV
ASR
ASR
ASR

655
MSG1
0
52(SP) ,R1
#6 ,WHY .DROPT (R1)
R1.RO
51
718
RS 446
73$
PC.,ISOLATE
55
656
MSG2
O
52(SP) ,R1
#7 ,WHY .DROPT(R1)
R1.RO
51
#36,SP
948
RS.45
80%
PC,ISOLATE
#1,ERROUT
743
aML .REG+42.,R1
R1
R1
R1

TRAP

000052
000006

K
5
PAGE 256
S€0 0268

11921
]}gg%
11924 066764
11925 066766
11926 066770
11927 066772
11928 066774
11929 067000
11930 067002
11931 0670046
11932 067010

29-MAR-82 13:41

ASR
ASR
ASR
BIC
MOV
MOV
MOV
MoV
TRAP
ADD
Moy
Mov

R1
R1
R1
#177700,R1
R1,.-(SP)
#FMT10B,~(SP)
#2,-(SP)
SP,RO
14
#6,5P
ML _REG+44,56(SP)
aML.REG+42,R1

6469

; LUN,»

6470

TOPS
PA:<

VALUE,*

6471
6424

6476

s LUN,=»

6477

s LUN,
=

6478

H
;

6479
6424

VALUE,
=

:
:

6484
6485

; LUN,x

6486

s LUN,=

6487

6488

VALUE,»

H
H

6424
6493
6495

s SP,x
.
H

*,0LDSEC

6498
6499

(IMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION 4

MACRO M1113

81 067216
82 067220

1
11
11
11
1

006201
006201
006201

067226
067230
067234
067240
067244

90 067246
91 067252
92 067256
93 067260
96 067262
95 067266
96 067272
97 067276

98 067300

R1
#177700.R1
R1.60(SP)
#1.-(SP)
R2.~(SP)

177700
000060

000001

000056
000400

56(SP) ,~(SP)

#400,~(SP)

R3,~(SP)

R4 ,=(SP)

156736

PC.RETRY

000014
000005
145106

016600 000060
017701
145070
006201
006201
006201
12005 067326 006201
12006 067330 006201
12007 067332
006201
12008 067334
042701
177700
12009 067340 020100
001017
032767 000001
001404
0
104456
067356 000657
0
011202
C
000000
067364 016646 000052
067370 016746
144746
0
004767 150022
0
000427
032767 000001
001415
2023 067412 104457
2024 067414 000660
2025 067416 011166
2026 067420 000000
2027 067422 000410
2028 067424
032767 000001
2029 067432 001404
2030 067434
104457
2031 067436 000661

TNPN ¥

85
86
87
88
89

999 067306
1 2000 067310
12001 067314
12002 067320
12003 067322
12004 067324
1

27-Mar-1982 19:24 142
27-Mar-19 B2 19:23:44

DEFINITION OF OPTION &

b b e
d o o
—b et

TOPS

PA:
<

84 067224

e el e
O OO0 OO OO0
O 0

83 067222

PAGE 257

Sea 0269

sMLXS

980 067214

O OOV OO0

md d md o d
i e and od ok

11977

29-MAR-82 13:41

*,0LDCHN
COMMAND
,«
LUN,»

6501

PTR,«

SECTOR,
+

#14,sp
RO, #5

77$

000056

aML.REG+644,56(SP)

768
60(SP) ,RO

g?L.REG+42.R1

*,0LDSEC

6504

OLDCHN,
*

R1
Rl
R1
R1
R1
#177700,R1
R1,RO

76$

112706

#1,ERROUT

75%:

TRAP
-WORD
+WORD
. WORD

Mov

MOV
JSR

112650

768:

BIT
BEQ
TRAP
.WORD
-WORD
.WORD

112626

77%:

817
BEQ

TRAP
.WORD

6508

75%
56

657

MSG4
0
52(SP) ,~(SP)
BOARD,
= (SP)

PC,UP

79%

. HAR
. COUNT
D

#1,ERROUT

78$
57
660
MSG3
0
78%

#1,ERROUT

78%
57
661

LUN,*

29-MAR-B2 13:41

SEQ 0270

sMLXS

000052

2041 067460
2042 067462
2043 067466
2044 067470
2045 067474

2046 067476
2047 067502
2048 067506
2049 067514
2050 067516
2051 067522
2052 067526
2053 067530
1 2056 067534
1 2055 067540
1 2056 067544

ADD

147526

000001

gses
52(SP) ,=(SP)

LUN,
=

BOARD
, = (SP)

PC,UP.SOFT.COUNT
(SP)+.(SP)+
R4
R4 ,64(SP)

82§

848:

6405

618
#26,SP

5997
6541

#1,EFNS21

14 (SP) ,RO

LUN,*

TOP.SECT(R,R1
O)
sgg.SECT(RO).Ré

~,SECTOR

85%:

6525
6492
6406

848
943

14(SP) ,~(SP)
#400,=(SP)

LUN,

R4, =(SP)
PC .READ

SECTOR,*

6548

6550

#RBUFF ,~(SP)

#10,SP

000005

RO, #5
92§

PC.ISOLATE
#1.ERROUT

112446

86§

144570

gnL.Rec+4z.ao

177700

R
#177700,R0
RO, ~(SP)

=1
N

006200

ASR

n
b e
D
b

#6,5P
ML REG+44,20(SP)
gnL.Res+42.Ro

86S%:

SP,*

*,0LDSEC

i e

000020

144524
144514

SP.RO
14

b e

000006

#FMT108,-(SP)

#2,-(SP)

d i

o el

006640
000002

070 067624
071 067626
072 067630
073 067632
074 067634
075 067640

gco

82%:

83$:

CMP
BH1
JMP

156024
000010

NNBNNNNNI\)NNNNNN

e cmd ed o

112546

034500
034460
000402
000014
000400
022670

12068 067620
12069 067622

b o el e o

81%:

000434
000014

12059 067560
12060 067562
12061 067566
12062 067572
12063 067576
12064 067600
12065 067604

- ol d b

000064
000026
000001

2057 067550
2058 067554

NINONIAY
jelelel=]

79%:
80%:

.WORD
.WORD
MoV
MOV
JSR
CMP
ADD
INC

TOPS
PA:<

000010

176646

78%:

144666
150424

4 :42
27-Mar-1982 19:24
27-“ar-1982 19:2 3 :44

DEFINITION OF OPTION &

am
a2
=

39 067450
2040 067454

M
S
PAGE 258

Ve Be v,

MACRO M1113

12094 067714

12097 067726
12098 067732
12099 067736

000020
000400

100 067740

ASR
8IC
MOV
MOV

MoV
MoV
MOV
MOV
MOV

000032
156254

JSR
ADD
CMP
BNE
CMP
BNE

000014
000005
144424

000020

000022
144406

MOV
mMov
ASR
ASR
ASR

ASR
ASR
ASR
81C

177700

000001

112224

s e

el ol cnd

D wud cnd

WNNNOMNONIN
) = O
oSO

NNNNNSNI
SN N NN

OngOJ\

OO
OCO—=OO
o0 O=OO0O
O~O
~OOOW
Q= OOOWOO
OO
et =1a1, OO~
O—On
—
ORI O
oo
ONONNO O -0
oo
NSNS OO0

000014

016646
016746
004767

87%:

144264

147340

000001

112166

88$:

BNE
BIT
BEG
TRAP
-WORD
.WORD
. WORD
MOV
MOV
JSR

8IlT
8EQ

TRAP
.WORD
-WORD

. WORD

000001

112144

89%:

908:

27-Mar-198 21 9: 2 4:42
27-Mar-198 21 9: 2 3:44

DEFINITION OF OPTION 4

12095 067720
12096 067724

PAGE 259

SEQ 0271

SMLXG

177700
000022
000001

COOOCOOOOCO

29-MAR-82 13:41

BIT

BEQ
TRAP
«WORD
.WORD
. WORD
MoV
MoV
JSR

RO
#177700,R0
RO,22(SP)
#1,-(SP)

TOPS
PA:<

*,OLDCHN

R2,=(SP)

COMMAND
,«

20(SP) ,~(SP)

6573

LUN,~

#400,-(SP)
R3,-(SP)

PTR,
«

32(SP) ,=(SP)

OLDSEC,*

PC,RETRY
#14,SP

89%

ML .REG+44,20(SP)

88s
22(SP) ,-(SP)

gML.REG+42.R0

*,0LDSEC

6582

OLDCHN,»

#177700,R0
RO, (SP)+

88s

#1,ERROUT

878
56
662
MSG4
0
14(SP) ,=(SP)
BOARD,
= (SP)
8$‘UP.HARD.COUNT

6586

6591

LUN,*

6382
6599

#1,ERROUT

903

57
663
MSG3
0
90$
#1 ERROUT

6604

6607

6613

90$

57
664
8563
14(SP) ,~(SP)
BOARD,=(SP)

PC,UP.SOFT.COUNT

6594

6618

LUN,*

6621

12089
12090
12091
12092 067706
12093 067710

MACRO M1113

CZMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION 4

—

—0

M (&)

MACRO M1113

29-mAp-87

13:41

PAGE 260

6
SEQ 0272

sMLXS

.
oo oleleleleYole]

23
i

&~
[eo]
© e o)

oo~ NN
SIS LAV L N VT T N T TN
d b d b
—b-d—i_a-a—l_n_a_a_a.-a_._._.
oo [V, 1V, 1V, V.1
VIS
S S R S
NON-=OO BNANBAWNNN
LSOOy

b d d sy — ek bl o )
—
S SN
[

FORMANCE EXERCISER
TION OF OPTION 4

142

144
146
150

152
70156
70162
70170
70172
070176
070202

022626

095204
020401
101002

000167
005266
026666
002002
000167
062706
000207

91%:

92%:
93%:

177366
000014
000014
172402
000044

000042

94$:
95%:

56S%:

DEFINITION OF

CMp

INC
CMP
BH]

JMP
INC
CMp
BGE
JMP
ADD
RTS

: Routine Size:

27-Mar-1982 19:24:42

OPTION 4

27-Mar-1982

(SP)+,(SP)+

R4
R4 R1
9¢$

;
;

85%
14(SP)
14 (SP) ,42(SP)
963
1$
#44,5P
PC

1456 words

; Maximum stack depth per invocation:

48 words

SECTOR
SECTOR,
»

19:23:44

TOPS

PA:<

6552

6548

s LUN
: LUN,*

5990

5908

(ZMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION 4

NN NINONIPLNNLN PPN
MPONIPNVNININININNINLI
NNN
FORLRININLRLNIND
NI AIND PN = b b et od eod wd o ok e
b od e o
ed
[elelalatated |=]
NO 0 O 05 G0 00 00 00
BNV =O
NOVwn
SW

1
1
1
1

—db
wnd o) —nd wd —d et ek

d b d d

d o

b od ek —

d =D . b

070204

070210
070216

070222

070226
070232
070234

070236

29-MAR-82 13:41

¢
6
PAGE 261

SEQ 0273

27-Mar-1982 19:24:42

SELECTING A RANDOM WORD COUNT

Xsbttl

27-Mar-1982 19:23:44

TOPS=20 Biiss=16 v2(212)
PA:<NEALE>MLX4.BLI.S (41)

'SELECTING A RANDOM WORD COUNT'

routine RNDWC =

begin

144

;

ROUTINE :

PURPOSE :

RESULT:

A LR T L L N P S

MR L

Sevev,0,. 0,

=2 2INRNRANNNIN
~N -~ ~
80‘0‘0
Q\IWN—OO'OOVO*WJ\WN—DoflmVO\h
RRBODNINIIN NN

12169 sMLXS
12170

MACRO M1113

;

RNDW(C

TO SELECT A RANDOY WORD COUNT WITHIN THE RANGE

T0 BUFSIZ.

THE VALUE RETURNED WILL BE USED BY THE CALLER

AS ITS 'WRDCNT®

local

WRDCNT;

RN ();
RANDOM = _RANDOM and %0'077777°:
WRDCNT = ((.RANDOM mod BUFSIZ) + 1):

6654

004767
042767
016746
012746
004767
005200
022626
000207

return

end;
115160
100000
115242

004000
114750

.WRDCNT;

115246

RNDWC:

.SBTTL
JSR
BIC
MOV

MOV

JSR
INC
CMP
RTS

: Routine Size:

! IGNORE SIGN BIT
'FORCE THE RANGE

RNDWC SELECTING A RANDOM WORD COUNT
PC,RN
:
#100000,RANDOM
H
RANDOM, - (SP)
:

#4000,-(SP)

PC,BL$MOD
RO
(SP)+,(SP)+
PC

14 words

; Maximum stack depth per invocation:

2 words

6650
6651
6652

6634

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RNDWC SELECTING A RANDOM WORD COUNT

12220 MLX4

}ggg% :
12223 ;

12224 ;

12225 ;

12226 ;
12227

12228 ;
12229 ;
12230 ;

6655

ZXsbttl

6636

6657

begin

6658
6659

!4+

}gggg :

gggz

12233 ;
12234 ;

6665
6666

!
!

;

ROUTINE:
PURPOSE:

ARGUMENT:

;gggz ;

2325

12237 ;
12238 ;
12239 ;
12240 :
12241 ;
12242 ;
12243 ;
12244 ;
12245 ;
12246 ;
12247 ;

6669
6670
6671
4672
73
0674
6675
6676
6677
6678
6679

!
RESULT:
!
!--

12256
12257 ;
12258
12259 ;
12260 ;

27-Mar-1982 19:24:42

6680
6681
6682

6683
6684
6685
6686
6687

6688
6689
6690
6691
6692

27-Mar-1982 19:23:44

RNDSEC(LUN)
TO SELECT A RANDOM SECTOR NUMBER WITHIN THE RANGE

OF TESTABLE SECTORS (LOWEST TO HIGHEST)

LUN = THE CURRENT LOGICAL UNIT
NOTE: 'LUN' IS REQUIRED TO CALCULATE LOWEST/HIGHEST

FOR THE PARTICULAR LOGICAL UNIT.

THE VALUE RETURNED WILL BE USED BY THE CALLER
AS ITS °'SECTOR’.

local
SECTOR,
SIZE;

!
!
!

version czmlbb changed eql to eqlu

it LOWEST eqlu HIGHEST
then
SECTOR = LOWEST

else

begin
RN (),
RANDOM = _RANDOM and X0'077777°:

12264 ;

6696

SIZE = HIGHEST - LOWEST;

:Zggg ;
12274

6701

!IGNORE THE SIGN BIT

! version czmlbb
!
! 'Highest - Lowest + 1' when testing
an ML-11B with
!
16 array modules results in a negitive number which
! causes the Bliss operator 'mod' to hang the (PU.

! Due to this malfunction the '+ 1°' has
; which will avoid this malfunction

6697
6698
6699
6700

TOPS=-2C Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (42)

(LUN) =

6693
gggg

;
.
.
;

6
SEQ 0274

12261 ;
}552% :
12265
12266
12267
12268

PAGE 262

"SELECTING A RANDOM SECTOR®

routine RNDSEC

!
!
!

12251
12252 :
12253 ;
12254 ;
12255

13:41

SELECTING A RANDOM SECTOR

6660
6661
6662

12248 ;
12249 :
12250 ;

29-MAR-82

been deleted

SECTOR = (LOWEST + (.RANDOM mod .SIZE));
end;

'FIND THE SECTOR RANGE
!FORCE RANGE

return .SECTOR;

end;

-SBTTL

RNDSEC SELECTING A RANDOM SECTOR

CZMLBBO PERFORMANCE EXERCISE!.
MACRO M1113
RNDSEC SELECTING A RANDOM SECTOR

29-MAR-B2 13:41

PAGE 263

6
SEQ 0275

sMLXé

12290 070270

12291 070272
12292 070276
12293 070306
12294 070310
12295 070312
12296 070316

12297 070320
12298 070324

12299 070326

2300 070330
2301 070332
5302 070334

004167
016601
006301
012703
060103
021341
001002
011302

000420

004767
042767
016101
161301
016746
010146

004767
061300

115032
000012

RNDSEC:

034460

(34500

BNE

MOV

115072
100000
034500

115160

14;

BR
JSR
BIC

MOV
SuUB
MOV
MoV

115146
114656

JSR
ADD
MOV

010002

022626
010200
000207

JSR
MOV
ASL
MoV
ADD
CMP

2s:

CMP

MoV
RTS

: Routine Size:

R1,$SAVE3
;%(SP).R1

TOPS

PA:<

6656
6680

#LOW.SECT
,R3

1.R
R1,.R3

;23).TOP.SECT(R1)
(R3) .R2

R M

}%582 070240
83 070244
2 284 070250
2285 070252
86 070256
87 070260
88 070264
289 070266

27-Mar-198 2 19:24 142
27-Mar-1982 19:23 144

SELECTING A RANDOM SE(TOK

PC,.RN
#100000,RAIIDOM
TOP.SECT(R1)
,R1

(R3) ,R1

RANDOM
- (SP)
,
R1,~(SP)
PC,BLSMOD

(R$) ,RO
RO,R2

6682
6680
6685
6686
6696

6697

*,SECTOR

(SP)+,(SP)+
R2.RO

SECTOR,
»

31 words

*,SECTOR

LR TR T TR PR PN

6684
6657

6656

: Maximum stack depth per invocation:

6 words

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RNDSEC SELECTING A RANDOM SECTOR

12313 .mMLx4

}g%}g .

6702
6703
6704
6705
6706
6707
6708
6709

12325
12326
12327
12328
12329
12330
12331
12332
12333

6711
6712
6713
6714
6715
6716
6717
6718
6719

;
;
;
;
;
;
;

6710

;
12334 ;
12335 ;
12336 :
12337 ;
12338 ;
12339 ;
12340 ;
12341 ;
12342 :
12343 ;
12344

6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730

12346 ;
12347
12348 ;
12349 ;
12350 ;
12351 ;
12352 ;
12353 ;
12354 ;
12355
12356 :
12357 ;

6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743

12345 ;

zsggg :

12363
12367 070336

F
6
PAGE 264
SEQ 0276

27-Mar-1982 19:24:42

SELECTING A RANDOM UNIT

12316 ;
12317 ;
12318
12319 ;
12320 ;
12321 ;
12322 :
12323 ;

12326 ;

29-MAR-82 13:41

ZXsbttl °SELECTING A RANDOM UNIT'
routine RNDU =
begin

!'++
!
ROUTINE:
!
'
PURPOSE:

004167

T0PS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4 .BLI.S (43)

It 1«

RNDU

TO SELECT A RANDOM LOGICAL UNIT NUMBER WITHIN
THE RANGE OF TESTABLE UNITS (0 TO .LSUNIT-1)

!e-

local
LUN;
)
it .LSUNIT eql 1
then
LUN = 0
else

begin
RN ();
RANDOM = ,RANDOM and %0°'077777°:
RANDOM = (.RANDOM mod .LSUNIT);

v 2 «

!IGNORE THE SIGN BIT
!FORCE THE RANGE

124
! MAKE SURE THE DRIVE IS ACTIVE.
IF IT ISN'T,
! THEN FIND THE NEXT AVAILABLE ACTIVE DRIVE:
'w
.
incr COUNT from O to (.LSUNIT = 1) do

6731

6744

27-Mar-1982 19:23:44

it .DRIVE_STATUS [.RANDOM] eql ACTIVE
then
begin
LUN = _RANDOM;
exitloop;
end
else
RANDOM = ((.RANDOM + 1) mod .LSUNIT):

end;

v 2«

return .LUN;

end;
.
174752

v 1 o
RNDU:

.SBTTL
JSR

RNDU SELECTING A RANDOM UNIT
R1,8SAVE4

6703

SELECTING A

RANDOM UNIT

29-MAR-82 13:41

SEa 0277

cMLX4

%399 070472

400 070476
P 401 070500
2 402 070504

2403 070506
2604 070512
2405 070516
2606 070522
2407 070524
08 070526
09 070530
070532
070534
070536

000207

ke
b ad

NN
— NOO
¥+ N, X QOO

016703
005001
000443
016702
006202
006202
006202
062702
010246
016746
042716
012746
005046
004767
062706
005300
001003
016704
000415
016746
005216
016746

000001

115074

115040

27-Mar-19 82 19:24: 42
27-Mar-19 82 16:23: 44

SELECTING A RANDOM UNIT

LSUNIT,
#1

18:

JSR

TOPS
PA:<

6716

1$
R4

PC AN

#100000, RANDOM
RANDO=M.,
(SP)

LSUNIT.~(SP)

LUN

6718
6716
6721
6722
6723

PC,BLSMOD

RO . RANDOM
k*unrr.ns

[ X

010067

WOWNFOOO

380 070400
2381 070404
2382 070410
383 070414
2384 070416
12385 070420
2386 070424
12387 070426
88 070430
89 070432
90 070436
2391 070440
2392 070444
2393 070450
2394 070454
2395 070456
2396 070462
2397 070466
2398 070470

042767
016746
016746
004767

070352
070354
070356
070362
070370
070374

111444

- d ek e d € b
=3NS DNAOWN

76
75
76
77
78
79

026727
001002
005004
000467
004767

b d

2 070342
3 070350

G
6
PAGE 265

Ve Bq 0y 0y,

RNDU

MACRO M1113

2%:

MOV

034442

s we

CZMLBBO PERFORMANCE EXERCISER

4s
RANDOM,R2

COUNT

6730
6732

R2
R2
R2

#DRIVE.STATU
,R2
S

R2,-(SP)

115020
177770

RANDOM , = (SP)

177770, (SP)
#1,-(SP§

000001

~(§P)
PC,BLSGT2

113674

#10,sp

000010

114766
114760

RANDOMR4
,

3s:

MOV

111300
114464
114742

*,LUN

6735
6736
6739

COUNT
COUNT,»

6730

LUN,
*

6720
6704
6703

RANDOM
- (SP)
,
(SP)

LSUNIT,-(SP)

CMP

5%:
6$:

CMP
MOV

RTS

PC,BLSMOD
RO, RANDOM
(SP)+,(SP)+
R1
R1,R3

(SP)+,(SP)+
R4 ,RO
PC

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

11 words

<IMLBBO PERFORMANCE EXERCISER

MACRO M1113

RNDU SELECTING A RANDOM UNIT

12423 JMLXS
12424
12425
12626
12627
12428
12429

LRl
aX a2 2 F Y ¥ '~
OO uaIWIWAWIAA

W - OO0 00 NONN
N

—l-‘d—.—.—.-—l-‘—b—l—l—b
[, 8]LELILSLVLETLNT.NT,
ST,N

452

29-MAR-82 13:41

PAGE 266

SEa 0278

27-Mar-1982 19:24:4 2

TESTING RANDOM DATA

6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
67¢7
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784

6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796

Isbttl

27-Mar-1982 19:23:4 4

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5

°'TESTING RANDOM DATA'®

routine RAND1
begin

(REPEAT)

: novalue =

START OF ROUTINE

ROUTINE :

RAND1(REPEAT)

PURPOSE :

TO TEST USING RANDOM DATA

ARGUMENT :

REPEAT = NUMBER OF TIMES TO EXECUTE THIS ROUTINE
BEFORE RETURNING TO THE CALLER (OPTS).

NOTE:

THIS TEST CODE FOLLOWS THE SAME FLOW AS OPT3,

BUT USES A RANDOM DATA PATTERN.

THE CODE FOR

°RAND1'

IN BRIEF:

BEGIN 1
(START OF ROUTINE)
SAY ROUTINE IS RUNNING
INCR COUNT FROM 1 TO REPEAT
:

BEGIN 2

:
:

:
:
:

(START OF REPEAT LOOP FOR THE ROUTINE)

GENERATE THE RANDOM PATTERN
INCR LUN FROM O TO LAST
e ?Eg%fiogP(START OF LOGICAL UNIT SELECTION LOOP)
:
s

BEGIN & (START OF LOOP THAT COMPLETELY TESTS
{LESNIT IS ACTIVE

UNIT)

: i : : BEGIN 5 (START OF TEST FOR AN ACTIV
E UNIT)
i ¢ 2 ¢ INITIALIZE THE WRITE AND READ BUFFE
R POINTERS
: 2
: SECTOR = LOWEST
t o r i WHILE SECTOR LEQ HIGHEST
DO
11 : : BEGIN 6 (START OF SECTOR SELEC
TION LOOP)
t: i 1 : GET_WRDCNT
tor oo ngrgp BUFFER POINTERS BEFORE
TRANSFER
:

t
o
:
:
¢t i
1
$
1 1t
: ¢ 1 1
: i1

:
2
i
1
:

ot
: 2

LOOK FOR ERRORS (IF DROP UNIT, LEAVE
TESTLOOP)
CHOOSE WHETHER TO WRITE CHECK OR
READ
DO THE WRITE CHECK OR READ
LOOK FOR ERRORS (IF DROP UNIT, LEAVE
TESTLOOP)
CHANGE BUFFER POINTERS AFTER TRANS
FER
UPDATE SECTOR NUMBER BY NUMBER OF SECTORS
IN PREVIOUS
END 6 (END OF SECTOR SELECTION LOOP)

1t END S5 (END OF TEST FOR AN ACTIVE UNIT)
r END & (END OF TESTLOUP)

END 3

(END OF LOGICAL UNIT SELECTION LOOP)

ée?figuz (END OF REPEAT LOOP FOR THIS ROUTINE)

END 1
label

(END OF ROUTINE)

TRANSFER

(44)

(ZMLBBO PERFORMANCE EXERCISER

RNDU SELECTING A RANDOM UNIT

12479 MLXG
}gzg? :

12482 ;
12483 ;
12484 ;
12485 ;
12486 ;
12487 ;
12488 ;
12489 ;

126490 ;
12491 ;

18492 ;
12493

126494 ;

12495
12496
12497
12498
126499
12500
125Ci
12502
12503

;

;
;
;
;
;
;
;

6797
6798
6799
6800
6801
6802
6803
6804

6805
6806

6807
6808

6809

6810
6811
6812
6813
6814
6815
6816
6817
6818

gg;g

12506
12507 ;

6821
6822

12509
12510 ;
12511 ;
12512 ;
12513 ;
12514 ;
12515
12516 ;
12517 ;
12518 ;
12519 ;

12520 ;
12521 ;

1252% :
12523
;
12524 ;
12525 ;
12526
12527 ;
12528 ;
12529 .
12530 ;
12531 .

;gg;g :

29-MAR-82 13:41

1
6
PAGE 267
SEQ 0279

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

TESTING RANDOM DATA

1%2%% ;

12508 ;

MACRO M1113

6823

6824
6825
6826
6827
6828
6829
6830
6831
6832
6833
6834

6835
6836

6837
6838
6839
6840
6841
6842
6843
6844
€845
6846

6947

7,848

TOPS=20 Bliss~16 v2(212)
PA:<NEALE>MLX4.BLI.S (44)

LOOP;

local
WRDCNT,
VALUE,
OLDSEC,
OLDCHN,
SECTOR,

PIR,
“OMMAND
,

DBL_VALUE;

PRINTB (SAY1, RTNSA);

! 'RAND1’
)
incr COUNT from 1 to .REPEAT do
begin
GEN5S ();
)
incr LUN from 0 to (.LSUNIT - 1) do
begin
LOOP :
)

begin

!+ 2 +
START OF REPEAT LOOP FOR THIS ROUTINE
!FIRST 3 WORDS OF WBUFF ARE THE SEEDS

'* 3 «

START OF LOGICAL UNIT SELECTION LOOP

‘* 4 ~

START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT

'* 5 %«

START OF TEST FOR AN ACTIVE UNIT

if .DRIVE_STATUS [.LUN] eql ACTIVE
then

begin

LSLUN = LUN;
WPTR = WBUFF;
RPTR = RBUFF;
SECTOR = LOWEST;
.
while .SECTOR lequ HIGHEST do
begin
'* 6 « START OF SECTOR SELECTION LOOP
WRDCNT = GET_WRDCNT (.SECTOR, HIGHEST);
SET_PTRS (.WRDCNT);
VALDE = write (.LUV, .WRDCNT, .WPTR, .SECTOR) ;

e
!
SEE HOW SUCCESSFUL THE WRITE WAS:

selectone .VALUE of
set
1y

!SEE_"SYSERR' FOR DEFINITION
!0OF ERROR # CONTAINED IN °'VALUE'

begin

‘* 6A * RETRY ALLOWED
.
it RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECT
OR) neq 0

then

begin

!THE RETRY FAILED -~ SYSTEM FATAL ERROR

WHY_DROPT [.LUN] = CODE_4;

(ZMLBBO PERFORMANCE EXERCISER
kNOU SELECTING A RANDOM UNIT

MACRC M1113

29-MAR-82

13:41

PAGE 268

6
SEQ 0280

12535 .MLx4
:

27-Mar-1982 19:24:4?2

TESTING RANDOM DATA

27-Mar-1982 19:23:44

6849
6850
6851
6852

ERRDF (5101, MSG1, 0);
!sw*« OPTION 5, RAND1 ERROR 01
DODU (.LUN);
leave LOOP;
{JUMP JUST BEYOND END OF BLOCK # 4 +
end;

6854

end;

6864

£33

:
begin

;

:
:

end;

Ix 6C =

COMMAND = CHOOSE ();

6875
6876

if .COMMAND eql read
then

6878

Prg = .RPIR;

6880

end

begin

6879
6881

6883

6884
6885

!xxax OPTION 5, RAND1 ERROR 03 wews

WHY _DROPT [.LUN] = CODE_6;
000 (.LUN);
leave LOOP;
1JUMP JUST BEYOND END OF BLOCK * & «

6873

;

i* 6C « FATAL DRIVE ERROR -- NO RETRY ALLOWED

ERSDF (5103, MsGl1, 0);

tes;

'n GA =

:
|
X 68 * FATAL
begin
CONTROLLER ERROR -- NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE_S;
ERRDF (5102, MSG1, 0);
!twxx OPTION 5, RAND1 ERROR (02 swte
DODU (.LUN):;
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * & «
end;
'~ 68 »

gg;?

seee

(23

6867
6868
6869

(44)

6856
6857
6858
6859
6860
6861
6862

6866

TOPS-20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S

VALUE = read (.LUN,

else

.WRDCNT,

.RPIR,

LSECTOR)
;

.WRDCNT,

.WPTR,

.SECTOR);

begtn

PTR

= .WPIR;

VALUE = CHECK
end;

(.LUN,

6887
6888

'+
;
SEE HOW SUCCESSFUL THE OPERATION WAS:

6891
6892

selectone ,VALUE of
set

6894

6896
6897
6898

6900

!SEE 'SYSERR' FOR DEFINITION
!OF ERROR # CONTAINED IN *VALUE®

[0l :

if .COMMAND eql read
then
begin

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq
0

(ZMLBBO PERFORMANCE EXERCISER
RNDU SELECTING A RANDOM UNIT

12591

:MLX4

}gggg ;
12594
12595
12596
12597
12598
12599

;
:
:
:
:
;

12600 :

N
o

INLNIND
o

12601 :
12602 :
12603 :
12604
12605
12606
12607
12608
12609
12610
12611
12612
12613
12614 :
12615
12616
617
618
619

}

12625 :
1
1

:
:
:

;

6930

6932

6933
6934
6935

6936
6927
6938

644
645

;
;

6945
6946

6948

6949

¢950
6951
6952

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

then

6907

6908
6909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922
6923
6924
6925
6926
6927
6928

6943
6944

PAGE 2469

SEQ 0281

4901
6702
6903
6904
6905
6906

6942

641 -

29-MAR-82 13:41

TESTING RANDOM DATA

A940

MACRO M1113

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (44)

egin
SAYWHO {.LUN);
PRINTB (SAY1,
MSGS);
!'ECC LOGIC FAILEVD TO DETECT DATA ERROR'
PRINTB (FMT12A, ..DBL_VALUE, .DBL_VALUE):
1°'GOOD DATA: XXXXXX AT LOCATION YYYYYY'®

DBL_VALUE = .DBL_VALUE + BUFSIZ*2;

PRINTB (FMT128, -.DBL_VALUE, .DBL VALUE):
'*BAD DATA:
PPPPPP AT LOCATION 0000QQ°
WHY DROPT [.LUN] = CODE_8;
ERRDF (5104. MSG1, 0):
!xxx+ OPTION S, RAND1 ERROR 04 seee
DODU (.LUN):
leave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 #
end;

end;
1y

:
begin
!* 6D * RETRY ALLOWED
.
if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR. .SECT
OR) neg 0
then
'THE RETRY FAILED ~- SYSTEM FATAL ERROR
begin
WHY DROPT [.LUN] = CODE_4;
ERRDF (5105, MSG1, 0);
~!s«#x OPTIO. 5, RANDT ERROR 05 wwws
DODU (.LUN);
leave LOOP:
'JUMP JUST BEYOND END OF BLOCK * & +
end;
end;

21 :

I 6D »

begin
!* 6 * FATAL CONTROLLER ERROR =-- NO RETRY ALLOW
ED
WHY DROPT [.LUN] = CODE_S;
ERRDF (5106, MSG1, 0);
ixxxx OPTION 5, RAND1 ERROR 06 s

DODU (.LUN):
leave LOOP;
end;

!JUMP JUST BEYOND END OF BLOCK « 4 +
2 6E «

3] :
begin
i 6F * FATAL DRIVE ERROR -- NO RETRY ALLOWED
ERRDF (5107, MSG1, 0);
!sxxx OPTION 5, RANDT ERROR (7 tewe

WHY DROPT [.LUN] = CODE_6;
DOD0 (.LUN);

leave LOOP;
end;

[4] :

begin

'JUMP JUST BEYOND END OF BLOCK ¢ 4 +
‘v 6F «

!s 66 * UNRECOVERABLE DATA ERROR

ISOLATE O:
ERRDF (5108, MsG2, 0):
WHY_DROPT [.LUN] % CODE_7;

'exex OPTION 5, RAND! ERROR 08 sews

CZMLBBO PERFORMANCE EXERCISER

RNDU SELECTING A RANDOM UN]T

MACRO M1113

29-MAR-82 13:41

SEQ 0282

12667 ;MLX4

}ngg :
12650
12651
12652
12653
12654
12655

;
;
;
;
:
:

12656 ;

12657 :
12658 ;

12659 :
12660 ;

12661

;

12662 :

12663 ;
12664 ;
12665 ;
12666 ;
12667 ;
12668 ;
12669 .
12670 :
12671 ;
12672 ;
12673 ;
12674 ;
12675 :

12676 ;
12677 .

12678 ;

12679 ;
12680 ;
12681 ;

12682 ;
12683 ;
12684 ;

12685 ;
12686 ;
12687 :
12688 ;
12689 ;
12690 ;
12691 ;
12692 ;
12693 :
12094 ;
12695 ;
12696 ;
12697 ;
12698 ;

}sggg :

12701 ;

27-Mar-1982 19:24:42

TESTING RANDOM DATA
6953
6954
6955
6956
6957
6958

27-Mar-1982 19:23:44

DODU (.LUN);
leave LOOP;
51

6959

!JUMP JUST BEYOND END OF BLOCK ~ & +
' 6G «

:
begin

!* 6H » RECOVERABLE DATA ERROR

ISOLATE );

.
if

6964

OLDSEC = .MLEL:

6962
6963

.ERROUT then PRINTB (FMT108,

6955

10PS~20 Bliss=-16 v2(212)

PA:<NEALE>MLX4.BLI.S (44)

end;

6960
6961

.CHAN):

8IT QQ°

OLDCHN = ,CHAN;

6966
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978

if RETRY (ONE, .COMMAND, .LUN, -WRDCNT, .PTR,
.SECTOR) eql §
then
)
if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin
.
if .ERROUT then ERRHRD (5109, MSG4, 0);

6979
6980

else

6981

6982
6983
6984

I«wax OPTION 5, RAND1 ERROR 09 #axs
UP_HARD_COUNT (.LUN, .BUARD):
end
begin

if .ERROUT then ERRSOFT (5110, MSG3, 0);

!xxx% OPTION 5, RAND1 ERROR 10 #anw
UP_SOFT_COUNT (.LUN, .BOARD):
end

6985
6986
6987

6988
6989
6990
6991
6992
6993
6994
6995
6996
6997
6998
6999
7000
7001

else

begin

it .ERROUT then ERRSOFT (5111, MSG3, 0);
!xxxx OPTION S, RANDT ERROR 11
UP_SOFT_COUNT (.LUN, .BOARD):
end;
tes;

end;

end;
end;

#wss

‘v 6H »

WPTR = ,WPTR + (.WRDCNT®2):
SECTOR = _SECTOR + (.WRDCNT/256);

;88%

7004

L_6

PAGE 270

!* 6 «

END OF SECTOR SELECTION LOOP

!~ 5 «

END OF TEST FOR AN ACTIVE UNIT

CZMLBBO PERFORMANCE EXERCISER

RNDU SELECTING A RANDOM UNIT

12734 ;
12735 ;
12736 ;
12737 ;
12738 ;
12739 ;
12740 ;
12741 ;
12742 ;
12743 ;
12744 ;
12745 ;
12746 ;
12747 ;
12748 ;
12749 ;
12750 ;
12751 ;
12752 ;
12753 ;
12754 ;
12755 ;
12756 ;
12757 ;

7031
7032
7033
7034
7035
7036
7037
7038
703
7040
7041 7042
7043
7044
7045
7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

TOPS=-20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.S (44

‘e
.
.
.
; Test to see if this uut's address space is
! to be read for soft errors.
This test is
! is intended for DMT purposes.
{~
it .EFN$21
then
begin

!
!
!

!Is the background pattern to be read

version czmlbb changed incr to incru
.
incru SECTOR from LOWEST to HIGHEST do
.
if read (.LUN, 256, RBUFF, .SECTOR) eql §
then
begin
)
.
ISOLATE ();
!Find the failing bank and board no.
.
it .ERROUT then PRINTB (FMT10B, .CHAN):
.
.
! Print where the error is
!
.
. Save the contents of the ML error location

! register so we can compare it to the new
: contents of this register after the retry.
! This is done to classify the error.
!
OLDSEC = .MLEL;
OLDCHN = ,CHAN;
!
)
! Do a classify retry call.
If the same error
! occures then classify it as a hard error.
If
; @ different error occured or the error went away
! then classify it as a soft error.
!

if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC)
eql 5
then
!
..
: The same error occured so see if it is at the
same
i sector and channel number,
if so then classify
! it as a hard error else c(ass1y it as a soft
! error.
!
if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin
!Same error occured 'hard’

12732 .
12733 ;

SEQ 0283

TESTING RANDOM DATA
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016
7017
7018
7019
7020
7021
7022
7023
7024
7025
7026
7027
7028
7029
7030

o]
PAGE 271

bl ed a2

12706 ;
12707 ;
12708 ;
12709 ;
12710 ;
12711 ;
12712 ;
12713 ;
12714 ;
12715 ;
12716 ;
12717 ;
12718 :
12719 .
12720 ;
12721 ;
12722 ;
12723 ;
12726
12725 ;
12726 ;
12727 ;
12728 ;
12729 .
12730 ;
12731 ;

29-MAR-82 13:41

obhend

12703 ;MLX4
}5;8? :

MACRO M1113

(ZMLBBO PERFORMANCE EXERCISER
RNDU SELECTING A RANDOM UNIT

SEQ 0284

27-Mar-1982 19:24:42

TESTING RANDOM DATA

27-Mar-1982 19:23:44

7057
7058
7059
P 7060
P 7061
7062
7063
7064
7065
7066
7067
7068
7069
7070
7071
7072
P 7073
P 7074
7075
7076
7077
7078

if .ERROUT
!Print error if enabled
then
beg1n
ERRHRD (5112,
'Error number
MSG4,
!Error message
)
0):;
!Additional message routine
end;

else

UP_HARD_COUNT (.LUN,
end

UP_SOFT_COUNT (.LUN,
end

7079

;
;
;
;

12792
12793
12794
12795

:
;
;
;

P 7087
P 7088
7089
7090

begin
.
if .ERROUT
then
begin
ERRSOFT_(5114,
MSG3,
0);
end;

12797 ;
12798 ;

7092
7093

UP_SOFT_COUNT (.LUN,
end;

12807
12808
12809
12810

;
;
;
;

7084
7085
7086

7091

7094
7095
7096
7097
7098
7099

‘soft’

.
.
!Print error if enabled
!'Error number
!Error message
)
!Additional message routine
.BOARD);

end;

end;
end;

;}8?

7102
7103
7104
7105

!Not the same error

end;

end;
return;
end;

i* & «

END OF LOOP THAT COMPLETELY TESTS 1 UNIT

= 3«

END OF LOGICAL UNIT SELECTION LOOP

'« 2 ~

END OF REPEAT LOOP FOR THIS ROUTINE

!« 1

END OF ROUTINE

r—d
s
A
s

}gggg :

else

12799 ;
12800 ;
12801 ;
12802 ;
12803 ;
12804 ;

7080
7081
7082
7083

.BOARD):

12796 .

.30ARD);

begin
!Not the same error ‘'soft’
.
.
.
if .ERROUT
!Print error if enabled
then
begin
ERRSOFT_(5113,
'Error number
MSG3, !Error message
.
0);
!Additional message routine
end;

12785
12786
12787
12788

12789 ;
12790 ;
12791 ;

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (44)

12784 ;

N_
6
PAGE 272

12762 :
12763 ;
12764 ;
12765 ;
12766 ;
12767 ;
12768 ;
12769 ;
12770 ;
12771 ;
12772 ;
12773 :
12774 ;
12775 :
12776 :
12777 ;
12778 ;
12779
12780 ;
12781 ;
12782 ;
12783 ;

29-MAR-82 13:41

12759 MLX4
12760
1572?
:;

MACRO M1113

RNDU SELECTING A RANDOM UNIT

29-MAR-82 13:41

SEQ (285

070544

O=OO00O—~O
(=] P
e ey Y
WnHonrnorns
S
QPN
—
P2 OSSO
Ao

sMLXS

114570

RAND1:

000020
007664
007072
000002
000024
002276

151014
111202
000006

000010

002240
060006

1%:

2%:

034442
000010
177770
000001
113472
000010

12868 070776
12869 071000

12870

12873 071004
12874 071006

o«oooso«o-aoo
o

ON) = O

b bO

<
H

jolelelelsl=]

1
1
1286
1
1
1
1
0760
1 2865 070764
12866 070770
12867 070772

0
216
7

HOOO

010004
026427

034460
034500

~ ==

b wnd amd

b wnd

3s:
48:

5%:

156146
000012

141672

000001

MoV
MoV
MOV
MOV
TRAP
CLR
JMP
JSR
MOV
CLR

MOV
ASR
ASR
ASR
ADD
MoV
MOV
BIC
Mov
CLR

DEC
8EQ
JMP
MoV
MOV

MOV
MoV
ASL
MOV

B8HI

MOV
MoV
JSR
Mov
MoV
JSR
MoV

034500
156222

154420

.SBTTL
JSR

ADD

605

001502
000006
012670
022670
000006

sMLX4

27-Mar-198 2 19:
27-Mar-19 8 2 19:

TESTING RANDOM DATA

JSR

riyrenn

b 2 ok b

DOO OC OO0 OO=OO0OOO0O0

47 070664
48 070670

B_.7

PAGE 273

Mov
MOV
MoV
JSR

RAND1

#20,sP

#RTNS
- (SP)
A,
#SAY1,=(SP)
#2,-($P)
SP.RO
14

24(SP)
428

6746

6809
SP,»

COUNT

6812

PC, GENS

6814
6816

LSUNIT,10(SP)

6(SP)

LUN

6(SP) ,RO

LUN,

6821{

LUN,»

6824
6825
6826
6827

4 13

R0
R0
4 DRIVE.STATUS,RO
R 0.~(SP)
1 0(SP) ,~(SP)

» 177770, (SP)
#1,-(SP)

-(SP)
PC,BLSGT2
#10,5P

4$
298

6(SP) ,LSLUN

MIBUFF ,WPTR

#RBUFF .RPTR

gésp>.ns

LOW.SECT(RS)
R3

LUN,*

*,SECTOR

§g.TOP.SECT(R5 )

SECTOR,
«

6829

R3,~(SP)

SECTOR,
«

6831

RO.R2
R2,(SP)

% , WRDCNT
WRDCNT
,«

6832

12(SP
, (SP)
)
R2,=(SP)

LUN,
»
WRDCNT
,»

R3,-(SP)

SECTOR,+

TOP.SECT(RS) ,=(SP)
PC,GET.WRDCNT

PC,SET.PIRS

WPTR,~(SP)

PC,WRITE

RO.R4
R4 .M

6833

27=-Mar-19
27-Mar-19

TESTING RANDOM DATA
Mov
(MP

TOPS
PA:<

TESTING RANDOM DATA

R1,$SAVES

0000
N

(ZMLBBO PERFORMANCE EXERCISER

TOPS

PA:<

* ,VALUE

VALUE ,+

6839

12875 071012
12876 071014
12877 071020

2878 071024
2879 071030

001035
012746
012746
016646
010246
016746
010346

29-MAR-82 “3:41

MoV
MOV
MOV
MoV
Mov
JSR
ADD
TST
8EQ
Mov
MOvB
TRAP

141632

155160
000014

034446

-WORD
.WORD
. WORD
MOV

000020

TRAP

6%:

034446

— O

b o

OOO0O==O

000002
000020
000005

000020
7%:

B8R
CMP
BNE
MoV
Movs
TRAP
.WORD
.WORD
. WORD
MOV
TRAP

CMP
BNE
TRAP

. WORD
.WORD

=D
NN
N —=O VOO~

D OO0

PIN) cd =d d wod d cd cd =d e

LSS T NY, ¥ T.¥Y,81,§7,§

V0BV
OO0
b

000003

000020
000006

034446

000012

8s:

154752
000034

045612
141434

000020
141420

c..7

PAGE 273-1

SEQ 0286

BAE
MOV

000006
045424
000024

000020
000004

887 071060
1 888 071066
889 071070
890 071072
891 071074

MACRO M1113

000032

sMLX4

. WORD
MoV
Movs
MoV
TRAP
ADD

JSR

MOV
CLR
CMP
BNE
INC
MOV

#6,-(SP)
#WRITE,-(SP)

6845

24(SP) ,-(SP)
R2,=(SP)

LUN,«
WRDCNT,
»

R3,-(SP)

SECTOR,
*

WPTR,~(SP)

PC,RETRY
#14,SP

RO
9s

20(SP) ,R1
gg.UHV.DROPT(R1)

LUN,»

6849

11755
MSG!?

0
20(SP) ,RO
51
83

R4, 42

78
20(SP) ,R1

gg.UHY.DROPT(R1)

LUN,*

6850

VALUE,
«

6851
6839

LUN,%

6858

6859

11756
8561

20(SP) ,RO
51
8s

R4 .43
9

LUN,
*

MOV

6861
6839

VALUE,
=

35
11757

M561

0
20(SP) ,R1

#6,WHY .DROPT(R1)
R1.RO

#12,SP
148
PC,CHOOSE
RO,34(sSP)
R1
RO, #READ
108

LUN,

LUN,*

*, COMMAND
COMMAND
,+

RPTR,32(SP)

*,PTR

TESTING RANDOM DATA
MoV
Mov

6848

20(SP) ,=(SP)

R2,=~(SP)

LUN,®
WRDCNT,
«

R3,-(SP)

SECTOR,*

RPTR,=(SP)

27~Mar-19 82 1
27-Mar-19 82 19:
00

CZMLBBO PERFORMANCE EXERCISER
RAND1 TESTING RANDOM DATA

6878

TOPS
PA:<

6879

(ZMLBBO PERFORMANCE EXERCISER

RAND1

TESTING RANDOM DATA

12932
12933
12934
12935

071256
071260
071262
071270

12936 071274

12937 071276
12938 071302
12939 071306
12940 071310
12941 071312
12962 071314
12943 071316
12944 071320
12945 071326
12946 071330
12947 071334
12948 071336
12949 071342
12950 071346
12951 071352
12952 071354
12953 071260
12954 071364
12955 071370
12956 071374
12957 071400
12958 071402
12959 071404
12960 0716410
12961 071414
12962 071420

12963 071424
12964 071426
12965 071430
12966 071436
12967 071442
12968 071646

12969 071452

12970 071456
12971 071460
12975 071462
12973 071466
12974 071476
12975 071476
12976 071500
12977 071502
12978 071504
12979 071510
12980

004767
000413
016766
016646

010246

141402
000020

12985 071520
12986 071524
12987 071526
12988 071532

000032

108:

012746

010600
104414
016601
112761
104455
011760
011070
000000
016600
104451

010000

000052

118:

128:
138:

MOV
MOV
JSR
MOV
BNE
ROR
BLO
WP
MoV
MOV
MOV
JSR
ADD
MOV
BEQ
MOV
JSR
MOV
MOV
MoV
MOV
TRAP
MOV
MoV
MoV
MOV

MOV
TRAP
ADD
MOV
MOV
MOV

000052

000052
006756
000003
000052
000010

JSR
BR
Moy
MOV

MOV

016746
161366
010346
004767
154470
010004
00110
006001
103402
000167 001014
016746
141340
016746
141336
010246
004767
152764
062706 000006
010066
000036
001762
016646
000030
004767
164140
012716 011216
012746 007072
012746
000002
010600
104414
016616
000044
017646 000044
012746 006710
012746 000003

010600
104414
062766
016616
017646
012746

29-MAR-82 13:41

MOV

034446

000052
MLXG

MOV
TRAP
MOV
MOVB
TRAP
MORD
.WORD
JWORD
MOV
TRAP

062706
000521

020427
001035
012746
016646

000044
000001
000006
000046

0.7

PAGE 273-2
SEQ 0287

154332

}333}

12983 071512
12984 071516

MACRO M1113

14$:
158:

PC ,READ
11§
WPTR,32(SP)
20(SP) ,-(SP)

; «,PIR
tLON,

R2,~(SP)

: WRDCNT,«

WPTR,=(SP)
R3,~(SP)
PC.CHECK
RO,R&
15§
R1
13
288
WPTR,-(SP)
RPTR.-(SP)
R2,-(SP)
PC .DOUBL
. CHECK
E
#6.SP
RO.36(SP)
12§
30(SP),~(SP)
PC.SAYWHO
#MSGS, (SP)
#SAY1.~(SP)
#2,~(SP)
SP.RO
14
44 (SP) , (SP)
344 (SPS ,=(5P)
WEMT12A,-(SP)
#3,-(SP)

SP.RO
14
#10000,52(SP)
52 SP) . (SP)
252(305,-(SP)
#FMT128.~(SP)

;

SECTOR,*

;
:

*.VALUE

6891

6896

4900

; WRDCNT,*
;

*,DBL.VALUE

; LUN,*

6903

;

6904

: SP,*
;

DBL.VALUE,*

6905

: DBL.VALUE.+*

: SPx
; *,DBL.VALUE

6907

: DBL.VALUE,+

6908

: DBL.VALUE.
s

#3,-(SP)

SP.RO
14
52(SP).R1
#10,WHY.DROPT(R1)
55
11760
MSG1
0
52(SP).RO
57

; SP,*
; LUN,*

6910

6911

: LUN,*

6912
27-Mar-1982 19:24:42

TESTING RANDOM DATA
ADD
BR
(MP
BNE
MOV
MOV

6883
6884

¥4, 5P
208
RS 41
16§
#6,~(SP)
46(SP) ,-(SP)

27-Mar-1982 19:23:44

TOPS

PA:<

6913

; VALUE,*

6891

:
: COMMAND,

6921

CZMLBBO PERFORMANCE EXERCISER
TESTING RANDOM DATA

12989 071536
12990 071542
12991 071544
12992 071550
12993 071552
12994 071556
12995 071562
12996 071564
12997 071566
12998 071572
12999 071600
13000 071602

13001
13002
13003
13004

016646
010246
016646
010346
004767

071604
071606
071610
071614

000052
156446
000014

034446

000030

13005 071616
13006 071620
13007 071624
13008 071626
13009 071632
13010 071640
1 30
071642

000002

16%:

17%:

30
30
071670
3021 071672
1

034446

000004

0,
sp

RO
128

30(sP) ,R1
g;.UHV.DROPT(RT)

LUN,*

6924
6925

11761
8561

30(SP) RO
51

198
R4 42
178

0
30(sP) RO
51
198

R A3

18$

LUN,
»

6926

VALUE,
*

6927
6891

LUN,
=

6934

6935

LUN,
*

6936

VALU,E*

6891

6937

6942

18%:

NUOONOO
O

000022
001070

000005

LUN,»

6943

R1,RO

LUN,

6944

VALUE,
»

6945
6891

19s
RG 44

21§

PC.ISOLATE

‘MLX4

000030
000007

0
30(sP) ,R1

#6 ,WHY .DROPT
(R1)

145402

NNNO
O

13041 071754
13042 071756
13043 071762
13044 071766
13045 071772

000030
000006

OOOD=O-O
ONOO
- —
HOSREROr
- B DGO

13040 071752

SECTOR,
«

; 3022 071674

13024 071702
13025 071710
13026 071712
13027 071714
13028 071716
13029 071722
13030 071724
13031 071730
13032 071732
13033 071734
13034 071736
13035
13036
13037
3038 071740
3039 071744

PC.RETRY

LUN,
WRDCNT,
«
PTR,«

11763
MsSG?

6950
6951'

55
11764
MSGe
0

27-Mar-19
27-Mar-19.

TESTING RANDOM DATA

30(SP) .R1

034446

#7,WHY .DROPT(R1)
R1,
S
[4 RO
NONY —~
-~ OO0
L1
21 )

000003

52(SP),=(SP)
R3,=(SP)

gg.UHY.DROPT(R1)

000030

34(SP),=(SP)

R2,=(SP)

11762
MSG1

oo =leleleletl-]

OVONOWNS
NN

30
30 1
1 30
1 30 1
1 3 01
3 01
1 301
1

MOV
MOV
MOV
MOV
JSR
ADD
TST
8taQ
MOV
MovB
TRAP
.WORD
.WORD
. WORD
MoV
TRAP
B8R
CMP

30(sP) ,R1

034446

000030
000005

E_7

PAGE 273-3

SEQ 0288

000034

000030
000004

29-MAR-82 13:41

#22,5P
408
R4 A5

28$

o 0o
NN

RAND1

MACRO M1113

TOPS
PA:<

LUN,
=

6952

LUN,*

6953
6954

VALUE ,»

6891

TESTING RANDOM DATA

13046 071776
004767
145332
13047 072000 032767 000001
110252
13048 072006
001423
13049 072010 017701
142374
13050 072014
006201
13051 072016 006201
13052 072020
006201
13053 072022
006201
13054 072024
006201
13055 072026 006201
13056 072030 042701
177700
13057 072034
010146
13058 072036
012746
006640
13059 072042 012746 000002
13060 072046
010600
13061 072050
104414
13062 072052
062706
000706
13063 072056
017766
142330
000040
13064 072064
017701
142320
13065 072070 006201
13066 072072
006201
13067 072074
006201
13068 072076 006201
13069 072100 006201
13070 072102 006201
13071 072104
042701
177700
13072 072110
010166
000034
13073 072114
012746
000001
13074 072120 016646 000046
13075 072124
016646 000034
13076 072130 010246
13077 072132
016646 000052
13078 072136
010346
13079 072140 004767
154060
13080 072144
062706 000014
13081 072150 020027 000005
13082 072154
001052
13083 072156
027766
142230
000040
13084 072164
001035
13085 072166 016600 000034
13086 072172 017701
142212
13087 072176 006201

13088 072200
13089 072202
13090

006201
006201

13093 072204
13094 072206
13065 072210
13096 072212
13097 072216
13098 072220
13099 072222
13100 072230
13101 072232
13102 072234

22$:

JSR
8IT
BEQ
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV
MOV
MOV
MOV
TRAP
ADD
MoV
[l
ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV
(Y
MOV
MOV
MOV
MOV
MOV
JSR
ADD
cMP
BNE
cMp
BNE
MOV
MOV
ASR

ASR
ASR

006201
006201
006201
042701
020100
001017
032767
001404
104456
011765

177700
000001

110030

F_7
PAGE 273-4
SEQ 0289

sMLX4

3835

29-MAR-82 13:41

PC,ISOLATE
#1,ERROUT
22§
ML .REG+42,R1
R1
R1
R1
R1
R1
R1
#177700,R1
R1,-(SPS
#FMT108 - (SP)
#2,-(SP}
SP.RO
14
#6,SP
ML .REG+44 ,40(SP)
ML .REG+42.R1
R1
R1
R1
R1
R1
R1
#177700.R1
R1,34(SP)
#1.-(SP)
46(SP).=(SP)
34(SP) .~(SP)
R2,=(SP)
52(SP) ,=(SP)
R3.-(SP)
PC.RETRY
#14,SP
RO, A4S
258
ML .REG+44,40(SP)
248
34(SP) RO
ML REG+42,R1
R1

SP,*
*,0LDSEC

6964
6965

*,0LDCHN

6967

COMMAND
,+
LUN,=
WRDCNT
,»

PTR,

SECTOR,
«

*,0LDSEC

6970

OLOCHN,
+

R1
R1

TESTING RANDOM DATA
ASR
ASR
ASR
8IC
CMp
BNE
BIT
BEQ
TRAP
WORD

6959
6961

I EY I WA

RAND1

MACRO M1113

LR ERL

CZMLBBO PERFORMANCE EXERCISER

R1
R1
R1
#177700.R1
R1,R0
24$
#1_ERROUT
238
S6
11765

27-Mar-1982 19:24: 42
27-Mar-1982 19:23: 44

T10PS

PA:<

6974

CZMLBBO PERFORMANCE EXERCISER

RAND1

TESTING RANDOM DATA

13103 072236
13104 072240
12105 072262
13106 072246
13107 072252
13108 072256
13109 072260

13110 072266
13111 072270
13112 072272
13113 072274

13114 072276

13115 072300
13116 072302
13117 072310
13118 072312
13119 072314
13120 072316
13121 072320
13122 072322
13123 072326
13124 072332

011202
000000
016646
016746
004767
000427
032767

001415
104457
011766
011166

MACRO M1113

23s:

107772

13125 072336 022626
13126 072340 010200
13127 072342 006300
13128 072344 066700
13129 072350 010067
13130 072354 010216
13131 072356 012746
13132 072362 004767
13133 072366 060300
13134 072370 010003
13135 072372 062706
13136 072376 000167
13137 072402 032767
13138 072410 001002
13139 072412 000167
13140 072416 016600
13141 072422 006300
13142 072424
016001
13143 072430 016005
13144 072434
000167
13145

13158 072506
13159 072510

.WORD
-WORD
MOV
Mov
JSR
BR
8IT

BEQ
TRAP
WORD
.WORD
"WORD

000001

107750

000030
162010
145546

258:

268:

278:
288:

140320
140314
000400
112602

000024
176332
000001

BR
BIT
BEQ
TRAP
LWORD
-WORD
JWORD
MOV
MOV
JSR

CMP
MoV
ASL
ADD
MOV
MOV
MOV
JSR

ADD
MOV

107652

000440
000006

29%:

308:

034500
034460
000406

2MLXG

};}29

13148 072440
13149 072444
13150 072450
13151 072454
13152 072456
13153 072462
13154 072466
13155 072472
13156 072474
13157 072500

24%:

000000

000410
032767
0014064
104457
011767
011166
C€00000
016646
016746
004767

ADD
JMP
BIT
3
JMP
MoV
ASL
MOV
MOV
JMP

016646
012746
012746
010546
004767
062706
020027
001164
004767
032767

001423
017700

000006
000400
022670

318:

153130

000010
000005
144632
000007

141674

6.7

PAGE 273-5
SEQ 0290

000030
142070
145144
000001

29-MAR-82 13:41

107552

MSG4
0
30(SP),~(SP)
B0ARD, - (SP)
PC,UP.HARD.COUNT
27§
#1,ERROUT

268
§7
11766
MSG3

: LUN,+

6977

:
:

6970
6982

:
;

6985
6901

; LUN,*

6994

:
: WRDCNT,*

6958
7000

: WRDCNT,*

7001

268
#1,ERROUT
26$
57
11767
MSG3
0
30(SP) ,~(SP)
BOA
, =RD
(SP)
PC.UP.SOFT.COUNT

(SP)+.(SP)+
R2,RO
RO
WPTR,RO
RO.WPTR
R2.(SP)
#40
-0,
(SP)
PC.BLSDIV

R3.RO
RO.R3

#24,5pP
13
#1,EFNS21
308
%08
6(SP) ,RO
RO
TOP.SECT(RO)
,R1
LOW. SECT(RO) .RS
398

; SECTOR,*
: =, SECTOR

:
:
:

6830
6829
7012

; LUN,»

7019

; *,SECTOR
27-Mar-1982 19:24:42

TESTING RANDOM DATA
MoV
MOV
MOV
MOV
JSR
ADD
CMP
BNE
JSR
8IT

BEQ
MOV

6(SP) ,~(SP)
#400,=(SP)
#RBUFF ,=(SP)
RS, =(SP)

PC 'READ

#10,sP
RO, 45
38$
PC, ISOLATE
#1.ERROUT
32§
aML . REG+42,R0

27-Mar-1982 19:23:44

: LUN,»

TOPS

PA:<
7021

; SECTOR,+

:
:

7024
7026

b i e

D ey o

062706

017766
017700
006200
006200
006200
006200
006200
006200
042700
010066
012746
016646
016646
012746
016646
016646
004767

062706
020027
001052
027766
001035
016646
017700
006200
006200
006200

3
04
05
06

006200

072710
072712
072714
072716

SEQ 0291
ASR
ASR
ASR
ASR
ASR
ASR

177700

141630
141620

000016

32%:

177700
000012
000001
000024
000012
000400
000030
000030
153354
000014
000005
141524

ADD
cMpP
BNE
CMP

000016

BNE

000012

141506

sMLX4

000001

Mov
MOV
MoV
MOV
TRAP
ADD
MOV
MoV
ASR
ASR
ASR
ASR
ASR
ASR
8IC
Mov
MOV
MoV
MoV
MoV
MOV
MOV

JSR

MoV
MOV
ASR
ASR
ASR

RO, ~(SP)

#FMT108,-(SP)

#2,-(SP)

SP.RO
14
#6,SP
ML .REG+44,16(SP)
gHL.REG*AZ.RO

: SP,»

s *,0LDSEC

7035
7036

#177700,R0
RO,12(SP)

21,-(SP)

24 (SP) ,~(SP)
12(SP) ,-(SP)

#600,~-(SP)

30(SP) ,~(SP)
30(SP) ,~(SP)

PC RETRY

* ,0LDCHN

COMMAND
,»
LUN,
PTR,«

7044

s OLDSEC,»

#14,5P

RO, 45

35§

ML .REG+44,16(SP)

34$
12(SP) ,-(SP)

ggl.REG*kZ.RO

;

*,0LDSEC

7053

: OLDCHN,+

RO
RO

27-Mar-198 2 19:2 l.. 42
27-Mar-198 2 19:23:
19:2 44

TESTING RANDOM DATA

TOPS
PA:<

RO
RO
RO
#177700,R0
RO, (SP)+

177700

07 022722
88 072724

R
#177700,R0

BIC

006640
000002

000006

H_7
PAGE 273-6

TN ¥

104414

29-MAR-82 13:41

LR PR

006200
006200
006200
006200
006200
006200
042700
010046
012746
012746
010600

MACRO M1113

LX)

0 072514
072516
072520
072522
072524
072526
072530
072534
072536
072542
072546
072550
072552
072556
072564
072570
072572
072574
072576
072600
072602
072604
072610
072614
072620
5 072624
6 072630
7 072634
072640
072644

000008 000008

b i

b o

e—

-‘d.—‘d.‘-‘_‘fldddd—‘—l_‘_._.d—lc—l—l-‘—‘—.—‘_‘_‘—l—l_j—‘—l—J—d-—t—la—l—-‘—l—l

NN
YN L W L
M A WM AN i NN N N
LaS LAV VT NT01,810 NININONINONINY N\ PUON) = ad ad WW\NWWWWWU‘WWWWWWWWWWWWWWWW
cend wd o b md v d d v wacd nd ok b ek b ciod e ol et e cand )
AN AN N LN N AN N N N
WiN
oy ol e D ) e
o
h
e
ek
bk
(=1=]
b d d d ek
NNN W
oo oo
N = OVOB
NN N
= 00 00 00 00 00 Qo 00 00 00 Q0 ~J N~
LY PVT
Q] -

(ZMLBBO PERFORMANCE EXERCISER
RAND1 TESTING RANDOM DATA

3§

107324

#1,ERROUT

33¢

7057
7062

11770
QSG4

2
3

5
6

016746

000006
141364

33s:

6(SP) ,-(SP)
BOARD,
- (SP)

; LUN,»

7065

(ZMLBBO PERFORMANCE EXERCISER

QOQ

107266

348

JSR
BR

000001

107244

000006

37$:
388:
39s:

177362

41 0730¢2

000010

175524

000024
000024
062706
000207

175462
000026

358:

36$%:

141304
145042

000006
000006

1.7

PAGE 273-7

000044

408 :
41%:

42%:

37¢

#1,ERROUS

TRAP

57
11771
MSG3
0
368

8EQ

. WORD
.WORD
BR

BIT

8EQ
TRAP
.WORD
-WORD
. WORD

MOV

[0}
JSR

CMP
INC
CMP

BHI
JMP
INC
CMpP

8GE
JMP
INC
CMP

BGT

43%:

PC,UP.HARD.COUNT

8IT

.WORD

(=]
~
W
o
»
o

um--o»omwo\nbwm—aooon

000001

29-MAR-82 13:41

5EQ 0292

144440

72772
72774

~~
WW
oo

&» 1%

RANDOM DATA

7 072756

o =]

N
AN L LA AN NN g N

LeLI LY

h oo ol ol e i

) —

b i

AN N AN LN AN NN N NANNIN et

TESTING

G CUY A Y WYOI Oy N
O NNNNNNNNNNNNI‘C
NINIPLPONININININIAY
— —
(= 0 O ~NOANES

L PGP

RANDT

MACRO M1113

JMP
ADD

RTS

7053
7070

36§

7075

7078
7084

#1,ERROUT

368
57
11772
8563

7039

6(SP) ,~(SP)
BOARD ,~(SP)

;

LUN,*

(SP)+,(SP)+
RS
RS5.R1
408

;
;

SECTOR
SECTOR,
«

;
;

LUN
LUN,»

6816

COUNT

6812

7092

PC,UP.SOFT.COUNT

31s
6(SP)
6(SP) ,10(sP)
42%

2%
24(SP)
24(SP) ,44(SP)
438

;

18
#26,SP

6746

; Routine Size:
634 words
; Maximum stack depth pcr invocation:

COUNT ,REPEAT

7023
7019

35 words

(ZMLBBO PERFORMANCE EXERCISER
RANDT TESTING RANDOM DATA

13263 :MLX4

gggg :
13266 ;
13267 ;
13268 ;

13269 ;

13270
13271
13272
13273

;
;
:
:

}gg;g :

13276 ;

MACRO M1113

Zsbttl 'TESTING RANDOM DATA & WORD COUNTS?®
routine RAND2 (REPEAT) : novalue =
begin

7110
7111
7112
7113

!+
'
ROUTINE:
!
!
PURPOSE:

;

;}}g

7116

ARGUMENT:

13279 ;
13280 ;
13281 ;

7119
7120
7121

!
!
!

NOTE :

THE CODE FOR

;

}%gg% H

;}g%

;

13284
13285
13286
13287
13288
13289
13290
13291

7124
7125
7126
7127
7128
7129
7130
7131

!
!
'
'
!
'
!
'

13292 .

13293
13294 ;
13295 ;
13296 ;

13297 ;
13298 ;
13299 ;
13300 ;
13301 ;
13302 :
13303 ;
13304 :
13305 ;
13306 ;
13307 ;
13308 ;
13309
13310 ;
13311
13312 ;
13313 .
13314 ;
13315 :
13316 :
13217 ;

27-Mar-1982 19:23:44

7106
7107
7108

;}}g

7132

7133
7134
7135
7136

7137
7138
7139
71640
7141

7162
71643
7164
7145
71646
167
7148
7149
7150
2151
7152
7153
7156
7155
7156
7157

'
'
'
'

'
!
!
!
'

'
!
'
'
'
'
'
'
!
'
'
'
'
'
'
'

27-Mar-1982 19:24:42

TESTING RANDOM DATA § WORD COUNTS

7109

PAGE 274

SEQ 0293

}gg;g :

;
;
;
;
;
:
;
;

29-MAR-82 13:41

« START OF ROUTINE

RANDZ (REPEAT)
TO TEST ALL UNITS IN A SEQUENTJAL FASHION, BUT

USING RANDOM WORD COUNTS
REPEAT = NUMBER OF

TIMES TO EXECUTE THIS ROUTINE

BEFORE RETURNING TO THE CALLER (OPTS).

SINCE ONLY THE WORD COUNTS AND THE DATA ARE
RANDOM,
THE OTHER TRANSFER VALUES MUST BE SET UP BY THIS
ROUTINE.
THESE VALUES INCLUDE:

THE LUN, SECTOR AND BUFFER POINTERS.

°'RAND2'

IN BRIEF:

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING
INCR COUNT FROM 1 TO REPEAT
: BEGIN 2 (START OF REPEAT LOOP FCR THE ROUTINE)
: INCR LUN FROM 0 TO LAST
: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
: : GENERATE THE RANDOM PATTERN
. : TESTLOOP:
: : : BEGIN &4 (START OF LOOP THAT COMPLETELY TESTS
1 UNIT)
: ¢ : IF UNIT IS ACTIVE
: : : THEN
: : : : BEGIN S (START OF TEST FOR AN ACTIVE UNIT)
: : : SECTOR = LOWEST
: : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS
@ : : : WHILE SECTOR LEQ HIGHEST DO
. : : : : BEGIN 6 (START OF A PASS THROUGH ALL SECTOR
S)

:
.
:
o
.
:

:
.
:
o
:

iz
¢ :
: :
i o
: :
s
: :
: :
: :
s :
: :
: :
: :
: :
: :

: : CHOOSE A RANDOM WORD COUNT
: : SET UP BUFFER POINTERS BEFORE TRANSFER
: : CALCULATE NEXT STARTING SECTOR (BASED ON WORD COUNT)
s s IF NEXT STARTING SECTOR GTR HIGHEST
: : : THEN ADJUST THE WORD COUNT & NEXT SECTOR SO THEY FIT
s
WITHIN THE TESTABLE SECTOR LIMITS
: : WRITE
: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP®
: : CHOOSE WHETHER TO WRITE CHECK OR READ
: : DO THE WRITE CHECK OR READ
: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: : SECTOR = THE CALCULATED NEXT STARTING SECTOR
: : CHANGE BUFFER POINTERS AFTER TRANSFER
: : END 6 (END OF A PASS THROUGH ALL SECTORS)
: END 5 (END OF TEST FOR AN ACTIVE UNIT)

: END & (END TESTLOOP)

TOPS~20 Bliss~-16 v2(212)

PA:<NEALE>MLX4.BLI.S (45)

(ZMLBBO PcRFORMANCE EXERCISER

RANDT

MACRO M1113

TFSTING RANDOM DATA

25-MAR-82 13:41

K_7
PAGE 275
SEQ 0294

13319 :MLX4
:

TESTING

;¢

LUTNIPRTAE O O YO YIF S

7164

!
!
;

7166
7167
7168
7169
7170
7171

(END OF

WORD

PRINTB_(SAY1, RTNSB);
! *RAND2’*

7181
7182

incr COUNT from 1
begin

—

LOOP :

to .REPEAT do

incr LUN from 0 to (.LSUNIT - 1) do
begin
GENS O;
.
begin

PA:<NEALE>MLX4.BLI.S

! 2 «

(45)

START OF REPEAT LOOP FOR THIS ROUTINE

!* 3 «
START OF LOGICAL UNIT SELECTION LOOP
!RANDOM DATA PATTERN
!#* 4 «

START OF THE LOOP FOR COMPLETELY TESTING 1 UNIT

!* 5 +

START OF TEST FOR AN ACTIVE UNIT

!# 6 *+

START OF A PASS THROUGH ALL SECTORS

:; -DRIVE_STATUS [.LUN] eql ACTIVE
en

begin

LSLUN = .LUN;

7194
7195
7196

SECTOR = LOWEST;
WPTR = WBUFF;
RPTR = RBUFF;

7198

while .SECTOR leqa hIGHEST do
be in

7200

TIPS~20 Bliss=16 v2(212)

COMMAND,

7178
7179

72193

19:23:44

DBL_VALUE;

label
LOOP;

7192

27-Mar-1982

LOGICAL UNIT SELECTION 1.00P)

7175
7176

;}g?

27-Mar-1982 19:24:42

COUNTS

SECTOR,
NEXT SE(CT,
VALUE,
oLP3eC,
ULDCHN,
PTR,

7173

P O e T T T O

END 3

local
WRDCNT,

72172

7186
7187

R L T R R R

RANDOM DATA

: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE)
RETURN
END 1 (END OF ROUTINE)

7184

ua3c~r = RNDWC ():

SET_PTRS (.WRDCNTS;

'EXPECT VALUE BETWEEN 1 AND BUFSIZ

7202

NEXT_SECT = .SECTOR + (.WRDCNT/256):

7204

it .SECTOR eql

7206
7207
7208
7209

if NEXT_SECT gtra HIGHEST
then
begin
WRDCNT = 256* (HIGHEST ~ .SECTOR + 1);

.NEXT_SECT then NEXT_SECT = NEXT_SECT + 1;

(ZMLBBO PERFORMANCE EXERCISER
RANDT TESTING RANDOM DATA

3
3
385
3

29-MAR-82 13:4)

PAGE 276

7
SEQ 0295

27-Mar-1982 19:24:42

TESTING RANDOM DATA & WORD COUNTS
b
e

TOPS=20 Bliss=16 v2(212)

27-Mar-1982 19:23:44

PA:<NEALE>MLX4.BLI.5

(45)

NEXT_SECT = HIGHEST + 1;
end;

~
N

NN~

D00~y

]
1
1
1
1

NN
S
WIHAN NN

13375 sML X4
76

MACRO M1113

VALUE = write

(.LUN,

.WRDCNT,

.WPTR,

.SECTOR);

;

SEE HOW SUCCESSFUL THE WRITE WAS:

selectone .VALUE of

!SEE

set

!OF

'SYSFRR' FOR DEFINITION

ERROR # CONTAINED

'VALUE®

[1] :

begin

! 6A ~ RETRY ALLOWED

if RETRY
thenb
.
egin

WHY

(SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) neq
0
!THE RETRY FAILED -- SYSTEM FATAL ERROR

DROPT [.LUN] = CODE_4;

ERRDF (5201, MSG1, 0);

DODU (.LUN);
legve LOOP;
end;

end;

21 :

'!JUMP JUST BEYOND END OF BLOCK * 4 «
' 6A *

begin

WHY

‘* 6B * FATAL CONTROLLER ERROR == NO RETRY ALLOW
ED

DROPT L.LUN] = (ODE_S;

DODU (.LUN):;
leave LOOP;
end;

b b ek

b O

—=O OB NN WO 0

—.;—l—l_n—l
NN
WW\NWWW%WWWW
P 2P P 2P N
RRRRRRRRRRR
NNLAINDNINGND A = cd b ek

ERRBF (5202, MSG1, 0);

!xxxx OPTION 5, RAND2 ERROR 02 ##ws

1JUMP JUST BEYOND END OF BLOCK * & +
In 6B *

[3] :

begin
1* 6C *~ FATAL DRIVE ERROR -- NO RETRY ALLOWED
ERRDF (5203, MSG1, 0):
!axxx OPTION S, RAND2 ERROR 03 #aww
WHY DROPT [.LUN] = CODE_6;

— e

NOMAS

b
ok e o ok ek e
b b d ol o

~!wxxx OPTION 5, RAND2 ERROR 01 w2«

DODD (.LUN);
leave LOOP;

tes;

end;

COMMAND = CHOOSE

IJUMP JUST BEYOND END OF BLOCK * 4 *
%

6C »

();

if .COMMAND eql read
then

begin

PTR
= .RPTR:
VAbUE = read (.LUN,

else

.WRDCNT,

.RPTR,

.SECTOR);

MLXG

MACRO M1113

L
I
PAGE 277

29-MAR-82 13:41

SEQ 0296

27-Mar-1982 19:24:42

TESTING RANDOM DATA £ WORD COUNTS

F1o

CZMLBBO PERFORMANCE EXERCISER
RANDT TESTING RANDOM DATA

TOPS=20 Bliss=16 v2(212)

27-Mar-1982 19:23:44

PA:<NEALE>MLX4.BLI.S

(45)

begin

PTR
= .WPTR;
VAhUE = CHECK
eng;

(.LUN,

.WRDCNT,

.WPTR,

.SECTOR):

SEE HOW SUCCESSFUL THE OPERATION WAS:

selectone .VALUE of

!SEE

set

!0F

'SYSERR' FOR DEFINITION

ERROR # CONTAINED

'VALUE®

2OV
NN

i; (DBL_VALUE = DOUBLE_CHECK (.WPTR,
egin

SAYWHO (.LUN);
PRINTB (SAY1,
MSGS):

!*'ECC LOGIC FAILED TO DETECT DATA ERROR'

PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE):

1°'GO0D DAYA: XXXXXX AT LOCATION YYYYYY'

DBL_VALUE = .DBL_VALUE + BUFSIZ=2;

460
461

PRINTB (FMT128, 7.DBL_VALUE, .DBL VALUE):
!*'BAD DATA:
PPPPPP AT LOCATION Q0QQOQ*

WHY DROPT [.LUN] = CODE_8;

— e

gggfir((fsg§. MSG1, 0);

!axee OPTION 5, RAND2 ERROR 04 weew

lesve LOO
" 'JUMP
P; JUST BEYOND END OF BLOCK * & «

ena,;

end;

1y :

begin

' 6D « RETRY ALLOWED

if RETRY (SIX,
egin

WHY

.COMMAND,

.LUN,

.WRDCNT,

PTR,

.SECTOR) neq

!THE RETRY FAILED -- SYSTEM FATAL ERR3R

DROPT [.LUN] = CODE 4:

ERRDF (5205, MSG1, 0); “!ssxx OPTION 5, RAND2 ERROR 05 sees
DODU (.LUN);
leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * 4 «
end;

end;

‘v 6D

begin

!* 6E * FATAL CONTROLLER ERROR -~ NO RETRY ALLOWED

—h—a_ a2

thenb

KRR RRpprpy wgwwuu
o®
0000 0o BINY ~~
SN8SES
~
(V.7
3 W= SRV
vo:wm—'oom

WwWN

.RPTR, .WRDCNT)) neg 0

DB N

i e
e e i

if .COMMAND eql read
then
begin

) e

e e

N NN NN
a2l 2l

guwwgw

DB
VIALAWVIVIVIWAVIAAWN
S O

[0l :

13487 :MLX4

}gzgg ;
13490
13491 ;
13492 ;
13493 ;
13494 ;
13495 ;
13496 :
13497 ;
13498 ;

13499 ;
13500 ;
135C1 ;
135.2 ;
13503 ;
13504 ;
13505 :
13506
13507 ;
13508 ;
13509 :
13510 .
13511 ;
13512 ;

13513 .

13514 ;
13515 ;
13516 ;
13517 ;
13518 ;
13519 ;
13520 ;
13521 ;
13522 .
13523 ;
13524 ;
13525 ;
13526 ;
13527 :
13528 ;
13529 .

13530 .

13531
13532
13533
13534
13535

;
.
;
;
.

13537
13538
13539
13540
13541

;
.
;
:
;

13536 .

MACRO M1113

29-MAR-82 13:41

N_7
PAGE 278
SEQ 0297

27-Mar~1982 19:24:42

TESTING RANDOM DATA £ WORD COUNTS
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
7342
7343
7344
7345
7346
7347
7348
7349
7350
2351
7352
7353

7354

7355
7356
7357
7358
7359

7360

7361
7362
7363
7364
7365

TOPS-20 Bliss=16 v2(212)

27-Mar-1982 19:23:44

PA:<NEALE>MLX4.BLI.S (45)

WHY DROPT [.LUN] = CODE_S;
ERRDF (5206, MSG1, 0);
!exxx OPTION 5, RAND2 ERROR 06 sevw
DODU (.LUN);
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * 4 =
end;
' 6E =
33

:
begln
1% 6F ~ FATAL DRIVE ERROR -- NO RETRY ALLOWED
ERRDF (5207, MSG1, 0);
!%xxx OPTION 5, RAND2 ERROR 07 #*#ww
WHY _DROPT [.LUN] = CODE_6;
DOPD (.LUN);
leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * 4
end;
:
!x 6F «

ey :
begin
!* 66 * UNRECOVERABLE DATA ERROR
ISOLATE (),
ERRDF (5208, MsG2, 0);
!xxax OPTION 5, RAND2 ERROR 08 s#wx
WHY DROPT [.LUN] = CODE_7;
poD0 (.LUN);
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK % 4 «
end;
‘v 6G «

53 :

begin
!« 6H * RECOVERABLE DATA ERROR
ISOLATE ();
.
if .ERROUT then PRINTB (FMT108, .CHAN);

8IT QQ*

OLDSEC = .MLEL;

OLDCHN = ,CHAN;
if RETRY (ONE,
then

.COMMAND,

if ((.MLEL eql
then
begin
.
if

else

.LUN,

.WRDCNT,

.PTR,

.SECTOR) eql 5

.OLDSEC) and (.CHAN eql .OLDCHN))

.ERROUT then ERRHRD (5209, MSG4, 0):

ieear OPTION 5, RAND2 ERROR 09 sxw+
UP_HARD_COUNT (.LUN, .BOARD);
end

begin

.
it .ERROUT then ERRSOFT (5210, MSG3, 0):

ietxx OPTION 5, RAND2 ERROR 10 #wne
UP_SOFT_COUNT (.LUN, .BOARD):

(ZMLBBO PERFORMANCE EXERCISER
RAND1 TESTING RANDOM DATA

RANDT

TESTING RANDOM DATA

13543 .MLX4

8_8

29-MAR-82 13:41

PAGE 279

SEQ 0298

27-Mar-1982 19:24:42

TESTING RANDOM DATA £ WORD COUNTS
~
W
o
o~

27-Mar-1982 19:23:44

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.5 (45)

end

7368

~
W
o
0

else

begin

neen

..I..........'.-Q...O..c...-l...!...l.....!.\-.n..!n!.Q.I'I.\-l-‘..-..!.‘.0-l-..ic‘.!-to.n eds e netengn,

7371

if .ERROUT then ERRSOFT (5211, MSG3. 0);

BSe

7373

ixxex OPTION 5, RAND2 ERROR 11

7374
7375

UP_SOFT_COUNT (.LUN,
end;

7377
7378

7384

.BOARD);

e 6H =

SECTOR = .NEXT_SECT;
WPTR = .WPTR +72;
end;

'* 6 *

END OF A PASS THROUGH ALL SECTORS

!* 5 «

END OF TEST FOR AN ACTIVE UNIT

end;

7386
7387
7388
7389

1+
i Test to see if this uut's address space is
! to be read for soft errors.
This test is
; 1s intended for DMT purposes.

7392
7393
7394

if .EFNS21
then
begin

7396

7399
7401
7402
7404

7406

!Is the background pattern to be read

!
; version czmlbb changed incr to incru

incru SECTOR from LOWEST to HIGHEST do
if read (.LUN, 256, RBUFF,
then
begin
ISOLATE ();

~
~

!Find the failing bank and board no.

.CHAN):

Print where the error is

i Save the contents of the ML error location
.

15
}9

.SECTOR) eql 5

if .ERROUT then PRINTB (FMT10B,
!

twss

end;

tes;

7380
7381
7382

-t

N—=OVm~N o

13544

MACRO M1113

&H e

CZMLBBO PERFORMANCE EXERCISER

contents of

we can compare

the

new

this register after the retry.

: This is done to classify the error.

OLDSEC = .MLEL;
9LDCHN
. CHAN;

CZMLBBO PERFORMANCE EXERCISER
RANDT TESTING RANDOM DATA

it RETRY
;hen

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

NN L NN -

(ONE,

.COMMAND,

:
;

.LUN, 256,

sector and channel number,

OOV

begin

!Same error occured 'hard’

vvo

MSG4,

else

!Error message

begin

)

!Additional message routine
.BOARD):

!Not the same error 'soft’

if .ERROUT
!Print error if enabled
then
begin
ERRSOFT (5213,
Error number
MSG3, !Error message
.
g 0);
!Additional message routine
7457
7458
7459
7460
7461
7462
7463

VYo

.OLDCHN))

if .ERROUT
!Print error if enabled
then
begin
ERRHRD (5212,
!Error number

631
632

ARaas
NRINENN

.OLDSEC) eql 5

if so then classify

:; ((.MLEL eql .OLDSEC) and (.CHAN eql

UP_HARD_COUNT (.LUN,
W W NN

.PTR,

it as a hard error else classiy it as a soft
error.

end;

638
639

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.S (45)

i The same error occured so see if it is at the same

: Do a classify retry call.
It the same error
! occures then classify it as a hard error.
|f
! a different error oczured or the error went away
; then classify it as a soft error.

Wil
oo
NN[ P

—a

PAGE 280

SEQ 0299

[23* ¥+ o

29-MAR-B2 13:41

TESTING RANDOM DATA £ WORD COUNTS

St G

No N N

13599 JMLX4
13600
13601
13602
13603
13604
13605

MACRO M1113

7464
7465
7466
7467
7468
7469

end;

UP_SOFT_COUNT (.LUN,

end

else

.BOARD):

!Not the same error 'soft’

begi n
if . ERROUT
then

begin
ERRSOFT_(5214,
MSG3

0);

'Print error if enabled
'Error number
‘Error message
)
!Additional message routine

CZMLBBO PERFORMANCE EXERCISER

RAND1

TESTING RANDOM DATA

13655 MLX4
13656 ;

MACRO M1113

29-MAR-82

13:41

8
SEQ 0300

TESTING RANDOM DATA & WORD COUNTS

7470
7471

27-Mar-1982

19:24:42

27-Mar=1982 19:23:44

TOPS-20 Bliss=16 V2(212)

PA:<NEALE>MLX4.BLI
5 (45)

end;

7472
7473
74674
7475

13666 -

PAGE 281

UP_SOFT_COUNT (.LUN,

end;

.BOARD);

end;

7476
7477
7478
7479
7480

end;
end:
end:

7481

!* & «
END OF LOOP THAT COMPLETELY TESTS 1
! 3 « END OF LOGICAL UNIT SELECTION LOOP

end;

! 2 «

END OF REPEAT LOOP FOR THIS ROUTINE

's 1

END OF ROUTINE

UNIT

return:

end:
13682 073124

112204

13683 073130
13684 073134
13685 073140
13686 073144
13687 073150
13688 073152
13689 073154
13690 073160
13691 073164
13692 073172
13693 073174
13694 073200
13695 073204
13696 073206
13697 073210
13698 073212
13699 073214
3700 073220
3701 073222
3;02 073224

000022
007672
007072
000002
000022
002232
106622

002204
146414

000026

18%:
28:

JMP
JSR

CLR

SP.RO
14

22(SP)
443
LSUNIT,26(SP)

438
PC.GENS

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

ADD

3s:

«SAY1,=(SP)
#2,-(SP)

MOV
MOV
BIC

CLR
JSR

000010

£22,SP
{ RTNSB, = (SP)

R1.RO
RO
RO
RO

MOV

111114

RAND2 TESTING RANDOM DATA £ WORD COUNTS
R1,$SAVES
H

MOV
ASR
ASR
ASR

ADD

000001

001460

sUB
MOV
MOV
MOV

CLR
JMP
MOV

177770

004767
062706
005300
001402
000167

.SBTTL
JSR

MOV
TRAP

034442

cndd mmndh ol ol md
— wat md cd w

RANDZ2:

DEC
BEQ

JMP

:
;

7178
SP,*

; COUNT

7181

7184

S LUN

: LUN,*

#DRIVE.STATUS,RO

#1,~(SP)

~(§P)
PC,BLSGT?2

#10.5P

RO
4$

31s

7107
|

; LUN,®

7186

7190

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RANDZ TESTING RANDOM DATA ¢ WORD COUNTS

13711

13715 073262

13716 073264
13717 073266
13718 073272
13719 073300
13720 073306
13721 077314
13722 073320
13723 075324
13724 073326
13725 073332
13726 073334
13727 073336
13728 073342
13729 073344
13730 073350
13731 073354
13732 073356
13733 073362
13734 073364
13735 073366
13736 073372
13737 073400
13738 073402
13739 073406

13740 073410
13741 073412
13742 073414
13743 073416
13744 073422

13745 073430
13746 073434

13747 073436
13748 073440
13749 073444
13750 073446
13751 073452
13752 073454
13753 073460
13754 073462
13755 073466
13756 073472
13757 073474
13758 073476
13759 073502
13760 073506
13761 073510
13762 073514
13763 073516

13764 073520
13765 073526

010167

010100

006300
016003
012767
012767
012766
060066
020376
101352
004767
010002
010246
004767
010216
012746
004767
060300
010066
020300
001002
005266
026676
101415
017600
160300

000300
105000
010002
062702
017666

005266
010116

010246
016746
010346
004767
010004
020427
001031
012746
012746
010146
010246
016746
010346
004767
062706
005700
001446
112761
104455

106612
034460
012670
022670
034500
000024
000024

48:

137370
137364
000024
5¢:

174652

153570

000400
111614
000012

000012
000012

000030

68%:

000030

000400
000030
600072

000012
7%:

137224
151752

000001
000006
0456424
137166

152514
000014
000004

034446

PAGE 282

8
SEQ 0301

SMLXG

}%;}%

13714 073256

29-MAR-82 13:471

27-Mar-1982 19:24:42

TESTING RANDOM DATA £ WORD COUNTS

MOV

ASL
MOV
MOV
MOV
MOV
ADD
MP
BH]
JSR
MOV
MoV
JSR
MOV

MoV
JSR
ADD
MOV
CMP
BNE
INC
(MP
BLOS
MOV
SuB
SWAB
CLRB
MOV
ADD
MOV
INC
MoV
MOV
MOV
MOV
JSR
MOV
cMP
BNE
MOV
MOV
MOV
MOV
MOV
MOV
JSR
ADD
ST
8EQ
MOVB
TRAP

R1.LSLUN

: LUN,«

R1.RO

RO
LOW.SECT(RO) ,R3
#WBUFF .WPTR
#RBUFF -RPTR
#TOP.SECT,24(SP)
RO
24 (SP)
,
R3.324 (SP)
33
PC . RNDWC
RO.R2
R2,-(SP)
PC.SET.PTRS
R2.(SP)
#4600, -(sP)
PC.BLSDIV
R3.RO
RD.12(SP)
R3.R0
68
12(SP)
12(SP) ,a30(SP)
7%
330(SP) RO
R3,RO

RO
RO
RO,R2
#400,r2
@30(SP),12(sP)

12(SP)
R1.(SP)

R2,-(SP)
WPTR,~(SP)
R3,-(SP)
PC.WRITE
RO, R4
RG.#1
8s
#6,-(SP)
MURITE
- (SP)
R1,~(SP)
R2,-(SP)
wPTR,~(SP)
R3,-(SP)
PC.RETRY
#4,sP
RO
118

#4.WHY.DROPT(R1)
55

27-Mar-1982 19:23:44

T0PS

PA:<

7193

: LUNL*

7194

;
:
:
:

*,SECTOR

7195
7196
7198

;

SECTOR,

:
: *, WRDCNT
: WRDCNT,*

7200

: WRDCNT,*

7202

; SECTOR,*
¢ =, NEXT.SECT
; SECTOR,NEXT.SECT

7204

; NEXT.SECT
: NEXT.SECT,*

7206

:
¢ SECTOR,+

:
:
¢
:
:
:
:

7201

7209

7208
*.WRDCNT
*.WRDCNT
*,NEXT.SECT
NEXT.SECT
LUN,
*
WRDCNT,»

7209
7210
7213

; SECTOR,*
: *,VALUE
: VALUE,*

7219

7225

: LUN,*
: WRDCNT,«
; SECTOR,*

;e (LUN)
:

7228
7229

,CZHLBBO PERFORMANCE EXERCISER
RAND2

MACRO M1113

TESTING RANDOM DATA £ WORD COUNTS

13767
}gggg
13770 073530
13771 073532
13772 0735346
13773 073536
13774 073540
13775 073562
13776 073544
13777 073550
13778 073552
13779 073560
13780 073562
13781 073564
13782 073566
13783 073570
13784 073572

13785 073574

012121
011070
000000
010100
104451
000431
020427
001012
112761
104455
012122
011070
000000
010100
104451

000416

016766
010146

000002
000005

000006

034446

9s:

034446

000012

108:

152326

11$:

000022
045612
137010

000024

136776
151710

136760

13812 073714
13813 073716
13814 073722
13815 073724
13816 973730
13817 073732
13818 073734

010246
016746
010346
004767
010004
001077
006005

152050

13820 073740
13821 073744

000167
016746

000750
136720

13819 07373¢ 103402

8s:

000003

000024

PAGE 283

SEG 0302

JMLXG
;

13786 073576 020427
13787 073602
001014
13788 073604
104455
13785 073606
012123
13790 073610
011070
13791 073612
000000
13792 073614
112761
13793 073622
010100
13794 073624
104451
13795 073626
062706
13796 073632
000535
13797 073634
004767
13798 073640 010066
13799 073644
005005
13800 073646
020027
13801 073652 001014
13802 073654
005205
13803 073656
016766
13804 073664 010146
13805 073666 010246
13806 073670 016746
13807 073674 010346
13808 073676
004767
13809 073702 000412

13810 073704
13811 073712

29-MAR-82 13:41

12%:

136746
138:

148:
15$:

27-Mar-1982 19:24:42
27=-Mar-1982 19:23:44

TESTING RANDOM DATA £ WORD COUNTS
.WORD
. WORD
JWORD
MOV
TRAP
B8R
cMpP
BNE
MOVB
TRAP
LWORD
.WORD
.WORD
MOV
TRAP

12121
LA
0
R1.RO
51
108
Ré . #2
9s
#5,WHY.DROPT(R1)
§§
12122
MSG1
0
R1.RO
51

P
BNE
TRAP
.WORD
-WORD
.WORD
MOV
MOV
TRAP
ADD
B8R
JSR
MOV
CLR
P
BNE
INC
MoV
MOV
MOV
MOV
MOV
JSR
BR

RG 43
11$
55
12123
MSG1
O
#6.WHY.DROPT(R1)
R1.R0
51
#12,5P
168
PC, CHOOSE
RO.22(SP)
RS
RO, #READ
12§
RS
RPTR, 24 (SP)
R1,~(SP)
R2,-(SP)
RPTR,=(5P)
R3,-(SP)
PC.READ
13$

B8R

MOV
MOV

;

10s

WPTR, 24 (SP)
R1.~(SP)

TOPS
PA:<

LUN,«

7230

;
s VALUE,«

7231
7219

;e
;

7238
7239

v (LUN)

; LUN,*

7240

7241

VALUE,*

;

7219

7246

%, *(LUN)

7247

> LUN,*

7248

7249

;

7253

: =, COMMAND
:
: COMMAND
,*

7255

; *,PIR
; LUN,+
: WRDCNT,»

7258
7259

; SECTOR,+

: *.PTIR
: LUN,»

7263
7264

MOV
MOV
MOV
oOR
MOV
BNE
ROR

R2.-(SP)
WwPTR.~(SP)
R3.-(SP)
PC. CHECK
RO R4
17§
RS

: *,VALUE
:
:

7271
7276

JMP
MoV

308
WPTR,~(SP)

;

7280

BLO

15s

: WRDCNT,»

: SECTOR,«

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RANDZ TESTING RANDOM DATA ¢ WORD COUNTS

29-MAR-82 13:41

PAGE 284

8
SEOG 0303

13823

}%35?

27-Mar-198

TESTING RANDOM DATA & WORD COUNTS

13826
13827
13828
13829

073750
073754
073756
073762

13831
13832
13833
13834

073772
073774
073776
074002

13830 073766

13835 074006
13836 074012
13837 074016
13838 074020
13839 074022
13840 074026
13841 074032

13842 074036

13843 074042
13844 074044
13845 074046
13846 074056
13847 074060
13848 074064
13849 074070
13850 074076
13851 074076

016746
010246
004767
062706

010066

001762
010146
004767
012716

012746
012746
010600
104414
016616
017646
012746

012746

010600
104414
062766
016616
017646
012746
012746
010600
104414

136716
150344
000006

MoV
MOV
JSR
ADD

141522
011216

BEQ
MoV
JSR
MOV

000040

007072
000002
000046
000046
006710

000003

112761
104455
012124
011070
000000
010100

000010

13859 074122
13860 074126
13861 074130
13862 074134
13863 074136
13864 074142
13865 074146
13866 074150
13867 074152
13868 074156
13869 074160
13870 074164
13871 074170
13872 074172
13873 074174
13874 074202
13875 074204
13876 074206
13877 074210

062706
000506
020427
001031
012746
016646
010146
010246
016646
010346
004767
062706
005700
001662
112761
104455
012125
011070
000000

000044

104451

000001
000006
000034
000044
152040
000014

000004

034446

LUN,*

SP.RO

7283
7284

SP,e

: DBL.VALUE,*
: DBL.VALUE.*

7285

#3,-(575

SP.RO
14
#10000.,54 (SP)
S4(SP) . (SP)
854(SP§ ,~(5P)
#EMT12B, - (SP)
#3,~(SF;
SP.RO
14

MOVB
TRAP
LMORD
.WORD
.WORD
MOV

#10,WHY.DROPT(R1)
5§
12124
MSG1
0
R1.R0

ADD
BR
(WP
BNE
MOV
MOV
MOV
MOV
MOV
MoV
JSR
ADD
TST
BEQ
MOVB
TRAP
LWORD
.WORD
.WORD

244 ,SP
228
R4 M
18§
#6,~(SP)
34(SP) ,~(SP)
R1,-(SP)
R2,-(SP)
44 (SP) ,~(SP)
R3.-(SP)
PC.RETRY
#14,SP
RO
148
#4,WHY.DROPT(R1)
55
12125
MSGI
0

TRAP

168:
17$:

«,DBL.VALUE

14
46(SP) , (SP)
846(SP) ,~(SP)
NFMT12A.~(SP)

MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV
TRAP

034446

TRAP
MOV
MOV
MOV

MoV

010000
000054
000054
006756
000003

14§
R1,=(SP)
PC.SAYWHO
#MSGS, (SP)

#SAY1.<(SP)
#2.-(SP)

T0PS

PA:<

: WRDCNT,
e

RO.40(SP)

MOV
MOV

MoV

13852 074100
13853 074106
13854 074110
13855 074112
13856 074114
13857 074116

13858 074120

MOV

RPTR,~(SP)
R2.-(SP)
PC .DOUBL
. CHECK
E
#6.SP

27-Mar-198

: SP,*
: « DBL.VALUE
: DBL.VALUE,*
: DBL.VALUE.*

7287
7288

; SP,*

: %, % (LUN)
:

7290
7291

: LUN,®

7292

;

7293

; VALUE,»

72m

;
:
©
;
:
:

7301

COMMAND
,*
LUN,*
WRDCNT,«
PIR,*
SECTOR,*

: *,
2 (LUN)
:

7304
7305

t ZMLBBO PERFORMANCE EXERCISER

RAND2

MACRO M1113

TESTING RANDOM DATA £ WORD COUNTS

13879
Jggg?
13882 0742i2

13883 074214
13884 074216

13285 074220

13886 074224
13887 074226
13888 074234

13889 074236

13890 074240
13891 074242

13892 074244

13893 074246

13894 074250
13895 074252

13896 074256
13897 074260
13898 074262
13899 074264
13900 074266
13901 074270
13902 074276
13903 074300
13904 074302

13905 074304

13906 074310
13907 074312

13908 074316

13909 074320
13910 074322
13911 074324
13912 074326
13913 074334
13914 074336
13915 074340
13916 074344
13917 074350
13918 074354

13919 074356
13920 074362

13921 074370
1392; 074372
13923 074376

13924 074400
13925 074402
13926 074404

13927 074406
13928 074410
13929 074412
13930 074416
13931 074420
13932 074426
13933 074430

29-MAR-82 13:41

SEQ 0304

SMLXG
:
010100

106451
000450

020427

001012
112761
104455

000005

188:

034446

104451

020427

001017
004767

104455

012130
011120
000000
112761
010100
104451
062706
000167
020427
001157

004767
032767

001423
017705
006205

000003

000006

198:

034446

000004

208:

143014

034446

000022
001032
000005

142750
000001
140012

177700

006640
000002

21$:
228:
238:

10567y

R1,RO

;

LUN,+

7306

RG 42

;
:

VALUE,

7307
7727

s oo, «(LUN)

7314

51
218

19§
#5.WwHY.DROPT(R1)
12126

7315

MSG1
0

R1.RO

: LUN

B8R
(WP

218
RG 43

:
¢ VALUE,+

7317
727

;

7322

BNE
TRAP
JWORD
.WORD
.WORD
MOV
MOV
TRAP
BR

208
§5
12127
MSG1
0
#6.WHY.DROPT(R1)
R1.RO
51
218

BNE
JSR

23§
PC.ISOLATE

TRAP

000007

T10PS
PA:<

MOV

TRAP

006205
006205
006205

006205
006205
042705
010546
012746
012746
010600

BNE
MOVB
-WORD
LWORD

010100

001012
104455
012127
011070
000000
112761
010100
104451
000416

(MP

LWORD

011070
000000

000433
020427

TRAP
BR

TRAP

012126

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

TESTING RANDOM DATA £ WORD COUNTS
MoV

000002

H
8
PAGE 285

.WORD
.WORD
.WORD
MOVE
MOV
TRAP
ADD
Jwp
(W
BNE

JSR
BIT
BEQ
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV
MoV
MOV
MOV

%, %(LUN)

7316

7323

: LUN,*

7324

R& , M4

:
: VALUE,*

7325
7271

5§

7330

12130
MSG2
0
#7.WHY.DROPT(R1)
R1.RO
§1
#22,SP
42$
RG #5
30§

PC, ISOLATE
#1.ERROUT
248
ML .REG+42.RS
RS
RS
RS
RS
RS
RS
#177700,R5
RS,~(SPS
#FMTI08,-(SP)
#2,-(SP)
SP.RO

7331

: %, (LUN)
: LUN,*

7332
7333

7334

: VALUE,

7eM

:
:

7339
7341

; SP,*

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RANDZ TEST!NG RANDOM DATA § WORD COUNTS

13935

13938 074432

13939 074434

13940 074440
13941 074646
13942 074452
13943 074454
13944 074456
13945 074460
13946 074462
13947 074464

13948 074466

074472
074476
074502
074506

13953 074510
13954 074512
13955 074516

13956 074520
13957 074524
13958 074530
13959 074534
13960 0764536
13961 074544
13962 076546
13963 074552
13964 074556
13965 074560
13966 074562
13967 074564
13968 074566
13969 074570
13970 074572
13971 074576
13972 074600
13973 074602
13974 074610
13975 074612
13976 074614
13977 074616
13978 024620
13979 074622
13980 074626
13981 074630
13982 074634
13983 074636
13984 074644
13985 074646
13986 074650
13987 074652
13988 074654
13989 074656

104414

062706

017766
017705

006205

000006
137746
137736

248:

006205
006205

0642705

010566
012746
016646
010146

010246
016646
010346

ADD
MoV
MOV

ASR

006205
006205
006205

ASR
ASR
ASR

ASR
ASR

177700

8IC

000042
000007
000034

MOV
MOV
MOV
MOV

MOV
MOV
MOV

000044

004767
151500
062706
000014
020027
000005
001051
027766
137650
001034
016600
000042
017705
137632
006205
006205
006205
006205
006205
006205
042705
177700
020500
001016
032767 000001
001404
104456
012131
011202
000000
010146
016746
137512
004767
142566
000426
032767 000007
001415
104457
012132
011166
000000
000410

000036

105450

258:

105414

26%:

PAGE 286

27-Mar-1982 19:24:42

TESTING RANDOM DATA & WORD COUNTS
TRAP

000036

13:41

SEQ 0305

JMLXS

}%3%9

13949
13950
13951
13952

29-MAR-82

JSR
ADD
CMP
BNE
M?
BNE
MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
CMP
BNE
BIT
BEQ
TRAP
LWORD
-WORD
LWORD
MOV
MoV
JSR
B8R
BIT
BEQ
TRAP
.WORD
-WORD
.WORD
BR

27-Mar-1982 19:23:44

TOPS

PA:<

#6,SP

ML .REG+44,36(SP)
ML .REG+4Z RS

;
:

*,0LDSEC

7344
7345

RS
RS
RS

RS
RS

#177700.RS

RS,42(SP)
#1.-(SP)
34(SP) ,=(SP)

: *,OLDCHN
:
: COMMAND,
«
: LUN,*

7347

7350

R1,=(SP)

R2.-(SP)
44(SP) ,~(SP)
R3.=(SP)

PC.RETRY
#14,5pP
RO, 45
27$
®ML.REG+44,36(SP)
268
42(SP) RO
aML.REG+42
RS
RS
RS
RS
RS
RS
RS
#177700,RS
R5,RO
268
#1,ERROUT
25§
5§
12131
MSG4
0
R1,-(SP)
BOARD,
- (SP)
PC,UP.HA
. COUNT
RD
29%
#1,ERROUT
28$
57
12132
MSG3
0
288

: WRDCNT,«
* PIR,*
: SECTOR,*

*,0LDSEC

: OLDCHN,*

;

7354

: LUN,»

7357

;
;

7350
7362

7365

NI —arL

Pur gy
o Py

074676
074700
074702
074706
0764712
14004 074714
074720
074726

QPO

13998 074674

13999
14000
14001
14002
14003

000.01

105372

000030
000002
000022
176362
000001

034500
034460

27%:

28%:

137434
143172

29%:
135742
105316

000430

31%:

32%:

000024

142302

000001

105222

.
il

OO0
&~ O SONNNO

MoV
MOV
MoV
MOV

BEQ

Mov
ASR
ASR
ASR
ASR
ASR
ASR

BIC

006640
000002
L4

006200

JSR
CMP
MOV
ADD
ADD
JMP
81T
BNE
JMP
MOV
ASL

ADD
CMP
BNE
JSR
BIT

177700

137300
137270

MOV
MOV

JSR

137344

00000 L

817
8EQ
TRAP
-WORD
. WORD
. WORD

MOV

150600
000010
000005

000014

34s:

27-Mar-198 2
27-Mar-198 2

TESTING RANDOM DATA & WORD COUNTS

MOV

338.:

000400
022670

e cads e

SEQ 0306

SMLX4

(o lalelele

13997 074672

13995 074666
13996 074670

LpS2aN) N

13992
13993
13994 074660

4
8
PAGE 287

MoV
MOV
Mov
Mov
TRAP
ADD
MoV
MOV
ASR
ASR
ASR

”

28§

ERROUT

—

1399

29-MAR -82 13:41

9:264
4 :42
9:2 3 A

TOPS
PA:<

12133
gscs

R1,~(SP)
BOARD
- (SP)
,

LUN,»

7374

PC,UP.SOFT.COUNT

(SP)+,(SP)+

R T

MACRO M1113
RAND2 TESTING RANDOM DATA & WORD COUNTS

30(SP) .R3

#2 ,WPIR

LA TR TR PR

(ZMLBBC PERFORMANCE EXERCISER

#22,5P
5%

¥1,EFNS21

32$

42%
R1,RO
RO
TOP,SECT(RO),24(SP)
%?g.SECT(RO).R5

NEXT.SECT,SECTOR

LUN,
=

7338
7380
7381
7199
7198
7392
7399

*,SECTOR

R1,-(SP)

#400,~(sP)

LUN,~

RS5,=(SP)

SECTOR,*

7640

#RBUFF ,~(SP)

PC.READ

#10,sp

RO, #S
408

PC.ISOLATE
#1.ERROUT

74604
7406

34§

gflL.REG+42.R0

R
#177700,R0

RO,~(SP}

#FMT108,~(SP)

#2,~(SP§

SP.RO
14
26,5P

ML .REG+44,14(SP)
ggL.RE'*kZ.RO

RO
RO

SP,*

*,0LDSEC

7415
7416

(ZMLBBO PERFORMANCE EXERCISER

RANDZ

MACRO M1113

TESTING RANDOM DATA £ WORD COUNTS

14047

14050 075126

14070 075232

14071 075234
14072 075236
14073 075240

14074 075242

K
006200

006200
006200
042700
010066
012746
016646
010146
012746
016646
016646
004767
062706
020027
001051
027766
001034
016646
017700
006200

006200

14077 075252
14078 075256
14079 075062
14080 075264
14081 075266
14082 075270
14083 075272
14084 075274
14085 075276
14086 075302
14087 075306
164088 075310
14089 075316
14090 075320
14091 075322
14092 075326
14093 075326

001016
032767
001404
104456
012134
11202
000000
010146
016746
004767
000426
032767
001415
104457
012135
011166
000000

14095 075332
14096 075340
14097 075342
14098 075344
14099 075346
14100 075350
14101 075352

000014

000020
127160

006200

042700

14094 075330

137176

ASR

006200
006200
006200

14075 075244

14076 075250

ASR

000400
000022
000026
151026
000014
000005

020026

000410

032767
001404
104457
012136
011166
000000
010146

ASR
ASR
ASR

000001

104776

358:

137040
142114
000001

000001

104742

104720

36%:

37$:

BNE
BIT
BEQ
TRAP
LWORD
-WORD
JWORD
MOV
MOV
JSR
BR
BIT
BEQ
TRAP
.WORD
-WORD
.WORD

368
#1,ERROUT
35§
56
12134
MSG%
0
R1,=(SP)
BOARD ,~(SP)
PC,UP.HA
. COUNT
RD
398
#1,ERROUT
38§
57
12135
MSG3
0

BIT
BEQ
TRAP
LWORD
-WORD
WORD
MOV

#1,ERROUT
38$
57
12136
MSG3
0
R1,~(SP)

388:

TOPS

PA:<

; *,0LDCHN
:
* COMMAND,
«
* LUN,+

7424

: PIR,*
: OLDSEC,*

;

*,0LDSEC

7433

: OLDCHN,*

BIC

CMP

27-Mar-1982 19:23:44

RO
RO
#177700.R0
RO, 20(SP)
#1.-(SP)
12(SP) ,~(SP)
R1,=-(SP)
#400,~(SP)
22¢SP) ,~(SP)
26(SP) o= (SP)
PC,RETRY
¥4, sP
RO, #5
378
aML.REG+44,14(SP)
368
20(SP) ,~(SP)
aML.REG+42,R0
RO

RO
RO
RO
RO
#177700,R0

ASR

177700

27-Mar-1982 19:24:42

TESTING RANDOM DATA & WORD COUNTS

ASR
ASR
BIC
MOV
MOV
MOV
MOV
MOV
MOV
MOV
JSR
ADD
CMP
BNE
CMP
BNE
MOV
MOV
ASR

177700
000020
000007
000012

K
8
PAGE 288
Sca 0307

MLXS

}2828

14051 075130
14052 075132
14053 075134
14054 075140
14055 0751446
14056 075150
14057 075154
14058 075156
14059 075162
14060 075166
14061 075172
14062 075176
14063 075202
14064 075206
14065 075210
14066 075216
14067 075220
14068 075224
14069 075230

29-MAR-82 13:41

RO, (SP)+

388

7437

7442

: LUN,*

7445

;
:

7433
7450

7455

7458

7464

7469

; LUN,*

7472

CZMLBRO PERFORMANCE EXERCISER ~ MACRO Mi113
RAND. TESTING RANDOM DATA & WORD COUNT
S

14103

16113 075402
16114 075404
14115 075410
16116 075412
14117 075416
14118 075422
14119 075430
14120 075432
14121 075436

;2;3% 075442
14124

}2}%3

164131

PAGE

289

8
SEQ 0308

“i

164106 075354

13:41

JMLXS

}9]8?

164107 075360
14108 075364
14109 075366
14110 075370
14111 075374
16112 075376

29-MAR-82

016746

004767
022626
005205
020566
101002
000167

005201
020166
002002
000167
005266
026666
003002
000167
062706

000207

136762

MOV

142520

39s.:
40$:
418%:

000024

177370

42%:
43%:

000026
175562
000022
000022
175526
000030

000046

448:

45%:

27-Mar-1982 19:24:42

TESTING RANDOM DATA & WORD COUNTS

JSR
cMp
INC
CMP
BH]
JMP

INC
cMP
BGE
JMP
INC
CMP
8GT
JMP
ADD

RTS

: Routine Size:

27-Mar-1982 19:23:44

TOPS

PA: <

BOARD,~(SP)

PC,UP.SOFT.COUNT
(SP)+,(SP)+
RS
RS5,24(SP)
42§
338

R1
R1,26(SP)

44$
23
22(SP)
22(SP) ,46(SP)
458
18
#30,SP

SECTOR
SECTOR,»

s
;

LUN
LUN,»

7184

s
s

COUNT
COUNT ,REPEAT

7181

616 words

:
;
;

; Maximum stack depth per invocation:

36 words

7403
7399

7107

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RAND2 TESTING RANDOM DATA & WORD COUNTS
16133 .MLX4
}2}%? .
14136 ;

14137 .
16138 ;

14139 ;
14140 ;

14141

;

14142 ;

29-MAR-82 13:41

n 8
PAGE 290
SEQ 0309

TESTING RANDOM SECTORS, DATA, WORD COUNTS
76486

Xsbttl

7487
7488

'TESTING RANDOM SECTORS, DATA, WORD COUNTS'

routine RAND3 (REPEAT)
begin

7489
7490
76491
7492

‘'+e

: novalue =

ROUTINE:

RAND3 (REPEAT)

!* 1 «

}2}22 :

;282

;

PURPOSE :

TO CHECK RANDOM SECTORS

}2}22 :

;232

;

ARGUMENT :

REPEAT = NUMBER OF

16147
14148
16149
14150

7497
7498
7499
7500

!
!
'
!

THE CODE FOR

"RAND3'

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING

;
;
;
;

14151

;

14152 :

14153 ;
14154 ;
14155 ;
164156 ;
146157 ;
14158 ;
14159 ;
14160 ;
14161 :

14162 ;

16163
14164
14165
14166
14167
14168
14169
14170
14171

;
;
;
;
;
;
;
;
;

14172 ;
14173 ;
14174 ;
14175 ;
14176 ;
14177 ;
14178 ;
14179 ;
14180 ;
14181 ;
14182 ;
14183 ;
14184 ;
14185 ;
14186 ;
14187 ;

7501

7502

7503
7504
7505
7506
7507
7508
7509
7510
7511

7512

7513
7316
2515
7516
7517
7518
7519
7520
7521

7522
7523
7526
7525
7526
7527
7528
7329
7530
7531
7532
7533
7534
7535
7536
7537

INCR COUNT FROM 1

!
:
'
:
!
:
!
:
'
:
!
:
'+
!
:
!
i

BEGIN 2

!
'
!
!
'

la=

START OF ROUTINE

TIMES TO EXECUTE ENTIRE ROUTINE

IN BRIEF:

TO REPEAT

(START OF REPEAT LOOP FOR THIS ROUTINE)

GENERATE THE RANDOM PATTERN
INCR LUN FROM 0 TO LAST
: BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
: INITIALIZE BUFFER POINTERS
: TESTLOOP:
: : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS
1 UNIT)
: : IF UNIT IS ACTIVE
: : THEN
: : : BEGIN S (START OF TEST FOR AN ACTIVE UNIT)

'+ : i
!
: : :
!
: : :
'
: : :
'
: : :
!
: : :
!
: s :
!
i : :
'
oo

'
!
!
!
!
!
!

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

¢ TIMES = (HIGHEST - LOWEST)/2 + 1

: INCR KOUNT FROM 1 TO TIMES
: : BEGIN 6 (START OF COUNTING LOOP FOR SECTO
R SELECTION)
: : CHOOSE A RANDOM WORD COUNT
: : SET UP BUFFER POINTERS BEFORE TRANSFER
: : CHOOSE A RANDOM SECTOR
: : CALCULATE WHERE TRANSFER WILL END (BASED ON
WORD COUNT)
: : IF CALCULATED VALUE GIR HIGHEST
: : : THEN ADJUST THE WORD COUNT SO IT FITS
ofos s
WITHIN THE TESTABLE SECTOR LIMITS

: : : : : WRITE
: : : : : LOOK FOR ERRORS (iF DROP UNIT, LEAVE LABEL
)
: : : : : CHOOSE WHETHER TO WRITE CHECK OR READ
: i : : : DO THE WRITE CHECK OR READ
: : : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE LABEL)
: : : : : CHANGE BUFFER POINTERS AFTER TRANSFER
: : : : : END 6 (END OF COUNTING LOOP FOR SECTOR SELECT
ION)
: : : : END 5 (END OF TEST FOR AN ACTIVE UNIT)
: : : END 4 (END OF TESTLOOP)
: : END 3 (END OF LOGICAL UNIT SELECTION LOOP)
: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE)
RETURN
END 1 (END OF ROUTINE)
local

TOPS-20 Bliss-16 v2(212)
PA:<NEALE
X4 .BLI.S
>ML
5 (46)

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RAND2 TESTING RANDOM DATA § WORD COUNTS
164189 :MLX4
14190 ;

16192 ;

193 -

9 ;

:
9 :
:
:
99 ;
;

N
8
PAGE 291

SEQ 0310

TESTING RANDOM SECTORS, DATA, WORD COUNTS

7538

TIMES,

7541
7542
7543
7544
7545

VALUE,
OLDSEC,
OLDCHN,
PTR,
COMMAND,

7546

DBL_VALUE;

7548
7549

Label
LOOP;

7551
7552

PRINTB_(SAY1, RTN5C);
! 'RAND3’

7554
7555

incr COUNT from 1
begin

7557

7563

7566

7567

LOOP :

to .REPEAT do

incr LUN from 0 to (.LSUNITX- 1) do
begin
GENS ().
.
begin

!* 2 »

START OF REPEAT LOOP FOR THIS ROUTINE

!* 3 «

START OF LOGICAL UNIT SELECTION LOOP

!« 4 »

'
START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT

!* 5 «

START OF TEST FOR AN ACTIVE UNIT

if .DRIVE_STATUS [.LUN] eql ACTIVE

then

egin
LSLUN = LUN;

WPTR = WBUFF:

7568
7569

RPTR = RBUFF;
TIMES = (HIGHEST ~ LOWEST)/2 + 1;

7571
7572
7573
7574
7575

incr KOUNT from 1 to .TIMES do
begin
WRDCNT = RNDWC ()
SET_PTRS (.WRDCNT);
SECTOR = RNDSEC (.LUN):

7577

7579

!x 6 » START OF COUNTING LOOP FOR SECTOR SELECTION
'VALUE BETWEEN 1 AND BUFSIZ
!VALUE BETWEEN LOWEST AND HIGHEST

if (LSECTOR + .WRDCNT/256) gtra HIGHEST then WRDCN
T = 256+ (HIGHEST ~ .SECTOR + 1;
VALUE = write (.LUN, .WRDCNT, .WPIR, .SECTOR)
;

7581
7582

e
;
SEE HOW SUCCESSFUL THE WRITE WAS:

7585
7586

selectone .VALUE of
set

7588
7589

TOPS=20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.S (46)

SECTOR,

7540

7559
7560
7561

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

WRDCNT,

7539

7564

;

29-MAR-82 13:41

1 :
begin

'SEE_"SYSERR' FOR DEFINITION
'OF ERROR # CONTAINED IN °VALUE®
!+ 6A *» RETRY ALLOWED

(ZMLBBO PERFORMANCE EXERCISER

MACRO M1113

[RANDZ TESTING RANDOM DATA & WORD COUNTS

29-MAR-82 13:41

;
;
:
:

;

TESTING RANDOM SECTORS,

:
:

DATA,

WORD

COUNTS

27-Mar-1982 19:24:42
27-Mar-1982

19:23:44

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5

7591
7592
7593
7594
7595
7596
7597
7598

if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR,
.SECTOR) nea 0
then
.
!THE RETRY FAILED =~ SYSTEM FATAL ERROR
begin
WHY
DROPT [.LUN] = CODE_4;
ERRDF (5301, MSG1, 0);
“!xexe QPTION 5. RAND3 ERROR 01 sxes
DODU (.LUN);
leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * & =
end;

7600

end;

7602
7603
7604

WHY

7610

end;

I 6B %

[31:
begrn

7612

ERRDF

7613
7614

(5303, MSG1, 0);

WHY DROPT [.LUN] = CODE_6;
pobD (.LUN);

7615
7616

7617

!* 68 * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED

DROPT [.LUN] = CODE_S;

ERRDF (5302, MSG1, 0):
!«xx% OPTION 5, RAND3 ERROR 02 wtew
DODU (.LUN):
leave LOOP:
!JUMP JUST BEYOND END OF BLOCK * 4 =

7608

tes;

leave LOOP;
end;

FATAL

DRIVE

ERROR

7621
7622
7623
7624
7625
7626
7627
7628
7629
7630
7631

if .COMMAND eql read
then
begin
PTR = .RPIR;
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):
erd
else
begin
PTR
= .WPIR;
VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR);
end;

7633
7634

i+
;
SEE HOW SUCCESSFUL THE OPERATION WAS:

7637

selectone .VALUE of

7640

ol :

RETRY

;Jugg JUST BEYOND END OF BLOCK * 4 »

COMMAND = CHOOSE ();

set

ALLOWED

!«xxx OPTION 5, RAND3 ERROR 03 x#wt

7619

7638

(46)

I 6A »

2 :
begin

7605
7606
7607

SEQ 0311

164245 ;MLX4
:

PAGE 292

{SEE_'SYSERR' FOR DEFINITION

!OF ERROR # CONTAINED IN 'VALUE'

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RAND2 TESTING RANDOM DATA § WORD COUNTS

sMLXG

:
H
H
:
;
:

:
:
:

;
:
:
:
:
H

:
:
:
:
:
:
:

PAGE 293

SEQ 0312

27-Mar-1982 19:
27-Mar-1982 19:

TESTING RANDOM SECTORS, DATA, WORD COUNTS

7642
7643
7644
7645
7645
7647

if (DBL_VALUE = DOUBLE_CHECK (.WPTR,
then
~
begin

7648
7649
7650

SAYWHO (.LUN);
PRINTB (SAY1
MSGS);

7651
7652
7653
7654
7655
7656

7663
7664
7665
7666
7667
7668
7669
7670
7671
7672
7673
7674

7679

7680
7681
7682
7683
7684
7685

7686

7687
7688
7689
7690
7691
7692
7693

TOPS=-20 Bliss~16 v2(212)

PA:CNEALE>MLX4.BLI.S

(46)

.RPIR,

.WRDCNT)) neq 0

!"ECC LOGIC FAILED TO DETECT DATA ERROR'

PRINTB (FMT12A, ..DBL_VALUE, .DBL_ VALUE):

!*GOOD DATA: XXXXXX AT LOCATION YYYYYY®

DBL_VALUE = -DBL_VALUE + BUFSIZ#?2;
PRIRTB (FHTI?@. ..DBL_VALUE, .DBL VALUE):
BAD DATA: PPPPPP AT LOCATION 000000Q"
WHY DROPT [.LUN] = CODE_8;

ERRDF (5304. MSG1, 0.

DODU (.LUN):

leave LOOP;
end;

!xxxx

OPTION

RAND3

ERROR

awwe

!JUMP JUST BEYOND END OF BLOCK * 4 *

end;

Begin

! 6D « RETRY ALLOWED

if RETRY

then

(SIX,

.COMMAND,

begin

WHY

.LUN,

.WRDCNT,

.PTR,

.SECTOR) neq 0

'THE RETRY FAILED ~- SYSTEM FATAL ERROR

DROPT L.LUN] = CODE_4;

ERRDF (5305, MSG1, 0): Tixxxx OPTION 5, RAND3 ERROR 05
wess

DODU (.LUN):
leave LOOP;
end;

7675

7676
7677
7678

if .COMMAND eql read
then
begin

7657
7658
7659
7660
7661

;
:
:
:
:
:
:
;
;
:
H
:

c.9

29-MAR -82 13:41

end;

!JUMP JUST BEYOND END OF BLOCK * & =
!x 6D «

£2l :

begin

1* 6E * FATAL CONTROLLER ERROR -- NO RETRY ALLOW
ED
DROPT C.LUN] = CODE_S;
ERRDF (5306, MSG1, 0);
!#xxx OPTION 5, RAND3 ERROR 06 s##e
WHY

DODU (.LUN):
leave LOOP;
end;

'JUMP JUST BEYOND END OF BLOCK * & +

3] :

begin
!:* 6F « FATAL DRIVE ERROR -~ NO RETRY ALLOWED
ERRDF (5307, MsSG1, 0);
!xaxx OPTION 5, RAND3 ERR
OR (07 #wse

WHY DROPT [.LUN] = CODE_6:

poDD (.LUN);

leave LOOP;
end;

:JUMP JUST BEYOND END OF BLOCK * 4 =
% 6F «

CZMLEBO PERFORMANCE EXERCISER

~ MACRO M1113

RAND2 TESTING RANDOM DATA & WORD COUNTS

164357 :MLX4

}2228 H
14360 ;

14361 ;
14362 :

14363 :

16364 ;

7694

7695
7696

14370
14371
14372
14373

;
;
;
;

7704
7705
7706
7707

7703

;
;
:
;
;
:;
;

7708
7709
7710
7711
7712
7713
7714

14382 ;
14383 ;
16384 ;
14385 ;
14386 ;
14387 ;
14388 :
14389 ;
14390 ;
14391 ;
14392 .
14393 .
14394 ;
14395 ;
14396 ;
14397 ;
14398 ;
14399 ;
14400 *
14401 ;
14402 ;

7716
7717
7718
7719
7720
7721
7722
7723
7724
7725
7726
77227
7728
7729
7730
7731
7732
7733
7734
7735
7736

14403
16404
14405
14406
14407
14408
14409
14410
144611

;

;
;
;
;
:
;
;
;
;

(6)

27~-Mar-1982 19:24.42

27-Mar-1982 19:23:44

TOPS-20 Bliss=~16 v2(212)

PA:<NEALE>MLX4.BLI.S (46)

!* 66 * UNRECOVERABLE DATA ERROR

(5308, MSG2. 0):

WHY DROPT [.LUN] = CODE_7;

pODC (.LUN);
leave LOOP;
end;

Ixxxx OPTION 5, RAND3 ERROR 08 tee

1JUMP JUST BEYOND END OF BLOCK ¢ 4
' 66 =

51 :

begin
!* 6H ~ RECOVERABLE DATA ERROR
ISOLATE ():
.
if .ERROUT then PRINTB (FMT108, .CHAN) ;

"
BIT QaQ'
OLDSEC = _MLEL:
OLDCHN = _CHAN:;
if RETRY (ONE., CHECK,
then

7715

7737
7738
7739
7740
7741
7742
7743
7744
7745

begin
ISOLATE ();

ERRDF

7698

7699
7700
7701
7702

14381

SEQ 0313

7697

;
:
;
;

14374
14375
14376
14377
14378
14379
14380

D
9
PAGE 294

TESTING RANDOM SECTORS, DATA, WORD COUNTS

14365
14366
16367
14368

14369 ;

29-MAR-82 13:41

.LUN,

.WRDCNT,

.WPTR,

.SECTOR) eql §

if ((LMLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin
.
if .ERROUT then ERRHRD (5309, MSG4, 0);

else

!xxxx OPTION 5, RAND3 ERROR 09 w2
UP_HARD_COUNT (.LUN, .BOARD):
end
begin
.
if .ERROUT then ERRSOFT (5310, MSG3, 0);

!xxxx OPTION 5, RAND3 ERROR 10 wwwx
UP_SOFT_COUNT (.LUN, .BOARD):
end
else

begin
if

.ERROUT then ERRSOFT (5311, MSG3, 0);

Yxxxx OPTION 5, RAND3 ERROR 11
UP_SOFT_COUNT (.LUN, .BOARD):
end;
tes;

end;

' 6H =

twwe

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RANDZ TESTING RANDOM DATA € WORD COUNTS

PAGE 295

9
SEQ 0314

TESTING RANDOM SECTORS,

7746

DATA,

WORD COUNTS

WPTR = .WPTR + 2;

end;

&S S
ENES
DB
»Y
N NN
N
RN ) = o b omd o
o
PN
— OV
~NO N

14413 sMLXG
14414

29-MAR-82 13:41

27-Mar-1982 19:24:42

TOPS=-20 Bliss-16 v2(212)

27-Mar-1982 19:23:44

PA:<NEALE>MLX4.BLI.S

! 6 «

END OF COUNTING LOOP FOR SECTOR SELECTION

!= 5 «

END OF TEST FOR AN ACTIVE UNIT

— e

)

i
:
!

Test to see if this uut's address space is
to be read for soft errors.
This test is
is intended for DMT purposes.

:; .EFNS$21
en

!Is the background pattern to be read

begin

[}
'

version czmlbb changed incr to incru

incru SECTOR from LOWEST to HIGHEST do
if read (.LUN, 256, RBUFF,
then

.SECTOR) eql §

begin

ISOLATE ¢);

!Find the failing bank and board no.

if .ERROUT then PRINTB (FMT108,

.CHAN);

Save the contents of the ML error location
oo

bbl\bbbl\bbs

= OOV
NN
NN — o

1446
14464

14465

14466
14467

so we can compare

the new

contents of this register after the retry.

H
&H
H

OrON O\IWAWAWMW
WA

b el

s =

b ol cad e

b o

—d cal waud e

el —d

Print where the error is
register

This is done to classity the error.

OLDSEC = .MLEL:

OLDCHN = .CHAN:

Do a classify retry call.

If the same error

occures then classify it as a hard error.

a different error occured or the error went away
then classify it as a soft error.

:; RETRY (ONE,
[}

.COMMAND,

.LUN, 256,

.PTR,

.OLDSEC) eql §

The same error occured so see if it is at the same

sector and channel number,

if so then classify

! it as a hard error else classiy it as a soft

; error.

(46)

16669 MLX4
14470 ;
14471
14472
14473

29-MAR-82 13:41

TESTING RANDOM SECTORS,

F
9
PAGE 296

SEQ 0315

27-Mar-1982 19:24:4

DATA, WORD COUNTS

:; ((.MLEL eql
en

14474
14475

14476
14477
14478
%4479

27-Mar-1982 19:23:4

.OLDSEC) and (.CHAN eql

begin

0);

else

!Additional message routine
.BOARD):

end

begin

!Not the same error ‘soft’

if .ERROUT

!Print error if enabled

©°o

then

begln

ERRSOFT (5313,

MSG3,

end;

0);

end

else

£823
W= OO0~

if .ERROUT
then
begin
ERRSOFT (5314,
MSG3,

UP_SOFT_COUNT (.LUN,

end;

]

!Additional message routine
.BOARD):

!Not the same error 'soft’

begin

end;

'Error number

!Error message

UP_SOFT_COUNT (.LUN,

WA =O VW NO N

.OLDCHN))

!Error message

UP_HARD_COUNT (.LUN,

NNNN_‘—‘-‘-—‘—.—‘-A —.-—‘-‘o

(46)

if .ERROUT
!Print error if enabled
then
begln
ERRHRD (5312,
'Error number
end;

healV 3] VAL ANV
A AN oAl

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S

!Same error occured 'hard’

MSG4,

_.__‘-.o._._‘—a.‘—a..‘—h—a_‘—l—a_a_..-n_h—a...-l—.
P Y Y Y
N
Yy Il
2L 2k aF 2T o

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RANDZ TESTING RANDOM DATA ¢ WORD COUNT
S

!Print error if cnabled

!'Error number
!Error message

!Additional message routine
.BOARD):

end;
end;

end;
end;
end;
return;

'* 4 «
!* 3«

END OF LOOP THAT COMPLETELY TESTS 1 UNIT
END OF LOGICAL UNIT SELECTION LOOP

! 2 «

END OF REPEAT LOOP FOR THIS ROUTINE

(ZMLBBO PERFORMANCE EXERCISER

MACRO M1113

RANDZ2 TESTING RANDOM DATA £ WORD COUNTS

14525 :MLX4

;2;59 M
}22%3 :
14533

14537 075446

14538 075450
14539 075456
14540 075460
14541 075466
14542 075470

14543 075472

14544 075474

14545 075500
14546 075504
145647 075512
14548 075514
14549 075520
14550 075524
14551 075526
14552 075530
14553 075532
14554 0755346
14555 075540
14556 075542
14557 075544
14558 075550
14559 075554
14560 075556
14561 075562

14562 075566
14563 075570
14564 075572
14565 075576
14566 075602
14567 075610
14568 075616
14569 075620
14570 075622
14571 075630
14572 075634
14573 075640
14574 075644
14575 075650
14576 075654
14577 075660

14578 075664
14579 075670

29-MAR-82 13:41

PAGE 297

SEQ 0316

TESTING RANDOM SECTORS, DATA, WORD COUNTS
7850
004167

162706
012746
012746
012746
010600
104414

005066

000167
016766
005003
000167
004767
010300
006200
006200
006200
062700
010046
010346
042716
012746
005046
004767
062706

005300
001402
000167
010367
012767
012767

010300
006300
012766
060066
017646
166016
012746
004767
070066
005266
00506¢
000167

end;
107664

000030

002254
104302

002226
144074

1%:

2s:

034442

177770
000001
106574
000010
001502
104272
012670
022670
034500
000010
000010
034460
000002
107314
000020
000020
000012
001362

.SBTTL

JSR

sUs
MOV
MOV
MOV
MOV
TRAP
CLR

000012

135060
135054
000010

27-Mar-1982 19:23:44
' 1

RAND3:

000024
007700
007072
000002

27-Mar-1982 19:24:42

3s:

JMP
MOV
CLR
JMP
JSR
MOV
ASR
ASR
ASR
ADD
MOV
MOV
BIC
MOV
CLR
JSR
ADD

DEC
BEQ
JMP
MoV
MOV
MOV
MOV
ASL
MOV
ADD
MOV
SUB
MOV
JSR
MOV
INC

CLR
JMP

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>MLX4&.BLI.S (46)

END OF ROUTINE

RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS

R1,S$SAVES

;

#24,SP
NRTNSC ,-(SP)
#SAY1,<(SP)
#2,-($P)
SP.RO
14

;

30(SP)

448
LSUNIT,12(SP)
R3
43
PC.,GENS
R3.R0
RO
RO
RO
#DRI
. STATU
VE
S,RO
RO,=(SP)
R3.-(5P)
#M177770, (SP)
#1,-(SP}
-($P)
PC,BLSGT2
#10,sp

RO
3s
31s
R3,LSLUN
MOBUFF ,WPTR
#RBUFF .RPIR

R3,R0
RO
#TOP,SECT,10(SP)
RO, 10(SP)
810(sP),=(sP)
LOW.SECT(RD)
(SP)
,
#2,-(SP)
PC.BLSDIV
RO, 20(SP)
20(sP)
12(SP)
298

7487

7551

;

SP,+

;

COUNT

:
;s

LUN

:
:LUN,*

7554

7557

7559
7563

: LUN,*

; LUN,*
:
:

;

LUN,+

7566
7567
7568

7569

*,TIMES

TIMES

* KOUNT

7571

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNT
S

14581
}223%
14584 075676
14585 075200
14586 075702
14587 075704
14588 075710
14589 075712
14590 075716
14591 075720
14562 075722
14593 075726
14594 075732
14595 075734
14596 075736
14597 075742
14598 075744
14599 075750
14600 075752
14601 075756
14602 075756
14603 075760
14604 075766
14605 075766

14606 075770
14607 075774
14608 075776
14609 076002
14610 076004
14611 076010
14612 076012
14613 076016
14614 076022
14615 076026
14616 076026
14617 076032
14618 076034
14619 076040
14620 076044
14621 076046
14622 076050
14623 076056
14694 076060
14625 076062
14626 076064
14627 076066
14628 076070
14629 076072
14630 076074

14631 076100
14632 076102
14633 076110

14634 076112
14635 076114

sMLXG
K
0046767
010002
010246
006767
010316
004767
010001
010246
012746
004767
020626
06C100
020076
101410
017600
160100
000300
105000
010002
062702
010316
010246

016746
010146
004767
010004
020427
001031
012746
012746
010346
010246
(16746
010146
004767
062706
005700
001446
112763
104455
012265
011070
000000
010300
104451
000433
020427

001012
112763
104455

012266
011070

172304

48:

151222

172322

000400
107236

000016
000016

000400

58:

134674

000001
045424

MoV
MOV

MOV
MOV
MOV
JSR
ADD

134636
150164
000014
000004

034446

000002
000005

JSR
MOV
MOV
JSR
MOV
JSR
MOV
MOV
MOV
JSR
cMP
ADD
CMP
8LOS
MOV
Su8
SWAB
CLRB
MOV
ADD
MOV
MOV

CMP
BNE
MOV

000006

68:
034446

SEQ 0317

TESTING RANDOM SECTGRS, DATA, WORD COUNTS

oy
MOV
JSR
MOV

147422

H
9
PAGE 298

TST
BEQ
MOVB
TRAP
LWORD
.WORD
.WORD
MOV
TRAP
BR
CMp

BNE
MOVB

TRAP

.WORD
.WORD

PC ., RNDWC
RO.R2
R2.<(SP)
PC.SET.PTRS
R3. (SP)
PC.RNDSEC
RO.R1
R2.=(SP)
#400,-(SP)
PC.BLSDIV
(SP)+,(SP)+
R1.RO
RO.316(SP)
5%
a16(SP) ,RO
R1.RO
R0
RO
RO,R2
#400,R2
RS, (SP)
R2,=(SP)

Ré,#1
63
#6,~(SP)

MIRITE ,~(SP)
R3,-(SP)

R2,-(SP)
WPTR,-(SP)
R1,=(SP)
PC.RETRY
#14,5pP

RO
98
#4,WHY.DROPT(R3)

12265

MSG1
0
R3,RO
51
8s
R4 #2
78
#5,WHY.DROPT(%3)

12266
MSG1

TOPS
PA:<

;
1 &, WRDCNT
: WRDCNT,«

7573

: LUN,*

7575

: *,SECTOR
* WRDCNT,
«

7577

SECTOR,

;

SECTCR,+

; *,WRDCNT
: *.WRDCNT
P LUN,
*
: WRDCNT,

WPTR, =(SP)
R1,-(SP)
PC.WRITE
RO.R%

27-Mar=-1982 19:24:42
27-Mar-1982
19:23:44

;

SECTOR,*

;

*,VALUE

7574

7579

: VALUE,+

7585

;

7591

: LUN,*

: WRDCNT,

; SECTOR,*

; %, *(LUN)
:

7594
7595

; LUN,*

7596

;
: VALUE,*

7597
7585

;

%, %(LUN)

7604

7605

(ZMLBBO PERFORMANCE EXERCISER

RAND3

TESTING RANDOM SECTORS,

MACRO M1113

DATA, WORD COuNTS

14637

14642 076122
14643 076124
14644 076126

14645 076132
16646 076134
14647 076126

14648 076140
14649 076142
164650 076144
14651 076152
16652 076156
14653 076156

14654 076162

14655 076164
14656 076170
14657 076174
14658 076176
14659 076202
14660 076204
14661 076206
14662 076214

14663 076216

14664 076220
14665 076224

14666 076226

000000
010300

104451
050414
020427

001014
104455
012267

011070
000000
112763
010300
104451
062706

000535

004767
010066
005005
020027
001014
005205
016766
010346

010246

016746
010146

004767

000003

000006

134460

062706

010066
001762
010346
004767
012716
012746
012746
010600

000034

134430

134366

000006

000050
137172
011216
007072
000002

BNE
TRAP
JMORD

000034

108:

118:

128:
138:

98
5§
12267

JSR
MOV
CLR
CMP
BNE
INC
MOV
MoV

PC.CHOOSE
RO.36(SP)
RS
RO, #READ
10§
RS
RPTR. 34 (SP)
R3,-(5P)
R2,~(SP)
RPTR,=~(SP)
R1,-(SP)

JSR

8R
MOV
MOV
MOV
MOV
MOV

JSR

WORD

51
8s
RG,#3

MSG1
0
#6.WHY.DROPT(R3)
R3.R0
57
4, SP

B8R

DATA,

0
R3.RO

.WORD
.WORD
MOVB
MOV
TRAP
ADD

MOV

134416

147520

TRAP
8R
CMP

MOV
MOV

147360

146014

14683 076312

9s:

134446

010246
004767

14684 076316
14685 076322
14686 076324
14687 076326
14688 076332
14689 076336
14690 076342
14691 076346

8s:

045612

000750
134370

14681 076304
14682 076306

034446

147776
000036

010004
001076
006005
103402
000167
016746

016746

78:

000014

14674 076260
14675 076262
14676 076264
14677 076266
14678 076270
14679 07€274

004767

TESTING RANDOM SECTORS,

.WORD
MOV

000412
016766
010346
010246
016746
010146

14680 076300

9
SEQ 0318

14667 076232
14668 076234
14669 076242
14670 076244
14671 0762646
14672 076252

14673 076254

PAGE 299

:MLXG

}22%8

14640 076116
14641 076120

29-MAR-82 13:41

148

PC.CHECK

VALUE,*

7607
7585

7612

;% (LUN)
: LON,*

7613
7614

7615
%, COMMAND
COMMAND,
*

; *,PIR
: LON,*
* WRDCNT,*

7619

7621

7624
7625

SECTOR,

: *,PTR
: LUN,*
¢ WRDCNT,»

7629
7630

; SECTOR,*

R2.~(SP)
PC.DOU
. BLE
CHECK

: WRDCNT,*

RO.50(SP)
12§
R3.~(SP)
PC. SAYWHO
#MSG5, (SP)
#SAY1.-(SP)
#2.-($P)
SP.RO

;

ADD

TOPS

PA:-

;
:

MOV
JSR

MOV
BEQ
MOV
JSR
MOV
MOV
MOV
MOV

19:23:44

7606

RO,R4
15§
RS
13s
283
WPTR,~(SP)

RPTR.-(SP)

27-Mar-1982

LUN,*

MOV
BNE
ROR
8LO
JMP
MoV

MOV

27-Mar-1982 19:24:42

;

:
:
:
:

PC.READ

118
WPTR, 34 (SP)
R3,-(5P)
R2.=-(SP)
WPTR,~(SP)
R1.-(SP)

COUNTS

:
:
:

*,VALUE

7637
7642

;

7646

#6.SP

*,DBL.VALUE

: LUN,*

7649

7650

;

SP,«

(ZMi_.BBO PERFORMANCE EXERCISE R
MACRD M11713
20-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA. WORD COUNT
S

14693

SMLXG

}223?

14696 076350
14697 076352
14698 076356
14699 076362
14700 076366
14701 076372
14702 076374
14703 076376
14704 076406
14705 076410
14706 076416
14707 076420

14708 076426

14709 0764626

14710 076430

14711 076436
14712 076440
14713 076442
14714 076444
14715 076446
147216 076450
14717 076452
14718 076456
14719 076460
14720 076464

104414
016616
017646
0°2746
012746
010600
104414
062766
016616
017646
012746
012746

010600
104414

112765

104455
012270
011070
000000
010300
104451
062706
000506
020427
001031

14721 076466
14722 076472
14723 076476
14724 076500
14725 076502
14726 076506
14727 076510
14728 076514
14729 076520
14730 076522
14731 076524

012746
016646
010346
010246
016646
010146
004767
062706
005700
001662
112763

14733 07653¢
14724 076536
14735 076540
14736 076542
14737 076544
14738 076546
14739 076550
14740 076554
14741 076556
14742 076564
14743 076566
14744 076570
14745 076572
14766 076574
14747 076576

012271
011070
000000
010300
104451
000450
02042/
001012
112763
104455
012272
011070
000000
010300
104451

14732 076532

104455

010000
000064
000064
006756
000003

000064

MOV

000010

TRAP

034446

MOVB

000046
14$:
158:

000001

000005
00005C

147510

JSR

000014
000004

ADD
ST
BEQ
MOVB

034445

000002
000005

TRAP
.WORD
.WORD
.WORD
MOV
TRAP
ADD
BR
CMP
BNE

MOV
MOV
MOV
MOV
MOV
MOV

000054

TRAP

168:
034446

TESTING RANDOM SECTORS,

TRAP
MOV
MoV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MoV

000056
000056
006710
000003

PAGE 300

LMORD
.WORD
.WORD
MOV
TRAP
B8R
(MP
BNE
MOVB
TRAP
MORD
.WORD
LWORD
MOV
TRAP

SEQ 0319
DATA,

WORD COUNTS

14
S6(SP), (SP)
a56(SPJ,=(SP)
#FMTI2A.-(SP)
#3,-(SPJ
SP.RO
14
#10000, 64 (SP)
64(SP) . (SP)
864 (SPJ ,=(SP)
#FMT12B.~(5P)
#3,-(SP)

SP.RO
14

#10.WHY.DROPT(R3)

55
12270
MSG1
0
R3,R0
5]
#46.SP
208
RG M1
168

#6.~(SP)
50(SP),~(SP)
R3.-(SP)
R2,-(SP)
S4(SP) ,=(SP)
R1,=(SP)
PC.RETRY
#14,5P
RO
128
#4,WHY.DROPT(R3)

12271
MSG?
0
R3.RO
51
19s
RG #2
17%
#S.WHY.DROPT(R3)
55
12272
MSG1
0
R3,RO
57

;

DBL.VALUE,+

DBL.VALU.+
E

;

SP,e

;
:
:

*,DBL.VALUE
DBL.VALUE,+
DBL.VALU
.«
E

SP,w

;% (LUN)

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

TOPS

PA:<

7651

7653
7654

7656

7657

: LUN,*

7658

;

7659

VALUE,*

:
:
:
¢
*
:

COMMAND,
+
LUN,»
WRDCNT,«
PIR,*
SECTOR,+

% 2 (LUN)

7637

7667

7670

7671

; LUN,*

7672

;
: VALUE,*

7673
7637

;
:

7680
7681

%,
% (LUN)

; LUN,«

7682

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA, WORD
COUNTS

' 14749

JMLXG

}2;2?

14752 076600

14753 076602
14754 076606
14755 076610

14756 076612

14757 076614
14758 076616
14759 076620

14760 076626
14761 076630
14762 076632
14763 076634
14764 076640
14765 076642

14766 076646

14767 076650
14768 076652
14769 076654

14770 076656
14771 076664
14772 076666
14773 076670
14774 076676
14775 076700
14776 076704
14777 076706
14778 C76712
164779 076720
14780 076722
14781 076726
14782 076730
14783 076732

14784 076734

14785 076736
14786 076740
14787 076742
14788 076746
14789 076750
14790 076754
14791 076760
1479; 076762
14793 076764
14794 076770
14795 076776
14796 077002
14797 077004
14798 077006
14799 077010
14800 077012
14801 077014
14802 077016
14803 077022

000433

020427
001012
104455

000003

178:

012273

011070
000000
112763

010300
104451
000416
020427
001017
004767

104455

012274
011120
000000

112763
010300
104451
062706
000167
020427
001157
004767

032767

001423
017705
006205

034446

000004

188:

140464

010546
012746
012746
010600
104414
062706

017766
017705

006205
006205
006205

000007

RG A3
18§
55

-WORD
.WORD
Move

MSG1
0
#6,WHY .DROPT (R3)

MoV
TRAP
8R
(MP
BNE
JSR

140420
000001

198:
208:
218:

103340

135462

MOVB
MOV
TRAP
ADD
Ump
CMP
BNE
JSR
BIT
BEQ
MOV
ASR
ASR
ASR

ASR

177700
006640
000002
000006
135416
135406

177700
000042

000052

228:

ASR
ASR
BIC
MOV
MOV
MOV
MOV
TRAP
ADD
MoV
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV

SEQ 0320

DATA, WORD COUNTS

198

CMpP
BNE
TRAP

.WORD
.WORD
WORD

034446

000024
001044
000095

006205
006205

006205
042705
010566

B8R

TRAP

006205
006205
006205
006205

006205
042705

TESTING RANDOM SECTORS,

.WORD

000006

K
9
PAGE 301

12273

R3.R0
51
198
R4 44
21%
PC, ISOLATE

VALUE,*

27-Mar-1982 19:23:44

TOPS

PA: <

7683

7637

7688

s % w(LUN)
P LUN,*

7689
7690

;
:

7691
7637

VALUE,*

;

7696

#7.WHY.DROPT(R3)
R3.R0
57
#26,5P
428
RG A5
28§
PC, ISOLATE
#1.ERROUT
228
ML .REG+42,RS
RS
RS
RS

; %, *(LUN)
: LUN,*

12274
MSG2
0

27-Mar-1982 19:24:42

7697

VALUE,*

;
:

7698
7699
.
7700
7637
7705
7707

RS
RS
#177700,R5
RS ,=(SP)
#FMT108,~(SP)
#2,-(SP}
SP.RO
14
#6,5P
ML .REG+44,52(SP)
ML .REG+42.RS
RS
RS
RS
RS
RS
RS
#177700,RS
RS,42(SP)

;

SP,»

:
:

*,0LDSEC

;

*,OLDCHN

7710
m

(ZMLBBO PERFORMANCE EXERCISER

MACRD M1113

29-MAR-82 13:41

RAND3 TESTING RANDOM SECTORS, DATA. WORD COUNTS
14805

14808 077026
14809 077032
14810 077036
14811 077040
14812 077042
14813 077046
14814 077050

14815 077054
14816 077060
14817 077064
14818 077066
14819 077074
14820 077076
14821 077102
14822 077106
14823 077110
14824 077112
14825 077114
14826 077116
14827 077120
14828 077122
14829 077126
14830 077130
14831 077132
14832 077140
14833 077142

14834 077144

14835 077146
14836 077150
14837 077152
14838 077154
14839 077160
14840 077164

14841 077166

14842 077174
14843 077176
14844 077200
14845 077202
14846 077204

14847 077206

14848 077210
14849 077216
14850 077220
14851 077222
14852 077224

14853 077226

14854 077230

14855 077232

14856 077236
14857 077242
14858 077244

-859 077252

012746
012746
010346
010246
016746
010146
004767

062706
020027
001051
027766
001034
016600
017705
006205
006205
006205
006205
006205
006205
042705
020500
001016
032767
001404
104456

000001
046000

147150
000014
000005
135320

ADD
CMP
BNE
CMP
BNE
MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR

000052

000042
135302

177700

000001

BIC

103120

012275

011202
000000
010346
016746
004767
000426

032767

001415
104457
012276
011166
000000

000410

032767
001404
104457
012277
011166

23s:

135162
140236

000001

103064

103042

016746

004767
022626
062767
062706

135104

140642
000002

000020

133416

248:

WORD COUNTS

#1,-(SP)
NCHECK
, =(SP)
R3,-(SP)
R2.-(SP)
WPTR,=(SP)
R1.-(SP)
PC.RETRY

LUN,*
WRDCNT,»

SECTOR,

;

«,0LDSEC

MSG4
0
R3,=(SP)
BOARD, ~(SP)
PC,UP.HARD. COUNT
27$

;

268

BIT
BEQ
TRAP
MORD
.WORD

#1 _ERROUT
268
57
12277
MSG3

268:

MOV

ADD

7716

7720

LUN,*

#1,ERROUT

258:

JSR
CMP
ADD

12275

268
§7
12276
MSG3
0

MoV

TOPS

PA:<

#177700,RS

-WORD
JWORD
MoV
MOV
JSR
BR

.WORD

19:23:44

: OLDCHN,
*

;

27-Mar-1982

7713

:
*

RS.RO
24$
#1,ERROUT
238
55

BIT

27-Mar-1982 19:24:42

#14,sp
RO, 45
25§
aML.REG+44 ,52(SP)
24$
42(SP) RO
aML.REG+42,RS
RS
RS
RS
RS
R5
RS

BEQ
TRAP
LWORD
.WORD
.WORD

278:
28%:

DATA,

CMP
BNE
BIT
BEQ
TRAP

.WORD

000000

010346

TESTING RANDOM SECTORS,

MOV
MOV
MOV
MOV
MOV
MOV
JSR

133622

9
SEQ 0321

SMLXG

}2389

PAGE %02

7723
7716

7728

7731

7737

R3,=(SP)

: LUN,*

7740

PC,UP.
1.SOF
COUNT
(SP)+.(SP)+
#2,WPiR

:
:

7704
7746

BOARD,
- (SP)

#20,sP

7572

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA. WORD
COUNTS
14861
}233%

:MLX&
H

164864 077256
14865 077262

14866
14867
14868
14869

077270
077272
077274
077300

14870 077306
14871 077310
14872 077314
14873 077316
14874 077320
14875 077326

14876 077332

14877 077334
14878 077336
14879 077342
14880 077346
14881 077350
14882 077354
14883 077360
14884 077364
14885 077366
14886 077372
14887 077400
14888 077402
14889 077406
14890 077410
14891 077412
14892 077414
14893 077416

14894 077420

14895 077422
14896 077426
14897 077430
14898 077434
14899 077440
14900 077442
14901 077444
14902 077450
14903 077456

14904 077462
14905 077464

005266
026666

003002
000167
022626
032767

010346
012746
012746
010546
004767
062706
020027
001161
004767
032767
001423
017700
006200
006200
006200
006200
006200

006200

0462700
010046
012746
012746
010600
104414
062706
017766
017700

006200
006200

14908 077472

006200

14912 077506

14913 077512
14914 077516
14915 077520

29%:

000001

102754

308:
31$:

328:

000010

000577

006200

14909 077474
14910 077426
14911 077502

000020

176376

001002000167
000430
010300
006300
016066 034500
016005
034460

14906 077466

14907 077470

000012
000012

146236

000010
000005
137740
000001

012746

016646
010346
012746

102660

135002

006640
000002

000006
134736
134726

i
00002

348:

INC
CMP

86T
JMP
CMP
BIT

8NE
JMP
MOV
ASL
MOV
Mov

B8R

MOV
MOV
MOV
MoV
JSR
ADD
cMP
BNE
JSR
BIT
BEQ
MOV
ASR
ASR
ASR
ASR
ASR
BIC
MoV
MOV
MOV
MOV
TRAP
ADD
MOV
“MOV

ASR
ASR
ASR

ASR
ASR

177700
000016

000001

000024

000400

SEQ 0322

TESTING RANDOM SECTORS, DATA, WORD COUNTS

ASR

177700

006200

006200
042700
010066

338:

000400
022670

no9
PAGE 303

ASR
BIC
MOV

MOV

MOV
MOV
MOV

12(SP)
12(5P),20(SP)

308
8
(SP)+,(SP)+
M, EFNS21

32%
428
R3,R0
RO
TOP.SECT(R0),10(SP)
LOW. SECT(RO) -RS

413

R3,-(SP)
#%00,~(5P)
#RBUFF ,=(SP)
RS,=(SP)
PC .READ
#10,sP
RO, 45
40§
PC,ISOLATE
#1.ERROUT
34$
aML.REG+42,R0
RO
RO
RO
RO
RO

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

TOPS
PA:<

: KOUNT
* KOUNT, TIMES

7571

;
:

7565
7757

: LUN,*

7764

;

*,SECTOR

: LUN,*
;

7766

SECTOR,+

:
:

7769
7771

#172700,R0
RO,~(SP)
#FMT10
- (SP)
8,
#2,-(SP}
SP.RO
14
#6,SP
ML .REG+44,26(SP)
aML .REG+42.RO

RO
RO
RO

; SP,%

; *,0LDSEC
:

7780
7781

; *,OLDCHN
:
* COMMAND,
*
*LUN,*

7789

RO
#177700,R0
RO, 16(SP)

#1,-(SP)

24(SP) ,=(SP)
R3,~(SP)
#400,-(5P)

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA, WORD
COUNTS
14917

14926 077552

14927 077560

14928 077562
14929 077566
14930 077572
14931 077574
14932 077576
14933 077600
14934 077602
14935 077604
14936 077606
14937 077612
14938 077614
14939 077616
14940 077624
14941 077626
14942 077630
14943 077632
14944 077634
149645 077636

14946 077640

14947 077644

14948 077650

14949 077652
14950 077660
14951 077662
14952 077664
14953 077666
14954 077670
14955 077672
14956 077674
14957 077702
14958 077704
14959 077706
14960 077710
14961 077712
14962 077714
14963 077716
14964 077722
14965 077726
14966 077730
14967 077732
14968 077736
14969 077740
14970 077744
14971 077746

SEQ 0323

sMLXG

}23}3

14920 077524
14921 077530
14922 077534
14923 077540
14924 077544
14925 077550

N
9
PAGE 304

016646
016646
N04767
062706
020027

000030
000040
146464
000014
000005

027766

134634

001051

001034

016646
017700
006200
006200
006200
006200
006200
006200
042700
020026
001016
032767
001404
104456
012300
011202
000000
010346

016746

004767

000426

032767
001415
104457
012301
011166
000000
000410
032767

001404
104457
012302
011166

000000
010346
016746
004767
022626
005205
020566
101002
000167
005203

020366

MOV
MOV
JSR
ADD
CMP
BNE

000026

358:

134476

137552

000001

134420
140156
000010

177370

000012

CMP

aML.REG+44,26(SP)

: *,0LDSEC

MOV
MOV
ASR
ASR
ASR
ASR

16(SP) ,~(SP)
aML.REG+42,R0
RO
RO
RO
RO

: OLDCHN,*

BIC
CMP
BNE

102434

102400

102356

36$:

37$:

388:
398:
408:
418:

428:
438:

WORD COUNTS

: PIR,*
: OLDSEC,

ASR
ASR

177700

DATA,

30(SP) ,~(SP)
%0(SP) .- (SP)
PC,RETRY
#14,5P
RO, 45

BNE

000016
134616

000001

TESTING RANDCM SECTORS,

BIT
BEQ
TRAP
.WORD
.WORD
.WORD
MOV
MOV
JSR

B8R

BIT
BEQ
TRAP
.WORD
.WORD
.WORD
BR
BIT

BEQ
TRAP
.MORD
.WORD

.WORD
MOV
MOV
JSR
CMP
INC
CMP
BH]
JMP
INC
(MP

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS

PA:<

37§

368

RO
RO
#177700.R0
RO, (SP)+
368
#1,ERROUT
358
56
12300
MSG4
0
R3,=(SP)

BOARD,
-~ (SP)

PC,UP.HAR
. COUNT
D

39§

#1,ERROUT
388
57
12301
MSG3
0
388
#1.ERROUT

38§
57
12302
MSG3

0
R3,=(SP)
B0ARD,
- (SP)
PC,UP.SOFT.COUNT
(SP)+.(SP)+
RS
RS, 10(SP)
428
33
R3
R3,12(SP)

7798

7802

7807

; LUN,*

7810

7798

7815

7820

:
;

7823
7829

7834

; LUN,*

7837

:
* SECTOR
: SECTOR,+*

7768
7764

; LUN
¢ LUN,»

7557

(ZMLBBO PERFORMANCE EXSRCISER
MACRO Mi113
29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DA TA, WORD COUNT
S
14973

14974
14975
14976 077752
14977 077754
14978 077760
14979 077764
14980 077772
14981 077774
14982 100000
14983 100004
14984

14985
14986
14991
14992

sMLXG

175540

000030
000030
175504

000207

000032

000059

468:

45%:

SEQ 0324

TESTING RANDOM SECTORS. DATA, WORD COUNTS

002002
000167

8 10

PAGE 305

BGE
JMP
INC
CMP
BGT
JMp
ADD

RTS

; Routine Size:

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS

PA:<

443

2%
30(sP)
30(SP),50(SP)
458

18
#32,5P
PC

625 words

: Maximum stack depth per invocation:

38 words

: COUNT
* COUNT REPEAT

7554

7487

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNT
S
14994 :MLX4

14999
15000
15001
15002
15003

;
;
;
;
;

SEQ 0325
27-Mar-1982 19:24:42

}2332 ;
14997
164998 ;

C 10
PAGE 306

TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT (7-Mar-1982 19:23:44
7851
7852
7853
7854
7855
7856
7857

2Asbttl °TESTING RANDOM UNITS, SECTORS. DATA, WORD
COUNTS®
routine RAND4 (REPFAT) : novalue =

begin

!++
!
ROUTINE:
!

s 1

«~

START OF ROUTINE

RAND4 (REPEAT)

}gggg :

;g;g

;

PURPOSE :

TO CHECK RANDOM UNJTS

%gggg H

;gg?

;

ARGUMENT :

REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE

15008
15009
15010
15011
15012
15013
15014
15015
15016

7862
7863
7864
7865
7866
7867
7868
7869
7870

!
!
!
!
!
!
!
!
!

THE CODE FOR 'RAND4'

;
;
;
;
;
;
;
;
:

15017 ;
15018 ;
15019 ;
15020 ;
15021 ;
15022 ;
15023 ;
15024 ;
15025 ;
15026 ;

15027 .
15028 ;
15029 ;
15030 ;
15031 ;
15032 ;
15033 ;
15034 ;
15035 ;
15036 ;
15037 ;
15038

15039 .
15040 ;
15041 ;
15042 ;
15043 ;
15044 :
15045 ;
15046 ;
15047 ;

15048 ;

7871
7872
7873
7874
7875
7876
7877
7878
7879
7880

7881
7882
7883
788
7885
7886
7887
7888
7889
7890
7891
7892

7893
7894
7895
7896
7897
7898
7899
7900
7901

7502

'
!
'
!
!
!
!
!
!
!

!
!
!
!
'
!
!
!
!
!
!
'

!
!
'
!
!--

IN BRIEF:

BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING
INCR COUNT FROM 1 TO REPEAT
: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE)
: GENERATE THE RANDOM PATTERN
: TIMES = NUMBER OF UNITS # 4
: INCR KOUNT FROM 1 TO TIMES

:
:
:
:
:
:

.
:

:
:
:
:
:
:
:
:
:
:

BEGIN 3 (START OF COUNTING LOOP FOR UNIT SELECTION)
CHOOSE A RANDOM LOGICAL UNIT WHICH IS ACTIVE
INITIALIZE BUFFER POINTERS
TESTLOOP:

: BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1
UNIT)
: INCR KOUNT2 FROM 1 T0 10
¢ : BEGIN 5 (START OF COUNTING LOOP FOR SECTOR
SELECTION)
¢ : CHOOSE A RANDOM WORD COUNT
: : SET UP BUFFER POINTERS BEFORE TRANSFER

: : CHOOSE A RANDOM SECTOR
: : CALCULATE WHERE TRANSFER WILL END (BASED ON WORD
COUNT)
: : : IF CALCULATED VALUE GTR HIGHEST
: : : : THEN ADJUST THE WORD COUNT SO IT FITS
: :: .
WITHIN THE TESTABLE SECTOR LIMITS
: : : WRITE
: ¢ : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: ¢ : CHOOSE WHETHER TO WRITE CHECK GR READ
:
: DO THE WRITE CHECK OR READ
: : : : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTL
OOP)
: ¢t CHANGE BUFFER POINTERS AFTER TRANSFER
: : : : END S (END OF COUNTING LOOP FOR SECTOR SELECT
ION)
: : : END 4 (END OF TESTLOOP)
: : END 3 (END OF COUNTING LOOP FOR UNIT SELECTION)
: END 2 (END OF REPEAT LOOP FOR THIS ROUTINE
RETURN
END 1 (END OF ROUTINE)

.
:
:
:
:

tocal
LUN,
WRDCNT,
SECTOR,

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S

(47)

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA, WORD
COUNTS
15050 .MLx4
}gggg :

15053 .

15054 ;

15055 ;

15056 :
15057 ;

7903

OLDSEC,

7906
7907

PTR,
COMMAND,

7905

15069 ;
15070 ;
15071 ;

7919
7920
7921

7918

7924

15076 ;
}gg;g :

7926
;g%z

15079 ;

15080 :
15081 ;
15082 ;

OLDCHN,

DBL_VALUE;
Label

LOOP;

PRINTB (SAY1, RTNSD);
! "RANDS'
.

incr COUNT from 1
begin
GENS O);
]

7925

7929

7930
7931
7932

to .REPEAT do

incr KOUNT from 1
begin

7922
7923

15074 ;

15075 ;

TOPS=-20 Bliss=-16 v2(212)
PA:<NEALE>MLX4.BLI.S (47)

VALUE,

7904

7908
7909
7910
7911
7912
7913
7914
7915
7916
7917

15072
15073 ;

SEQ 0326

27-Mar-1982 19:24:42
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT
27-Mar-1982 19:93:44

15058 ;
15059 ;
15060 ;
15061 ;
15062 ;
15063 ;
15064 ;
15065 ;
15066
15067 ;

15068 ;

D 10

PAGE 307

to (.NUM_DRIVES*4) do

LUN
= RNDU ();
LSLUN = .LUN;

! 2 «

START OF REPEAT LOOP FOR THIS ROUTINE

!* 3 «

START OF COUNTING LOOP FOR UNIT SELECTION

!* 4 «

START OF LOOP THAT COMPLETELY TESTS 1 UNIT

WPTR = WBUFF;
LOOP :

RPTR = RBUFF;
.
begin

incr KOUNT2 from 1

to 10 do

begin
WRDCNT = RNDWC ()
SET_PTRS (.WRDCNT);

14 5 « START OF COUNTING LOOP FOR SECTOR SELECTION
'EXPECT VALUE BETWEEN 1 AND BUFSIZ

}gggz :

;ggz

SECTOR = RNDSEC (.LUN);

%gggg ;

;ggg

15087 ,
15088 ;

7937
7938

if (.SECTOR + .WRDCNT/256) gtra HIGHEST then WRDCN
T = 256%(HIGHEST = _SECTOR + 1);
VALUE = write (.LUN, .WRDCNT, .WPTR, .SECTOR);

15089 ;
15090 ;
15091
15092 .
15093 .
15094 ;
15095 ;
15096
15097 .

15098 ;
15099 ;

15100 ;
15101 ;
15102
15103 ;
15104 ;

7939
7940
7941
7942
7943
7944
7945
7946
7947

7948
7949

7950
7951
7952
7953
7954

'EXPECT VALUE BETWEEN LOWEST AND HIGHEST

1+
:
SEE HOW SUCCESSFUL THE WRITE WAS:
selectone .VALUE of
set

1 :
begin

1SEE 'SYSERR' FOR DEF INITION
!0OF ERROR # CONTAINED IN 'VALUE'
!* 5A * RETRY ALLOWED

if RETRY (SIX, write, .LUN,

then

.WRDCNT,

.WPTR,

.SECTOR) neq 0

!THE RETRY FAILED -- SYSTEM FATAL ERROR

begin
WHY DROPT [.LUN] = CODE_é:
ERRDF (5401, MSG1, 0);
DODU (.LUN);

{exsx OPTION 5, RANDS ERROR 01 sese

RFORMANCE EXERCISER

MACRO M1113

29-MAR-£2

13:41

ING RANDOM SECTORS, DATA, WORD COUNTS
TESTING RANDOM {WNITS,

SEZTORS,

308

27-Mar-1982 19:24:4?2

DATA, WORD COUNT 27-Mar-1982 19:23:44

leave LOOP;
end;

7958

7968

:* 58 * FATAL CONTROLLER ERROR == NO RETRY
ALLOWED
WHY DROPT [.LUN] = CCDE_S;
ERRDF (5402, MSG1, 0);
~1wwnan OPTION 5, RAND4 ERROR 02 rnee
DODU (.LUN);
leave LOOP;
1JUMP JUST BEYOND END OF BLOCK * & «
end;
v 58 «

7970
7971
7972
7973
7974
7975

tes;

:
begin
!« 5C
ERRDF (5403, MSG1, 0);
!ssxe
WHY _DROPT [.LUN] = CODE_6;
poD0 (.LUN);
leave LOOP;
!JUMP
end;
In 5C

7977

COMMAND = CHOOSE

7979
7980
7981
7982
7983

if .COMMAND eql read
then
begin
PTR = .RPIR;
VA%UE = read (.LUN,

else

« FATAL DRIVE ERROR -~ NO RETRY ALLOWED
OPTION 5, RAND4 ERROR 03 snnv

JUST BEYOND END OF BLOCK * & «
«

();

begtn
PTR = WPIR;
VALUE = CHECK (.LUN,
end;

.WRDCNT,

.RPTR,

.WRDCNT,

.WPTR, .SECTOR);

7991
7992

i+
g
SEE HOW SUCCESSFUL THE OPERATION WAS:

7995
7996

selectone .VALUE of
set

8000
8001
8002

8004
8005
8006

(47)

' SA ¢

:
begin

7962
7963
7964
7965
7966

7998

TOPS-20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S

!JUMP JUST BEYOND END OF BLOCK * & +

end;

7960
7961

7987
7988
7989

E 10
SEQ 0327

7955
7956

7985

PAGE

.SECTOR);

!SEE_°'SYSERR® FOR DEFINITION
!0F ERROR # CONTAINED IN 'VALUE'

€0l :

if .COMMAND egl read
then

begin

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq
0
then
~
begin

F 10
PAGE 309

(2A1 BBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNT
S
TESTING RANDOM UNITS,

SECTORS,

DATA,

A AR L N

SEQ 0328

27-Mar-1982

WORD COUNT 27-Mar-1982

19:24:4
142

19:23-4 4

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S

(47)

SAYWHO (.LUN):
PRINTB (SAY1, MSGS);
!'ECC LOGIC FATLED TO DETECT DATA ERROR'
PRINTB (FMT12a, ..DBL_VALUE, .DBL
VALUE);

T TR T T LA L TS TR S Y

sMLXG

AR LR RN PR T R T R R O A O

‘OOOOO‘OOOOO@QQQWGQGQN\IN\JVN\I\I\IVOOO
l=l=]

RORORIR

ubwmdogmwg SRER2

)
i ol wnd vl

e, 8, 08,8,8,0,0500 0, 0,0,a8008,0, L

51
51

SRS

1516

!'GOOD DATA: XXXXXX AT LOCATION YVYYYY®

DBL_VALUE = .DBL_VALUE + BUFSIZ+2:

PRINTB (FMT12B, .DBL_VALUE, .DBL VALU
E):
!'BAD DATA:

PPPPPP AT LOCATION Q3000Q°

WHY_DROPT [.LUN] = CODE 8:

ERRDF (5404, MSG1, 0); ~!axxex OPTION 5. RANDS ERROR 04
s
DODU
(.LUN);
legve LOOP;

!JUMP JUST BEYOND END OF BLOCK * 4 +

end;

1] :

begin

!* 5D « RETRY ALLOWED

if RETRY (SIX,
thenb
.

.COMMAND,

egin

WHY

.LUN, <WRDCNT, .PTR, .SECTOR) neq 0
!THE RETRY FAILED -~ SYSTEM FATAL ERROR

DROPT [.LUN] = CODE_4;

ERRDF (5405, MSG1, 0

DODU (.LUN);

lesve LOOP;

end;

[21 :

!xx«x OPTION 5, RAND4 ERROR 05 #tes

'JUMP JUST BEYOND END OF BLOCK * & «
' 5D «

begin

ERRDF (5406, MSG1, 0);

~Tasax OPTION 5, RAND4 ERROR 06 #xa

WHY

DROPT [.LUN] = CODE_S;

DODU (.LUN);
Lleave LOOP;
end;

5E ~ FATAL CONTROLLER ERROR ~- NO RETRY ALLOWED

YJUMP JUST BEYOND END OF BLOCK * & +

I« SE «

£33 :

begin
ERRDF (5407, MSG1. 0):

!~ 5F « FATAL DRIVE ERROR -- NO RETRY ALLOWED
‘!exxx OPTION 5., RAND4 ERRGR Q7 #ana

WHY DROPT [.LUN] = CODE_6;

0ODD (.LUN);

leave LOOP;
end;

(4] :

begin
ISOLATE ()

ERRDF (5408, MSG2, 0);

'JUMP JUST BEYOND END OF BLOCK * &
s 5F «

!* 56 ~ UNRECOVERABLE DATA ERROR

!ssxsxx OPTION 5, RAND4 ERROR 08 +ees

WHY DROPT [.LUN] = CODE_?7;

0oDD (.LUN):

ERFORMANCE EXERCISER

MACRO M1113

29-MAR-82 13:41

TING RANDOM SECTORS, DATA, WORD COUNTS

G.10
PAGE 310
SEQ (329

SMLXS
:

TESTING RANDOM UNITS,

SECTORS,

8059
8060

27-Mar-1982 19:24:42

DATA, WORD COUNT 27-Mar-1982

Leave LOOP;
end;

8062

€53 :

8063
8064

begin
ISOLATE O);

PA:<NEALE>MLX4.BLI.S

(47)

1JUMP JUST BEYOND END OF BLOCK * 4 +
‘v 5G «

!x SH * RECOVERABLE DATA ERROR

8066

it .ERROUT then PRINTB (FMT10B,

8068
8069
8070

!
81T Q@°
OLDSEC = .MLEL:
OLDCHN = .CHAN;

8072
8073

if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR,
then

8075
8076

T625-20 Bliss~16 v2(212)

19:23:44

.CHAN):

.SECTOR) eql §

11 ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then

8077

begin

8079

it .ERROUT then ERRHRD (5409, MSG4, 0);

8081
8082
8083
8084

UP_HARD_COUNT (.LUN, .BOARD):
end

else

8086

!#xwx OPTION S, RAND4 ERROR (9 sese

begin

it .ERROUT then ERRSOFT (5410, MSG3, 0);

8088
8089

!xxex OPTION 5, RAND4 ERROR 10 swws
UPaSOFT_COUNT (.LUN, .BOARD);
en

8092
8093

else

begin

8095

it .ERROUT then ERRSOFT (5411, MSE3, 0):

8097

UP_SOFT_COUNT (.LUN, .BOARD):

8098

KSRAI28

ik cmh wed

end;

tes.

O 000~

-0

b aod ot el e e

€000 00 00 00 0o 00 08 00 O 00

!eexx OPTION 5, RANDG ERROR 11 seee

end;

WPTR = .WPTR + 2;

end;

I 5H »

f* 5 =

;
!
:

Test to see if this uut's address space is
to be read for soft errors.
This test is
s intended for DMT purposes.

END OF COUNTING LOOP FOR SECTOR SELECTION

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND3 TESTING RANDOM SEC/ORS, DATA, WORD
COUNTS

PAGE

K10
31

15274 :MLX4

}gggg :
15277 ;

15278
15279
15280
15281

;
;
;
;

15282
15283
15284
15285

;
.
;
.

15286
15287
15288
15289

;
:
;
;

TESTING RANDOM UNITS,
8112
8113
8114
8115

8116
8117
8118
8119

8120
8121
8122
8123

g%sg

15292 ;
15293 ;

8126
8127

15296
15297 ;

15298
15299 .
15300 ;
15301 .

15302 .
15303

15304
15305 ;
15306

15307 ;

15308
15309
15310
15311

15312
15313
15314
15315
15316
15317
15318

15317
15320
15321
15322
15323

15324
15325
15326
15327
15328

;
;
.
;

;
;
;
;
.
.
;

;
:
;
:
;

;
;
;
:
.

27-Mar~1982 19:24:4?2

SECTORS, DATA, WORD COUNT 37-Mar-1982 19:33:44

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S

;gsg? :

15294 ;
15295 ;

SEQ 0330

8128
8129

8130
8131

8132
8133
8134
8135

8136
8137

8138
3139

8140
8141

if .EFNS21
then
begin

!
!
!

!Is the background pattern to be read

.
]
)
version czmlbb changed incr to incru
.
incru SECTOR from LOWEST to HIGHEST do
.
if read (.LUN, 256, RBUFF,
then
begin

ISOLATE O);

.SECTOR) eql §

.
.
!Find the failing bank and board no.

it .ERROUT then PRINTB (FMT108,
.
.
!
!

:
.

.CHAN):

Print where the error is

.
Save the contents of the ML error location
register so we can compare it to the new

. contents of this register after the retry
.
! This is done to classify the error.
!
OLDSEC = .MLEL:

OLDCHN = _(CHAN;
!
. Do a classify retry call.
If the same error
: occures then classify it as a hard error.
If
.
!

a different error occured or the error went
away
then classify it as a soft error.

8142
8143
8144
8145

!
.
if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDS
EC) eql 5
then
!
cg
e
s
: The same error occured so see if
it is at the same
. sector and channel number, if so then class
ify
! it as a hard error else classiy it as a soft
! error.
!

8153
8154
8155
8156
8157

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then
begin
!Same error occured 'hard’
.
.
.
if .ERROUT
!Print error if enabled

8146
8147
8148
8149
8150
8151
8152

8158
8159
P 8160
P 8161
8162

then

begln
ERRHRD (5412,
'Error number
MSG4,
!Error message
.
0);
!Additional message routine

(47)

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-8]
RAND3 TESTING RANDOM SECTORS, DATA, WORD
COUN'S

13:41

PAGE

I 10

312

SEQ 03N

15330 .mMLX4

27-Mar-1982 19:24:42

;gg;; H
15333 .
15336 ;
15338 ;
15336 ;
15337 .
15338 ;
15339 ;
15340 ;
15341 ;
15342 :
15343 ;

TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-198
2 19:23:44
8163
8164
8165
8166
8167
8168
8169
8170
8171
8172
P 8173

15344 ;
15345 ;

P 8174
8175

15347 ;
15348 ;

8177
8178

15346 ;

15349 ;
15350 ;

15351 ;
15352 ;

15353 .
15354 ;
15355 ;

15356 :
15357 ;

15358 .
15359 .

15360 ;
15361 ;
15362 ;

15343 ;
15364 ;
15365 ;

15366 ;
15367 :

15368 .
15369

}g%;? H

15372 :
15373 ;
15374 ;
}gggg :
15380 .
15384 100006

end:

else

UP_HARD_COUNT
end
begin
.
if ERROUT
then
begin
ERRSOFT

8176

end;

8181
8182

else

8183
8184
8185

end;

.BOARD):

!Not the same error 'soft’
)
)
!Print error if enabled

MSG3,
);

UP_SOFT_COUNT

8193
8194
8195

(.LUN,

!'Error number

!Error message
.
‘Additional message routine
.BOARD):

end;

8196
8197

end;

8198
8199

end;

ggg?

004167

(.LUN,

begin
ERRSOFT (5414,

8190
8191
8192

'Error number

!Error message
)
!Additional message routine

begin

P 8188
8189

.BOARD) ;

(5413,

MSG3,
0):

.
if .ERROUT
then

8186
P 8187

8205

(.LUN,

!Not the same error 'soft’
.
)
!Print error if enabled

UP_SOFT_COUNT
end

8179
8180

8202
8203
8204

TOPS~20 Bliss~-16 v2(212)

PA:<NEALE>MLX4.BLI.S (47)

end;

END OF LOOP THAT COMPLETELY TESTS 1 UNIT

= 2 «

END OF REPEAT LOOP FOR THIS ROUTINE

'* 1 «

END OF ROUTINE

! 3 «

end;
return;
end;
105322

!s 4 +

RAND4:

-SBTTL
JSR

END OF COUNTING LOOP FOR UNIT SELECTION

RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT
R1,$SAVES
:

7852

(ZMLBBU PERFORMANCE EXERCISER

RAND4

TESTING RANDOM UNITS,

MACRC M1113

SECTORS,

DATA,

15386

15389 100012
15390 100016
15391 100022
15392 100026
15393 100032
15394 100034
15395 100036
15396 100042
15397 100046
15398 100052

162706
012746
0127646
012746
010600
104414
005066
000167
004767
016766

156400 100064
15401 100070

006366
005066

15399 100060

15602 100074
15403 100076

156409
156410
15411
15412

100102
100106
100110
100116
100126

100130
100134
100142
100150

15413 100156
15414 100162

15415 100164
15416 100166
15417 100172
15418 100174
15419 100200
15420 100202
15421 100206
15422
100210
15423
100214

15424 100216

15425 100220

15426 100224
15427 100226

15428 100232
15429 100234

15¢30
15431
1543;
15433
15434

15435
15436

15437
15438
15439
15440

WORD COUNT

J 10

PAGF 313

SEQ 0332

JMLXG

;;;gg

15404
15405
15406
15407
15408

29-MAR-82 13:41

100236
100240

100242
100246
100250
100252
100256
100260
10026«
100266
100272

006366

(000563
004767

010002
010267
012767
012767
010266

006366
012766
066666
012766
004767
010003
010346
004767
010216
004767
010001
010346
012746
004767
022626

060100

020076

101410
017600

160100
000300

105000
010003
062703
010216

010346

016746
010146

004767
010004
020427
001031

000026
007706
007072
000002

000032
002176
141546
134400

000016

1$:

000016
000014

000012
034500
000012
000001
170022

SUS
MOV
MOV
MOV
MOV
TRAP
CLR
JMP
JSR
MOV

2s:
132552

132546

8s
PC.ANDU

000010
000010
000006

3s:

146740
170040
000400
104754

JSR
MOV

MOV
JSR
MOV
JSR
MOV
MOV
MOV
JSR
CMP

R3,~(SP)
PC.SET.PTRS
R2. (SP)
PCRNDSEC
RO.R1
R3.~(SP)
#4300, =(sP)
PC.BLSDIV
(SP)+,(SP)+

CmP

RO.312(SP)

ADD

000012

BLOS
MOV

00012

SUB
SWAB

000400

132412
145140

000001

48:

PC . RNDWC
RO.R3

(LRB
MOV
ADD
MoV

MOV

MOV
MOV
JSR
MOV
cMP
BNE

R1.RO

48
212(SP
RO
)
R1,R0
RO

RO
RO,R3

#6400 R3
R2.($P)
R3.-(SP)
WwPTR,=(SP)
R1.-(SP)
PC,WRITE
RO, R4
RG .41
58

SP,e

;

COUNT

7916

7920

KOUNT

;
;% ,LUN
: LON,»
:

:
P

T0PS

PA:<

7918

RO.R2
R2.LSLUN
MIBUFF ,WPIR
#RBUFF ‘RPTR
R2.12($P)

12(sP)
#TOP,SECT.10(SP)
12(SP), 10(SP)
#1,6(SP)

9:24:42

19:23:44

7913

14(SP)

27-Mar-1982

WORD COUNT 27-Mar-1982

;

PC.GENS

B8R
JSR

ASL
MOV
ADD
MOV

DATA,

SP.RO
14
32(SP)
41

ASL

MOV
MOV
MoV
MOV
MOV

SECTORS,

#26,SP
#RTN5D, = (SP)
#SAY1,<(SP)
#2.-($p)

NUM.DRIVES,16(SP)
16(SP)
16(5P)

ASL
CLR

170234
101764
012670
022670
000012

TESTING RANDOM UN]TS,

OLUN,*

7922
7923
7924
7925
7935

; *,KOUNT2
:
* *, WRDCNT
* WRDCNT,*

7932

; LUN,*

7933

; *,SECTOR
¢ WRDCNT,*

7935

7929
7931

SECTOR,*

: SECTOR,

: *,WRDCNT
* =.WRDCNT
: LUN,*
: WRDCNT,»
:

7937

SECTOR,*

: *,VALUE
i VALUE,s

7943

(ZMLBBO FERFORMANTE

RANDS

EXERCISER

TESTING RANDOM UNITS,

MACRO M1113

SECTORS,

DATA,

15442
12222
15445 100274
15646 100300
15447 100304
15448 100306
15449 100310
15450 100314
15451 100316
15452 100322
15453 100326
15454 100330
15455 100332
15456 100340
15457 100342
15458 100344
15459 100346
15460 100350
15461 100352

15462 100354

15463 100356
15464 100362
15465 100364
15466 100372
15467 100374
15468 100376
15469 100400
15470 100402
15471 100404

15472 100406

15473 100410
15474 100414
15475 100416
15476 100620
15477 100422
15478 100624
15479 100426
15480 100434
15481 100436
15482 100440
15483 100444
15484 100646
15485 100452
15486 100456
15487 100460
15488 100464
15489 100466
15490 100470
15491 100476
15492 100500
15493 100502
156494 100506
15495 100510
15496 100514

29-MAR-82 13:41

WORD COUNT

s MLXG
:
012746
012746
010246
010340
016746
010146
004767
062706
905700
001446
112762
104455
012431
011070
000000
010200
104451

000431

020427
001012
112762
104455
012432
011070
000000
010200
104451

000414

020427
001014
104455
012433
011070
000000
112762
010200
104451
062706
000535
004767
010066
005005
020027
001014
005205
016766
010246
010346
016746
010146
004767
000612

000006
065424

145702
000014

000004

ADD
ST

034446

000002

000005

5¢:

034446

000003

000006

68:

034446

000010

78:
8$:
08 :

145514
000040

045612
_
132176
132164

145076

000036

SEQ 0333

TESTING RANDOM UNITS,

MoV
MOV
MoV
MOV
MOV
MOV
JSR

1323564

XK 10

PAGE 314

27-Mar-1982 19:24:42
WORD COUNT 27-Mar-1982 19:23:44

;

TOPS
PA:<
7949

; LUN,+
* WRDCNT,«
;

SECTOR,+

#14,sP
RO

9
#4,WHY.DROPT(R?)
55
12431
MSG1
0
R2.R0O
51

cMP
BNE
MOVB
TRAP
.MWORD
.WORD
LWORD
MOV
TRAP

RG 42
6$
#5,WHY.DROPT(R2)
55
12432
MSG1
0
R2,R0
51

CMP
BNE
TRAP
.WORD
-WORD
.WORD
MOVB
MOV
TRAP
ADD
B8R
JSR
MOV
CLR
CMP
8BNE
INC
MoV
MOV
MOV
MoV
MoV
JSR
BR

R& . #3
98
55
12433
MSG1
0
#6,WHY.DROPT(R?)
R2.R0
51
#10,5P
14$
PC. CHOOSE
RO.40(SP)
RS
RO, #READ
108
RS
RPTR, 36 (SP)
R2.-(SP)
R3.-(SP)
RPTR,~(SP)
R1.-{(SP)
PC .READ
11§

B8R

DATA,

#6,~(SP)
MIRITE,~(SP)
R2.~(SP)
R3,-(SP)
WwPTR,-(SP)
R1,-(SP)
PC.RETRY

BEQ
MOVB
TRAP
LWORD
-WORD
.WORD
MOV
TRAP

B8R

SECTORS,

;%% (LUN)
:

7952
7953

;

7954

;

LUN,+

VALUE,«

;
:

%, % (LUN)

; LUN,*

7955

7943

7962
7963

7964

7965

¢ VALUE,*

7943

7970

; *,*(LUN)
: LUN,*

7971
7972

;

7973

:
: =, COMMAND
:
: COMMAND
, «

7977

: *,PIR
: LUN,»
¢ WRDCNT,
»

;

SECTOR,*

7979

7982
7983

(ZMLBBO PFRFORMANCE EXERCISER
MACRO M1113
RANDS TESTING RANDOM UNITS, SECTORS, DATA.

15498

JMLXG

}gggg

15501 100516
15502 100526
15503 1oos§e
15504 100530
15505 100534
15506 100536
15507 100542
15508 100544
15509 100546
15510 100550
15511 100552
15512 100556
15513 100562
15514 100566
15515 100570
15516 100574
15517 100600
15518 100604
15519 100606
15520 100610
15521 100614
15522 100620
15523 100624
15524 100630
15525 100632
15526 100634

15527 100640

15528 100644

15529 100650
15530 100654
15531 100656
15532 100660
15533 100666
15534 100672
15535 100676
15536 100702
15537 100706
15538 100710

15539 100712
15540 100720
15541 100722
15542 100724
15543 100726
15544 100730
15545 100732
15546 100734
15547 100740
15548 100742
15549 100746
15550 100750
15551 100754
15552 100760

29-MAR-82 13:41
WORD COUNT

016766
132146
010246
010346
016746
132134
0101/
6
0046767
145236
010004
001076
006005
103402
000167 000750
016746
132106
016746
132104
010346
004767
143532
062706 000006
010066 000042
001762
010246
004767 134710
012716 011216
012746 007072
012746 000002
010600
104414
016616
000050

017646

012746

012746
010600
104414
062766
016616
017646
012746
012746
01000
104414

112762
104455
012434
011070
000000
010200
104451
062706
000506
020427
001031
012746
016646
010246

000036

108:

118:

128:
138:

000050

010000
000056
000056
006756
000003
000010

000042

000001
000006
009052

MOV
MOV
MOV
MOV
MOV
JSR
MoV
BNE
ROR
BLO
JMP
mov
MOV
MOV
JSR
ADD
MOV
BEQ
MOV
JSR
MOV
MOV
MOV
MOV
TRAP
MOV

MOV

000003

000056

14$:
158:

315

WPTR,36(SP)
R2,~(5P)
R3.-(SP)
WwPTR,~(SP)
R1,=-(SP)
PC.CHECK
RO, R4
15$
RS
138
288
WPTR,=~(SP)
RPTR.~(SP)
R3,-(SP)
PC.DOU
. BLE
CHECK
#6.SP
RO,42(SP)
12§
R2,=(SP)
PC.SAYWHO
#MSGS, (SP)
#SA
.~Y1
(SP)
#2,~(SP)
SP.RO
14
SO(SP) , (SP)

250(SP},~(SP)

#FMT12A.~(SP)

MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV

#3,-(SP)
SP.RO
14
.
#10000,56(SP;
56(SP) . (SP)
a56(SP},~(SP)
#FMT128.~(5P)
#3,-(SP}
SP.RO

MOVB
TRAP
WORD
.WORD
.WORD
MOV
TRAP
ADD
BR
(MP
BNE
MOV
MOV
MOV

#10,WHY.DROPT(R2)
55
12434
MSG1
0
R2,R0
57
#62,5P
208
RG A1
16$
#6.-(SP)
52(SP) ,=(SP)
R2,~(SP)

TRAP

034446

L 10

TESTING RANDOM UN]TS,

MOV

006770

PAGE

SEQ 0334

SECTORS,

27-Mar-1982

19:24:4?2

DATA, WORD COUNT 27-Mar-1982 19:23:44

; *,PIR
T LON,
e
* WRDCNT,
;

SECTOR,*

;
:
:

*,VALUE

10PS

PA:<

7987
7983

7995
8000

;

8004

: WRDCNT,*
;

*,DBL.VALUE

; LUN,*

8007

;

8008

; SP,4
; DBL.VALUE,*

: DBL.VALUE.*

8010

; SP,«
; *,DBL.VALUE
: DBL.VALUE,
: DBL.VALU
.+
E

8012
8013

: SP,x
;
:

%, % (LUN)

8015
8016

; LUN,*

8017

8018

; VALUE,*

7995

:
: COMMAND,»
P LUN,*

8026

(ZMLBBO PERFORMANCE EXERCISER

RANDL

TESTING RANDOM UNITS,

MACRO M1113

SECTORS,

DATA, WORD COUNT

15554
}gggg
15557 100762
15558 100764
15559 100770
15560 100772
15561 100776
15562 101002
15563 101004
15564 101006
15565 101014
15566 101016
15567 101020
15568 101022
15569 101026
15570 101026
15571 101030
15572 101032

15573 101036
15574 101040
15575 101046
15576 101050
15577 101052
15578 101054
15579 101056
15580 101060

15581 101062

15582 101064
15583 101070
15584 101072
15585 101074
15586 101076
15587 101100
15588 101102
15589 101110
15590 101112

15591 101114

15592 101116
15593 101122
15594 101124
15595 101130
15596 101132
15597 101134
15598 101136
15599 101140
15600 101146
15601 101150
15602 101152
15603 101156
15604 101162
15605 101166
15606 101170
15607 101174
15608 101202

29-MAR-82 13:41

sMLX4
;
010346
016646
010146

004767
062706
005700
001662
112762
104455
012435
011070
000000
010200
104451
000450
020427

001012
112762
104455
012436
011070
000000
010200
104451

000433

020427
001012
104455
012437
011070
000000
112762
010200
104451

000416

020427
001017
004767
104455
012440
011120
000000
112762
010200
104451
062706
000167
020427
001157
004767
032767
001423

000056

145226
000014
000004

034446

000002

000005

168:

034446

000003

000006

178:

034446

000004

188:

136202

000007

034446

000020
001042
000005
136136
000001

19$:
208:
218:

101056

" 10
PAGE 316
SEQ 0335

TCSTING RANDOM UNITS,
MOV
MOV
MOV
JSR
ADD
ST
BEQ
MOVB
TRAP
LMORD
-WORD
.WORD
MOV
TRAP
BR
(MP

R3,~(SP)
56(SP) ,=(SP)
R1,=(SP)
PC.RETRY
#14,5P
RO
128
#4,WHY.DROPT(R2)
55
12435
MSGI
0
R2.R0
51
19s
R& 42

BNE
MOVB
TRAP
.WORD
.WORD
.WORD
MOV
TRAP

17§
#5,WHY.DROPT(R2)
55
12436
MSG1
0
R2.R0
51

CMP
BNE
TRAP
JWORD
.WORD
.WORD
MOVB
MOV
TRAP

R& A3
18§
55
12437
MSG1
O
#6.WHY.DROPT(R2)
R2.RO
51

(M
BNE
JSR
TRAP
WORD
.WORD
.WORD
MOVB
MOV
TRAP
ADD
JmP
CMP
BNE
JSR
BIT
BEQ

RS, 44
21§
PC.ISOLATE
55
12440
MSG?2
0
#7.WHY.DROPT(R2)
R2.RO
57
#20,SP
408
R4 A4S
28§
PC,ISOLATE
#1.ERROUT
22%

B8R

27-Mar=1982 19:24:42
SECTORS, DATA, WORD COUNT 27-Mar-1982 19:23:44
; WRDCNT,
«
PIR,
* SECTOR,+

:
:

19s

198

TOPS
PA: <

%, % (LUN)

8029
8030

: LUN,*

8031

;
¢ VALUE,*

8032
7995

:
:

8039
8040

%, %(LUN)

; LUN,*

8041

8042

: VALUE,*

7995

;

8047

; %, %(LUN)
: LON,*

8048
8049

8050

¢ VALUE,*

7995

;
:

8055
8056

; %, 4 (LUN)
:OLUN,

8057
8058

;

8059

: VALUE,*

7995

:
:

8064
8066

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD
COUNT

15610

:MLXG

}gg};

15613 101204
15614 101210

15615 101212
15616 101214
15617 101216

15618 101220

15619 101222
15620 101224
15621 101230
15622 101232
15623 101236
15624 101242
15625 101944
15626 101246
15627 101252

15628 101260

15629 101264
15630 101266
15631 101270
15632 101272

15633 101274
15634 101276
15635 101300
15636 101306
15637 101310
15638 101314
15639 101320
15649 101322
15647 101324
15642 101330
15643 101332
15644 101336
15645 101342
15646 101346
15647 101350
15648 101356
15649 101360
15650 101364
18651 101370
15652 101372
15653 101374
15654 101376
15655 101400
15656 101402
15657 101404
15658 101410
15659 101412
15660 101414
15661 101422
15662 101424
15663 101426
15664 101430

017705
006205

133200

TESTING RANDOM UNITS,

006205
006205
006205

MOV
ASR
ASR
ASR
ASR

006205
042705
010546
012746
012746
010600
104414
062706
017766

ASR
8IC
MOV
MOV
MOV
MOV
TRAP
ADD
MoV

006205

017705

006205
006205
006205
006205

ASR

177700
006640

000002
000006
133136

133124

006205
006205
042705
177700
010566 000040
012746 000001
016646 000052
010246
010346
016646 000056
010146
004767
144666
062706 000014
(20027 000005
00}051
027766
133036
001034
016600 000040
017705
133020
006205
006205
006205
006205
006205
006205
042705
177700
020500
001016
032767 000001
001404
104456
012441
011202

000044

22$:

MOV

ASR
ASR
ASR
ASR

000044

100636

N 10
PAGE 517

ASR
ASR
BIC
MOV
MOV
MOV
MOV
MOV
MOV
MOV
JSR
ADD
CMP
BNE
CMP
BNE
MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
CMP
BNE
8IT
BEQ
TRAP
MWORD
.WORD

SEQ 0336
SECTORS,

DATA,

27-Mar-1982 19:24:42

WORD COUNT 27=Mar-1982 19:23:44

TOPS

PA:<

aML .REG+42,RS
RS

RS
RS
RS

R5
#177700,RS
RS,=~(SP)

#FMT108,~(SP)

#2,-(SP)
SP.RO
14

;

SP.%

;

*,0LDSEC

#6,SP

aML.REG+44,44 (SP)

ML .REG+42 RS

RS
RS
RS
RS
RS
RS
#177700.RS
R5,40(SF)
#1.-(SP)
52(SP) ,=(SP)
R2,=(SP)
R3.~(SP)
56(SP),~(SP)
R1,=(SP)
PC.RETRY
#14,SP
RO, 45
25
aML . REG+44 , 44 (SP)
24S
40(SP) ,RO
aML.REG+42,RS
RS
RS
RS
RS
RS
RS
#177700,RS
RS,RO
4$
#1,ERROUT
23$
§
12441
MSG4

;

: %,0LDCHN
:
: COMMAND,
tLUN,
* WRDCNT,
P PIR,*
* SECTOR,*

;

8069

8070

*,0LDSEC

8072

8075

: OLDCHN,*

;

8079 |

CZMi BBO PERFORMANCE EXERCISER

RANDS TESTING RANDOM UNITS,

MACRO M1113

SECTORS, DATA.

15666

15669 101432

101434
101436
101442
101446

15674 101450
15675 101456
15676 101460
15677 101462
15678 101464

15679 101466

15680 101470
15681

WORD COUNT

M X4

}gggg

15670
15671
15672
15673

29-MAR-82 13:41

101472

000000

010246
016746
004767
000426

032767
001415
104457
012442
011166

032767

001404
104457
012443
011166
000000
010246
016746
004767
022626
062767
062706
005266

15695 101552
15696 101556
15697 101560

003002
000167
032767

15698 101566

026627

001002

15699 101570
15700 101574
15701 101602
15702 101606
15703 101612
15704 101614
15705 101616
15706 101622
15707 101626
15708 101630
15709 101634
15710 101640
15711 101644
15712 101646
15713 101652
15714 101660
15715 101662
15716 101666

000167
017666
016600
016005
000577
010246
012746
012746
010546
004767
062706
020027
001161
004767
032767
001423
017700
006200

15718 101672
15719 101676
157220 101676

006200
006200
006200

15717 1016720

132700
135754

000001

100602

24$:

020000

000410

15682 101500
15683 101502
15684 101504
15685 101506
15686 101510
15687 101512
15688 101514
15689 101520
15690 101524
15691 101526
15692 101534
15693 101540

15694 101544

238:

006200

100560

268:

132622
136360
000002
000020
000006

000006
176376
000001
000430
000010
000012
034460

131134

100474
000010

.WORD

MOV
MoV
JSR
8R

29%:
30$:

100400

SECTORS,

DATA,

27-Mar-1982 19:24:42

WCRD COUNT 27-Mar-1982 19:23:44

TOPS

PA:<

R2,~(SP)
BOA
, -RD
(SP)
PC,UP.HARD. COUNT
27$

LUN,*

8081
8075

BIT
BEQ
TRAP
WORD
.WORD

#1,ERROUT
26$
57
12442
MSG3

8086

B8R

268

;

8089

BIT

BEQ
TRAP
MWORD
.WORD
WORD
MoV
MOV
JSR
CMpP
ADD
ADD
INC

CMP

318:

143756
000010
000005

132522

27%:
28%:

000012

000400
022670

135460
000001

258:

SEQ 0337

TESTING RANDOM UNITS,

"WORD

000007

8 11
PAGE 318

BGT
JMP
BIT

BNE

#1,ERROUT

26%
57
12443
MSG3
0
R2,-(SP)
BOA
, -RD
(SP)
PC,UP.SOFT.COUNT
(SP)+,(SP)+
#2 .WPiR
#20,5°
6(SP)

6(SP) .12

29%
33
#1,EFNS21

308

JMP
Mov
MoV
MOV
B8R
MoV
MOV
MOV
MOV
JSR
ADD
CMP
BNE
JSR
BIT
BEQ
MOy
ASR

PC,ISOLATE
#1.ERROUT
32§
aML.REG+42,R0
RO

ASR
ASR
ASR

RO
RO
RO

ASR

208
@10(SP),10(SP)
12(SP).RO
LOW. SECT(RO) ,RS
398
R2,~(SP)
#680.-(5P)
NRBUFF ,~(SP)
RS.~(SP)
PC .READ
#10,SP
RO, 45
38§

;

8095

: LUN,*

8097

:
:
:
* KOUNT2

8063
8103
7930
7929

8112

;

3119’

: KOUNT2,+

; *,SECTOR

: LUN,»

8121 |

; SECTOR,*

:
:

8124
8126

CZMLBBO PLRFORMANCE EXERCISER

RANDS

TESTING RANDOM UNITS,

MACRO M1113

SECTORS,

DATA, WORD COUNT

15722
}g;gz

SMLXG
:

15725 101700

15726 101702
157¢7 101706
15728 101710
15729 101714
15730 101720
15731 101722
15732 101724
15733 101730
15734 101736
15735 101742
15736 101744
15737 101746
15738 101750
15739 101752
15740 101754

15741

101756

15742 101762
15743 1071766
15744 101772
15745 101776
15746 102000
15747 102004
15748 102010
15749 102014
15750 102020
15751 102024

15752 102030

006200

042700
010046
012746
012746
010600
1044" "
062706
017766
01770C
006200
006200
006200
006200
006200
006200

042700

010066
012746
16646
010246
012746
016646
016646
004767
062706
020027

001051

15753 102032
1575 102040
15755 102042
15756 102046
15757 102052
15758 102054
15759 102056
15760 10206C
15761 102062
15762 102064
15763 102066
15764 102072
15765 102074

027766
001034
016646
017700
006200
006200
006200
006200
006200
006200
042700
020026
001016

15767 102104

001404

15766 102076

15768 102106
15769 102110
15770 102112

15771
1577;
15773
15776

29-MAR-82 13:41

102114
102116
102120
102124

15775 102130
15776 102132

032767

006640
000002
0600006
132456
132446

000024

328:

177700

MOV
MOV
MOV
MOV
MOV
MOV
MOV
JSR
ADD
CMP

000400

000036
000036
144204
000014
0009505
132354

BNE

000024

000020
132336

177700

000001

100154

000426
032767

338:

132216
135272

000001

100120

34$:

;
:

*,0LDSEC

8135
8136

#177700,R0

: *,0LDCHN
:
: COMMAND,
: LUN,*

8144

: PTR,*
¢ OLDSEC.*

358

33§

B8R
BIT

; SP,*

R0,20 :SP)
#1.<(SP)
32(SP) ,~(SP)
R2,=(SP)
#400,~(SP)
36(SP),=(SP)
36(SP) .~(SP)
PC.RETRY
#14,SP
RO, #5

BEQ

.WORD
MoV
MoV
JSR

TOFS
Pa:e

ML .REG+44 , 24 (SP)
348
20(SP) ,-(SP)
aML.REG+42,R0
RO
RO
RO
RO
RO
RO
#177700.R0
RO, (SP)+
34$

TRAP
WORD
.WORD

27-Mar-1982 19:24:42
SECTORS, DATA, WORD COUNT 27-Mar-1982 19:33:44

#177700,R0
RO, -(SP}
#FMT108,-(SP)
#2,-(SP)
SP.RO
14
46,SP
ML .REG+44, 24 (SP)
aML.REG+42. RO
RO
RO
RO
RO
RO
RC

CMP
BNE
MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR
BIC
CMP
BNE

8IT

104456
012444
011202

000000
010246
016746
004767

8IC
MoV
MoV
MOV
MoV
TRAP
ADD
MOV
MOV
ASR
ASR
ASR
ASR
ASR
ASR

BIC

000020
000001
000032

SEQ 0338

TESTING RANDOM UNITS,
ASR

177700

PAGE 319

;

*,0LDSEC

8153

: OLDCHN,*

#1,ERROUT

8157

56
12444
MSG4

8162

; LUN,*

8165

;
:

8153 .
8170

0
R2,=-(SP)
BOARD, ~(SP)
PC,UP.HARD.COUNT

37§
#1,ERROUT

(7% BBO PERFORMANCE EXERCISER

RANDS4

TESTING RANDOM UNITS,

MACRO M1113

SECTORS,

DATA,

15778
102140
102142
102144
102146
102150

15787 102154
15788 102162
15789 102164
15790 102166
15791 102170
15792 102172
15793 102174
15794 102176
15795 102202
15796 102206
15797 102210
15798 102212
15799 102216
15800 102220
15801 102224
15802 102230
15803 102236
15804 102240
15805 102244
15806 102250
15807 102256

15808 102260

15809 102264
;gg;? 102270

15819

COUNT

15786 102152

15812
}gg}g

WORD

IR R

PAGE 320

SEQ 0339

JMLXG

}g;gg

15781
15782
15783
15784
15785

29-MAR-82 13:41

001415
104457
012445
011166
000000

000410

032767
001404
104457
012446
011166
000000
010246
016746
004767
022626
005205
020566
101002
000167
005266
026666
003002
000167
005266
026666
003002

000167

062706
000207

000001

100076

36%:

132140
135676

37$:
38$:
39%:

000010
177370
000014
000014

000016

175632
000032
000032

000052

175562

000034

35%:

408%:

418:

428:

TESTING RANDOM UNITS,

BEQ
TRAP
LMORD
.WORD
WORD

368
57
12445
MSG3
0

BIT
BEQ
TRAP
LWORD
.WORD
.WORD
MOV
MOV
JSR
CMP
INC
CMP
B8MI
JMP
INC
cMP
BGT
JMP
INC
CMP
867

#1_ERROUT
368
57
12446
MSG3
0
R2.-(SP)
BOARD,~(SP)
PC,UP.SOFT.COUNT
(SP)+,(SP)+
RS
R5,10(SP)
408
318
14 (SP)
14(SP) ,16(SP)
418
23
32(SP)
32(SP),52(SP)
423

ADD
RTS

#34,5pP
PC

JMP

SECTORS,

DATA,

36$

27-Mar-1982 19:24:42

WORD COUNT 27-Mar-1982

19:23:44

TOPS

PA:<

8175

8178

8184

8189

; LUN,»

8192

:
; SECTOR
; SECTOR,*

£123
8119

; KOUNT
; KOUNT,»

7920

; COUNT
; COUNi ,REPEAT

7916

7852

; Routine Size:
602 words_
.
: Maximum stack depth per invocation:

37 words

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
29-MAR-82 13:41
RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT

PAGE 321

27-Mar-1982 19:24:42

DEFINITION OF OPTION S

Zsbttl

novalue =

OFTS

PURPOSE:

TO EXERCISE THE ML11 SYSTEMS UNDER TEST IN A RANDO
M
MANNER, SO AS TO SIMULATE THE FLEXIBILITY OF
TESTING
THAT WOULD BE DONE BY AN OPERATING SYSTEM.

b mdd s cad wnd e e ad

ROUTINE:

= OO0

THERE ARE 4 RANDOM TESTS WHICH ARE CALLED BY
'OPTS®
TO ACCOMPLISH ALL TESTING.
IT IS THE RESPONSIBILITY
OF THIS ROUTINE TO DECIDE HOW MANY TIMES THOSE 4
RANDOM TESTS WILL BE EXECUTED.
REFER TO 'RAND1* TO

'RAND4® ABOVE FOR MORE INFORMATION.

REPEAT;
PRINTB

(SAY2, WRD34, RTNS);

! 'RUNNING OPTS'
REPEAT = 9 ~ _NUM_DRIVES;
'FEWER TIMES EACH RANDOM TEST WILL BE RUN.

incrbLUN from 0 to (.LSUNIT - 1) do
i; -DRIVE_STATUS L[.LUN] eql ACTIVE

begin

if .MLDT
then

egin

REPEAT = 1;

!THE MORE UNITS THERE ARE ON THE SYSTEM, THE

!SEE IF THERE ARE ANY UN
Iv 2
'WHICH HAVE 64K CHIPS (ML11-8)
n 3«

UNIT = _DRIVE;

’

It 4 «
:THERE IS AT LEAST 1 UNIT WHICH IS AN ML11-B,
SO

:LOWER THE REPEAT TIME FOR ALL TESTABLE UNITS.

exitloop;
end;

ARARSS

TOPS-20 Bliss=16 v2(21
PA:<NEALE>MLX4.BLI.

'x 1«

0000 0000 00 05 00 00 00 00
PIRDPLANINININDNIAD

Omwgwrwm—-oomw
VNSNS
= O

0000
CGo0n

27-Mar-1982 19:23:44

"DEFINITION OF OPTION S°

routine OPTS

Lol
DRXXRRPP ettt N

SEQ 0340

In 4 %
In

2«

2 AT THIS POINT, 'REPEAT' IS BASED ON THE SYSTE
M CONF IGURATION,
. NOW WEIGHT THE LOOP COUNTS OF THE 4 RANDOM TESTS
SO THAT RAND1
; AND RAND2 ARE MUCH QUICKER THAN RAND3 AND RAND4
.
RAND3 IS LONGEST.
RAND1

(.REPEAT);

!TEST USING RANDOM DATA

(ZMLBBO PERFORMANCE EXERCISER

RANDG

TESTING RANDOM UNITS,

MACRO M1113

SECTORS,

DATA,

29-MAR-82 13:41

WORD

COUNT

F.11
PAGE 322
SEQ 0347

27-Mar-1982 19:24:42
27-Mar-1982 19:53:44

DEFINITION OF OPTION S
RAND2 (.REPEAT);

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BL].S (48)

:TEST USING RANDOM DATA, WORD COUNTS
!TEST USING RANDOM SECTORS, DATA, WORD COUNT
S
‘TEST USING RANDOM UNITS, SECTORS, DATA, WORD COUNT
S

RAND3 (.REPEAT):

RAND4 ((.REPEAT*16));
return;

177770
000001
.

CLR

JSR

B UNHANNIA)
— -

&Hae

000010

o OO

925

ADD

MOV
MOV
8IC
MoV

010102
006302

016202
016200
042700
142777
150077

032777

001403
012703

000402

005201
020104

ADD

DEC
BNE
MOV

034422
000006
177770

000007
131714
000001

131720
131724

000001

2%:
3%:

MIRD3S
, ~(SP)

NUM.DRIVES,R3

LSUNIT,R4

R2,~(SP)
R1.=(SP)

#172770, (SP)

* REPEAT

* ,REPEAT

LUN

;

LUN,»

8229
8232

8235

; LUN,*

#1,-($°)
-(§P)
PC,BLSGT?

70,sp

BIC

#177770.R0

INC
cMp

SP'..

#DRIVE.STATU
,R2
S

ASL

BI(B
BISB
BIT
BEQ
MOV
BR

SP.RO
14
#11.R3

R1.R2
R2
PTABLEéebDR(RZ).RZ

MOV
MOV

8207
8227

#SAY2,=(SP)
#3,-($P)

ASR

ASR
ASR

034442

wn A

N ~d
b ek D
"\\JNNN
W= OOV NN

b ek o ek O
WA —=O 0

0000 0V OOV OO0 OOV WVO

18:

MoV
SUB
MOV
CLR
BR
MoV

OPT5 DEFINITION OF OPTION §

R1,$SAVEL
#RTNS - (SP)

MOV
TRAP

000011
132124
077454

101756

<SBTTL

JSR
MOV
MOV
MoV
MoV

OPTS:

;

LUN,

8238

6(R2)

#7.3ML .REG+10
RO.aML.REG+10

g;.iHL.R56026
#1,R3
43
R1
R1,R4

8240
N

103016
007656
007344
007100
000003

AN TN

(=] b ek wd ad wad (O

O—=000 OO

A A AANN
WO

[eleleloleletolote]

WA
WO
~
NOVN QOO

NINNINININNOAGRO
N

end;

* REPEAT
LUN
LUN,
=

8243

8245
8232

CZMLBBO PERFORMANCE EXERCISER
OPTS DEFINITION OF OPTION §

19933
002726
010316
004767
010316
004767
010316
004767
C€10300
006300
006300
006300
006300

15949 1025246
15950 102530
;2325 102534

004767
062706
000207

15960

010016

166044
170422
172734

175256
000010

6 n

PAGE 323

SEQ 0342

15936 102464
15937 102466
15938 102470
15939 102474
15940 102476
15961 102502
15942 102504
15943 102510
159446 102512
15945 102514
15946 102516
15947 102520

15953
}gggg

29-MAR-82 13:41

JMLX4

}gggg

15948 102522

MACRC M1113

48:

27-Mar-1982

DEFINITION OF OPTION §
BLY
MOV
JSR
MOV
JSR
MOV
JSR
MOV
ASL
ASL
ASL
ASL

MOV

JSR
ADD
RTS

19:24:42

27-Mar-1982 19:23:44

1%
R3, (SP)
PC ,RAND1
R3.,(SP)
PC.RAND?
R3,(SP)
PC.RAND3
R3,RO
RO
RO
RO
RO

T0PS

PA:<

REPEAT,»

8257

REPEAT
,»

8258

REPEAT,+

8259

: REPEAT,»

8260

;

8207

RO, (SP)

PC ,RAND4
#10,sp
PC

: Routine Size:
82 words
.
: Maximum stack depth per invocation:

13 words

(ZMLBBO PERFORMANCE tXERCISER
OPTS DEFINITION OF OPTION S

15962 :MLX6
}gggz :
15965 ;
15966 ;
15967 ;
15968

MACRC M1113

29-MAR-82 13:41

PAGE

H 31
324

SEQ 0343
27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

THE OPTION SCHEDULER

8263
8264
8265
8266

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX4&.BLI.S (49)

1Isbttl 'THE OPTION SCHEDULER®
BGNTST;

8267
8268

!¢+
'
ROUTINE:
!

15972 ;
};8;2 :

8270
gg;g

!
:

}gggg :

gs;z

;

THE QUICK VERIFY PASS INCLUDES THE FOLLOWING ROUTIN
ES:

15977
15978
15979
15980

8275
8276
8277
8278

!
!

(1)
(2)

15969 15970 ;

15971

;

;
:
;
;

15981 ;
156982 ;

8269

PURPOSE:

THIS IS THE ONE MAIN TEST OF

(3)

(4)

oOPT2

SUBSEQUENT PASSES INCLUDE:

;
;

8283
8284
8285
8286
8287

!
!
!
!
!--

2)
(3)
(4)
(5)

15991
15992 ;

8289
8290

if .QUICK neq O
then
.

15985
15986
15987
15988
15989

;
;

15990 ;

15993 ;
15994 ;

15995
15996
15997
15998

;
.
;
;

15999
16000 ;
16001 ;
16002 ;
16003 ;
16004 ;
16005 ;
16006 ;
16007 ;
16008 ;
16009 ;
16010 ;
16011 ;
1601¢ ;
16013 ;
16014 ;
15015 ;
16016 ;

8288

8291
8292

8293
8294
8295
8296

8297
8298
8299
8300
8301
8302
8303
8304
8305
8306
8307
8308
8309
8310
8311
8312
8313
8314

(1)

begin
PRINTB (CRLF);

OPT3

!
!
!

8281
8282

IT LOOKS

INTEGRITY
oPT1

8279
8280

15983 ;
15984 -

THE EXERCISER.

AT THE AVAILABILITY OF TEST OPTIONS AND
MAKES CALLS
THE OPTIONS WHEN APPROPRIATE.

oPT1

OPT2
o0e13
OPT4
O0P1S

!THIS 1S THE QUICK VERIFY PASS

PRINTB (SAY3, WRDZ2, PHR?, WRDS) ;
!"BEGIN QUICK VERIFY PASS'®
INTEGRITY ();
end;
if .DROP1 eql 0
then

oPT1

();

if .DROP2 eql 0
then
oPT2 ()

if .DROP3 eql 0
then
OPT3 ();
if .QUICK eql 0
then
begin
)
if .DROP4 eql 0

'OPTION 1

IS AVAILABLE

'0PTION 2 IS AVAILABLE

'!OPTION 3 1S AVAILABLE

(ZMLBBO PERFORMANCE EXERCISER
OPTS DEFINITION OF OPTION S

16018 JMLXG
16019

0O CO000COO0
NN NIRLNINININONIAOND
(¥,]
VIV
~
o
&»H
o

B
ek
T

00 00 00 Oo00 Qo 00 00 0o O
NN NN N N NN NN
rorRONN O~
b ek s

LV LVERY
<1V T . ENT NP

0PTL ()

$71:

NO
&S~
O
~demda

~NO
SO

ON)

O—=
~H
W

N2t

nNOo

N -

001012
005767
001002
004767
005767
001002
004767
000207

uaOon

OO=—
YO

005767

JSR

18:

2s:
3s:
(A ¥

077354
157546
077346
177362

SBTTL
TST
BEQ
Mov
MOV
MOV

TRAP
MOV
MoV
MoV
MOV
MoV
MOV
TRAP

007232
007730
007200
007112
000004

001002
004767
005767
001002
004767
005767
001002
004767

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44
'OPTION &

IS AVAILABLE

'OPTION 5

IS AVAILABLE

TOPS=20 Bliss~16 v2(212)
PA:<NEALZ>MLX4.BLI.S (49)

ENDTST:

2624

325

end;

—_ et

055

PAGE

>EQ 0344

007066
000001

2606
2610

13:41

if .DROPS eql 0
then

130132

600

051

then

16021

29-MAR-82

OPTION SCHEDU!
ER

ow
(=] LR

16020

THE

MACRO M1113

5%:

6$:

ADD
TST
BNE

JSR
IST

BNE
JSR

$71

THE OPTION SCHEDULER

QUICK
18
#CRLF ,=(SP)
#1,-(SP)

8289

8292

SP.RO
14

#WRD4, (SP)
#PHR
, = (SP)
Z
#WRD
- 2,
(SP)

8293

#SAY3,-(SP)
#6,-(SP)

SP,RO
14

PC,INTEGRITY
#14,SP

;

SP,»

8295
8291
8298

DROP2
3s

8300
8302

DROP1

PC,OPT1

JSR

PC,OPT?
DROP3
43
PC,0PT3

BNE

8308
8310

8314

DROPS
6%

8316
8318

TST
BNE
TST

TST
BNE
JSR
TST
BNE
JSR

RTS

QuUICK

DROP4
PC,O0PT4

PC.OPTS
PC

8304
8306

8320
8262

FIMLBBO PERFORMANCE EXERCISER
$T1 THE OPTION SCHEDULER

29-MAR-82 13:41

4 1N
PAGE 326

SEQ 0345

sMLX&

NNNNNVNN

Hroooron

PONINS
b b

b
e
b e
—

004767
104466

006000

103773
000207

177620

T1::
18:

27-Mar-19 82 19:24 142
27-Mar-19 82 19:23: 44

THE OPTION SCHEDULER

: Routine Size:
54 words
: Maximum stack depth per

jololelalolal
A LAS LT VT, VTN

16074
16075
16076
16077
16078
16083
16084
16088
16089
16093
16094
16095
16096
16097

MACRO M1113

.SBTTL

JSR
TRAP
ROR
8LO
RTS

PC,$T1
66
RO

)
invocation:

TOPS
PA:<

6 words

THE OPTION SCHEDULER

8322

18
PC

: Routine Size:
6 words
: Maximum stack depth per

.
invocation:

0 words

CZMLBBO PERFORMANCE EXERCISER

THE

OPTION SCHEDULER

}g”? :

16133
16134
16135
16136
16137

;
;
:
;
;

16138 ;

16139 ;
16140 ;

16141
16142
16143
16144

16145
16146
16147
16148
16149

;
;
;
;
;
.
;
;
;

16150 ;

16151 ;
1615% :
16153
.
16154

16155 ;

16156
16157
16158
16159
16160
16161
16162
16163

;
;
.
;
;
;
;
;

29-MAR-82 13:41

PAGE

K1
327

SEQ 0346

16109 .MLX4

16112 ;
16113 ;
16114 ;
16115 ;
16116 ;
16117 ;
16118 ;
16119 ;
16120 ;
16121 ;
16122 ;
16123 ;
16124 ;
16125 ;
16126 ;
16127 ;
16128 ;
16129 ;
16130
16131 ;
16132 :

MACRO M1113

27-Mar-1 982 1 19:24:142
4
27-Mar-1982 19:23:4 4

END OF PASS SUMMARY
8325
8326
8327
8328
8329
6330
8331
8332
8333
8334
8335
8336
8337
8338
8339
8340
8341
8342
8343
8344
8345

8346
8347
8348
8349
8350

8351

8352
8353

8354
8355
8356
8357

8358
8359
8360
8361
8362

8363

8364
8365
8366
8367

8368

8369
8370
8371
8372
8373
8374
8375
8376

Isbttl "END OF PASS SUMMARY'
routine EOP : novalue =
begin

TOPS=-20 Bliss=16 v2 ( 2}% )

PA:<NEALE>MLX4.BLI.S

LX 3

!4+
!
ROUTINE:
EOP
!
!
PURPOSE:
TO PRINT A STATUS REPORT FOR EACH DRIVE.
IF AN
!
ARRAY HAS ANY HARD OR SOFT ERRORS, THEN ITS ERROR
!
COUNT WILL APPEAR . AND IF THE COUNT IS TOO
HIGH,
!
THEN A DIAGNOSIS TO RUN THE ML11 PROM MAINTENANC
E
!
PROGRAM WILL ALSO APPEAR.
!
!
THE FOLLOWING IS A SAMPLE REPORT FOR 2 DRIVES:
!
!
!
PERFORMANCE SUMMARY
!
1

!
!
!

!
!
!
!
!

!
!

!
!
!
!
!
!
!
!
!

!
!
!
!

!--

NUMBER OF MBYTES TRANSFERRED:
1028 MBYTES WRITTEN
250 MBYTES READ
1145 MBYTES WRITE CHECKED

LOGICAL UNIT: 0
DRIVE: 1
SOFT ERROR COUNT:
9
ARRAY
3:
9

HARD ERROR COUNT:

ARRAY 15:
3
TRANSFER RETRIES:

ARRAY
0:
ARRAY 10:

6
2

SERIAL #:

1234

LOGICAL UNIT: 1
DRIVE:
SERIAL #: 9876
DRIVE DROPPED
(CONTR?bbER FATAL ERROR)
SOFT ERROR COUNT:
ARRAY
1:
9
ARRAY 13:
1? ==> RUN ML11 PROM MAINTENANCE PROGRAM
ARRAY 14:

ARRAY 15:

HARD ERROR COUNT:
ARRAY 14:
1
ARRAY 15:
TRANSFER RETRIES:

-->2RUN ML11

PROM MAINTENANCE

PROGRAM

local
SFT_T07,
HRD_TOT,
TRY_TOT;

if .EOPSUM
then

'THE OPERATOR HAS ALLOWED THE SUMMARY TO PRINT

{

fHLBSO PERFORMANCE

EXERCISER

THE OPTION SCHEDULER

MACRC M1113

29-MAR-82

13:41

PAGE

L. n
328

SEQ 0347

16165 ;MLX4

}g}gg .
16168 :
16189 ;

8377
8378

16170 ;
16171 ;
16172 ;

8379
8380
8381

16174 ;

8383

16173

;

16175
1€176
16177
16178
16179

;

;
;
;

16180 ;

16181 :
16182 ;
16183 ;

16184

16185
16186
16187
16188
16189
16190
16191
16192
16193
16194
16195

16196
16197
16198
16199

16200

16201
16202
16203
16204
16205
168 5

;

;
;
:
;
:
;

;
;
;
.
;
;
:
;
.

;
;
;

;

16¢u? ;

16208
16209
16210
16211
16212
16213
16214
16215
16216
16217

;
;
;
;
;
;
;
;
:
;

;gs;g .

27-Mar-1982 19:24:42

END OF PASS SUMMARY

8382

8384
8385
8386
8387
8388

8389

8390
8391
8392

8393

8394
8395
8396
8397
8398
8399
8400
8401
8402
8403
8404

8405
8406
8407
8408

8409

27-Mar-1982 19:23:44

begin
PRINTB

(CRLF):;

PRINTB

(SAY1,

v 2 »

PRINTB (SAY1, PHR17):
' "PERFORMANCE SUMMARY'
PRINTB (CRLF);
PHR12);

!NUMBER OF MBYTES TRANSFERED:

PRINTB (FMT14, .WR_MILLIONS, PHR19);
!'XAXXX MBYTES WRITTEN®
PRINTB (FMT14, ke MILLIONS, PHR20):

!UXXXXX MBYTES READ®
PRINTB (FMT14, .WC MILLIONS,

PUXXXXX MBYTES WRITE CHECKED®

)
incr LUN from 0 to
begin
UNIT =

(.LSUNIT - 1) do

'n 3

_DRIVE;

if .DPR eql
then

PRINTB (FMT4A, PHR7,

else

PHR13);

''LOGICAL UNIT:

.LUN, WRD11,

DRIVE:

Y°*

SAYWHO (.LUN):

'*LOGICAL UNIT: X

DRIVE:

SERIAL #: 2222

if .DROPT_DRIVES [.LUN] eql ACTIVE
then
begin
PRINTB (SAY2, WRD11, WRD21);
!'DRIVE DROPPED

8410
8411
8412
8413
8414
8415

selectone .WHY_DROPT [.LUN] of
set

8417
8418
8419
8420
8421
8422
8423
8424
8425
8426

[CODE 2] :
PRINTB (FMT2, CAUSE2):
'
(NOT AN ML11 UNIT)®

8416

gzg;

.DRIVE)

‘x4 x

CCODE_1] :
e

PRINTB (FMT2,

CAUSE1):

(NOT POWERED UP)°®

[CODE_3] :
PRINTB (FMT2, CAUSE3);
1"
(OPERATOR SELECTED TEST LIMITS INCORRECTLY)'

[CODE 4] :
PRINTB (FMT2, CAUSE4);

(ALL RETRIES FAILED FOR A NON-FATAL ERROR)*

TOPS=20 Bliss-16 v2(21TM)

PA:<NEALE>MLX4&.BLI.S (50)

({MLBBO PERFORMANCE EXERCISER
T1 THE OPTION SCHEDULER

16221

16224

;

16225
16226
16227
16228

;
;
;
;

16229 ;

16230 :

16231
16232
16233
16234
16235
16236

;
;
;
:
;
:

16237 ;

16238 ;
16239 ;
16240 ;

16241 ;
16242 ;

;
:
;
;

16247 ;

16248 ;
16249 ;

16250 :
16251 ;
16252 ;
16253 :
16254 :
16255 ;

16256
16257
16258
16259
16260
16261
16262
16263

;
:
:
.
;
;
;

16264 ;
16265 ;

8429

nn
329

27=-Mar-1982 19:24:42

[

8436
8437
8438
8439
8440
8441

(FMT2,

CAUSE®G) ;

(DRIVE FATAL ERROR)'

[(CODE_7] :
PRINTB (FMT2, CAUSE?7):
"
(ECC HARD ERROR)'

[CODE_8]

8442

8443
8444
8445

I
tes;

8446
8447

PRINTB

(FMT2,

CAUSES) ;

(ECC LOGIC FAILURE)'

end;

8448
8449
8450
8451

v 4 x

SFT_TOT = Q;
HRDZTOT = 0:
TRY_TOT = 0;
.

8452

incr ARRAY from 0 to 15 do

8453
8454

begin
SFT_TOT = _SFT_TOT + .SOFTS [.LUN.

8455
8456
8457
8458
8459
8460

.ARRAY, 0,

16, 0];

HRD_TOT = _HRDZTOT + .HARDS [.LUN. .ARRAY. 0.
16. 0J:
TRY_TOT = +TRY_TOT + _TRIES C.LUN, ARRAY, 0,
16, 0];
end;
PRINTB (FMT7, PHRS, .SFT_TOT):
!'
SOFT ERROR COUNT: DDDDD'

8461
8462
8463
8464
8465
8466
8467
8468

16268 ;

8473

8476
8477
8478
8479
8480

!
!
!
!
!

;

[CODE 6] :
PRINTB

8435

gz;g

_S]

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>MLX4.B8L]I.S (50)

PRINTB (FMT2, CAUSES):
(CONTROLLER FATAL ERROR)'

8434

8469
8470

27-Mar-1982 19:23:44
[cope

8430
8431
8432
8433

:
:
;
;
;

PAGE

END OF PASS SUMMARY

gz;;

16271
16272
16273
16274
16275

13:41

SEQ 0348

}2529 .

;gggg ;

29-MAR-82

:MLX4

}ggg% :

16243
16244
16245
16246

MACRC M1113

if .SFT_TOT neq 0
then
.
incr ARRAY from 0 to 15 do
.
if .SOFTS [.LUN, .ARRAY, 0, 16, 0] neq 0
then
begin
PRINTS (FMT9, .ARRAY, .SOFTS [.LUN, .ARRAY, 0,
16, 01);

ARRAY XX: vyyyy'®

VER (IMLBB THE FOLLOWING CODE HAS BEEN COMMENTED
OUT BECAUSE SOFT

ERRORS
; SHOULD NOT BE COUNTED [OUARD THE CALLING OUT OF THE PROM MAINEN
ANCE PROGRAM

! NOW SEE IF THRESHOLDS FOR SOFT ERRORS
! HAVE BEEN REACHED FOR THIS ARRAY BOARD:
Y.

((.ARR_TYP eql 0) and (.SOFTS [.LUN,

-ARRAY, 0, 16, 0] gey S16K_LIMIT))

(ZMLBBO PERFORMANCE EXERCISER
THE OPTION SCHEDULER

SEQ 0349

16277 :MLX4
}2%;8 :

16311

;

8488

8489
8490
8491
8492
8493
8494
8495
8496
8497
8498

!
!

8512

16314
16315
16316
16317
16318

8515
8516
8517
8518
8519

PRINTB (FMTZ2, MSG2);

!'
==> RUN ML11 PROM MAINTENANCE PROGRAM'
end;

! NOW SEE IF THRESHOLDS FOR HARD ERRORS

! HAVE BEEN REACHED FOR THIS ARRAY BOARD:
f=!

; VER CZMLBB CHANGED TESTING HARDS [TABLE] TO TESTING PM_SBE
_CNT [TABLE]
if ((LARR_TYP egql 0) and (.PM_SBE_CNT [.LUN,
then
PRINTB (FMT2, MSG2);

.ARRAY, PM_SBES_SUM] geq H16K_LIMIT))

}gggg :

gg%g

}2%%} :

ggg%

16323 ;
16324 ;
16325 ;

; VER CZMLBB CHANGED TESTING HARDS [TABLE) TO TESTING PM_SB
E_CNT [TABLE]

8524
8525
8526

16326 ;

16327 :

16328 ;

16329 ;
16330 ;
16331 ;

8527

8529

==> RUN ML11 PROM MAINTENANCE PROGRAM'

if ((LARR_TYP eql 1) and (.PM_SBE_CNT [.LUN,
then

PRINTB (FMT2, MSG2):

8528

8530
8531
8532

16, 0] geq S64K_LIMIT))

incr ARRAY from 0 to 15 do
.
if .HARDS [.LUN. .ARRAY, 0, 16, 0] neq 0
then
.
begin
PRINTB (FMT9, .ARRAY, .HARDS [.LUN, .ARRAY,
0, 16, 01);
e
ARRAY XX: YYYYY'

8508

gg}z

.ARRAY, 0,

if .HRD_TOT neq 0
then
]

8502
8503
8504
8505
8506
8507

8509
8510
8511

if (CLARR_TYP eql 1) and (.SOFTS C.LUN,

then

PRINTB (FMT7, PHR18, .HRD TOT):
!
HARD ERROR COUNT: DDDDD®

8499
8500
8501

%2%}% H

;
:
;
;
:

==> RUN ML11 PRCM MAINTENANCE PROGRAM'

end;

==> RUN ML11 PROM MAINTENANCE PROGRAM'

PRINTB (FMT7, PHRS.

.TRY_TOT);

.ARRAY, PM_SBES_SUM] geq H64K_LIMIT))

—

16298 ;
16299 ;
16300 :
16301 ;
16302 ;
16303 ;
16304 ;
16305 .
16306 ;
16307 :
16308 ;
16309 ;
16310 :

8486

8487

————

16288 ;
16289 ;
16290 :
16291 :
16292 :
16293 ;
16294 ;
16295 ;
16296 ;
16297 ;

;

PRINTB (FMT2, MSG2);

16287 :

gzgg

then

16286 ;

!
!

WD WD e

16285 :

8481

8482
8483

TOPS-20 Bliss-16 v2(212)
PA:<NEALE>MLX4.BLI.S (50)

ER TER

}g%gz H

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

END OF PASS SUMMARY

TED TID TEP

16280 :

16281 :
16282 ;

N1
PAGE 330

29-MAR-82 13:41

MACRO M1113

——

CZMLBBO PERFORMANCE EXERCISER _

MACRO M1113

T1 THE OPTION SCHEDULER

16333 ;MLX4
}2%%2 i
.
16336 ;
16337 :
16338 ;
16339 ;
16340 ;
16341 ;
16342 ;

8533
8534
8535
8536
8537
8538

16364 ;
16365 ;
16366 :
16367 ;
16368 ;
16369 ;
16370 ;
16371 ;
16372 ;
16373 ;
16374 ;
16375 ;
1%%;9 :

8561
8562
8563
8564
8565
8566
8567
8368
8569
8570
8571
8572
gg;{

16378 :
16379 ;
16380 ;
16381 ;
16382 ;
16383 :
16384
16385 ;
16386 ;
16387 ;

T-.

27-Mar-1982 19:24:42
27-Mar-1982 19:23:44

!*
TRANSFER RETRIES: DDDDD®
.
if .TRY_TOT neq 0
then
.
incr ARRAY from 0 to 15 do

8539

8540
8541
P 8542
P 8543
8544
8545
8546
8547
8548
8549
8550
8551
8552
8553
8554
8555
8556
8557
8558
8559

PAGE 331

END OF PASS SUMMARY

16343 ;
16344 ;
16345 ;
16346 ;
16347 :
16348 ;
16349 ;
16350 :
16351 ;
16352 ;
16353 ;
16354 ;
16355 ;
16356 ;
16357 :
16358 ;
16359 ;
16360 ;
16361 ;
16362 ;

16363 :

29-flAR-82 13:41

if .TRIES [.LUN, .ARRAY, 0, 16, 0] neq 0
then
PRINTB (FMT9, .ARRAY,
+TRIES L.LUN
-ARRAY, 0, 16, 02);
1’
end;

ARRAY XX: YYYYY®

I 3 «

I+
.
‘
.
! Evamine the number of single

: bit errors detected during
! execution of the exerciser

8560

If any were detected

thus far.

! then print them out to the
! operator.
l.
.
L
:
1f .SBES_COUNT
gtr ZERO
then
7.
egin
.- PRINTB (CRLF);
< PRINTB .(SAY1, PHR21);
_ PRINTB (CRLFS;
.
PRINTB (SAY1, SBESHEADER):
ce

P 8575
P 8576
P 8577
P 8578
P 8579
8580
8581 |
8582
8583
8584

TOPS-20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.S (50)

!Print single bit log summary report
o
,
!Print the column headings

i Print to the console terminal for the
! operator review all the.detected 31ngge
: bit errors.during the execution of this
! exerciser thus far.
lI
;
.
. incr index from 0 to .SBES_COUNT - 1 do
eqin

PYRES

-t

:
!Print all errors logged in this table

PRINTB (FMT16,!This is the printing tormat
.SBE_LOG f.lndex,»UNITS SBE],
{Print the failing unit of this. sbe
-SBE_LOG [.index, BRDS_SBEJ],
{Print the failing board number
-SBE_LOG L.index, BNKS_SBE],
Print the failing bank number
-SBE_LOG L.index, BITS_SBEJ]
!Print :the failing bit number
.SBE_LOG [.index. SUMS_SBE1S;
!Print the total sbe's found
end;
-

end;.

SEQ 0350

’(ZHLBBO PERFORMANCE EXERCISER
T1

THE OPTION SCHEDULER

}gggg :

}gzgg :
164601

164605 102726
16406 102732
16407 102736
16408 102744
16409 102746
16610 102752
16611 102756
16612 102762
16413 102764
16414 102766

16415 102772

16416
16417
16418
16419
16420
16421

102776
103002
103004
103006
103012
103016

16422 103020
16423 103022
16424 103026

8585
8586
8587
8588

8589
004167
162706
032767
001002
000167
012746
012746
010600
104414
012716

012746

012746
010600
104414
012716
012746
010600

16425 103032
16426 103036

16428 103042
16429 103046

012716
016746

16430 103052

16431 103056
16432 103062
16433 10364

16434 103066
16435 103072
16436 103076

16437 103102

16438 103106
16439 103110

16440
16441
16442
16443

103112
103116
103122
103126

€12

OSAGE 332

27-Mar-1982 19:24:42

END OF PASS SUMMARY

104414
012716
012746
012746
010600

164627 103040

29-MAR-82 13:41

SEQ 0351

16389 :MLX4

16392 :
16393 :
16394 :
16395

MACRC M1113

104414

012746

012746
010600
104414

012716
016746
012746

012746

010600
104414

012716
016746
012746
012746

27-Mar-1982 19:23:44

PRINTB (CRLF):
end;

e 2 »

return;

end;
102402
000010
000001
0017644
007066

000007

010342

007072

000002

007066
000001

010202
007072

000002
010410
*31246

007046

000003

010430
131230
007046

000003

010240
131212
007046
000003

TOPS-20 Bliss-16 v2(212)

PA:<NEALE>MLX4.BLI.S (50)

e 1 «
EOP:

077312
1$:

.SBTTL

EOP END OF PASS SUMMARY

JSR
sUB
8IT
8NE
JMP
MOV
MOV
MOV
TRAP
MOV

P1,8SAVES
#10.sp
#1,EOPSUM
1$
328
#CRLF ,-(SP)
#1.-(5P)
SP.RO
14
#PHR17, (SP)

MOV
MoV
TRAP
MOV
MOV
MOV

#2,~(SP)
SP.RO
14
#CRLF, (SP)
#1,-(SP)
SP.RO

MOV

14
#PHR12, (SP)
#5Y1,=-(SP)
#2,-(SP)
SP.R0

MOV
MOV

#PHR19, (SP)
WR.MILLIONS,-(SP)

MoV
MOV
TRAP

#3,-(SP)
SP.RO
14

TRAP

MOV

MOV
MOV
MOV

MOV

MOV
TRAP

MOV
MOV
MOV
MoV

)

8326

;

8375

;

8378

;

SP,%

#SAY1,=(SP)

TRAP
MOV
MOV
MOV
MOV

;

8379

SP,%

8381

SP,#

;

8382

: SP,*
:

8384

#EMT14
- (SPS
,

; SP,«

#PHR20, (SP)
RD.MILLIONS,~(SP)
NFEMT1
- (SP}
4

SP.RO
14

; SP,+

8386

#3,=(SP)

#PHR13, (SP)
WC.MILLIONS,-(SP)
#EMT14,=(SP)
#3,-(SP)

8388

‘(ZHLBBO PERFORMANCE EXERCISER
EOP END OF PASS SUMMARY

MACRO M1113

16445

16475 103266
16476 103270

16477 103272
16478 103274

16479 103276
16480 103302

16481
16482
16483
16484
16485
16486
16487
16488
1648y
16490
16491
16492
16493

16494
16495
16496
16497
16498
16499

103304
103306
103312
103316
103320
103324
103330
103332
103334
103340
103344
103350
103354

103356
103360
103362
103366
103372
103376

:
010600
1046414
016766 076650
005005
000167
001246
010500
006300
016003
034422
016305
000006
042704
177770
142777
000007
150477
131152
032777
000400
001022
016003
034422
016346
000006
012746
007240
010546
012746
010050
012746
006216
012746
000005
010600
104414
062706
000012
000403
010546
004767
132236

010500
006200

006200
006200

062700
010046

010546
042716
012746
(05046
004767
062706
005300
001160
012746
012746
012746
012746
010600

104414
005003
156503
020327
001011
012746

034444
177770
000001

101032
000070
007322
007240
007100
000003

034446
000001
010460

000046
28:

131156
131146

3$:

48:

D.12

©iGt 333

SEQ 0352

sMLXG

}2229
16448 103132
16449 103134
166450 103136
16451 103144
16452 103146
16453 103152
16454 103154
16455 103156
16456 103162
16457 103166
16458 103172
16459 103200
16660 103204
16461 103212
16462 103214
16463 103220
14464 103224
10465 103230
16466 103232
16467 103236
16468 103242
16469 103246
16470 103250
16471 103252
16472 103256
16473 103260
16474 103262

29-MAR-82 13:41

27-Mar-1982 19:24:42

END 07 PASS SUMMARY
MOV
TRAP
MOV
CLR
JNP
MOV
ASL
MOV
MOV
BIC
BICB
BISB
BIT
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
BR
MOV
JSR

MOV
ASR

ASR
ASR

ADD
MOV
MOV
8IC
MOV
CLR
JSR
ADD
DEC
BNE
MoV
MOV
MOV
MOV
MOV
TRAP
CLR
BISB
CMP
BNE
MOV

27-Mar-1982 19:23:44

SP.RO
14
LSUNIT,46(SP)
RS
278
RS.RO
RO
PTAB
. ADDR(R
LE
O) ,R3
6(R3) R4
#1777%0.R4
#7.aML.REG+10
R&4.aML.REG+10
#400,3ML .REG+12
3$
PTABLE.ADDR(RO) ,R3
6(R3) ,~(SP)
#RD11,~(SP)
RS,=(SP)
#PHR7,~ (SP)
NEMT4A
=~ (SP)
#5.-(SP)
SP.RO
14
#12.SP
4$
RS,~(SP)
PC.SAYWHO

;

TOPS

PA:<

SP,v

:
: LUN

8391

8393

LUN,#

8395

8397

: LUN,*

RS.RO
RO

;

SP,«

;
:

LUN,*

8395
8400

; LUN,*

8404

RO
RO

#DROPT.DRIVES,RO
RO,~(SP)
RS, ~(SP)
177770, (sP)
#1,-(SPS
-($P)
P( .BLSGT?
#10.sp
RO
143
#URD21,~(SP)
MRD11.-(SP)
#SAY2,=(SP)
#3,-(5P)
SP.RO
14
R3
WHY.DROPT(RS),R3
R3.#1
58
#CAUSE1,~(SP)

;

LUN,*

8407

; SP,«

;
:
:

v (LUN,*
)

8410

8414

iEOP END OF PASS SUMMARY

(ZMLBB
O PERFORMANCE EXERCISER
z

16501

16504

;

103400

012746

16505 103404

019746

16507 103412

104614

16508 103410 010600
16508 103414
16509 103416
16510 173422
16511 1.,3456
16512 103430
16513 103434
16514 103440
16515 103442
16516 103444
16517 103446
16518 103452
16519 103454

16520 103460

000523
020337
001011
012746
012746
012746
010600
104414
000507
020327
001071
012746

012746

006160

000002

S$:

010502
006160
000002

000003

010526
006160

16522 103470
16523 103472
16524 103474
16525 103476
16526 103°92
16527 107504
16598 10,510
16529 103514

16530 103520
16531 103522
16532 103524
16533 103526
16534 103532
16535 103534
16536 103540
16537 103544
16538 103550
16539 103552

16540 103554
16541 103556
16542 103562
16543 103564
16544 103570
16545 103574
16546 103600
16547 103602
16548 103604
16549 103606

103612
103614
103620
103624
103630
103632

010600
104414
000473
020327
001011
012746
012746
012746

010600
104414
000457
020327
001011
012746
012746
012746
010600
104414

000443
020327
001011
012746
012746
012746
010600
104414
000427
020327

001011
012746
012746
012746
010600
104414

000004

000005

010656
006160
000002
‘
000006

98:

010710
006160
000002

000007
010734
006160
000002

108:

27-Mar-1982 19:24:42

TRAP

BR
(MP
BNE
MOV
MOV

128
R3.A2
68
WCAUSE2,-(SP)
W#EMTZ.=(SP)
#2,-(5P)
SP.RO
14
128
RS.A3
7%
#CAUSE3,-(SP)

BR
(M
BNE

MOV
TRAP
BR
M
BNE
MOV
MOV
MOV

MOV
TRAP
BR
(M
BNE
MOV
MOV
MOV
MOV
TRAP

BR
(M
BNE
MOV
MOV
MOV
MOV
TRAP
BR
(M

BNE
MOV
MOV
MoV
MOV
TRAP

27-Mar-1982 19:23:45

T0PS

PA:<

WEMT2,-(SP)

MOV

010602
006160
000002

SEQ 0353

334

#2,-(5P)

MOV
MOV

7$:

E_12

MOV

MOV
MOV
TRAP

6s:

PAGE

END OF PASS SUMMARY
MOV

000002

16521 103464 012746 000002

16550
16551
16552
16553
16554
16555

29-MAR-82 13:41

JMLXG

16502
.

MACRO M1113

SP.RO

: SP,e

#2,-(5P)

SP.RO
16
128
RS,
8%
#CAUSE4,=(SP)
#EMT2,-(SP)
#2,-(5P)

128
RS,46
10§
#CAUSEG,=(SP)
NEMT2,-(SP)
#2,~(5P)
SP.RO
14
128
R3.7

11§
#CAUSE7,-(SP)
#FMT2,-(SP)
#2,-(5P)
SP.RO
T4

8410

;

8418

WEMT2,-(SP)

SP.RO
14
128
R3S
9%
#CAUSES,=(SP)
#EMTZ.-(SP)
#2,-(3P)
SP.RO
14

;

SP.

;

8410

;

8622

SP,w

;

8410

8426

: SP,w
:

8410

;

8430

R
:
:

8410

‘

8434

; S,
;

8410

8438

C7MLBBO PERFORMANCE EXERCISER
EOP END OF PASS SUMMARY

MACRO M1113

16567

ZMLX4
:
103634
103636
103642
103644
103650
103654
103660
103662

16568 103664
16569 103670
16570 103674
16571 103700
16572 103704
16573 103710
16574 103712
16575 103714
16576 103716
16577 103720
16578 103722
16579 103724

16580 103726
16581 103730
16582 103732
16583 103734
16584 103742
16585 103750
16586 103756
16587 103760

16588 103764

16589 103766
16590 103772
16591 103776
16592 104002
16593 104006
16594 104070
16595 104012
16596 104016

16597 104020
16598 104022
16599 104024
16600 104026
16601 104030
16602 104034
16603 104036
16604 106040
16605 104042
16606 106046
16607 104052
16608 104054
16609 104056
16610 104062
16611 106064

000413
020327
00 012
012746
012746
012746
010600
104414

062706
062706
005066
005066
005066
010500
006300
006390
006300
006300
010004
005002

010403
060203
006303
066366
066366
066366
005202
020227

003760

016616
012746
012746
012746
010€00
104414
00576C
001425

005002
010403
060203
006303
016303
001412
010346
010246
012746
012746
010600
1064414
062706
005202
020227

000010

118:

010756
006160
000002

000006
000010
000046
000044
000042

128:
138
148

158:
032714
033314
033714

000046
000044
000042

000017

000054
_
168.
032714

006534
000003

000017

8R
CMP
BNE
MOV
MOV
MOV
MOV

TRAP

ADD
ADD
CLR
CLR
CLR
MOV
ASL
ASL
ASL
ASL
MOV
CLR

128
R3,#10
13§
#CAUSES., - (SP)
NFEMT2
- (SP)
#2.-(SP)
SP.RO

#6,SP
#10,sP
46(SP)
44 (SP)
42(SP)
RS,RO
RO
RO
RO
RO
RO,R4
R2

R4 ,R3
R2.R3
R3
SOFTS(R3),46(SP)
HARDS (R3) .44 (SP)
TRIES(R3).42(SP)
R2
RO 417

MOV
MOV
MOV
MOV
MOV
TRAP
ST
BEQ

46(SP), (SP)
#PH
, =RS
(SP)
#EMT7.<(SP)
#3,-(SP)
SP.RO
14
54(SP)
188

CLR
MOV
ADD
ASL
MOV
BEQ
MOV
MOV
MOV

TRAP
ADD
INC
cmp

15$

R2
R4 .R3
R2.R3
R3
SOFTS(R3
,R3
)
178
R3,~(SP)
R2.~(SP)
NFMTS,
- (SP)
#3,-(SP)
SP.RO
14
#10,5P
R2
R2.#17

TOPS
PA: <

8410

8442

;

MOV
ADD
ASL
ADD
ADD
ADD
INC
CMP

MOV
MOV

178

27-Mar-1982
19:24:42
27-Mar-1982 19:23:44

END OF PASS SUMMARY

BLE

000046
010004
006446
000003

000010

F 12
PAGE 335
SEQ 0354

16557
‘}gggg
16560
16561
16562
16563
16564
16565
16566

29-MAR-82 13:41

SP*

:
* SFT.TOT
: HRD.TOT
: TRY.TOT
: LUN,*

8406
8445
8449
8450
8454

: ARRAY

8452

:
: ARRAY,*

8454

: «,SFT.TOT
: «.HRD.TOT
: =, TRY.TOT
* ARRAY
* ARRAY,+

8455
8455
8452

: SFT.TOT,*

8459

SP,w

: SFT.TOT
: ARRAY
:
: ARRAY,«

;
: ARRAY,*
:

8462
8465
8467

8470

SP,w

:
¢ ARRAY
; ARRAY,+

8469
8465

(ZMLBBO PERFORMANCE EXERCISER
EOP END OF PASS SUMMARY

MACRO M1113

SMLXG
;

16616 104070
16617 1064072

16618 104076
16619 106102
16620 104106
16621 104112
10622 1061146
16623 104116
16694 104122
16625 104124

16626 104126
16627 104130
16628 1064132
16629 106136
16630 104140
16631 106142
16632 104144
16633 104146
16634 104152
16635 104156
16636 104160
16637 104162
16638 104170
16639 104172
104200
104202
104206
104212
104216

16645 104220
16646 104222

16647 104226

003754
016616

012746
012746
012746
010600
104614
005766
001471
005001

010403
060103
006303
016302
001456
010246
010146
012746
012746
010600
106414

032777
001016
026327

002412
012746
012746
012746
010600

104414
062706

032777

16648 106236
16649 104236
16650 106244
16651 104246
16652 106252
16653 104256
16654 104262
16655 104264
16656 104266
16657 106272
16658 104276
16659 104300
16660 104304
16661 104306
16662 106312
16663 104316
16664 104322
16665 104326

001416
026327
002412
012746
012746
012746
010600
104414
062706
062706
005201
020127
003710
016616
012746
012746
012746
010600

16667 104332

005766

16666

104330

104414

000052

18$:

010366
006446
000003
000060

198:
033314

006534
000003

002000

130202

012264

000012

130136

208:

000012

011120
006160
000002
000006
000010
000017
000056

010026
006446
000003

000064

BLE
Mov

MOV
MOV
MoV
MOV
TRAP
TST
BEO
CLR

PAGE

6. 12
336

218:
228:
238:

168
52(SP), (SP)

#PHR18,-(SP)
NEMT7,<(SP)
#3,-($P)
SP.RO
14
60(SP)
238
R1

R4 ,R3
R1.R3
R3
HARDS (R3) ,R2
228
R2,=(SP)
R1.=(SP)
#FRTY,
- (SP)
#3,-(*p)
SP.RO

BIT
BNE
CMP

#2000, ML . REG+24
208
PM,SBE.CNT(R3
412
)

TRAP
ADD

BIT

HRD.TOT,»

;

SP.e

HRD.TOT

ARRAY

8504

#2000,

64 (SP)

8499

;
* ARRAY,

;

8496

8501

8516

14
#6,SP

ML . REG+24

8493

:
* ARRAY,

208
#MSG2,-(SP)
NEM
.-T2
(SP)
#2.-(5P)
SP.RO

218
PM, SBE.CNT(R3)
,#12
21%
#MSG2,~(SP)
#FE.MTS
~(SP)
#2,-($p)
SP.RO
14
#6, SP
#10,sp
Ri
R1,417
19§
S6(SP), (SP)
#PH
=RG
(SP)
NEM
.-T7
(SP)
#3,-($P)
SP.RO

TOPS
PA:<

: SP,%

BEQ
cTMP
BLT
MOV
MOV
MOV
MoV
TRAP
ADD
ADD
INC
(MP
BLE
MOV
MOV
MOV
MOV
MOV
TRAP

27-Mar=1982 19:24:42
27-Mar-1982 19:23:44

PASS SUMMARY

MOV
ADD
ASL
MOV
8EQ
MOV
MoV
MOV
MOV
MOV

BLT
MOV
MOV
MoV
MoV

000006

01.264

END OF

TRAP

011120
006160
000002

002000

13:41

SEQ 0355

16613
}gg}g

16640
16641
16642
16643
16644

29-MAR-82

8518

SP.e

8525

:
:

8527
SP,w

:
* ARRAY
¢ ARRAY,®

850%
8499

TRY.TOT,«

8532

;

SP,*

TRY.TOT

8535

(ZMLBBO PERFORMANCE EXERCISER

EOP END OF

PASS SUMMARY

MACRC M1113

29-MAR-82

1064346

Y =09
WA = OO

NOM A B

SN YYINYY 23y
RN

D e e

) b—

OO0
OO oo

d —b

£3

23 &%

OO0

—d

b o

§3E8g\fl%

bk o

106350
106356
1064356
104360
104362
104366
104372
1064374
104376
104402
106606
104410
104612
1044616
16691 104420
1044624
106426
16694 104432
104436
104440
16697 106444
16698 104450
16699 1064452
16700 104454
16701 106460
16702 106464
16703 104470
16704 104472
16705 1064474
16706 104500
16707 104504
16708 104506

106510
104514
1064520
104524
104526
104530
104534
104536
1064540
1064542
1064544
104546
1064552
104556
106560

001425
005002
010403
060203

006303

016303
001412
010346
010246
012746
012746
010600
1046414
062706
005202
020227
003754
062706
005205
020566
002002
000167
005767
003517
012746
012746

010600

104414
012716
012746
012746

010600
104414
012716
012746
010600
104414
012716
012746
012746
010600
104414
016705
005002
000453
010203
006303
006303
016346
062703
011304
006204

248

006534

000003

000010
000017

END OF

258:

000024

26%:

000046

27%:

176520
106226

28s:

007066
000001

007065
000001
006042
007072
000002
106130

29%:
011266
011264

337

MoV
BEQ
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
INC
cMP
BLE
ADD
INC
cmp
BGE
JMP
187
BLE
MOV
MOV

TRIES(R3
,R3
)
25%
R3,-(5P)
R2,=(SP)
N#EMT9,
- (SP)
#3,-(SP)
SP,RO
14
#10,sP
R2
R2,#17
248
#24,SP
RS
R5,46(SP)
28%
28
SBES. COUNT
318
#CRLF ,-(SP)
#,-(SP)

TRAP
Mov
MoV
MOV

14
#PHR21, (SP)
#SAY1,-(SP)
#2,~(SP)

MoV
TRAP
MOV
MOV
MoV
TRAP
MOV
MoV
MOV
MOV
TRAP
MOV
CLR
8R
MoV
ASL
ASL
MOV
ADD
MOV
ASR

27-Mar-1982 19:2
124:42
27-Mar-1982 19:2 3:44

PASS SUMMARY

26%
R2
R4 ,R3
R2.R3

MOV

005662
007072
000002

H 12

BEQ
CLR
MoV
ADD

ASL

033714

PAGE

SEQ 0356

sMLXG
106336
104340
1064342
106344

13:41

;

ARRAY

ARRAY,«

ARRAY
,«

SP‘.

;

ARNAY

LUN

; ARRAY,
«

8544

8538
8392
8391

8558

8561

SP,RO

SP RO
14
#CRLF, (SP)
#1,-(SP)
SP.RO
14
#SBESHEADER, (SP)
#SAY1,-(SP)
#2,-(SP)
SP,RO
14
SBES.COUNT RS
R2
308
R2,R3
n3
R3
SBE.LOG+2(R3) ,~(SP)
#SBE.LOG,R3
(R3) R4
Ré

TOPS

PA:<

SP‘.

8562
.

SP’.

8563
.

SP.'

8564
.

SP..

INDEX

INDEX,*

8573

8580

(ZMLBBO PERFORMANCE EXERCISER

EOP END GF PASS SUMMARY
16725

104562
104564
104566
104570

16732 104572
16733 104576

16734 104600

16735

16736
16737
16738
16739
167240
16741
16742

16743
16744
16745
16746
16747
16748
16749
16750

16751

104602

104606
104610
106612
1066146
104616
1064622
104624

104626
104630

104632
104636
104636
104642
106644
104650

104654

006204
006204
006204
006204

006204
042704

010446
062716
111304
006204
006204
042704
010446
011304

0061046
006104
006104
006104
042704
010446
012746
012746

010600

16752 104656
16753 104660

104414
062706

16755
16756
16757
16758
16759
16760
16761
16762
16763
;g;g;

020205
002723
062706
012716
012746
010600
104414
062706
062706
000207

16754 104664

16766
}g;gg

104666
104670
104672
104676
104702
106706
104710
104712
104716
104722

ASR

005202

177774

R
#177600,R4

MOV8

(RS)

8IC
MOVB
ASR
ASR
BIC
MOV
MOV

177760

ROL
ROL
ROL
ROL
BIC
MOV
MOV
MoV

177770
005736
000006

MOV
000016

308:
000016
007066
000001

000042
000010

31$:

328:

R4
R4
Ré
R

ASR
BIC

MOV

111346

27-Mar-198 2 19:24 142
27-Mar-198 2 19:2 3:44

END OF PASS SUMMARY
ASR
ASR
ASR

177600

PAGE £38

SEQ 0357

{

29-MAR-82 13:41

;MLXG

]2;59
16728
16729
16730
16731

MACRC M1113

Ré,~(SP)

=(sp:

#177874.,(SP)
(R3),R4
R
R4
#177760,R4
R&,~(SP)
(R$) R

R4
R4

Ré
Ré
#177770.R4
R4, ~(SP)
#EMT16,~(SP)
#6,-(SP)

SP.RO

TRAP
ADD

14
#16,5P

CMP
BLT
ADD
MmOV
MOV
MOV
TRAP
ADD
ADD
RTS

R2,RS
29¢
#16,3P
#CRLF, (SP)
#1,-(SP)
SP.RO
14
#42,5P
#10.SP
PC

INC

* INDEX

: Routine Size:
511 words
A
; Maximum stack depth per invocation:

SP'.

40 words

INDEX,*

;

SP,»

TOPS
<
PA:

LZMLBBO PERFORMANCE EXERCISER

EOP END OF PASS SUMMARY
16775 JMLXG

16776 ;
16777
16778 ;.
16779 :.
16780 :.
16781 :;
16782 :.
16783 :;
16784 :
16785 :;
16786 ;.
16787 :.
16788 :
16789 :;
16790 :;
16791 :;
16792 ;;
16793 H;
16794 ;;
16795 :;
16796 :;
16800

104724
104730

—

_a-a_.._.;_.-a—.—a_n

OO PO
O
0o 0o 00 0o 0o 0000 00 00 00 0o 00 00 0o 0o

LIS
LN V1,V i Pt utr Pt Bt o ot Pty P4
SN
=O VWO
NN —O

104736
104740
104744
1064750
104754
104760
104764
104766
104770
104772
104776
105002
105006
105012
105016
105020
105022
105026
16825 105032

16826
16827
16828

MACRO M1113

29-MAR-82 13:41

PAGE i39

SEQ 0358
TOPS-20 Bliss=16 v2(2

CLEANUP CODING SECTION

8590
8591
8592
8593
859
8595
8596
8597
8598
8599
8600
8601
8602
8603
8604
8605
8606
8607
8608

ENDCLN;

005267
026727

125754
125750

001015
012746
012746
012746
012746
012746
010600
104414
000414
016746
012746
012746
012746
012746
010600
104414
004767
062706
000207

PA:<NEALE>MLX4.BL].

Isbttl °CLEANUP CODING SECTION'
?GNCLN;
+»

i THE CLEANUP CODING SECTION IS EXECUTED AFTER

;

EACH PASS THROUGH THE EXERCISER.

EOP_COUNT = .ECP_COUNT + 1;
if .EOP_COUNT eql 1
then
L
else

PRINTB

(SAY3,

WRD3,

PHR2, WRD4)

PRINTB

(FMT3,

WRD3,

WRDG,

'*END QUICK VERIFY PASS'

-EOP_COUNT);

!7«x END PASS XX =t
EOP ():
return;

000001

LCLEAN:

007212
007730
007206
007112
000004

.SBTTL
INC
gz:

LCLEAN CLEANUP CODING SECTION
EOP. COUNT
;gp.couur.c1

MOV
MOV
MOV
MOV
MoV

#WR
, =DG
(SP)
#PH
.~R2
(SP)
MOR
.~D3
(SP)
#SA-Y3
(SP)
#%,-($P)

Moy

TRAP

125706
007212
007206
006166
000004
175700

000012

18:

28:

B8R

MOV
MOV
MOV
MOV
MOV

MOV
TRAP
JSR

ADD

RTS

: Routine Size:
;

SP,RO

SP"

8598
8603

EOP.COUNT,-(SP)
NWR
, -DG
(SP)
#WR
.~D3
(SP)
NFMT3.
- (SP)
#4,-(5P)

SP.RO
14
PC,EOP

8606
8589

#12.5P
PC

36 words

Maximum stack depth per

SP'.

)

invocation:

5 words

NOOOIANN
= O OO0 N

Vi VA
ad 22

Qo 0o 0000

;—a—a;—a—a__.—l_n—t
[eadoadal
aloo oo
N

(ZMLBBO PERFORMANCE EXER cl ?ER
’L(LEAN CLEANUP CODING SE CTION

004767

104412
000207

105050

000000
000000
105050
000000

000207

29-MAR-82 13:41

PAGE

K 12
340

SEQ@ 0359

.SBTTL

LSCLEAN CLEANUP CODING SECTION

JSR

PC.LCLEAN

LSCLEAN::

177664

TRAP
RTS
:
:

8609
8610
8611

105052
105052

MACRC M1113

12
PC

Routine Size:
4 words
Maximum stack depth per

.
invocation:

8607

0 words

LASTAD;
BGNSETUP (0);
ENDSETUP;

BLSLAS::.WORD
LWORD

TSFREE : : .WORD

TSFREE

<<KTSFREE=-<BLSLAS+4>>/2>

LSLAST==
T$PTHY==
.SBTTL
SEND.LINK::
RTS

;

Routine Size:

BLSLAS+4
0
SEND.LINK CLEANUP CODING SECTION
PC
1

8608
word

(ZMLBBO PERFORMANCE

EXERCISER

SEND.LINK CLEANUP CODING SECTION

MACRC M1113

29-MAR-82

13:41

PAGE

L 12
341

SEQ 0360

16886
}2%3;

JMLX&
;

16889

; Maximum stack depth per invocation:

16894
16895
16896 .
16897 ;
16898 .
16902

: OTS external references
-GLOBL
BLSGT2, $SAVES, $SAVE4L, $SAVE3

16905
16906

-GLOBL
.GLOBL

Setsnsnen,

h e

O N S

b d b
b

NO QO

b
b
D
ek
b e
d

NND —

b =D —d

16907
16908
16909
16910

b d

0 words

8612
8613
8614

16903
16904

oo oocoorOONO
00 0O
0OV OO0

27-Mar=1982 19:24:42
27-Mar-1982 19:23:44

CLEANUP CODING SECTION

000001

Size:

Run Time:

$SAVE2, BLSPU2, BLSSHF, BLSDIV
BLSMOD, BLSMUL

10337 code + 5852 data words

01:43.8

Elapsed Time: 02:08.4

Hemoc{ Used:
161 pages
Compilation Complete

.END

T0PS
PA:<

(IMLBBO PERFORMANCE EXERCISER
SYMBOL TABLE

AdF

= 000020 G

AS-E4B8= 000010

BANK
BASE.A
BIT.NU
BITO
=

034344
032706
012666
000001 G

BITO0 = 000001 G

BITO1 = 000002 G
BITO2 = 000004 G
BITO03 = 000010 G
BITO4 = 000020 G
BITO5 = 00004C G
BIT06 = 000100 G
81707 = 000200 G
BI1708 = 000400 G
BIT09 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
BIT15 = 100000 G
BIT2
= 000004 G
BIT3
= 000010 G
BIT4
= 000020 G

BITS
BIT6
BIT7
BIT8
BIT9

BL$DIV
BLSGT1

=
=
=
=
=

BLSGT2

3LSLAS
BLSMOD

BLSMUL
BLSPU1
BLSPU2
BLSSHF

BOARD
BOE
=
BR.LEV
CAUSE1=

CAUSEZ2=
CAUSE3=
CAUSE4=
CAUSES=

000040 G
0CI100 G
000200 G
000400 G
001000 G
005170 G
004234 G
004356 G
105044 G
005202 G
004744 G
004520 G
004614 G
005214 G

034342
000400 G
032712
010460

CSAU_

MACRO M1113

= 000052

($BRK =
($8SEG=
($8suB=
CSCEFG=

000022
000004
000002
000045

C$CLCK= 000062

CSCLEA= 000012
($CLOS= 000035
C$CLP1= G00006
($CVEC= 000036
CSDCLN= 000044
C$DODU= 000051
CSDRPT= 000024
C$DU
= 000053
CSEDIT= 000003
C$ERDF= 000055
CSERHR= 000056
CSERRO= 000060
CSERSF= 000054
C$ERSO= 000057
(SESCA= 000010
CSESEG= 000005
CSESUB= 000003
CSETST= 000001
C$EXIT= 000032

C$GETB= 000026
CSGETW= 000027
CSGMAN= 000043
C$GPHR= 000042
C$GPLO= 000030
C$GPRI= 000040
C$INIT= 000011
C$INLP= 000020
CSMANI= 000050
CSMEM = 000031
CSMSG = 000023
C$OPEN= 000034
CSPNTB= 000014
CSPNTF= 000017
000016
000015
000377
000007

DIvMOD

DOUBLE

DRIVE.
DROPNE
DROPT.
DROP1

DROP2

005006

044326

034442
002234
034444
002236

G
G
G
G

002240 G

ERRTYP 002172 G
EVL
= 000004 G
ESEND = 002100
ESLOAD= 000035
FILLER
041266
FMT1A = 006126
FMT18 = 006142
FMT10A= 006564
FMT108= 006640
FMT11 = 006654
FMT12A= 006710
FMT12B= 006756
FMT13 = 007024
FMT14 = 007046

FMT15
FMT16
FMT2
FMI3

=
=
=
=

007060
005736
006160
006166

CSREFG=
CSRESE=
CSREVI=
CSRFLA=

000047
000033
000003
000021

FMT4A =
FMT4B =
FMT4C =
FMI5
=

CAUSE?= 010734
CAUSEB= 010756
CheCK
046000
CHOOSE
046166
CLRTBL
034554
COMP.C
032702
CONFIG
036002
(RLF
= 007066

C$SEFG=
C$SPRI=
C$SVEC=
C$TPRI=
DATA.C
DECODE
DFPTBL
DIAGMC=

000046
000041
000037
000013
032700
037176
002210 6
000000

FMI7 = 006446
FMT8 = 006466
FMT9 = 006534
FSAU_ = 000015
F$AUTO= 000020
F$BGN = 000040
FSCLEA= 000007
F$DU = 000016

CSRPT = 000025

FSEND = 000041

DROP3
002242 G
DROPS
002244 6
DROP5
002250 G
ECCDIS
002254 G
EFNS21
002262 G
EF.CON= 000036 G
EF .NEW= 000035 G
EF.PWR= 000034 G
EF .RES= 000037 G
EF.STA= 000040 G
END.RB= 032670
END.W8= 022670
EOP
102726 G
EOPSUM
002256 G
EOP.CO
032704
ERRBLK
002200 G
ERRMSG
002176 G
ERRNBR
002174 G
ERROUT
002260 G

010502
010526
010602
010656

CAUSE6= 010710

" 12
PAGE 341-1

SEQ 0361

CSAUTO= 000061

C$PNTS=
C$SPNTX=
($Q10 =
CSRDBU=

29-MAR-82 13:4]

FMT6

006216
006252
006270
006320

= 006376

ISHRD = 000041

FSHARD= 000004

F$HW
=
F$INIT=
FSJMP =
FSMOD =

ISINIT= 000041

000013
000006
000050
000000

ISMOD =
ISMSG =
1$PROT=
ISPTAB=

FSMSG = 000011

ISPWR = 00004

FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
FSSEG = 000003
F$SOFT= 000005
FSSRV = 000010
F$SUB = 000002
F$SW
= 000014
FSTEST= 000001
GEN1
040732
GENZ
041432
GEN3
041466
GEN4
0641564
GENS
041620
GETCNT
0641106
GET.WR
047176
GSCNTO= 000200
GSDELM= 000372
GSDISP= 000003

ISRPT = 000041
ISSEG = 000041
I$SETU= 000041
ISSFT = 000041
ISSRV = 000041
I1$SUB = 000041
ISTST = 000041
1.AM.D
034336
JSJMP = 000167
LAV
005650
LAUTO
005504
LCLEAN
104724
LDU
005516
LIMIT
002222
LINIT
040474
LOE
= 040000
LOT
= 000010
LOW.SE
034460
LRPT
005466

GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO_
= 000000
GSOFFS= 000400

LSECT
LSACP
LSAPT
LSAU
LSAUT
LSAUTO
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP

GSOFSI= 000376
GSPRMA= 000001

GSPRMD= 000002

GSPRML= 000000
GSRADA= 000140

GSRADB= 000100
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020

GSXFER=
GSYES =
HARDS
HELP
=

HOE
IBE
IDU
IER

INIT.A

=
=
=
=

INTEGR
ISOLAT
ISR
=
IXE
=
ISAU_ =
I$AUTO=
ISCLN =
I$DU =

000004
000010
033314
000000

100000
010000
000040
020000
035206

000041
000041
000040
0000¢4*

G
G
G
G

047232
037332
000100 5
004000 G
000041
000041
000041
000041

LSDLY
LSDIP
LSDTYP
LS$DU

LSDUT
LSDVTY
LSEF
LSENVI

LSERRT

LSETP
LSEXPT
LSEAPSG
LSEXP5
LSHARD
LSHIME
LS$HPCP
LSHPTP

G
G
G

002226 G
002110 G
002036 G
005652 6
002070 G
005506 G
002106 G
105034 G
002032 6
002011 G
002130 G
002076 G
002060 G
002204 G

002116
002040
002034
005640

002072
002122
002052
002044

G
G
G
6

G
G
G
G

002172 G

002102 G
002046 G
002064 G
002066 G
002266 G
002120 G
002016 G
002022 G

(ZMLBBO PERFORMANCE EXERCISER
SYMBOL TABLE

LSHW
002210 G
LSICP_
302104 G
LSINIT
060722 G
LSLADF
002026 G
LSLAST= 105050 6
LSLOAD
002100 G
LSLUN
002074 G
LSMREV
002050 G
LSNAME
002000 G
LSPRIO
002042 G
LEPROT
004126 G
LSPRT
002112 G
LSREPP
002062 G
LSREV
002010 G
LSRPT
005474 G
LSSOFT
002450 G
LSSPC
002056 G
LSSPCP 002020 G
L$SPTP 002024 G
LESTA
002030 G
LSSW
002222 6
LSTEST
002114 G
LSTIML
002014 G
LSUNIT 002012 G

L10000
L10001
L10002
L10003

MARPAT
MLB10 =
MLB11 =
MLB12 =
MLB13 =

002220
002264
002332
002664

002246 G
007472
007500
007504
007510

MLB14 = 007514
MLB15 = 007520
MLB16 = 007524
MLB17 = 007530
MLB18 = 007534
MLB19 = 007542
MLB2
= 007430
MLB20 = 007550
MLB21 = 007554
MLB22 = 007560
MLB23 = 007564
MLB24 = 007570

MLB3

MLB4
MLBS
MLB6

MLB?
MLBR

MLBY

= 007434

= 007440
= 007444
= 007450

= 007454
= 007460

= 007464

ML.REG
M5G0
=
MSG1
=
MsG2
=
MSG3
=

034346 6
011002
011070
011120
011166

MACRO M1113

MSG4
= 011202
MSG5
= 011216
NUM.DR
034456 G
ONEFIL= 000001
ONLY
002232 6
oPT1
051460
OPT2
054054
OPT3
060052
OPT4
062444
OPTS
102272
0$APTS= 000001
0$AU = 000001
0$BGNR= 000001
0$8GNS= 000001
0$DU = 000001
OSERRT= 000001
O0SGNSW= 000001
0$POIN= 000001
OSSETU= 000001
PATTBL
034520 G
PATTER
032676
PHR1
= 007714
PHR10 = 010120
PHR11 = 010140

PHR12
PHR13
PHR14
PHR15

= 010202
= 010240
= 010266
= 010304

PHR16 = 010322
PHR17 = 010342
PHR18 = 010366
PHR19 = 010410
PHRZ
= 007730
PHR20 = 010430
PHR21 = 005662
PHR3
= 007746
PHR4
= 007770
PHRS
= 010004
PHR6
= 010026
PHR?
= 010050
PHR8
= 010066
PHRY = 010100
PM.SBE
012264
PNT
= 001000 6
PRI
= 002000 G

PRIOO = 000000 G

PRIO1 = 000040 G
PRI0O2 = 000100 G
PRIO3 = 000140 G

29-MAR-82 13:41

SEQ 0362

P.AAD
P.AAE
P.AAF
P.AAG
P.AAH
P.AAl
P.AAJ
P.AAK
P.AAL
P.AAM
P.AAN
P.AAD
P.AAP
P.AAQ
P.AAR
P.AAS
P.AAT
P.AAU
P.AAV
P.AAW
P.AAX
P.AAY
P.AAZ
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
P.ABU
P.ABV

P.ABW

P.ABX
P.ABY
P.ABZ

PR104 = 000200 G
PRIOS = 000240 6

P.ACA
P.ACB

PRIO7 =
PTABLE
P.AAA
P.AAB
P.AAC

P.ACD
P.ACE
P.ACF
P.ACG
P.ACH

PRIO6 = 000300 G
000340 G
034422 G
005662
005736
006042

N 12
PAGE 341-2

P.ACC

006126
006142
006160
006166
006216
006252
006270
006320
006376
006446
006466
006534
006564
006640
006654
(0067.0
006756
007024
007046
007060
007066
007072
007100
007112

007130
007152
007200
007206

007212
007220
007230
007240
007246

007256
007264
007272
007300
007312

007322
007332
007336
007344
007354
007370
007400
007412
007416
007424

007430

007434
007440

007444

007450
007454
007460
007464
007472

P.ACI
P.ACJ
P.ACK
P.ACL
P.ACM
P.ACN
P.ACO
P.ACP
P.ACQ
P.ACR
P.ACS
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
P.ADH
P.ADI
P.ADJ

P.ADK
P.ADL
P.ADM
P.ADN
P.ADO

007500
007504
007510
007514
007520
007524
007530
007534
007542
007550
007554
007560
007564
007570
007574
007626
007634
007642
007650
007656
007664
007672
007700
007706

007714
007730
007746
007770

P.ADP
P.ADQ
P.ADR
P.ADS
P.ADT
P.ADU
P.ADV
P.ADW
P.ADX
P.ADY
P.ADZ
P.AEA

010004
010026
010050
010066
010100
010120
010140
010202
010240
010266
010304
010322
010342
010366
010410
010430
010444

P.AEC
P.AED
P.AEE

010450
010454
010460

P.AEB

P.AEF
P.AEG

P.AEH

P.AEI
P.AEJ
P.AEK
P.AEL
P.AEM

010446

010502
010526

010602

010656
010710
010734
010756
011002

P.AEN
P.AEO
P.AEP
P.AEQ
P.AER
QH1
QH2
QH3
QH4
as1
Qs10
Qs11
Qs12
Qs13
Qs14
Qs15
Qs16
Qs17
Qs2
Qs3
asé
Qss
asé
as7

011070
011120
011166
011202
011216
002332
002351
002374
002425
002664
003534
003554
003637
003657
003724
003763
004030
004066
002732
¢n3007
003047
003107
003147
003454

0s8
as9
QUICK
RANDOM

003474
003514
032674
005464 G

RE4

005356

RAND1
070540
RAND2
073124
RAND3
075644
RAND4
100006
RANGE
002224 G
RBUFF
022670
RIBUFF= 023670
RDBUFF= 022670
RD.COU 034322
RD.MIL
034326
RD.THO 034324
READ
045612
REFRES
002252 6
RETRY
046224
RETRYI
034340
REZ
005362
RE3
005360

RN
RNDSEC
RNDU

RNDWC
RPTR

RINO

RIN1
RIN2
RIN3
RING
RINS

005370 6
070240

070336

070204
032672

= 007574

=
=
=
=
=

0076%6
007634
007642
007650
007656

(IMLBBO PERFORMANCE EXERCISER
SYMBOL TABLE

MACRO M1113

RINSA =
RINSB =
RINSC =
RINSD =

SVCSL8=
SVCTAG=
SVCTIST=
SYSERR

000001
000001
000001
041710

TSNS1 =
T$PTHV=
TSPTNU=
I$SAVL=

TOP.SE
TRIES

034500 G
033714

T$SUBN= 000000
TSTAGL= 177777

SAYWHO

SAY1
SAY2

SAY3

SAY4

007664
007672
007700
007706

035524

SSLSYM= 010000

= 007072
= 007100

= 007112

TRT00 = 010444

= 007130

SAYS

= 007152

SBES.C

012664

TRT01

SEEDT

SEEDZ2

TRT11

TSECT

011264

. ABS.

105054

000000
ERRORS DETECTED:

002230 G

T$CODE= 020130

005460 G

005462 6
041066
034544 G
047132
002222 6
032714
044424
000001
000001

= 010454

T$ARGC= 000002

005456 6

SEED3
SELPAT
SERVIC
SET.PT
SFPTBL
SOFTS
START.
SVCGBL=
SVCINS=

= 010446

TRT10 = 010450

SBESHE= 006042

SBE.LO

29-MAR-82 13:41

T$SERRN= 000000

TSEXCP= 000000
T$FREE
105050 G
T$GMAN= 000000
TSHILI= 000012
TSLAST= 000000
T$LOLI= 000001
TSLSYM= 010000
TSNEST= 177777
TSNSO
= 000009

B 13

PAGE 341-3
SEQ 0363

000021
000000 G
000000
177777

T$SEGL= 177777

TSTAGN= 010005

TSTEMP= 000000

TSTEST= 000000

1$TSTM= 177777

T$7ST7S= 000000

WC.COU

WC.MIL
WC.THO

032710
044429
012670
013670

034330

034334
034332

WDBUFF= 212670

WHY.DR

WPTR

WRD11

034446 G

032670

= 007240

WRD15 = 007246

T$$SHAR= 010002

WRD16 = 007256

T$SPRO= 010004

WRD18 = 007272

T$$HW = 010000

T$$S0F=
T$$SW =
71
UAM
=

UP.HAR
UP.RD.

UP.SOF
UP.WC.
UP.WR.

010003
010001
102712 6
000200 G
037422
045240
040104
045332
045146

000

VEC
WAITER
WBUFF
WCBUFF=

001

VIRTUAL MEMORY USED:
31919 UORDS
( 125 PAGES)
DYNAMIC MEMORY:
21558 UORDS
( 82 PAGLS)

ELAPSED TIME:
00:09:5
CZMLBB.BIN,CZMLBB/(R/~
SP-SVC/ML CZMLBB.DG' ,MLX2,0TS

,RANDOM,MLX3, ML X4

WRD17 = 007264

WRD19
WRD2
WRD20
WRD21
WRD24
WRDZ5
WRD3
WRD34
WRD35

=
=
=
=
=
=
=
=
=

007300
007200
007312
007322
007332
007336
007206
007344
007354

WRD36
WRD37
WRD38
WRD4

=
=
=
=

007370
007400
007412
007212

WRD4T =
WRDS
=
WRD7 =
WRITE
WR.COU

007424
007220
007230
045424
034314

WRD4O = 007416

WR.MIL

WR.THO

034320

034316

XSALWA= 000000

XSFALS= 000040

X$OFFS= 000400

X$TRUE- 000020
SEND.L
105052
$SPATCH
004134
$SAVE2
005262
$SAVES
005276
$SAVE4
005314
$SAVES
005334
T
102536

G
6
6
G
G
6

ZM._BB
CREATED BY
MACRO ON 29-MAR-8B2 AT 13:44
SYMBOL CROSS REFERENCE
SYMBOL
VALUE
REFERENCES
ADR
= 000020
G
#83-1773
ASSEMB
= 000010
6=13
6-13
BANK
034344
#82-1685
+98-2978
+99-2991
BASE
.A

Voo~
VIS NSO

Tt et ol e mof o ot o e e e

e —4

WDDDOTLO
DD

BIT.NU

032706
012666
= 000001

= 000001
= 000002
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
= 000600
= 001000
= 000002
= 002000
= 004000
= 019000
= 020000
= 040000
= 100000
= 000004
= 000010
= 000020
= 000%0
= 000100
= 000200
= 000400

+155-6383

G
G
6
G
G
6
G
G
G
G
G
G
G
G
G
G
G

= 001000
005170

G
G
G
G
G
G
G
G
6

BLSGT]
BL3GT2

004234
004356

6
G

BLSLAS
BLSMOD
BLSMUL
BLS$PUT
BLSPU2

105044
005202
004744
004520
004614

G
G
G
G
G

BLSSHF

005214

BOARD

034342

#81-1650
#81-1637
#83-1754

+88-2289
+99-3005

PAGE 1
CREF

SEQ 0364

100-3052

103-3237

105-3302

89-2338
103-3226

97-2909
104-3290

108-3474

109-3522

205-9118

209-9381

225-10222

180-7728
322-15915
340-16873
261-12206
341-16906

200-8836
333-16485

108-3485

109-3530

155-6371

273-13132

282-13730

297-14575

298-14593

205-9143
341-16904

220~-9931

242-11178

265-12395

273-12846

263-12297

265-12380

265-12404

341-16906

50-339

85-2133

85-2140

111-3672

112-3685

118-4112

14-217

19-406

29-848

19-413

19-417
30-880

#83-1744
#83-1743
#83-1742
#83-1741
#83-1740
#83-1739
#83-1738
#83-1737
#83-17
#83-1735
#83-1753
#83-1734
#83-1733
#83-1732
#83-1731
#83-1730
#83-1729
#83-1752
#83-1751
#83-1750
#83-1749
#83-1748
#83-1747
#83-1746

#83-1745
#37-1170
185-8022
313-15422 341-16905
#13-169
#18-384
164-6887
281-13705 297-14560
#340-16868 340-16869
#38-1201
118-4116
#34-1022
95-2787
#23-592
#29-829
47-220
341-16905
13-181
13-184
19-438
23-595
#39-1236
88-2294
#82-1684
*99-2996
155-6379 +155-6382
187-8125
204-9088
227-10308 227-10325
259-12142 273-13106
302-14838 302-14855

47-231

13-188

13-192

23-599
341-16905

23-605

24~632

29-838

19-409
29-842

168-7119
205-9109
247-11460
273-13123

104-3246

169-7140
209-9350
24B-11481
273-13216

104-3271

105-3306
171-7284

108-3490

100-3053

304-14946

304-14963

155-6370
187-8108

289-1£10

(SAU

C$AUTO
C$3RK
C$BSEG
(sBsu8
CSCEFG
CSCLCK
CSCLEA
CSCLOS
CSCLPY
CSCVEC
CSDCLN
C$DODU
CSDRPT
Cc$ouU
CSEDIT
CSERDF
CSERHR

CSERRO

CSERSF
CSERSO
CSESCA
CSESEG
CSESUB
CSETST
CS$EXIT

CSGETH
(SGETW
CSGMAN
CSGPHR
($GPLO
CSGPRI

HUnBunuwanhnvonuunnunwannn unpuwuwnnnnunwu

#149-6052

034554
032702
036002

#84-2(78
#81-1646
#93-2703
#83-1814

007066

000052
009061
000022
000004
000002
000045
000062
000012
000035

000006
000036
000044
000051
000024
000053
000003
000055
000056
000060
000054
000057
000010
000005
000003
000001
000032
000026
000027
000043
000042
000030
000040

283-13797

338-16758

N
O
O
&~

302-14809

046166

J f\)(?‘-‘

CLRTBL
COoMP.
C
CONFIG
CRLF

CHOOSE

b =2 OO0 = O &

201-8923

oo -

(= F Yol

iy S Gr G
O

delelelalalele)

o~ NNOAONN
OWNWN =N

P R

(olelelelelolele)

2301

#6-13
#6-13
#6-13
#6-13
#6-13

#6-13
#6-13
#6-13
#6-13
#6-13
#6-1;
#6-1
#6-13
#6-13
#6-13
#6-13
#6-13
#6-1

6-65

-t

13:44

(ZMLBB
CREATED BY
MACRO
ON 29-MAR-82 AT
SYMBOL CROSS REFERENCE
SYMBOL
REFERENCES
BOE
#83-1777
BR.LEV
#81-1653
*88-2291
CAUSE1
#83-1905
96-2733
CAUSE?2
#83-1906
CAUSE3
#83-1907
CAUSES
#83-1908
CAUSES
#83-1909
CAUSEG
#83-1910
CAUSE?7
#83-1911
CAUSES
#83-1912
(He (K
#147~59A1

PAGE 2
CREF

SEQ 0365

88-2292
333-16499
334-16511
96-2858

334-16519

153-6265
222-10026

154-6301
244-11290

154-6312
249-11569

254-11848

273-12939

283-13815

171-7238

182-7826
299-14673

201-8905
314-15484

206~9166

221-10004

244-11269

249-11548

254-11827

27312918

1546342

325-16041

33216410

332-16419

337-16696

337-16705

169-7147

169-7152

118-4102

89-2330

PAGE 3

€13

CREF

SEQ 03¢6

EF.CON
EF .NEW
EF .PWR
EF.RES
EF.STA
END.RB
END.WB
eEopP
EOPSUM
EOP.CO
ERRBLK
ERRMSG

000036
000035
000034
000037
000040
032670
022670
102726

002256
032704
002200
002176

O0e
OO0

220-9925

#8-163
#8-164
#8-166
#8-169
#8-192

318-15697

#83-1757
#83-1758
#83-1759
#83-1756
#83-1755
#83-1790

#83-1789
44-31

#5-188
#81
=1648
N7-94
#7-94

201-8931
315-15515
85-2128

83-1723
47-225

273-12840

281-13699

85-2135

333-16479

242-11172

265-12389

85-2146
#82-1695

83-1723
83-17264
83-1724
83-1724
83-1724
83-1725
83-1722

«85-2148
+85-2149
+85-2150
+85-2151
+85-2152
88-2296
185-8027

325-16054
325-16057
325-16060
325-16065
325-16068
1314772
210-9390

156-6439
44-39
83-1725
*84-2101

#332-16405
332-16407
+339-16805

339-16823

339-16806

206-9193

222-10035

244-11299

249-11578

254-11857

111-3653

164-6881
297-1455¢4

180-7722
322-15909

200-8830

205-9137

138-5458
287-14008

303-14869

131-4807

225-10227

339-16816

-4858
..n;\

46-201

286-13828 299-14682
47-214
#82-1692

N.‘
(v ¥']
Q=

273-12948

#8-160

QOGO

EFNS21

002234
034444
002236
002240
002242
002244
00225n
002254
002262

DROPNE
DROPT.
DROP1
DROP2
DROP3
DROP4
DROPS
ECCDIS

034442

DRIVE.

O T T T T T TR R IR I

Huaunnuy

(ZmLes
CREATED BY
MACRO ON 29-MAR-82 AT 13:44
SYMBOL CROSS REFERENCE
SYMBOL
VALUE
REFERENCES
CSINIT
000011
#6-13
CSINLP
000020
#6-13
CSMAN]
000050
”6-13
CSMEM
#6-13
CSMSG
#6~13
CSOPEN
000034
#6-13
CSPNTB
000014
#6-13
CSPNTF
000017
#6-13
CSPNTS
000016
#6-13
CSPNTX
000015
#6-13
(salo
000377
#6-13
(SROBU
000007
#6-13
CSREFG
000047
#6-13
CSRESE
000033
#6-13
#6-13
CSREVI
010003
#6-13
6-65
CSRFLA
000021
#6-13
CSRPT
000025
#6-13
CS$SFFG
000046
#6-13
CS$SPR]
000041
#6-13
CSSVEC
000037
#6-13
CSTPRI
000013
#6-13
DATA.C
032700
#81-1644
*116-3993
118~4104
DECODE
037176
#98-2972
100-3049
155-6373
DFPTBL
002210
7-117
DIAGMC
000000
6-13
6-13
DIvMOD
005006
#35-1091
37-1171
38-1202
DOUBLE
044326
#133-5198
166-€966
182-7835

-12048

ERRTYP
EVL

ESEND
ESLOAD

FILLER
FMTIA
FMT1B
FMT10A
FMT108

FMT11
FMT12A

FMT128

002172
= 000004

= 002100
= 000035
=
=
=
=

041266
006126
006142
006564
006640

= 006654
= 006710

= 006756

FMT13
FMTI4
FMT15

= 007024
= 007046
= 007060

FMT16
FMT?

= 005736
= 006160

FMT3

FMT4A
FMT4B
FMT4C

FMTS
FMT6
FM17
FMT8
FMT9

FEAY

FSAUTO

F$BGN
FSCLEA

FSOU
FSEND

= 006166

= 006216
= 006252
= 006270

=
=
=
=
=

006320
006376
006446
006466
006534
= 000015
= 000020

= 000040
= 000007

= 000016

000041

G
9

#118-4094
#83-1794
#83-1795
#83-1806
#83-1807

273-12968

#83-1811
#83-1812
#83-1813
131-4936
131-5022
#83-1792

#83-1796
334-16504
336-16652

166-6979

284-13841
166-6986

284~13848
104-3280

332-16430

131-4832
131-4946
131-5030
338-16749
94-2734
334-16512

170-7218
251-11690
317-15€22
96-2867
182-7848
30014699
182-7855

202-8948
315-15528
202-8955

332-16436

332-16442

300-14706
131-4840
131-4959
131-5038

184-7947
256-11969
319-15728

315-15535

WWNNINIONINI
A ~b s —

WS WN) = O WN—NO

\l-‘WO'}DOO] N =00
_a-.—a_.a—o—‘om\l\"

WWAINININININY
b b =2
= O NIV
OO~ &

—d b b i e = O OO N\
VSN
=2 O W =N D
OON
= ONMINO O 00
OO = =2 YO N =2 YO
N0
OO

omwo-—-\'nO\ooo
)

208-9301
273-13168

210-9418
285-13931

224=-10147
287-14036

206-9206

222-10048

245-11316

250-11595

255-1187¢4

206-9213

222-10055

245-11323

250-11602

255-11881

1314851
131-4967
1315046

1 31-4861
1 31-4975
1 31-5056

131-4879
131-4993
121-5075

131-4920
131-5003

131-4928
131-5014

94-2757
334-16520

96-2832
334~16528

9 ) -2859

244-11265
334-16552

249-11544
335-16564

254-11823
336~16642

94-2723
97-2911

333-16467

6-13

3 3 4-16536

335-16591
97-2905
335-16605

336-16619

336-16663

336-16633

337-16681

y6-13
#-13

6-39

8-259

8-302

9-379

9-411

6-13

#6-13
#5-13
#5-13

WWNININONINON
b b =
=2 Q0 NWVINNLIO
00~ &

203-9039
273-13058

#83-1797
#83-1798
#83-1799
#83-1800
#83-1801
#83-1802
#83-1803
#83-1804
#83-1805
#6-13

B NN = OWNO
VOO
I = &~
N0
OO QOTM N \OWNOD N0
O OWVO
O

£ 00N T\IHOONOCN
[]

204-9098
224-10136
247-11453
257-12021
273-13116
287-14025
304-14939
319-15776

123-4315

226-10259

301-14789
#83-1808
#83-1809
273-12961
#83-1810

204-9091
211-9477
266-11400
237=12011
273-13109
287-13994
303-14886
319-15766

131-4818
168-7112
185-7999

WNIPIPININIAY
— -t —a
OO ~NWNESNIODO &~

171-7277

203-9028
211-9460
227-10311
252-11749
273-13047
286-13973
302-14841
318-15681

100-3050
167-7059
185-7989

SEQ 0367

“NNO
Q0 OO N

REFERENCES
#7-94
#8-190
154-6334

_A-.n—.-:a:a—a-—‘\o@w\n

9
6

PAGE &
CREF
VIS BN
= ONO ~ —
NOYO=OH
= OOMNO
COEBNNNONDOONO

002174
002260

13:44

OJ\QW\JTBNMO—'
L]

VALUE

ON 29-MAR-82 AT

WWIANNINOAIPONIN
b b =2
OO
NN NIO OO N

SYMBOL

ERRNBR
ERROUT

MACRO

= QT NN

CREATED BY

WNANNINI
NI NINO A = 2 0O

(ZMLBB

SYMBOL CROSS REFERENCE

339-16819

90-2439
90-2453
90-2463
97-2883
139-5500

1645796

146-5894

148-5992

(ZmLB8B
CREAT ED BY
MACRO ON 29-MAR-B2 AT 13:44
SYMBOL CROSS REF ERENCE
SYMBOL
VALUE
REFERENCES

#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#116-3793
#120-4173
#121-4241
#123-4310
#125-4371
#116-3959
#157-6486
#6-13

9-411

9-379

9-385

8-302

8-314

8-143

8-196

180-7743
199-8818
164-6873
242~ 11156
273- 12832

120-4174
165-6903

G 13

CREF

SEQ 0368

6-13

6-39

8-314

8-316

8-319

8-322

8-324

8-329

8-316

8-319

8-322

8-324

8-329

8-339

297-14549

313-15397

200-8850

205-9158

220-9946

273-12861

8-326

8-327

8-328

8-331

3
3
3
3

8-317
8-330

3
3

220-9917

242-11160

28 1-13694
123-4311
180-7746

= 000376

MU)MOU=N
TNUMYMMO—N OAMPLI

GSOFSI

6~39

PAGE $

- 6584

325
336
275
322
275
326

336

336-16629

LAU

LAUTO
LCLEAN
LOU
LIMIT
LINIT
LOE
LOTY
LOW.SE

LRPT
LSECT

LSACP
LSAPT
LSAU
LSAUT
LSAUTO

#6-13
#6-13
#82-1680
#6-13
#48-296
#45-101

002222

043000
000010

040474

034460

005466
002226
002110
002036
005652
002070
005506

CREF

#4439
#8-157
#6-65
#6-65

~NWVON\N

NOO
W

& ok P

=0
N0 0o\N
O 8000

QOO
=000~
L
|

170-7206

186-8047

223-10118
258-12064
303-14885

9-411

#9-411

*138-5465

138-5471

138-5477

246-11386
273-13156
318-15712

#8-339

*83-1927
49-315
45-119

97-2881

220-9941
225-10233 243-11290
297-14573 303-14875 318-15702
44-58
83-1723
*95-2806
*95-2814

6-65

#49-315

6-65

#45-119

#6-65

8-145

#6-39

#339-16805
340-16848
#47-210
47-257
#8-153
83-1722
95-2794
#111-3636
112-3710
#83-1783
#83-1772
#82-1702
*85-2122
*96-2850

210-9396
237-14014

SEQ 0369

6-48
9-341

NN
—

[2TaTAYA]

#6-13

034336
000167
005650
005504
104724

PAGE 6

ANPNOND
—

nnun W nnay

#6-13
#6-13
#6-12
#6-13
#8-259
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#6-13
#8-302

000041
000041
000041

005516

#83-178¢4
#83-1781
#83-1774
#83-1782
#88-2286
#164-6862
#100-3048

#83-1775
#83-1780

1508
I1$7ST
1.AM.D
JSIMP

000100
004000
000041
000041
000041
000041
000041
000041
000041
000041
000040
000041
000041
000041
000041
000041
000041

13:44

8-261

203-9027
251-11665
285-13919

I$SRV

I$AUY
ISAUTO
ISCLN
130U
I$HRD
[SINIT
1$MOD
[$MSG
ISPROT
1SPTAB
[SPWR
ISRPT
[$SEG
ISSETU
ISSFT

037332

ISR

IXE

V10000
000040
020000
035206
047232

YT ATAY
A

IER

INIT.A
INTEGR
[SOLAT

100000

[

1Bk
1DV

non

HOE

94,18
1]
CREATED BY
MACRO
ON 29-MAR-B2 AT
SYMBOL CROSS REFERENCE
SYMBOL
VALUE
REFERENCES
HELP
000000
#6~4

164-6894

180-7738

185-803 3

25812054

263--12285

273-128 5 6

96-2848

96-2850

96-2865

200-8845
273-13143

#8-200

203-9015
246-11399
285-13907

LSMREV
L SNAME
LSP2IO
LSPROT
LSPRT

LSREPP
LSREV
LSRPT
LSSOFT
L$SPC

LSSPCP
LSSPTP
LSSTA
LSSW
LSTEST
LSTIML
LSUNIT

105034

002032
002011
002130
002076
002060
002204
002116
002040
002034
005649
002072
002122
002052

002044
002172
002102
002046
002064
002066
002266
002120
002016
002022
002210
002104
040722
002026
105050
002100
002074

002050
002000
002042
004126
002112
002062
002010
005474
002450
002056
002020
002024
002030
002222
002114
002014
002012

ON 29-MAR-82 AT

REFERENCES
#6-65

6-65

#340-16847

6~65

#7-85

6~65

#7-101

#6~65
#6-65
#6-65
#6-65

#6~65
#6-65
#6-65

137-5400

13:44

137-5428

6~65

#47-257

6-65

#6-80

6-65

#7-94

6~65

8~259

#8-259

=117

#7-117

#6-65
#6-~65
#6-65
#6-65
#6-65
#6-65
#6-65
n6-~65
#6-65

PAGE 7
CREF

113

SEQ 0370

138-5442

#112-3710

#340-16873
*164-6891

*313-15405

#6-65
#6-65
#6-65

it AT AT AT AT A YA YA YA Y2 T2 1)

LSHP(P
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN

002106

MACRD

#6-65
#6-65

LSCCP
LSCLEA
L$CO
L$DEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSDLY
LSDTP
LSDTYP
L$DU
LSOuUT
L3DVTY
LSEF
LSENV]
LSERRT
LSETP
LSEXPI
LSEXP4
LSEXPS
LSHARD
LSHIME

OQC\C\OOOGQC\C\OOC\OC\OQOOOGOOOOOOOC‘DC\C’D

(ZMLBB
CREATED BY
SYMBOL (ROSS REFERENCE
SYMBOL
VALUE

#6-65
#6-65
#6-65

46-201
*180-7733

6-65

#9-379

6-65
6-65
#6-65

#44-58

#6-65
#6-63
#6-65

47-210
*200-8840

8-302

#8-302

6-65

8-143

#8-143

242-11165

83-1 722
265~ 12372

84-2079

47-216

*205-9148

+220-9936

47-221

47-227
83-1722
*85-2119
*111-3648
*242-11183 +273-12851 *282-13714 +297-14565

111-3645
265-12382

164-6874
265-12403

180-7715
273-12833

#6-65

265-12379

199-8819
281-13691

205-9130
297-14546

mLB3

MLBS

Z0
=
nNo

2642-11154

SEQ 0371

242-11157

007460
007464

034346

-O O eU N U

OyNINGOMAL0T

MLBS
MLB6
MLB7
MLB8
MLBY
ML.REG

CREF

‘OV9NNT6VPP NT3VMV6TVTvQ=oNTv?~oVTO{9[NaVAVolandandLot

J 13

ONANOVON
2Q POWNMIANE IR~MNUI=O
O—OUM
DM
O
\
~
F
=
DNYFMMr—rrWAMNNMODO~-WINONO0MVM~OI—r—rADNNOIYO0SvY=OMA=7[~NOT
MOOO
MSIOo0OoNOoo MOONN
N
NA
R
1==N NSOOvv

,HL812
MLB13
MLB14
MLB1S
MLB16
MLB17
MLB18
MLB19
MLB?
MLB2O
MLB21
MLB2?2
MLB23
MLB24

PAGE 8

—TN]OTMWOVONe=AUNVMON—NOUT M

MARPAT
MLB10
MLB11

002220
002264
002332
002664
002246
007472
0 07500
0 07504
0 07510
0 07514
0 07520
0 07524
0 07530
0 07534
0 07542
0 07430
007550
007554
0 07560
0 07564
0 07570
0 07434
0 07440
0 07444
0 07450
0 07456

13:44

[YV1val

H
o
H
u
n
u
w
n
y
R
R
N
N
T
R
I
T
T
I
L
70Y-M7,OMQWYWTNoIWTMNoVITNV1IooNMVTA1oOa¥olMolandMandaadkanAdandhant

L 10000
L1000
L10002
L10003

ON 29-MAR-82 AT

“wM

(ZMLB8B
TREATED BY
MATRO
SYmBOL CROS S REFERENCE
SYMBOL
VALUE

208-9307
224-10152
246~ 11402
722
10
17

04
88
65

208-9326

224-10153
247-1

224~

8
0
6
4

1=
6~

10265

1 =-11695
8-12067
3-13086

211-9450
226-10284
25 2-11700
258- 12081
273~ 1

8
6
9

R
6YOMMM
0R
8UN6M00NNUS-— 080SF6€WUg0ONG6gy00OR48NMMO0UIeG0R00 G—OGT00RG€00
ON—DOM\O-vMMMG~~rY]=0Fe)Y=O60NMGMOLoN0NMUMYOMNoO=NOOO=AINOWO0tWLNAVI2\Y
199-8817

M-

bo0 oetUL
~ O

own

Lalial
[
NN
ode[

d
L
~
r
N M R O ONON AN

Oy hel=]

UL ]

L UL

dLol

][ L L

wiw
oz
>

W
O
N
M
O
N
O
e
—
r
—
u
n
t
y
d
O
w
v
N
Ta30[« 4oLLaakd M e TRghO TTNTT TN T R
o NW0V VWOOMO O0 —MOANNINC—OMA0.
— M WO ~ MOWNO N

MRvOLA2O“eFe¢OT>[NVME~.mGE.W3~8O3OOFleERVVBe+2RT—=Y3olm]AMNr3ZORe~—161M)eFTel—OSLER1OIa20M2_=oTRTmMVlR2DuOA§03Eo=NTwxl3OOR244TSTC=IymL1lNOM5ID@o4DTTu2lPNO2P5VvLoT4n0OlU7SNo0=La‘Ow2W29tTIov)08e1lEGM5310|AOoIOOw9UyO8N30O~1R%50ONeQo2FO|MNOw83NW8OM0k2oS3O2OE-2vTu3p|61yGMTLI7=DnVOT:@QO|AN1i]V30INun.QT|.=6-Mo1T83cC0OMU2NBlOt2216¥0NOA5=wnO[N}.~330O8L4VTU2l‘83~I6.215L27M=®ooSmA-38xn»2ONN462~5TFV2.6~13T1GOOR8915NMOI177’ROS1F32O96M—0Nx2o(giS=@"R41O21560=O5247O3N—0¥SpwTaL1]al13295S1O2463.MOI1B3N9O0VEI0FWO1M3IN46.—902NR31O35SN49N6.O1I2R118ON6’46.7O”D60R9—3N5M=64T7986.O6N1n8MaMo“oSL26NYx—O5imaRWnT9812om83iWLsnDovwI3—NegS.YRosTMb4Ss.aa3me\>.-,IxtrJ
M»To-aoO~[so]2~-ad0~-O-]\=[—0][)aN1m[lL[\~|nFwm0]\unwnwnnown (aoI—69L=021wM[M=77.|A0VMNTO2Ovy0O8oN8—63O-9I902876vM\N3©3Nv1O8Oo.109601[F\~}.N5278A=-1OS~OBe1MPNI—AOM4~C2e6—MVNMONNMI3OeO.356eOWIO’\NMeNr4AN-M739—NOTM1—UeI5A—EN.08O37OIOrMNIeI~A0I—A.N6N8W7-AT’OOeMN3Mi=DO.rD05N7O~RONIM—F1ENB-PU7‘eOADNMOMI3’SVN—aM~.[C781O0eO=0NNWUY+3TNr-NL—97GO3MY~GA—101.O0275O3NAV.MMeBVOTNNOV3O74O|—‘NN~N1R=.7M82OYNOG2MIOIV7U—.G5MDD9NPrOI1DNOI.TAM87M-66OWMOEI5NWN1OI.MVO9437ORIP8ME7MI~NNT.O1236O—‘I=NATV1M5IN0U7SD.M4~OeOON=N1M~1AON6eRIWUO2AT=MNN‘O—8.0ANLN Wao7<
(ao?&-~[aoi”=0—y0]1 O-NO“ov1O®N=ONOOM=V©VIoR-VoOM«Dw0NO9M1—0ThTo0I=TMSOOWS=NNOAMOOT0VVMNeerONO]ihVOOVMOarvTNNT—Co=Yld—XaOI-NNMl~OO-—PIG©T[2ErT»®aVNMDRMW~NwDNSOMTOOAV.e=MNaOV—O1ROHM0ONN~NA2ASEMOOINA=NMIROrDS.rTNNTO—2T-OONeVFMIAeA~RO—OLT=VU2NMIAWNOMMLRONE~ISeRIrT3YN—FGV—N—
K 13

[°Y]

SEQ 0372

[2lalalalaTaTa
AT Yo YA

T T
L

PAGE

CREF

*86~2176

90-2434

94-2711

94-2718

83-1791

83-1792

83-1793

83-1794

83-1795
83-1796
831797
83-1798
83-1799
83-1800
83-1801
83-1802
83-1803
83-1804
83-1805

L 13
SEQ 0373

339-16809

333~16466

NOWS
NN = O O

P.AAT
P.AAU
P.AAV
P.AAW
P.AAX
P.AAY
P.AAZ
P.ABA

13:44

94-2722
90-2462
199-8812
*104-3273

P.AAR
P.AAS

[=l=]=]
000000
NNOAWVMNNIN OO~
W
— OO0 ONON wViow

P.AAK
P.AAL
P.AAM
P.AAN
P.AAD
P.AAP
P.AAQ

#70-944
#70-959
#70-982
#70-1003
#70-1007
#70-1012
#70-1014
#70-1022

P.AAJ

005662
005736
006042
006126
006142
006160
006166
006216
006252
006270
006320
006376
006446
006466
006534
006564
006640
006654
006710
006756
007024
007046
007060
007066
007072
007100
007112

333-16462

P.AAE
P.AAF
P.AAG
P.AAH
P.AA]

034422

—

P.AAA
P.AAB
P.AAC
P.AAD

PRIO3
PRI0&
PR]05
PRI06
PR107
PTABLE

PNT
PRI
PRIOO
PRIO1
PRIO2

B T I TR TIY ]

PM, SBE

#83-1888
#83-1889
#81-1633
#83-1778
#83-1779
#83-1770
#83-1769
#83-1768
#83-1764
#83-1763
#83-1762
#83-1761
#83-1760
#82-1690

N
N

PHR21
PHR3
PHR4
PHRS
PHR6
PHR?7
PHRS
PHR9

336-16618
332-16428

- Pt Guir- G- i =4

#83-1898

[ir Q- Gt

REFERENCES

000D 00 00 G0 00 0O GOQo

SYMBOL
PHR18
PHR19
PHR2
PHR20

ON 29-MAR-82 AT

o
N
[}

(ZMLBB
CREATED BY
MACRO
SYMBOL CROSS REFERENCE

104-3274

336-16639

*111-3660

336-16649

137-5413

138-5449

322-15921

333-16455

(ZMLBB
CREATED BY
MACRO
ON 29-MAR-82 AT 13:44
SYMBOL CROSS REFERENCE
SYMBOL
vALUE
R;FERENCES

007300
007312
007322
007332
007336
007344
007354
007370
007400
007412
007416
007424
007430
007434
007440
007444
007450
007454
007460
007464
007472
007500
007504
007510
007514
007520
007524
007530
007534
007542
007550
007554
007560
007564
007570
007574

007626
007634
007642
007650

3-119¢4

#73-12
#74-1
#746-1
#74-1
#74-1
#74-1
#74-1
#74-1
#74-1
#74-1
#74-1233
#74-1235
#74-1239
#74-1242
#74-1245
#74-1247
#74-1249
#74-1252
#746-1256
#74-1259
#75-1267
#75-1269
#75-1271
#75-1273

#76-1336
#76-1338

= OO =200
No

007240
007246
007256
007264
007272

WAINININD
b ed b
o

007130
007152
007200
007206
007212
007220
007230

NININININININIPUN

—x

EEEEE

'Dfi:U’U’O'D'UV'D‘D‘U'Ut'U'O
L] L]
.
.
.

P.ABB
P.ABC

PAGE

CREF

SEO 0374
\

83-1858
83-1859
83-1860
83-1861
83-1862
83-1863
83-1864
83-1865
83-1866
83-1867
83-1868
83-1869
83-1870
83-1871
83-1872

(ZMLBB
CREATED BY
MACRO
ON 29-MAR-82 AT 13:44
SYMBOL CROSS REFERENCE
SYMBOL
VALUE
REFERENCES

P.ADB
P.ADC
P.ADD
P.ADE
P.ADF
P.ADG
P.ADH
P.AD]
P.ADJ

P.ADK
P.ADL
P.ADM
P.ADN

P.ADOD

P.ADP
P.ADQ

007656
007664
007672
007700
007706
007714
00773
007746
007770

#76-1340
#76-1342
#76-1344
#76-1346
#76-1348
#76-1350
#76-1354
#76-1359
#76-1365

010004
010026
010050

#76-1369
#77-1379
#77-1385

010100

#77-1394

010066

010120
010140

#77-1390

#77-1400
#77-1406

83-1873
83-1874
83-1878
83-1879
83-1880
83-1881
83-1882
83-1883
83-1884

83-1885
83-1886
83-1887
83-1888

83-1889

83-1890
83-1891

P.ADR
P.ADS
P.ADT
P.ADU
P.ADV
P.ADW
P.ADX
P.ADY

010202
010240
010266
010304
010322
010342
010366
010410

#77-1418
#77-1428
#78-1440
#78-1445
#78-1450
#78-1456
#78-1463
#78-1469

83-1892
83-1893
83-1894
83-1895
83-1896
83-1897
83-1898
83-1899

P.AEA
P.AEB
P.AEC

010444
010446
010450

#78-1479
#78-1480
#78-1481

83-1901
83-1902
83-1903

P.AEE
P.AEF

010460
010502

P.ADZ

P.AED

010430

010454

P.AEG
P.AEH
P.AE!
P.AEJ
P.AEK
P.AEL
P.AEM
P.AEN

010526
010602
010656
010710
010734
010756
011002
011070

P.AEP
P.AEQ
P.AER
GH1

011166
011202
011216
002332

P.AEOQ

011120

QH2
QH3

002351
002374

Qs1
Qs10
es1n
Qs12

002664
003534
003554
003637

QH4

Qs13

002425

003657

#78~1475

#78-1483

#78-1485
#79-1495

#79-1502
479-1517
#79-1532
#79-1541
#80-1552
#80-1558
#80-1565
#80~1583

#80~1591

#81-1608
#81-1612
#81-1616
8-272

8-273
8-274

8-275

8-313
§-328
8-323
8-331

8-332

83-1900

83-1904

83-1905
83-1906

83-1907
83-1908
83-1909
83-1910
83-1911
83-1912
83-1913
83-1914

83-1915

83-1916
83-1917
83-1918
#8-286

#8-287
#8-288

#8-289

¥#9-347
#9-362
8-330
#9-364

#9-365

#9-363

PAGE 12
CREF

N 13
SEQ 0375

11XWq"O5.z»N32LPolF3O7N[o041¥]1%N9bl-O,0—NOeONOeNOvN00M—YAL\NvVOI]=a=AV}INV[aovA¥aN0gLDal0OdeVe\0NON67—89M8M90yaM1l—a¥21Oa\Y9]yM[013711‘.?78[a<}0
'Y

[

]VV] [V
o es
o

— -

g=A(YENORM8y&3A[\RN-MO=e6naw18O~Sc7NOo3iNowYO1O(5IxoINgy8V0aVAONMa7D1w-oZxOxMO4);|8-2W~N3=1xN)VFMOa“ION2MI81y2c—C7FOea1vx!0ON82v51AOQ=*O~M>Wo,a-MyW8N2—0IO4AGM18N.O2S4GOT7.(II20NW-O~6OAxwaNos—WT@xS2u(xNR.~e0yYo(=§I3eal:6]3OAoM5—U8I1NCI7OCOD.1IMN0IOv.E~0.-23N—OTYD<xOv18yOGD37LFDN|NIO%oyMV6O0=OTAaEoS2E81UNW3xO~2MOIo’aROLC.N-"©x8n1NID\CWTbO®MXwoEY.O1)Ml[«-16N.ARNOA=LZo“T25.aCLeN2wO|oIL.ONTxvZ3N=COyal6NaoO=28LVON3—aI.eL1nM2N2l0AxVL,a-Oa(oSWN1D—D=Ox~l.21M>O\.1©© Om“IPErNvRKN(02-n.N“C3maEYNnO.VMWRFS§0lN8‘TOO0nwI1-C.ATMS04O~1CVMNo210OOSNMl4o3TO10VN—M‘oAO1ISX2M3MOU-oW09CMMo.IMS5O0m3oIMO.mCN‘oNMFm1o8OS03NOlAo.~T2WOnNoM-wnbX5S@S%>Oom,U<rTHovMaOfNmoQiyxA&EalOZ?cu
NN-T[NW0TOO(—NOA=P5[+0¥[yN=7\OMOM.0~vOtOWO\MTMy—0M~VNW0)[DNyTO=MD.AI)}Te~0MNWYRLeTo=((O)-[eyM~VO)Va]N21+))]A]eM~ONO[}TOMLO0M3a*1CUI¥009]0@MONON)7tTaN)TNQrW=VN5MFN=WT=NMOew040OEOIOANe03N0IOoRMONMOOTTI0LNMSM0DO0N~MYVT4EN“ANOrTr~IN~eGw1OA=NT8~OMDe—TSDNR—O:0N2~FO.OrIO1|LI]PeOVoNNoOW3O0M=AOFWNN=l)OGaIYIO0otNO3M\~NaMMT.Vt0OMOFT=vrE)OLTOOTNN~M—NAeMYONVNrOIOME=0OON-RA—N[AMMFO=gTVTNV%e—aL=PAIWOD)VNOI.NDMDD«(NNIGMOAIWTNaVATOoMhOQo(O[A2L=-oK|1=NdE~M~=.09OVo4N3N)v—114T.V\y]MaO”ONe|l]VGIGtOsNO1)9MIO)|9M)O[-—IOTwJh—-oOTNaMN[-9yl"[e¥]ianOaN1dl)l\"aOoa’aOMlM'al=)nllm).M]9ONYNMa=an)KNI][Y+OM1F9NLI23D3O8O2WsW<ik&-~*ubJ,e)=,
M¥oVMSS-O—PoNW]Q-~O]UmVTeo0—=]voNlNo0MLO[O1aoe[V¥0[MLat]¥[o 0[o[~0o-"[}~ 2%oAON-&OAN[[]}ONOodeCMWOM—=MN0B=NOrNNe~eMeO—=M0——TODNSuen3\NTnMOr=—IMeOIWT0NtYm~OMNIrinOrM—-nO o.=TNB-0MO~}eMV]0O14l1—V=Qau-N\y~VO]ea1]ii0o00V¢Oa.N1TnVW(o]M—enNaN1Ie=YLeOTO[FaQWO[oO§y0rd0@NlS NBTT0o-M~O0UNon]0[e\o}— T[AN(o4—OaQa[VO&M[3V-e])]@n=¥lLT['L]1yYaN7[,«OMN-n"eVI=Oa)]N1MN,o—a[d]
—MO.w 0W\~ONOVAWON 0Oe—0N o7—23~M7Y2 NYotNye
(W]

B 14
SEQ 0376

SAY1

SAY?
SAY3
SAY4
SAYS

A TR

007574
007626
007634
007642

035524

000001

109-3520

*42-15

42-13
42- 9
#115-3870
#83-1926

#156~6435
#8-143
#82-1659
#137-5407
#6-13

PAGF 14

C 14

CREF

299-14680 *313-15407

SEQ 0377

314-15490

314-15493

315-15513

180-77G8
199-8783

219-9905
24c-11148
322-15894
273-12825
281-13684
297-14539
313-15390

94-2744

206-9198
333-16474
131-4823
222-10042
297-14540

94-2729

*84-2100

034544
047132

002222
032714
044424
000001

164~6865

89-2314
337-16709

005456
005460
005462

041066

299-14664

220-9911
89-2326

011264

SVCINS

202-8940
315-15520
#83-1815
206~9200
284-13835

= 007100

SBE.LO

SveeBL

#90~2410

007072

SEESHE
SBES.C

SEED2
SEED3
SELPAT
SERVIC
SET.PT
SFPTBL
SOFTS
START.

#83-1868
#83-1869
#83-1470
#83-1871
#83-1872
#83-1873
#83-1874
#83-1878
#83-1879
#83-1880

007650
007656
007664
007672
007700
007706

007112
007130
007152
006042
012664

SEED

299-14661

RTINS
RTNSA
RINSB
RIMIC
RTNSL
SAYWHO

T O T

RTIN4

LIL T

RTNC
RTNI
RINZ
RIN3

TR T

(ZmMLBB
CREATED BY
MACRO
ON 29-MAR-82 AT 13:44
SYMBOL CROSS REFERENCE
SYMBOL
VALUE
REFERENCES

*85-2157
*109-3547
42-18
*42-20
42-23
199-8799
89-2348
180-7749

*84-2091
144=5777

#6-22

6-65
6-65

104-3277

131-4821

131-4908
254-11842

222-10040

245-11308

1314896
262-11185

242-11150
153-6260

131-4910
245-11310
313-15391
96-2827
322-15896
153-6270

153-6280

103-3215

106-3266

104-3285

*105-3320

103-3224 *104-3262
337-16721
83-1726
125-4372
#42-34
83-1726
#42-35
83-1726

104-3288

299-14689
94-2752

+85-2158

*42-26

206-9165

220-9949

*108-3462

355-16583

335-16601

148-5973

325-1€048

182-78490

299-14687

273-12955
337-16701

182-7842

164-6867

202-8942
281-13685
337-16710
180-7710

108-3463

*139-3548

337-16694

*105-3319

108-3472

*109-3510

282-13727

298-14587

313-15416

139-5505
255~11868
332-16415
154-6338

200-8853
146-5875

166-6971

284-13833

339-16811

1254373
1254374
273-12864

6-65

)OL)AY2)4AvNmONO0IMOOOOAJOO(JUOM=O=QO=NeTN-WNFANIANMNTENAONOUINM=NNOWNA

6f6P12winN\k5.2)t763O;NU(5/6Mi746)O(0~6iI75UW7(‘78Of773l18M?1583%l76W28717NA38LIO78781RN\187-00582741182N251428!31823123:28A34|5198156J.78|572298A78:24839R2B2f85l020T86123(8NN7231V8R32C338%43N?85052(3A8n66O33m7N83Df83=lWa8DlU8aA3#lAM8UUa8#3lRD"Ma?8!l"8&-Ea”Y
i°AG5o75(6e
6O&L1NSA6N0T3MA&S6L2MrA=V6E3URAMS6MRA64TNFM0765COOLU07MR4NO882AY73IRO8O85NS77NAO88?MOAU87M880—N180=IO!8ORO181=0!830—18NAvANU865NN1v86VMoNF87R=A2II88NOM8A0SI2RN8eANP812N82eMS823o&NANo84RV285O,MA3868W3N8DI8N38DN8.D8IL)N83O
AVAOIIB
RYRVOIAMTNYIMUMNMIMNRvAvAOMmO0YMODOAORN=NMNRONI=NAOMNDROOO=e=NO oMo=INoeONWeNoIANMINSIRNAARN4RANlANRLAAOtTNNINBNNODWN
(ZmM.B8B
CRTATED BY
MACRO
ON 29-MAR-82 AT 13:4¢4
SYMBOL CROSS REFERENCE
SYMROL
VALUE
REFERENCES

7-134

#82-1704
205-9157

273-12857

#83-1902
#83- 903
#82-1661
#83-1901

*84-2093
$3-2777
210-9395
273-12860

#8-196
165-69 02

*155-6381

220-9942
273-13142

PAGE

CREF

8-196

282-13
335-16

D 14
>EQ 037z

[]

8-277
8-339

200-8849
263-12287
313-15410

205-9154
263-12293

L] o (o] - TMM [=]

TSERRN
TSEXCP

T$FREE

TSGMAN
TSHILI

105050
000000
000012

00090
00001

(=) (=1 (=1 (=] [=]

BNNN~
0o[a¥lavl
0OO0UoAl0 Al0aB40aM3aUV0 &lG0 M20 Ba0

T 002230 6

00000
00000

REFERENCES
#83-1904

#6-65

#8-158
96-2848

6-65

97-2903

83-1723

6-65

96-2863

+95-2807

PAGE 16

*95-2808

#6-13
#8-272

8-317

8-272
#8-273
8-273
#8-318
8-318
#8-320
340~ 16868
340- 16869 #340-16870
#6-13
#8-272
8-272
#8-273
8--273
8-317
#8-318
8-318
#8-320

*95-2815

#8-274
8-320

#8-274

#6-13

8-320

-95-2816

#8-323

oc O ~ a00

— (2] < o Q W

= ML&)

010654

ON 29-MAR-82 AT 13:44

8o OOToyMN
!N O
LU
XMU OUL® —
o O
o Then
n
R
U]Mo
LN-a[—] MMoOMOO

000002

VALUE

RN] UVMF=N
1O- MNON—OMOOONO
ON~

LU
oo

T$SARG(

3L3

SYMBOL
TRTN
TSECT

C-A=N—ONOGMOOOCOMNOMULMMNONCMWN~TOYTe0O MN=~OIYTATN N
oTTM0 TOVMOAOORG0NWrie—eYe~—

N Ry

-— AOMOo
"o

TSLAST
TSLOLI

oo
[=l=]
o0
QO
o

BR7N2D
8NV8T
8YI3MMFYLN875I&AMM1UO3Un IM8Y48ORI15®A»RP868ULFI1BRN8R98TNI2Y0NYI8228OML328OR8248e258O&B ePR 8268BeV28eN8298NM308&& eN8328BAAM338"IN8358XP
un
&R
R
k
B
&=
0
G
0
6
0
0
O
T
O
A
0
G
O
G
O
S
O
A
0
0
O
8
0
0
G
0
0
G
0
G
0
&
T
M
0
8
0
6
0
8
0
)
N
N
N
N
I
S
M
Y
V
V
S
Y
M
V
N
V
A
V
A
N
)
A
N
Y
M
O
I
OQa0 A~<]}A~o][l 0RVN6M0OwAG\u0=UBGOGUGONO&GOG0x4OBO0IBM0A=GOAno8O0=OR3o0=OR0=OoNN0oy=TG=O4o0=&4QNWONTGO0eB0DA8N0L~A0O
M
Y
V
Y
M
Y
O
U
U
M
U
O
I
O
=
=
=
=
o
=
7
=
W
N
A
L
A
L
A
O
\
v
~
U
M
=
O
oo=oN0~ OO—O0N\V~I0OO0D0N0NM0O0Y IM0V6RNGDYOR0VwAOYDOM=0RAY\6""D0xRGUOPMO0GOO\N6GeI0OOGAONO0G0PTG&ONNRONUADOMRGGN00VORG=A"""O0RG0=OON—G®|v O4eOO0NRR GGUe0OMN44voN0N8MG=0OGD=eAN00GGA00N4€W30"04N00B%ONk2R0
o~]- OOO~0 a0 OGO4D0 6080G00OO
O
LT
I
OOr—~rm—O
2[
b
33

CZMLBB
CREATED BY
MA(CRO
SYMBOL CROSS R EFERENCE

€1

CREF

SEQ 0379

96-¢821

8-274
#8-323

#8-275
8-323

8-274

#8-275

8-323

96-2823

#8-330

96-2338

#6-65

#8-320

8-336

8-275
#8-330

#8-317
8-330

8-275

#8-317

3-330

e.RCIURmMKnflfl”” ”zYYn“
~ ~
5 ~
oL -

o o-

no aW01\ io o~O

— -

—~0ON=~OeO0olN—nFaDf=NOGMTONDVOINOnoD oONII~ Q
N-— OO OON o~wONOnM 4O3oO[«
PYON) AN~O Fa1lal MN

- -

NN v

ax
o2
>

n x>un

2NY\,sON0—eRP"0B)eo-O-y"DNISe0C&-3VOIOM~ESy=&0A3%ON-%oOI8lOA>®MYINLSMSaDQlN0GNR0r—Oo=rS8WNbIONnV*%vON®A4B8-NOP(NCU-UW~&yL=O¢N3ww3TRON2eD8d]wVNM—TINO[nMIAUF-3XMne0OR882NOo-L%OIT)M33uNSNDIo=4F8IY01~O=VOPNA¥3wQ~De2xagMr8r9~In3LTAeOowR0~5No6O—oI=NM0tNLOP=n1D6VTMoRON5<x@1Y8ryAnPNR2L7ONTOG®S=]9OM0R2elT8=MN=3OI027Oo3AT—N8TONwO1T—3wAO2T~nN3=ONTD8x1TA3’A13B2N531&1=AOe7N1G0OC08O¥—OM40u1IWVO08NAN1%1p0..1O—4RD¥0N=L=M0N&0NMG0A®€0aW%W<Qow&-XO3MyXVvM-3<Y.%OM8FN=tO-Nww»3OIME2nNOL<«-8ua<NSg-Jo&Wwmo2m]0N.y
(O--G-OeG=OOVNIxOOOAM&)Y&—ewNj[0~NO0-—a”r&R.\I—rO—VROMOoVNNT-=e1*o—O-W®&¥=C-Ny[a0yJAON*Y*$O(2\Y—PM—ON——IvG0~CT-aMvNo"LF0reOOO—lNh~M—~=—M=r=\0NoO*nt-rN]OMy0NCeS1MNRyo*=Mr®)0~JD[.|D OO0OoMN—A1UDeGte[Lo-XO-N-vW.3dNuaorD=0KaOoo]ny8O]Mv100de[yhyN[N=]=ne[«|oWN-NA1U3NeVNO0o—0Oe--N1=N=(=—,I3uO0GIrNVMeONXt]iayo~\YM—yt[=0N[n 0M[OeNO-NC1Oe0VNy—. OOM—UrV—Ox0YMbL0»o0NMQB=AM00M=M%00€VOI0GMXU80O0»GU&00MS6GUO0UnAu0MNnMLu0N60OIL£G0OAMM~0OsTGBO0Mo&OMG=08=0INDG0N0vOONGB6NMOBoFNA0NIGOONaIAOGPDV0SO0NBNGOU®O0RMU00SN0DMNV08—IS\ROQ0 Lx[Tw~M~-.Vo(oN%MonO-MOOoeayS~~~w—3 NWfoY=-AA1WNOlIN1e0Y92173--OON]7L0\”2¥Y-MNX[ eAO[N0h=3eLaMa-VJn0mly]~lmaaoVY]] OeN0[[TO‘QM—eaa0¥lo~]yVaaa-tV0]] aA=NU00OB8NDUa0SABO6U0SGO0T&aA0N— N0AIRNeLnAR0MaN0nN®OMo60MA@a.<oON0Y
7m< MW-O -N0e-o00
[mTeTw Wi .,
w

SEQ 0380

| C2mB8

CREATED BY
MACRO
ON 29-MAR-82 AT 13:44
PAGE 18
SYMBOL CROSS REFERENCE
CREF
SYMBOL
VALUE
REFERENCES
*181-7773
*181-7784
«181-7799
«182-7860

*201-8900
*207-9267

WPTR

*202-8959
*208-9282
+223-10124 *26,-11226
*248-11503 *268-11514
*256~11812
*273-12973
*284-13873
*300~14741
*316-15588
*156-6441

032670

WRD36
WRD37
WRD38
WRD4
WRD4O

WRD41
WRD6

WRD7

R
R
N
N
N T T
I
R L L T T

WRD3
WRD34
WRD35

WRD17
WRD18
WRD19
WRD?2
WRD20
WRD21
WRD?24
WRD2S

L L

WRD11
WRD1S
WRD16

R "nu

*185-8019

WRITE

X$FALS

X$OFF
S
X$TRUE

$END.L

WR.THO
XSALWA

WR.(COU
WR.MIL

220-9952
273-12880
283-13810
299-14679
*318-15691
#83-1828

007240
007246
007256
007264
007272
007300
007200
007312
007322
007332
007336
007206
007344
007354
007370
007400
007412
007212
007416
007424
007220
007230
045424

034314
034320
034316
000000
000040
000400
000020
105052

#83-1829
#83-1830
#83-1831
#83-1832
#83-1833
#83-1823
#83-1834
#83-1835
#83-1836
#83-1837

#83-1824
#83-1838
#83-1839
#83-1840
#83-1841
#83-1842
#83-1825
#83-1843
#83-1844
#83-1826
#83-1827
#143-5765

180-7759
253-11767
314-15446

#82-1662
#82-1666

#82-1664

#6-13
#6-13
#6-13
#6-13

#340-16881

*205-9149_
221-10017
273-12937
283-13813 283-13821
302-14872 *302-14858
90-2436

154-6336
153-6259
100-3056
94-2727

242-11189
2649-11543
339-16810

G 14
SEQ 0381

+183-7886
*183-7897 «183-7908
«202-8981
*203-8995 *203-9009 +203-9020
+221-9973 *221-9984
*221-9999 #222-10060
+243-11237 *244-11256 *245-11328 +245-11350
+242-11533 *250-11607 *250-11629 *251-11644
+255-11886 +255-11908 *255-11919 +256-11938
«273-12998 *273-13009 «273-13024 *273-13039
+285-13687 +285-13901 *285-13912 +298-14622
*301-14759 +301-14770 *31£-15455 #314-15465
+316-15599 333-16496
156-6442
+180-7734
180-7752
181-7766
+200-8841
200-8856
200-8866
201-8918
206-3180
206-9183
2069190
209-9377
222-10024 222-10032 225-10218 *225-10219
273-12945 273-13128 *273-13129 +282-13718
«287~14005 *297-14566 298-14606 298-14616
+313-15406 313-15435
314-15449 315-15501

*273-12887
«283-13778
+299-14650
*315-15539
182-7824

96-2853

333-16464

333-16490

242-11149

322-15895

165-6909

165-6914
248-11488

96-2826
148-5989

154-6337

155-6361

153-6269
155-6360
94-2750

153-6279

325-16047

96-2825

96-~2852

333-16489

180~7709

199-8784

219-9906

154-6307
220-9959
282-13750

263-11211
282-13755

243-11216
298-14608

8-324

8-329

164-6866

*223-10097
*246-11380
*251-11671

*209-9378
*273-12852
282-13748
299-14668
315-15504

94-2751
146-5891

339-1681¢

182-7821

+200-8872
2207-9243

201-8928
*220-9937
273-12867
282-13758
299-14671
315-15512

94-2728
144-5793
153-6258
153-6278
153-6277

254-11822

*207-9221
*223-10086
0246-11365
'251
659

201-8921

94-2720
139-5497
1645794
146-5892
153-6267

264-11264

*183-7924

89-2320
89-2327

339-16808

339-16817

153-6288
200-8863

153-6294
220-9954
273-12877

89-2325

153-625¢5

200-8858
253-11772
*84-2104
*84-2106
*84-2105
8-319

273-12869
140-5563
*140-5572
*1640~5567

8-324
8-316
8-316
8-329

*140-5564
*140-5574

*140~5568

140-5569

*140-5571

8-319

8-322

1564-6322

332-16429

298-14613

180-7754
248-~11493
313-15437

102536

312-15384
326-16094

332-16405

341-16904

SEQ 0382

114-3793

93-2703

199-8781

(¥,]

125-4371

29-829

O?O

297-14537

#325-16039

H 14

O LN
0D N
OO
o

(ATl
AT AT~

CREATED BY
MACR)
ON 29-MAR-82 AT 13:44
PAGE 19
SYMBOL CROSS REFERENCE
CREF
SYMBOL
VALUE
REFERENCES
SPATCH
004134
#9-402
$SAVE?2
005262
34~1022
39-1269
#41-1344
116~3959
$SAVE3
005276
13-169
14217
18-384
19-438
$SAVES
005314
#41-1359
84-2078
88-2287
111-3636
$SAVES
005334
35-1091
39-1269
#41-1368
90-2410
133-5199
153-6245
164-6863
179-7702

N-—.-‘w—‘
- OWO
&
OW~N I W

(ZmL B8

145-5863
#41-1351

264-12367
108-3453

242-11146

CZMLB8

CREATED KY

MACRO

ON 29-MAR-82 AT

MACRO CROSS REFERENCE
MACRO NAME
REFERENCES

BGNHRD

[aGNHY

BONMOD
BGNPRO
BGNSF T
BGNSW
DESCRI
DEVTYP
DISPAT

HEADER

6-65

MSDECR

MSENDE

MSEXCP
MSGEN

CREF

SEQ 0383

#8-273
8-275
#8-315

8-317
#8-321

8-318
#8-325

#6~65
#8-273
#8-317

#8-325
#8-331
#8-336

#6~65
8-273
8-317
8-325
8-331
8-336

8-320
#8-326

8-323
#8-327

8-330
#8-328

#8-331

#8-332

#8-333

#8-274
#8-318

8-274
8-318

#8-275
#8-320

8-275
8-320

#8-313
#8-321

8-313
8-321

#8-33%,

#8-335

#6-65
#8-272
#8-315

#8-323
#8-330
#8-335

#6-65
8-272
8-315
8-323
8-330
8-335

6-6°
665
g-gg

6~65
£-65
'g-gg

6-65
665
9-32

6-65
665
6-65

6-65
£-65
6-65

6~65
6-65
6~65

#6-65
6-65
6~65

6~65
6~65
6-65

6~65
6-65
6~65

6-65
6-65
#6-80

;-Z??

#8-196

8-196

#8-277

8-277

#8-339

8-339

#9-385

9-385

#8-273
#8-317

#8-274
#8-318

#8-275
#8-320

#8-275
#8-320
#8-327
#8-333

#8-313
#8-321

#6-65

zg—z;g
-

MSDEFA

I 14

#7-117

ENDMRD
ENDHW
ENDMOD
ENDPRO
ENDSF T
ENDSW
ERRTBL
GPRMA
GPRMD
GPRML

M$DATA

PAGE 20

8-259

6-39
9-379
#8-302
#8-143
#7-85
#6-80
7-101
#8-277
7-134
9-471
#9-385
8-339
8-196
7-94
#8-272
8-274
#8-313

MSBYTE
MSCNTO

13:44

#8-272
#8-315

&~65

#8-336

6-65

#8-272
#8-315

#8-323
#8-330

#8-325
#8-331

#7-134

#8-196

#8-277

#8-272

8-275
8-320

26-65

#6-65
#6-65
#6-65
#6-65
26-65
#6-65
#6-65
#7-94

8-272

8-275
#8-323

#6-65

#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6~65
#7-94

8-272

#8-317
8-323

#6-65

#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#7-101

6-65

#8-326
#8-332
665

#8-325
#8-331

#8-326
#8-332

#8-339

#9-411

8-317
8-323

8-317
#8-330

#8-273
#6-65

#6-65
#6-65
#6-65
#6~65
#6-65
#6-65
#6-65
#7-101

8-273

#6-65

#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
¥6-65
#7-117

8-326
8-332
6~65

#8-327
#8-333
6=65

#8-326
#8-332

#8-327
#8-333

8-273

#8-274

#8-318
8-330

#6-65

#6-65
#6-65
#6-65
#6-65
H6-65
#6-65
H6-65
#7-117

8-318
8-330

#6-65

#6-65
#6-65
#6~65
#6-65
#6-65
H#6-65
#6-80
#7-117

8-327
8-333
6-65

8-274

8-318
#6-65

#6-65
#6-65
#6-65
#6-65
#5-65
#6-65
#6-80
#7-117

#8-328
#8-334

8-328
8-334

6-65

6~65

#8-328
#8-334

8-274

#8-275

#8-320
#6-65

#6-65
#6-65
#6-65
#6-65
#6-65
#6~65
#7-85
#7-134

8-320

#6~65

#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#7-85
#7-134

(ML BB

CREATED BY

MACRO

MACRO CROSS REFERENCE
MACRO NAME
REFERENCES

MSGETS

#8-14
#8-302

#7-134

#8-319

#9-385

MSGETT

zg-§}8

MSGNGB

26-39
#6-65

#6-65
#6-65
#6-65
#6-65
#6-65

MSGNIv

#6-65
#7-85
#8-143
#6-65
#6-65
#6-65
9665
#6-65
#6-65
#6-65
#6-65
#6-65
#6-80
#7-101

8-272
8-274

#8-277

MSGNTA
MSHAPT

#8-315
8-317
#8-320
#8-322
#8-325
8-327
8-330
8-332
#8-335
#7-134
#6-65

ON 29-MAR-82 AT 13:44

#8-143
#8-302

7-134

8-319

9-385

g-%}g
#6-65
#6-65

#6-65
#6-65
#6-65
#6-65
#6-65
#6~-65
#7-94
#8-259
6-65
6-65
6-65
6-65
6-65
6-65
6-65
6-65
6-65
#6-80
7-101

8-272
8-274

#8-196
#9-379

#8-396
#9-37y

#8-259

#8-322

8-322

#8-324

8-324

#8-329

8-329

#8-339

8-339

#8-316

8-316

#8-319

8-319

#3-322

8-322

#8-324

8-324

#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#7-94
#8-259
6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
6-80
#7-117

#6-05
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#7-101
#8-302
6-65
6-65
6-65
6-65
#6-65
6-65
6-65
6-65
6-65
6-80
7-117

#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
1665
#7-101
#8-302
6-65
#6-65
#6-65
#6-65
6-65
#6-65
#6-65
#6-65
#6-65
#7-85
#8-143

#6-65
#6-65
#6-65
#6-65
#6-63
#6-65
#6-65
#6-65
#7-117
#9-379
6-65
6-65
6-65
6-65
#6-65
6-65
6-65
6-65
6-65
#7-85
8-143

#6-65
#6+65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#7-117
#9-379
#6-65
#6-65
#6-65
#6-65
6-65
#6-65
#6-65
#6-65
#6-65
7-85
#8-259

#6-65
#6+65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-80
#7-117

#6-65
#6~65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-80
#8-143

#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#6-65
#7-85
#8-143

6-65
6-65
6-65
6-65
#6-65
6-65
6-65
6-65
6-65
7-85
8-259

#6=-65
#6~65
#6-65
#6-65
6-65
#6-65
#6-65
#6~65
#6-65
#7-101
#8-272

6-65
6-65
6-65
6-65
6-65
6-65
6-65
6~65
$-65
7-101
8-272

#8-196

#9-411

8-196

9-411

#8-277

8-277

#8-314

#8-259

8-314

#8-277

#8-316

#8-277

8-316

8-315
#8-318
8-320
#8-323
8-325
#8-328
8-330
#8-333
8-335
#8-196

8-315
8-318
8-320
8-323
8-325
8-328
8-330
8-333
8-335
#8-196

#8-316
-318
8-320
-323
#8-326
8-328
#8-331
8-333
#8-336
#8-277

8-316
8-318
8-320
8-323
8-326
8-328
8-331
8-333
8-336
#8-277

#8-317
8-318
#8-321
8-323
8-326
#8-329
8-331
#8-334
8-336
#8-339

8-317
8-318
8-321
8-323
8-326
8-329
8-331
8-334
8-336
#8-339

8-317
#8-319
8-321
#8-324
#8-327
#8-330
#8-332
8-334
#8-339

8-317
8-319
8-321
8-324
8-327
8-330
8-332
8-334
8-339

#7-117

#8-143

;-Z¥?

#8-196

8-196

#8-277

8-277

#8-339

8-339

#6-39

#9-385

9-385

#7-117

#8-143

#8-259

#8-302

8-277

8-315
8-317
8-320
8-322
8-325
8-327
8-330
8-332
8-335
#7-134
#6-65

MSMCH]
MEMCLO

#6-13
#6-13

#6-39

#8-143
#8-339

#8-273
8-274

#6-65
#6-39

MS$PUSH

SEQ 0384

#8-143
#8-339

8-272
8-274

#6-65
#6-39

:;:Z??

J 14

CREF

MSHNAP
MSINCR

MS$POP

PAGE 21

#8-302

8-302

8-273
#8-275

#8-313

8-273
8-275

8-313

8-273
8-275

8-313

8-273
8-275

8-313

#8-274
8-275

#8-314

8-274
8-275

8-314

(ZmLB88

CREATED BY

| MACRO CROSS REFERENCE
MACRO NAME
MSRAD]

MSSETS

MSWORD

MSXFER
POINTE

SvC
XFER
XFERF
XFERT

MACRO

ON 29-MAR-B2 AT 13:44

REFERENCES
8-%2
#8-272

#8-315
#8-323
#8-330
#8-335

#8-273

#8-317
#8-325
#8-331
#8-336

PAGE

CREF

SEQ 0385

#8-273

#8-274
#8-318
#8-326
#8-332

#8-275
#8-320
#8-327
#8-333

#8-313
#8-321
#8-328
#8-334

#8-317
#8-325
#8-331
#8-336

#6-39

#6=-39

#7-117

#8-143

#8-259

#6-65
#8-274
#8-316
#8-321
#8-326

#6-65
#8-275
#8-317
#8-322
#8-327

#8-302

#7-101
#8-275
#8-317
#8-322
#8-327

#7-101
#8-313
#8-318
#8-323
#8-328

#8-272
#8-314

#8-324
#8-329
#8-334

#8-334

#8-273
#8-315
#8-320
#8-325
#8-330
#8-335

#8-316
#8-321
#8-326
#8-331
#8-336

#8-319

#8-322

#8-324

#9-379

#9-37¢

:g-ggg

#8-332

#8-333

#7-101
#8-313
#8-318
#8-323
#8-328
#8-333

#8-314

#8-316

#8-319

#8-329
6-46

#6-12
8-319
8-314

#8-322

#8-329

6-13
8-324
8-316
#8-329

#8-319

#8-274