Digital PDFs

AH-F118A-MC

May 1979

133 pages

Original

5.9MB

view download

OCR Version

5.2MB

view download

Document:	CZRLIA0 RL11,RLV11 RL01,02 DR TST 1 MAY 1979 bw
Order Number:	AH-F118A-MC
Revision:	000
Pages:	133
Original Filename:	CZRLIA0__RL11,RLV11__RL01,02_DR_TST_1__AH-F118A-MC__MAY_1979_bw.pdf

OCR Text

RL11,RLV11

czriimo

comvaicnt 1570 SRORD
FICHE 1 OF 1

MADE IN USA

IDENTIFICATION

SEQ 0001

OO
BHLODIOSOORS

PRODUCY

LODE:

Al=8'198=-M(

SROLL.Y

NARE:

(IRUJAQ RLOV/02 DRIVE

TATE

DIAGNCSTIC

ENGINEERING

TwOR:

108,

ERRORS

NOT

THIS

SOF TWARE

DEXNIS,

DOCUMENT

{AMPBE(
L

SUBJECT

CONSTRUED AS A COMMITMENT

DIGITAL EQUIPMENT
THAT MAY

APPEAR

DESCRIBED

JNDER
A
LICENSE
(w]Tw INCLUSION OF
Tem, EXCEPT AS MAY

PART

S=JAN=T79

WAINTAINER:

INFORMATION

SMOULD

TuE

CREATED:

TEST

C(HANGE

WITHOUT

CORPORATION ASSUMES NO RESPONSIBILITY

IN THIS MANUAL.
IN

THIS

DOCUMENT

NOTICE

GICGITAL EQUIPMENT

FURNISHED

THE

AND

CORPORA-

FOR

ANY

PURCHASER

FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSOTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT (ORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE
OR
RELIABILITY
OF
1S SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL,
“CPYRIGHT

(()

1979,

DIGITAL

EQUIPMENT

CORPORATION

PAGE

b (O
O

.2
.3
.4

.5
.

HOW TO RUN THIS DIAGNOSTIC
THE SIX STEPS OF EXECUTION

SAMPLE RUN-THROUGH

HOW TO CREATE

DETAILS OF
TABLE OF

(=]

[

6.0

FILF

COMMAND VALIDITY

PERFORMANCE

A CHAINABLE

COMMANDS AND SYNTAX

COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE

ERROR

OPERATING INSTRUCTIONS

HARDWARE

CONTENTS

ASSUMPTIONS

L]
fp]

2.1.1
2.1.2
.2
.3
2.%.1
2.3.2

GENERAL INFORMATION
PROGRAM ABSTRA(T
SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNCSTIC WIERARCHY PREREQUISITES

‘I
(e}

norno

—

e e

—

TABLE

SOF TWARE

PARAMETERS

INFORMATION

DEVICE

TEST

PARAMETERS

AND PROGRESS REPORTS

INFORMATION TABLES

SUMMARIES

SEQ 0002

—

PAGE

oENERAL

INFORMATION

STRUCTURE OF

THIS DIAGNOSTIC

PROGRAM

OCCUPIES

14.5K

WORDS OF

MEMORY

AND

(OMPATIBLE

BOTH XXDP AND ACT.
IT CAN BE RUN STANDALONE UNDER XXDP, AND (AN BE
INEDL UNDER XXDP, ACT AND APT IN ACT MODE (SEE ''CREATE CORE
IMAGE'*

MAND

FROM

BELOW

THE

FOR

DETAILS

STANDPOINT

Th.

CHAINING

JAGNOST!C

PROCEDURE).

USER,

BUT

INTO 17 A CONTROL MODULE WHICH WILL LATER BE RELEASED
DIAGNOSTIC SUPERVISCR.
WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS
THE
SUPERVISOR
PORTION,
WHICH
WILL ASK
ABOUT THE ENVIRONMENT.
THEN IT WltL ENTER
PROMPT CHARACTER (DS B>).
AT COMMAND MODE

SEVERAL

HAVE

SINGLE

WITH

(HA(OM-

PROGRAM

INCORPORATED

INDEPENDENTLY AS A

200, CONTROL
GOES
FIRST
T0
CERTAIN ‘"HARD CORE'® QUESTIONS
COMMAND MODE, INDICATED BY
A
THE OPERATOR MAY ENTER ANY OF

COMMANDS AS DESCRIBED BELOW.

THE

SUPERVISOR

BUT

THE

CODING

FOLLOWS

IMMEDIATELY

THE

DIAGNOSTIC

TEST

CODING,

SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL DISTRIBUTION.

A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE OF THE
SUPERVISOR
A?:EHBLY
LISTING,
AND IT MAY BE CONSULTED IN EVENT OF A SOF TWARE PROBLEM.

.2
THIS

DIAGNOSTIC
PROGRAM

TESTS

INFORMATION
AND

EXERCISES

RLO1/02

DIiSK

TROLLERS
(&
DRIVES
PER CONTROLLER).
THE
FIRST DRIVE BEFORE STARTING ON THE SECOND.

ING THE

SIMPLEST

DRIVES

RLI11/RLVI1

(ON-

ENTIRE PROGRAM IS RUN ON THE
THE PROGRAM STARTS BY
TEST-

FUNCTIONS FIRST USING THE LOGIC

TESTED IN EARLIER TESTS

TO TEST MORE COMPLEX FUNCTIONS.
THIS PROGRAM TESTS THE
RLO1/02
INTERFACE
AND
BASIC
DRIVE LOGIC.
GET STATUS WITH RESET, GET STATUS, SEEK,
AND READ HEADER ARE THE ONLY COMMANDS EXECUTED
[N
THE
PROGRAM.
ONLY

SEEKS
WITH
O
DIFFERENCE
ARE USED SO NO HEAD MOVEMENT IS REQUIRED.
A
SIGNIFICANT PORTION OF THE PROGRAM REQUIRES MANUAL INTERVENTION.
THESE

TESTS
TEST THE (OVER OPEN AND WRITE LOCK STATUS.
THE DRIVE MUST BE LOADED AND UNLOADED TO TEST ALL THE CONDITIONS OF HEADS OUT,
BRUSH
HOME,
AND
DRIVE
STATES.
THE
PROGRAM (AN BE RUN IN AUTOMATIC MODE IN WHICH
(ASE

ALL

TESTS

REGUIRING MANUAL

SYSTEM REQUIREMENTS

INTERVENTION

ARE

BYPASSED.

SEQ 0003

PAGE

2. 1

HARDWARE

POP=11/LS1=11

(ONSOLE

REOQUIREMENTS

PROCESSOR WITH

DEVICE

16K

OR MCRE

OR 2 RLYVI/RLVIT CONTROLLER\S) WITH:
1 -8 RL?} gRIVES WITH RLOTK CARTRIDGES CONTAINING A
l

KW11P,

LINE

KWI1'L

(OPTIONAL)

PRINTER

(OPT]ONAL)

SOF TWARE

1 3

TEST PART

RLOV USERS MANUAL
XXDP USERS MANUAL

°'BAD

SECTOR

FOLLOWING

PRO-

STANDARDS

(EK-RLOY=-UG=-PRE)

DIAGNOSTIC
ThE RLOYT/02
GRAMS:

HIERARCY

PREREQUISITES

SUBSYSTEM SHOULD HAVE

(VRLAAQ
(ZRLGAO

SUCCESSFULLY

RLVI1 RLOY
RLT11/RLVYT

CZRLHAOQ

RUN

THE

DISKLESS TEST (RLV11 ONLY)
RLO1/02 CONTROLLER TEST (PART

RLTT/Rt V11 RLO1/02 CONTROLLER TEST

(PART 2)

ASSUMPT]ONS

.
THE

HARDWARE

LY.

FALSE

OTHER

THAN THE

RLO1/02 SUBSYSTEM

ERRORS MAY BE REPORTED

TION PROPERLY,

CONTAINING A

(ZRL(B)

RELATED DOCUMENTS AND

CARTRIDGES

REQUIREMENTS

CZRLIAO RLO1/02 DRIVE
(FORMERLY

'BAD SECTOR

]

1-8 RL?{ gRlVES WITH RLO2K

MEMORY

(LA30,LA36,VI50,ETC.)

OPERATING

IS ASSUMED

THE PROCESSOR,

TO WORK

ETC.,

PROPER-

DO NOTV

INSTRUCTIONS
&

FUNC-

SEQ 0004

PAGE S

HOW

TO RUN

THIS DIAGNOSTIC

THIS DJAGNOSTIC

SHOULD BE

LOADED AND

STARTED USING

NORMAL

XXDP

DURES.
THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE
AGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT.
WHEN THIS DIAGNOSTIC

STARTED,

[

THE

FOLLOWING STEPS WILL

DI-

OCCUR:

thEROROOTRY

SHORT

SERIES OF

''HARDCORE

QUESTION

L-CLK
P=(LK

50HZ

LS]

LPT

(L)
(L)

(L)

MEM

(x)

IS
'

N ?

AARSRS
NS

QUESTIONS''® WILL

THERE AN L-CLOCK?
"
pe(LOCK?

1S THE POWER 50 CYCLES

N ?
(D)

STEP

NEJTHER P OR L

TYPE

TWO

ASKED:

MEANING

N?
N ?

t
I A

1S MACHINE

AN LSI1?

HOW MANY

(LOCK

(HARACTERS

(EUROPE)?

IS THERE A LINE PRINTER?

MEMORY

ARE

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE
RIAGE
RETURN,
IT
IS
POSSIBLE
THAT NOT ALL
ASKED:
FOR EXAMPLE, IF YOU SAY
''YES'®
TO
THE
P=(LOCK QUESTION WitL NOT BE ASKED.

PROCE-

THE

ARE

ANSWERED

SECONDS

APART.

YES

THE

THERE?
SELECTED BY HITTING CAROF THE QUESTIONS wiLL BE
L~-CLOCK
QUESTION,
THE

OPERATOR WiLL BE

ASKED

710

RN RREROERNY

* STEP 2
I A

WHEN

1SSUE

YOU HAVE

ANSWERED ALL

THE PROMPT ‘DS=B>''.

THE

AREEANE
A

HARDCORE

QUESTIONS,

THE

DIAGNOSTIC

WILL

FROM THIS POINT UNTIL THE TIME WHEN YOU RES~

TART XXDP, YOU WiLL BE TALKING TO THE DJAGNOSTIC,
NOT
XXDP.
WE
WILL
REFER
TO
THE
PRESENCE
OF
TKIS PROMPT AS BEING IN DIAGNOSTIC COMMAND
MODE, AS OPPOSED TO XXDP COMMAND MODE.

AT THIS POINT YOU WILL ENTER A ''START'' COMMAND.
THIS IS NOT THE SAME AS
THE
XXDP
°'START''
(OMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO THE
XXDP DOT PROMPT,
THIS "'START'' COMMAND (AN TAKE A NUMBER Of SWITCHES AND
i AGS
(ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET FORTH IN ''2.3 DETAILS OF COMMANDS AND SYNTAX''.
HOWEVER, IN ORDER TO
USE
THE
PROGPAM,

SEQ 0005

—

PAGE

ALL

YOU NEED

SAY

SOMETHING LIKE

THIS:

STA/PASS:1/FLAGS
:HOE
THINGS

TO NOTE

HERE:

ONLY

THE

FIRST

THREE

CHARACTERS OF

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

"'DS-B>"" LEVEL NEED TO BE TYPED.

THIS OR

ANY COMMAND

THE

A PASS

(ONSISTS OF RUNNING THE FULL DJAGNOSTIC AGAINST ALL UNITS BEING
TESTED (THIS wiLL BE EXPLAINED SHORTLY).
ONE PASS IS SPECIFIED

IN THE

ABOVE

EXAMPLE.

THE "'FLAGS' SWITCH MAY SPECIFY
THE

MAIN USEFUL

LOE

THE

A NUMBER

OfF

FLAGS,

BUT

LOOP ON ERROR

HOE

MALT

1ER

INHIBIT

HOE

ANY OF

ONES ARE:

FLAG

ON ERROR

ERROR PRINTOUT

SPECIFIED

THE

ABOVE

EXAMPLE

(WE'LL

SF{

WHY

SHORTLY.

fefEROARRES

STEP 3 «

rERARRASTRRY

WHEN YOU HAVE TYPED
WITH
THE
QUESTION
THE

NUMBER

WORD OF

1CE

DISK

IN A ''START'' (OMMAND, THE DIAGNOSTIC WILL COME
BACK
‘''# UNJTS?'" TO WHICH YOU SHOULD RESPOND BY TYPING IN

DEVICES

WARNING

YOU WISH

HERE:

THE DJAGNOSTIC.

DRIVE,

TESTED.
THEN THE

THEN THE

THE

TEST.

NUMBER

FOR EXAMPLE,

NUMBER OF

WHEREAS IF THE
NUMBER OF UNITS

UNITS

DEPENDS

DIAGNOSTIC

THE

UNITS WOULD BE

THE

TARGET

DEv-

IS DIRECTED AT

NUMBER OF

DIAGNOSTIC WAS DIRECTED AT THE DISX
WOULD BE THE NUMBER OF CONTROLLERS.

DRIVES

TO BE

CONTROLLER,
THE TARGET

DEVICE
OF
A
DIAGNOSTIC
CAN
ALWAYS
BE
DETERMINED BY INSPECTING THE
""HEADER'® STATEMENT NEAR THE BEGINNING OF THE SOURCE CODE.
ONE
OF
THE
OFERA??E OF THIS ''HEADER'® STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.

SEQ 0006

————

PAGE

reERROARORYE

STEP
o

IAASRSR
K

WHEN YOU HAVE TYPED IN THE NUMBER OfF UNITS 70 BE TESTED, THE
DIAGNOSTIC
WILL
ASK
YGU THE ''HARDWARE QUESTIONS''.
THE ANSWERS TO THESE QUESTIONS
ARE USED TO BUILD TABLES
IN
CORE,
CALLED
‘'HARDWARE
P-TABLES''.
ONE
HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE TESTED.
THERE ARE SEVERAL HARDWARE QUESTIONS AND
N TIMES, WHERE N 1S THE NUMBER OF UNITS.

THIS REPRESENTS A NEW PHILOSOPHY

IN
THE
DRESSES:
THEY

NEED

THE

ENVIRE

IN DIAGNOSTIC

SERIES WiLL BE

ENGINEERING.

DIAGNOSTICS

FUTURE
WILL
NOT BE WRITTEN TO AUTOSIZE OR ASSUME
INSTEAD, THEY WILL ASK THE OPERATOR FOR
ALL
THE
TO

TEST

THE

POSED

STANDARD ADINFORMATION

DEVICE.

eERANRORNSE

* STEP 5 v
TREREERENY

AFTER

YOU HAVE

ANSWERED ALL

THE

HARDWARE

QUESTIONS

(SEC

2.5)

FOR

ALL

THE

UNITS,
YOU
WILL
BE
ASKED
‘''CHANGE
SW?'"
1F YOU WANT TO BE ASKED THE
SOF TWARE QUESTIONS THAT DETERMINE THE BEHAVIOR
OF
THIS
PROGRAM,
T1YPE
v,
1F YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE ‘N,

THE

YOU TYPE 'Y’ YOU WILL BE ASKED THE SOF TWARE QUESTIONS (SEC 2.6),
ANSWERS

WILL

PUT

INTO

SERIES OF QUESTIONS WiLL BE
UNITS TO BE TESTED.

THE

SOFTWARE

P-TABLE

ASKED JUST ONCE,

THE

REGARDLESS OF

PROGRAM.

THE

AND
THE

NUMBER Of

teRNONROENRSY

STEP 6 »

reeRRORNERY

AFTER

YOU HAVE

BEGIN

ANSWERED

1O EXECUTE

THE

SOFTWARE

THE HARDWARE

TEST

QUESTIONS,

(ODE.

THE

THERE ARE

DIAGNOSTIC

WILL

SEVERAL THINGS THAT

(AN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE
ERROR
1S
ENCOUNTERED
AND
ALSO
ON
WHAT
SWITCH
VALUES
YOU
SELECTED ON THE START C(OMMAND,

CONSIDER

THE

POSSIBILITIES:

IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY ExECUTE
THE
DESIRED NUMBER OF PASSES AND RETURN TO COMMAND MODE
{(PROMPT

[S-B>).

SEQ 0007

——

PAGE 8

AN ERROR IS ENCOUNTERED, THEN ONE OF

ODEPENDING ON THE

SETTINGS OF

THE HOE

THREE

AND LOE

HOE SET:
THE ERROR WILL BE REPORTED ON THE
AGNOSTIC WILL RETURN TO (OMMAND MODE
.

THINGS

CONSOLE

LOE SET:
THE DJAGNOSTIC WILL LOOP ENDLESSLY ON
CODE THAT DETECTED THE ERROR.
NEITHER HOE NOR LOE SET:
THE ERROR WiLL
EO:EgLE AND NORMAL EXECUTION WItL RESUME
URED.

A .2

HAPPENS,

FLAGS.

AND

THE

CI-

BLOCK

BE
REPORTED
ON
THE
AS If NO ERROR HAD OC-

SAMPLE RUN-THROUGH

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

RECALL

THAT

EN-

TERED
THE COMMAND ''STA/PASS:1/FLAGS:HOE''.
THIS WOULD BE A VERY TYPICAL
WAY TO RUN THE DIAGNOSTIC.
IF NO ERRORS ARE ENCOUNTERED, THE SINGLE REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE RE-1SSUED.

IF AN ERROR 1S ENCOUNTERED, THE ERROR WILL BE REPORTED
AND
THE
PROMPT
wiLL BE REISSUED (BECAUSE THE HOE FLAG IS SET).
AT THIS POINT THERE ARE
tOJUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGAIN:
1.

ISSUE ANOTHER ''START'' COMMAND

3, 4, 5, AND 6 AGAIN)

1SSUE A "'RESTART'® COMMAND

THE

HARDWARE

QUESTIONS

ARE

(THUS GOING THRU ALL OF

(SAME AS START
NOT

EXCEPT

THAT

ASKED)

ISSUE A "‘CONTINUE'' COMMAND (EXECUTION WILL RESUME AT THE BEGIN-

NING

THE

PARTICULAR HARDWARE

OF A NUMSER OF THESE) THAT IT WAS
CURED.
NO QUESTIONS ASKED.

(COMMAND

STEPS

TEST

(MOST

DIAGNOSTICS

IN WHEN THE

ERROR

CONSIST

HALT

OC-

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

AND

CAN BE

JSSUEC ONLY

THE MOST TYPICAL THING
FERENT FLAG SETTINGS.

A HALT

TO DO HERE IS 1O ISSUE THE
PROBABLY YOU WOULD WANT TO

PRO/FLAGS:JER:LOE
:HOE -0

PROCEED,
SAY:

BUT

WITH

DIFf-

SEa 0008

PAGE

THIS WiLL

THE

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

RESUME

DIAGNOSTIC

iER

C(INHIBIT

ERROR PRINTOUT)

FLAG

THE HOE FLAG

EXECUTION AT
WiLL

PORTED
THE ERROR,
THE ERROR OR SCOPE

INSTRUCTION AFTER ERROR REPORIT

NOW LOOP

THE

BLOCK

BUT NO ERROR PRINTOUT
1T OR WHATEVER,

CODE

WItL

THAT

OCCUR.

DETECTED

THUS

AND

REt-

YOU CAN STUDY

1CES:

START

RESTART

CONTINUE

LET®S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT
NING

THt

DIAGNOSTIC.

YOU WOULD

10 FINISH RUN-

TYPE

CON/F
:HOE :LAGS
JER=0:LOE=0
THIS wiLL
TION
AT

RESTORE THE FLAGS
THE
BEGINNING OF

DOES NOT RECUR, THE
OR TO END OF PASS,

AT END OF

(HOJCES:

EXECUTION WILL

PASS YOU WANT

START

RESTART

TO THEIR ORIGINAL
THE HARDWARE TEST

FLOW RIGHT

10O RUN THE

YOU WOULD C(HOOSE ONE, CEPENDING
HAKRDWARE QUESTIONS AGAIN,

VALUES AND
RESUME
EXE(UYOU WERE IN.
IF THE ERROR

ON THRU TO THE

DIAGNOSTIC

ON WHETHEP

YOU

AGAIN,

WANTED

YOU

ERROR

HAVE

TwO

ANSWER

THE

SEa 0009

PAGE

THE

FULL

PRINT-0UT

(O-OPERATOR,

FROM

1Mt

ABOVE

DIALOGUE

MIGHT

(OUK

SeQ 0010

TMIS

D=DIAGNOSTIC):

WHOM

ENTERED:

LR CIRLIA

DRIVE
DRIVE

(0) 0 ?
TYPE = RLOY

BR LEVEL
UNIT 2

RL1Y

(L)

(0)

S ?

(L)

)

BR LEVEL
(HANGE

(0) S5 ?
(L)

(L)

2 N

(0) 0 2 1
TYPE = RLOY

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE
DRIVE

? N

C(ZRL] WRD ERR 00004
ERR HLT

BUS ADDRESS (0) 174400 ?
vVECTOR (0) 160 ?

=Y=Y=Y=T=1=

(L)

OCOO0OOODOO

UNIT

RLYY

COoOO0OOoO
o

(D)

OO0OO0OO0ODO0O

& UNITS

DS=B,STA/PASS:1/FLAGS:HOCL

16 ?

QOO OOOOO

LS] (L) N ?
LPT (L) N?
MEM (K) (D)

N 7

(L)

(L) N ?

5042

L=CLK

(IRL]

(N=RLO2)

TST 003 SuB 002 PC:004130

DS=B>PRO/FLAGS: 1ER:LOE :HOE-0

0,0

soovetesesdtes
R
RAtRRRtSRtSRRRRRRRORRARORRYYPERESE

TH]IS POINT

THE

TME

ERROR UNTIL

DJAGNOSTIC

ERROR WITHOUT PRINTING ANYTHING.,
YOU HAVE

LOCATED

LOOPING ON

S¢C

THE

YOU CAN SCOPE

IT,

THEN *C

OUT

000 0QOEROCCOCSCSOIROSSOSETRNOUECORCRRRNSRROCRERRCERSRARERSCERSTERETRTY

)

DS-B>CON/FLAGS:HOE : iER:LOE=0

0,0

CHANGE

0.0

CIRL]
*C

EOP

(L)

? N

RUN

DS=B>RESTART/PASS:1

0.0

CHANGE

0.0

PAGE

(L)

2.2
THE

DIAGNOSTIC

CMAIN
ég%RE

RECEIVED

TROM RELEASE

ENGINEERING

CANNOT

MODE.
THAT IS WHY JT BEARS THE EXTENSION "'BIN'' INSTEAD OFf
1S A WAY, HOWEVER, TO CREATE A CHAINABLE PROGRAM FROM WHAT

CONSISTS OF

RUNNING THE

PROGRAM WITH THE

SPECIAL

“'BIC'',
YOU'VE

COMMAND ''CCI1'" ISSUED

WHERE
YOU
WOULD
NORMALLY
ISSUE A START COMMAND (TO THE PROMPT DS-B>.
THIS COMMAND CAUSES THE DJAGNOSTIC TO GO
THRU
ALL
THE
QUESTIONS
AND
ANSWERS AND THEN TO HALT, JUST WHERE [T WOULD ORDINARILY BEGIN EXECUTION
Of THE HARDWARE TEST CODE.
AT THIS POINT YOU CAN DUMP THE PROGRAM AS |T

SITS

IN CORE

HERE

.R UPD2

RESTART:

TO THE

SAMPLE

LOAD MEDIUM,

DIALOGUE

XXXXXX

*(LR
*LOAD DIAG.BIN
XFER:200
(ORE:0,60602
*START 200
L=CLK (L) N?

WITH THE NEW EXTENSION "'BIC'.

ACCOMPLISH

THIS:

sea 00N

PAGE

DS-B>C(1
UNITS (D)

CHANGE SW
PTAB END:

? 4

(L) ? N
60632

PO RCCRRRRRRRRPCERROEPRRRCEROROOOOPRORNTNYS

*AT THIS POINT THE MACHINE HALTS ANDe
*YOU MUST RESTART AT ADDRESS
XXXXXX*
AR AR A

RERRRR

]

*H]CORE 60632
(ORE:
0,60632
*DUMP DKO: DIAG.BIC
THE

RESULT

DOING

CONTAINING THE

THIS

THAT

YOU

CAN NOW BUILD

XXDP

(HAIN

FILE

XXDP COMMAND

.R DIAG.BIC
AND THE DIAGNOSTIC WlLL EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE |T WHEN YOU DID THE C(CI COMMAND.

USING

THE

Sea 0012

PAGE

2.3

DETAILS OF

2.3, 1

TABLE

THERE

ARE

SUBSETS OF

COMMANDS AND SYNTAX

COMMAND VALIDITY

FOLR WAYS OF

ENTERING DJAGNOSTIC

THE DIAG COMMAND SET

COMMAND MODE,

ARE AVAILABLE WITH EA(M:

dOW ENTERED

LEGAL

OPERATOR ENTERED

'RUN DJAG'

AND

DIFFERENT

COMMANDS

START
PRINT
DISPLAY
FLAGS

LFLAGS
Dl AGNOSTIC HAS FINISHED ALL

ITS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START

RESTARY

CONTINUE

PRINT
DISPLAY
FLAGS

ZFLAGS

AN ERROR WAS ENCOUNTERED
WiTH THE HOE FLAG SET SET

START

RESTART
CONTINUE
PROCEED
PRINT
DISPLAY
FLAGS

LIFLAGS

2.53.2

COMMAND SYNTAX

Ce0SatORReCRReCRRRYRRRRRRERRRRRRRNRRRRARSRSROSROCROROEPOPCROROCERESOEROERROTOY

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

THE DIAGNOSTIC

IN CORE

1S EXECUTED

IN ACCORDANCE WITH THE

SWITCHES SPE(-

THE MESSAGE ‘'# UNITS?'" IS PRINTED.
THE START COMMAND MAY BE IS1F1ED.
JUED WHEN DIAGNOSTI( COMMAND MODE HAS BEEN ENTERED VIA ONE OF
THE
FOL=~
A)
OPERATOR TYPED ''RUN DIAGNOSTIC'' B) DIAGNOSTIC FINISHED EXE~
LOWING:

SEQ 0013

PAGE

CUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET
D)
OPERATOR
ENTERED
CONTROL/C..
AFTER THE OPERATOR RESPONDS TO '*# UNITS?'', THE HARDWARE DIALOGUE IS INITIATED.
WHEN IT IS (OMPLETED, THE QUESTIONS
'"'CHANGE
SW?*'
1S
1SSUED,
AND
THE
ANSWERS,
IF
CGIVEN,
BECOME
THE
NEW
DEFAULTS.
THEREFORE 1T IS NECESSARY TO RELOAD THE PROGRAM IN ORDER
10
RETURN
T0
THE LOAD DEFAULTS.
THE

SWITCH

ARGUMENTS

ARE

FOL(LOWS:

"TEST=LIST" 1S 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
10
THE
LARGEST
TEST
NUMBER
IN
THE DJAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY
ORDER.
TESTS WILL BE EXECUTED IN
NUMERICAL
ORDER
REGARDLESS
OF
THE
ORDER OF SPECIFICATION.
THE DEFAULT IS TO EXECUTE ALL TESTS.

"'PASS=CNT'" 1S A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF
PASSES.
A
PASS 1S DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC (ALL SELECTED
TESTS) AGAINST ALL UNITS SUBMITTED.
THE DEFAULT IS NON-ENDING TEST EXE-

CUTION.

"'FLAG-LIST"

<FLAG=1>, OR <FLAG=0>,
FO.LOWING VALUES:
HOE

HALT

ON ERROR,

SEQUENCE

SEPARATED BY

CAUSING

ELEMENTS OF

THE FORM <FLAG>,

COLONS,

WHERE

<FLAG> HAS ONE

COMMAND MODE

TO BE

ENTERED WHEN AN

THE

ERROR

IS ENCOUNTERED
LOE

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

CONTAINING

THE

ERROR

IER

INHIBIT

ERROR REPORTING

IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT

PR1

DIRECT

ALL

PNT

NUMBER

B0t

BELL ON ERROR

EXTENDED ERROR REPORTS
MESSAGES
Of

TEST

TO A LINE

PRINTER

BEING EXECUTED

UAM RUN [N UNATTENDED MODE, BYPASSING MANUAL
ISR

INHIBIT

STATISTICAL REPORTS

IDU INHIBIT DROPPING OF

UNITS BY DIAGNOSTIC

INTERVENTION TESTS

SEQ 0014

PAGE

THE FLAGS NAMED OR EQUATED TO 1 ARE
A
FLAG
NOT SPECIFIED IS CLEARED.
FLAGS ARE CLEARED.

SET, THOSE EQUATED T0O O ARE CLEARED.
IF THE FLAGS SWITCH IS NOT GIVEN ALL

“EOP=INCR'" 1S A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS Of PASSES)
1T
IS
DESIRED YHAT THE END OF PASS MESSAGE BE PRINTED.
THE DEFAULT IS
AT

THE

END OF

EVERY

PEER NP R RERE R R

PASS,

RO RO R ORI RN EN RN ONPRRRRRROERARPROOEREROONRANROEOECEOETORRSEOEOERTARTRETDR

RES;}AR};{TEST:TES1-L1ST/PASS:PASS-CNI/FLAGS:FLAG-LlSI/EOP:EOP-IN(R/UNITS
:UNIT-L
RPN

RN RR RN ORN PO RN RO

THE

DIAGNOSTIC

CORE

ARE USED.

IFIED.

THE

VIA A)

THE

DIAGNOSTIC

NEW

EXECUTED

‘'P-TABLES''

ACCORDANCE

IS FINISHED B)
ARE

THRU

HALT

THE

SWITCHES

SPEC-

THE ONES IN
THE

NEW

ANSWERS GIVEN BECOME

LOGICAL UNIT NUMBERS RANGING

FROM

ON ERROR

START

(N = NUMBER OF

UNITS ARE TO BE

THE

INSTEAD,

ISSUED WHEN COMAND MODE HAS BEEN ENTERED

"UNIT=LIST'" IS A SEQUENCE OF
1

WITH

ARE NOT BUILT.

SW?'' IS A_KED AND THE

COMMAND MAY BE

SWITCH ARGUMENTS

RN RO RRAARRO AN REOAROERCERNCECREAROEOERONOEOEROESEROERRERY

CORE

QUESTION ''CHANGE

DEFAULTS.
THE

HOWEVER,

TESTED.

()

CONTROL/C.

COMMAND EXCEPT:

UNITS BEING TESTED)

SPECIFYING WHICH

THE LOGICAL UNIT NUMBER DESIGNATES THE

POSITION
OfF
THE
P-TABLE
WHICH THEY WERE BUILT.
THE

IN
CORE, ACCORDING TO THE ORDER IN
UNITS SPECIFIED MUST NOT HAVE
BEEN

DROPPED
BY
THE OPERATOR DROP COMMAND.
THE UNIT-LIST DEFAULTS
TO "ALL THAT HAVE NOT BEEN DROPPED BY OPERATOR
COMMAND''.
“THME
EFFECT OF THE UNIT=LIST LASTS UNTIL THE NEXT START (WHERE IT IS
AUTOMATICALLY RESET TO "'ALL'') OR THE NEXT RESTART,

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

sessoRRROICEORRRRRERRRRNRRRRRRRYRARARSRRSRNROARANOERY

CONCTINUE ) /PASS . <PASS=(NT/FLAGS:<FLAG=LIST>
et ORRRSRRRRRRRORRNRORNTRRSROERARRANANSRANRANCRRNTEY

COMMAND MODE

(ONTROL/C.
TEST

THAT

SOF TWARE

MRY

NOT

MUST

THE

HAVE

BEEN

EFFECT OF

ENTERED

THE

DJALOGUE

(HANGED.

MAY

DUE

COMMAND

WAS BEING EXECUTED WHEN

SEQ 0015

THE

OPTIONALLY BE

HALT

ERROR

IS TO GO TO THE BEGINNING OF

HALT

C(ONTROL/C

RE-EXECUTED.

TOOK

HARDWARE

THE

PLACE,

PARAMETERS

PAGE

SWITCH ARGUMENTS ARE

IN THE

START

COMMAND EXCEPT:

DEFALT FOR PASS=CNT IS THE UNSATISFIED PASS-CN1
OUS START OR RESTART

UNSFECIFIED FLAG SETTINGS ARG UNCHANGED

FROM THE PREV]-

f
teeROERNRRRORROARRNORYCTRONROROORRERRY

PROCCEED)
/FLAGS : <FLAG=LIST>
e RORRARORRORRRNROROARORORTROY

(OMMAND MODE MUST
THE
COMMAND
1S

CALL.
THE

NEJTHER HARDWARE NOR SOFf TWARE

SWIT(H

I R AA

HAVE BEEN ENTERED VIA A HALT ON ERROR.
THE EFFECT
OF
10 BEGIN EXECUTION AT THE LOCATION FOLLOWING THE ERROR

ARGUMENTS

ARE

THE

SAME

PARAMETERS MAY BE

ALTERED.

THE

EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE

START

COMMAND

UNCHANGED

EEEE R

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

ARl

THE DJAGNOSTIC EXECUTES THRU ALL
HARDWARE
TEST
(ODE.
NOw
THE
MEDIUM WITH A BIC EXTENSION.

THE

BI1C

FILE

MANUALLY

MUST
IN

HANDLED

(HAIN

OPERATOR
OPERATOR

DIFFERENTLY

MODE.

EZEEZ R

RN E

DEPENDING ON WHETHER

RUN MANUALLY

CAN BE

|71 WILL BEMAVE

“RESTART"' (IN WHICH CASE
USED)
.

PRE-GENERATED

OPERATOR

RUN

ANSWERS

IN CHAIN MODE,

TO OPERATOR

THE

ANY SWITCHES SPECIFJED ON
FILE 1S RUN IN CHAIN MODE

NOT CARRY OVER WHEN [T

QUESTIONS WILL

AUTOMATIC EXECUTION WILL

THE
XXDP COMMAND '‘.R DIAG''.
SUED.

THE

THE (CI1
(EXCEPT

DIALOGUE
AND
HALTS
AT
CAN DUMP THE CORE IMAGE TO

WITH A "'START'" (IN WHICH CASE
PRE-GENERATED

THE

BIN

ANSWERS

WORDS),

THE

WILL

MMED]ATELY

IS RUN MANUALLY.

RUN

EITHER

OR WITH

'DS-B>'' WILL NOT

COMMAND WILL CARRY OVER WHEN
THAT UAM IS ALWAYS SET THERE)

TO DO A CCI1 ON A FULL SIZED DIAGNOSTIC (14.5k

FILE:

IGNORED)

COMMENCE

COMMAND PROMPT

INVOKED

THE
THE

THE
BUT

MACHINE

FROM
]S~

BIC
WiLL

SIZE

LARGER
THAN
16K
IS
REQUIRED.
THE EXACT SIZE NEEDED DEPENDS ON WHI(H
UTILITY IS USED 1O EXECUTE THE DJAGNOSTIC AT (CI TIME,

SEQ 0016

PAGE

SEa 0017

terReCEOORRRORRROROROORY

DRO(P) /UNITS:UNIT-LIST
teeReRERTRORORRRRROROERORY

THE

UN1ITS

SPECIFIED

g:ocggglL
THERE

START

ARE

DROPPED

(COMMAND

FROM

1S ALSO A "'DROP'' MACRO

TESTING UNTIL

GIVEN.

INTERNAL

FACILITY
OF AUTO-DROPPING.
ONLY UNTIL THE NEXT START OR

THEY

ARE

A DROP CANNOT BE

TO THE

THE DURATION OF
RESTART,.

ADDED

BACK

FOLLOWED BY

DIAGNOSTIC, WHICH G!VES THE
A PROGRAM DROP,

MOWEVER,

reeetRROORRORARORNCOSERDY

ADD/UNITS:UNIT-LIST
teedtetRSRORORRERRYRRNY

THE

UNITS

UROPPED

SPECIFIED

FOLLOWED BY

THE

ARE

DROP

A PROCEFD.

ADDED

BACK

{OMMAND)

(THEY

TO THE

MUST

TEST

MHAVE

SEQUENCE.

BEEN

PREVIOUSLY

AN ADD CANNOT BE

eNOY

PRI(NT)
seeaTRYR

ALL

STATISTICS

ISR

CINHIBIT

TABLES ACCUMULATED BY

STATISTICAL REPORTING)

THE

DiAGNOSTIC

FLAG

1S CLEARED.

ARE

PRINTED.

THE

e ROSEORREORTERCORRNERNNRRORTY

DISCPLAY)/UNITS:<UN]JT=L]ST>
seeeeedRRRRRNRRROSRRROCRORRYRRY

THE HARDWARE P-TABLES FOR ALL UNITS UNDER
FORMAT
IN
WHICH THEY WERE ENTERED.
ANY

OPERATOR ‘'DROP'' COMMAND ARE

SO DESIGNATED.

TES( ARE PRINTED
OUuT
IN
UNITS THAT WERE DROPPED BY

THE
THE

FLACGS)
seeeeey

THE

CURRENT

SETTINGS OF

ALL

FLAGS

ARE

PRINTED.

seooePen

IFL (AGS)
I A XA
NS N

ALL

FLAGS

ARE

C(LEARED.

—————
e

PAGE

2.4

EXTENDED P-TABLE
THE

FULL

CAPABILITY

ING DISCUSSION OF

SEQ 0018

DIALOGUE

THE

WHAT

HARDWARE

HAPPENS

DIALOGUE

REVEALED

THE

FOLLOW-

INTERNALLY.

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

THE SAME
HARDWARE

FORMAT, AND THERE IS A ONE-TO-ONE
PARAMETER QUESTIONS AND THE SLOTS

CORRESPONDENCE
BETWEEN
IN THE P-TABLE FORMAT,

THE

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

MAY

THE

STRING OF

VALUES MAY

VALUES REPRESENT

PURE

GIVEN AS

STRING 6,7,8,9,10 (AN INCREMENT OF

SAMPLE

RANGE

A RANGE

NUMERICAL DATA,

TRANSLATES

TO THE

1).

THIS

(6-10

FOR

SAMPLE

EXAMPLE).

RANGE

TRANLATES

10 THE

THE VALUES ARE ADDRESSES,

STRING 6,8,10

(AN

INCREMENT

2).

THE

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A SET Of
P-TABLES.
ASSUME
THAT WE HAVE 8 RL UNITS, AND THAT THERE ARE FIVE (5)
hARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE P-TABLE, 5
HARDWARE
QUESTIONS IN THE DIALOGUE).
FOLLOWING

TWO

(2)

RLY1

DRIVES ARE

THE

DIALOGUE

TYPE

RLO1'S

FOR

THIS

CONTROLLERS ALL
AND

THE

LAST

8 RLOX

TO BE

DRIVES

DRIVE

SET

ARE

SYSTEM,

THIS

AT "BR LEVEL'" 5.
RLO2'S

(ON THE

SYSTEM HAS

THE

SECOND

FIRST

(ON-

TROLLER):

# UNITS

UNIT
RLIT

(L)

(D)

BUS ADDDRESS

(0)

BR LEVEL

VECTOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE TYPE - RLOY

UNIT §
RLIY

(L)

(0)

174400
(o)

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLO! (L) Y ? N
BR LEVEL (0) 5 ?

THE FIRST
FOR
THME

(QUESTION

NUMBERS OF
FIRST

PAGE

TIME THRU THE P-TABLE QUESTIONS THE DEFAULT
VALUES
ARE
USED
CONTROLLEK
TYPE
(QUESTION #1), (SR ADDRESS OF THE CONTROLLER

(QUESTION #2),

TYPE

THE

& P-TABLE

THE

CONTROLLER VECTOR ASSIGNMENT

#5),

AND

THE

"BR

LEVEL''

(QUESTION #3),

(QUESTION #6).

RLO1'S FOR QUESTION #4 WAS ASSIGNED
SLOTS.

THE

THRU

THE

ACTUAL

FOR

DRIVE
UNIT

THE

THE SECOND TIME THRU THE P-TABLE QUESTIONS (FOR THE RLO2
ASSIGNMENT
ON
THE SECOND CONTROLLER), THE FIRST QUESTION DEFAULTED TO *RL11’" TYPE (ONTROLLER.
THE SECOND QUESTION WAS ANSWERED TO REFLECT THE (HANGE IN
(SR
ADDRESS
FOR THE RLOZ2 CONTROLLER (175400).
THE SECOND CONTROLLER'S VECTOR WAS ALSG CHANGED TO 164 IN QUESTION #3.
THE RLO2 TEST UNIT
NUMBERS
WERE
ASSIGNED
VALUES
O TO 3 IN QUESTION #6& AND THE DRIVE TYPE WAS SET

FOR RLOZ2'S FOR LHME REMAINING & UNITS IN QUESTION #5.
THE
WAS DEFAULTED USING THE “'BR LEVEL'® FROM THE FIRST PASS.

LAST

QUESTION

SeEa 0019

PAGE 20

2.5

HARDWARE

THE

PARAMETERS

FOLLOWING QUESTIONS WILL

CATED TO THE LEFY OF
TAKEN ON A CARRIAGE

RLIT

(L)

ANSWER

THE QUESTION MARK

RETURN RESPONCE.

YES(Y)

YOU HAVE

AN RL11

BUS ADDRESS (0)

1744002

ANSWEF WITH

BUS ADDRESS OF

(0)

THE

VALUE

THE

VALUE

LO-

THAT WitL BE

CONTROLLER,

THE

NO(N)

YOU HAVE

AN RLVI1

C(ONTROLLER.

THE

INTERRUPT

THE

DRIVE(S)

VECTIOR OF

THE

CONTROLLER.

(0) 0?

ANSWER WITH

DRIVE

TYPE

ANSWER NO

BR LEVEL
ANSWER

2.6

= RLOV
(N)

(0)

WITH

THE

(L)
DRIVE

CONNECTED

THE

CONTROLLER

THE

CONTROLLER.

?
IS

INTERRUPT

SOF TWARE

THE

(OMMAND.

DEFAULT

160?

ANSWER WITH

DRIVE

START

IS TWF

¥?

CONTROLLER,

VECTOR

ASKED ON A

AN RLO?

PRIOR]ITY

PARAMETERS

FOLLOWING QUESTIONS ARE

ASKED

REQUESTED ON A

START,

RESTART,

CONTINUE.
THEY
ALLOW FLEXABILITY IN THE WAY THE PROGRAM SEHAVES.
THE
SOf TWARE PARAMETERS GIVE THE PROGRAM FLFXIBILITY IN
THE
WAY
[T
RUNS.

THE
PARAMETERS
ANSWERING (Y)ES

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

(HANGE

S.W.

RESTART,

CONTINUE

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE PARAMETER
QUESTIONS,
WITH
THE
PRESENT
DEFAULT
VALUE
PRINTED
(0 THE LEFT OF THE QUESTION MARK.
(THE LAST ANSWER GIVEN ]S THE DEFAULT) THE DEFAULT IS TAKEN ON
A
<(R>,

(ONTRCL 7

(*7) WlLL DEFAULT ALL REMAINING QUESTIONS AND START

EXECUTE
GRAM,

IfF

DRIVE SELECT

[ESTS

TESTS REQUIRE

MANUAL

TEST,

(N)?

"'YES'" TESTS 5 AND 6 ARE EXECUTED IN THE FIRST PASS Of
THESE

THE

INTERVENTION

1O (HANGE

THE

ADDRESS

PRO-

PLUGS

SEQ 0020

PAGE

AND REQUIRE

A FULL

COMPLEMENT

EXECUTE HEAD ALIGNMENT

IF 'YES'TM, TEST

ADDRESS PLUGS

SUPPORT

(0 -

3),

(N)?

IS EXECUTED IN THE FIRST PASS.

EXECUTE MANUAL

INTERVENTION TESTS

(N)?

IF "'YES', TESTS 1, 2, 3, AND & ARE EXECUTED TO TEST BAS}C

OPERATIONS,

HEAD LOADING,

HEAD UNLOADING,

SPECIFY ERROR LIMIT

(DECIMAL)

AND ALL

STATE

INTERFACE

(HANGES.

(20)?

THIS PARAMETER SPECIFIES THE
MAX]MUM
NUMBER
OF
ERRORS
ALLOWED.
THIS LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS.
IF THE ERROR LIM]T

1S EXCEEDED,

THE DRIVE

ODROP DRIVE
DRIVE

RESPOND

GET

3.0

_THIS PARAMETER
BEFORE
TESYING
TO A GET

STATUS,

NO RESPONSE

(N)?

1S SPECIFIED AS YES,
STARTS TO DETERMINE

STATUS.

THE DRIVE

ERROR

1S DROPPED FROM FURTHUR TESTING.

IS NOT

READY

THE PROGRAM WILL CHECK
EACH
IF 1T [S READY OR IF IT WiLL
AND WiLL

IS DROPPED AND A MESSAGE

NOT

RES"UND

1S PRINTED.

INFORMATION

ALL ERRORS ARE PRINTED VIA CONSOLE DEVICE.
NUMBER,
TYPE AND PROGRAM LOCATION.
ERRORS
AT ERROR WITH RELEVENT DATA,

THE
ERROR
INCLUDES
ERROR
INCLUDE REGISTERS BEFORE AND

SEQ 0021

PAGE 22

3. 1

ERROR REPORTING
MOST

ERROR

(1)
(2)

REPORTS

HAVE

THE

FOLLOWING

FCRMAT.

PRGO NAME
ERR NUM
TEST NUM
SUBTEST
ROUTINE TRACE SEQ (IN SEQ CALLED)
(ADDRESS)

NUM

ERR

(ADDRESS)

(3)

TEST

OPERATION:

(6)

ADDRESS

(5)

RESULT:

(7)
(8)
(9
10)
(1)
(12)
THE

DESCRIPTION

(4)

ONLY

UNIT

OP IN]IT
OP DONE
DRIVE

UNDER

RLCS

TEST

RLDA

RLBA

RLMP

STATUS
WORD NUM S (XXXXXX) SB
COMPARE ERRS: (111) OF (128)

TOTAL

EXCEPTION

?E;E(aED]OBV
HROUGH

READ

THE

ABOVE

ERROR).

FORMAT

THEN

THE

(YYYYYY)

PURE

DATA

FORMAT

(OMPARE

DOES NOT

ERRORS

INCLUDE

(NOT

LINES S

LINE 1 IS THE ERROR HEADER AND 1S PROVIDED BY
GRAM IS IDENTIFIED BY NAME WITH THE NUMBER CF
BEING EXECUTED.
THE
TO

(vi

SUBTEST NUMBER ]S UNIQUE IN THIS
A
PHYSICAL
SUBTEST
WITHIN
A

NUMBER
OF
TIMES
CONSEQUENTLY,
ON
(SUCH A INCREMENTAL
THME SUBTEST WILL BE

THE ERROR P.(C.
WAS INITJATED.

A
A

THE SUPERVISOR.
TEST AND SUBTEST

PROGRAM IN THAT 1T DOES
NOT
REFER
GIVEN TE>T.
RATHER IT REFLECTS THE

SUBTEST
HAS
BEEN
EXECUTED
WITHIN
TEST
THAT
TESTS AN INCREMENTAL TYPE OF
SEEKS, READ
DESCRIPTIVE

THE
PROPRESENTLY

ALL HEADERS
OF WHERE IN

A
TEST,
OPERAT]ON

FROM
BOTH
SURFACES,
ETC.)
ThE TEST THE ERROR OCCURRED.

IS THE PHYS]CAL MEMORY LOCATION WHERE
SINCE MANY FUNCTIONS ARE SUBROUTINED,

THE
ERROR
REPORT
AND ERRORS ARE RE-

PORTED FROM SUBROUTINES, THE ERROR P.C.
IS NOT SUFFICIENT
TO
IDENTIFY
ISE LOCATION OF THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE IS PROVIDED.
’

LINE

IS THE ROUTINE

TRACE SEQUENCE.

THE ERROR

CALL

INITIATED

FROM
WITHIN
THE TEST (AS OPPOSED TO WITHIN A ROUTINE), THIS PORTION OF
THE REPORT IS OMITTED.
IF THE CALL IS INITIATED FROM A
ROUTINE
(WMICH
MAY
BE
CALLED
BY ANOTHMER ROUTINE, WHICH MAY BE CALLED BY ANOTHER ROUTINE, ETC.,
SEVERAL LEVELS DEEP) THE ROUTINE TRACE SEQUENCE
PROVIDES
A
TRAJL
1O THE ACTUAL LCCATION WITHIN THE TEST THAT CALLED THE FIRST ROUTINE,
THE FIRST ENTRY LISTED IS THE LOCATION WHERE
THE
FIRST
ROUTINE
wAS (ALLED.

SEQ 0022

PAGE 23

LINE

3 IS THE

THE

TEST

LINE

TEST DESCRIPTION AND IS ROUGHLY

BEING PERFLRMED.

IDENTIFIES THE

ACTUAL HARDWARE

IDEMTICAL TO THE

FUNCTION THAT

S BEING

NAME

PERFORMED.

ADDITIONAL
INFORMATION
ON
THIS LINE IS DESCRIPTIVE OF SPECIFIC USE Of
THE FUNCTION.
FOR EXAMPLE, THE OPERATION LINE WILL READ
°''READ
HEADERS

FOR 40 MEADERS'® WHEN ALL HEADERS ARE BEING READ FROM A TRACK.

LINE S
S5

IDENTIFJES THE ERROR THMAT HAS BEEN DETECTED.

IDENTIFIES

WHAT

WAS

ERROR, DRIVE STATE,
Bt REPEATED 1F MORE

BENG

TESTED

THE CONTENT OF

(SUCH AS DRIVE READY,

ETC.), WHAT IT |S AND WHAT |1
THAN ONE TESTED ITEM IS FOUND

LINE

CONTROLLER

SHOULD BE.
IN ERROR.

LINE

5 MAY

IN ADDITION LINE 5 WILL REPORT ANY YARDWARE DETECTED ERRORS SUCH AS

ERATION INCOMPLETE, HEADER CRC, ETC.
IN THIS CASE
ED AS RESULT WiLL BE DETERMINED BY THE THREE ERROR
?23

EH(R(/D(R(.

THE

LINE

WiLL

DETERMINED

0P~

THE FIRST LINE PRINTBITS
OPl,
HNF/DLT,

THE

FOLLOWING

TRUTH

1E:

HNF/DLT
1

DCRC/HCRC
|

0
1
0

OPI
1

1
0
1
0

MESSAGE
HDR NOT FND/HDR

1
1
0
0

CRC/OP1

HDR CRC ERROR
HDR NOT FND ERROR
DATA CRC ERROR
DATA LATE ERROR

ERROR

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE UNIT UNDER TEST.
DRESS 1S BY UNIBUS ADDRESS Of THE CONTROLLER AND DRIVE NUMBER.

LINE
ARE

7 NAMES THE

APPLICABLE

CONTROLLER REGISTERS
THE

LINE 8 PROVIDES THE
WAS

INITIATED.

REPORT)

TO BE

CONTENTES OF
.

THIS AD-

(AND CYLINDER AND HEAD WHERE

REPORTED.

THESE

CONTROLLER REGISTERS WHEN THE OPERATION

LINE 9 PROVIDES THE CONTENTS OF THE C(ONTROLLER REGISTERS WHEN THE
ERROR
BEING
REPORTED
WAS
DETECTED.
FREQUENTLY THE REGISTER CONTENTS OF OP
INJT AND OP DONE WILL BE DIFFERENT.
OP INIT MAY
INDICATE
A
SEEK
WAS
BEING
PERFORMED
BUT
OP
DONE MAY INDICATE THE ERROR WAS DETECTED BY A
READ HEADER.

THE

HEADS

THE

POSITION

REASON

WRONG CYLINDER.

LINE

10 IS THE DRIVE

LINE

GISTER DOES NOT

AND LINE

OPERATION,
REPORTED

FOR

STATUS.

CONTAIN THE

THAT

SEEK

THIS LINE

ACTUAL

12 ARE REPORTLD IF

EITHER
ALL

WAS

EXECUTED

AND DID NOT

AND WHEN THE READ HEADER WAS DONE

DATA

READ

DRIVE

SPECIFIC OPERATION MESSAGES

[N ADDITION,

THE RLMP RE-

THE ERROR WAS DETECTED AS A

OR HEADERS.

ERRORS.

IS ONLY REPORTED jF
STATUS.

PROPER-

THE HEADS WERE

(OMPARE

GOOD AND BAD DATA

SEQ 0023

—

PAGE 24

THE

OPERATION MESSAGE

(LINE

GENERATED

IN A DYNAMIC MANNER BASED ON

THE
SUBSYSTEM
FUNCTION BEING EXECUTED AT THE TIME OF THE FRROR AND THE
STATE OF THE FLAGS IN THE LOCATION TAGGED "‘OPFLAGS''.
TME POSSIBLE OPERATION MESSAGES ARE GIVEN BELOW.

SEEK -

FROM (CYL NUM) DIFF (CYL DIFF) SGN (0 OR 1) HD (0 OR 1) WHERE THE VALUES
ARE GIVEN IN OCTAL.
THIS MESSAGE IS THEF RESULT OF A SEEK OPERATION THAT
WAS VERIFIED BY A READ HEADER AND THE HEAD POSITION AFTER A SEEK
IS
IN

ERROR.
THE

(THE

RESULT

ACTUAL

LINE,

LINE

HEAD POSITION IN THIS ERROR

5.)

READ DATA -

1S A READ DATA OPERATION WHERE

SOME

FORM OF

SITUATION

ERROR WAS

IS GIVEN

DETECTED

THE

ACTUAL
READ
OPERATION.
THIS ERROR (OULD BE HARDWARE DETECTED SUCH AS
DATA CRC, HEADER CRC, HEADFR NOT FOUND, ETC.,
OR
A
SOFTWARE
DETECTED
ERROR SUCH AS DRIVE READY RESET AFTER A READ DATA (OMPLETED.

READ DATA WITH DATA COMPARE

1S AN ERROR THAT WAS DETECTED AS BAD DATA IN THE
DATA OPERATION.
WHEN THIS OPERATION 1S REPORTED

READ DATA OPERATION
WRONG.

COMPLETED

WiTH NO DETECTED

BUFFER
AFTER
A
READ
1T INDICATES THE ACTUAL

ERRORS BUT

THE

DATA

WAS

READ HEADER READ HEADER FOR 40 HEADERS READ HEADER FOR 40 HEADERS WITH HEADER (OMPARE HAVE THE SAME GENERAL 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 DETECIED 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 [N ERROR.

WRITE
RESET

GET
GET
ARE

DATA -

STATUS STATUS WITH RESET

ALL BASIC OPERATIONS.
AS BEFORE, THE ERROR DETECTION CAN BE
HARD?A?E
gR
SOFTWARE.
THE RESULT LINE (LINE 5) WlLL DEFINE THE
FOR
THE
REPORT,

LD DRv UNLD DRV ARE

OPERATION MESSAGES

THAT

LOAD AND UNLOAD SEQUENCE
ANOTHER GROUP OFf
THAT

FAIL

WILL

APPEAR

REPORT

WHEN

REPORTED

FOR

THE

DRI]VE

IS BEING TESTED.

OPERATION QUALIFJERS WwiLL

SPECJFIC

THE

ElTHER
REASON

TESTS.

THESE

TESTS

ARE

THE

WRITE/READ

OPERAT]IONS
TEST

PART

SEQ 0024

PAGE 25

2, OVERWRITE TEST, AND THE ADJACENT CYLINDER INTERFERENCE TEST.
OPERATION

QUALIFIER

READ DATA WiTiA DATA
READ DATA
WRITE DATA
READ HEADER

THE

(OMPARE

THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY
OF
THE
QUALIFIERS.
QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO MAKE THE REPORT MORE ME-

Sgl?GFUL BY PROVIDING
N

FOL O TO CC 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

INFORMATION ABOUT

THE SEQUENCE OF

OPERATIONS BEING

THE QUALIFIERS "'FOL O TO CC SEEK' AND "'FOL 255 TO CC SEEK'' INDICATE
THAT
THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF A GIVEN DIRECTION TO
THE CYLINDER WHERE TME TEST 1S BEING PERFORMED.

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

WAS

THE QUALIFIER "'ADJ CYL WRITTEN AFTER FWD SK'' AND "ADJ
(YL
WRITTEN
AFTER
REV
SK'' WILL BE REPORTED ONLY IN THE ADJACENT CYLINDER INTERFERENCE TESY.
THESE QUALIFIERS ARE USED WHEN THE ERROR OCCURS ON THE
(YL~
INDER
UNDER TEST AND DEFINE THE DJRECTION THE HEADS WERE MOVED WHEN THE
ADJACENT CYLINDER WAS WRITTEN.

THE QUALIFIERS ''SK FWD, WRT-SK REV, OVERWRT'' AND
‘''SK
OVERWRT' WiLL BE REPORTED ONLY IN THE OVERWRITE TEST,

FWD,

%FéESSEgE;}¥E
H

VERW

THE

DIRECTION OF

HEAD MOTION BEFORE

THE

REV,
WRT=-SK
THESE QUAL-

INITIAL WRITE

AND

THE QUALIFJER ''GN BAD SEC FILES' wiLL BE REPORTED
WITH
THE
WRITE
DATA
COMMAND IF THE PROGRAM ABORIS THAT COMMAND BECAUSE THE WRITE wOuLD
BE ON THE BAD SECTOR FIJLES.

5.1 .2

SPECIFIC RESULT MESSAGES

THE RESULT MESSAGE (LINE 5) 1S GENERATED DYNAMICALLY BASED
ON
THE
EXPECTED RESULT OF THE OPERATION BEING TESTED.
SINCE OPERATIONS ARE MON]TORED DURING EXECUTION THE RESULT MESSAGE MAY REPORT AN
ERROR
DETECTED

DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT
TION.
THE

ONLY

GENERAL

THE

FIRST

FORMAT

fCR

ERROR SEEN
THE

RESULT

]S REPORTED
LINE

]S:

IN ALL

THE END OF
CASES.

THE OPERA-

SEQ 0025

PAGE 26

RESULT: (VAR 1)
WHERE VARIABLE

IS (VAR 2) SB (VAR 3) (OPTIONAL QUALIFIER)
1 CAN BE ONE OF THE FOLLOWING:

(ONT ERR
DRV ERR
NON-EXSTNT
HOR

MEM

(RC

DATA (R(
HDR NOT FND
DATA LATE
HDR NOT

(CONTROLLER ERROR)
(DRIVE ERROR)
(NON=-EX1STANT MEMORY)

FND/HDR

(HEADER

CRC ERROR)

(HEADER NOT
CRC/OPI

(ALL

FOUND)

3 BITS SET)

DRv RDY
StLECTED HEAD
VOL C(HK
COVER OPEN
BRUSH HME
WRT LCK

(DRIVE READY)

HDS OUT
DRV SEL ERR

(HEADER OUT)
(DRIVE SELECT

(VOLUME

CHECK)

(BRUCH HOME)
(WRITE LOCK)

DRV STATE
SPIN TIMEOUT
WRT GAT ERR
SEEK TIMEOUT
CUR HEAD ERR
WRT DAT ERR
OP INCOMPLETE
HDOR/DAT ERR

ERROR)
(DRIVE STATE)
(SPINDLE TIMEOUT SPD ERROR)
(WRITE GATE ERROR)
(SKTO ERROR)
(CURRENT IN HEAD ERROR)
(WRITE DATA ERROR)
(OP1 ERROR)
(HDR CRC OR DATA CRC ERROR

HDR NOT

(HDR NOT

FND/DAT LATE

BIT 11 OF CS REGISTER)

FOUND OR DATA LATE

ERROR BIT

12 OF

(S REGISTER)

(CYLINDER WHEN REPORTING A
SEEK ERROR)

VARJABLE 2 WILL BE A VALUE THAT DEFINES WHAT
THE
RESULT
ACTUALLY
IS,
THIS
CAN BE A 1 OR O TO INDICATE A SET OF RESULT CONDITIONS, A NUMBER 0
TO 7 TO INDICATE THE DRIVE STATE, OR A NUMBER O 10 377 (OCTAL) TO
IDENTIFY

A CYLINDER NUMBER.

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE 2
SHOULD BE.
THE
OPTIONAL
QUALIFIER IS PROVIDED WHEN IT 1S USEFUL TO KNOW WHEN THE ERROR
WAS DETECTED
TO REPORT

IN THE OPERATION BEING PERFORMED.

RESULTS SUCH AS:

THIS QUALIFIER

BRUSH HME ]S 1 SB O IN STATE 2
HEADS OUT 1S 0 SB1 IN STATE 3
]IS 0 SB 1 IN DATA XFER
DRV RDY
SELECTED MEAD ]S 1 SB O IN CY(LE UP
DRV RDY
1S 0 SB 1 IN STATE S
]S 1 SB 0 IN SEEK W/0 MOTION
DRV RDY
DRV RDY
1S 0 S8 1 IN 10MS
DRV RDY
IS 0 SB 1 IN 500MS
DRV RDY
]IS 0 SB 1 IN SSECONDS

USEC

SEQ 0026

PAGE 27

L:figg RESULTS,

WHEN

SEEN WITH

THE

OPERATION MESSAGE,

WILL

SELF

EXPLA-

OTHER RESULT

MESSAGES

THAT

(AN BE

PART

AN ERROR REPORT

ARE:

"'INTERRUPT TO LATE"
WHICH INDICATES THAT THE OPERATION BEING PERFORMED DID NOT
(OMPLETE
IN
THE
EXPECTED
AMOUNT
OF
TIME.
THIS RESULT CAN BE CAUSED BY THE DRIVE
LOOSING READY BEFORE STARTING A READ HEADER AND THEREFORE NOT COMPLETING
THE READ HEADER IN 1MS.
|

"FAIL

TO RELOAD HEADS AFTER ERR

THIS

1S REPORTED

ERROR

1S CLEARED

WHEN AN ERROR

THE

CLEAR'
CAUSES

HEADS DO NOT

HEADS

10O

UNLOAD

AND

AFTER

Tkt

DRIVE

STATE

RELOAD.

"'UNKN DRV STATE=-NO RDY, NO ERR, WDS OUT"
THIS IS REPORTED WHEN
STATUS.

"WR1TE

THE

PRCGRAM

THE

PROGRAM ABORTS

*'COULD NOT RETRIEVE DRIVE
iS

REPORTED

LY WHEN THE
"'OP1

DETERMINE

THME

ABOKTED"

THIS IS REPORTED WHEN
TOR FILES.

THIS

CANNOT

STATUS

THE

A WRITE

TO PROTECT

THE

BAD

SEC-

STATUSTM

GET

STATUS

1S REQUIRED

COMMAND

TO REPORT

DOES

NOT

COMPLETE

SUCCESSFUL-

AN ERROR.

SET-NO DRIVE RESPONSE'’

THIS IS REPORTED AS THE RESULT WHEN THE GET STATUS COMMAND IS TIMED
OuT
(OP]
SETS)
WHEN THAT COMMAND ]S BEING USED IN THE EARLY TESTS TO CHECK
THE DRIVE INTERFACE.

‘'NO

INTERRUPT ON (MND COMPLETE"

THIS 1S REPORTED WHEN THE
TROLLER HAS NOT GENERATED

“ERR DID NOT CLEAR"

COMMAND SUCCESSFULLY
AN INTERRUPT.

COMPLETES

BUT

THE

(ON-

SEQ 0027

PAGE 28

THIS

1S REPORTED WHEN

ERRORS.
THE

DRIVE

THIS

TEST

THE

RESET

COMMAND DOES NOT

(LEAR

IS A CONTROLER RELATED PROBLEM BUT

PROGRAMS.

"DRV ERR IS NOT

THE

(CONTROLLER

IS REPORTFD

SEEN IN

(LEARED"

THIS IS REPORTED WHEN THE
DRIVE ERRORS.

GET

STATUS W/RESET

COMMAND DOES NOT

CLEAR

ALL

"'UNEXPECTED ERR"
THIS IS REPORTED WHEN
ARE SET.

THE

CONTROLLEP

SENSES

AN ERROR BUT

ERROR

BITS

"BAD SEC FILE FMT ERR"
THIS

REPORTED

I1F

EXPECTED FORMAT.

5.1.3
OTHER

THE

(REFER

CONTENTS

TO DEC

THE

STANDARD

FILES

144

DO NO

CORRESPOND

FOR FORMAT

SPECIFICS.)

THE

OTHER MESSAGES
INFORMATION

IS REPORTED UNDER VARIOUS CIRCUMSTANCES.

"BAD SEC FILES NOT STRD.
THIS MESSAGE

THESE

ARE:

ALL SEC ASSUMED GOOD.''
BAD

SECTOR

FILES
BUT THEY HAVE NOT BCEN STORED.
THIS SITUATION WiLL OCCUR
TEST IS STARTED OUT OF THE NORMAL PROGRAM StQUENCE OR IF THE BAD
FILES COULD NOT BE READ.

IS PRINTED WHEN A PARTICULAR

TEST

REQUIRES THE

1F THIS
SECTOR

“ERROR LIMIT EXCEEDED-UNIT DROPPED"'
THIS

REPORTED

NUMBER OF

(WITH

ERRORS

THE

(DEFAULT

UNIT

20)

NUMBER)

HAVE

WHEN

OCCURED

IN ANY

THAN

THE

SPECIFIED

SINGLE PASS.

ERROR HALTS
ERROR MALTS ARE
/ELAG:HOE.

‘. N

SUPPORTED PER DESCRIBED

THERE

ARE

PERFORMANCE

NO OTHER

HALTS,

AND PROGRESS

REPORTS

THME

SECTION

WITH

SEQ 0028

PAGE

PERFORMANCE

THIS

PROGRAM

WiLL

REPORTS

NOT

GIVE

ANY

PERFORMANCE

ANY

PROGRESS

REPORTS.

PROGRESS REPORTS

PROGRAM WwiLL

DEVICE

NOT

GIVE

THE RLI1/RLVIT CONTROLLER HAS
TROL OF THE SUBSYSTEM.
RLCS

BIT
B1T
BIT
BIT

15
14
13
12

BIT

CONTROL

=
-

AND

THE

STATUS

FOLLOWING

FOUR{(&)

(XxxXXx0)

COMPOSITE ERROR
DRIVE ERROR
NON EXISTANT MEMORY ERROR
HMEADER NOT FOUND (WITH BIT 10 SET)
DATA LATE (W]TH BIT 10 CLEAR)
HEADER CRC (W]TH BIT ‘0
DATA (RC (WITH BIT 10 (L
OPERATION INCOMPLETE
- DRIVE SELECT (0-3)
CONTROLLER READY

BIT
81T
BIT

=
10 9/8
7 -

81T

S5 - EXTENDED BUS ADDRESS

BIT

817

6 =

INTERRUPT

ENABLE

& - EXTENDED BUS ADDRESS

3-1

BIT

WRITE

(BIT1

(LSI-11)

CHECK

GET DRIVE
SEEK

17)
-

i6)

STATUS

READ HEADER
WRITE DATA
READ CATA
READ W]THOUT

HEADER

COMPARE

0 - DRIVE READY

LT
X
P

1.0

(BIV

- FUNCYION (ODE
= NOP (PDP=11) MAINT

RLBA = BUS ADDRESS REGISTER
1S

REPORTS.

INFORMATION TABLES

NONE
i) — O

THIS

15=1

BUS ADDRESS OF

SHouLD BE

(XXXXX2)

DATA

XXX

TRANSFER

REGISTERS

FOR

(ON-

SEQ 0029

PAGE

RLDA

BI1

DISK

ADDRESS REGISTER

15-7 = CYLINDER ADDRESS FOR TRANSFER

BIT

FOR

SEEK

Bil

(XXXXX&)

FOR

TRANSFER

5-0 -~ SECTOR FOR TRANSFER

(1-40.)

FUNCT]ON

BlY 15=7 - DIFFERENCE TO NFY CYLINDER
BIT 6-5 - MUST BE 2ERO (0)
BIT ¢ - SURFACE (0=UPPER, 1:=LOWER)
BIT 3 - MUST BE ZERO (0)
BIT 2 - SEEK DIRECTIONC 1=IN / 0=0UT )
BIT 1 - MUST BE ZERD (0)
BI11 O - MUST BE ONE (1)
FOR

GET

STATUS

15-4

FUNCTION

]GNORED

SHOULD BE

5 - DRIVE RESET
2 = MUST BE ZERO (0)
1

- MUST

ONE

0 - MuST BE ONE

ZERO

(0)

(1)

RLMP

= MULTIPURPOSE

BIT

15 = 0 - WORD COUNT

FOR

READ

BIT

15-0 = DISKk HEADER OF SECTOR (FIRST READ)
= JERO WORD (SECOND READ)

HEADER

STATUS

HAS DRIVE

Bl1
811
BlT1

(TWO'S COMPLIMENT)

FUNCTION

= HEADER

tOR GET

(RC

(THIRD

READ)

FUNCT]ON

STATUS

15 - WRITE DATA ERROR

14 = (URRENT HEAD ERROR ((HWE)
13 = WRITE LOCK STATUS (wiL)

Sea 0030

—

VO NODOO
~Ny

S
S
S
L S
S

Gl Gl Pl Pl Pl Yl Gl

SLEK TIME OuT (SKT10)
SPIN ERROR (SPE)

WR11E

SURFACE

BAS]C

LOAD

(0=UPPPER,

(DSE)
IF SET

1:LOWER)

2 0 =-STATE BITS
= LOAD STATE

TEST

(WGE)

COVER OPEN
HEADS HOME
BRUSHES HOME

N NS
W
—-O

6.0

GATE ERROR

VOLUME C(HECK (v()
ORIVE SELECT ERROR
ODRIVE TYPE IS RLOZ2

S
Q) G
P

00 0D 0 €0 0 OO T0 O X LD

PAGE 31

SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK = TRACK COUNTING
SEEK - LINEAR MODE
UNLOAD HEADS
SPIN DOWN

SUMMARIES

INTERFACE

IN DRIVE

TEST

NUMBER.

DRIVE
DRIVE

MARKER

(PART

DO GET

STATUS WITH RESET.

INTERFACE 1S DEAD
COMMAND SHIFT REGISTER NOT
DETECTION FAILED

OPl

SETS:

LOADING/SHIFTING

DRIVE IS NOT SELECTING OR AC LOW S SET
SYSTEM OR STATUS CLOCKS NOT OPERATIONAL
GET STATUS DETECTION FAILED.
I¥

INTERRUPT WITH NO OPl,

AND BRUSH

HOME

SHOULD BE

CHECK

SET.

STATUS RECEIVED.

NOT:

BAD STATUS DATA LINE
BAD COVER SWITCH OR LOGIC
DRIVE COMMAND SHIFT REGISTER
BAD BRUSH HOME SWIT(H OR LOGIC
(HECK

WRITE

IF NOT:
LOCK STATUS BIT SET.
BAD SWIT(H OR WRITE LOCK LOGIC
DRIVE COMMAND SHIFT REGiSTER

(HEfK

STATE

FOR 0.

(ME(K

VOLUME

NOT:

BAD STATE ROM
DRIVE COMMAND SHIFT REGISTER
(WECK

RESET.

NOT:

BAD RESET DETECTION
BAD VvOLUME (HE(K LOGIC
DRIVE C(OMMAND SHIFT REGISTER

(OVER

OPEN

SEa 0031

PAGE

(MECX DRIVE ERRCR RESET.

NOT:

BAD DRIVE ERROR INTERFACE
SOME OTHER ERROR STUCK ON.
NOTE:

THIS

TEST

1S EXECUTED ONLY

1S SELECTED, MANUAL

AND

TEST

RASIC

IS RUN

INTERFACE

REQUEST

OPERATOR

DO GET

STATUS LOOP

RESETS.
WAIT
ASK OPERATOR TO

ONE

IN FIRST

TEST

TO CLOSE

RFPORT WHI(M ERROR.
PROGRAM OPERATION MODE

INTERVENTION TESTING

IS REQUESTED,

PASS ONLY.

(PART

COVER

(HECKING

AND RESET

(OVER

WRITE

OPEN

LOCK.

WRITE

15
SECONDS FOR BOTH TO CHANGE.
IF
TYPE (R ]F PROCEDURE WAS FOLLOWED.

CHANGED BUT NOT

THE OTHER,

(OCK

NO CHANGE,

REPCRY WHICMH FAILURE:

WRITE LOCK SWITCH OR LOGIC
(OR) COVER OPEN SWITCH OR LOGIC

DRIVE

COMMAND SHIFT REGISTER

NEITHER CHANGED, REPORT BOTH FAILURES.

NOTE :

THIS

TEST

1S EXECUTED ONLY

IS SELECTED, MANUAL

AND

TEST

IS RUN

HEAD LOADING

REQUEST

OPERATOR

IN FIRST

PROGRAM OPERATION MODE

INTERVENTION TESTING

PASS ONLY.

IS REQUESTED,

TEST
TO PRESS

LOAD

SWITCH.

D0 GET STATUS LOOP (HECKING FOR STATE TO GO
10
1,
WAlT
30
SECONDS
FOR
(C(HANGE.
IF
NO (HANGE, ASK OPERATOR TO ZONFIRM
ACTION BY

TYPING

(R.

LOAD WAS PRESSED:

BAD STATE ROM
BAD LOAD SWIT(H GR LOGIC
(MECK

THAT

STATE

REMAINS FOR LESS THAN

30 SECONDS.

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

NOT:

SEQ 0032

PAGE

AND

(HECK

SPINUP TIMEOUT
BAD
BAD

(HEC(K

THAT

ERROR

SET.

NOT:

STATE ROM
TIMEOUT DETECTION LCGIC

STATE

GOES

TO 2.

NOT:

BAD STATE ROM
(HMECK

1S 2.

THAT

BRUSH HOME

1S RESET

1F NOT:

SECONDS OR LESS

AFfTER

STATE

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

WAIT

30 SECONDS FOR BRUSH HOME

TO SET.

NOT:

BAD A(C SERVO
BAD SWIT{H OR LAT(H
(HECK

THAT

STATE

MHAS CHANGED

NOT:

BAD STATE ROM
AFTER

(HECK

STATE

VOLUME

CHECK

BAD
8AD
BAD
BAD

SWITCH
SEEK CONTROL ROM
VELOCITY ROM
DC SERVO

CHECK

SET.

BAD VOLUME
(MECK

DRIVE

ERROR

BAD DRIVE

WAIT

300 MS FOR STATE

HEADS OUT

SET.

[IFf

NOT:

(MECK

LOGIC

SET.

NOT:

ERROR LGGIC

TO CHANGE

INTERFACE

TO 4.

DOESN'T CHANGE:

STATE ROM BAD
SEEXK ROM
VEL ROM
GUARD BAND DETECTION

WAIT

15 MS FOR STATE

8 MS AFTER STATE

T0O CHANGE

GOES TO 5,

TO 5.

DRIVE

READY

SHMOULD SET.

NOT:

INTEGRATOR OR NULL DETECTION FAJLURE

READY

ENABLE

ONE

SHOT

BAD

TIMEOUT W NCT

SETTING OR (OuUNT

LOGIC BAD

SEa 0033

—

PAGE

NOTE:

THIS

TEST

IS EXECUTED ONLY

1S SELECTED, MANUAL

AND

TEST

HEAD

RUN

UNLOADING

F]RST

OPERATOR

LOOP ON GET
:
CHANGE

PROGRAM OPERATION MODE

PASS

IS REQUESTED,

ONLY.

TEST

(HECK DRIVE 1S READY.
DRIVE READY,
REQUEST

INTERVENTION TESTING

NOT

TO UNLOAD

REPORT

AND

ASK

OPERATOR

MAKE

DRIVE.

STATUS WAITING FOR STATE

TO (HANGE

T0 STATE

BAD STATE ROM
BAD SWITCH
WAIT

300 MS FOR STATE
BAD

AFTER

I¢

STATE

:
NO CHANGE

TO C(HANGE

STATE
7,

NO (HANGE:

ROM

WAIT

StC

FOR

STATE

C(HANGE

WAIT

UNTIL

NO BRAKING

BAD AC
REQUESY

OPERATOR

SERVO

TO LOAD

DRIVE.

DRIVE

BECOMES

READY,

NOTE:

TEST

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

DRIVE

INSTRUCT

DRIVES

SELECT

TEST

THE OPERATOR TO REMOVE

EXCEPT

THE

TYPED WHEN DONE.

DRIVE

UNDER

DR]IVE

TEST.

ADDRESS PLUGS
ASK

THAT

DO GET STATUS TO ADDRESS OF DRIVE UNDER TEST.
ERKORS ARE REPORTED.
(HECK

DO GET

THAT

OP]

STATUS

THAT
NO
ADDRESSES

DO GET

ALL

THAT

CHEEK

RETURN

STATUS TO AL OTHER ADDRESSES AND

SETS FOR ALL OTHER ADDRESSES.

TO ADDRESS OF

ERRORS
ARE
REPORTED.
AND (HECK THAT OP] SETS.

REPEAT FOR ALL
AFTER 3,

FROM

CARRIAGE

DRIVE

ADDRESSES

SEQUENT]AL
DO

GET

(0,1,2,3

ADDRESS.

STATUS

10 ALL

(HE(K
»

OTHER

SEQUENTIAL

SEQ 0034

PAGE

NOTE:

THIS

TEST

1S EXECUTED ONLY

1S SELECTED,

RUN

TEST

DRIVE

IN FIRST

SELECT

DRIVE

SELECT

PASS ONLY.

ERROR

CARRIAGE

PROCEDURE WiLL BE

PROGRAM OPERATION MODE

IS REQUESTED,

AND

TEST

REQUEST OPERATOR INSERT IDENTICAL
(MUST
BE
IDENTICAL
TO
NUMBER

OPERATOR TYPE

TESTING

ADDRESS PLUGS IN TWO
DRIVES
SPECIFIED EARLIER).
REQUEST

RETURN WHEN READY.

TO GET

STATUS AND

C(HECK

FOR

DRIVE

SELECT

ERROR.
THEN
RESET
THAT
DRIVE AND VERIFY THAT DRIVE SELECT
ERROR 1S NOT REPORTED AGAIN.
WAIT 1 SECOND, THEN CHANGE ORIVE
SELECT
TO
A
DIFFERENT
NUMBER AND BACK AGAIN.
DRIVE SELECT
ERROR SHOULD SET AGAIN,
OPERATOR SHOULD SEE THE FAULT LIGHT
INDICATOR IS NOT SEEN ON A DR]VE:

DRIVE
NOTE:

THIS

TEST

SELECT ERROR DETECTION
IS EXECUTED ONLY

1S SELECTED,

RUN

IN FIRST

DRIVE

SELECT

BOTH

IS BAD

DRIVES.

IN THAT

DRIVE.

PROGRAM OPERATION MODE

TESTING

1S REQUESTED,

AND

PASS ONLY.

TR eRRREROSORRROY

STANDARD TESTS
sedERRRROSRNOERNSE

1f THE PROGRAM OPERATION MODE 1 IS SELECTeD, THIS WwilLL BE
THE
FIRST
TEST
EXECUTED.
THE
DRIVE(S)
T0O
BE
TESTED MUST BE
PCWERED UP, HEADS LOADED, AND WRITE LOCK RESET.
TEST

INITIAL

DO GET

STATE

TEST

STATUS, WAIT

FOR

INTERRUPT,

IF OP1 OCCURS:
.

DRIVE INTERFACE IS DEAD
DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
DRIVE IS NOT SELECTING OR AC LOW IS SET
SYSTEM OR STATUS CLOCKS NOT OPERAT]IONAL
GET STATUS DETECTION FAJLED.

IF INTERRUPT OCCURS WITHOUT OP],
INDICATES
HEADS
ARE
LOADED

WORKING)
.

MANUAL

INTERVENTION TESTS WERE

(HECK DRIVE READY.
AND
ARE
TRACKING
RUN,

(HECKX

THAT

READY SET
(POSITION
HWEAD

SEQ 0035

PAGE

SELECIED.

NOT:

ORIVE

CYCLE UP DID NOT

SELECT

HEAD O

1F DRIVE READY IS SET, CHECK STATUS MESSAGE
OUT AND BRUSH HOME MUST BE SET.
IF NOT:

RECEIVED.

HEADS

DRIVE COMMAND SHIFT REGISTER NGT LOADING/SHIFTING
HEADS OUT OR BRUSH HOME SWITCH OR ASSOCIATED
CIRC [TRY BAD
STATUS DATA BAD
1F

MANUAL

PASS

(HECK

INTERVENTION TESTS WERE RUN AND
THAT

CHECK

AND DRIVE

THIS

ERROR

ARE

THE

INITIAL

DO GET

IS 5.

NOT:

DRIVE

COMMAND SHIFT

RESET

STATE

TEST

STATUS HEAD SELECT

= C,

WAIT

FOR

INTERRUPT.

DO GET STATUS WITH RESET,
WAIT
FOR
INTERRUPT.
BOTHM
ERROR AND VOLUME CHECK SHOULD NOW BE RESET.
[IF NOT:
RESET
DRIVE
HEAD

FIRST

SET.

ALL ERROR BITS ARE 0.

(HECK STATE

TEST

VOLUME

SELECTED BIT

DETECTION, RESET ERROR, OR VOLUME
COMMAND SHIFT REGISTER BAD
SHOULD

STILL

2ERO.

DRIVE

CHECK

FLOP BAD

NOT:

DRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECT SHIFT REGISTER NOT LOADING
TEST

DRIVE

READY

TEST

DO
SEEX
WITH
O
DIFFERENCE,
SIGN
O,
HEAD
0.
INTERRUPT.,
GET STATUS.
(HECK STATE IS 5.
IF NOT:
DIFFERENCE

DRIVE

READY

ENABLE

FOR

COUNTER PICKING UP BITS

COUNTER CIRCUJITRY

(MECK

WAIT

RESET.

IS NOT

INDICATING O DIFFERENCE

NOT:

TIMEOUT OR RE~DY LATCH/ONE

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

10 SIT.

117

SHOT BAD
TAKES

LONGER

SEQ 0036

PAGE 37

HEADS MAY HAVE
READY ONE SHOT

(HECK DRIVE ERROR DID NOT

REPORT

10 SEEXK

SET,

SET, DO GET

AND

DIFFERENCE
O,
SIGN
1,
HEAD
0.
WAIT
STATUS AND CHECX STATE 1S S.
IF NOT:

FOR

VERIFY HEAD SELECT
TEST

MOVED (INTEGRATOR OR NULL DETECTION)
FAILED

STATUS

WHICH ERROR.

SEQ 0037

1S ZERO.

SIGN SWITCH TEST

LO
SEEK
WITH
INTERRUPT,
GET

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

DRIVE

1S NOT

READY

APPROX 8 MS FOR READY

DOESN'T

SET AT ALL:

HEADS ARE
READY ONE

COUNT

VERIFY DRIVE
VERIFY

ROM

TEST

11
THIS

TAKES

LONGER

DETECTION)

SET

IS ZERO.

DO SEEK WITH O DIFFERENCE,
ABOVE

TO SET.

MCVING (INTEGRATOR OR NULL
SHOT FAILED

ERROR DID NOT

HEAD SELECT

OPPOSITE

SIGN,

MHEAD

REPEAT

ADDRESS

TESTS.

HEAD ALIGNMENT
TEST

52g§ OHEAD

SUPPORT

IS EXECUTED WHEN

ALIGNMENT

ROUTINE
THE

SUPPORT

PROGRAM

STARTED

1S REQUESTED,

AND

IN THE

LOOPS

FIRS?

NLY.

THIS TEST

SELECTS

THE

DRIVE

UNDER

TEST

AND

GET

STATUS
WITH
RESET.
THE WRITE LOCK BIT IS MONITORED AND WHEN
WRITE LOCK IS RESET HEAD O IS SELECTED AND WHEN WRITE LOCK
IS
SET
HEAD
1
IS
SELECTED.
THIS WILL PERMIT THE HEADS T0O BE

ALIGNED IN KEEPING WITH THE PRESENT
WITHOUT RETURNING TO THE CONSOLE.

HEAD

TYPING A CARRJAGE RETURN ON THE CONSOLE
TEST
ON
THE
DRIVE UNDER TEST.
BEFORE

WiLL CHECK
WiiL BE

THAT WRITE LOCK

IS RESEY.

REQUESTED 10 RESET WRITE

LO(K.

ALIGNMENT

PROCEDURE

WILL
TERMINATE
TERMINATING, THE

NOT,

THE

THIS
TEST

OPERATOR

PAGE 38

TEST

12 HEAD SWITCHING TEST
DO
SEEK
WITH
O
DIFFERENCE,
SIGN
O,
HEAD
1.
WAIT
INTERRUPT.
GET STATUS AND CHECK STATE IS 5.
If NOT:

FOR

DIFFERENLE COUNTER IS PICKING UP BITS
ASSCCIATED CIRCUITRY IS BAD
VERIFY DRIVE READY RESET.

ENABLE

[IF

NOT:

TIMEOUT OR READY LATCH/ONE

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

TO SET.

SHOT BAD
TAKES

LONGER

HEADS ARE MOVING (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED
DRIVE CANNOT TRACK WITH THIS HEAD
VERIFY

DRIVE

ERROR DID NOT

DO GET

SVATUS,

CHECK HEAD

HEAD SELECT

ODRIVE

SELECT

13 READ HEADER TEST

(PART

DO SEEK WITH DIFFERENCE O,
AND WAJT

FOR DRIVE

DO READ HEADER,
(HECK

READY.

WAIT

FOR

CORRECT.

[IF

NOT:

COMMAND SHIFT

225§§EK WITH O DIFFERENCE,

TEST

SET.

SIGN

HEAD

REPEAT

WAIT

FOR

ABOVE

1)
HEAD 0,

SIGN 0.

INTERRUPT

INTERRUPT,

HEADER CRC ERROR SET.

SET:

READ/WRITE BOARD BAD
READ DATA LINE BAD

%?Eggylf

‘

BIT 6 OF

WORD 1

IS SAME AS MEAD SELECT BIT

IN STATUS.

HEADS ARE SWITCHED (CABLE)
HEAD SELECT

LOGIC

IF MANUAL INTERVENTION TESTS WERE RUN AND WEAD ALIGNMENT TESTS
WERE
NOT
RUN,
CHECK
THAT HEADER WORD O INDICATES HEADS ARE
POSITIONED OVER CYLINDER O.
STORE HEADER WORD 1.

SEQ 0038

PAGE

REPEAT

TESTS USING HEAD

(HECK THAT CYLINDER PORTION OF STORED HEADER
WORD
SAME AS HEADER WORD 1 OF THIS HEADER.
IF NOT:

THE

WAIT

FOR

HEADS ARE M]SALIGNED
TEST

14 READ HEADER TEST

(PART

DO
SEEK
WITH
ODIFFERENCE
INTERRUPT.
WAIT FOR READY.

ggABO CONSECUTIVE READ HEADER,
(HECK

BIT

SIGN

HEAD

STORE 3 HEADER WORDS AFTER EACH

ALL HEADERS FOR SEQUENCE AND CONTENT

15 WORD 1 AND 3 IS O, HS BIT WORD 1

(WORD 2

ALL

ZERO,

REPEAT

ABOVE

TEST

[S 0).

IF NOT:

BAD READ/WRITE BOARD
BAD PACK
DO SEEXK WITH DIFFERENCE O,
FOR HEAD 1.
TEST

OIFFERENCE OF

SEEK

SIGN O,
TEST

HEAD

(PART

DO READ HEADER, WAIT FOR INTERRUPT.
STORE WORD 1 OF HEADER.
DO SEEXK WITH DIFFERENCE OF 1, HEAD O.
IF CYLINDER
OF
STORED
HEADER WORD IS NOT 255 THEN SIGN BIT 1, ELSE SIGN BIT 0.
WAIT
FOR

INTERRUPT,

DO GET

STATUS, WAIT FOR

INTERRUPT.

CHECK

STATE

IS 4.

[IFf

NOT:

DRIVE COMMAND SHIFY REGISTER BAD
DIFFERENCE REGISTER DROPPED BIT
STATE ROM FAJLED
WAIT

STATE

APPROX 5 MS.

IS 5.

DO GET

IF NOT:

STATUS, WAIT

FOR

INTERRUPT.

DIFFERENCE REGISTER NOT COUNTING
COUNT PULSE NOT GENERATED (COUNT LOGIC)
SEEK ROM FAILED

FAILURE IN DC SERVO
NC TACH FEEDBACK

WAIT

APPROX 5 MS LONGER.
FAILURE

WAIT APPROX

IN READY

5 MS LONGER.
FAILURE

TEST DRIVE

LATCH OR

TEST READY,

INTEGRATOR

READY.

INTEGRATOR

RESET:

SET:

(MECK

SEQ 0039

PAGE 40

UNEYPECTED GUARD BAND DETECTED
DO SEEK WliW DIFFERENCE
TESTS

REPEAT

TEST

NOTE :

USING HEAD

THIS TEST

THE

SINGLE
TEST

1, OPPOSITE

AS ABOVE.

OIFFERENCE

IS PERFORMED AT

WHEN

SURFACE WILL
1

DO READ HEADER, WAIT

HEAD O.

REPEAT

ALL

DRIVE

OFf

SIGN,

SEEK

fOR

THE

LIMIT

TEST

THE

CYLINDER POSITION

TEST

EXECUTES.

TESTING TO THAT

(PART

INTERRUPT.

FOUND

C(HOOSING+A

SURFACE.

STORE WORD

HEADER.

DO SEEX WITH DIFFERENCE OF 1, HEAD O.
IF CYLINDER
OF
STORED
HEADER WORD IS NOT °*'HILIMIT' THEN SIGN BIT 1, ELSE SIGN BIT 0.
WAIT

FOR

INTERRUPT,

WAIT

FOR DRIVE

READY.

DO READ HEADER, WAIT FOR INTERRUPT.
COMPARE CYLINDER OF
?EADE?
WITH
CYLINDER OF STORED HEADER FOR DIFFERENCE OF

THIS
ONE.

NOT

COUNT LOGIC BAD
INTERGRATOR FAILED
(HE(K

THAT

NOT:

HEADS MOVED FORWARD OR

REVERSE

EXPECTED.

SEEK ROM FAILED

U0 SEEX WITH DJFFERENCE OF
ALL

TESTS

REPEAT

NOTE :

AS ABOVE.

TEST

THIS

USING HEAD

TEST

THE

SINGLE

1, OPPOSITE SIGN, HEAD

REPEAT

|S PERFORMED AT

DRIVE

WHEN

THE

SURFALE WILL LIMIT

THE

CYLINDER POSITION

TEST

EXECUTES.

TESTING TO THAT

FOUND

C(HOOSING A

SURFACE.

SEQ 0040

CIRLIAD RLOY/2 DR TST
TABLE OF

C(ONTENTS

MACRO v03.01

*TESI

567-

1
1
1

*TEST
*TEST
*«TEST

91011-

1
3
3

*TEST
*TEST
*TEST

136=
15«
161718-

3
3
3
1
1
1

*TEST
*TEST
+TEST
*TEST
*TESY
*TEST

20-

DIAGNOSTIC

12-

19-

*TEST

BASIC
BASIC

N B

PARAMETER

19:14:22

INTERFACE
INTERFACE

HEAD LOADING
HEAD UNLOADING
ODRIVE SELECY

SEQ 0041

(PARY 1)
(PART 2;

ORIVE SELECT TEST
INITIAL STATE
INITIAL RESET STATE

*TEST

——
et s O OO
AL
NP = O

—

9-FEB-79

DRIVE READY
SEEK SIGN SWITCH
HEAD AL IGNMENT SUPPORT
HEAD SWITCHING
READ HEADER (PART 1)
READ HEADER (PART 2)

CODING

DIFFERENCE OF
DIFFERENCE OF

1
1

SEEX
SEEXK

SUPERVISOR =-- LOW CORE

(PART
(PART

SET uP

1)
2)

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79 19:14:22 PAGE

SEQ 0042
|

000001

PART1

-1

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:14:22

PAGE

SEQ 0043

CNLIST

2 000000

LENABLE APMA

002000

.=2000

7 002000
8

000001

SvC
SVCTIST=

9
10
IR
12

}2 002000

15 002000
17 002000
002000
002001
002002
002003
002004
002005
02006
002007
002010
002011
002012
002014
002016
002020
002022
002024
002026
002030
002032
002034
002036
002040
002042
002044
002046
002050
002051
002052
002054
002056
002060
002062
002064
002066
002070
002072
002074
002076
002100
002102
002104

(ND,MD,ME

.ENABLE ABS

JMCALL

000001
000001
000000
000000

SVC

SvCsSuB=1
SV(BGL-1
SVCINS=0
SVCTAG=0

POINTER BGNSW,BONSFT,BGNDU

103
132
122
114
11
000
000
000
101
060
000000
000001
032570
032734
013674
013712
033200
000000
0060000
000000
000000
013730
000000
000000
000000
002
002
000001
000001
000000
000000
000000
002114
000000
002112
002112
000000
015256
000014
000000
013770

BGNMOD
HEADER

MDHEDR
(ZRLI,A,0,1,1,1,RLON
LASCIT /C/
JASCIL 72/
LASCII /R/
LASCIL /u/
JASCIL 71/
.BYTE
O
.BYTE
O
BYTE
0
JASCIT
/A/
LASCIL
70/
.MWORD
0
.WORD
1
.WORD
L$HARD
.WORD
L$SOf1T
.WORD
L%HW
.WORD
L$SW
LWORD
L$LAST
LWORD
O
.MORD
O
.WORD
O
WORD
O
.WORD
LS$DISPATCH
LMWORC
0
.WORD
O
.WORD
0
BYTE
(SREVISION
.BYTE
C$EDIT
LWORD
1
.WORD
1
LWORD
0
.WORD
0
.WORD
O
.WORD
LSDVTIYP
.WwORD
O
.WORD
L$DR
.WORD
L$DRST
LWORD
O
.WORD
LSOV
LWORD
14
.WORD
O
LWORD
LSIN]’

ASSEMBLY

ROUTINES

MACRO v03.01

002106

015136

002110

000000

26 002114
002114
002117
002122
002128

1¢2
061
114
000

22 002110
23 002110

9-FEB~79

i19:14:22 PAGE

FNDMOD

114
054
060

LWORD

SEQ 0044

LSCLEAN

DEVREG

LWORD
BLKW
DEVIYP
LASCIZ

060
122
062

2-!

<RLOV,RLO2>
/RLOY,RLOZ/

.EVEN

;COPYRIGHT

28
29
30
3
2
13
gg

JON A SINGLE COMPUTER SYSTEM AND MAY BE COPJIED 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 OT: ER PERSON EXCEPT
;FOR USE ON SUCH SYSTEM, AND TO ONE WHU AGREES TO THESE
JLICENSE TERMS, TITLE TO OWNERSHIP Of THE SOF TWARE SHALL

36
37

;THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CMANGE
:WITHOUT NOTICE AND SHMALL NOT BF CONSTRUED AS A COMM]ITMENT

;DEC

((C)

;THIS SOFTWARE

;AT

ALL

1978,

1977

1S FURNISHED UNDER LICENSE FOR USE ONLY

TIMES REMAIN

IN DEC.

:BY DIGITAL EQUIPMENT CORPORATION.

:0F

ASSUMES NO RESPONSIBILITY

SOF TWARE

ON EQUIPMENT

FOR

WHICH

THE

USE

IS NOT

OR RELIABILITY
SUPPLIED BY

DEC.

43 002126

BGNMOD

GLBEQAT

65 002126

EQUALS

000000

000004

4«8

<0
51

54
55
56
57

59
o?

65
66
67
68
69
70

OFFSETS

:BUS

PRIOR

;PRIOR]TY

000002

VECT

000006
000010

TYPDR=6
DRSB
=10

000012

FOR

HARDWARE

000000
000002
000004
000006
000010
000012

:
MISwl
LOLIM
HILIM
HEAD
ERLIM
DCLIM

OFFSET
-0
=2
=4

00000}
000002
000004
000010
000020
010000

;
ALLCYL
ALLSEC
DRSELT
HDALIGN
AUTO0SZ
HEADLM

BIT ASSIGNMENT
=BI1T100
=BI1101

040000

LOCYL

020000

HICYL

FOR SOF TWARE
’

=10
=12

=B110¢
=B]103
=Bl104
=BIT1?2
=B1113
BI114

ADDRESS

sDRIVE SELECTY BIT
; CONTROLLER TYPE

=12

P-TABLE

;VECTOR ADDRESS

(NT

(¥
63
64

(SR

P-TABLE
: SOF TWARE PARAMETERS SWITCHES
;CYLINDER LOWER LIM]T
:CYLINDER HIGH LIMIT

;SELECTED HEAD FOR RUNNING TES:S

;ERROR LIMIT
;DATA COMPARE ERROR LIMIT
FOR SOF TWARE P-TABLE SWITCHES
sUSE ALL CYLINDERS
sUSE ALL SECTORS

JEXECUTE DRIVE SELECT TEST
SEXECUTE HEAD ALIGNMENT TEST
;AUTO SIZE FOR DRIVE=-DROP IF NO RESPONSE
JHEAD LIMIT SPECIFIED FLAG
sHL LIMIT SPECIFLIED FLAG
L0 LIMIT

SPECIFILED

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:14:22 PAGE

2-?

SEQ 0045

COMPOP
HDRZMP
DATACMP
CYLUP
ULOAD

INOUTS
OUTINS

FOLWRT
REVSKS
FWDSKS

REVSKO
FWDSKO

020000

BADADD
SEEKOP
RORWOP

100000

MDR4GO

040000

003760

RELDWIT

MQUALS

000001
000002
000004
000010

TOSLOW
NOIRPT

000000
000002

RLCS
RLBA
RLDA
RLMP

ol
el
e
il
il
el
e

hohhnhn
W

—

R
B 1
B 101
B 102
8 103

0
2
4

NXMERR

DLTERR
HNFERR
DCKERR

HCRCERR

OPlERR
DSMSK
CRDYMSK

INTEBL

[
TR

4 0000

T I

DRVERR

1 00000

2 0000
1 0000
1 0000
A 000
4 000
2 000

040000
020000
010000
010000
004000
004000
002000
001400
000200
000100

BGISTER BIT

100000

RLCSR
ANYERR

s SEFK

STATUS

;READ HEADER
;WRITE DATA
JREAD

DATA

JREAD DATA, IGNORE HEADERS
:NO OPERATION

;MESSAGE QUALIFIER BITS

0060000

sWRITE CHECK
;OET

ER A TION FLAGS
77 7
;COMPOSITE OPERATION FLAGS
101
;sHEADER COMPARE OPERATION
17 0 0
;DATA COMPARE OPERATION
11 0 2
;CYCLE UP OPERATION
11 0 3
:UNLOAD OPERATION
I 04
: IN=OUT SEEX OPERATION
I05
;0UT=-IN SEEX OPERATION
I 06
;FOLLOWING WRITE OPERATION
;REV SEEK SEQ (ADJ INTERFERENCE)
17 0 7
;FWD SEEK SEQ (ADJ INTERFERENCE)
17 0 g
I0
;REV SEEX SEQ (OVERWRITE)
17 | 0
;FWD SEEXK SEQ (OVERWRITE)
11 1 1
;BAD DISK ADDRESS
I12
:SEEX OPERAT]ON
17 | 3
;READ OR WRITE OPERATION
11 1 4
;RELOAD WAIT
17 1 5
;40 HEADER OPERAT]ON
ut ] N S!INOUTS!FOLWRT!REVSKS!FWDSKS'REVSKO!FWDSKO

000004
000006

(ONHNG
NOCLR

10
12
14
16

INTERVENTION TESTS

LU
T
L
O
O L T T
R TR TR TR TR T R e )
OMDDLBDDODDAHODDODDOD®
VD

RDNOHR
NOOP

02
04
06

T I

W= O
NGNS
NO VNS W= DO

NIPORNSRURNUNORUND
et b et b et b et

90
91
92
93
94
95
96
97
98
99
100
101
102
103
104

007777
000002
000001
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000

RDHEAD
WIDATA
RDDATA

SEXECUTE MANUAL

UBSYSTEM FUNCTIONS

80
81
82
83
84
85
86
87
88
89

(KDATA
GTSTAT
SEEK

77
78
79

000102
006104
000106
000119
000112
000114
000116
000100

=BIT1S

1 400
2 00
1 00

MITEST

74
75

100000

71
72
73

;OPERATION TOOK TO LONG
sNO INTERRUPT FROM OPERATION

;CONTROLLER HUNG
;BAD CONTROLLER CLEAR

:CONTROL AND STATUS REGISTER
:BUS ADDRESS REGISTER
:DISK ADDRESS REGISTER
;MULT]-PURPOSE REGISTER
DEFINITIONS - CONTROL

STATUS REGISTER

:CONTROL AND STATUS REGISTER

;ANY ERROR BI1
;:DRIVE ERROR BIT
;NON=EXISTANT MEMORY ERROR
;DATA LATE ERROR
;HEADER NOT FOUND ERROR
;DATA (HECK ERROR
;HEADER (HECK ERROR
;OPERATION INCOMPLETE ERROR
;ORIVE SELECT MASK
. CONTROLLER READY MASK
; INTERRUPT ENABLE MASK

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=79

19:14:22 PAGE

2-3

SEQ 0046

128
}gg

000060
000001

BAMSK
=60
DRDYMSK -1

132

000077

SAMSK

;BUS ADDRESS UPPER MASK
;:DRIVE READY MASK

;

000100

HSMSK

=100

135
136

000001

;
MBSETO

:gg

000020

HDSEL

=20

}gz

137

000004

140
161
}4§

DIRBIT

=77

;SECTOR ADDRESS MASK

;HEAD SELECT MASK

;:DIRECTION BIT

;HEAD SELECT BI7

600003
000010

;
GETSTAT
DRSET

DEFINITIONS = DISK ADDRESS FOR GET
:GET STATUL. SETUP
:DRIVE RESET MASK

017777

:
WCMSK

WCRNG

DEFINITIONS - MP FOR DATA XFER
;WORD COUNT MASK
;WORD COUNT RANGE MASK

000077

;
HDSEC

DEFINITIONS - MP FOR READ MEADER
:SECTOR MASK

;
STAMSK
BHSTAT
HOSTAT
COSTAT
HSSTAT
DSESTAT
VCSTAT
oWGESTAT
SPDSTAT
STOSTAT
WLSTAT
HCESTAT
WDESTAT

DEFINITIONS - MP FOR GET
;STATE MASK

STATUS

144
145
}a?

160000

148
149

}2?

000100

152
153
154
155
156
157
158
159
160
161
162
163
164
}os

000007
000010
000020

000040
000100

000400
001000
002000
004000
010000

020000
060000
100000

HDHMSEL

=100

;HEAD SELECT MASK

STATUS

;BRUSH HOME STATUS
;HEADS OUT STATUS

;COVER OPEN STATUS
;HEAD SELECT STATUS

:DRIVE SELECT ERROR STATUS
;VOLUME CHECK STATUS
;WRITE GATE ERROR STATUS
:SPIN ERROR STATUS
;SEEK TIMEOUT ERROR STATUS

;WRITE LOCK STATUS
;HEAD CURRENT ERROR STATUS
:WRITE DATA ERROR STATUS

167 002126

ENDMOD

}og 002126
6

176
171
172
173
174
175
176
177
178
179
180
181
182
183
186

002126
002130
002132
002134
002136
002140
002142
002144
002146

002150
002152
002154
002156
002160

000000
005163
005207
005134
005153
005175
005142
005272
005221

005240
005337
005326
005370
005347

BGNMOD

GLBDAT

;
OPMSGS:

TABLE OF OPERATION MESSAGES
.WORD
O
;FILLER
.WORD
MWRCHK
;MESSAGE
.WORD
MGTSTA
;
.WORD
MSEEK
;
.WORD
MREADH
:
.WORD
MWRITE
;
.WORD
MREAD
;
.WORD
MWRSET
;
.WORD
MDAT(P
:
.WORD
MHDRCP
:
.WORD
MCYLUP
;
.WORD
MULOAD
;
.WORD
MINOUT
;
.WORD
MQUTIN
;

FGR WRITE CHECK
GET STATUS
SEEK
READ HEADER
WRITE DATA
READ DATA
WITH RESET
WITH DATA COMPARE

WITH HEADER COMPARE
LOAD HEADS
(INLOAD HEADS
IN-QUT SEQ
OuT=IN SEQ

_— -]

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=79

19:14:22

PAGE

2-4

SEQ 0047
185
186
187
188
189
190
191

002162
002164
002166
002170
002172
002174
002176
192 002200

193 002202
194 002204
195 002206

196
197
198
199

002210
002212
002214
002216

Sg? 002220

202
203 002222
204 002224
205 002226
206 002230
207 002232
208 002234
209 002236
210 002240
211 002242
212 002244
213 002246
214 002250
215 002252
216 002254
217 002256
g}g 002260
220
221

222
223
224
225
226
227
228
229
Sg?

002262

002264
002266
002270
002272
002274
002276
002300
002302
002304

232
233
234 002306

235
236
237
238
239
240
241

002310
002312
002314
002316
002320
002322
002324

005413
005435
005470
005557
005523
005613
005256
000000

000000
000000
000000

000000
(000000
000000
000000

000000

010024
010135
010450
010422
010405
010375
010466
000000
010360
010342
000000
010324
010271
010307
000000
010241

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

T.DRIVE:
JJJ:
.WORD
HLMTW:
_WORD
CLRBYT: .WORD

MFOLWRT
MREVSK
MFWDSK
MRESKO
MFWSXO
MBADAD
M4OHDR

.WORD
0
0
O

;
:
:
:

:
:
;

FWD SEEK
BAD DISK ADD FOR WRITE
40 HEADER OPERATION

NXTHL:
GBND:
CAMSK:
DIRMSk:

.WORD
LWORD
.WORD
.WORD

:
RESTBL:

TABLE OF RESULT NAME MESSAGE ADDRESSES
.WORD
MCERR
;CONTROLLER ERROR
.WORD
MDRERR
;DRIVE ERROR
.WORD
MNEERR
;NON-EXISTANT MEMORY ERROR
.WORD
MFLERR
;HEADER NOT FOUND-DATA LATE
.WORD
MHDERR
;HEADER OR DATA ERROR
.WORD
MOPERR
;OPERATION INCOMPLETE
.WORD
MNDRSY
:NO DRIVE STATUS AVAILABLE
.WORD
0
.WORD
MWDERR
;WRITE DATA ERROR
.WORD
MHCERR
;HEAD CURRENT ERROR
.WORD
0
.WORD
MSTERR
;SEEK TIMEOUT ERROR
.WORD
MSPERR
;SPINDLE ERROR
.WORD
MWGERR
;WRITE GATE ERROR
.WORD
0
.WORD
MDSERR
;DRIVE SELECT ERROR

PATTERN TABLE

HDCYL:

.WORD

0
0
O
0

004656

PATTBL:

000000
000000
000000
000000
000000
000000
000000
000000

:
SUBROUTINE CALLING STA(CK
SUBSTK: .WORD
O
:STACK
.WORD
0
.WORD
O
.WORD
O
WORD
O
.WORD
0
.WORD
0
.WORD
O

004660
004720
004760
005020
005026
005066
005070
005130
005132

FOLLOWING WRITE
REV SEEK
FWD SEEK
REV SEEK

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

PAT1

PAT?2
PAT3
PAlT4
PATS
PAT6
PAT?
PATS8
PATSO
PATI10

1S 12 WORDS LONG

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB-79 19:14:22 PAGE

2-5

SEQ 0048

000000
000000

000004
000014
000022
000030
000042
000054
000066
000104
000122
000400
000777

0
0

;RLOY TABLE OF
T25TBL: .WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

CYLINDERS

;RLO2 TABLE OF

CYLINDERS

T25TB2:

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

.WORD

T3318L:

.BLKW

16.

002506
00250/
002510
002511
002512

CYLTBL:

.BYTE
.BYTE

— i i e d ) Veolo T NENY. SV IV P FUTV, V], U
T N1,V
N —=OO0O~ —_ LNV
MTONOWNNO
.
SIOWNODNUe
s ¢ « o o 2 o o o 5 o o @

NN
N
NN = e O
NO—=Sf
O =W NO
—

002513
002514
002515
002516
002517
002520
002521
002522
002523
002524
002525
002526
002527
002530
002531
002532

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
LBYTE

USED

511,

002406
002440

.BLKW

TO BE

&
12.
18.
24,
34,
44,
56,
68.
82.
256.

TABLE TO BE USED IN TEST 33 AND 34
CYLINDERS TO BE USED IN THE TEST,

1BT1:

DIFFERENCES

SIN TEST 25

.WORD
.WORD

;TABLE

000002
000006
000011
000014
000021
000026
000033
000042
000051
000200
000377

LWORD
.WORD

N =N
— =2 OO
NNRY = B
N0 NN
SODe
o o s e @

262 002326
243 002330
264
265
246 002332
PLY4 002334
268 002336
249 002340
250 002342
251 00234¢
252 002346
253 002350
256 002352
255 002354
256 002356
257
258
259 002360
260 002362
261 002364
262 002366
263 002370
264 002372
265 002374
266 002376
267 002400
268 0024602
002404

TO BUILD AND

STORE

16.

:TABLE OF DEFAULT CYLINDERS

THE

)

@
e
9w
*
s
e
e
&
&
6
e
»
s
&
6
e
®
&
&
®
.
.

TV TV IV T, VY, 01,7,V . ¥7,. VY, V1. VY U7, ¥

NN =t a2 D NNV
NN
= O
SO NNVNNO =IO VNOMNWLWNO

000
000401
000406
000415
000423
000432
000445
000454
000463
000471
000500
000507
000514
000523
000532
000540
000545
000553
000560
000567
000576
000605
000612
000621
000627
000634
000643
000651
000660
000667
000674
000702
000711
000716
000725
000733
000742

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
<WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

NN A9 = 1,97, V7 VY VY, UY, U], VY, VY , P
i
G
iy
OV
~NO O VN
NS
NN —=OOV0000
~N~NO N
NN
OWPR
N O NN
OWN=SF YOS NNWVNO S NO
NN
O S

002560
321 002562
322 002564
323 002566
3264 002570
325 002572
326 002574
327 002576
328 002600
329 002602
330 002604
331 002606
332 002610
333 002612
334 002614
315 002616
336 002620
337 002622
338 002624
339 002626
340 002630
341 002632
342 002634
343 002636
344 002640
345 002642
346 002644
347 002646
348 002650
349 002652
350 002654
351 002656
352 002660
353 002662
354 002664
355 002666

343

9-FEB-79 19:14:22 PAGE 2-6

002552
002553
002554
002555
002556
002557

N~y
— N

AV IV LV LV

VIV

e el ol e

OV~
WV
N —

vV IV 1V Y]

308 002544
309 002545
310 002546
002547
002550
002551

(VN

367 002543

299 002533
300 002534
301 002535
302 002536
303 002537
306 002540
305 0025¢41
3 002562

PN md

MACRO v03.01

ROUTINES

N AN NN

ASSEMBLY

SEQ 0049

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:14:22 PAGE

2-7

SEQ 0050

356 002670
357 002672
358 002674

359 002676

OPFLAG:
DONE:
HADONE
:
ERHEAD:

OPERATIONAL FLAGS
.WORD
-WORD
.WORD
.WORD
OOOOOODOOOO

000000
000000
000000

RLBAS:
RLVEC:
RLDRv:

.WORD
.WORD
.WORD

OO0

:RL11 BASE ADDRESS
:RL11 VECTOR ADDRESS
;DRIVE NUMBER UNDER TEST

000000
000000
000000
000000

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

OO0O0O0O0O0O

;CONTROLLER REGISTER STORAGE
;BEFORE OPERATION

000000
000000
000000

.CS:
.BA:
.DA:
.MP:
.CS:
.BA:
DA:
.MP:
HDWRD1:
HDWRD2:
HDWRD3:

.WORD
.WORD
.WORD

OO0

; SUBROUTINE STACK INDEX POINTER

WRTSWI]
:
TBLSTR:

;HEADER WORD STORAGE

000000

T.STAT:

.WORD

;DRIVE STATE STORAGE

002764
002766
002770
002772
002774

000000
000000
000000
000000
000000

RESPARM:

002776

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

DRVCNT:
DIFAUG:
oLDCyL:

NEWCYL:

CURCYL:
DESDIF:
DESSGN:
DESHD:
DESSEC:
TEMPO:
TEMP1:
TEMP?2:
TEMP3:
TEMP4:

.WORD

.WORD
.WORD
.WORD
.WORD

OODO

003000
003002
003004
003006
003010
003012
003014
003016
003020
003022
003024
003026
003030

000000
000000

ERRSW]:
BSFLAG:

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

COOO0OOOOOOOOOOOO

390
391 002762
392

000000

MORECE:

;OPERATION FLAGS
;OPERATION COMPLETE

FLAG

;HEAD ALIGNMENT DCNE FLAG

;ADDRESS 0Of

ERROR HEADER

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

:TABLE

SWIT(CH

STORAGE

:CONTROLLER REGISTFR
:
AFTER OPERATION

STORAGE

—

378

400
401
402
403
404
405
406
407
408
409
410
411
412

SSINDX:

502.
508.
508.
0
0

.WORD
.WORD
.WORD
.WORD
-WORD

379 002736
380 002740
381 002742
382 002744
383 002746
384 002750
385 002752
386 002754
387 002754
388 002756
389 002760

393
394
395
396
397
398
399

000000
000000
000000
000000
000000
000000
000000
000000
000000

489.
496.

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

360 002700
361 002702
362 002704
363
364
365 002706
366 002710
367 002712
368 002714
369 002716
370 002720
371 002722
372 002724
373 002726
374
375 002730
376 002732
377 002734

000751
000760
000766
000774
000774
000000
0000G0

.WORD

.WORD
.WORD

;PARAM.BLOCK FOR REASON REPORT

:DRIVE COUNT FOR DRIVES UNDER TEST
;DIFFERENCE AUGMENT FOR SEEK
;0OLD CYLINDER
¢NEW CYLINDER
; CURRENT CYLINDER
;DESIRED DIFFERENCE
;DESIRED SIGN

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

STORAGE

ASSEMBLY

ROUTINES

413 003032
6146 003034
415 003036
416 003040
449 003042
450
.
651
652 003044
453 003046
456 003050
455 003052
656 003252
457 003254
458 003256
659 003257
460 003260
461 003262
462
463
464 003264
465
466 003266
467 003462
468
469 003656
470 004256
471
472 004656
473 004660
474 004662
475 004664
476 004666
477 004670
478 004672
479 004674
480 004676

«81

482
483
484
485
486
487
488
489
490
491
492
493
494
495

496
497
498
499
500
501

000000
000000
000000
000000
000004
000000
000000
000000

MACRO v03.01 9-FEB-79 19:14:22 PAGE 2-8
TEMPS:
TEMP6:

TEMP7:
TEMPS:

ERRVEC:
PASCNT

0
4

MISCELLANEOUS COUNTERS

WORD

: TEMPORARY
: TEMPORARY

STORAGE
STORAGE

: TEMPORARY

STORAGE

: TEMPORARY STORAGE
;ERROR VECTOR USED WHEN AUTO SIZING
:PASS COUNTER (LOCAL TO A TEST)
:A COUNTER (LOCAL TO A TEST)

:ERROR POINTER
;ERROR COUNTER FOR PROGRAM
:PASS NUMBER FOR PROGRAM
:COUNTER FOR PARAMETER SET NUMBER IN USE
:LOCAL ERROR COUNTER
;INHIBIT ERROR COUNTING FLAG
;HARDWARE TRAP OCCURANCE
:POWER FAILURE OCCURANCE

000000
000000
000
000
000000
000000

NOERCT:
TRPFLG:
PWRFLG:

MORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

000000

BSFVAL:

BAD SECT8R TABLES AND POINTERS
.WORD
;BAD SECTORS FILES VALID FLAG

SBSFIL:
FBSFIL:

.BLKW
.BLKW

76
76

: SOF TWARE BAD SECTOR FILE
;FACTORY BAD SECTOR FILE

IBUFF:
:
OBUFF

.BLkw
.BLkWw

200
200

: INPUT BUFFER
;OUTPUT BUFFER

PATY:
PAT?:

.WORD
.WORD
LWORD
.WORD
LWORD
.WORD

O
177772
177777
177777
052525
052525

;PATTERN 1

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

000003
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777

PASNUM:

PSETNM:
LOCERR:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
WORD
LMORD
LWORD

004702
004704
004706
004710
004712
004714
004716

004734
004730
004740
004742
004744
004746

.WORD
.WORD

0
0
O

COUNT:
.WORD
0
ERRPOINT: .WORD 0
ERRCNT: BLKW
64.

004700

004720
004722
004724
004726
004730
004732

.MORD
.WORD
CWORD

SEQ 0051

000003
000000
000000
177777
177777
177777
000000
000000
177777

177777
000000
177777

PAT3:

0
0
0
0
O
O

052525
177777
177777
052525
052525
177777
052525
177252
177252
172765
172765

(ALL ZEROS)

ASSEMBLY ROUTINES

177777

PAT6:

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

042213
177777

529 005030
005032
005034
005036
005040
005042
005044
005046
005050
005052
005054
005056
005060
005062
005064

042213

545 005066

177777

PAT7:

.WORD

547 005070

045513
122645
151322
064551
132264
055132

PATS:

.WORD
.WORD
.WORD

026455

113226
0645513
122645
151322

064551

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD

[ASAVLAI NIV I WAV, ] V] VIV IV, ], U] VI VIV IV ] ¥
NN

AV,

[ANEC LT S LV L SRV 1, ST, UV TV, 1 V] V] SIV_ IV 1 ¥

(adaS AV AL N RV ) SRV LV, [ ST NIV W [V 1 ST NIV ]

.WORD
.WORD
.WORD

=S, O = OO =m0t
e OO

PATS:

el AN AV, T SRV, ] NV LV ] V] NIV, IV IV T N1, VIV |
[ASAV LI WAV, ], WiV, ] ,V] VIV 1V ], V1 VT IV IV 1 ¥

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

528 005026
530
531
532
533
534
535
536
537
538
539
560
561
562
543

177777

000000

AV AdA A Al VAV, ] V] NIV, 1V, ], V1, V1,1V IV 1 V]

524 605020
525 005022
526 005024

000000

PATSG:

NN
NN

= OV

b cnd o ed

NO N

AV ALV IV IV ]V TV, 1V

NN —

004770
004772
004774
004776
005000
005002
005004
005004
005010
005012
005014
522 005016

.WORD
.WORD
.WORD
.WORD

177777

(VA

004760
004762
004764
004766

SEQ 0052

006000
—'O—‘O-‘O-‘-‘QO—‘—‘—‘OOO

004750
004752
004754
004756

A
A
A 1 S VLIV, T N T VT, STV TV T V)
AN AAla AP A1 VAV AV 1 N1 V1V, LV JV 1 N7 N1V ]

502
503
506
505
506
507
508
509
510

MACRO v03.01 9-FEB-79 19:14:22 PAGE 2-9

ASSEMBLY ROUTINES

MACRO v03.01 9-FEB=79 19:14:22 PAGE 2-10

559 005120
560 005122
561 005124
22% 005126

132264
055132
026455
113226

ggg 005130

125252

229 005132

155555

568 00513¢
569
573 005134

574
575
576
577
578
579
580
581
582
583
584
585
586
587
588

123
122
122
127
127
107
127
127
106
127
117
122
125
114
106

105
104
104
122
122
105
m
1
117
m
120
105
116
104
117

598 005711
599 005732
600 005743

124
102
104
116

117
125
122

601 005750
602 005767
603 006027
604 006034
605 006041
606 006046
607 006053
608 006066
609 006101
610 006107
611 006126

612 006146
613 006201
614 006215
615 006235
616 006256
617 006273
619 006301

132264
055132
026455
113226

PAT9:

.WORD

125252

PAT10:

.WORD

155555

ENDMOD

005134
005142
005153
005163
005175
005207
005221
005240
005256
005272
005306
005315
005326
005337
005347

589 005370
590 005413
591 005435
592 005470
593 005523
594 005557
595 005633
596 005634
597 005664

LWORD
.WORD
LMWORD
LMWORD

106
106
101
101
123
127
117
103
102

104
122

122
122
122
117
117
127

111
116
116
103
105
126
125
040
115

105
040
040
124
126
126
124
126

122
124
105
123
114
0640
114

117
117
104
104
113
113
116
101
101

114
114
112
112
0640
040
040
116
104

117
122
114
114
114
114
120
120
117
116
117

040
126
103
102
104
115
040
040
122
126
0640

117
116
122
117
116
124
101

0640
123
126

040
124
122
114
130
105
116

BGNMOD

MSEEK:
MREAD:
MREADH:
MWRCHK:
MURITE:
MGISTA:
MDATCP:
MHDRCP:
MLOMDR:
MWRSET:
MOPER:
MRSLT:
MULOAD:
MCYLUP:
MOUTIN:

GLBTXT

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

/SEEK /
/RD DATA /
/RD HDR /
/WRT CHECK/
/WRY DATA /
/GEY STAY /
/WITH DATA (MP /
/WITH HDR (MP /
/FOR &0 HDRS/
/WITH RESET /
/OPER: /
/RESULT:
/
/UNLD DRv/
/LD DRv /
/FOL O TO CC SEEK/

MTMBS:
BASADD:
DRVNAM:
DRVNAV:

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

/70 MANY BAD SEC /
/BUS ADD=/
/DRv=/
/NO DRv FOR T1ST/

BANAM:
DANAM:
MPNAM:
LABI1:
LABZ2:
MWORD:

_ASCIZ
_ASCIZ
_ASCIZ
LASCIZ
LASCIZ
LASCIZ

MINOUT: _ASCIZ
MFOLWRT:
MREVSK: .ASCIZ
MFWDSK: .ASCIZ
MFWSKO: .ASCIZ
MRESKO: .ASCIZ
MBADAD: .ASCIZ
MBADSF: .ASCIZ
MFMTER: .ASC1Z

NOPWR:
CSNAM:

.ASC1Z
LASCIZ

MTOSLOW:
MDRRES: .ASCIZ
MNOINT: .ASCIZ
MCONHKNG:
MNOCLR: .ASCIZ
VCNRST: .ASCIZ
UNXERR: .ASCIZ
TSTLAB: .ASCIZ
MISTST: .ASCIZ

/FfOL 255 TO CC SEEK/
LASC:2 /FOL WRT (NO SEEK)/
/ADJ CYL WRTIN AFTER REV SK/
/ADJ CYL WRTTIN AFTER FWD SK/
/SK FWD,WRT - SK REV,OVERWRT/
/SK REV,WRT = SK FWD,OVERWRT/
/ON BAD SEC FILES/
/CAN'T GET BAD SEC FILES/
/BAD SEC FILE FMT ERR/

/DRv DID NOT REC'R FROM PWR FA]L/
/RLCS/

/RLBA/
/RLDA/
/RLMP/
/0P INIT =/
/0P DONE = /
/WORD /

JASCIZ /INTIRPT TC LATE/
/NO DRV RESPONSE/
/NO INTRPT ON CMND COMP.ETE/
JASCIZ /ONTLR HUNG /
/ERR DID NOT CLR/
/vOL CHK NOT RSET/
/UNXPCTED ERR/
/ TEST/
/WMAN INTERVENT STAT/

SEQ 0053

ASSEMBLY

ROUTINES

620 006324
621 006336
622 006372
623 006423
624 006436
625 006451
626 006461
627 00€501
628 006513
629 006527
630 006543
631 006553
632 006553

MACRO v03.01

9-FEB-79

123
123
106
m
104
104
1¢3
11Q
122
122
127

126
120
101
116
122
12¢
105
104
104
104
122

101
116
111
111
126
126
105
060
0640
0640
126

104

106

19:14:22 PAGE

NSTACHG:
SPDERR: .ASCIZ
GSTERY: .ASCIZ
INITST: _ASCIZ
TO5SERR: .ASCIZ
TO9ERR: .ASCIZ
TI0ERR: .ASCIZ
TI12ERR: .ASCIZ
TI3ERR: .ASCIZ
TI14ERR:
_ASCIZ
T16ERR:
,ASCIZ
P2TO1E:
P2T02E: .ASCIZ

2-11

SEQ 0054

LASCIZ
/STATE CHG/
/SPNDL TIMEOUT FAILED TO SET/
/FAIL FORCING DRV SEL ERR/
/INIT STATE/
/DRvV SELECT/
/DRvV RDY/
/SEEK SGN SWITCH/
/HD SWITCH/
/RD HDR (P1)/
/RD HDR (P2)/
/WRT L{K/
/DIFF

SEEK/

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:14:22

PAGE

SEQ 0055
8 006572

104

123

10 006631
11 006715

103
110

131
105

114
101

13
164
15
16
17
18
19
20

007052
007077
007122
007200
007232
007246
0607310
007343

101
127
103
103
120
120
120
122

102
101
110
114
122
122
122
105

117
123
113
123
105
105
105
115

22
23
24
26

0076411
007426
007474
007525

M
mm
122
122

116
116
120
105

040
123
114
123

12 007300

21 007372

27
28
29
30
31
32
33
34
35
36

007544
007550
007560
007573
007610
007616
007623
007627
007634
007641

124

1RA)

117
117
125
123
104
123
110
123
103
106

133

116

OPROO3:
OPR1:

OPR2:
OPR3:
OPRS:
OPR6:
OPR7:

OPR8:

OPR9:
OPR'0:
OPR11:
OPR12:

/HDS FAILED TO MOVE

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

.ASCIZ
.ASCIZ
.ASCIZ
JASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ

/ABOVE CONDITIONS MET/
/WAS LOAD DEPRESSED/
/CHK DRV IS UNLDED, COVER OPN, AND WRTE
/CLSE COVER & RST WRT (K /
/PRESS LOAD /
/PRESS LOAD & WAIT FOR LOAD LIGHT /
/PRESS LOAD £ WAIT FOR RDY /
/REMOVE ADD PLGS EXCPT /

LASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

/IN ALL DRvVS /
/INSUFFICIENT DRVS FOR DRV SEL ERR T1ST/
/RPLCE ADD PLGS AS BEFORE/
/RESET WRT L(K /

.ASCIZ

JASCIZ

/TYPE '"CTL C'* & "CONT'* 70 CONTINUE TESTING/

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/ON /
/ON DRv /
/UNDER TEST/
/SET WRT LCK /
/DIFF /

060
103
114
117
131

HOWD:
SECWD:
CyLwb:
FRMWD:
BYPSNM:

LASCIZ
.ASCIZ
LASCIZ
.ASCIZ
_ASCIZ

/MDD /
/SEC /
/CYyL /
/FROM /
/ BYPASSED /

126

/TOTAL CMP ERRS:

040

4; 007772

102
124

117

43
44 010013
45 010024

104
103

47 010046
4«8 010057
49 010073

104
110
104

117
122
101

116

SGNWD:

_ASCIZ

/SGN /

125
126
104

SEQMES:
STAMES:
BSNSTR:

.ASCIZ /ROUTINE TRACE SEQ:/
.ASCIZ
/DRv STAV/
.ASCIZ
/BAD SEC FILES NOTV STRD. ALL SEC ASSUMED OK./

TCERR:

.ASCIZ

122
17

126
116

.
MDRDY:
MCERR:

RESULT NAMES
_ASCIZ
/DRV RDY /
.ASCIZ
/CONT ERR /

101
104
101

126
122
126

MDCRC:
MHNF:
MDLT:

._ASCIZ
ASCIZ
LASCIZ

45 010036

50
51
53
5¢
55
56
57
58
60
61
62
63
64
65
66
67
68

010105
010135
010146
010160
010171
010204
010217
010230
010241
010256
010271
010307
010324
010342
010360
010375
010405

110

110
104
123
126
103
102
127
110
104
104
123
127
123
110
i27
117
110

104

104
122
105
117
117
122
122
104
122
122
120
122
105
105
122
120
104

122

122
126
116
116
126
125
126
123
126
126
111
124
105
101
126
122
122

MHCRC:

MMFCRC:
MDRERR:
MHSTA:
MvOL(CK:
MCOSTA:
MBHSTA:
MWLSTA:
MHOSTA:
MDSERR:
MDRVST:
MSPERR:
MWGERR:
MSTERR:
MHCERR:
MWDERR:
MOPERR:
MHDERR:

LCKED /

/INSRT ADD PLG /

OPRT1A:
OPRIB:
UNDTST:
OPROO&:
DIFWD:

107

IN 10 TRIES/

.ASCIZ
_ASCIZ

040
040
106
124
106

37 007647

122
104

123

CYLPER:
HAMESY:
HAMES2:
OPR0O02:

.ASCIZ

116
116
116
105
1
104
105
13
122
102

38 007662
39 007705
40 007716

120

HDMOVF:

.ASCIZ

/HDR CRC/

.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ7
.ASCIZ

&HDR NOT FND/HOR CRC/OPIR
/DRV ERR /
/SEL'D MWD /
/VvOL CHK /
/COVER OPN /
/BRUSH HME /
/WRTY LCK /
/HDS OUT /
/DRvV SEL ERR /
/DRvV STATE /
/SPIN TIMEQUT /
/WRT GAT ERR /
/SEEKX TIMEOUT /
/HEAD CUR ERR /
/WRT DAY ERR /
/OPR=-INC/
&HDR/DAY ERR §

/DATA CRC/
/HDR NOT FND/
/DATA LATE/

ASSEMBLY ROUTINES

MACRO v03.0%

9-FEB-79

19:14:22 PAGE

3-1

SEQ 0056
69 010422
70 010450
71 010461
72 010466

110
116
103
103

106
055
131
103

122
130
116
116

MFLERR:
MNEERR:
MCYLOC:
MNDRST:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

&HDR NOT FND/DAT LATE 8
/N-X-MEM /

74 010556

106

101

111

MRLFAL:

.ASCIZ

/FAIL

73 01051

125

75 010617
76 010633
77 010673

1c7
040
040

116

113

207

122
117
105

377

124
126
122

80
81 010706
g% 010712

111
040

84
85 010717
86 010724
87 010731

89 010751

;g 010702

88 010741
91
93
94
95
96

010761
011001
011012
011020
011031

gg 011042
99
100
101
102
103
104
105
106

108
109
110
111
112
113
116
115
116
117
118

MUNDEF:

.ASCIZ

/(YL /
/CAN'T GET DRV STAT/

/UNKN DRV STATE-NO RDY,NO ERR,HDS OUT/
T0 RELD HDS AFTER ERR

377

MWRTAB:
MEXERS:
MERRS:

BELL:

.ASCIZ
.ASCIZ
.ASCIZ

123
123

C40
102

.
RESE3:
RESE&4:

RESULY SETTINGS
LASCIZ
/IS /
.ASCIZ
/ SB /

040
040
123

1
117
126

116
106
101

:
RESES:
RESE6:
STATE2:

RESULT CONDITIONS
.ASCIZ
/7 IN/
.ASCIZ
/ OF /
.ASCIZ
/STATE 2/

123

124

101

STATES:

.ASCIZ

123

101

STATE3:

<207><377><377>

.ASCIZ

/STATE 3/

/STATE 5/

065

105
123
060
131
101

040

105
126
060
103
126

C(DRDY:
C10MS:
(C500MS:
CCYLUP:
CAFDT:

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

B&SEEK W/O MOTIONE
/1ST 3 MS/
/500MS/
/CYCLE UP/
/DATA XFR/

011050
011077
011
011142
011147
011156
011161
011164

045
045
045
045
045
045
045
045

116
116
116
124
116
126
116
116

045
045
0645
045
0645
000
000
045

FMTOP1:
FMTOP2:
FMTOP3:
FMT1:
FMT1.1:
FMI2:
FMT3:
FMT4:

,ASCIZ
.ASCIZ
.ASCIZ
CASCIZ
_ASCIZ
LASCIZ
LASCIZ
LASCIZ

/XNXTANXTXTZ06XSXTX01XN/
/ANXTXO1XS1XTXO1XN/
/ANXTXO1XS1XTXTAN/
/RTXT/
/XNXTXT/
/%1/
/XN/
/AINKTXTAN/

011215
011257
011327
011361
011366
011374
011402
011446
011500
011534
011545

045
045
045
045
045
045
045
045
045
045
045

116
116
116
116
124
124
116
116
116
116
123

045
045
045
045
0645
065
045
045
0645
045
061

FMT6:
FMT7:
FMT8:
FMI9:
FMT11:
FMT12:
FMT13:
FMT14:
FMT15:
FMT16:
FMT17:

CASCIZ
LASCIZ
LASCIZ
LASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
LASCIZ
_ASCIZ
LASCIZ
LASCIZ

/ANXSTIRTRSAXTASAXTXSLXTXSLXTYS2RT/
/XNXTR06XS2X06XS2%06%XS2X06XS3X03%S2%01
AN/
/ANATX06XS2%06%52%06%52%06/
/XINXT/
/XT1%01/
/%7%03/
/ANXS11XTRO3XS1XTRXO3XSIXTXO1XS1%7%01/
/AINXTXTXD3XSIXTX06XS1XTX06/
/ANXSTIXTXD3XAS1XTR06XS1XT%06/
/XNXSS5%06/
/XSTOXTANXS11X06XN/

120 011621
121 011656
122 011706

045
045
045

124
126
124

045
045
0645

FMTI9:
FMT20:
FMT21:

LASCIZ
LASCIZ
LASCIZ

/XTXSAADOXSLADO6XSLXDOXSLXDOXN/
/XTXS2XD6XS14XD6XSAXDOXIN/
/XTXS12XD6XS14XDOAN/

107 011175

119 011567

123 011731
124 011765
125 012001

126 012006
127 012016

123
061
065
103
104

1264

ASCIZ

C(LEAR/

/WRT ABORTED/
/ OVER ERR LIMIT - UNIT DROPPED /
/ ERROR/

045

045
045

045

045
045

116

116
124
116

116
116

123

045

0645

045
0645
0645
0645
045

(5SEC:

FMIS5:

FMT18:

FMT22:
FMT23:

FMT24:
FMT25:
FMI26:

.ASCIZ

ASCIZ

LASCIZ

LASCIZ
_ASCIZ

ASCIZ

LASCIZ
LASCIZ

/5 SEC/

/AINXTRO6XS1RTR0O1/

/ANXSISATRSSXTRSARTASSATAN/

/ANXSTIXTXO3RASIXTAOIRSIATRO2/
/XTXTATRO1XN/
/XNXT/

/XNXD2XT/
/ANXSIXTADAXTATXDIAN/

ASSEMBLY

ROUTINES

128 012042
129 012061

MACRO v03.01

116
116

3-2

SEQ 0057

_ASCIZ
_ASCIZ

/XINXTXD3XTXID3XIN/
/7XINXTRTIXT/

136 012072
137

BGNMOD
;

GLBERR
ERK1

R3 POINTS TO RESULT MESSAGE

140

;

ERR?

R3 POINTS TO RESULT NAME

143
}22

;
;

ERR3

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

146
147

;
;
;

ERRG

R3 POINTS
R4 POINTS

150
151

;
;

ERRS

154

;

ERRG

}g?

;

0645
045

19:14:22 PAGE

FMT27:
FMT28:

}gg 012072

045
045

9-FEB-79

ENDMOD

;

}2;

;

}ag

RESULT: (R3)
RESULT:

(R3)

RESULT:

1S 1 SB 0

TO RESULT
TO RESULT

(R3)

NAME
CONDITIONS

SB 0

(R4)

}2%

;

155

;
;
;
;
;

ERR7

163

;

ERRS

165

;

104

;

lb?
16

169
170
171
172
173
174

;
;
:
;

175
176
177
178
179

180
181 012072

182 012072
183 012076

184 012100

185 012106
186 012106
187 012112

188 012116

005277

010146
004737
012721

010321

003257

170744
021604
000001

RESULT

ROUTINE

REPORTS ALL

IS 0 SB 1

(R&)

DETERMINES WHICH ERROR(S)

HEAD POSITIONING ERROR REPORT
NEWCYL

CONTAINS EXPECTED

CYLINDER

CONTAINS BAD CYLINDER
CYLINDER

(HDWRD1)

(NEWCYL)

UTILITY RESULT REPORT

R3 POINTS TO RESULT NAME
R& POINTS TO VALUE 1
RS POINTS TO VALUE 2
RESULT: (R3-NAME) 1S (R4=VALUE

(RS=VALUE

BGNMSG

ERR1
1518
BNE

NOERCT
1%

;TEST IF ERROR COUNTING
:YES = SKIP

1%:

MOV
JSR
MOV

R1,-(SP)
PC,RPTOP
#1,(R1)e

;STORE R1
:REPORT OPERATION
:SET PARAM NUMBER

MOV

SET

(R3)

EPRI0-

INC

ARE

SB 0

DRIVE STATE ERROR REPORT
R3 CONTAINS EXPECTED STATE
T.STAT CONTAINS BAD STATE
RESULT: DRIVE STATE IS (T.STAT)

RESULT:

ERR9

;

;
.
:
;

105737
001002

(R3)

HDWRD1

;

148

RESULT:

RESULT: ""ERROR' 1S 1

158
159
160
16;

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS

COMPARE ERROR REPORT

R3 CONTAINS THE BAD WORD NUMBER
R4 POINTS TO BAD WORD
RS POINTS TO GOOD WORD
RESULT: WORD (R3) IS (R&) SB (RS)

SERRPOINT

R, (R1)+

INHIBITED

:ELSE BUMP ERROR (OUNT

:INSERT MESSAGE ADDRESS POINTER

AND

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB-79

19:14:22 PAGE

3-3

SEQ 0058
189
190
191
192
193

012120
012126
012130
012132
012136

004737
004737
012601
004737

012136
196 012136

10403

195
196
197
198
199

005277
010146
004737
012721

200
201
202
203
204
205
206
207

012140
012140
012144
012146
012152

012156
012160
012164
012166
012172
012176
012200
012204
012204
208 6122064

010321
012721
005021
004737
004737
012601
004737

022372
022600

0153¢¢
ENDMSG
L10000:

021604
000003

022372
02260C
015326

170636

212
215
214
215
216
217
218
219

012214
012220
012224
012226
012230
012234
012240
012244

004737
012721
0103
005021
012721
004737
004737
012600

021604
000003

221

012252

012212

220 012246

012252

010146

004737
104023

223
224
225
226
227
228
229
230
231

005277
010146
004737
012721
010321
012721
005021
010411

232
¢33
234
235
236

012304
012310
012314
012316
012322
012322
012322

C$MSG

ERR?2
INC
MOV
JSR
MOv

dERRPOINT
R1,=-(SP)
PC,RPTIOP
#3,(R1)¢

BGNMSG

ERR3
INC

015326

.BUMP ERROR
;STORE R

COUNT

;REPORT OPERATION
;SET PARAM NUMBER

: INSERT NAME ADD POINTER
;SET IS VALUE
;SET SB VALUE
;REPORT RESULTS
:REPORT REMAINDER
;RESTORE R1
;60 CHECK IF ERROR COUNT EXCEEDED

($MSG

SERRPOINT

:BUMP ERROR COUNT

JSR
MOov
MoV
CLR
MOv
JSR
JSR
MOV
JSR

PC,RPTOP
#3,(R1)e
R3,(R1)¢
(R1)+
M1, (R1)¢
PC,RPTRES
PC,RPTREM
(SP)+ R

:REPORT OPERATION
;SET PARAM NUMBER
: INSEPT NAME ADD POINTER
;SET 1S VALUE
:SET SB VALUE
;REPORT RESULTS
;REPORT REMAINDER
:RESTORE R1

EMT

($MSG

ERR4
INC
MOV
JSR
MOV
MOv
MOV
(LR
MOV

dERRPOINT
R1,=-(SP)
PC,RPTOP
N4, (R1)¢
R3,(R1)+
1, (R1)¢
(R1)+
R4, (R1)

EMI

($MS6

MOv

000001
022372
022600

R3,(R1)+
1, (RY)
(R1)+
PC,RPTRES
PC,RPTREM
(SP)+ R
PC,CKERLM

;REPORT RESULTS
;REPORT REMAINDER
;RESTORE R!
;GO CHECK IF ERROR COUNT EXCEEDED

R1,-(SP)

PC,CKERLM

;STORE

;G0 CHECK

ERROR COUNT EXCEEDED

ENDMSG

222 012252

012254
012254
012260
012262
012266
012272
012274
012300
012302

tEM1

ENDMSG
L10001:
.
EMT

104023

005277

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

MOov
MOV
(LR
JSR
JSR
MOov
JSR

000001

209 012206
210 012206
211

BGNMSG

170704

JSR
JSR
MOv
JSR

004737
004737
012601
004737
104023

L10002:

170570

BGNMSG

021604
000004

000001

022372
022600
015326

ENDMSG
Li0003:

JSR
JSR
MOv
JSR

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

;BUMP ERROR COUNT
: STORE R1
;REPORT OPERATION
:SET PARAM NUMBER
; INSERT NAME ADD POINTER
;SET IS VALUE
;SET SB VALUE
; INSERT ADD OF CONDiTION PCINTER

¢REPORT RESULTS
:REPORT REMAINDER
;RESTORE R?
;60 CHECK JF ERROR COUNT EXCEEDED

SSEMBLY ROUTINES

MACRO v03.01

9-FEB~79 19:14:22 PAGE

3-4

£ %]
o~ ~
oL »

[AV XS],V [o 0

NN~ oo [©BVl
N

F o A
V.
)
o orNoSrNo
No H e
|

A AN LN NN NN AN N NN NN

b
e
i
o
i
it
o
i e
d
el
i
D
i
i
b

021604
000004
000001

022372
022600
015326

L10304:

105737
001002

005277
010146
010346
010446
010546
004737

1706442

021604
000003
000001
003026
002746
177761
000004

000012

032762
001003
012703
000413
016203
010337

000260

113703

002755
177642
002746
001777

104027

113703
000402

062703
013704
042704
050403
032703
001442
032703
001026

BGNMSG

003257

012700

NNNOO o
VNS S Y 1Y Y}
oo &~ SsNOoONONNOD S5 00

ENDMSG

104023

000003
000004
002734
000030

QU LV LV RV LV AV LV SV

BGNMSG

170520

012721
012761
005037
013703
062703
022703
001432
012762
012703
053703
010362
LU RV LV LV 2V N

RN RL N RO
DR ROV
NNV RLRLDRLNL

005277

o0
~0O

rnrnorn
Pl
ol

— ot
O
rNOoOoO

2602

(O RV SV SV

COO0OO0OOOCOOOOOOOO

L
IaSTABN A VT V1 V1,ST,¥1,81,V7,87,V7,57,N1,
VT, VY, V7. VY ¥

SEQ 0059

001000

000006

003026

003027

002000
010000

17%:

ERRS

INC
MOv
JSR
MOv
Mov
(LR
Mov
Mov
JSR
JSR
MoV
JSR

PC,CKERLM

EMT

($MSG

ERRG

1518
BNE
INC
MOV
MOv
Mov
MoV

dERRPOINT
R1,-(SP)
PC,RPTOP
#4,(R1)

;BUMP ERROR (OUNT
;STORE R1
JREPORT OPERATION
:SET PARAM NUMBER

(R1)+
#1,(R1)
R4, (RT)
PC,RPIRES

;SET IS
;SET SB
s INSERT
;REPORT

(SP)+ ,R1

;RESTORE R1

R3I,(R1)¢

PC,RPTIREM

000004

;REPORT REMAINDER

;60 CHECK

ERROR

COUNT

JTEST

adERRPOINT

JELSE BUMP ERROR COUNT

17%

JYES - SKIP

R1,-(SP)
R3,-(SP)

;STORE R1
;STORE R3

RS,=-(SP)

:STORE RS

R4 ,=-(SP)

COUNTING

EXCEEDED

INHIBITED

;STORE R4

;REPORT

OPERATION

#3,(R1)+
:SET PARAM NUMBER
#1,2(R1)
sINSERT ]S VALUE
TEMPY
;CLEAR FOR STATUS STORAGE
T.CS,R3
;GET T1.CS
¥177761,R3
;AND CLEAR ALL BUT FUNCTION
#4,R3
JCHECK JF IT WAS GET STATUS
1%
;YES - STATUS IS IN T.MP, SKIP
NGETSTAT,RLDA(R?) ELSE DO GET STATUS

#6 ,R3

RLDRV,R3
R3,RLCS(R?)

000000

VALUE
VALUE
ADD OF CONDITION POINTER
RESULTS

NOERCT

PC,RPIOP

000002

;s INSERT NAME ADD POINTER

"0,
#10.,R0

JWAIT

FOR CONTROLLER READY

RLMP(RZ) ,R3

;STORE

(SWlu
#CRDYMSK,RLCS(R?)
:TEST IF READY
10%
JYES - SKIP
#B1T9,R3
ELSE SET NO DRiVE STATUS BIT
2%
;s IN MESSAGE WORD AND SKIP

R3,TEMP3
}%:P301,R3

STATUS FOR REPORT

;0BT ERROR BITS

IN PROPER POSITION

T.MP+1 R}

;GET ERROR BITS FROM MP REG

T.CS,R&

;GET

#1774642,R3
#M777,R4
R4 ,R3
#OPJERR,RY
115%
#HNFERR,R3
107%

sCLEAR UNUSED BITS

ERROR BIT1S FROM (S REG

;sCLEAR UNUSED BITS
;MAKE ONE WORD OF POSSIBLE ERRORS
JVEST If OP1 SET
;sNO = SKIP
;TEST IF HDR NOT FOUND ERROR
JYES - SK]P

ASSEMBLY

ROUTINES

291 012600
292 012604

293 012606

296 012612
012612
012616
012620
012624
012630
012634
012636
012640
295 012644
296 012646
297 012652
298 012654
299 012660
300 012662
301 012666
202 012670
303 012674
304 012676
305 012702
306 0127064
307 012710
308 012712
309 012716
310 012720
311 012724
312 012726
313 012732
314 012734
315 012736
316 012740
317 012742
318 012744
219 012746
320 012750
321 012752
322 012756
323 012762
324 012764
325 012770
326 012774
327 012776
012776
013002

032703
001020

010375

012746
010446
012746
012746
012746
01060C
104014
062706
000430
012704
000757
032703
001003
012704
000751
012704
000746
032703
001403
012704
000740
032703
001403
012704
000732
012705
005004
030503
001005
005724
000241
006005
001372
000405
016411
004737
000766
004737
005737
007414

010673

013006
013012
013016
013020
013022
328 013026
129 013034
181 013044
332 013046

001047
005037

032737

9-FEB-79

004000

012704

013746
012746
012746
012746
010600
104014
062706
032737
001453

330 013036

MACRO v03.01

BIT
BNE
1008:

005315
012061
000004
000012
010036

105%:

004000

010057
010105
004000
010046

107%:
.

109%:
1158:

010000

118%:

010073
100000

1208:

3%:
4%

002222
022372

6%:

022600
003026

7%:

003026
007705
011545
000003
000010
004000

002746

002000

002746

002716

19:16:22 PAGE

15%:

MOV

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD
BR
MOV
BR
BIT
BNE
Mov
BR
MOV
BR
BIT
BEQ
MOV
BR
BIT
BEQ
MOV
BR
MOV
CLR
BIT
BNE
187
CLe
ROR
BNE
BR
MOV
JSR
BR
JSR
181
BEQ
PRINTB
MOv
MOV

MOV
MOV
MoV
EMT
ADD
BI1
BEQ

BNE
CLR

3-5

5
SEQ 0060

PHCRCERR,R3
;TESY IF HDR CRC ERR
105%
;YES - SKIP
#MOPERR R4
sSET OP] ALONE MESSAGF
WFMT2B,#MRSLT
R4, #MERRS ;REPORT ERROR
#MERRS ,-(5P)
R&,-(SP)
#MRSLT ,-(SP)
NEMT28,-(SP)
#6,-(SP)
SP,RO
CSPNTB

#2,sP
120%
FMHCRC R4
1008

#HCRCERR,R3
109%
FMHNF ,RG
100%
#MHt CRC RS
100%
#DCKERR,R3
118¢%
#MDCRC,R4
100%
#OLTERK,R3
120%
#MDLT R4
100%
#BIT15,RS
R4
RS ,R3
6%
(R4)+

:SKIP
¢HDR CRC MESSAGE

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

sHNF AND HCRC MESSAGE
: SKIP
;TEST IF DATA CHECK SET, NOT OPI
:NO - SKIP
;SET MESSAGE DATA (HECK
;SKIP
sTEST IF DATA LATE ERROR
;NO - SKIP
:SET MESSAGE DATA I ATE
:SKIP
¢SET BIT POINTER FOR TEST
:CLEAR R4 FOR TABLE COUNT
;TEST IF BIT IS SET
;YES = SKIP TO REPORT
;ELSE BUMP TABLE POINTER
;CLEAR CARRY
RS
sSHIFT BIT POINTER 10 NEXT BIT
3%
.LOOP ]F NOT O
7%
;ELSE REPORT REMAINDER
RESTBL(R4),
(R1) ;INSERT NAME ADDRESS
PC.RPTRES
;REPORT RESULTS
4%
;GET NEXT BIT
PC,RPTREM
;REPORT REMAINDER
TEMP3
;TEST IF ANY NEW STATUS
15%
;NO_~- SKIP
W#FMT17 ,#STAMES,TEMP3
TEMP3,=(SP)
NSTAMES,-(SP)

NEMT17,-(SP)
#3,-(SP)
SP,RO
(SPNTB
#10,sP
#DCKERR,T.CS
25%

;TEST IF DATA (HECK ERROR
:NO = SKIP

25%
MORECE

JYES = SKIP
:CLEAR (OMPARE

NFOPIERR,T.CS

JTEST IF OP] SET

ERROR ZOUNT

MACRO v03.01
= PN NI

OND WV
NN =0O000O0
—_
NS SN N —

NN =

OOO0OOOOO

000200
000001
004656
003656
002716

9-FEB-79 19:14:22 PAGE

18%:

000012

ed s i

&
o

OCOO0ODOOD0

e
d
e

= OONNNNOOCOWVNNE
S L NHNNIIN = -

010712

006101
011500
000007
000020
002716

002716

19%:

25%:

000200

012601
004737

015326

005277
010146
73

27%:

ENDMSG

L10005:

104023

167572

021604
000003
010256
002762

022372
022600

#0BUFF RS

;SET

GOOD WORD POINTER

(MP
BEG
(MP

(RS), (RG)
19%
MORECE ,#10.

s CHECK WORD
;600D - SKIP
sTEST IF COMPARE LIMIT REACHED

PRINTB
MOV

#FMT1S,#MMWORD ,R3,#RESES, (R4) ,MRESES, (RS)
(RS),=(SP)

ADD

INC
CMP
INC
DEC
BNE
1ST
BEQ
MOV
PRINTB

MOV
MOV
MOV
MOV
MoV
MOV
MOV

010724
002716
007772
012042
000005
000014

COMPARE

EMT

20%:

BGNMSG

SEQ 0061
:SET

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

010706

(WY
IV 1,V NNt
orco

N POPONRNUINININY
it b o i ed v e ood vl e
D o el e e
b el

el el el et et et

357
358
359
360
361
362
363
364
365
366
367

351
352
353
354
355
356

746

3-6

#128. .R1

MOV
MOV
MOV
MOV

BGT

076

OMNION)
=t et s

ROUTINES

AV IV LV IV TV IV IV TV IV IV TP VTV T NN LN N NN
N

ASSEMBLY

EMT
ADD
MOV

MOV
MOV
MOV

#1,R}3

#1BUFF R4

20%

JSET

TEST

WORD POINTER

;YES - SKIP

#RESESL ,-(SP)

(R&) ,-(SP)
#RESE3,-(SP)
R3,-(SP)
#MUORD ,-(SP)

NEMT15,-(SP)
#7,-(SP)

SP,RO
(SPNTB

#20,SP
MORECE
(RS)+,(R4)+

:BUMP ERROR COUNTER
:BUMP POINTERS

R3
R1
18%

;BUMP COUNTER
;DEC LENGTH COUNT
:LOOP 1F NOT DONE

27%

:NO - SKIP

MORECE

;TEST

ANY

COMPARE

#RESEL,-(SP)
MORECE ,=-(SP)
#TCERR,~-(SP)
#EMT27,-(SP)
¥5,-(SP)

SP,RO
CSPNTB

#14,5P

(SP)+ RS

(SP)+ R4

(SP)+,R3
(SP)+,R1

PC,CKERLM

EMT

($MSG

sRESTORE RS,

&4,

;60 CHECK

ERROR

3,1

INC

dERRPOINT

:BUMP ERROR COUNT

JSR

PC,RPTOP

;REPORT

MOov
MOv
MOv
MOv
MOv

JSR
JSR

ERRORS

#128. ,R1
:SET COMPARE LENGTH
:fiHT%gfigT(ERR.HORECE,lRESEb.R1

JSR

ERR?7

LENGTH

;SET WORD (OUNT

R1,=-(SP)

#3,(R1)+

#MDRVST,(R1)+

;STORE R

OPERATION

:SET PARAM NUMBER
;INSERT NAME

ADD POINTER

T.STAT,(R1)+
¢ INSERT 1S VALUE
R3,(R1) ;INSERT SB VALUE
PC,RPTRES
PC,RPIREM

COUNT

;REPORT
;REPORT

RESULTS
REMAINDER

EXCEEDED

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=79

19:14:22 PAGE

3-7

SEQ 0062

368 013312
369 013316
370 013320
013320

013320

372 013322
373 013322
374 013326
375 013330
376 013332
377 013336
378 013342
379 013346
380 013352
381 013356
382 013360
383 013362
384 013364
385 013366
386 013370
387 013374
388 013400
389 013404
390 013406
391 013410
392 013414
013414
393 013414
394
395
396
397
398
399
400

401
6402
403
406

013416
013416
013422
013424
013430
013434
013436
013440
013442
013446
013452

405 013454
406 013460
013460
013460

407
408
409
410
411
412
413

013462
013462
013464
013470
013472
013476
013502

013502
013504
013510
013514
013520

012601
004737

015326

104023

005277
010146
010346
004737
012721
012721
013711
012703
000241
006011
005303
001374
005721
013711
004737
004737
012603
012601
004737
104023
005277
010146
004737
012721
010321
010421

010521
004737
004737
012601

004737

167522
021604
000003
010461
002754
000007

005046
153716
012746
013746
012746

BGNMSG

3%:

003004
022372
022600
015326

ENDMSG

L10007:

167426

BGNMSG

021604
000003

015326

ENDMSG
L10010:
BGNMSG

002716
167352
021604

002735
005743
002730
005732

(SP)+,R1
PC,CKERLM

EMT

($MSG

;RESTORE R}
;GO CHECK IF ERROR COUNT EXCEEDED

ERRS8
INC
MOV
MOov
JSR
Mov
MoV
MoV
Mmov
e
ROR
DEC
BNE
TST
MOV
JSR
JSR
MoV
MOV
JSR

3ERRPOINT
R1,-(SP)
R3,-(SP)
PC,RPTOP
#3,(R1)+
PMCYLOC,(R1)+
HOWRD1, (R1)
N7 ,R3

;BUMP ERROR COUNT
;STORE R]
;STORE k3
:REPORT OPERATION
;SET PARAM NUMBER
;INSERT NAME ADD POINTER
;GET HEADER WORD
;SET SHIFT COUNT

(R1)
R3
3%
(R1)+
NEWCYL, (R1)
PC.RPTRES
PC,RPTREM
(SP)+,R3
(SP)+ R
PC,CKERLM

;ALIGN -GHAR FOR PRINTING
.
AS IS VALUE
.

EMT

C$MSG

ERR9
INC
MOov
JSR
MOv
Mov
MCv

dERRPOINT
R1,-(SP)
PC,RPTOP
#3,(R1)+
R3,(R1)+
R4, (R1)+

;BUMP ERROR COUNT
;STORE R1
;REPORT OPERATION
;SET PARAM NUMBER
;INSERT NAME ADD POINTER
;SET IS VALUE

JSR

PC,CKERLM

;GO CHECK

MOov
JSR
JSR
MOV

022372
022600

104023
010146
005737
001051
005277
004737

ENDMSG
L10006:

MOV
JSR

EMTY

ERR10
MOV
187
BNE
INC
JSR
PRINTB

CLR
B1SB
MOV
MOV
MOV

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

:BUMP PARAM POINTER
; INSERT SB VALUE
;REPORT RESULTS
:REPORT REMAINDER
;RESTORE R3
;RESTORE R1
;G0 CHECK IF ERROR COUNT EXCEEDED

sSET SB VALUE
;REPORT RESULTS
;REPORT REMAINDER
;RESTORE R1

IF ERROR COUNT EXCEEDED

($MSG
R1,-(SP)
:STORE R1
MORE CE
;TEST IF 2ND BAD LINE
3%
;YES - SKIP
dERRPOINT
:BUMP ERROR COUNT
PC,RPTOP
;REPORT OPERATION
#FMT5,#BASADD,RLBAS ,#DRVNAM,<B,RLDRV+1> ;REPORT

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

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:14:22 PAGE

3-8

SEQ 0063

013526
013530

013534

013536
013540

&14 013544

013544
013546
013552
013554
013560
013562

013566

013572
013576
013602
013604
013606

415 013612
616 013614

013616
013616
013622
013624
013630
013632
013636
013642
013646
013650
013652

417 013656
618 013662
419 013664

420 013670
013670
013670
421 013672
622
423
424 013672
425 013672
426
427
428
429
430
431
432

013672

013674
013676
013700
013702
013704
013706
013710

012746
012746

010600

104014
062706

011546
012746
011446
012746
010346
012746

012746

012746
012746
010600
104014
062706
000421

011546
012746
011446
0127646
010346
012746
012746
012746
010600
104014
062706

005237
012601
004737

NEMTS,=(SP)
#5,-(SP)

EMT
ADD

CSPNTB
#4,SP

MOv
Mov
Mov
MOov
MoV
MOv

(RS),-(SP)
#RESESL ,-(SP)
(R&) ,=(SP)
#RESES,-(SP)
R3,-(SP)
#MWORD,-(SP)

MOov
MOv
mov
EMY
ADD

FERT14,=(SP)
#10,-(SP)
SP,RO
CSPNTB
n22,sp

SP,RO

PRINTB WFMT14 ,#MRSLT,#MUORD
,R3,#RESE3, (R4) ,#RESEG, (RS)

010712
010706
006101
005315

Mov

011446
000010
~

000022
3%:

010712

010706
006101
011500
000007

000020
002716

6$:

015326

ENDMSG
L10011:
ENDMOD
BGNMOD
BGNHW

ENDHW

BR
PRINTB

MOv
MOV
MOv
MOV
Mov
MOV
MOV
MOV
MOV
EMT
ADD

MRSLT,=(SP)

43
#FMT15,#MWORD,R3,#RESE3,
(R4) ,ARESEL, (RS)

(RS) ,=(SP)
FRESESL ,-(SP)
(R4) ,=(SP)
NRESE3,-(SP)
R3,-(SP)
#MWORD
, - (SP)
NEMT15,-(SP)
#7,-(SP)
SP,RO
($PNTB
#20,SP

INC
Mov
JSR

MORECE
(SP)+,R1
PC,CKERLM

EMT

C$MSG

;REPORT DATA

;INC COMPARE ERROR COUNT
;RESTORE R1
;60 CHECK IF ERROR COUNT EXCEEDED

.EVEN
HPTCODE

.WORD

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

L10012-L$HW/2
174400
160
240
1
O
1

: (SR BASE ADDRESS DEFAULT
;VECTOR DEFAULT
;PRIORITY DEFAULT
:TYPE OF DRIVE
;:DRIVE NUMBER DEFAULT
;RL1T CONTROLLER

L10C13-L%SW/2
O

:BIT 0 = USE ALL CYLINDERS

L10012:

4;3 013710

ENDMOD

434

013710
437 013712

000014

000006

174400
000160
000240
000001
000000
000QQ!

MOV
MOv

MOV

104023

013710

435 013710
436 013710

011175
000005

000006
000000

BGNMOD
BGNSW

MISWIW:

SPTCODE

.WORD
.WORD

ASSEMBLY

ROUTINES

MACRO v03.01 9-FEB-79 19:14:22 PAGE

3-9

000377
000000
000024
000012

HILIMW:
HEADW:

ERLIMW:
DCLIMW:
ENDSW

— o e ened S AP
(VR
YV 1,8

S
R
R

ohonn

0
25§,
0
20.
10.

HEAD SELECT SUPPLIED FLAG
HILIMIT SPECIFIED FLAG

.WORD
.WORD
.WORD
.WORD
.WORD

[

LOLIMW:

et P

Puml

652
453
654
456

013716
013720
013722
013724
013726

000000

USE ALL SECTORS
EXECUTE DRIVE SELECT TEST
EXECUTE HEAD ALIGNMENT
DROP DRIVE ]1F NO RESPONSE

DO MANUAL

LO LIMIT SPECIFIED FLAG
INTERVENTION

;ERROR LIMIT
: COMPARE ERROR LIMIT

L10013:

027474
027774
030316
030750
031266
031500
031754
032276

461
462
463

BGNMOD
BGNINIT

464

465

012700
104041

466

000340

467
468
469
470 014010
&7 014014
014014

014020

72 014022

014022
473 014024
474 014032

103403

042737

100014

005037

002704

012700

000034

104050

103005

013737
000137

002012
014444

013712
1$:

SETPR]
MOV
EMT

]

] ol

N LSNP — OO
O

#340
#340,R0
C$SPRI

;CHECX

MANUAL

INTERVENTION ALLOWED

EMT
CSMAN]
BCOMPLETE
1%
JYES - SKIP
1%
BCS
8IC
FMITEST!ORSELT!HDALIGN,MISWIW ;CLEAR ALL MANUAL
; INTERVENTION FLAGS
CLR
SSINDX
;CLEAR SUBROUTINE STACK INDEX
READEF

Mov
EMT

003262

) el

INITCODE

MANUAL

104051

] o] o]

025600
026204
027056
0274610

) ol e

000020
023064
023334
023536
024772

b b ed e d i e D OO
NN
— O

BGNMOD
DSPCODE
DISPATCH
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
ENDMOD

ENDMOD

— ol

047
448
449
450
651

441
442
643
444
465
446 013714

0 00 OO

438
639
440

O O @

SEQ 0064

WEF .PWR

NEF .PWR,RO
CSREFG

BNCOMPLETE 4%
4%
BCC
MOV
LSUNIT,PWRFLG
JMP

PWCON

;POWER FAILURE

:NO, GO CHECK NEW PASS
;SET POWeR FAIL FLAG

.60 SERVICE POWER FAIL

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79 19:14:22 PAGE

3-10

SEQ 0065
675 014036

014036
016042

476 0140446
014044
677
478
479 014046
480 014056
481 014060
682 014064
483 014070
484 014072
485 01464074
486 0164076
487 014104
488 014112
489 014120
490 014126
691 014130
692 014134
493 014136
496 G16136

014136
014142

495 014144
014146
496 014146
497 014146

012700
104050
103034
013737

005037

012700

012701
005020
005301
001375
012737
012737
012737
032737
001002
005037
000432

012700
104050

014156

103533

014156
014162
501 014164
016164
502 014166
503 014166
504 014172
505 014174
506 014200
507 014206
508 014214
509 014222

012700
104050

014226
014232
014240
014244
014250
014250
014252
515 014254
0164254
516 014256

002012
003252
003052
000100

002776

003050
177777
177777
04000C

003050
003254
002712
013712

013714

005337
062737
013700
012702

LAB:
5%:

000037

NXTPAS:

00277¢

003254
002776
000002
003254

002730

003262

MEF.START,RO

003050
002776
003254

003050

PASNEW:

SETDON:

;CHECK IF START
;NO - SKIP

g%g

é?O)’

;CLEAR A ERROR COUNTER STORAGE AREA

BNE
MOV
MOov
MOV
8IT
BNE
CLR
BR

1%
;LOOP TILL ALL CLEARED
MERRCNT-2 ERRPOINT ;INIT ERROR POINTER
#-1,PSETNM
sSET PARAM SELECT TO INITIAL VALUE
#-1,HADONE
sPRESET HEAD ALIGN DONE FLAG
FLOCYL MISWIW
TEST IF LO LIMIT SET
5%
;YES - SKIP
LOLIMW
;ELSE CLEAR LO LIMIT
SETDON

READEF

WEF .RESTART

ON START INITIALIZE TO START AT FIRST DRIVE, CLEAR INTERNAL
PASS COUNT, AND ERROR COUNT.
Mov
LSUNIT ,DRVCNT
;SET UP UNIT COUNT
(LR
PASNUM
sCLEAR PASS NUMBER
Mov
#ERRCNT
RO
Mov
r64. ,R1
sGET A COUNT

READEF

000035

177777

WEF.START

EMT
CSREFG
BNCOMPLETE
RESTART
8CC
RESTART

MOV
EMT

003252
003050
002012

READEF

MoV

MOV
#EF .RESTART,RO
EMT
CSREFG
BCOMPLETE
RSTRT
RSTRT
BCS
CONTINUE:

000036

104042
010001
103406
005737

RSTRT:

RESTART:

103403
005737
001013
005237
012737
013737
012737
005237

:
:

1%:

103743

014146
014152

510
511
512
513
514

6%:

000040

WEF .CONTINUE

#EF .CONTINUE
RO
CSREFG

BCOMPLETE
BCS
PWCON

sCHECK

RESTART

;NO - SKIP
;TEST

CONTINUE

PWCON

ON CONTINUE PICK UP UNIT LAST UNDER TEST
READEF

WEF .NEW

;CHECK

181

DRVCNT

;TEST

iNC
MOV
MOv

PASNUM
;ELSE BUMP PASS COUNT
#ERRCNT-2 ,ERRPOINT ;INIT ERROR POINTER
LSUNIT,DRVCNT
;GET ALL DRIVES

INC
DEC
ADD
MOV

PSETNM
DRVCNT
#2 ,ERRPOINI
PSETNM,RO

MOv
NEF .NEW,RO
EMT
CSREFG
BCOMPLETE
PASNEW
PASNEW
BCS
BNE

MOV

MOV
GPHARD

SETDON

#-1,PSETNM

#RLBAS,R?

STARTING NEW PASS

1F ALL UNITS CHECKED

«NO - SKIP

;SET PARAM SELECT

TO INITIAL

JNEXT SET OF PARAMETERS
:DOWN COUNT DRIVE TOTAL
;UPDATE THE ERROR POINTER
;SET UP TO GET PARAMETERS

RO,R1
EM1
CSGPHRD
MOV
RO,R1
gEgHPLET$$
7%

:SKIP 1f

181

¢RECENT POWER FAJLURE

PWRFLG

GOOD PARAM

MACRO v03.01 9-FEB~79 19:14:22 PAGE

014554
0146560

7%:

000776
000777
001000

002210
002204
002212
002214
002216
002220
002206

NNNNNNN

000377
000400
077600
077600
077600
000376
177400

002204
002212
002214
002216
002220
002210
002206

WO
NWN

020000

013712

002204

013716

NN
NNNNNNN

002200

» &~

o O

WM
~ NN

177600
177600
177600
177000

000340
015270
002732
000003

00010
012700
106041

NXTPAS

MoV

MoV
151

Mov
Mov
(mp

002200

000000

PURFLG

SEQ 0066
;NO

:STORE PARAMETERS (SR

(R1)9

;:BUMP PAST FRIORITY

(R1)¢+,(R2)¢
(R1)+,T.DRIVE
(R1)¢,(R2)¢
#1,1.DRIVE

65%

65%:

MoV
MCv
MoV
MOv
MOv
Mov
Mov

#255. HLNTY
#256.,GBND
#77600,CAMSK
#77600,D1RMSK
#77600,HDCYL
#2564
. NXTHL
#177400,CLRBYT

PWCON:

BIT
BNE
MOV

121CYL.HISUIU

MOV
MOv
MOV
MOV
EMT
ADD

#340,-(SP)
#INTHLR,=(SP)
RLVEC,-(SP)
#3,-(SP)
CSVEC
#0,SP

MOV
MOV
MOV
MOV
MOV
MOV
Mov
BR

1%:

-ACCOUNT FOR DRIVE

(R1)¢,(R2)¢

BEQ

VECTOR

#510. ,NXTHL
2511, ,HLMTY
#512.,GBND
#177600,CAMSK
#177600,D1RMSK
#177600,HDCYL
#177000,CLRBYT
PWCON

HLMTW HILIMY

;SET UP VECTOR

SETVEC

RLVEC,#INTHLR,#340

SETPRI

;SET PRIORITY

($SPRI
RLBAS,R2

;ST RL BASE ADDRESS POINTER

EMT
MOv

002730

3-11

BEQ

DEC

003262

000001

O00
— O
W=
NON

014444
016452
014454
014462
014462
014466
014472
014476
014502
014504
568 014510
014510
014514
549 014516
550
551
552
553
554
555 014522
556 014526
557 014530
556 014536
959
560 014540
561 0146544
016544
014550

OOO00

014436

OOO0O0O0O00

N NN NN W R A N W N VPO RO DD NN S

MINNCNSNSNNNO
NN
NN
N -

O0O0O0ODOOOODOOOOO [=] O
[ R
R
e
] = ] J¥ P P
Y, P
) [=] =1=]
ONNNNNINN
=N N VNGOAN =t
S NSNS
NN NS N
ety
o
NN

ASSEMBLY ROUVINES

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

ERROR SETS ON GET STATUS.

003252
000029
003260
000340
015262
003042
000003

013712

187
BNE

PASNUM
22%

;TEST IF PASS 0
:NO = SKIP

BEQ

22%

:NO - SKIP

TRPFLG

: TRAP OCCURANCE

NAUTOSZ MISWIW

;TEST IF DOING AUTO SIZE

;CHECK 1F UNIBUS ADDRESS IS THERE BEFORE WE CHECK DRIVE READY
CLR

SETVEC

MOv
MOv
Mov
Mov

ERRVEC,#TRPHAN,#340
#340,-(SP)
N TRPHAN,=(SP)
ERRVEC,-(SP)
#3,-(SP)

;SET TRAP VECTOR

pr—

ASSEMBLY

ROUTINES

014564
016566
562 0164572
563 014576
566 014602
565 014606
566 014610
567 014614
568 014620
569 014626
570 014630
571 014636
572 0164662
573 014646
574 014652
014652
014656
575 014660
576 014666
577 014670
014670
014674
578 C14676
014676
014702
014706
014712
014714
014716
579 014722
014722
014724
014730
014734
0164740
01647644
614750
014754
014756
014760
580 014764
014764
014770

581 015004
015004
010
0
582 0
2
0
2
4
583 0
4
0
0
020
584 0
586
587 015022

104037
062706
005762
005737
001032
013705
0527C5
010562
032762
001072
012762
052705
042705
010562
012700
104026
032762
001452

MACRO v03.01

000010
000000
003260

002734
000200
000000
000001

000003
000004

003042

012746
012746
012746
010600

005750
012001
000002

104017
062706

000006

005046
153716
012746
013746
012746
012746
012746

002735
005743
002730
005732
011175
000035

012746
012746

013700
104053

+ACCESS BUS

sYES, DON'T

20%

:YES - GO DO TEST

000000

.
5%:

BIS
BIC

EMT
BIT
BEQ
CLRVEC

MOV
EMT
PRINTF
MOv
MOV
MoV
MOv

ADD
PRINTF
CLR

B1SB

EMT

RS,RLCS(R2)
A

(SWTM

20%
ERRVEC
ERRVEC,RO
CSCVEC
#FMT24 ,#DRVYNAY

ltg;?,lBASADD,RLBAS,#DRVNAM,(B,RLDRV*1>

RLDRV+1, (SP)

#DRVNAM,-(SP)

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

NEMTS,=(5P)
#5,-(SP)

SP,RO
CSPNTF

00325¢4

MOv

003042

22%:

CLRVEC

MOv

EMT

MANUAL

SET

¥6,SP

Ne,SP

DOCLN
EMT

OP]

SP,RO
CSPNTF

ADD

EMT

;NO - SKIP

NEMT24,-(SP)
n2,-(SP)

000004

DODU

4 MS

#ORVNAV,-(SP)

ALY4
NEMT3
NFMT3, -(SP)
#1,-(SP)

EMT

;sLOAD CS REG

sWALT

#OPIERR,RLCS(R2);TEST

ADD
PRINTF
MOV
MOv
MOv

20%:

INVESTIGATE FURTHER

NGETSTAT,RLDA(R2) ;ELSE INSERT GET STATUS
f6 RS
;LOAD RS WITH GET STATUS FUNCTION
#CRDYMSK,RS
;CLEAR CONTROLLER READY

MOV
MOV
MOV
MOv
MOv
MOv

011161
000001

: TRAP OCCUR??

Bl11

EMT

108:

TRPFLG

RLDRV,RS
;GET DRIVE NUMBER
#CROYMSK,RS
s INSERT CONT READY
RS,RLCS(R?)
;sLOAD [N DRIVE NUMBER
#DROYMSK,RLCS(R2) ;CHECK IF DRIVE IS READY

MOV
WAITMS
Mov

000014

104046

013700
104036

RLCS(R2)

BNE
MOV

000004

00200C

181
TST
BNE
MOv

BIS

040004

SEQ 0067

(SSVEC

Mov

000000

3-12

Emt

ADD

000200
000000

013700
104036

010600
104017
062706

9-FEB-79 19:14:22 PAGE

SP,RO
CSPNTF

PSETNM
PSETNM,
RO

:DROP DR]VE

($000U

CSDCLN
ERRVEC
ERRVEC,RO
(SCVEC
;MANUAL

INTERVENT]ON ALLOWED

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=79

19:14:22 PAGE

3-13

SEQ 0068

015022
588 015024
$89 0150264

104051
103004

590 015026
591 015032
gg% 015034

005737
001001
000437

EMT
CSMANI
BNCOMPLETE

003252

232

sCHECK

597 015036

005737

003262

600
601
602
603
606
ggg

013705
052705
010562
012701
032762
001020

002734
000200
000000
000074
000001

012700

000012

ggg 0150642

015044
015050
015054
015060
015064
015072

607 015074
015074
015100
608 015102
609 015104
610 015106
015106

015112
015116
015122

015124
015126
6}; 015132

001434

104026
005301
001367

012746
012746
012746
010600
104017
062706
000673

4%:

000000

9%:

005767
012001
000002
000006

8%:

615 015134

ENDINIT

614

L10014:

104011

ENDMOD

618 015136
6;3 015136

BGNMOD
BGNCLN

621 015136
015136
015142
015146
015152
015156
- 015160
6

623 015164
015164
015170
6264 015172
625 015200

151
BNE
BR

PASNUM
4%
3%

1F POWER FAILURE WAIT

;NO
;YES, CHECK PASS NUMBER
;NOT FIRST PASS, NEED DRIVE UP
;FIRST PASS, PROGRAM WILL INSTRUCT USER

IS NEEDED

153

PWRFLG

MoV
BIS
MOV
MOV
BIT
BNE

RLDRV,RS
;ORIVE SELECT
#CRDYMSK,RS
:SET CROY
RS,RLCS(R2)
;SELECT DRIVE
#60.,RY
;SIXTY SECOND TIMER
#DRDYMSK ,RLCS(R2)
;DRIVE UP YET
8%
:YES START TEST

WAITMS
Mov
EMT
DEC
BNE
PRINTF
MOV

#10.
#10.,RO

BEQ

CSWIM
R1
9¢
WNFMT24 ,#NOPUWR

EMT
ADD
BR

#NOPWR ,-(SP)
NEMT24,-(5P)
#2,-(SP)
SP,RO
CEPNTE
#6,SP
10%

EMT

CSINIT

sNEEDED???
:NO,

SKIP

sWAIT A SECOND
;SIXTY GONE BY!
:NO

CLNCODE

000010

SETVEC
MOV
MOV
MOV
MOV
EMT
ADD

ERRVEC,#TRPHAN,#340
#340,-(SP)
#TRPHAN,=-(SP)
ERRVEC,-(SP)
#3,-(SP)
CSSVEC
#10,SP

000007

SETPRI
MOV

#7
:SET PRORITY 10 7
#7,R0
($SPR]
#CROYMSK,RLCS(R2)
JTEST 1F CONTROLLER READY
3%
+NO LOOP UNTIL READY

012746
012746
013746
012746
104037
062706

000340
015262
003042
000003

012700

104041
032762
001407

MOV
MOV
MOV

613 015134
01513
015134
b}g 015136

BCC

000200

000000

2%:

EMT
BIT
BEQ

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79 19:14:22 PAGE

3-14

SEQ 0069

626 015202
627 015210
628 015216
629 015220
015220
015224
630 015226

631
632
633
636

015226
015232

01523¢
015240
015262
015246
015246
015252
635 015254
015254
015254
636
637 015256
638 015256
639 015260
015260
015260

640
641 015262

642 015262
643
664 015262
222 015266

053762
032762
001003

002734
000001

012700
104026

000003

013700
104036

002732

005737
001402
005337

003262

013700
104036

003042

000000
000000

5¢:

7%:

L10015;

104012

BGNDU

000240

ENDDU
L10016:

104055

ENDMOD
BGNMOD

005237
000002

003260

652
653
654
655
656

015276

015302
015306
015312
015320
015324
015324
015324

657
658
659
660 015326
661 015334
662 015330
015336
663 015340
015340
664 015342
015342

015346
015352

012237

012237
011237
012737
013702

TRPHAN:

14020
103451

012746
013746
012746

:NO

PWRFLG
ERRVEC

EMT

VEC

ERRVEC,RO

CSCVEC

CSCLEAN

EMT

C$DU

INC

TRPFLG

INTHLR
INTERRUPT HANDLER.

ABORTWAIT

002746
002750
002752
002754
177777
002730

BUSY

NCP

RT1

EMT
MOV
MOV
MOV
MOV
MOV
MOV

002710

ABORTS WAIT

C$ABRT
(R2)+,1.CS
(R2)+,7.BA
(R2)+,T.DA
(R2),T.MP
#-1,DONE
RLBAS,R?

;STORE

TIMER AND STORES ALL RL11

REGS

RL REGISTERS

:SET DONE FLAG

;RESTORE

RZ2

" RTI

000002

027737
002453

;NO - SKIP
:WAIT 300 MS

GLBSUB

BGNSRV

104021
012237

5%
#3
#3,R0
(SWTM

DEC
CLRVEC

EMT

ENDCLN

DRIVE NUMBER
;TEST IF DRIVE

RLVEC
:RELEASE
RLVEC,RO
CSCVEC
PWRFLG
;PWR FAIL SET

MOV

RLDRV,RLCS(R2)
;SET
#ORDYMSK,RLCS(R2)

CLRVEC
MOV
EMT
ST

BEQ

003262

648

BNE
WAITMS
MOV
EMI

3%:

647 015270
649 015270
015270
650 015272

g}?

165516

013722

(CKERLM:

ERROR LIMIT CHECKING ROUTINE
DROPS DRIVE [f ERROR LIMIT EXCEEDED
cMp
JERRPOINT ERLIMW
.TEST 1F ERROR LIMIT
BLY
1%
:NO - SKIP
INLOOP
;CHECK JF IN ERROR L00OP

CSINLP
EMT
BCOMPLETE
1%
JYES - SKIP
BCS
1%
PRINTF
WFMT25,ERL
1MW, NMEXERS

MoV

MOV
MOV

#MEXERS,
- (SP)

ERL IMW,=(SP)
FFMT25,-(5P)

EXCEEDED

ASSEMBLY

MACRO v03.01

ROUTINES

9-FEB-79 19:14:22 PAGE

3-19

665

406

666

012746
0 10600
1 06017
0 62706

00 5046
15 3716
01 746
0 746
01 746
01 746
01 746
) 600
10 017
06 2706
SOOI

[e 2
s

SEQ 0070

697

ARV
A
A
A
A

696

630

692
693
694
695

680
681
682
683
684
685
686
687
688
689
690
69N

AN YA YA AV AV TV TV LV RV LV TV 3V I

6«79

000000
000002
000004
000006

000002
000200

002746
002750
002752
002754

00000V

000002
002746

006126

000002

012700

000003

032762
001006
004737
012766
000762
005737

000200

104026

015466
006201
002710

#s,5P

DObU

PSETNM

DOCLN
EMT
RTS

CSDCLN

:DROP DRIVE

PSETNM,RO
c$00DU

;GO TO CLEAN UP

RTS

015466
002710

000207

ADD

SP,RO
CEPNTF

;
READ AND STORE ALL RL11
READRL: MOV
RLCSR(R2),T.CS
MOV
RLBA(R?),T.BA
MOV
RLDA(RZ),T.DA
MOV
RLMP(R2),T.MP
;
WAITIN:

006107
002000

SP,RO
CSPNTF

Mov

MOv
EMT

1%:

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

#&,sP
WFMT3
#EMT3,
- (SP)
#,-(SP)

MoV
EMT

003254

sP,RO

CSPNTF
#10,SP
#EMTS, #BASADD,RI BAS,#CRVNAM,<B,RLDRV*1>
-(SP)

#5,-(SP)

ADD
PRINTF
MOV

106044
000207

>0 [« JV IV IV TV RV IV TV SV IV IV SV SV IV IV
O
=
O O~N~N~N oo NN
S BN WD
corrns ~NO O o oo S O0NO

669
670
671
672
673
674
675
676
677
678

MOV

MOV
EMY

000014

000004

104053

668

B15S8
Mov
MOv
MOV
MOv

000005

062706

#3,-(SP)

EMT
ADD
PRINTF
CLR

002735
005743
002730
005732
011175

011161
000001

013700

MOv

00001C

012746
012746
010600
1064017

667

000003

1%:

2%:
4%

000000

WAIT
MOV

(LR
BIT
BEQ
JSR
181
BEQ
MOV
BIT

JSR
HgV

3¢:

FOR CONTROLLER
(SP) ,=(SP)

BEQ
MOV
" RTS
WAITMS
MOV
EMT

BIT
BNE

000002

187

REGISTERS
;GET CS REG
;sGET BUS ADDRESS REG
JGET DISK ADDRESS
;GET MULTI-PURPOSE REG
:RETURN

TIMEOUT TO FORCE INTERRUPT ROUTINE
;MAKE ROOM FOR ERROR POINTER

2(SP)
sCLEAR FOR POINTER
#CRDYMSK,RLISR(R?)
JTEST IF CONTROLLER READY
4%
:NO - SKIP TO WAIT
PC,READRL
sREAD ALL RL REGS
DONE
sTEST 1F INTERRUPT OCCURRED
5%
+NO = GO SET NO INTERRUPT ERR FLAG
#MTOSLOW,2(SP)
;ELSE SET TO SLOW ERROR POINTER
#OPIERR,T.CS
;TEST IF OP1 SET
2%
:NO - SKIP
#MDRRES ,2(SP)
sSET MESSAGE FOR NO DRIVE RESPONSE
PC
sRETURN
#3
;WAIT 300 MS FOR TIMEOQUT
#3,R0
CSWIMm

#CRDYMSK,RLCS(R?)
sTEST IF READY NOw SE?
3%
;YES - SK]|P
PC,READRL
g:CONHNG.Z(SP)
DONE

;READ RL REGS
:gE{PHESSAGE FOR CONTROLLER HUNG

;5K

JELSE (HECK

INTERRUPT OCCURRED

ASSEMBLY

ROUTINES

698
699

729
730
731

w
o
OV
OSO
OO~NOO

728

—

727

013746
012737
000412
013746
012737
000404
013746
005037
010346
013703
005723

o oSN

726

105037

005037
000207
o
A Y2 YAl LV IV IV IV LV IV TV ]V ] (Vo AV AV LV RV, IV,
o OO NNNNNNNNNNNNN~YN

720
721
722
723
724
725

005057

Lol

700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719

001345
004737
012766
000751

012
012

MACRO v03.01 9-FEB-79 19:14:22 PAGE

015466
006146

002706
003257
002716

TSTINT:

003030
000013

003030

GSTATR:

003030
000003

003030

000004
000004
002704

002306
002306

000002
000010

002720
003030

040000

000000

739
740
761

748
749

750

GSTATG:

001031

012700
1064026

005301
001344
012703

49%:
50%:

;YES = SKIP TO SET

FMNOINT,2(<P)

SELSE SET NO INTERRUPT FLAG

PC,READRL

MOV

SEa 007

JSR

;READ RL REGS

10 SLOW

;GO TO RETURN

OPERATION AND TEST
CLR
OPFLAG
CLRB
NOERCT
CLR
MORECE

INITIALIZE ROUTINE
sCLEAR OPERATION FLAGS
;RESET INHIBIT ERROR C(OUNTING
;RESET MORE (OMPARE ERRORS

GET

STATUS AND GET

STATUS WITH RESET

GSTATG

MoV
MOV

MOV
MOv

TEMPL , - (SP)
:STORE
#GETSTAT!DRSET,TEMP4

TEMPS
;SET

ROUTINE
FOR

RESET

TEMPL ,-(SP)
FGETSTAT, TEMPL

sSTORE TEMPS
;SET FOR NO RESET

TEMPSL, - (SP)

;STORE

#2 ,ERRSWI]

:SET FOR NO ERROR RETURN

B8R

GSTATG

CLR
MCv
MoV
157
Mov
SuB
MOV
MOv
MOv

TEMP4
;SET FOR SAVE L. AND T. REGS
R3,-(SP)
;STORE R3
SSINDX,R3
:GET SUBROUTINE INDEX
(R3)+
sBUMP IT FOR NEXT ENTRY
4(SP),SUBSTK«R3) ;INSERT THIS (ALL
#4,SUBSTK(R3)
;ADJUST ]T TO CALLING LOCATION
R3,SSINDX
:STORE 1T BACK
RO,-(SP)
:STORE RO
R1,-(SP)
:STORE R

BIT

FORSET,TEMP4

MOv

000003

738

747

GSTATC:
GSTAT:

002704

000062
015720

BNE

RTS

003030
003030

732
733
734
735
736
737

742
743
744
765
746

000002

5%:

3-16

:TEST

TEMP4

DRIVE

RESET

BEQ
BIY
BEQ
WAITMS
Mov
EMT

11%
:NO - SKIP
#DRVERR ,RLCS(R2) ;TEST IF DRIVE ERROR SET
49%
:NO - SKIP
#3
;WAIT FOR 300 MS FOR DRIVE
#3,R0
(SWTM

igfl

PC,GSTAT

MOV

#50.,R1

;SET WAIT
;GET

DRIVE

;TEST

TO SETTLE

FOR 5 SEC
STATUS

000001

002746

BIT

#ORDYMSK,T.CS

000020

002754

144000

002754

B!
BNE
BIT

#HOSTAT T .MP
;ELSE TEST [F HEADS OUT
51%
sYES = BYPASS RELOAD WAIT FLAG SETTING
WSPDSTAT!HCESTAT!WDESTAT,T.MP ;TEST IF DRIVE HAS ERROR

040000

002706

040000

002746

000001

010511

BNE

51%:

DRIVE

READY

;YES = GO DO CLEAR

: THAT

CAUSED HrADS

; UNLOAD

BEQ
BIS
BR
Bl
BNE

5%
FRELDWT ,OPFLAG
5%
#DRVERR,T.CS

:NO - SKIP
ELSE SET WAIT FLAG
;SKIP TO CLEAR
;TEST 1f DRIVE ERROR NOW
JYES - SKIP TO CLEAR

EM1
DEC
BNE

(SWim
R1
50%

;DEC WAIT COUNTER
:1F NOT DONE, LOOP

WAITMS
MOv

MOv

M
¥ RO

#MUNDLF ,R3

;WAIT FOR DRIVE

JMESSAGE

10 GET

ERRKOR,

FOR UNDEFINED STATE

RDY,

T10

OR WD

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=-79 19:14:22 PAGE

3-17

SEQ 0072

761

762
763
764

765

766

767

768
769
770

n
772
773
774
775
776
777
778
779
780
781
782

—

120
122
126
126
130
134

SN
oo

752
753
754
755
756
757
758
759
760

120

cococoooocooCoocoo

751

ERRHRD

104443

TRAP

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

000003

002742

003030

002742

005037
013737
042737
052737
013762
013762

002710
002734
002000
000104
002742
002736

012700

000001

005737
001476
013737
042737
032737
001474
032737
001424

002710

1064027

093030

11%:

000004
002746

002754

8%:

5¢:
6%:

040000

002706

012701

001130
000001

000000

012700

000001

4%:

789
790

791
792

793
794
795

005301
001367
004737
016464
012703

;TEST

#6 R

;SET

SAVE

;NO SKIP

ML .MP+2 ,R3

SAVE

REGISTERS

(OUNT

:SET ADDRESS OF

FIRST

;DEC COUNT
;LOOP UNTIL ALL

SAVED

-(R3),~-(SP)

;PUT REG ON STA(K

#GETSTAT,L.DA

;SET

R1
8%

FOR GET

6%
TEMP4L,L .DA

;SKIP
s INSERT PRESET FOR STATUS

CLR

DONE
RLDRV,L.CS

;CLEAR INTERRUPT FLAG
JSET UP T0O GET STATUS

#B81110,L.CS

;CLEAR FCR DRIVE & - 7 SPEC'D

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

:LOAD RL REGS
;LOAD (S REG

BIC
81S
MoV

FGTSTAT,L.CS

Mov
WAITUS
MOV

" ,RO

;WAIT

100 US

FOR

INTERRUPT

($WTU

DONE
;CHECK IF INTERRUPT OCCURRED
19
:NO - SKIP
T.MP,T.STAT
;STORE MP REGISTER
F*C<STAMSK>,T.STAT ;CLEAR ALL BUT STATE
#DRSET,L.DA

¢TEST

1SELDUT.OPFLAG

STEST

RESET

WAS

RELOAD WAIT

«NO - SKIP 10O EXIT
SKIP

:DEC

COUNT

015720

PC,GSTAT

;GET

DRIVE

010556

MRLFAL,R3
10003., ,ERR]
TSERCODE

sSET

RESULT MESSAGE

13%:

13%

000012

STATUS

;ERROR RETURN

149
0.
#10.,R0

;60 10 EXIT
;WAIT FOR 1IMS

PC,GSTAT

;GET

DRIVt
[F

(Swiv

015720

FLAG SET

;LOOP IFf NOT O

10003
ERR1
12%:

SPECIFIED

#600. ,R1
;SET WAIT COUNT FOR 60 SECONDS
#DRDYMSK ,RLCS(R2) ;TEST IF DRIVE NOW READY
12%
JYES - SKIP
3!
s CALL WAIT
#,RO

(SWTM

1044463

SAVE

STATUS

:NC -

023423
012072
000442

012700
106027
004737
016464
032737
001432
032737

(EX1T

TEMPS

Mov

EMT
1S1

783
784
785
786
787
788

DEC

MOV

000004
060000

002762
002762
002742

104026

MOV
Mov
MOv
BNE
MOV

002736
002736
002736

177770
000010

032762
001016

.WORD
.WORD
BR
1S1
BNE

10001., ,ERRY
TSERCODE
10001
ERR
14%

100000

002746

#ANYERR,T.(S

sTEST

001000

002754

SVCSTAT, T

JCHECK

STATUS

ANY

:NO = SK]P

POINTER

ERROR

VOLUME

(HE(K

RESE?

ASSEMBLY ROUTINES

796 0 16406
797 0 16410
798 0 1646146
799 0 16416
800 0 16424
801 0 16426
0 16426
0 16430
0 16432
802 0 164 3¢
803 0 16436
804 0 16442
805 0 16444
806 0 16450
807 0 16452
0 16452
0 16454
0 16656
0 16460
0 16464
0 16470

0 16472
0 16476

0 16502
0 16504
0 16506
1) 6510
0N 6516
0 6520

016522
01
01
0

MACRO v03.01

9-FEB-79 19:14:22 PAGE
BEQ

006235
040000

MOV

002746

7%:

BR
B
BEQ
ERKHRD
TRAP

012603

006256

9%:

015520

1%:

2%:

1046443

023422
012072
005037

005737
001007
012703
012701
012623
005301
001375
162737
012601
012600
012603
012637

005737
001403
063716
000207
017616
000207

012737
000402
005037

MS:

002720
003030

002736
000004

000002

20¢%:
002704

22%:

.WORD
.WORD
BR

MOV

BR
JSR

MOV

ERRHRD
TRAP

.WORD
.WORD
CLR

151
BNE
MOV
Mov
MoV

DEC
BNE
Sus
MOv
MOV
MOV
MOV

003030
002720

002720

1§71
BEQ
ADD
RTS

000700

99%:

177777

XSEEKT: MOV

003022

002704

000002
000004
002704

000002
003000
021114

002306
002306

002720

MOV
RTS

3-18

7%
#VCNRST ,R3

#ORVERR,1.(S

9%
10004., ,ERRG
TSERCODE
10004
ERRG
149
FUNXERR,R3
2%
PC,WAITIN

(SP)+,R3

10002., ,ERR1
TSERCODF
10002

ERRI
ERRSWI
TEMP4

22%
#L.CS,R3

#4,R1

(SP)+,(R3)¢

20%

#2,SSINDX

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

(SP)+,TEMP4
ERRSWI

99%
ERRSWI, (SP)
PC

a3(SP), (SP)

SuB

MOv
MOV
MOV
MOV
MOv

SSINDX,R3

;CHECK IF DRIVE ERROR
:NO - SKIP

JEXIY
:SET REASON POINTER
JEXTT

: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
;RESTORE R3

;RESTORE TEMP4

;TEST

ERROR RETURN

;YES - SKIP
:ADD IN ERROR RETURN
;SET

ERROR RETURN ADDRESS

;SET SPECIAL TIMING SEEK FLAG

;CLEAR SPECIAL SEEK FOR TIMING FLAG
:STORE R3
;GET SUBROUTINE

INDEX

;BUMP 1T FOR NEXT ENTRY
(R3) ;INSERT THIS CALL
2(SP),SUBSTK
#4 ,SUBSTK(R3)
;ADJUST 1T TO CALLING LOCATION
R3,SSINDX
;STORE 1T BACK
(R3)+

CLR

RO,=-(SP)
R1,-(SP)
RS,-(SP)
¥2 ,ERRSWI
DIFAUG

JSR

PC,GETPOS

65%

;YES SKIP
;SET REASON POINTER
JEXIT

SEEK ROUTINE
#-1,TEMPI
XSEEK]
BR
TEMPI
CLR
XSEEK:
R3,-(SP)
XSEEK1: MOV
MOV
1S3
Mov

SEQ 0073

: STORE REG
;SET FOR NO ERROR RETURN

;CLEAR DIFFERENCE AUGMENT (FOR SEEKING
PAST

GUARD BAND)

;GET PRESENT POSITION

ASSEMBLY

MACRO v03.01

003006
003004

003002
002204

002204
003004
002204
000001
000001
000001
000001

(VL IV VT

STV

SNNNS NNNNNN

STOTeY

9-FEB-79 19:14:22 PAGE

VYT

[olelef dolololol Jolole]
Qedt et P ONI = s O ONY—
O NINV N = NV LN N NN NN
S NNNS NNNNS NN

ROUTINES

MOv
(mp

?EUCYL.HLHTU

003004
003000
003004
002200

MOv
Mov
(Mp

HLMTW NEWCYL
NEWCYL,DIfAUG
HLMTW, NEWCYL
#1,1.DRIVE

002004
003012
003310

MOov
MOV

000001

6%:

003012

003004

002204

000001

003012

017044
017052
017054
017062
017062
017066

022737
001003
063737

000001

002200

003000

003010

— el
il
v
=
—
i
-l
il
il
e
=
el w—
o0
NOO NN
S WNWNNINN
— a2
O O~~~
OHr 00NN
OONNOO SO SN (2% X o ¥ \ )

—
b
cad cd
——
cd
el
el
—d
el
=
vl
wald
)
il
ol
e
el

NN NNNNNSNNNNSNNNNNNNN ~

012737

—

903

14%:

017036

OO0 OOOOOOOOOOOOOOO

891
892

13%:

012715
053715
042725
005025
013715
012700
006315
005300
001375
005737
001402
052715
005737
001402
052715
052725

004737
017264
005037
005737
001035

002736
000106
002734
002000
003010
000007

17%:
18%:

003012
000004
003014

000020
000001
017610

002710

003022

6%
#1 NEWCYL

BR
1S1
BPL

NEWCYL

CLR

MOv
SuB
BPL
MCV
NEG

B8R
CLR

MOv
181
BEQ
cmMp
BNE
Mov
cmMp
BNE
ADD

MOV
MOV
BIS

BIC
(LR

21%:

23%:
25%:

CURCYL,OLDCYL

8ea
SUB

NEG
Mov

003000

003012
003010
003000

012705

BLE
SuB

3%:

003004
003004
003004
003004
003006
003004

3-19

MOv
MOV
ASL
DEC

BNE
15T
BEQ
BIS
187
BEQ
BIS
81S
JSR

65%

(LR
181
BNF

SEQ 0074

;MOVE CURRENT TO OLD CYLINDER
;TEST IF NEW IS GREATER THAN 255
:NO - SKIP

;ELSE SUBTRACT 255.
;STORE DIFFERENCE AS AUGMENT
;SET NEWCYL AS 255.

#1 ,DESSGN
#1,DESDIF

18%

NEWCYL
NEWCYL,DIFAUG
NEWCYL

CURCYL RS

NEWCYL,RS
13%

#1,DESSGN

RS
149
DESSGN
RS,DESDIF
DIFAUG
18%
NEWCYL ,HLMTW
17%
#1,DESSGN
#1,T.DRIVE

sTEST

;NO -

IF NEWCYL MAS NEGATIVE VALUE

SKI]P

;ELSE MAKE IT POSITIVE

sAND STORE IT AS AUGMENT
JAND SET NEWCYL 10 0

;COMPUTE DIFFERENCE AND NEW CYLINDER
;SUB NEWCYL FROM CURCYL
;1F DIFF 1S POSITIVE - SKIP(REV SEEK)
sELSE SET SIGN FOR FORWARD
:Q:TE DIFFERENCE POSITIVE

JSET SIGN FOR REVERSE
;STORE DIFFERENCE
;1S THERE A DIFFERENCE AUGMENT
:NO - SK]P

sCHECK JF NEW CYL 1S 255.

;NO - SKIP
;ELSE FORCE SIGN FOR FORWARD
; CINNER GUARD BAND)

18%
DIFAUG,DESDIF
#L.CS,RS
#SEEK, (RS)
RLDRV, (RS)
#BIT10,(RS)+
(RS)+

DESDIF, (RS)

#7,R0
(RS)
RO

;GET L REG ADDRESS
;SET FOR SEEK
s INSERT DRIVE NUMBER
;CLEAR IF DRIVE 4 - 7 SPEC'D
;CLEAR BUS ADDRESS
;LOAD DIFFERENCE
sSET TO SHIFT DIFFERENCE

DESSGN

;LOOP UNTIL ALIGNED
;TEST SIGN

#DIRBIT,(RS)
DESHD

JTEST

23%

25%

#HDSEL, (RS)
#MBSETO0, (RS)+

PC,RDYCHK

DONE

TEMPI

65%

;SKIP 1F 0
;ELSE INSERT SIGN
IF

HEAD O

:YES - SKIP
;ELSE SET HEAD BIT
; INSERT MARKER B]Y
:CHECK IF DRIVE READY

sCLEAR INTERRUPT FLAG ;(HECK ]7F SPECIAL SEEK FLAG SET
;YES = SKIP, DO NOT START SEEK

ASSEMBLY ROUTINES
PININIAINY
et s

NN
N~

o
e

929

936

937
938
936

940
941
942
943
944
945
946

947

948
949
950
951
952

953

1
1
1
1
1
1
1

17356
17360
17366
17372
17374
17400
17404
17410
17414
17416
1746422
17426
174630
17632
17434

100005

1046443
023426
012374
005037
162737

012605
012601
012600
012603
005737
001403
063716
000207
017616
000207
010346

NN
N NO NN NI NN

252
254
256
260
264
272

923
924
925
926
927
928

934
935

015520

MOV

ERRHRD

1046443
023425

012072
005037
000410
005737

MOV
Mov
MOV
WAITUS
MOV

3]
1871
BNE
JSR

002710
012603

244

918
919
920
921
922

30%:

000012

220

NS
W

NeXVolloRVoRve]

908
909
910
911
912

9-FEB-79 19:14:22 PAGE

000004
000002
000G00

(=
o

NNSNSNNNNNNNNNNN NN NNSNSNNSNSN NSNS

904
905
906
907

930
932
913

MACRO v03.01

TRAP

002720
002746

002720
000002

32%:

002704

65%:

002720

.WORD
.WORD
CLR
B8R
187

BPL
ERRHRD
TRAP
.WORD
.WORD
CLR
SUB

MOV
MOV
MOv
MoV
187

BEQ

002720
000000

99%:
SIMSEKX:

002704
000002
000004
002704

002306

000002
017610

002720

VL2306

ADD
RTS
MOV
RTS

MOV
MOV
1ST
MOV
SUB
MOv
MOV
MOov
MOV

JSR

65%

002736
000106
002734
002000

MOV
MOV

003010
000007

MOV
MOV
ASL
DEC

003012

B1S
B1C
CLR

3%:

BNE
181

3-20

SEQ 0075

=(RS) ,RLDA(R2)
=(RS) ,RLBA(R2)
=(RS) ,RLCS{R2)
f10.
#10.,R0
-

;LCAD RL REGISTERS

DONE

;TEST

PC,WAITIN

;G0 WAIT

& 2V

32%

(SP)+ R}
10005., ,ERR]
T$ERCODE

INTERRUPT

JYES - SK]P

FOR

DONE

INTERRUPT

JGET RESULT MESSAGE POINTER

10005

ERR1

gggSUl
T.CS

sCLEAR FOR ERROR ERROR RETURN
:TEST

ANY

ERROR

65%
10006., .,ERR6

;NO - SKIP

ERRSWI]

JCLEAR FOR ERROR ERROR RETURN

(SP)+ ,R3

;RESTORE R3

99¢%

;YES - SKIP

TSERCOCE
10006
ERRG

#2,5SINDX
(SP)+,RS
(SP)+ ,R1
(SP)+,RO
ERRSWI

ggRSUl.(SP)

;REMOVE ENTRY FROM SUBROUT
RESTORE REGISTER

;TEST

STA(CK

ERROR RETURN

sADD

IN ERROR RETURN

géSP).(SP)

sSET

ERROR RETURN ADDRESS

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

;STORE REGISTERS
;GET SUBROUTINE INDEX
;BUMP 1T FOR NEXT ENTRY

R3,SSINDX
RO,=-(SP)

;STORE

2(SP),SUBSTX(R3) ;INSERT THIS CALL
#4,S5UBSTK(RY)
sADJUST IT TO CALLING LOCATION
[T BACK

R4 ,-(SP)
#2 ,ERRSWI
PC,RDYCHK

;SET FOR NO ERROR RETURN
sCHECK IF DRIVE READY

#L.CS,RS

JGEY POINTER TO L REGS

#SEEK, (RG)
RLDRV, (R4)

#BIT10,(RG) ¢

sSET FOR SEEKX
;s INSERT DRIVE NUMBER

sCLEAR FOR DRIVE & - 7 SPEC'D

(R&)+

;CLEAR BUS ADDRESS

égé)

sALIGN DIFFERENCE

DESDIF, (RG)
07 ,R3

DESSGN

;LOAD DIFFERENCE
sSET COUNT FOR SHIFT TO ALIGN

JTEST

SIGN SET

IN DA

ASSEMBLY

MACRO v03.01

ROUTINES

9-FEB=-79 19:14:22 PAGE

3-21

SEQ 0076

012700
106027
000767
004737
012603
106443
023433
012072
005037

162737
012604
012600
012603

005737
001403
063716
000207
017616
000207

000004
003014
000020
000001
002710
000012
000004
000002
000000
002710

O NN
~

012700

I4)

#HDSEL, (R4)

7%:

#MBSETO, (R4)+
DONE
#0.,R1
=(R4) ,RLDA(R2)
=(R4) ,RLBA(R?)
=(R&) ,RLCS(R2)
DONE

10%:

65%

R1
13%
"
”,RO
CeWTU
108
PC,WAITIN
(SP)+,R3
10011, ,ERR1
TSERCODE
10011

000001
015520

13%:

ERR]

002720
000002

002704

14%:

65%:

000000

002704
000002
000004
002704

002306
002306

000002
011610
015720

002720

000001

002746

000001

1%:

JSR
4%

BIT
BNE

WALTUS
Mov

:1F 0 - SKIP

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

;RESTORE REGS
;TEST

ERROR

RETURN

;YES - SKIP
:ADD IN ERROR RETURN

:SET ERROR RETURN ADDRESS

TEST ROUTINE.

5S00MS FOR READY TO SET.
R3,-(SP)
MoV
SSINDX,R3
18T
(R3)+
MOV
SUB
MOv
MOV
MOV
MOV
MOV
MOV

INTERRUPTED

;REMOVE ENTRY FROM SUBROUT STACK

DRIVE READY

RDYCHK: MOv

;CKECK IF

;YES - SKIP
;DEC WAIT COUNT

#2,SSINDX

PC
a(SP), (SP)
PC

99%:

:TEST JF HEAD O

;YES - SKIP
;s INSERT HEAD BIT
;INSERT MARKER BIT
:CLEAR INTERRUPT FLAG
;SET WAIT COUNT FOR 800US
JLOAD RL REGISTERS

;CLEAR FOR ERROR ERROR RETURN

(SP)+,R3
ERRSWI
99%
ERRSWI, (SP)

002720

:NO -~ SK]P

:INSERT SIGN

ERRSWI
(SP)+ R4
(SP)+,RO

002720

346
703
723

#DIRBIT,(R4)
DESHD

5%:

&H NNNOOOONS NWWNO
OW~ND
~
S WO
\v ]

Y IV IV
~n

526

O—-OODO

970
97
972
973

510

961
962
963
964
965
966
967
968
969

001402
052714
005737
001402
052714
052724
005037
012701
0146462
014462
014462
005737
001016
005301
001406

OO0

956
955
956
957
958
959
960

CHECKS DEIVE

IS READY.

NOT,

: STORE REGS
;GET SUBROUTINE INDEX
;BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL
M4 ,SUBSTK(R3)
¢ADJUST IT TO CALLING LOCATION
R3,SSINDX
:STORE IT BACK

RO,=(SP)
R1,-(SP)
R ,=(SP)

#2 ,ERRSWI

:SET FOR NO ERROR RETURN

#5000, ,R1

PC,GSTAT

¢SET WAIT COUNT
:GET DRIVE STATUS

#DRDYMSK,T.CS

;TEST

’
¥ ,RO

IF DRIVE READY

JYES = EXIT

WAIT

1086
1087
1088
1089
1090
1091

104443

023432
012324
012701
004737

020004
032737
001005

012700
106026
005301
001364
032737
001405

1092
1093
1094
1095
1096

4
(=X =]

ocosr

~N =~~~
NP
—

722
724

1046027
005301
001364
012703
012704

—

702
706
706
710

NNNNNNNNSNN

1081
1082
1083
1084
1085

MACRO v03.01 9-FEB-79 19:14:22 PAGE 3-22

ASSEMBLY ROUTINES

000062
015720

000001

2%:

002746

000001

100000

002746

020000
020004

020010

020016
020020
020022
020024
020026
020032
020034
020040
020042
020046

020050
020054
020062

020064
020072

023433
012374
005337
005037
162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

005037

EMI
DEC
BNE
Mov
MOv
ERRMRD
TRAP
.WORD
.WORD
Mov
JSR
4%
BIT
BNE
WAITMS
MOV
EMT
DEL
BNE
Bl
BEQ

#DROYMSK,T.CS
33
#1
#1,RO
CSWTM
R1
23
#ANYERR,T.CS
4$

TRAP

TSERCODE

-WORD
DEC
CLR

ERR6
ERRCNT
ERRSW]

¢REDUCE ERROR COUNT FOR DUAL ERRORS
;CLEAR FOR ERROR RETURN

MOV

(SP)+ R4

+RESTORE REGS

ERRHRD

104443

.WORD

003052
002720
000002

002704

4%:

5%:

SuB

MOV
MOV
MOV

002720
002720
99%:

003014
010000

013712

013720

003014

CHOSHD:
1$:

CSwiv
R1
1%
#MDRDY ,R3
#C500MS R4
10010.,,ERRS
TSERCODE
10010
ERRS
#50. ,R1
PC,GSTAT

10011,, ,ERR6

020102
020104
020110
020112
020120
020124
020126

010000

013712

000000

TEST IF DRIVE READY
;YES - SKIP
;WAIT FOR 100MS
;DEC WAIT

COUNTER

;LOOP UNTIL TIME DONE
¢TEST IF ANYERR SET
:NO - SK]P

;REPORT ALL ERRORS

(SP)+ ,R1
(SP)+,RO
(SP)+ ,R3

ERRSWI
99%

MOV
RTS

a(SP), (SP)
PC

.
sTEST 1F ERROR -RETURN
JYES - SKIP

SERSUI.(SP)

;ADD

IN ERROR RETURN

;SET ERROR RETURN ADDRESS

CHOSE HEAD ROUTINE. PI1CKS HEAD O UNLESS SPECIFIC HEAD
SELECTED BY SOFTWARE PARAMETER.
CLR
DESHD
:CLEAR TO HEAD O
81T
WFHEADLM MISWIW
TEST IF HEAD SPECIFIED
BEQ
1%
+NO - SKIP
MOV
RTS

HEADW ,DESHD
PC

s INSERT

SPECIFIED HEAD

CHANGES SELECTED HEAD TO HEAD 1

UNLESS HEAD O SPECIFICALLY SELECTED BY SOFTWARE PARAMETER.

SWAPHD: BIT

003014
000001
000002

;SET WAIT COUNT FOR 5 SECONDS
;GET DRIVE STATUS

;REMOVE ENTRY FROM SUBROUT STACK

#2,SSINDX

SWAP HEAD ROUTINE.

020074

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

10011

1§71
BEQ

3?2

000020

SEQ 0077

BNE

FHEADLM MISWIW
2%

TEST IF HEAD SPEC]FIED
:YES - TAKE ABORT EXIT

BNE

sYES - TAKE ABORT EXIT

PC
a(SP), (SP)

sRETURN
;GET ABORI DESTINATION

181

003014

MOV
ADD

2$:

RTS
MoV

DESHD

#1,DESHD
#2,(SP)

:TEST

HEAD ONE USED

:ELSE SET FOR HEAD ONE
:BUMP PAST ABORT RETURN

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB=79

19:14:22 PAGE

SEQ 0078

}}%8 020132

000207

3%:

113
1132 020134
1133 020136
1136 020142

010046
013700
0137§7

;
SWAP OLD CYLINDER AND NEW CYLINDER ROUTINE.
ONSWAP: MOV
RO,-(SP)
:STORE RO
MoV
oLDCYL,RO
;MOVE OLD TO RO
MOV
NEWCYL,OLDCYL
;MOVE NEW TO OLD

1135 020150

1136 020154
}}gg 020156

010037

012600
000207

1153
1156
1155
1156
1157
1158
1159
1160
1161
Y162

020176
020202
020204
020212
020220

013703
005723
016663
162763
010337

1164
1165
1166
1167
1168
1169

020226
020230
020232
0202640
020244
020246

010146
010446
012737
005737
001007
012703

020160
020166
020170
020174

1163 020224

1170 020252
1171 020256

1172
1173
1174
1175
1176
1177
1178

012737
000402
005037
010346

010046

012701
014346

020260
020262
020264
020270
020272
020276
020302

005301
001375
004737
020524
005037
012701
013711

1183 020322

1179
1180
1181
1182

020306
020312
020316
020320

1184 020326
1185 020332

1186 020336
020336
020342
1187 020344
1188 020350
1189 020352
1190 020360
1191 020362
1192 020366

1193 020372
020372

020374
020376

1196 020400

003002
003004
003004

000001

003002

003030

002704

000002
003030

MoV

MoV
RTS

003030

000002
000004
002704

RTS

3-23

002306
002306

MOV
MOV
mov
1ST
BNE
MOV

002720

002746

19:

MoV
Mov

002710
002736
002734

DEC
BNE
JSR
65%
CLR
Mov
MOV

014162

000004

[ [0]"

012700
104027

000012

032737

000001

042711
052721
005021
005021

014162
014162

005737
001455

001033
012703
012704

017610

002000
000110

012701

BIC
BIS
CLR
CLR

3%:

002710

010013
011031

104443

023441
012324

2%:

000002
000000

000062

002746

RO, NEWCYL

(SP)+,RO
PC

;PUT OLD IN NEW

:RESTORE RO

:
READ HEADERS ROUTINE.
XRDHDC: MOV
#1,TEMPS
:SET FLAG TO BYPASS REG STORAGE
BR
XRDHDG
:60 DO 17
XRDHD:
(LR
TEMP4
JSET FLAG TO SAVE T, AMD L. REGS
XRDHDG- MOV
R3,-(SP)
:STORE REGISTERS
MoV
SSINDX,R3
;GET SUBROUTINE INDEX
1987
(R3)+
JBUMP IT FOR NEXT ENTRY
Mov
2(SP) ,SUBSTK(R3) :INSERT THIS CALL
SUB
#4,5UBSTK(R3)
sADJUST 1T TO CALLING LOCATION
MOV
R3,SSINDX
JSTORE [T BACK

[ [#]"

000004

5%:

MOV
MOV

WAITUS
Mov
EM1
187
BEQ
BIT
BNE
MOV
MOV

ERRHRD
TRAP

.WORD
.WORD

MOV

RO,-(SP)

R1,-(SP)
R4 ,-(SP)
#2 ,ERRSWI
TEMPS
2%
#L.MP+2,R3

#4 R
=-(R3),=-(SP)
R1
1%
PC.RDYCHK

;SET FOR NO ERROR RETURN
sTEST IF REGISTERS TO BE SAVED
;:NO = SKIP
sSET POINTER FOR REGS
:SET COUNT
:SAVE REGISTER
:DEC COUNT
:LOOP UNTIL ALL ARE SAVED
;CHECK DRIVE READY

DONE
#L.CS,RT
RLDRV, (R1)

:CLEAR INTERRUPT FLAG
;GET ADDRESS OF LOAD REGS
;LOAD DRIVE NUMBER

#BI1T10,(RY)
#ROHEAD,(R1)+¢
(R1)¢
(R1)+

=(R1),RLDA(R2)

=(R1),RLBA(R2)
=(R1),RLCSR(R2)

#10.
#10.,R0
(& I (V)
DONE
148
#DROYMSK,T.CS
10%
#MDRDY ,R3
WCAFDT R4

10017., ,ERRS
TSERCODE

10017
ERRS

#50..R1

;CLEAR FOR DRIVE &4 - 7 SPEC'D
: INSERT COMMAND
:CLEAR BA
:CLEAR DA

;LOAD RL11 REGS
;WAIT

1MS FOR INTERRUPT

sTEST IN INTERRUPT FLAG SET
;NO - SKIP

;TEST

IF DRIVE READY

;YES - SKIP
;SET NO READY MESSAGE
;CONDITION OF AFTER DATA xFER

;SET WALT

COUNT

FOR S5 SECONDS

—=OOD00 NN

ROUTINES

OO0 VOVLVO

PINININI
) =t b ot et i

ASSEMBLY

0000601

4%:

002746

002720
11%:

012704

011042

b e e e i e et O
OV
NN = OO0

104443

023436
012324
000424
005737
100004

104443
023440
012374
000415
012701
016221
016221
000410
004737
012603

002746

10%:

002756
000006
000006

12%:

015520

14%:

60%:
65%:

s e

—=0O 000~

002736
000004

WVWES W

BR
JSR

ERRHRD

002720
003030

20%:

002704

22%:

000002

002720

TRAP
.WORD
.WORD
-

CLR
1S1
BNE

Mov
MOV
MOV

DEC
BNE
SuB
MOV
MOv
MOV
Mov

1ST
BEQ

002720

013705
000402
013705
010146
042705

.WORD
.WORD
BR
151
BPL
ERRHRD
TRAP
.WORD
.WORD
BR
MOV
MOV
.

MOV

104443

PO NI RO NI RN PN PNV PO N

020610
020614
020616
020622
020624

BtaQ
CLR
BR
DEC
BNE

MOV

023437

000207

JSR
60%
Bl

MOv
ERRHRD
TRAP

015720

OO0

et = AP AN AN LN NN

NO NS WO VNS W

— et b e

i
e
el
e
e

—

et —
=D i
o
i
)
D
i
D
i el
D
i
d o
D
d
D v
i
D
e
e
—

[CAVIIVIIVIWIV
1,U1 FL U1 WY V1 CY VY VL U UL VY N1, CL SR VL ST V] V] V) N

mnd

—

ol cmh

020404
0206410
020412
020420
020422
020426
020430
020432
020434
020440
020440
020442
020644
1205 020446
1206 020450
1207 020454
1208 020456
020656
020460
020462
020464
020466
020472
0206476
020502
020504
020510
020512
020512
02051¢
020516
020520
020524
020530
020532
020536
020542
020544
020546
020550
020556
020560
020562
020564
020566
020572
020574
020600
02060¢
020600

MACRO v03.01 9-FEB-79 19:14:22 PAGE

ADD
RTS
MOv
RTS

000000

99¢:

002754

POSHW!: MOv

002754

POSHSB:

177677

3-24

SEQ 0079

PC,GSTAT

;GET STATUS

#ORDYMSK,T.(CS

;TEST IF DRIVE MAS COME
;NO - SKIP

11%
ERRSW]
10%
R1
4%
#CSSEC,RG
, ,ERRS
10014,
TSERCODE
10014

ERRS
60%
1.CS

12%
10016., ,ERRG

TSERCODE

READY

;CLEAR ERROR SWIT(H
;SKIP
;DEC WAIT COUNT
:LOOP UNTIL TIME DONE

:SET CONDITION AFTER S SECONDS

JEXIT
;CHECKX FOR ANY ERRORS
;NO - SKIP
;REPORT ALL ERRORS

10016
ERR6

60%

#HDWRD?
,R1
RLMP(R2), (R1)+
RLMP(R2),(R1)+
65%

;GET POINTER

(SP)+,R3
10015., ,ERR]

;GET RESULTS
sREPORT

PC,WAITIN

TSERCODE
10015

ERR]

.STORE LAST TWO HEADER WORDS
JEXIT
sWAIT

FOR

INTERRUPT

ERRSWI
TEMPS

;:CLEAR FOR ERROR ERROR RETURN
;TEST IF REGISTERS WERE SAVED

#L.CS,R3

;SET POINTER TO RESTORE REGS
:SET COUNT
;RESTORE REGISTER
;DEC COUNT
;LOOP UNTIL ALL ARE RESTORED
;REMOVE ENTRY FROM SUBROUT STACK

22%

re R
(SP)+,(R3)+
R1

20%

#2,SSINDX
(SP)+ R4

(SP)+,R1

(SP)+,RO
(SP)+,R3

;N0 -

SKIP

;RESTORE

REGS

ERRSWI
99%
ERRSWI, (SP)

;TEST 1F ERROR RETURN
;YES - SKIP
:ADD IN ERROR RETURN

a(SP), (SP)

;SET ERROR RETURN ADDRESS

POSITION HEAD BlT ¥FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.

POSHDO:

HDWRD1,R5
POSHOO

;START FOR POS11I1ON HD BIT IN WD 1

BIC

R1,=(SP)
#ACHSSTAT,RS

;STORE R

MOV
MOv

; SK1P

T.MP,RS :START FOR POSITION HD BIT IN MP
;CLEAR ALl

BUT

HEAD SEL BIT

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79 i9:14:22 PAGE

3-25

Sea 0080

020642
020644

020646
020650
020654
020656
020664
020672
020676
020700
020702
020704
020712

020716
020720
020726
020730
020732
020734
020734
020740
020742
020744
020750
020750
020752
020754
020756
020762
020766
020770
020776
021000
021000
021004
021006
021010
021012
021016
021016
021020
021022
021024
021026
021034
021036
021036
021040
021042
021044

012701
00620%
005301
001375
012601
000207

010346
013703
005723
016663
162763
010337
010046
010146
010446
012737
004737
021050
032737
001052
005301
001404

012700
104027
000763
012703

000006

1%:

012700
104026

005301
001364
012704

104443
023445
012324
000407
032737
001405

106443
023446
012374
005337

;SET SH] FT COUNT
JSHIFT FOR RI GHT JUSTIFY

Mov
RTS

;RESTORE R1

BNE

RDYWAIT:

002704

000002
000004
002704

002306
002306

000002
015720

002720

000001

002746

5¢:

010013

7%:

000062
015720
000001

6%:

002746

00000

EMT
BR

MOV

ERRHRD
TRAP
.WORD
.WORD
MOV
JSR

10%
BIY
BNE
WAITMS

MOv

011042

100000

MOV
1581
MOv
SuB
MOv
MOv
MOV
MOv
Mov
JSR
108

WAITUS
MOV

000001

002746

8%:

EMT
DEC
BNE
MOV
ERRHRD
TRAP
.WORD
.WORD
BR

BIT
BEQ
ERRHRD
TRAP

003052

11¢:

sRETURN

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

BIT
BNE
DEC
BEQ

104443
023444

012206
012701
004737
021050
032737
001013

MOv
ASR
DEC

.WORD
.WORD
DEC

WAIT PASSED TO THE ROUTINE

Mov
R3,-(SP)
;STORE R3
SSINDX,R3
:GET SUBROUTINE INDEX
(R3)+
sBUMP 1T FOR NEXT ENTRY
2(SP),SUBSTKTR3) ; INSERT THIS CALL
¥4 ,SUBSTK(R3)

R3,SSINDX
RO,=-(SP)

¢ADJUST 1T 1O CALLING LOCATION
:STORE 1T BACK

R1,-(SP)

R4 ,-(5P)

#2 ,ERRSWI
PC,GSTAT

;SET FOR NO ERROR RETURN
;GET DRIVE STATUS

#DRDYMSK,T.CS

;CHECK

READY

9%
R1
7%
"
#1,RO

:YES =~ SKIP
;DEC WAIT COUNT

#MDRDY,R3
10020.,,ERR3
TSERCODE

;SET NAME MESSAGE PTR
:REPORT READY ERROR

CSWTU
5%

JSKIP IF

10020

ERR3

#50. ,R1
PC,GSTAT

;SET WAIT COUNT FOR 5 SECONDS
;GET DRIVE STATUS

#DRDYMSK,T.CS

;TEST IF DRIVE
;YES - SKIP

¥ ,RO

CSWwTM
R1
6%
#C5SEC,RG
10021., ,ERRS
TSERCODE
10021

ERRS

sWAIT

READY

100 MS

:DEC WAIT COUNTY
;LOOP UNTIL TIME DONE

;SET CONDITION AFTER 5 SECDS

11%

JEX1T

10%
10022., ,ERRG
TSERCODE
10022
ERR6
ERRCNT

:NO - SKIP
;REPORT ALL ERRORS

#ANYERR,T.CS

¢TEST

ANY

ERROR

SE!

;DEC FOR DOUBLE ERROR REPORT

ASSERBLY ROUTINES

021050
021054
021062
021064
021066
021070
021072
021076
021100
02110¢
021106
021112

005037
162737

012604
012601
012600
012603
005757
001403
063716
000207

017616
000207

002720
000002

9-FEB-79 19:14:22 PAGE

002704

10%:
:
9%

002720

CLR
SuB

MOV
MOV
MOV
MOV
187

BEQ

002720
000000

99%-

ADD
RIS
MOV
RTS

GET

010346
013703
005723
016663
162763

010337
010046
010546
004737
021204
013703

012705
006203

005305
001375
042703
010337
162737
012605
012600
012603
005737
001403
063716
000207
021240

017616

000207

GETPOS: MOV

000002
000004

002704

MOV
TS7
MOV
SUB
MOV
MOV
MOV

002306
002306

020170

002754

000007

4%:

177000

003006
000002

002704

65%:

002720

99%:

sADD

IN ERROR

géSP).(SP)

;SET

ERROR RETURN ADDRESS

1T 1S PRESENTLY
IN CURCYL.

RETURN

READS A HEADER FROM CURRENT
POSITIONED)

AND

STORES

R3,-(SP)
;STORE REGISTERS
SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
;BUMP 17 FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST 1T TO CALLING LOCATION
R3,SSINDX
;STORE 1T BACK
RO,=-(SP)
RS,=-(SP)
;D0 READ HEADER

MOV
MOV
ASR
DEC
BNE
BIC
MOV
SUB
MOV
MoV
MOV

HDWRD1,R3
#7,RS
R3
RS
4%
#177000,R3
R3,CURCYL
¥2,SSINDX
(SP)+,R5
(SP)+,R0
(SP)+,R3

:GET HEADER WORD
;SET SHIFT COUNT
sSHIFT TO RIGHT JUSTIFY

BEQ

99%

MOV
RTS

CYLINDER

PC,XRDHD

3?2

000000

;RESTORE R3
;TEST IF ERROR RETURN
;YES - SK]P

POSITION ROUTINE.

;CLEAR FOR ERROR ERROR RETURN
;REMOVE ENTRY FROM SUBROUT STA(CK
;RESTORE REGISTERS

gg:

TS1

002720

SEQ 0081

ERRSWI
#2,SSINDX
(SP)+ R4
(SP)+ ,R1
(SP)+,R0
(SP)+,R3
ERRSWI
99%

ngSHI,(SP)

(WHERE
NUMBER

002704

3-26
-

;STORE AS CURRENT CYLINDER
sREMOVE ENTRY FROM SUBROUT STA(CK
JRESTORE REGISTERS

ERRSWI

;TEST

EgRSUI,(SP)

:ADD

IN ERROR

;SET

ERROR RETURN ADDRESS

a(SP), (SP)
PC

ERROR RETURN

;YES = SKIP

RETURN

021242
021244
021250
021252
021260
021266
021272
021274
021276
021300
021306

NHNVOOODOONO NWNO
NN = OW NG NN
OWH BB WNOoOONNO
S
— N
OO NWNNWNO

?EA?BA%% HEADERS ROUTINE. 40 HEADERS ARE READ AND STORED
lalalelolalel doleleloe)

1362
1363
1364
1365
1366

MACRO v03.01

RDALHD: MOV

002704
000002
000004
002704

002306
002306

000002
000050

002720

MOV
187

[0}
SUB
MOV
MOV
MOV

MOV

MOV
MOV

UFF.

R3,-(SP)
;STORE REGISTERS
SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL

¥4 ,SUBSTK(RY)
R3,SSINDX
RO,=-(SP)
R1,=-(SP)

sADJUST 1T TO CALLING LOCATION
:STORE 1T BACK

#2,ERRSWI
040, R

;SET FOR NO ERROR RETURN
;SET HEADER (OUNT

R4 ,-(SP)

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79 19:16:22 PAGE

3-27

SeQ 0082
1447
1448
1449
1450
1651
1452
1453
14654
1455
1456
1457
1458
1459
1460

100000
003656
002730
000006
000010
002734
002000
002740
002742
003014
000020
002742
002740

1461
1462
1463
1464
1465

000200

1475
1476
1477
1478
1479

1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494

1495

1496
1497 021602

002736
002736
002736

002742
000004
000002
000000

3%:

10444643
023651
012072

005037
000416
005737
100006

Jgg

162737
012604

012601
012600
012603
005737
001403
063716
000207
017616
000207

JYES - SKIP

;LOAD RLCS REG

PC.,RDYCHK

;ELSE CHECK READY

000000

6%:

MOV

L.CS,RLCS(R2)

000200

000000

7%:

BIT
BNE
DEC
BNE
JSR

#CRDYMSK,RLCSC(R2) :CHECK THAT OPERATION COMPLETED
8%
;YES - SKIP
RO
;DEC COUNT
7%
;SKIP IF NOT YET O
PC,READRL
;ELSE GET ALL REGISTERS

MoV

(SP)+,R3

015466
015520

MOV

JSR

ERRHRD
TRAP

.WORD
.WORD
gkn

002720
002746

8%:

106443

023652
012374
005037
000405
011423
011423
011423
005301
001334

#HDRSGO,0PFLAG
;SET 40 HDR OP FLAG
#1BUFF ,R3
:SET POINTER TO STORE HMDRS
RLBAS,R4
;GET BASE ADDRESS
#RLMP R4
;MAKE 1T POINT TO MP REG
#10,L.CS
;LOAD FOR READ HEADER, NO INTERRUPT
RLORV,L.CS
;INSERT DRIVE NUMBER
#MB1T10,L.CS
JCLEAR FOR DRIVE & - 7 SPEC'D
L.BA
:CLEAR BA
L.DA
:CLEAR DA
DESHD
;TEST IF HEAD O
3%
sYES - SKIP
#HDSEL,L.DA
.
;ELSE INSERT HEAD O
L.DA,RLDA(R2)
;LOAD RLDA REG
L.BA,RLBA(RZ)
;LOAD RLBA
#CRDYMSK,RLCS(R2)
;TEST IF CONTROLLER READY

002736

077777

012603

BIS
MOV
MOov
ADD
MOV
BIS
BlC
CLR
CLR
1S1
BEQ
BIS
MOV
MOV
817
BNE

017610

1466

1467
1468
1469
1470
16471
16472
1473
1474

002706

187
8PL
ERRHRD

12%:

000002

002704

65%:

002720

000000

99%:

10025.,.ERR1

10025
ERR1
Eggsul

1.CS
12%
10026., .ERR6

.WORD

ERR6

MOV
MOV
MOV

(R&),(R3) ¢
(R&),(R3)+
(R&4),(R3)
¢

(LR
B8R

;ELSE WAIT FOR TIMEOUT

;GET RESULT MESSAGE POINTER

;CLEAR FOR ERROR RETURN
;TEST FOR ANY ERRORS
:NO - SKI]P

10026

Eggsul
6

DEC
BNE
SUB

R1
6%
#2,SSINDX

MOV
MOV
MOV

(SP)+,R1
(SP)+,RO
(SP)+,R3

MOV

;SET COUNT FOR WAIT

T$ERCODE

(SP)+ R4

;CLEAR FOR ERROR RETURN
;STORE HEADER WORDS

;DEC HEADER COUNT
sREMOVE ENTRY FROM SUBRQOUT
;RESTORE

REGISTERS

1S1

ERRSWI

;TEST

s?g

S?Rsul.(sp)

;ADD IN ERROR RETURN

BEQ

002720

PC,WALITIN

TRAP

LWORD

002720

#77777,.R0

M?g
R

99¢%

g(sp),(sp)
(

IF ERROR RETURN

;YES = SKIP

;SET ERROR RETURN ADDRESS

STACK

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79 19:14:22 PAGE

3-28

SEQ 0083

1498

1499

021604
021606
021612
021614
021620
021620
021624
021630
021634
021636
021640
1735 021644
021644
021650
021654
021660
021662
021664
021670
021674
021700
021702
021702
021706
021712
021716
021722
021724
021726
021732
021740
021744
021750
021754
021756
021764
021770
021772
022000
022004
022006
022014
022014
022020
022024
022030
022034
022036
022040
i753 022044
1754 022050
1795 022052

010446
005757

RP1OP:

002704

8taQ

000002

3%:

002306
011534
000002
000006
000002
002704

1%:

006273

002714
011164
000003

MOV

BSEQMES,
- (SP)

FEMTY,-(SP)
#2,-(SP)

EM7

CSPNTB

002706

020000

002706

002126
005306
011142
000003

WFMT4L , ERHEAD ,#TSTLAB

MOv
Mov

ERHEAD ,=(SP)
FEMTSG,-(SP)

R&,SSINDX
3%

:PRINT

CALLING LOCATION

INDEX

sCHECK [F ALL PRINTED
.LOOP 1F NOT ALL PRINTED YET

#ISTLAB,=(SP)

;PRINT

ERROR HEADER

ADD
BIC
MOv

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

2%:

CMP
BNE
BIS
(MP

#6,R1
TEST IF SEEX
2$
:NO #SEEKOP,OPFLAG
ELSE
M2.R1
JTEST

20%:

8IS
cMp

#RORWOP ,OPFLAG
#14,R1

22%:

BNE

BIS
PRINTB
MOV
MOV
MOV
MoV

EM1

ADD
(Mp

002742

SEQ"

#3,-(SP)
SP,RO

MOV

000010
000004

CALL

SP,RO

PRINTB

Mmov

INDEXER TO FIRST ENTRY

;PRINT '‘SUBROUTINE

#6,5P
W#FMT16,SUBSTK(R4)
SUBSTK(R4) ,=-(SP)
NEMT16,-(SP)
#2,-(SP)
SP,RO
CSPNIB
¥6,SP
N2 ,RG
:BUMP

8lC

020000
000014

:SKIP IF 0

sSET

ADD
PRINTB
MOv
Mov
MOV
MoV
EMT
ADD
ADD

(MpP
BLE

SEQUENCE

MOv
MOV

002706

WFMT9,#SEQMES

MOov
MOv

EMT

010000
000012

000010

N2 ,R4

MOV

000006

MOv

PRINTB

007662
011361
000002

000010
030000
002736
177741
000006

REPORT OPERATION ROUTINE. PRINTS SUBROUTINE TRACE
OPERATION BEING PERFORMED PORTION OF ALL
ERROR MESSAGES.
MOV
R4 ,=-(SP)
1ST
SSINDX
:TEST SUBROUTINE INDEX 0

BNE

Bl11

(SPNTB

177741 ,R1

¢STRIP ALL BUT FUNCTION CODE

20%

:NO - SKIP

22%

:NO - SK]P

OPERATION
SKIP
SET SEEK FLAG
If WRITE

;SET RD OR WRT
;TEST 1f READ

FLAG

#RORWOP ,OPFLAG
;SET RD OR WRT FLAG
#FMT1, #MOPER,OPMSGS(R1) ;PRINT OPERA'ION
OPMSGS(R1) ,=(SP)
#MOPER,-(SP)

NEMT1,=-(SP)
#3,-(SP)
SP,RO

(SPNTB

#10,sP
R1,84

JCHECK

#DRSET,L.DA

STEST IF RESET INCLUDED

3 )

+NO - SKIF

GET

STATUS

FLAG

AND

ASSEMBLY

17 56
17 5 7
1758
1759
1760
1761
1762

022060
022062
022066
022070
022076
022100

022104
1763 022110
1764 022114

1765
1766
1767
1768

1773
1774
1778
1776

MACRO v03.01

ROUTINES

022116
022120
022122
022124
022124
022130
022134
022140
022142
022144
022150
022156
022160
022164
022164
022170
022174
022200
022202
022204
022210
022212
022220
022222
022222
022226

001403
012701
000436
032737
001424
013704
0127G1
032704
001003
005721

BEQ

000016

007777

MOV

BIT
BEQ

002706

000020
000001

5%:

000050

16146
12746
12746

002126
011156
000002

6%:

002126
011156
000002
000006

014

81T
BNE

100000

002706

8%:
9%:

000024
020000

003016
007627
003014
007623
003006
007634
(ARRES
000007

PRINTB
MOV
MOV
MoV
MOV
ADD

817
BtQ

002706

10%:

#COMPOP,OPFLAG

;TEST

#20,R1
#81700,R4

;PRESET THE POINTER
;CHECK THE BIT

(R1)+

;BUMP POINTER

8%
OPFLAG,RG

6%
R4

ADD

BEQ
PRINTB

MOV
MOV
MOV
MOv
MOV
MOV
MOv
MOv

ANY

OTHER OPERATION

;NO - SKIP
;SET UP TO DETERMINE WHICH ONE

;1F

SET = SKIP

#FNT2,0PASGS(RY)
OPMSGS(R1) ,=(SP)
AFMT2,
- (SP)
#2,-(SP)
SP RO

CSPNTB

#6,5P
#HDR4O,OPFLAG

108
#50,R1

#6,5P

EMT

002706

;NO - SK]P
;SET TO PRINT WITH RESET

ADD

BR
BIT
BEQ

SEQ 0084

49
;lb.k1

OPMSGS (R1),=(SP)
FEMT2,-(SP)

PRINTB
MOv
MoV
MOv
Mov
MOV
MOov
MOV
MOv
MOv
MOV
Mov

15¢%:

3-29

MOv
PRINTB
MOv
MOv
MOv
MOV

EMT

000006

010000

EMY

003014
007623
003012
007616
003010
007610
003002
00764
011402
000011

022246
022252
022256
022262
022266

MOv
MOV

TS1
ASR

016146
012746
012746
010600
104014
062706
032737
001415
012701

010600
104014
062706
0004 34
032737
001430

002706

006204
000772

022232
022236
022242

022272
022274
022276
1777 022302
1778 022310
1779 022312
022312
022316
022322
022326
022332
0c2336
022342
022346

9-FEB-79 19:16:22 PAGE

#EMT2,0PMSGS(R1)

,
;TEST

40 HEADER OPERATION

INO - SKIP
ELSE PRINT

#2,-(SPF)

SP.RO
CSPNTB
15¢

#SEEKOP,OPFLAG

;SKIP
TEST

SEEK

;TEST

READ OR WRITE

15%
;NO - SK]P
NEMTI3, #FRMWD,OLDCYL ,#D1FWD,DESDIF ,#SGNWD,DESSGN, #HDWD , DE SHD
DESHD,-(SP)
#HOWD
, - (SP)
DESSGN,-(SP)

#SGNWD
, - (SP)

DESDIF ,-(SP)
#DIFWD,-(SP)

oLDCYL,-(SP)

#FRMWD
- (SP)
,

NEMT13,-(SP)
#1,-(SP)

SP,RO

CSPNTB

#2464 ,SP

#RORWOP ,OPFLAG

SET

17%
:NO - SK]P
NEMT22,8CYLWD,CURCYL
,#HDWD ,DESHD ,#SECWD,DESSEC
DESSEC,-(SP)
#SECWD,-(SP)

DESHD,=(SP)
#HDWD,
- (SP)

CURCYL,=(SP)

#C7LWD,-(SP)

NEMT22,-(SP)
#7,-(SP)

ASSEMBLY

MACRO v03.01

ROUTINES

022352
022356
022356
022362
022366
022370

1801

1802

1803
1804

106014

062706
004737
012604
000207

000020
023034

17%:

RPTRES:

SP,RO

ADD
JSR

#20,5P
PC,CLRPARM

RTS

MOv

REPORT

000010
010466

011366
010461

MOv

R4 ,-(SP)

:STORE

MoV
PRINTB
MOV

(R1)+,R3
.GET
#FMT1,1,#MRSLT,(R1)
(R1),-(SP)

Mov
MOV
34
ADD
cMp

#3,-(SP)
SP,RO
(SPNTB
#10,sP
(R1),#MNDRST

6%
FEMTI1T RS
(R1)+,8MCvLOC
38
SEMTI2 R4

#RESE3,-(SP)

000003
000010

Mov
MOv
EMT
ADD

#3,-(SP)
SP.RO
($PNTB
#10,SP

010712

MOv

Mov

PRINTB
MOv
MOv

Mov

MOV

011142
’

000010

NUMBER OF
;PRINT

PARAM

PARAM
NAME

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

;TEST

MESSAGE

IS NO DRv STATUS

;YES = SK]P REST OF RtPORT
;PRISET FOR FORMAT 11
;CHECK IF REPORTING CYLINDER LOC
:NO - SKIP
;ELSE CHANGE TO FORMAT 12

;DEC PARAM (OUNT
J1E 0 = EXIT
REPORT IS VALUE

R4, =-(SP)

R4, #RESE4,(R')+
(R1)+,=(SP)

REPORT

SB VALUE

#RESEL,-(SP)
R4 ,-(SP)

#3,-(SP)
SP,RO

MOV

#RESES,=(SP)

MOv

#3,-(SP)

MOv
6%:

:GET START OF

CSPNTB
»0,5P
#2,R3
;DEC PARAM (OQUNT
6%
J1F 0 = EX]T
W#FMT1 #RESES,(R1)+
;REPORT CONDITICN

MOV

000003

;STORE R3

EMT
ADD
SuB
BEQ

PRINTB
MoV

010717

FMRSLT ,-(SP)
FEMTY.1,-(SP)

Mov

000010
000002

014

#RE SPARM,R1

010706

PRINTB
MOv

000603

600

R3,-(SP)

R3
6%

3%:

;RESTORE

REASON ROUTINE

BNE
Mov
DEC
8EQ

011374

;(LEAR PARAM TABLE

;STORE

BEQ
Mov
CMP

(SP)+ R4

R1,-(SP)

MOv
Mov

000003

($PNTB

MOV

MOv

005315
011147

SEQ 0085

PRINTS REASON PORTION FOR ALL ERROR REPORTS.

MoV

002764

3-30

MOv

Eml

;

022406
022410
022414
022420
0224264
022426
022430
(22434
022440
022442
022446
022452
022454
022460
022462
022464
022464
022466
022472
022474
022500
022502
022504
022510
022510
022512
02256
022520
0225¢4
022526
022530
022534
022540
022542
022542
022544
022550

022554
022560
022562
022564
1805 002570

19:14:22 PAGE

010600

022372
022374
022376
022400
022404
022406

1792
1793
1794
1795
1796
1797
1798
1799
1800

9-FEB-79

EMT
ADD

MOV

(R1)+,=(SP)

#ENTY,=(SP)
SP,RO

($PNTB
#10,SP

(SP)+ R4

;RESTORE

REGS

ASSEMBLY ROUTINES

1806 022572
1807 022574
188% 022576

MACRO v03.01

012603
012601
000207

9-FEB~79 19:14:22 PAGE

MOov
MOV
RTS

3-31

(SP)+,R3
(SP)+,R1
PC

SEQ 0086

;RETURN

REPORT PHYSICAL AODRESS OF DEVICE UNDER TEST

022600
022600
022602
022606
022612
022616

1813

022622
022626
022632
022634
022636

1814 022642
022642
022646
022652
022656
022662
022666
022672
022676

b
s

—

005046
153716
012746
013746
0127646

012746
012746
010600
104014
062706

012746
0127646
012746
012746
012746
012746
012746
012746

PRINTB

002735
005743
002730
005732
011175
000005

000014
007623
007634
006046
006034
0060461
006027
011215
000007

022702
022704
022706
022712
022712

010600
104014
062706

000020

022736
022742
022746
022750
022752
022756
022756
022762
022766
022772
022776
023002
023006
023012
023016
023022
23024
023026
023032

013746
013746
013746
013746
012746

012746
012746
010600
104014
062706

002744
002740
002742
002736
006053

022716
022722
022726
022732

——

AND ALL REGISTER CONTENTS.

013746
013746
013746
013746
013746
013746

012746
(12746
012746
010600
104014
062706

000207

011327
000006
000C1¢
003014
003006
002754
002750
002752
002746

0060606
011257
000010
000022

CLR
B1SB
MOv
Mov
Mov

#FM15,#BASADD,RLBAS ,#DRVNAM,<B,RLDRV+1>
=(SP)
RLORV+1,(SP)
#DRVNAR,-(SP)
RLBAS,=(SP)
#BASADD,~(SP)

Mov
REMTS,=(SP)
MOV
#5,-(SP)
Mov
SP,RO
EMT
(SPNTB
ADD
#s,SP
REPORT RL11 REGISTERS
PRINTB WFMT6,#CSNAM,¥DANAM,
#BANAM FMPNAM, #(CYLWD ,#HDWD
Mov
#HOWD,
- (SP)
MOV
#CYLWD,-(SP)
MOV
#MPNAN, -(SP)
MOV
¥BANAM, -(SP)
mov
#DANAN, -(SP)
MOV
N#CSNAM,
- (SP)
MOV
FEMT6,-(SP)
N7,-(SP)
Mov

Mov
EMT
ADD
PRINTB
MOV

SP,RO
C$PNTB
#20,5P
WFMI8 #LABY,L.CS,L.DA,L.BA,L.MP
L.MP,=(SP)

Mov
MoV
MoV
EMY
ADD
PRINTB
MOV
Mov
MoV
MOV
MOV
MOV
MOV
MOV
Mov
MOV
EMT
ADD
RTS

NEMT8,-(SP)
¥6,-(SP)
SP,RO
CSPNTB
#16,5P
WFMT7,#LAB2,T.CS,T.DA,T.BA,T.MP,CURCYL,DESHD
DESHD,=(SP)
CURCYL,=(SP)
T.MP,=(SP)
T.BA,=(SP)
1.DA,-(5P)
1.CS,=-(SP)
#LABZ,~(SP)
NEMT?,=(SP)
#10,=(SP)
SP,RO
(SPNTB
n22,sP
PC

MOv
MOv
MOV
MOV

L.BA,=(SP)
L.DA,-(SP)
L.CS,-(5P)
#LABY,-(SP)

(LEAR PARAMETER BLOCK FQR RECQORTING

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:164:22

PAGE

3-32

Sew 0087

1820 023036
1821 023036
1822 023042

010546
012701
012705

1823 023046
1824 023050
1825 023052

005021
005305
001375

}ggg 023062

000207

1826 023054
1827 023060

1830 023064

0127C1
012605

002764
000005

CLRPARM:

2%:

002764

ENDMOD

MOv
MOov

(LR
DEC
BNE
MOv
Mov
RTS

MOV
R5,-(SP)
;STORE RS
#RESPARM,RI
;GET ADDRESS OF BLOCK
#5,RS
;SET COUNT
(R1)+
;CLEAR WORD
RS
;DEC COUNT
2%
;LOOP UNTIL O
FRESPARM,RI
JRESET POINTER
(SP)+ RS
;RESTORE RS
PC

CZRLIAQ RLOT/2 DR TST

1 MACRO v03.01 9-FEB=79 19:14:22 PAGE &
Sea 0088

TITLE

CZRLIAQ RLOV/2 DR TST 1

CZRLIAQ RLOY/2 DR TST

MACRO v03.01

9-FEB-79 19:14:22 PAGE

SEQ 0089
1

023064

4 023064
023064
5 023064
6 023070
7 023072
8 023076
9 023100
10 023106
023106

023110
023114
023120
023124
023130
0231346
023140
023144

023150
023152
023154
11 023160
12 023164
023164

023166
023170

023172
023174
023176
023200

13 023200

14
15
16
17
18
19

023204
023206
023212
023216
023220
023226

20 023230
21 023234
023234
023236
023240
22 023242
23 023250
24 023252
25 023256
023256
023260
023262
26 023264
27 023272
28 023274

29 023300
023300
023302

BONMOD

TJSBTTL

HRDWTST

«TEST

BGNTST
005737
00110
005737
100115
012737

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

005037

003252
013712

006301

002714

2$:

002735
005743
002730
005732
007544
007122
011050
000007

004256

104043

000404
004256

000120
007052
000001
005737

001740
004737
004737
023332
032737
001005

012703

104443
000145
012206
032737
001005
012703
104443
000146
012206
032737
001005
012703

104443
000147

10000%:

004256

015652
015704
000040

1%:
002754

010171

000010

002754

7%:

002754

9%:

010204

020000

010217

RASIC INTERFACE

(PART

;TESTON

1S1
BNE
TST
8PL
MoV
PRINTF
CLR

T1::
PASNUM
:CHECK IF FIRST PASS
65%
EXIT IF NO
MISWIW
;CHECK JF MANUAL INTERVENTION
65%
sNO - EXIT TEST
FMISTST ,ERHEAD
;LOAD ERR HEADER
#FMTOP1,#CPR1,#OPR1A,#BASADD
,RLBAS, #DRVYNAM,<B,RLDRV~1>
-(SP)

MoV
EMT
ADD
CLR
GMANIL
EMT

SP,RO
CSPNTF
#20,SP
OBUFF
:CLEAR FOR RESPONSE
OPROO2,0BUFF,1,NO
CSGMAN

BI1S8
MOV
MoV
Mov
MOV
mov
Mov
MOV

000020

RLDRV+1,(SP)
#DRVNAM,-(SP)
RLBAS,=-(SP)
#BASADD,~(SP)
#OPRIA,~-(SP)
#OPRY ,-(SP)
#EMTOPY,~-(SP)
#7,-(SP)

B8R
.WORD

10000%
OBUFF

187

OBUFF

JTEST

#COSTAT,T.MP
7%

;CHECK IF COVER OPEN SET
:YES - SKIP

.WORD
.WORD
.MORD

BEQ
JSR
JSR
65%
BIT
BNE

MOV
ERRHRD
TRAP
LWORD
.WORD
BIT
BNE
MoV
ERRHRD
TRAP
LWORD
.WORD
811
BNE
MOV

ERRHRD
TRAP
.WORD

TSCODE
OPROOZ2
1

2%
PC,TSTINY
PC,GSTAT(C

#MCOSTA,R3
101.,,ERR3
TSERCODE
101
ERR3
#BHSTAT, 1 .MP
9%
#MBHSTA,R3
102.,.ERR3
T$ERCODE
102
ERRS3
#WLSTAT,T.MP
1%
YMULSTA,RY

103.,,ERR3
T$ERCODE
103

RESPONSE

YES

:YES - SKIP
SINITIALIZE TEST
;60 GET STATUS (NO RESET)

;SET NAME POINTER

;TEST IF BRUSHES HOME
JYES - SKIP
:SET POINTER FOR BRUSH HOME ERROR

;TEST IF WRITE LOCK SET
sYES = SK]P
;SET NAME POINTER

CZRLIAOD RLO1/2 DR TST

*1EST

BASIC

023304

30 023306

31 023312
32 023314
33 023316
023316
023320
023322
36 023324
35 023330
36 023332
37 023332
023332
023332

012206

005737

001404
005003

104443
000159
013252
004737
023332

104001

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 5-1

INTERFACE

(PART

SeEa 0090

002762

11%:

015670

15%:
65%:
ENDTST
L10020:

.WORD

ERR3

BEQ
CLR
ERRHRD
TRAP
.WORD
.WORD
JSR
65%

15%
R3
104., ,ERR?7
TSERCODE
104
ERR7
PC,GSTATR

EMT

(SETST

18T

T.STAT

;TEST

STATE ZERO

JYES - SKIP
SSET STATE EXPECTED

;00 DRIVE RESET

(ZRLlAg RLOT/2 DR TST

*1EST

BASIC

INTERFACE

(PART

;

CSBTTL

3 023334
023334
& 023334
5 0233640
6 023342
7 023346
8 023350
9 023356
023356
023360
023364
023370
023374
023400
023404
023410
023414
023420
023422
023424

BGNTST

11 023430
12 023434
023434
023436

13
14
15
16
17
18
19

023440
023442
023444
023446
023450
023450
0234564
023456
023462
023466
023470
023476

20 023500
21 023504
023504
023506
023510
22 023512
23 023520
264 023522
25 023526
023526
023530
023532
26 023534
27 023534
023534
8 023534
2

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 6

005737
001075
005737
100072
012737
005046
153716
012746
013746
012746
012746
012746
012746
012746
010600
104017
062706
005037

003252
013712
006301

002714

002735
005743
002730
005732
007564
007200
01105C
000007
000020
004256

104043
000404
004256
600120
007052
000001
005737
001740
004737
004737
023534
032737
001405

012703

104443
000311
012140
032737
001405
012703

104443
000312
012140

104001

2%:

10000$:

004256
015652

1$:

015670
000040

002754

010171

020000

002754

9%:

010217

65%:
ENDTST
L10021:

«TEST 2

SEQ 0091

BASIC INTERFACE (PART 2)
JTEST 2

181
BNE
181
BPL
MOV
PRINTF
CLR
B1S8
Mov
Mov
mov
Mov
MOV
Mmov
MOV
MOov
EMT
ADD

12::
PASNUM
;TEST IF PASS 0
65%
:NO - SK]IP
MISWiw
sTEST IF MANUAL INTERVENTION
65%
:NO - SKIP
#NISTST,ERHEAD
;SET ERROR HEADER
#FMTOP1,#0PR2,#OPR1A,#BASADD
,RLBAS ,#DRVNAM, <B RLDRV+1>
=(SP)
RLDRV+1, (SP)
#ORVNAM,-(SP)
RLBAS ,-(SP)
#BASADD
- (SP)
#OPRIA,=(SP)
#OPR2,=(SP)
#FMTOP1,-(SP)
#7,-(SP)
SP,RO
CSPNTF
#20,5P

CLR
GMANIL
EMY
BR

OBUFF
;CLEAR FOR.RESPONSE
OPROOZ2,0BUFF,1,NO
CSGMAN
10000%

;COVER AND RESET WRITE

LOCK

.WORD
.WORD
.WORD
.WORD

OBUFF
T$CODE
OPROOZ
1

TST
BEQ
JSR

OBUFF
2%
PC,TSTINY
PC,GSTATR

;TEST 1F RESPONSE YES
:NO - SK]IP
JINITIALIZE TEST
sGET STATUS WITH RESET

#COSTAT,T.MP
9%

:TEST IF COVER OPEN RESET
;YES - SKIP

JSR
65%
BIT
BEQ

MOV
ERRHRD
TRAP
.WORD
.WORD
811
BEQ
MOV
ERRHRD
TRAP
.WORD
.WORD

EMT

#MCOSTA ,R3
201.,,ERR2
TSERCODE
201
ERR2
FULSTAT,T.MP
65%
IMWLSTA ,R3
202.,,ERR2
TSERCODE
202
ERR?

(SETST

;REQUEST CLOSE

:SET NAME MESSAGE POINTER

JTEST IF WRITE LOCK RESET
;YES = SKIP
:SET NAME MESSAGE POINTER

[RN

P
————

—

)

WA
— O OO0

— gt

RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
HEAD LOADING

W)
= OO0

nRoRLOROLRNY
—

CIRL
*TES

023536
023536
023536
023542
023564
023550
023552
023552
02355¢
023556
023562
023566
023570
023574
023576
023576
023600
023604
023610
023614
023620
023624
023630
023634
023640
023642
023644
023650
023654
023654
023656
023660
023662
023664
023666
023670
023670
023674
023676
023676
023700
023704
023710
023714
023720
023724
023730
023734
023740
023742
023744

.SBTTL
BGNTST

005737
001003
005737
1004G2
104032
001214
004737
004737
024770
005737
001440
005046
153716
012746
013746
012746
012746
012746
012746
012746
010600
104017
062706
005037

003252
013712
4%:

015652
015670

5%:

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

1%:

002735
005743
002730
005732
007544
007246
011050
00000/

000020
004256

023750 012737
023756 " 012703
023762 012737
023770 012701
023774 004737

100008%:

2%:
002735
005743
002730
005732
007544
007232
011050

.WORD
JSR
JSR
181
BEQ
PRINTE
CLR
81s8
Mov
MOV
Mov
MOV
MOV
Mov
Mov
Mov
EM1

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

002714
3%:

HEAD LOADING

;TESTO3

PASNUM
43
MISWIW

;TEST IF PASS O
;sNO SKI]IP
;TEST JF MANUAL

JYES - SKiP

CSEXIT
L10022-.

187

PC,TSTINT
PC,GSTAIR

T.STAT

;GET
;TEST

13::
INTERVENTION

JINITIALIZE
STATUS

STATE

;YES - SKIP

TEST

ZERO

#FMTOP1,0#0PRS,#OPR1A,#BASADD
,RLBAS ,#DRVNAM,<B,RLDRV+1>
-(SP)
RLDRV¢+1,(SP)
FDRVNAM,-(SP)
RLBAS,=(SP)
#BASADD,-(SP)
#OPR1A,=(SP)
#OPRS,=(SP)
#FMTOP1,-(SP)
#7,-(SP)

SP,RO
CSPNTF
#20,SP

OBUF F

ORUFF
T$CODE
?PROOZ

B1S8

RLORV+1,(SP)

PRINTF
CLR

ADD
MOV
MOV
MCv
MOV
JSR

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

#BASADD ,-(SP)

#OPRIA,=(SP)
#OPR3,=(SP)
#FEMTOP1,=-(SP)
#7,-(SP)

SP,RO
CSPNTF

#20,SP

NCYLUP,OPFLAG

;SET

CYCLE UP FLAG

ONSTACHG,ERHEAD

;SET

ERROR HEADER

;GET

STATUS

”,R3

#300.,R1

PC,GSTATC

:REQUEST DRIVE BE UNL

;CLEAR FOR RESPONSE

OPR002,0BUFF ,1,NO
CSGMAN
10000%

OBUFF
:TEST IF RESPONSE YES
1%
:NO - SKIP
ltg;?Pl.IOPRS.IOPR1A,#BASADD.RLBAS,#DRVNAM,<B,RLDRV*1>

EMT

002706

SEQ 0092

BEaQ

Mov
Mov
Mov
Mov
MOV
MOV
MOV
MOV

000007

000004
000001
006324
000454
015704

EXIT
Emt

ADD

004256

000020

157
BNE
151
BM]

1365%

002762

104043
000404
004256
000120
007052
000001
005737
001740

*TEST

;SET EXPECTED STATE VALUE
;SET WAIT

COUNT FOR 30 SECONDS

CZRLIAQ RLOT/2 DR TST

*TEST

26
25
26
27
28
29

026000
024002
024006
024010
0264012
024014
0264014
0264020
30 024022
31 0264026
32 024030
0264030
024032
0264034
024036
024040
024042
024044
33 024044
34 024050
35 024052
36 024054
37 024060
38 024062
026062
0264064
026066
39 024070
024070
024072

40
41
62
43
44
45
46
47

48
49
50

52
53

56
55
56

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE

HEAD LOADING

024074
0264100
024106
0264110
026112
024116
0264120
0264122

024122
0264124
0264126
024130
024130
024132
024134
024136
024140
024140
024144
0264146
024150
024150
024152
024154
024156
024164
0264166

024770
005737
001022
005301
001404
012763
104026
000764
005037

SEQ 0093

002762

000001

004256

6%:

104043
000404
004256
000120
007077
000001

005737
001004
000651
020337
001405

10001$:

004256
002762

10%:

11%:

104443
000455
013252

104032
000676

012701
012703
004737
024770
020337
001435
101005

000454
000002
015704

13%:
14%:

002762

104443
000656
013252

104443
000457
013252
032737
001010
012737

1365%
187
BNE
DEC
BEQ
WALTMS
MOV
EMT
BR
(LR
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

T.STAT
STEST IF STATE IS STILL O
10%
+NO - SKIP
R1
;DEC WAIT COUNT
63
SEXIT IF WAIT DONE
M
#,RO
(SWTM
3%
OBUF F
. CLEAR FOR RESPONSE
OPROOZ,0BUFF,1,NO
CSGMAN
10001$
OBUFF
T$CODE
OPROO3
1

TST
ENE
BR
CMp
BEQ
ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
.WORD

OBUF f
118
1%
R3,7.STAT
13%
301., ,ERR7
TSERCODE
301
ERR7
181
CSEXIT
L10022-.

MoV
MOV
JSR
1365%
(mp
BEQ
BH]
ERRHRD

17%:

000001
18%:

004000

002754

006336

002714

;CHECK JF NOW STATE
;YES - SKIP

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

R3,7.STAT
20%
17%
302.,,ERR7

s CHECK IF STATE 2
;YES = SKIP
;CHECK ]F NO CHANGE - YES - SKIP

TSERCODE
302
ERR7

.WORD

L10022-.

WAITMS
MOV
EMT
BR
ERRHRD
TRAP
.WORD
.WORD
Bl
BNE
MoV

#1
#,RO
CSWTM
14%
303.,,ERR?7
TSERCODE
303
ERR7
#SPDSTAT,T.MP
19%
#SPDERR,ERHEAD

DEC
BEQ

;TEST IF RESPONSE YES
;YES - REPORT

#300. ,R1
#2,R3
PC,GSTATC

TRAP
.WORD
.WORD

EXIT
EMT

104032
000636
005301
001404

012700
104026
000756

7-1

18T
CSEXIT

R1
18%

;OEC WAIT COUNT
;SKIP IF O

;TEST IF SPINDLE TIMEOUT
JYES - SKIP
;SET ERROR HEADER

CIRLIAQ RLOY/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
*TEST 3
HEAD LOADING

57 026174
58 024200
026200
024202
024204

59 024206

024206
024210
60 024212
61 024220
62 0264224
63 024230
64 024236
65 024240
024240
0242642
024244
66 024246
024246
024250
67 026252
68 024256
69 024262
70 026264
71 026272
72 026274

73 024276
74 024300
024300
024304

75 024306
76 024310

0264310
024312
024314

77 024316
026316

024320

78 024322
79 024326

80
81
8¢
83
84
85
86
87

88
89

024332
024334
024342
024344
024346
026350
024350
024354
024356
024360
024360
024362
024364
024366
024366
024370
024372

012703

010271

104463

001005

19%:

006301
01C731
010204
000010

002714

20%:

002754

22%:
23%:

000062
015704
000010

002754

MOV
MOV

26%:

27%:
28¢%:

000454
015704

000010

.WORD
EXIT
EMY
.WORD

MOV

JSR

1365%

MOV

104032

002754

EMT
BR
ERRHRD

000001

30%:

106443

000463
012324
104032

006324

002714

32%:

306., ,ERR3

SEQ 0094

;SET NAME MESSAGE POINTER

304
ERR3
181

CSEX1T
L10022-.

#MISTST ,ERHEAD

FSTATEZ2
R4
#MBHSTA,R3

FBHSTAT
T .MP

22%
305., ,ERRS

;SET ERROR HEADER
:SET CONDITION MESSAGE POINTER
:SET NAME MESSAGE POINTER
;TEST IF BRUSH HOME STILL SET
;YES - SKIP

TSERCODE

305
ERRS
1ST

CSEXIT

L10022~-.
#50. ,R1

PC,GSTATC

#BHSTAT ,T.MP

27%

;SET WAIT COUNT FOR 5 SECONDS
¢GET STATUS
;TEST IF BRUSH HOME RESET
;YES - SKIP

26%

;DEC WAIT COUNT
;SKIP If ZERO

CSWTM
23%

:LOOP

"
”,RO

TSERCODE

TRAP
.WORD
.WORD
EX]T

ERRG
1§17

MOV

#300.,R1

:SET WAIT COUNT 30 SECONDS

#BHSTAT,
T .MP

;TEST IF BRUSH HOME SET AGAIN
:YES - SKIP

EMT
.WORD
JSR

1365%
BIT
BNE
DEC
BEQ

000763

000400
012737

.WORD
MOV

BIT
BEQ
DEC
BEQ
WAITMS

000001

104447

1064026

EXIT
EMT

TRAP
.WORD

000462
012254

012700

TSERCODE

ERRHRD

001404

000450
012701
004737
024770
032737
001013
005301
001404

TRAP
.WORD
.WORD

BNE

106032

012700
106026
000763

#MSPERR,R3

BIT

104443
000461
012324

000520
012701
004737
024770
032737
00i413
005301

MOV

ERRHRD

000460
012206

7-2

306

CSEXIT
L10022-.
PC,GSTATC

32%

30%

WAL TMS
MOV
EMT

TRAP

TSERCODE

B8R
ERRHRD

.WORD
.WORD
EX]T
EMT
.WORD

MOv

:GET STATUS

SELSE DEC WAIT COUNT

JSKIP 1F 0

#1,R0
(SWTM
28%
307.,,ERRS
307
ERRS
18T

CSEXIT
L10022-.

INSTACHG,ERMEAD

:SET ERROR HEADER

CIRLIAQ RLOV/2 DR _TST 1 MACRO v03.01
*18ST 3
HEAD LOADING

S
—

—
—

—t

NN
= OO0
O

—l
md
s
el
sl
=B
el
el

NINUMNOUPOPVURNY
b b 2 =

BNy
—

0264400
026404
024410
0264412
024416
024420
024420
024422
024424
024426
024426
024430
024432
024440
024444
024450
026454
024456
024464
0246466
024466
024470
024472
105 024474
024474
024476
106 024500
107 024506
108 024510
109 024514
0264514
024516
024520
110 024522
024522
024524
024526
024534
024536
024542
024542
024544
024546
024550
024550
024552
024554
024560
024566
024572

024576

024600
0246064
024606
024610
024612
024612

012703

004737

026770
020337
001405

9-FEB-79 19:14:22 PAGE

SEQ 0095

000003

MoV

015704

JSR

1365%
(mp
BEQ
ERRHRD
TRAP
.WORD
.WORD

002762

106443
000464

013252

106032
000340
012737
012704
012703
004737
024770
032737
001005

ExIT

006301
010741
010230
015704

002714

00002C

002754

36%:

EMT
.WORD
Mov
MCv
MoV
JSR
1365%
811
BNE
ERRHRD
TRAP

104443
000465
012324

001000

002754

38$:

010160

.WORD
BI1
BNE
MOV

.WORD

EXIT
EMT

040000

002746

40$%:

010135

000467
012324
104032
000216

.WORD
BIT
BNE
Mov

ERRHRD
TRAP

104443

.WORD
.WORD

EXIT
EMT

012701
012737
012703
004737
024770
020337
001413
005301
001404

005670
006324
000004
015704

012700

000001

002762

002714

42%:

43%:

;CHECK

508..0FRR7

.WORD
Mov

Mov
MoV
JSR
1365%
(Mp
BEQ
DEC
BEQ

WAITUS

MoV

“GET

STATUS

STATE

;YES - SKIP

T$SERCODE

308
ERR7
181

CSEXIT
L10022-.

ERROR HEADER
CONDITION MESSAGE POINTER
NAME MESSAGE POINTER
STATUS

#MISTST,ERHEAD
#STATE3,RS
#MHOSTA,R3
PC,GSTATC

:SET
¢SET
:SET
;GET

#HOSTAT,T.MP

;TEST

IF HEADS QUT SET

;TEST

38%
SOQo‘pERRS

JYES -

SKIP

TSERCODE

C$EX]T
L10022-.

01232¢4

000244
032737
001007
012703

R3,1.5TA1
36%

EMT

104443

104032

;SET EXPECTED STATE VALUE

309
ERRS

ERRHRD
TRAP

000466

#3,R3

PC,GSTATC

.WORD
.WORD

EXIT

1064032

000272
032737
001007
012703

7-3

187

SVCSTAT,
T . MP

40%
#MVOLCK,R3
310., ,ERRS

VOLUME CHECK SET

;SET NAME MESSAGE POINTER

TSERCODE

310
ERRS
181

CSEX1T
L10022-.

#DRVERR,T.CS

42%

#MDRERR,R3

311.,,ERRS

;TEST IF DRIVE ERROR SET
JYES - SKIP
;SET NAME MESSAGE POINTER

TSERCODE

3N
ERRS
187

CSEXIT

L10022~-.

#3000. ,R?

INSTACHG,ERHEAD

#4,R3
PC,GSTATC

R3,T.STAT
49%
R1
479
"
#,RO

JSET WAIT (OUNT FOR 300 MS
:SET ERROR HEADER
;SET EXPECTED STATE VALUE
;GET STATUS
JCHECK

STATE

:DEC WALT

COUNT

;YES - SKIP

(SKIP IF O

CIRLIAQ RLO1/2 DR TST

+TEST

0264616

000764

026626

104443
000470
013252

026630
024632

104032
000136

127 0264622
0264622
024624

128 024630

02463¢
024640
024646
024650
024652
026656
026660
0264662
024664

012701
012703
004737
(024770
020337
001413
005301
001404

138 024672
139 024674

000764

024664
024670

012700
104027

024674
0264676
024700

104443
000471
013252

024702
024704

104032
000064

1640 024702

1ol
142
1643
146
145
146
1647
148

0264706
024712
024716
0264720
026726
0264730
024732
024734

012701
004737
024770
032737
001020
005301
001404

149
150
151
152
153

024742
024744
024752
024756
024762

000763
012737
012704
012703

024734
024740

0264762
024764
024766

012700
104027

7-4

Em?

47%:

ERRHRD
TRAP
.WORD

.WORD

EXIT

000454
000005
015704

49%:
50%:

002762

000001

(3]
.WORD

Mov
MOV
JSR
1365%
(mp
BEQ
DEC
BEQ
WAITUS

MoV
EMT
51%:

BR
ERRHRD

TRAP
.WORD
.WORD

EXIT

000120
015704
000001

55%:
56%:
002746

0000M
006301
01075
010013

Em
.WORD

MoV
JSR
1365%
Bl
BNE
DE(
8tQ
WAJTUS

MOv
144!
002714

60$:

BR
MOV
MOv
MOV
ERRHRD

;SET WAIT (CUNT FOR 30 MS
;SET EXPECTED STATE VALUE
;GET STATUS
R3,1.5TA1
55%
R1
51%

"
#1,RO

L1002¢2:

;CHECK

STATE

JYES - SK]P
;DEC WA]T COUNT
JELSE SKIP

(&UMV
50%
313.,.ERR7
TSERCODE
313
ERR7
1§17
CSEX]T

L10022-.
#80. ,R1

;SET WALIT FOR 8 MS

#DRDYMSK,T.(S

sCHECK
JYES -

IF DRIVE
SK]P

:SKIP

PC,GSTATC

62%
R1

60%

"
#,RO

(SwTu
56%

FMISTST ERHEAD

#STATES
,RG
#MDRDY ,R3

314, ERRS

TRAP
.WORD
.WORD

314
ERRS

EM1

(SETST

TSERCCDE

62%:
1365%:
ENDTST

104001

SEQ 0096

104443
000472
012324

155 026770
156 024770
157 024770

024770
024770

9-FEB-79 i9:14:2?2 PAGE

104027

126 024620

129
130
131
132
133
136
135
136
137

1 MACRO v03.01

HEAD LOADING

;GET STATUS

READY

;DEC COUNT

:SET ERROR HEADER
SET CONDITION MESSAGE POINTER
;SET NAME MLSSAGE POINTFR

O
RV ] VPR Y
[ RV P

—

]

O oo

NOVESE
W

N—

PP,

RLO1/2 DR TST 1 MACRO v03.01
HEAD UNLOADING

026772
024772

024772
024776
0250090
025004
025006
025006
025010
025012
025012
025012
025012

025014
025022
025026
025032
02503«
025042
025044

005737
001003
005737
100462

104002

012737
004737
004737
025466
032737
001040

025134

025144
025152
025152
025154
025160
025164
025170
025174
025200
0252064
025210
025214

—

013712
8%:
10%:
BGNSUB

006324
015652
015670

002714

000001

002746

011050
000007

000001
004¢56

052737

0C0010

002735
005743
002730
005732
007544
007232
011050
000007

FIRST

151

MiSWiw

sTEST

MANUAL

EMT

($BSUB

100008
:

002706

3%:

49:

BMI
10$
EXIT TST
3.
JSEXTT
.WORD
L10023-.

JSR
JSR
16465%
BI1
BNE

PRINTE

UNSTACHG,ERHEAD

PC,TSTINT
PC.GSTATR

#DRDYMSK,T.CS

:NO - Sk}P

;YES - SKIP

1¢.1:
;SET

;GET

ERROR

HEADER

JINITIALIZE
STATUS

;(HECK

DRIVE

JYES - SKIP

#BASADD ,-(SP)

#OPR6,=(SP)
#EMTOP1,-(SP)

SP,RO
CSPNTF

JCLEAR FOR RESPONSE

OPR0O0Z,0BUFF ,1,NO
(SGMAN
10000%

OBUFF
1$CODE
?PROOZ

1S7
8tQ

OBUF ¢
1%

;1ST RESPONSE
:NO - SK]P

B1S

SULOAD,OPFLAG

:SET

-(SP)

RLDRv+1,(SP)

MOV
MOv

SOPR3Y,=(5P)
SFMIOPY,=(SP)
87 ,-(5P)
SP,R()

MOV
®mov

YES

UNLOAD OPERATION

052;0P1,lOPRS,lOPR\A,OBASADD.RLBAS,lDRVNAH,(B,nLonvo1)

81s8

MOV
MOv
Mmov
MOv

READY

#OPR1A,-(SP)

#20,5P
OBUF F

(LR

TEST

ADD

PRINTF

INTERVENT]ON

RLORV+1,(SP)
FDRVNAM
- (SP)
RLBAS,=(SP)

#7,-(SP)

(LR
GMANIL
EMT
B8R
.WORD
.WORD
.WORD
.WORD

14::

PASS

lfg;?P1,lOPRb.lOPRlA,IBASADD.RLBAS,lDRvNAH,<8,RLDRv0I)

MOov
Mov

Ent

000020
004256

HEAD UNLOADING

STEST

MoV
MOV
Mov
Mov
Mov
MOv

007310

SEQ 0097

PASNUM

(LR
B15B

002735
005743
002730
005732
007544

sTESTOG

Mov

1%:

005737
001740

*TEST

187
BNE

000566

025072
025076
025102
025106

025136
025136
025142

19:14:22 PAGE

003292

106032

025052
025056
025062
025066

025110
025112
025116
025122
025122
025124
025126
025130
025132

9-FEB=79

LSBITL
BGNTST

025044
025046

—

CIR

'TES

SORVNAM,-(SP)
RLBAS,=(SP)
#BASADD,-(SP)
#0PRIA,=(5P)

RLOY/2 DR TST 1 MACRO v03.01
HEAD UNLOADING

025216
025220
025224
025230
02523
025240
025244
025246
025252
02525¢
025262
025264
025266
025270
025272
025274
025300
025300
025304
025306
025310
025314
025314
025316
025320
025322
025324
025326
02533v
42 025330
43 025334
&4 025336
025336
025340
025342
025344
025344
025346
025350
025354
025360
025364
025366

025372
025374
025376
025400

025400
025404
025400
025410
025610
025412
025414
025416
025416
025420

104017

062706
012703
012704
012701
004737
025466
020337
001436
022737
001025
005304
001004
005301

001406
012706
012700
104027
000754
005037

000005

5¢:

000901
004286

004256

002762

1046027

000764

106443

000622
013252

104032
000054

JSk
14659
(mp

CmMp

7$:

100018

BNE
DEC
BNE
DEC
BtaQ

MoV

WAl TUS

MOV

Emy
BR
(LR
GRANIL
EmT
B8R
.WORD
.WORD
.WORD
.WORD
191

BEQ
ERRMRD
TRAP

000007
005670
01570¢

11%:

12%:

002762

JSET EXPECTED STATE VvALUE

PC,GSTATC

sSET WAIT (OUNT FOR 30 SECONDS
;GET STATUS

#100.,R¢
#700. ,R1

R3, T.5TA7
1%
#5,1.5TM1
9%
R4

RY
7%
#100.,R¢
"n
#1,R0

JSR
1465%
(mp
Bgta
DEC(
BEQ

gEmt

B8R

ERRHRD
TRAP

LWORD
.WORD
gExit
eml
LWORD

SECOND LEVEL

COUNT

JCHELK JF STATE 6
JYES - SKIP

STEST

STATE

JSK1IP 1F

NOT O

:NO = REPORT WRONG STATE
sDEC 2ND LEVEL COUNT
1ST LEVEL COUNT
JIF 0 = SKIP 10 QUESTION
JELSE RESET 2ND LEVEL
;ELSE DEC

;WALT

100 us

¥
OBUF

;CLEAR FOR RESPONSE
OPRO03,08uUfF,1,NO
(SGMAN
10001¢

OBUFF
18000t
?PROOS

OBUFff
4%
40V., ERR7
T$ERCODE

CSEX]T
L1002¢4~-.

MOv
Moy

;SET

(Swiv
5%

ENT
.WORD

Moy

169

#6,R3

WAl TUS

000001

(SPNTFH

#20,5°P

.WORD
.WORD

Exiy

104032

012700

ADD
mov
MOv
Mov

8EQ

8%:

000144

SEQ 0098

002762

104443
000621
013252

000126
012703
012701
004737
025466
020337
001413
005301
001404

19:14:22 PAGE

eEmt

000020
000006
000144
00127¢
015704

104043
000404
004256
000120
007077
000001

00573
001706

9-FEB-79

JTESY

sNO =

1F RESPONSE

SK]P

YES

JELSE REPORY STATE

(WANGE WRONG

ERR/
SuB

#7,R3
#3000.,R!

PC,GSTAT(

JSET EXPECTED STATE vALUE
sSET (COUNT FOR 30CMS
JGET STATUS

RS, T.STAY

OHECK

STATE

18%
R1
16%
"
#1,R0

JYES - SK]P
;DEC WAIT COUNT

«02.,,ERR7
TSERCODE
02

;REPORT

(Swiy
12%

ERR?7

SUB
(sl

110026
-,

JSKIP IF

WRONG

STATE

(MANGE

CIRLIAQ RLOY/2 DR TST

*1EST

58
59
60
6)
€2
63
64

1 MACRD v03.01

HEAD UNLOADING

025422
029424
0256430
025434
025436
025442
025444

65 025446
66 025450
025450
0256564
67 025456
68 025460
025460
025462
025664
025466
025466

025474
025474
0254764
(25476
025476
025500
025504
025510
025514
025520
025526
025530
025534
0259540
025542
025544
764 025550
025554
025554
025556
025560
025562
025564
025566

025570
025570

025574
025576

025576
025576
02557¢

005003
012701
004737
02546¢
005737
001411

9-FEB-79 19:14:22 PAGE
18%:

001130
015704

20%:

002702

106026

000001

Mov

000764

22%:

106443

000623
013252

012737

000002

JSR
14659

181
BEG
DEC
8t0
WAL TRS

005301
001404
012700

(LR

mov

002720

:
248

14659%:

Emt
BR
ERRHRD
TRAP

.WORD
.WORD
mMov

B-2

SEa 0099

R3
#600. ,R1

SSET EXPECTED STATE VALUE
;SET WAIT (OUNT FOR 60 SECONC>

T.STAT
2498

;CHECK IF STATE O
;YES - SKIP

22%

;SKIP IF O

PC,GSTATC

"
£ ,R0

;GET

STATUS

;DEC WAIT

COUNT

(SWTM

20%

403., ,ERR7

TSERCODE
403

;REPORT WRONG STATE

C(MANGE

ERR7

#2,ERRSWI]

;INIT ERROR SWIT(H

ENDSUB

L1002¢:

104003

005066
153716

26%:

002735
005743
002730

MOv
MOV
MOV
MOV
MoV
Mov
moy

005732
007544
007310
011050
000007

POV

EMT

ADD

000020
004256
106043
000404
004256
000120
007052
000001

005737
001740

004256

Ent
PRINTF
(LR
8158

100008

29%:

($ESUB

lig;?Pl.lOPPb,lOPR1A.IEASADD,RLBAS,IDRVNAH,(B.RLDRV’1> cREQUEST CYCLE uP
RLDRV+1,(SP)

SORVNAM
- (SP)

RLBAS,~-(SP)
#BASADD,-(SP)
#OPR1A,-(SP)
#O0PR6,
- (SP)
#EMTOP,-(SP)
#7,-(SP)

SP,RO
CSPNTF

#20,SP

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

OBUFf
;CLEAR FOR RESPONSE
,1,NC
BUFF
OPRO0OZ,0
CSGMAN

187
BEQ

OBUF ¢

EmT

($ETST

10000%
OBUFF
T$CODE
?PROOZ

26%

ENDTST
104001

L1002%:

;TEST RESPONSE YES

:NO - SKIP

CIRLIAD RLOV/2 DR TST

*TEST

DRIVE

1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 9

SELECY

2 025600
025600
3 025600

6 025606

5
6
7
8

025612
025614
025622
025624
02562¢
025626
025632
025636
025642
025646
025652
025656

025662
025666
025670
025672

9 025676
10 025702
025702

11
12
13
14
15
16
17
18
19

20
21
22
23
24
25

025704
025706
025710
025712
025714
025716

025716
025722
025724
025732
025736
025742
025744
025752
025756

025762
025766
025772
025774
025776
026002
026002
026006

LSBYTL

BGNTST
012737
005737

001173
032737
001567
005046
153716
012746
013746

012746

012746
012746
012746
012746
010600
104017
062706
005037

000002

003252

000004

002720

1%:
002735
005743
002730

005732

007544
007343
011050
000007

10000%:

004256

006436
015652
015704

002714

002734
002734
0C0004

003020

022701
001001
005001
010137

000400
002000

LPT0S:

002734

6%:
5¢:

MOV
MOV
EMT
ADD

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

EMT
B8R
.WORD
.WORD
.WORD
LWORD
187
BEQ
MOV
JSR
JSR
1504%
MOV
MOV
MOV

ADD
CMP
BNE
(LR
MOV
PRINTF
MOV
MoV

026012
026014
026020
026024
026030
026034
026036
026040

002735
007372
011121
000005
000014

CLR
8Is8
MOV
MOV
Mov
MOV
EM1
ADD

27 026044

005037

004256

CLR

PASNUM

sSET FOR NO ERROR RETURN

15::

EXTOS
:NO - SKIP
#DRSELT MISWIW
TEST IF SELECT TESTS
EXT0S
:NO - SKIP
NFMTIOP1,#0PR7,#0PR1A,#BASADD
,RLBAS ,#DRVNAM <B,RLDRV*1> ;REQUEST REMOVE ALL P
-(SP)
RLDRV+1, (SP)
#DRVNAM,-(SP)
RLBAS ,-(SP)
#BASADD ,-(SP)
#OPRIA,-(SP)
#OPR7,-(SP)

012746
012746
005046
153716
012746
012746
012746
010600
104017
062706

007560
007550

3%:

SELECT

;TESTOS

BNE
BIT
BEQ
PRINTE
CLR
BISB
MOV
MoV
MmNy
MoV
MOV

CLR
GMANIL

005737
001740
012737
004737
004737
026124
013737
013701
012704

DRIVE

#2 ,ERRSW!

MoV

000020
004256

MoV
187

013712

104043
000404
004256
000120
007052
000001

062701

«TEST

SEa 0100

:TEST

FIRST PASS

#EMTOP1,=-(SP)

OBUFF
;CLEAR FOR RESPONSE
OPROOZ2,0BUFF,1,NO
CSGMAN

10000%
OBUFF
T$CODE
OPROOZ2
1

OBUFF
1%
#TOSERR,ERHEAD
PC,TSTINT
PC,GSTATC

;TEST RESPCNSE YES
:NO - SKIP
;SET ERROR HEADER MESSAGE
JINITIALIZE TEST
;D0 SELECT AND GET STATUS

RLORV,TEMPO
RLDRV,R1
#6 R4

;STORE ORIGINAL DRIVE NUMBER
;sPUT IT IN RI
:SET COUNT FOR NUMBER OF PLUGS

#6400 ,R1
;BUMP TO NEXT DRIVE
#2000,R1
;CHECK IF TO LARGE
43
;NO = SKIP
R1
JELSE CLEAR TO DRIVE O
R1,RLDRY
;PUT IT BACK IN RLDRvV
WFMTOP3,#0OPR8B,<B,RLDRV¢+1> ,#0PRIB,#UNDTST
#UNDTST,=-(SP)
#OPR1B,-(SP)
=-(SP)
RLDRV+1,(SP)
#OPR8,-(SP)
#FNTOP3,=(SP)
#5,-(SP)
SP,RO
(SPNTF
#14,5P

OBUF ¢

;s INSERT PLUG REQUEST

;CLEAR FOR RESPONSE

RLOV/? DR TST
ORIVE

026050
026050
02.0%2
026054
026056
026060
026062
026064
026064
026070
026072
026072
026072
026074
026100
026102

026110
026110
026110
026112
026114
026116
026124
026124
026124
026130
026134
026140
026144
026146
026150
Y. 026154
63 026160
026160
026162
026164
026166

)

026170
026172
026174
026174
026200
026202
026202
026202

026202

1 MACRO v03.01
SELECT

9-FEB-79 19:14:22 PAGE 9-1

SEQ 0101

104043
000404

004256
000120
007052
0000G1
00573/
001744
1064002

004737
026102
012737

10001%:

004256

BGNSUB

015704
000002

002720

60%:

GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

OPR0O0Z,0BUFF,1,NO
CSGMAN
100018
¢
OBUF
T$CODE
?PROOZ

181
8ta

OBUFF

EMT
JSR
60%

($BSUB

PC,GSTATC

;GET

STATUS

MOv

#2 ,ERRSWI

;INIT

ERROR

EMT
DEC
BNE

;TEST

RESPONSE

;NO - SK]P

YES

15.1:
- REPORT

SWITCH

ENDSUB

L10026:

104003

005304
001322
013737

003020
007411
007372
011164
000003

002734

1504%:
(%

005737
001751

004256

PRINTF
MOV
MOV
MoV
MOV
MOV

EMT

000010
004256

106043
000404
004256
000120
007052
000001

Mov

ADD
CLR

:
100008

EXTOS:

GMANIL
EMT
B8R
.WORD
.WORD
.WORD
.WORD

C$ESUB

LPT0S
TEMPO,RLORYV

L10025:

COUNT

:LOOP IF NOT ZERO
JELSE RESTORE RLDRV

#FMT4L,H0PRS, #OPRI
#OPR9,-(SP)
#OPR8,
- (SP)
FEMTL,-(SP)

#3,-(SP)

SP,RO

CSPNTF

#10,sP
OBUF ¢

. CLEAR FOR RESPONSE

OPROOZ ,0BUFF,1,NO
CSGMAN
10000%

OBUFF
T$CODE

?PROOZ

187

BEQ

OBUF ¢
6%

EMT

CSETST

ENDTST
104001

;DEC

;TEST RESPONSE
:NO - SKIP

YES

ANY

ERROR

oo
N —
NOVNE
N

- OO0
NO VNS W

et
)

b
=l
il
el
il
el

*TES

CIRL

RLOV/2 DR TSY
ORIVE

026204
026204
026204
026210
026212
02622
02622
026222
02622¢
026226
026234
026240
026244
026252
0262564
026256
026262
026264
026266
026266
026270
026272
026272
026274
026276
026302
026304
026310
026316
026324
026332
026340
026346
026346
026352
026354
026360
026362
026370
026372
026374
026374
026400
026404
026410
026412
026414
026420
026424

026432
026436
026442
026446
026452
026456

1 MACRO v03.01
SELECT TEST

9-FEB-79 19:14:22 PAGE

.SBTTL
BGNTST

005737
001004
032737
0010C2

003252
000004

006372
015652
003254
002012

005203
020337

002012

101450

101401
€05003

000104
000010
000013
002742
002736

012700

000003

005737
001735
032737

002710

106026

600

100000

002734
003022
002000
002000
001400

FIRST PASS

2%:

3%:

BLOS
CLR
GFHARD

MOV

RO.R4

;PUT POINTER INTO R4

BNE

:NO - SKIP

002736
002736
002742
000004
000000

(MP

5¢:

;NO - SKIP
CHECK [F TEST DRIVE
JYES - SKIP

#GSTERY ,ERHEAD

;SET

PSETNM,R3

;GET PARAM SET NUMBER

MOV
EMT
gggOHPLEEE

(R4) ,RLBAS

SFLECT

ERROR HEADER

;INITIALIZE TEST

:SKIP IF

;CHECK

NOT AVAILABLE

SAME

CONTROLLER

CLR

DONE

MOV
Mov
MOV
WAITMS

#GETSTAT!DRSET,L.DA
;SET UP TO CLEAR DRIVE
L.DA,RLDACR2)
;LOAD DA REG
L.CS,RLCS(R2)
;LOAD CS REG

TST

DONE

MOV
B1S

002746

003022

sTEST IF MORE THAN 1 UNIT
:NO - SKIP
;BUMP PARAMETER SET NUMBER
;CHECK IF PAST VALID PARAMETER TABLE
;NO - SKIP
;ELSE CLEAR TO POINT TO ENTRY O

000006

027054
000010

sCHECK

LSUNIT M
5%
R2
R3,LSUNIT
3%
R3
R3,RO
R3,RO
CSGPHRD

CMP

007426
011361
000002

PASNUM

(MP
BLOS
INC

MOV

002730

002710

;TESTO6

TEST

PC,TSTINIT

1064042

103370
010004
021437
001364
005037
012737
056437
012737
013762
013762

SELECT

JSR

4%:

000001

010300

ORIVE

19
#ORSELT MISWIW
3
181
CSEXIT
L10027-.

013712

002714

SEQ 0102

BNE
811
BNE
EXIT
EMT
.WORD

1$:

000630
012737
004737
013703
023727

*TEST 6

181

106032

#GTISTAT,L.CS
10(R&) ,L.CS

MOV
EMT

#3
#3,R0
CSWTM

BEQ
BIT
BEQ
BR
PRINTF
MOV
MoV
MOV
MOv
EMT

2%
FANYERR,T.CS
7$
2$
#FMT9,#0PR10
#OPR10,-(SP)
NEMTY,=(SP)
#2,-(SP)
SP,RO
CSPNTF

7%:

ADD
JMP

MOV

n6,SP
LCLEXT
10(R4) ,TEMPY

9%:

MOV

RLDRV,RO

20%:

BIC
BIC
CMP

MOV

BNE

TEMP1,RS
#2000,R0
#2000,R5
RS, #1400
21%

;CLEAR DONE FLAG

;LOAD GET STATUS
¢ INSERT DRIVE

;WAIT 300 MS

;TEST

INTERRUPT

:NO - SKIP
;TEST IF ANY ERROR SET
:NO - GO TEST
JELSE CHECK NEXT DRIVE
¢REPORT CAN'T FIND 2ND DRIVE

:STORE WEW ADDRESS
+ASK rOR PLUG CHANGE
:GET DRIVE UNDER TEST
:GET NEW ADDRESS

:CLEAR FOR ADDRESS 0 10 3

;TEST

IF DRIVE NUMBER 3

;NO - SKIP

CIRLIAO RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
6
ODRIVE SELECT TEST

*TEST

\V AV,
[aS Kol

4q 026460
65 026462
46 026466
67 026470
68 026472
69 026476
50 026502
026502
026504
026510

026514
026516
026522
026526
026532
026536
026540
026542
026546
026552
026552
026554
026556
026560
026562
026564
026566
026566
026572
026574
026600
026600
026600
026602
026610
026616
026616
026622
026624
026632
026640
026646
026652
026660
026660
026664
026666
026672

026674
026700
026702
026704
026704
026706
026710
026712
72 026714

005005
062705
020500
001770
052705
010562
005046
153716
012746
005046
153716
012746
0127646
012746
010600
106017

062706
005037

012704

10400°2
013737
013762

000200
000000

RS
#400,RS
RS,RO
20%
#CRDYMSK,RS
RS,RLCS(R2)

003023
007550

{LR
BISB
MOV

CLR
BISB
MO\
Mov
Mov
MOV

-(SP)
TEMP1+1,(SP)
#OPR1B,-(SP)
-(SP)
RLDORV+1,(SP)
#OPR8 ,-(SP)
PEMTOP2,-(SP)
#5,-(SP)
SP,RO

ADD
(LR
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

#14,5P
OBUFF
;CLEAR FOR RESPONSF
OPRO0Z2,0BUFF,1,NO
CSGMAN
100009
OBUFF
TSCODE
OPROOZ
1

1S7
BEQ
MOV

OBUFF
9%

EMT
MOV
MoV

C$BSUB
RLDRV,L.CS
L.CS,RLCSR(R2)

21s:

EMT

000014
004256

000012

012700
104027
005737
001012
004737
012603
001406

000001

106463

:
100008

004256

002734
002736

000104
000003
002742
002710
002736

002710
015520

sELSE SET TO DRIVE NUMBER 0
;BUMP TO NEXT ADDRESS
;THIS EQUAL TO NEW ADDRESS?
JYES - SKIP
sELSE SET CONTROLLER READY BIT
sAND LOAD CS REG

PRINTF #FMTOPZ,#0PR8,<B,RLDRV+1> ,#0PR1B,<B,TEMP1+1>

002735
007372
011077
000005

012700
104026
052737
012737
013762
005037
013762

001131
006372
012072

SEa 0103

CLR
ADD
cmp
BEQ
BIS
MOV

000400

104043
000404
004256
000120
007052
000001

005737
001717

10-1

BGNSUB

002736
000000

002736
002742
000004
000000

o$:

WAITMS

CSPNTF

#10.,R4

#10.

;TEST IF RESPONSE YES
;NO - SKIP
:SET COUNT

16.1:

JSET UP TO SELECT MULTIPLE DRIVES
;DO IT

MOV
EMT
BIS
MOV
MOV
(LR
MOV
WAITUS
MOV
EMT
187
BNE
JSR
MOV
BEQ
ERRHRD
TRAP
LWORD

#10.,R0
CoWTM
#OTSTAT,L.CS
JSET GET STATUS
#GETSTAT,L.DA
L.DA,RLDA(RZ)
DONE
L.CS,RLCSR(R2)
;DO GET STATUS
M
sWAIT FOR INTERRUPT
#1,R0
(& 1RV
DONE
;CHECX IF INTERRUPTED
12%
JYES - SKIP
PC,WAITIN
;WALIT FOR TIMEOUTY
(SP)+,R3
;GET ERROR POINTER
12%
:SKIP IF O
601.,GSTERY,ERR1
TSERCODE
601

EX]T

SuB

.WORD
.WORD

GSTER!
ERRI

CIRLIAO RLOV/2 DR TST

1 MACRO v03.01
ORIVE SELECT TEST

+1EST 6

026714
026716

104032
000062

026720
026724

012700

000002

004737
026772
032737
001007
012703

015720

73 026720
76
75
76
77
78
79

026726
026732
026734
026742
026744
026750

026750
026752
026754
80 026756
026756
026760
81 026762
82 026766
83 026770
84 026772
85 027000
027000
027000
86 027002
027002
027006
027012
027016
027020
027022
87 027026
88 027032
027032
027034
027036
027040
027042
027044
027046
89 027046
90 027052
91 027054
92 027054
027054
027054

104026

000400

9-FEB-79 19:14:22 PAGE

12%:

JSK
60%
BIT
BNE
Mov

002754

010241

00000C
000002

002720

60$:

ENDSUB

L10030:

104003

012746
012746
012746
010600

0C7474
011361
000002

062706
005037

000006
004256

104017

16%:

15%:

000404
004256
000120
007052
000001

005737
001753

104001

00425¢

.WORD
MOV
DEC
BNE
MOV
EMT
PRINTF

MoV
MOV
Mov
MOV

GMANI]L
EMT

LOCLEXT:
ENDTST

L10027:

PC,GSTAT

;GET

#OSESTAT,T.MP

;TEST

#MDSERR,R3

;SET NAME MESSAGE

CSWwim

16%

602
ERR3

ADD
(LR

10000%:

;WAIT FOR DSE

.WORD
.WORD

EMT

104043

"
#2,R0

602., ERR3

EXIT
EMT

BR
.WORD
.WORD
.WORD
.WORD

SEQ 0104

CSEX]T

L10030-.

ERRHRD

TRAP

001132
012206

010562
005304
001304
012737

MOV
3.}

1064463

104032
000020

Em
.WORD
WAITMS

10-2

TO SET

STATUS
IF

DRIVE

;YES - SKIP

SELECT

ERROR

POINTER

TSERCODE

sus

CSEX]T

L10030-.
RS ,RLCS(R2)
R&

8$
#2,ERRSW]
CSESUB

#FNT9,#O0PR1 Y

#OPR11,-(SP)
#FNT9,-(SP)

:LOAD IN DIFFERENT ADDRESS

sDEC

COUNT

;LOOP IF NOT ZERO
:INIT ERROR SWIT(H

sREQUEST PLUG CHANGE

#2,-(SP)
SP,RO
CSPNTF

#6,SP

OBUF F

.CLEAR FOR RESPONSE

OPR00Z2 ,0BUFF ,1,NO

CSGMAN
10000$
OBUFF
T$CODE
?PROOZ

TS1
8EQ

OBUFF
15%

EMT

(SETST

¢TEST RESPONSE
:NO - 5KIP

YES

SET

b
ld
el

VS W

=D 000~

RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
INITIAL STATE

027056
027056
027056
027064
027070
027070
027074
027076
027102
027104
027112
027114
027120
027122

—

)

027126
027132
027134
027134
027136
027140
17 027142
027142
027144
027146
027152
027156
027160
027164
027166
027172
027174
027200
027200
027202
027204
027206
027206
027210
027212
027216
027220
027224

027226
027232
027234
027240
027244
027244
027246
027250
027252
027252
027254
38 027256
39 027262

LSBTTL
BGNTST

012737
004737

0064¢3
015652

0127G)

000012

004737
027406
032737
001003
012/03
000427
012703

015704

104027

020337
001405

000001

002714

002740

3%:

002762

104032
000242

013701
032701
001003
012703
000405
032701
001007
012703

5¢:

010230
000010

010204

7%:

9%:

gg:

PC,GSTATC

sGET STATUS

811
BNE
MoV
BR
MOV

#ORDYMSK,T.CS
3
#MDRDY ,R3

9%
f5,R3

+CHECK IF DRIVE READY
:YES-SKIP
sSET NAME MESSAGE POINTER
;60 REPORT
;SET EXPECTED STATE VALUE

cmp

R3,1.STAT

;CHECK JF STATE 0K

ERRHRD

701.,.ERR7

;ELSE REPORT STATE ERROR

013712

10%:

003252

000100

010146

011020

001277

001000

13%:

TSERCODE

701
ERR7

MOV
ERRHRD
.WORD
.WORD

702
ERR3

.WORD

L10031-,

.WORD
MoV
BIT
BNE
MOV
BR
BI1
BNE

TRAP

T$ERCODE

s YES-SKIP

JEXTT

:GET MP REG

s CHECK HEADS OuT

s YES-SKIP

:SET NAME MESSAGE PTR
:GO REPORT
¢ CHECK BRUSH HOME SET
s YES-SK]P
;SET NAME MESSAGE PTR
:REPORT ERROR

18T
CSEXIT

JEXTT

153

MISWIW

;TEST .IF

BIT
BEQ
MOV
MOV
ERRHRD

,RI
#HSSTAT
13%
#MHSTA,RY
#CCYLUP,RG
703.,.ERR4

.WORD
.WORD
EXIT
EMT

ERR4
187
CSEX]T

BPL
18T
BNE

TRAP

104443

187
CSEXIT
L1003!'-.
1.MP R
FHOSTAT,R1
7%
#MHOSTA
R3
9%
YBHSTAT
,R1
10%
#MBHSTA,R3
702.,.ERR3

EXIT
EMT

104032

TEST

JWALT

EXIT
EMT

002754
000020

JINITIALIZE
1 MS

17::

#10.
#:0.,R0
(swiv

.WORD
.WORD

104443
001276
012206

000176
005737
100034
005737
001031
032701
001411
012703
012704

:SET ERROR HEADER

TRAP

013252

INITIAL STATE
:TEST 07

SINITST, ERHEAD
PC,ISTINT

8taQ

104443
001275

SEQ 0105

mov
JSP

WALTUS
mov
EMT

010013
000005

«TEST

LWORD
BIT
BNE

16%
PASNUM
16%

T$ERCODE

MANUAL

INTERVENTION RUN

;NO-SKIP
;CHECK 1F FIRST PASS
:NO-SXIP
;ELSE CHECK HD O SELECTED
S YES=SK]P
¢SET NAME MESSAGE PTR
;SET CONDITION POINTER
;REPORT ERRCR

703

L10031-.
#VCSTAT,RI
15%

JEXIT
;CHECK VvOL CHECK SET
s YES=-SK]P

(%RLXAO RLOV/2 DR TST 1 MACRO v03.01
*TEST 7
INITIAL STATE

027264
027270
027272
027300
027302
027306
027310
027314
027316
027322
027322
027326
027326
027330
027334
027342
027344
027350
027352
027354
027356
027360
027360
027362
027364
027366
027366
027370
60 027372
61 027376
027402
63 027404
04 027406
65 027406
66 027406
02740¢
027406

012703
000743
032737
001003
012703
000734
0327G1
001405
012703
1064443
001301
012140

042701
023727
001404
022701
001410
000402
005701
001405
104443

9-FEB-79 19:14:22 PAGE

SEQ 0106

010160
0400600

Mov

002746

15%:

010135
16%:

010217

005701
001365

BR
811
8ea

MOV

ERRHRD
TRAP

021177
002200

000001

17%:

000200
99%:
18%:

001300
012374
104032
000016
013701
042701

BR
8IT
BNE

MCv

020000

11-1

19%:

25%:
65%:

.WORD
.WORD
81C
CMp
BEQ
CMP
BEQ
BR
1ST

BEQ
ERRHRD
TRAP
.WORD

. WORD
EXIT
3
.WORD

#MVOLCK ,R3

#ORVERR,T.CS

16%
#MDRERR,R3
9%
FULSTAT
R

17%
MMWLSTA
RS
705.,,ERR?
TSERCODE
705

ERR2

#21177 ,R1
T.DRIVE,#1
99%
#200,R1
19%
18%
R1
19%
704., ,ERRG
TSERCODE
704
ERRG
1S1

104001

:NO-SK]P

;ELSE REPORT ALL ERRORS

JEXIT

;CLEAR ALL BUT ERROR BITS

BIC
157
BNE

EMT

;CLEAR STAUS EXCEPT FOR ERROR BITS

;GET (S REG

Mov

¢TEST

ANY

ERROR

;YES=SKIP TO REPORT

ENDTST

£10031:

SELSE SET NAME MESSAGE PTR
;60 REPORT
:"EST DRIVE ERROR SET
s YES-SKIP
SELSE SET NAME MESSAGE PTR
;GO REPORT
;CHECK WRITE LOCK STATUS
;SKIP IF RESET
JELSE SET NAME MESSAGE PTR

($ETST

SET

~NO

CONO VNS NN =2 OOV
[a ]

— OO0

NN
=

—

)

~NONN

NN
—

—t gt

CIRL A
*1ES

RLOY/?2 DR TST 1 MACRO v03.01
INITIAL STATE

027410
027410
027410
027416
027422
027426
027430
027434
027636
027442
027444
027652
027454
027460
027464
027464
027466
027470
027472
027472
027472
027472
027472

9-FEB-79 19:14:22 PAGE

LSBITL
BGNTST

012737
004757

006423
015652

004737
027472
005737
100016
005737
001013
032737
001407
012703
012704

015670

104443
0014641
012254

002714

000100

002754

010146
01102C

PC,GSTATR

;GET STATUS WITH RESET

ST
BPL
181
BNE
817
BEQ

MISwWiw

;CHECK IF MAN INTERVENTION WAS RUN
:NO-SKIP

ERRHRD

801.,,ERR4

TRAP
.WORD
.WORD

PASNUM
4%
FHSSTAT,T.MP
3

#MHSTA
R3S

#CCYLUP,RG

TSERCODE

801

ERRS

ENDTST

L10032:

;INITIALIZE TEST

JSR

65%:
104001

18::

#INITST ERHEAD

PC,TSTINT

MOV
MOv

(%:

;TEST 8

JSR

65%

003252

SEQ 0107

INITIA L RESET STATE

*TEST 8
Mov

013712

EMT

CSETST

;CHECK

:NO-SKIP

1ST PASS

;CHECX HD SELECT STILL O

;YES=SKIP
:SET NAME MESSAGE PIR
;SET CONDITICON POINTER
;REPORT ERROR

CZRLIAQ RLO1/2 DR TST 1 MACRO v03.01 9-FEB~79 19:16:22 PAGE
INITIAL RESEY STATE

SNV

POPONINUNY
ot = et et et el ok o e ot

OOVONO NS NN =O 0N,

SN
—

*TEST 8

027474
027474
027476
027502
027506
027510
027512
027514
027516
027522
027526
027530
027534
027540
027544
027546
027552
027556
027562
027564
027572
027574
027574
027576
027600
027602
027602
027604
027606
027612
027616
027620
027624
027630
027632
027632
027634
027636
027640
027640
027642
027644
027650
027656
027660
027662
027664
027664
027670
027672
027674
027674
027676
027700

.SBTTL
BGNTST

012737
012761
005021
005021
005021
005011
004737
004737
027772
004737
010537
004737
027772
012703
012704
006737
027772
032737
001405

006451
003004

002714

Mov
MOV

CLR
CLR
CLR
CLR
JSR
JSR

015652
0156790

65%

020616
003014
017324

104443

001605

012254

104032

000166
012701
004737
027772
012703
023703
001405

000121
015720

000005
002762

000130
012703
032737
001013
005301
001404

012700

104027

000747
106443

001607
012324

000001

002746

7%:

000001

PC,ISTINY
PC,GSTATR

RS,DESHD

PC,SIMSEX

#CDRDY,
R4

BEQ
ERRHRD
TRAP

4%
901., ,ERRG
TSERCODE

MOV

CSEXIT
L10033-.
#81.,R1

.WORD
.WORD
EX1T
EMT
.WORD

FORDYMSK,T.(CS

901
ERRG

19::

:SET ERROR HEADER
;GET POINTER TO DESIRED LOC
;CLEAR NEW CYL
;CLEAR CURRENT CvyL
DIFFERENCE
:
SIGN

;INITIALIZE

TEST

;GET STATUS WITH RESET

;POSITION HEAD SELECTED BIT
;STORE AS DESIRED HEAD
;EXECUTE SIMPLE SEEK
;SET NAME MESSAGE PTR
sSET CONDITION POINTER
;GET STATUS

;TEST READY SET
:NO=-SKIP
;REPORT

READY

ERROR

181

JEXIT

JSR

PC,GSTAT

;SET WAIT COUNT
:GET STATUS

MOV

#5,R3

;SET EXPECTED STATE VALUE

65%

T.STAT,R3
7%

902.,.ERR7

TSERCODE
902
ST

BNE
DEC
BEQ
WAL TUS

12%
R1
9%
Al
#1,R0
(SwTu

eMl
BR
ERRHRD
TRAP

.WORD
.WORD

IS 5

CSEXIT
L10033-.

#MDRDY,RS

BIT

;CHECK STATE
s YES=-SKIP
;ELSE REPORT

ERR7

MOV

9%:

(R1)3
(R1)+
(R1)+
(R1)

PC,GSTAT

.WORD
.WORD
EXIT
EMT

010013

INEWCYL
,RI

JSR

TRAP

104032

#TO9ERR,ERHEAD

#MDRDY ,R3

BEQ
ERRHRD

1046443

;TEST 9

MOV
MOV

CMP

001606
013252

DRiVE READY

PC,POSHSB

65%
817

002746

SEQ 0108

JSR
MOV
JSR

65%

010013
010761
015720

000001

*TEST

#DRDYMSK,T.(CS

5¢
903., ,ERRS
T$ERCODE
903

ERRS

JCHECK READY SET

JYES=SK]P

JELSE DEC WAIT (OUNT
JSKIP

;REPORT

READY

ERROR

RLO1/2 DR TST 1 MACRO v03.01
DRIVE READY

Exit
EmT
.WORD

106032
000066

005737
100005

0027«6

12%:

181

BPL
t RRHRD

1046443
001610

TRAP

.WORD
.WORD
338
ERmT
.WORD

01237¢

104032
000046
012703
004737
020537

001413
005737
001405

010146
02061¢
003014

15%:

MOv

JSR
(Mp
BEQ
TS1
Bta

003014

ERRHRD

106443

TRAP

N
0016
012206
104032
000010

106443
001612
012140

10600?

.WORD
.WORD
EXIT
EMT
.WORD
ERRHRD

Lrs
¥

;VEST IF ANY
JNO-SK]P

ERROR

TSERCODE

904

ERRG
1S1

(SEXIY
L10033-.

SMHSTA,RY

PC,PCSYSB

RS,DESHD

20%

DESHD
17%
905..,.ERR?
T$ERCODE
905

ERR3
1S7

CSEXIT

L10033-.

.WORD
.WORD

906.,.FRR?
T$ERCODF
906
ERR?

($ETST

TRAP

208:
65%:
ENDTY
L100

904.
, ERRG

\prd —o

027706
027712
027714
027714
027716
027720
7 027722
027722
027724
<8 027726
49 027732
50 027736
51 027742
52 027746
53 027750
54 027752
027752
027754
G27756
55 027760
027760
027762
027764
027764
027766
327770
027772
027772
027772
027772
027772

13-1

sea 0109

v
1%

027702
027702
027704

9=FEB=79 19:14:22 PAGE

:SET NAME MESSAGE PTR

;POSITION HEAD SELECT BIT FOR TEST
;CHECK 1F CORRECT MEAD SELECTED

S YES-SK]P

SELSE TEST

:NO-REPORT

1 DESIRED

SB 0

;ELSE REPORT

SB 1

—

CIRLIAD RLOY/?2 DR TST 1 MACRO v03.01 9=FEB=79 19:14:22 PAGE
*VEST 10
SEEX SIGN >wlT(w

s
—

[, V], V] V]

D P

PN =OO®NO
NS

N=OOV®NO
NS N

027774
027774
027774
030002
030006
030010
030012
030014
030020
030024
030026
030026
030026
030026
030030
030034
030040
030042
030046
030050
030054
030060
030064
030066
030074
030076
030076
030100
030102
25 030104
030104
030106

.SBTTL
BGNTST

0127%7
012701
005021
0050c1
005021
05272
0046737
010521

00646
003004

002714

*TEST

Mov
MOV

(LK
(LR
(LR
81S
JSR

003001
020616
1104%:

Mov

SEa 0110
SEEK

SIGN SWIT(H

JTEST 10

STV10ERR,ERHEAD
ONEW(
YL R
(Ri)e
(R1)e
(R1)e
#B110,(R1)e
PC.POSHSB

RS, (RY)e

110::

;SET ERROR HEADER
;CLFAR NEW (YL

sCLEAR CURRENT (YLINDER
JCLEAR DIFFERENCE
;SET FOR SIGN OF 1
:GET SELECTED MEAD
;SET AS DESIRED MEAD

BGNSUB
104002

004737
004737
030274
004737
030274
012703
012704
004737
030274
032737
001405

(L )]
JSR
JSR

015652
015670

60%
JSR
60%

017324
010013
010761
015720
000001

MCv
MoV

JSR
60%
8l
8€EQ
ERRHRD

002746

106443
001751
01225¢

TRAP

.WORD
.WORD
Exlt
EM
.WORD

1064032
000166

012701
004737
030274
0127083
020337
001405%

000121
015720

4%
5¢:

000005
002762

(mp

B8tQ
ERRNRD
TPAP

013252

104032

000130

0327%7
001013
005301
001404

012700
106027

000747

JSR
60%

Mov

106443
001752

012703

MoV

010013
000001

000001

002746

7%:

.WORD
LWORD
Exl?
Ent
.WORD

110.1:

($8SUB

SINITIALLZE

TEST

PC,ISTINT
PC,GSTATR

sGET STATUS

PC,SIMSEx

;DO SEEK

SMDRDY ,R3
PC.GSTAT

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

SORDYMSK,T.(S

;(nE
K READY

#CDRDY
R4

43
1001.,
. ERRS
T$ERCODE
1001
ERRG
SuUB

CSEXLT

RESET

JVES-SK]P
JREPORT READY ERROR

JEXTT

SUBTEST

L10035-.
81, ,R)
PC,GSTAT

#5,R3
R3,T.STAT
7%
1002., ,ERR?
TSERCODE
1002

ERR?

JSET WAIT COUNT
JGET STATUS

JSET EXPECTED STATE

SCHECK

STATE

JYES-SK]P
JREPORT

IS 5

STATE

ERROR

SuB
CSEN]T

JExl

MoV

#MDRDY ,R3

:SET NAME MESSAGF PR

BNE
DEC(
BEQ
wAl'US

14)

JYES=SK]P

mOv
EMT

L10035-.

#ORDYMSK
, Y. (S

R
9

”
81 RO

($wTL

;(HECK READY
;D0 WALT

JSRIP IF

SE!?

(OUNT

CIRLIAOQ RLOYT/2 DR TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE
e1ESY 10
SEEK SIGN SWIT(M

3
&6 030176

030176
030¢720
030202

«5 030204

0302064

030206

¢6 030210
«7 03021¢

4«8 030216
030216

030220
030222
49 030224
0302264
50 030226
51
52
53
S¢
55
56
57

030230
03023«
030240
030246
030246
030252
030254
03025«
030256
030260
58 030262
030262
030264
59 030266
030266
030270
0 030272

9%:

104443
001753
012324

005737
100005

tEmY
002746

104032
000046
010146
020616
003014

15%:

003014

104443
001755
012206
104032
000010

17¢:

104447
001756
012140

1 030274
62 030274

63 030274
030274
030276«
64 030276
65 030302
66 030304
67 030310
68 030314
69 030314

104003
005737
001404
005037
000137

03031¢

104001

0303814

12%:

104443
00175«
01237¢

012703
004737
020537
001413
005737
001405

TRAP
.WORD
.WORD

Exiy

104032

000066

ERRHRD

20%:
60%:
ENDSUB
L10035:

003012
003012
030026

25%:
ENDTST

L1003%:

14-)

1003.,.ERRS

;REPORT

SUB

SJEXLT

T$ERCODE
1003
ERRS

csexln

LWORD

L 10035-.

TRAP
.WORD
.WORD
EXIT
EMY
.WORD

1004.,.ERRG
T$ERCODE
1004
ERRG
SuUB
CSEX]T
L10035-.

moy
JSR
(mp
BEQ
181
BEQ
ERRHRD
TRAP
.WORD
.WORD
EXLT
EMT
.WORD
ERRHRD
TRAP
.MWORD
.WORD

#MHSTA RS
PC,POSHSB
RS ,DESHD
20%
DESHD
17¢
1005.,.ERR3
1$ERCODE
1005
ERR3
SuB
CSEX]T
10035-.
1006.,.ERR?
TSERCODE
1006
ERR?

Emt
TS1
8EQ
(LR
JMP

C($ESUB
DESSGN
25%
DESSGN
11048

EmT

(SETST

191
BPL
ERRHRD

SEQ 0111

T.CS
15¢

READY ERROR

:TEST IF ANY
:NO-SKIP

OTHER ERROR

;REPORT ALL ERRORS

SEXTT

;SET NAME MESSAGE PIR
;GET SELECTED HEAD BIT
;CHECK IF CORRECY
;YES - SKIP
SWAS 1T SET
:NO-SKIP
:REPORT SB 1

;REPORT

SB 0

;CHECK [F BOTH SIGN USED
JYES=SKIP
;SET SOR SIGN OF O
;00 TEST AGAIN

(%:g%A?ORLO1IZ OR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 15

SEG@ 0112

N==OODNO
N

—-—

—

LSBTTL
BGNTST

032737
001411
005737
001006
023737
001004
000137
104032
000374

013737

SEEX SIGN SWITCH

000010

013712

811

003252

002734

002712

030646

002734

1$:

002712

2%:

002735
005743
002730
005732
011175
000005

3%:

002736
002736
002742
000004
000000

RUN HEAD AL IGNMENT

[F PASS O

sNO-EXIT
:TEST IF HEAD ALIGN DONE

};}5$

:60 CHECK WRITE

:NO - SKIP

THIS DRIVE

tCCK

CSEXIT
L10036~-.
RLDRV,HADONE
;SET HEAD ALIGN DONE FLAG
02215.IBASADD,RLBAS.lDRVNAH,(B.RLDRV*1>
=(SP)

RLDRV+1,(SP)

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

#ENTS,-(SP)
#5,-(SP)

SP,RO
COPNTF

ADD

#6,5P

ADD

sTEST

1%
RLDRV,HADONE

MoV
MoV
MoV
MOV

EMt

BGNSULB

PASNUN

SHAMEST,-(SP)
FEMT9,-(SP)
n2,=-(SP)

Mov

00000¢

SHDALIGN,MISWIW ;CHECK IF
1%
:NO-EXIT

#14,5P

PRINTF
MOv
MOV
MoV

007000
011361
000002

HEAD AL IGNMENT SUPPORT
STEST 1

ADD

EMT

000006

030556

PRINTF
rLR
81s8

PRINTF

000002

015652
002710
002734
000104
000013
002742
002736

Mov

EMT

006715
011361

Bta
181
BNE
cmp
BNE
JMP
EX1T
Emt
.WORD

Mov
MoV
mov
Mov
MOV
MoV

000014

*TEST

SERTY, AHAMES

;TYPE

INSTRUCTIONS

SP,RO
CSPNTF

FEMTO
, #HARES?
FHAMES?2 ,-(SP)
#ENT9,-(SP)
#2,-(SP)

SP,RO

COPNTF
"6,SP
", 1.

EmMT
JSR
(LR

Mov

BIS

Mov
MOV
mov

WAITMS

000062

MOv

002710

151

EM?

BtQ

($BSUB
PC,TSTINT
DONE
RLDRV,L.CS

#GTSTAT,L.CS

JINITIALIZE TEST
:CLEAR DONE
:SET UP SOR GET STATUS

#GETSTAT'DRSET,L.DA

L.DA,RLDA(R?)
L.CS,RLCSR(RZ2)
#50.
#50.,R0

:WAL1T FOR INTERRUPT

DONE
3%

;CHECK ]F DONE
sNO=G0 (LR CONTROLLER

(SWiNM

;DO GET STATUS

CIRLIAO RLOY/2 DR TST
1

&7
48
49

5¢
53
54
55
56

MACRO v03.01 9-FEB-79 i9:14:22 PAGE
SUPPORT

030672

030676
030702
030706
030710
030712
030716
030722
030722
030724
030726
030730
030732
030734
030736
030736
030742
030744
030744
030744
030744

—

TNNNNNO
NN
OO VNN
O NN
NN NNNWNN

e \ SV et S

WA
= PNIN)

OO0OO0O0COO0O
D=0

030560
030%66
030574
030576
030604
030612
030620
030626
03063¢
030634
030640
030642
030644
030644
030644
030644
030646
030646
030646
030646
030650
030654
030660
030662
030670
030672

~NO~
=N
VOO

HEAD AL IGNMENT

0O
—

*1EST

000021
020C00

002742
002754

000020
002734
000106
002742
002736

002742
002736
002736
000004
000000

004737
004737
030744
032737
001425

012746
012746

012746
010600
104017
062706
005037

T115%:
BGNSUB

015652
015670

020000

007525
011361
000002

BIT

BNE
BIC
MOV
B1S

Emt
BR

002754
18%:

19%:

FHDSEL ,L.DA

RLORV,L.CS

#SEEXK,L.CS

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

#30.
#30.,R0

(SWTK
3%

EMT
JSR
JSR

($BSUB

PRINTF
Mov

Mov
Mov
MOV
Ent
ADD

10000%:

129

(SESULB

811
BEQ

PC,TSTIiNT
PC,GSTATR
FULSTAT
T .MP

19%
REMT9,HOPR12
#OPR12,=(SP)
#FENT9,-(SP)
#2,-(SP)
SP,RO
CSPNTF

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

OBUFF

BEQ

187

OBUFF
18%

L10040:
20%:

EMT

(SESUB

104001

EMT

(SETST

SET

;LOAD & EXECUTE SEEK
;WAIT

FOR

INTERRUPT

.LOOP

T11.2:

SINITIALIZE TEST

;CLEAR DRIVE

;CHECK WRITE LOCK RESET
sYES-SK]P
¢REQUEST

WRITE

LOCK

OBUFF
T1$CODE
?PROOZ

ENDTST

L10036:

s YES-SK]P
SELSE CLEAR TO HEAD 0
¢LOAD IN DRIVE NUMBER
;SET FOR SEEK

RESET

;CLEAR FOR RESPONSE
OPR0OZ2,0BUFF ,1,NO
;GET RESPONSE
CSGMAN
10000%

60$%:
ENDSUB
104003

Sea 0113

#HDSEL !MBSETO,L. DA;LOAD FOR HEAD 1
FULSTAT
T . mMP
CHECK JF WRITE LOCK

EMT

60%

000006
004256

004256

MOV

Mov
MOV
WA]TMS
Mov

59%:
ENDSUB
L10037:

104043
000404
004256
000120
007052
000001

005737
001753

12%:

000036

104003

104002

108:

15-1

;WAS ANSWER

YES

;NO-REPEAT REQUEST

CIRLIAD RLOV/? DR TST
1

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE

HEAD ALIGNMENT

SUPPORT

£
—

+TEST

e
e
e
—

VBN

~No NS

PNINININININD
=t —4 =t s —

W~ OV

~NO W

030750
030750
030750
030756
030762
030764
030766
030770
030772
030776
030776
030776
030776
031000
031004
031010
031012
031016
031020
031024
031030
031034
031036
031044

031046

OCOOO0ODOOOO

031046
031050
031052
26 031054
03105¢
031056

&5 NN AN NN
—
NSO

e
el

el
)

U U

el
D

il
el

i
-

NN AN LM U

—

COO0O0O0O0O0O

) ——

—

N W

FUNOOO
S

N WM AN

)

SEa 0114

.SBTTL
BGNTST

012737
012701
005021
005021
005021
005021
012721

106002
004737

004737
031244
004737
031244
012703
012704
004737
031244
032737
001405

006501
003004

002714

000001

1124%:
BGNSUB

015652
01567C

017324
010013
010761
015720

000001

($BSUB

BEQ
ERRHRD

.WORD
.WORD
EXIT
EMT
.WORD

5¢:
6%:

000005
002762

Mov

JSR

60%

MOv
(MP

BEQ
ERRHRD

104443
002262
013252

TRAP
.WORD
.WORD
EX1T

104032

000130

012703
032737
001013
005301
001404

010013
000001

012700

000001

002746

7s:

sTEST 12

EMT
JSR
JSR
60%
JSR
60%

Mov

TRAP

000121
015720

HEAD SWITCHING
#T12ERR ,ERHEAD
NEWCYL
R
(R1)+
(R1)+
(R1)+
(R1)+
¥1,(R1)e

JSR

002746

MOov
Mov
CLR
CLR
(LR
CLR

60%
Bl

104032
000166

104027

*TEST

MOV
MOV

104443
002261
012254

012701
004737
031244
012703
020337
001405

;INITIALIZE TEST
;GET STATUS WITH RESET

PC,SIMSEX

;00 SEEK

#MDRDY,R3

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

#CDRDY,
R4
PC,GSTAT

gDRDYHSK.T.CS
$

1201., ,ERR4
TSERCODE
1201
ERR&
SuB
CSEXIT
L10042-.

READY
ERROR

JEXIT

’5,R3
R3,T.STAT
7%
1202., ,ERR7
T$ERCODE
1202

;SET EXPECTED STATE VALUE
;CHECK IF STATE IS 5
;YES-SKIP
.REPORT STATE ERROR

ERR?7

SuB
COEXIT

#MDRDY,R3

BNE
DEC

12%
R1

WAITUS

"
¥ ,RO
(swiu

EMT

;SET WAIT COUNT
;GET STATUS

MOV

MOv

;CHECK

:NO-SK]P
;REPORT READY

#81. R
PC,GSTAT

L10042-.

BEQ

T12.1:

PC,TSTINT
PC,GSTATR

EMT
.WORD

T12::

;SET ERROR HEADER
;GET POINTER TO DESIRED LOCATION
sCLEAR NEW CYLINDER
JCLEAR CURRENT (CvL.
sCLEAR DIFFERENCE
sCLEAR SIGN
JSET FOR HEAD 1

#DRDYMSK,T.CS

:SET NAME MESSAGE PTR
;CHECK DRIVE READY
;YES=SK]P
;DEC WAIT

:SKULIF 0

COUNT

CIRLIAQ RLOV/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
12

HEAD SWITCHING

63 031144

NNV o~

oo
SN OOOoCSTO
NSO
O0

s QONNNNNOCOOOTO

b it et
et
b ot e
b ot

OOOOOO

el
D
sl
il
i
ol

ol el e

47
48
49

LN WM LN W AN AN W AN N AN AN N N

NNN
NN

65 031146

OCOO0O0OO0OO0OOOOOOOOOO

Nt et

—

PN PV PI NI N

52
53
54
55
56
57
58 031224
WM

*TEST

59
o0

€1
62
63

000747
9%:

012324

104032
000066
100005

002746

002264
012374

012703

004737
023705
001413
005737
001405

67
254
68 031260
69 031264
70 031264
031264
031264

ERRHRD

TRAP
.WORD
.WORD
EXIT
EM1
.WORD
11

BPL
ERRHRC
TRAP
.WORD

010146
020616
003014

15%:

003014

.WORD
EXIT
EMT
.WORD

MOV

JSR
(mp
8tQ
1S1

BEQ

ERRHRD

104443

TRAP

002265
012206
104032
000010

17%:

104443
062266
012140

.WORD
.WORD
EX1T
EMT
.WORD
ERRHRD
TRAP
.WORD
.WORD

1203,
, ,ERRS
TSERCODE
1203
ERRS
SuB
CSEXIT
1 10042-.
.CS
158
1204,
, ,ERRG
TSERCODE
1204
ERR6

;REPORT READY ERROR

SEXIT

;TEST IF ANY ERROR
:NO-SKIP
;REPORT

ALL

ERRORS

SuB

CSEXIT

L10042-.

#MHSTA,R3

PC,POSHSB

DESHD,RS
20%
DESHD

17%

T$ERCODE
1205

ERR3
SUB

CSEXIT
L10042~-.
1206., ,ERR?
TSERCODE
1206

:SET NAME MESSAGE PTR
;POSITION HEAD SELECT BIT
;CHECK IF CORRECT HEAD SELECTED
:YES=SKIP

:WAS HEAD O SELECTED
: YES=SKIP
;REPORT

HEAD

JEXIT
;ELSE REPORT HEAD SB 0

ERRZ

20%:
60%:

12%:

106443

104032
000046

SEQ 0115

104443
002263

005737

16-1

104003

005737
001404
005037
000137

104001

ENDSUB
L10042:

003014
003014
030776

25%:
ENDTST
L10041:

EMT
181
BEQ
CLR
JMP

EMT

CSESUB

DESHD

25%

DESHD
T124%

C$ETST

;CHECK IF HD O WAS DONE
;YES-SKIP
;ELSE SET TO HEAD 9
;REDO TEST

CIRL 1A0 RLO1/?2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
xEAD SWITCHING

012737
012701
005021
005021
005021
005021
005021

104002
004737
004737
031412

(VAW IVIV IV LV IV IV LV LV AV AV LY

031404
031406
031410

006513
003004

002714

T134%:
BGNSUB

015652
01567C

*TEST
MOV
MOV
CLR
CLR
CLR
CLR
CLR

10%:

010146
020610
003014

106032

000010

17%:

104443
002426
012140

READ HEADER

;TEST 13

#T13ERR,ERHEAD

NEWCYL
R

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

($8SUB

(PART

T13::
;SET ERROR HEADER
sGET ADDRESS OF DESIRED LOCATIONS
;CLEAR NEW CYL
sCLEAR CURRENT (YL
;CLEAR DIFF
;CLEAR SIGN
;CLEAR HEAD
T13.1:

SINITIALIZE TEST
sGET STATUS W/RESET

JSR

PC,SIMSEK

.DO SEEK

Mov

JSR

#81.,R1
PC.RDYWALT

;SET WAIT COUNT

JSR

PC.,XRDHDC

;DO READ HEADER

MOV
JSR
CMP
BEQ
ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
.WORD
ERRHRD
TRAP
.WORD
.WORD

#MHSTA ,R3
PC.POSHWI
RS ,DESHD
15%

:SET NAME MESSAGE PTR
;POSITION HS BIT IN HD WRD 1
sCHECK 1F HEAD CORRECT
:YES-SKIP
;REPORT SB 1

60$

020160

SEQ 0116

PC,TSTINT
PC.GSTATR

60%

000121
020646

EMT
JSR
JSR

60%

01732¢4

104443
002425
012206

60$

1301., ,ERR3

TSERCODE
1301

:WAIT

FOR READY

ERR3

SuB
CSEXIT

L10044-.
1302., ,ERR2
TSERCODE
1302

;REPORT SB 0

ERRZ

15%:

60%:

ENDSUB
NN

031354
031360
031364
031370
031372
031372
031374
031376
031400
031400
031407
031404

004737
031412
012703
004737
020537
001410

013
000
042

NI N N

031346
031352

Y SN SN NV

=P cod ood d el
NN

031344

004737
031412
012701
004737
031412

B NNNNNNNONO
O NN
NN O WO

)
sd
—

W=~ OOVB~NOWVN

.SBTTL
BGNTST

- OV
~NO WV,

SN
—

*1ES 112

L1004¢:
003014
000001
002754

003014
003020

000177
000177
003020

003020
002754
002754

EMT

18T
BNE
MOV
MOV

20%:

BIC
BIC
(mpP
BEQ

(SESUB
DESHD

20%

#1,DESHD

HOWRD1, TEMPO
11349
#177,TEMPO
#177,HDWRD1
TEMPO,HDWRD}

22%

;TEST 1F HEAD 1 DONE
:YES-SKIP
;ELSE SET TO HEAD 1
:STORE HDR WORD 1
;00 TEST AGAIN
;CLEAR ALL BUT CYLINDER IN 1ST HFADER
;CLEAR ALL BY CYL IN 2ND HEADER
: COMPARE IF EQUAL
s YES=SKIP

CIRLIAD RLOV/2 DR TST

¢TEST

65 031464
46 031470

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE

READ HMEADER

012703

(PART

006631

.WORD
.WORD

PCYLPER,R3
1306., ,ERR]
TSERCODE
1306
ERRT

Em7

($ETST

MoV

ERRHRD

106443

002432
012072

TRAP

22%:

17-1

Sea 0117

:SET NAME MESSAGE PTR
;REPORT HEAD ALIGNMENT PROBLEM

ENDTST
104001

L10043:

]

CIRLIAD RLOV/2 DR TST

*TEST

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE

READ HEADER

(PART 2)

012737
012701
005021
0050¢1
005021
005021

104002

—

POPNIAY =

et et —

NN—=O0V0O~NC

e e

s e

Ny —

-—

OCO®NOG
NS W

.SBTTL
BGNTST

004737
004737
031730
004737
031730
012701
004737
031730
004737
031730

23 031576

031616
031622
031626
031630
031634
031640
031642
031644
031646
031646
031650
031652
38 031654

39 131656

40 031660
41 031462

46 0
45 0

46 0
0
48 0

002714

MOV
mov
(LK

(LR

1153%:
BGNSUB

015652
015670

017324
000310
020646

000100
000002

10%:

005744
104443

002735
013462
005724
005203
005724
001405
022544
104443
002735
013462
024524

005724
005203
005215
011500

13%:

FTI1LERR,ERHEAD
#CURCYL,RI
(R1)+
(R1)e
(R1)+
(R1)¢

14::

;SET ERROR HEADER
;GET ADDRESS OF DESIRED VALUE
;CLEAR CURRENT (vL
;CLEAR DESIRED DIFF
;CLEAR SIGN
;CLEAR DESIRED HEAD

114.1):

r$BSUB

PC,TISTINT

JINITIALIZE

PC,GSTATR

;CLEAR DRIVE

PC,SIMSEX

;D0 SEEX

TEST

:SET WAIT COUNT FOR 20 MS

JSR

PC,RDALHD

;D0 READ HEADER ALL HEADERS

(LR
8IS
CLR
Mov
MOv
MOV
Mov

MORECE

:CLEAR MORE COMPARE ERRORS FOR REPORT

R3
#1BUFF RG
#TEMPO,RS

;CLEAR FOR HDR COUNT
;GET POINTER FOR HDR TO BE
;GET POINTER TO TEST AREA

BIC
151
BEQ
BIS
CLR
cMp
BEQ
TST
ERRHRD

#HORCMP ,OPFLAG

#40. ,R1

(R&4), (RS)

#HDHSEL
, (RS)

;WALIT FOR READY

;SET HDR COMPARE

;SET

FLAG

HDR COUNT

DESHD

;TEST

2(RS)

;CLEAR 2ND WORD OF

108
#HDHSEL , (RS)

(R5), (R4)+
13%

=(R&4)

1501., ,ERR10

IF HD O DESIRED

;YES-SKIP
;ELSF SET HMEAD BI1T

TEST AREA

. COMPARE HEADER WORD
;SKIP 1F OK

;FLSE POSITION R4 TO BAD WORD
;REPORT ERROR

TSERCODE

1S1

ERR10
(R4) ¢+
R3
(RG) ¢

;BUMP R4 TO NEXT WORD
;BUMP WORD COUNT
;TEST 2ND WORD 1S O

(R5)+,=(R&)
1501., ,ERRIC

;POSITION PTRS FOR REPORT
;REPORT ERRCR

.WORD
.WORD
151
INC

TRAP

.WORD
.WORD
(mp
TST1
INC
INC

MOV

C(HECKED

;GET FIRST HEADER WORD

TRAP

BEQ
(MpP
ERRHRD

15%:

“READ HEADER (PART 2)

#200.,R1

60%

000100
003014

s TEST

PC.RDYWAILT

60%

002706

SEQ 0118

JSR

MOV

021242

002716
000002

CLR
CLR

Emt
JSR
JSR
60%
JSR
60%

003656
003020
000050

26 031610
27 031614
29
30
31
32
33
T4
35
36
37

0065¢7
003006

e TEST

B 10

1501

15%

TSERCODE
1501

ERR10

-(RS), (R4)+
(R&) ¢

R3
(RS)
(RS),RO

;YES = SKIP

;REPOSITION POINTER
;POSITION R4 PAST ECC WORD

:BUMP WORD COUNT
;BUMP SECTOR C(OUNT
;CHECK IF SECTOR 1S PAST LAST

SECTOR

CIRLIAQ RLOY/2 DR TST

*1EST

146

49
50
51
52
53

031706
031712
031716
031720
0317264
gg 031726

56 031730
57 031730
031730
031730
58 031732
59 031736
60 031740
61 031746
62 031752
63 021752
031752
031752

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE

READ HEADER

042700
022700
001002
042715
005301
001344

104003
005737
001005
012737
000137

104001

(PART

177700
000050

000077

17%:
60%:
ENDSUB
L10046:

003014
0c0001
031522

003014
20%:
ENDTST
L10045:

18-1

c10

SEQ 0119

BIC
(mp
BNE
81C
DEC

BNE

#*(CHDSEC,RO
240, ,RO
17%
#HDSEC, (RS)
R1
10%

;NO-SK1P
;ELSE CLEAR SECTOR 10 0
;DEC HDR COUNT
s YES-SKIP

EMT
1871
BNE
MOV
JMP

($ESUB
DESHD
20%
#1,DESHD
T153%

;CHECK JF HD 1 TESTED
SYES-SK]P
;ELSE SET TO HEAD 1
;REDO TEST

EMT

($ETST

CIRLIAQ RLOV/? DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
*TEST 15
DIFFERENCE OFf 1 SEEK (PART 1)

i e
—

W)=
O OV
NO VN W

.SBTTL
BONTST

012737
012737
004737
004757
032274
012737
012706
012705
004737

104002

— )

Oowves

004737
032232

006553
000004
015652
015670

002714
003020

177777
003006
00300¢&
020050

003024

1172%:
BGNSUB

021114

—

-0V

PNOND =t =

032126
032130

012703
020337
001404

3%:
4%

00302¢
002204
177777

000001
003024
016562

003024

8%:
:
9%

015720

ONNNOOWLW
oo sroonoON

104443

000145
013252
000423
012703
012701
004737
032232
020337
001411
005301
001404

000005
000062
015720
002762

10%:

12%:

1 SEEK (PART 1)

#-1,TEMP?

;SET =1 INTO DIFF AUGMENT FOR -1 SEEK

#NEWCYL
RS
PC,CHOSHD

;60 CHOSE HEAD

EMT
JSR

($B8SUB

JSR

#CURCYL
R4

;SET ERROR HEADER

T15::

MOV
Mov
Mov

sSET POINTERS

115.1:

PC.GETPOS

INLOOP
CSINLP
EMT
3%
BNCOMPLE TE
3%
BCC
(R&) ,(RS)
CMP
4%
BNE
PC,ONSWAP
JSR
9%
B8R
NEG
MOV
CMP

TEMP?
(R4), (RS)

HLMTW, (R4)
7%
#-1,TEMP?

;GET POSITION

;CHECK IF

IN ERROR LOOP

:NO - SKIP

;CHECK IF CURRENT = NEW
;NG -

SKIP

;ELSE SWAP OLD AND NEW
;SKIP TO SEEK
; CHANGE DIFF AUGMENT FOR OPPOSITE DIR

CURRENT INTO OLD
s MoV
;CHECK IF CURRENT AT 255

:NO - SKIP

;AT MAX CYL, MAKE NEXT

:SKIP

BNE

:NO - SKIP

;AT CYL 0, MAKE NEXT SEEX FWRD
;ADD DIFF TO NEW CYL (41 OR -1)

MOV
ADD
JSR

#1,TEMP2
TEMP?2, (RS)
PC,XSEEK

;D0 SEEK

JSR

PC,GSTAT

;GET STATUS

MOV

¥4 ,R3
R3,T.STAT

;SET EXPECTED STATE

60%

(MP
BEQ
ERRHRD
TRAP
.WORD
.WORD
BR

SEEK REV

;TEST IF CURRENT AT 0

1S7

60%

000004
002762

:SET PASS COUNT
sINITIALIZE TEST
;GET STATUS

MOV

7%:

TEST

PC,TSTINT
PC,GSTATR

BNE

003024

DIFFERENCE OF

#P2T0VE ,ERHEAD
N4, TEMPO

60%

020134

SEQ 0120

MOv
MOv
JSK

JSR
11765%

104020

103005
021415
001005
004737
000421
005437
011415
023714
001004
012737
000405
005714
001003
012737
063715
004737
032232
004737
032232

*TEST

D10

;CHECK

STATE

COUNT

; YES-SKIP
;REPORT STATE ERROR

JSR

JEXIT TEST
;SET EXPECTED STATE
;SET WAIT COUNT FOR 5 MS
;GET STATUS

(Mp
BEQ
DEC
BEQ

;1S STATE §5?
;YES=SKIP
;DEC WAIT COUNT
;Sk1P JF O

MOov
MOV

60%

CIRLIAQ RLO1/2 DR TST
15

DIFFERENCE OF

WNNNIN)
e i et et =t QOO
OO rONOONN

*TEST

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE

59
60 032252
61
62 032254
63 032262
64 032264
65 032270
66 032272
67 032274
68 032274
69 032274
032274
032274

012700
106027
000764

SEEK

(PART

WAITUS

000001

MOV

14%:

104443
0001456

013252
012701
004737
032232
012737

000062
020646
000002

002720

032737
001003
004737
032274
000654

ENDSUB

003020

L10047:

STATE

ERROR

MOov

#2 ,ERRSWI

;INIT ERROR SWITCH

60%

EMY
ESCAPE
EMT
.WORD
DEC
8ea

24%
BR

(SESUB

181

(SESCAPE

L10047-.

EMT

SEXIT TEST

ERROR

TEMPO

;DEC PASS COUNT

#8110, TEMPO

;TEST IF PASS=2
:NO-SK]P
;GO SWAP TO HEAD 1 OR END TEST
;ABORT RETURN

248

23%

PC,SWAPHD

1172%

11765%:
ENDTST

104001

;REPORT

;SET WAIT COUNT FOR 5 MS
;GO WAIT FOR DRIVE READY

JSR

23%:
24%:

ERR7

SEa 0121

JSR

BIT
BNE

020074

A
#1,RO
(sWiy
12%
102., ,ERR?
TSERCODE
102

E 10

#50. ,R1
PC.ROYWALT

60%:

003020
000001

.WORD
.WORD

MOV

104010

000030
005337
001410

TRAP

16%:

L10050:

104003

EMT
BR
ERRHRD

19-1

($ETST

;SKIP IF

0-DONE

CIRLIAO RLOY/2 DR ST

N N
M
N AN N AN

177777

003004
003006
003002

v S

W LA AN L

w
~
W

A
N

4«0
61
62
43
46
45
46
47
48

006553
000004
015652
015670
020050

032362

104020

032364
032366
032370
032372
032376

103005
021413
001005
004737
000421

104002
004737
032522

o
(W)

032352
032356
032360

23 032400
26 0326406
25 032406

26
27
28
29
30
31
12
33
34
35
36
37
36
39

.SBTTL
BOGNTST

002714
003020

*TEST

Mov
Mov
JSR

JSR
11865%
JSR
MoV

003024

1187%:

MoV
MOV
MOV

10
SEQ 0122

DIFFERENCE OF

;TEST 16

#P2102E ,ERHEAD
26, TERPO
PC,ISTINT
PC,GSTATR
PC,CHOSHD
£-1,1EMP2
INEWCYL,RZ

#CURCYL
RS
#OLDCYL,RS

;SET

SEEK

(PART 2)
116::

ERROR HEADER

;SET PASS (OUNT

JINITIALIZE TEST
;GET STATUS, CLEAR DRIVE
;G0 CMOSE

HEAD

(REVERSE)

SSET DIFF AUGMENT T0 -1
;GET ADDRESSES

BGNSUB-

e
e
i

P N2 OOVR~NO
NS N

——t
cmad

~NOWwn

e
—

0
N=—=OWOV

NN
N —

~N onoosSsNONSOO
O

B NANNIN
= = O NN~

*TEST

1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
DIFFERENCE OF
SEEK (PART 2)

032412
032414
032422
0326426
032426
032430
032436
032442
032446
032450
032454
032460
032462
032466

032470
032472
032474
032500
032502
032504
032506
032512
032514

0325146
032516
032520

49 032522

005437
011413
023714

001004
012737
000405
005714
001003
012737
063713
004737
032522
012701
004737
07.522
004737
032522

011501
161401
005737
001402
011401
161501
022701
001403

104443
000311
013322

EMT

021114

JSR

60%

116.1:

($BSUB

PC,GETPOS

INLOOP

CSINLP
EMT
BNCOMPLETE

020134

3%:

002204
177777

BNE

BR
NEG

9%
TEMP?

(MP

HLMTW, (R4)

MOV

#-1,7EMP2

7%:

000001
003024
016562

003024

9%:

000226
02064¢

BNE

;CHECK 1F

PC,ONSWAP

JELSE SWAP OLD AND NEW
JSKRIP TO SEEK

(R4),(R3)

;NO -

SKIP

CURRENT = NiEw

;CHANGE DIFF AUGMENT FOR OPPOSITE DIP
;MOV

CURRENT

INTO NEW

sCHECK IF CURRENT AT 255

:NO - SKIP

;AT

MAX

CYL,

,AKE

;SKIP

:NO - SKIP
AT CYL 0, MAKE

(R&)

SEEK

REvV

;TEST IF CURRENT AT 0

#150.,R!
PC,ROYWALT

;SET WAIT COUNT FOR 15 MS
:WAIT FOR READY

JSR

PC.GETPOS

;STORE POSITION

(RS) ,R1
(R&4) ,R1

;GET OLD POSITION
;SUBTRACT FROM NEW POINTER (FORWARD)
;(HECK JF SIGN FORWARD
sYES=SKIP, ELSE SUB FOR SEEK REVERSE

60%

DESSON

MOV

(R&) R

10%

SuB
(MP
BEQ
ERRHRD

(RS) M
AN}
12%
201., ,ERRB

.WORD
.WORD

201
ERRS

TRAP

12%:

(R&4),(RY)

MOV
JSR

BEQ
10%:

;NO - SKIP

#1,TEMP?
TEMPZ2, (R3)
PC.XSEEK

60%
MoV
SuB

003012

IN ERROR LOOP

MOV
ADD
JSR

60%

021114

000001

MOV

BNE

00302¢4

b3 )

JSR

003024

;CHECK JF

8CC

(mMp

JGET CURRENT POSITION

TSERCODE

sADD DIFF
;D0 SEEK

SEEK

FWRD

TO NEW CYL (¢1 OR =1)

;GET NEW CYLINDER

sSUBTRACT FROM OLD CvL

cCHECK JF RESULT IS DIFFERENCE OJF
s YES=SK]P
;ELSE REPORT ERROR

&» AP0 LM N AN AN NN P
~ CrNNOOON

50
51

w ALY
IV IV IV IV I

CIRLIAQ RLOV/2 DR TST 1 MACRO v03.01 9-FEB=-79 i9:14:22 PAGE
*TEST 16
DIFFERENCE OFf
SEEK (PART 2)

592
554
560
562

C12737

000002

002720

60%:

ENDSUB

110052:

104003

106010

000039
005337
001410

032737
001003
004737
032564
000673

003029

000001

003020

020074

20%:
30%:

20-1

MOV

#2,ERRSWI

EMT
ESCAPE
(3]
.WORD
DEC
8to

(SESUB
(SESCAPE
L10051-,

#8110, TEMPO

032566

104001

ENDMOD

;INIT ERROR SWIT(HM

SEXIT

TEMPO

;DEC PASS C(OUNT

30%

20%

PC,SWAPHD

T187%

EmT

($ETST

11865%:

ENDTST
10051:

SEQ 0173

151

BNE
JSR

309

G 10

JEXIT

TEST

ERROR

DONE

;TEST IF PASS 1 OR 3

SYES-SK]P
;00 SWAP 10 HEAD 1 OR END TEST
;ABORT RETURN
;LOOP

CIRLIAG RLCY1/2 DR TST
CLDING

9-FEB-79 19:14:22 PAGE
LSBTTL
BGNMOD
BGNHRD

000030
P

GPRML

005130
0327¢%
000001

GPRMA

000031
032650
160000
177776

GPRMA

001031
032661
000000
000776

GPRMD

004032
032716
003400

000000
000007

GPRML

003130
032701
000001

GPRMD

032650

ENDHRD

022650

L10053:
)
o

15 032670

0327
0327
0327
17 0327
0327
18 0327

0327

'6 032701

Ottt
=t QO et O =t =
OO
O —=~NNO
— N
SO
NO

——

14 032661

—OrnO
N
NP -2

—_—

000007

032650
032653
032656

PARAMETER
HRDPRM

H 10

123
104
000
103
122

CODING

.WORD L10053-L$HARD/?
CNTYPE,CNT,
1, YES
LWORD
T$CODE
.WORD
CNTYPE
1
.WORD
CSRMSG,CSR,0,160000,177776,YES
.WORD
TSCODE
.WORD
CSRMSG
.WORD
TSLOLIM
MORD
TSHILINM
VECMSG,VECT,0,0,776,YES
.WORD
T$CODE
.WORD
VECMSG
TSLOLIM
MORD
TSHILIM
LWORD
DRMSG,DRSB,0,3400,0,7,YES
.WORD
T$CODE
.WORD
DRMSG

.WORD

3400

.WORD

BRMSG

.WORD
LMWORD

TSLOLIM
TSHILIM

.WORD
TSLOLIM
TSHILIM
LWORD
DRYYPE,TYPDR,1,YES
.WORD
T$CODE
.WORD
DRTYPE
1
.WORD
BRMSG,PRIOR,0,340,0,7,vES
.WORD
T$(ODE

.WORD

000000

=t —s QOO =t bt et et =
Q== ON
O ONN—=OnN
[P
LNV ] VNYoV
],V RV, 1,V

—

002032
032670
000340

032646

SEQ 0124

PARAMETER

1 MACRO v03.01

340

.EVFN

(SRMSG:

LASCIZ

/BUS ADDR/

VECMSG:

.ASCIZ

/VECTOR/

BRMSG:

LASCIZ

/BR LEVEL/

111
040
122

DRTYPE:

LASCIZ

/DRIVE = RLOV/

111

DRMSG:

LASCIZ

/DRIVE/

:
(NTYPE

JASCIZ

/RLYYY

126

000

000
061

CIRLIAQ RLOY/2 DR TST

PARAMETER

CODING

19 03273
20
21
22 032 732
23 032732

” 032732

30 032734
032734
03273¢
032740
31 032742
032742
032744
032746
33 032750
032750
032752
3 032754
46 032756
032756
(32760

032762
032764
032766

50 032770

032770
032772
032774
51 032776

1 MACRO v03.01

9-FEB-79 19:14:22 PAGE
ENDMOD

000021
000130
032776
000004

GPRML

SELQ MISW] ,4,YES
.WORD
T$CODE
.WORD
SELQ
.WORD
&
ALGNQ ,MISW],10,YES
.WORD
T$CODE
.WORD
ALGNQ
.WORD
10
MANQ,MISW],100000,
YES
.WORD
T$CODE
.WORD
MANQ
.WORD
100000

3%:

004052
033125
000377
000000
000377

GPRML

ENDSFT

L1005¢4:
SFfrOWOOSTFTOrNOWOWMWLO
S swn

— d —d
it e i e et et () e ) e el i e
s
NN — e = O —=NOO NSOV
ONO

—t i )
e s e () d i e d bt s ) et O —d =
NN OOOOEHMNNWNIORN
—= I =i Poww
NOOWVMN—=—=OWVOW
NI
O—=0WwVO

i e
el e il
s
el
i
d
e
e
e (O

GPRMD
.WORD

ERLIMQ,ERLIM,D,377,0,377,YES
T$CODE

.WORD
.WORD
.WORD

377
TSLOLIM
TSHILIM

ERLIMQ

AUTCQ,MISW],20,YES

.WORD

.WORD
.WORD

T$CODE

AUTOQ
20

.EVEN

SELOQ:

LASCIZ

/EXECUTE DRIVE

SELECT

TESTS/

ALGNQ:

LASCIZ

/EXECUTE HEAD ALIGNMENT

MANG:

<ASCIZ

/DO MANUAL

SUPPORT/

et OO

£ 00O

—
—

et
—

OO
—
—_—_~

— ot

)

.WORD L10054-L850F1/2

.WORD

000130
033147
000020

d it

fo
N

3050

SFTPRM

GPRML

000130
033070
100000

.EVEN

BGNMOD
BGNSFT

GPRML

(00130
033031
000010

N= OO =N
= =2 L OO00ONINIOOONOOO
WM
S ONWVEB N —=OWMWNMIWWNE
S
WA
VN WDN

59 033031

110
SEQ 0125

032776

52
58 032776

21-1

INTERVENTION TESTS/

A0OOONMONO0SV—4——~(<.]Y-O[2—l+Te~N—Or]—(Vn-4“o~]I][~——[«V1N1N11
OONICITOVOe—INmOOV~ONMN—ON~TO~OONMP-O—N INN3CNI——ONOOrme—~m

~as0OCNNA)aeOl—3a0ageOIlg0aOleOaNlagOotNilOaMMPlOeNiFOea$OelOseaOlaOMaNlOeM0slOalTOaNN—OtlCAlAOOalOOAOlOT
CODING

74
75 633200
76 033200

033200

x—
[~oa
-—~

PARAMETER

=o2
<~[J
o
o[ZVel

o o
CIRLIAO RLOY/2 DR TST
1 MACRO v03.01 9 ~FEB=-79 19:14:22 PAGE 21-?2

L=o

ENDMOD
LASTAD

L$LAST::

.EVEN

-4[- >[-% V4[Y-][4>

—

J 10
SEQ 0126

a o < 172 wd ~

CZRLIAQ RLO1/2 DR TST

DIAGNOSTIC

1 MACRO v03.01

SUPERVISOR ==~ LOW CORE

SET

9-FEB=79 19:14:22 PAGE
UP

DIAGNOSTIC

K10
StQ 0127
SUPERVISOR -- LOW CORE

SET UP

ASSEMBLY

PWR.FALIL:

35
36
37
38
39

ROUTINES

063774
063776
064000
064002

POWER

000000
000000
000000
000000
064006

000200

MACRO v03.01

INTERRUPT

9-FEB-79

ROUTINE

19:14:22 PAGE

.WORD
.WORD
.WORD
.WORD

0
0
0
0

END.SUPV=_¢2
.END 200

171

L 10
SEQ 0128

:SPACE FOR USER POOL POINTER
;SIIE
s CHECKSUM (NOT CURRENTLY USED)
;SIZE OF H.W. PTAB, ALLOCATION

032670
002722

DRVNAM
DRVNAV
DSESTA=
DSMSK =
DSPCOD

DUNIT.
OVC.FT
D$AAG
DSAAH
DEAA]
DSAAJ
DSAAK
DSAAL
DSAAM
EF .CON=
EF .NEW=
EF.PWR=

ERR3
ERR&
ERRS
ERR6

ERR?
ERRS
ERR9

€SC.PC
Ev.COU
EXTO0S
FBSFIL
FILL
FIcL.C
FLAGS

FLAGSY

AT AT

A AT AT AT AT AT AT AT AT AT A Y A

>
T ]
T
T I
T
T
O
T
TS
T
(T
T O
T

A AT

T
O
L1 I T

[

—t 7
—

[AY
)
BN~ T A}

ERR1
ERRIFO
ERR10
ERR?2

AT AYAYAY
AT AN AN 2

000032
000043
000042
000040
000052
000011
000020
000035
000034
000100
000051
000023
000014
000017
000016
000015
000040
000377
000007
000050
000045
000033
CSREVI= 000002

P-]

= TV VAT TV VA VY TV VY TR VR AL TR VY Y MY ML Wy
- b e
i
b QOO OOQOOOOO
s OCOWVEBUWMN
= OV
NOWESWN =D

m laalaalaalaalaalaalaalaakaolaalaalaalaalaalaslaslaaka,l

END.OF
END.SU=
ENVIRO
EOP.CH
EOP.FM
EOP.IN
ERHEAD
ERLIM =
ERLIMQ
ERLIMW
ERRCNT
ERRFOR
ERRKAN
ERRPOI]
ERRSWI
ERRVEC
ERR.HR
ERR.NU
ERR,SF

CSESUB=

CSETS(=
CSEXIT=
CSGMAN=
(SGPHR=
C$GPR]=
CSGTIM=
CSINIT=
CSINLP=
=
C$KWOF
CSKWON=
($LOOP=
CSMAN]=
CSMSG

000002
000003
000004
000005
000006
000007

(2NN

AT
A

DESDIF
DESHD
DESSEC
DESSGN
DEV.CO
DIAGMC=
DIAG.T
DIFAUG
DIFWD
DIRBIT=
DIRMSK
DLTERR=
DONE

000037
000040
000001

[AX 2N =)

040666
056300

061566
033440
060670
033436
061274
062276
062432
033476
040246
015136
002206
023034
040522
000012
032724
056744
033250
056560
007777
000004
062356
014146
COSTAT= 000040
COUNT
003046
CRDYMS= 000200
CRLF
052656
CSNAM
006027
= 000000
(SR
CSRMSG
032650
003006
CURCYL

CLEAR.
CLKACC
CLKBFR
CLKCNT
CLKJUM
CLKRES
CLKSER
CLKSON
CLK.SE
CLNCOD
CLRBYT
CLRPAR
CLR.MA
=
CNT
CNTYPE
CNVT
COMMAN
COMMTA
COMPOP=
CONHNG=
CONTCL
CONTIN

000025
000047
000041
000037
000013
000031
000026
000027
011001
011042
011012
006061
DATACM= 000001
DCKERR= 004000
OCLIM = 000012
DCLIMY
013724
DECMSG
052470

SO
OO N—=NIWN~NNIWN
(ool 0l P
AR VT VD LR VT e J ST O
3

000020
000040
000100
000200
000400
001000

A A A

001000
000002
002000
004000
010000
020000
040000
100000
000004
000010

A A A AT 2

000400

A A

000001

000001
000002
000004
000010
000020
000040
000100
000200

T
T
T
T
O
T O
T
T
O
T
T
U
T
L
L
L L
R
T

NN = b ot b e d i
NN
- O
NN L

-l
)
e
]
]

ot St Gt Pt S

]
]

O OO O T

]
o
] o

Gvmt Bt Gnet Gt Pumt B

G0 TG0 GO U0

—

T T T th O

B110
81100
81701
B1102
81103
B1104
81105
B1T06

A T A X A T A X AT )

033147

00020
ASAAV
040002
ASAAY
040016
ASAAX
040030
040036
ASAAY
ASAAZ
040052
AS$ABA
040062
BADADD= 004000
BAMSK = 000060
BANAM
006034
BASADD
005732
BELL
010702
BGN.SU= 033200
BHSTAT= 000010
052454
BINMSG

CSAAD
CSAAE
CSAAK
CSAAL
C$ABRT=
CSADR
CSAU
C$BRK
($BSEG=
($8SULB=
CSBUFF=
CS$CEFG=
CSCLEA=
CS$CLP1=
CS$CVEC=
CSOCLN=
C$00DY=
CS$ORPT=
(sou
=
CSEDIT=
CSERDF=
CSERHR=
CSERSF=
CSERSO=
CSESCA=
CSESEG=

SEa 0129

000011

CURR.S
CURR.T
CYLPER
CYLTBL
CYLUP =
CyLwD

BSNSTR

n10

[AX

100000

03513¢

003264
007716
BYPSNM
007647
BS$AAB
042270
BSAAF
042202
CAFDTY
011031
CALLPC= 000022
CALLPS= 000024
CALLSP= 000026
CALLTC= 000030
CAL.CL
060666
CAL.TI]
060724
CAMSK
002214
ccyYLup
011020
CORDY
010761
CHKLUP
062304
CHKSTR
054506
CHKTTY
052574
. MA
CHK
060444
CHK.PC
045574
CHK.SW
034634
CHOSHD
020050
CHRCNT
054026
CH.FLA
040152
CH.PAS
060170
CKDATA= 000102
CKERLM
015326
BSFVAL

171-1

OOOOOOO0O
OO O
OO rMNINMNIN
SOOI
NIN
NN
N
PN —
sSvooorOoOro

033524 G
033442 6
036004
033232 6
033031
000001
056144
000002

[A YA Y2 Y A I

ABOF LA
ABOPAS
ABO.FN
AFS1
ALGNQ
ALLCYL=
ALLOC
ALLSEC=
ANYERR=
APT.ER
ASSEMB=
AUTOQ
AUT0SZ=

SYMBOL TABLE

MACRO v03.01 9-FEB-79 19:14:22 PAGE

ROUTINES

ASSEMBLY

FMT6

FM17
FM18
FMT9

GSPRMA=
GSPRMD=
GSPRML=
GSRADA=
GSRADB=
GSRADD=
=
GSRADF
GOSRADL=
GSRADO=
GSRADT=
GSXFER=
GSYES =

L.CLK,
L.CS
L.DA
L.MP

L 10000
110001
110002
L10003
L10004

LPT0S

LSDRST
LSDTP
LDV
LSOUT
L30OVTY
LSEF
LSEFLG
LSEXPI
LSEXP2

LSEXP3
LSHARD

LSHPCP

LSHPTP

| $HW
LSICP
LSINIT
LSLADP
LOLAST
LSMREY
LONAME

002062

el
el
ol
el
i
il
e

LS$DEPO
LS$DESC
LSDEVP
LSDISP
LSDR
LSDRCTY
L$DRS

LSREPP
LSREV
LSSOFT
L$SPC

372

LSI1.RE
LUP
LUP.AD
LSAPT
LSAUT
LSCCP
LSCLEA
L$CO

254
260

69
64

AT AT AT AT AY AT AT )
(A

LCLEXTY
LINE.F
LOAD.F
LOCERR
LocyL =
LOGMSG
LOLIM =
LOLIMW
LPBFR
LPCNTR
LPT.AD
LPT.RE

002020
002024
002030
013712
002014
002054
002052
002100
002012
002740
037576
002736
002742

D el

L$SPCP
LSSPTP
LSSTA
LSSY
LSTIML
L$TIMU
LSTIM
LS$TST]
LSUNIT

LAB1
LAB2

[AX
AT )

]
L
[ I
T
T
T
T S
L
I
T
LI

000005
000010

HCOREQ
HCORET
HCRCER=
HC.ADR
HC.DEF
HC.DIA
HDAL]IG=
HDCYL
HDHSEL<
HDMOVF
HDR(MP=

015670
006372
000104
000400
000002
000001
000000
000400
000376
000001
000002
000000
000140
000000
000040
000200
000120
000020
000100
000004
006010
002712
006715
007000
040000
037742
037652
033466
004000
033236
033230
033226
000010
002220
000100
006572
000002

KBPIR
KBUf
LAB

GSNO =
GSOFFS=
680fS]=

015730

SEQ 0130

[elelalololalololelalelele]

GSTER
GISTAT=
GSEXCPGSHIL]=
GSLOL]=

HADONE

—

GLBEQA
GLBERR
6LBSUB
GLBTIXT
GSTAT
GSTATC
GSTATG
GSTATR

HAMES
HAMES?2
HCESTA=
HCORED

I
O
LI

F$AU
F $BGN
FSCLEA
F $DU
F$END
FSHARD
F$HW

GET.TW
GLBDAT

100000
000077
000029
007623
HOWRD1
002754
HDWRD?
002756
HOWRD3 002760
HEAD
= 000006
HEADLM= 010000
HEADW
013720
HERTZ.
037612
HICYL
020000
HILIM
000004
HILIMW
013716
HLMTW
002204
HNFERR= 010000
HOLDSP= 000020
HOSTAT= 000020
HPTCOD
013672
HRDOPRM
032566
HRDOWTS
023064
HSMSK = 000100
HSSTAT= 000100
HW.ADR
033234
HSAAB
057272
1BUFF
003656
033456
ININIT
INITCO
013770
INITIA
052504
006423
INITST
040570
INIT.M
033272
INIT.R
INOUTS= 000020
INPUTA
053432
INTEBL= 000100
INTFOR
0667%)
015270
INTHLR
INVAL.,
037536
046566
INVINT
INV.SW
034570
041540
IN,SUF
000041
1$AU
000041
JI$CLN
18DV
000041
000041
1$HRD
I$INIT
000041
1$M0OD
000041
1$MSG
000041
000041
1$PWR
000041
J1$RPT
1$SEG
000041
000041
18SFT
1$SRY
000041
41
0000
1$SUB
7
000041
1818
JJJ
002202
JOIMP = 000167
HOR4O

HDSEC
HOSEL
HOWD

[AY QY AY AT A

OCr=000 N [V IV I ST W
AV TP OoO~NO
S~
VN
—~ NN =\ — OO =NV
OONS
NN =~

FOLWRT=
FORM.Y
FREE
F RMWD
FWDSKO=
FWDSKS=

GETSW]

000002
000014
000001
054030
002212
052534
056120
047612
021114
000003
055114
054664
002126
002126
012072
015262
005134
015720
015704

171-2

[aalalalalalalalanlalaalaalalalnlAlAlalalalalalalaAlaaYaYaRalaYaY~YAY

FMTS

F9SuUB
F9SW
FOTEST=
GARBAG
GBND
GETCHR
GETCMN
GETPAR
GETPOS
GETSTA=

9-FEB-79 19:14:22 PAGE

)

FMT4

—

FMT13
FMT14
FMTIS
FAT16
FM117
FMT18
FMT19
FMT2
FMT20
FMT21
FMT22
FMT23
FMT24
FMT25
FMT26
FM127
FMT28
FMT3

—l—.—‘—l—.d-‘—lflddfldflfldd-fl—‘d-‘.-fldd—‘-—‘—‘_‘—‘—.
e e wacd cnd e e e (NI NI N N ) b s d e e b cad b b o D d e i e
D e d
NN
=
b s(o d=d=l=I=] NN
= O N NN
L LS NN
et

FMTOP1Y
FMTIOP2
FMIOP3
FMT1
M1t
FRTI
FMT12

056476
060232
056444
040172
011050

OO0O000O0O00OVOOOCOOOOOOOODOOOOOOOOO

FLAGTA
FLAG.!
FLA.SE
FLG.MA

MACRO v03.01

[AY AN~ B

ASSEMBLY ROUTINES
SYMBOL TABLE

MACRO v03.01

L10053
L10054¢

MOPER
MOPERR

032650
032776

9-FEB=-79

19:14:22 PAGE

171-3

"
SEQ 0131

005306
010375

oLocyL
ONSWAP

003002
020134

PRIO4 = 000200 6
PRIOS = 000240 6

SAVEDO= 035134
SBSFIL
003266

MAJ.IN

033262 G

MORECE

002716

OPFLAG

002706

PRI06 = 000300 G

MAJ.US
MANQ

033264 G
033070

MPNAM
006046
MQUALS= 003760

OPMSGS
0PR0O02

002126
007052

PRNTST
PRO.CM

SEEXK
= 000106
SEEXOP= 010000

MAJ.LO

060672

MOUTIN

005347

OPIERR= 002000

PRIO7 = 000340 6

053674
040144

MAN.T1
mAP1G
MASK.B
MASK.W
MBADAD
MBADSF
MBHSTA
MBSETO0=
MCERR
MCONKN
MCOSTA

001244
063400 G
042302
042300
005613
005634
010204
00Nr501
010024
006201
010171

MREAD
MREADH
MRESKO
MREVSK
MRLFAL
MRSLT
MSEEK
M5G.AD
MsSG.TY
MSPERR
MSTERR

005142
005153
005557
005435
010556
005315
005134
033224 6
033200 6
01027
010324

OPR0OO03
OPROO&
OPR1
OPRIA
OPR1B
OPR10
OPR11
OPR12
OPR?
OPR3
OPRS

007077
007573
007122
007544
007550
007426
007474
007525
007200
007232
007246

MCYLUP
MDATCP
MDCRC
MOMEDR

005337
005221
010046
002000 6

M10SLO
MUL
MULOAD
MUNDEF

006107
062676 6
005326
010511

OPR7
OPR8
OPR9
OUTINS=

007343
007372
0076411
000040

P2T02E
RDALHD
RDDATA=
RDHEAD=

MDRDY
MDRERR
MDRRES
MDRVST
MDSERR
MEM.S]
MERRS
MEXERS
MFLERR
MFPTER
MFOLWR
MFWDSK
MFWSKO
MGTSTA
MHCERR
MHCRC

010013
010135
006126
010256
010241
037640
010673
010633
010422
005664
005413
005470
005523
005207
010342
010036

MWDERR
MWGERR
MWLSTA
MWORD
MWRCHK
MWRITE
MWRSET
MWRTAB
M4OHDR
NEWCYL
NEWPR]I
NEXTAR
NOCLR =
NCERCY
NNIRPT=
NOOP
=

010360
010307
010217
006101
005163
005175
005272
010617
005256
003004
062422 G
056662
000010
003257
000002
000100

0%AU
=
0$BGNR=
0$BGNS=
os0U
=
O8$GNSW=
O$POIN=
PARSES
PART1 =
PAR.LA
PASCNT
PASNEW
PASNUM
PASS.C
PATTIBL
PATI
PAT10

000000
000000
060001
000001
000001
00C00
056172
000001 6
052160
003044
014174
003252
033214 6
002262
004656
005132

RDYCHK
RDYWAI
READRL
READ.P
REGBAC
REGSAV
RELDWT=
REAN.P
REAN.T
RESE3
RESES4
RESES
RESE6
RESPAR
RESTAR
RESTBL

017610
020646
015466
060674
063364
063350
040000
033254
040146
010706
010712
010717
010724
002764
014136
002222

MHDRCP
MHFCRC
MHNF
MHOSTA
MHSTA
MINOUT
MIN.IN
MIN.US
MISTST
miswl =

005240
010105
010057
010230
010146
005370
033256 G
033260 6
006301
000000

NO.CLK
NO.FLA
NO.LPT
NO.PTA
NR
=
NSTACH
NUMBIN
NUM.LA
NUM.NO
NUM.UN

037566
056456
053774
037772
000000
006324
047120
047266
033242 G
033650

PAT3
PAT4
PATS
PAT6
PAT7
PATS
PATO
POSHDO
POSHSB
POSHW!

004720
004760
005020
005026
005066
005070
005130
020622
020616
020610

REVSKS=
RE.SET
RLBA
=
RLBAS
RLCS
=
RLCSR =
RLDA
=
RLDRV
RLMP
=
RLVEC

000200
034736
000002
002730
000000
000000
000004
002734
000006
002732

RPTRES
RSTACK

022372
062624 G

MCYLOC

MOLTY

MHDERR

010461

010073

010405

MISWIW 013712
MITEST= 100000
MNDRST
010466
MNEERR
MNOCLR

MNOINT
MODR

010450
006215

006146
062742 6

MTMBS

MvoLCK

NOPWR

005711

010160

005767

NUNITS
042256
NXMERR= 020000
NXTFOR
056736
NXTHL
NXTPAS
OBUFF
OCTIMSG

002210
014166

004256
052462

OPR6&

007310

0$APTS= 000000

PAT?2

004660

PRINTC
054004
PRINTF
057312
PRIOR = 000004

PRI0OO = 000000 G
PRIOY = 000040 G

PR102 = 000100 G
PRIO3 = 000140 6

PSETNM
PTAB.S
PUTCHR

003254
033464 6
052510

PWCON
PWRFLG

014444
003262

PWR.FA
PWR.FL
PWR.MS
PWR.SA
PWR.UP
P.CLK.

063634 6
033270 G
063762
063756
063760
037604

P2T01E

SECWD

006553
006553
021242
000114
000110

RONOHR= 000116

RSIRT
014054
SAMSX = 000077

007627

SEGSTA
SrLa
SEQMES

033500 6
032776
007662

SETDON
SET.MA

014222
040356

SFTPRM
SGNWD
SHIFT
SIMSEK
SPDERR
SPDSTA=

032732 6
007616
063462 6
017324
006336
004000

SPTCOD
SPv.SE
SSINDX
STAMES

013710 6
000400
002704
007705

STARTC
STATE2
STATEZ
STATES
STOSTA=
STRCHR
STRT.T
ST.SET
SUBSTK
SUNIT.
SUPERV
SUPFLA
SUPV.T
SUP.PR
SVCBGL=
Sv{GBL=

062352 6
010731
010741
010751
010000
053364
040150
035002
002306
040154
036036
033444 G
033616 6
034554
000001
000000

SPEC.U

040072

STAMSK= 000007

G
G
6
G

REVSKO= 001000

RORWOP= 020000
RPTOP
021604
RPTREM 022600

054632

SVCHAN

SVCINS=
SvesuB=
SVCTAG=
SVCTST=
SWAPHD
SWCHAN
SWITCH
SW.ADR
SW.PTA
SYS.FT

042472

000000
000001
000000
000001
020074
037764
056636
033240 G
037750
046516
SSLSYM= 010000
TBLSTR
002726
187
002446
TCERR
007772
TEMPO
003020
TEMP
003022
TEMP2
003024

ABS.

064004
000000
ERRORS DETECTED:

o— 0

002762
006436
006451
023064
027774
006461
030026
030026
030316
030474
030646
030646
030750
006501
030776
030776
031266
006513
031312
031312
031500
006527
031522
031754
032024
031522
032276

010051
002750
002746
002752
002200
002754

000
001

VIRTUAL MEMORY USED:

20256 WORDS

( 80 PAGES)

70 PAGES
CZRLIA.BIN,CIRLIA=#SV(RT/M PART1,C2HEAD,CZRL]IA,C2TAIL,DOCTOR

DYNAMIC MEMORY

AVAILABLE

fOR

171-4

SEQ 0132
002332
002360
023536
002406
024770
024772
025012
025466
025600
026072
026124
026204
026600
027056
027410
027474
000010
007560
033216
040074
006256
033460
033462
033720
034540
060204
006235
VCSTAT= 001000
032661
000002

015520
017777

WCRNG = 160000
WDESTA= 100000

o — 0D PN —

@
s
.

.—a:

\ Y —
b o
b \ SV d

000001
010015

TMM

177777
010055
000000
000020
177777

000001

NS = PO o

047072
052426
000001
003260
015262
015652
(06273
042414
034616
000006
053022
046716
056340
052720
052302
052740
046546
041560
000002
000130
000043
000311

—t SV

TIN.OP
T00.MA
TOSLOW=
TRPFLG
TRPHAN
TSTINT
TSTLAB
TST.AB
151.10
TYPDR =
TYPEC
TYPEPC
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER
TY.UN]I
T$ARGC=
T$CODE=
T$ERCO=
T$ERRN=

177777
177777

TEST.A
TIMFLG
TIR.CO

cad —

TERMTA

TERM]
TERML]

)

TEMP7
T1EMP8

000000
000040
000377
000000
010000
177777
000000
000005
000002

TEMPG

TSEXCP=
TS$FLAG=
T$hiLl=
T$LOL)=
TSLSYM=
TSNEST=
TINSKO-=
TINSK 1=
TINSK2=
T$SAVL=
T$SEGL
=
T$SUBN=
T$TAGL=
TSTAGN=
TSTEMP=
T$TEST=
TS$TSTM=
T$151S=
T$SCLE
198DV
TSSHAR
TSSHW
T$$IN]
TSSMSG
T98SOF
T$$SRY
T$$SUB
T88SW =
T$STES
1.BA
1.CS
T.DA
T.DR1V
T.MP

TEMPS

003026
003030
003032
003034
003036
003040
060662
056464
052446
04010¢
033434
033266

—

TEMPSL

[=leolelelelelele] (=
OCOOOOOOO o

TEMP3

9-FEB-79 19:14:22 PAGE

MACRO v03.01

ROUTINES

COO0O0OOOOO o

ASSEMBLY

SYMBOL TABLE

WGESTA=
WIDTH
WLSTAT=
WRTSWI
WIDATA=
XEQDIA
XEQSUB
XEQ.CL
XEQ.CM
XEQ.IN
XEQ.LA
XEQ.OP
XEQ.PR
XEQ.TE
XRDHD

002000
047466
020000
002724
000112
062510 G

062476 6

XSEEKT

062220
037530
041702
035772
061774
035174
042040
020170
020160
020174
016562
016552
016566

$BREG
SENDAD
$SAV2
$SAV3
$SAVL
$SAVS

0640244
062662
063526
063542
063560
063600

XROHD(
XRDHDG

XSEEK
XSEEKT

061362 6
062206
061404
037550
000000
000040
X$OFFS= 000400
X$TRUE= 000020

XTIME
XTIMEN
XTIMST
XXDP.D
XSALWA=
ASFALS=

G
6
G
G
G