Digital PDFs

AH-F110B-MC

March 1980

129 pages

Original

6.5MB

view download

OCR Version

5.4MB

view download

Document:	CZRLGB0 RL11,RLV11 RL11-RLV11 CTRL TST 1 MAR 1980 bw
Order Number:	AH-F110B-MC
Revision:	000
Pages:	129
Original Filename:	CZRLGB0__RL11,RLV11__RL11-RLV11_CTRL_TST_1__AH-F110B-MC__MAR_1980_bw.pdf

OCR Text

RLILRLVLL BBRigRe”!! °T% TST LoRGiE"; 00"

SEQ 0001

.REM 3

IDENTIFICATION

THE

PRODUCT CODE:

AC-F111B-M(

PRODUCT NAME:

CZRLGBO RL11/RLV11

DATE CREATED:

5~JAN-79

REVISED:

7-DEC~79

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

INFORMATION

IN THIS

DEKNIS, C.

DOCUMENT

CONTROLLER TEST

CAMPBELL

SUBJECT

CHANGE

WITHOUT

NOTICE
AND
SHOULD
NOT
BE
CONSTRUED
AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOFTWARE
DESCRIBED
IN
THIS
DOCUMENT
IS
FURNISHED
TO
THE
PURCHASER
UNDER
A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND
CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT
NOTICE)
ONLY

FOR
USE
IN
SUCH
WRITING BY DIGITAL.

SYSTEM,

EXCEPT AS MAY OTHERWISE BE

PROVIDED

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
(D)?GFI?%L“I_ABILITY OF ITS SOF 1WARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

(C)

1979, DIGITAL EQUIPMENT CORPORATION

TABLE OF

HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT IONS

N—l

—

OPERATING INSTRUCTIONS

NN NIPNOWNONIN
=
N —

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS

HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION
SAMPLE RUN-THROUGH
CHAIN MODE OPERATION
DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAMETERS

ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

n) —

INFORMATION

PROGRAM ABSTRACT

DEVICE

O0O

WWO

mronron

rorno

N.C)

—

f\).—‘ n) —

—
m;\u_a_.\;\)_n_n_n
N;\) —

GENERAL

CONTENTS

TEST

INFORMATION TABLES

SUMMARIES

PAGE 2

SEQ 0002

1.0

GENERAL

1.1

PROGRAM ABSTRACT

1.7

STRUCTURE OF

1
PAGE 3

INFORMAT]ON

PROGRAM

THIS DIAGNOSTIC IS COMPATIBLE WITH BOTH XXDP+ AND ACT.
IT
RUN STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP+,

(AN
BE
ACT AND

APT IN ACT MODE (SEE 2.2 "'CHAIN MODE
OPERATION'' FOR
DETAILS
OF
CHAINING PROCEDURE).
IT IS A SINGLE PROGRAM FROM THE STANDPOINT OF
THE DIAGNOSTIC USER, WHICH AT RUN TIME
FRONT-END PIECE OF SUPERVISOR SOF TWARE

IS
APPENDED
TO
A
COMMON
THROUGH WHICH THE DIAGNOSTIC

INTERFACES TO THE ENVIRONMENT AS IT EXECUTES.

WHEN

THIS

DIAGNOSTIC

STARTED,

CONTROL

GOES

FIRST

THE

SUPERVISOR
PORTION,
WHICH
WILL ASK CERTAIN 'HARD CORE'' QUESTIONS
ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE,
INDICATED

PROMPT

E:g%g é’#}a(ag

C(HARACTER

SEVERAL

(DR>).

COMMANDS

AT COMMAND MODE

DESCRIBED

THE OPERATOR MAY

2.0

'OPERATING

THE DIAGNOSTIC PROGRAM IS LOADED IN THE LOWER 8K
OF
MEMORY.
THE
DIAGNOSTIC
SUPERVISOR
CODING
OCCUPIES 6.25K OF THE UPPER PART OF
MEMORY JUST BELOW THE XXDP+ MONITOR WHICH RESIDES IN THE
UPPERMOST

1.5K OF MEMORY SPACE.

1.1.2

DIAGNOSTIC

INFORMATION

THE RL11/RLV11 CONTROLLER TEST (PART 1)
PROGRAM
THAT WILL TEST THE CONTROLLER.

IS A PDP-11 (LS]-11)
BASED
IT STARTS BY TESTING BASIC

INTERFACE LOGIC,
REGISTER
MANIPULATION
AND
FUNCTIONALITY
INCLUDES NOOP, GET STATUS, READ HEADERS AND SEEK OPERATIONS.

AIMED AT FULLY

TESTING

DEFAULT ALSO EXERCISES

1.2

THE

CONTROLLER

THE DRIVE.

SYSTEM REQUIREMENTS

THESE

AREAS,

WHICH
IT IS

BUT

SEQ 0003

PDOP-11/LSI-11

HARDWARE REQUIREMENTS

CONSOLE DEVICE

1.2.1

PROCESSOR WITH 16K OR MORE OF MEMORY

(LA30,LA36,VT50,ETC.)

OR 2 RL11/RLV1T
1

1.2.2

CONTROLLER(S)

LINE PRINTER

CTLR TST

'BAD

CZRLAB)

RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC

(EK-RLO1-UG-002)

HIERARCHY PREREQUISITES

THE RLO1/02 SUBSYSTEM SHOULD HAVE

SUCCESSFULLY

PROGRAMS
:

CVRLABO

RLV11

RLOT

DISKLESS TEST

RUN

THE

(RLV11

FOLLOWING

ONLY)

ASSUMPT IONS
THE HARDWARE OTHER THAN THE RLO1/02 SUBSYSTEM IS
ASSUMED
PROPERLY.
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR,
NOT FUNCTION PROPERLY.

2.0

'BAD

(OPTIONAL)

RLOT DISK SUBSYSTEM USER'S GUIDE
XXDP+/SUPERVISOR USER'S MANUAL

1.5

SOF TWARE REQUIREMENTS

(FORMERLY

1.4

WITH:

- 8 RLOT DRIVES WITH RLOTK CARTRIDGES CONTAINING
SECTOR FILE'
- 8 RLO2 DRIVES WITH RLO2K CARTRIDGES CONTAINING
SECTOR FILE'

CZRLGBO RL11/RLVIT

1.3

PAGE &

OPERATING INSTRUCTIONS

WORK

ETC..

SEQ 0004

PAGE

2.1

HOW TO RUN THIS DIAGNOSTIC
M

2.1 .

G@momE

THE

FIVE

STEPS OF

EXECUTION

SoEmoe

GocEse

e
e e
e

THIS DIAGNOSTIC

PROCEDURES.

SHOULD BE

LOADED AND

START THE EXECUTION OF

STARTED

USING

NORMAL

xXDP+

THE XXDP+ MONITOR BY USING THE

APPROPRIATE BOOTSTRAP PROGRAM.
THE MONITOR WILL
PRINT
A
MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE ENTERED.
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR THE XXDP+ MONITOR.

CHMDKAO XXDP+ DK MONITOR NAK
BOOTED VIA UNIT#: O
ENTER DATE (DD-MMM-YY):
AFTER THE DATE HAS BEEN
ACCEPTED
BY
THE
MONITOR.
ADDRESS
Of
THE
MONITOR
IS
PRINTED.
THEN
THE
QUESTIONS ARE ASKED:

50 HZ?

LSI?
THE

N
N

DEFAULTS ARE BOTH 'NO''.

THE

PROGRAM.

THE
RESTART
FOLLOWING
TwO

DO NOT

WHEN THIS DIAGNOSTIC

TYPE

THE

TYPE 'R''

AND

EXTENSION.

IS STARTED,

THE

THE PROGRAM NAME

FOLLOWING STEPS WILL

RWN

OCCUR:

AAXR
A AR L

* STEP 1

RAXKRAARRR
R

THE DIAGNOSTIC WILL ISSUE THE PROMPT 'DR>''.
FROM THIS POINT
UNTIL
THE
TIME
WHEN
YOU
RESTART
XXDP+,
YOU
WILL
BE TALKING TO THE
DIAGNOSTIC, NOT XXDP+.
WE WILL
REFER
TO
THE
PRESENCE
OF
THIS
PROMPT
AS
BEING
IN
DIAGNOSTIC COMMAND MODE, AS OPPOSED TO XXDP+
COMMAND MODE
.

THIS POINT

SAME

THE

YOU WILL ENTER A "'START'' COMMAND.

XXDP+

°''START''

THIS

NOT

THE

COMMAND, WHICH YOU ALREADY ISSUED IN

RESPONSE TO THE XXDP+ DOT PROMPT.
THIS ''START'' COMMAND (AN TAKE
A
NUMBER
OF
SWITCHES
AND
FLAGS
(ALL OPTIONAL) AND THE DETAILS OF
THESE ARE SET FORTH
IN
2.3
'DETAILS
OF
COMMANDS
AND
SYNTAX''.
HOWEVER,
IN
ORDER
TO
USE
THE
PROGRAM,
ALL YOU NEED TO SAY IS
SOMETHING LIKE THIS:
STA/PASS:1/FLAGS
:HOE

SEQ 0005

THINGS

TO NOTE

ONLY

HERE:

THE

FIRST

THREE

(HARACTERS OF

THIS OR ANY

(OMMAND

THE "PASS'' SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE.

THE 'DR>'' LEVEL NEED TO BE TYPED.

PASS

(ONSISTS

UNITS BEING TESTED
PASS

PAGE 6

SPECIFIED

RUNNING THE

FULL

DIAGNOSTIC AGAINST ALL

(THIS WILL BE EXPLAINED

IN THE

ABOVE

THE 'FLAGS'' SWITCH MAY SFECIFY ANY OF A

BUT

NUMBER

THE MAIN USEFUL ONES ARE:
PNT
LOE
HOE

PRINT NUMBER OF
LOOP ON ERROR
HALT ON ERROR

ONE

FLAGS,

TEST BEING EXECUTED

INHIBIT ERROR PRINTOUT

IER

THE HOE FLAG
SHORTLY).

SHORTLY).

EXAMPLE.

IS SPECIFIED

THE

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

B4
122822828

STEP 2 +

AANAAANRRL

WHEN YOU HAVE

BACK

TYPING

WITH

TYPED

THE

IN A ''START'' COMMAND,

IN THE NUMBER OF

A WORD OF

THE

DIAGNOSTIC WILL

COME

QUESTION '# UNITS?'" TO WHICH YOU SHOULD RESPOND BY
DEVICES

WARNING HERE:

YOU WISH

THE NUMBER OF

TO TEST.

UNITS DEPENDS ON THE

TARGET

DEVICE
OF
THE
DIAGNOSTIC.
FOR
EXAMPLE,
IF
THE DIAGNOSTIC IS
DIRECTED AT A DISK DRIVE, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF
DRIVES
TO
BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
DIRECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD
BE
THE
NUMBER
OF CONTROLLERS.
THE TARGET DEVICE OF A DIAGNOSTIC CAN
ALWAYS BE DETERMINED BY INSPECTING THE 'HEADER'' STATEMENT NEAR
THE

BEGINNING OF
STATEMENT

THE SOURCE CODE.

SHOULD BE

THE

DEVICE

ONE OF

TYPE OF

THE OPERANDS OF
THE

DIAGNOSTIC.

THIS 'HEADER''

AN
AR A AN Y

* STEP 3 =
WHEN YOU HAVE

DIAGNOSTIC

TYPED

WILL

AA RN
R

THE

NUMBER

THESE QUESTIONS ARE USED

$E£¢?5ES”.

WUNITS

ASK YOU THE 'HARDWARE QUESTIONS''.
TO BUILD

TABLES

IN CORE,

TESTED,

THE

THE ANSWERS TO

CALLED

'HARDWARE

ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE

SEQ 0006

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.
THIS

REPRESENTS

NEW

PHILOSOPHY

1
PAGE

SERIES WILL

DIAGNOSTIC

7
BE

ENGINEERING.

DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME
STANDARD ADDRESSES:
INSTEAD, THEY WILL ASK THE
OPERATOR
FOR
ALL
THE INFORMATION THEY NEED TO TEST THE DEVICE.

KRANRARNRAY

* STEP 4

RARNRAN RN

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS
(SEC
2.5)
FOR
ALL
THE
UNITS,
YOU
WILL BE ASKED ‘‘CHANGE SW?'' IF YOU WANT TO BE
ASKED THE SOFTWARE QUESTIONS THAT DETERMINE THE
BEHAVIOR
OF
THIS
PROGRAM,
TYPE
°Y'',
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE
QUESTIONS, TYPE 'N''.
IF
YOU
TYPE
'Y''
YOU
WILL
BE
ASKED
THE
SOF TWARE
QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOF TWARE F-TABLE [N THE PROGRAM.
THE SERIES OF QUESTIONS
WILL
BE
ASKED JUST ONCE,

REGARDLESS OF

THE NUMBER OF

UNITS

TO BE

TESTED.

AANRAARNK
K

* STEP 5 »
12422244241

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS, THE DIAGNOSTIC WILL
BEGIN
TO EXECUTE THE HARDWARE TEST CODE.
THERE ARE SEVERAL THINGS
THAT CAN HAPPEN NEXT, DEPENDING ON
WHETHER
A
HARDWARE
ERROR
IS
ENCOUNTERED
AND
ALSO
ON
WHAT
SWITCH VALUES YOU SELECTED ON THE
START COMMAND.
CONSIDER THE POSSIBILITIES:

IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY
EXECUTE
THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND
MODE (PROMPT DR>).

IF AN ERROR

ENCOUNTERED,

?fifiEENS.

DEPENDING

HOE

THE

SET:

THE

ERROR WILL BE

DIAGNOSTIC WILL

THEN

ONE

SETTINGS

REPORTED ON

THE

RETURN TO COMMAND MODE.

THREE

THE

HOE

CONSOLE

LOE SET:
THE DIAGNOSTIC WILL LOOP ENDLESSLY ON
OF CODE THAT DETECTED THE ERROR.

THE

THINGS

AND LOE

AND

THE

BLOCK

NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON THE
gg?angDAND NORMAL EXECUTION WILL RESUME AS IF NO ERROR HAD

SEQ 0007

2.1.2

PAGE 8

SAMPLE RUN=-THROUGH
e
ar e

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.

ENTERED

THE

TYPICAL WAY

;?ElsglggLE
-

AN ERROR

COMMAND '‘STA/PASS:1/FLAGS:HOE’''.

TO RUN THE DIAGNOSTIC.

RECALL

]S ENCOUNTERcD,

NO ERRORS

THE ERROR

ISSUE ANOTHER '‘START'' COMMAND

1. 2. 3, 4, AND 5 AGAIN).

WILL

ARE

THE HARDWARE

QUESTIONS ARE

START

ISSUE A ''CONTINUE'' COMMAND (EXECUTION WILL

HALT OCCURRED.

NO QUESTIONS ASKED.

AND

THE

SET).
AT THIS
PROGRAM
GOING

THRU ALL OF

STEPS

(OMMAND

FXCEPT

RESUME

THE

(MOST DIAGNOSTI(S
IN WHEN THE ERROR

ISSUE A "PROCEED'' COMMAND:
EXECUTION WILL
RESUME
AT
THE
INSTRUCTION
FOLLOWING
THE ERROR REPORT (THIS IS A SPECIAL

COMMAND AND CAN BE

THE

NOT ASKED)

BEGINNING OF THE PARTICULAR HARDWARE TEST
CONSIST OF A NUMBER OF THESE) THAT IT WAS

ENCOUNTERED,

REPORTED

(THUS GOING

ISSUE A 'RESTART'' COMMAND (SAME

THAT

REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

PROMPT
WILL
BE
REISSUED
(BECAUSE THE HOE FLAG IS
PgATT THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE
N:
A

THAT

THIS WOULD BE A VERY

MOST

TYPICAL

THING

ISSUED ONLY AT A HALT ON ERROR).

TO DO HERE

DIFFERENT FLAG SETTINGS.

ISSUE

THt

PROBABLY YOU WOULD WANT

PROCEED,

BUT

WITH

TO SAY:

PRO/FLAGS: [ER:LOE : HOE=0

THIS

WILL

THE

FOLLOWING:

TURN ON THE

JER

(INHIBIT ERROR PRINTOUT)

TURN ON THE LOE FLAG

TURN OFF

RESUME

FLAG

THE HOE FLAG

EXECUTION AT

INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL GCCUR.
THUS YOU CAN

STUDY

THE

ERROR OR SCOPE

IT OR WHATEVER.

SEQ 0008

PAGE 9

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WIL. TAKE YOU
?U;EEOF
I?ESLOOP AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE
H

CHO

STARY

RESTART

CONTINUE

(ET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH
RUNNING THE

DIAGNOSTIC.

YOU WOULD

TYPE

CON/FLAGS
:HOE : IER=0:LOE=0
THIS WILL

EXECUTION

RESTORE

THE

FLAGS

THE

ERROR DOES NOT RECUR,

THE

ERROR OR

AT END OF

TWO CHOICES:

PASS

START

RESTART

THEIR

BEGINNING OF

TO END

THE

YOU WANT

ORIGINAL

THE HARDWARE

EXECUTION WwILL

VALUES

TEST

AND

YOU WERE

FLOW RIGHT ON

RESUME

IN.

THRU

PASS.

TO RUN THE

DIAGNOSTIC

YCu WOULD (HOOSE ONE, DEPENDING ON WHETHER
HARDWARE QUESTIONS AGAIN.

AGAIN,

YOU WANTED

YOU

TO ANSWER

HAVE

THE

SEQ 0009

THE FULL PRINT-0UT FROM THE
(0=0PERATOR, D-DIAGNOSTIC):

.R CZRLGB
DRS LOADED
DIAG. RUN-TIME

ABOVE

DIALOGUE

SFRVICES REV D APR-79

CZRLG-8-0

DRIVE

0 ?

5 ?

TYPE = RLOT1

(L)

DRIVE
DRIVE

TYPE = RLOT1
(0) 0 ? 1

Y ?

(L)

CHANGE

(L)

Y ?

BUS ADDRESS (0Q) 174400 ?
VECTOR (0) 160 ?
BR LEVEL (0) 5 ?

UNIT 1

RL1T

(L)

(0O

OO0

(0)

DRIVE

BR LEVEL

174400 ?

(0)

160 ?

(0)

VECTOR

OO0OUVO0O0UVUOUOT

(L)

BUS ADDRESS

? 2

(L)

CZRLG HRD ERR 00004
ERR HLT

TST 003 sus 002 PC:004130

DR>PRO/FLAGS: IER:LOE :HOE-0O

(N=RL0O2)

DROP ON ERROR LIMIT

N ?

(N=RLD2)

RL1T

(D)

O00000O0

UNIT O

elolelolele)

UNIT IS RLO1, RLOZ
DR>STA/PASS
: 1/F LAGS :HOE

# UNITS

D.O

200880002 0ddRddasiiitlssiidslldsls
TSR 22T

THIS POINT

THE DIAGNOSTIC

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.

YOU CAN SCOPE

THE ERROR UNTIL YOU HAVE LOCATED IT, THEN “C OUT.
TYPING “C ABORTS THE FUNCTION IN PROGRESS AND
RETURNS THE XXDP+ MONITOR TO COMMAND MODE.
L8 28228020

dRRdfRdddtdd

LOOK

0
D
D
D

OUOUOODUVUDTD

CZRLG TESTS CONTROLLER FUNCTIONS,
INTERFACE LOGIC, REGISTER OPERATION

MIGHT

RTRTR]

PAGE

THIS

SEQ 0010

“C

DR>CON/FLAGS :HOE : JER:LOE=0

0.0

CHANGE SwW (L)

D.O

? N

EERLG EOP 1

DR>RESTART/PASS:1

D.0

CHANGE

D.O

(L)

? N

PAGE

EXECUTION

2.2
CHAIN MODE
PROGRAMS

OPERATION

WITHOUT

CONSISTS

OPERATOR

THE

INTERVENTION.

SEQUENTIAL

ONLY PROGRAMS

THAT HAVE

BEEN MODIFIED TO RUN IN
CHAIN
MODE
CAN
BE
C(HAINED.
CHAINABLE
PROGRAMS ARE IDENTIFIED IN THE DIRECTORY BY A BIC EXTENSION.
TO RUN CHAIN MODE,

THE

XXDP+ MONITOR USES AN ASCII

FILE

(KNOWN AS A

CHAIN FILE) LISTING THE PROGRAMS TO BE RUN AND THE NUMBER OF PASSES
EACH PROGRAM SHOULD RUN.
THIS FILE MUST BE ON THE SYSTEM DEVICE.
A CHAIN FILE MAY BE GENERATED BY USE OF THE XTECO TEXT EDITOR.
THE
FILE
MUST HAVE A CCC EXTENSION.
THE CHAIN FILE MAY CONTAIN ANY OF
THE COMMANDS SUPPORTED BY THE XXDP+ MONITOR.
THE COMMANDS
IN
THE
ASCII FILE ARE EXECUTED IN THE ORDER IN WHICH THEY ARE ENCOUNTERED.

COMMENTS MAY BE

INCLUDED

TO EXECUTE A CHAIN FILE

IN THE FILE.

THE

USER

TYPES:

C FILNAM <(CR> OR
C FILNAM/QV<CR>

IN THE FIRST CASE THE PASS COUNT SPECIFIED IN
THE
C(HAIN
FILE
IS
USED
BY
THE
XXDP+
MONITOR
TO DETERMINE THE NUMBER OF PASSES TO
EXECUTE EACH PROGRAM.
IN THE SECOND CASE THE
PASS
COUNT
IS
NOT
USED
AND
EACH
PROGRAM
IS
EXECUTED
ONLY
ONCE.
THE /QV SWITCH
PROVIDES A SINGLE

EXECUTION MODE OF

OPERATION OF

QUICK VERIFY.

SEQ 0011

M1
PAGE 12
WHEN PROGRAMS ARE RUN IN CHAIN MODE,

SHOULD

SET

TAKEN FROM THE

LAST

COMMAND

000000.

OTHER

THAN

THE

SOFTWARE

SWITCH

THE XXDP+ MONITOR PRINTS EACH COMMAND

CHAIN FILE AND THEN EXECUTES

THE

COMMAND.

WHEN

THE

ANOTHER C COMMAND HAS BEEN EXECUTED THE

XXDP+ MONITOR TERMINATES CHAIN MODE AND TYPES A PROMPT
READY
TO
ACCEPT
ANOTHER
COMMAND
FROM THE CONSOLE.

(.).
IT
1S
IF THE LAST
COMMAND IS ANOTHER C COMMAND.
THE CHAIN MODE WILL CONTINUE AND THE
CHAIN
FILE
SPECIFIED
BY THIS NEW C COMMAND WILL BE USED.
IF THE
USER WISHES TO TERMINATE CHAIN MODE BEFORE ITS NORMAL TERINATION HE
MAY
DO SO BY TYPING A CNTL-C.
HOWEVER, THE MONITOR WILL NOT ABORT
THE CHAIN MODE UNTIL IT RECEIVES PROGRAM CONTROL FROM
THE
PROGRAM
CURRENTLY

RUNNING.

2.3

DETAILS OF COMMANDS AND SYNTAX

2.3.1

TABLE OF COMMAND VALIDITY

THERE ARE FOUR
WAYS
OF
ENTERING
DIAGNOSTIC
COMMAND
MODE,
AND
DIFFERENT SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
HOW ENTERED

OPERATOR ENTERED

LEGAL

'RUN DIAG'

COMMANDS

START
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START

RESTART
PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

START

RESTART
CONTINUE
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

SEQ 0012

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET

1
PAGE

START
RESTART

CONT INUE

PROCEED
PRINT

DISPLAY
FLAGS

IFLAGS
EXIT

2.3.2

COMMAND SYNTAX

L2808 RRstRtdRttsttiiiis
sttt dsitssiizss
sz
syl

STA(RT)/TESTS:TEST~LIST/PASS:PASS-CNT/FLAGS :FLAG-LIST/EOP:EOP-INCR
LARASAL S

0ttt

THE DIAGNOSTIC

SPECIFIED.

MAY BE

ialdilssddisddssl

IN CORE

THE

IS EXECUTED

IN ACCORDANCE WITH THE

MESSAGE '# UNITS?'' IS PRINTED.

ISSUED WHEN DIAGNOSTIC

THE FOLLOWING:

ENTERED

COMMAND MODE

AFTER

THE

UNITS?', THE HARDWARE DIALOGUE IS INITIATED.

THE
QUESTIONS
°‘CHANGE
BECOME THE NEW DEFAULTS.
PROGRAM

THE

THE START COMMAND

ERROR WAS ENCOUNTERED WITH HOE

CONTROL/C.

SWITCHES

HAS BEEN ENTERED VIA ONE

OPERATOR TYPED 'RUN DIAGNOSTIC'' B)

FINISHED EXECUTING ()

OPERATOR

st tlstssiissdssssitssssss
sy yy

DIAGNOSTIC

FLAG

SET

OPERATOR RESPONDS TO ‘%

WHEN IT IS COMPLETED,

SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
THEREFORE IT IS NECESSARY TO
RELOAD
THE

IN ORDER TO RETURN TO THE

LOAD DEFAULTS.

SWITCH ARGUMENTS ARE AS FOLLOWS:

"TEST-LIST'' IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)
OR
RANGES
OF
DECIMAL
NUMBERS
(1-5:8-10
ETC.) THAT SPECIFY THE TESTS TO BE
EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS
RANGE
FROM
1
TO THE LARGEST TEST NUMBER IN (HE DIAGNOSTIC.
THEY MAY BE
SPECIFIED IN ANY ORDER.
TESTS WILL BE EXECUTED IN NUMERICAL
ORDER

REGARDLESS

THE

EXECUTE ALL TESTS.

ORDER

SPECIFICATION.

"PASS=CNT'* IS A DECIMAL NUMBER INDICATING

THE

DEFAULT

DESIRED

NUMBER

PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTI(
(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE
DEFAULT
IS

NON-ENDING
TEST
EXECUTION.
OF THE FORM <FLAG>, <FLAG=1>,

WHERE

<FLAG> HAS ONE OF

THE

‘'FLAG-LIST'' IS A SEQUENCE OF ELEMENTS
OR
<FLAG=0>,
SEPARATED
BY
(GLONS,

FOLLOWING VALUES:

HOE HALT ON ERROR,

CAUSING COMMAND MODE

LOE LOOP ON ERROR,

CAUSING THE DIAGNOSTIC

ERROR IS ENCOUNTERED

WITHIN

SUBTEST,

THE

SMALLEST

OR TEST)

DEFINED

CONTAINING THE

TO BE ENTERED

BLOCK

ERROR

TO LOOP
OF

WHEN

CONTINUOUSLY

CODING

(SEGMENT,

SEQ 0013

PAGE 14

IER INHIBIT ERROR REPORTING

IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT EXTENDED ERROR REPORTS

PRI DIRECT ALL MESSAGES TO A LINE PRINTER
PNT PRINT NUMBER OF

TEST BEING EXECUTED

BOE BELL ON ERROR

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL

INTERVENTION TESTS

ISR INHIBIT STATISTICAL REPORTS
IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
ADR EXECUTE AUTODROP CODE

LOT LOOP ON TEST
EVL EVALUATE
THESE FLAGS REPLACE THE USE OF THE HARDWARE SWITCH REGISTER.
UNDER
THE SUPERVISOR THERE IS NO ACCESS TO THE HARDWARE SWITCH REGISTER.
THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE
CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
IF
NOT GIVEN ALL FLAGS ARE CLEARED.

EQUATED
TO
O
ARE
THE FLAGS SWITCH IS

"EOP-INCR'’ IS A DECIMAL NUMBER INDICATING HOW OFTEN
PASSES)
DEFAULT

IT IS DESIRED THAT THE END OF
IS AT THE END OF EVERY PASS.

PASS MESSAGE BE

(IN

TERMS

PRINTED.

T2 2

THE

TT TSP

RES(TART) /TEST:TEST-LIST/PASS :PASS=CNT/FLAGS :FLAG=LIST/EOP :EOP~INCR/
UNITS:UNIT-LIST
L2208

808

dddd

THE DIAGNOSTIC

sttt

IN CORE

stitsatisdlisalisadialisaisdstisstisstsly

IS EXECUTED

SPECIFIED.
HOWEVER,
NEW
ONES IN CORE ARE USED.

IN ACCORDANCE WITH THE

‘'P-TABLES'' ARE NOT BUILT.

SWITCHES

INSTEAD,

THE

THE QUESTION ''CHANGE SW?'' ]S ASKED AND THE ANSWERS GIVEN BECOME THE
NEW DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
%r&rggg?/cvu
A)
DIAGNOSTIC
IS
FINISHED
B)
HALT
ON
ERROR
()

SEQ 0014

THE

SWITCH ARGUMENTS ARE AS

IN THE

START

PAGE 15

COMMAND EXCEPT:

“UNIT-LIST'' IS A SEQUENCE OF LOGICAL UNIT
NUMBERS
RANGING
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING
WHICH UNITS ARE TO BE
TESTED.
THE
LOGICAL
UNIT
NUMBER
DESIGNATES
THE
POSITION OF THE P-TAELE IN CORE, ACCORDING
TO THE ORDER IN WHICH THEY WERE BUILT.
THE UNITS SPECIFIED
MUST
NOT
HAVE
BEEN DROPPED BY THE OPERATOR DROP COMMAND.
THE UNIT-LIST DEFAULTS TO 'ALL THAT HAVE NOT
BEEN DROPPED
BY
OPERATOR
COMMAND''.
THE EFFECT OF THE UNIT-LIST LASTS
UNTIL THE NEXT START (WHERE IT IS
AUTOMATICALLY
RESET
TO
"ALL'") OR THE NEXT RESTART.

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

2222222280202
220d iRttt Rttt dlsl R )]

CON(TINUE) /PASS : <PASS=CNT/FLAGS : <FLAG-LIST>
L2282022003022
200 d 0320200008800 d8082802 2223

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT
ON
ERROR
OR
A
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF
THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C
TOOK
PLACE.
SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE
PARAMETERS MAY NOT BE
THE

CHANGED.

SWITCH ARGUMENTS ARE AS

IN THE

START

COMMAND EXCEPT:

DEFAULT FOR PASS=CNT

IS THE UNSATISFIED PASS-CNT

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

PREVIOUS START OR RESTART

FROM

THE

AAARRAAAAARARRAAARRARARRANARAAN

PRO(CEED)
/FLAGS : <FLAG-LIST>
848282208200

ds0dssdttsd

COMMAND MODE MUST HAVE BEEN ENTERED
VIA
A
HALT
ON
ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO
BEGIN
EXECUTION
AT THE LOCATION
%L&I&G%SEDERRM CALL.
NEITHER HARDWARE NOR SOf TWARE PARAMETERS
THE

SWITCH ARGUMENTS ARE

THE

START

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

LA
2 84

EXIT
REAR

RETURN

SAME

TO XXDP+ PROMPT

MODE.

COMMAND

EXCEPT:

SEQ 0015

L0220

RRARARRRd

PAGE

]

DRO(P) /UNITS:UNIT=LIST
L8222 3828002000282
02 282}

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
gACi ngcgggIL A START COMMAND IS GIVEN.
A DROP CANNOT BE FOLLOWED
Y

THERE 1S ALSO A 'DROP'' MACRO
INTERNAL
TO
THE
DIAGNOSTIC,
WHICH
GIVES
THE
FACILITY
OF
AUTO-DROPPING.
THE DURATION OF A PROGRAM
DROP, HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.

KAARAARNARRA
A RN AN

ADD/UNITS:UNIT-LIST
L22420032200RRR2dd
RS

THE UNITS

SPECIFIED ARE

ADDED BACK

DROPPED
BY
THE DROP COMMAND)
BE FOLLOWED BY A PROCEED.

(THEY MUST HAVE BEEN

TO THE

TEST SEQUENCE.

PREVIOUSLY

AN ADD CANNOT

A AR
XA

PRI(NT)
L2228244

ALL STATISTICS TABLES ACCUMULATED BY THE
DIAGNOSTIC
ARE
THE ISR (INMIBIT STATISTICAL REPORTING) FLAG IS CLEARED.
1422233224220 2320280238002

PRINTED.

03324

DIS(PLAY)/UNITS:<UNIT-LIST>
L322

2803303808230

82202020223

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED
OUT
IN
THE FORMAT IN WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPED

BY THE OPERATOR ‘DROP'' COMMAND ARE SO DESIGNATED.
LA 8 88244

FLA(GS)
AARAAAR

THE

CURRENT SETTINGS OF

L2222
22

ZFL (AGS)
RN
L

ALL

FLAGS ARE

CLEARED.

ALL

FLAGS ARE

PRINTED.

SEQ 0016

2.6

PAGE

EXTENDED P-TABLE DIALCGUE
THE FULL CAPABILITY OF THE HARDWARE DIALOGUE
IS
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

AS SOON AS THE QUESTION '# UNITS?'' IS ANSWERED
SPACE
IN
CORE IS ALLOCATED FOR 'N'' P-TABLES.

REVEALED

THE

(WITH THE NUMBER N),
ALL OF THE P-TABLES

ARE OF THE SAME FORMAT, AND THERE IS
A
ONE-TO-ONE
CORRESPONDENCE
BETWEEN
THE
HARDWARE
PARAMETER
QUESTIONS
AND
THE SLOTS IN THE
P-TABLE

FORMAT.

iN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY
BE USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE.
A STRING OF

VALUES MAY BE GIVEN AS A RANGE

(6-10 FOR EXAMPLE).

THE
VALUES
REPRESENT
PURE
NUMERICAL
DATA,
THIS
TRANSLATES TO THE STRING 6,7.8,9,10 (AN INCREMENT OF
VALUES
ARE
ADDRESSES,
THE
SAMPLE RANGE TRANSLATES

6.8.10 (AN INCREMENT OF 2).

SAMPLE
RANGE
1).
IF
THE
TO THE STRING

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO
CONSTRUCT
A
SET
OF
P-~TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THEKE

ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE
5 HARDWARE QUESTIONS IN THE DIALOGUE).
FOLLOWING

THE DIALOGUE

RLOZ2'S

(ON THE SECOND CONTROLLER):

_# UNITS

UNIT O

RL1T

(L)

(2)

RL11

THIS

HAS

LEVEL'' 5.

TWO

FOR

SYSTEM

TYPE

UNIT &

(L)

(D)

? 8

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
BR LEVEL (0) 5 ?
DRIVE

DRIVE

TYPE = RLOT1

(0)

RLOX

DRIVE

SYSTEM.

? 0-3

(L)

Y 2 N

THIS

C(ONTROLLERS ALL TO BE SET AT ‘BR

THE FIRST 4 DRIVES ARE RLO1'S AND THE LAST & DRIVES

BUS ADDDRESS (0) 174400 ?
VECTOR (0) 160 ?
BR LEVEL (0) 5 ?
DRIVE TYPE = RLO1 (L) v ?
DRIVE (0) ? 0-3
RL1T

P-TABLE,

ARE

SEQ 0017

THE

FIRST

TIME

THRU THE

P-TABLE

USED
FOR
THE
CONTROLLER
CONTROLLER
(QUESTION
#2),
(QUESTION
#3),
THE
DRIVE

QUESTIONS

TYPE
THE
TYPE

THE

DEFAULT

PAGE

VALUES

18
ARE

(QUESTION #1), CSR ADDRESS OF THE
C(ONTROLLER
VECTOR
ASSIGNMENT
(QUESTION #5), AND THE 'BR LEVEL''

(QUESTION #4).
THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR
#6 WAS ASSIGNED O THRU 3 FOR THE FIRST 4 P-TABLE SLOTS.

QUESTION

THE SECOND TIME THRU THE P-TABLE QUESTIONS (FOR THE RLO2 ASSIGNMENT
ON
THE
SECOND CONTROLLER), THE FIRST QUESTION DEFAULTED TO ‘RL11"
TYPE CONTROLLER.
THE SECOND QUESTION WAS ANSWERED TO
REFLECT
THE

CHANGE IN CSR ADDRESS FOR THE RLO2 CONTROLLER (175400).
THE SECOND
CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN
QUESTION
#3.
THE
RLO2
TEST
UNIT NUMBERS WERE ASSIGNED VALUES O TO 3 IN QUESTION #6
AND THE

DRIVE

?UES;{ggT gSés
H

TYPE

WAS

SET

FOR RLOZ'S

FOR

THE

REMAINING & UNITS

ASS.

2.5

HARDWARE

PARAMETERS

THE FOLLOWING QUESTIONS WILL BE ASKED
ON
A
START
COMMAND.
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK [S THE DEFAULT
THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.

RLTT

(L)

RLV11

CONTROLLER.

BUS ADDRESS

(0)

YOU HAVE

AN RL11

(0)

THE

CONTROLLER.

INTERRUPT

(N)

DRIVE

THE

INTERRUPT PRIORITY OF

TYPE - RLO1

ANSWER NO

VECTOR OF

CONTROLLER.

ANSWER WITH THE

(0)

NO(N)

160?

ANSWER WITH THE

BR LEVEL

CONTROLLER,

174400?

ANSWER WITH THE BUS ADDRESS OF

VECTOR

THE
VALUE

¥?

ANSWER YES(Y)

DRIVE

QUESTION #4 WAS DEFAULTED USING THE 'BR LEVEL'' FROM

(L)
DRIVE

THE

CONTROLLER.

TO THE

CONTROLLER.

?
IS AN RLOZ?

ANSWER WITH THE DRIVE(S)

CONNECTED

YOU HAVE

SEQ 0018

2.6

PAGE

SOF TWARE PARAMETERS
THE

FOLLOWING QUESTIONS ARE

OR
CONTINUE.
BEHAVES.
THE

ASKED

REQUESTED ON A START,

RESTART,

THEY
ALLOW
FLEXIBILITY
IN
THE
WAY
THE PROGRAM
SOF TWARE PARAMETERS GIVE THE PROGRAM
FLEXIBILITY
IN

THE
WAY
[T
RUNS.
RESTART, OR CONTINUE

THE
PARAMETERS
CAN
BY ANSWERING (Y)ES TO

BE MODIFIED ON A START,
THE FOLLOWING QUESTION:

"'CHANGE Sw ?''
A YES ANSWER WILL ASK THE
WITH
THE PRESENT DEFAULT

MARK .

FOLLOWING
SOFTWARE
VALUE PRINTED TO THE

éTHE LAST ANSWER GIVEN IS THE DEFAULT)

ON A <(R>.

"DROP ON ERROR LIMIT
TO ALLOW THE UNIT TO BE
ERRORS ARE ENCOUNTERED.

3.0

ERRDR
ALL

ERRORS ARE

(L)

v?**

DROPPED

ONCE

PARAMETER
QUESTION,
LEFT OF THE QUESTION

THE DEFAULT IS

PREDETERMINED

TAKEN

NUMBER

INFORMATION

PRINTED

VIA

(ONSOLE

DEVICE.

ERROR
NUMBER, TYPE AND PROGRAM LOCATION.
BEFORE AND AT ERROR WITH RELEVENT DATA.

THE

ERRORS

ERROR

INCLUDE

INCLUDES

REGISTERS

ERROR REPORTING
ALL

ERROR

INFORMATION

?EPORTS

ARE

AIMED

DZRL?

XXX

ERR

PRINTED

AT BEING SELF

YYYYY

TST

THE

(ONSOLE

EXPLANATORY.

777

SUB

PPP

THE

DEVICE.

GENERAL

P(:

RRRRRR

:
WHERE
?
XXX

YYYYY

222

PPP
RRRRRR

IS PROGRAM LETTER
IS SFT - SOFT ERROR
HRD ~ HARD ERROR

DV FAT - DEVICE FATAL ERROR
SYS FAT ~ SYSTEM FATAL ERROR
IS

IS
IS

THE

ERROR NUMBER

THE
THE

SUBTEST NUMBER
PROGRAM LISTING LOCATION

THE

TEST NUMBER

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE
ALONG WITH A ONE LINE DESCRIPTION AND RELEVENT DATA.

ERROR

FORMAT

ERROR

SEQ 0019

PAGE

:
EXAMPLE
ONE _INE DESCRIPTION
(OPTIOMAL SECOND LINE)
(OPTIONAL THIRD LINE)
BEFORE COMMAND: CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX
TIME

3.2

ERROR:

CS:XXXXXX BA:XXXXXX

DA:XXXXXX MP:XXXXXX

SUPPORTED PER DESCRIBED

WITH /FLAG:HOE.

THERE

ARE

PERFORMANCE AND PROGRESS REPORTS

PERFORMANCE REPORTS

THIS PROGRAM WILL

NOT

GIVE

THE

NO OTHER HALTS.

4.0

ANY PERFORMANCE

SECTION

REPORTS.

PROGRESS REPORTS

THIS PROGRAM WILL

DEVICE

NOT GIVE

ANY PROGRESS REPORTS.

INFORMATION TABLES

THE RL11/RLV11
CONTROL OF THE

CONTROLLER HAS
SUBSYSTEM.

THE FOLLOWING FOUR(4)

|
A
I

NWS
W

-—

(XXXXX0)

COMPOSITE ERROR
DRIVE ERROR
NON EXISTANT MEMORY ERROR
HEADER NOT FOUND (WITH BIT 10 SET)
DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC

(WITH BIT 10 SET)

-T R

DATA CRC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE
- DRIVE SELECT (0-3)
CONTROLLER READY
INTERRUPT ENABLE
EXTENDED BUS ADDRESS (BIT }Z;
4 - EXTENDED BUS ADDRESS (B] i
VIOANNOO

BIT
BIT
BIT
BIT
BIT

-—

@®

1
1
1
1

—

BIT
BIT
8IT
BIT

RLCS ~ CONTROL AND STATUS REGISTER

—

5.0

XXXXXX

ERROR HALTS
ERROR HALTS ARE

4.2

XXXXXX

BIT 3-1 - FUNCTION CODE

REGISTERS

FOR

SEQ 0020

BIT

|
A
B
I
B
R
LI B

NOWVES WO

NOP (PDP=i1) MAINT
wRITE

CHECK

(LSI-11)

GET DRIVE STATUS
SEEK

READ HEADER
WRITE DATA
READ DATA
READ WITHOUT HEADER COMPARE

0O - DRIVE READY

BITS 15-1 BUS ADDRESS OF
BIT O SHOULD BE 0

DATA TRANSFER

RLDA = DISK ADDRESS REGISTER

(XXXXX&)

BIT 15-7 - CYLINDER ADDRESS FOR TRANSFER
BIT 6 - SURFACE FOR TRANSFER
BIT 5-0 - SECTOR FOR TRANSFER (1-40.)
FOR SEEK FUNCTION

BIT
BIT
BIT
BIT
BIT
BIT
BIT

15-7 - DIFFERENCE TO NEW CYLINDER
6-5 - MUST BE ZERO (0)
4 - SURFACE (0-UPPER, 1=LOWER)
3 - MUST BE ZERO (O
2 - SEEK DIRECTIONC 1=IN / 0=0UT )
1 - MUST BE ZERO (O)
O - MUST BE ONE (1)

FOR GET

STATUS

FUNCTION

BIT 15~4 - IGNORED SHOULD BE ZERO (0)
BIT 3 - DRIVE RESET
BIT 2 - MUST BE ZERO (0)
BIT 1 - MUST BE ONE
BIT O - MUST BE ONE

(1)
(1)

RLMP - MULTIPURPOSE

BIT 15 = 0 - WORD (COUNT

(TWO'S (OMPL IMENT)

PAGE 21

SEQ 0021

FOR READ HEADER

PAGE 22

FUNCTiON

BIT 15-0 -~ DISK HEADER OF SECTOR (FIRST READ)
~ ZERO WORD (SECOND READ)
- HEADER CRC

FOR GET

STATUS FUNCTION

HAS DRIVE

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

15
14
13
12
11
10
9
8
7
6
5

(THIRD READ)

STATUS

WRITE DATA ERROR
CURRENT HEAD ERROR ((CHE)
WRITE LOCK STATUS (WL)
SEEK TIME OUT (SKTO)
SPIN ERROR (SPE)
WRITE GATE ERROR (WGE)
VOLUME CHECK (VC)
DRIVE SELECT ERROR (DSE)
DRIVE TYPE IS RLOZ2 IF SET
SURFACE (0=UPPPER, 1=LOWER)
COVER OPEN

4 - HEADS HOME

BIT
3 - BRUSHES HOME
BIT 2-0 -STATE BITS
0 - LOAD STATE

6.0

- SPIN UP
BRUSH CYCLE

NOA
NS WM

LOAD HEADS

SEEK = TRACK COUNTING
SEEK - LINEAR MODE
UNLOAD HEADS
SPIN DOWN

TEST SUMMARIES

TEST

= RLCS ADDRESSABILITY

84
L4422

THIS TEST WILL CHECK THAT THE CONTROL AND STATUS REGISTER
CAN BE ACCESSED.
IF THE REGISTER CANNOT BE ACCESSED THE
PROCESSOR WILL TRAP TO LOCATION &, WHICH IS SET UP TO
HANDLE THE TRAP.

TEST 2 - RLBA ADDRESSABILITY
(28282

THIS TEST WILL CHECK THAT THE BUS ADDRESS REGISTER CAN BE
ACCESSED.
IF THE REGISTER CANNOT BE ACCESSFD THE PROCESSOR
WILL TRAP TO LOCATION &4, WHICH IS SET UP TO HANDLE THE TRAP.

SEQ 0022

TEST

PAGE 23

3 - RLDA ADDRESSABILITY

AEAREW

THIS

TEST

WILL

CHECK

THAT

THE

DISK ADDRESS REGISTER

CAN BE

ACCESSED.
IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION 4, WHICH IS SET UP TO HANDLE THE TRAP.

TEST & =~ RLMP ADDRESSABILITY
LA S 488

THIS TEST WILL CHECK THAT THE MULTIPURPOSE REGISTER (AN BE
ACCESTED.
IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION &4, WHICH IS SET UP TO HANDLE THE TRAP.
TEST

5 - READ WRITE OF

RLCS

fhhRhR

THIS

BACK.

TEST WILL ATTEMPT

TO WRITE RLCS BITS 9-1

AND READ

WALKING AND GROWING O'S AND 1°'S ARE USED.

TROLLER READY)

? ;gN%gé?N.
H

IS ALWAYS WRITTEN AS A

BITS 15,

14 AND O ARE

SO NOT

BIT 7

THEM

(CON-

INITIATE

TREATED AS DON'T CARE FOR

TEST 6 = READ WRITE

RLBA

L8482
81

THIS TEST WILL ATTEMPT TO WRITE RLBA BITS 15-0 AND READ THEM
BACK.
WALKING AND GROWING 0'S AND 1'S ARE USED.
BIT O CN
A RL11 SHOULD ALWAYS COME BACK AS A O, WHILE ON AN RLV11
IT IS LOADABLE.

TEST

7 =~ READ WRITE OF

RLDA

LA 48 &2

THIS

TEST WILL

BACK.

ATTEMPT

TO WRITE

RLDA BITS

WALKING AND GROWING 0'S AND

TEST 8 - BIS OF

1'S ARE

15-0 AND KEAD

THEM

USED.

RLCS

LA 88 84|

THIS TEST WILL USE THE 11 INSTRUCTION 'BIS'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLCS WORKS.
BITS 9-1 ARE

USED,

BIT

SETTING

IN WALKING AND GROWING 0'S AND 1°'S.

goég?Ngfigkng READY)

IS ALWAYS SET.

BITS 15,

BIT

14 AND 1 ARE

SEQ 0023

PAGE 24

TEST 9 - BIC OF RLCS
AT REN

TYIS TEST WILL USE THE 11 INSTRUCTION ‘BIC'' TO SHOW THAT A
READ-MODIFY~WRITE SEQUENCE OF THE RLCS WORKS.
BITS 9-1 ARE

USED, BIT CLEARING IN WALKING AND GROWING Q'S AND 1°'S,
BIT
goéggNgzg%%ER READY) IS ALWAYS SET.
BITS 15, 14 AND 1 ARE

TEST 10 - BIS OF RLBA
TRANRA
Y

THIS TEST WILL USE THE 11 INSTRUCTION 'BIS'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLBA WORKS.
BITS 15-0 ARE
BIT SET USING GROWING AND WALKING 0°'S AND 1°'S.
BIT O CANNOT
SET ON A RL11, BUT CAN ON A RLV11,
TEST 11
KA NN

- BIC OF RLBA

THIS TEST WILL USE THE 11 INSTRUCTION 'BIC'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLBA WORKS.
BITS 15-0 ARE

BIT CLEARED USING GROWING AND WALKING 0°'S AND 1°S.
TEST 12 - BIS OF RLDA
AAXAANR

THIS

TEST WILL USE

READ-MODIFY-WRITE

THE

SEQUENCE

INSTRUCTION 'BIS'' TO SHOW THAT A
OF

THE

RLDA WORKS.

BIT SET USING GROWING AND WALKING 0°'S AND 1°'S.

BITS

15-0 ARE

TEST 13 - BIC OF RLDA
L8228884

THIS TEST WILL USE THE 11 INSTRUCTION 'BIC'' TO SHOW
READ-MODIFY-WRITE SEQUENCE OF THE RLDA WORKS.
BITS

THA
1

BIT CLEARED USING GROWING AND WALKING 0'S AND 1'S.
TEST

14 - BUS RESET OF

RLCS

AANARNARN

THIS

TEST WILL

VERIFY

THAT

THE BUS RESET OF

THE

PROCESSOR WILL

CLEAR ALL BITS OF THE RL(CS WITH THE EXCEPTION OF BIT 7 (CONTROLLER READY), BIT O (DRIVE READY) AND BIT 15 (COMPOSITE ERROR)
IF BIT 14 (DRIVE ERROR) IS SET.

SEQ 0024

PAGE 25

TEST

15 = BUS RESET OF

RLBA

LA240224

THIS TEST WILL VERIFY

THE BUS RESET OF

THE PROCESSOR WILL

THIS TeST WILL VERIFY THAT THE BUS RESET OF
CLEAR ALL BITS OF THE RLDA.

THE PROCESSOR WILL

CLEAR ALL BITS OF

THAT

THE RLBA.

TEST 16 = BUS RESET OF RLDA
ARAARNN

TEST 17 = UNJQUENESS OF RLCS
LA R

THIS TEST WILL VERIFY
ONLY THAT REGISTER IS
ARE SET UP WITH KNOWN
AND RLDA ARE VERIFIED

TEST

THAT WHEN THE RLCS (XXXXX0) [S ADDRESSED
EFFECTED.
BOTH THE RLBA AND THE RLDA
DATA, THE RLDA IS WRITTEN, THEN THE RLBA
THAT THEY DID NOT CHANGE.

18 = UNIQUENESS OF RLBA

LA28R4
&4

THIS TEST WILL VERIFY THAT WHEN THE RLBA (XXXXX2) 1S ADDRESSED
ONLY THAT REGISTER IS EFFECTED.
BOTH THE RLCS AND RLDA ARE
WRITTEN WITH KNOWN DATA, THE RLBA IS WRITTEN, THEN THE RLCS
AND RLDA ARE VERIFIED THAT THEY DID NOT CHANGE.

TEST

19 = UNIQUENESS OF

RLDA

AR
R

THIS TEST WILL

VERIFY

ONLY THAT REGISTER

THAT WHEN THE RLDA

IS EFFECTED.

(XXXXX4)

WRITTEN WITH KNOWN DATA, THE RLDA IS WRITTEN, THEN
AND RLBA ARE VERIFIED THAT THEY DID NOT CHANGE.

TEST 20 = UNJQUENESS OF

IS ADDRESSED

BOTH THE RLCS AND RLBA ARE

THE RLCS

RLMP

AAkARAAR

THIS TEST WILL VERIFY THAT WHEN THE RLMP (XXXXX6) IS ADDRESSED
ONLY THAT REGISTER IS EFFECTED.
THE RLCS, RLBA AND RLDA ARE

WRITTEN WITH KNOWN DATA,
THE RIMP IS WRITTEN, THEN THE
RLBA AND RLDA ARE VERIFIED THAT THEY DID NOT CHANGE.

RLCS,

SEQ 0025

TEST
AT

SEQ 0026

PAGE 26

~ NOOP FUNCTION

RARY

THIS TEST WILL VERIFY THE OPERATION OF

ON PDP-11'S ONLY, SINCE ON AN LSI=11
FUNCTION.
ERRORS ARE

THE ABILITY OF
CHECKED.

THE NOOP (0)

FUNCTION

IT IS A MAINTENANCE

CONTROLLER READY

TO RESET AND NO

TEST 22 - TEST NOOP DOES NOTHING
AEAARNR

THIS TEST WILL CHECK THAT THE NOOP FUNCTION WILL NOT DISTRUB
ANY REGISTERS Or THE CONTROLLER.
TEST 23 - TEST OF

INTERRUPT

TRANAAY

THIS TEST WILL CAUSE AN INTERRUPT FROM THE (ONTROLLER USING
NOOP (RL11 ONLY) TO CHECK THE INTERRUPT LOGIC AND VECTOR.
TEST

24 -

TEST PRIORITY BR LEVEL

AAENRRN
K

THIS TEST WILL CHECK
WE VERIFY THAT ABOVE

AND BELOW IT,

TEST 25 - GET

THAT THE PROPER PRIOCRITY
THE LEVEL THE BOARD WILL

IT WILL.

IS ON THE BOARD.
NOT INTERRUPT

STATUS FUNCTION

AEAARERDY

THIS TEST WILL VERIFY THAT THE GET STATUS FUNCTION (2) WILL
COMPLETE CORRECTLY.
THE RLDA IS SET UP AND GET STATUS IS
ISSUED.
C(ONTROLLER READY IS CHECKED AS WELL AS ERROR BITS.
(FIRST

TEST 26 - GET

TEST A DRIVE MUST BE

PRESENT.)

STATUS FUNCTION INTERRUPT

LA 8 2884

THIS

TEST WILL

VERIFY

THAT

THE

GET

ERATE AN INTERRUPT ON COMPLETION.

STATUS FUNCTION WILL

GEN-

TEST 27 = GET STATUS FUNCTION GENERATES OPI
AR

THIS

TEST WILL

PROVE

THE

COMMAND WORD

THE ABILITY FOR OP]

(OPERATION

INCOMPLETE)

SET AND THAT THE DRIVE COMMAND ]S BEING TRANSMITTED CORRECTLY.
OP1

(RLDA)

IS EXPECTED 7O RESULT,

SET UP WITH

THIS

THE MARKER BIT ONLY.

IS CHECKED.

PAGE 27

TEST 28 = OP] UNDER INTERRUPT
AN
N

THIS TEST WILL CHECK THE ABILITY OF AN OP] TO CAUSE AN INTERRUPT
TO OCCUR.
WE SEND ONLY THE MARKER BIT WITH THE GET STATUS
COMMAND AND EXPECT AN OPI ERROR.

TEST 30 = READ HEADER FUNCTION INTERRUPT
LA22442

THIS TEST WILL CHECK THE ABILITY OF
TO INTERRUPT ON COMPLETION.

THE READ HEADER FUNCTION

TEST 31 -~ REPEATED RD HDRS YIELD SAME CYL AND HD
L3322
43
]

THIS TEST WILL CHECK THAT ON REPEATED READ HEADERS THE CYLINDER
AND HEAD BITS OF THE HEADER WORD (RLMP) ARE ALWAYS THE SAME.

TEST 32 - CHECK OF HEADER CRC
AN
R

THIS TEST WILL

VERIFY

THE HEADER CRC

THAT FOLLOWS THE

TWO

HEADER WORDS IS ACTUALLY THE CORRECT CRC-16 CALCULATION Of
THE

TWO HEADER WORDS.

TEST 33 = CHECK CONSECUTIVE HEADERS
AAAARE
R

THIS

TEST WILL

CHECK

THAT HEADERS ARE

CONSECUTIVE.

TEST 34 = SEEK FUNCTION
LA28842

THIS TEST WILL

CHECK THE SEEK FUNCTION (3)

READY AND POST NO ERRORS.
CYLINDER FORWARD SEEK.

COMMAND WORD

TO RESET CONTROLLER

IS LOADED WITH A ONE

TEST 35 = CHECK DRIVE READY ON SEEK
LA R

THIS

TEST WILL

CHECK

THAT DRIVE

ISSUANCE OF A SEEK COMMAND.

READY

CLEARS AND RESETS ON

SEQ 0027

SEQ 0028

PAGE 28

TEST 36 - SEEK FUNCTION INTERRUPT
KA

RRE Y

THIS TEST WILL CHECK THE ABILITY OF A SEEK COMMAND TO GENERATE
AN INTERRUPT ON CONTROLLER READY RESETTING AND NOT ONE ON DRIVE
READY RESETTING.

TEST 37 = TEST DIFFERENCE WORD TRANSMISSION
AR
Y

THIS TEST WILL TRY TO VERIFY THAT BITS 14~7, 6, 2, 0 OF THE
COMMAND WORD GET TRANSMITTED CORRECTLY.
WE ISSUE SEEKS FROM

TRACK O WITH COMMAND WORDS OF WALKING AND GROWING O'S AND 1°'S.
ALL SEEKS ARE VERIFIED WITH A READ HEADER AND RETURN TO TRA(CK
O BEFORE NEXT PATTERN IS ISSUED.

TEST 38 = VERIFY HEAD SELECT O VIA RD HEADER
ANRANAER

THIS TEST WILL
READ HEADER.

VERIFY THAT HEAD O CAN BE

TEST 39 =~ VERIFY HEAD SELECT 1

SELECTED AND READ VIA

VIA RD HEADER

KRR
NN

THIS TEST WILL
READ HEADER.

VERIFY

THAT HEAD 1

CAN BE

SELECTED AND READ VIA

TEST 40 ~ VERIFY HEAD SELECT O VIA GET STATUS
L33 24444

THIS

TEST WILL

VERIFY

THE WORD RETURNED

STATUS CONTAINS THE RIGHT HEAD SELECT.

TEST 41

-~ VERIFY HEAD SELECT 1

TO THE

RLMP BY A GET

TO THE

RLMP BY A GET

VIA GET STATUS

L2822
2 84

THIS

TEST WILL

VERIFY THE WORD RETURNED

STATUS CONTAINS THE RIGHT HEAD SELECT.
TEST &2 - TEST TIME AT WHICH DP WD GETS
LA

22444

THIS TEST WILL

CHECK

THAT

THE DIFFERENCE WORD

(RLDA)

ACTUALLY

DOES GET TRANSMITTED PRIOR TO CONTROLLER READY RESETTING.
THIS

IS DONE BY

ISSUING A SEEK,

??Dlgfzbgzgé¥6 THE RLDA.

WAITING FOR CONTROLLER READY

THE SEEK IS THEN VERIFIED TO SEE

TEST 43 - EXTENSIVE CHECK OF

PAGE 29

CRC

ARARERY

THIS TEST WILL MORE EXTENSIVELY CHECK THE CRC LOGIC BY POS]TIONING AT DIFFERENT POINTS ON THE PACK AND CHECKING THAT THE
HEADER CRC RECEIVED IS CORRECT.

TEST &4 = VERIFY GET STATUS WHILE

DRDY

IS LOW

ARNNARY

THIS TEST WILL CHECK THE ABILITY
THE DRIVE IS SEEKING.

TO PERFORM A GET

STATUS WHILE

SEQ 0029

CZRLGBO RL11/RLVIY CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

MACY11

GLOBAL DATA
PATTERNS FOR DIFFERENCE

GLOBAL TEXT
GLOBAL ERRORS
LOAD PROTECTION TABLE
INITIALIZATION CODE

§m~3~:8
%898 x%

d
d
d
o
e
—d e

H NN
O ~NW
=0

1068

30A(1052)
17-DEC=79
TABLE OF CONTENTS

14:01

WORD

AUTO DROP SECTION
GLOBAL SUBROUTINES
ROUTINE TO CHECK FOR CONTROLLER ERRORS
LOAD RLCS
ROUTINE TO CALCULATE CRC
*«TEST 1+« -~ RLCS ADDRESSABILITY
**TEST 2+« ~ RLBA ADDRESSABILITY
*«TEST 3+« - RLDA ADDRESSABILITY
««TEST 4*+ ~ RLMP ADDRESSABILITY
*#TEST S+« ~ READ WRITE OF RLCS
*«TEST 6*+ -~ READ WRITE OF RLBA
«*«TEST 7+« ~ READ WRITE OF RLDA
**+TEST 8+« - BIS OF RLCS
**«TEST Qe+ ~ BJC OF RLCS
*+«TEST 10** - BIS OF RLBA
*«TEST 11+« - BIC OF RLBA
««TEST 12+~ - BIS OF RLDA

*+TEST 13+« -~ BIC OF RLDA
x«TEST 14x+

~ BUS RESET OF

RLCS

*«TEST 16** - BUS RESET OF

RLDA

**TEST 15++ -~ BUS RESET OF RLBA

*«TEST 17*+ - UNJQUENESS OF RLCS

**TEST
**TEST
*+TEST
«#TEST
**TEST
*«TEST
*#TEST
*#*TEST
**TEST
*«TEST
*«TEST
**TEST
*«TEST
*«TEST
*«TEST
**TEST
**TEST

**TEST
**TEST
*aTEST
*2TEST
*xTEST
*«TEST

18++
19«+
20**
21%*
22%+
23«+
24*+
25«+
26%*
27++
28+*
29++
30«+
31x+
32«+
33+«
34++

-~ UNIQUENESS OF RLBA
- UNIQUENESS OF RLDA
-~ UNIQUENESS OF RLMP
~ NOOP FUNCTION(RL11 ONLY)
- TEST NOOP DOES NOTHING
- TEST OF INTERRUPT
- TEST PRIORITY BR LEVEL
~ GET STATUS FUNCTION
- GET STATUS FUNCTION INTERRUPT
- GET STATUS FUNCTION GENERATES OPI1 W/0 GS BIT
- OP] UNDER INTERRUPT
-~ READ HEADER FUNCTION
- READ HEADER FUNCTION INTERRUPT
- REPEATED RD HDRS YIELD SAME (YL AND HD
- CHECK OF HEADER CR(
- CHECK CONSECUTIVE HEADERS
- SEEK FUNCTION

35+« ~ CHECK DRIVE READY ON SEEK
36++ - SEEK FUNCTION INTERRUPT
37x¢
TEST DIFFERENCE WORD TRANSMISSION
VERIFY HEAD SELECT O VIA RD HDR
38we
39u«
VERIFY HEAD SELECT 1 VIA RD HDR
40nx
VERIFY HEAD SELECT O VIA GET STATUS

*«TEST 47xx
24 TEST 42w+
**TEST 43w
*«TEST 44ne

VERIFY HEAD SELECT 1 VIA GET STATUS
TEST TIME AT WHICH DIF WD GETS TRANSMITTED
EXTENSIVE CHECK OF HEADER CRC
VERIFY GET STATUS WHILE DRDY IS LOW

SEQ 0030

CZRLGBO RL11/RLV1T CTLR TST_1
CZRLGB.MAC
07-DEC-79 07:39
)

2
3

000000

9
}?
12

002000

(4)
(4)

002014
002016
002020
002022
0020246
002026
002030
002032
002034
002036
002040
002042
002044
002046
002050
002051
002052
002054
002056
002060
002062
002064
002066
002070
002072
002074
002076
002100
002102

(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)

(4)
(3)
(4)
(5)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)
(4)

000000
000000
002000

(4)
(4)
(4)
(4)
(4)
(6)
(6)
(5)
(4)
(4)
(4)

30A(1052)

17-DEC-79

14:01

LTITLE

CZRLGBO RL11/RLVIT

.NLIST

ME,CND
MD

.ENABLE AMA
.ENABLE ABS

7
8

MACY11

002000
002001
002002
002003
002004
002005
002006
002007
002010
002011
002012

3
PAGE 1

CTLR TST 1

Sv(
SVCINS=0
SVCTAG=0
.=2000

POINTER BGNSFT ,BGNSW,BGNDU,BGNAU
BGNMOD
103
132
122
114
107
000
000
000
102
060
000000

000004
024350

024524
011622
011640
024612
000000
000000
000000
000000
011650
000000
000000
000000

003
003
000000
000000
000000
002230
000000
000000
000000
013024
013020
000000
002122
104035
000000

MDHEDR
HEADER
LASCII
LASCII
LASCI1
LASCII
LASCIT
BYTE
BYTE
BYTE
.ASCII
.ASCII
WORD

.WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
BYTE
BYTE
WORD
WORD
WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
EMT
.WORD

(ZRLG.B,0,4.0

/C/
72/
/R/
/L/
/G/
O
0
0
/B/
70/
O

4
L$HARD

L$SOFT
LSHW
L$SW
LSLAST
O
O
O
0
L$DISPATCH
O
0
0

CSREVISION
(SEDIT
0
0
O
L$DVTYP
0
0
0
LSAU
LS$DU
0
LSDESC
ESLOAD
0

SEQ 0031

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

MACY11

30A(1052)

012006
012752
012530
012000
000000
000000
000000

(4)

(4)
(4)
(4)
(4)
(4)
(4)

17-DEC-79

14:01

.WORD
.WORD

LSINIT
LSCLEAN

.WORD

.WORD
.WORD
WORD
WORD

PAGE

1-1

SEQ 0032

LSAUTO
LS$PROT
0
0

ENDMOD

002224
002230
002230
002236

055103
042524
047503
046114
047125
051516
042524
020105
026103
051511
050117
047511
046122
030114

thitnnan

b —
b
-— —

— By Py

O =N
tonunnunn

g [l
]

@ D@D D

Nt N
o

— ———t —t —t

1 BIT DIFINITIONS

NP N

—d b

—d

EQUALS

)

GLBEQAT

002242

BIT09==

b —d —d

BGNMOD

100000
40000

20000

10000
4000

2000

Nt N

d ——

/RLO1,RLO2/

.EVEN

LASCIZ

)

.EVEN
<RLO1,RLOZ2>

DEVTYP

d —d

051054

DESCRIPT <CZRLG TESTS CONTROLLER FUNCTIONS, INTERFACE LOGIC, REGISTER OPERATION>
LASCIZ
/CZRLG TESTS CONTROLLER FUNCTIONS, INTERFACE LOGIC, REGISTER OPERATION/

)
d wd
vl

030460
000062

020107
020123
047522
043040
047511
047111
041501
044507
043505
020122
052101

Nt "l N
Nt N
N

nd ——d cnd
b

M
N

—d

e tlatateateteatateatatatlateatletaleateateatateateateata
e

002242

046122
052123
052116
051105
052103
020054
043122
047514
051040
042524
051105
000116

001000
000400
000200
000100

BIT09
BiT08
BIT07
BITO06

000040
20

atata

tata ta ke

N
I
g
s i e T T
)
S W e W W N W N N N N N s s N

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

e YV
W
et e N e Y e Ve
e

14:01

3
PAGE 1-2

SEQ 0033

BIT0S
BIT04
BIT03
BITO?
BITO1
BIT00

"EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
32.
3.
30.
29.
28.

EF .START==
EF .RESTART==
EF . CONTINUE==
EF .NEW==
EF .PWR==

; START COMMAND WAS ISSUED
; RESTART COMMAND WAS [SSUED
; CONTINUE COMMAND WAS ISSUED
: A NEW PASS HAS BEEN STARTED
; A POWER-FAIL/POWER-UP OCCURRED

* PRIORITY LEVEL DEFINITIONS
000240
000200
000140
000100
000040
000000

PRIJO7==
PRI06==
PRIOS==
PRI04==
PRI03==
PRI02==
PRIO1==
PRIOO==

340
300
240
200
140
100
40
0

;OPERATOR FLAG BITS

e Y e Y e T e

BIT5==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

000004
000010
200020

17-DEC-79

30A(1052)

* EVENT FLAG DEF INITIONS

[N YT YT QU
QU W (U W
T QT S DU (P QR SN QU S
N
N
S
i
R
I
NN M M v
W A e N W W S S W N N N e N s M S S N S s N N

MACY11

LOT==

ADR==
1DU==
ISR==
UAM==
BOE==
PNT==
PR]==
IXE==
IBE==

IER==
LOE==

HOE==

000020
020000
000000
000400
001000

Evl==

20
40
100
200
400
1000
2000
4000
10000

20000
40000

100000

DRDY=BITO
INTEN=B]T6
ERR=BIT15
DERR=BIT14
OPI=BIT10
CRDY=BIT?7
BA17=BIT5
BA16=BIT4
NXM=B1T13

0S0=0
DS1=B1T8
DS2=BIT9

;DRIVE READY (RLCS)
; INTERRUPT ENABLE (RLCS)
;RL11

ERROR

(RLCS)

;RLOY DRIVE ERROR (RLCS)
;OPERATION INCOMPLETE (RLCS)
;CONTROLLER READY (RLCS)
;EXTENDED ADDRESS BIT 17 {RLCS)
;EXTENDED ADDRESS BIT 16 (RL(CS)
;NON-EXISTANT MEMORY (RL(CS)
;DRIVE SELECT O (RLCS)
;DRIVE SELECT 1 (RLCS)
;DRIVE SELECT 2 (RLCS)
1

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39
39

001400

000004
000006

40
41
42

MACY11

30A(1052)

17-DEC-79

GSTAT=B]T?2
SEEK=BITZ2!BIT1

;GET STATUS FUNCTION
sSEEK FUNCTION

45
46
Y4
48
49
50

000010
000012
000014
000202
000010
000002

RDHDR=B]T3
WRITE=BIT3!BIT1
READ=BIT3!BIT?
GODRVR=B]T1!BIT7
DRST=BIT3
GSBIT=BIT1

000100

;READ HEADER FUNCTION
;WRITE DATA FUNCTION
sREAD DATA FUNCTION
;CRDY AND DRDY
:DRIVE RESET (RLDA)
;GET STATUS BIT (RLDA)

MK=BITO
SIGN=BIT?
RHHS=BIT6

;MARKER BIT (RLDA)
;SIGN BIT (RLDA)
JHEAD SELECT IN READ HEADER

000020

DAHS=BITé&

;HEAD SELECT IN SEEK

STHS=BIT6

;HEAD SELECT IN STATUS BACK

;OFFSET FOR HARDWARE P-TABLE

000000

60
61
62
63
gg

000002
000004
000006
000010
000012

CSR=0

VECT=2
PRIOR=4
TYPDR=6
DRBT-10
CNT=12

;OFFSET FOR SOF TWARE P-TABLE

68
69

000000
000002

000004

002242

002242
002244

002246
002250
002252
002254
002256
002260
002262
002264
002266
002270
002272
002274
002276
002300
002302

DLT=0
ELT=2

SIZE=4
ENDMOD

80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

; FUNCTION-NOOP
(Q)
s FUNCTION=-NOOP
(7)
;WRITE CHECK FUNCTION

000001
000004
000100

78
79

PAGE 1-3

;DRIVE SELECT 3 (RLCS)

NOOPQ=0
NOOP7=BIT1!BIT2.BIT3
WRCHK=B]T1

51
52
53

DS3=BIT8!BIT9

000000
000016
000002

14:01

000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

BGNMOD

GLBDAT

.SBTTL

GLOBAL DATA

PWRFLG:
UuT :

.WORD
.WORD

UNITST:
RLCS:
RLBA:
RUDA:
RLMP:
BCSR:
BPRIOR:
BVEC:
DRIVE:
B.CS:
B.BA:
B.DA:
B.MP:
DERFLG:
E.CS:

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

0
0

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

;DRIVE UNDER TEST

SEQ 0034

CTLR T

07-DEC~79 O

95
96
97
98

000000
000000
000000
000000
000000
000000

CZRLGB.MAC

—

D
D e
e
D e
)
D e
e
e
e
d
)
) md
D
d
D
)
D
d eed
d
d
b o
)

WIWWWWNINONODNIN
NN DD
b b Dl
a2

d
oD
d e
d cd

HHWN

— —d

142

GLOBAL DATA

E.BA:
E.DA:
E.MP:

.WORD
.WORD
.WORD

PFLG:
TRPFLG:

.WORD
.WORD

XPCLY:

.WORD

E.MP1:
E.MP2:

_WORD
.WORD

.WORD
.WORD
.WORD

ERRVEC:
BCCFBK:
CALBCC:
TEMP2:
TEMP3:
TEMP4:
TMPO:
TMP1:

.WORD
.WORD
.WORD
.WORD
_WORD
_WORD
.WORD
.WORD

GDDAT:
BDDAT:

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

TTMMP?:

FIRST:

CYLMSK:
MXSECT1:
MAXSEC:
DWORD:
MAXCYL:
SVHD:
WHY :

000000
000000

17-DEC-79

30A(1052)

INTFLG:
LDCSR:
SECMSK:

) =D —

olele)

100

MACY11

.WORD

DLYCNT:

PAGE 1-4

s INTERRUPT OCCURRENCE FLAG
;LOCATION TO FORM RLCS
;MASK OUT SECTOR

;LOCATION USED
;LOCATION USED
;LOCATION USED
;LOCATION USED
;LOCATION USED

002434
002436

002440
002442
002444
002446
002450

000000
000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

:
BEGPAT

177777

BY
BY
BY
BY
BY

''SIMBCC'’
'‘SIMBCC''
‘''SImMBCC''
‘'SIMBCC'’
"'SIMB(CC'’

;FIRST SECTOR READ

77700
.

JMASK CYLINDER AND HEAD SELECT
sMAX SECTOR ADDRESS +1

39.
0
177600
0
0

;sMAX SECTOR ADDRESS
;DIFFERENCE WORD (SEEK)

sMAXIMUM CYLINDER ADDRESS
s SAVE CURRENT HEAD SELECT

JREASON FOR DROP UNIT
0
O
O
0

:PATTERNS USED FOR LOADING/READING REGISTERS
002410
002412
002414
002416
002420
002422
002424
002426
002430
002432

SEQ 0035

;PROCESSOR TYPE, 0=UNIBUS, 1=Q-BUS

0001

.WORD
.WORD
.WORD
.WORD

T.DRIVE:
T.CNTLR:
:
TMPFNC

14:01

8—‘OOOOOOOOOOOJ\—'\)OOOOOOOOO
NN

(ZRLGBO RL11/RLVIT

. GROWING 1

Vele RaNTo JV. PNVIT,N] —

N —
N
S
P

(LA AV, LV, IV, LV, LV, 1V, | v

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
002452

MACY11

30A(1052)

17-DEC~79

GLOBAL DATA

177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000

3
PAGE 1-5

:GROWING 0

177776
177774
177770

177776
177774

14:01

177760
177740

177700
177600

177400
177000
176000
174000
170000
160000
140000
100000

000000
000001
000002
000004
000010
000020
000040

?OOOOO

JWALKING 1

4000

10000

20000

FERIVS
YR LRI REC28IEIR

REE P

185

40000
100000
1727777
177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777

00
177777

177776
177775
177773
177767
177757
177737
177677

002614
002616

002620

177577
177377
176777
175777
173777
167777
157777
137777
0727777
177777
000000

000200

JWALKING 0

077777
177777
ENDPAT: 000000
.SBTTL

PATTERNS FOR DIFFERENCE WORD

SKLST:

_WORD

BIT7

SEQ 0036

CZRLGBO RL11/R LV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

207

002622

000400
001000
002000
004000
010000
020000
040000
077600
077400
076600
075600
073600
067600
057600
037600
077600
000200
000600
001600
003600
007600
017600
037600
077600
077400
077000
076000
074000

MACY11

30A(1052)

247
248
249
250
251
252
253
254
255
256

002740
002742
002744
002746
002750
002752
002754
002756
002760
002762

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

QMAX :

HMAX :

SKEEND:

002764
002766
002770

000000
000002
000004

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

.WORD

CSPAT:

.WORD
.WORD
. WORD

JSHIFTING O

;GROWING 1

77600
77400
77000
76000
74000
70000
6V000
40000
00000

.WORD

1-6

76600
75600
73600
67600
57600

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

PAGE

JSHIFTING 1

77600
77400

7600
17600

JPATTERNS FOR

260
261
262

BIT8
BIT9
BIT10
BIT11
BIT12
BIT13
BIT14

.WORD

QUAMAX: .WORD
HALMAX: ,WORD

177600
177400
176600
173600
167600
157600
137600
177000
176000
174000
170000
060000

040000
000000

14:01

PATTERNS FOR DIFFERENCE WORD

SKEND:
RLZ:

077600

17-DEC-79

37600

;GROWING 0

BIT1S
22609
77600

177600
177400
176600
173600

000000
TEST OF

0
BIT1
BIT?

RLCS

JSHIFTING 1

SEQ 0037

CZRLGBO RL11/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

263

264

002772

000010
000020
000040
000100
000400
001000
001576
001574
001570
001560
001540
001500

001400
001576
001574
001566
001556
001536
001436
001136
000076
000006
000016
000036
000076
000176
000576
001576
000000
000000
000100
000240

MACY11

30A(1052)

17-DEC=79

164:01
PAGE
PATTERNS FOR DIFFERENCE WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

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

.WORD

CSEND:
WORD
ERPOINT: .WORD
: .BLKW
ERCOUNT
: .BLKW
HDRBUF
ENDMOD

BIT3
BIT4
BITS
BIT6
BIT8
BIT9
1576
1574
1570
1560
1540
1500
1400
1576
1574
1566
1556
1536
1436
1136
76
6
16
36
76
176
576

1576

0
0
064.
160.

1-7

;GROWING 0

JSHIFT O

;GROWING 1

SEQ 0038

iy
PP
P
oot Pust Pt G

O~NOWVNHWN=0O

NN NN
NN NN

BRERERES

298

MACY11

003766
003766
003773

053122
054116
044520

041510

047110
045503
046104
000
000
047503
051117
050117
047517
044522
044522
042101

000
000115
000
041522
000106
000
000124

050115
042503
047440
020120
042524
042524
044040
044040
020113
047440
052123
051440
000
020072

020072
020072
051117
047440
051124

042101
041505
052111
044522

054503
044040
047524
047111
044524

30A(1052)

17-DEC-79

14:01

PATTERNS FOR DIFFERENCE WORD

BGNMOD
.SBTTL

GLBTXT
GLOBAL TEXT

DEMES:
:
NXMMES
OPIMES

.ASCIZ
LASCIZ

HNFMES:

LASCIZ
LASCIZ

ASCIZ

HCRCMES: .ASCIZ

DCKMES:
DLTMES:
MSCRLF:
:
:
:
:
:
:
:
:
:
:

.ASCIZ
.ASCI2Z
.ASCIZ
.ASCIZ

JASCIZ
JASCIZ
JASCIZ
JASCIZ
JASCIZ
.ASCIZ
JASCIZ
JASCIZ
JASCIZ
JASCIZ

JASCIZ
LASCIZ
LASCIZ
LASCIZ

.ASCIZ

.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
LASCI2
LASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ
LASCIZ

.ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ

NNNNNNN

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

3
PAGE 1-8

SEQ 0039

DRV/

NXM/

OPl/

HCRC/

/
HNF
DCK/
DLT/
<15><12>
<15>
/ COMP/
/FORCED OP](GET STATUS) CAUSED OTHER ERRORS/
/NOOP OPERATION~FLAG MODE/
/NOOP OPERATION~-INTR. MODE/
/WRITE CHECK OPERATION-FLAG MODE/
/WRITE CHECK OPERATION-INTR. MODE/
/READ HEADER OPERATION-FLAG MODE/
/READ HEADER OPERATION-INTR. MODE/

/SEEK OPERATION-FLAG MODE/

/SEEK OPERATION=-INTR. MODE/
/GET STATUS OPERATION-FLAG MODE/
/GET STATUS OPERATION=-INTR MODE/
/CS: /
/ BA: /
/ DA: /

/ MP:

/BEFORE COMMAND: /
/TIME OF ERROR:
/
/CONTROLLER TIMED OUT/
/DRIVE READY TIMED OUT/
/CAN NOT ADDRESS RLCS/

/CAN NOT ADDRESS
/CAN NOT ADDRESS
/CAN NOT ADDRESS
ZRLCS READ/WRITE
XRLBA READ/WRITE

RLBA/
RLDA/
RLMP/
ERROR (BIT O DON'T CARE)X
ERRORZ

ZRLDA READ/WRITE ERRORX
/0P] WOULD NOT GENERATE

INTERRUPT/

/NO INTERRUPT FROM NOOP(0)/
/NOOP(Q) MODIFIED RLMP/
/NOOP(Q) MODIFIED RLBA/
/NOOP(0) MODIFIED RLDA/
/INTERRUPT PRIORITY FAILURE/

/GET STATUS WOULD NOT INTERRUPT/
/GET STATUS SHOULD NOT INTERRUPT/
/RUMP CONTAINED WRONG STATUS/

/0P] DID NOT SET-GSTAT WITHOUT GS BIT/
/0P] DID NOT SET~GSTAT WITHOUT GS AND MK BITS/

/READ HEADER WOULD NOT INTERRUPT/
/BAD CYLINDER OR HEAD SELECT IN REPEATED READ HEADER TEST/
/BAD HEADER CRC ON READ HEADER/
/SECTOR ADDRESS OQUT OF SEQUENCE DURING CONSECUTIVE READ HEADERS/
/WRITING RLMP MODIFIED RLCS/
/WRITING RLMP MODIFIED RLBA/

CZRLGBO RL11/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39
006264
006317
006350
006420
006457
006512
006551
006622
006652
006733
007016
007077
007162
007243

051127
123

17-DEC-79
TEXT
GLOBAL

MACY11 30A(1052)

052111

102

102
044502
102

122

00170

.ASCI2

EMG?7:

044524
047111
020123

LASCIZ
JASCIZ

JASCIZ

ASCI2

EM70:
EM71:
EM72:
EM73:
EM74 :
EM7S:
EM76:

LASCI2
LASCI2
LASCI2Z
LASCIZ
LASCIZ
JASCIZ
ASCIZ

EM101:
EM102:

.ASCIZ
BLKB

EM?77:

.EVEN

010152

ASCil

.ASCIZ

EM64 :

EM66:

052111
044522
044522
044522
052111
041514

.ASCI2Z

.ASCIZ
LASCI2Z

EM6ES:

052502

ASCIZ

EM61 :
EM62:

EM6O3:

044502

127
127
051127

LASCIZ
LASCIZ
LASCIZ

EMS7

051104
044502

127

EMS2:
EMS4
EMSS

FMSH

114

051127

LASCIZ

EM4L7:

051104
040502
102
040502

102
052502
127

EM46:

ENDMOD

ASCIZ

14:01

4
PAGE 1-9

/WRITING RLMP MODIFIED RLDA/
/SEEK WOULD NOT INTERRUPT/
/DRIVE READY CAUSED EXTRANEOUS INTERRUPT/
/BAD SEEK~TEST OF DIFFENCE WORD/
/BAD HEAD SELECT VIA RD HDR/
/BAD HEAD SELECT VIA GET STATUS/
/LOADING RLDA BEFORE DRIVE READY ON SEEK/<15><12>
/DRIVE READY DID NOT SET/
/BIT SET INSTRUCTION ON RLCS YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLCS YIELDED WRONG RESULT/
/BIT SET INSTRUCTION ON RLBA YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLBA YIELDED WRONG RESULT/
/BIT SET INSTRUCTION ON RLDA YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLDA YIELDED WRONG RESULT/
/8BUS RESET DID NOT CLEAR RLCS/
/8US RESET DID NOT CLEAR RLBA/
/BUS RESET DID NOT CLEAR RLDA/
/WRITING RLCS MODIFIED RLBA/
/WRITING RLCS MODIFIED RLDA/
/WRITING RLBA MODIFED RLCS/
/WRITING RLBA MODIFED RLDA/
/WRITING RLDA MODIFIED RLCS/
/WRITING RLDA MODIFIED RLBA/
{gbCS CONTAINED FOLLOWING ERROR(S):
/

SEQ 0040

CZRLGBO RL11/RLV11 (CTLR ST 1
CZRLGB.MAC
07-DEC-79 07:39
N
392
393
394
395
396
397
398
399

400
«n
(3)
(3)
402
403
404
405
406
407
408
(3)
(3)
409
410
a1
412
413
(9
(8)
(7)
6)
(3)
(4)
(4)
414
415
416

(3)
(3)

417
418
419
420
421
422
a0
(9)
(8)

(7)
6
(3)

(4)

MACY11

30A(1052)
17-DEC~79
GLOBAL ERRORS
.SBTTL

GLOBAL ERRORS

010152

BGNMOD

GLBERR

010152

BGNMSG

ERRO

14:01

010152
010156

004737
004737

010476
010532

JSR
JSR

PC.LINET
PC.LINE2

010162
010166
010166
010166

004537

013030

JSR
ENDMSG

RS,CKERLT

TRAP

CIMSG

L10000:

104423

010170

BGNMSG

004737

010476

JSR

PC.LINET

010174
010200
010200
010200

004537

013030

JSR
ENDMSG

RS, CKERLT

TRAP

CSMSG

L10001:

010202
010202
010206
010206

010212

010216
010222
010226
010230
010232
010236
010242
010242
010242

BGNMSG

004737

010476

013746
013746
012746
012746
010600

002356
002354
011154
000003

JSR

PRINTB
MOV

MOV

104414
062706

000010

004537

013030

JSR

L10002:

010244

BGNMSG

010244
010250
010254
010254
010260
010264
010270
010274
010300
010302
010304

004737
004737

010476
010532

013746
013746
013746
012746
012746
010600

002354
002356
002346
011212
000004

062706

000012

010310
010314

004537

013030

104414

;CHECK ERROR LIMIT

ERRZ?

MOV
MOV
MOV
TRAP
ADD

104423

&
PAGt 1-10

ERR1

010170

104423

ENDMSG

PC.LINE1
#FRMTS4 ,GDDAT ,BDDAT

BDDAT ,~(SP)
GDDAT ,~(SP)

NFRMT4 ,-(SP)
#3,-(SP)

SP.RO
CSPNTB

#0,sP

R5,CKERLT

sCHECK ERROR LIMIT

CSMSG
ERR3
PC,LINE]
PC,LINE?
#FRMTS5,
TMPO ,BDDAT ,GDDAT

GDDAT ,~(SP)
BDDAT ,-(SP)
TMPO,
= (SP)
NFRMTS
, - (SP)
#4,-(SP)
SP,RO
CSPNTB
JSR
ENDMSG

RS,CKERLT

;CHECK ERROR LIMIT

SEQ 0041

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MA(
07-DEC-79 07:39

(3)
(3)

010314
010314

627
428
429
430
43
(9)
(8)
(7)
(6)
(3)

010316

426

(4)
(4)

432
433
434
(3

010316
010322
010326
010326
010332
010336
010342
010346
010350
010352

MACY
11 30A(1052)

17-DEC=79
GLOBAL ERRORS

L10003:

104423

TRAP

14:01

4
PAGE

1-11

CIMSG

BGNMSG

004737
004737

010476
010532

(13746
013746
012746

002356
002354
011154
000003

PC,LINE]
PC,LINE?
N#FRMT4 ,GDDAT ,BDDAT
BDDAT ,~(SP)
GDDAT,~(SP)
N#FRMTS
- (SP)
#3,-(SP)

000010

#10,SP

010356
010362

SP,RO
CSPNTB

013030

010362

L10004:

010362

010364

BGNMSG

JSR
ENDMSG

R5,CKERLT

TRAP

C$MSG

ERRS

010364

004737

010476

JSR

PC.LINET

010370
010374
010374
010374

004537

013030

JSR
ENDMSG

R5,CKERLT

TRAP

CSMSG

L10005:

104423

010376

BGNMSG

004737
004737
004737

010476
010754
010532

012746
012746
010600

011207
000001

062706
004537

000004
013030

104414

1%:

ERRG
JSR
JSR
JSR

PC,LINE]
PC,LINE3
PC,LINE2

PRINTB

N#FRMT99
H#FRMT99,-(SP)
#1,-(SP)
#4,SP

RS,CKERLT

CIMSG

BGNMSG

004737

010476

013746
012746
012746
010600

002356
011263
000002

sCHECK ERROR LIMIT

SP,RO
CSPNTB

L10006:

104423

;CHECK ERROR LIMIT

PC,LINET
#FRMT6,BDDAT

- (SP)
BDDAT,

HFRMT6,~(SP)
#2,-(SP)

SP.RO

;CHECK ERROR LIMIT

SEQ 0042

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39
(4)
(4)
458
459
460
461

(3)
(3)
462
463
(9
(9
(8)
(7)
(6)
(3)

(4)
(4)
464
465
466
12)
11)

17-DEC-79
GLOBAL ERRORS

14:01

010462
010464

062706

000006

TRAP
ADD

#6,SP

010470

004537

013030

JSR

R5,CKERLT

010474
010474
010474
010476

010476
010500
010504

010510
010514
010520
010522
010524

010530

010532
010532
010536
(10) 010542
(9
010546
(8)
010552
(7)
010556
(6)
010562
(3
010566
(4)
010570
(4)
010572
467 010576
a1 010576
a0 010602
(9)
010606
(8)
010612
(7)
010616
(6)
(3)
(4)
(4)

468
(12)
(11)

10
(9)
(8)
(7)
(6)
(3)
010672
(4)
010674

010676
010702
13 010702
(12) 010706
an 010712

(4)
469

MACY11 30A(1052)

104414

L10007:

104423

005046
153716

013746
012746
012746
010600
104414

LINE?:

002267
002250
011026
000003

062706
000207

000010

013746
012746
013746
012746
012746
012746
012746

002272
004573
002270
004566
004615
011066
000006

000016

013746
012746
013746
012746
012746
012746
010600
104414
062706

002276
004607
002274
004601
011105
000005

013746
012746
013746
012746
012746
012746
012746
010600

002304
004573
002302
004566
004636
011066
000006

062706

000016

013746
013746
013746

002314
002312
002310

104414

000014

PAGE 1-12

CSPNTB

ENDMSG
TRAP

C$MSG

PRINTB

#FRMT1 ,RLCS,<B,DRIVE+1>
=(SP)

CLR
81SB
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

LINEZ:

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV

DRIVE+1,(SP)
RLCS,=(SP)
H#FRMT1,-(SP)

#3,-(SP)
SP,R0
CSPNTB
#10,SP

N#FRMT2 ,#BEREG,#ARLCS,B.CS,#ARLBA,B.BA
B.BA,-(SP)
#ARLBA,~(SP)

B.(CS,-(SP)

#ARLCS ,=(SP)

#BEREG,-(SP)
HFRMT2,-(SP)
#6,-(SP)

CSPNTB

#16,SP

W#FRMT2A ,#ARLDA ,B.DA ,#ARLMP ,B.MP
B.MP,-(SP)
HARLMP
, - (SP)

B.DA,=(SP)

#ARLDA,~(SP)
#FRMTZ2A,-(SP)

#5,-(SP)

SP,RO
CSPNTB

#14,SP
#FRMT2 ,#AFREG,#ARLCS E.CS,#ARLBA E.BA

#ARLCS,=(SP)
NAFREG,=(SP)

H#FRMTZ2,-(SP)
#6,~(SP)

SP,RO
CSPNTB

#16,SP
N#FRMT2B,#ARLDA,E.DA,#ARLMP
E .MP E .MP1 E .MP?

E.MP2,-(SP)
E.MP1,-(SP)
E.MP,~(SP)

SEQ 0043

(10) 010716
(9)
010722
(8)
(7)
(6)

012746
013746
012746

(3)

(4)
(&)
470
N
472
(8)

004607
002306
004601
011120
000007

MOV
MOV
MOV
MOV
MOV
MoV
TRAP
ADD

LINE3:

007715
011147
000002

000006

b cmd aned

007762
011147
000002

479

480
481
482
483
484
485
486
487
488
489
490
N
492
493

30A(1052)
17-DEC~79
GLOBAL ERRORS

000020

000006

—)

(7)
(6
(3
(4)
(4)
473
(8)
(7
(6)
(3
(4)
(4
474
475

MACY11

040445

011471
011535

047045
045
052045
045
047045
045
047045
045
040445
045
047045
045
045

047503
052045
022524
047445
022516
040445
000116
040445
022516
051105
022516
052045
022516
022516

052116
052045
033117
022466
000124
054105

040514
040501
047522
042101
040445
042101
042101

FRMT1:
FRMT?2:
FRMTZ2A:
FRMTZ28:
FRMT3:
FRMT4:
FRMT99:
FRMTS:
FRMT6:
FRMT11:
FRMT12:
FRMT13:
FRMT14:
FRMT1S:

14:01

&4
PAGE 1-13

E.DA,~(SP)

#ARLDA,~(SP)

N#FRMT2B,-(SP)
#7,-(SP)

SP,RO
CSPNTB

#420,SP

RTS

PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTB
MOV
MoV
MOV
MOV
TRAP
ADD
RTS

NFRMT3 #EM101
#EM101,-(SP)
HFRMT3,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP
NFRMT3 #EM102
HEM102,-(SP)
H#FRMT3,-(SP)

LASCI
.ASCI
LASCI
.ASCI
LASCI
.ASCI
.ASCI
LASCI
LASCI
LASCI
LASCI
LASCI
.ASCI
LASCI

SEQ 0044

N#ARLMP ,~(SP)

NNANNNNNRNSNNNNN

CZRLGBO RL11/RLVIY1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

#2,-(SP)

SP,RO
CSPNTB
#6,SP

/XACONTROLLER: X06X%A
/INXTXTR06XTX06/
/XTX06XTX06/

DRIVE:

/XTX06XTX06XA X06XA 206/
/INXT/
/XINXAEXP'D: X06XA REC'D: 206/
/IN/
/XNXALAST: X06XA PRES: X06XA EXP'D: X06ZN/
/INXAAT PROCESSOR LEVEL X06XN/
/XAERROR LIMIT EXCEEDED-DROPPEDIN/
/XNXADRIVE DID NOT RECOVER FROM POWER FAILUREZIN/
/INXTXA = WILL NOT TESTIN/
/XNXADRIVE DROPPED - NO CONTROLLERAN/
/XNXADRIVE DROPPED - DID NOT RESPOND WITH ‘READY' AN/

.EVEN

011620

ENDMOD

011620

011620
011620
011622
011624

BGNMOD

000006

174400
000160

BGNHW

HPTCODE

.WORD
.WORD
.WORD

%01/

L10010-L$HW/?2
174400
160

;CSR
JVECTOR

MACYT1

30A(1052)
17=-DEC~79
GLOBAL ERRORS

000240
000001

.WORD

000000
000001

011636
011636

.WORD

BGNMOD

000003

011640
011642
011644

000000
000012
000000

011646
011646

BGNSW
DROP:

:
MERLMT
T.SIZE:

JRL1T

=1, RLVIT

SPTCODE

.WORD

L10011-L$SW/2

.WORD
.WORD
.WORD

10.
0

014536

014632
014726
015046
015150
015236
015362
015506
015612
015712
016002
016102
016212
016264
016322
016446
016606
016746
017152
017202
017406
017472
017636
017666
020040
020126

DISPAT(CH

DSPCODE

.WORD

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

. WORD

2 e R e
e
OO0~

NN NN NN NNNNNNN
Y~
NOPNVNIN)
= = b =
o
o
nN

000054
014346
014442

sPRIOR]ITY

JRLOT

ENDMOD
BGNMOD

SEQ 0045

L10011:

011646

240

ENDSW

011646

PAGE 1-14

ENDMOD

011636
011636

011672

L10010:

011636

011646
011646
011650
011652
011654
011656

14:01

ENDHW

011636

—Samaaaaaaaaaaaaaaaan

011626
011630
011632
011634

lelelolelelelalelelolololelelololels]

00 N~

— D (N

NN SN -

[V LV, P YV, IV, IV, IV, [V, ] (¥,]

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

;DRIVE

(BITS 8,9,10)

= 0

CZRLGBO RL11/RLV1IT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

(6)
(6)

(6)
(6)
{6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
535
53¢

537
538

011740
011742
011744
011746
011750
011752
011754
011756
011760
011762
011764
011766
011770
011772
011774
011776

012000

020254
020276
020356
020522
020660
021176
021272
021336
021462
022100
022232
022376
022534
022706
023334
024054

MACY11

30A(1052)

17-DEC-79

GLOBAL ERRORS

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
ENDMOD

129
130
131
132
733
134
135
136
137
738

139

140
141
142
743
T44

14:01

PAGE 1-15

SEQ 0046

CZRLGBO RL11/RLVIT CTLR TS T1
CZRLGB.MAC
07-DEC-79 07:39

MACY11

540

541
542
543
564
545
329

012000
012000
012002
012004
012006

548
ggg

012006

gg}

012006

553
(3)
554
(3)
(3)
555
(2)
556
557
558
(3)
(3)
559
(2)

012006
012006
012010
012010
012014
012016
012016
012020
012026
012030
012030
012034
012036
012036

(3)
(3)
561
(2)

012040
012044
012046
012046

560

562
563
564
565
566
ggg

012040

012050
012054
012060
012062
012064
012066

000000
177777
000012

.SBTTL
BGNMOD

104433

012700
104447
103004

000034

013737
000475

002012

012700
104447

000037

012700
104447

NOPWR:

4
PAGE 1-16

SEQ 0047
_

;P-TABLE OFFSET OF (SR
JNOT A MASS-BUS DRIVE
;P-TABLE OFFSET OF DRIVE

INITIALIZATION (ODE
INITCODE

103010
012700
012701
005020
005301
001375
000407

012100
012104
012106
012114
012122

005737
001011
012737
013737
012737

002244

578
579
580
581

012130
012134
012142
012146

005237
062737
005337

002246
000002
002244

013700

002246

000036

sNO,BRANCH

JYES, SET POWER FLAG
.GO TO CONTINUE POINT
JRESTART?

#EF.START

START1: MOV
MoV
1%:
CLR
DEC
BNE
BR

#ERCOUNT ,RO
#64. R1
(RO)
+
R1
1%
START

CONTINUE :

READEF

MoV
TRAP

NXT :
002246
002244

START:

003064

XXX :
REST:

#EF .CONTINUE

HEF . CONTINUE
,RO
CSREFG

BCOMPLETE
BCS
CONT

103451

177777
002012
003064

JPOWER UP?222?

MOV
#EF .START
RO
TRAP
CSREFG
BNCOMPLETE
CONTINUE
BCC
CONT INUE

003066
000100

572
573
574
575
g;g

012700
104447

BRESET
TRAP
CSRESET
READEF
#EF .PWR
MoV
HEF .PWR,RO
TRAP
CSREFG
BNCOMPLETE
NOPWR
8CC
NOPWR
MOV
LSUNIT,PWRFLG
BR
CONT
READEF
#~F RESTART
MoV
WEF .RESTART
RO
TRAP
CSREFG
BCOMPLETE START1
BCS
START1

READEF

000040

012076
012076

012146

00c242

103404

570
g;%

(3)

BGNINIT

012070

012070
012076

14:01

.SBTTL
LOAD PROTECTION TABLE
BGNPROT
.WORD
0
.WORD
=1
.WORD
10.
ENDPROT

569
(3)
(3)

30A(1052)
17-DEC=79
GLOBAL ERRORS

;CONTINUE??2?

CONT

TST
BNE
MOV
MoV
MoV

uut
XXX
#-1,UNITST
LSUNIT,UUT
WHERCOUNT=-2 ,ERPOINT

INC
ADD
DEC
GPHARD

UNITST
#2 ,ERPOINT
uuT
UNITST,RO

MOV

;START???

UNITST
RO

;DONE ALL WUT'S
:NO

CZRLGBO RL11/RLV1IT (CTLR 7ST 1
CZRLGB.MAC
07-DEC~79 07:39

MACY11

17-DEC-79
30A(1052)
INITIALIZATION CODE

104642

103406

005737
001746
005337
000743
012037
012037
012037
012037
012037
012037
012222
012226
012232
012236
012242
012246
012252
012256
012262
012266

013700

14:01

BCS

002242

TST

BEQ
DEC

002242
002260
002264
002262
002400
002266
002402

1%:

002260
002250
000002
002252
000002
002254
000002
002256
002242

CONT:

NXT
PWRFLG

B8R

NXT

MOV

(RO)+,BPRIOR

MOV
MOV

012410
012414

012701
012777
053777
032777
001042
012737

000170
000200
002266
000001

167746
167740
167732

000050

002406

012727

000001

DRVRDY:
WAITO:

(RO) +,T.DRIVE
(RO) +,DRIVE
(RO)+,T.CNTLR

MOV
MOV

BCSR,RO
RO,RLCS

MOV
TST
BEQ

RO,RLMP
PWRFLG
END

DONT DEC

JGET NEXT ONE

:GET CONTROLLER TYPE

#2,RO
RO,RLBA
#2 RO
RO,RLDA
#2,R0

POWER FAILURE,

#120. ,R1
#200,aRLCS
DRIVE ,aRLCS

#DRDY ,aRLCS

BGNTST
#40. ,DLYCNT
m
AR, (PC)+

:RSCENT POWER FAILURE?
;N

THEREFORE WE WILL

WAIT

JINITIALIZE WAIT COUNT
;SET CRDY
;SET IN DRIVE SELECT
;DRIVE READY???
;YES, THEN START TEST
JINITIALIZE DELAY COUNT

; IMPLEMENT 100-USEC DELAY

002116

bSDLY,(PC)+

177772

=-6(PC)
.4

177756

=22(PC)
.20

002406

012746
012746
010600

011361
000001

DLYCNT
WAITO
R1
DRVRDY
#FRMT12
H#FRMT12,-(SP)
#1,-(SP)

062706

000004

#4,SP

004737

010476

005301
001350

104414

JYES,

(RO)+,BCSR
(RQ)+ ,BVEC

MOV
MOV
MoV

ADD
MOV
ADD
MOV
ADD

;POWER FLAG TO 0

PWRFLG

;FOR THE DRIVE TO COME READY

012332
012334
012340
012342
012346
012350
012354
012356
012362
012364
012366
012370
012370
012374
012400
012402
012404

SEQ 0048

TRAP
CSGPHRD
BCOMPLETE
1%

;THERE WAS A RECENT

012270
012274
012302
012310
012316
012320
012326
012326

PAGE

;DECREMENT DELAY COUNT
;BRANCH IF TIME DELAY NOT EXPIRED
;SIXTY SECONDS GONE BY
:NO, GO BA(CK
;DROPPING DRIVE =~ DRIVE DID NOT RECOVER

SP,RO
CSPNTB

6%:

PC,LINET

UNITST

;/FROM POWER FAILURE

;GIVE DRIVE INFO
;TELL SUPERVISOR TO DROP |7

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
(3)
(3)

623
(3)

624
625
626
627
628
629
630
(7)
(6)
(5)
(4)

(3)
(2)
631
632
(3)

633
(2)
634
635
636
(3)
(3)

012614
012420
012622
012422
012424
012432
012440
012446
012454

012462
012464
012464
012470
012474
012500
012504
012506
012512
012516
012516
012520
012520
012522
012526
012526
012526
012526

013700
104451

104444

012777
012777
053777
042777
032777
001774
012746
012746
013746
012746
104437
062706
005037

012562
012566
012572

012576

30A(1052)

000013

000200
000340
014152
002264
000003

167622
167610
167602
167574
167566

Mov
TRAP
DOCLN
TRAP

BGNTST: MOV
MOV
4%:

END:

005237

SETVEC
MOV
MOV

14:01

8C(
INC

4
PAGE 1-18

SEQ 0049

UNITST,RO
C$DODU

.FORCE AN ABORT

CSDCLN

#13,aRLDA
#204 ,aRLCS

JSETUP DR RST
;GS FUNC

#200,aRLCS

JISSUE IT

DRIVE ,aRL(CS

JSELECT DRIVE

zgoo.aRLCS

;WAIT FOR READY

BVEC,#INTSRV,#340
#340,-(SP)
#INTSRV,=(SP)

BVEC,~(SP)

#3,-(SP)

TRAP
CSSVEC
ADD
#10,SP
CLR
PFLG
READBUS
TRAP
CSRDBU
BNCOMPLETE

L10013:

104411

gég

MOV

000010
002316

002316

BIS
8IC

MOV

104407

103002

17-DEC-79

INITIALIZATION CODE

062246

012530
012530
012530
012534
012534
012540
012544
012550
012554
012556

MACYT

s CLR PROCESSOR FLAG
. @-BUS

PFLG

.NO,

Q-BUS

THEN

ENDINIT
TRAP

CSINIT

ENDMOD
.SBTTL
AUTO DROP SECTION
BGNAUTO
CLR
TRPFLG

005037

002320

012746
012746
013746
012746
104437
062706

000340
014144
002332
000003

MOV

#340,-(SP)

000010

ADD

#10,SP

012746
012746
013746
012746
104037

000340
0146144
002332
000003

MOV

#340,-(SP)

MOV
EMT
ADD

#3,-(SP)
CSSVEC
#10,SP

SETVEC

MOV
MOV
MOV
TRAP

MOV
MOV

062706
005777

000010

013700

002332

013700
104036
005737
001416

002332

MOV
TRAP
MOV

002320

TST

104436

167434

TST
CLRVEC

EMT

BEQ

PRINTB

-CLEAR TRAP FLAG

ERRVEC,#TRPHAN.#340

JSET UP VECTOR TO DETECT NON-EXISTENT

#TRPHAN ,-(SP)
ERRVEC,~(SP)
#3,-(SP)
C$SVEC
;/CONTROLLER

#TRPHAN,-(SP)
ERRVEC ,-(SP)

aRLCS
ERRVEC

ERRVEC,RO
CSCVEC
ERRVEC RO

CSCVEC

;ACCESS CONTROLLER
JRELEASE VECTOR

TRPFLG

;DID

#FRMT14

;ELSE., PRINT MSG. "DRIVE DROPPED - NO CONTROLLER'

TRAP?

JNO - CHECK

ITS DRIVE

CZRLGBO RL11/RLV1Y CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39
(7)
(6)
(3)

(4)
(4)

659

012636
012642
012646
012650
012652
012656

012714
012716
012716
012722
012726
012730
012732
012736
012742
012742
012746
012750
012750
012750
012750

012746
012746
010600

001015

30A(1052)

MOV

TRAP

000004
010476

ADD

002246

MOV
TRAP
BR

000200
002266
000001

000004

004737

010476

013700

002246

JSR
DODU

167350
167342
167334

18:

MoV
BIS
BIT
BNE

PRINTB
MOV
MOV
MOV
TRAP
ADD

011535
000001

2%:

14:01

4
PAGE 1-19

SEQ 0050

#FRMT14 ,-(SP)
#1,-(SP)

SP,RO
CSPNTB

4 ,SP
PC,LINET

UNITST
UNJTST,RO
C$DODU

#200,3RLCS
DRIVE ,a@RL (S

#1,3RLCS

N#FRMT15
H#FRMT15,-(SP)
#1,-(SP)

;PROVIDE DRIVE INFORMATION
;DO DROP UNIT ON DRIVE
JEXIT
;SET CONTROLLER READY
;SELECT DRIVE
1S DRIVE READY?
JYES - EXIT

JELSE, PRINT MSG.

‘DRIVE DROPPED - DID NOT

SP,RO
CSPNTB

#4,SP

PC,LINET

JSR
DODU
MOV
TRAP

UNITST,RO
C$DODU

TRAP

($AUTO

UNITST

;/RESPOND WITH 'READY'’
;PROVIDE

DRIVE

[NFORMATION

;DO DROP UNIT ON DRIVE

ENDAUTO

L10014:

104461

012752

BGNMOD

012752

CLNCODE

BGNCLN

012752
012752
012756

012700
104441

000340

012760
012766

032777
001774

000200

167262

012770

042777

000100

167252

012776
012776
013002

013700

002264

013004
013010

005737
001402

013012

005337

013016
013016

17-DEC-79

AUTO DROP SECTION

011471
000001

012746
012746
010600
104414
062706

104451

MACY11

104436

SETPRI

MoV
TRAP

1$:

#PR107
#PRI07 ,RO

C$SPRI

BIT
BEQ

#CRDY ,aRLCS

BIC

#INTEN,QIRLCS

CLRVEC
MoV

BVEC
BVEC,RO
C$CVEC

002242

TST
BEQ

PWRFLG

002242

DEC

PWRFLG

TRAP

2%:

ENDCLN

: TREAT POWER FAILURE

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

(3)
(3
694
695
696
697
698
699
700
701
702
703
704
705
(3)
(3)
706
707
708
709
710
711
712
713
714
715
(3)

(3)

716
717
718
719
720

013016
013016

104412

MACY11

30A(1052)

AUTO DROP SECTION

L10015:

013020

BGNMOD

013020

013022
013022
013022

000240

104453

ENDMOD

013024

BGNMOD

013024

013026
013026
013026
013030

DRPCODE

NOP

L10016:

ENDDU

TRAP

csbu

ADDCODE

BGNAU

000240

104452

NOP

L10017:
ENDMOD

ENDAU

TRAP

14:01

CSCLEAN

BGNDU

013024

TRAP
ENDMOD

013020

17-DEC-79

C$AU

4
PAGE 1-20

SEQ 0051

CZRLGBO RL11/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

MACY11

722

013030

103427

013056

005737
001424
005277
027737
002416

011640

012746
012746
010600

011320
000001

062706
004737

000004
010476

013700

002246

104417

(4)
(4)

737
738
(3)
(3)
739
(3)

104451

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

170016
170012

011642

CSINLP

TST

DROP

INC
M

aERPOINT
@ERPOINT ,MERLMT

PRINTF

#FRMT11

NFRMT11,-(SP)
#,-(SP)
SP,RO

TRAP
ADD

CSPNTF
#6,SP

PC,LINE

JSR

DODUY
MOV

.SBTTL

99%

MOV
MOV
MOV

000205

SEQ 0052

99%

BLT

99%:

PAGE 1-21

TRAP

8tQ

UNJTST
UNITST,RO

TRAP
DOCLN
TRAP

;DROP THE UNIT

C$DODU

C$DCLN

RTS

ROUTINE

TO CHECK FOR CONTROLLER ERRORS

1422222222222

22222222022

R22

232222222222

308

2322222222

*THIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM
*ACCORDINGLY.
IT WILL MERGE THE ERROR PRINTOUT WITH THE

SiSssLN
e 8,8 0,0, 8, s.ecw,

s *ERROR MESSAGE.

14
20

005037

032737
001001

002300

176000

002302

R2RRZd]

TEST

IR SR BN BE NE BE BE IS 1

;*EXAMPLE:

753
754
755
756
757
758
759
760

762
763
764
765
766

.SBTTL

INLOOP

14:01

BCOMPLETE
993
8CS

104444

740
741
742
743
744
745
746
767
748
749
750
751
752

AUTO DROP SECTION

CKERLT:

104420

17-DEC-79

RLCS CONTAINED FOLLOWING ERROR(S):
DRV ~ OP1
HCRC
HNF
SEEK UNDER INTERRUPT

ROUTINE USES RO,R1

AND PICKS HEADER FROM R3

CALL

JSR

RS, CHERR

CLR

DERFLG

:CLEAR OUT DRIVE ERROR FLAG

BNE

1998

“IF YES, INVESTIGATE

723
724
725
726
727
728
(3)
729
(2)
730
731
732
733
734
735
736
(7)
(6)
(3)

30A(1052)

CHERR:

BIT

#176000.E.CS

-ANY ERRORS SET

R ]

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39
769

013130
013132
013140
013142
013144
013152
013154
013160
013164
013170
013172

000205
023727
002401
000414
023727

013174
013200
013204
013206
013212
013214

012701
005737

5
PAGE 1 ~22
ROUTINE TO CHECK FOR CONTROLLER ERRORS

MACY11 30A(1052)

17-DEC=79

RTS

002404

000004

199%:

v
BLT

002404

000002

98%:

cMP

002302
001777

007762
002302

1$:

013660
002302

99%:

3s:

002302

¥
A

002302

5%:

002302

€S:

002302

013660

013660
000000
105011
104455
000454

013660

#DERR E.CS

;DRIVE ERROR SET?
sNO, CONTINUE

8%:

MSCRLF
J
RESTMS: .
CLRB

ERRDF
.WORD

:SET DRV_ERROR FLAG
fgS PUT “DRV'' INTO STRING
NON-EXISTENT MEMORY ERROR?
:NO, CONTINUE

:YES, PUT 'NXM' INTO STRING
;N

*IS OPI SET?

*NO. GO CHECK BITS 11 & 12

:flg;l:pPI"INTO STRING

#BIT11,E.CS
5%
RS, FIX

sHEADERCRC ERROR?
:NO, GO CHECK HEADER NOT FOUND

73
R5,FIX

DLTMES

:1T°S NOT SOMETHING 1S WRONG
YES,
PUT COMP'"IN STRING

RS.FIX

8%
MIT11,E.CS

7%:

*NO. GO SERVICE
‘YES, EXIT

:GET START OF STRING
;1S COMPOSITE ERROR SET?(BETTER BE)

#BIT12,E.CS
8s
R5,FIX

013660

*DRIVE ERROR ALONE?

#EM102,R1
E.CS
99s
RS,FIX

#OP] E.CS
6$

013660

010000

sGET E.CS

43
R5,FIX

013660

004000

E.CS,RO

MM, E.CS

013660

010000

cYES SERVICE ERROR

{gPFNC~MWRCHK

DERFLG

002302

JNO, EXIT
SFUNCTION-NOP, RESET, GETSTATUS
JYES, GO CHECK IF ONLY DRIVE ERROR

98s$
19

RS, FIX

013660

004000

TMPENC
, #GSTAT

002300
013660

002000

18
RS

e¥

020000

#1777 RO
#160000,R0

1460000

040000

14:01

#BIT12,E.CS
8$
R5.FIX

2GO PUT "HCRC'' IN STRING
sHEADER NOT FOUND?

;NO, GO PUT '‘CRLF'’'
IN STRING
PUT THNET IN STRING
:PUT "CRLF'* IN STRING

:DATA CRC ERROR?
:NO, GO CHECK DATA LATE

IN STRING
:PUT "DCK'"
'.DCK.'

:DATA LATE ERROR?

:NO, GO PUT IN '‘CRLF""
fing.PLT"IN STRING

RS, FIX

RS.FIX

0
(R1)

300.
,LF ,ERRG
CSERDF

300

JHEADER FROM TEST
;PUT TERMINATOR IN

SEQ 0053

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

MACY11 30A(1052)

17-DEC-79

PAGE 1-23
14:01
ROUTINE TO CHECK FOR CONTROLLER ERRORS

013406
013410

004035
010376

. WORD
.WORD

LF
ERR6

013412

000205

RTS

.SBTTL

JEXIT ROUTINE

LOAD RLCS

2328303020

2200 R0000R2R00RRRRRaRddRRRadRRddRRRRaRtt
sl

‘* ROUTINE TO LOAD RLCS WITH FUNCTION TO BE PERFORMED
o

CALL:

JSR

WORD

¢ %

{

- %

R5,LDF UNC
;BITS TO BE LOADED, FUNCTION
JAND INTR ENABLE ONLY

012537
005737
001424
013746
012777
012737
053737
013777
012637
032777
001774

002324
002300
002270
000013
000004
002266
002270
002270
000200
177661

002324
000100
013632
013634
013632

LDFUNC: MOV
TST

166614

002270
002270
166566
166554

002324
013632
013632
002404

013376
002266
000200
002324
013672
000200

99%:

98$ :

002324

MOV
BIS
MOV
MOV

2s:
3s:

#GSTAT ,B.(CS
DRIVE .B.(CS

MOV
MOV

LDCSR. FNDFNC

B8IT
BEQ
BIC

MOV
MOV
ASR
BEQ
o,
o
DEC
BNE

BIT

BEQ
TST

MOV

MOV
BIS
BIS
MOV
JSR

#177661,LDCSR

#INTEN, FNDFNC
FNDFNC
. TMPFNC

#HDRLST .R3
FNDFNC

23
1%

#INTEN,LDCSR

s
(R3)+
(R3) .R3
R3,RESTMS

166422

5%:

BIC

#200,3RLCS

FNDFNC:

.WORD

HDRLST:

NOPMES
NOP INT
WCKME
S
WCKINT

OKHDR:

GSTMES

;SAVE R3

;CLEAR ALL BUT FUNC & INTR EN
+SAVE FUNCTION

JONLY FUNCTION

;GET HEADER LIST

SALIGN TO RIGHT

(R3)+,(R3)+

FNDFNC

002324
002324
166434

MOV
RTS

;GET BITS TO LOAD

98$
B.CS,-(SP)
#13 ,3RLDA

B.CS,aRLCS
(SP)+,B.CS
#200,3RLCS
99%
R3,~(SP)

BIC

18:

013632
000100

BEQ
MOV
MOV

(R5)+,LDCSR

DERFLG

DRIVE ,LDCSR
#200,LDCSR
LDCSR,aRLCS

:NO_KEEP LOOKING
;YES,DO WE WANT FLAG OR INTR
:FLAG BRANCH

JINTR POINT TO THAT ONE
s SET HEADER

:SET UP HEADER

s SELECT DRIVE
; CONTROLLER READY

RS ,BEFORE

(SP)
+ R3
RS

JRESTORE R3
JEXIT

SEQ 0054

CZRLGBO RL11/RLVIY CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

876
877
878
879
gg?

013646
013650
013652
013654
013656

MACY11

30A(1052)
17-DEC-79
LOAD RLCS

004527
004405
004436
004304
004344

14:01

PAGE 1-24

SEQ 0055

GSTINT
SEKMES
SEKINT
RHDMES
RHD INT

882

'-ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt

883

ggg

:*ROUTINE TO MOVE ASCII STRINGS
J%USES REGISTERS R1 - WHERE STRING IS BEING BUILT

886

CALL

JSR

FIX:
1%:

MOV
MOVB
BNE
TST8
RTS

(R5)+,R0
(RO)+,(R1)+
1%
-(R1)
RS

]

ggg

889
890
891
892
893
894
895
896

013660
013662
013664
013666
013670

899
900
901
902
903
904
905
906

013672
013700
013706
013714
013722

909
910
911
912
913
914
915

013724
013732
0137240
013746
013754
013762
013770

012500
112021
001376
105741
000205

RS,FIX

;ADDRESS OF STRING TO MOVE
;GET ADDRESS AND MOVE RETURN
;GET BYTE AND UPDATE
:WATCH O BYTE TERMINATOR
:BACK UP OVER ZERO BYTE
SEXIT

;LOAD REGISTERS BEFORE FUNCTION

ggg

;CALL:
017737
017737
017737
017737
000205

166352
166346
166342
166336

002270
002272
002274
002276

JSR

BEFORE: MOV
MOV
MOV
MOV
RTS

RS .BEFORE

@RLCS,B.CS
aRLBA,B.BA
3RLDA,B.DA
3RLMP ,B.MP
RS

;READ
:READ
:READ
:READ

CS
BA
DA
MP

:READ
;READ
:READ
:READ
;READ
;READ

€S
BA
DA

;LOAD REGISTERS AT ERROR

ggg

916

.WORD

017737
017737
017737
017737
017737
017737
000205

917
918

166320
166314
166310
166304
166276
166270

002302
002304
002306
002310
002312
002314

;CALL:

JSR

RS,AFTER

AFTER:

MOV
MOV
MOV
MOV
MOV
MOV
RTS

@RLCS,E.CS
@RLBA,E.BA
@RLDA,E.DA

SRLMP E.MP
IRLMP E .MP1
IRLMP,E .MP2
RS

MP
MP
MP

g}g

.SBTTL

921

JROUTINE WILL CALCULATE A CRC-16 CRC ON A WORD OF

924
925
926

;
;
:

928
929
930
931

;
:

35%

ROUTINE TO CALCULATE CRC

;1-16 BITS IN LENGTH, RESULT IS RETURNED IN ''CALBCC'

927

CALL:

013772

010046

JSR
.WORD
.WORD

.WORD

RS,SIMBCC
;NUMBER OF BITS (1-16)
;DATA FOR CRC CALCULATION

ROUTINE USES RO,R1,R2

SIMBCC: MoV

RO,-(SP)

:PREVIOUS OR STARTING CRC

(SHOULD BE ZEROED FOR START)

;SAVE RO

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB -MAC
07-DEC-7 9 07:39

013774

010146
010246

012537
012537
012537
005037
013700
006037
005500
032700
001402
005137
013700

MACY11

30A(1052)
ROUTINE

17-DEC-79

TO CALCULATE

1$:

002334
002330

2%:

002334
002344
002334
002344

;SAVE R1
s SAVE R2

MOV
MOV

(R5)+,TEMP3
(R5)+,TEMP4

;GET DATA FOR CRC CALCULATION
JGET STARTING (CRC

002330
002344
002340

002344

002336

014142

(R5)+, TEMP2

CLR
MOV
ROR

BCCFBK
TEMP4 RO

COM

B8CCFBK

CLC
ROR

TEMP4

MoV
COM
BIC
MOV
MoV
MOV
BIC
BIC
BIS
BIC
BIS
DEC
BNE
MOV
MOV
MOV
MOV
RTS

002334

SEQ 0056

R1,-(SP)
R2,=(SP)

AD(
BIT
BEQ

000001

CRC

PAGE 1-25

MOV
MOV

MOV

002340
002342
002344
002334
002344
002342

14:01

:
;GET PRESENT CRC

TEMP3
RO
#1,RO
2%

JROTATE NEW DATA
JMERGE NEW WITH OLD
;BIT O SET

s IF NOT CONTINUE
;
;GET CRC POLYNOMIAL (CRC-16)
; COMPLIMENT POLYNOMIAL

XPOLY ,RO
RO
RO,BCCFBK

;CLEAR CARRY

BCCFBK,RO
TEMP4 ,R1
R1,R2
R1,RO
BCCFBK,R2
RZ,RO
XPOLY, TEMP4
RO, TEMP4
TEMP2
1%
TEMP4
, CALBCC
(SP)
+ ,R2
(SP)+
R1
(SP)+ ,RO
RS

JROUTINE TO SET FLAG IF

;GET NUMBER OF BITS

JRETURN

TRAP OCCURRED

;"'TRPHAN'' IS IN LOCATION &.
014144
014150

005237
000002

002320

TRPHAN:

014152

INC
RTI

TRPFLG

. INDICATE
JRETURN

TRAP

INC

INTFLG

;INDICATE

INTERRUPT

BGNSRV

005237

002322

INTSRV:
ENDSRV

L10020:

000002

010146
012701
032777
001022

003720
000001

RTI

JROUTINE TO WAIT FOR DRIVE
WIDRDY: MOV
R1,=(SP)

"66054

1$:

MOV

#2000. ,R1

BNE
DELAY

2%
M

BiT

#DRDY ,aRL(S

READY

s SAVE R1

;TIME OUT OF 200 MILLISECONDS

sDRIVE READY?

JYES, EXIT
JWAIT A WHILE

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

(2)
(2)
(2)
(2)
(2)
(2)
(2)

014176
014202
014204
014210
014212
014216
014220
014224
014226
014230

QO
NON

005367
001375
005367
001367
005301
001356

) ad ——d e
ad
—

VIS
NN = O

MOV

LSDLY, (PC)+

.WORD
DEC

177772

010146
012701
032777
001025

017500
000200

012727

000001

004537

014324
014324
014326
014330
014332

000144
004657
010376

014334

000402

014336
014342
014344

004537
012601
000205

ERRDF

200.,DRTIM,ERRS ;DRIVE READY DID NOT SET

.WORD
.WORD
.WORD

200
DRTIM
ERRS5

TRAP

MOV
RTS

;CHECK IF TIME UP
;NO, GO CHECK DRIVE READY

C$ERDF

(SP) +,R1

;RESTORE
JEXIT

JROUTINE TO WAIT FOR CONTROLLER READY
WTCRDY: MOV
R1,~(SP)
s SAVE R1

165766

1%:

002116

MOV

#8000. ,R1

;WAIT 800 MILLISECONDS

BNE
DELAY
MOV
.WORD

2%
#1
#R1,(PC)+
0

JYES, EXIT
JWAIT A WHILE

BIT

MOV
.WORD
DEC
BNE

177772
177756

013724

ENDMOD

LEDLY, (PC)+
0
=-6(PC)
.4

R1
18

sCHECK IF TIME UP
;NO GO BACK

JSR

R5,AFTER

;GET REGISTERS

100.,CRTIM,ERRG ;CONTROLLER TIMED OUT

TRAP

CSERDF

.WORD

CRTIM

.WORD

2%:
3%:

; CONTROLLER READY

=22(P()
.=20

ERRDF

104455

#CRDY ,aRLCS

DEC
BNE

013724

5
PAGE 1-26

BNE

BNE
DEC

2$:

O
=6(PC)
e
=22(PC)
.~20
R1
1%

BNE
DEC

177756

014246
014250
014254
014262
014264
014264
014270
014272

014320

CRC

002116

012601
000205

014316

14:01

X1, (PC)+

014242
014244

000000
013727
000000
005367
001375
005367
001367
005301
001356

TO CALCULATE

.WORD

104455

S
P
T
N
[

ROUTINE

17-DEC-79

Mov

000310
004704
010364

014346

30A(1052)

000001

014232
014232
014234
014236
014240

014276
014300
014304
014306
014312
014314

012727
000000
013727
000000

MACY11

100

.WORD

ERR6

B8R

JEXIT

JSR
MOV

RS, AFTER
(SP)+ ,R1

;GET REGISTERS

RTS

JEXIT

SEQ 0057

CZRLGBO RL11/RLVIY (TL R TST 1
CZRLGB.MAC
07-DEC~79 07:39
1017
1018
1019
1020
(2)
1021
1022
1023
1024
1025

(2)

1026
1027
1028
1029

(7)

(6)
(5
(4)

(3)
(2)

1030
1031
1032
(3
(3)
1033
1034
1035
1036
1037
(4)
(%)
(5
(5)

MACY11 30A(1052)

17-DEC-79

14:01

PAGE 1-27

SEQ 0058

*«TEST 1w+ -~ RLCS ADDRESSABILITY

SBTTL

014346
014346

««TEST 1« - RLCS ADDRESSABILITY

g?fi;gT

suxxxSTART OF

RN AR AR R A AR

A NIRRT AR

TESTwens

R RN AR RN RN AR RRNRIN

AN RN

RN AR

sTEST TO SEE IF WE CAN ADDRESS THE CONTROL
JAND STATUS REGISTER.

;THE ERROR AND ABORT.

IF WE

AFTER THIS TEST WE ONLY KNOW

g}figg WE CAN ADDRESS THE

014346

TRAP WE WILL REPORT

".'t*tifittttttfittttfit""tt'ttttifitttttttt'ttfitttt**ttttfitttttt*tt

014346
014352
014352
014356
014362
014366
014372
014374

005037

002320

012746
012746
013746
012746
104437
062706

000340
0146144
002332
000003

014400
014404
014404
014410
014412
014416
014420

005777

165644

013700
104436
005737
001407
013737

002332

014426
014426
014430
014432
014434
014436
014436
014440
014440
014440

1$:

CLR

2%:

SETVEC

002250

104406
104401

MOV

#3,-(SP)
CSSVEC

ADD

#10,sP

TST

ARLCS

;ADDRESS RLCS

TRAP
TST

CSCVEC
TRPFLG

:TRAP OCCURRED???

MOV

RLCS,GDDAT

;SET UP ERROR DATA

ERRSF

0. ,EM1,ERR1

.WORD
.WORD
.WORD
CKLOOP

0
EMI]
ERR1

BEQ

002354

ENDTST

L10021:

.SBTTL

014442

BGNTST

014442

STARS
AR

ERRVEC
ERRVEC,RO

sRELEASE

TRAP

3%:

TRAP OCCURANCE

:SET TO CATCH TRAP

#TRPHAN
- (SP)
ERRVE(C ,=(SP)

CLRVEC
MOV

104454

000000
004732
010170

#340,-(SP)

TRAP

002320

-CLEAR

MOV
MOV
MOV

000010

TRPFLG

ERRVEC,#TRPHAN.#340

;NO,

csCLP

TRAP

CSETST

IKAY PROCEED

;BUS TIMEOUT IN ADDRESSING RLCS

CS$ERSF

TRAP

TRAP VECTOR

;JCHECK IF /FL:LOE
saxx«fEND OF

IS SET

TESTwwwn

##TEST 2»= - RLBA ADDRESSABILITY

A AN

;**wxSTART OF TESTxxnw

AR RN AR NN AR R

AR R

AR AR R A RN AR R RN R AR RN

R RN AR

:TEST TO SEE IF WE CAN ADDRESS THE BUS ADDRESS
*REGISTER.
IF WE TRAP WE WILL REPORT THE ERROR

SAND ABORT.

014442

AFTER THIS TEST WE ONLY KNOW THAT

é#fiRgAN ADDRESS

THE REGISTER.

""fil’t..l‘tfitttttttil"i"t"t"ttttfitttltttt!tifit't'ttttttlttt.tti.

CZRLGBO RLT1/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
1054
1055
(7)
(6)
(5)
(4)

(3)
(2)

1056
1057
1058
(3)

(3)

1059
1060

1061
1062
1063
(4)
(5
(5)
(5
1064
(3)
1065
(3)
(3)
1066
1067
1068
1069
1070
1071
(2)
1072
1073
1074
1075
1076
(2)
1077
1078
1079
1080
(7)
(6)
(5)
(4)
(3)
(2)
1081
1082
1083
(3
(3)
1084

014442
014446
014446
014452
014456
014462
014466
014470

014474
014500
014500
014504
014506
014512
014514
014522
014522
014524
014526
014530
014532
014532
014534
014534
014534

005037

002320

012746
012746
013746
012746

000340
014144
002332
000003

104437
062706

MACY11

30A(1052)

165552

013700
104436
005737
001407
013737

002332

18:

CLR

2s:

SETVEC

MOV

TRAP

TRAP
TST

C$CVEC
TRPFLG

; TRAP OCCURRED???

RLBA,GDDAT

;SETUP ERROR DATA

.SBTTL

ERRVEC
ERRVEC,RO

1. ,EM2 ERR1

.WORD
.WORD
.WORD
CKLOOP

L10022:

:SET TO CATCH TRAP

aRLBA

MOV

ENDTST

#340,-(SP)

TST

8EQ

3$:

-CLEAR TRAP OCCURANCE

CSSVEC

CLRVEC
MOV

002354

TRPFLG

ERRVEC.#TRPHAN.
#3540

#10,SP

TRAP

104401

SEQ 0059

ADD

ERRSF

104406

5
PAGE 1-28

#3,-(SP)

MOV

104454
000001

004757
010170

= (SP)
#TRPHAN,
ERRVEC,=(SP)

MOV
MOV

002320
002252

14:01

««TEST 2++ - RLBA ADDRESSABILITY

000010

005777

17-DEC-79

CSERSF

1
EM2
ERR1

TRAP

cscLP

TRAP

CSETST

;ADDRESS RLBA

JRELEASE

sNO,

TRAP VE(CTOR

CONTINUE

;BUS TIMEOUT IN ADDRESSING RLBA

sCHECK IF /FL:LOE
sexxxEND OF

IS SET

TESTwane

~+TEST 3x+ - RLDA ADDRESSABILITY

014536
014536
AR AR R AR R NN AR AR R R R Rt AR R AR ANR NN R R AR R AR AR RN RN AN RNN AR AR RN

JTEST

TO SEE

CAN ADDRESS

THE DISK ADDRESS

JREGISTER IF WE TRAP WE WILL REPORT THE ERROR
JAND ABORT.
AFTER THIS TEST WE ONLY KNOW THAT

é?ERgAN ADDRESS

014536

THE REGISTER.

".'filtfittittfititt*ltt'tt't"tl‘ttttttfiitittittttiQtttitt!tt'ttttttfi

014536

014542
014542
014546
014552
014556
014562
014564

014570
014574
014574
014600
014602

005037

002320

012746
012746
013746
012746

000340
014144
002332
000003

062706

000010

ADD

#10,SP

005777

165460

013700
104436
005737

002332

TST
CLRVEC
MoV
TRAP

aRLDA
ERRVEC

;ADDRESS RLDA
JRELEASE TRAP VECTOR

TRPFLG

: TRAP OCCURRED???

104437

002320

1%:

2$:

CLR

SETVEC

MOV
MOV
MOV

MOV

TRAP

TST

TRPFLG

-CLEAR TRAP OCCURANCE

ERRVEC,#TRPHAN.#340

#340,-(SP)
#TRPHAN,
~ (SP)
ERRVEC,
- (SP)

:SET TO CATCH TRAP

#3,-(SP)
(CSSVEC

ERRVE(C,RO
CSCVEC

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
014606

001407

014610
014616
014616
014620
014622
014624
014626
014626
014630
014630
014630

013737

002254

MACY1T

002354

104454

010170

3%:

104406

ENDTST

L10023:

104401

.SBTTL

014632
014632

o RN

0O
K@
o

D
S
b ad e

b cmd )

WWN
onv\4uuubv«\a~nvL~mpac;3\nv

—

NN
W

T T

b
b

L
e

Y e
e

D NN

—
—

el
Y e

—t

SEQ 0060

8EQ

;NO, CONTINUE

MOV
ERRSF
TRAP
.WORD
. WORD
.WORD
CKLOOP

RLDA,GDDAT

sSETUP ERROR INFO
;BUS TIMEOUT IN ADDRESSING RLDA

2. ,EM3 ERR1
CS$ERSF
2

EM3

ERR1

TRAP

C$CLPT

TRAP

CSETST

;CHECK IF /FL.LOE IS SET
;#xexEND OF

TESTwewns

**TEST 4»x+ - RLMP ADDRESSABILITY

BGNTST
STARS

;aexxSTART

R A AR AR AR R AR AR AN

AR TR AN R AN A AN RAR

TESTxaax

AN R N AR AR A AN

:TEST TO SEE IF WE CAN ADDRESS THE MULTIPURPOSE

AR AR

NSNS

IF WE TRAP WE WILL REPORT THE ERROR AND
JREGISTER.
AFTER THIS TEST WE ONLY KNOW THAT WE CAN
;ABURT.
;ADDRESS THE REGISTER.

— d el e b

—

o333 3
S8BT

1095

30A(1052)
17-DEC-79
14:01
PAGE 1-29
««TEST 3++ - RLDA ADDRESSABILITY

014632

STARS

;;t*ittt*itttttt*tttitttttit*t**tfit*tt***ttttttttttttttitttt*ttkt

014632
014636
014636
014642
014646
014652
014656
014660

014664
014670
014670
014674
014676
014702
014704
014712
014712
014714
014716
014720
014722
014722
014724
014724
014724

005037

002320

012746
012746
013746
012746

000340
014144
002332
000003

062706

000010

005777
013700
104436
005737
001407
013737

104437

104454
000003
005031
010170
104406
104401

1%:

2%:

CLR
SETVEC

MOV
MOV
MOV
MoV
TRAP

TRPFLG

. CLEAR TRAP OCCURANCE

ERRVEC,#TRPHAN,#340

#340,-(SP)

;SET UP TO CATCH TRAP

#TRPHAN,~(SP)

ADD

ERRVEC,~(SP)
#3,-(SP)
C$SVEC
#10,SP

165366

1ST

aRLMP

002332

MoV
TRAP
TST

;ADDRESS RLMP
JRELEASE TRAP VECTOR

TRPFLG

s TRAP OCCURRED???

CLRVEC

002320
002256

BEQ
MOV

002354

ERRSF
TRAP

3%:
ENDTST

L10024:

.WORD
.WORD
.WORD
CKLOOP

ERRVEC
ERRVEC,RO
C$CVEC

RLMP,GDDAT

sNO, CONTINUE
;SET UP ERROR INFO

3. ,EM4 ERR1

;BUS TIMEOUT IN ADDRESSING RLMP

gSERSF

EMé
ERR1

TRAP

C$CLPT

TRAP

CSETST

;CHECK IF /FL:LOE IS SET
;exexEND OF

TESTene

t\bl\tnbJ\bflflg#ds&fi&:*&zxfidEfVNHUNHUNflUNHUNMVflLJ—J—l
~000NN~
&N =20V~
—=O0
£H Py

MACY11

30A(1052)

17-DEC-79

14:01

PAGE 1-30

SEQ 0061

«*TEST 4*+ - RLMP ADDRESSABILITY

.SBTTL

*~TEST

5++ - READ WRITE OF

RLCS

014726

BGNTST

014726

STARS

J*xwxSTART

TEST#wwx

D
D

014726

AN R ARNARR AT AR

A AR

AN NARNANARRRAARAANRNA R AN AR

AR NSRS

STARS

:;tttttt*t**tttttt**fi'tttttttttttfitttttttt*ittttttttttttttitttttt

d P

AT A A AN

oo NOWNEBNWN

b comd

b ad

md cod

d o,

— o

b d

;TEST THAT WE "AN WRITE/READ BITS 8,9 AND BITS 6-1
;OF THE CONTROL AND STATUS REGISTER.
BITS 15-10 AND 0
JARE DON'T CARE BITS AT THIS TIME AND BIT 7
. (CONTROLLER READY) IS ALWAYS WRITTEN TO A ONE.

ocd o

b cnd el ek b

— e e d b d i

d d b d wd wd d b mad b b d

—d
o
-

CZRLGBO RL11/RLV1T1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

W wViuonvaun

b
b
md
)

) wmd —d =

b ok
o~

—)

~ONMNAS
NN = O~

(&)

014726

012703

014732
014732

104404

014734
014734
014740
014746
014754
014762
014764
014772
015000
015006
015014

011337
052737
013777
032777
001403
052737
017737
042737
023737
001404

015016
015016
015020
015022
015024
015026
015026
015030

015032
015034
015040

015042
015042
015042
015044
015044

015044

002764
BGNSEG

002354
000200
002354
040000
140000

165252
000001
002354

CSTEST:

002354

99%:

1%:

104410

000012

104401

C$BSEG

Mov

(R3) ,GDDAT
#200,GDDAT
GDDAT ,aRLCS

BIT

#DERR,QRLCS

MOV

#ERR!DERR,GDDAT
aRLCS,BDDAT

BEQ
BIS

BIC
cMp
BEQ

EMS
ERRZ

BNE

ENDTST

L10025:

?2DAT,BDDAT

.WORD
.WORD
ESCAPE

TST

ENDSEG
100008%:

#DRDY ,BDDAT

4. ,EMS ,ERR2
ESERDF

.WORD

003062

99%

ERRDF

TRAP
.WORD

010202

104405

TRAP

MOV

104455
000004
005056

005723
020327
001335

#CSPAT ,R3

BIS

165274
165266

002354
002356
002356
002356

mMov

;SET UP TABLE POINTER OF PATTERNS
sxx*xxSTART OF

SEGMENTxw«+

;GET PATTERN INTO GDDAT
s INSURE GO IS SET

sLOAD RLCS (CONTROL AND STATUS)
;IF DRIVE ERROR PRESENT
;THEN EXPECT DRIVE AND

;COMPOSITE ERROR
;READ RLCS BACK
; IGNORE DRIVE READY
;DID WE READ WHAT WE LOADED

;YES,

THEN BRANCH

;WRONG DATA

IN RLCS

SEG

;IF /FL:LOE SET LOOP, ELSE EXIT SEG

(R3)+
R3,4#CSEND
CSTEST

;BUMP FOR NEXT PATTERN
s CHECK FOR END
JNOT END, LOAD NEXT PATTERN

CSESCAPE
10000%-.

;xxxxEND OF SEGMENT*xes
TRAP

C$ESEG

TRAP

CSETST

suxxxEND OF

TESTarwe

CZRLGBO RL11/RLV11 CTLR TST_
1
S
CZRLGB.MAC
07-DEC~-79 07:39

MACY11

——

NNV

D nd
N

14:01

015046

BGNTST

015046

STARS
IR

5
PAGE 1-31

SEQ 0062

RLBA

*«TEST 6%+ -~ READ WRITE OF RLBA
sexxxSTART OF
AR AR R AR AR S AN RN

TESTwnwx

AR RN AN AR

RN RRRARAR RN R RAD

JTEST THAT WE CAN WRITE/READ BITS 15-1 OF THE
;BUS ADDRESS REGISTER.
FOUR PATTERNS ARE USED: GROWING 1, SHIFTING 1,
;GROWING O AND SHIFTING O. BIT 0 IS ALSO LOADED BUT

g?:ggLD ALWAYS COME BACK AS 0

015046

SRR

RAARARRARARAAARA R RN R

AR AR ARANAAAARRAARRRAARARAAAA
RN
AR AL

015046

D o e

— b b D

17-DEC-79

«*TEST 6%+ - READ WRITE OF

.SBTTL

) e

— e ol d

ad PN

—

D e

COCRAREBIIINANEINIITEE
ICRAR

—d —

) b D

1160

30A(1052)

NNNNN

011337

005737
001403
042737
013777
017737
023737
001404

)

i e

D D e —

BGNSEG

104404

) id

wviun
s Qo 0o 0o 0o

) ) ed e

002410

BATEST:

002354
002402
000001
002354
165144
002354

PN o

(5)

015132

104410

000012

#BEGPAT ,R3

TRAP

C$BSEG

MOV

002354

165150
002356
002356

BEQ
2%:

;xxnaSTART OF

SEGMENT#xnx

(R3) ,GDDAT

;GET PATTERN TO SEND

;NO,

T.CNTLR

JRL11?2?

#817T0,GDDAT

MOV
CMP

aRLBA,BDDAT
GDDAT ,BDDAT

;IF

ERRDF

5.,EM6,ERRZ

;DATA WRONG IN RLBA

LMWORD
.WORD
.WORD

5
EM6
ERRZ

.WORD

10000%-.

MOV

TRAP

1%:

;GET START OF PATTERN LIST

BIC

BEQ

104455
000005

005127
010202

MOV

TST

012703

ESCAPE
TRAP

GDDAT ,aRLBA

C$ERDF

SEG
C$ESCAPE

JKEEP RLBA EVEN (UNIBUS)

;LOAD PATTERN TO BUS ADDRESS
JREAD ]T BACK
;1S IT CORRECT?

JIF

SO, BRANCH

/FL:LOE

SET LOOP,

ELSE

EXIT SEG

30A(1052)

17-DEC-79
14:01
PAGE 2
**TEST 6%x* - READ WRITE OF RLBA

SEQ 0063

——d
) B

005723
020327
001344

ENDSEG
100008:

104405

ENDTST
L1C026:

104401

BGNTST

015150

STARS
P

— d
—t b and
— el e wd md and wwd =D

AAAANNNNDNINDNNIN
A~

BATEST

CSESEG

TRAP

;*%**END OF

SEGMENT*#x#

;ewaxEND OF

TESTaesx

CSETST

TRAP

;%*%*START OF

;TEST

:NOT END, BRANCH FOR NEXT

*«TEST 7«* -~ READ WRITE OF RLDA

.SBTTL

015150

;BUMP FOR NEXT PATTERN
:CHECK FOR END

THAT WE

CAN WRITE/READ

TEST##ex

THE DISK ADDRESS REGISTER

SALL BIT POSITIONS ARE WRITTEN USING FOUR PATTERNS:
:GROWING 1, SHIFTING 1, GROWING O AND SHIFTING O

015150

STARS

oA AR R AR R AN A AR

012703

015150
015154
015154
015156
015156
015162

011337
013777

002354
002354

015170
015176
015204

017737
023737
001404

002354

002410

BGNSEG

104404

015206
015206
015210
015212
015214
015216
015216
015220

104410
000012

015222
015224
015230

005723
020327
001352

165060

104455
000006
005155
010202

DATEST:

165064

002356
002356

MOV

#BEGPAT ,R3

TRAP

C$BSEG

MOV
MOV

(R3) ,GDDAT
GDDAT ,aRLDA

;GET PATTERN
;LOAD PATTERN IN DA

MOV

aRLDA,BDDAT

GDDATM ,BDDAT
1%

JREAD PATTERN BA(CK

;1S IT CORRECT?
;BRANCH IF CORRECT

ERRDF

6. ,EM7 ERR2
CSERDF
6

:WRONG DATA IN RLDA

SEG

;IF

.WORD

CS$ESCAPE
10000%-.

TST
(MP
BNE

(R3)+
R3,HENDPAT
DATEST

;BUMP POINTER
;AT END OF PATTERNS?
:NO, BRANCH BACK

CMP
BEQ
TRAP

1%:

A AR N A AN AN AR RAN AN AARRARAARR N RN R RN RN ANNA A AR

.WORD
.WORD
.WORD
ESCAPE

EM7
ERRZ

¥
[P

1227

015232
015232
015232
015234

104405

002616
ENDSEG
10000$%:

ENDTST

TRAP

CSESEG

:SET UP POINTER TO PATTERN LIST

s**«xxSTART OF

/FL:LOE

SEGMENT*wwx

SET LOOP,

ELSE EXIT SEG

(R3)+
R3,#ENDPAT

TST
CMP
BNE

002616

d ed

SRS LS
o [0 o Wo &He

— cd ) e

b
d

RV, IV, LV, ]

—
d e
b wd
e
—

[V LV, 1V, LV, IV, IV,

(olelelelelelNolele]

—_

MACY11

—) o

b ed b d )

T SN

e o o o ek b
NN
IR
NNV T NN S e
[o -]
WWPOW
NelVe)
e ANV NN = O~ w0 s
NN B W= O
SEIRTIR o
GRU2E88IRYLYRIV
G
8ES ~

CZRLGBO RL11/RLVIT CTL R TST 1
CZRLGB.MAC
07-DEC~-7 9 07:39

sxxexEND OF

SEGMENT®wwn

JrenwxfEND OF

TESTwwan

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

015234
015234

MACY11

m S5
17-DEC-79
14:01
PAGE 2-1
+«TEST 7+« - READ WRITE OF RLDA

30A(1052)

L10027:

104401

Yolo
JaNTo
JV, P o W=
O

—

_a_a_a_a_?c
n
NRRNRR A ANNININ A~ANNINININD A~

’WNJ"NbWNN”QLdgyN&dNJ
VO~
WNI
S~

.SBTTL

1250

015236
015236

TRAP

SEQ 0064

CSETST

*«TEST 8x+ - BIS OF RLCS

BGNTST
STARS

c*#xxSTART OF

AN R R

AR AR R AR AR RN AR

AR A AN AR

A ARA AR

TESTawwx

R RN

RN AR

A AN

:TEST THAT WE CAN USE THE 'BIS'' INSTRUCTION ON THE CONTROL
:AND STATUS REGISTER.
BITS 8,9 AND 6=1 ARE TESTED TO

:SET INDIVIDUALLY AS WELL AS COLLECTIVELY WITHOUT DESTROYING

é?R;SPREVIOUS DATA PATTERN

015236

SRR

015236
015242
015242
015244
015244
015252
015256
015264
015270

015276
015300
015306
015314
015322
015330

015332
015332
015334
015336
015340
015342
015342
015344

015346
015350
015354
015356
015356
015356
015360

015360
015360

012703

002764

BGNSEG

104404

012777
011337
052737
051377
032777
001403

052737
017737
042737
023737
001404

AR AR NN AR AR AR A RN

000200
002354

164776

164752

000001
002356

MOV

#CSPAT ,R3

TRAP

C$BSEG

MOV

ACRDY ,aRLCS

81T

#DERR,aRLCS

MOV
BIS
8IS

002354

00933¢ 99%:

002356
002354

BEQ
BIS
MoV
BIC

005723
022703
001333

104405
104401

ENDSEG
10000$:
ENDTST

L10030:

.SBTTL

;GET BEGINNING OF LIST

JanxxSTART OF

SEGMENT
%% =%

JINSURE GO

THERE

JSET UP EXPECTED RLCS
. IN GDDAT
;BIT SET PATTERN IN RLCS
;IF ERROR BIT SET THEN

;BRANCH ]F OKAY

7..EM61,ERR2

JWRONG DATA N RLCS

.WORD
.WORD
.WORD
ESCAPE

7
EM61
ERRZ2
SEG

JIF /FL:LOE SET LOOP, ELSE EXIT SEG

.WORD

10000%-.

TRAP

TST
CMP
BNE

003062

ARANN RN RN AR

CMP

BEQ

2%:

JEXPECT IT ON THE READ
;BACK
JREAD RLCS TO CHECK 'BIS'
;CLEAR OUT DRIVE READY

TRAP

104410
000012

(R3) ,GDDAT
#CRDY ,GDDAT
(R3) ,8RLCS

AAANRRARRAARA AR

99%
#ERR'!DERR,GDDAT
aRLCS ,BDDAT
#DRDY ,BDDAT

ERRDF

010202

A AN AR

8DDAT ,GDDAT

CSERDF

CSESCAPE

(R3)+
#CSEND ,R3
1%

TRAP

C$ESEC

TRAP

CSETST

««TEST 9xx - BIC OF

;DID BIS WORK?

;BIT OR CLEARED OTHER BIT
JGET NEXT PATTERN
;AT END OF LIST
;NG GO BACK FOR TEST OF

JNEXT PATTERN
JuxasEND OF

SEGMENTawxe

sansnEND OF

TESTwnwn

CZRLGBO RL11/RLVIT (CTL R T1ST 1
07-DEC-79 07:39
CZRLGB.MAC
1269
1270
1271
1272
(2)
1273

MACY11

30A(1052)

17-DEC-79

14:01

««TEST 9ve - BI( OF RLCS

015362

BGNTST

015362

STARS
Y

S
PAGE 2-2

SEQ 0065

;xe2aSTART OF TESTanee
R

STEST THAT THE 'BIC'' INSTRUCTION WILL WORK ON THE

:CONTROL AND STATUS REGISTER.
*TESTED.

1274

1275
1276
(2)
1277

BITS 8-9 AND 6~1 ARE

STARS

:;..'Q"!Q'..tt.tt.t‘.""'.Q.tQQ.Q.Qt.'....'."".'.t...'.fi"'.t

1278

012703

1279
1280
(3)
1281
1282
1283
1284

002764

BGNSEG
s

104404

012777
012737
041337
061377
032777
001403
052737
017737
042737
023737
001404

164652

001776
001776
002354

00235¢4

040000

1646626

140000

002354
002356
002356
002354

164634

164612
000001
002356

99% :

005723
020327
001333
104405
104401

($RSEG

MOV
MOV
BI(C

#1776 ,8RLCS
#1776 ,GDDAT
(R3) ,GODAT

JSET ALL SETTABLE BITS
JSET UP EXPECT DATA IN
;GDDAT

8IT
BEQ

#DERR ,8RL(CS
99%

;IF DRIVE ERROR BIT SET
:EXPECT IT SET WHEN WE

cMwP

BDDAT ,GDDAT

:DID 'BIC'’ WORK PROPERLY

ERRDF

8. .EM62 ERR2

;WRONG DATA IN RLCS

. WORD

ESCAPE
TRAP

SEG
CSESCAPE

JIF

1STY
cMP
BNE

(R3)+
R3.#CSEND
13

:GET NEXT PATTERN
;AT END OF LIST
;NO, GO BACK WITH NEXT PATTERN
;easxEND OF SEGMENTxwwn

TRAP

(SESEG

TRAP

CSETST

BIS
MOV
8IC

8EQ

2%:

104410

015472
015474
015500
015502
015502
015502
015504
015504
015504

TRAP

000010
006733
010202
000012

#(SPAT ,R3

BIC

104455

015470

MOV

.WORD
.WORD
.WORD

003062
ENDSEG

100008:

ENDTST

L10031:

LSBTTL

015506

BGNTST

015506

STARS

««TEST

(R3) ,@8RLCS

;GET BEGINNING OF PATTERNS
;annaSTART OF

SEGMENT vans

:CLEAR BITS IN RLCS VIA 'BIC"

#ERR'DERR,GDDAT READ T BACK
@RLCS,BDDATY
;MOVE RLCS TO BDDAT FOR COMPARE
#DRDY ,BDDAY
;CLEAR DRIVE READY

CSERDF

EM62
ERR?

;BRANCH IF OKAY

/FL:LOE SET LOOP,

ELSE EXIT

SEG

10000%-.

senwaafEND OF

TESTwans

10=+ - BIS OF RLBA
JanaxSTART OF

TESTrwnn

—

:;tttttttttttt.ttfifitt'i't'tttt.t.tfitfifififitttttt.ttttttttttt.itfit't

JTEST THAT THE 'BIS'" INSTRUCTION WILL WORK ON THE BUS
JADDRESS REGISTER.
BITS 15-0 ARE LOADED, ONLY BITS 15-1

CZRLGBO RL11/RLVIT

CZRLGB.MAC
1311
1312
1313
(2)

138

CTLR TST 1

07-DEC-79 07:39

MACY11

015506

005077
011337
005737
001403
042737

164532
002354
002402
000001

002354

1325

015544

017737

164502

002356

}ggg

015560

1326

015552

012703

051377

023737
0C1404

015562
015562
015564
015566
015570
015572
015572

015574

104410
000012

1332

015576

005723

1333
133,
1335
(3)
(3)
1336
(3)
(3)
1337
1338

015600
015604
015606
015606
015606
015610
015610
015610

002410

*«TEST 10+« - BIS OF RLBA

BGNSEG

104404

1329
(4)
(5)
(5)
(5)
1330
(3)

1§§%

14:01

6
PAGE 2-3

SEQ 0066
GROWING 1, SHIFTING 1,

:.'tt"tttttttt'it.itttttttttttfittttttttfittttttt.ttttttttitttttttt

015506
015512
015512
015514
015514
015520
015524
015530
015532

015540

17-DEC-79

;ARE EXPECTED BACK.
FOUR PATTERNS ARE USED:
*GROWING 0, AND SHIFTING O.
STARS

1316
1317
(3)
1318
1319
1320
1321
1322
1323

1324

30A(1052)

164506

002356

104455
000011
007016
010202

020327
001343

1$:

38:

002354

MOV

#BEGPAT ,R3

TRAP

($BSEG

CLR
MOV
ST
BEQ
BIC

BRLBA
(R3), GDDAT
T.CNTLR
3$
#1,GDDAT

;CLEAR 'BA"’
*SET EXPECTED
*RL11
*NO
*BIT O CAN'T SET IN RLBA (UNIBUS)

MOV

@RLBA,BDDAT

*READ 'BA"’

8IS

BDDAT ., GDDAT
2

*BRANCH IF YES

ERRDF
TRAP
L,WORD
.WORD
_WORD
ESCAPE
TRAP

9. ,EM63.ERR2
CSERDF
9
EM63
ERR2
SEG
CSESCAPE

:WRONG DATA IN RLBA

(R3) +

;GET NEXT PATTERN

.WORD

1£31

002616
ENDSEG
100008:

104405

ENDTST
L10032:

104401

}gzg

.SBTTL

*BIS RLBA WITH PATTERN

CMP

BEQ

28:

(R$) .3RLBA

;GET START OF LIST
iwxxaSTART OF SEGMENT##we

:DID RLBA LOAD PROPERLY?

;IF

/FL:LOE SET LOOP. ELSE EXIT SEG

100008~.

WP
BNE

R3, #ENDPAT
13

TRAP

CSESEG

TRAP

CSETST

*DID WE COMPLETE LIST
*NO, GO BACK FOR NEXT.
SantxEND OF SEGMENT*#+w
;axasEND OF

TESTwaws

*«TEST 11#* - BIC OF RLBA

}gzg

015612

BGNTST

1343

015612

STARS

015612

*TEST THAT THE 'BIC'* INSTRUCTION WILL WORK ON THE BUS
*ADDRESS REGISTER.
BITS 15-1 ARE TESTED WITH 4 PATTERNS
sGROWING 1, SHIFTING 1, GROWING O AND SHIFTING 0.
ETARS

(2)

1344
1345
1346
1347
(2)

1348
1349
1350

1351
(3)

015612
015616
015616

;x2xxSTART OF TEST###s

.','ttttttfi*tttl’tittttttt"tttttttttttltfitttttifittttttttitttfit'tttt

;"tttttttfittlttttttttttttttttttttttttififiittfittti*ttttttttfittt*tti

012703

104404

002410

BGNSEG

MOV

#BEGPAT ,R3

TRAP

($BSEG

;GET START OF LIST
;xxxxSTART OF SEGMENTewawn

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

v b
)
AN

VVV

1646426
002354

002356

015674
015676
015700
015704
015706
015706
015706
015710
015710
015710

17-DEC-79

14:01

*+«TEST 11=+ -~ BIC OF RLBA
1%:

MOV
MOV

6
PAGE 2-4

#-2 ,3RLBA

#-2,GDDAT
(R3) ,GDDAT

(R3) ,aRLBA

@RLBA ,BDDAT
ggDAT.GDDAT

10. ,EM64 ,ERR2
CSERDF
10
EMG4
ERR2
SEG
CSESCAPE
100008-.

2%:

104410
000012

005723
020327
001345

30A(1052)

002356
002354

104455
000012
007077
010202

b b ) b and
——b
— el b

012777
012737
041337
041377
017737
023737

001404

—d d

et
SRaaE
SAe
N A RGO

015620
015620
015626
015634

MACY11

(R3)+
R3,#ENDPAT

002616

ENDSEG
100008:

104405

ENDTST
L10033:

104401

.SBTTL

015712

BGNTST

015712

STARS

;SET RLBA TO ALL 1'S (BIT 0-0)
sSET UP EXPECTED RESULTS
;I'l_GDDAT
;81C RLBA
;READ RLBA
;81C WORK OKAY?
:IF YES BRANCH
;WRONG DATA IN RLBA

;IF /FL:LOE SET LOOP, ELSE EXIT SEG

sGET NEXT PATTERN
JHAVE WE COMPLETED LIST
;NO, GO BACK FOR NEXT

sexxxfEND OF SEGMENTwaxx

CSESEG
TRAP

SEQ 0067

;#%%xEND OF

TESTwawx

CSETST

*«TEST 12*x - BIS OF RLDA

JanaaSTART OF

o RAANRAR R A A RN

AN A AA A AR

TESTanwn

A AR A AR AARRAAARRRANAANARANRRAANARARRRNANNRANN

JTEST THAT THE 'BIS’' INSTRUCTION WILL WORK ON THE DISK ADDRESS
BITS 15-0 ARE TESTED WITH 4 PATTERNS, GROWING 1,
;REGISTE R.

SSHIFTING 1, GROWING O, AND SHIFTING O.

015712

STARS

o RAR R AR A

AN AN AR A AN AR

AR A AN A AR A RANAAN N AR ARRANRANNR AN

gEgERCELY
B8R &

b
b md
d
b od
d
b

~~ NN
[V P V]
~ e N—
O

ek
b d

1380

015712
015716
015716
015720
015720

015750
015752
015752
015754

002410

164330
002354
164320
164314
002356

BGNSEG
1%:

002356
002354

MOV

WBEGPAT ,R3
C$BSEG
aRLDA

(R3),GDDAT
(R3) ,aRLDA

aRLDA ,BDDAT
ggDAT.GDDAT

11. ,EM65,ERR?
g?ERDF

;GET START OF LIST
;xxxxSTART OF

SEGMENTwnsxsx

;CLEAR 'DA'’
;SET EXPECTED
;BIS RLDA
;READ RLDA
;1S RLDA CORRECT
;IF OKAY BRANCH

;WRONG DATA IN RLDA

ARNNERAY

CZRLGBO RL11/RLV1I1 CTLR TST 1
CZRLGB.MAC

(5)

015756

07-DEC-79 07:39

17-DEC-79 14:01
MACY11 30A(1052)
««TEST 12+« -~ BIS OF RLLA

007162
010202

.WORD

2%:

104410

000012

005723
020327
001351

6
PAGE 2-5

EM6S
ERR2

SEG
CSESCAPE
100008-~.

JIF /FL:LOE SET LOOP, ELSE EXIT SEG

(R3)+

JGET NEXT PATTERN
JHAVE WE FINISHED?
;NO GO BACK

?i.#ENDPAT

002616

sana*END OF SEGMENT#wa#

ENDSEG
100008:

104405

CSESEG

ENDTST

L10034:

104401

.SBTTL

SEQ 0068

TRAP

;%% xEND OF

TESTaews

CSETST

«*TEST 13%« - BIC OF RLDA

BGNTST

;#%x**START OF

TESTxwe«

STARS
283223022200 0022000000ttt
R0t 0
0020 2dRRRdtRddR

:TEST THAT THE 'BIC'* INSTRUCTION WORKS ON THE DISK

ALL BITS ARE TESTED WITH FOUR
:ADDRESS REGISTER.
:PATTERNS: GROWING 1, SHIFTING 1, GROWING O AND SHIFTING O
STARS
SIRAARN AR AN RN ANA R AN AR AN

012703

002410

BGNSEG

104404

012777
012737
041337
041377
017737
023737
001404

177777
177777
002354
164220
164214
002354

010202

164236

1%:

C$BSEG
#-1,3RLDA
#-1,GDDAT

002356
002356

aRLDA ,BDDAT
ggDAT,BDDAT

(R3) ,GDDAT
(R3) ,aRLDA

000012

005723
020327
001345

#BEGPAT ,R3

002354

2s:

104410

AR R AN

002616
ENDSEG
10000$:

12. ,EM66,ERR2
CSERDF
12
EM66
ERRZ2

RAAA AR AR RARRRRRARRRARRRANARA
AR AR

;GET START OF LIST
;axxxSTART OF SEGMENTx%x#

;SET RLDA TO ALL 1°'S
JSET EXPECTED DATA
;SET EXPECTED DATA
;J'BIC'' RLDA

;READ RLDA

;DID 'BIC'' WORK?

JIF IT DID BRANCH

;WRONG DATA IN RLDA

SEG

;IF /FL:LOE SET LOOP, ELSE EXIT SEG

(R3)+
R3,#ENDPAT

;GET NEXT PATTERN
;DONE?
;NO GO BACK

CSESCAPE
100008-.

saxntEND OF

SEGMENTwxwe

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

(3)
1631
(3)
(3)
1432
1433
1434
1435

1636
1437

1438
(2)
1439

016076
016100
016100
016100

MACY11

104405

TRAP

CSESEG

104401

" TRAP

CSETST

.SBTTL

016102

BGNi1ST

016102

STARS

6
PAGE 2-6

SEQ 0069

;xeaxEND OF

14*+ - BUS RESET OF

TESTweew

RLCS

s**xxSTART

TESTwewx

:TEST THAT A BUS RESET WILL CLEAR THE PROPER BITS
:OF THE CONTROL AND STATUS REGISTER,
THOSE BITS ARE

:BITS 6-1,8,9,10,11,12,13,15.
BIT 15 WILL CLEAR ONLY
:IF BIT 14 (DRIVE ERROR IS NOT SET).”
BIT O (DRIVE READY)
:1S A'DON'T CARE.
IF AT THE START UP THIS TEST BIT

1443

;14 (DRIVE ERROR) IS SET WE WILL INSIST IF IS THERE AFTER
;THE "RESET'' ALONG WITH BIT 15 (COMPOSITE ERROR). BITS
:15-10 ARE NOT WRITEABLE.

016102

STARS
e

016102
016102
016106
016110
016116
016124
016132
016134
016142
016146
016146
016150
016152
016154
016162
016170
016176

012700

000340

012777
012737
032777

000377

000200
040000

002354

052737

140000
000100

002354

104441

001403

012700

AR RN R AR AN AR A AR AR

SETPRI
MOV
TRAP
MOV

164132

MOV
BIT

164116
1%:

2%:
164070

000001
002356

002356
002356
002354

BEQ
8IS
MOV
BRESET
TRAP

DEC
BNE

MOV
8IC

MP
8EQ

ERRDF
TRAP

010202

(3)
(3)

104401

1468

1469
1470
1471
1472

*«TEST

SRR KRR RN AR AR R AAA RN AR R AR AN ARAANARNANA AR A AR RAAANAARARARANRRRANNRAN

1440
1441
1442

1444
1445
1446
1447
(2)
1448
1449
1450
(3)
(3)
1651
1452
1453
1454
1455
1456
1457
(3)
1458
1459
1460
1461
1462
1463
1464
1465
(4)
(5
(5)
(5)
1466
1467

17-DEC-79
30A(1052)
14:01
+*TEST 13+« - BIC OF RLDA

.WORD
.WORD

3%
ENDTST
L10036:

.SBTTL

016212

BGNTST

.WORD

AR AR AN ARA

AR ARANRRNANRARARAAN
R AR AR AN

#PRIO7
#PR107 ,RO

;PRIORITY

#377 ,aRLCS

cLOAD ALL RLCS LOADABLE BITS

1$
#DERR!ERR,GDDAT

;IF _NOT DON'T EXPECT IT
;IT'S SET, INIT BETTER NOT (LR
sSET UP A WAIT LOOP
;BUS RESET

C$SPRI

#CRDY,GDDAT
#DERR ,aRLCS

#100,RO
CSRESET

RC
2%

aRLCS,BDDAT
#DRDY ,BDDAT

TO SEVEN

sSETUP EXPECTED
;DRIVE ERR SET?

;WAIT IN CASE OF DRIVE ERROR
;

JREAD RLCS
sCLEAR OUT DRDY - DON'T

B8DDAT,GDDAT
3s

;DID INIT WORK
:YES, BRANCH

13.,EM67,ERR2

;WRONG DATA IN RLCS

CSERDF

13
EM67

ERRZ2

;a%w*END OF
TRAP

*«TEST

TESTw#wws

CSETST

15%« - BUS RESET OF RLBA
;xaexSTART OF

TESTwwanr

CARE

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

1473
1474
(2)
1475
1476
1477
1478
(2)
1479
1480
1481
1482
1483
1484
1485
1486
(3)
1487
1488
1489
1490
(4)
(5)
(%)
(5)
149N
1492
1493
(3)
(3)

1494
1495
1496

1497
1498
1499

MACY11

016212

F
6
PAGE 2-7
30A(1052)
17-DEC-79
14:01
*«TEST 15+« ~ BUS RESET OF RLBA
STARS
RN

016262
016262
016262

AR R

R AR R RR RN AR RN RRRN

AR AN

AR NR

STARS

S IRRRA AR

016252
016252
016254
016256
016260
016262

AN AN RN R AN AR

;TEST THAT A BUS RESET WILL CLEAR THE ENTIRE
;BUS ADDRESS REGISTER.
THE BUS ADDRESS IS LOADED WITH 177776
;AND IS EXPECTED TO BE ZERO AFTER THE RESET

016212

016212
016220
016224
016226
016234
016240
016240
016242
016250

SEQ 0070

012777
005737
001403
052777
005037
104433

017737
001404

AN AR AN AR AR AR RN RN A AN ARR AN

177776

164032

MOV

#-2,3RLBA

000001
002354

164016

BEQ
8IS
CLR

2%
#1,3RLBA
GDDAT

164004

002356

002402

TST

2%:

BRESET
TRAP
MOV
8EQ

ERRDF

104455
000016
007363
010202

TRAP
.WORD

.WORD
.WORD

1%:

104401

.SBTTL

016264

BGNTST

016264

STARS

TRAP

RARNA AR

ARRARAR AR

AN SN

JSET BA TO ALL 1°'S
JRL11?2?

T.CNTLR

:NO

sCLEAR EXPECTED DATA
;ISSUE B8US INIT

CSRESET
aRLBA,BDDAT

JREAD RLBA
;IF CLEAR BRANCH

14. ,EM70,ERR2
CSERDF
14

;WRONG DATA

IN RLBA

Jexs*END OF

TESTxaxx

EM70
ERR?

ENDTST

L10037:

CSETST

*#«TEST 16%+ - BUS RESET OF RLDA
;xxx«START OF

IR AR RN R R AR

RN A R

TESTwnxx

AN RN RRAANRAAANNREANNRACANARREAN

JTEST THAT A BUS RESET WILL CLEAR THE ENTIRE
;DISK ADDRESS REGISTER.
THE DISK ADDRESS IS LOADED WITH 177777

é?figsls EXPECTED TO BE ZERO AFTER THE RESET.
S a

012777
005037
104433

017737
001404

016310
016310
016312
016314

104455
000017
007420

177777
002354

163762

163750

002356

A AR

AR AN AR AR AN AN AN AN

MoV
CLR
BRESET
TRAP
MOV
BEQ

ERRDF
TRAP

.WORD
.WORD

AR ARAARNRRANNARANRRRANRRRARRANNA
N R RN

#-1,aRLDA
GDDAT
CSRESET
aRLDA ,BDDAT
1%

15.,EM71,ERR2

C$ERDF

15
EM71

JSET DA TO ALL 1°S
sCLEAR EXPECTED
s ISSUE BUS INIT
;READ RLDA

;IF CLEAR BRANCH
;WRONG DATA IN RLDA

W= OO0 N~ NN

016320
016320
016320

010202

1%:

ENDTST
L10040:

104401

PAGE 2-8
30A(1052)
17-DEC-79
14:01
««TEST 16*% - BUS RESET OF RLDA

.SBTTL

016322

BGNTST

016322

STARS

SEQ 0071

ERR2

.WORD

;A%a«END OF

TESTwwws

CSETST

TRAP

*«TEST 17%~ - UNIQUENESS OF RLCS
s**x«START OF

SRR AR AR R A AR

~ OO NOWNES

b
—

016316
016320

MACY11

TESTwewxx

A RAR AN AR R AR A R AN A NAANAANAARNRNARAAANRRAARRRRARR
RN AN

sTEST

THE UNJQUENESS OF THE CONTROL AND STATUS
THE _RLBA AND RLDA ARE PRELOADED WITH
JREGISTER.
THE RLCS IS THEN
2177776 AND 177777 RESPECTIVELY.

;LOADED TO INSURE THAT NEITHER THE RLBA OR RLDA
JARE MODIFIED BY THE WRITING OF THE RLCS.

016322

STARS

;;tittt*t*tttitttttfit'ttttttt*titttttt**titttttttttt*ttt*tttttttt

012737
012777
012777
013777

000201
177776
177777
002324

002324
163714
163710
163676

MOV

#DRDY ! CRDY ,LDCSR

;SET DRIVE

MOV
MOV

#-1,3RLDA
LDCSR,aRLCS

;SET RLDA TO ALL
JWRITE RLCS

MOV

#-2,aRLBA

AND

CONTROLLER READY

;SET RLBA TO ALL

;CHECK THAT RLBA REMAINS UNAFFECTED

022777
001412

177776

163672

016362
016370

012737
017737

177776
163656

002354
002356

000020
007455
010202

022777
001412

177777

012737
017737

1772777
163622

TRRRXXX KX RR
RUSERR S &3

016376
016376
016400
016402
016404
016406
016406

016352
016360

1549

016322
016330
016336
016344

2229292

WA
—

WHLNN
S ON N N
NS
NN = OV 00N

AN AN~ P

— d d D )

d D e e e

D o

=D b

)

A YalYa LAl V AV, RV LV LV, LV, IV LV LV, LV RV IV Pl

—_— e

D d d

—

b e

AV IV LV, TV, LV, PNV IV, (W, [V, IV, LV, IV, P W

NV, [V, [V, PEN

CZRLGBO RL11/RLVIT1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

A-2,3RLBA

JRLBA OKAY?

MOV
Mov

#~2,GDDAT
aRLBA ,BDDAT

;SET UP EXPECTED
JREAD RLBA

16. ,EM72,ERR2

;CS MODIFIED BA

ERRDF

104455

TRAP

CSERDF

JYES,

GO CHECK DA

.WORD
.WORD
.WORD
CKLOOP

16
EM72
ERRZ2

TRAP

($CLP

163636

cMP
BEQ

#-1,3RLDA
2%

sRLDA OKAY?
JYES, CONTINUE

002354
002356

MoV

#-1,GDDAT

JSET UP EXPECTED

17.,EM73,ERRZ

(S MODIFIED DA

1%:

104406

MOV
ERRDF

104455
000021

007510
010202

(MP

BEQ

TRAP

°%:

.WORD
.WORD
.WORD

adRLDA,BDDAT
CSERDF

17
EM73
ERRZ2

;CHECK

/FL:LOE

;READ DA

IS SET

1°'S

CZRLGBO RL11/RLV1IY CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

1558
(3)
(3)

016444
016444
016444

MACY11

30A(1052) _ 17-DEC~79

6
PAGE 2-9

sunxafEND OF

ENDTST

L10041:

104401

016446
016446

SEQ 0072

**TEST 17+« - UNIQUENESS OF RLCS

LSBTTL
1563
1564

14:01

TRAP

CSETST

»«TEST 18+~ - UNIQUENESS OF RLBA

8?2;57
STARS
R

TESTawwn

sxwx«START OF
AR

AN AN AN

R R R R R R AR A AN

TESTxwwx

R AR R R R AR RN RN RRRNNN RN AR AR AR

sTEST THE UNJQUENESS OF THE BUS ADDRESS REGISTER.
THE
JRLCS AND RLDA ARE LOADED WITH XXX20X AND 177777
JRESPECTIVELY.
THE RLBA IS THEN WRITTEN TO INSURE

1570

;THAT NEITHER THE RLCS OR RLDA ARE MODIFIED
;BY WRITING THE RLBA.
STARS

016446

""t'ttttttt*ttiit*l’fifi"'t'ttttttfiti*ttt*fit'fittttttitifi'ttfittttitt

1573
1574

016446
016454

012737
032777
001403
052737
013777
012777
005077

000200
040000

002354

MOV

#CRDY ,GDDAT

140000

002354

BEQ
8IS
MOV

99%
;SET THEN EXPECT IT
#ERR!DERR,GDDAT ;SET WHEN WE READ IT.
GDDAT ,aRLCS
;LOAD RLCS

002354

177777
163540

163566

163550
163546

BIT
99%:

MOV
CLR

A#DERR,IRLCS

#=1,3RLDA
aRLBA

. CONTROLLER READY

;1F DRIVE ERROR IS

< LOAD RLDA
;CLEAR RLBA

;CHECK IF RLCS IS OKAY
1583
1584
1585
1586

016512
016520
016526
016534

1588
(4)
(5)
(5)
(5)
1589
(3)

016536
016536
016540
016542
016544
016546
016546

1591

016550

022777

1593

016556

001412

1595
1596

016560
016566

012737
017737

1598
(4)
(5)
(5)
(5)

016574
016574
016576
016600
016602

017737
042737
023737
001404

163532
000001
002356

002356
002356
002354

MOV

BIC
(MP

BEQ

ERRDF

104455
000022

TRAP

007543
010202

1%:

104406

104455

010202

177777

177777
163462

163476

002354
002356

aRLCS ,BDDAT

;READ RL(CS

JYES,

#DRDY ,BDDAT
BDDAT ,GDDAT

18.,EM74 ,ERR2
CSERDF

; IGNORE DRIVE READY
.CS 0K?

GO CHECK DA

;BA MODIFIED (S

.WORD
.WORD
.WORD
(KLOOP

18
EM74
ERR2

TRAP

C$CLPI

CMP

#-1,3RLDA

;1S RLDA OKAY?

BEQ

. IF OKAY BRANCH

MoV
MOV

#-1,GDDAT
aRLDA,BDDAT

JSET UP EXPECTED
;READ RLDA

19.,EM75,ERR2

;BA MODIFIED DA

ERRDF

TRAP
.WORD

.WORD
.WORD

CSERDF
19

EM75
ERRZ2

;CHECK

/FL:LOE

IS SET

CZRLGBO RLY11/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

1599

016604
016604
016604
016604

MACY11

30A(1052)
17-DEC~79
14:01
PAGE 2-10
«*«TEST 18+~ - UNIQUENESS OF RLBA

2%:

;axxaEND OF TESTxwws

ENDTST

L10042:

104401

LSBTTL
016606

BGNTST

016606

STARS
IR

SEQ 0073

TRAP

CSETST

««TEST 19** - UNIQUENESS OF RLDA
;xxxxSTART OF

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

sTEST THE UNIQUENESS OF

TESTawwx

AR AR RRRAARNRNRRANR AR

THE DISK ADDRESS REGISTER.

THE RL(CS

;AND RLBA ARE LOADED WITH XXX20X AND 177776
JRESPECTIVELY.
THE RLDA IS THEN WRITTEN TO INSURE

016606
016614
016622
016624
016632
016640
016646

:THAT NEITHER

THE RLCS OR

THE RLBA ARE MODIFIED

e AR

A AR AN AR AR RN

RN R AR AN AN AN RRAANNARAARANRRARAAARRRA
RN NK

g?XRgRITING THE RLDA.

016606

012737
032777
001403
052737
013777
012777
005077

000200
040000

002354

140000

002354

002354
177776
163402

AAR AR AR

MOV
BIT

163426

163410
163404

99%:

BEQ
BIS
MOV
MOV
CLR

#CRDY,GDDAT
#DERR ,aRLCS

99%
#ERR!DERR,GDDAT
GDDAT ,aRLCS
#-2 ,dRLBA
aRLDA

;CONTROLLER READY
;IF DRIVE ERROR SET

;THEN EXPECT IT LATER
;LOAD CS
JLOAD BA WITH ALL
;CLEAR RLDA

1°'S

;CHECK IF RLCS IS OKAY
016652
016660
016666
016674

017737
042737
023737
001404

163372
000001
002354

002356
002356
002356

MOV

aRLCS ,BDDAT

8I1C

#DRDY ,BDDAT

BEQ

(MP

GDDAT ,BDDAT

JREAD RLCS

; IGNORE DRIVE READY
JRLCS OKAY?

;YES,

THEN BRANCH

016676
016676
016700
016702
016704
016706
016706

000024
007627
010202

016710
016716

022777
001412

177776

163334

CMP
BEQ

#-2,3RLBA
2%

;IS RLBA OKAY?
;BRANCH [F OKAY

016720
016726

012737
017737

177776
163320

002354
002356

MOV
MoV

#-2,GDDAT
aRLBA,BDDAT

;SET UP EXPECTED
JREAD RLBA

016734
016734
016736
016740
016742

104455
000025
007662
010202

ERRDF

21.,EM77,ERR2
CSERDF
21
EM77
ERRZ2

;DA MODIFIED BA

104455

1%:

104406

ERRDF
TRAP
.WORD
.WORD
.WORD

(KLOOP
TRAP

TRAP

WORD
.WORD
.WORD

20.,EM76 ,ERR2
CSERDF
20
EM76
ERRZ2
C$CLPY

;DA MODIFIED CS

;CHECK

/FL:LOE

IS SET

CZRLGBO RL11/RLVIY CTL R TST 1
CZRLGB.MAC
07-DEC-7 9 07:39

MACY11

J
6
17-DEC~79
14:01
PAGE 2-11
30A(1052)
««TEST 19+« - UNIQUENESS OF RLDA

642

016744

2%:

S
)
)

016744
016744
016744

ENDTST

;xxexEND

L10043:

104401

.SBTTL
1649

016746

BGNTST

1652

016746

STARS

TRAP

SEQ 0074

TESTawwn

CSETST

««TEST 20*x - UNIQUENESS OF

RLMP

JuxxxSTART OF

TESTaasnx

';ttttttt*tt*ttttfiifitt"tt'ti*ttfitfi*ttfifitfi*ttfifittttttttttttttit!t

;TEST

1657

THE UNIQUENESS OF

THE MULTI-PURPOSE REGISTER

;WE WILL WRITE THE RLCS, RLBA, AND THE RLDA, THEN THE
JRLMP IS WRITTEN. WE THEN GO BACK AN VERIFY THE CONTENTS
:QF THE RLCS, RLBA, RLDA.

016746

STARS

:;itfifittt*ttitttttttittittttt*'tttttfitt‘tttttttttfittttttt*tfittttt

1660
1661
1662
1663
1664
1665
1666
1667

016746
016754
016762
016764
016772
017000
017006
017014

012737
032777
001403
052737
013777
012777

012777
005077

000200
040000

002354

140000

002354
163250

002354

177776
177777
163236

163266

163244
163240

99% :

MOV
BIT
BEQ
BIS

MOV

MOV
MOV

CLR

#CRDY,GDDAT
#DERR,aRLCS

998

#ERR!DERR,GDDAT
GDDAT ,aRLCS
#-2 ,aRLBA
#-1,3RLDA
aRLMP

;CONTROLLER READY
;IF DRIVE ERROR SET
sTHE EXPECT IT LATER

;LOAD (S
;LOAD BA WITH ALL 1°'S
;LOAD RLDA
;WRITE RLMP

;CHECK IF RLCS 1S OKAY
017737
042737
023737
001404

163224
000001
002354

1671
1672
1673
1674

017020
017026
017034
017042

1676
(4)
(5)
(5)
(5)
1677
(3)

017044
017044
017046
017050
017052
017054
017054

1679
1680

017056
017064

022777
001412

177776

1682
1683

017066
017074

012737
017737

177776
163152

1685

017102

(5)
(5)

017104
017106

017102

002356
002356
002356

MoV

104455
000311

006176
010202

1$:

104406

104455

000323
006231

aRLCS,BDDAT

JREAD RLCS

BIC
CMP
BEQ

#DRDY ,BDDAT

?gDAT,BDDAT

; IGNORE DRIVE READY
JRLCS OKAY?
;YES, THEN BRANCH

ERRDF
TRAP
.WORD
.WORD
. WORD
CKLOOP

201. ,EM44 ERR2

:MP MODIFIED CS

CSERDF

201

EM&4
ERRZ2

;CHECK IF /FL:LOE IS SET

TRAP

CSCLPY

163166

CMP
BEQ

#=2,3RLBA

;BRANCH IF OKAY

002354
002356

MOV
MOV

#-2,GDDAT
aRLBA,BDDAT

;SET UP EXPECTED
;READ RLBA

ERRDF

211, ,EM4LS ERR2

;MP MODIFIED BA

TRAP
.WORD
.WORD

CSERDF

211
EM4S

;1S RLBA OKAY?

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

MACY11

022777
001412

177777

163132

017124
017132

017737
012737

163124
177777

002356
002354

017140
017140
017142
017144
017146

104455
000324
006264
010202

£HronNO

017 1
017 11
017 1
017 1"
017122

010202
104406

K 6
30A(1052)
17-DEC-79
14:01
PAGE 2-12
*wTEST 20+~ - UNJQUENESS OF RLMP

2%:

.WORD
CKLOOP

ERRZ

CMP

#=-1,aRLDA

.DISK ADDRESS OKAY

MOV
MOV

aRLDA ,BDDAT
#-1,GDDAT

;SET UP BAD
JSET UP EXPECTED

ERRDF

212. ,EM46,ERRZ2

;MP MODIFIED DA

.WORD

212

TRAP

BEQ

JCHECK IF /FL:LOE

C$CLPT

TRAP

EM&L6
ERR?

3%:

ElwWTST
L1C044:

104401

LSBTTL

JanxxEND OF TESTrwxx
TRAP

CSETST

w«TEST 21xx <~ NOOP FUNCTIONCRL11

BGNTST

017152

-J-a_a—a—hd.anu_a_flzg%
WA~ 20O
O\ ONOAWVE

NN =

b
d
e
)
b
e
S

ANNNNNNNNNNA
N YN Y

ONLY)

JxxxaSTART OF

TEST#xaxx«

STARS
IR RAAR R AR

IS SET

JYES, CONTINUE

CSERDF

.WORD
.WORD

017150

SEQ 0075

AN AR AANRA AR RN R

AR AN AN

RANARANNRARRARNAAN RN AN RN

RN AR

;TEST THAT NOOP WILL FUNCTION.
WE WILL ISSUE THE
;NOOP AND WAIT FOR CONTROLLER READY TO SET.
A
;TIMEOUT OF 200 MILLISECS IS ALLOWED.
DRIVE O IS ALWAYS

é?EEECTED SINCE

017152

AR AR R AR R AN

005737
001410

002402

004537
000000
004537

013414

014246

104406

004537

104401

AN AR NN AR

TST

2%:

013114
99%:
ENDTST
L10045:

THE DRIVE

IS NOT NECESSARY.

RN R AR A AR

AR AR AN R A ANARNRRANRRARARNR AR AN RN

BEQ

99%

T.CNTLR

JRLV112?

JSR
NOOPO
JSR
CKLOOP

RS,LDFUNC

TRAP

C$CLPT

s ISSUE FUNCTION OF FOLLOWING WORD
sNOOP(0) FUNCTION
WAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET

JSR

RS, CHERR

RS ,WTCRDY

;YES SKIP TEST

;CHECK CONTROLLER FOR ERRORS
;exnsxfEND OF

TRAP

CSETST

TESTwexx

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

MACY11

30A(1052)

17-DEC-79

14:01

WNWNN
DN
B8N

SEQ 0076

LSBTTL

##TEST 22+« - TEST NOOP DOES NOTHING

017202

BGNTST

s*xx#START OF

017202

STARS
AR AR AR AR AR RANRR AR

TESTwawx
RRAN RN

sTEST THAT ISSUING A NOOP FUNCTION DOES NOTHING.,
THIS IS DONE BY WRITING
é;:sSRLBA‘ AND RLDA, READING THE RLMP AND MAKING SURE NOTHING CHANGES.

N NN

LNNJ—‘CNOES‘J“’shfl&d

— d
D d ) b D

~N NN NN NN SN A

—t e o e

6
PAGE 2-13

**TEST 22+» ~ TEST NOOP DOES NOTHING

RN AR RN R AR RN R AR AR

017202

:"ttttt'*tttttfi*tfitttttttiittttttttt**ttitfifitttt*tttittttttt't'tt

017202
017206

005737
001476

002402

017210

012777
012777
005077
017737

000001
000002
163026
163022

017236
017242
017244
017250
017250

004537
000000
004537

017252
017256
017256
017260

004537

017262
017270
017276

017737
023737
001404

017216
017224
017230

BEQ

TST

T.CNTLR

JRLV112?

MOV
MOV
CLR

#1,3RLDA
#2,3RLBA
aRLMP

sLOAD DISK ADDRESS
;LOAD BUS ADDRESS

adRLMP,GDDAT

;READ RLMP

013414

dggpo

R5,LDFUNC

s ISSUE FUNCTION OF

014246

JSR

R5,WTCRDY

;JWAIT FOR CONTROLLER READY HIGH

163036
163026

0023¢/

MoV

CKLOOP
TRAP

104406

013114

104410

000124

017300
017300
017302
017304
017306

000312
005276
010202

017310
017310

104406

017312
017320
017326
017334

012737
017737
023737
001404

162770

002356
002356

017336
017336
017340
017342
017344

000313
005324
010202

017346
017346

104406

162726

002354

002354
002356
002356

aRLMP ,BDDAT
?gDAT.BDDAT

JREAD RLMP
JRLMP 0OK?

202. ,EM14 ,ERR2
CSERDF

202

(KLOOP
TRAP

CeCLPT

MOV

#2,GDDAT

;SET UP EXP'D BA

BEQ

JYES

EM14
ERRZ2

aRLBA,BDDAT
GDDAT ,BDDAT

ERRDF

203, ,EM15 ERR?2

.WORD
.WORD
.WORD

203
EM15
ERR2

TRAP

2%:

L10046-.

.WORD

MOV
CMP

104455

IS SET

MOV
ggg

.WORD
.WORD

000002

/FL:LOE

sCHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT

TRAP

1%:

R5,CHERR
TST
C$ESCAPE

ERRDF

104455

sCHECK

JSR
ESCAPE
TRAP

.WORD

002354

C$CLPT

FOLLOWING WORD

(KLOOP
TRAP

JCHECK

/FL:LOE

IS SET

JREAD BA
;BA 0K?

CSERDF

C$CLPT

sCHECK IF /FL:LOE

1S SET

TST

CZRLGBO RL11/RLVIY CTLR TST_ 1
CZRLGB.MAC
07-DEC-79 07:39

MACY11

M6
30A(1052)
17-DEC-79
14:01
PAGE 2-14
*xTEST 22+« - TEST NOOP DOES NOTHING

1770
1771
1772

017350
017356

1776
(4)
(5)
(5)

017374
017374
017376
017400

1778
1779
1780

017404

3$:

017404
017404
017406

ENDTST
L10046:

1773
};;g

1;;;

(3)
(3)
1781
1782
};gz

017364
017372

017¢02

012737
017737

023737
001404

000001
162672

002354

002354
002356

MoV
MOV

002356

CMP
BEQ

GDDAT ,BDDAT
3%

ERRDF
TRAP
.WORD
.WORD

104455
000314
005352
010202

.WORD

104401

.SBTTL

1;%2

017406

BGNTST

1787

017406

STARS

(2)

#1,GDDAT
aRLDA ,BDDAT

;SET UP EXP'D DA
JREAD DA

;DA OKAY

204. ,EM16,ERR2
CSERDF
204
EM16

ERR2

suxxxEND OF
TRAP

SEQ 0077

TESTxnawx

CSETST

#*#TEST 23%« - TEST OF

INTERRUPT
s**xxxSTART OF

SRR AN

TESTwwwax

AR AN AR NN AR R AN A AN AAARARARRAAR AR RRANRANARR AN NN

1788
1789

SCHECK THE INTERRUPT WITH A NOOP.
WE WILL SET UP THE
;INTERRUPT VECTOR, LOWER THE PSW TO ZERO AND ISSUE

17N
1792

;FLAG UPON INTERRUPT AND RETURN IN LINE.
WE WAIT 200 MILLISECONDS
;LOOKING FOR THAT FLAG TO BE SET BEFORE CALLING IT

1790

:A NOOP.

1793

THE INTERRUPT SERVICE ROUTINE WILL SET A

;AN ERROR.

1794
1795
1796
1797

017406

1798
1799
1800
}gg}

017406
017412

005737
001426

002402

TST
BEQ

1803
1804
(3)
(3)
1805
1806
1807

017414
017420
017420
0174246
017426
017432
017434

005037

002322

012700
104441
004537
000100
004537

000200

CLR
SETPRI
MoV

1809
1810
(4)
(5)
(5)
(5)
1811

017444
017446
017446
017450
017452
017454
017456

001004

(2)

1808

017440

THE INTERRUPT SENDS US TO ANOTHER

;VECTOR _ADDRESS THEN THE ERROR HANDLER WILL RI°.RT
;"'TRAP TO XXXX FROM YYYY'* AND RETURN
TO DIAG SUP MONITOR.
; INTERRUPT GOES TO ABOVE 1000 WHO KNOWS WHAT WILL HAPPEN.
STARS
S

005737

104455
000026
005244
010152
005037

T.CNTLR
99%

014246

002322

BNE
ERRDF
TRAP
.WORD
.WORD
.WORD
CLR

002322

TST

2$:

THE

AA AR A AR A AR A AN RN R AR R AR A AN A AARANARAARANRANRAR AN AR RN AR ARRS

INTFLG
#PRIO0
#PR100,RO
TRAP
C$SPR]
JSR
R5,LDFUNC
NOOPO! INTEN
JSR
RS ,WTCRDY

013414

INTFLG

2%
22..EH13 ERROQ
CSERDF
22
EM13
ERRO
INTFLG

;CLEAR INTERRUPT OCCURRENCE FLAG
;SET PSW TO 0
s ISSUE FUNCTION OF FOLLOWING WORD
sNOOP AND INTERRUPT ENABLE
sWAIT FOR CONTROLLER READY HIGH

;DID INTERRUPT OCCUR
;IF SO BRANCH

—

and pd
b e

017462
017462
017464

017470
0172470
017470
017470

104406

004537

N 6
PAGE 2-15
17-DEC=79
14:01
30A(1052)
«xTEST 23+« ~ TEST OF INTERRUPT

CKLOOP
TRAP

013114

RS,CHERR

104401

.SBTTL

017472

BGNTST

017472

STARS

JunnnfEND OF
TRAP

TESTawxw

««TEST 24=« ~ TEST PRIORITY BR LEVEL
;enexSTART

AR RN

RN RN RN R

TESTwaxn

;TEST

THAT PRIORITY GIVEN IS ACTUAL PRIORITY OF

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

INTERRUPT.

é?ggSUORK DOWN TIL

IT DOES

CONTROLLER.

WE KNOW

WE WILL START TRYING TO INTERRUPT AT 7

INTERRUPT.

Pe
T

017472
017476

005737
001456

002402

017500

012737

000340

017514
017514

104404

017506

IS SET

CSETST

;THE BOARD WILL

017472

/FL:LOE

;JCHECK CONTROLLER FOR ERRORS

99%:
ENDTST

L10047:

SEQ 0078

JCHECK IF

($CLPT

JSR

(o Yo ]

—d ——d

rd Vs 17V, et
Rl V. )
RS e
V00~~~
NN S W~ ~nN

CZRLGBO RL11/RLVYT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

MACY11

013737

002262

BEQ

T.CNTLR

JRLV11??

MOV

#340,BDDAT

JSET UP INITIAL OF 7
;GET GIVEN PRIORITY

TRAP

L$BSEG

CLR
SETPRI
MOV
TRAP

INTFLG
BDDAT
BDDAT RO
C$SPRI

TST

002356
002354

MOV

BGNSEG

BPRIOR,GDDAT

JYES,

SKIP TEST

;axxxSTART OF

SEGMENTwawx

017516
017522
017522
017526

005037

002322

013700

002356

017530
017534

004537
000100

013414

JSR
RS ,LDFUNC
NOGPO! INTEN

;ISSUE FUNCTION OF FOLLOWING WORD

017536
017542
017542
017544

004537

014246

JSR
ESCAPE

R5,WTCRDY
TST

JWAIT FOR CONTROLLER READY HIGH
JIF /FL:LOE SET LOOP, ELSE EXIT TST

.WORD

L10050-.

017546
017552
017552
017554

004537

JSR
ESCAPE

R5,CHERR
TST

.WORD

L10050-.

017556
017564

023737
002012

002356

MP
BGE

BDDAT ,GDDAT
1%

sSHOULD IT INTERRUPT
;NO, BRANCH

017566
017572

005737

002322

INTFLG

;DID

104441

5%:

104410

TRAP

000070

013114

104410
000060

001004

TRAP

002354

TST

BNE

CSESCAPE

;CLEAR INTERRUPT OCCURRENCE
:SET PRIORITY

;CHECK CONTROLLER FOR ERRORS
JIF /FL:LOE SET LOOP, ELSE EXIT TST

INTERRUPT OCCUR

JYES, OK

CZRLGBO RL11/RLV1I1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

017574

8 7
17-DEC-79 14:01
PAGE 2-16
MACY11 30A(1052)
««TEST 24*» - TEST PRIORITY BR LEVEL
3s:

104455
000314
005400
010440

2s:

ZZE BeoREREE

104410
000014

017620
017622
017622
017622
017624
017632
017634
017634
017634
017634

000405
005737
001772
000765

ERRDF
TRAP

18:

CSERDF

204
EM17
ERR?7

ESCAPE

SEG

.WORD

002322

204.,EM17 ERR7

.WORD
LWORD
.WORD

TRAP

JIF /FL:LOE SET LOOP, ELSE EXIT SEG

CSESCAPE

10000%-.

BEQ
BR

23
3

TST

INTFLG

;DID

104405
162737

100331

000040

002356

4%:

sanxxEND OF SEGMENTrxxx
TRAP
SUB
BPL

CSESEG
#40 ,BDDAT
5%

6%:

104401

LSBTTL
017636

BGNTST

017636

STARS

JNEXT LEVEL

seaxxEND OF

ENDTST

L10050:

INTERRUPT OCCUR

;NO, OK
;YES, ERROR

ENDSEG

100008:

SEQ 0079

TRAP

TESTxwnx

CSETST

«xTEST 25%x - GET STATUS FUNCTION
saxw*START OF

CIRRRAARA AR

R RA N AR A AR

AR AR RAAAR AR

AN AN AR AN

TESTwwax

AN AARA AR AR

AARRAAS

sTEST GET STATUS FUNCTION.
THE GET STATUS FUNCTION WILL
;WORK IF DRIVE IS LOADED AND READY OR NOT.
THE RLDA
;1S LOADED WITH THE GET STATUS AND MARKER BITS (BITS 1,0)
SJAND THE FUNCTION IS ISSUED.
WE WAIT 200 MILLISECONDS

gfiggSCONTROLLER READY.

017636

VERIFY THAT NO ERRORS OCCUR.

SRR ARRA R A AR AN RN A AN AR AR

017636
017644
017650
017652
017656
017656

012777
004537
000004
004537

017660

004537

017664
017664
017664

000013
013414
014246

104406

162410

2%:

013114

MOV
JSR
GSTAT

#GSBIT!MK!DRST,aRLDA
JSET GET STATUS AND MARKER BIT
RS ,LDFUNC
;ISSUE FUNCTION OF FOLLOWING WORD
;GET STATUS

TRAP

CSCLP

JSR

RS.,CHERR

JSR
CKLOOP

RS ,WTCRDY

ENDTST
104401

L10051:

.SBTTL

AR A ANNARANAARAARARAN A RARANAANRNAANNRAAARANRR

JWAIT FOR CONTROLLER READY HIGn
JCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
saxsxEND OF TESTwarnr

TRAP

CSETST

*«TEST 26%* - GET STATUS FUNCTION INTERRUPT

CZRLGBO RL11/RLVI1 CTLR TST_1
CZRLGB.MAC
07-DEC-7Y 07:39
1897
}ggg

c 7
MACY11 30A(1052)
17-DEC-79 14:01
PAGE 2-17
««TEST 26*% - GET STATUS FUNCTION INTERRUPT

017666

BGNTST

}gg?
1902
1903
(3)
(3)
1904
1905
1906
1907
1908
(3)
(3)
1909
1910
1911
(4)
(5)
(5)
(5)
1912
(3)
1913
1914
1915
(3)
(3)
1916
1917
1918
1919
1920
(3)
(3)
1921
1922
1923
(4)
(5)
(5)
(5)
1924
(3)
1925
1926
(3)
(3)

1958

;%%xaSTART OF TESTwaene

;CHECK GET STATUS UNDER INTERRUPT
017666
017672
017672
017676
017700
017706
017712
017714
017720
017720
017724
017726
017732
017734
017734
017736
017740
017742
017744
017744
017746
017752
017756
017756
017762
017764
017772
017776
020000
(020004
020004
020010
020012
020016
020020
020020
020022
020024
020026
020030
020030
020032
020036
020036
020036

;g%g
1931

SEQ 0080

005037

002322

012700
104441
012777
004537
000104
004537

000000

012700
104441
005737
001004

000003
013414

162346

014246
000340
002322

104455
000034
005433
010152
104406
004537
005037

2%:
013114
002322

012700
104441
012777
004537
000004
004537

000000

012700
104441
005737
001404

000340

000003
013414
014246

002322

104455
000431
005472
010152

104406
004537
104401

162262

3s:
013114

ENDTST
L10052:

.SBTTL
020040

BGNTST

CLR
INTFLG
SETPRI
#PRIOO
MOV
#PRI00,RO
TRAP
C$SPRI
MOV
#GSBIT'MK,3RLDA
JSR
RS,LDFUNC
GSTAT!INTEN
JSR
RS ,WTCRDY
SETPRI
#PRIO?7
MOV
#PR]I07.,RO
TRAP
CSSPRI
TST
INTFLG
BNE
2%
ERRDF 28. ,EM30,ERRO
TRAP
CSERDF
.WORD
28
.WORD
EM30
.WORD
ERRO
CKLOOP
TRAP
CSCLP1
JSR
RS,CHERR
CLR
INTFLG
SETPRI
#PRIOO
MOV
#PR100,RO
TRAP
C$SPRI
MOV
#GSBIT!MK,3RLDA
JSR
RS, LDFUNC
GSTAT
JSR
RS,WTCRDY
SETPRI
#PRI07
MOV
#PR107,RO
TRAP
CSSPRI
TST
INTFLG
BEQ
3
ERRDF
281. ,EM30A,ERRO
TRAP
CSERDF
.WORD
281
.WORD
EM30A
.WORD
ERRO
CKLOOP
TRAP
CSCLPY
JSR
RS, CHERR
TRAP

;CLEAR INTERRUPT OCCURANCE
;PSW TO LEVEL O
;SET UP DA
;ISSUE FUNCTION OF FOLLOWING WORD
JGET STATUS, INT ENABLE
WAIT FOR CONTROLLER READY HIGH

:DID INTERRUPT OCCUR
: YES-BRANCH

:CHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
:CLEAR INTERRUPT OCCURANCE
:PSW TO LEVEL O
;SET UP DA FOR GET STATUS CMD
:ISSUE FUNCTION OF FOLLOWING WORD
:GET STATUS - SHOULD NOT CAUSE AN INTERRUPT
:WAIT FOR CONTROLLER READY HIGH

:DID INTERRUPT OCCUR
:NO - BRANCH (OK)

(SHOULD NOT)

;CHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
xexaEND OF TESTannx

CSETST

#«TEST 27x% - GET STATUS FUNCTION GENERATES OP] W/0 GS BIT
;axnxSTART OF

TESTwwew

CZRLGBO RL11/RLV1IT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
1933
(2)

MACY11

020040

0D 7
30A(1052)
17-DEC=79 14:01
PAGE 2-18
**TEST 27+« - GET STATUS FUNCTION GENERATES OP] W/0 GS BIT

SEQ 0081

STARS
R

aste

sVERIFY THAT GET STATUS FUNCTION WILL NOT COMPLETE

sWITHOUT SENDING QUT THE GET STATUS BIT IN THE RLDA.

cWE SET MARKER BUT NO GET STATUS BIT IN THE RLDA AND
;ISSUE A GET STATUS WE SHOULD RECIEVE AN OP] ERROR.

§¥ES§FY

THAT CONTROLLER READY SETS AND OP]

o RN RN R R A AN

012777
004537
000004
004537
032737
001405
012737
004537
104406

032737
001004
020114
020116
020120
020122
020124
020124
020124
020124

000001
013414

014246
074000

162206

MOV

JSR

GSTAT

004045
013114

013376

002000

002302

104455

020126
020126

29. .EM33,ERRO

.WORD

EM33

AR R

;1S OP]

SET?

s YES-BRANCH NO-CHECK TIMEOUT

CSERDF
29

ERRO
JaexxEND OF

TRAP

TESTawax

CSETST

««TEST 28%* - QOP] UNDER INTERRUPT

BGNTST
STARS
o

JaxxxSTART OF
RN AR AR AR AR R A AR AR

TESTxwsax

RN AN AN AR AR AN AR RRRAANRR

AR AR AR

A RN

;FORCE AN OP]I ERROR UNDER INTERRUPT TO VERIFY THAT
;AN INTERRUPT WILL OCCUR FROM OPI.
THE OPI IS FORCED
;USING A GET STATUS WITHOUT THE GET STATUS BIT SET
. IN RLDA.

020126

STARS
e

014246

RA R RN AR

SETPRI
MOV

000000

002322
000001
013414

020154

ERRDF

R5,CHERR

ENDTST

L10053:

JWAIT FOR CONTROLLER READY HIGH

CSCLPT
#0P] ,E.CS

.WORD

2%:

104401

cISSUE FUNCTION OF FOLLOWING WORD

CKLOOP
TRAP
8IT
TRAP
. WORD

A RRAARANAN AR

<GET STATUS

#OPIERR,RESTMS

B8NE

A AN AN A AR RRARA R

;SET ONLY MARKER BIT..

R5,LDFUNC

MOV

JSR

1%:

000035
005566
010152

MK ,aRLDA

JSR
RS ,WTCRDY
BIT #74000,E.CS
8EQ
1%

002302

LSBTTL

020126

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

SETS

162106

A AN AN AN AR AR A AR

R AR RAAN AR AR RN

N R A AR RN SN

#PRIQO
#PR100,RO

TRAP
C$SPRI
CLR
INTFLG
MOV
#MK , IRLDA
JSR
RS ,LDFUNC
GSTAT!INTEN

JSR

A AR

RS,WTCRDY

sSET ONLY MARKER BIT!!

;ISSUE FUNCTION OF FOLLOWING WORD
JGET STATUS
;WAIT FOR CONTROLLER READY HIGH

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC=79 07:39
1976
(3)
(3)
1977
1978
1979
(4)
(5)
(5)
(5)
1980
(3)
1981
1982
1983
1984
1985

(3)
1986
1987
1988

(4)
(5)
(5)
(5)
1989
1990
1991

(3)
1535

020160
020160
020164
020166
020172
020174
020174
020176
020200
020202
020204
020204
020206
020214
020216
020224
020230

020230
020232
020240
020242
020242
020244
020246
020250
020252

012700
104441
005737
001004

002322

001405
012737
004537

104406
032737
001004

2%:
074000

002302

004045
013114

013376

002000

002302

104455
000037
005566
010152

1%:

3%:

BNE
ERRDF
TRAP
.WORD
.WORD
.WORD
CKLOOP
TRAP
BIT
8tQ
MOV
JSR
CkLOOP
TRAP
BIT
BNE
ERRDF
TRAP
WORD
.WORD
.WORD

#PR]IO7
#PRI0O7,RO
C$SPR1
INTFLG
2%
30..,EM11,ERRO
CSERDF
30
EM11
ERRO
CSCLP
#74000,E.CS

L10054:

104401

LSBTTL

SEQ 0082

JINTERRUPT OCCUR

;CHECK IF

/FL:LOE

CSCLPY
#0OP] ,E.CS
3s
31..EM33,ERRO
CSERDF
31
EM33
ERRO

;1S OP] SET?
; YES=-BRANCH NO-CHECK TIMEOUT

suaxaxfEND OF

TRAP

TESTwwxnx

CSETST

««TEST 29=*x ~ R, AD HEADER FUNCTION

020254
020254

BGNTST
STARS

1997
1998
1999

020254

CHECK THAT READ HEADER WORKS, THAT WE CAN ISSUE
;I1T, GET READY BACK WITHOUT ANY ERRORS SETTING.
STARS

2000
2001
2002
2003
2004
(3)
5882

020254
020260
020262
020266
020266
020270

2007

020274

268%

020274

(3)

020274

38?8
2011

;unexSTART OF TESTaerx

R RN RN R RN R

RN RERRARER AR AN RN RN RRARRNRRNEANRRRRARR

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

004537
000010
004537

013414
014246

104406
004537

013114

2%:

JSR
RDHDR
JSR
CKLOOP
TRAP
JSR

RS .LDFUNC
R5,WTCRDY
CSCLP
RS, CHERR

ENDTST
104401

L10055:

.SBTTL
020276

IS SET

18
#OPIERR ,RESTMS
RS5.,CHERR

ENDTST

1332
1995
1996

SETPRI
MOV
TRAP
TST

104455
000036
005203
010152
104406
032737

E 7
30A(1052)
17-DEC-79 14:01
PAGE 2-19
«xTEST 28%xx - OP] UNDER INTERRUPT

000340

020252

020252
020252

MACY11

BGNTST

JISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
JWAIT FOR CONTROLLER READY HIGH READY
;CHECK IF /FL:LOE 1S SET
;CHECK CONTROLLER FOR ERRORS

saxxxfEND OF TESTwwxx
TRAP

CSETST

=««xTEST 30+« - READ HEADER FUNCTION INTERRUPT
JaexxSTART OF

TESTxenx

CZRLGBO RL11/RLV1Y CTL R TST 1
CZRLGB.MAC
07-DEC~79 07:39

2013
(2)
2014
2015
2016
(2)

2017
2018
2019
(3)
(3)
2020
2021
2022
2023
2024
(3)
(3)
2025
2026
2027

(4)
(5
(5)
(5)
2028
(3)
2029

2030
2031
2032
(3)
(3)

2033
2034
2035
2036
2037
2038
2039
2040

020276

MACY11

F
7
30A(1052)
17-DEC-79
14:01
PAGE 2-20
*«TEST 30+« - READ HEADER FUNCTION INTERRUPT

SEQ 0083

STARS
N

A AN

R AR

AR R RN RN AR AN AR RN R RRNRRRRAANEANRRANRRN

sCHECK THAT READ HEADER WILL GENERATE AN INTERRRUPT

g?figg COMPLETION WITHOUT ANY ERRORS SETTING

020276

s RN R R

020276

012700

000000

005037
004537
000110
004537

002322
013414

012700

000340

005737
001004

002322

104441

020350

020354
020354
020354

INTFLG
RS, LDFUNC

:CLEAR INTERRUPT OCCURENCE
s ISSUE FUNCTION OF FOLLOWING WORD

JSR
SETPRI

R5,WTCRDY
#PRIO7

;WAIT FOR CONTROLLER READY HIGH

TST

TRAP

104406

C$SPRI

013114

INTFLG

2%
35.,EM37 ,ERRO

104401

TRAP

C$CLPT

JSR

RS, CHERR

BGNTST

020356

STARS
AN

ENA

; INTERRUPT HAPPEN

s YES=CONT INUE

ERRO

;CHECK IF /FL:LOE

IS SET

;CHECK CONTROLLER FOR ERRORS
saxnsfEND OF

TRAP

INTR.

CSERDF

35
EM37

ENDTST

L10056:

JREAD HEADER,

#PR107,RO
C$SPRI

.WORD
.WORD

.WORD
CKLOOP

020356

TESTrwxw

CS$ETST

««TEST 31++ - REPEATED RD HDRS YIELD SAME CYL AND HD

xxxxSTART OF

AR R AR R RN AN R

TESTwawx

R R R R AR AR R AR AR AR R AR RRARARRNANNRR RN

AR RARN

$CHECK THAT READ HEADERS WILL RELIABLY READ THE SAME
;CYLINDER AND HEAD SELECT.
WE WILL READ HEADERS VERIFYING
é}:fig WE ALWAYS READ THE SAME CYLINDER AND HEAD SELECT.

020356

020376

JSR

BNE
ERRDF

.SBTTL

020356

JPSW TO 0

MOV
TRAP

2%:

RARARARAARRANR AR AN

#PRIOO
#PRI100,RO

RDHDR ! INTEN

014246

000043
005710
010152

004537

RA R AR RN AR AN AN A AN AN R AR A AR NN A AN

SETPRI
MOV
TRAP
CLR

104455

020344
020346
020346

012701
004537
000010
004537

104410
000122

RN AR

AR A AR

AN R AR AR AN AN

000144
013414

MoV
JSR

#100. ,R1
R5,LDFUNC

014246

JSR

RS.,WTCRDY

.WORD

L10057~.

RDHDR

99%:

ESCAPE
TRAP

TST
CSESCAPE

RN N AN NN

RA AN

RRAARRAARARRRR AR

RN R

;SET UP TO DU 100 RD HDR'S
sISSUE FUNCTION Of FOLLOWING WORD

;READ HEADER

JWAIT FOR CONTROLLER READY HIGH
;1F /FL:LOE SET LOOP, ELSE EXIT TST

CZRLGBO RL11/RLVIY (TLR TST 1
CZRLGB <MAC
07-DEC~79 07:39

004537

MACY11

013114

JSR
ESCAPE

104410

002354
002354

104404

004537

000010
004537
020440
020442

020454
020462
020470
020476

013737

020502
020504
020506

020510
020510

020512
020514
020516
020516
020516
020520
020520
020520

2%:

013414
014246

97%:

013114

002310
002326
002354

002356
002356
002356

104401

TRAP

C$BSEG

JSR

R5,LDFUNC

;ISSUE FUNCTION OF FOLLOWING WORD

JSR
ESCAPE

RS ,WTCRDY
SEG
CSESCAPE
10000%-.

;WAIT

;CHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT SEG

.WORD

RS, CHERR
SEG
CSESCAPE
10000%-~.

MOV
8IC
cMP

E.MP ,BDDAT
SECMSK,BDDAT
ggDAT,BDDAT

;READ HEADER
MASK AWAY SECTOR BITS

ERRDF

36. ,EM41,ERRG
CSERDF
36
1
EM4
ERR4

TRAP

BEQ
TRAP

000044
005750
010316

104405

JREAD FIRST HEADER

TRAP

104455

005301
001344

E.MP,GDDAT
SECMSK,GDDAT

JSR
ESCAPE

106410

104406

BIC

.WORD

000044

043737
023737
001404

MOV

CSESCAPE
L10057~.

RDHDR

104410

004537

020500
020500

BGNSEG

000054

020444
020450
020450
020452

sCHECK CONTROLLER FOR ERRORS
JIF /FL:LOE SET LOOP, ELSE EXIT TST

.WORD

002310
002326

.WORD
-WORD
.WORD

4%:

ENDSEG
100008:

ENDTST

L10057:

.SBTTL

020522

BGNTST

020522

STARS

SEQ 0084

RS, CHERR
TST

TRAP

000112

013737
043737

PAGE 2-21
17-DEC~79
30A(1052)
14:01
#*TEST 37+« - REPEATED RD HDRS YIELD SAME (YL AND HD

CKLOOP
TRAP

CSCLPT

DEC
BNE

TRAP

CSESEG

sw*x*x«START OF

FOR

GOOD)

SEGMENTxxw«

CONTROLLER READY HIGH

;IF /FL:LOE SET LOOP, ELSE EXIT SEG

;1S HEADER CORRECT

JCONSTANT CYL & HS
;CHECK IF /FL:LOE IS SET

JPERFORM ALL READ HDR'S
;JF NOT GO BACK AND DO ANOTHER
JaexxEND OF SEGMENT xxxx

;e%axEND OF

TEST#aws

CSETST

TRAP

**TEST

(ASSUME

;JMASK AWAY SECTOR BITS

32+«» - CHECK OF

AR R AR RAN A AN AR A AR A RN

HEADER (RC

;#%**START OF

AN A RNNARRANRANRAARARN
RN AAARRAARARANCRANR

:CHECK THAT WE CAN READ THE HDCRC AFTER A
SREAD HEADER AND THAT 1T IS THE CORRECT CRC

:FOR THE HEADER.

TESTw#as

CZRLGBO RL11/RLVIY CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

2091
(2)

MACY11

020522

H
7
30A(1052)
17-DEC-79
14:01
PAGE 2-2°2
««TEST 32+~ - (HECK OF HEADER CRC

SEQ 0085

STARS

.';'ltttfit"tttfittt.tl""t'itififi'it.t'ttfi'fiittt*tt't...tfitt'.'t'fii

2092

2093
2094
2095
2096
2097
2098

020522
020526
020532
020534
020540

005037
004537
000010
004537

263%

020542

000114

2100
2101
(3)
‘§85

020544
020550
020550
020552

004537

2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113

020554
020562
020566
020570
020572
020574
020602
020610
020614
020616
020620

013737
004537
000020
000000
000000
013737
013737
004537
000020
000000
000000

2119

020646

(3)

2114
2115
2116
5}};

020540

020622
020630
020636
020644

(4)
(5)
(5)
(5)

020646
020650
020652
020654

2122

020656

g}g?
(3)
(3)
2123
2124

020656

020656
020656

%}SZ

020572
013414
014246

104410

104455
000045
006041
010316

013114

002310
013772

002336
002312
013772

002336
002314
002354

020570

020620
020616

002354
002356
002356

2%:
3s:

4%:
5%:

6%:

104401

L10060:

.SBTTL
020660

BGNTST

2129
2130

020660

STARS

2131
2132
2133
2134

.WORD

L10060-.

JSR
ESCAPE
TRAP
.WORD

RS5,CHERR
TSI
CSESCAPE
L10060-.

sCHECK CONTROLLER FOR ERRORS
JIF /FL:LOE SET LOOP, ELSE EXIT T¥ST

MOV
JSR
16.
.WORD
.WORD
MOV
MoV
JSR
16.
.WORD
.WORD

E.MP,2%
R5,SIMBCC

;READ HEADER WORD
;GO CALCULATE CRC
;16 BITS
;HEADER GOES HERE
JSTART WITH O CRC

RS ,WTCRDY
TST
CSESCAPE

0
0
CALBCC,5%
E.MP1,4%
R5,SIMBCC

MOV
MOV
CMP
BEQ

0
0
CALBCC,GDDAT
E.MP2 ,BLDAT
GDDAT ,BDDAT
6%

ERRDF

37. ,EM42,ERR4

TRAP
.WORD
.WORD
.WORD

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;JWAIT FOR CONTROLLER READY HIGH
JIF /FL:LOE SET LOOP, ELSE EXIT TST

;GET SECOND HALF

;STORE CALCULATED CRC AS GOOD
;THIRD READ OF DB GETS CRC
;1S CRC CORRECT?
;IF SO CONTINUE

C$ERDF
37
EM42
ERR4

ENDTST

s%gg

(2)

3%
RS,LDFUNC

TRAP

104410
000104

013737
013737
023737
001404

CLR
JSR
RDHDR
JSR
ESCAPE

sax*xEND OF TESTwwwe
TRAP

CSETST

««TEST 33« - (HECK CONSECUTIVE HEADERS
saxxxSTART OF

TESTaxex

""!'itQfitfittttttttttttttttttttl‘itfifittitfifi.!tti'tlfitttt..tttttttt'

;CHECK THAT THE HEADERS ARE CONSECUTIVE.
WE WILL DO
;40 (FORTY) READ HEADERS AND STORE EACH.
AFTER WE HAVE
JREAD THE FORTIETH HEADER WE WILL VERIFY THAT
JTHEY CAME IN SEQUENTIAL, THAT O FOLLOWS 39,

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

2135
2136

020660

2137
2138
2139
2140
2141
2142
2143
2144
2145

020660
020664
020670
020674
020702
020710
020716

2146
2147
2148
2149
2150
2151
2152

2153
2154
2155
2156
2157
2158

2159
2160
2161

020724
020732
020734
020740
020744
020750
020754

020756
020760
020764
020770
020774
021000
021002
021010
021012

DI AN

005037
012703
012701
012737
053737
013777
062777

032777
001774
017723
017723
017723
017723
005301

001357
012703
012701
011337
005737
100016
012737
005723
012337

021016
021022
021026
021032
021036
021040

2171
2172
2173
2174
2175
2176
2177

021060
021066
021070
021074
021102
021104
021112

013737
000435
005237
023737
001766
033737
001015

2179
2180
2181
S}gg

021122
021130
021136
0211640

043737
023737
001750
043737

5}32

021146

2186
2187
2188
2189

021146

2178

021044
021050
021052

021114

021152

30A(1052)
17-DEC-79
14:01
PAGE 2-23
**TEST 33%+ - (HECK CONSECUTIVE HEADERS

. THAT THERE WERE NO ERRORS.
STARS

2162
2163
2164
2165
2166
2167

2168
2169
2170

MACY11

012337
012337
004537
000137
005723
011337

005737
001007
012737

013737

002360
003266
000050
000210
002266
002270
000200
000200

002270
002270
161332
161324
161316

28%:
18:

161310
161312
161306
161302
003266
000050
002302
002302
004304

013376

002310
002312
002314
013114
021174

99%:

002356
002360
000001
002356

002360
002354

002354
002356

002354

002326

002356

002354

002340

002326

002354

002362
002364

3$:
48:

AR AN AN A A AN NN R A

CLR
MOV
MOV
MOV
BIS
MOV
BIC
BIT
BEQ
MOV
MoV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
TST
BPL
MOV
TST
MOV
MOV
MOV
JSR
JMP
TST
Mov
TST
BNE
MOV
MOV
BR
INC
(MP
BEQ
BIT
BNE

FIRST
;CLEAR FIRST READ DONE FLAG
#HDRBUF ,R3
; STORE HEADERS
#40. R1
;FORTY HEADERS
#RDHDR
! CRDY ,B. (S
DRIVE,B.CS
B.CS,aRLCS
#200,3RLCS
#200,3RLCS
;DONE?
1$
aRLCS, (R3)+
aRLMP, (R3) +
aRLMP, (R3) +
3RLMP, (R3) +
R1
;HAVE WE READ FORTY HEADERS
2%
:GO BACK UNTIL FOURTY DONE
#HDRBUF ,R3
;GET LIST OF HEADERS
#40. ,R1
;CHECK FORTY OF THEM
(R3) ,E.CS
E.CS
99%
#RHDMES
,RE STMS
(R3)+
(R3)+,E.MP
(R3)
+ E.MP1
(R3)+,E.MP2
R5.CHERR
;CHECK CONTROLLER FOR ERRORS
7%
(R3)+
(R3) ,BDDAT
;GET HEADER
FIRST
;IS THIS FIRST READ?
43
;NO, BRANCH
#1,FIRST
;SET FIRST READ DONE FLAG
EDDAT,GDDAT
;SET UP NEXT READ EXPECTED
63
;GO SEE IF [EST IS DONE
GDDAT
: INCREMENT EXP‘'D HEADER
BDDAT,GDDAT
;IS NEW HEADER SEQUENTIAL?
3
;YES THEN BRANCH
SECMSK ,BDDAT
;1S NEW HEADER ZERO?
3%
:NO, THEN ERROR GO REPORT IT

8iC
(MP
BEQ
BIC

CYLMSK , TEMP?
MXSEC1, TEMP2
3%
SECMSK,GDDAT

-MAX ADDRESS, IF SO BRANCH
:STORE NEW DATA AS OLD
JAND PERFORM NEW RD HDR
JEXPECTING ZERO SECTOR

(LR

FIRSY

ERRDF

38.,EM4L3,ERRZ

;ERROR WILL MAKE US MISS
JNEXT SECTOR SEQUENTIALLY
;START OVER. CLEAR FIRST FLAG

MOov

002340
002340

AN AR R AR AR AR R RN AR AR AN R R AT AR ARAR A ANRAAA R A ANNR

GDDAT, TEMP?

;YES,

CHECK IF LAST HEADER WAS

58:
005037

002360

SEQ 0086

D nd ad

d o

NN~

(AT, ST, N1, N 1,81, 8
URRYY
f o
o0
OO
SEERER
SOROREVRERITT

A
d

CZRLGBO RL11/RLVIT CTLR TST_ 1
CZRLGB.MAC
07-DEC~-79 07:39

021152
021154
021156
021160
021162
021162
021164
021170
021172
021174
021174
021174
021174

MACY11

104455

TRAP

000046
006077
010202

6%:

104406

062703
005301
001321

7%:
ENDTST

L10061:

.SBTTL

SEQ 0087

CSERDF

.WORD
.WORD
.WORD

38
EM43

TRAP

Cs$CLP

ADD
DEC
BNE

#6,R3
R1
99%

CKLOOP

000006

104401

17-DEC=79
14:01
PAGE 2-24
30A(1052)
«*TEST 33+« - CHECK CONSECUTIVE HEADERS

ERRZ2

JCHECK

/FL:LOE

cHAVE WE DONE

*#*«TEST

THIS ENOUGH

;NO, GO BACK DO IT AGAIN
;ax*xEND OF

TRAP

IS SET

TESTwwes

CSETST

34xx - SEEK FUNCTION

BGNTST
STARS

s**xxSTART OF

TESTwwwx

;;ttt*tttttttt*tttitfitttttiitt*titti'tttttttttt'ttttttttttttttttt

;CHECK THE SEEK FUNCTION RETURNS CONTROLLER READY
;WITH NO ERRORS.
WE ISSUE A ONE TRACK IN WORD SEEK.
WE DO NOT CHECK THE RESULT FOR POSITION

021176

STARS
s

021176
021204
021210
021212
021216
021224
021224
021230
021232
021236
021240
021244
021246
021252
021254
021260
021262
021262
021264
021270
021270
021270

012777
004537
000006
004537
012737

012727
000000
013727

000205
013414

014246
000010

000372

AR A AR AN AR AR AN AR AR

161050

002406

002116

002406
104406
004537

2%:

013114

104401

.SBTTL

021272

:égggf FUNCTION OF

JSR
MOV
DELAY
MoV
.WORD

RS ,WTCRDY
#8. ,DLYCNT
#250.
#n250.,(PC)+
0
LSDLY, (PC)+
0
-6(PC)
.4
<22(PC)
.~20

;WAIT FOR CONTROLLER READY HIGH
JINITIALIZE DELAY COUNT
; IMPLEMENT TIME DELAY

DEC
BNE
(KLOOP
TRAP
JSR

DLYCNT
WAIT1
($CLPI

RS, CHERR

ENDTST

L10062:

BONTST

RARN

R5,LDFUNC

.WORD
DEC
BNE
DEC
BNE

177756

AR RN

#BIT7!MK!SIGN,BRLDA

MOV

177772

AN AAANNRNANNARRRRARR

MOV

gg?K

WAIT1:

R A AR A AR

;SET UP DA-DIFF=1,MARKER, TOWARDS

;DECREMENT DELAY COUNT
sBRANCH IF DELAY NOT EXPIRED
;CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;exsEND OF

TRAP
*«TEST

FOLLOWING WORD

TESTwawe

CSETST
35+« - CHECK DRIVE READY ON SEEK

;oxeaSTART OF

TESTaass

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

MACY1T

021272

30A(1052)

17-DEC-79

14:01

*«TEST 35+~ - CHECK DRIVE

7
PAGE 2-25

SEQ 0088

READY ON SEEK

STARS
:;titttttttt*tfitfifiifit'tttt"tt*t'fifitlttittttttttttttitttttttttttt

;CHECK THE SEEK FUNCTION RETURNS DRIVE READY WITH
;NO ERRORS.
WE ISSUE A ONE TRACK INWARD SEEK.
WE DO

g?fi;SCHECK THE RESULT FOR POSITION

021272

:;it'tttitlfitttitttitttfittttttQtitttitttttttttttttt'tttfitttttt*tt

021272
021300
021304
021306
021312
021312

012777
004537
000006
004537

021314
021320
021320

004537

021322
021326
021326

004537

021330

004537

021334
021334
021334

000201
013414

160754

MOV
éé?

014246

JSR

#BIT7 .MK,dRLDA
R5,LDFUNC
K

(KLOOP
TRAP

104406

013114

JSR

CKLOOP
TRAP

104406

014160

JSR

CKLOOP
TRAP

104406

013114

JSR

RS ,WTCRDY
C$CLP

R5,CHERR
C$CLPT

R5,WTDRDY
C$CLP

RS, CHERR

ENDTST

L10063:

104401

;SET DA, MARKER, DIFF=1,
:égggf FUNCTION OF FOLLOWING WORD
:

;WAIT FOR CONTROLLER READY HIGH
JCHECK

/FL:LOE

;CHECK CONTROLLER FNR ERRCRS

sCHECK

/FL:LOE

JCHECK

/FL:LOE

IS SET

;CHECK CONTROLLER FOR ERRORS
TESTwanxx

CSETST

LSBTTL

*«TEST 36%* - SEEK FUNCTION INTERRUPT

021336

BGNTST

:axxxSTART OF

021336

STARS
AR AR

IS SET

;WAIT FOR DRIVE READY

;axxxEND OF
TRAP

IS SET

TESTxxxx

AR A A A A AR AN R AR R R AR RN AR R AN AR RN ANRANRNRN RN AR AARANRRRNRRARANR NN

;CHECK THAT CONTROLLER READY RESETTING WHEN THE SEEK IS
JINITIATED CAUSES AN INTERRUPT BUT DRIVE READY WILL

g?R;é

021336

WE ALSO MONITOR FOR ANY ERROR BITS SETTING.

;;fittt*tt*tttt**tttfitttttttt*ttittfittttttittttttttitttttt*'ttlttt

021336
021342
021342
021346
021350
021356

005037

002322

012700
104441
012777
004537

000000

000205
013414

160676

CLR
SETPR]1
MOV
TRAP
MOV

JSR

INTFLG
#PR]0O
#PR100,RO

;SET PSW TO O

(C$SPRI

#BIT7!MK!SIGN,aRLDA
;SET UP RLDA
R5,LDFUNC
;ISSUE FUNCTION OF

FOLLOWING WORD

CZRLGBO RLT1/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC~-79 07:39

000106
004537
000240
005737
001004

MACY11

014246

002322

021410
021410

2%:

004537

021420

005037

002322

021424
021430
021430

004537

014160

021432

021436
021440
021444
021446
021446
021450
021452
021454
021456
021456

021460
021460
021460

104406

.WORD
.WORD
.WORD

40
EM47
ERRO

CKLOOP
TRAP

5%:

000340

002322

C$ERDF

RS5,CHERR
cscLPl

RS ,WTDRDY

TRAP

cscLeP

;WAIT FOR DRIVE READY
sCHECK IF /FL:LOE IS SET

SETPRI

#PRIO7

ERRDF
TRAP

.WORD
.WORD
.WORD

CKLOOP
TRAP

.SBTTL

021462

BGNTST

021462

STARS
S

LSRR

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

JSR
CKLOOP

#PR107,RO
C$SPRI
INTFLG

;DID DRIVE READY CAUSE INTERRUPT
sNO, CONTINUE

42. ,EMS52,ERRO
CSERDF

42
EMS52
ERRO

C$CLPT

ENDTST
104401

;CHECK IF /FL:LOE IS SET

CS$CLPT

:CLEAR INTERRUPT OCCURANCE

TST

L10064:

*YES. GO CHECK DRDY

INTFLG

BEQ

6%:

sSEEK AND INTR. ENA.

CLR

MOV
TRAP

104455
000052
006350

010152

‘DID INTERRUPT OCCUR

INTFLG

2%
40.,EM47,ERRO

JSR

104406

012700
104441
005737
001404

TST

BNE
ERRDF

CKLOOP
TRAP

013114

021412
021416
021416

021432

;WAIT FOR CONTROLLER READY HIGH

TRAP

104406

SEQ 0089

K
! INTEN
SEE
R5,WTCRDY
JSR

NOP

1%:

104455

000050
006317
010152

17-DEC=79
14:01
PAGE 2-26
30A(1052)
**TEST 36*% - SEEK FUNCTION INTERRUPT

;CHECK IF /FL:LOE IS SET
;axxEND OF

TRAP

TEST#*wes

CSETST

xxTEST 37%x -

TEST DIFFERENCE WORD TRANSMISSION
sxxxxSTART OF

TESTxxxx

S2S0ER0 02000 RRRRRERRRR2RR028R22002
22022
222 221

;VERIFY THAT THE DIFFERENCE WORD LOADS AND IS
s TRANSMITTED CORRECTLY.
WE WILL ISSUE SEEKS WITH THE

;DIFFERENCE WORD CONTAINING ALL OF THE BIT PATTERNS FLOATING 1,

CZRLGBO RL11/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

MACY11

m 7
14:01
30A(1052)
17-DEC~79
PAGE 2-27
*«TEST 37+« - TEST DIFFERENCE WORD TRANSMISSION

SEQ 0090

THE SEEK WILL
;GROWING 1, GROWING O AND SHITING O.
;START FROM TRACK O EACH TIME AND WILL RETURN THERE

sEACH,

THUS BOTH DIRECTIONS FOR PATTERNS WILL BE CHECKED.

:"EAD HEADERS ARE USED TO VERIFY THE

;ERRORS ARE MONITORED AND REPORTED.

021462

SEEK CORRECTNESS.

STARS

""tttfittfitttttkfi'titttt"ittttfi'*ttt.tttttttttttfi*ttttttt*ttttttt

021462
021466
021466
021470
021470
021474
021476
021502
021502

012703

002620

BGNSEG

104404

004537

1$:

013414

002537 014246

021504
021510
021510

004537

021512
021520
021526

013737
043737
001462

104400

002356
002356
;NOT ON

;ON ZERO

021530
021536
021544
021552
021556

021560
021564
021564

042737
013777
052777
004537
000006
004537

000100
002356
000001
013414

002356

004537

021574
021600
021600

004537

014246

021602

004537

013114

104406

014160

104406

89%:

013114

104406

021610
021614
021616
021622
021622

004537

013414

014246

C$BSEG

JSR

RS .,LDFUNC

C$CLPT

JSR
CKLOOP

R5,CHERR

TRAP

CSCLPY

MOV
BIC
REQ

E.MP,BDDAT
SECMSK ,BDDAT
99%

JGET LIST OF DIFFERENCE WORDS
;axxxSTART OF SEGMENTwxux
s ISSUE FUNCTION OF FOLLOWING WCRD
;READ HEADER
;WAIT FOR CONTROLLER READY HIGH

sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
;READ HEADER
;CLEAR OUT SECTOR
;IF ON TRACK ZERO, H.S. ZERO, OK

(RACK ZERO CALCULATE DIFFERENCE WORD AND PUT
#RHHS ,BDDAT

BDDAT ,aRLDA

#MK
, aRLDA

R5,LDFUNC

R5,WTCRDY

cscLPl

JSR
(KLOOP
TRAP

RS, CHERR

JSR

RS ,WTDRDY

TRAP

C$CLP

JSR
CKLOOP

R5,CHERR

TRAP

C$CLPT

JSR

RS,LDFUNC

JSR
ckLOoP

R5,WTCRDY

CKLOOP

RDHDR

96%:

R5,WTCRDY

TRAP

BIC
MOV
BIS
JSR
SEEK
JSR
CKLOOP
TRAP

160510
160502

104406

021566
021572
021572

TRAP

CKLOOP

013114

002310
002326

#SKLST,R3

RDHDR
JSR

98$%:

104406

MOV

TRAP

C$CLP

C$CLPT

IT BA(CK

;CLEAR OUT HEAD SELECT
;PUT CYLINDER AS DIFFERENCE WORD
:SET MARKER BIT
:égggf FUNCTION OF FOLLOWING WORD
;WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET
;WAIT FOR DRIVE READY

sCHECK IF /FL:LOE 1S SET
;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET
s ISSUE FUNCTION OF FOLLOWING WORD
JREAD HEADER
;JWAIT FOR CONTROLLER READY HIGH

sCHECK IF /FL:LOE IS SET

CZRLGBO RLT11/RLVIT1 CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

021624
021630
021630

004537

021632
021636
021644
021652

005037
013737
013737
043737

021660

021662
021662
021664
021666
021670
021672
021672

013114

002354
002356

001404

CKLOOP
TRAP

002370
002356
002356

5%:

104406

021722

004537

160354

000005
013414

160346

99% :

ERRDF

43.,EM54,ERR3

.WORD
.WORD
.WORD
CKLOOP

43
EM54
ERR3

TRAP

cscLP

MOV
BIS

(R3) ,aRLDA
#SIGN
MK ,3RLDA

R5,LDFUNC

;GET DIFFERENCE WORD
;SET SIGN (TOWARDS SPINDLE) AND MARKER
:ééggf FUNCTION OF FOLLOWING WORD

RS ,WTCRDY

*WAIT FOR CONTROLLER READY HIGH

JSR

SEEK

014246

JSR

CKLOOP
TRAP

104406

013114

JSR

CKLOOP
TRAP

104406

021730
021734
021734

004537

021736
021742
021742

004537

021744
021750

004537
000010

013414

021752
021756
021756

004537

014246

021760
021764
021764
021766

004537

021770

011337
011337
013737
043737
023737

014160

87%:

104406

013114

000106

002354
002370
002310
002326
002354

002356
002356
002356

RS, CHERR
csCLP

;CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

cscLP

JSR

R5,CHERR

TRAP

cs$CLP

JSR

RS5,LDFUNC

sISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER

JSR

RS ,WTCRDY

sWAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

C$CLPT

JSR

RS, CHERR

.WORD

10000%-.

ESCAPE
TRAP

104410

C$CLP

;CHECK IF /FL:LOE IS SET

TRAP

CKLOOP
TRAP

013114

C$ERDF

R5,WTDRDY

RDHDR

104406

E.MP BDDAT
SECMSK ,BDDAT
5%

;CLEAR EXPECTED
;SAVE DIFFERENCE WORD
;READ HEADER
sMASK OUT SECTOR BITS
;BRANCH IF ON ZERO TRACK

JSR
CKLOOP

CKLOOP

104406

C$CLPY

;CHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

GDDAT
BDDAT ,DWORD

TRAP

000053
006420
010244

R5,CHERR

CLR
MoV

MOV
BIC
BEQ

104455

011377
052777
004537
000006
004537

022014

JSR

104406

021674
021700
021706
021712
021714
021720
021720
021726
021726

N
7
PAGE 2-28
MACYT 30A(1052) _ 17-DEC-79
14:01
*«TEST 37+% - TEST DIFFERENCE WORD TRANSMISSION

MOV
MOV

MOV
BIC
(MP

SEG
CSESCAPE

(R3) ,GDDAT
(R3) ,DWORD

E.MP_BDDAT
SECMSK ,BDDAT
GDDAT ,BDDAT

;WAIT FOR DRIVE READY

;JCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;1F

/FL:LOE SET LOOP, ELSE EXIT SEG

;GET EXPECTED CYLINDER
;JSET UP DIFFERENCE FOR SEEK
;READ HEADER FROM RLMP

;CLEAR OUT SECTOR BITS
;DID SEEK GO TO THE RIGHT

SEQ 0091

CZRLGBO RL11/RLVIT1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

2600
2401
2402
4)
(5)
()
(5)

022022

2413
2414
2415

2416
2417
2418
(3)
(3)

2419

0014604

8EQ

022024

SEQ 0092

sTRACK, IF SO, GO GET NEXT

9s
44, ,EMS4 ,ERR3
CSERDF

EMS4

010244

2403
2604
2405
2406
2407
2408
2409
2410
2611
24612

17-DEC=79 14:01
PAGE 2-29
MACY11 30A(1052)
*2TEST 37+« - TEST DIFFERENCE WORD TRANSMISSION

104406

005723

002400

(R3)+

000001

T.DRIVE .M

2%:

002762

;BUMP PATTERN

2%
R3 ,#SKEND
108
18

021470

020327
001402
000137

;CHECK IF /FL:LOE IS SET

CSCLP

002720

022054

022070

ERR3

9%:

R3 ,#SKEEND
108

021470

022074

10%:

022074
022074
022074
022076
022076
022076

ENDSEG

100008:

104405

ENDTST
L10065:

104401

.SBTTL

;%xx*END OF SEGMENT*#
TRAP

TRAP

CSESEG

;e%xxEND OF

TESTwesx

CSETST

*«TEST 38+« - VERIFY HEAD SELECT O VIA RD HDR

022100

BGNTST

022100

STARS

022100

:CHECK THAT WE CAN SELECT HEAD SELECT ZERO.
ISSUE
:SEEK TO HEAD SELECT O AND VERIFY WITH READ HEADER.
STARS

s*xxxSTART OF

SRR AR AR AN A ARAR

PR ALEASAS

022100
022106

022112
022112
022116
022120
022124
022124
022126
022132

012777
005037

000001
002354

004537
000006
004537

013414
014246

104406

004537

013114

160146

99%:

2%:

AN R

TESTxxwx

A AT AR AR A AANARAARRARARARRRANRNAARNARAAARNNNRARRAAS

ettt

adt

ottt ittt

dadiiids

sl ssissssssssds

MOV
CLR

%A?RLDA

;SET MARKER IN RLDA
;SET EXPECTED
;LOAD HS=0 INTO RLDA

JSR
SEEK
JSR
CKLOOP

RS, LDFUNC

éggUE FUNCTION OF FOLLOWING WORD

R5,WTCRDY

WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

TRAP

C$CLP

JSR
CKLOOP

RS5,CHERR

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

CZRLGBO RL11/RLV11
CZRLGB.MAC

(3)
2444

24645
2446
(3)
2447
2448
2449
(3)

2450

2451
2452

2453
24,54
(3)

CTLR TST 1

07-DEC-79 07:39

022132

104406

022134
022140
022140

004537

022142
022146
022146

004537

022150
022154
022156
022162
022162

004537

022164
022170
022170
022172

004537

022174

013737
042737
023737
001404

022202
022210
022216

022220
022220
022222
022224
022226
022230
022230
022230
022230

MACY11 30A(1052)

17-DEC-79

8
PAGE 2-30

««TEST 38+*x ~ VERIFY HEAD SELECT O VIA RD HDR

014160

89%:

104406

013114

TRAP

C$CLP1

JSR
CKLOOP

RS ,WTDRDY

TRAP

cs$cLP

JSR

R5,CHERR

CKLOOP
TRAP

104406

013414

004537 014246

96$:

013114

JSR

RS ,WTCRDY

;WAIT FOR CONTROLLER READY HIGH

CKLOOP
TRAP

RS5,CHERR

TRAP

CSESCAPE

002356

MOV

002354

002356

cMP
BEQ

5%:

L10066-.

E.MP BDDAT

JREAD HEADER FOR HEAD SELECT

GDDAT ,BDDAT
5%

s COMPARE HEAD SELECTS
;IF EQUAL CONTINUE

ERRDF

45.,EM55,ERR4

LMWORD
.WORD

45
EMSS

104401

.SBTTL

;MASK ONLY HEAD SELECT

CSERDF

ERR4G

ENDTST

L10066:

sCHECK IF /FL:LOE IS SET

;IF /FL:LOE SET LOOP, ELSE EXIT TST

#177677 ,BDDAT

.WORD

JREAD HEADER

sCHECK CONTROLLER FOR ERRORS

TST

BIC

TRAP

010316

C$CLP

JSR

002310

002356

CSCLPT

;ISSUE FUNCTION OF FOLLOWING WORD

.WORD

000036

;CHECK CONTROLLER FOR ERRORS

sCHECK IF /FL:LOE IS SET

R5,LDFUNC

ESCAPE

104410

;WAIT FOR DRIVE READY
JCHECK IF /FL:LOE IS SET

JSR

RDHDR

104406

177677

14:01

JaxsxEND OF
TRAP

TESTerxe

CSETST

««TEST 39%x - VERIFY HEAD SELECT 1

VIA RD HDR

sxxxxSTART OF TESTwnwx

022232

BGNTST

022232

?:tttttttttttttttttttitttttttttttttttttfitttitttttittttttttttttttt

TARS

;CHECK THAT WE CAN SELECT HEAD SELECT ONE.

022232

022232
022240
022246
022252
022254

[SSUE

g?igg TO HEAD SELECT 1 AND VERIFY WITH READ HEADER.
SIRARRARAR AR

012777
052777
004537
000006
004537

000001
000020
013414
014246

160014
160006

AN AR RN AR

RN A RA RN AR RN AR RAARARRAAARARAARRCANRRARAAR
AR

998 :

MOV

#MK ,3RLDA

sSET MARKER IN RLDA

2s:

é??K

RS.,LDFUNC

:égggf FUNCTION OF FOLLOWING WORD

8IS

JSR

#DAHS ,aRLDA

R5,WTCRDY

sLOAD HS=1

INTO RLDA

:WAIT FOR CONTROLLER READY HIGH

SEQ 0093

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
2486

022260
022260

104406

2488
2489
(3)
2490
24N
2492
(3)

022262

004537

(3)
2487

2493
2494
2495

013114

022270
022274
022274

004537

022276

004537

014160

89%:

104406

013114

104406

2497
2498

004537

013414

004537 014246

022316

104406

022320
022324
022324
022326

004537

022330
022336
022344
022352
022360

013737
042737
012737
023737
001404

022362

022370
022372
022372
022372
022372

JSR

RS, CHERR

TRAP

C$CLPY

JSR
CKLOOP

RS ,WTDRDY

TRAP

C$CLP

JSR
CKLOOP

RS, CHERR

TRAP

C$CLPT

JSR

R5,LDFUNC

sISSUE FUNCTION OF FOLLOWING WORD

JSR

R5,WTCRDY

;WAIT FOR CONTROLLER READY HIGH

CKLOOP
TRAP

104410

002310
177677
000100
002354

002356
002356

.WORD

L10067-.

104401

.SBTTL

022374

BGNTST

022374

STARS

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

sREAD HEADER

;CHECK IF /FL:LOE

E.MP,BDDAT

JREAD HEADER

;MASK FOR H.S.
JSET EXPECTED

8eQ

;YES,

GDDAT ,BDCAT

ERRDF

46.,EM55,ERRS

WORD
.WORD

46
EMSS

.WORD

s CORRECT HEAD

CONTINUE

CSERDF

ERR4

sexnxEND OF
TRAP

IS SET

sCHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT TST

CSESCAPE

ENDTST

L10067:

;WAIT FOR DRIVE CLEAR
;CHECK IF /FL:LOE IS SET

#177677 ,BDDAT
H#RHHS ,GDDAT

TRAP

5%:

sCHECK IF /FL:LOE IS SET

8IC
MOV
MP

IS SET

sCHECK CONTROLLER FOR ERRORS

cscLm

?ngHERR

MOV

002354
002356

;CHECK IF /FL:LOE

JSR
ESCAPE
TRAP

000044

104455
000056
006457
010316

CSCLP

RDHDR

013114

SEQ 0094

CKLOOP
TRAP

CKLOOP

104406

(3)
2496

2499
2500
(3
2501
2502
2503
(3)
(3)

D 8
MACY11 30A(1052)
17-DEC-79 14:01
PAGE 2-31
*xTEST 39+« -~ VERIFY HEAD SELECT 1 VIA RD HDR

TESTRw2x

CSETST

««TEST 40x~ - VERIFY HEAD SELECT O VIA GET STATUS

RN AR

axxxSTART OF

R AR R AR R AR AR

AN R

TESTeanx

RN R AN RN A NRARRANNRARRRNNR AN NN

AN AR

;CHECK THAT WE CAN READ BACK HEAD SELECT O WITH
;A GET STATUS FUNCTION.
SELECT H.S. O WITH A SEEK

022374

§¥ER§FY WITH GET STATUS

:;t*tfitttttttfittttt'tttttttttttttiitttitttttttit'titttttttttttttt

CZRLGBO RL11/RLV1IT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

2527
2528
2529
2530
2531

022374

012777

000001

022402
022406
022412
0226414
022420
0226420

005037
004537
000006
004537

002354
013414

022422
022426
022426

004537

022430
022434
022434

004537

022436
022442
022442

004537

022444
022452
022456
022460
022464
022464

012777
004537

022466
022472
022472
022474

004537

022476
022504
022512
022520

013737
042737
023737
001404

022522
022522
022524
022526
022530
022532

104455
000057
006512
010316

022532
022532
022532

MACY11
157652

2%:
3s:

014246

104406

013114

104406

014160

104406

013114

104406

000003
013414

157602

013114

104410

000036

002354

#MK,3RLDA

CLR
JSR

GDDAT
RS, LDFUNC

SEEK
JSR
CKLOOP

002356
002356
00235+

6%:

RS ,WTCRDY

L10070:

LSBTTL

022534

BGNTST

022534

STARS

;SET MARKER

;LOAD HS=0 INTO RLDA

JSET UP EXP'D
;géggf FUNCTION OF FOLLOWING WORD

:WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

JSR
CKLOOP

R5,CHERR

TRAP

C$CLP

JSR
CKLOOP

R5,WTDRDY

TRAP

cscLP

JSR
(KLOOP

R5,CHERR

TRAP

cscLP

MOV

#GSBIT!MK,aRLDA ;SET UP FOR GET

R5,LDFUNC

R5,WTCRDY

CS$CLPT

JSR
ESCAPE

R5,CHERR

TRAP
.WORD

CSESCAPE
L10070-.

MOV
BIC
cMP
8EQ

E.MP,BDDAT
#177677 ,BDDAT
GDDAT ,BDDAT
6%

ERRDF

47. ,EM56,ERRS
CSERDF
47
EMS6
ERR4

TRAP
.WORD
.WORD
.WORD

1ST

;CHECK CONTROLLER FOR ERRORS

sCHECK IF /FL:LOE IS SET
;WAIT FOR DRIVE READY

;CHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS

;CHECK IF /FL:LOE IS SET
STATUS

sISSUE FUNCTION OF

;GET STATUS

IN DA

FOLLOWING WORD

;WAIT FOR CONTROLLER READY HIGH

sCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
sIF

/FL:LOE SET LOOP,

ELSE EXIT TST

;READ STATUS FOR HEAD SELECT BIT
;LEAVE ONLY H.S. BIT
;IS HEAD SELECT CORRECT?
JYES, CONTINUE

sexxsEND OF
TRAP

SEQ 0095

IN RLDA

C$CLPI

ENDTST
104401

TRAP

CKLOOP
TRAP

104406

177677

MoV

JSR
GSTAT
JSR

004537 014246

002310

17-DEC-79
14:01
PAGE 2-32
*«TEST 4O*« ~ VERIFY HEAD SELECT O VIA GET STATUS

30A(1052)

TESTwwxx

CSETST

««TEST 41+« - VERIFY HEAD SELECT 1

VIA GET STATUS

sxxwxSTART OF

TESTrwne

";ttttt'ttttttttttttttt'tttit.tt.tt.fitttttt.'..ltit'itit'l'fi.tttt

CZRLGBO RL11/RLV1T (TLR
CZRLGB.MAC
07-DEC~79

MACYT

F
8
17-DEC-79
14:01
PAGE 2-33
*«TEST 41+« - VERIFY HEAD SELECT 1 VIA GET STATUS

30A(1052)

sCHECK THAT WE CAN READ BACK HEAD SELECT 1 WITH A GET
SELECT H.S. 1 WITH A SEEK AND VERIFIY WITH
sSTATUS FUNCTION.
.GET STATUS

022534

STARS
SRR

022534
022542
022550
022556
022562
022564
022570
022570

012777
052777
012737
004537
000006
004537

022572
022576
022576

004537

022600
022604
022604

004537

022606
022612
022612

004537

022614
022622
022626
022630
022634
022634
022636

012777
004537

157512
157504

002354

2s:
3%:

014246

013114

104406

014160

104406

013114

104406

000004
004537

000003
013414

157432

014246

022650
022656
022664
022672

013737
042737
023737
001404

013114

104410

MOV
JSR

SEEK
JSR
CKLOOP

002310

177677

002354

002356
002356
002356

#MK, BRLDA
#DAHS ,aRLDA

;SET MARKER IN RLDA
;LOAD HS=1 INTO RLDA

;SET UP EXP'D
:égggf FUNCTION OF FOLLOWING WORD

R5 ,WTCRDY

JWAIT FOR CONTROLLER READY HIGH

R5,WTDRDY

TRAP

C$CLPT

JSR
CKLOOP

RS, CHERR

Cs$cLP

TRAP

C$CLPY

MOV
JSR
GSTAT

RS5.LDFUNC

#GSBIT!MK,aRLDA

RS ,WTCRDY
TST

CSESCAPE
L10071-.

JSR
ESCAPE

R5,CHERR

.WORD

L10071~.

MOV
8I1C

E.MP BDDAT
#177677 ,BDDAT

TST

CSESCAPE

ggDAT.BDDAT

;sCHECK IF /FL:LOE 1S SET

;CHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
;WAIT FOR DRIVE READY

;sCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE 1S SET

;SET UP FOR GET STATUS IN DA
;ISSUE FUNCTION OF FOLLOWING WORD
;GET STATUS
JWAIT

sIF

FOR CONTROLLER READY HIGH

/FL:LOE SET LOOP,

;READ

STATUS FOR HEAD

EMS6
ERR4

CSETST

SELECT BIT

JLEAVE ONLY H.S. BIT
;1S HEAD SELECT CORRECT?
JYES, CONTINUE

;exxxEND OF
TRAP

ELSE EXIT TST

;CHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT TST

48. EMSE,ERR4
CSERDF
48

ENDTST

104401

RARRAR AT RN AR AA

#STHS,GDDAT

JSR
(KLOOP

.WORD
.WORD
.WORD

RN A AR T AN

R5,LDFUNC

R5,CHERR

TRAP

L10071:

AN AN AR AR A RN R AN RN A AN

JSR
CKLOOP
TRAP

ERRDF

6%:

C$CLPT

BEQ

104455
000060
006512

AR AR

TRAP

000036

010316

1 01Y)
BIS

JSR
ESCAPE
TRAP
.WORD

104410
000046

004537

022704
022704
022704

000001
000020
000100
013414

AR RARAN AR

104406

022640
022644
022644
022646

022674
022674
022676
022700
022702
022704

SEQ 0096

TESTwexs

CZRLGBO RLI1/RLVIT CTL R TST 1
CZRLGB.MAC
07-DEC~7 9 07:39

2610
261
2612
2613
2614
2615
2616
2617
(2)
2618

MACY11

30A(1052)

17-DEC~79

14:01

PAGE 2-34
««TEST 41+« - VERIFY HEAD SELECT 1 VIA GET STATUS

.SBTTL

022706

BGNTST

022706

STARS

**TEST 42+« - TEST

TIME AT WHICH DIF WD GETS TRANSMITTED
saexxSTART

SRR RAAR R AR A AR AR

AN AN

SEQ 0097

TESTawxn

RN RN AR AARARAARARAA AR

RN AR

IVERIFY THAT THE DIFFERENCE WORD ON A SEEK IS

sTRANSMITTED PRIOR TO CONTROLLER READY SETTING.

ANR RS

THIS

:1S DONE BY SETTING A KNOWN DIFFERENCE WORD IN
sTHE RLDA ISSUING A A SEEK, WAITING FOR CONTROLLER READY

; (BUT NOT DRIVE READY), WRITING A DIFFERENT RLDA AND WAITING
THE RESULTANT POSITION SHOULD BE THAT
;FOR DRIVE READY.
.OF THE FIRST RLDA ONLY.

022706

STARS

e R AN AR AR AR AR AR AN AR AR AR AR R AR ARAAAAARANARNRAARARNANRNARANARRAARRARN

022706
022712
022714
022720
022720

004537
000010
004537

022722
022726

004537

022726

104406

022730
022736
022744
022752
022760
022762
022770
022776
023004
023012

013737
043737
012777
032737
001403
052777
013737

014246

99%:

104406

042737
023727
001034
023737

101007
052777
063737
000403
163737

053777
012737
032777
001037
(52737

023122

013414

013114

002310
002326
000001
000100

002354
002354
157302
002354

000020
002354
000100
002400

157264

002346
002346
00C001

002346

002676

000004
002674

002354

2%:

JSR
RDHDR
JSR
CKLOOP

R5,LOFUNC

TRAP

cscLP

JSR
CKLOOP
TRAP

R5,CHEP®

MOV
BIC
MOV
BIT

t.MP,GDDAT
SECMSK ,GDDAT

MOV

R5,WTCRDY

csCcLP

#MK
, aRLDA
HRHHS ,GDDAT

#DAHS ,aRLDA

GDDAT
, TMPO

#RH
,HS
TMPQ
T.DRIVE
M

128
TMPO ,HALMAX
3s

157222

#SIGN,aRLDA
2¥AMAX.GDDAT

002674
002674
000001
000020

002354
157176
002350
157162

QUAMAX
, GDDAT
QUAMAX ,aRLDA
MK, TMP
ggAHS.aRLDA

000020

002350

ggAHS,TMP1

002346

002726

000004
002724

157132
002354

3%:

12%:

SUB

(MP

TMPO, HMAX
138

#SIGN,aRLDA
QMAX ,GDDAT

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
sCHECK

/FL:LOE

IS SET

;READ HEADER

;CLEAR SECTOR BITS
:SET MARKER IN RLDA

JTEST H.S.

;1F _ZERO, CONTINUE
;ONE, SET SO WE WILL REMAIN THERE
;STORE HEADER
sCLEAR H.S. FROM STORED WORD

MACY11

H 8
30A(1052)
17-DEC-79
14:01
PAGE 2-35
*#TEST 42+% - TEST TIME AT WHICH DIF WD GETS TRANSMITTED

002724
002724
000001
000020

002354

13%:

000020
013414

002350

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
(3)
2673
2674
2675
2676
(3)

2677
2678
2679
2680

(3)
2681
2682
2683
(3)
2684
2685
2686
(3)
2687
2688
2689
2690
(3
2691
2692
2693
2694
2695
(3)
2696
2697
2698
(3)
(3)
2699
2700
2701

2702
2703
2704
2705
4)

(5)
(5)

023130
023132
023140
023146
023154
023162
023164
023172
023176
023200
023204

000403
163737
053777
012737
032777

023206
023212
023212

004537

023214
023222
023226
023226

013777
004537

023230
023234
023234

004537

023236
023242
023242

004537

023244
023250
023250

004537

023252
023256
023260
023264
023264

004537
000010
004537

023266
023272
023272
023274

004537

023276
023304
023312
023320

013737
043737
023737
001404

157106

002350

14%:

157072

5%:

023204

023322
023322
023324
023326

013114

104406
157032

104406

013114

104406

014160

8%:

104406

013114

104406

013414
014246

104406

013114

104410
000036

1064455

000062
006551

SUB

BIS

MOV

8IT
BNE

014246

002350
014246

BIS

JSR

SEEK
JSR
CKLOOP

002356
002356
002356

#DAHS
, TMP1
R5,LDFUNC

R5,WTCRDY

TRAP

C$CLPT

JSR
CKLOOP

RS ,CHERR

TRAP

cscLP

MOV
JSR
CKLOOP
TRAP

TMP1 ,3RLDA
R5,WTCRDY

JSR
CKLOOP

R5,CHERR

TRAP

Cs$CLP

JSR

R5,WTDRDY

TRAP

cscLP

JSR
CKLOOP

R5,CHERR

TRAP

CS$CLPT

JSR
RDHDR

R5,LDFUNC

CKLOOP

CSCLP

JSR
CKLOOP

R5,WTCRDY

TRAP

Cs$CLP

JSR
ESCAPE

?ngHERR

TRAP

C$ESCAPE
L10072~.

MoV
BIC
CMP

E.MP_BDDAT
SECMSK ,BDDAT
GDDAT ,BDDAT
108

ERRDF

50. ,EM57 ERRS
CSERDF
50
EMS7

.WORD

002310
002326
002354

149%
QMAX, GDDAT
QMAX
, aRL DA
MK, TMP1
ggAHS,BRLDA

BEQ

TRAP

.WORD
.WORD

;égguf FUNCTION OF

FOLLOWING WORD

JWAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

;SEND IN NEW DIFFERENCE WORD
JWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET
;WAIT FOR DRIVE READY

;CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
;IF

/FL:LOE SET LOOP, ELSE EXIT TST

JREAD HEADER

;CLEAR SECTOR ADDRESS
;IS HEADER CORRECT?
s IF SO BRANCH

SEQ 0098

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
(5)
2706

2707
2708
(3)
(3)
2709
2710
2711
2712
2713
2714
(2)
2715
2716
2717
2718
2719
(2)

2720
2721
2722
2723
(3)
2724
2725
2726
2727
2728

023330
023332
023332
023332
023332

010316

L10072:

JSBTTL
023334
023334

TESTweax

senxxEND OF
TRAP

SEQ 0099

ERR4

CSETST

*«TEST 43%« - EXTENSIVE CHECK OF HEADER CRC

BGNTST
STARS

;#**xSTART OF

TEST#ews

':tttttittfittttifiitt'fiitttfi*tttitfitttttt'tttttttttifi*ttfittttt*Qtt

sMORE EXTENSIVE CHECK OF HEADER CRC.

WE WILL SEEK

;PLATTER USING

;AND READ HEADERS VERIFYING HDR CRC ACROSS
THE

GROWING O,

GROWING

.GROWING O PATTERNS FOR TRACK ADDRESSES.

023334

THE

SHIFTING O AND

STARS
PR AE

(3)

004537

(3)

023356
023362
023362
023364
023372
023400

013737
043737
001461

002620

BGNSEG

104404

004537

013414

004357 014246

98%:

104406

013114

104406

002310
002326

002356
002356

ALA

RSl

ittt

MOV

#SKLST,R3

TRAP

($BSEG

JSR

RS, LDFUNC

JSR
CKLOOP

RS, WTCRDY

TRAP

CS$CLPT

JSR
CKLOOP

RS, CHERR

TRAP

(S$CLP1

MOV
BIC

E.MP,BDDAT
SECMSK,BDDAT

RDHDR

BEQ

adi ittt asissiiislisssssssyd]

:GET LIST OF DIFFERENCE WURDS
TaxxxSTART OF

SEGMENT %%+

. SSUE FUNCTION OF FOLLOWING WORD

*READ HEADER

“WAIT FOR CONTROLLER READY HIGH
SCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
“CHECK IF /FL:LOE IS SET
:READ HEADER
:CLEAR OUT SECTOR

*IF ON TRACK ZERO, H.S.

ZERO, OK

:NOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK
*ON ZERO.
042737
013777
052777
004537
000006
004537

(3)

2747
2748
2749
(3)
2750
2751

.WORD

10%:

1046401

012703

2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746

17-DEC-79
30A(1052)
14:01
PAGE 2-36
*«TEST 42+% - TEST TIME AT WHICH DIF WD GETS TRANSMITTED

ENDTST

023334
023340
023340
023342
023342
023346
023350
023354
023354

2729
2730
2731

MACY11

000100

002356
000001
013414

014246

104406

004537

013114

104406

023446

004537

014160

002556
156636
156630

BIC
MOV
BIS
é??x

#RHHS ,BDDAT
8DDAT . aRLDA

MK, aRLDA
RS, DFUNC

:CLEAR OUT HEAD SELECT
*PUT CYLINDER AS DIFFERENCE WORD
*SET MARKER BIT
:gggge FUNCTION OF FOLLOWING WORD

JSR

RS ,WTCRDY

“WAIT FOR CONTROLLER READY HIGH

TRAP

C$CLPI

JSR

RS, CHERR

TRAP

CS$CLP1

JSR

RS, WTDRDY

CKLOOP

*CHECK

/FL:LOE

IS SET

;CHECK CONTROLLER FOR ERRORS
“CHECK

/FL:LOE

IS SET

:WAIT FOR DRIVE READY

CZRLGBO RL11/RLV1IT CTLR TST 1
CZRLGB -MA(C
07-DEC-79 07:39

2752
(3)

2753
2754
2755
(3)
2756
2757
2758
2759
2760
2761
(3)
2762

2763

2764
(3)
2765
2766
2767
2768
2769
2770
2771
2772
(4)
5)
(5)

(S)

2773
(3)

2774
2775
2776
2777
2778
2779
2780
(3)
2781
2782

023452
023452

023454
023460
023460

MACY11

89%.

104406

004537

013114

104406

004537
000010
004537

013414

023476
023502

004537

023502

104406

023504
023510
023516
023524
023532

005037

013737
013737
043737

014246

96%:

001404

013114

002354
002356
002310
002326

004537

156502
000005
013414

014246

013114

104406

014160

104406

004537

013114

104406

004537
000010
004537

JSR
CKLOOP

RS, CHERR

TRAP

C$CLPT

JSR

RS5,LDFUNC

JSR

R5,WTCRDY

(KLOOP
TRAP

013414

014246

156474

C$CLPT

JSR
CKLOOP

RS, CHERR

TRAP

C$CLPT

CLR

GDDAT
BDDAT ,DWORD
E.MP,BDDAT
gECMSK,BDDAT

MOV
MOV

BIC
BEQ

5%:

104406

004537

C$CLPY

TRAP

104406

023574
023600
023600

TRAP

ERRDF

000063
006420
010244

011377
052777
004537
000006
004537

023616
023622
023624

002370
002356
002356

104455

023546
023552
023560
023564
023566
023572
023572

CKLOOP

RDHDR

104406

023534
023534
023536
023540
023542
023544
023544

30A(1052)
17-DEC-79
14:01
PAGE 2-37
**TEST 43++ -~ EXTENSIVE CHECK OF HEADER CRC

.WORD
.WORD
. WORD
(KLOOP
TRAP

MOV

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;JWAIT FOR CONTROLLER READY HIGH

sCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

;CLEAR EXPECTED

:SAVE DIFFERENCE WORD
:READ HEADER

;MASK OUT SECTOR BITS
;BRANCH IF ON ZERO TRACK

51.,EM54 ERR3
C$ERDF
51
EMS4

ERR3

($CLPT
(R3) ,aRLDA

BIS
JSR
SEEK
JSR
CKLOOP

#SIGN!MK,aRLDA

TRAP

C$CLPT

JSR
CKLOOP
TRAP

R5,CHERR

JSR
CKLOOP

RS.,WTDRDY

TRAP

csCLP1

JSR
CKLOOP
TRAP

R5,CHERR

JSR

R5,LDFUNC

RDHDR
JSR

JCHECK IF /FL:LOE IS SET

R5,LDFUNC

R5,WTCRDY

csCLP1

C$CLPT

R5,WTCRDY

sCHECK IF /FL:LOE IS SET
:GET DIFFERENCE WORD
;SET SIGN (TOWARDS SPINDLE) AND MARKER
sISSUE FUNCTION OF FOLLOWING WORD
; SEEK
;WAIT FOR CONTROLLER READY HIGH

;CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET
;WAIT FOR DRIVF READY

;CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET
;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
sWAIT FOR CONTROLLER READY HIGH

SeEaQ 0100

CZRLGBO RL11/RLVIT1
CZRLGB.MAC

2795
(3)

023630
023630
023632
023636
023636

CTLR TST_1

07-DEC-79 07:39

MACYT

CKLOOP

104406

004537

013114

104406

011337
011337
013737
043737
023737
001404

002354
002370
002310
02326
002354

002356
002356
002356

023704

104406

023706
023714
023720
023722
023724

013737
004537

023776

024000
024000
024002
024004
024006
024010
024010
024012
024014
024022
024024
024030

024032
024036
024042

8%:

JSR
CKLOOP
TRAP

R5,CHERR

MOV
MOV
MOV

(R3) ,GDDAT
(R3) ,DWORD
E.MP BDDAT
SECMSK,BDDAT

TRAP

:
9%

002310
013772

002336
002312
013772

023722

002336
002314
002354

023752
023750

002354
002356
002356

002400

023342
002762

ERR3

C$CLPI

0
0
CALBC(C,20%
E.MP1,21%
K5,SIMBCC

0
0

53. ,EM42 ERRS
C$ERDF
53
EM42
ERR4
C$CLPT

(R3)+

T.DRIVE
. #1

2%
R3,#SKEND
12%

002720

2%:

sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
;GET EXPECTED CYLINDER
;SET UP DIFFERENCE FOR SEEK
sREAD HEADER FROM RLMP
;CLEAR OUT SECTOR BITS
;DID SEEK GO TO THE RIGHT

;TRACK,

SO,

GO GET

C$ERDF
52
EM54

??gAT.BDDAT

000001

SEQ 0101

52. ,EM54 ERR3

CALBCC,GDDAT

11%:

104406

TRAP

ggDAT.BDDAT

E.MP2,BDDAT

104455

000065
006041
010316

.WORD
.WORD
.WORD
CKLOOP

C$CLP1

E.MP,10$
R5,SIMBCC

21%:

005723
023727
001005
020327
001407
000137
020327
001402

C$CLPT

BIC
(MP
BEQ

108:

001404

TRAP

ERRDF

104455
000064
006420
010244

023726
023734
023742
023746
023750
023752
023754
023762
023770

K 8
17-DEC=79
30A(1052)
14:01
PAGE 2-38
*aTEST 43«x - EXTENSIVE CHECK OF HEADER (RC

R3,#SKEEND
12%

;CHECK IF /FL:LOE IS SET

;GET HEADER WORD

;GO CALCULATE HEADER CRC

;16 BITS

sHEADER GOES HERE

JSTART WITH ZERO (CRC

;MOVE CALCULATED CRC TO GDDAT
;GET HEADER CRC FROM RLMP
;1S CRC CORRECT?
;IF SO CONTINUE

JCHECK IF /FL:LOE IS SET

;BUMP PATTERN

CZRLGBO RL11/RLV1IT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

024044
024050

024050
024050
024050
024052
024052
024052

000137

L 8
17-DEC-79
14:01
PAGE 2-39
MACY11 30A(1052)
*«TEST 43»x - EXTENSIVE CHECK OF HEADER (RC

023342

JMP

12%:
ENDSEG
10000$%:

104405

ENDTST

L10073:

104401

.SBTTL

024054

BGNTST

024054

STARS
o R

TRAP

CSESEG

TRAP

CSETST

*#«TEST 44xx - VERIFY GET

;#%*xEND OF

SEGMENT#ex#

;%%%*END OF

TEST#xs

STATUS WHILE

;%x%*START OF

A AR AR

AR R AR R AR AR A AN AR

DRDY

IS LOW

TESTwews

A AR N AR N AR AARARRARRRNRAAARRARAR
AR AR AL

;VERIFY THAT WE CAN ISSUE GET STATUS AND RECIEVE
:THE STATUS WORD WHILE THE DRIVE IS IN NOTION SEEKING

024054

STARS
o R

024054
024054
024060
024062
024066
024066

SEQ 0102

004537
000010
004537

1%:

013414

014246

004537

024076
024104
024112

013737
043737
001461

013114

104406

002310
002326

002356
002356

AN A RAANRAN AR AN RAANRAANRKARRARARRRAAR
AR AN

JSR
RDHDR
JSR

R5,LDFUNC

;ISSUE FUNCTION OF

R5,WTCRDY

WAIT FOR CONTROLLER READY HIGH

TRAP

C$CLPT

JSR
CKLOOP

R5,CHERR

TRAP

C$CLPT

MOV
BIC
BEQ

E.MP BDDAT
SECMSK ,BDDAT
5%

CKLOOP

104406

024070
024074
024074

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

;READ HEADER

FOLLOWING WORD

;CHECK IF /FL:LOE IS SET

s CHECK CONTROLLER FOR ERRORS

;CHECK IF /FL:LOE IS SET
+READ HEADER
;CLEAR OUT ScCTOR
;IF ON TRACK ZERO, H.S.

ZERO, Ok

sNOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK
;ON ZER 0.
024114
024122
024130
024136
024142
024144
024150
024150

042737
013777
052777
004537
000006
004537

024152
024156
024156

004537

024160
024164

004537

000100
002356
000001
013414
014246

104406

013114

104406
014160

002356
156124
156116

BIC
MoV
BIS

JSR
SEEK
JSR
CKLOOP

#RHHS ,BDDAT

sCLEAR OUT HEAD SELECT

RS, LDFUNC

:éggge FUNCTION OF FOLLOWING WORD

BDDAT ,aRLDA
#MK , BRLDA

RS,WTCRDY

TRAP

C$CLPI

JSR
CKLOOP
TRAP

RS, CHERR

JSR
CKLOOP

RS,WIDRDY

CS$CLPI

;PUT CYLINDER AS DIFFERENCE WORD
*SET MARKER BIT

‘WAIT FOR CONTROLLER READY HIGH
SCHECK IF /FL:LOE IS SET

; CHECK CONTROLLER FOR ERRORS
SCHECK IF /FL:LOE IS SET
;WAIT FOR DRIVE READY

JCHECK IF /FL:LOE IS SET

CZRLGBO RL11/RLV11
CZRLGB.MAC

(3)
2885
2886
2887
(3)
2888
2889
2890
2891
2892
2893
(3)
2894
2895
2896
(3)
2897
2898

CTLR TST 1

07-DEC-79 07:39

024164

104406

024166
024172
024172

004537

026174
024200
024202
024206
024206

004537
000010
004537

024210
024214
024214

004537

024216
024222
024230
024236
024244

005037
013737
013737
043737
001404

024246
024246
024250
024252
024254
024256
024256

MACY11

m 8
17-DEC=-79
30A(1052)
14:01
PAGE 2-40
**TEST 44*» ~ VERIFY GET STATUS WHILE DRDY IS LOW

013114

104406

013414

104406

013114

106406

002370
002356
002356

004537

077601
000005
013414

104406

004537

C$CLP

JSR

R5,LDFUNC

014246

013114
000003
013414

CLR

GDDAT
BDDAT ,DWORD
E.MP ,BDDAT
gECMSK.BDDAT

TRAP
.WORD
.WORD
.WORD

CKLOOP
TRAP

TRAP
MoV

JSR
GSTAT
JSR
CKLOOP

014246

TRAP
JSR

013114

C$CLPT
RS, CHERR

JSR
CKLOOP

155730

RS ,wTCRDY

JSR
CKLOOP
TRAP

MOV
8IS
JSR
SEEK
JSR
CKLOOP
TRAP

104406

104406
012777
004537
000004
004537

TRAP

BIC
BEQ

5%:

104406

024310
024314
024314

R5,CHERR

ERRD}

010244

012777
052777
004537
000006
004537

JSR
CKLOOP

MOV
MOV

104455
000066
006420

024260
024266
024274
024300
024302
024306
024306

C$CLP

RDHDR
JSR
CKLOOP
TRAP

014246

002354
002356
002310
002326

TRAP

cscLP

104401

BGNMOD

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;WAIT FOR CONTROLLER READY HIGH

;CHECK IF /FL:LOE IS SET

s CHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

;CLEAR EXPECTED
;SAVE DIFFERENCE WORD
;READ HEADER
sMASK OUT SECTOR BITS
;BRANCH IF ON ZERO TRACK

54. ,EM5« ERR3
CSERDF
54
EMS54

ERR3

C$CLPY
#77601,aRLDA

;CHECK IF /FL:LOE IS SET

#SIGN!MK,aRLDA

RS . LDFUNC

;GET DIFFERENCE WORD
*SET SIGN (TOWARDS SPINDLE) AND MARKER
:ggggs FUNCTION OF FOLLOWING WORD

RS ,WTCRDY

‘WAIT FOR CONTROLLER READY HIGH

CS$CLP
R5,CHERR

CSCLP1

#MK!GSBIT,aRLDA

‘CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

R5,LDFUNC

s ISSUE FUNCTION OF FOLLOWING WORD

R5 .WTCRDY

;WAIT FOR CONTROLLER READY HIGH

C$CLPY
R5,CHERR

ENDTST

L10074:

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

cCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;exxxEND OF

TRAP
HRDPRM

CSETST

TESTwexx

SEQ 0103

CZRLGBO RL11/RLVIT1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

024346
024346
024350
024350
024352

.WORD L10075-L$HARD/?2

GPRML
-WORD

005130

024444
000001

. WORD
GPRMA
.WORD
.WORD
-WORD
. WORD
GPRMA
.WORD

024430
160000
177776

001031
024462

2945
2946
2947
2948

024522

%NTMSG

CSRMSG,(SR,0,160000,177776,YES

T$CODE
CSRMSG
TSLOLIM
TSHILIM

VECMSG,VECT,0,0,776,YES
T$CODE
VECMSG
TSLOLIM
TSHILIM

T$CODE
BRMSG
340
TSLOLIM
TSHILIM
DRTYPE ,TYPDR,1,YES
T$CODE
?RTYPE

003130
024471
000001

DRMSG,DRBT,0,03400,0,7,YES

004032
024513
003400
000000
000007

.WORD
.WORD
.WORD

L10075:

024430

2944

CNTMSG,CNT,1,YES
T$CODE

BRMSG,PRIOR,0,340,0,7,YES

024430

024430
024436
024444
024451
024456
024462
024470
024471
024476
024504
024512
024513
024520

BGNHRD

000030

000031

024366
024370
024372
024374
024376
024376
024400
024402
024404
024406
024410
024410
024412
024414
024416
024416
024420
024422
024424
024426

17-DEC~79
14:01
PAGE 2-41
*+TEST 44xx ~ VERIFY GET STATUS WHILE DRDY |S LOW

MACY11 30A(1052)

052502
051104
046122
102
042526
042526
000
104
052040
020075
000
104
000
024522

020123
051505
030461
020122
000114
052103

042101
000123
000

T$CODE
DRMSG

03400

TSLOLIM
TSHILIM

ENDHRD
.EVEN

CSRMSG:

.ASCIZ

/BUS ADDRESS/

042514

CNTMSG:
BRMSG:

.ASCI2
LASCIZ

/RL11/
/BR LEVEL/

051117

VECMSG:

LASCIZ

/VECTOR/

044522
050131
046122

042526
020105
030460

DRTYPE:

LASCIZ

/DRIVE

044522

042526

DRMSG:

LASCIZ

/DRIVE/

.EVEN

ENDMOD

TYPE = RLO1/

SEQ 0104

CZRLGBO RL11/RLVIT CTL R TS T_1
CZRLGB.MAC
07-DEC~79 07:39

MACY11

024522
024522
0264522
024524

30A(1052)

BGNMOD

SFTPRM

GPRML

DMSG,DLT,1,YES

. WORD
. WORD
XFERF

DMSG
1
13

.WORD

001032
024572

1%:

024546

L10076:
050117
047522

047440
020122

DMSG:
EMSG:

T$CODE

. WORD
GPRMD
. WORD

T$CODE
EMSG,ELT,0,177777,0,177777,YES
T$CODE

.WORD
.WORD

177777
TSLOLIM
TSHILIM

.WORD

177777
000000
177777

.WORD
ENDSFT
.EVEN

LASCIZ
.ASCIZ

EMSG

/DROP ON ERROR LIMIT/
/ERROR LIMIT/

.EVEN

LASTAD

024606
024610
024612

LSLAST::

000001

PAGE 2-42

LWORD L10076-L$SOFT/2

000130
024546
000001

024606
024606

BGNSFT

000011

024546
024572

14:01

*«TEST 44+ ~ VERIFY GET STATUS WHILE DRDY IS LOW

006044

024540
024542
024544
024546

17-DEC-79

.END

ENDMOD

.EVEN
.WORD
.WORD

0
0

SEQ 0105

CZRLGBO RL11/RLV1IT CTLR TST_ 1
CZRLGB.MAC

07-DEC-79 07:39

ADDCOD 013024 G
ADR
= 000020 G
AFREG
004636

7054
P od
3304
9094

AFTER
ARLBA
ARLCS
ARLDA
ARLMP
ASSEMB=
BATEST
BA16 =
BA17 =

013724
004573
004566
004601
004607
000010
015054
000020
000040

3284
7
17260
34n
334

BCSR

002260

85#

BCCFBK
BODAT

BITO
BITO0
BIT01
BIT02
BITO3

002334

1074

002356

BEFORE
BEGPAT

BEREG
BGNTST

3264
3254
3274

1164

1252+
1460%
1629
1833«

2329+
2505+
2734
2872«

013672
002410

=
=
=
=
=

BITO4 =
BIT05 =
BITO6 =
BIT07 =
BITO8 =
BITO9 =
BIT1
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT15 =
BITZ2 =
BIT3 =
BIT4
=
BITS
=

BIT6 =
BIT7 =
BIT8 =
BIT9 =
BOE
=
BPRIOR
BRMSG

004615
012424

000001
000001
000002
000004
000010

000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040

000100
000200
000400
001000
000400
002262
024451

G
G
G
G
G

G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G

G
G
G
G
G

864
1344
3294
612
264
264
264
264
264
264
264
264
264
26#
264
264
264
264
264
264
264
264
264
264
264
264
264
264
264
264
264
86#
2933

MACY11 30A(1052)

17-DEC-79

14:01

PAGE 3

SEQ 0106

CROSS REFERENCE TABLE -~ USER SYMBOLS

468
1003
466
466
467
467

1009
468
468
469
469

1IN

937+

587%

413

1253
1461
1639«
1839

943
594

622

431

949

953

457

1143«
1325«
1543+«
1683+
2069+
2363
2555
2769«

1144«
1326
1552+
1690*
2070
2364*
2601~
2803«

2336+
2508
2741
2899

1290*
1487+«
1672«
1865

2337
2553%
2767
2900%

1291
1510
1673
2068+

1208

1316

1350

1382

16413

1178

41
31
210
211
35
30
29
41
41
34
33
28
32
37
38

42
209
798
802
212
213
239
43
45
55
265
53
48
39
39

44
46
264

47
47

52
49

262
263

54
206
207
208

266
2209
267
268

2236

2269

589«
29414

1834

2330~
2506+
2740+
2873

8994
1172
466
6244

1289x
1462
1671+
1850

946+

2362
2554+
2768+
2901+«

807
811

1145
1357«
1583+«
1754
2115«
2397«
2602«
2B04r

261

1180«
1358
1584«
1755
2116
2398+
2603
2805

1181
1388«
1585
1763«
2167«
2399
2700+
2823+

1214
1389
1596+
1764
2171
2459
2701+
2824

1215
16420
1627¢
1772«
2174
2460+
2702
2865+

1251+
1421
1628+
1773
2176
2461
2733«
2866+

CZRLGBO RL11/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

002264
002272
002270
002274
002276
002336
013114

BVEC
B8.BA
B.CS
B8.DA
8.MP
CALBCC
CHERR

CKERLT
013030
CLNCOD
012752
=
(NT
CNTMSG
coMP
CONT
CONTIN
=
CRDY
CRTIM
CSEND
CSPAT

CSR

CSRMSG
CSTEST
CYLMSK

= 000000

C$CLOS=
C$CLP1=

874
04

0D 9
PAGE 3-1
17-DEC=79
14:01
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
588«

466
466

467
467
959+
1723

630

683

837

839+

840+

B4l

842+

2108
1751
2164
2448
2682
2895

2114
1813
2218
2456
2689
2915

2816
1847
2242
2488
2697
2922

2822
1891
2248
249
2730

1913
2280
2502
2748

433

440

451

997

12644

1246

1452

1532

1573

1617

1660

2142

1261
12641

1298
1279

173

1209

1262

1280

1317

1351

1383

1614

1836

1064
1889

1089
1912

1114
1924

1546
1950

1589
1980

900+

901
902+

415

(SERHR

42k

899+

2142+

1949

2053
2383
2598
2862

2344
2541
2763

7284

5944

2246
2368
2489
2631
2752

2277
2375
2492
2634
2755

2281
2378
2495
2672
2761

Q2287
2381
2500
2676
2764

22%
2384
2533
2680
2773

65
739
659

683

1032

1058

1083

668

738

989

1005

1148

1184

1218

2860
CSCVEC=
C8DCLN=

SEQ 0107

513
1810
367

2863

1545
1856
2402

2878

1554
1911
2464

2881

1588
1923
2511

2884

1598
1953
2558

2058

2319

1392
1693

1424
1758

1721
2075

2443
2548
2695
2905

2119
2827

2189
2904

000060
000054
000057
000010

C$ESEG= 000005
C$ESUB=
CSETST=

1088

113

1149

1185

1219

1257

2051

2054

2063

2066

1330
2101

2393

1362

1393
2457

1425
2503

2551

2596

2599

1156

1193

1226

1264

1335

1367

1398

1430

1864

2079

2418

1039
1467
1956

1065
1493
1991
2609

1090
1516

1265
1726
2220

1301
1780

1368

2032
2843

1227
1698
2196

1336

2007
2708

1115
1558

2250

2296

1869

2419

1399
1893
2467

401

408

416

425

434

441

452

461

413

422

431

450

457

463

466

467

468

469

472

473

560
1486

569
1509

1450

1804

1839

1903

1908

1915

1920

1970

1976

2019

2024

643

649

1029

1055

1080

1105

2576

2641

2654

2656

2666

2668

787x
1140

1142

1248

1250

1286

1288

1453

1455

1574

1576

1618

2213«

2215«

1752

1817

1845

1848

581

636
728

CSPNTF=
CSPNTS=
CEPNTX=
($QI0 =
C$RDBU=
CSREFG=
CSRESE=
CS$REVI=
CSRFLA=
CSRPT =
($SEFG=
C$SPRI=

736

CSSVEC=
C$TPRI=

DIAGMC=
DLT
=
DLTMES
DLYCNT
DMSG
=
DRBT

1063

2561

CSEXIT=
C$GETB=
CSGE TW=
COSGMAN=
CSGPHR=
CSGPLO=
CSGPRI=
CSINIT=
C$INLP=
CSMANI=
CSMEM =
CSMSG =
CSOPEN=
C$PNTB=

DAHS
=
DATEST
DCKMES
DEMES
DERFLG
=
DERR

1037

SEQ 0108

N
—s =2
—SON
=
SN0
[aVAV,
P

CSERRO=
CSERSF=
C$ERSO=
C$ESCA=

E 9
PAGE 3-2
14:01
17-DEC=79
MACY11 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

~NOoo

CZRLGBO RL11/RLV1I1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

12104

3044
1620
7
684
3104
1294

2954
634

665

1663

835

CZRLGBO RL11/RLVIY CTLR TS T
CZRLGB.MAC
07-DEC-79 07:39

013020 G

DWORD
EF .CON=
EF .NEW=
EF .PWR=
EF .RES=
EF .STA=
ELT
=
EMSG
EM1
EM101

002370
000036
000035
000034
000037
000040
000002
024572
004732
007715

DS3

= 001400

EM102
EMN
EM13
EM14
EM1S
EM16
EM7
EM2
EM3
EM30
EM30A
EM32
EM33
EM34
EM37
EM4
EM&T

007762
005203
005244
005276
005324
005352
005400
004757
005004
005433
005472
005532
005566
005633
005710
005031
005750

EMéL2

006041

EM4S
EM4S
EM46
EM47
EMS

006176
006231
006264
006317
005056
006350
006420
006457
006512
006551
005127
006652

EM43

EM52
EMS4
EMS5
EM56
EMS7

EM6
EM61
EM62

006077

(aYalalaYal

000010
004704
024471
012310
011646 G
000000
000400
001000

3324
2934
6114

5324
364
374

611
463
29444
730

983
591«

1144

1252

1290

2396~

2767+

2802+

2899+

2772

2808

2904

610

626

662

1885
989

29434
618

DRPCOD

DRST
=
DRTIM
DRTYPE
DRVRDY
DSPCOD
0DSO
=
DS1
=
DSZ2
=

bad
88#
2935
5244
6994

30A(1052)

DRDY
= 000001
DRIVE
002266
DRMSG
024513
DROP
011640

F
9
14:01
17-DEC=79
PAGE 3-3
CROSS REFERENCE TABLE =-- USER SYMBOLS

MACY11

1988

2827

2402
2511
2606

1461

840

SEQ 0109
1532

861

1584

2143

1628

1672

CZRLGBO RLT1/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

EM63
EMG4

EMES
EM6GS
EM67

EM?7

EM70
EM71
EM72
EM73
EM74
EM75
EM76

EM?77

END
ENDPAT
ERCOUN
ERPOIN
ERR
=
ERRVEC
ERRO
ERR1
ERR2

007016
007077

007162
007243
007326

012464
002616
003066
003064
100000
002332
010152 G
010170 G
010202 G

603
2024
2934
2924
294
1064
3954
4034
4104

6304
1190
562
S76%
1142
643
1810
1037
1148

007662

1641

1554

1223
576
579%
1250
647
1911
1063
1184

1333

1365

732«
1288
652
1923
1088
1218

733
1455
653
1953
1113
1256

2402
2119

2772
2464

2808
25N

1588

1598

1632

1396

1428

1576
1029
1979

1620
1032
1988

1663
1055
2027

2276

2293

1080

1083

1105

1108

1294
1641
2904
2558

1329
1676

1361
1685

1392
1693

1424
1758

1465
1767

1490
1776

1513
2189

2606

2705

2827

1058

468
468
1951
469
469
2636
469

910+
766
1981
911«
912«
2700
913«

1986

2156+

2157

785

790

794

798

802

807

811

909

2056
2733
2109

2068
2768
2162«

2103
2803
2817

2161~
2811

2329
2865

2363
2900

2397

2459

2505

2553

002312

954
9%H
1946
obu
974
2601
984

002360
013660
013632
011026

1174
783
847x
463

2139«
788
848+
4804

2168
792
849

2170%
796
851«

2186«
800
854+

804
8694

209

813

815

817

8894

002306
002310

FRMT2
FRMT2A
FRMTZ2B
FRMT3
FRMT4
FRMTS
FRMT6

1545

SEQ 0110

2367
2073
989
821
1856

E.DA
E.MP

002314

011320
011361
011440
011471
011535
011066
011105
011120
011147
011154
011212
011263

G
G
G
G
6
G

3794

4184
Q274
4364
4434
4544
264
1L

002304
002302

FRMT11
FRMT12
FRMT13
FRMT14
FRMT1S5

1218

1490
1513
1545
1554
1588
1598
1632

E.BA
E.CS

FIRST
FIX
FNDFNC
FRMT1

3394

30A(1052)
17-DEC-79
14:01
PAGE 3-4
CROSS REFERENCE TABLE == USER SYMBOLS

1424
1465

3724
3734
3744
3754
3764
3774
378¢

ESLOAD= 000035

E.MP1

1329
1361
1392

007363
007420
007455
007510
007543
007575
007627

ERR3
010244
ERR4
010316
ERRS
010364
ERR6
010376
ERR7
010440
EVL
= 000004
ESEND = 002100

E.MP2

3674
3684
3694

3704
3714

005155

MACY'1

144

Feld

4894
490N
“9H
CI2N
4934
466
467
469
472
413
422
457

469

1005

914«

736
619

657
665

468
4824
4834
473
431
4874
4884

4814

4844
4854

774

2115

781

2163«

2823

CZRLGBO RL11/RLV1T CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39
FRMT99
F$AU
=
F$AUTO=
FEBGN =

011207
000015
000020
000040

MACY11
4864
711

641
15
427
551

974
1157
1270
1383
1521
1785
1956
2080

F$CLEA- 000007
FEOU
= 000016
FSEND = 000041

2301
2566
2928
674
701
15
634

638

1013
1162
1295
1398
1558
1817

H 9
30A(1052)
17-DEC-79
14:01
PAGE 3-5
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 01N

715

670
19
636
638

24
443

72
454

1013
1162
1280
1393
1558
1817
1961
2085

1019
1173
1295
1399
1563
1822
1991
2098

705
19
44

2319
2596
2947
693

670

1019
1185
1300
1399
1563
1822

74
504

295
506

2393
2599
2951

1039
1185
1301
1404
1600
1836
1995
2101

2419
2609
2953

1044
1194
1306
1414
1605
1845
2007
2122

1
1199
1317
1425
1645
1848
2011
2127

24
452

72
461

74
504

295
506

408

1039
1193
1301
1404
1600
1845

1044
1194
1306
1425
1605
1848

1065
1199
1330
1430
1645
1858

1070
1219
1335
1431
1649
1864

1149
1264
1368
1498
1752
1926

641

672

693

674

2424
2614
2972

695

2457
2698

699

2066
2255
2551
2924

672

295

298
695

393
707

709

504

506
717

518
725

395

401

403

408

419

416

418

627

434

436

441

oo~

1335

1090

1698

1702

1726

173

1780

1785

1270
1493

1301
1498

1306
1516

s& —
SHARE

1070

1265
1472

—_—taa

1065

123¢
14€7

2723

1044

1227
1436

NIV
S NnY OO0 — W

528
1039

—d

522
1019

b cad

978

—d

974

OO0 \
VAN
—

F$SOF
T= 000005
FESRV = 000010
F$SUB = 000002
F$SW
= 000014
FSTEST= 000001

0080

1264

2058

000021
000017
000012
000003

—

638

WWVION)

549

536

F$PROT=
FSPWR =
FSRPT =
F$SEG =

532

FEMSG = 000011

530

b comd

000004
000013
000006
000050
000000

OO
N —

F$HARD=
FeHW
=
FSINIT=
FeJMP =
F$MOD =

002242
002242
010152
013030
003766
000202
000002
000004
004527
004470
GSCNTO= 000200
GSDELM= 000372
| SP= 000003
G$D
GSEXCP=
GSHILI=
GSLOLI=
GSNO =
GSOF
F S=
G$OFSI=
GSPRMA=

9
1
17-DEC-79
14:01
30A(1052)
PAGE 3-6
CROSS REFERENCE TABLE -- USER SYMBOLS

NN
=

1961

2220

—_

2566
431
1181
1323«
1485«
1638+«
1834+

1991

2225

2609
1035«
1211«
1326
1508+
1660*
1850

1995

2250

2614
1061+
1212
1354%
1542+
1663+
2056

2007
2255
2708

2037
2419
2848

1087«
1215

1138«
1250+
1389
1577
1691+«
2116
2529+
2766+

1355«

1551«
1664

2057
2461
*
2661

2395«
2642

2399
2649+

2434
2651«

2592
1918

2917
1944

1974

2546

2935
2935

2954
2954

2956
2956

2935

2954

2956

1974
1860

2022

2080
2424
2924

2085
2467

2171«
2555
2801+

2173»
2577«
2805

1139
1253
1417
1585
1744+

1142+
1283+
1418+
1595+
1755

G
G
G
G
G
1885
769

1904

839

1916
1887

2544
1906

614

985

999

2214

2930

2931
2931
2932
2935
2934

2932

2933

2934

2956
2954

2934
2932

2954
2933

2935

2956

2931

2932

2933

2934

856
1808

1806
1811~

1842
1838+

876
875

GSPRMD=
GOSPRML
=
GSRADA=
GSRADB=
GSRADD=
GSRADL
=
GSRADO=
GSXFER=
GSYES =

2930

2932

2933

2934

2594

2919

IBE
1DV
IER
INITCO
INTEN =
002322
INTFLG

(alalalalalalal

2154

HALMAX
HCRCME
HDRBUF
HDRLST
HMAX
HNFMES
HOE
=
HPTCOD
HRDPRM

MACY11
AN
O
N0
N — 2O
=2\ —2 00WNOON
=

002354

GLBDAT
GLBEQA
GLBERR
6GLBSUB
GLBTXT
GODRVR=
GSBIT =
GSTAT =
GSTINT
GSTMES

O —
VIQO
N — =N

OOV
NON
PR Y

GDDAT

~Nwn

CZRLGBO RL11/RLVIY (TL
CZRLGB.MAC
07-DEC~7

681
976+

848
1803+

1902+

2271

1909

1914«

1921

1971«

CZRLGBO RLT1/RLVI1
CZRLGB.MAC

INTSRV
ISR
=
IXE
=
I$AU
=
I$AUTO=
I$CLN =
I$OU
=
I$HRD =

CTLR TST 1

07-DEC~79 07:39

014152
000100 G
004000 G
000041
000041
000041
000041
000041

1977
630
264
264
1
w

2020+

9764
7114

6414
674N
7014

ISMSG = 000041

I$PROT=
I$PTAB=
I$PWR =
ISRPT =
I$SEG =

I$SETU=
IS$SFT =
I$SRV =
I$SUB =

000040
000041
000041
000041
000041

000041
000041
000041
000041

013414

2274

2283+

2290

24N
5364
29514
4034

724
5494
2972#
408#

744
638#4

2954
6724

2984
6954

3884
6994

7074

7094

4104

L1164

4184

4254

Q27K

4340

1070
12264
1341
1472
1873
2201
27234

1095
1232
13514
1498
1898
2225
28424

1120
12424
1362
1521
1931
2255
2848

1070
1498
1995

1095
1521
201

1120
1563
2037

10444
12654
14724
17264
19264

10654
12704
14934
17314
19314

10704
13014
14984
1752
19564

10954
13364
15214
| 7854
19914
21274
24724
27134

863
1917

7154

6704
6934
7054

6364

194

5324
29474

4614

7114

2713

2848

5044

23194

1199
1649

2127

2098
2424
26144

2101
2457
2698

847
1805
2237
2578
2909

856
1841
2270
2593
2918

861
1886
2321
2628

2353
2692

420

429

438

456

LO6H

3934

1149
12644
1373
1605
1995

20854
24194
26094

447

SEQ 0113

2267x

2614

JSJMP = 000167
002324
LDCSR

LF
004035
LINE1
010476
LINE2
010532
010754
LINES
LOE
= 040000 G
LOT
= 000010 G
LSACP
002110 G
LSAPT
002036 G
L$AU
013024 G

2025

4014
4544

I$TST = 000041

IDFUNC

17-DEC=79
14:01
PAGE 3-7
CROSS REFERENCE TABLE =~=- USER SYMBOLS

29374
5514
154

ISINTT= 000041
IMOD = 000041

MACY11 30A(1052)

2048

2792
737

G
6
G
G
G
6

6
G
6
6
6
G
G
G
G
6
G

G
G

V==

D d D b b b
NNNNN
un
x
=
d d d oD D oD D D D D d e
b cmd d md b aid cd b e
) cd D e

G
G
6
6

MACY11

K
9
PAGE 3-8
17-DEC=79
14:01
30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

6414

6744

24
S344

614

985

7014

224

29284

5084

5514
29734

e cd e

G
G

g‘h\\
—‘VV\J\J\I\I\I\l\l\l\l\l\l\l\l\l\l\l\l\l\l;‘\l\l\l\l\l\l\l\l\l\l\l\l\I\I\I\I\J\J\J\l\l\l
VPV R R N
R
R
O
xr
R

L10000
L 10001
L 10002
L10003
L 10004
L 10005
L 10006

G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G

b —d

LSLUN
LSMREV
L SNAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
T
L$SOF
L$SPC
L$SPCP
L$SPTP
LSSTA
LSSW
LSTEST
LSTIM
LSUNIT

G
G
G

e ed o o

LSLOAD

002070
012530
002106
012752
002032

b md md cd b md —d

L SAUT
LSAUTO
L$CCP
LSCLEA
L$CO
LSDEPO
L$DESC
LSDESP
LSDEVP
LSDISP
LSOLY
LSDTP
LSDTYP
L$DU
LSOUT
LSDVTY
LSEF
LSENVI
LSETP
LSEXPT
LSEXP4
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT
LSLADP
LSLAST

CTLR TS T
=79 07:

QOO

CZRLGBO RL11/R LV
CZRLGB.MA(C
07

5420

29534

5224

556

575

999

2214

SEQ 0114

CZRLGBO RL11/RLVIT (TLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

L10007
L10010
L1001
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10027
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052
L10053
L10054
L10055
L10056
L10057
L10060
L10061

010474
011636
011646
012526
012750
013016
013022
013026
014156
014440
014534
014630
014724
015044
015146
015234
015360
015504
015610
015710

016000
016100
016210
016262
016320
016444
016604
016744
017150
017200
017404
017470
017634
017664
020036
020124
020252
020274
020354
020520
020656
021174
021270

MACY11

S16#4
528#

17804

1848

18694

20804
21224

021334

021460
022076
022230
022372

022532
022704
023332
024052
024344
024430
024546
002372

30A(1052)
17-DEC-79
14:01
PAGE 3-9
CROSS REFERENCE TABLE -- USER SYMBOLS

26094

SEQ 0115

1194
404
41N

3164
3154
555
354
3054

5724
8754
31
3144

1942

2592

2638

1747

1806

1842

SEQ 0116

2269
2776

2338
2874

2371
2908

2433
2917

2481

2354

2387

2452

2498

2629

1319+

1325
1639

1353«
1665+

1356+
1679

627+
909

651

661+
1031

1035

1972

2653

2209
2665

2019

2268

1976
687

2024
690+

2289

2096
2891

2142

2322

2740

2872
1179«
1543

1579«

1622+

625+
865«

626+
899

2236
2742

586

1986

N
NN

—2
mbed

a_a_n_n_a_a_\..a_a

= NWWNWWNIW

1951
1983

2973
634+

2933
1804

QOO OOOGO

1916

2575

NOPINT
NOPME
S

NOOPQ
NOOP?7

004032
002364

M9
14:01
PAGE 3-10
17-DEC=79
30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

1904

2527
3114

MSCRLF
MXSEC1

MERLMT

1204
154
5254
S1a

002366
002000
011642
000001

MAXSEC
MOHEDR

MACY11

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

1915

1908
585«

2664
2652
2049
2793

1970

1983«

2639

82#

1357
1683
814

663

678

1484«
1763
595«
681+

1487

609+~
841«

1061
1539

611

863+

1180

997

662+

CZRLGBO RL11/RLV1Y CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

002254

RLDA

N 9
14:01
PAGE 3-11
17-DEC=79
MACY11 30A(1052)
CROSS REFERENCE TABLE =~ USER SYMBOLS

1139+
1460
2146

1143
1574

1416%

1420
1741%

624»

SEQ 0117

1244
1577+

1247+
1583

1248
1618

1251
1621+

1286

1451«
2144+

838«

911
1534«
1904+
2480«
2666

1082
1548
1916+*
2527x»
2678+

1214
1591

1387+
1623+
2269+

1664+

2371«
2654
2917«

2433«
2660*

901
1510
1885+
2481+
2664

902

912

913

914

1107

1667+

1507«
1772

1453

2145+
1388
1666+

2638+
2873«

2337«
2641
2874+

1743«

1754

2149

2209+
2576+
2775+

RLMP

002256

RLZ
SECMSK

002326

2069

2176

2182

2330

2364

2637

2701

2769

2804

= 000006

2238

2271

2340

2373

2438

2531

2579

2744

2778

2269
2110

2371
2812

2648
2818

2660

2776

22
506
701
22
461
555
630
693
1005
1088
1173
1264
1361
1431
1554
1686
1804
1893
1970

24
508
709
401
463
558
632
705
1029
1089
1184
1265
1362
1450
1558
1693
1810
1903
1976

START1

2908

2837
2834
2722

= 000100
STHS
SV(GBL= 000000

OO NN
NN — o
VON 8N = 2 (NN

SVCINS- 000000

2032
2122
2277
2351
2418
2495
2581
2683

2051
2189
2281
2356
2419
2500
2584
2686

8‘00—'—'\[!
N—=OC SN

SKEND
SKLST
SPTCOD
START

004436
004405
024522
000004
013772
000004
002762
002720
002620
011636
012106
012050

—_—m

SEKINT
SEKMES
SF TPRM
SIGN
=
SIMBCC
SIZE
=
SKEEND

QWO NN BANWANN
= O

SEEK

002722

8 10

CZRLGBO RL11/RLVIT CTLR TST_ 1
CZRLGB.MAC
07-DEC-79 07:39

MACY11

2731
2795
2887
2933

2746
2799
2893
2934

2749
2808
2896
2935

2752
2809
2904
2937

2755
2827
2905
2953

670
1090

693
1096

401

705
1101

408

416

1431

14638

1447

SV(SUB= 177777
SVCTAG= 000000

w
w

1205
1335

1564
1736
1933
2044

SVCTST= 177777

SVHD
002374
SSLSYM= 010000

TEMP4
TMPENC
TMPO
TTMP1
TMP2
TRPFLG
TRPHAN

002340
002342

002344
002404
002346
002350
002352
002220
014144

TYPDR = 000006

T$ARGC= 000001

1608
1797
1962
2087

1436
1931

1472
1961

1498
1995

7054
126424

26194
1094
1104

26674
G334+
935+

624

2258
2521
2850
1044

2262
2525
2853
1070

2519

2566

2614

401n

408#

L16#

14934
19564

1493

1500

1265
1375

1614
1817
1967
2091

1645
1824
1991
2122

1652
1828
1996
2130

1521
2011

1563
2037

1605
2085

2296
2561
2924
1095
2713

4254

10394
13014

2306
2568
2937
1120
2848

4344

10654
13174

2315
2572
2957
1162

41N

10904
13364

1504

1516

1523

1529

1706
1876
2013
2202

1199

1232

1270

4524

11154
13514

16454
20584
27084

16984
20804
27234

17264
21224
28434

956+

959

2180

1071
1194

1698
1869
2007
2196

1649
2127

528

1065
1193

1657
1864
1999
2136

2618
2609

516

2786
2881
2931

1052
1169

1276
1398

16004
20324
26094

2179«

461

2783
2878
2930

1047
1164

1272
1379

15584
20074
25614

2178+

452

2780
2863
2928
2973

2419
2617
1702
2201

11344
13684

1300
1399

2428
2625
1731
2225

5164

1157%4
13834

1301
1406

2790
2884
2932
636

1076
1201

1308
1410

1313
1430

1711
1882
2016
2206

1726
1893
2032
2220

1733
1926
2040
2228

1306

1341

1373

2431
2708
1785
2255

5284

11734
13994

2467
2714
1822
2301
6364

1194k
14144

17804
21964
2924

18174
2220
29378

18364
2250
2957

18694
22964

1558

2475
2719
1873
2424

6704

12094
14314

18934
23194

955+

2646
2668+

2658
2678

642+
646
2934

655
9714

971+
1029

1028«
1055

1033
1080

1054«
1105

1059

1079«

1084

1104

1109

4224
6654
29304
9894
13924
16934
21194
2B27K
29334
12194

4314
7364
29334
10054
142644
1758¢
21894
2904A
29354
12574

4504

4574

4634

LO6N

467N

L4684

464

4724

4734

2934k
10374
14654
17674

29354
10634
14904
17764

2954
10884
15134
18104

2955
11134
15454
18564

29564
11484
15544
19114

1 844
15 884
19 234
25 114

12184
15984

12564
16324

12944
16414

2558#

26064

27054

29564
12954

29334

29354

29564

29334
408
715

29354
416
978

29564
425
1039

I
29314
a4
29314
w
693

29324
29734
29324
601
705

000000
177777
000001
000000
010000

1039
1157

1264
1368

1478

441

1025
1156

2773
2860
2924
2957

950

TSGMAN=
TSHILI=
TSLAST=
TSLOLI=
T$LSYM=

20514

957«
939+

434

2772
2843
2921
2956

948+
849+
2643x
2665+

29314
116494

20274
27720

15164
19914
25144

9784
12804

425

1020
1129

2764
2842
2916
2955

938
772
2642%
2656

T$EXCP= 000000
T$FLAG= 000040

29304
144
13294
16764

7154
12654

1238
1367

2761
2828
2912
2954

SEQ 0118

936+
769
622
2653«

41354
6574
29314
8214
13614
16854
20734
2B08K
29324
11854

T$CODE= 001032
TSERRN= 000066

174
6194

1474

1600
1787
1956
2080

6934
12274

1114
1284
1124
1134
1144
1014
643

1467

1570
1780
1939
2079

2472
1234
1

978
11264

1233
1347

2250
2514
2843
1019

1604
1898

715
1115

1227
1343

2232
2478
2842
*

14674
19264

TEMP2
TEMP3

1226
1336

30A(1052)
17-DEC-79
14:01
PAGE 3-12
CROSS REFERENCE TABLE =-- USER SYMBOLS

20544

20634

20664

22764

20984

2293k

13304

23678
13624

26402

13934

24644

14254

17524

1953¢

18454

19794

18484

19884

18584

21014

23934

24574

25034

25514

25964

25994

26984

434
1065

441
1090

452
1115

461
1157

516
1194

528
1227

636
1265

670
1301

CZRLGBO RL1I1/RLV1Y CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

MACY11

c 10
PAGE 3-13
30A(1052)
17-DEC-79
14:01
CROSS REFERENCE TABLE =-- USER SYMBOLS

1368
1869

2419
~Nwnuwne

$ER 38\’.
—b
2o%e%

TSLTNO= 000054
TSNEST= 177777

1399

1431
1926

2514

24N

4184
S16#
6384

7154
11154
12324
13514
164720
17264
19314

TENSO

.§.

21224
26244
28434
72

5424
1013

11994
1431
16494
1926

TENS1

T$PTNU= 000000
T$SAVL= 177777
T$SEGL= 177777

T$SUBN= 000000

T$TAGL= 177777
T$TAGN= 010077

17314

T$TEMP= 000000

22254
7074

724

4254
5184
G414

7174
11204
1242
13674
14934
17314
19564

21274
2L67K
28484

740

546
10194

1227
16364
1698
1931#

2609

7464

3934

3954

L4274
5204
6704

7254
11344
12644
13684
14984
17804
19614

21964
26724
2924w
295

S4M
1039
12324
1467
17024
1956
22014

4104
516
11344
1367
29284

416
S22
1156
13834
2937

11564
13174

11734
1330

18644

1185
13354

20584

11734
1330
1864
10704
14984
19954
26144

1185
1335
20584
10954
15214
20114
27134

1193
13514
2063
11204
15634
20374
2848#

4104
711x

4184
9744

4274
10194

13734
18734
424N
3884
5304
9784

14044
18984
24728
4014
S344
10134

1698

2196
2957

408
S08#
978
13514
2842

2972

1645

2122
2937

2196
25194

1858

T$SEKO= 010000

2561

1493
1991

21274
2514

29514

= 000005

1467
1956

SEQ 0119

2561

14364
19314
2514
4084
5364
10204

1019#

10394

1726
2220
«01¥

1780

2250
4«03#

4614

5464
7054
10654
11994
13174

14304
16454
18734

20794
22284
2457A
25994
29304

10704
14984
19954

10954
15214
20114

11204
15634
20374

413
467

616
468

422
469

2063
2217
229
2375
2449
2533
2599
2705
2780
2863

2066
2220
2296
2378
2454
2536
2606
2708
2783
2878

2539
2609
2723
2786
2881

10704
14984
19954

10954
15214
20114

11204
15634
20374

4«08

4104

416

OV
N

Ny Pour i Q- Qrd

26144

27134

gmbum—flg

1490
1632
1752
1845
1920
1991
2073
2240
2319
2381
2457

1393

o
NN
O N
S

1486
1600
1749
1839
1915
1988

1392

1467
1598
1726
1836
1912
1985

1055
1114
1218
1301

1039
1113
1209
1300

2893
12324
17024

13064
17854
22554

22014

2848#

13734
18734
24244

288383

OOO0O

632
715

1038
1108
1194
1295

1383

T$TSTS= 000001

630
705

28484

623
693

27134

20164

T$TSTM= 177777

T$TEST= 000054

20664
22204
24314
25964
29244

11934
12764

20634
22064
24284
25728
28534
29724

11294
12274
13304
14064
15164
17064
18484
19914

NN
—

11264
12264
13134
13994
15044
16984
18454
19674

SEQ 0120

—d

FRLER3
SCTISIR

cd ed

11154
12194
13084
13984
15004
16574
18284
19624

b e
b d od

16144
17974
19334

10904
11944
12954
13754
14740

D 10
17-DEC-79
14:01
MACY11 30A(1052)
PAGE 3-14
CROSS REFERENCE TABLE =-- USER SYMBOLS

M) =

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

T$$MSG= 010007

4034

4184

425

W27n

434

L3364

441

L43a

CZRLGBO RL11/RLVIT CTLR TST_ 1
CZRLGB.MAC
07-DEC-79 07:39

MACY11

452

L54n

E 10

30A(1052)
17-DEC=79
14:01
PAGE 3-15
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0121

461

T$$PRO= 010012
T$$SEG= 010000

5624
11344

1149

11564

11734

T8$$SOF=
T$$SRV=
T88SW =
T$$TES=

29534
9744
5224
10194
1227

2957
978
528
1039
12324

1330
18644

13354
20584

13514
2063

1362
2066

13674
20794

13834
23194

1393
2393

13984
26184

14144
27234

1425
28B42oN

10444
1265

1065
12704

10704
1301

1090
13064

10954
1336

1115
13414

11204
1368

1157
13734

1162#¢
1399

1194
164044

11994
1431

2037»

2051

2708

21274
24724
27134

2032

2596

2080
23014
2599

1295
14304

010076
010020
01001
010074

16364
1698
1893
2054
2296
T.CNTL
T.DRIV
T.SIZE
11
110
TM

002402
002400
011644
014346 G
0155 6 G
015612 G

1274
1264
264
534
534
534

T12
113
T14
115
116
117
718
119
12
120
121
122
123
124
125
126
127
128
729
13
130
131
132

015712
016002
016102
016212
016264
016322
016446
016606
014442
016746
017152
017202
017406
017472
017636
017666
020040
020126
020254
014536
020276
020356
020522

G
G
6
6
G
G
G
G
G
G
6
G
G
6
6
6
G
G
6
G
G
G
G

534
534
534
534
534
534
534
534
534
534
534
534
534
534
534
534
534
534
534
534
534
534
534

136
137

021336 G
021462 G

534
534
534
534
534
534
534
534

733
T34
135

738
139

T4
740
141
T42

020660 G
021176 G
021272 G
022100 G
022232 G
014632
022374
022534
022706

G
G
G
G

534
534
534

13004
18364

1467
17024

18984

592+
590

10194
13064
13414
13734
164044
16364
164724
14984
15214
15634
16054
10444

16494
17024
17314
17854
18224
18734
18984
19314
19614
19954
10704
20114
20374
20854
21274
22014
22254
22554
23014
24244
24724
10954
25194
25664
26144

13174
1858

164724
1726
1926

20854
2419
2609
1176
2406

1185

119

1493
17314
19314
2098
20240

14984
1752
1956
2101
2457

1516
1780
19614
2122
2467

1321
2644

1482
2832

1714

20144

2698

12094

15214
17854
1991

1738

1219

1558
1817

19954

2196
2503
2843

1800

12264

15634
18224
2007
22014
2514

28484
1830

12424

1600
1845
20114
2220
25194

2924

1257

16054
1848

22254
2551

12644

1645
1869

2250
2561

12804

16494
18734

22554
25664

CZRLGBO RL11/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

002244

VECMSG
VECT
=
WAITO
WAITT
WCKINT
WCKMES
WHY
WRCHK =

002246

11204
11624
11994
12324
12704

574~
572
2942#
2932

024462
000002
012326
021224
004243
004203
002376
000002

575+«

581
580+

62¢

659

668

738

616

2216
874
873
772

WRITE = 000012
WTCRDY
014246

WTIDRDY

578+

1720

2097
2532
2859
2245

014160

XPOLY
002330
XXX
012130
X$ALWA= 000000
X$FALS= 000040
X$OFF
S= 000400
X$TRUE= 000020
.
- 024612

944

5784

1748

2212
2547
2877
2286
955

1807

2239
2580
2892
2347

1844

1907

2272
2595
2911
2380

1945

2341
2671

2374
2694

1975

2389
2727

2003
2439
2745

2023
2453
2760

2050
2485
2779

2491

2586

2685

2751

2785

2883

1257

1295
2098

2101

2955
2955

2214

2934
1393

2393

294H

1425

2457

3814

1752

2503

— N

w7t

UNITST

SEQ 0122

2713
28484

G
G
G
G
G
G
G
G

S
=

023334
024054
014726
015046
015150
015236
015362
= 000200

F 10
30A(1052)
146:01
17-DEC=~79
PAGE 3-16
CROSS REFERENCE TABLE == USER SYMBOLS

VOO On

743
T44
15
16
17
T8
19
UAM

MACY11

985
1848

2596

999
1858

2599

1149

2051
2698

1185

2054
29454

1219

2063
2955

2066

1330

418

427

393

506
436

53¢
4564

1173

1209

1242

1280

1317

1383

2319

1044

1070
1563

1095
1605
2201

1120
1649

1162

1232
1785

1373
1931
2614

1486
1089
1950

1509
1114

2127

2324
2440
2581
2746
2860

2390
2542
2728
2809
652
614
21
22

534
623
622
715
670
693
705
2937
516
636
19
401
546
1156
2957
978
528
1039
1516

2080
26
821
1545
1923

2606

298

1980

2327
2443
2584
2749
2863

2225

1546
1985

2342
2446
2587
2752
2878

1702
2255

2926

2424

1589

1677

2004
2345
2449

2486

2755
2881

2887

1472
2011

1760

1889

2243
2375
2500
2683
2786
2912

2075
2351

2634
2764

2281

2539
2695
2799

1032
999

2214

659

668

738

72
408

295

416

518
441

452

461

536

695

707

717

1013

1193

1226

1335

1367

1398

1864

2079

2418

2842

1065
1558

1090

1194
1726

1265
1817

1336
1893

1368

1399
1956

1431
1991

985

739

1600

1058

1083

1108

2122

2196

2296

989
1554
1953

1005
1588
1979

1218
1641

2705

2772

2073
2904

530

1926

2947

1467

2467

2561

2609

2708

2843

2924

1294
1685

1361
1758

1392
1767
2367

1426
1776

1465
1810

1490
1856

2189

2293

2402

2951

2464

2511

2972

1493

2032
N
=D

74
410

00—
N

24
403

EQUALS
ERRDF

729

&SN
=00MN)
VO~

DISPAT
DOCLN
DODU
ENDAU
ENDAUT
ENDCLN
ENDDU
ENDHRD
ENDHW
ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDSEG
ENDSFT
ENDSRV
ENDSW
ENDTST

582

A=
=

CLRVEC
DELAY
DESCRI
DEVTYP

SEQ 0123

570

O\~
—
W
Voo

BNCOMP
BRESET
(kLooOP

559

71
641
674
701
2928
508
551
15
395
542
1134
2953
974
522
1019
1498
2037
555
553
1038
1912
2287

G 10

17-DEC~79
30A(1052)
14:01
PAGE 4
CROSS REFERENCE TABLE -= MACRO NAMES

BCOMPL

BGNAU
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNSEG
BGNSFT
BGNSRV
BONSW
BGNTST

MACY11

N)
=b —d

CZRLGBO RL11/RLV1IT CTLR TST 1
CZRLGB.MAC
07-DEC~-79 07:39

CZRLGBO RLT1/RLVIT CTLR TST_1
CZRLGB.MAC
07-DEC-79 07:39

ERRSF
ESCAPE

1037
1149

1063
1185

GPHARD
GPRMA
GPRMD

581
2931
2933

2066

2098

2932
2935

2956

HEADER

174
29304
4134

29314
L2oN

174
194

214
728

GPRML

INLOOP
LASTAD

MSBYTE
MECNTO
M$COUN
MSDATA
M$DE (R

MSERR]

MSESCA
MBESCS

MSEXCP
M$GEN

SEQ 0124

2393

1295

1 330
2 657

2503

2551

2596

2599

2698

1845

1848

1858

2051

2054

29324
4314

29334
4504

2934k
4574

29354
L4634

2954w
L664

29564
L4674

L4684

L6954

4724

4734

6194

6574

6654

5304

228
2954
5364
10904
13684

3884
S4én
11154
13984

4014
6364
11564
13994

4084
6384
11574
14304

L1640
6704
11934
14314

4254
6934
1194k
14674

434
6954
12264
14934

44614
7054
12278
15164

S16#
9784
13014
16984

5184
1013#4
1335#
17264

26184

24198

24678

2514M

25614

2609

2708H

28424

20804

5044
7174
13004
16454

22964

20794

4614
7154
12654
16004

22508

20324

4524
7074
12644
15584

29304
194

29314
728

29324
2954

29334
3884

29344
4014

29354
4084

29544
4164

29564
4254

L34

4524

4614

13674
18174

13684
18644

13984
18694

13994
18934

14304
19264

14314
19564

14674
19914

14934
20074

15164
20324

15584
20794

16004
20804

16454
21224

1698%
21964

17264
22204

17804
22504

11484
15984
19884

1184
16324
20274

12184
16414
20734

12564
16764
21194

12964
16854
2189

13294
16934
22764

13614
1758¢
22934

13924
17674
2367#

18454

18484

1858%

20514

20544

29390

2934

1362

1393

1425

1752

2954

728
2973

5284

5284
10654

10654
13674
18174

5304
10904

18644

S36#
11154

18694

6364
11564

18734

6384
11574

19264

6704
11934

19564

6934
11944

22964

2618X

2L19K

2467K

25144

25614

26094

11494

11854

12194

12574

12954

13304

13624

8214
16244
17764

9894
14654
18104

10054
14904
18564

10374
15134
19114

10634
15454
19234

10884
15544
19534

11134
15884
19794

19914

6954
12264

27088

28084
13934

20074

7054
12274

28424

14254

7074
12644

2B43N

17524

2843M

7154
12654

2924m

2924

7174
13004

2937

21224

2937
5044

9784
13014

2947H

21964

2947
S16#4

1013#
13354

295784

2220w

29578
5184

10354
13364

29724

20634

20664

20984

21014

23934

24574

25034

25514

25964

25994

26984

20634
29314

20664
29324

20984
29334

21014
29354

23934
29564

24574

25034

25514

25964

25994

26984

18454

18484

18584

20514

20544

4254
5324

4274
S34n

4340
5424

L3640
SN

4414
5514

L4430
6364

744

2984

3954

401

4034

4084

4104

L1640

4184

10954
13004
146784
17314
19954

11154
13014
1472
17804
20074

11204
13064
14934
1785#
20114

23014
2843w

11564
13354
14984
18174
2032«#

24,184
284BH

S16#4
9784

5184
10134

14304
1893«
2393
29724

1149%
154

7114
11574
13364
15164
18224

MS$GETS

1113
1257

H 10
30A(1052)
17-DEC-79
14:01
PAGE 4-1
CROSS REFERENCE TABLE == MACRO NAMES

2101

2063

10394
13364
17804

MEDEFA
MSENDE

1088
1219

MACY11

11854
174

7154
1162¢
13614
15214
18644

12194
21x

7254
11938
13674
15584
18694

12574

224

9744
11944
13684
15634
18734

12954

24N

9784
11994
13734
16004
18934

13304

10194
12264
13984
16054
18984

13624

4524
6414

10394
12274
13994
16454
19264

13934

3934

454N
6704

10444
12324
14044
16494
19314

14254

4614
6724

10654
1264#
16304
1698F
19564

17524

5064
6744

10704
12654
1431
17024
19614

5084
6934

10904
12704
14364
17264
19914

S164
6994

5204
7014

20374
QL19K

20794
2424N

20804
2467A

20854
2672K

21224
2514K

21274
2519

21964
25614

22014
25664

2220
26094

22254
2614k

22504
27084

22554
27134

22964
28424

194
528#

70
5304

2954
5364

3884
S464

401#
636#

4084
6384

L4164
6704

4254
6934

L340
6954

3L
7054

4524
7074

LO1N
7154

5044
7174

19264

19564

19914

11154

13014
15164
20074
251644

11494

13304
15584
20324
25614

11564

13354
16004
20634
26094

11574

13364
16454
20664
2708x

11854

1362#
16984
20794
2842k

11934

13674
17264
20804
2843x

11944

13684
17804
21224
2924k

5224
7054

12194

12268

12278

12578

13934
18174
21964
29378

13984
18584
22204

13994
1864#
22504

14254
18694
22964
29574

2947

2955e

5284
7094

1264#

11994
17314

1232#
17854

23014

2424k

403

5224
6324
699
10194
1088¢
11624
12578
1361
14254
15164
16454
17604
18564
19244

5324
6364
7014
10294

18694
19504

eIy

1644
17674
1858#
19264

~ O -—

10894
1173
12644
1351#
14304
1521

b cd

4524

b acd

4S50

10654
11484
12274
13294
13994
14934
16054
17314
18364
19124

13984
L1
12274
17804
24194

615#
6744
8214

13674
4524
11944
17264
22964

74H

20754
22464
23454
24184
25034
2596w
2708#
27904
2893«
2937#

MSHAPT

1029#
11054
12094
13174

MSGNTE

10904
11944
13014
1399#
15164
16854
18104
19114
19884

ol
Je 1o 3V, ]

20734
22434
23428
264034
25004
25904
27054
27864
28874
29354

MSGNL
S
MEGNTA

LW2o7n
46

10894
11934
1300#
13984
15134
16778
18044
1908#
19854

6764

10054

20324
21904
22934

9994

16004
17584
1858#
19534

6144

670#

4220
W73

12574

S582#

4164
4724

14254

25964
3954
5494
29734
4254
S08#
6194
6834

9784

13624
14654

MSHNAP
M$INCR

S6N
6594

13934

2551a
3934
5424
2953

TES gele RR

643a
7384
10634
11494

L0
LO7N

740

13624

25034
2984
5344
29514

224

LO6N

13304

2457

7254

12574

2101»
220
5204
Q74LM

SSon

1219#

2098#
Pal
S08#

454
7094
174
4o1n

11854

MSGNIN

20634
15#

SEQ 0125

d ek

MSGNGB

11494

110

PAGE 4=2
16:01
17-DEC=79
30A(1052)
CROSS REFERENCE TABLE =-- MACRO NAMES

O QO NN
NN —

MSGETT

MACY11

C(ZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

CZRLGBO RL11/RLVI1 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39

19794

20514
2185#
22814
23594
24434
25144
25964
27054
27834
MSLDRO
MEMCH]
MEMCLO
M$POP

28814
SSLN

5284

720
5304

11084
14
1
194

10394
13364
17804

M$PRIN

19804

20544
21504
22874
23674
446N
25194
25994
2708+
27864
2884¥
5584

22504
29724

M$PUSH

14504

10654
13674
18174

M$SvC

22174
22944
23784
26574
25394

20044
20754
22254
23014
2384k
26678
25484
2034k
27468
28094
29054
6524

20074
20794
22404
23194
23904
24724
25514
26728
27498
28274
29124
6594

20114
20804
22434
2324k
23934
24864
2558«
26764
27524
2828«
29164
6684

20274
21014
22554
23454
24184
24954
25814
26864
2764H
28484
292¢4

19704

20244

4164

4254

434n

11934
16314
19564

11944
14677
19914

12264
14934
20074

4614
7154
12654
16004

19154

6704

6934

6954

1083

5184
10134
13354
17264

27084

20804
29244

22204
29574

4224

4664

4674

4684

4734

6654

24m
5con

4034
6414

4104
6724

4184
674N

4434
7094
12424
15634

508+
9744
13064
17024

11624
14144
19314

11734
14368
19614

1199
14724
19954

20584

21274
29284

22014
29514

25194

25664

2614A

4
11054
4
11054

Lo7n

4684

4“73A

6434

467N

4684

L4734

6434

29548

29564

4034
6414
11624
14140
19314

4104
6724
11734
14364
19614

25664

2614A

L3140

L34

Le1n

11054
12094
13174
16144
1545
16864
18124
19124

5S84
6684
10324

11084
1218
1329
1424
15464
1693
18174
19154

28484

4184
6740
11994
14720
19954

25194
5544
6654
10294

18694

19204

2037#
2127#»
22774
23564
24400
2511»
25904
26984
27804
28784
2953#

26094

22554

MSRAD|
MSRNRO
M$SETS

19914

20664

SEQ 0126

25614

10444

MSPUT1

19884

20634

J 10
17-DEC=79
30A(1052)
14:01
PAGE 4-3
CROSS REFERENCE TABLE =~ MACRO NAMES

22964

13414
17854

MSPUT

MACY11

5604
6704
1037

1113
12194
13304
14254
1554
16984
18364
19204

314
45N

CZRLGBO RL11/RLVIT CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
19704

METLAB

20544
22174
23194
23904
24854
25814
26904
27734
28784
4014
Y

6324

7364
10654
11574
12654
13684

14864

16334
17674
18694
19704
2054#
22174
23154
23904
2485

25814
26904
7730

MSTSTL

28784

«01¥
4674

6324

7364
1065#
11574
12654
13684
14864

16334
17674
18694

M$WORD

1979

20634
22404
2327w
2402

MACY11

K 10
17=-DEC=79
30A(1052)
14:01
PAGE 4~
CROSS REFERENCE TABLE == MACRO NAMES
1988

19914

20044

SEQ 0127
20324

20754
22504
23484
LI
2511
25994
27234
27954
28964

20794
22684
23514
2440
25144
2606
2728¢
27994
2904

20804
2276
2356w
2443H
2533
26094
273w
2808
29054

2294N
23814
24674
2558
26834
764N
28604

5534
oS

5544
6654

SS8#
6684

6234

4254

10054
10904
11944
13014
1399#
15164
16854
18104
19114
19884

20754
22504
3480
241
25114

4“3

10294
11054
12094
13174
10164
15454
16864
18124
1912¢
19914

20794
22684
23514
26408
25144

434m

L4634

10324
11084
12184
13294
1424n
15464
16934
18174
19154
2004w

10634
11494

20804
22764
23544
2443M
253%

25994
27238
27954

6064
27284
27994

26054
27314
2808+

4254

4“3

L340

28964

553
6Sn

10054
10904
11944
13014
13994
15164
16854
18104
19114
19884

20754
22504
3484
24194
25114
25994
27234
27954
28964
10374
15134

29044

5544
6654

10294
11054
12094
13174
14144
15454
16864
18124
1912#
19914

20794
22684
23514
264404
25144
26064
27284
27994
29044
1063#
15454

29054

S58#
6684

10324
1108+
12184
1329#
1424
15464
16934
18174
19154
20044

20804
22764
23564
24434
2533
26094
27314
28084
29054
10884
1554»

7154

12574
13624
164654
16004
17584
18584
19534

20324

2294H
23814
26674

2558+

26834
27644
28604

4634
6234
7154
10634
11494
12574
13624
14654
16004
17584
18584
19534

20324
22944
2381#
24674
2558#
26834
27644
2860#
12944
16854

25614

27724
28634

10¢ 44

CZRLGBO RLT1/RLVIY CTLR TST 1
CZRLGB.MAC
07-DEC~-79 07:39
17584

17674

17764

MACY11
18104

L 10

30A(1052)
17-DEC~79
14:01
PAGE 4-5
CROSS REFERENCE TABLE -- MACRO NAMES
18564

19114

19234

19534

19794

SEQ 0128

22934
29334

23674
2934k

26024
29354

24644
2954

25114
29554

25584
29564

26064
2973

27054

2772m

2B08A

19884

20274

20734

21194

21894

22764

613
736
632
554

622

450

457

463

466

467

468

469

472

473

619

657

665

2B278

2904

29304

29314

2932«

MEXFER
POINTE

29554
13

SETPRI
SETVEC
STARS

676
630
1020
1238
1500

558
1450
643
1025
1272
1504

560
1804
1029
1047
1276
1523

569
1839
1055
1052
1308
1529

1903
1C80
1071
1313
1564

1908
1105
1076
1343
1570

1915

1920

1970

1976

2019

2024

2268

2289

1096

1101

1124

1129

1164

1169

1201

1205

1233

2091
252;

2130
2525

2136
2568

2202
2572

2206
2617

2228
2625

1999

2013

2016

2040

2044

2087
247g’

XFERF

2955

PRINTB
PRINTF
READBU
READEF

1797

ABS.

024612

ERRORS DETECTED:

1824

1828

1876

000
O

,CZRLGB.LST/CRF-SVC33/ML,(ZRLGB.MA(

RUN~TIME:

97 94

RUN-TIME RATIO:
CORE USED:
15K

12 SECONDS

518/204=2.5
(29 PAGES)

1882

1933

1347
1608

1939

1375
1614

1962

2232
2714

1379
1652

1967

2258
2719

1406
1657
1996

2262
2850

1410
1706

2306
2853

1438
1711

2315

1447
1733

2428

1474
1736

2431

1478
1787

2475