Digital PDFs

AH-F110B-MC

March 1980

129 pages

Original

67MB

view download

OCR Version

99MB

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

OCR Text

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

SEQ 0001

.REM a

IDENTIFICATION

THE

PRODUCT CODE:

AC=F111B-MC

PRODUCT NAME:

CZRLGBO RL11/RLV11

DATE CREATED:

5-JAN-79

REVISED:

7-DEC-79

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

D. DEKNIS, C.

INFORMATION IN THIS

DOCUMENT

CONTROLLER TEST 1

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
SYSTEM,
EXCEPT AS MAY OTHERWISE BE PROVIDED IN
WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
fic?gkl{ABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

-o

TABLE OF

.1
1.1.}
1.2
1-2
1.2.1
1.2.2

- b wd

N —

nN—

DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS

HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS
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

PROGRAM ABSTRACT
STRUCTURE OF PROGRAM

DEVICE INFORMATION TABLES

nN =

rorno

o
WWO
£HPO

W
&~

RV
[o

GENERAL INFORMATION

OPERATING INSTRUCTIONS

N.C)

WV NNDWNONN
=

.4
.S

CONTENTS

TEST SUMMARIES

PAGE 2

SEQ 0002

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

.11

STRUCTURE OF PROGRAM

1
PAGE 3

THIS DIAGNOSTIC IS COMPATIBLE WITH BOTH XXDP+ AND ACT.
IT
(AN BE
RUN STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP+, 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
IS
APPENDED
TO
A
COMMON
FRONT-END PIECE OF SUPERVISOR SOF TWARE 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

CHARACTER

gzggzuehrl}u%g”SEVERAL

(DR>).

COMMANDS

AT COMMAND MODE THE OPERATOR MAY

DESCRIBED

2.0

‘DPERATING

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.%.2

DIAGNOSTIC

INFORMATION

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

IS A PDP=-11 (LSI-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
THE
CONTROLLER
DEFAULT ALSO EXERCISES THE DRIVE.

1.2

SYSTEM REQUIREMENTS

THESE

AREAS,

WHICH
IT IS

BUT

SEQ 0003

1.2

PAGE &

HARDWARE REQUIREMENTS

* PDP=11/LSI=11 PROCESSOR WITH 16K OR MORE OF MEMORY

* CONSOLE DEVICE (LA30,LA36,VTS50,ETC.)
* 1 OR 2 RL11/RLV11

CONTROLLER(S) WITH:

1 = 8 RLO1 DRIVES WITH RLOTK CARTRIDGES CONTAINING
SECTOR FILE'
1 = 8 RLO2 DRIVES WITH RLO2K CARTRIDGES CONTAINING
SECTOR FILE'’

‘'BAD

'BAD

* LINE PRINTER (OPTIONAL)
1.2.2

SOF TWARE REQUIREMENTS

CZRLGBO RL11/RLV11 CTLR TST 1
(FORMERLY CZRLAB)

1.3

RELATED DOCUMENTS AND STANDARDS
RLOT1 DISK SUBSYSTEM USER'S GUIDE
XXDP+/SUPERVISOR USER'S MANUAL

1.4

(EK-RLO1-UG-002)

DIAGNOSTIC HIERARCHY PREREQUISITES

THE RLO1/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

PROGRAMS
:

CVRLABO
1.5

THE

FOLLOWING

RLV11 RLOT DISKLESS TEST (RLV11 ONLY)

ASSUMPT IONS
THE HARDWARE OTHER THAN THE RLO1/02 SUBSYSTEM IS

PROPERLY.

FALSE ERRORS MAY BE REPORTED

NOT FUNCTION PROPERLY.

2.0

RUN

OPERATING INSTRUCTIONS

ASSUMED

THE PROCESSOR,

WORK

ETC.,

SEQ 0004

1
PAGE 5
2.1

g. 1.1

THE FIVE STEPS OF EXECUTION

THIS DIAGNOSTIC SHOULD BE LOADED AND
STARTED
USING
NORMAL
XXDP+
PROCEDURES.
START THE EXECUTION OF 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 NNK
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?

LS1?

N
N

THE DEFAULTS ARE BOTH 'NO''.
THE PROGRAM.

THE
RESTART
FOLLOWING
TWwO

DO NOT

WHEN THIS DIAGNOSTIC

TYPE

TYPE 'R'' AND THE PROGRAM NAME

THE EXTENSION.

IS STARTED,

L2 222

THE

RUN

FOLLOWING STEPS WILL OCCUR:

22223

* STEP1 »
Le 2

a88823
d

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
FC’RG‘PT
:tS)DEBEING
IN
DIAGNOSTIC COMMAND MODE, AS OPPOSED TO XXDP+
AT THIS POINT YOU WILL ENTER A ''START'' COMMAND.

THIS

NOT

THE

HOWEVER,
IN
ORDER
SOMETHING LIKE THIS:

YOU NEED TO SAY IS

SAME AS
THE
XXDP+
°‘'START'' COMMAND, WHICH YOU ALREADY ISSUED IN
RESPONSE TO THE XXDP+ DOT PROMPT.
THIS ''START'' COMMAND CAN 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''.
TO

USE

STA/PASS:1/FLAGS :HOE

THE

PROGRAM,

ALL

SEQ 0005

THINGS

TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF
THE "DR>'' LEVEL NEED TO BE TYPED.

(OMMAND

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

PASS

CONSISTS

THIS OR ANY

RUNNING THE FULL DIAGNOSTIC AGAINST ALL

UNITS BEING TESTED (THIS WILL BE EXPLAINED
PASS

PAGE 6

IS SPECIFIED

THE 'FLAGS'' SWITCH MAY SPECIFY ANY OF A

NUMBER

BUT THE MAIN USEFUL ONES ARE:

PNT

LOE
HOE
IER

SHORTLY).

IN THE ABOVE EXAMPLE.

ONE

FLAGS,

PRINT NUMBER OF TEST BEING EXECUTED
LOOP ON ERROR
HALT ON ERROR

INHIBIT ERROR PRINTOUT

THE
HOE FLAG IS SPECIFIED IN
SHORTLY).

THE

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

THE DIAGNOSTIC WILL

COME

L2222 22232

* STEP 2 «
LA s

28l sl

WHEN YOU HAVE TYPED IN A ''START'' COMMAND,

BACK

WITH

THE

QUESTION "% UNITS?"' TO WHICH YOU SHOULD RESPOND BY

TYPING IN THE NUMBER OF

A WORD OF WARNING HERE:

DEVICE
OF
DIRECTED AT
NUMBER
OF
DIRECTED AT
THE
NUMBER

DEVICES YOU WISH TO TEST.

THE NUMBER OF UNITS DEPENDS ON THE

TARGET

THE
DIAGNOSTIC.
FOR
EXAMPLE,
IF
THE DIAGNOSTIC IS
A DISK DRIVE, THEN THE NUMBER OF
UNITS
WOULD BE
THE
DRIVES
TO BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD
BE
OF CONTROLLERS.
THE TARGET DEVICE OF A DIAGNOSTIC CAN

ALWAYS BE DETERMINED BY INSPECTING THE 'HEADER'®' STATEMENT NEAR
THE
BEGINNING OF THE SOURCE CODE.
ONE OF THE OPERANDS OF THIS 'HEADER''
STATEMENT SHOULD BE THE DEVICE TYPE OF

THE DIAGNOSTIC.

AR
A ATk

* STEP 3 »

ARk Ahhhhhd

WHEN YOU HAVE

DIAGNOSTIC

TYPED IN THE

WILL

NUMBER

THESE QUESTIONS ARE USED TO BUILD TABLES

?E;?glfifsn.

UNITS

ASK YOU THE 'HARDWARE QUESTIONS''.
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 7

SERIES WILL

DIAGNOSTIC

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.

Ahh Ak

* STEP 4 =
L222822
ad ]

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS

ALL

THE

ASKED THE

UNITS,

YOU

(SEC

2.5)

FOR

THIS

WILL BE ASKED '‘CHANGE SW?'‘ IF YOU WANT TO BE

SOF TWARE QUESTIONS THAT DETERMINE THE

BEHAVIOR

PROGRAM,
TYPE
'Y''.
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE
QUESTIONS, TYPE 'W''.
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 P-TABLE IN THE PROGRAM.
THE SERIES OF QUESTIONS WILL
BE
ASKED JUST ONCE, REGARDLESS OF

THE NUMBER OF UNITS TO BE TESTED.

ARk hkhhhkk

* STEP 5 «
AR ARk h

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS,

THE DIAGNOSTIC WILL

THAT CAN HAPPEN NEXT,

HARDWARE

BEGIN

TO EXECUTE THE HARDWARE TEST CODE.
DEPENDING ON

WHETHER

THERE ARE SEVERAL THINGS
A

ERROR

ENCOUNTERED
AND
ALSO ON WHAT
SWITCH VALUES YOU SELECTED ON THE
START COMMAND.
CONSIDER THE POSSIBILITIES:
1.

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

mggNS.

ENCOUNTERED,

DEPENDING

THE

THEN

ONE

SETTINGS

THREE

THINGS

THE HOE AND LOE

HOE SET:
THE ERROR WILL BE REPORTED ON THE CONSOLE AND THE
DIAGNOSTIC WILL RETURN TO COMMAND MODE.

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

THE

BLOCK

NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON THE
(C)(C)Elag’L?EDAND NORMAL EXECUTION WILL RESUME AS IF NO ERROR HAD

SEQ 0007

Vol

PAGE 8

SAMPLE RUN=THROUGH

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.
RECALL
THAT WE
ENTERED
THE
COMMAND ‘'STA/PASS:1/FLAGS:HOE''.
THIS WOULD BE A VERY
TYPICAL WAY TO RUN THE DIAGNOSTIC.

;PE‘IEISELIENSLE

IF AN ERROR IS ENCOUNTERED,

PROMPT

WILL

IF NO ERRORS

ARE

REISSUED

THE ERROR
(BECAUSE

WILL

THE HOE FLAG

REPORTED

IS SET).

28{'14'3 THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE

2.
3.

THE MOST

AND

PROGRAM

THE

THIS

GOING

ISSUE ANOTHER ''START'' COMMAND (THUS GOING THRU ALL OF STEPS
1. 2. 3, 4, AND 5 AGAIN).

ISSUE A "RESTART'' COMMAND (SAME

START

THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

ISSUE A ''CONTINUE'® COMMAND (EXECUTION WILL

(OMMAND
RESUME

EXCEPT
AT

THE

BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE ERROR
HALT OCCURRED.

ENCOUNTERED,

REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE

NO QUESTIONS ASKED.

ISSUE A "PROCEED'' COMMAND:
EXECUTION WILL
RESUME
AT
THE
INSTRUCTION
FOLLOWING
THE ERROR REPORT (THIS IS A SPECIAL
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR).
TYPICAL

THING TO DO HERE

DIFFERENT FLAG SETTINGS.

IS TO

ISSUE

THE PROCEED,

PROBABLY YOU WOULD WANT TO SAY:

BUT WITH

PRO/FLAGS: IER:LOE :HOE=0
THIS WILL DO THE FOLLOWING:

TURN ON THE

IER

(INHIBIT ERROR PRINTOUT)

FLAG

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME 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 OCCUR.
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 WILL TAKE YOU
?UH;EEOE'HO}?ESLOOP AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE

START

RESTART

CONTINUE

LET'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 RESTORE

EXECUTION

THE

THE FLAGS

TO THEIR

BEGINNING OF

ORIGINAL

THE ERROR DOES NOT RECUR, THE EXECUTION WILL
THE NEXT ERROR OR TO END OF PASS.

START

RESTART

AND

RESUME

IN.

FLOW RIGHT ON THRU

IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC

TWO CHOICES:

VALUES

THE HARDWARE TEST YOU WERE

AGAIN,

YOU

HAVE

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE
HARDWARE QUESTIONS AGAIN.

SEQ 0009

THE FULL PRINT=OUT FROM THE ABOVE DIALOGUE
(0O=0PERATOR, D=DIAGNOSTIC):

MIGHT

.R CZRLGB
DRS LOADED
DIAG. RUN-TIME SFRVICES REV D APR-79

0
D
D

CZRLG TESTS CONTROLLER FUNCTIONS,
INTERFACE LOGIC, REGISTER OPERATION

RL1T

(L)

Y ?

CHANGE SW (L)

I
T
T
L

(0) 0 ? 1

? Y

DROP ON ERROR LIMIT

DRIVE

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
BR LEVEL (0) 5 ?
DRIVE TYPE = RLOT1 (L) ? ¥

UNIT 1

(L)

(L) N ?

000000

OO0

BR LEVEL (0) 5 ?
DRIVE TYPE = RLO1
DRIVE (0) 0 ?

174400 ?

160 ?

VECTOR (0)

O0O0D0DO0UO0O0

Y ?

BUS ADDRESS (0)

(L)

? 2

RL1T

(D)

UNIT O

# UNITS

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

O00D0D0D0D

O0000O0

CZRLG-B-0

(N=RL02)

(N=RL0O2)

CZRLG HRD ERR 00004 TST 003 sSuB 002 PC:004130
ERR HLT
DR>PRO/FLAGS : IER: LOE : HOE=0
A

AR AR

D.O

AR AR AR A A A AR AT AR AR A AR R AR AR AR A AR AR RN A&

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

ittt

iiii ittt

LOOK

TIz2323 23

PAGE

THIS

SEQ 0010

2.2

g°

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

0.0

CHANGE SW (L)

D.O

? N

E%RLG EOP 1

DR>RESTART/PASS:1

0.0

CHANGE SW (L)

D.O

? N

PAGE

EXECUTION

CHAIN MODE OPERATION

CHAIN MODE

OPERATION

CONSISTS

THE

SEQUENTIAL

PROGRAMS
WITHOUT
OPERATOR
INTERVENTION.
ONLY PROGRAMS THAT HAVE
BEEN MODIFIED TO RUN IN
CHAIN MODE
CAN
BE
CHAINED.
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 IN THE FILE.
TO EXECUTE A CHAIN FILE

THE USER TYPES:

C FILNAM <CR> OR

C FILNAM/QV<CR>

IN THE FIRST CASE THE PASS COUNT SPECIFIED IN
THE
CHAIN
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,

THE SOFTWARE

SWITCH

SHOULD BE
SET
TO 000000.
THE XXDP+ MONITOR PRINTS EACH COMMAND
TAKEN FROM THE CHAIN FILE AND THEN EXECUTES THE COMMAND.
WHEN
THE
LAST
COMMAND OTHER
THAN 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
IS
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.

£.3

DETAILS OF COMMANDS AND SYNTAX

2.5.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 COMMANDS

'RUN DIAG'

START
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

RESTART
PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART
CONT INUE

START

DISPLAY
FLAGS

ZFLAGS
EXIT

SEQ 0012

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET

1
PAGE 13

START
RESTART

CONT INUE

PROCEED
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

2.3.2

COMMAND SYNTAX

LA AR

ittt

sttt

ittt

iiiiiissy

STA(RT) /TESTS:TEST=LIST/PASS :PASS=CNT/FLAGS :FLAG-LIST/EOP:EOP-INCR
LAA A

s dd

sttt il

THE DIAGNOSTIC

SPECIFIED.

MAY BE

dst

IN CORE

THE

ittt

iii

ittt

eiiitiiailsy

IS EXECUTED IN ACCORDANCE WITH THE

MESSAGE '# UNITS?'' IS PRINTED.

SWITCHES

THE START COMMAND

ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

OF THE FOLLOWING:
A) OPERATOR TYPED 'RUN DIAGNOSTIC'® B) DIAGNOSTIC
FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE
FLAG
SET
D)
OPERATOR
ENTERED
CONTROL/C.
AFTER
THE
OPERATOR RESPONDS TO ‘%

UNITS?"', THE HARDWARE DIALOGUE IS INITIATED.

THE
QUESTIONS
‘'‘CHANGE
BECOME THE NEW DEFAULTS.

WHEN IT IS COMPLETED,

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

PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.
THE 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 THE DIAGNOSTIC.
THEY MAY BE
SPECIFIED IN ANY ORDER.
TESTS WILL BE EXECUTED IN NUMERICAL
ORDER
REGARDLESS

THE

EXECUTE ALL TESTS.

ORDER

SPECIFICATION.

THE

DEFAULT IS TO

"PASS=CNT'* IS A DECIMAL NUMBER INDICATING
THE
DESIRED NUMBER
OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE
DEFAULT
IS
NON-ENDING
TEST EXECUTION.
‘FLAG-LIST'' IS A SEQUENCE OF ELEMENTS
OF THE FORM <FLAG>, <FLAG=1>, OR
<FLAG=0>,
SEPARATED
BY
COLONS,
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:
HOE HALT ON ERROR,

CAUSING COMMAND MODE TO BE ENTERED

ERROR IS ENCOUNTERED

WHEN

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
CONTINUOUSLY
WITHIN
THE
SMALLEST
DEFINED
BLOCK
OF
CODING (SEGMENT,
SUBTEST, OR TEST) CONTAINING THE ERROR

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
EQUATED
TO 0 ARE
CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
IF THE FLAGS SWITCH IS
NOT GIVEN ALL FLAGS ARE CLEARED.

"EOP-INCR'' IS A DECIMAL NUMBER INDICATING HOW OFTEN

(IN

TERMS

AR IR RERRRRN RS

PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED.
DEFAULT IS AT THE END OF EVERY PASS.
R

R AR AR AR AR AR AR AR AR RN RN AR RR AR RN

THE

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

UNITS:UNIT-LIST
LA

ddd

ittt

iiiiad

sttt asdiiddsdy

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SPECIFIED.

HOWEVER,

ONES IN CORE ARE USED.

NEW

‘P-TABLES'' ARE NOT BUILT.

SWITCHES

INSTEAD, THE

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

SEQ 0014

PAGE 15

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

"UNIT=LIST'' IS A SEQUENCE OF LOGICAL UNIT
FROM 1

NUMBERS

RANGING

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-TABLE 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.
2.

AR A AR AR

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

AR A AR AR

AR Ak

CON(TINUE) /PASS : <PASS=CNT/FLAGS : <FLAG-LIST>
ARARARARA A AR A AR

AR AR

AR ARk

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

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

DEFAULT FOR PASS=CNT IS THE UNSATISFIED PASS-CNT
PREVIOUS START OR RESTART

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

FROM

THE

ARAAAAAAA
AN AR A A AR
d

PRO(CEED)
/FLAGS : <FLAG-LIST>
AARAAAAAAAAA
A AR AR AN

COMMAND MODE MUST HAVE BEEN ENTERED
VIA
A
HALT
ON_
ERROR.
THE
EFFECT OF
THE
COMMAND
IS
TO BEGIN EXECUTION AT THE LOCATION
%Lglfirg'ggofm CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
THE SWITCH ARGUMENTS ARE

THE SAME AS THE START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

L8
2 24

EXIT
2 2
LA

RETURN TO XXDP+ PROMPT MODE.

SEQ 0015

PAGE 16

AARARA
R AR AR AR AR AR AN

DRO(P) /UNITS:UNIT=LIST
AARA AR

AR A AR

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
g¢C§ PI%ClE’E‘gIL A START COMMAND IS GIVEN.
A DROP CANNOT BE FOLLOWED

THERE IS 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.
L2222
d i diddddddd]

ADD/UNITS:UNIT-LIST
AARAARA
AR A A AR A AR

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN
PREVIOUSLY
DROPPED BY
THE DROP COMMAND) TO THE TEST SEQUENCE.
AN ADD CANNOT
BE FOLLOWED BY A PROCEED.
AN

PRI(NT)
LA 2

ALL STATISTICS TASLES ACCUMULATED BY THE
THE

ISR

(INHIBIT STATISTICAL REPORTING)

DIAGNOSTIC

ARE

FLAG IS CLEARED.

PRINTED.

AARRAAR
A AR AR AR AR A AR AR
n

DIS(PLAY) /UNITS:<UNIT=-LIST>
AAARAA AR

AR AR AR

AR A AR

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 2 4223

FLA(GS)
LA 2

2 2

THE CURRENT SETTINGS OF ALL
L2222332

ZFL (AGS)
AARARARRY

ALL FLAGS ARE CLEARED.

FLAGS ARE PRINTED.

SEQ 0016

2.4

PAGE 17

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

REVEALED

THE

AS SOON AS THE QUESTION '# UNITS?'' IS ANSWERED (WITH THE NUMBER N),
SPACE
IN CORE IS ALLOCATED FOR 'N'' P-TABLES.
ALL OF THE P-TABLES

ARE OF THE SAME FORMAT, AND THERE IS
A ONE-TO-ONE
CORRESPONDENCE
g5¥£fg FTME 7l-iARl.MvIARE
PARAMETER
QUESTIONS
AND
THE SLOTS IN THE

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).
IF
THE
VALUES
REPRESENT
PURE
NUMERICAL
DATA,
THIS
SAMPLE
RANGE
TRANSLATES TO THE STRING 6,7.8,9,10 (AN INCREMENT OF
1).
IF
THE
VALUES ARE
ADDRESSES,
THE
SAMPLE RANGE TRANSLATES TO THE STRING

6.8.10 (AN INCREMENT OF 2).

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 THERE

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

THIS

RLOX

DRIVE

P-TABLE,

SYSTEM.

THIS

SYSTEM HAS
TWO
(2)
RL11
TYPE
CONTROLLERS ALL TO BE SET AT 'BR
LEVEL'® 5.
THE FIRST 4 DRIVES ARE RLO1'S AND THE LAST 4 DRIVES ARE
RLO2'S (ON THE SECOND CONTROLLER):
_# UNITS

UNIT O

RL1T

(L)

(D)

? 8

Y ?

BUS ADDDRESS (0) 174400 ?
VECTOR (0) 160 ?
BR LEVEL (0) 5 ?
DRIVE TYPE = RLOT1 (L) Y ?
DRIVE

(0)

UNIT &
RL1T

(L)

? 0-3

v ?

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ?
BR LEVEL (0) 5 ?
DRIVE TYPE = RLO1
DRIVE (0) ? 0-3

(L)

Y ? N

SEQ 0017

F
THE FIRST TIME

THRU THE P-TABLE QUESTIONS THE

DEFAULT

PAGE 18

VALUES

ARE

USED FOR
THE
CONTROLLER
TYPE
(QUESTION #1), CSR ADDRESS OF THE
CONTROLLER
(QUESTION #2),
THE
CONTROLLER
VECTOR
ASSIGNMENT
(QUESTION #3),
THE
DRIVE
TYPE (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 TYPE WAS SET FOR RLO2'S FOR THE REMAINING 4 UNITS
IN

%SH%T giSS

2.5

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

HARDWARE PARAMETERS
THE FOLLOWING QUESTIONS WILL BE ASKED

VALUE LOCATED TO THE LEFT OF
THAT WILL BE

RL1T

(L)

BUS ADDRESS (0)

YOU HAVE AN RL11

COMMAND.

VECTOR (0)

CONTROLLER,

NO(N)

174400?

ANSWER WITH THE BUS ADDRESS OF

THE

CONTROLLER.

160?

ANSWER WITH THE

(0)

INTERRUPT VECTOR OF

INTERRUPT PRIORITY OF

DRIVE TYPE = RLOT
ANSWER NO (N)

THE CONTROLLER.

ANSWER WITH THE

DRIVE

START

THE

TAKEN ON A CARRIAGE RETURN RESPONCE.

CONTROLLER.

BR LEVEL

¥?

ANSWER YES(Y)

RLV11

THE QUESTION MARK IS THE DEFAULT VALUE

(L)

IF DRIVE

THE CONTROLLER.

?
IS AN RLO2

(0) 0?

ANSWER WITH THE DRIVE(S)

CONNECTED TO THE CONTROLLER.

YOU HAVE

SEQ 0018

2.6

PAGE 19

SOF TWARE PARAMETERS
THE FOLLOWING QUESTIONS ARE ASKED

CONTINUE.

BEHAVES.

THEY

ALLOW

REQUESTED ON A START,

FLEXIBILITY

THE

THE SOF TWARE PARAMETERS GIVE THE PROGRAM

WAY

RESTART,

THE PROGRAM

FLEXIBILITY

THE
WAY
IT
RUNS.
THE
PARAMETERS
CAN
BE MODIFIED ON A START,
RESTART, OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:

"'CHANGE Sw ?''
A YES ANSWER WILL ASK THE FOLLOWING
SOFTWARE
PARAMETER
QUESTION,
WITH
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN
ON A <CR>.

"DROP ON ERROR LIMIT (L)

v?**

TO ALLOW THE UNIT TO BE DROPPED
ERRORS ARE ENCOUNTERED.

ONCE

3.0

PREDETERMINED

NUMBER

ERROR INFORMATION
ALL ERRORS ARE PRINTED VIA
CONSOLE
DEVICE.
THE
ERROR
INCLUDES
ERROR
NUMBER, TYPE AND PROGRAM LOCATION.
ERRORS INCLUDE REGISTERS
BEFORE AND AT ERROR WITH RELEVENT DATA.

3.1

ERROR REPORTING
ALL ERROR

INFORMATION

TEP(FTS

ARE

AIMED

DZRL?

XXX

ERR

IS PRINTED

THE

CONSOLE

AT BEING SELF EXPLANATORY.
YYYYY

TST

27Z

SUB

PPP

DEVICE.

P(:

RRRRRR

:
WHERE
?
XXX

YYYYY

277

PPP

RRRRRR

IS PROGRAM LETTER
IS SFT = SOFT ERROR
HRD = HARD ERROR

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

THE ERROR NUMBER

THE

ERROR

THE GENERAL FORMAT

IS THE TEST NUMBER

SUBTEST NUMBER

IS THE PROGRAM LISTING LOCATION

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

SEQ 0019

2
PAGE 20

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

ERROR:

CS:XXXXXX BA:XXXXXX DA:XXXXXX MP:XXXXXX

XXXXXX XXXXXX

ERROR HALTS
ERROR HALTS ARE SUPPORTED PER DESCRIBED
IN
WITH /FLAG:HOE.
THERE ARE NO OTHER HALTS.

4.0

PERFORMANCE AND PROGRESS REPORTS

4.1

PERFORMANCE REPORTS

THE

SECTION

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

4.2

PROGRESS REPORTS
THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.

DEVICE INFORMATION TABLES
THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.

|
A
I
R

1
1
1
1

=
VIOANN0O

I
-

—

BIT 1
—

BIT
BIT
8IT
BIT

NWHsW»

RLCS = CONTROL AND STATUS REGISTER

—

(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)
DATA CRC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE

= DRIVE SELECT (0-3)

CONTROLLER READY
INTERRUPT ENABLE
EXTENDED BUS ADDRESS (BIT 17)
& - EXTENDED BUS ADDRESS (BIT 16)
LI I

5.0

IT 3-1 - FUNCTION CODE

REGISTERS

FOR

SEQ 0020

NOWVSs
W =O

SEQ 0021

BIT

NOP (PDP=i1) MAINT (LSI=11)

WRITE

CHECK

GET DRIVE STATUS
SEEK
READ HEADER
WRITE DATA

READ DATA
READ WITHOUT HEADER COMPARE

O - DRIVE READY

RLBA = BUS ADDRESS REGISTER (XXXXX2)
BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT O SHOULD BE 0
RLDA = DISK ADDRESS REGISTER
FOR READ/WRITE

(XXXXX4&)

FUNCTIONS

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 (0)
2 - SEEK DIRECTION( 1=IN / 0=0UT )
1 - MUST BE ZERO (0)
O - MUST BE ONE (1)

FOR GET STATUS FUNCTION

BIT 15-4 - IGNORED SHOULD BE ZERO (0)
BIT
BIT
BIT
BIT

3
2
1
O

- DRIVE RESET
- MUST BE ZERO (0)
- MUST BE ONE (1)
- MUST BE ONE (1)

RLMP = MULTIPURPOSE REGISTER
FOR READ/WRITE FUNCTION

BIT 15 = 0 = WORD COUNT (TWO'S COMPLIMENT)

PAGE 22

FOR READ HEADER FUNCTIiON

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

(THIRD READ)

FOR GET STATUS FUNCTION
HAS DRIVE STATUS

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

15 = WRITE DATA ERROR
14 = CURRENT HEAD ERROR (CHE)
13 - WRITE LOCK STATUS (WL)
12 = SEEK TIME OUT (SKTO)
11 = SPIN ERROR (SPE)
10 - WRITE GATE ERROR (WGE)
9 = VOLUME CHECK (V(C)
8 = DRIVE SELECT ERROR (DSE)
7 - DRIVE TYPE IS RLO2 IF SET
6 = SURFACE (O=UPPPER, 1=LOWER)
5 = COVER OPEN
& - HEADS HOME
3 - BRUSHES HOME
2-0 -STATE BITS
1 = SPIN UP

2 = BRUSH CYCLE
3 - LOAD HEADS

1So = SEEK = TRACK COUNTING
SEEK = LINEAR MODE
6 = UNLOAD HEADS
7
SPIN DOWN

6.0

TEST SUMMARIES

TEST 1
LE 2

= RLCS ADDRESSABILITY

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 4, WHICH IS SET UP TO
HANDLE THE TRAP.

TEST 2 = RLBA ADDRESSABILITY
L2 2 23
2

THIS TEST WILL CHECK THAT THE BUS 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.

SEQ 0022

PAGE 23

TEST 3 = RLDA ADDRESSABILITY
LA A2 224

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 4 - RLMP ADDRESSABILITY
L2 2 3224

THIS TEST WILL

ACCESSED.

WILL

CHECK THAT THE MULTIPURPOSE REGISTER CAN BE

THE REGISTER CANNOT BE ACCESSED THE PROCESSOR

TRAP TO LOCATION 4, WHICH IS SET UP TO HANDLE

THE

TRAP.

TEST 5 = READ WRITE OF RLCS

hhkhh
Rk

THIS TEST WILL ATTEMPT TO WRITE RLCS BITS 9-1

BACK.

AND READ THEM

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

TROLLER READY)

?Hquggg?N.

IS ALWAYS WRITTEN AS A 1

BITS 15,

TEST 6 = READ WRITE OF

14 AND O ARE

BIT 7 (CON-

SO NOT TO INITIATE

TREATED AS DON'T CARE FOR

RLBA

Tk kok ok

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

IT IS LOADABLE.

TEST 7

READ WRITE OF RLDA

whkhkkh
N

THIS

BACK.

TEST WILL ATTEMPT

TO WRITE RLDA BITS

15-0 AND READ

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

THEM

TEST 8 - BIS OF RLCS
Ak
k k&

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?NZQg%EER READY)

IS ALWAYS SET.

BIT

BITS 15, 14 AND 1 ARE

SEQ 0023

PAGE 24

TEST 9 = BIC OF RLCS
LA 2

2 224

THIS 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 0'S AND 1°'S.
BIT

goéggNgzg%%ER READY) 1S ALWAYS SET.

BITS 15, 14 AND 1 ARE

TEST 10 - BIS OF RLBA
LA 2

22 24

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

- BIC OF RLBA

222328

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
L2 2 2222

THIS TEST WILL USE THE

READ-MODIFY-WRITE

INSTRUCTION 'BIS'' TO SHOW THAT A

SEQUENCE OF

THE RLDA WORKS.

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

BITS 15-0 ARE

TEST 13 = BIC OF RLDA
ARk
hkw

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

BIT CLEARED USING GROWING AND WALKING 0°'S AND 1°S.
TEST 14 = BUS RESET OF RLCS
L2 8 2222

THIS TEST WILL VERIFY THAT THE BUS RESET OF

THE PROCESSOR WILL

CLEAR ALL BITS OF THE RLCS WITH THE EXCEPTION OF BIT 7 (CONTROLLER READY), BIT O (DRIVE READY) AND BIT 15

IF BIT 14 (DRIVE ERROR)

IS SET.

(COMPOSITE ERROR)

SEQ 0024

PAGE 25

TEST 15 = BUS RESET OF RLBA
Ak
Rh kR

THIS TEST WILL VERIFY THAT THE BUS RESET OF

CLEAR ALL BITS OF THE RLBA.

THE PROCESSOR WILL

TEST 16 = BUS RESET OF RLDA

LA 2

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

THE PROCESSOR WILL

TEST 17 = UNIQUENESS OF RLCS
L2228224

THIS TEST WILL VERIFY THAT WHEN THE RLCS

ONLY THAT REGISTER IS EFFECTED.

(XXXXX0)

IS ADDRESSED

BOTH THE RLBA AND THE RLDA

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

THEN THE RLBA

TEST 18 = UNIQUENESS OF RLBA
Ak kRN

THIS TEST WILL VERIFY THAT WHEN THE RLBA (XXXXX2) IS 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
LA 2

2 233

THIS TEST WILL VERIFY THAT WHEN THE RLDA (XXXXX4)

ONLY THAT REGISTER IS EFFECTED.

IS ADDRESSED

BOTH THE RLCS AND RLBA ARE

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

TEST 20 = UNIQUENESS OF RLMP
hhhkhkkhkh

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

SEQ 0025

SEQ 0026

PAGE 26

TEST 21 = NOOP FUNCTION
L2223223

THIS TEST WILL VERIFY THE OPERATION OF THE NOOP (0) FUNCTION
ON PDP-11"'S ONLY, SINCE ON AN LSI=11 IT IS A MAINTENANCE
FUNCTION.
THE ABILITY OF CONTROLLER READY TO RESET AND NO
ERRORS ARE CHECKED.

TEST 22 = TEST NOOP DOES NOTHING
L2 2

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

INTERRUPT

KRR hRRN

THIS TEST WILL CAUSE AN INTERRUPT FROM THE CONTROLLER USING
NOOP (RL11 ONLY) TO CHECK THE INTERRUPT LOGIC AND VECTOR.
TEST 24 = TEST PRIORITY BR LEVEL
L2222
d 2

THIS TEST WILL CHECK THAT THE PROPER PRIORITY IS ON THE BOARD.
WE VERIFY THAT ABOVE THE LEVEL THE BOARD WILL NOT INTERRUPT
AND BELOW IT, IT WILL.

TEST 25 - GET STATUS FUNCTION
LA A 2]
2

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

TEST A DRIVE MUST BE PRESENT.)

TEST 26 = GET STATUS FUNCTION INTERRUPT
LA222
d ]

THIS TEST WILL VERIFY THAT

THE GET

ERATE AN INTERRUPT ON COMPLETION.

STATUS FUNCTION WILL

GEN-

TEST 27 = GET STATUS FUNCTION GENERATES OPI
1222223

THIS TEST WILL PROVE THE ABILITY FOR OP]

(OPERATION INCOMPLETE)

SET AND THAT THE DRIVE COMMAND IS BEING TRANSMITTED CORRECTLY.
THE COMMAND WORD

OPI

(RLDA)

IS SET UP WITH THE MARKER BIT ONLY.

IS EXPECTED 7O RESULT,

THIS IS CHECKED.

PAGE 27

TEST 28 = OPI UNDER INTERRUPT
L2 2 4243

THIS TEST WILL CHECK THE ABILITY OF AN OPI 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
LA 2

2 243

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

THE READ HEADER FUNCTION

TEST A = REPEATED RD HDRS YIELD SAME CYL AND HD
L2223
d 3

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
L2244323

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
L2 2

8 223

THIS TEST WILL CHECK THAT HEADERS ARE CONSECUTIVE.

TEST 34 = SEEK FUNCTION
LA 2

3 332

THIS TEST WILL CHECK THE SEEK FUNCTION (3)

READY AND POST NO ERRORS.

CYLINDER FORWARD SEEK.

TO RESET CONTROLLER

COMMAND WORD IS LOADED WITH A ONE

TEST 35 = CHECK DRIVE READY ON SEEK
LA 2

]

THIS TEST UILL CHECK THAT DRIVE READY CLEARS AND RESETS ON
ISSUANCE OF
A SEEK COMMAND.

SEQ 0027

PAGE 28

TEST 36 = SEEK FUNCTION INTERRUPT
LA A

a3 224

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
LA223l
d

THIS TEST WILL TRY TO VERIFY THAT BITS 14-7, 6, 2, 0 OF THE
COMMAND WORD GET TRANSMITTED CORRECTLY.
WE ISS UE SEEKS FROM
TRACK O WITH COMMAND WORDS OF WALKING AND GROWI NG 0'S AND 1'S.
ALL SEEKS ARE VERIFIED WITH A READ HEADER AND R ETURN TO TRACK
O BEFORE NEXT PATTERN IS ISSUED.
TEST 38 = VERIFY HEAD SELECT O VIA RD HEADER
LA 2

2 443

THIS TEST WILL VERIFY THAT HEAD O CAN BE SELECTED AND READ VIA

READ HEADER.

TEST 39 = VERIFY HEAD SELECT 1 VIA RD HEADER
LA 2 2233

THIS TEST WILL VERIFY THAT HEAD 1
READ HEADER.

CAN BE SELECTED AND READ VIA

TEST 40 = VERIFY HEAD SELECT O VIA GET STATUS
LA 2 2232

THIS TEST WILL VERIFY THE WORD RETURNED TO THE RLMP BY A GET

STATUS CONTAINS THE RIGHT HEAD SELECT.

TEST 41 = VERIFY HEAD SELECT 1

LA 2

VIA GET STATUS

2 232

THIS TEST WILL VERIFY THE WORD RETURNED TO THE RLMP BY A GET

STATUS CONTAINS THE RIGHT HEAD SELECT.

TEST 42 = TEST TIME AT WHICH DP WD GETS
L2228
dd

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, WAITING FOR CONTROLLER READY

?ATDI'S‘EE%‘E)(IZ'T‘G THE RLDA.

THE SEEK IS THEN VERIFIED TO SEE IF

SEQ 0028

PAGE 29

TEST 43 - EXTENSIVE CHECK OF CRC

AR RANY

THIS TEST WILL MORE EXTENSIVELY CHECK THE CRC LOGIC BY POSITIONING AT DIFFERENT POINTS ON THE PACK AND CHECKING THAT THE
HEADER CRC RECEIVED IS CORRECT.
TEST 44 - VERIFY GET STATUS WHILE DRDY
LA

IS LOW

223 2

THIS TEST WILL CHECK THE ABILITY TO PERFORM A GET
THE DRIVE IS SEEKING.

STATUS WHILE

SEQ 0029

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

MACY11

30A(1052)

17<DEC=79

TABLE OF CONTENTS

14:01

GLOBAL DATA
PATTERNS FOR DIFFERENCE WORD
GLOBAL TEXT
GLOBAL ERRORS
LOAD PROTECTION TABLE

INITIALIZATION CODE

RS =3
PNIN)
= b

H N
O~NW
=0

QUSRS
Y Y Y
— Y —_—_—

1068

1434

AUTO DROP SECTION
GLOBAL SUBROUTINES
ROUTINE TO CHECK FOR CONTROLLER ERRORS
LOAD RLCS
ROUTINE TO CALCULATE CRC
«xTEST 1xn
RLCS ADDRESSABILITY
=«TEST il
RLBA ADDRESSABILITY
=«TEST Jan
RLDA ADDRESSABILITY
==TEST Lun
RLMP ADDRESSABILITY
*«TEST San
READ WRITE OF RLCS
«xTEST 6xn
READ WRITE OF RLBA
*xTEST Thx
READ WRITE OF RLDA
=xTEST 8xx
BIS OF RLCS
*xTEST QDwxe
BIC OF RLCS
«*TEST 10%»
BIS OF RLBA
«xTEST 11%x
BIC OF RLBA
«xTEST 12%%
BIS OF RLDA
*xTEST 13nn
BIC OF RLDA
*xTEST T14%x
BUS RESET OF RLCS
*xTEST 15ws
BUS RESET OF RLBA
*xTEST 16+
BUS RESET OF RLDA
*xTEST 17%x
UNIQUENESS OF RLCS
«*TEST 18%«
UNIQUENESS OF RLBA
=*TEST 19
UNIQUENESS OF RLDA
**TEST 20%*
UNIQUENESS OF RLMP
«*xTEST 21xx
NOOP FUNCTIONCRL11 ONLY)
=xTEST 22%%
TEST NOOP DOES NOTHING
*«TEST 23nx
TEST OF INTERRUPT
=xTEST
*+TEST
*xTEST
*xTEST
=«TEST
=«TEST
*xTEST
*«TEST
*xTEST
*xTEST
**TEST
*xTEST
*xTEST
*xTEST
=xTEST
*xTEST
=«TEST
«xTEST
«xTEST
**TEST
*«TEST

2b4xx

2S5xx
26%x
27 %%
28xx
29%x
30~
T1xx
32xx
I3ax
Znx
35«
Z6xx
L1421
I8xx

39%n
40xx

41 xx
42+
L3xx
44nn

TEST PRIORITY BR LEVEL

GET STATUS FUNCTION
GET STATUS FUNCTION INTERRUPT
GET STATUS FUNCTION GENERATES OPI W/0 GS BIT
OPI UNDER INTERRUPT
READ HEADER FUNCTION
READ HEADER FUNCTION INTERRUPT
REPEATED RD HDRS YIELD SAME CYL AND HD
CHECK OF HEADER CRC
CHECK CONSECUTIVE HEADERS
SEEK FUNCTION
CHECK DRIVE READY ON SEEK
SEEK FUNCTION INTERRUPT
TEST DIFFERENCE WORD TRANSMISSION
VERIFY HEAD SELECT O VIA RD HDR
VERIFY HEAD SELECT 1 VIA RD HDR
VERIFY HEAD SELECT O VIA GET STATUS
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/RLV1IT1 CTLR TST_ 1
CZRLGB.MAC
07-DEC-79 07:39
1

2
3

000000

002000

17
(4)
(4)
(4)
(4)
(4)

002000
002000
002001
002002
002003
002004

000000
000000
002000

LTITLE

CZRLGBO RLT1/RLV1IT1

.NLIST

ME,CND,MD

103
132
122
114
107

000
000
000

(4)

002011

060

002010

3
PAGE 1

CTLR TST 1

SVCINS=0
SVCTAG=0
.=2000

102

MDHEDR
HEADER
(ZRLG,B,0,4.0
LASCII /C/
LASCII 72/
LASCII /R/
LASCII 7L/
LASCII /G/

.BYTE
.BYTE
BYTE

.ASCI1

LASCII

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

002012
002014
002016
002020
002022
002024
002026
002030
002032
002034
002036
002040
002042
002044
002046

000000
000004
024350
024524
011622
011640
024612
000000
000000
000000
000000
011650
000000
000000
000000

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

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

002052
002054
002056
2060
002062
002064
2066
002070
002072
002074
002076
002100

000000
000000
000000
002230
000000
000000
000000
013024
013020

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
EMT

002050
002051

SvC

BGNMOD

002005
002006
002007

(4)
(3)

14:01

POINTER BGNSFT,BGNSW,BGNDU,BGNAU

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

17-DEC-79

.ENABLE AMA
.ENABLE ABS

8
9
}(1)

MACY11 30A(1052)

003
003

002122
104035

.BYTE
.BYT

0
0
0

/B/

/0/

0
4
LS$HARD
L$SOFT
L$HW
L$SW
LSLAST

0
O
0
LSDISPATCH
O
0
0

CSREVISION
CSEDIT

0
0
0
LSDVTYP
0
0
0
LSAU
L$DU
LSDESC
ESLOAD

SEQ 0031

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

N
N

R Sy

Y
N

S
Nl N

N/ NP N

NP N

NP NI NI NI NI N

NI NI N

Y
WREIS YN JRNES SIS S
WU
JE o JOS Y
e I
e
e
T
e TR
B

PNINPNNANINPNINONONINPNPNPNINPNPININPNININININIS

PNPNPN NN NN

NN PN PN o

NNNNNWWNNWWWWWWWWWWWWNS—‘-DJ\
OV
N
v
W N W N W W W
N N N s N
O 00

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

MACY11 30A(1052)

012006
012752
012530
012000
000000
000000
000000

17-DEC=79

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

14:01

PAGE

1-1

SEQ 0032

LSINIT
LSCLEAN
LSAUTO
LSPROT
0
0
O

ENDMOD

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

055103
042524
047503

050117
047511

051105
000116

046122 030460
030114 000062

020122
052101

051054

DEVTYP

.EVEN
<RLO1,RLO02>
.ASCIZ
/RLO1,RLO2/

BGNMOD

GLBEQAT

EQUALS

; BIT DIFINITIONS
BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
BIT08==
BIT07==
BITO6==
BIT05==
BIT04==
BIT03==
BIT02==
BIT01==
BIT00==

100000
40000
20000
10000
4000
2000
1000
400
200
100

BIT9==
BIT8==
BIT7==
BITé==

BIT09
BIiT08
BIT07
BIT06

40
20
10
4
2
1

&Y m\‘vvvvvvv\.‘vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

NN I

NN-‘.I-.-—.—‘—‘—J—D -

D cnd d D

P~~~ P~~~

D ) D D

D i

PN PN PN PN PN

D D e

D D D D e

NN PN PN~~~

D i D ) i Do e e

PN PN PN PN PN PN PN

D D D

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC-79 07:39
000040
000020
000010
000004
000002
000001

MACY11 30A(1052)

BITS5==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==

17-DEC=79

14:01

SEQ 0033

PAGE 1-2

BIT05
BIT04
BITO3
BIT02
BITO!
BITO0

EVENT FLAG DEF INITIONS
;

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

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

32.
31.
30.
29.
28.

; START COMMAND WAS ISSUED
; RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED

;
;

A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

* PRIORITY LEVEL DEFINITIONS
PRI0O7==
PRIO6==
PRIOS==
PRI04==
PRI03==
PRI02==
PRIO1==
PRI00==

340
300
240
200
140
100
40
0

;OPERATOR FLAG BITS
i

EVL==

LOT==
ADR==
IDU==
ISR==
==
BOE==

10
20
40
100
200
400

PNT==
PR]==

IXE==
IBE==
IER==
LOE==

HOE==

1000
2000
4000

10000
20000
40000

100000

DRDY=BITO
INTEN=BITé6

ERR=BIT15
DERR=BIT14
OPI=BIT10
CRDY=BIT7
BA17=BITS
BA16=BIT4
NXM=BIT13
DS0=0
DS1=BIT8
DS2=BIT9

;:DRIVE READY (RLCS)
: INTERRUPT ENABLE (RLCS)
;RL11 ERROR (RLCS)
;RLO1 DRIVE ERROR (RLCS)
;OPERATION INCOMPLETE (RLCS)
;CONTROLLER READY (RLCS)
:EXTENDED ADDRESS BIT 17 {RL(S)
:EXTENDED ADDRESS BIT 16 (RL(S)
:NON-EXISTANT MEMORY (RLCS)
:DRIVE SELECT O (RLCS)
;DRIVE SELECT 1 (RLCS)
;:DRIVE SELECT 2 (RLCS)

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

MACY11 30A(1052)

17-DEC=79

14:01

PAGE 1-3

001400
000000

DS3=BIT8!BITY
NOOPQ=0

DRIVE SELECT 3 (RLCS)
UNCTION=-NOOP(0)

000002
000004

WRCHK=BIT1

:WRITE CHECK FUNCTION

NOOP7=BIT1!BIT2!BIT3
GSTAT=BIT2
SEEK=BIT2!BIT1
RDHDR=BIT3
WRITE=BIT3!BIT1
READ=BIT3!BIT?
GODRVR=BIT1!BIT7
DRST=BIT3
GSBIT=BIT1
MK=BITO
SIGN=BIT2

FUNCTI(N-NOOP(?)

;GET STATUS FUNCTION
s SEEK FUNCTION
;READ HEADER FUNCTION
;WRITE DATA FUNCTION
sREAD DATA FUNCTION
;CRDY _AND DRDY
;DRIVE RESET (RLDA)
;GET STATUS BIT (RLDA)
sMARKER BIT (RLDA)
:SIGN BIT (RLDA)

RHHS=BIT6
STHS=BIT6
DAHS=BIT4

sHEAD SELECT IN READ HEADER
;HEAD SELECT IN STATUS BACK
sHEAD SELECT IN SEEK

;OFFSET FOR HARDWARE P-TABLE
CSR=0
VECT=2

PRIOR=4
TYPDR=6

DRBT=10
CNT=12
;OFFSET FOR SOF TWARE P-TABLE

DLT=0
ELT=2

SIZE=4

ENDMOD
BGNMOD

GLBDAT

.SBTTL

GLOBAL DATA

PWRFLG:

.WORD

UNITST:
RLCS:
RLBA:
RLDA:
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

O
O
0
0
O
O
O
O
O

UuT:

.WORD

O
O
0
O
O

;DRIVE UNDER TEST

SEQ 0034

CZRLGBO RL11/RLV1T CTLR TST_1

CZRLGB.MAC
95
9
97
98
99

07-DEC~79 07:39

MACY11 30A(1052)

17-DEC-79

GLOBAL DATA

002304
002306
002310
002312
002314

000000
000000
000000
000000
000000

E.BA:
E.DA:
E.MP:
E.MP1:
E.MP2:

_.WORD
.WORD
_WORD
.WORD
.WORD

O
O
O
O
O

002324

000000

LDCSR:

.WORD

100
101
102

002316
002320
002322

104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

002326
002330
002332
002334
002336
002340
002342
002344
002346
002350
002352
002354
002356
002360
002362
002364
002366
002370
002372
002374

000077
120001
000004
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177700
000050
000047
000000
177600
000000

000000

WHY :

126

002400

000000

T.DRIVE:

WORD

002406

000000

DLYCNT:

.WORD

103

}g‘so

127
128

}233

002376

002402
002404

000000
000000
000000

000000
000000

13
}g%
134

135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150

PFLG:
TRPFLG:
INTFLG:
SECMSK:
XPOLY:
ERRVEC:
BCCFBK:
CALBCC:
TEMP2:
TEMP3:
TEMP4:
TMPO:
TMP1:
TMP2:
GDDAT:
BDDAT:
FIRST:
CYLMSK:
MXSEC1:
MAXSEC:
DWORD:
MAXCYL:
SVHD:

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

.WORD

T.CNTLR:
TMPFNC :

14:01

O
0
O

PAGE 1-4

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

s INTERRUPT OCCURRENCE FLAG
sLOCATION TO FORM RLCS
;JMASK OUT SECTOR

77
120001
&
0
O
0
O
O
0
0
0
O
0
O
177700
40.
39.
O
177600
O

;LOCATION
;LOCATION
sLOCATION
;LOCATION
;LOCATION

USED
USED
USED
USED
USED

002412
002414
002416
002420
002422
002424
002426
002430
002432
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: 0

1
3
7
17
37
77
177
377
777
1777
3777
7777
17777
37777
77777
177777

''SIMB(CC''
'‘SIMBCC''
‘‘'SIMBCC''
'‘SIMBCC'’
‘‘SIMBCC'’

JREASON FOR DROP UNIT
O

O
0

2
JPATTERNS USED FOR LOADING/READING REGISTERS
002410

BY
BY
BY
BY
BY

;FIRST SECTOR READ
;JMASK CYLINDER AND HEAD SELECT
sMAX SECTOR ADDRESS +1
;sMAX SECTOR ADDRESS
;DIFFERENCE WORD (SEEK)
sMAXIMUM CYLINDER ADDRESS
;SAVE CURRENT HEAD SELECT

.WORD
.WORD

;GROWING 1

SEQ 0035

002452

MACY11 30A(1052)

17=-DEC=79
GLOBAL DATA

177776
177774

14:01

PAGE 1-5
;GROWING 0

177770

177760
177740

D e

—

EEREELE BRIRR
R 28IIIR RAR 2B IZINNNANIIGE
VG GRAR LB S ISR RIS

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

177700

)

D e

177600
177400
177000
176000
174000
170000
160000
140000
100000
1

;WALKING 1

177777

;WALKING 0

)

—d ——d

) e

)

D —

000000

— v

)

176777
175777
173777
167777

167777
157777
177777
000000

000200

157777
137777
077777
177777
ENDPAT: 000000
LSBTTL

PATTERNS FOR DIFFERENCE WORD

SKLST:

.WORD

BIT7

SEQ 0036

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

DD
D
D
—_—d

CONO
VIS NN — o

NNONONNNONN N

207
208
209

MACY11 30A(1052)

17-DEC-79

14:01

PATTERNS FOR DIFFERENCE WORD

000400
001000
002900
004

BIT8
BITY
BIT10
BIT11
BIT12

PAGE 1-6

sSHIFTING 1

BIT13

JSHIFTING 0

219

s GROWING 1

QUAMAX:
HALMAX:

.WORD
.WORD

;GROWING 0

SKEND:
RLZ:

.WORD
.WORD

SKEEND: .WORD
;PATTERNS FOR TEST OF RLCS

CSPAT:

.WORD
. WORD
. WORD

0
BIT1
BIT?

JSHIFTING 1

SEQ 0037

CZRLGBO RL11/RLV11 CTLR TST_1
CZRLGB.MAC
07-DEC~79 07:39
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
283
284
285
286
287
288
289
290
291
292
293
295

002772
002774
002776
003000
003002
003004
003006
003010
003012
003014
003016
003020
003022
0030246
003026
003030
003032
003034
003036
003040
003042
003044
003046
003050
003052
003054
003056
003060
003062
003064
003066
003266
003766

000010
000020
000040
000100
000400
001000
001576
001574
001570
001560
001540
001500
001400
001576
001574
001566
001556
001536
001436
001136
000076
000016
000036
000076
000176
000576
001576
000000
000000
000100
000240

m 3
MACY11 30A(1052)
17-DEC=79 14:01
PAGE 1-7
PATTERNS FOR DIFFERENCE 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
CSEND:
.WORD
ERPOINT: .WORD
ERCOUNT: .BLKW
HDRBUF : .BLKW
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
64.
160.

;GROWING 0

JSHIFT 0

;GROWING 1

SEQ 0038

CZRLGBO RL11/RLV11 CTLR TST_1
CZRLGB.MAC
07-DEC-79 07:39
298
%

003766

304

003766

305

306
307
308

309
310

311
312
313

314
315
316
317
318
319

321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354

003773
004005
004013
004020

004025
004032
004035

004037
004045
004120
004151
004203
004243
004304
004344
004405
004436
004470
004527
004566
004573
004601
004607
004615
004636
004657
004704
004732
004757
005004
005031
005056
005127
005155
005203
005244
005276
005324
005352
005400
005433
005472
005532
005566
3
005710
005750
006041
006077

BGNMOD
.SBTTL
042040

053122

047440

044520

040

042040
040
005015
015

040

047516
116
127
127
042522
042522
123
042523
042507
107
051503
040
040
040
102
044526
103
051104
040503
103
040503
103
046122
122
122
117
047516

047516
047516
047516
047111
107
042507
122
050117
117
042522
040502
102

GLBTXT
GLOBAL TEXT

054116

000
000115

DEMES:
.ASCIZ
NXMMES: .ASCIZ

/ DRV/

041510
047110

041522
000106

HCRCMES:.ASCIZ
HNFMES: .ASCIZ

/ HCRC/
/ HNF/

047503
051117
050117
047517
044522
044522
042101
042101
042505
045505
020124
052105
020072
040502
040504
050115
043105
042515
047117
053111
020116
047101
020116
047101
051503
041114
042114
044520
044440
050117
050117
050117
042524
052105
020126
050115
020111
044520
042101
020104
042101
041505

050115
042503
047440
020120
042524
042524
044040
044040
020113
047440
052123
051440
000
020072
020072
020072
051117
047440
051124
020105
047516
047040
047516
047040
051040
020101
020101
053440
052116
030050
030050
030050
051122
051440
052123
041440
044504
042040
4060
054503
044040
047524

045503
046104
000
000

MACY11 30A(1052) 17-DEC-79 14:01 PAGE 1-8
PATTERNS FOR DIFFERENCE WORD

000

000
0001264

OPIMES: .ASCIZ

DCKMES:
DLTMES:
MSCRLF:
LF:

.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

EM14:
EM15:
EM16:
EM17:
EM30:
EM30A:
EM32:
EM33

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ
ASCIZ
,ASCIZ

COMP:
.ASCIZ
OPIERR: .ASCIZ
NOPMES: .ASCIZ
NOPINT: .ASCIZ
WCKMES: .ASCIZ
WCKINT: .ASCIZ
RHDMES: .ASCIZ
RHDINT: .ASCIZ
SEKMES: .ASCIZ
SEKINT: .ASCIZ
GSTMES: .ASCIZ
GSTINT: .ASCIZ
ARLCS:
.ASCIZ
ARLBA:
.ASCIZ
ARLDA:
.ASCIZ
ARLMP:
.ASCIZ
BEREG:
.ASCIZ
AFREG:
.ASCIZ
CRTIM:
_ASCIZ
DRTIM:
.ASCIZ
EMI1:
.ASCIZ
EM2:
.ASCIZ
EM3:
.ASCIZ
EM4:
.ASCIZ
EMS5:
.ASCIZ
EM6:
.ASCIZ
EM7:
.ASCIZ
EM11:
.ASCIZ
EM13:
_ASCIZ

EM37:
EM41:
EM42:
EM43

,ASCIZ

.ASC}%
12

/ NXM/

/ OPl/

/ DCK/
/ DLT/
<15><12>
<15>

/ COMP/
/FORCED OPI(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 RLBA/
/CAN NOT ADDRESS RLDA/
/CAN NOT ADDRESS RLMP/
ZRLCS READ/WRITE ERROR (BIT O DON'T CARE)Z
ZXRLBA READ/WRITE ERRORZ
ZRLDA READ/WRITE ERRORZ
/OPI WOULD NOT GENERATE INTERRUPT/
/NO INTERRUPT FROM NOOP(0)/
/NOOP(Q) MODIFIED RLMP/
/NOOP(0Q) MODIFIED RLBA/
/NOOP(0) MODIFIED RLDA/
/INTERRUPT PRIORITY FAILURE/
/GET STATUS WOULD NOT INTERRUPT/
/GET STATUS SHOULD NOT INTERRUPT/
/RUMP CONTAINED WRONG STATUS/
/0PI DID NOT SET-GSTAT WITHOUT GS BIT/
/0PI 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 OUT OF SEQUENCE DURING CONSECUTIVE READ HEADERS/
/WRITING RLMP MODIFIED RLCS/
/WRITING RLMP MODIFIED RLBA/

SEQ 0039

CZRLGBO RL11/RLV11 CTLR TST_1

CZRLGB.MAC

07-DEC-79

07:39

357
358
359

0%%64
006317
006350

051127
123
051104

052111
042505
053111

361
362
363

006457
006512
006551
006622
006652

102
040502
1164
051104
044502

042101
020104
040517
053111
020124

007016

044502

020124

007162
007243
007326

044502
102
052502

020124
052111
020123

007420
007455
007510
007543
007575
007627
007662
007715
007762

052502
127
051127
127
127
127
051127
122
000170

020123
044522
052111
044522
044522
044522
052111
041514

360

365
367
369
370
371

372

373
374
375
376
377
378
379
380
333;

0064%0

006733

007077

383

384
388

040502

1 5
1

MACY11 30A(1052)

GLOBAL TEXT

047111
020113
020105

020104

042523

052111

041440

044040
042510
044504
020105
042523
2523

52111

041440

051525

051040

042523
041440
042522
042522
044526
047111
044524
044526
044524
047111
020123

14:01

&
PAGE 1-9

SEQ 0040

EM46:
EM47:
EM52:

.ASCIZ
.ASCIZ
.ASCIZ

/WRITING RLMP MODIFIED RLDA/
/SEEK WOULD NOT INTERRUPT/
/DRIVE READY CAUSED EXTRANEOUS INTERRUPT/

EM55:
FEMSG:
EMS57:
EM61:

.ASCIZ
_ASCIZ
.ASCil
.ASCIZ
_ASCIZ

/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/

EM63:

.ASCIZ

/BIT SET INSTRUCTION ON RLBA YIELDED WRONG RESULT/

EMS4:

EM62:

.ASCIZ

EM64:

.ASCIZ

EM70

.ASCIZ

EM65:
EM66:
EM67

EM71
EM72 :
EM73:
EM74:
EM75:
EM76:
EM77:
EM101:
EM102:

.EVEN
010152

17-DEC-79

ENDMOD

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.BLkB

/BAD SEEK-TEST OF DIFFENCE WORD/

/BIT CLEAR INSTRUCTION ON RLCS 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/
/BUS RESET DID NOT CLEAR RLCS/

/BUS 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/
/RLCS CONTAINED FOLLOWING ERROR(S):
120

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

MACY11 30A(1052)

17-DEC-79

GLOBAL ERRORS
.SBTTL

GLOBAL ERRORS

14:01

393

010152

BGNMOD

GLBERR

395
396
397
398

010152

BGNMSG

ERRO

010152
010156

004737
004737

010476
010532

JSR
JSR

PC.LINE
PC,LINE2

400
401
(3)
(3)

010162
010166
010166
010166

004537

013030

JSR

R5,CKERLT

TRAP

C$MSG

403

010170

405

010170

004737

010476

JSR

PC.LINET

407

010174

004537

013030

JSR

R5,CKERLT

(3)

010200

104423

TRAP

CSMSG

L10000:

104423

BGNMSG

L10001:
BGNMSG

ENDMSG

004737

010476

(9)
(8)
(7)
(6)
(3)
(4)
(4)

010206
010212
010216
010222
010226
010230
010232

013746
013746
012746
012746
010600
104414
062706

002356
002354
011154
000003

000010

ADD

#10,SP

415
416
(3)
(3)

010236
010242
010242
010242

004537

013030

JSR
ENDMSG

R5,CKERLT

TRAP

CSMSG

418

010244

420
421

010244
010250

004737
004737

010476
010532

(10) 010254

013746

002354

(4)

010304

062706

424
425

010310
010314

004537

JSR
PRINTB
MOV
MOV
MOV

MOV
MOV

TRAP

BGNMSG

;CHECK ERROR LIMIT

ERR2

010202

L10002:

&
PAGE 1-10

ERR1

412

104423

PC,LINE1
#FRMT4 ,GDDAT ,BDDAT
BDDAT ,~(SP)
GDDAT ,~(SP)
H#FRMT4 ,-(SP)

#3,-(SP)
SP,RO
CSPNTB

;CHECK ERROR LIMIT

ERR3

000012

JSR
JSR
PRINTB
MoV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

PC.LINE1
PC,LINE2
#FRMTS5,TMPO,BDDAT,GDDAT
GDDAT ,=(SP)
BDDAT,~(SP)
TMP0,=(SP)
#FRMTS ,=(SP)
#4,-(SP)
SP,RO
CSPNTB
#12,SP

013030

JSR

R5,CKERLT

sCHECK ERROR LIMIT

SEQ 0041

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

010314
010314

L10003:

104423

010316

010350
010352
010356
010362
010362
010362

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

BGNMSG

004737
004737

010476
010532

TRAP

14:01

4
PAGE 1-11

CSMSG

ERRS4
JSR

PC,LINE1
PC.LINE2

NFRMT4,GDDAT ,BDDAT

013746
013746
012746
012746
010600
104414
062706

000010

#10,SP

004537

013030

R5,CKERLT

BDDAT,=(SP)
GDDAT .= (SP)

#FRMTS
= (SP)

#3,-(SP)
SP.RO

CSPNTB

L10004:

104423

010364

sCHECK ERROR LIMIT

CSMSG

BGNMSG

010364

004737

010476

PC.LINET

010370
010374
010374
010374

004537

013030

R5,CKERLT

L10005:

104423

010376

sCHECK ERROR LIMIT

C$MSG

004737
004737
004737

010476
010754
010532

012746
012746
010600
104414
062706
004537

011207
000001

C.LINE
C.LINE
C.LINE

1%:

000004
013030

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

RS . CKERLT
L10006:

104423

BGNMSG
VOO

010376
010402
010406

CSMSG

BGNMSG

004737

010476

013746
012746
012746
010600

002356
011263
000002

PC,LINE1
#FRMT6,BDDAT

BDDAT,~(SP)
#FRMT6,~(SP)
#2,-(SP)
SP,RO

;CHECK ERROR LIMIT

SEQ 0042

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

460

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

465

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

14:01

010462
010464

104414
062706

000006

TRAP
ADD

#6,SP

010470

004537

013030

JSR

R5,CKERLT

010474
010474
010474
010476
010476

104423

005046
153716
013746
012746
012746
0600

L10007:
LINE:

10
(9
(8)
(7)
(6)

(3)

(4)
(4)

467

an
10
(9)
(8)
(7)

(6)
(3)
(4)
(4)
468
12)
an
(10)
(9)
(8)
(7)
(6)
(3)

CSPNTB

ENDMSG
TRAP

C$MSG

PRINTB

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

CLR

DRIVE+1, (SP)

SP,RO
CSPNTB

#10,SP

013746
012746
013746
012746
012746
012746
012746
010600
104414

062706

013746
012746
013746
012746
012746
012746
010600
104414
062706
013746

LINEZ:

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

.~ (SP)
#BEREG
#FRMT2
.~ (SP)

#6,~(SP)

SP.RO
CSPNTB

#16,SP

AFRMT2A , #ARLDA,B.DA,
#ARLMP ,B.MP
B.MP,~(SP)
#ARLMP
, - (SP)

B.DA,=(SP)

#ARLDA
, - (SP)
#FRMT2A, - (SP)

#5,-(SP)
SP.RO
CSPNTB
#14,SP

0FMT2,#A§REG.#ARLCS.E.CS.#ARLBA.E .BA

(4)
(4)

469
13
12) 0
an 010712

PAGE 1-12

RLCS,=(SP)
#FRMT1,-(SP)
#3,-(SP)

010524
010530

466 010532
(12) 010532
(11)

13746
13746

013746

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

SEQ 0043

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

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

012746

14:01

&4
PAGE 1-13

#ARLMP ,-(SP)

E.DA,=(SP)

#ARLDA,~(SP)

010732
010736
010742
010744
010746
010752

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

LINE3:

010754

#FRMT3,#EM101
#EM101,-(SP)
#FRMT3,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP
WFRMT3,#EM102
#EM102,~(SP)
H#FRMT3,-(SP)
#2,-(SP)

SP,RO
CSPNTB

#6,SP

NN HNOWn

052116
052045
033117
022466
000124
054105

—

g——

S wnaHno

(4)

010722
010726

(3)

010716

lelelelelelelele]

(10)
(9
(8)
(7)
(6)

MACY11

040514

022516

/XACONTROLLER: X06%A DRIVE: %01/
/AINXTXTXZ06%TX06/
/XTX06XT%06/
/XTX06XTX06XA X06%A %06/
/INXT/
/XNXAEXP'D: X06%A REC'D: X206/
/IN/
/INXALAST: X06XA PRES: X06%A EXP'D: X06IN/
/INXAAT PROCESSOR LEVEL Z06IN/
/XAERROR LIMIT EXCEEDED-DROPPEDZN/

FRMT1:

FRMT2:
FRMTZ2A:
FRMTZ2B:
FRMT3:
FRMT4:
FRMT99:
FRMTS:
FRMT6:
FRMT11:
FRMT12:
FRMT13:

/XNXADRIVE DID NOT RECOVER FROM POWER FAILUREZXN/

/ANXTXA - WILL NOT TESTIN/
/XNXADRIVE DROPPED - NO CONTROLLERXN/
/XNXADRIVE DROPPED - DID NOT RESPOND WITH ‘READY' AN/

FRMT14:

FRMT1S:
.EVEN

011620

ENDMOD

011620
011620
011620
011622
011624

BGNMOD

000006
174400
000160

HPTCODE

. WORD
. WORD
. WORD

L10010~LSHW/2
174400

160

;CSR

JVECTOR

SEQ 0044

011626
011630
011632
011634

MACY11 30A(1052)

.WORD
. WORD
.WORD
.WORD

BGNMOD

000003

011640
011642
011644

000000
000012
000000

011646
011646

BGNSW

DROP:

:
MERLMT
T.SIZE:

FRRE
NOC

RNO

NN NNNNNNNNNNYN
W
NINIAIN)
= = =

b wnd wd

b enh ich
b

b aud wed
b

ik
ik

e
s

0
1

L10011-L$SW/2

.WORD
.WORD
.WORD

ENDMOD

DISPATCH

.WORD

ENDSW

BGNMOD

240

SPTCODE

L10011:

011646

clh

&4
PAGE 1-14

ENDMOD

011636
011636

b e

L10010:

011636

14:01

ENDHW

011636

17-DEC=79

GLOBAL E RRORS

000240
000001
000000
000001

011636
011636

jeolelelelelelalelelelelele]

VON~
O NS W —

ViV
A~ Noaviuiiun wi
R
Vs i
e S g} —

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

020126

DSPCODE

10.
0

SEQ 0045

JPRIORITY

JRLOT =1
;DRIVE (BITS e :9.10)

;JRL1T

=1, RLVIT

= 0

CZRLGBO RL11/RLV11 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
536
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

022534
022706
023334
024054

MACY11 30A(1052)

17-DEC-79

GLOBAL ERRORS

14:01

PAGE 1-15

SEQ 0046

T 1
CZRLGBO RL11/RLV1T (T LR TST_
79
07:39
CZRLGB.MAC
07-DEC~

MACY11 38A(1052)
17-DEC=79
LOBAL ERRORS
.SBTTL

BGNPROT
.WORD

14:01

4
PAGE 1-16

LOAD PROTECTION TABLE

;P-TABLE OFFSET OF CSR
sNOT A MASS-BUS DRIVE
;P-TABLE OFFSET OF DRIVE

0
=1
.WORD
.WORD
10.
ENDPROT

000000
177777
000012

.SBTTL
BGNMOD

SEQ 0047

INITIALIZATION (ODE
INITCODE
BGNINIT

BRESET
TRAP

104433

012700

104447
103004

000034

MOV
TRAP

002012

012700

000037

002242
NOPWR:

103404

012700

104447

103010

READEF

003066
000100

START1: MOV
MOV

#ERCOUNT
RO
#64. R1

1$:

DEC
BNE
BR

MOV

;START?2??

(RO)
+

R1
1%
START

READEF

[
—Y

— cd ——d

— — —ld ——d —d

— —d —d —d —h

003064

NXT:

START:

XXX:

REST:

#EF . CONTINUE

#EF . CONTINUE
,RO

TRAP
CSREFG
BCOMPLETE

002246
000002
002244

SRS NR&R

CLR

CONT INUE :

002246
002244
003064

N =

;YES, SET POWER FLAG
;GO TO CONTINUE POINT
JRESTART?

TRAP
CSREFG
BNCOMPLETE
CONT INUE
BCC
CONT INUE

177777
002012
003064

002246

;NO,BRANCH

#EF .START

#EF .START
RO

002244

F oW S N

NOPWR

NOPWR
BCC
MOV
LSUNIT ,PWRFLG
CONT
BR
READEF
#%F_ RESTART
MOV
#EF .RESTART
RO
TRAP
CSREFG
BCOMPLETE START1
START1
BCS

MOV

012100
cooo

#EF .PWR,RO
CSREFG

000040

000036

coooo

CSRESET
#EF .PWR

BNCOMPLETE

013737
000475
104447

READEF

CONT

B(CS

CONT

TST
BNE
MOV

uuT
XXX
#=1,UNITST

INC

UNITST

DEC
GPHARD
MOV

uuT
UNITST,RO
UNITST,RO

MOV
MOV

ADD

;CONTINUE??22?

LSUNIT, UUT
#ERCOUNT=2 ,ERPOINT

#2 ,ERPOINT

;DONE ALL WUT'S

ARSI oSN

b o

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

i e
b
i
b
-

i
-

b i

jelelelelelelelele]

(3)

USTSTUSTNT
NN ST NN

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

14:01

4
PAGE 1-17

TRAP
C$GPHRD
BCOMPLETE
1%

BCS
TST

BEQ
DEC
BR
MOV
MOV

MOV
MOV
MOV
MoV

012037
013700
010037
062700
010037
062700
010037
062700
010037
005737
001476

CONT:

MOV
MOV
ADD

MOV
ADD
MOV
ADD
MOV
TST

BEQ

;POWER FLAG TO 0

PWRFLG

NXT
PWRFLG
NXT
(RO)+,BCSR
(RO)+,BVEC

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

;YES,

012701
012777
053777
032777
001042
012737

000170
000200
002266
000001

167746
167740
167732

000050

002406

012727
000000
013727
000000

000001

WAITO:

;GET CONTROLLER TYPE

#2.R0
RO,RLBA
#2,R0O
RO,RLDA
#2,R0O
RO,RLMP

PWRFLG

END

012402
012404

012410
012414

812746
10600
104414

#DRDY ,aRLCS

BGNTST

:?0.,DLYCNT

6’1,(PC)*

bSDLY,(PC)+

177772

-6(PC)
.-4

=22(PC)
.=20

002406

012746

#200,aRLCS
DRIVE ,@RLCS

002116

177756

DLYCNT

WAITO
R1
DRVRDY

#FRMT12
#FRHT12$-(SP)
#1,-(SP

011361
000001

062706

000004

004737

010476

BCSR,RO
RO,RLCS

#120. ,R1

DRVRDY:

DONT DEC

;GET NEXT ONE

sTHERE WAS A RECENT POWER FAILURE,
:FOR THE DRIVE TO COME READY

012270
012274

SEQ 0048

JRECENT POWER FAILURE?
THEREFORE WE WILL WAIT

sINITIALIZE WAIT COUNT
;SET CRDY
;SET IN DRIVE SELECT
;DRIVE READY???
;YES, THEN START TEST
;INITIALIZE DELAY COUNT
; IMPLEMENT 100-USEC DELAY

;DECREMENT DELAY COUNT
;BRANCH IF TIME DELAY NOT EXPIRED
;SIXTY SECONDS GONE BY
:NO, GO BACK
;DROPPING DRIVE - DRIVE DID NOT RECOVER

SP,RO

6%:

PC,LINET
UNITST

:/FROM POWER FAILURE

:GIVE DRIVE INFO
sTELL SUPERVISOR TO DROP [T

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

012414
012420

013700
104451
104444

17=DEC=79
MACY11 30A(1052)
INITIALIZATION CODE

002246

012777
012777
053777
042777
032777
001774

000013
000204
002266
000200
000200

012746
012746
013746

000340
014152
002264
000003

MOV

167622
167610
167602
167574
167566

TRAP
DOCLN
TRAP

BGNTST: MOV
MOV

BIS
BIC

4%:

gég

END :

SETVEC
MOV

002316

C$DODU

L10013:

012526

012530

SEQ 0049

;FORCE AN ABORT

CSDCLN

#13,3RLDA
#204 ,aRLCS

;SETUP DR RST
;GS FUNC

DRIVE ,aRL(CS

*SELECT DRIVE
JISSUE IT

#200,aRLCS
zgoo.aRLcs

*WAIT FOR READY

BVEC,#INTSRV,#340

#340,-(SP)

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

TRAP
ADD
CLR
READBUS
TRAP

CS$SVEC
#10,SP
PFLG

BCC

INC

PAGE 1-18

UNITST,RO

#3,-(SP)

C$RDBU

BNCOMPLETE

002316

MOV
MoV

MOV

000010

14:01

;CLR PROCESSOR FLAG
:
S

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
MOV

000010

ADD

#10,SP

000340
014144
002332
000003

MOV

#340,-(SP)

012746

000010
167434

002332
002332
002320

LEAR TRAP FLAG

SETVEC ERRVEC,#TRPHAN, 0340

MOV

TRAP

#340,=(SP)

UYRPHAN.‘(SP)
ERRVEC ,-(SP)

#3,-(SP)
C$SVEC

MOV
MOV

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

TST
CLRVEC
MOV
TRAP

aRLCS
ERRVEC

MOV
EMT
ADD

MOV
EMT
TST

BEQ

PRINTB

sSET UP VECTOR TO DETECT NON-EXISTENT

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

ERRVEC
RO
CSCVEC
ERRVEC,RO

CSCVEC

;/CONTROLLER

sACCESS CONTROLLER
;JRELEASE VECTOR

TRPFLG

;:DID IT TRAP?

#FRMT14

ELSE PRINT MSG.

:NO - CHECK ITS DRIVE

'DRIVE DROPPED = NO CONTROLLER'

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

(7)

012636

MACY11 30A(1052)

AUTO DROP SECTION

011471
000001

MOV

MOV
MOV

TRAP

000004
010476
002246
000200
002266
000001

167350
167342
167334

1%:

000004

012736
012742
012742
012746
012750
012750
012750
012750

010476

2%:

ENDAUTO
L10014:

012752

BGNMOD

012752

CSPNTB

C$DODU

#1,3RLCS
2s
#FRMT1S
#FRMT15,-(SP)
#1,-(SP)
SP,RO

TRAP
ADD

C$SPNTB
#4,SP

JSR
DODU

PC,LINE1
UNITST

TRAP

C$DODU

UNITST,RO

sPROVIDE DRIVE INFORMATION
;DO DROP UNIT ON DRIVE

JEXIT
sSET _CONTROLLER READY
sSELECT DRIVE
;1S DRIVE READY?
;YES = EXIT
;ELSE, PRINT MSG. "DRIVE DROPPED - DID NOT

;/RESPOND WITH ‘' READY'’
;PROVIDE DRIVE INFORMATION
;DO DROP UNIT ON DRIVE

C$AUTO

CLNCODE
BGNCLN

012752
012752
012756

012700

000340

012760
012766

032777
001774

000200

167262

012770

042777

000100

167252

012776
012776
013002

013700

002264

013004
013010

005737
001402

002242

013012

005337

002242

013016
013016

SEQ 0050

SP_RO

2$
#200,3RLCS
DRIVE ,aRLCS

TRAP

PAGE 1-19

#FRMT14 ,~(SP)

BR
MOV
BIS

MOV

#1,-(SP)

#4,SP
PC,LINE1
UNITST
UNITST,RO

BIT
BNE
PRINTB
MOV
MOV
MOV

002246

14:01

ADD
JSR
DODU
MOV
TRAP

011535
000001
012732

17-DEC-79

104441

104436

SETPR]I
MOV

#PRIO7
#PRI07 ,RO

BIT
BEQ

#CRDY ,aRLCS
1%

BIC

#INTEN,aRLCS

CLRVEC
MOV

BVEC
BVEC,RO

TST

PWRFLG

DEC

PWRFLG

TRAP

1%:

TRAP

BEQ

2%:

ENDCLN

C$SPRI

C$CVEC

: TREAT POWER FAILURE

CZRLGBO RL11/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC=79 07:39
(3)
(3)
694
695
696
697
698
699
700

701
702
703
704
705

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

C$pu

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/RLV11 CTLR TST 1
CZRLGB.MAC
07-DEC~79 07:39

MACY11 30A(1052)

AUTO DROP SECTION

722

729
(2)
730
731

732
733
734
735
736
(7)
(6)
(3)
(4)
(4)

737

738
(3)
(3)
739

(3)
7640
7641
742
743
744
745

013030
013030
013030
013032
013032
013034
013040
013042
013046
013054
013056
013056
013062
013066
013070
013072
013076
013102
013102
013106
013110
013110
013112
013112

103427

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

INLOOP

&
PAGE 1-21

TRAP

CSINLP

TST

DROP

cMP

@ERPOINT
@ERPOINT ,MERLMT

PRINTF

#FRMT11

BCOMPLETE
99%
8(s

99%

005737
001424
005277
027737
002416

011640

012746
012746

011320
000001

MOV
MOV
MOV

#FRMT11,-(SP)
#1,-(SP)
SP,RO

000004
010476

ADD
JSR
DODU
MOV

w4 ,SP
PC,LINET
UNITST
UNITST
RO

TRAP

CSDCLN

RTS

170016

170012

99%

BEQ
INC

011642

998

BLT

TRAP

002246

TRAP

99%:

.SBTTL

746
747
748
749

CSPNTF

;DROP THE UNIT

C$DODU

ROUTINE TO CHECK FOR CONTROLLER ERRORS

JERAARRAAAAAAAAAAAAAAAAARARRAAAARARAAAAAAAAAAA
I RARAA AR AR AR
RS

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

750
751
752
753
754
755
756
757
758
759
760
761
762

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

ROUTINE USES RO,R1 AND PICKS HEADER FROM R3
B

‘A A TEA

TR TR

;*EXAMPLE:
;®

CALL

JSR

RS5,CHERR

LR B

763
764
765
766
767

.SBTTL

CKERLT:

104420

14:01

723
724
725
726
727
728
(3)

17-DEC=79

013114
013120
013126

005037
032737
001001

002300
176000

002302

CHERR:

CLR

BIT

BNE

DERFLG

:CLEAR OUT DRIVE ERROR FLAG

1998

*IF YES, INVESTIGATE

#176000,E.CS

:ANY ERRORS SET

SEQ 0052

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

002404

013172

013174
0

005737
00003

007762
002302

18:

013660
040000

002302

002300
013660
020000

002302

013660
002000

002302

4%:

013660
004000

002302

013660
010000

002302

5%:

013660

b
b
b
e

MOV
BIC
cMP
BNE
RTS

MOV
TST
BPL
JSR
coMP
BIT
BEQ
INC
JSR
DEMES
BIT
BEQ
JSR

NXMMES

BIT
BEQ
JSR
OPIMES
BIT
BEQ
JSR

HCRCMES

BIT
BEQ
JSR

sNO, EXIT

98$
1%
{nswmc,MIRCHK

*YES SERVICE ERROR

TMPFNC ,#GSTAT

E.CS,RO

:FUNCTION=NOP, RESET, GETSTATUS

*YES, GO CHECK IF ONLY DRIVE ERROR

;GET E.CS

#1777 RO
m.oobo RO

:
*DRIVE ERROR ALONE?

:YES, EXIT

#EM102,R1
E.CS
998
RS,FIX

#DERR,E.CS

*NO, GO SERVICE

;GET START OF STRING
*IS COMPOSITE ERROR SET?(BETTER BE)
SIT'S NOT SOMETHING IS WRONG

:y%abfpr "'CoMP'* IN STRING

*DRIVE ERROR SET?

*NO, CONTINUE

RS,FIX

.-yg's“.,“mr "DRV'’ INTO STRING

DERFLG

MNXM,E.CS
4
RS,FIX

#OP] E.CS

RS.FIX

#B8IT11,E.CS

*SET DRV ERROR FLAG

*NON-EXISTENT MEMORY ERROR?

*NO, CONTINUE
:YES, PUT "NXM' INTO STRING

:1S OPI SET?

*NO, GO CHECK BITS 11 & 12
‘?},’;,:P”" INTO STRING

*HEADERCRC ERROR?

58
RS,FIX

*NO, GO CHECK HEADER NOT FOUND
-sgcsg.r. "MCRC'* IN STRING

#BIT12,E.CS
8s

*HEADER NOT FOUND?
:NO, G0 PUT 'CRLF" IN STRING

*PUT "'CRLF'* IN STRING

RS,FIX

P{Jfil"HNF' IN STRING

€S:

#BIT11,E.CS
78
RS,FIX

:NO, GO CHECK DATA LATE
Pg(r:xDCK'* IN STRING

002302

7%:

013660

#BIT12,E.CS
8$
RS,FIX

:DATA LATE ERROR?
*NO, GO PUT IN '‘CRLF'’
:puUt m.r" IN STRING

013660

RS,FIX

010000

104455
000454

cwP
BLT
BR
cMP
BEQ

HNFMES

013660

000000
105011

RTS

002302

004000

b
b cd

98$%:

2$:

VRNV

N\
N

000002

199%:

140000

3235

000004

002302
001777

WN=O

00 Co Co 0o 00 0o 0o 0o 00 0o

CEAS AL S RERFERE P E PEPEPEREE
SRR &3 PRRER

769

B 5
17-DEC-79 14:01
MACY11 30A(1052)
PAGE 1-22
ROUTINE TO CHECK FOR CONTROLLER ERRORS

013660

RESTMS:

RS,FIX

(R1)

300.
,LF ERR6
CSERDF

*DATA CRC ERROR?

oLt

:HEADER FROM TEST

*PUT TERMINATOR IN

SEQ 0053

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

SEQ 0054

17-DEC=79 14:01
PAGE 1-23
ROUTINE TO CHECK FOR CONTROLLER ERRORS

MACY11 30A(1052)

013406
013410

004035
010376

.WORD
.WORD

LF
ERR6

013412

000205

RTS

.SBTTL

sEXIT ROUTINE

LOAD RLCS

CRARRA AR AR AR AR AR AR AR AR

AR AR

AR AR AR

AR AR

;* ROUTINE TO LOAD RLCS WITH FLNETI(N TO BE PERFORMED

:®

CALL:

JSR

.WORD

R5,LDF

012537
005737

LDFUNC: MOV

002324
002300

002270
000013

TST

166614

002270
002270
166554

002324
013632
013632
002404

998 :
98$:

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

MOV
MOV
BIT
BEQ
MOV

B.CS,aRLCS
(SP)+,B.CS
#200,aRLCS
99$
R3,-(SP)

MOV
BIC
MOV
MOV

#INTEN, FNDFNC

JSAVE FUNCTION
JONLY FUNCTION

FNDFNC

sALIGN TO RIGHT

BIC

ASR

1%:
002324

013376
002266
000200
002324
013672
000200

2$:

DRIVE ,B.CS

#177661,LDCSR

LDCSR, FNDFNC
FNDFNC
. TMPFNC
#HDRLST.R3

;SAVE R3
;CLEAR ALL BUT FUNC & INTR EN

;GET HEADER LIST

BEQ
CMP

2%
(R3)+,(R3)+

BUPRSBY4

BNE

:NO, KEEP LOOKING

DEC

FNDFNC

BIT

#INTEN,LDCSR

TST

(R3)+

BEQ

3s:

MOV

002324
002324
166434

48:

BIS
BIS

DRIVE ,LDCSR
#200,LDCSR

166422

5%:

JSR

RS ,BEFORE

FNDFNC:

;GET BITS TO LOAD

BEQ
MOV
MOV
MOV
BIS

166566

(R5)+,LDCSR

DERFLG

;BITS TO BE LOADED, FUNCTION
;AND INTR ENABLE ONLY

MOV

MOV
BIC

MOV

(R3) ,R3

R3,RESTMS

LDCSR,@RLCS

#200,aRLCS

(SP) +,R3

RTS

.WORD

HDRLST: NOPMES
NOP INT
WCKMES
WCKINT
OKHDR:
GSTMES

I
;FOUND

:YES,DO WE WANT FLAG OR INTR
:FLAG BRANCH
sINTR POINT TO THAT ONE
:SET HEADER
:SET _UP HEADER
sSELECT DRIVE
s CONTROLLER READY

;RESTORE R3

SEXIT

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

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

14:01

PAGE 1-24

SEQ 0055

GSTINT
S
SEKME
SEKINT

RHDME
S
RHDINT
SRR

AR AR AR A

AR AR AR AR AR AR AR AR AR

AR AR AR

;*ROUTINE TO MOVE ASCII STRINGS
;*USES REGISTERS R1 = WHERE STRING IS BEING BUILT

013660
013662
013664
013666
013670

012500
112021
001376
105741
000205

CALL

JSR
.WORD

IX:
$:

MOV
MOvVB

(R5)+,RO
(20)*. (R1)+

889
890
891
892
893

oTM

TSTB
RTS

RS,FIX

1
=(R1)
RS

;ADDRESS OF STRING TO MOVE
;GET ADDRESS AND MOVE RETURN
;GET BYTE AND UPDATE
;WATCH O BYTE TERMINATOR

.%:(1:'; UP OVER ZERO BYTE

;LOAD REGISTERS BEFORE FUNCTION
;CALL:
JSR
R5,BEFORE

899
900
901
902
903

013672
013700
013706
013714
013722

017737
017737
017737
017737
000205

166352
166346
166342
166336

002270
002272
002274
002276

BEFORE: MOV

@RL(CS,B.CS

013724
013732
013740
013746
013754
013762
013770

017737
017737
017737
017737
017737
017737
000205

166
166
166
166304
166
166

AFTER:

MOV

.SBTTL

ROUTINE TO CALCULATE CRC

aRLCS,E.CS
aRLBA E.BA

909
910
911
912
913
914
915

002314

33322

;LOAD REGISTERS AT ERROR
RS ,AFTER
JSR
;CALL:

sROUTINE WILL CALCULATE A CRC=16 CRC ON A WORD OF
CALL:

:1-16 BITS IN LENGTH, RESULT IS RETURNED IN '‘CALBCC'’

013772

010046

R5,SIMBCC

-WORD

A TR
LA TEA

9
931

JSR
WORD

-WORD

ROUT INE USES RO,.R1,R2

SIMBCC: Mov

RO,-(SP)

sNUMBER OF BITS (1-16)
;DATA FOR CRC CALCULATION
sPREVIOUS OR _STARTING CRC

(SHOULD BE ZEROED FOR START)

;SAVE RO

R AR

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

013774

MACY11 30A(1052)

17-DEC=79

14:01

ROUTINE TO CALCULATE CRC

010146

MOV

1%:

MOV
MOV
MOV
MOV

:
:GET PRESENT CRC
sROTATE NEW DATA
:MERGE NEW WITH OLD

BEQ

s IF NOT CONTINUE

#1.,R0

;BIT O SET

COM

BCCFBK

COM
BIC

RO
RO,BCCFBK

s COMPLIMENT POLYNOMIAL

MOV

XPOLY ,RO

TEMP4

MOV
MoV
MOV
BIC
BIC
BIS
BIC
BIS

BCCFBK RO
TEMP4 ,R1
R1.R2
R1,RO
BCCFBK ,R2
R2.RO
XPOLY, TEMP4
RO, TEMP4

MOV
MOV
MOV
MOV
RTS

TEMP4
, CALBCC
(SP)+ ,R2
(SP) +,R1
(SP)+,RO
RS

DEC
BNE

JROUTINE

:SAVE R1

*SAVE R2
:GET NUMBER OF BITS
:GET DATA FOR CRC CALCULATION
*GET STARTING CRC

BCCFBK
TEMP4 RO
TEMP3
RO

CLC
ROR

014142

R1,=(SP)

R2.=(SP)
(RS)+, TEMP?
(R5)+. TEMP3
(R5)+, TEMP4

SEQ 0056

CLR
MOV
ROR
ADC

BIT
2%:

PAGE 1-25

sGET CRC POLYNOMIAL (CRC=16)

:CLEAR CARRY

TEMP2
18

TO SET FLAG IF

sRETURN

TRAP OCCURRED

:"'TRPHAN'' IS IN LOCATION 4.

014144
014150

005237
000002

002320

TRPHAN:

014152
014152
014156
014156
014156
014160
014162
014166
014174
014176

INC

TRPFLG

INC

INTFLG

RTI

;INDICATE TRAP

sRETURN

BGNSRV

005237

002322

INTSRV:

s INDICATE

INTERRUPT

ENDSRV

L10020:

000002
010146
012701
032777
001022

;ROUTINE

003720
000001

RTI
TO WAIT FOR DRIVE READY

WTDRDY : MOV
166054

1%:

MOV

BIT

BNE
DELAY

R1,-(SP)

#2000 ,R1

#DRDY ,3RLCS
2
#1

:SAVE R1

*TIME OUT OF 200 MILLISECONDS

*DRIVE READY?

SYES, EXIT
‘WAIT A WHILE

CZRLGBO RL11/RLV1T CTLR TST_1

CZRLGB.MAC

07-DEC-79 07:39

MACY11 30A(1052)

17-DEC=79

ROUTINE TO CALCULATE CRC

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
986
%g

014176
014202
014204
014210
014212
014216
014220
014224
014226
014230

012727
000000
013727
000000
005367
001375
005367
001367
005301
001356

989
(4)
(5)
(5)
ég())

014232
014232
014234
014236
014240

104455
000310
004704
010364

991

014242

012601

2$:

995
996
997
998
999
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
1000
}88.‘12

014246
014250
014254
014262
014264
014264
014270
014272
014276
014300
014304
014306
014312
014314
014316

010146
012701
032777
001025
012727
000000
013727
000000
005367
001375
005367
001367
005301
001356

000001

WTCRDY: MOV
MOV
1%:
BIT
BNE
DELAY
MOV
.WORD
MoV
.WORD
DEC
BNE
DEC
BNE
DEC
BNE

}88:2

014320

004537

013724

1005
(4)
(5)
(5)

014324
014324
014326
014330

‘%83;

gg%

994

014244

14:01

000001

002116
177772
177756

000205

5
PAGE 1-26

MOov
.WORD
MOov
.WORD
DEC
BNE
DEC
BNE
DEC
BNE

#81,(PC)+
0
LSDLY, (PC)+
O
=6(PC)
o =&
=22(PC)
+ =€V
R1
1%

ERRDF
TRAP
.WORD
.WORD
.WORD

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

MoV

RTS

(SP)+,R1

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

sRESTORE

JEXIT

;ROUTINE TO WAIT FOR CONTROLLER READY

017500
000200

002116

#1
a1, (PC)+
0
LSDLY, (PC)+

;SAVE R1
;WAIT 800 MILLISECONDS
s CONTROLLER READY
;YES, EXIT
;WAIT A WHILE

-6(PC)
o b
=22(PC)
.=20
R1
1%

;CHECK IF TIME UP
sNO GO BACK

JSR

R5,AFTER

;GET REGISTERS

104455
000144
004657

ERRDF
TRAP
.WORD
.WORD

.WORD

100.,CRTIM,ERR6 ;CONTROLLER TIMED OUT
CSERDF
100
CRTIM

ERR6

014334

000402

JEXIT

1009
1010
}8}}

014336
014342
014344

004537
012601
000205

JSR
MOV

RS ,AFTER
(SP)+,R1
RS

;GET REGISTERS

1013
1014
1015

014346

" &5)%

014332

177772

165766

R1,~(SP)
#8000. ,R1
#CRDY,aRLCS
2%

177756

010376

013724

2%:
3%:
ENDMOD

RTS

JEXIT

SEQ 0057

CZRLGBO RL11/RLV1T CTL R TST_ 1
CZRLGB.MAC
07-DEC-79 07:39

MACY11 30A(1052)
.SBTTL

014346
014346

BGNTST
STARS
SRR

s*xxxSTART OF

AR AR AR AR

AR A AR A AR AR

014426
014426
014430
014432
014434
014436
014436
014440
014440
014440

AR AR AR AR R AR

AR AR AR AR AR R AR

AR AR

IF WE TRAP WE WILL REPORT

:THE ERROR AND ABORT.
AFTER THIS TEST WE ONLY KNOW
:THAT WE CAN ADDRESS THE REGISTER.
STARS

014346

014400
014404
014404
014410
014412
014416
014420

TESTwwxx

IF WE CAN ADDRESS THE CONTROL

:AND STATUS REGISTER.

014374

SEQ 0058

*#«TEST 1%+ < RLCS ADDRESSABILITY

:TEST TO SEE

014346
014352
014352
014356

17-DEC=79
14:01
PAGE 1-27
**«TEST 1+« < RLCS ADDRESSABILITY

s R

005037

002320

012746
012746
013746
012746
104437
062706

000340
014144
002332
000003

005777

AR AR AR AR AR AR AR AR R AR A RA R A AR AR AR AR AR AR AR AR

1%:
2%:

104406
104401

:SET TO CATCH TRAP

MOV

#3,-(SP)

000010

ADD

#10,SP

165644

TST

aRLCS

sADDRESS RLCS

TRAP
TST

CSCVEC
TRPFLG

:TRAP OCCURRED???

MOV

RLCS,GDDAT

;SET UP ERROR DATA

ERRSF

0. ,EM1,ERR1

.WORD
.WORD
.WORD

0
EMI]
ERR1

MOV
MOV

TRAP

CLRVEC
MOV

002320

002250

BEQ

002354

TRAP

3%:
ENDTST

L10021:

.SBTTL

014442

BGNTST

014442

STARS

CKLOOP
TRAP
TRAP

ARk

-CLEAR TRAP OCCURANCE

#340,-(SP)

104454
000000

004732
010170

TRPFLG

ERRVEC,#TRPHAN, #340

MOV

002332
001407
013737

CLR

SETVEC

#TRPHAN,
- (SP)
ERRVEC,=(SP)
CS$SVEC

ERRVEC
ERRVEC RO

CSERSF

C$CLPT

;RELEASE TRAP VECTOR

:NO, IKAY PROCEED

;BUS TIMEOUT IN ADDRESSING RLCS

;CHECK IF /FL:LOE
suxxxEND OF

IS SET

TESTwwwx

CSETST

*«TEST 2«+ - RLBA ADDRESSABILITY
;exxxSTART

TESTaxxx

'ttttitt't.t.tttt.t't"I't.'tt.'fi.'.."ttltt.tfi't'tttttlttttt.t

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

014442

:AND ABORT.
AFTER THIS TEST WE ONLY KNOW THAT
:WE CAN ADDRESS THE REGISTER.

STARS

:;tt..ttt't.tittit.'tttt"'l'.Q't.'tfitttt'fittfi.ltitt.tttttt'..'fit

CZRLGBO RL11/RLV1IT CTLR TST 1

CZRLGB.MAC
1056

014442

07-DEC-79 07:39
005037

002320

012746
012746
013746
012746
104437
062706

000340
014144
002332
000003

014474
014500

005777

165552

002332

1059
1060
1061

014506
014512
014514

013700
104436

005737
001407
013737

1063
(4)
(5)
(5)

014522
014522
014524
014526

014530

104454
000001
004757
010170

(3)

014532

104406

1055
(7)
(6)
(5)
(4)
(3)
(2)

014446
014446
014452
014456
014462
014466
014470

1057
1058

(3)
(3)

(5)

(3)

014500
014506

014534

MACY11 30A(1052)
1$:

28:

CLR

SETVEC

5
PAGE 1-28

SEQ 0059

MOV

#3,-(SP)

ADD

#10,SP

TST

aRLBA

;ADDRESS RLBA

TRPFLG

s TRAP OCCURRED???

RLBA,GDDAT

;SETUP ERROR DATA

CLRVEC
MOV
TRAP
TST

BEQ

MOV

ERRSF

TRAP
.WORD

3%:
ENDTST

L10022:

.SBTTL

-CLEAR TRAP OCCURANCE

#340,=(SP)

TRAP

002354

TRPFLG

ERRVEC,#TRPHAN,
#340 :SET TO CATCH TRAP

MOV

MOV
MOV

002320

104401

14:01

««TEST 2+« -~ RLBA ADDRESSABILITY

000010

002252

17-DEC-79

.WORD
.WORD
CKLOOP

#TRPHAN,
- (SP)
ERRVEC,=(SP)
CS$SVEC

ERRVEC
ERRVEC RO
C$CVEC

sRELEASE TRAP VECTOR

sNO, CONTINUE

1. ,EM2,ERR1

;BUS TIMEOUT IN ADDRESSING RLBA

$$ERSF

EM2
ERR1

TRAP

C$CLP

TRAP

CSETST

JCHECK IF /FL:LOE IS SET
sexxxEND OF

TESTwwnx

#«TEST 3%x» - RLDA ADDRESSABILITY

g?:;gT

saxxxSTART OF

TESTwnwx

IR AR AR AR R RR R AR AR AR AR R AR AR AR AR RN RAR AR

RRRRRRARRRNRRA RN

;TEST TO SEE IF WE CAN ADDRESS THE DISK ADDRESS
JREGISTER IF WE TRAP WE WILL REPORT THE ERROR
;JAND ABORT.
AFTER THIS TEST WE ONLY KNOW THAT

g?ERgAN ADDRESS THE REGISTER.
e

1079

014536

005037

002320

(7)
(6)
(5)
(4)
(3)

014542
014546
014552
014556
014562

012746
012746
013746
012746
104437

000340
014144
002332

1082
1083
(3)
(3)
1084

014570
014574
014574
014600
014602

165%

014564

AR AR AR AR AR A A A AR A A AR AR

1$:

2%:

CLR

SETVEC

MOV

MOV
MOV

TRPFLG

#340,-(SP)

062706

000010

ADD

#10,SP

005777

165460

TST

aRLDA

013700
104436
005737

002332

MOV

ERRVEC ,RO

002320

TRAP
TST

AR AR AR R IR AR AR AR AR

;SET TO CATCH TRAP

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

MOV

CLRVEC

: CLEAR TRAP OCCURANCE

ERRVEC,#TRPHAN,
#3540

000003

TRAP

AR AR AR AR AR

#3,-(SP)
CSSVEC

sADDRESS RLDA

ERRVEC

JRELEASE TRAP VECTOR

CSCVEC
TRPFLG

: TRAP OCCURRED???

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

001407

014610
014616

013737

'“U“N-HN-"hU“hbflfl—hfl—TSU“NCN: Syvunawnovv o ?OONOS
WRO
~ —
333332 293GWWO

002354

3%:

104406

014630

ENDTST

L10023:

104401

BEQ

sNO, CONTINUE

MOV

RLDA,GDDAT

;SETUP ERROR INFO

TRAP

CSERSF

ERRSF

104454

SEQ 0060

.WORD
.WORD
.WORD
CKLOOP

2. ,EM3,ERR1
2
EM3
ERR1

TRAP

C$CLPT

TRAP

CSETST

;BUS TIMEOUT IN ADDRESSING RLDA

sCHECK IF /FL:LOE IS SET
saxxxEND OF TESTwans

002254

000002
005004
010170

AAOADDAAAA

WOV

1087

014606

I 5
MACY11 30A(1052)
17-DEC-79 14:01
PAGE 1-29
*«TEST 3*» - RLDA ADDRESSABILITY

#«TEST 4%~ -~ RLMP ADDRESSABILITY

di
e
d d

o oM
N v e
N = OOV~ O

—

—a

—

- PN PN N,

_—a

e, i

—

Pt
L
)

ch i

.SBTTL

014632
014632

g?:;gT
IR

sax*xSTART OF

TESTawnx

RARRRRRAR AR AR AR R AT AR AR AR R AR AR AR AR

RRR AR AR AR AR

sTEST TO SEE IF WE CAN ADDRESS THE MULTIPURPOSE
JREGISTER.
IF WE TRAP WE WILL REPORT THE ERROR AND
sABORT.
AFTER THIS TEST WE ONLY KNOW THAT WE CAN

§¢Rggfss THE REGISTER.

014632

SRR A AR AR A AR AR AR A AR

014632

005037

002320

012746
012746
013746
012746

000340
014144
002332
000003

104437
062706

005777

1%:

2%:

014702
014704

014712
014712
014714
014716
014720
014722
014722
014724
014724
014724

104406
104401

#340,~(SP)

MOV

#3,-(SP)

AR AR

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

#10,SP

165366

TST

aRLMP

;ADDRESS RLMP

TRAP
TST

CS$CVEC
TRPFLG

;TRAP OCCURRED???

MOV

RLMP,GDDAT

;SET UP ERROR INFO

ERRSF

3. .EM4 ERR1

.WORD
.WORD
.WORD
CKLOOP
TRAP

3
EM4
ERR1

TRAP

CS$ETST

002256

BEQ

002354

TRAP

3%:
ENDTST

L10024:

ARk

:SET UP TO CATCH TRAP

ADD

CLRVEC
MOV

AR AR AR

-CLEAR TRAP OCCURANCE

000010

104454

00000 3
005031
010170

TRPFLG

AR AR A AR

ERRVEC.#TRPHAN,#340

MOV

TRAP

002320

013737

SETVEC

MOV
MOV

002332
014676

CLR

AR AR AR

ERRVEC
ERRVEC RO

C$ERSF

C$CLPT

;RELEASE TRAP VECTOR

sNO, CONTINUE

;BUS TIMEOUT IN ADDRESSING RLMP

JCHECK IF /FL:LOE
sexxxEND OF

IS SET

TESTwwxx

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

J 5
MACY11 30A(1052)
17-DEC-79 14:01
PAGE 1-30
**TEST 4*» = RLMP ADDRESSABILITY

1117
}}}g

.SBTTL

«=TEST 5%+ - READ WRITE OF RLCS

}}%?

014726

BGNTST

1122
1123
1124

014726

STARS

014726

;TEST THAT WE AN WRITE/READ BITS 8,9
;OF THE CONTROL AND STATUS REGISTER.
;ARE DON'T CARE BITS AT THIS TIME AND
: (CONTROLLER READY) IS ALWAYS WRITTEN
STARS

(2)

1125
1126
1127
1128
1129
(2)

1130
1131

}}g%

014726

012703

1134
1{%%

014732
014732

104404

1136
1137
1138
1139
1140
1141
1142
1143
1144
1145

014734
014734
014740
014746
014754
014762
014764
014772
015000
015006

011337
052737
013777
032777
001403
052737
017737
042737
023737

1148
(4)
(5)
(5)
(5)
1149

015016
015016
015020
015022
015024
015026

104455
000004
005056
010202

015026
015030

104410
000012

1152
1153

015032
015034

005723
020327

1156
(3)
(3)
1157
(3)

015042
015042
015042
015044
015044

}}29

(3)
(3)

}}gg

1%;&

015014

015040

015044

001404

001335

104405

104401

002764
BGNSEG
CSTEST:

002354
000200
002354
040000

002354
165274
165266

140000
165252
000001
002354

002354
002356
002356
002356

s*xxxSTART OF TEST#wxx

AR AR AR AR R A A AR AR AR AR AR AR

99%:

1%:

003062

A AR A AR AR A A AR AR

ENDTST
L10025:

AR AR AR AR

AN AR AR A AR AR AR AR

ARk

AND BITS 6~1
BITS_15-10 AND 0
BIT 7
TO A ONE.

AR RRA AR A AR

ARk

MOV

#CSPAT ,R3

TRAP

($BSEG

MoV
BIS
MOV
BIT
BEQ
BIS
MOV
BIC
cMP

BEQ

(R3) ,GDDAT
#200,GDDAT
GDDAT ,aRLCS
#DERR ,aRLCS
99%
#ERR!DERR,GDDAT
aRLCS,BDDAT
#DRDY ,BDDAT
GDDAT ,BDDAT
1%

;GET PATTERN INTO GDDAT
s INSURE GO IS SET
;LOAD RLCS (CONTROL AND STATUS)
:IF DRIVE ERROR PRESENT
s THEN EXPECT DRIVE AND
;COMPOSITE ERROR
sREAD RLCS BACK
; IGNORE DRIVE READY
;DID WE READ WHAT WE LOADED

ERRDF
TRAP
.WORD
.WORD
.WORD
ESCAPE

4. ,EMS5,ERR2
CSERDF
&
EM5
ERRZ
SEG

;WRONG DATA IN RLCS

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

TST
CMP

(R3)+
R3,#CSEND

;BUMP FOR NEXT PATTERN
;CHECK FOR END

TRAP
.WORD

BNE
ENDSEG
10000$:

SEQ 0061

CSESCAPE
10000%-.

CSTEST

;SET UP TABLE POINTER OF PATTERNS
s*xxxSTART OF SEGMENT
*%

;YES, THEN BRANCH

sNOT END, LOAD NEXT PATTERN
sxxxxEND OF SEGMENT*x»x

TRAP

C$ESEG

TRAP

CSETST

saxxxEND OF

TEST#wwx

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

K 5
MACY11 30A(1052)
17-DEC-79 14:01
PAGE 1-31
**TEST 6%~ - READ WRITE OF RLBA

}}g?

.SBTTL

}}g%

015046

BGNTST

1164

015046

STARS

(2)

SEQ 0062

*«TEST 6** - READ WRITE OF RLBA

s*xxxSTART OF TEST*wwxx

AR AR AR AR AR AR AR

AR AR AR AR AR AR A AR A AR A AR

1165

:TEST THAT WE CAN WRITE/READ BITS 15-1 OF THE

1167
1168
1169

:GROWING O AND SHIFTING 0.
BIT O IS ALSO LOADED BUT
; SHOULD ALWAYS COME BACK AS 0
STARS

1166

(2)

1170
117

1172

1173
(3)
1174
1175
1176
1177
1178
1179
1180
1181

}}g%

1184
(4)
(5)
(5)
(5)
1185
(3)

:BUS ADDRESS REGISTER.

015046

015052
015052
015054
015054
015060
015064
015066
015074
015102
015110

015116

015120
015120
015122
015124
015126
015130
015130

015132

FOUR PATTERNS ARE USED:

SRR A AR A AR AR A AR

012703

002410

BGNSEG

104404
011337
005737
001403
042737
013777
017737
023737

001404

104455
000005
005127
010202
104410
000012

BATEST:

002354
002402

000001
002354
165144
002354

002354
165150
002356
002356

2%:

GROWING 1,

AR A AR AR AR AR

AR A AR AW

#BEGPAT ,R3

TRAP

C$BSEG

MOV
TST
BEQ
BIC
MOV
MOV
CMP

(R3) ,GDDAT
T.CNTLR
2%
#B1TO,GDDAT
GDDAT ,aRLBA
@RLBA,BDDAT
GDDAT ,BDDAT

;GET PATTERN TO SEND
;RL112?
:NO,
;KEEP RLBA EVEN (UNIBUS)
;LOAD PATTERN TO BUS ADDRESS
sREAD IT BACK
;IS IT CORRECT?

ERRDF
TRAP
.WORD
.WORD
.WORD
ESCAPE
TRAP

5.,EM6,ERR2
CSERDF
5
EM6
ERR2
SEG
CSESCAPE

;DATA WRONG IN RLBA

.WORD

10000%-.

SHIFTING 1,

Mov

BEQ

1%:

A AR AR AR AR

;GET START OF PATTERN LIST

s#*xxxSTART OF SEGMENT*#*x

:IF SO, BRANCH

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

pour

Vv weww@NOWNSWN=O~

b b
o
) b e

W B NN SN = e

o avuonun
vivvvioaiovo

17-DEC=79
14:01
PAGE 2
«*TEST 6*+ - READ WRITE OF RLBA

— d d cd e

(R3) +
R3,#ENDPAT

BNE

ENDSEG
:
100008%

104405

ENDTST
L1C026:

104401

SEQ 0063

BGNTST

015150

STARS
SRR

BATEST

TRAP

CSESEG

TRAP

CSETST

;BUMP FOR NEXT PATTERN
sCHECK FOR END

sNOT END, BRANCH FOR NEXT
s#axxxEND OF

SEGMENT*#xx

s*xxxEND OF

TEST*wnx

*«TEST 7+x - READ WRITE OF RLDA

015150

s*xxxSTART OF

A A AR

AR A AR AR A AR AR

AR AR A AR

TEST*wxx

AN AR AN AR AR AR

;TEST THAT WE CAN WRITE/READ THE DISK ADDRESS REGISTER
;ALL BIT POSITIONS ARE WRITTEN USING FOUR PATTERNS:

:GROWING 1, SHIFTING 1, GROWING O AND SHIFTING 0

015150

STARS

SRR

015150
015154
015154
015156
015156
015162
015170
015176
015204

015206

(3)
1222
1223
1224

015222
015224
015230

1226
(3)
(3)

015232
015232
015232

TST
CMP

002616

.SBTTL

015206
015210
015212
015214
015216
015216
015220

1227

005723
020327
001344

ERDEEE

—

)

OO0

)

—_— D

000000

PSS ITIROIT SELILJLYRLLLC
28BS

d b

e
Yo

D D

P
-l

D S o
el

PON) =
o
-~
~

RIS~ PPN
i
b cnd

b e

ANAAAANNONNDNNNNN
A~

MACY11 30A(1052)

(o]
~

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

015234

012703

002410

BGNSEG

104404

011337
013777

002354
002354

017737
023737

002354

001404

165060

AR AR AR

DATEST:

165064

002356
002356

1%:

104410

000012

104405

CSBSEG

MOV

MoV

(R3) ,GDDAT
GDDAT ,aRLDA

;GET PATTERN
;LOAD PATTERN IN DA

MOV

@aRLDA,BDDAT

GDDATM ,BDDAT
1%

sREAD PATTERN BACK

;1S IT CORRECT?
;BRANCH IF CORRECT

ERRDF

6. ,EM7 ,ERR2

;WRONG DATA IN RLDA

.WORD

.WORD
.WORD

ENDTST

CSERDF

ESCAPE

EM7
ERR2
SEG

.WORD

10000%~-.

TRAP

BNE

ENDSEG
10000%:

RN AR AR

TRAP

TST
(MP

002616

AR AR AR AR AN AR AR A AR A AR AR

#BEGPAT ,R3

TRAP

000006
005155
010202

A A

MOV

CMP
BEQ

104455

005723
020327
001352

AR AR AR

CSESCAPE

(R3)+
R3 ,#ENDPAT
DATEST

:SET UP POINTER TO PATTERN LIST

;xxaxSTART OF SEGMENT*#w+

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

;BUMP POINTER
;AT END OF PATTERNS?
:NO, BRANCH BACK
sxxxxEND OF SEGMENT*xxx

C$ESEG

R AR AR AR,

sanxxEND OF

TESTwnwx

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

L10027:

104401

LSBTTL

—_ = b

U‘N
& N oY

1228
1229
1230

015234
015234

m 5
17-DEC=79
MACY11 30A(1052)
PAGE 2-1
14:01
*«TEST 7%+ - READ WRITE OF RLDA
CSETST

*«TEST 8%+ - BIS OF RLCS

BGNTST
STARS
e

s*x*xSTART OF
AR AR AR A AR AR AR

AR TR AR AR AR AR AR AR

TEST#wnx

A A AR AR AR A

AR hn

d d

;TEST THAT WE CAN USE THE "BIS'" INSTRUCTION ON THE CONTROL
sAND STATUS REGISTER. BITS 8.9 AND 6=1 ARE TESTED TO
;SET INDIVIDUALLY AS WELL AS COLLECTIVELY WITHOUT DESTROYING

nno AN
"N
N

:ANY PREVIOUS DATA PATTERN

— e

STARS

-0V~

- ad

TRAP

SEQ 0064

SRR

012703

002764

BGNSEG

104404

012777
011337

AR AR AR

MOV

#CSPAT ,R3

TRAP

C$BSEG

AR AR AR A A AR A AR AR AR AN

R AR AR

khw

;GET BEGINNING OF LIST
;exx*START OF SEGMENT %%

164776

MoV

#CRDY ,aRLCS

002354

BIS

#CRDY ,GDDAT

040000

164752

BIT

#DERR,aRLCS

140000
164736
000001
002356

009336 99% :

BIS

#ERR'!DERR,GDDAT

BIC
CMP

#DRDY ,BDDAT
BDDAT ,GDDAT

sREAD RLCS TO CHECK 'BIS'’
;CLEAR OUT DRIVE READY
;DID BIS WORK?
;BRANCH IF OKAY

ERRDF

7..EM61 ,ERR2

;WRONG DATA IN RLCS

.WORD
.WORD
ESCAPE

EMé61
ERRZ2
SEG

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

.WORD

10000%~-.

MOV

BIS

002356
002354

BEQ

MOV

BEQ

TRAP
.WORD

010202

2%:

104410
000012

015356
015356
015356
015360
015360
015360

000200
002354
000200
164760

015346
015350
015354

AR A A A

TRAP

TST
CMP
BNE

003062
ENDSEG
100008:

ENDTST

L10030:

.SBTTL

(R3) ,GDDAT

(R3) ,aRLCS

99%

oRLCS ,BDDAT

CSERDF

CSESCAPE

(R3)+
#CSEND ,R3
1%

s INSURE GO IS THERE
sSET UP EXPECTED RLCS
: IN_GDDAT
;BIT SET PATTERN IN RLCS
;IF ERROR BIT SET THEN
:EXPECT IT ON THE READ
;BAC

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

sxxx*END OF SEGMENT#xx«
TRAP

CSESEC

TRAP

CSETST

««TEST 9*« - BIC OF RLCS

sxxxxEND OF TESTwwwx

CZRLGBO RL11/RLV1T1 CTLR TST 1
07:39
CZRLGB.MAC
07-DEC~
1269
1270
1271
1%7;

015362

BGNTST

015362

STARS

1290

1291
1292
1293
1294
(4)
(3)

(5)
(5)
1295
(3)
(3)
1296
1297
1298
1299
1300
(3)
(3)
1301
(3)
(3)
1302
1303
1304
1305
1306
1307
1308
(2)
1309
1310

SEQ 0065

PAGE 2-2

sannaSTART OF TEST#wwx

;TEST THAT THE "BIC'" INSTRUCTION WILL WORK ON THE
;CONTROL AND STATUS REGISTER. BITS 8-9 AND 6~1 ARE

1273

1275

::"'Q..t.'..t........""".t...Q"...Q.t...'.tt....".t....'.'t

1274

1276
2)
1277
1278
1279
1280
(3)
1281
1282
1283
1284
1285
1286
1287
1288
1289

17-DEC-79
14:01
MACY11 30A(1052)
««TEST 9=« - BIC OF RLCS

; TESTED.
STARS

015362

015362
015366
015366
015370
015370

015376
015604
015410
015414
015422
0154264
015432
015440
015446
015454

015456
015456
015460
015462
015464
015466
015466
015470

015472
015474
015500
015502
015502
015502
015504
015504
015504

::'tt."t....'.....Q.""'"'..........'........Q.'.'..'.'...ttt.

012703

002764

104404
012777
012737
041337
041377
032777
001403
052737
017737

042737
023737
001404

001776
001776
002354

104401

;GET BEGINNING OF PATTERNS
sanxxSTART OF SEGMENT#wa#

($BSEG

1$:

#1776, 8RLCS
#1776,GDDAT

;SET ALL SETTABLE BITS
:SET UP EXPECT DATA IN

(R3) ,aRLCS

:CLEAR BITS IN RLCS VIA 'BIC

(R3) , GDDAT

040000

#DERR,QRLCS

998

140000
164612
000001
002356

:GDDAT

:IF DRIVE ERROR BIT SET

SEXPECT IT SET WHEN WE

#ERR!DERR
, GDDAT :READ IT BACK
@RLCS,BODAT
:MOVE RLCS TO BDDAT FOR COMPARE
#DRDY.BDDAT
:CLEAR DRIVE READY

BDDAT,GDDAT ~
28

:DID ‘BIC’' WORK PROPERLY
:BRANCH IF OKAY

8. ,EM62 ,ERR2

;WRONG DATA IN RLCS

CSERDF

8
EM62
ERRZ2

2%:

104410
000012

104405

BGNSEG

164634

104455
000010
006733
010202

005723
020327
001333

#CSPAT R3

003062
ENDSEG
10000%:

.SBTTL

015506

BGNTST

015506

STARS

JIF /FL:LOE SET LOOP, ELSE EXIT SEG

(R3) +
R3,#CSEND
1%

JGET NEXT PATTERN
;AT END OF LIST
JNO, GO BACK WITH NEXT PATTERN
senaxEND OF SEGMENT#*x«

(SESEG

ENDTST

L10031:

SEG
CSESCAPE
100008~.

TRAP

*«TEST

;ttttEND

TESTaxnx

CSETST
10+~ - BIS OF RLBA

;anxxxSTART OF TESTwnnx

AR RAAR AR AR AR AR A A AR AR

AR A AR AARARARAAARAARAARAAA
AR AR AR AR AR NS

“TEST THAT THE 'BIS'* INSTRUCTION WILL WORK ON THE BUS
*ADDRESS REGISTER.

BITS 15-0 ARE LOADED, ONLY BITS 15-1

MACY11 30A(1052)
17-DEC=79 14:01
*+TEST 10*+ - BIS OF RLBA

—_—

bt
ot [P YO
ot otNS~
e sW=
e ot
GERRKKRIRIKIR
O NOVIS
NN =
VOT

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

b —d

012703

—

BGNSEG
"

104404

d d D D

005077

d D d d D D

002354

002356
002354

38:

N
N

2%:

L10032:

015610

.SBTTL

015612

BGNTST

015612

STARS
IR

ii ittt

ittt ittt

ittt

iiiiiiiiiistiist]

TRAP

C$8SEG

CLR
MOV

aRLBA
(R3) ,GDDAT

;CLEAR 'BA"’
sSET EXPECTED

BEQ
BIC

33
#1,GDDAT

*NO
*BIT 0 CAN'T SET IN RLBA (UNIBUS)

;GET START OF LIST

s*xxxSTART OF SEGMENT#x#«

T.CNTLR

JRLN

BIS
MOV
CTMP

(R$) , 3RLBA
@RLBA ,BDDAT
BDDAT . GDDAT
23

;BRANCH IF YES

ERRDF

9. .EM63,ERR2

;WRONG DATA IN RLBA

.WORD
.WORD
.WORD
ESCAPE

9
EM63
ERRZ
SEG

JIF /FL:LOE SET LOOP, ELSE EXIT SEG

.WORD

100008-.

TST

002616

#BEGPAT ,R3

TRAP

ENDTST

*BIS RLBA WITH PATTERN
*READ 'BA"’
:DID RLBA LOAD PROPERLY?

CSERDF

CSESCAPE

(R3) +

CMP
BNE

R3,#ENDPAT
1%

TRAP

CSESEG

TRAP

CSETST

;GET NEXT PATTERN

;DID WE COMPLETE LIST
;NO, GO BACK FOR NEXT.
sexxxEND OF SEGMENTx%%x

sexxxEND OF TEST*xnx

««TEST 11+~ - BIC OF RLBA
;*xxxSTART OF TEST*#xx
AR AR AR AR AR R

AR AR R AR

RN AR

AR AR RANRRRARRRRANARRANRRRRARN

sTEST THAT THE 'BIC'' INSTRUCTION WILL WORK ON THE BUS
sADDRESS REGISTER. BITS 15-1 ARE TESTED WITH 4 PATTERNS

égxggING 1, SHIFTING 1, GROWING O AND SHIFTING 0.

015612

——

oQo4

(elele]

wage ESEEERS
~NN
=

SEQ 0066

MOV

TRAP

ENDSEG
100008:

RRR

BEQ

—d

000001
164506
164502
002356

015576

TST

015574

6
PAGE 2-3

;ARE EXPECTED BACK.
FOUR PATTERNS ARE USED: GROWING 1, SHIFTING 1,
ggxgglNG 0, AND SHIFTING 0.

(5)

1340

012703
104404

002410

AR AR A AR

BGNSEG

AR AR AR AR AR

AR AR AR AN AR AR AR

MOV

#BEGPAT,R3

TRAP

($BSEG

RAARRR AR AR AR AN

;GET START OF LIST
;x%x2START OF SEGMENTw*#%w

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

002354

164406
164402

002356

164424

1%:

002354
002356
002354

N
N
N

g
WW
Lo - g [« AV, BV A N

SocEoaEEES

_ e
—
—

015674
015676

005723
020327
001345

(R3) ,8RLBA

:BIC RLBA

ENDSEG
100008:

ENDTST

L10033:

104401

.SBTTL

015712

BGNTST

015712

STARS
s

(R3S ,GDDAT

MOV
CMP

aRLBA ,BDDAT
BDDAT ,GDDAT

ERRDF

10.,EM64,ERR2

.WORD
.WORD
.WORD

10
EM64
ERRZ2

.WORD

10000%-.

TST

104405

015710

BIC

ESCAPE
TRAP

002616

SEQ 0067

;SET RLBA TO ALL 1°'S (BIT 0=0)
JSET UP EXPECTED RESULTS

BEQ

2%:

PAGE 2-4

#-2 ,aRLBA
#-2,GDDAT

TRAP

104410
000012

MOV
MOV

BIC

!flg?flu“flu‘
’O“Vx

177776
177776

104455
000012
007077
010202

ViV
S

1355

015620
015620
015626
015634
015640
015644
015652
015660

17=DEC=79 14:01
MACY11 30A(1052)
«*TEST 11*~ ~ BIC OF RLBA

CSERDF

;READ RLBA
;BIC WORK OKAY?

;IF YES BRANCH

;WRONG DATA IN RLBA

SEG
CSESCAPE

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

(R3)+

JGET NEXT PATTERN

JNO, GO BACK FOR NEXT
saxxxEND OF SEGMENTxnxx

cTMMP

R3,#ENDPAT

TRAP

CSESEG

TRAP

CSETST

BNE

:IN GDDAT

JHAVE WE COMPLETED LIST

:ttttfm

TESTxwxx

*«TEST 12+x - BIS OF RLDA

saxxxSTART OF

AR AR AR A AR AR A AR A AR R AR

TESTawaxx

AR AR AR ARAAAAAAARARARARAAARA
A AR AR AR
R

;TEST THAT THE 'BIS'' INSTRUCTION WILL WORK ON THE DISK ADDRESS

sREGISTER. BITS 15-0 ARE TESTED WITH 4 PATTERNS, GROWING 1,
;SHIFTING 1, GROWING O, AND SHIFTING 0.

015712

STARS

SRR AR

AR AR A AR AR AR AR AR AR AR AR AR

AR AR AN R

AR AR AR AR AR AR

015712

012703

BGNSEG

104404

1%:

005077

011337
051377
017737
023737
001404

~WN W

O
&8s
LEREFTE CEEE

1380

104455
000013

002356
002354

MOV

#BEGPAT ,R3
C$BSEG
aRLDA
(R3) ,GDDAT

;GET START OF LIST

saxxxSTART OF SEGMENT%xx«

;CLEAR 'DA"’
sSET EXPECTED

(R3) ,aRLDA

:BIS RLDA

s IF OKAY BRANCH

@RLDA ,BDDAT
BDDAT ,GDDAT

11. ,EM65,ERR2
%?ERDF

sREAD RLDA
:1S RLDA CORRECT

;WRONG DATA IN RLDA

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

015756

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

007162
010202

2%:

104410
000012

005723
020327
001351

ENDSEG
100008%:
ENDTST

L10034:

104401

EM6S
ERRZ2
SEG

.WORD

100008~-.

TRAP

002616

104405

.WORD
.WORD
ESCAPE

.SBTTL

6
PAGE 2-5

CSESCAPE

TST
CMP
BNE

(R3)+
R3,#ENDPAT
1%

TRAP

CSESEG

TRAP

CSETST

JGET NEXT PATTERN
JHAVE WE FINISHED?
sNO GO BACK
suanxxEND OF SEGMENT*xx«
saxx*END OF TESTa%xx

»+TEST 13*+ - BIC OF RLDA
sxxxxSTART OF TEST*waxx

BGNTST
STARS

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

sTEST THAT THE 'BIC'' INSTRUCTION WORKS ON THE DISK
;ADDRESS REGISTER. ALL BITS ARE TESTED WITH FOUR

g?:;gERNS: GROWING 1, SHIFTING 1, GROWING O AND SHIFTING 0
SRR

012703

002410

BGNSEG
-

104404

012777

177777
177777

002354

164220
164214

002354

AR AR A AAAAAAARA

164236
002354

002356
002356

WBEGPAT,R3

TRAP

($BSEG

MOV
MOV
BIC
BIC

#-1,aRLDA
#-1.GDDAT
(R3),GDDAT
(R3).aRLDA

:SET RLDA TO ALL 1'S
:SET EXPECTED DATA
:SET EXPECTED DATA
:"BICTM RLDA

CMP
BEQ

GDDAT.BDDAT
28

:DID 'BIC'* WORK?
:IF IT DID BRANCH

ERRDF

2s:

104410

000012

ENDSEG
10000%:

:READ, RLDA

:WRONG DATA IN RLDA

.WORD
.WORD
.WORD
ESCAPE

12
EM66
ERR2
SEG

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

.WORD

100008~

TRAP ~

IST
cMP

002616

@RLDA,BDDAT

:GET START OF LIST

#**xSTART OF SEGMENT#*s

12.,EM66,ERR2

TRAP

007243
010202

005723
020327
001345

MOV

104455
000014

AR AR RN AAAARAAAAAAAAAAARA
AR AR A AR A
ARk

BNE

CSERDF

CSESCAPE

(R3)+
R3 AENDPAT
18

:GET NEXT PATTERN
?,
3: DONE
:NO GO BACK
sxxxxEND OF SEGMENT*xxx

SEQ 0068

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

016076
016100
016100
016100

104405

ENDTST

L10035:

104401

TRAP

CSESEG

TRAP

CSETST

6
PAGE 2-6

SEQ 0069

sxxxxEND OF TESTwwww

J\J\“J\‘\:;J\—\
W
SYERRIK

(3)
1431
(3)

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

016102

BGNiST

—

)

.SBTTL

016102

STARS
e

*«TEST 14*+ - BUS RESET OF RLCS

;*x*xSTART OF TEST###x

AR AR AR A A AR AR AT AR AR AR A AR AR

AR AR AR AR

ARRAAAA

AR AR

AR AN

;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)
;IS A DON'T CARE.
IF AT THE START UP THIS TEST BIT
;14 (DRIVE ERROR) IS SET WE WILL INSIST IF IS THERE AFTER
;THE 'RESET'' ALONG WITH BIT 15 (COMPOSITE ERROR). BITS
é}i;;o ARE NOT WRITEABLE.

016102

SRR

016102
016102
016106
016110
016116

000340

000377
000200
040000
140000
000100

002354

164116

1$:

2%:
164070
000001
002356

002356
002356
002354

#PRIO7
#PR107,RO

;PRIORITY TO SEVEN

MOV

#377 ,aRLCS

sLOAD ALL RLCS LOADABLE BITS

#CRDY ,GDDAT
;SETUP EXPECTED
#DERR,aRLCS
;DRIVE ERR SET?
18
;IF NOT DON'T EXPECT IT
:?SSRASRR.GDDAT
;IT'S SET, INIT BETTER NOT CLR
;SET UP A WAIT LOOP
;BUS RESET
CSRESET

;WAIT IN CASE OF DRIVE ERROR

MOV
BIC
cMP

aRLCS,BDDAT
#DRDY ,BDDAT
BDDAT ,GDDAT

sREAD RLCS
+CLEAR OUT DRDY - DON'T CARE
;DID INIT WORK

ERRDF

13.,EM67,ERR2

;WRONG DATA IN RLCS

.WORD

EM67

gzg

BEQ

C$SPRI

MOV
BIT
BEQ
BIS
MOV
BRESET
TRAP

TRAP
.WORD

010202

.WORD

CSERDF
13

104401

.SBTTL
016212

BGNTST

:YES, BRANCH

ERR2

ENDTST

L10036:

AR AR AR AR AR,

SETPRI
MOV
TRAP

164132

002354

AR AR A AR A AR A AR AR RN AR AR AR AR AAAR AR AR AR

sxxxxEND OF TESTwxwx
TRAP

CSETST

*«TEST 15%* - BUS RESET OF RLBA
sxxxxSTART OF

TESTannx

CZRLGBO RL11/RLV11 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)
(5)
1491
1492
1493
(3)

(3)

1494
1495
1496

1497

F
6
MACYN 30A(1052)
17-DEC=79 14:01
PAGE 2-7
**TEST 15+* < BUS RESET OF RLBA

016212

SEQ 0070

STARS
IRRRERARAN AN AR AR RARRR AR AR AR RRRRAR AR RRRRRERRRRRARRRRRARRRAARRRRARR

:TEST THAT A BUS RESET WILL CLEAR THE ENTIRE

:BUS ADDRESS REGISTER.
THE BUS ADDRESS IS LOADED WITH 177776
g?fifisls EXPECTED TO BE ZERO AFTER THE RESET

016212

AR AR AR AR AR AR AR AR AR

016212
016220
016224

016242
016250

016252
016252

016262
016262
016262
016262

012777
005737
001403
052777
005037
104433

017737
001404

177776

002402

164032

000001
002354

164016

164004

002356

#-2 ,3RLBA

JSET BA TO ALL 1°'S

BEQ

Pt 3

sNO

#1,3RLBA
GDDAT

BEQ

TRAP
MOV

TRAP
.WORD

.WORD
.WORD

1%:

T.CNTLR

BIS
CLR
BRESET

ERRDF

104455
000016
007363
010202

TRAP

.SBTTL

016264

BGNTST

016264

STARS

CSRESET
oRLBA,BDDAT

14.,EM70,ERR2

ngRDF

JCLEAR EXPECTED DATA
sISSUE BUS INIT
sREAD RLBA

s IF CLEAR BRANCH

;WRONG DATA IN RLBA

EM70
ERR2
saxx*END OF

L10037:

AR R AR AR AR

JRL11?2?

ENDTST

104401

AR A AR AR

MOV
TST

2%:

AR AR AR AR A AR AR

TEST*xx«

CSETST

««TEST 16** - BUS RESET OF RLDA
s*xxxSTART OF

AR AR AR R

TESTw%xx

RER AR AR AR AR AR AR AR KRR IRRARRRRRRRRRRRRRAARR

:TEST THAT A BUS RESET WILL CLEAR THE ENTIRE

:DISK ADDRESS REGISTER.
THE DISK ADDRESS IS LOADED WITH 177777
é?fi%sls EXPECTED TO BE ZERO AFTER THE RESET.

012777
005037
104433

017737
001404

VWSS

= e

s =

~«~v£:uuu-a<>2”8

~~~ANonununaAaonuns

SRR

104455

000017
007420

177777
002354

163762

163750

002356

A AR A AR AR A AR

AR AR AR AR A AR AR AR AR AR R AR AR R AR AR AR AR AR

MOV
CLR
BRESET

#-1,aRLDA
GDDAT

BEQ

:IF CLEAR BRANCH

15.,EM71,ERR2Z

;WRONG DATA IN RLDA

TRAP
MOV

ERRDF
TRAP

.WORD
.WORD

CSRESET
aRLDA,BDDAT

CSERDF

15
EM71

;SET DA TO ALL 1'S
sCLEAR EXPECTED
s ISSUE BUS INIT
sREAD RLDA

—_

ld
d
oslh
) w
D
i
i
D
o
D
D
b o
i
b il
i
-

HWN

U“h\fluwzkh\h\flhhuwfl\hf\\flU“fl\hLflUVN\h\h\fluflfl\h\hfinfi\h\fl\h
NN
NN NINININ) = = D (NN
= =0
oo SNRERRUKZE VSWNOWbVWN—‘OO@VV ~ OV

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

016316
016320
016320
016320
016320

MACY11 30A(1052)

17-DEC=79

14:01
PAGE 2-8
«*TEST 16%* - BUS RESET OF RLDA

010202

SEQ 0071

ERR2

.WORD

sanxxEND

" TRAP

104401

.SBTTL

016322

BGNTST

016322

STARS
AR

TESTxwxnx

CSETST

*xTEST 17%** -~ UNIQUENESS OF RLCS
;axx*START OF
A AR AR AR R A A AR

AR R AR R AR A AR AR AR

TEST#wxx

AR AR AR AR AR AR AR AR AR AR

:TEST THE UNIQUENESS OF THE CONTROL AND STATUS
:REGISTER.
THE _RLBA AND RLDA ARE PRELOADED WITH
:177776 AND 177777 RESPECTIVELY. THE RLCS IS THEN

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

016322

STARS

016322
016330
016336
016344

012737
012777
012777
013777

000201

177776
177777

002324

002324
163714
163710
163676

A A

AR AR

AR R AR AR A AR AR AR AR A AR AR AR AR

MOV

#DRDY ! CRDY ,LDCSR

;SET DRIVE AND CONTROLLER READY

MOV

LDCSR,aRLCS

JWRITE RLCS

MOV
MOV

#-2,aRLBA
#-1,3RLDA

;SET RLBA TO ALL 1°'S
sSET RLDA TO ALL 1°'S

;CHECK THAT RLBA REMAINS UNAFFECTED

016352
016360

022777
001412

177776

163672

016362
016370

012737
017737

177776
163656

002354
002356

016376

#-2,aRLBA

JRLBA OKAY?

MOV
MOV

#-2,GDDAT
aRLBA,BDDAT

;SET UP EXPECTED
sREAD RLBA

16. EH72 ERR2

;CS MODIFIED BA

ERRDF

000020
007455
010202

1%:

022777
001412

177777

163636

012737
017737

177777
163622

002354
002356

CSERDF

.WORD
.WORD

EM72
ERRZ2

CKLOOP
TRAP

C$CLPT

sCHECK IF

/FL:LOE

#=1,3RLDA

sYES, CONTINUE

MOV
MOV

#-1,GDDAT
aRLDA,BDDAT

; 3EY UP EXPECTED
;READ DA

17.,EM73,ERR2

;(S MODIFIED DA

ERRDF
TRAP

2%:

;YES, GO CHECK DA

CMP

BEQ

104455

TRAP

.WORD

104406

000021
007510
010202

CMP

BEQ

104455

R AR AR

.WORD
.WORD
.WORD

CSERDF

17
EM73
ERRZ2

sRLDA OKAY?

IS SET

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

(3)
(3)

1559
1560
1561

016444
016444
016444

H 6
17-DEC=79
14:01
PAGE 2-9
**TEST 17%+ = UNIQUENESS OF RLCS

MACY11 30A(1052)

ENDTST

L10041:

104401

LSBTTL
016446
016446

SEQ 0072

sexnxEND OF
TRAP

TESTa%nx

CSETST

*=TEST 18+* - UNIQUENESS OF RLBA

BGNTST

s*xxxSTART OF

STARS

TESTwwxx

ttt*tttttfl.ttt.fiQttt'Q"ttt'fitttt'.*.tittt'tt'tt!ttt'..ttt'.tt'

:TEST THE UNIQUENESS OF THE BUS ADDRESS REGISTER.
RLCS AND RLDA ARE LOADED WITH XXX20X AND 177777
THE RLBA IS THEN WRITTEN TO INSURE
:RESPECTIVELY.
s THAT NEITHER THE RLCS OR RLDA ARE MODIFIED

THE

:BY WRITING THE RLBA.

STARS

KA AR AR

016506

012737
032777
001403
052737
013777
012777
005077

000200
040000

002354

140000

002354
163550

002354

177777
163540

MOV
BIT

163566

163546

A AR AR AR A AR AR AR AR AR AR

99%:

BIS

MOV
MOV
CLR

AR AR

A AR A RN AR AR R AR AR SRR AR

;CONTROLLER READY
;IF DRIVE ERROR IS
99%
sSET THEN EXPECT IT
#ERR!DERR,GDDAT ;SET WHEN WE READ IT.
GDDAT ,aRLCS
sLOAD RLCS
#=1,3RLDA
:LOAD RLDA
aRLBA
;CLEAR RLBA
#CRDY ,GDDAT
#DERR,aRLCS

sCHECK IF RLCS IS OKAY
016512
016520
016526
016534

017737
042737
023737
001404

016536
016536
016540
016542
016544
016546
016546

000022
007543
010202

016550

022777

016556

001412

016560
016566

012737
017737

016574
016574
016576
016600
016602

163532
000001
002356

002356
002356
002354

sREAD RLCS
; IGNORE DRIVE READY
:CS 0K?

ERRDF

18.,EM74 ,ERR2

;BA MODIFIED CS

.WORD
.WORD
.WORD

18
EM74
ERR2

TRAP

1%:

104406

007575
010202

aRLCS ,BDDAT
#DRDY ,BDDAT
BDDAT ,GDDAT

BEQ

104455

104455
000023

MOV
BIC
CMP

177777

177777
163462

163476

002354
002356

CKLOOP
TRAP

CSERDF

C$CLPY

;YES, GO CHECK DA

;CHECK IF /FL:LOE IS SET

CMP

#-1,3RLDA

;IS RLDA OKAY?

BEQ

; IF OKAY BRANCH

MOV
MOV

#-1,GDDAT
aRLDA,BDDAT

sSET UP EXPECTED
JREAD RLDA

19.,EM75,ERR2

;BA MODIFIED DA

ERRDF
TRAP

.WORD
.WORD
.WORD

CSERDF

19
EM75
ERR2

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

2%:

ENDTST

L10042:

104401

saxxxEND OF
TRAP

SEQ 0073

TESTawnx

CSETST

)

2S2SRER

1601

016604
016604
016604
016604

I 6
PAGE 2-10
MACY11 30A(1052)
17-DEC=79 14:01
**TEST 18%* = UNIQUENESS OF RLBA

016606

BGNTST

016606

STARS
R

**TEST 19** - UNIQUENESS OF RLDA
s**%xxSTART OF

AR A A AR

TESTwwxx

AR AR AR A AR AR A AR AR AR AR AR AR AR AR AR AR AR AR

R N

:TEST THE UNIQUENESS OF THE DISK ADDRE;§7§EGISTER
:AND RLBA ARE LOADED WITH XXX20X AND
1
THE RLDA IS THEN WRITTEN TO INSURE
:RESPECTIVELY.
s THAT NEITHER THE RLCS OR THE RLBA ARE MODIFIED

nN=O VONOWN
B WN=O

THE RLCS

:BY WRITING THE RLDA.

STARS

SRR AR AR AR AR A AR A A A AR AR AR AR AR A AR

012737
032777
001403
052737
013777
012777
005077

o eJ

-Jard [0—d
Y Yo X0 Yo oo Yo Yo Yo Yo N
b e e N) =2

.SBTTL

000200
040000

002354

140000

002354

002354
177776
163402

163426
163410
163404

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

MOV
BIT

#CRDY ,GDDAT
#DERR,aRLCS

BIS
MOV

#ERR!DERR,GDDAT
GDDAT ,a@RLCS
:LOAD CS

BEQ

99%:

A AN AR AR AR AR AR AR AR AR AR

MOV
CLR

99%

#-2,3RLBA
aRLDA

;LOAD BA WITH ALL 1°'S
;CLEAR RLDA

;CHECK IF RLCS IS OKAY

017737
042737
023737
001404

163372
000001
002354

002356
002356
002356

104455

016706
016706

BEQ

aRLCS ,BDDAT
#DRDY ,BDDAT
GDDAT ,BDDAT
1%

sREAD RLCS
; IGNORE DRIVE READY
sRLCS OKAY?
;YES, THEN BRANCH

ERRDF

20.,EM76,ERR2

;DA MODIFIED CS

.WORD
.WORD
.WORD

20
EM76
ERRZ2

TRAP

000024
007627
010202

1$:

104406

016710
016716

022777
001412

177776

016720
016726

012737
017737

177776
163320

016734
016734
016736
016740
016742

MOV
BIC
CMP

CKLOOP
TRAP

C$CLPT

sCHECK IF /FL:LOE IS SET

163334

CMP
BEQ

#-2 ,aRLBA
2%

;BRANCH IF OKAY

002354
002356

MOV
MOV

#-2,GDDAT
aRLBA ,BDDAT

:READ RLBA

ERRDF

21.,EM77 ,ERR?2

TRAP

010202

CSERDF

.WORD
.WORD
.WORD

CSERDF

2
EM77
ERR2

;1S RLBA OKAY?

sSET UP EXPECTED

;DA MODIFIED BA

R AR

ARk

O~ NOWVNSWYYN=0000

ey ara-dara
6&;_0 au;au;au;-d_ha.a_ha_ha—h& AR
ARRAAONNA R R L} 222
VIS WY

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

1649

016744

2%:

016744
016744
016744

ENDTST
L10043:

104401

SBTTL
016746

BGNTST

016746

STARS
IR

SEQ 0074

sxnwxEND OF TEST#was
TRAP

CSETST

#«TEST 20** - UNIQUENESS OF RLMP

;*xx*START OF TESTw#xx

RRRRARARRAR RN AR

AR AE AR RRRARERCARRRARRARRNRRARCRRARRRR
R RR A

sTEST THE UNIQUENESS OF

THE MULTI-PURPOSE REGISTER

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

g?:R;HE RLCS, RLBA, RLDA.

016746

SRR

SNINIIEEEREEEREE

1659

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

016746

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

017044
017044
017046
017050
017052
017054
017054

1679
1680

017056
017064

017014

012737
032777
001403
052737
013777
012777
012777
005077

000200
040000

002354

140000

002354
163250

002354

177776
177777
163236

163266

163244
163240

AR AR A AR AR AR AR AR AR AR AR A A A AR AR

MOV
BIT

#CRDY,GDDAT
#DERR ,aRLCS

BIS

#ERR!DERR,GDDAT

BEQ

99%:

MOV
MOV
MOV
CLR

99%

GDDAT ,aRLCS
#-2 ,aRLBA
#-1,3RLDA
aRLMP

A AR AR AR AR AR AR AR AR AR AR AR

;CONTROLLER READY
;IF DRIVE ERROR SET

;THE EXPECT IT LATER

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

;CHECK IF RLCS IS OKAY
017020
017026
017034
017042

017737
042737
023737
001404

163224

002356
002356
002356

MOV
BIC
CMP

aRLCS ,BDDAT
#DRDY ,BDDAT
GDDAT ,BDDAT

ERRDF

201.,EM44 ,ERR2

BEQ

TRAP

010202

1$:

104406

.WORD
.WORD
.WORD

CKLOOP
TRAP

CSERDF

201
EM44
ERR2

C$CLP1

;READ RLCS
: IGNORE DRIVE READY
sRLCS OKAY?

:YES, THEN BRANCH

;MP MODIFIED CS

sCHECK IF /FL:LOE

022777
001412

177776

163166

CMP
BEQ

#-2 ,3RLBA
2%

;1S RLBA OKAY?
;BRANCH IF OKAY

012737
017737

177776
163152

002354
002356

MOV

#-2,GDDAT

;SET UP EXPECTED

MOV

ERRDF

aRLBA,BDDAT

211. ,EM4S5,ERR2
CSERDF
.WORD
211
.WORD
EM45

sREAD RLBA

;MP MODIFIED BA

IS SET

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

MACY11

010202
104406

017140
017140
017142
017144
017146

K 6
17-DEC=79
30A(1052)
14:01
PAGE 2=12
*«TEST 20** - UNIQUENESS OF RLMP

2$:

022777
001412

177777

163132

017737
012737

163124
177777

002356
002354

.WORD
CKLOOP

ERRZ2

CMP

#=1,3RLDA

;YES,

MOV

aRLDA,BDDAT

#-1,GDDAT

;SET UP BAD
;SET UP EXPECTED

ERRDF

212. ,EM46,ERR2

:MP MODIFIED DA

.WORD
.WORD
.WORD

212
EM46
ERR2

TRAP

BEQ
MOV

104455

TRAP

010202

017150

SEQ 0075

sCHECK IF /FL:LOE IS SET

C$CLPT

CSERDF

;DISK ADDRESS OKAY
CONTINUE

3%:
ENDTST

L10044:

104401

LSBTTL

Janex*END

TRAP

TEST*xxx

CSETST

**TEST 21%*x - NOOP FUNCTIONCRL11 ONLY)

BGNTST

sxxx*xSTART OF

TEST*%xx

STARS
~

3%
=S OVONOWNSBWNY
2O

b e

W NN
- —d ) e

T
L

AR AR A

AR A A A AR

AR AR A AR AR A AR ARR AR

AR AR

R AR R R AR ARk

:TEST THAT NOOP WILL FUNCTION.
WE WILL ISSUE THE
:NOOP AND WAIT FOR CONTROLLER READY TO SET.
A

DRIVE O IS ALWAYS
:TIMEOUT OF 200 MILLISECS IS ALLOWED.
;SELECTED SINCE THE DRIVE IS NOT NECESSARY.

STARS

A N\

ANNNNNNNNNNANN

T
G W

SRR

005737
001410

002402

004537
000000
004537

013414
014246

104406

004537

104401

A AR R A A AR A A A A A AR

013114
99%:
ENDTST
L10045:

AR AR

AR AR A ARk N

BEQ

99%

T.CNTLR

;RLV112?
;YES SKIP TEST

JSR
NOOPO
JSR
CKLOOP

R5,LDFUNC

;ISSUE FUNCTION OF FOLLOWING WORD
sNOOP(0) FUNCTION

TRAP

C$CLPT

JSR

RS5,CHERR

TST

2%:

AR A AR A A AR AR AR A AR AR AR R

RS ,WTCRDY

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

sexxxEND OF
TRAP

CSETST

TESTxxnx

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

L_6
MACY11 30A(1052)
17-DEC=79 14:01
PAGE 2-13
*«TEST 22+*% - TEST NOOP DOES NOTHING

U“U-‘Choas\r’ LAVS

— e d

D e d D

—_—

—

~ NNNNNN~NYA~ NN~ ~~
S SEBBWNWWND
W
H
~ W

LSBTTL
017202

BGNTST

017202

STARS
IR

SEQ 0076

«TEST 22%* - TEST NOOP DOES NOTHING

;*x*xSTART OF TEST#wnw

RAR RN AR AR RAR AR

AR AR AR RRRRRRARRARRRRARRARRRAARRRARER
AR

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

017202

017202
017206

005737
001476

002402

017210
017216
017224
017230

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

TST

163036
163026

MOV
MOV
CLR

;LOAD DISK ADDRESS
;LOAD BUS ADDRESS

00235~

MOV

#1,3RLDA
#2 ,aRLBA
aRLMP

@dRLMP,GDDAT

;READ RLMP

013414

flggpo

R5.,LDFUNC

s ISSUE FUNCTION OF FOLLOWING WORD

014246

JSR

R5 ,WTCRDY

;WAIT FOR CONTROLLER READY HIGH

CKLOOP
TRAP

013114

R5,CHERR
TST

.WORD

L10046~.

MOV

aRLMP ,BDDAT

BEQ

TRAP

162770

002354

002356
002356

CMP

.WORD

010202
1$:

000002
162726
002354

002354
002356
002356

#2,GDDAT
@aRLBA,BDDAT

BEQ

TRAP

sREAD RLMP

;RLMP 0OK?

CSERDF

MOV
MOV

CKLOOP

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

202

C$CLPT

.WORD
.WORD
.WORD

sCHECK IF /FL:LOE IS SET

202. ,EM14 ,ERR2

CKLOOP
TRAP

TRAP

2%:

GDDAT ,BDDAT

EM14
ERR2

ERRDF

104406

CSESCAPE

.WORD
.WORD

CMP

010202

C$CLPT

JSR
ESCAPE

TRAP

012737
017737
023737
001404

AR RN

;RLV112?

ERRDF

017312
017320
017326
017334

T.CNTLR

104410

104406

AR AR AR

000124

017310
017310

AR AR A AR A AR AR AR AR AR A A AR

BEQ

104406

001404

AR A AR AR AR A A A AR AR

GDDAT ,BDDAT

sCHECK IF /FL:LOE

IS SET

;SET UP EXP'D BA
;READ BA

;BA 0K?

;YES

203. ,EM15,ERR2
CSERDF

203
EM15
ERR2

C$CLPT

;CHECK IF /FL:LOE IS SET

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

017350
017356
017364
017372

012737
017737
023737
001404

000001
162672
002354

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

002354
002356
002356

MOV

#1,GDDAT

BEQ

MOV
CMP

017374

ERRDF

017402

.WORD
.WORD
.WORD

TRAP

005352
010202

017404

3%:

017404
017404
017404

ENDTST
L10046:

104401

.SBTTL
017406

BGNTST

017406

STARS

;SET UP EXP'D DA

aRLDA,BDDAT
GDDAT ,BDDAT

sREAD DA
;DA OKAY

204. ,EM16,ERR2
CSERDF

204
EM16
ERRZ2

Jaxx*xEND OF TESTx%xx
TRAP

CSETST

»«TEST 23%x - TEST OF INTERRUPT

saxxxSTART OF TESTx%xx

IERAERRRRAR AR AN AR RN NAR AR RAR

AR RARARRERRRRARREARRARARRR
AR

:CHECK THE INTERRUPT WITH A NOOP.
WE WILL SET UP THE
s INTERRUPT VECTOR, LOWER THE PSW TO ZERO AND ISSUE

1790

:A NOOP.
THE INTERRUPT SERVICE ROUTINE WILL SET A
;FLAG UPON INTERRUPT AND RETURN IN LINE.
WE WAIT 200 MILLISECONDS
;LOOKING FOR THAT FLAG TO BE SET BEFORE CALLING IT
;AN ERROR.
IF THE INTERRUPT SENDS US TO ANOTHER
;VECTOR ADDRESS THEN THE ERROR HANDLER WILL REPURT

;''TRAP TO XXXX FROM YYYY'' AND RETURN

017406
017412

002402

017414

002322

NONDn

013414
014246
002322

2%:

AR AR AR AR AR AR

IF THE

RN AR AR AR AR AR AR AR

T.CNTLR

99%

CLR
SETPRI
MOV
TRAP

INTFLG
#PRIOO
#PRI00,RO
C$SPRI

;CLEAR INTERRUPT OCCURRENCE FLAG
;SET PSW TO 0

JSR
R5 ,LDFUNC
NOOPO! INTEN
JSR
RS ,WTCRDY

s ISSUE FUNCTION OF FOLLOWING WORD
sNOOP AND INTERRUPT ENABLE
;WAIT FOR CONTROLLER READY HIGH

BNE
ERRDF

2%
22.,EM13,ERRO

:IF SO BRANCH

.WORD
.WORD
.WORD
CLR

22
EM13
ERRO
INTFLG

TRAP

002322

A AR AR AR AR AR

BEQ

TST

e
—_

R
e
.~
~

A A AR AR AR

TST

000900

o~~~

—

2SSO0 RZESSSS Go88

017456

TO DIAG SUP MONITOR.

g%fiAERRUPT GOES TO ABOVE 1000 WHO KNOWS WHAT WILL HAPPEN.

017406

SEQ 0077

INTFLG

CSERDF

;DID INTERRUPT OCCUR

—
— NN
=
NN
WN

=0V~
NN~
& WN

RBTSR 8%%&@0!\ ~~ 0000000000 ~

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

017462
017462
017464

017470
017470
017470
017470

104406

004537

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

CKLOOP
TRAP

JSR

013114
99%:
ENDTST
L10047:

104401

LSBTTL
017472

BGNTST

017472

STARS
P

;CHECK IF /FL:LOE IS SET

C$CLPT

RS, CHERR

sCHECK CONTROLLER FOR ERRORS

senwnfEND OF TESTwwnn

:
TRAP

SEQ 0078

CSETST

*«TEST 24»~ - TEST PRIORITY BR LEVEL
;exxaSTART OF TESTawxx

sTEST THAT PRIORITY GIVEN IS ACTUAL PRIORITY OF CONTROLLER.

;THE BOARD WILL INTERRUPT.

gmsm DOWN TIL

017472

WE KNOW

WE WILL START TRYING TO INTERRUPT AT 7

IT DOES INTERRUPT.

33 1233233332222 3333232302233 3332333 2333323333322 223223232322320R202R0233}

017472
017476

005737
001456

002402

017500
017506

012737
013737

000340
002262

017514
017514

104404

002356
002354

005037

002322

013700

002356

017530
017534

004537
000100

013414

017536

004537

014246

017544

000070

017546
017552
017552
017554

004537

017556
017564

023737
002012

002356

017566
017572

005737

002322

5%:

T.CNTLR

;RLV112?

MOV

#340 ,BDDAT

;SET UP INITIAL OF 7

TRAP

($BSEG

CLR
SETPRI

INTFLG
BDDAT

TRAP

C$SPRI

MOV

BPRIOR,GDDAT

BDDAT ,RO

104410

002354

s#xxxSTART OF SEGMENT###«
;CLEAR INTERRUPT OCCURRENCE
;SET PRIORITY

JSR
ESCAPE

R5, UTCRDY
TST

sWAIT FOR CONTROLLER READY HIGH
sIF /FL:LOE SET LOOP, ELSE EXIT TST

.WORD

L10050-.

JSR
ESCAPE

R5,CHERR
TST

.WORD

L10050-.

CMP
BGE

BDDAT ,GDDAT
1%

;SHOULD IT INTERRUPT
sNO, BRANCH

INTFLG

;DID INTERRUPT OCCUR

TRAP

000060

:GET GIVEN PRIORITY

;ISSUE FUNCTION OF FOLLOWING WORD

TRAP

013114

;YES, SKIP TEST

RS ,LDFUNC

NOOPO'IN EN

104410

001004

BEQ
MOV

BGNSEG

017516
017522
017522
017526

104441

TST

BNE

CSESCAPE

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

;YES, OK

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

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

017574
017°74
017576
017600
017602

oAl

RIZCREER sya’iggsggggs
VI
- OO0

e
e g

002322

b
005737
001772
000765

204.,EM17,ERR?7

CSERDF
204
EM17

ERR7

ESCAPE
TRAP
.WORD
BR

SEG
CSESCAPE
10000%-.
43

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

BEQ
BR

23
3s

:NO, 0K
;YES, ERROR

TST

INTFLG

ENDSEG

104405
162737
100331

100008:

000040

002356

TRAP
SuB

BPL

CSESEG
#40,BDDAT

104401

LSBTTL

1873

JNEXT LEVEL

sanxx*END OF TESTawnx

ENDTST

L10050:

;DID INTERRUPT OCCUR

sanxxEND OF SEGMENT %%«

6%:

—_—

o~~~

TRAP
LWORD

.WORD
.WORD

2$:

255

ERRDF

TRAP

CSETST

*xTEST 25%* - GET STATUS FUNCTION

BGNTST

saxxxSTART OF TESTxanx

STARS
"ttttttttttttttttttttttttitttttttttfitttttttttttttttttttttt'ttttt

AND THE FUNCTION IS ISSUED.
WE WAIT 200 MILLISECONDS
s;ggsCONTROLLER READY.
VERIFY THAT NO ERRORS OCCUR.

) =

3330083%3c FRERREE oEE

TEST GET STATUS FUNCTION.
THE GET STATUS FUNCTION WILL
UORK IF DRIVE IS LOADED AND READY OR NOT.
THE RLDA
sIS LOADED WITH THE GET STATUS AND MARKER BITS (BITS 1,0)

i;-a_n

—e
e ed

b =D

;;tttitttttttttttttttttt'tttttttttttttttttttttttittttittttttttttt

012777
004537
000004
004537

000013
013414
014246

104406

004537

162410

MOV
JSR

#GSBIT!MK'!DRST,aRLDA
sSET GET STATUS AND MARKER BIT
R5,LDFUNC
sISSUE FUNCTION OF FOLLOWING WORD

JSR

RS5,WTCRDY

TRAP

CSCLP1

JSR

RS,CHERR

GSTAT

2%:

013114

CKLOOP

ENDTST
104401

L10051:

SBTTL

sGET STATUS

sWAIT FOR CONTROLLER READY HIGH

sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
saxxxEND OF TESTwrwx

TRAP

CSETST

«TEST 26%*% - GET STATUS FUNCTION INTERRUPT

SEQ 0079

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

BGNTST

SEQ 0080

s*x*xSTART OF TEST#wxx

;CHECK GET STATUS UNDER INTERRUPT
002322

CLR
SETPRI

000000

000003
013414

162346

JSR

INTFLG
#PR100
#PR100,RO

;CLEAR INTERRUPT OCCURANCE

;PSW TO LEVEL O

C$SPRI
#GSBIT !MK,aRLDA :SET UP DA
RS ,LDFUNC
s ISSUE FUNCTION OF FOLLOWING WORD

GSTAT!I NTEN
R5 ,WTCRDY
JSR

014246

sGET _STATUS, INT ENABLE
;WAIT FOR CONTROLLER READY HIGH

000340

GOSO
88850880 0G5GR0T

002322
104455
000034
005433
010152

2%
28. ,EM30,ERRO
CSERDF
28
EM30
ERRO

2%:

C$CLP
R5,CHERR
INTFLG

013114
002322

#PRI00
#PRI00,RO

000000

—_— e
=

—

—d —d

—

VBOQ\JOVV\hbWVNVvvv_.o §uu $ER3RCCEI8233

1897

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

000003
013414

RS ,WTCRDY

#PR

002322

004537
104401

ENDTST

L10052:

.SBTTL

020040

BGNTST

;GET STATUS = SHOULD NOT CAUSE AN INTERRUPT
;WAIT FOR CONTROLLER READY HIGH

;DID INTERRUPT OCCUR (SHOULD NOT)
33
sNO = BRANCH (OK)
281. ,EM30A,ERRO
CSERDF
281
EM30A
ERRO
sCHECK IF /FL:LOE IS SET
C$CLPT
RS, CHERR
;sCHECK CONTROLLER FOR ERRORS

3s:

013114

;CHECK CONTROLLER FOR ERRORS
;CLEAR INTERRUPT OCCURANCE
;PSW TO LEVEL 0

#GSBIT!MK,aRLDA sSET UP DA FOR GET STATUS CMD
R5.,LDFUNC
sISSUE FUNCTION OF FOLLOWING WORD

000340

104406

sCHECK IF /FL:LOE IS SET

C$SPRI

162262

014246

010152

;DID INTERRUPT OCCUR
: YES-BRANCH

saxxxEND

TRAP

TESTannx

CSETST

**TEST 27%% - GET STATUS FUNCTION GENERATES OPI W/0 GS BIT
s*xxxSTART OF

TESTwwnx

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

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

020040

STARS

AR R

SEQ 0081

AR AR RR AR AR AR RRARRRRRR RN AR RRARRA

sVERIFY THAT GET STATUS FUNCTION WILL NOT COMPLETE
sWITHOUT SENDING OUT THE GET STATUS BIT IN THE RLDA.
;WE SET MARKER BUT NO GET STATUS BIT IN THE RLDA AND
sISSUE A GET STATUS WE SHOULD RECIEVE AN OPI ERROR.
sVERgFY THAT CONTROLLER READY SETS AND OPI SETS
AR

012777
004537
000004
004537
032737

~NN =Z8o®N

GHRRR o
~

—

£
SSRGS RRRPRP

1943

020120
020122
020124
020124
020124
020124

000001
013414
014246
074000

162206

MOV

002302

GSTAT
JSR
RS, UTCRDY
BIT '74000 E.L
BEQ
1%
MOV
#OPIERR,RESTMS

004045
013114

013376

002000

002302

JSR

1%:

010152

NOWNnS~W N

358882
RR

ey
I

RS.CHERR

BIT

#0OP] ,E.CS

BNE
ERRDF
TRAP
.WORD
.WORD
.WORD

L10053:

104401

020126
020126

CS$CLP

2%
29. ,EM33,ERRO
CSERDF
29
EM33
ERRO

;SET ONLY MARKER BIT!!

;ISSUE FUNCTION OF FOLLOWING WORD
;GET STATUS
JWAIT FOR CONTROLLER READY HIGH

;1S OP] SET?

s YES-BRANCH NO-CHECK TIMEOUT

saxxxEND OF TESTxxxx
TRAP

CSETST

»«TEST 28** = OP] UNDER INTERRUPT

g?fi;gT

suaxxxSTART OF
RERAR AR AR AR RN AR

ERERRRARARRARR RN

TEST*xxx

AR ARRARCNRR

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

020126

STARS

;;'.'.*'..".Q'tt.‘..'""t"..fifi*.fi".'.'fi'fi'..fi"'fi.fi."""fi"

SETPRI
MOV

000000
002322
00000
013414
—

YOV~

R5.LDFUNC

ENDTST

I
B
d
e
—

#MK , aRLDA

JSR

CKLOOP
TRAP

2%:

.SBTTL
1962

AR A AR RN
AR AR AR AR AR AR AR AR AR AR AR AR

014246

162106

#PRI0O
#PR]100,RO

TRAP
C$SPRI
CLR
INTFLG
MOV
#MK ,aRLDA
JSR
RS.LDFUNC
GSTAT‘INTEN

JSR

R5,WTCRDY

;SET ONLY MARKER BIT!!
sISSUE FUNCTION OF FOLLOWING WORD
;GET STATUS

;WAIT FOR CONTROLLER READY HIGH

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

MACY11 30A(1052)

SETPRI

000340

INTFLG

2%
30. ,EM11,ERRO
CSERDF

36
005203

EM11
ERRO

2%:

cowviwviwnie
D W

£ SE8ETRIE 883G8isgi:fivfl’\fi\ #4380o8
[

002302

004045
013114

013376

002000

002302

—_—

C$CLP1
1;4000.E.CS

020252
020252
020252
020252

010152

1%:

CSCLP1

#0P1 E.CS
35

ENDTST

L10054:

;IS OPI SET?
; YES-BRANCH NO-CHECK TIMEOUT

;%%x*END OF
TRAP

CSETST

BGNTST
STARS
PR

TEST*#wxx

*«TEST 29*x - RLAD HEADER FUNCTION

.SBTTL

020254
020254

sCHECK IF /FL:LOE IS SET

EM33
ERRO

3s:

104401

s INTERRUPT OCCUR

#OPIERR ,RESTMS
R5,CHERR

31..EH33.ERRO
$ERDF
31

s*xxxSTART OF TEST#%xx
AR

A AR A AR AR A A AR

AR AR AR A AR

A AR

AR AR AR AR

:CHECK THAT READ HEADER WORKS, THAT WE CAN ISSUE

)

— S d b D

074000

SEQ 0082

#PR107
#PR107,RO

C$SPRI

002322

1984

17-DEC=79 14:01
PAGE 2-19
*«TEST 28+* = OPI UNDER INTERRUPT

:I1T, GET READY BACK WITHOUT ANY ERRORS SETTING.

020254

STARS
S

020254
020260
020262

020266
020266
020270

020274
020274
020274

004535

013414

004537

014246

104406

004537

013114

A A AR AR AR A A AR A AR

JSR
RDHDR
JSR
CKLOOP
TRAP

JSR

R5.,LDFUNC
R5,WTCRDY

C$CLPT
R5,CHERR

AR AR AR AR AR AR

R A AR

AR AR AR AR ARk

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER

;WAIT FOR CONTROLLER READY HIGH READY

;CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;xxaEND OF TESTwaxs

104401

" TRAP

CSETST

*«TEST 30*x - READ HEADER FUNCTION INTERRUPT

020276

AR AR AR

sxxxxSTART OF

TESTwxwx

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

2013
2)

2014
2015
2016
2)

2017
2018
2019
(3)
(3)
2020
2021

MACY11

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

020276

STARS

020276

CHECK THAT READ HEADER WILL GENERATE AN INTERRRUPT
UPON COMPLETION WITHOUT ANY ERRORS SETTING
STARS

2022
2023
2024

2025
2026
2027
(4)
(5)

020330
020334
020336
020336
020340

263%

020346

104406

22?)%?

020350

004537

2032
(3)
(3)
2033
2034
38?'2

020354
020354
020354

2037
2038
2039
2040

020356

BGNTST

020356

STARS

(3)
(3)

(5)
(5)
2028

020322
020326

020342
020344
020346

000110
004537
012700
104441

005737
001004

002322
013414

014246
000340

002322

2%:

013114
ENDTST
L10056:

104401

SBTTL

2041

2045
2046
2047
2048

2049
2050
2051
(3)
(3)

ARAA R

R RAAARARRRARARRARRARRARRRRRRARAAA
AR AR

RN AEARAARARARAARNARRAARARRARRR
AR AR ARk

#PRI00O
#PR100,RO
C$SPRI
INTFLG
R5.,LDFUNC
RDHDR'INTEN
JSR
RS ,WTCRDY
SETPRI
#PRI 07

;PSW TO O

TST
BNE
ERRDF
TRAP
.WORD

s INTERRUPT HAPPEN
s YES=CONT INUE

MOV
TRAP

#PRI07 ,RO
C$SPRI

.WORD
.WORD
CKLOOP

EM37
ERRO

TRAP

CSCLP

JSR

RS5,CHERR

INTFLG
2%
35.,EM37,ERRO
CSERDF
35

;CLEAR INTERRUPT OCCURENCE
s ISSUE FUNCTION OF FOLLOWING WORD
sREAD HEADER, INTR. ENA
;WAIT FOR CONTROLLER READY HIGH

JCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sxxxxEND OF TESTaaxx

TRAP

CSETST

«+«TEST 31*% - REPEATED RD HDRS YIELD SAME CYL AND HD
;xx%xSTART OF TESTwxxx

AR RN R AR R

R R AR AR AR RAR R AR AR RRARAR AR RRRR AR AR AR

sCHECK THAT READ HEADERS WILL RELIABLY READ THE SAME

2042

2043
2044

SETPRI
MOV
TRAP
CLR
JSR

000000

104455
000043
005710
010152

AR AR

020276
020276
020302
020304
020310
020314
020316
020322

012700
104441
005037
004537

sCYLINDER AND HEAD SELECT.

WE WILL READ HEADERS VERIFYING
;THAT WE ALWAYS READ THE SAME CYLINDER AND HEAD SELECT.
STARS

020356

020356
020362
020366
020370
020374
020374
020376

012701
004537
000010
004537
104410
000122

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

000144
013414
014246

99%:

MOV
JSR
RDHDR
JSR
ESCAPE
TRAP
.WORD

#100. ,R1
RS .,LDFUNC
RS .WTCRDY
TST
CSESCAPE
L10057-.

AR AR RN AR AR R RRA RN AR AR RARRRAA AR

sSET UP TO DO 100 RD HDR'S
sISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
JWAIT FOR CONTROLLER READY HIGH
IF /FL:LOE SET LOOP, ELSE EXIT TST

SEQ 0083

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

004537

MACY11

013114

104410

002310
002326

002354
002354

104404

004537
000010
004537

2%:

013414
014246

97%:

104410
000054

004537

BGNSEG

TRAP

.WORD

CSESCAPE
L10057~.

MOV
BIC

E.MP,GDDAT
SECMSK ,GDDAT

TRAP

($BSEG

JSR
RDHDR

R5,LDFUNC

;ISSUE FUNCTION OF FOLLOWING WORD

RS ,WTCRDY
SEG
CSESCAPE
100008-.

;WAIT FOR CONTROLLER READY HIGH

RS5,CHERR
SEG
CSESCAPE
100008~.

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

E.MP_BDDAT
SECMSK ,BDDAT
ggbAT.BDDAT

;READ HEADER
sMASK AWAY SECTOR BITS
;IS HEADER CORRECT

JSR
ESCAPE
TRAP

JSR
ESCAPE

104410
000044

013737
043737
023737
001404

R5,CHERR

.WORD

013114

002310
002326
002354

002356
002356
002356

005750
010316

020512
020514
020516
020516

020520

104406

005301
001344
104405
104401

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

TST

;READ FIRST HEADER (ASSUME GOOD)

;MASK AWAY SECTOR BITS

sxx*xSTART OF SEGMENT*#w#

sIF /FL:LOE SET LOOP, ELSE EXIT SEG

36. ,EM41 ,ERRS
CSERDF
36
EM41

104455
000044

020510
020510

SEQ 0084

JSR

ESCAPE

000112

013737
043737

30A(1052)
17<DEC=79
PAGE 2-21
14:01
**TEST 31x+ ~ REPEATED RD HDRS YIELD SAME CYL AND HD

ERR4
4%:

;CONSTANT CYL & HS
sCHECK IF /FL:LOE IS SET

C$CLPT

;PERFORM ALL READ HDR'S
:IF NOT GO BACK AND DO ANOTHER

R1
ENDSEG
10000%:

ENDTST

L10057:

.SBTTL

020522

BGNTST

020522

STARS
AR

2%
TRAP

CSESEG

TRAP

CSETST

sxxxxEND OF SEGMENT*xx«

;axxxEND OF TEST#aew

«*TEST 32++ - CHECK OF HEADER CRC
s*xxxSTART OF
AR A A AR AR AR A AR

AR R AR AR AR AR AR AR R AR AR AR AR AR R AR A AR

:CHECK THAT WE CAN READ THE HDCRC AFTER A

:READ HEADER AND THAT
:FOR THE HEADER.

TESTw#nx

IS THE

CORRECT CRC

R AR

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

: 6c333%3

005037
004537
000010
004537

020544

004537

020552

104410
000104

020554
020562
020566
020570

013737
004537
000020
000000

STLLESmIcnrn
-0 3R8IKAR WA~

OOW WO

014246

013114

020570

R
IR S

020620
020616

I
I

TST

TRAP

CSESCAPE
L10060-.

JSR
ESCAPE

R5,CHERR

.WORD

013772

002336
002314
002354

CSESCAPE

TRAP
.WORD

L10060-.

MOV
JSR

R5.SIMBCC

E.MP,2%

.WORD
-WORD

A ¥
5%:

;GET SECOND HALF

0
0

.WORD
.WORD

CALBCC,GDDAT

E.MP2 ,BDDAT

ggDAT.BDDAT

;STORE CALCULATED CRC AS GOOD

:THIRD READ OF

DB GETS CRC

;IS CRC CORRECT?
;IF SO CONTINUE

37
EM42
ERR4

6%:

L10060:

.SBTTL

y\uuwwwgzmm
WA =~
oo~

;16 BITS
sHEADER GOES HERE
;START WITH 0 CRC

R5,SIMBCC

e
ke

sREAD HEADER WORD
;GO CALCULATE CRC

0
0
CALBCC,5%

e e e

002354
002356
002356

28:
3s:

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

TST

37.,EM42
ERRS
E
CSERDF

104401

P e T
RY

SEQ 0085

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

R5 ,WTCRDY

JSR
ESCAPE

000114

R5,LDFUNC

RDHDR

104410

e e R

CLR
JSR

013414

e e

LASLSTSTNT SIS LN LSS T N1 SN T ST ST ST, N 1N 18

020572

ENDTST

LS LSLST
NI AN [N, ¥1,8 ]

;:'tti'.....titQttt.'"""'Q.tt'Q.t.'tfi.tfit.'fi."t.".'ttt.t't'.

020522
020526
020532
020534
020540
020540
020542

2095

30A(1052)
17-DEC=79
14:01
PAGE 2-22
**TEST 32+« - (HECK OF HEADER CRC
STARS

20N
(2)
2092
2093

MACY11

sax«xEND OF
TRAP

TESTwww=

CSETST

*«TEST 33+x - (CHECK CONSECUTIVE HEADERS

BGNTST

s*xxxxSTART OF

TEST#xxw

STARS
R

AR AR A

A A

A A AR

AR A A A AR R AR AR AR AR AR AR AR R AR AR AR AR AR

;CHECK THAT THE HEADERS ARE CONSECUTIVE.

WE WILL DO

;40 (FORTY) READ HEADERS AND STORE EACH. AFTER WE HAVE
sREAD THE FORTIETH HEADER WE WILL VERIFY THAT

;THEY CAME

IN SEQUENTIAL,

THAT O FOLLOWS 39,

AR AR R R A ®

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

2135
2136

020660

2137
2138
2139
21640
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
g}g%

020660
020664
020670
020674
020702
020710
020716
020724
020732
020734
020740
020744
020750
020754
020756
020760
020764
020770
020774
021000
021002
021010
021012
021016
021022
021026
021032
021036
021040
021044
021050
021052
021060
021066
021070
021074
021102
021104
021112
021114
021122
021130
021136
021140

s;gg

021146

2186
2187
2188
2189

021146

(2)

021152

MACY11

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

; THAT THERE WERE NO ERRORS.
STARS
IR

005037
012703
012701
012737
053737
013777
042777
032777
001774
017723
017723
017723
017723
005301
001357
012703
012701
011337
005737
100016
012737
005723
012337
012337
012337
004537
000137
005723
011337
005737
001007
012737
013737
000435
005237
023737
001766
033737
001015
013737
043737
023737
001750
043737

002360
003266
000050
000210
002266
002270
000200
000200

002270
002270
161332
161324
161316

28%:
1%:

161310
161312
161306
161302
003266
000050
002302
002302
004304

013376

002310
002312

002314
013114
021174

99%:

002356
002360
000001
002356

Q02360
002354

002354
002356

002354

002326

002356

002354
002362
002364

002340
002340
002340

002326

002354

3%:

48:

AR RN
RR RN RN ANR RN AR RANARRRR R R AR AR

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
CMP
BEQ
BIT
BNE
MOV
BIC
MP
BEQ
BIC

FIRST
;CLEAR FIRST READ DONE FLAG
#HDRBUF ,R3
;STORE HEADERS
#40. ,R1
;FORTY HEADERS
#RDHDR
! CRDY ,B.(CS
DRIVE ,B.CS
B.CS,aRLCS
#200,aRLCS
#200,aRLCS
;DONE?
1$
aRLCS, (R3)+
aRLMP, (R3) +
aRLMP, (R3) +
aRLMP, (R3) +
R1
sHAVE 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%
#RHDME
S ,RESTMS
(R3)+
(R3)+ ,E.MP
(R3)+ ,E.MP1
(R3)+,E.MP2
R5.,CHERR
;CHECK CONTROLLER FOR ERRORS
7$
(R3)+
(R3) ,BDDAT
;GET _HEADER
FIRST
;1S THIS FIRST READ?
43
sNO, BRANCH
#1,FIRST
:SET FIRST READ DONE FLAG
BDDAT ,GDDAT
sSET UP NEXT READ EXPECTED
63
;GO SEE IF TEST IS DONE
GDDAT
: INCREMENT EXP°'D HEADER
BDDAT ,GDDAT
;1S NEW HEADER SEQUENTIAL?
3s
;YES THEN BRANCH
SECMSK ,BDDAT
;1S NEW HEADER ZERO?
5%
:NO, THEN ERROR GO REPORT IT
GDDAT, TEMP2
;YES, CHECK IF LAST HEADER WAS
CYLMSK, TEMP2
;MAX ADDRESS, IF SO BRANCH
MXSEC1,TEMP2
:STORE NEW DATA AS OLD
3%
sAND PERFORM NEW RD HDR
SECMSK,GDDAT
;EXPECTING ZERO SECTOR

CLR

FIRST

5%:
005037

002360

ERRDF

38. ,EM43,ERR2

;ERROR WILL MAKE US MISS
sNEXT SECTOR SEQUENTIALLY
:START OVER; CLEAR FIRST FLAG

SEQ 0086

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

021152
021154
021156
021160
021162
021162

104455
000046
006077
010202

021164
021170
021172
021174
021174
021174
021174

062703
005301
001321

MACY11

TRAP
.WORD

.WORD
.WORD

6%:

104406

CKLOOP
TRAP

ADD
DEC
BNE

7%:
ENDTST

TRAP

CSERDF

38
EM43
ERRZ

sCHECK IF

CS$CLP

#6,R3
R1
99%

/FL:LOE

IS SET

JHAVE WE DONE THIS ENOUGH
;NO, GO BACK DO IT AGAIN
TESTxwxx

CSETST

**TEST 34*x - SEEK FUNCTION

.SBTTL

BGNTST
STARS
e

SEQ 0087

suaxxxEND OF

L10061:

104401

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

s*xx*START OF

A A AR AR AR AR A A AR

TESTxnxx

AR AR A AR A AA AR AR AR AR AR RARA

*CHECK THE SEEK FUNCTION RETURNS CONTROLLER READY

012777
004537
000006
004537
012737
012727
000000
013727
000000

000205
013414
014246
000010

000372

A AR AR A AR A AR A AR AR

AR AR R AR R AR AR A AR AR AR AR A AR R A AR AR AR A

161050

MOV
gégx

#BIT7!MK!SIGN,@RLDA
;SET UP DA-DIFF=1,MARKER, TOWARDS
R5,LDFUNC
:égggf FUNCTION OF FOLLOWING WORD

002406

MOV

JSR

R5,WTCRDY

:WAIT FOR CONTROLLER READY HIGH

DELAY

#250.

*IMPLEMENT TIME DELAY

WAIT1:

002116

MOV
L.WORD
MOV

LWORD
DEC

177772

BNE
DEC

177756

002406

2%:
013114

#8. .DLYCNT
##250.
, (PC)+
0
0
-6(PC)

BNE

.~
222(PC)
=20
DLYCNT
WAIT1

JSR

R5.,CHERR

DEC
BNE
CKLOOP
TRAP

L10062:

BGNTST

*INITIALIZE DELAY COUNT

LSDLY, (PC)+

CSCLP1

ENDTST

.SBTTL

021272

STARS
e

021270
021270
021270

R AR AR

*WITH NO ERRORS.
WE ISSUE A ONE TRACK IN WORD SEEK.
*WE DO NOT CHECK THE RESULT FOR POSITION

021176

021176
021204
021210
021212
021216

:DECREMENT DELAY COUNT
*BRANCH IF DELAY NOT EXPIRED
*CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
sxxxxEND OF

TRAP

TESTaxwx

CSETST

*«TEST 35+« - CHECK DRIVE READY ON SEEK
saxxaSTART OF

TESTwwwx

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

MACY11

30A(1052)
17-DEC=79
14:01
PAGE 2-25
#*TEST 35+« - CHECK DRIVE READY ON SEEK

SEQ 0088

2226
021272

S ttfttlttQtt.ttttt't'tttt"'tttttttttttttttttttttttttttt!tti'.tt
TAR

CHECK THE SEEK FUNCTION RETURNS DRIVE READY WITH
NO ERRORS.
WE ISSUE A ONE TRACK INWARD SEEK.
WE DO
g?g;sCHECK THE RESULT FOR POSITION

021272

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

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

160754

014246

MOV
gggx

#BIT7'!MK,aRLDA
R5.,LDFUNC

;SET DA, MARKER, DIFF=1,
égégf FUNCTION OF FOLLOWING WORD

JSR

RS ,WTCRDY

:WAIT FOR CONTROLLER READY HIGH

CKLOOP
TRAP

104406

013114

JSR

CKLOOP
TRAP

104406

JSR

014160

CKLOOP
TRAP

104406

013114

JSR

sCHECK IF

C$CLPT

R5,CHERR

;CHECK CONTROLLER FOR ERRCRS
sCHECK IF

C$CLPT

RS5,WTDRDY

104401

/FL:LOE

sCHECK IF /FL:LOE IS SET

CSCLP

RS,CHERR

sCHECK CONTROLLER FOR ERRORS
sxx*xEND OF

TRAP

TESTwxnx

CSETST

.SBTTL

#*«TEST 36*% - SEEK FUNCTION INTERRUPT

021336

BGNTST

axx*START OF

021336

STARS
IR

R AR R AR

TESTwa%xx

RR AR RERRRANRRARRARNAARRRAR
AR AR AN

:CHECK THAT CONTROLLER READY RESETTING WHEN THE SEEK IS
sINITIATED CAUSES AN INTERRUPT BUT DRIVE READY WILL
é?fi&s
WE ALSO MONITOR FOR ANY ERROR BITS SETTING.

021336

002322

000205
013414

AR A

CLR

000000

021356

IS SET

;WAIT FOR DRIVE READY

ENDTST

L10063:

/FL:LOE IS SET

160676

AR AR A AR AR AR

INTFLG

A A AR AR A AR AR A AR AR

SETPRI
MOV

#PRIOO
#PR100,RO

MOV

#BIT7!MK!SIGN,aRLDA

TRAP

JSR

C$SPRI

R5.,LDFUNC

A AN R A R AR AR AR AR RN

R R

;SET PSW TO 0
;SET UP RLDA

;ISSUE FUNCTION OF FOLLOWING WORD

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

SEEK'INTEN
R5,WTCRDY

014246

002322

NOP
TST

1%:

010152

2%:

104406

013114

021412
021416
021416

004537

.WORD
.WORD
.WORD

40
EM47
ERRO

021420

005037

002322

021424
021430
021430

004537

014160

021432

021436
021440
021444

021446
021446
021450
021452
021454
021456
021456
021460
021460
021460

JSR

CKLOOP
TRAP

104406

012700

000340

005737
001404

002322

104441

5%:

010152

104406

CSERDF

sCHECK IF /FL:LOE IS SET

C$CLPY

R5,CHERR

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

C$CLPT

:CLEAR INTERRUPT OCCURANCE

JSR

RS ,WTDRDY

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

SETPRI
TST

C$CLPT

#PRIO7

#PR107 ,RO
C$SPRI

;DID DRIVE READY CAUSE INTERRUPT
sNO, CONTINUE

INTFLG

BEQ

ERRDF

42. ,EM52,ERRO

.WORD
.WORD
.WORD

42
EM52
ERRO

TRAP

CKLOOP
TRAP

CSERDF

;CHECK IF /FL:LOE IS SET

C$CLPY

ENDTST

104401

L10064:

.SBTTL

021462

BGNTST

021462

SYARS
IR

*YES, GO CHECK DRDY

INTFLG

MOV
TRAP

6%:

‘DID INTERRUPT OCCUR

CLR

CKLOOP
TRAP

104455
000052
006350

INTFLG

2%
40.,EM47,ERRO

CKLOOP
TRAP

SEQ 0089

;SEEK AND INTR. ENA.
sWAIT FOR CONTROLLER READY HIGH

BNE
ERRDF
TRAP

021410
021410

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

;axxxEND OF TESTwxxs
TRAP

CSETST

*«TEST 37+« - TEST DIFFERENCE WORD TRANSMISSION
s*xxxSTART OF

RN AR R R R RRRRRR

AR AR

AR RN AR AR

AR R

TESTwwxx

RRRRRRRRRRRRRRR AR AR

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

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

m7
MACY11 30A(1052)
17-DEC=79 14:01
PAGE 2-27
**TEST 37%* -~ TEST DIFFERENCE WORD TRANSMISSION

NN = o

;GROWING 1, GROWING O AND SHITING 0.

NN
NN N
WWWWA WWWWW W

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

THE SEEK WILL

;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 SEEK CORRECTNESS.
;ERRORS ARE MONITORED AND REPORTED.

A \) D
—
e d

VOO NN

SEQ 0090

021462

STARS
MR

021462

(3)

012703

002620

BGNSEG

104404

004537

1%:

013414

004837 014246
021502

104406

021504
021510
021510

004537

021512
021520
021526

013737
043737
001462

98$%:

013114

1044006

002310
002326

002356
002356

Al i

it it

ittt

MOV

#SKLST,R3

TRAP

C$BSEG

JSR

R5.,LDFUNC

RDHDR
JSR

R5,WTCRDY

TRAP

C$CLPT

JSR
CKLOOP

R5,CHERR

TRAP

C$CLPT

MOV
BIC
BEQ

E.MP ,BDDAT
SECMSK ,BDDAT
99%

CKLOOP

ittt

islissss

;GET LIST OF DIFFERENCE WORDS
s***xxSTART OF SEGMENT *%x«

s ISSUE FUNCTION OF FOLLOWING WCRD
sREAD HEADER
;WAIT FOR CONTROLLER READY HIGH

;CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS

;CHECK IF /FL:LOE IS SET
sREAD HEADER
;CLEAR OUT SECTOR
;IF ON TRACK ZERO, H.S.

ZERO, OK

sNOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK
;ON ZERO.
042737
013777
052777
004537
000006
004537

000100
00235?
00000
013414

002356

BIC
MOV
BIS
JSR
SEEK
JSR
CKLOOP
TRAP

160510
160502

014246

104406

021566
021572
021572

004537

021574

004537

013114

104406

014160

104406

004537

89%:

013114

104406

021610
021614
021616
021622
021622

004537

013414

004537

014246

104406

#MK ,3RLDA

;CLEAR OUT HEAD SELECT

sPUT CYLINDER AS DIFFERENCE WORD
sSET MARKER BIT

R5,LDFUNC

:égggfi FUNCTION OF FOLLOWING WORD

R5 ,WTCRDY

:WAIT FOR CONTROLLER READY HIGH

CsCLP1

sCHECK IF /FL:LOE IS SET

JSR
CKLOOP

R5,CHERR

TRAP

C$CLPT

JSR
CKLOOP

RS ,WTDRDY

TRAP

C$CLPY

JSR
CKLOOP
TRAP

R5.CHERR

JSR

R5,LDFUNC

s ISSUE FUNCTION OF FOLLOWING WORD

JSR
CKLOOP

R5 ,WTCRDY

;WAIT FOR CONTROLLER READY HIGH

RDHDR

96%:

#RHHS ,BDDAT

BDDAT ,aRLDA

TRAP

C$CLPT

sCHECK CONTROLLER FOR ERRORS

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

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

sCHECK IF /FL:LOE IS SET

;READ HEADER

sCHECK IF /FL:LOE IS SET

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

021624

004537

013114

JSR
CKLOOP

104406

TRAP

021636

021674

000053
006420
010244

5%:

104406

011377
052777
004537
000006
004537

160354
000005
013414

160346

004537

014246

CSCLPT

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

013114

R5,LDFUNC

R5 ,WTCRDY

*WAIT FOR CONTROLLER READY HIGH

R5,CHERR

C$CLPT

014160

104406

87%:

sCHECK IF /FL:LOE IS SET
:GET DIFFERENCE WORD
*SET SIGN (TOWARDS SPINDLE) AND MARKER
§§E}f FUNCTION OF FOLLOWING WORD

C$CLPT

104406

004537

ERR3

99%:

104406

021722
021726
021726

C$CLPT

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

43. ,EM54 ,ERR3
CSERDF
43
EM54

104455

021672
021672

R5,CHERR

GDDAT
BDDAT ,DWORD
E.MP _BDDAT
ggCHSK.BDDAT

002370
002356
002356

001404

MACY11 30A(1052) = 17-DEC=79
14:01
PAGE 2-28
**TEST 37+% <~ TEST DIFFERENCE WORD TRANSMISSION

R5,WTDRDY

C$CLPT

*CHECK IF /FL:LOE IS SET

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

021736
021742
021742

004537

021744
021750

004537
000010

013414

R5,LDFUNC

s ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER

021752
021756
021756

004537

014246

RS ,WTCRDY

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

021760
021764
021764
021766

004537

021770
021774
022000
022006
022014

013114

104406

CSCLPT

104406

104410
000106

011337

011337
013737
043737
023737

R5,CHERR

CSCLPT

013114

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

R5,CHERR
SEG
CSESCAPE
100008~

sCHECK CONTROLLER FOR ERRORS

(R3) ,GDDAT
(R3) ,DWORD

;GET EXPECTED CYLINDER
sSET UP DIFFERENCE FOR SEEK
;READ HEADER FROM RLMP
;CLEAR OUT SECTOR BITS
;DID SEEK GO TO THE RIGHT

E.MP,BDDAT
SECMSK ,BDDAT
GDDAT ,BDDAT

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

SEQ 0091

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

022022

2]
MACY11 30A(1052)
17-DEC-79 14:01
E 2-29
*«TEST 37+% -~ TEST DIFFERENCE WORD TRANSMISSION

001404

BEQ

ERRDF

104455

TRAP
LWORD

000054
006420
010244

005723
023727
001005
020327
001407
000137
020327
001402
000137

44. EM54 ,ERR3
CSERDF
44

EM54
ERR3

CKLOOP
TRAP

002400

000001

002720
021470

2%:

002762
021470

sTRACK, IF SO, GO GET NEXT

.WORD
.WORD

104406

SEQ 0092

cscLP

TST
cMP
BNE
cMP
BEQ
JMP

(R3)+
.M
T.DRIVE
2%
R3 ,#SKEND
108
1%

cMP
BEQ

R3 ,#SKEEND
108

JMP

;CHECK IF /FL:LOE IS SET

;BUMP PATTERN

108:
ENDSEG
10000$:

104405

022076

ENDTST
L10065:

104401

.SBTTL

022100

BGNTST

022100

STARS
s AR

suaxx*END OF SEGMENTxx%x
TRAP

CSESEG

TRAP

CSETST

*«TEST 38+x - VERIFY HEAD SELECT O VIA RD HDR
s*xx*START OF

AR AR AR AR AR

STARS

e AR AR A AR

022112

TESTwwwxx

AR AR AR A AN A AR RAAAAARANRAARRAAARAARRA
AR
RS

sCHECK THAT WE CAN SELECT HEAD SELECT ZERO.
ISSUE
sSEEK TO HEAD SELECT O AND VERIFY WITH READ HEADER.

022100

022100
022106

;exx%END OF TESTxens

012777
005037

000001
002354

004537
000006
004537

013414

022124

104406

022126
022132

004537

014246

013114

160146

99%:

2%:

A AR

AR AR

AAAA AR AR

AN AR

AR AR RS

MOV
CLR

#MK ,aRLDA
GDDAT

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

JSR
SEEK
JSR
CKLOOP

R5.,LDFUNC

éggUE FUNCTION OF FOLLOWING WORD

R5,WTCRDY

:WAIT FOR CONTROLLER READY HIGH

TRAP

cscLP1

JSR
CKLOOP

R5.,CHERR

;CHECK IF /FL:LOE IS SET

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

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

022132

MACY11 30A(1052)

022140

104406

022142
022146
022146

004537

022150

004537

014160

89%:

013114

104406

013414

96%:

104406

013114

000036

022174
022202
022210
022216

013737
042737
023737
001404

002310
177677
002354

8
PAGE 2-30

CSCLPT

JSR
CKLOOP
TRAP

R5,WTDRDY

JSR
CKLOOP

R5,CHERR

TRAP

CSCLP1

JSR

R5.,LDFUNC

s ISSUE FUNCTION OF FOLLOWING WORD

JSR
CKLOOP

R5,WTCRDY

TRAP

CSCLP1

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

JSR
ESCAPE

R5,CHERR
TST

.WORD

L10066~.

TRAP

104410

022172

TRAP

RDHDR

004537 014246
004537

14:01

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

104406

004537

17-DEC=79

002356
002356
002356

MOV

5%:
ENDTST
L10066:

104401

CSESCAPE

E.MP,BDDAT

BIC
CMP
BEQ

#177677 ,BDDAT
GDDAT ,BDDAT
5%

ERRDF

45.,EM55,ERR4

.WORD
.WORD

45
EMSS5

TRAP

010316

cscLPl

.WORD

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

sREAD HEADER

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

sREAD HEADER FOR HEAD SELECT

;MASK ONLY HEAD SELECT
:COMPARE HEAD SELECTS
:IF EQUAL CONTINUE

CSERDF

ERR%

saxxxEND OF TESTxxxx
TRAP

CSETST

.SBTTL

*«TEST 39%*x - VERIFY HEAD SELECT 1 VIA RD HDR

022232

BGNTST

sxxxxSTART OF TESTa%wx

022232

?:ttttttttttttttttttttttttttttttttttttttttttttttflttttttttttittt't

TARS

sCHECK THAT WE CAN SELECT HEAD SELECT ONE.

022232

022254

ISSUE

g?isg TO HEAD SELECT 1 AND VERIFY WITH READ HEADER.
SRR

012777
052777
004537
000006
004537

000001
000020
013414

014246

160014

160006

99%:

2%:

AR AR AR AR ARAAA A AR A ARAAAAARAAAAAARAAAAA
A AR AR AN AR AR AN

MOV

BIS
gggx

#MK , 3RLDA

#DAHS ,aRLDA
RS.LDFUNC

;SET MARKER IN RLDA

JSR

R5,WTCRDY

:WAIT FOR CONTROLLER READY HIGH

;LOAD HS=1 INTO RLDA
:ggggf FUNCTION OF FOLLOWING WORD

SEQ 0093

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

022260
022260

104406

022262

004537

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

013114

104406

022270
022274
022274

004537

022276

004537

014160

89%:

104406

013114

104406

004537
000010
004537
022316

104406

022320
022324
022324
022326

004537

022330
022336
022344
022352
022360

013737
042737
012737
023737
001404

013414
014246

013114

104410

CSCLPY

JSR
CKLOOP
TRAP

R5,CHERR

JSR
CKLOOP

R5,WTDRDY

TRAP

CSCLPY

JSR
CKLOOP
TRAP

R5.,CHERR

JSR
RDHDR

R5,LDFUNC

002354

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

C$CLPT

R5,WTCRDY

TRAP

C$CLP1

JSR
ESCAPE

?ngHERR

002356
002356
002354
002356

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

C$CLP1

JSR
CKLOOP

.WORD

002310
177677

sCHECK IF /FL:LOE IS SET

TRAP

000044

SEQ 0094

s ISSUE FUNCTION OF FOLLOWING WORD
sREAD HEADER
;sWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT TST

CSESCAPE
L10067~.
E.MP ,BDDAT
#177677 ,BDDAT

#RHHS ,GDDAT

ggDAT.BDDAT

sREAD HEADER
sMASK FOR H.S.
sSET EXPECTED
:CORRECT HEAD
;YES, CONTINUE

46. ,EM55 ,ERR4
CSERDF
46

022372

022372
022372
022372

010316

EMS55
ERR4

5%:

sanxxxEND OF TESTwwxx

ENDTST
104401

L10067:

.SBTTL

022374

BGNTST

022374

STARS

TRAP

CSETST

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

s*xx*START OF TESTwwnx

SRR AR A

A AR A A A AR A A A

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

*CHECK THAT WE CAN READ BACK HEAD SELECT O WITH
022374

;A GET STATUS FUNCTION.
;VERIFY WITH GET STATUS

AR AR A AR AR R ARk

SELECT H.S. O WITH A SEEK

STARS
e

AR AR A A AR A AR AR

AR AR AR A AR A AR AR

AR AR A AR AR R AR AR AR AR AR

R Y

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

022374

012777

000001

022402
022406
022412
022414
022420
022420

005037
004537

002354
013414

022422
022426
022426

004537

022430

004537

022434

104406

022436
022442
022442

004537

022444

012777
004537
000004
004537

022434

157652

2%:
3s:

00357 014246
013114

104406

014160

013114

104406
157602

014246

104406

004537
000036

022476
022504
022512
022520

013737

022522
022522
022524
022532
022532
022532
022532

013114

104410

022474

002310

177677

002354

MoV

#MK, BRLDA

CLR
JSR

GDDAT
RS, LDFUNC

SEEK
JSR
CKLOOP

104406

000003
013414

RS, WTCRDY

*SET UP EXP'D
;ggggf FUNCTION OF FOLLOWING WORD

*WAIT FOR CONTROLLER READY HIGH
“CHECK IF /FL:LOE IS SET

JSR
CKLOOP

RS, CHERR

TRAP

CSCLPI

JSR
CKLOOP

RS, WTDRDY

TRAP

CSCLPY

JSR
CKLOOP

RS, CHERR

TRAP

CSCLPI

MOV
JSR
GSTAT
JSR
CKLOOP

#GSBIT!'MK,aRLDA ;SET UP FOR GET STATUS

TRAP

CSCLP1

JSR
$SCAPE

RS, CHERR

002356
002356
00235+

RS, WTCRDY

TSt

CSESCAPE
L10070-.
E.MP,BDDAT
#177677 ,BDDAT
GDDAT ,BDDAT

;CHECK CONTROLLER FOR ERRORS

“CHECK 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

IN DA

*ISSUE FUNCTION OF FOLLOWING WORD

*GET STATUS

*WAIT FOR CONTROLLER READY HIGH

*CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
*IF /FL:LOE SET LOOP,

ELSE EXIT TST

:READ STATUS FOR HEAD SELECT BIT
;LEAVE ONLY H.S. BIT
;1S HEAD SELECT CORRECT?

;YES, CONTINUE

47.,EM56 ,ERRG
CSERDF
47

EMS6
ERR4

6%:
ENDTST

104401

*LOAD HS=0 INTO RLDA

CSCLP

RS, LDFUNC

SEQ 0095

:SET MARKER IN RLDA

TRAP

512

010316

17-DEC-79 14:01
MACY11 30A(1052)
PAGE 2-32
*«TEST 40** - VERIFY HEAD SELECT O VIA GET STATUS

L10070:

.SBTTL

022534

BGNTST

022534

STARS
G

d AR

;#xx2END OF
TRAP

TESTxexs

CSETST

*«TEST 41++ -~ VERIFY HEAD SELECT 1 VIA GET STATUS

A AR A A AR A AR A AR AR

s*xxxSTART OF

TESTwwex

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

R AR AR AR AR

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

MACYTT

30A(1052)

17-DEC-79

14:01

8
PAGE 2-33

SEQ 0096

**TEST 41%+ - VERIFY HEAD SELECT 1 VIA GET STATUS

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

é?E;SSTATUS
AR

012777
052777
012737
004537
000006
004537
022570

104406

022572
022576
022576

004537

000001
000020
000100

013414

157512
157504
002354

28:
3$:

013114

004537

022614

012777
004537
000004
004537
000046

022640
022644
022644
022646

004537

022650

013737
042737
023737
001404

022674

*SET UP EXP'D
‘§E§E€ FUNCTION OF FOLLOWING WORD

RS,WTCRDY

*WAIT FOR CONTROLLER READY HIGH

JSR

CKLOOP
TRAP

157432

MOV

JSR

GSTAT

014246

013114

002310

177677

002354

002356
002356
002356

CSCLP1

RS,WTDRDY
CS$CLP1

RS, CHERR
CSCLP1

RS, LDFUNC

JSR
ESCAPE

RS, CHERR
TST

.WORD

L10071-.

CSESCAPE

104401

“CHECK 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
*CHECK IF /FL:LOE

IS SET

*ISSUE FUNCTION OF FOLLOWING WORD

*GET STATUS

*WAIT FOR CONTROLLER READY HIGH
*IF /FL:LOE SET LOOP, ELSE EXIT TST

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

;READ STATUS FOR HEAD SELECT BIT

GDDAT ,BDDAT
6%

;1S HEAD SELECT CORRECT?
;YES, CONTINUE

#177677 ,BDDAT

ERRDF

48.,EMS6,ERR4

.WORD
.WORD
.WORD

48
EMS6
ERR4

;LEAVE ONLY H.S. BIT

(CSERDF

;axx*END OF TESTaawna

ENDTST

L10071:

INTO RLDA

E.MP,BDDAT

BIC

TRAP

*LOAD HS=1

#GSBIT!MK,aRLDA ;SET UP FOR GET STATUS IN DA

L10071-.

CMP
BEQ

6%:

RS, CHERR

.WORD

MOV

104455

CS$CLP1

RS, WTCRDY
TST

TRAP

000036

#DAHS , aRLDA

JSR
ESCAPE
TRAP

104410

000060
006512
010316

#STHS . GDDAT
R5,LDFUNC

CKLOOP
TRAP

104410

022636

022672

000003
013414

MOV
é??x

JSR

104406

R AR

;SET MARKER IN RLDA

CKLOOP
TRAP

013114

#MK , BRLDA

BIS

JSR

014160

AR AR AR AR AR AR AR AR AR R AR R AR AR AR AR AR

MOV

CKLOOP
TRAP

104406

022606
022612
022612

JSR

014246

104406

004537

TRAP

CSETST

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

MACY11 30A(1052)

17<-DEC=79

14:01

PAGE 2-34

SEQ 0097

««TEST 41+ < VERIFY HEAD SELECT 1 VIA GET STATUS

.SBTTL

022706

BGNTST

022706

STARS
SRR

*«TEST 42%* - TEST TIME AT WHICH DIF WD GETS TRANSMITTED
;axxxSTART OF TESTwnwx

AR AR AR AR AR

AR AR

AR A AR AR AR AR AR AR

AR AR

;VERIFY THAT THE DIFFERENCE WORD ON A SEEK IS
s TRANSMITTED PRIOR TO CONTROLLER READY SETTING.
THIS
;1S DONE BY SETTING A KNOWN DIFFERENCE WORD IN
;THE RLDA ISSUING A A SEEK, WAITING FOR CONTROLLER READY
; (BUT NOT DRIVE READY), WRITING A DIFFERENT RLDA AND WAITING
;FOR DRIVE READY.
THE RESULTANT POSITION SHOULD BE THAT

é?;Rgflf FIRST RLDA ONLY.

022706

e AR

022706
022712

004537
000010
004537

022720

104406

022722
022726
022726

004537

A AR AR AR A AR AR

014246

99%:

013114

R5,WTCRDY

TRAP

C$CLPY

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

JSR

R5,CHETMR

000020
002354
000100
002400

BIS
MOV

BEQ

000004
002674

157222
002354

002674
002674
00000 1
000020

002354
157176
002350

000020

002350

002346

002726

000004
002724

157132
002354

38:
4$:

157162

12%:

JSR
CKLOOP

MOV
BIC
MOV
BIT

002676

AR A A AR A AR

s ISSUE FUNCTION OF FOLLOWING WORD

002310
002326
000001
000100

002346

AR AR RN AR

R5,LDFUNC

CKLOOP
TRAP

2%:

AR AR AR AR R A AR AR

JSR

RDHDR

104406

013737

023122

013414

C$CLPY
E.MP,GDDAT
SECMSK ,GDDAT
#MK , RLDA
#RHHS ,GDDAT

2%
#DAHS ,aRLDA
GDDAT, TMPO

BIC
CMP
BNE
CMP
BHI
BIS
ADD
BR
suB
BIS
MOV
BIT
BNE
BIS
BR
CMP

#RHHS , TMPO
T.DRIVE
.M
12%
TMPO
, HALMAX
3%
#SIGN,aRLDA
QUAMAX
, GDDAT
48
QUAMAX
, GDDAT
QUAMAX ,aRLDA
MK, TMP1
#DAHS ,aRLDA
5%
#DAHS
, TMP1
5%
TMPO
, HMAX

BIS
ADD

#SIGN,aRLDA
QMAX, GDDAT

BHI

13%

;READ HEADER

;CHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE

IS SET

;READ HEADER
sCLEAR SECTOR BITS
;SET MARKER IN RLDA
sTEST H.S.

:IF _ZERO, CONTINUE

JONE, SET SO WE WILL REMAIN THERE

:STORE HEADER
;CLEAR H.S. FROM STORED WORD

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

000403
163737
053777
012737
032777
001003
052737
004537
000006
004537

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

002724
002724
000001
000020

002354

000020
013414

002350

157106
002350
157072

13%:

14%:

5%:

014246

104406

023206
023212
023212

004537

023214
023222
023226
023226

013777
004537

013114

104406

002350
014246

157032

004537

023244
023250
023250

004537

023252
023256
023260
023264
023264

004537
000010
004537

023266

004537

013114

013737
043737
023737
001404

023322
023326

104455

000062
006551

*WAIT FOR CONTROLLER READY HIGH

C$CLPT

JSR
CKLOOP

R5,CHERR

CSCLPT

C$CLPT
014160

8%:

013114

R5,WTDRDY

C$CLP1
R5,CHERR

C$CLPT

013414

R5,LDFUNC

014246

R5.,WTCRDY

104406

023276
023304
023312
023320

RS ,WTCRDY

R5,CHERR

104406

104410
000036

gggge FUNCTION OF FOLLOWING WORD

CSCLP1

104406

023272
023272
023274

#DAHS
, TMP1
R5,LDFUNC

TMP1,aRLDA
R5 ,WTCRDY

104406

023236
023242
023242

14$

QMAX
, GDDAT

TRAP

104406

004537

BR
SuB
BIS
MOV
BIT
BNE
BIS
JSR
SEEK
JSR
CKLOOP

C$CLP1

013114

R5,CHERR

002356

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

sSEND IN NEW DIFFERENCE 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 IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
;ISSUE FUNCTION OF FOLLOWING WORD

;READ HEADER

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

TST

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

E.MP,BDDAT
SECMSK ,BDDAT
GDDAT ,BDDAT
108

;READ HEADER
sCLEAR SECTOR ADDRESS
;IS HEADER CORRECT?
:IF SO BRANCH

CSESCAPE
L10072-.

002310
002326
002354

*CHECK IF /FL:LOE IS SET

50. ,EM57 ,ERR4
ggERDF

EM57

SEQ 0098

CZRLGBO RL11/RLVIT1 CTLR TST_1
CZRLGB.MAC
07=DEC=79 07:39
(5)

023330

5;89

023332

2708
(3)
(3)

023332
023332
023332

MACY11

010316

10%:

ENDTST
L10072:

104401

%;}}

2713
2714

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

LSBTTL

.WORD

ERR4

JxxxxEND OF TESTa%wxx
TRAP

CSETST

«=xTEST 43%x* -~ EXTENSIVE CHECK OF HEADER CRC

023334
023334

BGNTST
STARS

2715
2716
2717
2718
2719

023334

HORE EXTENSIVE CHECK OF HEADER CRC.
WE WILL SEEK
;AND READ HEADERS VERIFYING HDR CRC ACROSS THE
;PLATTER USING THE GROWING O, GROWING 1, SHIFTING O AND
;GROWING O PATTERNS FOR TRACK ADDRESSES.
STARS

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

023334
023340
023340
023342
023342
023346
023350
023354
023354

012703

2730
2731
2;%3

023356
023362
023362

004537

2733
2734
g;gg

023364
023372
023400

013737
043737
001461

(2)

sxx*xSTART OF TEST*%xx

t"'.*..fi'..'t..'.Q"ii't*fi.t..tt.t'Qfififit.'*tfi.*ifi*itfitfi.fi'tiii

:.'Q't*t*Q.fitt'tQ*Qt"t"t"t"fi..t.ti.'.Q'Ql‘.fififii'tt'.it"iitfiii'

002620

BGNSEG

104404

004537
000010
004537

1%:

013414
014246

8% :

104406
013114

104406
002310
002326

002356
002356

2737

MOV

#SKLST,R3

TRAP

C$BSEG

JSR
RDHDR
JSR
CKLOOP
TRAP

RS5.,LDFUNC
RS ,WTCRDY
C$CLPT

JSR
CKLOOP
TRAP

RS5,CHERR

MOV
BIC
BEQ

E.MP _BDDAT
SECMSK ,BDDAT
5%

C$CLP

JGET LIST OF DIFFERENCE WORDS
sxxx*START OF SEGMENTx%xx%
;.SSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;WAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET

;READ HEADER
;CLEAR OUT SECTOR
;IF ON TRACK ZERO, H.S. ZERO, OK

JNOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK

g;%g

;ON ZERO.

2740
2741
2742
2743
2744
2745
2746
2;2;

023402
023410
023416
023424
023430
023432
023436
023436

042737
013777
052777
004537
000006
004537

2748
2749
2;;&

023440
023444
023444

004537

2751

023446

004537

000100
002356
000001
013414

014246

104406
013114

104406
014160

0023556
156636
156630

BIC
MOV
BIS
JSR
SEEK
JSR
CKLOOP
TRAP

#RHHS ,BDDAT
BDDAT ,aRLDA
#MK ,aRLDA
RS.,LDFUNC

JSR
CKLOOP
TRAP

RS,CHERR

JSR

R5,WTDRDY

RS,WTCRDY
CS$CLP

C$CLP

;CLEAR OUT HEAD SELECT
;PUT CYLINDER AS DIFFERENCE WORD
;SET MARKER BIT
sISSUE FUNCTION OF FOLLOWING WORD
*SEEK
UAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET
JCHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET
;WAIT FOR DRIVE READY

SEQ 0099

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

2752
(3)
2753
2754
2755
(3)
2756
2757
2758

023452
023452

MACY11 30A(1052)
89%:

013114

104406

004537
000010
004537

013414
014246

96%:

104406

023476
023502
023502

004537

023504
023510
023516
023524
023532

005037

023534
023534
023536
023540
023542
023544
023544
023546

013114

CKLOOP
TRAP

R5,CHERR

TRAP

C$CLPT

JSR

R5,LDFUNC

RDHDR
JSR
CKLOOP
TRAP

TRAP

002354
002356
002310
002326

011377
052777
004537
000006
004537

023572

104406

023574
023600
023600

004537

023602

004537

023606

104406

(R3) ,aRLDA

156474

014246

013114

014246

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

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

sCHECK IF /FL:LOE IS SET

*WAIT FOR CONTROLLER READY HIGH

RS ,WTDRDY

JSR
CKLOOP

R5,CHERR

TRAP

C$CLP1

JSR

R5.,LDFUNC

JSR

RS ,WTCRDY

RDHDR

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

RS ,WTCRDY

C$CLPT

013414

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

R5.,LDFUNC

R5,CHERR

014160

sCHECK IF /FL:LOE IS SET

:GET DIFFERENCE WORD
*SET SIGN (TOWARDS SPINDLE) AND MARKER
gggge FUNCTION OF FOLLOWING WORD

C$CLPT

013114

#SIGN!MK,aRLDA

C$CLPT

104406

004537
000010
004537

CS$CLPY

C$CLPT

104406

004537

R5,CHERR

51. ,EM54 ERR3
CSERDF
51
EMS4
ERR3

5%:

156502
000005
013414

CS$CLPY

E.MP_,BDDAT
ggCMSK.BDDAT

104455

104406

RS ,WTCRDY

8DDAT ,DUORD

002370
002356
002356

000063
006420
010244

cscLPl

JSR
CKLOOP

104406

013737
013737
043737
001404

PAGE 2-37
14:01
*«TEST 43%+ -~ EXTENSIVE CHECK OF HEADER CRC

104406

004537

17-DEC=79

*CHECK IF /FL:LOE IS SET

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

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

s ISSUE FUNCTION OF FOLLOWING WORD
sREAD HEADER
;WAIT FOR CONTROLLER READY HIGH

SEQ 0100

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

(3)

023630
023630

MACY11

K 8
30A(1052)
17-DEC=79 14:01
PAGE 2-38
**TEST 43%+ - EXTENSIVE CHECK OF HEADER CRC
CKLOOP

104406

004537

013114

104406

011337

C$CLPT

JSR
CKLOOP

R5,CHERR

TRAP

002354
002356
002356
002356

006420
010244

8%:

002310
013772

023722
108:

013772

002336
002314
002354

C$CLPT
(R3) ,GDDAT
(R3) ,DWORD
E.MP ,BDDAT
SECMSK ,BDDAT

ggDAT.BDDAT

9%:

104406

013737
004537
000020
000000

TRAP

023752
023750

52.,EM54 ,ERR3
CSERDF
52
EMS54
ERR3
C$CLPT

SEQ 0101

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 NEXT

;CHECK IF /FL:LOE IS SET

E.MP,10%
R5,SIMBCC

;GET HEADER WORD
;GO g?#gULATE HEADER CRC

0
0
CALBCC,20%

*HEADER GOES HERE

*START WITH ZERO CRC

E.MP1,21$
RS, SIMBCC

002354
002356
002356

CALBCC,GDDAT

E.MP2,BDDAT
gggAT.BDDAT

sMOVE CALCULATED CRC TO GDDAT
;GET HEADER CRC FROM RLMP
;1S CRC CORRECT?
;IF SO CONTINUE

53. ,EM42 ERRS
ggERDF
010316
024010

104406

024012
024014

005723

11%:

002400

CSCLPT

(R3)+

000001

T.DRIVE
.M

2%
R3,#SKEND
12%

002720

023342
002762

EMé42
ERR4

2%:

R3,#SKEEND
12%

sCHECK IF /FL:LOE IS SET

;BUMP PATTERN

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

024044
024050
024050
024050
024050
024052
024052
024052

000137

17-DEC=79
14:01
PAGE 2-39
MACY11 30A(1052)
**TEST 43%~ -~ EXTENSIVE CHECK OF HEADER CRC

023342

JMP

12%:

ENDSEG

10000$:

104405

ENDTST
L10073:

104401

024054

BGNTST

024054

STARS
AR

;4% **END OF SEGMENT*#ws
TRAP

CSESEG

TRAP

CSETST

;axxtEND OF

TESTawxs

**TEST 44%x - VERIFY GET STATUS WHILE DRDY IS LOW

.SBTTL

SEQ 0102

s*xxxSTART OF

AR AR AR A AR AR AR A

A AR

TESTxwxx

AR AR AR A AR AR AR A AR A AR AR AR AR AR AR

:VERIFY THAT WE CAN ISSUE GET STATUS AND RECIEVE

*THE STATUS WORD WHILE THE DRIVE IS IN NOTION SEEKING

024054

STARS
e

024054

004537
000010
004537

024066

104406

024070
024074
024074

004537

024076
024104
024112

013737
043737
001461

013414
014246

013114

104406

002310
002326

002356
002356

A AR

A AR AR AR

AR AR A AR

JSR
RDHDR
JSR
CKLOOP
TRAP

R5,LDFUNC

JSR
CKLOOP
TRAP

R5,CHERR

MOV
BIC
BEQ

E.MP,BDDAT
SECMSK ,BDDAT
5%

R5,WTCRDY

C$CLPT

C$CLP1

AR AR

A AN AR AN RA R AR AR AR R AR AR,

;ISSUE FUNCTION OF FOLLOWING WORD

;READ HEADER
;WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS

sCHECK IF /FL:LOE IS SET
+READ HEADER
sCLEAR OUT SECTOR
;IF ON TRACK ZERO, H.S.

ZERO, OK

:ggnggOTRACK ZERO CALCULATE DIFFERENCE WORD AND PUT IT BACK
024114

042737
013777
052777
004537
000006
004537

024150

104406

024152
024156
024156

004537

024160
024164

004537

000100
002356
000001
013414
014246

013114

104406

014160

002356

156124
156116

BIC
MOV
BIS
JSR
SEEK
JSR
CKLOOP
TRAP

#RHHS ,BDDAT

;CLEAR OUT HEAD SELECT

#MK , BRLDA

*SET MARKER BIT

BDDAT ,aRLDA
RS, LDFUNC

RS, WTCRDY
C$CLPI

JSR
CKLOOP
TRAP

RS, CHERR

JSR
CKLOOP

RS,WTDRDY

C$CLPI

sPUT CYLINDER AS DIFFERENCE WORD
:éggge FUNCTION OF FOLLOWING WORD

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

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

sCHECK IF /FL:LOE IS SET

CZRLGBO RL11/RLV1T1 CTLR TST_1

CZRLGB.MAC

07-DEC-79 07:39

2&%

024164

104406

2886
2887
(3)

024166
024172
024172

004537

2890
2891
2892
2893
> égz

024174
024200
024202
024206
024206

004537
000010
004537

2895
2896
Zég%

024210
024214
024214

004537

2898
2899
2900
2901
2288%

024216
024222
024230
024236
024244

005037
013737
013737
043737
001404

2904

024246

2905

024256

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

104406

024260
024266
024274
024300
024302
024306

012777
052777
004537
000006
004537

024306

104406

2915
2916
(3)
2917
2918
2919
2920
2921
(3)
535%

024310
024314
024314
024316
024324
024330
024332
024336
024336
024340

004537

2924
(3)
263;

024344
024344
024344

2926

024346

014246

013114

104406

024256

(3)

013414

104406

104455
000066
006420
010244

2907
2908
2909
2910
2911
2912

013114

104406
012777
004537
000004
004537

104406
004537

104401

002354
002356
002310
002326

002370
002356
002356

5%:
077601
000005
013414

155766
155760

014246

013114
000003
013414

17-DEC-79

14:01

8
PAGE 2-40

*«TEST &44wxx - VERIFY GET STATUS WHILE DRDY IS LOW

104406

024246
024250
024252
024254

(3)

MACY11 30A(1052)

155730

014246
013114
ENDTST
L10074:

BGNMOD

TRAP

C$CLPY

JSR
CKLOOP
TRAP

R5,CHERR

JSR
RDHDR
JSR
CKLOOP
TRAP

R5.,LDFUNC
§
R5,WTCRDY

JSR
CKLOOP
TRAP

R5,CHERR

CLR
MOV
MOV
BIC
BEQ

GDDAT
BDDAT , DWORD
E.MP_,BDDAT
SECMSK ,BDDAT
5%

ERRDF

54.,EM5«< ,ERR3

C$CLPT

CSCLP1

TRAP
.WORD
.WORD
.WORD

CSERDF
54
EM54
ERR3

TRAP

C$CLPY

MoV
BIS
JSR
SEEK
JSR
CKLOOP

#77601,aRLDA
#SIGN!MK,aRLDA
R5,LDFUNC

CKLOOP

RS ,WTCRDY

TRAP

cscLPl

JSR
CKLOOP
TRAP
MOV
JSR
GSTAT
JSR
CKLOOP
TRAP
JSR

R5,CHERR

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

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
;CLEAR EXPECTED
s SAVE DIFFERENCE WORD
;READ HEADER
sMASK OUT SECTOR BITS
JBRANCH IF ON ZERO TRACK

;CHECK IF /FL:LOE IS SET
;GET DIFFERENCE WORD
;SET SIGN (TOWARDS SPINDLE) AND MARKER
s ISSUE FUNCTION OF FOLLOWING WORD
; SEEK
sWAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

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

CSCLP1
#MK!GSBIT,aRLDA
R5,LDFUNC
s ISSUE FUNCTION OF FOLLOWING WORD

R5 . WTCRDY
C$CLPT
R5,CHERR

;WAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
suxxxEND OF TEST*wxx

TRAP

HRDPRM

CSETST

SEQ 0103

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

024350

MACY11 30A(1052)

17-DEC=79

PAGE 2-41

#«TEST 44*+ - VERIFY GET STATUS WHILE DRDY IS LOW

BGNHRD

.WORD L10075-L$HARD/2

000030

CNTMSG,CNT,1,YES

005130
024444
000001

T$CODE
gNTMSG

000031
024430

T$SCODE
CSRMSG
TSLOLIM
TSHILIM
VECMSG,VECT,0,0,776,YES
T$CODE
VECMSG
TSLOLIM
TSHILIM
BRMSG,PRIOR,0,340,0,7,YES
T$CODE
BRMSG

CSRMSG,CSR,0,160000,177776,YES

160000
177776

001031
024462
000000
000776
002032
024451
000340

340

000000
000007

TSLOLIM

TSHILIM
DRTYPE ,TYPDR,1,YES
TS$CODE

003130
024471
000001

024426

14:01_

?RTYPE

DRMSG,DRBT,0,03400,0,7,YES

004032
024513
003400
000000
000007

T$CODE
DRMSG

03400

TSLOLIM
TSHILIM

024430

L10075:

024430
024430
024436

052502
051104
046122

102
042526

042526
000

024522

000
052103

042101
000123
000
042514

CSRMSG:

.ASCIZ

/BUS ADDRESS/

CNTMSG:
BRMSG:

.ASCIZ
.ASCIZ

/RL11/
/BR LEVEL/

051117

VECMSG:

.ASCIZ

/VECTOR/

104

044522
050131
046122

042526
020105
030460

DRTYPE:

.ASCIZ

/DRIVE TYPE = RLO1/

104
000
024522

044522

042526

DRMSG:

LASCIZ

/DRIVE/

052040
020075
000

024520

020123
051505

.EVEN
ENDMOD

SEQ 0104

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

B 9
MACY11 30A(1052)
17-DEC-79 14:01
PAGE 2-42
*#TEST &44»+ - VERIFY GET STATUS WHILE DRDY IS LOW

2949

2950

223551

024522

2954
(4)
(4)
(4)
2955
(5)

024524
024524
024526
024530
024532
024532

BGNMOD

295%
024522
(3)
024522 000011

024534

024534
024536
024540
024542
024544

024546

000130
024546
000001
006044

BGNSFT
.WORD L10076~L$SOFT/2
GPRML
.WORD
.WORD
LWORD
XFERF
.WORD

DMSG,DLT,1,YES
TSCODE
DMSG
1
1%
TSCODE

.WORD
.WORD
WORD
.WORD
LWORD

TSCODE
EMSG
177777
TSLOLIM
TSHILIM

GPRMD

001032
024572
177777
000000
177777

18:

024546
024546
024572

SFTPRM

ENDSFT

EMSG,ELT,0,177777,0,177777
,YES

L10076:
051104
051105

050117
047522

047440
020122

DMSG:
EMSG:

.ASCIZ
.ASCIZ

/DROP
ON ERROR LIMIT/
/ERROR LIMIT/

.EVEN

024606
024606
024606
024610
024612

LASTAD
000000
000000

000001

LSLAST::

.END

ENDMOD
.EVEN

WORD
o

O
0

SEQ 0105

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

ADDCOD 013024 G
ADR
= 000020 G
AFREG
004636
AFTER
013724
ARLBA
004573
ARLCS
004566
ARLDA
004601
ARLMP
004607
ASSEMB= 000010
BATEST 015054
BA16 = 000020
BA17 = 000040
BCCFBK 002334
BCSR
002260
BDDAT
002356

1003
466

1009
468

467

469

466
467

SEQ 0106

468
469

119N

937
587
413
1253
1461
1639«
1839
2330%
2506
2740%
2873
8994

BEFORE 013672
BEGPAT 002410
BEREG
004615
BGNTST 012424
BITO = 000001 G
BITO0 = 000001 G
BITO1 = 000002 G
BIT02 = 000004 G
BITO3 = 000010 G
BITO4 = 000020 G
BITO5 = 000040 G
BITO6 = 000100 G
BIT07 = 000200 G
BITO8 = 000400 G
BITO9 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT13 = 020000 G
BIT14 = 040000 G
BIT15 = 100000 G
BIT2 = 000004 G

BIT3 = 000010 G
BIT4 = 000020 G
BITS = 000040 G
BIT6 = 000100 G
BIT7 = 000200 G
BIT8 = 000400 G
BIT9 = 001000 G
BOE
= 000400 G
BPRIOR 002262
024451
BRMSG

c 9
17-DEC=79 14:01
PAGE 3
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

1172
466
6244
27

41
41

43
45

28
32
37
38
589+
29414

953

457
1291
1510«
1673
2068+

1143
1325«
1543~
1683+
2069+

2363«
2555
2769+

1144
1326
1552«
1690*
2070

2364%
2601+
2803%«

1350

1382

1413

47
47

52
49

262
263

2236

2269

11
1357«
1583«
1754
2115«

2397x
2602«
2804*

209
798
802
212

34
33

949

2362
2554+
2768%

1208

31
210
211
35

30
29

2933

943«
594
422
1289+
1462
1671+
1850
2336+
2508
2741
2899

213
239
55
265
53
48
39
39
1834

807
81

264
54

208

266
2209
267
268

261

11
13
15
17
2116

2398+
2603
2805

1215

1420+
1627+
1772%

2174
2460+
2702
2865+

1251+
1421
1628+
1773
2176

2733«
2866+

CZRLGBO RL11/RLV11 CTLR TST_ 1
CZRLGB.MAC
07-DEC=79 07:39
BVEC
B.BA
B.CS
B.DA
B.MP
CALBCC
CHERR

002264
002272
002270
002274
002276
002336
013114

87
90
8O
o1
oM
1084
765
2065

2392
2633
2880
400

588«
466
466
467
467
959+
1723
2100

2442
2675
2886
407

CKERLT 013030
CLNCOD 012752 G
CNT
= 000012
CNTMSG 024444
comp
004037
CONT
012222

2930
3134
557

CRDY = 000200
CRTIM
004657
CSEND
003062
CSPAT
002764
CSR
= 000000
CSRMSG 024430
CSTEST 014734
CYLMSK 002362
C$AU_ = 000052

3314
2914
2604
sox
2931
1136
gy
4

1005
1153
1132
2931
2934
1154
2179
715

C$BRK = 000022
C$BSEG= 000004

74
272;#

1134

C$8suB= 000002
CSCEFG= 000045

I
74

CS$CLEA= 000012

693

CONTIN

012070

CSAUTO= 000061

CSCLCK= 000062
C$CLOS= 000035
C$CLP1= 000006

6724
64¥

2930

561

S64

$DODU= 000051

CSDRPT= 000024
CSDU = 000053
C$EDIT= 000003
CSERDF= 000055

2448
2682
2895
415

683
839«

840+

B4l

B42x

899+

2142+

2143+

2144

2114
1813
2218

2816
1847
2242

2822
1891
2248

1913

1925

1949

1984

2005

2030

2053

2550
2782

2583
2789

2589
2798

2598
2862

2456
2689
2915
424

2280

2306

2344

2350

2358

2488
2697
2922
433

2494
2730

2502
2748

2535
2754

2541
2763

440

451

459

7284

1246

1452

1532

1573

1617

1660

2142

2377

2383

5944

678

997

1244

1261
1241

1298
1279

1173

1209

1242

1280

1317

1351

1383

1414

1836

2058

2319

2240
2356

1038
1812
2243
2359

1064
1889
2246
2

1089
1912
2277
2375

2492

1114
1924
2281
2378

2495
2672

1546
1950
2287
2381

1589
1980
2294
2384

1633
1985
2324
2390

1677
004
2327
2403

1
2028
2342
2440

1721
2075
2345
2443

1749
2190
2348
2446

1760
2217
2351
2449

ggg?

2828

2860

2863

2878

2881

2884

2887

2893

2896

2905

2912

2916

74
74

652
623

683

1032

1058

1083

1108

14
7
7n
7"

622

654
739

659

668

738

705
17
821

989

1005

1148

1184

1218

1256

1294

1329

1361

1392

1424

1776

1810

1856

1911

1923

1953

1979

1988

2027

2073

2119

2189

324

14
7#
1769

144

670

2486
2590

1465

1490

2276
7

2293

1767

CSERHR= 000056

630
900
B37
901*
902+
2108
1751
2164

SEQ 0107

29404
784
570

2454
2587

CS$CVEC= 000036
CSDCLN= 000044

MACY11 30A(1052)
17-DEC=79 14:01
PAGE 3-1
CROSS REFERENCE TABLE =- USER SYMBOLS

2489
2631

513

367

1545

2402

1554

2464

2500
2676

1588

2511

2533
2680

1598
2558

2536
2683

1632

2606

2539

1641

2705

2542
2690

1676

2772

2548
2695

1685

2808

2581
2728

1693

2827

2584
2731

1758

2904

CZRLGBO RL11/RLV1T1 CTLR TST_1

CZRLGB.MAC

07-DEC-79 07:39

MACY11 30A(1052)

17-DEC-79

14:01

PAGE 3-2

SEQ 0108

CROSS REFERENCE TABLE == USER SYMBOLS

CSERRO= 000060
CSERSF= 000054
CSERSO= 000057
C$ESCA= 000010

14
®
4
%
%ggg

1037

1063

1088

1113

1149
2051

1185
2054

1219
2063

1257
2066

1295
2098

1330
2101

1362
2393

1393
2457

1425
2503

1752
2551

1845
2596

1848
2599

CSESEG= 000005

284;,

1156

1193

1226

1264

1300

1335

1367

1398

1430

1864

2079

2418

1039
1467
1956
2561

1065
1493
1991
2609

1090
1516
2007
2708

1115
1558
2032
2843

1157
1600
2080
2924

1194
1645
2122

1227
1698
2196

1265
1726
2220

1301
1780
2250

1336
1817
2296

1368
1869
2419

1399
1893
2467

401

408

416

425

434

441

452

461

413
657
736

422
665

431

450

457

463

466

467

468

469

472

473

558
1457

560
1486

569
1509

zggg

1450

1804

1839

1903

1908

1915

1920

1970

1976

2019

2024

630

643

649

1029

1055

1080

1105

2482
1224

2576

2641

2654

2656

2666

2668

787
1140
1663

835
1142

1248

1250

1286

1288

1453

1455

1574

1576

1618

615«

2213x«

2215+

C$ESUB= 000003

CS$ETST= 000001

CSEXIT= 000032
C$GETB= 000026
CS$GETW= 000027
CSGMAN= 000043
CSGPHR= 000042
CSGPLO= 000030
CS$GPRI= 000040
CSINIT= 000011

CS$INLP= 000020

CSMANI= 000050

CSMEM = 000031
C$MSG = 000023

CSOPEN= 000034
CSPNTB= 000014

CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015

74
1431
1926
2514
74

74
74
14
74
144
14
74

144
144

74
74

74
44
619
78

74
74
4]
74
74
74
74
74
2262’

C$SVEC= 000037
CS$TPRI= 000013

I
14

DCKMES 004020
DEMES
003766
DERFLG 002300
DERR = 040000

DIAGMC= 000000
DLT
= 000000

554
12104

3094
3044
934
304
1620

613«

DMSG

024546

2954

= 000010

810
789
765
785
1661

1294

3104

DRBT

632
554
553
17
:

2954

004025

002406

728

7
684

DLTMES
DLYCNT

636

C$QI0 = 000377
CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
C$REVI= 000003
CSRFLA= 000021
CSRPT = 000025
C$SEFG= 000046
C$SPRI= 000041

DAHS = 000020
DATEST 015156

581

634

814

29634
2935

CZRLGBO RL11/RLV11 CTLR TS T
CZRLGB.MAC
07-DEC-79 07:39

EM33
EM34
EM37
EMé
EM41

EM4L2

005566
005633
005710
005031
005750

006041

EM43
EM44
EM4S
EM46
EM47
EM5

006077
006176
006231
006264
006317
005056

EM54
EM55
EM56
EMS7
EM6
EM61

006420
006457
006512
006551
005127
006652

EMS52

006350

27K
88#
2935
524
6994
L8

3324
2934

611
463

2944H
730

983
591+

1144

1252

1290

2396+

2767+

2802+

2899+

2772

2808

2904

610

626

662

1885
989

29434
618

(212112~

DRDY = 000001
DRIVE
002266
DRMSG
024513
DROP
011640
DRPCOD 013020 G
DRST
= 000010
DRTIM
0047
DRTYPE
024471
DRVRDY 012310
DSPCOD 011646
DSO
=
DS1
= 000400
DS2
= 001000
DS3
= 001400
DWORD
002370
EF .CON= 000036
EF .NEW= 000035
EF .PWR= 000034
EF .RES= 000037
EF .STA= 000040
ELT
= 000002
EMSG
024572
EM1
00473
EM101
007715
EM102
007762
EM11
005203
005244
EM13
EM14
005276
EM15
005324
EM16
005352
EM?7
005400
004757
EM2
EM3
005004
EM30
005433
EM30A
005472
EM32
005532

F
9
17-DEC=79 14:01_
PAGE 3-3
CROSS REFERENCE TABLE =- USER SYMBOLS

MACY11 30A(1052)

1988

2827

2402
2511
2606

1461

840

SEQ 0109
1532

861

1584
2143

1628

1672

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

EM63
EM64

EM6S5

EM66
EM67
EM7
EM70
EM71
EM72
EM73
EM74
EM75
EM76
EM77
END
ENDPAT
ERCOUN
ERPOIN
ERR
=
ERRVEC
ERRO
ERR1
ERR2

ERR3
ERR4
ERRS
ERR6
ERR7
EVL
=
ESEND =
ESLOAD=
E.BA
E.CS
E.DA

007016
007077

3674
3684

1329
1361

007243
007326
005155
007363
007420
007455
007510
007543
007575
007627
007662
012464
002616
003066
003064
100000
002332

3704
3714
3394
3724
3734
3748
3754
3764
377#
378%
3794
603
2024
2934
2924
29%
106#

1424
1465
1218
1490
1513
1545
1554
1588
1598
1632
1641
6304
1190
562
576
1142
643

007162

010244
010316
010364
010376
010440
000004
002100
000035
002304
002302
002306

002310

E.MP1
E.MP2

002312
002314

FIX
FNDFNC
FRMT1
FRMT11
FRMT12

FRMT13

FRMT14
FRMT15
FRMT2
FRMT2A
FRMT2B
FRMT3
FRMT4
FRMTS
FRMT6

369%

010152 G
010170 G
010202 G

E.mMP

FIRST

G 9
MACY11 30A(1052)
17-DEC=79 14:01
PAGE 3-4
CROSS REFERENCE TABLE == USER SYMBOLS

002360

G
G
G
G
G
G

395#
4034
4104
1545
4184
4278
4364
4434
4544
264
4

4
954
94H

1810
1037
1148
1554
2367
2073
989
821
1856

17
468
468

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
251

1588

910~
766

1981
911~

2601
984

2636
469

2700
913«

1174

2139+«

2168

783
847+
463
484
4904

011471
011535
011066
011105
011120
011147
011154
011212
011263

4924
4934
466
467
469
472
413
422
457

49N

469
469

788
848«
4804
736
619

657
665
468
4824
4834
473
431
4874
4884

1598

1632

1396

1428

1576
1029
1979

1620
1032
1988

1663
1055
2027

1058
2276

1080
2293

1083

1105

1294

1329

1361

1392

1424

1465

1490

2904
2558

1776

2189

2606

2705

2827

1641

1676

1685

1693

1758

1767

1108
1513

1005

1951
469

013660
013632
011026
011320
011361

011440

1392

1946
o4

974

SEQ 0110

912«

914«

792
849

4814
484
4854

1986

774

2156«

2157

785

790

794

798

802

807

811

909+

2056

2068

2103

2161~

2329

2363

2397

2459

2505

2553

2163+

2823

809

813

815

817

88954

2733
2109

2115

2170%

796
851«

781

2768
2162«
2186+

800
854+

2803
2817
804
8694

2811

2865

2900

CZRLGBO RL11/RLV1T1 CTLR TST_1
CZRLGB.MAC
07-DEC-79 07:39
FRMT99

011207

F$AU_
= 000015
FS$AUTO= 000020
F$BGN = 000040

450

w
14
4

418

549
725
1149
1265
1373

1516
1780
1931

FSCLEA= 000007

F$DU
= 000016
FSEND = 000041

F$HARD= 000004
F$HW = 000013

FSINIT= 000006

F$JMP = 000050
F$MOD = 000000
FSMSG = 000011

F$PROT= 000021
FSPWR = 000017
FSRPT = 000012

MACY11
4864

H 9
30A(1052)
17-DEC=79
14:01
PAGE 3-5
CROSS REFERENCE TABLE == USER SYMBOLS

71N
641
15

715
670
19

551
974
1157
1270
1383

638
1013
1162
1280
1393

1956

1961

427

1521
1785

436

1558
1817

443

641
1019
1173
1295
1399
1563
1822
1991

454

672
1039
1185
1301
1404
1600
1836

1995

295

298

388

393

395

403

410

674
1044
1194
1306
1414

1605
1845
2007

695
1065
1199
1317
1425

699
1070
1209
1330
1431

701
1090
1219
1336
1436

707
1095
1227
1341
1467

709
1115
1232
1351
1472

711
1120
1242
1362
1493

717
1134
1257
1368
1498

2011

2032

2037

2051

2054

2058

063

295

298

388

393

401

408

695

699

705

707

709

715

717

504

506

1645
1848

518

1649
1858

674

693

425

434

441

452

461

978
1157
1270

1013
1162
1295

1019
1185
1300

1039
1193
1301

1044
1194
1306

1065
199
33
43

1070
1219
1335
1431

1090
1226
1336
1436

78
44

2928
508
551

2937
516
636

2955

14
4

144

74
44

701
15

638

705
19

670

672

693

SEQ 01M

504

506

518

520

1698
1869

520

530

1702
1873

530

532

1726
1893

532

536

1731
1898

536

542

1752
1926

416

549

725

1095
1227
1341
1467

1115
1232
1362
1472

1120
1257
1367
1493

1149
1264
1368
1498

1156
1265
1373
1516

520

530

532

536

549

T4
638

295

298

695

699

388

393

504

506

518

I
443
78
74
74

395
452
542

401
454
546

403
461

408

4190

416

418

425

427

434

436

441

1193
1414

1209
1430

1226
1836

1242
1864

1264
2058

1280
2079

1300
2319

1317
2418

1335
2723

672

707

709

717

725

F$SEG = 000003

74
532}

1134
1367

1156
1383

1173
1398

F$SOF
T= 000005
F$SRV = 000010
F$SUB = 000002
F$SW = 000014
FSTEST= 000001

8
74
74
74
7#
1199

2953
974

2955
978

2957

522
1019
1227

528
1039
123¢

1044
1265

1065
1270

1070
1301

1090
1306

1095
1336

1115
1341

1120
1368

1157
1373

1162
1399

1194
1404

1649

1698

1702

1726

173

1780

1785

1817

1822

1869

1873

1893

1898

1431

1436

14€7

1472

1493

1498

1516

1521

1558

1563

1600

1605

1645

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

MACY11

1926

1931
2196
2519
413
1178+«
1291
1455«
1621
1771«
2182
2637+
2898+

1956
2201
2561
422
1179
1320+
1462
1629
1773
2361«
2639

1885
769
876

GDDAT

2127
2514
1154
1175+

002354

1288+
1452+
1620+
1764

GLBDAT
002242 G
GLBEQA 002242 G
GLBERR 010152
G
GLBSUB 013030 G
GLBTXT 003766 G
GODRVR= 000202
GSBIT = 000002
GSTAT = 000004
GSTINT 004527
GSTMES 004470
GSCNTO= 000200
GSDELM= 000372
GSDISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO_ = 000000
GSOFF
S= 000400
GSOFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140
GSRADB= 000000
GSRADD= 000040
GSRADL= 000120
GSRADO= 000020
GSXFER= 000004
GSYES = 000010
HALMAX 002676
HCRCME
005
HDRBUF
003266
HDRLST 013634
HMAX
002726
HNFMES 004013

HOE
=1
G
HPTCOD 011620 G

HRDPRM

IBE
=
IDU
=
IER
=
INITCO
INTEN =
INTFLG

024346 G

010000
000040
020000
012006
000100
002322

G
G
G
G

2178
2636+
2824
74n
244
3938
7254
2984
48
S04
430
3244
3230
7"
7,
7
7
7
7
7
L4
7
7
7
7,
7
1}

1}
7
i}
7
7#

2294
3074
29

850

2414
3084
264
5064
29264

PAGE 3-6
30A(1052)
17-DEC=79
14:01
CROSS REFERENCE TABLE == USER SYMBOLS

1991

2225
2609
1035«
1211
1326
1508«

2037
2419
2848
1138+

1995

2250
2614
1061«
1212
1354
1542+

1660«
1850

1663
2056%

1904
839

2544

2592

2917
1944

1974

2546

614

985

2214

2930

2931
2931
2932
2935
2934

2932
2932

2933
2933

2934
2934

2935
2935

2954
2954

2956
2956

2934
2932

2954
2933

2935

2956

2931

2932

2933

2934

2935

2954

2956

856
1808

1806
1811«

1842
1838«

1974
1860

2022

2399
2649

1906

1142+
1283+

1418«
1595+

1755
2173+
2577
2805

1691+

2116
2529+
2766+

2434%
2651«

1918

2085
2467

2594

2919

2271
1909

1914

875

2930
2931
2933
2930

2930
2931
2955
2930
2646
801
2140
8714
2658
805

2956
2954

2154

264

264
264
549K
284
1024

681

976%

848

1803«

1902+

1921

1971«

I$SETU=
I$SFT =
I$SRV =
I$SUB =

000041
000041
000041
000041

I$TST = 000041

LDFUNC

LF
LINET
LINE2
LINES
LOE
=
LOT
=
LSACP
L$SAPT
L$AU

002324

5494

6384

74M

2954
6724

2984
6954

3884
6994

3934
7074

7094

5044

5064
78

4084

4104

L4164

4184

4254

427K

4344

4364

1095
1232
13514
1498
1898

1120
12424
1362
1521
1931

724

29724

2255
2848

1095
1521

1120
1563

10704
13014
14984

2011
2713

2037
2848

17314
19314
2098
424K
26144

1752
19564
2101
2457
2698

1841

7114

861«

1886

2270
2593
2918

2321
2628

429

438

L6664

1185

2225
28424

856

013414

004035
010476
010532
010754
040000 G
000010 G
002110 G
002036 G
013024 G

6364
194
5324
29474
4014
454M

10654
12704
14934

JSJMP = 000167

LDCSR

7054

I$SEG = 000041

7154

6704
6934

000040
000041
000041
000041

2290

gmvnu%W 2eis
= QQ\ R

I$PROT=
ISPTAB=
ISPWR =
ISRPT =

2283+

25614

ISMSG = 000041

2274

WVIND NN

7014

29374
5514
154

2267

7114

6414
6744

2025

9764

[\ =d =

I
14
74

2020~

PUNIN)
= —d ed e ed
cown-—
SO

630
264
264

POND ==
NWOWM
NS

1977

SEQ 0113

INTSRV 014152
ISR
= 000100 G
IXE
= 004000 G
I$AU = 000041
ISAUTO= 000041
ISCLN = 000041
I$DU = 000041
ISHRD = 000041
ISINTT= 000041
I$MOD = 000041

J 9
17-DEC=79 14:01
PAGE 3-7
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

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

2048
2483
2792
737

L 10006

002

0020

—_—

NN
= (N

R
TR

D D D D D D D e

[
]
%

~N-O

orN<

NN o-

D D D D D D e D D e e
e D e e e d
NNNVNNNNNNNN
RN
=
=

D d D D e

alalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalnln]

L OO NN dauduweuuUau@eCoO O o et ed e ed b e

—

LSAUT
LSAUTO
L$CCP

N2RS
~
oo §ON—'NN
&S o

CZRLGBO RL11/R
CZRLGB.MAC
MACY11

614

5344

K 9
PAGE 3-8
30A(1052)
17-DEC=79 14:01
CROSS REFERENCE TABLE == USER SYMBOLS

6414

6744
21»

985

7014

224

29284

5084

5514

29734

5424

29534

522#
575

999
2214

SEQ 0114

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

3R
S
e
R
E VL
OPe
014

17804

1848

30A(1052)
17-DEC=79
14:01
PAGE 3-9
CROSS REFERENCE TABLE == USER SYMBOLS

5164
5284

L10023
L10024
L10025
L10026
L10027

010474

G000
N ~NON

L10007
L10010
L1001
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022

MACY11

18694

20804
2122#

26094

SEQ 0115

CZRLGBO RL11/RLV11 CTLR TST .1
CZRLGB.MAC
07-DEC-79 7:39
MAXSEC
MDHEDR
MERLMT
MK
=

002366
002000 G
011642
000001

m9
PAGE 3-10
14:01
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

1904

2338
2874

2371
2908

2433
2917

2481

2322

2354

2387

2452

2498

2629

1180
1579«

1319«
1622«

1324+
1635

627+

628
983

1972

2209
2665

1970

2019

2268

1920
602

1976
687

2024
690%

2289

2061
2858

2096
2891

2142

2643

2740

2872
1179+
1543

610«

611

625+
865+

1842

012100

PNT
= 001000 G
PRI
= 002000 G
PRIOR = 000004

PRIOO = 000000 G
PRIOT = 000040 G
PRIO2 = 000100 G
PRIO3 = 000140 G
PRIO4 = 000
G
PRIO5 = 000240 G
PRIO6
= 000
G
PRIO7 = 000340 G

PENERNRS
*

= 000000
0$8GNS= 000001
0$DU = 000001
OSERRT= 000000
OSGNSW= 000001
O$POIN= 000001
O$SETU= 000000
PFLG
002316

1986
o
w-l—l-l—l—l—l—l—l—l

O0$APTS= 000000
0$AU
= 000001

1804

1915

002242

QMAX
002724
QUAMAX 002674
RDHDR = 000010
READ
REST

= 000014
012146

RHHS
RLBA

= 000100
002252

RLCS

002250

RESTMS
RHDINT
RHDMES

2269
2776

2236
2742

2653

2638

003773

OKHDR
013644
OPI
= 002000
OPIERR 004045
OPIMES 004000

PWRFLG

1942

2575

n
O
W
)

NXHES

SEQ 0116

1204

MSCRLF
004032
MXSECT
002364
NOOPQO = 000000
NOOP7 = 000016
NOPINT 004151
NOPMES 004120
NOPUR
012030
= 020000
NXT

17-DEC=79

013376
004344
004304

860«

2159+

2336
597«

1481+
1742«
463
678

2639
1487

681

609«
841+

1057
1533«

843

1061
1539

863+

626+

899

909

1356+
1679
997

662+

1035

CZRLGBO RL11/RLV11 CTLR TS T_1

CZRLGB.MAC

07-DEC-79 07:39

N 9
MACY11 30A(1052) 17-DEC=79 14:01 PAGE 3-11
CROSS REFERENCE TABLE == USER SYMBOLS

‘SEQ 0117

1139«
5?22

1140
5?23'

1143
1574

1244
1577«

1247+«
1583

1248
1618

1251
1621«

1282«
1627

1285«
1661

1286
1664

1289
1671

1451+
2144%

1453
2145+

RLDA

002254

834
1416
1687
2338«
2648+

599
1419+
1690
2370«
2652+

624
1420
17641«
2371+
2654

838+
1507«
1772
2433«
2660%

901
1510
1885+
2481«
2664*

911
1534+
1904+
2482+
2666

1082
1548
1916%
2527%
2678%

1087
1552
1942+
2544%
2741%

1212«
1578+
1972«
2575+
2742«

1214
1591
2209+
2576%
2775«

1385«
1596
2236%
2592«
2776%

1387«
1623+
2269+
2638+
2873+

1388
1666+
2337+
2641+
2874+

RLMP

002256

21%80

Z?g}.

902

912

913

914

1107

1667«

1743%

1744

1754

2149

RL2

SECMSK

002722
002326

2394
2;22’

sgg;

2069

2176

2182

2330

2364

2398

2637

2701

2734

2769

2804

SEEK

= 000006

28?2’

Sg}a

2238

227

2340

2373

2438

2484

2531

2579

2670

2744

2778

3224

878

2209
2104

2269
2110

2371
2812

2648
2818

2660

2776

2908

2564
2384
206#
5204
567
559
54w
7%
427
641
7
441
522
614
668
978
1064
1148
1227
1330

2412
2408
2318

2837
2834
2722

S74H
5624
2577
15
436

672
8#
450
534
619
670
985
1065
1149
1242
1335

17
443

674
17
452
553
622
676
989
1080
1156
1256
1336

21
454

699
21
457
554
3
683
999
1083
1157
1257
1351

22
506

701
22
461
555
630
693
1005
1088
1173
1264
1361

24
508

709
401
463
558
632
705
1029
1089
1184
1265
1362

74
520

n
408
466
559
633
715
1032
1090
1185
1280
1367

298
522
725
413
467
560
636
728
1037
1105
1193
1294
1368

393
532
2926
416
468
561
643
729
1038
1108
1194
1295
1383

395
534
2928
422
469
569
652
736
1039
1113
1209
1300
1392

403
542
2951
425
472
570
657
738
1055
1114
1218
1301
1393

410
549
2953
431
473
581
659
739
1058
1115
1219
1317
1398

418
551
29734
434
508
582
665
821
1063
1134
1226
1329
1399

2019
2080
2246
2327
2390
2467
2548
2634

2024
2098
2250
2342
2393
2486
2551
2672

2027
2101
2268

2028
2119
2276

2032
2122
2277
2351
2418
2495
2581
2683

2051
2189
2281
2356
2419
2500
2584
2686

2054
2190
2287
2359
2440
2503
2587
2690

2058
2196
2289

2063
2214
2293
2368
2446
2514
2596
2698

2066
2217
229
2375
2449
2533
2599
2705

2073
2220
2296
2378
2454
2536
2606
2708

SEKINT

004436
SEKMES 004405
SFTPRM 024522 G
SIGN = 000004
SIMBCC 013772
SIZE

= 000004

SKEEND 002762
SKEND
002720
SKLST
002620
SPTCOD 011636 G
START
012106
STARTT
012050
STHS = 000100
SVCGBL= 000000
SVCINS= 000000

3214
29514
Sea
9314
704

1414
1513
1645
1767
1858
1926

877

1424
1516
1676
1769
1864
1950

1425
1545
1677
1776
1869
1953

2345
2402
2489
2558
2676

1430
1546
1685
1780
1889
1956

2403
2561
2680

1431
1554
1686
1804
1893
1970

1450
1558
1693
1810
1903
1976

1457
1588
1698
1812
1908
1979

1465
1589
1721
1817
1911
1980

2367
2443
2511
2590
2695

1467
1598
1726
1836
1912
1985

1486
1600
1749
1839
1915
1988

1490
1632
1752
1845
1920
1991

1493
1633
1758
1848
1923
2004

2075
2240
2319

2381
2457
2539
2609
2723

1509
1641
1760
1856
1924
2007

2079
2243
2324
2
2464
2542
2631
2728

8 10
17-DEC=79 14:01 PAGE 3-12
MACY11 30A(1052)
CROSS REFERENCE TABLE -- USER SYMBOLS

—

e It SR

)

SEE ISR

NWVS
W= OWn

1201
1313
1430

SEITHE3

636

1076

[+ ]

PININ)
= = b b d ek =
&N —2

W
3§53 38& §§O~MM-‘O

b d e
b ed e
NININ) =
Nt

FIUTS

PORNON)
= —d e b wd e e b

PININ)
= b b e e e e d

IR NS
ONUMMO\A%
RAINRS RN

s
5355

SVCTST= 177777

2790
2884
2932

BB
2%

764

e
33
22 EI2NEH

SVCSUB= 177777
SVCTAG= 000000

2752

SEQ 0118

N =2 =2
OO
WO

2746
2799
2893
29

&~
N —O
S
30 —
& ERIRTIE KIS

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

SVHD
002374
SSLSYM= 010000

—

Okl
N
O

a& ST I3 1

264

1084

TSGMAN= 000000
TSHILI= 177777
TSLAST= 000001
TSLOLI= 000000
T$SLSYM= 010000

12574
20664

705

29334

29354

29334

29354

408
715

416
978

4 443

17524
25514

TSEXCP= 000000
TSFLAG= 000040

—

2904#
29354

—\n

T$CODE= 001032
TSERRN= 000066

[ og
VIO
=

174

528

1227

4724

4734

12564
16324
19794

26064

¢gd

1109

18484

18584

25994

26984

636

670
1301

1265

eeeesteseoger oo8

TSLTNO= 000054
TSNEST= 177777

c 10
PAGE 3-13
MACY11 30A(1052)
17-DEC=79 14:01
CROSS REFERENCE TABLE == USER SYMBOLS

RS RO AN D VNS
—A%
NNM—A—‘-Q

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

1431
1926

1467

2514

PLLA

TSTAGL= 177777
TS$TAGN= 010077

TSTEMP=

N—
§3‘
*°F

4
E

TSSUBN= 000000

VO\ASOM—A
it R

T$SEKO= 010000

N = =2

TSPTNU= 000000
T$SAVL= 177777
T$SEGL= 177777

b ek =

000005

PON)
= =B \) b b

TSNS

N o=
g\l

TSNSO

A Run

N
I
e IR

38 BIATPR
YR LETRNY
—d —— —

)
D

’OQN%U‘J‘WN—‘

NV
—'—'gNl\
O NWVWNSO

b
b
b

b and wmd cmd and

383

W
N

NONO
= = =2 \N
WO
OO0

88E33

b
b
B
D e ed e
D

NON
S W

WA
-

%-‘OOOQVM&
gmg-n-mmo
WO
=N—=0WN

PONONON)
= wd cd e wd e ek

2019

NNOWON

gN—' o

039

2220

T$TSTS= 000001

T$$HW = 010010
T$SINI= 010013
T$$MSG= 010007

—

$ERIEER
4 4443

) —d —
—

)

—d cd

3§§§§§§GG¢
RIS

PO N
b =

2924

M) =
el

il asd

T$TSTM= 177777

oMWY

TSTEST= 000054

SEQ 0120
NS LIN) —

11244
12%6'

Sao0=R SN

10904

D 10

MACY11 30A(1052)
17-DEC=79 14:01
PAGE 3-14
CROSS REFERENCE TABLE == USER SYMBOLS

X
godedy g f—‘uflm
‘gi Qg
e2 &2

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

12324
17024
22014

4034

408

4104

416

4184

425

4274

13064
17854
22554

434

4364

13734
18734

24244

EEN

4434

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

SEQ 0121

T$$PRO= 010012
T$$SEG= 010000

5420
11344

4544

461

1149

11564

11734

T$$SOF= 010076
T$$SRV= 010020
T$$SW = 010011
TS$STES= 010074

29534
974N
5224
10194

2957
978
528
1039

1330
18644

13354
2058#

1351#
2063

1362
2066

13674
20794

13834
23194

1393
2393

13984
24184

14144
27234

1425
2842w

10444

1065

10704

1090

10954

1115

11204

1157

1162¢

119

11994

T.CNTL
T.DRIV
T.SIZE
T

452

E 10

MACY11 30A(1052)
17-DEC=79 14:01
PAGE 3-15
CROSS REFERENCE TABLE == USER SYMBOLS

1295
14304

002402
002400
011644
014346 G

110
TMm
T12
713
T14
115
116
117
T18
119

01556
015612
015712
016002
016102
016212
016264
016322
016446
016606

G
G
G
G
G
G
G
G
G
G

120
121
122
123
124
125
126
127
128
129
T3
130
131
132

016746
017152
017202
017406
017472
017636
017666
020040
020126
020254
014536
020276
020356
020522

G
G
G
G
G
G
G
G
G
G
G
G
G
G

T4
140
T41
142

021462
022100
022232
014632
022374
022534
022706

G
G
G

733
T34
135
136
137
738
139

014442 G

02
021176
021272
021336

G
G
G
G

1227
14364
1698
1893
2054
2296
2596
1274
1264
5264
534
534
534
534

534

534
534
534
534
534
534
534
534
534
534

534
534
534
534
534
534
534
534

534
534
534
534
534
534
534
534
534
534
534
534
534
534

13004
18364

12324
1467
17024
18984

2080
23014
2599
592«
590*

1019#
13064
13414
13734

16044

14364
14724
14984
15214
15634
16054
10444
16494
17024
17314

17854
18224
18734
18984

19314
19614
19954
10704

20114
20374
20854
21274
22014
22254
22554
23014
2424M
24L72M
10954
25194
25
26144

13174
1858

1265
14728
1726
1926
20854
2419
2609
1176
2406

12704
1493
17314
19314
2098
2424M
26144
1321
2644

1185

1301
1498¢
1752
1956
2101
2457
2698
1482
2832

11934

13064
1516
1780
19614
2122
2467
2708
1714

1209#

1336
15214
17854
1991
21274
24724
27134
1738

1219

13414
1558
1817
19954
2196
2503
2843
1800

12264

1368
15634

18224
2007
22014
2514
28484
1830

124284

13734
1600
1845
20114
2220
25194
2924

1257

1399
16054
1848
2032
22254
2551

12644

14044
1645
1869
2037#
2250
2561

12804

1431
16494

18734
51

22554
2

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

143

023334 G

144
15
16
17

T8
9
UAM
=
UNITST
wrT
VECMSG
VECT
=
WAITO
WAIT1
WCKINT
WCKMES
WHY
WRCHK =

024054
014726
015046
015150

015236 G
015362 G
000200 G
002246
002244
024462
000002
012326
021224
004243
004203
002376
000002

WRITE = 000012
WTCRDY
014246

WTDRDY

XPOLY
XXX
X$ALWA=
X$FALS=
X$OFF
S=

014160

002330
012130
000000
000040
000400

X$TRUE= 000020

G
G
G
G

= 024612

F 10
17-DEC=79
PAGE 3-16
14:01
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0122

534

534
534
534
534
534
534
264
80#
794
2932
604
6144
22144
3184
3174
1244
Lon

578+
575«

LoN
9954

622

659

1748

2062
2499
2794

105#
573
T
14
14

2955
2955

104
1362

2934
1393

5784

2393

955

294n

1425

2457

668

738

1907

2212
2547
2877
2286

9814

581

580+

3814

1752

2503

985
1848
2596

1945

1975

2341
2671

2374
2694

2389
2727

2003
2439
2745

2023
2453

2760

2050
2485
2779

2491

2586

2685

2751

2785

2883

1185

1219

999
1858

2599

1149

2051
2698

2054
29454

2955

1257

2066

1295

2098

1330

2101

CZRLGBO RL11/RLV1I1 CTLR TS T_.1
CZRLGB.MAC
07-DEC-79 07:39
BCOMPL
BGNAU
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI

BGNMOD
BGNMSG
BGNPRO
BGNSEG
BGNSFT
BGNSRV
BGNSW
BGNTST

BNCOMP

BRESET
CKLOOP

DESCRI
DEVTYP

559
711
641
674
701
2928
508
551

MACY11

SEQ 0123

570

582

729

15
395

24
403

74
410

298
418

393
427

506
436

520
443

532
454

549

672

699

709

725

1134
2953

1173

1209

1242

1280

1317

1351

1383

1414

1836

2058

2319

2723

974
522
1019
1498

1044
1521

1070
1563

1095
1605

1120
1649

1162
1702

1199
1731

1232
1785

1270
1822

1341
1898

1373
1931

1404
1961

555

361

633

1306
1873
2519

553
1038

1457
1064

2287
2390
2542
2728
2809

2294
2403
2548
2731
2828

1912

1486
1089
1950
2324

1509
1114
1980
2327

739
659

668

738

72
408

295
416

1924

2440
2581
2746
2860

1546

1589

1633

1677

1686

1721

2566

1749

2614

1760

2713

1769

2926

2951

1436
1995
2848

1472
2011

1812

1889

1985

2004

2028

2075

2190

2217

2240

2243

2246

2277

2281

388
425

504
434

518
441

530
452

536
461

638

695

707

717

1013

2947

2972

1300

1335

1367

1398

1430

1864

2079

2418

2842

1336

1368

1399

1431

1467

1493

2443
2584
2749
2863

2342
2446
2587
2752
2878

2345
2449
2590
2755
2881

2348
2454
2631
2761
2884

2351
2486
2634
2764
2887

2356
2489
2672
2773
2893

2359
2492
2676
2780
2896

2368
2495
2680
2783
2905

2375
2500
2683
2786
2912

2378
2533
2686
2790
2916

2381
2536
2690
2795
2921

2384
2539
2695
2799

21
22

DISPAT
DOCLN
DODU
ENDAU
ENDAUT
ENDCLN
ENDDU
ENDHRD
ENDHW
ENDINI
ENDMOD
ENDHSG

534
623
622
715
670
693
705
2937
516
636
19
g?g

ENDSEG

1156

1193

1226

1264

ENDTST

1039

1065

1090

}

2080

2122

2196

222

821
1545
1923
2606

989
1554
1953
2705

1005
1588
1979
2772

114
1598
1988

ERRDF

G 10

30A(1052)
17-DEC=79
14:01
PAGE 4
CROSS REFERENCE TABLE == MACRO NAMES

1516

1558

1600

2808

1301

0
9
32
27
27

1641
2073
2904

6
6

1294
1685
2189

1869
2514

1893
2561

1926
2609

1956
2708

1991
2843

2007
2924

2032

1329
1693

1361
1758
2293

1392
1767
2367

1424
1776
2402

1465
1810
2464

1490
1856
251

1513
1911
2558

2276

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

1037
1149

GPHARD
GPRMA
GPRMD
GPRML

2063
581
2931
2933
2930

INLOOP
LASTAD

728
2973

MSCNTO

MSDECR

M$BYTE

MSCOUN

1063
1185

2066
2932

1088
1219

2098

MACY11
1113
1257

H 10

30A(1052)
17-DEC=79
14:01
PAGE 4-1
CROSS REFERENCE TABLE == MACRO NAMES

2101

1295
2393

1330
2457

1362
2503

1393
2551

SEQ 0124

1425
2596

1752
2599

1845
2698

1848

1858

2051

2054

2935
2934

2956
2954

29304

29314

29324

29334

29344

29354

2954@

29564

4674

4684

4694

L4724

4734

6194

6574

6654

19#
5284

728
5304

2954

3884

4014

4084

L1164

4254

4344

4524

4614

5044

10904

11154

11564

11574

11934

11944

12264

12278

12644

12654

13004

5164
9784

13014

5184
10134

174

4134

10394
17804

Lo2on

10654

5364

S4éHa

6364

6384

6704

6954

7054

7074

7154

7174

13354

2514m

2561

2609

19914

20074

20324

20794

2843M

2924m

20804

21224

21964

22204

29304
19#

29314
724

29324
2954

29334
3884

2934k
4014

29354
4084

2954
4164

29564
4254

L340

4524

4614

5044

5164

5184

18174

18644

18694

18934

19264

19564

19914

20074

20324

20794

20804

21224

21964

22204

22504

MSERRI

8214

989%

10054

10374

10634

10884

11134

11484

11844

12184

12564

12944

13294

13614

1392#

MSESCA

1149%

11854

12194

12574

12954

13304

1362¢

17524

18454

18484

18584

20514

2054#

MSESCS

1149#

}185#

12194

12574

12954

13304

MSEXCP

29314

29324

29334

29354

29564

4254
5324
7114
1157#
13364

4278
S34n
7154
11624
13414

4340
5424
7254
11934
13674

4364
5494
9744
11964

4414
5514
978%
11998
13734

744

4434
6364
10194
12264
13984

4524
6414
10394
12274
13994

4544
6704
10444
12324
14044

194

724

2954

3884

4014

4084

4164

4254

MSGETS

214

5364

204

24N

6364

19564

6934

24678

26064

19264

L4664

24198

174

18934

4634

2418F

15#

18694

L4574

2296K

M$GEN

18644

4504

22504
MSDEFA
MSENDE

18174

4314

27088

2B42M

29044

2937k

2947K

2957

13934

14254

13624

13934

14254

17524

18454

18484

18584

20514

20544

2984

3934

3954

401
6724
10654
1264#
14304

4014

4034

4084

4104

4164

4184

10704
12654
14314

10904
12704
14364

4344

4524

5064
6744

5084
6934

5164
6994

10954
13004
14678

5204
7014

11154
13014
14728

5224
7054
11204
13064
14934

528#
7
11564
13354
14984

4614

5044

5164

5184

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

1185#

MSGNGB

174

20664
5064

12194
20984

110

PAGE &4=2
MACY11 30A(1052)
17-DEC=79
CROSS REFERENCE TABLE == MACRO NAMES

12574
21014

12954

23934
24

13304
24574

SEQ 0125

14254

20544

25964
3954

744

4434
7014

7114

21»
4634
S604
6524
7394

MSGNIN

4574

10644
11564
12644
13674
14674
16324
17604

MSGNL
S
MSGNTA

MSGNTE

MSHAPT

ooo\lo«&bwm-a-a W

84
054
934

)

&3 R
$444 €3
3

e
e
3
b el
d

O 00 NONN
O NN —

674
&H

b
s
b
b
e
o
s
cnd
b v

4444

omwgmauw—;\\)U‘OV‘—'NJ\

2
D
)
D
—

mefidkgm
E4-5
S 4 °4°

|
|
|
N
g
N
Y

Nele aNTe NV W NPV

[

)
) -

¢ SYER
3¢ &Kl

e
e

)

10634

M$INCR

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

19794

19804

19854

20584
21964
22894
2 3684
2444
25334

MACY11

J 10

30A(1052)
17-DEC=79
PAGE 4-3
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0126

19914
20664

2037#

M$LDRO
MSMCHI
MSMCLO
M$POP

5044

21224
29374
MSPRIN

6194

M$PUSH

454

MSPUT

MSPUT1

MSRAD|
MSRNRO
MS$SETS

aub vih wil sl
i
il wild el

xR g

D
D
e
e
e

NV OOON NS NN —
— = O SN
—
VINWON
000

wid

M$SVC

CZRLGBO RL11/RLV11

CZRLGB.MAC

07-DEC-79 07:39

19704

19764

4014

4084

4134

408#

4134

MACY11

K 10

30A(1052)
17<-DEC=79
14:01
PAGE 4=4
CROSS REFERENCE TABLE == MACRO NAMES

1979

20044
2080#
2276

20634

M$WORD

174

S34m

8214

» RN

&S -t
_—

—

38LN TR

654

D e} emh e

and mh

B md

4014

§~OOYRS
gig8raeReY

—

MSTSTL

— b —d —— ——d —d —d —d —d ——d
VOO
WM
—

) =

b b e e e

b e

OOOO%MWW—‘O
TEIRERELR
SSNERS

MSTLAB

CTLR TST 1

SEQ 0127

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

431

450

457

463

466

467

468

560

woong—-wono
W—=OW

1908
1105
107%
134
1570

1915

1920

2024

1096
1347
1608

1101
1375
1614
1962

1169
1438

1025
1272

1047
1276

1797

1824

1828

1238
1500

2087
2478
5#

XFERF

2955

. ABS.

024612

ERRORS DETECTED:

1504

2091
2521

1029

1523

2130
2525

000

,CZRLGB.LST/CRF=SVC33/ML ,CZRLGB.MAC

RUN-TIME: 97 94 12 SECONDS
RUN-TIME RATIO: 518/204=2.5
CORE USED:
15K
(29 PAGES)

1933
2206
2617

1939
2228
2625

2232
2714

473

—

1020

643

20734

2904#

b
b
b

1804

19884

28084

558

1450

19234

N
—
WO~

422

LS LNV

SV(C

19794
27724

b ed —d ed

STARS

632
554
676
630

27054

VIO WVWO OO

READBU
READEF
SETPRI
SETVEC

19534

2954#

26064
2973

PON =

413
736

POINTE

19114

20274
28274

25584
29564

PRINTB
PRINTF

18564

SEQ 0128

2511a
29554

24024
29354

d ed wd

2955#

17764

L 10

30A(1052)
17-DEC=79
PAGE 4=5
14:01
CROSS REFERENCE TABLE == MACRO NAMES

V= 00WVNwWwO
O oow
ONWNNOWVWNWO
COONOMO
NI WVINO O

MSXFER

17678

23674
2934k

NOND =

1758#
22934
29334

MACY11

21194
29304

21895
29314

22764
29324

665