Digital PDFs

AH-E045B-MC

January 1979

120 pages

Original

63MB

view download

OCR Version

94MB

view download

Document:	CZRLCB0 RL11,RLV11 DRIVE TEST PART 1 JAN 1979 bw
Order Number:	AH-E045B-MC
Revision:	000
Pages:	120
Original Filename:	CZRLCB0__RL11,RLV11__DRIVE_TEST_PART_1__AH-E045B-MC__JAN_1979_gray.pdf

OCR Text

RL11,RLV11

czricso

——
FICHE1OF
1

MADE
IN USA

IDENTIFICATION

THE

INFORMATION

THE

SOF TWARE

SEQ 0001

PRODUCT CODE:

AC-E044B-MC

PRODUCT NAME:

CZRLCBO RLO1

DATE CREATED:

11-0CT-78

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

D. DEKNIS

IN THIS DOCUMENT

IS SUBJECT

DRIVE

TEST PART

TO CHANGE

WITHOUT

FURNISHED

NOTICE
AND SHOULD wOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMCNT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
ASSUMES
MSMSIBILITY
FOR
ANY
ERRORS
THAT
MAY APPEAR IN THIS

PURCHASER

DESCRIBED

IN THIS DOCUMENT

THE

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 ASMAY OTHERWISE BE
PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES
NO
RESPONSIBILITY
FOR
THE
USE
OR
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS
NOT SUPPLIED BY DIGITAL.

(C)

1977,

1978, DIGITAL

EQUIPMENT CORPORAT
ION

C
Page 2

VW
OV UWWWN=
22O
O

ERROR INFORMAT
JON

PERFORMANCE AND PROGRESS REPORTS

f
-3
o

.
.

GENERAL INFORMAT
ION
PROGRAM ABSTRA(CT
SYSTEM REQUIREMENTS

N =

-=0O

b —d a2
NOMNOMNOMNOMNOMNONINOMNIMNUND

OPERATING INSTRUCTIONS

RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

CONTENTS

TABLE OF

HOW TO RUN THIS DIAGNOSTIC
THE SIX STEPS OF EXECUTION
SAMPLE RUN-THROUGH
HOW TO CREATE A CHAINABLE FILE

DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX

EXTENDED P-TABLE DIALOGUE

HARDWARE PARAME TERS
SOF TWARE PARAMETERS

DEVICE

INFORMATION TABLES

TEST SUMMARIES

SEQ 0002

D
Page 3
1.0

GENERAL

1.1

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF PROGRAM

INFORMATION

THIS DIAGNOSTIC OCCUPIES 14.5K WORDS OF MEMORY AND IS COMPATIBLE
WITH
BOTH
XXDP
AND
ACT.
IT CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE

CHAINED UNDER XXDP, ACT AND APT IN ACT MODE (SEE ''CREATE
CORE
IMAGE
COMMAND BELOW
FOR
DETAILS
OF
CHAINING PROCEDURE).
IT IS A SINGLE

PROGRAM FROM THE STANDPOINT

THE

DIAGNOSTIC

USER,

BUT

HAVE

INCORPORATED
INTO
IT
A
CONTROL MODULE WHICH WILL LATER BE RELEASED
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR.

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES FIRST
TO
THE
SUPERVISOR
PORTION, WHICH WILL ASK CERTAIN ‘HARD CORE'' QUESTIONS
ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE, INDICATED
BY
A
PROMPT
CHARACTER
(DS B>).
AT COMMAND MODE THE OPERATOR MAY ENTER
ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW.

THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST
CODING,
BUT
THE
SUPERVISOR
LISTING
HAS
BEEN
SUPPRESSED
FOR
GENERAL
ODISTRIBUTION.
A LIMITED DISTRIBUTION HAS BEEN MADE TO
FIELD
SERVICE
OF
THE
SUPERVISOR ASSEMBLY LISTING, AND IT MAY BE CONSULTED IN EVENT
OF A SOF TWARE PROBLEM.

1.1.2 DIAGNOSTIC INFORMATION
THIS
PROGRAM
TESTS
AND
EXERCISES
RLOT
DISK
DRIVES
RL11/RLV11
CONTROLLERS
(4
DRIVES PER CONTROLLER).
THE ENTIRE PROGRAM IS RUN ON
THE FIRST DRIVE BEFORE STARTING ON THE SECOND.
THE PROGRAM STARTS
BY
TESTING THE SIMPLEST FUNCTIONS FIRST USING THE LOGIC TESTED IN EARLIER
TESTS TO TEST MORE COMPLEX FUNCTIONS.
THIS PROGRAM TESTS THE RLO1 INTERFACE
AND
BASIC
DRIVE
LOGIC.
GET
STATUS
WITH
RESET,
GET
STATUS,
SEEK, AND READ HEADER ARE THE ONLY
COMMANDS EXECUTED IN THE PROGRAM.
ONLY SEEKS WITH
0O
DIFFERENCE
ARE
USED SO NO HEAD MOVEMENT IS REQUIRED.
A SIGNIFICANT PORTION OF THE
PROGRAM
REQUIRES
MANUAL
THESE TESTS TEST THE COVER OPEN AND WRITE LOCK STATUS.

INTERVENTION.
THE DRIVE MUST

BE LOADED AND UNLOADED TO TEST ALL THE CONDITIONS OF HEADS OUT,
BRUSH
HOME,
AND
DRIVE STATES.
THE PROGRAM CAN BE RUN IN AUTOMATI( MODE IN
WHICH CASE ALL TESTS REQUIRING MANUAL INTERVENTION ARE BYPASSED.

1.2

SYSTEM REQUIREMENTS

1.2.1

HARDWARE REQUIREMENTS

PDP=11/LS1-11 PROCESSOR WITH 16k OR MORE OF MEMORY
CONSOLE DEVICE (LA30,LA36,VTS0,ETC.)

RL11/RLV1T

CONTROLLER(S)

SEQ 0003

Page 4

1 - 8 RLOT DRIVES
1 = 8 RLOIK CARTRIDGES WITH BAD SECTOR FILE
KW11P, KW11L (OPTIONAL)
LINEPRINTER(GPTIONAL)
1.2.2 SOF TWARE REQUIREMENTS

CZRLCBO RLOT DRIVE

TEST PART 1

(FORMERLY MD=11=DZRL(=-A)

1.3

RELATED DOCUMENTS AND STANDARDS

RLO1

USERS MANUAL

XXDP USERS MANUAL

(EK=-RLO?=UG=-PRE)
o

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

THE
RLO1
PROGRAMS:

SUBSYSTEM

CVRLAAQ

CZRLABO
CZRLRRD

~
1.5

SHOULD

HAVE

SUCCESSFULLY

THE HARDWARE

OTHER

THE

oFOLLOWING

RLV11 RLO1 DISKLESS TEST (RLV11)
RL11/RLV11
RL11/RLV11

CONTROLLER TEST PART 1
CONTROLLER TEST PART 2

ASSUMPT IONS

PROPERLY.

RUN

.
THAN

THE

RLO1

SUBSYSTEM

FALSE ERRORS MAY BE hEPORTED

FUNCTION PROPERLY,

2.0

OPERATING INSTRUCTIONS

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE SIX STEPS OF EXECUTION

ASSUMED

THE -PROCESSOR,

ETC.,

WORK

DO NOT

THIS DIAGNOSTIC
SHOULD
BE
LOADED
AND
STARTED
USING
NORMAL
XXDP
FROCEDURES. ~ THE START COMMANC SHOULD NOT SPECIFY AN ADDRESS, BECAUSE
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT.

WHEN THIS DIAGNOSTIC

IS STARTED,

THE FOLLOWING STEPS WILL OCCUR:
b

LA ALSRS
S

STEP

AR2S4S

A SHORT SERIES OF "HARDCORE QUESTIONS'' WILL BE ASKED:

QUESTION

MEANING

SEQ 0004

Page 5

F=CLK (L) N 2

1S THERE AN L=CLOCK?

SOHZ (L) N 2
LSI (L) N 2
LPT (L) N 2

IS THE POWER 50 CYCLES (AS IN EUROPE)?
IS MACHINE AN LSI?
IS THERE A LINE PRINTER?

P=CLK

(L) N ?

MEM (K)

(D)

16 ?

p=CLOCK?

HOW MANY K OF MEMORY ARE

THERE?

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE
SELECTED
BY
HITTING
CARRIAGE RETURN.
IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE
ASKED:
FOR EXAMPLE, IF YOU SAY "'YES'' TO
THE
L-CiOCK
QUESTION,
THE

P-CLOCK QUESTION WILL

NOT BE

ASKED.

IF NEITHER P OR L CLOCK ARE ANSWERED YES
TYPE TWO CHARACTERS &4 SECONDS APART.

THE OPERATOR WILL BE ASKED TO

Rk
AR RNk

* STEP 2 »
AR
AR AR h

WHEN YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS. THE DIAGNOSTIC WILL
ISSUE
THE
PROMPT
‘DS=B>''.
FROM THIS POINT UNTIL THE TIME WHEN YOU
RESTART XXDP, YOU WILL BE TALKING TO THE
DIAGNOSTIC,
NOT
XXDP.
WE

WILL
REFER
TO
THE
PRESENCE
OF
THIS PROMPT AS BEING IN DIAGNOSTIC
COMMAND MODE, AS OPPOGED TO XXDP COMMAND MODE.
AT

THE

THIS POINT YOU WILL ENTER A ''START'' COMMAND.

THE

THIS

IS NOT

THE

SAME

XXDP ''START'' COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE

XXDP DOT PROMPT.

THIS

''START"'

COMMAND

(AN

TAKE

THIS OR ANY COMMAND AT

THE

SWITCHES
AND
FLAGS
(ALL
OPTIONAL) AND THE DETAILS OF
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX''.
HOWEVER,

USE THE PROGRAM, ALL

NUMBER

YOU NEED TO SAY IS SOMETHING LIKE

THESE ARE SEI
IN
ORDER
TO
THIS:

STA/PASS
: 1/F LAGS : HOE
THINGS

TO NOTE HERE:

ONLY

THE FIRST

THREE

CHARACTERS OF

‘DS=8>"" LEVEL NEED TO BE TYPED.

THE "PASS'' SWITCH SPECIFIES HOW MANY PASSES

PASS

CONSISTS

RUNNING

UNITS BEING TESTED (THIS WILL

PASS

‘

IS SPECIFIED

THE

IN THE ABOVE

YOU

EXPLAINED

EXAMPLE.

SHORTLY).

THE 'FLAGS'' SWITCH MAY SPECIFY ANY OF A NUMBER OF
THE

MAIN USEFUL

LOE
HOE

IER

THE HOE FLAG
SHORTLY).

ONES

DESIRE.

FULL CIAGNOSTIC AGAINST ALL

--ONE

FLAGS,

BUT

ARE:

LOOP ONE ERROR
HALT ON ERROR

INHIBIT ERROR PRINTOUT
IS SPECIFIED

THE

ABOVE

EXAMPLE

(WE'LL

SEE

wHY

SEQ 0005

Page 6
TRERAA
AR AR Y

* STEP 3 »

L222222222

WHEN YOU HAVE TYPED IN A "'START'' COMMAND,
THE
DIAGNOSTIC
WILL
COME
BACK WITH
THE
QUESTION
‘W UNITS?'' TO WHICH YOU SHOULD RESPOND BY
TYPING

IN THE

NUMBER OF

DEVICES YOU WISH TO TEST.

A WORD OF WARNING HERE:

THE NUMBER OF

THE
SOURCE
(ODE.
ONE
SHOULD BE THE DEVICE TYPE

OF
OF

UNITS

DEPENDS

THE

TARGET

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

THIS ‘HEADER'' STATEMENT

SEG 0006

Page 7
TR

AR AN

* STEP 4 *
AR ARA RN

WHEN YOU HAVE
TYPED
DIAGNOSTIC
WILL
ASK

IN
THE
NUMBER
OF
UNITS
TO BE_
TESTED,
THE
YOU
THE
"HARDWARE QUESTIONS''.
THE ANSWERS TO

THESE QUESTIONS ARE USED TO BUILD TABLES

?E;%ES".

ONE

HARDWARE

P-TABLE

THERE ARE SEVERAL HARDHARE QUESTIONS AND THE

POSED N TIMES, WHERE N

CORE,

CALLED

‘'WARDWARE

WILL BE BUILT FOR EACH UNIT TO BE

THE NUMBER OF UNITS.

ENTIRE

SERIES WILL BE
:

THIS
REPRESENTS
A
NEW_
PHILOSOPHY
IN
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.

L2222 22222

* STEP 5 «
Rk
h k&

AFTER YOU HAVE ANSWERED ALL
THE

UNITS,

THE HARDWARE QUESTIONS

YOU WILL BE ASKED ''CHANGE

SOF TWARE QUESTIONS THAT DETERMINE

- "
"N''.

2.6),

SW?'' IF

(SEC 2.5)

YOU WANT

THE BEHAVIOR OF

THIS

FONR

ALL

TO BE ASKED

PROGRAM,

THE

TYPE

IF_YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE
IF YOU TYPE ''Y'' YOU WILL BE ASKED THE
SOFTWARE
QUESTIONS
(SEC
AND
THE
ANSWERS WILL BE PUT INTC THE SOF TWARE P-TABLE IN THE

PROGRAM.

THE

SERIES OF

QUESTIONS WILL BE ASKED

THE NUMBER OF UNITS TO BE

LA S

AL2R3
2]

TESTED.

JUST ONCE.

REGARDLESS

* STEP 6 «
R AR T AR AN

AFTER YOU HAVE ANSWERED THE

BEGIN
THAT

EXECUTE

CAN HAPPEN

THE

NEXT,

SOF TWARE QUESTIONS,

HARDWARE TEST (ODE.

DEPENDING

WHETHER

THE

DIAGNOSTIC

THERE ARE SEVERAL
A

HARDWARE

ERROR

ENCOUNTERED
AND
ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE
COMMAND.
C(ONSIDER THE POSSIBILITIES:

IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC

EXECUTE
THE
DESIRED
MODE (PROMPT DS=B>).

NUMBER OF

WILL

THINGS

WILL

START

SIMPLY

PASSES AND RETURN TO COMMAND

SEQ 0007

IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS HAPPENS,
DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS.
HOE SET:

THE ERROR WILL BE REPORTED ON THE CONSOLE AND

LOE SET:

THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK
OF CODE THAT DETECTED THE ERROR.

THE DIAGNOSTIC WILL RETURN TO COMMAND MODE.

NEITHER HOE NOR LOE SET:

THE ERROR WILL BE REPORTED ON

THE CONSOLE AND NORMAL EXECUTION WILL RESUME
AS IF NO ERROR HAD OCCURED.

2.1.2 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

gé?fsig&DREQUESTED

PASS

DIAGNOSTIC.

WILL

NO ERRORS ARE

EXECUTED

AND

THE

ENCOUNTERED,

PROMPT

THE

WILL BE

IF AN FRROR IS ENCOUNTERED, THE ERROR WILL BE REPORTED AND THE
PROMPT
WILL
BE
REISSUED (BECAUSE THE HOE FLAG IS SET).
A. THIS POINT THERE
ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGAINS:
1.

ISSUE ANOTHER ''START'' COMMAND

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

(THUS GOING THRU ALL

STEPS

ISSUE A "RESTART'' COMMAND (SAME AS START COMMAND EXCEPT

ISSUE A "'CONTINUE'' COMMAND
(EXECUTION WILL
RESUME
AT
THE
BEGINNING OF
THE PARTICULAR HARDWARE TEST (MOST DIAGNCSTICS
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN
THE
ERROR

THE HARDWARE QUESTIONS ARE NOT ASKED)

HALT OCCURED.

THE MCST

THAT

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.

ISSUE

THE

PROCEED,

PROBABLY YOU WOULD WANT TO SAY

PRO/FLAC.: IER:LOE :HOE=0

BUT

WITH

SEQ 0008

THIS WILL DO THE

FOLLOWING:

TURN ON THE

IER

(INMIBIT ERROR PRINTOUT)

TURN ON THE LOE FLAG

TURN OFF

RESUME EXECUTION AT

FLAG

THE HOE FLAG
INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LCOP ON THE BLOCK OF CODE
THAT
REPORTED
THE
ERROR,
BUT NO ERROR PRINTOUT WILL OCCUR.
STUDY THE ERROR OR SCOPE IT OR WHATEVER.

WHEN YOU'VE SEEN ENOUGH, 'YOU MAY HIT CONTROL/C.
OUT

THREE

THE

START

RESTART

CONTINUE

CHOICES:

Page 9

LCOP

AND

THIS

DOETECTED
AND
THUS YOU CAN

WILL

PUT YOU BACK INTO COMMAND MODE.

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND
RUNNING THE DIAGNOSTIC.

YOU wOULD TYPE

TAKE

YOU

YOU NOW HAVE

WANT

FINISH

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

THIS WILL RESTORE THE

FLAGS

THEIR

ORIGINAL

?VAL‘JES

AND RE SUME

EXECUTION AT
THE BEGINNING OF THE HARDWARE TEST YOU WERE IN.
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT
ON
THRU
NEXT ERROR OR TO END OF PASS.
g#O’I\EFEM) OF

PASS YOU WANT

START

RESTART

| YOU WOULD CHOOSE ONE,
HARDWARE

TO RUN THE DIAGNOSTIC AGAIN,

DEPENDINC ON WHETHER YOU WANTED

QUESTIONS AGAIN.

YOU

IF
TO

THE
'THE

HAVE

TwO

ANSWER

THE

SEQ 0009

Page 10
THE FULL PRINT=OUT FROM THE

ABOVE

DIALOGUE MIGHT LOOK LIKE

ENTERED:

KXX

jrivivieivivlivivivielvivielelvlvilvielvlvlelels)

DZRKXX
L=CLK (L) N 2 Y
SOHZ (L) N ?
LSI (L) N ?
LPT (L) N ?
MEM (k) (D) 16 ?
DS-B>STA
: 1/FLAGS
/PASS
: HOE

N
8
8

CSR (0) ?
VECTOR (0) ?
BR LEVEL (0) ?

DRIVE (0) ? 1
CHANGE SW (L)

? N

gézkafTHARD ERR 00004

TST 003 SuB 002 P(:004130

“

DS-B>PRO/FLAGS:
IER: LOE :HOE=0
eI

THIS POINT

THE

ERROR UNTIL

THE DIAGNOSTIC

LA AR SRR

00O

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
YOU HAVE

2222222223332

O000

UNIT 2

OO0000

? 2

(D>

UNIT 1
CSR (0) ?
VECTOR (0) ?
BR LEVEL (0) ?
DRIVE (0) ? O

LOCATED

YOU CAN SCOPE

IT,

THEN “C

OUT

s el
2222 2228

-~
DS-B>CON/FLAGS: HOE IER:LOE=0
CHANGE SW (L) ?

DZRKXX EOP 1
DS-B>RESTART/PASS:1
CHANGE SW (L)
-2 N

OOo

# UNITS

R DZR

ivlivivivio]

WHOM

THIS:

SEQ 0010

Page 11

2.2

SEQ 0011

HOW TO CREATE A CHAINABLE FILE

THE DIAGNOSTIC AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE

RUN

CHAIN MODE.
THA IS WHY [T BEARS THE EXTE.JSION 'BIN'' INSTEAD OF 'BIC''.
Q‘IEJ?\EIEI(S;O? WAY, HOWEVER, TO
CREATE
A
(HAINABLE
PROGRAM FROM WHAT

IT CONSISTS OF RUNMING THE PROGRAM WITH
THE
SPECIAL
COMMAND
'‘CCT*’
ISSUED WHERE YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROM-|

DS-B>.
THIS
J(OMMAND
(AUSES
THE
DIAGNOSTIC
TO
GO
THRU ALL
THE
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE IT WOULD OR[INARILY
BEGIN EXECUTION OF 7HE HARDWARE TEST CODE.
AT THIS POINT YOU CAN DUMP
gngug?ggRAgchS
IT
SITS
IN
CORE
TN THE LOAD MEDIUA, WITH THE NEW
x

HERE

IS A SAMPLE DIALOGUE

.R UPD2

;

ll.

TO ACCOMPLISH THIS:

RESTART:

XXXXXX

XFER:200.

CORE :0,60602

’

«CLR
*LOAD DIAG.BIN
*START 200

L=CLK (L) N ?

DS-B>CCI

# UNITS

(D)

? 4

CHANGE SW (L)

PTAB END:
AR T AR

? N

#A0632

A AAAA AR

R AR R A AR AR AR AR AR AR AN

*AT THIS POINT THE MACHINE HALTS AND=*
*YOU MUST RESTART AT ADDRESS
XXXXXX*
AR ARA

IR AR AR

AAA R AR AR A AR

ddhkh b

*HICORE 60632
CORE:
0,60632

«DUMP DKO: DIAG.BIC

THE RESULT OF DOING THIS IS THAT YOU CAN NOW BUILD AN XXDP CHAIN
CONTAINING THE

XXDP COMMAND

FILE

.R DIAG.BIC
AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUA. INTERVENTION, USING THE
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND.

M1
Page 12

2.5

DETAILS OF COMMANDS AND SYNTAX

2.3.1

TABLE OF COMMAND VALIDITY

THERE ARE

SUBSETS OF

FOUR WAYS OF

ENTERING DIAGNOSTIC COMMAND MODE, AND DIFFERENT

THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:

HOW ENTERED
1.

LEGAL COMMANDS

OPERATOR ENTERED

'RUN DIAG'

START
PRINT

DISPLAY
FLAGS

ZFLAGS

DI AGNOSTIC HAS FINISHED ALL

START

IT S REQUESTED PASSED

RESTART

DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE

START

DIAGNOSTIC WITH CTRL/C

RESTART
CONT INUE

DISPLAY
FLAGS

ZFLAGS

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

CONT INUE

PROCEED

PRINT
DISPLAY
FLAGS

ZFLAGS

2.3.2 COMMAND SYNTAX
LAAAS AR R

ARl

2223323322323 22%3

STA(RT) /TESTS:TEST=LIST/PASS
:PASS=CNT/FLAGS: “LAG-LIST/EOP:EOP-INCR
LA A

ARl a3
22332233232222

THE DIAGNOSTI.

IN CORE

IS EXECUTED

ACCORDANCE

WITH

THE

SWITCHES

SPECIFIED.
THE MESSAGE
"# UNITS?'' IS PRINTED.
THE START COMMAND MAY
BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE
FOLLOWING:
A)
OPERATOR TYPED 'RUN DIAGNOSTIC''
B) DIAGNOSTIC FINISHED
EXECUTING C) FRROR WAS ENCOUNTERED
WITH HOE
FLAG
SET
D)
OPERATOR
ENTERED CONTROL/C.

SEQ 0012

N 1
Page 13
AFTER THE OPERATOR RESPONDS TO '# UNITS?'', THE
HARDWARE
DIALOGUE IS
INITIATED.
WHEN
IT
IS
COMPLETED,
THE
QUESTIONS
‘''CHANGE SW?''
IS
ISSUED, AND THE ANSWERS, IF GIVEN, BECOME THE NEW DEFAULTS.
THEREFORE
!I)EFMSETSNECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD
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

THE

LARGEST
TEST
NUMBER IN THE DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY
ORDER.
TESTS WILL BE EXECUTED IN NUMBERICAL ORDER REGARDLESS
OF
THE
ORDER OF SPECIFICATION.
THE DEFAULT IS TO EXECUTE ALL TESTS.
"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
SUMBITTED.
THE
DEFAULT
IS
NON-ENDING EXECUTION..B
'FLAG-LIST'' IS A SEQUENCE OF ELEMENTS OF THE
FORM <FLAG>, <FLAG=1>, OR <FLAG=0>,
HAS ONE OF THE FOLLOWING VALUES:

SEPARATED BY COLON®,

WHERE

HOE

HALT ON ERROR, CAUSING COMMAND MODE TO BE

ENTERED

LOE

LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO

LOOP

IER

IBE
IXE

PRI
PNT
BOE
UAM

ISR
IDU

ERROR IS ENCOUNTERED

)

WITHIN
THE
SMALLEST
DEFINED
BLOCK: OF
SUBTEST, OR TEST) CONTAINING THE ERROR
INHIBIT ERROR REPORTING

<FLAG>

WHEN

CONTINUOUSLY

CODING

(SEGMENT,

INHIBIT BASIC ERROR REPORTS

INHIBIT EXTENDED ERROR REPORTS

DIRECT ALL MESSAGES TO A LINE PRINTER
PRINT NUMBER OF TES BEING EXECUTED
BELL ON ERROR
RUN IN UNATTENDED MODE, BYPASSING MANUAL
INHIBIT STATISTICAL REPORTS
INHIBIT DROPPING OF UNITS BY DIAGNOSTIC

INTERVENTION TESTS

SEQ 0013

Page 14
THE FLAGS NAMED OR EQUATED TO1

ARE

SET,

CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
GIVEN ALL FLAGS ARE CLEARED.

THOSE

EQUATED

SEQ 0014

ARE

IF THE FLAGS SWITCH IS NOT

"EOP=INCR'' IS A DECIMAL NUMBER INDICATING HOW OFTEN ('IN TERMS OF
PASSES)
DEFAULT

IT
IS
DESIRED THAT THE END OF PASS MESSAGE BE -PRINTED.
IS AT THE END OF EVERY PASS.

A A

A A A AR AR

AR AR AR

THE

P A AR A A AR AR AR AR AR AR AR AR AR AR AR Rk

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

THE DIAGNOSTIC

IN CORE

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

IS EXECUTED

ACCORDANCE

%EXZI{EDOSESMVER' NEW P-TABLES ARE NOT BUILT.

AR AAAR

R AR

WITH

SWITCHES

THE

INSTEAD,

THE ONES IN

THE QUESTION “CHANGE SW?'' IS ASKED, AND THE ANSERS IF GIVEN BECOME THE

NEW DEFAULTS.
ENTERED VIA A)
THE

THE
COMMAND
MAY BE ISSUED WHEN COMAND MODE HAS BEEN
DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C.

SWITCH ARGUMENTS ARE AS

IN THE

START

COMMAND EXCEPT:

"UNIT-LIST'' IS A SEQUENCE OF
FROM
1
THRU N (N = NUMBER OF

JOGICAL
UNIT NUMBERS
RANGING
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

NOT

HAVE

IN WHICH THEY WERE BUILT.

BEEN

DROPPED

THE UNITS SPECIFIED MUST

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
THE NEXT RESTART.

IS AUTOMATICALLY RESET

TO "ALL'")

ALL UNSPECIFIED FLAG SETTiINGS ARE UNCHANGED.

LAAAL AL S

SRS

a sttt
s ey

CONCTINUE) /PASS : <PASS=CNT/FLAGS : <FLAG-LIST>
LA

iRttt

sttt

isiissssssyy

iC()"Wu) 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.
SOF TWARE
DIALOGUE
MAY OPTIONALLY BE REEXECUTED.
HARDWARE PARAMETERS
MAY NOT BE CHANGED.
THE

SWITCH ARGUMENTS ARE AS

THE

START

COMMAND EXCEFT:

DEFALT FOR PASS=CNT IS
THE
PREVIOUS START OR RESTART

UNSATISFIED

UNSPECIFIED FLAG SETTINGS ARE UNCHANGE>

PASS=(NT

FROM

THF

AR A AR AR RR

Page 15

SEQ 0015

ARERRRARAA
A AR AR R AR AR Rk
k&

PRO(CEED) /FLAGS : <FLAG=L [ST>
KRR

R AR AT AR AR AR AR

AR kR ARk

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR.

THE

EFFECT

OF
THE
COMMAND
IS
TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE
ERROR CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS MAY BE ALTERED.
THE SWITCH ARGUMENTS ARE

THE

SAME AS

THE START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED
fem

Rl eI
2322233 232322323228

CCI/TEST:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG=-LIST/EOP:EOP-INCR
LA

s T332
33332

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND
HALTS
AT
THE
HARDWARE
TEST
CODE.
NOW THE OPERATOR CAN DUMP THE CORE IMAGE TO THE
MEDIUM WITH A BIC EXTENSION.
THE BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON

WHETHER

IGNORED)

RUN MANUALLY
OR
IN
CHAIN MODE.
EITHER WITH A "START'' (IN WHICH CASE

IF RUN MANUALLY IT CAN BE INVOKED
IT WILL BEHAVE LIKE THE BIN FILE:

HHE SE'BEE;?RT" (IN WHICH CASE

PRE-GENERATED

THE

PRE-GENERATED

ANSWERS

TO OPERATOR QUESTIONS WILL BE

THE

OPERATOR

ANSWERS

IF RUN_IN CHAIN MONE, AUTOMATIC EXECUTION WwILL
COMMENCE
IMMEDIATELY
EERG;SSIE(E) XXDP COMMAND ‘‘.R DIAG''.
THE COMMAND PROMPT ‘DS-B>'' WILL NOT
ANY SWITCHES SPECIFIED ON THE CCI COMMAND WILL CARRY OVER WHEN THE BIC
FILE
IS
RUN
IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY.
TO DO A CCI ON A FULL SIZED DIAGNOSTIC

(14.5K WORDS), A

MACHINE

SIZE

LARGER
THAN
16K IS REQUIRED.
THE EXACT SIZE NEEDED DEPENDS ON WHICH
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME.
AR

AR A A AR AR A ARk

DRO(P) /UNITS:UNIT=LIST
LA

A2 a2l

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL

%OClEAE‘I;IL

START

COMMAND IS GIVEN.

THEY ARE ADDED BACK

A DROP CANNOT BE FOLLOWED BY A

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,

Page 16
AR

ARRAA AR A AR AR

ADD/UNITS:UNIT=LIST
ARARA
AR A AN
AR

THE UNITS SPECIFIED ARE ADDED BACK (THEY
MUST
HAVE
DROPPED
BY
THE DROP COMMAND) TO THE TEST SEQUENCE.
FOLLOWED BY A PROCEED.
2

LA A

BEEN
PREVIOUSLY
AN ADD CANNOT BE

PRI(NT)
LA RS

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE PRINTED.

ISR (INHIBIT STATISTICAL REPORTING)

FLAG IS CLEARED.

THE

ARAEAR R AR AR AR AR AR AR ARk

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

RS ARl Rddtistististssdl

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

FLA(GS)
LA A2

THE CURRENT SETTINGS OF
L

ALL FLAGS ARE PRINTED.

ZFL (AGS)
Ahkhhdrhw

ALL FLAGS ARE

2.4

CLEARED.

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF
THE
HARDWARE
DIALOGUF
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

AS SOON AS THE QUESTICN "% UNITS?'' IS ANSWERED

SAY)

SPACE

IN CORE

REVEALED

(WITH

IS ALLOCATED FOR N P-TABLES.

THE

ALL OF

NUMBER

THE

THE P-TABLES

ARE OF THE SAME FORMAT,
AND
THERE
IS
A
ONE-TO-ONE
CORRESPONDENCE
?(E);:‘EAEN
THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE

SEQ 0016

Page 17
ON_THE FIRST TRIP THRU THE QUESTIONS, ALL OF

THE SLOTS IN ALL

THE

P-TABLES
ARE
FILLED.
IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT
VALUES IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES
ARE
PLACED

IN
THE P-TABLES (ONE VALUE GOING INTO THE PROPER_SLOT OF EACH P-TABLE
BEGINNING WITH THE FIRST
P-TABLE)
UNTIL
THE
STRING OF
VALUES
IS
EXHAUSTED.
THE LAST VALUE THAT SLOT IN THE REMAINING P-TABLES.

ON_SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME
PROCESS
IS
CARRIED
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT
VALUE

IN ANY OF

ITS SLOTS NOW ASSUMES THE

PLAYED IN THE FIRST TRIP.

ROLE

THAT

THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.

TABLE

ONE

NUMBER

ONE

QUESTION

HAS

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 TRANLATES 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 64 UNITS, AND THAT THERE ARE THREE
HARDWARE PARAMETERS FOR
EACH
(THREE
SLOTS
IN
THE
P-TABLE,
THREE
HARDWARE
QUESTIONS
IN
THE DIALOGUE).
LET THE DESIRED VALUE FOR THE
FIRST PARAMETER BE THE NUMBER 75 FOR ALL 64 TABLES.
LET
THE
DESIRED
.
VALUE
FOR
THE
SECOND
PARAMETER
BE
EQUAL
TO
THE
UNIT
NUMBER

(1,2,3,...,64) EXCEPT FOR UNIT 50, WHICH SOULD RECEIVE THE
VALUE
49.
LT THE DESIRED VALUE FOR THE THIRD PARAMETER BE THE NUMBER 76 FOR THE
FIRST 20 UNITS AND THE NUMBER 77 FOR THE LAST 44 UNITS.
THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL
:

# UNITS

(D)

UNIT 1

UNIT 21

? 64

?
?
?

75
1=20
76

<QUESTION 2> ? 21=49,,51-64

<QUESTION 3> 2 77

SEQ 0017

A
Page 18
THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 IN
TABLES.
SLOT TWwO RECEIVES THE_VALUES 1,2,3,...,20 IN TABLES 1

AND A CONSTANT 20 IN

TABLES

CONSTANT 76 IN ALL 64 TABLES.

THE SECOND TIME

AFFECTED

THRU THE

(NOTE

SERIES,

THRU

64.

TABLES 21

THAT THIS PIECE OF

SLOT

THREE

ALL
64
THRU 20

RECEIVES

GOING

THRU THE END ARE

INFORMATION IS PRINTED OUT FOR

THE OPERATOR IN THE FORM "UNIT XxX'' AT THE BEGINNING OF EACH SERIES).

QUESTION 1 IS RESPONDED TO BY A <CR>, SO SLOT ONE STAYS A CONSTANT
75
IN
TABLES 21 THRU 64,
SINCE NO NEW EXLICIT VALUES ARE TYPED IN.
SLOT

TWO GETS THE VALUES 21,22,23,...,49 IN TABLES 21 THRU 49, AND

64.

GETS

SLOT 50, AND GETS THE VALUES 51,52,53,....64 IN TABLES 51

THRU

SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64.

THE DIALOGUE IS
TERMINATED
WHEN
THE
SOFTWARE
RECOGNIZES
THAT
64
EXPLICIT
VALUES
HAVE
BEEN
GIVEN
FOR
AT LEAST ON QUESTION (NAMELY
QUESTION 2).

2.5

HARDWARE PARAMETERS

THE FOLLOWING QUFSTIONS WILL BE ASKED ON A START

COMMAND.

THE

LOCATED
TO
THE
LEFT
OF THE QUESTION MARK IS THE DEFAULT VALUE
WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.
RL1T

(L)

CONTROLLER.

BUS ADDRESS (0)

YOU HAVE

AN RL11

VECTOR (0)

(O)

YOU

HAVE

THE

CONTROLLER.

INTERRUPT VECTOR OF

THE

CONTROLLER.

ANSWER WITH THE

INTERRUPT PRIORITY OF

THE

CONTROLLER.

TO THE

CONTROLLER.

(0) 0?

ANSWER WITH THE DRIVE(S)

2.6

NO(N)>

330?

ANSWER WITH THE

DRIVE

CONTROLLER,

174400?

ANSWER WITH THE BUS ADDRESS OF

BR LEVEL

THAT

¥?

ANSWER YES(Y)

RLV11

VALUE

CONNECTED

SOF TWARE PARAMETERS

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, OR
CONTINUE.
THEY ALLOW FLCEXABILITY IN THE WAY THE PROGRAM BEHAVES.
THE
SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY
1T
RUNS.

THE
PARAMETERS
ANSWERING (Y)ES

(AN
BE
MODIFIED ON A START, RESTART,
TO THE FOLLOWING QUESTION:

OR CONTINUE BY

SEQ 0018

Page 19
CHANGE S.w.

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE PARAMETER QUESTIONS, 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>.
ggg;ROL
Z
(*Z)
WILL
DEFAULT
ALL REMAINING QUESTIONS AND START THE

EXECUTE DRIVE SELECT TESTS

(N)?

IF "*YES'' TESTS 5 AND 6 ARE EXECUTED IN THE FIRST PASS OF THE

THESE
TESTS
REQUIRE
MANUAL INTERVENTION TO CHANGE
REQUIRE A FULL COMPLEMENT OF ADDRESS PLUGS (0 = 3).

EXECUTE HEAD ALIGNMENT SUPPORT

IF "YES'',

TEST 11

PROGRAM.

ADDRESS PLUGS AND

(N)?

IS EXECUTED IN THE FIRST PASS.

EXECUTE MANUAL

INTERVENTION TESTS

(N;?

IF "YES'', TESTS 1, 2, 3, AND 4 ARE EXECUTED TO TEST

OPERATIONS, HEAD LOADING,

HEAD UNLOADING, AND ALL

SPECIFY ERROR LIMIT

(DECIMAL)

BASIC

STATE

INTTERFACE

C(HANGES.

(20)?

THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF

ERRORS

ALLOWED.

THIS

LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS.
IF THE ERROR LIMIT
EXCEEDED, THE DRIVE IS DROPPED FROM FURTHUR TESTING.
)
DROP DRIVE
IF

THIS PARAMETER

IF NO RESPONSE

GET STATUS,

(N)?

IS SPECIFIED AS YES,

DRIVE
BEFORE TESTING STARTS
RESPOND TO A GET STATUS.
IF

THE DRIVE

THE

PROGRAM

WILL

C(HECK

EACH

TO DETERMINE IF IT IS READY OR IF IT WILL
IT IS NOT READY AND WILL NOT RESPOND TO A

IS DROPPED AND A MESSAGE

IS PRINTED.

3.0 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
MOST ERROR REPORTS HAVE

(1)
(2)

THE

FOLLOWING FORH@T.

PROG NAME
ERR NUM
TEST NUM
SURTEST NUM
ROUTINE TRACE SEQ (IN SEQ CALLED?
'
(ADDRESS)
(ADDRESS?

(ADDRE SS)

ERR P(

SEQ 0019

PNPINININANANIANINS
N

Page SO
TEST DESCRIPTION

OPERATION:
ADDRESS OF

UNIT UNDER

TEST

RLBA

RLMP

cyL

(COMPARE

ERRORS

OP INIT
ONE
DRIVE STATUS
WORD NUM IS (XXXXXX) SB (YYYYYY)
TOTAL COMPARE ERRS: (227) OF (128)

THE ONLY
EPTION TO THE ABOVE
(NOT
DETECTED BY READ ERROR).

5 THROUGH 10.

FORMAT IS

PURE

DATA

THEN THE FORMAT DOES NOT

INCLUDE LINE“

LINE 1 IS THE ERROR HEADER AND IS PROVIDED
BY
THE
SUPERVISOR.
THE
PROGRAM
IDENTIFIED BY
NAME
WITH "HE NUMBER CF TEST AND SUBTEST
PRESENTLY BEING EXECUTED.

THE SUBTEST NUMBER IS UNIQUE IN THIS PROGRAM IN THAT IT DOES NOT REFER
PHYSICAL
SUBTEST
WITHIN A GIVEN TEST.
RATHER IT REFLECTS THE
NUMBER
OF
SUBTEST
HAS
BEEN
EXECUTED
WITHIN
A
TEST.
CONSEQUENTLY,
TEST THAT TESTS AN INCREMENTAL TYPE OF OPERATION
(SUCH A INCREMENTAL SEEKS, READ ALL HEADERS FROM BOTH SURFACES,
ET(.)
(rJCHELRlSQlE.BTEST
WILL
BE
DESCRIPTIVE
OF
WHERE
IN
THE TEST THE ERROR

THE ERROR P.C.

IS THE PHYSICAL MEMORY LCCATION WHERE THE ERROR REPORT
SINCE WWYTEOEWCHQ%E N;ECSLBROUTINED. AND ERRORS ARE
REPORTED FROM SUBROUTINES,
IS NOT
SUFFICIENT
TO
}lS)EgFTi(I)CIDggE LOCATION OF THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE
INITIATED.

LINE 2 IS THE ROUTINE TRACE SEQUENCE.

THE ERROR CALL IS

INITIATED

FROM WITHIN THE TEST (AS OPPOSED TO WITHIN A ROUTINE), THIS PORTION OF
THE REPORT IS OMITTED.
IF THE CALL IS INITIATED FROM A ROUTINE (WHICH

ROUTINE,
PROVIDES

CALLED

BY
ANOTHER
ROUTINE,
WHICH MAY BE CALLED BY ANOTHER
SEVERAL
LEVELS
DEEP)
THE
ROUTINE
TRACE
SEQUENCE

TRAIL
TO THE ACTUAL LOCATION WITHIN THE TEST THAT CALLED
THE FIRST ROUTINE.
THE FIRST ENTRY LISTED IS THE LOCATION
WHERE
THE
FIRST ROUTINE WAS CALLED.

LINE 3 IS THE TEST DESCRIPTION AND IS ROUGHLY IDENTICAL TO THE NAME OF
THE

TEST BEING PERFORMED.

IDENTIFIES
THE
ACTUAL
HARDWARE
FUNCTION
THAT
IS _ BEING
PERFORMED.
ADDITIONAL
THIS
LINE IS DESCRIPTIVE OF
INFORMAT
ION
SPECIFIC
]
USE OF THE FUNCTION.
FOR EXAMPLE, THE
OPERATION
LINE
WILL
READ HEADERS
FOR 40 HEADERS'' WHEN ALL HEADERS AR BEING READ

FROM A TRACK.

LINE 5 IDENTIFIES THE ERROR THAT HAS BEEN DETECTED.
WAS
IDENTIFIES WHAT
BENG
(SUCH
TESTED

THE

CONTENT

DRIVE

READY,

CONTROLLER ERROR, DRIVE STATE, ETC.), WHAT IT IS AND
WHAT
[T
SHOULD
5 MAY BE REPEATED IF MORE THAN ONE TESTED ITE:* 1S FOUND IN

SEQ 0020

Page 21

ERKOR.

IN ADDITION LINE 5 WILL REPORT ANY HARDWARE DETECTED
ERRORS
SUCH AS
OPERATION
INCOMPLETE,
HEADER
CRC, ETC.
IN THIS CASE THE FIRST LINE
PRINTED AS RESULT WILL BE DETERMINED BY
THE
THREE
ERROR
BITS
pPI,
HNF/DLT,
AND
HCRC/DCRC.
THE
LINE
WILL
BE
DETERMINED
AS IN'THE
FOLLOWING TRUTH TABLE:

HNF/BLi
1

DCRC/HCRC
1

OPI
1

ME SSAGE
HDR NOT FND/HDR CRC/OP]1

ERROR

HDR CRC ERROR

HDR NOT FND ERROR

DATA LATE ERROR

DATA CRC _ERROR

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE UNIT UNDER
TEST.
ADDRESS IS BY UNIBUS ADDRESS OF THE CONTROLLER AND DRIVE NUMBER.

LINE 7 NAMES THE CONTROLLER REGISTERS (AND
THESE ARE APPLICABLE

LINE8

PROVIDES

CYLINDER

AND

THIS

HEAD

WHERE

IN THE REPORT)

TO BE REPORTED.

CONTENTES

CONTROLLER

REGISTERS

WHEN

THE

CONTROLLER

REGISTERS

WHEN

THE

OPERATION WAS INITIATED.

LINE 9 PROVIDES THE CONTENTS OF

ERROR
BEING
REPORTED WAS DETECTED.
FREQUENTLY THE REGISTER CONTENTS
OF OP INIT AND OF DONE WILL BE DIFFERENT.
OP INIT MAY INDICATE A SEEK

WAS BEING PERFORMED BUT OP DONE MAY INDICATE THE ERROR WAS DETECTED BY
A READ HEADER.
THE REASON IS THAT A SEEK WAS
EXECUTED
AND
DID
NOT
PROPERLY
POSITION
HEADS
AND WHEN THE READ HEADER WAS DONE THE HEADS

WERE ON THE WRONG CYLINDER.

LINE 10 IS THE DRIVE STATUS.
THIS LINE IS ONLY REPORTED IF
REGISTER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS.
LINE 11 AND LINE 12 ARE REPORTED

THE

COMPARE
OPERATION, EITHER DATA OR HEADERS.
DATA IS REPORTED FOR ALL READ ERRORS.

ERROR

WAS

THE

DETECTED

IN ADDITION,

RLMP
AS

GOOD AND BAD

3.1.1 SPECIFIC OPERATION MESSAGES
THE OPERATION MESSAGE

(LINE 4)

IS GENERATED

THE SUBSYSTEM FUNCTION BEING EXECUTED AT

THE STATE OF

THE

FLAGS

IN A DYNAMIC MANNER

THE

TIME OF

IN THE LOCATION TAGGED ‘'OPFLAGS''.

OPERATION MESSAGES ARE GIVEN BELOW.

SEEK = FROM (CYL NUM) DIFF

(CYL DIFF)

SGN (0 OR 1) HD

BASED

THE ERROR: AND
THE

(0 OR

POSSIBLE

WHERE

THE
VALUES
ARE GIVEN IN OCTAL.
THIS MESSAGE IS THE RESULT OF A SFEK
OPERATION THAT WAS VERIFIED BY A READ HEADER
AND
THE
HEAD
POSITION
AFTER
A
SEEK
IS
IN ERROR.
(THE ACTUAL HEAD POSITION IN THIS ERROR
SITUATION IS GIVEN IN THE RESULT LINE, LINE 5.)

SEQ 0021

J 2. |

Page 22

READ DATA = IS A READ DATA OPERATION WHERE
DETECTED
IN THE ACTUAL READ OPERATION.

SUCH

DATA

SOME

FORM

THIS ERROR COULD BE

ERROR

HARDWARE

(RC, HEADER CRC, HEADER NOT FOUND,

SEQ 0022

WAS

DETECTED

ETC., OR A SOF TWARE

DETECTED ERROR SUCH AS DRIVE READY RESET AFTER A READ DATA COMPLETED.
READ DATA WITH DATA COMPAPE - IS AN ERROR THAT
DATA

WAS

THE BUFFER AFTER A READ DATA OPERATION.

DETECTED

BAD

WHEN THIS OPERATION

IS REPORTED IT INDICATES THE ACTUAL READ DATA OPERATION COMPLETED WITH
NO DETECTED ERRORS BUT THE DATA WAS WRONG.
READ HEADEK - READ HEADER FOR 40 HEADERS - READ HEADER FOR 40

HEADERS

DETECTED IN THE ACTUAL OPERATION WHILE THE READ HEADER FOR 40

HEADERS

WITH
HEADER
COMPARE = HAVE THE SAME GEN[CRAL MEANING AS THE READ DATA
AND READ DATA WITH DATA COMPARE.
MESSAGES
HAVING
THE
OPERATION
OF
READ
HEADER
OR
READ
HEADER FOR 40 HEADERS ARE THE RESULT OF ERRORS
WITH HEADER COMPARE

INDICATES NO ERROR IN THE ACTUAL OPERATION BUT

HEADER DATA ITSELF WAS IN ERROR.

THE

WRITE DATA - RESET - GET STATUS - GET STATUS
WITH
RESET
=
ARE
ALL
BASIC
OPERATIONS.
AS_
BEFORE,
THE
ERROR
DETECTION
CAN BE EITHER
'F‘gml"‘aERER(ERP(fi?FTWE.
THE RESULT LINE (LINE S) WILL DEFINE THE REASON
LD DRV = UNID DRV = ARE OPERATION MESSAGES THAT

REPORT WHEN THE DRIVE LOAD AND UNLOAD SEQUENCE

WILL

APPEAR

IS BEING TESTED.

ANOTHER GROUP OF OPERATION QUALIFIERS WILL BE REPORTED FOR
THAT FAIL

IN SPECIFIC

TESTS.

THESE

TESTS ARE

THE WRITE/READ

2. OVERWRITE TEST, AND THE ADJACENT CYLINDER INTERFERENCE

OPERATION
READ DATA WITH DATA COMPARE
READ DATA
WRITE DATA
READ HEADER

¥HE

OPERATIONS
TEST PART

TEST.

QUALIFIER
FOL O TO (C SEEK
FOL 255 TO CC SEEK
FOL WRITE (NO SEEK)
ADJ. CYL WRITTEN AFTER FWD SK

ADJ. CYL WRITTEN AFTER REV SK
SK FWD, WRT=SK REV, OVERWRT
SK REV, WRT=SK FWD, QVERWRT

THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY OF

THE

QUALIFIERS.
THE QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO MAKE
THE
REPORT
MORE MEANINGFUL BY PROVIDING INFORMATION ABOUT THE SEQUENCE OF
OPERATIONS BEING DONE.

THE QUALIFIERS 'FOL © TO CC SEEK'® AND "¥OL 255 TO

THAT
THE
SEQUENCE OF OPERATIONS INCLUDED A SEEK OF
TO THE CYLINDER WHERE THE TEST IS BEING PERFORMED.

SEEK''

IND | CATE

A GIVEN DIRE CTIO
I N

e
THE 'FOL WRITE (NO SEEK)'' QUALIFIER MEANS THAT THE OPERATION WAS
AFTER A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND READ.

DONE

THE QUALIFIER ''ADJ CYL WRITTEN AFTER FWD
SK'' AND
“‘ADJ
(YL
WRITTEN
AFTER
REV
SK'' WILL
BE
REPORTED
ONLY
IN
THE
ADJACENT
CYLINDER
INTERFERENCE TEST.
THESE QUALIFIERS ARE USED WHEN THE ERROR OCCURS ON

THE
CYLINDER UNDER TEST AND DEFINE THE DIRECTION THE HEADS WERE MOVED
WHEN THE ADJACENT CYLINDER WAS WRITTEN.

THE QUALIFIERS "'SK FWD, WRT=SK REV, OVERWRT'' AND ‘''SK REV, WRT=SK

OVERWRT''

WILL

REPORTED

ONLY

QUAL IFIERS DEFINE THE DIRECTION OF
WRITE AND THE OVERWRITE.

HEAD

THE

OVERWRITE

MOTION

BEFORE

TEST.
THE

INITIAL

THE QUALIFIER 'ON BAD SEC FILES'' WILL BE REPORTED WITH THE WRITE

COMMAND
IF THE PROGRAM ABORTS THAT COMMAND BECAUSE
ON THE BAD SECTOR FILES.

FWD,

THESE

DATA

THE WRITE WOULD BE

3.1.2 SPECIFIC RESULT MCSSAGES
THE RESULT MESSAGE

(LINE 5)

IS ' GENERATED

DYNAMICALLY

BASED

THE

EXPECTED RESULT
OF THE OPERATION BEING TESTED.
SINCE OPERATIONS ARE
MONITORED DURING EXECUTION THE RESULT
MESSAGE
MAY
REPORT
AN
ERROR
DETECTED DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT THE END OF
THE OPERATION.

ONLY THE FIRST ERROR SEEN IS REPORTED

THE GENERAL FORMAT FOR THE RESULT LINE
RESULT:(VAR 1)

WHERE VARIABLE

(VAR 2)

CAN BE ONE OF

IN ALL

CASES.

(VAR 3)

(OPTIONAL QUALIFIER)

THE FOLLOWING:

CONT ERR

(CONTROLLER ERROR)

NON-EXSTNT MEM

(NON-EXISTANT MEMORY)

DRV ERR
HDR CRC

DATA (RC

(DRIVE ERROR)

(HEADER CRC ERROR)

HDR NOT FND

(HEADER NOT FOUND)

HDR NOT FND/HDR CRC/OP]

(ALL

DATA LATE

DRV RDY
SELECTED HEAD
VOL CHK
COVER OPEN
BRUSH HME

WRT LCK

HDS OUT
DRV SEL ERR
DRV STATE

3 BITS SET)

(DRIVE READY

(VOLUME

(HLCK)

(BRUCH HOME)

(WRITE LOCK)

(HEADER 0UT)
(DRIVE SELECT ERROR)
(DRIVE STATE)

SEQ 0023

Page %4
SPIN TIMEOUT

(SPINDLE TIMEOUT SPD ERROR)

WRT GAT ERR
SEEK TIMEQUT
CUR HEAD ERR
WRT DAT ERR
OP INCOMPLETE
HDR/DAT ERR

(WRITE GATE ERROR)
(SKTO_ERROR)
'
(CURRENT IN HEAD ERROR)
(WRITE DATA ERROR)
(OPI ERROR)
(HEADER CRC OR DATA CRC ERROR

HDR NOT FND/DAT LATE

(HEANER NOT FOUND OR DATA LATE

crL

(CYLINDER WHEN REPORTING A SEEK ERROR)

BIT 11 OF CS REGISTER)

ERROR BIT 12 OF CS REGISTER)

VARIABLE 2 WILL BE A VALUE THAT DEFINES WHAT THE RESULT
THIS

CANBEA1

OR O TO INDICATE A SET OF

RESULT

ACTUALLY

IS.

(OCTAL)

CONDITIONS, A NUMBER

O TO 7 TO INDICATE THE DRIVE STATE, OR A NUMBER 0 TO
IDENTIFY A CYLINDER NUMBER.

377

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE 2 SHOULD BE.
THE OPTIONAL QUALIFIER

IS PROVIDED WHEN IT

IS USEFUL

TO KNOW WHEN

ERROR
WAS
DETECTED IN THE OPERATION BEING PERFORMED.
IS USED TO REPORT RESULTS SUCH AS:

THE

THIS QUAL!FIER

BRUSH HME IS1 SB
O IN STATE 2
HEADS OUT IS 0 SB 1 IN STATE 3
DRV RDED
IS 0 SB 1 IN DATA XFER
SELECTED
HEAD IS 1 SB O IN CYCLE UP
DRV RDY
IS O SB 1 IN STATE 5
DRV 37
IS 1 S8 0 IN SEEK w/0 MOTION

DRV
RDY
DRV RDY
DRV RDY

IS O SB 1
IS 0 SB 1
IS O SB 1

THESE RESULTS, WHEN SEEN WITH THE
EXPLANATORY.

IN 10mMS
IN 500MS
IN SSECONDS

OPERATION

MESSAGE,

WIL.

SELF

OTHER RESULT MESSAGES THAT CAN BE PART OF AN ERROR REPORT ARE
:
;)'{gTERRLPT TO LATE'' WHICH INDICATES THAT

THE OPERATION BE ING PERFORMED

COMPLETE

THIS RESULT CAN BE CAUSED BY

IN THE EXPECTED AMOUNT OF

TIME.

THE
DRIVE
LOOSING
READY BEFORE STARTING A READ HEADER AND THEREFORE
| NOT COMPLETING THE READ HEADER IN 1MS.

"FAIL

TO RELOAD HDS AFTER ERR CLEAR'' IS REPORTED WHEN AN ERROR

:'\’fEAgzb TO
L

UNLOAD

AND

AFTER

THE

ERROR

IS CLEARED

"UNKN DRV STATE-NO RDY, NO ERR, HDS OUT'' IS REPORTED WHEN THE
CANNOT DETERMINE THE DRIVE STATE OR STATUS.

CAUSES

THE HEADS DO NOT

PROGRAM

l'\-RITE ABORTED'* IS REPORTED WHEN THE PROGRAM ABORTS A WRITE TQ PROTECT
THE BAD SECTOR FILES.

——————

SEQ 0024

Page 25

"'COULD NOT RETRIEVE DRIVE

STATUS''

REPORTED

THE

GET

STATUS

COMMAND
DOES NOT COMPLETE SUCCESSFULLY WHEN THE STATUS IS REQUIRED TO
REPORT AN ERROR.

"OP] SET-NO DRIVE RESPONSE'' IS REPORTED AS THE

RESULT

WHEN

THE

GET

STATUS EOMMAND IS TIMED OUT (OPI SETS) WHEN THAT COMMAND IS BEING USED
IN THE EARLY TESTS TO CHECK THE DRIVE INTERFACE.

"NO_INTERRUPT ON CMND
COMPLETE'' IS REPORTED WHEN
%ggsgaf’trlLY
COMPLETES BUT
THE
CONTROLLER HAS NOT

THE
COMMAND
GENERATED AN

"ERR DID NOT CLEAR'' IS REPORTED WHEN THE RESET COMMAND DOES NOT

CLEAR

THE
CONTROLLER
ERRORS.
THIS
IS A CONTROLER RELATED PROBLEM BUT
REPORTED IF SEEN IN THE DRIVE TEST PROGRAMS.

"DRV ERR IS NOT CLEARED'' IS

REPORTED

WHEN

COMMAND DOES NOT CLEAR ALL DRIVE ERRORS.

THE

GET

STATUS

"UNEXPECTED ERR'' IS REPORTED WHEN THE CONTROLLER SENSES AN
NO ERROR BITS ARE SET.

"BAD SEC FILE FMT ERR'' IS REPORTED IF
CORRESPOND
TO
THE
FORMAT SPECIFICS.)

EXPECTED

FORMAT.

W/RESET

ERROR

BUT

THE CONTENTS OF THE FILES DO

(REFER TO DEC STANDARD 144 FOR

3.1.3 OTHER MESSAGES
OTHER INFORMATION IS REPORTED UNDER VARIOUS CIRCUMSTANCES.

"BAD SEC FILES NOT STRD.
PRINTED

ALL

SEC

ASSUMED

WHEN A PARTICULAR TEST REQUIRES

GOOD.''

THIS

ARE:

MESSAGE

THE BAD SECTOR FILES BUT

THE Y

HAVE NOT BEEN STORED.
THIS SITUATION
WILL
OCCUR
IF
THIS
TEST
1S
STARTED
OUT OF THE NORMAL PROGRAM SEQUENCE OR IF THE BAD SECTOR FILE S
COULD NOT BE READ.

"ERROR LIMIT EXCEEDED-UNIT DROPPED'' IS REPORTED (WITH THE UNIT NUMBER)
WHEN MORE
THAN
THE
SPECIFIED
OCCURED IN ANY SINGLE PASS.

NUMBER

ERRORS

(DEFAULT 20)

HAVE

3.2 ERROR HALTS
ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS
/FLAG:HOE.
THERE ARE NO OTHER HALTS.
4.0 PERFORMANCE

AND PROGRESS REPORTS

4.1 PERFORMANCE REPORTS

SECTION

WITH

SEQ 0025

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

4.2 PROGRESS REPORTS
THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.

5.0 DEVICE INFORMATION TABLES
THE RL11/RLV11 CONTROLLER HAS
CONTROL OF THE SUBSYSTEM.

THE

FOLLOWING

BIT 15 - COMPOSITE ERROR

REGISTERS

FOR

RLCS = CONTROL AND STATUS REGISTER

BIT 14 - DRIVE ERROR

FOUR(4)

(XXXXX0)

DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC (WITH BIT 10 SET®
DATA CRC (WITH BIT 10 CLEAR,

OPERATIGN INCOMPLETE
= DRIVE SELECT (0-3)
CONTROLLER READY
INTERRUPT ENABLE
EXTENDED BUS ADDRESS

EXTENDED BUS ADDRESS

(BIT 17)

(BIT 16)

3-1 = FUNCTION CODE
= NOP (PDP=11) MAINT (LSI=11)
i

BIT

=
=
=
10 =
9/8
7 =
6 =
5 =
4 =
11

NOOWVSsWN-=O |

e ke b
e

bt b4 b

TOoODOOOD®

—

BIT 13 - NON EXISTANT MEMORY ERROR
BIT 12 = HEADER NOT FOUND (WITH BIT 10 SET)

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 0 SHOULD BE O
RLDA = DISK ADDRESS REGISTER

FOR READ/WRITE

(XXXXX4)

FUNCTIONS

BIT 15 = MUST BE ZtwR0(0)

Page 27

BIT 14=7 - CYLINDER ADDRESS FOR TRANSFER

BIT 6 = SURFACE FOR TRANSFER

BIT 5-0 = SECTOR FOR TRANSFER (0=47)
FOR SEEK FU.CTION

BIT 15 = MUST BE ZERO(0)
BIT 14=7 - DIFFERENCE TO NEW CYLINDER
BIT 6=5 = MUST BE ZERO(0)

BIT & - SURFACE

BIT 3 = MUST BE ZERO
BIT 2 - SEEK DIRECTION( 1 - IN/ 0 - OUT )
BIT 1 = MUST BE ZERO
BIT O - MUST BE ONE(1)

FOR GET STATUS FUNCiION

BIT
BIT
BIT
BIT
BIT

15-4 - IGNORED SHOULD BE ZERO
3 - DRIVE RESET
2 = MUST BE ZERO
1 - MUST BE ONE
O - MUST BE ONE

RLMP = MULTIPURPOSE REGISTER

FOR READ/WRITE

FUNCTION

BIT 15 = 0 -~ WORD COUNT(TWO'S COMPLIMENT)
FOR READ HEADER FUNCTION

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

FOR GET

STATUS FUNCTION

HAS DRIVE

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BiT
BIT

BIT

15
14
13
12
11
10
9
8
7

(THIRD READ)

=
=
=
=
=
=
=

STATUS

WRITE DATA ERROR
CURRENT HEAD ERROR(CHE)
WRITE LOCK STATUS(WL)
SEEK TIME OUT(SKTO)
SPIN ERROR(SPE)
WRITE GATE ERROR (WGE)
VOLUME CHECK(V(C)
DRIVE SELECT ERROR(DSE)
RESERVED(0)

6 = SURFACE

SEQ@ 0027

Page 28

SEQ 0028

5 = COVER OPEN

4 = HEADS HOME

3 - BRUSHES HOME
STATE BITS

NOWnHSs
W =0O |

- LOAD STATE
T
e
SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK = TRACK COUNTING
SEEK = LINEAR MODE

BASIC

LOAD

e P

UNLOAD HEADS
SPIN DOWN

6.0 TEST SURRRIES’
~ @/ /=it
TEST

S A

INTERFACE

TEST

(PART

o too fam jn opos fr om o

IN DRIVE NUMBER.
DO GET STATUS WiTH RESET.
IF OP] SETS:
DRIVE INTERFACE IS DEAD
DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
MARKER DETECTION FAILED
DRIVE IS NJT SELECTING OR AC LOW IS SET
SYSTEM OR STATUS CLOCKS NOT OPERATIONAL
GET STATUS DETECTION FAILED.

INTERRUPT WITH NO OPI,

CHECK STATUS RECEIVED.

AND BRUSH HOME SHOULD BE SET.
IF NOT:
BAD STATUS DATA LINE
‘
BAD COVER SWITCH OR LOGIC
DRIVE COMMAND SHIFT REGISTER
BAD BRUSH HOME SWITCH OR LOGIC
CHECA WRITE LOCK STATUS BIT

SET.

C(OVER

NOT:

BAD SWITCH OR WRITE LOCK LOGIC

P
DRIVE

Wy,

COMMAND SHIFT REGISTER

(HECK STATE FOR 0.

IF NOT:

BAD STATE ROM

DRIVE COMMAND SHIFT REGISTER

CHECK VOLUME CHECK RESET.

IF NOT:

BAD RESET DETECTION
BAD VOLUME CHECK LOGIC
DRIVE COMMAND SHIFT REGISTER

(HECK DRIVE ERROR RESET.

IF NOT:

BAD DRIVE ERROR INTERFACE
SOME CTHER ERROR STUCK ON. REPCRT WHICH ERROR.

OPEN

— - —

age

NOTE:

TEST 2

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED. MANUAL INTERVENTION TESTING 1S REQUESTED.
AND IS RUN IN FIRST PASS ONLY.

BASIC INTERFACE TEST

(PART ?)

REQUEST OPERATOR TO CLOSE COVER AND RESET WRITE LOCK.

DO GET STATUS LOOP CHECKING

COVER OPEN OR WRITE

LOCK

RESETS.
WAIT
15
SECONDS FOR BOTH TO CHANGE.
IF NO CHANGE,
ASK OPERATOR TO TYPE CR IF PROCEDURE WAS FOLLOWED.
IF ONE CHANGED BUT NOT

THE OTHER, REPORT WHICH FAILURE:

WRITE LOCK SWITCH OR LOGIC
(OR) COVER OPEN SWITCH OR LOGIC
DRIVE COMMAND SHIFT REGISTER

IF NEITHER CHANGED, REPORT BOTH FAILURES.

NOTE :

TEST

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2

IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

HEAD LOADING TEST
REQUEST OPERATOR TO PRESS LOAD SWITCH.

DO GET STATUS LOOP CHECKING FOR STATE TO GO
TO
1.
WAIT
30
SECONDS
FOR
CHANGE.
IF
NO CHANGE, ASK OPERATOR TO CONF IRM
ACTION BY

TYPING CR.

LOAD WAS PRESSED:
BAD STATE ROM

BAD LOAD SWITCH OR LOGIC
CHECK

THAT STATE

REMAINS FOR LESS THAN 30 SECONDS.

SPINDLE NOT TURNING OR TO SLOW (AC SERVO)
SECTOR PULSE DETECTION OR LOGIC BAD
BAD CLOCK SHIFT REGISTER IN SPEED CONTROL
BAD DISK ON SPEED LOGIC
BAD STATE ROM

MD CHECK 1F SPIRUP TIMEQUT ERROR SET. IF NOT:
BAD STATE ROM
BAD TIMEOUT DETECTION LOGIC
(HECK

THAT

STATE

GOES

TO 2.

NCT:

IF NOT:

SEQ 0029

Page %O
BAD STATE ROM
CHECK THAT BRUSH HOME

IS 2.

IF NOT:

IS RESET 5 SECONDS OR LESS

AFTER

STATE

BAD BRUSH HOME SWITCH OR LOGIC
BAD BRUSH MOTOR (AC SERVO)

WAIT

30 SECONDS FOR BRUSH HOME

TO SET.

IF NOT:

BAD AC SERVO
BAD SWITCH OR LATCH

CHECK

THAT STATE HAS CHANGED TO 3.

IF NOT:

BAD STATE ROM
AFTER STATE
BAD
BAD
BAD
BAD
(HECK VOLUME

IS 3,

IS SET.

IF NOT:

SWITCH
SEEK CONTROL ROM
VELOCITY ROM
DC SERVO
(HECK

BAD VOLUME
(HECK

(HECK HEADS OUT

IS SET.

IF NOT:

CHECK LOGIC

DRIVE ERROR

IS SET.

NOT:

BAD DRIVE ERROR LOGIC OR INTERFACE

WAIT 300 MS FOR STATE TO (HANGE

TO 4.

[T DOESN'T CHANGE
:

STATE ROM BAD
SEEK ROM
VEL ROM
GUARD BAND DETECTION

wAIT

15 MS FOR STATE TO CHANGE

TO S.

8 MS AFTER STATE GOES TO 5, DRIVE READY SHOULD SET.
INTEGRATOR OR NULL

READY ONE

ENABLE
NOTE:

SHOT BAD

IF NOT:

DETECTION FA!LURE

TIMEOUT H NOT SETTING OR COUNT LOGIC BAD

THIS TEST IS EXECUTED CONLY IF, PROGRAM OPERATION MODE 2

IS SELECTED, MANUAL

AND

INTERVENT-ION TESTING IS REQUESTED,

IS RUN IN FIRST PASS ONLY.

SEQ 0030

F
3
Page 31
TEST &

HEAD UNLOADING TEST

CHECK DRIVE IS READY.
DRIVE READY.
REQUEST OPERATOR

[IF NOT REPORT AND ASK OPERATOR TO

MAKE

TO UNLOAD DRIVE.

LOOP ON GET STATUS WAITING FOR STATE
:
CHANGE

TO (CHANGE

TO STATE

BAD STATE ROM
BAD SWITCH

WAIT 300 MS FOR STATE

TO CHANGE

TO 7.

NO CHANGE
:

BAD STATE ROM
AFTER STATE

IS 7, WAIT

:
IF NO CHANGE

30 SEC FOR STATE

TO CHANGE

NO BRAKING
BAD AC SERVO
SEQAC.DEVST OPERATOR TO LOAD

NOTE:

TEST

DRIVE.

WAIT

UNTIL

DRIVE

BECOMES

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS CNLY.

DRIVE SELECT

TEST

INSTRUCT THE OPERATOR TO REMOVE DRIVE ADDRESS PLUGS
FROM ALL
DRIVES
EXCEPT THE DRIVE UNDER TEST,
ASK THAT (ARRIAGE RETURN

TYPED WHEN DONE.

DO GET STATUS TO ADDRESS OF DRIVE UNDER TEST.
(HECK
THAT
NO
ERRORS ARE REPORTED.
[O GET STATUS TO ALL OTHER ADDRESSES AND
(HECK THAT OP] SETS FOR ALL OTHER ADDRESSES.

DO CET STATUS TO ADD/ESS OF NEXT
THAT

ERRORS

ARE

ADDRRESSES AND (HECK THAT OP!
REPEAT FOR ALL
AFTER %),

NOTE:

DRIVC

THIS TEST

SEQUENTIAL

REPORTED.

SETS.

ADDRESSES

DRIVE SELECT

RUN IN FIRST PASS ONLY.

GET

(0,1,2,3

IS EXECUTED ONLY

IS SELECTED,

ADDRESS.

STATUS

TO ALL

CMECK

OTHER

SEQUENTIA

IF PROGRAM OPERATION MODE 2

TESTING IS REQUESTED, AND :S

SEQ 0031

Page %2
TEST 6

DRIVE

SELECT ERROR TEST

REQUEST OPERATOR INSERT IDENTICAL ADDRESS PLUGS IN TWO
DRIVE S
(MUST
BE_IDENTICAL
TO
NUMBER
SPECIFIED EARLIER).
REQUES T

OPERATOR TYPE

CARRIAGE RETURN WHEN READY.

PROCEDURE WILL BE

TO GET STATUS AND

CHECK

FOR

DRIVE

SELE

ERROR.
THEN
RESET
THAT
DRIVE AND VERIFY THAT DRIVE SEL%
ERROR IS NOT REPORTED AGAIN.
WAIT 1 SECOND, THEN CHANGE DR
SELECT
TO
A
DIFFERENT
NUMBER AND BACK AGAIN.
DRIVE SEL E
ERROR SHOULD SET AGAIN.

OPERATOR SHOULD SEE THE FAULT LIGHT ON
INDICATOR IS NOT SEEN ON A DRIVE:

BOTH

DRIVE SELECT ERROR DETECTION IS BAD
NOTE:

DRIVES.

IN THAT DRIVE.

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE ¢
IS SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS

RUN IN FIRST PASS ONLY.

4.2

STANDARD TESTS
IF

THE PROGRAM OPERATION MODE

FIRST

TEST

EXECUTED.

POWERED UP, HEADS LOADED,

TEST 7

INITIAL STATE

THE

IS SELECTED,

DRIV 3 (E)

AND WRIT E

THIS WILL BE

LOCK RESET.

THE

TESTED MUST BE

TEST

DO GET STATUS, WAIT FOR INTERRUPT,

IF OPI OCCURS:
DRIVE

INTERFACE

IS DEAD

DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
DRIVE IS NOT SELECTING OR AC LOW IS SET
SYSTEM OR STATUS CLOCKS NOT OPERAT]ONAL
GET STATUS DETECTION FAILED.

INTERRUPT OCCURS WITHOUT OPI, (HECK DRIVE READY.

&2{%:‘55

IF MANUAL
SELECTED.

HEADS

ARE

LOADED

AND

INTERVENTION TESTS WERE RUN,
IF NOT:

ARE

TRACKING

THECK

THAT

READY SET

(POSITION

HWEAD

DRIVE CYCLE UP DID NOT SELECT HEAD O
If DRIVE READY IS SET, CHECK STATUS MESSAGE
OUT AND BRUSH HOME MUST BE SET.
IF NOT:

RECEIVED,

HEADS

SEQ 0032

)

DRIVE

CIRCUITRY BAD
STATUS DATA BAD

IF MANUAL

CHECK

H 3
Page 33

COMMAND SHIFT REGISTER NOT LOADING/SHIFTING

HEADS OUT OR BRUSH HOME

PASS

;

SWITCH OR ASSOCIATED

INTERVENTION TESTS WERE RUN AND THIS
THAT

VOLUME

CHECK AND DRIVE

ERROR ARE

THE

FI[RST

SET.

CHECK ALL ERROR BITS ARE C.

(HECK STATE

IS 5.

DRIVE
TEST 8

[IF NOT:

COMMAND SHIFT REGISTER BAD

INITIAL RESET STATE
DO GET

TEST

STATUS HEAD SELECT = O, WAIT FOR

INTERRUPT,

DO GET STATUS WITH RESET,
WAIT
FOR
INTERRUPT.
BOTH
ERROR AND VOLUME (HECK SHOULD NOwW BE RESET.
IF NOT:
RESET DETECTION,

RESET ERROR,

OR VOLUME

DRIVE COMMAND SHIFT REGISTER BAD

HEAD SELECTED BIT

DRIVE

SHOULD

ZERO.

(HECK FLCP BAD

NOT:

COMMAND SHIFT REGISTER BAD

HEAD SELECT

TEST 9

STILL BE

DRIVE

SHIFT REGiSTER NOT LOADING

DRIVE READY TEST

DO
SEEK
WITH
O
DIFFERENCE,
SIGN 0,
HEAD
Q.
INTERRUPT.
GET STATUS.
(MECK STATE IS 5.
[If NOT:

WAIT

FOR

DIFFERENCE COUNTER PICKING UP B ITS
COUNTER CIRCUITRY IS NOT INDICA TING C DIFFERENCE
(HECK DRIVE READY

ENABLE

IS RESET.

NOT:

TIMEOUT OR READY _ATCH/ONE

WAIT APPROX 8 MS FOR READY TO SET.

DOESN'T SET AT ALL:

SHOT 3AD
IT

TAKES

HEADS MAY HAVE MOVED (INTEGRATOR OR NULL
READY ONE SHOT FAILED

(HECK DRIVE ERROR DID NOT

REPORT WHI”H ERROR.

VERIFY HEAD SELECT

SET.

IS ZERC.

SET,

DO GET

LONGER

DETECTION)

STATUS

AND

SEQ 0033

Page 34
TEST 10 SEEK SIGN SwITCH TEST

SEEK

INTERRUPT,

WITH

DIFFERENCE

SIGN

HEAD

GET STATUS AND CHECK STATE IS 5.

IF NOT:

WAIT

FOR

COUNT ROM
DIFFERENCE COUNTER PICKING UP BITS
COUNTER CIRCUITRY IS NOT INDICATING O DIFFERENCE
VERIFY DRIVE

IS NOT READY

WAIT APPROXx 8 MS FOR READY TO SET.
DOESN'T SET AT ALL:

TAKES

LONGER

HEADS ARE MOVING (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED

COUNT ROM

VERIFY DRIVE ERROR DID NOT
VERIFY HEAD SELECT

SET

IS ZERO.

DO SEEK WITH O DIFFERENCE,
ABCVE TESTS.

OPPOSITE

SIGN,

HEAD

REPEAT

PROGRAM IS STARTED

ADDRESS

LTEST 11 HEAD ALIGNMENT SUPPORT ROUTINE
THIS

204,

TEST

HEAD

PASS ONLY.

IS EXECUTED WHEN THE

ALIGNMENT
IT

SUPPORT

IS BYPASSED

IS REQUESTED, AND IN THE FIRST

THE PROGRAM

STARTED

OTHER ADDRESS AND IN THE SECOND AND SUBSEQUENT PASSES.
THIS

TEST

SELECTS

THE

DRIVE

UNDER

TEST

AND

[OOPS

ANY

GET

STATUS
WITH
RESET.
THE WRITE LOCK BIT IS MONITORED AND WHEN
*o WRITE LOCK IS RESET HEAD O IS SELECTED AND WHEN WRITE LOCK
IS
SET
HEAD
1
IS
SELECTED.
THIS WILL PERMIT THE HEADS TO BE
ALIGNED IN KEEPING WiTH THE PRESENT HEAD
ALIGNMENT
PROCEDURE
WITHOUT RETURNING TO THE CONSOLE.
TYPING A CARRIAGE RETURN ON THE

CONSOLE

WILL

TERMINATE

THIS

TEST
ON
THE
DRIVE UNDER TEST.
BEFORE TERMINATING, THE TES!
WILL CHECK THAT WRITE LOCK IS RESET.
IF
NOT,
THE
OPERATOR
WILL BE REQUESTED TO RESET WRITE LOCK.
TEST 12 HEAD SWITCHING TEST

DO
SEEK
WITH O DIFFERENCE,
SIGN 0,
HEAD
1,
WAIT
INTERRUPT.
GET STATUS AND (HECK STATE IS 5.
[IF NOT:
DIFFERENCE COUNTER 1S PICKING UP BITS
ASSOCIATED CIRCUITRY IS BAD

FOR

SEQ 0034

Page 35

VERIFY DRIVE READY RESET.
ENABLE

IF NOT:

TIMEOUT OR READY LATCH/ONE

WAIT APPROX 8 MS FOR READY TO SET.
DOESN'T SET AT ALL: ¥

SHOT BAD
IT

HEADS ARE MOVING (INTEGRATOR OR NULL
READY ONE SHCT FAILED
DRIVE CANNOT TRACK WITH THIS HEAD

TAKES

LONGER

DETECTION)

VERIFY DRIVE ERROR DID NOT SET.
DO GET STATUS,

(HECK HEAD SELECT

IS CORRECT.

IF NOT:

HEAD SELECT REGISTER BAD

DRIVE COMMAND SHIFT REGISTER BAD

[T)(E)S?EEK WITH C DIFFERENCE,
TEST

13 READ HEADER TEST

(PART

SIGN

HEAD

REPEAT

ABOVF

DO SEEK WITH DIFFERENCE O, HEAD O,
AND WAIT FOR DRIVE READY.

SIGN O.

WAIT FOR INTERRUPT

DO READ HEADER, WAIT FOR INTERRUPT,
(HECK IF HEADER CRC ERROR SET.

SET:

READ/WRITE BOARD BAD
READ DATA LINE BAD

CI?E&(”IF

BIT 6 OF

WORD

IS SAME AS HEAD SELECT BIT

HEADS ARE SwiTCHED
HEAD SELECT LOCIC

IN STATUS.

(CABLE)

IF MANUAL INTERVCNTION TESTS WERE RUN AND HEAD AL IGNMENT TESTS
WERE
NOT
RUN,
CHECK
THAT HEADER WORD ‘O INDICATES HEADS ARE
POSITIONED OVER CYLINDER O.

REPEAT

(HECK

TESTS USING HEAD

THAT CYLINDER PORTION OF

TEST

(PART 2)

STORED HEADER

THIS HEADER.,

HEADS ARE MISAL IGNED
14 READ HEADER

SAME AS HEADER WORD 1 OF

TEST

STORE HEADER WORD

17 NOT;

WORD

THE

SEQ 0035

Page 36

DO
SEEK
WITH
DIFFERENCE
O,
INTERRUPT,
WAIT FOR READY.

SIGN

HEAD

WAIT

FOR

ggABO CONSECUTIVE READ HEADER, STORE 3 HEADER WORDS AFTER EACH
CHECK ALL HEADERS FOR SEQUENCE AND CONTENT (WORD 2
ALL
BIT 15 WORD 1 AND 3 IS O, »S BIT WORD 1 IS 0).
IF NOT:

ZERO,

BAD READ/WRITE BOARD
BAD PA(K
DO SEEK WITH DIFFERENCE O,
FOR HEAD

SIGN O, WEAD

REPEAT ABOVE

TEST

SEQ 0036

MAIN.
MACY11_30A(1052)
22-NOV-78
CZRLCB.P11
23-0CT-78 14:39

2399
2437

16:20
TABLE OF CONTENTS

«TEST 1
«TEST 2

BASIC INTERFACE (PART 1)
BASIC INTERFACE (PART 2)

«TEST 7

INITIAL STATE

2466
2624
2705
2754

«TEST
«TEST
«TEST
«TEST

I
2934
2992
3064
2123
3194
3241
3402

«TEST 8
INITIAL RESET STATE
«TEST 9
DRIVE READY
«TEST 10
SEEK SIGN SWITCH
«TEST 11
HEAD ALIGNMENT SUPPORT
«TEST 12
HEAD SWITCHING
«TEST 13
READ HEADER (PART 1)
«TEST 14
READ HEADER (PART 2)
DIAGNOSTIC SUPERVISOR == LOW CORE SET uP

2847

3
&
§
6

HEAD LOADING
HEAD UNLOAD ING
DRIVE SELECT
DRIVE SELECT TEST

SEQ 0037

22-NOV-78

16:20

.NLIST
.ENA3L

.=2000

002000

PAGE 1

CND,MD,ME
ABS,AMA

SVC

SVCTST=1
SvCSuB=1
SVCBGL=1
SVCINS=0
SVCTAG=0
POINTER BGNSW,BGNSFT,BGNDU
BGNMOD

HEADER

8
n
8
o

Pl
o

~~~

30A(1052)

002000

3—:-;..—.-:.;

YOS WN=OVONC IAN
=

ASSEMBLY ROUTINE
HACY11
CZRLCB.PTY
25-0CT-78 13:12

MDHEDR
CZRLC B 0 1.1.1,RLO1
ASCIT
7
LASCII /Z/
.ASCIT /R/
LASCIT 7L/
LASCIT /C/

BYTE
BYTE
BYTE

0
0
O

LASCIT
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.BYTE
.BYTE
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD

70/
0
1
LS$HARD
LS$SOFT
LS$HW
L$SW
LSLAST
0
0
0
0
LS$DISPAT(CH
0
0
0
CSREVISION
CSEDIT
1
1
0
0
0
LSDVTYP
O
LS$DR
LSDRST
0
L$DU
1
0
LIINIT

LASCII

/B/

SEQ 0738

ASSEMBLY ROUTINES
MACY11
CZRLCB.PT1
25-0CT=78 13:12

21
22

002110
002110

002114

(5)
(2)
(3)

002110
002112
002114

30A(1052)

22-NOV-78

ENDMOD
000000
000001
046122

002122

030460

]

000

PAGE 1=1

.WORD
-BLKW

LASCIZ

/RL01/

-EVEN

<RLO1>

3
,

:COPYRIGHT (C) 1977, 1978
:THIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY
:ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH

29
30

:SOFTWARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED
:OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT

:THE _INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS

:FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE
:LICENSE TERMS. TITLE TO OWNERSHIP OF THE SOF TWARE SHALL
;AT ALL TIMES REMAIN IN DEC.

STHE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

o8 DISITAL DUV CONPONIION, - -

:WITHOUT NOTICE AND SHALL NOT BE CONSTRUED AS A COMMITMENT

002122

BGNMOD

GLBEQAT

4
45
46
47
48
49

002122

EQUALS
;
tsR
vEcr
PRIOR
DRSS

OFFSETS FOR HARDWARE P-TABLE
=0
:BUS ADDRESS
=2
VECTOR ADDRESS
*PRIORITY

000000
000002
000004
000006

000010

53
54
55
56
57
2

000000
000002
000004
000006
000010
000012

MIswl
LOLIM
HILIM
HEAD
ERLIM
DCLIM

;

OFFSET FOR SOF TWARE P-TABLE

000001

;
ALLCYL

BIT ASSIGNMENT FOR SOF TWARE P-TABLE SWITCHES
=BIT00
:USE ALL CYLINDERS
=BITO1
:USE ALL SECTORS

000010

HDALIGN =B]T03

CNT

000002
000004

65
66
67
68
62

000020
010000
020000
040000
100000

000102

EKDATA

B R

ALLSEC

DRSELT

=10

*CONTROLLER TYPE

=0
=
=
=
=10
,
=12

:SOF TWARE PARAMETERS SWITCHES
:CYLINDER LOWER LIMIT
*CYLINDER HIGH LIMIT
*SELECTED HEAD FOR RUNNING TESTS
ERROR LIMIT
:DATA COMPARE ERROR LIMIT

=BIT02

:EXECUTE DRIVE SELECT TEST

AUTOSZ
HEADLM
HICYL
LOCYL
MITEST

=BIT04
=BIT12
=BIT13
=BIT14
=RIT15

;AUTO SIZE FOR DRIVE-DROP IF NO RESPONSE
*HEAD LIMIT SPECIFIED FLAG
HI LIMIT SPECIFIED FLAG
*LO LIMIT SPECIFIED
:EXECUTE MANUAL INTERVENTION TESTS

;

SUBSYSTEM ©UNCTJONS

=102

:DRIVE SELECT BIT

0F ITS SOF TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

:DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

60
61
62

SEQ 0039

25
26
4

3
32
33

DEVREG
DEVIYP

16:20

:EXECUTE MEAD ALIGNMENT TEST

;WRITE CHECK

ASSEMBLY RuuTINES
MACY1 1 30A(1052)
CZRLCB.PT1
25-0CT=78 13:12

22-NOV-78

16:20

PAGE 1-2

SEQ 0040

73
74
75
76
77

000104
000106
000110
000112
200114

82
83
8%
85
86
87
P
89
90
91
- 92
93
%
95
%

007777
000002
000001
000004
000030
000020 _
000040 *
000100
000200
000400
001000
002000
004000
010000
020000

99
100

003760

MQUALS =OUTINS'INOUTS'FOLWRT :REVSKS'FWDSKS 'REVSKO! FWDSKO
;MESSAGE
QUALIFIER BITS

000001
000002
000004
000010
000000
000002
000004
000006

fosLow
NOIRPT
CONHNG
NOCLR
RLCS
RIBA
RLDA
RLMP

ERROR FLAGS FROM SUBROUTINES

113

;

115
116

100000
040000

RLCSR

118
119
120
121
122

010000
010000
004000
004000
002000

124
25
126
127

002200
000100
000060
000001

78
»

97
98

102

103
104
105
10
108
109
110
11
114

117

123

000116
000100

040000
100000

=104
=106
=110
=112
=114

RDNOHR =116
NOOP
=100

:READ DATA, IGNORE HEADERS
NO OPERAT fON

;

OPERATION FLAGS

:COMPOSITE OPERATION FLAGS
:HEADER (OMPARE OPERATION
:DATA COMPARE OPERATION
:CVCLE UP OPERATION
*UNLOAD OPERATION
*IN-OUT SEEK OPERATION
:0UT=IN SEEK OPERATION
:FOLLOWING WRITE OPERATION
:REV SEEK SEQ (ADJ INTERFERENCE)
:FWD SEEK SEQ (ADJ INTERFERENCE)
:REV SEEK SEQ (OVERWRITE)
*FWD SEEK SEQ (OVERWRITE)
:BAD DISK ADDRESS
:SEEK OPERATION
*READ OR WRITE OPERATION

CoMPOP =7777
HDRCMP =B]T01
DATACMP =B]T00
CYLUP =BITO?
ULOAD =BITO3
INOUTS =BIT04
OUTINS =BITOS
FOLWRT =BIT06
REVSKS =BIT07
FWDSKS =B1T08
REVSKO =BIT09
FWDSKO =BIT10
BADADD =BIT11
SEEKOP =BIT12
RORWOP =BIT13

RELDWT =BIT14
HDR4O =BIT1S

020000

001400

GTSTAT
SEEK
RDHEAC
WIDATA
RDDATA

=BI1T00
=BITO1
=BIT02
=BIT03
=
=
=
=

*RELOAD WAIT
40 HEADER OPERATION

;OPERATION TOOK TO LONG
NO INTERRUPT FROM OPERATION
;CONTROLLER HUNG
:
‘BAD CONTROLLER CLEAR
'
:CONTROL AND STATUS REGISTER
:BUS ADDRESS REGISTER
*DISK ADDRESS REGISTER
*MULTI-PURPOSE REGISTER

ANYERR =100000
DRVERR =40000

;CONTROL AND STATUS REGISTER

DLTERR =10000
HNFERR =10000
DCKERR =4000
HCRCERR =4000
OPIERR =2000

*DATA_LATE ERROR
*HEADER NOT FOUND ERROR
*DATA CHECK ERROR
*HEADER CHECK ERROR
:OPERATION INCOMPLETE ERROR

NXMERR =20000

-4

:GET STATUS
: SEEK
*READ HEADER
*WRITE DATA
*READ DATA

DSMSK

=1400

CRDYMSK =200
INTEBL =100
BAMSK =60
DRDYMSK =1

ANY ERROR BIT
*DRIVE ERROR BIT

NON-EXISTANT MEMORY ERROR

:DRIVE SELECT MASK

*CONTROLLER READY MASK
* INTERRUPT ENABLE MASK
‘BUS ADDRESS UPPER MASK
:DRIVE READY MASK

ASSEMBLY ROUT INE

CIRLCB-PTT
129
130
131
132
133
134
135
136
137
138
139

HSMSK
CAMSK

MBSETO
DIRBIT
HDSEL
DIRMSK

DRSET

WCMSK

160000

WCRNG

077600
000077
000100

HDCYL

HDSEC
HDHSEL

000007
000010

000020
000040
000100
000400
001000
002000

004000
010000

164

020000

165

040000

166

100000

=77
=100
=77600

;SECTOR_ADDRESS MASK
JHEAD SELECT MASK
;CYLINDER ADDRESS MASK

=20

:HEAD SELECT BIT

=77600

:CYLINDER DIFFERENCE MASK

STAMSK
BHSTAT
HOSTAT
COSTAT
HSSTAT
DSESTAT
VCSTAT
WGESTAT
SPDSTAT
STOSTAT

sGET STATUS SETUP
:DRIVE RESET MASK

=10

=17777
=160000

sWORD COUNT MASK
JWORD COUNT RANGE MASK

=077600

sCYLINDER MASK

=77
=100

s SECTOR MASK
+HEAD SELECT MASK

=7
=10
=20
=40
=100
=400
=1000
=2000
=4000
=10000

:STATE MASK
;BRUSH HOME STATUS
sHEADS QUT STATUS
:COVER OPEN STATUS
sHEAD SELECT STATUS
sDRIVE SELECT ERROR STATUS
:VOLUME CHECK STATUS
;WRITE GATE ERROR STATUS
:SPIN ERROR STATUS
;SEEK TIMEOUT ERROR STATUS

WLSTAT
=20000
HCESTAT =40000
WDESTAT =100000

ENDMOD
BGNMOD

.
00212

OPMSGS: WORD

sWRITE LOCK STATUS

sHEAD CURRENT ERROR STATUS
;WRITE DATA ERROR STATUS

GLBDAT
TABLE OF OPERATION MESSAGES

005002
005032
004744

176

002132

004705

178
179
180
181
182
183
184

002136
002140
002142
002144
002146
002150
002152

004752
005127
005046
005071
005204
005173
005235

002134

SEQ 0041

002122
002122

002124
002126
002130

C &4
PAGE 1-3

GETSTAT =3

017777

162
163

16:20

147
148
149
150
151
152
153
154
155
156
157
158
159
160
161

22-NOV-78

SAMSK

000003
000010

146

177

30A(1052)

000001
000004
000020
077600

141
142
143
144 .
145

173
174
175

D5=0CT-78 13512
000077
000100
077600

140

167
168
169
170
171
172

MACY11

005016

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

0
MWRCHK
MGTSTA
MSEEK
MREADH
MWRITE
MREAD
MWRSET
MDATCP
MHDRCP
MCYLUP
MCL_OAD
MINOUT

;FILLER
:MESSAGE FOR WRITE CHECK
:
GET STATUS
:
SEEK
:
READ HEADER
:
WRITE DATA
:
READ DATA
:
WITH RESET
:
WITH DATA COMPARE
2
WITH HEADER COMPARE
:
LOAD HEADS
:
UNLOAD HEADS
:
IN=QUT SEQ

ASSEMBLY ROUTINES

CZRL(CB.PTT
185
186
187
188
189
190
191

002172

005214
005260
005304
005337
005426
005372
005462
005113

195
196
197
198
199

002174
002176
002200
002202
002204

010722
011033
011360
011332
011315

201
202
203
204
205
206
207
208
209
SJI?

002210
002212
002214
002216
002220
002222
002224
002226
002230
002232

011405
000000
011261
011243
000000
011225
011172
011210
000000
011142

212
213
214
215
216
217
218
219
220
221

002234
002236
002240
002242
002244
002246
002250
002252
002254

004466
004470
004530
004570
004630
004636
004676
004700
004740

224
225
226
227
228
229
230
231
232

000000
000000
000000
000000
000000

233
2
g%g

002260
002262
002264
002266
002270
002272
002274

002276
002300
002302

237
238
239
240

002304
002306
002310
002312

000002
000006
000011
000014

194

200

SS%

30A(1052)

25-0CT-78 13:12

002154
002156
002160
002162
002164
002166
002170

}3%

MACY1 1

2206

002256

22-NOV-78
.WORD
.WORD
.WORD
WORD
WORD
WORD
.WORD
.WORD
RESTBL:

011276

004742

000000

000000
000000
000000

D 4
PAGE 1-4

MOUTIN
MFOLWRT
MREVSK
MFWDSK
MRESKO
MFWSKO
MBADAD
M4OHDR

SEQ 0042
3
:
:
;
:
:
:
:

OUT-IN SEQ
FOLLOWING WRITE
REV SEEK
FWD SEEK
REV SEEK
FWD SEEK
BAD DISK ADD FOR WRITE
40 HEADER OPERATION

TABLE OF RESULT NAME MESSAGE ADDRESSES
.WORD
.WORD
.WORD
.WORD
.WORD

MCERR
MDRERR
MNEERR
MFLERR
MHDERR

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

MNDRST
O
MWDERR
MHCERR
0
MSTERR
MSPERR
MWGERR
0
MDSERR

.WORD

16:20

MOPERR

s CONTROLLER ERROR
;DRIVE ERROR
sNON=EXISTANT MEMORY ERROR
sHEADER NOT FOUND-DATA LATE
sHEADER OR DATA ERROR

;OPERATION INCOMPLETE

;NO DRIVE STATUS AVAILABLE
;WRITE DATA ERROR
;HEAD CURRENT ERROR

;SEEK TIMECUT ERROR
:SPINDLE ERROR
;WRITE GATE ERROR
sDRIVE SELECT ERROR

:
PATTERN TABLE
PATTBL: .WORD
PATI
.WORD
PAT?2
.WORD
PAT3
.WORD
PAT4
.WORD
PATS
.WORD
PATH
.WORD
PAT?7
.WORD
PAT8
.WORD
PAT9
.WORD

PAT10

:
SUBROUTINE CALLING STACK
SUBSTK: .WORD
0
;STACK IS 12 WORDS LONG
.WORD
0
WORD
O
.WORD
0
.WORD
0
WORD
0
WORD
0

WORD
WORD
WORD

125TBL:

O
0
O

.WORD = 2
.WORD
6
WORD
G,
WORD
12.

;TABLE OF DIFFERENCES TO BE USED
JIN TEST 25

|
;

22-NOV=78

@
o
s
e

8.
5

002361
002362
002363
2364
002365
002366
002367
002370
002371
002372
002373
002374
002375
002376
002377
002400
002401
002402
002403
002404
002405
002406
002407
002410
002411
002412
002413
002414
0024:5
002416
002417
002420
002421
002422
002423

055
064
072
101
110
115
124
133
141
146
154
161
170
177
206
213
222
23
235
24b
252
261
270
275
303
312
317
326
334
343
352
361
367
375
000

002424

000000

—

CYLTBL:

.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE

;TABLE OF DEFAULT CYLINDERS
e

002
007
016
024
033
041

002352
002353
002354
002355
002356
002357

T3318L:

“

000010

TABLE TO BE USED IN TEST 33 AND 34 TO BUILD AND STORE THE
CYLINDERSOTO BE USED IN THE TEST.
S NWNNWLVN=~YN)

002332

52.

.BYTE
.BYTE
.BYTE
.BYTE

K
B
.
.
.
.
=
.
.
x
E
.

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE

.WORD

.BYTE
.BYTE
.BYTE

.BYTE
.RYTE
.BYTE

.BYTE
.BYTE

SSINDX:

108.

BYTE

NN S NWNOND) —

002360

SEQ 0043

N = B WNON)
—
W)=
NN~

000021
000026
000033
000042
000051
000200
000377

E &4
PAGE 1-5

16:20

OMPOMNOMNLMNOMNLMNLMNVNIND)
= P LB DD DD DD Dt D i D

002314
002316
002320
002322
002324
002326
002330

30A(1052)

CZRLCB.PTT

MACY11
25-0CT-78 13:12

N8 INANIN = OO N 0000 NN

ASSEMBLY ROUTINES

s SUBROUTINE

STACK

INDEX POINTER

30A(1052)

22-NOvV-78

OO0OOCOOOOCO

OPERATIONAL FLAGS

OO0

T.STAT:

TEMP3:

TEMPS
:

TEMPS:

TEMP6:
TEMP?:
TEMPZ:

.
.
.
.
.

*WRITE SWITCH

:TABLE STORAGE

s CONTROLLER REGISTER STORAGE
:

AFTER CPERATION

:HEADER WORD STORAGE
:DRIVE STATE STORAGE

TIMER STORAGE

.
.

CRVCNT:
DIFAUG:
oLDCYL:
NEWCYL:
CURCYL:
DESDIF:
DESSGN:
DESHD:
DESSEC:
TEMPQ:
TEMP1:
TEMP2:

:MORE THAN 1 COMPARE ERROR
;ERROR RETURN SWITCH
:BAD SECTOR FLAGS

s CONTROLLER REGISTER STORAGE
;BEFORE OPERATION

..BA:
.DA:
.MP:
.
.BA:
.DA:
MP:
HDWRD1:
HDWRDZ2:
HDWRD3:

RE SPARM:

;OPERATION COMPLETE FLAG

;RL11 'BASE ADDPESS
;RL11 VECTOR ADDRESS
;DRIVE NUMBER UNDER TEST

RLDRV:

;OPERATION FLAGS

+HEAD ALIGNMENT DONE FLAG
:ADDRESS OF ERROR HEADER

RLBAS:
RLVEC:

SEQ 0044

OO0

TBLSTR: .

—_———

=D
D e
d e
b
b
b
b

NVONOVSWN=O

NWWWWWWWWW

301

320

F
4
PAGE 1-6

OO0OO0O0OO0OO0L0

BREFIRER 83

257
298

16:20

jeleolelelelslelelelalololeololslolsleielelelsl)

ASSEMBLY ROUTINES
MACY11
CZRL(B.PT1
25-0CT-78 13:12

;PARAM BLOCK FOR REASON REPORT

;DRIVE COUNT FOR DRIVES UNDER TEST
;DIFFERENCE AUGMENT FOR SEEK
;OLD CYLINDER
sNEW CYLINDER

s CURRENT CYLINDER
sDESIRED DIFFERENCE

;DESIRED SIGN
;DESIRED HEAD
DESIRED SECTOR
Y STORAGE
STARAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
: TEMPORARY STORAGE

ASSEMBLY ROUTINCS
MACY11
CZRL(B.PT1
25-0CT-78 13:12
A

30A(1052)

22=NOvV-78

16:20

OF iN:
OFINU:
OFMID:
OFMIDU:
OFOUT:
OFOUTU:

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

O
O
O
O
O
0

ORINU:

.WORD

ORIN:

ORMID

ORMIDU:
OROUT:
OROUTU:

.WORD

.WORD
.WORD
.WORD

HF IN:
HFINU:

WORD
.WORD

HFOUTU:

.wORD

HFOUT

HRIN:
HRINU
HROUT
HROUTU:
AFMID

AFMIDU:

'‘ORD

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

ARMID

.WORD

EXOCYL:
EXHCYL:
EXACYL:
EXROT:

.WORD
.WORD
.WORD
.WORD

ARMIDU:

.WORD

PAGE 1-7

0
0
O
0

O
O

J
0
0
N
0

MISCELLANEOUS COUNTERS

COUNT:

_.WORD

ERRPOINT:

ERRCNT:

.WCRD 0

.BLKW

64.

F ORWARD MIDDLE
F ORWARD OUTER

REVERSE INNER
REVERSE MIDDLE
REVERSE OUTER
F ORWARD INNER
FORWARD OUTER

REVERSE

INNER

REVERSE OUTER

REVERSE

150.
550.
1000.
250.

FORWARD INNER

F ORWARD

.WORD
.WORD

CYLINDER
UPPER
CYLINDEE
UPPE
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER

ERRVEC:
PASCNT:

SEQ 0045

JEXPECTED TIME ONE CYLINDER

JEXPECTED TIME 128 CYLINDER
;EXPECTED TIME 256 CYLINDER

;EXPECTED ROTATION TIME
sERROR VECTOR USED WHEN AUTO SIZING

;PASS COUNTER (LOCAL TO A TEST)
;A COUNTER (LOCAL TO A TEST)
;ERROR POINTER
:STORAGE FOR ERROR COUNTERS

PASNUM:
PSETNM:

.WORD
.WORD

0
0

;PASS NUMBER FOR PROGRAM

TRPFLG:
PWRFLG:

.WORD
.WORD

0
0

sHARDWARE TRAP OCCURANCE
;POWER FAILURE OCCURANCE

LOCERR:
NOERCT:

.BYTE
.BYTE

0
0

;COUNTER FOR PARAMETER SET NUMBER IN USE
sLOCAL ERROR COUNTER
sINHIBIT ERROR COUNTING FLAG

003074

BSFVAL:

BAD SECTOR TABLES AND POINTERS
.WORD

;BAD SECTORS FILES VALID FLAG

003076
003272

SBSFIL:
FBSFIL:

.BLKW
.BLKW

76
76

;FACTORY BAD SECTOR FILE

000200
000200

IBUFF:
OBUFF:

.BLKW
.BLKW

200
200

s INPUT BUFFER
sOUTPUT BUFFER

000000

PAT1:
PAT?:

.WORD
.WORD

0
177772

JPATTERN 1

. WORD

1727777

003466
066

177772

177777

.WORD

1\777

:SOF TWARE BAD SECTOR FILE

(ALL ZEROS)

ASSEMBLY RQUTINES

CZRLCB.PTT
409
410
611
612
413

414
415
416
417
418
419

004476
004500
004502
004504
004506

004510
004512
00514
004516
004520
004522

420
25‘1?

004524
004526

423
424
425
426

004530
004532
004534
004536

429
430
431
432

004544
004546
004550
004552

427
428

433
434
435
436
437

004540
004542

25-0CT-78 13:12

000003
000000

177777
177777

440
461
442

004570
004572
004574

025252
052525
052525

464

004600

125252

:gg

457
458

004626

004630
004632

PAT3:

177777
177777
177777

004566

004602
004604
004
004610
004612
004614
004616
004620
004622
004626

.WORD
.WORD
.WORD
.WORD
.WORD

172765

2%3

445
446
447
448
449
45C
451
452
453
454

22-NOV-78

052525
052525
177777
052525
177252
177252
172765

177777
000000

004576

30A(105¢2)

052525
052525
052525
177777
177777

004554
004556
004560
004562
004564

443

MACY11

177777

FATG:

125252

PATS:

004634

066666

461
462

004636
004640

121105
150442

PATE:

W66

004644

463

004642

064221

132110

172765
172765

.WORD
.WORD
.WORD
.WORD

000003
0C0000
000000
177777

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

177777
177777
000000
000000
177777
177777
000000
177777
000000

WORD

177777

1-8

177777
000000

WOky 9 025252
.WORD ¥ 052525
.WORD
052525

125252

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

125252
052525
052525
125252
125252
052525
125252
052525
125252
052525

.WORD
.WORD

153555
133333

.WORD

155555
133333

223

.WORD

125252

052525
052525
052525
177777
177777
052525
052525
177777
052525
177252
177

.WORD

125252
052525
052525
125252
125252
052525
125252
052525
125252
052525

PAGE

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

.WORD
.WORD

177777

16:20

125252

.WORD

0666566

LWORD
LWORD

121105
150442

.WORD

LWORD

(Qc’221

132110

SEQ 0046

ASSEMBLY ROUTINES
MACY1 1
CZRLCB.PTT
25-0C1-78 13:12

465
466
467
468
469

004646
004650
004652
004654
004656

004660
004662
004664

004670
004672

021321
110550
044264
022132
011055
104426

2;3

004676

177777

480
481
483
484
485
486
487
488
489
490
491

004700
004702
004704
004706
004710
004712
004714
004716
004720
004722
004724
004726

045513
122645
151322
064551
132264
055132
026455
113226
045513
122645
151322
064551

493
494
zgg

004732
004734
004736

055132
026455
113226

zgg

004740

125252

ggg

004742

155555

gg}

004744

492

004674

0047

506 004744
507 004744
508 004752
509 004765
510 005002
511
005016
512 005032
513 005046
514
005071
515 005113
516 005127
517 005143
518 005157

519
520
521
522
523

005173
005204
005214
005235
005260

22-NOv-78

055044
026442
0132117
105504
042642

470
471
472
473
474
475

2;9

30A(1052)

16:20

.WORD
WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

042213

I &
PAGE 1-9

055044
026442
013211
105504
042642

021321
110550
044264
022132
011055
104426

.WORD

042213

PAT7:

.WORD

177777

PAT8:

.WORD
LWORD
.WORD
.WORD
LWORD
.WORD

045513
122645
151322
064551
132264
055132
026455
113226
045513
122645
151322
064551

.WORD
.WORD

.WORD
.WORD
WORD
.WORD
.WORD
.WORD

055132
026455
113226

PAT9:

.WORD

125252

PAT10:

.WORD

155555

132264

125
042114
047506
106
047506

045505
042101
040505
052111
052111
020124
044124
052111
051117
052111
042520
051505

046116
042040
020114
046117
020114

000040
042040
020104
020105
020105
052123
042040
020110
032040
020110
040522
046125

020104
053122
020060
021040
051127

BGNMOD
GLBTXT
MSEEK:
.ASCIZ
MREAD:
.ASCIZ
MREADH: .ASCIZ
MWRCHK: .ASCIZ
MWRITE: .ASCIZ
MGTSTA: .ASCIZ
MDATCP: .ASCIZ
MHDRCP: .ASCIZ
M4OHDR: .ASCIZ
MWRSET: .ASCIZ
MOPER:
.ASCIZ
MRSLT:
.ASCIZ

MULOAD: .ASCIZ
MCYLUP: .ASCIZ
MOUTIN: .ASCIZ
MINOUT: ,ASCIZ
MFOLWRT:

132264

ENDMOD
0462523
042522
122
051127
051127
042507
044527
127
106
127
117
122

SEQ 0047

/SEEK /
/READ DATA /
/READ HEADER /
/WRITE CHECK/
/WRITE DATA /
/GE1 STATUS /
/WITH DATA COMPARE /
/WITH HDR COMPARE /
/FOR 40 HDRS/
/WiTH RESET_/
/OPERATION: /
/RESULT:
/

/UNLD DRV/
/LD DRV /
/FOL Q TO (C SEEK/
/77L 255 10 (T SEEK/
LASCIZ
/FOL WRITE (NO SEEK)/

ASSEMBLY ROUTINES

CZRL(CB.PT1
524
525
526
527
528
529
30
531
532
533
534
535
537
538
539
540
561
542
543
34
545
56

547

30A(1052)

22-NOv-78

020112
045104
043040
051040
041040
047101
042101
046440
020123
053122
053111
053122
041514
040502
042114
050115
020120
042040
051117
052116

054503
041440
042127
053105
042101
052047
051440
047101
042101
000075
020105
042040
000123
000
000701
000
047111
047117
020104
050122

MREVSK: .ASCIZ
MFWDSK: .ASCIZ
MFWSKO: .ASCIZ
MRESKO: .ASCIZ
MBADAD: .ASCIZ
MBADSF: .ASCIZ
MFMTER: .ASCIZ
MTMBS:
.ASCIZ
BASADD: .ASCIZ
DRVNAM: .ASCIZ
DRVNAV: .ASCIZ
NOPWR:
.ASCIZ
(SNAM:
_ASCIZ
BANAM:
_ASCIZ
DANAM:
_ASCIZ
MPNAM:
_ASCIZ
LAB1:
.ASCIZ
LAB2:
.ASCIZ
MWORD:
.ASCIZ
MTOSLOW:

051122

042040

MNOCLR:

25-0CT-78 13:12

005304
005337
005372
005426
005462
005503
005533
005
005622
005633
005640
005673
005733
005740
005745
005752
005757
005772
006005
006013

042101
101
045523
045523
047117
103
102
047526
052502
106
051104
106
122
046122
122
046122
117
050117
127
111

006141

105

006032
006062
006115

MACY11

050117
047516
103

020111
044440
052116

042523
052116
051114

548
549

006161
006202

126
047125

046117
050130

041440
052103

554
555

006262
006316

050123
040506

111
051104
104
123
110
122
122
127

042116
046111

044516
020126
053122
042505
020104
020104
020104
(052122

020114
043040

020124
042523
051040
020113
053523
042110
042110
046040

006630
006654
006676
006703
006720
006735
006751
006771
007014
007044
007067

106
052517
047111
047111
047111
047111
047111
042523
106
042522
123
102
127
050123
051127
127

043117
020124
020103
020103
020103
020116
020403

020106
051107
042523
042523
042523
051107
042523

550
552
553
556
557
558
559
561
562
563
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581

006217
006225
006250
006347
006362
006375
006405
006425
006437
006453
006467
006477
006477
006516
006542
006564

040
115
052123

042524
047101
052101

045505
042127
029126
042505
051501
52122
047111
027524
052122

052123
044440
020105

000
047440
051517
020113
041511
051057
046104
042522
046040

16:20

MDRRES: .ASCIZ
MNOINT: .ASCIZ
MCONHNG:
VCNRST:
UNXERR:

.ASCIZ

P2TO9E:
P2T10E:
P2T11E:
P2T12E:
P2T13E:
P2T14E:
P2T1SE:
P2T16E:
P2T17E:

/AD. (YL WRTTN AFTER REV SK/
/ADJ CYL WRTTN AFTER FWD SK/
/SK FWD,WRT = SK REV,OVERWRT/
/SK REV,WRT = SK FWD,OVERWRT/
/ON BAD SEC FILES/
/CAN'T GET BAD SEC FILES/
/BAD SEC FILE FMT ERR/
/TO MANY BAD SEC FOR PROG CAPACITY/
/BUS ADD=/
/DRv=/
/DRIVE UNAVAILABLE FOR TEST/
/DRV DID NOT REC'R FROM PWR FAIL/
/RLCS/
/RLBA/
/RLDA/
/RLMP/
/0P INIT = /
/0P DONE = /
/WORD /
LASCIZ /INTRPT TO LATE/
/OPI SET=NO DRV RESPONSE/
/NO INTRPT ON CMND COMPLETE/
LASCIZ
/CNTLR HUNG (NO RDY)/

/ERR DID NOT CLR/

.ASCIZ
.ASCIZ

/VOL CHK NOT RSET/
/UNXPCTED ERR/

.ASCIZ
.ASCIZ

/SPNDL TIMEOUT FAILED TO SET/
/FAIL FORCING DRV SEL ERR/

TSTLAB: .ASCIZ
MISTST: .ASCIZ
NSTACHG:

SPDERR:
GSTER1:
INITST:
TOSERR:
TO9ERR:
TI10ERR:
T12ERR:
TI13ERR:
T14ERR:
TI16ERR:
P2TO1E:
P2TO2E:
P2TO3E:
P2TO4E:
P2TOSE:
P2TOGE:
P2TOZE:
P2TOBE:

e
J
PAGE 1-10

/ TEST/
/MAN INTERVENT STAT/
LASCIZ
/STATE (HG/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCiZ
.ASCIZ
.ASCIZ
.ASCIZ

/INIT STATE/
/DRV SELECT/
/DRV RDY/
/SEEK SGN SWITCH/
/HD SWITCH/
/RD HDR (P1)/
/RD HDR (P2)/
/WRT LCK/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/DIFF OF 1 SEEK/
/0UT GRD BAND DETECT/
/INC SEEK FWD HD 0/
/INC SEEK REV HD 0/
/INC SEEK FWD HD 1/
/INN GRD BAND DETECT/
/INC SEEK REV HD 1/

/SEEK/
/FWD 0SC SEEK/
/REV 0SC SEFK/
/SEEK TIMING/
/BASIC READ DATA/
EGWRT/READ DATA (P1)R
/SPINDLE ROTATION TIMING/
B&wRT/READ DATA (P2)&
/WRT LCK ERR AND DATA PROTECTION/

SEQ 0048

MACY111

30A(1052)

101
053117
042523
050123
050
050101
047111
044515
117
105
030060
030060
031061
031061
032462
032462

045104
051105
045505
047111
052123
051120
042516
040104
050125
050130
020061
020061
020070
020070
020065
020065

041440
051127
052040
046104
052101
054117
000122
042514
051105
041505
054503
054503
054503
054503
054503
054503

103

046131

ASSEMBLY ROUTINES

CZRLCB.PT1

582
583
584
585
587
588
589
590
591
592

593
595

597
598
600
601
602
603
605
606
607
608
610

611
612
613
614
616

617

007127
007154
007166
007202
007231
007270
007300
007306
007315
007323
007334
007350
007364
007400
007414
007430

25-0CT=78 13:12

007444

042110

007567
007652
007724

110
054526
041101

007503

22-NOV-78

P2T18E:
P2T19€:
SKTMES:
SRTMES:
VALDES:
MAPROX:
LABIN:
LABMID:
LABOUT:
LABEXP:
LABOCF:
LABOCR:
LABHCF:
LABHCR:
LABACF:
LABACR:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/WAS LOAD DEPRESSED/
/CHK DRV IS UNLDED, COVER OPN, AND WRTE LCKED /
/CLSE COVER & RST WRT L(K /
/PRESS LOAD /
/PRESS LOAD & WAIT FOR LOAD LIGHT /
/PRESS LOAD & WAIT FOR RDY /

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/INSRT ADD PLG /
/IN ALL DRVS /
/INSUFFICIENT DRVS FOR DRV SEL ERR TST/
/RPLCE ADD PLGS AS BEFORE/
/RESET WRT LCK /

040505
042520
053117

020104
021040
020105

HAMES1:
HAMES2:
OPROD2:

.ASCIZ
.ASCIZ
.ASCIZ

046040
051104
041440
020123
020123
020123

OPROO3:
OPR1:
OPR2:
OPR3:
OPR5:
OPR6:

010244
010263
010300
010346
010377

047111
111
047111
050122
122

051173
020116
052523
041514
051505

020124
046101
043106
020105
052105

OPR8:
OPR9:
OPR10:
OPR11:
OPR12:

047117

/CYL PORTION OF HDRS DIFFER WHEN READ FROM TRK 0 & 1/

.ASCIZ

CYLPER:

051501
020113
042523
051505
051505
051505

010416

.ASCIZ

HDMOVF:

127
044103
046103
051120
051120
051120
122

/AD) CYL INTERFERENCE/
/OVERWRITE/
/SEEK TIMES /
/SPINDLE ROTATION TIME /
/(STATED IN 100°S OF MICRO SEC)/
/APPROX /
/INNER/
/MIDDLE/
/OUTER/
/EXPECTED/
/001 CYL FWD/
/001 CYL REV/
/128 CYL FWD/
/128 CYL REV/
/255 CYL FWD/
/255 CYL REV/

040506

050040

046505

618
619
620
621
622
623
654
625
626
627
628
629
630
631

010422
010432
010445
010462
010470
010475
010501
010506
010513
010521
010534
010577
010610
010666

047117
047125
123
044504
043523
110
123
054503
106
040
047522
104
040502
047524

042040
042504
052105
043106
020116
020104
041505
020114
047522
054502
052125
053122
020104
020126

633
63
635
636
637
638
639

010711
010722
010734
010744
010755
016771

104
047503
042110
040504
110
104

053122
052116
020122
040504
051104
052101

053117

053122
020122
053440
000040

OPR7:

OPR1A:

K &
PAGE 1-11

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

020123

007751
007774
010052
010104
010120
010162
010215

16:20

.ASCIZ

/HDS FAILED TO MOVE IN 10 TRIES/

/HEAD ALIGN. RSET WRT LCK TO SEL HD 0, SET FOR HD 1/
/TYPE "CTL C''
& ''CONT'' TO CONTINUE TESTING/
/ABOVE COND'TIONS MET/

/REMOVE ADD PLGS EXCPT /

/ON /

000
000040
000
020115
20
047111
051440
042523
047503

OPRIB:
UNDTST:
OPRO04:
DIFWD:
SGMWD:
HDWD:
SECWD:
CYLWD:
FRMWD:
BYPSNM:
SEQMES:
STAMES:
BSNSTR:
TCERR:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ

/ON DRV /
/UNDER TEST/
/SET WRT LCK /
/DIFF /
/SGN /
y
/HD /
/SEC /
/CYL /
/FROM /
/ BYPASSED /
/ROUTINE TRACE SEQ (IN SEQ CALLED):/
/DRV STAT/
/BAD SEC FILES NOT STRD. ALL SEC ASSUMED GOOD./
/T0T COMPARE ERRS: /

051040
042440
051103
041440
047040
020101

:
T
MDRDY:
MCERR:
MHCRC:
MDCRC:
MHNF:
MDLT:

RESULT NAMES
.ASCIZ /DRV RDY /
.ASCIZ /CONT ERR /
.ASCIZ /HDR CRC/
.ASCIZ /DATA CRC/
.ASCIZ
/rTMR NOT FND/
.ASCIZ /DATA LATE/

SEQ 0049

ASSEMBLY ROUTINES

CZRLCB.PT1

640
641
643
644
645
646
647
648
650
651
652
653
654
655
656
657
658
659
660

25-0CT-78 13:12

22-NOV-78

16:20

PAGE 1-12

110
104
042523
126
047503
102
051127
110
051104
104
050123
051127
123
110
127
050117
110
042110
047516

051104
053122
042514
046117
042526
052522
020124
051504
020126
053122
047111
020124
042505
040505
052122
044440
0571104
020122
026516

047040
042440
052103
041440
020122
044123
041514
047440
042523
05144C
052040
040507
020113
020104
042040
041516
042057
047516
054105

MHFCRC:
MDRERR:
MHSTA:
MVOLCK:
MCOSTA:
MBHSTA:
MWLSTA:
MHOSTA:
MDSERR:
MDRVST:
MSPERR:
MWGERR:
MSTERR:
MHCERR:
MWDERR:
MOPERR:
MHDERR:
MFLERR:
MNEERR:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

B&HDR NOT FND/HDR CRC/OPIg
/DRV ERR /
/SELECTED HD /
/VOL CHK /
/COVER OPN /
/BRUSH HME /
/WRT L K /
/HDS OUT /
/DRV SEL ERR /
/DRV STATE /
/SPIN TIMEOUT /
/WRT GAT ERR /
/SEEK TIMEOUT /
/HEAD CUR ERR //WRT DAT ERR /
/OP INCOMPLETE /
&HDR/DAT ERR &
&HDR NOT FND/DAT LATE &
/NON-EXSTNT MEM /

011405
011445
011512
011553

103
125
040506
127

052517
045516
046111
044522

042114
020116
052040
042524

MNDRST:
MUNDEF:
MRLFAL:
MWRTAB:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/COULD NOT RETRIEVE DRIVE STATUS/
/UNKN DRV STATE=NO RDY,NO ERR,HDS NUT/
/FAIL TO RELD HDS AFTER ERR CLEAR/
/WRITE ABORTED/

011400

666
667
228

011571
011634
011643

670
671

30A(1052)

011003
011033
011044
011061
011072
011105
011120
011131
011142
011157
011172
011210
011225
017243
011261
011276
011315
011332
011360

661

662
663
664
665

MACY] 1

011647

054503

020114

000

042440
207

051105
051122
177777

020122
051117
000

111

020123

041123

000040

g;%

011653

040

674
675
676
677
678
679
681
683
684
685
686
ggg

011660
011665
011672
011702
011712
011722
011742
011755
011763
011774
012006

044440
040
052123
052123
052123
042523
044506
065
103
040504
020065

020116
043117
052101
052101
052101
045505
051522
030060
041531
040524
042523

000
000040
020105
020105
020105
053440
020124
051515
042514
054040
042103

689
690
691
692
693
694
695
696
697
698
699

012016
012045
012067
012110
012115
012124
012127
012132
012143
012163
012225

047045
045
045
052045
045
052045
045
047045
045
045
045

052045
022516
022516
052045
022516
0
000116
052045
022516
022516
022516

047045
022524
022524
000
022524

052045
022524
030523
022524

mMCYLOC:

MEXERS:
MERRS:
BELL:
:
RESE3:

RESE4:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

/CYL /

/ ERR LIMIT EXCEEDED = UNIT DROPPED/
/ ERROR/
<207><377><377>

RESULT SETTINGS
.ASCIZ
/1S /

.ASCIZ

/ SB /

:
RESULT CONDITIONS
RESES5:
.ASCIZ
/ IN/
RESE6:
.ASCIZ / OF /
STATE2: .ASCIZ
/STATE 2/
STATE3: .ASCIZ /STATE 3/
STATES: .ASCIZ
/STATE 5/
CDRDY:
.ASCIZ &SEEK W/0 MOTIONE
CI10MS:
.ASCIZ
/FIRST 3 MS/
(C500MS: .ASCIZ
/500MS/
CCYLUP: .ASCIZ
/CYCLE UP/
CAFDT:
.ASCIZ
/DATA XFER/
CSSEC:
.ASCIZ
/5 SECDS/
FMTOP1:
FMTOP2:
FMTOP3:
FMT1:
FMT1.1:
FMT2:
FMT3:
FMT4:
FMTS
FMT6:
FMT7:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
ASCIZ
ASCIZ
ASCIZ
LASCIZ
ASCIZ

/INXTINXTXTXO06%SZT%01%N/
/INXTX01%S1%T%01%N/
/ANXTXO1%S1XTXTIN/
/%X7%T/
/ANXTXT/
/%T/
/aN/
/ANXTATZN/
/INXTX06%S1%7%01/
/aMAST1XTXSAXTASAATXSLXTASLRTXS2%T/
/ANXTX06%S2%06%52%06%S2%06%S3%03%S2%01
%N/

SEQ 0050

ASSEMBLY ROUTINES

CZRLCB.PTY

700
701
702
703
704
705
706
707
708

012275
012327
012334
012342
012350
012414
012446
012502
012513
012535

710
711
712
713
714
715
716
717
718
719

012567
012624
012654
012677
012733
012747
012754
012764
013010
013027

726
727

013040

;g(s)

013040

MACY1 1

30A(1052)

022516
022516
047445
047445
051445
052045
051445

022524
000124
1
000063
030461
052045
030461
022465
022460
030523

25-0CT-78 13:12

045
045
052045
052045
047045
047045
047045
047045
045
045
045
052045
052045
045

045
045
047045
047045
047045
045

;sg

051445
030523
022516

022524
051445
051445
022516
022524
022516
042045
051445
052045
022516

031123
022462
031061
030523
022524
000124
(022462
022461
042045
022524

22-NOV-78

FMT8:
FMT9:
FMT11:
FMT12:
FMT13:
FMT14:
FMT15:

FMT16:
FMT17:
FMT18:

733

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

L
PAGE 1-13

/INXTX06%S2%06%S2%06%52%06/
/INXT/
/%T%01/
/%TX03/
/INXS11%TX03XS1¥TX03XS1%XTX01%S1%T%01/
/ZINXTXTZD3XS1XTX06%S1%T%06/
/INXST11XTZD3%S1XTX06%S1%T206/

FMT19:
FMT20:
FMT21:
FMT22:
FMT23:
FMT24:
FMT2S:
FMT26:
FMT27:
FMT28:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/INXSS5X06/
/%S10XTINXS11%06IN/
/INXS13XTZSSXTAS4XTXSSXTIN/
/%TXS2XD6XS4XDEXSLXDEXS4IDOIN/
/%TXS2XD6XS14XD62S4IDO6IN/
/%TXS12%D6XS14XD6IN/
/INXS11XTX03XS:%T201%S1%T%02/

BGNMOD
:

GLBERR
ERR1

R3 POINTS TO RESULT MESSAGE

:
:

ERR?2

R3 POINTS TC RESULT NAME
RESULT: (R3) IS 1 SB 0

ENDMOD
:

730
;%;

16:20

/XTXTXTXO1IN/
/INXT/
/INXD2XT/
/ZIN%STETEDLXTXTED3XN/
/INXTXD3XTXD3IN/
/ANXTXTXT/

FZSULT: (R3)

;%g

ERR3

R3 POINTS TO RESULT NAME

736
737

:
:

ERR%

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS

740
741

ERRS

;2%

:
:

744
745

;
:

ERRG

748

ERR7

;;g

;29

750

;g;

753

758

:
’

RESULT ROUTINE DETERMINES WHICH ERROR(S) ARE SET AND
REPORTS ALL

RESULT: '"ERROR'' IS 1 SB 0

DRIVE STATE ERROR REPORT

R3 CONTAINS EXPECTED STATE
T.STAT CONTAINS BAD STATE

:
:

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS

RESULT: (R3) IS 0 SB 1 (R4)

754
755

;gg

RESULT: (R3) IS 1 SB 0 (R4)

749

RESULT: (R3) IS 0 SB 1

RESULT: DRIVE STATE IS (T.STAT, S8 (R3)
ERR8

HEAD POSITIONING ERROR REPORT

NEWCYL CONTAINS EXPECTED CYLINDER
HDWRD1 CONTAINS BAD CYLINDER

RESULT: CYLINDER IS (HDWRD1) SB (NEWCYL)

ENR9

UTILITY RESULT REPORT
R3 POINTS TO RESULT NAME

SEQ 0051

ASSEMBLY ROUTINES

CZRLCB.PT1

MACY11

25<0CT-78 13:12

30A(1052)

22-NOV=78%

761
;g%

:
:

764
765
766
767
;23

;
:
:

770
771
772
773
776
775
776
777
778
779
780
781
782
783
(3)

;gz

013104

785

013106

787
788
789

013112
013114
013120

786

790

791

013106

013124

013126

105727 003067
001002
005277
167606
010146
004737 021516
012721
000001
010321
004737

004737
012601
004737

000001

004737

005021

794

013140

004737

795
79
797
(3)

013134

013144
013146
013152
013152

012601
004737

;3§

013152

799
800
801
802

013154
013154
013160

013162

005277
010146
004737

804

013172

010321

803

013166

012721

RS POINTS TO GOOD WORD
RESULT: WORD (R3) IS (R4)

ERR1
TSTB
BNE
INC
MOV
JSR
MOV
MOV
JSR
JSR
MOV
JSR

EMT
ERR2

INC

NOERCT
1%
SERRPOINT
R1,=(SP)
PC.RPTOP
#1.(R1)+
R3. (R1) +
PC.RPTRES

PC .RPTREM
(SP)+,R1
PC, CKERLM

:INSERT NAME ADD POINTER

022304

JSR

PC.RPTRES

016122

MOV
JSR

(SP)+,R1
PC,CKERLM

EMT

(SMSG

JSR

ENDMSG

L10001:

167500

BGNMSG

021516

ERR3
INC
MOV

JSR

PC.RPTREM

*REPORT REMAINDER

R3.(R1)+

*INSERT NAME ADD POINTER

022512

JSR
MOV
JSR

PC .RPTREM
(SPY+,R1
PC,TKERLM

022304

016122

JSR

ENDMSG

*RESTORE R1
*GO CHECK IF ERROR COUNT EXCEEDED

:BUMP ERROR COUNT
*STORE R1
*REPORT OPERATION

004737
012601
004737

004737

*REPORT RESULTS

QERRPOINT
R1,-(SP)
PC.RPTOP

#1,(R1)+

013202

“SET IS VALUE

*SET SB VALUE

MOV

CLR

*STORE R1
*REPORT OPERATION
*SET PARAM NUMBER

(R1)+

000001

MOV

*REPORT REMAINDER
*RESTORE R1
GO CHECK IF ERROR COUNT EXCEEDED

R3.(R1)+

#1.(R1)+

022512

*REPORT RESULTS

:BUMP ERROR. COUNT

MOV

(LR

e
;
;TEST IF ERROR COUNTING INHIBITED
*YES = SKIP
*ELSE BUMP ERROR COUNT
*STORE
R1
:REPORT OPERATION
*SET PARAM NUMBER
+ INSERT HESSAGE ADDRESS POINTER

RERRPOINT

R1,=(SP)
PC .RPTOP
#3.(R1)+

MOV

SB (RS)

CSMSG

012721

807

013206
013212
013214
013220

BGNMSG

SEQ 0052

COMPARE ERROR REPORT
R3 CONTAINS THE BAD WORD NUMBER
R4 POINTS TO BAD WORD

MOV

005021

808
809
810
811

ERR10

000003

013174

012176

ENDMSG
L10000:

R4 POINTS TO VALUE 1

MOV
JSR
MOV

104023

805

806

167546

012721

013132

793

016122

021516
000003

792

1§

022512

010146
004737
012721

010321

B
& ..,

022304

104023
005277

BGNMSG

PAGE 1-14

RS POINTS TO VALUE 2
RESULT: (R3-NAME) IS (R4=VALUE 1) SB (RS=VALUE 2)

:
:

013040
013040
013044
013046
013052
013054
013060
013064
013066
013072
013076
013700
013104
013104

16:20

#3.(R1)+

*SET PARAM NUMBER

(R1)+

*SET IS VALUE

PC.RPTRES

*REPORT RESULTS .

*SET SB VALUE

*REPORT REMAINDER
*RESTORE R1
*GO CHECK IF ERROR COUNT EXCEEDED

ASSEMBLY ROUT INES

MACY11 30A(1052)
25-0CT-78 13:12

lelelelelelelelelele R -] o
D

—

L10002:
BGNMSG

#1.(R1)+

R3.(R1)+

(R1)+

R4, (R1)

022304
022512

PC.RPTRES
PC.RPTREM

016122

PC.,CKERLM

(SP)+ R1

L10C03:

BGNMSG

167362

R3,(R1)+

(R1)+
#1,(R1)+
R4, (R1)
PC ,RPTRES

PC ,RPTREM

(SP)+,R1

016122

ENDMSG

L10004:

104023

BGNMSG

003067
167304

17%:

021516

PC,CKERLM

NOERCT
17%
@ERRPOINT
R1,=(SP)
R3,-(SP)
R&.-(SP)
RS,=(SP)
#3,(R1)+
#1,2(R1)
TEMP3
T.CS,R3

#177761.R3

000003
000004
002454

000004

;BUMP ERROR COUNT

;STORE R1
sREPORT OPERATION
:SET_PARAM NUMBER
: INSERT NAME ADD POINTER
sSET IS VALUE
;SET _SB VALUE
- INSERT ADD OF CONDITION POINTER

sREPORT RESULTS
sREPORT REMAINDER

JRESTORE R1
;GO CHECK IF FRROR COUNT EXCEEDED

;BUMP ERROR COUNT
.STORE R1

;REPORT OPERATION
;SET PARAM NUMBER
s INSERT NAME ADD POINTER
JSET IS VALUE
;SET SB VALUE
;INSERT ADD OF CONDITION POINTER
;REPORT RESULTS
;REPORT REMAINDER
JRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

C$MSG

PC.RPTOP

000002

FRERE

@ERRPOINT
R1,=-(SP)

#4,(R1)+

022304
022512

SEQ 0053

C$MSG

PC,RPTOP

000001

@ERRPOINT
R1,=(SP)

000001

ENDMSG

CSMSG

000004

021516
000004

PAGE 1-15

PC.RPTOP
#4.(R1)+

013270

013272
013272

16:20

021516

—

167432

13252

lelelelelele

VBN
N W
N —

RRR e de de o 9o 9 B e
823

—_

(3)

KIS

CZRLCB.PTY

22-NOv-78

#4 ,R3
1%

sTEST IF ERROR COUNTING INHIBITED
;YES = SKIP
;ELSE BUMP ERROR COUNT

;STORE R1
:STORE R3
:STORE R4
:STORE RS
sREPORT OPERATION
:SET _PARAM NUMBER
s INSERT IS VALUE
;CLEAR FOR STATUS STORAGE
;GET T.CS
sAND CLEAR ALL BUT FUNCTION
sCHECK IF IT WAS GET STATUS
: YE S = STATUS

IS IN T.MP,

#GETSTAT ,RLDA(R2) ;ELSE DO GET STATUS

#s ,R

RLDRV,R3

SKIP

ASSEMBLY ROUTINE
CY11
CZRLCB.PT1
2s-ocr-7a 13 12

862 013442

863

013446

(3)
(3)
-864
865
866
867
868
869
870
871
872

01346
013452
013454
013462
013464
013470
013472
013476
013502
013506
013510

874

876

873
875

877

878
879
880
881
882

883
884

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

(3)

000000

MOV

032700
104027

000012

MOV
EMT

032762
001003

013520

013704

013530

050403

013524

042703

042704

000200

013560
013564
013566
013572
013576

013602

108:

002475

1$:

002466

2%:

MOV

177442

13¢:

001777

011276

012746
010446
012746
012746
012746

011634

010000

.
1008:

005157
013027
000004

104014
062706

000012

886

013614

012704

010734

105$:

888
889
890
891
892

013622
(013626
013630
013634
013636

032703
001003
012704
000751
012704

004000

1078:

89%
895
89
897
898
899
900
901
902
903
904
905

013644
013650
013652
013656
013660
013664
013666
013672
013674
013700
013702
013704

032703
001403
012704
000740
032703
001403
012704
000732
012705
005004
030503
001005

000430

887 013620 000757

893

013642

000746

% 8%;?8 005724
000241

010755

011003

1098:

004000

1158:

010744

010000

118%:

010771
100000

1208:
3$:

R3,RLCS(R2)

#10.

#10..R0
CSWTU

#BIT9,R3
28
RLMP(R2) ,R3
R3, TEMP3
TEMP3+1.R3
13$
T.MP+1,R3

#177442 ,R3
T.CS, R4

BIT

#OPIERR ,R3

BNE

MOV
PRINTB

SEQ 0054

R4 ,R3

e r 1158, .
. D .
#HNFERR ,R3
107%
#HCRCERR,R3
105%

*ELSE SET NO DRIVE STATUS BIT
*IN MESSAGE WORD AND SKIP
*STORE STATUS FOR REPORT

:GET ERROR BITS IN PROPER POSITION

;GET ERROR BITS FROM MP REG

*CLEAR UNUSED BITS

*GET ERROR BITS FROM CS REG

*CLEAR UNUSED BITS

*MAKE ONE WORD OF POSSIBLE ERRORS

“TEST IF OPI SET

MO
=. SKIP
*TEST IF HDR NOT FOUND ERROR
*YES -.SKIP
*TEST IF HDR CRC ERR
*YES - SKIP

#MOPERR, R4
*SET OPI ALONE MESSAGE
#FMT28, #HRSLT R4.#MERRS ;REPORT ERROR

MOV
MOV
MOV
MOV
MOV

#MERRS- - (SP)
R4, =(SP)
#MRSLT
, - (SP)
HFMT28
.- (SP)
#4,-(SP)

EMT
ADD

CSPNTB
#12,5P

MOV

#MHCRC R4

*HDR CRC MESSAGE

BIT
BNE
MOV
BR
MOV

#HCRCERR,R3
109%
AMHNF R4
1008
#MHF CRC R4

;TEST IF HCRC WITH HDR NOT FND
*YES - SKIP
*MESSAGE HEADER NOT FOUND

BIT
BEQ
MOV
BR
BIT
BEQ
MOV
BR
MoV
CLR
BIT
BNE

#DCKERR,R3
1188
#MDCRC ,R4
100%
#DLTERR ,R3
120%
#MOLT R4
1008
#BIT15.RS
R4
RS ,A3
6%

*TEST IF DATA CHECK SET. NOT OPI
INO - SKIP
*SET MESSAGE DATA CHECK
*SKIP
*TEST IF DATA LATE ERROR
‘NO - SKIP
SSET MESSAGE DATA LATE
*SKIP
*SET BIT POINTER FOR TEST
*CLEAR R4 FOR TABLE COUNT
“TEST IF BIT IS SET
*YES - SKIP TO REPORT

B8R

TST

cLc

SP.RO

120%

1008

(R )+

;WAIT FOR CONTROLLER READY

#CRDYMSK ,RLCS (R2)
;TEST IF READY
108
:YES - SKIP

#1777 R4

BEQBIT
BNE
BIT

PAGE 1-16

BIC

MOV

013606
013606

013612

BIC
BIS

(4)
(4)

885

BIT
BNE

000006
002546
002547

012704

010600

—

MOV
BR
MOV
MOV
MOVB
BR
MOVB

004000

001020

000000
98:

001442
032703
001026
032703

16:20

walTus

001000

013532 032703 002000

013536
013540
013544
013546
013552
013554
013560

22-NOV-78

010362

012703
000413
016203
010337
113703
000402
113703

013514

30A(1052)

:SKIP

;HNF AND HCRC MESSAGE

*SKIP

*ELSE BUMP TABLE POINTER
:CLEAR CARRY

ASSEMBLY ROUT INE S
MACY11
CZRLCB.PTT
25-0CT-78 13:12

OO0 O00

00600
001372
0004

005737
001414
013746
012746
012746
012746

002174
022304
022512
002546
002546
010577
012513
000003
000010
004000

002000

002436
000200
000001
004066
003466
002436

30A(1052)

D 5
PAGE 1-17

22-NOV-78

16:20

ROR
BNE
BR
MOV
JSR

sSHIFT BIT POINTER TO NEXT BIT

’$
RESTBL
(R4) ,(R1)

:ELSE_REPORT REMAINDER
;INSERT NAME ADDRESS

SEQ 0055

:LOOP IF NOT 0

PC,.RPTRES

:REPORT RESULTS

PC ,RPTREM

sREPORT REMAINDER

TEMP3
15%

:GET NEXT BIT

TEST IF ANY NEW STATUS

#FMT17 ASTAMES, TEFP3

- SKIP

TEMP3,~(SP)

#STAMES, = (SP)

HFMT17,=(SP)
#3,-(SP)

SP,R0

CSPNTB

#10,SP

#DCKERR,T.CS
25%
#OPIERR,T.CS
25%
MORECE

;TEST IF DATA CHECK ERROR
:NO
= SKIP
sTEST IF OPI SET
:YES = SKIP
:CLEAR COMPARE ERROR COUNT

#OBUFF RS

;SET GOOD WORD POINTER

#128. .R1
#1,R3

#1BUFF ,R4

(R5), (R&)
19%

MORECE ,#10.
20%

sSET COMPARE LENGTH
sSET WORD COUNT

;SET TEST WORD POINTER

s CHECK WORD
.GOOD - SKIP

sTEST IF COMPARE LIMIT REACHED
;YES = _SKIP

#FMT15, #MWORD ,R3, #RESE
3, (R4) ,ARESE4, (RS)

#RESE3,=(SP)
R3,-(SP)

006005
012446
000007

#FMT15,-(SP)
#7,-(SP)

000020
002436

MORE CE

#MWORD
, - (SP)

SP,RO
CSPNTE

#20,SP

(R5)+,(R4)+

R3
002436

000200
011665
002436
010666
013010

NGO

NWWNININ)
= —

Y
Rl

NN
BB D

b
b
i

s RS S

i
i e

i
cnd can

e
S

oD o
i

i cd e

elelelelelelelelelololalalelolels

011647

(R5) ,=(SP)

#RESE4 = (SP)
(R&) ,=(SP)

;BUMP ERROR COUNTER

;BUMF POINTERS

BU'P COUNTER
S.N.8.
8,

011653

arnr??lTCERR MOR
#128

R1,-(SP)
#RESE6,
= (SP)
CE ,=(SP)
MORE
#7 ERR.=(SP)
#FMT27
. =(SP)

C LENGTH COUNT
OP IF NOT DONE
ST
éFIANY COMPARE ERRORS
T
COMPARE LENGTH

E,#RESEG R

22-N0OvV-78

MACY11 30A(1052)
25-0CT-78 13:12

ASSEMBLY ROUTINES

CZRLCB.PTT

012746
10600

016122

#14,5P

27%:

ENDMSG

BGNMSG

014270

166364

BGNMSG

021516

QERRPOINT
R1,-(SP)

;BUMP ERROR COUNT

:STORE R1

3%:

+REPORT OPERATION
:SET _PARAM NUMBER

s INSERT NAME ADD POINTER
: INSERT IS VALUE

; INSERT SB_VALUE

PC ,RPTRES
PC ,RPTREM
(SP)+,R1
PC,CKERLM

sREPORT RESULTS

+REPORT REMAINDER

sRESTORE R1
;GO CHECK IF ERROR COUNT EXCEcDED

C$MSG
@ERRPOINT
R1,-(SP)
R3,-(SP)

:BUMP ERROR COUNT

#3,(R1)+
#MCYLOC, (R1)+
HDWRD1, (R1)
#7,R3

:SET _PARAM NUMBER

PC,RPTOP

:STORE R]
:STORE R3
;REPORT OPERATION

s INSERT NAME ADD POINTER
;GET HEADER WORD
sSET SHIFT COUNT
;ALIGN CHAR FOR PRINTING

:
(R1)+
NEWCYL, (R1)
PC,RPTRES
PC ,RPTREM

002524
022304
022512

104023

005277
0101746

166270

~NO

016122

(SP)+,R3

(SP)+ ,R1

014274

L10006:

007:

964

ENDMSG

C$MSG

R3,(R1)

’_ TMm

014270

;GO CHECK IF ERROR COUNT EXCEEDED

#MDRVST, (R1)+
T.STAT,(R1)+

022304
022512

962

PC, CKERLM

#3,(R1)+

002502

014266

;RESTORE RS, 4, 3,

PC ,RPTOP

011157

(3)

(SP3+,RS

(SP)+.R4
(SP)+.R3
(SP) +.R1

021516
000003

016122

SEQ 0056

SP,RO
CSANTR

L10005:

166434

PAGE 1-18

#5,-(SP)

000005
000014

16: 20

BGNMSG

PC,CKERLM

AS IS VALUE

;BUMP PARAM POINTER
s INSERT SB VALUE
sREPORT RESULTS
sREPORT REMAINDER

JRESTORE R3
;RESTORE R1

.GO CHECK IF ERROR COUNT EXCEEDED

CMSG
L "RPOINT
R1,=(SP)

JBUMP ERROR COUNT
s5TORE R

ASSEMBLY ROUTINES

CZRLCB.PTT

987

014372
014376
014402
014404
014406
014410
014414
014420
014422
014426

25-0CT-78

SEQ 0057

004737

PC.RPTOP

sREPORT OPERATION

R4, (R1)+
RTM (R1)+

JSET IS VALUE
:SET SB VALUE

(SP)+,R1

;RESTORE R1

#3,(R1)+
R3,(R1)+

F..RPTRES
PC,RPTREM

016122

ENDMSG
L10010:
BGNMSG

888

002436

23
—3

b —

)

3 —) — )

i lelelelelelele)]

R1,=(SP)

AERRPOINT

166214

sREPORT RESULTS
sREPORT REMAINDER
;GO CHECK

ERROR COUNT EXCEEDED

CSMSG
MORE CE
3s

021516

011546
01274¢
011446
012746
010346
012746
012746
012746
012746
: 0600

PC,CKERLM

:SET_PARAM NUMBER
s INSERT NAME ADD POINTER

PC ,RPTOP

;STORE R1

;TEST IF 2ND BAD LINE
;YES = SKIP

;BUMP ERROR COUNT

;REPORT OPERATION

#ig;;.CBASADD.RLBAS.ODRVNAM.<B.RLDRV*1> ;REPORT ID

002455
005633
002450
005622
012143
000005

RLDRY+1, (SP)
#DRVNAM,
- (SP)
RLBAS,=(SP)
, = (SP)
#BASADD
#FMTS5,-(SP)
#5,<(SP)

000014

#14,SP
H#FMT14 ,#MRSLT ,#MWORD ,R3 ,#RESE 3, (R4) ,#RESES, (RS)

011653
011647

#RESE4 ,-(SP)
(R4) ,=(SP)
#RESE3,=(SP)

006005
005157
012414
000010

A#MWORD
, = (SP)
#MRSLT ,-(SP)
H#FMT14,-(SP)
#10,-(SP)

SP,RO
CSPNTB

(R5) ,=(SP)

R3,-(SP)

SP,RO
CSPNTB

000022
38

011653

?;?}15;gg?ORD,R3,#RESE3.(Ré),fiRESEé,(RS)

#RESE4
- (SP)
(R4) ,=(SP)

011647

#RESE3,~(SP)
R3,=(SP)

006005
012446
000007

000020
002436

(SP)
, =RD
#MWO

#FMT15,-(SP)
#7,-(SP)

SP,RO
($PNTR

4%:

#:7,SP
MORE CE

s iNC

COMPARE ERROR C(OUNT

;REPORT DATA

ASSEMBLY ROUTINES

CZRL(B.PTT
1008
1009
1010

(3)
(3)
1911
1012

014630
014632
014636

014636
014636
014640

1013
1014
1015

014640
014640

1016

014642

(3)

25-0CT=-78 13:12
012601
004737

30A(1052)

22-NOv-78

016122

16:20

PAGE

MOV
JSR

(SP)+,R1
PC,CKERLM

EMT

C$MSG

1-20

SEQ 0058
sRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

ENDMSG

L10011:

104023

014640

000005

1017
1018
1019
1020
1021

014644
014646
014650
014652
014654
014654
014654

000160
000240
000000
000001

1024
1025
(3)
1026
1027
1028

014654
014654
014654
014656

(3)
}8%%

MACY11

ENDMOD
BGNMOD
BGNHW

174400

.EVEN
HPTCODE

.WORD

L10012-L$HW/2

.WORD
.WORD
.WORD
.WORD

160
240
0
1

.WORD

t NDHW

174400

:CSR_BASE ADDRESS DEFAULT

;VECTOR DEFAULT
sPRIORITY DEFAULT
:DRIVE NUMBER DEFAULT
JRL11T CONTROLLER

L10012:
ENDMOD

000006
000000

BGNMOD
BGNSW

SPTCODE

MISWIW:

.WORD

L10013-L$Sw/?2

;BIT Q0 = USE ALL CYLINDERS

;BIT 1 = USE ALL SECTORS

;BIT 2 = EXECUTE DRIVE SELECT TEST

1029
1030

;BIT 3 = EXECUTE HEAD ALIGNMENT
;BIT 4 = DROP DRIVE IF NO RESPONSE

1032
1033
1034

;BIT 13 = HILIMIT SPECIFIED FLAG
;BIT 14 = LO LIMIT SPECIFIED FLAG
;BIT 15 = DO MANUAL INTERVENTION

1031

1035
1036

1037
1038

;BIT 12 = HEAD SELECT SUPPLIED FLAG

014660
014662

000000
000377

LOLIMW:
HILIMW:

.WORD
.WORD

000012

CCLIMW:
ENDSW
L10013:

.WORD

1039
1040
(3)

014664
014666
014670
(C14672
014672

014672

ENDMOD

1043
1045

014672
014672

BGNMOD
DSPCODE
DISPATCH

}82;

(&)

014672

000000
000024

HEADW:
ERLIMW:

000016

.WORD
.WORD

O
255.

0
20.
10.

.WORD

(6)
(6)

014674
014676

022776
023246

LWORD
.WORD

T
T2

(6)
(6)
(6)

014702
014704
014706

024704
025512
026116

.WORD
.WORD
.WORD

T4
TS
T6

(6)

(6)
(6)
(6)

014700

014710
014712
Q14714

026770
027302
027366

014720

030210

(6)

014716

014722

(6)

023450

027666

030642

.WORD

.WORD
.WORD
.WORD

LWORD

JERROR LIMIT
s COMPARE ERROR LIMIT

LWORD

17
T8
19

T10

T12

——

—

| ASSEMBLY ROUTINES
MACY 1 1
CZRL(B.PT
25-0C"-78 3:12

014724
014726
014730
014730
014730
014730
014730
014734
014736
014736
014740
014740
014742
014750
014754
014754
014760
014762
014762
014764
014772

;

30A(1052)

031160
031372

012700
104041

22-NOV-78

BGNMOD
INITCODE
BGNINIT
SETPRI
#340

000340

MOV
EMT

MANUAL

100014

005037

002424

012700

000024

013737
000531

002012

012700

000040

104050

014656
18:

003072

4%:

103043

013737

002516

RSTRT:

I35
rnornornooonnnNoO

S
P

000377
040000
014660

—d B

R
Y
JES Y
i
B N e

PNONUNOMNON)
=

ey
e
e
e R
R
I
B

R ARV L LV LW TV LV LV LV, LV, IV, ]

—Y

014656

lelelelelelolalelololele]

($SPRI

014662
014656

3%:
5%:

RESTART-

012700 * 000037
104050

INTERVENTION ALLOWED

BIC

1%
#MITEST !DRSELT .HDALIGN
MISWIW ;CLEAR ALL MANUAL

(LR
READEF
MOV

SSINDX
#EF .PWR
#EF .PWR,RO

;YES - SKIP

. INTERVENTION FLAGS

;CLEAR SUBROUTINE STACK INDEX
;POWER FAILURE

EMT
CSREFG
S?EOMPLEZE 48

:NO, GO CHECK NEW PASS

MOV
BR

;SET POWER FAIL FLAG
.GO_SERVICE POWER FAIL

READEF

LSUNIT ,PWRFLG
PWCON

#EF .START

sCHECK

START

MOV
#EF .START
RO
EMT
CSREFG
BNCOMPLETE
RESTART ;NO - SKIP
8CC
RESTART
ON START INITIALIZE TO START AT FIRST DRIVE,
AND ERROR COUNT.

CLEAR INTERNAL

MOV
(LR
MoV
MOV
g%?

%SUNIT.DRVCNT
A
#ERRCNT
RO
#64. R1
é?O)*

BNE
MOV
MOV
MOV
BIT
BNE

1%
;LOOP TILL ALL CLEARED
#ERRCNT=2 ,ERRPOINT ;INIT ERROR POINTER
#=1_PSETNM
sSET PARAM SELECT TO INITIAL VALUE
#-1,HADONE
sPRESET HEAD ALIGN DONE FLAG
AHICYL MISWIW
;TEST IF HI LIMIT SET
3%
;YES - SKIP

BIT
BNE
(LR
BR

#LOCYL ,MISWIW
5%
LOL IMw
SETDON

#377 HILIMW

cELSE INIT HILIMIT

READEF

#Ei .RESTART

JCHECK

EMT

C$REFG

MOv

MOV

RSTRT

READEF

#c°.CONTINUE

MOV

sSET UP UNIT COUNT
. CLEAR PASS NUMBER

;GET A COUNT
;CLEAR A ERROR COUNTER STORAGE AREA

;TEST IF LO LIMIT SET
;YES = SKIP
JELSE CLEAR LO LIMIT

#EF .RESTART
RO

B(CS

CONT INUE :

000036

IF MANUAL

CSMAN]

BCOMPLETE

103734

;CHECK

EMT

PASS COUNT,

1%:

012700

#340,R0

gEgHPLETE

103403
042737

103004

SEQ 0059

ENDMOD

104051

104050

H 5
PAGE -1-21

16:20

#EF . CONTINUE
,RO

RESTART

;NO = SKIP
STEST

CONTINUE

ASSEMBLY ROUTINES

CIRLCB.PT1
(3)

015126

MACY11

25-0CT=78 13:12

1092
(3)
(3)
1093
(2)
109%
1095
109

015132
015132
015136
015140
015140
015142
015142
015146

005737
001013

002516

1098
1099
1100

015154
015162
015170

012737
013737
012737

002660
002012
177777

1102
1103
1104
1105
1106
(3)
(3)
1107
(2)
1108
1109
1110

015202
015206
015214
015220
015224
015224
015226
015230
015230
015232
015236
015240

005337
062737
013700
012702

002516
000002
003064
002450

103452
012700
104050

;
000035

103403

1097 015150 005237 003062

1111
1112
1113
1114

1115

015176 005237 003064

015244
015246
015250
015252

015254

1117
(7)
(6)
(5)

015256
015256
015062
015266

(3)

015276

(4)

(2)
1118
(3)
(3)

1119

015272

015300
015304
015304
015310

015312

NXTPAS:

002660
002516
003064

000736
012122
012122
0057_21

002660

7%:

012122

000010

012700
104041

000000

104037

013702

PWCON:

PWCON
;CHECK IF

TST
BNE

DRVCNT
SE TDON

;TEST IF ALL UNITS CHECKED
NO
- SKIP

MOV
MOV
MOV

WERRCNT=2,ERRPOINT ;INIT THE ERROR POINTER
LSUNIT,DRVCNT
;GET ALL DRIVES
#-1,PSETNM
*SET PARAM SELECT TO INITIAL

PASNUM

PSE TAM

INEXT SET OF PARAMETERS

DOWN COUNT DRIVE TOTAL
*UPDATE THE ERROR POINTER
*SET UP TO GET PARAMETERS

:SKIP IF GOOD PARAM
;RECENT POWER FAILURE
;ACCOUNT FOR DRIVE

NXTPAS
(R1)+, (R2)+
(R1)+. (R2)+
(R1)+

2)+

SETVEC
mov
MOV
MOV
MOV

NTHLR,#340
)
-(SP)
SP)

EMT

MOV

STARTING NEW PASS

*ELSE BUMP PASS COUNT

BR
MOV
MOV
TST

ADD
SETPRI
MOV
EMT

002450

SEQ 0060

READEF
#EF .NEW
MOV
#EF .NEW,RO
EMT
CSREFG
BCOMPLETE
PASNEW
BCS
PASNEW

MOV

062706

CSREFG

DE(
DRVCNT
ADD
#2,ERRPOINT
MOV
PSETNM,RO
MOV
#RLBAS.R2
GPHARD
RO,R1
EMT
C$GPHRD
MOV
RO,R1
BCOMPLE TE
7%
BCS
7%
TST
PWRF LG
BEQ
NXTPAS
;NO
DEC
PWRFLG

003072

000340
016064
002452
000003

ON CONTINUE PICK UP UNIT LAST UNDER TEST

SETDON: INC

003072

012746
012746
013746
012746

PAGE 1-22

BCOMPLETE
BCS
_ PWCON

PASNEW: INC

104042
010001
103406
005737
001741
005337

16:20

EMT

015130
015130

1101

22-NOV=78

104050

1090
(2)

1091

30A(1052)

k.
43,- ,P)

CSSVEC

#10,SP
#0
40RO
($SPRI

RLBAS,.R2

:STORE PARAMETERS CSR
:
VECTOR
;BUMP PAST PRIORITY

DRIVE

JSET UP VECTOR

:
:SET PRIORITY

;SET RL BASE ADDRESS POINTER

1121

1122

1123
1124

1125
1126
1127
1128

1129

015316
015322
015324

015332

005737
001135
032737

001531

003062 .
000020

;
:
,
014656
;CHECK

CHECK IF DOING AUTC SIZE AND DROP DRIVE IF NOT READY AND

ERROR SETS ON GET STATUS.

TST
BNE
BIT

BEQ

PASNUM
22%
#AUTOSZ MISWIW

ITEST IF PASS 0
INO
= SKIP
:TEST IF DOING AUTO SIZE

INO = SKIP

TF UNIBUS SDDRESS 15 THERE GEFORE WE

CHECK DRIVE READY

MACY11 30A(1052) 22-NOvV-78 16:20 PAGE J1-2§

1150
(7)
(6)
(3)
(4)
(4)
1151
(3)
(3)
1152

002454
000200
000000
000001

010562

000003
000004
000200
000000

012700

000004

032762

002000

013700

002652

012746
012746
012746
010600

005640
012747
000002

062706

000006

INSY S sfooonno

104017

005046
153716
012746
013746
012746

002455
005633

00000¢
000014
012127
000001
000004

003064

: TRAP OCCURANCE

:SET TRAP VECTOR

#TRPHAN,
= (SP)

ERRVEC ,=(SP)
#3,-(SP)

CS$SVEC

#10,SP
RLCS(R2)
TRPFLG

;ACCESS BUS

*TRAP OCCUR??

5%
RLDRV,RS

SYES, DON'T INVESTIGATE FURTHER
*GET DRIVE NUMBER

RS,RLCS(R2)

:LOAD IN DRIVE NUMBER

#CRDYMSK ,RS

: INSERT CONT READY

000000

#DRDYMSK ,RLCS(R2) ;CHECK IF DRIVE IS READY

000004

#GETSTAT ,RLDA(R2) ;ELSE INSERT GET STATUS

208

:YES = GO DO TEST

#4 RS
#CRDYMSK ,RS
RS.RLCS(R2)

:LOAD RS WITH GET STATUS FUNCTION
*CLEAR CONTROLLER READY
*LOAD CS REG

#4 RO
CSWTM

000000
N

Y~
-b

~
H

3
o
==
NN

#340,-(SP)

DARRR v
soroco r

e
i
i
o
b

015600
015600
015604
015606

TRPFLG

SEQ 0061

ERRVEC , # TRPHAN, #340

000010
000000
003070

)

) i

200340
016056
002652
000003

)

pord

—

b
b
b
i
i
i
i
s
i
i
i
i

(4)
(4)

(7)
(6)
(3)

(8)

012746
012746
013746

104036

10)
(9)

003070

1452

1149
an
11)

005037

104026

eleleoleleolelelolelolaleleolololelelsls]

BEIFHKR W)~

il
) sl
il
i
il
i
i
i
i
i
b
d —

N N N N N e QD N N NOWV
v R ANNN—=0O0

N -~ o~
PN

—_

S WONJOO
S NN ;_‘—lf\fi—.—l—l—l—l—l—‘d—d—l—‘—ld’-\flf\
SN ES NN ES 8N B 5 DWW WNWINWNIWN
NN
N S~

1130
13
(7)
(6)
(5)

leolololelelolelelelels)

ASSEMBLY ROUTINES
CZRL(B.PT1
25-0(T1-78 13:12

SWAIT 4 MS

#OPIERR ,RLCS(R2) ; TEST IF OPI SET
20%
:NO - SKIP
ERRVEC
ERRVEC ,RO
CS$CVEC

#FM
24 , #DRVNAV
T
, = (SP)
#DRVNAV
#FMT24 ,=(SP)
#2,-(SP)

SP_RO
CSPNTF

108%:

#6,SP
l;?;?.JBASADD.RLBAS.fiDRVNAM.<B.RLDRV*1>
RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS,=(SP)
#BASADD ,-(SP)
#FMTS,=(SP)
#5,-(SP)

SP,RO
CSPNTF

#14,SP
#FMT3
#FMT3,=(SP)

#1,=-(SP)
SP,RO

CS$PNTF

#4 ,SP
PSE TNMm
PSETNM,RO

(@Al

;DROP DRIVE

SUCIRRBRRP
IR RRRELLS Y 0o BIJLLIFANINIITEIERARZS

015616
015616
015620
015620

015622

015626
015630

104036

22-NOv-78

20%:

702652

22%:

EMT
CLRVEC
MOV
EMT

K 5
PAGE 1-24

EMT
CSMAN]
BNCOMPLETE
BCC
48

103004

003062

TST

BNE
BR

SEQ 0062

CSDCLN
ERRVEC
ERRVEC RO
CSCVEC

MANUAL

104051

005737
001001
000437

16:20

:MANUAL

PASNUM

4%
8$

INTERVENTION ALLOWED

:NO

;YES, CHECK PASS NUMBER

:NOT FIRST PASS, NEED DRIVE UP
:FIRST PASS, PROGRAM WILL INSTRUCT USER

:CHECK IF POWER FAILURE WAIT IS NEEDED

—

015632
015636

005737
001434

003072

013705

002454
000200
000000

000074
000001
015670
015670

4%:

000000

9%:

000012

o
n

-t

012746

015722

005673

012747
000002

ST
BEQ

PWRFLG
8%

:NEEDED??7?
;NO, SKIP

MOV
BIS
MOV

RLDRY,RS
#CRDYMSK ,RS
RS,RLCS(R2)

:DRIVE SELECT
*SET CRDY
“SELECT DRIVE

MOV
BIT

#60. ,R1
:SIXTY SECOND TIMER
#DRDYMSK ,RLCS (R2}
:DRIVE UP YET
8$

:YES START TEST

WAITMS

#10.

;WAIT A SECOND

BNE

MOV
EMT
DEC
BNE

0M 367

;

000006

#10. RO
CSWIM
R1
9%

PRINTE

#FMT24
, ANOPWR

MOV
MOV
MOV
EMT
ADD
BR

#FMT24
.= (SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP
108

EMT

CSINIT

MOV

:SIXTY GONE BY
‘NO

#NOPWR
. - (SP)

ENDINIT

~
W

8%:
o

D
d
o
—

o, D, D D i P, P wvirow WUV
NIWNW v
O~ 00~ NON S
W
D

D
D

i i

)
d

013700

30A(1052)

D e

D
i

D e

D
)
i

D cd i

015610
015614
015616

)

1046044

i e

015606

015610

d e
-

o, D
i o

b
b
b
—_——
L

— ——d —d
d e
—

(3)

—_

ASSEMBLY ROUT INES
??C¥;1
CZRLCB.PTT
25-0CT1-78

L10014:

104011

ENDMOD

BGNMOD
BGNCLN

000340

016056
002652
000003

CLNCODE
SETVEC
MOV

MOV
MOV
MY

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

#TRPHAN
- (SP)
ERRVEC,=(SP)
#3,-(5P)

ASSEMBLY ROUTINES

CZRLCB.PTT
(3)
,{@)

015752
015754

1193

015760

(3)
(3)

119
1195
1196
1197
1198

015760
015764

MACY1 1

25-0CT=-78 13:12

000010

EMT
ADD

012700
104041

000007
)

MOV
EMT

0327¢2
001407
053762
032762
001003

(3)
(3)
1200
(3)
(3)
1201
1202
1203
1204
(3)
(3)

16014
016020
016022
016022
016026
016030
016034
016036
016042
016042
016046

012700
104026

000003

013700
104036
005737
001402
005337

002452

003072

013700

002652

(3)

016050

1205

,$3)

016050

1207
1208
1209
(3)

016052
016052
016054
016054

1211

016056

3
1212

016054

016056

1217
1218
1219
(3)

016064

1215

016062

016064
016064

1220

016066

1225
1226
(3)
,2)

016114
016120
016120
016120

1221
1222
1223
1224

1228
1229

1230

104036

000200

000000

002454
000001

0GO000
000000

016072
016076
016102
016106

2$:

38:
5%

003072

7%:
ENDCLN

L10015:

104012

BGNDU

000240

ENDDU
L10016:

104055

ENDMOD

BG'MOD
005237

000002

003070

TRPHAN:

BGNSRV
:
104021

012237

002466

013702

002450

012237
012237
011237
012737

002470
002472
002474
177777

164532

ENDSRY
L10017:

014666

SEQ 0063

CSSVEC
#10,SP
:SET PRORITY T0 7

#7,RO
C(SSPRI

#CRDYMSK,RLCS(R2)
:TEST IF CONTROLLER READY
38
:NO_LOOP UNTIL READY
RLDRV,RLCS(R2)
:SET DRIVE NUMBER
WDRDYMSK,RLCS(R2}
:TEST IF DRIVE BUSY
5%
iNO = SKiP

MOV
EMT
CLRVEC
MOV
EMT
TST
BEQ
DEC
CLRVEC
MOV
EMT

#3,R0
CSWIM
RLVEC
;RELEASE VEC
RLVEC,RO
CSCVEC
PWRFLG
;PWR FAIL SET
7%
;
PWRFLG
ERRVEC
ERRVEC,RO
CSCVEC

EMT

CSCLEAN

WAITMS #3

*WAIT 300 Ms

NOP

EMT

C$DU

GLBSUB
INC

RTI

TRPFLG

INTHLR
INTERRUPT HANDLER. ABORTS WAIT TIMER AND STORES ALL RL11 REGS
ABORTWAIT
EMT
CSABRT

MOV
MOV
MOV
MOV

002430

009002

027737

PAGE 1-25

BIT
BEQ
BIS
BIT
BNE

MOV

;

016122

16:20

SETPRI #7

016056

1214

22-NOv-78

104037
062706

015766
015774
015776
016004
016012

1199 016014

30A(1052)

MOV

(R2)+.,T.CS

:STORE RL REGISTERS

RLBAS,R?

:SET DONE FLAG
*RESTORE R2

(R2)+.T.BA
(R2)+.T.DA
(RO),T.MP
#-1,DONE

RTI
ERROR LIMIT CHECKING ROUTINE
DROPS DRIvE IF ERROR LIMIT EXCEEDED

(KERLM: (MP

aERRPOINT ,ERL IMW

sTEST IF ERROR LIMIT EXCEEDED

ASSEMBLY ROUTINES
MACY11
CZRLCB.PTT
25-0CT-78 13:12

1231
1232

BLT

SEERSEER SRR

b cld

b i

il e

oooooororrOr
O O MONOMONON

(elelelaleloleleleleolalolslele]

012746

012746
012746

010600
104017
062706

013700
104053

MOV
MOV

000010

EMT
ADD

002455
005633

BISB
MOV

RLDRV+1, (SP)
#DRVNAM
. - (SP)

000014

MOV
EMT
A

SP,RO
CSPNTF
#14,SP

MOV

HFMT3,-(SP)

MOV

EEANTF

012127
000001

MOV
MOV
EMT
ADD
DODU
MOV
EMT
DOCLN
EMT

000004

003064

000207
002466
002470
002472
002474

000000
000002
000004
000006

i e

000002
000200

000000

ERL IMW, = (SP)

HFMT25,=(SP)
#3,-(5P)
SP,RO
CSPNTF
#10,S

052;5~ABASADD ,RLBAS,#DRVNAM,

#1,-(SP)
SP,RO
CSPNTF
#4,SP
PSETNM
PSETNM,RO
C$DODU

S%DCLN

:DROP DRIVE

;GO TO CLEAN UP

READ AND STORE ALL RL11 REGISTERS
: MOV
RLCSR(R2),T.CS
;GET CS REG

MOV
MOV
MOV
RTS

016262
002430

012766

SEQ 0064
:NO - SKIP

011571
014666
012754
000003

104044

016237
016237
016237
016237
000207

M5
PAGE 1-26

INLOOP
sCHECK IF IN ERROR LOOP
CSINLP
EMT
BCOMPLETE
1%
;YES = SKIP
1%
BCS
PRINTF
#FMT25,ERL IMW,AMEXERS
MOV
#MEXERS
, - (SP)

103451

1235

16:20

104020

ch el

(4)

i o

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

22-NOV=78

002453

elelelelelelelelelsle)

(3)
1233
(2)
1234

30A(1052)

RLBA(R2) ,T.BA
RLDA(RZ) ,T.DA
RLMP(R2) ,T.MP

;GET BUS ADDRESS REG
;GET DISK ADDRESS
;GET MULTI-PURPOSE REG

sRETURN

WAIT FOR CONTROLLER TIMEOUT TO FORCE

MOV

CLR

BIT

(SP)

2(SPS

,=(SP)

INTERRUPT ROUTINE

MAKE ROOM FOR ERRNR POINTER

LEAR FOR _POINTER

#CRDYMSK, RLCSR(R?)

;TEST IF CONTROLLER READY

BEQ
JSR

4%
PC ,READRL

:NO - SKiP TO WAIT
sREAD ALL RL REGS

BEQ

:NO = GO SET NO INTERRUPT ERR FLAG

TST

DONE

sTEST IF

INTERRUPT OCCURRED

006013
002000

000002
002466

géa

lOPIERR f.cS

LSST gFIOPI

006032

000002

MOV

#MDRRES 2(SP)

:SET MESSAGE FOR NO DRIVE RESPONSE

MOV

AMTOSLOW,2(SP)

;ELSE SET TO SLOW ERROR POINTER
SET

N
<3
~N

22
88

18]
F

SS
~
o~ &

000002

JSR
angv

PC ,READRL
S':CWNG.Z(SP)

JREAD RL REGS
:gE}P'ESSAGE FOR CONTROLLER HUNG

5%:

T3T
BNE
JSR
MOV
BR

DONE
1%

JELSE CHECK IF INTERRUPT OCCURRED
sYES = SKIP TO SET TO SLOW

OPERATION AND TEST INITIALIZE ROUTINE

3%:
000002

TSTINT: CLR

002436

013746
012737

002550

000013
000003

002550
002550

BP%V

GSTATC: MOV
MoV
CLR

TEMP4 ,-(SP)
TEMP4

;STORE TEMP4
;SET FOR SAVE L. AND T. REGS

000000

BEQ
BIT
BEQ
WAITMS

50%:

000001

002466

000020

002474

144000

002474

sSET FOR RESET

;STORE TEMP4

040000

016514

;STORE TEMP4

TEMP4 ,-(SP)

002440
002550

49%:

TEMP4 ,-(SP)

gg%{;éAT!DRSET.TEmlo
gg;l?éAT.TEW‘.

000002
000010

000062

JRESET MORE COMPARE ERRORS

JRESET INHIBIT ERROR COUNTING

MOV

000003

MORECE

GET STATUS AND GET STATUS WITH RESET ROUTINE

MOV
MOV
MOV
BIT

002424

+READ RL REGS
JELSE SET NO INTERRUPT FLAG
2GO TO RETURN

;CLEAR OPERATION FLAGS

002260
002260

000004
000004

;}'EST IF READY NOW SET

OPFLAG

RTS

GSTATG: MOV
MOV
TST
MOV
SuB

002424

PC ,READRL
#MNOINT ,2(SP)
2%
+

NOERCT

GSTATR: MOV

GSTAT:

ggRDYHSK.RLCS(RZ)YE

CLRB

CLR

002550
002550

RORY

—_

CSWTM

016262
006115

003067

#3,R0

sRETURN
JWAIT 300 MS FOR TIMEOUT

000000

002426

W~
v -

MOV

PC
#3

000200

016262
006062

032737

RTS
WAITMS

SEQ 0065

EMT
g'l‘g

002430

—

2%:
4%:

000003

VIS
TM)

et Yot 4

i i el i il e i
P

1 30A(1052) 22-NOV-78 16:20 PAGE N1-2?

000207

—

016370

SRR Suwance EERRRRRRRRRRE
%N SRR RETES
IV ANNYNERRFER
S
&R NN33

ASSEMBLY ROUT INES
MACY1
CZRL(CB.PTT
25-0C1-78 13:12

sSET FOR NO RESET

R3,-(SP)
;STORE R3
SSINDX,R3
JGET SUBROUTINE INDEX
(R3)+
JBUMP IT FOR NEXT ENTRY
4 (SP) ,SUBSTK(R3) :INSERT THIS CALL
#4,SUBSTK(R3)
sADJUST IT TO CALLING LOCATION

R3,SSINDX

RO,=(SP)
R1,-(SP)
#2 ,ERRSWI
#DRSET, TEMP4

;STORE IT BACK

;STORE RO
;STORE R1
sSET FOR NO ERROR RETURN
JTEST IF DRIVE RESET

11%
sNO - SKIP
#DRVERR ,RLCS(R2) ;TEST IF DRIVE ERROR SET
49%
sNO - SKIP
#3
JWAIT FOR 300 MS FOR DRIVE TO SETTLE

MOV

#3,R0

MOV

#50. .R1

;SET WAIT FOR S SEC

BIT
BNE
BIT
BNE

#DRDYMSK,T.CS
5%
#HOSTAT,T.MP
51%

JTEST IF DRIVE READY
JYES = GO DO CLEAR
JELSE TEST IF HEADS OUT
sYES = BYPASS RELOAD WAIT FLAG SETTING

EMT

%ER

BIT

CSWTM

PC,GSTAT

.GET DRIVE STATUS

#SPDSTAT !HCESTAT!WDESTAT,T.MP ;TEST IF DRIVE HAS ERROR
: THAT CAUSED HEADS TO

MACY11 30A(1052) 22-NOV-78 16:20 PAGE 81-23

95-0(7-78 13:12

016654
016656
016664
6666

~~W

T PR R

ASSEMBLY ROUTI
CZRLCB.PTT

001441
052737
000435
032737
001031

040000

002426

040000

002466

BEQ
BIS
51%:

000001

#DRVERR,T.CS

sTEST IF DRIVE EPROR NOW

:} R0

sWAIT FOR DRIVE TO GET ERROR, RDY, OR HO

CSWTM

50%

I
~~~

S G

000004
002466

8%:

000403
013737

002462

005037
013737
042737
052737
013762
013762

002456

012700

000001

005737

002430

104027

gWNNNN—'—‘—‘
ROV
O SN
8

040000

e
ol
el ud
ol

b
i
e
s
i
el
i cah i

NSNNNNNNNNN

- il

eolelelelalelelelels]

017104

00101¢/
012700
104026

005301
001367
004737
017260
012703

#4 ,R1
#L.MP+2 ,R3
-(R3),=(SP)
R1

*SET
*SET
*PUT
*DEC

TEMP4, L .DA

DONE

#817T10,1.CS

000010

001424
012701
032762

sTEST IF SAVE REGISTERS

L.DA,RLDA(R2)
L.CS.RLCSR(R2)

130
,000001

“LOOP UNTIL ALL SAVED
-SET FOR GET STATUS

;SKIP

*INSERT PRESET FOR STATUS

:CLEAR INTERRUPT FLAG

*SET UP TO GET STATUS

*CLEAR FOR DRIVE 4 - 7 SPEC'D
;LOAD RL REGS
:LOAD CS REG

*WAIT

DONE
1%
T.MP,T.STAT

;CHECK IF INTERRUPT OCCURRED
“NO - SKIP
:STORE MP REGISTER

- #RELDWT ,OPFLAG

002426

100 US FOR INTERRUPT

NO = SKIP TO EXIT

:TEST IF RELOAD WAIT FLAG SET

12%
;NO - SKIP
#600. ,R1
;SET WAIT COUNT FOR 60 SECONDS
#DRDYMSK ,RLCS(R2) ;TEST IF DRIVE NOW READY

13%:

12%

;JYES - SKIP

CSWTM
R1
13%

sDEC COUNT
;LOOP IF NOT O

#1
#1.R0O

000001

016514
011512

SAVE COUNT
ADDRESS OF FIRST SAVE
REG ON STACK
COUNT

#*C<STAMSK>,T.STAT CLEAR ALL BUT STATE
#DRSET,L.DA
sTEST IF RESET WAS SPECIFIED

000000

;NO SKIP

#
#1.R0

CSWTU

4%:

‘

TEMP4

#GTSTAT,(.CS

177770

JAIT COUNTER

JEXIT

RLDRV,L.CS

002474

JDEC

s IF NOT DONE, LOOP

TS$SERCODE
10001
ERR1
14%

#GETSTAT,L.DA

5%:
6%:

sYES = SKIP TO CLEAR

JMESSAGE FOR UNDEF INED STATE

002462

;SKIP TO CLEAR

#MUNDEF ,R3

{

A
WWWWWWWWWNW
N
R
S 3
S
NN
N

N=OVONOWVNH
W= e OO

ELSE SET WAIT FLAG

002550

;NO - SKIP

#RELDWT ,OPFLAG

011445

(3)

SEQ 0066

PC,GSTAT

MOV
ERRHRD

#°°LFAL,R3

10003.
, .ERR1

.CALL WAIT

sGET DRIVE

STATUS

:ERROR RETURN

JSET RESULT MESSAGE POINTER

CZRLCB.PT1
(3)
(5)
(5)
1359
1360
(3)
(3)
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
(3)

. (5)

(5)
1372

1373
1374

1375

éw

ASSEMBLY ROUT INE

25-0CT=78 13:12

017140
017142
017144
017146
017150
017150
017154
017156
017162
017164
017172
017174
017202
017204
017210
017212
017220
017222
017222

017224 .

104443
023423
013040
000442
012700
104027
004737
017260
032737
001432
032737
001403
012703
000416
032737
001404
02342%

013342
000411

017236

000403

017240

002466

001000

002474

006161

040000

002466

7$:

012600
012603

012601

1390
1391
1392
1393
1394
1395
1396

017320
017324
017330
017332
017336
017340
017344

012637
005737
001403
063716
000207
017616
000207

1497
1498

017346
017350

019346
013703

005723
016663
162763

MOV
BR
BIT
BEQ
ERRHRD

TRAP

.WORD

2%:

002440
002550

148:
3:

002456
000004

000002

208:
002424

22%:

002550
002440
002440

MOV

‘

148
#10.
#10. ,RO
CSWiU
PC.GSTAT

;G0 TO EXIT
‘WAIT FOR 1MS

_WANYERR,T.CS

;TEST IF ANY ERROR

3%
#VCSTAT,T.MP
7%
#VCNRST ,R3
2%
#DRVERR,T.CS
9%
10004.
, ,ERRG

;GET DRIVE STATUS

:NO - SKIP
:CHECK IF VOLUME CHECK RESET
SYES SKIP
:SET REASON POINTER
FEXIT
:CHECK IF DRIVE ERROR
INO - SKIP

TSERCODE

10004

#UNXERR ,R3

EXIT

:SET REASON POINTER

CEXIT

MOV
ERRHRD
TRAP
.WORD
.WORD
(LR
ST
BNE
MOV
MOV
MOV
DEC
BNE
SUB

(SP)+,R3
10002
, ,ERR1
TSERCODE
10002
ERR1
ERRSWI
TEMP4
22%
#L.CS,R3
#4 R
(SP)+, (R3)+
R1
208
#2,SSINDX

:STORE REASON POINTER FOR RETURN

MOV
MOV

(SP)+.RO
(SP)+.R3

JSR

MOV

MOV
TST
BEQ
ADD
RTS
MOV
RTS

99$:

002424

SIMSEK: MOV
MOV
002260
002260

SEQ 0067

000000

000002
000004

TSERCODE
10003
ERR1

PR O -+
BR
14%

18:

012603

BR
WAITUS
MOV
EMT
JSR
3%
BIT

BEQ
BIT
BEQ

016314

017314
017316

017354
017356
017364

100000

004737

1388
1389

1499
1500
1501

016514

98:

104443
023422
013040
005037
005737
001007
012703
012701
012623
005307
001375
162737

130

000012

006202

017244
017246
017246
017250
017252
017254
017260
017264
017266
017272
017276
017300
017302
017304

017312

128:

012703

1376
1377
(3)
(5)
(5)
1378
1379
1380
1381
1382
1383
1384,
1385
1386

1387

TRAP
.WORD
.WORD

104443

017226
017230

017232

MACY11 30A(1052) 22-NOV-78 16:20 PAGE ¢1-28

TST
MOV
SUB

PC,WAITIN

(SP)+,R1

:WAIT FOR INTERRUPT

'
;CLEAR FOR ERROR RETURN
:TEST IF REGISTERS WERE SAVED
INO - SKIP
:SET POINTER TO RESTORE
:SET REGISTER COUNT
:RESTORE REG
:DEC_COUNT
:LOOP UNTIL ALL ARE RESTORED
*REMOVE ENTRY FROM SUBROUT STACK
*RESTORE R1
:RESTORE R3

(SP)+ . TEMP4
ERRSW]
99%
ERRSWI , (SP)
PC
a(SP), (SP)
PC

:RESTORE TEMP4*TEST IF ERROR RETURN
YES - SKIP
ADD IN ERROR RETURN

R3,=(SP)
SSINDX,R3

;STORE REGISTERS
GET SUBROUTINE INDEX

;SET ERROR RETURN ADDRESS

(R3)+
:BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3)" : INSERT THIS CALL
#4,SUBSTK(R3) ~ ;ADJUST IT TO CALLING LOCATION

MACY11 30A(1052) 22-NOv-78 16:20 PAGE 01-38

ASSEMBLY ROUTINES
CZRLCB.PTT
25-0C ;78 13:12

3% IRGR
VONO
NS WN=O

il
i
sl i il

DD
D
_——d

002424

000002
017632

CO~NO VSN =

R3,SSINDX
RO,=(SP)

R4 ,=(SP)
#2 ,ERRSW]
PC.RDYCHK

002440

002456
000106
002454
002000
0
0
01744ém,
017450
017452

002530
000007

017456
017462
017464
017470
017474
017476

002532

017454

#L.CS,R4

#SEEK
., (R4)
RLDRV . (R4)

#BIT10, (R4) +

(R4)+
, (R&)
DESDIF
#7.R3
(R&)
R3
3%

3%:

002534
000020
000001
002430
000012
000004

WA
=

SgRee

5%:

;TEST IF HEAD 0
;YES = SKIP

7%:

(R4) +
#MBSETO,

#HDSEL , (R4)

DONE
#10. .R1

-(R&4) .RLBA(R2)
-(R4) _RLCS(R2)

108:

001404

BRSOV
N RNN = OO0 W

T
e R
e
R
e

:NO - SKIP
s INSERT SIGN

s INSERT HEAD BIT
- INSERT MARKER BIT
sCLEAR INTERRUPT FLAG
;SET WAIT COUNT FOR 800US
;LOAD RL REGISTERS

;CKECK IF INTERRUPTED
;YES - SKIP
;DEC WAIT COUNT

JIF 0 - SKIP

012700

000001

000767
004737
012603

016314

104027

;GO CHECK DONE
;GO WAIT FOR TIMEOUT
;GET RESULT MESSAGE POINTER

13%:

—_, S

Y
W
W
S

A A A
KEXLRKY NI
HWwWwwnwn

(¢ NV, V1V,] v
v
SN

;GET POINTER TO L REGS
;SET FOR SEEK
s INSERT DRIVE NUMBER
;CLEAR FCR DRIVF 4 - 7 SPEC'D
;CLEAR BUS ADDRESS
;LOAD DIFFERENCE
sSET COUNT FOR SHIFT TO ALIGN
sALIGN DIFFERENCE IN DA

#DIRBIT, (R4)
DE SHD
7%

-(R4) ,RLDA(R2)

002430

;SET FOR NO ERROR RETURN
;CHECK IF DRIVE READY

sTEST IF SIGN SET

000004

;STORE IT BACK

DESSGN

D i

)

D i

i e

017372
017376
017400

i i vivivivivinwn

) i

)

) i

1502
1503

SEQ 0068

T$ERCODE

10011
ERR1

002440
000002

002424

ERRSWI

14%:

#2,SSINDX
+ R4
(SP)
(SP)+,R0O
(SP)+ ,R3

002440

ERRSWI
99%

002440

000000

ERRSUI,(SP)

9%:

RTS

C
a(SP), (SP)

:CLEAR FOR ERROR ERROR RETURN
;REMOVE ENTRY FROM SUBROUT STACK

sRESTORE REGS

;TEST IF ERROR RETURN
;YES = SKIP
;ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

DRIVE READY TEST ROUTINE.

CHECKS DEIVE

IS READY.

NOT, WAIT

ASSEMBLY ROUT INES
MACY1 1
CZRL(B.PT1
25-0CT-78 13:12

30A(1052)

22-N0OvV-78

16:20

PAGE 1-31

500MS FOR_READY TO SET.

RDYCHK: MOV

002424

MOV
ST

MOV

000002
011610
016514

002440

MOV
MOV

R4 ,~-(SP)
#2 . ERRSWI

zgR

000001

002466

SUB
MOV
MOV
MOV

1%:

#5000. ,R1
PC,GSTAT

;SET FOR_NO ERROR RETURN
sSET WAIT COUNT
;GET DRIVE STATUS

BIT

#DRDYMSK ,T.CS

;TEST IF DRIVE READY

WAITUS
MOV

#1
#1.R0

MOV
BNE

010711
011755

000062
016514

000001

2%:
002466

CSWTU
R1
1%
#MDRDY ,R3
#CS00MS
, R4
10010.
, .ERRS

.WORD
.WORD
MOV

10010
ERRS
#50. ,R1

BIT

#DRDYMSK,T.CS

WAITMS

002466

3%:

MOV
EMT
DEC
BNE
BIT
BEQ
ERRHRD
TRAP

232
FGR&
SN JITERRERER
N

LWORD

100000

igR

BNE

000001

002662
002440
000002

002424

4%:

5%:

000000

99%:

#1,R0
CSWTM
R1
2$
#ANYERR,T.CS
4
10011.,.ERRé
TSERCODE

sDEC WAIT COUNT
;LOOP IF NOT O
sSET RESULT MESSAGE POINTER
sSET CONDITION MESSAGE POINTER

;SET WAIT COUNT FOR 5 SECONDS

;GET DRIVE STATUS

sTEST IF DRIVE READY
JYES - SKIP

JWAIT FOR 100MS

;DEC WAIT COUNTER
.. JOP UNTIL TIME DONE
.TEST IF ANYERR SET
.NO = SKIP

sREPORT ALL ERRORS

10011

MOV
MOV
MOV

(SP)
+ R4
(SP)
+ ,R1
(SF)+,R0

#2,5S INDX

(SP)+,R3

.REDUCE ERROR COUNT FOR DUAL ERRORS
;C_EAR FOR ERROR RETURN

sREMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGS

TST

ERRSWI

JTEST IF ERROR RETURN

ADD
RTS
MOV
RTS

ERRSWI], (SP)
P
a.SP),(5P)
PC

;ADD IN ERROR RETURN

BEQ

002440

PC,GSTAT

ERRé
ERRCNT
ERRSWI]

SUB

JYES = EXIT

TSERCODE

.WORD
DEC
CLR

MOV

002440

EMT
DEC
BNE
MOV
MOV
ERRHRD
TRAP

~~~

X
sGET SUBROUTINE INDE
ENTRY
NEXT
FOR
;BUMP IT
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK (R3)
sADJUST IT TO CALLING LOCATION
R3.SSINDX
sSTORE IT BACK
RO, =(SP)
R1,=-(SP)

002260

:STORE REGS

(R3)+

000002
000004
002424

00C¢"01

_—

R3,-(SP)
SSINDX,R3

SEQ 0069

99%

JYES = SKIP

:SET ERROR RETURN ADDRESS

ASSEMBLY ROUTINES
I
MACY]
CZRLCB.PTY:
25-0CT-78 13:12

1 30A(1052) 22-NOv-78 16:20 PAGE 1-33
F

NNNN8

012737
0004

000001

002550

000002
000004
002424

) e
B e

NN NNNN N

000002
002550

XRDHD :

BR
CLR

TST

002260

002440

1%:

VHWN=O

NN
~N
W
W

Q00001

002466

5%:

010711

011774

DEC
BNE
JSR

R1
1$
PC,RDYCHK

CLR
MOV
MOV

DONE
#..CS,Ri
RLDRV . (R1)

BIS

#RDHEAD
, (R1) +

MOV

65%

CLR
CLR
MOV
MOV
MOV
WAITUS
MOV
EMT

000001
002440

002466

-(R3) ,-(SP)

#B1T10, (R1)

(R1)+
(R1)+
-(R1) ,RLDA(R2)
-(R1) _RLBA(R2)
-(R1) RLCSR(R2)
#10.
#10. ,RO
CSWTU

DONE

BIT

#DRDYMSK ,T.CS

BNE
MOV
TRAP

4%:

TEMPS,

TST

BEQ

.WORD
.WORD
MOV
JSR

108
#MDRDY ,R3
#CAFDT R

GO DO IT

*SET FLAG TO SAVE T. AMD L. REGS

10017.
. ,ERRS

sSET FOR NO ERROR RETURN
sTEST IF REGISTERS TO BE SAVED
sSET POINTER FOR REGS
sSET COUNT
:SAVE REGISTER
sDEC COUNT
sLOOP UNTIL ALL ARE SAVED
;CHECK DRIVE READY
sCLEAR INTERRUPT FLAG
;GET ADDRESS OF LOAD REGS
;LOAD DRIVE NUMBER
;CLEAR FOR DRIVE 4 - 7 SPEC'D
s INSERT COMMAND
;CLEAR BA
;CLEAR DA
;LOAD RL11 REGS

:WAIT 1MS FOR INTERRUPT
JTEST IN INTERRUPT FLAG SET
JNO - SKIP
JTEST IF DRIVE READY
sYES - SKIP
sSET NO READY MESSAGE
COMDITION OF AFTER DATA XFER

TSERCODE

10017
ERRS
#50. ,R1

PC.GSTAT

608
BIT
BEQ

#DRDYMSK
. T.(S
1%

BR
DEC
BNF

108
R
4%

;SET FLAG TO BYPASS REG STORAGE

:STORE REGISTERS
sGET SUBROUTINE ‘INDEX
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) s INSERT THIS CALL
#4,SUBSTK (R3)
sADJUST IT TO CALLING LOCATION
R3.SSINDX
;STORE IT BACK

2$
#L.MP+2 ,R3
#4 R

ERRHRD

000062
016514

R3,~(SP)
SSINDX,R3
(R3)+

BNE
MOV
MOV

MOV

&N
—W

WNW
N

—

22882 2
-

SSSSSINRS22Ws

3%:

XRDHDG
TEMPS

RO, =(SP)
R1.=(SP)
Ré.=(SP)
#2.ERRSWI

BIC

s
bl i

2%:

017632

1,T
#1,TEMPS

MOV
SUB
MOV
MOV
MOV
MOV
MOV
ST

NNNNNNIY

READ HEADERS ROUTINE.

MOV

002466
000004

i i

XRDHDC: MOV
XRDHDG: MOV

002424

BEIRREUK TR

) il el il i

D il

D-

NNNNNNNNNY ~N
I
NN
CONO VSN —
Lole]

1675

SEQ 0070

ERRSW]

sSET WAIT COUNT FOR 5 SECONDS
;GET STATUS

JTEST IF DRIVE HAS COME READY
:NO - SKIP
;CLEAR ERROR SWITCH

JSKIP

sDEC WAIT COUNT
JLOOP UNTIL TIME DONE

ASSEMBLY ROUTINES

CZRL(B.PTT

012006

EC.R4
4., ,ERRS
EODE

104443

023436
013272
000424
005737
100004

go o

012704

002466

00247¢€
00000¢
000006

12%:

#HDWRDZ
,R1
RLMP(R2)
, (R1)+
RLMP(R2)
, (R1)+

016314

14%:

PC,WAITIN

(SP)+,R3
10015.
, ,ERR1
TSERCODE
10015
ERR1
ERRSWI

SRE

60%:
65%:

TEMP4

N Y

000004

000002

002424

20%:

(?P)* (R3)+

22%:

#2,SSINDX
+ R4
(SP)

208

658

002456

(SP)+ ,R1

YY
Y

002440

—

A
N

:GET POINTER
;STORE LAST TWO HEADER WORDS

JEXIT
JWAIT FOR INTERRUPT
JGET RESULTS
JREPORT

:CLEAR FOR ERROR ERROR RETURN
;TEST

IF REGISTERS WERE

SAVED

;NO - SKIP
;SET POINTER TO RESTORE REGS
:SET_COUNT
:RESTORE REGISTER

sDEC_COUNT
sLOOP UNTIL ALL ARE RESTORED

:REMOVE ENTRY FROM SUBROUT STACK
:RESTORE REGS

(SP)+,R0O

900000

020520
020522

002474

;SET CONDITION AFTER 5 SECONDS

sREPORT ALL ERRORS

002440
002550

T Y

177677

000006

e
e

SEQ 0071

SEXIT
sCHECK FOR ANY ERRORS
iNO = SKIP

10%:

—

SS9
LS 3
(o ¥ Y] R3S

02034

020352
020352
020354

yp—

——

]

g EERRREREE bR SEIRIRIIIYIZIFAFAR

ViV(N

R —gp—g—
N

NSNNNN
~~~

N
e (NN =

N35
EERRR eee

1769
(3)
(S)

HACY%1 30A(1052) 22-NOV-78 16:20 PAGE 32
1-

25-0CT-78 13:1

020556

000207

99¢%:

(SP)+,R3
ERRSWI
99%

;TEST

a(SP), (SP)

sSET ERROR RETURN ADDRESS

ERRSUI.(SP)
C

RTS

ERROR RETURN

;YES = SKIP
;ADD IN ERROR RETURN

:851710N HEAD BI; FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.
HDWRD
1
sSTART FOR POSITION HD BIT IN WD 1
PGSHDO
RR
: SKIP
POSHSB: MOV
T.MP,RS ;START FOR POSITION HD BIT IN MP
POSHDO: MOV
R1,=(SP)
;STORE
R
#*HSSTAT RS
BIC
CLEAR ALL BUT HEAD SEL BIT
46 ,R1
MOV
SET SHIFT COUNT
ASR
1%:
RS
:SHIFT FOR RIGHT JUSTIFY
R1
DEC
%
BNE
(SP)+ ,R1
JRESTORE R1
MOV
RTS
P
s RETURN

POSHWT:

MACY1 1
25=0 cr-78 13:12

ASSEMBLY ROUTINES

22-NOvV-78

RDYWAIT:

002424
000002
000004
002424

002260
002260

000002
016514

002440

000001

002466

16:20

H 6
PAGE 1-34

SEQ 0072

WAIT FOR READY ROUTINE. DURATION COF WAIT PASSED TO THE ROUTINE
FROM THE CALLING ROUTINE IN R1.

R3,-(SP)
;STORE R3
SSINDX,R3
sGET SUBROUT INE—-INDEX
(R3)+
:BUMP IT FOR NEXT ENTRY

MOV

2(SP),SUBSTK(R3)" s INSERT THIS CALL
#4, SUBSTK (R3)
;ADJUST IT TO CALLING LOCATION

R3,SSINDX
RD.=(SP)
R1,=(SP)

5%:

R4 ,=(SP)
#2 ,ERRSWI
PC.GSTAT

#DRDYMSK,T.(CS

:STORE IT BACK

;SET FOR NO ERROR RETURN
sGET DRIVE STATUS

;CHECK IF READY
;YES = SKIP
sDEC WAIT COUNT

;SKIP IF O

012700

000001

(o
RORENT,
XV, F W N AR
-]

001404

012703

0107M

7%:

104443

10020 . .ERR3

TSERCODE
10020

ERR3

000062
016514

000001

6%:

002466

#50. ,R1

;SET WAIT COUNT FOR 5 SECONDS

#DRDYMSK ,T.CS

sTEST IF DRIVE READY
sYES = SKIP
JWAIT 100 MS

PC,GSTAT

#1
#1,R0

000001

CSWTM

6%
#C5SEC R4
10021., ,ERRS

012006

sSET NAME MESSAGE PTR
;REPORT READY ERROR

;GET DRIVE STATUS

;DEC WAIT COUNT
;LOOP UNTIL TIME DONE

;SET CONDITION AFTER 5 SECDS

T$SERCODE
10021

ERRS
100000

002662
0024490
000002

012603

11%

002466

002424

#ANYERR,T.(CS

10%
10022.
, ,ERR6
T$ERCODE
10022

108
:
9%:

XIT
EST é:IANY ERROR SET

b
b b

A ettt §WW

EEEEERRERERERERRER

CZRLCB.PTT

30A(1052)

RT ALL ERRORS

ERS6
ERRCNT
ERRSWI

;DEC FOR DOUBLE ERROR REPORT
:CLEAR FOR ERROR ERROR RETURN

(SP)+,R3

JRESTORE R3

#2,SSINDX
(SP) +,R4
(SP)+,R1
(2P)+ RO

sREMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGISTERS

ASSEMBLY ROUTINES

CZRLCB.PT1

MACY11 30A(1052) 22-NOvV-78 16:20 PAGE I1-3?

25-0CT-78 13:12

1933
193,
1935

021004
021070
021072

005737
001403
063716

002440

1937

021020

017616

000000

1936

;g%g
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968

}ggg

1999
2000

021016

021024

021026
021030
021034
021036
021044
021052

000207

010346
013703
005723
016663
162763
010337

021056

010046

021062

004737

021060 . 010546
021066
021070
021074
021100
021104
021106
021110
021112
021116

021116
013703
042703
012705
006203
005305
001375
010337
162737

021136
021140

001403
063716

021124
021126
021130
021132
021144
021146

021152

012605
012600
012603
005737

000207
017616

000207

002440
99%:

002424
000002
000004
002424

002260
002260

020102

(02474
100177
000007

002526
000002

002424

002440

002440
000000

021154
021156
021162
021164
021172
021200

010346
013703
005723
016663
162763
010337

2008
2009
2010

021206
021210
021212

010146
010446
012737

000002

002440

2012
2013
2014
2015
2016

021224
021232
021236
021242
021246

052737
012703
013704
062704
012737

100000
003466
002450
000006
000010

002426

2007
2011

021204

021220

010046

012701

002424
002260
002260

;TEST IF ERROR RETURN
SYES = SKIP
*ADD IN ERROR RETURN

MOV

a(SP), (SP)

;SET ERROR RETURN ADDRESS

RTS

002456

READ ALL HEADERS ROUTINE.
IN IBUFF.

RDALHD: MOV
MOV
ST
MOV
SUB
MOV

MOV

000050

ERRSWI
99%
ERRSWI , (SP)

;
GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER
;
(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER
;
NUMBER IN CURCYL.
GETPOS: MOV
R3,-(SP)
:STORE REGISTERS
MOV
SSINDX,R3
*GET SUBROUTINE INDEX
ST
(R3) +
“BUMP IT FOR NEXT ENTRY
MOV
2(SP) ,SUBSTK(R3) " : INSERT THIS CALL
SUB
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
MOV
R3.SSINDX
*STORE IT BACK
MOV
R0,=(SP)
MOV
RS.=(SP)
JSR
PC . XRDHD
;DO READ HEADER
65%
MOV
HDWRD1,R3
:GET HEADER WORD
BIC
#~CHDCYL ,R3
*CLEAR ALL BUT CYLINDER
MOV
#7.RS
“SET SHIFT COUNT
4%:
ASR
R3
*SHIFT TO RIGHT JUSTIFY
DEC
RS
BNE
4%
MOV
R3, CURCYL
;STORE AS CURRENT CYLINDER
658%:
SUB
#2.SSINDX
*REMOVE ENTRY FROM SUBROUT STACK
MOV
(SP)+,RS
*RESTORE REGISTERS
MOV
(SP)+.R0
MOV
(SP)+.R3
ST
ERRSW]
:1EST IF ERROR RETURN
BEQ
99%
*YES - SKIP
ADD
ERRSWI , (SP)
*ADD IN ERROR RETURN
RTS
PC
99%:
MOV
a(SP), (SP)
:SET ERROR RETURN ADDRESS
;
:

000002
000004
002424

ST
BEQ
ADD

RTS

2007
2002
2003
2004
2005
2006

SEQ 0073

40 HEADERS ARE READ AND STORED

R3,-(SP)
:STORE REGISTERS
SSINDX,R3
*GET SUBROUTINE INDEX
(R3) +
*BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) " : INSERT THIS CALL
#4,SUBSTK(R3)
:;ADJUST IT TO CALLING LOCATION
R3.SSINDX
*STORE IT BACK

RO.=(SP)

MOV
MOV
MOV

R1.=(SP)
R4.=(SP)
#2 ERRSWI

:SET FOR MO ERROR RETURN

BIS
MOV
MOV
ADD
MOV

#HDR40,0PFLAG
#IBUFF .R3
RLBAS , R4
B MP R4
#10,L.CS

;SET 40 HDR OP FLAG
*SET POINTER TO STORE HDRS
*GET BASE ADDRESS
*MAKE IT POINT TO MP REG
“LOAD FOR READ HEADER, NO INTERRUPT

MOV

#40. R

:SET HEADER COUNT

ASSEMBLY ROUTINES

CZRLCB.PT1

2017

2018

021254

021262

053737

042737

021270
021274
021300
021304
021306
021314
021322

005037
005037
005737
001403
052737
013762
013762

2027
2028
2029
2030

021336
021340
021344
021346

001003
004737
021456
013762

2032

021330

22-NOV=78

25-0CT=78 13:12

2019
2020
2021
2022
2023
2024
2025

2026

MACY11 30A(1052)

032762

002000

002454

002456

BIS

000020
002462
002460

002462
000004
060002

(LR
CLR
TST
BEQ
BIS
MOV
MOV

002460
002462
002534

00C200

3$:

000000

#77797.RO

BNE
DEC
BNE
JSR
JSR
MOV
ERRHRD
TRAP

88
RO
7%
PC,READRL
PC.WAITIN
(SP)+,R3
10025., ,ERR1
TSERCODE

021360

032762- 000200

000000

7$:

BIT

203,
2035
2036
2037
2038
2039
(3)
(5)
(5)
2040
2041

021370
021372
021374
021400
021404
021406
021406
021410
021412
021414
021420

005300
001372
004737
004737
012603

2043
2044

021426
021430

100006
:

2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062

021436
021442
021444
021446
021450
021452
021454
021456
021464
021466
021470
021472
021474
021500
021502
021506
021510
021514

2033

021366

001015

104443
023451
013040
005037

000416

016262
016314

2042 021422 005737 002466
(3)
(5)
(5)

2292

2293

021430
021432
021434

104443
023452
013342

005037
000405
011423
011423
011423
005301
001334
162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

88 :

108:

002424

€5%:

002440
002440
000000

L.CS,RLCS(R2)

998:

;

(LR
BR
MOV
MOV
MOV
DEC
BNE
SuB
MOV
MOV
MOV
MOV
ST
BEQ
ADD
RIS
MOV
RIS

:TEST IF CONTROLLER READY

:YES = SKIP
ELSE CHECK READY
|
;LOAD RLCS REG

*SET COUNT FOR WAIT

HCRDYMSK,RLCS(R2S :CHECK THAT OPERATION FOMPLETED

10025
ERR1
ERRSWI

65$

BPL
ERRHRD
TRAP
.WORD
.WORD

002440

000002

68
PC,RDYCHK

WORD
'WORD
(LR

002440

:CLEAR BA
:CLEAR DA
TEST IF HEAD 0
:YES = SKIP
:ELSE INSERT HEAD 0
:LOAD RLDA REG
_:LOAD RLBA

MOV

6%:

077777

L.BA
L.DA
DESHD
3%
WHDSEL,L.DA_
L.DA.RLDA(R2)
L.BA.RLBA(R2)

; INSERT DRIVE NUMBER

:CLEAR FOR DRIVE 4 = 7 SPEC'D

WCRDYMSK,RLCS(R2S

000000

012700

#8IT10,(.CS

SEQ 0074

BIT

002456

021354

017632

J 6
PAGE 1-36

RLDRV,L.CS

BIC

BNE
JSR
65
MOV

2031

16:20

1.Cs

12%
10026.
, ,ERR6

TSERCODE
10026
ERR%

ERRSWI
65$
(R4),(R3)+
(R4).(R3)+
(R4).(R3)+
RI
68
#2,SSINDX
(SP)+.,Ré
(SP)+.R1
(SP)+.RQ
(SP)+.R3
ERRSWI
998
ERRSWI, (SP)
BC
@(SF),(SP)
PC

:YES = SKIP
DEC_COUNT
:SKIP IF NOT YET 0
‘ELSE GET ALL REGISTERS
‘ELSE WAIT FOR TIMEOUT
GET RESULT MESSAGE POINTER

;CLEAR FOR ERROR RETURN
.

:TEST FOR ANY ERRORS
N0 - SKIP

:CLEAR FOR ERROR RETURN
:STORE HEADER WORDS
:DEC HEADER COUNT
:REMOVE ENTRY FROM SUBROUT STACK
:RESTORE REGISTERS

:TEST IF ERROR RE TURN
‘YES = SKIP
:ADD IN ERROR RETURN
:SET ERROR RETURN ADDRESS

REPORT OPCPATION ROUTINE. PRINTS SUBROUTINE TRACE SEQUENCE AND

OPERATION BEING PERFORMED PORTION OF ALL

ASSEMBLY ROUTINES

CZRLCB.PT1

2294

MACY11 30A(1052) <Z2-NOvV=78 16:20 PAGE K1-39

25-0CT-78 13:12

2295

021516

010446

2297
2298
2299
(8)

021524
021526
021532
021532

001433
012704

2296

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

021520

021536
021542
021546
021550
021552

2300
(8)

021556
021556

(6)

021566

2301
2302

021602
021606

(7)

(3)
(4)
(4)

2303
2304

005737

010534
012327
000002

016446

002260

012746

000002

012746

021572
021574
021576

010600
104014
062706

021612

003761

062704
020437

000006

006217
002434
012132
000003

2305
2306

021644
021652

042737
013701

030000
002456

2307 021656
2308 021662

062706

042701
022701

2309
2310
2311
2312
2313
2314
2315

021666
021670
021676
021702
021704
021712
(021716

001003
052737
022701
001003
052737
022701
001003

2317

021726

000010

177741
000006

1%:

2318
2319
2320
2321
2322
2323

021726
021732
021736
021742
021746
021750
021752

021756
021762
021764
021772
021774
022000

016146
012746
012746
012746
C10600
104014
062706

020127
001007
032737
001403
012701
000436

002426

020000
000014

002426

002122
005143
012110
000003
00010

000004

000016

1%
#2 R4
#FMTO,#SEQMES
#SEQMES
, = (SP)

002462

28:

208:
22%:

SSINDX

MOV
MOV
MOV
EMT
ADD

#FMTY,
= (SP)
#2,-(5P)
SP,RO
CSPNTB
#6,SP

MOV

#FMT16,-(SP)

PRINTB
MOV

;TEST SUBROUTINE INDEX O

“SKIP IF 0
:SET INDEXER TO FIRST ENTRY
:PRINT '‘'SUBROUTINE CALL SEQ

#FMT16 SUBSTK(R4)
SUBSTK (R&4) ,=(SP)

JPRINT CALLING LOCATION

#2,-(SP)
SP.RO
C$ANTR
#6,SP

ADD
CMP

#2.Rb
R4. SSINDX

PRINTB

#FMT4,ERHEAD, #TS'LAB

BLE

:BUMP INDEX
;CHECK IF ALL PRINTED

LOOP IF NCT ALL PRINTED YET
:PRINT ERROR HEADER

MOV
MOV
MOV
MOV
MOV
EMT

#TSTLAB,-(SP)
ERHEAD
, = (SP)
#FMT4 ,~(SP)
#3,-(SP)
SP.RO
CSPNTB

BIC
MOV

#SEEKOP 'RORWOP,OPFLAG
;CLEAR SK & RD OR WRT FLAG
L.CS,R1
:GET COMMAND EXECUTED

BIC
CMP

010000
000012

000010

BEQ
MOV
PRINTB
MOV

ADD

002426

2316 021720 052737 020000 002426
(9)
(8)
(7)
(6)
(3)
(4)
(4)

R4 ,=(SP)

MOV
EMT
ADD

000002
002424

012746
013746
012746
012746
010600
104014

ERROR MESSAGES.

MOV

000006

021614
021620
021624
021630
021634
021636

021640

3%:

012502

(9)
(8)
(7)
(6)
(3)
(&)

(4)

RPTOP:

000002

012746
012746
012746
010600
104014
062706

021562

021614

002424

;

SEQ 0075

BNE
BIS
CMP
BNE
BIS
CMP
BNE

#10,5P

#1777461 ,R1
*STRIP ALL BUT FUNCTION ~ODE
#6,R1
:TEST IF SEEK OPERATION

2$
#SEEKOP,OPFLAG
#12.R1
208
#RORWOP,OPFLAG
#14,R1
22%

BIS

#RORWOP,OPFLAG

MOV
MOV
MOV
MOV
MOV
EMT
ADD

OPMSGS
(R1) ,=(SP)
#MOPER
, - (SP)
#FMTT,=(SP)
#3,-(5P)
SP.RO
CSANTB
#10,SP

PRINTB

CMP
BNE
BIT
BEQ
MOV
BR

:NO = SKIP
-ELSE SET SEEK FLAG
STEST IF WRITE
*NO
- SKIP
:SET RD OR WRT FLAG
*TEST IF READ
*NO = SKIP

:SET RD OR WRT FLAG

#FMT1,#MOPER,OPMSGS(R1)

R1.,44
4%
#DRSET,L.DA
4$
#34,R1
9%

:PRINT OPERATION

JCHECK IF GET STATUS
‘N0
= SKIP
“TEST IF RESET INCLUDED
‘NO = SKIP
“SET TO PRINT WITH RESET

CZRLCB.PTT

032737

007777

002426

002426
000020
000001

s WNINWWN
N

AINININININININ

SRR

2324
2325

22-NOV-78
4%:

5%:

BIT
BEQ
MOV
MOV

16:20

PAGE 1-38

ggOHPOP,OPFLAG

OPFLAG.R4
#20,R1

#B1T00,R4
6$

’(‘21)*

002122
012124
000002

002426

:LSST IF ANY OTHER OPERATION

:NO

- SKIP

sSET UP TO DETERMINE WHICH ONE
;PRESET THE POINTER

sCHECK THE BIT
;IF SET = SKIP
;BUMP POINTER

#FMT2,0PMSGS(R1)

8%:

#HDR4O,OPFLAG

9%:

#FMT2,0PMSGS(R1)"

OPMSGS (R1) ,-(SP)
#FMTZ.-;SP

10$
#50,R1

;TEST IF 40 HEADER OPERA/ION

*NO
- SKIP
“ELSE PRINT IT

(R1) ,-(SP)
OPMSGS
#FMT2,=(SP)
#2,-(5P)

SP.RO
CSPNTB

000006
010000

SEQ 0076

6%:

8'\)%0‘
N

002122
012124
000002

bbb

020050

—=0000

000006
100000

CY11 30A(1052)
25-0CT-78 13:12

ASSEMBLY ROUTINES

#6,SP

002426

10%:

158

:SKIP

15%

‘NO
- SKIP

wseexop OPFLAG

-TEST

SEEK

AFMT13, #FRMWD ,OLDCYL ,#DIFWD,DESDIF ,#SGNWD,DESSGN,#HDWD, DE SHD
DESHD, = (SP)

002534
010475

#HDWD
.= (SP)

= (SP)
DESSGN,

#SGNWD
. = (SP)

DESDIF .=(SP)
. ~(SP)
#DIFWD
OLDCYL ,=(SP)

#FRMWD
.~ (SP)

#FMT13.-(SP)
#11,=(5P)
SP,RO

06
032737
001424

013746

C$PNTB

002426

15%:

#24 ,SP

#RORWOP,OPFLAG

#HDWD
, = (SP)

CURCYL ,=(SP)

#CYLWD
.= (SP)

#EMT22
= (SP)
#7,-(SP)

104014

:TEST

READ OR WRITE

SET

17%
NO
- SK SKIP
#FMT22, #CYLWD, CURCYL,#HDWD, DE SHD , #SE CWD , DESSEC
DESSEC ,=(SP)
#SECWD
, = (SP)
= (SP)
DESHD,

5P RO
CSANTR

ASSEMBLY ROUTINE S

CZRL(B.PT1

MACY11 30A(1052) 22-NOvV-78 16:20 PAGE 1-33
M

25-0CT-78 13:12

022270
022274
022300
022302

000020
022746

17%:

ADD
JSR
MOV
RTS

#20,SP

PC,CLRPARM

(SP)+,R4

SEQ 0077
;CLEAR PARAM TABLE
;RESTORE R4

REPORT REASON ROUTINE

PRINTS REASON PORTION FOR ALL ERROR REPORTS.
R1,=(SP)
TORE R1

RPTRES: MOV

MOV

002504

RG . =(SP)
#RE SPARM,R1
(R1)+,R3

MOV
MOV

(R1),=(5°)
#MRSLT,=(SP)

PRINTB

005157
012115
000003

MOV

000010
011405

012342

012746

3%:

011647

BEQ
MOV
CMP
BNE
MOV
DEC
BEQ

6$
#FMT11,R4
(R1)+,#MCYLOC
3
#EMT12,R4
R3
6%

MOV

#RESES,-(SP)

MOV
MOV
EMT
ADD

#3,-(SP)
SP.RO
CSANTB
#10,SP

MOV

000003
000010

PRINTB

MOV
MOV
MOV
MOV
MOV
EMT
ADD
SUB
BEQ

011653
000003

000010
000002

PRINTB

MOV

011660
012110
000003
000010

6%:

(R1) ,#AMNDRST

R4, #RESE3, (R1)+
(R1)+,=(SP)

R4, #RESEL, (R1)+

(R1)+,=(SP)
#RESE4,
- (SP)
R4, =(SP)
#3.-(SP)
SP,RO
CSPNTB
#10,SP
#2.R3
6[

; GET NUMBER OF PARAM

;PRINT NAME

sTEST IF MESSAGE IS NO DRV STATUS
;YES = SKIP REST OF REPORT
sPRISET FOR FORMAT 11
sCHECK IF REPORTING CYLINDER LOC
sNO - SKIP
;ELSE CHANGE TO FORMAT 12
:DEC_PARAM COUNT

JiF 0 = EXIT

;REPORT IS VALUE

sREPORT SB VALUE

:DEC PARAMI$0UNT
JIF 0 = EX

#FMT1 #RESES,(R1)+
(R1)+.=(SP)

#RESES,
- (SP)

MOV

#3,-(SP)

MOV
EMT
ADD
MOV
MOV

;GET START OF PARAM

R4 ,=(SP)

MOV

:STORE R4

#FMT1.1,-(SP)

#3,-(SP)
SP,RO
CSANTR
#10,5P

PRINTB
MOV

;STORE R3

#FMT1.1,#MRSLT,
(R1)

MOV
MOV
EMT
ADD

CMP

012334
011400

R3,-(SP)

MOV
MOV
MOV

;REPORT CONDITION

#FMT1,=(SP)

SP.RO
CSPNTB
#10,SP
(ZP)+.R4
(SP)+.R3

;RESTORE REGS

MACY11 30A(1052) 22-M)V-78 16:20 PAGE 1-48

ASSE&Y ROUT INE
25-0(T-78 13:12

CZRLCB.PTT

022506
022510

MOV

012601
000207

RTS

(SP)+,R1

SEQ@ 0078
sRETURN

REPORT PHYSICAL ADDRESS OF DEVICE UNDER TEST
AND ALL REGISTER CONTENTS.

RPTREM: FC’RINTB

022512

002455
005633

002450
005622
012143
000005

022550

000014

022554
022554

010475

BISB
MOV

RLDRV+1, (SP)
#DRVNAM, - (SP)

MOV
MOov

w5,SP,RO

EMT

MOV
MOV
MOV

DWD
, - (SP)
#CYLWD ,=(SP)
#MPNAM, = (SP)

MOV
MOV

#CSNAM, = (SP)
#EMT6, = (SP)

MOV
EMT
ADD

SP.RO
CSPNTB
#20,SP

PRINTB

MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
EMT

jelelelelels]

CSPNTB

#s, SP
ADD
REPORT RL11 REGISTERS
PRINTB #FMT6,#CSNAM, #DANAM, M3ANAM , #MPNAM, #CYLWD , #HDWD

MOV

13746
13746
13746
13746
13746
13746

lil;;
5 ,#BASADD ,RLBAS,#DRVNAM,

#7.,-(5P)

#FMT8,#LAB1,L.CS,L.DA,L.BA,L.MP

L.MP,=(SP)
L.BA,=(SP)
L.DA,=(SP)

L.CS,~(SP)

#LAB1,=(SP)
#FMT8,-(SP)
#6,-(SP)
SP,RO
CSPNTB

ADD
PRINTB

#16,SP
#FMT7 ,#LAB2,T.CS,T.DA,T.BA,T.MP,CURCYL
,DESHD

MOV

CURCYL ,=(SP)

‘MOV ~
MOV
MOV
MOV
MOV

DESHD,~(SP)
T.MP,=(SP)
T.BA.=(SP)
T.DA.=(SP)
T.CS.=(SP)

MOV
MOV

#LAB2,~(SP)
#FIAT7.= (SP)

MOV

SP,RO

MOV
EMT
ADD

RTS

#10,-(SP)
CSPNTR
#22,SP
PC

ASSEMBLY ROUTI

CZRLCB.PTT

2385

1 30A(1052,

22-NOvV-78

CLRPARM:

’$:

CLR
DEC
MOV

022774
022776

RTS

ENDMOD

16:20 - PAGE 1-41

RS,=(SP)

SEQ 0079
:STORE RS

#RE SPARM ,R1

:GET ADDRESS OF BLOCK

(R1)+

:CLEAR WORD

#5 RS

#RESPARM,R1
,E,EP”'RS

“SET COUNT

*DEC COUNT

*LOOP UNTIL G

*RESET POINTER

*RESTORE RS

ASSEMBL Y WTI'§§0CT

CZRLCB.P11

2398
%238

022776

BGNMOD
LSBTTL

2401
(3)
2602
2403
2404
2405
2606

022776
022776
022776
023002
02
023010
023012

BGNTST
005737
001120
005737
100115
012737

(12)
(13)
(12)
(11)
(10)
(9)
(8)
(7)

023020
023022
023026
023032
023036
023042
023046
023052

005046
153716
012746
013746
012746
012746
012746
012746

2407

023020

(6)

023056

(4)

023064

2408

023072

(3)
(3)
(4)

023076
0231
023102

(5)
(5)
(3)
2410
2411
2412

023106
023110
023112
023112
023116
023120

3)
4)

MACY11 30A(1052) 22-NOV-78 16:20 PAGES

~78 14:39

2409
(5)

2413
2414
2615
2416
2417
2418
(3)
(5)
(5)

023076

023106

023124
023130
023132
023140
023142
023146

023146
023150
023152

012746

003062
014656

.
006225

007774
012016
7

066

104443
000145
013154

016446
016500

000010

2421
2422

023164
023170

012703

011105

(3)
(5)
(5)
2623

2424
2425
2626
(3)

023170
023172
023174
023176

023204
023206
023212
023212

104443
000146
013154
032737

0010CS
012703

104443

1$:
002474

011072

032737

001005

10000$:

020000

011120

002474

7%:

9%:

BASIC INTERFACE (PART 1)
:
:
PASNUM
65%
MISWIW

;TESTO1

65%
#MISTST,ERHEAD

:CHECK IF FIRST PASS
SEXIT IF NO
:CHECK IF MANUAL INTERVENTION
“NO = EXIT TEST
:LOAD ERR HEADER

#FMTOP1.#OPR1,#OPR1A,#BASADD ,RLBAS,#DRVNAM, <B,RLDRV+1>

-(SP)
RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS ,~(SP)
#BASADD
, = (SP)
#OPR1A,=(SP)
#OPR1,=(SP)
#FMTOP1,=(SP)
#7,-(SP)

SP,RO

CSPNTF

ADD

#20,SP

GMANIL

OPR002,0BUFF,1,NO

CLR

004066

000040

CLR
BISB
MOV
MOV
MOV
MOV
MOV
MOV

EMT

104043
000404
004066
000120
007724
1

005737
001740
004737
004737
023244
032737
001005
012703

PRINTF

MOV

062706 * 000020

005037

ST
BNE
TST
BPL
v

MOV

104017

023154

023162

2%:

002455
005633
002450
005622
010416

2619

2420

002434

HRDWTST
*TEST 1

SEQ 0080

EMT
BR
.WORD
.WORD
.WORD
LWORD

TST
BEQ
JSR

OBUF F

:(LEAR FOR RESPONSE

CSGMAN
10000%
OBUFF
TSCODE

OPR002
1

JSR
65%
BIT
BNE
MOV
ERRHRD

OBUFF
2%
PC,TSTINT
PC,GSTATC
;
#COSTAT,T.MP
7%
#MCOSTA,R3
101.,.ERR3

;TEST RESPONSE YES
:YES - SKIP
:INITIALIZE TEST
;GO GET STATUS (NO RESET)

BIT

#BHSTAT,T.MP

:TEST IF BRUSHES HOME

MOV
ERRHRD

#MBHSTA ,R3
102...ERR3

“SET POINTER FOR BRUSH HOME ERROR

TRAP
.WORD
.WORD

BNE

TRAP
.WORD
.WORD

BIT
BNE
MOV
ERRHRD
TRAP

TSERCODE
101
ERR3

TSCRCODE
102
ERR3
#WLSTAT,T.MP

11%
#MJLSTA,R3
103.
., .ERR3
TSERCODE

;CHECK IF COVER OPEN SET
:YES = SKIP
:SET NAME POINTER

SYES - SKIP

'
:TEST IF WRITE LOCK SET
*YES = SKIP
:SET NAME POINTER

ASSEMBLY ROUTI

CZRLCB.PT
(5)
(5)

000147
013154

023230
023232
023234

104443
000150
014220

023220
023224
023226
023230

2431
2432
2433
2434

023236
023242
023244
023244

(3)
(3)

023244
023244

MACY11

gg-OCI-78 14:39

023214
023216

2427
2428
2429
24630
(3)
(5)
(5)

005737
001404
005003

004737
023244

%
104001

002502

016464

30A(1052)

TEE;N?V-78

16:20

11%:

i5%:
65%:
ENDTST

L10020:

.WORD
.WORD

PAGE 2-1

BASIC INTERFACE (PART 1)
103
ERR3

TST
BEQ
CLR
ERRHRD

T,STAT
15%
R3
104.,,ERR7

;TEST IF STATE ZERO
;YES = SKIP
~
sSET STATE EXPECTED

JSR
65%

PC,.GSTATR

;DO DRIVE RESET

EMT

CSETST

TRAP
.WORD
.WORD

TSERCODE
104
ERR7

SEQ 0081

MACY11 30A(1052)
22=NQv-78
*TEST 2
23-0CT-78 14 :39

ASSEMBLY ROUTINES

CZRLCB.P1T

.SBTTL

*TEST 2

012737
005046
153716
012746
013746
012746
012746
012746
012746
012746
010600
104017
062706

006225

(PART 2)

;TEST IF PASS 0

*TEST IF MANUAL

INTERVENTION

65$

N0
- SKIP

65$

‘NO = SKIP

#MISTST ERHEAD

:SET ERROR HEADER

’§2;9P1.#OPR2 ,#OPRTA,#BASADD ,RLBAS, H#DRVNAM,

002455
005633

RLDRV+1, (SP)
- (S+~)
#DRVNAM,
RLBAS ,~(SP)
, - (SP)
#BASADD
#OPR1A,-(SP)
#OPR2,=(SP)
#FMTOP1,-(SP)
#7,-(SP)

SP,RO
CSPNTF

#20,SP

005037

OBUFF

;COVER AND RESET WRITE LOCK
*CLEAR FOR RESPONSE

OPR002,0BUFF ,1,NO
CSGMAN

104043

000404
004066
000120
007724
000001

005737

PASNUM
MISWIW

002434

SEQ 0082

;TEST 2
TST

014656

(PART 2)

BASIC INTERFACE

BGNTST

003062

16:20 PAGE
2-2
BASIC INTERFACE

10000%
OBUFF
T$CODE

?PROO?

100008:

004066
016446
016464
000040

1$:

002474

OBUFF

sTEST I RESPONSE YES

PC,TSTINT
PC,GSTATR

JGET

#COSTAT,T.MP

9%
#MCOSTA R3

011072

201., ,ERR?
T$ERCODE

020000

201
ERR2

002474

MWLSTAT,T.MP

65%

011120

#MWLSTA ,R3

202., ,ERR2
T$2RCODE

65%:

)2
ERRZ2

ENDTST

£L10021:

CeETST

;NO
- SKIP

;TEST

JINITIALIZE TEST
STATUS WITH RESET

COVER OPEN RESET

;YES - SKIP
:SET NAME MESSAGE POINTER

sTEST

IF WRITE LOCK RESET

SYES = SKIP

:SET NAME MESSAGE POINTER

;REQUEST CLOSE

ASSEMBLY ROUT INE

CZRLCB.P11

2466

MACY11

23-0(7-78 4:39

023450
023450
023450
023454

005737
001003

2472
(3)

023464
023464

104032

(3)

2473
2474
2475
2476
2477

023456
023462

023466

005737
100402
001214

023470
023474
023500
023502
023506

004727
004737
024702
005737
001440

(13) 023510
(13) 023512

005046
153716

2478

023510

(12)
(11)
(10)
(9)
(8)
(7)

023516
023522
023526
023532
023536
023542

(3)
(4)
(4)

023552
023554
023556

(6)

2479
2480
(3)
(3)
(4)
(5)
(S)
(5)
(3)

2481
2482
2483

023546

023562
023566
023566

023570
023572
023574
023576
023600
023602

023602
023606
023610

012746
013746
012746
012746
012746
012746

012746

010600
104017
062706

005037

;

003062

016446
016464

2484
2485
2486
2487

023652
023654
023656

023662
023670
023674
023702

010600
104017
062706

012737
012703
012737
012701

HEAD LOADING

SEQ 0083

HEAD LOADING
;TESTO3

PASNUM
4%

‘

sTEST IF PASS 0
“NO SKI

MISWIW
5%

T3::

31344 IF MANUAL INTERVENTION
“YES - SKIP

TST
CSEXIT

L10022-.

PC,TSTINT
PC,GSTATR

JINITIALIZE TEST
;GET STATUS

T.STAT
23

JTEST IF STATE ZERO
YES
- SKIP

#FMTOP1,#0PRS, ‘G’R"A ABASADD ,RLBAS ,#DRVNAM, ;REQUEST DRIVE BE

005633
002450
005622
010416
010120
012016

MOV
MOV
MOV
MOV
MOV
MOV

#DRVNAM.
= (SP)
RLBAS ,=(SP)
‘BASADD -(SP)
#OPR1A, -(SP)
#OPRS, = (SP)
lFMTG’T -(SP)

000020

MOV
EMT
ADD

SP,RO
CSPNTF
#20, SP

BR
.WORD
.WORD
.WORD
MWORD

10000%
OBUFF
T$CODE
OPR0O0?2
1

TST
BEQ
PRINTF

OBUFF
JTEST IF RESPONSE YES
1%
NO - SKIP
#FMTOP1,#0PR3, ’OPR"A ABASADD ,RLBAS ,#DRVNAM,

CLR
BISB

002455

000007

MOV

004066

CLR
GMANIL
EMT

10000%:

004066

2%:

005622
010416
010104

(3)
(4)
(4)

PRINTF

012746
012746
012746

012746
012746

JSR
JSR
T365%
TST
BEQ

1%:

(10) 023626
(9)
023632
(8)
023636
023642
023646

.WORD

5%:

002502

002455
005633

013746

EXIT
EMT

PAGE 2-3

+«TEST 3

TST
BM]

4%:

104043
000404
004066
000120
007724
00000

005737
001740

16:20

TST
BNE

014656

005046
153716
012746

(7)
(6)

TEST 3

BGNTST

(13) 023610
(13) 023612
(12) 023616
(11) 023622

22-NOV-78

.SBTTL

2467
(3)
2468
2669
470
671

30A(1052)

002450

012016
000007

000020

000004
000001
006250
(000454

002426
002434

CLR
BISB
MOV
MOV

MOV
MOV
MOV

-(SP)
RLDRV+1, (SP)

#7,-(SP)

OBUFF
OPRO0Z2,0BUFF
C$GMAN

:CLEAR FOR RESPONSE
,1 NO

-(SP)
RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS,~(SP)

#BASADD ,~(SP)
#OPR1A
= (SP)
#OPR3,~(SP)

MOV
MOV

#FMTOP1,=(SP)
#7.,-(SP)

MOV
MOV
MOV
MOV

#CYLUP,OPFLAG
#1,R3
Ov.CTACHG ERHEAD
#300. R

MOV
EMT
ADD

SP.R0
CSPNTF
#20,SP

;SET
*SET
;SET
“SET

C(YCLE UP FLAG
EXPECTED STATE VALUE
ERROR HEADER
WAIT COUNT FOR 30 SECONDS

s
7
FASSE&V
ROUTI
MACY1T
30A(1052)
ZZ-WV-78
16:20
PAGE
34.
CIRLCBLP1T 1380cT-781459
T3
HEAD LOADING
288
2489
2490

023706
023712
023714

004737
024702
005737

26492
2493
249
(3)
(3)
2495
2496
2497
(3)

023722
023724
023726
023726
023732
023734
023736
023742
023742

005301
001404

2491

(3)

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

023720 001022

012700
104026

000764
(05037

2498
2499
2500
2501
2502
2503
(3)

023756
023762
023764
023766
023772
023774
023774

005737
001004
000651
020337
001405

2504

024002

(3)
2505
2506
2507
2508
2509
2510
2511
2512

024004
024006
024012
024016
024022
024024
024030
024032
024034

000676
012701
012703
004737
024702
020337
001435
101005

024036
024040

000456
014220

(3)
(3)

024042
024044

104032
000636

(3)

024052

012700

2517
2518

024060
024062

000756

(5)

024064

000457

024070

032737

(3)

(5)
(5)

2513
2514
2515
2516

023756

023776
024000

000455
014220

024002

104032

024034

024042

024046
024050
024052

(5)

2519

000001

004066

68:

024062
024066

100018:

004066

002502

108:

11$:

:GET STATUS

T.STAT

:TEST IF STATE IS STILL 0

DEC
BEQ
WAITMS
MOV
EMT
BR
(LR
GMANIL
EMT

RI
DEC WAIT COUNT
&S
SEXIT IF WAIT DONE
#1
#1,R0
CSWIM
38
OBUFF
;CLEAR FOR RESPONSE
OPR003,0BUFF,1,ND
CSGMAN

.WORD
"WORD
-WORD
WORD

OBUFF
TS$CODE
JPROO3
1

IST
BNE
BR
(MP
BEQ
ERRHRD
TRAP

OBUFF
11%
13
R3,T.STAT
13%
301.,,ERR7
TSERCODE

.WORD
.WORD

EXIT
EMT

000454
000002
016500

138:

148:

002502

000001

188:

004000

002474

TST

RI
188
41

#1,RO

8R
ERRHRD

14$
303.,,ERR7

WORD

BIT

JCHECK [F STATE 2
YES = SKIP
*CHECK IF NO CHANGE = YES = SKIP

TST

MOV

.WORD

;SET WAIT FOR 30 SECONDS
SET EXPECTED STATE VALUE
GET STATUS

TSERCODE

CSEXIT
L 10022-.

TRAP

:CHECK IF NOW STATE 1
YES = SKIP

CSEXIT

EMT
WORD

EMT

:TEST IF RESPONSE YES
:YES = REPORT

301
ERR?

302
ERR?7

DEC
BEQ
WAITMS

INO- SKIP

100018

.WORD
.WORD

EXIT

178:

108

.WORD
110022~
MOV
#300.,.Ri
MOV
#2,R3
JSR_
PC.GSTATC
7365%
(MP
R3,T.STAT
BEQ
208
BHI
17$
ERRHRD 302., ,ERR7
TRAP

104443

014220

PC,GSTATC

104443

005301
001404

JSR_
73658
1ST

BNE

104443

(3) 024056 104026

(3)

902502

104043

004066
000120
007751
000001

(5)
(5)

38:

023744 000404
023746
023750
023752
023754

(3)

016500

SEQ 0084

:DEC WAIT COUNT
SSKIP IF O

CSWTM

TSERCODE

303

EnP7

WSPDSTAT,T.MP

;TEST

SPINDLE

TIMEQUT

ASSEMBLY ROUTINES
MACY11
CZRL(B.PN
23-0CT-78 14:39

001010
012737
012703

006262
211172

22=NOV-78
«TEST 3

16:20 PAGE 2-5
HEAD LOADING

19%

002434

#SPDERR ,ERHEAD

#MSPERR,R3

304., ,ERR3

104443
000460

SEQ 0085

;YES = SKIP
;SET ERROR HEADER

sSET NAME MESSAGE POINTER

;SERCODE
19%:

006223

002434

000010

002474

20%:

#MISTST ,ERHEAD
#STATEZ2
R4
#MBHSTA
R3
‘gHSTAT.T.MP

22%
305., ,ERRS

305
ERRS

104032

CSEXIT
L10022-.

000010

TST

000062
016500
002474

PC,GSTATC

H#BHSTAT,T.MP

27%

26%

012700

106026

sSET ERROR HEADER
sSET CONDITION MESSAGE POINTER
sSET NAME MESSAGE POINTER
;TEST IF BRUSH HOME STILL SET
sVES = WiP

TSERCODE

000461
013272

rore
Wi
X2l

024076

30A(1052)

#1
#1,RO

000001

000763

26%:

104443

000462
013222

CSWTM
23%

sSET WAIT COUNT FOR 5 SECONDS
:GET STATUS

sTEST IF BRUSH HOME RESET
;YES = SKIP

sDEC WAIT COUNT
;SKIP IF ZERO

.LOOP

TSERCODE

306

ERR4
TST

000454
016500

000010

27%:

sSET WAIT COUNT 30 SECONDS

28%:

002474

JGET STATUS

T .MP
#BHSTAT,

32%

30%

#1
#1,R0

000001
30%:

CSWTM
28%
TSERCODE

307
EnRS
ST

JTEST IF BRUSH HOME SET AGAIN
JYES - SKIP
JELSE DEC WAIT COUNT

JSKIP IF O

MACY11 30A(1052) 22-NOV-78 16:20 PAGE 5-6

ASSEMBLY ROUTINES
CZRL(B.P1T
23-0CT1-78 14:39

104032

000400
012737
012703
004737
024702
020337
001405

006250
000003
016500

002434

32%:

002502

HEAD LOADING

EMT
.WORD
MOV
MOV
JSR
1365%
CMP

BEQ

ERRHRD

104443

TRAP

000464
014220
104032

006225
011702
011131
016500

002434

000020

002474

36%:

013272
104032

000272
032737
(21007
012703

001000

002474

38%:

011061

104443
000466

040000

002466

40$:

011033

000004

016500

024512
024516

002502

002434

43%:

308
ERR7

TST
CSEXIT

#HOSTAT,T.MP
38%
309...ERRS

:SET ERROR HEADER
sSET CONDITION MESSAGE POINTER
sSET NAME MESSAGE PCINTER

:GET STATUS

sTEST IF HEADS OUT
JYES - SKIP

SET

TSERCODE

ERRHRD

TST
CSEXIT
L10022-.
#VCSTAT.T.MP
408
#MVOL
CK ,R3
310...ERR5

.WORD
"WORD
EXIT
EMT
.WORD
BIT
BNE

310
ERRS
TST
CSEXIT
L10022-.
#DRVERR.T.CS
42%

EXIT
EMT
.WORD
BIT
BNE
MOV

MOV
ERRHRD

42%:

30C8.,.ERR7

;CHECK IF STATE 3
;YES = SKIP

TSERCODE

309
ERRS

sTEST IF VOLUME CHECK SET
sSET NAME MESSAGE POINTER

TSERCODE

#MDRERR ,R3
311..,ERRS

:TEST IF DRIVE ERROR SET

‘YES - SKIP
*SET NAME MESSAGE POINTER

TSERCODE

LWORD
-wORD

311
ERRS

.WORD
MOV
MOV

#3000. ,R1
;SET WAIT COUNT FOR 300 MS
#NSTACHG ,ERHEAD,
;:SET ERROR HEADER

JSR

PC.GSTATC

EXIT
EMT

005670
006250

36$

.WORD
.WORD

TRAP

024466

R3,T.STAT

L10022-.
AMISTST
. ERHEAD
#STATE3 R4
#MHOSTA
R3
PC,GSTATC

TRAP

013272

CSEXIT
L10022-.
#NSTACHG, ERHEAD ;SET ERROR HEADER
#3,R3
:SET EXPECTED STATE VALUE
PC.GSTATC
.'GET STATUS

.WORD
.WORD
EXIT
EMT
.WORD
MOV
MOV
MOV
JSR
1365$
BIT
BNE
ERRHRD
TRAP

SEQ 0086

MOV

rssss

BEQ

TST
CSEXIT
L10022-.
°

#4 R3

R2,T.STAT
45§

ET EXPECTED STATE VALUE
ET STATUS

HECK

STATE

'ES = SKIP

ASSEMBLY ROUTINES

CZRLCB.P1

024520

MACY11 30A(1052)

23-0CT-78 14:39

22-NQV-78

«TEST 3

005301
001404

012700

104027

16:20

DEC
BEQ
WAITUS
MOV

000001

000764

L7%:

104443

ERRHRD

J 7
PAGE 2-7

47%

#
#1,R0

TSERCODE

312
ERR7

104032

CSEXIT

TST

£9”.;
016500

MOV

sSET WAIT COUNT FOR 30 MS
sSET EXPECTED STATE VALUE
;GET STATUS

50¢%:

002502

R3,T.STAT

55¢

R1
51%
#1

000001
ERRHRD

014220

000120
016500
000001

CSWTU
50%

313...ERR7

T$ERCODE
313
ERR7

§58:
56%:

MOV
JSR

002466

CSEXIT
L10022-.

#80. ,R1

PC,GSTATC(
#DRDYMSK,T.CS

62%

60%

#1
#1,R0

000001

024674
024676
024700

024702
024702
024702
024702
024702

005225
011712
016711

002434

60%:

MOV

gSUTU
6$
#MISTST ,ERHEAD
#STATES
R4
#MDRDY ,R3

314, ,ERRS

104443

ISERCODE

000472
013272

104001

JELSE SKIP

TST

10403¢

012703

;CHECK IF STATE 5
JYES - SKIP
sDEC WAIT COUNT

#1.R0

51%:

000064

;DEC WAIT COUNT
:SKIP IF 0

CSWTU
438

000470
014220

000136
012701
012703
004737
024702
020337
001413

SEQ 0087

HEAD LOADING

ERRS
62%:
T365%:
ENDTST
L1002¢2:

EMT

C$ETST

JSET WAIT FOR 8 MS
sGET STATUS
;CHECK [F DRIVE READY

JYES = SKIP

sDEC COUNT
:SKIP IF O

:SET ERROR HEADER

sSET CONDITION MESSAGE POINTER
sSET NAME MESSAGE +CIMTER

ASSEMBLY ROUT INE
MACY11
| CZRLCB.P1T
23-0CT-78 14:39

2624
2625
(3)
2626
2627
2628
2629
2630
(3)
(3)
2631
2632
(3)
(3)

30A(1052)

22-NOV-78
TEST &

16:20 PAGE 2-8
HEAD UNLOADING

SEQ 0088

HEAD UNLOADING

;TESTO4

024704
024704
024704
024710
024712
024716
024720
024720
024722
024724
02472¢
024724

PASNUM

024724

:TEST IF FIRST PASS

‘N0 = SKIP

108

‘YES - SKIP

MISWIW

EXIT TST

STEST

IF MANUAL

INTERVENTION

CSEX]T
L10023-.
74.1:

C$BSUB

#NSTACHG,ERHEAD ;SET ERROR HEADER
PC,TSTINT
CINITIALIZE

TEST

PC.GSTATR

:GET STATUS

#DRDYMSK,T.CS

;CHECK IF DRIVE READY
- SKIP
YES

lig;?P1MOPR6, #0PR1A #BASADD ,RLBAS ,#DRVNAM,

RLDRV+1, (SP)
- (SP)
#DRVNAM,
RLBAS ,=(SP)
, = (SP)
#BASADD

#OPR1A,-(SP)
= (SP)
#0PR6,

#FMTOP1 ,-(SP)

#7,-(SP)

SP,RO
CSPNTF
fi20 SP
0BUF

:CLEAR FOR RESPONSE

OPROOZ OBUFF ,1,NO
CSGMAN
700008
OBUFF
T$CODE

OPRO02

2643

025054

2645

025056

002426

3%:

4%:

OBUFF
1%

s TST RESPONSE YES
:NO - SKIP

#ULOAD ,OPFLAG

;SET UNLOAD OPERATION

a;g;gpi #OPR3,#OPRTA, #BASADD ,RLBAS,#DRVNAM, <B,RLDRV+1>
RLDCRV+1, (SP)

#DRVNAM,
- (SP)

RLBAS,=(SP)
, = (SP)
#BASADD
#OPR1A,
= (SP)

#OPR3,=(SP)

#TMTOP1,-(SP)

#7.-(SP)

ASSEMBLY ROUT

CZRLCB.P1T

- 025126

MACY11 30A(1052) 22-ov-7s 16:20 PAGE 5-9

2 ~OCT=78 14:39

«TEST

104017

062706
012703

000020
000006

012701
004737
025400

001274
016500

012704

022737
001025
005304

000005

001406
012704

000144

012700 000001

5%:

004066

002502

68:

7%:

000001

004066

10001%:
9%:

104443
000621

014220

000007

737

016500

104027

000764

025330

104443
000622
014220

005670

SEQ 0089

CSPNTF

#100. ,R4

R3,T.STAT
118§

sSET EXPECTED STATE VALUE
sSET SECOND LEVEL COUNT
;SET WAIT COUNT FOR 30 SECONDS
;GET STATUS

C#ECK IF STATE 6
;YES
- SKIP

(MP

cs T.STAT

:TEST IF STATE 5
:NO - REPORT WRONG STATE

BNE
DEC

6$
R1

:SKIP IF NOT 9
ELSE
ng
ST _LEVEL COUNT
IP_TO QUESTION
ES ELY,SZM) LEVEL

MOV

#1.R0

BR
LR

(13
OBUFF

BNE
DEC

BEQ
MOV
WAITUS

9%
Rb

7
#100. ,R4
#1

;DEC 2ND LEVEL COUNT
B

CSWTU

GMANIL
EMT
BR

:CLEAR FOR RESPONSE
OPR003,0BUFF,1.NO
CSGMAN
10001$

-WORD

OPR0O3

"WORD

OBUFF
T$CODE
1

ST
BEQ

0BUFF
43

TRAP
.WORD

TSERCODE
401

EXIT

SuB

ERRHRD

EMT

000126
012703

012700

#700. .R1
PC.GSTATC

.WORD

104032

025400
020337
001413
005301
001404

MOV
JSR
T465%

.WORD
.WORD

007751

012701

#20,SP
#6 R3

EMT

104043
000404
004066
000120

005737
001706

ADD
MOV

TMMP
BEQ

104027

000754
005037

SP,RO

MOV

8%:

001004
005301

MOV

EMT

000144

020337 002502
001436

HEAD UNLOADING

401.,,ERR7

LSST éFIRESPONSE VES

;ELSE REPORT STATE CHANGE WRONG

ERR7

CSEXIT

11$:

.WORD
MoV

L 10024~
#7 .R3

12%:

PC,GSTATC

sSET COUNT FOR 300MS
sGET STATUS

R3,T.STAT
18%
R1
168.

sCHECK IF STATE 7
;YES = SKIP
;DEC WAIT COUNT
;SKIP IF O

002502

MOV

T465%
CMP
BEQ
DEC
BEQ

WAITUS

000001

MOV
EMT

168:

ERRHRD

TRAP
LWORD
.WwORD

EXIT

#3000. ,R1

sSET EXPECTED STATE VALUE

#1,R0

CSWTU

12$

402...ERR7

TSERCODE
402
ERP7

SuB

;REPORT WRONG STATE

(HANGE

*—

ASSEMBLY ROUTI

CZRLCB.P1
<g>

(3)

2683

2684
2685
2686

2687
2688
2689

005003
012701

025346
025350
025354

025400
005737
001411

025342

025356
025360
025362

004737

025370

000764

025374
025376

104443
000623
014220

025372
025372

2692
22232

025400
025400

2695

025406

(3)
(3)
2696
(13)
(13)

025406
025406
025410
025410
025412

(11)
(10)
(9)
(8)
(7)

075422
025426
025432
025436
025442

104026

012737

062706

(3)
(4)

(5)
(3

(5)
(3)

2699

2700
2701
2702
2703
(3)

025466
025466

T465%
ST
BEQ

000002

002440

24%:
T465%:

PAGE 2-10

HEAD UNLOADING

R3
#600. ,R1

JSET EXPECTED STATE VALUE
;SET WAIT COUNT FOR 60 SECONDS

T.STAT
24%
R1
22%
#1

;CHECK IF STATE 0
:YES
SKIP

PC,GSTATC

#1,R0

208

ERRHRD
TRAP

sREPORT WRONG STATE CHANGE

.WORD
.WORD

403
ERR7

MOV

#2 ,ERRSWI

;INIT ERROR SWITCH

L10024:

2€%:

104017

005037

005633

EMT

#FMTOP1,#0PR6,#0PR1A
,#BASADD ,RLBAS ,#DRVNAM, ;REQUEST CYCLE UP
-(SP)
RLDRV+1,(SP)

MOV
MOV
MOV
MOV
MOV

RLBAS ,=(SP)
#BASADD ,-(SP)
#0OPR1A,=(SP)
#OPR6,-(SP)
#FMTOP1,=(SP)

MOV

000007

MOV
MOV

000020

ADD

EMT

004066

CLR

GMANIL
EMT

104043

C$ESUB

PRINTF
CLR
BISB

#DRVNAM
= (SP)

#7.,-(SP)
SP.RO
CSPNTF

#20, sp

OBUF F

OPRO0Z2,0BUFF
CSGMAN

025474
02576

000120
007724

.WORD

OBUFF

.WORD
.WORD

T$CODE
OPR002

OBUF

EMT

CSETST

025502

025506
025510

0040066

000001

005737
001740

025510

DEC UAIT COUNT

“SKIP IF 0

403.,.ERR7
T$ERCODE

000404

025500
025502

*GET STATUS

CSWTM

025470

025472

SEQ 0090

CSEXIT

10024~

MOV
EMT

22%:

002450
005622
010416
010162
012016

025456
025462

JSR

BEQ
WAITMS

000007

013746
012746
012746
012746
012746

012746
010600

2698
(3)

CLR
MOV

DEC

002455

025446
025452

2697

208:

002502

005046
153716

(6)
(3)

025454

016500

104003

012746

(4)

18%:

001130

LWORD

]

ENDSUB

(12) 025416

(4)

16:20

EMT

5301

2690

025366

22-ov-78

001404

012700

(5)
(5)

025334
025336

—

TEST &

104032

000054

025362

2691
(3)

025330

025332

(3)
(3)

MACY11 30A(1052)

%—0(7-78 :39

(3) 025510 104001

100008:

004066

:
298:
.

WORD

BEQ

10000$
1

26%

ENDTST

L10023:

:CLEAR FOR RESPONSE

,1 NO

;TEST RESPONSE YES
‘NG = SKIP

ROU
SEMBLY ROUTI
CZRLCB.PN

MACY11 SOA('IOSZ)

%—OCT-?B
14:39

22-'0V-78

TEST 5
.SBTTL
BGNTST

000002

002440

DRIVE SELECT

*TEST 5
MOV

1%:

SEQ 0091

DRIVE SELECT

;TESTOS

02 ERRSWI

XT0
E

014656

5536

16:20 PAGE 3-11-

#DRSELT ,MISWIW
EX105

sSET FOR NO ERROR RETURN
TEST IF FIRST PASS »
SKIP

TS::

TEST IF SELECT TESTS

SKIP

#FMTOP1,#0PR7, MM AHBASADD ,RLBAS,#DRVNAM, /REQUEST REMOVE A

=(SP)
RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS,=(SP)
#BASADD ,~(SP)
#OPR1A,=(SP)

#OPR7 ,=(SP)

#FMTOP1,-(SP)

#7,-(SP)
SP,RO
CSPNTF

#20,SP

OBUFF
:CLEAR FOR RESPONSE
OPRO02,0BUFF ,1,NO
CSGMAN
100008
0BUFF
T$CODE
QPRO02

10000%:

002434

002540
LPTOS:

4%
5%:

0BUFF
1%
#TOSERR, ERHEAD

sTEST RESPONSI YES

:NO
= SKIP
:SET ERROR HEADER MESSAGE

PC,TSTIN
PC, GSTATC

s INITIALIZE TEST
:DO SELECT AND GET STATUS

RLDRV, TEMPQ
RLDRV.R1

:STORE _ORIGINAL DRIVE NUMBER
sPUT IT IN R1
sSET COUNT FOR NUMBER OF PLUGS
;BUMP TO NEXT DRIVE
sCHECK IF TO LARGE

52684R1

12006 R1
R1
R1,RLDRV

:NO - SKIP
;ELSE CLEAR TO DRIVE 0
:PUT IT BACK IN RLDRV

#FMTOP3, OOPRB <B.RLDRV+1>,#0PR1B,#UNDTST
#UNDTST .= (SP)

#OPR1B, = (SP)
~(SP)
RLDRV+1, (SP)

#OPR8, - (SP)

#EMTOP3 = (SP)
#5,~-(SP}

025752

SP.R0
CSPNTF

#:',SP

s INSERT PLUG REQUEST

MACY11 30A(1052) 22-NOV°78 16:20 PAGE 3-13
NS—O(T-?B4:39
DRIVE SELECT

ASSEMBLY ROUTI

n %NEIIIIIIIDS
o
N
Y

o
No
o
N
jole]
N

005037

004066

104043

000404
004066
000120
007724
. 000001

10001%:

005737
001744

jolele]

—
o
WIS S
~ N

—

oo
N
i
laleleolebolala)

CZRLCB.P1

026014
012737

BGNSUB

016500
000002

002440

60%:

GMANIL
EMT
BR
.WORD
.WORD
. WORD
.WORD

OBUF F
;CLEAR FOR RESPONSE
OPR002,0BUFF ,1,NO
CSGMAN
10001%
OBUFF
T$CODE
?PROOZ

TST
BEQ

OBUFF
5%

EMT
JSR
60%

($8SUB

MOV

SEQ 0092

s TEST RESPONSE YES
:NO - SKIP

5.1

PC,GSTATC

;GET STATUS = REPORT ANY ERROR

#2 ,ERRSWI

sINIT ERROR SWITCH

ENDSUB

L100206:

104003
005304

001322
013737

012746
012746

002540
010263
010244
012110

002454

T504%:
4%:

EMT
DEC
BNE
MOV
PRINTF

C$ESUB

LPTOS
TEMPO,,RLDRV

;LOOP IF NOT ZERO
ELSE RESTORE RLDRV

AFMT1,#0PR8 ,#0PR9

#O0PR9,~(SP)
#OPR8,~-(SP)

#FMT1,-(SP)
#3,-(SP)
SP,RO
CSPNTF
#10 SP
0BUF

000610
00466

DEC COUNT

;CLEAR FOR RESPONSE

OPR002 OBUFF ,1,NO
CSGMAN
10000%

OBUFF
T$CODE
?PROO?

004066

100008:
EXTOS:

(3)
(3)

026114
026114

OBUFF
4%

ENDTST

L10025:

CSETST

sTEST RESPONSE YES
{NO - SKIP

ASSEMBLY ROUTI

CZRLCB.P11

MACY1 30!(1052)

N%-OCT-?B :39

22-NOV-78 16:20 PAGE S 12
Té6

.SBTTL
BGNTST

003062
000004

014656

006316
016446

002434

002012

000091

4%:

2%:

002012

3%:

021437
001364
005037
012737
056437
012737
013762
013762

MOV
JSR
MOV
CMP

BLOS
INC
cMP
BLOS
CLR
GPHARD
MOV

CLR
MOV
BIS
MOV
MOV
MOV
WAITMS

002456
002456
002462
004
000000

000003

002430
100000

BNE
BIT
BNE
EXIT
EMT
.WORD

:TESTO6

PASNUM

1%
#DRSELT ,MISWIW
48
TST
csexxr
L10027-.

ncsren1 ERHEAD
PC,TSTINT
PSETNM,R3
LSUNIT.#1

5%
R3
R3,LSUNIT
3%
R3
R3,R0
R3.RD

002466

#3.R0
CSWTM

BEQ

5%:

sTEST

DONE

B8R

012327

MOV

#FMTY, = (SP)

000006
026766
000006

MOV
EMT
ADD
JMP
MOV

SP RC
CSPNTF
ae SP
CLEXT
6(R4) TEMP1

MOV

RLDRV,RO

BIC

#2000.R0

CMP

RS.#1400 .

MOV

002542

7%:

001400

20%:

MOV
BIC

IF MORE THAN 1

UNIT

:NO = SKIP
;BUMP PARAMETER SET NUMBER
gg.CKséipPAST VALID PARAMETER TABLE

#FMT9,#0PR10

000002

sTEST

+PUT POINTER INTO R4
sCHECK
‘IF SAMc CONTROLLER

#ANYERR,T.CS

MOV

sINITIALIZE TEST
:GET PARAM SET NUMBER

sSKIP IF NOT AVAILABLE

PRINTF

010300

:SET ERROR HEADER

JELSE CLEAR TO POINT TO ENTRY 0

BIT

BEQ

Té::
;CHECK IF FIRST PASS
‘NO
= SKIP
C?ECK IFITEST DRIVE SELECT

:NO = SKIP
DONE
;CLEAR DONE FLAG
#GSTAT,L.CS
;LOAD GET STATUS
6(R4),L.CS
: INSERT DRIVE
#GETSTAT 'DRSET, L. DA
sSET UP TO CLEAR DRIVE
L.DA,RLDA(R2)
;LOAD DA REG
L.CS.RLCS(R2)
;LOAD (S REG
#3
‘
;WAIT 300 MS

MOV
EMT
ST

SEQ 0093

DRIVE SELECT TEST

EMT
CS$GPHRD
BNCOMPLETE
2%
BCC
2
MOV .. .RO.R& . .
CMP
(R4) ,RLBAS
BNE
2$

002450
002430
016514
000006
000013
002462
002456

*TEST 6
ST

1%:

103370
010004

DRIVE SELECT TEST

#0PR10,-(SP)
#2,-(5P)

TEMP1 RS

#2000.R0

IF INTERRUPT

:NO - SKIP

sTEST IF ANY ERROR SET

:NO - GO TEST
sELSE CHECK NEXT DRIVE
*REPORT CAN'T FIND 2ND DRIVE
s

;STORE NEW ADDRESS
;ASK FOR PLUG CHANGE

;GET DRIVE UNDER TEST
:GET NEW ADDRESS
i

:CLEAR FOR ADDRESS 0T103

:TEST IF DRIVE NUMBER 3

ASSEMBLY ROUTI

CZRLCB.P1T

25°0c1-78

MACY11 30A(1052)
22-NOV-78
14:39
TEST 6

0
16:20 PAGE 2-14
DRIVE SELECT TEST

218

RS
#400,RS

000400

=0000-=

R R _._._._.\,.8

000290
000000

SEQ 0094

:NO = SKIP
*ELSE SET TO DRIVE NUMBER 0
*BUMP TO NEXT ADDRESS

RS,R0
20§

*THIS EQUAL TO NEW ADDRESS?
*YES = SKIP

RS,RLCS (R2)

:AND LOAD (S REG

#CRDYMSK ,RS

*ELSE SET CONTROLLER READY BIT

#fg;OPZ,#OPRS, <B,RLDRV+1> ,#0PR1B, <B, TEMP1+1>

002543
010422

#OPR1B,=(SP)

002455
010244
012045
000005

#EMTOP? = (SP)
#5,-(SP)

000014
004066

#14,SP
0BUFF

TEMP1+1,(SP)

=(SP)
RLDRV+1, (SP)

#OPR8, = (SP)
SP,RO
CSPNTF

;CLEAR FOR RESPONSE

OPR0D2,08UFF ,1,NO

CSGMAN
100008
OBUFF
T$CODE

?PROO?

OBUFF
9%
#10. R4

002456
000000

002456

000000

016314

8%:

($8SUB

026620
026822

T6.1:

RLDRV,L.CS

JSET UP TO SELECT MULTIPLE

#GTSTAT,L.CS
#GETSTAT,L.DA

sSET GET STATUS

L.CS,RLCSR(R2)

;DO GET STATUS

CSWTU
DONE

;CHECK IF

PC,WAITIN

JWAIT FOR TIMEOUT

biCS.RLCSR(RZ)

b.DA.RLDA(RZ)
ONE

#
#1,R0

125

(SP)+,R3
12%

6C1.,GSTER1,ERR1
(5)
(5)

;TEST IF RESPONSE YES
:NO - SKIP
sSET COUNT

TSERCODE

GSTER1

Do I

JWAIT FOR INTERRUPT

INTERRUPTED

;YES = SKIP

:GET ERROR POINTER
JSKIP IF O

DRIVES

[

——————————

MACY11 30A(1052)
22-NOV-78
TEST 6
23-0(7-78 14:39

ASSEMBLY ROUTINE

CZRLCB.PT

013040

.WORD

104032

000062

12%:

000002
016514

000400

002474

011142

16:20 PAGE 5-12

DRIVE SELECT TEST

ERR1
suB
CSEXIT
L10030-.

SEQ 0095

;WAIT FOR DSE TO SET

PC,GSTAT

;GET STATUS

#DSESTAT,T.MP
16%
#MDSERR ,R3

;TEST IF DRIVE SELECT ERROR SET
:YES
- SKIP
:SET NAME MESSAGE POINTER

#2,R0
CSWTM

602., ,ERR3
TSERCODE

602
ERR3
Su8

000000

000002

60%:

#2 ,ERRSWI

ENDSUB

L10030:

104003

012746
012746
012746

002440

16%:

CSEXIT
L10030-.
RS RLCS(RZ)

010346
012327
000002

15%:

sLOAD IN DIFFERENT ADDRESS
sDEC_COUNT
;LOOP IF NCT ZERO

C$ESUB
#FMTO . #OPR11

;REQUEST PLUG CHANGE

#0PR11,-(SP)

sINIT ERROR SWITCH

#FMT9, = (SP)
#2,-(5P)

SP RO
CSPNTF

000006
004066

#6, sp

OBUFF

;CLEAR FOR RESPONSE

OPROOZ OBUFF ,1,NO
CSGMAN
10000%
OBUFF

T$CODE
?PROOZ

004066

10000
:

LCLEXT:
ENDTST

10400

L10027:

OBUFF
15%

CSETST

;TEST RESPONSE
:NC - SKIP

YES

———

—

ASSEMBLY ROUTINES

CZRLCB.P11

2847
2848
(3)
2849
2850

2851
(3)
(3)

026770
026770
026770
026776

027002
027002
027006

23=0CT=78 14:39

012737
004737

006347
016446

012700

000012
016500

104027

027010
027014
027016
027024
027026
027032
027034

004737
027300
032737
001003
012703
000427
012703

2860
2861
2862
(3)
(5)

027040
027044
027046
027046
027050

020337
001405

2863

027054

2864
2865
2866
2867

027060
027064
027070
027072

013701
032701
001003
012703

002474
000020

2869
2870
2871
2872

027100
027104
027106
027112

032701
001007
012703

000010

(3)
(3)

07052

104443
001275
014220

027054
027056

104032
000222

2868 027076 000405

(3)
(5)
(5)

027112
027114
027116

104443
001276
013154

(3)
(3)

027120
027122

104032
000156

027130

100034

2873
2874

027124

2876
2877
2878
2879
2880
2881
2882

027132
027136
027140
027144
027146
027152
027156

2875

027120

027164

104032

027166

027170

000112

032701

002434

16:20

walTUS
MOV
EMT

002466

3$:

011105

7%:
9%:

000100
011044
011763

#INITST, ERHEAD
PC,T5TIN

:SET ERROR HEADER
;INITIALIZE TEST

#10.
#10. RO
CSWTU

17::

SWAIT 1 MS
3

:CHECK IF DRIVE READY
SYES=SKIP
*SET NAME MESSAGE POINTER
*GO REPORT
*SET EXPECTED STATE VALUE

cMP
BEQ
ERRHRD
TRAP
LWORD

R3,T.STAT
5%
701.,.ERR7
TSERCODE
701

:CHECK IF STATE OK
*YES=SKIP
*ELSE REPORT STATE ERROR

TST

SEXIT

MOV
BIT
BNEMOV

T.MP,R1
#HOSTAT ,R1
7%
#MHOSTA ,R3

:GET MP REG
*CHECK HEADS OUT
SYES=SKIP
*SET NAME MESSAGE PTR

BIT
BNE
MOV
ERRHRD

#BHSTAT ,R1
108
#MBHSTA ,R3
702..,ERR3

*CHECK BRUSH HOME SET
SYES=SKIP
*SET NAME MESSAGE PTR
*REPORT ERROR

EMT
.WORD

B8R

TRAP
LWORD
-WORD

ERR7

CSEXIT
L10031-.

TSERCODE
702
ERR3

*GO REPORT

TST

SEXIT

MISWIW

sTEST IF MANUAL INTERVENTION RUN

ST
BNE
BIT
BEQ
MOV
MOV
ERRHRD

PASNUM
16$
#HSSTAT ,R1
13$
AMHSTA ,R3
#CCYLUP, RS
703...ERR4

“CHECK IF FIRST PASS
*NO=SKIP
“ELSE CHECK HD O SELECTED
SYES=SKIP
“SET NAME MESSAGE PTR
“SET CONDITION POINTER
*REPORT ERROR

TST

SEXIT

EMT
.WORD

B8PL

EXIT
EMT

13¢:

INITIAL STATE
:TEST 07

#DRDYMSK,T.CS
3$
#MDRDY ,R3
9%
#5.R3

TRAP
.WORD
.WORD

001000

SEQ 0096

:GET STATUS

EXIT
108

INITIAL STATE

PC,GSTATC

-WORD

011131

JSR
65%
BIT
BNE
MOV
BR
MOV

EXIT
5%:

PAGE 2-16

+TEST 7
MOV
JSR

002502

003062

(3)

0C0D00S

005737
001031
032701
001411
012703
012704
104443
001277
013222

2884

TEST 7

010711

014656

027156
027160
027162

027164

000001

005737

(3)
(5)
(5)

2883

22-ov-78

LSBTTL
BGNTST

2852
2853
2854
2855
2856
2857
gggg

(5)

MACY11 30A(1052)

LWORD

BIT

CSEXIT
(10031~

168

TSERCODE
703
ERR4
CSEXIT

L 317031-,

#VCSTAT R1

*NO=-SKIP

;CHECK VOL CHECK SET

ASSEMBLY ROUT ".?s:EOC '

CZRLCB.P1

027174

040000
-

002466

15%:

011033
020000

V=78 16:20 PAGE 3-1’

SEQ 0097

INITIAL STATE

BNE

011061

027176

2885

2886

MACY11 30A(1052) 22

~78 14:39

15%

;YES=SKIP

9%
#DRVERR,T.CS
16%

;TEST DRIVE ERROR SET
:YES=SKIP

MOV
BR
BIT

#MVOLCK ,R3

MOV

g‘sl)RERR.R}

16%:

MILSTAT R1
17%
#MJLSTA,R3

211120

705. , ,ERR2

:ELSE SET NAME MESSAGE PTR
:GO REPORT

:ELSE SET NAME MESSAGE PTR
;GO _REPORT
sCHECK WRITE LOCK STATUS
;SKIP IF RESET
sELSE SET NAME MESSAGE PTR

TSERCODE
705

ERR?

021177

002466

141777

#21177 .R1
R1
19%
704., ,ERR6
T$ERCODE
704
ERRG
TST

JEXIT

T.CS,R1

;GET (S REG
:CLEAR ALL BUT ERROR BITS

CSEXIT
L10031~-.

19%:

#141777 R
R1
18%

25%:
6£5%:

ENDTST

104001

L10031:

EMT

;CLEAR STAUS EXCEPT FOR ERROR BiTS
sCHECK IF ANY ERROR SET
:NO-SKIP
;ELSE REPORT ALL ERRORS

CBETST

:TEST

ANY ERROR

*YES=SKIP TO REPORT

SET

ASSEMBLY ROUTINES

=00 ONO
NS W=

B0 SESECTRLpY

CZRL(B.P1T

MACY11 30A(1052) 22-N9V-78 16:20 PAGE 2-18

23-0CT-78 14:39

INITIAL STATE

.SBTTL
BGNTST

" 006347

027310

016446

027314

002434

016464

003062

INITIAL RESET STATE

;TEST 8

JSR

#INITST ,ERHEAD
PC,TSTINT

JSR

PC,GSTATR

;GET STATUS WITH RESET

TST
BPL
TST

MISWIW

sCHECK IF MAN INTERVENTION WAS RUN
:NO-SKIP
sCHECK IF 1ST PASS
:NO=SKIP
sCHECK HD SELECT STILL O

002474

011044
011763

PASNUM

L%
#HSSTAT ,T.MP
4%
#MHSTA
R3
#CCYLUP,R4

801., ,ERR4
T$ERCODE

801

ERR4

4%:

104001

65%:
ENDTST
L10032:

78::

MOV

65%

014656

000100

«TEST 8

SEQ 0098

EMT

CBETST

T IINITIALIZE TEST

:YES-SKIP

:SET NAME MESSAGE PTR
sSET CONDITION POINTER

sREPORT ERROR

MACY11 30A(1052) 22-NOV-78
TEST 8
23-0CT=-78 14:39

ASSEMBLY ROUTINES

CZRLCB.P1T

.SBTTL
BGNTST

012737
012701

006375

002434

:20 PAGE 5-13

*TEST 9

DRIVE READY
;TEST 9
#TO9ERR ,ERHEAD

;SET ERROR HEADER

(LR
JSR
JSR

(R1)+
(R1)+
(R1)+

(R1)
PC,TSTINT

;CLEAR NEW CYL
;CLEAR CURRENT CYL
,
DIFFERENCE

PC,GSTATR

JGET STATUS WITH RESET

020530
002534
017346

JSR
MOV
JSR

PC ,POSHSB

;POSITION HEAD SELECTED BIT

PC,SIMSEK

JEXECUTE

010711

MOV
MOV
JSR

#MDRDY ,R3

;SET NAME MESSAGE PTR

BIT
BEQ

#DRDYMSK ,T.CS
43

;TEST READY SET
JNO-SKIF

TRAP

T$ERCODE
901
ERR4

016446
016464

65%

011722

016514
000001

65%

002466

ERRHRD

104443

001605

.WORD
. WORD
EXIT

000121
016514

4%:
5%:

000005

002502

EMT
. WORD

MOV
JSR

65%

ANEWCYL R

RS ,DESHD

#CDRDY R4
PC,GSTAT

901.,.ERRS4

027570

SEEK

;SET CONDITION POINTER
JGET STATUS

;REPORT READY ERROR

#5,R3
T.STAT,R3
7%

;SET EXPECTED STATE VALUE
;CHECK STATE IS S
JYES-SKIP

104032

CSEXIT

001607

STMPLE

JSET WAIT COUNT

PC,GSTAT

902
ERR7

104443

;STORE AS DESIRED HEAD

#81. .R1

014220

000747

SIGN
JINITIALIZE TEST

JEXIT

T$ERCODE

104027

sGET POINTER TO DESIRED LOC

TST

CSEXIT
L10033~.

902., .ERR7

012700

MOV
MOV
CLR
CLR

002524

CLR

00013C
012703
032737
001013
005301
001404

SEQ 0099

INITIAL RESET STATE

;GET STATUS

JELSE REPORT

TST

010711
000001

002466

7$:

000¢-C1

L10033~.

#MDRDY ,R3

#DRDYMSK ,T.CS

;CRECK READY

SET

12%
R1
9%
#1
#1,R0

JYES-SKIP
ELSE DEC WAIT COUNT
;SKIP
IF 0

903.,.ERRS

;REPORT READY ERROR

C?UTU

9%:

;6§RCODE

—

ASSEMBLY ROUTI
MACY11 30A(1052) 22-0v-78 16:20 PAGE 5-23
CIRLCBLP1T D80cT-78
14+59
DRIVE READY

(5)

2973
(3)

013272

Qersza

104032

,$3) 027576

000066

2975
2976
2977

027600
027604
027606

005737
100005

2978
(3)

027614
027614

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

2979

027572

027574

027606
027610
027612

104443
001610
013342

027616

104032
000046
012703

2981
2982
2983
2984
2985
(3)

027620
027626
027630
02763
027636
027642
(027644
027644

298

gerese

(3)
2987
(3)

027654
027656
027656
027660
027662

(5)
(5)
(3)

(5)
(5)

027646
027650

104443
001611
013154

027652

104032

2988
2989
2990

027664
027664
027664

(3)

027664

(3)

004737
020537
001413
005737
001405

027664

000010

104443

001612
013106

104001

.WORD

ERRS

EMT

CSEXIT

EXIT ,

002466

128:

L10033-,

IST
BPL
ERRHRD
TRAP
.WORD

T1.CS
158
904
., ,ERR6
TSERCODE
904

.WORD

011044
020530
002534

158:

002534

.WORD

MOV
JSR
(MP
BEQ
TST
BEQ
ERRHRD
TRAP

208:
658:
ENDTST

:TEST IF ANY ERROR
*NO-SK
1P

ERR6

TST

CSEXIT
L 10033~.
AMMSTA,R3

PC,POSHSB
RS.DESHD
208
DESHD
17§
905.
, ,ERR3
TSERCODE

.WORD
.WORD

905
ERR3

EMT

CSEXIT

EXIT
17$:

TST

.WORD:

EXIT
EMT

SEQ 0100

TST

.WORD
ERRHRD
TRAP
.WORD
‘WORD

L 10033~,
906.,,ERR2
TSERCODE
906
ERR2

EMT

CSETST

L10033:

)

:SET NAME MESSAGE PTR
°
:POSITION HEAD SELECT BIT FOR TEST
:CHECK IF CORRECT HEAD SELECTED
:VES=SKIP
:ELSE TEST IF 1 DESIRED
*NO-REPORT SB 0
:ELSE REPORT SB 1

———

ASSEMBL Y RQJTI%S

CZRLCB.PT
299
3
(3)

027666
027666
027666

2995
2996
2997
2998
2999
3000
3001
3002
3003

027674
027700
027702
027704
027706
027712
027716
027720
027720

(3)

027720

——

MACY11 30A(1052)

23-0CT-78 14:39

22-NOV-78

«TEST 10

LSBTTL

BGNTST

012737
012701
005021
005021
005021
052721
004737
010521

Q06405
002524

002434

000001
020530

11048

104002

027722
027726
027732

004737
004737
030166

3008
3009
3010
3011
3012
3013
3014
3015

027740
027742
027746
027752
027756
027760
027766
027770

030166
012703
012704
004737
030166
032737
001405

016446
016464

)

3016
(3)
(3)

3018

3019
2020
3021
3022
3023
3024
3025
(3)

027776
027776
030000

030002
030006
030012
030014
030020
030026
030026
030026

(5)
(5)
3026

030030
030032
030034

(3)

030036

(3)

3027
3028

030034

030040
030044

(3)

030056
030060
030060
030064

SEQ 0101

SEEK SIGN SWITCH
STEST 10

MOV
MOV
CLR
CLR
CLR
BIS
JSR
MOV

#T10ERR,ERHEAD
ANEWCYL
R
(R1)+
(R1)+
(R1)+
#8170, (R1)+
PC,POSHSB
RS.(R1)+

EMT

C$8SUB

JSR

608
MOV
MOV
JSR
608
BIT
BEOQ
ERRHRD

010711
011722
016514
000001

002466

104443
OU1751
013222

;SET ERROR HEADER

012701
004737
030166
012703
020337
001405

000121
016514

4%:
5§

000005
002502

104443
001752
014220

104032

000130

012703
032737

010711
000001

001404

012700
104027

000001

002466

7%:

110.1:

PC,TSTINT
PC.GSTATR

JINITIALIZE TEST
:GET STATUS

PC.,SIMSEK

;DO SEEK

#MDRDY .R3
#CDRDY ,R4
PC,GSTAT

;SET NAME MESSAGE PTR
JSET CONDITION MESSAGE PTR
;GET STATUS

#DRDYMSK,T.CS
A 3

;CHECK READY RESET
JYES-SKIP

JREPORT READY ERROR

EXIT
EMT
.WORD

SuUB
CSEXIT
L 10035-.

JEXIT SUBTEST

MOV
JSR
60$
MOV
CMP
BEQ
ERRHRD
TRAP

#81. ,R1
PC,GSTAT

":SET WAIT COUNT
‘GET STATUS

#5.R3
R3.T.STAT
7%

:SET EXPECTED STATE
*CHECK STATE IS 5
TYES-SKIF

.WORD
‘WORD
EXIT

T$ERCODE
1002
ERR7
SUB

SEXIT

.WORD

L10035-.

EMT

1001
ERR4

1002.
. .ERR7

CSEXIT

REPORT STATE ERROR

MOV
BIT

#MCRDY ,R3
#DRDYMSK ,T.rS

;SET NAME MESSAGE PTR
;CHECK READY SET

BEQ
WAITUS
MOV

9%
#1
% RO

“SKIP IF 0

BNE
DEC
EMT

110::

:CLEAR NEW CYL
*CLEAR CURRENT CYLINDER
*CLEAR DIFFERENCE
*SET FOR SIGN OF 1
*GET SELECTED HEAD
*SET AS DESIRED HEAD

1001., ,.ERR4
TSERCODE

TRAP
.WORD
WORD

104032
000166

3029 030052 001013
3030 030054 005307

2331
3032
(3)

TEST 10

JSR
JSR
608

3007 02773& 004737 017346

027770
027772
027774

BGNSUR

3005
3006

(3)
(5)
(5)

16:20 PAGE 2-21
SEEK SIGN SWITCH

128
R1

C$WTU

LYES=SKIP
DO WAIT COUNT

MACY11 30A(1052)

ASSEMBLY POUTI
CZRLCB.PTT

N§-0(T-78 :39

030066

22—NOV-78
16:20
PAGE 5ZS
T10
SEEK SIGN SWITCH

000747

5%
, ,ERRS
1003.

030070 104443

030070

030072
030074

TSERCODE
1003

001753
013272

ERRS

SuB
CSEXIT

b axd e

ooawoog

104032

000066
005737
100005

002466

L10035-

12%:

- Xy

104443

TSERCODE
1004
ERR6
SuB
CSEXIT

001754
013342
104032

000046
012703
004

SEQ@ 0102

sREPORT READY ERROR

SEXIT
sTEST IF ANY OTHER ERROR

:NO-SKIP
<REPORT ALL ERRORS

JEXIT

L10035-.
011044
020530
002534

15%:

#MHSTA ,R3
FC,POSHSB

R5,DESHD

208

002534

DESHD
17%
1005., ,ERR3
TSERCODE
1005

104443
001755
013154

sSET NAME MESSAGE PTR
sGET SELECTED HEAD BIT
sCHECK IF CORRECT
s V€S = XIp
sWAS IT SET
;NO-SKIP
;REPORT SB 1

ERR3
S

104032

000010

17%:

104443

1006. , ,ERR2

TSERCODE

001756
013106

;REPORT SB 0

1006
ERRZ2

20%:
60%:

ENDSUB

L10035:
002532

002532
027720

EMT
TST

25%:

BEQ
CLR
JMP

C$ESUB

DESSGN

25%

DESSGN
T104%

ENDTST

L10034:

EMT

CSETST

sCHECK IF BOTH SIGN USED
sYES=SKIP
sSET "OR SIGN OF 0
:DC TEST AGAIN

MACY11 30A(1052)

25°0c1-78
14:39

22-NOV-78

TEST 10

9.3

16:20 PAGE 2-2
SEEK SIGN SWITCH

*TEST N

032737
001411
005737
001006
023737
001004
000137

000010

014656

BIT

003062

002454

002432

030540

002454

002432

2%:

BEQ
TST
BNE
cMP
BNE
JMP
EXIT
EMT
. WORD

%0ALIGN.HISUWs CHECK IF RUN HEAD ALIMN!
PASNUM
1$

LSST §F1HEAD ALIGN DONE THIS DRIVE

;;}SS

:GO CHECK WRITE LOCK

CSEXIT
L10036~.

RLDRV ,HADONE
;SEi HEAD ALIGN DONE FLAG
0;2;5.#BASADD ,RLBAS,#/DRVNAM,

000014

#14,SP
#FMTO AHAMEST

#HAMES1,-(SP)
#FMTS,=(SP)

;TYPE

INSTRUCTIONS

#2,-(SP)
SP,RO
CSPNTF
#6,SP
#FMTO AHAME S2
#HAMES?2
= (SP)
#FMTS,~(SP)
#2,~(SP)
SP,RO
CSPNTF
#6,SP

PC,TSTINT

sTEST IF PASS 0

:NO=-EXIT

RgDRV.HADONE

($8SUB

sNO-EXIT

SP,RO
CSPNTF

007652
012327
000002

NON

—

;TEST M

RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS,=(SP)
#BASADD ,~(SP)
#FMTS,-(SP)
#5,-(SP)

000006

SEQ@ 0103

HEAD AL IGNMENT SUPPORT

002455
005633
002450
005622
012143
000005

007567
012327
000002

882 S9oges

ASSEMBLY ROUTI
CZRLCB.PI

002456
002456
002462
000004
000000

T11.1:
JINITIALIZE

DONE

;CLEAR DONE

L.DA,RLDA(R?)
L.CS,RLCSR(R2)

;DO GET STATUS

DCME

:CHECK IF DONE

TEST

RLDRV,L.CS
;SET UP FOR GET STATUS
#GTSTAT,L.CS
#GETSTAT'DRSET,L.DA

#50.

JWAIT FOR INTERRUPT

NO-GO CLR CONTROLLER

H2C§11 30A(1052) 22-NOV-73 16: 20 PAGE ,

HEAD ALIGNHENV SUPPORT

W)
-

ASSEMBLY ROUTI
CZRLCB.P11
2

000021
020000

002462
002474

2462

0024564 002456
106

000036

L10037:
T115%:
BGNSUB

016446
016464

W
—_nN

020000

§§a R I

010377
012327
2

002474
188:

BNE
BIC
MOV
BIS
MOV
MOV
WAITMS
MOV
BR

#HDSEL 'MBSETO,L.DA;LOAD FOR HEAD 1
MILSTAT,T.MP ~ ;CHECK IF WRITE LOCK SET

128
#HDSEL ,L .DA
DRV,L.CS

#SEEK.L.CS

L.DA,RLDA(R2)
L.CS.RLCSR(R2)

#30.°

;WAIT FOR INTERRUPT

;LOOP

c}O..no
-

EMT

CSESUB

EMT

JSR
gg@

C$B8SUB

PC,TSTINT
PC.GSTATR

BIT

MILSTAT,T.MP

BEQ

PRINTF

*YES=SKIP
ELSE CLEAR TO HEAD 0
:LOAD IN DRIVE NUMBER
*SET FOR SEEK
:LOAD & EXECUTE SEEK

#FMT9,#0PR12

MOV
MOV
MOV

#OPR12,~(SP)
#FMTS, = (SP)
#2,-(5P)

.WORD
.WORD
-WORD
.WORD

OBUFF
T$CODE
OPR002
1

1ST

OBUFF

EMT

CSESUB

EMT

CSETST

.
.
T11.2:

;INITIALIZE TEST
;CLEAR DRIVE
;CHECK WRITE LOCK RESET

SYES=SKIP

-REQUEST WRITE LOCK RESET

MOV
SP.RO
CSPNTF
EMT
ADD
#6,SP
CLR
0BUF F
;CLEAR FOR RESPONSE
GMANIL omooz OBUFF ,1.ND
:GET RESPONSE
EMT
CSGMAN
BR
100008

000006
004066

;

100008:

' 004066

MOV
BIT

EMT

598 :
ENDSUB

oo
[el=lel=)
8
883 88322322

000~
NN
N~

e e

WW= < WNW= = aaay

(NWNWWW

(5)

12%

002462 000004
002456 000000

vagfl
JTSFRIRILLRILLRSS

WWWWWWW
WW
D cld i el e D g, P, D D S, P, i i aal P, P
-~ P
~

(6)

002456

108:

SEQ 0104

BEQ

18%

60%:

ENDSUB

L 10040
20%:

ENDTST

10036

:WAS ANSWER YES

*NO-REPEAT REQUEST

| ASSEMBLY ROUTI
CZRLCB.P11

MACY17 30A(1052) 22-NOV-78 16:20 PAGE 3-25

28%0c1-78 14:39

*TEST 1

LSBTTL

SRERLETE
IR AR
USYRVRRLR

IWWWWWWWWWWWW

121
12
12
3124

BGNTST

006425
002524

002434

HEAD AL IGNMENT SUPPORT

+TEST 12
MCv
MOV

CLR
CLR
CLR
CLR

000001

T124%:
BGNSUB

MOV

SEQ 0105

HEAD SWITCHING

;TEST 12

#T12ERR ,ERHEAD
#NEWCYL R
(R1)+
(R1)+

(R1)+
(R1)+
#1,(R1)+

($8S'
B

;SET ERROR HEADER

JGET POINTER TO DESIRED LOCATION
sCLEAR NEW CYLINDER
;CLEAR CURRENT CYL.
sCLEAR DIFFERENCE
;CLEAR SIGN
;SET FOR HEAD 1

T12.1:

016446
016464

PC,TSTINT
PC,GSTATR

JINITIALIZE TEST
JGET STATUS WITH RESET

017346

PC,SIMSEK

;DO SEEK

010711
011722
016514

#MDRDY ,R3
#CDRDY ,R4
PC,GSTAT

;SET NAME MESSAGE PTR
;SET CONDITION POINTER
JGET STATUS

#DRDYMSK ,T.CS

;CHECK

000001

00246¢

5%
1201., .ERR4
T$ERCODE
1201
ERR4
SUB
CSEXIT

(3)

IF READY

sNO-SKIP
;REPORT READY ERROR

JEXIT

L10042~.
000121
016514

woogmm\nmwwmmmu\nm\n\n
RSOV
NRC TN
T RANN—=O

JSET WAIT COUNT
JGET STATUS

#5,R3

;SET EXPECTED STATE VALUE

1202. ., ,ERR7

JREPORT STATE ERROR

#81. ,R1
PC,GSTAT

R3,T.STAT
7%

104443

T$ERCODE
1202

002262
014220

PN - PN PN
d el ld —d il S
P

WWWWWWW

5¢:
6‘:

000005
002502

) -

WWWWW

3149

ERR7

SuB
CSEXIT

104032

000130
031010
031014
031022
031024
031026
031030
031030

JCHECK IF STATE IS S
JYES-SKIP

L10042~-.

012703
032737
001013
005301
001404

010711
000001

012700

000001

002466

#MDRDY ,R3

#DRDYMSK ,T.CS
12%
R1

2§

#1,R0

sSET NAME MESSAGE PTR

;CHECK DRIVE READY
;YES=SKIP
JDEC WAIT COUNT

SKIP IF O

ASSEMBLY ROUTINES

CZRLCB.P1T

(3)

MACY11 30A(1052)

23-0CT-78 14:39

22=NOV-78

*TEST 12

104027

EMT

N \N

53322003 3TEaRe,

000747

TSERCODE

ERRS

104032

CSEXIT
L10042~-.

000066
100005

SEQ 0106

sREPORT PfADY ERROR

1203

013272

005737

“

CSWTU
6%
1203., ,ERRS

104443
002263

N N

16:20 PAGE 2-26
HEAD SWITCHING

002466

12%:

suB

SEXIT

T.CS

:TEST

15%
1204., ,ERR6

TSERCODE
1204
ERR6

}
IF ANY ERROR

sNO-SKIP
;REPORT ALL ERRORS

/
I

011044
020530
002534

15%:

#MHSTA ,R3

PC ,POSHSB

DESHD RS
208

002534

DESHD
17%
- 1205., ,ERR3
T$ERCODE
1205
ERRS

104443
(u2265
013154
104032

000010

17%:

JEXIT

;ELSE REPORT HEAD SB 0

ERR2
20%:
60%:

ENDSUR

L10042:

104003

005737
001404
005037
000137

002534

002534
030670

25¢%:

EMT
TST
BEQ
CLR
JMP

C$ESUB

DESHD

25%

DE SHD
T124%

;CHECK IF HD O WAS DONE

s YES--SKIP
JELSE SET TO HEAD Q
:REDO TEST

ENDTST
104001

L10041:

EMT

CSETST

N
el ek

WWWWWW

T$ERCODE
1206

WWWWW

CU SR EREHNTRBERAT

(3)

sSET NAME MESSAGE PTR
sPOSITION HEAD SELECT BIT
sCHECK IF CORRECT HEAD SELECTED
s YES=SKIP
;WAS HZAD O SELECTED
: YES=SKIP
. +REPORT HEAD SB 1

ASSEMBL Y aoum%s

CZRLCB.P11

3192
3193
3194
3195
(3)
3196
2197
3198
3199
3200
3201
3202
3
(3)
(3)
5

031160
031160
031160
031166
031172
031174
031176
031200
031202
031204

23=0CT=78 14:39

012737
012701
005021
005021
005021
005021
005021

104002
004737
004737
031304
004737
031304
012701
004737
031304

3214
3215
3216
3217
3218

031240 004737
031244 . 031304
031246 012703
031252 004737
031256 020537

3220

031264

031262

001410

(3)
(5)
(5)
3221
(3)
(3)
3222
(3)
(5)

031264
031266
031270
031272
031272
031274
031276
031276
031300

104443
002425
013154

3224
3225
3226

031304
031304
031304

353%

(3)
(3)
3227
3228
2229

3230
3231
3232
3233
3234

031302

031304
031304
031306
031312
031314

031322
031330
031332
031340
031346

«TEST 12

002434

T134%:

16:20 PAGE 2-27

HEAD SWITCHING

+TEST 13

SEQ 0107

READ HEADER (PART 1)
:TEST 13

T13::
;SET ERROR HEADER
*GET ADDRESS OF DESIRED LOCATIONS
*CLEAR NEW CYL
:CLEAR CURRENT CYL
*CLEAR DIFF
*CLEAR SIGN
:CLEAR HEAD

MOV
MOV
CLR
CLR
CLR
(LR
CLR

#T13ERR,ERHEAD
ANEWCYL .R1
(R1)+
(R1)+
(R1)+
(R1)+
(R1)+

EMT
JSR
JSR
60$
JSR
60%
MOV
JSR
608

C$BSUB
AC,TSTINT
PC.GSTATR

SINITIALIZE TEST
:GET STATUS W/RESET

PC,SIMSEK

;DO SEEK

#81. ,R1
PC,RDYWA]T

;SET WAIT COUNT
*WAIT FOR READY

JSR
608
MOV
JSR
CMP

PC ,XRDHDC

;DO READ HEADER

#MHSTA,R3
PC ,POSHW1
RS . DE SHD

;SET NAME MESSAGE PTR
:POSITION HS BIT IN HD WRD 1
“CHECK IF HEAD CORRECT

ERRHRD

1301.,,ERR3

*REPORT SB 1

BGNSUB

3209
3210
3211
gg}g

3219

006437
002524

031204
031204
031204
031206

22-NOV-78

LSBTTL
BGNTST

031212
031216
031220
031224
031226
031232
031236

3207

MACY11 30A(1052)

016446

016464

017346
000121
020560
020072

108:

011044
020522
002534

BEQ

104032
000010

17$:

104443
002426
013106

15%

TRAP
.WORD
.WORD
EXIT
EMT
.WORD
ERRHRD
TRAP
LWORD

TSERCODE
1301
ERR3
SuB
CSEXIT
L10044~.
1302.,.ERR2
TSERCODE
1302

EMT
TST
BNE
MOV
MOV
BR
BIC

CSESUB
DE 3HD
208
#1,DESHD
HDWRD1,TEMPO
T134%
#~CHDCYL,TEMPQ

.WORD

T13.1:

SYES=SKIP

:REPORT SB 0

ERR?

15$:
60$:
ENDSUB
104003
005737
001007
012737

013737
000725
042737
042737
023737

L 10044:

002534
000001
002474

002534
002540

100177
100177
002540

002540
002474
002474

20%:

BIC
CMP

:TEST IF HEAD 1 DONE
SYES=SYIP
*ELSE SET TO HEAD 1
:STORE HDR WORD 1
DO TEST AGAIN
:CLEAR ALL BUT CYLINDER IN 1ST HEADER

#*"HDCY. .HDWRD1 :CLEAR ALL BY CYL IN OND HEADEK
TEMPO , HDWRD 1
*COMPARE IF EQUAL

[

ASSEMBLY ROUTINES
MACY1i
CZRL(B.PT
23-0CT-78 14:39

3235

031354
031356
031362
031362
031364
031366
031370
031370
031370
031370

001405
012703
104443

007503

30A(1052)

22-NOvV-78

«TEST 13

16:20

PAGE

2-28

READ HEADER (PART 1)

22%

;JYES=SKIP

1306. , ,ERR1

JREPORT HEAD AL JGNMENT PROBLEM

#CYLPER ,R3

T$ERCODE
1306

002432
013040

ERR1

104001

CSETST

;SET NAME MESSAGE PTR

_SEQ 0108

———

—_—

ASSEMBLY ROUTINES

CZRLCB.P1

3241
32642
(3)
3243
3244
3245
346
3247
3248
3249
3250
(3)
(3)
3251
3252

031372
031372
031372
031400
031406
031406
031410
031412
031414
031414
031414
031414
031416
031422

23-0CT=78 14:39

012737
012701
005021
005027
005021
005021

104002
004737
004737

031426
031430
031434
031436
031442
031446
031450
0314564

031622
004737
031622
012701
004737
031622
004737
031622

3262
3263
3264
3265

031462
031470
031472
031476

052737
005003
012704
012705

3266

031456

031502

005037

012701

3267

031506

011415

2269
3270
2271
3272

031514
031520
031522
031526

005737
001404
052715
005065

3268

031510

042715

3273 031532 021524
3274

031534

3276

031540

30A(1052)

22-NOV-78

TEST 14

LSBTTL
BGNTST

3253
3254
3255
3256
3257
3258
3259
3260

3261

MACY11

001405

006453
002526

002434

3277
3278
3279
3080
3281
3282
(3)
(5)
(5)

3283
3284
2085
2086
3287

(31540
031542
031544

031546
031550
031552
031554
031556
031560

031560
031562
031564

031566
031570
031572
031574
031576

+TEST 14

sTEST 14

SEQ (109

READ HEADER (PART 2)
T14::
;SET ERROR HEADER
<GET ADDRESS OF DESIRED VALUE
*CLEAR CURRENT CYL
*CLEAR DESIRED DIFF
*CLEAR SIGN
:CLEAR DESIRED HEAD

EMT
JSR
JSR

C$BSUB
PC,TSTINT
PC.GSTATR

;INITIALIZE TEST
;CLEAR DRIVE

PC,SIMSEK

;DO SEEK

#200. ,R1
PC,RDYWAIT

;SET WAIT COUNT FOR 20 MS
sWAIT FOR READY

PC ,RDALHD

:DO READ HEADER ALL HEADERS

CLR

MORE CE

:CLEAR MORE COMPARE ERRORS FOR REPORT

000050

MOV

#40. R1

100100

BIC

#81T15 '"HDHSEL , <n§):CLEAR BIT 15 AND HEAD SEL BIT

T153$:
BGNSUB

016446
016464

608
JSR
60%
MOV
JSR
60%
JSR
608

017346
)
000310
020560
021154

002436

000002

002426

BIS.
CLR
MOV
MOV

003466
002540

MOV

002534

000100
000002

108$:

12%:

158

114.1:

#HDRCMP,OPFLAG
R3
#1BUFF R4
#TEMPO _RS
(R4).(RS)

*SET HDR COUNT

* -GET FIRST HEADER WORD

DE SHD
108
#HDHSEL, (RS)
2(RS)

;TEST IF HD O DESIRED
SYES=SKIP
*ELSE SET HEAD BIT
:CLEAR 2ND WORD OF TEST AREA

BEQ

13$

SSKIP IF OK

cMP

(RS), (R&4)+

-(R&)

TRAP
.WORD
.WORD

TSERCODE
1501
ERR10

TRAP
.WORD
.WORD

TSCRCODE
1501
ERR10

ST
INC
ST
BEQ
CMP
ERRHRD

CMP
ST
INC
INC
MOV

1501.,,ERR10

(R4) +
R3
(R4) +
15%
(RS)+,=(R4)
1501..,.ERR10

=(RS),(R4)+
(R4 ) +
R3
(RE)
(RS) RO

:SET HDR COMPARE FLAG
:CLEAR FOR HDR COUNT
*GET POINTER FOR HDR TO BE CHECKED
*GET POINTER TO TEST AREA

ST
BEQ
BIS
CLR

ERRHRD

104443
002735
014430

024524
005724
005203
005215
011500

READ HEADER (PART 2)

#T14ERR ,ERHEAD
#CURCYL .R1
(R1)+
(R1)+
(R1)+
(R1)+

104443
002735
014430

005724
005203
005724
001405
022544
,

F9
PAGE 2-29

MOV
MOV
CLR
CLR
CLR
CLR

3275 031536 005744
(3)
(5)
(5)

16:20

*COMPARE HEADER WORD

*ELSE POSITION
R4 TO BAD WORD
:REPORT ERROR

:BUMP R4 TO NEXT WORD
*BUMP WORD COUNT
“TEST 2ND WORD IS 0
‘YES - SKIP
POSITI(N PTRS FOR REPQRT
:-REPORT ERROR

JREPOSITION POINTER
“POSITION R4 PAST ECC WORD
*BUMP WORD COUNT
*BUMP SECTOR COUNT
JCHECK IF SECTOR IS PAST LAST SECTOR

—

MACY11 30A(1052)

R R22IEE

NS—OCT-?B4:39

031630

22-ov-78

TEST 4

177700
000050

000077

17%:

s5
e

WWWWWW

b —)

jolele] OO0
WWW WW

88
3289

OO0O000O

ASSEMBLY ROUTI
CZRLCB.PT

16:20 PAGE
2-30
READ HEADER (PART 2)

#*CHDSEC
RO
#40. RO
17%
#HDSEC, (RS)
R1
108

- SEQ@ 0110

:NO-SKIP
:ELSE CLEAR SECTOR T0 0
:DEC HDR_COUNT
:YES=SKIP

60%:

ENDZUB

L10046:

002534

00000
031474

($ESUB

DE SHD

sCHECK IF HD 1

#1,DE SHD

;ELSE SET TO HEAD 1
sREDO TEST

20%

002534

208:

11538

(NDTST

L10045:
ENDMOD

C$ETST

;YES=SKIP

TESTED

ASSEMBLY ROUTINES

CZRLCB.PT2

HACV11 30A(1052)
22-NOV-78 16:1

000025

22-NOV-78
T 14

GPRML

CNTYPE,CNT,1,YES
.WORD
TSCODE
.WORD
CNTYPE
1
.WORD
(SRMSG,(SR,0,160000,177776,YES
.WORD
TSCODE
.WORD
CSRMSG
.WORD
TSLOLIM
.WORD
TSHILIM
VECMSG,VECT,0,0,776,YES
.WORD ~ TSCODE

GPRMD

031712
031714
031716
031720
031722

ENPHRD

031722

L10047:

031772
031772
031772
031774
031774
031776
000
032002
032002
032004

.WORD L10047<L$HARD/2

.WORD

VECMSG

'WORD

TSHILIM

.WORD
.WORD

DRMSG

TSLOLIM
.WORD
TSHILIM
.WORD
BRMSG,PRIOR,0,340,0,7,YES
.WORD
TSCODE
.WORD
BRMSG
WORD
340
DRMSG,onsgcg
,3400,0,7.YES
.WORD
.WORD
.WORD

031772

000021
000130
032036
000004
000130
032071

READ HEADZR (PART 2)

HRDPRM

GPRMA

052502

PAGE 3

BGNMOD
BGNHRD

GPRMA

031722
031730
031736
031744
031745
031752
031756
031764
031771

16:20

3400
TSLOLIM
TSHILIM

.EVEN

020123
051505
052103

042101
000123
051117

CSRMSG:

.ASCIZ

/BUS ADDRESS/

VECMSG:

.ASCIZ

/VECTOR/

020122
000114
053111
030461

042514

BRMSG:

.ASCIZ

/BR LEVEL/

000105
000

DRMSG:
CNTYPE:
ENDMOD

.ASCIZ
.ASCIZ

/DRIVE/
/RL1V/

.EVEN

BGNMOD
T
BGNSF

SFTPRM

SELQ,MISWI,4,YES
.WORD
T$(ODE
.WwURD
SELQ
4
LWORD
ALGNQ MISW],10,YES

CPRML

.WORD L10050-L$SOFT/2

.WORD

TI70ODE

ALGNQ

SEQ 011

)
I ASSEMBLY ROUTINES
CIRLCB.PT2
(4)
3335

(4)

MACY11 30A(1052) 22-NOV-78 16:20 PAGE 31 9

22-NOV-78 16:19

032006
032010

TEST 14

000010

032010

000130

032014

106000

3348

032016

3352

032030

GPRML

(4)
(4)
(4)

3353
2)
443
3360

3361

3363

3371

032016
032020
032002
032024
032026

004052
032172
000377
000000
000377

032030
032032
032034

000130
032216
000020

032036

GPRML

ENDSF
T

03203
032036
032044
032052

L10050:

032066
032071
032076
032104
032112
032120
032126
032130
032136
032144
032152
032160
032166
(32172
032200
032206

054105
020105
020105
052103
051524
105
042524
020104
046516
052523
000124
054105
020105
046101
051105
047511
052123
050123
020131
020122

032224
030232
032240
032246

044522
020106
051505
000105

032250

GPRMD

ERLIMO,ERLIM,D,377,0,377,YES

100000

.WORD
TSCODE
_WORD
ERLIMO
[WORD
377
[WORD
TSLOLIM
“WORD _ TSHILIM

AUTOQ,MISWI
20, YES
.WORD
.WORD
JWORD

T$CODE
AUTOQ
20

(EVEN

052125
053111
042514
051505

SELQ:

.ASCIZ

/EXECUTE DRIVE SELECT TESTS/

052503
040505
043511
020124
051117

ALGNQ:

.ASCIZ

/EXECUTE HEAD AL IGNMENT SUPPCRT/

041505
040515
044440
042526
020116
000123
041505
051105
044514

052125
052516
052116
052116
04252

MANG:

.ASCIZ

/EXECUTE MANUAL

043171
047522
044515

ERLIMQ:

.ASCIZ

/SPECIFY ERROR LIMIT/

042526
047516
047520

044440
051040
051516

.ASCIZ

/DROP DRIVE

ENDMOD

.ASC

INTERVENTION TESTS/

[F NO RESPONSE/

(EVEN

3380

3383

JAREA RESFRVED AS PAT(H AREA FOR DIAGNOSTICS.

3385

:BIT 7 OF

3381

3384
3386

032514

SEQ 0112

TSCODE

MANQ

041505
051104
042523
052040
000
042530
044040
046101
047105
050120

3372 039316 091104 050117 042040 AUTOO:
uToQ:
3376
3377
3378

\MORD

[WORD

[WORD
33:

.WORD
10
MANQ MISW]100000,
YES

@ 032012 032130

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

READ HEADER (PART 2)

.=32514

:.=32514 WAS SELECTED AS 'LASTAD'' TO PROVIDE APT TO LSI=11 COMPATIBILITY,
'LASTAD

MUST BE_CLEARED 10 ACHIEVE A VALID MAILBOX ADDRESS

JWHEN RUNNING ON THE LSI=11 UNDER APT.

ASSEMBLY ROUTINES

CIRL(B.PT2

3387
3383
3399

3,00
(%)
(3)

MACY11

20-NOV=/8 16:19

30A(1052)

22=NOV-78 16:20 PAGE i’?

READ HEADER (PART 2)

*TEST 14

032514

LASTAD

0%2514

LSLAST::

. EVEN

SEQ 0113

ASSEMBLY ROUTINES

CZRLCB.SUP

063310
063312
063314
063316

MACY11 30A(1052)

23~0CT-78 09:52
000000
000000
000000
000000

063322
000200

22-NOV-78

16:20

PAGE &

DIAGNOSTIC SUPERVISOR == LOW (ORE SET uP
.SBTTL

LWORD
WORD
.WORD
LWORD

SEQ 0114

DIAGNOSTIC SUPERVISOR == LOW CORE SET UP

O
0
0
0

END. SUPV=, +2
.END 200

:SPACE FOR USER POOL POINTER
:SIZE
sCHECKSUM (NOT CURRENTLY USED)
:SIZE OF H.W. PTAB. ALLOCATION

SYMBOL TABLE

033040 G
032756 G

CONTCL

v
S NN
NN
H S =
= O NN

CSLOOP= 0001

002352

316

C$SPRI= 000041

C5SEC
C500Ms

012006
011755

osHooo

BIT1
= 000002
BIT10 = 092000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000010
BIT4 = 000020
BITS = 000040

oY)

—

BITO8 = 000400

[(alalalalalalalalalalalnlalalalalalalalalalal

DANAM
005745
DATACM= 000001
DCKERR= 004000
DCLIM = 000012
DCLIMW 014670

C$DU

= 000055

" C$EDIT= 000002

C$ERDF= 000002
CSERHR= 000003
C$ERSF= 000001
C$ERSO= 000004
($ESCA= 000010
CSESEG= 000005
C$ESUB= 000003
C$ETST= 000001
CS$EXIT= 000032
CSGMAN= 000043
C$GPHR= 000042
C$GPRI= 000040
($GTIM- 000052
C$INIT= 000011
C$INLP= 000020
CSKWOF= 000035
($KWON= 000034

DESSEC
DESSGN
DEV.CO

002536
002532
032526 G
DIAGMC=
= 000000
DIAG.T 033046 6

DRSET = 000010
DRVCNT 002516
DRVERR= 040000

000006 G

[2lalalalalalalalalala)

CYLTBL

CYLUP = 000004
CyLwd
070506
(SAAD
045062
CSAAE
045074
($AAK
0460;2

NOWVSWN—-=ON

NwW

CRDYMS= 000200
05%17%
CRLF
CSNAM
00573
CSR
= 000000
CSRMSG 031722

AUTOSZ= 000020
ASAA

061672

EO?TIN 01512
OSTAT= 00004
COUNT
002656

09:5

RP22SSIARE
-0
n

ABOFLA
ABOPAS

MACY11 30A(1052) 22-NOV-78 16:20 PAGE k

ASSEMBLY ROUTI
S
CZRLCB.SUP
2

FMT27

FMT28

012677
012733
012747
012754

012764

013010

013027

GLBTXT
GSTAT

GSTATC
GSTATG
GSTATR

01
016524
016464

GSTER1
006316
GTSTAT= 000104
GSEXCP= 000400

GS$HILI= 000002

HILIMW
HNFERR=
HOLDSP=
HOSTAT=

014662
(10000
000020
000020

LABOCR

QRRNSR

22828838382 2388 o

—

LABACF

[

(alalalalalalalalalalalalalalala
212191319121 21212 112121212 112 12 112 )

| FMT22
FMT23
FMT24
FMT25
FMT26

012124
012624
012654

sg8sss
SoOSeS
gs&gfiggug
Sorrl PN
P

FMT2
FMT20
FMT21

012414
012446
012502
(12513
012535
012567

(21~

FMT18
FMT19

012342

g
e
SO

012350

FMT14
FMT15
FMT16
FMT17

053344

FMT13

032542

HDALIG= 000010

<o flgfi

012334

FMT12

HC.DIA

000

032552
032544

-t

| FMT11

GARBAG

HC.ADR
HC.DEF

MSD‘HM‘

052640
204 G
032560 G
032562 G
056012
037546
055760
037506
012016
012045
012067
012110
012115

- nhhnhhnhn

003272

GSRADB=
GSRADD= 000040
GSRADF= 000200
GSRADL= 000120
GSRADO= 000020
GSRADT= 000100
GSXFER= 000004
GSYES = 000010
HADONE
432
HAMEST
007567

PAAA
A

FILL
FILL.C
FLAGS
FLAGST
FLAGTA
FLAG.I
FLA.SE
FLG.MA
FMTOP1
FMTOP2
FMTOP3
FMT1
FMT1.1

GSRADA= 000140

FORM.T
046410
FREE
053716
FRMWD
010513
FWDSKO= 002000
FWDSKS= 000400
F$AU = 000015
F$BGN = 000040
FSCLEA= 000007
F$DU = 000016
FSEND = 000041
F $HARD= 000004
F$HW = 000013
FSINIT=
F$JMP = 000050
FSMOD =
FS$MSG = 000011
F$PWR = 000017
FSRPT = 000012
F$SEG = 000003
F$SOF
T= 000005
FS$SRV = 000010
F$SUB = 000002
F$SW = 000014
FSTEST= 000001

gy --§-~.—--

FBSFIL

045106
032520 G
002646
002644
2642
002650
026114

GSOFFS= 000400
GSOFSI= 000376
GSPRMA= 000001
GSPRMD=
GSPRML=

r‘l‘%l‘f‘f‘l‘

ESC.PC
EV.COU
EXACYL
EXHCYL
EXOCYL
EXROT
EXTO5

14430 G
013106 G
01315 G
013222 G
013272 G
013342 G
014220 G
016;22 G
014
G

014640 G
31646 G
2 73 G

= 000000

—

ERR10
ERR
ERR
ERR4
ERRS
ERRG
ERR7
ERR8
ERR9

GSLOLI= 000001

GSNO_

E:::FO §16408 y

FMT3
012127
FMT4
0121
FMTS
01214
FMT
01216
FMT
012225
FMT8
01 555
FMTS
012327
FOLWRT= 000100

SEQ 0116

032516 G

LR
PAGE 5-1

[alalalaln]

E::.NU

MACY11 30A(1052)
22-NOV-78 16:20
09:5 4
SYMBOL TABLE

ASSEMBLY ROUT!
CZRLCB.SUP
2

ASSEMBLY ROUTINES

CZRL(B.SUP

5-0(%7‘ 09:52

LSSOFT
LSSPC
LSSPCP

031774 G
G
G

LSSTA

LSSPTP

LSSW
LSTIML
LSTIMU

002052 G
100
G
126

L.CLx.

0371

456
002462
464
013104

L10007
L10010
L10011
L1001§
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L1
L10027
L10030
L10031
L10032
L10033

014362
014426
014636

L100

MAJ.LO
MAJ.US
MANQ
MAN.TI
MAP16

‘bg

L.CS
L.DA
L.MP
L10000

L10001
L1
L10003
L10004
L10005
L10006

L10050

MASK.B

MCE
MCONHN
MCOSTA
MCYLOC
MCYLUP
MDATCP

014672
015730
016050
016054
016120
023244
023446
024702

030206

0321

001244
007270
062714 G

041616

MBADAD 0054
MBADSF 00550
MBHSTA 011105
MBSET0= 000001

014654

L10035 030166
L10036 0O
0
L10037 030536
L10040 030636
L10041 031156
L10042 " 031136
L10043 031370
L10044 031304

8 1644
1 s
031

MASK.W 041614

013152
13220
013270
013340
014216
014266

025510
025406
026114
026022
026766
026712
027300
027364
027664

SYMBOL TABLE

MAJ. IN

G
14 G
G

LSTIM1
L$TST]
LSUNIT

L.BA

L10045
L
L10047

4 G

14656

MACY11 30A(1052) 22-NOV-78 16:20 PAGE 2-2

01072
1
011072
011400
005204
5

SEQ 0117

MISWIW 014656
MITEST= 1
MNDRS

NUMBIN
NUM. LA
.NO

MNOCLR

NUNITS

1572

MNEERR
MNOINT
MODR
MOPER

MOPERR
MORECE
MOUT IN
S=

MREAD
MREADH
MRESKO
MREVSK

MRLFAL
MRSLT
MSEEK
MSG.AD
MSG.TY
MSPERR

.UN

06%2
80 14

011276
%g‘“
;14

RR=
NXTFOR
NXTPAS

OFMID

0025

PAT

OPFLAG
OPIERR=
OPMSGS
g
OPROC3

0024
00
002122
007724
007751
010445

0047 g
00476
005426
005304

OFMIDU
OFOUT
OFOUTU
OLDCYL

2564

OPR1
007774
OPR1A
010416
OPR1IB
010422
OPR10
0710300
OPR11
010346
OPR12
010377
WR;
010052
OPR
010104
OPRS
010120
OPR6
01016
OPR?7
01021
OPRS8
010244
OPR9
010%63
ORIN
002576
ORINU
002600
ORMID
002602
ORMIDU 002604
OROUT
002606
OROUTU 002610
QUTINS= 000040
0$APTS= 000000

MHNF
MHOSTA
MHSTA
MINOUT
MIN.IN
MIN.US
MISTST
MISwI =

010755
011131
011044
005235
032572 G
032574 G
006225
000000

NOOP =
100
NOPWR
005673
NO.CLK 037102
NO.FLA 055772
NO.LPT 053310
NO.PTA 037306
NR
= 000000
NSTACH 006250

0$3GNR= 000000
0$3GNS= 000001
0$puU_ = 000001
O$GNSW= 000001
J$POIN= 000001
PARSES 055506
FARTT = 000000
PAR.LA 051474

0$AU

PAT

002570
002572
002574
002522

MSTERR OH%Z
MTMBS
005560
MTOSLO. 006013
MUL
06221§ G
MULOAD 00517
MUNDEF 011445
MVOLCK 011061
MWDERR 011261
MWGERR 011210
MWLSTA 011120
MWORD
006005
MWRCHK 005002
MWRITE 005016
MWRSET 005127
MWRTAB 011553
M4OHDR 005113
NEWCYL 0025%2
NEWPRI 061736
G
NEXTAR 056176
NOCLR = 00001C
“NOERCT 003067

NCIRPT=

w
74
004470

PAT
PAT4
PATS

010744
2
G
010771
010711
011033
32
011157
011142
037154
011634
011571
011 33%
00553
005260
005337
005372
005032
011243
010734
011315
005071

011003

PAT1
PAT10
PAT

PATTBL

01514

MDCRC
DR
MDL T
MDRDY
MDRERR
MDRRE S
MDRVST
MDSERR
MEM.SI
MERRS
MEXERS
MFLERR
MFMTER
MFOLWR
MFWDSK
MFWSKO
MGTSTA
MHCERR
MHCRC
MHDERR
MHDRCP

MHFCRC

PASS.C

0 1;63

OF INV

01151;
00515
004744
032540 G
032514 G
01117%

9‘

54
015150
30%
&25
G

F
oCTMsG
OF IN

885 5
0037

. PASCNT
PASNEW
PASNUM

PAT8
PAT9
POSHSB

234

004530
%270
30
76

004
004740
020534
30

22
PRINTC 053320
PRINTF 056626
PRIOR = 000004
PRIOO = 000000 G
PRIOT1 = 000040 G
PRIO2 = 000100 G
PRIO3 = 000140 G
PRIO4 = 000200 G

PRIOS = 000240 G

PRIO6 = 000300 G
PRIO7 = 000340 G
PRNTST 05321
PRO.CM 037460
PSETNM 00
PTAB.S 033000 G
PUTCHR 052024
PWCON
0152
PWRFLG 003072
PWR.FA 063150 G
PWR.FL 03%304 G

PWR.MS
PWR.SA
PWR.UP
P.CLK.
P2TO1E
P%TO%E
P2TO
P2TO4E

= 000000

P2TOSE

P2TOGE
P2TO7E
P2TOBE
P2TO9E
P2T10E
P2T11E

063276
063272
063274
037120
006477
006477
006516
006542

006564
006606
006630
006654
006676
006703
006720

ASSEMBLY ROUT

CZRL(B.SUP

10
2-3
PAGE
8 16:20
22-NOV-7
MCVH 30A(71052) SYMBOL
TABLE

’5-0(1-78 09

006735
e211
006751
POTI3E
POTI4E 006771
POTISE 007014
POTI6E 007044
POTI7E 007067
POTI8E 007127
POT19% 00.154
| RDALHD 021154
RDDATA= 000114
RDHEAD= 000110
RDNOHR= 000116
RDYCHK 017632
RDYWAI 020560
READRL 016262
READ.P 060210 G
REGBAC 062700 G
REGSAV 062664 G
RELDWT= 04
REGN.P 032570 G
REQN.T 037462
RESES 011647
RESEL 011653
RESES 011660
RESE6 011665
RESPAR 002504
RESTAR 015112
RESTBL 002174
REVSKO= 001000
REVSKS= 000200
RE.SET 034252
RLBA = 000002
RLBAS 002450
RLCS = 000000

SVCHAN 042006
SVCINS= 000000
SVCSUB= 000001
SVCTAG= 000000
SVCTST= 000001
SWCHAN 037300
SWITCH 056152
SW.ADR 032554 G
SW.PTA 037264
SYS.FT 046032
SSLSYM= 010000
TBLSTR 002446
TCERR 010666
TEMPO 002540
TEMPT 002542

RLCSR = 000000
RLDA = 000004
RLDRV 002454
RLMP = 000005
RLVEC 002452
RORWOP= 020000
RPTOP 021516
RPTREM 022512
RPTRES 022304
RSTACK 062140 G
RSTRT 015012
SAMSK = 000077
SAVEDO= 034450
SBSFIL 003076
SEARCH 054146

TEMP2
TEMP3
TEMPG
TEMPS

SECWD 010501
SEEK = 000106
SEEKOP= 010000
SEGSTA 033014 G
. ABS.

063320

032036
SEL0
SEQMES 0105
SETDON 015176
SET.MA 037672
SETPRM 031772 G
SGNWD 010470
SHIFT . 062776 G
SIMSEK 017346
SKTMES 007166
SPDERR 006262
SPDSTA= 004000
SPEC.U 037406
SPTCOC 014654 G
SPV.SE 000400
SRTMES 007202
SSINDX 002424
STAMES 010577
STAMSK= 000007
STARTC 061666 G
STATEZ 011672
STATES 011702
STATES 011712
STOSTA= 010000
STRCHR 052700
STRT.T 037464
ST.SET 034316
SUBSTK 002260
SUNIT. 037470
SUPERV 035352
SUPFLA 032760 G
SUPV.T 033132 G
SUP.PR 034070
SVCBGL= 000001
SvCGBL= 000000

000

00254/
002540
002550
002552

TEMPG 002554
TEMP?7 002556
TEMP8 002560
TERMI . 060176
TERML] * 056000
TERMTA 051762
TEST.M 037420
TIMFLG 032750 G
TIM.CO 032602 G
TIM.OP 046406
TOO.MA 051742
TOSLOW= 000001
TRPFLG 003070
TRPHAN 016056
TSTINT 016446
TSTLAB 006217
TST.AB 041730
TST.TO 034132
TYPEC 052336
TYPEPC 046232
TYPFLA 055654
TYPLIN 052234
TYPNUM 051616
TYPSTR 052254
TYP.ER 046062
TY.UNI 041074
TSARGC= 000002
TSCODE= 000130
TSERCO= 000043
TSERRN= 002735
TSEXCP= 000000
TSFLAG= 000040
TSHILI= 000377
TSLOLI= 000000

TSLSYM= 010000
TSNEST= 177777
TSNSKO= 000000
TSNSK1= 000005
TSNSK2= 000002
T$SAVL= 177777
T$SEGL= 177777
T$SUBN= 000001
T$TAGL= 177777
T$TAGN= 010051
TSTEMP= 000000
TSTEST= 000016
T$TSTM= 177777
T$TSTS= 000001
T$SCLE- 010015 .
T$$DU = 010016
T$$HAR= 070047
T$SHW = 010012
T$$INI= 010014

SEQ@ 0118

TSSMSG= 010011
T$$S0F= 010050
T$SSRV= 010017
T$SSUB= 010046
1$$5W = 010013
TSSTES= 010045
002470
T.BA
002466
1.CS
002472
T.DA
002474
T.MP
T.STAT 002502
TOSERR 006362
TO9ERR 006375
022776 G
T
027666 G
110
T10ERR 006405
110.1 027720
11048 027720
030210 G
111
111.1 030366
111.2 030540
11158 030540
030642 G
T2
T12ERR 006425
112.1 02N670
11248 ‘03, 70
031160 G
113
T13ERR 006437
113.1 031204
11348 031204
031372 6
T4
T14ERR 006453
T4.1 031414
11538 031414
T16ERR
12
T25TBL
13
T3318L
13658
T4
T6.1
14658
15
15,1
15048
16
16.1
17

006467
023246 G
002304
023450 G
002332
024702
024704 G
02472
025400
025512 G
026004
026036
026116 G
026512
026770 G

027302 G
T8
027366 G
19
ULDAD = 000010
UNDTST 010432

UNIT.D 032532 G
UNI.MA 037410
UNXERR
USER.P 032774 G
USER.T 032776 G
VALDES 0072
VALID. 033234
VAL.LA 034054
VAL.SW 037520
VCNRST 006161
VCSTAT= 001000
VECMSG 031736
VECT = 000002
WAITIN 016314
WCMSK = 017777
WCRNG = 160000
WDESTA= 100000
WGESTA= 002000
WIDTH 047002
WLSTAT= 020000
WRTSWI 002444
WIDATA= 000112
XEQDIA 062024 G
XEQSUB 062012 G
XEQ.CL 041534
XEQ.CM 037044
XEQ.IN 041216
XEQ.LA 035306
XEQ.OP < 041310
XEQ.PR, 034510
XEQ.TE 041354
XRDHD 020102
XRDHDC 020072
XRDHDG 020106

XTIME 060676 G
XTIMEN 061522
XTIMST 060720
XXDP.D 037064
XSALWA= 000000
X$FALS= 000040
X$OFFS= 000400
XSTRUE= 000020
$BREG 037560
SENDAD 061776 G
$SAV2 063042 G
$SAV3 063056 G
$5AVA 063074 G
$SAVS 063114 G
= 063320
:

;

ASSEMBLY ROUTINES

CZRL(B.SUP

23-0CT-78 09:52

ERRORS DETECTED:
DSKZ:CZRLCB,DSKZ

MACY11 30A(1052) 22-NOv-78 16:20 PAGE 2-4
SYMBOL TABLE

O
: CZRLCB/EQ:PART1=CZRLCB/ML
, CZRLCB.PT1,CZRLCB.P11,CZRLCB.PT2,CZRLCB. SUP

RUN-TIME: SO 49 1 SECONDS

RUN-TIME RATIO: 177/107=1.7
CORE USED:
16K
(31 PAGES)

SEQ 0119