Digital PDFs

AH-S430B-MC

July 1982

387 pages

Original

168MB

view download

OCR Version

219MB

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_gray.pdf

OCR Text

PorCaie BIEIIE

CZMLBBO PERFORMANCE EXERCISER

USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 2

SEQ 0001

IDENTIFICATION

PRODUCT CODE:

AC-5428B-MC

PRODUCT NAME:

CZMLEST 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 APPEM IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FJR
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 DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

VSN UIN—=O

o
o

000
@

NOWVSWN=O

GENERAL IWMTIW

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

OPERATING INSTRUCTIONS
COMMANDS

ERROR INFORMATION

SUITCHES
FLAGS
HARDWARE QUESTIONS
SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

1
SEQ 00J¢2

TABLE OF CONTENTS

PERFORMANCE AND PROGRESS REPORTS

“

PAGE 3

5.0

.DEVICE INFORMATION TABLES

6.0

TEST SUMMARIES

7.0

MAINTENANCE HISTORY

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

0
PAGE 4
SEQ 0003

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

THE ML11
PERFORMANCE EXERCISER IS A BLISS PROGRAM WHICH RUNS uno;n
THE _ PDP-11_
DIAGMOSTIC SUPERVISOR AND WHICH EXERCISES UP TO 8 ML11
UNITS ON A SINGLE RH CONTROLLER. AN ML11 UNIT IS A FAST, RANDOM ACCESS gc.ocx MODE MOS MEMORY SYSTEM WITH ECC CAPABILITY. ° IT IS MADE

UP OF 3 CONTROL MODULES AND UP TO 16 ARRAY MODULES.

DEVICE, AND AS SUCH, CONFORMS TO MASSBUS STANDARDS.

1T IS A MASSBUS

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR gss WITH THE DIAGNOSTIC

SERVICES SOFTWARE (SUPERVISOR).

THESE

TO_THE OPERATOR AND TC THE SOFTWARE ENVIRONMENT.

USED WITH XXDP+, ACT,

APT, SLIDE AND PAPER TAPE.

CRIPTION OF THE RUNTIME SERVICES,

THIS PROGRAM CAN BE

FOR A COMPLETE DES-

REFER TO THE XXDP+ USER'S MANUAL.

THERE IS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN
THIS DOCUMENT.

1.2

SECTION 2 OF

SYSTEM REQUIREMENTS
1.

1.3

RUNTIME

SERVICES PROVIDE THE INTERFACE

PDP=11 WITH 28K WORDS OF MEMORY.

CONSOLE TERMINAL

RH11 OR RH70 CONTROLLER

170 8 ML11A

XXDP+ LOAD MEDIA

OR ML118

DRIVES

RELATED DOCUMENTS AND STANDARDS

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

mg FmOI‘.IiOHING DOCUMENTATION MAY PROVE USEFUL IN LEARNING

1.4

ML11 ENGINEERING SPECIFICATION

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, SINCE OTHER
DIAGNOSTICS WILL BE AVAILABLE FOR TROUBLESHOOTING THE EXACT CAUSE OF

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

g 1
PAGE 4-1

FAILURE. _ A LIST OF AVAILABLE DIAGNOSTIC TOOLS IS INCLUDED IN APPENDIX 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 }"l_g 11 _COMAANDS AVAILABLE TO THE DRS.
ANY
COMMAND IS RECOGNIZED BY
FIRST 3 CHARACTERS,
AND MANY COMMANDS
MAY BE MODIFIED BY OPTIONAL SWI TCHES WHICH ARE DESCRIBED IN THE NEXT

SECTION.

DRS COMMAND

EFFECT

START

START THE DIAGNOSTIC FROM AN INITIAL STATE

RESTART

START THE DIAGNOSTIC WITHOUT INITIALIZING

CONT INUE

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C)

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,

COMMANDS.

AND ARE

APPENDED

THE SWITCHES WHICH HAVE MEANING FOR THIS EXERCISER AND IN-

FORMATION ABOUT THEIR USE ARE GIVEN IN THE FOLLOWING TWO TABLES.

SWITCH

EFFECT

/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

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

PAGE 4=2

1
SEQ 0005

DDDDD PASSES ONLY (DDDDD = 1 TO 64000).

JUNITS:LIST

TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

IN THE LIST.
klg'l' EXAMPLE :
IW"S:gi :5=7
USE UNITS 0,3,5,6,7 (UNIT NUMBERS =
)

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.

%ELOH IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH

START

RESTART
CONTINUE
PROCEED
DROP
ADD
PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

PASS

FLAGS

EOP

UNITS

X
X
X
X

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 C
EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS ARE ALSO C
A START COMMAND UNLESS SET USING THE FLAG SWITCH.
THE ZFLAGS
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

HOE -

EFFECT

HALT ON ERROR - CONTROL IS RETURNED TO

DRS COMMAND MODE

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)

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

6 .1
PAGE 4-3
SEQ 0006

PRI

DIRECT MESSAGES TO LINE PRINTER

BOE

"BELL"' ON ERROR

ISR

INHIBIT STATISTICAL REPORTS

)

INHIBIT PROGRAM DROPPING OF UNITS

ADR

EXECUTE AUTODROP CODE
* ERROR MESSAGES ARE DESCRIBED IN SECTION 4.7

SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. MORE THAN ONE
FLAG MAY BE SPECIFIED WITH THE /FLAGS SWITCH.
FOR EXAMPLE
T0, 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

INFORMATION BY TYPING

MUST ANSWER "Y'! AFTER A START COMMAND UNLE

HAS BEEN PREL(,IADED USING THE SETUP UTILIT Y

~=f

THE USER FOR

‘'CHANGE WW (L) 2.

YOU

USER'S MANUAL).
YOU ANSWER THIS QUESTION WITH A “*Y'' T
TIME
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 % RH CONTROLLER
(OCTAL, DEFAULT 172000).

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

(OCTAL, DEFAULT 204).

BR LEVEL FOR INTERRUPT (5) 0?
ANSUER: THE BUS REQUEST LEVEL FOR INTERRUPT

(OCTAL, DEFAULT

S).

DRIVE NUMBER (0) 0?
ANSWER: THE PHYSICAL
DRIVE MSR(S) OF THE DRIVE(S) TO BE TESTED
(OCTAL, {072, DEFAULT 0).

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

W1
PAGE 4~4

2.4.2 SUMMARY OF HARDWARE QUESTION SEQUENCE
L id i

i it didiiildd]

# UNITS?

ARRRARNRRRRARER
RS

ARRRRRANRARRRRANY
«

(SR ADDRESS? :

AR AARAAARARAAAS

RARAARAAAAAAAAAAR
*

VECTOR?

AXRRRRAERANAAANAS

AARRERRAAARARNRAY
*

BR LEVEL?

AAREAARAEAARAAR
NS
]
bi2

i3232333311117

* DRIVE NUMBER?

®
*

ARAARARAAARARAAAAS

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
l"Y‘ iuefgxfim ouggmns AND THE DEFAULT VALUES ARE DESCRIBED

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

IF A *“Z (CONTROL=2Z) 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

I 1
PAGE 4-5

2.5.1 QUESTIONS AND ANSWERS
1.

LIMIT RANGE OF SECTORS TO BE TESTED (N) L?
ANSWER: TO TEST MLY 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

QUESTION '# UNITS ?'' WAS 1.

HARDWARE

(filfll. {Y TO TEST PARTIAL UNIT, N FOR ENTIRE UNIT), DE-

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

DO YOU KNOW THE EXACT RANGE OF SECTORS TO BE TESTED (N) L?
ANSWER: THIS DECIDES WHETHER TO
;
BOARD NUMSBER.

ASK

FOR

THE NEXT TWO QUESTIONS WILL BE ASKED ONLY
ANSWERED YES:

NUMBERS

QUESTION

FIRST SECTOR TO TEST (0) 0?

ANSWER: ms secron

{o-

osmnf

SECTOR

R WHERE TESTING

FOR ML11A, 0=37777

BEGINS

FOR

ML113),

LAST SECTOR TO TEST (LAST) 0?

P ;:&‘:’;;;%"“
77 FOR AL11A, 0-37377

FoR mL11BD.

'T‘gf 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).

6‘

THE PROGRAM OPTIONS INCLUDE:

ADDRESS CHECK

PATTERN TEST

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

J 1
PAGE 4-6
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, N FOR COMPLETE
ERCISER), DEFAULT N).
THE FOLLOWING SET Gr QUESTIONS WILL BE ASKED ONLY IF

6 1S ANSWERED YES:
7.

DROP OPTION 1 (N) L?

DROP OPTION 2 (N) L?

DROP OPTION 3 (N) L?

EX~-

QUESTION

10. DROP OPTION 4 (N) L?
11. DROP OPTION 5 (N) L?
‘2. 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).

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

K
_1
PAGE 4-7

SE@ 0010
ARRAARRAANNRRANAY

LIMIT RANGE

ARARARNRAAAAAAAAR

QOF SECTORS?

=«

]

YES !
:

:
:

ARARAARRARRAANA AN

*
*

KNOW EXACT
SECTORS?

«
*

3
g

ARRARRAAAARAR AR AN

YES

ARARRARAAAARRAL

\ NO
B

RRRARAAARRAAEEY

* 1ST SECTOR? «

*BOARD NUMBER?*

ARRREANRANARAN L

ARRRARAARANREEY

]

s
:
:

!
]

* LAST SECTOR?*

[

]

RERRRANRAARRAAR

AERRAARARRERRAd

(CONTINUED ON NEXT PAGE)

:
:

ARARRARREARA RN AR S

*
*

DROP ANY
OPTIONS?

ARRRAARAAARANAANR

>4
!

RARERRRAARRANRANRY

* DROP OPTION 1?7 «

RERRANARRARRARARRS

]

‘

FRARARARNRARARANAS

NO !

* DROP OPTION 2?7 +

RAARRARARAAAARARRY

ARAARAAARRRARNANAS

* DROP OPTION 3? »

]

ERRERRRAARARARANNS

AARARRRRRAARAAAAES

RAARRANRAARRRAREAY

AARAARRARRARAAAAY

PAT # USED
WITH MARCH?

=«
=

ARRARRAARRARRRRRS
;

YES

* DROP OPTION 4? t====<)!

Bty

*
*

YES

NO !

EEREARRRARARAAANR

*
*

PAT # USED
WITH MARCH?

+
«+

RERAAARARNAANAAAS

ERERRRAAARRRARRRRS

* DROP OPTION 5? «

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

L 1
PAGE 4-8
SEQ 0011

ARAERANARANARRA
NS

ARARARRRRRRRNRAER
* ENABL REFRESH +

MARGINING?

RAARAAAAAAARAARLY
1

L i3 313323333330

*
*

DISABLE
ECC?

*
*

L23333233333
3237
33
]

ARRARAARRRRARRRAR

*
*
L

i i

ENABLE
*
EOP SUMMARY? +
i

i diddd]

ARRRAANRRRRRRARRS

ENABLE

PRINTOUTS?

=«

ARARRARARARRRARAR

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.
1IF 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 HYPOTHETI
DEVICE, THE XY11 WHICH IS
MADE UP OF ONE CONTROL HODUL; WITH 8 UNITS (SUB-DEVICES).
THESE

8 UNITS, NUMBERED 0 THROUGH

HAVE JUST ONE HARDWARE PARAMETER

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

THE 3 EXAMPLES WHICH FOLLOW SHOW DIFFERENT WAYS OF ANSWERING THE

HARDWARE QUESTIONS TO ACH{EVE IDENTICAL RESULTS.
IN EACH EXAMPLE,
THERE ARE TO BE 8 XY11'S TESTED WHICH HAVE THE FOLLOWING Q-

UNIT #

Q-FACTOR

NOWVMSWNN=O

FACTORS:

0
—-—O000

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

LR
PAGE 4~9

SEQ 0012

EXAMPLE 1:

ANSWER SEPARATELY FOR EACH UNIT

# UNITS (D) ?

B8<CR>

UNIT 0

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

UNIT 1

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

Q=FACTOR (0) 0 ?

1<CR>

UNIT 2

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

UNIT 3

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

UNIT 4
CSR ADDRESS (0) ?
160000<CR>
SUB=DEVICE # (0) ? 4<CR>
Q=FACTOR (0) 0 ?

<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>
@=FACTOR (0) 1 ? <CR>

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES
WHEN A NON-DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN

SPECIFYING MULTIPLE UNITS!

AS YOU CAN SEE,

THE HARDWARE PARAMETERS DO NOT DIFFER

SIGNIFICANTLY FROM UNIT TO UNIT.
IS NOT VERY EFFICIENT.

THE PROCEDURE SHOWN

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113

29-MAR-82 13:41

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) ?

B8<CR>

UNIT 0

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

Q-FACTOR (0)
0 ? "0, 1<cR>
UNIT 2

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

<CR>

UNIT 6

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

@=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
PASS THROUGH Ds QUESTIONS.
THE
FIRST PASS BUILDS
ENTRIES. BECAUSE 2 SUB-DEVICES AND

Q=-FACTORS

ADDRESS 1S

WCJ IED. THE DRS ASSUMES THAT THE CSR

FOR BOTH UNITS.

& ENTRIES WERE BUILT.

THE

**='*

IN THE SECOND PASS

CONSTRUCT TELLS THE DRS

TO INCREMENT THE DATA
2: S;’E‘E' FIRST VALUE TO 'l’ls
OND.
IN THIS CASE
IFIES sw-nsmis

AND 5.

THE CSR

ARE ASSUMED TO BE 1
WERE ONLY SPECIFIED ONCE.
FIED IN THE THIRD PASS.

EXAMPLE 3:

EC4

FACTOR FOR THE &4 ENTRIES

nesnsnmv SINCE THEY
THE LAST 2 UNITS ARE
SPECI-

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

# UNITS

(D) ?

B8<(R>

UNIT 1

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

@-FACTOR (0) 0 ? 0.1.0.,.,1,1<CR>

| CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

MACRO M1113 29-MAR-82 13:41

PAGE 2-11

SEQ 0014

AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS
E:Cslfogg’f'A BLANK FIELD)
DIRECT THE DRS TO REPEAT THE

2.7 QUICK START-UP PROCEDURE

2.7.1

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

BOOT XXDP+

GIVE THE DATE AND ANSWER THE LSI AND SOMZ QUESTIONS

TYPE 'R NAME'',

TYPE "START"

ANSUER THE "'CHANGE WW'' QUESTION WITH °'Y*'

ANSWER ALL THE HARDWARE QUESTIONS

ANSWER THE "‘CHANGE SVW'* QUESTION WITH ‘W'

WHERE 'NAME'' IS THE FILENAME OF THE

.BIN OR .BIC FILE FOR THIS PROGRAM

WHEN YOU FOLLOW THIS
msmvw
WILL BE USING ONLY THE

DEFAULTS FOR FLAGS
ARAMETERS.
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

2.7.2

THE DEFAULTS

TO START=UP THIS PROGRAM WHEN RUNNING UNDER ACT

THE FILE WHICH WILL BE STARTED MUST, AT SOME TIME MVE QEN CIEATED

WITH THE *SETUP® UTILITY PROGRAM.

ASSUMING THAT TM

THE START-UP PROCEDURE IS THE SAME AS THE ONE IN SEC"N e.7.1.

TO CREATE A FILE USING THE SETUP UTILITY:

TYPE 'R SETUP"

THE TARGET ENVIRONMENT IS ACT, SO TYPE "‘AC"

TYPE TI'E SET!P COMMAND:

TFII.E EXTSIWILE EXT
BERE WTFILE XT = THE NE CREMED FILE
INFILE.EXT = THE RE
D .BIN FILE

YOU WILL MVE AN OPPORTUNITY TO SET UP
A PERMANENT

R'E.fhlsl.w TEST CONFIGURATION BY ANSWERING THE HARDWARE

TYPE “ExIT"

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

CZMLBBO PERFORMANCE EXERCISER

USER DOCUMENTATION

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

SEQ 0015

3.0 ERROR INFORMATION
3.1 TYPES OF ERROR MESSAGES
THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GE'TJERAI. ;?Rm?
;SAGES

ARE ALWAYS PRINTED UNLESS THE ''IER'* FLAG IS SE
THE GENERAL ERROR MESSAGE IS OF THE FORM:
NAME TYPE NUMBER ON UNIT NUMBER

ERROR MESSAGE

TST NUMBER PC:XXXXXX

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

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
IHM;JM ABOUT THE ERROR.

THESE ARE ALWAYS PRINTED UNLESS

THE "IERTM 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 CONDITIONS WHICH CAN BE
DETECTED AND WHICH CAUSE THE DRIVE TO BE DROPPED:

CAUSE1
CAUSEZ
CAUSES

=
=
=

'
'
°

(NOT PMlsb 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:
!°LOW SECTOR OF XXXXXX EXCEEDS TOP SECTOR OF YYYYYY'

3.2.2

MESSAGES DURING TESTING

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

MsG1

‘'==> RUN ML11 LOGIC TEST'

THIS MESSAGE APPEARS WHEN AN ML11

E EXERCISER

D
MACRO M1113 29-MAR-82 13:41 PAGE 6-15

SEQ 0016

SYSTEM ERROR OCCURS.
THE USER {S
INSTRUCTED TO RUN T'E I.OGIC
T;é T0
SEE IF THAT w
THE

REASON FOR T
THIS MESSAGE

s %* FM “#T

ERRORS.

MSG2

"==> RUN ML11 PROM MAINTENANCE PROGRAM'

THIS MESSAGE APPEARS WHENEVER ANY
OF THE FOLLOWING CONDITIONS IS TM

A) AN ECC HARD ERROR (ECM OR UNC) IS
DETECTED
8) AN ARRAY REACHES ITS HARD OR SOFT
ERROR THRESHOLD

3 ouuus A PERFORMANCE SUMMARY

AN ARRAY HAS mcuso OR exceém

ITS HARD OR SOFT ERROR THRESHOLD.

MSG3

*SOFT ERROR'
A SOFT ERROR xs A CORRECTABLE DATA

ERROR WHICH CAN
eummeo 8y
REWRITING AND REREADING
MSG4

°HARD ERROR'

A HARD ERROR IS A gmcuu DATA
ERROR WHICH PERSISTS AFTER A REWRITE
AND
A REREAD.
ANY WRITE COMMAND HAS 3 POSSIBLE ERROR CALLS ASSOCIATED WITH IT:

ERROR
POSITION

ERROR
TYPE

DIAGNOSTIC
MESSAGE

ERRDF

MSG1

2ND

ERRDF

- MS61

3RD

ERRDF

MSG1

CAUSE OF ERROR/ACTION

Al
g
RETIIES
FML;D
FOR M ML11 SYSTEM
CONSIDERED
10 8E WATAL. W
flf DRIVE.

CONTROLLER FATAL ERROR.

DRIVE FATAL mm.

ANY EAD OR WRITE CHECK COMMAND HAS = I.

DROP THE DRIVE.

>i
RS

5 FOR SYSTEM ERRORS (WHICH RESIIJIN
NARD AND SOFT DATA ERRORS (WHICH ARE
CMT&
THE SYSTEM ERRORS:

ERROR

DIAGNOSTIC

DROP THE DRIVE.

;A?ED g"fl IT,

R AMAV BASIS):

E EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 5-12
POSITION

TYPE

MESSAGE

18T

ERRDF

MSG1

SEQ 0017

CAUSE OF ERROR/ACTION
AF
T;l dUCCESSf& R:gb

hfib.

#F TKV DO NOT MATCH PERF
CS%V
THEN
ME ECC LOGIC FAILED.

ERRDF

3RD

ERRDF

MSG1

CONTROLLER FATAL ERROR.

4TH

ERRDF

MSG1

DRIVE FATAL ERROR.

STH

ERRDF

MSG2

ECC HARD ERROR DETECTED.

ERROR

DJIAGNOSTIC

6TH

ERRHRD

MSG4

MSG1

DRIVE.

ALL 6 IETRIES FAILED FOR AN ML11

SYSTEM
ERROR
WHICH
&IGIM
I.U
M!Dg
TO
BE NON-FA
YAI.

DROP THE MIVE

DROP THE DRIVE.

THE DATA ERRORS:

POSITION TYPE

MESSAGE

CAUSE OF ERROR/ACTION
CI.ASSIF!CAUN.

FAII. )API(AS
N IF
A DATA ERROR
zsg). I’MTE

TED Amv AND

CHECK fl! fl
COUNT AGAINST THE THRESHOLD.
7TH

ERRSOFT

MSG3

m; DURING ERROR CLASSIFICATION,

M‘M lfl

"A?‘tés%ARRAY
um“

TIE!UC

8TH

ERRSOFT

MSG3

ERROR.

T THE THRESHOLD.

DURING ERROR
"&SSIF
(
ICAUN

DID NOT
(THE RETRY MAY

A ERROR
s OR_IT MAY FAIL FOR
TE T
OUNT

THERE IS A CORRESPONDENCE
*T*EN EVEIY NUMBER AND THE PLACE IN THE

PROGRAM WHERE THE ERROR WAS DET
A)

TED

THE MOST SIGNIFICANT DIGIT IDENTIFIES THE OPTION NUMBER.

EXCEPTION:

THE C

INTEGRITY ROUTINE IS

MPBERS UILL APPEAR TO'ONLY BE 1-0
2 STGNTE8
ICANT DIGITS. TAKE THE 0 TO BE A SIGNIFICANT

DIGIT (SEE EXAMPLES).
B)

THE 2 LEAST SIGNIFICANT DIGITS ARE THE POSITIONAL

NUMBERS TO IDENTIFY WHERE THE ERROR CALL IS LOCATED
WITHIN THE OPTION.

CZMLBBO PERFORMANCE EXERCISER

USER DOCUMENTATION

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

SEQ 0018

i
[

[]

FOR OPTION 5,

THE SECOND

MOST SIGNIFICANT DIGIT IS
USED TO IDENTIFY WHICH RANDOM
résr IS RUNNING.

EXAMPLES:
1)

ERROR NUMBER:

ERRCR NUMBER:

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

6 => COMMAND

INTEGRITY ROUTINE
(OPTION 8).
ERROR 06

208 => OPTION 2, ERROR 08

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

g THE °*INTEGRITY® ROUTINE:

'WRITE COMMAND:

| ERRDE (2-MSC] '§3"

iveee INTECRITY %ig ERROR §§ oase

TERRDF (3,MS61,0);

ineee INTEGRITY ROUTINE

ERROR 0S5 ssee

'READ COMMAND:
i

IERRDF
(S MSC1 0);

leses INTECRITY ROuIl

'ERRDF(7 ,MS61,0);

!awxanx

'ERRDF (’.fl“‘. ):

Iannn

!EW(.,Q& ): lanee
1ERRHRD 'nsd §: ienen
iERRSOF T ( °,‘§§’ ); lnnee

'ERRSOFT(11

——

[

INT

g!" fi

teee

1Y
v
v Sflf

)2 innen

TY ROUTI

tate
P
snne
seee

'WRITE CHECK COMMAND:

sEm""fli"“%:g?:o §H¥
'ERRDF (14
1,0); !enan
144
| ERRIRD(3, ’Asal R e
M
iERRSOF T ( .gg.gi.-inn 1
v

[]

[}

'ERRSOFT(18,MSG3,1); ixees INTEGRITY ROUTINE

RAOR 14}§ sean
iue
B
1’ enen

ERROR 18 vese

'WRITE COMMAND:
!ERRDF (101,M5G1,0);

YERRDF (1 g.nssl. );
'ERRDF
(103 ,M561,0);

!wxex

lnean

QPTION 1

I{N 1

TION 1

!CHECK OR READ:

!ERRDF (104,MSG1,0);

!«wa« OPTION 1 ERROR 04 veee

MACRO M1113 29-MAR-82 13:41 PAGE 2-12

CIMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

IERRDF (108.HSG1.00;
]

inees
OPTION |1 EAROR
04 sues
!wexx QPT
ERROR
I

!ERRDF
(107 ,MS61,0);

'ERRDF
(108 _MSG2,0):

SEQ 0019

]

!'wesxx QPT

}

RROR

wenn

'ERRSOFT(111.MS .8): feeax OPTION 1 ERROR 1? LI
:

lvtew

L1117

g OPTION 2:
!WRITE COMMAND

iwxex OPTION

iaxee OPTION
inwsx OPTION

3
»»»
LE
R 1
*a»

L E X

.HSGi

g.gg‘ )'
);

LAIRD =3

!ERRDF (

'ERRDF(

):
):

()] :

lseas OPY
OPT

tanen OPT
lasen OPT
lanex QP

;

Re-0): jevee 2T

L EZ
R
R ]
L EE X
R
B
N
L EEZE
X
R .
LE R
R
N
N
N J

leesx

SSBIIKER

[=1-}

lwnxe OPY

);

g damgy duss e $omg P

);

ooy oy

!CHECK OR READ:

!LOOP CHECK OR READ:
YERRDF ( 1;.!561. );

innen

YERRDF (213,M561,0); !enan rxon
YERRDF ( ;.flSfl. ):
!nn
| ERRDF (
o| R e
!ERRDF
(21
): lanenx %
QPQPfl
YERRHRD (2
0); ieaen
iERRSOF
T (21 ’53'8"' ineen QP
!ERRSOFT (219,
J0): inene O‘l’

12 wenn
1;
1L
14
2ane
}1,g e
vaws
venk
1; eane
19 sene

§ OPTION 3:
'WRITE COMMAND:

'Emrfgiflggg
]

'ERRDF

(303,MSG1.0):

ieave
m{u
S Em
§§ aves
isees OPTION
RROR
T
]

!CHECK OR READ:

'nsc;" ¢

iERRHRD(309,MS6G4,

e Be B0 8 O

1 ERRDF (

[
Qe

(305.MSG1 D) faves
LERRDE(308meel
OOT i E
e
'tnt ot’
% g RERE

1ERRDF

'nn
....

: innee 01

(1113

L 2133

CZMLBBO PERFORMANCE EXERCISER
USER DOCUMENTATION

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

SEG 0020

IERRSOFT
(1 1-RSE3:00; iaeas OPTION 3 ENROR 19 2ion
'

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

'EW(

1.M561,0);

taxax OPTION 4 ERROR

iERRDF (4

MSG1, )

faxxax OPTION & ERROR

'ERRDF (& .HSGI ):

tanax OPTION 4 ERROR §§ akat

'MARCHING UP:

!CHECK OR READ DATA:
'ERRDF (404

,MSG1,0);

!w«=x OPTION 4 ERROR

wam
s

YERRDF (

.gg. ):;

leaxxx QOPTION &

wann

MSG2,0):

!se«x OPTION &

YERRDF (

.M561,0);

YERRDF

(407,

YERRDF (

0);

I«xex OPTION &

ERROR

leeex OPTION 4

ERROR

YT T

wane

iemsommins 8)- 1
isenes BHa
OPTION & e
RROR 1? 1
tann
!WRITE COMP:

'ERRDF (415."561.§):

YERRDF (412 ,M561,0);

fansn OPTION & ERROR 13 teew
enen

inext OPTION 4 ERROR 12

'ERRDF
(414 MSG1,0); !=«x« OPTION 4 Em 1% EEtrs
!MARCHING DOWN:

‘

!CHECK OR READ COMP:

“15.8861 ):

9.fl$€1 ):

'Emf “1

3.m0);
(61
)-

fanxe OPTION & ERROR 15 nens

fasae OPTION 4 ERROR l’ ke

lwsxx OPTION 4 ERROR 17 wwee
leean
on}on 4 ERROR 18 anne
Taxsn OPTION & ERROR
FrTT

'mson?t
SPTION &¢ ERROR
Enman 8Y sove
ERRSOF
T (i.ms
42 ,3)-:::::
iases OPTION
22 e
WRITE DATA:

'ERRDF (423 ,MSG1,

'ERRDF (6;‘.8561 §)'
'ERRDF (4 5.H$Gl );

!snxx OPTION

ERROR
RRw
Taaxx OPTION &4 ERROR
g‘ ke

fasex OPTION & ERROR

!MARCHING UP:

!CHECK OR READ DATA:

25 wtan

MACRO M1113 29-MAR-82 13:41 PAGE Ll‘
'ERRDF (4 9.ns51. ):

iERRDF

isess OPTION 4

| ERRDE(450 MOC2”
3-‘

ieens CPIION4

iERRDF

SEQ 0021

!axex OPTION &

(427.M5G1.0):

(428.MSG1.0):

L]
LAl

iswex OPTION &

LA
L L]
LA il
LA il

i ERRHRD (%
sxxe OPTION &
'msoml. go)
8
isnes
OPTION &
iERRSOF T (4
insex OPTION &

LAl d]

LAl
d]
LA

g OPTION §S:
!*RAND1* ROUTINE:

isxex OPTION

d
ERROR §1 LAl

TERRDF (5103,M561,0):

fanas QOPTION
fanxe OPTION

eld oy wtmd

'ERRDF (5101,M561,0);
!ERRDF(SIO%.HSGI ):

!WRITE COMMAND:
L411
L2 4]

TION

L]
L il

o el el vt s aed

L4 4]
LA 2]

a4 4]
L2 1]

i e

8)- ixsen OPTION
Ianan

!=xx« OPTION
‘exax OPTION
axex OPTION
sxes OPTION

1.0);
MSG1 ).)-

!wxxx OPTION

Tasae OPTION

.§):

MSG1,0);

!CHECK OR READ:

L iid]
e

MZ' ROUTINE :

lxxxe OPTION

innan on}ou
issex OPTION

'ERRDF (5

1
61 );
semr(sgg
e
§)'ERRDF (5. .nsci

!WRITE COMMAND:

CZMLBBO PERFORMANCE EXERCISER

USER DOCUMENTATION

Li i)
L4 41

LA 42

!CHECK OR READ:
0);

20);
);
);
):

xxnx OPTION

L2 4]

1xxex QPTION
l1axex OPTION
exts OPTION

L iil

ineex OPTION

05: ieess OPTION
.85.- isnes OPTION
); !xxxx OPTION

Lid
]
e

Li i1
TR

Li1
L2141

: 'RA'DS' ROUTINE:

!WRITE COMMAND:
!ERRDF (5301,MSG1,0);

!#x«x OPTION 5, RAND3 ERROR 01

tRRY

CZMLBBO PERFORMANCE EXERCISER

J
MACRO M1113 29-MAR-82 13:41 PAGE 6-15

USER DOCUMENTATION

IERRDF (3308 moc] )

SEQ 0022

1awes SPTION 3- RANDZ ERROR 02 weve

!CHECK OR READ:
YERRDF (

.HSGl ):

1xaax OPTION

ERRDF (

.RSG! )°

faxee OPTION

YERRDF (

MSG1,0);

YERRDF (

!wex« QPTION

.uss )

YERRDF (

ianax OPTION

laxxs OPTION

m\a 04 wnnn

S weew

thad

S, M

iERRSOFT
(5310,38): isexs
OPTION 5.
'ERRSOFT( 11.!3
innnn OPTION
'ERRHRD (

!-t" OPTION

LAl

(L]
0
snee
S, M ERROR 17 wwee

S. Em

!"RAND4" ROUTINE:
!WRITE COMMAND:

'ERRDF (5401.HSGI

'ERRDF (54

fanex OPTION S, RANDS ERROR

01 w#ene

!asxx OPTION 5., RAND4 ERROR

rhee

ineas OPTION

.nss1

5. RAND4

ERROR

Law

. RAND4

ERROR

{=xxs OPTION
ixxas OPTION

S, RAND4 ERROR
5, RANDS ERROR

ICHECK OR READ:

. fonse 0pT on 3 RANDS m“

.0); iness OPTION

)- isxes OPTION

o RANDG ERROR 11 wane

ATTO‘EDNEACHMSSM

1
SUMMARY WHICH SHOWS THE DIAGNOS IC‘SOUNT
PERFORMANCE SINCE
THE SAME PROGRESS REPORT

COMMAND.

A TYPICAL REPOR
FOR 2 T
DRIVES IS

THE PROGRAM'S EXECUTIN (VIA A “C)

f flfllfib 8Y

PERFORMANCE SUMMARY
R OF MBYTES TRANSFERRED:

1145

MBYTES WRITTEN
MBYTES READ
MBYTES WRITE CHECKED

LOGICAL UNIT: O

DRIVE: 1

SOFT EMM}CMT;

HARD ERROR COUNT:

15:

TRANSFER RETRIES:

SERIAL #: 1234

aves

5. RANDG ERROR 10 waws

4.0 PERFORMANCE AND PROGRESS REPORTS

STARTED.

11l
b

BELOW:

STOPP

CZMLBBO PERFORMANCE EXERCISER

(g‘<<< §§§
o
g

DRIVE: 1
SERIAL #: 9876
WTI!O&ER FATAL ERROR)

0
e

==> RUN ML11 PROM MAINTENANCE PROGRAM

->2RW ML11 PROM MAINTENANCE PROGRAM

\fi“

D
e
ki

““w

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

USER DOCUMENTATION

1
Y1
1
TRMSFER RETR!ES:

5.0 DEVICE INFORMATION TABLES
AT THE START OF THE PROGRAM,

AN AUTOMATIC CHEC K OF THE SYSTEM

CONF IGURATION 1S MADE AND DEVICE INFORMATION S IMILAR TO THE

FOLLOWING IS PRINTED FOR EACH UNIT:

LOGICAL UNIT: 0

ML11-A

DRIVE:

SECTORS UNDER YE
ST:

TRANSFER RATE: 1 MBYTES/SECOND

f;;
CSRESS: 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.
DESCRIBED BELOW:

THE SUBROUTINES, CALLED OPTIONS., ARE

6.1 OPTION 1 (OPT1)

PURPOSE :

TO CHECK ADDRESSES USING DATA = SECTOR NUMBER.

mgfi’m 4K WORDS IN LENGTH, AND ALL SECTORS

THE CODE FOR °"OPT1® IN BRIEF:
BEGIN 1 (START OF ROUTINE)
SAY ROUTINE IS RUNNING

m&%ffl 2 %S!Y'A‘;VF%““
cmi'mEflo"T’ ;us SELECTION LOOP)
INCR LOGICAL UNIT FROM O TO LASY
EEG#N”(STMT OF LOGICAL UNIT SELECTION LOOP)
: BEGIN & (START OF LOOP THAT COMPLETELY TESTS ONE UNIT)
I'f‘lfl" IS ACTIVE

: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
: INITIAIJZE HITE AND READ BUFFER POINTERS

: SECT

: WHILESEC%N
LEQ HIGHEST DO

EEEE 561mc;TMT OF SECTOR SELECTION LOOP)

R GE'ERATETHE PATTERN

SEQ 0023

CZMLBBO PERFORMANCE EXERCISER

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

USER DOCUMENTATION

: SET UP BUFFER POINTERS BEFORE TRANSFER

: LOOK FOR

t
s

20z 2 :DO"EHTECOECKMIEAD
:o:o:os Loox
ro”
(IF ?a
17

WRITE

: : : : : CHOOSE

TEEE

ERRORS (IF

THER TO WRITE

UNIT, LEAVE TESTLOOP)

CHECK OR READ

FER mums AFTER

mve TESTLOOP)

TRANS

TEEE mre CTOR uu?ea
By mlsz
OFs;crons IN PREVIOUS TRANSFER
END 3 (END OF LOGICAL UNIT SE

E&Z (END OF COMPLEMENT FLAG S

RE
END 1 (END OF ROUTINE)

mr~m
m

LooP
VE UNIT)

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 RUNNI NG
CHOOSE A MAXIMUM PATTERN NUMBER
INCR COUNT FROM 1 TO (2+MAX)
: BEGIN 2 (START OF PATTERN SELECTION LOOP)
: GENERATE THE PATTERN
: INCR LUN_FR
O TO OM
LAST

2 BEEIN&(STMT OF LOGICAL UNIT SELECTION LOOP)

: i : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
:o:osx'rfmnxsucm

: i : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
EEE INITIALIZEmr‘gWRITE AND READ BUFFER POINTERS
: SECTOR = L

: : : : WHILE SECTOR LEQ MIGHEST DO
trososos %glmg
(START OF SECTOR SELECTION LOOP)

t sz SE}TlE’ ”FER POINTERS BEFORE TRANSFER
:::

: LOOK

FOR ERRORS (IF

DROP UNIT,

LEAVE TESTLOOP)
: 2 : : : CHOOSE WHETHER TO WRITE CHECK é

:::::DO"EHITECDEC
MREAD
::::: LOOK FOR ERRORS (IF DROP
UN

I.EAVE TESTLOOP)
::: : : CHANGE BUFFER mminsmsf

:::: : UPDATE SECTOR

::::: END
6 (END OF

:::: ENDS (END OF TEST

END 4 (END OF TESTL

ma OF s crous IN PREVIOUS TRANSFER

SECTOR s&scuou
LOOP

ACTIVE UNIT)

: END 3 (END OF LOGI
ECTION LOOP)
IF NOT THE QUICK VERIFY PASS THEN 'LOOP READ' (DESCRIBED BELOW)

RETURN

END 1 (END OF ROUTINE)

SEQ 0024

CZMLBBO PERFORMANCE EXERCISER

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

USER DOCUMENTATION

THE 'LOOP READ' CODE IN BRIEF:
BEGIN 11 (START OF LOOP READING SECTION)
INCR LUN_FROM 0 TO LAST

: BEGIN 12 (START OF LOGICAL UNIT SELECTION LOOP)

:
2

TESTLOOP2:
: BEGIN

13 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)

x;ewm IS ACTIVE

: BEGIN 14 (START OF TEST FOR AN ACT IVE UNIT)
: INITIALIZE THE WRITE AND READ BUFF ER POINTERS
: SECTOR = LOWEST
WILE SECTOR LEQ HIGHEST DO

: BEGIN 15 (START OF SECTOR SELECTION LOOP)
: GET_WRDCNT

: : : : SETTUP BUFFER POINTERS BEFORE TRANSFER

: :
: 2
: s
t2
: 2

:
:

:
:
: :
::
: :

CHOOSE WHETHER TO WRITE CHECK OR READ
INCR KOU
FROM
NT
1 TO TIMES

: BEGIN 16 (START OF COUNTING LOOP FOR LOOP READING)
: DO THE WRITE CHECK OR READ
: LOOK FOR ERRORS C(IF DROP UNIT &EAVE TESTLW;)

: 22 :: END 16 (END OF C
:

INEF

CHANGE BUFFER POINTERS AFTER

TRANSFER

TOR NUMBER BY # SECTORS IN PREVIOUS TRANSFER

(END OF SECTOR SELECTION LOOP)

END 0; TEST Fg Apd ACT IVE UNIT)

OGICAL UNIT SELECTION LOOP)
CTION)

(

6.3 OPTION 3 (GPT3)

PURPOSE :

TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS.

THE CODE FOR "OPT3' IN BRIEF:

BEGIN 1 (START OF ROUTINE)

SAY ROUTINE IS RUNNING
INCR_COMPLEMENT FLAG FROM 0 T

: BEGIN 2 (START OF cmmr FLAG SELECTION LOOP)

: GENERATE THE PATTERN
: INCR LUN FROM O T0 LAST

BEGIN0&(START OF LOGICAL UNIT SELECTION LOOP)
: BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
I'FEI.NIT IS ACTIVE

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

INITIALIZE THE WRITE AND READ BUFFER POINTERS

: SECTOR
= LOWEST

e 2: WHILE SECTOR LEQ HIGHEST DO

TEEE EE?'
|mgc(smm OF SECTOR SELECTION LOOP)

§1 3313 SE}'
lEP BUFFER POINTERS BEFORE TRANSFER
$

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)

SEQ@ 0025

——

CZMLBBO PERFORMANLE EYERCISER

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

USER DOCUMENTATION

SEQ@ 0026

: 2 2 : : CHOOSE WHETHER TO WITE CHECK OR READ
: s ::oomsumscuec OR READ
::::: LOOK FOR ERRORS (IF DROP
UNIT,
LEAVE TESTLOOP)

:::: : CHANGE BUFFER POINTERS AFTER TRANSFER

:::: : UPDATE SECTOR NUMBER BY NUMBER or
s;cms IN PREVIOUS TRANSFER
TEEE e'g 6 (END OF secm SELECTION

: : END S (END OF TEST FOR AN ACTIVE mm
: eog 4 (END OF TESTLOOP)
: END 3 (END OF LOGICAL UNIT SELECTION LOOP)

e&2 (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 ”FER OF DATA
GENERATE A BUFFER OF COMP
INITIALIZE POINTERS TO & BUFFERS FOR WRITE/READ DATA/COMP
INCR LUN_FROM 0 TO LAST
: ?EgmIXZP(START OF LOGICAL UNIT SELECTION LOOP)

: BEGIN 3 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
#‘E“"" IS ACTIVE
¢ : BEGIN & (START OF TEST FOR AN ACTIVE UNIT)
¢ : INCR SECTOR FROM LOWEST TO
HIGHEST

:
:

¢ BEGIN
4A (START OF IST SECTOR SELECTION LOOP)

€Y o0 00 0o o

LOOK FORERRORS. (IF DROP UNIT,

LEAVE TESTLOOP)

END 4A (END OF 1ST SECTOR ssLéc ON LOOP)

HOOSE WHETHER 10 SRITE CHECK ORREAD
INCR SECTOR FROM LOWEST TO
u*

"DATA'

: : : BEGIN 4B (START OF

CTOR gumou LOOP)
: : : DO THE WRITE cuecxonm

e hofis'%&ms (IF DROP unn. w\vs TESTLOOP)

:::: LOOK FOR ERRORS (IF mp
UNIT *
VE TESTLOOP)
P ii; END 4B (END OF

SECTOR Léc ON 'L00P)
: : : CHOOSE memsa mOND
uu cuec
comP*

: DECR secronROM HIGHEST ro

- ES&"ERRORSE
Em C1F wgifT, hLEAVE TESTLOOP)
t:: : BEGIN 4C ( r
ART OF

werw‘e‘

5255:»4:(; OFm (IF

CTION LOOP)

uc ;

vs tssnoon

s‘gc

FR
il MR
FROR Lo
y
fuecfsmmon
oALOOP)
ltcffaSECTON4D (smr
OF zm

CZMLBBO PERF MF?NCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 2-21

USER DOCUMENT

: 3

)

'uxeé tssnoon

(o]
-4

5
me

og&rWRITE
t
cuecx OR READ

‘
-.

-«n
~wm

Mee

wm
“ga'? CEND OF LOGICAL UNIT SELECTION LOOP)
END 1 (END OF ROUTINE)
6.5 OPTION 5 (OPTS)

PURPOSE :

TO EXERCISE THE ML11 SYS

MANNER. SO

TMYND*MIVMUEM NGS

T IN A RANDOM

lg OF TESTING

THERE ARE 4 RANDOM TESTS
DOICN ME CALLED BY °'OPTS’

TO ACCOMPLISH ALL TESTING. IT

THE fiesrousuum

OF THIS
INE TO DECIDE HOW MANY 7
E &
RANDOM TESTS WILL BE EXECUTED.
REFER TO 'Ml' T0
‘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

m&lfifn 2 (;gf wmmr'wor FOR THE ROUTINE)
fiEGINuS’(START OF LOGICAL UNIT SELECTION LOOP)
: BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)

I.F!;‘DIIT IS ACTIVE

: GENERATE THE RANDOM PATTERN
INCR LUN_FROM 0 TO LAST

0% 00

BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
INITIALIZE
THE WRITE AND READ BUFFER POINTERS
SECTOR
= LOWEST

: : WHILE SECTM LEQ HIGHEST DO
EEE
S .“Glfl 6 (START OF SECTOR SELECTION LOOP)

T_WRDCNT
R SET'IP BUFFER POINTERS BEFORE TRANSFER
Sk

8 I.GK roa

R
TKRTOH
I :DOTIEH"E
tro:osos
smns m
EEEEE.

UNIT, LEAVE TESTLOOP)

CDEC ‘OR READ
uun LEAVE TESTLOOP)

FER POINTERS AFTER TRANSFER

: 1 :: : UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER
:::::END
6 (END OF sgcm SELECTION
LOOP
:::: ENDS
(END OF TEST
FOR AN ACTIVE UNIT)
2 : : END & (END OF TESTLOOP)

: END 3 (END OF LOGICAL UNIT SELECTION LOOP)

SEQ 0027

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 4-2!

USER DOCUMENTATION

SEQ 0028

EEl':NZ (END OF REPEAT LOOP FOR THIS ROUTINE)
END 1 (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 0 TO LAST
: BEGIN 3 (START OF LUGICAL UNIT SELECTION LOOP)

: %'sfrf&’ THE RANDOM
PATTERN

: BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
: I'F‘I.N" IS ACTIVE

: : BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
SECTOR = LOWEST
INITIALIZE THE WRITE AND READ BUFFER POINTERS

THERE Tl & 2 sl Iousi ALL SECTORS)

""" CHOOSE A RANDOM WORD cCOUNT

::::: SET UP BUFFER POINTERS BEFORE TRANSFER
;ii i : CALCULATE MEXT STARTING SECTOR (BASED ON WORD COUNT)
::::: IF_ NEXT STARTING SECTOR GTR WIGHEST
------ THEN ADJUST THE
COUNT AND NEXT SECTOR SO THEY FIT
‘BEERE
&
&
WITHIN THE TESTABLE SECTOR LIMITS
..... WRITE
: 23t : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)

CHOOSE WHE

HECK OR READ

: END 3 (END
OF LOGICAL UNIT SELE

END 2 (END OF REPEAT LOOP FOR T
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

IEF:

!"ggfiffl 2 (;%T o}ous';t'frrwop FOR THIS ROUTINE)
: GENERATE THE RANDOM PATTERN
INCRLWFMO
OLAS

CZMLBBO PERFORMANCE EXERCISER

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

USER DOCUMENTATION

START

lCAk UNIT SELECTION LOOP)

E ”FER POIERS
el

( START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
I S ACTIVE

S (START OF TEST m
3:: M“HVE UNIT)

:
:
= (MIGMEST
-h
:::: INCR KOUNT FROM 1
u;s
::::: BEGIN 6 (START OF COUNTING LOOP FOR SECTOR SELECTION)

P il il SETOUP GUrrERPOINTERSBEFORE TRANSFER

"""

HOOSE A RANDOM SECTOR

t 222 : :

THEN ADJUST THE WORD

2
: ¢

2 :
21

: CALCULATE WHERE TRANSFER WILL
END (BASED ON WORD COUNT)
IF CALCULATED VALUE GTR
WI
S

22022 :mits

:2 2

::::

SO IT FITS

WITHIN THE TEST

SECTN LIMITS

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE LABEL)

: CHOOSE WHETHER TO WRITE CHE
ORCK
READ

:::::DOTOEH"EC’ECKGIEM

:::o:o:

LOOK oamsurm%m

LEAVE LABEL)

:::: : CHANGE BUFFER POINTERS
AFTER TRANSFER

:::::

END 6 (END OF COUNTING LOOP FOR SECTOR SELECTION)

::::ENDS (END OF TEST FOR AN ACTIVE UNIT)
::: END
4 (END OF TESTLOOP)
: : END 3 (END OF LOGICAL
UNI

TURN
END 1 (END OF ROUTINE)

6.5.4 RAND4 ROUTINE
PURPOSE:
LODI'EST
USING RANDOM DATA, WORD COUNTS, SECTORS
UNITS
THE CODE FOR "RAND4® IN BRIEF:
BEG!N 1 _(START OF ROUTINE)
Y ROUTINE IS RUNNING
INCR COUNT FROM 1 TO REPEAT

: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE)
GENERATE

THE RANDOM PATTERN

TIMES = mn OF WITS * 4

INCR KOUNT FROM 1 T0O TIMES

: BEGIN 3 (START OF COUNTING LOOP FOR UNIT SELECTION)
CHOOSE A_RANDOM LOGICAL UNIT WHICH IS ACTIVE

lgg‘l{&t’uf BUFFER POINTERS

BEGIN & (START OF LOOP 5“" COMPLETELY TESTS 1 UNIT)
INCR KOUNT2 FROM 1 TO 1

: : BEGIN 5 (START OF COUNTING LOOP FOR SECTOR SELECTION)
: : CHOOSE
A RANDOM WORD
COUNT

gs&ls% ng;ns BEFORE TRANSFER

¢ CALCULATE WHERE TRANSFER WILL END (BASED ON WORD COUNT)

IF_CALCULATED V&IE GTR I
H GKS

: 22 : : THEN ADJUST
$

323 .UiiTE

WORD (

WITHIN THE TESTAH.

SO IT FITS

SECTM LIMITS

SEQ@ 0029

CZMLBBO PERFWCE EXERCISER

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

USER DOCUMENTATION

Lm FOR

£1

141

ERRORS (IF DROP WIT

SEQ 0030

EAVE TESTLOOP)

flfil 10H&Y CHE é

a:rs

Y I.EA

TESYLW)

R
E'D
OF g?fl? M L” Ffl SECTM SELECT ON)
¥
E'g 4 (E'D OF TESTLOGP)

2 E

(END
OF COUNTING LOOP FOR UNIT SELECTION)

: END 2 (END OF REPEAT LOOP FOR THIS ROUTI

RE
END 1 (END OF ROUTINE)

7.0 MAINTENANCE HISTORY
MODIFIED BY: D.W. NEALE

DATE: 18-FEB-82

VERSION: B

ALL FUNCTI

TO_THIS
ARE LABLED
WITH A C&Ncmnes
% OF ‘VER C DIA”S"
PRECEEDI
NG ANY
MODIFIED OR DDED Llfilfl.fl(&OF C

FUNCTIONAL CHANGES TO TMIS NMT!C INCLUDE:

1TY TESTING OF ML-118
AND ALT1A BLOCK W
STERS.

CMCT

MODIFING CODE TO

sxm 8IT

g
‘

MVE IENDISCWEAk
“

PER ARRAY

SIS

RS S

b ST
S

Y SRSPrhere

g CTION A T

ADDING TO T

LOCAT IONS

PRINTING.

FRINU“
OF THI

DURING RE

CZMLBBO PERFORMANCE_EXERCISER
PROGRAM HEADER AND

TABLES

MACRO M1113

29-MAR-82

.SBTTL

13:41

3
SEQ 0031

PROGRAM HEADER AND TABLES

wnd
E-34

002000

TWEEN
DIAGNO
PROGRAM AND'
STI
THE ‘SUPERVI
CSOR.

POINTER ALL

g«zem@

\a\\

~RBNe
NSNS

(2ZMLB.B.0,1800.,1

2 888873k3

HEADER

003410

002450
002210

002222

0
LSDISPATCH

0
0

CZMLBBO PERFORMANC

PROGRAM HEADER AND

EtEXEgISEI
TABL

MACRO M1113 29-MAR-82 13:41 PAGE 2—13

SEQ@ 0032

LSMREV::

< <

LSEXP1::

LSEF::

LSSPC::

:
LSDEVP:
:
LSREPP:
LSEXP4:
LSEXPS:

LSAUT:: ~
LSDUT:: =
LSLUN::
:
LSLOAD:

LSETP::

LSICP::

:
LSDESP:

ESLOAD
LSERRTBL
LSINIT

LSCCP::

LSCLEAN

LSACP::

LSAUTO

LSPRT::
LSTEST::"
LSDLY::

LSHIME::

33333

LSDESC

LSPROT
0

0
0

NAMES OF DEVICES SUPPORTED BY THIS PROGRAM

85
1
1

DEVTYP <ML11>

115

114

061

LSDVTYP::

.ASCIZ
.EVEN

CZMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND TABLES

MACRO M1113

29-MAR-82 13:41

SEQ 0033

TEST DESCRIPTION

gg}ig

RE82828%R

PAGE 7

DESCRIPT <CZMLBB ML11 PERFORMANCE EXERCISER>
103

132

cantis

115

".&c’x‘z

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

1%
1

ERRTBL

1
174

ERRTYP: :
ERRNBR: :

LSERRTBL : :

.WORD
-WORD

Emsgf

-WORD

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

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

100

101 gggg
g

DISPATCH 1

;

102712

i
m

LSDISPATEHE:I:II

WORD

: THE TEST=-DEVICE Pmegms. THE STRUCTURE OF THIS TABLE
: IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES.
; AND IS USED AS A ‘‘TEMPLATETM FOR BUILDING THE P-TABLES.

‘

000004

o
DFPTBL
::

13 176400

;

BGNHW DFPTBL

1
1

:
T1

: THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF

11;
1
Hg

119

/CZMLBB ML11 PERFORM

1
14

885358

LWORD

176400

WORD

-WORD
-WORD
ENDHW

:CSR ADDRESS

:RH VECTOR AD
18R g,svsl. FOR INTERRUPT

SML1T

DRIVE

L10000:

L10000-LSHW/2

CZMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND TABLES

1
1

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

: PROGRAM AS OPERA

: u; AT AS

}21

fee

000021

n’\'m:rs

us ARE SET
B mns Ao’m
BE VARIED av THE OPERATOR AT RUN

BGNSW

SFPTBL

LSSW::

LWORD

L10001-LS$SW/2

SFPTBL::

144

LIMIT:: .WORD O

}ss

RANGE:: .WORD

139 i

LSECT:: .WORD

153 X
159
0

sLIMIT om.mor'sgc;gs T0 BE TESTED

*DOES osezn'r‘ga ?m'smr SECTOR NUMBERS?

:LOV gscm NUMBER
:

TSECT:: .WORD
ONLY::
.WORD

160
161 0
18 D0¢
163

SEQ 0034

i+
' THE DEFAULT somm
p-mu
ggnmus
VARIOUS DATA USED BY THE

}‘o

164
165

:TOP
SECTOR NUMBER
ZONLY BOARD TO TEST (BOARD #°S ARE 0 70 15)

DROPNE
: : * . WORD
DROP2:: .WORD

*DROP ANY OPTIONS?
:DROP OPTION #2?

DROP1:: .WORD

:DROP OPTION #1?

DROP3: : .WORD

DROPG:: .WORD
MARPAT:: .WORD

169 0,

DROPS:: .WORD

REFRES
: .WORD
H:

1§

*DROP OPTION #3?

:DROP
OPTION #4?
sPATTERN NUMBER USED FOR

*DROP

:ENABLE

ECCDIS:: .WORD O

1
}71

OPTION #5?

MARGINING?

*DISABLE ECC?
.'

=NO 1= VES
=NDO 1= YES
MARCH TEST

§'= NO 1= YES

0= ggsc%gmv&gxsu.so;

0 = NO (LEAVE ENABLED)
=

1 = YES (DISABLE IT)

175

: HAVE NON-STANDARD DEFAULTS.

1
1;3
1

: REPORTS WILL ** N O T #* BE mnm :
: UNLESS THE
RATOR SPECIFICALLY
:
: REQUESTS THE PRINTOUTS VIA SUI ms :

: THIS OPERATING FEATURE WAS INCLUDED :

1;9

=ND 1= YES
=NO 1= YES
=NO 1= YES

ERRORS -

: AND END OF PASS PERFORMANCE SUMMARY -

} ¢

SOFT!

QUESTIONS.

1
1

: IN THE ML11 PERFORMANCEEXERCI uogs
* FUNCTIONAL smmcmonAt THE RE- ::

}

:tt.tttt.."..t.'.t'tlt..t.tfitt..'tt...

185

: QUEST OF FIELD SERVICE.

)

}

002256

000000

EOPSUM:: .WORD

;ENABLE EOP SUMMARIES?

}

002260

000000

ERROUT:: .WORD

:ENABLE ERROR PRINTOUTS? ? = egsmumur

;9; 002262

000000

EFNS21:: .WORD

*ENABLE SOFT ERROR TESTING ? = ngs(oermm

}§§

196 002264

ENDSW

? = v#gsmmour

Egggsogl;non xgegesxwo FOR MEMORY ENGINEERING

‘

-y

CZMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND TABLES

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

SEQ@ 0035

197 002264

SEIFURUITEEN

L10001:

s4¢

: THE_HARDWARE PARAMETER CWING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MCHI'E INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
UITH THE OPERATOR.

LSHARD: :

QH1,0,0,0,177777,YES

@H2,2,0,0,377,YES

274

-WORD L70002-LSHARD/2

.WORD
WORD
WORD
LWORD

TSCODE
QM1
TSLOLIM
TSHILIM

.WORD

TSCODE

.WORD
WORD

TSLOLIM
TSHILIM

.WORD

TSCOD

WORD
WORD
WORD

7
TSLOLIM
TSHILIM

.WORD
WORD

TSCODE
QK4

WORD
WORD

TSLOLIM
TSHILIM

WORD ang

QH3,4,0,7,1,7,YES

WORD QNS E

0
275

WORD

alalslsl

b
Somg by By

QH1:

- OHN

-og-s-n
SNNON)

b o

NN =N
(%

KRS

L10002:

/CSR ADDI;SS

IINTER%P VECTOR
kA
/B8R LEVEL FOR INTERRUPT 2/
/DRIVE NUMBER
114

; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS

-EVEN

MACRO M1113

29-MAR-82 13:41

K3
PAGE 8-2
SEQ@ 0036

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

2 002446

00;

0024

000106
000130
00

314

;

315

025044
001130
002732

316

014044

THE

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

LS$SOFT::
GPRML

g
:
:

;
s
s
:

CZMLBBO PERFORMANC E_EXERCISER
PROGRAM HEADER AND TABLES

0S1,0,1,YES

XFERF

GPRML

0S2.2.1,YES

TSCODE
as1
1

TSCODE
T$CODE
?S

XFERF

GPRMD

0S$3,4,0,177777,0,1777
,YES
77

T$CODE

t;gooe

g
33

318 002

084,6,0,177777,0,177777
,YES

319 0

XFER

TSLOLIM
TSHILIM

TSCODE

gigoun
T$CODE

321 ++ ¥0 38

0s6,12.1,Y€ES

TSHILIM

TS$CODE

|1I86

322
323 B

007024
32

32 %

XFERT

7
0811,24,0,77,1,10.,YES

XFER

138

TSCODE

e
TSLOLIM
TSHILIM

CZMLBBO PERFORMANCE EXERCISER

PROGRAM HEADER AND TABLES

325 :g

m:“

326 3

71;0

002

:fit 7

328 002 ;6

?‘2

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

7s:

002606

005853 D034

8.16,1,YE

T$CODE
Qs
1

0S8,16,1,YES

T$CODE

059

TSCODE

012052

331 003620

T$CODE

D0ers 8888°88°°q

SEQ 0037

GPRML 0S7,14,1,YES
GPRML

329 00260

330 002606

GPRML

0510,22,1,YES

XFERT

128

GPRMD

0S11,24,D,77,1,10.,YES

T$CODE

T$CODE
0s10

T$CODE
as11

128:

GPRML

TSLOLIM
TSHILIM

0512,26,1,YES

TSCODE

gSIZ

TSCODE

003632 0000

333 0026

GPRML

?313

0S14,32,1,YES

TSCODE

g814

0026

umg
§3376

-&‘-

017130

536 05028

005665

002664

TSCODE
gs16

GPRML 0517.40,1,YES

TSCODE

?517
.EVEN

ENDSFT
L10003:

&
m

002646

TSCODE
?515

002

CZMLBBO PERFORMANCE EXERCISER

29-MAR-82 13:41

PAGE

3
SEQ 0038

aszTa

"ee

L [~ NM =1307

TYRo

M1EW8e8s“CW=MPEN”SmA.~?e7m[A3?2I85AR8I.S8l3E8-sWTVC5mTEENeZ=~TWEAA—ATAWmA/u¥Aw-cM:vfIuIEiv

SGoaA°B‘|R§BoB-‘Bo5SB6k’BXBsaYeadand Aoowe.D
S-~3N8S3NSN(SNSNSNTVSNVYHV-Vo VeSNNF—ENIN—NT.
g= oxw> mb2 #o> ese> .e&-e ~

Ne0dS>SK0SmR0NRiw3stS0E30EEuTVNCOfVr0eV5l-3Vvm3-0Ve3-YEe3C=cef3oN-lcOAol=/oG2To2—NW-o5_0

-OgSOe0OgO====LNOO=3\N=O2v(I0ONO=NZTIMOeINeSIeIeNeR0IeI=NNOe=O=eI=LN

PROGRAM HEADER AND TABLES

MACRO M1113

o -

=] o g b @ [
1) ~

I+

: THE PROTECTION TABLE IS USED BY THE RUNTIME

SERVICES TO PROTECT T

LOAD MEDIA.

BGNPROT

LSPROT::
-1
-1
-1

sOFFSET INTO P-TABLE FOR CSR ADDRESS

;OFFSET INTO P-T.ABLE FOR MASSBUS ADDRESS

sOFFSET INTO P-TABLE FOR DRIVE NUMBER

ENDPROT

SPATCH: : .BLKW
ENDMOD

32.

;THIS LEAVES ROOM FOR THE 22 ML-11 REGISTERS T0O

RATOR

NN —

NUMBER GE

MACRO M1113

29-MAR-82 13:41

PAGE 42
SEQ 0039

.SBTTL

"RANDOM NUMBER GENERATOR'

NN = O \0 00 O VI

;ROUTINE TO GENERATE 16-BIT PSEUDO RANDOM NUMBERS
; INPUTS:

NONE
gsEM SEEDZ SEEDS

:IMPLIED INPUTS:

used

e e

*IMPLIED OUTPUTS:
:
*CALLING SEQUENCE

OGO NI

MoV

MOV

—h e e e

DEC

VIS
N =

ADD
ADD
MOV

16
}g§§ 888810
000012

5
762

glob!l values which will

to the

ANDOM* --UMD CMTAINING RANDOM ?cnorator.
6-BIT INTEGER VALUE

$OUTPUTS:

RN::

t not

NONE
JSR PC,RN

RO,=(SP)

SEED2,RO

SEED1

SEED1,RO
SEED3 RO
RO, SEED2

ADD

SSEDLRO

MOV

En
neuoon

SEED3

SEEM" «WORD
SEED2::
.WORD
SEED3::
.WORD

RANDOM:: .WORD

:SAVE NEW R.N.

~es

PERF ORMANg EXERCISER

| CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 44
SEQ 0040

b b - e
) e

XSBTTL "REPORT CODING SECTION'

EOP();

NOVALUE;

RETURN;
ENDRPT;

767
10 00
003475 806207 075234

LRPT:

.GLOBL

EOP

.SBTTL

LRPT REPORT CODING SECTION

JSR

RTS

PC.EOP

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

177766

SBTTL

LSRPT:: JSR

0 words

LSRPT REPORT CODING SECTION

PC.LRPT

REPORT CODING SECTION

&5 003308 0063t

QD)

REQUIRE "BLSMAC.REQ':

BGNRPT;

004767

Bliss=16 v2(212)

MODULE MLX3 =

gg 005474

TOPS=20

PA:<NEALE>MLX3.BLI.1

BEGIN

) e o

FORERS88SS 3

$3nar-1988 :3:%0

EXTEM ROUT INE

AR LA LR TR DRTR TR

NTT A

W
—

sMLX3

NIN) =

b o e o

o e

nd edb

NOWVS
NN -0V~

'RANDOM NUMBER GENERATOR

TRAP
RTS

25
PC

; Routine Size:
rds
: Maximum stack dep per invocation:

0 words

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

1504
PA:<

CZMLBBO PERFORMANCE EXEIS&ER
LSRPT REPORT CODING SECT

76 ;MLX3

;S :H.

772 s

80 ;

MACRO M1113

29-MAR-B2 13:41

PAGE 45

SEQ 0041

AUTODROP SECTION

-Mar=19

Lo+

3241»-19!5 555?’207

}gg XSBTTL "AUTODROP SECTION'
1

TOPS-20

1510

THIS SECTION IS OPTIONALLY EXECUTED IMMEDIATELY AFTER THE INITIALIZATION

}g}i

TEST TO SEE IF THEY WILL RESPOND.

84 :

1514

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

132

gz :

87 :

1511

}g}s

1519 ;

CODE IF THE /ADR FLAG WAS SET.

1518
1519
1520

RETURN;

3% 3

1522

ENDAUTO;

97
}81 005504

1o§

1521

000207

LAUTO:

} 1 005514

1§§
124

.SBTTL
RTS

LAUTO AUTODPROP SECTION
PC

; Routine Size: 1 word

s Maximum stack depth per invocation:

150 005512

THOSE THAT DON'T RESPOND

004767
104461
000207

ARE DROPPED.

BGNAUTO;

}83

115
119 005506

THE INTENT IS TO §XAH1'€ me‘xms UNDER

THEREFORE A SEPARATE AUTODROP SECTION IS REDUNDANT AND NOT PROVIDED.

88 ;
89 ;
90 ;
91 ;

Bliss=16 v2(212)

PA:<NEAL &:3.&1.1 )

177772

.SBTTL
LSAUTO: : JSR
TRAP
RTS

depth per invocation:

1506

1520

0 words

LSAUTO AUTODROP SECTION
PC.LAUTO

: Routine Size: & words
; Maximum stack

0 words

bytwa»%mmwMU
moG]MgS2&-oL>e3[ouPY¥l]B.WesBS‘l.Eu3e=>f=34.-.g.8*-°3.5.o£r-n22§]m°m[cLo]82(-=e1[e;~=.-})N3suG=&Bl|W.SLe,2§B5e3m,= -woM“-Wg*w213Es-.§:.8i
i

DECRIMENT
STORES THE
EXERCISER.

IF THE NUMBER
THEN

WTES.

& >[

DROP UNIT SECTION

LONGER BE TESTED.
TAKEN:

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

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

DATA STORAGE

DELCARE THE EXT

XTERNAL

LSLUN,

Dllvg.

NUM_DR

< <w -1

29-MAR-82 13:41

DROP UNIT SECTION

v + ! *:

cTl

MACRO M1113

[ +

Se1-‘1Naf"B!a1St-1a1r=0-g1r5.,gN-tla1qtPla.rRtl1g.“rIOBgq=tRlaq’tROla.1tlNaqsielgce1llYg.ely.t1SlectRO=RlyaTfeBl1eMgqrtlsgat“TRl1awctlSa’qnl3g1.gRlY.3tla1qteRlTectB"lac1-elRl-“sRlRc1tlaqt=2AlaRRe1l4.tlReaRl'c(Nl1Aclta—Rls”o-mBlRa1qmBlte'aml9ec1yel.t0lc1glSqf.llRat1l¥lacrTllarP‘llnctll1aqtlal"rcall1rcL¥nll,tqall1cRgltG'c”Eatl.lclcl
BNoo%[N 8.o-YeFeo £F=wx&2e, &¥W¢===Sogf Ms"B“8-5H“sset Eg&3Yo—w5V e=mP1{ug1gsw43vS[ ~o3 =e[S-=3&(&13w3£2-7,-]
~&2n3O vV 2BSl
EE XERCISER
D 4
PAGE 46

SEQ 0042

33har-1983 % 51130

PA:<NEALE>MLX3.8LI.1 (;)

TOPS-20 Bliss=16 v2(212)

SEC

ITERAL
INACTI
ACTI

‘s

THIS SECTI

%DR

10
ON
RE

ot-~ ~n e~

-m

flcg-.

e e

D o o) el e

rioK

) e

:
Ex
AL TE

TS T 1)

S SR RNO

XERCISER

75
76

MACRO M1113 29-MAR-82 13:41 PAGE ib'l“

MUM_DRIVES = .NUM_DRIVES - 1:

SEQ 0043

!DECRIMENT THE NUMBER OF DRIVES REMAINING TO TEST

;8 IF .NUM_DRIVES EQL O THEN DOCLN;

'D0 CLEAN UP CODE AND EXIT PROG IF ZERO

RETURN;

ENDDU;

.GLOBL
g GLOBL

NUM. DRI VE

.SBTTL

LDU DROP UNIT SECTION

LSLUN

oagvs.smus. DROPT.DRIVES

CZMLBBO PERF
LDU DROP UNI

EXERCISER

7'sect ion

MACRO M1113

29-MAR-B2 13:41

F_4&

PAGE 47

SEQ 0044

174352

LbU:

MOV

ASR
ASR

034442

MOV

000001

MOV
cg

BIC

174310

#OV

034444
1;;;;8

g
MOV

ASR

3oooo1

1'55

MOV

oe&’ii
000016
.

§«u~.no

18:

1 ,-(SPS
-($P)

.us;gz

‘ T.DRIVES,.RO
LSLUN,
= (SP)

n «sri‘ ’
(SP) ,=(SP)

1
#16,5P

.DRIVES

41 words

: Maximum stack depth per invocation:

177652

LSBTTL

LSDU: : Jg

IRAP
RTS

1563

(SP)

LSLUN,

BNE
TRAP
ADD

: Routine Size:

-(SP)

’

RTS

1562

x\ggmus.no

JSR

DEC

1579
1522

1581

7 words

LSDU DROP UNIT SECTION

ks.uu
S
PC

ine Size: & words
: Maximum stack depth per invocation:

1576

:
:

0 words

C%DO PERFORMANCE EXERCISER

DROP UNIT SECTION

sMLX3

%SBTTL "ADD UNIT SECTION'

“

g
2

:
:
:
:
I

005650

!
!
!
!
:

SEQ 0045

:23:37

ii-n.r-wii 55:51:30

}g 4
1
1
1
1
}Sg%

~Mar=19

ADD UNIT SECTION

:
:
:
5
:
3

291

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

10PS=20 Bliss=16 v2(212)

PA:

<NEALESMLX3.BLI-1 (4)

THE ADD UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
7O THE TEST CYCLE.
SINCE THE INITIALIZATION CODE WILL HAVE
70 BE EXECUTED IMMEDIATELY AFTER AN °'ADD', THERE IS NO NEED
FOR ANY CODE IN THIS SECTION.

159 s
BGNAU;
139 ReTURN:
1239
g
1598 ENDA
1594

000207

LAU:

.SBTTL
RTS

LAU ADD UNIT SECTION
PC

1583

EXERCISER

MACRO M1113

29-MAR-82 13:41

PAGE 49

SEQ 0046

: Routine Size:

; Maximum stack dop

1
1
15

16 g0565e TBss

177772

}

LSAU::

.g"l.

RTS

: Routine Size:

gle
:

per invocation:

i oo
1603
i
ELUDOM

1596

& words

; Maximum stack depth per invocation:

ADD UNIT SECTION

0 words

kuuwm UNIT SECTION

e 3

0 words

IB
S-Mar-19

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

PA:<NEALE>MLX3.8LI.11

23 g

o c‘l‘

C%no
L
g

38 3
= SR

-.=m

=2 5&

4 b

N-

§§?§ + 0 data words

a)1Al

SEQ 0047

-4y
—rn

—.g

;

LSAU ADD UNIT SEC

SEQ 0048

MLXG

STmarc1ofd 19:35:67
7-Mar-1982

9 ;

MODULE MLXé =

}9 :
14 :

;

require 'BLSMAC.REQ';

SMLXG

:
:

7-m-1:55

VARIABLES AND CONSTANTS

;

Literal

}

; VER CZMLBB ADDED LITERIAL TRUE, FALSE AND ZERO

1@ "
1
}ggg

| OTHER LITERIAL DEFINITIONS

ZERO = %0°000000°,
TRUE
= 1

mf "

ONE =1,

1515

u_mi = 10,

1;1

TIMES_TO_

40 ;

151%

1519

i 13

151

SIX = 6

ss =

ML11 DRIVE TYPES:

2; :

;;

}g
;:

ML11A

DRV_CLR
= Z0°'11°,

29 :
‘3 :
1:

15
lg
}

15
};

QCHVE =1,

61 ;

6? 3

62 ;

;;

1540

S INA SECTOR

WC_TMD = 20°51°,
WR_CMD = %0°61°,
ROZCMD = %0°71°,

i STATUS CODES:

INACTIVE = 0,
!

R OF TIMES TO RETRY FOR DATA ERROR

R OF TIMES TO RETRY FOR SYSTEM ERROR

R OF RE

R OF ML

ERROR THRESHOLD VALUES:

PATTERNS

mrsrsns

!582' nfim CONSTAN

12048 16-BIT WORDS m A FULL BUFFER

CTORS IN rue BUFFER

m118 g
= %m'
g FUNCTION CODES:

:
3
4 :

!
i

1256

}g :

iLOGICAL FALSE INDICATOR

SIZ =

3 :

TOPS=20 Bliss=16 vzm )

PA:<NEALE>MLX4.BLI.S

'DEFINE ZERO DATA

22,

=w
ér

3:44

ILOGICAL TRUE INDICATOR

FALSE = 0,

-Mar-19

} 1 %sbttl 'VARIABLES AND CONSTANTS'

v2(212)

'amomus: _KEY>

}3 :

§:

TOPS=20 Bliss=16

'qmosms

;; :

FOPS 20BLiss-16 v2(212)

BEGIN
i PERTTY BLF COMMANDS

;i :

19:24:4

116K

164K CHIPS
CHIPS

-4

[=daal

e e—

&»

=0V~

e o

e o s

Zfi

e e

TR TR TR TR PRETETE

(]

(7]
m

Ll -

XERCISER

MACRO M1113

29-MAR-82 13:41

S16K_LIMIT = 10,

K_4&
PAGE 53-1

SEQ 0049
!SOFT ERROR, 16K

H16K_LIMIT = 10,
“LIMIT = 10,
“LIMIT = 10,

SUMMARY OF ERROR CODES:

g THE "INTEGRITY' ROUTINE:

iWRITE COMMAND:

'ERRDF (1,MSG1,0);

ARRAYS

'HARD ERROR, 16K
ARRAYS
iSOFT ERROR,
64K ARRAYS
!HARD ERROR, 64K ARRAYS

!ssxs INTEGRITY ROUTINE ERROR 01 s#ws

CZMLBBO PERFMN%EmEXERClSER

LSAU ADD UNIT SEC
76

:MLX4

772 :

79 :

g? :

:
:

85 :

86 :

87 :
88 :

89 :

1553

VARIABLES AND CONSTANTS
'ERRDF ( .nsm.s).-

}g 4

;&a‘agré

MSG1,0);

1561
1

SEQ 0050
19:24:4
Sm»w&i 19:53:45
7-Mar=1982

taseax INTEGRITY ROUTINE ERROR 8§ wane

INTEGRITY ROUTINE ERROR 03 wesw

TERRDF (5,MSG1,0):
zsmn,.nsa. ):

iewes
iwens

INTEGRITY ROUTINE ERROR 05 wews
INTEGRITY ROUTINE ERROR 06 #w+#

iERRDF (8,MSG2,0):

iswex INTEGRITY ROUTINE ERROR 08 s##+

iERRDF(7 .MS 1.8).-

1560

iexes

ssmug.ns''e"l. ):

15
'§s

156

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

!wexs INTEGRITY ROUTINE ERROR 04 #wes

ineas

iERRMRD
(9, MSG4,05; iween
iERRSO
T (10,MSG
F
3,0)
; i enve

INTEGRITY ROUTINE

ERROR 07 w#ws

INTEGRITY ROUTINE ERROR 09 s#w+
INTEGRITY ROUTINE ERROR 18 teen

TERRSOF T(11,MSG3,1): iwxen INTEGRITY ROUTINE ERROR10 wws#

90 :
9 :
9 :
93 :
9% :
95 :

1564
1565
1566
1567
1568
1569

IWRITE CHECK COMMAND:
eemmi.nssl. ); !esxsx INTEGRITY ROUTINE ERROR 15 P
TERRDF (13,MSG1,0); ixes INTEGRITY ROUTINE ERROR 13 waws
TERRDF (14,MSG1,0):
ineas INTEGRITY ROUTINE ERROR 1; *nuw
TERRDF (15,MSG2,0): inews INTEGRITY ROUTINE ERROR 15 waew
iERRHRD (16 ,MSG4 05; 1eves INTEGRITY ROUTINE ERROR 19 Wk

3; :

}gy

JERRSOFT(18,MS63,1); iwexs INTEGRITY ROUTINE ERROR 18 sas

9 :

99 :

100 :
101 :
102 :
103 :
104 :

1570

1s7§

1574
1575
1576
1577
1578

105 :
106 :

1579
1580

110 :
112 :

1584
1586

107 :
108 :
109 :

11 ;

m :
115 :

119 :

1581
153§
158

1585

}gg
1589

1590

17
:
118 :

1591
159§

120

159%

1 § :

1596

125 :
126
:
127
;
128 :
129
:
130
:

1599
1600
1601
wog
160
1604

119 :

121 ;

123
:
12 :

TERRSOFT(17,MSGS
; ineas
,8) INTEGRITY ROUTINE ERROR 17

i OPTION 1:

i
IWRITE C
:
'ERRDF (101,MS61,0);
ERRDF (102,MS61,0);
'ERRDF (103,MS61,0);

!se#%x OPTION 1 ERROR 01 wawe
isx«x OPTION 1 ERROR i e
iwwex OPTION 1 ERROR 03 wsw

TERRDF (105,MS61.0):
VERRDF (106.MSG1,0);
YERRDF (107,MS61,0):

ixsex OPTION 1 ERROR 05 swew
ixwxs OPTION 1 ERROR 06 #wes
isess OPTION 1 ERROR 07 swew

iCHECK OR READ:
semmg&.nsfl. );

VERRDF (108,MSG2,0):
isxex OPTION 1 ERROR 08 swes
iE
(109,M564,05: ixeae OPTION 1 ERROR 09 #x+#
:msonmb.nsg.gi.- ixaas OPTION 1 ERROR 10 vewe
'ERRSOFT(111,MSG3,0); eave OPTION 1 ERROR 11 wews
! OPTION 2:

iWRITE COMMAND:
'ERRDF (201,MSG1,0);

159

eemrcso;.nsm.on

1595

iCHECK OR READ:

1597
1598

!sxwxx OPTION 1 ERROR 04 #wes

TERRDF (203,MSG1,0):

IERRDF(204 ,MSG1,0);

'ERRDF
YERRDF

(205,MSG1,0);:
(206,MSG1,0):

!sxe+ OPTION 2 ERROR 01 aeas

ixexs OPTION 5 ERROR 85 Y

i#xex OPTION 2 ERROR 03 #wes

!#x%+ OPTION 2 ERROR 04 #xes

iesxxx OPTION 2 ERROR 05 w+et
ixsxxx OPTION 2 ERROR 06 txe

'ERRDF
(207,MSG1,0);
ixxax OPTION 2 ERROR 07 #ws%e
VERRDF(208 ,MSG2,0):
ixsxex OPTION 2 ERROR 08 xes
iE
MSG4 0): ienxx OPTION 2 ERROR 09 e+
TERRSOFT(210,MSGS,05; iseee OPTION 2 ERROR 10 sve+
VERRSOFT(211,MSG3,1): ixsax OPTION 2 ERROR 10 #vss
iLOOP CHECK OR READ:

waes

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

CZMLBBO PERFORMANCE EXERCISER
LSAU ADD UNIT SECTION
:MLX4

135 ;
1
:
1
:
138
:
139 :
140 ;
141 ;
14; :
143
;
144 ;
145 ;

1
1
1610
1611
161;
161
1614
1615

147

161

1 g

1624

LT 'R Y
QO
=)P? Ss? Vet M N

a 52
bi

L2
3

(9]

@0 wosh mady med

el s

e ond

SO et

AAR
OO

OO\

d
d

o2
T Y

!ERRDF

ok ol ond) e

1655
1656

185 ;
186
;

oo wud

164
164
164
1644
1645
1649
164
1643
164
1650
1651
165;

171 ;
1;; 3
173
;
174 ;
175 ;
1;; F
177
;
1;3 :
179
;
180
;
181 ;
182
;

1
1"

iaexn OPTION 4 ERROR
1anax OPTION 4 ERROR

faeax OPTION & ERROR

01
i

)

]

163
164

=00

18
190 3

L2 1]

1
16

1
1635

WS
o 8o 8o 8o B¢

166 ;
167 ;

164 ;
165 ;

{waxe OPTION
iwnss OPTION
!exax OPTION

iMARCHING UP:

IWRITE DATA:

A
®e %

g OPTION 4:

12§ -

wnan
wwen
#wawn
wwwn
LT
waaw
#w#n
wwaw

iwxas OPTION
inaxx OPTION
1exax OPTION
{xewx OPTION

e %o

1
}

12
13
14
15
19
17
18
19

ixssx OPTION
iexex OPTION 3 E
1xxxs OPTION
ienes OPTION

b o

}61 :

165
1658
1

tenax OPTION 2 ERROR
twxss OPTION 2 ERROR
tenax OPTION 2 ERROR
Ieanx OPTION 2 ERROR
fasxe OPTION 2 ERROR
1enas OPTION 2 ERROR
inxxs OPTION 2 ERROR
Iaaax OPTION 2 ERROR

I«xx« OPTION 4 ERROR

Ixxex OPTION & Em

Iwxax OPTION & ERROR
ixnns OPTION &4 ERROR
iaxxx OPTION 4 ERROR

1ass o ¢ Eeace
innns UTfN 4 ERROR 1?
fexex OPTION 4 ERROR 15

ianas OPTION 4 ERROR 1
Ixxax OPTION & ERROR 14

13 :
13 :
133
160 ;

iWRITE
:
{ ERRDF ( 1.nssl.8):
i ERRDF ( g.gg}.og.;

o~ -~

154 ;

574!"-19ss }8;;2
7=Mar-19

g OPTION 3:

(=]

155 2

1
}

TERRSOF T ( 13"5883

gmsom

E5
%
333a23s

150 ;
}§1 :

1619

RRHRD
(217 ,MsGé 0 ;

149 ;

1618

i ERRDF ( 1? MSG2,0)

148 ;

1619

'ERRDF (212,M561,0);
iERRDF (213.M561.0)
;
iERRDF(214 ,MSG1.0)
:
iERRDF (215.M561.0)

;

1605
1
1

149 3

L
PAGE S5

VARIABLES AND CONSTANTS

e =)

;

29-MAR-82 13:41

SEQ 0051

132

133

MACRO M1113

fexax OPTION & ERROR 15
taaxe OPTION 4 ERROR
19
!xxax OPTION 4 ERROR 1

!«xxx OPTION 4 ERROR 18

L2 d]

LA L]
L ig
LAl L]

Ll L]

L1 dd]
L4 1]

i
4 1]
Lild]
LA 4]

TOPS=20 Bliss~16 VZ(Z‘IS;

PA:<NEALE>MLX4.BLI.5 (

CZMLBBO PERFORMANCE EXERCISER
LSAU ADD UNIT SECTION
1

29-MAR-82 13:41

N &
PAGE 56

SEQ@ 0052

S har-1983 1938143

wnd b

v vl

-A-a-n-a-.-n-a-n-n;-.
2REREEEERSE VoS
o “:3§§§§§§§§3.§“%

VARIABLES AND CONSTANTS

ONONON 000000

b cmd b el wed cnd cd cmd b D o

AR LA LA TRTR TR DR DI TR T T T o T o A S S
TS L L
e T
L
MALETE PR T T L L

R e cd ol wmd omd aeud

b ik

VIS WN=OVRRNOWVMSWN=O

—

cd o

el cnd wd e

AR TR TR T T T TR 1)

S88RIRRR882

sMLXé

MACRO M1113

'ERRDF (419,MSG2,0):

i B

i ERRDF (4 .nsst.x).-

tusasx OPTION 4 ERROR 23 #wew

!sxx OPTION 4 ERROR 19 s

;gg;gr;:azi 23:8,; inewx OPTION 4 R
ERROR 22 wwaw

TERRDF (424.MSG1.0):
YERRDF (425,M561,0);

iCHECK
OR READ DATA
eemn?9.nss1. );

TERRDF
TERRDF
IERRDF
IERRDF

(427.MSG1.0):
(428,MS61.0):
(429,M561,0);
(430,MSG2,0);

ixwes OPTION 4 ERROR
!anxx OPTION & ERROR

24 %
25 #ann

!sax« OPTION 4 ERROR 9 rann

iswss OPTION 4 ERROR 27 w##w
ixxsx OPTION 4 ERROR 28 w#ws#
i#xx OPTION 4 ERROR 29 #aws
i#xxx OPTION 4 ERROR 30 wwws

TERRHRD
(431 MSG4,05; iwees OPTION 4 ERROR 31 wwws
iERRSOF
T (432 ,MS .83.- Iwnas OPTION 4 ERROR 32 ##we

JERRSOFT(433,M5G3,0); ivaex OPTION 4 ERROR 33 axas
| OPTION
5:

i "RAND1* ROUTINE:

IWRITE gm:

IERRDF {(5101,MS61,0);
'ERRDF (5102,MSG1,0);
;E*mr“(swaégm.o):

!*x*x OPTION g RAND1 ERROR
isex+ OPTION 5. RAND1 ERROR
ineas OPTION 5. RAND1 ERROR

YERRDF(5104 ,MSG1,0);

!w=*x OPTION

ERRDF

1 ERRDF (
1ERRDF (
ERRDF (
iE
iERR
| ERRSOF
"RAND2
iWRITE
i ERRDF
iERRDF (
Emwcx‘

ERRDF (
i ERRDF
i ERRDF (
iERRDF (
i ERRDF (
i ERRHRD
i ERRSOF
i ERRSOF
i 'RAND3
iWRITE g

'ERRDF

(5105,M561,0);

insxex OPTION

MSG1,0);
iwwxx OPTION
20);
iswax OPTION
);
iasxx OPTION
64,03; ixvex OPTION
MSGS,05; ixeex OPTION
.0); iasae OPTION
:
);
!#wax OPTION
);
isxxe OPTION
);

5. RAND1 ERROR 04

5. RAND1 ERROR

5. RAND1 ERROR
5. RAND1 ERROR
5. RANDT ERROR
5. RAND1 ERROR
5. RAND1 ERROR 10
5. RAND1 ERROR 11

S, RAND2 ERROR 01
5, RAND? ERROR i

isxsx OPTION

5. RANDZ

cRROR

);
!essxx OPTION
);
imsxx OPTION
);
isxex OPTION
);
iesex OPTION
);
issex OPTION
03: iesas OPTION
.85.- iewes OPTION
,0); 1asas OPTION

S, RAND2
5. RAND
5. RAND?
5. RANDZ
5. RANDZ
5. RANDZ
5. RANDZ
5. RANDZ

ERROR
Em 5
ERROR
ERROR
ERROR
ERROR
ERROR ?
ERROR 1

(5301,M561,0);

!se++ OPTION 5, RAND3 ERROR 01

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

RFORMANCE EXERCISER

UNIT SECTION

MACRO M1113 29-MAR-82 13:41 PAGE 57
7-Mar=19

VARIABLES AND CONSTANTS
1
}?fi
171
1715
171%

:E“Wc
(38;'”61,
61>
i ERRDF (
i ERRDF (
i ERRDF (

1715
171

YERRDF (
'ERRDF (

171?

1 ERRHRD

mg
}71

1
1

iWRITE

i ERRDF (
iERRDF (

insex OPTION
innss OPTION

5. RAND3
5. RANDS

ERROR
E"ROR

e
TIL]

);
);

; ieees OPTION
: iwsex OPTION

5. RANDS ERROR g wxkn
5. RAND3 ERROR11 s

lewex OPTION
lwxxx OPTION

5, RAND4 ERROR 01 #wew
S, RANDG ERROR 02 ##+

:%(

faxas OPTION

5., RAND4 ERROR

i ERRDF (

);

5, RAND4 ERROR 04 s##s

1
173

!ERRDF (
'ERRDF (

g):

!ewxex OPTION

1
1

ERRDF (

1ERRDF (
TERRHRD (

);
);

):
03;

!esex OPTION
leeesx OPTION

lwxax OPTION
iwexe OPTION

5, RANDG ERROR 06 #wes
S. RANDG ERROR
wran

}

!ERRSOF T(

J0); sexx OPTION

1 ERRSOF

tanax OPTION 5, RANDS ERROR Q5 taee
5, RANDG ERROR 08 s#e+
5. RANDG ERROR 09 #ves

.85. innee OPTION 5. RANDG ERROR 10 wwes

CODE_1 = 1,

5, RANDG ERROR 11 waes

IDRIVE NOT POVERED
POWE
UP

coos.g = ;

CODETMS

740

o ond ol ek el o e cndd o e v cond ol e codd ) e e woed wed b

1211

gcoossmmnwrusmoz

IDRIVE NOT AN

oumn.e
'mvz

AAL

iECC m m

CODE_8 = 8;

;45

UNIT

IFAILED ALL RETRIe oa A NON-FATAL ERROR

CODETMS = 5.
CODETMS = 9
CODE7 = 7,

764

MLT1

i OPERATOR ser s TL
nu TS INCORRECTLY

CODETM% = &.

741
ng
7%

ECC LOGIC FAILED TO DETECT ERROR

73 i FIELD DECLARTIONS

SIIPAIIITZ

PA: <NEALE>MLX4.BLI.S

!eaxs OPTION S, RAND3
ERROR 02 #wes
ixxes
OPTION g. Mi E
85 LT
tewss OPTION S, RAND3 ERROR 04 #+we
ineas OPTION 5. RAND3 ERROR 05 ##we
ineas OPTION 5. RANDS ERROR 06 e+

}

TOPS~20 Bliss=16 vzm )

5-n.r-w:s53:45

invas OPTION 5. RAND3 EAROR 09 s

i ERRSOF
IERRSOF

1721

SEQ 0053

7
i

| VER CZMLBB ADD FIELD DECLARATION

i: FIELD DECLARATION TO MAP THE SINGLE BIT
! ERROR LOG TABLE.
I

Sfimw=

D8 %%

iL08 BOAN
OF SBE
D

Lfm ADD UNIT SECTION
CZMLBBO PERFORMANCE E

XERCISER

SMLXG

:
3
$
:

:
:

1761

go13 3gJ
5&
16o
uuos
8
1

1765
1769
1767
};63

!
| VER CZMLBB ADDED FIELD DECLARATION

};71

| SUM TABLE

tu.

1L0G BIT OF SBE

iLOG UNIT OF SBE
iLOG_NUMBER
TIMESOF OCCURING
TACCESS FIRSTOF WORD
TABLE
IACCESS SECOND WORD OF TABE

}ég oMsaetm

1775

};773 : FIELD DECLARATION FOR PATTERN TABLE

1780

}77;9

PM_SBES_SUM = [0, 16, 0]
tes,

'ACCESS NUMBER OF SBE PER ARRAY

PATMAP =

:
:

1783
wg

1788

i single bit error logging and Prom Maint

:
:
:

179
179
1795

: VER CZMLBB ADDED FOLLOWING THREE DATA DECLARATIONS

gxr_ln.

:
:

;;g
1

: =11 EXERCISER STORAGE ALLOCATION
WBUFF : vector
s volatile,

WTR : volatile,

};gg

1801

3
:

TOPS=20 Bliss=16 V2(212)

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

1790 i FIELD DECLARATION FOR PROM MAINTENANCE

7-Mar-19

am
sae =

176;
176
17

sr-n.r-wgs 19:5

VARIABLES AND CONSTANTS

:::

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

CoNT1 = [0. 0. 16
COUNT2 = [1. 0. 16, 83
tes;

: program storage structures

SBE_LOG
: blockvoctor €128,
2, word] field (SBE TBL
) ~sae LOCATION TABLE
PM SBE CNT: blockmtorzg‘
ie.
word)
field
(rn
%
ARRAY SBE COUNT TALBE
SBES _COUNT: word,
OF SBE LOCATION TABLE ENTRIES

: vector

volatile,

'srons FAILING SBE CHIP NUMBER

! IMPORTANT == WBUFF AND RBUFF MUST
IBE CONTIGUOUS AND IN THAT ORDER!'!

RPTR : volat

QUICK : volati &

: volatile

g volatflo.

EOP !MT : volat le.’

BASE_

1312

SOFTS : blockvector [8, 163,

gc'sm

!COUNTS FOR 8 LUNS, 16 ARRAYS EACM

SEQ 0054 |

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

c%aao PERFORMANCE EXERCISER
ADD UNIT SECTION

g >sALXG

VARIABLES AND CONSTANTS

HARDS : blockvector Ez. 18.

18
1§

TRIES : blockvector [8,
WR_COUNT

WRTMILLIONS,
RD_

1§

}

sct_

18
18

WC_MILLIONS,
1
o

RD”MILLIONS,

Qgfl'

SESBINARIN2S

e e

s e b emd coed e mnd b b o

!# BYTES TRANSFERED VIA °'WRITE CHECK'

DROPT_DRIVES : bitvector
WHY_DR
: vectorOPT
[8,
nol::nuvss.

bytel,

volatile,
volatile,

LOW_SECT : vector ES volatile,
TOP_SECT : vector
volatile;

macro

§1

e s

atile,

EQUALS:

o s

S OF BYTES

'MILLIONS OF BYTES
!# BYTES TRANSFERED VIA 'READ’

PTABLE_ADDR : vector [

1839

1840

ARRAYS EACH

global
ML_REG : vector tMlLRsSSJ volatile,

D e 2w wmd md md

1836
'I

'COUNTS FOR 8 LUNS, 16

COUNTS FOR
L&pas
16
ARRAYS gACH
'# BYTES TRANSF Rgfi VIA "WRITE

DRIVE_STATUS : bitvector t

18
18
18

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

BANK ;

1829
18

7=Mar-1982
19:24:4
57—flar-19
) 19:3;:&

BOARD,

}

SEQ 0055

RETRYING,

16].

WRTHOUSANDS,

1
18

: TO CALCULATE THE TEST RANGES FOR A PARTICULAR LOGICAL UNIT:
LOWEST =
.LOW_SECTL.LUNIX,

HIGHEST =
'.TW_SECTE.LWJ!.

'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 ng(gll.

!CONTROL AND STATUS REGISTER 1

ML REG[IJ!.

!WORD COUNT REGISTER

-ML_REG[21%,
ALDA =

!UNIBUS ADDRESS REGISTER

CZMLBBO PERFORMANCE EXERCISER

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

LSAU ADD UNIT SECTION

413 :
a8
412

;MLX4

l‘.}s :

fl? :
.

419

;

ol 55

.nfigmz.

'ERROR REGISTER

ML_REGL71X,

:
;

2‘0 :

441 :

IDATA BUFFER REGISTER
IMAINTENANCE REGISTER

g } !

ML uess‘nm.

IDRIVE TYPE REGISTER

y 18

.n.fifmn.

'SERIAL NUMBER REGISTER

ML_REG9IX.
.ufisnon,

4 S :

'PROM ADDRESS REGISTER

T =

.
:

.ML_REGC133%,

'ECC REGISTER 1

ML aegum.
ALDT =

'ECC REGISTER 2

1
M 188

3 »

.ML_REGL151%,

o } n

.M usgmu.

42% :

.; :

.n.fifnm.

445 :

” %

.ML_REGC181%,

432 :
2453 :

251 :

é‘f :

455 :

456
457

:
;

‘

;

1
1

o mt

-ML_REGL2112,

;gi g

461 :

28 :
tt?
:
466 ;

e 97 .ML_REGC193%,
. }g .u.lag 2012,

658 3

fio :

'ATTENTION SUMMARY REGISTER

.ML_REGC81Z,
=

n 18

!CONTROL AND STATUS REGISTER 2

w ; 209

! BIT ASSIGNMENTS:

i
!

TOPS-20 Bliss=16 v2(212)

PA: SNEALESMLX4.BLI.S (2)

'DESIRED ADDRESS REGISTER

!DRIVE STATUS REGISTER

7-Mar-1982
19:24:4
S7-Mar-108
7-Mar=19 s 19:38:¢

.n..ngtm.

SEQ 0056

. ~~

:
:

.ML_REGL4IX,

4§

. }

4 f 57

437
438

VARIABLES AND CONSTANTS

'DATA DIAGNOSTIC REGISTER 1
!DATA DIAGNOSTIC REGISTER 2

'ECC ERROR REGISTER

'ECC ERROR LOCATION REGISTER

IPROM DATA REGISTER
1BUS ADDRESS EXTENSION REGISTER
ICONTROL AND STATUS REGISTER 3

mLCS? BITS:

SC =

(MLCS1)<15,1>3,

m.zg)m.m.
=

4 m% mgéi§<13.1>!.
1915 (MLCS1)<11,1>8,
M 1916
RDY =
-

ISPECIAL CONDITION
;

! TRANSFER ERROR

IMASSBUS CONTROL BUS PARITY ERROR
'DRIVE AVAILABLE

(ZMLBBO PERFORMANCE EXERCISER

MACRO M1113

LSAU ADD UNIT SECTION

463 sMLXG

NSRBI

giss
O~

7=Mar=19.ns 934
Snar-io

(MLCS1)<7,1>%,
1€ =
(H.ES‘IKG.D!.

!INTERRUPT ENABLE

, (MLCS1)<0,6>3,

!FUNCTION (COMMAND) CODE AND GO BIT

;

b acd seod eud D od mod omd wd st
wgd o e
amcd wmd
d o wh l wd cd wd cd wh cd w cd wd wd D wd ad b e wd

(MLCS2)<15,1>%,
chs =
(MLCS2)<14,1>%,

!WRITE CHECK ERROR

(MLCS2)<13,1>%,

!PARITY ERROR

(MLCS2)<12,.1>8,
NEM =
(MLCS2)<11,1>%,

!NON-EXISTENT DRIVE

tsor<

!DATA LATE

!NON-EXISTENT MEMORY

(ll:§)<1o.1>z.

!PROGRAM ERROR

(MLCS2)<9,1>%,

!MISSED TRANSFER

(MLCS2)<8,1>%,

!MASSBUS DATA BUS PARITY ERROR

MXF =

(fl.&k?.b!.
Y =

xav =
(MLCS2)<6,1>%,
CLR =
(MLCS2)<5,1>%,
PAT =
(MLCS2)<4,1>%,

(fl.@%d.bl.
m.csiko.m.
=

;

!READY

MLCS2 BITS:

PE =

ERRERIRSLTITIIRIL33SELERREREE

b o

OLT =

F.
5
PAGE 61

VARIABLES AND CONSTANTS
=

29-MAR-82 13:41

!OUTPUT READY
{INPUT READY
!CONTROLLER CLEAR

!PARITY TEST

!UNIBUS ADDRESS INCREMENT INMIBIT

!UNIT SELECT

MLDS BITS:

ATA =

(MLDS)<15,1>%,
ERR =
(MLDS)<14,1>%,

(m3<12.1>z.
=

(MLDS)<10,1>%,
DPR =
(MLDS)<8.,1>%,
DRY =
(MLDS)<7,1>%,
W =

IATTENTION ACTIVE

TERROR SUMMARY
IMEDIUM ON LINE

ILAST BLOCK TRANSFERRED
IDRIVE PRESENT

IDRIVE READY

PERFORMANCE EXERCISER

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

CSAA
ADD
G UNIT SECTION

4 ;MLXG

1969

1390
4
4 19;§

1974
» }975

g S

CAISI ISR LA

M19

M 1981
=

S
:

H
§:

A
:

]

, (ALDS)<6,1>%,

!VOLUME VALID

’

;"M
H

DCK =
m.‘e’ngas.m.
=

(MLER)<14,1>%,
OP] =
(MLER)<13,1>%,
IAE =

(15&)(10.1)!.
=

TOPS=20

!DATA CHECK
!DRIVE UNSAFE
!OPERATION INCOMPLETE

!INVALID ADDRESS ERROR

(MLER)<9,1>%,
ECH =
(MLER)<6,1>%,
DPAR =
(MLER)<5,1>%,

!DATA PARITY ERROR

(MLER)<3,1>%,

!CONTROL PARITY ERROR

(MLER)<2,1>%,
ILR =
(MLER)<1,1>%,
ILF =

!REGISTER MODIFICATION REFUSED

' (MLER)<0,1>%,
;

!ADDRESS OVERFLOW ERROR

!ECC HARD ERROR

!ILLEGAL REGISTER

!ILLEGAL FUNCTION

MLMR BITS:

§7 =

(MLMR)<11,5>%,

!SYSTEM SIZE (# ARRAY CARDS)

(MLMR)210,1>%,

!ARRAY TYPE (0=16K;1=64K CHIPS)

(MLMR)<8,2>%,

!TRANSFER RATE

(MLMR)Z7, 15X,

!REFRESH MARGIN

(MLMR)<B,1>3,

!PROM READ/WRITE

ARR_TYP =
TRT =

REF

pIS =
(MLMR) <5, 1>%,
DAT iu: =

(MLMR)
24, 1>8,

DAT DA =
m.?ct')‘
13,
=

!PROM DISABLE

!DATA CLOCK
!DATA DIAGNOSTIC MODE

!DATA CHECK ENABLE

aumz? I,

{ECC DISABLE

, (MLAR)R0, 15X,

!ECC DIAGNOSTIC MODE

ECC_DM =

78 :

v2(212)
PA:<'£ALEBliss=16
)H'.§6.&¥.SZ(
)

MLER BITS:

PROM_RY =

7=Mar-1982

19:24:42
57—001'-19 19:33:“

RMR =

n 1993

SEQ@ 0058

VARIABLES AND CONSTANTS

CPAR =

M 1991

PERF

CSAU
D0 CNE TSECTion e ¢
SMLX6

eocoococece
— =D

=0V~ WN=O

B eR0Ee82885988838s

LA TATATATATEY O..-.o‘oOo.o.-.o.u!-!.hlo.o.....ol..o ART T P T T P ATRTR AL LA L E TRTR Y T

T T T1)

EXERCISER

MACRO M1113

29-MAR-82 13:41

PAGE 63

5
SEQ 0059

VARIABLES AND CONSTANTS
i

7-Mar-1982

sT-HOr-IO

19:24:4

13:5§=4i

MLSN BITS:

mfiiz.m.

'HIGH ORDER DECADE

M), 651

ITHIRD DECADE

(MLSN) <4, 458,

(MLSN)<0,4>3,
!

TOPS~

liss=1

(212)

PA:szgl. ’.8&‘.&}2s 5

ISECOND DECADE

ILOW ORDER DECADE

WLEE BITS:

mfiis.m.

'UNCORRECTABLE ERROR

(MLEEI<13.1>1.

!CRC ERROR

(MLEE)<661

ICHANNEL IN ERROR

(MLEE) <0, 6>%;

IERROR FUNCTION

(MLEE) <14, 11,

ISINGLE ERROR

oxtu;ml

IHEADER INFORMATION:

EFNS21,

gnu. OF THE SOFTWARE P-TABLE LOCATIONS:

LIMIT,
RANGE

LSECT.
TSECT.

IRANDOM NUMBER GENERATION VALUES:

! VER CZMLBB EVENT FLAG TO TURN ON SBE TESTING

m"
OW3uNI3uD3mOSWmS=n3AMu3Lmw”<i=@l«HwW3IOrxNI3©vSxo—v3OCWaS~O3CMO0SL3Oe0OnS80w”8@@>- 3wmfreprep3mi
fWl“.VsM5sT-.8OI-5.Lse-M.sE5-sL.T8'.'Cs.gSWF-O5.E=-Ls'FO5-a=.L8M"ssL-5."-2.o-<a'-'-w-©a.-.'.‘.mLS3'gYFV-rI8aTgYe.ILSg=Y-g.83se—g-(.LY5sg'T.-y.OeSLgEF-.Bi2g'OS.EgFW"L-8E=0.S8-7s.-.2|=-,.2<-a".'weH4.[-.-.-2=o-.'.h.2-5«" NVeBMLmv2Q.YNQ].-=mwT= &OTORN\RO8O10By0R<S5NS&OiSTRPROPRIyL<I S¥£R e532RAANGR-C3ES go
vgEBrwNsPren—grRuaRrBenEBOunr)iR=BeengrTRsBP[vEvmuEvOOpnEQseeupRBs8o0)enESENaoOw)e80EEs0TOeGR«yiv0eyEewWb°-V ¥=AA>--—x RBsSA)PvRgegEVnRESORso)TEBv[SoBgNBPvy§EuumfE)nRdETEGR))vsIEWW(2¥=7,|1AA==-—< =e5 oho=it=d o3-.
2R 5

S 5 - S5

sMLXG

52¥ o-W

w
nw3 ms
“P

SEQ 0060

-7~ -~ e -

(ZMLBBO PERFORMANCE EXERCISER
LSAU ADD UNIT SECTION

233 :
692

:MLXG

695 ;

ggg :

698

1:
:
:
:
:

709 :
;7?” :

710 ;

;}1 :

;112 :

715

ng :
77
;
713 :
719
:

720 :

MACRO M1113

29-MAR-82 13:41

J_5
PAGE 65
'

VARIABLES AND CONSTANTS
125

} 9
1

19:24:42
Sr-mr-wgs 19:53:44
7-Mar-1982

Gf'imu.z Itbl?clum:tor CNUM_PATS/2,2] field(PATMAP)
Xdecimal'0®

'FOR PATTERNS 1, =1, 6, =6

!FOR PATTERNS 2, =2, 7, =7

|
|
|
|

'FOR PATTERNS 3, =3, 8, -8

= Zdecimal’' 102"

131

= Ydecimal'l®

= Ydecimal’

1
1
1
135

=
=
=
=

1
}

'<BLF/FORMAT>

}21

bind,

'FOR PATTERNS 4, =4, 9, =9

IFOR PATTERNS 5, =5, 10, =10

: DEFINITIONS OF LOCATIONS WITHIN THE WRITE AND READ BUFFERS:

145

WDBUFF = WBUFF,

150

END_RBUFF = (RBUFF + BUFSIZ*2)

14.9
14
ug
14

= Ydecimal®1024'
.
= Ydecimal®1024"

}é

Ydecimal's’
Ydecimal’s’
Ydecimal'9®
Idecimal'9’

TOPS=20 Bliss=16 V2(212)
PA:
<NEALESMLX4.8LTS (3)

140

SEQ 0061

WCBUFF = WBUFF + 512,
ROBUFF = RBUFF,
RCBUFF = RBUFF + 512,
END_WBUFF = (WBUFF + aursxz-s).

1256~WORD WRITE DATA BUFFER

i
WRITE COMP BUFFER
i
READ DATA BUFFER
i
OMP BUFFER
1JUST BEYOND
END
OF FULL WRITE BUFFER

1JUST BEYOND END OF FULL READ

BUFFER

CZMLBBO PERFORMANCE EXERCISER
LSAU ADD UNIT SECTION

2 :SMLXG
2 :

MACRO M1113

MESSAGES AND PRINT FORMATS
}gt

K §
PAGE 66

29-MAR-82 13:41

Zsbttl 'MESSAGES AND PRINT FORMATS'

}é

159
}g

m 1 =

}61

"-'mri#uz
(zasciz'mnszxoz'>

:
1:

S :

155

}‘sé

164

165

740 :

168

761 :

763 :
744 :
745 :
746 :
%7 ;
748 :
749 ;
750 :

751 ;
772 :

75 :

755 :

775732 :
759 :

760 :
761 :
75 :

199
170
171
17;
17
174
175
1;9

1
};g

= uplit (Xasciz'UNIT #:

BIT ERROR LOG SUMMARY REPORT')

55\
ARRAY

1
1
1

:
;

19;
19

;

;95

191

m :
gf :

;33
133

77;2 :

)

ID1%A(D)

BANK #:

g SPECIAL PURPOSE FORMATS (WITH SAMPLE PRINTOUTS):

gozmos

FATIB = ugt
t czmiz'zsmzsu-xoz'>
ATTERN W

sz = uplit (!asc 2

(NOT POWERED UP)’

8287')

(NOT AN ML11 UNIT)®

(OPERATOR SELECTED
Tes LIMIT sINCORRECTLY) '

i*
(ALL RETRIES FAILED FOR
A NON-FATAL ERROR)’
i*
(CONTROLLER FATAL ERROR)'
i*
(DRIVE FATAL ERROR)'
i+
(ECC HARD ERROR)"
iv yp*
i* DOWN'
i =<3 RUN ML11 rmmn;s
FMT3 = uplit (Zasciz'INXAvZSITISITED zsu-m

1"a% END PASS X **
gq{&lwwrgzgng?zzm:XSTIDIZSLITIA:ISXD1*),

FMT4C = “‘1"#’:'"‘« sc ;'zsmu 2SID1IDIDI1*),

766
767

77 :

ADER

SINGLE

}g
i

uplit (Zasciz®

m6%
= uz (Xas¢
12 INIDIZA(D)

FMT4B =

185

TOPS=20 u
PA:
<nm

i SINGLE BIT ERROR LOGGING TABLE MESSAGE STRINGS

180

76 :
S:

7-Mar=19
4:42
.n.,--nS
S 53144

SEQ 0062

uplit imm'zsz;m:35%206°),

gg AL #: 222217

FMTS = uplit (Zasciz'INITISSZASECTORS UNDER TEST:ISIO6ZSTATOISI06').

1°ML11-X
SECTORS UNDER TEST: XXXXXX TO YYYYYY®
FMT6 =
uplit (Zasciz'INZABEGAN ID4ZA WORDISITZA ATISITISI06),
YSBEGAN YYYY WORD WRITE AT SECTOR 2 % Z

{\GEGAN VYTV UoRD

AT SECTOR 222222
rn?; = wplit mfig WRITECHECK
m:xsiogw.
]
e

son em

mnsr n
'f..'f"

nga

' m

DDDDD*
.

o s/msreu RATE: XTIA MBYTES/SECOND'),

;m""."' Lit(Tasciz
p&sl
’
.gmmm135205°),
mm = u:'(xum'mmzszmszoezszmomxoszszzmxoz'
'YEAJLED:

SECTOR xxxxxxw;mz

fflt =uq t (Zasciz'%s

ITXD3*)

T #:*),

ID6XA(D'),)

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

EXERCISER

7-Mar=1982

MESSAGES AND PRINT FORMATS
3

FMT11 =

SRSRERESS
I III TR I &)
T A TR AR AR AL AL T T
L L T T A TR IR IR IR AR R R

uplit (Zasciz'INZTISIO6XA EXCEEDS XTIS06°)

EXCEEDS SYSTEM LIMIT OF YYYYYy®

SECTOR OF

XCEEDS TOP SECTOR OF YYYYYY'

FMTI2A
=
uplit (XZasciz®INZAGOOD om:vgom AT LOCATION 206°),
! G% DATA: XXXXXX AT LOCATION YYYYY
FMT128
= uplit (Zasciz’
DATA:
J06XA AT LOCATION 306°),

!'Mg DATA:

Ay
1;

1
1%

19
51
18

FMT16 =

XXXXXX AT L

TION YYYYYY

RN TESANCE PROGRAN"

uplit mm'z"'zm' s'gs'xr-f.

POXXXXX
MBYTES WRITTEN'
i 'XXXXX MBYTES READ'

z'xxusax MBYTES "'"5 CHECKED'

FMT15
= uplit (Zasciz'%S2XT*),
' OECH
i* NED'

2219
2 3

I (ANY OF THE ERROR BITS)
gRLF = uplit (Zasciz'3IN'),

204

SAve - upLit (Tasciz INETISET®)

g g
2228

| MESSAGE MAPS:

SAY1 =

uplit (Yasciz'INXT')

6
2227
% 8

SAY3 = uplit (Yasciz'INXTISITISET®)
SAYs = uplit (Zasciz'INSTISXTISITZSET®)
SAYS = uplit (Zasciz'INETESITSITASATASET®),

WORDS:

55‘
5é

:m
Lit (Zasciz'BEGIN')
WoS = DLit
(Fasciz BeciN

no; = uplit (Zasciz'ML11-A%),

asci12

WRD4 = uplit (Zasciz'PASS'S,

WRD7 = uplit (hscif'll.fl-a').

22;0

WRD15 = uplit (Sasciz'SECTOR'S,

239
40

41
4;

WRD11 = uplit (Zasciz'DRIVE®)

mig = uplit amfz'mngv.
WRD17 = uplit (Zasciz'READ')

ums = uplit (Zasciz'RETRY')
WRD19 = uplit (Zasciz’SUCCEEDED®).
WRD20

= uplit (Zasciz'FAILED')

WRDZ1 = uplit (Zasciz'DROPPED'S,

WRD g = uplit (Zasciz'UP )'

WRD34

= uplit (hsciz'mmé').

WRD36

= uplit (Zasciz’ENABLED®)

WRD25

= uplit (Zasciz'DOWN’)

WRD35 = uwplit (?sciz'mcmns.

WRD37

AR TR T T

OGN
AN —O

b b g ee eb g

—~S
WVids

19:24:4

Sr—m—wfli 19:53:4

''TOP SECTOR OF XXXXXX

i'LOW

SEQ 0063

= uplit( sciz'blSA?tED".

Unbi0 - D1f (FascizEecd
=

WRD41 = uplit (asciz'AND"),
k

asc

TOPS~20 Bliss=16 v2(212)

Pn:wusm:'u..ux.sz( )

PCR“WMW“M"ULwWkAE
Al‘l‘l‘OlR‘lOlA‘Rl‘l‘O.‘mOwmwOC$838333 EEEEEEE T
Y eNeN .Nbe oToeBsTsT BTeTT-RL e s s T

MLX4

ODC

MACRO M1113

LN]U

Ps N

L2047

e bd B Ed

EY$E89988888
eRERLas 22309§99998385833UL OO ON UM = O
v<egNSStb NSnbe NSmmhuhn
PSp?imGNgtm deSS d SgAenBSt eNNNe dS e Nt e S S S dnr B Bl bt B0 Bed ind B B Bt G bt od bt B> Nt ooN NN N
LNFous§SPBR=NNNNN
L- LsS8TESHz:L LsEyNNn

R
E
E
E
R
E
E
E
E
E
D
adthnthatoathatiatiatiase

PLelDPoQa.N)ou.nvou.=SnODpRuoMue.nSo.SgDnm'SopmoMH.Sg.on.O2.]S-DN-0o.oH.oU.SclU.'NHolcl'.'.l‘Y..'m.l.To..Pc.o§p.GOLSBo—U9'pLcN—o'NgYaoVtgm9’LmooPV.SontP5SlUeVeoP8h0logRc5€'NoP9.Nob5TleoS3lNU.9yt£.Ngot.N9.Blle3So’8NPRLo3YtB9uNdLdadLR$8obBLABdo8)RBedG8eud S
N eoe o SNpem]gNSgmSgmNLSLNVS]peLmtN2VgumNLSeVNOLgmyoSNg0SLgmNYop"mNVtpt5OmN—Voy&NQosOoN-PeNeNtce—YNsNe
CZMLBBO PER F ORMANCE EXERCISER
L $AU ADD UNI T SECTION
29-MAR-82 13:41

iz’

L] 5
PAGE 68

MESSAGES AND PRINT FORMATS

S7-mar-1083 19:33:2

4
‘0PT4’)

'OPT5°)

[

NO SYS fEm ERRORS

FOUND'),

SEQ 0064

PA:<NEALE>MLX4.BLI.

T0PS-20 Eliss-‘lb VZ;Z};;

ML-11 BITS:

Q©S

ROUTINE NAMES:

cf:'cOMMAND INTEGRITY ROUTINE®),
11°),
',’

RANDOM DATA
DATA ¢ WORD COUNTS
DATA . WORD COUNTS & SECTORS
DATA, WORD COUNTS, SECTORS & UNITS

CZMLBBO PERFORMANC

LSAU ADD UNIT SE

§0 sMLXG

AARLA LA TR TR TRLR TR TRTR TR PR PRTR TR TR TR T T T T

A A e AR LATR T T P

RN 23333333 2388883888883
83332

TR T 1)

1 3

XERCISER

MACRO M1113 29-MAR-82 13:41 PAGE N69 .

MESSAGES AND PRINT FORMATS
PHR12

SEQ 0065
7-Mar=1982

19:

7-n.r-1935 19:5

TOPS=20 Bliss=16 v2(212)

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

= uplit (Zasciz!NUMBER OF MBYTES TRANSFERED:'),

PHRI = ubLit (BascSECIOR
iz'To
BF
b FyECKEDTM),

PHR1S = uplit (¥asciz'LOW SECTOR OF ')’

Pm; = uplit (Zasciz'SYSTEM LIMIT M )

fi"fi%s - 313: fusc ?%Iem'
”Ec&m')r o

PHR19

= uplit (Zasciz'MBYTES WRITTEN'),

PHR20 = uplit (Zasciz'MBYTES READ'),

TRANSFER RATES:

TRT00 = uplit (Zasciz'2').

TRT01 = uplit (Xasciz'1')

TRT10 = uplit (Zasciz'.5'S
TRT11 = uplit (Yasciz'.25'5,

DROP MESSAGES:

CAUSE] = uplit (Zasciz’(NOT POWERED UP)+)
CAUSE2

CAUSE3

= uplit (Zasciz'(NOT AN ML11 UNIT)Y)

= uplit (Zasciz®'(OPERATOR SELECTED TEST LIMITS INCORRECTLY)'),

CAUSE4 = uplit (Zasciz®'(ALL RETRIES FAILED FOR A NON-FATAL ERROR)®),

CAUSES = uplit (Zasciz’(CONTROLLER FATAL ERROR)*)

CAUSE? = uBL1t (Baacizr(p
maRD pkncrhon)®)
ee,

CAUSE8 = uplit (Zasciz®(ECC LOGIC FAILURES®),

DIAGNOSES

MSGO =

uplit (Zasciz’INTERRUP

T DID NOT OCCUR
MSG] = uplit (¥asciz'~=> RUN ML11
LOGIC TEST

n"‘%

BUT THE TRANSFER IS COMPLETE'),

= gm ffi:fl%;fi?rme" nq; PROM MAINTENANCE PROGRAM'),

MSG4 = uplit (Zasciz'HARD ERROR').

MSGS = uplit (Zasciz®ECC LOGIC FATLED TO DETECT DATA ERROR'):

NRAvSUlbmwo”~muw/DMWTM“WMYWT
g,,
3§

A AN

ONOUN
M ~F

&m nm u«umum mum

RTYRT3Sl"T3PlIR!S3‘RlHT3SS8"sP 2'RL8lO2'N3iRI8N3lT9FiRLR3!Rl3E'8Sl5‘RelS2igSS!EiRNlSeL T"RlNl!‘SliR
a
.
Q
.
3c1-SM417IB"c4gM1Ng3c7I1Bn1cN4BMIg3DN]cg9/N1Bc3DN/1g9cgAI12NBlc/9BgN1c/9BN41c)I9g]cBN41McB9H1cBI]G41cg-9/NB9M]cB2H1G9cB9]Ae51cB2"G91cTG7gR41cB9YeV41cg5o%"cg

EEXERCISER
MACRO W1113 29-MAR-82 13:41

=S)

111

MLXG

PAGE 70"

ML11 INTERRUPT SERVICE ROUTINE
SEQ 0066

S har-1983 19:38:

ML11 INTERRUPT SERVICE ROUTINE

PA: <NEAL E

TOPS=20 BLi

%4 “RDSRv;

WERVICE) :
= ACTIVE;

Isbttl * ML11 INTERRUPT SERVICE ROUTINE®

P LAAC

S har-1982 13 153 442
:4

TOPS
PA:<

g& A A 3A8a
TENRSRANYS

13N-s3APNa1I)$Sg[’a9l1pR5ya°YaMl)1iY=OMST1NeSII=NS1WSGM=MNN=1StEIOO1ISaNS"ZIN1YOMI,RSCT=O1NAI7TNN1IMNWG1LAI‘GN1Ia§)Nl’AaR"Rll(2A’"Iol8[To1N2IaDIVoo'5RN051TG3R"813OLrs"3°7N=2§3eO3I2sINRFT°2OeNI‘IOIIzMRIoOIM=STNIsEBM
E]/YEAL/BE,S/LlPRLP/SB/SR~/<sgL]a/PgLRLSeo/LGEo)LSo/LBoBLGo,)LRyIb)aR/nSBl)LBi/UGlBaLnIDSUb/RlLS,1()LS,1bSNURgV/1UBb,LG,1e/LLAG,1BL’gR/1gL/gU,L1gCIEgLI1RG<gW,1.3YR0,1ROB,1RB/1.GE/]E/1LRIR/“o
MACRC M1113 29-MAR-82 13:41 PAGE 70- 1

(-9

SEQ 0067

P .AAD

DOeiRLSSP
AAD35135"
SA SA

ooRk SokXekRaK

2Mc"1NTAS2gRO)bNSLNgD1cRVAO2NR"gRNA1V0SAcSgTL'N"NNO.AgS1cNiNRe"YDS1GSe'B5NcA~AleB.SSReeR1c.vOVN21S'cN9YASAoN5A'yc.SY09lNO'8NoSV1JcLOO m-NSw2Sl1OcSTOI=NNNm2SR1cIN3IOUW1m5NNcTNTM1Rm'IINSNcNV1OlmNNIS.v'c=NSWYmlRNGAOgPN1Ic=lSINmeRcN'NSG1NwAac'.O1c.ASW1cNVSOgIEN)1cA3y33=1gMEcN1IAS)ec3I1]SAc1IVSNNZ)"cJRMI1EcNN1LctAOg1OSNFc~1NBRMNEcON1S3~AA-WOF‘cNYNIE1cANMN1INc"AA=AN1IN>cO1-ANTANc1iEIE1cAMC,NIcSR"1c=AWI‘1RcINM1cS"wGbWMW
EmElERCISEI
MACRO M1113 29-MAR-82 13:41 PAGE 91 $
sMLX4

a AAM:

P.AAN:

ML11 INTERRUPT SERVICE ROUTINE

00><00>

P.AAL

SEQ 0068

S mar-1982 e
TOPS
PA:<

PERFWCE&XERC!SER

ADD UNIT SECT

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

]
1

1101

1
1

1105
1106
1107
1108

1109

:MLXG

00€
:

.
:

00¢
00¢
00¢
00655¢

00656

1110 00656
1111 0065¢
111; D06

1113

1114
1115
1113

115
“

006
0
0
)i

057
103
104
1

;

101

045
124
0
1
153

101

3
103
5

1
1

11?

104

1
;;

?5
2

1
1

124

1140

17;
??o
1

101
1
101
1;

12
04
045

124

1%
}11

104

“

o?s
13
43

101

1
1

.ASCII
JASCII
JASCII

/INX/
/TIA/
7:38/

.ASCII

JASCII

114

117

131
124

119

72%1/

.ASCI1
JASCII
JASCI1

104

-ASCI1

/ARD/

JASCII
.ASC]

<00><00>
2/

JASCI1

062

822
123

P.AAQ:

P.AAR:

836

/D3/<00>

.ASCI1
:ssg J

/INY/
;rzs/

CASCII
.ASCII

ZEXC/
/EED/

.ASCI1

045
P.AAS
ng

/3D2/

-ASCI] /u'“/

123

04
04

7ABO/

fifi 51 /
.ASCII
.

i
1

?40
24
0

/3S%/
706%/
7523/

‘ASCl] /3%y
23881 5»«/!
.ASCII

LASCIT

/D5/<00>

<
i

066

/RAY/
7303/
/%A:/
/73S%/

1147

045

P.AAP:

"ASCI1
.ASCIT
JASCI1
JASCIT

.ASCII

1
1

/INZ/
754%/

JASCII /AAR/

045

1
101
o;
1

1150

.ASCII
ASCII

117
184
1 }
82

1148 9057

P.AAD:

131

101
153

ASCII
JASCII
JASCII

04;

O
0OC
0C

5
101

3’4’5
g

1141
1142
1143
1144

1145 00¢
m, 06

105

116

ML11 INTERRUPT SERVICE ROUTINE
<57>/SE/
/CON/
/D/<00>

/S %/

77%S/

fissfl
/INY/
.ASCII /AG0/
.

LASCII
JASCI1
JASCIT
.ASCII

CASCII
JASCI1

.ASCII

/0D /
/DAT/
/A: /
/%06/

/%A /
/AT /7
/LOC/

“ASEIT Ton7

LASCI1 1%6/

SEQ 0069

7-Mar-1982

7-Mar-1

19:24:42

19:53:&&

TOPS

PA:<

wuu/k/o/Uumwmv/em>>N/mTwu/WI/UT/FLx/ewyuk/unR>ukP
&A .SA

1ec2.o2.n1MG.c2aW-yN1.c2PSoO1.c2\-P4.c211oC,.2O11CW1N.90t1C1I.2O‘NC9P1.1SO"C2.11C9‘2W.2‘8N1CT21M2O81C12OCO‘MR,2SAR1o1CP2’2"o"C21SSO12PNSC2%’Ic20N1A‘R2OMI1c203T‘22ONIv1c218Nv"95‘eT,c201N’99FO"2c9,9N-9'®2Gc91oO1SP29N""c9=’1R591Ic%""N9Sc9'2R2c2,S2".
NSNSNNN WRNN NNSASeYIN SNSNSNVYSRNNVSSNSNSNSNSNNNNNVNN5
uE‘xEliCISER
MACRO M1113 29-MAR-82 13:41 PAGE ;3 "
sMLXG

ML11 INTERRUPT SERVICE ROUTINE

SEQ 0070

S har-1983 19:3%:42
TOPS
PA:<

g & >

[RPENTE=STReENNIVE-OMSs SEgNgR)E-e~Re -evOe= O O- ——e

o 32999gy3Lgol9e9g9g3g9ae)L9g9e9Ae3LSol9S9T9T9TONr5T=Rv%T—%FHEQ

R4LoT89NAe:SLWsU+-N43lLoU-&UA.NRLv2VedRNu9NLr=8AIRONU9NgNRLTRIIeRUEMYPWeRLRA“ARTVgE”LRILeR“sSLH,xAoRMmPwVAc.-lLRW,RAM!oNvg)RPc![LlAP®vZ-VN.CRPRYLIvR‘VV4EOevN&.LAe!aCO.RNueOO.oLV)V!VtEC.Lc.R.Ma)RiWAUVL€O0.LNATL=VT-28oAMLtN..ONeLAA“DNDD.OvV4W\L=SONADUOO.¢LRNDNASDLa.“EVlO1nYL-Ds8NA.!NLDVTA.YLANV4.L0D=N8STA&NOSLA.VLYPLm2rv-N..=RYoCLgNDP.CWOVA.SO§MRAUy.SVLoO-.V"~
XERCISER

A4yL

MACRO M1113 29-MAR-82 13:41 PAGE 96 6
sMLXé
ML11 INTERRUPT SERVICE ROUTINE

SEQ 0071

Graereg 18342
TOPS
PA:<

SEQ 0072

P.ABW:

§§§

P.ABX:

NIT/
/H/<00><00>
/AND/

P.ABY:

Thgs/

104

P.ABZ:

115

P.ACA:

105

P.ACB:

/PGE/

124

P.ACC:

/DLT/

105

P.ACD:
P.ACE:

P.ACF:
P.ACG:
P.ACH:
P.ACI:

P.ACJ:
P.ACK:

=
Z000
<00>

<00>

485;«)0)
/MXF/
<00>
/MDP/
/E/<00><00>
/MCP/
/s/<9o><oo>

ot ) wnd (D e o o o 3

P.ACM:
P.ACN:

P.ACO:
P.ACP:
P.ACQ:
P.ACR:
P.ACS:

P.ACT:
P.ACU:

<005

P.ACL:

-l
b

103

alalalalalalalalalalalatlalatey

-t O = O VAN

el coalt oml vody crud

-.§~°-l°-.

b
=

byl

598487858:8:853%

ML11 INTERRUPT SERVICE ROUTINE

A3 AR AAd AR AR A

sMLXé

P.ACV:

o
>

/DPA/
/R/<00><00>
/CPA/
/R/<00><00>
/DCK/
<00>
JECH/

; RE/

a0r
i
<%>

&~Mar=i
“Mar=1

1462
19158 H

TOPS |

PA:<

Ag2-RvAm90NV2m9A21ND1/P90”g3 oAS29U‘mi5N.U/l9Sv“2-‘9S-£b1VN9Ie2Vn)NS3.29&AA MAiN>S9S§3NN19*SS,3&ANTI89Sct§NO9-gM8LANE09gV13D”EeAW9«=gL0VeA“9EsW5&V3LeA“E9Ms4&V9£VeA“%E9.s28§V2VArNNE9o0VW21nVAE9“s82N13NrVAS.09eN283vAnNE21V92Ny31”EsN"9\P213E19IC&3V.Si0”9)C”3Lgl.9K-"%Wee1
-

[=8 a

1g<‘O=eI1gNOgg1NeOgg1WO(P“go1eMGg=te1geM1g$(=e)1NOe1eg=qMle=OgcGgglN.reglOOceeelNeeclRP-lOcrelOMcelrNqlOecMrtlA.lPO.rNRIO.NETIrqI0lOvSc04rl]c1OlA.l0cOY0lneOlOgorl.OD~lSclRaOOrlqlO-Olcf~lcO1lORrc”lq1le-eP’s!lNO1cl1NaMl1vcNUyl1AeaL1lBeOnO“wTlNolcl
CLULOLURLULVOULLOVUVvULVNLLVNLNVLVLSVLSV5LVLNLVLLWLOLeLeLLeLeLLBD
EXERCISER
MA

CRO M1113 29-MAR-82 13:41 PAGE ;6 ’
sMLX6

P.ACW:

[£8 <ACX:

P.ACY:

ML11 INTERRUPT SERVICE ROUTINE

SEQ@ 0073

S nar-1983 e— oo
~N

TOPS
PA:<

wn/3nxy<wuwuxm«>num«>W/nyu>/uwwuu8Azwyw/>4AW.M8WA/HVWH:xW<wyw
~~ it t R --- gg g PT

$J12ogw1ll9Lerk1”IS1al35O"9-eI119aeM3"1gRy1M]2Ls19NeeTv191SeVg"YeN19SO1TgEN9o19O11SSeeOI9R“sl1"1C%No29R1eoR11=N3ol911oTlI3olN91(d1eR=e]lLEeol19Y=1l19N-71lMF’19‘3TN1,N5’N19lOP119l.=s.!M‘gWeN19lO1goNSwg,gn19lee1x9'lSN19NySL)"3lT91Ws‘=el"N65Oy'gO53ZL129TLO]"e3oLMA;-ol'9LWo"o,l3onONkl‘"eZlRa"l6%?loe'Y11
1
1
1
1
1
1
1
1
1
1
"
]
!
1
POw&WAS“wTeNT M[Ty S(7]A=OWS—I@x WR ARORW 0ROw8AW=\S
—

2 5 g

o CTION

fi E XERCISER
MACRO M1113 29-MAR-82 13:41 PAGE ’7 6
sMLX4

ADL

ADN:

P. ADO

a ‘m.

ML11 INTERRUPT SERVICE ROUTINE

SEQ 0074

S har-1983 19134142

TOPS
PA:<

BV(oS'NS'gVS-N’NV8W"NS4SN”ARST/eSVs(S2/NN)NSNh)SDMNeSPNSSNVeONNWDMSOSNNRNONNSoSNSO>SGNNRVSmtNNOER"ONRCKNSN’NSS>ONwNDNsNoTSN<NwNeRNoNENME<TVsANw5MNcNAO2l0.NYl8N
5A28AoosanabinanvN t 8 -A

258 F3S 8NISNBEZ
L VLVL VLVL LVLVLVL L L L WLVDUV

1g0-Wwg.Lao~=lg1gLmaPYB1GM8eaRROB.&1BaL“oTN1B”BgoySe%a1~.:EBeNn.EOo1mTBggn1)~ome1efQl2LBRSoe.m1GTGw%OOTBe.2w1SeSozBrNulee)2.SS1ledL8ox2]“Bl[9-oBl12ogOBElsroB2lG1oeTdg3iB—r"eigd9GnrMe1maBONAdg1%o23LNsB[k1-2Bt19eeAB=1NeBN19eB1eB91>.M8eRg[+”(B9’TNBIAg1Se1Ae22N1OeB92O=8L=NM'SL]g[]-mg,91OFNTG12TEe.3B1P_EA9Bo14N=8S2L ..TRBg[1-2eB'N9B,3oT—eS'I%geN127—(STL0)1f"er3~’e
—dad
w

XERCISER

MACRO M1113
>

29-MAR-82 13:41
PAGE 78

ML11 INTERRUPT SERVICE ROUTINE

SEQ 0075

S har-1983 19:38:42
PA:<

TOPS

S S

L) .

N NNNRINIRNINNCON0A0NN0 0 0NOO0N0NO0O O 0 108 5 =3 ~2

1.1VNOe(N1UYl1Q-%ot.NLs"N1C1D.S1LNe1&A'1lA"2O11NoI.1S1“oT1(NZr1O‘o.L%T1vO1S“Me1N1.NRV2N11TtS1=5[Z1eMy.«N.!G1NPNF1Oo1.AO1O=N1rW%111.=M]DIOM’1M—1eZN11.1IO=ZTNO1NM11O.1iNeOU1OS1MO1.1=ISeNM1vN11Z.=D1T"IO1O1SS1B.NO1SQZ=SE=AO.1liA1NO1S.NNeB1T1S1’NIN“01S.e1NN0=S1‘GM%=N1MSl1N2B=NI1.NO=O1O.i1I“T1.‘"RNNN1F=1.11MO21.NON1=rI1]1,NO2=.SM10=I1‘1V]E0ONT1fQS2Oel.Nw113,2S-O.eN1”FS-e.11N2ESlNNI11S.11Se1O'ONS0.N"O0r1NlS1!1Qef1E'N-.l12'NrW1O.1ONV—l1P1rO'.—O1“"1.w111mw
sMLX4

ML11 INTERRUPT SERVICE ROUTINE

WTP

MACRO M1113 29-MAR-82 13:41 PAGE$9 6

S nar-1983 e

C%E XERCISER

£e

g—_ilyclnfA—OLlWINW%A‘B,g(=](C?I-I.PI!‘(-IM-!I.iA*M(“C"DR
0==Lg-—DNLODOLNGOOLOAGNbLN.eOTPeL.aOW.SSANNDeoOFBMeSNNetOASSNOg-e®geS{bAgSNge3OSWnVgNNAWO8O=SLAMeITUFRgVT(N—e=LNB1VISTLTOSB—L=eLgN—geeLBgN5L—goLIggVlaLg-edLLAglL(KlL-G9v=LeVS-BDNBLtLoL5eV-0L=L—NTLBoLeuL-NOLnG
LLU ADD UNI SEC”W
CZNLBBO PERFW

EXERCISER

MACRO M1113

AEOD

29-MAR-82 13:41

sMLX6

AEL

P.AEM:

P.AEN:

L
PAGE 80

SEQ 0077

ML11 INTERRUPT SERVICE ROUTINE

P.AEK:

$7har-1983 19:3%:42
TOPS
PA:<

A AAw
RRacwoacyEeB-cw0CES2TR-Ea3CaTE

C=—O0Vr0OAr0N—N0=0NNO=A0Orr0OO02OOIT0Me0O00MO0T0e0eO00S
AFILALANAOURNLSUL=ALPLNSLLMVALtLLVe~N t~LVLVL8V8L¢LLL2L3L=WL5
N NNR N 6 Ne

1EOO1DO’T1DD1O1OO1O’1O1‘O1OO1O1O1N2—So1e-7oO1oS21o6eeO1oM21Oo“=goNO711'%e2fO111lm1N2O1.2O1u1‘9vm12O2}112m0.1OO02)1me“1O%90wO22m3101991‘60”w011f6-“109l701r2“’1=i9f1"h=i‘uO10ef3f1r3lTl91’65u%=11-fw&i"w'w1AEQ:

P.AER

§v gv

XERCISER
N
MACRO M1113 29-MAR-82 13:41 PAGE 81
:

sMLXé

ML11 INTERRUPT SERVICE ROUTINE

P.AEP

PM. SBE. CNT

8 5 a2

SBES.C

.BLKW
BIT.
BLKW
WBUF
BLKW
RBUF
BLKW
WPTR:
RPTR:
QUICK:
BLKW
PATTERN: .
W
DATA. COUNT :
BLKW
COMP.COUNT
:

BLkY

BLKW
EOP. COUNT :
KW

-BLKW
VEC:
.BLKW
BR.LEVEL:

BASE.ADDR:

200

4
&

806

SEQ 0078

S7-nar-108s 19:34:2
TOPS
PA:<

SEQ 0079

sMLXS

ML11 INTERRUPT SERVICE ROUTINE
1

el
ld o e

I.AM.DONE
:

WC.MILLIONS:

.BLKW
uc.mtmsa

ety

.BLkW

PTABLE.ADDR::

BLKW
DRIVE.STATUS::
BLKB
.EVEN
DROPT.DRIVES::
BLKB
EVEN
U".WT&U

1
1
‘

NUM.DRIVES::
BLKW
LOW.SECT::
BLKW

PATTBL °’u‘a§'.f

)

TOP.SECT::

-WORD 2000

.WORD

573::1

19:24:4

19: 3:&

P?i

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

1721

1
S
1
1724
1725
1 9

1
1728
17
1
1731
1
1
1

1735

]
123

1740

1741
176;
174

1744

it
1729
1748
174

1750
175

1
1
1

1755
1
1

1760

1761
17
17

154
1766

.GLOBL
.GLOBL

.GLOBL

.GLOBL
.GLOBL

BIT15==

BIT14==
BIT13==
BIT1 %ss
T11==
BIT10==

BIT09==

BIT08=

81706
BIT0S5==

BIT04==

B8I1T03==
BIT02==
BIT01==

BIT00==

=
BIT7==

BIT6==
BITS5==

BITé==
BIT3==

BIT2==
BIT1==
BITQ==

EF.START==
EF .RESTART==
EF .CONT INUE==

EFNS$21, LSUNIT,

LIMIT

19:264:42
19:23:44

TOPS
PA:<

RANGE

—

PRI06==
PRI0S==
PRIO4==

g
:

LSLUN,

LSECT, "TSECT, ONLY okomg . DROP1
DROP2, DROP3, DROP4, DROPS. MARPAT
REFRESH, ecsbxs EOPSUM, ERROUT
SEEDT, SEEDZ2, SEED3, RANDOM, RN

e
PRI%:
-

2000

TOPS
|
PA:<

oco88

1
11

19:53:66

e ey

WORD

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

19:24:42

000001

7=Mar=1
7=-Mar=1

L a

1714
5
1715
1719
17
1713
}71 034542

ML11 INTERRUPT SERVICE ROUTINE

} ;8

sMLX4

171

fiONMO‘

T
YT
AT

1710

~NO

LSAU ADD UNIT SECTION

XERCISER

b d LN PN

CZMLBBO PERFORMANCE E

0
4
4

ML11 INTERRUPT SERVICE ROUTINE

(ZMLBBO PERFORMANCE EXERCISER

SEQ 0081

007200

]
1
‘
2
1
2
‘
S58 3333333 12‘12‘1’-‘
WRD2=

REEEREN, L

So3Rco 3a8.............

sSNRNmIRSNPRNRB8 SRSyomowmwBemsmsmanEmsam:

111‘11111111P11S11S1R'1’,1I‘111,S1S"N1’1"e'S1'1

LSAU ADD UNIT SECTION

MACRO M1113 29-MAR-82 13:41 PAGE gS-l

*4+g

ML11 INTERRUPT SERVICE ROUTINE
P.ABD

S ar= 1983 1933 &2
(14

TOPS

PA:<

EXERCISER

CZMLBBO PERFORMANCE
LSAU ADD UNIT SECTION

1824
1825

WRD3=
WRD4=

1826
18

18
18

724

it
18
18

18
18

18
1848
1849

1850
1851
185

WRD7=

P.ABG
P.ABH

um’:
WRD17=
umg:

P.ABK
P.ABL
P.ABN

WRD11=
WRD15=

WRD37=

P.ABV

WRD

WRD
WRD%

MLB4=
MLBS=
uugs

7460

33:

MLB1
MLB1%=
MLB1S=

1874

}

1 ;s

;

P.ACH
P.ACI

P.ACN
P.ACO
P.ACP

H.Bls:

RTN1

P.ACE
P.ACF
P.ACG

n.a19=
MLB17=

;

1 z

.ACB
P.ACC
P.ACD

P.ACJ

MLB1

1
1871

ll.mg:

1
1
1865
1
1

P.ACA

MLB7=

1
1
1

1861

P.ABW
P.ABX

MLB10=
MLB11=

185
1

P.ABU

7440
7444
7450

74564

P.ABN

P.ABO
P.ABP
P.ABQ
P.ABR
P.ABS
P.ABT

1
1

1855

P.ABI
P.ABJ

WRD20=
WRD21=
WRD24=
WRD25=
WRD3%=
WRD35=

761
7416

SEQ 0082

P.ABE
P.ABF

WRD1

18
18
18
18
18
18

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

P.ACK
P.ACL
A

P.ACQ

P.ACR
P.ACS
P.ACT
P.ACU
P.ACV

nr:i:
RT

RTNG=
RTNS=

RTNSA=
ZMLX4
:

RTNSB=

RTNSC=

RTN5D=

:23
P.ACY
.

P.ACZ

P.ADA

P.ADB

P.ADC

ML11 INTERRUPT SERVICE ROUTINE

P.ADD

P.ADE
P.ADF

s7—nar-1
7-Mar-1982

19:5‘:62
19:23:44

TOPS

PA:<

F
MACRO M1113 29-MAR-82 13:41 PAGE 83-;

SEQ 0083

AR T

0000000000

R$a.Ia3RaTaE9aSc5aTca9Rca3ca0c9aa3cNca0ca3cac5ac0aca5ac3aac3ac0aac3aca0ac0aa

.lql.lqlqlqlcl.l.l.lcl.lclclclilcl&clRe
m1cl%.l1alm"cl“nOlmc,l.1ml-qlq1.lPc‘ml11-1m1R.‘.m.1lqlmq1l'3.:lC3S’c-l3O1q-OlD.lO”nAl1cAlcNlPa1lOclE!1l.Qc»l0.q1OlI"nc.l-’cN”lOicNvlvq.lfcrl,"fi

s EXERCISER

544
564
552

015787

000001

177564

.SBTTL

SERVICE:

sMLX6

Routine Size
; Maximum stack

MLX4

ONCE-ONLY CODE

2348

ZXsbttl "ONCE-ONLY CODE’

SERVICE ML11 INTERRUPT SERVICE ROUTINE
oIoMcm

ML11 INTERRUPT SERVICE ROUTINE

deotn per invocation: 0 words
rds

Shar—1983 19
19

:42
&4

CZMLBBO PERFORMANCE EXERCISER

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

SERVICE ML11 INTERRUPT SERVICE ROUTINE
11*4?1.5 -

rout;.n;"t‘l.am.s : novalue =

1943 :

I++

}345.05

ROUTINE:

1951 :

PURPOSE:

}35“ :

}955 :

1958

19s§ :

1”9 :
1959

1% :

}9“ :

1965 :

1984

19 0
:
1991 :
lg’?i 3

1
3
}% :

ARE:

TO INITIALIZE STATISTICS TABLES

(2) TO SET ALL DRIVE AND ARRAY STATUS LOCATIONS TO ACTIVE
NOTE:

EVEN IF A UNIT WAS DROPPED DURING A PREVIOUS

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 THEM ALL TO RUN.

begin

incr ARRAY from 0 to 15 do
ba,in

SOFTS
HARDS

C[.LUN, .ARRAY,
0, 12.
=0;
[.LUN. .ARRAY. 0. 16. 0] = 0:

SBES_COUNT = 0;
EOP_TOUNT = 0:

! VER CZMLBB ADDED CLEARING THIS VARIABLE

'll'I"MIVES = 0;

RETRYING = INACTIVE;
WR_COUNT = 0;
WR_THOUSANDS = 0;
WRTMMILLIONS = 0;
RD_COUNT = 0;

1
g

9%
95
g

RD_THOUSANDS = 0;
RD_MILLIONS = 0;

WC_COUNT = O;

WC_THOUSANDS = 0;
VWCCMILLIONS = 0;

19 6

}%’ :

:MLX4

ONCE-ONLY CODE

;Tflls IS THE CODE FOR PURPOSE 2:

USED TO BEGIN

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

1985 :
1986
:
1987
:
1988
:
1
s

THE PURPOSES OF THE ROUTINE

1982

(1)

*RESTART' COMMAND HAS BEEN

‘e
ITHIS IS THE CODE FOR PURPOSE 1:
=

1971 ;
13;; 3
1
:
1976 :
1975 ;
13779.-

13;3 :
1981 :

'START' OR

THE PROGRAM.

1966 ;
1967 :
}960 3

1970

THIS ROUTINE IS CALLED BY THE INITIALIZATION CODE WHEN

}gg? :

CLRTBLS

SEQ 0084

7-Mar-1982

19:24:42
57-"01--138 19:53:«.

TOPS-20 Bliss-16

v2(
PA: <NEALE>MLX4.BLI.S
i

IMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 03-;

Y LA TR TR TR

ML11 INTERRUPT SERVICE ROUTINE
403

incr LUN from 0 to (.LSUNIT = 1) do

LSLUN = tw:
LOW_SECT
.LWJ = i
IVE STATUS E
ACT!VE:
DRIVES ws
NACTIVE;

4
4

410

B
-

418
419
4
621
4 ;
4
424
425

2426
4

2
2431
263§

243

eat 0

begin
1=0;
onopi = 8
DROP3 = 0;
DROP4 = 0
DROPS = 0:
end;
!

!
]

' 3«

nJ o

VER CZMLBB ADDED CLEARING OF TMIS STRUCTURE

i The single bit error logto?lo
stores al%

! detected sbe's detected
he run time
! of the exercinr.
In this t lo is stored
! the sbe's: unit #, board #, bank #, bit #

a count of how many times this sbe has

gglso

: reoccund

2439

i This code initializes this structure to zeroes

533

2439

AR TR LR

11 ovome

e 2«

n 2 »

611
41§ 53
2}‘'tms IS THE CODE FOR PURPOSE 3:

T N TR TR IR TR R T

e MR E LA TR L L

TR L

SEQ 0085

: before starting execution of the exerciser.

22(1)

-incr fndex from 0 to 127 do

index, WRDS_1]

gg
E.index, WRDS_0 = ZERO;
= ZERO;

!Clear the single bit error log table

'Clur word zero
!Clear word one

6‘2’

3 VER CZMLBB ADDED CLEARING OF THIS STRUCTURE

2?8

:
The prom nintme progrn is call
! to be run on a
particular arnynsdu
! thot array module has collected 1 uniquo

451

CZMLBBO PERFORMANCE EXERCISER

SEQ 0086

§7mar-1083 19:3%:82

ONCE~ONLY CODE

! failing chips.
This st
! each ?rny within “ih
;ofm que failing chips

Liss=16 v2(21
PA:NEALESMLX
G.BLI.S ( 8

ture stores for

nf t its total number

i This code initializes this structure to zeroes
! before the exerciser is executed.

incr UNIT_SEL from 0 to 7 do

!Clear each units table

incr ARRAY_SEL from 0 to 15 do
!Clear each ornlouitMn each unit
PM_SBE_CNT [.UNIT_SEL., .ARRAY_SEL, PM_SBES_SuM) = ZERO;
!Clear this array sum
return;

18:

LReSkVE4ONCE-ONLY CODE

za’!-’fl

SBTTL

CLRTBLS:
JSR

g&'mr. Ré&

LUN

LUN,

ARRAY
ARRAY
,*

032714
033314
033714

000017

go8 a2V

SOFTS(R2)
HARDS (R2)
TRIES(R2)

ARRAY
ARRAY
,=

2374

fig

G 2on
sy

)
o’

LUN
LUN,*

2
2381
2

5554

3s:

MR LE TRT

TII

sMLXG

INTERRUPT SERVICE ROUTINE

233
3R
02
A
NANG

SERVICE ML11

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

%
3

7
SEQ 0087

Srhar-t

ol cnd

N NSNS

RON SO
e
—

R2.LSLUN
RZ.R1
R
LOW.SECT(R1)

034460

19:33:6%

19:26:4

T0PS |

PA:<

isg‘:

LUN

; LUN,+
s LUN,*
; LUN,*

3%
2t

2407

::b\fl\fl
O

b e

L
Vi

rumd el
mch b

CLR

8957530 (sp)

#1,-(SPJ
(SP) ,=(SP)

:;I?r.gmes.(sn

* ?7#5,(9)

#,-(SP

WHY.DROPT (R2)
#16,5P

000177

+(LUN)

2409

LUN
LUN,*

3
2616

43
DROP1

DROPS
R2

11264
11266

: LUN,*

000016

cnfixvs.;rarus.(sp;

177770
000001

it RN

034444

000001

177770

I Inl¥al {-

034442

o
%

R1
R1,=(SP)

D
~EWn

145134

S3gRE

s moch e ol e o

US.HI LLIONS
R

147606

FERESN

md aod cd cnd wod

SO0

PRI

OO00O0COOODOOO0

OOQOOOOOO&OOOOOOO

RD.COUNT
RD. THOUSANDS
RD.MILLIONS
WC.COUNT
WC. THOUSANDS

. tggfl%lb

INDEX
INDEX,*

.LOG(R2)

e el

7
7
4

145156

b D b

NN
NN

MACRO M1113 29-MAR-82 13:41 PAGE ‘5
ONCE-ONLY CODE

NN NN

o wand

A ph ph th

ket

LNTNTNT
LS NN
N TNT NT N
eWY
ddfldddd-‘d-‘d
—h ad d wrd D caed e D
NERRUR2ESEIGHRER2EgsnyNRZEERNERRUNNS
VIS
WN 200 O%M&W-‘OS&

(=l
~~

RCISER

M77

.: INDEX

: INDEX,*

; UNIT.SEL

CZMLBBO PERFORMANCE EXERCISER

CLRTBLS ONCE-ONLY CODE

MACRO M1113

29-MAR-82 13:41

SEQ 0088

513 0351

8s:

MOV

172 03318
1;3 § 15

98:

ar
MoV

168 03514
2198 8 514
1
514

D2RR

ddddggd

1
1;8
1
1
181

1
1
1

1
51
g‘l
174
03517

012264
000017
000007

ASL
ASL
ASL

ADD
ASL
CLR

INC
CMP
BLE
INC
CMP

BLE

RTS

7=Mar=1

5 7=Mar=1

ONCE-ONLY CODE

R3.RO

sMLXé

R
R
R

A
RO,R1

Qe %o

164

}65

174
175
1;9

K 7
PAGE 86

R2.R1
R1
PM.SBE.CNT(R1)
R
RS.M17
9
R
R3.47

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

19:88:44

TOPS
PA:<

UNIT.SEL,*

2463

ARRA
. SEL
Y

548

ARRA
. SEL Y
,*

ARR.,AY
SEL
ARRA
. SEL Y
,*

2462

UNIT.SEL
UNIT.SEL,*

2460

2349
12 words

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE b?

CLRTBLS ONCE-ONLY CODE

194 sMLXS
]'95

ONCE-ONLY CODE

139 :

7 routine INIT_ADDRESSES (PLOC) : novalue =

13 :

begin

670

SEQ 0089

TOPS=20 Bliss=16 v2(212)
SiMar1983 19:38:42 pansyE0
Buisso1e
v2(212)

N 2

2;1

ROUTINE :

INIT_ADDRESSES(PLOC)

:
8

2;5

!
!

PURPOSE:

F-

473
476

THIS ROUTINE IS CALLED ONLY ONCE DURING THE INITIALIZATION
CODE, EVEN IF THERE IS MORE THAN ONE DRIVE PRESENT. THE

P\RPfiSES OF THE ROUTINE ARE:

3
3

4
2

!
:

(1)

TO OBTAIN HARDWARE P-TABLE INFORMATION FROM
MAIN MEMORY WHICH PERTAINS TO ALL DRIVES.

]'? s

“o e

(2)

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

1§ 13
;

23;

!
!

(3)

}g -

b
483

TO SET UP THE INTERRUPT SERVICE ROUTINE AT THE
CORRECT PRIORITY, AND LOWER THE CPU PRIORITY TO

19 3
}. 2

486
23;

'
:

19 ;

5689

221 ;

269N

220 :

§ s
:

4 ;

490

ALLOW INTERRUPTS TO OCCUR.
ARGUMENT:

local

TEMP,

249
249

2494

PRIORITY,
OFFSET;

- 3

2495

7 :
8 ;

249
2498

2‘99

g ¥
:

2499
500

s
-

:
2

501

5504
2505

2509

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

'THIS IS THE CODE FOR PURPOSE 1:

BASE_ADDR = .(.Pgoc + 0);
VEC = .(.PLOC + 2);

BR_LEVEL = .(.PLOC + 4);

PRIORITY = BR_LEVEL"S;

if .ECCDIS

then

TEMP = WRD37

'ECC IS DISABLED

TEMP = WRD36;

{ECC IS ENABLED (NORMAL OPERATION)

50
ggg

else

40 ;
41 ;

510
511

PRINTB (CRLF);
PRINTB (SAY5, WRD34,

4
4S :

514
515

if .REFRESH
then

47 ;
48 ;

51
518

else

;};

519

WRD40, WRD38,

.TEMP, WRD41):

'"RUNNING WITH ECC ENABLED/DISABLED AND'
TEMP = WRD36

!REFRESH MARGINING IS ENABLED

TEMP = WRD37;

!REFRESH MARGINING IS DISABLED (NORMAL OPERATION)

CZMLBBO PERFORMANCE EéERClSER
CLRTBLS ONCE-ONLY COD

SO ;MLX4
21 :

Sg 3

54 :

519

PRINTB (CRLF);

524
525
S 9
S

'+
iTHIS IS THE CODE FOR PURPOSE 2:

53 :
59 :
60 ;
61 ;

RarloR 1835

ONCE=ONLY CODE

5 g

n7
PAGE 88

SEQ 0090

PRINTB (SAY3,

521

;

29-MAR-82 13:41

520

55 :

s; :

MACRO M1113

WRD40,

PHR3,

.TEMP):

' 'WITH REFRESH MARGINING ENABLED/DISABLED'

6§ :

g 8

OFFSET = 0;

64 :
¥

S
531
ss;
53

incr COUNT from 0 to (NUM_REGS - 1) do
begin

:
7 :

68 ;
3
3
:

2534
2535
25;6
5?317;

3
:

2539
2540

ML_REG [.COUNT] = .gASE_ADDR + .OFFSET;
OFFSET = .OFFSET + 2;

end;

SETVEC (.VEC, SERVICE, .PRIORITY);

254

end;

86 035206

035206

004167

return;

In 1 »

92
93

035242

g 54

i
:
98
-

01
016746

012746

150102

175450

175460
175454

R1,$SAVES

WEE
2(R2J

#5,-(SP)

BIT

#1,ECCDIS

BEQ
MOV

1$
#IRD37,R1

MOV

MIRD36 . R1

MOV

#1,-(5P)

MoV
MoV
TRAP

PLOC,*

,VEC
4(R2) .BR.LEVEL
an.l.gvu.-(sn

MOV

144772

28:
1

JSR

MOV
MOV

18:

8 g

INIT.ADDRESSES ONCE-ONLY CODE

B
MOV

035

.SBTTL

INTT.ADDRESSES:

oy
oy i
5
016267 000002
5
035

In 2 »

SETPRI (PRI00):

2541
254

It 2«

'+
ITHIS IS THE CODE FOR PURPOSE 3:

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

*,PRIORITY

«, TEMP

#CRLF, (SP)
RO

SP,x

MACRO M1113 29-MAR-82 13:41 PAGE g9 7
sMLXS
-

007424

SEQ 0091

37Mar-1983 19:3%:42

ONCE=ONLY CODE
#WURD41,

(SP)

R1,=(SP)

7412

TEMP

TOPS
PA:<

251

7416
7344
7152
000006

SP,*

144674
1

*,TEMP

1
1
1
1
1
1
1

* TEMP

TEMP,«

SP,*

#CRLF , (SP)

#1,-(5P)
SP.R
14

58:
175236

00606
000025

SP,»

' gg.m

OFFSET
COUNT
COUNT
,=

R2,Ré

2 OFFSET,»

BASE . ADDR ,R&

.z,e.asc(m

*,0FFSET

COUNT

N25

COUNT,
*

2333
2530
2540

PRIORITY,x

et
000042

PC cal

103 words
depth per invocation:

2541

2467

22 words

| CZmLBBO PERFM
CEEXERClgg
INIT.ADDRESSE

§vovou\nuu\n\n\n
JSJFAN SR SRRy SFEISSERE0F

ALA TRLA TRTR TR TR TR TR TN T

e I N I I I R RLL L

ROUTINE:

SAYWHO (LUN)

PURPOSE:

TO PRINT OUT AN xnennmmou LINE WHICH mcwoss

LOGICAL UNIT:X

—
et

FERTE

DRIVE:
Y

SERIAL
#: 7212

BCD WILL BE PRINTED AS LONG AS THE DIGITS ARE ALL VALID.

local
D3,

00;

B2 = :3na:

D1 = _SN1:

DO = .SNO:

INTB (FMT4A, PHR?, .LUN mn. .DRIVE);
''LOGICAL UNIT:X ~ DRIVE:

:'fm(a(D3 gtr 9) or (.D2 gtr 9) or (.D1 gtr 9) or (.DO gtr 9))
PRINTB (FMT48,

197

USERIAL #: mizz'

MLSN)

mum (FMT4C, PHRS, .D3. .D2, .D1, .DO):

SERIAL #: DDDD'

return;

end;

147604
176642

.SBTTL

SAYWHO: JSR
MOV

ASR

ASR
ASR
ASR
JMLXG
:

ga2ee

TOPS-20 Bliss=16 V2(21 )

PA:<NEALE>MLX4.BLI.S

THE UNIT'S SERIAL NUMBER IN EITHER BCD OR OCTAL FORMAT.

m
wvivawvaiuaiaain

AR R R

O G

SO0

1A —""?:"’;”’-_‘"{1,4_»_'»‘»,4,»5 I,-»_Iq,l AN
b o cndd b

NS W= OO0

144

) o cmed wmd

7-Mar-1

Isbttl "DRIVE IDENTIFICATION aourms'
routg.n;'um (LUN) : novalue
=

XXX

SEQ 0092
57-fllr-1 98
53
142

DRIVE IDENTIFICATION ROUTINES

sMLXG

3363

MACRO MI113 29-MAR-82 13:41 PAGE 80

1277
17

1777
17

SWAB

SAYWHO
DRIVE IDENTIFICATION ROUTINES

R1,$SAVES
ML .REG+30,RS

l.lg

ag
R

:
: *.D3

: D

: D
: D
: D

)

DRIVE IDENTIFICATION ROUTINES

BIC

MOV
SWAB

BIC

MOVB

2177760, s

ML .REG+
Ré&

#177760.R%

@ML.REG+30.R1

sssfi

: D

7-Hor-1
7-Mar-1

:s:.::.z
9:23:46

TOPS
PA:<

:
D
: De

2565

: D

2566

: %D

2‘oq2oibg‘enRLRLNTYALAL‘e‘e‘e‘s‘e--LYetyCntatatatatg
,"¥nyx*gM,..8m‘‘MQ6SA&&tRS,L&é)SgmLs)&w.&'d.&‘g.&'s.S'hehm3I.E>sNME”sS”ees
2TAT T T2 R@

BIC
MOv8
BIC
MOV
ASL
MoV
MOV
MOV
MOV
MOV
MOV
MOV

MoV
TRAP

SMLXé

Routine Size

; Maximum stack depth per invocation:

DRIVE IDENTIFICATION ROUTINES

2581

R
o
=
"*
a04 "1R

routine CONFIG (LUN) : novalue =

g1TM

T Ll

aag

&
S5

f ExERClSER

Be e o- .=

2923

0[fa¥1aV¥)¢L—g"§”<g§--o3l°“5R.eB,A8"‘0o15-BB|~30B1e1PAeN1’ESORP(1=1’-1Bo%-~11-b|o~‘g|M--1*HAmAtomoTbmSSmAAIL~£m2~8RSLN»mWslt\.~8.L4<e.[M-oTS0teimo(s3~Ss4P
C
TIFICATION ROUTINES

MACRO M1113 29-MAR-82 13:41 PAGE 50-1

SEQ 0093

2567

2568

257N

2573

2571
2576

2545

NM 3=

—un

oPy oP

244

TOPS
PA:<

490

;

291 :

452 :

29,2 :
23; :
499 :

553? :

sgg

504 :

§31
534
595

sszgi-

% :

5 :

g’

:
:

(1)
(2)

(4)

600

5231

ARGUMENT:

2611
2612
2613
2614
2615

TO CHECK THAT THE DRIVE IS POWERED UP.
TO VERIFY THAT THE DRIVE IS AN ML11 UNIT.

TO_VERIFY THAT THE OPERATOR DEFINED TEST RANGES ARE

WITHIN THE CALCULATED SYSTEM SIZE.

TO PRINT DRIVE IDENTIFICATION INFORMATION.

LUN = THE LOGICAL UNIT NUMBER,

NUMBER OF DRIVES MINUS 1.

COUNTING FROM 0 TO

TOP;

:
UNIT = .DRIVE:
if .DPR neq 1

PRINTB (FMT4A, PHR?, .LUN, WRD11, .DRIVE):

619

1'LOGICAL UNIT: X

PRINTB (SAY2,

~ DRIVE: Yv°

WRD11, WRD21):

' DRIVE DROPPED’

PRINTB (FMT2,
17

(NOT

WHY DROPT

SES OF THIS ROUTINE ARE:

iTHIS IS THE CODE FOR PURPOSE 1:

5218

ABLE

TEMP.

2609

2610

CONFIG IS CA%%ED BY THE INITIALIZATION CODE FOR EACH DRIVE
PH_‘#CH SUCC%SE ULLY RESPONDS TO A REQUEST FOR ITS HARDWARE

PURPOSE

531 ;

CONFIG(LUN)

(3)

ROUTINE

SEQ 0094

v 1«

2606

515 :
16 ;
gw :
18 :
19 :

begin

gz;

10 :

1% :

506

587

geog

s1§ :

523

7;
g}‘l :

—

‘

[

§2

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

TINES

[.LUN]

pODD (.LUN);

CAUSE1):

nsmg uP)*

= CODE_1;

return;

iTHIS IS THE CODE FOR PURPOSE 2:

CZMLBBO PERFORMANCE EXE CISER

MACRO M1113 29-MAR-82 13:41 PAGE 51 8

SAYWHO DRIVE IDENTIFICATION ROUTINES

538
:MLX4
és.llx

SAYWHO (.LUN);

1'LOGICAL umf X

TYPE
= .MLDT;

DRIVE: Y

SERIAL #: 2222°

“Ynn (SAY2, WRD11, WRD21);
DROPPED'
mn‘aVE (FMT2
2);

b S

004
pop0
(.unf'
retur

end
else

D,-2;

begin

if «ARR_TYP eql 0
b;hn

In g4 »

tm = ‘l-

in § »

else
bogn

n § =

TYPE
= WRD7;
TOP = &;

;

end;

s S«

T T L TR TR IR TR

TOP_SECT [.LUN] = (.TOP)*(512)+(.S2) - 1;
if LIMIT
then
‘v

; THE OPERATOR HAS CHOSEN LIMITS:

begin

s 6 *

if .RANGE eql 0
then
'+

19:264:4

57—:\»-138 19:53:&

:'fm(‘(-TYPE neq ML11A) and (.TYPE neq ML118))

AT ATR TR PR T P T Y

7-Mar=1

DRIVE IDENTIFICATION ROUTINES

'TMIS IS THE CODE FOR PURPOSE 3:

ATETR T T L L

561

559

N R TR TR I ) AR LA TR TR T

T T T YR I )

a\h “WVOUIM
SISWiW
n
S
£§§§£‘*§

SEQ 0095

;THE BOARD NUMBER (0-15) IS CONTAINED IN °*ONLY®

TOPS~-20 Bliss=16 V2(215)
PA:<NEALE>MLX4.BLI.S

CZMLBBO PERFORMANCE
EXERCISER

MACRO M1113

SAYWHO DRIVE IDENTIFICATION ROUTINES

59 :MLX4

F_ 8
PAGE 92

29-MAR-82 13:41

SEQ 0096

595 :

DRIVE IDENTIFICATION ROUTINES

99 :

|' VER CINLBB CHANGED .TYPE TO .ARR_TYP

g’z :

;.'I il

begin

1-',' 3
3606

SLU

7-Mar=1982

iTHE

CHIPS

ARE

64K

610

LSECT = 2048+,0NLY;

1; :

end

511 :

;81
;

else

70.

ITHE CHIPS ARE 16K

518 :

706

)

y“ S

708

519 ;

2621

26ce

In 7 «

TSECT = LSECT + 2047;

515 ;

}g :

v 10 »

it JARR_TYP

::': ::
513
:
514 :

707

b;!

In § »

CT = 512«.0NLY;

709

rsecr = LLSECT + §11;

710

e 8«

;};

5636
t: :

714
715

if .TSECT lega
.TOP_SECT [.LUN]
then
i
e

else

2628

xi" :

2631

%633 -

719

718

719

Q :

2637

2635

2636

1:
:

‘e

2624 :

2629

19:24:4

Shmar-1088 19:34:42

end;

v 10 »

TOP_SECT C.LUNJ = .TSECT

NY'

PR m (SAY.

un WRD21);

'fi e

r?g‘?b

unr mn

TEST [LINLTS INCORRECTLY)"
E

.TOP_SEC [.LUND):
E Efis
svswén LIMIT OFT Yyyyyy®

: :'tm.‘tsscr lega .TSECT
.mwuSECT C.LUN] = .LSECT

mma (SAY2, WRD11, WRD21);
!*DRIVE Mz

TOPS~ 0 Bliss=1 6 V2(21 )
PA:
ALE>MLXG
.

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

CZMLBBO PERFORMANCE EXERCISER

SAYWHO DRIVE IDENTIFICATION ROUTINES

DRIVE IDENTIFICATION ROUTINES
2737

mnra (mz

7%
7%
7

mm (m

“Mar=1982

19:24:4

Si.n.r-wii 19:53:45
CAUSE3);

smgreb
resr unns INCORRECTLY) '

.TSECT);
10wsecrgoOFnxxxxix sxcsefisPHR14,
TOP
SECTOR
OF yYyyyy®
WHY
LUN
ODE_3;
oooo

74
764
745
74
74
748
;;.8

return.
end;

end;

In 6 =

‘e
;nus IS THE CODE FOR PURPOSE 4:

2751
7s§

PRINTB (FMTS, .TYPE,

755

selectone .TRT of

;g‘

1UML11=X

756

LOWEST,

HIGHEST):

SECTORS UNDER TEST: XXXXXX TO YYYYYY®

set

2759

TEMP = TRT00;

760
761
s;

£1 :
TEMP = TRTO1;

764

2l :

[3] :

765

TENP = TRT10;

768
;98

tes;

771

TEMP = TRT11;

77;5

PRINTB mm TEMP);
' 'TRANSFER RATE:uims/secao'
PRINTB (m
us;ADDR):

775

end;

508
778

SEQ 0097

CSR m&e

s 3 o

return;

Ol‘!d:

s 1 »
.SBTTL
CONFIG: JSR

MOV

CONFIG
DRIVE IDENTIFICATION aoumts
R1,$SAVE
:LUN,»

dsn

T0PS-20 l‘l

Fa <'¢M.

mSNumwmrmnmzo7mmBRESITS
‘s . -

mmm, Bas ed Sabsl= wootWO E ®
«- «e

29-MAR-82 13:41

b
4~

Y Y c=

NS m flm - g350

N Nose - e@ 2 4=L T TX 2 et-— BA
J4oV3aee8Si§s5yvav%e §PLT vas R "” aS8l-~ o~'~~w6No —ek"ri”ld“"-s a

. " mm

D8r2n3B5A3nR3»w.0nm3a2n0un0m3mn0=m002n03m0nm~mC0Ym0mmm0m9“0B-0wu0az0uDp90;i.f-l.=.fl.fl.flM.fmlu.f]«l.mfml.uflmwf.fwl.u5
AN- ONo2 OeR=0uM BB
C 1SER
H&RO M1113
1 ON ROUTINES

PAGE P

SEQ 0098

DRIVE IDENTIFICATION ROUTINES

@—-~«

S har-1983 19:34:42

00.

.WY.WT (R3)

.RO

TOPS
PA:<

2615

2618

S - &«

2620

2622

2624
2625

2615
2617

2633

2640

2642

M1113 29-MAR-82 13:41 PAGE ‘S .
JALXS
:

000002

034446

176054

2s:

48:

—
prt
=+ 13 S~

AUR2SBIE
>~

DONNNN

(T mads
&~

soned =
N\ ~

ach

& ==b

176014

JSU

MOVE

#2.WHY.DROPT(R3)

ADD
RTS
w
MOV
MOV
3R
MOV
MOV

216,5P
P
#2000,
ML .REG+24
0'1'.'“ R2
48
#MWRD7 ,R2
#4 R1

w
T
4
5

38:

MOV

333

166344

143574

002000

175732

:?"%sn

aml .REG+24
R
Rl
R1
R1

=
SWAB

LiE

DEC
MOV

R
R1.(RS)

CLRB
ASL
[

143600

#TOP,SECT,RS

MOV
ASR
ASR
ASR

SUAB
8IC

177740

000001

M. LINALTY

BNE
BIT
BEQ

#2000,

58:

ML .REG+24

LSECT
ECT

a.»

#3777,

MoV

ONLY,RO

MOV
MOV
ADD

LLSECT
SECT
#777,TSECT

SWAB
CLRB
ASL

TOP,

Y.RO

CLRS8
ASL
ASL
ASL

143532

«, TYPE
«, TOP

BIT

MOV
MOV

*,TYPE
«, TOP

R1
#177740 R

143564

143500

7-Mar~1
7-Mar-1

DRIVE IDENTIFICATION ROUTINES

TSECT

LSECT,»

-y&~ms4moM-O¥
577777 N

30 T T 2e8- d8LR S
.2rS “ota miaSS &3)[- §e. Ssst® miaSS Jh1ia =~

$
3
5
3
8
8
%
3
Tece—~®YoloaL*]s @L'Y taegeB4y[a=ta TN-b~L-TwFe=)DTSC-EEEs*WawLs)Weoasac.eekS

uid@odm3aegdysEadAmgLMEW-.3a)(H.RmsWen91«XS8'I»8.%9-1mi';w.ynOe\9uRS:8nS%OW5mP-»“wPem3a3§i-A«EAGoLB|la”_$-e“iF)U8wAEl~LSiNw%ES2oWE®DSaAE-murAANBo.9B-2sa5e-Sa«d1n>2aeRIw8NaN~5Ox-gBW&mI+ngdio“&bnw
20

S“o2nwnsmmmmoo

163474

Cad

78:

TRAP

MoV

Ni~ & K KR KR RNN ON KeRy&~—

EXERCISER

& 2

FICATION ROUTINES

MACRO M1113 29-MAR-82 13:41 PAGE $6 ’
sMLXG

SEQ 0100

DRIVE IDENTIFICATION ROUTINES

#PHR

S nar-1983 o 3514
TOPS
PA:<

R_MACRO M1113
ON ROUTINES

29-MAR-82 13:41

SEQ 0101
DRIVE IDENTIFICATION ROUTINES

g
pe'y

034460

108:

#34,5P

11$:

(RS), (SP)

#177774
1

010444
128:

13s:

173536
7770

gbezs2
000030

158:

2755

+5AT00.80

2759
2755

13§

#TRTO1,RO

2762
2755

158
R1,#2

0.0
1y
}g
m RO
RO ‘i"

2765
2755
2768
am

#FEATS, - (SP)
.~(8P)
1

BASE
. ADDR, (SP)

2773

#PHRG , -(
- (SP)

#FMT4B,-(SP)

2581

006466
000002

148:

)

o
—b
il i

ooo

-l

aml

NITRSRIRISREFNY

010450

£38333333233333%3Ry38qsaE"

177774

010454

TOPS
PA:<

730

dg
§§d

3
#.assoza.m

000003

19:%

19:24:42

u..-((’§n

175324

1 ; 000001
1 0 010446
3 000002

7-Mar-19
7-Mar=19

Lgu.secmo ,~(SP)
R -;sn
#FMTS, = (SP)

—d cd

b e cod ad

m&.&

sMLXé
000034

PAGE 97

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

20 words

MCIS!O M1113 29-MAR-82 13:41 PAGE sl 8

CZMLBBO PERFORMANCE EXE?fISER

CONFIG DRIVE IDENTIFICATION ROUTINE

7 :MLXG

7-Mar=1982

DRIVE IDENTIFICATION ROUTINES

779

routine DECODE (SECT)

begin

781

4 :

7 i

1+4

ROUTINE:

785

PURPOSE:

;

7 :

§m

gl‘.g

2773§ :

ggzg :

279

2795

sgg :

ro INTERPRET THE FIELDS or me FAILING SECTOR

5949 :
2950

5798
2799

2951 :

ggg;

2954 :
2955 :

2803
2804

SECT = FAILING SECTOR NUMBER
(1)

BANK = WHICM ROW OF CHIPS (0=4)

(2) BOARD= WHICH ARRAY MODULE (0-15)
'THE CHIPS ARE 64K

uflx== .SECT<9
.secr<hz>

2800

gg; :

RESULTS:

FOR BOTH 16K AND 6’.

then

2797

else

!THE CHIPS ARE 16K

= ,SECT<? z>
BOARD = .SECT<9,&

2956 ;

2805

9 :

: VER CZMLBB ADDED LOADING OF BIT_NUM TO ROUTINE

2810

2961 :

2962 :

2811

%; :

2812

end;

BIT_NUM = .CHAN;

!SAVE THE FAILING CHIP NUMBER

return;

end;

.SBTTL DECODE DRIVE IDENTIFICATION ROUTINES
%?; 8§7176 %%g; 000001 175170 DECODE: gg
oi.u.moSe
:
g;g 3% 016600 000002
zgx
zcsm RO
: SECT,*

§3

oog

13 04
01

127774

175116

01 0 000002

2981 3 34 006200

T0PS=20 Bliss~16 vzm )

PA: NEALESMLXS.BLIS

: novalue =

ff MLDT

2796

19:24:4

sr-n.r-wfi 19:53:4

DECODE (SECT)

;53 : ARGUMENT:

249’21

SEQ 0102

WAB

BIC

MOV

:gx

ASR

: 77771. RO

z«imRO

: SECT,»

2795

2798
2799

?'A‘Elsio M1113 29-MAR-82 13:41 PAGE M99 .
sMLXG

18:

SEQ 0103

DRIVE IDENTIFICATION ROUTINES

'38{

-1

?.:-1

(SP) ,RO

: SECT,*

MOV

2¢§p> no

: SECT,»

Rov

:0755286“
aM( .REG+42,

53
144

pflf‘:'
2803

SWAB
e

?323

MOV
ASR
ASR
ASR
ASR
BIC
MOV
RTS

R
R
R
R
-

77oo RO
RO,BIT.
PC

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

0 words

)

2804

2810

;

2779

ERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 100‘
N

FORMANCE EX
DECODE DRIVE IDENTIFICA
T1 1
TION ROUTINES

}7 glul.

19:24:4

57—Hor-19ss 19:53:6

TOPS-20 Bliss=1

PA:<NEALE>MLXG.

v2(212)
1.5 (°0)

routine ISOLATE : novalue =

begin

ROUTINE:

PURPOSE :

0O NS
NN =

—

T
I
:

7=Mar=1982

DRIVE IDENTIFICATION ROUTINES
13

SEQ@ 0104

ISOLATE
UPON THE DETECTION OF A DATA ERROR (EITHER RECOVERABLE OR

NOT) TO EXAMINE THE SECTOR ADDRESS CONTAINED IN THE
ECC
ERROR LOCATION REGISTER AND P{NPOINT THE LOCATION OF THE
smiibrE SECTOR, BOARD (0-15) AND BANK (0-3) WILL BE

DECODE (.MLEL);

- if .ERROUT then PRINTB (FMT10A, WRD20, WRD15, .MLEL, .BOARD. «BANK);

!*FAILED:

return.

SECTOR XXXXXX

BOARD YY

BANK 2°

end;

2SBTTL

175054

7. 177

ISOLATE :MOV

JSR

142710

BIT

1747

175

000016

18:

ISOLATE DRIVE IDENTIFICATION aounues

aML .REG+44
,~(SP)

#1.ERROUT

BEQ
MOV
MOV
MOV
MOV
MOV
MOV
MOV

1s’
BANK, = (SP)
BOARD, - (SP)
ML .REG+44 , = (SP)
MIRD1S, - (SP)
#WRD20 .~ (SP)
#FMTI0A, ~(SP)
#6,~(SP)

ADD

#16,5P

RTS

: Routine Size:

2826

PC,DECODE

;

(SPJ+

28 words

: Maximum stack depth per invocation:

:
8 words

2813

MLBBO PE RFORMANCE EXERCISER
MACRO M1113
SOLATE DRIVE IDENTIFICATION RCUTINES

]

SMLXG

29-MAR-82 13:41 PAGE ?01

DRIVE IDENTIFICATION ROUTINES

SEQ 0105

7=Mar-1982

routine UP_HARD_COUNT (LUN, ARRAY) : novalue =

57-!!"-19 19:53:44
19:24:

Bliss=16 v2(212)
PA:<NEALE>M
LX4.BLI.5 (11)
TOPS~20

begin

l+4

ROUTINE :

PURPOSE:

UP_HARD _COUNT (LUN,ARRAY)

TO INCREMENT THE HARD ERROR COUNT FOR THE GIVEN

ARRAY,

AND TO SEE IF THE HARD ERROR THRESHOLD HAS

LUN

= LOGICAL UNIT WHICH HAS THE HARD ERROR

BEEN REACHED.

ARGUMENTS:

ARRAY = THE BOARD NUMBER (0-15)

Llocal
SBE_EXIST;

! VER CZMLBB ADDED THIS LOCAL STORAGE
!Indicates if the searched sbe already exists

i VER CZMLBB ADDED FOLLOWING CODE TO LOG SBE'S
First search the sbe log
table and see if
this single bit error a r;ady exists in
the table.
If it does exist then just
increment its occurance count, else
:g?rd its failing location into the
e.

Only log away 128 single bit errors.
s
't

1"
11

”%

115

:;.;‘S&S_CMT lss 127

!Have 128 errors been logged yet

ain

!There is room for at least one more sbe

EXIST = FALSE;

!Init

e
! Search the single bit error 1

! and see if th'i'g error alrudyogx able
st.

incr index from 0 to .SBES COUNT do

if (.SBE_LOG [.index, BITS_SBE]

1;3
1

1
4

the existance flag to false

begin

eql .BIT NUM) and

(.SBE_LOG [.index, M!_SE}.gql .BARK) and

(.SBE_LOG
tmfl(.S&,l.()G

‘Does this bit exist

!Does this bank exist

[.index, BRDS_SBE] eql .BOARD) and
!Does this board exist
.index, UNITS_SBE] eql .LUN) 'Does this unit exist

!This

already exist so just
its occurance count
888106 [.index, SUMS_SBE] = S8 Log B nden:
2aime 138750 Just w

SBEEXIST = TRUE;

'Indicate that this sbe already exist

ZMLBBO PERFORMANCE EXERCISER
MACRO M1113
SOLATE DRIVE IDENTIFICATION ROUTINES

128 ;MLX4

131 ;

143

;

900

g}g ;

290§

}1
és

5383

160 ;
161 ;

2914
15

}gg :

166 :

12; s
3163
;

167 ;

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.

)

:;.not .SBE_EXIST
begin

I:H.SBE_CNT C.LUN, .BOARD, PM_SBES_S

bom

2910
11
1;
1

16
17

! This sbe was not found in the table so
! load this failing sbe into the table
: at the bottom of the list.

170

SBE_LOG

SBE_LOG
SBE_LOG

]

SBE_LOG

79 :

1 !

1;3 3

[.SBES_COUNT, BNKS_SBE]
[.SBES_COUNT, BRDSSBE]

[.SBES_COUNT, UNITS

[.SBES_COUNT,

SumMS_SBEJ

end;

= .BIT NUM; 'Load the failing

bit

= .BANR;

'Load the mufi’g bank

J = .LUN;

{Load

= .BOARD;

= 1;

iLoad the failing board
the failing unit

!Indicate this is the first one

!Up the count of unique sbe's detected

! VER COMMENTED OUT THIS CODE

15 ::

181

[.SBES_COUNT, BITS_SBE)

%!.CMT = .SBES_COUNT +°1;

174 :

;;S 3

!The Llimit was exceeded

SA
(.LUN);
PRINTB (FMT13, .ARRAY, MSG2);
.
TYARRAY XX ==> RUN ML11 PROM MAINTENANCE PROGRAM'
end;

}g :

+1;

Hfl.‘m_sas-cm C.LUN, .BOARD, PM_SBES_SUM] eql 10 'Is the limit exceeded

168 ;
171 ;

= .PM_SBE_CNT [.LUN, .BOARD, PM_SBES_

: run on this array module.

SBE_LOG

;

m!st was not found in the table so up thesm]comt

i Now see if the Prom Maint Program needs to be

138 3

!Was this sbe found in the table

2902

155 :

156 :
157 :
158 ;
159 :

end;

2149 :
S}g? :

!
!
!
:

897

3146 ;

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

i Test to see if this sbe was already in she table

g
89.
894
%

7=-Mar=-1
19:24:4
574!»-13
:5 19:53:‘

exitloop;

g}lzg F;

SEQ 0106

end; -

133
;
134
;
} - ¥

138
;
139 ;
140 ;
;}% :

9
c
PAGE 102

DRIVE IDENTIFICATION ROUTINES

1 § :

137 :

29-MAR-82 13:41

: REPLACED BY ABOVE CODE

1) and (.HARDS [.LUN, .ARRAY, 0, 16, 0] eql H64K_LIMIT)) or ((.ARR_TYP
-HARDS t.l.wfqeql .mv.
0, 16, 3] eql ma:_unlnb
.
- eql 0) and (

if ((C.ARR_TYP

:
E

PERF ORMANC E EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE %39

sMLXé

WRSSSeY

!
i
i

then

9588FR
34&

OO000O00OOOOOO0O

19:24:4

Srmar-1983 19:35:4

T0PS=20 Bliss=16 v2(2 2)

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

(.LUN);
PRINTB (FNT13. .ARRAY, MSG2);

SEa 0107

7=Mar=1982

DRIVE IDENTIFICATION ROUTINES
mv XX

==>"RUN

ML11 PROM MAINTENANCE PROGRAM'

peturn;

— e

b ok ekt o

S88R%S2S

h md

—b

~NOWA

TE DRIVE IDEN T 1 Fl CATION ROUTINES

“57‘2’3
0000,

.SBTTL
D:
. COUNT
UP.HAR

JSR
MOV

RS.RO
R

ASL
MOV

R
RO,R2

g{
INC

153200 000177

cMp
BLT

18:

2s:
011264

153146

R1,$SAVE
zgisp).n

MOV
ASL
ASL
ASL

000016
033314

UP.HARD.COUNT DRIVE IDENTIFICATION ROUTINES

;Stsn.az
HARDS (R2)

gss.coum.m?

:
: LUN,*

583

: ARRAY,*
:

2864

RTS

&lifl

: INDEX

MOV

R1.R2

2867
2874

; INDEX,*

2877

MOV

:gae LOG,R3

2878

CLR

; SBE.EXIST

NOB

MOV
ASR
ASR
ASR
ASR

177600

BIC

174572

MOV

MOVB

m“i. (SP)
(R3) ,-(SP
(SP)
(SP)
(SP)
(SP)

o?moo (SP)
gfi)o.dp»

,=(SP)

(R3).-(SP)

1 IDENTIFICATIN ROUTINES

- so‘

29-MAR-82 13:

9
SEQ 0108

2e%SonMgwesR~oNTonoRw.u0.n 0Ttnlcn.- s E£.
< ~¥&N %+~ -5 5&—~ ~ a3*o~o~

CE EXERCISER = MACRO M1113

7 har—1983 19:3%:42

TOPS
PA:<

.v?«fu.:v.:f-.v’:vt%.v.=o ::v.:v.:v.:- g 2N

R -8 R £ 3

Po~ e

TT syPrt L O& Y T-Ts3tU[PB-

vmIt [8mE-Ye)2mI“* wNe®-+m“

ey S [ g 3 m = 2 vy

174454

TLYTTRT Ty ‘e

byP 3

SBE.EXIST

282

&fifi%ommn

ESOCERETo

-CNT(
CNT(

2880

g
5

2874

2898

2901

25).n2
)

2907
0

s ARRAY,x

‘e

9
§. COUNTR2

=L
] wv [

2879

SP,x

2909
2921

EXERCISE R
MACRO M1113
IDENTI FICATI ON ROUTINES

29-MAR-82 13:41

sMLX6
(T ot
e o

78:

DRIVE IDENTIFICATION ROUTINES

o bers B

PAGE 105

SEQ@ 0109

o LSemsszsenmssa Dflflgflflfl
ggfi (7 laly)

CZMLBBO PERFORMANCE
UP.HARD.COUNT DRIVE

#160077 R4

:42
§ har-1983 19:24
19:23:44

TOPS
PA:<

”
(R1)
Ré, (R1)

SS90
ne

2922

t-)

, R4
BOARD

2923

Ré
Ré
#177703 R4

#76, (RS
Ré, (R1)

)
#1,SBE..L0G*+2(R2)

;EtiffoUNt

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

10 words

PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE ?oe

COUNT DRIVE IDENTIFICATION ROUTINES

sMLXG
o

;

7-Mar=1982

DRIVE IDENTIFICATION ROUTINES

SEQ 0110

19:24:4

Smm-wss 19:53:42

routine UP_SOFT_COUNT (LUN, ARRAY)

begin

TOPS=20 Bliss=16 v2(212)

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

: novalue =

Ca Cad

I
4

]

[}

ROUTINE :

UP_SOFT_COUNT (LUN,ARRAY)

i
i

PURPOSE:

TO INCREMENT THE SOFT ERROR COUNT FOR THE GIVEN
ARRAY, AND TO SEE IF THE SOFT ERROR THRESHOLD HAS

ARGUMENTS:

]

:
:

BEEN REACHED.

LUN

= LOGICAL UNIT WHICH "‘§ THE SOFT ERROR

ARRAY = THE BOARD NUMBER (0-15)

local

! VER CZMLBB ADD THIS LOCAL STORAGE

SBE_EXIST;

!Flag to indicace if sbe already exists

i VER CZMLBB ADDED FOLLOWING CODE TO LOG SBE'S
First search %he 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
tt-:g?rd its failing location into the
e.

Only log away 128 single bit errors.

: 'fm.‘SBES_CMT lss 127

!Have 128 errors been logged yet

min
JEXIST = FALSE;

!There is room for at least one more sbe
!Init the existence flage to false

! Search the single bit error log table
! and see if this error already exist.

i m:rm
index
hx from 0 to .SBES_C
OUNT do
. COUN
if (.SBE Lffi [.index, BITS SBE) eql .BIT NUM) and

(.SBE_LOG

[.index, BNKS_SBE]

(.SBE_LOG
(.SBE_LOG
ggitos

eql .BARK) and

!Does this bit exist

!Does this bank exist

[.index, BRDS SBE] eql .BOARD) and
!Does this board exist
[.index, UNITS_SBE] eql .LUN) 'Does this unit exist

SBECEXIST = TRUE;

s8E)

saét{nis

bgn:g;ndfi oxgg:’sg 1ust up its occurance count
.
I
N

!!ngfcato that this sbe already exist

;

‘

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113

UP .HARD.COUNT DRIVE IDENTIFICATION ROUTINES

sMLXG

29-MAR-82 13:41

9
SEQ 0111

57-mr-198 19:54:4i

DRIVE IDENTIFICATION ROUTINES

PAGE 107

7=-Mar-1982

19:23:4

TOPS~-20 Bliss=16 v2(212)

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

exitloop;

end; end;
I

! Test to see if this sbe was already in the table

! by testing the flag sbe_exist.
! enter this SBE into the table.

If it did not exist then

i NOTE:

!
;

Soft errors are not counted toward the Prom Maintenance
call out.

;'f' not .SBE_EXIST

NOWNS
LN =

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

SRR

SBE_LOG
SBE_LOG
SBE_LOG
SBE_LOG
SBE_LOG

[.SBES_COUNT,
[.SBES_COUNT,
[.SBES_COUNT,
[.SBES_COUNT,
[.SBES C%NT

BITS_SBE] = .BIT NUM;
BNKS_SBE] = .BANR;
BRDS SBE] = .BOARD:
UNITS sas] = LUN;
Sums_SBE] = 1;

es'ae'dg_cmm = ,SBES_COUNT +°1;

'Load the
!Load the
ilLoad the
!Load the
!Indicate

failing bit
failing bank
failing board
failing unit
this is the first one

!Up the count of unique sbe's detected

end;
tmitmimimia-tmoimimimomt
=t

19
1
13
1

begin

16
17
18
%8

KR LRSS ISRRURNLSS
VR

10
1
1;
}‘

!Was this sbe found in the table

VER CZMLBB THIS CODE WAS COMMENTED OUT AND REPLACED BY THE
ABOVE CODE.

if ((C.ARR TYP eql 1) and (.SOFTS [.LUN, .ARRAY,

m'.‘sons [.LUN, .ARRAY, 0, 16, 01 eql S16k_LIMIT)S)

16, 0] eql S64K_LIMIT)) or ((.ARR_TYP eql 0) and (

g:'mo (.LUN);
in

PRINTB (FMT13, .ARRAY, MSG2);

:"‘dmv XX

return;

end;

==> RUN ML11 PROM MAINTENANCE PROGRAM'

ISER = MACRO M1113 29-MAR-82 13:41 PAGE {08

CZMLBBO PERFORMANCE EXERC
UP.HARD.COUNT DRIVE IDENT IFICATION ROUTINES

.SBTTL
lP.SOFT.SMT:

zgtsr).n

;8(8?) .RO

? 5

SOFTS(RO)

74
7 04C

152466

g N(

;;

;;
;:'

176112

481

177774

SYRKRE8eE

1489

174072

177760

2976
SBE.EXIST
INDEX
INDEX, *

oot

011264

ARRAY
,*

;; :;

32352553384 e bEAdAdadL

04(

.’i?f.i?

[

469

LUN,*

000016

TOPS
PA:<

R1,$SAVE
RS.RO

714

19:24:42
19:23:44

UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES

8461

27-Mar=1
<7-Mar-1

DRIVE IDENTIFICATION ROUTINES

§ &

H, & )

SEQ 0112

of577ao (SP)
(SP)

(SP)+,(§P)+

RS,=(SP)

(R2) ,=(SP)

2992

RFORMANCE EXERCISER

MACRO M1113

OUNT DRIVE IDENTIFICATION ROUTINES

29-MAR-82 13:41

716

}

ROL
ROL
ROL
ROL

177770

BIC

CMP

011266

000001

48:
006301
D
.

011264
152312

173742
§7o4 177776
198410

016706

(SP)
(SP)
(SP)
(SP)

#177770, (SP)

(SP)+, (SP)+

zsge 06+2(R4)

2995
29929967

INC

* INDEX

2986

ROR

RO.R1

; SBE.EXIST

ASL
MOV
ADD
MOV

R1
#SBE
. L0G,RO
R1,R0
alf.nm.m.

RGR
ROR

RG
R4

gfi'

e
8IC
BISB

o
ugx Ré
o; 7074 R4
A4 (RO)

BOARD , R4

177703

8IC

#177703,R%

%fi’

N
#74,(ROS

ROR

gg.im

BIC

#17777.R5

MOV

seti% 0?

1600061 011266

?29‘1’92

’

#160077..R4

MOV

g
BICB

: INDEX,

R
Ré

173722

17777

BIE #1.SBE.
£160000.(n0>
LOG+2(R1)

58:

TOPS

PA:<

: *,SBE.EXIST

MOV

oooo94.

19:24:4

7-n.5~1333 19:53:4‘2’

n.fa!!

BIC

16706

7=-Mar-1

DRIVE IDENTIFICATION ROUTINES

,"2"

SWAB
RORB

160977

9
SEQ 0113

JMLXG

116
116
116
116

PAGE 109

INC

RTS

;

3024

‘

3025

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

;

:
8 words

383‘7'

2945

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
UP.SOFT.COUNT DRIVE IDENTIFICATION ROUTINES

563 :MLXG

22'5’ :

569 :

...ol'.c.o.o.a.c.ol......n.c.-.n.-...o.o.ot..o.o....!o.o.o.o.....n...o.o.o.o.o..ioic IALATELE TR PR PR T TR T

569 :
ggu :
:

g;? :

572

29-MAR-82 13:41

K 9
PAGE 110
SEQ 0114

7-Mar-1982

INITIALIZATION CODE

Sr-n.r-mg 19:53:1.

Zsbttl *INITIALIZATION CODE'
BGNINIT;

WHEN POWER DOWN/POWER

HAS OCCURRED, OR WHEN THE
oremoa HAS ISSUED A START, UPRESTART
OR couhnue COMMAND .

ouums INITIALIZATION,

;s;g :

nmea Locmou ('Lsum

58
59

INTO THREE CATEGORIES:
1) ONCE-ONLY CODE WHICH IS EXECUTED

sag

?33

591

;g
}g

19
1

ONLY ON THE VERY FIRST PASS (I.E.,
WHEN THE MTW HAS JusT TYPED

306,

3066

3067

;869 local
70
3071

3072
3073

THE 'GPHARD® MACRO IS USED TO GET

THE CODE WITHIN THE INITIALIZATION SECTION IS DIVIDED

578
579

mnmzmou CODE IS EXECUTED AT THE sesmm«; OF EACH

577

19:24:4

IN THE *START'

CODE WHICH suou.o NOT BE exscurso

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

PLOC;

if ((READEF (EF_START)) or (READEF (EF_RESTART)))
then
'mss IS CATEGORY 1 CODE
borin
Qulck = 1;

CLRTBLS (};
incr LUN from 0 to (.LSUNIT = 1) do
in
LSLUN = .LUN;

'n 3«

if GPHARD (.LUN, PLOC) neq 0

then

in
TABLE_ADDR [.LUN] = .PLOC;

e 4

if .NUM_DRIVES eql O then INIT_ADDRESSES (.PLOC);
NUM_DRIVES =

mve‘swust
LUR]

IVES + 1;

= ACTIVE:

mve_smus C.LUN] = INACTIVE;

end;

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (13)

MACRO M1113 29-MAR-82 13:41 PAGE 511 9

CZMLBBO PERF ORMANCE EXERCISER
UP.SOFT.COUNT DRIVE IDENTIFI CATION ROUTINES

19 in.xl.

7=Mr=1982

INITIALIZATION CODE

end

TRT TR 1Y

19:24:42

57-»»1935 19:53:“
In 2 «

else
QUICK = 0;

iTHIS 1S CATEGORY 2 CODE

LA LR

!CATEGORY 3 CODE WOULD GO HERE, BUT THERE IS NONE.

ENDINIT;

R
®R22
2R 333RARAARAA
80 OOg
PRSAE
BN

SIS

PEEEE
FUR
1

SEQ 0115

144614

ooo&o

LINIT:

mogz
141254

540
542

141326

172146 18:

3656
040566
%57 040570
58 0640572
59 040574
3660
04057

MOV

c;?.no

MOV

JSR
MOV

034442

MOV

TRAP

034422
173650
174370

173632

177770

000001

7 digeie 010516 143746

38:

#1,QuIcK

MOV
MOV
JSR

MOV

: LUN,*

R
R
R
#DRI
. STATUS
VE
,R2

R%.RO

s LUN,*

R1,PTABL
. ADDR(R0E)
vsoifi.mves
R1,=(SP)

mov
BIC

: LUN,*

MOV
Ls‘g
MOV
INC

: LUN

LLSLUN

RO.R1
4

JSR
ST

:
:

MOV
BEQ
250{

;

PC.CLRTBLS
Lgum.al.

MOV

ASR
ASR
ASR
ADD

040

gggz 040564

#40,R0
47

g‘;‘n

28:

LINIT INITIALIZATION CODE
R1,$SAVEL

MOV

TRAP
BCS

000037
000001

.SBTTL
JSR

: *,PLOC

PC, INIT.ADDRESSES
(SP)+

.DRIVES

RS-(3P)

# hfio (SP)

#1,-(SPS
(SP) ,=(SP)

PS.BLSPUZ

R3,(SP)

: LUN,*

: PLOC,*
:
: PLOC,*

S LUN,#
: LUN,*

TOPS=20 Bliss=16 v2(212)

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

MLBBO PER FORMANCE EXERCISER
T INITIALIZATION CODE

MACRO M1113

29-MAR-82 13:41

SEQ 0116

sMLXG

040650

767 175126
ol.ggga
1
} st
Bosie
16
177770
1 ;:g 000001
7

%1 0407
820720

143714

000010

gg 171754
7

BIC

a:x
JSR

sf
e
#177770, (SP)
ok;;sri
#10,sP

68:

CMP
BLT

R3,R4
s

.
RTS

104411

000207

177546

.SBTTL

LSINIT: :JSR

TRAP

RTS

: Routine Size:

;

TOPS

PA:<

3082
3079

: LUN

: LUN,»

3078

3‘:’

:
:

i?é%
5

3100

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

075 ogzm

:
e
’
‘

PC,BLSPU2

ADD
INC

Sr-mr-mz 19:23:44

PC,CONF1G

58:

7-Mar=-1982 19:24:42

INITIALIZATION CODE
JSR

LR
PAGE 112

9 words

LSINIT INITIALIZATION CODE

PC,LINIT

PC
& words

s Maximum stack depth per invocation:

0 words

CZMLBBO PERFORMANCE

LSINIT INITIALIZATI

: novalue =

b D ed

7-Mar-1982

(SECTOR, COMP_FLAG)

begin

BNR
AR NS 3%~NO VSN
= O

cd e
D e

TO GENERATE THE ENTIRE 4K=-WORD HITE 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
SECTOR ADDRESS WHERE THE WORDS WILL BE TRANSFERRED.
ARGUMENTS:

b s srd od amndb

b e

p—y

N N A N N N N N N NN

b —d cnd e

ol e

PURPOSE :

SECTOR

(2)

COMP_FLAG = AN INDPICATOR WHICH IS USED TO DECIDE

= CURRENT SECTOR NUMBER.

WHETHER THE LOCATION IN THE WRITE BUFFER
SHOULD BE COMPLEMENTED.

OFFSET;

OFFSET = 0;

if .COMP_FLAG

then

—

!GENERATE COMPLEMENT DATA

incrg'sgfl from (.SECTOR) to ((.SECTOR) + 15) do

SR!AK:

VWRUREESRIGLRAR ISRk

(1)

local

nB cod

v 1

GEN1(SECTOR,COMP_FLAG)

b e

e cnd

incru COUNT from 1 to 256 do
in
e 2A »
(
F + (.OFFSET)) = not (.SECT);
COMPLEMENT DATA
OFFSET = .OFFSET + 2;
.
:

end;

oo
) ) o

TOPS=20 Bliss=16 v2(212)

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

ROUTINE :

~end

'n 2A =

else

!GENERATE REGULAR DATA

incru SECT from (.SECTOR) to ((.SECTOR) + 15) do
n

AK:

incru c%m from 1 to 256 do
(
F + (.OFFSET)) = (.SECT);
OFFSET = .OFFSET + 2;

cord e

el o) ol cad ool med) ok

19:24:4

)

NN NNLA

]

PAGE 113

57-"01'-1933 19:53:6

lsbtfl 'GENERATOR FOR OPTION 1°'

routine GEN1

end;

o
o

......................0.....!.0..u....l..o.-..'.lo!.i..o‘.lo'..o.nlo!o....to..Qoi.o......o.....o.-.o.-..

&§§SSSQSG$

29-MAR-82 13:41

GENERATOR FOR OPTION 1

'so:

SRGRIBIEISRE

MACRO M1113

SEQ 0117

723 :MLX4

)

XE&ESER

end;

In a't

'REGULAR DATA

'n 2B

MLBBO PERFORMANCE EXERCISER
INIT INITIALIZATION CODE

D :MLXG

80 :
3
D
3

040744
7

809
!

!
'

8
:
:

:
818
819

041

000400

1016

1
1

1030
103¢

103¢
041042
04104¢

',,-

822

04105¢

‘

106

000014

106¢

1064

c;m GENERATOR FOR OPTION 1

CLR

TOPS=20 Bliss=16 v2(212)

PA: <NEALE>MLXS.BLI.S (14)

MoV
ADD

R1,Ré
217 R4

2s:

R1, SSAVES

58:

16(SP) ,R1

: SECTOR,+

#,74(sP)

: *,COMP.FLAG

3128

MOV

R1.73

: *,SECT

3131

nrw
MOV

?
us.m

: SECT,»

MOV

#1.R0

; *,COUNT

MOV

m.\gurr(uz)

68:

: «,«(OFFSET)

131

1
1§

3135

#4600

: COUNT,*

INC
cwP

: SECT
: SECT,»

3131

128

BLOS

TRAP
MOV

2
#1,RO0

1 .-

R 400

: SECT,~(OFFSET)
: *,OFFSET
: COUNT

: COUNT,»

; SECT

3145

3105

m.i,m(nz)
#2R

%s
INC

BLOS

RTS

: Routine Size:

:
: *,COUNT

146
guo
151
3152
1%

MoV
D
INC

000400

3105

;1;6

BLOS

48:

;

* OFFSET

coM

3s:

1026

‘

.SBTTL

JSR

MOV

806

GEN1:

000016
388837

19:24:4

19:53:4%

v 1 »

;
8

7-Mar-1982

Sr-m-t

end;

144356

9%
:

SEQ 0118

return;

3156

PAGE 114

GENERATOR FOR OPTION 1
1
1

MACRO M1113 29-MAR-82 13:41

R1.R%

: SECT,*

46 words

; Maximum stack depth per invocation:

5 words

PERF 3 ORMANCE ElElleEl
GENERATOR FOR OPTION

‘mLXG
s
:
:

29-MAR-82 13:41

10
PAGE 115

SEQ 0119

7=Mar-1982

PATTERN NUMBER SELECTION
159
160
}61

MACRO M1113

19:264:42

57-»:--1935 19:53:“

Zsbttl °"PATTERN NUMBER SELECTION'
routine SELPAT : novalue =
begin

}gg

18 :o4ROUTINE :

SELPAT

;
;

}69 : PURPOSE :
1
i

TO SELECT THE NEXT PATTERN NUMBER IN OPTION 2.
THIS ROUTINE AUTOMATICALLY COMPLEMENTS THE CURRENT

:
:

1
170

!
!

PATTERN NUMBER AND EXAMINES THE SIGN OF THE RESULT.
IF _THE RESULT IS NEGATIVE, THEN IT IS TAKEN TO BE

s
3
s
s

1;;
1
176
175

!
!
!
!

'RETURN® IS EXECUTED. IF, HOWEVER, THE RESULT IS
POSITIVE, THEN AN ENTIRELY NEW PATfERN NUMBER IS
REQUIRED. THE NEW PATTERN NUMBER IS OBTAINED BY
INCREMENTING THE OLD.

};g

}8?

171

1§§

5467

107
1
1"

i‘ ;

5787
7

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (15)

THE PATTERN NUMBER OF A CMERNT PATTERN AND A

PATTERN = =(.PATTERN);

if .PATTERN geq O then PATTERN = .PATTERN + 1;

return;

end;

.SBTTL

SELPAT PATTERN NUMBER SELECTION

171604

SELPAT: NEG

PATTERN

171572

BLT
INC
RTS

1$
PATTERN
PC

171600

TST

18:

PATTERN

Routine Size: 8 words
Maximum stack depth per invocation:

0 words

3178

3160

3180

CZMLBBO PERFORMANCE EXERCISER

SELPAT PATTERN NUMBER SELECTION

B8S :MLX4

3886 :
888

;

3889
890

1 1

3895

3897

D10
PAGE 116
SEQ 0120

7-Mar-19

USING THE PATTERN TABLE

424

-u.r-wii 53:4.

m‘

1ee

ROUTINE:

GETCNTS(PATTERN)

i PURPOSE:

TO POINT TO THE APPROPRIATE BLOCK OF THE PATTERN

I“ :

PATTERN GENERATOR FOR OPTIONS 2 AND 4.

; ARGUMENT:

901 :
902 :
903

;

i
i

PATTERN = THE CURRENT PATTERN NUMBER.

905

906

(2)

908 :

(3)

910 ;

3896 :

(1)

°VALUE' RECEIVES THE VALUE WHICH IS RETURNED FOR
THE SUBROUTINE. IT IS THE 4=BIT BINARY AMOUNT WHICH

g{lr.k BE USED AS THE CONTENTS OF A NIBBLE OF COMPLEMENT
°*DATA_COUNT® RECEIVES THE NUMBER OF NIBBLES OF DATA.

*COMP_COUNT' necexves THE NUMBER OF NIBBLES OF

COMPLEMENT

Llocal

PATNUM,

9 lso :

VALUE:

19 3

selectone .PATTERN of

set

18 ;
19 ;

[1 to 5] :

20 ;

bo’

PATNUM.

VALUE =

end;

snn -1

[=5 to -1] :

mu = =(,PATTERN) - 1:
in

TR TR TR T

VALUE = %b° 0101°;
end;

[5 to 10] :

= .PATT;RN - 6;

VALUE = Zb°1111°;
end;

=10 toi;fl :

LA IR
AT AT

IO A

RESULTS:

1; :

TABLE AND GRAB THE VALUES WHICH ARE REQUIRED FOR THE

909

913

10PS=20 mm-m v2(212)

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

routine GETCNTS (PATTERN) =

3893

29-MAR-82 13:41

Isbttl 'USING THE PATTERN TABLE'

8892

MACRO M1113

mfl.fl = «=(_PATTERN) = §;

USING THE PATTERN TABLE

7-Mar-1982

574\&-1935 19:53146

19:24:42

TOPS-20

Bliss=16 V2(212)
PA:<NEALE>ML
X4.BLI.S (16)

— Bl

ég’fl MACRO M1113 29-MAR-82 13:41 PAGE 51121

N T T

VALUE = 2b°'0000°;

TRTR TR

tes;

DATA_COUNT = .PATTBL E.rnruun. couutsi:
(. PATNUM, COUNT

P
86T

DEE

==v

177773

18:

ga;

000005

==v
2s:

000012
1
000073

= e

P
BLT
[V
86T
MOV

ROV

MoV

177766

38:

5
g:;

177772

gz;

177772

MOV
4$:

8525520

R
#12.R2

cMp
BLT

177777

000006

1 ol

RO.R1

171424

171450

.:n.x&

MOV

* ,PATNUM
PATNUM

*,VALUE

* ,PATNUM
* PATNUM

*,VALUE

* ,PATNUM
* ,PATNUM

*,VALUE

*,PATNUM
*,PATNUM
VALUE

MOV

PATTERN,
*

AIATE
TET

000012

USING THE PATTERN TABLE

R TE T

000005

a1 dsved
TCNTS

RERRERREINIIIRRESFRNERSENEER

'=Eg

MOV

3235

36
0

PATTBL (R1) ,DATA. COUNT

PATTBL+2(RT),COMP.
COUNT

384

USING THE PATTERN TABLE
=

ol o

oooogs

el il o

d coud ok ol e

wnd cd wd cod

e be

s emld et ek renh)
ol aad mnd e

b b cnd e oo ced D e o e
i ) D

GETCNTS Jggrrt

)o i

S e e b cd

1641

TN T

rctt_rn <VALUE;

LR TR

COMP COUNT = .PATTBL

AL TR

4ty
vy
‘.

L4\

SEQ 0121

end;

EXERC
R SEL

R2,RO

VALUE,*

Routine Size:
56 words
Maximum stack depth per invocation:

3 words

3241
PA:<

318

VIS NN - VBNV
NN O
....'..l‘l.'...l.l...O...Q.O.'...t.....l..Il.u....‘..l.l.c.'...l...l.....'.....l.l.u...t.. AR SR LTE T T TR T

CZMLBBO PE RFORMANCE EXER
GETCNT USING THE PATT
1
1
1
1
1
1

401

401
1

MLXG

CISER = MACRO M1113 29-MAR-82 13:41 PAGE F11;10
TAB
LE

NIBBLE GENERATOR

lsbts'l' 'NIBBLE GENERATOR'
rout

'FILLER (BUFFER, WRDCNT, VALUE)
n

ROUT INE :
PURPOSE :

SEQ 0122

7-Mar-1982
7=Mar=19.

: novaluo.s
s

35 19:53:6%

19:24:4

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

FILLER(BUFFER,WRDCNT
, VALUE)
TO LOAD A CHOSEN WRITE BUFFER, ONE NIBBLE AT A TIME., WITH A
PARTICULAR
PATTERN,

FOR A SPE CIFIED

NUMBER OF 16-BIT WORDS.

THIS ROUTINE IS THE MEART OF THE GENERATOR FOR OPTIONS 2 AND 4.

THE 'FILLER' ROUTINE IS A“EW WHICH WILL ALTERNATE BE
N
THE TWO COUNTS AND FILL THE
APPROPRIATE NUMBER OF NIBBLES OF
THE CHOSEN BUFFER WITH THE CONTENTS OF °VALUE' >

*DATA_COUNT®,

SO THAT THE BUFFER WILL BE

DATA,“COMP, DATA, COMP
ARGUMENTS:

(1)

BUFFER = THE STARTING ADDRESS OF THE CHOSEN WRITE BUFFER.

(2)

WRDCNT = THE NUMBER OF WORDS OF PATTERN TO BE GENERATED.

(3)

VALUE = NIBBLE OF DATA TO BE PLACED IN THE WRITE BUFFER

?mns
not .FLAG;
VALUE

g;tfP.flf
FLAG
!AND

:'fm.‘ruc eql 0

!CHOOSE A COUNT

= not .VALUE;

THE DATA

”m-cm = ,COMP_COUNT
THE_COUNT = .DATA_COUNT;

decr cu*m from .THE_COUNT to 1 do

:Efl;fl:fl THE COUNT

?flwsn + (.OFFSET))<.NIBBLE, 4,6 0> = ,VALUE;
n

NIBBLE = (((.NIBBLE) + &) mod 165;

!LOAD THE NIBBLE

!CHANGE NIBBLE POINTER

i
!

CZMLBBO PERFORMANCE EXERCISER ~ MACRO M1113 29-MAR-82 13:41 PAGE ?110
GETCNTS USING THE PATTERN
TABLE

406!3 SMLXG
:

ngflg :

if .NIBBLE eql 0

71 :
;g :

then
bogin

:i§7% ::

BREAK;
OFFSET

1
;

g;s :

40#
:
4078 :

2%
409
4095

end;

'i}

}g
312
041
041

004167
1

171354

;

4110

000024

041

mi 1
411%
04135¢
4115

m,
4117

144042

171364

}

041

.SBTTL m.ken ngw.s GENERATOR

FILLER: JSR
CLR

18:

: OFFSET
: NIBBLE
: FLAG

ST
BNE

: FLAG

coM

16(SP)

MOV

48:

MOV

:
: FLAG

."f';’

ADD

.COUNT ,Ré

DATA, COUNT
, R4

si.n!

-(SP)

tsP), (sP)

: «,THE.COUNT

: THE.COUNT, COUNT

: OFFSET,*

: BUFFER.*

: NIBBLE.*

gg'v

af&nrssn

: VALUE,®

MOV
ADD
ADD

-(SP)

5%.(3»
(SP)

: NIBBLE,*

#20,-(5P)

$MOD

cs.ns

78
79

: *,THE.COUNT

R2,=(SP)

mov

45
77

* VALUE

MOV

J
MOV

000002

R1,SSAVE
R

CLR
CLR
coM

ngx

4120 uos

n 2«
TRE

end;

}
;

TEE

end;

000016

0413
1

n 4 »

end;

1
1
2% 8:1 <
4100
41

In 4 »

if .WRDCNT eql 0 then return;

:
S :

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

= .OFFSET + 2;
WRDCNT = .WRDCNT - 1:

79 :

4083

7-Mar=1982 19:24:4
57—:4.:--19
35 19:53:&

NIBBLE GENERATOR

SEQ@ 0123

3294

3295

: *,NIBBLE

: «,OFFSET

SEQ 0124

) ok

e ol o

sMLXé

b1 B

7Hlar-1

NIBBLE GENERATOR

DEC
BNE
ADD

32(SP)
#12,5P

RTS
ADD
DEC

Pg
#12,SP

B8R

BNE

WRDCNT

COUNT

tine Size:
S0 words
ximum stack depth per invocation:

TOPS
|

PA:< |

3
2

3281
11 words

MLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE ¥20

C4
F | LLER NIBBLE GENERATOR

4143 :MLX4

2}2’50 :

GENERATOR FOR OPTION 2

4146
6147
4148
6149

Isbttl 'GENERATOR FOR OPTION 2*
routine GEN2
: novalue =
begin

:
;
;
;

6150 ;
8%1 2

41 i 3

6159 :

WILL BE USED IN CONJUNCTION WITH OPTION
BASED ON PATTERN TABLE ENTRIES.

TO GENERATE THE ENTIRE WRITE BUFFER (WISH
2)

VALUE = GETCNTS (.PATTERN);
FILLER (WBUFF, BUFSIZ, .VALUE);

return;

6173
0414
4176
04614

4175

041

41
1460
2} X 061464

Bliss~=16 v2(212)

Llocal
VALUE;

61§

41
2}

TOPS=20

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

!
:

2}6‘ 3

61;3

19:24:4

57-flar-19=; 19: 3:&

GEN2

4158
;
4159 ;
6120 :
4161 ;
41
Fs
4163 ;

61;’

7-Mar-1982

14+
: ROUTINE :

! PURPOSE:

41;4 :
2} S

SEQ 0125

167
767

12716

12746

004

171240
177444

0138078
004

GEN2:

+SBTTL GEN; GENERATOR FOR OPTION 2

MOV
JSR

PATTERN,-(SP)
PC,GETCNTS

3328

n%r.(sn

3329

MOV

RO,=($P)

: VALUE,*

ADD
RTS

MOV

MoV

JSR

=(SP)

:z.HLLER

.SP

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

:
3 words

3314

PERF ORMANCE EXERCISER

WACRO M1113 29-MAR-82 13:41 PAGE 121

ee&lse!uuemou FOR OPTION
2

4191

:MLXG

6192 :

419
419 ;
4195 ;
4196 ;

GENERATOR FOR OPTION 3
;

21993
4201 :

ROUT INE :

GEN3(COMP_FLAG)

PURPOSE:

TO GENERATE THE ENTIRE WRITE BUFFER WHICH WILL BE MADE

4205

§ i ARGUMENT:
's'

4208

4206

2 }g :

4 15 :

6213
;
421% :

51
3 s;

22}5 :

3 g‘

2 }2 :

i gg

4219 :

4220

2 i:
45 S :

%’?
§§

8 :

4231 '

370

4241 32'
4§
43

4%
4245

14
0414

041
041

BUFSIZ.

COMP_FLAG - THIS IS AN INDICATOR OF WHETHER OR NOT TO

COMPLEMENT EVERY WORD IN THE WRITE BUFFER.

Llocal

OFFSET;

OFFSET = 0;
if .COMP_FLAG

then

incru uiln'" from 1 to BUFSIZ do

141
12700

!GENERATE COMPLEMENT DATA

(WBUFF + (.OFFSET)) = not (.COUNT); 'COMPLEMENT DATA

OFFSET = .OFFSET + 2;

else

end

incru ctfnm from 1 to BUFSIZ do
n

mw + (LOFFSET)) = (.COUNT):

return;

%ssr = ,OFFSET + 2;

!GENERATE REGULAR DATA
!

'REGULAR DATA

10146

1
ng

TOPS=20 Bliss=16 v2(212)

PA: NEALESMLX4.BLI-S" (19)

UP OF WORDS WHICH CONTAIN THE UNIQUE COUNT FROM ONE TO

}

19:24:4

g
0

7=Mar-1982

Sr-mr-wss 19:33:4

!sbt:l 'ssfimoa FOR OPTION 3*
routine GENS
(COMP_FLAG) : novalue =
begin

p— |

GEN3:
000001

000001

000004

.SBTTL

MOV

CLR
BIT

BEQ
MOV

GEN3 GENERATOR FOR OPTION 3

R1,~(SP)
R1
#1,4(SP)

2s
#1,R0

: OFFSET
: *,COMP.FLAG

; *,COUNT

50
52

3355

GENERATOR FOR OPT ION

sMLXS
18:

SEQ 0127
S?—Har-1
7=-Mar-=19

GENERATOR FOR OPTION 3

MOV

RO,WBUFF

(R1)

FF (R1)

TRT

GEN

K_10

MACRO M1113 29-MAR-82 13:41 PAGE 12;

#2.R1
R
RO, #4000

LR TR TR

CZH&BBO PERF ORMANCE EXEkCIgER

ZS
$

gl.no FF(R1)
ggig?u
RTS

(SP)+,R1
PC

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

TOPS
PA:<

3357

358
355

*, COUNT

COUNT,»

COUNT,
*

19:53:44

COUNT

563?}§E§orrser)
COUNT

RO, #4000

4S:

COUNT, * (OFFSET)
*(OFF SET)
* OFFSET

19:24:42

1
3333

2 words

|mam

NS Ge

C2
GE

PERFORMANCE E
NERATOR FOR OP

MLXG

filtlgfli

MACRO M1113 29-MAR-82 13:41 PAGE %2}0

GENERATOR FOR OPTION &

SEQ 0128
TOPS~20 Bliss=16 v2(212)

Shnar=1983 19:38:42

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

lsbtil 'GENERATOR FOR OPTION &'
routine GEN4
(MARPAT, BUFFER) : novalue =
begin
144

;

ROUT INE :

PURPOSE:

ARGUMENTS:

!
!
;

GEN4 (MARPAT ,BUFFER)

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.

g
local
"/

(1)

MARPAT = THE MARCH PATTERN NUMBER

(2)

BUFFER = THE STARTING ADDRESS OF THE CHOSEN BUFFER

’

VALUE = GETCNTS (.MARPAT);
FILLER (.BUFFER, 256, .VALUE);
return;

i
23R

b ud o=b

D cad wnd cmd

IRIRIIIIN

VRGP
;
-

e gy

P Tt bt o

s e

DW
e

end;

1”%52

000004

”

177454

000006

GENG:

.SBTTL

MOV

JSR

MOV

%3
JSR

ADD
RTS

: Routine Size:

GEN4 GENERATOR FOR OPTION &

4(SP) ,~(SP)

; MARPAT,*

4(SP), (SP)

: BUFFER,*

PC,GETCNTS

‘3
15&‘3”
PC.FILLER

14 words
'
Maximum stack depth per invocation:

3 words

VALUE, *
‘

3391
3392

3372

€z
GEN4

PERFORMANCE CE E EXERCISER
GENERATOR FOR OPTION
ION
&

sMLXG

4331 ;
4
:

433

46335 :

4339 ;
4
2
2 13

!sbtsl *GENERATOR FOR OPTION S5°
routine GENS
: novalue =

!4+

03
06
31.05

3411
3412
3413
3414
3415
3416
3417
3418

4 sg :

4380

4361 ;

3419

ROUTINE :

!
!
:

345

3425

19:24:4

TOPS~20 Bliss=16 v2(212)

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

GENS

THIS IS THE GENERATOR WHICH IS USED FOR OPTION §5.

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 + 0) = .SEED1;
(WBUFF + 2) = ,SEED2:
(WBUFF + 4) = ,SEED3;

OFFSET = 6;

incru COUNT from & to BUFSIZ do
begin
RN ();

BREAK;

3420
3421
3422

7-Mar-1982

57-mr-1935 19:53:4

83 ! PURPOSE:

4347 ;
4348 ;
4349 ;

4357 ;
4358 ;

M_10
PAGE 124
SEQ 0129

95
99

52?3

4355 ;

29-MAR-82 13:41

GENERATOR FOR OPTION S

S 2

4350 ;
4351 ;
4352 ;
l.gs 3
6354 ;

MACRO M1113

(WBUFF + .OFFSET) = .RANDOM;

OFFSET = .OFFSET + 2;
end;

return;

end;

'THE FIRST 3 WORDS OF THE
'WRITE BUFFER RECEIVE THE
'3 GENERATING SEEDS.

!NOTE: USING SIGNED VALUES (FULL 16 BITS)

PERF ORMANCE exeacx;en

NERATOR FOR OPTION

127

1 ; 7 14
12701

1
}

1 7;
¢
7

1
1

}

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

GENS:

151

1 77 143574 012670

020

;

18:

000002

.SBTTL cfus eeusmoa FOR OPTION §

JSR

R1,$SAVE

;

3396

MOV

sgeo JWBUFF +4

MOV
‘#asfip

#4.R2
ss.nu

: %, 0FFSET

?4’15

: «,COUNT
;

#2.R1

; %, %(OFFSET)

fi.w
18

3420

l,'t #4000

: COUNT,#

MOV

sMLXG

RANDOM, WBUFF (R1)

INC

Sfi';s

7 041706

000207

MOV
ADD

004000

SEQ 0130

: % OFFSET

57-».--1

: Routine Size:

7-Mar-1982

28 words

¢ Maximum stack depth per invocation:

3421

+ COUNT

GENERATOR FOR OPTION §

RTS

3414

3 words

19:24:42
19:23:44

3416

TOPS

PA:<

3396

(2
GENS

PERF ORMANCE EXE&I?SR
GENERATOR FOR OPTI

:3@ :sMLXS
1

MACRO M1113

29-MAR-82 13:41

8. 1n
PAGE 126
SEQ 0131

SYSTEM ERROR DETECTOR

7-Mar-1982

19:24:42
57-mr-19 19:53:“

Xsbttl °"SYSTEM ERROR DETECTOR'
routine SYSERR (LUN) =

L
-

begin

TOPS=20

PA:<NEALEBliss=16
>MLX4.BLIv2(212)
.S5 (22)

I 1«

sgstessmesnnngy

.
-

.
.

£
-

ROUT INE :

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.

B) THE OPERATOR HAS THE ABILITY TO INMIBIT THE

PRINTING OF DATA ERRORS, BUT NOT SYSTEM ERRORS.

(3)

DECIDE ON A VALUE TO RETURN WHICH WILL INDICATE THE

RELATIVE SEVERITY OF THE ERROR.

.
-

bb2e
6626

4425
64626

;
B

;

;
;

!
!

ARGUMENT :

LUN = THE CURRENT LOGICAL UNIT
(0 TO NUMBER OF DRIVES MINUS

RESULT:

VALUE RETURNCD FOR THE SUBROUTINE SHOWS TYPE OF ERROR:

R
1].

0 = NO ERRORS AT ALL
1 = RETRY ALLOWED FOR THESE TYPES OF ERRORS

i = FATAL CWM&ER ERROR

!
:

4 = UNCORRECTABLE
DATA ERROR
S = CORRECTABLE DATA ERROR

= FATAL DRIVE E

4429
fi

;
3

FIGURE OUT WHICH VALUE TO RETURN BY THE FOLLOWING SCHEME:

4434
;
6435 ;
4436
;
4437
;
4638
;

!
!
!
!
!
!

(1)

6439

;

prrs i
“4; :

4444 ;
4445 ;

6449

4450 ;
“21 :

4452 ;

Fh
4,

75
;s

(2)

(3)

IF THERE IS A CHOICE BETWEEN DATA ERROR AND SYSTEM ERROR,
FIRST CHOOSE THE DATA E
K
IF THERE IS A CHOICE BETWEEN FATAL AND NON-FATAL ERROR,
FIRST CHOOSE THE FATAL ERROR.
1IF THERE IS A CHOICE BETWEEN CONTROLLER ERROR AND DRIVE ERROR,
FIRST CHOOSE CONTROLLER ERROR.

PURPOSE_2_CODE;
locaém

ERRS,

ERRG,
ERR?7,

ERRS,

;

! VER CZMLBB ADDED THIS LOCAL

MACRO M1113 29-MAR-82 13:41 PAGE ¢12;

PERF ORMANCE EXE&SI;ER

GENS

GENERATOR FOR OPT
4456 ;MLXS

19:24:4

37-11.»1935 19:53:4

ERRY;

TOPS=20 Bliss~16 v2(212)

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

! VER CZMLBB ADDED THIS LOCAL

ERRZ

INACTIVE:
ERR; == INACTI
VE:

ERRG = INACTIVE:
ERRS = INACTIVE:

TR IR I

22;9

283%

RRRR

AR TRTR LR

4475

SEQ@ 0132
7-Mar-1982

SYSTEM ERROR DETECTOR

AL TR T

SSRSLEERRERERREEESS

349

3294

= INACTIVE:

ERR7 = INACTIVE:
ERR8 = INACTIE:
ERRY = INACTIVE:

! VER CZMLBB
! VER CZMLBB

% THIS IS THE CODE FOR PURPOSE 1:

if .SC

then

begin

;296
3;

!THERE ARE SOME ERRORS == FIND OUT WHAT KIND
In 2 »

if ((.NED) or (.NEM) or (.PGE)) then ERR2 = ACTIVE:

24‘7739 :

325033

figg :

3?83

! VER ADDED THIS ERR9

:‘Eg :

gggz
505

if (.MDPE) and ( not .SGL) then ERRO = ACTIVE:
! VER ADDED THIS ERRS8

“09 ;

;8:

if ((.DLT) or (.PE) or (.MXF) or (.MCPE)) then ERRS = ACTIVE;

if ((.UNS) or (.IAE) or (.AOE) or (.RMR) or (.ILR) or (.ILF)) then ERRG = ACTIVE;

4485 :

%:
6‘2’1 .:

506

sggg

4‘2 :
fig‘s E
4‘4‘. :

sé
;}S
g}z

4‘4‘.

4500

521

g 2

4501

4504

4507
4

if (C.DLT) or (.PE) or (.MXF) or (.MDPE) or (.MCPE)) then ERR3 = ACTIVE:

5 g

if ((.WCE) and (.ECCDIS eql 0)) then ERR3 = ACTIVE;

if ((.OPI) or (.DPAR) or (.CPAR)) then ERRS = ACTIVE:
if ((.DCK) or (.crc) or (.SGL)) then ERR? = ACTIVE:
if ((.WCE) and (.ECCDIS eql 1)) then ERR7 = ACTIVE;

if ((.ECH) or (.UNC)) then ERR6 = ACTIVE;

525

end

n 2 %

return 0;

INO ERRORS AT ALL

else

! THIS IS THE CODE FOR PURPOSE 2:

LABEL:

BEGIN 3

!THERE ARE NO ERRORS == RETURN SUCCESSFULLY

¥4

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

PERFORMANCE EXERU?(R

GENS

GENERATOR FOR OPTION

4510 :MLX4

25}1 I”

4§1§ 3

6514 ;

4515 ;
621’ :
6517
;
4518 ;

4;19 a
&
2
4521 ;

45 i :
4523
:
4524 ;
4525 ;

6526

;

535
S
S
S

54§

544

4529

S‘?

;

IF THERE ARE SYSTEM ERRORS TO REPORT

THEN

ELSE

4530
:
4531 ;
4532
:

54
S4R
549

!
!
i

g S

gggs

begin”

4537

3554

l‘-g‘

4538

;
3

555

3558
559

4544 ;
46545 ;
65‘9 :

561
28

;

560

4547 ;
65‘3 s
4549 ;
4550 ;
4521 :
25Sg :

564
565
566
567
568
2 9

2 gg s

g?i

6; :

END

IDENTIFY THE LOGICAL UNIT

LEAVE LABEL

SCAN FOR & PRINT SYSTEM ERRORS

END

END
3

§§? PURPOSE_2_CODE

6541 ;
454; :

4543

LEAVE LABEL (NO PRINTOUTS AT ALL)

END
ELSE
BEGIN 58

4‘.3

I 3«

if .RETRYING

then

leave PURPOSE_2_CODE

!(NO PRINTOUTS AT ALL)

begin

In 4 «

else

if .ERROUT

then
bo':'nn
SA
(.LUN);

n SA »

PRINTB (SAY1, PHR10);
'*ERROR BITS SET:
if .ERR7
then
begin

if .DCK then PRINTB (FMT15, MLB20):

if .crc then PRINTB (FMT15, MLB22):

375

if .SGL then PRINTB (FMT15, MLB23);

g;?

if (C.WCE) and (.ECCDIS eql 1)) then PRINTB (FMT15, MLB6):

end;

581

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLX4&.BLI.S (22)

IF ERROR PRINTOUTS ARE ALLOWED
THEN
BEGIN SA
IDENTIFY THE LOGICAL UNIT
SCAN Fg & PRINT DATA ERRORS

545

19:264:42

19:53:“

ELSE
BEGIN 4

.
'
!
!
!

'
!
!

37-mr-19

IF RETRYING

THEN

!
!

S
gzo
1

4527 ;

4528

SEQ 0133

7=Mar-1982

SYSTEM ERROR DETECTOR
1

if .ERR6

¥4
GENS

PERFORMANCE EX
GENERATOR FOR OPT

L A A TR R TR A AR T A LA TR TR TR T T
AR LA T

VNN

gasssess

waawn

T A TR IRIR

IR LRI T T

555 Sa55eae2 BBDDDS
38 v
W

T R TR AT ) LA IR TATE )

sMLXS

E&l;fifl

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

SEQ 0134

7-Mar=19

7-Mar-19

SYSTEM ERROR DETECTOR
then

begin
if .ECH then PRINTB (FMT15, MLB21);
if .UNC then PRINTB (FMT15, MLB24);

end;
else

end

begin

! VER CZMLBB CaANGED ERR3 TO ERRS

in 5B »

:"g(.ERRZ) or (.ERR8) or (.ERR4) or (.ERRS))

(.LUN);

PRINTB (SAY1, PHR10):
Y"ERROR BITS SET:

end
,
else
! VER CZMLBB ADDED TEST OF ERR9 HERE

if .ERR9
then
in
SA

(.LUN);
PRINTB (SAY1, PHR10):

else

!*ERROR BITS SET:
end
i

?:2v2 PURPOSE_2_CODE;
end
;

end;

if .ERR2
then
begin

if .NED then PRINTB (FMT15, MLB2):
if .NEM then PRINTB (FMT15, MLB3);
if .PGE then PRINTB (FMT15, MLB4):
end;

if .ERR3
then

i 58 »

19:24:4
19:33:6

TOPS-20

Bliss=16 v2(212)
PA:<NEALE>MLX4
.BLI.S (22)

CE EX;&%I?ER

PERF ORMAN
GENERATOR FOR OPT

SEQ 0135

S7mar-1083 19:34:4%

SYSTEM ERROR DETECTOR

ffl.xl.

F.1

MACRO M1113 29-MAR-82 13:41 PAGE 133
begin
if .DLT then PRINTB (FMT15, MLBS);

if ((.WCE) and (.ECCDIS eql 0)) then PRINTB (FMT1S, MLB6);

if .PE then PRINTB (FMT15, MLB?7);

if .MXF then PRINTB (FMT15, MLBS);
! VER CZMLBB ADDED 'AND NOT .SGL'

if .MCPE then PRINTB (FMT15, MLB10);
end;

:'fm.‘ERM )
begin

if .UNS then PRINTB (FMT15, MLB11);

s SRENSRERRt

9
1

if .IAE then PRINTB (FMT15, MLB12);
if .AOE then PRINTB (FMT15, MLB13);

if .RMR then PRINTB (FMT15, MLB14);

if .ILR then PRINTB (FMT15, MLB15);
if .ILF then PRINTB (FMT15, MLB16);
end;
if .ERRS
then
begin

if .OPI then PRINTB (FMT15, MLB17);
if .DPAR then PRINTB (FMT15, MLB18);

if .CPAR then PRINTB (FMT15, MLB19);

end;

:
In
4 =

SEERgREERER

if ((.MDPE) and ( not .SGL)) then PRINTB (FMT15, MLBY);

t* 38

TOPS~20 Bliss=16 v2(212)
PA:<NEALE>MLX4.BLI.S5 (22)

Clw PERF ORMANCE EXEICI?ER
GENERATOR FOR OPTION

SEQ 0136

SYSTEM ERROR DETECTOR

! THIS IS THE CODE FOR PURPOSE 3:
'+

return 2;

if .ERRG

'DRIVE FATAL ERROR

70.
;8;

then

2 1:

;89

gfl(‘sm or .ERRS)

;88

;}?

4709

1*SC SET BUT NO SYSTEM ERRORS FOUND'

H, % )

TST

SRbS

”7 8%383 172376 18:
979 004000 172366
1

SYSERR SYSTEM ERROR DETECTOR
R1,$SAVES

-($P)

5
aML.REG
SYSTEM ERROR DETECTOR

81T
8IT

BNE

213000.“.1056010
23
#4000
,3ML .REG+10
.

3427

-0

.SBTTL
SYSERR: JSR

S?-Har-‘l

19: 56 142

19:23:44

172402

e 1 #

end;

R it e R e

*o
35

718

-e
*

-4

719

;

Qaaaaaaaaaaaaaabbba?

4713
I¥4)

if ((.ERROUT) and ( not .RETRYING)) then PRINTB (SAY1, PHR11):

714

return 1

begin

;}g

4712 ;

INON-FATAL ERRORS

2% :

else

222D PDD%

return 3;

4698 ;
e
3

!CONTROLLER FATAL ERROR

4697 :

if .ERR2

then

$3332333

return 5;

fi” :

4694 ;

Bliss=16 v2(212)

'RECOVERABLE DATA ERROR (RETRY TO CLASSIFY)

0090 %0909 %% 00

99
9
g

$°

4691 ;
“9; :
4693 :

:'f' .ERR?

Nt o

return &;

TOPS=20

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

!UNRECOVERABLE DATA ERROR (NO RETRY ALLOWED)

3RBAR2LL

223; ;

; 'fm.'eaao

19:24:4

mmmmmmmm

EggR :2
%

7-Mar-1982

37-11»-193 19:53:43

;MLXG

6. 11
PAGE 131

%;3 :
4678

29-MAR-82 13:41

GENS

MACRO M1113

3497

000002

‘n'ot'

[

001000

172322

000400

172312

020000

172272

bt G e
T
s

172332

172310

172234

001000

172224

020000

172204

L
g

020000

0000

172162

002000

172152

001000

172142

000002

172122

000001

172112

g i

JMLXG

020000

172076

000040

172066

000010

172056

000001

118:

12%:

3499

#1000,3ML.REG+10

(SP)

#460
ML .REG+1
0,0

*,ERR3

#1,R5

*,ERRY

3503

z‘zoooo.au.nssuz
-REG+10

3507

+8ML.REG+10

# .Ré

gbooo.an..nssno

« ,ERRS

3509

gcm
., (SP)
#40000,aML .REG+14
1

*,ERR3

351

+ML.REG+14

#1000,3ML .REG+14
123

3L .REG+14

aML .REG+14

13:-1 -REG*+14
1

11§

#.R1

&2
44

SYSTEM ERROR DETECTOR

s fio

108:

012703 000001

* ERR2

éoooo.an..nesflo

g‘OOOO.GHL.REG

172132

r..REGHO

;}000.‘”L.REG*10

DDODODDDD

140070

Lttt BEDDDBDDDDDDDDDDD
HHps

35S33FRrEdFIINIIIN

777 080080 172200

#1,2(SP)

#20000
ML .REG
,

{7,
g

1ot

§§000.IHL.REGO10

#400,3ML.REGH10

800400 172266
040000

D
<

)

M-y

172356

DOC

M~y

“74

SEQ 0137

046177¢

W1
PAGE 131-1

29-MAR-82 13:41

3ESR
g
3 @
® ad =l = 32aRTIRTI2S O!-l Zgoeeapegne

4741

MACRO M1113

DOROD®
ot
et e

CZMLBBO PERFORMANC
SYSERR SYSTEM E

ggooo.am.nscm

3513

1 LaML.REG+14

ois.am.uecm.

138
#,R2

TOPS
PA:<

*,ERRS

191916
137622

198

171652

208

SMLXé

171616

218:

-4

—

?000.&.&56062
7, REG+14

MoV
MOV

3515

lg§000.ll.k£6042

gggoSO.anL.neco1o

« ,ERR7

3517

DIS,
M
#1,R3

#100,aML .REG+14
178

*,ERR7

3519|

.REG+42

#1,4(SP)

g;‘nstnvxuc

: *,ERR6

554
556

478
" snaout

S&csr> -(SP)
C.

SAYUHO

3560
s LUN,*

3563
3564

: SP,»

: *,ERR7

3567
35N

g?ggo.u -REG+42

3573

aTRT-IS
5P

&§-ah

SYSTEM ERROR DETECTOR

BIT
8EQ

SEQ 0138

168:

171764

000001

e
e

172004

o LD

172052

[+o]+ 1++]

172062

[%]

138:

3333358333338
RT 3333330O-VOo—
R0 2R2
[ -1 z
-co-cs
- 3235232208

172044

et e

n
MACRO M1113 29-MAR-82 13:41 PAGE {31-2

\V_
¥V

CZMLBBO PERFORMANCE E RCISER
SYSERR SYSTEM ERROR DE ECTOR

zggsso.fl..REGMZ
'.fi?fi
-(SP)

7-Hnr-1
7-Mar-1

9:3%:&2
&4

TOPS

PA:<

3575

1"
MACRO M1113 29-MAR-82 13:41 PAGE '1’31-3

SER

CZMLBBO PERFORMANCE EXERCI
SYSERR SYSTEM ERROR DETECTOR

gfiz 828383 171530 22s:

‘fii 137420 000001

1
12746
1274
1

4910

745

ol
o mod

00141

#100,3ML.REG+14

3585

MOV

#FMT15,-(SP))

25%:

;

000001

27%:

.
1072

1724

390

288:

; SP,»

&s:EGMZ

3587

% ,=(SP)

SP.RO

: SP,»

BIT

g‘z(sm

ROR

Ré

BIT

ERRS

#1,R1

*,ERRG

#1,R2

: *,ERRS

4 (SP) ,=(SP)

: LUN,*

3599

3600

26$

57!

JSR
MoV
MOV
MOV

Pc.sAsmo
#PHR10, (SP)
cgm =(SP)
#2,-(5P)

MOV

: *,ERR2

268

BEQ

%:.RO

BIT

2MLXG

#2,-(5P)

TRAP

BNE
268:

67
1
012716 010120
012746
012746
e

#MLB21,-(SP

MOV

BLO

248

#FMT1S.=(SP)
#2,-(5P)

QOO0
-

701 000001

000002

; SP,#

BITB

Ggo

000001

nu? -(SP)
#FMT15,-(SP)
#2,-(5P)
RO

05§pIS.M

3577

3581

MOV

oezrg? 000006

: *,ERR6

MOV

007060
000002

ggfiso.m.necno

ae.P
53;12(9)

MOV

248:

SEQ 0139

Ao
Sfl

Mov

000002

032766

MOV
MOV
MOV
MOV

BEQ

7554

BN3=;

={=1=1-]

171460

;fi %7060

032702

000100

§7

ogz

4
4
4
4

4911

CMP

106416

1412

SH=88

RRRRRRRRRPRR2RRRRR
Ne
062776

ADD

Sfl

BNE

:
;g 88833? 000012 23s:

3525484050
8Ra0ARRRRERERRTNAACRANNSERRRRRERSRERSS

28 :

4855 042614

596

7-Mar-1

SYSTEM ERROR DETECTOR

7-Mar-1982

19:5‘:‘2

19:23:44

TOPS

PA:<

MoV

SP,RO

: SP,+

ROR

: ERR9

geos

24(SP) ,=(SP)

: LUN,®

3609

g
BLO
JMP
MOV
JSR

MOV

2
4

PC, SAYUHO

:Sf-(sm

598

MACRO M1113 29-MAR-82 13:41 PAGE %3}14

CZMLBBO PERFORMAN

SYSERR SYSTEM ERR&S 5
N
N

000002

298:

171226

SP.RO
14 s

]

SEQ 0140
; SP,+

gg'g(sp)
go0000,

3608
3620

i «,ERR2

aML .REG+10

#MLB2,~(SP)

SP.RO

171136

31s8:

#MLBG = (SP)

328:

00;4‘4

136732

007450
e

%
4
4

.REG+10

3636

3638

sggbls
#MLB6 =(SP)

FEMT15,-(SP)
#2,-(5P)
348:

;ggfiso.ant.nec+lo
#MLB7 .~ (SP)

#EMT15,-(SP)
#2,-(5P)

: SP,*

; 244

&H
N

7-Mar-1

; 7-Mar-1

SYSTEM ERROR DETECTOR

W»

33s:

171042

171000

3632

1
gzgsso.ant.nzc+1o

§§7456

; *,ERR3

#EAT1S,-(SP)

0002

4
4
4
4

38§

SP..

# TM Sfi)

sMLXé
4

.SP
5

arguy

000006
040000

#MLBS , - (SP)

000002

;ggss.fll.aicflo
#FMT15,-(SP)
#2,-(5P)

171076

; SP,x

wmb

— OO0
par Y-Sy
gurd

#MLB3, - (SP)

#FENT1S,-(SP)
#2,-(5P)

600001

; SP,x

308:

525: R£IR

171172

#FMT15,-(SP)
,=(5P)

TOPS
PA:<

€2MLBBO PERFORMANCE

EXER
R
SYSERR SYSTEM ERROE EEFE%#&
E

MACRO M1113 29-MAR-82 13:41 PAGE %3}15

4970 8e33re f0eets

SEQ 0141

SP.RO
1%

4971 04
49

170744

35%:

’?638 aML.REG+10
368

orh%%i =(SP)
-(SP)
#2,-(5P)
SP.RO

170710

368:

170732

#6,SP

gggo.anL.nesf1o
#40000,aML .REG+42

37%

#MLBY, - (SP)

#FNAT1S,-(SP)
#2,-(5P)
SP.RO
1% S

170634

37s:

§§g000.anL.nsc

3648

#MLB10,~(SP)
#FNT1S.-(SP)

g g

g 8

#M.R1

32%000
aML.REG
+14
398

170606

SP.RO

-ad

002000

170552 39%:

3656

1%
#6,5P

=
SP,

142

SYSTEM ERROR DETECTOR

438"
]

»8ML .REG+14

cz.-&sfi>
1%

170516

:
408

: SP,»

#6,SP

z}goo.ant.asc+14
#MLB13,=(SP)
#FNMT15 .= (SP)

#2,-(5P)
sP, RO
14

TOPS

PA:<

3658

#MLB12,-(SP)
#FEMT1S.=(SP)

-l

pers

3652

’

#2,-(SP)

b o

OOV

gessesR
g
=
I382FHEE
-

nNonNON

b
b

: *,ERRé

#MLB11,-(SP)
#FMT15.=(SP)

—000

)
w D mmd

SIS

gszsscsss
g
3ARR
393

VWA

SP.RO
1%
#6,SP

sMLX4

RRERRRRRRRRRRRR

SRSREE

b
e

D00 NN
N ==

8828888888

§ ~ g

883 8

e
Il‘ug
RpeResese
RNGA
dgsags
Wl

#2,-(5P)

: SP,x

Pe+
4
848

g
N§N
£g%oS
a§;:$38

—

170462

ADD
BITB
BEQ
MOV
MOV

418:

—osN

NNNS

0
—S

170426

000006
000001

020000

170330

007530

000002

000040

170274

458:
sMLXG

z aML.REG+14

MOV
MOV
MOV
MOV

#MLB1S,~(SP)
#FMT15.=(SP)
#2,-(5P)
SP.RO

; SP,*

BITB

#1.3ML.REG+14

flr Qhur guir Pur e

é‘:g‘;ga

FR-ENXN

NNN

RInum

=gseegR =0000
ek

el el el e = b

SR8V

RRRRRERRRRRRRE 3
SRERISRERN

goooos 170240 468:

.SP

;

BEQ
MOV
MOV
MOV
MOV

448
m.mg.-csm
#FNT1S . =(SP)
#2,-(5P)
SP.RO

: SP,*

3?'7’

3?'3’5

ERRS

BEQ
BIT
BEQ
MOV
MOV
MOV
MOV

473
)
LaML.REG+14
4SS
#MLB17,~(SP)
#FAT15.-(SP)
#2,+(SP)
SP.RO

: SP,*

BITB

#40,3ML.REG+14

BEQ

007534

3662

gé‘r'e

TRAP

4438 :

;

's%'ié"’
14

438:

OO0
b

3
FERZ

frur QuurQuur
Pur

NSNS

§$$FRNEE EXN N

S8g8ERsddgggd

s
e
e
e

170372

vt.sp
42%
#MLB14,~(SP)
#FMT1S . =(SP)

#4.aML.REG+14

SEQ 0142

%8
TRAP

ADD

428:

s2ee

SS33388

SYSERR SY

MACRO M1113 29-MAR-82 13:41 PAGE LR
13}-6

468

3674

3676
TOPS
PA:<

SYSTEM ERROR DETECTOR

MoV
MOV
MOV
MOV

m.mg.-(sn
#FMT1S .= (SP)
#2,-(5P)
SP.RO

: SP,*

BITB

#10,aML.REG+14

3670

3678

gérsed

BEQ
MOV
MOV
MOV
MOV

478
#MLB19,~(SP)
#FAT15.-(SP)
#2,-(5P)
gmo

: SP,*

806067 000004 47$:

BIT

fiusp)

: *,ERR6

3690

3692

7542

BEQ
MOV

#e.5p

48§
#4,R0

MACRO M1113 29-MAR-82 13:41 PAGE N1
13‘-7

CZMLBBO PERFORMANCE

3343300000 0n0EnRn

SYSERR SYSTEM ERROR

48$:

000002

493:

BIT

ROR

548

; ERR7

B
#5.RO

: ERR4

31’sanour

032767

000001

170060

5182 044,

012746 00707,

136010

5101

510? 044
5107 044
5108
5109
5110

F3a)

5115

0%616

3115 044324

11
i
5118

5119
g1

010500

880601

000207

#1,(SP)

; *,ERR3

528

3706

: ERRS
3712

s;i

,RETRYING

528

01014

012746 000002
010600
- 104414
702 000006
01270
000001

3702
3704

54$

000001

3698

3700

518
#3.R0

5 7%

BIT

; *,ERR2

348

5100

518:

3694

3690

;?‘Z(SP)
i

WN%

- ON.

508:

&R
ROR
BCC
MOV

SEQ 0143

c%f-(&p)
SP.RO
1% o

52%:

538:
54$:

CLR
ADD

; Routine Size:
MLXé

16
54§

SP,*

3706
3428
.

3427

#6,SP

647 words

264:42

SYSTEM ERROR DETECTOR

: Maximum stack depth per invocation:

15 words

TOPS

PA:<

%gk

CZMLBBO PERFORMANCE E
SYSERR SYSTEM ERROR DE

MACRO M1113 29-MAR-82 13:41 PAGE -313}4

SEQ 0144
7=Mar-1
Pl
S

DATA COMPARISON ROUTINE

!sbt:l 'DATA COMPARISON ROUTINE®

ena liss=16 v2(212)

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

routine DOUBLE_CHECK (W_POINTER, R_POINTER, COUNT) =

begin

In 1 »

les

ROUTINE :

DOUBLE_CHECK(W_POINTER,R_POINTER,COUNT)

PURPOSE :

TO DOUBLE CHECK THE ECC DETECTION LOGIC AFTER A

RSPl S

o e cwid i e e e

ARGUMENTS:

W_POINTER = POINTER TO THE WRITE BUFFER
R_POINTER = POINTER TO THE READ BUFFER

2ESULTS:

VALUE RETURNED IS EITHER:

8 = NO ERRORS WERE FOUND

;

N > 0 = ADDRESS IN WRITE BUFFER WHERE ERROR WAS FOUND

local

VALUE

OFFSET,

GOOD,
BAD;
Label
LOOP;
.

OFFSET = 0;
VALUE =

b‘gin

n 2«

incr I from 1 to .COUNT
do
in
= ,(.W_POINTER ¢ .OFFSET);

s 3 »

BAD = .(.R_POINTER + .OFFSET);

i e e

if .GOOD eql .BAD
then
OFFSET = .OFFSET + 2
else
b:tin
VALUE = (.W_POINTER + .OFFSET):;
leave LOOP;

o el e e
D

0 0 el s

COUNT = THE NUMBER OF WORDS TO COMPARE

el e e o

) D De

VI
AWVIAWVIWAWMWWMAIWVIVAIWIWAWIWIWVIL

SO, IR

NORMAL CIRCUMSTANCES.

il cl

JRJFRNANIITEIRTRAN2B
LIWRURZEEeR3E

cd wd wd w cd cd ndh d

end;

n § »
'ADDRESS OF GOOD
v 4 »

n 3«

v 2

CZMLBBO PERFORMANCE EXERCISER

SYSERR SYSTEM ERROR DETECTOR

5185 .uut.

772
4

3/'.':’3

return .VALUE;

000024

oug;¢

822204“83

000022
062
0

044410 003755

““}5

ow.niu

0121 0

207

000020

DOUBLE.CHECK DATA COMPARISON ROUTINE

Tgvrc

§ssms

CLR
&'i"

R1
R2

: VALUE
s 1

33 Ré

mov

naat(
)
zgc

5sn‘RO

ADD

38:
48:

MOV

ADD
MOV

000002

.SBTTL

INC

24(SP) R4

Liss=16 v2(212)

;

: OFFSET

3749

: OFFSET,*

3756

i: OFFSET.
«
n.mnfen
: *,BAD

: *,BAD

#2.R3

‘

3720

§7”
54

: W.POINTER,+

) RS
(RS)nb

; *,0FFSET

3757
3759

3761

38’

3759

R2,20(SP)

;1
: 1,COUNT

3754

nrug}f

l(!;’li

: VALUE,*

BLE

RTS

: Routine Size:

29 words

; Maximum stack depth per invocation:

E
7 words

of&?mu.m5 ( 3)

'EITHER 0 OR THE ADDRESS OF GOOD DATA

CLR

1$:

19:24:4

13:53:43

s 1 #

DOUBLE. CHECK:

Sr-n.r-w

end;

141002

SEQ 0145

7-Mar=1982

DATA COMPARISON ROUTINE

822

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

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
DOUBLE.CHECK DATA COMPARISON ROUTINE

3 sMLXG

s :

I NSNS

776

D 12

PAGE 134

SEQ 0146

COMMAND INITIATION AND TERMINATION
774
775

29-MAR-82 13:41

7=Mar=1

7-Mar-1

19:

19: 3 6

zsbt
"COMMAND
i
INITIATION AND TERMIMATION'
!

Liss=16 v2(212)

Qigl. »u‘.auz5

(26)

tine WAITER : novalue =
begin

77; i THIS ROUTINE DOES NOTHING

IT 1S CALLED BY °START_IT
' HASTE TIME WHILE WAITING fO
BEGIN OR END AN ML11 TRANSFER'. TO

fi:1 g BREAK;

return;
end

04432 000285

—

+SBTTL

; Routine Size:

WAITER COMMAND INITIATION AND TERMINATION

;

2 words

; Maximum stack depth per invocation:

0 words

775
774

CZMLBBO PERFORMANCE EXERCISER _ MACRO M1113 29-MAR-82 13:41 PAGE 53;2
WAITER COMMAND INITIATION AND
TERMINATION

LIETE T

6? glxl.

NS IR R L

SAIF AN

i
i

PURPOSE:

TO INITIATE A TRANSFER TO OR FROM THE ML11

TO WAIT FOR THE TRANSFER TO COMPLETE, AND fO

ARGUMENTS:

TR
A T
TR

;

(1)

COMMAND = THE FUNCTION CODE FOR THE TYPE

(2)

LUN

= LOGICAL UNIT NUMBER

(3)

WRDCNT

=~ NUMBER OF 16-BIT WORDS TO TRANSFER

(4)

BUFFER

=~ THE ADDRESS IN MAIN MEMORY OF THE SELECTED
WRITE OR READ BUFFER

(5)

SECTOR

THE TRANSFER'S STARTING ADDRESS IN THE ML11

OF TRANSFER

DESIRED. THIS CODE
WILL BE
SENT TO THE MLCS!
REGISTER TO START THE OPERATION, SINCE IT
ALSO CONTAINS THE GO BIT.

VALUES RETURNED ARE IDENTICAL TO THOSE DEFINED ABOVE IN
THE °"SYSERR® ROUTINE.

TEMP,
READY_BIT,
RTN;

I AL AR
Ts

CALL

THE *SYSERR® ROUTINE TO LOOK FOR RESULTING E

AT LA T T

b €5
LR

Label

N |

T A R R T A AR

SOVWNO
N
= O D

WAIAWVIVIA VTV AV
DS
O O o O o ¢
RRE S
Y

RL
AR

TOPS=

g WAIT FOR DRIVE READY:

UNIT = DRI

READY_BIT =

until .?EMV_BIT neq 0 do
n

!SELECT THE UNIT

!WAIT FOR DRIVE READY

WAITER ();
253"'5" = ,MLCST1 and BIT?7;

g INITIALIZE BEFORE EACH TRANSFER:

LR = 1;

'CONTROLLER CLEAR

liss=16 v2(212)

mofl&MALX6.BLI.S (25)

START_IT
,LUN,WRDCNT
(COM
,BUFFER,
MAND
SECTOR)

DN AN

i ROUTINE:

local

e W
e I

19:24:4

13:53:43

RESULTS:

MWW

7=Mar-1

57-&:-1

rout;.n;iSTMT-ll' (COMMAND, LUN, WRDCNT, BUFFER, SECTOR) =
g

SRR PR

iAWY

COMMAND INITIATION AND TERMINATION

SEQ 0147

EXERCISER = MACRO M1113

IATION AND TERMINATION

29-MAR-82 13:41

F 12
PAGE 136

COMMAND INITIATION AND TERMINATION
DELAY (1);

37-Rar-1982 19:2¢:42
7-Mar-1

IDELAY FOR

UNIT = .DRIVE;

CLEAR TO

SEQ 0148

T0PS-20
PA:

BLiss=16 v2(212)

<NEALE>MLX4.BLI.S (25)

:3':'”5
FOR clm 10 ;:E’:
IPUT BACK THE DRIVE NUMBE

| SET UP THE REQUIRED ENABLE/DISABLE BITS:
DCK_EN = 1;

!ALLOW REPORTING OF DATA CHECK ERRORS

if .REFRESH then REF_MAR = 1;

!TURN ON REFRESH MARGINING IF OPERATOR SELECTED IT

if .ECCDIS then ECC_DIS = 1;

!TURN OFF ECC IF OPERATOR SELECTED IT

g SEND REQUIRED INFORMATION TO DEVICE REGISTERS:

RALDA =1 .SECTOR:
gmpn:
i 6O:

Pty TADDRESSA
—
REGISTER (ADDRESS IN ML11)

IDESIRED SECTOR

[}

I_AM_DONE = INACTIVE;

TEMPTM= .COMMAND + BIT6;

MLCST = TEWP;

g WAIT FOR DRIVE TO FINISH:

'SET_THE INTERRUPT ENABLE BIT WHILE LOADING THE

!CONTROL AND STATUS REGISTER WITH THE COMMAND

:
LOOP

in
READY_BIT = 0;

until .*am_m do
TER ();

READY_BIT = .MLCS1 and BIT7;
if
((.READY_BIT neq 0) and (.I_AM_DONE eql INACTIVE))

begin
:f ( not .RETRYING)

-~ i
m (.LUN);

if .COMMAND eql WR_CMD then RTN = WRD16;

if .COMMAND eql RD_CMD then RTN = WRD17;

if .COMMAND eql WC_CMD then RTN = PHR1;

C
PERFORMANCE EXER SER __MACRO M1113 29-MAR-82 13:41
PAGE ?3}2
WAITER COMMAND m?xmm
AND TERMINATION

8 JMLXG

’

7-Mar-1982

5:-198 19:24:4
19:33:6

COMMAND INITIATION AND TERMINATION

T T T 1 LR TRTR

PIINT! (FMT6, .WRDCNT
ATH, WRDIS,
& YYYY WORD (22$)°A sgr
(?7?) lS E flfil 'NIT
PRINTB
(SAY1

aéo Eli”-‘lb V2(21

ALE>MLX4.BLI.5 ( 5)

SECTOR);

'READ OR 'WRITE CHECK'

:'!"‘CTEWT DfDNOT 6CCUR. BUT THE TRANSFER IS COMPLETE

leave LOOP;
end;

end;
return SYSERR (.LUN);
end;

006167

.SBTTL
START.IT:
#gg

140664

000024

;
:
9

:
76
7

177716
19;24

B
§§g

8%
1

ASL
MOV
Bre

34422

167666

MOV

167672

818

81S8

1$:

the

BNE
JSR
MOV

ggc

S0 167634
e 28%:
B
135362
.

8is8
a
MOV

BEQ

BNE

!PASS ALONG THE ERROR VALUES THAT °*SYSERR® OBTAINED.

LSDLY
START.IT COMMAND INITIATION AND TERMINATION

R1,8SAVESL

26(8”.“

2 LUN,*

-($P)

3822

%’3 (R1) .R2

itco18
.IIL
R3

PC pe

: READY.BIT

a‘

PC.WAITER
#,5;
lg
"

: « READY.BIT

; « READY.BIT

‘r'e

: =, $8TMP1

é?

Y.R2
)

: «, $8TMP2

SSTMP
:: SSTAWP

5 B

LR LA LATR

end;

.GLOBL

22 1

SEQ 0145

MACRO M1113 29-MAR-82 13:41 PAGE H13‘2
sMLXG

g breg

1674
1674

138:

-4
0D D

167362

128

167476
167446

SRISRILERTRAR=P ER LS 3t

5=it

FERRRRRER
SRORENNRIRS
S AR

U
P

167514

1?5370 118:

167330

148:

7-Mar=-1

19:264:42

57-mr-138 19:53:“

TOPS

PA:<

: $STMP2

#11,3ML

fl‘fir

.REG

LY,.R2

: * , $8TMP2

;

: «, 58TMP1

(SP)

l;g

: SSTMP2

PTABLE

6(R2)

SSTWP
: gvm

.ADDR(R1
,R2
)

fe el

fl'u‘:‘iiesu

s Bamg by

DODODOD

167530
167532
135404

DEC

167570

SEQ@ 0150

COMMAND INITIATION AND TERMINATION

3307 2RoRIRI3S

58:

§§§§§§§§

I T S ST SR e

CZMLBBO PERFORMANCE EXERCISER
START.IT COMMAND INITIATION AND TERMINATION

#200,

' ECCDIS

ML . REG+24

-REG+24

: WRDCNT,*

2 i%gzl.moz
SP) ,aML .REG+4
cgr) AL -REG+6

ég"'.'"'
R1

#1001
R1,3ML .REG
{ 1.AM.DONE

PC,UAITER

; BUFFER,+
: SECTOR;+

:: COMMAND
,»
«,TEWP

: < TEWP
: TEWP,»

: READY.BIT

a”m. ;
&
R

: *,READY.BIT
: *.READY.BIT

{ AM. DONE

‘

{i:aemm

: 61

#IRD ?.m
RS

#URD17,R1

: *,RIN

3851

§?§
57
58

3859

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

71583 [-Y-NL) I3~N

VRSgsie827827gm

JMLXG

SEQ@ 0151

EBE g 3 8 £2

ARrL0in v85Onu m8umxYuRmSsBsSsBs s
04Re3y 3R5LA I0R30S3)0

ISE
11
ON AND TERMINATION

VWin VIn n n

] ., .5 =8 :

3& z

158:

178

miim Size: 169 words
: Maximum stack depth per invocation:

VAVIAWWAWVIVI
LT AW

unfruousmos = .WR_THOUSANDS = 1000;
WRZMILLIONS = .WR_MILLIONS + 1;

%gg

RRRRRPRRRRRRR

SRERFR

gEegSRRFRRRECSESY

if .WR_THOUSANDS geq 1000
——

9};

if .WR_MILLIONS lss O then WR_MILLIONS = 0;

end;
return;
end;

end;

.SBTTL
UP.WR. COUNT :

000002

'A'g‘t'

UP.WR.COUNT COUNTING BYTES TRANSFERED

%sn.ao

: WORD.COUNT,*

3905

: WR.COUNT,*

3907

26 167116
0467040 167106

g_';

R :m828"

ADD
SuB

#24 4R . THOUSANDS
#470
4R40,
COUNT

:
:
:

Su8
INC

#1750, WR .. THOUSANDS
WR.MILLIONS

3913

:
:

6
17

RTS

3903

047040

20000

WR_THOUSANDS
= .WR_THOUSANDS

916

1%
041

WRZCOUNT = .WR_COURT - zooos.- + 20;:

15
914

926

TOPS=20 Bliss=16 v2(212)

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

WR_COUNT = .WR_COUNT + (.WORD_COUNT+2);

910

39%5
924
§92

19:24:4

: novalue =

9}1

I
W

PRy

7-Mar=1982

57-m-193$ 19:23:4

rout aiw.m.cmr (WORD_COUNT)

if .WR_COUNT

3321

SEQ 0152

m:y *COUNTING BYTES mmsrsn;o'

tmbegin

3361 04s14q

2565
3 67

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

COUNTING BYTES TRANSFERED

ohs

NOWNASES

—

VI
AU AV
STVs
58883 32LI
=8

e
—~

;XERCISER

RF ORMANC E
OMMAND INITIAT
NI
ION AND TERMINATION

167104

001750

001750
167070

167072

167062

al;

18:

8PL
CLR

5.rmms.mso

1$
WR.MILLIONS

:H 53"51':
g:u':‘ af.?:?"’r invocation: 3 0 words
X
.
i

MLXG
;

COUNTING BYTES TRANSFERED

10
3311

JT-nar-1982
7-Mar-1982

19:24:42

19:23:46

ToPS

PA:<

CZMLBBO PERFORMANCE EXERCISER

Cflg MI113

UP.WR.COUNT COUNTING BYTES TRANSFER

SMLXG
ég ;"'

:
:

rout;.milrRD_COUNT (WORD_COUNT) : novalue =
n

if .RD_COUNT

t'm\h‘"i

RD_THOUSANDS = .RD_THOUSANDS + 20:

1‘ .RD_THOUSANDS geq 1000

0
941

3:.‘%

945

947

g%9

948

950

045240

RD_THOUSANDS = .RD_THOUSANDS = 1000;
RD_MILLIONS = .RD_MILLIONS + 1;

if .RD_MILLIONS lss O then RD_MILLIONS = 0;

end;

946

end;

return;

end;

ug 29. 01

000002

;
:
:
4

5
g
:
5310

76
02 “7 167020
162767 001750 167006

538

88033; 166776

26 16703
1 ;gr Mo
1679;5

g 1§ ?82337 167004
7

.SBTTL

UP.RD.COUNT

Asmn.

%sm.no

ROV
acfr'

”‘“"‘"“
r’
78%“

UP.RD. COUNT:

027
Q43046 066700“"; 047040
167050
509 g

20000

TOPS=20 Bliss=
16 V2(212)
PA:
<ueu.E>MLX4.BL
I.S (57:

ao’coum = .RD_COUNT + (.WORD_COUNT+*2);

RDZCO=UNT
.RD_COURT
= 20000;

536

7-Mar=1982
Sr-mr-w
si 19:24:4
19:23:4

;

SEQ 0153

:
:

506

K 12
PAGE 141

. COUNTING BYTES TRANSFERED

;

29-MAR-82 13:41

ADD
SuB
al;
Su8

. THOUSAND
R . THOUSANDS , #1750
#1750, RD..THOUSANDS

CLR

RD.MILLIONS

{.,'!f

18:

COUNTING BYTES

RTS

; Routine Size:

TRANSFERED

’7623 RD. COUNTS

: RD.COUNT,*

3931

‘

29 words

3929

:
:
:
:

?g.MILLIONS

; Maximum stack depth per invocation:

: WORD.COUNT,+

0 words

34
3937
3940

ggss

3332;

3927

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE L16}12

UP.RD.COUNT COUNTING BYTES TRANSFERED

5653 :MLX4

338

COUNTING BYTES TRANSFERED

sgogéz
5659 :

95954
3;1

566? :

56 2

5663

355

9559

958

2688 :

961

gw :

sesg :

#:
scg :
5676

5677

5678 :
5679 :
5683
5684

routimilP_HC-CMT (WORD_COUNT) : novalue =

WVIiSnONY

Viawn W

8:541

TOPS-20 Bliss=16 v2(212)

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

17 . WC_COUNT geq 20000
then
begin

WC_THOUSANDS = .WC_THOUSANDS + 20;

WC_COUNT = .WC_COURT - 20000;

if .WC_THOUSANDS geq 1000
then
begin

WC_THOUSANDS = .WC_THOUSANDS = 1000;

WC_MILLIONS = .WC_RMILLIONS + 1;

3968

if .WC_MILLIONS Lss O then WC_MILLIONS = 0;
end;

3971

3972

3973
3974

end;
return;

end;

.SBTTL
UP.WC.COUNT:

28 B 01 000002
045350
0453564
045356
&syz
97
045372
g 825400
5402

$7har-1983 1934:42
3:44

wC_C OUNT = .WC_COUNT + (.WORD_COUNT®*2);

959

5690 045338 006
5691 045340
066700
seog 045
010067

5693
5694
5695

SEQ 0154

020027
422
767
162767
727
410
162767

0éaele 00508
825423 000207

16zt

047040
26

166746

001750

166722

047040 166736
166734 001750
166720
166712

gso{

%sm.no

cnp

l;gicd&%"

ADD

mb!s. .
COUNT
gg.mou"sfino?% 750

SuB
acfr'
SUB

1$:

UP.WC.COUNT COUNTING BYTES TRANSFERED

; WC.COUNT,+

#24 ,4C . THOUSANDS

:
:

#1750, 4C . THOUSANDS

INC

gg.nn’.uous

CLR
RTS

WC.MILLIONS
PC

: Routine Size:

; WORD.COUNT,*

29 words

; Maximum stack depth per invocation:

:
3
0 words

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 16}

UP.WwC.COUNT COUNTING BYTES TRANSFERED

717 sMLXG

s;}

975
976
97
97,
979

g7 8 :

g 0 :
sgg :

g&
ggg;

g7 g :
5727 :

9 0

5733
573 :
g;ss :

3989
sgg?

£ 39 :

399,
3995
3996

5741 ;

5762
5743

:
:

3997
3998

5744 :

3999

7-Mar=1

3:44

TOPS~20 Bliss~16 v2(212)

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

%sbttl 'ML11 TRANSFER COMMANDS'
routine write (LUN, WRDCNT, BUFFER, SECTOR) =
begin

!4+

ROUTINE:

PURPOSE:

ARGUMENTS:

SEE "START_IT' ROUTINE ABOVE FOR DETAILS

RESULTS:

UPON_TERMINATION OF THE TRANSFER, ERROR DETECTION OCCURS

i
|
:

iwg i
993

5738
:
5739
:
5740 :

57-flar-1 ggs }g;‘ 142

ML11 TRANSFER COMMANDS

§720
:
5721 ;
57 g :
S
:
5724 :

SEQ@ 0155

WRITE (LUN,WRDCNT ,BUFFER, SECTOR)
TO TRANSFER INFORMATION FROM MAIN MEMORY TO THE ML11

AND TO DECIDE ON THE ADVISABILITY OF A RETRY.

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 = WR_CMD;:

5745 :

4000

3048 :

4003

g;gg :

g;g ;

if .VALUE eql O then return 0;

2335

5754 :

4009

g;gs :

if ((.ERROUT) and ( not .RETRYING)) then PRINTB (FMT6, .WRDCNT, WRD16. WRD15, .SECTOR):
!*BEGAN YYYY WORD WRITE AT SECTOR 222212°

4011

g;zg :

5755 :

4010

5761
5765 045426

769
767
768

5430
045434
045436

“s«

004167

012700
010046
016646

o;sm

VALUE = START_IT (.COMMAND, .LUN, .WRDCNT, .BUFFER, .SECTOR):

if ( not .RETRYING) then UP_WR_COUNT (.WRDCNT):

!NO ERRORS AT ALL

return .VALUE;

end;
137632

000061

oooogo

000020

5771 om’‘5‘8 316646 000020

WRITE:

.SBTTL
JSR

MOV
MOV
MOV
:gg

MoV

WRITE ML11 TRANSFER COMMANDS
R1,$SAVE2

;
-(SP)
3 (SP),=(sP)

: *,COMMAND
: COMMAND,»
: LUN,*

20(SP) ,=(SP)

: BUFFER,*

m(soa l)fl

: WRDCNT,»

3976
4001

&»

ViValauaunu

IV
AW

cEsstignsR R E R R PRI S NNRR3
3 IIIIIIINY
S I3IIIINY FRE|VRR
zee22e
SggessaRyS FERSFISRR5]=£332

CZMLBBO P?R FORMANCE EXERCISER
WRITE ML1
TRANSFER COMMANDS

MACRO M1113 29-MAR-82 13:41 PAGE N1612
sMLXG

176738
000001

MOV
JSR
MOV
BIT
BNE
MOV
JSR

166644

177442
1$:

000012
134532

ML11

2s:

166602

3s:
48:

(SP)+

BNE

Qn”

z;z.sp

BIT

#1.ERROUT

BEQ
S,‘,E
MOV
MoV
MOV
MOV
MOV
MOV
MOV

3s
#1.RETRYING
2(SP) ,=(SP)
#MIRD15
.= (SP)
#URD16.=(SP)
R1,=(SP)
AFMT6,=(SP)
#5,-(5P)
gr.ao

ADD
MOV

#12,SP
R2.R

RTS
CLR
RTS

: Routine Size:

7-Mar=19

TRANSFER COMMANDS

20(SP) ,~(SP)
PC,START.IT
RO.R2
#1.RETRYING
1$
R1,=(SP)
PC y.ua.coum

SEQ@ 0156

59 words

TOPS
PA:<

: SECTOR,
*,VALUE

s VALUE

4003

4005

4007

s SECTOR,»

s VALUE,*

3976

3977

3976

PC -

; Maximum stack depth per invocation:

19:24:42
19:23:44

14 uords. .

CZMLBBO PERFORMANCE EXERCISER

WRITE ML1

19: b:4

19:23:4

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.5

(30)

I AL DRTRTR TR DI T T T L A A s

begin

ROUTINE:

READ (LUN,WRDCNT ,BUFFER,SECTOR)

PURPOSE :

TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY
USING A "READ® COMMAND.

ARGUMENTS :

SEE *START_IT' ROUTINE ABOVE FOR DETAILS

RESULTS:

i
i
i
i

i
i
i
i
i
i

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
FOR THE SYSERR ROUTINE ABOVE.

TR
T e

NN
NS

-—_-OO0
W
« Y

O ¢
N = ©
Un BN

ALTR L TRL T T

b
A=Y

7=Mar-1982

routine read (LUN, WRDCNT, BUFFER, SECTOR) =

60 &
S8 AL
60 0 6 60
50 G0 0o 0o On 6o G 06 00 05 00G 00G 096o 0565 0

SEQ 0157

37-8"-193

ML11 TRANSFER COMMANDS

319

% TRANSFER COMMANDS

MACRO M1113 29-MAR-82 13:41 PAGE 816;15

COMMAND = RD_CMD;

VALUE = START_IT (.COMMAN", .LUN, .WRDCNT, .BUFFER, .SECTOR);
if ( not .RETRYING) then UP_RD_COUNT (.WRDCNT);

if .VALUE eql 0 then return 0;

!NO ERRORS AT ALL

if ((.ERROUT) and ( not .RETRYING)) then PRINTB (FMT6, .WRDCNT, WRD17,
WRD1S, .SECTOR) ;

!*BEGAN YYYY WORD READ AT SECTOR 222222°
::ggm .VALUE;

READ:

.SBTTL

ML11 TRANSFER COMMANDS

JHS)VR

z $SAVE?

3 -

4012

MOV
MOV
MoV
MOV
MOV

(sP),=(sP)
(SP) .R1
R1,=(SP)
5819).-(59)
(SP) .=(SP)

: LUN,*
: WRDCNT,»
: BUFFER,*
: SECTOR.+

4037

MOV

-?gn

: chwom" it

PERFORMANCE EXERCISER

1 1 TRANSFER COMMANDS

MACRO M1113

sMLXG

176552

000001

;75 79 04”52
:
B8

;

884

316
045

89
893
89%

895
gg;

JSR

1$:

825756

33§

(SP)+

fiz.sp ‘

#1.RETRVING
2(SP) ,=(SP)

000005

38:

MOV
MOV
TRAP
ADD
ADD

MOV

RTS
4s:
CLR
~RTS

T0PS

iRee

4039

: VALUE

4041

4043

R1,=(SP)

BIT
MOV
MOV
MOV
MOV

19:24:4

PC gp.no.counr

000001 166414
-

MOV

: *,VALUE

fs.uenwmc

g}.mom

006376

ooosgz
005
000207

anpb

PC,START.IT

007264

045750
5754

ST
;'S‘E

-1

7#?-1335 19:53:45

a§.nz

000001 134344 28:
46

04574
045744

5901 045772
soog 045774
290 045776

[, S Y

MOV

177346

gg 5760
706 000014
o‘s;%
706 000012
5900 045
010200

8,’,}

000012

384 ol.§71
888
390

MOV

166456

ML11 TRANSFER COMMANDS

JSR

045

€13
PAGE 146
SEQ 0158

29-MAR-82 13:41

: SECTOR,+*

mt;.-(sn

#MIRD17 .= (SP)
R1,=(SP)
#FMT6,=(SP)

#5,-(5P)
ir.ao
4
#14,5P
#12.5P
R2,

: SP,*

:3
PC

; Routine Size: 59 words

: Maximum stack depth per invocation:

4012

: VALUE,*

14 words

4013

CZMLBBO PERFORMANCE EXERCISER

READ ML11 TRANSFER COMMANDS

5914 MLXG
915 ;

TOPS~0PS~20

iss=1
Bliss=16
v2(2 12)

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

begin

CHECK (LUN, WRDCNT ,BUFFER, SECTOR)

TO TRANSFER INFORMATION FROM THE ML11 TO MAIN MEMORY
28?? i: PURPOSE:
USING
A "WRITE cnecx! COMMAND.
23%9 ; ARGUMENTS: SEE *START_IT® ROUTINE ABOVE FOR DETAILS
4.85
i RESULTS:
UPON
TERMINATION OF THE mnsr: em
osrecmu OCCURS
4060 |
AND

:
:
:
:
:
:

4061

26'35

:
3
3

4065
4066
4067

THE CONTENTS OF °‘VALUE'
BE
MPORTANT IN TERMS OF
WHETHER THE TRANSFER WAS cmmu successm OR WHETHER A

;

RETRY SHOULD OR SHOULD NOT BE PERMITTED.

THE VALUES RETURNED FOR THIS SUBROUTINE ARE THE SAME AS

|
i--

4068

FOR THE SYSERR ROUTINE ABOVE.

local

:
:

4069
4070

407

28;5

2873

if .VALUE eql O then return 0;

2079

if ((.ERROUT) and ( not .RETRYING)) then PRINTB (FMT6, .WRDCNT, PHR1, WRD1S, .SECTOR):

return .VALUE;
end;

VALUE = START_IT (.COMMAND, .LUN, .WRDCNT, .BUFFER, .SECTOR):

if ( not .RETRYING) then UP_WC_COUNT (.WRDCNT):

483?
483;

.
:

5968 0460

COMMAND = WC_CMD;

'4’374

:
2

VALUE,
COMMAND;

4071

19:264:4
'9:§3=‘i

routine CHECK (LUN, WRDCNT, BUFFER, SECTOR) =

gi ; ROUT INE :

SEQ 0159

7-Har-1

ML11 TRANSFER COMMANDS

MACRO M1113 29-MAR-82 13:41 PAGE 16}3

!*BEGAN YYYY WORD WRITE CHECK AT SECTOR 222222°

004167 137256
012700

1 §}m

000051

0000

33 01839 500020
016646

!NO ERRORS AT ALL

316646 oooo%g

.SBTTL cue

CHECK: JSR

MOV

ML11 TRANSFER COMMANDS

f‘

ROV

gt&‘=n(SP)

MOV

sn.otsn

MOV

¢§6

(sm.-(sn

: *,COMMAND

: (oDe

: WRDCNT. o

: BUFFER,*

: SECTOR.+

4048
40

MACRO M1113 29-MAR-82 13:41 PAGE gdS
sMLXG

LT LLLEELE SRESERAns3R

o G

: *,VALUE

gsimmns

19:24:42

19:5 :

TOPS
PA:<

4075

R1,=(SP)
PSP
UC. CONT
(

4077
2, sp
48

g.snour

4079

#1,RETRYING

(SP;R(SP)
#IRD15,-(SP)
#PHR1 = (SP)

; SECTOR,*

P~
(7]

oD QO

q.gm.n

©»

4S:

7-Mar=-1
7-Mar=-1

ML11 TRANSFER COMMANDS

SR RRRRRRERERR:
RN NS E R ERARRE
RS RRN
S

ol oD o d cwnd e

ech b md S ek ok o

3s:

SEQ 0160

E 8

CZMLBBO PERFORMANCE EXERCISER
CHECK ML11 TRANSFER C OMMANDS

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

14 words

RFORMANCE EXERCISER

O'EN.fi
K
TRANSFER
COMMANDS
4

SEQ 0161

7-Mar-=1982

ML11 TRANSFER COMMANDS

19:24:4

57-flar-198 19:53:6

begin

1e¢

ROUTINE :

CHOOSE

PURPOSE:

DO A WRITE CHMECK' ORA "READ'.
flf’gM' WILL BE TOSELECTE
D moxxmvtu 25% OF THE

4091 !

4
4

!
!
;

DECIDE WHETHER

TIME. THIS IS ACCOMPLISHED BY E
THE LEAST SI IFICANT BITS OF A
BOT
ARE SET,
H THEN °*READ
IS '
C

RESULTS:

THE CHOSEN COMMAND (EITHER °

local

RN ();

2; 5

:g.'(‘(.M) and (.RANDOM Lss 0))

2}0

.l“VAuE = read

fig‘g’
6112

NING THE MOST AND
NUMBER.
IF

THE VALUE RETURNED FOR THIS ROUT 'E IS THE ADDRESS OF

4100
8 1

TOPS=20 Bliss=16 V2(21

PA: <NEALE>MLXG.BLI.S

routine CHOOSE =

A T PR TR TR IR ALAT A LRTR P

R TRI ) S

H, § )

601
601

MACRO M1113 29-MAR-82 13:41 PAGE 16;3

! OR °*CHECK®).

VALUE;

!CHOOSE THE READ COMMAND

VALUE = CHECK:

!CHOOSE THE WRITE CHECK COMMAND

return .VALUE:

end;

137176

000001 137264

.SBTTL

CHOOSE: JSR

045612

046000

18:

fi.m

?‘Mfl

gm.uo

#CHECK RO

: * VALUE

137256

CHOOSE ML11 TRANSFER COMMANDS

: Routine Size:

: *,VALUE

15 words

: Maximum stack depth per invocation:

0 words

CZMLBBO

MACRO M1113 29-MAR-82 13:41 PAGE ?Ss3

PERFORMANCE EXERCISER

CHOOSE ML11 TRANSFER COMMANDS

6076 :MLXG
.

D p—p—
L

144

RETRY(
COMMAND ,LUN,WRDCNT
TIM
,BUFFER,
ES,
SECTOR)

PURPOSE :

(1)

PRINTOUTS, AND
GOR12¢
ERRORS, THEN SAY
THAT THE RETRY IS BEGINNING.

(2)

REISSUE THE WRITE, HITE CHECK OR READ COMMAND
UNTIL THE COMMAND SUCCEEDS OR UNTIL ALL PERMITTED
RETRIES HAVE FAILED.

IF THE OPERATOR WAS ALLOWED
IF THE RETRY IS NOT TO CATE

(3)

IF A *BEGIN RETRY' MESSAGE WAS PRINTED,

Y
BBBBDDDD22 I

RESULTS:

(4)

INCREMENT THE RETRY COUNTER FOR EVERY RETRY DONE
WHICH WAS NOT FOR ERROR CLASSIFICATION.

(1)

TIMES - TME NUMBER OF IEN{‘E.SEPEN"ED BEFORE

(2)

OTHER ARGUMENTS ARE THE SAME AS FOR *START_IT®
ROUTINE ABOVE.

IT IS CALLED A FAI

THE VALUES RETURNED FOR

FOR THE

SYSERR ROUT

THIS SUBROUTINE ARE THE SAME AS
x@m.

b e ol
b
b e e
i
b b e o e

b e
b

THEN A FINAL

MESSAGE ABOUT THE S?CCESS OR FAILURE OF THE RETRIES
SHOULD ALSO BE PRINTED.

ARGUMENTS:

g THIS IS THE CODE FOR PURPOSE 1:

RETRYING = ACTIVE;
if ((.TINES

then

begin

TOPS=20

Bliss=16 v2(212)
PA: <NEALE>ML
X4.BLI.S (33)

n ]«

ROUTINE :

WSy

begin

ki o
e
D o
d e
el wnd

routine RETRY (TIMES, COMMAND, LUN, WRDCNT, ”ng. SECTOR) =

) ) ol Gud) cmod e oD

R
SVRU!RTUNNY VB®NOINSWNN=O3B23RSRS

gasssacaacasee ooooccaee
geoecas

7-Mar-1

19:26:4
57-fllr-138 19:53:&

ML11 TRANSFER COMMANDS

e e e R B R SRS s
vo
o aed B = wml owed e
2BBETRRRTNEE Y0 337N SREREE TR
-5
VSN
- OO
NO NI

322

-§33 v

SEQ@ 0162

1) and (.ERROUT))

e 2«

ORMANCE EXERCISER

ER COMMANDS

MACRO M1113

29-MAR-82 13:41

M 13
PAGE 151
SEQ 0163

Sar-iofs

=833 JUNANIITS2So
W

193

if .COMMAND eql write then PRINTB (SAY3, WRD2, WRD16, WRD18);

D D e

BBBBBEDBEDDDDDDDDDDDDIDNN Y
N NV Y VY BEBDDDLDLDDDD
DN

!BEGIN WRITE RETRY

) ) ) D e

!BEGIN READ RETRY
end;

D o

Ry
e T A et g

cod evd wmeh mod wab ends e

) e e

if .COMMAND eql CHECK then PRINTB (SAY3, WRD2, PHR1, WRD18);

if .COMMAND eql read then PRINTB (SAY3, WRD2, WRD17, WRD18);

!BEGIN WRITE CHECK RETRY

In 2 »

5 THIS IS THE CODE FOR PURPOSE 2:

LOOP :

begin

e 3

incr KOUNT from 1 to .TIMES do

begin

in 4 »

if .COMMAND eql write then VALUE = write (.LUN, .WRDCNT, .BUFFER, .SECTOR
) ;

if .COMMAND eql CHECK

then

b vy cmed o wad b

BRI

write (.LUN,

.WRDCNT, .BUFFER, .SECTOR):

VALUE = CHEEK TM (.LUN, " .WRDCNT" .BUFFER, .SECTOR);

..Q.Q.........0..........-0-.......-i..-.o..l.....toi. LRI A TR TR L P T T

T T I

&»H

-t

acoococccceaooo 2

L TR IR L ) AR TR LR TR TN TR TN TN T

ML11 TRANSFER COMMANDS

write (.LUN, .WRDCNT,

(.BUFFER - BUFSIZ*2),

.SECTOR):

mtdw = read (.LUN, .WRDCNT, .BUFFER, .SECTOR):
s

g THIS IS THE CODE FOR PURPOSE 3:

if .VALUE

then

begin

eql 0

if ((.TIMES

then

bo,in

!Tng RETRY WAS SUCCESSFUL
I

PRINTB (SAY2,

1) and (.ERROUT))

PRINTB (CRLFS;

WRD18, WRD19);

CZMLBBO PERF

EXERCISER

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

CHOOSE ML11 Mmgu COMMANDS
SMLXG

TR T A I
L R T LTI AR LR LR T P
L L T L T R TR IR R L AR LA TR TR P T T

19:88:48

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

'RETRY SUCCEEDED
end;
COUNT = _KOUNT;
leave LOOP;
end;

n § «

end;

o
4 »

‘e

; FALLS THROUGH HERE IF ALL RETRIES FAILED:

if ((.TIMES neq 1) and (.ERROUT))
then
bo'fn
PRINTB (SAY2, WRD18, WRD20);

]

! VER CZMLBB COMMENTED OUT THIS PRINT CRLF
!
PRINTB (CRLF);
'RETRY FAILED
COUNT = .TIMES;
end;

end;

i3«

2 THIS IS THE CODE FOR PURPOSE &:
if .TIMES

then

TBANK = .BANK:

DECODE (.SECTOR);
TRIES [.LUN,

.BOARD, 0, 16, 0] = .TRIES C.LUN, .BOARD, 0, 16, 0] + .COUNT:

BOARD = . TBOARD;

T
AR T AT
A TR TR

7-Mar=19

ML11 TRANSFER COMMANDS

;

SEQ 0164

RETRYING = INACTIVE:

::surn VALUE;
:

-SBTTL

RETRY ML11 TRANSFER COMMANDS

giDUS§MY0BTofbSy8,$o]oTd,T08STFEB-:m
;s

”’.

°°°¢l

o-=vgy ~- -.- .~- Wewv €0O-=

8iy Rg So

mm5m55u8?%.28n%m.8uniuswMgc2Ealscn8ltm3oEwlsctl?cs3.lmrael.msugn3gsagesms3Pme1%_s4Ro’mev1o5n‘8ul31i?3o“Sn.RzT5S_RI3SAR02Y.eB8(#E=W].-iBsis2’
COMMAND
,»

”.'

T
%’FER
CTOR

"M o w

Snar-1983 e

SP,»

OUN

=l o

e ..

a0o~

s TIMES,+

1 1’,‘mmm1 m3 ge g g

gBSeI¢sEl%%ToEeTs%R9o1R012T-(»-4&et=f5loT@5R3I58)NX5TeeS5IR-8~50%NoO0~N%TaR5S435R5NTLo5late5Ale2Nta0le9Nte¢e%Pal
39sS=8¥=&E&.§s. N Yo£TJ3838§z8= E89533%-3 3« 3«Z8L3<S83+Z8E35S5%

w-2[m1‘TnV-sa”ms“uus0t‘me1cueo!m0Sw*n.siumge%CwiazImMWv‘.esmw»2mVs»TmywsOme.5wsCPme£bgewsbg:,=tmWa2cDa&wHS2mSa[t=,a8dSr=t5aLlwNc=tOtamaS)0wEs5XWAm0wOCA8amtA12aItm8s0WLmSmSotamW[t~aDm8mS*2e>maLc,8tLmat3wLac8sImRS8NAst3a-Acma3NAta8sL,m%S
g e 2 © 8 y 5 8 ¥ 82
Uden

oocloo.l

R
MACRO M1113

sMLXé

29-MAR-82 13:41
PAGE 154

K13
SEQ 0166

ML11 TRANSFER COMMANDS

Srmar-1983 19:35:42

TOPS
PA:<

:42
1982 19:24
19:23:44

4233

: SP,*

ONOTM
NN

§°°°SRSR
\'g=2S8
purt

700

TOPS
PA:<

133262

N
& VIS

WNWNNNH
NS

7=Mar=1
7-Mar~

ML11 TRANSFER COMMANDS

—

b e

h b

OO0

000001

SEQ 0167

000010
000001

; *,COUNT
108:

165276
165274

; *,TBOARD
s

170116

TBANK

: LUN,*

165242

?no.no

033714

RS,TRIES(RO)
R1,BOARD
R2.BANK

165230
165226

165214

: SECTOR,«

000030

238

RRRRRRRRRRRRRRR
SYNINNNNNINS

oasaasssxmaéé *3
sS33

gfiggfiggfiggfiggfiggggig:hrthgzgb
-

&
IR o

MACRO M1113 29-MAR-82 13:41 PAGE 5513
sMLXG

V4 Y 3

e
-

XERCISER

ORMANCE E
RANSFER C OMMANDS

11s:

COUNT,
»
TBOARD,*
BANK

(SP)+

:Sr%xus

VALUE,
*

(SP)+

; Routine Size:

227 words

; Maximum stack depth per invocation:

14 words

CZMLBBO PERFORMANCE EXERCISER

RETRY ML11 TRANSFER COMMANDS

6399 :MLX4

agg ;
6402 ;
6403 ;
6404 ;
6405 ;
6406
:

MACRO M1113

29-MAR-82 13:41

M 13
PAGE 156
SEQ 0168

TO SET UP BUFFER POINTERS BEFORE A TRANSFER

7-Mar-1982

Zsbttl *TO SET UP BUFFER POINTERS BEFORE A TRANSFER'
routine SET_PTRS (WRDCNT) : novalue =
begin

3283:
6409 :

4261
4 6§
426
4264
4265

229

ROUTINE:

4 63

PURPOSE:

&4}5 :

2 7?

2«.”}2 E

2 ;g

ARGUMENT:

6415 :

4276

RESULTS:

6410 :

4 9

6419 :

4275

&1 ;

573

6419 :

4278

6424 :

4283

6422 :

223}

4284
4285

'S
28

6425 ;
& 6 ;

'++

TO MAKE SURE THAT THE BUFFER POINTERS ARE SUITABLY PLACED

BEFORE A_TRANSFER,

SO THAT THEY WILL SUPPORT THE CHOSEN WORP

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.

NOTE:

OTHERWISE, THEY ARE LEFT

THE WRITE BUFFER IS LOCATED BEFORE THE READ BUFFER.

it (LWPTR + .WRDCNT*2) geqa END_WBUFF then WPTR = WBUFF;

RPTR = .WPTR + (BUFSIZ*2);

return;
end;

006300

3"4.1.0 04;;;3

?5?253

022670

w.§

7160

016700

163504

22"5

7174

000207

u.gg 047140 ourog 163524

6441 §§nsz 012767 o;ggro 163510

644 om;‘ 062700 013200
644k 3’4’" 0 010387 163476
6448

SET_PTRS (WRDCNT)

047136

“:g

TOPS=20 Bliss=16 V2(212)

PA:<NEALE>MLX4.BLI.S5 (34)

COUNT WITHIN THE BUFFER SPACE.

23; 07135 016600 000002
6437

19:24:42

57-»»1935 19:33:“

.SBTTL

WISy

,
SET.PTRS TO SET UP BUFFER POINTERS BEFORE A TRANSFER

ASL

gg.téno.wun

ADD

MOV
MoV

ADD
MOV
RTS

WPTR,RO

#WBUFF ,WPTR

WRDCNT, #
‘

4281

WPTR, RO

4283

4262

#10000, RO
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

6434 MLXG

6455 ;

664.‘;:5

G283 RIR

Zsbttl "CHOOSING A WORD COUNT'
begin
local

TEMP,
WRDCNT;

6494

RRRR
8RLR

6495

H (BUFSIZ/256) gtru .TEMP
en

. WRDCNT = . TEMP*256
WRDCNT = BUFSIZ;:

turn

655

000004

047226 01

0002

004000

ILESS THAN A FULL BUFFER LEFT?
!YES == USE AS LARGE A COUNT AS FITS

eLse

10 0
000010
16 103003
,
1
1

047222

!NUMBER OF SECTORS LEFT TO TEST

g version czmlbb changed gtr to gtru

32;};" 016600 000002

6490
6491
uo;
649

TOPS~20 Bliss=16 v2(212)

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

routine GET_WRDCNT (SECTOR, LAST) =

4305

19:24:42

7-H0r-1935 19:53:44

233:.

“ugs 04

7-Mar-1982

TEMP = _LAST - .SECTOR + 1;

BBDDDDD
DS BB

AL TR TN T
A

22%

SEQ 0169

CHOOSING A WORD COUNT

AR LE TRT TR TN T T T T

42?(1)

N 13
PAGE 157

INO

== USE THE ENTIRE BUFFER SIZE

.WRDCNT;
.SBTTL

GH'“%@

fu"&

MP
BHIS
SWAB
CLRB

1$:

RTS

MoV

RTS

GET.WRDCNT CHOOSING A WORD COUNT

2(SP) R

4(SP) :ng
1

#4000,R0

4294

: TEMP,*

4299

4301

: SECTOR,»

* *,WRDCNT

~ PC

Routine Size:
14 words
Maximum stack depth per invocation:

: LAST,*

:
0 words

4303
4287

(CZMLBBO PERFORMANCE EXERCISER

GET.WRDCNT CHOOSING A WORD COUNT

6507 :MLX4

6510
6511 ;
6 1;
621
6514

3
e

25}5 :
o

621? :

6518
6519 ;

“

k2
.

.
L4
3
.

L
-

L4
-

.
-

L
B
.

.
-

L4
L4
.
-

L4
.

L4
ks
.
.

L4
«

L4
L
.

L4
.

L
-

k3
.

L4
-

.
l
L4
.
L4
L4
L4

L4
-

.
.

L4
L4

29-MAR-82 13:41

10
11

7-flar-l9

7-Mar-1

xms *COMMAND INTEGRITY ROUTINE®
tine INTEGRITY : novalue =
in

144

ROUT INE :

PURPOSE :

THE CODE FOR "INTEGRITY' IN BRIEF:

1 «~

19:24:42

19:5346

START OF ROUTINE

INTEGRITY

15
}9

PAGE 158
SEQ 0170

COMMAND INTEGRITY ROUTINE

TO MAKE SURE THAT THE BASIC ML11 TRANSFER COMMANDS

WHICH WILL
WRITE CHECK)

USED BY THE EXERCISER (WRITE,READ,
WORK PROPERLY.

SAY RolrIN15E RUMING

INCR COMPLEMENT FLAG FROM 0 TO 1

: BEGIN 2 (START OF COMPLEMENT FLAG SELECTION LOOP)
GENERATE THE PATTERN
INCRLOGCM.MTWRFMOTOLAS
*G{fw(flhfl’ OF LOGICAL UNIT SELECTION LOOP)
B0 00 %0 20 0 NE S0 P8 S0 B0 %0 8 0 ..q

MACRO M1113

BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
l.F‘WlT IS ACTIVE
: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
: SECTOR = LOWEST
: GET_WRDCNT

WRITE

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
g?:nm
ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
:

WIT LEAVE TESTLOOP)
EflS(Efl ES{
fGMMY
W)
E
THAT COMPLETELY TESTS 1 UNIT)
END (EDOF I.“JCAL UNIT SELECTIONLOOP)
mg

DROP

END 2 (END OF COMPLEMENT FLAG

SELECTION LOOP)

TOPS~

iss=1

(21

PA:QZ&EH,’“,&}R2( )

|
‘
|

3 |

0§

CZMLBBO PERFORMANCE EXERCISER

GET.WRDCNT CHOOSING A WORDCOUNT
6563 :MLX4

2% :

gssgz :

6569 :

6566 :

6570 :
2;;1 :

2 0

4359

mma (SAY2

incr r.ar_FLAG from 0 to 1 do

4
2

gg;g

390

3
2

6589

6590
ggg1

659

659%

6595
659

6599
6600
6602
660

&80
8208
6608
6610
&1z

6614

i
i

4371

437

437
4374

4375

4376
377;

4379

33?

4333;
2

4339

433&
4389
4390
&H

6586

gssg

0% % 0,% 000, AR
TR TR T T TR T P TR PR PRI AR

658

65
ggg;

e Ve N0 90%008%

65
6581

TR AR TRLR TRTR DR TR TIAE T

323

578

439

439
: §
4395

‘
4200
4401

a4
4

pr
44

o
4410

RTNO);

33
GEN3
(.COMP_FLAG);

6329

579

4:4

57—:4"-1935
19:53:4

TOPS=20 Bliss=16 v2(212)

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

RUNNING caflwoINTEGRITY ROUTINE®

657 3

SEQ 0171
7-Mar=-19

COMMAND INTEGRITY ROUTINE

gg;g

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

incr LUN from 0 to (.LSUNIT = 1) do
begin

! 2 «

START OF COMPLEMENT FLAG SELECTION LOOP

!~ 3 «

START OF LOGICAL UNIT SELECTION LOOP

! 4 *

START OF LOOP THAT COMPLETELY TESTS 1 UNIT

begin

if .DRIVE_STATUS [.LUN] eql ACTIVE

then

bgti
UN =

!~ 5 «

.LUN;

SECTOR = Loutsr-

START OF TEST FOR AN ACTIVE UNIT

WRDCNT = GET_WRDCNT (.SECTOR,. muesn
:
VALUE = writé (.LUN, .WRDCNT. WBUFF, LOWEST):

SEE HOW SUCCESSFUL THE WRITE WAS:

selectone .VALUE of

1SEE "SYSERR' FOR DEFINITION

set

- 10F ERROR # CONTAINED IN *VALUE®

€1 :

begin
!= SA * RETRY ALLOWED
if RETRY (SIX, write, .LUN, .WRDCNT, WBUFF, LOWEST) neg 0
then
I'THE RETRY FAILED =- SYSTEM FATAL ERROR
in

Ol DROPT [.LUND = CODE 4:
em
i
RBST,
0); TeSte’ INTEGRITY ROUTINE EAMOR 0 sese
o LD
1JUWP JUST BEYOND END OF BLOCK * 4 +
end:

ond;
(21 begin
:

e SA

is
DROET [.LUND = CODE_S; 58 % FATAL' CONTROLLER ERROR == NO RETRY ALLOWED
ERRD
(2. F WG1, 0);
~feses INTEGRITY ROUTINE ERROR 02 wevs
&Io've LOOP:°
{JUBP JUST BEYOND END OF BLOCK « 4 »
’

o BRAOF
S (3. msG1.

)

0);

I 5C *INTELATTO
FATAL DRIVE
ERROR-NO
== NO RETRY
leess
RIVE ERROR
RETRY ALLOWED

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
GET.WRDCNT CHOOSING A WORD COUNT

6619 MLXG

29-MAR-82 13:41

PAGE

SEQ@ 0172

7-fll r -1982
7=-Mar-1

=
RERRRRER
SRR SERRERRERRRR
ERESRRREE
B
S S S
S
§
RS
QR
VIS
N OO NONN
S NN -

COMMAND INTEGRITY ROUTINE

"353:
19:24:4
‘2

TOPS~20 Bliss
iss=1
-16 v2(2
(212)
PA:<NEALE>MLX4.BLJ.S ( )

WHY _DROPT [.LUN] = CODE_6:;

pobD (.LUN);
leave LOOP;

tes:

!JUMP JUST BEYOND END OF BLOCK « & «

end;

'n 5C «

VALUE = read (.LUN, .WRDCNT, RBUFF, LOWEST):
e

SEE HOW SUCCESSFUL THE READ WAS:

selectone .VALUE of

1SEE "SYSERR®' FOR DEFINITION

set

!OF ERROR # CONTAINED IN °*VALUE'

ol :
:'f'
(DBL_VALUE = DOUBLE_CHECK (WBUFF, RBUFF, .WRDCNT)) neq 0
SA

PRINTB (SAH *ns65) ;

1ECC LOGIC h\u.eo fo peTECT om em'

m8 (

.DBL_VALUE
ALUE) ;
sooo DATA. xxxxxx
AT LocAfxonmm'

VALUE =
mm
mménm.us : aursxz-z.DBL"VA
LUE);
#»»AT
Lgc
f
10N
a8acQ*
, unr onopr
L%N
JODE

ERRDF (

0); !sx%x" INTEGRITY ROUTINE ERROR 04 s+

DODU (. wm

:::VC LOOP

!JUMP JUST BEYOND END OF BLOCK * 4 =

1] :
begin .

! 5D « RETRY ALLOWED

ff RETRY (SIX, read, -Lw

b"f

.WRDCNT, RBUFF, LOWEST) MR 0

fflf RETRV FAILED == SYSTEM FATAL ERROR

T £, l.

] = ODE_4:
ERRBF
(Sm’ . 0); '"‘*
INTEGRITY ROUTINE ERROR 05 x#xx
mn LOOP
'JUMP JUST BEYOND END OF BLOCK * 4 *

end;
2] :

be i

v 5D

— ;g SE * FATAL CONTROLLER ERROR =- NO RETRY ALLOWED

mnr' (:6. née%'.' 0);

~lasas INTEGRITY ROUTINE ERROR 06 s+

XERCISER

EEZT.WC“T’E.EMSI“: E WORD COUNT
66;5 5!ul.

66;8 :
66
:

4463
.

446

6691 :
:

44
6471
4
44
4474

4475

647
46

()
[}

3
:

6 3

8708

19:24:4
13=$§=‘€

7-Mar-1

DODU (.LUN);
Leave LOOP;

end;

'JUMP JUST BEYOND END OF BLOCK * & #

beate

!s 5F = FATAL DRIVE ERROR == NO RETRY

mw (7, MSG1, 0);
WHY

iv SE «

Ixsas INTEGRITY ROUTINE ERROR 07 w#ws S

0000 (.LUN):
leave LOOP;

end;
04l :

;

1an “

1JUMP JUST BEYOND END OF BLOCK * & «

i 5F =

!* 56 * UNRECOVERABLE DATA ERROR

ERRDF (8, MSG2, 0):
Iaxxs INTEGRITY ROUTINE ERROR 08 wews
WHY DROPT [.LUNI = CODE_7;
0000 (.LUN);
Leave LOOP;

'JUMP JUST BEYOND END OF BLOCK * & +

begtn

'* SH = RECOVERABLE DATA

end;

i58Ave o

v 56 »

if .ERROUT then PRINTB (FMT108, .CHAN):

prts|

e
BIT QQ'
OLDSEC = .MLEL:
OLDCHN = .CHAN;

T
449%

2 :
ge:

714 :
§715 :

“33
4

TOPS~20
Bliss=16
v2(212)

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

DROPT [.LUNI = CODE_é;

&3]
6701 ;

SEQ 0173

s 7-Mar- 1

COMMAND INTEGRITY ROUTINE

S :
:
3
3
s

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

:’fm‘lflnv (ONE, read, .LUN, .WRDCNT, RBUFF, LOWEST) egl S

:.fn'('(.fl.fil. eql .OLDSEC) and (.CHAN eql .OLDCHN))

begin

719 3

6501

if .ERROUT then ERRHRD (9, MSG4, 0);

gngt-

!aseax INTEGRITY ROUTINE ERROR 09 #wes
UP_HARD_COUNT (.LUN, .BOARD):

6
6
)

:
:
:

4
4
2

end

else
begin
it .ERROUT then ERRSOFT (10, MSG3, 0);

[

6515

4514

!eaxx INTEGRITY ROUTINE ERROR 10 xexe
elfiaS!)F'l’_(ZGMT (.LUN, .BOARD);

29-MAR-82 13:4.

F 14
PAGE 162

SEQ@ 0174

7-Mar-1982

19:24:4
7-Har-19gs 19:53:
6

OO~

else

GO NN SN
-

begin

Inkan gNTEGRlTY ROUTINE ERROR 11 wwee
SOFT_COUNT (.LUN, .BOARD)

TOPS=20 Bliss=1

6 v2(212)
PA:<NEALE>MLX4.BLI
.S (36)

if .ERROUT then ERRSOFT (11, MSG3, 0);

YIS

v«\nv'&vwwo\nvnuvoWAWAAIA

A A
A
P

4535

.NW:

end;

! 5H

tes;

VALUE = CHECK (.LUN, .WRDCNT, WBUFF, LOWEST);
e

;

SEE MOW SUCCESSFUL THE WRITE CHECK WAS:

selectone .VALUE of
set

1SEE_"SYSERR' FOR DEFINITION
!OF ERROR # CONTAINED IN 'VALUE'

€1 :
begin

!* 51 = RETRY ALLOWED

if RETRY (SIX, CHECK, .L UN, .WRDCNT, WBUFF, LOWEST) ne
then

!THE RETRY FAILED -~ SYSTEM FA?AL ERROR

&W'&m C.LUN] = CODE_4;
ERRDF (12, MSG1, 0);

SEREX

{exsx INTEGRITY ROUTINE ERROR 12 w#ws

In 5] »

o §7 5J * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED

;

~ =

{JUMP JUST BEYOND END OF BLOCK * 4 =

W= OO

&gaaa“a““
S OB
U AR raiviv =

DODU (.LUN
leave LOOP;

L A T

R AR LEATE TR TR TR TRLR P T T T P T

R TR I L VeV e te Ve e tane v,

COMMAND INTEGRITY ROUTINE

AR TE TRT TR P T L

CZMLBBG PERFORMANC E EXERCISER
MACRO M1113
GET.WRDCNT CHOOSI NG A WORD COUNT

“lassx INTEGRITY ROUTINE ERROR 13 s
1JUMP JUST BEYOND END OF BLOCK * & +

s §5) »

Efiaor (14, MSG1
in

WHY_DROPT [:LUN

00pD (.LUN):
leave LOOP;
end

[4] :

g¥

!s SK * FATAL DRIVE ERROR -- NO RETRY ALLOWED
b é'-'"' INTEGRITY ROUTINE ERROR 14 s

{JUMP JUST BEYOND END OF BLOCK * & *
I 5K »

CZMLBBO PERFORMANCE EXERCISER

GET.WRDCNT CHOOSING A WORD COUNT

6787 :MLX4

end;

&798

peiss
4.5;9

19:24:4

19:53:&

TOPS=20 Bliss=16 V2(212)

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

! 5L * UNRECOVERABLE DATA ERROR

WHY DROPT C.LUN] 0);
= Cope_7;!#wx« INTEGRITY ROUTINE ERROR 15 #wws

ERRDF (15,°MSG2,
Leave LOOP;

€53

begin

1JUMP JUST BEYOND END OF BLOCK * & +

in 5 w

!« SM « RECOVERABLE DATA ERROR

ISOLATE ();

379

if .ERROUT then PRINTB (FMT108, .CHAN):

4581
4

'
BIT Q@'
OLDSEC = .MLEL;

OLDCHN =

SERSE

679’

?. 1an }"

pODD (.LUN):

4 g

SEQ 0175

57-n.r-19

4
4571

6795 :

4
7-Mar-1982

COMMAND INTEGRITY ROUTINE

grmoo :

67735
679

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

YT YN

.CHAN:

::..:ETRY (ONE, CHECK, .LUN, .WRDCNT, WBUFF, LOWEST) eql S

if ((.MLEL

4389

then

eql .OLDSEC) and (.CHAN egl .OLDCHN))

if .ERROUT then ERRHRD (16, MSG4, 0);

4596

!«xxx INTEGRITY ROUTINE ERROR 16 ##2s

2;95

%m_cmm (.LUN, .BOARD);

229

.l“bogin

if .ERROUT then ERRSOFT (17, MSG3, 0);

Iaswx INTEGRITY ROUTINE ERROR 17 wesx
UP_SOFT_COUNT (.LUN, .BOARD):;
,

end

else

begin

pv it

if .ERROUT then ERRSOFT (18, MSG3, 0):

4611
g;;

!xxax INTEGRITY ROUTINE ERROR 18 wx2e
.u':a§0FT_CMT (.LUN, .BOARD):;

4614

4615

fi}’

4618

tes;

end;

e 5N«

5«

END OF TEST FOR AN ACTIVE DRIVE

CZMLBBO PERFORMANCE EXERCISE&,"MCRO M1113
GET.WRDCNT CHOOSING A WORD C

H1 “
PAGE 164

SEQ 0176

7-Mar=198

19:24:4
37—:4.:--192 19:53:45

COMMAND INTEGRITY ROUTINE

sMLXG

29-MAR-82 13:41

%
1

END OF LOOP THAT COMPLETELY TESTS 1 UNIT
i 3 * END
OF LOGICAL UNIT SELECTION LOOP

'«

AR LR TR

TOPS=20

Bliss=16 v2(212)
PA: <NEALE>M
LX4.BLI.S (36)

.SBTTL
INTEGRITY:

JSR
suB
MOV
MOV
MOV
MOV
MOV

a?
R1,=(SP

CLR

gg‘

MOV

R&,RO

034442

ADD
MOV

mm.§mus.ao
RO,=(SP

177770

8IC

#177770, (SP)

ADD

PC,BLSGT2
#10,

002110

000001
135

000010
132510

034460

00005

000020

2s:

JSR
MOV
JNP

ASR
ASR
ASR

=
JSR
DEC

fiv

'« 1 «

END OF ROUTINE

:
;

4308
4359

; SP,*

COMP.FLAG

)

PC,GEN3
LSUNIT,20(sP)

: COMP.FLAG,*

4362

4366

; LUN

4364

: LUN,*

437

LUN,*

4374

: *,SECTOR
SECTOR, *

4376

RG ., LSLUN

MoV

R4 ,.RO

MOV
ADD
MOV
MOV

O, SECT,R2
R2
(R2) ,22(SP)

ASL

END OF COMPLEMENT FLAG SELECTION LOOP

R1,$SAVES
#12,5P
#RTND,
= (SP)
MIRD34 , - (SP)
ogAv =(SP)
#3,-(5p)
gh.ao

Ha”

172170
132510

!~ 2 «

INTEGRITY COMMAND INTEGRITY ROUTINE

MOV

18:

22(SP)

,-(SP)

s LUN,»

4375

W WW&~S.ga
_s=esge§oa5‘E%sntees4;ate29e8sTST3y~§TTL5-§2T~§ T=oTc%se3"os3azca8sTt
000006

000012

[asR

< A

~~ ~ ~

aNSm-NgSwm7mmm,% .....lq.lc.l.m..7~m77%77m.77-m7777m-7m-7-mw
mao~-sgms-tamudL~2>m—®)mBsuomatmen,m:mBmsLr[=>g)mnoemtnmmB.wtu-—>[2omnwsmnifltwmv--SA~wow~.ew~dw~wMm“.roWJml.s~.1uw-~ma,'m~-v—~im
>eaE 2-s~ To|e -3w=~3-2>=st 22o-~ wks-2J2>w E8Jr+-.
ggflstk
MACRO M1113 29-MAR-82 13:41 PAGE {6;&
TY ROUTINE
JMLXé

034446

R4
R3

SEQ 0177

COMMAND INTEGRITY ROUTINE

S nar-1983 g o

TOPS
PA:<

4377

4383

4389

4358

4394

“0§

4404

4
“

4610

4411
4412

4413

417

ORMANCE EXERCISER
COMMAND INTEGRITY ROUTI

SEQ 0178

7646

022670

(R2)

1
SRR

176446

PC.DOUBL
. CHECK
E

P .: AD

R3,=(SP)

034446

T L LR

2BN:ig

ddddd b

'?z'(sn

: ~ ,VALUE

Gl L
=
7
-

4423
4428

WRDCNT, +
*,DBL .VALUE
LUN,*

4431

4432

DBL.VALUE,*
DBL.VALUE,*

SP,#
*,DB
. VALUE
L

DAL .VN.‘E.'

DBL.VALUE,*

SP.'

«,=(LUN)

LUN,*

VALUE, *

022670

TOPS
PA:<

,-(SP)

Gl 175754

000010

19:24:42
19:23:44

ou%n =(SP)

;

3333398

7624

e
= )

7=Mar-1982
7T=Mar=1982

COMMAND INTEGRITY ROUTINE

%‘tit.-

4434

MACRO M1113 29-MAR-82 13:41 PAGE K16;14
sMLXG

00006 034446 118:

128:

034446

70
70
70
70

138:

7
70

®3

7785‘?

7044

000004

167112

7045

000007

034446

V= O

70458

000006

e
)

131766

7=Mar-1

5 7-Mar-1

COMMAND INTEGRITY ROUTINE

SRR
T
TV 85 TR

108:

SEQ@ 0179

11$

24%

Og.WV.DROPY(M)

1
1

42
&4

TOPS
PA:<

*,«(LUN)

4451
4452

51°

LUN,*

4453

T35

VALUE,

4454
4423

MSG1

8.0
15$%

g +WHY .DROPT (R4)

*,*(LUN)

Rs61
8.R0
51°

LUN,*

fas"

VALUE,
*

4461
4462

158

oflfil
+WHY .DROPT (R4)
RO

b
158
n
1
Pg.lS&ME

*, % (LUN)

VALUE,*

fhis

g SOLATE

71 ERRGUT
1

ML .REG*+42,R0

4472
4423

4477
4478

0
sSGZ
#7 ,WHY .DROPT (R4)
RO
1

4470
4n

*, *(LUN)

LUN,

4479
4480
4481

VALUE,
*

4423

?'A‘CRO M1113 29-MAR-82 13:41 PAGE %6‘“

sMLXé

18s$:

177700
oooos?

3222%2
022670

175576

000014
163746

000036

76873

177700

000001

131546

19%:

§§§§§§23§%2255%33R3R 3833333332 4235553883833=%

000036

2533

w RNEE IRE

7=-Mar-1
7=Mar-1

COMMAND INTEGRITY ROUTINE

19:24:42
19:23:44

TOPS
PA:<

R
#177700,R0

RO -(555
#FAT108,~(SP)
#2,-(SP§

SP.R
1%
#6,5P
oML .REG+44,36(SP)
aML .REG+42.R0

: SP,»
s *,0LDSEC

: *,0LDCHN

44N
4492

4494

s LUN,*

F,=(SP)

s WRDCNT,
=

(R2) ,~(SP)
PC ,RETRY
”Mé,

RO#S
21%

.REG*+44,36(SP)

s *,0LDSEC

(SP) ,~(SP)

-2 OLDCHN,*

aML.REG+42,RO

4497

#177700,R0
(SP)+

#1 ERROUT

4501

s LUN,*

4504

i2<

SEQ 0180

4497

9k5i8%-&->w]LmomFYdmdnm.”w2.-u'4.sv&Ll2~”1mMnwmnB0m-~2wn«wSn(nm=]srawWLSeai4[g-cRgne4s[+i=
-~

w 'o m .la Wfic oln

S-A &@ -N oS- -N “M-m6r ~ o[

nn,.al2Raqulmmns-uumnrgus33mognqun8m$m~2emNonm.mnelarssmnzcnalunmymN>u3lnosmnw15oommn8Nao7cugnlg.mPTl[of].n*llu.w.lmrn.ONluC=w~wn%=RmmR2’rnOm3N-nlVwc4s(O§ulND~n2oawWyVelMnB.mSlw(~&Rn.a'Nm“namL(NuS)n~s-Sa&o(=uesg_5=~-]RnSs3m8awsRRuNR8s“SERou.&N8oe2e=Rs”NRueRr4£yeR
--&4a~b &4--b ‘Qs.~2'~Sa 'lt\”elV3LO2T =L == o~—"
e&-= ee%S-=at~(I>LRl--‘5el Sat*A-«e4 ‘lwaatctm|s‘se2-ta tow«altm-se L-)EYlbS s‘e 4
[-& - g ¥

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
INTEGRITY COMMAND INTEGRITY ROUTINE

29-MAR-82 13:41 PAGE "16;‘
SEQ 0181

TOPS
PA:<

4509

512
518

4521

435

4527

4533

4539

4542
4543

4544

4545
4533

4338

455

4554

CZMLBBO PERFORMANCE EXERCISER

INTEGRITY COMMAND INTEGRITY ROUTINE

SEQ 0182

7179

JMLXG

268:

764

7185

0507
ng s
71
7 §§8m

71
71

331

05101

7199

278:

051
051
051
51

1 051042

112764

}322

3
'

7206 05105

7207 g}gé

3 031138
1124
11

1140

0511
11
1
11

i
H

117

4560

1
zgs

MOV

4.RO

000005

533 | g:

166250

000007

640
2
~

o
163236

;

83833

298

s§

WORD
1
.WORD ~ MSG2
JWORD
0
MOVB
#7.WHY.DROPT(R4)

034446

PC,ISOLATE

MOV
ASR
AR

@ML.REG+42,R0

ASR

308:

JSR

AR
BIC
-

#1.ERROUT

OPAT
§§, (SP)
#2,-(SPS

B
MOV

oM .REG+44 , 44 (SP)

MOV
ASR
ASR
ASR
ASR

i
%5

MoV

4561
4562
4563

4533
4568

4569

: %, %(LUN)

4570

‘s

: LON,*

4571

: VALUE,*

4577

4579

#177700,R0

WY
MOV

MoV

PC, ISOLATE

BNE

4533

; %, %(LUN)
: LON,*

TRAP

177700

05111

DROPT(R4)

TOPS

PA:<
4555

JSR

163312

g%% °’H§
19 gmz

TRAP
B8R

4.RO

19:23:44

: VALUE,*

033501 131170 .

200
0513
10 3? 76
7513 031109
15

19:24:42

RS, #4

7505
031046 0005es
%

9
’

BNE

a; #3

37-n.$-19

(WP

7195 051
7197
7198
7199
7%30

288

(WP

MOV

719 °§181

7194

B8R

5
e
1
.WORD MSG1
JWORD 0
MOVB
#6,WHY.

034446

7=Mar-1

COMMAND INTEGRITY ROUTINE
TRAP

7191
051
mg 851 1

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

@ML.REG+42 RO

n 7:’?2#')'0

3?:- SP)

: SP,%

: *,0LDSEC
:

: *,0LDCHN

4553

4585

| cZMLBBO PERFORMANCE

CRO M1113 29-MAR-82 13:41 PAGE ?71

SEQ 0183

0osaho8fl5u.s@#falfin.0s)hyoIR2nN0y8tBaRI&Ba86n03g0nBC.RseRA-SgIa38PeyNhRa2.An,£RE8-

XERCISER
MA
INTEGRITY COMMAND IN EGRI TY ROUTINE

it R

ANNA N NANt

K.258:%s= RSOgMS [emsP)2SR e: UoE-G0i€ISB3.52R5T,I.NS

MLXé

TOPS
PA:<

8 g

3 2

163150

000044

318:

328

4588

4592

4595

4,588
4600

prec

4612

4
&

CE EXERCISER

MCRO MI113 29-MAR-82 13:41 PAGE 17}5

OMMAND INTEGRITY ROUTINE

sMLXG

—

- oWV

H £ SN

OO0

WIn

7-Mar~ 1982

42
5 7-Mar- 198 19:24:
19:53:“

COMMAND INTEGRITY ROUTINE

BGE

408:

SEQ 0184

CMP
JMP

R1,M
13

: COMP.FLAG,
-FLAG, *

ADD
RTS

#22,5P

; Routine Size:

587 words

: Maximum stack depth per invocation:

33 words

TOPS
PA:<

4363
4362

4308

MACRO M1113 29-MAR-82 13:41 PAGE D17§15

SER

CZMLBBO PERFORMANCE EXERC 1
INTEGRITY COMMAND INTEGRI T Y ROUTINE

SEQ 0185

7=Mar=1982

DEFINITION OF OPTION 1

7-Mar-19

19:24:4

19:53:65

!sbt:l *DEFINITION OF OPTION 1°
routine OPT1

begin

!~ 1 «

START OF ROUTINE

OPT1

PURPOSE :

TO CHECK ADDRESSES USING DATA = SECTOR NUMBER.

mglr!gpme 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 CWLS*NT FLAG SELECTION LOOP)
INCR LOGICAL UNIT FROM O TO LAST

g ?Eg{{‘”(snkf OF LOGICAL UNIT SELECTION LOOP)

: BEGIN & (START OF LOOP THAT COMPLETELY TESTS ONE UNIT)
e 00 oo 00 =

: I.F'E;‘NIT IS ACTIVE

BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
INITIALIZE WRITE AND READ BUFFER POINTERS
SECTOR = LOWEST

: : : WHILE SECTOR LEQ HIGHEST DO
::: i BEGIN G (START OF SECTOR SELECTION LOOP)

WRDCN

: 2 ¢ : : GENERATE THE PATTERN
$

23z

: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)

t
$

2t
22

::
:

RN g}t'é’ BUFFER POINTERS BEFORE TRANSFER

b -]

o8 :

%l‘

:::

: UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVIOUS TRANSFER

512

DO THE WRITE CHECK
LOOK FOR ERRORS (IF DROP UNIT ukfigg&TESTLOOP)

""" CHOOSE WHETHER TO %TE CHECK OR READ
Ll

WN=OY

22833saagsssss

ROUTINE :

: novalue =

TOPS-20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (37)

OF S;CTM SELECTION LOOP)

TEST FOR AN ACTIVE UNIT)
STLOOP)
LOGICAL UNIT SELECTION LOOP)
OMPLEMENT FLAG SELECTION LOOP)

CZMLBBO_PERFORMANCE EXERCISER
MACRO M1113
INTEGRITY COMMAND INTEGRITY ROUTINE

9 :MLX4

79 ;

:
;5
:
7%

4679

incr COMP_FLAG from 0 to 1 do
begin ’

4698

95 :
9; :

4701
470,
470

4707
4708
4709

2;}1

4710

2;};

10 ::

4719

}; :

;

}g :

471

2;}3

2; 1

195

475

:
:
:
:

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

£
4
4

begin

begin
Hfl.‘mve_swus C.LUN] eql ACTIVE

LSCUN = .LUN;
WPTR = WBUFF:
RPTR = RBUFF:

270;

NNNNNIN &»

! "RUNNING OPT1*WRD34, RTN1):

ggg o

:
:
:
:

;

SECTOR.
DBL_VALUE;

TOPS=20 Bliss=16 v2(212)

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

OLDSEC,

PRINTB (SAY2,

COMMAND ,

19:24:42

PTR

469

7-Mar=1982

37..-..,-1935 19:53:4:.

OLDCHN,

i ::

SEQ 0186

WRDCNT

4‘231

E_15

PAGE 174

DEFINITION OF OPTION 1

4681

29-MAR-82 13:41

! 2 »

START OF COMPLEMENT FLAG SELECTION LOOP

! 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

SECTOR = LOWEST;

while .SECTOR lequ HIGHEST do

in
!s 6 + START OF SECTOR SELECTION LOOP
GEN1 (.SECTOR, .COMP_FLAG):
WRDCNT = GET_WRDCNT T.SECTOR, HIGHEST):
SET_PTRS (.WRDCNT):

VALDE

e
|

= write (.LUN, .WRDCNT, .WPTR, .SECTOR):

SEE HOW SUCCESSFUL THE WRITE WAS:

selectone .VALUE of
set

€1 :

'SEE_"SYSERR' FOR DEF INITION

i0F ERROR # CONTAINED IN °*VALUE®

begin

'« 6A * RETRY ALLOWED

then

TTHE RETRY FAILED -- SYSTEM FATAL E

if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) neg 0
.
DROPT

CODE 4:
EM’F((E&B[.LUNJflgi. =0):
T!taxx OPTION 1 ERROR 01 waes
'toI:'ve LOOP;" !JUMP JUST BEYOND END OF BLOCK * & +

ena;

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 P#GS 171

INTEGRITY COMMAND INTEGRITY ROUTINE

74625 :MLXG

7428
7629
7630
7631
7632
7433
;2 4

:
:
:
;
:
:

7636

7438

7637

2;:.5

7644 :

7445

7
2
2447 :
7448 :
7449 :
7450 :
7451 :
7452 :
74;1. :
7454
:
7455
7456
;

7457 :

f* 6C * FATAL DRIVE ERRO=R= NO RETRY ALLOWED

enflorP(103, msel, 0);

m
ROP t.LUN] "= CODE_6;

474

Leave LOOP

tes;

:
,

if .COMMAND eql read
then
boain
PTR = .RPTR;
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):
end
else

hogin

7‘69 :

4;;%

selectone .VALUE of

7% :
7e9e

2" ‘

4
an

21
m? :
7676

4775

o3 :
if .COMMAND
then

‘%3

74;; :

;2 :
7%79

?ég
4

in 6C *

COMMAND = CHOOSE ();

4761
mg
476
4764
4765
4769

Iaeas OPTION 1 ERROR 03 v+

'JUMP JUST BEYOND END OF BLOCK * & +#

end;

7458 :
7459 ;
7460 :
7461 :
7
3
7463

;46

in 68 *

4748

4760

1JUMP JUST BEYOND END OF BLOCK * 4 +

end;

4744

4749
4750
4751
475
475
4754
4755
4756
4757
4758
4759

v 6A »

um LOOP

4741

;22

TOPS=20 Bliss=16 v2(212)

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

2] :
’
! 68 * FATAL CONTROLLER ERROR == NO RETRY ALLOWED
wHY_DROPT C. LunJ = CODE_
snm (l&z‘s , 0);
!aaas OPTION 1 ERROR 02 wews

g’i

19:24:4

Sr-mr-wss 19:53:45
end;

4740

;21.0 :
7641

7-Mar=1982

DEFINITION OF OPTION 1
473
4
4
4
4735
A
2

SEQ 0187

PTIR = .WPTR;
VALUE = CHECK (.LUN, .WRDCNT. .WPTR, .SECTOR):
end;

SEE NOW SUCCESSFUL THE OPERATION WAS:

set

'SEE 'SYSERR' FOR DEFINITION

i9% ERROR # CONTAINED IN °VALUE®

eql

rea

read

.
if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0
then

3&% (.LUN)

PRINTB (SAY1, MSG5);

!*ECC LOGIC FAILED TO DETECT DATA ERROR®

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE ?76

INTEGRITY COMMAND INTEGRITY ROUTINE
7481 :MLXG

7484

SEQ 0188

DEFINITION OF OPTION 1

4
Simar-1088 19:38:47
7=Mar-=19

; S :

PRINTB (FMT12A,

7488

mm?‘nngq

Egggr(nf;

7687

7489

7692

;23(1) :

7493 ;
76496 :

7495 ;

7496
7697

:
:

2 4

4791

4
233?

m?SOA ::
mgm“

480,
m§
2,“33?

7508 :

4807

7510 ;
7511 ;
751; :
7513
;55}2 :

4309

7519 :
7519

R L. um = CODE_é;
EMUF
(105
5 . 0); “li%ass OPTION 1 ERROR 05 s#es
mvo LOOP;" !JUMP JUST BEYOND END OF BLOCK % 4 +

end;

‘

v 6D *

2] :
_
m
i 6E * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED
mgnor&
wnJ
t =cooe
E
iaaxs OPTION 1 ERROR 06 w#eee

lom LOOP;

end;

£4l :

begin

1JUMP JUST BEYOND END OF BLOCK * 4 +

v 6E «

3562 * FATAL DRIVE ERROR
== NO RETRY ALLOWED

1JUMP JUST BEYOND END OF BLOCK * 4 *

!~ 66 * UNRECOVERABLE DATA ERROR

g s :

mmrgu.wscboer
poDD (.LUN

Leave LOOP;

end;

!axas OPTION 1 ERROR 07 aees

In 6F =

ERRDF (m ns

;

if RETRY (SIX, .COMMAND
.WRDCNT, .PTR, .SECTOR)
0
then
'THE nmv
R
FAILED =-"SYSTEM FATAL ERROR

Emr
(107’
?f

7532

!~ 6D * RETRY ALLOWED

bo'inL

7533

begin

£33 :

7537 :

€1 :

end;

75 0 :
752

end;

- lun Loor

7517
;
7513 2

Iaaws OPTION 1 ERROR 04 wwwese

end;

4794

7500 ;
gg% :

VALUE);

Leave LOOP !JUMP JUST BEYOND END OF BLOCK * 4 ¢

479;
479

VALUE

l»fimAT LOCATION 00000Q*

&t I.Wigoos8;

4795
4799

. WPS~-20 Bliss=

éooe fi?i
xxixxx
3’! LocAtiou YYYYYY®

;233 :

7509 :

..DBL_VALUE

16
v2(212)
IYS2B 0,
iss- BLISS
(3

taxex OPTION 1 ERROR 08 sees

'JUMP JUST BEYOND END OF BLOCK * 4 =

v 6G *

SER

CZMLBBO_PERFORMANCE EXER €IS
1

MACRO M1113 29-MAR-82 13:41 PAGE 17}

R
e S e
e

INTEGRITY COMMAND INTEGR Iy
TY ROUTINE

7537 :MLXG

7=Mar=-1982

DEFINITION OF OPTION 1
S

SEQ 0189

19:24:4

3-Har-l&'gs 19:53:6
€s] :
begin

ISBLATE 0;

TOPS=20 Bliss=16 VZ(Z‘I

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

if .ERROUT then PRINTB (FMT108, .CHAN):
BIT QQ°
OI.DSEC = _MLEL:;

OLDCHN = .CHM

:'f‘.zETRV (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eql 5
"l:'fm(‘(.HLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
begin
Ixxax OPTION 1 ERROR 09 w#es

UP_HARD_COUNT (.LUN, .BOARD):

else

end

begin
if .ERROUT then ERRSOFT (110, MSG3, 0);

{nxxt OPTION 1 ERROR 10 wxwe

UP_SOFT_COUNT (.LUN, .BOARD):

end

else

if .ERROUT then ERRSOFT (111, MSG3, 0); !s+++ OPTION 1 ERROR 11 swese
UP_SOFT_COUNT (.LUN, .BOARD):

end;
tes;

end;

I 6H »

WPTR = .WPTR + (.WRDCNT*2):

SECTOR = .SECTOR + (.WRDCNT/256):

end;

‘s

'* 6« END OF SECTOR SELECTION LOOP

I« 5« END OF TEST FOR AN ACTIVE UNIT

i Tost to see if this uwut's address space is
it
read for soft errors. This test is
' fs

ntended for DMT purposes.

’

f
‘

!* 64 * RECOVERABLE DATA ERROR

if .ERROUT then ERRHRD (109, MSG4, 0):

CISER

MACRO M1113 29-MAR-82 13:41 PAGE %7‘S
ITY ROUTINE
7-Mar-1982

DEFINITION OF OPTION 1

TOPS=20 Bliss=16 v2(212

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

!1s the background pattern to be read

begin
'

g version czmlbb changed incr to incru
incru SECTOR from LOWEST to HIGHEST do

‘l'f":old (.LUN, 256, RBUFF, .SECTOR) eql 5

IS&ATE Q;

!Find the failing bank and board no.

if .ERROUT then PRINTB (FMT108, .CHAN):

Print where the error is

-o-o-o--.-sp -:----o-n--

e
b eedb

e e

ORNOWVS
NN =O

19:24:4

57-Har-19gs 19:53:6

:"GEFN321

alalalalalatololoolo!T

SEQ 0190

Save the contents of the ML error location
register so we can compare it to the new
contents of this
rcg'lstor after the retry.
s is dom to classify tho error.

OLDSEC = .MLEL;
DCHN = ,CHAN;
Do a clusify rotr; call.
If the same error
occures then classify t as a hard error.
1If
) diff{ ¥ error occured or the error went away
then classify it as a soft error.

:;.:ETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql 5
The same error occured so see if it is at the same
sector and channel number, if so then classify

itr:s o hovd Sorer else c[assi it asa soft

! error.

:'f' ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
en

begin

!Same error occured 'hard®

i f .ERROUT

!Print error if enabled

then

bogi
ERRHRD (112,
!Error number
MSG4,
!Error message

0):;

iAdditional ‘message routine

|
i

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41 PAGE 17;15

;

INTEGRITY COMMAND INTEGRITY ROUTINE

7649 :MLXG

;gg? H
76;; -

7653

7-Mar-1982

DEFINITION OF OPTION 1

19:24:4

7-le-19gs 19: S:Li

4939

4940

7654 ;
7655 ;

7658

4945

7659
7
7661
7
7

;
:
:
:
:

69‘9
494
P kfls
P 494
4950

7666

495

; S:

else

if .ERROUT

;g;s 3

232;

7679

: 3

4971

ba'ln

4974

&
4980

0):

!Md'ltioml.zsngo routine
'Error

mess

fiSflLCMV (.LUN, .BOARD):
- end;

!# 4 «

end;

3 «

end;

167 13365

END OF LOOP THAT COMPLETELY TESTS ONE UNIT
END OF LOGICAL UNIT SELECTION LOOF

!s 2 « END OF COMPLEMENT FLAG SELECTION LOOP

return;
end;

% 8§m 92‘2736 oooozg
1460

gError number

)

gz; -H

SO'HSZS“"'

28;5

!Print error if enabled

then

!Not the same error ‘soft’

begin

4961

76;5 3

!Print error if enabled

else

4960

;274 :

if .ERROUT

43’53

;

!Not the same error ‘soft’

UP_SOFT_COUNT (.LUN, .BOARD);

295

76;; :

begin

beg
ERRSOFT ‘"31
{Error number
MSG3,
!Error message
0);
!Additional message routine

6959

7727‘ ]

end

then

23551

7% :

TOPS~20 Bliss=16 v2(212)

PA:<NEALE>MLXG.BLI.S (37)

UP_HARD_COUNT (.LUN, .BOARD);

4941
494

;ggg :

7673

SEQ 0191

OPT1:

5U8 #20,sp
.SBTTL

JSR

= 1 «~ END OF ROUTINE

OPT1 DEFINITION OF OPTION 1

R1 SSAV&

4628

&l?fll

MACRO M1113 29-MAR-82 13:41 PAGE K18615
MLXS

SEQ 0192

7-Mar=1

Sar-ld

DEFINITION OF OPTION 1

#RTN1,=(SP)
#URD34D
,~(SP)
# ¥2,=(SP)

0345

175274

it
160744

173472

000001

8482%¢

SP,*

; COMP.FLAG

: LUN
LUN,*

4690
4693
4698

‘?P)(sp)

LUN,*

)

BLSGT?2

g §R3853883,3353353223333%2

160022

4687

0.sp

§0
INR2R

&»

\RUNQNNO

634560

TOPS
PA:<

VE.STATUS.RO

Y LS

by
16504

SP) ,RO

} $p (ggf(sp)

000001

1516
10
012670
70
10

)

IT,12(SP)
~

=~ i ~C

2$:

034442

138556
10

=%
3

§°°°°—l°§°

1$:

19:24:42
19:23:44

0
54
0

000012

3331833 20 3 50 0 0 = S =TM ) =b

SERTRTS

—d
D b

c§f~(§r)
SP
4'"

129978

-d

=OVRNONSUWN=O

SRESRERNRSNARR

PERFORMANCE EXE
OPTI

10(SP) ,LSLUN

LUN,*

'1‘2(3” oR5

LUN,*

#UBUFF ,WPTR
#RBUFF ,RPTR

LOW. SECT(RS) ,Ré

gg.ror.secr<fis:
53.-(sp)
(SP) ,~(SP)

Pc.?£n1

R&.

(SP)

TOP.SECT(RS) ,~(SP)

P .ssr.unocnf
‘R
R2. (SP)
PC.SET.PIRS

16(SP) , (SP)
R2,~(SP)
wPfR,=(SP)
RO.R3
n

(SP)
22
MIRITE ,=(SP)

+,SECTOR

SECTOR,

4706

: SECTOR,*
: COMP.FLAG,*

4708

SECTOR,*

4709

* ,WRDCNT

WRDCNT, *

WRDCNT
,»

4710

SECTOR,*
*,VALUE

VALUE,+

anz

4723

€2

PERF ORMANC E EXE RCI

OPT1

DEFINITION OF OP TION

?ER

1
MACRO M1113 29-MAR-82 13:41 PAGE %815

sMLX4

24(SP) ,R1
gg.HHV.DROPT(R1)

£3% §§§§§i

%?(SP).RO

000024

6$:
034446

000003

SEH

NV,NO\-’:

000024

8s
R3.#2
7%
24(SP) ,R1

gg.UHY.DROPT(R1)

WRDCNT,«
SECTOR,
+

LUN,*

% (SP) ,RO
M3

LUN,
=

4728

* VALUE,*

4729
&nz

LUN,*

4736
4737

LUN,*

4738

* VALUE,*

4739
anz
4744

147
MSG1

i 034446
000014

g‘(SP).R1

#6,WHY .DROPT (R1)
R1.RO
51

#é4,SP
14%
PS. HOOSE
RO,34(SP)
R1
#READ

045612

e 000036

RPTR,36(SP)

173404

24(SP) ,=(SP)
R2,-(5P)
RPTR,=(SP)
Ré,=(SP)

PC.READ

4726
4727

146
MSG1

rbvt
g

§§z§: 5

3 Fipoon
3umddxfi%
e

-t
)

NESRRSEISY

LUN, *

145
MSG1

160472

TOPS

PA:<

RO
9%

008 034446

000024
000005

19:24:42
19:23:44

#14,sp

)

=HOOO=O

b
el

nd o nd b e

b e mod ) wsmh wamdb
rlt el ot D

OO0

VAL
e

VISR
- O

PC,RETRY

000002

\uvnnunnvfizsuzsnRSRRSRREESNR

T
e SNRASNAREA

30(SP) ,=~(SP)

B
e vy

7-Mar=19

: 7-Mar-19

DEFINITION OF OPTION 1

R2,=(5P)
WwPTR,=(SP)
Ré,=(SP)

SEQ 0193

LUN,*

4745

LUN,*

4746
4747

*, COMMAND

COMMAN,D
«
: *,PIR

+ LON,

: WRDCNT,*
SECTOR,*

4751

4753

4756
4757

32
-

ORMANCE EXERCI?ER
ION OF OPTION

MACRO M1113 29-MAR-82 13:41 PAGE 18}15

sMLX4

1o§ ?3 000413
167 53835" 000036 10$:

g 3

5
A og
5 0

1 1.2
016746
1

9 05

8047

05224

10003

160440

173542

118:

1102

;

783) §§ 33 Otercs Soats
05

S 3?

016746

10;49

160410

736 172036

x? 05 %3 &1”
00004
8? 2 uug
34
7840 05

784 035339
7847 05

7848
7849

r8a: 02

;gs

;gsa
55 35
nsg 5

785

;gsg
5

ree1e

019§66

012746

010600

104414
013901 000056
11

}

296130
11070

000010

TM
MoV

RPTR.=(SP)

bsg

:g.ggme.cuecx

MOV

15§

S
R2,=(SP)

gg?z«sn
(SP) ,=(SP)
PC,

SAYUHO
#MSGS, (SP)
#SAY1 .= (SP)
.~($P)
RO

S0(SP).(SP)

ag (SPS,=(5P)

MoV
MOV

#FEMTI2A.~(SP)
#3,-(SP)

ADD
MOV

#10000, 56 (SP)
(SP) . (SP)

MOV
MOV
MoV

(SPS,=(SP)
#FEMT12B.~(SP)

TRAP
MOV

1
56(SP) ,R1

GORD

3,=(SP)

#10,WHY.DROPT(R1)

130
JWORD MSG1

000046

TM~

0327 000001

158:

12746 000006

Sffi

MOVB

usgo 000056
7

: *,VALUE

MOV
034446

PC. CHECK

RO.R3

006756

:P LON,*
%,PIR

MOV

BNE

WOV

WPTR,
36(SP)
24(SP) ,=(SP)

: SECTOR,#

JSR

MOV

062766 owogg 000056
016616

104451

000050

118

7-Mar=1982 19:24:42
5741.:-1
932 19:23:44

R2,=(SP)
WPTR,=(SP)
Ré,=(SP)

MOV

DEFINITION OF OPTION 1

MOV
MOV
MOV

JSR
MOV
MoV
MOV

315 %6 006710
12746

017945
015 %6

MOV
MOV

ggg
MOV

004767
163212
7841 05 312 012716 011216
;&g 83 16
012746 007072
2
012746 000002

7844 05

SEQ 0194

n’m"'v""I
TRAP

?csn.no

§§g.sp

R “n

MOV

#6,~(SP)

: WRDCNT,#

TOPS
PA:<

4761
4762

4769

‘

; *,DBL.VALUE
: LUN,*

4781

477

: WRDCNT,*

4782

; SP,*

DBL. VALUE, *

¢ DBL.VALUE.*

: *,DBL.VALUE
: DBL.VALUE,*

: DBL.VALUE.+*

4783
4785
4786

: SP,*
: LUN,*

4788

: LUN,*

4790

479

: VALUE,®

4769

4799

CZMLBBO PERFORMANCE EXERCI%ER

OPT1 DEFINITION OF OPT

MACRO M1113 29-MAR-82 13:41 PAGE 18}15

SEQ@ 0195

7-Mar=1

DEFINITION OF OPTION 1

w
85 i47, s
1822;

052574
05257

fii % 563
6.1

052636

§ gssei

%d
3-0“-.-0

00605
000034
000002

600003
600034

3‘

000034

052634

164452

e e

055706

000024

'fi’ \""
.9’ Vy"

35704

)

:. -(SP)
amv
p14.s

173520
000014

- —_—

2 Ism =(SP)

cm «

motm .
secfon.

‘l $

34(SP) ,R1

sgggaggggzzssgagggggng!ggggggggzssgggggg

338

46(SP) ,=(SP)

4 (SP)‘-(SP)

TOPS
PA:<

glso.mv«DROPT(R1)

; LUN,*

4803

151
MSG1
1(8?) RO

4802

: LUN,*

4804

: VALUE,*

4805
4769

34(SP) ,R1

; LUN,*

4812

198
1

gg.mv-DROPT(R1)

4813

152
MSG1
1(SP).RO

198
; A3
(SP) ,R1

-WHY-DROPT(R1)

SP) ,R1
.RWOV.WT (R1)
#24,5P

: LUN,*

4814

VALUE,
*

4815
4769

LUN,*

4820
4821

: LUN,*

4822

: VALUE,*

676;

LUN,*

4830

s LUN,*

4832

§§

;&l?fll

MACRO M1113 29-MAR-82 13:41 PAGE ?816
SEQ 0196

)

ads

%31

161300

D531

00992

‘s

2531
s

: ]

177700

000050

5555$233R3R8q3333332334443
LR LR A AA A LR 2

R
-

g=’

s oo ¢
o o

‘

22s:

000050

B O O
5

Vv 4y

3335

127322

)

vy >S2OOC
v
4v-22238

-l

Ay Ay
Ay AR
R RN R A

.
Re

S;-Hbr-l

-Mar=1

DEFINITION OF OPTION 1

SAIIIIIAY

EE
oP

VALUE,
*

Ps -ISOLATE
#Z‘ERWT

19:24:42
19:23:44

TOPS
PA:<

4769
4837
4839

@ML.REG+42,R1

Al oeoosTM
crhmsn -(SP)
#2,-(SPS
k4

#6,SP

aML . REG+44 ,50(SP)
@ML.REG+42.R1
R1
R1
R1
R1
R1

SP,«
; *,0LDSEC

484
484

flmoo R1
R1.40(SP)

#1.-(SP)

(sP) ,=(SP)

4845

(SP) .=(SP)
~(SP)

(sP),~(sP)

“'iém%

qir
25§

g&.nssm.socsm

0(SP) ,RO

ML .REG+42,R1

4848

PERFORMANCE EXERCISER
DEFINITION OF OPTION 1

OPT1

MACRO M1113

7985

5315
% 5315
1

7991

}

3;..
3210

23s:
:
127042

24$:

.*u‘r.

3010

MoV

MOV
JSR

BR
géz

TRAP

MNORD

%¥

127020

258:

g&(SP).-(SP)

: LUN,*

4854

278
#1,ERROUT

:
:

4848
4859

4861

: LUN,*

4869

4836

: WRDCNT,*

4876

125

BOARD, = (SP)
p; UP.HA
. COUNT
RD

9‘

156

#1,ERROUT

-WORD
n‘éés
-WORD

268: MOV

1266

27%:

1: 0

4852

4867

TRAP

524

TOPS

PA:<

-WORD 0
Ses

BIT

19:24:42

7-n.$-1333 19:53:«

248

#1,ERRO
UT
3$

Im“: MSG4

-WORD

8
N

TRAP

; 17
2(

BIT
BEQ

7-Mar=1982

DEFINITION OF OPTION 1
BNE

127100

c 16
PAGE 185
SEQ 0157

SMLXG

29-MAR-82 13:41

28s:

N
(WP

Asmu.
ADD

g‘(SP).-(SP)

PC
w’gt(:g'r')cmm
(SP)+.(

R2.RO

SP)+
;

WPTR,RO

: WRDCNT,*

4875

3300
330

MoV
MOV

o M-

i aTSECTIOR

BIT

;

4887

; LUN,*

4894

};}
1342

%’}

126722 29%:
308:

? 0232

08 404

Rso{

MOV

3370

JMP

318:

:g.uin
(SP)

‘

11 Erns2t
&

;o (SP) ,RO

TOP.SECT(RO)

,R1

§gg.sect(

MOV

10534').-(39)

; LUN,*

RS,-(SP)

; SECTOR,*

).RS

ROV

SRBUFF Stsp)

JSR

PC.READ

MOV

: *,SECTOR

4896

MACRO M1113

D 16
PAGE 186

29-MAR-82 13:41

SEQ@ 0198

sMLXG
00001

OOOOOg

r=19

19:54:62
19:23:44

TOPS
PA:<

#10,.5P

R i§

Hgr

126622

32§

160744

aML.REG+42, RO

177700

182
32%:

RO,=(SPS
#FAT10B, - (SP)
#2,-(SP}
L

SP,x

#6,SP

ML .REG+44,(SP)
24

-REG+42,R0

s *,0LDSEC

4910
&M

*,0LDCHN
COMMAND
,*
LUN,
=

4919

PTR,*

OLDSEC,
*

«REG*+44 ,24(SP)

14(SP) ,~(

ML
. REG+42,R0

000024

(o]

000024

37555552238 Ry538%33 % %%%55%83833333

8IC

RO
R0
2?77700 RO

233

163702
000001

Sh r=19

DEFINITION OF OPTION 1

*,0LDSEC

OLDCHN,
=

4928

Seeese.(1YL[yLeeRLLYLYTRRLYIe.T
2 -« S * >
?ER
sMLX4

37 words

[CIC)

£<8% =35z35 .u,ow z2 S )3

2 £ 2

eeoooPee TT =ee 50%080-e5050505090500T9M050O5030050609030€00,80
4
A
~
£3W£.m 9g 5.5Rg§PR5”&o&8o.neN\l\9w 3l3 FSR NG&¢3.$28\l3%\<gI:R» gRCI
ON

1
MACRO M1113 29-MAR-82 13:41 PAGE 5876

SEQ 0199

DEFINITION OF OPTION 1

S har-1983 19:38:42

.‘

TOPS
PA:<

4932

4937

4940

4928
4945

4950

4953
4959

4964

4967

4898
4894

4693

4690

4628

PERFORMANCE EXERCI?ER

OPT1

MACRO M1113 29-MAR-82 13:41 PAGE 10;16

DEFINITION OF OPTION

g} i !
152

:MLX4

8155 ;

a}ga :

3159 :

DEFINITION OF OPTION 2
4981

!sbt}l *DEFINITION OF OPTION 2°

routine OPT2

4985

!4+

8}29 :

816§ :

g}gz :

29,31

g}& :

8167 :

3168 :

193 :

8170
:
8171 :
a1;§ :

8173

817% :
8175 :
8176 :

PURPOSE:

TO CHECK ON DATA RELIABILITY USING THE PATTERNS FROM

THE CODE FOR 'OPT2' IN BRIEF:

4994

4995

SAY THE ROUTINE IS RUNNING

4996
4997
4

i
|
i

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

S000
5001
5002

199 :
197 :
13 :
199
:
0:

CHOOSE A MAXIMUM PATTERN NUMBER

: INCR LUN FROM
O TO LAST

: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
: : TESTLOOP:
:
‘
: : : BEGIN & {START OF LOOP THAT COMPLETELY TESTS 1 UNIT)

: : : : BEGIN S (START OF TEST FOR AN ACTIVE UNIT)
: : : : INITIALIZE THE WRITE AND READ BUFFER POINTERS

14 gwn IS ACTIVE

5007 |
5008 !
S009 !
S010
!
ggr
P

:: : : SECTOR = LOWEST
: : : : WHILE SECTOR LEQ HIGHEST DO
:
: : : : : BEGIN 6 (START OF SECTOR SELECTION LOOP)
: : : : : GET _WRDCNT
seats ‘S'E‘}’;lsl' BUFFER POINTERS BEFORE TRANSFER

5014
5015
5019
5017
5013
S019

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

so1§ ! :::::LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)

S020

;31

g
5023
5026
5025
sog

THE PATTERN TABLE.

!
|
!

!
!

194 :

TOPS-20

499§ i BEGIN1 (START OF ROUTINE)

S005
5006

195 :

Bliss=16 v2(212)
PA:<NEALE>MLX4
.BLI.S (38)

START OF ROUTINE

8179 :
8180 :

'« 1 «

OPT2

188
:
189
:
190
:
191 :
19; B
8193 :

7-Mar-19

ROUTINE:

2884

187

57-mr-182935 19:24:4
19:53:4‘2

g};; :

8181 :
mg :
183
:
13‘:
} S :

: novalue =

begin

SEQ@ 0200

!
i
!
!
!
!

!
!
!
|
i

CHOOSE WHETHER TO WRITE CME
ORCK
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 PREVIOUS TRANSFER
END 6 (END OF SECTOR SELECTION LOOP)
:

: : : : END 5 (END OF TEST FOR AN ACTIVE UNIT)

:: : END 4 (END OF TESTLOOP)

: : END 3 (END OF LOGICAL UNIT SELECTION LOOP)
: IF NOT THE
QUICK VERIFY PASS THEN *LOOP READ® (DESCRIBED BELOW)
: END 2 (END OF PATTERN SELECTION LOOP)
RETURN
END
1 (EN
OF ROUTINE)
D

labell:

LOOP2;

CeF
OPT1

RCI?ER

PERFORMANCE EXE
DEFINITION OF OPTI ON

.:llxl.

40
‘1

8543

8244
45

7=Mar=-19

Bliss=16 v2(212)
PA:<NEA0LE>MLX4
.BLI.S (38)
TOPS=2

A 2

33PREESSSSCoS

NIAAIAAAWVIVAIVAIVAL AV

VAWMV

°°°°°°°°°°2
i
el Ng\hb
-0 SE%E

SEQ 0201

82
19:24:42
57-"0#1925
19:23:44

DEFINITION OF OPTION 2

..................IO.......-..'u.-...o.ol..-...a!u.n'.‘o.o!cI....o..Q.lo.o.l.clo.-....Q..-.o..lc......

st N

BN HN -G

—

s i oRRRTT

ONOWNSWN —d

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

DBL_VALUE;
PRINTB (SAY2,

WRD34., RTN2):

! "RUNNING OPT2°

PATTERN = 0;

if .QUICK neq 0 then MAXPAT = 1 else MAXPAT = NUM_PATS;
incr Cmil':l' from 1 to (.MAXPAT*2) do

gngAT Q;

! 2 «

START OF PATTERN SELECTION LOOP

!* 3 «

START OF LOGICAL UNIT SELECTION LOOP

begin

!* 4 «

START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT

if .DRIVE_STATUS [.LUN] eql ACTIVE
then
in
LSCUN = .LUN;
WPTR = WBUFF:

!* 5 =

START OF TEST FOR AN ACTIVE UNIT

:'t; .PATTERN gtr 0
en

PRINTB (FMT1A,

PHR9, .PATTERN)

''PATTERN NUMBER

else
ba i n

XX°

PRINTE CFRTID, CPARD. . TEMP)
"

PATTERN NUMBER - XX'

GEN2 (.PATTERN):
incr LUN from 0 to (.LSUNIT - 1) do
begin

RPTR = RBUFF:

SECTOR = LOWEST;

while .SECTOR lequ HIGHEST do
begin
'« 6 * START OF
WR CNT = GET_WRDCNT (.SECTOR, HIGHEST):

SET_PTRS (.WRDCNT);

SECTOR SELECTION LOOP

ORMANCE EXE!CI?ER

MACRO M1113

29-MAR-82 13:41

H 16
PAGE 190

SEQ 0202

s 7-Mar-1982s

DEFINITION OF OPTION 2

5
5090
5831
§w§

7-Mar-1982

i SEE HOW SUCCESSFUL THE WRITE WAS:
e

selectone .VALUE of
set

5094

'SEE_'SYSERR' FOR DEFINITION
i0F ERROR # CONTAINED IN *VALUE®

£1 :

5339

begin

s 6A * RETRY ALLOWED

thonb. 4

TTHE RETRY FAILED -~ SYSTEM FATAL E

it RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) neq 0

3100

WMY DROPT C.LUNJ = CODE_4:

5101

ERRDF (201,

s1o§

DODU (.LUNS;

510
5104

5107
5108

'
2l :

g}gg

5109
5110
5111

end

MSG1, 0);

Leave LOOP;
end;

DODU (.LUNS;

g”;

- end;

?”9

ot in

511

leave LOOP;

In 6A =

!* 68 * FATAL CONTROLLER ERROR -- NO RETRY ALLOWED

!JUMP JUST BEYOND END OF BLOCK * 4 *

in 68 »

5119

WHY_DROPT f.um = CODE_6;

5122

end:

5120
5121

p0D0. (.LUN):
Leave LOOP;

g} 2

nd ek ed
wmd

tes;

'JUMP JUST BEYOND END OF BLOCK * & *

ix 6C *

COMMAND = CHOOSE ():
if .COMMAND eql read
then
boain

PTR = .RPTR;
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):

o e
d cd i

1assx OPTION 2 ERROR 02 #w#s

s
DRIVE ERROR -- NO
ALLOWED
BRROF (203, msc1. 0y 6C * FATAL
Taexs OPTION 2 ERROR 03 RETRY
sa+s

5118

~!«xxx OPTION 2 ERROR 01 s#w+

!JUMP JUST BEYOND END OF BLOCK * 4 *
;

WHY_DROPT [.LUN] = CODE_S;
ERRDF (202, 'WSG1, 0):
~

sng

wVvivaiviawviwviaiiwawn

OPS-20 Bliss
TOPS~iss=16 v2(212
(
)
PA:<NEALE>MLX4.BLI.5 (38)

VALUE = write (.LUN, .WRDCNT, .WPTR, .SECTOR):

goos

g;gs

3:&
19:24:
4
19:

else

end

begin

PTR

= .WPIR;

VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR):

CZMLBBO PERFMNCE&#&%I?ER

OPT1 DEFINITION OF

MACRO M1113 29-MAR-82 13:41 PAGE {9} 6

;

7-Mar=1982

DEFINITION OF OPTION 2
g};é

SEQ 0203

1
|
SEE HOW SUCCESSFUL THE OPERATION WAS:

514

selectone .VALUE of

gm
11.9

514

5148

5149

if .COMMAND eql read

then

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0
then
bo'in
SAYWHO (.LUN);
PRINTB (SAY1, MSGS);
!*ECC LOGIC FAILED TO DETECT DATA ERROR®
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE):
:
1°600D DATA: XXXXXX AT LOCATION YYYYYY®
DBL_VALUE = .DBL_VALUE + BUFSIZ#*2;

PRIRTB (FMT12B,

5161
513
51

5164

DODU ¢.LUNS;

5166

end;

5168

- end;
€1 :
begin

.LUN, .WRDCNT, .PTR,

.SECTOR) neq

ITHE RETRY FAILED -~ SYSTEM FATAL ERROR

m DROPT [.LUN] = CODE_&:

cd e md

STRARAT2BIIN

= 6D » RETRY ALLOWED

if RETRY (SIX, .COMMAND,

then

%r‘(ms MSG1, 0);

mvo LOOP;"

e
b med cmd o

3g
§

i o

H
5

.DBL VALUE):

Lleave LOOP; !JUMP JUST BEYOND END OF BLOCK * 4 =

5167

-.DBL_VALUE,

1'8AD DATA: PPPPPP AT LOCATION 00QQQ’
WHY DROPT C.LUN] = CODE_S;
ERRDF (204, MSG1, 0);
!#wex OPTION 2 ERROR 04 #ese

5165

g};g

10F ERROR # CONTAINED IN *VALUE'

ol :

5160

517

1SEE "SYSERR' FOR DEFINITION

set

5155
515
5154
5155
5159
515
5158
5159

5169
5170
g}%

TOPS=20 Bliss=16 v2(212)

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

end;

1
gma

$1lo§

19:24:4

7-nar-1935 19:53:4f

end;

€23 &.‘
:

fl'»'nopr i

!'JUMP JUST BEYOND END OF BLOCK * & +

v 6D =

“2’;5

ERRDF (206, MSG1, 0); ~

DODU (.LUNS;

~!%*=xx OPTION 2 ERROR 05 s+

* FATAL CONTROLLER ERROR =- NO RETRY ALLOWED

!sass OPTION 2 ERROR 06 s+vs

PERFMCE&#&I?ER

OPT1

DEFINITION OF

sMLXG

:
;

5189

3382 :

§}3§

8379

8580

8383

3384

8385

519

5195

8386

B387

s19g

519

-"--.- :

339

8391

8393

3392

g}gg

5201
5

8394
8395
:
8396 :
8397
;

5
5205
5
g 7

8399 :

840

gg :

8403 ::
:

10':

1 :

gfi 3
12

;

gg :

}g :

5210

g }1

g 15

7-Mar=1982

19:24:4

TOPS~20

end;

Bliss=16 V2(212)
Sr-mr-wgs 19:53:45
PA:<NEALE>MLX4.BLI.S (38)
1,UMP JUST BEYOND END OF BLOCK * 4 +

begin

!« 6F * FATAL DRIVE ERROR == NO RETRY

Leave LOOP;

I 6E «

€33 :

ERRDF (207, MSG1, 0):

WHY DROPT £.LUN] = CODE_6;
pod0

(.LUN);

Leave LOOP;

' 6F %

4] :

boain

ERRDF (208,

! 66 * UNRECOVERABLE DATA ERROR
MSG2, 0);

WHY DROPT [.LUNI
p0DD (.LUN):
. leave LOOP;
end;

€53 :

bosfn

= CODE_7;

!axxx OPTION 2 ERROR 08 #x#s-

1JUMP JUST BEYOND END OF BLOCK * 4 #
In 6G »
!s 64 * RECOVERABLE DATA ERROR

ISOLATE ();

if .ERROUT then PRINTB (FMT10B, .CHAN):

g%g

:g.:ernv (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eql 5

; };

5 ?

S i

g 2;

g §9

1 :

5235

g3540

)

1JUMP JUST BEYOND END OF BLOCK * & +

end;

ISOLATE ():

Teaws OPTION 2 ERROR 07 cona’ ALLOVE

1v
BIT Q@
OLDSEC = .MLEL;

% 8

5 :

DEFINITION OF OPTION 2

SEQ 0204

351
S§16

13 ::
s

MACRO M1113 29-MAR-82 13:41 PAGE J19}16

OLDCHN = _CHAN:

then

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

begin

’

~if .ERROUT then ERRHRD (209, MSG4, 0);

* UP_HARD_COUNT (.LUN, .BOARD):

end

else

taxex OPTION 2 ERROR 09 wves

begin

if .ERROUT then ERRSOFT (210, MSG3, 0):
UP_SOFT_COUNT (.LUN, .BOARD);
end

el“be’ in

Iaxxx OPTION 2 ERROR 10 #vee

CZMLBBO PERFORMANCE EXERCISER

OPT1 DEFINITION OF OPTION 1

sMLXG

g.i :

32 5

8437

gfio
1

w.g

844
8444

e
L B

8447 ;
al.!49
&gg

g 2;

if .ERROUT then ERRSOFT (211, MSG3, 0);

524

UP_SOFT_COUNT (.LUN, .BOARD);:

5244
‘9

tes:

g 49
50

g g%
5255
gggg
S 6;

526
5264
5265

g gg

end;

TOPS=20 Bliss~16
V2(212)
PA:<'€2AL
E>H’.;6.8L¥?52(
)
!#*«+ OPTION 2 ERROR 11 #eee

In 6H »

WPTR = .WPTR + (.WRDCNT+*2):
SECTOR = .SECTOR + (.WRDCNT/256):;

g §1

8659

SEQ 0205

end;

5245

5258
5259
g gg

7-Mar-1982 19:24:42
57-mr-1
933 19:53:44

DEFINITION OF OPTION 2

8455
325
ugg

845
8458
8459

MACRC M1113 29-MAR-82 13:41 PAGE K19}16

end;
end;

end;

1+¢
i

i
!

i
i
]

END OF SECTOR SELECTION LOOP

!= 5« END OF TEST FOR AN ACTIVE UNIT
's 4 « END OF TESTLOO
!« 3« END OF LOGICAL PUNIT SELECTION LOOP

if .QUICK eql 0
then
begin
'

6 «

!~ 11 =

START OF LOOP READING SECTION

THIS IS 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.

THE CODE IN BRIEF:

!
!

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

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

;

: ?gg#r#z(flflfl’ OF LOGICAL UNIT. SELECTION LOOP)
:

i
i
;
i

i
i
i

:
:

IF UNIT IS ACTIVE

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

: INITIALIZE THE WRITE AND READ BUFFER POINTERS

t : : SECTOR = LOWEST
: ¢ : WHILE SECTOR LEQ HIGHEST DO

: BEGIN 15 (START OF SECTOR SELECTION LOOP)

: GET_WRDCNT
: : : : SET"UP BUFFER POINTERS BEFORE TRANSFER

232

:::::

CHOOSE WHETHER TO WRITE CHECK OR READ

: INCR KOUNT FROM
1 TO TIMES

: BEGIN 16 (START OF COUNTING LOOP FOR LOOP READING)
DO THE WRITE CHE
ORCK
READ

1 :r LOOK FOR ERRORS (IF DROP UNIT,

LEAVE TESTLOOP2)

2z : END 16 (END OF COUNTING LOOP FOR LOOP READING)
:

:
: : UPDATE
: : END 15

BUFFER POINTERS AFTER TRANSFER
SECTOR NUMBER BY # SECTORS IN PREVIOUS TRANSFER
(END OF SECTOR SELECTION LOOP)

CZMLBBO PERFORMANCE EXERCISER

OPT1 DEFINITION OF OPTION 1

D‘gs sMLXé

8.290 .

5
S

8500 ;

g i

gssg

8504 ;
- 3
8506
:

508 :
8509 ;

8510 ;
8511 ;

851§ r,
8513 ;

9 :
:

befin
LSLUN = .LUN;
WPTR = WBUFF;

while .SECTOR lequ HIGHEST do
begfn
!* 15 «

START OF SECTOR SELECTION LOOP
WRDCNT = GET_WRDCNT (.SECTOR, HIGHEST):
SET_PTRS (.WRDCNT):

COMMAND = CHOOSE ()

0 ;
23
- 4

5344

incr KOUNT from 1 to TIMES_TO_LOOP do

begin

!# 16 *

START OF COUNTING LOOP FOR LOOP READING

if .COMMAND eql read

‘

then
boxin
PTR = .RPTR;

VALUE = read (.LUN, .WRDCNT, .RPTR, +SECTOR) ;

end
else

5328

START OF LOOP THAT TESTS AN ACTIVE UNIT

SECTOR = LOWEST;

;

bexin

!* 14 ~

RPTR = RBUFF;

5326
5327

53
Sg
g 33

5325

5331

START OF LOGICAL UNIT SELECTION LOOP

: 'f‘ <DRIVE_STATUS [.LUN] eql ACTIVE

5322
5323
5324

3
:
K

TOPS=20 Bliss=16 v2(212)

PA:OEALE&:‘.BU.S (38)

!~ 13 » START OF THE 2ND LOOP THAT COMPLETELY TESTS 1 UNIT

5321

19:24:42

AN ACTIVE UNIT)

begin

gggg

: END_14 (END OF TEST FOR

incr LUN from 0 to (.LSUNIT - 1) do
begin
I 12 «

531%
531
5314
5315

5318

4 ;
S :

LooP2

5309

19 s

3
i @
; :

7-Mar-1982

S?—le-wgs 19:53:“

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

5310
5311

gg;g

5309
Sgg
5308

}g :

}8 ’

SEQ 0206

DEFINITION OF OPTION 2

:
"

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

PTR

= .WPTR;

VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR):

end;

SEE HOW SUCCESSFUL THE OPERATION WAS:

selectone .VALUE of
set

1SEE "SYSERR' FOR DEFINITION

'OF ERROR # CONTAINED IN °*VALUE'

€oJ :

if .COMMAND eql read
then
begin

CIMLBBO PERFORMANCE EXERCISER
OPT? DEFINITION OF OPTION 1

8544 :MLXG

ggzg :
8547 :

8548 ;

8549 ;
8550 ;

8551 ;
855% =
8553 ;
8554 ;

8555 ;
8559 :
8557 :
8558 :
8559 :;
8560 :
8561 :
8562 ;
856
8564 ;

8565 ;

8529 3

567

;

8268 3
570 ;
8571 :
8572 ;
8573 ;
574 ;

575 :
579 :
77

73 :
79 :
580
.
581 :
5 5 2

’

585 ;

586
S87

;

?30 .

$90
:
591 .
592 :
593 .
594 .
595 .
596
597 .
598 .

MACRO M1113

29-MAR-82 13:41

B 1
PAGE 195

SEQ 0207

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2

27-Mar-1982 19:23:44

5345

Sgg

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0

5
5348

then

begin
SAYWHO (.LUN);
PRINTB (SAY1, MSGS);
!'ECC LOGIC FAILED TO DETECT DATA ERROR"
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE) ;
!'GOOD DATA: XXXXRX AT LOCATION YYYYYY®
DBL_VALUE = .DBL_VALUE + BUFSIZ%2;
PRINTB (FMT128, ..DBL VALUE, .DBL_VALUE);
!'BAD DATA: PPPPPP AT LOCATION QaoaQaQ’
WHY_DROPT [.LUN] = CODE_8;
ERRDF (212 MSG1, 0);
texxx OPTION 2 ERROR 12 weww
DODU (.LUNJ;
leave LOOP2;
!JUMP JUST BEYOND END OF BLOCK * 4 =
end;

5349
5350
5351
5 Sg

535
5354
5355
5356
5357
5358
5359
5360
5361
536§

536

53564

5365

23329

end;

(ny:

begin

5368
5369

5370

537

ERRDF (213,

537
Sgflo

DODU (.LUNJ;
Leave LOOP2:

5375

end;

!%xx% OPTION 2 ERROR 13 #wxx

!JUMP JUST BEYOND END OF BLOCK * 13 =

I 16A *

(23 :

begin
' 16B *
WHY _DROPT [.LUN] = CODE_S:

5382

ERRDF (214,

5383

DODU (,.LUNS;

5384
5382

5388
5389
5390
5391
539
39
394
§9S
96

RETRY ALLOWED

MSG1, 0);

end;

Sg 1

3385

' 16A =

if RETRY (SIX, .COMMAND, LUN, .WRDCN7, .PTR, .SECTOR)
neq 0
then
!THE RETRY FAILED -- SYSTEM FATAL ERROR
begin
WHY DROPT L[.LUN] = CODE_4.;

5371

5576
5377
5378
5379
5380

TOPS~20 Bliss=16 v2(212;

PA:<NEALE>MLX4.BLI.S5 (38)

leave LOOP2;

(33

end;

MSG1, 0);
'~ 16B «

FATAL CONTROLLER ERROR == NO RETRY ALLOWED
!xxxx OPTION 2 ERROR 14 wxww

!JUMP JUST BEYOND END OF BLOCK * 13 #

begin
I 1€C =
FATAL DRIVE ERROR == NO RETRY ALLOWED
ERRDF (215, MSG1, 0);
!xxxx OPTION 2 ERROR 15 x%x#
WHY DROPT [.LUNI = CODE_6;
pod0 (.LUN):
lLeave LOOP2;
!JUMP JUST BEYOND END OF BLOCK * 13 =
end;
I 16C «

(4] :
begin

' 16D =

,
UNRECOVERABLE DATA ERROR

CZMLBBO PERFORMANCE EXERCISER
OPTT DEFINITION OF OPTION 1

8600 :MLX4

ggg; :
8603 ;
8604 :
8605 :

8609 3

8607 ;
8608 ;
8609 ;
8610 :
8611 :

gg;g :

3‘6’}‘5 :

wg :
gg} &

8619 :

8657

862%.:

9 :

8 :

. &

50 :

51 :

Iaxxx OPTION 2 ERROR 17 s#w

UP_HARD_COUNT (.LUN, .BOARD):

else

5426

5427
53

§§§ :

begin

Ixxxx OPTION 2 ERROR 18 w#ws

UP_SOFT_COUNT (.LUN, .BOARD):

end

else

ggg

begin

if .ERROUT then ERRSOFT (219, MSG3, 0); !s*x% OPTION 2 ERROR 19 #xes

UP_SOFT_COUNT (.LUN, .BOARD);:

5440

544

gu.
5448

end

:
it .ERROUT then ERRSOFT (218, MSG3, 0):

5431

5444

begin
if .ERROUT then ERRHRD (217, MSG4, 0):

5424

5225

BIT a0

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

then

5422

§'z§§
5439

w.g

if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eql 5

3014

ggl.‘s ;

RECOVERABLE DATA ERROR

OLDSEC = .MLEL;

5416

5434

;
a

OLDCHN = .CHAN:

541§

'x 16E *

if .ERROUT then PRINTB (FMT10B, .CHAN):

543

§1 s

ISOLATE O);

R
S

RER X
SOBISY

8640

€51 :
begin

3425

|
|
;

!xtxx OPTION 2 ERROR 16 #evs

leave LOOP2;
!JUMP JUST BEYOND END OF BLOCK * 13 «
end;
' 16D »

§28$

) B

TOPS-20 Bliss=16 V2(212)

PA:<NEALESMLX4.BLI'S: (38)

DOD0 (.LUN):

2610

5453

ISOLATE ();
ERRDF (216, MSG2, 0):
WHY DROPT [.LUN] = CODE_7;

2289

8629 :

8634

27-Mar-1982 19:23:46

5400

gzgg

:
:

27-Mar-1982 19:24:42

3401
540
540
5404
5405

8626

i 3

SEQ 0208

5397
s§9a
5399

5417
gzlg

0 ;

.3
PAGE 196

29-MAR-82 13:41

DEFINITION OF OPTION 2

8623
;
g ‘so 3

8628 :

MACRO M1113

tes;
end;

end;

's 16E
! 16 *

WPTR
= .WPTR + (.WRDCNT*2):
SECTOR

= .SECTOR + (.WRDCNT/256):

END OF COUNTING LOOP FOR LOOP READING

CZMLBBO PERFORMANLE EXERCI?ER
OPT1 LEFINITION OF OPTION

8656

:MLX4

gggz H

g’l:ls'g

gg? :

22?

8663 :

866t :

0699 :

8670 ;
8671 :
8672 :

8673 :

¢9-MAR-82 13:41

SEQ 0209

5454
5455
5456

end;

343

if .EFNS$21

then

! 15 «~

END OF SECTOR SELECTION LOOP

!* 14 «

END OF

TEST FOR AN ACTIVE UNIT

522475

78 ;

5468

incru SECTOR from LOWEST to HIGHEST do

if read (.LUN, 256, RBUFF, .SECTOR) eql 5

then

begin

%I 3

g:;}

8683

gz;{.’:

if .ERROUT then PRINTB (FMT10B, .CHAN):

5477

i Save the contents of the ML error location

8687

glz;g

3
3
3, 3

5478
5479
gl‘og?

95 :

5482

93 ;
9% ;
99 :
97
gg :

5483
5484
5485
5486
5487
s:‘.gg

% ;

5490

igg :

gl‘.g

5494

:
S

5499
529

710 ;

5500

701 ;

5491

5495

‘

u;g :

gfi% :

begin

: version czmlbb changed incr to incru

TOPS-2

!Is the background pattern to be read

gzglso

5469
5470

0 Bliss=16 v2(212)
PA:<NEALE>ML
X4.BLI.5 (38)

! Test to see if this uut's address space is
! to be read for soft errors. This test is
. 1s intended for DMT purposes.

5459

5463

27-Mar-1982 19:23:44

end;

545

5460
5461
5462

27-Mar-1982 19:24:42

gg;g :

8679 :
8680 ;

D
1
PAGE 197

DEFINITION OF OPTION 2

8659 :

8664 ;
8665 ;
8669 3

MACRO M1113

ISOLATE ();

!Find the failing bank and board no.

: Print where the error is

!
!
!

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, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql
5

then

| 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 c[assiy it as a soft
: error.

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

f
'

CZMLBBO PERFORMANCE EXERCISER
OPT1 DEFINITION OF OPTION 1

71§ sMLXG

8;}4 :
8715 ;

£718 ;
8719 ;

5504
5505

87 g :
8723
;
8724 ;
8725 ;

87 g 3
37
3

5518
5519

P 5550
P 5521
5522
5523
5524
5525

73 i

3358

743 ;
744 ;

745
746 ;
747 ;
748 ;
749 :
750 ;

;

725 :

else

765 :
8766
;

551
5552

!Not the same error ‘'soft’

begln

ERRSOFT_(221,
!Error number
MSG3, ~~ !Error message
0); !Additional message routine
end;

UP_SOFT_COUNT (.LUN, .BOARD):
end

else

begin

if .ERROUT
then
begin

INot th

'No

same

error

'soft’

!Print error if enabled

ERRSOFT_(222,
!Error number
MSG3,
!Error message
.
0);
!Additional message routine

end;

5539

%ggg

begin

if .ERROUT !Print error if enabled

§§§a

;25 3

end

then

P 5534
P 5535
5539

gS&S

!Same error occured ‘hard’

UP_HARD_COUNT (.LUN, .BOARD):

5531
5532
g533

758 3

TOPS-20 Bliss=16 v2(212)

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

if .ERROUT
!Print error if enabled
then
begin
ERRHRD (220,
'Error number
MSG4,
~
!Error message
0); !Additional message routine
end;
:

55§9
3530

gs:.o
541
556§

760 ;
;61 s

begin

5526

754 ;
7;5 :
7 9 :
:

then

5519

3
g? D 3
736
:
737
:
7;0 3
739 ;

8740 ;

27-Mar-1982 19:23:44

5509

8727
;
8728 ;
3;29 :

87;? 3

27-Mar-1982 19:24:42

P 550

P 5508
5509
5510
5511
551§
551
5514
gg}s

87 9 H

SEQ 0210

5501

ggg

720 ;

E 1
PAGE 198

29-MAR-82 13:41

DEFINITION OF OPTION 2

3;}9 2

721 ;

MACRO M1113

UP_SOFT_COUNT (.LUN, .BOARD):

end;
end;
end;

549
ggfis

end;
end;

= 13 «
!* 12 +

END OF TESTLOOP2
END OF LOGICAL UNIT SELECTION LOOP

!x 11 ~ END OF LOOP READING SECTION
! 2 «+

END OF PATTERN SELECTION LOOP

851§ER

MACRO M1113

29-MAR-82 13:41

PAGE 199

SEQ 0211

27-Mar-1982 1
27-Mar-1982 1

DEFINITION OF OPTION 2

CZMLBBO PERFORMANCE E
OPT1 DEFINITION OF OP

24:42
23:4“

TOPS-20 Bliss=16 v2(212)

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

return;

end;

OPT2:

b
—

67
5767

4S:

——

e e

e mnd

8282 o.‘-.‘-oga&:gag

51NN NN

gl\ NNNN!
ad

282
SS3a OfiEs:NNNRRS
~

000034

5%:

000034
6$:

#26,SP
#RTN2 - (SP)
#URD34
, - (SP)
#SAY2,~(SP)
#3,-(5P)
SP.RO

14
PATTERN
QUICK
1$

#1,RS
2s
#12,RS
RS.52(sP)

JMP

74$

JSR
ST
BLE

MOV
MOV
MOV
MOV
MOV
TRAP
BR
MOV
NEG
MOV
MOV
MoV
MOV
MOV
TRAP
MOV
JSR
MOV
CLR
JMP
MoV

END OF ROUTINE

OPT2 DEFINITION OF OPTION 2
R1,$S
# AVES

MOV
BR
MOV
MOV
ASL
CLR

—

ooy
Ui

00O
o
o0
0‘“‘. -d.d-‘-d-d.d 0

-SBTTL

JSR
SuB
MOV
MOV
MOV
MoV
MoV

TRAP
CLR
TST
BEQ

b e

J SIS IIIIEES I
T
BB
S ek d d e
ed
~
wiWiwaas
o
ON
NENORRONG
RS RSN

131254
0000

!~ 1 «

32(5P)
30(SP)

* ,MAXPAT
* ,MAXPAT
MAXPAT,*

COUNT

PC,SELPAT
PATTERN
4

PATTERN,=(SP)
#PHR= S,
(SP)
#FMT1A,=(SP)
#3,-(SP)
SP.RO
14
5$
PATTE34
RN,
(SP)
34(SP)
34(SP) ,~(SP)
#PHRY, = (SP)
#FMT1B,~(SP)
#3,-(SP)
SP.RO
14
PATTERN, (SP)
PC,GEN2
LSUNIT,34(SP)
RS
33s
RS.RO

5051

5053
5055
5057

SP,»

*,TEMP

TEMP
TEMP,
»

SP,x

5066
LUN
LUN,
=

5068
5073

CZ”%BBO PERFORMANCE EXERCISER
OPTZ
DEFINITION OF OPTION 2

MACRO M1113

006200

ASR

054

ASR

5420

54
054
54

8838

054340

ASR

034442

ADD

#DRIVE . STATUS,RO

177770

BIC

#177770, (SP)

CLR
JSR

-(5P)
PC,BLSGT2

12746 000001

3849‘9
67

062706

005300

118
RS,LSLUN
#UBUFF ,WPTR
#RBUFF .RPTR
RS,R1

: LUN,»
:
:
: LUN,*

MOV

LOW.SECT(R1) ,Ré

: *,SECTOR

3325

16104

034460

36'27 054400

101110

8 054402
9 054404
50 054410
51 054414
sg 854418
53
0544
sg
4424
55
054426
59 544

010446
016146
767
010002
1021
67
010516
010246
16746

ss
59

046767
18003

8862

8863

8864
8865
B84
.;.,.,
B868

0544

44
05444

gzzga
054452

054456

054462
054464
5«93
44
054474

8869
8870
8871
.’-

0545
0545
0545
5451

8874
B875

0545
0545

020461

516

10446

104455
311
11070

53878
78 92435¢ 1
0545
04451
3F

045424

171524

MOV
MOV
JSR
MOV
MOV
MOV

R&,=(SP)
TOP.SECT(R1) ,~(SP)
PC,GET.WRDCNT
RO.R2
R2.(SP)
PC.SET.PTRS
RS, (SP)
R2.=(SP)
WPTR,=(SP)

JSR
MOV

PC.WRITE
RO.R3

034446

11$

R4,=(SP)

g‘ré

gg.n

MOV

MOV
MOV
MOV
MOV
JSR

000014
000004

MOV
MOV

MOV

156176

R4, TOP.SECT(R1)

MOV

170762

5076
5077
5078
5079

: SECTOR,*

5081

: SECTOR,*

5083

: *,WRDCNT
: WRDCNT,*

5084

: LUN,*
: WRDCNT,*

5085

: SECTOR,*
: *,VALUE

: VALUE,*

5091

#6,-(SP)

RS,=(SP)
R2,~-(SP)
WPTR,=(SP)
R4 ,=(SP)

5097

: LUN,*
: WRDCNT,*

MRITE = (SP)

PC.RETRY

ADD
ST
BEQ
MOVB

#14,sP
RO
128
#4,WHY.DROPT(RS)

.WORD
.WORD

311
MSG1

TRAP

CMP

BHI

156234

000006

706
700
mg
12765

78:

172506

012746

767

ASL

034500
172562

000001

010546
w;l.e
16746
10449

156312
156306

034500

13;

012746

#1,-(SP)

BNE
MOV
MOV
MOV
MOV

DEC

TOPS

PA:<

LUN, *

#10,sp

125524
012670
022670

6 054374

ADD

1127
10567
012767
012767
010501
1

Re-i)

000010

054 5
54
054350
54356
54
054

MOV

130022

8839
33"40
1
w.g
ggz
4

7-Mar-1982 19:23:44

) D2e3s 10048
5431

S?-Har-WBZ 19:24:42

DEFINITION OF OPTION 2

054

8 054302

6 1
PAGE 200
SEQ@ 0212

sMLX4

29-MAR-82 13:41

oy
Bs.Ro
TRAP
57

: SECTOR,*
.

: %, *(LUN)

;

LUN

5100

5101
,
:

5102 ;|
:

CZMLBBO PERFORMANCE EXERCIS ER
OPTZ
DEFINITION OF OPTION 2

MACRO M1113

8880
8881

sMLXG
:

5“5 54532
Sgflg 54353
°§§?u3i$317 000002
8s:
6'33985454 112725 000005 034446
ggg‘

eagg

54550
54552
54554

91 222
9; 854
93

104455
000312
011070

105
10442?

054564

000414

0545

1014

8897
98
99

54576

054576
054
05
54

054612

3384 054616
54622
8905 054624

79
5
767

000012

907
910

11
15

13
1%
915
9}9

546

054634

;

4644
054
054652
54
054662
054
5463
22677'

4710
471
ms

47,

4724

005066

034446
108:
11$:
128:

171336

000034

000040

001015
005;66
016766
81 546
010246
016746
10446
7?5

000040

000036
by

156002

170714

155752

767 171054
3

1076
2 s?g

000001

54744

746

155722

167350

5475
05475

54723

547

54766

746 155724
49
06

TRAP
.WORD
.WORD

108
gg.az
#5,WHY.DROPT(RS)

::
VALUE,*
:: %, %(LUN)

55
312
MSG1

fiouem
TRAP gs1 RO

B8R

BNE

000006

000060

:
000050

148:

5118

313
MSG1
0
#6.WHY.DROPT(RS)

ADD
BR
JSR

#12,5P
158
PC., CHOOSE

RO, 34 (SP)

40(sP)

JSR

MOV

BNE
Sé{

RS,=(5P)
R2,=(SP)
WPTR,-(SP)
R4 ,=(SP)

PC. CHECK

RO.R3

168
g;‘so(sp)

WPTR,=(SP)

JSR

PC,DOU
. BLE
CHECK

MOV
ADD

MOV

BEQ

5121

5125

5127

: *,COMMAND

: *,PIR
: LUN,*

MOV
MOV

RPTR, 36 (SP)
RS,=(SP)

WPTR,36(SP)
-

5119
5120

: COMMAND
,*

R2,-(SP)
RPTR,~(SP)
R4 ,=(SP)
72!"5”

RPTR,=(SP)

R2,=(SP)

#6.SP

RO,60(SP)

17§

5091

: %, *(LUN)
: LUN,*

RO, #READ

13§
40(SP)

MOV

5112

5113

BNE
INC
MOV
MOV
MOV
MOV
MOV
I.;“su

5103 |
5091
|
5110
|
5111

: VALUE,*

RS.RO

MOV

TOPS
PA:< |

12§

TRAP

LUN

574‘»-1932 19:24:42
7-Mar-1982 19:23:44

R3,43

MOV

MOV
MOV
MOV
MOV

.‘

108

CMP

CLR

816766 155764 000036 13$:
10546

010246
018‘46
10446

BR
%
MOVB

CMP

156014

51.73
54;

fin

10066

DEFINITION OF OPTION 2

WORD
.WORD
.WORD
MOVB

4640 080027 045612

913 549
1

104451

SEQ 0213

TRAP

000313
11070

000006

54614

95:

104455

12765
010500

8901
3905

PAGE 201

)

9% sz.sgs 350327 000003
5

29-MAR-82 13:41

5130
5131

: WRDCNT,*

: SECTOR,*

: *,PTR

5135

: LUN,*
: WRDCNT,
+

5136

: SECTOR,*

; *,VALUE

:
:

: WRDCNT,*
; *,DBL.VALUE

5143
5148

5152

l
t

|
i
@

85%880 PERFORMANCE EXERCISER
DEFINITION OF OPTION 2

MACRO M1113

29-MAR-82 13:41

SEQ 0214

g;z
89

sMLXS

8939 054770
8940 054772
8941 054776
8942 055002
5
55012

8325‘9
767
012716
012746
81 7%
01

12746

012746
01

000003

5042

062766

010000

17646

000074

soga
8
72
5074
102

12746
01
104414
112765
104455

000003

5108
5110

11070
000000

040

505

gsos:.

104414

5060 81

;30"
MOV
MoV

006710

032
0.

000074

5112

5114
112
51

124

1
132
132
142
144
146
152
15
122

198
174

104451
2706
10

000044

15$:

168:

000006
000046

000056

171044
000014

000520

000004

034446

18$:

!
38
4

000002

19s:

: LUN,*

:
: SP,x

DBL . VALUE
s DBL.VALUE,*
:

ADD

#10000, 74 (SP)

; *,DBL.VALUE

MOV

874 (SP) ,=(SP)

: DBL.VALUE.+*

74(SP) , (SP)

#FMT128.-(SP)

MOV
MOV
TRAP
MOVB TRAP

#3,-(SP)
SP.RO
14
#10,WHY.DROPT(RS)
55

.WORD
.WORD

MSG1
0

TRAP
ADD
BR

51
844 ,SP
238

(MP

BNE
MOV
MOV
MOV
MOV
MoV
MOV
JSR
ADD

JMP

314

RS.RO

19§
#6,~(SP)
46(SP) ,~(SP)
RS,=(SP)
R2,-(SP)
56(SP) ,~(SP)
R4 ,=(SP)
PC,RETRY
#14,5pP

318

s DBL.VALUE,*

; *,%(LUN)
:

5165

: VALUE,*

5143

:
:
¢
:
:
:

5173

COMMAND,*
LUN,*
WRDCNT,
»
PTR,*
SECTOR,+

MOV

RS.RO

: LUN,*

208

; VALUE,*

BNE

5162
5163

5164

315
MSG1

32
R3,#2

5160

: LUN,*

WORD
.WORD

B
CMP

5159

#4,WHY.DROPT(RS)

5157

; SP,*

MOVB

TRAP

TOPS
PA:<

5155 |
|
5156 |
|

s SP,x

MOV

020 §7 000001

19 3
012746
16646
010546
010246
016646
01

7=Mar=-1982
42
57-fla
r-19 19:24:
19:23:44

SP.RO

LWORD

010500

TRAP

MOV

104 800314

66(SP) , (SP)
866(3P
) ,~(SP)
#FMT12A,-(SP)

#3,-(SP)

MOV

034446

RS,~(SP)
PC.SAYWHO
#MSGS, (SP)
#SAY1.=(SP)
#2,-(5P)
RO

MOV

46 006756
000010

DEFINITION OF OPTION 2
MOV
JSR
MOV
MOV
MOV
MOV

160526
011216
007072
2

sso;:. 3?“}2 000066
SS§S 1 966 00006
6
6

11
PAGE 202

; *,%(LUN)
:

,
|

5176

5177

5178 |

5179
5143 |||

CZMLBBO PERFORMANCE EXERCISER

OPT2

DEFINITION OF OPTION 2

MACRO M1113

29-MAR-82 13:41

SEQ 0215

2MLXS
:

000005

034446

MOVB
TRAP

000006

034446

000004

316
MSG1
O

TRAP
MWORD
.WORD
WORD

55
317
MSG1
0

5194

R5.RO

TRAP
BR
(MP
BNE
WORD
.WORD
WORD

MOVB

MOV

#6.WHY.DROPT(RS)

R5.RO

000005

248:

53!.'15‘#5

000001

124670

157012

JSR

328

PC,iSOLATE

g; ismnom

MOV

aML .REG+42,R0

ASR
ASR

ASR

8833‘020

MoV

#FAT108,~(SP)
#2,-(SP
S

156736

SP.RO

ADD

aML.REG+44,52(SP)

MoV

5202

5203

5204

5205

5206
: VALUE,*

5143

5211

5213

:(1, 77;835130

MOV

MoV

5197
5143

177700

126946 000052 25%:

5195

5196

RO
RO

TRAP

: %, *(LUN)

: LUN,*

5188 |

RO
RO

ASR
ASR

MOV

320
MSG2
O

2;.2 SP

161750

#7.WHY.DROPT(RS)

:
; VALUE,*

PC,ISOLATE

Ef
JMP

; *,«(LUN)

1
228
R3,#4
248

228

238:

<
'

5189
5143

: LUN,*

000022
000406

5186

5187 |

:
: VALUE,*

JSR

034446

228
5?!’3

TRAP

000007

: %, «(LUN)

BR
&‘mé

MOVB

162014

#5,WHY.DROPT(RS)

TOPS

PA:<

RS.RO

MOV

218:

27-Mar-1982 19:23:44

MOV

TRAP

20s:

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2

WORD
-WORD
JWORD

000003

J 1
PAGE 203

#6,SP

2'3" -REG+42,R0

; SP,%

; *,0LDSEC

;

gg}g

(ZMLBBO PERFORMANCE EXERCISER
OPTZ
DEFINITION GF OPTION 2

MACRO M1113

9048
%"S’g
9051 055454

055464

3859
5493
5 854
9058

055476

012746

016646 000046
&o 5Sg 02 010546
9061 sss1g
59

55512
555 3

810246
016646
10446

000056

7766

156650

9065 222 4
%82 3533?2
gss 0 50;7
saoe.E
“9 gs
19 1 000005
9063

gg“

9071

05555

3390 sg54
9075

387

555

6946 000054

RO
38

BIC
MOV

#177700,R0
RO, 54 (SP)

MOV

MoV

000052

: WRDCNT,

2?::“55"'
RO, #5
28§

g‘ug

%.nscm.sz(sm

MOV

aML.REG+42,R0

ASR

05556

R2,=(5P)

46(SP) ,~(SP)

56(SP) ,=(SP)
R&,=(SP)

ASR

556

ASR

RO
#177700,R0

BIT
BEQ

#1,ERROUT
268
56

.WORD

MSG4

5
g 61
1

000001

TRAP
WORD

0
4

26$

156512

161566
000001

JSR

124414

27$:

ggr
7

000001

124372

28%:

PC,UP.HA
. COUNT
RD

308

#1,ERROUT
3

WORD

322

.WORD

MSG3

BIT

#1,ERROUT

TRAP

éamo 393

BEQ

.WORD
.WORD

5226

: OLDCHN,*

321

BIT
BEQ

TRAP

2§

5222

633". 35 (SP)
BOAR
- D,
(SP)

MOV

; *,0LDSEC

124450

ASR
BIC

5219

: PIR,*
: SECTOR,*

555
gss7

177700

: LUN,*

ASR
ASR

: COMMAND,*

54(SP) ,~(SP)

55564

555

: *,0LDCHN

MOV
MOV

MOV

156632

‘

#1.-(SP)

RS,=(SP)

;{Sfi
CMP
BNE

TOPS
PA:< |

MOV

19:24:42
19:23:44

ASR
2?2

ASR

000001

27-Mar-1982
27-Mar-1982

DEFINITION OF OPTION 2

ASR

177700
000054

K
1
PAGE 204

SEQ 0216

sMLXSG
-

9os§ 251.5 006200
3324 33462 006,

9055

29-MAR-82 13:41

9§

323
MSG3

;

LUN

5228
szgz

5233

5241

5235

CZMLBBO PERFORMANCE EXERCISER

OPTZ

DEFINITION OF OPTION 2

MACRO M1113

9104

9107

9183

156434

9110

162172

9111
911§
911

154744
154740

9117

9120
9121

1u964”16

9124

000034

91 9

176304

9125

91
9 3

154676

91
9131

124002

2014

91 g
91

:
.

1
135

.
:

3138

03¢

05604

141

156

9157
9158

BOARD, - (SP)

(MP
ASL

JSR

HOV

001766

JMP
INC

BGE

JMP

056

056
056

034500
171034

WPTR,RO
RO,WPTR
R2. (SP)

#400,-(SP)

; WRDCNT,+

PC.BLSDIV
R4.RO
RO.R%
#24,5P

5250

: SECTOR,*
: *,SECTOR
:

: LUN

5081

RS,34(SP)

348

* LUN,*

5249

5082

5068

368:

MOV
ASR
ASR

RS,RO
RO
RO

; LUN,*

5304

JMP

mov
BIC

126300

33“33

5210

5299

ADD

;
: LUN

000010

;

* WRDCNT,*

LSUNIT,34(SP)
RS

JMP

ASR
ADD

378:
154564
154560

(SP)+.(SP)+
RO

Moy
CLR

177770

3776
012670
022670

R2.RO

35%:

03605¢

:
:
:

5258

MOV

5243 |

034442

931;46

: LUN,*

ngxcx
358

000001

03608
5066

TOPS |

PA:< .

TST
BEQ

056

93¢

PC,UP.SOFT.COUNT

27-Mar-1982 19:23:44

34$:

140

1
1
}

000034

:
05¢

91
91

328:

338:

RS.=(SP)

MOV

JSR
ADD
MOV
ADD

9 g

.WORD

MOV

127226

27-Mar-1982 19:24:42

DEFINITION OF OPTION 2

ADD
MoV
MOV

000400

9113
911

9148
149

308:

31$:

9114
9115
911

144

298:

L1
PAGE 205
SEQ 0217

sMLXG

3%32

29-MAR-82 13:41

388:

398:

ks
WP
Moy

MOV
MOV
:g{
MOV

73s

728

RO
#DRI
. STATUS
VE
RO

hor-e3p)
-

#177770, (SP)

#1,-(SP)

LUN

PeBLSGT2

#10,sP

50
608
RS,LS

LUN
#WBUFF ,WPTR
#RBUFF _RPTR
gg.m

LOW.SECT(R1) R4

: LUN,*

:
:
: LUN,*

5307
5308
5
5310

; *,SECTOR

g;irop.secr(fm

: SECTOR,*

5312

MOV

Ré,~(SP)

; SECTOR,*

5314

MOV
JSR

TOP.SECT(R1) ,~(SP)
PC,GET.WRDCNT

CZH%BBO PERFORMANCE EXERCISE2
OPTZ DEFINIT ION OF OPTI ON 2

MACRO M1113

9160

916 3
9164

142
056144

9165 8561
9169 5615
9167
056156
mg 561
919 561

3}7?

174

91;;
91

010002
01021

67 170760
767 170010
01
000026
12766
1 000032
039 oooo%:.
408:
6627

000026

045612

5266
16766

oooo;z.
154456

000030

9174
9175

018546
10246

91
9173
917

91;9

18‘46

16766

9181
9 g

010546
010;46

91
91

016746
01 49

9185
91
9N
& §§

19
19
1

3191
91

3133

g
S

056
:
6326
:

I
921

000030

000001

016746

154366

0;49
67

PC.SET.PTRS
PC . CHOOSE
RO.26(SP)
#1.32(5P)
24(SP)

INC
MOV

24(SP)
RPTR.30(SP)

MOV
MOV
JSR
BR

RPTR.=(SP)
RG,=(SP)
PC.READ
428

MOV

MOV
MOV

167516

42%:

000034

166012
000006
000052
157170

g?;sm.mm

MOV

5337
5342

MOV

WPTR,~(SP)

5346

MOV
JSR
ADD

s WRDCNT,
=

MOV
BEQ
MOV

R2.-(SP)
PC,DOUBL
. CHECK
E
#6.SP

R0.52(SP)
448
RS,=(SP)

RPTR.~(SP)

056

fate
:

62
1

oste
13746

MOV

MOV
MOV
MOV
MOV
MOV

000066

TRAP

ADD

MOV

My
MOV

SP.RO

60(SP) , (SP)
@60(SPJ ,~(SP)
#FMT12A - (SP)
#3,-(SP§

: LUN,*

5349

: SP,x

: DBL.VALUE,*
: DBL.VALU.*
E

SP.RO

#10000,66(SP)

; *,DBL.VALUE

66(SP) . (SP)

AR
#3,-(SP§

5330

; *,DBL.VALUE

PC.SAYWHO

5329

s *,VALUE
:
2

TRAP

: *,PIR

: SECTOR,*

?« 14

;

5325

R4 ,~(SP)
PC. CHECK
RO.R3
438
zzi36(5!’)

0
0
10
000003

5324

MOV
JSR
MOV
BNE
gé E

WAT1 i5m
#2,-(5P)

9616
017646
01274
12746

: *.PIR

; SECTOR,*

WPTR,=(SP)

|
5316 |
|
5318
5321

: LUN,*
: WRDCNT,

WPTR,30(SP)

ROV
MOV

:
056360
5364

5315

:
3 *,COMMAND
> *.KOUNT
:

* COMMAND,
*

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

TOPS

PA:<

: LON,*
: WRDCNT,

JSR

10600

: *,WRDCNT
: WRDCNT,
*

19:23:44

RS,=(5P)
R2,~(SP)

MOV

18746 1s:.§o4

1 ;46
4 32
706

41$:

154414

767
10093
1076
?'?‘;?S

JSR
JSR
MOV
MOV
CLR
%

27=-Mar-1

RO.R2
R2. (SP)

015708 Sovers
01 74.3 880002

167356
154426

MoV
MOV

MOV
MOV

154444

zr-n..--1g=$ 19:24:42

DEFINITION OF OPTION 2

2320
6344

49
767
12

PAGE 206

SEQ 0218

SMLXG

195
9139

29-MAR-82 13:41

5352

SP,x

; DBL.VALUE,*

5354
5355

SRR,

FORMANCE EX
TION OF OP7

EGSISER

MACRO M1113 29-MAR-82 13:41 PAGE '2'071
SEQ 0219

MO~
=
ON Vi

000010

034445

No&28
et

43%:

000006
000040

vV
S
SOk
RNI W=D
e N
NOWVNB i
NN —=OVBNO

167506

5357|
5358

LUN,
*

5359

5360
VALUE,
*

468

#6,~(SP)
40(SP) ,-(SP)
RS,=(SP)
R2.-(SP)
S0(SP) ,~(SP)
RG,=(SP)

000050

s *,x(LUN)

MSG1
0
RS.RO
51
#36.,5P

000001

TOPS |
PA:< |

SP,*

g;O.UHY.DROPT(RS)

000036

COMMAND
,*
LUN,*
WRDCNT
,»

5337

5368

PTR,
*

SECTOR,
*

PC.RETRY

#14,spP

000014

000520
000004

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

DEFINITION OF OPTION 2

?:.RO

SR
NN

e zfig

=20

sMLX4

44%:

034446

45%:

RO
458
588

gg.UHY.DROPT(RS)

*,*(LUN)

5371
5372

B
RS.RO

Lw"

5373

RS a2

VALUE,
*

5374
5337

325

MSG1

000002
000005

46%:

034446

478

gg.uuv.oaopr<a5>

*, % (LUN)

326

000003

47%:

MSG1
0
RS5.RO
51
49%
R3 #3
4

* VALUE,*

55
327
8361

000006

034446

#6,WHY .DROPT (RS)
RS.RO
498

s *,*(LUN)

s LUN,*

5381
5382

CZMLBBO PERFORMANCE exencxgea
OPT2 DEFINITION OF OPTION

MACRO M1113

9 7§
g ;‘

6
7

50
;3 056654
056656
g? gm
ag osee?a

020327

1017
767

104455
000330
011120
112765

000004

160456

000007

056672

56976 oezrog 000014

01 sgo

488:

034446

84 856674 104451
9286 056702
87 056706

asg

90
1

056714

056720

000167
020327

001076
000005

767

160412

1157

032767

000007

56730
0567

017700
3%500

155454

056740
056742
56744

006200
006200
8325“

56750

042700

177700

012746

000002

056726

056

5674

856754
gsrs

8 6762

001423

56776

017766

5701

57014
5701

57
gr
7
gr

7
g? 0
7044
57 3
57050
gr 54
g

705

5
5707

017700

6288

CiP

R3,4#4

: VALUE,*

TRAP
.WORD
.fig

55
330
gssz

MOVB

#7.WHY.DROPT(RS)

BNE
JSR

155410

155400

ADD

#14,5P

TRAP

JMP
CMP

BNE

1
66

155312

5406

52§

#177700,R0

RO,=(SP}
#FMT108,~(SP)

14
#6,SP

SP.RO

; SP,%

MOV

aML.REG+44 , 44 (SP)

; *,0LDSEC

ASR

MOV

CMP

BNE
CMP

5408

TRAP
ADD

JSR
ADD

000044

#2,-(SP)

MOV
MOV
MOV
MOV
MOV
MOV

000005

PC,ISOLATE

MOV

ASR
ASR
BIC
MOV

5337

RO
RO
RO

ASR
ASR

167142
038814

; VALUE,»

588

ASR
ASR
ASR

00
3°
042700
1 966

767
7

5401

aML.REG+42,R0
RO

ASR

000050

;

MOV
ASR

MOV

1
000040

71$
R3,45

#1.ERROUT

12746
016646
010546
10246
016646
010446

BIT

MOV
MOV

177700
046

5399

5400

ASR

00
200

; %, %(LUN)

5397

5398

: LON,*

BEQ

528:

5337

RS.RO

- BIC

000044

518
PC, ISOLATE

aML.REG+42.RO

5410

5411

RO
RO

RO
RO
#177700,R0
RO, 46(SP)

#1.-(SP)
40(SP) ,=(SP)
RS,=(SP)
R2,=(SP)
50(SP) ,=(SP)
RG,=!SP}

PC.RETRY
#14,5P

; *,0LDCHN

:
: COMMAND,»
2 LUN,*
.3 WRDCNT,*
: PTR,*
s SECTOR,*

5413

; *,0LDSEC

5416

RO, 45

55§
aML .REG+44 , 44 (SP)

,
|

TOPS
PA:< |

MOV

ASR

oserg 104414
5677, oe;ros 000006

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

DEFINITION OF OPTION 2

JSR

123332

010046
815746 004640
010600

7 12

S0$:
518:

6766

006

498:

B 2
PAGE 208
SEQ 0220

sMLXS
3

9275 056642

29-MAR-82 13:41

PERFORMANCE
E
DEFINITICN OF OP

MACRO M1113

9328

sMLX4

3
3332 03710¢ Qraene 000046
3333 057110 852%8 155274
9334
057114
9

9335 057116
9336
057120
9337 057122
9338
057124
9339 0571
9340 057130
9341 057134
9342 057136
9343
057140
934
057146
9345 057150

9346 057152
9347
057154
9348 057136
9349 057160

000331
011202
000000
010546

3387
9 s% §¥¥°
37173 004767
0426

9353
9354
9355

56
37

057174
057202
057204

032767
001415
104457

R
#177700.R0
RO, (SP)+
llgERROUT

5420

R5,=(SP)

155154
160230

LUN,*

BOARD,~(SP)
gC‘UP.HARD.COUNT

5423

030787 000001

123034

55%:

5431
5437

57024
57226

001404
104457

54§

123112

5416
5428

00041

7
7
7
7

OLDCHN,
*

54%:

057214

TOPS|
PA:<

123056

000332
011166

57
57

27-Mar-1982 19:24 142

S7-Mar-1985 19: 2 3:44

DEFINITION OF OPTION 2

000001

057206
957210

037316

SEQ 0221

548

177700

000001

c 2
PAGE 209

46(SP) ,~(SP)
gfll.REG*bZ.RO

00
00
00
00
GO

04
020026
00101
03276
001404
104456

29-MAR-82 13:41

155076

160634

000010
00032

800032 000002
176672

153362
153356

128608

56%:
57%:
58%:

59%:

R5,-(SP)
BOARD ,~(SP)
PC,UP.SOFT.COUNT
(SP)+,(SP)+
#10,SP

32(SP)-

32(5P)
. #2
595
408
R2,RO
RO

WPTR,RO
RO,WPTR
R2. (SP)

LUN,
*
Qe Ne vy n,

CZMLBBO
OPT2

KOUNT
KOUNT
,*

WRDCNT,»

#400,-(sP)

WRDCNT,=

R4.RO

SECTOR,*

PC,BLSDIV

176562

000001

122714

000026
62$:

TOPS|
PA:<

*,SECTOR

E3)
31
45

608:

61%:

00
022670

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

DEFINITION OF OPTION 2

RO,R%
#6,SP

000430
034500
034460

SE@ 0222

LUN,
TOP.SECT(RO) ,26(SP)
%8g.SECT(RO).R1

*,SECTOR

#400,-(5P)

RS,=(SP)

le"

R1,-(SP)

SECTOR,
*

sMLX4

R
00'0
2LEEE&\.fi§

O OO0
O OO0

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

5466

5468

#RBUFF ,=(SP)

PC.READ

RO, #5

157700
000001

69§

PC,ISOLATE
g1isnaour

gfll.kEG*k?.RO

177700

R
#177700,R0

006640
000002

b el wd

b —— —

154742

wd e

122620

—d e

WUI&W-!OOOWUI&W-lOSg

RERRRRARRRRRL
PRV LR RRP LRV P P B8 RRRR

#10,sP

547
5473

RO, ~(SP§

#FMT108B,~(SP)

#2,-(SP§

000030

63s:

aML .REG+44,30(SP)
aML .REG+42,R0

*,0LDSEC

5482
5483

177700

BEW
NP

ENNCNNNN

OO0O0O

v
w Wl

-.-.-02

154676
154666

NN~

CO000000000O000
v

SO«

00003%

00000¢

#1.-(SP)

*,0LDCiHN

24(SP) ,-(SP)

COMMAND
,*
LUN,
=

34(SP) ,~(SP)

PTR,
*
OLDSEC,*

RS,=(SP)
#400,-(5P)

42(SP) .~(SP)

5491

PERFORMANCE EXERCI%ER
MACRO M1113 29-MAR-82 13:41 PAGE 5112
6P12BBO
DEFINITION OF OPTION
9440

sMLXSG

9441
944§

ss e
9445

IPy
il

1<
0

SIS
S

RRVL/LRVAR8RR R
INIFANINNG &

geeeee

= QO000000 OO =
wvivawW Vi
)
NN NN

VIS
NN = OO

RRRRY
2féfififi
g@@@ S32ISRREERE

9448

iV (vl a\h\hu
RANNIRAR “\l SININNNN
SNNNIN
ONON
O
SRERR
.‘S}u:h»o~

057604

166424

1 9:24:42
1 9::23:
2 44

TOPS
PA:<.

PC,RETRY

RO, 45

66§

020030

aML .REG+44,30(SP)

65%
32(SP) ,-(SP)

000032
154556

SHL.REG*42.RO

s *,0LDSEC

i
5500
|

s OLDCHN,
=

R
#177700,R0
RO, (SP)+

177700

000001

27-Mar-198
27-Mar-19

DEFINITION OF OPTION 2

#14,SP

000014
000005
154574

SEQ@ 0223

658

122374

#1 ,ERROUT

648
36
334

3364

64$:

154436
157512

000001

122340

65%:

000001

122316

66$:

R5,=(SP)

PC ug‘fiigs)couur

688

II‘ERROUT

R5,=(SP)
BOARD,~(SP)
PC,UP.SOFT.COUNT
(?P)+,(SP)+
R
R1,26(SP)

; SECTOR,*

628
RS
R5,34(SP)

: LUN
¢ LUN,*

7152

73§
368

s LUN,»

SECTOR

5470
5466

5299

€z

PERFORMANCE EXERCISER

OPT2

DEFINITION OF OPTION 2

MACRO M1113

gg§?

9so§

9504

ggos

95§9
gg g

706 000010

%8%30 000032
86
171.110

000207

738:

.2 13:41

PAGE 212

SEQ 0224

IMLXS

&3‘

9499

29-MAR

ADD

74$:

g!sl;

75%:

ADD

INC

JMP

RTS

DEFINITION OF OPTION 2

#10,SP

;

-1982

19:24:4

$7:=::-19g 19:53:42

TOPS

Pfi( |

5052

;%SP).BZ(SP)

s COUNT

: cgfir.-

036.SP

4982 !

30(SP)

; Routine Size: 1023 words

: Maximum stack depth per invocation:

43 words

‘

85%880 PERF ORMANCE EXERCISER
DEFINITION OF OPTION
9516

:MLX4

8?%8 2
9519 ;
9520 :

9521 :
95 g 3
9523

MACRO M1113

29-MAR-82 13:41

SEQ@ 0225

DEFINITION OF GPTION 3
5555
5556

Z%sbttl 'DEF§NITIM OF OPTION 3°
routine OPT3
: novalue =

5557
5558

begin

5559

!++

€ 2
PAGE 213
27=%ar-1982 19:24:42

27-Mar-1982 19:23:44

!« 1 «

START OF ROUTINE

gss ‘5' H

gggg

ROUTINE :

OPT3

gg 9 H

ggg§

PURPOSE :

TO DO A UNIQUE DATA CHECK ON ALL AVAILABLE UNITS.

3§ 8 :

ggg’so

THE CODE FOR °"OPT3' IN BRIEF:

BEGIN 1 (START OF ROUTINE)

9530

;

9534

;

95;

9531 ;
95 % 2
95%4 s

9535 :
9536 :
9537 :
95
:
9539
9540 ;
9541 ;
9542 :
9543 :
9544 ;
9545 :
9546 ;
9547 ;
9548 ;
9549 :
50 :
9551 ;
955; 3

9554 ;
9555 ;
9559 3
9557 .
9558 s
9;5 :
9560 .
3;61 s

952§ 3

9564 .
9565 :
9566
.

9567 ;
9568 .
9569 .
9570 ;

5566

5567
5568
5599

5570

5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5586
5585
5586
5587
5588

5589

5590
3591
559%
559
5594
§595
596
g;g;

5599

5600
5601
S60§

56
56
5605
5606

!
!
!

TOPS-20 Bliss=16 v2(212)

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

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
: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
: : TESTLOOP:
: : : BEGIN 4 (START OF LOOP THAT COMPLETELY TESTS 1 UNIT)
:.: : 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
: : : : : SETTUP 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)

!
!
!
!
!
!
!
:

: : : : : UPDATE SECTOR NUMBER BY NUMBER OF SECTORS IN PREVI
OUS TRANSFER
: : : : : END 6 (END OF SECTOR SELECTION LOOP)
::: :ENDS (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)

: : : : : CHANGE BUFFER POINTERS AFTER fRANSFER

Label
LOOP;

local
WRDCNT,
VALUE,
OLDSEC,

CZMLBBO PERFORMANCE EXERCISER
OPTZ DEFINITION OF OPTION 2

9572

:MLX4

MACRO M1113

29-MAR-82 13:41

PAGE 214

2
SEQ 0226

142

DEFINITION OF OPTION 3
O

SECTOR,
PTR,
COMMAND,

DBL_VALUE:;

e
. e e o
d e

-—

TOPS=20 Bliss=16 v2(212)

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

OLDCHN,

O ONOWVBWN=O

000000000%8

v N AWV

5607

244

PRINTB (SAYZ2, WRD34, RTN3);
! "RUNNING OP 13

incr COMP_FLAG from 0 to 1 do
beg;n
GEN3
(.COMP_FLAG);

5620
LOOP :

incr LUN from 0 to (.LSUNIT = 1) do
begi
begi

if .DRIVE_STATUS [.LUN] eql ACTIVE
then
begin
LSLUN = .LUN;

!* 2 «

START OF COMPLEMENT FLAG SELECTION LOOP

'* 3«

START OF LOGICAL UNIT SELECTION LOOP

'* & «

START OF THE LOOP THAT COMPLETELY TESTS 1 UNiT

!* 5 «

START OF TEST FOR AN ACTIVE UNIT

Ix 6 *

START OF SECTOR SELECTION LOOP

WPTR = WBUFF;
RPTR = RBUFF;

SECTOR = LOWEST;

while .SECTOR lequ HIGHEST do
begin

WRDCNT = GET_WRDCNT (.SECTOR, HIGHEST)
;

SET_PTRS (.WRDCNT):

VALDE = write (.LUN, .WRDCNT, .WPTR, .SECTOR) ;
s

SEE HOW SUCCESSFUL THE WRITE WAS:

selectone .VALUE of
set

{SEE_°'SYSERR' FOR DEFINITION

!OF ERROR # CONTAINED IN 'VALUE'

1] ;

begin

!* 6A * RETRY ALLOWED

if RETRY (SIX, write, .LUN,

O NNy
—

then

begin

WHY

_DROPT [.LUN] = CODE_4;

ERRDF (3015 MSG1, 0);

DODU (.LUN);
leave LOOP;
end;
end;

.WRDCNT, .WPTR, .SECTOR) neg 0

TTHE RETRY FAILED -~ SYSTEM FATAL ERROR
T!xxxx OPTION 3 ERROR (01 #asx

!JUMP JUST BEYOND END OF BLOCK * 4 =
' 6A =

CZMLBBO PERFORMANCE EXE&C‘ISER

OPTZ

DEFINITION OF OPT

9628 :MLX4

9631 ;

9633

566
5664
5665

9639 :

5667

;

sug

5666

364“? :

9643

5671

9842 :
:

9644 :
9645 :
9646 ;
9647 ;
9643 ;
9649 :
9650 :
9651 ;
965§ :
9653 ;
9654 ;
2655 :
965,9 :
9657 ;

567
567
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
5685

5689
56
gg g

966§ :

5690

9653 ;
964."6s :

3329 ::
9667

;

5699

2698

5784
5705

5701

5
5708

710

19:23:44

TOPS=20 Bliss=16 v2(212)

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

!« 68 * FATAL CONTROLLER ERROR == NO RETRY ALLOWED

DROPT [.LUN] = CODE_S;

ERRDF (302, MSG1, 0);
!xaxx OPTION 3 ERROR 02 ###+
DODU (.LUNJ;
Leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * 4 +

end;

' 6B *

- begi

;% 6C * FATAL DRIVE ERROR =- NO RETRY ALLOWED

ERADF (303, MSG1, 0).

WHY DROPT [.LUN] = CODE_6;

tes;

podD (.LUN):
leave LOOP;
end;

twsxs OPTION 3 ERROR 03 vsss

'JUMP JUST BEYOND END OF BLOCK * 4
' 6C «

COMMAND = CHOOSE ():

if .COMMAND eql read
then
beain

else

PTR = .RPIR;
_
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):
end

begin
= .WPTR;
wuaus = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR):

PTR

enda;

selectone .VALUE of

3879
:
g? .
:
:

WHY

§695

5933

;g 3

begin

'+
! SEE HOW SUCCESSFUL THE OPERATION WAS:

£23 :

5691
ggg

33;2 :
327

7-Mar-1982

5620

9658 ;
9659 :
‘)fmo.m1 :

gr-nar-ms 19:24:42

5659

9635 :
9636
:
9637
:
9638

SEQ 0227

5660

5661

DEFINITION OF OPTION 3

9634

PAGE 515

;

96 g :

MACRO M1113 29-MAR-82 13:41

'SEE_"SYSERR' FOR DEFINITION

set

[03

!0F ERROR # CONTAINED IN °VALUE®

“if .COMMAND eql read
.

then

rea

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'GOOD DATA: XXXXXX AT LOCATION yyyyyy®

9702 :
9703 :
9704 :
9705 :
9706 :
9707 :
9708 :
9709 :
9710 :
9711 ;
971_; :
9713
:
971%
9715 ;
9719 :
9717
;
9718 :
9713 :
9720
:

9721 :

37 § :
723
;
37 4 :
725 :

97. 9 :

9727

9728

9729

9730
9731
9732
9733
9734

9
9736
9737

9738

571
5718
5719
5720

5755

DODU (.LUNJ;

leave LOOP;
end;

end;

£33 :

5759

5762

‘v 6D

ix 6F »

beggn

! 6F « FATAL DRIVE ERROR =- NO RETRY ALLOWED

end;

' 6F «

ERRDF (307, MSG1, 0):
!sxxx OPTION 3 ERROR 07 *aw+
WHY DROPT [.LUNI = CODE_6;
poD0 (.LUN):
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * 4 =

7s§

gno
761

'JUMP JUST BEYOND END OF BLOCK * & +

€23 :
begin
!* 6E * FATAL CONTROLLER ERROR == NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE_S;
.
ERRDF (306, MSG1, 0);
!#xxx OPTION 3 ERROR 06 #%ws
DODU (.LUNS;
Leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * & +

5750

:
:

ERROR
begin
WHY DROPT [.LUN] = CODE_4;
ERRDF (305, MSG1, 0);
~!%#x* OPTION 3 ERROR 05 s#s

5746
5747
5748
5749

' 6D * RETRY ALLOWED

then

5745

g?Slo
755
5756
gm
758

begin

if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) neq 0
'THE RETRY FAILED =-"SYSTEM FATAL

5726
5727
5728
5729
5730
5731
5732
5733
57§4
5735
5736
5737
5738
5739
5740
5741
sng
574
5744

5§75

:
:
:

5755

end;

g; 3

§751

.DBL VALUE):

leave LOOP; !JUMP JUST BEYOND END OF BLOCK % & +
end:

5721

-.DBL_VALUE,

1'BAD DATA: PPPPPP AT LOCATION 00000Q°
WHY DROPT [.LUN] = CODE_8;
ERRDF (304, MSG1, 0);
!#xex OPTION 3 ERROR 04 #wee
DODU (.LUNS;

[4) :

9701 :

571
5714
5715
5719

9698 :

3933 :

PRINTE (FMT128,

begin

!= 6G * UNRECOVERABLE DATA ERROR

end;

s 6G «

ISOLATE ():
ERRDF (308, MSG2, 0):
!sxxx OPTION 3 ERROR 08 sxw+
WHY DROPT £.LUNI = CODE_7;
p0D0 (.LUN):
leave LOOP;
'JUMP JUST BEYOND END OF BLOCK * 4 #

(51 :

begin

!* 6H * RECOVERABLE DATA ERROR

DBL_VALUE = .DBL_VALUE + BUFSIZ#*2;

sng

9697

5711

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

9693 :
9694 :
9695 :
9699 :

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

DEFINITION OF OPTION 3

9689 :
9690 :
9691 :
9692 :

SEQ 0228

el el

J_2
PAGE 216

teded

&gg :

29-MAR-82 13:41

9684 ;MLXG
9685 :

MACRO M1113

CZMLBBO PERFORMANCE EXERCI?ER
OPT2 DEFINITION OF OPTION

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

DEFINITION OF OPTION 3
5763

ISOLATE ();

2;65

if .ERROUT then PRINTB (FMT10B, .CHAN):

9748 ;

5768

OLDSEC = .MLEL;

9750 :
9751 ;

5770
5771

9749 ;

9733 :

9754 :

9755 ;

57669

5769

sn?

975 :
9768 ;

9769 :
9770 :
9771 :

379

9781 ;

5301

gggl.

g; 5

9787 :

sgga
5809
5810

979

5316

end;

e 6H *

SECTOR = .SECTOR + (.WRDCNT/256);
end;
! 6 «

gaos

3807

end;

!'wxxx QPTION 3 ERROR 11 wnxw

WPTR = .WPTR + (.WRDCNT*2):

5805

;
;
:

9794 ;

UP_SOFT_COUNT (.LUN, .BOARD):

tes;

!*xxx OPTION 3 ERROR 10 ##nw

begin
if .ERROUT then ERRSOFT (311, MSG3, 0);

2733

9788
9789
9

begin

UP_SO
FT_COUNT (.LUN, .BOARD):
end
else

!*x*% OPTION 3 ERROR 09 #w#x

end

if .ERROUT then ERRSOFT (310, MSG3, 0);

5796

AU3
;

else

5789
5790
5791

5795

9782

UP_HARD_COUNT (.LUN, .BOARD):

5787
5788

9775 :

begin

if .ERROUT then ERRHRD (309, MSG4, 0);

g;gg

5792
g;gz

3;79 s

if (C.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

then

578
5782
5783
5784

9772 :
g;;‘ :

97;; :

5775

9760 :

3;65 -

if RETRY (ONE, .COMMAND, «LUN, .WRDCNT, .PTR, .SECT
OR) eql §

377

5776
5777
g;;g

;
:
;
;

BIT Q@'

OLDCHN = .CHAN;

5774

9756
:
9757 ;
g;gs :

9761
9762
9763
9764

I+

end;

! 5«

END OF SECTOR SELECTION LOOP

END OF TEST FOR AN ACTIVE UNIT

; 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

then

9747 :

3;25 3

5764

Bailanl

9744 ;

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

K 2
PAGE 217

9743

29-MAR-82 13:41

!Is the background

pattern to be read

9740 :MLX4
8;21 2

MACRO M1113

CIMLBBO PERFORMANCE EXERCISER
OPT2 DEFINITION OF OPTION 2

CZMLBBO PERFORMANCE EXERCISER

OPT2 DEFINITION OF OPTION 2

MACRO M1113

29-MAR-82 13:41

PAGE 518

SEQ 0230

27-Mar-1982 19:24:42

DEFINITION OF OPTION 3

!
.
: version czmlbb changed incr to incru

gggg

;

incru SECTOR from LOWEST to HIGHEST do

if .ERROUT then PRINTB (FMT108, .CHAN):

5831
5832
5833
gggg

i
!
!
:

5836

OLDSEC = .MLEL:
(lJLDCl'N = .CHAN;

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.

MSG4,

%gg:
s

0);

end;

!Error message

UP_HARD_COUNT (.LUN, .BOARD);

e
Dl

!Additional message routine

if .ERROUT
!Print error if enabled
then
begin
ERRHRD (312,
'Error number

)

5 Sg
g b}
0
P g

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 c[assiy it as a soft
error.

2; ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
begin
!Same error occured 'hard’

|
i
!
!

A _a _a

Sggg
gggg

3848
3849
5850
5351

if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql 5
.

5§45
28¢5

e o e

it as a hard error.
If
! a different error occured or the error went away
! then classify it as a soft error.
.

i Do a classify retr¥ call. If the same error
! occures then classify

5840
5841
5845

if read (.LUN, 256, RBUFF, .SECTOR) eql §
then
begin
.
ISOLATE O;
!Find the failing bank and board no.
5 Print where the error is

Sgg9

begin

28 8

g”g

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

ggzg

TOPS=20 Bliss=16 v2(212)

27-Mar-1982 19:23:44

5815
5816
5817
gg}g

582
58
5824
gg?g

M2
PAGE 219

SEQ@ 0231

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

DEFINITION OF OPTION 3

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

end

begin

!Not the same error 'soft’

if .ERROUT
then
begin

!Print error if enabled

ERRSOFT_(313,

end;

MSG3,
0);

!Error number

!Error message
!Additional message routine

UP_SOFT_COUNT (.LUN, .BOARD):

ss
Sl el
b d A

end;

!~ 4 «»

END OF TESTLOOP

!* 2 «

END OF COMPLEMENT FLAG SELECTION LOOP

END OF ROUTINE

!* 3«

end;

END OF LOGICAL UNIT SELECTION LOOP

return;

OPT3:

.SBTTL
JSR

OPT3 DEF%NITION OF OPTION 3
R1,$SAVE

5556

#RTN3,-(SP)

5613

sus

#20,sp

MOV

#WRD34,-(SP)

MoV

1 «

SHooos

Py ~

end;

—

end;
end;

e e o e e e e e e d bt ed

end;

——

.BOARD):

—

end;

—

UP_SOFT_COUNT (.LUN,

0);

e o e e e

end;

'Error number
!Error message
!Additional message routine

—

ERRSOFT (314,
MSG3,

!Print error if enabled

—

z; -ERROUT

8883 OO0 O0

m\nm\.s\n\n

!Not the same error ‘soft’

begin

—

elag

\fi“\fl\h\h\h\h\h\fi\hg\l“ll il

end

oIS
—=

:W-‘

'flsh::\l\l_.o
230

Stgw-

else

. _'9"0'0 08000

29-MAR-82 13:41

MACRO M1113

CZH%BBO PERFORMANCE EXERCISER
OPT
DEFINITION OF OPTION ¢

06015

9925

99 9
9929

156

MOV

194

BIC

MOV

060170

174
173
0
06
00
1
o;
12 000167 001502

060216
060224
060, 5

016667
015767
012767

000012
012670
022670

9’3‘3 86‘8 2‘

356 o§

000012

9941

016503

034460

99‘5

9964
9945

]

99«9

994
9948
9949
9950
g?

995
9954
9955

9959

3322

3539 06
9961

9962

ASR
ADD

160

9928

F%
ASR

ASR

060152

9936
9937
9938

osogss

034500

060588 01032
22 165462 034500
767

166704

18002
01 ;16
804. 67 166630
16616 000016
010246

013 46

01034
767
1

152354

165102

zg‘ ; 000001

MOV

121650
152436
152432

38:

4$:

CLR
JSR
ADD
DEC
BEQ
JMP

MOV
MOV
MOV

22{

58:

MOV

cMP

OV
MOV
JSR

MOV
MOV
JSR
MOV

MOV

5620

wsm RO

RO
RO

RO,=-(SP)

14(SP) ,=(SP)

016746 152314

MOV

5625

s LUN,=*

#177770, (sP)

#1,-(SP}

-($P)
#10,sP
0
4
298

PC,BLSGT2

12(SP) ,LSLUN
#IBUFF .WPTR
#RBUFF _RPTR

g(sm.ns

LOW. SECT(RS) ,R3

R3,TOP.SECT (RS)

R3.-(
TOP.SEsP)
CT(RS) ,~(SP)

Pc.ssr.mcm

RO.R
R2.(SP)
PC.SET.PIRS
16(SP) . (SP)

R2,=(SP)

2;..01

MOV
=

gunré

MOV

LUN

#DRI
. STATUS
VE
,RO

WwPTR,=(5P)

MOV
JSR
MOV

P LUN

MOV

12746

12746 83”?2%2
16548
.

12(SP)

5618

9924

LSUNIT,14(SP)

: COMP.FLAG,*

}I.o

99 g 323"’”
99
1:.8

MOV

26(SP) ,~(SP)

PC,GENS

.
: LUN,*
:
:

: LUN,*

; *,SECTOR

: SECTOR,*

‘ SECTOR, g »

: *,WRDCNT
: WRDCNT,*
: LUN,*

: WRDCNT,

R3,-(sP)
PC.WRITE
RO, R4

; SECTOR,*
; *,VALUE

#6,-(SP)

WPTR,=(SP)

{ GRDENT, «

MWRITE,=(SP)
Biaar

: VALUE,*

332?

000014

JSR

|
5616 |

5628
5629
5630

5631

5633

5635

b ailall

0601

121664

MOV

; COMP.FLAG

% el

9919

016766

1”1‘224

1s:

06012

9918

000026

113

5636
5637

991

; SP,%

14
26(SP)

e i

112

TRAP
CLR

i
|
|

9919

104414
005066

#SAY2,
SP.RO

~(SP)
#3,-(5P)

TOPS

PA:< |

b—

0601046
060106

MOV
MOV
MOV

27-Har-1985 19:23:44

5643

5649

b e

9914
9915

27-Mar=-1982 19:24:42

DEFINITION OF OPTION 3

)

9911
72 012746 0071
991§ %8@
81 74 oooooog
991
102
01

99
9931
99 §
99
99
9935

SEQ 0232

sMLXG

33?8

N_2
PAGE 220

b e

9908

29-MAR-82 13:41

MACRO M1113

D e

CZMLBBO PERFORMANCE EXE&SIgER
OPT3
DEFINITION OF OPTI

CZMLBBO PE?;ORHANCE EXERCI;ER

OPT3

DEFINITION OF OPTION

MACRO M1113 29-MAR-82 13:41

9964

9967 060354

9968

9999

010;46

004767 165642
706

9970 323

ADD

#14,5P

MSG1
0

TRAP

0604 g

9980 0604

gggé fi 4

011070
000000

104451

0 10%’5

TRAP
LWORD

000024

MOV

000002

998
16601 000024
9984 828236 112761
000005
9985
44 104455
oeo«s 000456

68:

034446

993i5'9 060450 011070
3333
gf 016600 000024

9990
9991
999;
999
9994

60
62
94
g
72

9995 060474
9999
76

999

9,333

§ 33
20356

10005

]

10010
10011

1 15
1001
10014
}
;s

1 19

10018

13901

78:

112761
gwg?

3901

034446

000040

MOV
-

8s:
98

045612

16;66 152116 000036
16646

1 ;l.c
16746
w;‘
93

: LUN,*

456

000024

MOVB
vragxp

ADD
oo

MOV
CLR

CMP

MOV

165014

MOV
MOV
MoV
ggn

16646 000024

MOV

152102

16766 152064 000036 108:

MoV

457
MSG1

24(SP) .R1

#6,WHY.DROPT(R1)
R1.RO

#12.5P
;Ic'scnoose

RO.40(SP)

5662
5663

LUN, *

5664

: VALUE,*

5643

5665

5670

; LUN,*

5671

; LUN,*

5672

5673
5677

: *,COMMAND

; *,PIR

24(SP) ,-(SP)

5655

5643

: LUN,*
:

RPTR,36(SP)

WPTR,36(SP)

5654

: VALUE,*

* COMMAND,*

R2,-(SP)
RPTR,=(SP)
R3,=(SP)
fi‘nm

5653

RO, #READ

24(SP) ,-(SP)

5652

24(SP) ,R1
#5,WHY
.DROPT(R1)

.WORD

2rog 000012
;27 165434
1

24(SP) ,RO

MOV
MOVB
TRAP

.WORD
.WORD

000006

;

8s
RG 43
9s
55

PA:< |

;

LUN, *

55
455

.WORD MSG1
fio"e”
gusm
RO
TRAP
51

000003

000024

g(sm R1
#4
,WHY .DROPT(R1)

;g.:z

BR
cMP
BNE
TRAP

TOPS |

19:23:44

MORD

000457
011070

sog 8ooooo

86‘8502
1
s;

104451
000416
020427
001016
104455

B8R

19:24:42

s SECTOR,
=

-WORD
.WORD

04 104455
000455

27-Mar-1982

PC.RETRY

9979
10
9977 060412

9979

1
]

R3,-(SP)

353
MOVB

99;3 060414

}

MOV

33;1 060372 8?“ ? 000024
997§
76 11 1 000004 034446

9974
9975

27-Mar-1982

DEFINITION OF OPTION 3

JSR

000014

3
SEQ 0233

sMLX4

9965

PAGE gZ‘l

5679

5682

: LUN,*

5683

: WRDCNT,*

: SECTOR,*

: *,PTR

: LUN,*

5687

5688

CZMLBBO PERFORHANCEO'E#E&(‘II;ER

OPT3

DEFINITION OF

MACRO M1113

10020
}83 5
10023 060612

010;46

10025
10026

3313‘9
67

0
2

10058 0g06ss 010004
1oo§§ 060632 ogggm
10031
1oo§

100

060634

80016
16746

ogwu.
152022

01874

MOV

165152

e
12$

138

152020

MOV
JSR

ROR
BLO

000042

535

10040 ooo;n 004767

154622

1004 82371

10044

060716

10045 060720

12746

ADD

MOV
JSR

MOV

007072

MOV

12746 000002

MOV

104414

TRAP

10049 060722

816616 000050

MOV

13823 838;&

81 746

MOV

1004 05075

17646 000050

12746

10050 060742
10051
060744
1 sg 60746
10053
060754

010600
104414
062766
016616

10055

12746

10054 060760

1
59
10057
10058
10059
10060
1

;',-

794

60770
060774
060776
06
0¢
51012

51014

1006

10074

000003

010000
000056
000056
006756

000056
000010

034446

000001

12946 000006
016646

016646

10246

000040

‘

: LUN,*

#MSGS, (SP)

5707

5708

#SAY1,=(SP)

#2,-(SP)

SP.RO

: SP,%

S0(SP) , (SP)

MOV

#3,-(SPS

#FMT12A.-(SP)

MOV
TRAP
ADD
MOV

SP.RO
14
#10000,56(SP)
56(SP) . (SP)

MOV

#FMT128.~(SP)

256(SPJ ,~(SP)

; DBL.VALUE,*

5709

; DBL.VALUE.*
; SP,%

; *,DBL.VALUE
: DBL.VALUE,*
: DBL.VALUE.+*

5711
5712

MOV
MOV
TRAP
MOV
MOVB
TRAP

#3,-(SP}
SP.RO
14
S6(SP) ,R1
#10,WHY.DROPT(R1)
55

: LUN,*

5714

5715

MOV

56(SP) ,RO

: LUN,*

ADD

#44,SP

5716

5717

: VALUE,*

5695

TRAP

148:
15$:

5704

34(SP) ,~(SP)

PC,SAYWHO

@850(SP) ,-(SP)

WORD

000056

#6.SP

MOV

000003

70? 000044

000056

104451

012746
010600
104414
016601
1 gl
104455

16600

1006

1
}

017646

006710

RPTR.=(SP)

TOPS|
PA:< |

5695
5700

; *,DBL.VALUE

831 68

1001.3 ooorog

288

19:24:42
19:23:44

{ TR

r;giaztsm

011216

R1
13$

: WRDCNT,
+

}38

012716

: SECTOR,*

R2,=(SP)
PC,DOUBLE . CHECK

MOV
JSR

10041 060702

R3,-(SP)
PC.CHECK

;

MOV

163446

: WRDCNT,*

WPTR,=(SP)

01 ;49
004767

10039 8236672 01691.;

JMP

52
54

706 000006

R2,~(SP)

WwPTR,=(SP)

MOV

1oo§4
10035

100

27-Mar=1982
27-Mar-1982

DEFINITION OF OPTION 3
MOV

14 016746 152050

€ 3
PAGE 222
SEQ 0234

sMLX4
:

10024

10030

29-MAR-82 13:41

BR
Sfi?

MOV

460

208
?z‘n

#6,~(SP)

; SP,%

52(SP),=(SP)

: COMMAND,+

R2,=(SP)

: WRDCNT,»

40(SP) .~(SP)

; LUN,*

5725

PERFORMANCE EXE 3£l§ER
MACRO M1113 29-MAR-82 13:41 PAGE 3233
6TBBO
DEFINITION OF OPTI
1007

sMLXG
-

10078

000056

1§§§‘

118g

000034
000004

000034
000005

10097

s PTIR,

: LUN,*

“822%
ead)

WVIN=NO =

=§stggag
nSaSSNR NN

—_ OO
S

000034
000006

P
i

34(SP) ,RO
51
19s
RG, #2

17%

034446

000004

18%:

156064

; LUN,*

5730

: VALUE,*

5731
5695

gg.uuv.oaopr<a1>

5738

462
MSG1

5739

0
34(SP) RO
51

178%:

198
RG 43

18§

55
463
MSG1
0
34(SP) ,R1
#6 ,WHY .DROPT
(R1)
R1,RO
. 31
198
R, #4

21$

; LUN,*

5740

* VALUE,*

5741
5695

5746

: LUN,

5747

: LUN,*

5748

: VALUE,w

5695

PC, ISOLATE

0000;2
001070
000005

034446

34(SP) ,R1

5756

#7.,WHY -DROPT (R1)
a}.ao

5757

#22,SP

5758

408

R4 45

28§

5749

5754
5755

55
464
gssz

000034
000007

5728
5729

34(SP) ,R1

034446

b
b ek

FRERSR

il el el e e

MONONONONCNONONONO\C

16$:

000003

5120
061
61

NOAONONONONONC

e
e T R

O
Vi

-1173

el ol ol el ol el s ol el el e el e o

wv-aum-osg

ocO0 00O
dfldddd‘dddflddddddddddd

-.—l_.—‘..—l..d-.-l-._.—l_._.-l-.d-.—l-‘-l

1
1

gg.UHV.DROPT(Rl)

000034

1174

61
061

034446

000002

061150
10098 82115
6
1950 11
10101 116%
i s
101

0
8 10

128
34(SP) ,R1

000034

181
10107
101

PC.RETRY

yal,sp

TOPS|
PA:<|

: SECTOR,*

461
8561

el s
bt

10105

982 19:%3:46

56(SP) ,=(SP)
R3,-(SP)

165130
000014

1074

27=-Mar-1982 19: 4:42
27=Mar-1

DEFINITION OF OPTION 3

; VALUE,

5695

- -l
&

8
i

SEQ@ 0235

PAGE 524

3
SEQ 0236

:MLXS

TRAP

000044

177700

000040
000001
000052
000040
000056
164542

000044

000040
152674

MoV

MOV
ASR

SP.RO

; SP,w

aML .REG+44, 44 (SP)

; *,0LDSEC

#6,SP

aML.REG+42.R1
R1

R1
R1
R1
R1
R1
#177700,R1
R1,40(SP)
#1.-(SP)
52(SP) ,=(SP)
40(SP) .=(SP)
R2,=(SP)
S6(SP) ,~(SP)
R3,-(SP)

ADD

#14,spP

CMP

aML .REG+44, 44 (SP)

; *,0LDSEC

MOV

aML .REG+42,R1

: OLDCHN,*

BNE
MOV

ASR

BIC

120512

SrATiO
#2,-(SPRS -(sP)

ASR
ASR
ASR
ASR
ASR
BIC
MOV
MOV
MOV
MOV
MOV
MOV
MOV

ASR
ASR
ASR
ASR
ASR

177700

000001

ADD

JSR

888014

152712

22%:

R1
#177700,R1

g
BIT

BEQ

PC.RETRY

248
40(SP) ,RO

5768

5769

153002

MOV

017701
1

153012

WY
MoV

;

: *,0LDCHN
:
* COMMAND,*
: LUN,*
: WRDCNT,*
: PTR,*
: SECTOR,*

ASR
BIC

177700

000

R1
R1
R1

22§

5763

5765

706

17766

ASR
ASR
ASR

Qloree 006640
o1§zgg
000002
01
104414

aML.REG+42,R1

BEQ

006201
006201
01

01
0462701

MOV

5771

5774

R1
R1
R1
R1
R1

#177700,R1

#1,ERROUT

238

h BB
w_
s

006301

#1.ERROUT

153056

PC,ISOLATE

BIT

) eh

017701

1423

JSR

120734

000001

TOPS |

PA:< |

) vl

156014

2767

27-Mar-1982 19:23:44

e e md ek o

ogam

27=-Mar=1982 19:24:42

DEFINITION OF OPTION 3

) e

DEFINITION OF OPTION

MACRO M1113 29-MAR-82 13:41

5778

b d b

CZMLBBO PERFORMANCE sxmtiea

OPT3

10188
10189

VIO

120454

248:

#1 _ERROUT

TOPS
PA:<

LUN,

PC UP NARD. COUNT
Al
268
57

MSG3
0

000001

120432

25%:

£3Senno
268

57
467
3563
26$:

152472
156230

27%:
28$:

150996

40
12

(SP)+.(SP)+

R2.R0O
RO
WPTR,RO

* WRDCNT,*

#400,-(sP)

WRDCNT, «

3®R

SECTOR,
*

PC,BLSDIV

120334

29%:

#1,EFNS21

308:

408
;S(SP),RO

034500
034460
1

PC,UP.SOF T.COUNT

30§

*,SECTOR

196385

LUN,*

RO,WPTR
R2. (SP)

000400
123264

000001

34(SP) ,=(SP)
BOARD,
= (SP)

5 el el ek

19:24:42

LUN,=

TOP.SECT(RO)
,R1

31s:

&gg.SECT(RO).Rs

*,SECTOR

12(SP) ,=(SP)

LUN,
=

#4 00,-(sP )

#RBUFF ,~(SP)
RS,-(SP)

PC ,READ

#10.37
38

SECTOR,
*

5822

e ol ok ol e el el e o v

a& =2
aO
QRO\
~NO

=23

b o

VVN%O
=2

8 19:23:44

56
465
MSG4
0

34 (SP) ,~(SP)

151002

3 NVVNV}&

7-Mar-198
7-Mar-19

466

000034
6

SEQ 0237

LR TR TN TN

AN -

N NINNOON

§§s¢~a“§“':§:

—

Tsss

000001

DEFINITION OF OPTION 3

238:

-t
-

}576

NNSNNNNN

} 199

SIXXR

1019
15
10194 061528
18195
15
10196
1;94
10197
061570
10198
061574

sMLXG

o
1019; 8215;%

82
13:
CRO M1113 29-MAR-82
13:41
PAGE 25

CZMLBBO PERFORMANCE EXERCISER
OPTS
DEF Ty ONANCE (EXERCISE

(IMLBBO PERFORMANCE EXERCISER
DEFINITION OF OPTION

MACRO M1113

10244

10247
062012
10248 062016
10349
024
10250 06
g
10251
10 sg
1025
10254

155314
000001

152356

}8 gs
10 59 :25044
§2

177700

10259
10260

006640
000002

10261
10 og
10263
10264

10265

10 69
10267
10268
10 99
10270
10271

18 ;g
1
10274
10275
1 ;9
1
10278
10279

06205

06205
062060

062064
: 896
062070
062074

062102

: 108
06211
062112
52114
062116
062120

62122
621 g 01
0621
062136
0
6214
5214
062152
0
06 123

ogooos
152312

152302

AR
BIC

MOV

MOV
MOV

000022

32%:

MOV
TRAP
ADD
MOV

152206

10286

000016

MOV

177700

BIC

1028 0eEife gebogt 00oos

1028
10288
10289
1025
1
1
1

1
1
1
1

000022

152170

J00001

[}

SP.RO
14
#6,SP
ML .REG+44,22(SP)

; SP,*

; *,0LDSEC

5836

: *,0LDCHN
:
: COMMAND,*
: LUN,*

5845

RO
RO
RO
RO
RO
RO

?&.neao«.zz(sm

; *,0LDSEC

16(SP) ,=(SP)

: OLDCHN,*

CMP
BNE
BIT
BEQ

aML.REG+42,R0
RO
RO
RO
RO
RO
RO

5854

#177700,R0

RO, (SP)+
34$
#1,ERROUT
33§

5837

: PIR,*
: OLDSEC,+

MOV
ASR
ASR
ASR
ASR
ASR
ASR

120006

RO,-(SPS

#177700,R0
RO, 16(SP)
#1,-(SP)
30(SP) ,~(SP)
16(SP) ,=(SP)
#400,-(SP)
(SP) ,~(SP)
(SP) .~(SP)

}

5825
5827

#FMT108,-(SP)
#2,-(SP)

BIC
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000016

:
:

TOPS

PA:<

38
#17770
0,R0

aML.REG+42.R0

10587 0831

27-Mar-1982 19:23:44

PC,ISOLATE
#1.ERROUT
32§
aML.REG+42,R0
RO
RO
RO
RO

MOV

ASR
ASR
ASR
ASR
ASR
ASR

177700
000016
000001
000030
000016
000400
000034
000034

27-Mar=1982 19:24:42

DEFINITION OF OPTION 3

JSR
BIT
BEQ
MOV
ASR
ASR
ASR
ASR

120234

G 3

PAGE 326

SEQ 0238

sMLX4

}8 22

10258

29-MAR-82 13:41

:
|
5858 |
|

.Q-.-.-.-.-l_.d-.-l-d-l-.-._.-.-‘-bd—l-a__.-n_n..m
e
.
e
L

MACRO M1113

wgu.

10
032767

082404
104457

016546
016746

ogm?

022626
005205

101

400 35

4
06241

1
1
1
10339
10340

414
41
4
0624
0624

;

442

10344
}8 53

10351

167
0052

0624

H
167

005726
ooszog
ggg
;
167

3357

8564

MOV
MOV
JSR
BR
BIT
BEQ
TRAP

12(SP) ,=(SP)
BOARD, - (SP)
PC,UP.HA
. COUNT
RD
37§
#1,ERROUT
368
57

; LUN,*

5866 |
|

:
:

5854
5871

5876

.WORD
.WORD
BR
BIT
BEQ
TRAP

MSG3

:
:

5879
5885

5890

: LUN,*

5893

:
: SECTOR
: SECTOR,
*

5824
5820

WORD

000001

117726

35%:

MWORD
.WORD

000012
151766

368:

155524

378:
388:

020501

1
10331

10341

34$:

000472
11166

10
10324
18 5

103
1o§ 5

117750

111

18 1
1
g

000001

338:

000471

10315
10 19
1031
10318
10319
10320

000012
15204
15512

.fig

56
470

398:

177362
1

000012

000014

175524
26
26
175454

000030

408:

41$:
428:

000001

438:

471

#1,ERROUT

36$
57

472
MSG3

WORD
MOV
MoV

O
12(SP) ,~(SP)
80ARD, - (SP)

(MP
INC

INC

(SP)+.(SP)+
RS
R5.R1
408
318
12(SP)

BGE
JMP

4
28

JSR

BHI
JMP

CMP

TST
INC
CMP
8GT
JMP

ADD

RTS

PC,UP.SOFT.COUNT

5863

1g§sm.msp)

: LUN,*

: LUN

5620

(SP) +
26(SP)
zgcsp).n
438
18

:
: COMP.FLAG
; COMP.FLAG,*

5617
5616

5556

#30,5P
PC

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

37 words

<‘

16646
016 1.9
ooag
000427
32767
1415
104457

TOPS
PA:<

011202

10307
18
1
10310
18 1
1
1;
1031

TRAP
WORD

27-Mar-1982 19:23:44

27-Mar=1982 19:24:42

Sulh

104456
000470

DEFINITION OF OPTION 3

k5 A A

sMLXG

}8305

10
10

i ek i e o e

%8%333
10303
10304

H 3
PAGE 227
SEQ 0239

29-MAR-82 13:41

e ol s ol i o ol il D e e o

CZMLBBO PERFORHMCEOSfi&C‘IgER
OPT3
DEFINITION OF

DEFINITION OF OPTION

10353 :MLX4

}832‘5' :
10356

1033
10%59 :2
.

10
}8

57—».--1935 19:24:42

DEFINITION OF OPTION 4
5907

%sbttl

7-Mar-1982

3909 Wt
5910

;8365 :

gg;g

}8352 :

USING A MARCH TEST.

gg%

THE CODE IN BRIEF:

5919

BEGIN 1 (START OF ROUTINE)

10373

1o§7 :

5920

TO LOOK FOR INTEREACTIONS BETWEEN SECTORS

SAY ROUTINE IS RUNNING

552 | SERIL

aitts o alA
592§ i GENERATE A BUFFE
R OF COMP

}83;4 :

23515'

}zgxtu.ux‘zgRggxgr;gsur‘gra BUFFERS FOR WRITE/READ DATA/COMP

}8&

ggsg

10377 :

: ?Egfl‘ogp (START OF LOGICAL UNIT SELECTION LOOP)

5928

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

10380 :

5931

10381 :
10382
:

10388

10385 :

}8 g? :

10 9; E
10393

10304

18 99 :

10397 :
}§§33 :

182
1

:
:

18:‘. 1:
1
g :
1828‘ :
1
:
10405 :

5932
3933

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

OPT4

5914 | PURPOSE:

TOPS=20 Bliss=16 v2(212)

t» 1« START OF ROUTINE

!'++
i ROUTINE:

10368

19:23:44

*DEFINITION OF OPTION &°

5911
gg}g

10369 :

3
SEQ 0240

:
1:

1o§g§ :

PAGE 523

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

!
!

: : : INCR SECTOR FROM LOWEST TO HIGHEST
: : : : BEGIN 4A (START OF 1ST SECTOR SELECTION LOOP)

:: : : END 4A (END OF 1ST SECTOR SELECTION LOGP)

§3§’5' o Msrég“{fl;ms (IF DROP UNIT, LEAVE TESTLOOP)
5936

392 1 ;i SE4BGI
(STARTN
OF 2N SECTOR TRARRI
o Loom
: :
: s 53?';5'9?usggoas (IF DROP UNIT,

2321

LEAVE TESTLOOP)

sw.i i ::::LOOK FOR ERRORS (IF DROP UNIT. LEAVE TESTLOOP)
394
!
: : : : END 4B (END OF 2ND SECTO

3044 | | i
g%?

98
ggls.g

5951

59s§
3953
39564
3955
5959

2957
5958

DROD

R SELECTION LOOP)

SE
TOWH
AITEET
CHECKME
OR READ
R ‘Comp*
i :::: BEGIN 4C (START
OF
SECTOR SELECTION LOOP)

!
I

!
!
!
!
!

!
!

: : : : DO THE WRITE CHOR
EC
READK
OF *COMP®
wias bflofisrggrims (IF DROP UNIT, LEAVE TESTLOOP)

: : : : LODK FOR ERRORS (IF DROP UNIT.

LEAVE TESTLOOP)

i ::: END 4C (END OF 3RD SECTOR SFLECTION LOOP)
: : : CHOOSE WHETHER TO WRITE CHECK OR READ ‘DATA’
: : : INCR SECTOR FROM LOWEST TO HIGHEST
:: : : BEGIN 4D (START OF 4TH SECTOR SELECTION LOOP)
:::: DO THE WRITE CHECK OR READ OF 'DATA’

:: : : LOOK FOR_ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
: : : : END 4D (END OF 4TH SECTOR SELECTION LOOP)

OPT3

MACRO M1113 29-MAR-82 13:41

Dre

CZMLBBO PERFORMANCE EXERCISER

CZM.B30 PERFORMANCE EXERCISER
OPT3
DEFINITION OF OPTION
10409 ;MLX4

}wg :

5959
5960

10414 :

10417 :

5969

10420 :
10421 :
104 ‘3’ 3

596
5968
5969

OLDCHN,

597
5974
5975
5976
5977

PTR,
COMMAND ,
DBL_VALUE,
WDPTR,
RDPTR,
WCPTR,
RCPTR;

RDPTR = RDBUFF:

5978
5979
5980
5981
5982
5983
5984

5986

gggg

%%29 :

gggg

10443 :

5995

1 ifi :

1
:
10454 :
10455 ;
10457

}

;

gs 3

10460 ;

10461 ;
}822; ;

WCPTR = WCBUFF:

RCPTR = RCBUFF:
e

3999

é
6209

begin

begin
then

t: ti”r:

PRINTB (SAY1. WRD35):

6
6001
6 ;

incr LUN from 0 to (.LSUNIT - 1) do
if .DRIVE_STATUS [.LUN] eql ACTIVE

5996
sggg

!POINTER TO 256~WORD WRITE COMP BUFFER

!POINTER TO 256-WORD READ

'* 2 »

z
|

1
1

1
1
1
1

1
1
1
1
1
1
1
1
1
1
1
1
1

!POINTER TO 256-WORD WRITE DATA BUFFER
!POINTER TO 256~WORD READ

;

|
,
|

VALUE,
OLDSEC,

597,

5990

local

5970
5971

ggg1

LOOP;

5987

1824 :
%o‘sg :

1
1

10440 ;

%04?3 :

}

Label

5985

10“§ :

TOPS=-20 Bliss=16 V2(212)

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

: END 2 (END OF LOGICAL UNIT SELECTION LOOP)

PRINTB (SAY2, WRD34, RTN&):
! RUNNING OPT4'
%
GEN4 (.MARPAT, WDBUFF);
GEN4 ((=.MARPAT), WCBUFF);
WDPTR = WDBUFF:

}8221 :

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

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

:
;
;
:
:
:
;
;

182 9 :

2
0P

SEQ 0241

|__

5965

10419 :

10431
10432
10433
10434
1882
1
10437
10438

PAGE 229

232% i gfig%"(sno OF ROUTINE)
5966

10418 :

10426 :
10427 :
10428 ;
104629
:
10430
:

!
!

5961

;82;2 -

10425 :

29-MAR-82 13:41

DEFINITION OF OPTION &

10415 :
10413
:

10423
:
10424

MACRO M1113

DATA BUFFER

COMP BUFFER

”

START OF LOGICAL UNIT SELECTION LOOP

!* 3 « START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT

H
n

!* 4 »

1
”

START OF TEST FOR AN ACTIVE UNIT

n
n

! "MARCHING®
PRINTB (FMT2, WRD24):
"oup

n
n

i version czmlbb 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):

|
!

,
-

Clfl%BBO PERFORMANCE EXERCIgER

OPT

DEFINITION OF OPTI ON

10465 ;MLX4

}oagg :

MACRO M1113

29-MAR-82 13:41

28"

27-Mar-1982 19:54:42

27-Mar-1982 19:23:44

}& 3 :

wgg

10471 :
10475 :

6014
6015

'
selectone .VALUE of

10473

2816

1'32’;? :

10481 :

104§6 2

}?2 7 :

10489 :
104§:
:
10491

10497

1 93 :

egin

6029

le:ve LOOP;

gg‘g?

end;

60 f

begin

2] :

6034

WHY

Lleave LOOP;"

end;

6040

1
:
10501 :
1
; :
10503
;

3
6044
6045
6869

£33 :

682%

} é . :

g ‘8

2053

6051

ERRDF (403, MSG1, 0);

begin

tes;

leave LOOP;
end;

end;

PRINTB (FMT2, WRD24):

3 sg
685

! %}g :

28§9 | version czmlbb changed incr to incru

}og}g :

10518

18518 ::

2353 5
6050

}

RETRY ALLOWED

FATAL ERROR

!xxx% OPTION 4 ERROR 01 w##

FATAL CONTROLLER ERROR -- NO RETRY ALLOWED

“laxxx OPTION 4 ERROR 02 #+*w

;

}

isxxx OPTION 4 ERROR 03 x#+

FATAL DRIVE ERROR =- NO RETRY ALLOWED

1
1

!JUMP_JUST BEYOND END OF BLOCK * 3 *
'x 4A3 x

1
1

;'
END OF 1ST SECTOR SELECTION LOOP

}

1P
COMMAND = CHOOSE ();

1
1

incru SECTOR from LOWEST to HIGHEST do
begin

then.COMMAND o eql o

——

'JUMP_JUST BEYOND END OF BLOCK * 3 +

! 4A «

s 4A2 *
I 4A3 »

1
1

}

WHY DROPT E.LUNI = CODE_6;
pcp0 (.LUN):

1
:
10510 ;

10515 :

v 4A2 *

DROPT [.LUN] = CODE_3:

5335’(“[%5 MSG1, 0);

28 g
6041

1
1

!JUMP JUST BEYOND END OF BLOCK * 3

v 4A1 »

'THE RETRY FAILED == SYSTEM

ena;

1 s ;

WHY_DROPT [.LUN] = CODE_4:

gg 4

6037

10498

In 4A1 =

}

10F ERROR # CONTAINED IN *VALUE'

ERRDF (401, MSG1, 0);
DODU (.LUN);

1049 :

!SEE *SYSERR' FOR DEFINITION

60%5
60 ;

2332

‘}823; 3

begin
thenb

60%4

}823; :

TOPS=20 Bliss=14 V2(212)

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

if RETRY (SIX, write, .LUN, 256, .WDPTR, .SECTOR) neg 0

gg g

£13

60§1

;&zg :

;344815» ;

set

2813

10478 :

SEE HOW SUCCESSFUL THE WRITE WAS:

60};

}844;9 :

SEQ 0242

DEFINITION OF OPTION &

10468 :

1040; :
10483 :

K_3
PAGE 230

'* 48 *+

START OF 2ND SECTOR SELECTION LOOP

}

CZH§880 PERFORMANCE EXERCIiER
OPT3
DEFINITION OF OPTION

MACRO M1113

29-MAR-82 13:41

PAGE 231

SEQ 0243

105§1 sMLXG
H

27-Mar-1982 13:24 :-42
27-Mar-1982 19:23:4

DEFINITION OF OPTION &

TOPS-20 Bliss=16 v2(212)

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

begin

selectone .VALUE of
set

l::ve LOOP;

e
—
R

Dl e D D d e
o
B

~'#x«x OPTION 4 ERROR 04 %xs

!JUMP JUST BEYOND END OF BLOCK * 4 =

end;

MSG1, 0);

ERRDF (404,

DODU (.LUNS:

6098

PPPPPP AT LOCATION Q30000Q°

6099

!'BAD DATA:

D e e

WHY_DROPT [.LUN] = CODE_8:;

end;

[1l

begin

v vV
~
~

:
:

6097

— e o

PRIRTB (FMT12B, 7.DBL_VALUE, .DBL VALUE):

6096

Ix 481 *

RETRY ALLOWED

it RETRY (SIX, .COMMAND, .LUN, 256, .PTR. .SECTOR)
neg 0
thenb
;
'THE RETRY FAILED == SYSTEM FATAL ERROR
egin

WHY_DROPT [.LUN] = CODE_4;

ERRDF (405,

DODU (.LUN):
leave LOOP;

MSG1, 0):

!xxsx OPTION 4 ERROR 05 s###

'JUMP JUST BEYOND END OF BLOCK * 3 +

DBL_VALUE = .DBL_VALUE + BUFSIZ*2:

6095

ettt
FORNISoIRTIKIRER2S

SAYWHO (.LUN):
PRINTB (SAY1, MSGS);
!"ECC LOGIC FAILED TO DETECT DATA ERROR®
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE):
!'GOOD DATA: XXXXXX AT LOCATION YPYYYY®

6094

0000\ O\O:C\O\O\ O~ OO\ OO

begin

6089
6090
6091
6095
609

kol

if (DBL-VALUE- = DOUBLE_CHECK (.WDPTR, .RDPTR, 256)) neq 0

then

PRIFRS

dddddddd-‘d—lddd-fl-‘-‘ddd—.d ot s s ek

if .COMMAND eql read
then
begin

6086
6087

D h

[oJ :

608
608
6084

:
3
:
:
:

!SEE _"SYSERR' FOR DEFINITION
!OF ERROR # CONTAINED IN °‘VALUE'

— e hemdh
s

6077
6078

;

SEE HOW SUCCESSFUL THE OPERATION WAS:

)

end;

6074

6080

—a

PTR = .WDPTR:
VALUE = CHECK (.LUN, 256, .PTR, .SECTOR):

6071

607

) e

6069
6070

else

— b
s a -k
o

= .RDPIR;

V::.’UE = read (.LUN, 256, .PTR, .SECTOR):

D el b e

PTR

10599 :
10600 :
10601 :
10602 :
18203 ;
10604 :
10605 ;
1
:

1
1
1
?9
10610

:
:
:
;

;gr :

6134
6135
6136
6137
6138
6139
6140
6141

6142
6143
6144
6145

2}29

} }g :

2}28

10615 :

6150

}

19 :

}

% 13 :
1
:
1%5

1085

1‘

1
10650
106

9_ :

:
:

6151

g}gg

g}sg
61§

61 9

6153

§180

ERRDF (406, MSG1, 0);
DODU (.LUNJ;
Leave LOOP;
end;

o begi

egin

sngor (407, MSG1, 0);

FATAL CONTROLLER ERROR == NO RETRY ALLOWED
e

;

~Taxxx OPTION 4 ERROR 06 ##w

!JUMP_JUST BEYOND END OF BLOCK * 3
'x 4B2 *

Ix 4B3

FATAL DRIVE ERROR -~ NO RETRY ALLOWED

ixexx OPTION 4 ERROR 07 sw%+

ISOLATE ();

‘* 4BS *

RECOVERABLE DATA ERROR

}

BIT Q@'

OLDSEC = .MLEL:

OLDCHN = .CHAN:

}

;; RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .SECTOR) eql §
en

}
1

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

then

if .ERROUT then ERRHRD (409, MSG4, 0);

UP_HARD_COUNT (.LUN, .BOARD):
o
begin

eLse

1
1
1
1
1

;

if .ERROUT then PRINTB (FMT108, .CHAN):
'*

1
1
1
1
1
1
1
1
1
1
1

' 4B4 «

< T
begin

1
1
1
1

£4] :
begin
'x 4B4
UNRECOVERABLE DATA ERROR
ISOLATE ();
ERRDF (408, MSG2, 0);
!sxxx OPTION 4 ERROR 08 x##
WHY _DROPT E.LUNI"= CODE_7;
DODD (.LUN);
,
leave LOOP;
{JUMP JUST BEYOND END OF BLOCK * 3 =
end;

}

11]

WHY DROPT E.LUNI'= CODE_6;
poDD (.LUN):
Leave LOOP;
!JUMP_JUST BEYOND END OF BLOCK * 3
end;
' 4B3 »

2}21

616§
§1e8
6126

6130
6131
613%
613

:
:
:
:

1x 482
WHY DROPT [.LUN] = CODE_5;

b
b
b b
D ek
=L

10595
10596
10597
10598

61%9

'x 4B1 »

D ) D e D D D e
v
=
y

2}55

10594

- begi

|
1
1
1

D e

}8335 s

end;

d e

612%
613
6124
6125
6126

end;

d e

wsg‘s ;
10588
:
10589 :
10590 ;
10591 :

2} 13

6151

}

TOPS=20 Bliss=16 v2(212)

PA:<N
:< EALE>MLX4.
X4.BLI1
BLI.S (40)

) ) Db
-4s
=
s

10509 :

27-Marr-1982 19:23:
:dd: 44

'##x+ OPTION 4 ERROR 09 s+#s

}

|
{

!
|

]
1
1

b . ok ~as
s

}82315 -

27-Mar-1982 19:24:42

DEFINITION OF OPTION &
6115
6116
6117
6118

|CZH
| OPT

SEQ 0244

) o

:;
:
:
:

n3
PAGE 232

Bl ool aBl oSl abs Seb
_al
ke

10580
10581
1oss§
10583

29-MAR-82 13:41

— ol Dl e el il el e

10577 :MLX4

}8&9 H

MACRO M1113

e 0 ool

CZMLBBO PERFORMANCE EXERCISER
OPT3
DEFINITION OF OPTION 3

if .ERROUT then ERRSOFT (410, MSG3, 0);
UP_SOFT_COUNT (.LUN,

b
T

e
b

2] :

begin

1 487 *

ERRDF (4135 MSG1, 0);

T!%xx+ OPTION 4 ERROR 13 wex

WHY_DROPT [.LUN] = CODE_5;

DODU (.LUN);

leave LOOP;

!JUMP_JUST BEYOND END OF BLOCK * 3 =

end;

[3]

5eain

ERRDF (414,

FATAL CONTROLLER ERROR -- NO RETRY ALLOWED

'x 4B7 =

MSG1, 0);

I 488 *

FATAL DRIVE ERROR -- NO RETRY ALLOWED

isxxx OPTION 4 ERROR 14 st

WHY_DROPT £.LUNI = CODE_6;

—

— i DB
) Dl D il - D i ) D D e e -il D e T
o Do

I 4B6 *

N NN

end;

!JUMP JUST BEYOND END OF BLOCK * 3 *

lesve LooP;

ena,

i=l=7
N -0

DODU (.LUNS;

if RETRY (SIX, write, .LUN, 256, .WCPTR, .SECTOR) ne?
0
then
!THE RETRY FAILED == SYSTEM FATAL ERROR
begin
WHY_DROPT [.LUN] = CODE_4; .
ERRDF (412, MSG1, 0);
Iaxxx OPTION 4 ERROR 12 #aww

traard T

RETRY ALLOWED

i 486 *

begin

1l :

b ek ol ed

!0OF ERROR # CONTAINED IN °*VALUE®

el D e o)

!SEE_"SYSERR' FOR DEFINITION

set

b —d

selectone .VALUE of

) D) o

SEE HOW SUCCESSFUL THE WRITE WAS:

) ol

;

—t

VALUE = write (.LUN, 256, .WCPTR, .SECTOR):

D d e e

b o

1% 4B5

P
_.d—e —

.BOARD):

end;

!#xxx OPTION 4 ERROR 11 wwws

) ) ol

e e

G000 00~~~
8 NROREOSSBESSRS
IS

oo
O

ced w—d w—d —

begin

UP_SOFT_COUNT (.LUN,

D o

el e el e

e o —
e

0 000000000000
o

.BOARD):

if .ERROUT then ERRSOFT (411, MSG3, 0);

tes;

!'s+«x OPTION 4 ERROR 10 #wew

d e e

else

oNONONONONONON ooV
ONONON

.....-......'C.n.“-...t.-'O‘........n‘.l-...l...u.I............‘...'u‘Q...i.‘

000

D! NN

end

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

KR22
ZEEREREETS
SAVFANANNID
3seggeRERes2gaEssase
wm&wgc ZRERRZZ228 ST
-‘-‘-‘-‘—J-fl-fl-fl_g-‘-‘-fl-‘ — )
ek

e e
D rd el
Dl
e
Ry —
T
e
P

-..‘-..‘-‘-‘-‘iiiiia

R Rk
o Yy

27-Mar-1982 1 9 :54:62
27-Mar-1982 19: 3:4

DEFINITION OF OPTION &

SEQ 0245

}06 3 sMLX4

PAGE 233

29-MAR-82 13:41

MACRO M1113

—

BBO PERFORMAN CE EXEG&I;ER
DEFINITION O

85'&880 PERF ORMANCE EXERCI;ER
DEFINITION OF OPTION

}3’3?,3 .-"L
1

sMLXG

10692

}?gg‘ :

10695 :

1(8):;‘9:2 :
1

§ g

10703

10706

10707 ;
10708 ;
10709 :
10710 :
10711 ;
1071; 3
10713
;
10714 :
10715 :

10718 :

g 31

623§

6234
6235
6 go
6237
6238
6239
6240
6241
624

DODU (.LUN);

l:;ve LOOP;

end;

tes;

COMMAND = CHOOSE ():

decr SECTOR from HIGHEST to LOWEST do
begin

if .COMMAND eql read

else

VALUE = read (.LUN, 25€, .PTR, .SECTOR):
end

begin
PTR = .WCPIR;
VALUE = CHECK (.LUN, 256, .I'TR, .SECTOR):

}8;33

10725

625

} ; s :

g glso

10730 :
1§7 2
10729

% ; 1:
10733

;

10735 :

10736
1

:
:

10739

10738

10740 :
18741 :
1 7:.; :
10743 ;

6256
6§s7
6§61
g gg

6260

6 6;

6
6264

6265

6 69

6
6268
99
6270

START OF 3RD SECTOR SELECTION LOOP

beam
PTR = .RCPTR;

;
selec
tone .VALUE of

625

!* 4C *

then

h248
6§49

187 ? ::

PRINTB (FMT2, WRD2S):
1" DOWN'

10721
1872;
K

g gg

TOPS=2

! 4B * END OF 2ND SECTOR SELECTION LOOP

gzz

0 Biiss=-16 V2(212)
PA:<NEALE>ML
X4.BLI.S (40)

;;u.u&JUST BEYOND END OF BLOCK * 3

ena;

6245

}8;18 :

42
c7-Marr-198
-19822 19:24:
19:23:44
27-Ma

(1>

“

SEQ 0246

6219

6
I3

118;83 :

PAGE 334

DEFINITICN OF OPTION &

10699 ;
10700 :

} ;81 :

MACRO M1113 29-MAR-82 13:41

SEE HOW SUCCESSFUL THE OPERATION WAS:

!SEE "'SYSERR' FOR DEFINITION

set

!0F ERROR # CONTAINED IN *VALUE'

o3l :
: 'f‘eacm eql read

begin
;'f' (DBL_VALUE = DOUBLE_CHECK (.WCPTR, .RCPTR, 256)) neq 0
en

SAYWHO (.LUN);
in

PRINTB (SAY1,

MSGS):

'"ECC_LOGIC FAILED TO DETECT DATA ERROR®
PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE):
1°GOOD DATA: XXXXXX AT LOCATION YPYYYY'

DBL_VALUE =

.DBL_VALUE + BUFSIZ*2:

PRIRTB (FMT12B, =.DBL_VALUE, .DBL VALUE):
1'BAD DATA: PPPPPP AT LOCATION o8oada’
WHY DROPT [.LUN] = CODE_8;
ERRDF (415, MSG1, 0);
~!'+#x* OPTION 4 ERROR 15 ses

CZM

0 PERFORMANCE EXE

OPTgagEFINITION OF OPTI
10745 :MLX4
10746 :

afilifk

MACRO M1113 29-MAR-82 13:41 PAGE 535B
SEQ 0247

27-Mar-1982
27-Mar-1982

DEFINITION OF OPTION &

10749 ;
10750 ;
10751 ;
1075; :
10753
;
10754 ;
10755 :
10756 ;

627,
627
6274
6275
6276
6277
6278
6279

10757 :
10758 ;

DODU (.LUN);

lesve LOOP:

end;

19:24:42
19:23:44

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

!JUMP JUST BEYOND END OF BLOCK * &

end;

[1] :

begin

6280
6281

v 4CT1 «

RETRY ALLOWED

if RETRY (SIX, .COMMAND, .LUN, 256, .PTR, .SECT
OR) neg 0
thenb
!
!THE RETRY FAILED -- SYSTEM FATAL ERROR
egin

&591

629
629
6294
6295
659
6
6298
6
6
6301

38388§°g

10768 ;

10799 s
10770 ;
10771 ;
10772 ;
10773 ;
10774 ;
10775 ;
10776 ;
10777 ;
10778 :
10779
;
1
1
) B
1

6284
6285
6286
6287
6288
6289

O OnONONON

10761 ;
10762 :
10763 ;
10764 ;
10765 ;
10766 ;

18 5

6308

107

6%11

i
10791
6;16
T
i
&
1
631
6

KRy

1079

WHY

_DPROPT [.LUN] = CODE_&;

ERRDF (416,

DODU (.LUNJ;

MSG1, 0);

le:ve LOOP;

end;

!JUMP JUST BEYOND END OF BLOCK * 3 +
I 4C1 =

2] :
begin
WHY

!«xxx OPTION 4 ERROR 16 twws

DROPT [.LUN] = CODE_S;

ERRDF (417,

DODU (.LUNS;

MSG1, 0);

leave LOOP;
end;

4C2 «

FATAL CONTROLLER ERROR == NO RETRY ALLOWED

“1axxx OPTION 4 ERROR 17 n##

!JUMP_JUST BEYOND END OF BLOCK * 3 =
' 4C2 »

£33 :

beg;n
ERRDF

(418,

MSG1, 0);

Ix 4C3 »

WHY DROPT [.LUN] = CODE_6;

poDD (.LUN);

Leave LOOP;
end;

[4] :

beszx
ISOLATE ();

FATAL DRIVE ERROR =- NO RETRY ALLOWED

issxx OPTION 4 ERROR 18 *#s+

:JUMP_JUST BEYOND END OF BLOCK * 3 +
1% 4(3 »

I 4C4

UNRECOVERABLE DATA ERROR

ERRDF (419, MSG2, 0);
!sx%* OPTION 4 ERROR 19 sxss
WHY DROPT [.LUNI = CODE_7;

poD0 (.LUN):

leave LOOP:'

end;

[5]) :

begin
ISOLATE ();

!JUMP JUST BEYOND END OF BLOCK * 3 #
I 4C4 *

v 4(C5 «

if .ERROUT then PRINTB (FMT10B,

BIT Q@'

RECOVERABLE DATA ERROR

.CHAN):

€z

PERFORMANCE EXERCI;GR

OPT3

DEFINITION OF OPTION

10801 ;MLX4

}838

2 9

10809 :
10310 :
10811 ;

6328
6% 9
6330

gg3%

19816

6335

10825 :

10826 :;

234‘3

18331 :

6350

10834

6353

6354
6355
6356
6357
6358
6359

8351
6362

10846 :

6365

g :

;oau :

18323 B
}

gg :
.

e
if

.ERROUT then ERRHRD (420, MSG4, 0); !#%x* OPTION 4 ERROR 20 #ews

UP_HARD_COUNT (.LUN, .BOARD);:

else

23322

2369

gg%

end

begin

if .ERROUT then ERRSOFT (421, MSG3, 0); !+#*% OPTION 4 ERROR 21 swes
UP_SOFT_COUNT (.LUN, .BOARD):
end
else

begin

if .ERROUT then ERRSOFT (422, MSG3, 0):

UP_SOFT_COUNT (.LUN, .BOARD);

6351
6352

10863 :
1 §:
}

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then

6344

6345

ggzg

10835 ;
1
39 3
10837 :
1 gg :
1
:
10840 :

:'f‘ RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .SECTOR) eql S

2%",,?
634%
634

g 3

tes;

end;

v 4C5 «

VALUE = write (.LUN, 256, .WDPTR, .SECTOR):
:

s
!
SEE HOW SUCCESSFUL THE WRITE WAS:

b
selectone .VALUE of
set

[1 :

begin

!SEE "SYSERR' FOR DEFINITION

10F ERROR # CONTAINED IN °VALUE®

I 4C6 *

egin

:THE RETRY FAILED == SYSTEM

10854
10855 :

WY DROPT [.LUN] = CODE_4;

637
6374

DODU (.LUNJ;
Leave LOOP:

637,

RETRY ALLOWED

if RETRY (SIX, write, .LUN, 256, .WDPTR, .SECTOR) neg 0
thenb .

6371

t#xxx OPTION 4 ERROR 22 s#w+

end;

si :

10853

TOPS-20 Bliss=16 V2(212)

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

OLDSEC = .MLEL;
OLDCHN = .CHAN:

6336
6337
gsgg

}

1083; :
103;. :

27-Mar-1982 19:24:42

27-Mar=1982 19:23:44

2%;’

1183%‘5 :

;%1 :
10 f :
10824

D_4&
PAGE 236
SEQ 0248

6323
23 g

383380"9 :

10817 :
10818 ;
}0818 3

29-MAR-82 13:41

DEFINITION OF OPTION &

10804 ;
}oaos -

10815 :

MACRO M1113

ERRDF (423,

MSG1, 0);

FATAL ERROR

!xxxx OPTION 4 ERROR 23 naws

!JUMP JUST BEYOND END OF BLOCK * 3

SZNLBB0_PERFORMANCE EXERCISER
DEFINITION OF OPTION

10857 :MLX4

}88;8 3.
10860 ;
10861 ;
18325 :

10863 :

6
6

end;

108;% F;
10873
;
10874 ;

6387
6388
6389

ERRDF (424,

DODU (.LUNJ;
leave LOOP;

6391
6392
6393
6394
- 6395
gggg

10884 ;

6399

[3] :
b'e‘ain
ERRDF (425,

tes;

6400
6401
6402
2282

COMMAND = CHOOSE ();

18390 :

6405

10895 ;

1
1

:
3

10898 ;

6408
6409

6410

6413

6415

; 3

641

6419

}

R 2

10905 ;

}83}? 3

begin

2252

END OF 3RD SECTOR SELECTION LOOP

START OF 4TH SECTOR SELECTION LOOP

begin

PTR = .RDPIR;
VALUE = read (.LUN, 256, .PIR, .SECTOR) ;

else

end

begin

end;

642

!« 4D ~

if .COMMAND eql read
then
.

6418

6424

' 4C ~

incru SECTOR from LOWEST to HIGHEST do

PTR

fi%%

!JUMP JUST BEYOND END OF BLOCK * 3 #
in 4(C8 «

!
:
: version czmlbb changed incr to incru

6419

6420

I'x 4(C8 »
FATAL DRIVE ERROR == NO RETRY ALLOWED
!xxxx OPTION 4 ERROR 25 ###x

6411
6412

6414

MSG1, 0);

end;

1
S 2
10286
;
10887 ;
}8323 s

1
:
10894 :

“Taxxx OPTION 4 ERROR 24 w#w+

WHY DROPT E.LUN] = CODE_6;

PRINTB (FMT2, WRD24);

2289

FATAL CONTROLLER ERROR == NO RETRY ALLOWED

!JUMP_JUST BEYOND END OF BLOCK * I
'x 4C7 «

DoDD (.LUN);
Lleave LOOP;
end;

6398

}Olgé :

MSG1, 0);

end;

6390

108;9 3
10877
;
10878 ;
10879 ;
10880 ;
]'0881 3

TOPS~20 Bliss=16 v2(212)

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

Ix 4C6 »

begin
In 4C7 »
WHY _DROPT [.LUN] = CODE_S;

}887? :

1088§ H

27-Mar=1982 19:24:42

27-Mar-1982 19:23:44
end;

8379

10868 :
10899 2

10875 :

SEQ 0249

6375
6376
6377

()
6381

PAGE 537

DEFINITION OF OPTION 4

10865 ;
10866 ;
10867 ;

MACRO MIT13 29-WAR-82 13:41

= .WDPIR;

VALUE = CHECK (.LUN, 256, .PTR, .SECTOR):

SEE HOW SUCCESSFUL THE OPERATION WAS:

selectone .VALUE of

set

ISEE _"SYSERR' FOR DEFINITION

'OF ERROR # CONTAINED IN *VALUE'

CZH§880 PERF ORMANCE EXERCI;ER
OPT DEFINITION OF OPTION
10913 ;MLX4

}83}‘5' :

19015 :

10913 :
10919

;

1003

}83 g :

183 4 ;

MACRO M1113

29-MAR-82 13:41

SEQ 0250
27-Mar-1982 19:24:42

DEFINITION OF OPTION 4

ot ls

6429

27-Mar-1982 19:23:44

TOPS=20 Bliss=16 v2(212)

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

if .COMMAND eql read

then

6e3)

glzé

:; (DBL_VALUE = DOUBLE_CHECK (.WDPTR, .RDPTR, 256)) neq 0
en

6435

begin

10925 :

10927
:
10928 :
10929
:
10930
:
10931 :

6438
6439
6440
6441
6442

'*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:
PRINTB (FMT12B, ;.DBL_VALUE, .DBL VALUE):

}g 4 :

10936

6447

sgggr((tsss'nsm. 0);

1099 :

10035

SAYWHO (.LUN):

6437

PRINTB (SAY1, MSGS):

gDpoaTA: |PERATPP
LOCATP
IGN GBaaca’
leave LOOP;"

10937 ;
10938 :
10939 ;

6448
6449
6450

}g?;j :

%gz

begin

22;9

thenb' o

10944 :

}8325 :

1094? :
}%s ;

10950 :

10951 ;
1
Sg :

10953

6455

6458
646§
646

10955 :

6466

59 3

}
1

gg :
:

10961 :
1
:

6465

gzg;

24‘93
6471
647;
647

:
:

6474
6475

10967 :

6478

“leexx OPTION 4 ERROR 26 w#ws

'JUMP JUST BEYOND END OF BLOCK * 4 +

end;

v 4D1

RETRY ALLOWED

if RETRY (SIX, .COMMAND, .LUN, 256, .PTR, .SECTOR) neq 0

!THE RETRY FAILED == SYSTEM FATAL ERROR

WHY_DROPT [.LUN] = CODE_4;

'E)ggaf‘(tg .HSGL 0);

6461

6464

end;

agg

10954 ;

1
1

PAGE 238

leave LOOP:®

end;

end;
23 :

&efiignR

S%BF(({%&"'HSGL 0);
Lleave LOOP;’

end;

£33 :
beain

00DD (.LUN):

Ixxxx OPTION 4 ERROR 27 #aax

!JUMP JUST BEYOND END OF BLOCK * 3 +
Ix 4D]
; * 4D2 *

FATAL CONTROLLER ERROR -- NO RETRY ALLOWED

“Teaxx OPTION 4 ERROR 28 s#s+

'JUMP_JUST BEYOND END OF BLOCK * 3
iv 4D2 *

1= 4D3 #

FATAL DRIVE ERROR == NO RETRY ALLOWED

CZH%BBO PERF ORMANCE EX
OPT3
DEFINITION OF OPT

f&glgffl

10963 sMLXG
1097
10971

MACRO M1113 29-MAR-82 13:41 PAGE 539SEQ 0251

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

DEFINITION OF OPTION &
leave LOOP;

1JUMP_JUST BEYOND END OF BLOCK * 3 «

6492

ERRDF (430,

leave LOOP;
end;

begin

ISOLATE ();

6495

!s«x OPTION 4 ERROR 30 s#ww

!JUMP JUST BEYOND END OF BLOCK # 3 «
v 4D4§ «

% 4D5 «

if .ERROUT then PRINTB (FMT10B,

RECOVERABLE DATA ERROR
.CHAN):

i
BIT Q0*
OLDSEC = .MLEL:
OLDCHN = ,CHAN;
2; RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .SECTOR)
eql 5
en

H ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
en

STBVXTN W-GOOQVOV'J\“N-'Og

oOONONON OONONONONON OO ONONONOONO OTM
e did
v
v v Vivvirviiaaiinaaininaig
INIOININD
b d e cnd d o e e e wd

VRYOI
N W=D

UNRECOVERABLE DATA ERROR

[51 :

e e

o aSo22Seeee

MSG2, 0);

podD (.LUN);

e e

v 4D4 »

YHY DROPT E.LUNI = CODE_7;

— v

o ol D ol D o
D cd
—

—

D i i e e
e S
i
i o o e
e
D
D

!* 4D3 «

43 :

e e

3333
3RT8S882833383\figRS232
&

X RRXRRXXRRRX
8 O S3EIX SR

end;

begin
ISOLATE ().

TOPS=20 Bliss=16 v2(212)

PA:“MEfi:‘.&!.SZMO)

begin

if .ERROUT then ERRHRD (431, MSG4, 0);
UP_HARD_COUNT (.LUN,

else

end

!eexs OPTION 4 ERROR 31 sass

.BOARD):

begin
if .ERROUT then ERRSOFT (432, MSG3, 0);

!s+*x OPTION 4 ERROR 32 wunn

UP_SOFT_COUNT (.LUN, .BOARD):

end

else

begin
if .ERROUT then ERRSOFT (433, MSG3, 0);

UP_SOFT_COUNT (.LUN, .BOARD):

end;

tes;

end;

1% 4D5

!#xxx OPTION 4 ERROR 33 xwns

SIMBBO PERFORMANCE EXEACISER

OPT

DEFINITION OF OPTI]

11025 :MLXx4

}}8 9 3
}}8 8 ;

g§§1

gg g

1103; 3
11033
;

6535
65

11035 :
11036
;
11037 :
110%8 :
11039 ;
11040 ;
11041 ;
1104; 5

ggzg

11045 ;

6548

;
;
;
;

6549
6550
6551
6552

;%82? :

gggz

1105§ :

6555

11053
;
11054 ;

11055 ;
11059 :
11057 ;
11858 :
11059 ;
11060 ;
11061 ;
1182§ s
1
:
11064 ;
11065 ;
1
:
11
:
1
F
11898 :

1"
:
11071 ;
1 73 :

11073 ;
1187% 3
11075 ;
1 79 :
11077 ;
1 ;g 3
n
:

PAGE 240

SEQ 0252

end;

27-Mar-1982 19:24:42

6556
6557

6558
6559
6560
6561
656
656
6564
6565
6566
6567
6568
6569
6570
6571
657

657
6574
6575

657
657
65;3
65
65
6581
65

27-Mar-1982 19:23:44

end;

!* 4D *

TOPS=20 Bliss=16 v2(212)

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

END OF 4TH SECTOR SELECTION LOOP

!« 4 ~ END OF TEST FOR AN ACTIVE UNIT

'+
"
.
! Test to see if this uut's address space is

6538
6539
6540
65641
654
654
6544
6545

}}82‘ 3
11046
11047
11048
11049

29-MAR-82 13:41

DEFINITION OF OPTION 4

ug 3 3
118

WACRO MT113

! to be read for soft errors.

! is intended for DMT purposes.
‘-

This test is

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 ();

.SECTOR) eql §
’

!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 it to the new
! contents of this register after the retry.
!
This is done to classify the error.
!
OLDSEC = .MLEL:

OLDCHN = .
2
[
! 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, .COMMAND, .LUN, 256, .PTR, .OLDSEC)
eql §
then
!
g
! 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 c(assiy it as a soft
! error.
!
.
if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

CZH§BBO PERFORMANCE EXERCISER

OPTS

DEFINITION OF OPTION 3

11081 :MLX4

Hggg 3
11084 ;
”005 :

11%0 2

P 6589

11089 ;

11091 ;

11095 :

110%

6599

1110§ :

P 660

11183 s
11107

;

”}?3 3

11111 ;

1118 §

11114 ;

11115 ;

11119 3

11117
;
11113 3
}”1? :

11121

;

m i K

115

;

11125 ;

m 9 :

1158
m

}” v

11132 :
m

ERRHRD (434,
begin

MSG4,

11100 :

if .ERROUT

then

6591

65
ggg‘

11104 ;
}H - ¥

then
begin

P 6590

11097 ;
Hggs 3

27-Mar-1982 19:23:44

659

11099 :

27-Mar-1982 19:24:42

6530

11095 :

!Same error occured 'hard'

!Print error if enabled

'Error number

!Error message

!Additional message routine

end

else
begin

!Not the same error 'soft’

if .ERROUT

ERRSOFT (435,
in

P 660
22815.

MSG3,
" 0);

end;

6607
6606

'Print error if enabled

‘Error number

!Error message
!Additional message routine

UP_SOFT_COUNT (.LUN, .BOARD):

6608

66! 1:0

else

end

!Not the same error 'soft’

if .ERROUT

6614

then

6615

begin

P 6616
P 6617
22}3

ERRSOFT (436,
MSG3,
0);

6620

!Print error if enabled
‘Error number
!Error message
.
!Additional message routine

;

6621

UP_SOFT_COUNT (.LUN, .BOARD):

§es

6624

end;

6625

8859

6628

end;

& 3

6631

0);

TOPS=20 Bliss=16 v2(212)

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

UP_HARD_COUNT (.LUN, .BOARD):

6595

6632

SEQ 0253

6583
gggls-

6589

PAGE 541

DEFINITION OF OPTION 4

11§§2 :
11

MACRO M1113 29-MAR-82 13:41

end;

return;

end;

!~ 3«

END OF LOOP THAT COMPLETELY TESTS 1 UNIT

'* 2 «

END OF LOGICAL UNIT SELECTION LOOP

= 1 ~

END OF ROUTINE

SIMLBBO_PERFORMANCE Exeac1§eu
DEFINITION OF OPTION
11141
11142
11146

062444

11147
11143

062450
52454

11149

004167

MACRO M1113

0624
062470
52474

11154
11155
11159
11157

062500
062504
62510
062514

11153

122

OPT4:

11166

0625

062600

11169
11170
11171

1%:

06
06
06261

m;;

62612

00 034442

11178
11179

mgo
11181
1115

111

mgl.
11185
11

11187

0626
06264

62646
06
g
;

062670
52674

062

012746
so:.;
767

706

005300
835"0
167

016667

012746
012746
81 746

1138
Jesrde jossie
11190 062710 01274
-

11191

062714

#RTNG - (SP)

MOV
MOV
MOV

5981

#SAY2,~(SP)
#3,-(5P)
SP.RO

; SP,«

MOV
MOV
JSR
MOV

MARPAT, (SP)
#WDBUFF ,~(SP)
PC,GEN&
MARPAT, (SP)

MOV
JSR
MOV
MOV
MOV
MOV
MOV

#UCBUFF ,~(SP)
PC,GEN4
#JDBUFF ,16(SP)
MICBUFF 26 (5P)
#RDBUFF. 24 (SP)
#RCBUFF - 34 (SP)
LSUNIT,42(SP)

MOV

#URD34
, - (SP)

012746

004630

ooogu.

007354
007072
000002
4

006160

000002

117210

28:

:
:
:
:

#DRIVE . STATUS RO

'1‘2?
?)
#1777753”(5
0, (sP)
-

*,WDPTR
*,WCPTR
*.RDPTR
*.RCPTR

|
5985 |
5986
5987
5988

§990 |
;

5995 |

|
;

LUN

#1,-(SP}
-($P)

PC,BLSGT2
#10,spP

MOV
MOV
MOV

MIRD3S .~ (SP)
cgm <(SP)
#2,~(5P)

OV
MOV

MRD26
. (SP)
#FMT2,=(SP)

MOV

5984

s LUN,»

MOV

14(SP) ,RO

DEC
BEQ
JMP

MOV

5983

*LUN

RO
RO
RO

ADD

14(SP)

ASR
ASR
ASR

Mov

MOV
CLR
JSR

121514
000010

(SP)

958

%vv
BIC

000001

JMP

ADD

mn 6'8 8} 2 000016
11175 %3 oa?%a 177770
11179
62630

11177

5908

#30,spP

CLR

062574

11168

SUB

NEG

0625
0625
0625
6254
062546
062554
06

11167

OPT4 DEFINITION OF OPTION &
R1,$SAVES

TRAP

11159
11160
11161
mo;
11163
11164
11165

.SBTTL
JSR

MOV

062476

11158

PAGE 242

SEQ 0254

11150
11151
1115;

J &

29-MAR-82 13:41

14(SP) ,LSLUN

SP.RO

#2,-(SP)

: LUN,*
:

: SP,«
£

5998

5999

6001

|
|

‘
!

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

NNNNN

358

sMLX4

000026
034460

?2.R0

SP,»

26(SP) ,RO

LUN,
*

000050

g;z(sp>.n4

*,SECTOR

26(SP) ,-(SP)

LUN,

#400,~(SP)

S0(SP) ,~(SP)

FRFRS

b ol

3255

*,VALUE

s VALUE,*

LUN,
WDPTR,
*
SECTOR,
*

#14,5P

s WDPTR,
=

s SECTOR,*

RO
78

36(SP) ,RO
gg.UHY.DROPT(RO)

034446

§-.28882

RG,~(SP)
PC.RETRY

LUN,

621

MSG1

1
104451

1(SP).RO

53;
?ms

4$:

—
—

b el o oy ed
h d

AN
S BN BN

B et o

6007

#TOP.SECT,50(SP)

34(SP) ,~(SP)

' }
1

TOPS
PA:<

RO,5 0(SP)

RG,~(SP)
PC.WRITE
RO.RS
RS.M
4$
#6,~(SP)
MJRITE,=(SP)
42(SP) .-(SP)
#400,-(SP)

531
531
63112

3:44

#LOW,.SECT,52(SP)

as50(sP) ,R1

031

4:42

R0,52(SP)

3s:

g?-fllr-l982 19
7-Mar-1982 19

DEFINITION OF OPTION &

000052

SEQ 0255

034446

63
R5.42

3%
36(SP) ,RO
gs.UHY.DROPT(RO)

LUN,
=

VALUE,*

622

MsSG1

000036
000003

5%:

0
36(SP) ,RO
51
63

R5.43
78

LUN,
*

* VALUE,+

6037

6015
6042

ZMLBBO PERFORMANCE EXERCISER

T4 DEFINITION OF OPTION &

11249
11250

g
11279

gty
gt
1 gg e6
1

13285
n
1
n
n
1

06331

0
4
50
32
34

n
1"

82
10
14

g
i
5

:§-IREES gg S
-

0
36(SP) ,RO
g?.HHY.DROPT(RO)

000022

6%:

000010

7%:

8%:

6044

6045|

* SECTOR

* SECTOR,

6008
6007

6051|
.

SP‘.

PC, CHOOSE
RO,
0.R2

* , COMMAND

asg«sr).RA

*,SECTOR

854 (SP) ,46(SP)

9%:
COMMAND
,»

6053|
6058

6061'

42(SP) ,R3
32(SP) .-(SP)

#400,-(SP)

R3,-(SP)
R&.=(SP)
PC .READ

162260

162420

SP,RO
14

000042
000032
000400

000400

#22,SP
14$
#10,5P
R4
R4 ,R1

#2,-(SP)

162712

0000%3

TOPS
PA:<

: LUN,*

#WRD24, (SP)
#FMT2 ,-(SP)

000002

045612

7=-Mar=1982 19:2
7-Mar-1982 19:2

DEFINITION OF OPTION &

MSG1

000036
000006

000054
000056
001350

SEQ 0256

623

dgd
b

1"
11295

—

NRRSRS=

11274 063274

-— PN

1127§ 063 93

§§§d§§¥§§§

1126§ 063224
11263 063226
11264 06
11265 06
11266 063240
11267 063244
11268
1" 99
5
11270
54

ccooo

11%61 06 22

— b b
- e ek
SO S3R88
V= OW §°°°§ =OO0OO=O R R
N
=
eN
3
8oR8
o
—
OO
NOONONNIN)
= NVINIONO COWNO OO -n~8

—-

172

1" 59 §§ 08
11258

11254

sMLX4

b
d e
e

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

108:

: RDPTR,PTR

: LUN,*
s

6064
6065

PIR,*

: SECTOR,*

11$

§usm .R3
2(SP) .~(SP)

#400,~(SP)

R3,~(SP)

; WDPTR,PTR
; LUN,*
s PIR,
»

R4 .=(SP)

s SECTOR,*

15§

; *,VALUE

:5.£gecx

6077
6082

R1
138

28$

44 (SP) ,=(SP)

54 (SP)
.~ (SP)

#4600,~(sP)

6069|
6070

; WDPTR,*
; RDPTR,*

6086

PC,DOU. BLE
CHECK

#6.SP

RO.60(SP)
12§

42(SP) ,~(SP)

; *,DBL.VALUE
: LUN,*

6089|

SEQ 0257
57-Har-1982 19:24 142
7=Mar-1982
&

19:53:

=0
OO NN

igEflEIV28§§23323§2222g
gdgNEERS a:saa£;:§

DEFINITION OF OPTION &
PC,SAYWHO

#MSGS, (SP)

#SAY1.=(SP)

#2,-(5P)

P.RO
14

66(SP),

(SP)

@66(SP3 ,~(SP)

#FMT12A .= (SP)

SP'.

s DBL.VALUE,*
s DBL.VALUE,«

#3,-(SPS
§:.Ro

000074

#10000
74 (SP)
,
74 (SP) . (SP)

874 (SP3 ,~(SP)

purQar oy

TOPS
PA:<.

#FMT12B.-(SP)

s *,DBL.VALUE

s DBL.VALUE,+
s DBL.VALUE,+

64 (SP) ,R1
g;O.UHY.DROPT(R1)

034446

624

000050

#50,SP

000006

LoL
]

g?(SP).RO
b el

000064

000001

RS, #1

: VALUE,*

6077

R2,=(SP)
46(SP) ,=(SP)
#400,~(SP)

: COMMAND,

$108

R3,=(SP)

: PIR,*

: SECTOR,*

#14,5P

000042
000004

42(SP) ,R1

034446

gg.HHY.DROPT(R1)

: LUN,
=

6111

6112

625

MSG1

000002

WVININ
-

: LUN,*

RO
153

L2208

&HNERY

—

PC,RETRY

000042

—

6100

168

R&.=(SP)

—

; LUN,
=

208

#6,~(SP)

—

: LUN,*

MSG1

»H

——[ = T

03.-6SP5

42(SP) ,RO

16%:

19%
RS, #2

17$

: LUN,*

6113

* VALUE,*

6114
6077,

CZMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION ON &

MACRO M1113

11361

29-MAR-82 13:41

N &
PAGE 246

SEQ 0258

sMLXG

10
1
14

104455
ooosgs
011

104451

000042

000005

MOV

034446

MOVB

TRAP
.WORD
-WORD

13 w 000042
37

527

1014

;

lino"'vnIII
TRAP

000003

178:

637

6374

6375
537

000042
000006

000004

63774

153332

034446

000042

000007

188:

034446

7
7
7

§§

153262
000001

150324
3

218:
116202

;

6122 |
3

22(39) RO
51

19s

LUN, *
:

6123
6124

RS, 43

: VALUE,*

6077

6129

; LUN,*

6130

: LUN,*

6131

188

627

MOV

42(sP) ,R1

MOVB
MOV

#6.WHY.DROPT(R1)
R1.RO

3.'5’

S?i""

: VALUE,*

6132

JSR

PC,ISOLATE

.WORD
.WORD

630
MSG2

:
F.

6137
6138

r'eo“vmll

22(59) R1

MOV

R1.RO

ADD
JmP
(MP

#26,SP
943
RS5,45

TRAP

BNE
JSR

MOV
ASR
ASR
ASR
ASR
ASR
ASR

#7,WHY.DROPT(R1)
51

28%

PC,ISOLATE
fifnawr

aML
.REG+42,R1
R1

LUN

6139

: LUN,*

6140

6141

; VALUE,*

6077

6146

6148

R1
R1
R1

MOV

#2,-(SPJ

ADD

6077

R1
R1

flrrzggsm

55
626
MSG1

000006

TOPS

PA:<

6121 |

177700

3333‘02

19:23:44

s LUN,*

MSG1

MOVB

198:
208:

27-Mar-1982

4£2(SP) ,R1

#5.WHY.DROPT(R1)

.WORD

TRAP

026
120
0005

BNE

TRAP

: ;93

(WP

.WORD

. 723

537

B8R

TRAP

27-Mar=1982 19:24:42

DEFINITION OF OPTION &

#FMT108B,~(SP)
5

#6,5P

2 SP,x

MACRO M1113 29-MAR-82 13:41 PAGE 5675
SEQ 0259

- e

NOWVS
NN -0 0V~

NS PRI
T

BBO PERFORMANCE EXERCISER
DEFINITION OF OPTION 4

NSRS
RS

e e e w—d

)

#177700.R1
R1,50(SP)
#1.=(SP)

R2.=(SP}
46(SP) ,=(SP)

—

)

—|

ML .REG+44 ,46(SP)
aML.REG+42,R1

s *,0LDSEC

6151|

6152|||

*,0LDCHN
COMMAND
,*

6154

#400,~(SP)

R3,-(SP)

R&.-(SP)

D oy eed end ok D sk-— — ke
o e el v i i i el o sRt
T

PC.RETRY

#14,5P

* SECTOR,*

RO, #5

DS S
o~
&%&325353VIS
3%
w“aw-ooowvng 5588

000046
-

OO0 O0O0O0O =3

258

aML .REG+44,46(SP)

248
50(SP) ,RO

; *,CLDSEC

6157

: OLDCHN,*

d e

d e e

%QL.REGMZ.M

177700
000001

#177700.R1
R1.RO

115762

% ERROUT
238

0042
150022
153076

42(SP) ,~(SP)

BOARD ,-(SP)

SC UP.HARD . COUNT

000001

115724

000001

115702

pry

TM~
W
~ VI~

o SNt

56
631
3564

22%:

TOPS |
PA:< |

SRTEHEEES

000046

BBDDBBDDDPDDDDDDDDII o

it e e o o
s
BBDD DD
b

7-Mar-1982 19:
7-Mar-1982 19:23

DEFINITION OF OPTION &

6161

CZMLBBO PERFORMANCE EXE&C‘QER
OPT4 DEFINITION OF OPTI

MACRO M1113

11473

104457
11479 0643602 00063
3
11476

11:.;3
114
11480 064

11481 064374
114
834“00

114

11485
11486

404

822203

.WORD

16,4.9
767

14774
153500

818916

000042

022626

010446
004767

012746

045424

81 46
16646

000400
000072

1
1

.WORD
WORD
MOV

7-Mar-1982 19:23:44

MSG3
O
42(SP) ,~(SP)

: LUN,*

MOV
JSR

BOARD, = (SP)
PC,UP.SOFT.COUNT

Moy

42(SP3, (SP)

Ré,=(SP)
PC.WRITE

+ SECTOR,

CMP

MOV
MOV

MOV
JSR

MOV
CMP

BNE

(SP)+.(SP)+

: LUN,*

#400,-(SP)
56(SP) ,~(SP)

: WCPTR,*

6190
6196

298

013946 000054

MOV

54(SP) .=(SP)

: LUN,*

MOV

R&,=(SP)

ADD

: SECTOR,+

#14,sP

767

161532

2706

000014

016601

000050

112761

104455
00063%

000004

JSR

220000
000050
1044;;
2"5,%’;
12761
04455
5
11070

a‘

451

527
1012
45

%670

000050
000005

298 :
034446

000003

MOVB

#4.WHY.DROPT(R1)

50(SP) ,R1

55
634

6199

6200

: LUN,*

6201

: VALUE,*

MOV

6190

MOV

TRAP

308:

: LUN,*

Womp o0
S0(SP) ,RO
;3” fls
g‘vg
gg‘nz
MOVB
TRAP
.WORD
.fig

000050

: WCPTR,*

PC.RETRY

MOV

000002

16601

#400,-(SP)
72(SP) ,=(SP)

RO
328

TRAP
.WORD

(116600

#MRITE,=(SP)

ST
BEQ

MOV

034446

6184

; *,VALUE
: VALUE,*
:

10446

6145

RO.RS
RS, #1

#6,-(SP)

MOV
MOV

|
6178 |

;

MOV
MOV

TOPS

PA:<

633

15766 000006

005700
001456
1

288:

160774

8010

278:

010005
ozosgz 000001

268:

7-Mar-1982 19:24:42

DEFINITION OF OPTION &

TRAP

12
012746 000400
413 018246 000056

11487
064422
11488
064426

11
1

011166
000000
016646

€C 5
PAGE 248
SEQ 0260

sMLXA

} 112;15.

114

29-MAR-82 13:41

CMP
BNE

50(SP) ,R1

6202

#5,WHY.DROPT(R1)
55
635
ssm

: LUN,*

6209

6210

50(SP) ,RO

; LUN,*

318

6211

6212

6217

RS, 43
sgi

T%o

236

WORD

8561

: VALUE,*

6190

PERFORMANCE EXERCI
FINITION OF OPT

EER

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

-o

31s:
328:
33s:
176416

348:

000002

000062
000060

001350

045612

#16,SP

R4
R&,46(SP)

348

LUN,+

* SECTOR

: SECTOR,

35%:

*, COMMAND

382(8P).R4

*,SECTOR

R2 #READ

COMMAND
,*

36(SP) .-(SP)

RCPTR,PTR
LUN,
*

R3,=-(SP)
R&,=(SP)

PTR,*

#400,~(SP)

160632

PC.READ

36$:

6228

6230
6233

SECTOR,

50(SP) .R3
36(SP) ,~(SP)

: WCPTR,PTR
: LUN,*

R3,-(SP)

s PIR,
*

R&.-(SP)

: SECTOR,

RO.RS

; *,VALUE

PC. CHECK

41§
R1

38%:
39s:

6029
6058

378

#400,-(SP)

37%:

6219

SP,

RO,R2

862(SP),52(SP)

6218

6226|

PC, CHOOSE

000052

TOPS
PA:<

6220|

#URD2S, (SP)
#FMT2,<(SP)
#2,-($P)

R1
56(SP) ,R3

000050
0000

LUN,
+

#34,SP
408

161264

7=Mar-1 982 19:24:42
7=Mar-1 982 19:23:44

DEFINITION OF OPTION &

50(SP) ,R1

Voo

gfldfl
§§223§
2238
RSfosE
8
-

SEQ 0261

#6,WHY .DROPT (R1)
R1.RC

e
e Yy

)

§°°°
SIRAN%2
—

2292yana8222
NSON NN o
RIS
NS
o
N =N NOONONON W SN
NN N = N=N
NN
FR-EN RS

3333341
: :\fi“\flgt

(- 2 - NN

sMLXS

b&go

]
GRORYES * ©

P14

39
548
60(SP) ,~(SP)
70(S
.=P)
(SP)

#400,-(SP)

WCPTR,
*
RCPTR,*

6241
6242

6249
6254

6258|

;g.oéusLe.cuecx

R 'esupcsp)

sgi

46(SP) ,~(SP)
PC,SAYWHO

*,DBL
. VALUE
LUN,
*

6261|

-A§ 38FannaR
X& 2-.-.
S
NNY
%\flg-lb
SERES §§:

(=l

»H

o OO

—

b h o

a72(SPJ ,=(SP)

008715
000003

#FMT12A.-(SP)

#3,-(SP)

SP.RO
14
#10000,100(SP)

100(SP} , (SP)
@100(SPJ ,~(SP)

#FMT128B,=(SP)

>~
N

000006

: SP,*

: *,DBL.VALUE

: DBL.VALUE,
*
; DBL.VALUE,*
SP,t

637

6270

; LUN,*

#54,SP
468
R5.#1

#6,~(SP)

3
5 (sP) .~(SP)
*=(SP)

000052
000400

#400,-(sP)

R3,-(SP)
R&.=~(SP)

160750
000014

PC .RETRY

#14,5P

6271
6272

428

cned

g as SO\n-n-::gg

6264|

6269

6249

* COMMAND,*

6280

: LUN,*
s PIR,*

s SECTOR,«

- NI\
AN NN -

: DBL.VALUE,+

70(SP) ,R1
g;O.UNY.DROPT(R1)
MSG1
0
70(SP) ,RO

000070

OO OO

RSNRN oNOR
&S

3-.-.-.-‘8’\;

s DBL.VALUE,

000001

et ek

SP'.

a3.-5spi

388

0000¢

46(SP) ,R1

gg.HHY.DROPT(Rl)

; LUN,
=

000046

000002
000046

428:

6283

6284

640
3561

pryS9SR prd

Ko
6262

SO~

Cead

000072

14
72(SP) , (SP)

el okt

S mar-io8s 19:38:48

DEFINITION OF OPTION &

000002

000054

SEQ 0262

#MSGS, (SP)
#SA
.=Y1
(SP)
#2,-($P)

—

807675

—

e
TM b

O =—b
&~

d md

—

e e

d ek

o Vi Vil

e
b

vivaw

5
5
5

sMLXS

SIKLRSEIISRSIIIRIII
SSEEIEIRSR
SEZZIRISIXSIXSI
Vi uniuiiuniianiniiiia
Ao
22
RSERERIRNSSNORRSY N2R2IZTENEERNSRIRIS <

— il b d d
Vi

82 53 igae
'008 BBERS

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

46(SP) ,RO
51

; LUN,*

6285

25 2

* VALUE,*

6249

46(SP) ,R1

: LUN,*

6293

6286

CZMLBBO PERFORMANCE E fifl(lzfl!
0PT4 DEFINITION OF OP ON

MACRO M1113

11641

sMLXG

H&‘i

11644

11645

065

112761

000641

065 22 1ou.gs

1154.9

11647
065
mv.s 825

11649

065

m.go 825 52

11651

065

mgg
116

5
5

11654

11655
11656
065

1165

11658

825 7

065374

11659 8254

104451

527
1014

016601

112761

541

8084

11663
11664
11665
11669

065414
0654 g
0654
426

11668
11699

065432
54

11671

065442

1166

11670

11675
116;9
116
116;3
11
1

1
11

1
11
11
1

116

1169

1 9;

1169
1169

11695

0654

0¢

000046
000003

438:

000006

527
19 1
gr
104455

4s:

151704

16601

000046

000007

91 100
04451
: 709 000032
167
527
161
767
767
3

;

.WORD
.WORD

641

MOV

MSG1
0

629

46(SP) RO

: LUN,*

458

6295

6296 |

151634

000001

468:
478:
114554

146676

642
MSG1

MOV

46(SP) ,R1

: LUN,*

MOV

R1.R0

6302 |

: LUN,*

458

6303 |

6304

146632

BIT
BEQ

ASR
ASR
ASR
ASR

BIC

MOV

006640

MOV

|
|

: VALUE,*

6249

6309
6310

46(SP) ,R1

: LUN,*

R1.R0
51
os;.sp

6311 |

: LUN,*

6312

6313

: VALUE,*

6249

6318

643

#7.WHY.DROPT(R1)

9%
RS,45
548
PC,ISOLATE

#1,ERROUT
48§

@ML.REG+42,R1

|
,

6320

R1
R1

‘
|

R1
R1
R1
R1

#177700,R1

R1,=-(SP}

#FMT108,~(SP)

#2,-(SPJ

TRAP
ADD

14
#6,5P

MOV

6301 |

:
:

MOV

000052 48%:

MSG2
0

ASR
ASR

000002

#6,WHY.DROPT(R1)

.WORD
.WORD

JMP
(MP
BNE
JSR

6249 |
|

RS, #4
478
PC,1SOLATE
55

MOV
TRAP
ADD

: VALUE,*

CMP
BNE
JSR
TRAP

MOV

177700

;

MWORD
.WORD

MOVB

458:

002472
000005

RS, 43
448

MoV

034446

CMP
BNE

.WORD

0
112761

WORD

TRAP

000004

PA:<

#5.WHY.DROPT(R1)

MOVB

104451

7-Mar=1982 19:23:44

TRAP

JWORD

034446

SEQ 0263
7-Mar=1982 19:24:42
TOPS

MOVB

TRAP

000046

F
5
PAGE 251

DEFINITION OF OPTION &

TRAP

2
11070

010100

065410

034446

104455

065406

11661

000005

011070

11660

1167;
1167
11674

29-MAR-82 13:41

SP.RO

aML.REG+44,52(SP)

: SP,e

; *,0LDSEC

6323

|
.

561

713

b
o

NNNN

1
1

1044
7

NNNN

VIND
SN

Ay By
P

TOPS
PA:<

*,0LDCHN

COMMAND
,*

LUN,
*

R3,-(SP)

PTR,
*

6326

SECTOR,»

51%

000052

aML .REG+44,52(SP)

50
54(SP) ,RO
gHL.REGOAZ.RI

000054

146516

*,0LDSEC

6329|

OLDCHN,
*

177700
000001

000001

000001
¢

144

6324

52(SP) ,=(SP)

#14,SP

142

RO, #5

114334

6333|

49%:

151450

o s

7-Mar=19 2
7-Mar-1

DEFINITION OF OPTION &

R4 ,=-(SP)
PC.RETRY

Ye37e

R OO

SEQ 0264

#400,-(SP)

ONO

vo n

SRR

SOF

564

0656
0656

e ——

NNV
ESBBDB00
NNNNNNNNNYNNNNNY NN NANINISNININSN N NN NN NN
So®
~u>ui=uuu-flb
NOWVMSNWN—=O VRN
-

ML .REG+42,R1
R1
R1
R1
R1
R1
R1
#177700.R1
R1.54(SP)
#1.=(SP)
R2.-(SP)

063650 Qiosae

714
715

niggggggggggggg:fi

783 261
71?

afiadd-‘dd-‘da

g83

88\0

o s s ld ) e e el ) e
i o o ol ol e s e i i e e e e
-—
b
e e e e e e e e e e e e i e e e o
ot s el i ol lh ol conl) ) o e el ) el wlh e
ddflddddddflfldflddfldfldfldddflddd—ld
~

NNNWN

065
55
257
g?

11701
117
117
1704

;;%fi% 065562

sMLXG

PAGE 252

11698

29-MAR-82 13:41

MACRO M1113

CZMLBBO PERFORMANCE EX ERCI sz
OPT4 DEFINITION OF OPT 10N

46(SP) ,-(SP)
BOARD
, - (SP)

;S‘UP.HARD.COUNT
114276

114254

508:

518:

#1_,ERROUT

528

645
MSG3
0
528

#1,ERROUT

528

LUN,
*

6335
6329

6340|

CZMLBBO PERFORMANCE E
OPT4 DEFINITION OF OP

MACRO M1113

11753
11754

sMLXG

11758

11760
11761
117

528%:

53%:
54%:

11765
11729

11730

1 go

11771
1177?
1177
11774

r-19
57he r=19

DEFINITION OF OFTION &

72
10

1
124
1
0661
561
56142
56144
--148
5615
56152
5615
561
661

11791
1179§
1179

0661
561

11795

11794 (

11038
968
1

TOPS
PA:<

6350

46(SPJ
, (SP)

#400,-(SP)

Y LUN,*

6317|
6356

RG,~(SP)

52(SP) ,~(SP)

: WDPTR,*
; SECTOR,*

PC,UP.SOFT.COUNT

(SP)+.(SP)+

s *,VALUE

s VALUE,«

#6,~(SP)

6362
6368

MIRITE,=(SP)

60(SP) .=(SP)

#400,~(SP)

66(SP) ,-(SP)

R&,=~(SP)

PC.RETRY

7
7
1456
01
1
1 gl
104455
7
11070

3:44

: LUN,»

558

746
16946
12746

01
104451
39
52
1015
0 3901
1
1
104455
50

46(SP) ,~(SP)
BOARD,
= (SP)

PC.WRITE

11;;8
1
117
11781
117
117
117
11785
117
117
117
117
n

11805 (
1A
1

SEQ 0265

RO.RS
RS #1

11275 066106 Odsae
11777 066114
767

n
1
1"

H 5
PAGE 253

646
sscs

117%3

29-MAR-82 13:41

; WDPTR,*
: SECTOR,*

nal.sr
2

54(SP) ,R1

034446

gg.UHV.DROPT(Rl)

; LUN,*

6371

6372

647

8561

000054

54 (SP) ,RO
51

000002

000054
000005

55%:

034446

;

LUN,*

6373

: VALUE,*

6374|
6362

54(SP) .R1

H Lm'.

6381

. LW..

6383

* VALUE,*

8365

568

gg.unv.oaomm
650
8561

000054
000003

568:

54 (SP) ,RO
51
578

RS, 43

58$

g5
651

6389|

8561

000054

54(SP) ,R1

; LUN,*

6390

¥§RC12ER

DEF IN

MACRO M1113 29-MAR-82 13:41 PAGE 55‘ 5
2MLX4

015120
104451
112761

000006

MOVB

793 000040

578:

000016

588:

000052

598:

;

304
4

12716

12746
12746
1

104414

767

19002

1794.1

00733

0227
1014

045612

16603
16646
12746
1 342

000052
000042
000400

7?7

157204

2681

1044
16603

16646
12746
10346
1 49
767
;

000044

000042
000400
157344

61$:

1012

1556

888896
0

Ré
R&,52(SP)

648:

658:

6398

#URD24 , (SP)

MOV
MOV
MOV

#FMT2,=(SP)
#2,-(5P)
SP.RO

; SP,*

JSR

PC.CHOOSE

MOV

864 (SP) 64 (SP)

6400

6405 |

: COMMAND,+

6408 |

: RDPTR,PTR
: LUN,*

6411 |
6412 |
a
s

RO.R2

MOV
JMP

2866 (SP) _R4
81

CMP
BNE

R2,#READ
628

CLR

: *,COMMAND

: =,SECTOR

52(SP) ,R3
42(SP) .~(SP)
#400,-(SP)
R3,=(SP)

: PIR,*

flasa

R&,=(SP)

Z§§"E‘°

: SECTOR,*

MOV

44(SP) ,R3

: WDPTR,PTR

MOV
MOV
MOV
MOV
JSR
MoV

BNE

42(SP) .=(SP)
#400,-(SP)
R3,-(SP)
R&.=(SP)
PC.CHECK
ng RS

67$

ROR

JNP

BLO

MoV

; LUN,*

: PTIR,*

: SECTOR,*
: *,VALUE

4(SP) ,~(SP)

;
.

;

|
6416 |

6417 |
g
!
:
'

6426 |

6429 |
|

; WDPIR,*

64 (SP) .=(SP)
#400,~(SP)

ADD
MOV

#6.SP
RO,70(SP)

; *,DBL.VALUE

52(SP) ,=(SP)

: LUN,*

#MSGS, (SP)

6436

6437

JSR

BEQ

MOV

011216

MOV

JSR

: RDPTR.*

6433 |

;

PC.DOU. BLE
CHECK

64$

PC,SAYUHO

‘
,

MOV
MOV

147012

gssv

MOV

358

6391

608§

JMP

TOPS

PA:<

6392

BLT

MOV

638:

#16,5P

19:23:44

: SECTOR
: SECTOR,

MOV
MOV
MOV
MOV

628:

: LUN,*

#40,5P

DEC
(MP

ADD

7-Mar-1982

#6.WHY.DROPT(R1)

66$

INC

;

ADD

7-Mar-1982 19:24:42

OPTION &

R1.RO
51

B8R

MOV

000064
001120

MOV
TRAP

TRAP

157636

167
1

608:

0061
000002

1 232

034446

DEFINITION OF

SEQ 0266

J
MACRO M1113 29-MAR-82 13:41 PAGE ZSSs

CZMLBBO PERFORMANCE E

OPT4 DEFINITION OF OP

11865
1

12746

& NE£
-lgbbEN
NN

TOPS
PA:<

#FMT12A.-(SP)

SP‘.

s DBL.VALUE,*
s DBL.VALUE,«

6439

; *,DBL.VALUE
s DBL.VALUE,*

6441
6442

6444

03.-6spi

-o

76(SP) , (SP)

@76(SPJ ,~(SP)

000104

#10000, 104 (SP)

104 (SPS , (SP)
@104 (SPS ,~(SP)

ey
-ng
s\fl\fl
o=§
FISR2

oW mnd Ll =1 X

gddd
-

&»

R
-

#FMT128,=(SP)

cs.-sspi

1
74(SP) ,R1
g}O.WY.DROPT(RU

034446

;#(sp).ao

: LUN,
=

#6,-(SP)
R2.~-(SP)
56(SP) ,~(SP*
#400,-(sP)
R3,-(SP)
R&,~-(SP)

000056
000400

PC.RETRY

#14,5pP

000014

888832

a0s

52(SP) ,R1
gg.uuv.oaopt(n1)

034446

6446|
6447

688

6445|

i 157322

LUN,*

#60,5P

s DBL.VALUE,*

652
8sc1

N NO WM ~N&

}366

— i

00 STV

SP.RO

—k

SESRARS3833333332%3

12746
10246

o
b
v e

S?-flar-‘l982 1 9:24: 42
7-Mar-1982 19:23: 44

DEFINITION OF OPTION &

#2,-(5p)

07616
("l?6 6

md ot oo
E ko
b

2288292 eee

SEQ 0267

#SAY1,-(SP)

} 746

-o

D8O

333
REEE
-

. -iNG

) D ) D el i o v e — e —
o o

e e e o

e o

D nd

B8 SRRssaE
NANIID

11868

1i8er

A :wu“\fig

sMLXS

* COMMAND,+

6424|
6455|

: LUN,*

: PIR,»

: SECTOR,*

: LUN,
=

6458

6459|

653

MSG1

0
52(SP) ,RO
31

000052
000002

000005 034446

68$%:

: LUN,*

660

; VALUE,*

6626

52(5P) ,R1

; LUN,»

6468

698

#5_,WHY .DROPT(R1)

6461|

ITION OF OPTION

104455

&
2

1
1
11970

6714
0671
571
571
571
571
0671

1o7s 88515
119;3 5717
11974
11975

.7s?§
067

=2 0ON

d d b

TOPS
PA:<

6469

000052

52(SP) ,RO
51

000003

69%:

718
RS, 43

708

: LUN,*
VALUE,
«

55
655

000052
000006

M5G1
0
52(SP) ,R1

034446

000004

#6,WHY .DROPT (R1)
R1.RO

708
:

150256

71s
RS, 44

Z%‘ISO
LAti
55°

¢ LUN,
=

s LUN,»

: VALUE,*

nse2
000052
000007

52(SP) ,R1

034446

#7 ,WHY .DROPT(R1)
R1.RO

880036

718:

000005

73s:

1044

150206

000001

: LUN,»

#36,5SP

s
808

s VALUE,*

PC,ISOLATE
‘ZiERROUT

113126

145250

aML.REG+42,R1

o e

11361
11335 67140
57144

3:44

i end

1193 0er1ie

1
11965
1
1

Ul80
- OO NN NN
-

0104

4:42

DEFINITION OF OPTION &

3561

88§§
\fi‘lla SARA =3
82§ SR8
b
—

and

— A e NS =
~
On OAONNOON
W
NN=-=N

11955 57102
11954
.7103

g —h

067
067
067070

e
]

119¢35 87

Nwwwa -2 NN

-—

O=0O

O8N

22222

067040
067042

S£Q 0268

55
654

54
011070

oa§R

WNNNNN

11943 06r058
11948
11949
11950

MACRO M1113 29-MAR-82 13:41 PAGE K2565
sMLXS

11939
1uo§087055
m

11941
11942

ERCIEER

: SP,»

000056

74$:

#6,SP
ML .REG+44,56(SP)
ML .REG+42,R1

*,0LDSEC

6498
6499

=&
m

SEISNRY
GRS EBRUERRINN

OO
OO OO0 000V VVODODOD

e
—

— e d s D e e _.-n-n-l_.—l-n-o—i-n-b—l-i_l—l.o_a_.
i D v e e e o —b b D s
o

RFORMANCE EX

MACRO M1113

11977
”g;g

11980

11984

119

1198

11988

11350

11991
199§
199
1994
995

ASR

ASR
ASR
ASR

R1
R1
R1

ASR

042701

010166

ASR

177700

BIC

000060

MOV

012746 000001

MOV

000400

MOV

§}12746
48 000056

010346

MOV

01044
76
156736
709 000074
g 000005
1052

85%5

145106

016600
017701

000060
145070

MoV
JSR
ADD
CMP

BNE

000056

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

DEFINITION OF OPTION &

1
1
1

PAGE 257

SEQ 0269

sMLXG
:

11981
1
1198

11985

29-MAR-82 13:41

s e

(ZMLBBO PERFORMANCE EXERCISER
OPT4 DEFINITION OF OPTION 4

TOPS
PA:<

#177700.R1

R1,60(SP)

; *,0LDCHN

#1.=(SP)

#400,-(sP)

R3,-(SP)

6501 |

: PIR,*

R&%,=(SP)
PC.RETRY
#14,5P
RO, 45

: SECTOR,+
|

77$

gzg

%.ascoaa.susm

; *,0LDSEC

MOV
MOV

60(SP) ,RO
aML.REG+42,R1

6504 |

: OLDCHN,*

006201
006201

ASR
ASR

R1
R1

;
|

006 81
006201

ASR
ASR

R1
R1

006201

ASR

006201

05 100
1017

32767

Y0iace

ASR

177700

000001

BIC

555

16646

000052

767

150022

16749

144746

000001

000001
'

000661

758:

BIT

#1,ERROUT

.WORD

657

MOV
ggn

112650

112626

76$:

77%:

76$

i g

MoV

52(SP) ,~(SP)

BOARD, = (SP)
#1,ERROUT

TRAP
.WORD
.WORD

57
660
MSG3

BEQ

#1,ERROUT
788

WORD

661

78§

B Do
BIT
TRAP

;
|

6508

; LUN,*

6510

;s‘w.mo.coum

BIT

BEQ

|
‘

#177700,R1

R1,R0

000657

CMP

BNE

112706

6515

6523 |
;

6517 |
|

29-MAR-82 13:41

SEQ 0270

755
7ssg
756

BIT

BNE

848:

JMP
2‘5"(

858:

MOV
JMP
Moy
MOV

034500

MOV

034460
000402
000014
000400
022670

MOV
MOV
JSR

156024

6492 |

: SECTOR

: SECTOR,*

6405 |

#10,5P

R&, 64 (SP)
82¢
618
#26,SP

848

9$
;lé(sp).no
TOP.SECT(RO)
,R1

LOW.SECT(RO) .Ré4
938
14(SP) ,=(SP)
#400,-(SP)

WRBUFF,-(SP)
R4 ,=(SP)
PC .READ

067

000010

ADD

147526
000001

JSR
gg

PC,ISOLATE
gkenuout

MOV

aML.REG+42,R0

BNE

112446

144570

ASR

ASR
ASR
ASR
ASR

ASR
BIC
MOV

177700
0

MOV

144524

144514

000020

86%:

#10,sP

998

:
|
5997 |
i

6541 |

: LUN,*

;
os:.a;

; *,SECTOR

: LUN,*

6550

a
.
-

: SECTOR,*

:
:

6553
6555

|
,

#FMT108,-(SP)

ADD

#6,5P

MOV

aML.REG+42. R0

ASR
ASR
ASR

RO
RO
RO

ASR
ASR

6406 |

RO
RO
RO
RO
#177700,R0
ao.-(ssf

#2,-(SPS
i

MOV

MOV
MOV

TRAP

;

#1,EFNS21

6525 |

067534
067540
06754
06755

(MP
BHI
JMP
ADD

(SP)+.(SP)+

LUN¥

000434
000074

828:

83$:

INC

112546

ADD

‘s)zcsp) = (SP)

BOARD, = (SP)
PC,UP.SOFT.COUNT

h _a_n

000001

81S:

(MP

MSG3

ML .REG+44,20(SP)

RO
RO

; SP,x

otk

000064
176646
000026

808:

fio“em

MOV
JSR

TOPS

PA:<

798:

000010

.WORD

27-%ar-1982 19:23:44

788 :

144
150424

27-Mar-1982 19:24:42

DEFINITION OF OPTION &

; *,0LDSEC

6564

6565

b e

sMLXG

000052

m S
PAGE 258

s o

OPT4 DEFINITION OF OPTION 4

MACRO M1113

ol e

CZMLBBO PERFORMANCE EXERCISER

SEQ 0271

27-Mar-1982
27-Mar-1982

DEFINITION OF OPTION 4

19:
19:

TOPS
PA:<|

RO
#177700.R0

RO,22(SP)

*,0LDCHN

R2.=(SP)

COMMAND
,*

#1.-(SP)

20(SP) ,~(SP)

32(SP) ,~(SP)

PC,RETRY

#14,SP
144424

000020

000022

89§

aML.REG+44,20(SP)

88$
22(SP) ,~(SP)

144406

SHL.REG+42.R0

177700

#177700,R0
RO, (SP)+

*,0LDSEC

6582

OLDCHN,*

112224

ggg

n
RO

000001

-‘8

: OLDSEC,+

RO, 45

RIIRSSSSSSSSENVENE

-— N —
o

§2

#400,-(SP)
R3,-(SP)

6573i

000014

144264
147340

000001

112166

88s$

#1,ERROUT

87§

6586

54
662
35@4

6591

14(SP) ,=(SP)
BOARD ,~(SP)
gg‘w.mo.comr

6594

91££Rnour

6582
99

MSG3

000001

112144

av’eanour

6607
6613

6618

90$

8563
000314
144
147742

14(SP) ,~(SP)
BOARD,-(SP)
PC,UP.SOFT.COUNT

DTM

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

CZHkBBO PERFORMANCE EXERCISER

OPT4

DEFINITION OF OPTION &

MACRO M1113 29-MAR-8Z 13:41 PAGE 3606

12145

} }29

1 143 07014
7! 142

12148

12150

12151

1 15‘3’

12153

12154
12155
121 gg
121

0701

070150

7015

07015

781
0701
781 7
7017

11 11 gg 070202
12160
} }gg

12167

SEQ 0272

sMLXS

2626

5%4

91%:

92%:

80401

10100

88?16
0

266

00
1
080.7

93%:

177366

000014

172402
000044

000042

94%:

95%:

96$:

7-Har-195 19:24:42

DEFINITION OF OPTION &
CMP

INC

CMP

BHI

(SP)+,(SP)+

R4 .R1

85%

CMP
BGE
JMP
ADD

14(SP) ,42(SP)
96%
1%
#46 ,SP

RTS

9§

JMP
INC

7=-Mar=1982

14(SP)

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

TOPS

PA:<

s SECTOR

s SECTOR,*

6548

s LUN

5990 |

!
5908 |

s LUN,»

19:23:44

6552

;

48 words

CZMLBBO PERFORMANCE E X RCISE
) R
OPT4 DEFINITION OF OPTION 4
12169 :MLX4

13190 :

12171
1217; :
12173 ;
12174 ;

15178
15175
1317

8 :
12179 ;
15180 :
12181 ;
1 18§ 2
12183 ;
12184 ;

1518 :
15189 I
12190 ;
12191 ;
1 195 :
12193

;

151%
1% o§ 070204
12 8 tgt0

i
15509 070558e
1
1

070
070

MACRO M1113

29-MAR-82 13:41

C .6
PAGE 261

SEQ 0273

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

SELECTING A RANDOM WORD COUNT

"SELECTING A RANDOM WORD COUNT®
routine RNDWC =
6632 Zsbttl

6“6%
6635

6638
6639
6640
6641
664§
664
6644
6645

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

begin

I+4

;

ROUTINE :

RNDWC

PURPOSE :

TO _SELECT A RANDOM WORD COUNT WITHIN THE RANGE

RESULT:

;

1 70 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);

6651

6653
6654

return .WRDCNT;

'IGNORE SIGN BIT
!FORCE THE RANGE

end;

115160

100000

002008
114750
:

115246

RNDWC:

«SBTTL
JSR

BIC

MOV
JSR
INC

CMP
RTS

: Routine Size:

RNDWC SELECTING A RANDOM WORD COUNT
PC.RN
:

#100000, RANDOM

6650

Be0- 00
csmy
PC.BLSMOD

;

6652

(SP)+,(SP)+
PC

6634

14 words

; Maximum stack depth per invocation:

2 words

CIMLBBO PERFORMANCE EXERCISER
MACRO M1113
RNDWC SELECTING A RANDOM WORD COUNT

29-MAR-82 13:41

PAGE 262
SEQ 0274

SELECTING A RANDOM SECTOR

27-Mar-198

6655

Zsbttl "SELECTING A RANDOM SECTOR®

6659
222?

!4+
:
ROUTINE :

6659
22;8

6665

PURPOSE:

6665

ARGUMENT:

%‘

6699
227?

!
:

6669

467,

~7§

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.

RESULT:

THE VALUE RETURNED WILL BE USED BY THE CALLER
AS ITS °*SECTOR".

local

6674

SECTOR,

22;2

SIZE;

6677
22;3

!
; version czmlbb changed eql to eqlu

6680

6
668
6684
6635

if LOWEST eqlu HIGHEST

then

SECTOR = LOWEST
else
begin
RN ();

ggag

2683

g version czmlbb

RMDdl = .RANDOM and %0°'077777':

6230 i 'Highest - Lowest + 1' when testing
6691

6692

6693
gggg

!
!
!
g

2900
670
1

!IGNORE THE SIGN BIT

an ML-118 with

16 arrag modules results in a negitive number which
causes the Bliss operator 'mod® to han the CPU.
Due to this malfunction the '+ 1°' has
en deleted
which will avoid this malfunction

6699
2238
99

TOPS=20 Bliss=~16 v2(212)

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

routine RNDSEC (LUN) =
begin

666

6231

:2‘525

SIZE = HIGHEST - LOWEST:
SESTOR = (LOWEST + (.RANDOM mod .SIZE)):

end;

!FIND THE SECTOR RANGE
'FORCE RANGE

return .SECTOR;

end;

-SBTTL

RNDSEC SELECTING A RANDOM SECTOR

big
70264

0 {8%

011

034460

7027

2767
016101

107 7g §§27§9 115072

e
i
g 78
5
10

RNDSEC: JSR

100000

4:4

: LUN,*

§§3),TOP.SECT(R1)

1%:

JSR

034500

(R3).R2
2%

*,SECTOR

PC,RN

#100000, RANDOM

TOP.SECT(R1)
,R1

ey 115146

(R3) ,R1

*,SIZE
*,SIZE

gg.;:sp)

SIZE,»

RANDO
= (SP)
M,

114656

e
000507

R1,$SAVE3
;%(SP).RI

;3:442

01093$ECT.R3
R1,R

1§§5 €34500

70 96

7=Mar=-1

75Hor-1ggg

SELECTING A RANDOM SECTOR

(n3>éno

2%:

MOV

RO,R

*,SECTOR

R2.RO

SECTOR,

(SP)+,(SP)+

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

6 words

115032

E 6
PAGE 263
o

sMLXS

000012

29-MAR-82 13:41

CZMLBBO PERFORMANCE EXERCI SEf:
MACRO M1113
C SELECTING A RANDOM SECTOR

CZMLBBO_PERFORMANCE EXERCISER

RNDSEC SELECTING A RANDOM SECTOR

MACRO M1113

29-MAR-82 13:41

F
6
PAGE 264
SEQ 0276

27-Marr-19825 19:24:
19:53:“
42

SELECTING A RANDOM UNIT

678;
67

6704

6705
6706

Zsbttl "SELECTING A RANDOM UNIT®
routine RNDU =

begin

!++

2;85

;

ROUTINE :

6709

PURPOSE:

g;}?

671
671
6714
6715
6716
6717
6718
6719
6720
6721
67 g

g; 2

It 1«

RNDU

TO SELECT A RANDOM LOGICAL UNIT NUMBER WITHIN

;

1
1
i
{
5

if .LSUNIT eql 1
then
LUN = 0
else
begin
RN ();
RANDOM = .RANDOM and %0'077777°':

z
?

In 2 »
!IGNORE THE SIGN BIT

RANDOM = (.RANDOM mod .LSUNIT):

!FORCE THE RANGE

'+
! MAKE SURE THE DRIVE IS ACTIVE.

6729
2;5(1)

incr COUNT from 0 to (.LSUNIT = 1) do

IF IT ISN'T,

: THEN FIND THE NEXT AVAILABLE ACTIVE DRIVE:

if .DRIVE_STATUS [.RANDOM] eql ACTIVE
then

673

6734

blefim

67;2
67
6737
6738
2;23

else

6;21

end;

return .LUN;

004167

THE RANGE OF TESTABLE UNITS (0 TO .LSUNIT=1)

6725
6726

6744

TOPS~$-20 Blis
iss=16 v2(2
(212)
f

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

local
LUN;

2;5;

070336

27-Mar-198

LUN
= _RANDOM;
exitloop;
end
RANDOM = ((.RANDOM + 1) mod .LSUNIT);
'n 2

end;
174752

,
!

In 1 «
RNDU:

-SBTTL

JSR

RNDU SELECTING A RANDOM UNIT

R1,$SAVE4

6703!

{

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

70352
12375 070354
12376 870 56
12377 070
12378 070
12379 070374
1
706400
12381
070404
1
706410
1
070414
1
070418
12385 070420
1 §g6 070424

005004
000467
004767
862767
16746
016746
004767
010087
016703
005001
000443
016702
006202

»
LSUNIT

115
1
115070
111412
114576
115054
111376

12391
1
9;

12393

070440
70444

070450

12394 070454
12395 87 56
1
99 70462

PC AN

#100000, RANDOM
RANDOM
= (SP)
,

LSUNIT,=(SP)

bt
-t

12410
1241
1241
1241
41
41

=OWVSLWNN-=O

1 483

0705
;85
5

15
852746
;16
016 49
80676
10027
02;6 6

733

626
010400
207

LUN

6718

PC.BLSMOD

RO ,RANDOM
nfisuun.ns
COUNT

115040

2%:

MOV

#DRIVE .STATUS ,R2

m’c&‘:fi” (SP)

115020
177770

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

000001

-(SP)
PC,BLSGT2

113674
000010

#10,sP

1 399 870472 018706 114766

12400
7
1 ‘81
5
124 ; 70504
1240
506
12404 8 51
12405
513
124
5

TOPS
PA:<

6716

1%
R4

i
1 §§§ i
706432 e
02 034442
1
704
10246
016746
042716
012746
005046
004767
062706

7=Mar=19gZ 19:24: 42
7=-Mar-=19 2 19:23:4 4

SELECTING A RANDOM UNIT

TETE T

o
;2 ;1 070
026727 111444 000001
1 7% 70 58 8§10
02
1 g?&

SEQ 0277

JMLXS

RNDU SELECTING A RANDOM UN

?gfl

(ZMLBBO PERFORMANCE EXERCI

114760

RANDOMR4
,

3s:

MoV

111300
114464
114742

*,LUN

RANDOM
- (SP)
,

6735
6739

g&’m (SP)

PC,BLSMOD

RO, RANDOM

(SP)+, (SP)+

48:

CMP

5%:
6$:

; Routine Size:

R
R1,R3

COUNT
COUNT,»

(SP)+, (SP)+
R4 ,RO

65 words

; Maximum stack depth per invocation:

* LUN.*
11 words

6730|

6720
6703|

cZMLBBO PERFORMANCE EXERCISER

MACRO M1113

RNDU SELECTING A RANDOM UNIT

12423 :MLX4
} 2 g :

6745
6746

SEQ 0278

57%"-1985 19:24:42
7-Mar-1982
19:23:44

ZXsbttl *TESTING RANDOM DATA®
routine RAND1 (REPEAT) : novalue =

6747

begin

6749

'++

2;3
435 ;

2 3 2

PAGE 266

TESTING RANDOM DATA

4 9 H
427
:

428

29-MAR-82 13:41

g;g?

'« 1 «

START OF ROUTINE

g;g

ROUTINE :

: PURPOSE :

RAND1(REPEAT)

6756

ARGUMENT:

REPEAT = NUMBER OF TIMES TO EXECUTE THIS ROUT INE

NOTE:

g;gs

675

TO TEST USING RANDOM DATA
BEFORE RETURNING TO THE CALLER (OPTS).

THIS TEST CODE FOLLOWS THE SAME FLOW AS OPT3,

228 :

2;;3

2221 3

g;g?

THE CODE FOR °RAND1' IN BRIEF:

SAY ROUTINE IS RUNNING

'
!
!
!
!
!
!
!
!
!
!

: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
: : 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)
: : : : INITIALIZE THE WRITE AND READ BUFFER POINT
ERS
: : : : SECTOR = LOWEST
: : : : WHILE SECTOR LEQ HIGHEST DO
: : : : : BEGIN 6 (START OF SECTOR SELECTION LOOP)
: : : : : GET_WRDCNT

BUT USES A RANDOM DATA PATTERN.

Uo; 3

676

! BEGIN 1 (START OF ROUTINE)

445
446
447
448

6764
6765
6766
6767

'
!
!
!

2444 ;
;
;
;
;

676

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

449 ;
450 ;
451 ;
45; H
453 :
456 ;
4SS ;
459 3
457 ;
458 :
459 ;

6768
6769
6770
6771
6772
677
6774
6775
6776
6777
"6778

g;‘g

Lty 3 E'EJT!EP BUFFER POINTERS BEFORE TRANSFER

66; :
463 ;

6781
67g§

!
!

22‘1’ 3

464

465 ;
46, s
467 ;

468
469
470

471

;
;
;

;

‘7; 473 ;

474

475 ;
479 :

477

;

6786
6785
67

67
6788
6789

6791
679§

6793

6794
6795

6796

!
!
!

:
i

: : : 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
# i :: : UPDATE SECTOR NUMBER BY 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 2 (END OF REPEAT LOOP FOR THIS ROUTINE)
RETURN

!--

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

: : END 3 (END OF LOGICAL UNIT SELECTION LOOP)

END 1

Label

(END OF ROUTINE)

CZMLBBO n?romwuce EXERCIfiR

RNDU SELECTING A RANDOM UN
12479 :MLXG

} 23«1) :

12482

12483
12484
12485
12486

;
;
:
:

12487
12488
12489

:
:
:

12491

12490

;

“.3

12494 :

; 295 :

1 ggi :

SEQ 0279

6797

6798
6799

1
g
ggg‘

COMMAND,

DBL_VALUE;

PRINTB (SAY1, RTNSA):

incr COUNT from 1 to .REPEAT do

gglg

1 'RAND1°

begin
GENS ();

11 gns :

2313

6851

112509
580 :

33%5
23

12511

6826

:
1 gw :

} g}; :

4
5

& ;

12514 :

12517
;
}
}s :

12515
1
19 :

1 2g:
; § 5 :

12524 :

} ; 5 :

‘% 528

1? :
12531
12532

12533

;

0
1

6835

§§

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

w.i

gz‘

6547

7,848

!s 2 « START OF REPEAT LOOP FOR THIS ROUTINE
'FIRST 3 WORDS OF WBUFF ARE THE SEEDS

begin

!~ 3 «

begin

START OF LOGICAL UNIT SELECTION LOOP

! 4 «

START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT

:'f. .DRIVE_STATUS [.LUN] eql ACTIVE
en

b:ein

LSCUN = .LUN;
WPTR = WBUFF:

!* 5 « START OF TEST FOR AN ACTIVE UNIT

RP
= TR
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):

SEE HOW SUCCESSFUL THE WRITE WAS:

;

TOPS~20 Bliss=16 v2(212)

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

PTR,

2339

1
}‘s'

19:23:44

OLDSEC,
OLDCHN.
SECTOR.

2333

27-Mar-1982

local
WRDCNT,
VALUE,

} : § :

} :

ZT-Har-‘I%S 19:54.:4.2

LOOP;

6805

§§$

PAGE 567

TESTING RANDOM DATA

12497

12498
} 233 :

MACRO M1113 29-MAR-82 13:41

selectone .VALUE of

set

[13 :

begin

'SEE "SYSERR® FOR DEFINITION
'OF ERROR # CONTAINED IN °VALUE®

‘= 6A * RETRY ALLOWED

if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) neq 0
TTHE RETRY FAILED

then

begin

WHY_DROPT [.LUN] = CODE_é;

-~ SYSTEM FATAL ERROR

ZMLBBO PERFORMANCE EXERCISER
NDU SELECTING A RANDOM UNIT
12535 :MLX4
} g 6 :

1 sga :
12539 :
12540 :

MACRO M1113

29-MAR-82 13:41

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

TESTING RANDOM DATA

23”9
50
2351

ERRDF (5101, MSG1, 0);
DODU (.LUN):
leave LOOP;

1538}
1 545 :
15348

$833
6854
$8%4

547

end: iama
(21 :

WHY

546

J 6
PAGE 268

ggsr

'JUMP JUST BEYOND END OF BLOCK * &

I 6A *

begin

!* 68 * FATAL CONTROLLER ERROR == NO RETRY ALLOWED

DROPT [.LUN] = CODE_S;

6859

550 :
gg‘l :

ERRDF (5102, MSG1, 0);:

1
686§

leave LOOP;
end;

'JUMP JUST BEYOND END OF BLOCK * 4 +
'n 6B «

begll;n

!~ 6C * FATAL DRIVE ERROR =- NO RETRY ALLOWED

;

ssf :

554 :

555 :
gsg )

DODU (.LUN):

6864

€3] :

6865

6069
682

ERRDF (5103, MSG1, 0);
WHY_DROPT [.LUN] = CODE_6;

g ;
558 :
559 ;

6868
2399
0

end;

gég :

ga;z

COMMAND = CHOOSE ():

565 :

6876

then

563 :

687

570 ;
71 :

524 :
569 :
567 :

6375

6877
6878

6880
1
§

poDD (.LUN):
Leave LOOP;

VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):

else

begin

g ::

1:;

’
selec
tone .VALUE of

S :

9’

PTR
= .WPTR;
VALUE = CHECK (.LUN,

end;

.WRDCNT,

.WPTR,

.SECTOR):

SEE HOW SUCCESSFUL THE OPERATION WAS:

!SEE 'SYSERR®' FOR DEFINITION

set

'0F ERROR # CONTAINED IN °VALUE'

[oJ :
if .COMMAND eql read

then

begin

'JUMP JUST BEYOND END OF BLOCK * 4 +
I 6C «

end

576 :
s;g :

!«xxx OPTION 5, RAND1 ERROR 03 s#w+

beain
PTR = .RPTR;

§88

!«xxx OPTION 5, RAND1 ERROR 02 swew

if .COMMAND eql read

;;o :

!swee OPTION 5, RAND1 ERROR 01 wees

s:.s :
549

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

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT))
neq 0

CZMLBBO PERFORMANCE EXERCISER
RNDU SELECTING A RANDOM UNIT

12591 :MLX4

} ggg :

1259 :

12595 :

1 599 :
12597 :

12598 :
12599 :

12600 :
12601 :
1 eog :

12603 :
15604 :
12605 ;
15609 3
12607 :
12608 :
12609 :
12610 :

12611 :

MACRO M1113

29-MAR-82 13:41

SEQ 0281

27-nar-19sg 19:54:42

TESTING RANDOM DATA

27-Mar-1982

4901

then

620

690
6904

6918

2338

12614 :

6921

WHY DROPT [.LUN] = CODE_8;
ERRDF (5104, MSG1, 0);
!#xx% OPTION 5, RAND1 ERROR 04 sw#+
DODU (.LUN);
leave LOOP; !'JUMP JUST BEYOND END OF BLOCK * 4 #
end;

end;

0y ;.

begin
if RETRY (SIX,

! 6D * RETRY ALLOWED
.COMMAND,

6922
6923
6924
6925
6926
6927
6928
6929
6930
6931
693
693

}

8 ;

2335

5335'(‘15_62?‘ MSG1, 0);

12630
:
12631 :
1 63§ :

692
6938
6939

leave LOOP;
end;

12633
12634

:
:

4940
6941

694

12635 ;

12636

12637
12638

;
:

12639 :

15643
}

6934

i :

12644 :

12645 :

694

then

end;
:
2] :
begin

WHY

6951

6952

.WRDCNT,

.PTR,

.SECTOR) "'3&0

In 6D =

!* 6E * FATAL CONTROLLER ERROR == NO RETRY ALLOWED

DROPT [.LUN] = CODE_S;

€3] :
begin

!~ 6F * FATAL DRIVE ERROR == NO RETRY ALLOWED

WHY DROPT [.LUN] = CODE_6;

poD0 (.LUN);
Leave LOOP;

(43

!xxxx OPTION 5, RAND1 ERROR 06 v+

!JUMP JUST BEYOND END OF BLOCK * & *
In 6F *

ERRDF (5107, MsSG1, 0):

6946

232 2

.LUN,

'THE RETRY FAILED -- SYSTEM FATAL ERR

begin
WHY DROPT [.LUN] = CODE_4;
ERRDF (5105, MSG1, 0);
~!#a*+ OPTIOn 5, RAND] ERROR 05 %+
DODU (.LUN):
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * 4 *
end;

6944
6945

§9es

!"ECC LOGIC FAILED TO DETECT DATA ERROR'

DBL_VALUE = ,DBL_VALUE + BUFSIZ+2:
PRIRTB (FMT128, 7.DBL_VALUE, .DBL VALUE):
!*BAD DATA: PPPPPP AT LOCATION 000QQQ"

12615
12616 ;
12617 :
12618 :
12619 :
12620 :
12621 ;
156 i :
1
:
12624 ;
12625 ;
1
9 :

TOPS-20 Bliss=16 v2(212)

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

PRINTB (FMT12A, ..DBL_VALUE, .DBL VALUE):
1'GOOD DATA: XXXXXX AT LOCATION yYyyyy®

6907
6908
6909

}Zg}i 3

19:23:44

begin

SAYWHO (.LUN);
PRINTB (SAY1, MSGS);

6382
6

6910
6911
691
691
6914
6915
6916
6917

PAGE 269

!#xxx OPTION 5, RAND1 ERROR 07 s+

'JUMP JUST BEYOND END OF BLOCK * &

end;

' 6F =

',’§ iats 0

!= 6G * UNRECOVERABLE DATA ERROR

ERRDF (5108, MsG2, 0):

WHY_DROPT [.LUN] = CODE_7;

!«xsx OPTION 5, RAND! ERROR 08 #+s+

C ZMLBBO

PERFORMANCE EXERCISER

RNDU SELECTING A RANDOM UNIT

12647 ;MLX4
} 2‘43 :
6953
6954
6955
695
695
6958
2323

} ggs :

2321

12660 :
12661 :

696
6964

12664 :

;l 665 ;

§o7
gg;g
697

12681

6984

;

6986

6988

% 68

12690

12691

;

592

:
;

o
if .ERROUT then ERRHRD (5109, MSG4, 0):
Ixwxx OPTION 5, RAND1 ERROR 09 s##
UP_HARD_COUNT

else

end

'
|

(.LUN, .BUARD):

begin

if .ERROUT then ERRSOFT (5110, MSG3, 0):

Iexxx OPTION 5, RAND1 ERROR 10 sve#

UP_SOFT_COUNT (.LUN, .BOARD):

end
else

begin

UP_SOFT_COUNT (.LUN, .BOARD):

!xxax OPTION S, RAND1 ERROR 11 swa+

2995

699%

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

then

6995

12697

;
;

if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR, .SECTOR) eql §

then

it .ERROUT then ERRSOFT (5111, MSG3, 0):

633?

12698
} 69

's 6H + RECOVERABLE DATA ERROR

2331

:
.

'JUMP JUST BEYOND END OF BLOCK * & +
v 6G «

OLDCHN = .CHAN:

gggg

1206

} O

10PS=20 Bliss=16 V2(212)
PA:<NEALE>MLX4.BLI.S (44)

if .ERROUT then PRINTB (FMT10B, .CHAN):
1*
BIT Q@'
OLDSEC = .MLEL:

6985

12683

} 586

,
oo
bem
ISOLATE ();

697
6978
6979

6980
6981
gggg

end;

6971

12677 ;
1 6;3 ;
} 679
:

DODU (.LUN);
Leave LOOP;

6967

650 :
§;1 :
675 :

12682

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

2968

6970

674 :
675 ;
1 679 :

SEQ 0282

gggg

1 6‘29 :

1 663 F

PAGE 570

TESTING RANDOM DATA

12650 :
12651 :
1 655 :
12653
;
12654 :
12655 :
; 2;9 :

} ggg ;

MACRO M1113 29-MAR-82 13:41

6833

tes;

end;

'n 6H *

WPTR = .WPTR + (.WRDCNT+*2):

2001
; ;

SECTOR = .SECTOR + (.WRDCNT/256):
end;
'* 6 «+

end;

!s 5«

END OF SECTOR SELECTION LOOP

END OF TEST FOR AN ACTIVE UNIT

CZMLBBO PERFORMANCE EXERCISER

RNDU SELECTING A RANDOM UNIT

% ;8; :
12706
12707
12708
12709

;
;
;
;

12710 ;
1 71; 5

12713
;
12714 ;
12715 ;

7005
7006
7007
7008
7011

701
701
7014

} ; ? 3

;853

12723
;
12724 ;

702
702

;859

% ;

;8 g

12731 ;
127 i :
12733
;
12734
;
12735 ;
12736
:
12737
;
12738
;
12739 ;
12740 ;

7030
7031
703
703
7034
7035
7036
7037
7038
7039

15762 ;

7040
7041 -

704

27-Mar-1982 19:23:44

if .EFNS21
then
begin

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S (44

!Is the background pattern to be read

!
’
; version czmlbb changed incr to incru

incru SECTOR from LOWEST to HIGHEST do
then

;8 g

} ;9:

12741 ;
1 74; 2

27-Mar-1982 19:24:42

'+
’
:
.
: Test to see if this uut's address space is
! to be read for soft errors.
This test is
! is intended for DMT purposes.

7015
7016
;8}7

PAGE 27N

SEQ 0283

TESTING RANDOM DATA

12716 ;
12717 ;
} ;}s 2

} ; S 3

29-MAR-82 13:41

begin

ISOLATE ();

!Find the failing bank and board no.

if .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 retr¥ 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.

12745 ;

7044

if RETRY (ONE, .COMMAND, .LUN, 256, .PTR. .OLDSEC)
eql §

12748 ;

7 9

: The same error occured so see if it is at the same

12749 ;
} ;g? 3

12752

1 7S§ s
>

} 754 ;

12756

1 7%9 ::

7823
14
7050

7051

7§S

705
7054
7055

: sector and channel number, if so then classify
! it as a hard error else c[ass1y it as a soft
g error.

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))

then
begin

!Same error occured 'hard’

e
el

12703 :MLX4

MACRO M1113

p—

12789
1

;
3

12792
12793
12794
} 795

:
;
;
;

12791 ;

1 ;39 :

1 ;’?s :

1
1

3
s

P 7061
7

;06

if .ERROUT
then

end;

UP_SOFT_COUNT (.LUN, .BOARD):
end
else

if .ERROUT
then

begin

71§L

7105

Print error if enabled
!Error number
!Error message
;
!Additional message routine

UP_SO
FT_COUNT (.LUN, .BOARD):
end;
g

end;

ena;

;} ;

!Not the same error ‘'soft'

ERRSOFT_(5114,
MSG3,
0);
end;

7094
7095

!Print error if enabled

begin

;}?‘)

!Not the same error 'soft’

ERRSOFT (5113,
'Error number
MSG3,
!Error message
:
0);
!Additional message routine

788;

12810 ;

)

}

else
begin

P 7
P 70 g
788
;og?

;
14 33

UP_HARD_COUNT (.LUN, .30ARD);
end

7084
7085

§ eN
3

end;

7065
7069
706
7068
7069
7070
7071
707,
P 707
P 7074
7075
7076
7077
7078
7079
7080
7081

15803
1

if .ERROUT
!Print error if enabled
then
begin
ERRHRD (5112,
!Error number
MSG4,
!Error message
0);
!Additional message routine

12770 ;
12771 :
1 77§ :
12773 ;
12774 ;
12775 ;
12776 ;
12777
;
1 773 :
12779 ;
12780
;
12781 ;
12782
:
12783
;
12784
;
12785 ;
12786
;

7057
7058
7059
P 7060

TOPS-20 Bliss=16 v2(212)

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

} ;63 s

27-Mar-1982 19:23:44

end;

return;

end;

1 76; :
12767 ;

27-Mar-1982 19:24:42

TESTING RANDOM DATA

i* & «

END OF LOOP THAT COMPLETELY TESTS 1 UNIT

!= 3«

END OF LOGICAL UNIT SELECTION LOOP

!*= 2 «

END OF REPEAT LOOP FOR THIS ROUTINE

END OF ROUTINE

1 «~

aeh

;
;
;
;

SEQ 0284

12762
12763
12764
12765

N_6

PAGE 272

} ;2? :

29-MAR-82 13:41

—h vl el

12759 :MLX4

MACRO M1113

(ZMLBBO PERFORMANCE EXERCISER
RNDU SELECTING A RANDOM UNIT

ZMLBBO PE?;MMCE EXERCI?;R

NDU SELECTING A RANDOM UN

MACRO M1113

12815

29-MAR-82 13:41

SEQ 0285

sMLXG

} g}g

B_7

PAGE 273

7=Mar=1

TESTING RANDOM DATA

12818

12819
12823
12824

070540
070544

004167
162706

114570
0

12825 070550
1
9 78551.
1
70560
1
070564

012746
81 746
012746
010600

007
007072
000002

005

oooo;/.

12831
1
g
1

12835

1
1
1

78598 104414

70570

070574

70612

7
7
7

16
767
12766

000167

1
8782 2
12840 07

ogzz 4
151014
111202

000006

RAND1:

18:

000010

3°
0

2s:

} '§;8222 } 2 000010
1 § 7
6%6 177770
1
387 52
012746

1 9
12847

128 3

12849
12850
12851
1 sg
12853

} s;

70656

7
07

00 946

4767
706

70670

070672
070674
07 82
707
070714

140;
000167
1957
12767
012767

;;z

uggg

1286
126

126
126
128
126

128

128¢
1 :
128

772

016546
767
10002
01
19

16616
10246

128

6814
6816

; LUN,*

6821

JMP

MOV
ASR
ASR

071

6(SP)

418

6(SP) ,RO
RO
RO

001502
000006
012670
022670

000006

DEC

Asnovl

58:

034500
156222

g‘r;

MOV

MOV
JSR
MOV
MOV
JSR
MOV
MOV

156146
000012

154420

MOV

sMLX4

MOV
JSR

7 000001

P LUN

RO
#DRI
. STATUS
VE
RO

BEQ
JMP
MOV
MOV
MOV

71382 8

428
PC,GENS
LSUNIT,10(SP)

PC,BLSGT2
#10.sP

; :

12873

:
:

JMP
JSR
MOV

JSR
ADD

016746 141672

01 349
004767

6812

113472
000010

1} ?9 7 73 165 g 84460
i
7 ;‘4 '§
:
4500
126 3 ? w.g oga
12860
070744
732
7
756
7
7
7

; COUNT

MOV
CLR

111166
141754
141750

6809

24(SP)

'1‘3?
5»
#1777755?”(
0,
(sP)
#1,-(SP§

3s:
4$:

CLR

333
BIC

000001

6746

; SP%

ASR
ADD

034442

#RTNSA, - (SP)
#SAY1,~(SP)
#2,-(5P)
SP.RO

CLR

060006

RAND1 TESTING RANDOM DATA
R1,$SAVES
#20,sp

TOPS

PA:<

MOV
MOV
MOV
MOV

TRAP

002240

00
00

.SBTTL
JSR
SUB

19:24:42

7-Har-lgg 19:53:“

LUN

-($P)

4
298
6(SP) ,LSLUN
#UBUFF ,WPTR
#RBUFF _RPTR

ggsm.fas

LOW. SECT(RS) ,R3

g.rop.ssmés)

R3,~(SP)

TOP.SECT(RS) ,-(SP)
PC.GST.URDCNf
RO.R
R2.(SP)
PC.SET.PTRS
12(SP) . (SP)
R2,-(SP)

WwPTR,~(SP)
R3,-(sP)
WRITE
PC.WR

: LUN,*
:
:

: LUN,*

CMP

RO, R4

RG .41

6827

; *,SECTOR

: SECTOR,*

6829

; SECTOR,*

6831

: *,WRDCNT
: WRDCNT,*

6832

: LUN,*
: WRDCNT,»

6833

; SECTOR,*

27-Mar-1982 19:24:42

TESTING RANDOM DATA
MoV

6824
6825
6826

27-Mar-1982 19:23:44

; *,VALUE

¢ VALUE,*

TOPS

PA:<

6839

;
|
|

CZMLBBO P;RFORHMCE EXERCISER

RAND1

TESTING

12875 o71o1z
12876
07101

DATA

1 379 8710 §o

155160
000014

000436
020427
001015
016601
112761
104455

1
g 71134
1
71136
1
071142
12905 871144
1
71146
1
071152
1
71154

000000
016600
104451
00041
05042
001016
104455

15900 071128 o11676
12911 7112?
000000
1
1;

15918 0915,
1 13 71214

1
1
1
i
1
12924
12925

71
71
71
71
07123

016601
112761
010100
104451

034446

000020

000002
000020
000005

68:
034446

000020
000003

78:

MWRITE,~(SP)

6845

24(SP) .-(SP)
R2,=(SP)
WPTR,~(SP)
R3,-(SP)
PC.RETRY
#14,5P
RO
9
20(SP) ,R1
#4.WHY.DROPT(R1)
55
11755
MSG1

JWORD
MoV
TRAP
BR
CMP
BNE
MOV
MOVB
TRAP

8s
RG 42
78
20(SP) ,R1
#5.WHY.DROPT(R1)
55

.WORD
MOV
TRAP
BR
P
BNE
TRAP

0
20(SP) ,RO
51
8s
RG.#3
9
55

000020
000006

.WORD

034446

000012

8s:

15475
0000342

045612
141434

000032

sMLXG

MOV
MOVE
MOV
TRAP
ADD

I
MOV

CLR
CMP
BNE
INC
MOV

:
71240
71244
;} gg

6$
#6,~(SP)

; LUN,*

s WRDCNT,«

; SECTOR,*

;

0
20(SP) ,RO
51

LUN,*

6848

: LUN,*

6850

* VALUE,+

6851
6839

H Lm'.

6858

6859

; LUN,*

: VALUE,*

WORD meet

}

1
1
;

MOV

MOV
MOV
MOV
MOV
JSR
ADD
ST
BEQ
MOV
MOVB
TRAP
WORD
.WORD

141632

12891 071074
12892 07107
1 39 07110
15 94 071106
12895 071106
12896 071112
12897 071114
1
071120
12899
071126

12913
12914
12915
1
19

BNE
MOV

000024

000020
000004

PAGE 573-1
SEQ 0286

322552

1 gr 071024
1
071
13
71
12881
071
1
871040
1
71044
1 gga 97105
12885 07105
1
071054
1
171060
1
071
1
0710
1 g
07107

71195
071170
071176
071 og
7120

MACRO M1113 29-MAR-82 13:41

000020
141420

20(SP) ,R1
#6.WHY.DROPT(R1)
R1.RO
51
#12,5P

5Omest
RO.34(SP)

R1
ng HREAD
10§
R1
RPTR,32(SP)

: LUN,
=
: LUN,*

s *.COMMAND
; COMMAND,*
;

*,PIR

TESTING RANDOM DATA
MOV
MOV
MOV

MOV

20(SP) ,~(SP)
R2,=(SP)
RPTR,=(SP)

R3,=(SP)

s LUN,*

s WRDCNT,»

; SECTOR,*

27-Mar-1982
27-Mar-1982

PA:<

(ZMLBBO PERFORMANCE EXERCISER

RANDT TESTING RANDOM DATA

7
MACRO M1113 29-MAR-82 13:41 PAGE 373-2
SEQ 0287

154332

000028
141402

PC ,READ

000032

10s:

141366

11§

WPTR,32(SP)

;

R2,=(SP)

i WRDENT,+

R3,-(SP)

; SECTOR,*

20(SP) ,-(SP)

WPTR,=(SP)

154470

PC.CHECK

*,PTIR

6883
6884

; *,VALUE

001014
161340
141336

:
138:

(900
: WRDCNT,»

PC.DOU
.BLE
CHECK

#6.SP
RO,36(SP)

; *,DBL.VALUE

30(SP) ,~(SP)

H LW..

12§

~
)

PC,SAYWHO

#MSGS, (SP)

oo ONON S

14
44(SP) , (SP)

344 (SPS ,=(SP)

#FMT12A.-(SP)

RO
14
#10000,52(SP)

O -N-NN

-3

000052

527SP) . (SP)

a52(395,~(SP)

#FMT128. ~(SP)

; DBL.VALUE,*
; DBL.VALUE,*

6905

s *,DBL.VALUE
; DBL.VALUE,*
: DBL.VALUE,*

6907
6908

#3,-(SP)

; SP,%

#3,-(SP)

g;?ia
33AT ek b BN

£RT

6904

#2,-($P)

—

6903

#SAY1,=(SP)

g?u~e288

—d e—d el

=1l

b cnd cd ol

§°°°°°-l
NN
)e

=00000
o=2a22
&

6891|

6896

SP.RO

52(SP) .R1
¥
S;O.UHY.DROPT(RI)

: LUN,*

034446

SP‘.

6910
6911

11760
8561

000052

52(SP)
RO
51

: LUN,*

27-Mar-1982 1
27-Mar-1982 1

TESTING RANDOM DATA

000044

000001

006026

#64,5P

158:

TOPS

PA:<

69135

208

RG 1

: VALUE,*

#6,~(SP)
46(SP) ,=-(SP)

¢ COMMAND,+

168

6912

6921

:
gRg2222

uswao

=lelelele

34(SP) ,~(SP)
52(SP) ,~(SP)

R3.-(SP)

PC.RETRY

#14,sP

000030
000004

SEQ 0288
LUN,
*
WRDCNT,
*
PTR, *

SECTOR,

RO
153

30(SP) .R1

034446

gg.uuv.DROPT(R1)

LUN,*

0
30(SP) ,RO
51

000030

S §§8<23§..§ B8soNes
gu (V.¥ N NN
NN

NO\\WNON
ornown

O =t

R
— —l-lg-n-n
=

°
—

600005 034446
30

puepurd

~
o

198
R 42

17§

30(SP) ,R1

gg.UHV.DROPT(RI)

Qo
VIN= YO -

LUN,
=

6926

: VALUE,+

6927
6891

LUN,*

6934

6935

11762
MSG1

000030

sg(sp).ao

000003

17%:

ReN3
18§

LUN,
=

6936

* VALUE,*

6937
6891

6942

11763

000030
000006

Socse>
a1

034446

26, WHY DROPT
(R1)

168:

[

- ) bb

b
)

000004

18%:

LUN,*

6943

LUN,*

6944

: VALUE,*

6945
6891

145402

6950
6951

N
o

—hflié
IR

000002

wed

TOPS
PA:<

TESTING RANDOM DATA

30(SP) ,R1

LUN,
=

6952

R1.RO

LUN,
*

6953|

) wad

RNARZ8O~

SRSUR 'N-§

TM
o 1=
o

30
000007
034446
2

6924|

6925}

11761

MSG1

onN

RO )
N

E_7
PAGE 273-3

R2.-(SP)

000052

— e

NONO S

OO0

b
e e e ek

NNNNNN NNNN

29-MAR-82 13:41

000034

sMLXG

S233333N
NNNNNGN &

W
—
NOWVMS/WN—=OOVRNO
VS NN O
WOOOOOOOOOOOQOOQOO

) ) b d
b d e

vo§v-o°

MACRO M1113

WVINO

5333533‘3333§§§3§§§fl;d_
IYNYYIIIINSISSS’S %
o FRRR%
b e b 3@-~
wvilau
gfifi ~ —NN
~ 3533§§§o“
SRR RREIIFFAIAIRRS &

(= l=T=] a3

§5smm -8

u..-.-.-l-l-b-.-l-o-l-l-n-l—.—l—l-l-.-l-a-n—i-b—l—l—l-b—l-.-l-.d-l ddflddddfldddfld-‘dd
-l
el
.

CE E E?EISER

,WHY .DROPT(R1)

082.59
408
R4 45

288§

6954|

VALU,*
E

6891

(ZMLBBO PERFORMANCE EXERCISER
RAND1 TESTING RANDOM DATA

145332

000001

MACRO M1113

JSR

110252

142374

1
1

1
1
140
144
150
154

}22

193

1
17

1
1
1
1
1
01
1

MOV

ML .REG+42,R1

177700
3333'60
2

MOV
MOV

#FMT108,~(SP)
#2,-(SP)

TRAP

MOV

1”4”%2% 000040 228:
142320

177700

6
10346
67
7

000052

001052

skmout

MOV

BIC

[

17701
81

142212

139%0 ooog.u

000040

1
01

7
7
7221

7221

1
1
1

1
67

404
g

51176

000001

;s SP,»

ML . REG+44,40(SP)

: *,0LDSEC

@ML.REG+42.R1
R1
R1
R1
R1
R1
R1

#177700,R1

'
: *,0LDCHN
:

34(SP) . -(SP)

: LUN,*

a&.nsso“.w(sp)

: *,0LDSEC

MOV
ASR

aML .REG+42,R1
R1

(SP) ,RO

R1
R1

27-Mar=-1982 19:24:42

TOPS

PA:<

#177700,R1

R1,R0

248
#1,ERROUT

TRAP

6
11765

WORD

27-Mar-1982 19:23:44

|
|

R1
R1
R1

BNE
BIT

BEQ

6970

: OLDCHN,+

6967

: COMMAND,*

TESTING RANDOM DATA

cMP

6965 |
f

R1,34(SP)
#1.-(SP)

S2(SP) ,~(SP)
.~(SP)
PC.RETRY
#14,SP
RO, #5
2

6964

BIC

110030

SP.RO

: WRDCNT,+
* PIR,*
: SECTOR,*

ASR
ASR
ASR

177700

R1,=(SP)

R2,=(SP)

6961

MOV

ASR
ASR

6959

46(SP) ,~(SP)

MOV
sMLXG

MOV

MOV
MOV
JSR
ADD
cMP
BNE

5
142230

MOV
MOV

MOV

154060

;oog

MOV

MOV
ASR
ASR
ASR
ASR
ASR
ASR

SEQ 0289

PC.,ISOLATE

R1
R1
R1
R1
R1
#177700,R1

000034
000001

F_7
PAGE 273-4

ASR
ASR
ASR
ASR
ASR
ASR
BIC

166
746

6646

29-MAR-82 13:41

;

.
6974 |

(ZMLBBO_PERFRMANCE EXERCISER

RAND1

TESTING RANDOM DA

13162 07 2§ 00030
00
1 }8; 07 ;' §1g§£96 00
3 1??

13107

WACRO M1113

‘

23s :

gsxp 59‘

BR
17

#1_ERROUT

WORD

11766

e
-WORD
BR
BIT

1315) o538

8
BV

104457

Rg e
72312

131

13123

1313
1 5

72322

072326

104457

016746

000030

42010

1 £928

07933 Osdese ¢

268:
N"

}§131}§383 or075gs356se 030
olge009te 140310
13131

072356

012746

1;
1 35 075366 060500
13135 §7 72 062706

i1
131

010003

00100
;5;39 §772412}0 % §§2g
g§ %‘032
}3}2?0 422 0063
500
13145 079650 O1o00s 034460
13144 072434 000167 0004
06
1§
14s
13142

072424

016001

6646 000
13149 7207344eaq0 011?
%6 °°ggo§§

13150

3 }§§

072450

462

012746

006763 153130
0627

1'§1'?3 7§§§ 17700 141674
1423

MOV

JSR

s
O26%
"
1ERROU

ML |
6991 |
|

30(s-P)
(sP)

: ”LUN,

57
11767

B0ARD ,~(S

PC W.SOF}; cOUN1

‘gMP{
,‘”v
JMP
MOV

MLX

318:

: WRDCNT,*

9400 -tsp)

PC,BLSDIV

B
o

;

MOV
V

MOV

#24,5P

SECTOR,

%SP) .RO
mp.ssct(RO).R;
9s
TESTING RANDOM DATA

LOWISECT(RO)

:. LUN LUN,*
: » SECTOR

RO, #5

MoV amML

7012

27-Mar~1982
27-M

19:24:

ar-1982 19:33:44

6(SP),=(SP

lk
eufffi-(s”
R5,=(S

6830

408

#400,-(SP)

69
6958
58 |

: *,SECTOR
:
:

. o
308:

]

ADD

;
6909 |

; WRDCNT,*

=
o

§ LN,e
.

&G; P
JSR

034

1y,

TRAP
.WORD

MOV

900400

00002

SEQ 0290

.3.0“8” S0csp>.-(sp)
DARD , = (S
o
gggup.moP).coum

13 5 0r55rS adssel
1311
11
07557e Shases
131184§ 76
000000
gfl; 072302 032767 000001 107750 258:
13117 072310
001404
70

PAGE 273-5

}fi?o% §7 gg 83??; 000001 107772 248
07
72256

6.7

29-MAR-82 13:41

Jops
wPA:

; SECTOR,*
|

.REG+42,R0

:
2

L« W 8

d
—

- 2323
gg3SSS3SS

32%:

#2,-(SPS

SP.RO
14
#6,SP
aML.REG+44,16(SP)
gflL.REG*LZ.RO

30(SP) ,~(SP)

30(SP) .~(SP)

gg%g

SP,*

; *,0LDSEC

PC,RETRY

COMMAND
,»
LUN,*
PTR,
*
OLDSEC,*

#14,5p

ng 5

358

000016

gzg.nsc¢44.16(sp>

*,0LDSEC

12(SP) ,-(SP)

OLDCHN,=

=gl.REGO42.RO

SNONSNO

RO,~(SP)

#FMT10B,~(SP)

2500, 2150y

7053

RO
RO

27-Mar-1982 1 9:24- 42
27-Mar-1982 1 9:2
:23: L

TESTING RANDOM DATA
:8

177700

000001

R0, (ao9:"0

3?‘ERROUT
1

107324

7057|

7062

11770
3364

NN
N NN

NNNNNN
~

#177700,R0

24(SP) ,=(SP)

sMLXé
OO0
0OOOOOOOOOO

H_7
PAGE 273-6

* ,0LDCHN

5‘%§X
N
&~

= wd ek cmd md ol

000016

SRRSNIRE7288

006640
000002

=lelela] OO

RN S,:gpncflX“”““”
NERSXRRS
Vi
NN

oo
ONOn

ASR
ASR
ASR
ASR
ASR
ASR
BIC
MOV
MoV
MOV
MoV
TRAP

177700

141630
141620

29-MAR-82 13:41

SEQ 0291

N i Vi

—

S28BRIRSREV28I] NP NNRS LEGRAR o 3
0000
CO00OC
SOO
SI[IIVIVWSSNNNN
—b

s o

e e e e e e ot e e o i e o
~]
e

b
b e
bb
ok ok

MACRO M1113

V-

{

g=
-

—

NN w

F ORMANCE EXE?EISER
RANDOM D

72188¢

33s:

6(SP) ,~(SP)
BOARD ,~(SP)

LUN,*

7065

ElX,El'IEISER
7
7

7
MACRO M1173 29-MAR-82 13:41 PAGE 573—7

144440

000001

107266

34%:

3EQ 0292

gRSR

PC_UP.HAR
. COUNT
D

BIT
BEQ

#1 _ERROUT

7053
7070

TRAP

000001

107244

141%82

145042

35%:

000006

000010

175524

000024
000024
175462
000026

000044

7078
7084
7089

36%:

MOV

37%:

CMP

égfi)o.(sp)o

39%:

CMP

R5,R1

408:

INC

38%:
1 7736%

7075

.WORD
.WORD
.WORD
BR
BIT
BEQ
TRAP
.WORD
.WORD
. WORD

41s:

428:

438:

MOV
JSR

INC

CMP
INC

CMP
ADD

: LUN,*

BOARD
. - (SP)

PC,UP.SOFT.COUNT

* SECTOR

: SECTOR,*

408

318
6(SP)
6(SP) ,10(SP)
428
$
4(SP)

24(SP) ,44(SP)

433

18
#26,SP

72023

2019|

s LUN
; LUN,*

6816|

: COUNT
: COUNT ,REPEAT

6812

6746

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

72092

35 words

(2 BBO_PERFORMANCE EXERCISER
RAND 1 TESTING RANDOM DA TA

MACRO M1113

29-MAR-82 13:41

PAGE 574

SEQ 0293

TESTING RANDOM DATA £ WORD COUNTS

OM&WN—IOODNOV!bW-DOSg?‘g

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

Isbttl "TESTING RANDOM DATA £ WORD COUNTS®

routine RAND2 (REPEAT)

NN INIPINININD
= d d o e e e ed e

begin

ROUT INE :

PURPOSE :
ARGUMENT :

NOTE:

: novalue =

!~ 1 « START OF ROUTINE

RANDZ2 (REPEAT)

TO TEST ALL UNITS IN A SEQUENTIAL 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.

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 FCR THE ROUTINE)

: INCR LUN FROM 0 TO LAST
: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
g3 %5% THE RANDOM PATTERN
:
$

S UWNN—=OVDN

RS
RS oo

NNNNNNNNNY

71;2

: : BEGIN & (START OF LOOP THAT COMPLETELY
TESTS 1
¢ '}IFOE;JN" IS ACTIVE

:: i
: 2.2
: s 2
!
:

UNIT)

: BEGIN 5 (START OF TEST FOR AN ACTIVE UNIT)
: SECTOR = LOWEST
: INITIALIZE THE WRITE AND READ BUFFER
POINTERS
: WHILE SECTOR LEQ HIGMEST DO

!
i ::: : BEGIN 6 (START OF A PASS THROUGH ALL
SECTORS)
!
i :::: CHOOSE A RANDOM WORD COUNT
!tz
: SET UP BUFFER POINTERS BEFORE TRANSFER
¢

!
!z

1
i

::: LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLOOP)
i : : CHOOSE WHETHER TO WRITE CHECK OR READ
TE CHECK OR READ
IF DROP UNIT, LEAVE TESTLOOP)

CALCULATE NEXT STARTING SECTOR (BASED ON WORD COUNT)

!
it : oz : IF_NEXT STARTING SECTOR GTR WIGHEST
!t iz 1z : THEN ADJUST THE WORD COUNT
NEXT SECTOR SO THEY FIT
R i:fliTE WITHIN THE TESTABLE SECTO
R LIMITS

NTERS AFTER TRANSFER
A_PASS THROUGH ALL SECTORS)
S’T FOR AN ACTIVE UNIT)

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

CZMLBBO PZRFORMANCE E gsgxlSER

NN
-

SEQ 0294
.z
S har-1983 1 :sl.:t
:23:44

TIPS-20 Bliss=16 v2(212)

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

: END 3 (END OF LOGICAL UNIT SELECTION LOOP)

fae;u"gu2 (END OF REPEAT LOOP FOR THIS ROUTINE)

END 1 (END OF ROUTINE)
local

WRDCNT,
SECTOR

NEXT_SECT,
VALUE,

VIS

OLPSEC,
OLDCHN,

PTR,

COMMAND
,
DBL_VALUE;

Wh=O O

Label

PRINTB_(SAY1, RTNSB);

! *"RAND2"*

SOSS 000000000 0®D®DRHBD

~Y SN NN SN NN NN N NN NN NN NN N SN SN N SN SN N N N

wvid W=0V W
00
-0

w
e

NNN

NN NN

el
D e b ek~

i o e e o e o e

D i e o

N
W

D e i s

—

\h“\h\fl\figViVt
uuu\fiuuw

) e

—d —d —d

rmgrfi‘fi‘fiagggT

N NN
W

- o cd o e

) e v

NN
yeve
NN NN uwuua-' -.wwd

13321

K_7
PAGE 275

TESTING RANDOM DATA & WORD COUNTS

533333233333
SHARRRAR22
3R

N LN LN N N N NN N N N O

TESTING RANDOM

29-MAR-82 13:41

RANDT

MACRO M1113

incr COUNT from 1 to .REPEAT do
begin
incr LUN from 0 to (.LSUNIT - 1) do
begin
LOOP :

!* 2 =

START OF REPEAT LOOP FOR THIS ROUTINE

GENS 0);

!= 3 « START OF LOGICAL UNIT SELECTION LOOP
!RANDOM DATA PATTERN

begin

‘* 4 «

START OF THE LOOP FOR COMPLETELY TESTING 1 UNIT

'* 5 «

START OF TEST FOR AN ACTIVE UNIT

!s 6 *+

START OF A PASS THROUGH ALL SECTORS

:g -DRIVE_STATUS [.LUN] eql ACTIVE
en

b;fin

LSLUN = _LUN;

SECTOR = LOWEST;

WPTR = WBUFF;
RPTR = RBUFF:

while .SECTOR lega KIGHEST do

begin

WRDCNT = RNDWC ():

'EXPECT VALUE BETWEEN 1 AND BUFSIZ

SET_PTRS (.WRDCNT):
NEXT_SECT = ,SECTOR + (.WRDCNT/256);

it .SECTOR eql .NEXT_SECT then NEXT_SECT =
.NEXT_SECT + 1;

if .NEXT_SECT gtra HIGHEST
then
begin

WRDCNT = 256+ (HIGHEST - .SECTOR + 1);

C ZMLBBO PERFORMANCE EXERCISER
RAND1 TESTING RANDOM DATA

é ;9 :

13375 :MLY4

}i ;3 :
.

}é g

]

13386

13387 :
g 8

13390 :

3331 3

7215

7218

;

13403

;

13404 :

13405 :
1305

13411

1 1§ :

;

13414
; }s ;

} }g :

13419

}

;

; 2:

13455 :

1346
1

1
1

3
:

£21 :

begi

7245

7251

; 22

; gs

7538

7639
725

7260
7261

::3'-" LOOP;

724

725

£33 :

tes;

CONTROLLER

ALLOWED

g‘a’ge LooP;

;.:U:E JUST BEYOND END OF BLOCK * 4

'sxxx OPTION 5, RAND? ERR(E)R 03 -

VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):

else

RETRY

!= 6C « FATAL DRIVE ERROR -- NO RETRY ALL

PTR = .RPTR;
end

!sxxx OPTION 5, RAND2 ERROR 02 #x##

:; .COMMAND eql read
g

Begin

COMMAND = CHOOSE ();
e

ERROR

5‘1":3' JUST BEYOND END OF BLOCK * 4 *

ERRDF (5203, MSG1, 0):
WHY °?°fi'm g.Lou = CODE_6;

;

'x 68 * FAT

copsfg.-

sgggr((az’zg. MSG1, 0):

7244

; gg

Pl D

begin

“!*xxx OPTION 5, RAND2 ERROR 07 #w#w

!'JUMP JUST BEYOND END OF BLOCK * 4 *

enda;

1237

7246
;zz.g

!THE RETRY FAILED == SYSTEM FATAL ERROR

:::ge LOOP;"

7239

;521

tnenbe .

((358}‘ MSG1, 0);

723

% :

! 6A * RETRY ALLOWED

WHY
DROPT [.LUN] = CODE_é;
5353'

7235

}

begin

if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) neg 0

=
;g:zg

TOPS=-20
Bliss=16
v2(212)
PA:<~£
AL2>A§
§4.3L¥?$2&5)

'SEE 'SYSERR' FOR DEFINITION
!0F ERROR # CONTAINED IN *VALUE®

€1 :

;529

8; :

13412

;

selectone .VALUE of
set

}

27-Mar-1982 19:23:44

27-Mar-1982 19:24:42

SEE MOW SUCCESSFUL THE WRITE WAS:

égg

;2;1

7219
; g?

}i‘gg

SEQ 0295

VALUE = write (.LUN, .WRDCNT, .WPTR, .SECTOR):

;5}9

7228
;ggg

ena;

;;}%

13
96 :
}g

PAGE 576

ns“:r_SEcr = HIGHEST + 1;

721

7225

g; :

29-MAR-82 13:41

TESTING RANDOM DATA £ WORD COUNTS

;g}?

13 9§ :
} g% :

MACRO M1113

sMLXS
3

WM
=

TESTING RANDOM DATA

MACRO M1113

29-MAR-82 13:41

M7
PAGE 277

—lz

0 PERFORMANCE EXERCISER

SEQ 0296

TESTING RANDOM DATA & WORD

27-Mar-1982 19:24:42

COUNTS

27-Mar-1982

TOPS=20 Bliss=16 v2(212)

19:23:44

PA:<NEALE>MLX4.BLI.S

(45)

begin

PTR
= .WPTR;
VA‘L’UE = CHECK
end;

(.LUN,

.WRDCNT,

.WPTR,

.SECTOR) ;

SEE HOW SUCCESSFUL THE OPERATION WAS:

selectone .VALUE of

!SEE_"SYSERR' FOR DEFINITION

set

!OF ERROR # CONTAINED

'VALUE'

ol :
if .COMMAND eql read
then
begin
:’f' (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR,
.WRDCNT)) neq 0
en

bevin

SAYWHO (.LUN);
PRINTB (SFSAY;é MSGS) :
PRINTB (FMT !'fi o~
DBL_VALUE =

.DBL

!*ECC LOGIC FAILED TO DETECT DATA ERROR'
VALUE, .DBL_VALUE):

DATA: XXXXXX AT LOCATION YYYYYY'

PRIRTB (FMT128, !1 'BAD DATA:

PPPPPP AT LOCATION 00QQQQ°

WHY_DROPT [.LUN] = CODE_8;

ERRDF (5204, MSG1, 0);

!xxxx OPTION 5, RAND2 ERROR 04 #eww

DODU (.LUN);
l:ave LOOP; !JUMP JUST BEYOND END OF BLOCK * &

ena;

end;

11 :

begin

!* 6D » RETRY ALLOWED

if RETRY (SIX, .COMMAND,

then

be?fn

WHY

_DROPT

.LUN, .WRDCNT,

PTR.

.SECTOR) ne&o

'THE RETRY FAILED =- SYSTEM FATAL ERR

[.LUN] = CODE 4:

!JUMP JUST BEYOND END OF BLOCK * 4 »

n 6D

begin

!* 6E * FATAL CONTROLLER ERROR =-- NO RETRY ALLOWED

W
P

e ———————
N s

[2]

end;

DODU (.
:
::zve LOOP;

ERRDF ‘ffig)' MSG1, 0); ~!#xxx OPTION 5, RAND2 ERROR 05 sees

0 _PERFORMANCE EXERCISER

ESTING RANDOM DATA

sMLXS

:
fY

N_7

29-MAR-82 13:41

PAGE 278

SEQ 0297

27-Mar-1982 19:24:42

TESTING RANDOM DATA £ WORD COUNTS

14
15
16

F
3
2

7317
18
19

MACRO M1113

2
:

5
9

3
%

27-Mar-1982 19:23:44

WHY DROPT [.LUN] = CODE_S;
ERRDF (5206, MSG1, 0);
DODU (.LUN);

Lleave LOOP;
end;

- in

'~ 6F '. FATAL DRIVE ERROR

gfiflw (5207, MSG1, 05.'

WHY_DROPT

L[.LUN]

pod0 (.LUN);

leave LOOP;
end;
-

4l :

begin
ISOLATE ();

CODE_6:

N~ O 0 00
N

Vi
s
OO0~ VIS AN = OO0 00 NO
iy —
VIS

leave LOOP;

end;

5 ;

1SLATE O;
n

RETRY ALLOWED
!=xxx OPTION 5, RAND2 ERROR
07 ##w#

!JUMP JUST BEYOND END OF BLOCK * & =
' 6F x

!* 66 * UNRECOVERABLE DATA ERROR

ERRDF (5208, msG2, 0);
pob0 (.LUN);

!*xxx OPTION 5, RAND2 ERROR 06 w###%

!JUMP JUST BEYOND END OF BLOCK * & =
I 6E =

WHY DROPT [:LUNJ = CODE_7;

TOPS~20 Bliss=16 v2(212)

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

!#xxx OPTION 5, RAND2 ERROR 08 #%w#

!JUMP JUST BEYOND END OF BLOCK * 4
I 66
!* 6H = RECOVERABLE DATA ERROR

if .ERROUT then PRINTB (FMT10B, .CHAN);

R¥
8IT Qo'
OLDSEC = .MLEL;
OLDCHN = .CHAN;
if RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR,
.SECTOR) eql 5
then

:;'((.HLEL eql .OLDSEC) and (.CHAN egl .OLDCHN))
n

begin
if .ERROUT then ERRHRD (5209, MSG4, 0);

ixxxx OPTION 56 RAND2 ERROR 09 #*xx
UP_HARD_COUNT (.LUN, .BOARD)

else

end

begin
if .ERROUT then ERRSOFT (5210, MSG3, 0):
1esxx OPTION 56 RAND2 ERROR 10 ##ws

UP_SOFT_COUNT (.LUN, .BOARD)

(ZMLBBO PERFORMANCE EXERCISER

RANDT TESTING RANDOM DATA

13543 :MLX4

} gzo’so :'l
113546
549 s;

1 gks 3
13549
;

13550 ;

} gg% .

13553 :

1 gglo :
13555 ;
1 259 :

73329

13568 :
1 599 :

13570 ;
1 271 :
13572 :

1337
13575

1 579 :
} g; :

} ;73 :
13581

13582

13583

;

if .ERROUT then ERRSOFT (5211, MSG3, 0);

7374
7375
7376

UP_SOFT_COUNT (.LUN, .BOARD):
end;

7 7§

7482

;205

;

;239

} 588

;ll:gg

7410

761
761§
741

;flg
741
7619

6 «

! 5 «

END OF A PASS THROUGH ALL SECTORS

END OF TEST FOR AN ACTIVE UNIT

! to be read for soft errors. This test is
! is intended for DMT purposes.

if .EFNS21

sA
’

!Is the background pattern to be read

!
: version czmlbb changed incr to incru

;230 g
7402

! Test to see if this uut's address space is

730

7401

TOPS=20

I 6H =

end;

7390
7391
739,

7396
;337

end;

SECTOR = .NEXT_SECT;
WPTR = .WPTR + 2;
end;

7%88
7389

. 3

; gg‘s 13596
1 539 ::

tes;

7386

7395

Bliss=16 v2(212)
PA:<NEALE>ML
X4.BLI.S (45)

!xxxx OPTION 5, RAND2 ERROR 11 w#ws

7387

13591 ;
1 59; :
13593 ;

27-Mar-1982 19:73:44

else
begin

7§ 0

; 8;»

;

27-Mar-1982 19:24:42

7 ;1

‘% 52’5 :

695

SEQ 0298

end

7
7

7377
737
737
7380
7381
;33

B_8
PAGE 279

29-MAR-82 13:41

TESTING RANDOM DATA £ WORD COUNTS

13557 ;
1 sgs :
13559 ;
13560 ;
13561 ;
% ggi :

13567

MACRO M1113

incru SECTOR from LOWEST to HIGHEST do

if read (.LUN, 256, RBUFF, .SECTOR) eql 5

then

be&'fn

ISOLATE ();

;

!Find the failing bank and board no.

if .ERROUT then PRINTB (FMT10B, .CHAN):
! Print where the error is

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

("JLDSEC
:

MLEL

OLDCHN
= .CHAN:

(ZMLBBO PERFORMANCE EXERCISER
RAND1 TESTING RANDOM DATA

13599 :MLX4
}36036001 2

1;28% :
1

13604 ;
}3605 :

13239 :

‘%3608 2

13: :

13610 :

1361§ :
;ég}‘ ;

13615 :

1
‘%

19;
%8 :
s

7418

7419

13629
1
13631
}
i

}

74%7
7426

7428
;88

7431

7432
;22;2

1
}

‘}1 §] ::
13644 ;

;gz
7459

g s

152?0 F

1%251 :
1
S; 3
13653 ;

:
:
H ((.MLEL eql .OLDSEC) and (.CHAN eql
en

7460
;221

;2&5

P 746
P 7468
7469

.OLDCHN))

begin

!Same error occured 'hard’

:'f. .ERROUT

'Print error if enabled

beain

ERRHRD (5212,
'Error number
MSG4,
!Error message

end'm:

!Additional message routine

;

UP_HARD_COUNT (.LUN, .BOARD):
end

else
begin

:'f. .ERROUT
en

745
P 745

P 7454
;ll:gg

: sector and channel number, if so then classify
: :rt-r:i a hard error else c[assiy it as a soft

7444

;2;9

;22

4 :

S 2

! The same error occured so see if it is at the same

7439

:
1 :

}

If the same error

! occures then classify it as a hard error.

P 7440
P 7441

7445
7446
7447
;fig

1
:
13637 :

! Do a classify retr¥ call.

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

:;Q'R;ETRV (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC) eql 5

;
:
;
.
s

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

;2%15

;gg

}36 9 :

SEQ 0299

! a different error octured or the error went away
: then classify it as a soft error.

gg 1:

136 g :

c 8
PAGE 280

7420
;2 %

;gz

13624 ;
13625 ;

29-MAR-82 13:41

TESTING RANDOM DATA £ WORD COUNTS

}“19 2
3

MACRO M1113

!Not the same error ‘'soft’

'Print error if enabled

beain
ERRSOFT (5213

MSG3,”
end-m:

.
elsebe .

'Error number

!Error message
.
!Additional message routine

uP
endSOFT'COUNT (.LUN,
FTeE .BOARD)

: 'f' ERROUT

begin

ERRSOFT_(5214,
MSG3,
0);

!Not the same error 'soft’

;

!Print error if enabled
'Error number
'Error message
.
!Additional message routine

CZMLBBO PERFORMANCE EXERCISER

RANDT

TESTING RANDOM DATA

13655 :MLX4

}33229 :
13658

1?&0 :

13659 :

13661
1;225
1
13664

;
:
2
:

}3665 :

7470

13678
1368§ o731§4

13683 073130
13684 073134
13685 073140
13686 073144
13687 073150
13688 073152

13259 07
13690

13691

1369§
1 ggo
13694

13695

1369;

1;29

1
1
137
1
137
7
13705

end;

;2;;

end;

;239
7484

7485

004167

112204

002232

RAND2:

o1gm 106622 000026
002204
146414

1$:
28:

END OF REPEAT LOOP FOR THIS ROUTINE

END OF ROUTINE

#22,5P
#RTNSB, - (SP)
#SAY1,=(SP)
#2,-(5P)
SP.RO
14

JMP

448

MOV

CLR
JMP
JSR

111114

1308 fodely sy oooon
1
140
1 ;33
83016 001460

3s:

LSUNIT,26(SP)

R1
438
PC.GENS

R1.RO

ASR

ADD
MOV
MOV
BIC
MOV
CLR
JSR

177770
000001

22(SP)

MOV
ASR

034442

7107
7178

; SP,*

; COUNT
: LUN

: LUN,*

#DRI
. STATU
VE
S,RO
RO,=(SP)
R1.-(SP)
#177770, (SP)
#1,-(SP}
-($P)
PC,BLSGT2

g
4$
JMP
31s

BEQ

1 ~

RAND2 TESTING RANDOM DATA & WORD COUNTS
R1,$SAVES
:

SUB
MOV
MOV
MOV
MOV
TRAP

ASR

006200
00
18046
10146
2716
12746
949
67

.SBTTL
JSR

CLR

323 00

! 2 «

return;

end;

000167

010100

! 4 ~ END OF LOOP THAT COMPLETELY TESTS 1 UNIT

!~ 3 « END OF LOGICAL UNIT SELECTION LOOP

end;

000022
007672
007072

005001
000167
004767

end;

end:

162706
012746
012746
012746
01
104414

005066

TOPS=20 Bliss=16 v2(212)

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

UP_SOFT_COUNT (.LUN, .BOARD):

747
747%
7475
7476

;23

7-Mar-1982 19:24:42

S?-Har-WgZ 19:33:44

end;

747

%%g;? 2
}§2;7 2

)
PAGE 281

SEQ 0300

7471

76479

1367% 2

29-MAR-82 13:41

TESTING RANDOM DATA & WORD COUNTS

1%222 2

}sm :

MACRO M1113

: LUN,*

7181
7184

7186
7190

CZMLBBO PERFORMANCE EXERCISER

MCROrMHS 29-MAR-82 13:41

ATA & WORD COUNTS

48:

8
SEQ 0301

sMLXS
:

106612

PAGE 532

MOV

27-Mar=1982 19:24:42
27-mr-195$ 19:23:44

TESTING RANDOM DATA & WORD COUNTS

R1,LSLUN

: LUN,*

TOPS
PA:<

7193

:g\(

%.Ro

: LUN,»

137370

MOV
MOV

034500 000024
oooosl.

LOW. SECT(RO) ,R3
#MBUFF ,WPTR

719,

MOV
ADD

:; «,SECTOR
:

#TOP, SECT,24(SP)
RO, 24 (SP)

7195

ow.go
0156 0

0 270 137364

000024

MOV

5%:

174652

JSR

MOV
MOV
JSR
MOV
MOV
JSR
ADD
MOV

153570

000400
111614

000012

00001

000012

000030

g‘v;

000030 68:

INC

chs
MOV
SUB

000030

000012
137224
151752

000001
82?006
424

152514

005011.
000004

: *,WRDCNT
: WRDCNT,*
; WRDCNT,+
,.

R3.R0

12(SP)

SECTOR,NEXT.SECT

: NEXT.SECT

;g(sm.aso(sm

: NEXT.SECT,*

830(SP) RO
R3.RO

INC
MoV
MOV
MOV
MOV
JSR
MOV
cMP
BNE

12(SP)
R1,(SP)
R2.=(5P)
wPTR,~(SP)
R3,-(SP)
PC.WRITE
RO.RG
RG. M
8s$

:8 R2

($P),12(sP)

#6,~(SP)
SURITE,~(SP)

MOV
MOV
MOV
MOV

R1,=(SP)
R2.-(SP)
WPTR,~(SP)
R3,-(sP)

ST
BEQ

RO
118

JSR

MOVB
TRAP

PC.RETRY

#14,sP

#4,WHY.DROPT(R1)
55

7200 |

7201
7202

; SECTOR,*
: * NEXT.SECT

: =, WRDCNT

ADD

034446

PC,RNDWC

RO.R2
R2,=(SP)
PC.SET.PTRS
R2. (SP)
#400,-(sP)
P§.B$SDIV
R3.R
RO.12(SP)

:38" R2

MOV
MOV

137166

: SECTOR,*

ADD

MOV

78:

g.m(sm

7196 |

7198 |

%3’

000012

:
* SECTOR,*

SWAB

000400

#RBUFF _RPTR

e &,

WRDCNT

: *,.NEXT.SECT

7204 |

7206
7209
7208

7209
7210

: NEXT.SECT
: LUN,*
: WRDCNT,»
: SECTOR,*
: *,VALUE
: VALUE,*

7219

7225

: LUN,*
: WRDCNT,*
: SECTOR,*

; %, «(LUN)

7213

7228 |

7229

F
MCRO'H‘HIB 29-MAR-82 13:41 PAGE 283'

CZMLBBO PERFORMANCE EXERCISER
RANDZ TESTING RANDOM DATA € WORD COUNTS

SEQ 0302

034446

000012

108:

118:

136776
151710

136760

000024

128:

136746

156726

138:

152050

wds

74
73744

000024

-l ‘: -': .

137010

12121
MSG1

R1.RO

LUN,*

RG 42

: VALUE,+

#5 ,WHY .DROPT(R1)

s *,*(LUN)

51
108

LUN,*

¢ VALUE,+

#6,WHY .DROPT(R1)
RO

*,*(LUN)

#12,5P
16$

PC, CHOOSE

:g .22
22 (SP)
gg‘aasno

R
RPTR, 24 (SP)

R1,-(SP)
R2,=(SP)

RPTR,=(SP)

158

WPTR,
24 (SP)
R1,-(SP)

Qe Sengsn,

£2

-.8-:

—_

000006

g?-flor-WOZ 19: 24 142
7-Mar-1982 19:23: &4

TESTING RANDOM DATA & WORD COUNTS

§%§§2§§§§§§§9§§§§§§§2$E§§’§§§§§§§§23‘%ST

PR
SN

mogccm

034446

045612

NN~
TM O

sMLXS

*, COMMAND

COMMAND
,«
* PIR

s LUN,»

s WRDCNT,
=

SECTOR,
:

*,PTR

¢ LUN
=

; WRDCNT,«

SECTOR,
«

: *,VALUE

WPTR,-(SP)

TOPS
PA:<

CZMLBBO g;RFMCE EXERCISER

MCROYHH‘IS 29-MAR-82 13:41

RAND2 TESTING RANDOM DATA £ WORD COUNTS

13823
}
's’

9 73750 818746

754

756

737

004

706

13831
07
1
;o 774
1
073776
1
074
13835 874.
1
74012
1
074016

1
01014
767
12716
12746
012746
01

13839
13840
13841

016616
81
6
12746

74.8

074022
0740,
0740

; 074036

13845

074

87:.

074046

104414

012746

104414

000006

000003

017646
81 746
012746
01
104414
112761
104455
o121;4
011070

54
006756
000003

13857
13858
13859

01 120
104451
706

13856

13860
} :

13863

074114

074116
074120
074122

0741
;fl

0741

13864
074142
13865 074146

13866

13867

13868
13869
13870
13871
13872
13873
13874
13875
13876
13877

000010

12946 oooogg

SP.RO

: SP,«

ADD

#10000, 54 (SP)

; *,DBL.VALUE

MOV
MOV
MOV
MOV
TRAP
MOVB
TRAP
LWORD
.WORD

854(SPS ,~(SP)
#FMT128.-(SP)
#3,-(SP)
SP.RO
14
#10,WHY.DROPT(R1)
55
12124
MSG1

MOV
TRAP
ADD

R1.RO
51
#44,5P

B8R
&

1
112761
1?«§
21;0
110

5353‘0
14
000004

034446

54 (SP) . (SP)

: DBL.VALUE,*

: DBL.VALUE.+*

: SP,
: *,*(LUN)
:

: LUN,*
:

228
%‘n

: VALUE,*

34(SP) ,~(SP)
R1,=(SP)

: COMMAND,+
: LUN,~

: WRDCNT,

MOV
JSR
ADD
ST
BEQ
MOVB
TRAP
MORD
.WORD
JWORD

R3,-(SP)
PC .RETRY
#14,5P
RO
148
#4,WHY.DROPT(R1)
55
12125
MSG1
0

: SECTOR,*

MOV

7285

|
z

#3,-(57)

R2,-(SP)

000044

7284 |
|
|
|

MOV

TOPS
PA:<

#6,~(SP)

MOV
MOV

19:5«42
19:23:44

7283

: SP,w

sr-nm-w
7-Mar-1982

: LUN,*

MOV

0000

7“23
0741
0741
0741
0741
074174
074
074
074
07421

; *,DBL.VALUE

#6.SP

MOV

016646
010146

10246

RO.40(SP)

; DBL.VALUE,*+
; DBL.VALU.+
E

MOV

193:
178:

: WRDCNT,+

46(SP) , (SP)
2466(SP3 ,~(SP)
#FMT12A.~(SP)

.WORD

000044

PC.DOU.BLE
CHECK

MOV
MOV
MOV

TRAP

034446

506
0 5; 000001

0741

RPTR,=(SP)

R2,-(SP)

14§
R1,=(SP)
PC.SAYWHO
#MSGS, (SP)
#SAY1,~(SP)
#2,-(5P)
SP.RO

MOV

000054

TESTING RANDOM DATA & WORD COUNTS

BEQ
MOV
JSR
MOV
MOV
MOV
MOV

TRAP

000046
000046
006710

1
76
1
74
13849 074070
1gso 074074
13851
074076
13852
074100
13853
074106
13854
07411
13855
074112

m;m

ADD

MOV

141522
831513
00707
000002

010000

074054

JSR

000040

062766

MOV

150344

8
SEQ 0303

sMLXG
:

136716

PAGE SB‘

44 (SP) ,~(SP)

;

7287 |

7288 |

;
|
|
!
|
7290 |
7291 |
i
1
!

7292 |
;
7293 |

,727 |

7301 |

: PIR,*

: *, % (LUN)
:

_7?3"
7305

§§

p)
1

ICE EXERCI
DATA

EEI

H
MACRO M1113 29-MAR-82 13:41 PAGE 285.
WORD

COUNTS

sMLXG

!S%§§§§§§§§§233§§§§§§§23=LR

TESTING RANDOM DATA & WORD COUNTS

—lgd-fl
NN
-

VE%%

-t

034446

000004

208:

143014

034446

i
142750

000001

19%:

140012

177700

000002

105670

223375505008 2%

28 —-0O0O~NVAIND NN -

-N
=d )
>

-0
-

000006

000007

D mnd md
b

VIS
-

000003

$L8S8

e el d e o

d cd ol

s e

d macd

D e

VONO
VIS W=D

00000300
o ol o ) D

D D wmh
D el o

§3888

——

)

—

2
SRR
SSANNN
SRSIIIeeese

—

034446

{» « L .

_2§“
Roeer-SN

000005

18%:

7=Mar-1

:1264:42
:23:44

TOPS
PA:<

R1.RO

: LUN,*

7306

R& 42

¢ VALUE,*

7307
7N

#5,WHY .DROPT(R1)

s *,*(LUN)

7314
7315|

TRAP

000002

SEQ 0304

51
218

19§

55
12126
MSG1
0

R1.RO

51
218
R4 43

goi

i
LUN,»

: VALUE,+

4
12127
MSG1

0
#6,WHY .DROPT (R1)

7316|

7317|

7271|

7322|
|

R1.RO

: *,*(LUN)
: LUN,
=

7323
732,

R, #4

VALUE,
*

7325
7271

51
21$

23§

PC,ISOLATE

7330|

7331

12130

8862

#7 ,WHY .DROPT(R1)

R1.RO
s

#22,5p
458
R 45

30§

s *,«(LUN)
s LUN,*

7332
7333

7334
VALUE,»

PC,ISOLATE
01‘ERROUT

7em

7339
7341

ML .REG+4
RS
2

|
|

|
R

#177700,RS

RS,~-(SP}
#FMT108B,-(SP)
02.-68?5

SP,»

cmgoo PERFORMANCE EXERCISER

RANDZ

MACRO M1113 29-MAR-82 13:41

TESTING RANDOM DATA & WORD COUNTS

13935

139

13940
13941

1394

137746
137736

;

000036

248:

1 94?

13948

177700

13949
13950

13951

0000

1395
1395

1;954.

o7é

;25

13962

074

13964

07455

13967

13969

13970

074353

13983

139

074644

766
;225

4656

ASR

177700

BIC

08101
99 000001 105450
14
011
137512

142566

767

000001

BNE
BIT

767

1 ?25
glgls

g}s.nsc’u.wsm

: *,0LDSEC

@ML.REG+42.RS

: OLDCHN,*

7350 |
|

!
|

415

: PIR,*

PC.RETRY

ASR

726

* COMMAND,*

#1d,sP

42(SP) RO

MOV

; :

: SECTOR,*

MOV

146
1674.9

R3.-(SP)

00004

074

74
07
074624

GNE

: LUN,*
* WRDCNT,*

ASR

074572

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

#177700.RS

JSR

015908 1990423

|
7347 |

BIC

H o
13975 74616

}} :

: *,0LDCHN
:

RS
RS

074564

07461

13984

RS,42(SP)
#1.-(SP)

ASR

ADD

;%gz 137650 000036

oréses

13973
1 975 074300
74
13974

1
13979
13980

7344
7345

44 (SP) ,~(SP)

000014

TOPS

PA:<

: *,0LDSEC
:

34{SP) ,-(SP)

151500

13968

ASR

000044

13955

13965

2
1

7=Mar-1982 19:23:44

aMi.REG+44,36(SP)
@ML.REG+42.RS

ASR

7-Mar=1982 19:24:42

#6,5P

MOV
MOV

ASR
ASR

1394

13939

ADD

ASR

13944
13945

1395

TESTING RANDOM DATA & WORD COUNTS

TRAP

13939

8
SEQ 0305

2MLXG

} 3

PAGE 5‘6

105414

:
258:

26%:

#172700.RS

BEQ

MoV
MOV

0
R1,-(SP)
BOARD,-(SP)

e
-WORD MSG4
JWORD

ISR

;&w.mo.comr

BIT

#1 ,ERROUT

mugo

~WORD

B8R

’

286
#1,ERROUT
5§

BEQ

7354 ||

: LUN,»

7357 |

e
:

7362 |

12132

gsss
28%

;

7365

CZMLBBC PERFORMANCE EXERCISER

MACRO M1113

RAND2 TESTING RANDOM DATA & WORD COUNTS

13991
} 99§
} 994

074660

000C01

105372

27%:

gé;

TRAP

1 333
1
1%

.WORD
.WORD
MOV

.WORD

288:

137434

143172

14
14
14

ogooz
176

000001

000430

034500

034460

98:

135742
105316

143

ocggm

128

1
14

000024

3‘

000001

137344

338:

(MP

MOV

ADD
ADD
JMP
w

JMP

¢
1776y

1372

: LUN,*

.
7374 |

(SP)+.(SP)+

30(SP) .R3

)

#2, WPTR
#22,5P
(13

§1§£mz1

7338

:
;
:

7381
7199
7198

428

: LUN,*

7399

: LUN,

MOV

RS,=(SP)

; SECTOR,*

ADD
cMP

#10,sp
RO #

ASR
ASR
ASR

BIC

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
ASR
ASR

ASR

#RBUFF ,~(SP)
PC .READ

408

PC,ISOLATE

gz ERROUT

7380

7392

R1,=(SP)

MOV

: NEXT.SECT,SECTOR

#400,-(sP)

MOV

ASR
ASR

343:

737

; +,SECTOR

MOV

000014

%?g.secmm.as

gg,

0
2

PC,UP.SOFT.COUNT

TOP.SECT,(RO)
24 (SP)

JSR

177700

BOARD, = (SP)

MOV

TOPS
PA:<

12133

MSG3
0
R1,=(SP)

za.no

BNE
105222

#1,ERROUT

:g{

ASR

14
14
14

1%
4

JSR

14
14
14
14
14
1
14
14

MOV

am't;v

10
5

142302

14
14

31%:

328:

0$:

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

TESTING RANDOM DATA € WORD COUNTS

J 8
PAGE 287
SEQ 0306

SMLXG
;

1 ”9

——

29-MAR-82 13:41

|
]

740 |

ML .REG+42,R0

;

7604

7406

RO
RO

RO
RO
RO

,
;
|

#177700,R0

RO, ~(SP}
#FAT10B,-(SP)
#2,-(SP§
SP.RO
14
#6,5P
ML REG*+44,14(SP)
ML .REG*42.RO

RO
RO
RO

|
|
: SP,x

; *,0LDSEC
:

.
;
;
7615 |
7416 |
|

CZMLBBO PERFORMANCE EXERCISER
M&R"O'gflfl
RAND2 TESTING RANDOM DATA & WORD C

164047

14050 0751
14051 0751
uosg 751
0751

14054 075140
14055 075144
14059 075150
14057 0751564

14853 87515

14059

075162

00
00
00
00

01
012746
016646
010146

12746

BIC

0
1
000012

MOV
MOV
MOV
MOV

MOV

14060 875193 016949 ooooge

14061

075172

1406§ 375"3
14063
07520,

14064 075 °3

14065
"’32?

075210
75 18

14
14

75
75224

14071
14072
1407
14074

075
075

004767

027 32
10

19946
017700

s dascly el
07

14075 0
u.org 3
14077
075
14078 07

00
00
00
00

042700
ge
19 6
2 3Z

reger

901

14
14
14
14

011

137176
oogozo
127160

14300

14101

#14,5P
RO, 45

CMP
BNE

aML .REG+44, 14 (SP)
368

7=Mar-1982 19:23:44

TOPS

PA:<

7424

: PIR,*

26(SP) .~ (SP)

ADD
P

57-"00'-1982 19:24:42

: OLDSEC,+

;

|
|

37§

; *,0LDSEC

20(SP) ,~(SP)
aML.REG+42,R0

7433 |

; OLDCHN,

BIC
CMP
BNE
BIT

104776

RO
RO
RO
RO

.WORD

358:

368:

104720 37$:

388:

.WORD
LWORD
MOV
MOV

#177700,R0
RO, (SP)+
368
#1,ERROUT

13134

’

212134

;

14099
14
14

PC,RETRY

ASR
ASR
ASR
ASR

104742

14095

: *,0LDCHN
:
: COMMAND,+
: LUN,*

#400,-(sP)

JSR

MOV
MOV

177700

000001

#177700,R0

RO,20(SP)
#1.-(SP)
12(SP) ,~(SP)
R1,~(SP)

22¢(SP) ,~(SP)

BNE

000014

14
14
;4
14
14
14
14
14

151026

RO
RO
RO

MOV

709 0000714
g 000005

19 1

TESTING RANDOM DATA £ WORD COUNTS

ASR
ASR
ASR

177700

K 8
PAGE 288
SEQ 0307

sMLXG

}2823

14053

29-MAR-82 13:41

MSG4
0
R1,=(SP)
BOA
, ~(SP)
RD

7437

: LUN,*

7445

:
:

7433 |
7450

7455 !

JSR
B8R
Efl

PC,UP.HA
. COUNT
RD
39§
#1,ERROUT

TRAP
.WORD
.WORD
.WORD
B8R

1235
MS

BEQ
TRAP
.WORD

388
57
121

|
7469 |
|

; LUN,»

7472

BIT

#1,ERROUT

WoRD 0°°
R1,=(SP)

MoV

7458

7464 |

CZMLBR0 PERFORMANCE EXERCISER

RAND.

MCROIH‘-HB

TESTING RANDOM DATA & WORD COUNTS

14103

16106 075354
14107 075
14108
075
141
75
14110 875
14111
075374
1411‘§’ 075 73
14113
07540
14114 875404

75413

14116 87541
14117 07541
14118 0754

14121
075436
112;2; 075442
14124
}2} 5

14131

L 8
PAGE 289

sMLXSG

4}2}8;

14115

29-MAR-82 13:41

016746
767
0 g g

136732
142520

080 66
1 1009
18

000024

201
0201

398:
40%:
41%:

177370

42%:
43%:

000026

167
5266

175562
000032
000022

27!
000207

000030

000046

44%:

45%:

TESTING RANDOM DATA & WORD COUNTS

MOV
JSR
(MP
INC
CMP
BHI
JMP
INC
CMP

BOARD,-(SP)
PC,UP.SOFT.COUNT
(SP)+,(SP)+
RS
R5,24(SP)
428
33s
R1
R1,26(SP)

; LUN
; LUN,»

JMP
INC
cMP

2%
22(SP)
Zi(SP) 46(SP)

s COUNT
s COUNT ,REPEAT

ADD
RTS

#30,SP
PC

BGE

:
s SECTOR
s SECTOR,*

44$

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

36 words

—

CZMLBBO PERFORMANCE EXERCISER

MACRO M1113

RANDZ TESTING RANDOM DATA £ WORD COUNTS
14133 :MLX4

}2} s .
141

)

14137 ;
14138 ;

14139
14140
14141
1416§

;
;
;
3

29-MAR-82 13:41

SEQ 0309

TESTING RANDOM SECTORS, DATA, WORD COUNTS
7486

7487
7488

7489
7490
7491
76492

Z%sbttl

[

PAGE 290
27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

*TESTING RANDOM SECTORS, DATA, WORD COUNTS®

routine RAND3 (REPEAT)
begin

: novalue =

!¢+
!
ROUTINE:
!

RAND3 (REPEAT)

1 «

START OF ROUTINE

}2}2 2 s

;234

PURPOSE :

TO CHECK RANDOM SECTORS

}2}25 3

;232

ARGUMENT :

REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE

14149
:
1414

8 ;

14149 ;
14150 ;
14151 ;
16155 V14153
;
14154 ;

14155 ;
14156 ;
16157 ;
14158 ;
14159 ;
14160 ;
14161 ;
1416§ 2
14163 ;
14164 ;
14165 ;

14169 3
14167 ;
14168 ;
14199 s
14170 ;
}2};1 3

1417; :

14174 ;
14175 ;
16179 s
14177 :
14178 ;
14179 ;
14180
;
14181 ;
141
3
141
S
141
3
14185 ;
14189 :
14187 ;

7497 ! THE CODE FOR "RAND3' IN BRIEF:

7498

76499
7500
7501
7502
7503
7506

7505
7506
7507
7508
7509
7510
7511
751
751
73514
7515
7519
751
7518
7519
7520
;g 1

7526
7525
75
7527
75
75
75
7531
7 g
7
75
7535
75
75

'
!
!
!
!
!

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
: INCR LUN FROM 0 TO LAST

!
: : BEGIN 3 (START OF LOGICAL UNIT SELECTION LOOP)
!
: : INITIALIZE BUFFER POINTERS
!
: : TESTLOOP:
!
: : : BEGIN & (START OF LOOP THAT COMPLETELY TESTS 1
UNIT)
!
: : : IF UNIT IS ACTIVE
!
: : : THEN
!
: : : : BEGIN S (START OF TEST FOR AN ACTIVE UNIT)
!
::: : TIMES = (HIGHEST - LOWEST)/2 + 1
!z : : : INCR KOUNT FROM1 TO TIMES
!
: : : : : BEGIN 6 (START OF COUNTING LOOP FOR SECTO
R SELECTION)
!
: : : : : CHOOSE A RANDOM WORD COUNT
!
::::: SET UP BUFFER POINTERS BEFORE TRANSFER
!
1 ::: : CHOOSE A RANDOM SECTOR
!
: : : : : CALCULATE WHERE TRANSFER WILL END (BASE
D ON WORD COUNT)
!
: : : : : IF CALCULATED VALUE GTR HIGHEST
!
: : : : : : THEN ADJUST THE WORD COUNT SO IT FITS
:
TRl o 4
s ;TE 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
!
::::: END 6 (END OF COUNTING LOOP FOR SECTOR SELEC
TION)
!
:::: END S (END OF TEST FOR AN ACTIVE UNIT)
!
1 : : END & (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)
le=
local

TOPS=20 Bliss=16 v2(212)

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

CZML
RANDZ

PERFORMANCE EXERCISER
MCROTH"B
TESTING RANDOM DATA £ WORD COUNTS

164189 :MLX4

}2}‘9?? :

7538
7539
7540
7541

WRDCNT,
SECTOR,
TIMES,
VALUE,

14197 ;
14198 ;
14199 ;
14200 ;
14201 :
14 Og :
14203 ;
14204 ;
14205 ;
14206 ;
14207 ;
14208 ;
]'2 (1)(9, 2

754
7544
7545
754
754
7548
7549
7550
7551
755
755
7554
;ggg

OLDCHN,
PTR,
COMMAND,
DBL_VALUE;

14211 ;
14 1; s
14213
;
14214 ;
‘%2 ]'5 -

7557
7558
7559
7560
;221

14 19 :

14 13 :
14219
;
14 ? :

14
14
;2

754

14225 ;
14 9 :
14
:
14 g :

7571
757
757
7574

’

;g;S

]'2

: B

;g;s

}2 5.‘

;gzg

14235 ;

7531
;g g

14238

}2 2? H

14 6; :
14243 ;

7585

7
7

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

TOPS=20 Bliss=16 v2(212)

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

Label
LOOP;
PRINTB_(SAY1, RTNSC);
! "RAND3"

incr COUNT from 1 to .REPEAT do

LOOP :

756

7567
7568
;g 8

SEQ 0310

OLDSEC,

begin

!* 2 «

START OF REPEAT LOOP FOR THIS ROUTINE

incr LUN from 0 to (.LSUNIT.- 1) do
beain
'
GENS ();

!* 3 «

START OF LOGICAL UNIT SELECTION LOOP

!* 4 «

START OF THE LOOP THAT COMPLETELY TESTS 1 UNIT

begin

if .DRIVE_STATUS [.LUN] eql ACTIVE

7564
7565
7566

:
§ s
2 :

N 8
PAGE 291

TESTING RANDOM SECTORS, DATA, WORD COUNTS

1419§ :
14193 ;
14194 ;
14195 ;

14199 3

29-MAR-82 13:41

then

begin
!* 5 «
LSLUN = .LUN;
WPTR = WBUFF;
RPTR = RBUFF;
TIMES = (HIGHEST - LOWEST)/2 + 1;
incr KOUNT from 1 to .TIMES do
begin
WRDCNT = RNDWC ():
SET_PTRS (.WRDCNTS:

SECTOR = RNDSEC (.LUN);

START OF TEST FOR AN ACTIVE UNIT

i* 6 * START OF COUNTING LOOP FOR SECTOR SELECTION
!VALUE BETWEEN 1 AND BUFSIZ

!VALUE BETWEEN LOWEST' AND HIGHEST

if (.SECTOR + .WRDCNT/256) gtra HIGHEST then WRDCN
T = 256*(HIGHEST - .SECTOR + 1);

VALUE = write (.LUN, .WRDCNT, .WPTR, .SECTOR) ;
'+

SEE HOW SUCCESSFUL THE WRITE WAS:

‘

selectone .VALUE of

set

begin

!SEE_"SYSERR' FOR DEFINITION

!OF ERROR # CONTAINED IN °VALUE®
!~ 6A * RETRY ALLOWED

CZMLBBO PER FORMANCE EXERCISER
MACRO M1113
RANDZ TESTING RANDOM DATA £ WORD COUNTS
14245 :MLX4

}2 ”:9 :
14248 ;
14249 ;
"lz g? 2

TESTING RANDOM SECTORS, DATA, WORD COUNTS
7590
7591
;gg

7800

14260
14261
164262
14
14264

:
;
;
3
;

760,
760
7604
7605
7609

14265 ;

14 69 :

14
:
14268 ;
14 93 2
14
:
14271 ;
14272 :
14273 ;
14274 ;
14275 ;

14276

;

14277 ;
14 ;s 3
14
:
14
3
14281 ;
14
:
14
:
14
:
14
:
14
|
14
3
14
s
14
:
14
:
14
3

1429%

’

:
3

leave LOOP;

end;

7609
7610
7611
7612
7613
7614
7615
7616
7617

tes;

7618

;g s

;63

72‘0

7641

e 6A +

21 :
begin
!* 68 » FATAL CONTROLLER ERROR == NO RETRY ALLOWED
WHY _DROPT [.LUN] = CODE_S;
ERRDF (5302, MSG1, 0);
!xxxx OPTION 5, RAND3 ERROR 02 ##w#
DODU (.LUN);
:

7608

7631
76 5
76

TOPS=20 Bliss=16 v2(212)

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

WHY DROPT [.LUN] = CODE_4;
ERRDF (5301, MSG1, 0);
“!xxxx OPTION S, RAND3 ERROR 01 wwawx
DODU (.LUN);
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * & *
end;

end;

760

7628
7629
7630

27-Mar-1982 19:24:42

27-Mar-1982 19:23:44

7601

7619
7620
7621
7622
7623
7624
7625
7626
7627

.
n
if RETRY (SIX, write, .LUN
.WRDCNT, .WPTR, .SECTOR) Ma 0
thenbe :
'THE RéTRY FAILED == SYSTEM FATAL ERROR

7594
7595
7596
7597
7598

14534

14259 ;

PAGE 292

SEQ 0311

14 Sg 3
14253 ;
14254 ;
14255 ;
14 59 :

29-MAR-82 13:41

!JUMP JUST BEYOND END OF BLOCK * & =

' 6B «

A
began
! 6C » FATAL DRIVE ERROR == NO RETRY ALLOWED
ERRDF (5303, MSG1, 0);
!*xx%x OPTION 5, RAND3 ERROR 03 #ww#
WHY_DROPT L[.LUN] = CODE_6;
oD (.LUN);
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * 4 *
end;
v 6C «

COMMAND = CHOOSE ();
if .COMMAND eql read
then
begin
PTR = .RPIR;
VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR);
end
else

begin :
PTR = .WPTR;
VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR);
end;

SEE HOW SUCCESSFUL THE OPERATION WAS:

selectone .VALUE of

set

[0l :

!SEE_"SYSERR' FOR DEFINITION

!OF ERROR # CONTAINED IN °*VALUE'

’

(ZMLBBO PERFORMANCE EXERCISER
MCROTH‘I"S
RAND2 TESTING RANDOM DATA £ WORD COUNTS
14301

:MLX4

}88% :

764

14308 ;
14
:

76456
7647

14311 ;
14 1§ :
14313
;

7649
7650
7651

14315 ;
14319 5
14317
;
14318 ;

765
7654
7655
765

14319 ;

14320 ;
14321 ;

14; g :

14
2
14324 ;

14325 ;
14 9 :

7648

766
7664

§ :
s
3

7670
7671
767,

14340 ;
14341 ;
14 i :
14
:
14344 ;
16345 ;
14
s
14
3
14 s :
14

14350 ;
14357 ;
14 ; :
14 g :

1358

if (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDC
NT)) neq 0
then

begin

;ggg

7669

;
:
:

ERRDF (5304, MSG1, 0);

7
7689
7690
7691

769

1
e
,

!«xxx OPTION 5, RAND3 ERROR 04 #ewe

end;
=

l
i
!

end;

[1l :

begin

?
,

! 6D ~ RETRY ALLOWED

if RETRY (SIX, .COMMAND, .LUN, .WRDCNT, .PTR, .SECT
OR) negao
then
!THE RETRY FAILED -- SYSTEM FATAL ERR

begin

WHY _DROPT L.LUN] = CODE_4;
ERRDF (5305, MSG1, 0);
“!=xxx OPTION 5, RAND3 ERROR 05 wxnn
DODU (.LUN):

leave LOOP;
end;

7675

7678
7679
7680
7681
7
7
7
7685
7

DODU (.LUN);
leave LOOP; !'JUMP JUST BEYOND END OF BLOCK * 4 «

767
7674

767
767

|
'
i
!
|

!*GOOD DATA: XXXXXX AT LOCATION Yyyyyy®

7660

7661
766

14
14
14

if .COMMAND eql read

7658
7659

7667
7668

:
3

then

765

:
s

TOPS=20 Bliss=16 v2(212)

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

DBL_VALUE = .DBL_VALUE + BUFSIZ%2;
PRIRTB (FMT128, ..DBL_VALUE, .DBL VALUE) ;
!*BAD DATA: PPPPPP AT LOCATION QQQoQQ*
WHY _DROPT [.LUN] = CODE_8;

14
14

19:24:42

765

14335 ;
14
:

27-Mar-1982

27-Har-19gs 19:23:44

SAYWHO (.LUN);
PRINTB (SAY1, MSGS);
!"ECC LOGIC FAILED TO DETECT DATA ERROR*
PRINTB (FHH?A. .«DBL_VALUE, .DBL_VALUE):

‘%2

14331 ;

SEQ 0312

764

14310 :

14314 ;

PAGE 293

TESTING RANDOM SECTORS, DATA, WORD COUNTS

14382 :
14

£.9

29-MAR-82 13:41

end;

!JUMP JUST BEYOND END OF BLOCK * & =

I~ 6D «

€235

in
I 6E * FATAL CONTROLLER ERROR =-- NO RETRY ALLOWED
WHY DROPT [.LUN] = CODE_S;
ERRDF (5306, MSG1, 0);
!xxxx OPTION 5, RAND3 ERROR 06 ###w
DODU (.LUN):
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * & *
end;

33 :

begin

!* 6F « FATAL DRIVE ERROR =~ NO RETRY ALLOW

ED
ERRDF (5307, MSG1, 0):
!xxxx OPTION 5, RAND3 ERROR 07 s##w
WHY DROPT [.LUN] = CODE_6;
poDD (.LUN);
leave LOOP;
!JUMP JUST BEYOND END OF BLOCK * & =

;

CZML 880 PERF ORMANC € EXEQCIEER
RANDZ TESTING R ANDOM DATA

-._.—l-.-ld—l-.—l—l-‘-l—l-l—l—ld-.—h_‘d—l-._.—ld_l-l.‘—.—i_.d
BEBDDBDDDDDLDDDDS
SRERRRRRRRRRRY
BB S
Wi
- 3RSRIRERSS $58838
002 - NNNNNN \J\lfi

14§§
37
; ;MLX4
4 58
4 59

29-MAR-82 13:41

TESTING RANDOM SECTORS. DATA, WORD COUNTS

27-Har~1985 19:%4;62
27-Mar-1982

19:23:44

TOPS=20 Bliss=~16 v2(212)

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

4] :

besi:
ISOLATE ();

!* 66 * UNRECOVERABLE DATA ERROR

ERRDF (5308, MSG2, 0);

WHY DROPT [.LUN] = CODE_7;

pODC (.LUN):
leave LOOP:

end;

5] :
begin

ISOLATE ();

!wxxx OPTION 5, RAND3 ERROR 08 wwew

'JUMP JUST BEYOND END OF BLOCK * & +

ix 66 *

!* 6H ~ RECOVERABLE DATA ERROR

if .ERROUT then PRINTB (FMT10B,

.CHAN):

BIT Q@'
OLDSEC = .MLEL:
OLDCHN = .CHAN;

2; RETRY (ONE, CHECK,
en

.LUN,

.WRDCNT,

.WPTR,

.SECTOR) eql 5

I; ((.MLEL eql .OLDSEC) and (.CHAN egl .OLDCHN))
en

begin
if .ERROUT then ERRHRD (5309, MSG4, 0);

!xxxx OPTION 5, RAND3 ERROR (09 #wws
UP_HARD_COUNT (.LUN, .BOARD):

VIS= OOW\nbwdo

D 9
PAGE 294
SEQ 0313

"2832721113

end

begin

D nd =D cnd wd

else

if .ERROUT then ERRSOFT (5310, MSG3,
0);

PF o

ixxxx OPTION 5, RAND3 ERROR 10 sww#
UP_SOFT_COUNT (.LUN, .BOARD) ;

b e

—

end
else

begin
if .ERROUT then ERRSOFT (5311, MSG3, 0):

!#xxx OPTION 5, RAND3 ERROR 11 #xws

UPaSOFT_COUNT (.LUN, .BOARD);
ena;

tes;

end;

I 6H «

————

CZML

RAND2

PERFORMANCE EXERCISER

HACRO'HIIIS 29-MAR-82 13:41

TESTING RANDOM DATA £ WORD COUNTS

14413 ;MLX4
}l&.}g :
14416
;
}22}8 :

14419 ;
14420

;

7746
;;2;

7749

7751
775
775
7754
7755
775
775
7758
7759
7760
7761
;;g

}22 $ :

;;gg

14436
:
14437
:
14438
;
}21.“8 :

7766
7767
7768
;;98

14441 ;
1“4§ 3
14443
;

7771
777
777

14445 ;
14446 ;
14447 ;
14448 ;
14449 ;
1“;0 :
}2‘451 :

WPTR = _WPTR + 2;
end;

end;

7750

7774

9
SEQ 0314

TESTING RANDOM SECTORS, DATA, WORD COUNTS

14421 ;
144 g 3
16423
;
14424 ;
14425 ;
144 9 3
14427
;
14428 ;
14429
;
14430
;
14431 ;
}22 i 3

14444 ;

PAGE 595

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

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

!* 6 *

END OF COUNTING LOOP FOR SECTOR SELECTION

! 5 «

END OF TEST FOR AN ACTIVE UNIT

'+
d
.
; Test to see if this uut's address space is
! to be read for soft errors.
This test is
! is intended for DMT purposes.
‘=
2
if .EFNS21
!Is the background pattern to be read
then
begin
!

; version czmlbb changed incr to incru
incru SECTOR from LOWEST to HIGHEST do

if read (.LUN, 256, RBUFF,
then
bew
ISOLATE €);

.SECTOR) eql §
.
!Find the failing bank and board no.

if .ERROUT then PRINTB (FMT108, .CHAN):
! Print where the error is

7775
7776
7777
7778
7779
7780
;;81

: 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;
gwcm = CHAN;

14456 ;
14455 ;
1“29 :
14457
;
1“53 2
14459 ;
14460 ;
14461 ;
1“8 -

7784
7785
77
778
7788
7;33
7
7791
7795

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

14464 ;
14465 ;
14466
;
16467 ;

7794
7795
7799
779

1“S§ :

14463

;

778

779

! Do a classity retr¥ call. If the same error

if RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC)
eql S
then
!
! 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 c(assly it as a soft
! error.
!

CZML

PERFORMANCE EXERCliER

RANDZ2

TESTING RANDOM DA TA € WORD COUNTS

14469 :MLXS

}22;? 14472
14475

:
;

14480
14481
14482
1
1
14485
146486
}“

;
;
;
3
:
;
;
3

P 7
7
7
7809
7810
7811
7g1§
;8}6

14489

7815

780

7816
7817
P 7818
P 7819
7820
7821
7 i
78
7824
7825
7 9

14 5 :

7829

3
;
:
;
;

0 3

14511 :

14 1§ :

16312 :;
AR.
14 1’ 3
14513
}2;1

us?’ :
Mg g :

if .ERROUT

19:23:44

TOPS=20 Bliss=16 v2(212)

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

!Same error occured 'hard’

'Print error if enabled

egin

end;

alee

MSG4,
0);

'Error number

!Error message
!Additional message routine

UP_HARD_COUNT (.LUN, .BOARD):
end

begin

!Not the same error ‘soft’

if .ERROUT

'Print error if enabled

then

beain
ERRSOFT (5313,
'Error number
MSG3,
!Error message
.
0);
!Additional message routine
end;

UP_SOFT_COUNT (.LUN, .BOARD):
end

else

!Not the same error ‘soft’

if .ERROUT

78
7831
P 78 g
P78
78

then

in
ERRSOFT (5314,
MSG3,
0);

73 5

end;

!Print error if cnabled
'Error number
!Error message
:
!Additional message routine

UP_SOFT_COUNT (.LUN, .BOARD):

7820
)
7 i
)

7 9
g

end;

enda;

7844

27-Mar-1982

e, 5
ERSHRD (5312,

P 7805

14490
;
14491 ;
1469; 2
14493 ;
14494 ;
14495 ;
16499 F
14497 ;
1“38 :
14499
;
14500
;

14
14505
14
14507
14508

begin

7§3§

27-Nar-19gs 19:5‘:42

if ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
then

;80(1)

16678

PAGE 296

SEQ 0315

7798
7799

144;9 :

14479 :;

29-MAR-82 13:41

TESTING RANDOM SECTORS, DATA, WORD COUNTS

}22;15 :

‘1l2

MACRO M1113

end;

end;
return;

end;

i 4 «

! 3«

END OF LOOP THAT COMPLETELY TESTS 1 UNIT

END OF LOGICAL UNIT SELECTION LOOP

!~ 2 « END OF REPEAT LOOP FOR THIS ROUTINE

CZMLBBO PERFORMANCE EXERCISER
MACRO M1113
RANDZ TESTING RANDOM DATA £ WORD COUNTS

A
ab
3R

107664

RAND3:

ahegst

Hfip

0000

882167

002226
144074

1%:

2s:

s
00
00

10046
010346

S353 22828

:§=§EE

—

JMP

MOV

BIC

MOV
CLR
JSR
ADD
DEC
BEQ

135060
135054

000010

3s:

LSUNIT,12(SP)

gg‘\‘

000010

gg(sm

448

ASR

177770

000001

SP_RO

R3
438

034442

104293

7-Mar-1982

%%‘5

MOV
MOV
MOV
ASL
MOV
ADD
MOV
SU8
MOV
JSR
MOV
INC
CLR

JMP

Bliss=16 v2(212)
PA:<NE20ALE>ML
X4.BLI.S (46)
TOPS=

END OF ROUTINE

RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNT
S

R1,$SAVES
#24,SP
#RTNSC,~(SP)
#SAY1,=(SP)
#2,-(5P)

CLR
JMP

ASR
ASR
ADD

1 106574

~ N~

~
N
v

NNN
Wssm
vy

NS g8

042716
012746

.SBTTL

JSR
SUB
MOV
MOV
MOV

MOV
000012

:42
57-."-193% 19:24
19:23:446
!s 1 «

000002

ViVl
nain

SEQ 0316

end;

P
o

e e
e
b e

e
o e o o e e
e o o
o o

e e

G 9
PAGE 297

TESTING RANDOM SECTORS, DATA, WORD COUNTS

e o e ke
e e o

d o o e e o

i
Haes »H
&‘“bl\bab L
bbbbfi&&&bb
Vi
VIV
:\fi\h\fl\fi\fl\h
PRI
RSvFEISE$2YE nwran23o®
‘”fi‘flg&RRRY
wHwin £ SVBINK®

§2 sMLXG

29-MAR-82 13:41

]

:
:

: SP,«
H

5 '-8:;
-

#177770, (SP)

R?I.&LW

20(sP)
15;5»)

{

;
|

#1,-(SP)
-(5P)
PC,BLSGT2
#10,sP

#WBUFF ,WPTR
#RBUFF _RPTR
R3.RO
R
#TOP,SECT,10(SP)
RO, 10(SP)
a10(sP) ,-(sp)
LOW. SECT(RD)
, (SP)
#2,-(SP)
PC.BLSDIV
RO.20(SP)

5 |

7554 |

7557 |

: LUN

RO
RO
#DRIVE . STATUS RO

COUNT

7487
.
7551
4

LUN

f
|
o ¥

LUN ¥

:
:
: LUN,*

7541»«,E

7567
7568|
7569 |
I

: +, TIMES

: TiMES
: KOUNT

|
7571 |

€z

RAND3

PERFORMANCE EXERCISER

MACRO M1113

TESTING RANDOM SECTORS, DATA, WORD COUNTS

14581
}22

14584

14585

14586
14587
14588
14
14590

075674
075

075
075704
07571
7521
07571

14594 075732
14595 0757
u.so; 075

767

10002

1 4?
004767
352;19
67
81
1
1g 46
1 1.9
004767

6
1
020076

172304

48:

172322
oomgg
1072

000016

300

105000

14603 075760
14604 075764

062702
010316

000400

mog
14607

018 46
01014

134674

14605 ors;% 010246
75
075774

075776

14609 076002

004767

010004

58:

147622

14611
1461§

076010
76012

001031
012746

14614 87605
14615 076024

010346
010;46

1461

14.619 760

14617
1«13

14619

14
14621
1
i
1
14624
14625
1
1
1

}

1
1
1

0760
76034

076040

76044
07
8
76050
76056
07
07,
7
7
728

7607,

;g?n

761

76110
76112
76114

10146
004767

7
oow.g
112763
104455
12265
11070

000004

#4600, R2
R3, (SP)

RO,R2

: *,WRDCNT

Moy
MOV

WwPTR,=(SP)
R1,-(SP)

MOV

ADD

ST
BEQ
MOVB
TRAP
.WORD
.WORD
.WORD
MOV

10?7 000002

mgf 000005 034446
104455
012266
011070

ADD
MOV

MOV
JSR

034446

TRAP

68:

s WRDCNT,+

MOV
MOV

83?733 000014

: *,SECTOR

R2,=(SP)
#400,~(SP)
PC,BLSDIV

CLRB

MOV

150164

7575

; SECTOR,*

BNE
MOV

816 46 134636

: LUN,*

cMP

76013 012746 045424

7574

R1.RO

MOV

000006

* WRDCNT,

SUB

JSR

14610 orggo:. ozosgr 000001

R2.~(SP)
PC.SET.PTRS
R3. (SP)
PC.RNDSEC
RO.R1

7573

* «,WRDCNT

; SECTOR,*

MOV

B8R

MOVB

TRAP
WORD
.WORD

TOPS
PA:<

(SP)+,(SP)+
R1.RO
RO.216(SP)

MOV

7-!&-1935 19:24:42
7=Mar-19
19:23:44

PC ., RNDWC

RO.R2

CMP
ADD
CMP

SWAB

14601 075754

mo; °75728 010002

JSR

MOV

MOV
MoV
JSR

14533 75750 160100
14600 075752

TESTING RANDOM SECTORS, DATA, WORD COUNTS

MOV
JSR
MOV
JSR
MOV

151222

H 9
PAGE 298
SEQ 0317

JMLXS
:

14591 0757,
1429
757
14593
075726

14608

29-MAR-82 13:41

¢ *.WRDCNT
* LUN,

R2.=(SP)

: WRDCNT,
: %, VALUE

RG.#1

6$
#6,~(SP)

: VALUE,*

MIRITE,~(SP)

R3,=(SP)
R2.=(SP)

: LUN,*
* WRDCNT,*

R1,-(SP)
PC.RETRY

: SECTOR,*

WwPTR,=(5P)
#14,5P

RO
9s
#4 ,WHY .DROPT (R3)
55
12265
MSG1
O
R3.RO

: LUN,*

;;. M2

#5.WHY.DROPT(X3)

55
12266
MSG1

|
7579 |

: SECTOR,*

PC.WRITE

RO.Ré

7577

: %, «(LUN)
:

7585 |

!
7591 |

|
,

7594 |
7595 |
|

:
7596 |
|
7597

: VALUE,+

7585 |

7605

; *,%(LUN)

7604

MACRO M1113 29-MAR-82 13:41 PAGE 5999
CTORS, DATA,

W x
mm

-t

— o

RCISER

WORD COUNTS

7%:

000006

034446
8s:

147776

9%:

000036

045612

~w$o~

PP
NOO\O~ I
~J

\‘200
S

COMMAN,D
*

147520

R1,-(SP)

000034

108:

7613

7614 |

7615

RO, #READ

PC .READ

134416

s *,«(LUN)

s LUN,»

* , COMMAND

147360

7607

7612

PC,CHOOSE

RPTR,~(SP)

134430

7585

10§

000034

TOPS
PA:~

s VALUE,*

gg.Sb(SP)

134446

) e

lolele]

ede ——d

—d e

134460

983 19:34:42

7606

#14,SP
148

RS
RPTR
34 (SP)
,
R3,-(SP)
R2,-(SP)

7=Mar=1
7-Mar-1

: LUN,*

R4 .43
98
55
12267
8561

#6,WHY .DROPT (R3)
R3.RO

000014

—a

COO0OCO00OOCOTOOOOOOOOOO

TESTING RANDOM SECTORS, DATA, WORD COUNT
S

*,PIR

s LUN,*

7619|

7621|

7626|

76395|

s SECTOR,*

11$

WPT
34R,
(SP)

R3,-(SP)
R2.~(SP)

WPTR,~(SP)
R1,~(SP)
PC.CHECK
no‘m.

*,PIR

: LUN,»

s WRDCNT,
=

7629
7630

s SECTOR,*
s

*,VALUE

gresaazassEebed_§..g..
3
a8
%M&w—.

000003

012%9

SEQ 0318

0
R3.RO
51

&oH

N\nbgfi

N )b

d w—d

—

PO NNSRR NS

sMLXS

—

2REEEE

~
o
w
~N

XXX
a5 NN
S\fl\fl
AR QA G AP AN

)
b cnd -

bbd-‘-.d-.-.

CE E

7637|

7642

150370

7646|

134

PC.DOU.BLE
CHECK

: WRDCNT,»

RO.50(SP)

R3,~(SP)
PC . SAYWHO
#MSGS, (SP)
#SAY1.-(SP)

¢ LUN,*

#6.SP

12§

#2,-(5P)
SP.RO

*,DBL.VALUE

7649|
7650|

ZMILBBO PERFORMANCE EXE RCISER
MACRO M1113 29-MAR-82
AND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS

14693

sMLXS

}2234.5

14599

76 sg

14697

076352

uegg

149

14703
14704

14705
14706
14707

076
76
76374

012746
01
104414

14700
14.781
1473

076376
076404

076410
076414
0764

14708
14709
14710
14711
1471;
14713
14714
14715
14719
14717

076424
076426
076430
076436
ml.g
076442
076444
076446
76450
07645

14719

0764

1:.713 764

14720
14721
14722
14723

14725

14726
14727
14728
14
14730

07
07
0764
076476

765

07,

07,
076
076514
7
07

14731

076

14
14
14

1%
14
#n

104414

016616

2
7
7 gz‘

12746

ogzm
9616
01 y.c
012746
12746

01
104414
112763
104455
1; 70
011070
01
104451
706

;

19 1
12746
1
01

10246

1ou9
767
706

1
12

1044

14741

076556

14743

076

MOV

010000

MOV

000064

000010

034446

000046

148:

000001

158:

451
50
7

14744

14747

076576

1044

1; ;s

#10000,64 (SP)
64 (SP) . (SP)

; *,DBL.VALUE
; DBL.VALUE,*

7653
7654

: VALUE,*

7637

:
: COMMAND,+
: LUN,*
: WRDCNT,+

7667

MOV
JSR
ADD
ST
BEQ

@64 (SPS ,~(SP)
#FMT12B.-(SP)
#3,-(SP)

208

16§
#6,~(SP)
S0(SP) ,~(SP)
R3,=(SP)
R2,=(SP)

54(SP) ,=(SP)

R1,=(SP)
PC.RETRY
#14,5P

MOVB

1
#4,WHY.DROPT(R3)

LWORD

12271

TRAP

168:

: SP,*

RG M1

.WORD
.WORD
MOV
TRAP

000002

7651

MOV

1; 71

#FMTI2A°-(SP)

#3,~(SP)
SP.RO
14

TOPS

PA:<

;
7659 |

MOV

034446

: DBL.VALUE
.

19:23:44

000054

000006

; DBL.VALUE,+

a56(SP) ,-(sP)

7-Mar-1982

SP.RO
14
#10,WHY.DROPT(R3)
55
12270
MSG1
O
R3.R0
51
#46,SP

BNE
MOV
MOV
MOV

147510
000014

S6(SP) , (SP)

7=Mar=19. S 19:24:42

MOV
MOV
MOV
MOV
TRAP
MOVB
TRAP
WORD
.WORD
WORD
MOV
TRAP
ADD

88%06
50

}2;25 ;63;

ADD
MoV

883003

2935 000005 034446
1044

14742

MOV
MOV
TRAP

11070

SEQ 0319
TESTING RANDOM SECTORS, DATA, WORD COUNTS

TRAP

000056

13:41 PAGE 500

MOVB

MSG1
0
R3.RO

: LUN,*

7656
7657

'
:
,‘

: PIR,*

: %, *(LUN)

;
|
7670 |

; LUN,*

|
g
7672 |

7671 |
|

7681

gs RO

: SECTOR,+*

12272

|
,

7658

MSG1

TRAP

(LUN)

7637 |

.WORD

MOV

; %,
:

: VALUE,*

#5,WHY.DROPT(R3)

: SP,*

51
19s
'1'?5’2

TRAP

WORD

; DBL.VALUE.+

; %, *(LUN)

LUN, *

;
7673 |

7680

7682

CZML

RAND3

PERFORMANCE EXERCISER

MACRO M1113

16738
14754

14755
ms?
1475
14758
14759

14760

000003
000006

175:

034446

14.755

000004

14765

140464

14764

14769
1476

188:

000007

000001

147

15
14

14791
14;3

14%
14
14799

;

198:

208:

218:
103340

TRAP
.WORD
.WORD
.WORD
MOVB

S5
12273
MSG1
0
#6.WHY.DROPT(R3)

135416
135406

B8R

198

R, #4

: VALUE,*

7691 |

PC,ISOLATE

7696

(MP

BNE

.WORD
MOVB
MOV
TRAP

172727

21%

55
12274

MSG2

7637 |

;

7697 |
|

0
#7.WHY.DROPT(R3)
R3.R0
51

: %, *(LUN)
: LUN,#

7698
7699
. |

#24,SP

(wp

RG A5

7700

: VALUE,*

7637

#1.ERROUT
228

7707 |
;

JmP

noY

MOV

428

ML .REG+42,RS

2,?;,;
{355
#2,-(S (sP)

MoV
MOV
ASR

aML.REG+44,52(SP)
aML.REG+42.R
RS

ASR
ASR
ASR

RS
RS
RS

3?’3

#177700,RS

SP.RO
14

MOV

RS
RS
RS
RS
RS

MOV
TRAP

ASR

oooogg

7689 |

ADD

ASR

22%:

7688

7690 |

BIC

000052

: %, «(LUN)

: LON,*

ASR
ASR
ASR
ASR
ASR

0
38%2

TOPS
PA:<

R3.R0

MOV

177700

18§

7-Mar-1982 19:24:42
57-n.r-mz 19:53:44

MOV

BIT
BEQ

135462

1479

u;g
1%
1

034446

000024

14.7;3
147

147,

* VALUE

TRAP
WORD

001044

000005

14781
14
147
147
14785

mees

‘WORD

14775

147,

BNE

JSR

14768

14799
14770
14771
14773

TESTING RANDOM SECTORS, DATA, WORD COUNTS

TRAP

1476

9
SEQ 0320

sMLXG
:

14761

14774

PAGE 301

TESTING RANDOM SECTORS, DATA, WORD COUNTS

14749
mgg

1477

29-MAR-82 13:41

; SP,»
~

: *,0LDSEC
:

2%77700 RS
RS,42(SP)

; %,0LDCHN

7710
71

PERFORMANCE EXERCISER
MACRO M1113 2
CTORS, DATA, WORD COUNT
sMLXG
-

e e

e e e

D
e ek o e e o e e
BB BBBDDDDLDDDN
o0

BRDR@DED

o e e e ek ek e

NOWVS
NN =OVXNV
NN O

—

—d

46
10246

877050 }8226

000001
046000

)77114
77116
)771 g
)771
)771
)771
17713
7714
77142

77144
7714
7715
7715
77154
77160

05
05
05
05
20500
1 19
2767
1404
436

g s
a4l

SEQ 0321
TESTING RANDOM SECTORS, DATA, WORD COUNT
S

#1,-(SP)

R3,-(SP)
R2.~(SP)

LUN,
=
WRDCNT,
»

R1,-(SP)
PC.RETRY

SECTOR,
*

WwPTR,=(SP)

147150

7-Mar=-1
7-Mar-1

24:42
ggs 19:23:44
19:

TOPS
PA:<

7713

cguscx -(SP)

133622

pl S Qs
g;;st Sk
; : 135320

g-MR-BZ 13:41 PAGE %029

#14,5P
RO, 45

25§

000052

aML .REG+44,52(SP)

248
42(SP) ,RO

198363

gflL.REGOAZ.RS

«,0LDSEC
OLDCHN,«

177700
000001

103120

7720

23$:

135162
140236

R3,-(SP)
BOARD,
- (SP)

LUN,*

PC,UP.HARD.COUNT

103064

248$:

7717
77
77

gg‘ER
ROUT
gsi

7
12276
MSG3

000001

103042

25%:

26%:

135104
140642
133416

27%:
28%:

268

#1_ERROUT

12277
MSG3
0
R3,-(SP)
BOARD,
- (SP)

PC,UP.SOFT.COUNT

(SP)+.(SP)+

#2, WPiR

#20,spP

LUN,
*

CZMLBBO PERF ORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS, DATA, WORD COUNTS

14861

14866

93
5

gggg oooo15 000020

14
}23 :

14871

1487
14
14874

14875

1
79
1487
148
:

i 626

000167
010
006
1

176376

000001

000430
034500

12§3§ 034460

77
01 ;46
12746

102754

:
298:

TESTING RANDOM SECTORS, DATA, WORD COUNTS

12(SP).
12(SP) ,20(SP)

(SP)+,(SP)+
#1,EFNS21

328:

42%
R3.RO
RO

R3,-(SP)

:23:44

TOPS
PA:<

75N

RS,=(SP)

s SECTOR,*

7§9

146236

PC .READ

#10,5P

7764

: *,SECTOR
; LUN,*

#RBUFF ,-(SP)

137740
000001

: LUN,»

#400,-(5P)

022670

:2‘-142

7565
7757

328

TOP.SECT(RO),10(SP)
%?g.SECT(RO).RS

33s:

7=Mar=19
7=Mar-19

308
:
31%:

12746

1 549
767

s KOUNT
: KOUNT,TIMES

308

000010

000400

SEQ 0322

7766

RO, 45

408

¥ERRGOT:

102660

7769
7mn

34$

135002

:fll.REG*‘Z.RO

RO
RO
#177700,R0

177700

RO,=(SP}

0
2

1%%726
177700
16
1

24
000400

000026

34%:

: SP,»

#6,SP

ML .REG+44,26(SP)
aML .REG+42,R0

s *,0LDSEC

7780
7781

#177700,R0
RO, 16(SP)
#1.-(SP)

24(SP) ,-(SP)

R3,-(SP)
#400,-(5pP)

Ve NeNen,

s
1
1232?

MLXG

n9
PAGE 303

*,0LDCHN
COMMAND
, »
LUN,
=

7789|

CZMLBBO PERFORMANCE EXERCISER
RAND3 TESTING RANDOM SECTORS

MACRO M1113

29-MAR-82 13:41

PAGE

» DATA, WORD COUNTS

14917

sMLXSG

i
164920
0775
14921 0775;242 1016646 888830
1492§ 8775

149

7754

14924 077544
14925 077550
149 9 87755

;23 ;356
}23 8;;;
14931
149 g

077574
7757

149,

077

14936

77604

6929 14
709

g
;9 1
0
22

110 6 022016
17700 134616

82%%

077612

14941

077624
0776

001404
104456

14943
14944
14945

077632
077634
77638

011202
000000
010;46

020026

077,
077,

;;7

; OLDCHN,*

7798

36$:

7807

BOARD,
- (SP)
PC,UP.HARD.COUNT

7810

#1,ERROUT

7798
7815

57
12301

7820

39§

38$

o
102356

401

: 000010

020

7802

R3,=(SP)

000012

37%:

388

7823
7829

#1,ERROUT

388

7834

-388:

308:

418:

488

-=(S

: LUN,*

7837

PC UP.SOFT.COUNT

(SP)+.(SP)+

3? 10(SP)

SECTOR
SECTOR,
*

338
R3
R3,12(SP)

LUN
LUN,
*

4;!

#1,ERROUT

35%:

102400

;2%
"764 'l§§z 177370
149 ;;;6
077746

16(SP) ,~(SP)
gflL.REG*‘Z.RO

358

11166

14971

: *,0LDSEC

4
12300
3364

s BT

i it
}2

ML .REG+44 ,26(SP)

368

12300

i s ik
ig e
1496

TOPS

PA:<

368

102434

s
s el
14950 077
801415

14953
14954

PC,RETRY
#14,5SP

39!

7=Mar=1

57-flar-1ggg 19:24
19:23::42
44

: PTR,*

: OLDSEC,+

177700

a8 e S
164940
776,

TESTING RANDOM SECTORS, DATA, WORD COUNTS

RO,

000026

SEQ 0323

14937

1494;

30(SP) ,~(SP)
%0(SP) .~(SP)

134634

7768
7764

7557,

CZMLBBO PERFORMANCE EXER CISER

RAND3

MACRO Mi113

29-MAR-82 13:41

TESTING RANDOM SECTORS, DATA, WGRD COUNTS

14973

1497,

SEQ 0324

MLXSG

}23;‘5

17775‘2’

‘}237 qu
}233% 0777

200;

126 3(7)3(5)“
0000%8 000059 448 -

8 10
PAGE 305

TESTING RANDOM SECTORS. DATA, WORD COUNTS

BGE

'I”N'C’
S'G'T,

448

19:24:4

19: 3:42

TOPS

Pg':’<

COUNT
* COUNT,
REPEAT

7554

152 SP
PC

7487 |
?

45%

14985
}2
;

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

14992

-1982

%(s)(SP
22‘5?)),50(5!')

;29‘1 10707(7)
;86 %gggg
1129‘5 10000458 00520
7

fl)'l;
L

273::-19

38 words

CZML

RANDS

PERFORMANCE EXERCISER

MACRO M1113

29-MAR-82 13:41

TESTING RANDOM SECTORS, DATA, WORD COUNTS

C 10

PAGE 306

SEQ 0325

27-Mar-1982 19:24

:42
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT c7-Ma
r-1982 19:23:44
Zsbttl "TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNTS®

routine RANDS (REPEAT)

begin

: novalue =

!~ 1 ~

START OF ROUTINE

]

i
i
i
i
i
]

ROUT INE :

_RAND4 (REPEAT)

PURPOSE :

TO CHECK RANDOM UNITS

ARGUMENT :

REPEAT = NUMBER OF TIMES TO EXECUTE ENTIRE ROUTINE

THE CODE FOR 'RAND4' IN BRIEF:

]

7868

i
i
i

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

: GENERATE THE RANDOM PATTERN

!
i
!

!
!

i
:

i
i
i
i
!

: BEGIN 2 (START OF REPEAT LOOP FOR THIS ROUTINE)

: 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 TO 10
: : BEGIN 5 (START OF COUNTING LOOP FOR SECTOR
SELECTION)

¢
:
2
¢
¢

2
¢
¢
3
3

¢
:
:
:

3
¢
2
¢
¢

: : LOOK FOR ERRORS (IF DROP UNIT, LEAVE TESTLO
OP)
2 : CHOOSE WHETHER TO WRITE CHECK GR
READ
: : DO THE WRITE CHECK OR READ
:: LOOK FOR ERRORS (IF DROP UNIT, LEAVE
TESTLOOP)
¢ : CHANGE BUFFER POINTERS AFTER TRANS
FER

:
¢
:

:
:
:

:
:
:
:
3

CHOO
A RANDOM
SE
WORD COUNT
SET UP BUFFER POINTERS BEFORE TRANSFER
CHOOSE A RANDOM SECTOR
CALCULATE WHERE TRANSFER WILL END (BASE
D ON WORD COUNT)
IF_CALCULATED VALUE GTR HIGHEST

: THEN ADJUST THE WORD COUNT SO IT FITS

I:RiTE

WITHIN THE

TESTABLE

SECTOR LIMITS

2 : : END 5 (END OF COUNTING LOOP FOR SECTOR
SELECTION)
¢ : END & (END OF TESTLOOP)
: END 3 (END OF COUNTING LOOP FOR UNIT SELECTION)

&gfig"z (END OF REPEAT LOOP FOR THIS ROUTINE

END 1 (END OF ROUTINE)

TOPS-20 Bliss=16 v2(212 )

PA:<NEALE>MLX4.BLI.S (4 7)

CZML

RANDS

PERFORMANCE EXERCISER

MACRO M1113

29-MAR-82 13:41

TESTING RANDOM SECTORS, DATA, WORD COUNTS

15050 :MLX4

SEQ 0326

27-Mar-1982 19:24

:42
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Mar-198
2 19:23:44

}gggl :

1822
e
15053 :

7908
7908
7909

7910

Label

}5833

0913

PRINTB (SAY1, RINSD);

) B

15065 :

15069 2
}ggga :

15069

15890 3

15871 :

13072 ;

15073 :
15074 :

13078 :

%gg;; :

%}1

7915

791
;313

LOOP;

incr COUNT from 1 to .REPEAT do
fiflgno

7919

incr KOUNT from 1 to (.NUM_DRIVES*4) do

7921

begin

7922

LUN = RNDU ©):

79
7924

7958 LooP

!* 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

!« 5 «

START OF COUNTING LOOP FOR SECTOR SELECTION

7920

;gzg

TOPS=20 Bliss=16 v2(212)

PA:<NEALESMLX4.BLI
S (47)

QUDCHN.
S
R:
¥

15820 :

D 10

PAGE 307

LSLUN = .LUN;
WPTR = WBUFF:

;

begin

15&79 :

7959

7931

;gg‘

11§

S ;

SECTOR = RNDSEC (.LUN):

;332

2 ;

;337 _

if (.SECTOR + .WRDCNT/256) gtra HIGHEST then WRDCNT = 256%(HIGHEST

793

15080 :

15089

7930

793

0 :

;gl.‘t’)

:
}sggls-

794

incr KOUNT2 from 1 to 10 do
begin

WRDCNT = RNDWC ():

SET_PTRS (.WRDCNT):

;

};& :

begin

7949

m : 3

18102

15103
15104

7946

;3??

795

795
7954

- .SECTOR + 1):

SEE HOW SUCCESSFUL THE WRITE WAS:

12099 :

'EXPECT VALUE BETWEEN LOWEST AND HIGHEST

VALUE = write (.LUN, .WRDCNT, .WPTR, .SECTOR):
'+

selectone .VALUE of

'EXPECT VALUE BETWEEN 1 AND BUFSIZ

set

£1 :

'SEE_"SYSERR' FOR DEFINITION

!0F ERROR # CONTAINED IN *VALUE'

! SA * RETRY ALLOWED

if RETRY (SIX, write, .LUN, .WRDCNT, .WPTR, .SECTOR) neq

then” .

WHY DROPT [.LUN] = CODE_¢;
ERRDF (5401, MSG1,
DODU (.LUN):

!THE RETRY FAILED -- SYSTEM FATAL ERROR

0):

!xxex OPTION 5, RAND4 ERROR 01 ##s#

?0 PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41

PAGE 500

TESTING RANDOM SECTORS, DATA, WORD COUNTS

382

09 sMLXG
3

1; :

TESTING RANDOM (NITS,

7933

1? :

796;

end;

796

19 :

7965

WORD COUNT

—

g?—lar-w

27-Mar-1982

Sevin

5335'“{&3- MSG1, 0);
Leave LOOP;"

7969

“!xxxx OPTION 5, RAND4 ERROR 02 swe

!JUMP JUST BEYOND END OF BLOCK * 4 +

end;

ix 58 %

7969

5 :
9 :

7971
797

DROPT [.LUN] = CODE_é;
poD0 (.LUN):

8 :
3

7974
;g;g

end;

;g;;

7979

797

;gg?

798§

798

41 ;

798

begin

5C *« FATAL DRIVE ERROR == NO RETRY ALLOWED
ERRDF (5403, MSG1, 0); !«
issss
OPTION-S MANDs oRon 030, RET
WHY

7970

3
23 3

7984
;385

leave LOOP;

tes;

if .COMMAND eql read

thenb‘ in

PTR = .RPTR;

VALUE = read (.LUN, .WRDCNT, .RPTR, .SECTOR):

end
elseb‘ %

PTa = WPIR;

7933
7989

49 :

799

49 :

7995

selectone .VALUE of

50 :
51 :

7999
799

4444

5 :

8000

Sg .

88§

29 $

001

53:

30045

60 ;

006

!JUMP JUST BEYOND END OF BLOCK * 4 =

In 5C »

COMMAND = CHOOSE ():

4; :
43 ;

VALUE = CHECK (.LUN, .WRDCNT, .WPTR, .SECTOR):
end;
:

SEE HOW SUCCESSFUL THE OPERATION WAS:
!SEE "SYSERR®' FOR DEFINITION

set

10F ERROR # CONTAINED IN 'VALUE®

if .COMMAND eql read

then

begin

’

:’f' (DBL_VALUE = DOUBLE_CHECK (.WPTR, .RPTR, .WRDCNT)) neq 0
en

begin

(47)

i* 58 * FATAL CONTROLLER ERROR == NO RETRY ALLOWED

5 -

TOPS=-20 Bliss~16 v2(212)

PA:<NEALE>MLX4.BLI.S

WHY_DROPT [.LUN] = CODE_5;

796

19:93:44

'JUMP JUST BEYOND END OF BLOCK * & +

% 3

19:5‘:42

s SA *

[21 :

7961

}a ;

DATA,

leave LOOP;

7958

7980

SEZTORS,

7955

i
15 :

SEQ 0327

CZALBBO PERFORMANCE EXERCISER
MACRO M1113 29-MAR-82 13:41
RAND3 TESTING RANDOM SECTORS. DATA. WORD COUNT
S

F 10

PAGE 309

1516§ sMLXG

15165 ;
15166 :
15167 ;
15168 ;
15169 :
15170 :
15171 ;
1517§ :
15173 ;
15174 ;
15175 ;
15176 ;
15177 ;

15178 ;

15179 ;
15180 ;
15181 ;

}g}&; 3

15134 :
15185
15186
151
151

;
;
:
:

151

TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 27-Ma
r-1982 19:23:44

8007
8008
8009
8010
8011
801§
801
8014
8075
8019
801
8018
8019

88 g

gO 6

046

3327

N = OO 00

mmuu\n\ammg

1§

1] :

begin

!~ 5D = RETRY ALLOWED

if RETRY (SIX, .COMMAND, «LUN, .WRDCNT, .PTR, .SECTOR) neq 0

then

!THE RETRY FAILED -- SYSTEM FATAL ERROR
begin
WHY DROPT [.LUN] = CODE_4;
ERRDF (5405, MSG1, 0);
!sxxx OPTION 5, RAND4 ERROR 05

8031

end;

8057
80. 3
8050
80
383
3
8034
8035
80;9
80
8038
8039
040
041
804;
3824

TOPS-20 Bliss=16 v2(212)

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

SAYWHO (.LUN):
PRINTB (SAY1, MSGS):
!"ECC LOGIC FAILED fO DETECT DATA ERROR®
PRINTB (FMT12A, ..DBL VALUE, .DBL VALUE);
!'GOOD DATA: XXXXXX AT LOCATION YPYYYY'
DBL_VALUE = .DBL_VALUE + BUFSIZ#*2;:
PRINTB (FMT12B, ..DBL VALUE, .DBL_VALUE);
!'"BAD DATA:
PPPPPP AT LOCATION QoBoo0a’
WHY_DROPT [.LUN] = CODE_8;
ERRDF (5404, MSG1, 0);
“!exxx OPTION 5, RAND4 ERROR 04 weax
DODU (.LUN):
Lleave LOOP;
!JUMP JUST BEYOND END OF BLOCK * & +
end;
’

8050

8021
802
80

15190 ;
15191 ;
1519; :
15193 ;
15194 ;
15195 ;
15199 3
15197 ;
15133 :
151
15
:
;S ,

12 g :

SEQ 0328

27-Mar-1982 19:24:42

}g}g‘ :

CONO NS

DODU (.LUN);

leave LOOP;
end;

end;

#wes

!JUMP JUST BEYOND END OF BLOCK * &4 =

v 5D «

2l :
begin
! 5E » FATAL CONTROLLER ERROR -~ NO RETRY ALLOW
ED
WHY DROPT L.LUN] = CODE_S;
ERRDF (5406, MSG1, 0);
“!=«xx OPTION 5, RAND4 ERROR 06 =21
DODU (.LUN);:
leave LOOP;
{JUMP JUST BEYOND END OF BLOCK * & =
end;
'« S5E «

[3] :

begin

!~ 5F « FATAL

ERROR =-- NO RETRY ALLOWED
ERRDF (5407, MSG1. °555 exxx OPTION 5,DRIVE
RANDG ERROR 07 s#ww

WHY _DROPT [.LUN] = C

leave LOOP;
end;

!JUMP JUST BEYOND END OF BLOCK * & »
'x 5F «

DoDD (.LUN);

[4] :

be&t:n
ISOLATE ();

ERRDF (5408, MSG2, 0);

!* 56 * UNRECOVERABLE DATA ERROR

!sx«x OPTION 5, RAND4 ERROR 08 +v++

WHY DROPT [.LUN] = CODE_7;

DODD (.LUN)

PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41

TESTING RANDOM SECTORS, DATA, WORD COUNTS

PAGE 310

SEQ 0329

7-Mar-1982 19:24:42
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT gnu
r-mz 19:23:44
leave LOOP;
end;

£33 s

bew
ISOLATE O;

PA:<NEALE>MLXS.BLI.S (47)

!JUMP JUST BEYOND END OF BLOCK * 4 +
s 56 «
!* 5H « RECOVERABLE DATA ERROR

if .ERROUT then PRINTB (FMT108,

TGPS=20 Bliss=16 v2(212)

.CHAN);

BIT Q@'

OLDSEC = .MLEL:
OLDCHN = .CHAN;

:’f' RETRY (ONE, .COMMAND, .LUN, .WRDCNT, .PTR,
.SECTOR) eql 5
en

;g ((.MLEL eql .OLDSEC) and (.CHAN eql
en

.OLDCHN))

begin
if .ERROUT then ERRHRD (5409, MSG4, 0);

!s+x+ OPTION 5. RAND4 ERROR 09 swee

UP_HARD_COUNT (.LUN, .BOARD):

else

end

begin
if .ERROUT then ERRSOFT (5410, MSG3, 0);

!exex OPTION 5, RAND4 ERROR 10 wwws
lPaSOFT_CMT (.LUN, .BOARD):

else

begin
if .ERROUT then ERRSOFT (5411, MSG3, 0);

tvaxx OPTION 5, RAND4 ERROR 11 #wes

UP_SOFT_COUNT (.LUN, .BOARD):

wno

tes.

end;

o
s o e
s ol

end;

WPTR = .WPTR + 2;

e el e e

end;

‘s SH =

!* 5 «

;
!
:

Test to see if this uut's address space is
to be read for soft errors.
This test is
is intended for DMT purposes.

END OF COUNTING LOOP FOR SECTOR SELECTION

SEQ 0330

b —d

7-Mar-19
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT g?-fla
r-l982

19:5‘:‘2

TOPS-20 Bliss=16 v2(212)

19:23:44

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

d el

R2IBTHIFUR W= O VRN ND W=D &S RSBNIRORIRONG
RNRDN WNN
= OOV
NNVSN
-

00 00 GO 0o ek
0o G0
0O GO G Co GO 00
d nd

H 10

PAGE 311

v
-t

d d) d e
d

incru SECTOR from LOWEST to HIGHEST do
if read (.LUN, 256, RBUFF,

then

£
ISOLATE ();

.SECTOR) eql S

!Find the failing bank and board no.

)

—

g version czmlbb changed incr to incru

; Print where the error is

e ol el o e e el ) ol
e nd il ol ol o ) i e el e
iy Iy
YY
W

00 00 00 Co 00 0o 00 0o

!Is the background pattern to be read

b wd

if .EFNS21
then
begin

if .ERROUT then PRINTB (FMT10B, .CHAN):

P Py o
R

RAND3

PERFORMANCE EXERCISER
MACRO M1113 29-MAR-82 13:41
TESTING RANDOM SECTORS, DATA, WORD COUNTS

CZML

G0
Co Co 0o o 00 Qo 0O 0o 00 Co 00
—

!
!
!
;

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:

QLDCHN = .CHAN;
! Do a classify retr¥ 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.

2;'RETRY (ONE, .COMMAND, .LUN, 256, .PTR, .OLDSEC)
eql §
1}

: The same error occured so see if it is at the
same
! sector and channel number,
i if so then classify

it as a hard error else c[assiy it as a soft

; error.

:z ((.MLEL eql .OLDSEC) and (.CHAN eql .OLDCHN))
en

begin

!Same error occured 'hard’

if .ERROUT

!Print error if enabled

then

bealn

ERRHRD (5412,
'Error number
MSG4,
!Error message

0);

!Additional message routine

PERFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41

PAGE 512

TING RANDOM SECTORS, DATA, WORD COUN'S

sMLXG

SEQ 0331

7-Mar-1982 19:24:42
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 57—!!
"-198 19:53:64

8;22

end;

3165

UP_HARD_COUNT (.LUN, .BOARD):

8169
16
g;ég

end

else
begin

3190
P
P

if .ERROUT

171
17;
817

then

8174

175

3181
s

8184

!Not the same error ‘soft’

if .ERROUT

then

186

P 8187
P 3188
189

end;

8195
s}gz
3199
04

15
15

end;

8205

.
100006

004167

!'Error number
!Error message
.
!Additional message routine

end;

8194
8;95

8§

!Print error if enabled

UP_SOFT_COUNT (.LUN, .BOARD):

819

begin

ERRSOFT (5414,
MSG3,
0);

8}3?

;

!Print error if enabled

UP_SOFT_COUNT (.LUN, .BOARD):
end

else

3185

}
1

!Not the same error 'soft’

begm
ERRSOFT (5413,
!Error number
MSG3,
!Error message
0);
!Additional message routine

8178
8};3

}

TOPS=20 Bliss=16 v2(212)

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

end;

:* & « END OF LOOP THAT COMPLETELY TESTS 1 UNIT

end;

! 3 «

END OF COUNTING LOOP FOR UNIT SELECTION

!* 2 «

END OF REPEAT LOOP FOR THIS ROUTINE

!~ 1 «

END OF ROUTINE

return;

end;

105322

RAND4:

-SBTTL
JSR

RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT
R1,$SAVES
:

7852

§§

CISER

MACRO M1113

29-MAR-

TS, SECTORS, DATA, WORD COUN

T2 13:41 PAGF i13

SEQ 0332

sMLX4

7-Ma
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 5740

#26,SP
#RTNS
- (SP)
D,
#SAY1,=(SP)
.

JSR
PR PR PR

2%:

AER

PENZIRSS

170234

1
170022

3s:

JSR

170040

JSR

LUN,
»

* WRDCNT
WRDCNT, »

MPSE C

R3.~(SP)

106756

ISk

PC,BLSDIV

000012

CMP

R"g?Z(SP)
'

000400

*,LUN
LUN,*

* KOUNT2

JSR

146740

b e e o o

: KOUNT

0Co012

7916

7918
7920

b o o o e

PPN

Rttt
L r—

SP. =

; COUNT

418

Viau

TR
FRRRRAPRZPRLALYRRRRARR
PRRRRRAR DD
EXERRERRXR
OO NO N
) 2328%38%

32(sP)

TOPS
PA:<

7913

cz.-‘()§m

b e o

:124:42

:23:44

#400,-(5P)

(SP)+,(SP)+

@12(SP) ,RO
R1.R0

; LUN,*

; *,SECTOR

: WRDCNT,+

7922
7923
7925
7935

s
7932
7933

7935

: SECTOR,*

; SECTOR,«

4S:

ADD

MoV

132412

MOV

145140

JSR °

000001

CMP

RO,R3

#400,R3

5.(5#)

-(SP)

wPTR,=(SP)
R1,~(SP)
PC.WRITE

RO.R%

RG.#1

:
:

*,WRDCNT
*,WRDCNT

: WRDCNT,
=

7937

: SECTOR,«
: *,VALUE
s VALUE,*

7943

CE EXERCISER
MACRO M1113 29-MAR- 12 13:41
UNITS, SECTORS, DATA, WORD COUN

1544
1544
5444

3533 S E NN
XN

O =N

O
NOON

b
d et ad

3=
SRR'-\;-.
&S
)

(=71

(=1 NIV [N TN N - —

2 R28

R1,-(SP)

145702

PC.RETRY

W ENTN

—~ON
~N

7949

¢ LUN,*

+ WRDCNT =

SECTOR,
«

000004

034446

#4 ,WHY .DRO(R2)
PT

*,«(LUN)

12431
8561

000002

000005

5%:

034446

R2.RO
51
78
Ré 42
6$
#5 ,WHY .DROPT (R2)

55
12432

LUN,
*
VALUE,
*

*,«(LUN)

MSG1

0
R2.RO
31

000003

6$%:

B
”.

LUN,

VALUE, *

55
12433

7970|

8561

000006

034446

#6,WHY .DROPT (R2)
R2.RO

L
D
s d
ek ol

258&&R<a‘flm

?04
1

PA:<

0&1.5?

000014

RKER

FRY

388 R
o ¢ >

d kb
ek 8

wPTR,=(5P)

132354

SEQ 0333

7-Mar-1982
19:24:4
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT Sr-m
:-wgzz 19:% :6%

#6,~(SP)
MIRITE ,~(SP)
ng.-(sp)
R3,=(SP)

81 1070

: ;:T.

D o oDC
=
SRS

OO ==
8-‘0
~
SR —
~
-...g-n
=N
R
~
NO x
WA
3
SHHa'2

RNSRRSRAR2
£ '3A RS
883838323
x—l-fi-‘i—.-‘—.RRZZPRR2R
FER

d
e
it e
i
o
b e

i=lelo] 00O

sMLXS

K 10

PAGE 314

22RE

(ZMLBBO PE
RANDG TESTING R

e ot

000010

7%:

145514

9s:

000040
045612

132176

000036

*, % (LUN)

#10,5P
148

PC, CHOOSE

gg.‘O(SP)

*, COMMAND

RO, #READ

108

COMMAND
,«

RPTR,36(SP)

*,PTR

R3.-(5P)

WRDCNT,*

R1,=(SP)

SECTOR,*

n;.-(sp)

132164

RPTR,=(SP)

145076

PC .READ

11§

10
MACRO
M1113
29*HAR
°?2
13:41
PAGE
%15
RAND4G TESTING RANDOM UNITS, SECTORS,

| CZMLBBO PERFORMANCE EXERCISER

DATA, WORD COUN

132146

000036

10s:

132134

145236

VILA

*,PIR

; LUN,
=

s WRDCNT,«

19: 4:42
19:23:44

TOPS
PA:<

7987
7988

; SECTOR,»

: *,VALUE
7995

288

WPT
-R,
(SP)

RPTR,=(SP)

RO.42(SP)

; *,DBL.VALUE

R2,=(SP)

; LUN,*

PC . SAYWHO
#MSGS, (SP)
#SA
.~Y1
(SP)
#2,-(5P)

8007

8008

S0(SP) , (SP)

aS0(SP) ,~(SP)

#FMT12A - (SP)

; DBL.VALUE,*
; DBL.VALUE,+*

cs,-ssPS

000056

#10000
56 (SP)
,

56(SP) . (SP)

256(SPJ ,~(SP)

#FMT12B .~ (SP)

SP'.

: *,DBL.VALUE

s DBL.VALUE,*
: DBL.VALUE,*

#3,-(SP}
14

034446

g;o.uuv.onopt<n2>

SP'.

*,~(LUN)

12434
8561
R2,R0

—

wvies

: WRDCNT,«

12§

—-=OOOOO
-

oo OO

R3,-(SP)

PC,DOU
. BLE
CHECK
#6,SP

a§§

2222
§2ddddd
R
FESNNIER
gficfg&g‘*
Lo Yo o No W N NN NO° g
N

fRR ol
o

-.:-. B
e aad

coco =1

&oH

oNro

WPTR,36(SP)
R2,=(SP)
R3,-(SP)
WPTR,=(SP)
R1,=(SP)
PC,CHECK
RO R&

RS
138

33§§§ gg *§§§§*

ddgg—ldg§—n

7-Ma r-1982
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 57-fl
0 r-1982

15§

) D
) D d b
— e

0O~
NN =
el

VOO
N WO

ViV

umumwu\nu\n\n\nmum\nmuuuvn\.nvov!vu.n vV

—t

O~ VHwWNN=o

Vi W
SU% 'y FRRRTRRg “M““M“MWMMM“MWMMWM“M“MWM
b
e e e o e e d
N —aQRR

[ 3

-2

Ssddd d-‘-si-.ddddd-‘
888
2383SRERN
nNOON

sMLX4

SEQ 0334

: LUN,
=

#42,5P

8
16$

; VALUE,*

52(SP) ,~(SP)

s COMMAND,*
: LUN,*

#6,-(SP)

R2,-(SP)

8010

CZMLBBO g;RFORHANCE EXERCISER

MACRO M1113

29-MAR- '2 13:41

ANDOM UNITS, SECTORS, DATA, WORD COUN

sMLX4
.

~NoOoOn

000

SRSR35§-| §S5852
§a82a R
dg
s
SSSSRRER
SEHI2H
58853
TR
=11V, NN NE2SS
VWNNW-‘S Og\nNNNO—‘ 8834 YRRSSLS

cal.sp

goo-

000002

16%:

034446

000003

17$:

-2 OO

prd

HNO

TOPS
PA:<

; WRDCNT,
=
: PR, *

: SECTOR,*

*,*(LUN)

12435
MSG1
0
R2.RO

8029
8030

LUN,
=

8031

* VALUE,*

8032|

*,«(LUN)

8039|

LUN,*

8041

VALUE,
*

8042
7995

51
198

Ré&,#2

17%

12436
MSG1
0
R2.RO
51
198
R4 43

18§

55
12437

8040|

8047

8561

000006

034446

#6.,WHY .DROPT (R2)

R2.RO

oON

19:24:42
19:23:44

R
128
gg.HHY.DROPT(RZ)

gg.uuv.onopr<n2>

—

d () b

—

034446

-t

000004

18$:

136202

034446

136136
000001

101056

000007

Ng—i

p—
g

ViLnds
&

e
b e e

h e ol o

e ek

d e

s wd D md

D d o

PC.RETRY

000014

000005

r-198
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT S 7-Ma
7-Mar-198

R1,=-(SP)

145226

000004

SEQ 0335

R3,=(SP)
56(SP) ,~(SP)

000056

OO0
2882 SRRW"S

d ek =D o
D ol

b b ok o
~
&

b d

b ey

§§ vy

b o

b h h D b b—
VLAWY

00O

dddddfldddfldddfldflddddddddd

sggses
foo0000000
°33§3§§§§§32§39§§33323
3 SERSRNSGSERENN PS§~J§~§oa~ooo
o a~o§?§§333
NORR

M 10

PAGE 316

19%
R4 A4

g1iISO
LATE
3

s *,*(LUN)
¢ LUN,*

8048
8049

* VALUE,*

8050
7995

12440
MSG2
0
#7 ,WHY .DROPT(R2)
R2.RO

LUN,

#20,SP
408
R4 45

VALUE,
*

288

PC,ISOLATE
#1.ERROUT

22%

*,«(LUN)

%RFORHANCE EXE RCISER

__MACRO M1113

29-MAR-82 13:41

ING RANDOM UNITS, SECTORS, DATA, WORD COUNT
sMLXG

N 10
PAGE 317

SEQ 0336
7
-1982
19:24:4
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT 57:22
:-1935 19:53:44¢

TOPS
PA:<

L= 1 X o V1

006640
000002
SP,*

4
N&H

177700

06
133134
133124

000044

22s:

#6,SP
ML .REG+44,44(SP)
SHL.REG+4Z.RS

s *,0LDSEC

8069
8070

177700
000040
000001
000052

#177700,RS

RS,40(SF)

#1.-(SP)

52(SP) ,=(SP)

R2,=(SP)

.=(SP)
56(SP) ,~(SP)

000056

R1,=(SP)

144666

PC,RETRY

000005
133036

000044

gi4.3°
25§

Ve R0y %, %0,

NN =
wviIng
&»
&~
N OOONONON

RS anaS

SRR XA
°\n°
8

~NS

ggssasss TR
Qmwmmmu

— e
b

gfll.REG*LZ.RS

*,0LDCHN
COMMAN,D*
LUN,
=
WRDCNT,
*
PTR,*
SECTOR,

8072

@ML .REG+4
44 4,
(SP)

*,0LDSEC

000040

lggOZO

40(SP) ,RO

OLDCHN,
*

177700

R
#177700,RS

24$

aML.REG+42,RS

8075

RS,RO

000001

100636

3? ERROUT
3$

13441

MSGé

8079

~TM

EFRFMCE EXERCISER _ MACRO M1113 m—r
TESTIN

RAND4

G RANDOM UNITS, SECTORS, DATA, WORD COUN

}?&’9

33293 }8}2 : 000000
010246
23s:
15671 101436
016
13;700
}§§;§ }8}22 oomzs 135754
;ssggts.} }223 88:222?2 000001 100602 24$:

15676

101

15679

1 1496

ig 1 igi?g?
15687

15688

101512

101514

104457

1Z32 000001 100560 258:

010246

016746

18150 ogngr

268:

132622

136360

13697 10135¢ Besses 000002 13113¢ S88.
1?
13698 101320 86296 000050

}523'5' 11 }guz.

§5§357

000006

000012

1015

.WORD

13788 1918
13708 101
15710

15711

101 2

1 71§ 101

101

388805

135460

} ;}‘ ; }

000001

= Ly

-WORD

B8R

Sé{

MoV

} 7}5 } }

132522

1319 101
15718
10167
1;73 10167
4

15720

101676

26$

8095

R2,=(SP)

: LUN,*

8097

sop
e

ASPhss(SP)¢
2%’2.s§’

gg;

PC,UP.SOFT. COUNT
o

6(SP) ,.#12

A% ernsan
408
@10(S
P),10(SP)
Zfi‘?%é??am RS
R2,=(SP)
30§

3”.

#400,-(5pP)

A
=

eT
o

BNE

PC, ISOLATE

JSR

Rg‘is
3

g}‘ennour

:g;

%I..REGMZ.RO

ASR
ASR
ASR
ASR

TOPS

BOARD,
- (SP)

JSR

19:24:42

flsimom

MOV

CMP

100400

8081
s
8086 |

TRAP

MOV

——re
560015

: LUN,*
.
:

R2,~(SP)
BOAR
- D,
(SP)
sgiur.nmo.cowr
’Z'Z;E“"“"

000400

PA:<

MoV
MOV
JSR
Séf,

15705 10161

TESTING RANDOM UNITS, SECTORS, DATA, WCRD COUNT S?-flar-‘l”s 19:23:44
7=Mar=1982

%5239 3§1§§3 22“; 000007 100476 298: By
1
000430
JMP
35955 }§1§2
§
00001
0 000010 308: Mov
;g ] ; %20¢
8?40238
333
;g } }fi%
31$: MOV
15698

PAGE 518

SEQ 0337

me‘

15668

13:41

RO
RO
RO

8089

s
: KOUNT2

8083
7930
7929

:
:
: «,SECTOR
: LUN,*

8112
8119
8121

: KOUNT2,+*

’

[

: SECTOR,*
:

g}gz
,

;
|
|

LRFORMANCE EXERCISER
MACRO M1113 29-MAR-82 13:41
TIRG RANDOM UNITS, SECTORS, DATA, WORD COUNT

NN 88

TOFS
PA:<

006640
000002
SP,x

177700

s *,0LDSEC

aML .REG+44 ,24(SP)
gfll.REG*4Z.RO

k6,SP

32%:

0000

000024

#177700.R0

RO,20:SP)

#1.-(SP)

000032

32(SP) ,~(SP)
R2,~(SP)

#400,-(sP)

00
000036

36(SP) ,~(SP)
36(SP) .-(SP)

PC.RETRY

*,0LDCHN
COMMAND
,*
LUN,
*
2 PTR,
*

s OLDSEC,*

#14,5P
RO, 45

132354

35§

000024

ML .REG+44,24
(SP)

348
20(SP) ,-(SP)
:Hl.REG*‘Z.RO

52358

177700

000001

*,0LDSEC
OLDCHN,
*

#177700,R0
RO, (SP)+

2?£ER
ROUT
33§

100154

8157

56
12444

8162|

8864

33s:

132216
135272

LUN,
*

8165

348:

37§

#1,ERROUT

100120

PC,UP.HARD.COUNT
~w

000001

R2,=(SP)
BOARD,~(SP)

—b

— e
b

°°°°2

7-Ma
TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT S?-Ha

177700

132456
132446

coocooo
289389 §ddddd
2288
SNosNo
SN
ENR
SSSRFRaRS NoOooonO~>&88

SEQ 0338

OO0000

b h b d e

D o

NN
NN N
;& Vi
— —
~
ViAo
o~NN flNV:N
RENNONNONOSNO
SOgsgirafi;ghrcwucnhac“

d o

38R

d ok

sMLX4

ctn

PAGE 319

368
57

10445
012445
011166
19
03276
0014

000001

100076

35%:

e6 mgw'f
1579§ 10217
01024'“6

368:

2 g0

37%:
38%:
39%:

15794 18 176
15795 1
2
15;39 10

15799 102216

016746
0g67 7
022626

o 000010
10100

i
ot ool e
408:
15802
10
026666 000014 000016
15 ; 1
88300;

15
102240
15805 102244

15
102260
15
1
94
1g 1? 1
0
1581
1581
1581
1581
15819

16
005266

00016
2706
207

175632
000032
000032
175562

000034

000052

418:

42%:

TOPS

PA:<

12445
MSG3

8175

;?‘ERROUT

8178|

368

8184

57
12446
MSG3
0

8189

R2,=-(SP)
BOARD,~(SP)

: LUN,*

RS,10(SP)

; SECTOR
; SECTOR,*

PC,UP.SOFT.COUNT
(gP)*.(SP)*
R

408

8192
oW

00141;

7-Ma r=19
< HA 2
TESTING RANDOM UNITS, SECTORS. DATA, WORD COUNT 37-m3
r=198 193 3: 4 4

1578C
15781 10 14g
15782
102142
15783
102144
15784
102146
15785 1
12
15786
1021
15787
102154
15788
102162

SEQ 0339

-a'-\:

sMLX4

29-MAR-

002

MACRO M1113

318

RNV\J“—D#&

3
%

bdal

1
:
13:4
1
PAGE
gZO
AND4 TESTING RANDOM UN ITS, SECTORS, DATA, WORD
COUM
RCISER

14(SP)
1 ;SP).16(SP)

: KOUNT
s KOUNT,
=

2
32(sP)
3 (SP) ,52(SP)

; COUNT

: COUNT REPEAT

&
1$
#34,SP
PC

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

7916

7852

37 words

RFORMANCE EXERCISER

MACRO M1113 29-MAR-82 13:41

ING RANDOM UNITS, SECTORS, DATA, WORD COUN T

sMLXG
:

PAGE 521

7-Mar-1982 19:24:42
7-Mar-1982 19:53:41.

DEFINITION OF OPTION S
3589

Zsbttl *DEFINITION OF OPTION 5°

routine OPTS : novalue =

3283

begin

8210

!++

“1

ROUTINE:

v ]«

OFTS

-g 1§
ii PURPOSE:
1%

TO EXERCISE THE ML11 SYSTEMS UNDER TEST IN A RANDOM

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

agts

TO ACCOMPLISH ALL TESTING.

3219 i
8219
azso

THERE ARE 4 RANDOM TESTS WHICH ARE CALLED BY 'OPTS'

i
i

§§ %

8 §4

ggzg
3527
85%3

localREPEAT;

*RAND4' ABOVE FOR MORE INFORMATION.

323?

8 gg
3531.

incr LUN from O to (.LSUNIT - 1) do
begin

TIMES EACHTMRANDOM TEST WILL BE RUN.

if .DRIVE_STATUS [.LUN] eql ACTIVE
then
begin
UNIT = .DRIVE;

8240
8241

if .MLDT
then

g fi

8%3221 =1

8 22

end;
ex

g 23

end;

8250
1

: ég "
33
gs

!THE MORE UNITS THERE ARE ON THE SYSTEM, THE
3

!SEE IF THERE ARE ANY UNITS
ix 2«
'WHICH HAVE 64K CHIPS (ML11-B)

Ix 3 »

;;n'éng IS AT LEAST 1 UNIT WHICH IS AN ML11-B, SO

ugfigo THE REPEAT TIME FOR ALL TESTABLE UNITS.

§ 29

IT IS THE RESPONSIBILITY

OF THIS ROUTINE TO DECIDE HOW MANY TIMES THOSE 4
RANDOM TESTS WILL BE EXECUTED. REFER TO 'RAND1® TO

PRINTB (SAY2, WRD34, RINS):
éés‘s"\'r"'-'%ofrs&n DRIVES:
'FEWER

8235
8239
82
gs 8

”

I4«

'n 3«

end;

! AT THIS POINT,

e 2
'REPEAT' IS BASED ON THE SYSTEM CONFI

ION.
! NOW WEIGHT THE LOOP COUNTS OF THE 4 RANDOM TESTS SO GURAT
THAT RAND1

; AND RAND2 ARE MUCH QUICKER THAN RAND3 AND RAND4.

59 "

TOPS=20 Bliss=16 V2(212)
PA:«EMEM:C.BLI.SZ(£8)

SEQ 0340

RAND1 (.REPEAT):

RAND3 IS LONGEST.

!TEST USING RANDOM DATA

FN
PAGE 322

877 MLX4

—h..-l-l—l-.-l_n-a-‘-i-a_.-.

(ZMLBBO PERFORMANCE EXERCISER
MACRO M1113 29-MAR-82 13:41
RAND4 TESTING RANDOM UNITS, SECTORS, DATA, WORD COUNT

VNV

A2 PN

VOVOVOVVOOVOVOOVOO

W=D

28888 veesw

—

D e

d d e

3283FROS2SY

HON

2228

ViLn

Soooy

RSN

ddddfldddddd‘dfl‘dflflddflddd‘ddddflddd — d b e e

D d e ek

WAIAWIWIWIIA ViAW
v\

2322§
WNNNN -

Y
T

AL T

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

DEFINITION OF OPTION 5

79 -

SEQ 0341

RAND?

(.REPEAT);

'TEST USING RANDOM DATA WORD COUNTS
ITEST USING RANDOM SECT ORS, DATA WORD COUNTS
!TEST USING RANDOM UNITS, SECTORS, DATA, WORD COUNT
S

RAND3
(.REPEAT):
RANDS ((.REPEAT*16)):
retum:

end;

103016

887

e 1 =

OPTS:

007656
4

nog

.SBTTL

OPTS DEFINITION OF OPTION §

MOV

#RINS, - (SP)

JSR

00000

#WRD34 , - (SP)

MOV
MOV

#3,-(5P)
2

TRAP

‘1’2‘2’?‘2

R1,$SAVESL

MOV

#SAY2,~(SP)
14

* REPEAT
* REPEAT

LUN

MOV

034442

B8R
MOV
ASR
ASR
ASR
ADD

3s
R1.R2
R
R
R2
#DRI
. STATUS
VE
,R2

177770

BIC

#177770, (SP)

CLR

18:

,RG

000001

MOV

#1,-(S°)

000010

ADD

#10,sp

DEC
BNE

MOV
ASL

34422
020907
131714
000001

000001

MOV

LUN,

LUN,*

< N

RO
28

R1.R2
R2

PTABLE

LUN,

.ADDR(R2)
,R2

6(R2) ,RO

#1772770,R0
#7,3
. REG+
ML
10

131720

131724

SP,»

m‘gn
gss R3
LSUNIT

077454

101756

TOPS=20 Bliss=16 v2(212)

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

BIT

RO.aML -REG+10
#1.3ML -REG+26

MoV

#1,R3

* REPEAT

R1
R1.R4

LUN
LUN,
=

OPTS

PERF ORMANCE :mcxgea

DEFINITION OF OPTION

15933
} 3 .

15936

102464

726

15;9

15939

102474

01 ;

15941

10;19

15938

1024

19:.?1

47,

] 945 1

15943 102510
1 gz.:. 10251
15945 10251

i35 1062
1 94.8 1 2
1025

e R

AW n

&SHOS

15949

1025
1025

166044

170422

010

1 19
706
2

172734

175256

000010

4s:

PAGE §z§

1
SEQ 0342

H, § )
:

15937

1
1

MACRO M1113 29-MAR-82 13:41

7=Mar=1
7=Mar=1

DEFINITION OF OPTION §

BLT

MOV

19:5‘:‘2
19:23:44

TOPS
PA:<

R3, (SP)

: REPEAT,«

.(SP)

; REPEA,»
T

MOV

R3,(SP)

s REPEAT
,«

8259

MOV
ASL
ASL

R3.RO
RO

: REPEAT,«

8260

8207 |

JSR

MOV

JSR

PC.RAND1

PC.RAND2
PC.RAND3

8257
8258

R
MOV
RO, (SP)
JSR

ADD
RTS

: Routine Size:

PC _RAND4

#10,sP
PC

82 words

: Maximum stack depth per invocation:

13 words

9:
OPTS

PERFORMANCE EXERCISER
DEFINITION OF

MACRO WIT13

29-MAR-82 13:41

'RL

PAGE 324
SEQ 0343

S;-le-wgs 1353‘:‘2

THE OPTION SCHEDULER

-Mar-19

3:44

Isbttl 'THE OPTION SCHEDULER'
BGNTST;

TOPS=20 Bliss=16 v2(212)

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

]

ROUTINE:

*
:

PURPOSE
:

THIS IS THE ONE MAIN TEST OF THE EXERCISER.
IT LOOKS
AT THE AVAILABILITY OF TEST OPTIONS AND MAKES CALLS
TO
THE OPTIONS WHEN APPROPRIATE.

THE QUICK VERIFY PASS INCLUDES THE FOLLOWING ROUTIN
ES:

s
:
:

(1)
(2)
(3)
(4)

SUBSEQUENT PASSES INCLUDE:

!
:
:

(1)
2)
(3)
(4)

]

(5)

]

INTEGRITY
OPTI
oPT
OPT

oPMn
OPT
o0°T
OPT4

OPTS

if .QUICK neq 0
then
begin

PRINTB (CRLF);
PRINTB (SAY3, WRD2,

!THIS IS THE QUICK VERIFY PASS
PHR2

'*BEGIN QUICK VERIFY PASS®

WRD4) ;

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 eqgl 0

'OPTION 1 IS AVAILABLE

!0°TION 2 IS AVAILABLE

'OPTION 3 IS AVAILABLE

MACRO M1113 29-MAR-82 13:41 PAGE ;25il

.lclcl.l1-clnlal.lcl-lalclalalal._!al-lqlclalqlqlalalclclclql.cln.lclclclclil.l.lclcl._lclql.

>EQ 0344

57mar1083 19:3%:4%

THE OPTION SCHEDULER

TOPS=20 Bliss=16 v2(212)
PA:<NEALZ>MLX4.BLI.S (49)

'OPTION & 1S AVAILABLE

if .DROPS e ql
0
then

'OPTION 5 IS AVAILABLE

end;

é
1

151510
077372

077354

157546
077346
177362

$T1:

SBTTL
TST
BEQ
MoV
MOV
Mov
TRAP
MOV

MoV
MoV
MoV
Mov
MoV
TRAP
JSR

ADD
TST

BNE
JSR
TST
BNE
JSR
TST
BNE

$T1 TH E OPTION SCHEDULER
QUICK
1$
#CRLF .=(SP)
", =(SP)

SP RO
14

8292
: SP,»

#WR
, D4
(SP)
#PHR2 .~(SP)

8289

8293

.~ (SP)

#SAY .~(SP)
I .=(SP)

SP .RO

pe INTEGRITY

214
DROP
2%

PC,OPT1

ggopz

BNE
S
BNE

BNE

mow Sw¢lw51w5'we 5mT1mewTm m wm w

30132

PERFORMANCE EXERCISER

OPTION SCHEDULER

MACRO M1113 29-MAR-82 13:41

PAGE §26

SEQ 0345

MLXG

THE OPTION SCHEDULER

; Routine Size:

54 words

7-Mar-1982

57-flar-19

: Maximum stack depth per invocation:

715

10271

767

10271 ?82
]
20577
18 726 00020
7

177620

1$:

.SBTTL

JSR

TRAP
80
RTS

THE

OPTION

19:24:42
19:23:44

TOPS

PA:<

6 words

SCHEDULER

PC,ST1

66
19
PC

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

0 words

8322

CZMLBBO PERFORMANCE EXERCISER
T1 THE OPTION SCHEDULER
16109 :MLX4

}2}}? :
16115 2
16113
;
16114 :
16115 ;
16119 2
}g”
3

16118 F
161
161
161

}2}
‘% }

16127

} }

161

:
3
3

MACRO M1113

29-MAR-82 13:41

K1
PAGE 327
SEQ 0346

S?-nar-wgs 19:56:62

END OF PASS SUMMARY
g

5
9

Z%sbttl "END OF PASS SUMMARY'
routine EOP : novalue =
begin

3 ’

‘44
:
ROUT INE :

335

'
:
!

19:23:44

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

gg}

PROGRAM WILL ALSO APPEAR.

gg%s

THE FOLLOWING IS A SAMPLE REPORT FOR 2 DRIVES:

;

-4

8340

8%1

TOPS-20 Bliss=16 v2(212)

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

EOP

g i ! PURPOSE:
8

7-Mar-1982

PERFORMANCE SUMMARY

gfig ! NUMBER OF MBYTES TRANSFERRED:
4

161
161
} }

8344
8345
ggl‘og

!
!
:

1028 MBYTES WRITTEN
250 MBYTES READ
1145 MBYTES WRITE CHECKED

161
161
161
161
161
161
161
; }

g!‘
34
8350
g 81
e
8353
8354
g gs

!
!
!
!
!
!
!
:

LOGICAL UNIT: 0
DRIVE: 1
SOFT ERROR COUNT:
9
ARRAY 3:
G
HARD ERROR COUNT:
1
ARRAY 0:
6
ARRAY 10:
2
ARRAY 15:
3
TRANSFER RETRIES:
0

} }

835

LOGICAL UNIT: 1
DRIVE: 1
SERIAL #: 9876
DRIVE DROPPED
(CMTRO&,ER FATAL ERROR)
SOF”'I!’RE‘Y!RO? COUNT:
1

]
1

¢
]
1
]
]

]
]

gfi; }z

1(1)

==> RUN ML17 PROM MAINTENANCE PROGRAM

ARRAY 15:
80
HARD ERROR COUNT
:
ARRAY 14:
1

<=> RUN ML11 PROM MAINTENANCE PROGRAM
2

ARRAY 15:

TRANSFER RETRIES:

8370
371
7

local
SFT_TOT,
HRDTOT.

75
76

if .EOPSUM
then

SERIAL #: 1234

TRYZTOT;

*THE OPERATOR HAS ALLOWED THE SUMMARY TO PRINT

‘

%12wa0 PERF ORMANCE EESRCISSR
TION SCHEDUL

16165 ;MLX4

}g}gg :

;
:
:
:
:

14»13e :

16188
:
16189 :
16190 ;

16191 :

1619§ :

D
D et
e —d
S e
et e

dfldddddd-‘ddddddfld-‘d-—ld

AR
22222
o0
VNN
WN—=O 38<[
AV]RIS2882%8

16195
161
161
12}

16194

16193

PAGE 528

SEQ 0347
57-!0:--19

7-Mar=1982

8377
837
837
gsao
1
8 g
8
gw.
5
P
838
8
8389

in
PRINTB (CRLF);
PRINTB (SAY1,
PHR17):
' "PERFORMANCE SUMMARY*
PRINTB (CRLF);
PRINTB (SAY1, PHR12):
!NUMBER OF MBYTES TRANSFERED:
PRINTB (FMT14, .WR_MILLIONS, PHR19);
PIXXXXX MBYTES WRITTEN®
PRINTB (FMT14, .hw MILLIONS, PHR20):
'UXXXXX MBYTES READ®
PRINTB (FMT14,
.WC_MILLIONS, PHR13):
'YXXXXX MBYTES WRITE CHECKED®

8391
839
839
8394
8395

incr LUN from 0 to (.LSUNIT - 1) do
begin
UNIT = .DRIVE;
;
if .DPR eql 0

8390

8396

8397
8398
8399

8400

8401

19:23:44

'n 3 »

then

else

PRINTB (FMT4A, PHR?, .LUN, WRD11, .DRIVE)
'"LOGICAL UNIT: X ~ DRIVE: v'

SAYWHO (.LUN):

!*LOGICAL UNIT: X

8404
8405
8406
8407

if .DROPT_DRIVES [.LUN] eql ACTIVE
then
begin
PRINTB (SAY2, WRD11, WRD21);

840

19:24:42

v 2«

uog

840

PPN~
b =2 D md wnd ek md d ek
CoONONN W =O VNIV
W=D

16181 :

161 i
161
16184
16185
16189

29-MAR-82 13:41

END OF PASS SUMMARY

P I IFIIIII
ISRRVRRRR

16168 :
1619
3
16170 :
16171 161;§ :
16173
16174 :
16175 :
16179 :
16177 :
16178 :
16179 :
16180 :

MACRO M1113

DRIVE: Y

SERIAL #: 2711'

In 4 »

'*DRIVE DROPPED'

selectgne -WHY_DROPT [.LUN] of
se

CCODE_1] :
!*

PRINTB (FMT2, CAUSE1);
(NOT POWERED UP)'

CCODE_2] :

PRINTB (FMT2,

CAUSE2):

(NOT AN MLTT UNIT)®

[CODE_3] :

PRINTB (FMT2, CAUSE3):
(OPERATOR SELECTED TEST LIMITS INCORRECTLY)®

[CODE 4] :
!'

PRINTB (FMT2, CAUSE4);

(ALL RETRIES FAILED FOR A NON-FATAL ERROR)'

TOPS=20 Bliss=16 v2(212)

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

F ORMANCE EgSRCISER

HE OPTION SCHEDUL

16221

}

MACRO M1113

29-MAR-82 13:41

SEQ 0348

:MLX4

§ 3

16224 ;

843

7-Mar=1982

8429

glz
& %

1
:
1
3
16231 ;
1
s
16
2
1
3
16235 ;
1
3
1
2
1
:
16239 ;
16240 ;

7-Har-l98$

END OF PASS SUMMARY

16225 :
}
9 :

PRINTB (FMT2, CAUSE6):
(DRIVE FATAL ERROR)'

[CODE_7] :
PRINTB (FMT2, CAUSE?):
e
(ECC HARD ERROR)'
[CODE_8] :
PRINTB (FMT2, CAUSES):
iy
(ECC LOGIC FAILURE)'
tes;

16243 ;
16244 :
16245 ;

8448
8449
8450

SFT_TOT = 0;
HRD_TOT = Q;
TRY_TOT = 0;

8447

8451
845%

16248 ;

845

1
Sg :
16253 ;
16254 ;

8457
8458
3459

}

- I

16 9 :
16 gg :

16
K
; 6(1) s

}
¢

TOPS=20 Bliss=16 v2(212)

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

CCODE_6J :

8434
8435
84
8437
84
8439
8440
8441
844;
844
8444
8445

end;

16246 ;
16247 ;

19:23:44

PRINTB (FMT2, CAUSES):
(CONTROLLER FATAL ERROR)'

8446

19:24:42

CCODE_S] :

16241 ;
16242

PAGE 329

incr ARRAY from 0 to 15 do

be?in

end;

42(1)

PRINTB (FMT7, PHRS, .SFT_TOT):
!*
SOFT ERROR COUNT: ppBDD*

then

if .SFT_TOT neq 0

464
gzgg

incr ARRAY from 0 to 15 do

theflb

.
egin

‘;l

: SHOULD NOT BE COUNTED IQUARD THE CALLING OUT OF THE PROM MAINEN
ANCE PROGRAM

}

16274

! NOW SEE IF THRESHOLDS FOR SOFT ERRORS

: HAVE BEEN REACHED FOR THIS ARRAY BOARD:

if ((.ARR_TYP eql 0) and (.SOFTS [.LUN, -ARRAY, 0, 16, 0] geq
S16K_LIMIT))

—

7§ ! VER CZMLBB THE FOLLOWING CODE HMAS BEEN COMMENTED OUT BECAUSE SOFT ERRORS

—

}

ARRAY XX: YYYYY'

;

FORMANCE EgERClSER

MACRO M1113

29-MAR-82 13:41

PAGE 330

SEQ 0349

?883838§332&$

PRINTB (FMT2, MSG2):;

==> RUN ML11 PRCM MAINTENANCE PROGRAM'

:'f. ((.ARR_TYP eql 1) and (.SOFTS [.LUN, .ARRAY,
0, 16, 0] geq S64K_LIMIT))
en

PRINTB (FMT2, MSG2);

!'d ==> RUN ML11 PROM MAINTENANCE PROGRAM'

end;

PRINTB (FMT7, PHR18,

.HRD_TOT);

HARD ERROR COUNT: DDDBD’

if .HRD_TOT neq 0
then

incr ARRAY from 0 to 15 do

if .HARDS [.LUN. .ARRAY, 0, 16. 0] neq 0
thenbe ‘
n

PRINTB (FMT9,

.ARRAY,

ARRAY XX: YYYYY'®

.HARDS [.LUN,

.ARRAY, 0,

16, 01);

! NOW SEE IF THRESHOLDS FOR HARD ERRORS
; HAVE BEEN REACHED FOR THIS ARRAY BOARD:

: VER CZMLBB CHANGED TESTING HARDS [TABLE] TO TESTI
NG PM_SBE_CNT [TABLE]

PRINTB (FMT2, MSG2);
!;ld ==> RUN ML11 PROM MAINTENANCE PROGRAM'

end;

PRINTB (FMT7, PHRS.

.TRY_TOT);

:;eg(.ARR.TYP eql 1) and (.PM_SBE_CNT [.LUN, .ARRAY, PM_SBE
S_SUM] geq H64K_LIMIT))

! VER CZMLBB CHANGED TESTING HARDS [TABLE) TO TESTI
NG PM_SBE_CNT [TABLE]

==> RUN ML11 PROM MAINTENANCE PROGRAM'

PRINTB (FMT2, MSG2);

—————
e e

: 'f‘"('(.ARR_TVP eql 0) and (.PM_SBE_CNT [.LUN, .ARRAY, PM_SBE
S_SUM] geq H16K_LIMIT))

THE VHR VHE THE VHD

AR
R RRRRaRRN RRRRR

0
OOSS8BIR AV
CONOAN NN = OO0 ..-n-_.-.-n_._.ooogog
NN NN = OO O ~IO

T aaivalvavl

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

then

—

:
.
WRIOE
V]
*

IR = O V00NNV
=
OO
PN

VNIRRURONIRIROROTR

-2 OO0

Wmamuooomoaua
bbb g
v iviv v vivtvivivivy W

...l.l..l.l'....'......ll

wrOND
oS ONOND

.,;;?.
— — e e el e ek e O D D OO O O OO O

DO
WS
—— — e o e e e
e ek
v ol e
b e e v
NONC NONC NOONONOOONOONONONO\O O OO
i

ONONONONONONONONO
O\ONG

e
e
B

7-flar~19gs 19:24:42
7-Mar-1982
19:23:44

END OF PASS SUMMARY

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

%{HLBBO PERF ORMANCE EgERCISER
THE OPTION SCHEDUL

16333 :MLX4

s H

16343

16
2
16
:
16347
:
16348 ;
16349 ;
16 go :
12 13
1
S; :
16353 ;
16354 ;

16355 ;
16 59 :
16357 ;
12 ;s 3

3
3

1
16364

3
:

}

1
1
1
1

}

1
1
1

gg 3
535

8556

8557
8558

3559

560
8361

565

856

gggg

8566

:
:
3
:

8567
8568
3569
570

:
:
;

g;l

g;%

P 8575

P
P
P

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.S5 (50)

if .TRIES [.LUN, .ARRAY, 0, 16, 0] neq 0

then

PRINTB (FMT9, .ARRAY,
.TRIES [.LUN
.ARRAY, 0, 16, 01);

e
end;

ARRAY XX: YYYYY®

'n 3«

'+
.
: Examine the number of single
: bit errors detected during

!
!
!
!

execution of the exerciser
thus far.
If any were detected
then print them out to the
operator.

if .SBES_COUNT gtr ZERO
then

be?in
PRINTB (CRLF);
PRINTB (SAY1,

PRINTB (CRLFJ;

PHR21);

!Print single bit log summary report

PRINTB (SAY1, SBESHEADER):

i
!
!
!

!Print the column headings

Print to the console terminal for the
operator review all the detected single
bit errors during the execution of this
exerciser thus far.

incrbin?ex from 0 to .SBES_COUNT - 1 do
n

PR?NTB (FMT16

579
857
S;g

.SBE_LOG

end;
end;

'Print all e rrors logged in this table

!This is the printing tormat

.SBE_LOG [.index, UNITS_SBEJ].
.SBE_LOG [.index. anos,Saeg.
-SBE_LOG [.index, BNKS_SBE],

ggg

19:23:44

incr ARRAY from 0 to 15 do

541

SS;
855
8554
8555

19:24:42

if .TRY_TOT neq 0

540
P 54§
P 854
8544
8545
8569
854
8548
8549
8550
gSS1

7-Mar-1982

TRANSFER RETRIES: DDDDD®

then

gg;s

16
16

7-Mar-1982

END OF PASS SUMMARY

SEQ 0350

[.index, BITS_SBE]

.SBE_LOG [.index, SUMS_SBE]S;

!Print the failing unit of this sbe
iPrint the failing board number
'Print the f ailing bank number
!Print the f ailing bit number
iPrint the total sbe's found

mamzn~fa1F=1%zov7Emmao»z~vmTRwaunFI%~aE%7Xa17a}e%Eaw"mowly
1LIo1’A11NM1NI1A1N131ISN1RSO1’6N1Wo1%16[RA=]2N1’e41N3416M~’2e1o1511111111111
NO
3%

“- wS

:MLX4

MACRC M1113

o ~N ~N” N

MoV
MoV
Mov
Mov
TRAP
Mov
MOV
MoV
MoV
Mov
TRAP
MoV
Mov
Mov
MoV
MOV

Mov

TRAP

MoV
Mov
Mov

N(a'¢ waA] wa-[

‘e-‘wa=e e-‘wa*e ‘e-‘wQ«e ‘esswa2‘ea-‘w*s. s-Lw8*Y[+- LY-

6
6
6
“
O
V
O
O
V
7 ‘ss

AO0VNYORT0MO1R8AR[O0e=i=AR3R"SO11OAaI]0SRODO0Se101]R(0D=3RSOR0NaY]OR1IR8TN0VO8S0OR1eTR0RV8lOoaY][RVO1SLoR80OR0ONO.lNoOTmMNS~ gsREom
Ln|smTq~eMySgM=adeATONsoOMQ~a,d§grSwNYSe|AmsSMmQa~Ws.Ydy~4mAewVs»Ni~wAGadNTAPWaQW1A.4%VN~OtTMeAsRi»TAhaNNtOAWT(NIO7a]~I=—QA‘uniPkw>l
CE EXERCISER
HE
ER
29-MAR-82 13:41

END OF PASS SUMMARY

PRINTB (CRLF)
end;

end H

.SBTTL
JSR
sus
BIT
BNE
JMP
MOV
MOV
Mov
TRAP
MoV
MOV
Mov
Mov
TRAP
Mov
Mov

PAGE 332

27-Mar-19
19:5‘.‘2
27-Mar-1982 19:23:44

MOV

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

SEQ 0351

£y

In
2 »

return;

Ix
1 »

EOP_END OF PA SS SUMMARY

8326

8375

8378

8379

8381

TRAP

8382

8384

8386

8388

CZMLBBO PERFORMANCE EX;RCISER

EOP END OF PASS S

MACRO M1113 29-MAR-82 13:41

16445
‘}644

16450 18

16433 18
}22252 }8

076650 000046

001246

16455 18

034422

w.g

177770

w.sg 1
1

164 31

131152
000400

msg 10
16463 1
16464 1
16469 1

10465 1

w.g 1
122 0 1

16471
1

w.;g 1

164

16474 1

16475 10
] ;; 1

16478
|
w.;s 10327

SP,RO
14

W
ASmL

3
gg.ao

MOV

PTAB
. ADDR(RLE
0) ,R3

BIC

#177770 R4

MOV

BICB

PTABLE
.ADD
(RO) ,R3
R
6(R3) ,~(SP)
#RD11,-(SP)

o1ogso

MOV

#PHR7 = (SP)

000005

MOV

#5,-(SP)

006216

MOV

000012

132236

177770

48:

8397

: LUN,*

RS,=(SP)

: LUN,*

RS.RO
RO

8400

; LUN,*

8404

RS.~(SP)

; LUN,*

MOV
JSR

MOV
ASR

#12,5P

PC.SAYWHO

AR
ADD
MOV

RO
#DROP
T .DRIVES RO
+=(SP)

BIC

#177770, (SP)

MOV

000010

ADD

#10.sP

1
1
16490
1
16491 1
1649§ 1

007322
007240
007100
000003

MOV
MOV
MOV
MOV

#RD21,~(SP)
#MIRDT1.-(SP)
#SAY2,~(SP)
#3,-(5P)

%2’5 ]
034446
5018 12946
et 01046
ol0
16433 103374

;

1649 |

8395

: SP,%

#1,-(SPS

101032

SP.RO
14

MOV

8393

#FMTGA,=-(SP)

000001

2.
: LUN,*

RS,=(SP)

1648

8391 |

MOV
TRAP

ADD

3s:

#7.aML.REG+10

MOV
MOV
MOV
MOV

;
,

6(R3) R4

034422
000006
007240

131146

TOPS |
PA:<

; SP,*

LSUNIT,46(SP)

R4.aML.REG+10
ggbo.am..ascnz

16480

MOV
TRAP

BISB
S,‘,E

034444

16481 1

28:

7=Mar=1
19:24:42
7-flar-lggg 19:23:44

END OF PASS SUMMARY

MOV

7 131156

16459 1
}w }o

SEQ 0352

;MLXS
s

w.l.s 18
16449 1

PaGE 533

-I

) - P ORp——
% #CAUSE1,~(SP)
MOV

8395

aaina

e (LUN) *

8407

e
8414

‘

CZMLBBO PERFORMANCE EXERCISER

EOP END OF PASS SUMMARY

16501

16504

s
10

012746 006160
16505 10 32 012746
000002

16506
16507
16583
16509

103410
103412
10341
1
13
16510 17
16511 153426
16513 10
16513
10
16514 10 4g
16515 103442
16519 18

16517

16518 103452
16519 18 54
16520
1
16521 10
165 i 103470

165

103272

16524 103474

01
104414
sg
020327

1911
012746

81 746
12746
01
104414
507

050327

001011
012746
012746
012746
01

000002

000003

165

18 02

16531
165

;2.;»

16535

165
165
165

104414

001911

012746
012746
012746
01

010602
006160

°2‘,’¢3,%’{

000005

104414
000457

8? 746 010656

012746
012746
01

80 '3%; 000006

112746
946 010710

12746
1

}gssg

‘3% 000007

16551
16 ;

12746
12746

17
10441
4

8s:

9s:

160

16545
16

i
ngg

78:

006160
000002

i858
g8t g
}2?"

1asl.§

68:

010526
006160
000002

16525 103476 onz:832737 000004
16527 107506
16528
10
165
165

MOV

010528
0061
000002

8(')273‘
160

108:

7-Mar=1

END OF PASS SUMMARY

MOV

58:

PAGE 534

SEQ 0353

sMLXG

}gs'sgg

MACRO M1113 29-MAR-82 13:41

MOV
TRAP
BR
CMP

BNE
MOV

MOV
MOV
MOV
TRAP
BR

CMP

19:24:42

7=Mar-1

19:53:“

TOPS

PA:<

#EMT2,=(SP)

#2,-(5P)

SP.RO
14
128
R3.#2

: SP,*

68
#CAUSE2,~(SP)

8410

g
8418 |
'
|
l
;
|

#FMT2,~(SP)
#2,-(SP)
SP,RO
14
128

: SP,*

R3,43

8410 |

8422

BNE
MOV
MOV
MOV
MOV

78
#CAUSE3,~(SP)
#FMT2,=(SP)
#2,-(SP)
SP,RO

R3,#4

MOV
MOV
MOV
MoV

#CAUSES , = (SP)
#FMT2,=(SP)
#2,~(SP)
SP.RO

8410

8426

: SP,x

3: N5

TRAP

CMP

BNE

TRAP
BR

MOV

: SP,+

1;3

14
153

#CAUSES ,~(SP)

8410

8430

MOV
MoV
MoV

#FMT2,=(SP)
#2,-(5P)
SP,RO

; SP,%

?%‘u

MOV
MOV

#CAUSE
G6,~(SP)
#EMT2
,-(SP)

MOV
MOV

#2,-(5P)
SP.RO

: SP,«

féin

MoV
MOV

#CAUSE7,~(SP)
#EMT2,-(SP)

M
TRAP

‘

8410

8434 |
:

8410
.

8438 |
|

RFORMANCE EXERCISER
PASS SUMMARY

MACRO M1113

29-MAR-82 13:41

SEQ 0354

sMLXSG

g §§ 805n81§2l11 g 000010
12746
12746

010756
1

7gg

ooooos

706

74
782
71g
71

5
010

00001

é‘no

MOV
MOV

#CAUSES, ~(SP)
#FMT2,-(SP)

MOV

SP.RO

; SP,*

1§s:

ADD

#6,SP

14$:

CLR
CLR

gss 000042

;
7
4

CLR

ASL

:
1 °8§

158:

032714

7;5
7
75

033314
033714

;

gw 000017

7
7
776

16616
12746
012746

000046

000044
000042

000046
010004
006446

T R
s#“ 000054
1463
1

1612

032714

} ;:6
12746
534
15766 000003

861¢

000017

128

#10,sp

178:

23"“’
R4 ,R3

HARDS (R3) .44 (SP)
TRIES(R3) .42(SP)
R2

MOV
MOV
MOV

: ARRAY
:

8452
8454

8454 |

: ARRAY,*

: =, SFT.TOT

“n?

: ARRAY,+

8455
8455
8452

46(SP), (SP)
#PH
, =RS
(SP)
#FEMT7 . =(SP)

: SFT.TOT,»

8459

MOV

R
R&.R

ASL

?zlc,

: TRY.TOT

; LUN,*

: *.HRD.TOT
: = TRY.TOT
: ARRAY

S
Ps'?‘P gz(sm
BEQ
1
CLR

8406

ADD
ADD
INC

283
MOV

SOFTS(R3),46(SP)

MOV

8442

&
8449
8450 |

:.g(sp)

ADD

BEQ

pfi

8410

: SFT.TOT
* HRD.TOT

RS.RO
RO

g;.ns

MOV

19: 3:4%

46(5P)
44 (SP)

:gt

ADD

19:24:4

168:

;
5606
.

'c'fx
MOV

acfi

‘

ADD

MOV
ASL

TRAP

-1

73?-1

S,':

138:

000046
000044

END OF PASS SUMMARY
B8R

118:

104414

F 12

PAGE 335

ng.n

.
‘ SFT.T
' OT
:

: ARRAY
:

: ARRAY,*

8462
8465
8467

sgnsum.ns

17$

23"53.’3
#3,-(5P)
=

#FATS,
- (SP)

:w.sp

ag./m

: ARRAY, *

: ARRAY

&22

: ARRAY,*

SURPAART

OF PASS

MACRO M1113

010

18%:

29-MAR-82

82 13:41
13:41 PAGE 236

SEQ 0355
TOPS
PA:<

END OF PASS SUMMARY

35t

52(SP), (SP)

s HRD.TOT,»

#PHR18,-(SP)
#FMT7 ,-(SP)

: SP,*

pa—ry3

NS
NN

19%:

033314

PPN NN

7
710
6

: HRD.TOT

8496|

s ARRAY

8499|
8501

é ARRAY , *

R
HARDS (R3) ,R2

22%

R2,-(SP)

006534
000003
002000

130202

012264

000012

R1,-(SP)
lfflf’s-(SP)

; ARRAY,*

SP, RO

: SP,»

1%
osooo.an.mozc

m’sae CNT(R3) ,#12

T RS
#2,-(5P)

130136

208:

000012

SP.RO
1%
SP

g?goo.a.mm
PM.SBE.CNT(R
,#12
3)

21%

O =0

oS08 2R flddddsd
b

8493

l3.°5SP)

~Nn

2 EX-N-NN o3iE\rujuuc~
XN<53 igxru~mh
- 328R
33;3krnnnuda

o
BN '

W
~

sMLXG

MSRS.-(SP)

PEMTZ

. ~(SP)

#2,-(5p)

ASS

FORMANCE EXERCISER

23$:

SP.RO
1%
#6,5P

#10,sp

: SP,»

* ARRAY

3: M7

s ARRAY,*

56(SP), (SP)

19§

#PHRG - (SP)
#EMT7 ,-(SP)

TRY.TOT,«

#3,-(SP)
Té

64(SP)

: SP,»
2

TRY.TOT

8504

—
—

——
e—

——

CZMLBBO PERFORMANCE EX;RCISER

EOP END OF PASS S
16699
166

MACRO M1113 29-MAR-82 13:41
sMLX4

;22;1 1
1667§ 182
16674 1

1425
5

55g5
16679 1

Sead

16678

104354

1612

24$:
033714

1
1

1
lg
10441

4
702

i e
1669, 1826
&

00;

000010
000017

000002

104456

16701 1
1

16703
16

496

1
g
106472

1064510

SP, RO

25%:

28$:

R2
R2,#17

: ARRAY

: ARRAY,*

24$

li‘.SP

:LUN

:5 46(SP)

* LUN,*

288

§?§$.COUNT

#CRLF ,~(SP)

SP.RO

012716

12746

14
#10,5P

#1,-(5P)

§1 746 005

010600
104414

; ARRAY,*

#EATY, = (SP)

27%:

E ARRAY , «

#3,-(5P)

000046

007066
000001

s ARRAY

R4 ,R3
R;.RS

R2.-(SP)

26%:

is
i1635 1&253
e 104414
g

2
ke

TRIES(R3
,R3
)

000024

176520
106226

S?-fllr-1gg$ 19:
19:

258
R3,=(5P)

7
B

7=-Mar=1

END OF PASS SUMMARY

18 hoe 56

16685 182 7
i
g

PAGE gS}z

SP'.

SP..

SP'.

#PHR21, (SP)
#SAY1,-(SP)
#2,-(SP)

are 0070€%
000001

012716

#CR
,LF
(SP)

ll.'éSP)

#SBESHEADER,
(SP)

#SAY1,-(SP)

b
b

W)
—

106130

s INDEX

29%:
b

d mt md

16715 1
1271’

104414

16714 1

#2,-(SP)

1§71 1

1 71; 1

R
SBE.LOG+2(R3) ,~(SP)
#SBE.LOG,R3
(R3) ,R4
R4

INDEX,*

8544

(ZMLBBO PERFORMANCE EXERCISER
EOP END GF PASS SUMMARY

1
MACRO M1113 29-MAR-82 13:41 PAGE iuz

SEQ 0357

sMLXG

$ro8
ae
18342
r

TOPS
PA:<

(=] 4
2

O wM

TRAP
ADD
INC
CMP

BLT
ADD
MOV

328:

TRy ‘s e‘a etas ‘e

MOV

L-aL]4 ww2—g owa-

SIS RAR RASTYeI IIRnaNT w -

N- g Pg TNoS0¥7T~wT-=—T=NTm==mT=-8~=—=TMNm-E~—TmT.t$-~TmTT
"s-'.”1OsZ|"as.’d-&Rs-“RNNa'VI~-O~RoOl(wae-n"R'RON(avIw4R~-[-RRBARa-anC['N~NwAdnRIyNN‘@-I&“—”"“R

END OF PASS SUMMARY

Mov
MOV
TRAP
ADD
ADD

RTS

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

40 words

CZMLBBO PERFORMANCE EXERCISER

EOP END OF PASS SUMMARY

16775 :MLX4
16776
18773
°;

8590

puerd

o
NNN

16781

16784

16785 :
16786
:
16787
;
16788
:
16789
:
16790 ;

ZXsbttl 'CLEANUP CODING SECTION'

3;3"5

! EACH PASS THROUGH THE EXERCISER.

596

EOP_COUNT = .ECP_COUNT + 1;

59
598
5

1
§

8609
8607
8608

EOP ();
return;
ENDCLN:

16801
1
104724
1
104730

oos;gr
026727

125754
125750

1
104740
1
104744
16810
104750
123111
754

012746
012746
81 746
012746

007212
007730
007206
007112

16813
104764
16814 104766
16815 104770
1
19 104772
16817
1
773
1
13 105002
16819
105
1
1

010600
104414
000414
016746
12746
012746
012746
012746

PRINTB (FMT3, WRD3, WRD4, .EOP_COUNT);

sso!
ls 1'% END PASS XX #+°

104

1;1

(51)

if .EOP_COUNT eql 1
then
PRINTB (SAY3, WRD3, PHR2, WRD4)
'"END QUICK VERIFY PASS®
else

16794 :
16795 ;
}6
:

1679§ :

TOPS=20 Bliss=16 v2(212)

PA:<NEALE>MLX4.BLI.5

! THE CLEANUP CODING SECTION IS EXECUTED AFTER

860

ST-’ur-‘WBS 19:54:62
7-Mar-198 19: 3:44

BGNCLN;
I+

3321 :

PAGE i39

SEQ 0358

8591
5
592

359

29-MAR-82 13:41

CLEANUP CODING SECTION

1677

167

MACRO M1113

1015

000001

.SBTTL
LCLEAN: INC
CMP

BNE

760 81 7646 000004

105016

125706
007212
007206
006166
000004

8596

8598

MOV
MOV
MOV
MOV

#URD4 , = (SP)
#PHR2,~(SP)
#URD3,
- (SP)
#SAY3 .- (SP)

MOV
TRAP
BR
MOV
MOV
MOV
MOV
MOV

.RO
14
28
EOP.COUNT,~(SP)
#UR
, ~(SP)
DS
#WRD3,
- (SP)
#FMT3.~(SP)
#6,-(5P)
SP.RO

: SP,*

MOV

18:

LCLEAN CLEANUP CODING SECTION
EOP. COUNT
EOP.COUNT,
#1

MOV

#4,-(5P)

1685
103035
s 175700
16824 1050 O0a3e
;§3
000012
et 103088 05

28:

1
1

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

: SP,*

ISR PC.EOP
#12.5
S P

ADD

5 words

IMLBBO PERFORMANCE EX

CLEAN CLEANUP CODING

%.;»g

MACRC M1113

29-MAR-82 13:41

K 12
PAGE 340

SEQ 0359

16837

} g? 105 gz
1
1

.SBTTL

177664

16631
16858
168

-0

gS
(=l=l=]

LSLAST==

——t

0 words

LASTAD;

105050
000000

%685; 10505
}688% 105053 000207
16882

BGNSETUP (0);
ENDSETUP;

BLSLAS::.WORD
WORD
TSFREE::.WORD

—

SRR

—hd;
v

(e]
o

Sesasn

" %an,.

m&:-ng

— —
e
D
d

RTS

PC,LCLEAN
15'

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

58
16859

6871
1
7;
1687
16874
16875
16876

LsCLEAN:jSR
TRAP

LSCLEAN CLEANUP CODING SECTION

TSFREE
<<TSFREE-<BLSLAS+4>>/2>
O

BLSLAS+4

TSPTHV==

+SBTTL
SEND.LINK::
RTS

; Routine Size:

SEND.LINK CLEANUP CODING SECTION
PC
1 word

8607.

BBO PERFORMANCE EXERC]

Sf?

MACRO M1113 29-MAR-82 13:41 PAGE s“12

T
T Y

«LINK CLEANUP CODING SECTION

SEQ 0360

sMLXS

S?-flarow

CLEANUP CODING SECTION

0 words

b =

: Maximum stack depth per invocation:

7-Mar-1982

OO
ARRARD
0000V
VOOD oo
— d d d e d D D e

323
000%

;: OTS external references
.GLOBL BLSGT2, SSAVES, $SAVE4L, $SAVE3
.GLOBL
S$SAVE2, BLSPU2, BLSSHF, BLSDIV
.GLOBL BLSMOD, BLSMUL

0
1

; Size:

2 Run Time:

: Henor{ Used:

; Elapsed Time: 02:08.4

10337 code + 5852 data words

01:43.8

000001

Compilation

.END

161 pages

Complete

19:24:42
19:23:44

TOPS

PA:<

BLSPU2
BLSSHF

004614 G
005214 G

BOE
=
BR.LEV

%6
03271

BLSMUL
BLSPUT

44 G
520 G

BOARD

CAUSE1=
CAUSEZ=

CAUSE3=
CAUSE4=

CAUSES=

e 88

010460
010502

010526
010602

CAUSEZ= 01073
CAUSES= 010736

CheCk

CLRTBL
COMP.

CONF I6

FMT11 = 006654
FMT12A=
FMT128=
FMT13
FMT14
FMT15
FMT16
FMT
FMT
FMT4A
FMT4B
FMT4C
FMTS
FMT
FMT
FMT8
FMT9
FSAU
5
FSAUTO= 000020
FSBGN = 000040
FSCLEA= 000007
FSDU = 000016

DATA.C
DECODE
DFPTBL
DIAGMC=

032700
037176
002210 6

000000

HARDS
033314
HELP = 000000
HOE
= 100000
IBE
= 010000
IDU
= 000040
IER_
= Og
0
INIT.A 0O
6
INTEGR 047232
ISOLAT 037332
ISR
= 000100
IXE
= 004000
ISAU_ = 000041

ISAUTO= 000041
ISCLN = 000041
ISDU = 000041

D = BT ek el ok b
b d cd wd d i

T T
T
T
(O O
U

"“mmY

—

g335852
485223
n<-4agcr~ &

By St
B
3 b
Bt
B
ey B
B

PAAANN
-4

St Pt By B

e
Gfififififififififlfifififififlfimfifififififi

G
005202 6

= 000001

BLEAOD

i
$PRMA

—_

¢
BLSLAS 105044

BLSGT2 004536

ESEND = 002100
ESLOAD= 0000
FILLER 041266
FMT1A = 006126
FMT1B = 006142

GET.WR

GSCNTO=
GSDELM= 000372
GSDISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000

NNV

005170 G

C$GPHR= 00004
CSGPLO= 000030
CSGPRI= 000040

ERRBLK

JSJMP = 000167

SeSesS39
S —
eT T
NN
eneSNRIRIER
ESREIE=R

BLSDIV

CSETST= 000001
CSEXIT= 000032
CSGETB= 000026

ERRMSG
ERRNBR
ERROUT
ERRTYP
EVL
= 000004

FSHW =
13
FSINIT=
FSJMP =
FSMOD = 000000
FSMSG = 000011
FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
FSSEG = 000003

CSESU8- 000003

000041

(212171)

8178 = 000400¢
BITo = 00160
06

CSESCA= 000010

FSHARD= 8

[2]7)

= 000040 G
= 000100 G

CSERRO=
0
CSERSF= 000054
CSERSO= 000057

DROPS
ECCDIS
EFNS21
EF .CON=
EF .NEW= 00003
EF .PWR=
EF :RES=
EF.STA= 000040
END.RB=
END.W8=
EOP
EOPSUM

NI
=~-ty
NN N\ -

BITS
BITé

C$DODU= 000051

CSDRPT= 000024
CSDU = 000053

il
Al Tl AT T AT AT T2 1)

BITO3 = 000010 6
BIT04 =
000020 G
BITOS
= 000040 G
BIT06
=
000100 G
BITO7 = 000200 G
BITO8 = 000400 G
BIT09 = 001000
G
BITI | = 000002 G
BIT10 =
002000
G
BITI] = 004000 6
BITI¢ = 01
G
BITI3
= 020000 6
BIT14 = 040000
G
BIT1S = 100000 G
BITE" = 000004 G
BIT3
= 000010 G
BITé = 000020 G

CSCLEA= 000012

CSCLOS= 000035
CSCLP1= 000022
CSCVEC= 0000.
CSDCLN= 000044

= 00000¢ ¢

FSEND =

3%
OOONOg -oo
SRSy
[ ¥ - X}

BIT02

SEQ 0361
D1VMOD
DOUBLE
DRIVE.
DROPNE
DROPT.
DROP1
DROP.
DROP
DROP4

aooOoOoe

CSAU_ = 000052
CSAUTO= 000061
CSBRK = 000052
CSBSEG=
C$85uB= 00000
CSCEFG= 00004
CSCLCK= 000062

12
PAGE 341-1

29-MAR-82 13:41

i
“u

BIT00 = 000001 G
BITOT = 000002 6

MACRO M1113

4
SOOO
=1
K& SSoes
NN3

=44

S m

BANK

ASSEMB=

(4]

288~ N
o

ADR

(ZMLBBO PERFORMANCE EXERCISER
SYMBOL TABLE

CZMLBBO_PERFORMANCE EXERCISER
SYMBOL TABLE

LSHW

LSICP

LSINIT

LSLAST=
LSLOAD
LSLUN
LSMREV
L SNAME
LSPRIO
L$PROT
LSPRT
LSREPP
LSREV
LSRPT
LSSOF T

G
G
G
G
G
G
G
G
G
G
5474 G
450 G

LSSPCP

LSSPC

LSSPTP
LSSTA
LSSW
LSTEST
LSTIML
LW

L1
L10001

L1
L1

056 G

88 024 G
g
G
88 22 G
114 G
002014 G
00 018 G

MARPAT

43 G

MLB10 =
MLB11 =

47
007500

MLB13
=
MLB14 =
MLB15 =
M‘lg =
MLB17
=
H.B‘ls =
MLB19
=
=
MLB2O
=
MLB21
=

310
007514
007520
"' &
00
007
007
0074
(0 7?
"' 4

M1§ =

ML
ML
ML
ML
ML

504

=
=
=
=
=

00
','
00
2
;43
007440

0074

fl.g
MLBY

=
=

4
007

NSGO

MBS

MLB7?

ML.REG

nSee
nsgi =-

MSG5 = 011516

NUM.DR

ONEFIL=

034456 G
1

Y
002232 6
OPT1
051460
OPT
054054
OPT
060052
OPT4
062444
OPT5
105272
OSAPTS=
1
0SAU = 000001
0$BGNR= 000001
0$BGNS= 000001
0SbU = 000001
OSERRT= 000001

0SGNSW= 000001

OSPOIN=

0SSETU= 000001
PATTBL 034520 G
PATTER 032676
PHR1
= 007714
PHR10 = 010120
PHR11 = 010140

PHRI% = 010202
PHR13 = 010540

P.AAD

P.AAE
P.AAF

P.AAG

P.AAH
P.AAI
P.AAJ
P.AAK
P.AAL
P.AAM
P.AAN
P.AAD
P.AAP
P.AAQ
P.AAR
P.AAS

P.AAT

P.AAU

P.AAV
P.AAW
P.AAX
P.AAY
P.AAZ
P.ABA

P.AB8
P.ABC

00612

P.ACJ

006166

P.ACL

006160

006216
006252
006270
006320
006376
006446
006466
006534
006564
006640
006654
0067:0

006756

007024

007046
007060
007066
007072
007100
007112

007130
00715

PHR17
= 010342
PHR18 = 010366

P.ABG
P.ABH

007220
007230

P.ABF

P.ABI

PRI ; =

PRIOS

PRIOG =

012264
1888 G
G
G
9

P.ABT
P.ABU
P.ABY
P.ABW
P.ABX

160 G

P.ABZ

100

208 G

PRIOS =
PRIOS
=

;6 G
00 G

PTABLE

422 G

PRIO?

340 G

PIM8 0087%
P.AAC 006042
-

P.ABJ
P.ABK
P.ABL
P.ABM
P.ABN
P.ABO
P.ABP
P.ABQ
P.ABR
P.ABS

P.ABY

P.ACA

007212

007240

007246
007556
7264
007%72
4 ?0
7312
7322
007332
007336
7344

7354
7370
7400
7412
07416
7424

007430

887434

P.ACB
P.ACC

7440
807“4

P.ACE

007454

P.ACD

07450

PIACG 07ée
P.ACH 007472
Ld

P.ACI

00614%

007200
007206

PHR‘I; = 010322

N 12
PAGE 341-2
SEQ 0362

P.ABD
P.ABE

PM.SBE
PNT
=
PRI
=
PRIOO
=
PRIOT1 =

29-MAR-82 13:41

PHR14 = 010266
PHR15 = 010304

PHR19 = 010410

0074

= 011202

PHRZ2
= 007730
PHR20 = 010430
PHR21 = 005662
PHR3
= 007746
PHRG =
007770
PHRS = 01
PHR6
=
01
§6
PHR?
= 010050
PHR8
= 010066
PHRY
= 010100

= ',' 4

fl.fl’

MSG4

MACRO M1113

P.ACK

P.ACM
P.ACN
P.ACO
P.ACP
P.ACQ
P.ACR
P.ACS
P.ACT
P.ACU
P.ACY
P.ACW
P.ACX

P.ACY

P.ACZ

P.ADA
P.ADB
P.ADC
P.ADD
P.ADE
P.ADF

P.ADG
P.ADH

007500

007504

887510
7514

007520
0075;4
007530
007534
007542
007550
007554
007560
007564
007570
007574
007626

P.AEN

P.AEO

011070

P.AEQ

11202

11120

P.AEP

11186

P.AER
QH1
QH
QH
QH4
Qs1
Qs10
Qs11
as12
Qs13
Qs14
Qs15

11 13
233
002351
002374
002425
88 632
5
003554
003637
003657
003724
003763

007634

Qs16

0040

007650
007656
007664
007672
007700
007706

Qs2
Qs3
Qs4
Qs5
Qsé
Qs?

002732
013007
003047
003107
003147

QUICK
RANDOM

032674
005464

007642

007714
007730

Qs17

004

0S8
Qs9

003454
003474
003514

P.ADI
P.ADJ

007746
007770

P.ADL
P.ADM

010026
010050

RAND2
RAND3

0107100
010120
010140
010202
010240
010%66
010304
010322
010342
010366

RANGE
002224 G
RBUFF
022670
RIBUFF= 02
RDBUFF= 022670
RD.COU 034
RD.MIL 034326
RD.THO 034324
READ
04561
REFRES 002252 G
RETRY
046%24

P.ADK

P.ADN

P.ADO
P.ADP
P.ADQ
P.ADR
P.ADS
P.ADT
P.ADU
P.ADV
P.ADW
P.ADX

010004

010066

RAND1

073124
075444

RANDG

P.ADY
P.ADZ
P.AEA
P.AEB
P.AEC

010410
010430
010444
010446
010450

RETRYI
RE%
RE
RE4
RN

P.AEE

01048g

RNDU

P.AED

P.AEF

010454

0185

P.AEG
P.AEH

81 5 g
106

P.AEJ

010710

P.AEI

0109 6

PIAEL 010736
P.AEM 011002
Ll

070540

034340
005362
005360
005356
005370 G

RNDSEC

070%40

RNDWC

870206

RPTR
RINO

RIN1
RIN2

070336

32272
= 007574

= 0076;2
= 0076

RING - 0076sd
RTNS = 007656
:

CZMLBBO PERFORMANCE EXERCISER

SYMBOL TABLE
RTINSA =

RINSB

SvCsus= 000001

SVCTAG=

RINSC =
RINSD =

SVCTST=
SYSERR

SAYWHO

SSLSYM=

1
1710

SAY]l
SAY?

=
=

TOP. SE
TRIES

SAY4

TRT01 = 0104

SAYS

SAY5

TRT00

SVCINS=
. ABS.

= 010444

TRT11 = 010454
TSECT
OOS'230 6

S&.%O

SEED
SEED§
SEED
SELPAT
SERVIC
SET.PT
SFPTBL
SOFTS
START.
SVCGBL=

Oglo
6
033714

TRT10 = 01045

SBE $HE =
SBES.C

T$ARGC=

T$CODE= 020130

TSERRN= 000000

TSEXCP= 000000
TSFREE 105050 G
TSGMAN= 000000
TSHILI= 000012
TSLAST= 000000
TSLOLI= 000001
TSLSYM= 010000

4
1

TSNEST= 177777

TSNSO = 000009

105054

0
ERRORS DETECTED:

MACRO M1113 29-MAR-82 13:41

PAGE g‘l-J
SEQ 0363

TSNST =

032710

WRD36

TSPTNU= 000000
T$SAVL= 177777

WBUFF
012670
WCBUFF= 013670

TSSUBN= 000000
TSTAGL= 177777

WwC.Cou

WRD38
WRDS

WC.MIL
WC.THO

034
034332

WRD4O =

WHY.DR

034446 G

TSSEGL= 177777

TSTAGN= 010005

TSTEMP= 000000

TSTEST= 000000

ISTSTM= 177777
T$TSTS= 000000
TSSHAR= 010002

T$SSHW = 010000

TSSPRO= 010004

T$$SOF= 010003
T$$SW = 010001
T
102712 6
UAM
= 000200 G
UP.HAR 037422
UP.RD.
5240
UP. SOF
0104
UP.WC. 045332
UP.WR.

045146

000

VEC

WAITER 044429

TSPTHV= 888800 6

001

VIRTUAL MEMORY USSD:
31919 WORDS
( 125 PAGES)
DYNAMIC MEMORY:
21558 WORDS
( 82 PAGLS)
ELAPSED TIME:
00:09:52
CZHLBB.BIN.CZHLBB/CR/-SP=SVC/HL.CZHLN.DUC.HLXZ.OTS.RAND
M.HLX

S."LX‘

034

WDBUFF= 012670
WPTR

032670

WRD37

0073

0074

=
=

00741
00721

007416

WRD4T =
IRD? =
WRD7

WRITE

WR.COU

007424
007
007

0;2426

WRD11 = 007240
WRD15 = 007246

WR.MIL
WR.THO

WRD17 = 007264

XSFALS=
XSOFFS= 000400
X$TRUE - 0000';’0
SEND.L 105052 G
SPATCH 004134 6
$SAVE2
005262 6
$SAVE3
005276 G
$SAVE4 005314 6
$SAVES 005334 6
T
102536

WRD16 = 007256

WRD18 = 007272

WRD19 = 0073
WRD2 = 0072
WRD20 = 007312
WRD21 = 007322
WRD24 = 007332
WRD25 = 007336
WRD3 = 007206
WRD34 = 007344

WRD35 = 007354

XSALWA=

(ZMLBB
CREATED BY MACRO ON 29-MAR-82 AT 13:44
PAGE 1
SYMBOL CROSS REFERENCE
CREF
SYMBOL
V
ADR
ASSEMB
6-13
BANK
*98-2978
+99-2991
100-3052
*1
TEf#81-165
89
89-2338
97-2909
#81-1 3‘
*99-3005
103-3226
104-3290

SEQ 0364

103-3237

105-3302

108-3474

109-3522

108-3485

109-3530

155-6371

185-8022
341-16905

205-9118

209-9381

225-10222

273-13132

282-13730

297-14575

298-14593

164-6887
297-14560
340-16869
118-4116
95-2787

180-7728
322-15915
340-16873
261-12206
341-16906

520-8836
3-16485

05-9143
1-16904

220-9931

242-11178

265-12395

273-12846

263-12297

265-12380

265-12404

341-16906

47-220

47-231

50-339

85-2133

85-2140

111-3672

112-3685

2%-595
*99o

118-4112

13-188
52;5?9

13-192
23-605

14-217
24~632

29-838

13-184

100-385 104-3246 104-3271
"3 1
168-7119
169-7140
171-7267
187-8
205-9109
209-9350
209-9367
2 7-10508 % 7-10325 247-11460 248-11481 25%-117 9
g 9-1214
273-131
123 %73-13212 %7 -13% 3
02-1483
302-148?2 273-13
304-14946
304-1496
18-15671

19-406

19-417

30-880

155-6370

2351081
§3-19073s
N

VIS
NN -=O

VNN ESUNIND
= b b e e e b

e e b

St eBt Bt Bt Bt g Bt ot
Lendan L

e e e e e e ] e e e

—t =

IRIRIRER

D 0o 0 O 00 T O G0 O 30 LTySt
00 OO 0 0 0 @

BITO

O oot oo QOOGOOGOOGOGGfiflhfifififlfififififiafl

28912106

(ZMLBB

CREATED BY

SYMBOL CROSS REFERENCE
StreoL v

MACRO

ON 29-MAR-82 AT 13:44

FERENCES

BR.LEV

CAUSE1 =

1-1653

+88-2291

1906

%-g7s¢

CAUSES

CAUSE2

190

CAUSES
CAUSE?

=
=

1910
-1911

ek, CHOOSE

046166

CLRTBL

034554

COMP. ¢
CONFiG

2763

CRLF

CSAU
CSAUTO

=
=

007066

47
9081
20189

ms—ogs

(2313767
~2078

#81-1
#93-2703

#8351816

#6-13
#6-13
#6-13

&l :
CSDRPT

CSCEFG
CSCLCK
CSCLEA
CSCLOS
CSCLPT
CSCVEC

=
=
=
=
=
=

CSOU =
CSEDIT
CSERDF
CSERMR

CSERRO

CSERSF
3ERSO

CSESCA
CSESEG
CSESUB

CSETST
CSEXIT

CSGETE
CSGETW
¢

=
=
=
=
=
=

=
=
=
=
=

=
=
=
=
s

c3ePo =

CSGPRI

831

CREF

SEQ 0365

33358599
334-1

96-2858

334-16519

-16543
-16551

110-a
038° 153-6265
06-9

154-6301 154-6312 169-7147 169-7152 171-7238 182-782
183 22210026 24-1
1290 249-11589 25411848 29321538 1337838 295-14653

181-7806_

201-8905

111-3644

118-4102

299-14655

+116=3996
112-3678
88-2301

#6-13
#6-13

C$8RK =
=
(SBSUB =
C$BSEG

90-335

PAGE 2

$14-15484

89-2330

206-9166

221-10004 24411269 249-11548

154-6342

325-16041

332-16410

332-16419

25411827

2731291

337-16696

337-16705

—

|
|
|

#6-13
#6-13
#6-13
#6-13
#6-13
#6-1
-

#6-13
#6-13
#6-13
#6-13
#6-1
#6-1

6-65

#6-13
#6-13
#6-13
#6-13
#6-13

#6-13
#6-13

#6-13
#6-13
#6-13

"o13
=

#6-13

|
{

(ZMLBB

CREATED BY

SYMBOL CROSS REFERENCE

SYMBOL

CSINIT

CSINLP
CSMANI

=
= 000G

CSOPEN
CSPNTB
CSPNTF
CSPNTS

=
=
=
=

000011

MACRO

ON 29-MAR-82 AT 13:44

REFERENCES

E13

PAGE 3
CREF

SEQ 0366

s6-13
#6~1
#6-1

CSPNTX

(s010
3
CSREFG

CSRESE
CSREVI

CSRFLA
CSRPT

CSSFFG
CSSPRI

=
=
=

=
=

DIAGMC

DRIVE.

END.RB
END.WB

EOP
EOPSUM
EOP. CO
ERRBLK
ERRMSG

2234
4h4
36
0
42
4
50
5

=
=
=
=
=

=
=

#6-13
6-65

#6-13
#6-13

034442 G

DROPNE
DROPT.
DROP1
DROP?
DROP
DROP%
DROPS
ECCDIS
EF.CON
EF.NEW
EF.PWR
EF.RES
EF.STA

#6-13
#6-13

=
=

DouBLe

#6-13
#6-13

=
=

CSSVEC
CSTPR]
DATA. C

DE CODE
OFPTBL

#6-1
#6~1
#6-1
#6~1
#6-1
#6-13
#6-13
#6-13

G
G
G
6
G
G
G
G
G

G
G
G
G
6

2 6
6 G
G
6 G

#6-1
#6-1
#81-1644

*116-3993

613

6-13

#98-2972
#7-117

100-3049

118-4104

155-6373

1339708 166 4086 182283

01-8931_

206-9193 222-10035 244-11299 249-11578 254=11857

26205 8 i rhoo1aes 8322138 111 3653
20-9925
242-11172 265-12389 273-1

-160
46=201
#8-161
16
#8-16
#B-164
#8-166
#8-169

# 8egsgy

831705
47-2
83-1723
83-1724
3-1704
3-1724
83-170¢
1725

03-17¢2

B3-214
#82-1695
+85-2148
+85-2149
+85-2150
*85-2151
+85-2152
88-2096

185-8027

2840

281-13699

85-2135
333-16479
325-16054
325-16057
5-16060
323-16065
5-16068
|
131-4772 131-4807 131-4858

210-9390

225-10227

#B3-1757
#83-1758
#83-1759
#83-175
#83-175

#83-1790
#83-1789

44=31
#8-188
#81-1648
#7#7-9

156-6439

164-6881

297-14556

44-39 " #332-16405 339-16823
83-1725
332-16407
+84-2101 +339-16805 339-16806 339-16816

258-12048

180-7722

322-15609

131-4956

273-13137

200-8830

138-5458

287-14008

205-9137

303-14869

ON 29-MAR-82 AT 13:44

CREF

SEQ 0367

a&lv’soifl“ 1|¢l¢l¢l¢lcl

852223

Mflflc:MfiUarA!l smmben:lb1mamm3i1llwnansmkmtumd>s+

£m

F 13

PAGE 4

U
00O P MAo ,

CZMLBB
CREATED BY MACRO
SYMBOL CROSS REFERENCE
SYMBOL
ERRNBR
174 G
ERROUT
260 G

170-7218
5 1-116
17-15¢ 22

§
2867
182278
4

-2724

334-16512

319-15728

94-2757
334-16520

-2832
334-16528

94-5723
97-2911

333-16467

258-12076

203-9039
273-13058

208-9301
273-13168

210-9418
285-13931

224=10147
287-14036

206-9206

222-10048

245-11316

250-11595

255-11874

206-9213

222-10055

245-11323

250-11602

255-11881

96-2859
33416536

334-16544

242-111

244-11265

249-11544
335-16564

254~ 11823
336 16642

6-13

144-5796
336~ 16619

336-16663

336~16633

337-16681

6-39

8-259

8-302

9-379

9-411

6-13

146~5894

183—8059

339-1 3319
90- '
9090971393;5-16
9 =2905
335-16605

g‘SS

1801

184-7947

§S6°11

snmnwnu u1

SR80

334-16552

148-5992

(oLCOMm&So8HR0OMN=MfY1UY0I3YA00m—l©MCGM080NMOO03CL6NO96I03LO0-n0—MC6MMG8Ot1wO0e0GyM6AGO3n0016MWln682000LM0N0.©)M033-00S~406@L:I013H.—©A—GiN6b38C00Oor0u0CMG6.\EaYO0y0OTEn36000L0puG.O0©NNH©43LGL6000@0-AuMCMS6G0820000CCA360NM08O02G00C.G10DI10WO-e0@EMNM3$00G000.n\M%©d01N0O.4.1w0%1t90.l0..-013x.0.1|0l3.ou©N[N©mo—Re9~=|e3n.-NS4w=.oM-ToN%moP=uN\Rm3.=tL4~.fEhulI2..e.P5I3~sTuQ4O)42)O)S2W40344S6o)"=23)-o~8@!m4))~4w434o6643S"Ro4443Oo©a44O434lc4OWTW®MO4&@T@-3~O3[MN&Tm2o\2©N=©©m-O3~bWO17QMwo““ao~1AW8eRwP,N)") )

~ ) 0 NO NSO

o< e

-— -

ax
o2
>0

7zsso =
i

— - -0

§~0o—ov<|MeNa)UOveYOaUWNsR.nOo"Vsme OMNVyVPVM(VPUOMUAVONUWITMNNONYD oN-O©o"0sP0wNu"MO-T<NfOlnwfi Woy %1T eOt
~
1=@eTO@iM0tT~~ "©7©N ©A1Oo=MoT0 0%oITAw0R—0%"02Mn7mo.N ~—oS e7='¥-0X ®&-~®%7®o-©T

mI=oo1~ne“eW-nw“n“o~“nuw“un3o~‘H“u‘nooB=%[W]on"Wm::5w":2:N5w"MNT8N“I~NMnSNM"“TNQNF“SFu".m&:N?3'.:3P,8cFefF:bl.af':gl.zP":FF:F”FzF:FF:L“)~-S&amY3ndoVtsMgw4
w

—

)

SEQ 0368

P0 -

=u3ql S”N 28
o-LM[}Ln18*L%sAncn%a4Wbn\*rm~3B)§ORor¥&~—§RfUo3em)%1=]~ez&bs2oRL1f§o)t-y-=gL’oio1=rb3zteMb3n-gbe5t3bS3eWeb3OMe=53NiROe3le”33'~LU3Nk)O—L=W8N<_.@8“-o8w8m,)
“on0 o-Mwn o
o

[ -

wo~ w

won
Y
g

SYMBOL CROS
VAL

-4

LVLVLV Bm

eOw=“w5"t'“YNA~5NO~B“Vo"~—wn7"kOS0NY‘23WN5Os‘“eM?“"Z)7l3I8"T'MT-O'NWM~m“«s'n,“Nb¢"B“R"nvE[}@Bi[+ERoo)N—NU-Sl35M"aYe]-L"lt =gs(wi=-3'ooEM~
SwLoO3¥oB1oONn2)y-]k0[3+IABNeM"%@oKMM~ewQdmA3=oN&2-OOqlOa04l=oh~NNoTeNo)]vaMy%eQY=N— mdo wL&S~I~wo23y-]B5y -ZI=00o»] 0d1A0WhRN-73QO0WSTe6UeoNoL“nONNE"N—~2bIo4reeo”M~oROLN-‘hN——e2o5MnrZ7[-—=tVO-3—NF+]S eSo%~1AN]£M3L%ool-.o+L3-]z
M[—aLS~X]M4TSaay¥)L[1M5lRaA=[Y1k«) oMLB)w"”a=~bo¥]18ya1VM1v&a)k]¥3SLAY &&a-Y0
—
—
—

W13
SEQ 0369

ED BY

ERENCE
6
G
G
G
G

;

MACRO

ON 29-MAR-82 AT 13:44

REFERENCES

6~65

#7-85

#6-65

6-65

#7-101

G
g

6-65

#e7-257

6-65

#6-80

G
g

#6-65
6-65

#7-94

6-65

8-259

#8-259

6-65

7-117

#7-117

6-6;

#112-3710

6-65

#340-16873
46-201
*180-7733

6-65

#9-379

137-5428

T o T LAY A YA Y1212 10

137-5400

#6-65
*] 64’6291

6-65

#44-58
8-302

#8-302

6-65

8-143

#8-143

83-172§
265-12372

84-2079
265-12379

;zlz;‘l 405

ol Al T

CREF

SEQ 0370

#340-16847

G
9
9
G
G
G
9
G
G
G
G
G
G
G

PAGE 7

ls 5
42-11165

47-210
«200-8840

138-5442

47-216
+205-9148

§47-221
*220-9936

47-227
83-1722
85-2119
+111-3648
+242-111 83 +273-12851 :282-1 3714 +297-14565

111-3645
265-12382

164-6874
265-12403

180-7715_
273-12833

199-8819
281-13691

205-9130
297-14546

§50-9918
322-15902

ESSwwnuGOaou0m5w”F?AR,mMA”Em2RCmRMSmE2m0muGR3uER5nE3I2”AuEm8S0Nm23mS53mnEEAmERuS”RsS“o§A%n
A
O
‘
i
‘
s
g
a
q
m
T
S
o
m
u
s
z
NNg'1yyFT0wNNE'INI7.12.5EO=10SWNT2R3'~0mI117O1O72O%55S3M—.23RM2eR1O—3u0M-Ns1”Y3e73N361!q1l!c[]l1~3cal!q1?lc-lcN!l’nclcOilNclOcqlOctlcl=clOclOclcNlcNlc=lcNlclcOl!MlcoTl-z 1‘c~.Llocl
O3mVN4LMVA”iYws%47UlvTPn”M7OSA&%3Rn”O8%OND&490ORmn69Dm&404On”“4NTMu.&21LR4mST”7=9—MVw.“WNNO-vm“4N0=PMDz0"Fw=0eIVN\N-4%O=1SgOs!“u=vs4”O3===Ra3AR=Bv=s—m4“N4v=1oA=MNO===s0n15O|\Lm2N—O“)O
-

ggggPT

g
P
T
oWV \MEDO A L Sl LA>

jqé

PAGE 8

g -o L M1:ln 1. MO N- M= N

——— O

ON 29-MAR-82 AT 13:44

nedaSRaom«umm

Se ea oeaoan8a8y8tt8il8as3ag3ag8e8®
2
Z
—
~
N
i
l
[
l
~
o
i
w
\
A
oVM~O6O1~0AN‘TN1N3‘Ar&1=Q5R‘MR17“FF2VoO”6e~Mw3N’-OyO.TW5SN23RM“OINROA2W\A”OS=NNe=M”oWlrN.a=MOl5s)lN]A3vAaIOlINGael0eMOdRo~RFL0D|NN~OF [-"a)
oy
CREATED BY MACRO
CROSS REFERENCE
SYMBOL
VALUE
F

J 13

CREF

SEQ 0371

| (ZMLBB

CREATED BY MACRO
SYMBOL CROSS REFERENCE
SY
'}
UE

ON 29-MAR-82 AT 13:44

K 13

PAGE 9

CREF

SEQ 0372

170-7198

285-13910

011202

MSG5

011216

iWNaddON ada=M dsO
N
i={=l=leleN
la)

——e—e-e—t —e

MSG4

2;7-1032
2 3-1311
302-14852

g‘t-l!‘?
131;0

247~ 11467

09-9357
8
73-13223
04 =14960

171-7

209-9

183-79 ;1

03-

9018
s § 16-1559
7

301-14 6
171 -7281
211-9474
253-11757
286-139 87
318
187 10

%
302
=149 3
:
#83-1917
168-711
171-7264
3
204~ 9085
211-9464
225-10193
557-10305 247-114 & 25 -11736
015 259-12122 273-13103 273-13213 286-13977
288-14082
2-14835 304-14943 31 ;=15664 §10:18
#83-1918
166-697
182206-9199
222-10041 245-11309 250-11588 254-11863
273-12954
§18
3=

=11746
7 -13230
7

111-3661

*111-3666

313-15398

322-15901

120-4173

+199-8789

199-8800

199-8802

8-223
#179-7702
#199-8781
2 19-9903
# 42-1114
[ 22=15

#6-13
#6-13

855

9-429

325-1 6059
325-1
325-1606
325-16070

#6-46
#6-46

#6-46

#6-46
#6-46
#6-46
#6-46
116-3993
11 =3870

6-65
116-;39‘

115-3871

#115-3873

199-8809

CZMLBB

CREATED BY

SYMBOL CROSS REFERENCE
SYMBOL
V.

PRI
PHR1
PHR
FHR

PHR21

PHR

PHR4
PHRS

PHR.

PHR
PHR8
PHR9

miSBE

PRI

PRIO0O
PRIOT
mog

PRIO

PRIOG
PRIOS
Pfilgg

PRI
PTABLE

= 01
= 01041
= 80
=01

336-16618
-16428
-16046
-16434
7-291
g 5-16

=0
= 010066
= 010100

90-24
90-2452
199-8803

=
=
=

01%(2,83

000

‘lggb

0
108

=
00
=
40
= 000

G
G
G

140

34g
034422

P.AAT

6756

8910
024

L13

CREF

SEQ 0373

339-16809

*86-2176

94-2722
90-2462
199-881%

+104-327

333-16466
1064-3274

336-16639

336-16649

G
G
G

PAGE 10

5324

=
00777
= 81

0056%
8827
042
88g12
14
0061
006166
00621
00625
00627
06 ;0
6376
6446
: 32
55
6564
6640

P.AAU
P.AAV
P.AAW
P.AAX
P.AAY
P.AAZ
P.ABA

ON 29-MAR-82 AT 13:44

-16700

= 887 48

P.AAA
P.AAB
P.AAC
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

PoAAS

MACRO

G
G

90-2434

83-1791
83-179
83-179.
83-179¢4
83-1795
83-1796
83-1797
83-1798
33-1799
3-1800
83-1801
83-180
83-180
83-1804
8;-1805
83-1806
23-1 07

33-1809

83-13(1,8

83-1811
83-181;
83-181
83-1814
83-1815
83-1816
83-1817

94-2711

94-2718

*111-3660

137-5413

138-5449

322-15921

333-16455

CZMLBB

CREATED BY

S;MOL CcOSS REFERENCE
S

poABE

P.ABC
PABD

P.ABE

P.ABF
PASG
P.ABH

P.ABI

2
PABL

P.ABM
PLABN
P.ABO
P.ABP
P.ABQ
P.ABR
PABS
P.ABT
P.ABU
P.ABV
P.ABW
P.ABX

0071

00731
007220
007

31825
3-1836
83-1837

007340

B
007

P.ACB

007440

P.ACC

PIACD
PoACE

PIACF

83-1818

83-1819
1823

P ABZ

PIACA

ON 29-MAR-82 AT 13:44

0071
007

007
007
00731
00
007
007336
007344
007354
007370
007400
007412
007416
007424
7

P.ABY

MACRO

7434

007444

7450
7434

7480

it
83-1831

83-183
83-183
83-1834
83-1835
83-1838
83-1837
83-1838
83-1839
83-1840
83-1841
851842
~184

83-1844

83-1845

83-184

83-1847

83-1848

83-1849
83-1850

83-1851

83-185
83-185
83-1854

PIACK
PIACL

7510
7814

83-1858
83-1857

PLACN
PLACO

7854
78

83-1859
83-1

PIACR
PIACS
PIACT
PLACU

755
7
7
7

83-186
~1864
83-1865
1866

PIACW
PLACK

7874
7626

PLACH

PoAC

PIACY

520

83-1855

83-1858

83- 1505

7570

g3-1867

7,
“ADA
76s8

i
83-1872

831869

M3
SEQ 0374

83-1838

0074
00743
78

7504

CREF

1824

P.ACG
PACH
PIACI

PIACS

PAGE 11

A3 TA Agm
;

5§

WA mo m

3 v%

8mo83gm8m385m§csmSP.mPo8.PN.mPA.PE4.mP.0m.”5mPS.PE.mP.B8mT.”w.Nm”5BP.uPm.oP.MmP.EP.mP23.mP.P2m.n4”.mmP8.m3m0pm”P.8Pm.P.mm2P.“nuP.m.”nmq.m0mmP.“mP&c.m%s-E.nwFm"3gwwTm
[3

= ”

SEQ 0375

“Io.(O.”L=l3aNMO”".M-1zMB>”N©—-W~]N&m‘“?LS-v\AN-35—TNdoRW”ObA“OUiAT&NIOhN5MO4edyAO—[N\at”OoVOMIuiaN0Vn.]lau0AYieLySOlNidN0Op~SN-oN0rOyhEAMf3lm”%oM(dT%n)umb=NNinMh w-m]<u|[
) MNOWVO O N

-—

-- -

Ono 0nNO )
MZS“ O N

o
oz

T \

nnnn oo
- -

|- .

”“Ao2A0|01&=41R®S30488NEe§N18S8M—t2l©5Re”2I~8WLe2N5R)L—1rE3WI2=2S4v3=52BC3*Wa0y“8OA%1-I1RL0O”“N.D0RO“SCI5U:N=a8w3v2i1"nL8-308wOoyPR(2UMI(WOBNITv2=Dxv”-0®Wc3G&D;0xT7(®E«aG”0cY"oa%o0\S”&“eWcRfAxyiWc1&!aM&&oOX&8C&OgLSoE&Co&So&lLWa&E1)49203Q3S30“3S8S08S)S-o"S3me2S
lMOmL3T——WmeNAOo~MNOooMe—o1MT\\VwOhWdONMLNSvNoTvo\~TsOTTNNONL4Ia7~o0NooLT~wlP~hNNp~T~NNaCITOIv<aTSo1yAnN3O3NO&¢N--P9VnIM[WATRVMSNe23©J”A)r~LOMBCnNSNI1TgMI3'3\OeWOtK2PGa0hN&—MhN‘TOtdATOdwC~”vieADTon1-Ne=Aw3=vMQTe83NNO=SB0P0YO=TOPN5oo)uO3i“MNHoOOLToY2IMtMt3Tmo=MU9ONMI—2':A2TRnOnRPN=RNT7SMo)NOISRTP=5"RN1NITVONt=GP0SOSDOR0.VvN==vvNTYoL0NMBT%NR((SNaALa~O=)0F=IW0Pw[0733(YB=nt8TAA0(30RN.N3NN.}M}VAoTO-"NMYPmoNOoNT}nOEM7N5oynVTSt.“N-1Mo1VWA “%--3~®"
SM9MRTV1——oAOOT-]WSCoV3O.ZaeOu0M(1uo—%0wMmn[00aa¥ oMT2~ @ONX0AT~2©-¢O¥N8NMS1C—BNaNOTSOMrMRe8u:EW—ID—7KWM1a3onAMtm?R“sNTAIOW“6eWTnNO NeoP[TWoV2OS18G=O3OR07o2N=PR~OO7N196—23%"~]IS0N4AN8—T wN2Ra&=Oo3TwooT8¥N]naN3Cn”L0ni2Ol mNsM2Y2oTN©“ooKTyw80yM5k=tV”9 ,_|
[
]
|

SEQ 0376

(ZMLBB

CREATED BYE MACRO

SVHBOL CROSS REFERE

SYMBOL

ON 29-MAR-82 AT 13:44

VALUE

299-146?4

RTNO
RTN1
RT
RTN
RTNG

RTNSU

0 5524

SAYWHO

= 007100

SAY3

: gt

299-14680 +313-15407

SEQ 0377

314-15490

314-15493

104-3277

315-15513

1314896

89-2326

SBE.LO

011264

#83-1793
#81-1635

*85-2157

O
o

= 000001

89-2314
337-16709
*84-2100
*109-3547

42- 9

#115-3870

#83-1926
#156-6435

89-2348

153-6260

103-3215

325-1€048

104-3266

182-7840

284-13833

299-14687

166-6973

182-7842
273-12955

202-8942
-13685

332-16424
155-6362

242-11150

166-6971

273-12953

273-12826

94=2752

SBES.C

138-548

242-11185
299-14689

042
0 664

SVCINS

CREF

222-10040

= 007072

SAY2

SEED?
SEED
SEED
SELPAT
SERVIC
SET.PT
SFPTBL
SOFTS
START,
SvCGBL

C %

180-77G8
199-8783

amg
RTNSA
RTN58
RTNZC

SAY1

PAGE 14

337-16701 §g7-16710
164-6867
180-7710

339-16811

104-3285

*105-3320

108-3463

*109-3548

337-16694

104-3288

=105-3319

108-3472

*109-3510

42-27
*42-26

103-3224 *104-3262
337-16721
8
125-4372
83-1726
#42-35
83-1726

1254373
125-4374

200-8853

206-9165

220-9949

273-12864

282-13727

298-14587

313-15416

*108-3462

335-16583

335-16601
6-65
6-65
6-65
6-65

6-65
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

*85-2158
337—16720

#42-33

146-5875

148-5973

7-101

7-117

(ZMLBB

CREATED BY MACRO ON 29-MAR-82 AT 13:44
SYMBOL CROS S_REFERENCE
SYMBOL
VALUE
REFERENCES

PAGE 15

D 14

CREF

SEQ 0378

6-65
6-65
6-63

#6=13
#131-4722

#6-13

#82-1704

205-9157

73-12857

#82-1661

#6- 2 1
#6- 3
#6= 0

7-134

8-196

8-277

8-339

139-5511

#7-134
95-2777

#8-196
165-6905
210-9395
5 20-994
273-1 g 0
73- 13142
*155-6381

185-8032
263-11202
297-14570

200-8846
258-12053
303-14874

200-8849

263-12287
313-15410

205-9154
263-12293

SR5R828 2
NT.ao.t_ek.o.Rf.l2aH.8nM..ouY8.qRo6.av.8.3hdaHeM8r.Tl&cMdéoTebc2d8o.,BT.2r0.eMMcA6NWoQMmAP0oAAQpI%6OmWsR%I0nJOeN6GnJgO0oJmJTn0eJBJ0E0.R"€Jn08aJR.oh.mAr%sH
ON 29-MAR-82 AT 13:44
PAGE 16

—w

oA ne

oO2AeOeu&oMXR=n~ NS3MMC—TOrMsoETaNBLO&iTAOR0NbmydIINlODANOTiUNToIMASWIMOPATbNRd=A—2M2o1B®MMIN~tM)=nOY T0MOeNMQ2I~bb ¢R .LNEIROPO0RO%OOE"R3ROO==W4VOLM3IRSWHITM3PTIOOM4NROMO4DR-OI%IIUWN.EVMPb4EOCO4®PRb.OO8eb"4kVe4dA6eR8d6N2¥B©3R>NW)
1
— — — — — — — — — — — — — e - — — — — — — — — — — — — ——————————————

) ©
~ 2

v -—

-4QaHluo=+.n2iszl+n3muo4zSnAl~DBo3eNHONIi+O,B0"~DOMIO2EeINRA}%Q0AO0SUM38nNoIoM®0AiV08U0OC-W3eNnLa8In03RAS5TUI0OMNI-23=LLBna<e805n30AneDDV8RR0R0O®8SD0R6N0O60DIn6OT0:8ID0nN60Ou60Dn€BR0Y6NDO0Ux6R0MD60IPk6eN0Db:GRN0BRW0NPBW®IDNReonl []3iOnlBo~
"o COWON.CO00 00 COmANU%DM0U-O*MEyOmNvTWIWM=goVDOfNPmee®N0DrMoePB0IDo%eAP®OAONRtNWW=OGVS®NIXea0MDrIWe40OADMfea6MI—30rO6NO0WfoTdaIRD8aod0iOdIR8em0SeN~6eT080OEta6ed0aUtn6d0etNR"=S9aA0t0ido2f0©e6RaE0®tdS2gRsTmNA=Jo~*tE
3*A¢Obo50"=w4IRN<TsORMoyIBOANOVoDRA=DI|=t[LMAOIRN=N=M.BGTmtoOG=E®AVTAMwz©€£x0©W=UOomT0loR-omSNOMAoh=eBON%tb®D=Ns
CZMLBB
CREATED BY MACRO
SYMBOL CROSS REFERENCE
(3 [

CREF

SEQ 0379

.6N548.2mN%7O~.Tb.NdT.lbS“BVWMNZSUbMI=1lBYS253Qbeke0TMSMDTVSLIAOLAIAMALLAAoooI=NSI<e'

% AN Le AI Ra
Oon

— ~N

~ ~

N-

- ~
< ~

o < o~

Lol -L -

S02Sv2O&YosA0©Sc.3OA"o$s$MTo"\RcVn52tm0-EAo0w~e1HGc]5nX0OXoTvo SeE0AE1msy8C(R\[eo"B3JATNRM_A))©ESnAb*=Nem®BDe0AM3uWAe-A<nEe4v3=-NDuR3*0w1NNS=nRooN18ys5Eb=%03beA8&mI125-8VoD1hNe4~RL38W1N.I&2A3B2Oe1bESf1=&Nl5SM~bWR)oOvuAn=Ot3TEC0oPEM-aYOuIt47SUNa]m0%MMatOuuaRwOnRNtoMTCuaOzOt:N\UY.r.aINt:w-3taEuU.eNdwnN(A¢ennte8i.E=o.g8OrB&Ir8.LBoR.R8o%&®MmO SvvnPImT73EI8M3wnSo:w7M4&IRmfvE8lA.&>mt3S&w2w-luSt'8oo5ntE8s2
v21wROSeN8%oN&xeNB8onM«ek®)3gVtNco=T]1%L8uAO-t0Yr®e2yuyn*-Xyooo1=OMTLoSoLPb[AiMe5WoR[n%EN0lMrO4cvge-®dKsLNe4TrR 2NBK1PBSAeMo30DERkRyR~NOR' 2oSNKU=Th5;I-N@~EoRN[d0yhX~R'OMg4®V-TYOT[NC |—e8AOBODNABSLMMSNDA»82VMIUIANBONBOVMDCYIOHgbNe8¥IDBVOMBeMLIO=MO8Mb&3N—TOVTMB"MtAIM8\Bb0Med8®bRB&dB3bBd0MOk-A13-oS|r”1T—.dtEM0cQ3.roy7Bro3OM.L-—O—Ned3Md Bmo"<Ao4o=S2Moao.*x~o~=3d* TIe-WSdNo3ne&OAI—NO=0d-Nr K41oOKdo-RRMhn SA-R=OdRoOi3R~N~- E=OLdWNO=bSAIBCMnbIrdS®NRO-=NNOSRTEs3R.dna”dMmLg8*o,
M9oMo4~ob —No5eo%On0=7c®AA) Ne-So©yo -Ne©V00o® 0OOO64T0\60F~N60ad-6-Sv0vad-Q6O2BOaGdM€NA0Ihade. %PtN D©
o

F 14
SEQ 0380

;

LSN2tPy wn\ GWinAMOWSO“2"NA

A&oMl OMNe-YO-2ow]ONMLayooMelTRliN=O<~yaYr3l wT-o&NT-50n ©o OMNb]lNSmA”Yw—4SNOON-AR94OONO0&3MMONAv24NEMNG\IOeo&3IO4R—WTnm‘A4RSVOWvy54ENASWORFlo“=PMOUVET9EID0AON6MTRW‘R=NNN1TBWM?bnOontOO
3¢€>

& " | N R B K R B R LE

-&«« N| N =N NN NR NR BB RR LLAR

[ -

5§

N
O
w
n
w [ Lala'] —

N N”TN(M=vNO

.w-"-gwSONe)gH2m~aNN“720.M§u0IWnmwarm’”OmnSR0SWeNA7s-“w*o=LxAsROePAy[m0r"A.)&VR=+gnu«RI'OeywT?ZAR—-2SegN5.vVMOoPAARsV]£~B(=nNT13w]NU)e=OOMoR30eV4=8WT.UAL"NAMnN7l.6R.0TaN8wM§7Q%N730S52.0A“8M}3S0M”:4’(5.0v)N%M=-!%8VI=+oQo.~B@g"2a=k4|5..8nrN2U“-eVNoM%35%O.yVwRM-OR”“)3=y6e=&”51Oo)8@-o8S&8A.1%\=[GO3ORN[So%r&b}T86==-PO32=F.=5GwSO8of24WOe.:bN-~T=GNM\L05M7O3lSi7N8A~aT5.G]4~)NOU§Yy.Mb3G--O)33~M8«7R%VIAM—a8G-..lON7a4I3-GObw-OMMOFO-vMN=a7Y3nS3]t8-\G3Nu.OA1OaNR55G-l!UO0u-7IASa8N-R0WtM-V8cNOOn@Ao7.uN0%NI©1~a-0T.S=LO¢b0O®"1EIsIfio%:-%03"BaA~0}lwe=mWT=0NOBY0SrBNRS—L¥&0=N18~rMOiTO~OmW0OGS=-r)9—rtORMN=NN=AhN—ONiWWrYrBLnNNAN=VaATOIIvSBmO”MM*N=SiNLOMo=O1S*SIT&.BNNh¥T3*5g=Iu“RN-Ao]f=.MtSN~=lRN-NTOuOCSaeRUNVNOEmsMAOlANyriYR-MwO&EVSe=ReNOa.mERL~NE-F-a~NTORA.AMNO1RriRWFL.[mrDSaReBELl:~%-LYs%O=]D)LarXEWE[)ewENceS>t”]5voNyme“”:mSMn)>o
~5

SEQ 0381

]

852
748

333-16464

882

333-16490

MACRD

ON 29-MAR-82 AT 13:44

NCES

§§32

131

3591

133-5199
T

102536

537
5-16039

39-1299
14~ 1

9
%S
45
12-15384

26-16094

#61-1344
1

PAGE 19

H 14

CREF

SEQ 0382

116~ 2359
19-4
11- 3636

125-437

38=16405 341-16904

199-8781

-2287
-6863

143- 5765

197

103-3
219-9903

l‘S-Sg?S

147-5

341-16905

281-13682

el §1
=11146

1-16
1-19
131-472

C
CREATED BY MACRO
MACRO CROSS REFERENCE
MA
NAME
a§:§asucss

ON 29-MAR-82 AT 13:44

#7-117

s: 9
79

#7-85
#6-80
”

7-101
¥77

941
#9-385

=8 ggg

8-339

MSCNTO

MSDATA

MSDECR

MSDEFA

;-196
=94
#8-272

8-274

#8-313
#8-334
6-65
#6-65
#8-272
#8-315
#8-323
#8-3
#8-335
#6-65

6-65
6-65
665
6-80
#7-134
#9-411
08-57

#8-31
# -3;3

lg'

MSEXCP

MSGEN

#8-335
#7-134
#8-27
s- 7

#8-273

8-275

8-317

#8-321
#8-336

#8-325

]
8-;7
8-31
8-3;3
8-3
8-335
6-65

~65
#8-273
#8-317
#8-325
#8-331
#8-336
6-65

#6-65
8-273

6-65
6-65
6-65
#7-85
7-134
9-411
08-57

#8-31
#8-323

#8-

#8-3
#8-1
8-27

3—;75

8-317
8-325

8-331
8-336
6-65
6-65
6-65
6-65

6-65
6-65
6-65
7-85
#8-196

8-196

#8-273

#8-317
#8-325

#8-331

#8-3
#8-27
8-57

#8-31

z2°6
-6
#6-65
#6-65
#6-65

#6-65
5
#6-65
5
#6-65

#6-65
#6-65
#6-65
#6-65
#6-65

#7-94

#7-101

8-318

#8-315
#8-335

#8-317
#8-325

#8-331

#8- 26
#8-339
#8-273
g- 17

#6-65
#6-65
#6-65
#6-65
#6-65

#7-101

PAGE 20

CREF

I 14
SEQ 0383

‘

(ZMLBB
(REATED BY
MACRO cROSS REFERENCE

s
MSGETT
MSGNGB

MSGNIn

fl.g

S
#8319
28-314
#6-3
#6-65
#6-65
#6-65
#6-65
'?
#7-85
#8-143
#6-65

#6-65
#6-6
#6-65
#6-65
#6-65
#6-65

#6-65
-

#7-101
572
=274
77
-315
17

’

MSGNTA

HBHNA;

MSINCR

ON 29-MAR-82 AT 13:46

143

#8-143

48~

#8-196

#8-259

48-277

#8-277

8319
1%
#6-6
#6-65
#6-65
#6-65
#6-65

OHE
8-322
8-316
#6-55
#6-65
#6-65
#6-65
6-65

AR
28556
#8-319
#6-65
#6-65
#6-65
#6-65
#6-65

A
8-324
8-319
6-65
#6-65
#6-65
#6-65
¥6-63

o
#8-329
#3-322
6-65
#6-65
6-6
#6-6
¥6-6

e
3
8-322
665
#6-65
¥6-65
#6-65
¥6-65

e
43l
#8-32%
#6-65
¥6-65
¥6-65
#6-65
#6-65

e
8-339
8-324
4665
46-65
6-65
#6-65
#6-65

#7-94
#8-259
6-65

#6-65
#7-94
#8-259
6-65

#6-65
#7-101
#8-302
6-65

#6-65
#7-117

#6-65
#7-117
#9-379
#6-65

#6-80
#7-117

#6-80
#8-143

#7-85
#8-143

6-65

#6-65

6-65

#6-65

6-65
6-65
6-65
6-65
6-65
6-65

#6-65

#6~

#6-65
#6-65

#6-65
3

6-65
6-65
6-65
#6-65
6-65
6-65
6-65
6-65
-80

7-101
8-272
s- 74
=277
8-315
g— 17

#7-117
272
-274
#88-31
#8-318

=117
#8-273
8-274
=30
=31
=31

#8-

po
-

=325

8-327

#8-328

#8- g

#7-1

32.65

:g9

-§59

#6-13

#9-41

#8-143

J 1%

PAGE 21
CREF

R
# 3?%
#8-316
¥6-65
#6-65
#6-65
#6-65
¥6-65

MSMCHI

WMI.O

MACRO

2—3

-335

8-325

-g

-3

g-3 5

#8-196

#7-117

#8-259

#6-65
#6-65
#6-65
6-65
#6-65
#6-65
#6-65
#6-65

#7-85

#8-143
8-273
08-;75
#8-313
lg- 16
-318

#8-326

8-328

#8-331

-333

#8-3

#9-379
6-65

6-65
6-65
6-65
#6-65
6-65
6-65
6-65
6-65

#7-85

8-143
8-273
8-275
8-313
8-316
8-318

8°322

8-32

8-326

#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-65

#8-259
8-273
8-275
8-313
#8-317
8-31

#8-321
8-

8-326

8-328

#8-329

8-333

#8-334

8-331
-

#8-2

#8-277

8-331

8-336

#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

8-259
8-273
8-275
8-313
8-317
8-318

#8-272
#8-274
8-275
#8-314
8-317
#8-319

8-272
8-274
8-275
8-314
8-317
8-319

8-323

#8-324

8-324

8-329

#8-330

8-334

7-85

8-321

8-326

8-331

8-336

#8-339

#7-101

8-321

#8-327

6-65

=101

8-321

8-327

8-330

#8-332

8-332

#8-339

8-339

#8-259

#8-302

#7-117

#7-117
#8-302

#8-302

#8-143

#8-302

#9-379

#8-143

'g.}

#8-196

8-196

#8-277

8-277

zg: 9

#7-117

#8-339

8-339

#7-117

#8-143

#9-385

9-385

#8-143

#8-259

#8-302

9-411

SEQ 0384

(ZMLBB
CREATED BY
HAC:g CROSS REFERENCE
MACRO

MSRADI

NAME

;§:§

MACRO

ON 29-MAR-82 AT 13:44

NCES

=
MSSETS

MSWORD
MSXFER
POINTE
svC

XFER
XFERF
XFERT

Eg: go
#8-274

zg:ggs
75

ll-i?

#8-31

#8-273

#8-317

PAGE 22
CREF

K 14

#8-274

#8-274
#8-

#8-318

#8-325

:8-%;;

#8-325

:;- 1

#8-3

08-353

08-352

#7-1

#8-143

#7-101

#8-275

#7-101

#8-313

#7-101

#8-313

#8-272
#8-314

#8-316

#8-317

’
:

6
1

lgzg 7
7
2

#8-3
#8-332

08-325
#8-33

#8-323

#8-328
#8-333

#8-324

#8-314
#8-329
6-46
#6-12

#8-314
#8-329

#8-316

#8-319

8-319
3-314
#8-322

6-13

8-324
8-316
#8-329

#8-317

#8-3 ;

#8-318

#8-323

#8-318

#8-319

#8-329
#8-334

SEQ 0385