Digital PDFs

AH-E045B-MC

January 1979

120 pages

Original

6.1MB

view download

OCR Version

5.3MB

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

OCR Text

RL11,RLV11

czricso

——
FICHE1OF
1

MADE
IN USA

IDENTIFICATION

PRODUCT

SEQ 0001

CODE:

A(C-E044B-M(

PRODUCT NAME:

(CZRLCBO RLO1

DATE CREATED:

11-0(T-78

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

DRIVE

TEST PART

DEKNIS

"HE INFCRMATION IN THIS DOCUMENT S SUBJECT TO CHANGE
WITHOUT
NOTICE
AND SHOULD wOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMLNT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
ASSUMES
NO
RESPONSIBILITY
FOR
ANY
ERRORS
THAT
MAY APPEAR IN THIS
MANUAL
.
THE

SOF TWARE

DESCRIBED

THIS

DOCUMENT

FURNISHED

THE

PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE (OMPUTER 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 CORPORATIUN ASSUMES
NO
PRESPONSIBILITY
FOR
THE
USE
OR
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT [S
NOT SUPPLIED BY DIGITAL.

(()

7977,

1978,

DIGITAL

EQUIPMENT

CORPORATION

Page 2

GENERAL

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT IONS

N
-2

—

OWVMBWWWNS
SO

OPERATING INSTRUCTIONS
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

INFORMATION

COMMAND VALIDITY

O
S

PERFORMANCE AND PROGKRESS REPORTS

(]

DEvICE

TEST SLWIARIEé

ERROR

COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAME TERS

—

[NFORMAT!ON

CONTENTS

PROGRAM ABSTRA(T

WNO =0

TABLE OF

INFORMATION TABLES

SEQ 0002

D
Page 3
1.0

GENERAL

1.1

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF

INFORMATION

THIS DIAGNOSTIC

PROGRAM

OCCUPIES

14.5K WORDS OF

MEMORY

AND

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
(ORE
[IMAGE''
COMMAND
BELOW
FOR
DETAILS
GF
CHAINING PROCEDURE).
IT IS A SINGLE
PROGRAM FROM THE STANDPOINT
OF
THE
DIJAGNOSTIC
USER,
BUT
WE
HAVE
INCORPORATED
INTO
IT
A
CONTROL MODULE WHICH WILL LATER BE RELEASED
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR.
WHEN THIS DIAGNOSTIC
THE

ABOUT

SUPERVISOR

STARTED AT ADDRESS 200,

PORTION,

THE ENVIRONMENT.

WHICH WILL

CONTROL

ASK CERTAIN ‘HARD

SUPERVISOR CODING FOLLOWS

IMMEDIATELY

THE

INDICATED

OPERATOR MAY

DIAGNOSTIC

TEST

BUT
THE
SUPERVISOR
LISTING
HAS
BEEN
SUPPRESSED
FOR
ODISTRIBUTION.
A LIMITED DISTRIBUTION HAS BEEN MADE TO
FIELD
OF
THE
SUPERVISOR ASSEMBLY LISTING, AND [T MAY BE CONSULTED
OF A SOF TWARE PROBLEM.

1.1.2 DIAGNOSTIC
THIS

PROGRAM

CORE’’' QUESTIONS

THEN IT WILL ENTER COMMAND MODE,

A
PROMPT
C(HARACTER
(DS B>).
AT COMMAND MODE
ANY OF SEVERAL COMMANDS AS DESCRIBEL BELOW.

THE

GOES FIRST

ENTER

CODING,

GENERAL
SERVICE
IN EVENT

INFORMATION

TESTS

AND

EXERCISES

RLO'

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
TESTS TO TEST MORE COMPLEX FUNCTIONS.

THE

THIS PROGRAM TESTS

BASIC

THE RLO1

INTERFACE

AND

LOGIC

TESTED

DRIVE

IN EARLIER

LOGIC.

GET

STATUS
WITH
RESET,
GET
STATUS,
SEEK, AND READ HEADER ARE THE ONLY
COMMANDS EXECUTED IN THE PROGRAM.
ONLY SEEKS WITH
O
DIFFERENCE
ARE
USED SO NO HEAD MOVEMENT [S 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 QF HEADS OUT,
BRUSH
HOME,
AND
DRIVE STATES.
THE PROGRAM (AN BE RUN IN AUTOMATI( MODE [N
wHICH CASE

ALL

TESTS REQUIRING MANUAL

1.2

SYSTEM REQUIREMENTS

1.2.1

HARDWARE

INTERVENTION ARE BYPASSED.

REQUIREMFNTS

PDP=11/LS1-11 PROCESSOR WITH 16k OR MOREL
CONSOLE DEVICE (LA30,LA36,VT50,ET(,
RL11/RLVTT CONTROLLER(S)

OF MEMORY

SEQ 0003

Page 4

1 -~ 8 RLOT DRIVES
1 ~ 8 RLOIK CARTRIDGES wITH BAD SECTOR FILE
KW11P, «W11L (OPTIONAL)
LINEPRINTER(GPTIONAL)
1.2.2 SOF TWARE

RtQUIREMENTS

CZRLCBO RLO1

DRIVE

TEST PART 1

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

1.3

RELATED DOCUMENTS AND STANDARDS

RLOT

USERS MANUAL

XXDP USERS MANUAL

(EK=-RLO'=UG~FRE)
”

1.6

DIAGNOSTIC HIERARCY PREREQUISITES

THE

RLOT

SUBSYSTEM

PROGRAMS:

SHOULD

CVRLAAQ
CZRLABO
CZRLERN

1.5

HAVE

RLV11 RLO!
RLT1/RLV11
RL11/RLV11

SUCCESSFULLY

THE

&FOLLOWING

DISKLESS TEST (RLV11)
CONTROLLER TEST PART 1
CONTROLLER TEST PART 2

ASSUMPT JONS

THE HARDWARE

RUN

OTHER

THAN

THE

PROPERLY.
FALSE ERRORS MAY BE
FUNCTION PROPERLY.

RLOT

2.0

OPERATING INSTRUCTIONS

HOW

TO RUN

2.1.1

THE

SIX STEPS OF EXECUTION

THIS

SUBSYSTEM

nEPORTED

ASSUMED

THE-PROCESSOR.

ETC.,

WORK
DO NOT

DIAGNOSTIC

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

WHEN THIS DIAGNOSTIC

STARTED,

THE

FOLLOWING STEPS WILL OCCUR:
h )]

222

STEP
1 »

LA RS

A SHORT

SERIES OF

"HARDCORE QUFSTIONS'® WILL

QUESTION

MEANING

BE ASKED:

SEQ 0004

Page 5

F-CLK (L) N ?

IS THERE AN L-CLOCK?

P=CLK (L) N ?
SOHZ (L) M 2
LSI (L) N ?

LPT (L)
MEM (K)

N ?
(D)

"
" P=CLOCK?
IS THE POWER 50 CYCLES
IS MACHINE AN LSI?

(AS IN EUROPE)?

IS THERE A LINE PRINTER?
HOW MANY K OF MEMORY ARE

16 ?

THERE?

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE
SELECTED
BY
HITTING
CARRIAGE RETURN.
IT IS POSSI!BLE THAT NOT ALL OF THE QUESTIONS WILL BE
ASKED:
FOR EXAMPLE, IF YOU SAY 'YES''
7O
THE
L-CLOCK
QUESTION,
THE

P-CLOCK QUESTION WILL

NEITHER P OR L

TYPE

NOT

ASKED.

CLOCK ARE ANSWERED YES

TWO CHARACTERS &4

THE OPERATOR WILL BE ASKED 10

SECONDS APART,

AERREANRR
L

* STEP 2 =
AERRARANA
R
-

WHEN YOU HAVE

ISSUE

THE

ANSWERED ALL

PROMPT

THE HARDCORE QUESTIONS,

'DS-B>''.

THE

FROM THIS POINT UNTIL

DIAGNOSTIC WwILL

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 OPPO@ED TO XXDP COMMAND MODE.
AT

THE

THIS POINT

THE

YOU WILL

ENTER A "'START'' COMMAND.

XXDP ''START'' COMMAND,

XXDP DOT

PROMPT.

THIS

WHICH YOU ALREADY

''START''

COMMAND

THIS

(AN

IS NOT

ISSUED
TAKE

THE

SAME

IN RESPONSE
A

NUMBER

SWITCHES
AND
FLAGS
(ALL
OPTIONAL) AND THE DETAILS OF THESE ARF SFI
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX''.
HOWEVER, IN
ORDER
TO
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS:
STA/PASS:1/FLAGS
:HOF
THINGS
1.

TO NOTE
ONLY

HERE:
THE

FIRST

THREE

CHARACTERS OF

"DS-B>'' LEVEL NEED TO BE

(CONSISTS

UNITS BEING

OR ANY

THE "PASS'' SWITCH SPECIFIES HOW MANY PASSES

PASS

‘

THIS

TYPED.

THE
THE

TESTED

SPECIFIED

RUNNING

(THIS WILL
IN

THE

ABOVE

FULL

THE

DESIRE.

CIAGNOSTIC AGAINST

ALL

EXPLAINED

SHORTLY).

-ONE

ARE:

A NUMBER OF

FLAGS,

BUT

LOOP ONE ERROR
HALT ON ERROR
INHIBIT ERROR PRINTOUT

IER

HOE

ONES

YOU

EXYAMPLE.

'FLAGS'' SWITCH MAY SPECIFY ANY OF

MAIN USEFUL

LOE
HOE
THE

COMMAND

FLAG

SHORTLY) .,

IS SPECIFIED

)

THE

ABOVE

EXAMPLE

(WE'LL

SEE

wHY

SEQ 0005

Page 6
A\ A AR SR ASNS

* STE? 3 »
AR RN KN AN

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

A WORD OF

THE

NUMBER OF

DEVICES

WARNING HERE:

YOU WISH TO TEST.

THE

NUMBER OF

UNITS

OF
OF

THE
OPERANDS OF
THF DIAGNQS IC.

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 "HWEADER'' STATEMENT NEAR THE BEGINNING
OF
THE
SOURCE
(CODE.
SHOULD BE THE DEVICE

ONE
TYPE

THIS

"HEADER'' STATEMENT

SEG 0006

Page 7
TREAAARRNNY

* STEP 4 »
AU RRN RN

WHEN YOU HAVE
TYPED
OIAGNOSTIC
wiILL
ASK
THESE

QUESTIONS ARE

$E§¢EEES”.

ONE

N
THE
NUMBER
OF
UNITS
10
BE
TESTED,
THE
YOU
THE
“HARDWARE QUESTIONS''.
THE ANSWERS T0

USED

TO BUILD

HARDWARE

TABLES

P-TABLE

CORE,

THERE ARE SEVERAL H&RDHARE QUESTIONS AND THE

POSED N TIMES,
THIS

WHERE N

REPRESENTS

THE NUMBER OF

UNITS.

PHILOSOPHY

NEW

CALLED

‘HARDWARE

WILL BE BUILT FOR EACH UNIT TO BE

ENTIRE

SERIES

DJAGNOSTIC

WwILL

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.

AR AN TR

* STEP 5
AR

AFTER YOU HAVE
THE

UNITS,

ANSWERED ALL

YOU WILL

THE

ASKED

HARDWARE QUESTIONS

'‘CHANGE

SW?'' IF

(SEC

YOU WANT

2.5)
TO BE

FNR

ALL

ASKED

SOF TWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS
PROGRAM,
Y,
[F
YOU
WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS,
"N
IF YOU TYPE 'Y'' YOU WILL BE ASKED THE
SOFTWARE
QUESTIONS

2.6),

AND

PROGRAM,

THE

ANSWERS

SERIES OF

THE NUMBER OF

TO BE

TESTEZD.

STEP 6
A

THE

SOF TWARE

ASKED

JUST

QUESTIONS,

THE

ONCE,

IN THE

REGARDLESS

AFTER

YOU HAVE

ANSWERED

THAT

(AN HAPPEN

NEXT,

BEGIN

2A 2

UNITS

INTC THE SOFTWARE P-TABLE

WILL BE PUT

QUESTIONS WILL

THE

TYPE
TYPE
(SEC

EXECUTE

THE

HARDWARE

TEST

DEPENDING

(ODE.

WHETHFR

DIAGNOSTIC

THERE ARE
A

SEVERAL

HARDWARE

FERROR

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

1. IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC
EXECUTE
THE
DESIRED
MODE (PROMPT DS-B>).

NUMBER OF

wiLL

THINGS

WI_L

START

SIMPLY

PASSES AMD RETURN TO COMMAND

SEQ 0007

Page 8

IF AN ERROR IS ENCOUNTERED,

THEN ONE OF THREE THINGS HAPPENS,

HOE

REPORTED ON

DEPENDING ON THE

LOE

SET:

SETTINGS OF
BE

THE HOE AND LOE FLAGS.

THE

ERROR WILL

THE

DIAGNOSTIC WILL RETURN TO COMMAND MODE.

THE

CONSOLE

AND

THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK
OF CODE THAT DETECTED THE ERROR.
NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON
THE CONSOLE AND NORMAL EXECUTION WILL
AS IF NO ERROR HAD OC(URED.

RESUME

2.7.2 SAMPLE RUN-~THROUGH

LET'S SEE HOW AL.
ENTERED
TYPICAL

THE

WAY

TO RUN

SINGLE
REQUESTED
RE ISSUED.

AN FRROR

THIS WORKS IN A

COMMAND

REAL

THE

DIAGNOSTIC.

PASS

WILL

IS ENCOUNTERED,

ISSUE

THIS

ARE

AND

THE

RECALL

THAT

ENCOUNTERED,

PROMPT

(THUS GOING

THE

THRU ALL

THE

WILL BF

FLAG IS SET).
A
THIS POINT
THE PROGRAM GOING AGAINS:

S, AND 6 AGAIN)

WOULD BE A VERY

THE ERRUR WILL BE REPORTFD AND

ANOTHER ''START'' COMMAND

3, 4.

THERE

STEPS

ISSUE A "RESTART'' COMMAND

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

THE

HARDWARE

QUESTIONS ARE

NOT ASKED)

ISSUE A 'PROCEED'® COMMAND:
INSTRUCTION
FOLLOWING
THE

TYPICAL

THING

THAT

NO QUESTIONS ASKED.

COMMAND AND CAN BE
MCSTM

(SAME AS START COMMAND EXCEPT

PROMPT

HALT OCCURED.

THE

NO ERRORS

EXECUTED

WILL
BE
REISSUED (BECAUSE THE HOE
ARE FOUR DIFFERENT WAYS YOU CAN GET
1.

SITUATION.

''STA/PASS:1/FLAGS:HOE''.

ISSUED ONLr AT A HALT ON ERROR).

TO DO HERE

DIFFERENT FLAG SETTINGS.

EXECUTION
WILL
RESUME- AT
THE
ERROR
REPORT (THIS IS A SPECIAL

PRMBABLY

PRO/FLAC..IER:HOE-0
LOE

ISSUE

THE

YOU WOULD WANT

PROCEED,

TO SAY

BUT

WITH

SEQ (008

J
Page 9

THIS WILL

THE

FOLLOWING:

IER

TURN ON THE

(INHIBIT ERROR PRINTOUT)

TURN ON THE LOE FLAG

TURN OFf

RESUME EXECUTION AT

FLAG

THE HOE FLAG
INSTRUCTION AFTER ERROR REPORT

STUDY THE ERROR OR SCOPE

IT OR WHATE VER.

WHEN YOU'VE SEEN ENOUGH,
OUT
OF
THE
LOOP
AND

YOU MAY HIT CONTROL/C.
THIS
WILL
TAKE
YOU
PLT YOU BACK INTO CC.IMANC MODE.
YOU NOW HAVE

THREE

CHOICES:

START

RESTART

CONTINUE

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

SEQ 0009

DIAGNOSTIC.

YOU wOULD

WANT

FINISH

AND

RESUME

TYPE

CON/FLAGS
:HOE : JER=0:LOE-0

THIS WILL RESTORE THE

EXECUTION

FLAGS

THL BEGINNING OF

THEIR

ERROR DOES NOT RECUR, THE EXECUTION WILL
NEXT ERROR OR TO END OF PASS.
éFO?ZCEND OF
Hi
:

PASS

START

RESTART

YOU WOu.
D CHOOSE

HARDWARE

YOU WANT

ONE,

ORIGINAL

THE HARDWARE

TO RUN THE

FLOW RIGHT

IN.

THRU

THE
THE

DJAGNOSTIC

DEPENDINC ON WHETHER

QUESTIONS AGAIN.

VALUES

TEST YOU WERE

AGAIN.,

YOU WANTEL

YOU

HAVF

TWwO

ANSWER

THE

1
K
Page 10
THE FULL PRINT=QUT

FROM THE

ABOVE

DIALOGUE MIGHT LOOK LIKE

BY
WHOM

CSR (O ?
VECTOR (O) ?
BR LEVEL (O) ?
DRIVE (0) ? 1
CHANGE SW (L) ? N

géngfTHARD ERR 00004
H

TST 003 SuB 002 P(:004130

DS-B>PRO/FLAGS
IER:LOE :HOE-0O
:
LA

228002002

THIS POINT

a2l

THE

il 222222
22222332
2222
2382

DIAGNOSTIC

IS LOOPING ON

ERROR WITHOUT PRINTING ANYTHING.
THE

ERROR UNTIL

UNIT 2

00O

O000

(D>

UNIT 1
(SR (0) ?
VECTOR (0) ?
BR LEVEL (0) ?
DRIVE (0) 2 O

OCO0OO000

LSI (L) N ?
LPT (L) N ?
MEM (K) (D) 16 2
DS-B>STA
: 1/FLAGS
/PASS
:HOE
# UNITS

OO0

(L) N ?

jTiviviviwibivivivieivivivielviviviwlvivielivle]

SOHZ

ENTERED:

kedvivivivle]

.R DZRKXX
DZRKXX
L=CLK (L) N 2

YOU HAVE

LOCATED

THE

YOU CAN SCOPE

IT,

THEN “C

OUT

OO0

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

*C
DS-B>CON/FLAGS:HOE
: IER:LOE O
(HANGE SW (L) ? N

LA ARt dlRtiidRei
T2
liz
TR B R R RS

THIS:

SEQ 0010

Page 11

2.
THE

HOW TO CREATE A CHAINABLE FILE
DIAGNOSTIC

CHAIN MODE.

AS RECEIVED

THA

|S WHY

$858551g0? WAY, HOWEVER,
IT CONSISTS OF

FROM RELEASE

[T BEARS

ENGINEERING CANNOT BE

RUN

THE EXTE JSION ‘BIN'' INSTEAD OF

C(REATE

RUNMING THE PROGRAM

C(HAINABLE

WITH

THE

PROGRAM

SPECIAL

FROM

'BIC'".

WHAT

COMMAND

'‘CC!*’

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

FILE

ISSUED
WHERE
YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMr
DS-B>.
THIS
(OMMAND
(AUSES
THE
DJAGNOSTIC
TO
GO
THRU
ALL
THE
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE JT WOULD OR[INARILY
BEGIN EXECUTION OF "HE HARDWARE TEST CODE.
AT THIS POINT YOU CAN DUMP
EHEENQ?SSRAQICAS
IT
SITS
IN
(ORE
TN THE LOAD MEDIUA, WITH THE NEW
x

HERE

IS A

ll.

SAMPLE

DIALOGUE

.R UPD2

RESTART:

TO ACCOMPLISH

THIS:

XXXXXX

*(CLR
*L0OAD DIJAG.BIN
XFER:200.
CORE:0,60602
*START 200
L=C.K (L) N ?

DS-B>((I

# UNITS

CHANGE

(D)

PTAB END.

? 4

(L)

? N

40632

CRRAT RN R ANANRAAN KRR AN RN A RAR

R ARNRANAN

*AT THIS POINT THE MACHINE HALTS AND~w
*YOU MUST RESTART AT ADDRESS
XXXXXX*
TRARARAA

AR ARNANRNANRRARANAARI
AR RN RS

*HICORE 60632

CORE:
0,60632
*DUMP DKO: DIAG.BIC
(ONTAINING THE XXDP COMMAND
.R DIAG.BIC
AND THE CIAGNOSTI” WILL EXECUTE WITHOUT MANUA_ INTERVENTION,
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND.

USING THE

SEQ 0011

M1
Page 12

2.5

DETAILS OF

2.3.1

TABLE OF

THERE

ARE

SUBSETS OF

COMMANDS AND SYNTAX

COMMAND VALIDITY

FOUR WAYS OF

ENTERING DIAGNOSTIC

(OMMAND MODE,

HOW ENTERED

AND DIFFERENT

THE DIAC COMMAND SET ARE AVAILABLE WITH EACH:
LEGAL

OPERATOR ENTERED

°'RUN DIAG'

COMMANDS

START

PRINT
DISPLAY
FLAGS

ZFLAGS

D IAGNOSTIC HAS FINISHED ALL

START

I TS REQUESTED PASSED

RESTART
PRINT

DISPLAY
FLAGS
ZFLAGS

OPERATOR INTERRUPTED THE

START

DIAGNOSTIC WITH CTRL/C

RESTART

CONT INUE

DISPLAY
FLAGS

ZFLAGS

AN EKROR WAS ENCOUNTERED
WITH

THE

HOE

FLAG SET

START

SET

RESTART

CONT INUE

PROCEED

PRINT
DISPLAY
FLAGS

ZFLAGS

2.3.2 JTOMMAND SYNTAX
TR

R AR A AR TR

AN R AR AR AR AR R AR R RN NI

A AP ANANRAARRANNRNANRN
NN AARS S

STA(RT) /TESTS:TEST=LIST/PASS:PASS=CNT/F' AGS:CLAG=LIST/EOP:EOP-INCR
LAASAAASRARARRSAlSRdsadiddsddl
ittt dsr sz
sz
SRS 22T Y

THE

DIAGNOSTI.

ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF

SPECIFIED.

CORE

EXECUTED

ACCORDANCE

THE MESSAGE "# UNITS?'' IS PRINTED.

WITH

THE

SWITCHES

THE START (OMMAND MAY
THE

FOLLOWING:
A)
OPERATOR TYPED 'RUN DJAGNOSTIC'® B> DIAGNOSTIC fINJSHED
EXECUTING () FRROR WAS ENCOUNTERED
WITH
HOE
FLAG
SET
D)
OPERATOR

ENTERED CONTROL/C.

SEQ 0012

Page 13
AFTER THE OPERATOR RESPONDS TO 'W UNITS?'', THE
HARDWARE
DIA_OGUE
IS
INITIATED.
WHEN
IT
IS
COMPLETED,
THE
QUESTIONS
‘'CHANGE SW?'' IS
ISSUED, AND THE ANSWERS, IF GIVEN, BECOME THE NEW DEFAULTS.
THEREFORE
égFAéfTSNECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD
THE

SWITCH ARGUMENTS APE

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

PASS

DECIMAL
IS

NUMBER

DEFINED AS

[INDICATING

THE

EXECUTION OF

DESIRED
THE

FULL

NUMBER

DIAGNOSTIC

(ALL SELECTED TESTS) AGAINST ALL
UNITS
SUMBITTED.
THE
DEFAULT
IS
NON~ENDING
EXECUTION..B
"FLAG-LIST'' S A SEQUENCE OF ELEMENTS OF THE
FORM <FLAG>, <FLAG=1>, OR <FLAG=0>,
HAS ONE OF THE FOLLOWING VALUES:

HOE

LOE

IER
IBE
IXE

SEPARATED BY

HALT ON ERROR, CAUSING COMMAND MODE TO BE
ERROR 1S ENCOUNTERED
LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO
WITHIN
THE
SMALLEST
DEFINED
BLOCK: OF

SUBTEST, OR TEST) CONTAINING THE ERROR
INHIBIT ERROR REPORTING
INHIBIT BASIC ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS

PRI
PNT

DIRECT ALL MESSAGES TO A LINE FRINTER
PRINT NUMBER OF TES BEING EXECUTED

BGt
UAM

BELL ON ERROR
RUN IN UNATTENDED MODE,

ISR
ity

COLON",

BYPASSING MANUAL

INHIBIT STATISTICAL REPORTS
INHIBIT DROPPING OF UNITS BY DIAGNOSTIC

WHERE

ENTERED

<FLAG>

WHEN

LOOP
(CONTINUOUSLY
CODING
(SEGMENT,

INTERVENTION

TESTS

SEQ 0013

Page 14
THE FLAGS NAMED OR EQUATED

TO 1

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

"EOP=INCR'' IS A DECIMAL NUMBER
PASSES)

DEFAULT

IS AT

DESIRED

THE END OF

LAAAAR ARt

THAT

ARE

SET,

[IF

INDICATING

THE

END OF

EVERY PASS.

RRRdRtlos

THOSE

IS CLEARED.

THE

HOW

EQUATED

ARE

FLAGS SWITCH IS NOT

OFTEN

PASS MESSAGE BE

(IN

TERMS

PRINTED.

THE

ot lilidlliissdisdiatisdisdisdisislsslissiiiiisitisissasss

RES(TART)/TEST: TEST-LIST/PASS:PASS~CNT/FLAGS :FLAG=LIST/EOP:EOP-INCR/UNITS:UNIT-L]ST
LSS

THE

ARttt

DIAGNOSTIC

IN CORE

sttt sslsliiddsdisdsisisdsslssinlinssiaisissesssisxs
s

IS EXECUTED

ACCORDANCE

WITH

THE

SWITCHES

SPECIFIED.
HOWEVER, NEW P-TABLES ARE NOT BUILT.
INSTEAZ, THE ONES IN
CORE ARE USED.
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

THE

START

COMMAND EXCEPT:

"UNIT-LIST'" IS A SEQUENCE OF
JOGICAL
UNIT
NUMBERS
RANGING
FROM
1
THRU N (N = NUMBER OF
UNITS BEING TESTED) SPECIFYING
WHICH UNITS ARE
TO
BE
TESTED.
THE
LOGICAL
WUNIT
NUMBER
DESIGNATES
THE POSITION OF THE P~TABLE IN CORE, ACCORDING TO
THE

NOT

ORDER

HAVE

IN WHICH

BEEN

THEY WERE BUILT.

DROPPED

THE

THE UNITS

SPECIFIED MUST

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.

SRR

IS AUTOMATICALLY RFSET

TO "ALL')

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

SRSl

d il

CON(TINUE ) /PASS : <PASS=CNT/FLAGS
: <FLAG-LIST>
LAAASRASSSRRRRdRtl
il
sl
222222
dissi
R

COMMAND MODE MUST HAVE BEEN ENTERED DUE
CONTRCL/C.
THE EFFECT OF THE COMMAND IS
TEST

THAT WAS BEING EXECUTED WHEN

SOF TWARE
DIALOGUE
MAY NOT BE CHANGED.
THE

THE

TO
A
HALT
ON
ERROR
OR
A
TO GO O THE BEGINNING OF THE

HALT OR

CONTROL/C

MAY OPTIONALLY BE REEXECUTED.

SWITCH ARGUMENTS ARE

THE

START

(OMMAND

DEFALT FOR PASS=(NT IS
THE
PREVIOUS START OR RESTART

UNSPECIFIED FLAG SETTINGS ARE UNCHANGE>

UNSATISFIED

TOOK

PLACE.

HARDWARE PARAMETERS

EXCEFT:

PASS=(NT

FROM

THF

SEQ 001%

Page 15
\ A2AR
R2

PROCCEED)
/FLAGS : <FLAG=L [ST>
ARARARRRREA
R AN AARC AR AR AN RS

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

1.
AR

N R

THE

SAME

THE

START

COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED
AR A AN R A

RN AR AN R R AN NN AR AR AN AN R RANRNRANRARRRNANRNNSAS

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

RN RN A RN

AN AR R R

RN R AR RN N A AN RN R AR NN RANRARRNARRN AR RN N AR

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
RUN
MANUALLY
OR
IN
CHAIN
MODE.
IF RUN MANUALLY IT CAN BE

EITHER WITH A "'START'' (IN WHICH CASE

IT WILL BEHAVE LIKE

IT
IS
INVOKED

THE BIN FILE:

THE
PRE~GENERATED
ANSWERS
TO OPERATOR QUESTIONS WILL BE IGNORED) OR
UYTC SE.REEB?RT” (IN WHICH CASE
THE
PRE-GENERATED
OPERATOR
ANSWERS

wil

IF RUN _IN CHAIN MONE, AUTOMATIC EXECUTION
wILL
COMMENCE
IMMEDIATELY
ggOTSSL?g XXDP COMMAND ''.R DIAG''.
THE COMMAND PROMPT 'DS-RB>"' 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 [T IS RUN MANUALLY.
TO DO A CCI

LARGER
UTILITY
WA

ON A FULL

SIZED DIAGNOSTIC

(14.5K WORDS),

MACHINE

SIZE

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

RN RN RN RRAA R AN NSRS

DRO(P) /UNITS:UNIT-LIST
(828283220822

23%22828 221

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BACK
ggocgggIL
A
START
(OMMAND IS GIVEN.
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 DRNP,
HOWEVER, IS ONLY UNTIL THE NEXT START OF RESTART,

SEQ 0015

Page 16
L3220l
Rl R

ADD/UNITS:UN]IT-LIST
LA2222028222222
2dd ]

THE

UNITS

DROPPED

SPECIFIED ARE

THE

ADDED BACK

DROP COMMAND)

FOLLOWED BY A PROCEED.

(THEY

TO THE

TEST

MUST

HAVE

SEQUENCE.

BEEN

PREVIOUSLY

AN ADD CANNOT BE

4
LA A 288

PRI(NT)
LAA 282

ALL

ISR

STATISTICS

TABLES ACCUMULATED BY

(INHIBIT STATISTICAL REPORTING)

AR ARN AN TR ANA NN AR

R AR

THE

DJAGNOSTIC ARE

FLAG IS CLEARED.

PRINTED.

THE

DIS(PLAY)/UNITS:<UNIT=-LIST>
AARAARR
R AR RN AAAARAR AR
RAL

THE HARDWARE P~TABLES FOR ALL UNITS UNDER TEST ARE
FORMAT IN WhICH THEY WERE ENTERED.
ANY UNITS THAT

OPERATOR 'DROP'' COMMAND ARE

PRINTED OUT IN
WERE DROPPED BY

THF
THE

SO DESIGNATED.

FLA(GS)
AN
AN NN

THE
AR

CURRENT

SETTINGS OF

ALL

FLAGS ARE

PRINTED.

ZFL (AGS)
L2 8 8822
3¢

ALL

2.4

FLAGS ARE

(LEARED.

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF
FCLLOWING DISCUSSION OF

THE
HARDWARE
DIALOGUF
WHAT HAPPENS INTERNALLY.

REVEALED

THE

AS SOON AS THE QUESTIUN "% UNITS?'' IS ANSWERED
(WITH
THE
NUMBER
N,
SAYY
SPACE
IN (ORE IS ALLOCATED FOR N P-TABLES.
ALL OF THE P-TABLES
ARE OF THE SAME FORMAT,
AND
THERE
IS
A
ONE-TO-ONE
CORRESPONDENCE
?g;zEEN
THE HARDWARE PARAMETER QUESTIONS AND "HE SLOTS IN THE P-TABLE

SEQ 0016

Page 17
ON_THE FIRST

P-TABLES

ARE

TRIP THRU THE QUESTIONS, ALL OF
FILLED.

_THE

OPERATOR

THE

TYPES

SLOTS

IN LESS

IN ALL

THE

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
VALJE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE
NUMBER
ONE
PLAYED

IN THE

FIRST

TRIP,

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

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
VALJES
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 CAFABILITIES TO CONSTRUCT A
SET
OF. P-TABLES.
ASSUME THAT WE HAVE 64 UNITS, AND THAT THERE ARE THREE
HARDWARE PARAMETERS FOR
EACH
(THREE
SLOTS
N
THE
P-TABLE,
THREF
HARDWARE
QUESTIONS
IN
THE DJALOGUE).
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.

THE DESIRED VALUE FOR THE

THIRD PARAMETER BE

FIRST 20 UNITS AND THE NUMBER 77 FOR

FOLLOWING DIALOGUE WOULD ACCOMPLISH

# UNITS

(D)

UNIT 1

UNIT 21

<QUESTION

2
?

7
?

L3S]

THE

75
1=-20
76

21-49, ,51-64
77

THE NUMBER 76 FOR

LAST 44 UNITS.
THIS GOAL:

THt

SEQ 0017

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

AND A CONSTANT 20 IN
TABLES
CONSTANT 76 IN ALL 64 TABLES.

THRU

64.

SLOT

THREE

ALL
64
THRU 20

RECEIVES

THE SECOND TIME THRU THE SERIES, TABLES 21 THRU THE END ARE
GOING
TO
BE
AFFECTED
(NOTE
THAT THIS PIECE OF 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

TABLES 21

49
64.

IN
SLOT 50, AND GETS THE VALUES 51,52,53,....64 IN TABLES 51
SLOT THREE GETS THE VALUF 77 IN TABLES 21 THRU 64.

TWO GETS

THE

THRU 64,

THE DIALOGUE IS
EXPLICIT
VALUES

THE

IN TABLES 21

AND

SLOT

GETS

THRU

HARDWARE PARAMETERS
FOLLOWING QUFSTIONS WILL BE

ASKED ON A START

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

(L)

ANSWER

RLVI1

YES(Y)

CONTROL! ER.

YOU HAVE

AN RL11

(0)

ANSWER WITH

THE BUS ADDRESS OF

VECTOR

(0)

CONTROLLER,

“HE

VALUE

THAT

NO(N>

YOU

HAVE

CONTROLLER.

THE

INTERRUPT

VECTOR OF

THE

ANSWER WITH

THE

INTERRUPT PRIORITY CF

THE

DRIVE(S)

(0)

THE

DEFAULT VALUE

1744007?

(0)

DRIVE

COMMAND.

THE

3307

ANSWER WITH

BR LEVEL

¥?

BUS ADDRESS

CUNTROLLER.

THE

(ONTROLLER.

TO THE

CONTROLLER.

ANSWER WITH

2.6

TYPED IN.

THRU 49,

TERMINATED
WwHEN
THE
SOFTWARE
RECOGNIZES
THAT
64
HAVE
BEEN
GIVEN
FOR
AT LEAST ON QUESTION (NAMELY

QUESTION 2).

2.5

SINCE NO NEW EXLICIT VALUES ARE

VvALUES 21,22.23,...,49

CONNECTED

SOF TWARE PARAMETERS

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

THE
PARAMETERS
ANSWERING (YJES

(AN
BE
MODIFIED ON A START,
TO THE FOL.OWING QUESTION:

RESTART,

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 <(R>,
%EN;ROL
Z
(*7)
WILL
DEFAULT
ALL REMAINING QUESTIONS AND START THE
ST.

EXECUTE DKIVE

SELECT

TESTS

(N)?

IF ''YES'' TESTS S AND 6 ARE EXECUTED IN THE FIRST PASS OF

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

EXECUTE HEAD ALIGNMENT SUPPORT

IF "YES'',

TEST

"YES'',

TESTS 1, 2,

(N)?

INTERVENTION TFSTS

(N,?

3, AND 4 ARE EXECUTED TO TEST

HEAD LOADING,

HEAD UNLOADING,

SPECIFY ERROR LIMIT
THIS PARAMETER

SPECIFIES

(DECIMAL)

AND ALL

BASIC

STATE

DROP DRIVE
THIS PARAMETER

THE MAXIMUM NUMBER OF

NO RESPONSE

SPECIFIED AS

INTTERFACE

(HANGES.

(20)?
ERRORS

LIMIT IS ON A PER DK]JVE BASIS IN A SINGLE PASS.
IF THE
EXCEEDED, THE DRIVE IS DROPPED FROM FURTHUR TESTING.

PROGRAM,

IS EXECUTED IN THE FIRST PASS.

EXECUTE MANUAL
OPERATIONS,

THE

ADDRESS PLUGS AND

ALLOWED.

THIS

ERROR LIMIT
)

(N)?

YES,

THE

PROGRAM

WILL

C(HECK

EA(H

DRIVE
BEFORE TESTING STARTS TO DETERMINE IF IT IS READY OR [F [T WILL
RESPOND TO A GET STATUS.
IF IT IS NOT READY AND WILL NUT RESPOND TO A
GET STATUS, THE DRIVE IS DROPPED AND A MESSAGE IS PRINTED.

3.0 ERROR [NFORMATION
ALL

ERRORS ARE

PRINTED

VIA CONSOLF

DEVICE.

NUMBER,
TYPE
AND
PROGRAM LOCATION.
AND AT fRROR WITH RELEVENT DATA,

5.1
MOST

THE

ERRORS

ERROR

INCLUDE

INCLUDES

ERROR

REGISTERS BEFORE

ERROR REPORTING
ERROR REPORTS HAVE

(1)
(2)

THE

FOLLOWING FORH&T.

PROG NAME
ERR NUM
TEST NUM
SUBTEST NUM
ROUTINE TRACE SEQ (IN SEQ CALLED?
(ADDRE SS)
(ADDRESS:

(ADDRESS)

ERR P(

SEQ 0019

Page 20

(3)

(4)

(5)
(6>
(7)
(8)
(9)
(10)

an
12)

TEST DESCRIPTION

OPERATION:

RESULT:
ADDRESS OF UNIT UNDER TEST
RLCS
RLDA
OP INIT
OP DONE
DRIVE STATUS
TOTAL

RLBA

RLMP

WORD NUM IS {XXXXXX) SB
COMPARE ERRS: (2Z2) OF (128)

cyL

(YYYYYY)

THE ONLY EXCEPTION 'O THE ABOVE
éN?TR DgLEgéED BY READ ERROR).
HROU
.

FORMAT IS
PURE
THEN THE FORMAT

DATA
(OMPARE
ERRORS
DOES NOT INCLUDE LINE-

LINE

IS PROVIDED

THE

IS THE ERROR HEADER AND

PROGRAM
IS
IDENTIFIED
BY
PRESENTLY BEING EXECUTED.

THE
TO

NAME

WITH

"HE

NUMBER CF

SUPERVISOR.
TEST

AND

THE

SUBTEST

SUBTEST NUMBER IS UNIQUE IN THIS PROGRAM [N THAT TM DOES NOT REFER
A
PHYSICAL
SUBTEST
WITHIN A GIVEN TEST.
RATHER IT REFLECTS THE

NUMBER
OF
TIMES
A
SUBTEST
HAS
BEEN
EXECUTED
WITHIN
A
TEST.
CONSEQUENTLY,
ON
A
TEST THAT TESTS AN INCREMENTAL TYPE OF OPERATION
(SUCH A INCREMENTAL SEEKS, READ ALL HEADERS FROM BOTH SURFACES,
ETC(.)
B?EURgggTEST
WILL
BF
DESCRIPTIVE
OF
WHERE
[N
THE TEST THE ERROR
THE ERROR P.C.
IS THE PHYSICAL MEMORY LCCATION WHERE THE ERROR REPORT
WAS
INITIATED.
SINCE MANY FUNCTIONS ARE SUBROUTINED, AND ERRORS ARE
REPORTED FROM SUBROUTINES,
THE
ERROR
P.(C.
IS
NOT
SUFFICIENT
TO

%gEg;éCYDggE

LOCATION OF

LINE 2 IS THE ROUTINE

THE

TRACE

ERROR CALL AND

SEQUENCE.

THE ROUTINE

TRACE

SEQUENCE

THE ERROR CALL

INITIATED

FROM WITHIN THE TEST (AS OPPOSED TO WITHIN A ROUTINE), THIS PORTION OF
THE REPORT 1S OMITTED.
IF THE CALL IS INITIATED FROM A ROUTINE (WHICH
MAY
BE
CALLED
BY
ANOTHER
ROUTINE,
WHICH MAY BE CALLED BY ANOTHER
ROUTINE,
ETC.
SEVERAL
LEVELS
DEEP)
THE
ROUTINE
TRACE
SEQUENCE
PROVIDES
A
TRAIL
TO THE ACTUAL LOCATION WITHIN THE TEST THAT CALLED
THE FIRST ROUTINE.
THE FIRST ENTRY LISTeD IS THE LGCATION
WHERE
THE
FIRST ROUTINE WAS CALLED.

LINE
THE

LINE

3 IS THE

TEST DESCRIPTION AND IS ROUGHLY

TEST BEING PERFORMED.

IDENTIFIES

PERFORMED.

SPECIFIC UoE
?géfl A'?E:D

THE

ADDJTIONAL

ACTUAL

HARDWARE

INFORMATION

IDENTICAL

FUNCTION

THIS

LINF

TO THE NAME OF

THAT

BEING

IS DESCRIPTIVE

OF THE FUNCTION.
FOR EXAMPLE, THE
OQPERATION
L INE
WIL
HEADERS
FOR
40 HEADERS'' WHEN ALL HEADERS ARL BEING READ

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

THE
CONTENT
OF
AS
DRIVE
READY,

(ONTROLLER ERROR
DRIVE STATE, ETC.), WHAT [T IS AND
WHAT
T
SHOULD
BE.
INE
5 MAY BE REPEATED IF MORE THAN ONE TESTED ITE:* IS FOUNL IN

SEQ 0020

Page

SEQ 0021
ERROR.
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

HNF/DLY,

FOLLOWING

AND

WILL

DETERMINED BY

HCRC/DCRC.

TRUTH

THE

TABLE:

HNF /D0

LINE

DCRC/HCRC

OP]

QO A(C)
2 —

2O SO

THF

THREE

WILL

ERROR

BITS

DETERMINED

ME SSAGE

1
1
1

HDR NOT FND/HDR (RC/OP]
HDR (RC ERROR
HDR NOT FND ERROR

0
0

0PI,

IN'THE

ERROR

DATA CRC ERROR
DATA LATE ERROR

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

LINE

THESE

7 NAMES THE
ARE

LINE 8

CONTROLLER REGISTERS

APPLICABLE

PROVIDES

OPERATINN WAS

THE

REPORT)

CONTENTES

INITIATED.

(AND

TO BE

(CYLINDER

AND

THIS

HEAD

WHERE

REPORTED.

CONTROLLER

REGISTERS

WHEN

THE

LINE 9 PROVIDES THE CONTENTS OF
THE
ERROR
BEING
REPORTED WAS DETECTeD.

CONTROLLER
REGISTERS
WHEN
THE
FREQUENTLY THE REGISTER CONTENTS
OP INIT AND OF DONE WILL BE DIFFERENT.
OP INIT MAY INDICATE A SEEK

OF
WAS BEING PERFORMED BUT OP DONE MAY INDICATE THE ERROR WAS DETECTED BY
A READ HEADER.
THE REASON [S THAT A SEEK WAS
EXECUTED
AND
DID
NO7
PROPERLY
POSITION
HEADS
AND WHEN THE READ HEADER WAS DONE THE HEADS
WERE ON THE WRONG CYLINDER.

LINE

10 IS THE DRIVE STATUS.

CONTAIN

THE

THIS LINE
ACTUAL

IS ONLY REPORTED IF

DRIVE

THE

RLMP

STATUS.

LINE 17 AND LINE 1c ARE REPORTED
IF
THE
ERROR
WAS
DETECTED
AS
A
COMPARE
CPERATION, EITHER DATA OR HEADERS.
IN ADDITION, GOOD AND BAD

DATA

IS REPORTED FOR ALL READ ERRORS.

3.1.1

SPECIFIC OPERATION MESSAGES

THE OPERATION MESSAGE (LINE &) IS GENERATED IN A DYNAMI( MANNER
BASED
ON_
THE SUBSYSTEM FUNCTION BEING EXECUTED AT THE TIME OF ThE ERROR AND
THE

STATE

THE

FLAGS

THE

LOCATION

OPERATION MESSAGES ARE GIVEN BFLOW.

SEEK = FROM (CYL NUM)
THE

VALUES

ARE

GIVEN

DIFF

(CYL DIFF)

IN OCTAL.

TAGGED

SGN

(O OR 1)

THIS MESSAGE

OPERATION THAT WAS VERIFIED BY A READ HEADER
AFTER

SEEK

IN ERROR.

'OPFLAGS''.

(THE

ACTUAL

SITUATION IS GIVEN IN THE RESJULT LINE,

LINE

AND

THE

(0 OR

RESULT

HEAD POSITION

5.0

THE

HEAD
IN

POSSIBLE

WHERE

TFEK

POSITION

THIS

ERROK

READ DATA =~
DETECTED

[S A READ DATA OPERATION WHERE

IN THE ACTUAL READ OPERATION.,

SOME

FORM

THIS ERROR COULD BE

ERROR

HARDWARE

WAS

DETECTED

SUCH
AS
DATA
(R(, HEADER CRC, HEADER NOT FOUND, ETC., OR A SOF TWARE
DETECTED ERROR SUCH AS DRIVE READY RESET AFTER A READ DATA COMPLETED.
READ DATA WITH DATA COMPASE

|S AN ERROR

THAT

WAS

DETECTED

BAD

DATA
IN
THE BUrFER AFTER A READ DATA OPERATION.
WHEN THIS OPERATION
IS REPORTED IT INDICATES THE ACTUAL READ DATA OPERATION COMPLETED WITH
NO DETECTED ERRORS BUT THE DATA WAS WRONG.

READ HEADEn - READ HEADER FOR 40 HEADERS - READ HEADER FOR 40
HEADERS
WITH
HEADER
(OMPARE ~ HAVE THE SAME GEN[RAL 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
DETECTED IN THE ACTUAL OPERATION WHILE THE READ HEADER FOR 40
HEADERS
WITH HEADER COMPARE INDICATES NO ERROR IN THE ACTUAL OPERATION BUT THE
HEADER DATA ITSELF WAS IN ERROR.

IR
vy

’

WRITE DATA - RESET ~ GET STATUS - GET STA1JS
WITH
RLSET
ARE
ALL
BASIC
OPERATIONS.
AS
BEFORE,
THE
ERROR
DETECTION
CAN BE EITHER
HARDWARE OR SOF TWARE.
THE RESULT LINE (LINE S) WILL DEFINE THE REASON
FOR

THE

REPORT.

LD DRV = UNID DRV ~ ARE OPERATION MESSAGES THAT
REPORT WHEN

THE DRIVE

LOAD AND UNLOAD

SEQUENCE

WILL

APPEAR

IS BEING TESTED.

SHE

ANOTHER GROUP OF OPERATION QUALIFIERS WILL BE REPORTED FOR
OPERATIONS
THAT FAIL IN SPECIFIC TESTS.
THESE TESTS ARE THE WRITE/READ TEST PART

2., OVERWRITE

TEST, AND THE ADJACENT CYLINDER INTERFERENCE

OPERATION

QUALIFIER

READ DATA WITH DATA
READ DATA
wRITE DATA
READ HEADER

THE ABOVE

OPERATIONS CAN BE

QUALIFIERS.
REPORT
MORE

(OMPAKE

THAT

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, OVERWRT

REPORTED WITH ANY OF

THE QUALIFIERS IN THESE
MEANINGFUL BY PROVIDING

OPERATIONS BEING DONE.
THE

TO THE

SEQUENCE

CYLINDER WHERE

OPERATIONS

THE

TEST

THE

TESTS ARE AN ATTEMPT TO MAKE
THE
INFORMATION ABOUT THE SEQUENCE OF

QUAL IFIERS '¥OL C TO CC SEEK'' AND '¥OL 255
T=t

TEST.

INCLUDED

A SEEK

IS BEING PERFORMED.

(CC

SEEK'*

INDICATE

A GIVEN DIRECTION

K
2
Page 23
THE 'FOL WRITE (NO SEEK)'' QUALIFIER MEANS THAT THE OQPERATION WAS
AFTER A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND READ.
THE QUALIFIER ''ADJ

CYL WRITTEN AFTER FWD

SK'*

AND

‘ADJ

(YL

DONE

WRITTEN

AFTER
REV
SK'' WILL
BE
REPORTED
ONLY
IN
THE
ADJACENT
CYLINDER
INTERFERENCE TEST.
THESE QUALIFIERS ARE USED WHEN THE ERROR QCCURS ON

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

QUALIFIERS "'SK FWD,

OVERWRT''

WILL

WRT-SK REV,

REPORTED

HEADS WERE MOVELD

OVERWRT'' AND ‘‘SK REV,

ONLY

QUALIFIERS DEFINE THE DIRECTION OF
WRITE AND THE OVERWRITE.

THE QUALIFIER 'ON BAD SEC

THE

HEAD

THE

OVERWRITE

MOTION

BEFORE

WRT=SK

TEST.
THE

INITIAL

FILES'" WILL BE REPORTED WITH THE WRITE

COMMAND
IF THE PROGRAM ABORTS
ON THE BAD SECTOR FILES.

THAT

COMMAND BECAUSE

THE

WRITE

FWD,

THESE

DATA

WOULD BE

3.1.2 SPECIFIC RESULT MISSAGES
THE

RESULT MFSSAGE

EXPECTED

RESULT

(LINE

GENERATED

DYNAMICALLY

THE OPERATION BEING TeSTED.

BASED

MONITORED DURING EXECUTION THE RESULT
MESSAGE
MAY
REPORT
CETECTED DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT
THE OPERATION.

THE GENERAL

ONLY

FORMAT FOR

RESULT: (VAR
WHERE

THE

VARIABLE

FIRST

ERROR

SEEN

LINE

(VAR 2)

(VAR

ONE

"HE

FOLLOWING:

CAN BE

CONT ERR
DRV ERR
NON~EXSTNT MEM
HDR

IS REPORTED

THE RESULT

CRC

DATA (Rf

(OPTIONAL

IN ALL

AN
ERROR
THE END OF
CASES.

QUALIFIER)

(CONTROLLER ERROR)
(DRIVE ERROR)
(NON-EXISTANT MEMORY)
(HEADER

CR(C

ERROR)
FOUND)

HDR NOT

FND

(HEADER NOT

HDR NOT

FND/HDR CR(/OP]

(AtL 3 BITS SET)
(DRIVE READY?

DATA LATE

DRV RDY
SELECTED HEAD
VOL (HK
COVER OPEN
BRUSH HME
WRT LCK
HDS OUT
DRV LEL ERR
DRV STATE

THE

SINCE OPERATIONS ARE

(VOLUME

(HLCK)

(BRUCH HOME)
(WRITE LOCK)
(HEADER 0UT)
(DRIVE SELECT ERROR)
(DRIVE STATE)

SEQ 0023

Page 24
SPIN TIMEOUT

WRT

(SPINDLE

GAT ERR

>EEK TIMEOQUT
CJR HEAD ERR
WRT DAT ERR
OP INCOMPLETE
ERR

THIS

HDR NOT

FND/DAT

2 WILL BE

CANBE

GATE

(HEADER

CRC

LATE

ERROR BIT 12 OF CS REGISTER)

A VALUE
TO

THAT DEFINES WHAT

INDICATE

A SET

THE

RESULT

THE DRIVE STATE, OR A NUMBER 0 TO

VARIABLE

THAT

QUALIFIER

ACTUALLY

IS.

(OCTAL)

CONDITIONS,

377

IDENTIFY A CYLINDER NUMBER.

OPTIONAL

A NUMBER

THE VALUE GIVEN IS VARIABLE 2 SHOULD BE.
IS

PROVIDED

WHEN

IS USEFUL

TO KNOW WHEN

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

THF

THIS QUALIFIER

BRUSH HME IS 1 SB O IN STATE 2
HEADS OUT IS O SB 1 IN STATE 3
DRV RD
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
DY
IS 1 SB QO IN SEEK w/0 MOTION
DRV
RDY
IS O SB 1 IN 10MS
DRV RDY
IS 0 SB 1 IN 500MS
DRV RDY
IS 0 SB 1 IN SSECONDS
THESE

RESULTS,

EXPLANATORY.

WHEN SEEN WITH

OTHER RESULT MESSAGES

;{ngg?UPT
COMPLETE
THE

NOi

THAT

ggAgiD

THE

(AN BE

OPERATION

PART OF

TO LATE'' WHICH INDICATES

THAT

THE EXPECTED AMOUNT OF

TIME.

LOOSING

READY BEFORE

COMPLETING THE READ HEADER

"FAIL
L

DRIVE

MESSAGE,

WwIL.

UNLOAD

AND

AFTER

THE OPERAT]ON BEING PERFORMED
THIS RESULT

STARTING A READ

IN 1MS.

THE

CAN BE

CAUSED BY

HEADER AND

THEREFORE

£ERROR

CLEARFD

THE

THE DRIVL

STATE OR STATUS,.

"WRITE ABORTED'' IS REPORTED WHEN THE PROGRAM ABORTS A WRITE
THE

BAD

SFCTOR

FILES.

CAUSES

HEADS DO NOT

"UNKN DRV STATE-NO RDY, NO ERR, HDS OUT'' ]S REPORTED WHEN THE
CANNOT DETERMINE

SELf

AN ERROR REPORT ARE:

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

ERROR

(HEANER NOT FOUND OR DATA LATE

O TO 7 TO INDICATE

THE

OR DATA CRC

(CYLINDER WHEN REPORTING A SEEK ERROR)

OR O

3 DEFINES

ERROR)

BIT 11 OF CS REGISTER)

cyL
VARIABLE

TIMEOUT SPD ERROR)

(WRITE

(SKTO _ERROR)
(CURRENT IN HEAD ERROR)
(WRITE DATA ERROR)
(OP1 ERROR)

HDOR/DAT

SEQ 0024

PROGRAM

TO PROTECT

M2
Page 25

"'COULD NOT RETRIEVE DRIVE

COMMAND
DOES NOT
REPORT AN ERROR.

STATUS''

(OMPLETE

REPORTED

SUCCESSFULLY WHEN THE

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

THE

STATUS

RESULT

GET

STATUS

IS REQUIRED

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
C(MND
(OMPLETE''
IS
REPORTED
WHEN
?3%%%3&;?LLY
COMPLETES
BUT
THE
C(ONTROLLER
HAS
NOT

THE
COMMAND
GENERATED
AN

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

CLEAR

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

"DRV ERR IS NOT CLEARED'' IS
COMMAND DOES NOT

REPORTED

CLEAR ALL DRIVE

WHEN

THE

ERRORS.

GET

STATUS

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

SET.

"BAD SEC FILE FMT ERR'' IS REPORTED
CORRESFOND

FORMAT

THE

SPECIFICS.)

EXPECTED

FORMAT.

THE

CONTENTS OF

(REFER

TO DEC

W/RESET

ERROR

BUT

“HE FILES DO

STANDARD

144 FOR

3.1.3 OTHER MESSAGES
OTHER

INFORMATION

IS REPORTED UNDER VARIOUS C(IRCUMSTANCES.

"BAD SEC FILES NOT STRD.

ALL

SEC

ASSUMED

GOOD.''

THIS

ARE:

MESSAGE

PRINTED
WHEN A PARTICULAR TEST REQUIRES THE BAD SECTOR FILES BUT THE
HAVE NOT BEEN STORED.
THIS SITUATION
WILL
OCCUR
[IF
THIS
TEST
]

STARTED
OUT OF THE NORMAL PROGRAM SEQUENCE OR
COULD NOT BE READ.

"ERROR LIMIT EXCEEDED-UNIT DROPPED'' IS REPORTED
WHEN

OCCURED

THAN

THE

SPECIFIED

IN ANY SINGLE PASS.

NUMBER

(Ff

THE BAD SECTOR FILE

(WITH THE UNIT NUMBER)

ERRORS

(DEFAULT

20)

HAVE

SECTION

WITH

3.2 ERROR HALTS
ERROR HALTS ARE SUPPORTED PER DESCRIBED
/FLAG:HOE.
THERE ARE NO OTHER HALTS.
4.0 PERIORMANCE

AND PROGRESS REPORTS

4.1

RFPORTS

PERFORMANCE

THE

SEQ 0025

Page 26
THIS PROGRAM WiLL NOT GIVE

ANY PERFORMANCE

SEQ 0026

REPORTS.

4.2 PROGRESS REPORTS
THIS PROGRAM wILL NOT GIVE

i(NFORMATION TABLES

THE RL11/RLV11
CONTROL OF THE

CONTROLLER HAS
SUBSYSTEM.

THE

BIT 15 - COMPOSITE ERROR

BIT

14 - DRIVE ERROR

BIT

FOLLOWING

FOUR(4)

REGISTERS

FOR
I

5.0 DEVICE

ANY PROGRESS REPORTS.

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

BIT
BIT
BIT

10 9/8
7 -

BIT

5 - EXTENDED BUS ADDRESS

BIT

6 =

DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC (WITH BIT 10 SET®
DATA CRC (WITH BIT 10 CLEAR/
OPERATIGN INCOMPLETE
- DRIVE SELECT (0-3)
(ONTROLLEK READY
INTERRUPT ENABLE

= NOP

(BIT

(PDP=11) MAINT

= WRITE

CHECK

17)

16)

(LSI-11)

GET DRIVE STATUS
- SEEK
READ HEADER
WRITE DATA
READ DATA

NOAWVNES WY 2O |

BIT 3-1 - FUNCTION CODE

BIT

(BIT

& - EXTENDED BUS ADDRESS

READ WITHOUT

HEADER

(OMPARE

O - DRIVE READY

RLBA - BUS ADDRESS REGISTER

BITS 15-1 BUS ADDRESS OF
BIT O SHOULL BE O

DATA TRANSFER

RLDA - DISK ADDRESS REGISTER

BIT 15 = MUSTM RE Jtmu(0)

(XXXXX2)

(XXXXX4)

Page 27
14=7 - CYLINDER ADDRESS FOR TRANSFER

6 = SURFACE FOR TRANSFER

T S-0 - SECTOR FOR TRANSFER

(0-47)

5 = MUST BE ZERO(0Q)

3
2
1

7 - DIFFERENCE TO NEW (YLINDER
= MUST BE ZERO(O)

IV, I |

LI I

Py
Prncg pumng P
P
[) Pumg P

— =~
—

@ ooockooRookookoo
kool

FOR SEEK FU..CTION

FOR GET

SURFACE
MUST BE ZERO
SEEK DIRECT.ONC
MUST BE ZERO
MUST BE ONE(1)

IN /7 0 - OUT

)

STATUS FUNC ION

BIT 15-4 - IGNORED SHOULD BE ZERO

BIT
BIT
BIT
BIT

3 - DRIVE RESET

2 = MUST BE ZERO
1

- MUST BE

ONE

0 - MUST BE ONE

RLMP - MULTIPURPOSE

FOR READ/WRITE

BIT

FUNCTION

15 = 0 - WORD COUNT(TWO'S

(OMPL IMENT)

FOR

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

FOR GET

STATUS FUNCTION

STATUS

WRITE

b bk
D
b
—

A NOOOO —=NWSH W

[N
Y
ey
Y
I
L
i

ety
—y
——t
—

TODOOOD® oO®

HAS DRIVE

(THIRD READ)

DATA ERROR

CURRENT HEAD ERROR(THE)

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

SEQ 0027

Page 28

S - COVER OPEN

= HEADS HOME

3 - BRUSHES HOME

2-0 -STATE BITS

0 - LOAD STATE

6.0 TEST SUMMARIES~
1

BASIC

LOAD

- SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK = TRA(CK COUNTING
SEEK = LINEAR MODE
UNLJAD HEADS
SPIN DOWN

NON NS AN

TEST

SEQ 0028

INTERFACE

TEST

(PART

IN DRIVE NUMBER.
DO GET STATUS WiTH RESET.
IF OPI] SETS:
DRIVE INTERFACE IS DEAD
DRIVE COMMAND SHIFT REGIS1ER NOT LOADING/SHI®TING
MARKER DETECTION FAILED
DRIVE IS 1.UT SELECTING OR AC LOwW IS SET
SYSTEM OR STATUS CLOCKS NOT OPERAT]IONAL
GET STATUS DETECTION FAILED.

INTERRUPT WITH NO OPl,

AND BRUSH HOME

SHOULD BE

CHECK STATUS RECEIVED.

SET.

BAD STATUS DATA LINE

NOT:

COVER

BAD COVER SWITCH OR LOGIC
DRIVE COMMAND SHIFT REGISTER
BAD BRUSH HOME SWITCH OR LOGIC
(HECA WRITE

LOCK

STATUS BIT

SET.

NOT:

BAD SWITCH OR WRITE LOCK LOGIC

DRIVE

COMMAND SHIFT

FOR 0.

CHECK

STATE

NOT:

(HECK

VOLUME CHECK RESET.
IF NCT:
BAD RESET DETECTION
BAD VOLUME CHECK LOGIC
DRIVE COMMAND SHIFT REGISTER

BAD STATE ROM
DRIVE COMMAND SHIFT REGISTER

(HECK DRIVE ERROR RESET.

[IF NOT:

BAD DRIVE ERROR INTERFACE
SOME CTHER ERROR STUCK ON.

REPCRT WHI(H ERROR,

OPEN

)

Page 29
NOTE:

THIS TEST
AND

TEST 2

BASIC

IS EXECUTED ONLY

IS SELECTED, MANUAL
IS RUN

INTERFACE

IN FIRST PASS ONLY.

TEST

REQUEST OPERATOR

IF PROGRAM OPERATION MODE 2

INTERVENTION TESTING IS REQUESTED,

(PART 2)

TO CLOSE

DO GET STATUS LOOP

COVER AND RESET WRITE

CHECKIQG

COVER

LOCK.

OPEN OR WRITE

RESETS.
WAIT
15
SECONDS FOR BOTH TO CHANGE.
IF
ASK OPERATOR TO TYPE (R IF PROCEDURE WAS FOLLOWED.

ONE

CHANGED BUT NOT

THE OTHER,

LOCK

NO CHANGE,

REPORT WHICH FAILURE:

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

NEITHER CHANGED,

NOTE :

TEST 3

REPORT BOTH FAILURES.

THIS "EST IS EXECUTED ONLY IF PROGRAM OPERAT!ON 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 CHELKING FOR STATE
SECONDS
FOR
(HANGE.
ACTION BY TYPING CR.

NO CHANGE,

TO GO

ASK OPERATOR

WAIT

TO CONF IRM

LOAD WAS PRESSED:
BAD STATE

ROM

BAD LOAD SWITCH OR LOGIC
(HECK

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 [N SPFED CONTROL
BAD DISK ON SPEED LOGIC
BAD STATF ROM

AND (HECK ]F SPleP TIMEOUT ERROR SET. [F NOT:
BAD STATE ROM
BAD TIMEOUT DETECTION LOGIC
HE(K

THAT

STATE

GOES

TO 2.

NCT:

NOT:

SEQ 0029

Page 30

BAD STATE ROM
(HECK

IS 2.

THATM BRUSH HOME

IF NOT:

IS RESET

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 A( SERVO
BAD SWITCH OR LAT(H
CHECK

THAT

STATE HAS CHANGED

BAD STATE
AFTER STATE

IS 3,

(HECK HEADS OUT

BAD VELOCITY ROM

(HECK VOLUME

CHECK

DRIVE

IS SET.

NOT:

ROM

IS SET.

NOT:

CHECK LOGIC

ERROR

SET.

BAD DRIVE ERROR LOGIC OR

WAIT

NOT:

SERVO

BAD VOILUME
(HECK

ROM

BAD SWITCH
BAD SEEK CONTROL
BAD DC

TO 3.

300 MS FOR STATE

TO (HANGE

NOT:

INTERFACE

TO &.

IT DOtSN'"

C(HANGE:

STATE ROM BAD
SEEK ROM
VEL ROM
GUARD BAND DETECTION

wAIT

5 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

F NOT:

DETECTION FATLURE

TIMEOUT H NOT SETTING OR COUNT LOGIC BAD

THIS TEST IS EXECUTED ONLY IF. PROGRAM OPERATION MODE 2

IS SELECTFD, MANUAL INTERVENT-ION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

SEQ 0030

Page 31
TEST &

HEAD UNLOADING TEST

CHECK DRIVE IS READY.
DRIVE READY.
REQUEST

OPERATOR

LOOP ON GET
:
CHANGE

NOT REPORT AND ASK OPERATOR TO

MAKE

TO UNLOAD DRIVE.

STATUS WAITING FOR STATE

TO (HANGE

TO STATE

BAD STATE RQOM
BAD SWITCH

WAIT

300 MS FOR STATE

TQ (HANGE

TO 7.

NO CHANGE:

BAD STATE ROM
AFTER

STATE

:
[F NO CHANGE

WAIT

30 SEC

FOR

STATE

TO (“ANGE

WAIT

UNTIL

NO BRAKING
BAD AC SERVO

SERKEST OPERATOR

TO LOAD

DRI.LF.

DRIVE

BECOMES

NOTE :

TEST

DRIVE

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

SELECT

TEST

INSTRUCT THE OPERATOR TO REMOVE DRIVE
DRIVES
EXCEPT THE DRIVE UNDER TEST.

ADDRESS PLUGS
FROM
ALL
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 OPI SETS FOR ALL OTHER ADDRESSES.

DO CET STATUS TO ADD/ ESS OF

SEQUENTJAL

THAT
NO
ERRORS
ARE
REPORTED.
DO
ADDRRESSES AND CHECK THAT OP! SETS.

REPEAT FOR ALL
AF TER 3),

NCTE:

DRIvD

THIS TEST

ADDRESSES

(0,1,2,3

IS EXECUTED ONLY

IS SELE(TED DRIVE SELECT

RUN[N FRST

PASS

ONLY.

GET

ADDRESS.

STATUS

TO ALL

CI'ECK
OTHER

SEQUENTIA,

PROGRAM OPERATION TMODE

TESTING

IS REQUESTED,

AND

SEQ 0037

Page 32
TEST 6

DRIVE

SELECT ERROR TEST

REQUEST OPERATOR
(MUST

OPERATOR TYPE
PROCEDURE

INSERT

IDENTICAL

IDENTICAL ADDRESS PLUGS
NUMBER

IN TWO

SPECIFIED EARLIER).

CARRIAGE RETURN WHEN READY.

WILL BE

TO GET

STATUS AND

(HECK

FOR

DRIVE

DRIVES

REQUEST

SELECT

ERROR.
THEN
RESET
THAT
DRIVE AND VERIFY THAT DRIVE SELECT
ERROR IS NOT REPORTED AGAIN.
WAIT 1 SECOND, THEN CHANGE DRIVE
SELECT

DIFFERENT

NUMBER AND BACK AGAIN.

ERROR SHOULD SET AGAIN.

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

NOTE :

DRIVES.

IN THAT DRIVE.

IS SELECTED,

IN FIRST

DRIve

SELECT

TESTING IS REQUESTED,

PASS ONLY.

AND

STANDARD TESTS
I+

THE PROGRAM OPERATION MODE

FIRST

TEST

POWERED UP,

1esT 7

SELECT ERROR DETECTION IS BAD

BOTH

SELECT

THIS TEST IS EXEZJTED ONLY [F PROGRAM OPERATION MODE /¢
RUN

4.2

DRIVE

EXECUTED.

HEADS LOADED,

INITIAL

STATE

TEST

DO GET

STATUS,

WAIT

FOR

THE

IS SELECTED,

DRIVE(S)

AND WRITE

THIS WwiLlL

LOCK RESET,

THE

TESTED MUST BE

INTERRUPT,

IF OPl OCCURS:
DRIVE

INTERFACE

[5 DEAD

DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
DRIVE 1S NOT SELECTING OR AC LOW IS SET
SYSTEM OR STATUS CLOCKS NOT OPERATIONAL
GET STATUS DETECTION FAILED.

IF INTERRUPT OCCURS W]ITHOUTM OPl,
&821%:&55
HEADS
ARt
LOADED
K

(HECK DRIVE READY,
AND
ARE
TRACKING

READY SET
(POSITION

If MANUAL
SELECTED.

INTERVENTION TESTS WERE RUN,
IF NOT:

DRIVE

"HETK

THAT

HEAD

CYCLE UP DID NOT SELECT WEAD O

.F DRIVE READY S SET, C(HECK STATUS MESSAGE
JUT AND BRUSH HOME MUST SE SET.
IF NOT:

RECEIVED.,

HEADS

SEQ 0032

.
ORIVE

COMMAND SHIF1

HEADS OUT OR BRUSH HOME

SWITCH OR ASSOCIATED

CIRCUITRY BAD
STATUS DATA BAD

[F MANUAL

PASS

(HECK

H 3
Page 33

[NTERVENTION TESTS WERE RUN AND THIS
THAT

VOLUME

CHECK

AND

DRIVE

ERROR ARE

THE

FI[RST

SET.

CHECK ALL ERROR BITS ARE (.
CHECKR

STATE

DRIVE
TEST 8

INITIAL RESET
DO GET

NOT:

COMMAND SHIFT REGISTFR BAD

STATE

STATUS HEAD

TgST
SELECT

WAIT

FOR

INTERRUPT,

DO GET STATUS WITH RESET,
WAIT
FOR
NTERRUPT.,
BOTM
ERROR AND VOLUME (HECK SHOULD NOW BE RESET.
IF NOT:
RESET DETECTION,

DRIVE

RESET

ERROR,

STiLL

OR VOLUME

COMMAND SHIFT REGISTER BAD

HEAD SELECTED BIT

SHOULD

ZERO.

[IF

DRIVE

CHECK FLCP BAD

NOT:

DRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECT SHIFT REG;STER NOT LOADINC
TEST

DRIVE READY

TEST

DO
SEEK
WITH
O
DIFFERENCE,
iINTERRUPT.
GET STATUS.
(HECK

SIGN 0,
HEAD
0.,
STATE IS S.
If NOT:

WAIT

FOR

DIFFERENCE COUNTER PI(KING UP B]TS
COUNTER CIRCUITRY IS NOT INDICATING C DIFFERENCE
(HECK DRIVE

READY

ENABLE

IS RESET.

NOT:

TIMEOUT OR READY _AT(CH/ONE

WAIT APPRCX 8 MS FOR READY
DOESN'T SET AT ALL:

TO SET,

SHOT 8AD

TAKES

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

(HECK DRIVE ERROR DID NOT

REPORTM WHI"H ERROR.

VERIFY HEAD SELECT

SET.

IS ZERC.

SET,

DO GFT

LONGER

DETECTJON)

STATLS

AND

SEQ 0033

Page 34
TEST 10 SEEK SIGN SwITCH TEST

SEEK

INTERRUPT,

WITH

DIFFERENCE

SIGN

GET STATUS AND CHECK STATE

HEAD

IS 5.

IF NOT:

WAIT

FOR

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

IS NOT READY

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

HEADS ARE MOVING (INTEGRATOR OR NULL
READY ONE SHOT FAILED

TAKES

LONGER

DETECTION)

COUNT ROM

VERIFY DRIVE ERROR DID NCT

VERIFY HEAD SELECT

SET

IS ZERO.

DO SEEK WITH O DIFFERFNCE,
ABCVE TESTS.
TEST

HEAD AL IGNMENT
THIS

204,

TEST

HEAD

1S EXECUTED WHEN

AL IGNMENT

PASS ONLY.

IS BYPASSED

THIS

THE

STATUS

SELECTS

WITH

LOCK

RESET.

THE

PROGRAM

THE

SUPPORT

IN THE

<. WRITE

SIGN,

HEAD

REPEAT

STARTED

ADDRESS

SUPPORT ROUT INE

OTHER ADDRESS AND
TEST

OPPOSITE

PROGRAM

STARTED

ANY

GE’

SECOND AND SUBSEQUENT PASSES.

DRIVE

THE

IS REQUESTED, AND IN THE FIRST

IS RESET HEAD G

UNDER

TEST

WRITE LOCK BIT
IS

AND

_OOPS

IS MONITORED AND WHEN

SELECTED AND WHEN WRITE

LOCK

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

TEST
ON
THE
DRIVE UNDER TEST.
BEFORE TERMINATING,
witl CHECK THAT WRITE LOCK IS RESET.
If
NOT,
THE
WILL BE REQUESTED TO RESET WRITE LOCK.
TEST

TH]S

THE TES?
OPERATOR

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 IS PI(KING P BITS
ASSOCIATED CIRCUITRY IS BAD

FfOR

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

TAKES

LONGER

DETECTION)

TRACK WITH THIS HEAD

VERIFY DRIVE ERROF DID NOT SET.
DO GET STATUS,

(HECK HEAD SELECT

IS CORRECT.

IF NOT:

HEAD SELECT REGISTER BAD

DRIVE

COMMAND SHIFT REGISTFR BAD

?ES?EEK WITH C DIFFERENCE,
TEST

13 READ HEADER TEST

(PART

fFOR DRIVE

DO READ HEADER,
(HECK

0O,

O, HEAD O,

READY.

WAIT

HEAD

REPEAT

ABOVF

DO SEEK WITH DIFFERENCE
AND WAIT

SIGN

FOR

SIGN O.

WAIT FOR

INTERRUPT

INTERRUPT,

HEADER CRC ERROR SET.

SET:

READ/WRITE BOARD BAD
READ DATA L INE BAD

E?Eagtlf

BIT 6 OF

WORD

HEADS ARF SwiTCHED
HEAD SELETT LOCIC

SAME

AS HEAD

SELECT BIT

[N STATUS,

(CABLE)

IF MANUAL INTERV.NTION TESTS WERE RUN AND HEAD AL JGNMENT TESTS
WERE
NOT
RUN,
C(HECK
THAT HEADER WORD O INDICATES HFADS ARE
POSITIONED OVER (YLINDER (0.
STORE HEADER WORD 1.
REPEAT

TESTS USING HEAD

(HECK THAT CYLINDER PORTION OF STORED WEADER
WORD
SAME AS HEADER WORD 1 OF THIS WEADER.
1TM NOT:
HEADS ARE

TEST

14 READ HEADER

TEST

MISAL IGNED

(PART 2

SEQ 0035

Page 36

SEEK

INTERRUPT,

WwITh

DIFFERENCE

WAIT FOR READY.

ggABO CONSECUTIVE READ HEADER,

SIGN

HEAD

WAIT

FOR

STORE 3 HEADER WORDS AFTER EA(CH

CHECK ALL HEADERS FOR SEQUENCE AND LONTENT

BIT

(WORD 2

15 WORD 1 AND 3 IS O, »S BIT WORD1 IS Q).

ALL

[F NOT

ZERO,

BAD READ/WRITE BOARD
BAD PAC(K

DO SEEK WITH DIFFERENCE
FOR HEAD

SIGN O, WEAD

°.,

REPEAT ABOVE

TEST

SEQ 0036

MAIN.
MACY1T1 30A(1052)
6NOV°78
CZRLCB.PIN
23-0(T1-78 14:3

2399
2437
2466
2624
2705
2754
2847
<IN

2934
2992
3064
3123
3194
3241
3402

«TEST

*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST

*TEST
«TEST

BASIC
BASIC

2
3

TABLE

INTERFACE
INTERFACE

CONTENTS

(PART 1)
(PART 2)

HEAD LOADING
HEAD UNLOAD ING
DRIVE SELECT
DRIVE SELECT TEST

S
¢
4
8
9

16:20

(

*TEST 12
«TEST 13
*TEST 14
DIAGNO ST IC

INITIAL STATE
INITIAL RESET STATE
DRIVE READY
SEEK SIGN SWITCH

HEAD ALIGNMENT

SUPPORT

HEAD SWITCHING
READ HEADER (PART 1)
READ HEADER (PAR] 2°
SLPERVISOR == LOW CORE SET

SEQ 0037

22-NOV-78

.NLIST
.ENA3L

002000
002000

.=2000

CND,MD ,ME
ABS AMA

POINTER BGNSW,BG
T ,BGNDU
NSF

BGNMOD
HEADER

MDHEDR
CZRLC.B;?71.1.1.RLO1
LASCII
LASCII 72/
LASCII /R/
LASCIL /L/
CASCIT /C/
BYTE
0

BYTE
BYTE

O
O

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

70/
0
1
L$HARD
LS$SOFT
L $HW
L $SW
LSLAST
0
O
0O
O
L$DISPAT(H
0
0
0
(CSREVISION
CSEDIT

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

002102
002104
002106

PAGE 1

Sv(C

000001
000001
000001
000000
000000

CASCID

(4)
(4)
(4)

16:20

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

/B/

$DVTYP

DRST

30A(1052)

O ==r Orroroogo—s—
e
S
AN
()
<o
<.
P o
c

D
d
D
)
D
—_—

B NN =2OO000NC NHANN

ASSEMBLY ROUTI NES
MACY11
CZRL(CB.PTY
25-0CT-78 13:12

INIT
LEAN

SEQ 0"38

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

21
22

002110
002110

002110
00211

000000
000001

(3)
(gz

002114

046122
002122

002114

22-NOV-78

ENDMOD

(5)
(2)

30A(1052)

030460

16:20

DEVREG
.WORD
BLKW

JASCIZ
.EVEN

/RLO1/

DEVTYP

000

PAGE

1-1

<RLO1>

3
SEQ 0039

25
26
27
28
29
20
3
32
gz

:COPYRIGHT (C) 1977, 1978
sTHIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY
;ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
;THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS
;SOFTWARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED
;OR OTHERWISE MADE AVAILABLE TO ANY QOTHER PERSON EXCEPT
;FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE
LICENSE TERMS. TITLE TO OWNERSHIP OF THE SOF TWARE SHALL
AI ALL TIMES REMAIN IN DEC.

25
3%
%g

,THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO CHANGE
;WITHOUT NOTICE AND SHALL NOT BE CONSTRUED AS A COMMITMENT
:BY DIGITAL EQUIPMENT CORPORATION.

;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELJIABILITY

;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

002122

BGNMOD

44
45
46

002122
000600
000002
000004
000006

FQUALS
N
CSR
VECT
PRIOR
DRSR

000000

N
MISW]

000012

DCLIM

000010

52
5%
54
55
56
57
0
61
62

.DRIVE SELECT BIT

cCONTROLLER TYPE

.
ALLCYL
ALLSEC

BIT ASSIGNMENT FOR SOF TWARE P-TABLE SWITCHES
BIT00
JUSE ALL CYLINDERS
=BI1]]
cUSE ALL SECTORS

000010

HDALIGN =B]T03

65
66
67
68
38

000020
010000
020000
049000
100000

000102

(KDATA

;VECTOR ADDRESS

;PRIORITY

000001
000002

000004

-4

LOLIM
HILIM
HEAD
ERLIM

63
64

OFFSETS FOR HARDWARE P-TABLE
-0
.BUS ADDRESS

OFFSET FOR SOF TWARE P-TABLE
=0
. SOF TWARE PARAMETERS SWITCHES
=2
;CYLINDER LOWER LIMIT
=4
SCYLINDER HIGH LIMIT
=6
JSELECTED HEAD FOR RUNNING TESTS
=10 ,
JERROR LIMIT

000002
000004
000006
000010

CNT

GLBEQAT

DRSELT

-1’

:DATA COMPARE ERROR LIMIT

=BIT0Q?

JEXECUTE DRIVE SELECT TEST

AUTOSZ
HEADLM
HICYL
LOCYL
MITEST

=RBI1T04
=B]T12
-BIT13
=BIT14
=R]T15

;AUTO SIZE FOR DRIVE=DROP IF NO RESPONSE
JHEAD LIMIT SPECIFIED FLAG
=
JHI LIMIT SPECIFIED FLAG
JLO LIMIT SPECIFIED
JEXECUTE MANUAL INTERVENTION TESTS

;

SUBSYSTEM TUNCTIONS

-102

JEXECUTE HEAD ALIGNMENT TEST

JWRITE (HECK

ASSEMBLY RUUTINES

CZRLCB.PT1

MACY11

25-0CT1-78 13:12

000104

74
75

000106
000110

7
78

00114
000116

30A(1052)

22-NOv-78

GTSTAT

16:20

PAGE

=104

1-2

4
SEQ 0040

;GET STATUS

000100

SEEK
RDHEAC
WIDATA
RDDATA
RDNOHR
NOOP

81
82
83
84
85
86
87
88

007777
000002
000001
000004
000070
000020
000040 ’

:
COMPOP
HDRCMP
DATACMP
cyLup
ULOAD
INOUTS
OUTINS

92
93
94
95
9%
97
98
99

001000
002000
004000
010000
020000
040000
100600
003760

REVSKO
FWDSKO
BADADD
SEEKOP
RORWOP
RELDWT
HDR4O
MQUALS

=BIT09
cREV SEEK SEQ (OVERWRITE)
=BIT10
JFWD SEEK SEQ (OVERWRITE)
=BIT11
;BAD DISK ADDRESS
=BIT1?
s SEEK OPERATION
=B]T13
;READ OR WRITE OPERATION
=BIT14
JRELOAD WAIT
=BIT15
;40 HEADER OPERATION
=OUTINS!INOUTS'FOLWRT.REVSKS!FWDSKS'REVSKO.FWDSKO

102
103
104
105
}8?

000001
000002
000004
000010

:
TOSLOW
NOIRPT
CONHNG
NOCLR

ERROR FLAGS FROM SUBROUTINES
=BIT00
;OPERATION TOOK TO LONG
=BITO1
sNO INTERRUPT FROM OPERATION
=BJT0?
s CONTROLLER HUNG
=RIT02
;BAD CONTROLLER CLEAR

000000
000002
000004
000006

RLCS
RLBA

-0
2

00000C

;

RLCSR

89
90
9N

}8?

108
109
110
;};

113
114

115
16
117
118
119

120
121
122
123

124

25
126

}g;

000112

000100
000200
000400

FOLWRT
REVSKS
FWDSKS

RLDA
RLMP

100000
040000
020000
010000
010000

004000
004000
002000
001400

002200

000100
000060

000001

ANYERR
DRVERR
NXMERR
DLTERR
HNFERR

‘

=106
=110

=100

s SEEK
;READ HEADER
JWRITE DATA
JREAD DATA
sREAD DATA, IGNORE HEADERS
;NO OPERATION

OPERATION FLAGS
=7777
=B]T01
=8BIT00
=BITO2
=BIT03
=B]T04
=BITO5

;COMPOSITE OPERATION FLAGS
JHEADER (OMPARE OPERATION
;DATA COMPARE OPERATION
;CVCLE UP OPERATION
;JUNLOAD OPERATION
s IN=OUT SEEK OPERATION
;OUT=IN SEEK OPERATION

=112
=114
=116

=BIT06
=BIT107
=BJT08

FOLLOWING WRITE OPERATION
JREV SEEK SEQ (ADJ INTERFERENCE)
;FWD SEEK SEQ (ADJ INTERFERENCE)

;MESSAGE QUALIFIER BITS

=4
=6

-100000
=40000
=20000
=10000
=10000

;CONTROL AND STATUS REGISTER
;BUS ADDRESS REGISTEK
;DISK ADDRESS REGISTER
;MULTI-PURPOSE REGISTER
;CONTROL AND STATUS REGISTER

SANY ERROR BIT
:DRIVE ERROR BIT
JNON-EXISTANT MEMORY ERROR
;DATA LATE ERROR
;HEADER NOT FOUND ERROR

DCKERR
HCRCERR
OPIERR
DSMSK

-4000
=4000
=2000
=1400

;DATA CHECK ERROR
JHEADER CHECK ERROR
;OPFRATION INCOMPLETE ERROR
;DRIVE SELECT MASK

INTEBL
BAMSK

=100
=60

s INTERRUPT ENABLE MASK
;BUS ADDRESS UPPER MASK

CRDYMSK =200

DRDYMSK

;CONTROLLER READY MASK

JDRIVE READY MASK

ASSEMBLY ROUTINES
MACY11
CZRLCB.PT
25-0CT1-78 13:12

—*O»ooow&mgwm—a o

d D ed
D
e
i
D
) red
D
—

B8N
AN NN ANNNNW W

129

000077
000100
077600
000001
000004
000020
077600

000003
000010

142

ele RNTe NV, PV [ SN &)

D
)
b
d
D
) wd
d
—d

22-NOvV-78

HDSEL

DIRMSK

JHEAD SELECT MASK

sCYLINDER ADDRESS MASK

=1
=4

;MUST BE SET, BIT O
:DIRECTION BIT

-77600

*CYLINDER DIFFERENCE MASK

JHEAD

0000~ NINNSN N
— OV
NN

—

e — O
S
G

173

002152

005235

SELECT BIT

:
REGISTER BIT DEFINITIONS - DISK ADDRESS FOR GET STATUS
GETSTAT =3
;GET STATUS SETUP
DRSET

-10

;DRIVE RESET MASK

;

;
STAMSK
BHSTAT

COSTAT
HSSI1AT
DSESTAT
VCSTAT

=40
=100
-400
=1000

7777
=160000

;WORD COUNT MASK
;WORD COUNT RANGE MASK

-077600
=77
=100

;CYLINDER MASK
;SECTOR MASK
JHEAD SELECT MASK

=20

*HEADS OUT STATUS

;COVER OPEN STATUS
JHEAD SELECT STATUS
;DRIVE SELECT ERROR STATUS
;VOLUME CHECK STATUS
;WRITE GATE ERROR STATUS
;SPIN ERROR STATUS

STOSTAT =10000

000000
005002
005032
004744

SEQ 0041

=1C0

WGESTAT =2000
SPDSTAT =4000

0021¢¢
002124
002126
002130

;

MBSETO
DIRBIT

HOSTAT

002122
002122

1-3

=77600

HDCYL
HDSEC
HDHSEL

100000

CAMSK

HSMSK

077600
000077

000007

PAGE

WCMSK
WCRNG

000100

16:20

:
SAMSK

017777 °
160000

VN NNV

30A(1052)

;SEEK TIMEOUT ERROR STATUS

WLSTAT
=20000
HCESTAT =40000
WDESTAT
100000

;WRITE LOCK STATUS
JHEAD CURRENT ERROR STATUS
;WRITE DATA ERROR STATUS

ENDMOD
BGNMOD

GLBDAT

TABLE OF OPERATION MESSAGES

OPMSGS:

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

O
MWRCHK
MGTSTA
MSEEK
MREADH
MWRITE
MREAD
MWRSET
MDAT(CP
MHDRCP
MCYLUP
MCLOAD
MINOUT

JFILLER
*MESSAGE
H
:
;
;
;
;
;
;
;
;
;

FOR WRITE CHECK
GET STATUS
SEEK
READ HEADER
WRITE DATA
READ DATA
WITH RESET
WITH DATA COMPARE
WITH HEADER COMPARE
LOAD HEADS
UNLOAD HEADS
IN-OUT SEQ

185

OO§ BBLRIRES
28 38 &

005214
005260
005304
005337

002174
002176
002200
002202
002204
002206

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

005426

005372

005462
005113

.WORD
RESTBL:

[} o

011142

002234
002236
002240
002242
002244

PATTBL:

002256

004466
004470
004530
004570
004630
004636
004676
004700
004740
004742

002260
002262

000000
000000

SUBSTK

002300
002302

000000

002304
002306
002310
002312

000002
000006
000011
000014

;
;
.
.
;

OUT-IN SEQ
FOLLOWING WRITE
REV SEEK
FWD SEEK
REV SEEK

FWD SEEK
BAD DISK ADD FOR WRITE
40 HEADER OPERATION

sNON-EXISTANT MEMORY ERROR
cHEADER NOT FOUND-DATA LATE
JHEADER OR DATA ERROR
;OPERATION INCOMPLETE
sNO DRIVE STATUS AVAILABLE

.WORD
.WORD

MWDERR
MHCERR

;WRITE DATA ERROR
JHEAD CURRENT ERROR

.WORD
.WORD
.WORD
.WORD
.WORD

MSTERR
MSPERR
MWGERR
O
MDSERR

;SEEK TIMECUT ERROR
;SPINDLE ERROR
JWRITE GATE ERROR

0
O

;DRIVE SELECT ERROR

PATTERN TABLE
.WORD

PAT1

.WORD
.WORD

PAT?
PAT3

.WORD

PATS

.WORD

.WORD
.WORD
.WORD
.WORD

T125TBL:

M4OHDR

SEQ 0042

MNEERR
MFLERR
MHDERR
MOPERR
MNDRST

.WORD

4
D
1-4

MOUTIN
MFOLWRT
MREVSK
MFWDSK
MRESKO
MFWSKO
MBADAD

PAT4

PAT%

PAT7
PATS8
PAT9
PAT10

SUBROUTINE
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
-WORD
.WORD
.WORD
OOCOOCOOOOOO

00 ~NON
N SN

[

AN 1S TN LN TN AN 100

002232

PAGE

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

211

16:20

TABLE OF RESULT NAME MESSAGE ADDRESSES
.WORD
MCERR
s CONTROLLER ERROR
MDRERR
.WORD
;DRIVE ERROR

.WORD

—

n |}

b e

cmd e

b
—

—J—J—D.—J-—l—-‘o
—_

203

N —

—

d cand

187

002154
002156
002160
002162
002164
002166
002170
002172

O§OOOOOOO

CZRLCB.PT

22-NOvV-78

30A(1052)

.wORD
.WORD
. WORD
.WORD

— O

1
MACY
25-0CT-7 8 13:12

ASSEMBLY ROUTINES

CAL.ING STACK

;STACK IS 12 WORDS LONG

JTABLE OF DIFFERENCES TO BE USED
JIN TEST 25

ASSEMBLY ROUTINES
MACY] 1
CZRUCB.PT1
25-0CT~-78 13:12

261
262
2643
264
245
246
247

002314
002316
002320
002322
002324
0023%6
002330

002332

000010

253
254
255
256
257
258
256
260
261
262
263
264
265
266
267
268
26C

002352
002353
002354
002355
002356
002357
002360
002361
002362
002363
002364
002365
002366
002367
002370
002371
002372

002
007
016
024
033
041
046
055
064
072
101
110
115
124
133
147
146

271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
29

002374
002375
002376
002377
002400
002401
002402
002403
002404
002405
002406
002407
002410
002411
002412
002413
002414
0024.5
002416
002417
002420
002421
002422
0024c3

16"
170
177
206
213
222
23
235
244
252
261
270
275
303
3]
317
326
33,
343
352
361
367
375
000

002424

000000

002373

22-NOV-78

000021
000026
000033
000042
000051
000200
000377

249
250
251

270

30A(1052)

.WORD
.WORD
_WORD
JWORD
WoRD
WORD
WORD

16:20

PAGE

1-5

&
SEQ 0043

17.
22.
27.
34.
&1,
128.
255,

;
:
3318L:

TABLE TO BE USED IN TEST 33 AND 34 TO BUILD AND STORE THE
CYLINDERS TO BE USED IN THE TEST.
.BLKW
1

CYITBL:

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

2
7,
14,
20.
27.
33.
38,
4S.
52.
58,
65.
72.
77.
84.
91.
97,
102.

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
RYTE
BYTE

113,
120.
127.
134.
139,
146.
152.
157.
164,
170,
177.
184.
189.
195.
202.
207.
214,
220.
207
23.
241.
247,
253,
0

.WORD

154

.BYTE

.
SSINDX:

;TABLE OF DEFAULT CYLINDERS

108.

; SUBROUTINE

STACK INDEX POINTER

000000
00G000

30A(1052)

22-NOV-78

OPF LAG:
:
DONE

:
HADONE

ERHEAD:
MORECE:
ERRSWI:
BSFLAG:
WRTSWI:

;OPERATION FLAGS
;OPERATION COMPLETE FLAG

JHEAD ALIGNMENT DONE FLAG
;ADDRESS OF ERROR HEADER

JMORE THAN 1 COMPARE ERROR
JERROR RETURN SWITCH
;BAD SECTOR FLAGS
JWRITE SWITCH

JRL11

000060
000000
000000
00000

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

s CONTROLLER REGISTER STORAGE
;BEFORE OPERATION

.WORD
. WORD
.WORD

JHEADER WORD STORAGE

.WORD

sDRIVE STATE STORAGE

.WORD

;PARAM BLOCK

RLDRV:

000000
000000
000000

325

002502

000000

T.STAT:

327
328
329
330
331

002504
002506
002510
002512
002514

000000
000009
000000
000000
000000

RE SPARM:

333
334
335

002516
002520
002522

000000
000000
000000
000000
000000

CRVCNT:
DIFAUG:
oLDCyYL:
NEWCYL:
CURCYL:
DESDIF:
DESSGN:
DESHD:
DESSEC:
TEMPO:
TEMPI:
TEMP?:
TEMP3:
TEMPS:

——

002476
002500

TIMER

STORAGE

-WORD
.WORD
.WORD
.WORD

TEMPS:

000000

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

jleolelolelelslololololololalololololeo B eololele)

.WORD
.WORD
.WORD

OO0

STORAGE

OOOOOOLD

;TABLE

RLBAS:
RLVEC:

322
323

002560

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

SEQ 0044

000000
000000
000000

.CS:
.BA:
.DA:
MP:
.CS:
.BA:
DA:
MP:
HDWRD1:
HDWRD?2:
HDWRD3:

350

OPERATIONAL FLAGS

F
o4
1-6

OO0

TBLSTR:

PAGE

000000

16:20

OOOOOOOOO

ASSEMBLY ROUTINES
Y1
MACY11
CZRLCB.PT1
25-0(7~-78 13: 12

TEMP6:
TEMP7:
TEMFPZ:

BASE ADDPESS

JRL11 VECTOR ADDRESS

;DRIVE NUMBER UNDER TEST

;CONTROLLER REGISTER STORAGE
;

AFTER CPERATION

FOR

REASON REPORT

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

JNEW CYLINDER

;CURRENT CYL INDER
sDESIRED DIFFERENCE
JDESIRED SIGN
;DESIRED HEAD
;DESIRED SECTOR
; TEMPORARY STORAGE
. TEMPORARY STARAGE
. TEMPORARY STORAGE

. TEMPORARY STORAGE
. TEMPORARY STORAGE

. TEMPORARY STORAGE
; TEMPORARY STORAGE

. TEMPORARY STORAGE

; TEMPORARY STORAGF

ASSEMBLY ROUTINCS

CZRLCB.PT1

MAC Y1
25-0CT-78 13: 12

000000
000000
000000
000009
000000
000000
000000
000000

30A(1052)

22-NOv-78
OF IN:
OF INU:
OFMID:
OFMIDU:
OFOUT:
OFOUTU:
ORIN:
ORINU:

ORMID:
ORMIDU:
OROUT:
OROUTU:

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

16:20

PAGE

1-7

0
0
0
0
0
O
0
0

HF IN:

.WORD
.WORD
.WORD
.WORD
.WORD

HFOUT :

HFOUTU:

ORD

.wORD

HRIN:
HRINU:
HROUT:
HROUTU:
AFMID:
AFMIDU:

000000

ARMID:
ARMIDU:

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

002652

000226
001046
001750
000372
000G04

EXOCYL:
EXHCYL:
EXACYL:
EXRCOT:
ERRVEC:

.WORD
.WORD
.WORD
.WORD
.WORD

002654

000000

PASCNT:

MISCELLANEOQUS COUNTERS

COUNT:

,WORD

HFINU:

.WORD

.WORD
.WORD

.WORD

ERRPOINT:
ERRCNT:

PASNUM:
PSETNM:

000000

LOCERR:
NOERCT:
TRPFLG:
PWRFLG:

_WORD
.WORD

.BYTE
.BYTE
.WORD

.WORL

.ONE
N
;ONE
;
;ONE
;
;ONE
:

CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPEP

F ORWARD

INNER

F ORWARD MIDDLE
F ORWARD OUTER

REVERSE

INNER

0
0
O
0
0

;ONE CYLINDER REVERSE MIDDLE
.
UPPER
JONE CYLINDER REVERSE OUTER
.
UPPER
;128 CYLINDER F ORWARD INNER

;128 CYLINDER F ORWARD OUTER

;

UPPER

;

UPPER

J
O
0
9
0
0

;128 CYLINDER REVERSE INNER
:
UPPER
;128 CYLINDER REVERSE OUTER
;
UPPER
;256 CYLINDER F ORWARD
;
UPPER
;256 CYLINDER REVERSE
M
JPPER

15C.
550,
1000.
250.
4

JEXPECTED TIME ONE CYLINDER

O
0

.WCRD 0

.BLKW

SEQ 0045

64.

0
0

0
0
0
O

JEXPECTED TIME 128 CYLINDER
SEXPECTED TIME 256 CYLINDER
JEXPECTED 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
;PASS NUMBER FOR PROGRAM
;COUNTER FOR PARAMETER SET NUMBER IN USE
sLOCAL ERROR COUNTER

JINHIBIT ERROR COUNTING FLAG

sHARDWARE

TRAP OCCURANCE

;POWER FAILURE OCCURANCE

003074

000000

.
BAD SECTOR TABLES AND POINTERS
BSF VAL : .WORD
0
;BAD SECTORS FILES VALID FLAG

003076
003272

000076
00007¢

SBSFIL:
FRSFIL:

.BLKW
.BLKW

76
76

sFACTORY BAD SECTOR FILE

003466
004066

000200
000200

IBUFF:
OBUFF:

_.BLKW
.BLKW

200
200

JINPUT BUFFER
:OUTPUT BUFFER

004466
004470
004472
04474

000000

PAT1:

. WORD

JPATTERN 1

1727772
177777

177777

PAT?2:

. WORD
.WORD
WORD

177772
177777
177777

; SOFTWARE BAD SECTOR FILE

(ALL 2EROS:

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

052525
177777
172777

052525
052525
177777
052525
177252
177252
172765
172765

PATS:

1772777
177777
177777

000000
000000

177777
177777

000000
177777
000000

177777
000000
177777

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

000003
000000
200000

177777
177777
177777

000000
000000

177777
1777277

000000

177777
000000
177777

000000

177777

OO
O == OO 2D o le]
PR WIRD IR RO WYV
NO RO AN N
IR WROANN)
AN RO A A LNWANDrow
PO
LARD NN
AN PO A LN NN

025252
052525

NN AR
PN NN

004576

~No

—r

O -

..4%‘\_‘

=N
O
O -=rowWwm

PATE:

WA
WY

—

PATS

SPOSO
) =MWV

v &W

004626
004630

PAGE

H
&4
1-8

SEQ 0046

052525
052525

000003
000000
000000

16:20

QO
NN
NN
ONAL

RS 88K

22-NOV-78

e T
WWCANAND N SO =2
=P
=

SReE RRR SERRSKRR

VULV,
I, LV,(V. 1V, ]

[0 3¥al% 9,1V, F o H80
O
NOO Hro

414

615
4616
617
418
419

004476
004500

RER Pae ERRBR3 ReRgR 2gg 82
RerEReRs

4«09
419
61
612
413

30A(105¢)

NP N
LR D v
NN W NNDN) N N n

ASSEMBLY RQUTINES
MACY11
(IRL(B PT1
25-0(7-78 13:12

ASSEMBLY ROUTINES
MACY11
CZRL(CB.PTI
25-0(1~78 13:12

30A1052)

22-NOv-78

465
466
667
468
669
470
471
472
473

004646
004650
004652
004656
004656
004660
004662
004664
004666

055044
026442
013217
105504
042642
021321
110550
044264
022132

2;9

004674

062213

22%

004676

177777

PAT?:

480
481
482
483
484
485
486
487
488
489

004700
004702
004704
004706
004710
004712
004714
004716
004720
004722
004726
004726
004730
004732
004734
004736

045513
122645
151322
064551
132264
055132
026455
113226
045513
122645

PATS:

004740

125252

004742

155555

474
475

004670
004672

011055
1046426

151322
064551
132264
055132
026455
113226

005260

1-9

4
SEQ 0047

055044

042213

. WORD

177777

. WORD

045513

.WORD
.WORD

104426

122645

151322

064551

132264

055132
026455

113226

045513
122645
151322

064551

132264

.WORD
.WORD
.WORD
.WORD

055132
026455

PATO:

. WORD

125252

PAT10:

.WORD

155555

113226

ENDMOD

w—

045505

n
~N

042523
042522

W
w

—

-—

004744
004744
004752

PAGE

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

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

004744

NIPORONY — d cad b ) il ——d ——d el — Q
Wh—=O VO
N W= O O

VIAVVIVA [V TV, TV TV, TV, 1V, 1V, 1V, 1V, 1V, v

500
501
502
506
507
508

498
«99

497

o
O

490
491
492
493
496
495
496

16:20

047506

020114

000040
042040
0201064
020105

020105
052123
042040
020110
032040
020110
040522
046125
020104
053122
020060
021040
051127

BGNMOD
MSEEK:

GLBTXT
.ASCI2Z

MWRITE:
MGTSTA:
MDATCP:
MHDR(CP:
M4LOHDR:
MWRSET:

.ASCIZ
_ASCI?Z
.ASCIZ
.ASC]2
.ASCI2
_AS(]2Z

MRSLT:
MULOAD:

LASCIZ
.AS(IZ

MOUTIN:

_ASM]2

MREAD:
.AS(CIZ
MREADH: .ASCIZ
MWRCHK: .ASCIZ

MOPER:

MCYLUP:

.ASCIZ

.AS(C]Z

MINOUT: .ASC]Z
MFOI WRT :

/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/
/.D DRv /

/FOL Q TO €7 SEEK/

/Tl

255

JASCIZ

T0 T

7800

St/

SRITE

(NU SERX)/

571
572
373
574
575
576
577
578
579
580
581

006630
006654
006676
006793
006720
006735
006751
006771
007014
007044
007067

052103
052123
044440
020105
020114
043040
020124
042523
051040
020113
053523
042110
042170
046040

104
052517
047111
047111
047111

043117
020124
020103
020103
020103

020106
051107
042523
042523
042523

047111
047111
042523
106
042522
123
102
127
050123
051127
127

020116
020103
045505
042127
029126
042505
051501
52122
07111
0275264
052122

051107
042523
000
047440
051517
020113
041511
051057
046104
042522
046040

VCNRST:

P2TO7E:
P2TO8E:
P2TO9E:
P2TI10E:
P2T11E:
P2T12E.
P2T13E:
P2T14E:
P2T1SE:
P2T16F:
P2T17E:

Y Y Y ey e e Y — Y =

PNINININNRNNNAN
NN N NN NN N NN

L X o

ey ey Y Y

e e

YOI

.AS

.AS
.AS
.AS
.AS
.AS
.AS
.AS
.AS
.AS
.AS
AS

St b
g g b Py B

050130
042524
047101
052101
042116
046111
044516
020126
053122
042505
020104
020104
020106
(CS2122

[en Xan]

UNXERR: .AS
TSTLAB: .AS
MISTST: .AS
NSTACHG:
SPDERR: .AS
GSTER1: .AS
INITST: _AS
TOSERR: .AS
TO9ERR: .AS
TI10ERR: .AS
T12ERR: .AS
TI13ERR: .AS
T14ERR: .AS
TI16ERR: .AS
P2TO1E:
P2TO2E: .AS
P2TO3E: .AS
P2TQ4E: .AS
P2TOSE: .AS
P2TOGE: .AS

041440

047125
060
115
052123
050123
040506
111
051104
106
123
110
122
122
127

MPNAM:
_AS
LAB1:
.AS
LAB2:
.AS
MWORD:
.AS
MTOSLOW:
MDRRES: .AS
MNOINT: .AS
MCONHNG:
MNOCLR: .AS

YOV

046117

000
047111
047117
020104
050122
042523
052116
051114
042040

NP INNNNNNNN

126

,ASC
.AS(
.AS(
.ASC
.AS(
.AS(
.ASC
.AS(C
.AS(C
_AS
.AS
_AS
_AS
_AS
_AS

g bt Dy B g By B B Bt g B

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

MREVSK:
MFWDSK:
MFWSKO:
MRESKO:
MBADAD:
MBADSF:
MFMTER:
MTMBS:
BASADD:
DRVNAM:
DRVNAV:
NOPWR:
(SNAM:
BANAM:
DANAM:

OYOYOYOYOYOYOYOHY O D

006161

050115
020120
0642040
051117
052116
020111
044440
052116
051122

054503
041440
042127
053105
042101
Q52047
051440
047101
042101
000075
020105
042040
000123
000
000101

4
J
1-10

SEQ 0048

/AD.
Yi WRTTIN AFTER REV SK/
/AR (YL WRTTN AFTER FWD SK/
/SK FulD ,WRT - SK REV,OVERWRT/
/SK REV,WRT = SK FWD,OVERWRT/
/0N 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/

/0P]1 SET-NO DRV RESPONSE/
/NO INTRPT ON CMND COMPLETE/
.ASCIZ
/CNTLR HUNG (NO RDY)/
/ERR DID NOT CLR/
/VOL

CHK NOT RSET/

/UNXPCTED ERR/
/ TEST/
/MAN INTERVENT STAT/
LASCIZ
/STATE (AG/
/SPNDL TIMEOUT FAILED TO SET/

/FAIL FORCING DRV SEL
/INIT STATE/
/DRV SELECT/
/DRV RDY/
/SEEK SGN SWITCH/

ERR/

/HD SWITCH/
/RD HDR (P1’/
/RD HDR (P2)/
/WRT LCK/

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

/FWD 0SC SEEK/
/REV 0SC SEFK/
/SEEK TIMING/
/BASIC READ DATA/

549
550
552
553
554
555
556
557
558
559
560
561
562
563
565
566
567
568
369
570

046122
117
050117
127
111
050117
047516
103
105

020112
045106
243040
051040
041040
047101
042101
046440
020123
053122
053111
053122
041514
040502
042114

PAGE

* ot Gung bug By foug g Smeg ey

548

005752
005757
005772
006005
006013
006032
006062
006115
006141

042101
101
045523
045523
047117
103
102
047524
(52502
106
051104
104
122
046122
122

'6:20

539
5640
561
542
543
544
545
5%6
547

005304
005337
005372
005426
005462
005503
005533
005560
005622
005633
005640
005673
005733
005740
005745

22-NOv-78

NINRRINNNNNNNNNNNN

524
525
526
527
528
529
530
531
532
533
534
535
536
537
538

30A(°0S2)

[y Sy SOySISy

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

/INN GRD BAND DETECT/

/INC SEEK REV HD 1/
/SEEK/

EWRT/READ DATA (P1)g
/SPINDLE ROTATION TIMING/
Ew”T/READ DATA (P2)R
/WRT LCK ERR AND DATA PROTECTION/

OPR11:

N N N NG N N N N N N N N N N NG NG N N N Ny

.
L)
[]
[] [)
.
L]
A

OO
YOOI

OPR3:
OPRS:
OPR6:
OPRY:
OPRS:
OPR9:
OPR10:

CYLPER:
HAMES]:
HAMES?:
OPROQZ:
OPR0OO3:
OPR1:
OPRZ2:

047522

040502
047524
104

047503
042110
040504
110

104

020124
053122
052116
020122
040524
051104
052101

051040
042440
051103
041440
047040
020101

PRINIRININ

—ed e

)

D e

D —d w—d —b

053122

:
HDMOVF

N N NN N N IS NN N NN R

020105
052105

LABMID:
LABOUT:
LABEXP:
LABOCF:
LABOCR:
:
LABHCF
LABHCR:
:
LABACF
LABACR:

NN N NN NN NN

051120
051128

VALDES:
MAPROX:
LABIN:

16:20

RV XV RV RV o RV XV YV R XV YV YV YV YV XV, XY, Y7, XV, X7, )

103
110
054524
041101
127
044103
046103
051120

P2T18E:
P2T19E:
SKTMES:
SRTMES:

030060
030060
031061
031061
032462
032462
042110

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

[)

117
105

045104
051105
045505
047111
052123
051120
042516
042104
052125

101

053117
042523
050123
050
050101
0471M
044515

22-NOv-78

N T NV RV o NV RV o R N

007127

3CA(1052)

(P R X

CZRL(B PT1

MACY11
25-0CT-78 13:12

PP PP PLPPPEPDIEDPEIEELEIEBEBD
D>

ASSEMBLY ROUTINES

PAGE

1-11

SEQ 0049

/AD.! CYL INTERFERENCE/
/OVERWRITE/
/SEEK TIMES /
/SPINDLE ROTATION TIME /
/(STATED IN 100'S OF MICRO SEC)/
/APPROX /
/ INNER/
/MIDDLE/
/OUTER/
/EXPECTED/

/001
/001
/128
/128

CyL
CYL
CYL
CYL

FWD/
REV/
FWD/
REV/
/255 CYL FWD/
/255 CYL REV/
/HDS FAILED

TO MOVE

IN 10

TRIES/

/CYL PORTION OF HDRS DIFFER WHEN READ FROM TRK 0 & 1/
/HEAD ALIGN. RSET WRT LCK TO SEL HD O, SET FOR HD 1/

/TYPE

**CTL C'' & "'CONT'" TO CONTINUE

/CLSE

COVER & RST WRT L{K /

/ABOVE COND'TIONS MET/
/WAS LOAD DEPRESSED/
/CHK DRV IS UNLDED, COVER OPN,

AND WRTE LCKED /

/PRESS LOAD /

/PRESS LOAD & WAIT FOR LOAD LIGHT
/PRESS LOAD & WAIT FOR RDY
/REMOVE ADD PLGS EXCPT /
/INSRT ADD PLG /

/IN ALL DRVS /
/INSUFFICIENT DRVS
/RPLCE ADD PLGS AS
/RESET WRT L(CK /
/ON /
/ON DRV /
/UNDER TEST/
/SET WRT LCK /
/DIFF /
/SGN /
/HD /
/SEC /
/CYL /
/FROM /
/ BYPASSED /
/ROUTINE TRACE SEQ
/DRV STAT/
/BAD SEC FILES NOT
/TOT COMPARE ERRS:
NAME
S
/DRV RDY /
/CONT ERR /
/HDR CRC/
/DATA (RC/

/+ DR NOT FND/
/DATA LATE/

FOR DRV SEL
BEFORE/

TESTING/

ERR

TST/

(IN SEQ CALLED):/
STPD.
/

ALL

SEC ASSUMED GOOD./

012115
012124
012127
012132
012143
012163
012225

045
052045
045
047045
045
045
045

000116
052045

022516
022516

022516

047045
022524
022524
000
022524

052045
022524
030523
022524

CDRDY:

cC10Mms:

CS00MS: .
CCYLUP:
CAFDT:

FMTOP1:
FMTOR2:

RN N N NN N N NN N N N NN RN N NN NN

NOLOOLOLUBLOLLLOOLLOLOLLLOLOOnLKn,
nhhnnnn
YOOI
O
o Y Ty Sy Sy Sy Sy W SNy Sy Wy Gy iy Sy ooy S N W G Vg A o Vi S
S e )

FMTOPS:

FMT1:
FMT1.1:
FMT?2:

.AS

FMT3:

FMT4:

FMIS:

FMT6:
FMT?7:

CSSEC:

.AS

NNNNNNANNNNN. NN

STATE2: .

STATES3:
STATES:

PNININANNNNRNNNN

693
694
695
696
697
698
699

052045
022516
022516
052045
022516
000

(%]

047045
045
045
052045

RESE6:

RESU
nonuvwmumoumumunuvom

012016
012045
012067
012110

040524
042523

RESES:

-ASC

ENYYIICIYOYOHYODY

689
690
691
692

676
677
678
679

RESE4:

RESU

000
000040
020105
020105
020105
053440
020124
051515
042514
054040
042103

RESE3:

-ASC

icsicaimicsiciciclonionlioic
ol Lo
il L DL
L)
S

044440
049
052123
052123
052123
042523
064506
065
103
040504
020065

:
MUNDEF
:
MRLFAL
MWRTARB:

681
683
684
685
686
ggg

011660
011665
011672
011702
(011712
011722
011742
011755
011763
011774
012006

674
675

000
000040

111
040

.
.

MCYLOC:
MNDRST:

MEXERS:
MERRS:
BELL:

LD >

011647
011653

671
672
673

670

126

047503

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

102
051127
110
051104
10
050123
051127
123
110
127
050117
110
042110
047516
054503
103
12
040506
127
040
042440
20

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

110
104
042523

011003
011033
011044
011061
011072
011105
011120
01113
011142
011157
011172
011210
011225
017243
011261
011276
011315
011332
011360
011400
011405
011445
011512
011553
011571
011634
011643

640
661
643
644
645
646
647
68
650
651
652
653
6546
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669

25-0C7-78

16:20

CZRL(CB.PT1

22-NOV-78

30A(1052)

MACY11

PEPBBBDBBD

ASSEMBLY ROUTINES

PAGE

4
L
1-12

EHDR NOT FND/HDR CRC/OPIR

/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 /
/0P INCOMPLETE /

SHDR/DAT ERR &
EHDR NOT FND/DAT LATE &

/NON=-EXSTNT MEM /
/CyL /
/COULD NOT RETRIEVE DRIVE STATUS/
/UNKN DRV STATE-NO RDY,NO ERR,HDS NuT/
/FAIL TO RELD HDS AFTER ERR (CLEAR/

/WRITE ABORTED/

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

SETTINGS
/1S /
/ SB /

CONDITIONS
/ IN /
/ OF /
/STATE 2/
/STATE 3/
/STATE 5/

ESEEK W/0 MOTIONE
/FIRST 3 MS/
/500Ms/

/CYCLE UP/
/DATA XFER/

/5 SECDS/

/ANXTAINXTXTX06XSXTXO1
AN/
/ANXTX01XS1XTX01
AN/
/AINXTZOVXSIATXTAN/
/XTXT/
/AINXTXT/
/XT/
/IN/
/AINXTRTIN/
/INXTX06XS1%7%01/
/AMASTIXTASEXTASAATRSARTASAXTXS2XT/
/AINXTZ06%S2%06%XS2406XS2%06%S3X03%S2%01
AN/

SEQ 0050

ASSEMBLY ROUTINES

25-0CT1-78

726

013040

g
B

N N N

g Dot Pt Bt S
By B
Sy Pt B
g bmg B

N N N NN RN NN N N N N N

e
g
g

DLODOODDDDD
PO

NN N N

013040

St b

720

022461
042045
022524

lalalalalalalalslalalalslalalalalalalale]

e
D
b

047045

— e

502

FMT8:
FMT9:
FMT11:
FMT12:
FMT13:
FMT14:
FMT15:
FMT16:
FMT17:
FMT18:
FMT19:
FMT20:
FMT21:
FMT22:
FMT23:
FMT24:
FMT25:
FMT26:
FMT27:
FMT28:

045

nVLLLLLLLLLLLLLOOLULLnn

SEQ 0051

D o

(%,

(&)

701

[elelslelelelolelelolslo)

CZRL(CB.PT

ENDMOD

BGNMOD

GLBERR
ERR1

/AINXTX06XS2X06X52X06XS52%06/
/ANXT/
/%7201/
/%XT203/
/ANXS11XT2032S1XT303XS1XTX01%S1XT%01/
/INXTXTXD3XST1XTX06XS1XTX06/

/ANXS11XTAD3XS1XTX06XS1XTX06/

/INXS5206/
/XST10XTANZS11206XN/
/INRS13XTXSSXTAS4XTASSXTIN/
/XTXS2AD6XSLXDOXSLXDOXSLXDO6AIN/
/XTXS2XD6XST14XDO6ZS4XDOIN/
/XTXS12XD6XST14XDO6IN/
/ANXST1ZTX03XS XTX01XS1XTX02/
/XTZTXTXOT1XN/
/INXT/
/INXD2XT/

/ANLSTXTXD4AXTXTAD3AN/

/INXTXD3XTAD3IAN/
/AINXTRXTZT/

R3 POINTS TO RESULT MESSAGE
F-SULT: (R3)

ERR?

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

ERR3

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

ERR4

R3 POINTS T0 RESULT NAMF
R4 POINTS TO RESULT CONUITIONS
RESULT: (R3) IS 1 SB O (R4

ERRS

R3 POINTS T0 RESULT NAME
R4 POINTS TO RESULT CONDITIONS
RESULT: (R3) IS 0 SB 1 (R4)

ERR6

RESULT ROUTINE
REPORTS ALL

RESULT:

ERR?7

DRIVE

DETERMINES WHICH ERROR(S)

"ERROR'" IS 1

SB 0

STATE ERROR REPORT

R3 CONTAINS EXPECTED STATE

T STAT CONTAINS BAD STATE
RESULT: DRIVE STATE IS (T.STAT.

ERRS8

HEAD POSITIONING ERROR REPORT
NEWCYL CONTAINS EXPECTED CYLINDER
HDWRD1 CONTAINS BAD CYLINDER
RESULT:

ENRY

CYLINDER

(HDWRD1)

UTILITY RESULT REPORT
R3 POINTS TO RESULT NAME

(R3)

(NEWCYL)

ARE

SET AND

ASSEMBLY ROUTINES

CZRL(CB.PT1

MACY11

25-0CT-78 13:12

30A(1052)

760
761

775
776

777
778

779
780

0,
v,

ERR10

013066
013072

013076
012'00
013104
013104

013104

785

013106

786
787
788
789
790
791
792
793
794
795
796
797
(3)
;gé

013106
013112
013114
013120
013124
013126
013132
013134
013140
(013144
013146
013152
013152
013152

799
800
801

013154
013154

013160
013162
013166
013172
013174
012176
013202
013206
013212
013214

013220

010146
004737

012721
010321

004737
004737

012601
004737

167606
021516
000001

_
016122

167546

004737
012721
010321
005021
012721
004737
004737
012601
004737

ENDMSG
L10000:
BGNMSG

000001
022304
022512

016122

167500

ENDMSG
L10001:

BCNMSG

021516
000003

000001
022304
022512
016122

ENDMSG

SEQ 0052
1

(R3-NAME)

(R4-VALUE

(R5-VALUE 2)

COMPARE ERROR REPORT

R3 CONTAINS THE BAD WORD NUMBER

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

(R5)

ERR1
TSTB
BNE
INC

NOERCT
1$
®ERRPOINT

;TEST TF ERROR COUNTING INHIBITED
JYES - SKIP
;ELSE BUMP ERROR COUNT

MOV
JSR

R1,-(SP)
~C,RPTOP

;STORE R1
sRECORT OPERATION

JSR
JSR

PC.RPTRES
PC,RPTREM

JREPORT RESULTS
JREPORT REMAINDER

MoV
MoV

021516
000003

104023
005277
010146

- . .,

022304
022512

104023
005277
010146
004737
012721
010321
012721
005021
004737
004737
012601
004737

BGNMSG

003047

1-14

R4 POINTS TO BAD WORD

013060
013064

781
782
783
(3)
;gz

802
803
804
805
806
807
808
809
810
811

RESULT:

013052
013054

105737
001002
005277

PAGE

RS POINTS 1O VALUE 2

;

013040
013040
013044
013046

16:20

R4 POINTS TO VALUE

762
763
764
765
766
767
768
769
770
771
772
773
774

22-NOV=7%

#1,(R1)+
R3,(R1)+

MOV
JSR

(SP)+,R1
PC,CKERLM

EMT

C$MSG

ERRZ

INC
MOV
JSR
MOV

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

MOV
wov
LLR
JSR
JSR
MoV
JSR

R3,(R3)+
#1,(RD+
(R1)+
PC,RPTRES
PC,RPTREM
(SP)+,R1
PC,CKERLM

EMT

L MSG

ERR3
INC

MOV
JSR
MoV
MOV
CLR
MoV
JSR
JSR
MoV
JSR

@ERRPOINT
R1,=(SP)

PC,RPTOP
#3,(R1)+
R3,(R1)+
(R1)+
#1,(R1)+
PC,RPTRES
PC,RPTREM
(SP)+,R1
PC,TKERLM

:SET _PARAM NUMBER
s INSERT MESSAGE ADDRESS POINTER

;RESTORE R1
.GO CHECK IF

ERROR COUNT EXCEEDED

JBUMP ERROR COUNT
;STORE R1
;REPORT OPERATION
;SET PARAM NUMBER

s INSERT NAME ADD POINTER
JSET IS VALUE
;SET SB VALUE
JREPORT RESULTS
;REPORT REMAINDER
JRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
;STORE R1

sREPORT OPERATION
:SET _PARAM NUMBER
JINSERT NAME ADD POINTER
JSET IS VALUE
;SET SB VALUE
JREPORT RESULTMS
sREPORT REMAINDER
JRESTORE R1
;GO CHECKN IF ERROR COUNT EXCEEDED

ASSEMBLY ROUTINE S

MACY] 1
25-0CT1-78 13:12

purd

005277

82}

013250

013270

828

013272

021516
000004

PC.RPTOP
#6,(R1)+

000001

#1,(R1)+

022304
022512

PC ,RPTREM

(SP)+ ,R1

PC,CKERLM

ENDMSG

BGNMSG

aERRPOINT
R1,-(SP)

MOV

022304

022512

RYRRRRY
FORRRN
QA=
50

—

d ctnd amd

b —

0000000

A%,

#6,(R1)+

R3,(R1)+

PC.RPTREM

ENDMSG

L 100064:

104023

053703

P(,RPTOP

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

016122

BGNMSG

003067
167304

17%:

JSR

(SP)+,R1

PC.,CKERLM

NOERCT
17%
QERRPOINT
R1.=(SP)

R3,~(SP)

000003
000004
002454

RS.-(SP)

PC.RPTOP

000002

#3,(R1)+
#1.2(R1)
TEMP3
T.CS.R3

#177761.R3
#4 ,R3

000004

;BUMP ERROR COUNT

;STORE R1

JREPORT OPERATION

;SET PARAM NUMBER
. INSERT NAME ADD POINTER
JSET 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

s INSERT ADD OF CONDITION POINTER
JREPORT RESULTS
;REPORT REMAINDER
JRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

CIMSG

R4 .~ (SP)

021516
000003
000001
002546
002466
177761
000004

SEQ 0053

CEMSG

000001

013402

1-15

(R1)+
R4, (R1)
PC.RPTRES

021516
000004

854

R3.(R1)+

167362

005277
010146
010346
010446
010546

PAGE

@ERRPOINT
R1.,=-(SP)

L10CJ3:

105737
001002

16:20

CMSG

BGNMSG

167432

016122
(3)

22-NOvV-78
L10002:

104023

W
N
W
o

013222
o

NN N
NN

013220
013220

OO0

Pt Gt utr Sutr fut P

Pt Gt

R 00 00 00 00 00 00 000D N

CZRLCB.PT?

30A(1052)

JTEST

ERROR COUNTING

JYES - SKIP
JELSE BUMP ERROR COUNT
;STORE R1

;STORE R3
;STORE R4
sSTORE R5

;REPORT OPERATION
:SET PARAM NUMBER
s INSERT IS VALUE

;CLEAR FOR STATUS STORAGE

JGET T.CS
;AND CLEAR ALL BUT FUNCTION
JCHECK IF IT WAS GET STATUS
YES = STATUS

IN T.MP,

zcs;grAr,RLDA(ReS ;ELSE DO GET STATUS
9,

RLDRV,R3

INHIBITED

SKIP

ASSEMBLY ROUTINES
MACY11
CZRL(B.PTY
25-0(7-78 13:12

013442
013446
013446
013452

010362

000000

012700

000012

032762

000200

104027

30A(1052)

22-NOv-78

16:20

MOV
WAl TUS
MOV
EMT

000000

BIT

001000

9%:

000006

10%:

PAGE

R3 PLCS(R2’

70.

#10. RO

032703
001442
032703
001026
032703
001020
012704

012746
010446
012746
012746
012746
010600
104014

062706
000430

AN
e @

N — -

177442

010000
004000
011276

011634

100¢%:

005157

READY

RLMP(R2) ,R3
R3,TEMP3

:STORE STATUS FOR REPORT

T.MP+1 R3

*IN MESSAGE WORD AND SKIP

;GET ERROR BITS IN PROPER POSITION
:GET ERROR BITS FROM MP REG

#177449 ,R3

:CLEAR UNUSED BITS

#1777 R4

:CLEAR UNUSED BITS

T.CS,R4

#MOPERR ,R4

*GET ERROR BITS FROM CS REG

*MAXE ONE WORD OF POSSIBLE ERRORS
STEST IF OPI SET
*NO - SKIP

“TEST IF HDR NOTM FOUND ERROR
SYES - SKIP
“TEST IF HDR CRC ERR
*YES - SKIP

*SET OPI1 ALONE MESSAGE

WHFMT28 ,AMRSLT R4 ,AMERRS
#MERRS
- (SP)
R4 ,-(SP)

80000«
000012

#12,SP

;REPORT ERROR

SP.RO
CSPNIB

010734

105%:

:gggRC,Ré

120%

;SKIP

004000

1078
:

#HCRCERR,R3

cTEST

qgggF,Ré

JMESSAGE HEADER NOT

#MHF CRC R4

+HNF

#DCKERR,R?

JTEST

011003

109%:

004000

115%:

010000

el - D wmd =
d —ed el
b

:YES ~ SKIP
“ELSE SET NO DRIVE STATUS BIT

AMMRSLT, -(SP)

1008

HCRC WITH HDR MNOT FND

JYES - SKIP

:SKIP

FOUND

AND HCRC MESSAGE

DATA CHECK SET, NOT QP!

JNO - SKIP
JO5ET MESSAGE DATA CHECK
;SKIP
;TEST IF DATA LATE ERROR
JNO - SKIP
cSET MESSAGE DATA LATE
JSKIP

3%:

R4
RS,~3

4%:

(R7)+

;CLEAR R4 FOR TABLE COUNT
JTEST IF BIT IS SET
JYES = SKJP TO REPORT

118%:

010771
100000

109%

JHDR CRC MESSAGE

118%
AMMDCRC R4
100%
#DLTERR,R3
120%
#MMCLT RS
100%

010744

001005
005724
000241

;TEST

108
#BIT9.R3

HFMT28,-(SP)
#6,-(SP)

010755

013664

;WAIT FOR CONTROLLER READY

CSWiU

R4 ,R3
#OPIERR ,R3
115%
#HNFERR ,R3
107%
#HCRCERR,R3
105%

002000

SEQ 0054

#CRDYMSK ,RLCS(R2)

{§QP3+1.R3

002475

1-16

120%:

#MIT1S5,RS
6%

JSET BIT POINTER FOR TEST

JELSE

BUMP

TABLE

:CLEAR (ARRY

POINTER

ASSEMBLY ROUTINES
MACY1 1
CZRLCB.PTY
25-0CT1-78 13:12

908
909

910
M
912

913

914
915
916

917
(9
(8)

(7)

(6)

(3)

013712
013714
013716
013720
013724
013730
013732
013736
013742
013744
013744
013750
013754
013760

006005
001372
000405

013746
012746
012746
012746
010600

30A(1052)

V02174
022304

6%:

022517
002546

7%:

g\NWNNN—‘—'-‘go
OONNOON
S NONNIOONN
NN

Gaurd
G
Qo
e Gnr-Ghr Gy Gaer S
JunrShuer Qg Gy G

(7)

014162

BNE
BR
MOV
JSR
BR

PAGE

0
5
1-17

SEQ 0055

RS
3%
7%
RESTBL
(R4) ,(R1)
EC.RPTRES
$

sSHIFT BIT POINTER TO NEXT BIT
;LOOP IF NOT O
JELSE REPORT REMAINDER
; INSERT NAME ADDRESS
JREPORT RESULTS
JGET NEXT BIT

TEMP3
15%

sTEST ]F ANY NEW STATUS
:NO - SKIP

PC ,RPTREM

JREPORT REMAINDER

HFMT17 ,ASTAMES , TEMP3
TEMP3,~(SP)

002546
010577
012513
000003

#STAMES ,=(SP)

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

SP,RO
C$PNTR

000010
004000

002466

002000

002466

002436

104014

16:20

ROR

002436
000200
000001
004066
003466

011546
012746
011446
012746
010346
012746
012746
012746
010600

22-NOv-78

#10,SP

15%:

#DCKERR,T.CS

;TEST

#OPIERR,T.CS

:TEST

IF OPl

25%

SET

;CLEAR COMPARE ERROR COUNT
;SET COMPARE LENGTH
;SET WORD COUNT

#IBUFF ,R4

;SET TEST WORD POINTER

(RS), (R4)

19%

000012

JYES = SKIP

MORECE
#128. Rl
#1,R3

#OBUFF ,RS

18%:

DATA CHECK ERROR

JNO - SKIP

MORECE ,#10.
20%

cSET GOOD WORD POINTER
; CHECK WORD

.600D - SKIP

JTEST IF COMPARE LIMIT REACHED
JYES - SKIP

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

(RS) ,~(SP)

011653

#RESE4 ,~(SP)

(R4) ,~(SP)
#RESE3,-(SP)
R3,-(SP)

011647

006005
012446
000007

000020
002436

002436
000200

011665
002436
010666
013010

#MWORD ,~(SP)

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

SP,RO
CSPNTE

25%:

#20,SP
MORE CE

;BUMP ERROR COUNTER

R3
R1
18%

;BUMP (OUNTER
;DEC LENGTH COUNT
:LOOP IF NOT DONE

27%

JNO - SKIP

(RS5)+,(R4) +

TST

BEQ
PRINTB
MOV
MOV

MoV

MOV
MOv

MORE CE

#128.

:BUMF POINTERS

JTEST

,R1

ANY COMPARE

JSET COMPARE LENGTH

#FMT27 , #TCERR,MORE
CF ,#RESES.RT
R1,-(SP"

#RESEG,-(SP)
MORE
CE , = (SP)
#°"ERR.-(SP)
BFMT?7
= (SP)

ERRORS

ASSEMBLY ROUTINE
S

CZRLCB .PT1

(6)

MACY11
25-0C1-78 13:12

012746

010600
104014

062706
012605
012604
012603
012601
004737

30A(1052)

22-NOV-78

016122

104023

166434

#14 ,SP

27%:

(SP)+ RS

(SP)+ ,R3
(SP)+ R1

005277
010146
010346

PC,CKERLM

ENDMSG
L10005:

@ERRPOINT
R1,-(SP)

MOV

°C,RPTOP

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

R3,(R1)

PC,RPTRES
PC_,RPTREM

016122

PC,CKERLM

(SP) +,R1

L10006:

166364

021516
000003
011400
002474
000007

BGNMSG

;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
;STORE R1

¢RECORT OPERATION
:SET_PARAM NUMBER

s INSERT NAME ADD POINTER
s INSERT IS VALUE
JREPORT RESULTS
cREPORT REMAINDER
sRESTORE R1
;GO CHECK IF ERROR COUNT EXCEcDED

CSMSG
QERRPOINT
R1,=-(SP)
R3,-(SP)

PC,RPTOP

#3,(R1)+

MMCYLOC, (R +

HDWRD1, (R1)
#7,R3

3%:

;BUMP ERROR COUNT

;STORF R1
;STORE R3

;REPORT OPERATION
:SET PARAM NUMBER

s INSERT NAME ADD POINTER
;GET HEADER WORD
JSET SHIFT COUNT
JALIGN CHAR FOR PRINTING
;

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

002524
022304
022512

004737

016122

£10007:

104023

005277
010746

(SP)+,R3

(SP)+ R1

ENDMS

166270

; INSERT SB VALUE

022304
022512
ENDMSG

C$MSG

BGNMSG

~NO

014270
014270
014274
014276
014300
014304
014310
014314
014320
014324
014326
014330
014332
014334
014336
0146342
014346
014352

JRESTORE RS, 4,

(SP)
+ R4

000003
011157
002502

104023

SEQ 0056

SP,RO
CSPNTR

021516

014250
014254
014260
014262
014266
014266
014266

5
E
PAGE 1-1 8

#5,-(SP)

000005
000014

16:20

BGNMSG

PC,CKERLM

IS VALUE

;BUMP PARAM POINTER
. INSERT SB VALUE

JREPORT RESULTS

;REPORT REMAINDER
JRESTORE R3
JRESTORE R1

;GO CHECK [F ERROR COUNT EXCEEDED

CIMSG
ot PRPO[NT
R1,=(SP)

;BUMP ERROR C(OUNT

. »TORt R1

ASSEMBLY ROUTINES

25-0C1-78

CZRLCB.PTY

014372
014376
014402
014404
014406
014410
014414
014420
014422
014426
014426
014426
014430
014430
014432
014436

014440
014444
014450
014450
014452
014456
014462
014466

014472
014476
014502
014504
014506
014512

014512
014514
014520
014522
014526
014530
014534
014540
014544
014550
014552

MACY11

30A(1052)

22-NOV-78

004737
012721
010321
010421

JSR
MOV

MoV
MCv

022304
022512
004737

016122

L10010:

104023

010146
005737
001051
005277
004737

005046

153716

012746
013746

012746
012746

012746

ENDMSG
BGNMSG

002436
166214

021516
002455
005633
002450
005622
012143
000005

b ——d —

—

e
b

SEQ 0057

PC.RPTOP

JREPORT OPERATION

R4, (R1)+
RTM
(R1)+

JSET IS VALUE
JSET SB VALUE

(SP)+,R1

JRESTORE R1

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

F..RPTRES
PC ,RPTREM

PC,CKERLM

;SET PARAM NUMBER
s INSERT NAME ADD POINTER

JREPORT RESULTS
;REPORT REMAINDER

;GO CHECK

ERROR COUNT EXCEEDED

(MSG
R1,-(SP)

;STORE R1

PC ,RPTOP

:REPORT OPERATION

MORE CE
33
AERRPOINT

JTEST IF 2ND BAD LINE
;YES - SKIP
;BUMP ERROR COUNT

RLBAS,=(SP)
- (SP)
#8ASADD,
#FMTS ,-(SP)
45,-(SP)

SP,R0
(SPNTB

000014

#14,SP
HFMT14 ,AMRSL T ,#MWORD ,R3,#RESE 3, (R4) ,ARESES, (RS)

011653

HRESES4,-(SP)

(R5) ,-(SP)

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

011647

006005
005157
012414
000010

AMWJORD
, = (SP)
#MRSLT ,~(SP)

#FMT14,-(SP)

#10,-(SP)

SP,RO
(SPNTB
zEZ.SP

000022

#FMT1S #MWORD ,R3,#RESE3,
(R4L) ,#RESESL, (RS) ;REPORT DATA
(R5) ,=/SP)
HRESE4 ,~(SP)
(R4) ,=(SP)

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

006005
012446
000007

000020
002436

RLDRY+1,(SP)

011647

~
o

MOV
TST

#DRVNAM,
- (SP)

#MWJORD
, - (SP)

W#FMT1S,-(SP)
#7,-(SP)

ERR10

PAGE 1-19

#?g;;.#BASADD,RLBAS.#DRVNAM.(B,RLDRV+1> JREPORT

011653

EMT

BNE

—

MCv
JSK
JSR
MOV
JSR

16:20

4%:

SP RO
(SPNTR
#2",SP
MORE CE

::NC (OMPARE ERROR (OUNT

—ovmurTnrNnnaI
oD

D
b
d —d e
ek el
e
el
—t

[elelelalolelNololalals
oVl
RO
= 33 SWo =2 3 S WW 2

—

ASSEMBLY ROUTINES
MACY11
CZRLCB.PTY
25-0CT1-78 13:12

(3)

014630
014632
014636
014636
014636
014640
014640
014640
014640
014642
014644
014646
014650
014652
014654
014654
014654

014654
014654
014654
014656

012601
004737
104023

000005

174400
000360
000240
000000
00000

016122

30A(1052)

22-NOV-78

ENDMSG

L10011:
ENDMOD
BGNMOD
BGNHW

t NDHW

16:20

PAGE

1-20

¢+ ,R1
(SP)

MOV
JSR

PC,CKERLM

EMT

CMSG

SEQ 0058

JRESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

.EVEN
HPTCODE

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

012-L$HW/2

400

;CSR BASE ADDRESS DEFAULT
JVECTOR DEFAULT

JPRIORITY DEFAULT

;DRIVE NUMBER DEFAULT

JRL11 CONTROLLER

L10012:
ENDMOD

000006
00000C

BGNMOD
BONSW

SPTCODE

MIswlw:

.WORD

. WCRD

b10013-L$Sw/2

JBIT O

JBIT
JBIT
(BIT
BIT

014660
014662
014664
014666
014670
C14672
014672
014672

000000
000377
000000
000024
000012

ERLIMW:
CCLIMW:
ENDSW

.WORD

.WORD
.WORD

L10013:

014674
014676

014722

HEADW:

.WORD

030642

CYLINDERS

3 = EXECUTE HEAD ALIGNMENT

4 = DROP DRIVE IF NO RESPONSE

12 = HEAD SELECT SUPPLIED FLAG

13 = HILIMIT SPECIFIED FLAG

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

.WORD

ENDMOD

014672
014672
014672
014700
014702
014704
014706
014710
014712
014714
0146716
014720

LOLIMW:

HILIMW:

USE ALL

;BIT 1 = USE ALL SECTORS
;BIT 2 = EXECUTE DRIVE SELECT TEST

BGNMOD
DSPCCDE
D:ISPAT(CH
.WORD
.wORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
,
-WORD
. wORD

JERROR LIM]T

. COMPARE ERROR LIMIT

ASSEMBLY ROUTINES

25~0C"-78 13:12

CZRLCB.PTT

014724
014726
014730

014730
014730
014730
014730
014734
014736
014736

014740
014740
014742

014750
014754
014754
014760
014762
014762
014764
014772
014774
014774
015000
015002
015002

015004
015012

BGNMOD
BGNINIT

012700
104041

000340

103403

042737

100014

005037

002424

012700

00007+

104050

103004
013737

0020172

012700

00004C

000531

104050

014656
i ¥

N03072

A ¥

SEQ 0059

INITCOCE

SETPRI
MOV

#340
#340,R0
($SPR]

EMT

CSMAN]

CLR
READEF
MOV

SSINDX
#EF .PWR
#EF .PWR RO

B8CC

B8R

PWCON

JCHECK

MANUAL

INTERVENTION ALLOWED

INTERVENTION FLAGS

;CLEAR SUBROUTINE

;POWER FAILURE

STACK

EMT
CSREFG
BNCOMPLETE
4%

;NO, GO CHECK NEW PASS

MOV

LSUNIT PWRFLG

;SET POWER FAIL

#EF .START

sCHECK

READEF

MOV

EMT

002012
003062
002662
000100

002516

002660
020000

002660
003064
002432
014656

000377
040000

014662
014656

000027

103734

012700

1-21

BCOMPLETE
1%
:YES - SKIP
B(S
1%
BIC
#MITEST !DRSELT .HDALIGN,
MISWIW ;CLEAR ALL MANUAL

PASS

KSTRT:

1%:

)

b3 §
5%:

RESTART

104050

000036

MOV
CLR
MOV
MOV
g%?

INDEX

FLAG

;GO _SERVICE POWER FAIL

#EF _START
RO

START

CSREFG

BNCOMPLETE
RESTART ;NO - SKIP
BCC
RESTART
ON START INITIALIZE TO START AT FIRST DRIVE,

014660

012700

PAGE

T3
T4

.WORD
LWORD

EMT

103043

013737
005037

"6:20

MANUAL

104051

S8
RNV OOOMNLNINO

D
d —d —d
d ek
D
d
d
e
d
e
—

22-NOv-78

ENDMOD

177777

(o RNV TV, IV, RU LV AV LV, [V LV, [V [V, [V ]
b b b ed D d e D D e d 3 D)
PNOPUNOUMNDNY
= B 2 -

30A(1052)

031160
031372

1772777

jelolelelolololelelelolelelel

(6)

MACY

COUNT,

AND ERROR COUNT.

LSUNIT,DRVCNT
PASNUM
#ERRCNT ,RO
#64. R1
é?O)*

CLEAR INTERNAL

;SET UP UNIT COUNT
. CLEAR PASS NUMBER

sGET A COUNT
;CLEAR A ERROR COUNTER STORAGE AREA

BNE
%
MOV
MOV
BIT

1%
;LOOP TILL ALL CLEARED
#ERRCNT=2 ,ERRPOINT ;INIT ERROR POINTER
#-1_PSETNM
cSET PARAM SELECT TO INITIAL

#-1,HADONE
AHICYL MISWIW
3%

sPRESET HEAD ALIGN DONE FLAG
TEST IF H]I LIMIT SET
JYES - SKIP

BIT
BNE
CLR
BR

#LOCYL MISWIW
5%
LOL IMW
SETDON

TEST IF LO LIMIT SET
JYES - SKIP
JELSE CLEAR LO LEIMIT

BNE
MOV

#377 HIL 1MW

SELSE

READEF #E7 .RESTART
MOV
#EF .RESTART
RO

JCHECK

EMT

CSREFG

MOV

#EF . CONTINUE
RO

BCOMPLETE
RSTRT
B(S
RSTRT
{ONTINUE:
READEF
#c°.CONTINUE

INIT HILIMIT

RESTART

;NO = SKIP
JTEST

CONTINUE

vALUE

MACY1 1

ASSEMBLY ROUTINES
o

(W LV IV, LV, TV, [V 1V, JV, [V, (W, [V, 1V,

103403

42
46
50
5¢

005737
001013
005237
012737

170

012737

013737

015230
015232
015236
015240

103406
005737
001741
005337

N
&N

—

N
[¥,)

015254

012122

015256

012746

NXTPAS:

002516
003062
002660
002012
177777
003064

002660
002516
0€3064

PASNEW:

“FTDON:

002660

015300
015304
015304
015310
01532

062706

00070

012700
104041
013702

000000

015316
015322
015324

015332

104037

005737
001135
032737

0015%

CSREFG

.
.

003062
000020

C14e5¢

STARTING NEW PASS

PASNEW

TST

DRVCNT

INC
MOV
MOv
MOV
INC
DEC
ADD

PASNUM
JELSE BUMP PASS COUNT
#ERRCNT=2,ERRPOINT ;INIT THE ERROR POINTER
#=1,PSETNM
PSETNM
DRVCNT
#2 ,ERRPOINT

MOV

#RLBAS ,R?

BNE

JTEST

SETDON

ALL UNITS

CHECKED

JNO - SKIP

LSUNIT ,DRVCNT

PSETNM,_RO

PWRFLG

sGET ALL DRIVES

sSET PARAM SELECT TO INITIAL
SNEXT SET OF PARAMETERS
;DOWN COUNT DRIVE TOTAL
;UPDATE THE ERRUR POINTER

JSET UP TO GET PARAMETERS

JSKIP [F

GOOD PARAM

JRECENT

POWER FAILURE

8EQ
DEC
BR
MOV

NXTPAS
;NO
PWRFLG
NXTPAS
(R1)+,(R2)+

. STORE PARAMETERS (SR

MOV

MOV
TST

(R1)+,(R2)+
(R1)+

JACCOUNT FOR DRIVE
:
;BUMP PAST

SETVEC

VTHLR, #340

MOV
MOV
Mov

’)
-(SP)
SP)

MOV
EMT
ADD
SETPR]
MOV
EM1
MOV

002450

JCHECK

PASNEW

TST

7%:

(2)
1118
(3)
(3)
1119
1120
1121
1122
1123
1124
1125
1126
1127

015276

#EF .NEW
NEF .NEW,RO

RO,R1
GPHARD
EMT
C$GPHRD
MOV
RO,R1
BCOMPLETE
7%
7%
8(s

003072

012746

012746
013746

SEQ 0060

B(CS

MOV

003072

015272

;;gg

EMT

PWCON:

015262
015266

5
I
PAGE 1-22

BCOMPLETE

(4)

(3)

READEF
MOV

000035

n
a¥]

104042
010001

—

015224
015226

015176
015202

v15214
015220

005237
005337
062737
013700
012702

—t cd

b end

)

D e

012700
104050

H
n

32
36

“6:20

EMT
CSREFG
BCOMPLETE
PWCON
BCS
PWION
ON CONTINUE PICK UP UNIT LAST UNDER TEST

000340
016064
002452
000003

(6)
(5)

22-NOV=78

)

IRV,|

—

d —D

103452

(olololololelolalelolele
— i ed D )
D ed d D d

BNl
-—

130

—

ONOWW

V—A—l_fi—l—l—l_‘—.

b md
d
b
d —d
D

104050

N
KIRIC28 333337 N 2533333
~ \JOer\wf\)-lOS 00~
(AN
N ) =D s
~r
S G

—d cmd

25~0(T1-78 13:12

d e

S G

e
—

W, (o
e W

—

|
SN

N
S

G
[

S S

—

CZRL(B.PT1

30A(1052)

#3,~ LP)
C$SVEC
#10,SP
#0
#0,R0
($SPR]
RLBAS ,R2

VECTOR
PRIORITY

;SET

DRIVE

i
JSET PRIORITY
JSET RL BASE ADDRESS PQINTER

(HECK IF DOING AUTC SIZE AND DROP DRIVE
ERROR SETS ON GET STATUS.
1ST

BNE
BI7
8EQ

PASNUM

22%
#AUTOS? MISWIW
2ct

VECTOR

JVEST

IF NOT READY AND

PASS O

JNO - SK]P
TEST IF DOING AUTO SIZE
;:NO = SKIP

S THECK TF UN]BUS KbDRESS 1S THERE BEFORE WE CHECK DRIVE READY

MACY11
25-0(T1-78 13:12

ASSEMBLY ROUTINES

—

o~
N
N

—

(o]

015424
015432
015436
015442

002454
000200
000000

000003

000006

013700

002652

015472

012746

015506

012746
012746

010600

005640
012747
000007

104G17
062706

000006

015510
015512
015516

015516
015520
015524
015530
015534

005046
153716
012746
013746
012746

015550
015552
015554
015560
015560
01554
015570

010600
104017
062706

01550
015544

015572
015574

purqiurd

015604

012746
012746

012746
012746
010600

104017
062706

013700
104053

002000

208

-YES - GO DO TEST

BIS
BIC

#4 RS
#CRDYMSK ,RS

:LOAD RS WITH GET STATUS FUNCTION
“CLEAR CONTROLLER READY

WAITMS

SWAIT &4 MS

MOV

MOV
MOV
MOV
MOV
EMT
ADD

?RéNTF

EMT
ADD

PRINTF

MOV
MOV
MOV

003064

:LOAD CS REG

ERRVEC

#FMT2
, #DRVNAY
4

#DRVNAV
, = (SP)
#FMT
24 ,-(SP)
#2,-(SP)
SP_RO
CSPNTF
#6,SP

#ig;?.#BASADD,RLBAS.#DRVNAM.<B.RLDRV*1>
-

RLDRV+1, (SP)
#DRVNAM
= (SP)
RLBAS,-{SP)
ABASADD
, - (SP)
#FMTS
- (SP)
#5,-(SP)
SP,RO

COPNTF
214, ,SP

#FMT3

ADD

MO\

PSETNM,
RO

DODU

}

RS.,RLCS(R2)

#FMT3 - (SP)
#1,-(5p)
SP.RO
CSPNTF
24 ,SP

EMT

00000«

AGETSTAT ,RLDA(R2) :ELSE INSERT GET STATUS

ERRVEC RO
CSCVEC

CLRVEC

MOV

012127
000001

#DRDYMSK ,RLCS(R2S ;CHECK IF DRIVE IS READY

MOV
EMT

BISB
MOV
MOV
MOV
MOV
MOV

000074

SSET TRAP VECTOR

24 RO
CSWTM
#OPIERR,RLCS(R2):
TEST IF OP] SET
208
SN0 - SKIP

002455
005633
002450
005622
012143
00000°

ERRVEC,#TRPHAN,#$40

MOV
EMT
BIT
BEQ

PRINTF

108 :

SEQ 0061

;ACCESS BUS
:TRAP OCCUR??
SYES, DON'T INVESTIGATE FURTHER
*GET DRIVE NUMBER
< INSERT CONT READY
:LOAD IN DRIVE NUMBER

BNE

]

1-23

#340,-(SP)
#TRPHAN
= (SP)
ERRVEC,=(SP)
#3,-(SP)
CS$SVEC
#10,SP
RLCS(R2)
TRPFLG
5¢
RLDRV,RS
#CRDYMSK ,RS
RS,RLCS(R2)

BIT

<§:

- TRAP OCCURANCE

MOV
000000

PAGE

TRPFLG

MOV
MOV
MOV
MOV
EMT
ADD
TST
ST
BNE
MOV
BIS
MOV

000000

015464

104036

CLR

000000

000004
000200

16:20

SETVEC

000001

000004

—

(4)
(4)

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

032762

22-NOV-78

000010
000000
003070

012700
104026
032762
001452

(7)
(6)

104037

015446
015452
015454
015462

015476
015502

(11)
(11)
(10)
(9>
(8)

012746
013746
012746

001072
012762
052705
042705
010562

015414

(7))
(6)

(4)
(&)
1149

700340
016056
002652
000003

001032
013705
052705
010562

015470
015472

(3)

012746

376
0156400
0154064
015410

(3)
1148

(8)

003070

NOHOSHOO

SRy

—

d
d
od
d
D
b e
e

ViAW (241,]

372

005037

(¥

WD
~
(V.1
~ NOANWN N

NN = OO

S
Y
QP S

D e
d

T QR Y

D e
—d
b
—

e T

s QS S

cd —d

d ok

— —

1130
nNn
(7)

eolelelolololelolelel o

CZRL(B.PTT

30A(1052)

EMT
DOCLN

PSETAM
CIRODL

:DROP DRIVE

ASSEMBLY ROUTINES

CZRL(B.PT

(3)

1153
(3)
(3)

015606

015610
075610
015614

}}gg

015616

1157

015616

(3)
1158
1{%&
1160
1161

}}g%

25-0(1-~78 13:12

30A(105¢)

104044
013700
104036

015616
015620
015620

103004

015622
015626

005737
001001

015630

MACY11

20%:

102652

22%:

003062

003072

1170
1171
1172
1173
11764
}};Z

015640
015644
015650
015654
015660
015666

013705
052705
010562
012701
032762
001020

002454
000200
000000
000074
000001

1177
(3)
(3)
1178
1179
1180
(8)
(7)
(6)
(3)
(4)
(&)

015670
015670
015674
015676
015700
015702
015702
015706
015712
015716
€15720
015722

012700
104026
005301
001367

000012

012746
vi2746
012746
010600
104017
062706

005673
012747
000002

015636

001434

(%:

000000

9%:

SEQ 0062

CSDCLN

ERRVE(
ERRVEC RO
CSCVEC
JMANUAI

PASNUM
4%

INTERVENTION ALLOWED

;NO
;YES, CHECK PASS NUMBER
JNOT FIRST PASS, NEED DRIVI UP

;FIRST PASS, PROGRAM WILL

000006

015726

1183

015730

8%:

015730

ENDINIT

(3)
(3)
}}gg

015730
015730
015732

1188
;%gg

015732
015732

1191

015732

015736

015742
015746

000673

ENDMOD
BGNMOD
BGNCLN

012746

013746
012746

PWRFLG

MOV
BIS
MOV
MOV
BIT
BNE

RLDRY,RS
sDRIVE SELECT
#CRDYMSK ,RS
;SET _CRDY
RS,RLCS(R2)
;SELECT DRIVE
#60. R1
¢SIXTY SECOND TIMER
#DRDYMSK ,RLLS(R2)
;DRIVE UP YET

JNEEDED???

:NO, SKIP

JYES START TEST

JWAIT A SECOND

;SIXTY GONE BY
;NO

L10014:

104011

(2746

TST

BEQ

WAITMS
#10.
MOV
#10. RO
EMT
(SWTM
DEC
R1
BNE
9%
PRINTF #FMT24 ,ANOPWR
MOV
#NOPWR
, - (SP)
MOV
HFMT24 ,-(SP)
MOV
#2,-(SP)
MOV
SP,RO
EMT
CSPNTF
ADD
#6,SP
BR
10%

}}g;

(6)

1-24

:CHECK 1F POWER FAILURE WAIT IS NEEDED
005737

(5)
(4)

CLRVEC
MOV
EMT

TST
BNE

000437

015632

(7)

EMT

PAGE

EMT
CSMAN]
BNCOMPLETE
BCC
43

1767

1184
1185

16:20

MANUAL

104051

}122
}}gg

22-NOV=-78

000340

016056

002652
000003

EMT

C$INIT

CLNCODE
SETVEC

MOV

MOV
M~V

ERRVEC,#TRPHAN,#340

#360,-(SP)

#TRPHAN,
= (SP)

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

INSTRUCT USER

(3
(2)

015752
015754

ASSEMBLY ROUTINES
A
MACY11
CZRLCB.PTY
25-0(1-78 13:12

015760
015760
015764

SyuunCMNLMSyDCDCMmuNEEJuuqzqacug<yg
oo~ N

— ed e
.
N
U
U
G
NI
QY
— e —d —b
——t
NONBNLNLNLNONY
~[AN1aSIAN LN ToN1a0 1,0 1,8 10 1 S L W N B 1,81 ST, S PN S PEN N BT, 01,9 1,8 PO . § 1 e
ALNLNLNINLNONDN ok =D b D 3
b =
(NN oleole]
AWV W= O~ VOO NN
NN = O~
000N
SN Nt A\ N AN =3 o v Nt

—d e

i S

d d ad b

1192
1193

104037

062706

015766
015774

015776
016004
016012
016014
16014
016020

SETPR] #7
MOV
#7,R0

j
00000

000000

002454
000001

0G0000
000000

013700
104036
005737
001402
005337

002452
003072

013700

002652

2%:

3%:
S%:

7%:

016052
016052
016054
916054
016054

L10015:

104012

B8GNDU

000240

ENDDU
L10016:

104055

16056
016056
016056
016062

ENDMID
BCGMOD

005237
600002

003070

TRPHAN:

016064

BGNSRY

002466
002470
002472
002474
177777
002450

002430
ENDSRV

L10017:

027737

164532

014666

(KERLM:

1-25

SEQ 0063

CSSVEC
#10,SP
JSET PRORITY TO 7

EMT
BIT
BEQ

CS$$PRI
#CRDYMSK ,RLCS(R2)
JTEST IF CONTROLLER READY
3%
cNO LOOP UNTIL READY

WAITMS
MOV
EMT

#3
#3,R0
CSWTM

MOV

RLVEC,RO

BIS
BIT
BNE

CLRVEC

£MT

003072

PAGE

000007

ENDCLN

016050

16:20

EMT
ADD

000003

104036

22-NOV-78

000010

012700
104026

30A(1052)

RLDRV,RLCS(RZ)
;SET DRIVE NUMBER
#DRDYMSK ,RLCS (RS
JTEST IF DRIVE BUSY
5%
;NO - SK]IP
JWAIT 300 MS

RLVEC

cscvec

JRELFASE VEC

TST
8EQ
DEC

PWRFLG
7%
PWRFLG

MOV

ERRVEC,RO

CLRVEC

EMT

;PWR FAIL SET
sNO

ERRVEC

C$CVEC

($CLEAN

NOP

EMT

C$DU

GLBSUB

INC

RTI

TRPILG

INTHLR

INTERRUPT HANDLER. ABORTS WAIT TIMER AND STORES ALL RL11 REGS

ABORTWAIT

EMT
MOV
MOV
MOV
MOV
MOV
MOV

C$ABRT
(R2)+,T.CS

;STORE RL REG]STERS

#-1,DONE

;SET DONE FLAG

(R2)+,7.BA
(R2)+,T.DA
(R2),T.MP

RLBAS ,R2

JRESTORE RZ2

RT]

ERROR LIMIT CHECKING ROUTINE

DROPS DRIvE
(MP

IF ERROR L IMIT EXCEEDED

aERRPOINT ,ERL IMW

STEST

ERROR LIMIT EXCEEDED

ASSEMBLY ROUTINES
T%C Y1 1
212
CZRLCB.PT
25-0CT1~78

1231
1232

016130

(3)
1233
(2)
1234

16:20

002453

8LT

104020

EMT

CSINLP

012746
013746
012746
012746

(3)

010600
104017
062706

(4)

005046
153716

012746
013746
012746
012746
012746
010600
104017

016240
016242

016244

m 5
PAGE 1-26

22-NOV-78

INLOOP

011571
014666
012754
000003

B1SB

RLDRV+1, (SP)

MOV

#BASADD
, - (SP)

062706

000004

013700

003064

016237
016237
016237
016237
000207
011646

MOV
MOV

000002
000200

HFMTS,-(SP)
#5,-(SP)

MOV

EMT

SP,RO

ADD
PRINTF

MOV
MoV
MOV
EMT

ADD
DODU

MOV

EMT
DOCLN

1%:

000000
000002
000004
000006

#DRVNAM,
- (SP)
RLBAS,-(SP)

MOV
MoV

002466
002470
0024772
002474

READRL:

WAITIN:
000000

EMT

RTS

WAIT
MOV
CLR

TST

006013
002000

000002
002466

006032

000002

1%:

CSPNTF

#16,5P
#FMT3

HFMT3,
- (SP)
#1,-(SP)
SP,RO
CSPNTF
#4 ,SP
PSETNM
PSETNM,RO

C$DODU

C$DCLN

BEQ

MOV

BIT
BEQ

MOV

;DROP DRIVE
;GO TO CLEAN UP

READ AND STORE ALL RL11
RLCSR(R2),7.CS
MOV
MOV
RLBA(R2) ,T.BA
MOV
RLDA(RZ) ,T.DA
MOV
RLMP(R2) ,T.MP
RTS
PC

BIT
BEQ
JSR

016262
002430

001403
012766

CSPNTF

002455
005633
002450
005622
012143
000005

012127
000001

016262
016270
016276
016304
016312

EMT

#10,SP
#ig;;,#BASADD.RLBAS.#DRVNAM.(B.RLDRV01>

012746
012746
010600
104017

104044
000207

IN ERROR LOOP

ADD
?fiéNTF

000014

104053

sNO - SKIP

sCHECK IF

000010

062706

016250
016250
016254
016256
016256
016260

SEQ 0064

BCOMPLETE
1%
JYES = SKIP
BCS
1%
PRINTF
#FMT2
ERL IMW,AMEXERS
5
MoV
#MEXERS
, - (SP)
MOV
ERL IMJ,~(SP)
MOV
HEMT25 ,-(SP)
MOV
#3,-(SP)
MOV
SP,RO

103451

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

1235
an
an
(10)
(9
(8)
(7)
(6)
(3)
(4)
(4)
1236
(7)
(6)
(3)
(4)
(4)
1237
(3)
(3)
1238
(3)
1239
1240
1241
1242
1243
1244
1245

30A(1052)

REGISTERS

;GET
;GET
;GET
;GET

CS REG
BUS ADDRESS REG
DISK ADDRESS
MULTI-PURPOSE REG

sRETURN

FOR CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUTINE
(SP) ,-(SP)
.MAKE ROOM FOR ERRNR POINTER

2(SP)

: CLEAR FOR _POINTER

sNO - SKIP TO WAIT

#CRDYMSK ,RLCSR(R2)
PC,READRL

DONE
5%
#MTOSLOW,2(SP)
#OPIERR,T.CS

#MDRRES,2(SP)

;TEST IF CONTROLLER READY

JREAD ALL RL REGS

JTEST IF INTERRUPT OCCURRED
sNO = GO_SET NO INTERRUPT ERR FLAG
;ELSE SET TO SLOW ERROR POINTER
JTEST IF OP] SET
:NO - SKIP
;SET MESSAGE FOR NO DRIVE RESPONSE

ASSEMBLY ROUTINES

CZRL(B.PT1

1260

016370

MACY11

25-0C1-78 13:12

000207

016372
016372
016376
016400

1264
1265
1266
1267
1268
1269
1270
}S;%

016410
016414
016422
016424
016430
016432
016436
016444

012700
104026
032762
001006
004737
012766
000762
005737
001345
004737
012766
000751

1273
1276
1275
1276
;g;g

016446
016452
016456
016462

005037
105037
005037
000207

002426
003067
002436

016464

013746

002550

1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
(3)
(3)
1302
1303
1304
1305
1306
1307
1308

1309

}%1?

016406

016470
016476
016500
016504
016512
016514
016520
016524
016526
016532
016534
016542
016550
016554
0€16556
016560
016566
016574
016576
016604
016606
016606
016612
016614
016620
016624
016626
016634
016636
016644

016646

012737
000412
013746
012737
000404
013746
005037
010346
013703
005723
016663
162763
010337
010046
010146
012737
032737
001453
032762
001403

012700
106026
012701
004737
017260
032737
001051
032737
001010

032737

22-NOV-78

2%:

1261
(3)
(3)
1262

1263

30A(1052)

4%:

900003
000200
016262
006115

000000

016262
036062

3%:

000002

002550

002550
000003

002550

002424
000004
000004
002424

5%:

:
TSTINT:

000013

002260
002260

000002
000010

002440
002550

040000

000000

000003

000062
016514
000001

002466

000020

002474

144000

002474

RTS

PAGE

1-27

SEQ 0065

JRETURN

;YES - SKIP

WAITMS
MOV
EMT
BIT

#3
JWAIT 300 MS FOR TIMEOUT
#3,R0
CSWTM
#CRDYMSK ,RLCS(R2)
sTEST IF READY NOW SET

JSR
MOV
BR
157
BNE
JSR
MOV
BR

PC ,READRL
A#MCONHNG,2(SP)
2%
DONE
1%
PC ,READRL
#MNOINT ,2(SP)
2%

BNE

000002

002430

16:20

JREAD RL REGS
;SET MESSAGE FOR CONTROLLER HUNG
1SKIP
:ELSE CHECK IF INTERRUPT OCCURRED
sYES = SKIP TO SET TO SLOW
:READ RL REGS
;ELSE SET NO INTERRUPT FLAG
:GO TO RETURN

OPERATION AND TEST INITIALIZE ROUTINE
CLR
OPFLAG
;CLEAR OPERATION FLAGS
CLRB
NOERCT
JRESET INHIBIT ERROR COUNTING
CLR
MORE CE
JRESET MORE COMPARE ERRORS
RTS
PC

;
GET STATUS AND GET STATUS WITH RESET ROUTINE
GSTATR: MOV
TEMPS - (SP)
:STORE TEMP4

MOV
BR
GSTATC: MOV
MOV
BR
GSTAT:
MoV
CLR
GSTATG: MoV
MoV
TST
MoV
SuB
MoV
MOV
MOV
MOV
BIT
BEQ
BIT
BEQ
WAITMS
MOV
EMT
49%:
MOV
508%:
JSR
3%
8IT
BNE
BIT
BNE

BIT

#GETSTAT !DRSET, TEMPS
GSTATG

JSET FOR RESET

TEMPS ,-(SP)
HGETSTAT ,TEMP4
GSTATG
TEMP4 ,~(SP)

;STORE TEMP4
;SET FOR NO RESET

TEMPS

;SET FOR_SAVE L. AND T.

RO,-(SP)

sSTORF RO

;STORE TEMP4
REGS

R3,-(SP)
;STORE R3
SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
:BUMP IT FOR NEXT ENTRY
4 (SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3) ~ ;ADJUST IT TO CALLING LOCATION
R3.SSINDX
.
:STORE IT BACK
R1,-(SP)
#2 ,ERRSW]
#DRSET, TEMP4

;STORE R1
;SET FOR NO ERROR RETURN
;TEST IF DRIVE RESET
118
:NO - SKIP
#DRVERR RLCS(R2) ;TEST IF DRIVE ERROR SET
(9%
;NO
= SKIP
43
JWAIT FOR 300 MS FOR DRIVE
#3,R0O
CSWTM
#50. ,R1
;SET WAIT FOR 5 SEC
PC,GSTAT
.GET DRIVE STATUS
#DRDYMSK,T.CS
5%
#HOSTAT,T.MP
51%

TO SETTLE

;TEST IF DRIVE READY
:YES - GO DO CLEAR
ELSE TEST IF HEADS OUT
YES = BYPASS RELOAD WAIT FLAG SETTING

lSPDSTAT'HCESTAT'WDESTAT T.MP ;TEST IF DRIVE HAS ERROR
THAéAgAUSED HEADS TO
s UNL

ASSEMBLY ROUTINES
HAC¥11
CZRLCB.PTT
25~0CT-78 13:12

1312
1313
1314
1315
1316
1317
(3)
(3)
1318

016654
016656
016664
016666
016674
016676
016676
016702
016704

012700
104026
005307

000001

1320

016710

012703

011445

1319

016706

1321
(3)
(5)
(5)
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335

016714
016714
0167216
016720
016722
016724
016730
016732
016736
016742
016744
016746
016750
016756
016760
016766
016766
016772

1337
1338
1339
1340
(3)
(3)
1341
1342
1343
1344
1345
1346
1347
1348

017006
017014
017022
017030
017030
017034
017036
017042
017044
017052
017060
017066
017070
017076

1350

017104

1336

1349

1351

1352
(3)

(3)

1353
1354
1355
135¢
1357
1358

017000

017100

017112

017114
017114

017120

017122
017124
017126
017132
017134
017140

001441
052737
000435
032737
001031

001344

30A(1052)

040000

002426

040000

002466

104443
023421
013040
000554
005737
001013
012701
012703
014346
005301
001375
012737
000403
013737

000004
002466

8%:

002462

002550

002462

005037
013737

002430
002454

002456

052737
013762
013762

000104
002462
002456

012700
104027
005737
001476
013737
042737
032737
001474
032737
001424

000001

002000

002430

040000
.

002426

032762

,000001

000000

012700

000001

104026

005301
001367
004737
017260
012703

Q#1130

016514
011512

4$:

13$:

PAGE

1-28

SEQ 0066

BEQ
BIS
BR
BIT
BNE
WAITMS
MOV
EMT
DEC

5%
WRELDWT,OPFLAG
5$
ADRVERR,T.CS
5%
#]
#1.R0
CSWTM
RI

;:DEC

MOV

WMUNDEF ,R3

:MESSAGE FOR UNDEF INED STATE

508

:NO = SKIP
:ELSE SET WAIT FLAG
:SKIP TO CLEAR
-TEST IF DRIVE EPROR NOW
:YES - SKIP TO CLEAR
:WAIT FOR DRIVE TO GET ERROR, RDY, OR HO
JAIT COUNTER

:1F NOT DONE, LOOP

ERRHRD 10001., .ERR1
TRAP
TSERCODE
.JORD
10001
.WORD
ERRI
BR
148
TST
TEMP4
BNE
5¢
MOV
4R
MOV
#L.MP+2,R3
MOV
-(R3),-(SP)
DEC
RI
BNE
8%
MOV
AGETSTAT,L.DA
BR
6$
MOV
TEMP4,L .DA

SEXIT
TEST IF SAVE REGISTERS
INO_SKIP
SET SAVE COUNT
:SET ADDRESS OF FIRST SAVE
:PUT REG ON STACK
:DEC_COUNT
sLOOP UNTIL ALL SAVED
:SET FOR GET STATUS
SKIP
s INSERT PRESET FOR STATUS

(LR
MOV

:CLEAR INTERRUPT FLAG
SET UP TO GET STATUS

BIC

002456
000004
000000

002502
002502
002462

00101y

5S%:
6$:

002456

002474
177770
000010

012701

518:

16:20

BNE

000003

042737

22-NOV-78

BIS
MOV
MOV
WAITUS
MOV
EMT
TST
BEQ
MOV
BIC
BIT ~
BEQ
BIT
BEQ

DONE
RLDRV,L.CS

#81710,L.CS

:CLEAR FOR DRIVE 4 - 7 SPEC'D

WGTSTAT,(.CS
L.DA,RLDA(R2)
:LOAD RL REGS
L.CS.RLCSR(R2,
:LOAD (S REG
#1
WAIT 100 US FOR INTERRUPT
#1,RO
CSWTU
DONE
;CHECK IF INTERRUPT OCCURRED
1%
INO = SKIP
T.MP,T.STAT
:STORE MP REGISTER
#*C<STAMSK>,T.STAT ;CLEAR ALL BUT STATE
MDRSET,L.DA"
~~ ;TEST IF RESET WAS SPECIFIED
3%
INO - SKIP TO EXIT
ARELDWT,OPFLAG
:TEST IF RELOAD WAIT FLAG SET
128
INO - SKIP

MOV

#600. ,R!

*SET WAIT COUNT FOR 60 SECONDS

BNE

128

;YES = SKIP

BIT

ADRDYMSK,RLCS(R2}

WAITMS
MOV

&1
41,R0

DEC
BNE
JSR
3%
MOV
ERRHRD

R]
138
PC,GSTAT

EMT

(SWTM

#4'"LFAL,R3
10003.
, ,ERR]

;TEST IF DRIVE NOW READY

ZCALL WAIT

:DEC_COUNT
1LOOP IF NOT 0
:GET DRIVE STATUS
*ERROR RE TURN
SET RESULT MESSAGE POINTER

ASSEMBLY ROUTINES

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
1376
1377

(3)
(5)
(5)
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
139
1397
1308
1497
1498
1499
1500
1501

017140
017142
017144
017146
017150
017150
0171564
017156
017162
017164
017172
0171764
017202
017204
017210
017212
017220
017222
017222
017224
017226
017230
017232
017236
017240
017266
017246

017246
017250
017252
017254
017260
017264
017266
017272
017276
017300
017302
017304
017312
017314
017316
017320
017324
017330
017332
017336
017340
017344

017346
017350
017354
017356
017364

MACY11

25-0CT~78 13-12

30A(1052)

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

22-NOV-78

128:

000012
016514
100000

002666

001000

002474

040000

002466

7$:

104443
023424
013342

000411
012703

000403
004737

012603

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

012601
012600

012603
012637
005737
001403
063716
000207
017616

000207

019346
013703
005723
016663
162763

TRAP
.WORD
.WORD
BR
WAITUS
MOV
FMT

9%:

016314

18
2%

002440
002550

148:
3%:

002456
000004
208:

000002

002424

22%:

002550
002440
002440

TSERCODE
10003
ERRI
148
#10.
#10. ,RO
CSWil

SEO 0067

‘
;GO TO EXIT
“WAIT FOR 1MS

WANYERR,T.CS
3
#VCSTAT,T.MP

TEST IF ANY ERROR
NO - SKIP
:CHECK IF VOLUME CHECK RESET

MOV
BR
BIT
BEQ
ERRHRD

#VCNRST ,R3
2%
#DRVERR,T.CS
0
10004.
, ,ERR6

*SET REASON POINTER
CEXIT
-CHECK IF DRIVE ERROR
INO - SKIP

BR
MOV

BR
JSR

TSERCODE
10004
ERR6
.
148
WUNXERR ,R3
2%
PC,WAITIN
(SP)+,R3

MOV
ERRHRD 10002:, ,ERR1
TRAP
TSERCODE
JWORD
10002
.WORD
ERR1
(LR
ERRSWI
TST
TEMP4
BNE
22%
MOV
#L.CS,R3
MOV
#4 R
MOV
(SP)+, (R3)+
DEC
R
BNE
208
SUB
#2,SSINDX

MOV
MOV
MOV
MOV
1ST
BEQ
ADD
RTS
MoV
RTS

998:

002424

SIMSEK: MOV
MOV
TST

002260
002260

1-29

:GET DRIVE STATUS

000000

000002
000004

PC,GSTAT

TRAP
.WORD
.WORD

006202

PAGE

e
38
BIT
BEQ
BIT

BEQ

00616"

16:20

MOV
SUR

(SP)+.R1
(SP)+.R0O

YES SKIP

_
SEXIT
*SET REASON POINTER

CEXIT
*WAIT FOR INTERRUPT

*STORE REASON POINTER FOR RETURN

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

(SP)+.R3
(SP) +. TEMP4
ERRSW]
99%
ERRSWI , (SP)
pC
A(SP), (SP)

;SET ERROR RETURN ADDRESS

R3,=(SP)
SSINDX,R3
(R3)+

;STORE REGISTERS
*GET SUBROUTINE INDEX
:BUMP IT FOR NEXT ENTRY

;RESTORE R3
‘RESTORE TEMP
*TEST IF ERROR RETURN
YES - SKIP
ACD IN ERROR RETURN

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

ASSEMBLY ROUTINES

D a2
a

O\O@VOMl\WNdoom\lOmwadOS

WWWWNINNNNNMNINININ)
D

W)
—

Y
s N

b ol —
—

0~~~
H W= O

vhon Y

IR N 2 A 1 N

NV, LV TV LV IV LV A

T (S

IV W TV LV L

ST W

VL W, IV, [V, LWL LV, TV, TV, TV, [V, TV, TV, IV, [V, |

CZRL(B LTI

MACY11
2500178 13:12

017372
017376
017400
017402
017410
017414
017416
017422
017426
017432
017436
017440
017444
017450
017452
017454
017456
017462
017464
017470
017474
017476
017502
017506

017512
017516

017522
017526
017532
017536
017540
017542
017544
017544
017550
017552
017554
017560
017562
017562
017564
017566
017570
017574
017574
017602
017604
017606
017610
017614
017616
017622
017624
01763C

010337

30A(1052)

22-NOvV-78

002424

010046

010446
012737

000002
017632

MOV
MOV

MOV

002440

MOV
JSR

65%

002456
000106

002530

000007

002532
000004
002534

5%:

000020
000001
002430
000012
000004
000002
000000
002430

7%:

1C$:

005301

001404

012700
104027
000767
004737
012603

000001

016314

14%:

104443

162737

000002

012604

002424

14%:

STEST

TST
BEQ

BIS
BIS
CLR

000000

9%:

#L.CS.RG
#SEEK
. (RG)
RLDRV . (R4)

#81T10, (RG)+

R3
3
5S¢

#DIRBIT, (R4)

DE SHD
7%

AHDSEL
, (R4)

MOV
MOV
MoV
MOV
TST

AMBSETO,
(R4 +
DONE
#10. ,R1
- (R4S ,RLDA(R2)
-(R4) .RLBA(R?)
-(R4) .RLCS(R2)
DONE

BEQ

R1
13s

BNE
DEC

WAITUS
MOV
EMT
BR

JSR

MOV

.WORD
. WORD
CLR

SuB

BEQ

002440

017616
000207

DESSGN

BEQ
BIS

MOV
MOV
MOV
TST

002440

;SET FOR NO ERROR RETURN
;C4ECK IF DRIVE READY

TST

DEC
BNE

TRAP

002440

R4 ,~(SP)
#2 ,ERRSW]
PC,RDYCHK

;STORE IT BACK

MOV
ASL

ERRHRD

023433
013040
005037

R3,SSINDX
RO,=-(SP)

SEQ 0068

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

BIS
BIC
CLR
MOV

002000

0 6
PAGE 1-30

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

MoV
MOV

002454

005037
012701
014462
014462
014462
005737
001G16

16:20

ADD
RTS
MoV

RTS

65%

#
#1,R0

CSWTU
108

PC,WAITIN

(SP)+.R3
10011, ,ERR1
T$ERCODE
10011
ERR1
ERRSW]

#2,SSINDX
(SP)+,R&
(SP)+,R0O
(SP) +,R3
ERRSWI

99%

ERRSUI.(SP)

C
a(SP), (SP)

SIGN SET

;NO - SKIP
; INSERT SIGN
;TEST IF HEAD O
cYES - SKIP
s INSERT HEAD BIT
: INSERT MARKER BIT
:CLEAR INTERRUPT FLAG

;SET WAIT COUNT FOR 800US

;LOAD RL REGISTERS

;CKECK IF INTERRUPTED
JYES = SKIP
;DEC WAIT COUNT

JIF 0 = SKIP

;GO CHECK DONE
G0 WAIT FOR TIMEOUT
JGET RESULT MESSAGE POINTER

:CLEAR FOR £RROR ERROR RETURN
;REMOVE ENTRY FROM SURROUT STACK

JRESTORE REGS

JTEST IF ERROR RETURN
JYES = SKIP
;ADD IN ERROR RETURN
sSET ERROR RETURN ADDRESS

DRIVE READY TEST ROUTINE.

CHECKS DEIVE

IS READY.

NOT, wAj-

ASSEMBLY ROUTINES
CZRL(CB P11
25-0C7-78

1629
1639

30A(1052)

22-NOv-78

16:20

PAGE

1-31

SEQ 0069

S00MS F OR_READY TO SET.
R3,-(SP)
sSTORE REGS
MOV
SSINDX .R3
;GET SUBROUTINE INDE»
TST
(R3)+
JBUMP IT FOR NEXT ENTRY
MOV
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK (R3)
Su8
JADJUST IT TO CALLING LOCATIUN
R3,SSINDX
;STORE 1T BACK

RDYCHK: MOV

17632

017634

000002
000004

002260
002260

RO,-(SP)

012700
104027
005301
001364
012703
012704

000002
011610
016514

002440

000001

002466

R1,-(SP)
R4 ,~(SP)
#2 ,ERRSWI

1%:

012700
104026
005301
001364
032737
001405

WAITUS

00¢"01

MOV

EMT
DEC
BNE

010711
011755

MOV
MOV

ERRHRD
TRAP

.WORD
. WORD

000062
016514

000001

2%:
002466

000001

100000

MCV

JSR

4%
BIT
BNE
WA TMS

MOV

002466

3%:

104443

023433
013342
005337
005037

PC,.GSTAT

#DRDYMSK ,T.(S

104443

023432
013272
012701
004737
020626
032737
001005

”5000-0R1

EMTY
DEC
BNE
BIT
BEQ
ERRHRD
TRAP

002662
002440
000002

002424

4%:

5%:

.WORD
. WORD
DEC
CLR

L3
#1,R0

CSWTU

017616
000267

002440
000000

#50. ,R1

JSET

#DRDYMSK ,T.CS

;TEST IF DRIVE
JYES - SKIP

ERRS

PC.GSTAT

1
#1,R0
(SWTM
R1

#ANYERR,T.(S

10011,
, ,ERR6E
TSERCODE
10011
ERR6
ERRCNT
ERRSW]
#2.SSINDX
(SP)+ R4

ERRSUI.(SP)

99%:

;TEST IF DRIVE READY
JYES - EXIT

;DEC WAIT COUNT
2LOOP IF NCT O
JSET RESULT MESSAGE POINTER
JSET CONDITION MESSAGE POINTER

(SF)+ R0
(SP)+ ,R3
ERRSWI]
99%

002440

;SET WAIT COUNT
;GET DRIVE STATUS

R1
1%
#MDRDY ,R3
#C500MS
R4
10010., ,ERRS
T$SERCODE
10010

(SP
¢+ R1
)

001403
063716
000207

;SET FOR _NO ERROR RETURN

<P, (5P)

WAIT

COUNT

FOR 5

;GET DRIVE STATUS

SECONDS

READY

JWAIT FOR 100MS

;DEC WAIT COUNTER

JOP UNTIL TIME DONE
.TEST ]F ANYERR SET

JREPORT ALL ERRORS

REDUCE ERROR COUNT FOR DUAL

:(_EAR FOR ERROR RETURN

ERRORS

REMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGS

JTEST

JYES =

ERROR RETURN

SKIP

;ADD IN ERROR RETURN
sSET ERROR RETURN ADDRES"

ASSEMBLY ROUTINES

CZRLCB.PT1

1675
1718

1719
1720
1721
1722
1723
1726
1725
1726
1727
1728
1729

1742
17643
1744
1745

1746

“747
1748
1749

1750
1751
(3)
(3)

1752
1753
1756

1755
1756
1757
1758
(3)
(5)

020072
020100
020102
020106
020110
020114
020116
020124
020132
020136
020140

012737
000402
005037
010346
013703
005723
016663
162763
010337
010046
010146

(5)
1759
1760
1761
1762
1763
1764
1765
1766

1767

010446
012737
005737
001007
012703
012701

020170
020172
020174
020176
020202
020204

014346
005301
001375
004737
020436
005037

020210
020214
020220
000224

012701
013711
042711
052721

020230

005uc1

020232
020234
020240

005021
014162
014162

020244
020250
020250
020054

014162

012700
104027

020256
020062
020264

005737
001435
032737

020272
020274
020300
020304
020304

020306

020310
020312
020316
020322
020324
020332
020334

30A(1052)

000001

002550

25-0CT-78 13:12

1730 020142
1731
000144
1732020152
1733
020156
173,
020160
1735
020164

1736
1737
1738
1739
1740
1741

MACY11

001033
012703
012704

002550
002424

000002
000004
002424

062260
002260

000002
002550

002440

002466
000004

22-NOV=78

;

XRDHDC:

28:

002430

002456
002454
002000
000110

000012
002430

Q00001

002466

S$:

010711
011774

104443

023441

013272
012701
004737
020432
032737
001403
005037

020340 000410
020342 3005301

020344 007364

t
:

000062
016514
000001

MOV
MOV
ST
BNE
MOV
MOV

4$:
002466

002440

SEQ 0070

#1,TEMP4
:SET FLAG TO BYPASS REG STORAGE
XRDHDG
$G0 DO IT
TEMP4
:SET FLAG TO SAVE T. AMD L. REGS
R3,=(SP)
:STORE REGISTERS
SSINDX,R3
:GET SUBROUTINE INDEX
(R3)+
:BUMP 1T FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL
#4 ,SUBSTK (R3)
sADJUST IT TO CALLING LOCATION
R3SSINDX
:STORE IT BACK
RO,=(SP)
R1.-(SP)

R&4.=(SP)
#2.ERRSWI
TEMPS
7S
#L.MP+2,R3
A4 ,R1
=(R3),=(SP)
R
18
PC,RDYCHK

:SET_FOR NO ERROR RETURN
:TEST IF REGISTERS TO BE SAVED
INO - SKIP
:SET POINTER FOR REGS
SSET_COUNT
:SAVE REGISTER
:DEC_COUNT
:LOOP UNTTL ALL ARE SAVED
:CHECK DRIVE READY

DONE

:CLEAR_INTERRUPT FLAG

AL.CS,Ri
RLDRV,(R1)
#BIT10,(R1)
WRDHEAD,(R1)+

(LR
MOV
MOV

R+
=(R1),RLDA(R2)
-(R1).RLBA(K)

MOV
WAITUS
MOV
EMT

(RD)+

=(RT)JRLCSR(RD)
#10.
#10..RC
Cswil

:GET ADDRESS OF LOAD REGS
:LOAD DRIVE NUMBER
:CLEAR FOR DRIVE 4 = 7 SPEC'D
:INSERT COMMAND

:CLEAR BA

:CLEAR DA
:LOAD RL11

.
;WAIT

REGS

1MS FOR INTERRUPT

TST
BEQ
BIT
BNE
MOV
MOV
ERRHRD
TRAP ~
.WORD
_WORD
MOV
JSR
608
BIT
BEQ

ERRS
450, ,R1
P(,GSTAT

:SET WAIT COUNT FOR 5 SECONDS
“GET STATUS

WDRDYMSK,T.(S
1%

BR
DEC

ERRSW]

:TEST IF DRIVE HAS COME READY
INO = SKIP

:CLEAR ERROR SWITCH

108
R’

ISKIP
:DEC WAIT COUNT

(LR

"'$:

6
1-32

MOV
DEC
BNE
JSR
65%
CLR
MOV
MOV
BIC
BIS

000004
000002
000000

PAGE

READ HEADERS ROUTINE.

MOV
BR
XRDHD:
CLR
XRDHDG: MOV
. MOV
ST
MOV
SUB
MOV
MOV
MOV

1$:

017632

16:20

BNE

DONE
14
WDRDYMSK,T.(S

108
AMDRDY,R3
MCAFDT.Ré
10017,
; ,ERRS
TSERCOBE

;TEST IN INTERRUPT FLAG SET
INO = SKIP

:TEST IF DRIVE READY
SYES - SKIP
:SET NO READY MESSAGE
:COMDITION OF AFTER DATA XFER

10017

:L00P UNTIL

TIME DONE

MACY11 30A(1052) 22-NOV-78 16:20 PAGE G1-3?

ASSEMBLY ROUTINES
CZRL(B.PTT
25-0C1-78 13:12

1768
1769

020346

(3)
(5)
(5)
1770

012704

012006

177

1772
1773

100004

(3)
(5)
(5
1774
1775
1776
1777
1778
1779

002466

10%:

104443

023440
013342
000415
012701
016221
016221
000419
004737
012603

00247¢
00000¢
000006

12%:

01634

33
LXK 3338
g L383332

—

)

104443

023437
013040
005037
005737
001007
012703
012701
012623
005301
001375

020514
020520

162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

013705
000402
013705
010146

000207

TRAP

TSERCODE

002440
002550

0%
£5%:

002456
000004

000002

2C$:
(2424

(2%:

002440

0062440
J00000

10014
ERRS
60%

TRAP

T$SERCODE

TST
BPL
ERRHRD

002474
002474
177677

T.CS
12%
10016.
., ,ERRS

. WORD
.WORD
BR
Mov
MOV
MOV

10016
ERRG
¢0%

JSR
MOV
ERRHRD

PC,WAITIN
(SP)+ _R3
10015., .ERR1

B8R

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

55%

T$ERZODE

JSET CONDITION AFTER S SECONDS

JEX]T
;CHECK FOR ANY ERRORS
;NO - 3KIP
JREPORT ALL ERRORS

;GET POINTER
:STORE LAST TWO HEADER WORDS

JEXIT

JWAIT FOR INTERRUPT
JGET RESULTS
JREPORT

.WORD
.WORD
CLR
TST
BNE
MOV
MOV
MOV
DEC
BNE
SUR

10015
ERR1
ERRSWI]
TEMPS
22%
#L.C(S,R3?
#4 R
(SP)+,(R3)+
R1
20%
#2,SSINDX

MOV
TST
BEQ

(SP) +,R3
ERRSW]
99%

JTEST IF ERROR RETURN
JYES - SKIP

g?g

géSP).(SP)

JSET ERROR RETURN ADDRESS

MOV
MOV
MOV

322

99% :

10014., ,ERRS

LWORD
.WORD
BR

TRAP

000006

020556

#CSSEC,RG

ERRHRD

104443

023436
013272
000424
005737

MOV

SEQ 0071

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

E?RSWI.(SP)

.CLEAR FOR ERROR ERROR RETURN
JTEST IF REGISTERS WERE SAVED
;NO - SKIP

JSET POINTER TO RESTORE REGS
JSET COUNT
JRESTORE REGISTER

sDEC COUNT
cLOOP UNTIL ALL ARE RESTORED
;REMOVE ENTRY FROM SUBROUT STA(K
;RESTORE REGS

JADD IN ERROR RETURN

.
POSITION HEAD BIT FROM HEADER GOr MULTIPURPOSE REGISTER TQ LSB.
POSHW1: MOV
HDWRD1 ,RS
JSTART FOR POSITION HD BIT IN WD 1
RR
PCSHDO
JSK]IP
POSHSB: MOV
T.MP,RS ;START FOR POSITION HD BIT IN MP

POSHDO:

MOV

R1,-(SP)

;STORE

#6,R1

JSET SYIFT COUNT

BIC

#* HSSTAT RS

ASR
DEC
BNE

RS
R1
1%

MOV

RTS

;CLEAR ALL BUT HEAD SEL BI]T

JSHIFT FOR RIGHT JUSTIFY

(SP)+ R1

JRESTORE

2RE TURN

ASSEMBLY ROUTINES
Tg( \ 1
:12
CZRLCB.PT
25-0C71-78

020560

30A(1052)

RDYWAIT:

002424

000002

22-NOV-78

002260
002260

16:20

PAGE 1-34

SEQ 0072

WAIT FOR READY ROUTINE. DURATION CF
FROM THE CALLING ROUTINE IN R1.

WAIT PASSED

TO THE ROUTINE

MOV
R3,-(SP)
. STORE R3
SSINDX ,R3
;GET SUBROUTINE INDEX
(R3)+
JBUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ,INSERT THIS CALL
#4 ,SUBSTK (R3)
sADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE IT BACK
RO,=(SP)

R1.,-(SP)

D
b e
=2 = (NN = =
N

—_—
b
d ok
D
—d o

NN N = =

OO0~~~
OV OOV OVO~~~ 00

—_,— g

SR COSZARANT 02530088832 ot

1901

000002
016514

002440

000001

0C2466

5¢:

R4 ,~(SP)
#2 ,ERRSW!
PC.GSTAT
#DRDYMSK ,T.CS

001404

012700
104027
000763
012703
104443
023444
013154
012701
004737
020762
032737
001013
012700
104026
005301
001364
012704

000001
010711

7%:

000001

6%
002466

< SET NAME MESSAGE PTR

#50. ,R1

JSET WAIT FOUNT FOR 5 SECONDS

#DRDYMSK ,T.CS

JTEST IF DRIVE READY
.YES - SKIP

#1,R0
CSWTM
R1
6%

JDEC WAIT COUNT
;LOOP UNTIL TIME DONE

PC,GSTAT

000001

012606

#C5SEC,R4

10021., ,ERRS
TSERCODE
10021

ERRS
100000

002466

0026¢2
002449
000002

002424

10¢:
9%
:

;REPORT READY ERROR

;GET DRIVE STATUS

JWAIT 100 MS

JSET CONDITION AFTER 5 SECDS

118

JEXIT

10%
10022.
, ,ERR6
TSERCODE
10022
ERS6
ERRCNT
ERRSWI
#2,SSINDX
(SP)+,R4
(SP)+ ,R1
(.")+,RC
(SP)+ ,R3

JNO - SK]P
JREPORT ALL ERRORS

#ANYERR,T.(S

X
MR

012600
012603

#MDRDY ,R3
10020., ,ERR3
TSERCODE
10020

ERR3

000062
016514

104443

023446
013342
005337

;CHECK IF READY
JYES - SK[P
sDEC WAIT CCUNT
;JSKIP IF O

104443

023445
013272
000407
032737
001405

sSET FOR NJ) ERROR RETURN
;GET DRIVE STATUS

JTEST

ANY ERROR SET

;DEC FOR DOUBLE ERROR REPORT
;CLEAR FOR ERROR ERROR RETURN
JREMOVE ENTRY FROM SUBROUT STACK

JRESTORE REGISTERS

sRESTORE R3

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

1933
1934
1935

1936
1937

1938
1939

021024
021010
02102
021216
021020
021024

005737
001403
063716
000207
017616
000207

30A(1052)

22-NOvV-78

002440
002440
00000C

99%:

1940

l
6
PAGE 1-35

ERRSWI]

SEQ 0073

;TEST IF ERROR RETURN

TST
BEQ
ADD

99%

JYES - SKIP

MOV

géSP).(SP)

;SET ERROR RETURN ADDRESS

RTS
RTS

E?RSUI,(SP)

;ADD

IN ERROR RETURN

GET POSITION ROUTINE. READS A HEADER FROM CURRENT (YL INDER

R
021026

010346
013703

GETPOS:

002424
000002
000004
002424

002260
002260

J‘gfiNLNN"V-J—“*SaE
ONNVO
QOO

b
d
D
b
d
b e
d
d

€02474
100177
0000067

010337
162737
012605
012600
012603
005737
001403
063716
000207
017616
000207

002526
000002

(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER
NUMBER IN_CURCYL.
MOV
R3,-(SP)
;STORE REGISTERS

MoV
TST
MOV
SUB
MOV

SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
JBUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ,INSERT THIS CALL
#4 ,SUBSTK (R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
JSTORE IT BACK

é%g

PC,XRDHD

;DO READ HEADER

MOV
BIC

HDWRD1,R3
#~CHDCYL ,R3

;GET HEADER WORD
;CLEAR ALL BUT CYLINDER

DEC
BNE
MOV
SUB
MoV
MOV
MoV

RS
4%
R3,CURCYL
#2,SSINDX
(SP)+,R5

;STORE AS CURRENT CYLINDER
JREMOVE ENTRY FROM SUBROUT STACK
JRESTORE REGISTERS

BEQ

TST

ERRSWI

JIEST

e?g

99%

E?RSWI.(SP)

;ADD

IN ERROR RETURN

;SET

ERROR RETURN ADDRESS

MOV
MOV

020102

AN
W =000 NONN

d ad

b ed —d e

VAN
OOOOOOO££
LRRLRL

—

16:20

002424

65$:

002440
002440
000000

90%:

MOV
ASR

MOV
RTS

?gA?BG%%

010346

RDALHD: MOV

002424
000002
000004
002424

002260
002260

000602
0000%0
100000

021242
021246

003466
002450
000006
00001C

002440

002426

002456

MOV
TST
MOV
SUB
MOV
MOV
MOV
MOv
MOV
MOV

BIS

MOV
MOV
ADD

MOV

RO,=(SP)
R5,-(SP)

#7 ,R5
R3

(SP)+,R0O
(SP)+,R3

a(SP), (SP)
PC

JSET SHIFT COUNT
JSHIFT TO RIGHT JUSTIFY

ERROR RETURN

JYES = SKIP

HEADERS ROUTINE.

40 HEADERS ARE READ AND STCRED

R3,-(SP)
;STORE REGISTERS
SSINDX ,R3
sGET SUBROUTINE INDEX
(R3) +
JBUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK (R3) INSERT THIS CALL
#4,SUBSTK (R3)
JADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE IT BACK
RO,=(SP)
R1,-(SP)
R4 ,-(SP)
#2 ,ERRSWI
#40. R1

2SET FOR MO ERROR RETURN
JSET HEADER COUNT

#IBUFF ,R3
RLBAS R4

;SET POINTER TO STORE HDRS
sGET BASE ADDRESS

#HDR4O,OPFLAG
4. MP,R4

#10,L.C5

;SET 40 HDR OP FLAG
JMAKE

POINT

TO MP REG

JLOAD FOR READ HEADER,

INTERRUPT

ASSEMBLY ROUTINES
MACY11 3NA(1052)
CZRLCB.PTY
25-0CT1-78 13:12
021254
021262
021270
021274
021300
021304
021306
021314
021322
021330
021336

053737

002454

22-NOV-78

002456
002456

BIS
BIC
CLR
CLR

002462
002534
000020
002462
002460
00C200

TST

002462
000004
000002
000000

3%:

012603

100606

000000

6%:

000000

?%:

016262
016314

162737

021502

021510
021574

012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

MOV

65$

MOV
MOV

BIT
BNE

002440

002466

8¢:

000002

002624

€5%:

002440

000000

.WORD
.WORD
CLR
BR

MOV
MOV

MOV
DEC
BNE
SUB

MOV
MOV
MOV
MOV
TST

BEQ
ADD

002440
99%:

L.BA
L .DA
DE SHD
3%

JCLEAR BA
*CLEAR DA
‘TEST IF HEAD 0
JYES - SKIP

#HDSEL ,L .DA

L.DA,RLDA(RZ)
L.BA_RLBA(R2)

RTS
MOV
RTS

*CLEAR FOR DRIVE 4 - 7 SPEC'D

cELSE

INSERT HEAD 0

;LOAD RLDA REG
;LOAD RLBA

#CRDYMSK ,RLCS (R2)

STEST

JYES - SKIP

PC,RDYCHK

*ELSE

L.CS,RLCS(R2)

;LOAD RLCS REG

877777 .RO
8$

(SP)+,R3
10025.
., ,ERR1

CONTROLLER READY

CHECK READY

SSET COUNT FOR WAIT

#CRDYMSK ,RLCS(R2)

10025
ERR1

TRAP

2 INSERT DRIVE NUMBER

.WORD
.WORD
(LR
BR
TST
BPL

SEQ 0074

RLDRV L.CS

#IT10.0.CS

RO
7%
PC,READRL
PC.WAITIN

ERRHRD

002440

J 6
PAGE 1-36

DEC
BNE
JSR
JSR
MOV
ERRHRD
TRAP

104443

023452
013342
005037
000405
011423
011423
011423
005301
001334

MOV

BNE
JSR

104443

023451
013040
005037
000416
005737

BEQ
BIS

BIT

017632
002456
077777
000200

16:20

;CHECK

THAT OPERATION rOMPLETED

JYES = SKIP

:DEC COUNT
*SKIP IF NOT YET O
SELSE GET ALL REGISTERS
“ELSE WAIT FOR TIMEOUT

*GET RESULT MESSAGE POINTER

TSERCODE

§§§5”‘

;CLEAR FOR ERROR RETURN

T.CS

;TEST FOR ANY ERRORS

12%
10026.
, ,ERR6

‘NO - SKIP

T$ERCODE

10026
ERRA
gggsux

(RG) , (R3)+
(R4)
. (R3)+
(R4)
. (R3)+

;CLEAR FOR ERROR RETURN

:STORF HEADER WORDS

:DEC HEADER COUNT

#2.SSINDX
(SP)+,R4
(SP)+.R1
(SP)+.R0

:REMOVE ENTRY FROM SUBROUT
;RESTORE REGISTERS

ERRSW]

:TEST

E?RSUI.(SP)

*ADD

(SP)+.R3

99%

gésp),(sp)

STACK

ERROR RE'URN

JYES - SKIP

IN ERROR RETURN

;SET ERROR RETURN ADDRESS

REPORT OPCPATION ROUTINE.

PRINTS

SUBROUTINE

OPERATION BE ING PERFORMED PORTION OF

ALL

TRACE

SEQUENCE

AND

ASSEMBLY ROUTINES

CZRL(B.PT1

021516

25-0CT-78
010446
005737
001433
012704

?§C¥%1

000002
010534
012327
000002

062706

00000¢

016446
012746

002260
012502
000002

012746
010600
104014

<c2-NOV-78

RPTOP:

002424

012746
012746
012746
010600
104014

30A(1052)

062706
062704
020437
003761

000006
000002

012746
013746
012746
012746

006217
002434
012132
000003

3%:

002424

000010
030000
002456

1$:

)

002426

020000
000014

002426

020000

002426

002122
005143
012110
000003

000436

000016

20%:

22%:

002462

R& = (SP)

BLE

PRINTB

R& . SSINDX

:CHECK IF ALL PRINTED

:LOOP IF NCT ALL PRINTED YET

A#FMT4,ERHEAD
. #TSTLAB

;PRINT ERROR HEADER

MOV
MOV
MOV
MOV

#TSTLAB,-(SP)
ERHEAD,
- (SP)
#EMTS
= (SP)
#3,-(5P)

ADD
BIC
MOV

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

CMP
BNE
BIS
CMP
BNE
BIS
CMP
BNE
BIS
PRINTB
MOV
MOV
MOV
MOV

#6,R1
;TEST IF SEEK OPERATION
2$
;NO - SKIP
#SEEKOP,OPFLAG
:ELSE SET SEEK FLAG
#12.R1
‘TEST IF WRITE
208
INO - SKIP
#RORWOP ,OPFLAG
:SET RD OR WRT FLAG
#14,R1
:TEST IF READ
22%
INO - SKIP
#RORWOP,OPFLAG
:SET RD OR WRT FLAG
#FMT1,#MOPER,OPMSGS(R1) ;PRINT OPERATION
OPMSGS
(R1) ,=(SP)
#MOPER
, = (SP)
HEMTT,=(SP)
#3,~(5P)

ADD
CMP
BNE
BIT

#10,
5P
R1.#4
4$
#DRSET,L .DA

MoV

g;e,n1

MOV
EMT

00010
000004
000010

2%:

SEQ 0075

SSINDX
;TEST SUBROUTINE INDEX 0
1
:SKIP IF 0
#2 R4
:SET INDEXER TO FIRST ENTRY
#FMTO #SEQMES
-PRINT ''SUBROUTINE CALL SEQ'*
#SEQMES,
- (SP)
NEMTO,
= (SP)
#2,-(5P)
SP RO
CSPNTR
#6,SP
#FMT16,SUBSTK
(R4)
;PRINT CALLING LOCATION
SUBSTK (R4) ,=(SF)
#EMT16,
- (SP)
#2,-(SF)
SP.RO
CSPNTR
#6,SP
#2 .R4
;BUMP INDEX

BIC

010000
000012

TST
BEQ
MOV
PRINTB
MOV
MOV
MOV
MOV
EMT
ADD
PRINTB
MOV
MOV
MOV
MOV
EMT
ADD
ADD

MOV
EMT

002426

PAGE 1-37

ERROR MESSAGES.

MOV

CMP

177741

000006

16:20

BEQ

SP,RO
CSPNTB

#i77041 R

:STRIP ALL BUT FUNCTION ~ODE

SP,RO
CSANTB

;CHECK IF GET STATUS
IND = SKIP
STEST IF RESET INCLUDED
INO = SKIP
*SET TO PRINT WITH RESET

ASSEMBLY ROUTINES

CZRLCB.PTT

2326
2325
2326
2327
2328
2329
2330
2331
2%5¢
2533
(8)
()
(6)
(3)
(4)
(4)

233
2335
2336
2337
(8)
(7)
(6)
(3)
(4)
(4)

2338
2339
2340
2341
(15)

022002
022010
022012
022016
022022
022006
022030
022032
022034
022036

022036
022042
022046
022052
022054
022056

(11)

022160
022164
022170
022174
022200
022204
022206
022210

(12)
(11)
(100
(9)"
(8)
(7)
(6)
(3)
(4)

022230
022234
022240
022244
022250
022254
022260
022264
022266

022214
022222
022224
022224

002426

702426
000020
000001

4$:

S$:

016146
012746
012746
010600
104014
062706

013746
012746
013746
012746

013746

012746
013746
012746
012746
012746
010600
104014
062706

032737
001424
013746

012746
013746
012746
013746
012746
012746
012746
010600
104014

16:20

6$:

002122
012124
000002
000006

100000

002426

000050

&$:
9%:

002122
012124
000002
000006

010000

002426

10$:

002534
010475
002532
010470

.
000024

020000
002536

010501
002534
070475
002526
010506
012677
000007

002426

15%:

1-38

ASR
BR
PRINTB

R4
5%
#FMT2,0PMSGS
(R1)

BIT
BEQ
MOV
PRINTB

AHDR4O,OPFLAG
;TEST IF 40 HEADER OPERA:ION
10$
NO - SKIP
#50,R1
*ELSE PRINT IT
#FMT2,0PMSGS
(R1)

BR
BIT
BEQ
PRINTB
MOV

15$
;SKIP
#SEEKOP,OPFLAG
-TEST IF SEEK
158
INO - SKIP
#FMT13,#FRMWD,OLDCYL
,#DIFWD,DESDIF ,#SGNWD , DESSGN, #HDWD , DE SHD

MOV
MOV
MOV
MOV
EMT
ADD

MOV
MOV
MoV
MOV
EMT
ADD

MOV

010462
002522
C€10513
012350
000C.1

#COMPOP,OPFLAG
8%
OPFLAG,R4
#20.R1
#BIT00,R4
6%

MOV
MOV
MOV

002530

PAGE

BIT
BEQ
MOV
MOV
BIT
BNE
TST

006204
000772

000434
032737
001430

022154

007777

22-NOV-78

005721

022122
022124
022132
022134
022134

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

2362
2343
2344
(13)

032737
001424
013704
012701
032704
001003

032737
001415
012701

(14) 022140
(13) 022144
(12) 022150

30A(1052)

25~0CT~78 13:12

022062
022070
022072
022076

022076
022102
022106
022112
022114
022116

MACY11

MOV
MOV
MOV
MOV
MoV
MOV
EMT
ADD

8IT
BEQ
PRINTB
MOV

MOV
MOV
MOV
MOV
MOV
MoV
MOV
OV
e MT

(R1)+

;TEST Ir ANY OTHER OPERATION
NO - SKIP
SET UP TO DETERMINE WHICH ONE
*PRESET THE POINTER
*CHECK_THE BIT
IF SET = SKIP
‘BUMP POINTER

OPMSGE(R1),=-(SP)
AEMT?,-(SPj
#2,-(SP)
SP.RO
CSPNIB
#6,SP

OPMSGS(R1),=(SP)
#EMT2,-(SP)
#2,~(5P)
SP.RO
CSENTR
#6,SP

DESHD,=(SP)
A#HDWD.=-(SP)
DESSGN,=(SP)
#SGNWD.~(SP)
DESDIF.=(SP)

A#DIFWD.~(SP)
OLDCYL.-(SP)
NFRMWD.-(SP)
AFMT13.-(5P)
#11,-(5P)
SP,RO
CSPNTB
#24,SP

#RORWOP ,OPFLAG
;TEST [F READ OR WRITE SET
17%
INO - SKIP
FMT22,#CYLWD,
CURCYL , #HDWD , DE SHD , #SE CWD , DE SSEC
DESSEC.-(SP)
#SECWD.-(SP)
DESHD,=(SP)
AHDWD.=(SP,
CURCYL,=~(SP)
#CYLWD.-(SP)
HFMT2Z ,~(SP)
#7,-(SP)
SP.RO
(SPNTB

SEQ 0076

ASSEMBLY ROUTINES
MACY11
CZR.CB.PTT
25-0C1-78 13:12

022270
022274
022300
022302

062706
004737
012604

000020
022746

22-NOv~78

17%:

000207

RPTRES:

022304

022306
022310
022312
022316
022320
022320
022322
022326
022332
022336
022340
022342
022346
022352

16:20

PAGE

ADD

#20,SP

MOV
RTS

(SP)+,R4

JSR

M
6
1-39

PC,CLRPARM

SEQ 0077

;CLEAR PARAM TABLE
;RESTORE R4

REPORT REASON ROUTINE
PRINTS REASON PORTION FOR ALL ERROR REPORTS.
R1,=-(SP)
MOV
;STORE R1

R3,-(SP)

2STORE R3

(R1)+,R3

:GET NUMBER OF PARAM

R4 ,-(SP)
#RESPARM.R1

002504

;STORE R4

005157
012115
000003

(R1) ,=(S°)
AMRSLT,-(SP)
HFMT1.1,-(SP)
#3,~(SP)

000010
011405

#10,SP
(R1) ,AMNDRST

012334
011400

HFMT11,R4

001442

012146
012746
010446
012746
010600
104014

062706
012146
012746
010446
012746
010600
104014

062706

162703
001413

012146
012746
012746
8 2746

011647

000003
000010
011653

(21)+,#MCYLOC

3%:

#EMT12,R4

JTEST IF MESSAGE IS NO DRV STATUS
;YES = SKIP REST OF REPORT

cPRISET FOR FORMAT

;CHECK IF REPORTING CYLINDER LOC
;NO - SKIP
JELSE CHANGE TO FORMAT 12
:DEC _PARAM COUNT

R3
6%
s1F 0 - EXIT
R4 ,#RESE3, (R1)+
cREPORT IS VALUE
(R1)+.=(SP)

#RESES
.- (SP)

R4.~=(SP)
#3.-(SP)

SP.R0
C$PNTR

#10,SP
R4, ARESEG, (R1)+

(R1)+,=-(SP)

;REPORT SB VALUE

#RESE
- L,
(SP)

R4 ,=(SP)
#3.-(SP)
SP.RO

000010
000002

#10,5P
#2.R3

000010

sPRINT NAME

SP,R0
CSPNTB

000003

011660
012110
000003

;GET START OF PARAM

H#FMT1.1,#MRSLT,
(R1)

012342

022504

30A(1052)

C$PNTR

;DEC _PARAM (COUNT

JIF 0 - EXIT

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

;REPORT

CONDITION

#RESES, - (SP)

AEMT1.2(SP)
#3,-(SP)

SPRO
C$ANTB

#10,SP
(ZPI+ R4
(SP) +.R3

JRESTORE REGS

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

022506
022510

022512
022512

30A(1052)

22-NOV-78

012601
000207

005046
153716
012746
013746
012746
012746
012746
010600

MOV
RTS

RPTREM:
002455
005633

002450
005622
012143
000005
000014

022550
022554
022554

16:20

010475
010506
005752
005740
005745
005733
012163
000007
000020

JRETURN

DEVICE UNDER TEST

ciggs,#BASADD ,RLBAS,#DRVNAM,

BISB
MOV

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

MOV

#BASADD
, - (SP)

MOV
MOV

RLBAS,~(SP)
HEMTS
= (SP)

MOV
#5.-(SP)
MOV
SP.RO
EMT
CSPNTR
ADD
#14,SP
REPORT R.11 REGISTERS
PRINTB
#FMT6,#CSNAM, #DANAM, #3ANAM, #MPNAM, #C YL WD , #HDWD

MOV

#HDWD. - (SP)

MOV

#EMT6,
< (SP)

MOV
MOV
MOV
MOV
MOV

MOV

EMT
ADD

PRINTB

MOV

062706

000016

013746
013746
013746
013746
013746
013746

002534
002526
002474
002470
002472
002466
005772
012225
000010

ADD
PRINTB
MOV~
MOV
MOV
MOV
MOV
MOV

000002

(SP) +,R1

SEQ 0078

?Eé~re

002464
002460
002462
002456
005757
012275
000006

062706
000207

REPORT PHYSICAL ADDRESS OF
AND ALL REGISTER CONTENTS.

013746
013746
013746
013746
012746
012746
012746
010600
104014

PAGE 1-40

MOV
MOV
MOV
MOV
MOV
MOV

MOV
EMT

#CYLWD ,=(SP)
AMPNAM
. = (SP)
#BANAM
. - (SP)
#DANAM.
- (SP)
#CSNAM.
= (SP)

#7.,-(SP)
SP.RO

C$PNTB
#20,SP
#FMTB, #LAB1 L.CS.L.DA,L.BA,L.MP
L.MP,~(SP)

L.BA.=(SP)
L.DA.~(SP)
L.CS.~(SP)
#LABT,~(SP)
#FMT8
.- (SP)
#6.,~-(SP)
SP.RO
CSPNTB
#16,SP
#FMT7,#LAB2,T.CS.T.DA,T.BA,T.MP,CURCYL
,DESHD
DESHD.=-(SP)
CURCYL ,~(SP)
T.MP,=(SP)
T.RA.-(SP)
T.DA.=(SP)
T.CS.=(SP)

MOV

#LAB2,-(SP)

MOV
MOV
EMT
ADD

#10,~(SP)
SP,RO
CSANTB
#22,SP

MOV

RTS

HFIPT7.=(SP)

CLEAR PARAMETER BLOCK FOR REPORTING

ASSEMBLY ROUTINES

CZRLCB.PT

022746
022750
022754
022760
022762
022764

2386
2387
2388
2389
2390
2391
2392
2393

022766
022772
02277¢

2395

022776

239

2396

MACY1 1

25-0C1-78 13:12
070546
012701
012705
005021
005305
001375
012701
012605

002504

00005

30A(1052,

22-NOvV-78

002504

CLR

DEC

MOV
MOV

000207

RTS

ENDMOD

8 7
PAGE 1-41

CLRPARM;

’$:

'6:20

RS,-(SP)

SEQ 0079
:STORE RS

#RE SPARM, R

;GET ADDRESS OF BLOCK

RS
2%

sDEC COUNT
SLOOP UNTIL

#5,R5
(R1)+

#RESPARM ,R1

égP)*.RS

cSET COUNT
sCLEAR WORD

JRESET POINTER

;RESTORE RS

ASSEMBLY ROUTINES
MACY11
CZRLCB.P1T
23-0CT1-78 14:39

2398
2399
2400
2601
(3)

30A(1052)

22-NOV-78

022776

BGNMOD
.SRTTL

022776
022776

BGNTST

005737
001120

003062

005737

014656

012737

006225

100115

005046
153716

012746
013746
012746
012746
012746
012746
012746
010600
104017
062706
005037

023244
032737
001005
012703

016446
016500
000040

1%:

002474

011072

000145
013154
032737
001005
012703

011105

023174
023176
023204
023206
023212
023212

106443

CLR
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

011120

*CHECK

IF MANUAL

INTERVENTION

RLDRV+1, (SP)

#OPR1A,=(SP)

#7,-(SP)

SP,RD
CSPNTF

#20,SP
O0BUF F

:CLEAR FOR RESPONSE-

OPROOZ,0BUFF ,1,NO
CSGMAN
10000%

0BUFF
T$CODE
?PROO?

TST
8EQ
JSR
JSR

OBUFF

sTEST RESPONSE

PC,TSTINT
PC,GSTATC

;GO GET

BIT
BNE

HCOSTAT,T.MP

65%

. WORD
BIT
ENE

ERRHRD

002474

‘NO = EXIT TEST

#OPR1,=(SP)
HFMTOP1 ,-(SP)

TRAP

020000

65%

MISWIW

MOV

104443

000146
013154
032737
0010C5
012703

CEXIT IF NO

RLBAS,~(SP)
#BASADD ,~(SP)

ERRHRD

002474

;CHECK IF FIRST PASS

658

MOV

TRAP
.WORD

000010

PASNUM

#DRVNAM,
-~ (SP)

MOV

104443

MOV

MOV
EMT
ADD

10000%:

(PART 1)

#MISTST ERHEAD
LOAD ERR HEADER
ligg?P1,lOPR1,#0PR1A,#8ASADD,RLBAS,#DRVNAM.<B,RLDRV41>

MOV
MOV

004066

BASIC INTERFACE

PRINTF

MOV
MOV

000020
C04066

SEQ 0080

STESTO

CLR
BISB

002455
005633
002450
005€22
010476
007774
012016
000007

¢
PAGE 2

HRDWTST
«TEST 1

TST
BNE
TST
BPL
MOV

002434

104043
000404
004066
000120
007724
000001

005737
001740
004737
004737

16:20

.WORD
.WORD
8IT
MOV

ERRHRD
TRAP

7$
#MCOSTA,R3
101.,,ERR3
TSERCODE
101

ERR3

#BHSTAT T .MP
9%

#MBHSTA ,R3
102., ,ERR3
T$LRCODE
102

ERR3

HWLSTAT ,T.MP

1%
#MWLSTA,R3
103, ,.ERR?
T$ERCODE

JYES - SKIP

;CHECK

YES

JINITIALIZE TEST
STATUS (NO RESETM)

COVER OPEN SET

JYES - SKIP
;SET NAME POINTER

JTEST IF BRUSHES HOME
JYES - SKIP

;SET POINTER FOR BRUSH HOMF ERROR

JTEST

WRITE

LOCK SET

:YES = SK]IP
sSET NAME POINTER

ASSEMBLY ROUTINES
MACY11
CZRLCB P
23~0(T1-78 14:39

(3)
(5)
2627

023214
023216

2428
2429
2430

007404
025003

(3)
(5)
(5)

104443
000750
014220
004737
023244

2431
2432
2433

2434
(3)
(%)
2435

000147
013154
005737

023244

104001

102502

116464

30A(1052)

2§;N?V-78

«TE

11%:

°5%:
65%:
ENDTST
L10020:

16:20

LWORD
.WORD
TST
BEQ
(LR
ERRHRD

BASIC INTE RFACE

(PART

103
ERR3
T,.STAT

sTEST

15%
R3

104.,,ERR7

TRAP
.WORD
.WORD

TSERCODE
104
ERR7
PC,.GSTATR

EMT

CSETST

JSK
65%

PAGE 2-1

SEQ 0081

STATE

JYES = SKIP

ZERO

;SET STATE EXPECTED

;DO DRIVE RESET

ASSEMBLY ROUTINES

CZRLCB.P1T

MACY11

23-0(T-78 1:39

30A(1052)

gz%g
2439

(3)
2640

2461
2642
2443
2464
2445
(13)
(13)
(12)
(11)

JSBTTL
023246

023246
0232646

023252
023254
023260
023262
023270
023270
023272

(8)
(7)

(6)

(3)

(4)
(&)

2446
2647
2648
(3)
(3)
(&)
(5)
(5)
(5)
(3)

2649
2450
2451
2652
2653
2454
2455
2456
2457
(3)
(5)
(5)

2458
2459
26460
2661

BGNTST
005737
001075
005737
100072
012737
005046
153716

006225

023312

012746

010416

023316
023322

003326

023332

023334
023336

023342

023346
023346
023350
023352
023354
023356
023360
023362

023362
023366
023370
023374
023400
023402
023410
023412
02%16

023616
023420
023422

023424
023432
023434
023440

012746

012746
012746

012746

010600

2%:

MOV
MOV

010052
012016

MOV
MOV

#OPR2,=(SP)
#EMTOP1 ,~(SP)

104043
000404
0046066
000120
007724
000001

104001

160008:

004066

016446
016464
000040

$:
00247

011072

020000

002474

O%:

011120

5%
ENDTST

L10021:

#OPR1A
= (SP)

MOV

#7.-(SP)

CSPNTF
#20,SP

OBUFF

MOV

CLR

023646
023446

#DRVNAM
= (SP)
RLBAS
- (SP)

#BASADD
, - (SP)

MOV

000007

(PART 2)

SEQ 0082

BASIC INTERFACE (PART 2)

MOV

004066

(3)
(3)

BASIC INTERFACE

005622

005037

032737
001405
012703

T2::
ST
PASNUM
;TEST IF PASS 0
BNE
65$
INO - SKIP
TST
MISWIW
STEST IF MANUAL INTERVENTION
BPL
658
INO - SKIP
MOV
#MISTST ,ERHEAD
:SET ERROR HEADER
PRINTF #FMTOP1.#OPR2 ,#OPR1A, #BASADD ,RLBAS , #DRVNAM, 
(LR
-(SP)
BISB
RLDRV+1,(SP)

000020

104443
000311
013106

PAGE 2-2

TEST 2

EMT
ADD

005737
001740
004737
004737
023446
032737
001405
012703

16:20

*TEST 2

104017
062706

104443
000312
013106

023446
023446

002436

002455

005633
002450

023440
023442
023444

2464

016656

012746
013746

(3)
(5)
(5)

2462
2463

003062

023276
023302

(10) 023306
(9)

TES;N9V-78

GMANIL
EMT
BR
.WORD
_WORD
.WORD
-WORD

SP,RO

;COVER AND RESET WRITE LOCK
*CLEAR FOR RESPONSE

OPR0O02,0BUFF,1,NO
CSGMAN
10000$
OBUFF
T$CODE
OPR002
1

1ST
0BUFF
BEQ
2%
JSR
PC,TSTINT
JSR
PC.GSTATR
65%
BIT
#COSTAT,T.MP
BEQ
9%
MOV
#MCOSTA ,R3
ERRHRD 201., ,ERR?
TRAP
.WORD
.WORD

TSERCODE
201
ERR2

TRAP
.WORD
.WORD

T$R(ODE
292
ERR2

EMT

(sersT

BIT
MILSTAT,T.MP
BEQ
65
MOV
#MILSTA ,R3
ERRHRD 202., ,ERR2

;TEST If RESPONSE YES
INO = SKIP
(INITIALIZE TEST
;GET STATUS WITH RESET

:TEST IF COVER OPEN RESET
PYES - SKIP
:SET NAME MESSAGE POINTER

;TEST IF WRITE LOCK RESET
IYES - SKIP
:SET NAME MESSAGE POINTER

;REQUEST CLOSE

ASSEMBLY ROUTINES
MACY11
CZRL(B. P11
23-0(1-78 14:39

2466
2467
(3)
2668
2469
2470
2671
2472
(3)

30A(1052)

22-NQV-78
*TEST 3
.SBTTL

RGNTST

005737
001003
005737
100402

104032
001214

(3)

006727
004737
024702
005737
001440

2473

005046
153716
012746

013746
012746

012746
012746
012746
012746
010600
104017

062706

005037

003062

014656

005046
153716

012746
013746

2485

2487

023654
023656
023662
023670
023674
023702

SEQ 0083

HEAD LOADING
;TESTO3
PASNUM
4%
MISWIW
TST

‘

JTEST IF PASS O
JNO SKIP
JTEST IF MANUAL

JYES - SK]P

CSEXIT
L10022-.

5%:

002562

PC,TSTINT
PC,GSTATR

;GET

T7.S7AT

JTEST

INTERVENTION

JINITIALYZE
STATUS
IF

STATE

T3::

TEST

ZERO

ZS
YES - SKIP
#ig;9P1,#OPRS, #OPR1A H#BASADD ,RLBAS ,#DRVNAM, JREQUEST DRIVE BE

'$:

002455
005633
002450
005622
010416
010120
012016
000007

RLDRV+1, (SP)

#DRVNAM,
- (SP)

RLBAS ,-(SP)
, - (SP)
#BASADD

#OPR1A,-(SP)

HOPRS
- (SP)
#EMTOP] ,-(SP)
#7,-(SP)

EMT

000020
004066

ADD

EMT
BR
.WORD
-WORD
10000%:

004066

2%:

002455
005633
002450
005622
010416
010104
012016
000007
000020
000004
000001
006250
000454

HEAD LOADING

4%:

016446
076464

F
7
PAGE 2-3

*TEST 3
1ST

104043

005737
001740

16: 20

-WORD
.WORD

TST
BEQ

002434

T$CODE
?PROO?

?gUFF

TSST gFIgESPONSE
-

YES

PRINTF

052;0P1.#OPR3,#0PRTA, MBASADD ,RLBAS,sDRVNAM,

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#DRVNAM,
- (SP)

CLR
B1S8

EMT

002426

SP,RO
CSPNTF
420,SP
OBUFF
. CLEAR FCR RESPONSE
OPRO0Z,0BUfF ,1,NO
CSGMAN
10000%
F
0BUF

ADD
MOV
MOV
MOV
MOV

RLDRV+1, (SP)

RLBAS,=(SP)
#BASADD
, - (SP)
#COPR1IA,-(SP)
#OPR3,-(SP)
#FMTOP1,-(SP)
#7,-(SP)

SP,RO
CSPNTF

420,SP

#CYLUP,OPFLAG

#1,R3

l.‘TACHG ERHE AD

#300..R"

;SET

(YCLE UP FLAG

JSET EXPECTED STATE
SET ERROR HEADER

vALUE

SET WAIT CGUNT FOR 30 SECONDS

ASSEMBLY ROUTINES
MACY11
CZRL(B P11
23-0(1-78 146:39

2488
2489
2490
249N

023706
023712

004737
024702
005737
001022
005301
001404

016500

012700

0000C"

000764
(05037

006066

104026

30A(1052)

22-NQvV~78
«TEST 3

3%:

702502

BEQ

104043

001405

¥
RS

004066

00250¢

178
B

104443

000455
014220
104032

000676
012701
012703
004737
024702
020337
001435

000454
000002
016500

13%:
4%

002502

A AN A A~
NN = NN

101005

104026

O N

N
nONY
N A S AR
A NN
=3 NNN = 2 (NN = =2

000636
005301
001404

t7¢:

000001

000756

024070

104443
0004 57
014220
032737

QU474

;GET

T.STAT

JTEST

JDEC WAIT

108

OBUFF

STATUS
IF

STATE

JNO - SKIP

.CLEAR FOR RESPONSE

OPROO3,0BUFF ,1,NO
CSGMAN

R%iT.STAT

s (RECK

.WORD
. WORD
EXIT
EMT
. WORD

301
ERR7

MOV
MOV
JSR

T365%
(MP
BEQ

.WORD
. WOR[D
EXIT
EMT
.WORD
PEC
BEQ
WA TMS
MOV
EMT
8R
ERRHRD
.WORD
.WORD

817

COUNT

STESI IF RESPONSE
cYES = REPCRT

TRAP

STILL

JEXIT IF WAIT DONE

OBUF F
};5

TRAP

006000

PC,GSTATC

TST
BNE
BR
(MP
BEQ
ERHRD

TRAP

104032

SEQ 0084

10001%
OBUFF
T$CODE
?PROOS

ERRHRD

000456
014220

BR
.WORD
. WORD
.WORD
.WORD

BHI

104443

012700

WA]TMS
MOV
EMT
B8R
(LR
GMANIL

EMT

000404
004066
000120
007751
000001

005737

JSR
73658

TST
BNE
DEC

€%:

16:20
PAGE 2-4
HEAD LOADING

301., ,ERR?

YES

NOW STATE

SYES - S5KIP

T$ERCODE

TST

CSEXIT
L10022-.
4300, .R1
#2,R3

;SET WAIT FOR 30 SECONDS
;SET EXPECTED STATE VALUE

R3,T.STAT
20%
17%

;JCHECK [F STATE 2
JYES = SKIP
sCHECK IF NO CHANGE - YES - SKIP

PC,GSTATC

302., ,ERR7

;GET

STATUS

TSERCODE

302
ERR?7
TST

CSEXIT
L10022-.

R1
18%
1

sDEC WAIT COUNT
JSKIP fF C

#1,R0

CSWTM

14%

TSERCODE

303

Enr7
#SPDSTATM 1 MF

JTEST

SPINDLe

TIMEQUT

#MSPERR,R3

304., ,ERR3

104443

(%)

19%:

106032

000560
012737
012704
012703
032737
001005

002434

20%:

0026 74

304
ERR3
TST

CSEXIT

L10022-.

#MISTST ,ERHEAD

#STATEZ
R4
#MBHSTA,R3
#BHSTAT ,T.MP

22%
305., ,ERRS

104443

305
ERRS

104032
000520

CSEXIT
L10022-.

000062
016500

012700

000001

000010

002474

sTEST IF BRUSH HOME RESET
JYES - SKIP
;DEC WAIT COUNT

27%

26%

n
#1.R0O

CSWTM

26%:

23%
306., ,ERR4

SET

COUNTM FOR 5 SECONDS

sGET STATUS

;SKIP

ZERO

cLOOP

T$ERCODE

104032

CSEXIT

TST

000454
016500

000010

27%:
28%:
002474

L10022-.

#300. ,R1
PC,GSTAT(

JSET WAIT COUNT 30 SECONDS

T .MP
#BHSTAT,

;TEST IF BRUSH HOME SET AGAIN
JYES - SK]P
JELSE DEC WAIT COUN~

32%

001404

000463
013272

STILL

T MP
HBHSTAT,

306
ERR&

104443

BRUSH HOME

JSET WAIT

PC.GSTATC(

104443

000763

JYES - SKIP

#50. ,R1

000462
013222

104026

JTEST

TST

012701
004737
024702
032737
001413
005301
001404

012700

:SET CRROR HEADERK
sSET CONDITION MESSAGE POINTER
;SET NAME MESSAGE POINTER

T$ERCODE

00us61
013272

000763

024230
€24230
024232
024234
024240
024244
024246
024254
024256
024260
024262
024262
024266
024270
024272
024272
024274
024276
024300

R HEADER
NAME MESSAGE POINTER

TSERCODE

000460
013154

106026

b
own

#SPDERR ,ERHEAD

oXx

198

002434

SEQ 0085
m

006262
N1172

—~—n

001010
012737
012703

16:20
PAGE 2-5
HEAD LOADING

NN
=<

024076

22-NQvV~78
«TEST 3

roro
WPy
o o

2520
2521
2522
2523
(3)

30A(1052)

mmm

ASSEMBLY ROUTINES
MACY11
CZRL(B.P1N
:
23-0r1-78 14:39

#1
#1,R0

000001

3C$:

CSWTM
28%
TSERCODE

307
EnPS
TST

JGET STATUS

JSKIP IF

ASSEMBLY ROUTINES
MACY11
CZRLCB. P11
23-0(1-78 14:39

(3)

024300

30A(1052)

22-NQv-78
«T EST 3

104032

000400
012737
012703

206250
000003
0105060

0024%4

002502
104443

104032

000340
012737
012704
012703
004737
024702
032737
001005

006225
0117¢2
01113
016500

002434

000020

002474

36%:

MOV
MOV

T365%
BIT

104032

001000

.WORD
.WORD
EXIT
EMY
. WORD

MOV
JSR

104443
000465
013272

000272
032737
(11007
012703

EMT
. WORD
MOV
MOV
JSR
7365%
(MP
BEQ
ERRHRD
TRAP

000464
014220

002474

28¢:

011061

BNE
ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
.WORD

BIT
BNE

013272

7
SEQ 0086

CSEX]T
L10022~.

#NSTACHG,ERHEAD ;SET ERROR HEADER
#3,R3
JSET EXPECTED STATE VALUE
PC.,GSTATC

JGET STATUS

R3,T.STAT

;CHECK IF STATE 3
JYES - SKIP

369
3C8., ,ERRY

TSERCODE

308
ERR7

#STATE3
R4
H#MHOSTA ,R3
PC,GSTATC

HHOSTAT ,T.MP

38%
309.,.ERRS

:SET
;SET
;SET
;GET

ERROR HEADER
CONDITION MESSAGE POINTER
NAME MESSAGE POINTER
STATUS

sTEST IF HEADS OUT SET

JYES = SKIP

TSERCODE

309
ERRS
1ST

CSEXIT
L10022-.

VOLUME CHECK SET

#VCSTAT
, T MP

JTEST IF

MOV

#MVOL
CK ,R3

;SET NAME MESSAGE POINTER

TRAP

T$ERCODE
310

ERRHRD

104443
000466

16:20
PAGE 2-6
HEAD LOADING

40%

310.,,ERRS

ERRS

104032

040000

012703

000466

40%:

011033

311., ,ERRS

104443

;TEST IF DRIVE ERROR SET

1YES -

SKIP

“SET NAME MESSAGE POINTER

TSERCODE

000467
013272

N
ERRS

104032

CSEXIT
L1C022~.*

000216
012701

024516

42%
#MDRERR ,R3

TST

005670
006250
000004
016500
002502

002434

420%:
43%:

#3000. ,R1

;SET WAIT COUNT FOR 300 MS

ANSTACHG,ERHEAD, ;SET ERROR HEADER
#4 ,R3
JSET EXPECTED STATE
PC,GSTAT(
JGET STATUS

R>,T.STAT
49¢

;CHECK

STATE 4

JYES = SKIP

VALUE

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

024520
024522
024524

*TEST 3

005301

012700

104027
000764

WAITUS
MOV

000001

EMT

(7%

000470
014220
104032

000136
012701

000454
000005
016500

497:

BR
ERRHRD
TRAP
.WORD
. WORD
EXIT
EMT
. WORD

312.,.ERR7
TSERCODE

312
ERR?7
TST

C3EXIT

JSET WAIT COUNT FOR 30 MS
JSET EXPECTFD STATE VALUE

1ST

CSEXIT
L10022~.
#80. .R1

55%:
56%:

PC,GSTAT(

002466

#DRDYMSK ,T.(CS

62%

60%

a1
#1,RO

-N
— MO

000001

002434

CSwTU
56%

6CS:

MMISTST,ERHEAD
#STATES
R4

#MDRDY ,R3

314, ,ERRS
;#ERCODE

104443

000472
015272

ER]S
62%:

T365%:

ENDTST
1040C1

;CHECK JF STATE 5

JYES - SKIP
<DEC WAIT COUNT
JELSE SKIP

TSERCODE

001404

024702
024702
024702
024702
024702

CSwTU
438

313
ERR/’

000001

024700

#1,R0

313., ERR7

51%:

000120
016500

012703

sDEC WAIT COUNT
JSKIP IF O

CSWTU
508

000471
014220

012700

R1
47%

n
#1,RO

000001

104443

SEQ 0087

HEAD LOADING

R3,T.STAT
55¢%
R1
51%

000764

(5)

;GET STATUS

001404
104027

PAGE 2-7

50¢%:

002502

012700

16:20

DEC
BEQ

104443

(5
(5)
2593
(3)
(3)
2594
2595
2596
2597
2598
2599
2600
2601
2602
(3)
(3)
2603
2604
(3)

22-NOV-78

001404

lole o)
—_—
Q=N

2588
2589
2590
(3)
(3)
2591
2592
(3)

30A(1052)

10027

EMT

r‘:")y

;JSET WAIT FOR 8 MS

;GET STATUS

sCHECK [F DRIVE READY
JYES = SK]P
JDEC COUNT

JSKIP IF O

;SET ERROR HEADER
JSET CONDITION MESSAGE POINTER
JSET NAME MESSAGE rCIMTER

ASSEMBLY ROUTINES
MACY11
CZRLCB. P11
23-0(T1-78 14:39

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

024704
024704
024704
024710
026712
024716
024720
024720
024722
024724
02472¢
024724
(3)
024724
2633 024726
2634
024734
2635 024740
2636 024744
2637 024746
2638 024754
2639 024756
a3 024756
13 024760
(12) 024764

30A(7052)

222-NOv-78

~TEST 4

SBTYTL

BGNTST

005737
001003
005737
100402

003062

8%:

000566

01¢737

108:
BGNSUB

006250
016446

0024 3%

000001

02466
1%:

002455
005633
(LJ2450
005622
010416
010162
012016
000007

(11)
(10)
(9)

(8)

(7)
(6)

(3)

(4)
(4)

MISWIW

EmM7

($8SUB

025054

00406¢

025056

052737

000010

025122

005046
153716
012746
013746
012746
012746
012746
012746
012746

3%:

Y¢S - SKIP

INTERVENTION

T4.1:

;GET STATUS

B8IT

#DRDYMSK ,T.(S

;CHECK IF DRIVE READY

?fiéNTf

#ig;?P1,00°R6,JOPR1A.#BASADD.RLBAS,#DRVNAM.<B.RLDRV*1>

BISB

RLDRV+1, (SP)

MOV
MOV

RLBAS,-(SP)
#RASADD ,-(SP)

B8NE

PC,TSTINT

JINITIALIZE

TEST

cYES - SK]P

#DRVNAM,
- (SP)

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

AFMTOPY ,-(SP)

MOV
MOV
EMT
ADD

#7,-(SP)
SP,R0O
CSPNTF
#20,SP

GMANIL
EMT

OPR0O02,0BUFF,1,NO
CSGMAN

OBUFF

;CLEAR FOR RESPONSE

10000%

.WORD
.WORD
.WORD
.WORD

OBUFF
T$CODE
OPR0OO?
1

TST

OBUFF

cTST RESPONSE

BIS

#ULOAD ,OPFLAG

cSET UNLOAD OPERATION

?RANTF
L

002455
005633
002450
005622
010416
010104
012016
000007

]F MANUAL

;NO - SKIP

?C(,GSTATR

BEQ
(%:

JTEST

T4::

FIRST PASS

?2253

CLR

002426

M ISTACHG,ERHEAD ;SET ERROR HEADER

MOV

10000%:

;TEST

MOv

B8R

005737
001740

BM]
108
EXIT TST
EMT
CSEX]T
.WORD
L10023-.

MOV

(5)
(5)
(5)

;TESTO4

TST

MOV

(4)

HEAD UNLOAD ING
PASNUM

MOV

000620
004066

2640
2041
(3
(3)

SEQ 0088

HEAD UNLOADING

TSY

JSR

016464

7
K
PAGE 2-8

«TEST 4

BNE

01465¢

104032

104002

16:20

BISB

RLORV+1, (SP)

#DRVNAM,
- (SP)
RLBAS,=(SP)
#BASADD ,-(SP)

MOV

#MTOP1,~(SP)

MOV

YES

#;g;?PT,#0PR3,’0PR1A.#BASADD.RLBAS.#DRVNAM.<B.RLDRV*1>

MOV
MOV
MOV

MOV
Mov

;NO - SKIP

#0PR1A,=-(SP)
#0PR3,-(SP)

#7,-(SP)

ASSEMBLY ROUTINES
MACY11
CZRLCB P
:
23-0CT1-78 14:39

(3)

(4)
(4)

025126

22-NOv-78

*TEST &

104017

000020
000006
000144
001274
016500

5%:

002502

001406
012704

000144

012700

000001

000754
005037

004066

R3,T.STAT
1%
#5,T.STAT
9

002502

001413

6£%:

7%:

OBUFF

:CLEAR FOR RESPONSE
OPR0O03,0BUFF ,1,NO
OBUFF
T$CODE
?PROO3

004066

10001%:

104027

000764

104443
000622

025330

014220

OBUFF
4%
401., ,ERR7
T$ERCODE
401

;TEST IF RESPONSE YES

:NO = SK]P

sELSE REPORT STATE CHANGE WRONG

ERR7
SuB

000007
005670
016500

11%:

MOV

12%:

JSR
T465%

002502

BEQ
PEC
8tQ
WAI TUS

005301
001404

012700

JC'HECK IF STATE 6
;YES - SKIP
JTEST IF STATE S
;NO - REPORT WRONG STATE
;DEC 2ND LEVEL COUNT
;SKIP IF NOT 9
JELSE DEC 1ST LEVEL COUNT

CSGMAN
10001$

1064443
000621
014220

012701
004737
025400
020337

EXPECTED STATE VALUE
SECOND LEVEL COUNT
WAIT COUNT FOR 30 SECONDS
STATUS

JIF O = SKJP TO QUESTION
JELSE RESET 2ND LEVEL
JWAIT 100 US

1064043

000404
004066
000120
007751
000001

104032
000126
012703

SEQ 0089

sSET
JSET
;SET
;GET

8%:

005737
001706

SP,R0

000005

104027

16:20
PAGE 2-9
HEAD UNLOADING

010600
062706
012703
012704
012701
004737
025400
020337

2647
264§

30A(1052)

000001
16%:

EMT
BR
ERRHRD
TRAP

.WORD
.WORD
EXIT

CSEXIT
L10024~.

JSET EXPECTED STATE VALUE

JSET COUNT FOR 300MS
;GET STATUS
R3,T.STAT
18%

16%

#1
#1,R0

cCHECK IF STATE 7
JYES - SK]P
JDEC WAIT COUNT
:SKIP IF O

CSWTU

12%
402., ,ERR7
T$ERCODE
402
Enn7
SuB

JREPORT WRONG STATE

(HANGE

ASSEMBLY ROUTINES
MACY11
CZRL(B. P11
23-0(1-78 14:39

(3)
(3)
2681

(5)
(5)
2692

2693
2694
2695
(3)
(3)
2696

a3
(13
12)
1
(10)
(9

(8)

22=NOv-78

«TE ST

025330

2682
2683

2684
2685
2686
2687
2688
2689
(3)
(3)
2690
2691
(3)

30A(1052)

18%:

001130
010500

EMT
. WORD
CLR

20%:

000764

;SET EXPECTED STATE VAL JE

T.STAT

JCHECK IF STATE O

22%

;DEC WAIT COUNT
JSKIP IF O

CSWTM
20%

22%:

104443
000623
014220

012737

R3
#600. ,R1

#
#1,R0

000007

SEQ 0090

CSEXIT

L10026~.

24$%
R1

001404
104026

PC,GSTATC

002502

012700

16:20
PAGE 2-10
HEAD UNLOAD ING

403., ,ERR7
T$ERCODE

sSET WAIT COUNT FOR 60 SECONDS

;GET STATUS

JYES ~ SKIP

JREPORT WRONG STATE

CHANGE

403

000002

002440

ERR?

24%:

T465%:

#2.ERRSWI

SINIT ERROR SWIT(H

ENDSUB

L1002¢:

104003

005046

153716
012746

013746
012746
012746
012746
012746
012746
010600
104017
062706
005037

002455
005633
002450
005622
010416
010162
012016
000007

MOV

004066

N#FMTOP1,#OP
, #BASADD ,RLBAS
R6,#OP
, #DRVNAM, <B,RLDRV+1>
R1A ;REQUEST CYCLE UP
=(SP)
RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS ,-(SP)

#BASADD ,=(SP)
#0PR1A,~(SP)

EMT

000020
004066

104043
000404
004066
000120
007724
000001

005737
001740

C$ESUB

2tS:

ADD

10000%:

29%:

.WORD
. WORD
. WORD
.WORD

#0PR6,
= (SP)
HFMTOP1,~(SP)
#7,-(SP)
SP,RO

CSPNTF

O0BUFF
. CLEAR FOR RESPONSE
OPR002,0BUF
1,NO
F,
CSGMAN
10000%
OBUFF

T$CODE
?PROO?

TST
BEQ

OBUFF

EMT

CSETST

26%

ENDTST

104001

L10023:

JTEST

RESPONSE

NG - SKIP

YES

A SEMBLY ROUTINES

CZRLCB.P11

2705
2706
(3)
2707
2708
2709
2710
2711
2712

(025512
025512
025512
025520
025524
025526
025534
025536

(13) 025536
(13) 025540
(12) 025544

23-0CT-78 14:39

012737
005737
001173
032737
001567

9205046
153716
012746

013746
012746
012746
012746

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

025574
025600
025602
025604

012746
010600
104017
062706

2716
(3)
(3)

025614
025614
025616

2713

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

025570

025610

025620
025622
025624
025626

(3)
2715
2716
2717
2718
2719
2720
2721
2722
2723

025630
025630
025634
025636
025644
025650
025654
025656
025664
025670

2725
2726
2727
2728
2729

025700
025704
025706
025710
025714

2724

(11)
(10)
(9)
(9)
(8)
(7)
(6)
(3)

(4)
(4)

2730

025674

025714
025720
025724
025726
025732
025736
025742
025746
025750
025752

22-NOV-78

*TEST §

.SBTTL
BGNTST

(11) 025550
(10) 025554
(9)
025560
(8)
025564

(7)

MACY11 30A(1052)

012746

005037

000002
003062

002440

000004

014656
1%:

0Q(2455
005633
002450
005622
010416
010215

012016

000007
000020

062701

012746
012746
005046
153716
012746
012746
012746
010600
104017
062706

10000%:

006362
016446
016500

002434

002454
002454
0006004

002540

3%:

0004600

LPT0S5:

002454

(%
5%:

002000

010432
010422
002455
010244
012067
000005
000014

DRIVE SELECT

SEQ 0091

ORIVE SELECT
;TESTOS

#2 ,ERKRSW]
PASNUM

;SET FOR NO ERROR RETURN
JTEST IF FIRST PASS

TS::

.
EXTOS
‘NO ~ SKIP
#DRSELT MISWIW ;TEST IF SELECT TESTS
EXTOS
NO SKIP
#FMTOP1,#0PR7, IOPR1A ABASADD ,RLBAS ,#DRVNAM,<B,RLDRV+1> ,REQUEST REMOVE A
-(SP)
RLDRV+1, (SP)

#DRVNAM,
- (SP)
RLBAS ,=(SP)
#BASADD,~(SP)
#OPR1A,~(SP)
#OPR7 ,=(SF)
#FMTOP1,-(SP)
#7,-(SP)
SP,RV
CSPNTF

CLR

OBUFF

GMANIL
EMT
BR

004066

Mov
MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

004066

004066
000120
007724
000001

(022701
001001
005001
010137

BNE
BIT
BEQ
PRINTF
CLR
BISB

PAGE 2-11

=TEST §

MOV
TST

106043
000404

005737
001740
012737
Q04737
004737
026036
(C13737
013701
012704

16:20

#20,SP

;CLEAR FOR RESPONSE

OPROOZ2,0BUFF 1 NO
C$GMAN
10000%

.WORD
.WORD
.WORD
JWORD

OBUFF
T$CODE
OPROO2
1

ST
BEQ
MOV
JSR
JSR
15048
MOV
MOV
MOV

OBUFF
1%
#TOSERR,ERHEAD
PC,TSTINT
PC,GSTAT(C

:TEST RESPONSF YES
JNO = SKIP
:SET ERROR HEADER MESSAGE
JINITIALIZE TEST
;DO SELECT AND GET STATUS

RLDRV, TEMPO
RLDRV,R1
#4 R4

.STORF ORIGINAL DRIVE NUMBER
JPUT IT IN R1
;SET COUNT FOR NMUMBER OF PLUGS

ADD

CMP
BNE
CLR
017
PRINTF

MoV
MOV
CLR
BISB
MOV
MOV
MOV
MOV
EMT
ADD

#400,R1

#2000 R1

JBUMP TO NEXT DRIVE

;CHECK IF TO LARGE
‘NO - SKIP
R1
JELSE CLEAR TO DRIVE O
R1,RLDRV
PUT IT BACK IN RLDRV
#FMTOP3 #0PRS, ,#0PR1B,#UNDTST

AUNDTST,-(SP)
#OPR1B,
< (SP)
-(SP)
RLDRV+1, (SP)
#0PR8,-(SP)
#FMTOP3,-(SP?}
#5,-(SP)
SP,RO

C$PNTF
n’,SP

. 'NSERT PLUG REQUESTY

ASSEMBLY ROUTINES
MACYi1
CZRL(B.P11
23-0(7-78 14:39

025756
025762
025762
025764

005037

004737
026014
012737

10001%:

04066

BGNSUB

016500
000002

002440

60%:

16:20 PAGE 2-12
DRIVE SELECT

CLR
GMANIL
EMT
BR
.WORD
.WORD
. WORD
. WORD

OBUFF

SEQ 0092

. CLEAR FORP RESPONSE

OPR0O0Z2,0BUFF ,1,NO
CSGMAN

10001$
OBUFF
T$CODE
?PROO?

TST

OBUFF
5%

EMT
SR
60%

($8sSUB
PC,GSTAT(C

;GET STATUS = REPORT ANY FRROR

MoV

42 ,ERRSW]

JINIT ERROR SWITCH

EMT
DEC
BNE

sDEC _COUNT

TEMPO ,RLDRV

;ELSE

BEQ

;TEST RESPONSE
:NO - SKIP

YES

15.1:

ENNSUR

L10020:

104003

005304
001322
013737
012746
012746
012746

012746

010600
104017

062706
005037

026102
026104
026106
026106
026112
026114
026114
026114
026114

*TEST S

106043

104002

026022
026022
026022
026024
026026
026030
026036
026036
026036
025042
026046
026052

22-NQV-78

004066

000404
004066
000120
007724
. 000001
005737
001744

026014

30A(1052)

002540

010263
010244
012110
000003

T504%:
4%

00406¢€

mMov
PRINTF
MOV
MOV
MOV
MOV
MOV

EMT

000610
00466

104043
000404
004066
000120
007724
000001

005737
001751

002454

ADD
CLR
GMANIL

10000%
:

EXTQS:

EMT
BR
.WORD
.WORD
.WORD
.WORD

C$ESUB

LPTOS

104007

RESTORE RLDRV

AFMT1,#0PR8 ,#0PR9Y
#OPR9,-(SP)

(SP)
- 8,
#OPR
HEMT1 ,~(SP)
#3,-(SP)
SP,RO
CSPNTF
#10,SP
OBUFF

. CLEAR FOR RESPONSE

OPROOZ2,0BUFF ,1,NO
CSGMAN
10000%

F
OBUF
T$CODE
?PROO?

BEQ

TST

OBUFF
4%

EMT

($ETST

ENDTST

L10025:

;LOOP IF NOT ZERO

JTEST RESPONSE
JNO - SK]P

YES

ASSEMBLY ROUTINES
MACY11
CZRL(CB.PN
23-0(1-78 14:39

2754
2755
(3)

026116
026116
026116
026122
026124
026132
026134
026134
026136
026140
026146
026152
026156
026164
026166
026170
026174
026176
026200

30A(1052) T22°Ngv-78
.SBTTL
BGNTST

014656
1%:

006316
016446
003064
002012

002434

MOV
CMP

000091
2°%:

002012

3%:

10300
104042

103370
010004

021437
001364
005037
012737
056437
012737

012700

000003

005737
001735
032737
001415
000730

002430

012746
012746
012746

010300
012327
000002

104017

026332
026336

026364

002430

016514
000006

000013
002462
002456

010600

026344

002450

013700
013705
042700
042700
020527

100000

000006
02676€
000006

002462

000004
000000

;TESTO6

PASNUM

1%
#DRSELT ,MISWIW
48
TST
CSEXIT
L10027-.
#GSTER1
., ERHEAD
PC,TSTINT

PSETAM.R3
LSUNIT .1

5%
R3
R3,LSUNIT
3%
R3
R3.RO
R3.R0
C$GPHRD

8CC

002542

7%:

002454
002542

001400

20%:

002000
002000

T6::
JCHECK IF FIRST PASS
= SKIP
‘NO
sCHECK IF TEST DRIVE SELECT

JYES - SKIP

;SET ERROR HEADER
SINITIALIZE TEST
;GET PARAM SET NUMBER
sTEST IF MORE THAN 1 UNIT
:NO - SKIP
;BUMP PARAMETER SET NUMBER

'fig CKS£§PPAST VALID PARAMETER TABLE
sELSE

CLEAR TO POINT

RO, R4
(R4) ,RLBAS

CLR
MOV
BIS
MOV
MOV
MOV

DONE
#GSTAT,L.CS
6(R4),L.CS
. INSERT DRIVE
#GETSTAT \DRSET,L DA
;SET UP
L.DA.RLDA(R2)
;LOAD DA REG
L.CS.RLCS(R2)
sLOAD CS REG

JPUT POINTER

43
#3,R0
CSWTM

SWAIT 300 MS

BEQ
BIT
BEQ
BR

2$
#ANYERR,T.CS
7%
2$

JNO - SKJIP

DONE

PRINTF

#FMT9,#0PR10

MOV
MOV
MOV
EMT
ADD
JMP
MOV

#FMT9, < (SP)
#2,-(SP)
SP.R(
CSANTF
#6,SP
LCLEXT

MOV
MOV

BIC
BIC

CMP

#0PR10,=(SP)

6(RG)
, TEMP?

RS.#1400

JTEST

TO CLEAR DRIVE

INTEPRUPT

;TEST IF ANY ERROR SET

JNO - GO TEST

JELSE CHECK NEXT DRIVE
JREPORT CAN'T FINQ 2ND DRIVE

;STORE NEW ADDRESS

;ASK FOR PLUG CHANGE

RLDRV,RO
TEMPT RS

#2000.R0
#2000.R0

INTO R4

sCHECK ‘IF SAMc CONTROLLER
:NO ~ SKIP
;CLEAR DONE FLAG
;LOAD GET STATUS

WAITMS
MOV
EMT

MOV

TO ENTRY O

;SKIP IF NOT AVAILASLE

MOV
CMP

002466

SEQ 0093

DRIVE SELECT TEST

BLOS
INC
CMP
BLOS
CLR
GPHARD
MOV
EMT

BNE

002456
002456

DRIVE SELECT TEST

BNCOMPLETE

013762
013762

104026

BNE
BIT
BNE
EXIT
EMT
.WORD
MOV
JSR

PAGE 2=13

«TEST 6

155

003062
000004

16:20

;GET DRIVE UNDER TEST
JGET NEW ADDRESS .
;CLEAR FOR ADDRESS 0 TO 3
;TEST IF DRIVE NUMBER 3

ASSEMBLY ROUTINES

CZRLCB.P1

026370

MACY11

23-0(7-78 14:39
001001
005005
062705
020500
001770
052705
010562
005046
153716

005037

30A(1052)

22-NOV-78

*TEST 6

BNE

21%:

000400

02652¢

‘YES - SKIP

RS,RLCS(R2)

“AND LOAD CS REG

#FMTOP2 ,~(SP)
#5,-(SP)

*ELSE SET TO DRIVE NUMBER 0

:THIS EQUAL TO NEW ADDRESS?
*ELSE SET CONTROLLER READY BIT

#5?;9P2,#0PR8.<B,RLDRV+1>,#0PR1B,<B,TEMP141>

)

=(SP)
RLDRV+1, (SP)

#OPR8,=(SP)
SP,RO
CSPNTF

000014
004066

#14,SP

OBUF F

;CLEAR FOR RESPONSE

OPROJ2,08LFF ,1,NO
CSGMAN
10000%
O0BUFF
T$CODE

?PROOZ
100008:

004066
000012

052737
012737
013762
5037
013762

000003

012700
104027

000001

001131
006316

20§

002455
010244
012045
000005

000012

104463

:BUMP TO NEXT ADDRESS

TEMP1+1, (SP)
#0PR1B,~(SP)

012700

001406

#400,RS

002543
010422

002454
002456

005737

:?0 - SKIP

#CRDYMSK ,RS

013737
013762
104026

SEQ 0094

RS,R0

104043

104002

000210
000000

000404
004066
000120
007724
000001

005737
0017217
012704

16:20
PAGE 2-14
DRIVE SELECT TEST

002456

OBUFF
9%
#10..R4

BONSUB

002456
000000

($8SUB

8%:

RLDRV,L.CS

L.CS,RLCSR(R2)

;TEST IF RESPONSE YES
sNO -~ SK]P
JSET (OUNT
T6.1:

JSET UP TO SELECT MULTIPLE DRIVES
DO QT

#10. RO

CSWTM

002456
002462
000004
000000

#GTSTAT,L.CS
HGETSTAT ,L.DA

JSET GET

STATUS

L.DA,RLDA(RZ)

MOV
WAITUS

DONE

L.CS,RLCSR(R2)

#
#1,RO

CSwTU

;DO GET STATUS
JWAIT FOR

INTERRUPT

002430

DONE

sCHECK IF

INTERRUPTED

016314

PC,WAITIN

SJWAIT SOR

TIMEOUT

12%

ERRHRD
TRAP

.WORD
.WORD

(SP)+,R3
12%

6C1. ,GSTERT,ERR1

éggRCODE
v

GSTER1

JYES - SKIP

;GET ERROR POINTER
JSKIP IF O

MACY11
23-0(1-78 14:39

ASSEMBLY ROUTINES

CZRLCB.PY

026624
026626
026626
026630
026632
026632
026636
026640
026644

30A(1052)

22-NOvV-78

*TEST 6

013040

. WORD

1064032

000062

012700

000002

004737
026704
032737
001007
012703

016514

1046026

000400

12%:

011142

ERRHRD
TRAP

013154

104032

000000
100002

012746
012746
012746
010600

01034¢
012327
000002

062706
005037

000006
004065

104043

026756
026760
026760
026764
026766
026766
026766
026766

000404
004066
000120
007724
000001
005737
001753

10400

002440

.WORD
. WORD
EXIT
EMT
.WORD

16%:

MOV
DEC

60%:

MOV

ENDSUB

0 10030:

104003

104017

WAITMS
MOV

MOV

104443
001132

000020
010562
005304
001304
012737

EXIT
EMT
. WORD

EMT
JSR
60%
BIT
BNE

002474

15%:

16:20
PAGE 2-15
DRIVE SELECT TEST

SEQ 0095

ERR1
SuB

CSEXIT
L10030-.

#2
#2,R0

JWAIT FOR DSE

PC,GSTAT

:GET

#DSESTAT ,T.MP

TEST

CSWTM

16%
#MDSERR,R3

TO SET

STATUS
IF

DRIVE

SELECT ERROR SET

JYES - SKIP
;SET NAME MESSAGE POINTER

TSERCODE

602
ERR3
SU8

CSEXIT
L10030-.

RS ,RLCS(R2)

sLOAD

sLOOP IF NCT ZERO

#2 ,ERRSWI

C$ESUB
#FMT9 A0PR11

#0OPR11,-(SP)

;DEC

IN DIFFERENT ADDRESS

COUNT

;INIT ERROR SWITCH

;JREQUEST PLUG CHANGE

HFMT9,-(SP)
#2,-(SP)

SP,RO
CSPNTF

#6,SP
OBUF F

. CLEAR FOR RESPONSE

OPR002,0BUFF ,1,NO
CSGMAN
10000%
OBUFF
T$CODE

?PROO?

00406¢

OBUFF
158

(SETST

s TEST RESPONSE
:NC - SK]P

YES

ASSEMBLY ROUTINES
MACY11
CZRL(CB. P11
23-0CT1-78 14:39

2847

026770
026770
026770
026776
027002
027002
027006
027010
027014
027016
027024
027026
027032
027034
027040
027044
027046
027046
027050
0 7052
027054
027054
027056
027060
027064
027070

30A(1052)

22-NOV-78
TEST 7
.SBTTL
BGNTST

012737
004737

006347
010446

012700

000012

0026434

000427
012703

020337
001405

65%
BIT

002466

01071
0C0905

002502

000222
013701
032701

002474
000020

000010

011105

104443
001276

#10.,R0

CSUTU
PC,GSTATC(C

#DRDYMSK ,T.CS

. WORD

EXIT

014656

10 $:

TST

104443

TRAP

001277
013222

.WORD
. WORD
EXIT
EMT

104032

001000

"3 $:

.WORD
8T

:SET NAME MESSAGE POINTER

;GO _REPORT
JSET EXPECTED STATE VALUE

T.MP,R1

JGET MP REG
s CHECK HEADS OUT
:YES-SKIP
;SET NAME MESSAGE PTR
.GO _REPORT
s CHECK BRUSH HOME SET
JYES-SK]P
;SET NAME MESSAGE PTR

ERR3

JELSE REPORT STATE ERROR

JREPORT ERROR

TST

JEXIT

MISWIW

JTEST IF MANUAL INTERVENTION RUN
;NO=SK]P
JCHECK IF FIRST PASS
;NO=-SK]IP
JELSE CHECK HD O SELECTED
JYES=-SK]P
;SET NAME MESSAGE PTR
;SET CONDITION POINTER

CSEX]T
L10031-.

13%
AMHSTA
R3
ERRHRD

;CHECK IF DRIVE READY
;YES-SKIP

JEXIT

#HSSTAT
R1

011044
011763

JGET STATUS

TST
CSEXIT

#MBHSTA
,R3
702., ,ERR3
TSERCODE
702

17::

JWAIT 1 MS

JCHECK JF STATE 0K
JYES-3SKIP

003067

000100

;SET ERROR HEADER
JINITIALIZE TEST

R3,T.STAT
5%
7C1., ,ERR?7
TSERCODE
781

9%
,R1
#BHSTAT
108

9%:

104032

0001172
032701

n10.

#HOSTAT ,R1
’$
#MHOSTA
R3

7%:

013154

005737
001031
032701
001411
012703
012704

#INITST ,ERHEAD
PC,TSTIN

L10031-.

5¢%:

01113

000156
005737
100034

INITIAL STATE

ERR7

104032

SEQ 0096

;TEST 07

#MDRDY ,R3
9%
#5.R3

104443
001275
014220

001007
012703

027152
027156

*TEST 7
MOV
JSR
WA TUS
MOV
EMT
JSR

016500

000001

F
8
16:20 PAGE 2-16
INITIAL STATE

#CCYLUP,RG

703., ,ERRS
TSERCODE

JREPORTM

ERROR

703

ERR4
TST

CSEXIT

L*"031-.

R
#V(STAT

JEXIT
JCHECK

vOL

(HECK

SET

MACY11 3CA(1052) 22-N9V-78 16:20 PAGE 5-19

ASSEMBLY ROUTINES
CZRL(B. P11
23-0(1-78 14:39

2885

027176
027176
027202
027204
027212

001003
012703
000743
022737
001003

002466

15%:

163
AMDRERR ,R3
9%
R1
MILSTAT
17%
#MWLSTA
R3
705.,. fRR2
TSERCODE

16%:

11120

106443

001301
013106
042701
005701
001405

104443

027262
027264
027270
027274
027276
027300

705
ERR?Z

“7%:

#21177
,R1

"8¢%:

704., ,ERRG

R1
19%

T$ERCODE

001300
013342

704
ERR6

104032

CSEX]IT

000016
013707
042701
005701
001365

027300

027300
027300
027307

15%
#MVOLCK,R3
9%

#DRVERR,T.CS

011033
020000

012703

BNE
MOV

011061
040000

L10031-.

T.CS,R1

#161777.R1
R1
18%

2°S:
€5%:

ENDT>T

‘C‘flk\ ’

SEQ 0097

INITIAL STATE

£ 10031:

EMT

(SETST

JYES=SKIF

EESEESET NAME MESSAGE PTR
cTEST DRIVE

:YES-SK]P

FRROR SET

:ELSE SET NAME MESSAGE PTR
;G0 REPORT
JCHECK WRITE LOCK STATULS
sSKIP IF RESET
JELSE SET NAME MESSAGE PTR

;CLEAR STAUS EXCEPT FOR ERROR B;iTS
JCHECK ]F ANY ERROR SET

JNO-SK]P

JELSE REPORT ALL ERRORS

H3.

sGET (S REG
sCLEAR ALL BUT ERROR BITS
JTEST

ANY ERROR

JYES=SKIP TO REPORT

SET

ASSEMBLY ROUTINES

- OV~ NN

—J_‘_‘w.—l—‘-fl

NN =20

AR BB~ BB g

CZRL(B.P11

027302
027302
027302
027310

027314
027320
027330
02733%
027336
027344
027346
027352
027356
027356
027360
027362
027364
027364
027364
027364
027364

MACY11
23-0(1-78 14:39

30A(7052)

22-NQv-78

*TEST 7

.SBTTL
BGNTST

012737

006347
316446

004737
027364
005737

016464

005737
001013

003062

004737

100016

032737
001407
0127C3
012704
104443
001447
013222

002434

000100

002474

011044
011763

INITIAL STATE

INITIAL RESET STATE
18::

#INITST ,ERHEAD
PC,TSTINT

JSR

PC,GSTATR

JGET

TST
8PL
TST
BNE
BIT
BEQ

MISWIW

sCHECK

PASNUM
A S
#HSSTAT , T _MP

;CHECK ]F
;NO=-SK]P
JCHECK HD

#CCYLUP,RSG
8C1...ERR4

JSET CONDITION POINTER
;REPORT ERROR

ERRHRD
TRAP

A 3

4%
AMHSTA R3

TSERCODE

.WORD
.WORD

801

EMT

(SETST

ERR4

ENDTST

L10032:

SEQ 0098

;TEST 8

65%:
104001

MOV
JSR

MOV
MOV

A
¥

PAGE 2-18

*TEST 8

65%

014656

JINITIALIZE

TEST

STATUS WITH RESET

IF MAN INTERVENTION WAS RUN

JNO=-SK
1P

1ST PASS

SELECT

STILL

JYES-SK]P
.SET NAME MESSAGE PTR

ASSEMBLY ROUTINES
MACY11
CZRL(B. P11
23-0(1-78 14:39

30A(1052)
*

22-NOvV-78

TEST 8

.SBTTL
BGNTST

027366
012737
012701
005021
005021
r25021
(95011
004737
004737
027664
004737
010537
004737
027664
012703

001405

006375
002524

002434

CLR
CLR
CLR
(LR
JSR
JSR

65%

020530
002534
017346

JSR

MOV
JSR

65%

010711
011722
016514

MoV

MOV

JSR

65%

002466

81T
BEQ

ERRHRD
TRAP

104443

001605
013222

.WORD
.WORD
EXIT
EMT
. WORD
MOV
JSR

000121
016514

65%

000005
002502

MOV
cMP
BEQ

ERRHRD
TRAP

.WORD
.WORD
EXIT
tMT

010711
000001

002466

7%:

PAGE 2-19

INITIAL RESET STATE

*TEST 9
MOV
MOV

016446
016464

000001

16: 20

SEQ 0099

DRIVE READY
JTEST 9

#TO9ERR,ERHEAD
ANEWCYL
R

(RY)+
(R1)+
(R1)+
(R1)

PC,TSTINT

PC.GSTATR

19::

;SET ERROR HEADER

JGET POINTER TO DESIRED LOC
;CLEAR NEW CYL
CLEAR CURRENT CYL
DIFFERENCE
SIGN
JINITIALIZE TEST
;GET STATUS WITH RESET

PC ,POSHSB

;POSITION HEAD SELECTED BIT
;STORE AS DESIRED HEAD
JEXECUTE STMPLE SEEK

#MDRDY ,R3
#CDRDY ,R4
PC,GSTAT

;SET NAME MESSAGE PTR
;SET CONDITION POINTER
sGET STATUS

fiDRDYMSK T.CS

;TEST READY

901

JREPORT READY ERROR

RS5,DESHD
PC,SIMSEK

ERR4

TSERCODE
901
ERRS
TST

CSEXIT

L10033-~.

sNO-SKIF

SET

JEXIT

#81. Rl
PC.GSTAT

JSET WAIT COUNT
JGET STATUS

#5,R3
T STAT R3

sSET EXPECTED STATE VALUE

T$ERCODE

JCHECK STATE

JYES=-SK]P
;ELSE REPORT

IS S

902

ERR7
TST

CSEXIT
L10033-,
#MDRDY ,R3

#DgDYMSK,T.CS

. CHECK READY SET
JYES-SK]P

SELSE DEC WAIT COUNT

JSKIP IF O

1
000C
0%

027570

;REPORT

READY ERROR

MACY11
23-00T1-78 14:39

ASSEMBLY ROUTINES

CZRL(CB.PYT

(S)

2973
(%)
(3)

2974
2975
2976
2977
(%)
5
(5)

2978

3
(3
2979
2980
298"

2982
2983
2984
2985
(3
(5)

027572

013272

027574

104032
000066

027600
027604
027606
0276C6
027610
027612
02764
027614
027616
027620
027624
027630
027634
027636
027642

005737

027574

027576

027644
027644

(S)

2986
(3)
(3)

100005

30A(1052)

b2-NOV-78

*TEST 9

. WORD
EXIT
EMT
.WORD

002466

12%:

TST
BPL

ERRHRD

106463

TRAP

001670
013342

.WORD
. WORD
EXIT

104032

000046
012703
004737
020537
0014613
005737
001405

(3
(5)

027664
027664
027664

104001

T.CS

158
. ERRG
904.,

TST

20%

17%
905., ,ERR3
TSERCODE

905

ERR3
TST

CSEX]T

L10033-.
T$ERCODE
906

ERR2

M7y

ANY ERROR

CSEXIT

DE SHD

. 10033:

JNO=-SK]P

T$ERCODE

002534

c0%:
€£5%:
ENDTST

sTEST

904
ERR6

%, ,DESHD

001612

013106

187

CSEXIT
L10033-.

P(C ,POSHSB

SEQ 0100

ERRS

020530
002534

001611
013154

104443

DRIVE READY

#MHSTA
R3

104032

2987

PAGE ?2-2

L10033-.

071044

1046443

000010

16:20

($E°ST

;SET NAME MESSAGE PTR
;POSITION HEAD SELECT BIT FOR TEST
sCHECK IF CORRECT HEAD SELECTED
;YES=SK]P
JELSE TEST IF 1 DESIRED
;NO-REPORT SB 0
JELSE REPORT SB 1

ASSEMBLY ROUTINES
MACY11
CZRLCB.PT
23-0C7-78 14:39

006405
002524

002434

K 8
16:20 PAGE 2-21
SEEK SIGN SWITCH

«TEST 10

JSR
MOV

P(C.POSHSB

—
»
NN

;TEST 10

#T10ERR ,ERHEAD
MNEWCYL
R
(R1)+
(R1)+
(R1)+

T104%:
BGNSUR

ABITO,(R1)+
R5,(R1)+

($8SUB

110.1:

JINITIALIZE TEST
;GET STATUS

017346

PC,SIMSEK

;DO SEEK

010711
011722
016514

#CDRDY
R4
PC,GSTAT

A#MDRDY ,R3

;SET NAME MESSAGE PTR
;SET CONDITION MESSAGE PTR
;GET STATUS

#DRDYMSK ,T.(CS

;CHECK READY RESET
cYES-SK]P
;REPORT READY ERROR

002466

000121

016514

c$:

000005
002502

4%
1001., ,ERR4
T$SERCODE
1001
ERR4
SuB

SJEXIT SUBTEST

#81. ,R1
PC,GSTAT

;SET WAIT COUNT
;GET STATUS

#S,R3

sSET EXPECIED STATE
JCHECK STATE IS 5
JYES~SKIF
;REPORT STATE ERROR

R3,T.STAT
7%
1002., ,ERR7
T$ERCODE
1002

ERR?7
SuB

104032

104027

sCLEAR NEW CYL
;CLEAR CURRENT CYLINDER
sCLEAR DIFFERENCE
;SET FOR SIGN OF 1
JGET SELECTED HEAD
;SET AS DESIRED HEAD

PC,GSTATR

104443
001752
014220

012700

T10::

PC,TSTINY

CSEXIT
L10035~.

000130
012703
032737
001013
005301
001404

;SET ERROR HEADER

016446
016464

0000CT

012701
004737
030166
012703
020337
001405

SEQ V101

SEEK SIGN SWITCH

MOV
MOV
C.R

CLR
CLR
BIS

006001
020530

QOOQOO

(3)

'gg?NOV-78
.SBTTL
BGNTST

027666

—2 = NOW
g nNVO
SO

2993

30A(1052)

010711
000001

000001

002466

CSEXIT
L10035-.
#MCRDY ,R3

7$:

#DRDYMSK ,T.7S

12%
R1

WA TUS
MOV

EMT

a1
#° RO

CSwTJ

SEXIT
;SET NAME MESSAGE PTR
;CHECK READY SET
sYES-SKIP
;DO WAIT COUNT

JSKIP 15

ASSEMBLY POUTINES
MACY1T
CZRLCB P11
23-0C7-78 14:39

3033
3034
3035
(3)
(9)

030066

030070
030070
030072
030074
030076

30A(7052)

22-NOV-78

«TEST 10

000747

BR
9% :

106443

001753
013272
104032
000066
005737
100005

002446

011044
020570
002534

15%:

002534

104443
001755
013154
104032
000010

17¢%:

104443

001756
013106

SEEK SIGN SWITCH

SEQ 0102

5%
1003.,.ERRS
TSERCODE

1003
ERRS

SUB
CSEXIT
L10035-.
T.CS
15%

TRAP

T$ERCODE

1004., ,ERR6

.WORD
.WORD

1004
ERRG6

JREPORT READY ERROR

JEXIT
JTEST

;NO-SK]P

ANY COTHER ERROR

;REPORT ALL ERRORS

JEXIT

.WORD

SUB
CSEXIT

£10035-.

MOV
JSR
CMP
BEQ
TST
BEW
ERRHRD

#MHSTA
R3S
FC,POSHSB
RS ,DESHD
208
DESHD
17%
1005., ,ERR?

sSET NAME MESSAGE PTR
cGET SELECTED HEAD BIT
sCHECK IF CORRECT
JYES - SKIP

JWAS IT SET
;NO-SK]P
JREPORT SB 1

1006., .ERR?

sREPORT SB 0

TRAP
.WORD
.WORD
EXIT
EMT
.WORD

TSERCODE
1005
ERR3
SUB
CSEX]T
L10035-.

TRAP

T$ERCODE

ERRHRD

LWORN
. WORD

1006
ERRZ2

20%:
60%:

ENDSUB

1046003

005737
001404
005037
000137

L10035:

002532
002532
027720

25%:

EMT

($ESUB

TST
BEQ
(LR
JMP

DE SSGN
25%
DE SSGN
T104%

EmMr

ree71ST

ENDTST

030206

PAGE 2-22

EXIT
EMT
.WORD
TST
BPL

EXIT
EMT

104032
000046

030166
030166
030166
030166
030166
030170
030174
030176

TRAP

ERRHRD

001754
013342

030164

ERRHRD

.WORD
.WORD

106443

012703
004737
020537
001413
005737
001405

16:20

104001

110034:

;CHECK IF BOTH SIGN USED
SYES=-SK]P
sSET "OR SIGN OF 0O
;DG TEST AGAIN

ASSEMBLY ROUTINES
MACY11
CZRLCB.P11
23-0(1-78 14:39

030210
830210

30A(1052)

*TEST 10

.SBTTL
BGNTST

032737
001411
005737
001006
023737
001004
000137

000010

014656

002454

000374
013737

005046
153716
012746
013746
012746
012746
012746
010600

002455
005633
002450
005622
012143
000005

062706

000014

012746
012746
012746
010600

007567
012327
000002

062706

000006

012746
012746
012746
010600
104017
062706

007652
012327
000002

104017

002632
1%:

002432

002456

BNE
cMP
BNE
JMP
EXIT
EMT
. WORD

MOV
PRINTF
CLR
B1S8
MOV

MoV
MOV
MOV
MoV
MOV

m 8
PAGE 2-23

SEQ 0103

SEEK SIGN SWITCH

HEAD AL IGNMENT SUPPORT

;TEST

AHDAL IGN,MISWIW ;CHECK

1%
PASNUM
1%

RLDRY ,HADONE

%;}55

T11::
RUN HEAD AL IGNMENT

JNO-EXIT
;TEST IF PASS O
JNO-EXIT
;TEST

HEAD ALIGN DONE

THIS DRIVE

;NO - SKIP

;G0 CHECK WRITE LOCK

CSEX]T

L10036~-.

RLDRV ,HADONE
:SEr HEAD ALIGN DONE FLAG
#ig;;,IBASADD,RLBAS,#DRVNAM,(B,RLDRV*1>

RLDRV+1, (SP)

#DRVNAM,
- (SP)
RLBAS ,~(SP)

#BASADD ,~(SP)
HFMTS,-(SP)
#5,-(SP)

SP,RO
CSPNTF

#14,SP
HFMTO , AHAME ST
#HAMEST
, - (SP)
HFMT9 ,=(SP)
#2,-(SP)

sTYPE

INSTRUCTIONS

SP.,RO
CSPNTF
#6,SP
HFMT
, AHAMEO
S2
H#HAMES?
- (SP)
#FMT9,-(SP)

#2,-(SP)

SP,RO
CSPNTF

000006

016446
002430
002454

*TEST

TST

030540

002454

16:20

BIT
BEQ

003062

104032

030456

22-NO V=78

BGNSUB

3%:

002456
002456
002462
000004
000000

#6,SP

($BSUB

PC,TSTINT

;INITIALIZE TEST

DONE
RLDRV,L.CS

¢ CLEAR DONE
SET UP FOR GET STATUS

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

;DO GET STATUS

#GTSTAT,L.CS
#GL TSTAT!DRSET,L
.DA

000062

#50.
450, R0

002430

DCME

CSWTM
3

;sWAIT FOR

INTERRUPT

cCHECK

DONE

;NO-GO CLR

CONTROLLER

ASSEMBLY ROUTINES
I

CZRL(B P11

MACY11
2 3-0CT1-78 14:39

30A(1052)

22-NOV-78
«TEST 11

10%:

16:20

PAGE 2-24

HEAD AL IGNMENT SUPPORT

SEQ 0104

3089

3090
3091

309 2
3093
3094

SIBIRILLRILLRSE
LY

000020
002456
000106
002462
002456

002462
002456
002456
000004
000000

012700

000036

OWWO
O

104002

L10037:
T115%:
BGNSUB

016446
016464

012746

010377

012746
012746
010600

NN
P
R

104017

104043
000404

020000

#HDSEL ,L .DA
RLDRV,L.CS
WSEEK,L.CS

123

L.DA,RLDA(R2)
L.CS,RLCSR(R2)
#30.
#30. R0
CSWTM
3%

P
S

005737
001753

I
N

NN
e T S

104003

030640
030640

002474
18%:

C$ESUB

EMT

($8SUB

8EQ

PRINTF

MOV

MoV

000002

MOV

s YES=-SK]P

;ELSE CLEAR TO HEAD 0O
;LOAD IN DRIVE NUMBER
;SET FOR SEEK

;LOAD & EXECUTE SEEK
;WAIT FOR INTERRUPT

.LOOP

T11.2:

JINITIALIZE TEST

PC,TSTINT
PC,GSTATR

;CLEAR DRIVE

#WLSTAT,T.MP

;CHECK WRITE

#FMT9,#0PR12

;REQUEST WRITE LOCK RESET

19%

#0PR12,-(SP)

;YES-SK]P

LOCK RESET

N#FMT9,-(SP)
#2,-(SP)

ADD

00406¢€

CLR

10000$%:

19%:

60%:
ENDSUB
L10040:

:
208

GMANIL
EMT
BR
. WORD
.WORD
WORD
.WORD

0BUF F

L10036:

;GET RESPONSE

OBUFF
T$C0DE
?PROO?

TST

OBUFf

EMT

($ESUB

EMTY

CSETST

BEQ

;.CLEAR FOR RESPONSE

OPR0O2,0BUFF ,1,NO
CSGMAN
100008

18%

ENDTST

104001

EMT

000006

004066

EMT

JSR
JSR
60%
BIT

012327

004066
000120
007724
000001

(NN NN

BI(
MOV
BIS
MOV
MO

59%:

004737
004737
030636
032737
001425

062706
005037

WMHDSEL 'MBSETO,L.DA;LOAD FOR HEAD 1
MILSTAT, T .MP
cCHECK IF WRITE LOCK SET

MOV

104003

(&)

12%:

MOV
BIT

ENDSUB

(8)

NN
2 (NN
=2 d d BN NNN D (NN — = N
N N NDOD N N NN N BN N
W v o e e e Y =

002462
002474

104026

AN
NN NN

200021
020000

000715

WWO

3095
3096
3097
3098
3099

012737
032737
01003
042737
013737
052737
013762
013762

JWAS ANSWER YES

;NO-REPEAT REQUEST

MACY'T
23 -0CT1-78 14:39
:

ASSEMBLY ROUTINE S

CZRL(B.P1

30A(1052)

22-NOV-~78
«TEST 1

.SBTTL
BGNTST

000425
002524

002434

000001

T124%:
BGNSUB

R
iy

«TEST
MCv
MOV
CLR

012737
012701
005021
005021
005021
005021
01271

CLR
CLR
(LR
MOV

WWNWNWNW

PC.SIMSEK

;DO SEEK

MoV
MOV

#MDRDY ,R3

;SET NAME MESSAGE PTR
;SET CONDITION POINTER
JGET STATUS

60%
JSR

60%
BIT

00246¢

BEQ
ERRHRD

000121
016514

5¢:
6£$:

000005
002502

012700

000001

002466

1201
ERR4
su8
CSEXIT

. CHECK IF READY

:NO-SKIP

sREPORT READY ERROR

MOV
JSR

481. ,R1
PC,GSTAT

;SET WAIT COUNT
;GET STATUS

Mov

#5,R3

;SET EXPECTED STATE VALUE
JCHECK IF STATE IS 5

60%

.WORD
.WORD
EXIT
EMT
.WORD

010711
000001

5%
1201., ,ERR4
T$ERCODE

L10042-.

TRAP

012703
032737
001013
005301
001404

#DRDYMSK ,T.(CS

.WORD
.WORD
EXIT
EMT
.WORD

CMP
BtQ
ERRHRD

104032
000130

#CDRDY ,R4
PC.GSTAT

T12::

T12.1:

JSR

60%

104443

($8S'8B

SEQ 0105

;GET POINTER TO DESIRED LOCATION
sCLEAR NEW CYLINDER
;CLEAR CURRENT (CYL.
;CLEAR DIFFERENCE
;CLEAR SIGN
:SET FOR HEAD 1

017346

002262
014220

—

v g aad

d ik

N ALYV, JUNIV, IV, 1V, |

#1,(R1)+

;SET ERROR HEADER

INITIALIZE TEST
sGET STATUS WITH RESET

030750

031010
031014
031022
031024
031026
031030
031030

#T12ERR,ERHEAD
MNEWCYL
R
(R1)+
(R1)+
(R1)+
(R1)+

PC,TSTINT
PC,GSTATR

TRAP

(3)

HEAD SWITCHING
JTEST 12

016446
016464

000001

012701
004737
031136
012703
020337
001405

EMT
JSR
JSR

010711
011722
016514

030752
030756

16:20
PAGE 2=25
HEAD AL IGNMEN T SUPPORT

MOV

BIT
BNE

DEC
BEQ
WAITUS

MOV

R3,T.STAT
7$

"$ERCODE
1202

JEXIT

;YES-SKIP
JREPORT STATE ERROR

ERR?7
SuB

CSEXIT

L10042~.
H#MDRDY ,R3

#DRDYMSK ,T.(CS

12%
R1
9%
,.

#1,R0

;SET NAME MESSAGE PTR
;CHECK DRIVE READY
s YES-SKIP
JDEC WAIT COUNT
JSKIP IF O

ASSEMBLY ROUTINES

CZRLCB.P11
(3)

031034

%122

031056

3165
(3

031040
031040

2166
(3)
3{2;

031046
031046
031050

(5)
(5)

031042
031046

23~0CT~78 14:39

013342

(3)
(3)
3180
(3)
(5)
3{34

031724
031126
031130
031130
031132
021134

3182
3183
2186
(3)
(3)

3185
3186
3187
2188
3189
3190
(3)

(3)

031136
031136
031136
031136

031136

002466

12%:

106443

104032
000046
012703
004737
023705
001413
005737
001405

104443
(u2265
013154

002534
.

17%:

104443
002266
013106

104003

031156

104007

SEQ 0106

CSWTU

ERRHRD
TRAP

JREPORT %FADY ERROR

EXIT
EMT
.WORD

1203., .ERRS
T$ERCODE
1203
ERRS
SuB
CSEXIT

L10042-.

ST
BPL
ERRHRD
TRAP

T.CS
15%
1204., ,ERR6
T$ERCODE

;TEST IF ANY ERROR
*NO-SKIP
JREPORT ALL ERRORS

EMT
.WORD
ERRHRD
TRAP
.WORD
.WORD

SEXIT

1206

.WORD
ERR6
EXIT
Sus
EMT
CSEXIT
.WORD
L10042-.
MoV
#MHSTA R3
JSR
PC,POSHSB
CMP
DESHD RS
BEQ
208
TST
DE SHD
BEQ
17%
ERRHRD . 1205.
. .ERR3
TRAP
TSERCODE
.WORD
1205
.WORD
ERR3

EXIT

104032
000010

005737
001404
005037
000137

15%:

HEAD SWITCHING

.WORD

011044
020530
002534

cC.S

PAGE 2-26

B8R

LWORD
.WORD

002264

031140
031144
031146
031152
031156
031156
031156

9%:

000066

031064
031066
031066
031070
031072
031076
031102
031106
031110
031114
031116
031116
031120
031122

031124

EMT

104032

(5)
3171
(3)
(3)
3172
3173
3174
3175
3176
3177
3178
(3)
(5)
(5)

16:20

104443
002263
013272

005737
100005

3179

ng;~9¥-78

104027

031052
031056
031060
031060

031062

30A(1052)

000747

2168
3169
3170
(3)

(5)

MACY11

SUB

CSEXIT
L 10042-.
1206., ,ERR2
TSERCODE
1206
ERR?

‘
;

)

;SET NAME MESSAGE PTR
*POSITION HEAD SELECT BIT
:CHECK IF CORRECT HEAD SELECTED
SYES=SKIP
*WAS HZAD O SELECTED
SYES-SKIP
*REPOR] HEAD SB 1

SEXIT
;ELSE REPORT HEAD SB 0

20%:
60%:
ENDSUB
L10042:
EMT

002534

002534
030670

258:
ENDTST

L10041:

CSESUB

ST
BEQ
CLR
JMP

DE SHD
25%
DE SHD
T124%

EMT

CSETST

;CHECK IF HD O WAS DONE
SYES--SKIP
:ELSE SET TO HEAD Q
*REDO TEST

ASSEMBLY ROUTINES
MACY11
CZRLCB.PT
23-0C1-78 14:39

30A(1052)

22-NOV-78

«TEST 12

LSBTTL
BONTST
012737
012701
005021

006437
002524

002434

005021
005021
005021
005021

T134%:

16:20
PAGE 2-27
HEAD SWITCHING

«TEST 13

SEQ 0107

READ HEADER

TEST 13

(PART

T13::

MOV

#T13ERR,ERHEAD

EMT
JSR
JSR

CIRSLB
2C,TSTINT
PC,GSTATR

JINITIALIZE TEST
;GET STATUS W/RESET

JSR

PC,SIMSEK

;DO SEEK

JSR

#81. ,R1
PC,RDYWA]T

JSET WAIT COUNT

JSR

PC ,XRDHDC

.DO READ HEADER

JSR

MMHSTA
RS
PC ,POSHW
RS ,DESHD

;SET NAME MESSAGE PTR
sPOSITION HS BIT IN HD WRD 1
;CHECK [F HEAD (CORRECT
s YES=SK]P

MOV
(LR
(LR
(LR
LR
(LR

ANEWCYL ,R1
(R1)+
(R1)+
(R1)+
(R1)+
(R1)+

;SET ERROR HEADER
.GET ADDRESS OF DESIRED LOCATIONS
;CLEAR NEW CYL
;CLEAR CURRENT (CYL
JCLEAR DIFF
;CLEAR SIGN
;CLEAR HEAD

BGNSUB

016446
016464

60%

017346

331236

031304

031240
031244
031246
031252
031256
031262
031264
031264
031266
031270
031272
031272
031274
031276
031276
031300
031302

004737
031304
012703
004737
020537
0014170

031304
031304
031304
031304
031304
031306
031312
031314
031322
031330
031332
031340
031346

60%
MOV

000121
020560

60%

020072

10%:

60%
MOV

011044
020522
002534

tMP
8EQ
ERRHRD

104443

TRAP

002425
013154

000010

17%:

104443

002426
013106

T$ERCODE

.WORD
.WORD

1307
ERR3

LWORD

L10044~-.

.WORD
.WORD

1302
ERR?

EXIT
EMT

104032

15%
1301.,,ERR3

ERRHRD
TRAP

T13.1:

JWAIT

FOR READY

JREPORT

5B 1

SUB
CSEXIT

1302...ERRZ
T$ERCODE

JREPORT SB 0

15%:

60%:

ENDSUB

104003

005737
001067
012737
013737

023737

L10044:

002534

000001
002474

002534
002540

100177
100177

002549
002474
002474

002540

EMT

DESHD

MOV
MOV

#1,DESHD
HDWRD1, TEMPO

BIC
(MP

TEMPO ,HDWRD

B8NE

20%:

($ESUB

TST

B8R
BIC

20%

;TEST

HEAD

DONE

JYES=SXIP
cELSE SET TO HEAD 1

sSTORE HDR WORD 1
;DO _TEST AGAIN
JCLEAR ALL BUT CYLINDER IN 1ST HEADER
#°"HDCYL ,HDWRD1 sCLEAR ALL BY (YL IN OND HFADEK

T134%
#2CHDCYL ,TEMPO

. COMPARE

EQUAL

ASSEMBLY ROUTINES
MACY17
CZRLCB.P11
23-0CT1-78 14:39

3235
3236
3237

(3
(5
(5)
3238
3239
(3)
(3

031354

001405
012703
104443

002432
013040

031370

104001

007503

30A(1052)

22-NOV-78

«TEST

16:20

PAGE

READ HEADER

1306. ., ,ERR1

JREPORT HEAD AL JGNMENT PROBLEM

TRAP

T$ERCODE

" EMT

JYES=SK]P

#CYLPER,R3

.WORD
.WORD

(PART

223

BEQ
MOV

ERRHRD

9
2-28

1306

ERR1

CSETST

;SET NAME MESSAGE PTR

SEQ 0108

MACY11
23-0(71-78 1 4:39

ASSEMBLY ROUTINES

CIRL(B.

30A(1052)

3241
3242

22~-NOV-78

* TEST 14
LSBTTL
BGNTST

012737
012701
005021
005021
005021
005021

006453
002526

002434

«TEST

MOV
MOV

7153%:

CLR
CLR
CLR
(LR

16:20
PAGE 2-29
READ HEADER (PART ?2)
14

STEST

14READ HEADER

#T14ERR,ERHEAD
#CURCYL
R

(R1)+
(R1)+
(RY)+
(R1)+

SEQ (109
(PART 2)

;SET ERROR HEADER

;GET ADDRESS OF DESIRED VALUE
JCLEAR CURRENT (YL
;CLEAR DESIRED DIFF
;CLEAR SIGN
;CLEAR DESIRED HEAD

BONSUB

104002

004737
004737
031622
004737
031622
012701

PC,TSTINT

PC,GSTATR

JINITIALIZE TEST
;CLEAR DRIVE

017346

2C,SIMSEK

;DO SEEK

0003°0
020560

#290. ,R1

;SET WAIT COUNT FOR 20 MS

021154

PC ,RDALHD

;DO READ HEADER ALL HEADERS

MORE CE

;CLEAR MORE (OMPARE ERRORS FOR REPORT
;SET HDR COMPARE FLAG
;CLEAR FOR HDR COUNT
;GET POINTER FOR HDR TO BE CHECKED
;GET POINTER TO TEST AREA

PC,RDYWAIT

002476

# IBUFF
R4
#TEMPO RS
#40. Ri
(R&4), (RS)

FOR READY

;SET HDR COUNT

GET FIRST HEADER WORD

#81T15 'HDHSEL . (RS):CLEAR BIT 15 AND HEAD SEL BIT

100100

002534

000100
000002

;WAIT

#HDRC
,OPF
MP
LAG

003466
002540
000050

DESHD
10%
#HDHSEL
, (RS)
1N%:

005744

2(RS)
(RS) ,(R4)+
13%

002735
014430
005724
005203
005724
001405
022544

ERR1N

;CLEAR 2ND WORD OF TEST AREA

JSKIP IF

JELSE POSITION R4 TO BAD WORD

;REPORT ERROR

;JBUMP R4 TO NEXT WORD
JBUMP WORD COUNT

15%

JYES = SKIP
;JPOSITION PTRS FOR REPQRT

;TEST 2ND WORD IS O

(R5)+,=~(R4)

150
., .ERR10
1.
T$CRCODE

1501

ERR10

'5¢%:

IF HD O DESIRED

:YES-SKIP
JELSE SET HEAD BIT

+
(RG)
R3
(R4)+

1046643

;TEST

; COMPARE HEADER WORD

~-(R4)
1501., ,ERR10
T$ERCODE
1501

104443

011500

T14.1:

($8sSUB

01644€
016464

002436
000002

002735
014430
024524
005724
005203
005215

T14::

=(R5),(R&,+
+
(R&)

ne)
(RS) RO

<REPORT ERROR

JREPOS]I "ION POINTER
JPOSITIUN R4 PAST ECC WORD
JBUMP WORD COUNT
JBUMP SECTOR COUNT
JCHECK IF SECTOR [S PAST LAST SECTOR

ASSEMBLY ROUTINES

CZRL(B P11

23-0(71-78 14:39

——

~no

puly

(o)

WWIWNW

031600
031604
ololeole)]

MACY11

042700
022700
001002
062715
005301
001344

30A(1052)

22-NOV-78

«TEST

177700
000050

000077

16:20

PAGE

9
2-30

READ HEADER

#~(HDSEC
RO
#40. RO
17%
#HDSEC, (RS)
R1
108

17%:

(PART 2)

sNO-SKIP
SELSE CLEAR SECTOR TO O
;DEC HDR (OUNT
s YES-SKIP

:
608
END_
B

031632
031640
031644
031044
031644
03164~
03164¢

104003
005737
001005
012737
7
00C

L10046:

002534
000001
031414

0G253%4

208:

EMT

C$ESUB

TST

DE SHD

MOV
JMP

#1,DESHD

C$eTST

208

11638

iNDTST

1064001

L10045:

£ NDMOD

sCHECK IF HD 1 TESTED
sYES=SKIP
SELSE SET TO HEAD 1
sREDO TEST

- SEQ 0110

ASSEMBLY ROUTINES
MACY11
CZRLCB. P12
22-NOV-78 16:19

3306
3367
(3)
3308
4)
\)
(4)

3309
)
4)
4)
(4)

031646
031646
031646
031650
031650
031652
031654
031656
031656
031660

3310
(4)
4)
)
(4)

(4)
)
(4)

(4)

3312
(4)

031670
031672
031674
031676

031676

031700
031702
031704
031706
031710
031710
031712
031714
031716
031720

30A(1052)

000025
004130
03764
000001

22;NOV-78

160000
177776

GPRML

CNTYPE,CNT,1,YES
.WORD
TSCODE
.WORD
CNTYPE
1
.WORD
CSRMSG,CSR,0,160000,177776,YES
.WORD
TSCODE
.WORD
CSRMSG
.WORD
TSLOLIM
.WORD
TSHILIM
VECMSG,VECT,0,0,776,YES
.WORD ~ T$CODE

GPRMD

00203¢

031745
000340

000000
000007

GPRMD

003032
031756
003400
000000
000007

031722

L10047:

031772
031772
031772
031774
031774
031776
032000
032002
032002
032004

102

042526
051104
0466122

031772

v00021

000130
032036
000004
000730
032071

.WORD
-WORD

VE(MSG
TSLOLIM

.WORD

BRMSG

TSHILIM
.WORD
BRMSG,PRIOR,0,340,0,7,YES
.WORD
T$CODE

340

.WORD
TSLOLIM
.WCRD
TSHILIM
DRMSG,DRSB, 0, 3400,0,7, YES
.WORD "~ TSCODE
.WORD

DRMSG

.WORD
LWORD

TSLOLIM
TSHILIM

.WORD

ENDHRD

052502
051104
042526
000

.WORD L10047~L$HARD/2

.WORD

031722

031722
031730
031736
031744
031745
031752
031756
031764
031771

READ HEADZR (PART 2)

HRDPRM

GPRMA

00033
031736
000000
000776

PAGE 3

BGNMOD
BGNHRC

GPRMA

000031
031722

6:20

3400

.EVEN

020123
051505
052103

042101
000123
051117

{SRMSG:

LASCIZ

/BUS ADDRESS/

VECMSG:

LASCI.

/VECTOR/

020122
000114
053111
030461

042514

BRMSG:

LASCIZ

/BR LEVEL/

000705
000

DRMSG:
CNTYPE:
ENDMOD

.ASCIZ

/CRIVE/

/RL1V/

LASCIZ
.EVEN

BGNMOD
T
BONSF

SF TPRM

SELQ,MI>SW],4,YES

" ~RM|

.WORD L17050-L$SOf1/2
.WORN
.wURD
. WORD

" TSCODE
SELO

ALGNQ, M!SUI 10, YES
LWORD TM
-WORD

T37ODE
ALGNQ

SEQ 0111

ASSEMBLY ROUTINES

CZRLCB.PT?

MACY11
22-NOV-78 16:19

(&)

000010

(«)
)
(&)

000130
032130

3335

3336
3348
(4)
(4)
\)
(&)
(4)

032014
032016
032016
032020
032022
032024
032026
032030
032030
032032
032034
032036

30A(1052)

3361

100900

004052
032172
000377

GPRML

000130
032276

000020

ENDSFT

L10050:
054105
020105
020105
052103
051524
105

041505
051104
042523
052040
000
0462530
044040
046101
047105

050120

3363

032250

050117
042526
047516
047520

SEQ 0112

(PART ?2)

.WORD
10
MANQ MISWI, 100000, YES
.WORD
T$CODE
MANQ
.WORD
.WORD
100000
GPRMD
.WORD
.WORD

ERLIMQ,ERLIM,L,377,0,377,YES
T$CODE
ERL IMQ

377

IM
TSLOL
.WORD
TSHILIM
.WORD
AUTOQ,M]ISW],20,YES
.WORD
T$CODE
.WORD
AUTOQ
.WORD
20
EVEN

St .Q:

LASCIZ

/EXEZUTE DRIVE

052502
040505
043511
020124
051117

ALGNQG:

LASCIZ

/EXECUTE HEAD AL IGNMENT SUPPCRT/

MANQ:

ASCIZ

/EXECUTE

ERL IMQ:

LASCIZ

/SPECIFY ERRCR LIM]IT/

AUTOQ:

LASCIZ

/DROP DRIVE

042040
0464440
051040
051516

ENDMOD

022514

052125
0531
042514
051505

041505
040515
044440
042526
020116
000123
041505
051105
044514

000105

READ HEADER

.WORD

GO0000
000377

042524
020104

032240
032246

«TF ST

GPRML

032036
032036

22-NOV~78 16:20 PAGE %-1

MANUA!

SELECT TESTS/

[NTERVENT]ION

TESTS/

IF NO RESPONSE/

VEN

32514

JAREA RESFRVED AS PATLH AREA FCR DIAGNOSTI(S.

;.=32514 WAS SELECTED AS ‘1ASTAD'' TO PROVIDE APT TO LSI=11 COMPATIBILITY.
JBIT 7 GF "YLASTAD'' MUST BE (L EARED TO ACHIEVE A VALID MAILBOX ADDRESS
JWHEN RUNNING ON THE LSI=11 UNDER APT,

ASSEMBLY ROUTINES

CZRL(B.PT?

3387
3383
3399

300
(2)
(3)

MACY11

22~NOv- 8 16:19

SOA(1052)

22-NOvV-78

«TEST 14

(0325%¢

LASTAD

0354

CSLAST:

.EVFN

°6:20

PAGE

3-2

READ HEADER

(PART 2)

SEQ 0113

EMBLY ROUTINES
MACY1T1
RLCB.SUP
23-0C7-78 09:52
<

3602

14273
16276
16275
16276
16277
14278

063310
0€3312
0€33°4
063316

30A(7052)

22-NOV=78
16:20
PAGE &
DIAGNOSTIC SUPERVISOR == LOW (ORE

.SBTTL

000000
000000
000000
000000
0€3322
00020C

SEQ 0114

DIAGNOSTIC SUPERVISOR == LOW CORE SET UP

LWORD
0
.WORD
0
.WORD
0
.WORD
O
END.SUPV-,
¢¢
.END 200

SET uP

:SPACE FOR USER POOL POINTER
JSIZE
sCHECKSUM (NOT CURRENTLY USED)

JSIZE OF H.J.

PTAB.

ALLOCATION

033040 G
032756 G
035320
002632

AFMIDU
AFSI

002634
032546 G

ANYERR=
APT.ER
ARMID
ARMIDU
ASSEMB=
AUTOQ
AUTOSZ=
ASAAV
ASAAW
ASAAX
ABAAY
ASAAZ
ASABA
BADADD=
BAMSK =
BANAM
BASADD

100000
034450
002636

BIT3

BIT4
BITS

B8%$AAR
BSAAE

002640
000010
032216

CAFDT
CALLPC=
(ALLPS=
CALLSP=
CALLTC=
CAL.CL
CAL.T]
CAMSK =
CCYLUP

000020
037316
037332
037344
037352
037366
037376
004000
000060
005740
005622

000010

- 000020
000040

G
G
G
6

010521

G+1604
046151¢€
011774
000022
000024
000026
000030

TABLE

PAGE

L
5

SEQ 0115

CONTCL
061672
CONTIN 015122
COSTAT= 000040
COUNT
002656
CRDYMS= 000200
CRLF
052172
CSNAM
005733
= 000000
(SR
CSRMSG
031722
CURCYL
00252¢
CURR.S
032522

CURR.T
CYLPER
CYLTBL
CYLUP =
CYLWD
($AAD
C$AAE
C$AAK
(SAAL
C$ABRT

032524
007503
002357
000004
070506
045062
045074
0646072

C$ADR
($AU
{SBRK

(DRDY

CHKLUP
CHKSTR
CHKTTY
CHK. .MA
CHK .PC
. SW
CHK

CHRCNT

{ ONHNG= 000004

(219

CH.FLA
CH.PAS
(KDATA=
CKERLM
CLEAR.
CLKACC
CLKBFR
CLKCNT
CLKJUM
CLKRES
CLKSER
CLKSCN
CLK.SE
CLNCOD
CLRPAR
CLR.mA
=
CNT
CNTYPE
CNVT
COMMAN
COMMTA
(OMPOP

(]

011643
032514
000010
051770
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
2
092000
004000
010000
020000
040000
100000
000004

BLD.HW
BLOCK
BRMSG
BSFLAG
BSF VAL
BSNSTR
BYPSNM

000100
000200
000400
001000
060202
055614
031745
002642
003074
010610

SYMBOL

16:20

aIalalalnl

BELL
BGN.SU=
BHSTAT=
BINMSG
BITO =
81700 =
BITO1 =
BITOZ2 =
BITO3 =
BITO4 =
BITO5 =
BI 06 =
BI1T07 =
BITO8 =
BITOS
BIT1
BIT10 =
BIT11 =
BIT12 BIT13 BIT14 =
BIT15 =
BITZ2
=

032071
000001
053460
000002

[alalalalalalalalalglalnlalalalalalalalalAlal

ALGNQ
ALLCYL=
ALLOC
ALl SEC=

BIT6
8117
B!T8
81719

22-NOV-78

ABOFLA
ABOPAS
ABO.FM
AFMID

30A(1052)

(2]l lalalalalalalalalalalalalalalalalalala)

ASSEMBLY ROUTINES
MACY11
CZRL(B.SUP
23-0(7-78 09:52

000034

040000

046052

FLAGS

FLAGTA
FLAG.
]
FLA.SE
FLG.MA

FMTOP1
FMTOP2
FMTOP3
FMT1
FMT1.1
FMT11
FMT12

FMT13
FMT14

FMT15

FMT16

FMT17
FMT18
FMT19
FMT?2
FMT20
FMT21
FMT22
FMT23
FMT24
FMT25

FMT26

FMT27

FMT28

FSBGN =
F$CLEA=
F$D!J
FSEND =

GETCMN
GETPAR
GETPNS
GETSTA=
GETSWI
GET.TW
GLBDAT
GLBEGA
GLBERR
6LBSUB
GLBTXT
GSTAT
GSTAT(C
GSTATG
GSTATR
GSTER]
GTSTAT-

055434
047126
021026
000003
054430
054200
002122
002122
013040
016056
004744
016514

016500

016524
016464
006316
000104
GSEXCP= 000400
GSHILI= 000002

HOLDSP=
HOSTAT= 000020

(2121~
D

FOLWRT=
FORM.
T
FREE
F RMWD
FWDSKO= 002000
FWDSKS=
FSAU
=

F $HARD=
F $HW
FSINIT
FSJMP
F $MOD
F SMSG
F SPWR
FSRPT
F$SEG
T
FSSOF
F $SRV
F$SUB
FSSW
FSTEST=
GARBA
053344
GETCHR
052050

014640
031646
022776
002622
002624
002626
002630
000100
000100
HW.ADR
032550
HSAAB
056606
IBUFF
003466
ININIT
032772
INITCO
014730
INITIA 052020
INITST
006347
INIT.M 040104
INIT.R
032606
INOUTS= 000020
INPUTA
052746
INTEBL= 000100
INTFCR
046244
INTHLR
016064
INVAL,
037052
INVINT
046102
INV. SW 034104
IN. SUF
041054
1$AU
000041
ISCLN
000041
1$DU
000041
000041
000041
000041
000041

HPTCOD
HRDPRM
HRDWTS
HRIN
HRINU
HROUT
HROUTU
HSMSK =
HSSTAT=

(a1~}

000001
200000
000400
000376

SEQ 0116

WO OO NWVIWVWNWLNIND
N

FMT8
FMTO

M
9
5-

FBSFIL
FILL
FILL.C
FLAGS

[aIala)

EXTOS

FMT4
FMTS
FMT6
FMT7

TABLE

PAGE

QOO

ExXOCYL
EXROT

SYMBOL

16:20

[aIalalalal

ERRG
ERR7
ERR8
ERR9
ESC.PC
Ev.Cou
EXACYL
EXHCYL

FMT3

ololelolelaololelelsls]

ERRS

22-NOV-78

ERRS

alaTalalalalalaYalNal

ERR10
ERR2
ERR3

032516 6

ERK.NU
ERR.SF
ERRY
ERRIFO

30A(1052)
—b d ed e
ad = b ok
N
OW
AOPLNLNLNDNUAD
Vi~
= NNV
=D b b
=2 DON)NMNION
8NN

ASSEMBLY ROUTINES
MACY11
CZRL(B .SUP
23-0CT1-78 09:52

002462
002464

013104
013152
0132.0
013270
013340
014216
014266
014362
014426
014636
014654
014672
015730
016050
016054
016120
023244
023446
024702

L10045
L10046
L10047
L 10050

22-NOV-78

SYMBOL

O
O
O

MAJ. IN
MAJ.LO
MAJ.US
MANQ
MAN. T]
MAPROX

MAP16
Sk.8

MBAD SF
MBHSTA

MBSE T0= 000001

MCERR
MCONHN

MCOSTA
MCYLOC
MCYLUP
MDATCP
MDCR(
MDHEDR
MDLT
MDRDY
MDRERR
MDRRES
MDRVST
MDSERR
MEM.SI
MERRS
MEXERS
MFLERR
MFMTER
MFOLWR
MF WD SK
MF WSKO
MGTSTA
MHCERR
MHCRC
MHDERR

MHDRCP
MHFCRC
MHNF
MHOSTA
MHSTA

011072

TABLE

16:20
MISWIW
MITEST=
MNDRST
MNEERR
MNOCLR
MNOINT
MODR
MOPER
MOPERR
MORECE
MOUT IN

MPNAM
MQUAL S=
MREAD
MREADH
MRE SKO
MRE VSK
MRLFAL
MRSLT

MSEEK
M5G.AD
MSG.TY
MSPERR
MSTERR

MINOUT
MIN. IN
MIN.US
032574
MISTST
MIswl = 000000

SEQ 0117

014656

PASCNT
PASNEW
PASNUM
PASS.C
PATTRL
PAT1

100000
011405

011360
006141

006062
062256 G

PAT10
PAT?2
PAT3

005143
011276
002436
005214
005752

PAT4

PATS
PAT6
PAT?7
PATS
PAT9
POSHDO

003760
004752
004765
005426
005304
011512
005157
004744

POSHSB
POSHW1
PRINTC
PRINTF
PRIOR

PRIOO
PRIO1
PRI02
PRIO3
PRI04
PRIOS
PRI06
PRIO7
PRNTST

MIMBS

MTOSLQ

MUL
MULOAD
MUNDEF

005
011003
010755
011131
011044

PAGE 5-2

MVOL (K
MWDERR
MWGERR
MWLSTA
MWORD
MWRCHK
MWRITE
MWRSET
MWRTAB
M$OHDR
NEWCYL
NEWPR]
NEXTAR
NOCLR =

004676
004700
004740
020534
020530
020522
053320
056626
000004

PRO.CM
PSETNM

PTAB.S

PUTCHR
PWCON
PWRF LG

PWR.FA
PWR.FL
PWR .MS
PWR. SA
PW
.R
UP
P.CLK.

“NOERCT

NCIRPT-

O$GNSW=
J$POIN= 0

NSTACH 006250

002654
015150
003062
032530
002234
004466
004742
004470
004530
004570
004630
004636

PARSES
FART] = 000000
PAR.LA
051474

P2TO1E
P2TO2E
P2TO3E
P2TO4E
P2TOSE
P2 TOGE
P2TQ7E
P2TO8E
P2T09E
P2T10E
P2T11E

037120
006477
006477
006516
006542
006564
006606
006630
006654
006676
006703
006720

(2121212121211)

031774
002062
002020
002024
002030
014656
002014
002054
002052
002100
002012
002460
037112
002456

30A(1052)

=P )=200N 200N
B NWNNNNONNOVOWNOO
= —

LSSOFT
LSSPC
L$SPCP
LSSPTP
LSSTA
LSSW
LSTIML
LSTIMU
LSTIMT
L$IST]
LSUNIT

[aIalalalalalalalalalal

CZRLCB.SUP

MACY11
P 3 -0(T1-78 09:52

[olelelolalololololeolels]
OO0
—2—

ASSEMBLY ROUTINES
3

MACY11 30A(°052)

ASSEMBLY ROUTINES

CZRLCB.SUP

23-0C1~78 09:52

032036
SELQ
SEQMES 010534
SETDON 015176
SET.MA 037672
SFTPRM 031772 G
SGWD 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 061665 G
STATEZ2 011672
STATEZ 011702
STATES 011712
STOSTA= 010000
STRCHR 052700
STRT.T 037464
ST.SET 034316
SUBSTK 002260
SUNIT. 037470
SUPERY 035352
SUPFLA 032760 G
SUPV.T 033132 G
SUP.PR 034070
SvCBGL= 000001
Sv(GBL= 000000
SVCHAN 042006
SVCINS= 000000
sv{suB= 000001
SVCTAG= 000000
SVCTST= 000001
SWCHAN 037300

P2T12E 006735
P2T13E 006751
PRTI4E 026771
P2T15€ 007014
P2T16E 007044
P2T17E 007067
P2T18 007127
P2T19E 00’156
RDALHD 021154
RDDATA= 000114
ROHEAD= 000110
RDNOHR= 000116
ROYCHK 017632
RDYWAI 020560
READRL 016262
READ.P 060210 G
REGBAC 062700 G
REGSAV 062664 G
RELOWT= 040000
REQN.P 032570 G
REQN.T 037462
RESE3 011647
RESE4 011653
RESES 011660
RESE6 011665
RESPAR 002504
RESTAR 015112
RESTBL 002174
REVSKO= 001000
REVSKS= 000200
RE.SET 034252
RLBA = 000002
RLBAS 002450
RLCS - 000000
RLCSR = 000000
RLDA = 000004
RLDRV 002454
RLMP = 00000/,
RLVEC 002452
RORWOP= 020000
RPTOP
RPTREM
RPTRES
RSTACK
RSTRT

SWITCH 056152
SW.ACR 032556 G
SW.PTA 037264
SYS.FT 046032
SSLSYM= 010000
TBLSTR 002446
TCERR 010666
TEMPO 002540
TEMPT 00254¢
TEMP2 00254/
TEMP3 002540
002550
TEMPS
002552
TEMPS

021516
022512
022304
062140 G
015012

SAMSK = 000077
SAVEDO= 034450
SBSFIL 003076
SEARCH 054146

SECWD 010507
SEEK - 000106
SEEKOP= 010000
sffisTA 033014 G
. ABS.

063320

22-NOV=78

SYMBOL TABLE

n00

16:20

8 10

PAGE 5-3

TEMPG 002554
TEMP7 002556
TEMP8 002560
TERMI 060176
TERMLI 056000
TERMTA 051762
TEST.M 037420
TIMFLG 032750 G
TIM.CO 032602 G
TIM.OP 046406
TO0O.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
[Y.UNI 041074
T$SARGC= 000002
T$CODE= 000130
T$ERCO= 000043
TSERRN= 002735
T$SEXCP= 000000
T$FLAG= 000040
T$SHILI- 000377
T$SLOLI= 000000
TSLSYM= 010000
TSNEST= 177777
T$NSKO= 000000
T$NSK1= 000005
TENSK2= 000002
T$SAVL= 177777
T$SEGL= 177777
T$SUBN= 000001
TSTAGL= 177777
$TAGN= 010051
T$TEMP= 000000
TS$TEST= 000016
T$TSTM= 177777
T$TSTS= 000001
T$$CLE- 010015
T$$DU = 010016
T$$HAR= 010047
T$$HW = 010012
T$$INI= 010076

SEQ 0118
T$$MSG= 010011
T$$SOF= 010050
T$$SRV= 010017
T$$SUB= 010046
T$$SW = 010013
TSSTES= 010045
002470
T.BA
002466
T.CS
002472
T.DA
002474
T.MP
T.STAT 002502
TOSERR 006362
TO9ERR Q06375
022776 G
18!
027666 G
110
T10ERR 006405
710.1 027720
71048 027720
030210 G
TM
T11.1 030366
T11.2 030540
71158 030540
030642 G
T1c
Ti2ERR 006425
0%670
T12.1
71248 0>, 70
031160 G
113
T13ERR 006437
031204
T13.1
T1348 031204
031372 G
T14
T14ERR 006453
T14.1 031414
71538 031414
T16ERR 006467
023246 G
T2
T25TBL 002304
023450 G
T3
T331BL 002332
73658 024702

UNIT.D 032532 G
UNI.MA 037410
UNXERR 006202
USER.P 032774 G
USER.T 032776 G
VALDES 007231
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
WTDATA= 000112
XEQDIA 062024 G
XFQSUB 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
XROHDG 020106
XTIME 060676 G
XTIMEN 061522
XTIMST 060720
XXDP.D 037064
XSALWA= 000000
X$FALS= 000040

026036
026116 G
026512
026770 G

$SAV3 063056 G
$SAVLE 063074 G
$SAVS 063114 G
= 063320
.

T4
T4.1
T465%
T5
75.1

75048
T6
T6.1
17

024704 G
024724
025400
025512 G
026004

027302 G
T8
027366 G
9
ULDAD = 000010
UNDTST 010432

X$0F FS= 000400
X$TRUF= 000020
$BREG 037560
$ENDAD 061776 G
$SAVZ 063042 G
'

ASSEMBLY ROUTINES

CZRL(B.SUP

MACY11 30A(1052) 22-NOV-78 16:20 PAGE g-é

23-0CT1-78 09:52

ERRORS DETECTED:

SYMBOL TABLE

DSKZ:CZRLCB,DSKZ : CZRLCB/EQ:PART1=(ZRL(B/ML,CZRL(B.PT1,CZRL(B.P11,(ZRL(B.PT2,CZRL(B.SUP
RUN-TIME: SO 4G 1 SECONDS
RUN-TIME RATIC: 177/7C%-1.7
CORE USED:
16k
(31 FAGES)

SEQ 0119