Digital PDFs

AH-F122A-MC

May 1979

149 pages

Original

7.0MB

view download

OCR Version

6.2MB

view download

Document:	CZRLJA0 RL11,RLV11 RL01,02 DR TST 2 MAY 1979 bw
Order Number:	AH-F122A-MC
Revision:	000
Pages:	149
Original Filename:	CZRLJA0__RL11,RLV11__RL01,02_DR_TST_2__AH-F122A-MC__MAY_1979_bw.pdf

OCR Text

RL11,RLVIT

&05"

e
FICHE 1 OF 1

MADE IN USA

sDENTIFICATION
LI

AC=F 123A=-M(

PRODUCT

NAME:

(ZRLJAD RLO1/02

(REATED:

SEQ 000!

(ODf:

DRIVE

DIAGNCSTIC

ENGINEERING

AUTHOR:

NOT

TEST

PART

S=JAN=79

PAINTAINER:

INFORMATION

SHNULD

eRODU( T

CATE

THIS

DEKNIS,

DOCUMENT

CAMPBELL

SUBJECT

CONSTRUED AS A (COMMITMENT BY

CHANGE

DIGITAL

WITHOUT

NOTICE

EQUIPMENT

TION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
ERRORS THAT MAY APPEAR [N THIS MANUAL.
Tt

SOF TWARE

JNDER
(W]TH
TEM,

DESCRIBED

A
LICENSE
INCLUSION OF

EXCEPT

DIGITAL

AS MAY

EQUIPMENT

kKt _1ABILITY

THIS

DOCUMENT

FOR USE ON A SINGLE
DIGITAL'S COPYRIGHT

OTHERWISE

FURNISHED

PROVIDED

IN WRITING BY

CORPORATION ASSUMES NO RESPONSIBILITY

JTS

SOFTWARE

(()

1979,

DIGITAL

EQUIPMENT

THE

(ORPORA-

FOR

ANY

PURCHASER

COMPUTER SYSTEM AND (AN BE C(OPIED
NOTICE) ONLY FOR USE IN SUCH SYS-

THAT

TAL.

(OPYRIGHT

AND

(ORPORAT]ON

NOT

DIGITAL.

FOR

THE

SUPPLIED

USE

DIGI-

PAGE 2

GENERAL

TABLt

(VI LY

[}

—a ap

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC

—

THE

N -

SIX

SAMPLE

HOW
M

NP
O N

INFORMATION

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT JONS

LY
VR Y,
V)

CONTENTS

PROCRAM ABSTRAC(T

U N

2.0

STEPS OF

RUN-THROUGH

TO CREATE

DETAILS OF
TABLE

EXECUTION

CHAINABLE

COMMAND

VvALIDITY

COMMAND SYNTAX
EXTENDED P-TABLE

DIALOGUE

HARDWARE

PARAME TERS

SOf TWARE

PARAMETERS

ERROR

INFORMATION

PERFORMANCE

DEVICE
TEST

FI.E

COMMANDS AND SYNTAX

AND

PROGRESS

INFORMAT]ION

SUMMARIES

TABLES

REPORTS

SEQ 0002

PAGE

GENERAL

THIS

INFORMATION

DIAGNOSTIC

OCCUPIES

14.5k

WORDS

MEMORY

AND

C(OMPATIBLE

WITH

BOTH XXDP AND ACT.
IT (AN BE RUN STANDALONE UNDER XXDP, AND (AN BE
INED UNDER XxXDP, A(CT AMD APT IN A(CT MODE (SEE °'‘CREATE (ORE
[MAGE'"

(HA(OM-

INTO IT A CONTROL MODULE
DIAGNOSTIC SUPERVISOR.

AS A

MAND
FROM

BELOW
FOR DETAILS OF CHAINING PROCEDURE).
THE STANDPOINT OF THE DJAGNOST!C USER,
BUT

WHICH WILL

LATER BE

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS
THE
SUPERVISOR
PORTION,
WHICH
WiILL ASK
ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER
PROMPT CHARACTER (DS B>).
AT COMMAND MODE

SEVERAL

IT1
WE

IS A SINGLE PROGRAM
HAVE
INCORPORATED

RELEASED

INDEPENDENTLY

200, CONTROL
GOES
FIRST
10
CERTAIN ''HARD (ORE'' QUESTIONS
COMMAND MODE, INDJCATED BY
A
THE OPERATOR MAY ENTER ANY Of

COMMANCS AS DESCRIBED BELOW.

THE

SUPERVISGR

BUT

THE

CODING

FOLLOWS

IMMEDJATELY

THE

DIAGNOSTIC

TEST

SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL

A LIMITED
A?:EHBLV

(ODING,

DISTRIBUTION.

DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE Of THE
SUPERV]SOR
LISTING,
AND IT MAY BE CONSULTED IN EVENT OF A SOf TWARE PROB-

Lth,

DIAGNOSTIC

INFORMATION

THIS PROGRAM TESTS AND EXERCISES RLO1/02
DISK
DRIVES
RLTI/RLVIY
(ONTROLLERS
(4
DRIVES
PER CONTROLLER).
THE ENTIRE PROGRAM IS RUN ON THE
FIRST DRIVE BEFORE STARTING ON THE SECOND.
THE PROGRAM STARTS BY
TEST=-

ING THE

TEST

SIMPLEST

FUNCTIONS FIRST USING THE LOGIC

COMPLEX

THIS PROGRAM FIRST

THEN

BEGINS

FUNCTIONS.

TESTS

THE

TESTING

RLO1/02

THE

TRANSFERS ARE

TRANSFER

DONE

READING

AFTER

THE

DIFFERENCES.

ALL

BAD

THE

SECTOR

LATER TO PREVENT TESTING ON BAD SECTORS.
}E?gé?géf EEF PROGRAM TESTS FOR OVERWRITE
N

BASIC

DRIVE

SEEK

SEEXK

TIMING

TESTS.

FILES WHICH

ARE

THE

TESTS
L0GIC.

DIFFERENCES,

DONE

AFTER

FIRST

DATA

STORED

AND USED

FOLLOWING DATA READ AND
WRITE
PROBLEMS AND ADJACENT CYLINDER

NCE.

SEEr

AND

SEEK OPERATIONS USING SINGLE

PROCEEDING INTO SEEKS OF GREATER
THE SEEK LOGIC HAS BEEN TESTED.

DATA

INTERFACE

TESTED IN EARLIER

TIMING,

MANUAL

ROTATIONAL

TIMING,

AND WRITE

INTERVENTION IS REQUESTED.

SYSTEM REQUIREMENTS

(0Cr

CATA PROTECTION ARt

DCNE

SEG (003

PAGE

1.2.1

HARDWARE REQUIREMENTS

* PDP=11/1LS1~11
*

(ONSOLE

kW1lP,

LINE

1.2.2

PROCESSOR WITH

DEVICE

-8 RL?ilEBlVES WITH RLOZ2K
KWl'L

(NPT]ONAL)

PRINTER

(OPTIONAL)

TEST

PART

RELATED DOCUMENTS AND

DIAGNOSTIC

THE RLO1/702
GF AMS ¢

MEMNRY

C(ONTAINING A

CARTRIDGES CONTAINING A

°*BAD

SECTOR

"BAD SECTOR

CIRLGAD
(ZRLHAQ
CIRLIAD

(FORMERLY

(ZRLDBO)

STANDARDS

(EK=RLO1/02-PG-PRE)

HMIERARCY

PREREQUISITES

SUBSYSTEM SHOULD HAVE

CVRLAAQD

1.9

SOF TWARE REQUIREMENTS

RLO1702 USERS MANUAL
XXDP USERS MANUAL

1.4

OR MCRE

(LA30,LA36,VIS0,ETC.)

CZRLJAD RLO1/02 DRIVE
1.3

16K

RLII/RLVIY (ONTROLLER.S) WITH:
1 -8 RL?}Lgelvts WITH RLOIK CARTRIDGES

1
.

SUCCESSFULLY

RUN

RLVI1 RLOY DISKLESS TEST

THE

FOLLOWING

(RLVI! ONLY)

RL11/RLVIY RLO1/02 CONTROLLER TEST
RLIT/RLVIY RLO1/02 CONTROLLER TEST
RLO1/02 DRIVE TEST (PART 1)

(PART
(PART

PRO-

1)
2)

ASSUMPY JONS

THE HARDWARE OTHER THAN THE RLO1/02 SUBSYSTEM |S ASSUMED 10 WORK PROPERLY.
FALSE
ERRORS MAY BE REPORTED ] THE PROCESSOR, ETC., DO NOT FUNC(TION PROPERLY,

2.0

OPERATING INSTRUCTIONS

SEQ 0004

PAGE 5

SE? 0005
.

2.\

HOW TO RUN THIS DIAGNOSTIC

2.h A

THE

SIX STEPS OF

EXECUTION

TH]S DIAGNOSTIC SHOULD BE LOADED AND STARTED USING

NORMAL

XXDP

DURES.
THE START (OMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE
AGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT,

PROCE-

THE

Dl-

WHEN THIS DIAGNOSTIC 1S STARTED, THE FOLLOWING STEPS wiLL OCCUR:
feNNSROTERES

STEP

TeeReed ey

SHORT

SERIES Of -"'HARD(ORE
QUESTION

(k)

(D)

ASKED:

FOR EXAMPLE,
QUESTION

HOW MANY

YOU SAY

NOT

(LOCK

CHARACTERS

MEMORY

ARt

AFTER EACH QUESTION) CAN BE
IS
POSSIBLE
THAT NOT ALL

WILL

NEJTHER P OR L
TWO

THERE AN L-CLO(K?
ot
p=(LOCK?
IS THE POWER 50 CYCLES (EUROPE)?
IS MACHINE AN LSI?
1S THERE A LINE PRINTER?

P=cLO(K

ASKED:

1S
"

THE DEFAULTS (SHOWN
RIAGE
RETURN.
IT

TYPE

MEANING

L=CLK (L) N ?
P=C(LK (L) N?
S50HZ (L) N ?
LSl (L) N2
LPY (L) N ?

MEM

QUESTJONS'' wlLL

ARE

"'YES'

THERE?

SELECTED BY HITTING (AR~
OF THE CUESTIONS wliLL BE

THE

(=-CLOCK

QUESTION,

THE

ASKED.

ANSWERED

SECONDS

YES THE

OPERATOR WwiLL BE

ASKED

APART,

v«

EEE RS

STEP 2

sedRROROERESE

WHEN

ISSUE

YOU HAVE

TART XXDP,
REFER
T0O

MODE,

THE

ANSWERED

ALL

THE PROMPT °'DS=-B>'',

HARDCORE

QUESTIONS,

FROM THIS POINT UNTIL

THE

DIAGNOSTIC

wWlLL

TIME WHEN YOU RES-

YOU WILL BE TALKING TO THE DIAGNOSTIC,
NOT
«XDP.
WE
WlLL
THE
PRESENCE
OF
THIS PROMPT AS BEING IN DIAGNOSTIC COMMAND

AS OPPOSED

THIS POINT
XXDP

THE

TO XXDP

YOU WiL.

‘'START''

COMMAND MODE.

ENTER A ‘'START'' (OMMAND.

(OMMAND,

WHICH

YOU ALREADY

THIS

ISSUED

IS NOT

THE

IN RESPONSE

SAME

10O THE

XXDP DOY PROMPT,
THIS ‘'START'' (OMMAND (AN TAKE A NUMBER OF SWITCHES AND
FLAGS
(ALL OPT]ONAL) AND THE DETAILS OF THESE ARE SET FORTH IN ''2,3 DETAILS OF (OMMANDS AND SYNTAX'',
HOWEVER, IN ORDER 10
USE
THL
PROGRAM,
ALL YOU NEED TO SAY ]S SOMETHING L IKE THIS:

PAGE

STA/PASS: 1/FLAGS :nDE
THINGS

TO NOTE

WERE:

ONLY

THE

FIRST

THREE

(MARACTERS OF

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

*'DS=3>"" LEVEL NEED 10 BE
(ONSISTS OF

RUNNING

THE

TYPED.

FULL

Tu]S OR ANY (OMMAND

DIAGNOSTIC

TESTED (THIS WiLL BE EXPLAINED SHORTLY),
IN THE ABOVE EXAMPLE.

THE “'FLAGS' SWITCH MAY SPECIFY ANY OF
THE

MAIN USEFUL

HOE

HALT

IER

HOE

ONE

ALL

PASS

A NUMBER

ARE:

THE

A PASS

UNITS BEING

IS SPECIFIED

FLAGS,

817

£E

meey

LOOP ON ERROR

LOt

THE

ONES

AGAINST

ON ERROR

INHIBIT

FLAG

ERROR PRINTOL!

SPECIFIED

THE

ABOGE

tXAMEb

wt ',

SHORTLY)
.,

teeoCO
T PIRY

WHEN YOU HAVE TYPED
WiTH
THE
QUESTION
THE

NUMBER

A WORD OF

ICE

DISKk

DRIVE,

TESTED.
THERN THE

DEVICES

YOU WISH

DIAGNOSTIC.
THEN THE

[N A °'START'® (OMMAND, THE DJAGNOSTI{ Wil
("Mt
BA
«x
‘' UNITS?'' TO WHI(H YOU SHOULD RESPOND LY TvFih, !N

WARNING HERE:

Twk

STEP

THE

TEST.

NUMBER OF

FOR EXAMPLE,

NUMBER OF

UNI1S

DEPENDS

THE DIAGNOSTIC

UNITS wOULD BE

THE

THE NUMBER OF

WHEREAS ]F THE DJAGNOSTIC WAS DIRECTED AT THE DISKk
NUMBER OF uUNITS WOULD BE THE NUMBER OfF C(ONTROLLERS.

DEVICE
OF
A
DIAGNOSTIC
(AN
ALWAYS
HRE
DETERMINED BY
“'HEADER'® STATEMENT NEAR THE BEGINNING OF THE SOURCE C(ODE.

OPERA??S OF
AONOSTIC,

THIS ‘'HEADER'® STATEMENT

SHOULD BE

TwF

TARGET

DEv-

IS DIRECTED AT A
DRIVES

10 BE

CONTROLLER,
THE TARGET

INSPECTING THE
ONE
OF
THE

DEVICE TYPt

THME DI~

SEQ 00C6

PAGE

SEQ 0007

|
:

teaeBSOEOSPRSY

STEP 4

tenenoORNTrY

WHEN

WILL

YOuU HAVE

ASK

TYPED

YGU THE

THE

NUMBER Of

''YARDWARE

UNITS

QUESTIONS''.

"0 BE

THE

TESTED,

ANSWERS

ARE USED 10 BUILP TABLES
I%
C(ORE,
CALLED
HAROWARE P=-TABLE WiLL BE BUILT FOR EACH UNIT

‘''HARDWARE

THERE ARE SEVERAL HARDWARE QUESTIONS AND
N TIMES, WHERE N IS THE NUMBER OF UNIJTS.

ENTIRE

TH1S

REPRESENTS

IN
THE
DRESSES:
THEY

NEED

QUESTIONS

P-TABLES''.

ONE

TESTED.

SERIES wliL

POSED

ENGINEERING.

DIAGNOSTI(CS

STANDARD ADINFORMATION

TESY

THE

IN DIAGNOSTIC

DIAGNCSTIC

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

A NEW PHILOSOPHY

THE

T0O BE

THE

1O THESE

DEVICE.

TR EROORY

¢ STEP 5

treEROERAGTEYN

AFTER

YOU HAVE

ANSWERED

ALL

THE

HARDWARE

QUESTIONS

UNITS,
YOU
WiLL
BE
ASKED
‘'CHANGE
Sw?'"
[f
SOF TWARE QUESTIONS THAT DETERMINE THE BEHAVIOR
Y.

THE

YOU WANT

1D TAKE

ALL

THE

INTO

(SET

2.5)

FOR

ALL

DEFAULTS

TO THESE

SOFTWARE

P-TABLE

QUESTIONS,

TYPE

'N'',

PROGRAM.

THE

YOU TYPE *'v"* YOU WILL BE ASKED THE SOF TWARE QUESTIONS (SEC 2.6),
ANSWERS

SERIES OF

WILL

PUT

QUESTIONS wilLL BE

UNITS TO BE

TESTED.

THE

ASKED JUST

ONCE,

THE

YOU WANT TO BE ASKED THE
OF
THIS
PROGRAM,
TYPE
[N

THE

REGARDLESS OF

THE

AND

NUMBER Of

feasROERNRYTRS

STEP 6

reRRSORNERNSN

AFTER

YOU HAVE

BEGIN

ANSWERED

1O EXECUTE

THE

SOFTWARE

THE HARDWARE

TEST

QUESTIONS,

CODE.

THERE

THE

ARE

DIAGNOSTIC

SEVERAL

THINGS

WILL

THAT

(AN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE
ERROR
IS5
ENCOUNTERED
AND
ALSO
ON
WHAT
SWIi(H
VALUES
YQU
SELECTED ON TAE START COMMAND,
(ONSIDER

THE

POSSIBILITIES:

If NO ERROR ]S ENCOUNTERED, THEN THE DIAGNOSTIC Wl LL SIMPLY EXECUTE
THE
QESIRED NUMBER OF PASSES AND RETURN 10 (OMMAND MODE
(PROMPT

[S=B>),

1F AN ERRCR 1S ENCOUNTERED, THEN ONE
DEPENDING OGN THE SETTINGS OF THE HOE

TM~

PAGE

MOE SET:

Of THREE
THINGS
AND LOE FLAGS.

WitL

LOE SET:
(ODE THAT

RETURN TO COMMAND MODF
.,

THE DJAGNOSTIC WILL
DETECTED THEt ERROR.

LOOP ENDLESSLY ON

NEJTHER HOE NOR LOE SET:
THE ERROR WILL
EO:ESLE AND NORMAL EXECUTION WILL RESUME

1.2

HAPPENS,

THE ERROR WILL BE REPORTED ON THE CONSOLE AND THE DI-

AGNOSTIC

THE

BLOCK

UFf

Bt
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 TYPI(AL
wAY 1O RUN THE DIAGNOSTIC.
IF NO ERRORS ARE ENCOUNTERED, THE SINGLE REQUESTED PASS wiLL BE EXECUTED AND THE PROMPT WILL BE RE-1SSUED.

AN ERROR

WitL
FOUR

]S ENCOUNTERED,

THE

ERROR WILL BE

AND

THE

PROMPI

THERE

ARE

STEPS

ANOTHER ‘'START'' COMMAND

ISSUE

A ''RESTART'' COMMAND

THE

5, AND 6 AGAIN)

HARDWARE

QUESTIONS

ARE

NING

THE

PARTICULAR

NOT

(OMMAND

EXCEPT

(EXECUTION W!LL RESUME AT
WAS

TEST

(MOST

THE BEGIN-

DIAGNOSTICS

IN WHEN THE

ERROk

THAT

CONSIST

HALT

OC-

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

AND
MOST

FERENT

AS START

ASKED)

HARDWARE

OF A NUMBER OF THESE) THAT 17
CURED.
NO QUESTIONS ASKED.
&,

(THUS GOING THRU ALL

(SAME

ISSUE A '‘CONTINUE'' COMMAND

1SSUE

3, &,

¢.

THE

REPORTED

BE REISSUED (BECAUSE THE HOE FLAG IS SET).
AT THIS POINT
DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGAIN:

CAN BE

TYPJCAL

ISSUED

THING

FLAG SETTINGS.

ONLY

TO DO HERE

PROBABLY

PRO/FLAGS: 1ER:LOE :HOE

A HALT

]SSUE

YOU WOULD WANT

THE

PROCEEV,

T0 SAY:

BUT

WITH

DIf-

SEQ 0008

PAGE

THIS

WILL

THE

FOLLOWING:

TURN ON THE

iER

(INWIHIT ERROR PRINTOUT)

FLAG

2. TURN ON THE LOE FLAG

THE

TURN OFF

RESUME

ERROR OR

THE MOE FLAG

EXECUTION AT

SCOPE

INSTRUCTION AFTER ERROR REPORT

OR WHATEVER.

WHEN YOU'VE SEEN ENOUGH, YOU MAY WIT CONTROL/C.
OF TWE LOOP AND PUT YOU'BACK INTO COMMAND MODE
1.

STARI

RESTART

CONTINUE

LET'S SAY
NING

THE

YOU'VE REPAIRED THE

DIAGNOSTIC.

DEFECT

YOU WOULD

TYPE

FOUND ABOVE

THIS WiLL TAKE YOU
OUI
YOU NOW WAVE TWREE CHO-

AND WANT

10 fINISH RUN-

CON/FLAGS:HOE
: IER-0:LOE=0
THIS wiLL
TION
AT

RESTORE THE FLAGS
THE
BEGINNING OF

DOES NGT RECUR, THE
OR 1O END OF PASS.

EXECUTION WILL

AT END OF PASS YOU WANT

(HOICES:
1.

STARI

RESTART

YOU WCULD

(HOOSE

HAKRDWARE

QUESTIONS

TO THEIR ORIGINAL
THE HARDWARE TEST

ONE,

10 RUN THE DIAGNOSTIC

DEPENDING

AGA]N.

FLOW RIGHT

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

WHETHER

YOU

THRU

TO THE

AGAIN,

WANTED

YOU

ERROR

HAVE

TWwO

ANSWER

Tht

SEQ@ 0009

PAGE

THE fFULL
PRINT=0UT
FROM
THE
(0 OPERATOR, D DIAGNOSTIC):

ABOVE

DIALOGUE

MIGHT

WHOM

ENTERED:

R OCIRLUA
CIRLJ

(L) N ?

(L)
(L)
(X))

N2
N?
(D)

VECTOR (0)

(G)

17440C

DRIVE (0) 0 ?
DRIVE TYPE = RLOY
BR LEVEL (0) 5 ?
UNIT
RLIT

(L)

BUS ADDRESS

(0)

(HANGE

(0)

(L)

174400

VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLO1

B8R LEVEL

160 7’

BUS ADDRESS

(L)

UNIT

RLIY

(D)

UNITS

DS=B>STA/PASS:1/FLAGS:HOL

(L)

(N=RLOZ2)

? N

(ZRLJ HRD ERR 00004

ERR HLT

TST

003 SuB 002 PC:004130

DS=B>PRO/FLAGS:
JER:LOE :HOE=0

seeseecRts

THIS

D, o

RNt RNCRRSRRRRRSCRRRNREIRORRREOETRCSERORRYRYRSROTYS

POINT

ERROR W]THOUT
'HE

lolelolalefe]

507

LS
LPT
MEM

(L,

L=CLK

THE

DIAGNOSTIC

PRINTING ANYTHING.

ERROR UNTIL

YOU HAVE

LOCATED

LOOPING ON

YOU CAN SCOPE
IT, THEN *{ OUT

eeeOGOROORCSSOEROERRRRSROSROSPORSSSETSTROSROETRROETROSTEREIORETRESREOSTERTESTY

L OUK

TH]S

sta 0010

*(C

DS-B>CON/FLAGS:HOE: JER:LOE-O

0.0

(MANGE

D.n

(L)

? N

C28Ly EOP 1
*C

DS=B>RESTART/PASS:1

0.0

CHANGE

D.0

(L)

? N

PAGE

RUN

2.2
THE

DIAGNOSTIC

(HAIN

MODE.

THERE
GOT.

RECEIVED

THAT

IS WHY

A WAY,

CONSISTS OF

HOWEVER,

RUNNING

FROM RELEASE

THE

BEARS

CREATE

THE

ENGINEERING

CANNOT

EXTENSION “'BIN'' INSTEAD OF

(HAINABLE

PROGRAM WITH THE

PROGRAM

FROM WHAT

“'BI('.

YOU'VE

SPECIAL COMMAND ''CCI"" ISSUED

WHERE
YOU
WOULD
NORMALLY
JSSUE A START COMMAND (1O THE PROMPT DS-B>.
THIS COMMAND CAUSES THE DJAGNOSTIC TO GO
THRU
ALL
THE
QUISTIONS
AND
ANSWERS AND THEN TO HALT, JUST WHERE 1T WOULD ORDINARILY BEGIN EXECUTION

Of THE HARDWARE TEST (ODE.
AT THIS POINT
SITS IN (ORE TO THE LOAD MEDIUM, WITH THE
HERE

.R UPD?2

RESTART:
*(LR

SAMPLE

DIALOGUE

XXXXXX

*LOAD DIAG.BIN
XFER:200
(ORE:0,600602

*STARY

L=CLK

200

(L)

ACCOMPLISH

YOU CAN DUMP THE PROGRAM AS
NEW EXTENSION ''BIC".

THIS:

SEa 0011

—

PAGE

DS-B>((1]

UNITS

(HANGE

(D)

PTAB END:

? 4

(L)

LA RARARSASR

60632
AR

ARRRD

*AT THIS POINT THE MACHINE HALTS AND+
*YOU MUST RESTART AT ADDRESS
XXXXXX®
RN

RNEEROENRN RO OERRREPRRRREEROERREROERNORER

*H](ORE 60632

CORE:
0,60632
*DUMP DKO: DIAG.BIC
THE RESULY OF DOING
CONTAINING THE XXDP

THIS IS
(OMMAND

THAT

YOU CAN NOW BUILD AN

XXDP

(HAIN

FILE

.R DIAG.BIC

AND THE DJAGNOSTIC Wltl EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE ]T WHEN YOU DID THE CC1 COMMAND.

USING

THE

Sea 0012

PAGE

2.3

DETAILS OF

2.%.1

TABLE OF

THERE

ARE

FOULR

SUBSETS OF

THE

(OMMANDS AND SYNTAX

COMMAND VALIDITY

WAYS OF

ENTERING DIAGNOSTIC

DIAG COMMAND SET

ARE

COMMAND MODE,

LEGAL

OPERATOR ENTERED

AND

DIFFERENT

AVAILABLE WITH EACH:

HOW ENTERED

'RUN DIAG'

COMMANDS

START

DISPLAY
FLAGS

LELAGS

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE
DIACNOSTIC WITH CTRL/C

START
RESTART

CONTINUE

DISPLAY
FLAGS

LFLAGS

AN ERROR WAS

WiTH

THE

HOE

START

ENCOUNTERED

FLAG

SET

RESTART
CONTINUE
PROCEED
PRINT

DISPLAY
FLAGS

IFLAGS

2.3.2

COMMAND SYNTAX

A XA

RRARAZERARRRZ

RARARRRRRRR

A ]

STA(RY)/TESTS:TEST=LIST/PASS:PASS=(NT/FLAGS:FLAG=LIST/EOP:EOP=]INCR
COEOROCEROIROCOPRCCOSCSORTRRRROOSOPSERRROTOROERRTERATROEENSROERNOETENSRNRESRPROROLS

THE

DJAGNOSTIC

IN CORE

IS EXECUTED

IN ACCORDANCE WITH
THE START

I#1ED.

THE MESSAGE ''# UNITS?"' IS PRINTED.

VUWING:

SUED WHEN DJAGNOSTIC

THE SWITCHES SPE(COMMAND MAY BE !S-

COMMAND MODE HAS BEEN ENTERED VIA ONE OF

THE

FOL-

OPERATOR TYPED ‘‘RUN DIAGNOSTIC' B) DIAGNOSTIC FINISHED EXE-

SEQ 0013

T
et
e
g
- e
——

P
-

PAGE

(UTING () ERROR WAS ENCOUNTERED WiTH MOE FLAG SET
D)
OPERATOR
ENTERED
CONTROL /(.
AFTER THE OPERATOR RESPONDS 10 ''# UNITS?'', THE WARDWARE D]ALOGUE IS INITIATED.
WHEN [7 1S COMPLETED, THE QUESTIONS
‘'CHANGE
Sw>'
1S
15SUED,
AND
THt
ANSWERS,
IF
GIVEN,
BECOME
THE
NEW
DEFAULTS.
THEREFORE 1T 1S NECESSARY
Tug 1 OAD DEFAULTS.

THE

SWITCH

ARGUMENTS

ARE

TEST=LIST IS A SEQUENCE

CIMAL
THE

NUMBERS

ARE

10O RELOAD

(1-5:8=10

THE

PROGRAM

[N ORDER

10O

RETURN

°0

OR RANGES OF

DE-

FROM

THE

FOLLOWS:

DECIMAL NUMBERS

ET(C.)

SEPARATED BY

THAT

C(OLONS.

(1:2 ET(.)

SPECIFY

THE

NUMBERS

TESTS TO BE

RANGE

EXECUTED.
10

LARGEST
TEST
NUMBER
IN
THE DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY
ORDER.
TESTS wiLL BE EXECUTED IN
NUMERICAL
ORDER
REGARDLESS
OF
THE
ORDER OF SPECIFJCATION.
THE DEFAULT IS TO EXECUTE ALL TESTS.
"PASS=CNT'" IS A DECIMAL NUMBER
A
PASS 1S DEFINED
TESTS) AGAINST AL.

CUTJON.

"'FLAG-LIST'"

HALT

DESIRED NUMBER OF

PASSES.

AS THE EXECUTION OF THE FULL DIAGNOSTIC (ALL SELECTED
UNITS SUBMITTED.
THE DEFAULT IS NON-ENDING TEST EXE-

<FLAG=1>, OR <FLAG=0>,
FOLLOWING VALUES:

HOE

INDICATING THE

SEQUENCE

SEPARATED

ON ERROR,

CAUSING

ELEMENTS OF

THE

HAS

FORM <FLAG>,

COLONS,

WHERE

<FLAG>

ONE

+OMMAND MODE

1O BE

ENTERED WHEN AN

THE

ERROR

1S ENCOUNTERID
LOE

LOOP ON ERROR, CAUSING THE DJAGNOSTIC TO LOOP (ONTINUOUSLY W]THIN
THE
SMALLEST
DEFINED BLOCK OF CODING (SEGMENT, SUBTEST, OR
TEST)

CONTAINING

THE

ERROR

IER

INHIBIT ERROR REPORTING

I1BE

INHIBIT BASIC

IXE

INHIBIT

PR]1

DIRECT

PNT

BOE

BELL ON ERROR

ERROR REPORTS

EXTENDED ERROR REPORTS
ALL

MESSAGES

NUMBER OF

TEST

LINE

PRINTER

BEING EXECUTED

UAM RUN IN UNATTENDED MODE,

ISR

BYPASSING MANULAL

INHIBIT

STAT]ST]CAL

REPORTS

IDU INKIBIT

DROPPING OF

UNITS BY DIAGNOSTI(

INTERVENTION TESTS

SEQ 0014

PAGE

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

FLAGS ARE

SET,
IF

CLEARED.

THOSE

THE

EQUATED

FLAGS

T0Q O

SWITCH

ARE
NOT

SEQ 0015

(LEARED.
GIVEN

ALL

"EOP=INCR'* IS A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF PASSES)
IT
1S
DESIRED THAT THt END OF PASS MESSAGE BE PRINTED.
THE DEFAULT |[S
AT

THE

PP R

END OF

EVERY

PASS,

RRERERORSRC RPN EP

RO ERRRRRPEOERROANRRNOERNRCEROERTOETCSTOETROOPOSORRAREREOPORORROEOROEROERTORETR

RES;}ARI){YEST:TEST-LlST/PASS:PASS-(NY/FLAGS:FLAG-LISY/EOP:EOP-INCR/UNXTS
:UNIT=LIS
CEP RO RORERRE R

RSN AR RRRPORRNRRRRNRONRREORNREREORNRRONCOEREROCEOERTYORRTOPRTOERNOPOROEROERECROY

THE

DIAGNOSTIC

CORE

ARE USED.

J1F1ED.

HOWEVER,

CORE

NEW

EXECUTED

''P-~TABLES'®

ACCORDAN(E

WITH

ARE NOT BUILT.

THE

SWITCHES

[INSTEAD,

SPE(-

THE ONES

THE QUESTION ''CHANGE SW?'' IS ASKED AND THE ANSWERS GIVEN BECOME THE
NEW
DEFAULTS,
THE
COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN ENTERED
VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR () CONTROL/C.
THE

SWITCH

ARGUMENTS

ARE

THE

START

“UNIT=LIST"" IS A SEQUENCE

UNITS ARE

THE

THRU

TO BE

NUMBER

TESTED.

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

COMMAND

EXCEPT:

LOGICAL UNIT NUMBERS RANGING

UNITS

BEING

TESTED)

LOGICAL UNIT

FROM

SPECIFYING WHI(H

NUMBER DESIGNATES

THE

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

DROPPED
BY
THE OPFRATOR DROP (OMMAND.,
THE UNIT=LIST DEFAULTS
1O ''ALL THAT HAVE NOT BEEN DROPPED BY OPERATOR
(OMMAND''.
THE
EFFECT OF THE UNIT=LIST LASTS UNTIL THE NEXT START (WHERE T ]S
AUTOMATICALLY

RESET

TO ""ALL'')

THE

RESTART,

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

ssRP PRt RRERRRROORRRRYRRRRRORRRRRRRORRORRRYY

(ONCTINUE)/PASS:<PASS=(NT/FLAGS:<FLAG=LIST>
AP RTEQROTSOERROESRERRPORROPRRRARROERRNRRRRNSTEOERARROEROEDR

MODE

Mavy

NOT

BEEN

THE

EFFECT OF

ENTERED

THE

DUE

HALT

ERROR

COMMAND S TO GO TO THE BEGINNING OF

WAS BEING EYECUTED WHEN THE
DIALOGUE
MAY
OPT]ONALLY BE

ThE

HALYT
OR
(ONTROL/C
TOOK
PLACE.
RE-EXECUTED.
HARDWARE PARAMETERS

(HANGED,

—

TEST THAT
SOf TWARE

HAVE

SUR

CONTROL/C.,

MUST

[ SR

TOMMAND

PAGE

SWIT(H

ARGUMENTS

ARE

THE

START

DEFALT FOR PASS=CNT

UNSFECIFIED FLAG SETTINGS ARE

OUS START

OR RESTART

(OMMAND EXCEPT:

IS T4E UNSATISFIED PASS=CNT FROM TME PREV]UNCHANGED

teoPSSRORRRTRCOSROSCECEREROYCRPOPRTETRTYS

PROCCEED)
/FLAGS : <FLAG-LIST>
e

gee

RO ROTROSORRRYRORGERORY

COMMAND MODE MUST
THE
COMMAND
1S

CALL.
THE

MAVE BEEN ENTERED VIA A HALT ON ERROR.
THE ESFECT
OF
1O BEGIN EXECUTION AT THE LOCATION FOLLOWING ThE ERROR

NEITHER HARDWARE

SWITCH

ARGUMENTS

NOR

ARE

SOF TWARE

THE

SAME

PARAMETERS MAY BE

ALTERED.

THE

EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE

SPRE T RCRRER RN

RO RN

START

(OMMAND

UNCHANGED

PR RS RPN NIRRT NP OANRORNOPOERTOICERIERPROPROPROPROSTYLTYE

CCI/VEST:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG=LIST/EQP:E0P-IN(R
(A AR AR

THE

ARl

DIAGNOSTIC

AR RS

EXECUTES

RRd

SRR

THPU

ALL

OPERATOR

HARDWARE
TEST
(ODE.
NOW
MEDIUM WITH A BIC EXTENSION.

THE

OPERATOR

THE B1C FILE MUST
MANUALLY
OR
iN

DIALOGUE

CAN DUMP

AND

THE

HALTS

C(ORE

[MAGE

THE

"HE

BE HANDLED DIFFERENTLY DEPENDING ON WHETHER [T IS
RUN
(HAIN
MODE.
IF RUN MANUALLY II CAN BE INVOKED EITHER

WITH A “'START'" (IN WHICH CASE

[T WILL BEWAVE LIKE

RESTART'" (IN WHICH CASE

PRE-GENERATED

AR ENEEENSRERE]

ANSWERS

OPERATOR

THE

QUESTIONS

WILL

THE

OPERATOR

BIN

FILE:

IGNORED)

ANSWERS

THE

WITH

WILL

useD)
.

RUN

IN (HAIN MCDE,

AUTCMATIC

THE
XXDP (OMMAND ''.R DJAG''.
SuED.
ANY SWITCHES SPECIFJED ON
FILE IS RUN IN CHAIN MODE

NOT

CARRY OVER WHEN

TO DO A (C]

LARGER

UTILTTY

THAN

ON A FuLL

16K

IS USED

EXECUTION WILL

THE

THE CC]
(EXCEPT

COMMENCE

COMMAND PROMPT

IMMEDIATELY

''DS-B>"' WILL

COMMAND w]tL CARRY
THAT UAM IS ALWAYS

NOT

OVER WHEN
SET THERE)

THE
BUT

FROM
IS-

BIC
WlLt

IS RUN MANUALLY,
SIZED DIAGNOSTIC

REQUIRED.

10 EXECUTE

THE

(14.5k

THE EXALT

DIAGNOSTIC

WORDS),

MACHINE

SIZE

SIZE NEEDED DEPENDS ON WHI'H
(Cl

TIME,

SEQ 0016

PAGE

eeeOROCCEOISORROEROIRRROSPOTY

DRO(P) /UNITS:UNIT=L]ST
teeseoeeReRROEROOROORROCOTERY

THE UN1T SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE

8:0ngglL

START

(OMMAND

GIVEN.

A DROP (ANNOT BE

THERE 1S ALSO A "DROP’* MACRO INTERNAL T1C THE
FACILITY
OF AUTO-DROPPING.
[HE DURATION OF
ONLY UNT]L THE NEXT START OR RESTART,

DIAGNOSTIC,

ADDED

BACK

FOLLOwWED BY A

WHICH GIVES

A PROGRAM DROP,

HOWFVER,

THE
|S

teesteROCORERSOORTROSERY

ADD/UNITS:UN]T=-L]ST
teetdeRRTERRROEYPROERTRAY

THE

UNIYS

DROPPED

SPECIFIED

fOLLOWED BY

THE

ARE

DROP

ADDED

BACK

<{(OMMAND)

(THEY

TO THE

MUST

TEST

HAVE

SEQUENCE.

BEEN

AN ADD

FPREVIOUSLY

CANNOT

A PROCLED.

(B A AR
S

PRI(NT)

ALL STATLSTICS TABLES ACCUMULATED BY THE DIAGNOSTIC
ISR C(INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.

ARE

PRINTED.

THE

esRee RO ROSROECSRRORRRRORREROSROEY

DIS(PLAY)/UN]ITS:<UNIT=LIST>
et RO ROPRTRRIRORORERSERORORESRRNYN

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

OPERATOR '‘DROP'® (OMMAND ARE
(A A

XN X

SO DESIGNATED.

TESI ARE FRINTED
OUT
IN
UNITS THAT WERE DROPPED BY

FLACGS)

THE

CURRENT

SETTINGS

ee0GOCOS

IFL (AGS)
cssecooee

AtL

FLAGS

ARE

(LEARED.

ALL

FLAGS

ARE

PRINTED.

THE
THE

SEQ 0017

FAGE

EXTENDED P-TABLE
THE

FuLL

CAPABIL]ITY

ING DISCUSSION OF
AS

SOON AS

SPACE

THE

IN CORE

THE SAME
HARDWARE

DIALOGUE

THE

HARDWARE

WHAT HAPPENS

DIALOGUE

INTERNALLY,

QUESTION *'# UNITS?''

IS REVEALED 8Y

ANSWERED

THE

FOLLOwW-

NUMBER

N),

(ORRESPONDENCE
BETWEEN
IN THE P-TABLE FORMAT.

THE

IS ALLOCATED FOR "'N'' P-TABLES.

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

(WITH

THE

ALL OF

THE

P-TABLES ARE

IN GIVING A STRING OF VALUES, (OMMAS WITHOUT INTERVENING VALUES
USED TQ INDICATE A REPETITION CF THE LAST NAMED VALUE.
A STRING OF VALUES MAY BE GIVEN AS A RANGE
VALUES REPRESENT PURE NUMERICAL DATA, THIS

SEE

P-TABLES.

HOW WE

ASSUME

HARDWARE

PARAMETERS

TIONS

THE

FOLLOWING

COULD USE

THAT

HAVE

FOR

EACH

THESE
8

(6-10 FOR EXAMPLE).
It
SAMPLE RANGE TRANLATES TO

THE
THE

SLOTS

THE

DIALOGUE

FOR

THIS

TROLLER)
:

UNIT

RLIT

(D)

1
(L)

BUS ADDDRESS (0) 174400 ?
VECIOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE

TYPE

BR LEVEL
UNIT

RLIY

5§

(L)

= RLOT

(0)

CAPABILITIES

TO CONSTRUCT

UNITS,

AND

P-TABLE,

THE

THAT

THERE

ARE

THE

A SET

FIVE

(5)

HARDWARE

QUES=-

DIALOGUE).

TWO
(2) RLIY TYPE (ONTROLLERS ALL
&L DRIVES ARE RLO1'S AND THE LAST &

# UNITS

MAY

STRING 6,7,2.9,10 (AN INCREMENT OF 1).
1F THE VALUES ARE ADDRESSES,
SAMPLE RANGE TRANSLATES 10 THE STRING 6.8,10 (AN INCREMENT OFf 2),

NOW LEi

()

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOY (L) v 7 N
BR LEVEL (O) 5 ?

RLOX

DRIVE

SYSTEM.,

THIS

SYSTEM HAS

TO BE SET AT “'BR LEVEL'' 5.
THE FIRST
DRIVES ARE RL02'S (ON THE SECOND (ON-

SEQ 0018

PAGE

THE
FOR

FIRST
Twt

THE

SECOND

THE

SECOND CONTROLLER),

FOR

RLOZ2'S

TIME THRU THE P-TABLE QUESTIONS THE DEFAULT
VALUES
C(ONTROLLEK
TYPE
(QUESTION #1), (SR ADDRESS OF Wt

ARE
USED
(ONTROLLER

(QUESTION #2), THE C(ONTROLLER VECTOR ASSIGNMENT (QUESTION #3), THE DRIVE
TYPE
(QUESTION
#5), AND THE 'BR LEVEL'' (QUESTION #6).
THE ACTUAL UNIT
NUMBERS OF THE RLO1'S FOR QUESTION #4 WAS ASSIGNED
O
THRU
3
FOR
THE
FIRST & P=-TABLE SLOTS.
TIME

THRU

TME

P-TABLE

THE

FIRST

QUESTIONS

(FOR

THE

RLOZ

ASSIGNMENT

QUESTION DE+AULTED TO "'RL11'" TYPE

(ON-

TROLLER.,
THE SECOND QUESTION WAS ANSWERED TO REFLECT THE (HMANGE [N
(SR
ADDRESS
FOR THE RLO2 CONTROLLER (175400).
THE SECOND (ONTROLLER'S VEC(TOR WAS ALSO (MANGED TO 164 IN QUESTION #3.
THE RLOZ2 TEST UNIT
NUMBERS
WERE
ASSIGNED
vALUES
O TO 3 IN QUESTION #4 AND THE DRIVE TYPE WAS SET
FOR

THE

WAS DEFAULTED USING

REMAINING &

THE

UNITS

IN QUESTION

'BR LEVEL' f"7M THE

FIRST

#5.

THE

PASS,

LAST

QUESTION

SEG 0019

PAGE

2.5

HARDWARE

THE

PARAME TERS

FOLLOWING QUESTIONS Wil

CATED TO THE LEFT OF

TAKEN ON A

RLIT

(L)

ANSWER

(ARRJAGE

ASKED ON A

THE QUESTION MARK

STARY

IS TuF

RETURN RESPONCE.

(OMMAND,

DEFAULT

VALUE

THE

VALUE

THAT Wiit

(O-

YES(Y)

YOU HAVE

RLUT1

(ONTROLLER,

NG(N)

YOU HAVE

AN RLv11

CONTROLLER.

BUS ADDRESS (0)

174400?

ANSWER

WITH

THE

BUS

VECTOR

(0)

1607

ANSWER WI1TH

DRIVE

(00

ANSWER

WITH

DRIVE

BR LEVEL

)

THE

INTERRUPT

THE

DRIVE(S)

= RLOY
(N)

(0)

ANSWER WITH

THE

C(ONTROLLER.

VECTOR OF

FOLLOWING

(L)

C(ONNECTED

THE

CONTROLLER.

THE

CONTROLLER

THE

C(ONTROLLER.

DRIVE

IS AN-RLO?

INTERRUPT

SOF TWARE

TYPE

ANSWER NO

ADDRESS

PRIORJTY

PARAMETERS

QUESTIONS

ARE

ASKED

REQUESTED

START,

RESTART,

(ONTINUE .
THEY
ALLOW FLEXABILITY IN THE WAY THE PROGRAM SFHAVES.
THE
SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN
THE
WAY
[T
RUNS.
THE
PARAMETERS
ANSWERING (Y)ES

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

(HANGE
A YES ANSWER WiLL ASK
THE
PRESENT
DEFAULT
(THE

LAST

(ONTROL

ANSWER

(*7)

USE
witl

ALL

GIVEN

WiLL

S.w.

RESTART,

CONTINUE

THE FOLLOWING SOF TWARE PARAMETER
QUESTIONS,
WITH
VALUE
PRINTED
T0O THE LEFT OF THE QUESTION MARK,
1S

THE

DEFAULY

CYLINDERS

DEFAULT)

ALL

THE

DEFAULY

TAKEN

REMAINING QUESTIONS AND START

THE

<(R>,

TEST,

(N)?

IF *'YES', THOSE TESTS THAT NORMALLY USE A SELECTED SET OFf (VYLINDERS
TEST

EVERY

(YLINDER ON

THE

CARTRIDGE.

SEa 0020

1
1

uSt
G IVEN

ALL

SECTORS

"YES'TM, THOSE

OPERATION
S ECTOR HEADER,

TESTS THAT NORMALLY USE A SINGLE SETTOR TO
AS

SEEK DESTINATION)

INTERVENTION TESTS

"'YES'', SEEK TIMING, ROTATIONAL

DATA
PROTECTION
TESTS
ARE
EXECUTED.,
QUIRES MANUAL INTERVENTION IS THE WRITE
PASS

AUTOMATICALLY

NOT

AFTER

WAITING

(N)?

LOWER

SEEK

LIMIT

“YES,

THE

ENTER

VALUE

THIS

LIMIT

DONE

BELOW

UPPER LIMIT,

SEE

IMPOSED

THAT

WiLL

TEST

READ AND VERIFY

EVERY

(N)?

TIMING, AND WRITE LOCK ERROR
THE
LOCK

30 SECONDS

PARAMETER

(DECIMAL)

BELOW)

(N)?

(SUCH

EXECUTE MANUAL

PAGE

ONLY
TEST

FOR

AND

TEST THWAT ACTUALLY
AND THAT TEST witL

WRITE

LOCK

1O BE

SET,

REBy~

15 REQUESTED.

(0)?

ON ALL

LIMIT.

SEEK

OPERATIONS

IN ADDITION,

CAUSES THE

SUCH

SETTING

FORWORD AND REVERSE

THAT

TESTING

THIS LIMIT

(OR

OSCILLATING

THE

SEEK

TESTS TO PERFORM DIFFERENTLY (SEE TEST DESCRIPTION).
TESTS TMAT REQUIRE
ACCESS TO A SPECIFIC CYLINDER THAT FALLS BELOW THE SPECIFIED LIMIT
WiLL

IGNORE

THE

LIMIT

(SEE WRITE/READ

TEST

PART

1).

UPPER SEEK LIMIT (N)?

IF "'YESTM, AN UPPER CYLINDER LIMIT IS iMPOSED IN THE SAME MANNER

TME

LOWER

[ER

REQUEST.

SEEK

LIMIT.

A “'YES'' RESPONSE

CAUSE

THE

FOLLOWING PARAME
-

ENTER VALUE

(DECIMAL)

USE

SURFACE

ONLY

"'VESTM,

ONE

(2595)?
(N)?

THE NEXT PARAMETER

SPECIFY

SURFACE

WHICHEVER SURFACE

ENTIRE

WILL

PROGRAM.

ANY

(0 OR
1S

TEST

1S REQUESTED.
(DECIMAL)

SPECIFIED

THAT

THE

(0)?
ONLY

IS DESIGNED 10 TEST

AUTOMATICALLY BYPASSED.
THE PROGRAM DOES NOT
A TEST 1S BYPASSED IN THIS CASE.

SPECIFY ERROR LIMIT
THIS PARAMETER

(DECIMAL)

SPECIFIES

SURFACE

THE

ERROR LIM]T

(DECIMAL)

INDICATION

THE

THAT

.
NUMBER

THIS LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS.
1f
1S EXCEEDED, THE DRIVE 15 DROPPED FROM FURTHUR TESTING.
DATA (NMPARE

TME OTMER SURFACE

ANY

(20)°

MAXIMUM

TESTED

(2017

ERRORS

THE

ALLOWED.

ERROR L IM]1

SEQ 0021

PAGE

THIS PARAMETER SPECIFIES THE NUMBER Of
DATA
(OMPARE
ERRORS
THAT
witL
Bt
LISTED
FGR A GIVEN COMPARE OPERATVION.
AFTER THME LIMIT [S REACHED, THE DATA ERRORS ARE NOT PRINTED BUT THE (OMPARE
(ONTINUES
UNTIL

;:;E

END

THE

DATA FIELD.

DROP DRIVE

THE

READY

TOTAL

NO RESPONSE

THIS PARAMETER

DRIVE

IS REPORTED AT

wiLL

YES,

RESPOND

STARTS ON THAT DRIvE.
1F IT1 IS NOT READY
STATUS THE DRIVE |S DROPPED AND A MESSAGE
5.0

ERROR

ALL

ERRORS

NUMBER,
AT

THE

(OM-

THE
A

wlLL

(MECK

[Ff

REGPOND

'0 A

Gt1

PROGRAM

GET

STATUS BEFORE

AND WiLL NOT
1S PRINTED.

TESTING

INFORMATION

ARE

TYPE

PRINTED

vIA

CONSOLE

DEVICE.

AND PROGRAM LOCATION.

ERROR WwlTH RELEVENT

e¢ND OF

(N)?

1S SPECIFIED AS

THE

ERRORS

ERROR

INCLUDE

INCLUDES

ERROR

REGISTERS BEFORE

AND

DATA,

ERROR REPORTING

THE

OPERATION MESSAGE

BASED

AND

THE

READ DATA -~ [S A READ DATA OPERATION WHERE SOME FORM OF
ERROR
DETECTED IN THE ACTUAL READ OPERATION.
THIS ERROR (OutD BE HARDWARE

WAS
DE-

THE

STATE

SUBSYSTEM

THE

FLAGS

ATION MESSAGES

(LINE

GENERATED

FUNCTION BEING EXECUTED

ARE

SEEK = FROM

IN THE

DYNAM]I(

THE

TIME

DIFF)

SGN

(O OR

LOCATION TAGGED ''OPFLAGS''.

GIVEN BELOW.

(CYL NUM)

DIFF

(CYL

MANNER

THE

ERROR

THE

POSSIBLE

(0O

OPER-

WHERE
THE
VALUES
ARE GIVEN [N OCTAL.
THIS MESSAGE [S THE RESULT OF A
SEEX OPCRATION THAT WAS VERIFIED BY A READ HEADER AND THE HEAD
POSITION
AFTER A SEEK |S IN ERROR.
(THE ACTUAL HEAD POSITION IN THIS ERROR SITuATION 1S GIVEN IN THE RESULT LINE, LINE 5.)

TECTED

SUCH

SOF YWARE

PLETED.

DATA

(RC,

DETECTED ERROR

READ DATA W]TH DATA

DATA

IN THE

HEADER

(OMPARE

BUT

THE

ACTUAL

WHEN

AN ERROR

THIS

FOUND,

E1C.,

AFTER A READ DATA (OM-

THAT

WAS DETECTED

BAD

OPERATION

REPORTED

IND|-

DATA WAS WRONG.
W]TH HEADER

(OMPARE

=~ HAVE

THE

DATA AND READ DATA wlTH DATA (OMPARE.
READ

NOT

RESET

READ DATA OPERATION (OMPLETED WwlTH NO DETECTED ERRORS

READ MEADER - READ HEADER FOR 40

HEADERS

HEADER

READY

BUFFER AFTER

A READ DATA OPERATION.

(ATES

(RC,

SUCH AS DRIVE

HEADER

HEADERS
SAME

READ

GENERAL

HEADER

MEANING AS

FOR

THE

MESSAGES HAVING THE OPERATION

OR READ HEADER FOR 40 MEADERS ARE

THE

RESLLT

READ

ERRORS DE~-

SEQ 0022

PAGE

TECTED
HEADER

DATA

IN THE ACTUAL OPERATION WHILE
(OMPARE INDICATES NO ERROR IN

1TSELF

WAS

WRITE

DATA

RESET

GET

THE

STATUS

AS BEFORE,
RESULT LINE

LD DRV = UNLD DRv = ARE
WHEN

READ HEADER FOR 40 HFADERS WlTH
ACTUAL OPERATION BU'T THE HEADER

IN ERROR,

BASIC OPERATIONS.
g:pggg‘“ARE.
THE

REPORT

THE
THE

¢3

DRIVE

LOAD

GET

STATUS WITH RESE!

ARE

ALL

THE ERROR DETECTION (AN BE EITHER HARDWARE
(LINE S) WILL DEFINE THE
REASON
FOR
THE

OPERATION MESSAGES THAT WILL

AND UNLOAD

SEQUENCE

APPEAR

1S BEING TESTED.

THE

ANOTHER GROUP OF OPERATION QUALIFIERS WiLL BE REPORTED
FOR
OPERATIONS
THAT FAIL IN SPECIFIC TESTS,
THESE TESTS ARE THE WRITE/READ 1FS1
PART 2, OVERWRITE TEST, AND THE ADJACENT CYLINDER INTERFERENCE TEST.

OFERATION

READ

DATA

QUALIFIER

WITH

DATA

(OMPARE

FOL

READ DATA
WRITE DATA
READ HEADER

SEEX

FOL 255 10 CC SEEK
FOL WRITE (NO SEEK)
ADJ. CYL WRITTEN AFTER
ADJ. CYL WRITTEN AFTER

Sk
SK

FWD,
REV,

THE

QUALIFIERS

THE

CYLINDER

THE

DONE

SEQUENCE
WHERE

''FOL WRITE

AFTER A WRITE

"'fOL
OF

TO CC

OPERATIONS

THE

TEST

SEEK' AND "'FUL
INCLUDED

BEING

FWD
REV

WRT-SK REV, OVERWR!
WRT-SK fWD, OVERWRI

THE ABOVE OPERATIONS (AN BE REPORTED WITH ANY OF
THE
QUALIFIERS
IN
THESE TESTS ARE AN ATTEMPT TO MAKE THE
éNG;UL BY PROVIDING INFORMATION ABOUT THE SEQUENCE OF
ONE .

THAT

255

SEEK

QUALIFIERS.
REPORT MORE
OPERATIONS

THE
MEANBEING

10 (C
A

SEEK' | NDICATE
GIVEN DIREC TION 10

PERFORMED.

(NC SEEK)'' QUALIFIER MEANS

WITH NO HEAD MOVEMENT

THAT

BETWEEN

THE

WRITE

OPERATION

AND READ.

WAS

THE QUALIFIER *'ADJ (YL WRITTEN AFTER FWD SK'' AND "'ADJ
(YL
WRITTEN
AFTER
REV
SK'' WILL BE REPORTED ONLY IN THE ADJACENT CYLINDER INTERFERENCE TEST.
THESE QUALIFJERS ARE USED WHEN THE ERROR OCCuRS ON THE
(YLINDER
UNDER TEST AND DEFINE THE DIRECTION THE HEADS WERE MOVED WHEN THE
ADJACENT

CYLINDER WAS

WRITTEN.

THE QUALIFIERS "'SK FWD, WRT-SK REV, OVERWRT'' AND
‘'Sk
REV,
WRT-SK
fwD,
OVERWRT'' wlLL BE REPORTED ONLY IN THE OVERWRITE TEST,
THESE QUALIFJERS DEFINE THE DIRECTION OF HEAD MOTION BEFORE THE INITIAL WRITE
AND
THE

OVERWRITE.

CATA

THE QUALIFJER “'ON BAD SEC FILES' wlLL BE REPORTED
WITH
THE
(OMMAND ]F THE PROGRAM ABORTS THAT (OMMAND BECAUSE THE WR]TE
THE

BAD

SECTOR

FILES.

WRITE
WOULD

SEQ 0023

PAGE

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

THE

ONLY

GENERAL

THE

FIRST

FORMAT

RESULT: (VAR 1)
WHERE VARIABLE

AS THE

ERROR

SEEN

THE

RESULT

FOR

ERRORS SEEN AT

IS REPORTED
LINE

END Of

THE OPERA-

CASES.

1S:

IS (VAR 2) SB (VAR 3) (OPT]ONAL
1 (AN BE ONE OF THE FOLLOWING:

CONT ERR
DRV ERR
NON-EXSTNT MEM
HDR CRC(
DATA (R(
HDR NOT FND
DATA LATE
#DR NOT FND/HDR
DRV RDY
SELECTED HEAD
VOL CHK
COVER OPEN
BRUSH HME
WRT L (K

THE

iN ALL

QUALIFIER)

(CONTROLLER ERROR)
(DRIVE ERROR)

(NON=-EXISTANT MEMORY)
(HEADER CRC ERROR)
(HEADER

(RC/OP]

NOT

FOUND)

(ALL 3 BITS SET)
(DRIVE READY)
(VOLUME

ChECK)

(BRUCH HOME)
(WRITE LOCK)

HDS OUT

(HEADER 0QUT)

DRV SEL ERR
DRV STATE
SPIN TIMEOUT

(DRIVE SELECT ERROR)
(DRIVE STATE)
(SPINDLt TIMEOUT SPD ERROR)

SEEK TIMEOUT
(UR HEAD ERR
WRT PAT ERR
OP INCOMPLETE

(SKT0 ERROR)
(CURRENT [N HEAD ERROR)
(WRITE DATA ERROR)
(OP1 ERROR)

WRT

GAT

ERR

(WRITE

HDR/DAT

EFRR

HDR

FND/DAT

NOT

(HDR

CRC

(HDR

NOT

BIT

LATE

GATE

DATA

(RC

ERROR

(S REGISTER)

FOUND

ERPOR BIT

ERROR)

12 OF

DATA

LATE

(S REGISTER)

(CYLINDER WHEN REPORTING A

SEEK ERROR)

VARIABLF
THIS

2 WILL BE

CAN BE

10 7 TO INDICATE

TIFY

A VALUE

OR O

THE

DRIVE

A CYLINDER NUMBER,

THAT DEFINES WHAT

INDJCATE

STATE,

A SET

THE

RESULT

RESULYT

ACTUALLY

CONDITIONS,

OR A NUMBER 0 TO 377

(OC1AL)

IS,

A NUMBER 0

IDEN-

VARIABLE 3 DEFINES THAT THE VALUE GIVEN ]S VARJABLE 2
SHOULD
BE.
THE
OPTICNAL
OQUALIFIER IS PROVIDED WHEN 1T IS USEFUL TO KNOW WHEN THE ERROR
WAS DETECTED IN THE OPERATICN BEING PERFORMED.,
THIS QUALIFIER
IS
USED

SEQ 0024

——

PAGE

TO REPORT

RESULTS

SUCH

AS:

BRUSH HME

SB 0

DRV
DRV
DRV
DRV
DRV

IS
IS
IS
IS
IS

O
1
0
O
0

SB
SB
SB
SB
SB

IN STATE

HEADS OUT 1S 0 SB 1 IN STATE 3
DRV RDY
IS O SB1 IN DATA XFER
SELECTED HEAD IS 1 SB O IN CYCLE uP

T:%gg RESULTS,
N

ROY
RDY
RDY
RDY
RDY

WHEN

SEEN WITH

THE

1 IN STATE S
O IN SEEK W/0O MOTION
1 IN 10MS
1 IN 500MS
1 IN 5SECONDS
OPERATION MESSAGE,

WiL.

SELF

EXPLA-

OTHER RESULT MESSAGES

THAT

CAN BE

PART

AN ERROR REPCRT

ARE:

"'INTERRUPY 10 LATE"
WHICH INDICATES THAT THE OPERATION BEING PERFORMED DID NOT
(OMPLETE
IN
THE
EXPECTED
AMOUNT
OF
TIME.
THIS RESULT (AN BE CAUSED BY THE DRIVE

LOOSING READY BEFORE
THE

READ HEADER

“FAIL
THIS

STARTING A READ HEADER AND THEREFORE NOT

1MS,

COMPLETING

TO RELOAD HEADS AFTER ERR CLEAR''
1S

ERROR

REPORTED WHEN AN ERROR

]S CLEARED

THE

CAUSES

HEADS DO NOT

HEADS

UNLOAD

AND

AFTER

THE

STATE

BAD

SEC-

RELOAD.

"'UNKN DRV STATE=NO RDY, NO ERR, HDS OUT''
THIS

REPORTED

WHEN

THE

PROGKAM

CANNOT

WHEN

THE

PROGRAM ABORTS

DETERMINE

THE

DRIVE

STATUS,

"WRITE

ABORTED"

THIS IS REPORTFD
TOR FILES.

'(OULD NOT RETRIEVE DRIVE
THIS

1S REPORTED

LY WHEN THE

STATUS

THE

A WRITE

TO PROTECT

THE

STATUS"

GET

STATUS

COMMAND DOES NOT

COMPLETE

SUCCESSFUL-

IS REQUIRED TO REPCRT AN ERROR.

*‘OP1

SET=-NO DRIVE RESPONSE'’

THIS

IS REPORTED AS

THE

RESULT

WHEN

THE

GET

STATUS (OMMAND

TIMED

Oul

SEQ 0025

PAGE

(OP1
SETS)
WHEN THAT
Tht DRIVE INTERFACE.

COMMAND

IS BEING USED

THE

EARLY

TESTS

CMECK

THE

(ON-

"'NO INTERRUPT ON (MND (OMPLETE'
THIS ]S REPORTED WHEN THE COMMAND SUCCESSFULLY
TROLLER HAS NOT GENERATED AN INTERRUPT.

“ERR DID NOT
THIS

THE

THIS

DRIVE

DRV ERR

THE

PROGRAMS,

IS NOT

CLEARED"

THIS

ERRORS.

RESET

COMMAND

DOES NOT

1S A CONTROLER RELATED PROBLEM BUT

TEST

DRIVE

BUT

CLEAR"

IS REPORTED WHEN

ERRORS,

COMPLETES

REPORTED

WHEN

THE

GET

STATUS

THIS 1S REPORTED WHEN
ARE SET.

THE

CONTROLLER

W/RESET

(LEAR

THE

C(ONTROLLER

IS REPORTED

COMMAND

DOES

NOT

SEEN

(LEAR

ALL

"UNEXPECTED ERR"
SENSES

AN ERROR BUT

ERROR

BITS

"BAD SEC FILE FMT ERR"
THIS

REPORTED

EXPECTED FORMAT

A .5
OTHER

YHE

CONTENTS

ntFER

TO DEC

THE

FILES

STANDARD

DO NO

CORRESPOND

144 rOR FORMAT

THE

SPECIFICS.)

OTHER MESSAGES
INFORMATION

1S REPORTED UNDER

"BAD SEC FILES NOT STRD.
THIS MESSAGE

FILES

BUY

VARIOUS

THEY HAVE

THESE

ARE:

BAD

SECTOR

ALL SEC ASSUMED 6O0D.''

]S PRINTED WHEN A PARTICULAR

NOT BEEN STORED.

TEST 1S STARTED OUT OF THE
FILES COULD NOT BE READ.

CIRCUMSTANCES.

NORMAL

TEST

REQUIRES

THE

THIS SITUATION WILL OCCUR

PROGRAM

SEQUENCE

IFf

THE

BAD

THIS

SECTOR

“ERRCR LIMIT EXCEEDED=UN]T DROPPED'’
"HIS 1S REPORTED

NUMBER Of

ERRORS

(WlTH THE UNIT NUMBFR) WHEN
(DEFAULT

20)

HAVE

OCCURED

iN ANY

THAN

SINGLE

THE

PASS,

SPEC]FIED

SEQ 0026

PAGE

ERROR

PROG NAME

ROUTINE

(5H

TESY

SEQ

TEST

FORMAT,

NUM

SUBTEST

NUM

ERR P(

(IN SEQ (ALLED)

DESCRIPTION

OPERATION:

(6)

ADDRESS

RESULT:

(9)
(10)
an
(12)
ONLY

HROULGH

UNIT

UNLER

RLCS

INIT

TEST

RLDA

RLBA

RLMF

OP DONE
DRIVE

STATUS
WORD NUM ]S (XXXXXX) SB
COMPARE ERRS: (221) OF (1¢8)

TOTAL

EXCEPTION

?E;E(YED‘OBV

READ

THE

ABOVE

ERROR).

FORMAT

THEN

THE

(YYYYYY)

PURE

DATA

FORMAT

COMPARE

DOES NOT

ERRORS

INCLUDE

(NOT

LINES 5

IS THE

ERROR HEADER AND

GRAM IS IDENTIFIED BY
BEING EXECUTED.
THE
TO

FOLLOWING

(ADDRESS)

(&)

THE

ERR NUM

TRACE

(ADDRESS)
(ADDRESS)

(7)
(8)

LINE

wAvE

(5)

THE

REPORTS

NAME

WITH

S PROVIDED BY
THE

NUMBER OF

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

NUMBER
OF
TIMES
CONSEQUENTLY,
ON

A
A

THE

ERROR

THE

WAS

INITJATED,

LINE

(SUCH A INCREMENTAL
THE SUBTEST WiLL BE

P.C.

TEST

SUPEKVISOR.
AND

SUBTEST

THE

PRO-

PRESENTLY

PROGRAM IN THAT [T DOES
NOT
REFER
GIVEN TEST.
RATHER IT REFLECTS THE

SUBTEST
HAS
BEEN
EXECUTED
WITHIN
TEST
THAT
TESTS AN INCREMENTAL TYPE Of

A
TEST,
OPERATION

SEEKS, READ ALL HEADERS FROM
BOTH
SURFACES,
ETC.)
DESCRIPTIVE OF WHCRE IN THE TEST THE ERROR OCCURRED.

SINCE

PHYS]LAL

MANY

MEMORY

ROUTINE

TRACE

LOCATION WHERE

FUNCT]ONS ARE

PORTED FROM SUBROUTINES, THE ERROR
THE LOCAT]ION OF THE ERROR CALL AND
ED.

IS THE

THE

SUBROUTINED,

THE

ERROR

REPORT

AND ERRORS ARE

RE-

P.C.
IS NOT SUFFICIENY
1O
IDENTIFY
THE ROUTINE TRACE SEQUENCE IS PROVID-

SEQUENCE.

THE

ERROR

CALL

INITIATEL

FROM
WITHIN
THE TEST (AS OPPOSED TO WITHIN A ROUTINE), THIS PORTION Of
THE REPORT [S OMITTED.
IF THE CALL IS INITIATED FROM A
ROUTINE
(WHICH
MAY
Bt
CALLED
BY ANOTHER ROUTINE, WHICH MAY BE CALLED BY ANOTHER ROUTINE, ETC,
SEVERAL LEVELS DEEP) THE ROUTINE TRACE SEQUENCE
PROVIDES
A
TRAIL
10 THE ACTUAL LOCATION WITHIN THE TEST THAT CALLED THE FIRST ROUTINE,
THE FIRST ENTRY LISTED IS THE LOCATION WHERE
THE
FIRST
ROUTINE
WwAS CALLED.

LINE
'ME

3 1S THE

TEST

TEST DESCRIPTION AND IS ROUGLMLY

BEING PERFORMED,

IDENTICAL

TO THE

NAME

SEQ 0027 l

PAGE

LINE

IDENTIFJES

THE

ACTUAL HARDWARE

ADDITIONAL
INFORMATION
ON
T4t FUNCTION.
FOR EXAMPLE,

FUNCTION THAT

1S BEING

PERFORMED,

THIS LINE IS DESCRIFPTIVE Of SPECIFIC USE OFf
THE OPERATION LINE WILL READ
°''READ
MHEADERS

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

LINE 5 IDENTIFIES THE ERROR THAT HAS BEEN DETECTED.
S
IDENTIFIES
WHAT
WAS
BENG
ERROR, DRIVE STATE, ETC.), WHAT

REPEATED

IN ADDITION LINE

ERATION

THAN ONE

TESTED

S5 WILL REPORT

INCOMPLETE,

HEADER

CRC,

THE

LINE

ITEM

[S FOUND

ANY HARDWARE
ETC.

ED AS RESULT WiLL Bt DETEPMINED BY
?:g ENCR(/DCR(.

THE CONTENT OF

TESTED
(SUCH AS DRIVE READY,
IT IS AND WHAT 1T SHOULD BE.

WILL BE

THE

LINE

CONTROLLER
LINE 5 MAY

IN ERROR.

DETECTED ERRORS SuCH AS

IN THIS

CASE

THREE ERROR

DETERMINED AS

THE

FIRST

BI17S
THE

LINE

OPl,

OP-

PRINT-

HNF/DLT,

FOLLOWING

TRUTH

LEk:

DCRC/HCRC
1

OP]
1
1
1

A D et CD

O—=O—

HNF/DLT

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

ERROR

DATA CRC ERROR

DATA LATE 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

LINE

WAS

7 NAMES THE

APPLICABLE

CONTROLLER REGISTERS
THE

B PROVIDE> THE

INITIATED.

REPORT)

'O BE

CONTENTES OF

LINE 9 PROVIDES THE CONTENTS OF

THIS AD-

(AND CYLINDER AND HEAD WHERE

REPORTED.

THESE

CONTROLLER REGISTERS WHEN THE OPERATION

THE

CONTROLLER REGISTERS WHEN THE

ERROR

BEING
REPORTED
WAS
DETECTED.
FREQUENTLY THE REGISTER CONTENTS OF QP
INIT AND OP DONE WILL BE DIFFERENT.
OP INIT MAY
INDICATE
A
SEEK
WAS
BEING
PERFORMED
BUT
OF
DONE MAY INDJCATE THE ERROR WAS DETECTED BY A
READ HEADER.

THE

HEADS

THE

POSITION

WRONG

REASON

CYLINDER.

LINE

10 15 THE DRIVE

LINE

11 AND LINE

GISTER DOES NOT

OPERATION,

REPORTED FOR

STATUS,

(ONTAIN THE

THAT

SEEK

THIS LINE

ACTLAL

12 ARE REPOKTED JF

EITHER
ALL

WAS

EXECUTED

AND DID NOT

AND WHEN THE READ HEADER WAS DONE

DATA

PROPER-

THE HEADS WERE ON

THE

RLMP RE-

THE ERROR WAS DETECTED AS A

(OMPARE

DRIVE

QR HEADERS.

READ ERRORS.

1S ONLY REPORTED IF
STATUS.

IN ADDITION,

GOOD AND BAD DATA

ERROR HALTS

f&KOR MALTS ARE

SUPPORTED PER DESCRIBED

THE

SECTION

WlTH

SEQ 0028

PAGE

/FLAG:HOE.,

THERE

APE

NO OTHER HALTS.

PERFORMANCE

AND PROGRESS REPORTS

6.1

PERFORMANCE

REPORTS

TH]S PROGRAM WiLL

5.0

DEVICE
RLIT/RLVIT
THE

GIVE

ANY

PROGRESS

REPORTS.

INFORMAT]ON TABLES
CONTROLLER HAS

THE

FOLLOWING FOUR(&)

SUBSYSTEM,

CONTROL AND STATUS REGISTER

—
——d

OPERATION

- DRIVE

(W]TH BIT

)

3=1

FUNCTION CODE

(PDP=11)

= WRITE

10 SET)

INCOMPLETE

SELECT

10 CLEAR)

(0-3)

EXTENDED BUS ADDRESS
EXTENDED BUS ADDRESS

0 - NOP

(XXXXXO0)

10 CLEAR)

CONTROLLER READY
INTERRUPT ENABLE

]

et Pt Ped Prena

(RC

DATA CRC

DATA LATE

HEADER

)

(OMPOSITE ERROR
ORIVE ERROR
NON EXJSTANT MEMORY ERROR
HEADER NOT FOUND (WITH BIT

—

et P

THE
TROL

NOT

(HECK

S = GET DRIVE
3 - SEEK

(BIT
(BlV

MAINT

1/)
16)

(LS]-11)

STATUS

READ HEADER

5 = WRITE DATA

? - RtAD DATA
READ WITHOUT

Bit

(

DRIVE

READY

HEADER

((OMPARE

SET)

REGISTERS

FOR

(ON-

SEQ 0029

PAGE

RLB A

= BUS

AODRESS

B17Y S 15=1 BUS ADDRESS OF
BIY G SHOULD BE C
RLD A

= DISK

(XxxxXX?)

DATA TRANSFER

ADDRESS REGISTER

(XXXXX&)

'9=7 = CYLINDER ADDRESS FOR
6 = SURFACE FOR TRANSFER

5=0 = SECTOR FOR TRANSFER

® © @
00 00 O M

Pt Bt Pt Bt Gt Bl

SEEXK

6=5 - MUST BE
-

SURFACE

TO NEW CYLINDER

ZERO (0)

(0=UPPER,

3 - MUST BE ZERO (0.

2 = SEEK DIRECTIONC
1

- MUST

0 - MUST BE
GET

STATUS

15=4 =

ZERO

ONE

(O)

1:-LOWER)

1-IN / 0-0UT

FUNCTION

]GNORED SHOULD BE

= MUST

ONE

0 - MUST BE ONE
LM P = MULT]PURPOSE

FOR READ/WRITE

)

(1}

3 - DRIVE RESET
2 = MySt BE ZERO (0)
1

(1-40.)

FUNCTION

15=7 = DIFFERENCE

TRANSFER

ZERO

(0)

(1)

(1)
REG]STER

FUNCTION

811

15 = 0 = WORD

tOR

READ HEADER

15«0 - DISk HEADER OF SECTOR (FIRST
= JERC WORD (SECOND READ)
GET

STATUS

(Tw0O'S

COMPLIMENT)

FUNCTION

= HEADER

FOR

COUNT

(RC

(Th]RD READ)

FUNCT]ON

READ:

SEQ 0030

PAGE

HAS

DRIVE

15 - WRITE DATA ERROR

STA'US

BIT
BIT
BIT
BIT
BIT
BIT
BRIT
BIT
BIT

14
13
12
11
10
9
8
7
6

BIT

& - HEADS HOME

81T

=
=
=
=
~
=
=

CURRENT MEAD ERROR ((HE)
WRITE LOCK STATUS (wL)
SEEK TIME QUT (SKTQ)
SPIN ERROR (SPE)
WRITE GATE ERROR (WGE)
VOLUME (HECK (V()
DRIVE SELECT ERROR (DSE)
DRIVE TYPE 1S RLOZ2 IF SET
SURFACE (0-UPPPER, 1.L0OwWtR)
S - COVER OPEN

BIT
3 - BRUSHES HOME
BIY 2=0 =STATE BlIS
0 - LOAD STATE
1

SPIN UP

SEEK

2 = BRUSH CYCLE
3 -« LOAD MEADS
=

TRA(CK

C(OQUNTING

5 = SEEKX = LINEAR MODE

—

6 = UNLOAD HEADS
7 = SPIN DOWN

TEST

SUMMARIES

QUTER GUARD BAND DETECTION

TEST

aeaeso oW

DC READ HEADER,

NOT,

REACHMED.
TRIES:

WAIT

SEEK REVERSE
IF

ANY

FOR

REVERSE

INTERRUPT,

DETECTION OF

SEEXK

DN 9[?0 HEADER,
1t NOT:

TO DETECT

WAJT

FAJLED

FAILS

TO MOVE

DIFFERENCE OF
FOR
READY.

IF NOT:

FAJLED

(YLINDER

THE

HEADS

1, SIGN O,
HEAD
READY SHOULD SET

O.
IN

GUARD BAND PREMATURE.

WHEN AT C(YLINDER O, DO SEEK
WwAlT
FOR
INTERRUPT,
WA]T1

20MS>T>15MS,

(HECK

CYLINDER AT A TIME UNTIL CYLINDER O

GUARD BAND

FOR

INTERRUPT,

SEEK

BACK

DO SEEX W]TH DIFFERENCE OF

(HWECK

FOR

(YLINDER

TO JERD

1, SIGN O, WEAD 1,

SAME

1EsTs

Sea 0031

PAGE

ABOVE

WITH

REGARD

TO READY

TIME

AND

(YL INDER

#OUND

HEADER,

NOTE :

TEST

(MOOSING A SINGLE
THAT SURFA(E.

INCREMENTAL

FORWARD

SURFACE

SEEXK

wlti

HEAD O

LIMIT

Twe

TESTING

TEST

LA A AR
N4

POSITION

MEADS

DIFFERENCE OF
DO SEEX

CYLINDER

NOT:

“'LOLIMIT"

FOR DRIVE READY.

SIGN

THAT

THIS

CYLINDER

DI+ FERENCE
TRACK

REPEAT

NOTE

If THE ''USE ALL
"y,
THE
TEST

THAT

SURFACE
5

INCREMENTAL

POSITION

WiTH

IS SET

WAlTl

FOR

IN 15 mMS,

(YLINDER
.

COUNT

]Ff

LOGIC

NOT:

FAJLURE

CYLINDER

READ

[S "‘MILIMIT",

SECTORS''
PARAMETER
IS
SPECIFIED
AS
WILL
READ
AND
TEST
ALL &0 HEADERS

VERIFY),

TESTING WiLL BE DONE BETWEEN UPPER AND LOWER
CYLINDER
LIMITS,
(HOOSING A SINGLE SURFALE WILL LIMIT TESTING
10

TESY

SEEKS

DCTECTION FAILURE

SEEKS AND READS UNTIL

SPECIFIC

CYLINDER

CROSSIN.,

(CARTRIDGE

NOTE

IS OLD

HEAD

(HECK READY

POSITIONING PROBLEM AT A
MECHAN]CAL OBSTRUCTION

(HE (kK

USING

HEAD O.

WITH DIFFERENCE

1NTER$UP1. WAIT

ONE,

1S C(HOSEN.

REVERSE

HEADS

DIFFERENCE OF

SURFACE.

THIS

SEEx

CYLINDER

1, HEAD 0.

TEST

HEAD O

Wittt

BYPASSED

TEST

‘''WILIMIT'"

USING

SEEKS

w]Tw

DO SEEK WITH DIFFERENCE OF
1,
SIGN
0,
HEAD
0.
WAIT
FOR
INTERRUPT, WAIT FOR DRIVE READY.
C(HECK READY SET [N 15 MS:
POSITIONING PROBLEM AT

DO READ HEADER, WAIT

IS OLD (YLINDER = 1,

FOR

[NTERRUPT.

SPECIFIC

(MECK

IF NOT:

DIFFERENCE
TRACK

COUNT

(ROSSING DETECTION

THAT
LOGIC

FALLURE

CYLINDER

THIS (YLINDER
FAJLURE

SEa 0032

‘|c

PAGE

SEQ 0033
|

REPEAT

SEEXr

NOTE:

AND

THMECKS UNTIL

1# THt "'USE ALL
v,
THE
TEST
VCARTRIDGE

NOTE :

SURFACE
TESY

LA B

SECTORS'®
PARAMETER
IS
SPECIFIED
AS
WILL
READ
AND
TEST
ALL 40 HEADERS

DONE

BETWEEN UPPER

CHOOSING A SINGLE

10 THAT

INCREMENTAL

SURFACE.

IS C(HOSEN.

FORWARD

TEST

HEAD

SEEK

WITH DIFFERENCE

l?!fk?upl,

NOT:

WA]T

FOR

DRIVE

READY.

WAIT

IS OLD CYLINDER +

FOR

DIFFERENCE
TRACK

SIGN

REPEAT

SEEXS

NOTE

AND

THE

‘'USE

"HAT

ALL

INNER

GUARD BAND

LOGIC
IS

PARAMETeR

SET

WITH

wAll
IN

fOR

MS,

CYLINDER

THAT

READ

AND

SEEXKS

THIS

(YL INDER

FAILURE
"‘WILIMITTM,

TEST

SKOULD SET

WAIT

THIS

TEST

Wittt

CETECTION

SPECIFIED

Aii 40 HEADERS

BYPASSED

TEST

CYLINDER "‘WILIMIT' USING SEEK

WHEN AT MAX CYLINDER,
O,

HEAD

READY

(HECK

COUNT

READ

TESTING

IS CHOSEN.

1, HEAD O.

HEAD

SECTORS'®

(YL INDER

BYPASSED

USING

SPECIFIC

CYLINDER

TEST
WILL
VERIFY).

SURFACE.

POSITION HEADS AT

NOT:

READS UNTIL

LIMIT

TESTING wiLL BE DONE BETWEEN UPPER AND LOWER
CY_INDER
LIMITS,
(HOOSING A SINGLE SURFACE WILL LIMIT TESTING
TO

CROSSING DETECTION FAILURE

“v'',
THE
(CARTRIDGE

SURFACE
TEST

(HECKX

WILL

TEST

INTERRUPT.

AND {OWER

wiLL

‘'HILIMIT'"

POSITIONING PROBLEM AT

D0 READ MEADER,

SURFACE

THIS

POSITION
HEADS
AT
CYLINDER
DIFFERENCE OF ONE, HEAD 0.
DO SEEK

IS "LOLIMIT',

VERIEY),

TESTING wiLL

LIMITS,

CYLINDER

FOR

DO SEEK WITH DIFFERENCE
INTERRUPT,

WA]T

[N 20MS>T>15MS,

FAILED

GUARD BAND

TO DETECT

NOT:

FOR DRJVE

wlTW DIFFERENCE

SIGN

READY,

READY

PAGE

?? RS?D HEADER.
NOT:

WAIT

FAILED

FOR

SEEX

DO SEEK wlTH DIFFERENCE

AS ABOVE.

NOTE:

TEST

INTERRUPT.,

(HODSING A SINGLE
THAT SURFACE.

INCREMENTAL

POSITION

HEADS

DIFFERENCE OF

DO SEEK

REVERSE

SIGN

HEAD

(CYLINDER
OF

READY.

D0 READ HEADER,

WAIT

IS OLD CYLINDER =

FOR

IFf

1t iMIT

SAME

THE

TESTING

USING

HEAD

(HECK READY
A

INTERRUPT.

NO7:

SPECIFIC

(HECK

SEEK

AND

UNTIL

CYLINDER

WAI1

WlIM

IN 15 MS:

FOR

CvL INDER

THAT

THIS

C(YLINDER

FAJt URF

°‘'LOLIMIT",

NOTE

IF PROGRAM MODE 2 IS USED AND THE
''USE
PARAMETER
1S SPECIFIED AS ''v'', THE TEST
TEST ALt 40 HEADERS (CARTRIDGE VERIFY).

NCTE

TESTING WILL BE DONE BETWEEN UPPER AND LOWER
CYLINDER
LIMITS,
CHOOSING A SINGLE SURFACE WILL LIMIT TESTING
10

THAT

SURFACE
TEST

CHECKS

SEEKS

SET

DIFFERENCE REGISTER OR COUNT LOGIC
TRACK CROSSING DETECTION FAILURE
REPEAT

TESTS

TEST

SIGN

POSITIONING PROBLEM AT

(YLINDER

CYLINDER

HEAD

WILL

FOR MAX.

“'MILIMIT'

HEAD O,

FOR DRIVE

TO MAX

SURFACE

SEEK

WITH DIFFERENCE

INTERRUPT, WAIT

BACK

(MECK

SEEK

SURFACE.

IS CHOSEN.

THIS

WlLL

SECTORS'
READ AND

BYPASSED

IFf

TESTS

POSITION
HEADS
AT
CYLINDER
DIFFERENCE OF 1, HFAD 0.
DO READ HEADER,
(MAX
(HECK

TEST

ALL
WILL

“'LOLIMIT'"

RECORD POSITION.

DISTANCE
AT
NEW CYLINDER
TRACK

USING

DO SEEK WITH DIFFERENCE

3
[PS),
SIGN 1, HEAD O.
IS OLD CYLINDER + DISTANCE.

(ROSSING DETECTION

DIFFERENCE

SEEKS

FAILURE

COUNTER FAILURE

COUNT PULSE GENERATION FATLURE
vELOCITY ROM FA]LURE

WITH
OF

DO READ HEADER,
IF NOT:

SEQ 0034

PAGE

:iPEA!

ABOVE

UNTIL

OLD

CYLINDER

DISTANCE

MAX.

POSITION

SEa

DO READ nEADER,

RECORD POSITION.

(MAX

DISTANCE

(HECK

NEW CYLINDER

TRACK
REPEAT

ABOVE

UNTIL

OuD

ALL

IPS),

1S OLD

DO SEEX

SIGN O,

WwiTH DIFFERFNCE

HEAD

CYLINDER - DISTANCE.

DO READ HEADER,

NOT:

CROSSING DETECTION FAILURE
CYLINDER

USING HEAD

REPEAT

DISTANCE

REPEAT

ALL

THE

ABOVE

TESTS

USING

THE

FOLLOWING

DISTANCES:

2. 6,9, 12,17, 22, 27, 34, 41, 128, 256 FOR RLOY OR &4, 12, 18,
24, 34, &4, 54, 68, B2, 256, 512 FOR RLO2.
THESE DISTANCES ARE

SPECIFIED BECAUSE THEY REPRESENT THE
VELOCITY LEVEL USED IN THE DRIJVE.
NOTE:

TESTING WILL

LIMITS,

DONE

BETWEEN UPPER

(HOOSING A SINGLE

TO THAT

TEST

SURFACE.

8 FORWARD OSCILLATING

SEEK

MAXIMUM DISTANCE

SURFACE

AND

LOWER

WiLL

FOR EACH

CYLINDER

LIMIT

TESTING

TFST

ceoRee

POSITIGN HEADS AT

CYLINDER O.

DO OSCILLATING SEEK USING HEAD O (SEEK FROM 0 10 1 T0 0, 0
10
2
10
0,
0
1037100, ...0 TO MAX CYL TO 0).
AFTER EACH SEEK
READ HEADER

AND

REPEAT

USING HEAD

NOTE:

TEST

POSITION.

If EITHER CYLINDER LIMIT ]S SPE( IF1ED,
THE
TEST
WlLL
SEEX
BLTWEEN UPPER AND LOWER LIT;}? f OR EACH SURFACE.
1 ESTING
THAT
TO
(HOOSING A SINGLE SURFACE WILL L
SURFACE.
NOTE
THAT
LOOPING O N TES 1 THEN PROVIDES A

FIiXED

TEST

VERIFY

9 REVERSE

DISTANLE

SEEK

LOOP.

CSCILLATING

SEEK

TEST

esoeeY

POSITION HEADS

HEAD O.

(IF

RLOY

MAX

SEEK

CYLINDER.

FROM 255

255,....255 70 0 10 255.)
VERIFY POSITION.

REPEAT

NOTE :

TEST

USING HEAD

AFTER

TO 254

EA(H

OSCILLATING

10 255,

SEEK

255

READ

253

HEADER

USING

AND

IF EITHER CYLINDER LIMIT IS SPECIFIED, TwE

SEEK

TEST

WlLL

BETWEEN UPPER AND LOWER LIMITS FOR EACH SURFACE,

0035

PAGE

(HOOSING A SINGLE SURFACE wWiLL LIM 11 }ESY!NG
10
THAT
SURFACE.
NOTE
THAT
LOOPING ON TEST
THEN PROVIDES A

F1XED DISTANCE

TESYT

10 SEEX

SEEK

LOOP.

TIMING

tecssoee

POSITION HEADS

D0 64
FOR

CYLINDER 0.

SEEKS FROM O TO 1

EACH

SEEK.

INDEPENDENTLY)

AND

AVERAGE

THE

TO O,

SFEK

MEASURING
TIMES

THE

SEEK

(FORWARD

AND

AND REPORT,

REPEAT

255 FOR RLO1

ABOVE

AND 255 TO 256 AND 256 10O 511

SEEKING BETWEEN CYLINDER

127 10

FOR RLO2.

REPEAT

ABOVE

SEEKING BETWEEN

127 AND

REPEAT
T0 511

ABOVE SEEKING BETWEEN
FOR RLOZ.

AND

255

FOR RLOT

AND CYLINDER O

THE SEEK
HEAS?RED

TIME

REVERSE

TIMES WILL
IS
FROM

CYLINDER

TO 256 AND 256

TO 511

CYLINDER O

BE REPORTED
AS
START
Of
SEEK

128

AND

254

128

FOR RLOZ2.

FOR RLO1

256

AND 0

SHOWN
BELOW.
THE
TIME
COMMAND UNTIL INTERRUPT IS

RECEIVED.

INNER

1 CvL FWD
1 (YL REV
MID (YL FwD
MID (YL REV
MAX
MAX

(YL
CYL

THE

NOTE :

EXPECTED

X
X
X
X

X
X

ABOVE

EACH

OUTER

X
X

FWD
REvV

INDJCATES

THE

MIDDLE

X
X
X
X

WHERE

REPORT

DRIVE

TIME

X
X

WiLL

WILL BE

UNDER

TEST

REPORTED.

PRINTED

IN THE

MANUAL

FIRST

PASS

FOR

INTERVENTION TESTS

WERE RUN,
THE EXPECTED TIMES ARE FOR USER
COMPAR]SON
ONL Y,
THE
PROGRAM
WlLL
NOT REPORT DEVIATION AS AN

ERROR.

TEST

BASIC

READ

DATA

TESI

POSITION HEADS AT

MAX

DO READ DATA, HEAD

ERROR,

REPORT
(AN BE

READ

SECTOR

CYLINDER.

(HECK FOR ANY ERRORS

THROUGH

ALL ERRORS BUT DO NOT INCREMENY
READ, SUCCESSFULLY, REPORT THAT

UNTIL

AND

REPORT,

I¢

NO ERROR ON READ.

ERROR COUNT,
1F
NONE
FACTORY BAD SECTOR FILE

SEQ 0036

PAGE

CANNOT

SECTIOR 20.

READ,

INCREMENT

ERROR

COUNT

AND

PROCEED WITH READ

ON SECTOR WITH NG CRC ERROR, VERIFY DATA FORMAT (WORD O AND
1
ARE
NOT O, WORD 2 AND 3 ARE 0, LOCATE fIRST WORD OF ALL ONE'S
Sr?AYHA! #ORD TO WORD 127 ARE ALL
ONE'S.)
STORE
BAD
SECTGR

READ DATA,

HEAD ONE,

SECTOR

20.

CHECK

FOR

ANY

ERRORS

AND

REPORY.
If ERROR, READ SECTOR 21 THROUGH 39 UNTIL NO ERROR ON
READ.
REPORT ALL ERRORS BUT DO NOT INCREMENT ERROR C(OUNT.
IF
NONE CAN BE READ SUCCESSFULLY, REPORT THAT SOF TWARE BAD SECTOR
FILES CANNOT BE READ, INCREMENT ERROR COUNT AND EXIT TEST.

TEST

ON SECTOR WITH NO CRC
SECTOR DATA,

ERROR,

NOTE:

SELECTED

TEST

(PART

SURFACE

12 WRITE/READ

DATA

VERIFY

DATA AS ABOVE.

THIS

TEST

(HECK

CR(

ERROR.

STORE

wlLL Bt

BAD

BYPASSED.

s RSRY

POSITION HEADS

WRITE

PATTERN

READ HEAD O,
REPEAT

CYLINDER O

ON HEAD O,

SECTOR 0.

FOR OTHER

SECTOR

CHECK

FOR

DATA PATTERNS

FOR

ANY

ERROR.

(OMPARE

DATA.

THROUGH 8).

(HECK JF CYLINDER O, TRACK 1, SECTOR O IS LISTED IN BAD SECTOR
DATA,
IF
NOT,
REPEAT
ABOVE
TEST
AT CYLINDER O, TRA(K 1,
SECTOR O.
IF JT IS LISTED AS
BAD,
LOCATE
FIRST
SECTOR
O,
TRACK

NOTE:

TEST

THAT

1S GOOD AND

CYLINDER

L IM]TS

DO ABOVE
ARE

TESTS.

IGNORED,

TESTING

CYLINDER
O.
MHOWEVER, CHOOSING A SINGLE
LIM,T TESTING TO THAT SURFAC(E.

13 SPINDLF

TIMING

POSITION HEADS

SURFAZE WlLL

TO CYLINDER 0.

HEAD

DO WRITE DATA TO CYLINDER O, HEAD 0,
WHEN

INTERRUPT

REPEAT

TEST

DONE

TEST

DO WRITE DATA TO CYLINDER O,
INTERRUPT,

ROTATION TIME.

CCCURS,

TIMES.

STOP

REPORT

THE

SECTOR

SECTOR 0.

TIMING.

AVERAGE

WAIT

START

RESULT

AS SPINDLE

FOR

TIMING.

SPINDLE

ROTATION

SEQ 0037

PAGE

VIME.

THE

NGTE :

THIS

IF
TEST

TIME

REPORYED

TESY

WILL

MANUAL

14 WRITE/READ

100°'S OR MICROSECONDS.

RUN ONLY

THE

INTERVENTION TESTS WERE

TEST

(PART

FIRST

PASS AND

ONLY

RUN.

seeCOPSTY

LET

CURRENT

CYLINDER

SELECTED

SELECTED FYLINDER SET

FROM SET.

AS DEFINED

IN PARAGRAPH &.3.

SEEK FORWARD TO (C.
WRITE PATTERNS 1
THROUGH
TIMES ON HEAD 0.
READ/COMPARE ALL DATA.

SEEK REVERSE TO "‘LOLIMIT''.
ALL

DATA,

READ/COMPARE

REPEATED 5

SEEK
ALL

FORWARD

DATA.

ALL

DATA,

SEEK

READ/COMPARE

ALL

REPEAT

ABOVE

TEST

REPEAT

ABOVE

TESTS

PATTERNS

COMPARE

SEEK REVERSE

T0 ''LOLIM'T''.

THROUGH

ALL DATA.

TO C(.

SEEK

T0 (C.

READ/COMPARE

FORWARD

T0 (C.

FOR HEAD
FOR

ALL

i,
CYLIJNDERS

SELECTED

CYLINDER

SET.

SET

IF ANY OF THE SECTORS IN THE
SELECTED
CYLINDER
ARE LISTED AS BAD, THAT SECTOR WILL BE BYPASSED.

NOTE

IF THE "'USE ALL CYLINDERS'' PARAMETER IS SPECIFIED
A<
"y,
THE
TEST
WILL
INCLUDE
ALL
CYLINDERS
IN THE
SELECTED PARAMETER SET.

NCTE

IN THE
FIRST
FXECUTED
ON

PASS
OF
THE
PROGRAM
THIS
TEST
IS
ONLY
6
OF
THE CYLINDERS LISTED IN THE

THE

NOTE

&4:

THOSE USED wiLL BE EVERY 8TH

TABLE.

IN THE

THE

SECOND

AND

SUBSEQUENT

SELECTED CYLINDER SET

ARE

ENTRY

PASSES

ALL

USED.

TESTING WILL BE DONE BETWEEN UPPER AND
LOWER
LI M IS
CYLINDERS N THE CYLINDER SET BEYOND THESE LIMITS wiLL
NOT Bt TESTED.,
CHOOSING A SINGLE SURFACE
WILL
1Ml
TESTING TO THAT SURFACE,

15 WRITE
E

DATA

READ/COMPARE

SEEK REVERSE

NOTE

ENTRIES

KA X

READ

DATA.

CYLINDER SET.

TEST

T0 '‘HILIMIT''.

REWRITE

REVERSE

REPEATED

SEEXK FORWARD TO (C.

TIMES ON HEAD O.

SEEK FORWARD TC °'‘HILIMIT'',

LOCK ERROR AND DATA PROTECTION TEST

DO WRITE
ASK

DATA PATTERN O AT SECTOR 0.

OPERATOR

WRITE

LOCK

(0O WRITE

IS SET.

LOCK

DRIVE.

IF NOT SET

READ DATA AND VERIFY.

DO GET

STATUS

LOOP

UNTIL

IN 30 SECONDS, ABORT THE TEST.

SEQ 0038

PAGE

WHEN WRITE LOCK
REPORT
FAILURE

ERROR SETS.
THAT

CLEAR ERROR AND READ DATA

REQUEST GPERATOR
?Nglkfigkégg LOCK

BEEN DISTURBED.

TO RESET WRITE
LOCK.
IS RESEY.
IF NOT RESET

SECTOR

DO
IN

CHE(K

GET
STATUS
LOGP
30 SECONDS, REPEAT

UEST.

NOTE:
TEST

SEQ 0039

IS SET, DO WRITE DATA PATTERN 1 AT
SECTOR
O.
Il
DRIVE
ERROR DOES NOT SET OR IF ANY OTHER

DATA HAS NOT

THIS TEST I$ kXECUTED ONLY IF

THE

REQUESTED,

PASS ONLY.

MODE

16 ADJACENT

SELECTED,

AND

CYLINDER

IS RUN

MANUAL

IN FIRST

INTERFERENCE

PROGRAM

OPERATION

INTERVENTION TESTING

TEST

teReTRY

CC_IS CURRENT CYLINDER SELECTED FROM SET
LET SELECTED CYLINDER SET BE AS DEFINED IN PARAGRAPH 4.3.

DATA PATTERN ]S

SEEK FORWARD TO CYLINDER CC.
SECTORS.
READ/COMPARE DATA.

WRITE

SEEK FORWARD TO
PATTERN.,
SEEK

SEEK
REVERSE
10
(C-1.
‘“‘WILIMIT''.
SEEK REVERSE

WRITE

‘‘HILIMIT'.
FORWARD
T0

PATTERN.

ADJACENT

NOTE ADJACENT

SEEK REVERSE TO “LOLIMIT''.
FROM

ATTRIBUTED

PATTERN ON

TRACK

(THIS HMAS BRACKETED ORIGINAL WRITE

CYLINDERS.

AFTER HEADS CAME ON CYLINDER IN
OPPOSITE OF CENTER CYLINDER.)

CATA

155555.

ALL

SECTORS.

TO ADJACENT

ERRORS

ALL

WRITFf
10 (C(.

WITH WR]TES

CYLINDERS WERE WRITTEN
DIRECTION

SEEK FORWARD TO CC.

ANY

CYLINDER

SEEK FORWARD TO '‘HILIMIT''.

REVERSE

(READ OR

INTERFERENCE.

SEEK REVERSE TO

WHICH

READ/COMPARE
COMPARE)

ARE

WRITE

DATA

(CC.

PATTERN,
SEEK
REVERSE
10 '"LOLIMIT'’,
SEEK FORWARD 10 (C-1,
WRITE PATTERN.
SEEK REVERSE TO
‘"LOLIMIT'’,
SEEK
FORWARD
10
(Cel,
WRITE PATTERN.
SEEK FORWARD TC '‘HILIMIT'', SEEXK REVERSE
10 CC.
READ/COMPARE DATA IN ALL SECTORS.
ANY ERRORS (READ OR
(OMPARE) ARE ATTRIBUIED TO ADJACENT CYLINDER INTERFERENCE.

REPEAT

NOTE

NOTE 2:

NOTE

ABOVE

TESTS

ON HEAD

ANY

THE ''USE ALL CYLINDERS'' PARAMETER IS

THAT

SECTOR ON A SELECTED CYLINDER

SECTOR WiLL

"Y', THE
MAX CYL)

IN THE

EXECUTED
CYLINDER

BYPASSED.

TEST WILL INCLUDE ALL CYLINDERS
IN THE SELECTED PARAMETER SET.

FIRST

SET.

PASS

ONLY

THOSE

THE

PROGRAM

LISTED

BAD,

SPECIFIED
(EXCEPT

THIS

O AND

TEST

THE CYLINDERS (IS/\ED IN THE

USED

WwiLL

THE

FIRST,

YUENYf'lRS!,

AND FORTYFIRST ENTRIES IN THE TABLE.

SECOND AND SUBSEQUENT PASSES EVERY FOURTM CYLINDER SET
ENTRY witL BE TESTED.
NOTE

TEST

TESTING WiLL BE DONE BETWEEN UPPFR AND
LOWER
(IM]TS,
CYLINDERS IN THE CYLINDER SET BEYOND THESE LIMITS wiLL
NOY BE TESTED.
(MOOSING A SINGLE SURFACE
wlLL
LIMIY
TESTING TO THAT SURFACE.

17 OVERWRITE

TEST

testde

CURRENT

CYLINDER

SELECTED CYLINDER SET
PATTERN A - 125252
PATTERN 8 = 00000C

SELECTED

DEFINED

FROM SET

IN PARAGRAPH 4.3.

SEEX FORWARD 10 (C.,
WRITE DATA OF
HEAD O,
READ/COMPARE DATA.

SEEK
B.

FORWARD TO '*WILIMIT',
SEEX
REVERSE
T0

READ/CCMPARE

PATTERN A

SEEK REVERSE
“"LOLIMIT',

ALL

SECTORS,

10 ((.
WRITE
SEEK
FORWARD

PATTERN
T10
(C,

DATA,

SEEX FORWARD TO “'MILIMIT'',

SEEK REVERSE

(C.

WRITE

DATA

PATTERN
A.
SEEx FORWARD

READ/COMPARE
DATA,
SEEX REVERSE 10 "'LOLIMIT",
10
(C.
WRITE
PATTERN
B.
SEEX
FORWARD
10

ANY FAlL URES
FROBLEM,

(READ OR

REPEAT

TESTS ON HEAD

“HILIMIT' SEEK

NOTE

ABOVE

NOTE

(OMPARE)

ARE

DATA.

ATTIRIBUTED

OVERWRITE

SECTOR ON A SELECTED CYLINDER

THE "'USE ALL CYLINDERS'' PARAMETER |S

SECTOR WiLL

BYPASSED.

“'y'',
THE
TEST
WILL
INCLUDE
SELECTED PARAMETER SET.

ALL

IS LISTED AS BA[,

SPECIFIED

CYLINDERS

1IN

THE

IN THE
FIRST
PASS
OF
THE
PROGRAM
THIS
TEST
1S
EXECUTED
ON ONLY
3
OF
THE CYLINDERS LISTED IN THE
SET.

TWENTYFIRST,

READ/COMPARE

ANY

CYLINDER

NOTE

10 (C.

THAT

NOTE

REVERSE

AND

THOSE

USED

FORTYFIRST

WIiLL

ENTRIES

1HE

TME

FIRST,

TABLE.

SECOND AND SUBSEQUENT PASSES EVERY
ENTRY WiL. BE TESTED.

FOURTH CYLINDER SET

TESTING WILL

AND

CYLINDERS

NOT BE

IN THE

TESTED.

TESTING YO THMAT

DONE

BETWEEN UPPER

LOWER

CYLINDER SET BEYOND THESE

(MOOSING A

SURFATE,

SINGLE

SURFA(E

L IM] ‘S.

LIM]TIS W ILL

wiltt

! LIN

SEQ 0040

- |

PAGE

SEQ 004!

PAGE

CIZRLJAO RLOY/? DR
TABLE OFf CONTENTS
te
L=

S
[ L

123
8Qe

10~
e
12+
1314~

151617~
18~

19«

20~
21-

2
1
1
1
1
1
1
1
|
1
1
1
1
1
i
!
1

TST

*TEST

*TEST
*TEST
*TESY
*TEST
*1EST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
«1EST
*TESTY
*TEST
*TEST

2 MACRO v03.01

DIAGNOSTIC

19:23:59

SEQ 0042

**QUTER GUARD BAND DETECTION

¢
3
&
S
6
7
8
9
10
1
12
13
14
1S
16
V7

PARAMETER

9=FEB=79

o INCREMENTAL FORWARD SEfK WEAD C
e+ INCREMENTAL REVERSE SEEK HEAD 0
** INCREMENTAL FORWARD SEEK MEAD 1
*+ INNER GUARD BAND DETECTION
e« INCREMENTAL REVERSE SEEK MEAD 1
eeSEEK TESTS
*+fORWARD OSCILLATING SEEK
**REVERSE OSCILLATING SEEK
*+SEEK TIMING
*+BASI( READ DATA (BAD SECTOR FlLtE)
*+*WRITE/READ DATA (PART 1)
*+SPINDLE TIMING TEST
+*WRITE/READ DATA (PART ?2)
*+WRITE LOC”Y ERROR AND DATA PROTECTION
*«ADJACENT CYLINDER INTERFERENCE
**OVERWRITE
(ODING

SUPERV]SOR

== LOW CORE

SET

r&SSEHBL Y ROUTINES
1

00GanT.

MACRO v03.0%

9=FEB-79 19:23:55 PAGE
PART?

SEQ 0043

MACRO v03.01

9=FEB=/9

% 000000

002000

7 002000

000001

}5 002G00

000000
000070

15 002000

BGNMOD

103
132
122
114
112
000
000
000
101
060
000000
0003060
037532
037676
013330
013346
04033¢
000000
000000
000000
000000
013364
000000
000000
000000
002
002

002054
0020%6
002060
002062
002064
002066

030000
000000
000000
000000
002114
000000

002052

002C70
002072
0N207«
002076
062100
00210¢

062106

030000

002112
002112
000000
014700
000014
000000

013426

MCALL

Sv(

2000

POINTER BONSW,BGNSFT,BGNDY

20 002000
002000
002001
002002
002003
002004
002005
602006
002007
002010
002011
002012
002014
002016
002020
002022
002024
002026
002030
002032
002034
002036
002040
002042
002044
002046
002050
002051

(ND ,MD Mt
ABS
AMA

Sv(
Sv(C1St=- 1
Sv(sSuB 1
SV(BGL= 1
SVCINS= 0
SVCTAG= 0

000001

1B
12

NL]ST
.ENABLE
ENABLE

19:23:55 PAGE

HEADER

MDHEDR

(IRLJ,A,0,30000,30000,300,RLO1
LASCII

LASCLI
LASCII
LASCLI
LASCIHI
.BYTE
.BYTE
LBYTE
LASCII
LASC]I
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.BY'E
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD

/¢

11/
/R/
L/
13/

[olelolgiolele
]

ASSEMBLY ROUTINES

$D1SPAT(H

CSREVISION
(SEDIT
30000
30000

0
0
LSDVIYP
0

.WORD
.WORD
.WORD

LSDR
LODRST
0
L$DU

.WORD
.WORD

0
LOIND'

SEQ 0044

ASSEMBLY

MACRO v03.01

ROUTINES

002106
22 002110

014560

002110

000000

26 002114
002114
002117
002122
002128

1¢2
061
114
000

23 002110

9=FEB=~79

19:23:55 PAGE

ENDMOD

114

056
060

12¢
062

DEVREG
.WORD
BLKW

0
<RLOT,RLOZ>
/RLOY,RLOZ2/

;COPYRIGHT

()

:SCFTWARE,

1978,

1977

;THIS SOFTWARE 1S FURNISHED UNDER LICENSE FOR USE ONLY
;ON A SINGLE COMPUTER SYSTEM AND MAY BE (OPIED ONLY WITH
:THE INCLUSION OF THE ABOVE CQPYRIGHT NOTICE.

28
29
30
3

ANY

COPIES

THEREOF,

:OR OVTHERWISE MADE AVAILABLE

32
b3
34
b))

;FOR

USE

SLICENSE

ALL

SUCH

TERMS.

TIMES

SYSTEM,

TITLE

REMAIN

AND

May NOT

PROVIDED

TO ANY OTHER PERSON EXCEPT
TO ONE

WHO AGREES

TO OWNERSHIP OF

DEC.

THE

SOF TWARE

THESE

SHALL

;THE INFORMATION IN THIS DOCUMENT [S SUBJECT TO CHANGE

36
37
18
39

;WITHOUT

NOTICE

AND

SHALL

NOT

CONSTRUED AS

;BY DIGITAL EQUIPMENT (ORPORATION.

A (OMM]TMENT

IDEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

«0
6
&2

;OF

«% 002126
AN

45 002126
6

<
51
?2

LOCLEAN

SEQ 0045

LEVEN

67
48
49

LWORD

DEVTYP
LASCIZ

060

000000
000002
000004

1TSS SOFTWARE

BGNMOD

GLBEQAT

EQUALS
;
(SR

OFFSETS

VECT

PRIOR
TYPDR:=6

=0
=2

FOR HARDWARE

-4

000006
000610
000012

DRSB

=10

000000

MISw]

;

OFFSET

LOLIM

ERLIM

=10

(N?

ON EQUIPMENT

WHICH

IS NOT

SUPPLIED By DEC.

P-TABIE

;BUS ADDRESS
:VECTOR ADDRESS
;PRIOR]TY

:DRIVE SELECT BIV

=12

JCONTROLLER

TYPE

5%
©7

Y8
4

¢!

000002
000004

000006
000010

000012
000001

000002

000010

¢F

010000

6.5

¢,?

000004

000020

020000

040000

HiLIM
HEAD

-0

=4
=6

FOR SOF TWARE

P-TABLEL

;SOF TWARE

PARAMETERS

JCYLINDER LOWER LIMITY

JCYLINDER HIGH LIMIT
JSELECTED HEAD FOR RUNNING

JERROR LIMIT

DCLIM

=12

B1T1 ASSIGNMENT FOR SOFTWARE P=TARLE SWITCMES

ALL{YL
ALLSEC

=BI100
=BI1T1O1

DRSELT
=B110¢
HDALIGN =B1103
AUTOS?
HEADLM

HICVL
LOCYL

=B1104
=-BlT1?

g3
“Bl114

Sw]lT(wES

TES

;DATA COMPARE ERROR LIM]Y
;USE ALL
;USE ALL

CYLINDERS
SECTORS

JEXECUTE DRIVE SELECTY TES!
SEXECUTE MEAD ALIGNMENT TEST
JAUT0 SI1Z E FOR DRIVE=DROP [F NO RESPONSE
JHEAD LIMIT

SPECIFIED FLAG

ML LIMITYT SPECIFIE
10 JIMIY SPECIFIE

TOSLOW

000004
000010

NOIRPT
CONHNG
NOCLR

000000
000002
000004
000006

RLCS
RLBA
RLDA
RLMP

000000

RLCSR
ANYERR

020000
010000
010000
004000
004000
002000
001400
000200
000100

NXMERR

- ol ot
el
—

[«

el wnld
el
il
)

L Ra N3

127

100000
040000

; IN=OUT SEEK OPERAT]ON
;0UT=IN SEEK OPERATION
;FOLLOWING WRITE OPERATION
;REV SEEX SEQ (ADJ INTERFERENCE’

e
I
I

;FWD SEEXK SEQ (ADJ

;REv

SEEX

SEQ

INTERFERENCE)

(OVERWRITE)

;FWD SEEK SEQ (OVERWR!ITE)
.BAD DISK ADDRESS
;SEEX OPERATION
READ OR WRiTE OPERATION
;RELOAD WAIT

T T

:COMPOSITE OPERATION FLAGS
;HEADER C(OMPARE OPERATION
;DATA COMPARE OPERATION
;CYCLE UP OPERATION
;UNLOAD OPERATION

e R I

| !
|2
1 3

1 4

| 5
;40 HEADER OPERAT]ON
N
! SUINOUTS .FOLWRT _REVSKS!'FWDSKS!REVSKO!FWDSKO

;MESSAGE QUALIFIER BITS

) ol wnil

PP
S
U
P
W1, W] ) [ U} . P
OO
WAT W) S DOW
YO S8 NN
D O 0o

1n?

DO rrNNOESN

T O
TR

000001
000002

HEADERS

FLAGS

RSGISTER BIT

DRVERR?

=100000
=40009

=20000

10000
DLTERR
HNFERR
- =10000

DCKERR

=4000

HCRCERR =4000
OPJERR
=2000
=1400
DSMSK
(RDYMSK =200

INTEBL

=100

FROM

SUBROUTINES

;OPERATION

TOOK

TO LONG

:NO INTERRUPT FROM OPERAT]ION
: CONTROLLER HUNG
:BAD CONTROLLER CLEAR
;CONTROL AND STATUS REGISTER
;BUS ADDRESS REGISTER

;015K ADDRESS REGISTER
;MULTI=-PURPOSE REGISTER
DEFINITIONS -

CONTROL

;CONTROL
:ANY

STATUS REGISTER

AND

STATUS REGISTER

ERROR BI1T

:DRlvE ERROR BT
:NON-EX]STANT MEMORY ERROR
;DATA LATE ERROR
;HEADER NOT FOUND ERRQCR
;DATA (HECK ERROR
sHEADER

CHECK

ERROR

;OPERATION INCOMPLETE ERROK
;DRIVE SELECT MASK
;CONTROLLER READY MASK
JINTERRUPT ENABLE MASK

———
o ——

106

R
T

MQUALS

103
104

105

HDR4O

003760

0!
00
02
03
04
05
06
07
08
09
10

T
T
T

RORWOP
RELDWT

B8ADADD
SEEKOP

[GNORE

:NO OPERATION

A TION FLAGS

REVSKS
fFWDSKS
REVSKO
fwDSKO

DATA
DATA,

At e

100000

FOLWRT

JREAD
;READ

040000

DATACMP
CYLUP
ULOAD
INOUTS
DUTINS

CHE(K

020000

HDRZMP

000010
000020
000040
000100
000200
000400
001000
002000
004000
010000

(OMPQOP

000001
000004

owmwmmwmmmmu'wwmmmwv

v ]

NOOP

SWRITE

INTERVENTION TESTS

;GET STATUS
;SEFK
;READ HEADER
;WRITE DATA

N o]

RDNOMR

e XD

007777
000302

SEXECUTE MANUAL

WIDATA
RDDATA

90
91
9?2
93
94
95
96
97
98
99
100
1CH
102

RDHEAD

8¢

83
B4
85
86
87
88
89

0001170
000112
000114
000116
000100

SEQ 0046

SUBSYS]EH FUNCTIONS

80
81

(KDATA
GISTAT
SEEK

"ot

000102
000° 04
000106

2-?

=BIT1S

—

¢
77
78

MITEST

DDDO
DO

100000

nwoa

9-FFB=-79 19:23:55 PAGE

MACRO v03.01

—t et —t —t O
D000
whro
— O

LSSEMBLY ROUTINES

ROUTINES

MACRO v03.01

9-FEBR-79

19:23:55 PAGE

000060
000001

BAMSK
DRDYMSK

000077
000100

SAMSK

—

el el

H P ol o3V L QR AN AN AN AN NN NN NN N
P
WAL
= O O DN
N
= OO0

ASSEMBLY

002140
002142
002144
002146

002150

002152
002154
002156
002160

DEFINITIONS = DISK

ADDRESS

FOR

DATA

DEFINITIONS

ADDRESS

FOR

SEEK

FOR

GET

=77
=100

GETSTAT =3

017777

WCMSK

DRSET

WCRNG

000077
000100

HDSEC

000007
000010
000020

STAMSK
BHSTAT
HOSTAT
COSTAl
HSSTAT

HDHSE
L

005&37

:SECTOR ADDRESS MASK
;HEAD SELECT MASK

OPMSGS:

DISK

;MUST BE

SET,

BIT

XFER

:DIRECTION BIT

=20

;HEAD SELECT BIT
BIT

DEFINITIONS

=10

DISK

ADDRESS

;GET STATUS SETUP
:DRIVE

RESET

DEFINITIONS - MP

FOR DATA XFER

DEFINITIONS

FOR

17777
=160000

BIT

=77
=100

=20

STATUS

MASK

;WORD COUNT MASK
:WORD COUNT RANGE MASK
- MP

READ HEADER

:SECTOR MASK
;HEAD SELECT MASK

DEFINITIONS - MP FOR GET STATUS
;STATE MASK
;:BRUSH HOME STATUS

=40
=100
AT
=400
DSEST
=1000
VCSTAT
WGESTAT =2000
SPDSTAT 24000
STOSTAT =10000
WLSTAT
=20000
HCESTAT =40000
WDESTAT =100000
ENDMOD
BGNMOD

005224
205243
005265
005232
005362
005311
005330
005427
00541¢
005460

B1T

-1

160000

000000
005253
005277

;:DRIVE READY MASK

000003
000010

DIRBIT
HDSEL

SEQ 0047

:BUS ADDRESS UPPER MASK

-1

MBSET0

002126
002126

002134
002136

=60

000001
000004
0C0020

000040
060100
000400
001000
002000
004000
010000
020000
040000
100000

002126
002130
0021352

HSMSK

2-3

;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

GLBDAT
TABLE

.WORD

.WORD
L.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD

LWORD

OPERATION MESSAGES

MWRCHK
MGTSTA
MSEEK
MREADH
MWRITE
MREAD
MWRSET
MDAT(P
MHDR(P
MCYLUP
MULOAD
MINOULT

MOUTIN

;FILLER

:MESSAGE
:
:
;
;
;
;
;
;
:
;
;

;

FOR WRITE CHECK
GET STATUS
SEEK
READ HEADER
WRITE CATA
READ DATA
WITH RESET
WITH DATA COMPARE
WITH HEADER (OMPARE
LOAD HEADS
UNLOAD HEADS
IN=OUT SEQ

OUT=IN SEQ

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB-79

19:23:55 PAGE

2=~4

SEQ 0048

| o\ QU

S —

OOV
NS NP — o

AVI V1oV ] UL, UY U1, 61, VY ¥,V o V]

202
203
204
205
206
207
208
209

~ono AV VT, V], VY, VY,V ) [aSEa
VI N o VY, V) rorororL RO
f i
fro NN RN
N DO oo
L LM N N LN e A NN
- O
)
~NO N N = O O 0o Rt e XV P NV,

221

002166
002170
002172
002174
002176
002200
002202
00220«
002206
002210
002212
002214
002216
002220
002222

002224
002226

002230
002232
002234
002236

002240
002242
002244
002246
002250
002252
002254
002256
002260

007572
007703
010123
010075
010060
010050
010141
000000

CLRBYT:
NXTHL:
GBND :
CAMSK:
DIRMSK:

.WORD

RESTBL:

TABLE
.WORD

-WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000
007777
007744
007762
000000
007714

002306
002310
002312
002314
002316
002320
002322
002324

000000
000000
000000
000000
000000
000000
000000
000000

MLOHDR
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

HDCYL:

010015

002272
002274
002276
002300
002302
002304

MEOLWRT
MREVSK
MFWDSK
MRE SKO
MEWSKO
MBEADAD

1.DR]VE:
JJJ:
.WORD
HLMTW:
.WORD

010033

004746
004750
005010
005050
005110
005116
005156
005160
005220
005222

002262
002264
002266
002270

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

:
PATTBL:

RESULT
MCERR
MORERR

FOLLOWING WRITE
REv SEEK

:
:
;

SEEK

FWwD

SEEK

BAD DISK ADD FOR WRITE
40 HEADER OPERATION

NAME

FWwD

REV

MESSAGE

MNEERR
MFLERR
MHDERR
MOPERR
MNDRST

ADDRESSES

; CONTROLLER ERROR
;DRIVE ERROR
;NON-EXISTANT MEMORY £RROR
;HEADER NOT FOUND-DATA LATE
;HEADER OR DATA ERROR
;OPERATION

;NO DRIVE

INCOMPLETE

STATUS AVAILABLE

MWDERR
MHCERR

;WRITE DATA ERROR
;HEAD CURRENT ERROR

MSTERR

MSPERR
MWGERR

;SEEXK TIMEOUT ERROR
;SPINDLE ERROR
;WRITE GATE ERROR

MDSERR

;DRIVE SELEC!

ERROR

PATTERN TABLE
PATI
.WORD
PAT?
.WORD

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

SUBSTK:

OOOOOOOO

187
18%
189
190
191
192
193
194
195
196
197
198
199
200
201

005503
00552%
005560
005647
005613
005703
005346
000000
000000
000000
000000
000000
000000
000000
000090
000000

PAT3

PAT4
PATS
PAT6

PAY7
PATS
PA1Q
PAT10

SUBROULTINE
.WOkD
.w"RD
.WORD
LWORD
LWORD
.WORD
JWORD
s WURDY

OO0 0O0000

18¢ 002162
186 002164

CALLING STA(K

;STACK

12 WORDS LONG

MACRO v03.01

ROUTINES

9-FEB-79 19:23:55 PAGE

000000
000000
000002
000006
000011
000014
000021
000026
000033
000042
000051
000200
000377

000004
000014
000022
000030
000042
000054
000066
000194
000122
000400
000777

.WORD
.WORD
;RLOY TABLE OF
1251BL: .WORD
LWORD
.WORD

LJYNRD
LWORD
.WORD
.WORD
.WORD

LWORD
.WORD
.WORD

:RLO2 TABLE OF

1251B2:

.WORD
.WORD

.WORD
.WORD
.WORD
LMWORD
.WORD
.WORD
.WORD
.WORD

.WORD

2-5

SEQ 0049

0
0
CYLINDERS
2
6
9.

;TABLE

CYLINDERS
&
12,

18,
24,
34.
44,
54.
68.
82.
256.

511,

;TABLE

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

16.

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

10 BUILD AND STORE

16.

wad

cod

)

—

CYLIBL:

.BLKW
.BLKW

USED

41,
128.
255.

1BT:

10 BE

12,
17,
22.
27.
34,

— et e 2 B DD OO~ NO NN I NN T
— ~ PN
NN = OO N— S
PN OONINODN~NO
S
~NOWNODNU®
&
&
o
o
&
o
s
¢
8
o
s
»
8

T331BL:

DIFFERENCES

JIN TEST 25

TABLE TO BE USED IN TEST 33 AND 34
CYLINDERS 1O BE USED IN THE TEST.

NN
N
NN —
NO PO
=
NO

262 002326
263 002330
244
265
246 002332
a7 002334
248 002336
249 002340
250 002342
25 00234¢
252 002346
253 002350
254 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 002402
269 002404
270
27
272
273
274 002406
275 0024406
276
277
278 062506
279 002507
280 002510
281 002511
282 002512
283 002513
284 002514
285 002515
286 002516
287 002517
288 002520
289 002521
290 002522
291 002525
292 002524
293 002525
294 002526
295 002527
296 002530
297 002531
298 002532

—

RSSEMBLY

DEFAULT

CYLINDERS

THE

348
349
350
351
352
353
354
355

002650
002652
002654
002656
002660
002662
002664
002666

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

.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

.
L]
[]

[]

b o e wh
b e

= OO D 0000~ ~NON NS

NO NN
O =S

000
000401
000406
000415
000423
000432
000445

OWN=SANOSNNOWVO
SO S~
O S

002560
602562
002564
002566
002570
002572
002574
002576
002600
002602
002604
002606
902610
002612
002614
002616
002620
002622
002624
002626
002630
002632
002634
002636
002640
002642
002644
002646

0
1
322
323
324
325
326
327
328
329
330
331
332
333
334
315
336
337
338
339
340
341
342
343
344
345
346
347

9 002557

2-6

002552
002553
002556
002555
002556

&
5
6
7
8

POOMPNOPOPLUPROPRUNUNIPO
N d cod et ced

1002547

2 002550
3 002551

308 00254¢
309 002545
310 002546

19:23:55 PAGE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTF
.BYTE
BYTt
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD

002540
002541
002542
002543

NN AN WO N RO RN RO PO N PO N
~Oo O WS NN = = O NN
NS NN — O

304
305
306
307

002534
002535
002536
002537

9-FEB-79

NN
— PROWS

299 002533

300
301
302
303

MACRO v03.01

ROUTINES

WN AN
NN

ASSEMBLY

SEQ 0050

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:23:55 PAGE

2-7

000751
000760
000766
000774
000774
000000
0000CO

SSINDX:

000000
000000
000000
000000
000000
000C00
000000
0J0000
000000

OPERATIONAL
.WORD
.WORD
HADONE
: -WORD
ERHEAD: .WORD
: .WORD
MORECE
: .WORD
ERRSWI
BSFLAG: .WORD
WRISWI: .WORD
TBLSTR: .WORD

000000
000000
000000

RLBAS:
RLVEC:
RLDRvV:

.WORD
.WORD
.WORD

000000
000000
000000
000000
000000
000000
000000

.CS:
.BA:
.DA:
MP:
.CS:
.BA:
.DA:

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

OOO0COOO0OD

000000
000000
000000

HDWRD1:
HDWRDZ:
HDWRD3:

.WORD
.WORD
.WORD

OO0

;HEADER WORD STORAGE

000000

T.STAT:

.WORD

;DRIVE STATE STORAGE

000000
00000C
000000
000000
000000

RESPARM:

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

DRVONT:
DIFAUG:
oLDCvL:
NEWCYL:
CURCYL:
DESDIF:
DESSGN:
DESHD:
DESSEC:
TEMPO:
TEMPY:
TEMP?2:

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

.WORD

.WORD
.WORD
.WORD
.WORD

TEMP3:
TEMPSG:

.WORD
.WORD
.WORD
.WNRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

;SUBROUTINE STACK INDEX POINTER
FLAGS

.WURD

OO0OO0OO0O

T.MP:

502.
508.
508.
0
0
OOOOODOOO

OPFLAG:
:
DONE

489.
496.

OOOOOOOOOOTCOOODO

356 002670
357 002672
358 002674
3599 002676
360 002700
361 002702
362 002704
363
364
365 002706
366 002710
367 002712
368 002714
369 002716
370 002720
N 002722
372 002724
373 002726
374
375 002730
376 002732
377 002734
378
379 002736
380 002740
381 002742
382 002744
383 002746
384 002750
385 002752
186 002754
387 002754
388 002756
389 002760
390
391 002762
292
393 002764
394 002766
395 002770
396 002772
397 002774
398
399 002776
400 003000
401 003002
40?2 003004
403 003006
404 003010
405 003012
606 003014
407 003016
408 003020
409 003022
410 003024
AR 003026
612 003030

—— e

SEa 0051

;OPERATION FLAGS
;OPERATION COMPLETE

FLAG

sHEAD ALIGNMENT DCNE FLAG
;ADDRESS OF ERROR HEADER
;MORE THAN 1 COMPARE ERROR
;ERROR RETURN SWIT(CH
;BAD SECTOR FLAGS

;WRITE
; TABLE

SWITCH
STORAGE

;RL11 BASE ADDRESS

sRL11

VECTOR ADDRESS

;DRIVE NUMBER UNDER TEST
;CONTROLLER REGISTER

:BEFORE OPERATION

STORAGE

;CONTROLLER REGISTFR STORAGE

AFTER

OPERATION

;PARAM BLOCK FOR REASON REPORT

;DRIVE COUNT FOR DRIVES UNDER TEST
;DIFFERENCE AUGMENT FOR SEEK
;0LD CYLINDER
¢NEW

CYLINDER

:CURRENT
:DESIRED
;DESIRED
;DESIRED
;DESIRED

CYLINDER
DIFFERENCE
SIGN
HEAD
SECTOR

: TEMPORARY

STORAGE

. TEMPORARY
; TEMPORARY
; TEMPORARY

STORAGE
STORAGE
STORAGE

: TEMPORARY STARAGE

ASSEMBLY

ROUTINES

613 003032

003034
415 003036
416 003040

000000
000000
000000
000000

621 003046
003050
003052
003054
003056
003060
K27 003062
428 003064
429 003066
630 003070
43 003072
632 00307¢
433 003076
634 003100
435 003102
436 003104
437 003106
438 003110
639 003112
440 003114
441 003116
462 003120

000000
000069
000000
000000
000000
000000
000000
000000
000000
000000
000000
900000
000000
000000
000000
00C
. J0
000000
000000
000000
000000
000000
000000
000000
000000

418
419 003042
420 003044

422
423
424
425
426

463
444

003122

446

003126
003130
003132

463
464

465

9-FEB-79 19:23:55 PAGE 2-8

TEMPS:

TEMPG:
TEMPT7:
TEMPS:

OF IN:

OFINU:
OFMID:

OFMIDU:

Of OuT:
0FOUTY:
ORIN:
ORINU:
ORMID:
ORMIDU:
OROULT:
OROUTU:
HF IN:
HF INU:
HFOUT:
HFOUTY:
HRIN:
HRINU:
:
HROUT
HROUTU:
AFMID:
AFMIDU:

ARMID:

ARM]DU:

000226
001046
001750
000372
000004

ExocyL:
EXHCYL:
EXACYL:
EXROT:
ERRVEC:

003134
003136
003140
003142
003342
003344
003346
003347
003350
003352

000000
000000
000000

PASCNT:

000000

PASNUM:
PSETNM:

003354

000000

445 003124

447
449
450
£51
452
453
454
455
456
457
458
459
460
461
462

MACRO v03.01

466 003356

467 003552
468
469 003746
470 006346
o1

000000
000
000
000060
000000

.WORD
.WORD
.WORD
.WORD

0
0
0
0

: TEMPORARY
: TEMPORARY
: TEMPORARY
: TEMPORARY

WORD
.WORD

0
0

;ONE
;

TIMER STORAGE

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

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

LOCERR:
NOERC(CT:
TRPFLG:
PWRFLG:

BSFVAL:

JONE
;
;ONE
;
;ONE
:
;ONE
;
;ONE
:
;128
;
;128

CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER

O
0
0
0
0
0
0
0
0

:
;128
;
;128
;
:256
:
:256

.WORD
.WORD
.WORD

150.
550.
1000.
250.

JEXPECTED
JEXPECTED
;EXPECTED
JEXPECTED

.WORD
.WORD

MISCELLANEOUS

.BLKW

.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

64.

0
0
0
0
0
0

BAD SECTOR

UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER
CYLINDER
UPPER

sERROR
COUNTERS

STORAGE
STORAGE
STORAGE
STORAGE

CYLINDER FORWARD
UPPER

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

.WORD
0
COUNT:
.WORD
0
ERRPOINT: .WORD 0
ERRCNT:

SEQ 0052

INNER

FORWARD MIDDLE

FORWARD OUTER
REVERSE

INNER

REVERSE MIDDLE
REVERSE OUTER

FORWARD

INNER

FORWARD OQUTER

REVERSE

INNER
:
REVERSE OUTER
FORWARD

REVERSE

TIME ONE CYLINDER
TIME 128 CYLINDER
TIME 256 CYLINDER

ROTATION TIME

VECTOR USED WHEN AUTO SIZING

;PASS COUNTER (LOCAL TO A TEST)
;A COUNTER (LOCAL TO A TEST)
JERROR POINTER
;ERROR COUNTER FOR PROGRAM

;PASS NUMBER FOR PROGRAM
;COUNTER FOR PARAMETYER SET NUMBER
;LOCAL ERROR COUNTER
;INHIBIT ERROR COUNTING FLAG
:HARDWARE TRAP OCCURANCE
;POWER FAILURE OCCURANCE
TABLES AND POINTERS

.WORD

sBAD SECTORS FILES VALID FLAG

SBSFIL:

FBSFIL:

BLKW
BLKW

76
76

; SOF TWARE BAD SECTOR FILE
sFACTORY BAD SECTOR FILE

[BUFF:
:
OBUFF

BLkw
BLkWw

200
200

s INPUT BUFFER
:OUTPUT BUFFER

IN USE

ALSEMBLY RDUTINES

MACRO v03.01

9=-FEB=79

19:23:59 PAGE

2-7

)
SEQ 0053

«72
«73
676
675
674
477
478
479
480
481
482
483
484
485
486
487
‘33

0064746
006750
006752
004756
004756
0064760
006762
006766
004766
004770
0064772
006774
006776
005000
005002
005006
005006

000000
177772
V77777
177777
052525
052525

PATY:
PAT2:

0525¢5
177777
177777
052525
052525
177777
052525

177252
177252
172765
172765

. WORD
.WORD
JWORD
WORD
JMORD
CWORD
LWORD
LWORD
WORD
.MORD
LWORD
.WORD
LWORD
.WORD
.WORD
_WORD
.WORD

0
177772
177777
177777
052525
052525

;PATTERN 1

(ALL

ZEROS)

052525
177777
177777

052525
052525
177777
052525
177252
177252
172765
172765

490
491
492
493
494
495
496

005010
005012
005014
005016
005020
005022
0050264

000003
000000
000000
177777
177777
177777
000000

498 005030
499 005032

177777
177777

497 005026

500
501
502
503
506
285
6

507
508
509
510
511

000000

005034
005036
005040
005042
005044
005040

000000
177777
000000
177777
(00000
177777

005050
005052
005054
005056
005060

025252
052525
052525
125252
125252

512 005062
513 005064

514 005066

515 005070

PATG:

005100
005102
005104
005106

524 005110
525 005112
25? 005114

155555
133333
066666

528 005116

121105

000003
000000
000000
177777
177777
177777
000000

"WORD
LWORD

177777
177777

000000

.WORD
LWORD
.WORD
WORD
.WORD
LWORD

000000
177777
000000
177777
000000
177777

.WORD
.WORD
.MORD
JWORD
LWORD

025252
052525
052525
125252
125252

JWORD
.WORD
JWORD

125252

125252
052525
125252
052525
125252
052525
125252

.WORD
.WORD
.WORD
WORD
CWORD
LWORD
.WORD

.WORD

125252
052525
052525

516 005072
517 005074
518 005076

519
520
§21
23;

PAT3:

JWORD

125252
052525
052525

125252

.WORD
LWORD
CWORD

.WORD
JWORD
LWORD
.WORD

125252
052525
125252
052525
125252
052525
125252

PATS:

.WORD
.WORD
.WORD

155555
133333
066666

PATG:

LWORD

12110%

ASSEMBLY

ROUTINES

529 005120
530 005122*
531 005124
532 005126
533 005130
534 005132
535 005134
536 005136
537 005140
538 005142
539 005144
5640 005146
541 005150
942 005152

245 005154
44

245 005156

MACRO v03.01

9-FEB-79

19:23:55

150442
064221
132110
055044
026442
013211
1055C4
042642
(021321
110550
044264
022132
(011055
104426

WORD
LMORD
.MWORD
.WORD
.WORD
LMWORD
.WORD
LMWORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD

0422'3

PAGE

2-10

SEQ 0054

150442
064221
132110
055044
026442
013211
105504
042642
021321
110550
044264
022132
011055
104426

LWORD

042213

177777

PAT7:

.WORD

177777

005160
005162
005164
005166
COS5170
005172
005174
005176
005200
005202
005204
005206
005210
005212
005214
005216

045513
122645
151322
064551
132264
055132
026455
113226
045513
1¢°'645S
151322
064551
132264
055132
02645%
113226

PATS:

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

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

26; 005220

125252

PATO:

.WORD

125252

155555

PAT10:

.WORD

155555

547
548
5649
550
551
552
553
554
555
556
557
558
559
560
Sol
26%
6
£

gog 00522¢
6

268 005224

ENDMOD

573 005224

574 005224

123%

105

580 005311

127

1R R

575
576
577
578
579

005232
005243
005253
005265
005277

581 005330
582
583
584
585
584
587
588

0053«6
005362
005376
005405
005416
005427
009437

122
122
127
127
107

127
106
127
117
122
129
114
106

105

104
104
122
122
10%

0640
040
126
126
126

1R R

‘26

117
i
120
105
116
104
117

126

122
124
105
123
114
040
114

BGNMOD

GLBTXT

MREAD:
MREADH:
MWRCHK:
MWRITE:
MGTSTA:

,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

MSEEK:

MDATCP:

MHDRCP:

M4LOMDR:
MWRSET:
MOPER:
MRSLT:
MULOAD:
MCYLUP:
MOUTIN:

.ASCIZ

/SEEX /

.ASCIZ

/WlTH DATA (MP /

.ASCIZ

,ASCIZ
,ASCIZ
,ASC1Z
LASCIZ
.ASCIZ
.AS({IZ
ASCIZ

/RD DATA /
/RD HDR ¢/
/WRT (HECK/
/WRT DATA /
/GEY STAY ¢/

/WITH HDR (MP /

/FOR 40 HDRS/
/WlTH RESET /
/OPER: /
/RESULLT:
/
/UNLD DRv/
/LD DRv /
/FOL O TO (7 SEEw/

O5EMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:23:55 PAGE

2-11

SEQ 0055
589 005460
590 005503
991 005525
992 005560
593 005613
594 005647
595 005703
596 005724
597 005754
598 00600!
599 006022
600 0060%3
601 006040
602 006057
603 006117
604 006124
605 006131
606 006136
607 006143
608 00€156
609 006171
610 006177

611
612
613
614
615
616
617
635
636
637
¢38
639
640
641
€42

643
646
645
646
647
648
649
650
651
652
653

006513
006537

116
116
103
105
126
125
040
117
AR
"
111
RN
IBR
123

117
117
104
104
113
113
116
101
101
117
125
122
117
122
114
114
114
114
120
120
117
116
117
117
116
122
117
116
124
125
116
116
116
116
116
105

114
114
172
112
0640
040
040
116
106
040
123
126
040
126
103
102
104
115
040
040
122
124
040
040
126
122
114
130
105
124
103
103
103
116
103
105

00655/
006574
006610
006626
006647
006672
006713
006745
006772
007002
007016

122
123
102
127
123
127
127
101
117
123
123

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

G06216
006236

006271

006305

006325
006346
006363

006371
006407

006431
006453
006475

006562

106
106
101
101
123
123
117
103
102
124
102
104
116
104
122
122
122
122
117
117
127
11

106

654 007040
655 007064
656 007074

050
101
188

659 007117

105

657 007102
658 007111

115
117

i27

183
120
116
111
125

130

P2T0OS5E:
P2T06E:

.ASCIZ
.ASCIZ

P2T08E:
P2TO9E:

.ASCIZ
,ASCIZ

/FOL 255 10 CC SEEK/
LASCIZ
/FOL WRT (NO SEEK)/
/ADJ CYL WRTTIN AFTER REV SK/
/ADJ CYL WRTIN 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/
/710 MANY BAD SEC /
/BUS ADD=/
/DRv=/
/NO DRV FOR TST/
/DRv DID NOT REC'R FROM PWR FAIL/
/RLCS/
/RLBA/
/RLDA/
/RLMP/
/0P INIT =/
/0P DONE - /
/WORD /
ASCIZ
/INTRPT TO LATE/
/NO DRV RESPONSE/
/NO INTRPT ON (MND COMPLETE/
LASCIZ
/CNTLR HUNG /
/ERR DID NOT CLR/
/vOL CHK NOT RSET/
/UNXPCTED ERR/
/ TESV/
/0UT GRD BAND /
/INC SEEK FWD HD 0/
/INC SEEK REV HD 0/
/INC SEEX FWD WD 1/
/INN GRD BAND /
/INC SEEK REV HD 1/
/SEEK/

126
105
123
1264
111
124
126
112
105
105
111

P2TV11E:
P2T12E:
P2T13E:
P2T14E:
P2T15€:
P2T16E:
P2TI78:
P2T18E:
P2T19E:
SKTMES:
SRTMES:

.ASCIZ
.ASCIZ
.ASCI7
,ASCIZ
.ASCIZ
.ASCIZ
.ALC17
.ASCIZ
.ASCl.
.ASCIZ
,ASCIZ

/REV 0OSC SEEK/
/SEEK TIMING/
/BASIC RD DATA/
&WRT/RD DATA (P1)8
/SPINDLE ROT TIMING/
&WRT/RD DATA (P2)8
/WRT LCK ERR AND DATA PROT/
/ADJ CYL INTERFERENCE/
/OVERWRT/
/SEEK TIMES /
/SPINDLE ROT TIME /

i20
116
104
126
120

MAPROX:
LABIN:
LABMID:
LABOUT:
LABEXP:

,ASCIZ
,ASCIZ

/MIDDLE/
/OUTER/

106

116

MINOUT: _ASCIZ
MFOLWRT:
MREVSK: .ASCIZ
MFWDSK: .ASCIZ
MFWSKO: .ASCIZ
MRESKO: .ASCIZ
MBADAD: .ASCIZ
MBADSF: ,ASCIZ
MFMIER: .ASCIZ
MTIMBS:
.ASCIZ
BASADD: .AS(CIZ
DRVNAM: _ASCI?
DRVNAvV: .ASCIZ
NOPWR:
_ASCIZ
(SNAM:
_ASCIZ
BANAM:
_ASCIZ
DANAM:
_ASCIZ
MPNAM:
_ASCIZ
LAB!:
LASCIZ
LAB2:
.ASCIZ
MWORD:
.ASCIZ
MIOSLOW:
MDRRES:
MNOINT:

.ASCIZ
.ASCIZ

MNOCLR:

.ASCIZ

P2T03E:
P2TO4E:

.ASCIZ
.ASCIZ

MCONHNG:
VONRST:
UNXERR:
TSTLAB:

P2TO7E:
P2T10E:

VALDES:

.ASCII
.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
,ASCIZ
ASCIZ
,ASC1Z

/FWD OSC

SEEK/

/(IN 100'S OF u=SEC}/
/APPROx /
/INNER/
/EXPECTED/

ASSEMBLY

ROUTINES

007130

2 007142
3 007154

& 007170
S 0072064

6
8
26
27
28
29
30
31
32
33
34
35
36
37
38
39

MACRO v03.01

9-FEB=79

061

040

103

119
11%

1
101
101
104
105

106
130

061
115

040
i

LABOCF:

PAGE

.ASCIZ

(YL

_ASCIZ
ASCIZ

/MID CYL REV/
/MAX CYL FWD/

SEQ 0056
FwD/

103
106

LABOCR:
LABHCF:

.ASCIZ
.ASCIZ

107
104
105
131
122
102
117
122

130
123
123
0640
040
106
126
106
116
040
103
114
117
131
125
126
104
124

LABACR:
HOMOVF:
OPR12:
OPRYA:
OPRIB:
UNDTST:
OPROO4:
DIFWD:
SGNWD:
HDWD:
SECWD:
CYLwD:
FRMWD:
BYPSNM:
SEQMES:
STAMES:

BSNSTR:
TCERR:

.ASCIZ
/MAX CYL REV/
_ASCIZ
/HDS FAI'ED TO MGVE
.ASCIZ
'RESET WRI L(k /
_ASCI2
/ON /
.ASCIZ
/ON Dk, /
_ASCIZ
/UNDER Tt.'/
.ASCIZ
/SET WRT L(r ,
.ASCIZ
/DIFF /
,ASCIZ
/SGN /
.ASCIZ
/WD /
.ASCI1Z
/SEC /
.ASCIZ
/CvyL /
_ASCIZ
/FROM /
_ASCIZ
/ BYPASSED /
.ASCIZ /ROUTINE TRACE SEQ:/
.ASCIZ
/DRv STAT/

126
116
122
124
122
126

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

RESULT

007220
00723
007273
007312
007316
007326
007341
007356
007364
007371
007375
007402
007407
007415
007430
007453

115
139
122
117
117
125
123
104
123
10
123
103
106
040
122
104
102
124

101
117

007561
007572
007604
007614
007625
007641

104
103
110
104
110
104

122
117
104
101
104
101

70 010128
71 010134

116
103

055
131

010164
010231
010272
01030¢
010346

125
100
127
040
040

207

116
101
122
117
105

377

81 (10361

123

040

40 007464
4; 007540

19:23:55

116
116
116
105
11

LABHCR:
LABA(®:

.ASCIZ
,ASCIZ

/1 CYL REV/
/MID CYL Fwh/

/BAD SEC FILES NOT
/TOTAL (MP ERRS: /

IN 10 TRIES/

=
STRD.

ALL

SEC

ASSUMED OK./

44
45
46
47
48
49

50
51
60
61
62
£3
64
65
66
67
68
66

007653
007703
00771«
007731
007744
007762
007777
010015
010033
010050
010060
010075

72 0101461
7%
764
7%
76
77

;g 010355
80

B2 01036%

110
104
104
104
123
127
123
110
127
117
110
110

i03%

040

,ASCIZ
.ASCIZ
LASCIZ
.ASCI2?
LASCIZ
.ASC1Z

NAMES

/DRv RDY /
/CONT ERR /
/KDR CRC/
/DATA (RC/
/HDR NOT END/
/DATA LATE/

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

122
126
126
126
111
124
105
101
126
122
122
122

MHFCRC:
MDRERR:
MDSERR:
MDRVST:
MSPERR:
MWGERR:
MSTERR:
MHCERR:
MWDERR:
MOPERR:
MHDERR:
MFLERR:

.ASCIZ
.ASCIZ
.ASC1Z
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASC1Z
.ASCIZ
,ASCIZ

&HDR NOT FND/HDR CRC/OPIg
/DRV ERR /
/DRvV SEL ERR /
/DRvV STATE /
/SPIN TIMEOQUT /
/WRT GAT ERR /
/SEEK TIMEOUT /
/HEAD CUR ESRR /
/WRT DAT ERR /
/OPR-INC/
&HDR/DAT ERR &
G&HDR NOT FND/DAT LATF &

101

116

MNDRST:

.ASCIZ

/CAN'T GET DRV STATy

123

130
114

113
111
124
126
122

102

MNEERR:
MCYLOC:

MUNDEF:
MRLFAL:
MWRTAB:
MEXERS:
MERRS:

BELL:

,ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

JASCIZ

/N=X=-MEM /
/CyL /

/UNKN DRV STATE=NO RDY,ND ERR,HDS OUT/
/FAIL 1O RELD HDS AFTER ERK CLEAR/
/WRY ABORTED/
/ OVER ERR LIMIT = UNIT DROPPED /
/ ERROR/

<207><377><377>

RESULTYT

SETTINGS

RESE4:

ASC12

/7 SB /

RESES:

LASCI2

/1S ¢

ASSEMBLY RQUTINES

84
85 010372

86 010377
B7 010404

88
89
93
94
95
96
3;

MACRO v03.01

040

040
123

117
124

9-FEB-79 19:23:55 PAGE

5
SEQ 0057

116

:
RESES:

RESULT
_ASCIZ

CONDITIONS
7/ IN/

STATE3:
STATES:
CIOMS:
(500MS:
CCYLUP:
CAFDT:
(5SEC:

.ASCIZ
ASCIZ
_ASCIZ
.ASCIZ
LASCIZ
_ASCIZ
.ASCIZ

/STATE 3/
/STATE 5/
/1ST 3 Mg/
/500MS/
/CYCLE UP/
/DATA XFR/
/5 SEC/

.ASCIZ
.ASCIZ
_ASCIZ
LASCIZ
_ASCIZ
LASCIZ
LASCIZ
CASCIZ
LASCIZ
CASCIZ
LASCIZ
CLASCIZ
CASCIZ

/AINZTANZTRTRO06XSATROT1IN/
/ANXTXO1XS1XTXO1ZN/
/ANXTXOIXSIRTXTAIN/
/2T%T/
/ANRTRT/
/%17
/7%N/
/7ANXTXTIN/
/AINXTR06XS1XTR01/
/ANRSTIRTASARTASLXTASLATASLATAS2RT/
/ANZTX06XS2X06%S2%06%S2XC6XS3%03XS2X01XN/
/ANXTRO6XS2R06%52%06%52%06/
/XINRT/

106
101

RESE6:
STATEQ2:

.ASCIZ
.ASCIZ

010414
010426
010434
010445
010453
010464
010475

123
123
061
065
103
104
065

124
124
123
060
131
101
040

101
101
126
060
103
126
123

010503
010532
010554
010575
010602
010611
010614
010617
€10630
108 010650
109 010712
110 010762
111 011014

045
045
45
045
045
045
065
045
045
045
045
045
045

116
116
116
124
116
124
116
116
116
116
116
116
116

045
0645
0645
045
0645
000
000
045
045
045
045
045
045

FMIOP1:
FMIOP2:
FMTOP3:
FMTI:
FMT1.1:
FMT2:
FMT3:
FMT4:
FMIS:
FMT6:
FMT7:
FMT8:
FMT9G:

045

FMT13:

(ASCIZ
L_ASCIZ
_ASCIZ

99
100
101
102
103
104
105
106
107

112 011021
113 011027

045
045

114 011035

045

124
124
116

117
118
119
120
121
122

011167
011200
011222
01125«
011311
011341

045
065
045
045
045

123
116
124
124
124

045
061
045
045
045
045

FMY16:
FMT17:
FMT18:
FMT19:
FMI120:
FMI21:

LASCIZ
_ASCIZ
ASCIZ
_ASCIZ
(ASCIZ
_ASCIZ

/ANXS5%06/
/XSTORTINXST11X06XN/
/ANXSISETRSSRTASLXTASSXATIN/
/XTAS4XADOXSLXDOXSLAD6RSLADOAN/
/XTXS2XD6XST14AXDOXSLXDOAN/
/XTXS12XD6XS14XDOAN/

1264
125
'26
127
128
126

011420
0114634
011441
011451
011475
011514

045
045
045
045
045
045

124
116
116
11¢
116
116

045
045
0645
0645
045
045

FMT23:
FMI24:
FMT25:
FMI26:
FMT27:
FMT28:

_ASCIZ
ASCIZ
LASCIZ
LASCIZ
L_ASCIZ
ASCIZ

/XTXTRTROVEN/
/INRY/
/ANXD2RT/
/ANXSIXTADAXTXTRD3AN/
/ANXTXD3XTXAD3XN/
/XINXTRTIXT/

BGNMOD
.
:

GLBERR
ERRI

ERR?

ERR3

ERR4

115 011101
116 011133

123 011364

}32 011525

136 011526
137
138

045
045
045

045

116
116
116

116

065
0645

0a5
045

0645

FMT11:
FMT12:

/ OF /
/STATE 2/

FMT14:
FMT15:

FMT22:

ENDMOD

;

ASCIZ
_ASCIZ

(ASCIZ

/%7%01/
/X1%03/

/INXSTIXTXO3XS1XTRO3XS1XTROIRS1XTXOY/

/ANRTRTXD3XS1XTX06%S127206/
/ANXSTIXTAD3RSIXRTZ06RS1XTR06/

/XINXS11XTX03XS1XT201XS1X1202/

R3 POINTS 10 RESULT MESSAGE
RESULT: (RY)

R3 POINTS TO RESULT NAME
RESULT:

(R3)

SB O

R3 POINTS TO RESULT NAME

RESULT:

(R3)

IS 0 SB

R3 POINTS 10 RESULT NAME
R4

POINTS

RESULT

CONPITION

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=-79 19:23:55 PAGE

3-?

SEa@ 0058

RESULT:

ERRS

POINTS

SB 0

10 RESULT

(R3)

IS 0 SB

RESULT ROUTINE
REPORTS ALL

RESULT:

ERR7

'*ERROR'* ]S

@,
w0

(R4)

STATE
IS (T.STAT)

s
e
%4

124 011534

011540
011542
011546
011552
011554
011560
011546
011566
011572

005277

010146
004737
012721
010321
004737
004737
012601
004737

011572
011572

104023

195
196
197
198
199

01157«
011574
611600
011602
011606

009277
010146
004737
(12721

200 011612
201 011614
202 011620

010821
012721
00%021

003347
171600

023422
000001

BGNMSG

1%:

(R3=NAME)

1
2

(R&=VALUE

171340

028422
000003
000001

BGNMSG

(RS=vALUE

POINTS

TO BAD WORD

(RH)

;ELSE BUMP ERROR COUNT
;STORE R

R3,(R1)+

: INSERT MESSAGE

JSR

(SP)+ ,R!
PC,CKERLM

;RESTORE R}
;60 (MECK |F

Emi

($MSG

Mov

JSR

ERR?
INC

MOV

JSR

MOV
MOV
MoV

(LR

(OMPARE ERROR REPORT
R3 (ONTAINS THE BAD WORD NUMBER

9ERRPCINT
RY,=(SP)

BNE
INC

MOV

L10000:

;TEST 1IF ERROR
JYES - SKIP

JSR
JSR

ENDMSG

(NFW(Y.)

NOERCT
1%

MOV
MOV

024210
026416
014750

1518

(R3)

UTILITY RESULT REPORT
R3 POINTS 1O RESULT NAME

RESULY:

tRR1

HEAD POSITIONING ERROR REPORT
NEWCYL CONTAINS EXPECTED CYLINDER

10%73%7
001002

SET

SB 0

RS POINTS 10 GOOD WORD
RESULT: WORD (R3) IS (R&)

011520

ARE

DRIVE STATE ERROR REPORT
R3 CONTAINS EXPECTED STATE

R4 POINTS TO VALUE
RS POINTS TO VALUE

84w,

ERRO

ERR10

182 011526
183 011532

185
186
187
188
189
190
191
192
163

HOWRD1 CONTAINS BAD CYLINDER
RESULT: CYLINDER IS (HDWRD1) SB

®e

— Y
S
S
L
T

N~~~
— OOV ~NG N

CONDITIONS

DETERMINES WHICH ERROR(S)

T.STAT CONTAINS BAD
RESULY: DRIVE STATE

ERRB

(R&)

R3 POINTS 70 RESULT NAME

RESULT:
t RR6

(R3)

PC,RPTOP
£1,(R1)

PC,RPTIRES
PC,RPTIREM

COUNTING

;REPORT OPERATION
;SET PARAM NUMBER

ADDRESS PCINTER

;REPORT RESULTS
¢REPORT REMAINDER

ERROR

COUN!

SERRPOINT
R1,=(SP)

;BUMP ERROR COUNT
:STORE R1

#3,(R1)e
RI,(R1)

;SET PARAM NUMBER
; INSERT NAME ADD POINTER

PC,RPIOP,

#1,(R1)e
(R1)e

INWIBITED

;REPORT

(SET

JSET

OPERATION

vALUE

EE.ED

AND

ALSEMBLY

ROUTINES

208 071622

206 011626

2NS 011632
206 01163%¢
207 011640
011640
208
209
210
211
212
213
214
215
216

217
218
219
220
221
222

223
226
225
226
227
228
229
2%0
231
232
233
23

011640

011642
011642
011646
011650
011654
011660
011662
011664
011670
011674
011700
011702
011706
011706
G11706

0117210
011710
011714
011716
011722
011726
011730
01173%
0117%
011740
011744
011750

215 011752

236 011756
011756
011756
237
238 011760
2%9 011760
2640 011764
261 011766

262
263
2644
245
246
247

012014
012020
012022
0120626
012026
012026

248
2649
250
251

011772
011776
012000
012002
012000
012010

004737
004737
012601
004737

MACRO v03.01

024210
024416
014750

JSR
JSR

mov

ENDMSG

£L10001:

1040¢3

005277
010146
004737
012721
010321
005021
012721
004737
004737
012601
004737

9-FEB=-79 19:23:55 PAGE

171272

BGNMSG

004737

012721
010321
012721
005021
01041!
004737
004737
012601
004737

005277
010146
004737
012721
010321
005021
012721
010411
004737

004737

012601
004737
106023

BGNMSG

171154

R3,(R1)

EM1

($MSG

INC

000001

MOV
MOV

(LR

JSR
JSR

L 10004:

aE RRPOINT
R1,=-(SP)
PC,RPTOP
#4,(R))

PC,CKERLM

0C0004

ENDMSG

{SP)+ R

JSR

MOv
MOv

014750

;SET PARAM NUMBER
: INSERT NAME ADD POINTER

JSR
JSR

JSR

024210
024416

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

PC,RPTIOP

#1,(R1)+
(R1)+
R&,(R1)
PC,RPTRES
PC,RPTREM

ERRS

ERROR (OUNT

;BUMP ERROR (OUNT

(SP)+ ,R1

oERRPOINT
R1,=(SP;
PC,RPTOP
#4,(RY)e

R3,(R1)¢
(R1)+
#1,(R1)e
R4, (RY)

PC,RPIRES
PC,RPTREM

MOV

JSR

R
(SP)e
PC,CKERLM

Emt

($MSG

EXCEEDED

;STORE R
;REPORT OPERATION

($MSG

ERR4
INC

9ERRPOINT
R1,=-(SP)

EM7

Mov

023422

;GO CHECK

:G0 CHECK

MOv

BONMSG

REMAINDER

;RESTORE R1

PC,UKERLM

MOV

L 10003:

;REPORT

JSR

(LR

ENDMSG

;REPORT RESULTS

;REPORT
;REPORT

JSR

024210
024416

sEQ 0059 |

JSR
JSR

Mov
0
MoV

000001

[}

(R1)+
#1,(R1)e
PC,RPIRES
P(,RPTREM

MOV

023422

104023

INC

MOV

000004

014750

ERR?

(LR

L10002:

1712264

($MSG

MOV

ENDMSG

005277
010146

EMl

MOV
Mov

014750

104023

PC,CKERLM

JSR

000001
024210
02441¢

PC.RPTRES
PC,RPIREP
(SP)+ ,R1

JSR

Moy

023622
000003

3-3

JSET IS VALUE
;SET SB VALUE

RESULTS
REMAINDER

;RESTORE R1

ERRCR

COUNT

EXCEEDED

;BUMP ERROR C(OUNT

;STORE RI
:REPORT OPERATION

:SET PARAM NUMBER
SINSERT NAME ADD POINTER

*SET 1S VALUE
*SET SB VALUE

: INSERT ADD OF

;REPORT

RESULTS

CONDITION POINTER

sREPORT REMAINDER
sRESTORE

;60 CHECK

ERROR COUN! EXCEEDED

:BUMP ERROR COUNT
:STORE R1
;REPORT

OPERATION

;SET PARAM NUMBER
: INSERT NAME ADD POINTER
JSET IS VALUE
;SET

SB VALUE

; INSERT ADD OF CONDITION POINTER
;REPORT RESULTS
;REPORT

REMAINDER

;RESTORE R
;6O (HECK [F ERROR COUNI EXCEEDED

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=-79

19:23:55 PAGL

3-4
SEG

NNNO
O NN
S S WWWNWNNIAY
= e O

CrOLrOoONONDEIRTOIrONO
S

e
D e

01270C

000012

000413

016203
010337
113703
000402
113703
042703
Ci3704
042704
050403
032703
001442
032703

17%:

023422
000003
000001
003026
002746

177761
000004

000200

000002

.
000004

RS,=(SP)

;STORE

8lC
(Mp
BEQ

#177761,R3
¥4 ,R3
1%

¢AND CLEAR ALL BUT FUNCTION
sCHECK IF IT WAS GET STATUS
;YES = STATUS IS IN T.MP, SK]P

#10.

;WAIT

MOV
HgVB
8

MOvB

002746
001777

2%:

MOV
BI(C
BIS
Bl
BEQ
BIT
BNE
Bl
BNE
MoV

010000

1008:

BIC

PRINTB

FOR

STATUS

CONTROLLER READY

;ELSE SET NO DRIVE STATUS BIT

RLMP(R2),R3

;STORE

; IN MESSAGE WORD AND SKIP
STATUS FOR REPORT

R3,TEMP3
{§2P3*1.R3

:GET ERROR BITS

T.MP+1,R3

:GET ERROR BITS FROM MP REG

T.CS,R4
#1777 ,RG
R4 ,R3
#OPIERR,R3
115%
#HNFERR,R3
107%
PHCRCERR,R3
105%
#MOPERR ,R&

;GET ERROR BITS FROM (S REG
:CLEAR UNUSED BITS
:MAKE ONE WORD OF POSSIBLE ERRORS
JTEST IF OP] SET
:NO - SKIP
;TEST IF HDR NOT FOUND ERROR
JYES - SKIP
;TEST IF HDR CRC ERR
;YES - SKIP
;SET GP1 ALONE MESSAGE

#177442,R3

#FMI28,#MRSLT
R4 ,#MFRRS

;REPORT

;SKIP
;MDR CR(C MESSAGE

#HCRCERR,RS

JTEST

105%:

004000

107%:

BI1

IN PROPER POSITION

:CLEAR UNUSED BITS

#MRSLT,-(SP)
NEMT28,=-(SP)
#4,-(SP)
SP,RO
(SPNTB
#12,sP
120%
:gsgflc,flk

007604

READY

#BI1T9,R3

FMERRS,=(SP)

MOV
Mov
MOV
Mov
EM1
ADD
BR
Hgv

;ELSE DO GET

MOV
MOv

000012

;REPORT OPERATION
:SET PARAM NUMBER
: INSERT 1S VALUE
;CLEAR FOR STATUS STORAGE
;GET T.(S

#10.,R0
(@TVAV)
#CRDYMSK,RLCS(R2)
;TEST
10%
JYES - SKIP

1%:

002200

MOV
EMY
BIT
BNE

002755

13%:

PC,RPTOP
#3,(R1)+
#1,2(R1)
TEMP3
1.C5,R3

;STORE

#GETSTAT RLDA(RZ)
¥4 ,R3
RLORV,R3
R3,RLCS(R2)

MOV

177442

R&,=(SP)

MOv
MOV
8IS
MOV

10%:

MOV

000006

005405
011514
000004

R
R3

MOV

003026
003027

;TEST IF ERROR COUNTING INMIBITED
;YES - SKIP
;ELSE BUMP ERROR COUNT

;STORE
:STORE

WAITUS

000000

NOERCT
17%
dERRPOINT
R1,=(SP)
R3,-(SP)

9% :

010346

032703

MOV
Mov

JSR
MOV
MOv
CLR
MOV

004000

297

1518
BNE
INC

001000

010050

295
296

ERRG

MOv

i el

&SN WWRNINUNY
=
o oo scCconrn

000003
000004
002734
000000

el el il e

294

206

171076

010345
010446
010546
004737
012721
012761
005037
013703
042703
022703
001432
012762
012703
053703
010362
104027
032762
001003
012703

BGNMSG

003347

ard i

287

286

el e

il il

LaS2AY] ASIASLASIAS IS VI, NI S AN
[
81
V)[pNT ST V1 U] V), N

D e

278

277

276

il el il

D el

id o

V1,1, N1, N1, V1, VY, V] V], VY, V1 V1, V1, VY, UY. VY VY, ¥T, ¥

OCOOCOODOOOODOOOOOO0OOOOOO0DOOOOTOOOOOODODOOOOOODOOOD

105737
001002
005277
010146

ERROR

R4 ,-(SP)

WCRC WwiTW WDR NOT

END

0060

VT, ¥T, V1 VY, VY, VT . VY. VY. VY, ¥}
P
1V 1V ) LN U LN AN AN U N N N AN N N AN e NN
O ~N~N~N NOOOVNWNE
DD NNNNIR) —
oosrnrn OO
VSO0 NNO SN
w

~nN (A1, 91, ¥T, V1, VT, V1, VT, VT, V1

013746

12746
12746

19:23:55 PAGE

BNE

MOV

3-5

;YES = SK]P

#MHECRC,RG

JHNF

109%:

MOV

004000

115%:

007614

BR
BI1
BtQ

MOV

100%
#DCKERR,R3
118%

010000

B8R
811
BEQ

100%

118%:

007641

MOV

100000

120%:

MOV

3%:

BIT

(LR

BNE
181
cLc

ROR
BNE

002222
024210

6%:

024416
003026

’%:

EMT

002000

002746

002716
000200
000001
004346
003746

006171
011132

1871

PRINTB

002746

010361

JSR

MOV
MOv
Mov
Mov
MOv

000010
004000

010365

JSR
BR

BEQ

003026
007453
011200
000003

002716

Mov

15¢%:

811
BEQ
BIT
BNE

18%:

000012

ADD

MMDCRC,R4

#DLTERR,R3

120%

#MDLT RS

1009

MEADER NOT

AND HCR{

fOUND

MESSAGE

;SKIP
;TEST IF DATA CHECK
:NO - SKIP
;SET

;SKIP

MESSAGE

:TEST

;SKIP

MESSAGE

DATA

LATE

;TEST IF BIT 1S SET
:YES = SKIP 70 REPORT

(RG)+

;CLEAR

FOR

;ELSE

BUMP

TABLE

COUNT

POINTER

RS
3%
.
7%
RESTBL(RL) ,(R1)

;CLEAR CARRY
;SHIFT BIT POINTER TO NEXT
;LOOP IF NOT O
;ELSE REPORT REMAINDER
; INSERT NAME ADDRESS

JGET

PC,RPTRES

PC,RPTKENM

;REPORT

OPI

ERROR

RS,R3
6%

NOT

(HECK

DATA LATE

;:NO - SKIP
;SET

DATA

SET,

;SET BIT POINTER FOR TEST

BI1T

RESULTS

BIT

;REPORT REMAINDER

TEMP3
:TEST IF ANY NEW STATUS
15%
;NO - SKIP
WEMT17,#STAMES
, TEMP3
TEMP3,-(SP)
FSTAMES,-(SP)

NEMTI7,-(SP)
#3,-(SP)

SP.RO
CSPNTB

#10,SP
#DCKERR,T.CS

TEST

DATA (CHECK

#OPIERR,T.CS

;TEST

OP]

25%
25%

MORFCE

(Mp
BEa
(MP
BGT

MORECE ., #10.
20%

PRINTB
MOV
MOv
MOV
MOV
MOv
MOV
)"

sMESSAGE

#RI1T15,RS

CLR

MOv
MOv
MOV
MOv

SEQ 0061

109%

1882F,R4

007653

OMNON)
— =

o [* BV R oAV R ol o3 o o
Io oo SNNO

VI NI N1, SR N1 N

LV TV LV LV LV LV LV LV LV ]

VI,V V1,V

}2746

9-FEB-79

007625

AV AT AV AV AV RV LV LV LV ]

[l MRV TV IV IV AV VTV ]
—=OVWB
N VW

327

U1 V] N

SNV
V)
[« MV ¥

L1 V], 87 VT

NN
N NN

321

) ot cnd ol e

ol el e

QOO
NI NP —

AN NN LN N AN N NN N

306

001003
012704
000751
012704
000746
032703
0014C3
012704
000740
032703
001403
012704
000732
012705
005004
030503
001005
005724
0002641
006005
001372
000405
016411
004737
000766
004737
005737
001414

RV LV LV

305

dddfldfl_‘—l—.—.-—l—.—.—.—‘—‘-—‘—‘—.—.—.—-‘—-—‘—l-‘—.d—d—.—.—-.—l-‘—-.—._.—.—.—‘-fl_-.—‘—.—l—‘-b—.—‘—‘dddddd -

303
304

AVE VRN

302

(UL

299
300
301

MACRO v03.01

ROUTINES

eolelelelelololelelalolololololalololololalelolelolololololelolololelolololalelolololeololololololeole
e e o oo Lo o)

ASSEMBLY

#128. ,R1
#1,R3
#OBUFF RS
#]1BUFF R4
(RS), (R&)
19%

:NO - SKIP

JYES - SKIP
;CLEAR

ERROR

SET

COMPARE

ERROR

COUNT

:SET COMPARE LENGTH
;SET WORD COUNT
;SET G00D WORD POINTER
LSET YEST WORD POINTER
:CHECK WORD
;600D - SKIP

;TEST IF COMPARE LIM!T REACHED
;YES - SKIP

#FEMT1S,#MUORD,R3,#RESED,
(R4) ,#RESEL, (RS)

(RS),=(5P)

#RESEL,-(SP)

(R&) ,=(SP)

#RESES,~-(SP)
R3,-(SP)
#MWORD ,=(SP)
#FMT1Y,«(SP)

D el ed oD

012746
010600
104014
062706

D
D
i
D i
i
e e

il o

344
345
346
347
348
349
350

005237
022524
0052G3
005301
001343
005737

342
303

MACRO v03.01

ROUTINES

OCOOOOOOOOOOOCOOOOOOODOOO OOO0OOoOOO

ASSEMBLY

19:23:55 PAGE

000007

0000¢C
002716

20%:

002716

25%:

19%:

D el o
e o
D

PO
=PI
N
— AP s b it g O

N0 NN NN NN

COOO0OOO0O
[
R
R = X
OrRwWrRN
SO

1, ¥
o [V IV IRV VIV IV Y N NPTV
~N oo
srrr00NOCEHO

18%

2$S
#128. ,R1

:NO - SK]¥
;SET COMPARE LENGTH

MORECE

PRINTB
MOV

#FM127,#T(CERR,MORECE ,#RESEG,RT
R1,=-(5P)

#5,-(SP)

MOV
MOV

EmMT

27%:

ENDMSG

L10005:

170226

BGNMSG

023422
000003
00773,
002762

014750

ENDMSG

L10006:

170156

BGNMSG

002754
000007

SP,RO

(SPJ+,R3Y
(SP)+
K1
PC,CKERLM

;60 CHECK

EMT

C$MSG

(SP)+ R4

3,1

ERROR COUNT EXCEEDED

INC
MOV

aERRPOINT
R1,=-(SP)

;BUMP ERROR COUNT
:STORE R1

JSR

PC,CKERLM

(SP)+,R1

;RESTORE

EMT

(SMSG

ERRS

;REPORT OPERATION
PC,RPTOP
#3,(R1)+
:SET PARAM NUMBER
¥MDRVST,(R1)+
; INSERT NAME ADD POINTER
T.STAT,(R1)+
. INSERT IS VALUE
R3,(R1) ;INSERT SB VALUE
;REPORT RESULTS
PC,.RPTRES
PC,RPTREM
;REPORT REMAINDER

INC

oERRPOINT

MOV

R3,-(5P)

MoV
MOV
(LC

ERRORS

($PN1B

MOV
MOV
JSR

ERR7Y

(OMPARE

NEMT27,-(SP)

RS,

MOV
3¢

ANY

;RESTORE

MOV

JSR
MOV

01013%

#14,SP
(SP)+,RS

MOV

023422
000003

;TEST

ADD
MOV

JSR
MOV
MOV
MOV
MOV
JSR
JSR
MOV

024210
02441¢

:BUMP ERROR COUNTER

1971

MOV

000014

SFEQ 0062

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

000005

) sl
i

64
66

BNE

(RS)+,(R4L)
RS
R1

#RESEG,-(SP)
MORECE ,-(SP)
#1CERR,~-(SP)

104023

005277
010146

(mp
INC
DEC

MOV
MOV
MOV

104023

005277
010146
004737
012721
012721
013721
010311
004737
004737
012601
004737

#20,SP
MCRECE

010377
002716
007540

——

)

vuh

)

-t

) ——l

oyl —

OOOOOO0OOOOOOOOOO

PORINLNDRL
NN RPN NN N NN
NNNNNNNNNNNN
WMWPRORNIMNUNINININ
OOONNSNSNSNSNN

2704

ADD
INC

SP,RO
{SPNTB

000200

014750

OO0V

356

#7,-(SP)

BEQ
MOV

011475

014

3-6

MOV

Moy
EMl

351

9-FEB=79

R1,-(SP)

PC,RPTOP
#3,(R1)¢

FMCYLOC,(R1)

HDWRD1,(R1)
"7 ,R3

.60 CHECK

ERROR COUNT EXCEEDED

:BUMP ERROR (OUNT
; STORE RI

;STORE R3
;REPORT OPERATION
;SET PARAM NUMBER

:INSERT NAME ADD POINTER
;GET

HEADER WORD

;SET SHIFT COUNT

ASSEMBLY

MACRO v03.01

ROUTINES

9-FEB-79 19:23:55 PAGE

3-7

13014

13034
13040
13042
13044
13050
13050
13050

NN
O l=l=1=

014750

170062

014750

s e
h
e
b ek e
ah oD e el nd

170006

023422

000014

ENDMSG

BGNMSG

002716

010365

010361

00617 1
00540 5

0111? 1
000010

MOV
MoV
JSR

EMT

ERR9
INC

MOv
JSR
Mov
MOV
MCv
Mov

L10010:

010630
000005

600

BGNMSG

024210
024416

002735
006033
002730
00602¢

d e

236

ENDMSG

02342¢
0056003

106023

010146
005737
001051
005277
004737

JSR

L10007:

ek =

= QOO0 NNOO VNN E D IAWWNININN — b et st s i OO~ NN
OoOoONNOO (e
Yol Jol Jaole Yo XSl 30 Yol Yo J0 ol ¥
Ne Yo N VY, H,rOO

614

005277
010146
004737
012721
010321
010421
010521
004737
004737
012601
004737

it i e

409
410
411
612
413

PRORNONINONY
——

407

rornoN
[
1,91,
[aN Yo N V)

——

13052
13056
13060
13064

ROR
DEC
BNE
151
Mov
JSK

003004
024210
024416

104023

—

OO0
OOOOOQOTDOO0OOOOO0OOOOOO0OOOO0O0OO0O0OOOOOOOOOOOOC
—h d e el e
d el h e oy D o
e e e ol d ol e
i e’ el el
D e B e e i
i
D
D e
D e o o

13052

006011
005303
001374
005721
01371
004737
0047537
012603
012601
004737

QOMNMNMNNVON
— N —
NN
TN N
N S
Fall o3 o oF »F aF o
oococoocooo

i
e
—

3016
3020
3022
3024
N

OCOOOOOOOOOOO

SEQ 0063
(R1)

;ALIGN CHAR FOR PRINTING

gé

(R1)+
NEWCYL, (RT)
PC,RPIRES
PC,RPTREM

;BUMP PARAM POINTER
; INSERT SB VALUE
;REPORT RESULTS
;REPORT REMAINDER

(SP)+ Rl
PC,CKERLM

;RESTORE R
;G0 CHECK ]F

(SP)+,R3

AS 1S VALUE

;RESTORE R3

ERROR

COUNT

($MSG
dERRPOINT
R1,-(SP)
PC,RPTOP

R4, (R1)+

JSR
JSR
MOv
JSR

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

sREPORT RESULTS
;REPORT REMAINDER
;RESTORE R1
;6O CHECK IF ERROR

EMT

CEMSG

Mov
1S1

R1,-(SP)
: STORE R1
MORECE
;TEST IF 2ND BAD LINE
3%
;YES - SKIP
dERRPOINT
;BUMP ERROR COUNT
PC,RPTOP
.REPORT OPERATION
#Eg;?.IBASADD,RLBAS,#DRVNAM,<B,RLDRV*1>

BNE
INC
JSR

PRINTB
CLR

B1SB

MoV

MOV
MOV

MOv
MOV
MOV

EMT

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

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

:BUMP ERROR COUNT
: STORE R
:REPORT OPERATION

:SET PARAM NUMBER
: INSERT NAME ADD POINTER
¢SET 1S VALUE

ERR10

EXCEEDED

RS, (R1)¢+

;SET SB VALUE

LOUNT

EXCtEDED

;REPORT

RLDRV+1,(SP)

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

#EMTS,=-(SP)

#5,-(SP)

SP,RO

C$PNTB

#14,5P
FFEMTI4L,#MRSLT
,#MWORD ,R3,#RESES, (RG) ,#RESEL, (RS)

(RS),=(5P)

#RESEL,-(SP)

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

YMWORD
, = (SP)
#MRSLTY ,=(SP)

#FEMT14,=-(SP)
#10,-(SP)

SP,RO

ASSEMBLY

ROUTINES

013240
0132642

415 013246
616 013250
013250

013252
013256
013260
013264
013266
013272

421

000420
_
011546

012746
011446
012746
010346
012746
012746

013276
013302

012746
010600

013306

062706

013304
617
418
419
420

104014
062706

013312
013316
013320
013324

013324
013324

013326

422
423
624 013326
425 013326
013326
426 013330
427 013332
428 013334
429 013336
30 013340
431 013342
632 013344
013344
4;3 013344

104014

005237
012601
004737

104023

000006
174400
000160
000240
000001
000000
000001

013344

437 013346
438
436
440

9-FEB=-79

19:23:55 PAGE

EMT
ADD

000022
3%:

010305

006171
011133

000207

000020
002716
01475C

ENDMSG

L10011:
ENDMOD

BGNMOD
BGNHW

ENDHW

CSPNTB
#22,5P

4%
#FMT15,/MWORD,R3,#RESE3,
(RG) ,#RESEL,(RS)
(RS),~(SP)

MoV
MOV

#7,-(SP)
SP,RO

EMm1

6%:

ADD

449 013356
450 013360
451 013362

013362

6452 013362

;REPORT

DATA

#RESEL,-(SP)
(R4), -(SP)
#RESE3,-(SP)
R3,-(SP)
#MWORD ,-(SP)
NEMTI15,-(SP)

CSPNTB

#20,SP

INC
MOV
JSR

MORECE
(SP)+,R1
PC,CKERLM

EMT

CMSG

: INC COMPARE ERROR COUNT
;RESTORE R1
;60 CHECK 1F ERROR COUNT EXCEEDED

EVEN
HPTCODE

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

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

;CSR BASE ADDRESS DEFAUL?
sVECTOR DEFAULT
;PRIORITY DEFAULT
;TYPE OF DRIVE
;DRIVE NUMBER DEFAULT
;RL1Y COMTROLLER

L10012:

000006

000000

BGNMOD
BGNSW

SPTCODE

MISWIW:

.WORD

LWORD

L10013-L%SW/2

441

442
443
L
445
446 013350
467 013352
448 013354

SEQ 0064

BR
PRINTB
MOV

Mov
MoV
MoV
MOV
MOV
MoV

010361

3-8

tNDMOD

435 013344
43¢ 013%44

MACRO v03.01

;BIT 0 = USE ALL CYLINDERS
:BIT 1 = USE ALL SECTORS
;BIT 2 = EXECUTE DRIVE SELECT TEST
;B1T 3 = EXECUTE HEAD ALJIGNMENT
;BIT

000000
000377
000000
000024
000012

LOLIMW:
HILIMW:
HEADW:
ERLIMW:
DCLIMW:
ENDSW

L10013:
ENDMOD

.WORD
.WORD
.WORD
.WORD
.WORD

O
255.
O
20.
10.

;BIT
;BIT
;BIT
;B1T

12
13
146
15

= DROP DRIVE

=
=
=
=

NO RESPUNSE

HEAD SELECT SUPPLIED FLAG
HILIMIT SPECIFIED FLAG
LO LIMIT SPECIFIED FLAG
DO MANUAL INTERVENTION

;ERROR LIM]TY
; COMPARE ERROR LIMIT

—

483
L84
485
486

BGNMOD
BOGNINIT

000340

103403

100014,

005037

002704

012700

000034

103005

013737
000137

002012
014102

012700

000040

104050

1%:

——h ——

Y~
—

] —
]
)

N LS N

)
]

)
)
)
)
) o] cmf

SEQ 0065

#340
#340,R0
($SPR]

:CHECK

003352
4%:

READEF
MOV

#EF .PWR
NEF .PWR,RO

MOV
JMP
READEF
MOv

EMT

ON START
002776

003140

1%:

INTERVENTION ALLOWED

:NO, GO CHECK NEW PASS

LSUNIT,PWRFLG
PWCON
#EF
. START
#EF .START,RO

CSREFG

INITIALIZE

PASS COUNT,

RSTRT:

MANUAL

:POWER FAILURE

;SET POWER FAIL FLAG
;GO SERVICE POWER FAIL
sCHECK IF START

BNCOMPLETE
RESTART
RESTART
BC(

002012
003342
003142
000120

EMT
CSMANI
BCOMPLETE
1%
JYES - SKIP
1%
BCS
BIC
FMITEST!DRSELT!HDALIGN,MISWIW ;CLEAR ALL MANUAL
. INTERVENTION FLAGS
CLR
SSINDX
:CLEAR SUBROUTINE STACK INDEX

EMT
CSREFG
S?EOHPLEzg
4%

103034

013737

SETPR]
MOV

EMT

013346

3-3

INITCODE

MANUAL

042737

104050

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

~no

—

ENDMOD

W
H
no

OOO0OOOOOOO

.WORD
.WORD
.WORD

1064051

WMANNIN
= e O
SrNOOONO NS

479
4«80
481
482

.WORD
.WORD
.WORD

477
478

000021
024702
025114
0253¢c4
025534
025760
026160
026406
026716
027214
027512
031350
032060
032274
033020
034130
035122
03e336

012700
104041

OO0 OO0OOOOOOO

476

et o=l

673
474
675

472

408
469
470
&7

cnd

467

) and

466

—

465

VRV IV IV LV LV 1V 1V ]
(W RV TV SV LV LV LV LV ]

464

OO0 OOOOO

461
462
463

il il

el el

D el

)

70
72
74

BGNMOD
DSPCODE
DISPATCH
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

64
66

MACRO v03.01 9-FEB-79 19:23:55 PAGE

— D d d et e et et ) OO
NO VSN
—O

LM AN AN AN AN AN N

62
62
62

659

COOOOOOOOOOCOOOOOOOOOO

653
L5¢4

ROUTINES

—

ASSEMBLY

1O START

AND ERROR

MOV
CLR
MOv

LSUNIT ,DRVCNT
PASNUM
#ERRCNT
RO

gt?

é?O)‘

Mov
BNE

MOV

;NO - SKIP

COUNT.

FJRST DRIVE, (_EAR

INTERNAL

;SET UP UNIT COUNT
;CLEAR FASS NUMBER

r64, R

;GEY A (OUNT

;LOOP TIcL

;CLEAR A ERROR COUNTER STORAGE

BERR(NT=2 ERRPOINT

;INIT

ALL CLEARED

ERROR POINTER

AREA

ASSEMBLY

490
N
69

493
694

~N -~~~

QOO

1273
1273

3273

las i~ 1oVl

L87 013542
<88 013550
489

177777
177777

04UUGT

001002
005037
600432

013350

012700

000037

104050

695

9-FEB-79 19:23:55 PAGE

003344
002712
013346

LAB:

5¢:

RESTART:

(ONTINUE

012700
104050

498

013612

500 013614
013614
013620
501 13622
013622

013624
013624
013630
013632
013636
013644
01365¢
013660

104050

REATEF #EF .RESTART

;CHELK

EMT
(SREFG
BCOMPLE TE
RSTRT
BCS

:NO - SKIP

#EF .RESTART
RO

RSTRT

WEF .CONTINUE

MOV

EMT

NXTPAS:

i77777

003344
002776
003344
002730

003140

002776
003344

PASNEW:

SETDON:

003140

106042

010001

003352
’$:

002200
006001

002200

000776
000777
001000

002210
002204
002212
002214
002216

177600
177600

RESIART

CONTINUE

CSREFG

WEF .NEW

NEF NEW,RO

CSREFG

)
LAST

sCHECK

UNDER

TEST.

UNITS

STARTING NEW PASS

PASNEW

B8CS

PASNEW

1S7

DRVCNT

sTEST

INC

PASNUM

;ELSE

BUMP PASS

mov

#-1,PSETNM

;SET

PARAM SELECT

INC
DEC
ADD
MOV
MOV
GPHARD
EMT
MOV

PSETNM
DRVCNT
#2 ,ERRPOINT
PSETNM,RO
#RLBAS,R2
RO,R1
C$GPHRD
RO,R1

NEXT SET OF PARAMETERS
:DOWN COUNT DRIVE TOTAL
;UPDATE THE ERROR POINTER
;SET UP 10 GET PARAMETERS

187

PWRFLG

;RECENT

BNE

MOV
MOV

SETDON

BEQ
DEC
BR
MOV
MOV
187
MOV
MOV

(mpP

:NO - SKIP

NXTPAS
:NO
PWRFLG
NXTPAS
(R1)+,(R2:+
(R1)+,(R2s+
(R1)¢
(R1)+,1.DRIVE
(R1)+,(R2)+

#1,7.0RIVE

BEQ

65%

MOV

#177600,CAMSK

Moy
MOV
MOV
MOV

ALL

CHECKED

COUNT

NERRCNT=2,ERRPOINT ;INIT ERROR POINTER
LSUNIT,DRVCNT
:GET ALL DRIVES

BCOMPLETE
7%
B(S

003352

TEST

#EF . CONTINUE
RO

BCOMPLETE

003342
003140
002012

COOOOOOOOCOOO o
— el e e st DY N it e ()
b 2
[aV1aW] SRV W) G 1 U] \WEV, ] ,¥],V] o
NN NN NS N
et Nty
WANAMAMANTD
LN NN ND N
NNNNNO
NN —OOO

b
——sd
=
ol
T
i
D
)
il
sl
D
il
i
el —
-l
——
)
)
s

Lk
R
A
IV AV RV IV T v TV IV IV TV IV W
RV RV RV RV ) V]
QO NSNSNSNSNNNNNNNNNNNNNNNNN ~
ONNOWNWVE
B NWNWNININ —
e O OO
S O00OMNSNSNOSENOONNOIFNNOO oo

—

;TEST IF LO LIMIT SET
;YES - SK]P
;ELSE CLEAR 1O LIMIT

READEF

000035

000002
OO0V OOODODOOOOOOOOOOOOOO

FLOCYL ,MISWIW
5%
LOL 1My
St TDON

BCOMPLETE
PWCON
BCS
PWCON
ON CONTINUE PICK UP UNIT

002776

005737
001741
005337

BIT
BNE
(LR
BR

EMT

103403

103406

:SET PARAM SELECT 10O INITIAL
;PRESET MEAD ALIGN DONE FLAG

MoV

103533

012700

SEQ 0066

#-1,PSETNM
#-1,HADONE

READEF

000C 36

3-10

mov
mov

MoV

103743

696
W97

699

RMACRO v03.01

ROUTINES

#510. ,NXTHL
#5171, HLNTW
#512.,6BND

#177600,D1RMSK

;SKIP IF

;ACCOUNT

INITIAL

GOOD PARAM
POWER

FAJLURE

FOR DRIVE

:STORE PARAMETERS (SR
:
VECTOR
;:BUMP PAST PRINRITY

VALUE

ASSEMBLY

HA(R? v03.01

ROUTINES

9-FEB-79

19:23:55 PAGE

3-11

O = ma
OPRORY
SN

000377

000400
077600
077600
077600
010376
1,7400

002204
002212
002214
002216
002220
002210
002200

65%:

020000

013346

PW(ON:

00220¢

013352

NI
NSNISNSNSNSNSN

NN
WD~

OO0

002220
002206

WO N
NN

WN=A0
O NO~N

£H B

[= oo

000340
014712
002732
000003

012700
106041

549

1%:

014176
014202
014202
014206
014212
014216
014222
014224
014230
014234
0146240
014242
014246
014252
014256
014264
014266
014274
014300
014304
14310

0035350

000020

;
.
013346

;CHECK

010562

000000

MOV

MOV
MoV
MOV
MOV
MoV

HLAMTW

#256.,GBND
#77600, CAMSK
#77600,D1RMSK
#77600,HDCYL
#2564
. NXTHL

BIT

FHICYL

MOV

HLMTW, HILIMW

mMov

#INTHLR,=(SP)

BNE

SETVEC
MoV

MISWIW

RLVEC,#INTHLR,#340
#340,-(SP)

JSET

UP VECIOR

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

CSSVEC
#10,5P
#0
#0,R0

($SPR]

RLBAS,K?

:SET

PRIORITY

;SET

BASE

ADDRESS POINTER

CHECK ]F DOING AUTO SIZE AND DROP DRIVE [f
ERROR SETS ON GET STATUS.
1871
PASNUM
sTEST IF PASS O
BNE
22%
sNO - SK]P
BIT

FAUTOSZ MISWIW

TEST

(LR

TRPFLG

;TRAP OCCURANCE

NuUT READY AND

DOING AUTO SIZE

BEQ
22%
:NO - SKIP
IF UNIBUS ADDRESS IS THERE BEFORE WE

CHECK DRIVE READY

SETVEC
MOV

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

MOV

ERRVEC,-(SP)

TST

TRPFLG

; TRAP OCCUR??

MOV

RLDRV,RS

;GET DRIVE NUMBER

MOV
817
BNE
MOV

RS,RLCS(R2)
;LOAD IN DRIVE NUMBER
#DRDYMSK ,RLCS(R?) ;CHECK IF DRIVE 1S READY
20%
;YES = GO DO TEST
#GETSTAT, RLDA(R?) ;ELSE INSERT GET STATUS

BNE

BIS

000004

#255.

#177400,CLRBYT

MOV
EMT
ADD
1S1

000000

#177000,CLRBYT

MOV

000010
200000
003350

000003
000004
000200

PWCON

MOV

000340
014704
00313¢
000003

002734
000200
000000
000001

EMT
ADD
SETPR]
MoV
EMl

002730

003342

#177600,HDCYL

MOV
MOV

000000

014160
014164
014160
014174

MOV

mMov

000010

548

550
551
552
553
554
595
556
557
558
559
Y
561

WRORY
~ NN

OOO0OO

— O W

014030
014036
014064
014052

177600
177000

OO0O0O0O0OOO

014012
014020
014026

b
i e e i
PRONURONOMNOMNOND
NSNSNSNSNSNN

SEQ 0067

BIS
BIC

MOV
WALTMS

:SET

TRAP VECTOR

#TRPHAN,-(SP)

#3,-(SP)
CSSVEC
#10,5P
RLCS(RZ)

#CRDYMSK,RS

sACCESS BUS

sYES, DON'T

INVESTIGATE FURTHER

;INSERT CONT READY

#6 RS

;LOAD RS WITH GET STATUS "UNCTION

RS,RLCS(R?)
#4

;LOAD (S KEG
WALT & MS

#(RDYMSK,RS

;CLEAR CONTROLLER READY

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79 19:23:55 PAGE

000004

002000

MOV
EMT

000000

BI1
5%:

003132

PRINTF
Mov

10%:

002735
006033
002730
006022
010630
000095

581

013700

003344

013700

584 014460
595

104036

003132

22%:
;CHECK

014460
0146464

005737
001434

003352

014466

013705
052705
010562
012701
0327¢2
001020

002734
000200
000000
000074
000001

012700

000012

014472
014476
014502
014500
609 014514

606

60?7 014516

01451e¢
014522
N8 014524
60y 0146526

104026

005301
0013%7

20%:

9%:

ERRVEC

OP1

SKIP

SET

ERRVEC,RO
CSCVEC

NEMT24 ,SORVNAVY
FORVNAV,=(SP)

SP,RO
CSPNTF

RLDRV¢1,(SP)

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

#BASADD ,-(SP)

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

SP,RO
CEPNTF

#14,5P

ADD
PRINTF
MOv
MOov
MOV

FEMT3
NEMT3,-(SP)
#1,-(SP)

ADD

¥6,SP

DODU
MOV
EMT
DOCLN
Ml
CLRVEC

PSETNM
PSETNM,
RO
($D0DU

MOV

EMT

)

SP,RO

COPNTF
.DROP DRIVE

($DCLN
ERRVEC

ERRVEC,RO
CSCVEC

POWER FAILURE WAIT

IS NELDED

181
BtQ

PWRFLG

MOV

RLDRV,RS
:DRIVE SELECT
#CRDYMSK ,RS
JSET (CRDY
RS,RLCS(RZ)
;SELECT DRIVE
#60. ,R1
sSIXTY SECOND TIMER
#DRDYMSK ,RLCS(R2)
JDRIVE UP YET

B1S

000000

;NO -

#6,5P
ltg;?,#BASADD,RLBAS,IDRVNAH.<B,RLDRV’l>

Eml

104044

583

597
598
599
600
601
602
603
604

000004

104053

582

596

062706

(SWiM
sgzlERR,RLCS(RZ):IEST

ADD

PRINTF
(LR
B1S8
MOv
MOv

EMT

010614
00000!

8 RO

FEMT24,-(SP)
#2,-(SP)

MOV
MCv
MOv
Mov

000014

SEQ 0068

MOv
MOv
MOV

EMT

000006

580

MOV

EMT

000040
011434
000002

579

BtQ
CLRVEC

3-12

MOv
MOV

Bl1
BNE

WAL TMS

MOv

EMT
DEC(
BNE

SNEEDED???

:NO,

SKIP

;YES START

210,

;WAIT

#10.,R0

(SWim

R1
9%

JSIXTY
:NO

TEST

A SECOND
GONE

MACRO v03.01

612

—

610 074530
014530
0146534
014540
016544
014546
014550
611 014554

ROUTINES

QOO

ASSEMBLY

2766

12746

010600

106017

06270C%
000701

9-FEB=-79 19:23:55 PAGE
PRINTE

006057
011634
000002

613 014556

8%:

615 014556
014556
014556
616 014560
617
618 014560
619 014560
620
621 014560
014560
014564
G14570
014574
014600
014602
622
014606
014606
014612
624 014614
625 014622
626 014624
627 014632
628 014640
629 0146642
0is66?
014646
630 014650
014650
014654
631 014656
63¢ 014662
033 014664
634 014670
0146/0

ENDINIT

614

014674
014676
014676
014676

636
637 014700
638 014700
639 014702
014702
014702
640

L1001¢:

104011

ENDMOD
BGNMOD
BOGNCLN

000200

000000

00273¢
000001

000000
000000

000003

013700

002732

104026

104036
005737
001402
005337

015700

104036

106012

000240

106055

2%:

3%:
5% :

003132

’%:

ENDCLN

L100i5:

BONDU
ENDDU

SP,RO

ADD
4R

¥6,SP
10%

teml

(SIN]T

L10016:

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

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

SETPR]
MOV

#7
.
¥7,R0

817
BEQ
BIS
BI1
BNE
WAITMS
MOV
EMT
CLRVEC
MOV

#CRDYMSK ,RLCS(RZ)
;VTEST 1F CONTROLLER READY
1%
sNO LOOP UNTIL READY
RLORV,RLCS(R?)
;SET DRIVE NUMBER
#DROYMSK ,RLCS(R?)
JTEST IF DRIVE BUSY
5%
NO - SKIP
#3
:WALT 300 MS
#3,R0
(SWIM
RLVEC
;RELEASE VEC
RLVEC,RO

181

PWRFLG

£Emi

EMmy

003352

CSPNTE

MOV

000007

012700

£Em

v MOV
MOV
EMT
ADD

000010

001003

#NOPWR,-(SP)
WEMT24,-(SP)
#2,-(SP)

SETVEC
MOV

003132
000003

SEMT24,4NOPWR

CLNCODE

000340

0164704

SEa 0069

MOV
MOV
MoV
MoV

000006

3-13

:SET

($SPR]

CSCVEC

;PWR FALL

BEQ
DEC

7%
PWRFLG

Mov

ERRVEC,KO

(SCLEAN

CLRVEC

EMT

EPRRVEC

CSCVEC

NOP

gEmt

($DU

SE?

* INO

PRORITY

10 7

ASSEMBLY

MACRO v03.01

ROUTINES

9-FEB-79

19:23:55.PAGE

3-14

SEa 0070

664 014764

014764
014770
014774
015000
01500«
015006
01501¢C
45 015014

005237
000002

COoOPOO
~

666

647 014712
668
649 014712
014712
650 014714
651 014720
652 014726
653 014730
654 014734
655 C14742
656 014746
014746
014746
657
658
659
660 614750
661 014756
662 014760
014760
663 014762
014762

ENDMOD
BGNMOD

— el i e ek b
WD
— Moo
S
NN
O
O NN
N N INNY
PO NNNINN
—

641 014704
642 014704
6463
664 014706
6465 014710

oth

INC
RTI

BGNSRV

INTHLR
INTERRUPT HANDLER.

027737
002453

002746
002750
002752
002754
177777
002730

EM1

MOv
MOv
MOV
MOV
MOV
MOv

002710

ABORTS WAIT

(SABRT

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

;STORE

TIMER AND STORES ALt
RL

RL11

REGS

REGISTERS

;SET DONE FLAG
;RESTORE R2

RT1

166164

013356

(KERLM:

ERROR LIMIT CHECKING ROUTINE
DROPS DRIVE |F ERROR LIMIT EXCEEDED
CMp
aERRPOINT ,ERL [ MW
STEST

BLT

INLOOP

:NO - SKIP

;CMECK IF

ERROR LIMIT

IN ERROR {OOP

(SINLP
EMT
BCOMPLETE
1%
;YES - SKIP
6CS
1%
PRINTF WFMT25 ERLIMw, #MEXERS

104020
103451

012746
013746
012746
012746
010600

Mov
MOV

062706

002735
006033
002730
006022
010630
000005
000014

010614

000004

003344

#MEXERS,-(SP)
ERLIMW,-(SP)

MOv
Mov

FEMT25,-(SP)
#3,-(SP)

EMT

CSPNTF

Mov

104017

005046

TRPFLG

ABORTWAIT

000001

667

TRPHAN:

000002

153716

660

003350

6GLBSUB

SP,RO

ADD

#10,5P

MOV
MOV
MOv

#DRVNAM ,-(SP)
RLBAS,-(5P)
#BASADD,-(SP)

PRINTF #FMT5,#BASADD ,RLEBAS,#DRVNAM, <B,RLDRV+1>
CLR
=(SP)
RLDRV+1,(SP)
8158

MOV
MOV
MOV

EMT

#EMTS,-(SP)
#5,-(SP;
SP,RO

CSPNTF

ADD

#14,SP

MOV
MOV

#1,-.SP)
SP,RO

PRINTF
MOV

Emt

#FtM13
PEMTZ,
- (SP)

CIPNTF

ADD

6 ,5P

MOV

PSETNM,RD

DODU

£Em

DOCLN

PSETNM

($D0DU

:DROP DRIVvE
G0

Y0 CLEAN UP

EXCEEDED

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB=-79

19:23:55 PAGE

3-15

SEQ 0071

015106

104044

ggg 015106

000207

671
672 015110

016237

673 015116

674
675
67?
67
678
679
680
681
682
683
684
685
686

016237
016237
0060207

015142
015144
015150
015156
015160
015164
015170
015172

011646
005066
0327¢2
001420
004737
005737
001433
012766

015206
015210
015216
015220
015220
015224
015226
015234
015236
015242
015250

001403
012766
000207

687 015200

688
689
690
691
692
693
696
695
696

016237

015124
015132
015140

032737

012700
104026
032762
001006
004737
012766
000762

1%:
000000

002746

000004
000006

002752
002754

000002

000002
000200

002750

000000

015110
002710
006177

G0O0002

006216

000002

002000

002746

000003
000200

000000

015110
006271

000002

:
WAIT
WAITIN: MOV
(LR
BIT
BEQ
JSR
191
BEQ
1$%:
MOV

BIT

2%:
L%:

L1 ¥

699 015260

004737

015110

5%:

;gl 015272

000751

012766

006236

005037
105037
005037

002706
0033%«7
00271¢

015812
015%16
019324
015326
015382
015340
015342
015%6

013746
012737
000412
013746
012737
000404
013746
005037

003030
000013

719 015935

013703

002704

70%
704 01527«
705 015300
706 015304

;8; 015310

709

710
711
712
718
714
715
716
717

718 015852

7¢0 015360
721 015362

722 015870

000297

010%46
005723
016663

162763

000002

’,

TSTINY:

003030
00000%

0030%0
003030

003030
003030

00000«

000006

GSTATR:
GSTAT{:
GSTAT:

002306

;GET BUS ADDRESS REG

;GET DISK ADDRESS
;GET MyULTI!=-PURPOSE REG
;RETURN

FOR CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUTINE
(SP),=(SP)
:MAKE ROOM FOR ERROR POINTER
2(SP)
;CLEAR FOR POINTER
#CRDYMSK ,RLCSR(R?)
;TEST 1F CONTROLLER READY
4%
:NO = SKIP T0 WAIT
PC,READRL
JREAD ALL RL REGS
DONE
;TEST IF INTERRUPT OCCURRED
5%
sNO = GO SET NO INTERRUPT ERR FLAG
FMTOSLOW,2(SP)
;ELSE SET TO SLOW FRROR POINTER

#OP1ERR,T.(CS

STEST IF OP] SET

2%
;NO - SKIP
#MDRRES,2(SP)
;SET MESSAGE FOR
PC
:RETURN
@3
JWAIT 300 MS FOR
#3,R0
(Swim
#CRDYMSK,RLCS(RR)
:TEST IF
s
;YES - SK]IP
PC,READRL
:READ RL REGS
#MCONHNG,2(SP)
;SET MESSAGE FOR
2%
:SK1P

BNE

JYES = SKIP 10O SET

FMNOINT ,2(SP)

SELSE

191

DONE

JSR

PC,READRL

MOV

OPERATION AND TEST
(LR
(LRB
(LR

OPFLAG
NOERC(T
MORECE

;ELSE CHECK 1F

;READ RL REGS
SET

;60 TO RETURN

NO DRIVE

RESPONSF

TIMEQUT

READY NOW SET
CONTROLLER HUNG

INTERRUPT OCCURRED
10 SLOW

INTERRUPT

FLAG

INITIALIZE ROUTINE

:CLEAR OPERATION FLAGS
SRESET INMIBIT ERROK COUNTING
;RESET MORE COMPARE ERRORS

GET STATUS AND GEY STATUS WIlTH RESET ROUTINE

MOy
MoV
8R
MOV
mov
BR
MOy
(LR

TEMP4 ,=(5P)
:STORE
#GETSTAT'DRSET,TEMPS
GSTATG
TEMPL ,~(SP)
:STORE

TEMPG

:STORE TEMPS
sSET FOR SAVE

Moy

SSINDX,R}Y

:GEY SUBROUTINE INDEX

GSTATG: MOV
002300

RLDA(R2),T.DA
RLMP(R2),T.MP
PC

REGISTERS
;GET CS REG

BEQ
MOV
RTS
WALTMS
MOV
EMY
B
BNE
JSR
MOV
BR

RTS

RLBA(R2),T.BA

MOV
MoV
RTS

002710

700 015264

mMov

005737
001345

C$DCLN

RTS

:
READ AND STORE ALL RLI!
READRL: MOV
RLCSR(R2),T1.CS

697 015252
698 015256

EMml

191
MOV

SuB

FOETSTAT,TEMPL
GSTATG
TEMPL, = (SP)

RY,=(SP)

:SET

TEMP4
;SET FOR RESE?

TEMP4
FOR NO RESE!

:STORE R3S

AND 7, REGS

(RY) e
;BUMP 1T FOR NEXT ENTRY
G(SP),SUBSTK(RY) INSERT THMIS CALL

846,5UBSTHLRY)

SADJUST 1T 10 CALLING LOCATICON

ASSEMBLY

ROUTINES

72%
724
725
726
727
722
729
730
731

C15376
015402
015404
015406
015414
015422
015424
015432
015434

732
733
736
735
736
737
738
739

015442
015446
015452
015454
015462
015464
015472
015474

740
761

762
7643
7644
745
7646
7647

748
749
750
751

7¢2

753
754
755
756

757
758
759
760
761
762
763

764
765
766
767
768
769

MACRO v03.01

9-FEB=-79 i19:23:55 PAGE

002704

01543
015440

MOV

000002
000010

002729
003030

040000

000000

MoV

MoV
BI
137
B

000062
015342

49%:
50%:

000001

002746

000020

002754

1464000

002754

R3,SSINDX

RO,=(SP)

SEQ 0077

11 BACK
:STORE RO
;STORE

;STORE R1
;SET FOR NO ERROR RETURN
#2 ,ERRSW!
7025E1.1£npa
;TEST IF DRIVE RESET
i
;NO - SK]P
#DRVERR ,RL(S(R2) sTEST IF DRIVE ERROR SET
R1,=(SP)

BEOQ

49%

sND =

MOV
Eml
MoV
iin

#3,R0
(SWim
#50. ,R1
PC,GSTAT

;SET WAIT FOR 5 SEC
;GET DRIVE STATUS

WAlIMS

000003

3-16

BIT
BNE
BIT
BNE
BI1

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

;WAIT

SKIP

FOR

300 MS FOR DRIVE

;TEST IF DRIVE READY
:YES = GO DO CLEAR
JELSE TEST iF HEADS OUuT
:YES = BYPASS RELOAD WAIT FLAG SETTING

#SPDSTAT:HCESTAT!WDESTAT,
T .MP

TEST

: THAT

015502
615504
015512
015514
015522
015524

015524
015530

015532
01553
015536
015542

01554?
015544
01554¢

015550

015552
015556
015560
015564

015570
015572
015574
015576
015604
015606
015614

001031

012700

106026
005301
001344
012703

0640000

002706

0640000

002746

012703
014346
005301
001375
012737

010164

ERRHRD
TRAP

003030
000004
002746

003030

002742

015614
015620
015626
015634
015642
015650

005037
013737
062737
052737
013762
013762

002710
00273
002000
000104
002742
002736

00273%6
002736
00273%6
000004
000000

015656
015662

012700

000001

#1,R0
CSWIM
R1
50%

#MUNDEF ,R3

10001.,,ERRI

DRIVE

CAUSED

10001
ERR1

1S7T

TEMP4

;TEST [F DRIVE ERROR NOW
;YES = SKIP 10O CLEAR
;WAIT

FOR DRIVE

TO GET

ERROR,

RDY,

OR HO

;DEC WAIT COUNTER
:lF NOT DONE, LOOP
:MESSAGE FOR UNDEF INED STATE

8%:

5%
20 ,R1
#L.MP+2
RS
-(R3),=(SP)
R1
8%
ngTSTAT.L.DA

;NO SKIP
;SET SAVE COUNT
;SET ADDRESS OF FIRST SAvVE
sPUT REG ON STA(K
;DEC COUNT
sLOOP UNTIL ALL SAVED
;SET FOR GET STATULS

52:

MoV

TEMP4L,L
DA

s INSERT PRESET FOR STATUS

CLR
MoV
BIC
BIS
MOV
MOV

DONE
RLDRV,L.CS
#M1T10,L.CS
#GTSTAT,L.CS
L.DA,RLDA(R?)
L.CS,RLCSR(R2)
M

MoV
Emt

:SKIP TO (LEAR

BNE
MOV
MOV
MOV
DEC
BNE
ggv

WAITUS

MEADS

sNO - SKIP
JELSE SET WAIT FLAG

JEXTT

6%:

ERROR

T$ERCODE

.WORD
.WORD

B8R

HAS

;UNL OAD

14%

11%:

013737

104027

#DRVERR,T.(S
5%

MOV

002742

000403

BIT
BNE

MOV
EMT
DEC
BNE

1046443
023621

011526
000554
005737
001013
012701

5%
;:ELDUI.OPFLAG

WAITMS

000001

000003

770 015656

51%:

BEQ
a;s

TO SETIT
¢

#,R0
($Wwiy

;TEST

SAVE

REGISTERS

:SKIP

¢CLEAR INTERRUPY FLAG
;SET UP 1O GET STATUS
;CLEAR FOR DRIVE & = 7 SPE('D
;LOAD RL REGS
:LOAD
;WALT

(S REG
100 US FOR

INTERRUPT

————
.
e
et

ASSEMBLY

ROUTINES

MACRD v03.01

9-FEB-79

19:23:55 PAGE

3-17

SEQ 0073
44
772

005737

773

(V]

NNNNNNNNN;JNN
O O W

nNO SO o

783
784
785
786
787
788

66
66

789
790

9N
792
793
794
795
796
797
798
799

RCO

801

802
803
804
805
806

807

002756

002762

040000

002706

001130
000001

000000

177770
00001C
APV RV LV RV VW IV IV 1V,

774
775
776
77
778
779
780
781
782

002710

004

002762
002742

«$:

13%:

015342

01023Y

104445
023425
01152¢
000442

004737

015342

12%:

100000

002746

001000

002754

006325
040000

002746

7%:

1046643

023424
012030
000411
012703
000403
004737
012603

#1,R0
(SWTM
R1
13%
PC,GSTAT

.WORD

000012

016106
032737
001432
032737
001402
012703
000416
032737
001404

MOv
EMT
DEC
BNE
JSR
3%
MOV
ERRHRD
TRAP

012700

104027

;CHECK JF INTERRUPT OCCURRED
sNO - SKIP
;STORE MP REGISTER
#oC<STAMSK>, T.STAT ;CLEAR ALL BUT STATE
#DRSET,L.DA
TEST IF RESET WAS SPECIFIED
3%
:NO = SKJP TO EXIT
FRELOWT ,OPFLAG
TEST IF RELOAD WAIT FLAG SET
12%
;NO ~ SKIP
#600. ,R1
;SET WAIT COUNT FOR 60 SECONDS
#ORDYMSK ,RLCS(R2) ;TEST IF DRIVE NOW READY
12%
;YES - SKIP

WAITMS

000001

016106
012703

181
BtQ
MOv
BIC
BIT
BtG
811
BEQ
MOv
Bl
BNE

.WORD
BR
WAITUS
MOV
EMT

015142

1%:
’%:

104443

002720
003030

002736
000004

149:
3% :

20%:

WMRLFAL,R3
10003., ,ERRI

;CALL WAIT

;DEC COUNT
;LOOP If NOT O
;GET DRIVE STATUS
;ERROR RETURN
;SET RESULT MESSAGF

POINTER

TSERCODE

10003

ERR]
14%
#10.
#10.,R0
($WTU

;60 10 EXIT
;WdAIT

FOR

1MS

PC,GSTAT

;GET DRIVE

BIT

FANYERR,T.CS

;TEST

STATUS

ANY ERROR

BEQ
BIT
BEQ
MOv
BR

3%
FVCSTAT T . MP
7%
NVCNRST ,R3
2%

:NO - SK]P
JCHECK 1F VOLUME CHECK RESET
;YES SKIP
:SET REASON POINTER
JEXTT

BEQ
ERRHRD

9%
10004., ,ERRG

:NO - SKIP

BI1

.WORD

9% :

igR

TRAP

006346

DONE
1%
T.MP, T, STAY

#DRVERR,T.CS

JSR

PC,WALITIN

ERRHRD
TRAP

.WORD
LWORD
(LR
181
BNE

MOV
MOv
MoV
DEC

DRIVE

ERROR

10004

ERR6

MOV

TSERCODE

.WORD

BR
MOV
BR

sCHECK

149
FUNXERR,R3
2%

JEXIT
;SET REASON POINTER
JEXIT

(SP)+ ,R3

:STORE

10002., ,ERR1

;WAIT FOR INTERRUPI

REASON POINTER FOR RETURN

TSERCODE

10002
ERR!
ERRSW]
TEMPS
229

m.(S,R3
R
(SP)e, (R3)e
R1

;CLEAR FOR ERROR RETURN
;TEST IF REGISTERS WERE SAVED
JNO = SKIP

;SET POINTER 10O RESTORE
+SET REGISTER COUNT
;RESTORE KEG
;DEL (OUNT

ROUTINES

130
132
140
142
1644

9-FEB-79

002704

22%:

o
"~

012737
000402
005037
010346
013703
005723
016663

BtaQ

162763

006000

177777

99%:

003022

XSEEK1:

002306
002306

016254

010337
010046
010146
010546
012737
005037

000c02
00300

016260
016264

016706

004737

021274

013737
023737

003006
003004

003002
002294

002204
003004
002204
000001

003004
003000
003004
002200

00000
000001
000001

003004
003012
003010

002720

003004
003004
003004
003004
003006
003004

000001

010537

XSEEKT:
XSEEK:

002704
000002
000004
002704

BNE
SuB
MOV
MOv
MOV
MOV
151

002720

000207

016432
016436

19:23:55 PAGE

003030
002720

156
160
il

MACRO v03.01

G00002

cocooococococoo

ASSEMBLY

ADD
RTS
MOV
RTS

SEEK
MOV

CLR
MoV
MOV
1S1
MOV
SuB
MoV
MOV

6%:

003012
13%:

(SP)+ TEMP4
ERRSWI

99%

ERRSWI, (SP)
PC
a(SP), (SP)
PC

ROUTINE
¥-1,TEMPY

XSEEK1

;LOOP UNTIL ALL ARE RESTORED
;REMOVE ENTRY FROM SUBROUT STA(CY
;RESTORE RI1

;RESTORE R3

;RESTORE TEMP4
;TEST IF ERROR RETURN
;YES - SK]P
;ADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS

;SET

SPECIAL

TIMING SEEK

ggz

PC.GETPOS

:STORE REG
;SET FOR NO ERROR RETURN
;CLEAR DIFFERENCE AUGMENT
;
PAST GUARD BAND)
:GET PRESENT POSITION

MOV

CURCYL,OLDCYL

:MOVE

18
HLMTW NEWCYL

sNO - SK]P
ELSE SUBTRACT 2565.

CMP

NEWCYL , HLMTW

MOV

NEWCYL,DIFAUG

cMpP
BEQ
SuB
MOV
MOV

#1,71.DRIVE
6%
#1, NEWC YL
#1,DESSON
#1,DESDIF

TS1

NFG
MOV

B8R

BPL

(LR
MOV

SUB
8PL

MOV
NEG
BR
(LR
MOv

FLAG

TEMP]
;CLEAR SPECIAL SEEK FOR TIMING FLAG
R3,-(SP)
:STORE R3
SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
:BUMP ]T FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(RY)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE 17 BACK
RO,=(SP)

R1,-(SP)
RS,=(SP)
#2,ERRSWI
DIFAUG

MoV

003000

20%
#2,SSINDX
(SP)+ R
(SP)+,RO
(SP)+ ,R3

SEQ 0074

MOV
MOV
MOy
(LR

BLE
SUB

3-18

;TEST

CURRENT

NEW

TO OLD

DIFFERENCE

NEWCYL

;TEST

NEWCYL
NEWCYL ,DIFAUG

JELSE MAKE
:AND STORE

18%

SSET NEWCYL AS 29565.

NEWCYL

;NO - SKIP

IT
IT

SEEKING

CYLINDER

IS GREATER THAN 255

:STORE

HLMTW, NEWCYL

(FOR

AUGMENT

HAS NEGATIVE

VALUE

POSITIVE
AS AUGMENT

NEWCYL
CURCYL,RS

;AND SET NEWCYL 10 O
;COMPUTE DIFFERENCE AND NEW CYLINDER

#1,DESSGN
RS
14%
DESSGN
RS,DESDIt

JELSE SET SIGN fOR FORWARD
sMAKE DIFFERENCE PQOSIT]IvE
;SKIP

NEWCYL,RS
13%

;SUB NEWCYL FROM CURCYL
;1F DIFF 1S POSITIVE = SKIP(REY SEEX)

;SET SIGN FOR REVERSE
JSTORE DIFFERENCE

ASSEMBLY

ROUTINES

COOCOOOOOOO

872 016442
873 016446
874 016450
875 016456
876 016460
877
878 016466
879 016474
880 016476
881 01650¢
16504
882
16510
883
16514
884
16520
885
16524
886
16526
887
16532
888
16536
889
16540
890
16542
891
892 016564
893 016550
894 016552
895 016556
896 016562
897 016564
898 016570

899 016574
900 016600
901 016602

902
903
904
905
906
907

016606
016612
016614
016620
016624
01663C
016630
016634

005737
001416
023737
001007
012737

MACRO v03.01

003000

003012

Mov

#1,DESSON

022757
001003
063737

000001

002200

#1,T.DRIVE

003000

003010

(MP
BNE

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

002736
000106
002734
002000

Mov
MOov

#L.CS,RS
NSEEK, (RS)
RLERV, (RS)
#B1T10,(RS)+
(RS)+

004737

016706
005037
005737
001035
014562
014562
0146562

000004
003014

25%:

002710
003022

ADD

MOV
ASL

DEC
BNE
181
BEQ
B1S
151

BEQ
BIS
BlS
JSR
65%
CLR
1S1

BNE

000004
000002
000000

106443

104443
023426
012030
005037
162737
012605

23%:

000020
000001
017306

016652
016654
016656
016660

023425
011526
005037
000410
005737
100005

21%:

003012

002710

104027

17%:

BIS
BIC
(LR
MOv

003010
000007

005737
001011
004737
012603

NO VS W

D1FAUG
18%

000001

918 016636
909 016642
910 016644

NeolVe
Xl e RN o RV o]

BEQ
CMP
BNE

002204

000012

919
920

1S1

3-19

003004

012700

Al 016650
91¢ 016652

9-FEB-79 19:23:55 PAGE

30%:

MoV
Mov
MOV
WA TUS
MOV

EMT

1S1
BNE

015142

JSR

Mov

ERRHRD
1RAP

002720

002740

32%:

.WORD
.WORD
(LR
BR
TST
BPL
ERRHRD
TRAP

002720
000002

002704

65%:

.WORD
.WORD
(LR
SUB
MOv

NEWCYL

17%

HLMTW

SEQ 0075

;1S THERE A DIFFERENCE AUGMENT
:NO - SKIP

;CHECK IF NEW CYL IS 255.
:NO -

SKIP

;ELSE FORCE SIGN FOR FORWARD

: CINNER GUARD BAND)

18%
DIFAUG,DESDIF

DESDIF, (RS)

#7,RO
(RS)
RO

21%
DESSGON

23%

#DIRBIT,(RS)
DESHD

25%

#HDSEL, (RS)
#MBSETO, (RS) ¢
PC,RDYCHK
DONE
TEMPI

65%
=(R%) ,RLDA(R?2)

=(R5) ,RLBA(R2)
=(R5) ,RLCS(R2)
#10.
#10.,R0
CSWTU
DONE

32%

PC,WAITIN

(SP)+,R3
10005., ,ERR1
TSERCODE
10005
ERRI
ERRSWI
65%
1.CS

:GET L REG ADDRESS
;SET FOR SEEK
;INSERT DRIVE NUMBER
;CLEAR IF DRIVE & = 7 SPEC'D
;CLEAR BUS ADDRESS
sLOAD DIFFERENCE
;SET 10 SHIFT DIFFERENCE

;LOOP UNTIL ALIGNED
;TEST

SIGN

;SKIP IF O

INSERT SIGN

;ELSE

;TEST

HEAD O

;YES - SKIP
;ELSE SET HEAD BIT
s INSERT MARKER BIl1
:CHECK IF DRIVE READY

sCLEAR INTERRUPT FLAG
;CHECK JF SPECIAL SEEK FLAG SET
;YES = SKIP, DO NOT START SEEK
;:LOAD RL REGISTERS

;VEST
sYES

INTERRUPT DONE

SKIP

;GO0 WAIT FOR INTERRUPT
;GET RESULT MESSAGE POINTER

;CLEAR FOR ERROR ERROR RETURN
;TEST

ANY

45%
10006., ,ERRE
TSERCODE
10006
ERRG
ERRSWI

:NO - SKIP

(SP)+,RS

;RESTORE

#2,SSINDX

ERROR

;CLEAR FOR ERROR ERROR RETURN
;REMOVE tNTRY FROM SUBROUT STACK
REGISTER

ASSEMBLY

012601
012600
012603
005737
001403
063716
0002G7
017616
000207

!‘.A(Rg v03.01

9-FEB-79 19:23:55 PAGE
MOv
Mov
MOV
1587

0027¢0C

BEQ

002720
000009

99%:

016746
016750
016754
016756
016764

OOODOOO0OOOOOOOOOOOOO0OO0O0OVOOOOOOOOOOOO

921
922
923
924
925
926
927
928
929
930
987
989
990
991
992
993
994
995
996

ROUTINES

010346
013703
005723,
016663
162763
010337
010346
010446
012737
004737
017250
012704

POSHDS

002704
000002
000004
002704
000002
021274

002306
002306

000012

il
e

1%:

il o
d
D
—
=
—d ——th
——
—
—

)

—O
8B AN NN AN AN
o
a O o~
S;2OO0LSNONNOSNONO
S oo

)

el
el

D nd

=l
———l
el

)
D

D
D

il
e

)
sl

il
i
et

)
—t

]

OO0~
1O NS NP —

| o\ TR R

b
—h
o
)
b
el
)
e
-

COOOOOOOOO
D

SNONSNNNNSNNSNSNNNSNNYN

—

100006

021274
003006

017632
003006
003006

003004
003004
016204

065670
021026
002746

000440

MOV
JSR
PH65S
MOV

8%:

#2 ,ERRSW]
PC,GETPOS

sSET FOR NO ERROR RETURN
:GET CURRENT POSITION

#10. R4

;SET RETRY COUNT

;CHECK [F
5%

:NO -

IN ERROR LOOP

SKIP

PC,GETPOS

;ELSE GET POSITION

BNE

CURCYL ,NEWCYL

sCHECK [F AT INTENDED POSITION
;NO - SK]P
:EU?E OLDCYL AND NEWCYL

(MP
BEQ
BGT

CURCYL,RS
60%
7%

MOV

DEC
JSR

60%
MOv
JSR
60%
181

BPL

.WORD
.WORD

(LR

SEEKS

R3,-(SP)

JSR

TRAP

002720

;SET ERROR RETURN ADDRESS

R3,-(SP)
SSINDX,R3
(R3)+

EMT
($BSEG
INLOOP
EMT
CSINLP
BNCOMPLETE
BCC
5%

INC

7%:

;ADD IN ERROR RETURN

R4 ,-(SP)

ERRHRD

106443

023430
012030
005037

003002

a(SP), (SP)

TEST 1F ERROR RETURN

JYES - SKIP

MOV

JSR

5%:

;RESTORE R3

MOov

60%
(MP

003004

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

: SAVE REGS
;GET SUBROUTINE INDEX
sBUMP 1T FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THiS CALL
#4,SUBSTK(R3)
¢ADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE 1T BA(K

SuB

BGNSEG

104020

004737
017246
023737
061017
004737
000414
013737
023705
001467
003003
005237
000402
005337
004737
017246
012701
004737
017246
005737

Mov
Mov
TST

MOv

002720

SEQ 0076

POSITION HEADS ROUTINE. POSITIONS HEADS USING 1 CYLINDER
TO CYLINDER SPECIFIED IN RS BY THE CALLING ROUTINE

MOV

104004

103012

ADD
RTS
MOv
RTS

3-20

PC,ONSWAP
CURCYL,OLDCYL

NEWCYL

;IN NOT LOOPING, STORE CURCYL AS OLDCyL
sCHECK IF HDS AT FINAL POSITION

sYES - GO TO EXITY

;1F CURCYL > FINAL POSITION - SKIP
:EL?E BUMP NEWCYL (MOVE HDS IN)
.

NEWCYL
PC,XSEEK

;DEC NEWCYL
;00 SEEK

#3000. ,R1
PC.RDYWALT

;SET WAIT COUNT 300 MS

1.CS

109

10008.,,ERRG

(MOVE HDS OUT).

;WAIT FOR DRIVE READY
;TEST
;NG -

1F ANY
SKIP

ERROR

TSERCODE

10008
ERR6

ERRSWI

60%

:(LEAR FOk ERROR ERROR RETURN

ASSEMBLY

el
il
il

[\ N1, ] Vg )

S
= OQOON~N~NOO NN
orOoorVO
SN s roon

NN NN NN SN NN NN N NN N

~
~
N
N

COO0OOOOO0OOOOOOOOOO

-h—‘d—fl—l—.-fl.—.—.—ld—‘—‘d—.—‘dd—.—‘—.—.—‘—-‘-—‘-J_l-‘—‘—.—.—‘—fl_‘—‘—‘_J

0000000000000

023737

003366
005304
001334
012703

021274

003G06

10%:

003004

000012

14%:

003012

15¢%:

003006

19:23:55 PAGE

003004
16%:

007234

011526
005037

000405
023737
002750
000761

104005

7272

162737
012604
012600
012603
005737
001403
063716
000207
017616
000207

;GET POSITION

(mp
BNE
MOV
BR
1ST
BNE
CMpP
BGT
DEC
BNE

CURCYL NEWCYL
15%
#10..R6
%
DESSGN
17%
CURCYL ,NEWCYL

;CHECK 1F ARRIVED AT
;NO - SKIP

TRAP

00272C
003006

003004

17%:

20%:
60%:

ENDSEG
:
100008

000002

002704

PH6S5S:

000000

99%:

NN ONOOOONC NWO

AV ]

—

046

elelelelelelelolaleldololele]
[«

NNOO VNS
NN =
SN~
SsSNNOONSNOSO

b
el

(W A RV QW LV IV RV LV LV IV LV [V LV IV LV ]

374

RDYCHK:

002704
000002
000004
002704

002306
002306

000002
011610
015342

002720

000001

002746

000001

suB

1%:

JSR
49
BIT
BNE
WAITUS

MOV

GOING

;YES - SKIP
;CHECK 1F HEADS DID NOT MOVE
;YES -

SKIP

+ELSE SET RESULT MESSAGE POINTER

10009., ,ERR]

;00 ANOTHER SEEK

NOT O

TSERCODE
10009

ERRI
ERRSWI

CURCYL NEWCYL
14%
16%

(SP)+,R4

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

PC
a(SP), (SP)
PC

READY

;CLEAR FOR ERROR ERROR RETURN

;HDS SHOULD MOVE OUT, CHK THEY DID
;YES -

SKIP

SELSE GO DEC AND RETRY

;REMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGISTERS
;TEST

ERROR RETURN

JYES - SKIP
sADD IN ERROR RETURN

:SET ERROR RETURN ADDRESS

TEST ROUTINE.

5S00MS FOR READY TO SET.
MOv
R3,-(5P)
Mov
SSINDX,R3
181
(R3)+
MOv
MOov
MOV
MoV
MOV
MOV

JTEST

#HDMOVF ,R3

(SESEG
N2,SSINDX

MOv

SELSE INIT RETRY COUNT
;G0 DO NEXT SEEK

;DEC RETRY COUNT

EMT
SuB

ADD
RTS
MOV
RTS

DESIRED PLACE

60%

BEQ

002720

149

.WORD
.WORD
CLR
BR
CMP
BLT
BR

MOV
MOV
MOV
1ST

002720

SEQ 0077

PC.GETPOS

ERRHRD

1064443

3-21

JSR

60%

MOV

023431

NSNSNSNITNSNYN

B rd el

o
il
e
e
i

1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080

1066

004737
017246
023737
001003
012704
000715
005757
001016

9-FEB-79

DRIVE

—

1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1063
1064
1065

212
214
220

NN SNNSNSNNNNSS

1043
1044
1045
1046
1047
1048
1049
1050

[
lolelolololelelolalelalelolelole]

1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1062

MACRO v03.01

ROUTINES

CHECKS DEIVE

IS READY.

NOT,

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

RO,-(SP)
R1,=-(5P)
R4,=(SP)
#2 ERRSWI

#5000. ,R1

PC,GSTAT

#ORDYMSK,T.CS

'
#1,R0

;SET FOR NO ERROR RETURN
¢SET WAIT COUNT
:GET DRIVE STATUS

;TEST IF DRIVE READY
JYES - EXIT

WAIT

ASSEMBLY ROUTINES

1081
1082
1083
1084
1085

1086
1087
1088
1089
1090
1091
1092
1093
10964
1095
1096

017400

017402
017404
017406
017412
017416

0176416
0176420
017422

017424
017430
017434
017436
017444
017446
017446
017452
017454
017456
017460
017466
017470

017470
017472
017474

1097 017476
1098 017502

1099 017506

1100
1101
1102
1103
1104
1105
1106
1107
11C8

017514
017516
017520
017522
017524
017530
017532
017536
017540

}}?g 017544

1111
1112

1113
1114
1115
1116
}}}g

01756
017552
017560
017562
01757G

MACRO v03.01

9-FEB-79

104027

005301
001364
012703
012704

104443
023432
011760
012701
004737
(017502
(32737
001005

012700
104026
005301
001364
032737
001405

104443
023433
012030
005337
005037

162737

012604
012601
012600
012603
005737
001403
063716
000207
017616

000207

005037
032737
001403
013737
000207

EMT

DEC
BNE
MOV
MOV
ERkRHRD

i
007561
010445

TRAP
.WORD
.WORD

000062
015342
000001

000002

002704

017572
017600
017602
017606
017610
017616
017622

1128 017624

032737
001011
005737
001006
012737
062716
000207
017616

4%:

.WORD
DEC
CLR

ERR6
ERRCNT
ERRSW]

99%:

Mov
MOV
MOV
MOV
1ST
BEQ
ADD
RTS
MoV

(SP)+ R4
(SP)+,R1
(SP)+,RO
(SP)+,R3
ERRSW]
99%
ERRSWI, (SP)
PC
a(SP), (SP)

:
.

(HOSE HEAD ROUTINE. PL1CXS HEAD O UNLESS
SELECTED BY SOFTWARE PARAMETER.

3%:

S§$:

002720

003014
010000

013346

013354

003014

010000

013346

003014

000001
000002
000000

003014

TSERCODE
10010
ERRS

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

002720

000000

;DEC WAIT COUNT
;LOOP IF NOT O
;SET RESULT MESSAGE POINTER
;SET LONDITION MESSAGE POINTER

#DRDYMSK,T.CS
3%
#1
# RO
(SWTM
R1
2%
FANYERR,T.CS
6%
10011., ,ERR6

TRAP
.WORD

(03142
002720

& TRV

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

;SET WAIT COUNT FOR 5 SECONDS
;GET DRIVE STATUS

002746

SEQ 0078

#50. ,R1
PC,GSTAT

000001

100000

3-22

MOV
JSR
4%
BIT
BNE
WAITMS
MOV
EMT
DEC
BNE
BIT
BEQ
ERRHRD

1119

1120
1121
1122
1123
1124
1125
1126
1127

19:23:55 PAGE

(HOSHD:

SuB

RTS

TSERCODE
10011

+REDUCE ERROR COUNT FOR DUAL ERRORS
:CLEAR FOR ERROR RETURN

#2,SSINDX

;REMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGS

;TEST IF ERROR RETURN
;YES - SKIP
;ADD IN ERROR RETURN
:SET

1$:

CLR
BIT
BEQ
MOV
RTS

SWAP HEAD ROUTINE.

2%:

MOV

;DEC WAIT COUNTER
;LOOP UNTIL TIME DONE
;TEST IF ANYERR SET
:NO - SKIP
;REPORT ALL ERRORS

DESHD
SHEADLM MISWIW
1%
HEADW,DESHD
PC

ERROR RETURN ADDRESS
SPECIFIC

HEAD

;CLEAR TO HEAD 0
TEST IF HEAD SPECIFIED
:NO - SKIP
s INSERT SPECIFIED HEAD

CHANGES

SELECTED HEAD

TO HEAD

.
UNLESS HEAD O SPECIFICALLY SELECTED BY SOFTWARE PARAMETER.
SWAPHD: BIT
NHEADLM MISWIW
TEST IF HEAD SPECIFIED
BNE
2%
;YES = TAKE ABORT EX]T
1S1
DESHD
¢TEST IF HEAD ONE USED
BNE
2%
;YES = TAKE ABORT EXI1
MOV
#1,DESHD
JELSE SET FOR HEAD ONE
ADD
#2,(SP)
:BUMP PAST ABORT RETURN
RTS
P(
:RETURN
a(SP),(SP)

;GET

ABORT

DESTINATION

ASSEMBLY

MACRO v03.01

ROUTINES

9-FEB-79 19:23:55 PAGE

003002
003004
003004

ONSWAP:

003002

012746
012746
012746
010600
1064017

007464
011014
000002

D ol

062706

;
(kBSvVD:

D
il

020020
020024
020026
020032
020034
020042
020050
020054
020056
020060
020062

&»H

sl
il

020010
020016

—t

OO ettt e

~
no

i
i

)
il
el

[e e Ne Ne We Mo Ne XU LV TV LV TV TV SV JU RV I o 49 o
o RV P RV NP Yo Rele ENTe RV B NV E Yo XVe Yo -]

——

ks ——

ik
el

il
=
il
)

—
—
ek
D

ol
—
)

el —

i
D

el —h

ol
il

el
—

)

020000
020006

010614
000001

003356
003552

000001

Q03030

003030

#BSNSTR,=(SP)
#EMT9,-(SP)
#2,-(SP)

ADD

#6,SP

002306
002306

000002

002720

ltg;?.lBASADD.RLBAS.IDRVNAH.<B.RLDRv01>
-

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

EMT
ADD
PRINTr
MOV
MOV

COPNTF
#14,5P
WFMT3
NEMT3,-(SP)
#1,-(SP)
SP,RO
COPNTF
#4,SP
#-1,SBSFIL
#-1,FBSFIL

MOV
MOV

R1S

READ

XRDHD(C: MOV
BR

187

MOV
SUB
MOV

SP,RO

;FORCE

FILES

TO NO ENTRIES

HEADERS

ROUTINE.

¥#1,TEMPL

;SET FLAG TO BYPASS REG STORAGE

TEMP4
R3,-(SP)

sSET FLAG TO SAVE
;STORE REGISTERS

(R3)

;BUMP

XRDHDG

SSINDX,R3

;60 DO

sGET SUBROUTINE
IT

AMD L.

REGS

INDEX

FOR NEXT ENTRY

2(SP),SUBSTK(R3) :INSERT THIS CALL
#4,SUBSTK(RY)
sADJUST [T TO CALLING LOCATION
RY,SSINDX
JSTORE IT BACK

MOV
MOV

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

MOV

#2 ,ERRSWI

MOV

;REPORT

SP,RO
CSPNTF

BISB
MOV
MOV
MOV
MOV
MOV

MOV

000002
000004
002704

#FMI9,#BSNSTR

MOV
MOV
MoV

XRDHD:
(LR
XRDHDG: MOV

002704

FORCE FILES 10 LOOK LIKE ALL SECTORS OK.
1ST
BSFVAL
JTEST 1F BAD SECTORS STORED
BNE
5%
JYES = EXIT

EMT
ADD

5¢%:

;MOVE OLD T0 RO
;MOVE NEW T0 OLD
;PUT OLD IN NEW

BAD SECTOR FILES VALID CHECK ROUTINE. CHECKS ]f BAD SECTOR
FILES HAVE BEEN READ AND STORED. IF NOT, REPORT AND FORC(E

MOV

000004
177777
177777

;RESTORE

MOV

000014

(SP)+,RO

RTS

ER;N?F

002735
006033
002730
006022
010630
000005

;STORE

oLDCYL,RO
NEWCYL,OLDCYL
RO,NEWCYL

MOV
EMT

000006

RO,-(SP)

MOV
MoV
MOV

—

1147

SWAP ULD CYLINDER AND NEW CYLINDER ROUTINE.

MOV

PRINTF

1146

003354

SEQ 0079

MoV

:
:

605737
001051

RIS

3-23

R4 ,-(SP)

JSEY FOR NO ERROR RETURN

ALSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:23:55 PAGE

3-24

SEQ 0080
h

G0 00 0o 00 00 0O D NNNNNNNNN~NOCO
O
O NN
— OOV
NO VNN
=0

el
il
sl
el

il ol ——d
d

nad e

D el
el
el
il
]

D el and
el

i
="
il wl)

D
il

il el

O 0 0 O 00 0o O
WY
= OO 00~

il
—
—

)

—

7 020070
8 020074

020076
020102
020106
020110
020112
020114
020120
020122
020126
020132
020136
020142
020146
020150
020152
020156
020162
020166
020166
020172
G20174
020200
020202
020210
020212
020216
020222
020222
020224
020226
020230
020234
020240
020242
020250
020252
020256
020260
020262
020264
020270
020270

020272
020274
020276
020300
020304
0203006

020306

020310

020312
020314

020316
020322
020326

003030

151
BNE

002746
000004

1%:

2%:

017306
002710
002736
002734
002000
000110

014162

000004
000002
000000

012700

200012

005737
001455
032737
001033
012703
012704

002710

104027

0060001

104443
023436
011760
000424
005737
100004

104443
023440
012030
000415
012701
016221
016221

DEC
BNE
JSR

65%
CLR

MOv
MOV

81C
B1S
(LR
(LR

MOv
MOV
MOV
WAITUS
MCv

EMIT
151

002746

5%:

007561
010464

8tQ
BIT
BNE

MOv
MOV

ERRHRD

104443

023441
011760
012701
004737
020350
0327537
001403
005037
000410
005301
001364
012704

MOov
MOov
Mov

TRAP

.WORD
.WORD

000062
015342

000001

4%:

002746

002720
11¢:

010475

Mov

JSR

60%
BI1

BtQ
CLR
BR
DEC
BNE
MOV

EPRHRD
TRAP
.WORD

002746

10%:

12%:

L..MP+2
R}
#, R

-(R3),-(SP)
R1
1%
PC,RDYCHK
DONE
#L.CS,RI
RLDRV, (R1)
#B1i10,(RY)

#RDHEAD,(R1)¢

(R1)+
(R1)+
=(R1),RLDA(R?)
-(R1),RLBA(R?)
=(R1),RLCSR(R?)
f10.
#10.,R0
(SWiU
DONE
14%
#DRDYMSK,T1.CS
108
#MDRDY,R3
#CAFDT
R4

10017., ,ERRS

;TEST

REGISTERS

:LOAD DRIVE NUMBER

;CLEAR FOR DRIVE 4 - 7 SPEC'D
s INSERT COMMAND

;CLEAR BA
;CLEAR DA

;LOAD RL11 REGS
;WAIT 1MS FOR INTERRUPT

;TEST IN INTERRUPT FLAG SET
:NO - SK]P
;TEST

DRIVE

TSERCODE

10017
ERRS

#50.,R1
PC,GSTAT
#DRDYMSK,T.(CS

1%
ERRSWI
109
R1
4%

MCSSEC,R4
10014., ,ERRS
T$ERCODE
10014

;SET WAIT COUNT FOR 5 SECONDS

;GET STATUS
;TES1
:NO -

IF DRIVE
SKIP

TSERCODE
10016
ERRG

60%

#HDWRDZ
,R1

RLMP(R2),(R1)+
RLMP(R2),(R1)e

READY

;DEC WAIT COUNTY
;LOOP UNTIL TIME DONE

;SET CONDITION AFTER 5 SECONDS

BPL
ERRHRD

10016., ,ERR6

COME

:CLEAR ERROR SWIT(CH

;NO - SK]P

1.CS

HAS

JSKIP

129

MOV
MOV
MOV

READY

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

JEXIT

.WORD
.WGRD
BR

SAVED

;CLEAR INTERRUPT FLAG
;GET ADDRESS OF LOAD REGS

ERRS
60%

151

TO BE

:NO - SKIP
:SET POINTER FOR REGS
:SET COUNT
:SAVE REGISTER
;DEC COUNT
;LOCP UNTIL ALL ARE SAVED
. CHECK DRIVE READY

.WORD
BR

TRAP

002756
000006
000006

TEMP4

s CHECK

;REPORT

FOR ANY
ALL

ERRORS

:GET POINTER
:STORE LAST TWO MEADER WORDS

NS WNN—=OOVBXNO
NS NN —=O OO0~

B 8 B

N=O OB

NN NN AN N NN NN RO N NININONIRNININN
ot s

—!-—l—‘dd—‘—-—.-‘—l-‘—‘—l—‘—l—‘—‘—.—.—‘-fl—‘*—ld-‘
[HE1,¥1,81 WY, V1. NT ¥ VY VY VY.V, V1,1 ST NN
NN AN N

ROUTINES

020332
020334
020340
020342
020342
020344
020346
020350
020354
020360
020362
020366
020372
020374
020376
020400
020406
020410

020412
020414
020416
020422
G20424
020430
0204 32
020436

000410
004737
012603

MACRO v03.01

9-FEB-79

015142

19:23:595 PAGE

14%:

162737
012604
012601

012600
012603
005737
001403
063716
000207
017616
000207

JSR
MoV

EFRMRD

106443

023437
0115¢%
005037
005737
001007
012703
012701
012623
005301
001375

TRAP

60%:
65%:

002729
003030
002736
000004

000002

20%:

002704

22%:

002720

LWORD
.WOkD

CLR
151

BNE

MOV
MoV
MOV

99%:

65%

PC,WAITIN
(SP)+,R3

10015., ,ERRI

TSERCODE

10019
ERR1
ERRSWI

ERRSWI

;TEST

ERRSWI, (SP)
PC
a(SP),(sSP)
PC

;ADD

;SET

ERROR RETURN ADDRESS

(SP)+,R1
(SP)+ RO
(SP)+ R}

ADD
RTS
MOV
RTS

FOR INTERRUPT
ET RESULTS
EPORT
OR

(SP)+,R4

22%

#L.IS,R3
¥4 ,R1
(SP)+,(R3)+

MOV
MOV
MOV

MOV

Xl 1
AIT 1

JCLEAR FOR ERROR ERROR RETURN
sTEST IF REGISTERS WERE SAVED
:NO - SK]P
;SET POINTER TO RESTORE REGS
;SET COUNT
sRESTORE REGISTER
sDEC COUNT
;LOOP UNTIL ALL ARE RESTORED
;REMOVE ENTRY FROM SUBROUT STACK
JRESTORE REGS

TEMPS

R1
20%
#2,SSINDX

BEQ

000000

SEQ 0081

DEC
BNE
Su8

1ST

002720

3-25
X’Ot""

ASSEMBLY

99%

ERROR

;YES = SK]P

ERROR

RETURN
RETURN

HEADERS ROQUTINE. COMPARES 40 HEADERS FOR CONTENT
SEQUENCE.
MOV
R3,-(SP)
:STORE REGS
MOV
SSINCX,R3
;GET SUBROUTINE INDEX
TST7
(R3)+
;BUMP 1T FOR NEXT ENTRY
MOV
2(SP),SUBSTK(R3) s INSERT THIS CALL
;ADJUST IT TO CALLING LOCATION
SUB
#4,SUBSTK(R3)
MOV
R3,SSINDX
;STORE 1T BA(K
MOV
RO,-(SP)
MOV
R1,-(SP)
MOV
R4,=-(SP)
MOV
RS,=-(SP)
MOV
#2 ,ERRSWI
:SET FOR NO ERROR RETURN
BIS
#HDRCMP ,OPFLAG
:SET HEADER COMPARE FLAG
(LR
MORECE
;CLEAR MORE ERRGRS FLAG
VERIFY

020440
020442
020446
020450
020456
020464
020470C

020472

020474
020476
020500
020506
020514
020520
020524
020530
20532
20534
20536
020542
020546
020550
020552

020554
020560
020562
020562
020564

010346
013703
005723

016663
162763

010337
010046
010146
010446
010546
012737
052737
005037
0127C4
012705
005003
011415
011401
042701
012700
006201
005300
001375
020137
001406
10464453

023%44?

VERHDR:

002704
000002
000004
002704

002306
002300

000002
000002
002716
003746
003020

002720
002706

000177
000007

003004

MOV

#1BUFF ,RG

(LR

MOV

MOV
MOV
1%.

#TEMPO,RS

(R4), (RS)
(R&4) R

BIC

#177.R1

ASR

MoV

#7,R0

:PUT WORD N REG 1

;CLEAR ALL BUT CYLINDER

DEC
BNE
(MP
BEQ

RO
3%
R1,NEWCYL
43

.WORD

10018

ERRHRD
TRAP

;SET POINTER TO HEADERS
;SET POINTER TO WORK AREA
;CLEAR FOR WORD COUNTER
:MOVE HDR WORD TO WORK AREA

10018 . ERR10
TSERCODE

;SET

COUNT

SHIFT

;SHIFT
:DEC
.LOOP
;CHECK

CYLINDER

:REPORT

ERROR

JVES = SKJP

PART

GOOD

AND

ASSEMBLY

ROUTINES

020566

1266 020570
1267 02057¢
1268 020576
NO VSN
= O

i
ol
o
i
ad
s

eV 3oVl VY V] ,F), V] V], V]
NNSNNNNN~N

1269 020602
020606
020612
020614
020620
02062¢
020626
020630
020632
020632
020634
020636
020640
020644
020646
020650
020652
020654
020656
020656
020660
020662
020664
020670

020672
020674
020676
020700
620702
020706
020712
020714
020720
020722
020724
020726
020734
020736
020740
020742
020744
020746
020752
020754
020760
020762
020766

020770
020774

020776
021002

013316
005037
000454
012701
042715
005737
0014G2
052715
005065
021524
001407
005744
104443
023442
013116
005037
005724
005203
005724
001407
022544

MACRO v03.01

9-FEB-79

19:23:55 PAGE

LWORD
(LR

002720

000050C
000100
003014

4%:

000109
000002

9% :
6% :

023442
013116
005037

024524
005724

005203
005215
011500
042700
022700
001002
042715
005203
005301
001337
162737
012605
012606
012601
012600
012603

005737
001403
063716
000207
017616
000207

013705
000402

013709
010146

#HDHSEL
, (RS)

;ARE

(LR
(MP
BEQ

2(RS)
(RS5), (R&)+
8%

CLEAR 2ND WORD OF WORK AREA
;TEST FIRST WORD OK

TST

000002

002704

65%:

(MP
1S1

INC
INC
MOV
BIC
(mMpP
BNE
Bi(
INC

000000

99¢:

002754

POSHW!:

002754

POSKHSB:

POSHDO:

(RG)+

(R&)+

TSERCODE

10018
ERR10

ERRSWI

-(RS),(RGL)+
(RG)¢

R3
(RS)
(R5),RO
#*(HDSEC,RO
#40.,R0
15%
MHDSEC, (RS)

R1
6%
#2,S5SINDX
(SP)+,RS

MOV
MOV

(SP)+,
i (SP)+ ,RC

(SP)+,R4

(SP)+,R}Y

TST

ERRSW]

ADD
RTS
MOV
R1S

ERRSW!, (SP)
PC
a(SP,,(SP)
PC

BEQ

99%

POSITION HEAD B]1

HDWRD1,RS

MOV

T.MP,RS ;START
R1,=(5P)

MOV

;YES - SKIP
SELSE SET POINTER FOR ERROR

:REPORT

POSHDO

;TEST

2ND WORD

1S O

;VES - SKIP
;ADJUST POINTERS FOR REPORT
;REPORTY

;CLEAR FOR ERROR RETURN
sRESET POINTERS
;BUMP PAST ECC WORD
;BUMP WORD COUNTER
;BUMP SECTOR OF EXPECTED HEADER
:MOVE EXPECTED HDR 10 RO
;CLEAR ALL BUT SEC"OR

;TEST IF AT SECTOR 40

:NO - SK]P

;CLEAR SECTOR 70 O

;BUMP HDR WORD COUNTER
;DEC HEADER COUNT
;LOOP IF NOT YET DONE
;REMOVE ENTRY FROM SUBROUT STA(K
;RESTORE REGISTERS

;TEST IF ERROR RETURN
< YES = SK]P
.ADD IN ERROR RETURN
;SET

ERROR RETURN ADDRESS

FROM HEADER OR MULT]PURPOSE

MOV

;YES - SKIP
s INSERT HEAD BT

;CLEAR FOR ERROR RETURN
;RESET POINTER
;BUMP WORD COUNTER

ERRSW]

DEC
BNE
SUB
MOV

MOV

002720

10018
ERRIO

12%
(RS)+,-(R4)
10018.,,ERR'0

MOV

002720

10018.,.ERR10

WE USING HD 0?

TSERCODE

BEQ
(MP
ERRHRD

(LR

15%:

-(R&)

.WORD
.WORD

000077

5%
#HDHSEL, (RS)

INC

151

TRAP

177700
000050

;SET HEADER COUNT
;CLEAR HEAD SELCCT AND O BIT

DESHD

(LR

12%:

840, R

151

BEQ
BIS

.WORD
.WORD

002720

;CLEAR FOR ERROR ERROR RETURN

BIC

MOV

TRAP

104443

ERRIO
ERRSW!

65%

ERRHRD

BS:

SEQ 0082

B8R

1S1

002720

326

:START

FOR POSITION HD BIT

;SKIP
$OR POSITION HD BIT
s STORE R

IN MP

10 LSB.

IN WD

D000~

042705
01270}
006205
005301
001375

19:23:55 PAGE

177677

B1C

000006

1666

WNANWNO

O INO

0572

162763
010337
010046
010146
010446

012700
104027
000763
012703

RDYWAIT:

002704

000002
000004
002704

002306
002306

000002
015342

002720

000091

002746

012700
106026

1353
1354
1355
1356

005301
001364
012794

000001
007561

’$:

000001

002746

1357
1358
1359
1360

104443

021222

0234406
012030

EMT
BR

WAIT

PASSED

TO THE

:STORE R3
:GET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ; INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST [T TO CALLING LOCATION

Mov

R3,-(SP)

SSINDX,R3

R3,SSINDX

RO,-(SP)

PC,GSTAT

#DRDYMSK,T.(CS

"
#,R0

($wiv
5%

:STORE

BA(K

;SET FOR NO ERROR RETURN
;GET DRIVE STATUS
:CHECK 1F READY
;YES - SK]P
;DEC WAIT COUNT

JSKIP IF O

#50. ,R1
PC,GSTAT

*SET WAIT COUNT FOR 5 SECONDS
;GET DRIVE STATUS

BIT

#DRDYMSK,T1.CS

MOV

"
¥ ,RO

;TEST IF DRIVE
:YES - SK]P

JSR
10%

ERRHRD

8%:

:RETURN

Mov

MOV

002746

FOR RIGHT JUSTIFY

;SET NAME MESSAGE PIR

ERRHRD

TRAP

100000

sSHIFT

#MDRDY,R3
10020., ,ERR3
TSERCODE
10020

MOV

EMT
DEC
BNE

010475

sCLEAR ALL BUT HEAD SEL BIT
JSET SHIFT COUNT

;sRESTORE R1

9%
R
7%

BNE
WAL TMS

000001

RS
R1
1%
(SP)+ R

BNE
DEC
BEQ
WAITUS

10%
BIT

. WORD

6%:

FACHSSTAT,RS
76 ,R1

R4 ,=(SP)
#2 ,ERRSWI

TRAP
.WORD

000062
015342

SEQ 0083

MOV
MOV
JSR

MOV

104443

023445
011760
000407
032737
001405

Mov
1S1
MOv

SuB

5¢:

3-27

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

MOV
Mov
Mov

104443

023444
011642
012701
004737
021230
032737
001013

MOv
ASR
DEC
BNE
MOv

RTS

001404

[ RV RV, I R
o
N —=OOW~N

—

1034
1370

012737
004737
021230
032737
001052
005301

NN NN NN

OO0

NN
~NO N
2OV
NOP VBN

021026
021030
021034
021036
021044
021052
021056
021060

1346

vt e

9-FEB=-79

012601
000267

1344
1345

—

MACRO v03.01

ROUTINES

WN = OOV

D ol
el
D
il
D
il
D el
S el
el il el e
i e
D oot i
)
d
i
e el
el

AN AN N AN U NN LN U N LN LN N U AN (N N AN NN N AN LN AN AN N
E5 8 BB NN N NN N NN N N NI N RO N NI PO RO RO NI R — 2 s

ASSEMBLY

.WORD
.WORD
BR

BIT

BEQ
ERRHRD
TRAP

.WORD
. WORD

ERR3

(SWTM

NCSSEC,RG
10021., ,ERRS
TSERCODE
10021

ERRS
1%

BANYERR,T.(S

10$
10022., ,ERR®
TSERCODF
10022
ERRO

;REPORT

SWALT

READY

ERROR

READY

100 MS

;DEC WAIT COUNT
<LOOP UNTIL TIMF DONE

;SET CONDITION AFTER 5 SECDS

EX1T
:TEST [F ANY ERROR SET
iNO = SKIP
;REPORT ALL

ERRORS

ROUTINE

RSSEMBLY

ROUTINES

1361 0212264
1362 021230

005337
005037

021242
021244

012604
012601
012600
0126G3
005737
001403
063716
000207
017616
000207

1363
1364
1365
1366
1367
1368
1369

021234

NN N AN NN
AN LN N N U LA UN W

1
1
1
1
1
1
1
1
1
1

gonononononwwwww
LRV Sl e RV e Xo . ENTe MV D~N~
JNVH ¥

021246
021250
021252
021256
1370 021260
1371 021264
1
021266
1
021272

1394

* 399
1396

1297

1398
1399
1400
1401
1402
16403
1604
1405
1407
1408

021274
021276
021302
021304
021312
c21320
021324
021326

021336
021342
021346
021350
021352
021354
021360
021364
021372
021374
021376
021400
021404
021406
021612
021414
021420

1409 021422

1410 021424

021430
1612 021432
16411

1613
1614
1418
616
1417
1418

003142
002720
000002

9-FEB-79 19:23:55 PAGE

002704

118:
108:
9%:

002720
002720
000000

99%:

3-28

DEC
(LR
SUB

ERRCNT
ERRSWI
¥2,SSINDY

151
8taQ
ADD

ERRSW]
99%
ERRSWI, (5P)

Mov

a(SPY,(SP)

Mov
MOV
Mov
Mov

RTS

(SP)+ R4
(SP)+ R
(SP)+ RO
(SP)+ ,R3

SEQ 0084

;DEC FOR DOUBLE ERROR REPORT

sCLEAR FOR ERROR ERROR RETURN

;REMOVE ENTRY FROTM SUBROUT STA(KX
;RESTORE REGISTERS

;RESTORE RZ

;TEST If ERROR RETURN
;YES - SKIP
:ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER
(WHERE 17 IS PRESENTLY POSITIONED) AND STORES CYLINDER

!
|
1386 021330
1387 021334

1388
1389
1390
1391
1392
1293

162737

MACRO v03.01

021440
021446

021452
021460
021464

01 0346
01 3703
00 5723
01 6663
16 2763
01 0337
01 0046
01 0546
004737
021364
013703
012705
006203
005305
001375
062703
01033%7
162737

012605
012600
012603
005737
001403
063716
000207
017616
000207

010346

GETPOS:

002704
000002
000004
002704

MCv
SuB
MOV

¥4 ,SUBSTK(R3)
R3,SSINDX

;ADJUST

PC.XRDHD

:DO READ HEADER

MOV

HOWRD1,R3

ASR

:GET HEADER WORD
;SET SHIFT COuNT
;SHIFT TO RIGHT JUSTIFY

MOV
MOV

JSR
65%

002754

000007

002720

R3,-(SP)
SSINDX,R3

002306
002306

020020

177000
003006
000002

NUMBER IN CURCYL.

MOV
MOV

002704

65%:

‘

DEC
BNE

BIC
MOv
SUB
MOV
MOV
MOV

151
BEQ
ADD

002720
000000

MOV

99%:

RTS

MOV

RTS

:STORE REGISTERS
»
:GET SUBROUTINE INDEX
(R3)¢
;BUMP 1T FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL

RO,=(SP)
RS,=(SP)

#7,RS

RS
4%
#177000,R3
R3,CURCYL
¥2,SSINDX
(SP)+,RS
(SP)+,RQ
(SP)+ ,R3

;STORE

CALLING

LOCATION

BACK

sSTORE AS CURRENT CYLINDER
.REMOVE ENTRY FROM SUBROUT STA(K
;RESTORE

REGISTERS

ERRSW]
99%
ERRSWI, (SP)

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

a(SP), (SP)

;SET ERKOR RETURN ADDRESS

VERIFY POSITION ROUTINE. READS A HEADER (USING GETPGS) AND
(HECKS HEADS ARE POSITIONED AT NEW CYLINDER (CURCYL - NEWCYL),

002704
000002
000004

002704
000002
021274

002306

002720
‘

VERPOS: MOV
Mov
151
mMov

R3,=-(SP)
SSINDX,R3
(R3)
e

;STORE R3
sGET SUBROUTINE INDEX
;BUMP |7 FOR NEXT ENTRY

SUB
MoV

2(SP),SUBSTK(R3) ;INSERT THIS C(ALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
:STORE T BACK

MOV
J%:

#2 ,ERRSWI]
PC,GETPOS

¢SET FOR NO ERROR RETURN
;GEY

POSITION

ASSEMBLY

MACRO v03.01

ROUTINES

9-FEB=79

19:23:55 PAGE

3-79

SEQ 0085

ALY
1452

.83

1654
1455

000002

012603
005737
001403
063716
000207

01766
000207

737
701
737
703
3704

1465 021734

021742
021746
021754
021756
021760
021762
021766

021772

TSERCODE

(LR

10022
ERRB
ERRSWI

SUB

#2,SSINDX

3?2

99%:

RDALHD:

000002
000004
002704

002306
002306

000002
000050

002720

100000

002736
002736
002736

000020
002742
002740
000200

002742
000004
000002
000000

0151 1
0151 A

CURRENT CvL

sREMOVE

ENTRY FROM SUBROUT

;YES - SKIP
;ADD

IN ERROR

MOV

a(SP),(SP)

RTS

;SET

ERROR

EEGSUI,(SP)

IS NEW (YL

;CLEAR FOR ERROR ERROR RETURN

99%

SuB

#4,SUBSTK(R3)

;ADJUST

MOv
MOv
MOv
MOv
MOV

RO,=-(SF)
R1,=(SP)
R4, -(5P)
#2 ,ERRSWI
¥40. ,R1

;SET
:SET

R3,SSINDX

;STORE

RETURN

ADDRESS

TO CALLING LOCAT]ION

FOR NG ERROR RETURN
HEADER COUNT
‘

#HDR4O,0PFLAG
#1BUFF ,R3

;SET 40 HDR OP FLAG
sSET POINTER TO STORE

BIS

RLDRV,L.CS

s INSERT DRIVE NUMBER

(LR
(LR
187

L.BA
L.DA
DESHD

:CLEAR BA
;CLEAR DA
;TEST IF HEAD O

B1S
MOv
MOV

#HDSEL ,L.DA
L .DA,RLDA(R?)
L.BA,RLEA(R?)

BIC

BEQ

B
BNE

000000

6%:

ng
6
Mov

000000

7%:

BIT

MOv

BNE
DEC
BNE

JSR
JSR
MOV

#BIT10,L.CS

JYES - SK]P

JELSE INSERT HEAD O
:LOAD RLDA REG
sLOAD RLBA
;ELSE

L.CS,RLCS(R?)

;LOAD RLCS REG

CHECK

CONTROLLER READY

READY

;SET COUNT FOR WAlT

N(ROYMSK,RLCS(R?)

PC,READRL
PC,WALTIN
(SP)+ R}

INTERRUPT

;CLEAR FOR DRIVE & - 7 SPEC'D

PC,RDYCHK

8%
RO
7%

HDRS

:GET BASE ADDRESS
;MAKE [T POINT TO MP REG
;LOAD FOR READ HEADER, NO

#(RDYMSK,RLCS(R?2)
;TEST
6%
;YES - SK]P

877777 ,R0

STORED

1T BA(K

BIS
Mov

RLBAS R4
#RLMP R4
#10,L.0S

STA(K

R}
ERROR RETURN

READ ALL HEADERS ROUTINE., 40 HEADERS ARE READ AND
IN 1BUFF,
Y
R3,-(SP)
:STORE REGISTERS
MCv
SSINDX,R3
;GET SUBROUTINE INDEX
151
(R3)+
;BUMP T FOR NEXT ENTRY
MOv
2(SP),SUBSTK(R3) INSERT THIS CALL

MoV
ADD
MOV

3%:

JYES - SKIP

;RESTORE
;TEST IF

MOov

002706

003746
002730
000006
000010
002734
002000
002740
002742
003014

SCHECK

(SP)+,R3
ERRSW]

BtQ

000000

1%
10022.,,ERRR

.WORD
.WORD

002720

002736
072777
000200

012603

TRAP

002720

017306

1464 021732

NEwCvye ,CURCYL

MOv
1S1

002704

1456
1457
1458
1456
1460
1461
1462
1463 021726
1466
1467
1468
1469
1470
16471
16472
1678

002704

1%:
:
5%

021542
021544
021550
0215952
021560
021566
021572
021574
021576
021600
021606
021612
021620
021626
021630
021634
021642
021650
021656
021662
021666
021672
021674
021702
021710
021716
021724

162737

(MP

BEQ
ERRHRD

rNO

14646

1645
16446
1467
16448
1449
1450

021534
021540

002720

1427
1428
1429
1430
14
16432
1434
1435
1636
1437
1438
1439
16440
14641
1442
1443

003006

1046443

NNNNOOSONO NNO

1425
1426

003004

023446
012756
005057

-0

1622
1423
16424

021476
021500
021502
021504
021510
021510
021516
021520
021524
021526
021532

023737
001405

OO0

1419 021466
1420 021474
162 021476

;CHECK

THAT

OPERATION COMPLETED

JYES = SKIP
:DEC COUNI
SSKIP IF NOT YET O

JELSE GET ALL REGISTERS
;ELSE WAIT FOR TIMEOUT
¢GET RESULT MESSAGE POINTER

ASSEMBLY

ROUTINES

1676 021774

021774
221776
022000
1675 022002
1676 022006
1477 022010
1478 022014
1479 022016
022016
022020
022022
1480 022024
1481 022030
1482 022032
1483 022034
1484 022036
1485 022040
1486 022042
1487 022044
1488 022052
1489 02205¢4
1490 022056
1691 022060
1492 022062
1493 022066
1494 022070
1495 022074
1496 022076
1497 022102

1498
1499
1501
1502
1503
1504 022104

18G5
1506
1507
1508

022106
022110

MACRO v03.01

023451
011526
005037
000416
005757
100006

104443
023652
012030
005037
00040%

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

19:23:55 PAGE

ERRHRD

1046443

TRAP

002720
002746

8%:

002720
12%:

000002

C(C02704

¢5%:

002720

000000

99%:

SEQ 0086

10025., ,ERR]

TSERCODE

10025
ERR1

.WORD
.WORD
(LR

10026
ERR6

ERRSWI]

;CLEAR FCR ERROR RETURN

MOv
Mov

(RG),(R3)
(RG),(R3)
e

;STORE

B8R

ERRSWI
65%
1.CS

12%
10026., ,.ERR6

65%

(R4), (R3¢
R1
6%
#2,SSINDX

MCv
MOV
MOV
MOV

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

FOR ANY
SKIP

FRRORS

HEADER WORDS

;DEC HEADER COUNT
;REMOVE ENTRY FROM SUBROUT STA(K

;RESTORE

REGISTERS

sTEST IF ERROR RETURN
JYES = SK]P
:ADD IN ERROR RETURN

8(SP), (SP)

:SET ERROR RETURN ADDRESS

RTS

GENERATE

;TEST
JNO -

FOR ERROR RETURN

ERRSW]
99¢%
ERRSWI, (SP)

RIS

MoV

;CLEAR

TSERCODE

MOV
DEC
BNE
SuB

TST
8taQ
ADD

002720

3-30

.WORD
.WORD
(LR
BR
1S1
8PL
ERRHRD
TRAP

DATA ROUTINE.

PATTERN TO BE

GENERATED

IN THr WORD FOLLOWING THE CALL. 128 WORDS ARE
IN OBUFF.
:
DATGEN: MOV
R1,=(SH)
;STORE REGISTERS

022112
022116
022120
022122
022126
022130
022182
022136
022140

004346

022146
022152
022154
022156
022160
022162
022166
022172
022174

000020

022144

9-FEB-79

R3,-(SP)

R4 ,=(SP)

MoV

(RS)+,RG

mMov
ASL

002262

MOV
MOV
BEQ
(MP
BEQ

122777

000010

(mMp

BtQ

(MpP

3%:
000015
004346

004346

MOV

5% :

#OBUFF ,RY
RG

PATTBL
(R4) ,R3Y
(R3),(R1)e
5%
(RY),#-1
5%

RG,#8.
i3

R4, 816,

BLY

Mov
MoV

(R3)¢,(R1)e
(R3)e¢,(R1)e

1817

Moy
MOV
BR
MOv

(R3)

3. ,R4
#0BUFF RS
8s
#0BUFY RS

IS GIVEN

GENERATED

JSET POINTER 10 OBUFF
;GET DATA PATTERN SELECTOR
sADJUST 11 FOR INDEXING
JGET ADDRESS OF PATTERN
;MOVE FIRST PATTERN WORD
;SKIP 1F PATTERN IS O
JCHMECK IF PATTERN IS ALL

JYES = SK]P

1°s

:TEST IF PATTERN S
JYES

Sk1p

;CHECK JF PATTERN 9 OR 'Q
sNO - SK}P
;BUMP SOURCE POINTER
;MOVE

TWO MORE

WORDS

FORM SQURTE

:SET COUNT
JRESET POINTER
JELSE

SEY

OBUFF

AS PATTERN SO LR(E

10%:

012604
012603
012601
000295

002704
090004
002704

MOv

112, ,R6

Mov
DEC
BNE
MOv
MOV

(R3)¢+,(R1)e
R&
10$
(SP)+,24
(SP)+ ,R3

RTS

ERROR REPORTING

TST

MOv

SuB
MOv
MOV

Mov
BIS

002706

5%:

9%:

603

010377
002716
007540
011475
000005
000014
000002

1871
BNE
MOv
PPINTB

15%:

INTO BUFFER

;SET SOURCE TO TOP OF OBUSF
;SET COUNT FOR REST OF BUFFER
sREPEAT

;RESTORE

PATTERN

IN BUFFER

REGISTERS

AND OBUFF
.

;SET

DATA (OMPARE

FLAG

sCLEAR MORE ERROR FLAG
:SET POINTERS TO DATA FOR (OMPARE
;SET WORD COUNTER

;SET COMPARE COUNT
: COMPARE DATA
;ERROR - SKIP TO REPORT
;BUMP WORD COUNT
;DEC COMPARE COUNT
;LOOP IF NOT O
sCLEAR DATA (COMPARE FLAG
sTEST IF ANY COMPARE ERRORS

ERRSW]
sNO - SKIP
15%
;SET REPORT VALUE
7128, ,R1
#FM127 #TCERR ,MORECE ,#RESE6,R!

MOv
MOV
MOV
MOV
Mov

#RESEL,-(SP)
MORECE,~(SP)
STCERR,=(SP)
NEMT27,=(SP)
#5,-(SP)

EMI
ADD
SuB
MOV

(SPNTB
4,5P
#2,SSINDX
(SP)+,RS

MOV
MOv

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

MOv

15 WORDS

R4,
- (SF)

R1,-(SP}

BNE

;MOVE

R3,-(SP)
:STORE R3
SSINDX,R3
:GET SUBROUTINE STACK INDEX
(R3)¢
:BUMP INDEX TO NEXT ENTRY
2¢SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST 1T TO CALLING LOCATION
R3,SSINDX
:STORE 1T BACK
R1,-(SP)
;STORE OTHER REGISTERS

Moy

CMP

;BUMP SOURCE POINTER
;SET MOVE COUNT

COMPARES THE CONTENTS OF [BUFF
IS LIMITED BY SOF TWARE PARAMETER.

INC
DEC
BNE
BIC

(LR
MOV
MOv
MOV
MOV

;G0 10 FILL

;RETURN

RS,=(SP)
#OATACMP ,OPFLAG
MORECE
#OBUFF ,RS
#1BUFF R4
” ,R3
7128, R\
(R4)+,(RS)¢
109
R3
R1
5%
#DATACMP,OPELAG

MOV

002704

(SP)+ R

MOV
MOV

002306

002706

8%
#OBUFF ,R3

DAT(OM:

000200
[aS1aN1 V1 VI, VI, VP Nl V], V1, N V"1,V
OO NNOO
OODWO
=0
—~ NN O

022420
0224264
022432
022434
02243%6
022440

000001
002720

(R3)+
"15..R4
(R3)+,(R1)+

DATA COMPARE ROUTINE.

7%:

022344
022346

SEQ 0087

DEC

MOV

000001
002716
004346
003746
000001
000200

3-31

002306

022342

022354
022360
022362
022366
022366
022370
022374
022400
022404
022410
022414

181
Mov
MOv

MOov

000002

OO0 —=O—-=OO0OO0O0ODOOO

NNNNO
N
= OO

il
it
]
i

0001690

010346

B8R

BNE
MOv

004346

022340

022416

S XV IV NN 3V ]

6%:
7%:
8%:

000017

022244
022246
022252
022254
022262
022270
022274
022276
022300

9-FEB-79 19:23:55 PAGE

000401

(V]

022200
022202
022204
022210
022212
022214
022216
022222
022226
022230
022232
022234
022236
022240
022242

oo N AN
o 0

S e

152
1563
1564
1565
1566
1567
1568

—r

MACRO v03.01

ROUTINES

022302
54 022310
022314
022320
022324
022330
022334
022336

v A\ (S AV SV U

il el el e

e it el o e
JW RV 3V ]

D e

(Pl [V RV

i ol il i

D el

D e el il ol i

d e

ol ol ol riel) it e

Ll
o B 8B BN
NN (NN NN NN N Y ny
e W
= OO0 ~NO NS W
—= OO0~

LV SV JV TV NV TV KV IV TV TV IV IV IV N IV IV | el

ASSEMBLY

SP,RO

(SP)+ R4

;REMOVE ENTRY FROM SUBROUT
;RESTORE REGS

STACK

W~y N~N~N~N~
OV~
W

el
il il

ALYV
IV TV IV, IV )

ASSEMBLY

ROUTINES

022642
022446
022450

el el et

0224564
022456
022462
022464
1581 022472
1582 022474

1583 022476
022476
022500
022502
1584 022504
1585 022510
1586 022512
1587 022514
1588 022520
1589
1590
1591 022522
1592 022530
1593 022532
1594 022536
1595 022544
1596 022552
1597 0225564
1598 022560
1599 022562
1600 022570
1601 022572
1602 022600
1603 022602
1604 022606
1605 022610
1606 02261¢€
1607 022624
1608 022630
1609 022632
1610 022634
1611 022636
161¢ 022642
1613 022644
1614 022650
1615 022654
1616 022660

1617
1618
1619
1620
1621
1622

1623

1624
1625
1626
1627

022664
022670
022672
022676
022700
022704
022710
022714
022716
022720
022722

005737
001403
063716
000207
017616
000207
023757
002010
024445
104443
023463
013116
005037
022425
000712
005237
000707

012737
000402
005037
012737
023737
001006
005737
001403
052737
000403

MACRO v03.01

9-FEB-79 19:23:55 PAGE

002720

181
BEQ

002720
060000
002716

99%:

013360

10%:

002720
002716

177777

003022
000112
002204

13%:

003022
003036
003006

XWRITT:
XWRITE:
XWRIT1:

003014
004000

002706

000114

003036

002704
000002
000004
002704

1%:

XREAD:
XREADG:

002306
002306

01730¢

ADD
RTS
MOV
RTS

(Mp
BGE
(mMp
ERRHRD

TRAP
.WORD
.WORD
CLR
(MP
BR
INC
BR
WRITE
MCvV

BR
CLR
MOv
cmMp
BNE
151

BEQ
BIS
BR

MOV
MOV
MOv
187
MOV
SUB
MOv
MOV
MOV
MOV

JSR

65%

002736
003036
002734
002000

MOv
MOV

003746

MOov

BIS
B1C

BIT

000004

004346
003006
000007

003014

BEQ

4%:

5¢:

MOV
MOV

MOv
ASL

DEC
BNE
187

3-32

ERRSWI
99%
ERRSW], (SP)

PC
a(SP), (SP)
PC

SEQ 0088

;TEST If ERROR RETURN
JYES - SKIP
sADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS

MORECE ,DCL 1MW

;TEST

=(R&),-(RS)

;SET

13%

10035.,
. ERRIG
TSERCODE
10035
ERR10
ERRSWI

(R4)+,(RS)+
7%
MORECE

:YES

HLMTW, CURCYL

COMPARE ERRORS LIMIT EXCEEDED

SKIP

PTRS BACK

:REPORT ERROR

TO ERROR WORDS

;CLEAR ERROR SWITCH
;BUMP PTRS PAST ERROR WORDS
;DO NEXT COMPARE
;BUMP ERROR COUNTER
;DO NEXT COMPARE

AND READ DATA ROUTINE.
¥-',TEMP]
;SET

XWh]TI
TEMPI
FWTIDATA,TEMP7

SPECIAL WRITE

FOR

TIMING FLAG

sCLEAR SPECIAL WRITE FLAG
JSEYT FOR WRITE

sTEST IF CYLINDER 255 (BAD SEC)

;NO - SK]IP

sTEST IF HEAD 1
;NO -

SKIP

(BAD SECTOR FILES)

;SET BAD ADDRESS FLAG
;SKIP TO EXECUTE
#RDDATA,TEMP7
;5ET FOR READ
R3,-(SP)
;STORE R3
SSINDX,R3
:SET SUBROUTINE INDEX
(R3;+
;BUMP TO NEXT STACK ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST TO POINT TO CALL
R3,SSINDX
:STORE IT BACK
#BADADD ,OPFLAG
XREADG

RO,=(SP)
R1,=(SP)
R4 ,=(SP)

:STORE OTHER REGISTERS

PC,RDYCHK

;CHECK IF DRIVE READY

#L.CS,R3
TEMP7, (RY)
RLDRV, (R3)
#B1T10,(R3)
#BIT2,(R3)¢

:GET ADDRESS OF LOAD REGS
:SET COMMAND
; INSERT DRIVE NUMBER
;CLEAR FOR DRIVE 4 = 7 SPEC'D
;TEST IF WRITE DATA
JYES - SKIP
;ELSE SET BA FOR READ

#1BUFF,(R3)
6%
#OBUFF, (R3)+

CURCYL, (R3)

#7,R4

(R3)

;SET BA FOR WRITE
:GET CURRENT CYLINDER
JALION 1T IN DA

DESHD

STEST

IF HEAD O

ASSEMBLY ROUTINES

1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639

1640
1641
1642
1643
1644
1645

022726
022730
022734
022740
022744
022750
022752
022756
022764
022766
022774
023000

023000
023002
023004

023006
023012
023014
023020
023024
023026

1666 023032

1647 023036
1648 023042
1649 023046

001402
052713
053723
012713
005737
001402
012713
032737
001413
042737
012703

104443
023460
011526
005037
000475
005037
005737
001072
011362

014362

014362
014362

023046
023052
1650 023054
1651 023060

012700
104027
005737
001007

023070
023072
023074
1655 023076

104443
023456
011526
000443

1652 023062
1653 023066
1654 023070

1656 023100

1657
1658
1659
1660

023106
023110
023114
023120
023120
023122

023124

1661 023126
1662 023132

1663 023136

1664 023140

1665 023146
1666 023150

1667 023152
1668 0231564
1669 023160
023160

023162
023164

1670 023166

004737
012603

032737

001031
012703
012704

104443
023460
011760
012701
004737
023206
032737

001011
005301
001367
012704

104443
023461
011760
005037

MACRO v03.01

9-FEB-79

000100
003C16
177600
003022
177777
004000

173777
010272

7%:

002706

8%:

002706

00271C
003022

2$:

000006
(00004
000002
000060

108:

005670
002710
015142

002746

148:

007561
010464

010475

002720

17%:
002746

3-33

TSERCODE
10032
ERRI

TSERCODE
10030
ERR1
649

BNE
MOV
MOV
ERRHRD
TRAP
.WORD

20%
#MDRDY,R3
#CAFDT R4
10032.,,ERRS
TSERCODE
10032

BIT

MOV
JSR

649
BIT

OPFLAG
649
DONE
TEMPI
65%
(R3) ,RLMP(R2)

-(R3),RLDA(R?)

-(R3) ,RLBA(R?)
=(R3) ,RLCS(R2)
#3000.

#3000.,R0
(SWTU
DONE
149

PC,WAITIN
(SP)+,R3
10030., ,ERRI

#ORDYMSK,T.CS

ERRS

;CLEAR ALL

FLAGS

;CLEAR INTERRUPT FLAG
;CHECK IF SPECIAL WRITE FLAG SET
;YES = DO NOT START WRITE
;LOAD RL REGS

;WAIT

300MS FOR

INTERRUPT

;CHECK IF INTERRUPT
;1ES - SKIP

;WAIT FOR INTERRUPT
:GET RESULT MESSAGE

;TEST

DRIVE

READY

;YES = SKIP
;SET RESULT MESSAGE
;CONDITION AFTER DATA XFER

#50. ,R1
PC,GSTAT

;SET WAIT COUNT FOR 5
;GET DRIVE STATUS

NDRDYMSK,T1.(S

;TEST

17%
NCSSEC,R&
10033.,,ERRS
TSERCODE

;LOOP IF NOT TIME DONE
;SET CONDITION 5 SECONDS

BNE
DEC
BNE
MOV
ERRHRD
TRAP

20%
R1

(LR

ERRSWI

LWORD
.WORD

SEQ 0089

&)
;YES - SKIP
FHSMSK , (R3)
;SET FOR HEAD 1
DESSEC,(R3)+
s INSERT DESIRED SECTOR
#177600,(R3)
s INSERT WORD COUNT
TEMPI
sCHECK IF SPECIAL WRITE FOR TIMING
8%
:NO - SKIP
N177777,(R3)
;ELSE SET FOR 1 WORD TRANSFER
#BADADD ,OPFLAG
;TEST IF BAD ADDRESS FLAG SET
2%
;NO - SKIP
#*CBADADD ,OPFLAG
;CLEAR ALL BUT THIS FLAG
YMWRTAB,R3
;SET RESULT MESSAGE POINTER
10032.,,ERR1

CLR
BR
CLR
187
BNE
MCv
MOV
MOV
MoY
WAITUS
MOV
EMT
151
BNE
JSR
MOV
ERRHRD
TRAP
.WORD
.WORD
BR

.WORD

000062
015342
000001

BEQ
BIS
BIS
MOV
1ST
BEQ
MOV
BI1
BEQ
B1(
MOV
ERRHRD

TRAP
.WORD
.WORD

002706

000001

19:23:55 PAGE

10033
ERRS

DRIVE

:YES - SKIP
;DEC WAIT COUNT

SECDS

READY NOW

;CLEAR ERROR SW]T(H

ASSEMBLY

ROUTINES

1671 023172
1672 023176
1673 023200

1676
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
:232

023200
023202
023204

023206
023212
023220
023222
023224
023226
023230
023234
023236
023242
023244
023250

1687
1688

1689 023252

005737
100005

104443
023457
012030

005037
162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

9-FEB-79

002746

002720
000002

20%:

002704

023254
023256
023260
023264
023270

010146
010346
005037
012703
022713

1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1716
1711
1712
1713
1714
1715
1716
1717
1713
1719
1720
1721
1722
1723
1724

023276
023302
023306
023310
023314
023320
023322
023324
023326
023332
023334
023340
023344
023346
023350
023352
023354
023362
023364
023370
023372
023374
023376
023400
023404
023406
023412
023414
023420

012703
022713
001431
013700
012701
006300
005301
001375
005737
001402
052700
053700
022300
001402
101005
000774
012737
000403
020327
003342
012603
012601
012600
005737
001003
062716
000207
017616
000207

001005

64%:
65%:

002720
002720
000000

99% :
:

010046

1690
1691
1692
1693
1694

1695 023274

MACRO v03.01

BSCHK:
002722
003552
177777
003356
177777

2%:

003004
000007

6%:

5¢%:

003014
000100
003016

000001

003552

7%:
8%:

002722

12%:

15%:
20%:

002722
000002
000000

99%:

19:23:55 PAGE

3-34

SEQ 0090

TST
BPL
ERRHRD

1.CS
65%
10031.,,ERRE

;CHECK IF ANY ERROR
:NO - SKIP

(LR
SuB
MOov
MoV
MOV
MOV
1S7
BEQ
ADD
RTS
MOV
RTS

ERRSWI
#2,SSINDX
(SP)+ R4
(SPj+ ,R1
(SP)+,RO
(SP,+,R3
ERRSWI]
99%
ERRSWI, (SP)
PC
3(SP), (SP)
PC

;CLEAR ERROR SWIT(CH
;REMOVE ENTRY FROM SUBROUT
;RESTORE REGISTERS

TRAP
.WORD
.WORD

TSERCODE
10031
ERR6

STACK

;TEST IF ERROR RETURN
;YES - SKIP
;ELSE ADD IN ERROR RETURN
;ADJUST

FOR ERROR RETURN

BAD SECTOR CHECK ROUTINE. CHECKS IF SECTOR SPZCIFIED IN CURCYL,
DESHD, AND DESSEC 1S LISTED AS BAD IN THE BAD SECTOR FILES.

MOV

RO,=-(SP)

MOV
Mov
CLR
Mov
CMP

R1,-(SP)
R3,-(SP)
BSFLAG
MFBSFIL,R3
#-1,(R3)

Mov
(Mp
BEQ
MOV
MOV
ASL
DEC
BNE
787
BEQ
BIS
B1S
CMP
BEQ
BHI
BR
MOV
BR
(mp
BGT
MOV
MOV
MOV
151
BNE
ADD
RTS
MOV
RTS

#SBSFIL,R3
#-1,(R3)
20%
NEWCYL RO
M LRI
RO
R1
5%
DESHD
7%
#B176,R0
DESSEC,RO
(R3)+,R0
12%
15%
8$
#1,BSFLAG
20%
R3,#FBSFIL
2%
(SP)+,R3
(SP)+ R
(SP)+,RO
BSFLAG
99%
¥2,(SP)
PC
a(SP), (SP)
PC

BNE

;STORE REGISTERS

;CLEAR FLAG
;GET POINTER TO FACTORY FILE
sCHECK 1F ALL ONES

¢NO SKIP TO TEST

¢ELSE SET POINTER TO SOFTWARE FILE
;CHECK IF ALL ONES
JYES - EXIT
;BUILD HEADER OF ADDRESS IN QUESTION
;POSITION CYLINDER

; CHECK IF HEAD O
;YES - SKIP
; INSERT HEAD 1
: INSERT SECTOR
;CHECK THIS WORD IN FILE
;YES - EXIT,ERROR
;EX1T= NO ERROR

:SET ERROR FLAG
;G0 10 EXIT
:DONE BOTH FILES?
;NO GO DO SOFTWARE FILE
;ELSE RESTORE REGISTERS

; CHECK IF ERROR
JYES - SKIP
.ELSE BUMP ERROR RETURN
;SET

FOR ERROR RETURN

MACRO v03.01 9-FEB-79 19:23:55 PAGE

el el

023622
023626
023430
023432
023436
023436
023442
023446
023452
023654
023456
1735 023462
023462
023466
023472
023476
023500
023502
(23506
023512
023516
023520
023520
023524
023530
023534
023540
023542
023544
023550
023556
023562
023566
023572
023574
023602
023606
023610
023616
023622
023624
023632
023632
023636
023642
023646
023652
023654
023656
1753 023662
1754 023666
1755 023670
1756 023676

REPORT

-t OO
—

2NN
—= OO0~

il
il

NN NN N N N N~
W AN LN AN NN N N PO

ASSEMBLY ROUTINES

433

RPTOP:

002704
000002

014

3%:

002306

011167
£00002

1%:

002714

002736

#EMT9,-(SP)
#2,-(SP)
SP.RO

ADD

¥6,SP

PRINTB
MOV
MOV
MOV
MOV

002706

020000
000014

002706

020000

002706

002126
005376
010575
600003

20%:
22%:

¥2,R4
R4, SSINDX

#TISTLAB.,-(SP)

SEQUENCE

''SUBROUTINE

CALL

SEQ'

JPRINT

CALLING LOCATION
\

;BUMP INDEX
sCHECK [F ALL PRINTED

;LO0P IF NOT ALL PRINTED YET

W#FMT4,ERHEAD,#TSTLAB

:PRINT

ERROR HEADER

ERHEAD,-(SP)
#FEMT4,=-(SP)
#3,-(SP)
SP.RO

ADD
BIC
MoV

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

(mp

¥6,R1

($PNTB

#177741 ,R1
2%

sTESY

BIS
(MP

#SEEKOP,OPFLAG
#12,R1

BIS

#RORWOP ,OPFLAG

BNE

(MpP

BNE

209

#4,R1
22%

+STRIP ALL BUT FUNCTION CODE
SEEK OPERATION

;NO - SK]P
;ELSE
sTEST

SET SEEK FLAG
IF WRITE

;N0 = SK]P

;SET RD OR WRT

sTEST If READ

FLAG

:NO - SKIP

8IS
PRINTB
MOV

#RORWOP,OPFLAG
;SET RD OR WRT FLAG
#FMT1,#MOPER,OPMSGS(R1) ;PRINT OPERATION
OPMSGS(RY) ,=(SP)

MOV
MOV
MoV

SFMT1,=-(SP)
#3,-.5P)
SP,RO

#MOPER,=(SP)

CSPNTB

ADD

#10,SP

#ORSET,L.DA

(mMP
BNE
BEQ

AND

INDEX O

MOV
MOV
MOV
MoV

EMT

002742

TRACE

C$PNTB

#6,5P

MOov

MOV

000010
000004

;PRINT

#FMT16,SUBSTK(RSG)
SUBSTK(R&L) ,=(SP)
FEMT16,-(SP)
#2,-(SP)
SP,RO

b1 3

PRINTB

BNE

2%:

SUBROUTINE

CSPNTB

BLE

BIC

010000
000012

PRINTS

;SKIP IF O
:SET INDEXER TO FiRST ENTRY

W#FMT9,#SEQMES

MoV
MoV
MoV

EMT

177741
000006

000010

#SEQMES,-(SP)

ADD
cMp

010617
000003

001403

Mov

ADD

006363

000010
030000
002736

1%
#2,R4

EMTY

000006
000002
002704

OPERATION ROUTINE.

BEQ
MOV

EMT

000006

SEQ 0091

OPERATION BEING PERFORMED PORTION OF ALL
ERROR MESSAGES.
MOV
R&,-(SP)
151
SSINDX
sTEST SUBROUTINE
PRINTB

007430
011014
000002

3-35

R1,84
3)

;CHECK [F GET STATUS
‘N0 = SKIP

‘NO = SKIP

STEST

RESET

INCLUDED

FLAG

ATSEMBLY

ROUTINES

MACRD v03.01

9-FEB-79

19:23:55

PAGE

3-36

SEQ 0092
1757 023700
1758 023704

1759 023706

1760
1761
1762
1762
1764
1765
1766
1767
1768

023714
923716
023722
023726
023732
023734
02373¢
023740
023742

023742
023746
023752
023756
023760
023762

012701
000436

032737

001426
013704
012701
0327°C4
001003
005721
006204
000772

016146
012746
012746
010600
104014
062706

1769 023766

032737

1770 0237764
1771 023776

001415
012701

024002
026006
024012
024016
024020
0264022

016146
012746
012746
010600
104014
062706

1772 024002

1773
1774
1775
1776

0264026
024030
024036
024040

000434
032737
001430

000016

007777
002706
000020
000001

000006

100000

002706

8$%:

9% :

002126
010611
000002
000006
010000

003014
007371
003012
007364
003010
007356
003002
007407
011035
000011

024130
024134
0264140
024144
024150
024154

013746
012746
013746
012746
013746
012746

003016
007375
003014
007371
003006
007402
011364
000007

012746
012746
010600

6%:

000050

013746
012746
013746
012746
013746
012746
013746
012746
012746
012746
010600
104014
062706
032737
001424

024160
024164
026170

4$:

5%:

002126
010611
(00002

024040
024044
024050
024054
024060
024064
024070
024074
024100
024104
024110
024112
026114
'777 0264120
1778 024126
1779 024130

002706

000024
020000

002706

10%:

15%:

Mov
BR

76,R1
9%

BtQ
MOv
MOV
BIT
BNE
181
ASR
BR
PRINTB

8%
:NO - SKIP
OPFLAG,R4
;SET UP TO DETERMINE
#20,R1
;PRESET THE POINTER
#B1100,R4
;CHECK THE BIT
6%
sIF SET - SKIP
(R1)¢
;BUMP POINTER
R&
5%
WFEMT2 ,OPMSGS(RT)

BIT

#COMPOP ,OPF1 AG

SSET

TO PRINT

;TEST ]F ANY OTHER OPERATION

MOv
MOV
MOv
Mov
EMT
ADD

OPMSGS(R1) ,~(SP)
NEMT2,-(SP)
#2,-(SP)
SP,RO
($PNTB
#6,5P
MHDR4LO,OPFLAG

;TEST

BEQ
MOV

10%
#50,R1

:NO - SKIP
;ELSE PRINT

BIT

PRINTB

MOv
MOv
Mov
MOv
EMT
ADD

BR
BIT
BEQ
PRINTB

#FMT2,0PMSGS(RY)

HEADER

WHICH- ONE

OPERATION

OPMSGS
(R1) ,-(SP)
NEMT2,-(SP)
#2,-(SP)
SP,RO
CSPNTB
n6,5P

15%
: SKIP
NSEEKOP ,OPHLAG
;TEST IF SEEK
15%
:NO - SK]P
#FMT13 #FRMWO,OLDCYL ,#DIFWD ,DESDIF ,#SGNWD,DESSGN, #HDWD , DE SHD

MOV
Mov
MoV
MOv
MOv
MOov
Mov
MOV
MOv
MOv
MOV
EMT
ADD
Bl
BEQ

DESHD,=(SP)
#HOWD
, = (SP)
DESSGN,=(SP)
"#SGNWD,~(SP)
DESDIF ,=(SP)
#D1FWD,=-(SP)
oLoCyL,=(SP)
#FRMWD,~(SP)
NEMT13,-(SP)
#11,-(SP)
SP,RO
CSPNTB
#24,SP
#RORWOP ,OPFLAG
17%

MOV
MOV
MOv
MOV
MOV
MOv
MOV
MOv
MOV

DESSEC,-(SP)
NSECWD,-(SP)
DESHD,=(5P)
#HDWD
, = (SP)
CURCYL,=(SP)
#CYLWD,=(SP)
MEMT22,=(SP)
#7,-15P)
SP,RO

PRINTB

WITH RESET

;TEST IF READ OR WRITE SET
:NO - SKIP
#FMTZ2,#CYLWD,CURCYL
,#HDWD ,DESHD , #SECWD ,DESSEC

RSSEMBLY

ROUTINES

MACRO v03.01

9-FEB-79

19:23:55 PAGE

3-37

SEQ 0093

024360

024362
024366
024372
024376
024400
024402
1805 024406
1806 024410

DOOOD

0146
0346
0446

2701
2103

OO0 OCOO0O—-0O00000C
OO =COQOMN=ONOD
O = cd it ch e
O—=0O00O000
O—=O—-=0O0O0000

1802
1803
1804

1801

024302
024304
024310
024312
024316
024320
024322
024326
024326
026330
024334
024336
024342
024344
024346
024352
024356
024360

000020
024652

17%:

000207

1794
1795
1796
1797
1798
1799 024300
1800 024302

062706
004737
012604

——t el

1792
1793

024210
026212
024214
026216
026222
026224
024226
026226
024232
026236
024242
024244
024246
024252
024256
024260
026264
024270
024272
024276

1064014

= O0O0000O0

Q26172
026174
024200
024204
026206

RPTRES:

Ml
ADD
JSR

MoV
RTS

MOV

MoV

MOV
PRINIB
MOV

005405
010602

MOV
MOV

000003
000010

011021
010134

011027

3%:

(R1),-(SP)

#10,SP

BEQ
MOV
(MP
BNE
MOV
DEC

6%
FEMTTY,RG
(R1)+,#MCYLOC
3%
#FMT12,.RG
R3

SP,RO
CSPNTB

(R1),#MNDRST

010361

MOV

#RESED,-(SP)

000003

MOV

#3,-(SP)

EMT
ADD

C$PNTB
#10,SP

MOV

PRINTB
MOV

MOV

000003

000010
000002

010372
010575

000003
000010

R&4,#RESEL, (R1)+
(R1)+,=-(SP)

;NO - SKIP

;ELSE CHANGE TO FORMAT 12

:DEC PARAM COUNT

J1F 0 - EXIT
:REPORT

VALUE

;REPORT SB VALUE

WRESEL,=(SP)
SP,RO

#3,-(SP)

EMT
ADD
SUB
BEQ
PRINTB
MOV
MOV
MOV

($PNTB
#10,SP
¥ ,R3
6%

MOV
EMT

SP,RO
($PNTB

ADD

;PRISET FOR FORMAT 11
;CHECK IF REPORTING CYLINDER LOC

SP,RO

MOV

MOV
MOV

;TEST IF MESSAGE ]S NO DRv STATUS
;YES = SKIP REST OF REPORT

R&,=(SP)

MOV

R&4,#RESE3,(R1)+
(R1)+,=(SP)

MOV

REPORTS.

FMRSLT,-(SP)
#EMTY.Y,=(SP)

ADD

PRINTB
MOV

010365

:STORE R3
:STORE R4
#RESPARM,RI
;GET START COF PARAM
(R1)+,R3
;GET NUMBER OF PARAM
#FMT1.1,#MRSLT,
(RY)
;PRINT NAME

BEQ

000010

;RESTORE

R3,-(SP)

¥3,-(SP)

CMpP

sCLEAR PARAM TABLE

RG4 ,=(SP)

MmNV
MOV
EMT

010141

(SP)+ R4
PC

REPIRT REASON ROUTINE
PRINTS REASON PORTION FOR ALL ERROR
MOv
R1,-(SP)
;STORE R1

MOV

002764

(SPNTB
#20,5P
PC,CLRPARM

;DEC PARAM (OUNT

JIF 0 = EX]T
;REPORT CONDITION

WFMT1 #RESES,(R1)¢
(R1)+,-(SP)

#RESES,-(SP)
FEMTY,-(SP)

#3,-(SP)
#10,SP

(SP)+ R4
(SP)+,R3

;RESTORE REGS

ASSEMBLY

ROUTINES

1807 024412
1808 024414
1810
1811
1812 026416

024460
024464
0264470
026474
0264500
0264504
026510
024514
024520
* 024522

012746
012746
012746
012746
012746
012746
012746
012746
010600
104014

MOv
RTS

RPTREM:

PHYSICAL

s RETURN
ADDRESS OF

AND ALL REGISTER CONTENTS.

PRINTB

(LR

(SPNTB
#14,SP

006131
006117

MoV
MOV
MCV
MOov
MOV
MoV

#HOWD
, - (SP)
#CYLWD,-(SP)
#MPNAM,~-(SP)
#BANAM,-(SP)
#DANAM,-(SP)
NCSNAM,-(SP)

000007

MOV

¥7,-(SP)

007371
007402
006136
006124

010650

013746
013746
013746
013746
012746
012746
012746
010600
104014
062706

002744
002740
0N2742
002736
006143
010762
000006

024576
024600
024604
024610
024616
024620
024626
0264630
024634
024640
024642
024644

013746
013746
013746
013746
013746
013746
012746
012746
012746
010600
1064014
062706

003014
003006
002754
002750
002752
002746
006156
010712
000010

1827 024652

010546

MOV

EMT

L.MP,-(SP)
L.BA,=(SP)
L.DA,=-(5P)
L.CS,-(5P)
#LAB1,-(SP)
#EMIB,-(SP)
#6,-(SP)

EMT
ADD
PRINTB
MOV
MOV
MOV
MOV
MOv
MOV
MOV

(SPNTB
#16,SP
WFMT7,#LAB2,T7.CS,T1.DA,T.BA,T
. MP,CURCYL ,DESHD
DESHD,=(SP)
CURCYL,=(SP)
T.MP,~-(SP)
T.BA,=-(SP)
T.DA,=-(SP}
1.CS,-(SP)
#LABZ2,-(SP)

MOV

SP,RO

EMl
ADD
R1S

SP,RO

($PNTB

MOV
MOV
MOV
MOV
MoV
MOV
MoV

MOV
MOV

(LRPARM:

#EMT6,-(SP)

#20,5P

MOV

000022

SP,RO

ADD

PRINTB

TEST

REPORT RL1T REGISTERS
PRINTB
WFMT6, #CSNAM, #DANAM, #BANAM, K MPNAM, #( YL WD , #HDWD

mMov

000016

UNDER

=-(SP)

000014

MOV

DEVICE

WFMTS,#BASADD
,RLBAS ,#DRVNAM <B,RLDRV+1>

EMT
ADD

0264530
026534
024540
024544
026550
026554
0264560
024564
026566
024570

000207

(SP)+ ,R1
PC

RLDRV+1,(SP)
#DRVYNAM,~-(SP)
RLBAS,~-(SP)
#BASADD,-(SP)
NEMTS,-(SP)
#5,-(SP)

000020

1817 024650

SEQ 0094

BISB
MOV
MOV
MOV
MoV
mov

062706

1818
1819

REPORT

3-38

002735
009033
002730
006022
010630
000005

024526

1816 0264574

19:23:55 PAGE

005046
153716
012746
013746
012746
012746
012746
010600
104014
062706

1815 024530

9-FEB-79

012601
000207

0266416
026420
024424
0264430
0246434
024440
024444
024450
0264452
024456

1813
1814 024460

MACRO v03.01

WFMT8,#LABY,L.C(S,L.DA,L.BA,L.MP

SP,RO

WEMT7,=(SP)
#10,-(SP)
($PNTB
#22,5P
PC

(LEAR PARAMETER BLOCK

MOy

FOR REPORTING

RS,=t(5P)

:STORE RS

21
22
23
26
25
26

MACRO v03.01

002764
000005

9-FEB-79 19:23:55 PAGE

°%:

002764

30 024702

Mov
Mov

(LR
DEC
BNE

MOV
MOV
RTS

ol
ol
D
il
il
il
el
il

ROUTINES

026656
024660
0246664
026666
024670
024672
024676
28 024700

cpzc-ononcnoaooooon
no

e aamd

ASSEMBLY

ENDMOD

3-39

FRESPARM,
R

’5,R5
(R1)+
RS

SRESPARM,
R

{SP)¢ RS

SEQ 0095

;GET ADDRESS Of BLOCK
:SET (OUNT
:CLEAR WORD
;DEC COUNT
;LOOP UNTIL O

SREScT POINTER
;RESTORE RS

FIRLIAG RLOT/2 DR TST

2 MACRO v03.01 9-FEB=79

i9:23:55 PAGE

4
SEQ 0096

JTITLE

CIRLJAD RLO1/2 DR TST 2

CIRLJAG RLOYV/2 DR
1

4 0264702

5 024710
6 026714
7 0264720

8 024722

9 02472¢

10 024730
11 026473
12 024736

20
21
22
23

2 MACRO v03.01

9=FER=79 19:23:55 PAGE

024702

2
3 024702
024702

13
14
15
16
17
18
19

TST

024736
0264736

0264740
024746
024752
024754
024760
024766
024770

0247764
024776
025002
0250006
025006
025010
025012

24 025014

25 025016
26 025020
7 025022
025022
025026

BGNMOD

LSBYTL
BGNTS?
012737

006737
004737

015276
015312

004737

017546

025112

005005

004737
025112

104002

012737
004737
025066
012701
032762
001413
004737

025066
01270%
012704

&1 025076
02276
02%100
o/ 025102

1197%:

016746

177777
016206

++QUTER GUARD BAND DETECTION
JTEST
#P2103E ,ERHEAD

PC,TSTINT
PC,GSTATIR

11::

;SET ERROR HEADLR

INITIALIZE TEST
:CLEAR DRIVE

JSR

PC,CHOSHD

:GO CHOSE HEAD

(LR

:CLEAR FOR POSITION 10 0

JSR
11965%

000003
000001

EMT

003004

000000

8$%:

01534

012700
1064027

004737
025066

007561
010434

9% :
(uu012

000226

12¢%:

021026

021274

PC,POSHDS

;POSITION HEADS

15¢:
60$:

ENDSUB

L10021:

104008%
104010
000012
004737

002720

0175872

T1.1:
($BSUB

#-1, NEWCYL
PL,XSEEK

;SET FOR GUARD BAND
;D0 SEEK

SEEK

23, ,R1
;SET WAIT COUNT FOR 3MS
#ORDYMSK ,RLCS(R2) :TEST 1F DRIVE READY
9%
;NO=-SKIP
PC,G>TAT
:GET DRIVE STATUS

#MDRDY ,R3
#CIOMS RS
301.,,ERR&
T$ERCODE
301
ERR4

60%

:SET NAME MESSAGE PIR
;SET CONDITION MESSAGE
;REPORT READY ERROR

PIR

SEXIT TEST

DEC
BEQ
WALTUS

R1
12%
#10.

:DEC WwAIT COUNT
SSKIP 1F O

B8R
MOV

8¢
#150.,R1

:LOOP
;SET WAIT COUNT FOR 15 MS

PC.GETPOS

:GET POSITION

187
BEQ
ERRHRD
TRAP
LWORD
.WORD

CURCYL
15%
302.,.ERRS
T$ERCODE
302
ERRS

;CHECK 1F HEADS STILL AT O
JYES=SK]P
;ELSE REPORT CYLINDER ERROR

#2,ERRSY]

:INIT ERROR SWITCH

EM1

(SESUB

JSR
608

JSR
60%

003006

000002

B8R

MOV
EMT

104443
000456
012756
012737

Mov
JSR
60$
MOV
BIT
BEQ
JSR

60%
MoV
MOV
ERRHRD
TRAP
.WORD
.WORD

0053(C1
00140«

004737
025066
005737
001403

025074
02507«

JSK
JSR °

11965%

000424

I3
3¢
35
36
37

40 025C74

Moy

104443
000455
011710,

000753
012701

025044
025050
025052
02505¢
025060
025060
025062
025064
38 025066
39 025066

002714

SEQ 0097

BGNSUB

28 02503C
2% 025032

30 025036
;; 025042

006371

HRDWTST

«TEST

ESCAPE
EMY
LWORD
JSR

#10.,R0
(SWiU

PC,RDYWALT

181
(SESCAPE
110020-,
PC,SWAPHD

;WAIT FOR READY & REPORT

SEXIT

TEST

NOT READY

ERROR

;60 SWAP TO mEAD 1 OR END TEST

CIRLJAD RLOV/2 DR

F"{S1

63 025106
&4 025110
65 025112

TST

2 MACRO v03.01

9=FEB=79

*«QUTER GUARD BAND DETECT]ON

025112
000706

104001

19-23:9%5 PAGE

SEQ 0098
179
BR

1197%

;ABORT

RETURN

;REDO TEST

CIRLJAD RLOYV/Z DR 1ST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 6
2
*+ INCREMENTAL FORWARD SEEK HEAD O

OOWBNO
NS N

*TEST

025114
025114
025114
025122
025126
025132
025134
025140
02514¢
025146
025146

.SBTTL
BGNTST

002714

025174

104020

025176
9
025200
0 025206
| 025210
22 025214
23 025216
24 025226
25 025230
26 025230
27 02523«
28 025236
29 025242
10 025246

103007

—

004737
025312

S mry
-

025150
025152
025156
025162
025164
025164
025164
5 025166
6 025172
7 025174

18 025176

1S1

1064002

BGNSUB

021274

023737
001003
004737

017632

013737
005237

003006
003C04

004737
025312

016204

000405

003006

000226
021026

32 025250

004737
025312

021422

35 024256
36 025264
37 025266
38 025272
39 025274

032737

000002

«0
41
42
«%
&6
&5

025300
025302
025302
025810
025812
025320

025820
025320

46 025%22
&7 025322

029%2¢

025312

2%:

013350
016746

012701
004737

33 025254

MOv
JSR
JSK
12065%
JSR

001402

104032
000152
013705
004737
025322

*TEST

1206%:

PC,CHOSHD
DESHD

;GO CHOSE MEAD

2%
151
CSEXI1T
L10022-.

JSR

6C$

(MpP

5¢:

01334¢

021542

60%:
ENDSUB

L1002%:

12065%:
ENDTST

;CLEAR T0 POSITION HEADS 10 (OLIMIT
;POSITION HEADS

12.1:

PC,GETPOS

;GET POSITION
JCHECK

CURCYL NEW(YL

IN ERROR LOOP

JNO - SK]P
JCHECK JF POSIiTIONED AT DESIRED LOC
;NO - SK]P
;ELSE SWAP NEW AND OLD CYLINDERS
JSKIP

PC,ONSWAP

MoV

CURCYL NEWC YL

INC

NEWC YL

JPLACE CURRENT INTO NEw
sBUMP FOR ONE LYLINDER SEEK

JSR

PC,XSEEK

;D0 SEEK

MOV
JSR

£150. ,R1
PC,RDOYWALT

:SET WAIT

JSR

PC.VERPOS

;GO VERIFY POSITON

811
BEQ

SALLSEC, MISWIW
1%

;NO=-SK]P

JSR

PC,VERHDR

;60 VERIFY HEADER

(mp

HILIMW NEWC YL

MOV

#2,ERRSW]

EmT

(SESUB

JSR

11¢:

IS MEAD O

JSR

60%

020440

sTEST IF THIS
;YES - SKIP

12::

JELSE EXIT TEST

($BSUB

609

002720

;SET ERROR HEADER
JINITIALLZE TEST
;CLEAR DRIVE

EmT

60%

000002

#P2104E ,ERHEAD
PC,TSTINIT
PC.GSTATR

LOL IMW,RS
PC,POSHDS

60%

003004

JTEST 2

MOV
JSR
12065%

BNE

’%:

013352

¢+ INCREMENTAL FORWARD SEEXK HEAD 0

INLOOP
EMl
($INLP
BNCOMPLETE
BCC
5%

003004

003C04

BtQ
EX11
EmT
.WORD

SEa 9099

60%

BLO

PC,RDALHD

12069

:WAIT

sTEST

TIME

FOR READY

15 MS

CHECK ALL SECTORS

;G0 READ ALL HEADERS

JCHECK

WILIMIT

:NO-LOOP
¢INIT ERROR SWIT(H

REA(MED

110022

——

e
e em—

CIRLJAQ RLOY/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE
*TEST 2
*o INCREMENTAL FORWARD SEEK MEAD O

025%22

10400°

Em1

6-!

($ETST

SEQ 0100

CZRLJAD RLOV/2 DR 1ST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
*TEST 3
*+ INCREMENTAL REVERSE SEEK HEAD 0
LSBT
BGNTST

OOV
NO
SN

00643
015274
015312

002714

~nNo

w
~

~n
v

104002

~NOwWw

f X T WP

il ol el -madd

1064032

35
36
37
38
39
40

41
42
43
&4

o
o
o

~N
&~

~no
N
(V]

Fo
‘\

BGNSUB

021274

1216%:

[a¥)
N

(=)

023737
001003

2%:

104020

103007

NN NN NN [aV]1 VT VY,
¥7,¥] NNV
—
S wro —_ ~O 0o ~NO
SN SN NN=OW0

—

— e d

004737
025522

013352
016746

02545¢

004737
000405
013737
005337
004737
025522
012701
004737
025522

003006

003004

017632
003006
003004
016204

003004

;GO CHOSE HEAD
;TEST IF HEAD O SELECTED
;YES - SKIP
TEST

JELSE EXIT

PC,POSHDS

;SET TO POSITION HDS TO HILIMIT
;POSITION HEADS

CSEXIT
L10024-.
HILIMW,RS

13.1:

,GET POSITION
;CHECK IF
:NO

IN ERROR LOOP

SKIP

sCHECK JF POSITIONED
;NO - SK]P

DES LOC

:gL?E SWAP OLD AND NEW CYLINDERS
2

;PUT CURRENT INTO NEw
;DEC FOR ONE CYLINDER REVERSE
JSEEK Y0 |7

JSR

PC,VERPOS

VERIFY POSITION

Bl
BEQ
JSR
60%
JSR
60%

NFALLSEC,OPFLAG

11%

JTEST IF USE ALL SECTORS
;NO=-SK1P

PC,VERHDR

;VERIFY THE HEADERS

(MP

MOV

BLO

LOL MW NEWCYL
1216%
#2 ,ERRSWI

;(HECK 1F REACHED LOLIMIT
;NO = LOOP
;INIT ERROR SWIT(H

EMT

($ESUB

Em!

($ETST

003004

012737

000002

002720

104001

TEST

1S7

($BSUB
EMT
PC,GETPOS
JSR
6Cs
INLOOP
EMT
(SINLP
5%
BNCOMPLE Tt
5%
BCC
CMP
CURCYL ,NEWCYL
BNE
5%
JSR
PC,ONSWAP
7%
BR
MOV
CURCYL ,NEWCYL

60%
60%

013250

025532
025532

;CLEAR DRIVE

;SET WAIT FOR 15 MS

023757

65 025532
46 025532

JSR
12165%

DESHD

JINITIALIZE

#150.,R1
PC.RDYWALT

000002

104003

MOV

PC,CHOSHD

T3::

;SET ERROR ntADER

JSR

032737
001406
004737
025522
004737
025522

025530

JSR
JSK
12165%
JSR
181
BtQ
EXIT
EMT
.WORD

#P2T0SE ,ERHEAD
PC,TSTIN?
PC,GSTATR

MOv

025466
025474

103726

SEEK HEAD 0

000226
021026
021422

025512
025512
025520
025522
025530
025530

STic

NEWCYL
PC,XSEEK

004737

025476
025502
025504
025510

++INCREMENTAL REVERSE

DEC
JSR

7%:

025460
025464

025522

5%:

SEQ 0101

[

Mov

017546
00301¢

000152
013795
004737
025532

*TEST

60%

002706

021542
020440
11%:

60%:
ENDSUB

L10025:
12165%:
END1ST

L1002¢:

PC,RDALHD

;WAIT

FOR

READY

;ELSE READ ALL

THE

HDRS

SEEK

CIRLJAQ RLOY/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE 8
4
++INCREMENTAL FORWARD SEEK HEAD 1

NN
—O OO ~NO
SN

[V S

*TEST

025534
0¢553¢
025534
025542
025546
025552
025554
025560
025564
025570
025572
025600
025606

025610
025614
025616
025616
025620
025622
025622
025622
025622
025624
025630
025630

025632
025632
025634
025642

025644
025650
025652
025660
025664
02566/
025670
025672
025676

025702
025704
025710

025712
025720
025722
025726
025730
025734
0¢>736
025736
025744
025746
025754
025754
025754
025756

.SBTTL
BGNITST

012737
004737
004737
025756
005037
013705

006737
025756
012737
032737
001405
005737
001002

006453
015274
0153i¢2

002714

*TEST

000001
012000

2%:

1227%:

021274

104020

103007
023737
001003
004737
000405
013737

DESHD
LOLIMW,RS
PC,POSHDS

;SET HEAD 10 0
;CLEAR FOR POSITION HDS TO LOLIMIT
;POSITION HDS

#1,DESHD
FHEADLM M]ISWIW

:SET TO HEAD 1
STEST IF HEAD SPECIFIED

157

HEADW

EXIT
EMT
.WORD

187
CSEX]T
L10026-.

;TEST IF IT IS HEAD O
:NO - SKIP

EMT

($BSUB

005237

004737
025746
012701
004737
025746
004737
025746
032737
001406
004737
025746
004737
025746

104003

JSR
INLOOP

PC,GETPOS

BC(C

CSINLP
EMT
BNCOMPLETE 5%

003006

003004

:NO -

SKIP

SELSE EXIT TEST

003006
003004

003004

5%:
7%:

016204

021422
000002

013346

021542

003004

000002

002720
.

9¢:

60%:

12265%:

sCHECK [F AT DESIRED LOCATION
sNO - SKIP
:EU?: OLD AND NEwW CYLINDER

MOV
INC

CURCYL NEWCYL
NEWCYL

;MOVE CURRENT INTO NEW
;BUMP NEWCYL FOR ONE CYL FWRD SEEK

JSR

PC,XSEEK

;D0 SEEK

MOv
JSR
60%
JSR
60%

#150. ,R1
PC.RDYWALT

;SET WAIT (OUNT 15 MS

PC,VERPOS

;VERIFY POSITION IS CORRECT

BIT
BfQ

NALLSEC MISWIW
9%
PC,RDALHD

;CHECX ]F USE ALL SECTORS
:NO-SK]P
;ELSE READ ALL HEADERS

JSR
60%

PC,VERHDR

;VERIFY HEADERS

CMP

HILIMW NEWCYL

MOV

¥2 ,ERRSWI]

. CHECK ]F DONE
:NO - LOOP
;INIT ERROR SWITCH

EM1

($ESUB

BH!

ENDSUB

L10027:

SKIP

PC,ONSWAP

JSR

013352

:NO -

JSR

60%

020440

:GET CURRENT POSITION
;CHECK IF IN ERROR LOOP

CURCYL NEWCYL

60%

000226
021026

T14.1:

(MP

BNE

017632

14::

(LR
MOV
JSR
12265%
MOV

BGNSUB

104002
004737

JSET ERROR HEADER
SINITIALIZE TEST
;CLEAR DRIVE

BNE

104032
000136

STEST &
#P2106E ,ERHEAD
PC,ISTINT
PC,GSTATR

BI1
8tQ

01335¢4

*+INCREMENTAL FORWARD SEEK HEAD

MOV
JSR
JSK

12265%

003014
013350
016746

SEQ 0102

1227%

;WAIT

FOR

READY

——

CIRLJAQ RLOV/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 8-

*TEST

*+INCREMENTAL

69 025756

025756
025756

FORWARD SEEX HEAD

ENDTST

104001

L10026:

Emi

($ETST

SEQ 0103

N -8

POPONIND
b et b s el ot s

= OO0 ~NO NNl

—

S OVOONO

VLN

CIRLJAD RLOV/?2 DR TST 2 MACRO v03.01 9-FEB=-79 19:23:55 PAGE 9
*TEST S
*+ [NNER GUARD BAND DETECTION

025760
025760
025760
325766
025772
025776
026000
026004
026010
026014
026016

026016
026016
026020
026026
026032
026034

026040
026046
026050
026054
026056
026062
026066
026066
026070
026072
026074
026076
026100
026102
026102
026106
026110
026112
026116

026122

026124
026130
026132
026140
026140
026140

026142
026142

026144
026146

026152
026154
026156
026156
026156
026156
026156

.SBTTL
BGNTST

012737
004737
004737
026156
004737
013705
004737
026156
104002
013737
004737
026132
012701

032762
001413
004737
026132
012703
012704

006475
015274
015312

002714

Mov

JSR

JSK
12365%

0175446
002204
016746

1233%:

003004

+* [NNER GUARD BAND DETECTION

;TEST S

#P2107E ,ERHEAD
PC,TSTINT
PC,GSTATR

;SET ERROR HEADER
JINITIALIZE TEST
;CLEAR DRIVE

PC,CHOSHD
HLMTW,RS
PC,POSHDS

;G0 CHOSE MHEAD

($B8SuB
GBND NEWCYL

:SET FOR POSITION TO 255.
;POSITION HEADS
15.1:

MOv

#3..R1

;SET WAIT

015342

BIT
Bca
JSR

007561
010434

MOV
MoV

JSR

60%

000003
000001

000000

60%
ERRHRD
TRAP

9¢:

012700

000012

000753
012701
004737
026132

000226
021026

000002

.WORD
.WORD
B8R
DEC
BEQ

WAITUS
MOV

11%:

021422

002720

60%:
ENDSUB

L10031:

104003
104010

017572
15%:
12365%:

£10030:

COUNT

3 MS

#DRDYMSK ,RLCS(R2) ;CHECK IF READY
:NO-SK]P
PC,GSTAT
:GET DRIVE STATUS

#MDRDY,R3
#C10MS
R4
701., ,ERR4
TSERCODE
701
ERR&

60%

R1
118
710,
#10.,R0

;SET NAME MESSAGE PTR
;SET CONDITION MESSAGE PITR
:REPORT

READY

ERROR

JEXIT TEST
;DEC WAIT COUNT

JSKIP IR O

SWAIT

100 us

(SWiu
7$
#150. K1

;LOOP

PC,RDYWAILT

;60 WAIT FOR READY

JSR

PC,VERPOS

;60 VERIFY POSITION IS 255

MOv

#2,ERRSWI

s INIT ERROR SWIT(H

EMT
ESCAPE
EM1
.WORD
JSR
15%
B8R

(SESUB

EMT
B8R

MOV

JSR
60%

60%

181

(SESCAPE

L10030-.

Emi

;SET WAIT COUNT 15 MS

JEXIT TEST

IF ERROR

PC,SWAPHD

.GO SWAP TO HEAD

1233%

;REPEAT

END1ST
104001

15::

:SET FOR INNER GUARD BAND SEEK
;DO 1T

011710
000416
005301
001404

000012
004737
026156
000713

PC,XSEEK

Mov

001275

004737
026132
012737

12365%

EMT

104443

1064027

JSR

Mov

JSR

BGNSULB

002212
016204

*TEST

SEQ 0104

($E 15T

;ABORT RETURN
THE

TESTS

OR END TEST

>rO
PN
NN —=OO0BNPT
NS N

i
e
e
e
e
—

-t Pug

[aal
-]

RLOV/?2 OR

TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
**INCREMENTAL REVERSE SEEK HEAD 1

026160
026160
026160
026166
026172
026176
026200
026204
026210
026214
026216
026224
026232
026234

026240
026242
026242
026244
026246
026246
026246
026246

LSBTTL
BOGNTST

012737
004737
004737
02640C4
005037
013705
004737
026404
012727
032737

001405
005737
001002

MoV
JSR
JSK
12465%
(LR

MOV
JSR
12465%
MOV

000001
016000

BI1
8EQ

01335¢

181

104032

000140

2%:

BNE
EXIT
EMT
.WORD

SEQ 0105

¢+ INCREMENTAL REVERSE

SEEK HEAD

;TEST 6

1
16::

#P2108E ,ERHEAD
PC,TISTINT
PC,GSTATR

sSET ERROR MHEADER
JINITIALIZE TEST
JGET STATUS £ CLEAR

DE SHD

;SET TU HEAD 0
;SET TO POSITION HDS AT HILIMIT
;POSITION HDS

#1,DESHD
SHEADLM MISWIW

sSET TO SELECT HD 1

HEADW

;TEST

HILIMW,RS
PC,POSHDS

23
181
COEXIT
L10032-.

STEST
:NO -

IF HEAD
SKI]IP

;NO -

SK]P

SPECIFIED

IF HEAD SPECIFIED 1S O

SESLE EXIT

TEST

BONSUB
104002

026250
026254
026256
026256

00473"
02637.

026260
026262
026270
026272
026276
026300
026306
026312
026316
026320
026324
026330
026332
026336
026340
026346
026350
026354
026356
026362
026364
026364
026172
026374
026402
326402
026402
026404
026404

103007
02373%7
001003
004737
000405
0137%7
005337
004737
026374
012701
004737

026260

002714

*TEST

021274

1247%:

026374
004737
026374
032737
001406
004737
026374
004737
026374

003004

7%:

000226
021026

021422
000002

013346

013350

003004

012737

000002

002720

104003

9%:

60%:
ENDSUB

L10033:
12465%:

ENDTST

IN ERROR LOOP

iND - SKIP

JSR

PC,ONSWAP

sCHECK
;NO -

SKIP

POSITIONED AT

MOV CUR TO NEW
;DEC NEWCYL FOR 1

CURCYL ,NEWCYL

DEC
JSR

NEWCYL
PC,XSEEK

;00 SEEK

MOV
JSR
60%
JSR
60%
BI1

#150.,R1
PC,RDYWALT

;WAIT

PC,VERPOS

;VERIFY POSITION
;TEST

JSR

NALLSEC MISWIW
9%
PC,RDALHD

JSR

PC,VERHDR

C(MP

LOL IMW, NEWC
YL

MOy

#2 ,ERRSWI

EMI

($ESUB

60%

B8L0

1247%

DESIRED LOC

:gL?E SWAP OLD AND NEW CYLINDER

MOV

60%

020440

;CHECK

CURCYL ,NEWCYL

BEQ

021542

0c37%7
103726

5%:

;GET CURRENT POSITION

PC,GE TPOS

(MpP

BNE

017632
003006
003004
016204

JSR

60%

($BSUB

INLOOP
CSINLP
EMT
BNCOMPLE TE
BCC
5¢

10402)

003006

EMY

]
CYL REV SEEKX

;SET WAIT FOR 15 MS

FOR

;NO-EXI]T

;READ ALL

READY

ALL

SECTORS

HEADERS

:VERIFY HEADER

sVHECK 1F AT LOLIMIT
:NO - LOOP
;INIT ERROR SWITCH

(%?g#lg RLOY/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
** INCREMENTAL REVERSE SEEK HEAD 1

10-1

026404
026404

10400°

L10032:

EmI

SEQ Q106

($ETST

———
s et et

JAQ RLO1/2 "DR TST 2 MACRO
eeSEEK TESTS

N—=OO0W NO

POPINY = chh ed eed

s e el e v

WN = OOV

NO NN

4() 026604
41 026610
42 026614

J &3 026616
026622
&5
46
47
«8
49

.SBTTL
BGNTST

026406
026606
026406
026414
026420
026424
026426
026432
026436
026442
026444
026450
026452
026460
026464
026472
026474

026500
026502
026506
026512
23 026514
24 026516
25 026522
26 026530
27 026532
28 026540
29 026542
30 0256550
31 026552
32 026560
33 026560
026560
026560
4 026562
02656¢
35 026564
026564
36 026566
37 026572
38 026574
39 026602

0266206
026630
0266%
026636
026644

026644
- 026644
50 026646

v03.01 9-FEB-79 19:23:55 PAGE 11

002714

eTEST

MOV
JSR

JSKR

12565%

021274
103006
002332
000001

1256%:

003004
002200

MOV

1258%:

00236C
12588%:

013350

003004

013352
003004

1257%:

G$:
11%:
BGNSUB

104003

017632
016204

005670
021026
021422
000002

002720

60%:

ENDSUB

L10035:

TESTS

JINITIALIZE

PC,CHOSHD
LOL 1MW, RS
PC,POSHDS

;60 CHOSE HEAD
;SET TO POSTION HEADS 10 LOLIMITY
;POSITION HDS TO LOWLIMIT

PC,GETPOS

;GET CURRENT POSITION

CURCYL ,NEWCYL

sPUT

#1,1.DRIVE

:CHECK

TYPE

;POINT

TO THE

PC,GSTAIR

#1251BL ,R4

12588%

#1251B2,R4

;sCLEAR DRIVE

TEST

CURRENT

;SET POINTER TO TABLE OF
;BRANCH IF

RLO1

DRIVE

RLOZ2

(MP

BLE

RS ,NEWCYL
NEWCYL,LOLIMW

LOLIMW, NEWCYL

NEWCYL, HILIMW

11¢

CHECK

SKIP

FOR RLO1

CYLINDERS

NEW DIFFERENCE

IN BOUNDS

:NO -

(R4) ,R1

SEEK DIFF

TABLE

12517%%

(R&)
¢+ ,RS

HILIMW,RY

INTO NEW

BHI

ADD
(MP
BGE

17::

;SET ERROR HEADER

LOL IMW, R

TEST

:ADD TO PRESENT POSITION
;CHECK 1F AT OR PAST LOLIMIT
;NO - SKIP
;ELSE SET TO LOLIMIT
;OHECK

JNO -

JF
SKIP

SET

HILIMIT

OR GREATER
a

FOR HILIMIT

MOV

HILIMW, NEWCYL

EMT
INLOOP
EMY

($BSUB

CSINLP

JSR

PC,GETPOS

;GET CURRENT POSITION

(MP

CURCYL ,NEWCYL

JSR
JSR

PC,ONSWAP
PC,XSEEK®

;CHECK IF HEADS AT DESIRED PCSITION
:NO - SKIP
JELSE SWAP CURRENT AND NEW (YL NDERS
;DO SEEK

#3000.,RY
PC,RDYWALT

+SET WAJT COUNT
;WAIT FOR READY

BNE
13%:

++SEEK

SUB

60%

003004

#P2T109E ,ERHEAD
PC,ISTINT

BNCOMPLETE
13%
BCC

021274

003006

;TEST

;PUT FIRST IN RS
;GET HILIMIT
.. SUBTRACT LOLIMIT

MOV

104020

004737
026636
023737
001002
004737
004737
026636
012701
004737
026636
004737
026636
0127537

BEQ

(MP

104002

103011

(mMpP

MCv

003004
003004

013352

MOv

MOV

013 35 2
1335 0
013

013737

JSR
MOV
JSR
12565%
JSR
12565%

SeEa 0107

60%
MOV
JSR
60%

;ELSE

17.1:

13%

JCHECK

;NO -

SKIP

IN ERROR LOOP

JSR
60%
MOV

PC,VERPOS

sVERIFY POS]ITION

#2,ERRSWI

JINITIALIZE ERROR SWIT(H

EMT

($ESLB

ESCAPE

1S1

JEXIT

TEST

ERROR

RLO1/2 DR TST 2 MACRO v03.01
«oSEEK TESTS

026646

026650
026652
026660
026662
026664
026666
026674
026676
026702
026704
026710

026712
026714
026714
026714
026714

9=FEB=-79

104010

000044
023737
001002
005405
000714
023737
001310
0216437
001276
006737
026714
(00654

104001

19:23:55 PAGE

003004

013350

003004

002204
017572

9
SEQ 0108

EMT

013352

11-1

LWORD
(mp
BNE
NEG
BR
15%:
(mp
BNE
(mp
BNE
1251/7%: JSR
12565%
12565%:
ENDTST
1L1003%:

(SESCAPE

L1003%-.
HILIMW NEWC YL
15%
RS
1257%
LOL IMW, NEWCYL
1257%
(RG) .MM
12588%
PC,SWAPHD
1256%

;CHECK JF SEEX WAS TO MILIMIT
;NO - SKIP
sELSE SET RS TO REPEAT DIFF IN RFVERSE

JTEST IF LAST SEEK WAS 10 LOLIMIT
sNO - GO DO SEEK TEST
JCHMECK IF ALL TABLE DIFF USED
JNO - SKIP
;G0 SWAP TO MEAD 1 OR END TEST
;ABORT RETURN
;REPEAT

TEST HEAD
'

($E 157

NNNNN_‘—‘—‘—‘—‘—;—‘_‘—-‘—‘

W —=OO0OONONLS
W

CIRLJAD RLOV/? DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGt
*+F ORWARD OSCILLATING SEEK
*TEST 8
026716
026716
026716
026724
026730
026734
026736
026742
026746
026754
026756
026762
026766
026774
026776

027004
027010

S NN

027012
027016
027022
027024
027030
027032
027036
027036
027036
027040
027040
027042
027042
027044
027050
027052
0¢7060
31 027062
15 027066
027072
027074
0271C0
027104
027106
027112
027114

027120
027122
027126
02713%
027136
027146
027146
027154
027154
027154
0271%6
027156
027160

LSBTTL
BGNTST

012737
004737
004737
027232
004737
012705
032737
001402
013705
005037
032737
001403
013737
004737
027212
012701
004737
027212
004737
027212
010537

006562
015274
015312
017545
000001
020000

013352
003004
040000

013350
016204

002714

013346

013346
003004

1266%:

2%:

5¢%:

1267%:

003004

BGNSUB

104002
1064020

103011
004737

027146
023737
001002
004737
004737
027146
012701
004737
027146
004737
027146
005737
001412
005037
032737
001754
0137537
000750
012737
104003

104010

000032

021274
003006

003004

017632
016204

18¢%:

005670
021026
021422

003012

sTEST 8

SEQ 0109
++fORWARD OSCILLATING

MmOV

#P2T110E ,ERHEAD

JSKR

PC,GSTAIR

JSR

005670
021026

021274

+TEST

12665%
JSR

MOV

Bit
BeQ

PC,C(HOSHD
#1,RS

;60 CHOSE HEAD

HILIMW,
RS
NEWCYL

BEQ

5¢

B8l1

MOV

JSR
12665%
MOV
JSR

12665%
JSR
12665%

MOV

#LOCYL ,MISWIW

;CLEAR DRIVE

;LOAD RS FOR FIRST SEEK
sTEST

;CHECK

:NO -

SKIP

LO CvL

SPEC'D

LOL MW,NEWC
YL

JELSE SET LOWER LIMIT
;D0 SEEK

#3000.
R
PC,RDYWALT

;SET WAIT COUNT FOR 120 MS

PC,GETPOS

:GET HEAD POSITION

RS NEWC
YL

JLOAD NEW CYLINDER

PC,XSEEK

;WAIT

FOR READY

;NO -

SKIP

BNE

:NO - SKIP

IN ERROR LOOP

;GEY POSITION

(Mp

CURCYL ,NEWC YL

;CHECK

JSR
JSR

PC,ONSWAP
PC,XSEEK

;D0 SEEK

18%

HEADS

;SWAP OLD

DESIRED LOC
AND NEW

#3000.,R1
PC,RDYWAL?

;SET WAIT COUNT 120 MS

PC,VERPOS

SVERIFY HEAD POSITION

DESSGN

;WAIT

STEST

FOR

READY

JUST SEEK REV

BEQ

(4}3

#LOCYL ,MISWiW

sELSE SET TO SEEX 10 O
;CHECK [F LO LIMIT SPEC'D
JELSE SET LOW LIMIT FOR SEEK

s YES

SKIP

013346

BIT

013350

003004

MOV

LOL IMW, NEWC YL

000002

002720

MOV

#2,ERRSWI]

:INIT ERROR SWITCH

Emy
ESCAPE
Emy

(SESUB
TS1
(SESCAPE

JEXIT

(LR

BEQ

£10037:

INTO NEWCYL
18.1:

003004
0640000

609%:
ENDSUB

SPECED

sSET TO SEEK TO CvL O

s(HECK

181

CYLINDER

:NO - SKIP
;ELSE SET UPPER LIMIT

M
(3BSUB
INLOOP
(SINLP
EM
BNCOMPLETE
18%
BCC
18%
JSR
PC.GETPOS
60%

60%
MOV
JSR
60%
JSR
60%

TEST

sINITIALIZE

MOV
(LR

18::

;SET ERROR MEADER

PC,ISTINT

SHICYL ,MISWIW
2%

SEEK

.WORD

NEJCYL

18%

L1003%6=

sNO -

SK]P

TEST

ERROR

(IRLJAD RLO1/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE
*TEST 8
*+fORWARD OSCILLATING SEEK

027162
027170
027172
027174

03278Z
0010
005205
020537
001311
004737
0e72i2

000654

104001

020000

0'3346

002212
017572

20%:
12665%:
ENDTST

L10036:

BIT
BNE
INC
(mp
BNE
JSK
12665%
BR

Emi

12-1

frlCyL

20%

SEQ 0110
MiSwlw

RS
RS,GBND ;ALL
1267%
PC,SWAPHD

1266%

($ET1ST

;TEST IF UPPER LIMIT SPEC'D

;YES

SK]P

:BUMP RS

CYLINDERS DONE
:NO - GO DO NEXT

CYLINDER

;60 SWAP TO HEAD 1 GR END TEST

;ABORT

RETURN

;6N DO TESTS

S NN =D OB NN

PONIAURINY
b ol et b ol e ook s ed

WA= OO

NO NN

N —

CIRLUA

«TEST

Q0172 DR IST 2 MACRO v03.01 9-FEB=79
**REVERSE OSCILLATING SEEK

027214
027214
027214

027222

027226
027232
027234
0272640
027246
027254
027256
027264
027270
027276
027300
027304
027310
027312
027316
027322
027324
027330
027332
027336
027336
027336
027340
027340
027342
0273%¢
027344
027350
027352
027360
027362
027366
027372
027374
027400
0276404
0276406
0276412
027414
027420
0276422
027430
0274%
027440
027440
027450
027456
027456
027456
027460
027460
027462

.SBTTL

BGNTST
012 737

004 737

004 737
0275319
004 737
013 737
032 737
(J14 3
013737
032737
001402
013705

027510
004737
027510
0047
0275
0105

006557

002714

017546
002206
020000

003004
013346

013352
002210
040000

003004
0%
013346

013350
016204

5%:

015274
015312

1275%:

005670
021026
021274

1276%:

003004

BGNSUB

104002

10301

104003

104010
000026

Sea 011°
*1EST

MOv
JSR
JSK
12765%
JSR

**REVERSE

TEST 9

#P2TV1E ,ERHEAD
PC,TSTINT
PC,GSTATR

PC,CHOSHD

;SET ERROR MHEADER
JINITIALIZE TEST
;CLFAR DRIVE

;G0 CHOSE HEAD

;SEEXK OUT

MOV
MOV

HILIMW NEWCYL
NXTHL,RS

JELSE SET UPPER LIMIT
:SET RS FOR FIRST SEEKS

MOV

LOL iMW, RS

;SET LOWER LIMIT

BiT
BtQ
BIT
BtQ

JSR
12765%
MoV
JSR
12765%
JSI
12765%
MOV

ng
6
(MP

BNt
18%:

JSR

Jé:
6

MOV
Jsg
60
Jé:
6
151

FHICYL
°%

MISWIW

#LOCYL MISWIW
5%
PC,XSEEK

JVEST
:NO -

;SET WALIT T0 120 MS
;WAIT FOR DRIVE READY

PC,GETPOS

;GEY

POSITION

RS, NEWC YL

;SET

FOR NEXT

18%

;CHECK

18%

PC,GETPOS

JELSE

GET

CURCYL ,NEWCYL

JCHECK

PC,ONSWAP

JELSE

18%

PC,XSEEK

IN ERROR LOOP

POSITION

;NO = SKIP
;D0

DESIRED CviL

SWAP OLD AND NEW (YL

SEEK

#3000. ,R1
PC,RDYWALT

;SET WAIT FOR 120 MS
;WAIT FOR READY

PC,VERPOS

JVERIFY

POSITION

DESSON

JCHECK

HLMTW NEWCYL

JELSE

SEEK

JTEST

003004

MOV

?éilHU.NEULVL

;SET

60%:

;NO - SKIP

AHICYL MISWIW

002720

SEEK
9. 1:

18%

MOV

#2,ERRSWI

(SESULB

JUST

YES = SK]IP

SEEK

ESCAPE
EMT

LORD

T1S1
(SESCAPE
1100640~

FWD

10 10 255

MILIMIT

:NO - SK]P

SPEC'D

10 UPPER LIMITY

;INIT

ERROR

SWITCH

SEXLY

TEST

IF
.

ENDSUB

L10041:

SPEC'D

#3000..R1
PC,RDYWALT

013346

BtQ

SPEC'D

;00 SEEK

60%

MOV

TO 255.

IF UPPER LIMIT
SKIP

JCHECK IF LO LIMIT
;NO - SKIP

BNE

003004

HLMTW, NEWCYL

BCC
003004

OSCILLATING SEEK

MOov

EM1
($BSUB
INLOOP
CSINLP
EMT
BNCOMPLETE

134020

021274
004737
027450
023737
003006
001002
004737
017632
004737
0162064
027450
012701
005670
004737
021026
027450
004737
021422
027450
005737
003012
0010
013
002204
3
- 020000
00
O1
013352
00
01
000002

19:23:59 PAGE

ERROR

CIRLIAQ R101/2 DR

eTEST

1ST 2 MACRO v03.01 9-FEB=79
++REVERSE OSCILLATING SEEK

49 027464

027472
027474
027476
027500
027504
027506

027510
027510
027510
027510

032737
001002
005305

040000

004737
027510
000654

017572

100312

104001

19:23:55 PAGE

013346

SEQ 0112
Bl

20%:

12765%:

ENDTST
110040:

13-}

BNE
DEC
BPL
JSR
12765%
BR

emt

PC,SWAPHD

STEST IF LOLIMIT SPEC'D
JYES - SKIP
;DEC CYLINDER COUNT
J1F STILL POSITIVE, DO SEEKS AGAIN
;60 SWAP TO HEAD 1 OR END TEST

1275%

;LOOP AGAIN

#LOCYL

20%

MISWIW

RS
1276%

(6TRRY

;ABORT

RETURN

CZRLJAD RLOY/2 DR TST

*1EST

2 MACRO v03.01
TIMING

9-FEB=79 19:23:55 PAGE
.SBTTL
BONTST

006574

002714

013346

~
wn
V)

031346
015274
015312

010046

49 027774

50 027776
027776

MOV
MOv
(LR

#0F IN,RO
n24, R1
(RO)

65%

PC,TSTINT
PC,GSTATR

MOV

#3000. ,R1

021422

JSR
65%
JSR
MOv

017546
003052
003054
003066
003070
000001
000200
000110
002734

002742
002736

65%
JSR

659

003004
003136

003040
003040
003040

8%:

:
9%

000004
000000

MOV
MOV
Mov
MOv
MOv
Mov

8IS
BlC
JSR

65%

MOV
MOv
MOV

WALTUS

002710

181
BNE

104448

005670
021026

005737
001010
004737
012603

100005

PASNUM

NEWCYL
rC,XSEEK

MOV

000137
005737

#P2112E ,ERHEAD

MISWiw
18

000012

106443
002261
011526

*++SEEXK TIMING
STEST 10

MOv
181
BNE
157
BM]
JMP
JSR
JSR

012700

104027

DEC
BNE
(LR
(LR
JSR

002000
016174

47 027764

4%:

003134
003004
016206

012701
012703
012704
012737
012737
012737

*TEST

65%

003042
000030

PIPNIAD ot ed b o ot e

s b e

N=O DO NPNL NN = OO0V

~IP NS

003342

SEG 0113

+*SEEX

EMT

015142

JSR

MOV

ERRHRD
TRAP

.WORD

031346
002746

17%:

JMP
181
BPL
ERRHRD
TRAP

:SET ERROR HEADER
JTEST IF PASS O
JNO - SK]P
JTEST IF MANUAL
;YES - SKIP

:GET ADDRESS OF 1ST TIME VALUE
sSET COUNT FOR CLEAR
;CLEAR

TIMER

STORAGE

;CLEAR PASS COUNTER

;POSITION HEADS AT 0

;D0 SEEK

;SET WAIT FOR 300 MS

PC,VERPOS

sVERIFY POSITION

#O0ROUTU
R4
,

RLDRV,TEMP8

#BIT10,TEMPS
PC,XSEEKY

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

FOR

READY

;GO CHOSE HEAD

sSET PTRS FOR 1 (Y1

;BUILD READ HEADER (OMMAND

;00 SEEK BUILD BUT DO NOT STARY

sLOAD RL REGISTERS
;STORE RO

PC,WALITIN

;WAIT FOR INTERRUPT
;GET MESSAGE POINTER

(SP)+ R}
1201,
, ,ERR}
ERCODE

FWD OUTER TIMER

SSET NEWCYL TO (vL 1
;SET COUNTER FOR SEEK LOOP

RO,=-(SP)
710,
#10.,R0
(Swiv
DONE

17%

RUN

;CLEAR DRIVE

:WAIT

1 NEWCYL
#128,,COUNT
#RDHEAD ,TEMPB

TESTS WERE

JELSE EXIT TEST
s INITIALIZE TEST

PC,RDYWALT

PC,CHOSHD
#0t0UT,RO
#0FOUTU,RI
#OROUT ,R3

110::

;WAIT

FOR

STEST

;VES -

INTERRUPI

INTERRUPT

SKIP

CHECK IF ANY ERRORS

JNO =

SKIP

CIRLJAD RLOV/2 DR TST

*TEST

(S AV RV, LV ]

NN
—

55
56
57
58
59
60
61
62
63
64
65
66
67
€8
€9

++SEEK

030000
030002
030004
030010
030014
030022
030022
030026
030030
030030
030032
030034
030036
030044
030050
030052
030056
030060
030062
030064

030066
030070
030072
030076
030100
70 030104

71
72
73
74

75
76
77
78
79

030106
030112
030116
030122

030124
030126
030130
030132
030134

80 03013¢
21

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

95
96
97
98
99
100
101

030140

030142
030146
030154
030156
030164
030172
030174
030202

030206
030210
030214
030220
030222

030226
030230
030234
030240
030244
030250
030256

002262
012030

2 MACRO v03.01
TIMING

000137
005037
013762

031346
002710
003040

0127G9

003720

104027

1064052
010005
012600

013737
004737
031346
005737
001403
060510
005511
000402
060513
005514
005337
001403
004737
000701

162710
162713
012705
000261
006011
006010
000241
006014
006013
005305
001370

005237
022737
001051
012737
022737
001403
012737

003040
021622

9-FEB=-79 19:23:55 PAGE

SEQ 0114

000000

14%:

.WORD
.WORD
JMP
CLR

MOv
WALTUS
MOV

EMT
GETTIM
EMT

MOV
MOV
MOV

002736

JSR

659

003012

151

BEQ
ADD
ADC

15%:

003136

16%:

017632

000470
000470
000006

18%:

10%:

ADD
AD(C

DEC

BEQ
JSR
BR
SuB
SUB

MOv
g

RGR
ROR
(Le
ROR
ROR

003134

DEC
BNE
INC
(MP
BNE

RO,RS
(SP)+,RO
TEMP8,L.CS
PC.,VERPOS
DESSON
15%

RS, (RO)
(R1)
16%
RS, (R3)
(R&)

COUNT

18%

PC,ONSWAP

9%
#312.,(R0O)
#312.,(R3)
¥6,RS

(R1)
(RO)

;WAIT

;GET

FOR

INTERRUPT

TIME USED

;RESTORE RO

;SET IF ERROR T0 REPORT
;VERIFY POSITION
sCHECK WHICH SEEK DIRECTION

JREVERSE - SKIP
;ADD TO FORWARD TOTAL

sADD IN OVERFLOW

;SKIP

sADD

TO REVERSE

JADD IN OVERFLOW
;DEC SEEXK COUNT
;SKIP

TOTAL

;ELSE SWAP OLD AND NEW CYL
;REDO SEEK LOOP
;SUB CONSTANT FOR READ HEADER TIME

;SET SHIFT COUNT

T0 DIVIDE BY 64

:DIVIDE BOTH TOTALS BY 64

(R&)

(R3)
RS
10%

;SET WAIT COUNT FOR 300 MS

JSR

PC,VERPOS

;VERIFY POSITION

MOV
Mov
MOV
MOV
MOV

#OFMID,RO
#OFMIDU,RY
SORMID,R3
#ORMIDU
R4

;SET PTRS FOR TIMING 1 CvyL Sk AT

MOV

000377
016204

003004

MOV

(mp
BEQ
JSR

65%
659

65%

003004
002200

(SGTIM

;CLEAR INTERRUPT FLAG
sLOAD RL REGISTER

#3000. ,R1

002004
002200

021422

DONE
TEMP8,RLCS(R2)
#2000.
#2000.,R0
(SWiU
RS

MOv
JSR

000177
000001

005670
021026

65%

PC,XSEEK

003134

101%:

1202
ERRG

;BUMP PASS COUNT
;TEST 1F PASS 1
:NO - SK]P
ELSE SET TO POSITION HDS T0 12/
;DRIVE = RLO1?
;YUP
sNO = SET FOR A MID POS SEEK RLOZ
;D0 SEEK

000001

003046
0030%0
003062
003064
000200
000001

14-1

(mp

PASCNT
#1,PASCNT

24%

M127. NEWCYL
#1,1.DRIVE
101%
#255. ,NewCvL

PC,RDYWALT

#128, NEWCYL
T DRIVE

;WAIT

FOR READY

sSET NEWCYL TO 128
;RLOV?

127

CIRLJAO RLOY/2 DR TST

*1TEST

102
103
104
105

106
107
108
109
110
111
112
113
114
115
116

**SEEK

030266
030266
030274
030300

030306
030310
030316
03G322

001403
012737
000137
022737

001033
013737
004737
031346

2 MACRO v03.01
TIMING

000400
027660
000002

002210
016204

9-FEB-79 19:23:55 PAGE

003004
003134

1028:
24%:

003004

BEQ’
MOV
Jmp
(MP

BNE
MOV
JSR
65%

14<?

102$
#256. NEWCYL
8%
#2 ,PASCNT

28%
NXTHL ,NEWCYL
PC,XSEEK

SEa 0115

;YUP
:SET FOR RLO2
:00 SEEK LOOP
sTEST IF PASS 2

;NO - SKIP
;SET UP TO TIME
;LM

030326
030330

012701
004737

005670
021026

MOV
JSR

#3000.,R1
PC.RDYWALT

;SET WAIT COUNT
;WAIT FOR READY

030336
030362
030344
030350
117 030354
118 030360
119 030364

004737
(031346
012700
012701
012703
012704
013737

021622

PC,VERPOS

;VERIFY POSITION

003042
003044
003056
003060
002204

#OFIN,RO
#OF INU,R1
NORIN,R3
#ORINU,RG
HLMTW, NEWCYL

;SET POINTERS

003006

JSR
65%
MoV
MOV
MOV
MOV
MOV

:LOAD NEW CYLINDER

121

030376

022737

000003

003136

(MP

#3,PASTNT

;TEST

123
126
125
126
127
128
129
130
131
132
133
134
135
136
137

030406
030412
030416
030620
030426
030430
030432
030436
030440
030444
030450
030454
030460
030466
030474

005037
0064737
031346
012701
004737
031346
004737
031346
012700
012701
012703
012704
012737
022737
001505

003004
016204

139
140
141
142
143
144
145
146
147
148

030504
030506
030514
030516
030524
030532
0305364
030542
030566
030550

000501
022737
001C41
012737
022737
001403
012737
004737
031346
012701

030334

120 030372

122 030406

118 030476

149
150
151
152
153
154
155

030554
030560
030562
030566
030570
030574
030600

156 030604

157 030610

158 030616

031346

000137

001040

012737

004737
031346
004737
031346
012700
012701
012703
012704

013737
000434

027660

65%

28%:

021422

003004
002200

000377

003004

000004

003136

000200
000001

003004
002200

000400
016204

003004

005670
021026

003072
003074

003102

002204

MOV

32%:

3218:

BR
(MP
BNE
MOV
(mp
BEQ
MOV
JSR
65%
MOV

JSR
65%
JSR
65%
MOV
MOV
MOV

021422

003104

BNE

CLR
JSR
65%
MOV
JSR
65%
JSR
65%
MOV
MOV
MOV
MOV
MOV
(MP
BEQ

005670
021026

003076
003100
003106
003100
000177
000001

JMP

003004

MOV

MOV
BR

32%

NEWCYL
PC,XSEEK

;D0 SEEK LOOP
IF

PASS

:NO - SKIP

CvL SEEK AT

FOR 300 MS

;ELSE SET UP TO TIME
.
AT OUTER LIMIT

128 (YL

#3000. ,R1
PC.RDYWA]T

;SET WAIT COUNT FOR 300 MsS
:WAIT FOR DRIVE READY

PC,VERPOS

;VERIFY POSITION

#HFOUT,RO
#HFOUTU
R1
#HROUT ,R3
NHFOUTU,RG
#127. NEWCYL
#1,T.DRIVE
39%

:SET

#255. NEWCYL

INNER

SEEK

POINTERS

:LOAD NEWCYL FOR 128 CYL SEEK
:RLO1T?
;YUP
:NO = SET FOR RL02

39%
¥4 PASCNT
369
¥128. NEWCYL
#1,T.DRIVE
5219
#256. NEWCYL
PC.XSEEK

;TEST IF PASS 4
:NO - SKIP
;ELSE SET UP TO TIME
;RLOY?
s YES
:NO -~ SET FOR RLO2
: AT INNER LIMIT

#3000..R1
PC,RDYWAIT

;SET WAIT COUNT FOR
;WALT FOR READY

PC.VERPOS

;VERIFY POSITION

#HFIN,RO
#HF INU,R1

;SET

128 (YL

SEEK

300 MS

POINTERS

FHRIN,R3

#HRINU,RG

HLMTW, NEWCYL
39%

;SET NEWCYL TO 255 FOR 128 (vL StEx

:D0 TIMING LOOP

CZRLJAOORL01/2 DR TST 2 MACRO v03.01
r+SEEK TIMING

*+1EST

~N~N

N =

—

(V]

[on XE

T QT O

OWNINGN

OO0O0ODOO

004737
031346
004737
031346

030730
030734
030736
030740

022737
001032
005037
004737
031346
012701

OOO0O0O0

159 030620
160 030626
161 030630
162 030634
163 030640
164 030642
165 030646
166 030652
167 030654
168 030660
169 030662
170 030666
171 030672
172 030676
173 030702
174 030710
175 030714
030714
030720
030724

030744
030746

[V JV IV TV RV RV QL

179

RV RV W RV

AV AV LV LV JV LV LV ]

177 03100€

017

36$:

00704C
007002
010602
000003

#5,PASCNT
40%
NEWCYL

;TEST IF PASS 5
:NO - SKIP
;ELSE SET UP TO TIME 256 CvL

Mov

#3000. ,R1

;SET WAIT COUNT FGR 300 MS

JSR

PC.,VERPOS

<VERIFY POSITION

Mov
Mov
Mov
MOV
MOV

#AFMID,RO
FAFMIDU,RY

:SET

POINTERS

;SET

NEWCYL

JSR

65%

021422

003112
003114
003116
003120
002204
027660

cMpP
BNE
CLR
JSR

65%

005670
021026

002735
006033
002730
006022
010630
000005

030752
030756

003134

659

003004

14-3
SEQ 0116

003004
01620«

000010

176 030746

178

000005

9-FEB-79 19:23:55 PAGE

19%:

40%:

JMP

PRINTF
MOV
Mov
MOV
MOV
MOV

EMT

ADD
PRINTF

CLR
B1SB
MOV

PC,XSEEK

PC,RDYWALT

;

OVER ALL

;WAIT

SURFACE

FOR DRIVE

READY

#ARMID,R3

#ARMIDU,R4
S%HIH,NEUCYL

NFEMT1.1,#SKTMES,#VALDES

#VALDES,-(SP)
#SKTMES ,-(SP)
NEMTY,1,-(SP)

#3,-(SP)

SP,RO
CSPNTF

#0,5P
#tg;?.lBASADD.RLBAS.IDRVNAM,<B,RLDRV01>
RLDRV+1, (SP)
#DRVNAM,-(SP)

MOV
MOV
MOV
MOV
MOV

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

000014

ADD

007117
007111
007102
007074
011222
000005

MoV
Mov
MOV
MOov
MOV
MoV
MOV

"é,SP
NFMT18 SLABIN,#LABMID,#LABOUT
, #LABE XP
#LABEXP,-(SP)

000014

003122
003052
003046
003042
007130
011254
000006

000016

EMT

PRINTF

EMT

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

SP,RO
CSPNTF

#LABOUT,-(SP)
SLABMID,-(5°)
#LABIN,-(SP)

#FEMT18,-(SP)
#5,-(SP)

SP,RO

CSPNTF

ADD
PRINTF
MOV
MOv
MOv
MoV
MOV
MOV
Mov
MOv

"4, SP
#FMT19,#LABOCF
,OF IN,OFMID,0FOUT,EXOCYL
ExocyL,=(SP)
0fFOUT,=(SP)

ADD
PRINTF

¥e6,sP
UFH119 #LABCCR,CRIN,ORMID,0ROUT ,EXOCYL

EMT

OFMID,-(SP)
Of IN,=(SP)

#LABOCF ,=(SP)

FEMT19,-(SP)

#6,-(SP)

SP,RO
CSPNTF

SEEK

CIRLJAD RLO1/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE

*TEST

**SEEK

TIMING

031112
031116
031122
031126
031132
031136
031142
031146
0331150
031152

013746
013746
013746
013746
012746
012746
012745
010600
104017
062706

003122
003066
003062
(03056
007142
011254
000006

031156
031162
031166

000016

MOov
MOov
MOV
MOV
MOV
Mov
MOV
MOv
34!
ADD

EXOCYL,=(SP)
OROUT,-(SP)
ORMID,-(5P)
ORIN,-(SP)
#LABOCR,-(SP)
#FEMT19,-(SP)
#6,-(SP)
SP,RO
COPNTF
#6,5P

013746
013746
013746

003124
003076
003072

MOov
MOv
MOV

EXHCYL ,=(SP)
HFOUT,~(SP)
HFEIN,-(SP)

031176
031202
031206
031210
031212

012746
012746
010600
104017
062706

011311
000005

Mov
MOV
Mov
EMT
ADD

NEMT20,-(SP)
#5,-(SP)
SP,RO
CSPNTF
#14,5P

031216
031222
031226
031232
031236
0312642
031246
031250
031252

013746
013746
013746
012746
012746
012746
010600
104017
062706

000014

031272

013746
013746
012746
012746

003126
003112
007204
011341

031302
031304
031306

104017
062706

000012

031322

013746
013746
012746

00312¢
003116
007220

EMT
ADD
PRINTF
MOv
MOV
MOv

031332

012746

000004

MOV

180 031156

031172

181

14-4

031216

182 031256
031256
031262
031266

031276

183 031312
031312
031316

0631326
031335
031340
031342

184 031346

012746

012746
010600

012746

010600
104017
062706

185 031346

031346
031346

PRINTF

007154

MoV

000014

PRINTF

003124
003106
003102
007170
011311
000005

MOv
MOv
MOv
MOV
MOV
MOV
MOV
EMT
ADD

mMov
MOv

011341

000012

#FMT120,#LABHCF
,HF IN HFOUT ,EXHCYL

#LABHCF ,=(SP)

#FMT20,#LABHCR,HRIN,
HROUT ,EXHCYL

EXHCYL,=(SP)
HROUT,
= (SP)
HRIN,
= (SP)
#LABHCR,-(SP)
NEMT20,-(SP)
#5,-(SP)
SP,RO
COPNTF
#14,5P

PRINTF #FMT21,#LABACF ,AFMID,EXACYL
MOV
EXACYL,=(SP)
MOv
AFMID,=(SP)
Mov
#LABACF ,-(SP)
MOV
NEMT21,-(SP)

000004

MOv

65%:

MOv
EM1
ADD

#4,-(SP)
SP,RO
(SPNTF
#12,5P

W#FMT21,#LABACR,ARMID,EXACYL
EXACYL,=(SP)
ARMID,=(SP)

N#LABACR,-(SP)

FEMT21,-(SP)
¥4,=(SP)

SP,RO
CEPNTF
#2,sp

ENDTST

104001

110042:

EMI

SEC 0117

(SETST

2 031350
031350
3 031350

4 031356

5 031362
6 031366

7
8
9
10

031370
031376
03140¢
031406

11 031412
12 031414

13
14
15
16
17
18
19

031414
031416

031420
031426
031432
031434
031440
031444
031446

20 031452
21 031454
22 031460
23 031466
24 031474
25 031502
26 031506
27 031512
28 031516
29 031522
30 031526
31 031534
32 031540
33 031542
74 031544

35
36
37
38
39
40

41
4?2
43
44
45
46
47

48
49
50
1

031546
031550
031552
031554
031556
031560

031562
031566
031570

031576
031600
031604
031600
031610
031614
031616
031620
031622
031626

52
53
54 031630

SBITL
BGN1ST

»TEST

8 10

cTEST

SEQ D118
1Y

**BASIC READ DATA

(BAD SECTIOR f1iLE)
"

012737
004737
004737

006610
015274
015312

002714

mov
JSR
JSR

#P2T13¢ ,ERHEAD
PC,ISTINT
PC,GSTAIR

;SET ERROR MEADER
JINITIALLIZE TEST
sCLFAR DRIVE

012737
032737
001405
005737
001002

000001
010000

003014
01336

MOV
Bil
BEQ
181
BNE

#1,DESHD
FHEADILM MISWIW
2%
HEADW
2%

;SET TO HEAD 1
TEST IF HEAD SPEC'D
NO - SK]P
;TEST IF HEAD O
:NO - SKIP

EMT

CSEXIT

0320390

65%

013354

EXIT

1064032

000440
013737
004737
032030
012701
004737
032030
004737
032030
005037
012737
012737

002204
016204

021422
003016
003552
000020

000001
003346

013701
013700
012703
012737
004737
031712
005723
100515
005723
100513
005723
00111
005723
001107

003032
003034
003746
000002
022572

0231327
001004
012737
000403

005737
001075
012311
012705
006311
005305
001375
32713
001402
052711

2%:

005670
021026

112737
105037

005037

003004

003032
003034
003347

003026

4%:

002720

7%:

177777
000001

003026
000007

000400
000100

8%:
003026

108:

.WORD
MOV
JSR
65%
MOV
JSR
65%
JSR
65%
(LR
MOV
Mov
MOvVB
(LRB

(LR

MOv
MOV
MOV
MOV
JSR
319%
1S1
BM]
[}
BMI
IsY
BNE
191
BNE

(Mp
BNE
MOV
BR

181
BNE
11%:
MOV
MUV
12%:
ASL
DEC
BNE
.
BI1
. f BEQ
\
BIS

SELSE

EXIT

111

TEST

L10043-.
HLMTW, NEWLYL
PC,XSEEK

;POSITION HEADS AT 255
;D0 SEEK

#3000.,R1
PC,RDYWALT

JSET WAIT COUNT FOR
;WALT FOR INTERRUPT

PC,VERPOS

:VERIFY POSJTION

DESSEC
#EBSFIL,TEMPS
#16.,TEMPO

;SEY FOR SECTOR O
;SET TEMP STORAGE FOR FACTORY BS FILE
;SET MAX SECTOR COUNT

300 MS

#1,NOER(Y
LOCERR

;SET FOR NO ERROR COUNTING
JCLEAR LOCAL ERROR (OUNTER

TEMPS,R]
TEMP6,R0
#1BUFF RS
#2,ERRSWI
PC,XREAD

JINIT

TEMPY

JCLEAR ONES DETECTED FLAG
POINTERS

;INIT ERROR SWITCH
;D0 READ

(R3)+

;TEST

(R3)+

sELSE

TEST WORD 1 NOT NEG

45%

(R3)+
45%
(R3)+
45%
(R3),#=}
10%
#1,1EMP3
11%

TEMP}
45%
(R3)+,(RY)
#7,RS
(R1)
RS
12%
#8118, (RY)
15¢
#B116,(RD)

WORD O NOT NEG

;YES, BAD FMT

;YES - BAD FMT

ERROR

ERROR REPORT

sTEST WORD 2 IS O
:NO = SKIP 10 FMT ERROR RPI1
sTEST WORD 3 IS O
:NO - SK]P 10 FMT ERROR RPT
sTEST IF NEXT WORD 1S ALL 1°S
:NO
= SKIP
JELSE SET 1°S DETECTED FLAG
:SKIP

sTEST IF ONES mMAVE BEEN DETECTED
JYES = SKIP TO FMT ERROR RPT
JSTORE CYLINDER WORD
sALIGN IT T0 LOOK LIKE HEADER

:VEST IF WEAD 1
sNO = SKIF
sINSERT MEAD BIT
At
e

CIRLJAD RLOV/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
¢1EST 1Y
*¢BASIC READ DATA (BAD SECTOR fILE)

CIRLJAD RLOV/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
+TEST N
++BASIC READ DATA (BAD SE(TOR FILE
L )

177400

15%:

ODOOCOOOO (=)
(=]
POINONININD
— Ny —

004346

003034

003356
000044
000024

003032
003034
003016

003346
V77777

003016

005237
104443
002425
011526
022737
001421

000737
062737
000643

012703

151106

003034

39¢%:

40%:

41%:

005724
003346

003032

000004

003016

005754

4L3%:
45%:

104443

002426
011526
000737
012703

48%:

104443

(8%

BEQ

65%

MOV
MOv
MOV

INC
MOV
INLOOP
EMT

003142

002720
003354

65%:

66%:
ENDTST

L10043:

R3,#IBUFF+256.

NSBSFIL,TEMPS
#36.,1EMP6
#20.,DESSEC

LOCERR
#-1,aTEMPS

(SINLP
BCOMPLETE
3
BCS

: 70 MANY ERRORS - REPORT
;YES -

:ELSE
HE

SK]P

CHANGE POINTERS
MAX

MCV
INC

¥MBADSF ,R3
LOCERR

TRAP

TSERCODE

43%

1301.,,ERR1

IN ERROR

LOOP

;YES - GO DO READ

DESSEC,TEMPO

SECTOR NUMBER

SECTOR NUMBER START
:
;00 READ
:BUMP LOCAL ERROR COUNTER
;MOv
1'S INTO FILE STORAGE
sCHECX

(MP

BNE

;CHECK IF ALL
;NO - SK]P

SECTORS READ

SSET RESULT MESSAGE POINTER
;BUMP LOCAL ERROR COUNTER

.WORD
.WORD
CMP
BEQ
BR

1301
ERR1
ASBSFIL,TEMPS
65%

;TEST IF SOFTWARE
SYES - EXIT

BR
MOV

¥4 DESSEC

4%
FMFMTER,R3

:BUMP TO NEXT SECTOR

TRAP

TSERCODE

.WORD
BR
MOv
ERRHRD

ERRI
39%
¥MTMBS ,R3

.WORD
.WORD
BP

1303
ERR!
40%

;GO0 CHECK FOR LOOP

1S18

LOCERR

sTEST

ADD

ERRHRD

TRAP

000002
000001
003346

032056

BEQ

.WORD

006C01

;CHECK IF SOF TWARE BAD READ

ERRHRD

003356

#36.,TEMPG

BNE

(MpP

37%:

TEMP3

;CLEAR ALL BUT SECTOR
: INSERT SECTOR NUMBER
;CHECK [F IBUFF EMPTY
:NO GET NEXT CYLINDER
;ELSE TEST IF 1°S DETECTED

#177400,(R3)
(R3)+,(R1)+

181

000044

SeEa 0119

BlC
BIS

(MpP

003026

c10

15-1

MOV
MOV

37%

1302.,,ERRI

;ELSE

GO CHECK

FILES

SOFTWARE

C(HECKED

FILES

.60 DO READ

;SET RESULT MESSAGE POINTER

1302

1303., ,ERRI

.60 CHECK FOR LOOP

;SET RESULT MESSAGE PTR

T$ERCODE

¥2 ,ERRSWI
¥1,BSFVAL

BEQ
INC

66%
ERRONT

EMI

(SETST

;INIT ERROR SWITCH
;SET BAD SECTOR FILES VALID fFLAG
IF

LOCAL

ERRORS

sNO - SKIP
;ELSE BUMP ERROR COUNT?

032060
032060

NORY =t et b e et bl e

b et s

= OOVONO NN —=SOOVO~NO
NS W

N—

CIRLJAQ RLOV/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
*TEST 12
+*WRITE/READ DATA (PART 1)
LSBTTL
BGNTST

012737
004737
004737
004737
032272
004737
005037
005037
005037
004737
032272
012701
004737
032272
004737
032272
005037

104002

004537
000000
004737
032210
004737
032210
9064737
032210
012737

006626
017656
015274
015312

002714

022737
001403
005237
000740
004737
032272
005037
004737
032264
000720
005237
000/7

032272

104001

JSR

13065%

1306%:

005670
021026

021422
032164

1307%:
BGNSUB

022104

7310%:

022532
022572

022244
002720

60%:
ENDSUB

L10045:

000010

032164

032164
017572

10%:

032164
023252

11%:

003004

JSR
CLR
(LR
CLR
JSR

13065%

MOV
JSR

104003

104010
000050

MOv
JSR
JSR

017546
003016
003004
032164
016204

000002

«TEST

13%:

13065%:
ENDTST
L10044:

13065%
JSR
13065%
CLR

EMT
JSR
.WORD
JSR
60%
JSR
6C%

;TEST 12

D 10

SEQ 0120
++WRITE/READ DATA

WFP2T14E ,ERHEAD
PC,CKBSVD

(PART

T12::
;SET ERROR HEADER
;60 CHECK IF BAD SECTOR FILES VALID

PC,TISTINT

JINITIALIZE TEST

PC,CHOSHD

;60 CHOSE

NEWCYL

;

PC.GSTATR

DESSEC
1310%

PC,XSEEK

#3000. ,R1

:CLEAR DRIVE

HEAD

SECTOR 0

CYLINDER O

;CLEAR PATTERN SELECT
;POSITION HEADS

;SET WAIT

COUNT

FOR READY

FOR 300 MS

PC,RDYWAIT

:WAIT

PC,VERPOS

JVERIFY

1310%

;CLEAR PATTERN SELECTIOR

POSITION

11221

($8SUB
RS,DATGEN
0

:GENERATE DATA
JPATTERN SELECT WORD

PC.XREAD

;D0 READ DATA

JSR

PC.DATCOM

; COMPARE

Mov

#2,ERRSWI

;INIT

ERROR

EMT
ESCAPE
EMT
.WORD
(MP

($ESUB
1S1

JEXIT

TEST

#8.,1310%

:WAS DATA PAT

PC,SWAPHD

60%

BEQ
INC
BP

PCXWRITE

(SESCAPE
L10044~,
108
1310%
1307%

;D0 WRITE

DATA

DAIA‘

SWITCH

;

ERROR

8 USED?

;YES - SKIP
;ELSE BUMP TO NEXT PATTERN
;D0 TEST WITH NEW PATTERN

JSR
13%
BR
INC
BR

PC,BSCHK

;60 SWAP TO HEAD 1 OR END
;ABORT RETURN
:SET PATTERN SELECT 10 0
(HECK ]¢ SECTOR BAD

1306%

;NO RETURN = DO TEST

EMT

{9ET1S7

JSR
13065%
CLR

13109

NEWCYL
11¢

sYES RETURN - SKIP T0 13%

TEST

THIS SECIOR

;BUMP 10O NEXT CYLINDER
;CHECK 1F THIS ONE BAD

CIRLJAD RLO1/2 DR TST

«TEST

2 MACRO v03.01

*«SPINDLE

TIMING TEST

9-FEB~79 19:23:55 PAGE

2 032274
032274
3 032274

4 032302

5
6
7
8

032306
032310
032314
032316
032316
032320
9 332322

10 032324
11 032326
12 032332

13
14
15
16
17
18
19

20
21
22
23
26
25
26
27
28
29

032336
032340
032344
032346
032352
032356
032364

032370
032372
032376
032402
032404
032410
032412
032416
032422
032426

LSBITL

BGNTST
012737
005737

001003
005737
100402

0Ce6647
003342

2%:

104032
000476
005003

005004
004737
004737
033010
004537
000000
005037
004737
013737
004737

033010
012701
004737
033010
004737
033010
012701
012705
004737
033010

1%:

003016
017546
013350
016204

005670
021026

000100
002744
022522

011562

000006

32 032440

014562

000002

33 032444

24, 032450

35
36
37
16

014562

032450
032454
032456
032462
032464
032470

012700
104027
005737
001010
004737
012603

032472
032474
032476

104443
002735
011526

39 032472

60
&1
42
43

014562

032500
032504
032510
032512

032512

000137
005737
100005

002736

44 032520
65 03¢524
&6 032530

000137
012705
005037

032516

012030

MOV

6%:

033010
002744
002710

RUN

.
;CLEAR FOR T]IMING STORAGE
JINITIALIZE TEST
;:CLEAR DRIVE

PC,VERPOS

;VERIFY POSITION

#64,,R1 ;SET LOOP COUNTER
#L.MP,RS
;SET A PNINTER
PCXWRITY
;D0 FIRST WRITE

(RS) ,RLMP(R?2)

;LOAD RL REGISTERS

=(RS),RLBA(R?)
#3000.

T$ERCODE
1501
ERRI

JMP
MOV
(LR

TESTS WERE

;SET WAIT FOR 300 MS
;WAIT FOR READY

TRAP
.WORD
.WORD

.WORD

T13::

PASS O

#3000. ,R1
PC,RDYWALT

#3000.,R0
($WiU
DONE
6%
PC,WAITIN
(SP)+,R}

TRAP

DESSEC
PC,CHOSHD
LOLIMW, NEWCYL
PC,XSEEK

MOV
EMT
TS1
BNE
JSR
MOV

JMP
181
BPL
ERRHRD

;TEST

:GENERATE DATA
;PATTERN O
;CLEAR 10O SECTOR O
;60 SELECT MEAD
sSET FOR CYLINDER
;D0 SEEK

-(RSY,RLCS(R?)

LWORD

A ¥

RS,DATGEN

MOV

ERRHRD

033010
002746

R&
PC,ISTINT
PC,GSTATR

=(RS),RLDA(R?)

WwAITUS

015142

PASNUM

Mmov
MOV

002710

1044453

032514

JSR

005670

TEST

:NO - SKIP
;TEST JF MANUAL
;YES - SKIP
JELSE SKIP TES!

60%

000000

TIMING

2%
MISWIW
1%
1S1
CSEXIT
L10046-.
R3

MoV

000004

*+SPINDLE

BNE
1S1
BM]
EX]T
EMT
.WORD
CLR

JSR
60%
JSR
60%
MOV

021422

;SET ERROR HEADER

60%
JSR
0
(LR
JSR
MOV
JSR
60%
MoV

022104

;TEST

#P2T15€ ,ERHEAD

(LR
JSR
JSR

015274
015312

SE0 0129

MOV
1s1

01336

30 032430

31 032434

002714

«TEST

E 10

1501.,,ERR!

60%
1.CS
4%
1502...ERRé6

;TEST 1F INTERRUPT
;YES - SKIP
;ELSE WALT FOR TIMEQUT
;OET MESSAGE POINTER

:TEST IF ANY
:NO = SKIP

ERRORS

TSERCODE

1502

ERRG

603
#L . MP,RS
DONE

;SET POINTER 1O RL LOAD REGS
;OLEAR INTERRUPT INDICATOR

CIRLJAO RLOY/2 DR TST

*TEST

47 032534
48 032540
69 032564

50 032550
51 032554
0325564
032560
52 032562

032562
53 032564
54
55
56
57

032570
032572
032576
032600
032600
032602
032604
58 032606
59 032610
€0 032614
61 032616
032616
032620
032622
62 032624
63 032626
64 032630
65 032632
66 032634
67 032636
68 032642
69 032644
70 032646
71 032650
72 032652
73 032654

032654
032660
032664
032670
032674
032676
032700
74 032704
032704
032706

032712
032716
032722
032726
032732
032736
032740
032742
75 032746
032746
032752

2 MACRO v03.01

*+SPINDLE

TIMING TEST

011562
014562
016562

000006
000004
000002

012700
1040c7

005670

014562

104052
005737

001007
004737
012603

104443
002737
011526
000500

005737

100004

104443
002740
012030
000471
060003
005504
005301
001270
012701
000241
006004
006003

002710
015142

002746

005046
153716
C12746
013746
012746
012746
012/46
010600
104017
062706

013746
012746

7%:

8%:

000006

007040
007016
010602
000003

000010
002735
006033
002730
006022
010630
000005
000014

003130
007064

19:23:55 PAGE
MOv
MOv
MOv

000000

005301
001373

012746
012746
012746
012746
010600
104017
062706

9-FEB-79

10%:

MOV
WAITUS
MOv
EMT
GETTIM
EMT
1S1
BNE
JSR
MOv
ERRHRD
TRAP
.WORD
.WORD
BR
181

BPL
ERRHRD
TRAP
.WORD
WORD
BR
ADD
ADC
DEC
BNE
MOV
(e
ROR
ROR

DEC
BNE
PRINTF

17-1

F10

(RS),RLMP(R2)
=(RS) ,RLBA(R2)
=(R5) ,RLBA{R?2)

=(RS) ,RLCS(R2)
#3000.
#3000.,R0
($WTU
RO

($GTIM
DONE

rd
PC,WAITIN
(SP)+ ,R3
1503., ,ERR!
TSERCODE
1503
ERRI
60%
1.0S
8%
1504., ,ERR6
T$SERCODE
1504
ERR6
60%
RO,R3
R&
R1
5%
¥6,R1
R4
R3
R1

SEQ 0122
;LOAD RL

REGISTERS FOR 2ND WRITE

;WAIT

FOR

INTERRUPT

;GET

TIME WAITED

sTEST IN INTERRUPT OCCURRED
;YES = SKIP
;GO WAIT FOR INTERRUPT
;GET MESSAGE POINTER
;REPORT

;TEST

IN ANY ERROR

:NO = SKIP
;REPORT ERRORS

;ADD IN TIME USED
;DOUBLE PRECISSION
;DEC LOOP COUNTER
;LOOP UNTIL 0
;SET DIVIDE COUNT
;CLEAR CARRY FOR DIVIDE
;DIVIDE SuM By 100(8)

.DEC DIVIDE
10%
.LOOP UNTIL
WFMT1.1,#SRTMES,#VALDES

COUNT
DONE

MOv
FVALDES,=(5P)
MOv
#SRIMES,-(SP)
MOV
FEMT1.1,-(5°)
MOv
#3,-(SP)
MOV
SP,RO
EMT
CSPNTF
ADD
#10,5P
PRINTF WFMTS5,#BASADD,RLBAS ,#DORVNAM,<B, RLDRY+1>
(LR
=(SP)
.
B1SB
RLDRV¢+1,(SP)

MOv
#DRVNAM ,=(SP)
MOv
RLBAS,-(SP)
MOv
#BASADD,=(5P)
Mov
FMTS,=(SP)
MOV
#5,-(SP)
MOv
SP,RO
Ent
CSPNTF
ADD
6, SP
PRINTF #FM126 #RESE3,R3,SRESES,#MAPROX
E NRO!
MOV
EXROT,=(SP)
MOv
IMAPROX ,=(SP)

CIRLJAD RLOY/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE
$TEST 13
*SPINDLE TIMING TEST
032756
032762
032764
032770
032776
033000
033002
033006

76 033010

77 033016
03301¢
033016

012746
010346
012746
0127646
012746
010600
104037
062706

012737

104001

010365
010361
01145
000006
000016
000002

00272C

60%:

ENDIST
L10046:

MOv
MOv
Mov
MoV
MOV
MOV
Eml
ADD
mov

17-2

6 10

JRESESL,-(SP)
R3,-(SP)
#RESES,-(SP)
#EMT26,-(SP)
#6,-(SP)
SP,RO
CSPNTF
#16,5P
#2 ERRSWI

SEQ 0123

SINITIALIZE

ERROR

SWIT(H

EMT

CSETST

19:23:55 PAGt

% SBTTL
BONTST

N [a Y]

~ (=]
[l o

(=]
o
—

[aw)
o

]
w

330446

012737
004737
004737
0047357
034126
005037
012705
005737
001006
032737

OOVONO
NS NN = OOV
NS W

N —

CIRLJAD RLOYT/2 DR TST 2 MACRO v03.01 9-FEB=-79
*TEST 14
*+WR]TE/READ DATA (PART 2)

006672
017656
015274
015312

SR
S

JSR

MOv
151

003342

BNE
BIT
BNE

013346

002412
002414
002416

013346

002200

0C¢012¢2

016537
043737

002506
002206

NI SNV
N

MANAMNND = (NANNO
-2

WO
OO —=ON
NN WNN
NN A AN N AN AN N S
O NN

MMM

NN N N N N N NN N

OQOOOOOO0OOCO
20O —=000

103007

034126
013352
013350

002202

013352

002446
002202
002202
002202
002202
002202
002202

002726

000002
000004
000000
000010
000012

;SET ERROR HEADER
;60 CHECK 1F BAD SECTOR
JINITIALIZE TEST
;CLEAR DRIVE

PASCNT
#-2 RS
PASNUM

;CLEAR PASS 10 0
;SET
:TEST 1F FIRST PASS

FALLCYL

MISWIW

;NO - SKIP
TEST

:YES -

USE

SK]P

ALL

LOLIMW,(R1)+
JJJ

sCLEAR LOCATICNS
sDEC COUNT

13100%:

MOV
MOV
MOV
ADD

DEC
BNE

BIT
BNE
151
BNE

69%:

8%:

ADD

(mp
BEQ
Cmp
BHIS
BR
CMP
BHIS

#0,JJ)

;SET

JELSE

CLEAR

114::
FILES

(QUICK

VERIFY)

SET PEOPLE

TO NEG 8

TABLE

COUNT

TO LO LIM]IT

2%
;LOOP UNTIL O
HILIMW, T33TBL+4 ; INSERT HILIMIT
HILIMW, T33TBL+6 ;INTO APPROPRIATE LOCATIONS
HILIMW,T331BL+10

#2,RS

FALLCYL

;BUMP RS BY

MISWIW

PASNUM

#16,RS
#1,1.DRIVE
“4%

RS, #164.
4%
69%
RS.#82.
4%

;TEST

USE

sTEST

FIRST

JYES = SKIP

;NO - SKIP

ALL

CYLINDERS

PASS

(QUICK

VERIFY)

;ELSE BUMP CYLINDER POINTER BY
;RLOYT OR RLOZ?THAT S THE Q
ANS IS RLO1

;TEST

PAST

TABLE-YES €EXx!7

;VTES PAST

THE

CYLTBL(RS),JJuJ

;GET NEXT

TABLE ENTRY

JMP
(MP

13165%
HILIMW,RS

MOv

RS,JJJ
JJJ,L0L 1M
13100%
JJJ HILIMY
13100%
#187,R3

SEXIT OTEST
sTEST IF ALL CYLINDERS USED
JYES = EXIT TEST
JUSE RS AS NEXT CYLINDER
:CHECK IF LOWER THAN LOL MDY
JYES = SK]P
JCHECK 1F HIGHER THAN WILIMI!?
;YES = SKIP

MOV
BIC
BNE

g§RBVY,JJJ

BEO

(Mp
BLO
(MP
Bul

MOV
MOV
MOV
MmOV
Mov
MOv
mOv
mov

VAL D

CYLINDERS

2%:

%
5¢%:

002202
002202

#P2116E ,ERNEAD
PC,(KBSVD
PC,TSTINT
PC,GSTATR

;GET ADDRESS OF WORK

44%:

002202
002202

#T1331BL R

000244

020527

(PART

MOV
MOV
MOV

003342
000016
000001

**wR]TE/READ DATA
JTEST 14

#-16..,R5

002202

MOV

177760

013352
013352
013352
000002
000001

*TEST

JSK
JSR
13165%
CLR

177776

000001

SEC 0124

Mov

003134

002406
00001C
013350
002202

002714

H10

TABLE

;CLEAR UPPER BYTE

JJJ,(RY)
JJJ,2(R3)
JJIJ,&(RY)
JJJ,6(RY)
JJJL10WRY)

JJJ,12(RY)

R3,IBLSIR

JSTORE

TABLE

ADDRESS

59
60
61
62
63

ololelololololololololela)

57
58

Ll
I
I IV IV I TV
LN LA LN N N LN AN N N NN N

CZRLJAQ RLOYV/2 DR 7ST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
*TEST 14
*+WRITE/READ DATA (PART 2)

376

400

33410

004737

1046002

062737
005737
001414
023727

001404
002407
012737
052737
000405
005037
052737
012737
013703
012701
012703
005037
012137
004737
034034
012701
004737
034034

012337
004737
034034
012701
004737
034034
004737
034034
004737
033674

013737
062737
004537
000000
0327%7

017546

13101%:
BGONSUB

003760
003134

002706

00313¢

000003

000003
000020

003134
002706

003134
000040
000003
002726
002406
002446
003016
003004
016204

002706
00272¢

10%:
11%:
129%:

16¢:

18-1

JSR

PC,(HOSHD

Eml
BIC
151
BEQ
(mp
8ta
8Lt

($BSUB

MOV

BIS
B8R
(LR
8IS

110

#MQUALS ,OPFLAG

PASCNT

11%
PASCNT
03
10%
11%
#3,PASCNT

#INOUTS,0PFLAG

12%

PASCNT
#OUTINS,OPFLAG

#3,WRT1SWI
TBLSTR,R3
#7133718L,R1
#1B1,R3
DESSEC
(R1)
, NEWCYL
+
PC,XSEEK

005670
021026

003004
016204

SEQ 0125

;GO CHOSE HEAD
114.1:

CLEAR ALL MESSAGE QUAL IFIERS

STEST IF PASS 0
JYES - SK]P

siEST IF PASS 3

JYES - SKIP

sCHECK IF LESS THAN 3, IF YES CLEAR "0 O
sELSE SET 10 3
;SET MESSAGE QUAL
;SKIP
JSET PASS COUNT 10 0
JSET MESSAGE QUAL
;SET READ AND WRITE SWIT(M
;OGET STORED TABLE ADDRESS
;CLEAR 10 SECTOR 0
;GET NEXT TABLE ENTRY
;DO SEEK

#3000. ,R1

PC,RDYWALT

;SET WAIT COUNT FOR 300 MS
;WAIT FOR READY

(R3)+ NEWCYL

;GET NEXT TABLE ENTRY

PC,XSEEX

;DO SEEK

005670
021026

#3000.,R1

PC.RDYWALT

;WAIT

021422

PC,VERPOS

;VERIFY POSITION

PC,BSCHK

;CHECK FOR BAD SECTOR

DESSE(C,25%
#177770,25%
SS.DATGEN

;SET DATA PATTERN ;CLEAR ALL BUT LSD
;60 GENERATE DATA

023252

16%:

003016
177770
022104

033564
0335664

000001

00272

¢ 5%:

29%

022532

003016
000050

PC,XWRI1TE

003016

000060
000001
000100
003016

002706
002724
002706

000002

€02724

02¢572

#B1TO,WRTSWI

;SET WAIT

FCR

COUNT

FOR

READY

;"'YES'' RETURN

STEST 1F WRITE
:NO - SKIP
;D0 WRITE

300 MS

TO SECTOR NUMBER

THIS PASS

DESSEC
#40. ,DESSEC
169

;INC SECTOR
JTEST IF ALL SECTORS USED

#B110,WRTSWI]

sCLEAR WRITE REQUIRED SWIT(w

DESSEC
169

SK1P

53¢

JNO = SkiP

sNO = SK]P
#INOUTS!QUVINS ,OPFLAG ;CLEAR

#FOLWRT ,OPFLAG

29%:

#8111 ,WRTSWI

31%:

PC,XREAD

QUALIF (ERS

JSET FOLLOWING WRITE QUALIFIER
sCLEAR T0 SECTOR O

STEST

IF READ THIS PASS

JELSE DO WEAD

NNy

v
[

w
W

19:23:55 PAGE

022244
003G16
000050

003016

32%:

003016
002724
003134
003760
003134

00270¢
000003

003134

000006

000002
003134

002724
000001

003134

006V05

002000

002706

000020

002706

19¢.

000040
033454
000002

002706

40%:

33%:

002720

1¢0
141
1642
143
144
145
1646
147
1648
149
150

034050
034056
034064
034066
034074
034076
0346102
034106
034110
034116
034122

151 034126

152 034126

034126

104001

000003
003134

002724
000003

002414

002726

003134
017572
002400
000006
033352

INC
(mp
BNE
(LK
(LR
INC
61C
CMP

DESSEC
840, ,DESSEC
16%
DESSEC

;BUMP SECTOR
JTEST IF ALL SECTORS USED
;NO - LOOP
JCLEAR DESIRED SECTGR

PASONT

;BUMP PASS COUNT

BEQ
BR
BIS
BR
BIS
BR
8IS
JMP

(LR
JSR

13100%

L10047:

FBIT1,WRTSW]
PASCNT , #1

40%
PASCNT ,#5
40%

39¢%

#FWOSKD,OPFLAG

36%

FINOUTS,OPFLAG

SWlT(H

QUALIFIERS

JTEST IF PASS 6

60%

1S PASS

JYES - SKIP
sYES - SKIP

;SET READ REQUIRED BIT
sTEST IF PASS 1

JYES - SKIP
;TEST IF PASS &
JYES - SKklp

;SKIP

;SET

FWD

QUALIFIER

;SET

QUALIFIER

;SET

MESSAGE

;G0 DO NEXT PASS

36%

;SKIP

15%

;GO DO NEXT

PASS

187

SEXIT

#3,WRTSWI]

:SET FOR READ AND WRITE REQ.

48%

.uO START PASS &

PC,SWAPHD

160 SWAP TD HEAD
:ABORT RETURN

#OUTINS ,OPFLAG

CSESCAPE
L10047-.

QUALIFIER

;INIT ERROR SWITCH

TEST

ERROR

PASCNT ,#3
;TESY IF PASS 3
459
:NO - SKIP
#133T8L+6,TBLSTR ;STORE MID POINT
PASCNT

ADD

JMP

#1331BL,TBLSTR
#6,R3
13101%

EMT

($ETST

mMov

ALL

PASCNT , 6

60%

($ESUB

MOV

;CLEAR

sTEST

EMT
ESCAPE
EMT
.WORD

CMP
BNE

13165%:
ENDTST

#MAUALS,OPFLAG

JCLEAR WRITE/READ

PASCNT ,#3

¥2,ERRSWI]

MOV

68%:

WRTSWI

MOv

ENDSUB

45%:

002726

:COMPARE DATA

cmMp
BEQ
CMP

106010

000060
012737
023727
001004
012737
000410
005037
004737
033144
012737
062703
000137

PC,DATCONM

MOV

L10050:

104003

J 10

JSR

60%

(mp
BEQ

36%:
60%:

18-2

SEQ 0126

BtQ

'S
~

N
H

ONOVNE WN—=O OV

004737
034034
005237
022737
001313
005037
005037
005237
042737
023727
001435
023727
001431
012737
023727

001415
023727
001411
000404
052737
000407
052737
000403
052737
000137
012737

s
D
e
d ol e

WVNES WA —=O N0~

b s

B e
D
i
il
el el
)
i el il
el
i
red il el i
D
e
e

AN AN LN AN N AN N AN N N NI RO RO AU NI NI AU NI N

s ot
s_e

CIRLJAOD RLO1/2 DR TST 2 MACRO v03.01 9-FEB-79
*TEST 146
«+WRITE/READ DATA (PAKRT 2)

;CLEAR

TO PASS 0

;STORE

START

IN TABLE
1

TARLE

END

TEST

CZRLJAQ RLOY/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
«TEST 15
*+WRITE LOCK ERROR AND DATA PROTECTION
1

2 034130
036130
3 034130

10
11
12
13
14
15
16
17
18
19

00332

034136
0346142
034144
034150
034150
034150

005737
1004C2
000137

013346

034152
034160
036164
034170
034172
034176
034202
034206
034212
034214

012737
004737
004737
034772
005037
005037
005037
004737
034772
012707

034150

20 034220
21 034224
22 034226
23 034232
24 034234
25 036242
26 034244
27 034250
28 034252
29 034256
30 034260
31 034264
32 034266
33 034272
T4 034274
034274
034276
034302
034306

37
38
39
40

BGNITST
005737

& 036134

5
6
7
8
9

LSBTTL

034312
034316
034322
034326
034332
034336
034340
034342
034346
034352
034352
034356
034360
034364
034366
034374

001003

104002

004737
034772
004737
034772
032737
001114
004537
000007
004737
034772
004737
034772
004737
034772
005046
153716
012746
013746
012746
012746
012746
012746
012746
010600

104017
062706
012701
012700
104026
004737
034772
032737
001037

2%:
3%

005670

021026

020000

002754

022104
022532
022572
022244

000020
000006

5¢:

000062
015312
020000

MISWIW
3
13265%

;TEST IF RUN MANUAL
;YES - SK]P

002754

:NO - SKIP

JEXIT

T15::

FIRST PASS

INTERVENTION

IST

BGNSUB

PRINTF
CLR
BISB
MoV
MOV

002735
006033
002730
006022
007312
007341
010503
000007

TS1
BM]
JMP

JSR
60%
JSR
60%
BIT
BNE
JSR
7
JSR
60%
JSR
60%
JSR
60%

021422

;TEST

LOCK ERROR AND DATA PROTECTION

;TEST

MOV
JSR
JSR
60%
CLR
CLR
CLR
JSR
60%
MOV

003014
003016
003004
016204

*+WRITE

PASNUM

EMTY

002714

SEQ 0127

TST

BNE

035120

006713
015274
015312

«TEST

K 10

MOV
MOV
MOV
MoV
MOV
MoV
EMTY
ADD
MOV
WAITMS
MCV
EM1
JSR
60%
BI1
BNE

($BSUB

T15.1:

#P2T17€ ,ERHEAD
PC,TSTINT
PC,GSTATR

;SET ERROR HEADER
JINITIALIZE TEST
;CLEAR DRIVE

DESHD
DESSEC
NEWC YL
PC,XSEEK

:SET TO HEAD O
;SET T0O SECTOR O
;CLEAR TO CYLINDER O
;D0 SEEK

#3000.,R1

:SET WAIT

PC,VERPOS

;VERIFY POSITION

FULSTAY,T.MP
7%
RS,DATGEN
PC,XWRITE

:TEST IF WRITE LOCK SET
JYES = SKIP
;GENERATE DATA
;PATTERN 7
;WRITE DATA

PC,XREAD

;sREAD DATA

PC,DATLOM

;CHECK DATA

PC.RDYWALT

FOR

300 MS

:WALT FOR READY

#FMTOP1,#0PRO04,#OPRYA,#BASADD
,RLBAS, #SDRVNAM <B,RLDRV*1> ;REQUEST
=(SP)
RLDRV+1,(SP)
#DRVNAM,=-(SP)
RLBAS,~(SP)

#BASADD,-(SP)
#OPR1A,~-(SP)
#0PR004,-(SP)
#EMTOPY,=(SP)
#7,-(SP)
SP,RO
COPNTF
#20,SP
#6. ,R1
#50.
#50.,R0
(SWIM
PC,GSTATR
FULSTAT,T Mp
7%

:SET WAIT COUNT FOR 30 SECONDS

JCALL WALT

sGET STATUS
JCHECK ]7F WRITE LOCK SE7
JYES = SKIP

SET WRT LC

CIRLJAD RLOY/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
*TEST 15
v+WRITE LOCK ERROR AND DATA PROTECTION
41

w2
43
44

45
66
47
48
49

034376

034376
0364402
034406

034412
034414
034416
034422
034424
034426
034426
034430
034634
034440
0344446
034450
034454
034460
034462
034464
034470
034470
034472
034474
034500
034502
034506

50 034512

51
52
53
56
55
56
57
58
59
60
61

012746
0312746
012746

010600
104017
0627G8
005301
001352

005046
153716
(012746
012746
012766
012746
012746
010600
104017
062706
104032
000426

004537
00000
012705
012715

053715

034516
034522
034526
034530
034534
034540
034544
034550
034554
034560
034564
034564
034570
034572
034576
0364600
034602
034604
034610
054612
034612
034614
034616
034620

042725
012725
005025
012725
012701
005037
014562
014562
014562
014562

034622
70 034624
71 034630
72 034632

000156
004737
034772
032737

62
63
64
65
66
67
68

034620

012700
104027
005737
001012
005301
001370
004737
012603

PRINTF

010355
010611
000002

MoV
MoV
MOV

000006

002735
007312
007615
006713
011420
000005
000014

022104

7%:

002736
000112

002734

MOV
EM
ADD
DEC
BNE
PRINTF
(LR
B1SB
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD
EXIT
EMTY
.WORD
JSR
1
MOV
MOV

BIS

002000
004346

177600
000454
002710
000006
000004
000002
000000

10%:

000001
002710

015142

104443
003245
011526

104032

BIC
MOV
CLR
MOV
MOV
CLR
MOV
MOV
MoV
MOV
WAITUS
MOV
EMT
TST
BNE
DEC
BNE
JSR
MOV
ERRHRD
TRAP
.WORD
.WORD
EXIT

EMT

015342
040000

14%:
002746

.WORD
JSR
60%
BI1

19-1

NEMT2 MBELL
#BELL,-(SP)

SEQ 0128
JRING BELL

NEMT2,-(SP)
#2,-(SP)

SP,RO
CSPNTF

"6,5P
R1

;DEC

COUNT

:SKIP IF NOT O

lig;;S.lPZTl7E.JBYPSNH.IOPRlA.(B.RLDRV‘1>

;RPT BYPASSED

RLORV+1,(SP)
#OPR1A,~(SP)

#BYPSNM,-(SP)

#P2T17E,-(SP)
NEMT23,-(SP)
#5,-(SP)

SP,RO
COPNTF

¥14,SP
181
CSEXIT

L10051~-,

RS5,DATGEN
#L.CS,KS

NWTIDATA, (RS)

RLDRV, (RS)

#81T10,(RS)¢
#OBUFF,(RS)+

(RS)+
#177600,(RS)+
#300.,R1
DONE
-(RS),RLMP(R?2)
=(RS),RLDA(R?)
=(RS),RLBA(RY)
=(RS) ,RLCS(R2)

;GENERATE DATA

:PATTERN 1
;GET ADDRESS IF

REGS

;LOAD WRITE COMMAND

INSERT DRIVE NUMBFR

;CLEAR FOR DRIVE &
;LOAD BUS ADDRESS

7 SPEC'D

;CyL O, WD 0, SECTOR O
;128 WORDS
;SET WAIT COUNT 70OR 30 MS
;CLEAR INTERRUPT FLAG
;LOAD RL REGS

A
#,R0

(swiu

DONE
14%
R1

10%
PC,WALITIN
(SP)+,R3
1701., ,ERR]

sCHECK IF INTERRUPT
;YES = SKIP
;DEC WAIT COUNT

;LOOP IF NOT O
;WAIT FOR INTERRUPIT
;GET RESULT MESSAGF

TSERCODE
1701

ERRY
SuUB

CSEXIT
L10052-.

PC,GSTAT

;GEY

#DRVERR,T.(S

;TEST

STATUS
IF

ANY

ERROR

SET

CIRLJAD RLO1/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
*TEST 1S
«*WYRITE LOCK ERROR AND DATA PROTECTION

73 034640

76 034642

75 034646
034646
034650

76
77
78
79

034652

034654
034662
034664
034670

034670
034672
0346764
80 034676
81 034704
82 034712
83 034720
84 034722
85 034730
86 034732
034732
034734
034736
87 034740
88 034742
89 034746
90 034750
91 034754
92 034756
93 034762
94 034764
95 034770
96 034772
97 035000
035000
035000
28 035002
99 035010
035010
035012
035016
035022
035026
035032
035036
035042
035046
035052
035054
035056
100 035062
101 035066

035066

035072
102 035074
103 035100
104 035102

001005

012703

BNE

007703

MOV

104443
003246

011642

032737
001005
012703

104443
003250
011642
042737
042737
032737
001004
032737
001404

.
002000

002754

007762

040000
002000
157400

002746
002754
002754

03600C

002746

000002

002720

104003
012737

000002

002720

012790

104026
004737
035002
032737

18%:

16%:

104443
003247
012030
000414
004737
034772
004537
000007
004737
034772
004737
034772
012737

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

15%:

015212

17%:

022104
022572
022244

002735
006032
002730
006022
007312
207273
010503
000007

.WORD

BIT
BNE
MOV
ERRMRD
TRAP
.WORD
.WORD
BIC
BIC
BIT
BNE
BIT

BEQ
ERRHRD
TRAP
.WORD
.WORD
BR
JSR
60%
JSR
7

JSR
60%
JSR
60%
MOV

EMT
T13204%: MOV
PRINTF
CLR
BISB
MOV
MOV
MOV
Mov

MOV
MOV
MOV
MOV
EMT
ADD

9000020
N00454

16%:

000001
015312
020000

60%:
ENDSUB
L10052:

ERRHRD
TRAP
.WORD

002754

MOV
WAITMS

MOV

EMT
JSR
13204%
BIY

19-2

15%
#MDRERR
RS

1702.,,ER]R3

TSERCODE

1702
ERR3

FWCESTAT,T.MP

18%
#MUGERR ,R3
1704., ERR3
TSERCODE
1704

ERR3

#ORVERR,T.CS
#WGESTAT,T
MP

#157400,7.mP
169
#36000,1.CS
178

TSERCODE
1703
ERR6
60%

PC,GSTATR

R5.DATGEN

SEQ 0129
sYES - SKIP

sSET RESULT MESSAGE POINTER
;REPORT ERROR NOT SET

STEST IF WGE SET
;YES - SKIP
:SET MESSAGE FOR WGE NOT SET

;CLEAR DRIVE ERROR BIT
;CLEAR WGE BIT
;TEST

sTEST

ANY

ANY OTHER ERRORS

:YES - GO REPORT

ERRORS

IN (S REG

:NO - SK]P
;REPORT ERRORS

JEXIT TEST
;GET S1ATUS AND RESET ERROR
;GO GENERATE DATA
;PATTERN 7

PC,XREAD

<READ DATA

PC.DATCOM

: COMPARE DATA

#2 ,ERRSWI

;INIT ERROR SWITCH

($ESUB

¥2 ,ERRSWI
. INIT ERROR SWITCH
#FMTOP1,#0PR12,#0PR1A
,#BASADD ,RLBAS ,#DRVNAM,<B,RLDPV+1>
-(SP)

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

#OPR1A,=(SP)

#OPR12.=(SP)

#EMTOPT
.- (SP)

#7,-(SP)

SP,RO
CSPNTF

#300.,R1
T
#1,R0

COWTM

;SET WAIT FOR 30 SEC

PC,GSTATR

;GET STATUS

SWLSTAT,
T MP

JCHECK

WRITE

LOCK

RESET

;REQ RESET

WRT

L(K

(lRLJAO RLO1/2 DR TST 2 MACRO v03.0! 9-FEB-79 19:23:55 PAGE
«TEST 15
t+WRITE LOCK ERROR AND DATA PROTECTION
105
106
107
108
109
110

035110
035112
035116
035116
035120
035120

035120
035120

001403
005301
001364
000731

104001

132658%:
ENDTST

L10051:

19-3

BEQ
DEC
BNE
BR

13265%
R1
16%
13204%

EMI

($ETST

N 10
Sea 0130
;DEC WAIT COUNT
;LCOP if NOT O
sELSE REPEAT MESSAGE

CIRLIAD RLOV/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
**ADJACENT CYLINDER INTERFERENCE
¢TESY 16
1

.SBITL
BGNTST

2 035122
035122
T 035122

002714

6 035130

MOV
JSR

5 03513
6 035140

JSk
JSR
13365%
(LR

7 035144
8 035146

9
10
11
12
13
16
15
16
17
18
19

20
21
2¢
2%

035152
035156
035162
035164
035172
035174
035200
035202
035206
035212
035220

000001

BNE

177730

Mov

177770
002406
000010

MoV
MV
MOV
Mov

013350
002202

035224
035230
035282
035236

MOv
151
BNE

013346

002202

DEC

022104

24
25
26
27
28
29
30
31
32
33
34
15
15

035240
035246
035254
035262
035270

013352
013352
013352
013352
000002

002410
002412
002416
002424

075274
035302
035304
035310
035312
03531t¢
035320

000001

013346

318
39
40
41

035332
035334
035340
03532

JSR
9.
MOv

133008%:

003342
000006

003044
000001

37 035324

L¢

*TEST

002200

3%:
6%:

020527

035352
035360
035366
49 035370

50
51
52
53
56
£5

035174
035376
035400
035404
035410
03512

016537
043737
001013
000137
005705
001002
062705
02370%

103007

001767
010537
023737

002506

002206

002202
002202

034126
000002
002204
002202
002202

#P2118E ,ERHEAD
PC,CKBSVD
PC,ISTINT
PC.GSTAIR

;SET ERROR HEADER
;G0 CHECK ]F BAD SECTOR
JINITIALIZE TEST
;CLEAR DRIVE

PASCNT
#-2,RS
PASNUM
1%

sCLEAR PASS 10 O
:SET RS
STEST IF FIRST PASS
;NO - SKIP

FALLCYL

MISWIW

1%
#-40,,RS
9%
#-10,RS
#1331BL,R1
#10,04)
LOLIMW,(R1)+
JJJ

BNE
RS,DATGEN

TEST

USE

FILES

(QUICK

JYES - SKIP

BEQ

;NO - SK]P

181

PASNUM

ADD

#6,RS
6%
#36.,R5

VERIFY)

(YLINDERS

TEST

USE

ALL

SYEST

FIRST

CYLINDERS

PASS

(QUICK

VERIFY)

;ELSE BUMP CYLINDER POINTER BY
:SK]P
;BUMP TO NEXT ENTRY

(MP
BHIS

RS,#82
4%

69%:

MOV

CYLTBL(RS),uJJ

4%:
5¢:

BNE
JMP
151

8%
13165%
RS
7%

STEST IF RS O
:NO - SKIP

HLMTW,RS
49
RS, JJJ
JJJ,L0L MW

STEST IF ALL CYLINDERS USED
SYES = EXIT TEST
;USE RS AS NEXT CYLINDER
CHECK JF LOWER THAN LOL [M]T

BtQ

8¢:

BIC

BNE

ADD

(MP

BEQ

MOV
(MP

VALID

2%
;LOOP UNTIL O
*:GO GENERATE DATA
;PATTERN 9
HILIMW,T33TBL+2 ;INSERT HILIM]T
HILIMW,T331BL+4 ;INTO APPROPRIATE LOCATIONS
HILIMW,T331BL+10
HILIMW,T331BL+16
#2,RS
5%

ADD
(mMp

ALL

T16::

JYES - SK]P
JELSE SET RS TO NEG 20
;SKIP
JELSE SET FOR NEG &
:GET ADDRESS OF WORK TABLE
;SET CLEAR COUNT
;CLEAR LOCATIONS
10 LOLIMIT
;DEC COUNT

MALLCYL,MISWIW

B8R

INTERFERENCE

449

’%:

013350

CYLINDER

BIT
BNE

0006122

t*ADJACENT
;TEST 16

(MP
BHIS

000403

035344
035350

SEa 0131

#1,1.DRIVE
L4
RS, 164
4%

000244

63
44
45
46
&7
“8

MOV
MOv
MOV
ADD

8 1

69%

CLRBYT,0JJ

#2.,R5

N NN NN N AN N N~y —

0372

NN
NN AN AN

NN N NN N NNSNNNN
NSNS

WWORO WO WO
—=O—wn

035424
035626
035434
035436
035442
035446
035454
035462
035470

OO0V DOO—-OOOOOO
=0 —
[ e Rl
o JEE I N e QR i
e e PP Y o 1.
5 O NN AU NN AU AN N AN AN NN — (N

RLOY/?2 LR
ST 2 MACRO v03.01 9-FEB-79 19:23:55
**ADJACENT CYLINDER INTERFERENLE

002202

013352

002446
002202
002202
002202
002202
002202
€00001
002202
002202
000002
002202
002202
002726
017546

N00006
000010
000012
000016
002202
000002
000012
002202
000004
000014

BLO

Cmp
BH1
Mov
MOv
Mov
MCv
MOv
Mov

SUB

Mov
MOV
ADD
Mov
Mov
Mov

13301$:

JSR

PAGE

20-1

cn
SEQ 0132

13300%
JJJ HILIMY
13300%

SK1P
IF HIGHER
P
SKI
S
JYE
JVES JCHECK

THAN HILIMIT

JJJ,(R3)
JJJ,6(R3)
JJJ,10(R3)
JJJ,12(RY)
JJJ,16(RY)

",JJJ

JJJ,2(R3)
JJJ,12(R3)

#2,JJJ

JJJ,4(R3)
JJJ,14(RY)
R3,TBLSTR
PC,CHOSHD

;60 CHOSE HEAD

BGNSUB
104002

042737
005737
001414
023727
001404
002407
012737
052737
000405
005037
052737
012737
012701
012703
005037
012137
004737
036242
012701
004737
036242
012337
004737
036242
012701
004737
036242
004737
036242
004737
036046
032737
001425
004737
036242
005237

003760
003134

002706

003134

000004

000004
000020

003134
002706

003134
000040
002706
00272¢
000003
002406
002446
003016
003004
016204

EmT
BIC
151
Bta
(Mp
BEO
BLT

108
11%:

12%-

19%:

MOV

#OUTINS ,OPFLAG

MOV
MOV
MOV

CLR

JSR

MOv
JSR

003004
016204

MOV

005670
021026

MCv

000001

60%

022532

003016

12%

PASCNT

#3,WRTSW]
#13318L,RY
#1BT,R3
DESSEC
(R1)¢+ NEWCYL

8l
BEQ
JSR
60%
INC

MESSAGE QUALIFIERS

PASS O

;YES - SKIP

STEST IF PASS 4
JYES - SKIP
s CHECK IF LESS THAN 4,
;ELSE SET 10 &

sSET MESSAGE QUAL

;SKIP
:SET PASS

COUNT

T0 O

:SET MESSAGE QUAL
;SET READ AND WRITE SWITCH

;CLEAR TO SECTOR 0
;GET NEXT TABLE ENTRY

;SET WALTY COUNT FOR 300 MS

(R3)+ NEWCYL

JGET NEXT TABLE ENTRY

#30900.,R1

JSET WALT COUNT FOR 300 MS

PC,RDYWALT

329

#3000.,R1

JSR
JSR

;CLEAR ALL

;TEST

;D0 SEEK

PC,XSEEX

60%
JSR

T16.1:

PC,XSEEK

JSR
60%

60$

002724

10%
11¢

(LR
B1S

60%

16%:

11%

PASCNT
, #4

BIS

005670
02102¢

023252

#MQUALS ,OPFLAG
PASCNT

#4 ,PASONT
¥ INOUTS ,0PFLAG

MOV

0214622

($BSUB

JWALT

FOR READY

.00 SEEK

;WALT

FOR

READY

PC,VERPOS

;VERIFY POSITION

PC,BSCHK

;CHECK FOR BAD SECTOR

#B110,wRT1SW]

29%

JTEST IF WRITE
sNO = SK]P

DESSEL

s INC SECTOR

PC,XWRITE

:"'YES'' RETURN

;00 WRITE

THIS PASS

YES CLEAR 10 0

NrY

—

S AN AN AN AN AN NN AN NN
NI N NNV PROPRIPNIRNIN) = b s b
o VOB NN
WA= OOV
NO NI WA = OO0~

b e

[aal>
-]

wrr

b o
i
e
b e d o
ard
i ol o
ol el
i
s e
e
d
i e
o
o
e
e
e
ot o

~4 Py

AQ RLOV/? DR TST 2 MACRC v03.01 9-FEB-79 19:23:55 PAGE
16
**ADJACENT C(YLINDER INTERFEREN(E

161

156

157

158
159
160
161
162
163
164

035762
035770
035772
036000
036006
036014
036020
036022
036030
036032
036036
036040
036044
036046
036052
036060
036062
036066
036072
036076
036104
036112
636114
036122
036124
036132
036134
036142
036144
036152
036160
036162
036170
036172
036200
036204
036212
036214
036222
036224
036232
036240
036242
036250
036250
036250
036252
036252
036254
036256
036264
036272
036274
036302
036304
036310
0%314

022737
001360
042737
042737
052737
005037
000744
032737
001414
004737
036242
004737
036242
005237
022737
001324
005037
005037
005237
042737
023727
001453
023727
001447
023727
001430
023727
001430
012737
023727
001411
023727
001405
052737
000137
052737
000772
052737
000403
052737
012737
000757
012737

000050

003016

000660
000001
000100
003016

002706
002724
002706

000002

002724

022572

003016

003016
002724
003134
003760
003134

002706
000004

003134

#FOLWRT,0PF
LAG

29%:

DESSEC
16%
#BIT1 WRTSWI]

31¢%:

312%:
313%:

:SEI FOLLOWING WRITE QUALIFIER
sCLEAR T0 SECIOR 0
;SKIP

33%

READ

PC,XREAD

:NO - SKI]P
JELSE DO READ

;TEST

PC.DATCOM

; COMPARE

DATA

DESSEC
#60. ,DESSEC
16%
DESSEC
WRTSW]

;BUMP SECTOR
;TEST

ALL

:NO - LOOP

THIS

PASS

SECTORS USED

PASCNT
#MQUALS ,OPELAG

sCLEAR DESIRED SECTOR
sCLEAR WRITE/READ SWIT(HM
+BUMP PASS (OUNT
;CLEAR ALL QUALIFIERS

000010

60%
PASCNT ,#8.

;YES - SKIP
;TEST IF PASS 8.

003134

000003

PASCNT
, #3

sTEST

003134

000007

;TEST IF PASS 7

000001
003134

002724

PASCNT ,#7
40%
#B110,WRTSW!]
PASCNT
,M

003134

000002

000040
035650
000020

002706
002706

36%:
37%:

000200

002706

19%:

000400
000002

002706
002724

60%:
61%:

000002

002720

60$:

PASCNT
¥4

60%

39%

000001

BEQ
(MP
BEQ
BiS
JMP
BIS
BR
BIS
BR
BlS

($ESUB

MOV

002416

002726

MOV

003134
017572

(MP
BNE

45%:

BR
(LR
JSR
133008

PASS 3

JYES - SK]IP
JYES - SK]P

;SET WRITE REQUIRED
STEST IF PASS 1
;YES - SKIP

;TEST

PASS 2

JSET MESSAGE QUALIFIER

36%

EMT

002726
000004

#REVSKS ,OPFLAG

15%

N2 ,ERRSWI

000003
003134

;YES - SKIP

¥ INOUTS ,0PFLAG

#FOUTINS ,OPFLAG

MOV

IS PASS 4

STEST

sYES - SK]IP
;SET MESSAGE QUALIFIER
;G0 DO NEXT PASS
:SET MESSAGE QUALIFIER

MOV

ESCAPE
EMT
.WORD

104010

37%

PASCNT ,#2
37%

L%
#FWDSKS ,OPFLAG
¥BIT1,WRTSWI

ENDSUB

L1005¢:

104003

000060
0127%7
023727
001004
0127%7
000410
0050387
004737
03%270

SEQ 0133

#60. ,DESSEC
STEST IF ALL SECTORS USED
169
:NO
- SKIP
#INOUTS 'OUTINS,OPFLAG ;CLEAR QUALIF]ERS
#BIT0,WRTSWI
;CLEAR WRITE REQUIRED SWIT(H

02224
003016
000050

20-2

36%

181

CSESCAPE

L10053-.

;SET MESSAGE QUALIFIER
:SETM

READ

REQUIRED

:INIT ERROR SWIi(H

JEXIT

TEST

ERROR

#3,WRTSW]
PASCNT, #4
45%

:SET FOR READ WND WRITE REQ.

48%

;GO START PASS &
;CLEAR TO PASS O
16O SWAP 10 HEAD

;TEST

PASS 4

NO = SKIP

#13318BL+10, TBLSYR ;STORE MID POINT

[N TABLE

PASCNT
PC,SWAPHD

OR {ND

. ABORT

RETURN

’

TES"

CIRLJAD RLQY/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 20-3
116

165
166
167
168
169
170

036316

012737

0024C6

036326
036330

062703
000137

000010
035552

036334

**ADJACENT

036334

036334
036336

104001

CYLINDER

INTERFERENCE

002726
48%:
13365%:
ENDTST

L10053:

SEQ 0134

Mov

#T1331BL,TBLSTR

ADD

#10,R3

Emy

($ET1ST

13301%

;STORE

START OF

TABLE

= OOV

PORUNPONY
b ot et ot s e e
b s it

NED W= OO0~

CIRLJIAQ RLOY/2 DR TST 2 MACRO v03.01
«TEST V7
t*OJERWRITE

036336
036336
036336
036344
036350
036354
036360

036362
036366
036372
036376
036400
036406

036410
036414
036416
036422
036426
036434
036440
036444
036446

001003
0127905
000402
012705

21
37

37
37
37

036454
24 036462
25 036470
26 036474

27 036502

177776

MOV
151

003342

BNE
BIT

013346

BNE
Moy
B8R
MOy
MOv
MOV

177730
177770
002406
000010
013350
002202

013352
013352
013352
000002
000001

000006
000001

002202

MOV

002410
002414
002420
013346

DEC
BNE

13400$%:

ADD

002200

1%.
6%:

L4498

002202
002202

- NN

ADD

(mMp
BEQ

BHIS
BR
(MP
BHIS

MOV

BIC
BNE
JMP
1S1
BNt
ADD
(MP

013350

N N

BEQ

002202

013252

M NN

7%:

002202

0024486
002202
002202

669%:
L9
5%

000002
002204
002202

(Mp

037526

001767

BIT

11
BNE

000122

00250¢
002206

MOv
MOV
MOv
ADD

BNE

000244

NI N NN

036616
036626
036626
036634
036636
0366472
036646

JSR
13465%
(LR

003134

000001

*TEST
MOV
JSR
JSR

000046

NN TN W

50
51
52
53
56
5%
5¢

036552
036560
036566
036570
036574
036576
036600
036604
036610
036612

002714

003342

= O —

40
41
4e
4%
46
45
46
47
48
49

036504
036510
036512
036516
036520
036524
036532
036534
036540
0%654¢
036544
036550

(=leolo
P Jo L lele]
—t wnt —ed Y NY O N
VAVLSRRIV
IV T

28
29
30
31
32
33
34
35
75
317
I8
39

006772
017656
015274
015312

000002

SEaQ 0135
.SBTTL
BGNTST

012737
006737
0046737
004737
037526
005037
012705
005737
001007
032737

9-FEB=-79 19:23:55 PAGE 21

8%:

MQy

(mp
BLO
(mp

BH]

MGV
MOV
MOV

+*OQVERWR]TE
;TEST 17
#P2T19E ,ERHEAD

;SET

PC,ISTINT
PC,GSTAIR

JINITIALIZE TEST
;CLEAR DRIVE

BAD

PASCNY

:CLEAR PASS

10 0

PC,(KBSVD

#-2.,R5

CHECK

;SET RS

PASNUM

;TEST

FALLCYL

;60

ERROR HEADER

MISWIW

1%
#-40. RS
9%
#-10,RS
#i3318L R
#10,JJ)
LOLIMW, (RT)e
JJdJ

;NO -

SKIP

FIRST

;TEST

USE

117::
SECTOR

PASS

ALL

FILES

(QUICK

VvALID

VERIFY)

CYLINDERS

;YES - SK]P
;ELSE SET RS TO NEG 20
;SKIP
JSET FOR NEXT ENTRY
’
;GET ADDRESS OF WORK TABLE
;SET CLEAR COUNT
.
JCLEAR LOCATIONS T0 LOLIM]T
;DEC COUNT

;LOOP UNTIL O

HILIMW,T33TBL+2 ;INSERT HILIM]T
HILIMW,T331BL*6 ;INTO APPROPRIATE
HILIMW,T33T1BL+12

LOCATIONS

#2,RS

NALLCYL ,MISWIW

;TEST

USE

PASNUM

JTEST

FIRST

#38. RS

;ELSE

BUMP CYLINDER POINTER BY

¥6,R5
#1,1.DRIVE
L4498

;BUMP

CYLINDER POINTER BY

;FOR

5%
33

669%

JYES - SKIP

NO - SK]P
:SKiP

INF,

SEE

ALL

v YLINDERS

PASS

TEST

(QUICK

VERIfY)

RS, #82.
4%

CYLIBL(RS),uu)
CLRBYT,0J4J

13465%
RS
7%
#2,RS
SHLMTW,RS
4%
RS,JJJ

JEXTIT TEST
sTEST IfF RS O
:NO = SK]P

134009
JJJ ML
134008
#1871 ,R3

JYES & SKIP
STEST 1P PAST
JYES = SKIP

JJJ,.LoL Iy

JJJ,(RY)
JJJ,2(RY)

JTEST

ALL

CYLINDERS USED

STESY

1F PAST LO LIM]T

JYES = EX]IT TEST
JUSE RS AS NEXT CYLINDER

wWloImpy

57
€8
59
60
61

036654
036662
036670
036676
036704

013763

00202

002202

002726
017546

< 036710
63 036714

66 036714
036714
036714
65 036716
66 036724
67 036730
68 036732
69 036740
70
71
72
73
74
75
76
77
78
79

80
81
82
83
84
85
86
87
88
89

002202
002202

003760

003134

036742
036764
036752
036760
036762
036766
036774
0370C2
037006
037012

9-FEB=-79 19:23:55 PAGE

002706

000003
00002C

003134
002706

003134
000040

000003
002406
002446
003016

002706
002724

($BSUB

(Mp

BEQ
BL1

12%:

MOv

BIS
BR
CLR
BIS

MOV
MOV
MOV

(LR

MOV

016204

JSR

60%

005670
021026

MOV

00300«
016204

MOV

JSR

005670

MOV

021422

60%
JSR
60%

000003

003134

037140

000010
022104

037140

000001

002724

022532

003016
000050

003016

#INOUTS,OPFLAG

12%

PASCNT
#OUTINS,OPFLAG
#3,WRTSWI

#T133718L,R1
#1871 ,R3
DESSEC
(R1)¢ NEWCYL
PC,XSEEK

#3000. ,R!

sCLEAR ALL MESSAGE

;TEST IF PASS 0
JYES = SK]P
:TEST IF PASS 3
JYES - SK]IP

JCHECK

LESS

;ELSE SET 10 3

THAN 3,

+SET MESSAGE
JSKIP

QUAL

;SET MESSAGE

QUAL

;SET PASS COUNT

:SET WAIT COUNT FOR 300 Ms

#3000.,R1

;SET WAIT

COUNT

PC,VERPOS

;VERIFY POSITION

JSR

PC,BSCHK

:CHECK FOR BAD SECTOR

1S81
:13°]
(Mp
BEU
(LR

PASCNT

STEST IF PASS 0

MOV

JSR
.WORD
BI
BEQ
JSR

609
INC

(mp
BNE

17%
#3, PASCNT
17%

FOR READY

FOR

;WAIT FOR READY

300 MsS

:YES'' RETURN

JYES = SKIP

:TEST

JYES =

PASS

SKIP

25%

:ELSE CLEAR DATA PATTERN SELECTOR

RS,DATGEN

¢SET DATA PATTERN SELECTIOR 10 8
«GO GENERATE DATA

18%
#8.,25%

#B110,uRTSWI

29%

JTEST
sNO =

IF WRITE
SKIP

THIS PASS

PC.XWRITE

:D0 WR]TE

DESSEC

+INC SECTOR
sTEST I# ALL SECTORS USED
(N0 = SKIP

060, ,DESSEC

T0 0

TABLE ENTRY

32%

YES (LEAR

SWIT(H

GET NEXT
.00 SEEK

PC,RDYWALT

10 0

sSET READ AND WRITE

sGET NEXT
:DO SEEK

QUALIFIERS

(R3)¢ NEWCYL

JSR

003134

PASCNT ,#3
108
11%
#3,PASCONT

117.1:

PC,XSEEK

60%

16%:

PASCNT
11

HEAD

SWAIT

60%

023252

#MQUALS ,OPFLAG

.60 CHOSE

PC.RDYWALT

JSR

021026

001340

EMm

BEQ

11%:

JJJ,6(R3)
JJJ,10(R3)
JJJ,12(R3)
R3,TBLSTR

PC,CHOSHD

181

10%:

JJJ,6(RD)

JSK

Bl1(C

15%:

003004

037016
037022
037026
037030
037034
037040
037042
037046
037052
037054

MGy
MOV
MOV
MOV
MOV

134018%:
BGNSUB

000003

61N
SEQ 0136

000004
000006
000010
000012

003134

21-1

(=]

(ZRL.AQ RLOY/? DR TST 2 MACRO v03.01
*TESY 17
**OVERWR]TE

CIRLJAQ RLOV/2 DR TST 2 MACRO v03.01
*TEST 17
*+OVERWRITE
112 037174

113 037202
114 037210
115 037216

116 037222

117 037226
18 037232

. 119 037234

120 037240
121 037242

042737

042737
052737
005037
000724

032737
001474

004737

037434
004737

122 037246

037434

125
126
127
128
129
130
121
132
133

037262
037264
037270
037274
037300
037306
037314
037316
037324

001304
(GO0S037
005037
005237
042737
023727
001447
023727
001443

135 037334
136 037336
137 037344

001424
023727
001424

139 037354
140 037362

023727
001405

123 037250» 005237
1264 0372564
(022737

134 (373526

138 037346

023727

9-FEB-79

000060

002706

000002

002724

000001
000100
003016

"9:23:55 PAGE
BI(

002724
002706

022572

BIC
B1S
(LR
29%:

022244

003016
000050

003016

003016
002724
003134
0C376C
003134

002706
000003

003134

000006

003134

000000

003134

000004

312%:
33%:

JSR

PC,XREAD

;ELSE

60%
JSR

PC,DATCOM

;COMPARE

DESSEC
#60, ,DESSEC

:BUMP SECTOR
;TEST IF ALL SECTORS USED

60%

INC
(MP

;YES - SKIP
sTEST IF PASS &
JYES - SK]P

(mMp
BEQ

PASCNT ,#2
37¢%

sTEST IfF PASS 2
JYES = SK]P

002706
002706

76%:
37%:

000020

002706

39%:

BIS
JMP
815
BR
BisS

147 03741€

052737

000040

002706

40%:

8IS

149 037432
150 037434
151 037442

000757
012737

000002

002720

60%:
ENDSUB

037442
0376442

104003

037444
037446

104010
000060

15¢ 037444

153 037450

012737

155
156
157
158
159
160
161

001004
012737
000410
005037
004737
036470
012737

154 037456

037464
037466
037474
037476
037502
037506
037510

16¢ 037516
163 037522
164 037526

023727

062703
000137

L10056:

000003

002724

002414

002726

003134

003134
017572
002406

000006
036714

45%:
002720

«8%:
13465%:

PASCNTY, 1

#BIT1, WRISWI]

#REVSKO,OPFLAG
15%
#FWDSKO,0PFLAG
36%
#INOUTS,OPFLAG

:TEST

PASS

;SET WRITE

REQUIRED B!

;SET REVERSE QUALIFIER
;GO DO NEXT PASS
;SET FWD QUALIFIER
:60 DO NEXT PASS
;SET QUALIFIER

B8R

419

;SKIP

MOV

#B110,WRTSWI

;SET WRITE

REQUIRED BIT

(SESUB
T1S1
(SESCAPE

SEXIT

#3,WRTSu]

:SET

BR
MOV

EM1
ESCAPE
Emi

SOUTINS ,OPFLAG
36%
¥2,ERRSW]

.WORD

L10055~-.

(MpP

PASCNT,#3

MOv

000003

DATA

19%
PASCNT ,#4
40%

MOV

41%:

DO READ

BEQ
(MP
8EO

001000
037012
002000

002724

THIS PASS

JNO - LOOP
;CLEAR DESIRED SECTOR
CLEAR WRITE/READ SWIT(CH
;BUMP PASS COUNT
;CLEAR ALL QUALIFIERS
sTEST IS PASS 3
JYES - SK]P
;TEST 1F PASS 6
;YES - SKIP

052737
000137
052737
000772
052737

000031

;TEST IF READ
:NO = SK]P

16%
'
DESSEC
WRTSW]
PASCNY
#MQUALS,OPFLAG
PASCNT , #3
60%
PASCNT 46
60%

037364
037372
037376
0376404
037406

012737

#BIT1,WRTISW!
33¢

BNE
(LR
(LR
INC
BI(
(MP
BEQ
c(mp
BEQ

000002

14,8 037424

;CLEAR QUALIFIERS

:SK1P

Bil
B8EQ

00313

000403

#INOUTS'OUTINS,OPFLAG

16%

000002

146 0376414

SEQ 0137
;CLEAR WRITE REQUIRED SWIT(CH
;SET FOLLOWING WRITE QUALIFIER
sCLEAR TO SECTOR O

012737

141
1642
163
144
145

H 1

#B1T0,WRTSW]
#FOLWRT,OPFILAG
DESSEC

(mp

002724

21-2

BNE
MOv
BR
(LR
JSR
13600%
MOV

ADD
IMp

;SET

MESSAGE

QUALIFIER

.GO DO NEXT PASS
s INIT ERROR SWITCH

STEST

TEST

ERROR

FOR READ AND WRITE

PASS 3

REQ.

5%
:NO = SK]P
#133TBL*6,1BLSTR ;STORE MID POINT IN TABLE
48%
;G0 START PASS &
PASCNI
;CLEAR 10 PASS 0
PC,SWAPHD
;GO SWAP 10 HEAD ONE OR ABOR'
;ABORT RETURN
#1331BL,TBLSTR
;STORE START OFf TABLE

#6,R3
13401%

"ES!

CIRLJAD RLOY/2 DR TST

*TESY

2 MACRO v03.01

**OVERWRITE

165 037526

037526
037526

166 037530

106001

9=FEB=79 19:23:55 PAGE

21-3

In
SEG 0138

ENDTSY
1L10055:
ENDMOD

EMT

($ET1ST

CIRLJAO RLO1/2 DR T1ST

PARAMETER

&»

000030

005130
037665
090001

PARAMETER CODING
HRDPRM

GPRML

CNTYPE,CNT,1,YES

160000
177776
GPRMA

001031
037623
000000
000776

GPRMD

004032
037660
003400
000000
000007

GPRML

075

114
000
104
126
122
061

1
LWORD
BRMSG,PRIOR,0,340,0,7,YES
.WORD
T$CODE
.WORD

BRMSG

LWORD
.WORD

YSLOLIM
TSHILIM

—ad
—d
—

340

EVEN

VE(MSG:

LASCI2

/vEC\QR/

BRMSG:

ASCIZ /BR LEVEL/

DRYYPE:

LASCIZ

/DRIVE

DRMSG:

LASCIZ

/DRIVE/

(NTYPE:

LASTLZ

/RUTYY

it —ab

104
126

LWORD
TSHILIM
DRTYYPE,TYPDR,1,VES
.WORD
7$CODE
.WORD
DRTYPE

/BUS ADDR/

040

114
105

3400
TSLOLIM

LASCIZ

000

OO ~t et

102

DRMSG

(SRMSG:

OrOr0—0ON
OOWVNES
BN

000

.WORD

(SRMSG,CSR,0,160000,177776,YES
.WORD
TSCODE
.WORD
C(SRMSG
TSLOLIM
.WORD
.WORD
TSHILIM
VE(MSG,VECT,0,0,776,YES
.WORD
T$CODE
.WORD
VECMSG
TSLOLIM
WORD
TSHILIM
LWORD
DRMSG,DRSB,0,3400,0,7,VYES
.WORD
T$CODE

124

T$CODE

CNTYPE
1

v IV IV

VIV IV

VIV I

7626
7631
7632
7635
7640
7643
7666
7¢51
7654
7657
7660
7663
7666
7671

102

—b

L10057:
—. OO
N

037617

1?7

000007

040
104

LMWORD

.WORD
.WORD

.WORD

ENDHRD

OO0V OO0OOOTOOOOO

002032
037632
000340
000000

— Oy
[ARV,
1 V]

p—

O
—

e
—

we Ny

GPRMD

037612

037612
037615
037620
14
37623

.WORD L10057-L$HARD/?

.WORD
.WORD

003130
037643
000001

SEQ 0139

.SBTTL
BGNMOD
BGNHRD

GPRMA

000031
037612

037610

J 1

9-FEB-79 19:23:55 PAGE 22

[V ] @ )

CODING

2 MACRO v03.0V

126

111

040
122

061
111

000
061

= RLOV/

CZRLJAQ RLOY/2 DR TST

PARAMETER

CODING

33
;

ENDMOD

037674
037674
037674

00G061

037676
037676
037700
037702

000130
040040
000001

037704
037706

000130
040054

27 037704

7710
7
7712
7714
7716

36 037720
037720
(37722
037724
37 037726
037726
38 037730
037730
037732
037734
037736
0377640
39 037742
037742
037744
03774€¢
40 037750
37750
61
3
37752
37754
37756
037760
037762
4?2 037764

BGNMOD

000002

000130
040071
100000

000130
040126
040000

000130
040153
020000

002052
040145
000377
000000
000377

006044

037774
037776
040000
040002
240 )4

003052
040216
000017
000000
000001

SFTPRM

LHORD L10060-L9SOFT/2
cvLa, mIsSwl,1,vES
.WORD
T$CODE
(veLa
.WORD

GPRML

SECQ,MISWI,2,YES

GPRML

.WORD

LOLIMQ, MISW],&40000,YES
. WORD
1$CODE
LOLIMQ
.WORD
.WORD
40000
XFERF
1%
.WORD
T$CODE
GPRMD
LIMVAL,LOLIM,D,255..0,253..YES

2%:

LIMVAL

. WORD
. WORD

TSLOLIM
TOHILIM

GPRML

255.

HILIMQ,MISWI,20000,YES

.WORD
.WORD
.WORD
XFERF
.WORD
GPRMD
.WORD
.WORD

T$CODE
HILIMQ

.WORD
.WORD
XFERF

HEADQ
10000
3

.WORD
.WORD
.WORD
GPRML
.WORD

.WORD

20000

2%
T$CODE
LIMVAL ,HILIM,D,255.,0,255.,YES
T$CODE
L IMVAL

2565.
TSLOLIM
TSHILIM
HEADQ,M]SWI,10000,YES
T$CODE

1$CODE

GPRMD

HEADV,HEAD,D,17,0,1,YES

.WORD

HEADV

.WORD

1% :

T$CODE

.WORD

1%:

.WORD
T$CODE
SECQ
.WORD
.WORD
P4
MANQ,MISWI,100000,YES
.WORD
T1$CODE
MANQ
.WORD
.WORD
100000

.WORD

006044

037772

46 040006

K 11

.EVEN

GPRML

001052

040145
000377
000000
006375

000130
040174
010000

L& 037774

T
BGNSF

006044

037764
037766
037770

<3 037772

9-FEB=79 19:23:55 PAGE 22-1

SEQ 0140

1 9 037673

20
21
22
l3
.
2
26

2 MACRO v03.01

.WORD
.WORD
.WORD
GPRMD

1$C0DE

17
TSLOLIM
M
TOHIL
ERLIMQ,ERLIM,D,477,0,377,VES

CIRLJAQ 20172 DR TST

PARAMETER

CODING

040006
040010
040012
040014
040016
<8 040020
040020
040022
040924
040026
040030
50 040032
040032
040034
040036
5 040040

2 MACRO v03.01

9-FEB=79 19:23:55 PAGE

SEQ 0141

00405¢
040241
00037

.WORD

.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD

GPRML

000130
040263
000020

040040

L10060:
OrON—=SOrn

WO = (N8 D) =\

52
54 040040
040043
040046
040051
55 040054
040057
040062
040065

040070

.WORD

AUTOQ

LEVEN

CvLO:

LASCIZ

/7USE

ALL

(vL/

SECQ:

.ASCIZ

/USE

ALL

SECT/

MANQ:

LASTIZ

/D0 MANUAL

LOLIMQ:

.ASCIZ

/LOW SEEK

LIMVAL:

.ASCIZ

/VALUE/

HILIMQ:

,ASCIZ

/UPPER

HEADG:

,ASC]!?

/USE

INTERVENTION

S S~

i
)

pDCLIMQ

NN
—
)

. P ANOOO S OWVO VNN

e =
Yo T Y« VY o P
st OPNVO
= O =
ON

—

17
sSLoLIm
TeHILINM
HCLIMQ,DCLIM,D,377,1,377,YES
T$CODE

LIM]IT/

SEEKX

LIMIV/

R
—

= LS ONINNOON
= =N —= O
=N O
=

Ot
o O =t —a
ONO
S —=O
ONNOOoO
W

040177
040202
040205
040210
040213

O WO = YN OWVOWMNIO W et N et (NN NO WO

040172

66 040174

) et et ()
e e e e il el i el et e et () i e ek
NS et = PPN = = PNV OMNININ) = = O P =N O
NONES OV
= MWD
=
N0 SN

OO0 =00

NN vt it ca

—

61 040071
040074
040077
040102
040105

105

T$CODE

ERLIMQ

377
TSLOLIM
TOMILIM
AUTOQ ,MISWI,20,YES
.WORD
19CODE
LWORD
.WORD
.WORD

.WORD

ENDSEHT

060110
040113
04011¢
040121
040124
63 060126
040131
0460134
040137
040142
64 040145
040150
65 060153
040156
040161
040164
040167

22-2

ONLY ONE

SURF/

TESTS/

040316
040321
040324
040327
040332
040335

74
75 040336
76 040336

040336

-— PO
O N —

i e

£ NOWVONIOO

ERLIMQ:

e O et O

Q=L NN

O =t €

s et

VOO

HEADvV:

=N~

D
oD el
) e e

=P NNOO =N NWVNO OO

72 040313

040271
040274
040277
040302
040305
040310

e e

70 040263
040266

127
124
125
040
040
040
069
1

O=P O=—=2OOMNNIN
= s NI
— = O
OWVOWVNWNaS NONN =NO
N =~ —

67 040216
040221
040224
040227
040232
040235
040240
69 040241
040244
040247
060252
040255
040260

Ot Ot O —
O =\ PO LS e
—_—nONOO

CODING

O =t O et md ed d e e e

PARAMETER

2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 22-3

—t e d O e e o et s o s () D e e b e
s
= AN
OO —=O—=OMN
NN = PNININD —

(IRLJAD RLOY/2 DR TST

126

nn
SEQ 0142

_ASCIZ

/WHAT

SURF

_ASCIZ

/INPUT

ERROR LIMIT/

AUTOQ:

,ASCIZ

/DROP

DCLIMQ:

.ASCIZ

/DATA (MP ERR LIMIT/

DRv

(0 OR 1)/

NO RESPONSE/

.EVEN
ENDMOD
LASTAD

LSLAST::

.EVEN

—_

CZRLJAD RLOY/2 DR TST 2 MACRO v03.01 9-FEB=-79 19:23:55 PAGE 24
1AGNOSTIC SUPERV]ISOR == LOw C(ORE SET uP

.SBTTL

DIAGNOSTIC SUPERVISOR == LOW CORE

bt2

SEQ 0143

SET UP

ASSEMBLY ROUTINES

PWR_FA]L:

35
36
37
38

29
G

071132
071134
071136
071140

POWER

000000
000000
000000
000000

071144
000200

MACRO v03.01

INTERRUPT

9-FEB-79

ROUTINE

19:23:55 PAGE

.WORD
.WORD
.WORD
.WORD

0
0
0
O

END.SUPV.42
LEND 200

172

8 12
SEQ 0144

:SP;(E FOR USER POOL POINTER
;SILE
JCHECKSUM (NOT CURRENTLY USED)
:SIZE OF M.wW. PTAR., ALLOCATION

ASSEMBLY

SYMBOL

ROUTINES

TABLE

ABOFLA
ABOPAS

ABO.FM
AFMID

AFMIDU
AsS1

MACRO v03.01

040662 G
040600 G

BLCCK
BRMSG

063436
037632

003114
040370 6

BSFVAL
BSNSTR

003354
007464

043142
003112

BSCHK
BSFLAG

ALLCYL= 000000
ALLOC
061302
ALLSEC= 000002

BYPSNM
BSAAB
BSAAF

AUTOQ

CAL.CL

ANYERR=
APT.ER
ARMID
ARMIDU
ASSEMB=

100000
062272
003116
003120
000011

AUTOSZ=
ASAAV
ASAAW
ASAAX

000020
045140
045154
045166

ABAAY
ASAAZ
ASABA
BADADD=
BAMSK =

BANAM
BASADD
BELL
BGN.SU=
BHSTAT=
BINMSG
BI10
=
81700 =
BI1101 =
BI1102 =
B1103% =
81104 =
BIT0S =

BI1T06
B1107
817108
B1109
BI1Y
BIT10
BIT11
BIT12
B1113

=
=
=
=
=
=
=
=
=

9-t€EB-79

040263

045174
045210
045220

(004000
000060
006124
006022
010355
040336
000010
057612
000001
000001
000002
000004
000010
00002C
000040

000100
000200
000470
001000
000002
002000
004000
010000
020000 G

=
=
=
=
=

000001
000002
000003
000004
000005

G
G
6
G
G

EFO7
EFO8
EFO9
EF10

=
=
=
=

000007
000010
000011
000012

G
G
G
6

DANAM
006131
DATACM= 000001
DATCOM
022244
DATGEN
022104

CHOSHD
(HRCNT
CH.FLA
CH.PAS
(kBSVD
CKDATA=
CKERLM
CLEAR.
CLKACC
CLKBFR
CLKCNT
CLKJUM
(LKRES

061644
(057732
045602
052732
041772

017546
061164
045310
045326
017656
000102
014750
046724
040576
066026
040574
066432
067434

($ABRT= 000021

($BSUB=
($BUFF=
($CEFG=
($CLEA=
C$CLP1=

000002
000030
000046
000012
000006

6
6
G
CLKSER
0675/C 6
CLKSON 040634 6
(LK.SE
045404
CLNCOD
014560 6
CLRBYT
002206
CLRPAR
024652
CLR.MA
045660
(NT
= 000012

($CVEC=
C$OCLN=
C$D0DU=
C$DRPT=
($0U
=
C$EDIT=
($ERDF=
C$ERHR=
($ERSF=
C$ERSV=
C$ESCA=
C$ESEG=
C$ESUB=
C$ETST=
($EX1T=
($GMAN=
($GPHR=
($GPRI=
($6TIM=
($INIT=
($INLP=

C(NVT

CSKWON= 000034

060014

0406024

EFO1
EFO2
EFO3
EFO4
EFOS

000020
000054
000022
000004

066062 G
002214
010453
047442

0646102

(OMPOP= 007777

(RDYMS= 000200

000036
000044
000053
000024
000055
000002
000002
000003
000001
000004
000010
000005
000003
000001
000032
000043
000042
000040
000052
000011
000020

C$xWOF= 000035

c$LOOP= 000100.
C$MANI= 000051

C$MSG = 000023
($PNTB=
CSPNTF=
C$PNTS=
($PNTX=
($POIN=

000014
000017
000016
000015
000040

(sal0 = 000377

($RDBU= 000007

C500MS

DCKERR=
DCLIM =
DCLIMQ
DCLIMW
DECMSG

DESDIF
DESHD
DESSEC
DESSGN
DEV.CO
DIAGMC=
DIAG.T
DIFALG
DIFWD
DIRBIT=
DIRMSK
DLTERR=
CONE
DPOVD
DPMUL
DRDYMS=
DRMSG
DRSB
=
DRSELT=
DRSET =
DRTIYPE

010445

EFO6

004000
000012
040313
013360
057626

EF11
EF12
EF13
EF14
EF1S

G
G

6
G

002776

DRVNAM
DRVNAV

006033
006040

ERR10
ERR?

DSMSK =
DSPCOD
DUNIT,
DVC.FT
DSAAG

001400
013362 6
060604 G
053664
054570

ERR4
ERRS
ERRG
ERR?
ERRS

DSAAL

057354

DRVERR= 040000
DSESTA= 000400

DSAANH

054606

057414
057424

= 000006 G

=
=
=
=
=

EF16
=
EMT.TR
END.OF
END.SU=
ENVIRO
EOP.CH
EOP.FM
EOP.IN
ERHEAD
ERLIM =
ERLIMQ
ERLIMW
ERRCNT

ERRFOR
ERRHAN
ERRPOI
ERRSWI
ERRVEC
ERR.HR
ERR.NU
ERR.SF
ERR1

DRVCNT

Ef.PWR= 000034 G
EF.RES= 000037 G
EF.STA= 000040 G

000031
000026
000027
010434
010475

003010
003014
003016
003012
040350
000000
040670
003000
007356
000004
002216
012000
002710
070300
070166
000001
037660
000010
000004
(000010
(37643

057360
057376

DSAAL
DSAAM

C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013

C$ADR =
($AU
=
C$BRK =
C$BSEG=

066024

(RLF

= 001000 ¢

EF.CON= 000036 G
EF .NEW= 000035 G

CAL.TI
CAMSK
CCYLUP
CHKLUP

000004
067514 G
013604
000040
003136

BLD.uW

CSRPT = 000025
C$SEFG= 000047

CSUNBU=
CSWTM =
(SWiu =
CIOMS
(SSEC

CONHNG=
CONTCL
CONTIN
COSTAT=
FOUNT

gi119

040344 6
040346 G

CSRESE= 000033
CSREVI= 000002

007402
052704
052716
053714
054060

BIT4
Bi1S
8l16
8117
BI18

G
G
G
G
G

CURR.S
CURR.T

037612
003006

CyLwd
(SAAD
C$SAAE
(SAAK
C$SAAL

040406 G
063716

000020
000040
000100
000200
000400

DSAAY
DSAAK

(viLQ
040040
CYLTBL
002506
CYLUP = 000004

(OMMAN
COMMTA

=
=
=
=
=

CSREFG= 000050
CSREQT= 000045

007415
047426
047340

BIT1S = 100000 6
8112 = 000004 G

= 000010 G

SEQ 0145

CSNAM
006117
(SR
= 000000

CSRMSG
CURCYL

037666

8113

172-1

027292
002722

(NTYPE

BI114 = 040000 6

PAGE

CAFDT
010464
CALLPC= 000022
CALLPS= 0000264
CALLSP= 000026
CALLTC= 000030

CHKSTR
CHKTTY
CHK.MA
CHK.PC
(HK.SW

G
¢
G
G
G
G
6
G
G
G
6
G
G
G
6

19:23:55

ERR1FO

000013
000014
000015
000016
000017

000020
040666
046712
071144
040410
067612
043156
045322
002714
000010
040241
013356
003142
054136
052736
003140
002720
003132
053674
040340
053700

@G
G
G
G
G

6
G
G
G

011526 G

054222

013116 G
011574 G

ERR}Y

011642 6

ERRS

013052 G

ESC.PC

011710
011760
012030
012706
012756

052730

G
G
G
G
¢

1¢
1 l
1
1

ut
PUT
INTEBL=
INTFOR
INTHLR

INVAL.
INVINT
INV.SW

060570
000100
054066
014712
044674
053724
041726

LID]ISP

?
344
362

6
7 02

[ aNAARAYAATaANAYATATANATARARARANATaTAATaAATANATAYATATAY
AT A AT AN A

ek
Wl

| $DEVP

7
0

1BUFF
ININIT
l

002112
002070
002072
002112
002040
014700
002076
002114
002056
002034
002042
002044
002046
037532
002016
002022
013330
002104
013426
002026
040336
002050
002000
002066
002010
037676
002062
002020
002024
002030
013346
002014
002054
002052
002100
002012

HSMSK
‘=

HSSTAT=
HW.ADR
H$AAB

[N AN~

HEADQ
HEADV
HEAD.
HERTZ.
HF IN
HF INU
HFOUT
HFOUTU
HICYL
HILIM
HILIMQ
HILIMW
HLMTW
HNFERR=
HOLDSP=
HOSTAT=
HPTCOD
HRDPRA
HRDOWTS
HRIN
HRINU
HROUT
HROUTU

066676
000041
000041
000041
1$HRD
000041
I$INIT
000041
000041
1$M0D
000041
1$MSG
000041
[ $PWR
000041
I$RPT
000041
18SEG
000041
1$SFT
1$SRv
000041
000041
[$5UB
000041
I$1S7
002202
JJJ
JSIMP
000167
KBPIR
040446
KBUF
040450
LAB
013556
LABACF
007204
LABACR
007220
LABEXP
007117
LABHCF
007154
LABHCR
007170
LABIN
007074
LABMI]D
007102
LABOCF
007130
LABOCR
007142
LABOUT
007111
L AB1
006143
LAB?
006156
LIMVAL
040145
LINE.F
060664
LOAD.F
045324
LOCERR
003346
LOCYL
040000
LOGMSG
057634
LOLIM = 000002
LOLIMQ
040126
013350
LOLIMW
LPBFR
040444
LPCNTR
0460442
LPT.AD
044766
LPT.RE
044762
LSI.RE
064756
065730
LUP
LJP.AD
052734
LSAPT
002036
L$AUT
002074
L$CCP
002106
LSCLEA
0146560
L$CO
LSDEPO
L$DESC

000004

HEAD
HEADLM=

100000

SEQ 0146

[l aalalAYaAXAXaN
Al

FEHARD

HADONE
HCESTA=
HCORED
HCOREQ
HCORET
HCRCERH(,ADR

HDWRD1
HDWRDZ2
HDWRD3

630
650

GSEXCP=
GSHILI=
GSLOL]=
G$NO
=
GSOFFS=
G$0FS]=
GSPRMA=
GSPRMD
=
G$PRML
=
GSRADA=
GSRADB=
GSRADD
=
=
GSRADF
OSRADL
=
G$RADO=
G$RADT=
GHXFER=
GSYES =

000077
000020
007371
002754
002756
002760
000006
010000
040174
040216
013354
044750
003072
003074
003076
003100
020000
000004
040153
013352
002204
010000
000020
000020
013326
037530
024702
003102
003104
003106
003110
000100
000100
040372
064430
003746
040614
013426
057642
045726
040430
000020

HDR4O

& N-a —_

O et t

FmT1?

HDSEC
HDSEL
HDWD

040366 6
0640364 6
000010
002220
000100
007234
000002

172-2

HC.DEF
HC.DIA
HDAL16G=
HDCYL
HDHSEL
=
HDMOVE
HOR(MP=

ZTZZTZ
[ TR

2
3

000013
000006
000050
000000
000011
000017
000012
000003
000005
000010
000002
000014
000001
061166
002212
057672
063256
054750
021274
000003
062252
062022
002126
002126
011526
014704
005224
015342
015326
015352
015312
000104
000400
000092
000001
000000
000400
000376
000001
000002
000000
000140
000000
000040
000200
000120
000020
000100
000004
000010
002712
040000
045100
045010
040624
004000
0640374 G

19:23:55 PAGE

il Gt

FMT0P1
FMTOP?
FMTIOP3
M1
FRTLA
FMT1 1

P VO N NN ~N—nN

FLAG.]
FLA.SE
FLG.MA

[

FLAGS)
FLAGTA

S D LD DTNANANONININ
et 2 OO oo
Hwine QPP =t
—
g
NNVOT
WO nNNO

EBSFIL
FlLL
FlLL.C
FLAGS

F SHW
FOINIT
FeImMP
F $MOD
FEMSG
f $PWR
FORPY
F$SEG
F$SOFT
FOSRV
FSSUB
FOSW
FSTEST
GARBAG
GBND
GETCHR
GETCMN
GETPAR
GETPOS
GETSTA=
GETSW]
GET.TW
GLBDAT
GLBEQA
GLBERR
6LBSUB
GLBTXT
GSTAT
GSTATC
GSTATG
GSTATR
GISTAT=

9-FEB-79

gAY

040342 6
003126
003124
003122
003130
003552
060462
000204
040402
040404
063634
045370

[AXAN
)

tv.(OU
EXACYL
EXHCYL
exocyL
EXRO1

MACRO v03.01

[AX AN

ROUTINES

TABLE

nnh

ASSEMBLY

SYMBOL

MDRYST

007614

002000 6
007641
007561
00770%
006216
007751

MWGERR
MWORD
MWR(HK
MWR]TE
MWRSET
MWRTAB
M4 OrDR

007762
006171
005253
005265

005362
010272
005346

OPROO4
OPR1A
OPR1B
OPR12

ORIN
ORINU
ORMID
OPMIDU

OROUT
OROUTU
OUTINS=

O$APTS=
0%AU
=
O$BGNR=
O$BGNS
=
o$0U
=
O$GNSW=
O$POIN=
PARSES

PART? =
PAR.LA
PASONT

057316
00313

PATIBL
PAT1

RDALMHD

004746

PAT10
PAT?
PAT3

RODATA=
ROHEAD=
RONOHR=
RDYCHK
RDYWAI
READRL
READ.P
REGBAC
REGSAV
RELDWT
=
REQN.P
REQN.T

PAT4

PATS

PAT6

PAT7
PAT8
PATY
PH65S
POSHDS

RESE3

POSHDO
POSHSB

RESES

POSHWI

PRIOS

PR106
PRIO7
PRNTST
PRO.(M
PSETNM
PTAB.S
PUTCHR
PWCON
PWRFLG
PWR.FA

PWR.FL
PWR.MS
. SA
PWR
PWR.UP
P.CLK.

P2T103¢E
P2T04E
P2T0SE
P2T06E
P2TO7E
P2T08E
P2T09E
P2T10E
P2T11E
P2T12E
P2T13¢
P2T14E

P2T15¢
P2116¢

064450
000004
000000
000040
000100
000140
000200
000240
000300
000340
061032
045302
003344
060622
057646
014102
003352
070772
0460426
071120
071114
071116
064742
00637
006407
006431
006453
006475
006513
006535
006542
006557
006574
006610
006626
006647
006672

[ANAXANAYARAN
AN~

PR100
PRIO1
PR102
PRIO3
PR104

T I}

PRINTC
PRINTF
PRICR

RESES

RESE6
RESPAR
RESTAR
RESTBL
REVSKO-=
REVSKS=
RE.SET
RLBA
=
RLBAS
RLCS
RLCSR
RLDA
RLDRV
RLMP
RLVEC
RORWQOP=

RPTOP
RPTREM
RPTRES
RSTACK
RSTRT
SAMSK =

SAVEDO=
SBSFIL
SEARCH
SecCa
SECWD
=
SEEK
SEEKOP=
SEGSTA
SEQMES
SETDON
SET.MA
SFTPRM
SGNWD
SHIFT
SKTMES
SPDSTA-

006713
006745
006772
021542
000114
000110
000116
017306
021026
015110
066032
070522
070506
040000
0460412
045304
010361
010365
010372
010377
002764
013574
002222
001000
000200
062074
000002
002730
000000
000000
000004
002734
000006
002732
020000
023422
024416
024210
067762
013512
000077
042272
003356
061770
040054
007375
000106
010000
040636
007430
033660
045514

037674
007364
070629
007002
004000

AY
AN A

P2T17E
P2T18E
P2T19E

013632
003342
040352
002262

PASNEW
PASNUM
PASS.C

100000

010141
010123
006305
006236
070100
MOPER
005376
MOPERR
010050
MORECE
002716
MOUTIN
005437
MPNAM
006136
MQUALS= 003760
MREAD
005232
MREADH
005243
MRESKO
005647
MRE VSK
005525
MIULFAL
010231
MRSLT
005409
MSEEK
005224
MSG.AD
040362
MSG.TY
060336
MSPERR
007744
MSTERR
007777
MTIMBS
006001
MTOSLO
006177
MuL
070034
MULOAD
005416
MUNDEF
010164
MWDERR
010033

003004
067560
064020
000010
003347
000002
000100
006057
044724
063614
061132
045130
000000
054256
054424
040400
041006
047414
020000
064074
002210
013624
004346
057620
003042
003044
003046
003050
003052
003054
003002
017632
002706
002000
002126
007341
007312
007316
007273
003056
003060
003062
003064
003066
003070
000040
000000
000000
000000
000001
000001
000001
000001
063330
Ouuull 6

SEQ 0147

MITEST=
MNDRST
MNEERR
MNOCLR
MNOINT
MODR

NEWCYL
NEWPR]
NEXTAR
NOCLR =
NOERCY
NOIRPT
NOOP
NOPWR
NO.CLK
NO.FLA
NO.LPT
NO.PTA
NR
=
NUMBIN
NUM.LA
NUM.NO
NUM.UN
NUNITS
NXMERRNXTFOR
NXTHL
NXTPAS
OBUF¥
0CTMSG
Of IN
OF INU
OFMID
OfFMIDU
OfFouY
CFOUTUY
oLDCYL
ONSWAP
OPFLAG
OPlERR=
OPMSGS

172-3

026714
026644
027212
027154
L 10040
027510
L 10041
027456
031346
£ 10042
L10043 032056
L 10044
032272
032216
L 10045
L10046 C33016
L10047 034126
L 10050 034042
035120
L 10051
035000
10052
L 10053 036334
L 10054
036250
037526
L 10055
L 10056
037442
L10057
037612
L 10060
040040
MAJ.IN
0640420 G
MAJ.LO
066030
MAJ.US
040422 G
MANQ
040071
MAN.T]
001244
MAPROX
007064
MAP16
070536 G
MASK .B
047440
MASK
.W
047436
MBADAD
005703
MBADSF
005724
MBSET0- 000001
M(EPR
007572
MCONKN
006271
MCYLOC
010134
MCYLUP
005427
MDAT(P
005311

MEM.S]
MERRS
MEXERS
MFLERR
MEMTER
MFOLWR
MF WD SK
MFWSKO
MGTSTA
MHCERR
MHCRC
MHDERR
MHDRCP

19:23:55 PAGE

L10032
110033
110034
L10035
L10036
L10037

MDLY
MDRDY
MDRERR
MDRRES

007714
044776
010346
010306
010075
005754
005503
005560
005613
005277
010015
007604
010060
005330
MHF CRC
007653
MHNF
007625
MINOUT
005460
MIN.IN
0460614
MIN.US
040416
MISw] = 000000
MiSWiw
013346
MDSERR

110031

MDCR(
MDME DR

9-FEB-79

L10020
110021
110022
110023
L10024
L10025
L10026
L10027
110030

MACRO v03.01

ROUTINES

TABLE

ASSEMBLY

SYMBOL

TEMPO
TEMP1
TEMP?2
TEMP3
TEMPL

TEMPS

TEMPO

TEMP/
TEMPS

TERM]
TERM:
|

071142
000000
¢ RRORS DETECTED:
.

000001
010015
01001
01005
01001

ABS.

027336
000010
007326
041354

( 82 PAGES)
20928 WORDS
DYNAMI( MEMORY AVAJLABLE FOR
70 PAGES
(IPL A BIN,CIRLIA=OSV(RT/M
PART? ,(2HEAD, (IRLJA,(2TA]IL ,DOCTOR

007040
0461056
061676
045342

~ |
“2 B
LB

026016
026160
026246
026406
026560
026716
027036
027214

A N

025534
025622
025760

£H W

006325
001000
037623
000002
020440
021422
015142
WCMSK = 017777

2 B

ey
o

002406
035270
035552
036334
036470
036714
037526

VCNRST
VCSTAT=
VECMSG
=
VECT
VERHDR
VERPOS
WAITIN

[~ B

026516

600
oot

VIRTUAL MEMORY USED:

00%
01$

026464
026500
026742
027212
027024
027240
027324
027510
025324
025374
032124
032272
032156
032164
033144
033352
034126
035002
035120

064>232
006346
040616
060620

T25T8BL

125182
12517%
1256%
12565%
1257%

00%
01%

v o

[~
ooo
=

025756

]

N O
o

b et

12265%
1227%
1233%
12365%
12465%
1247%

[~ B

= O

—
—

DWW

.—.
e

~NO
.
P
o

[]

—

VO NNO O NN

1216%
12165%

wwmmm;—-——-oooo
(o
=Y

S
S
Sy Sy S
S

b @

s
s
o
o

Sy Sy Sy Sy Sy S

cld el o

S
Y
T
s I

ed ed ed oo e

65%

WSO
O =N — =
NN Y N WD
OV SOOI
ONOD

177777
000000
000095
000002
177777
177777
010000
000001
177777
010061
000000
000921
1772777

o O
o O~
N o
o

TENEST=
TONSKO=
TENSK 1=
TENSK2=
T$SAVL=
T$SEGL=
T$SEKO-=
T$SUBN=
T$TAGL=
T$TAGN=
TSTEMP=
T$TEST=
T$TSTM=

T$$SRV=
T$$50U8=
T8$SW T$STES=
.BA
(S
.DA
DRIV
.Mp
STAT

ANNUANIN =

TBLSIR
181
TCERR

000001
017572
045122
063774
040376
045106
05365«
010000
00272¢
002446
007540
003020
0030¢2
003024
003026
03030
003032
003034
003036
003040
066020
063622

057440
060076
053704
046716
T$ARG(
= 000007
T$CODE= 000130
T$ERCO= 000043
1SERRN= 003247
TSEXCP= 000000
T$FLAG= 000040
TSHIL]= 000377
T$LOL]= 000001
T$LSYM= 010000

QOO

SVCTST=
SWAPHD
SW(HAN
SWITCH
SW.ADR
SW.PTA
SYS.FT
SSLSYM:=

060056

SEQ 0148

T$$IN]=
TSIMSG=

SviSuB=
SVLTAG= 000000

057604
045242
040572 G
040426 6
054230
057564
000001
003350
014704
015274
006363
047552
041754
000006
060160
054054
063476

STOSTA=
STRCHR
SIRT .Y
ST.SET
SUBSTK
SUNIT.
SUPERV
SUPFLA
SUPV.1
SUP.PR
SV(BGL=
SVC(GBL
=
AN
SVCH
SVCINS=

TERMTA
TEST.M
TIMELG
TIM. (O
TIM.CP
T00.MA
10SLOW=
TRPFLG
TRPHAN
TSTINT
TSTLAB
1ST.AB"1S$1.10
TYPDR =
TYPEC
TYPEPC
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER
TY.UNI]

172-4

045230
013344 G
000400
007016
002704
C07453
000007
067510
010404
010414
010424
010000
060522
045306
042140
002306
045312
043174
040602
040754
041712
000001
00000
047630
000000
000001

19:2%:55 PAGE

SPEC.U
SP1COD
SPv.SE
SRYMES
SSINDX
STAMES
=
STAMSK
START(
STATE?

9-FEB-79

— —

TABLE

no no PNOIPD

SYMBOL

STATES
STATES

MACRO v03.01

ROUTINES

LS
R ¥Y o J

ASSEMBLY

WCRNG =
WDESTA=
WGESTA=
WIDTH
WLSTAT=
WRTSW]
WIDATA=
XEQD]A
XEQASUB
XEQ.CL
XEQ.CM
XEQ.IN
XEQ.LA
XEQ.OP
XEQ.PR
XEQ.TE
XRDHD
XRDHD(C
XRDHDG
XREAD
XREADG
XSEFK
XSEEKT
XSEEK1
XTIME
XTIMEN
XTIMS1
XWRITE
XWRITT

160000
100000

002000
054624
020000
002724
000112
067646
067634
047356
044666
047040
043130
06713%2
042332
047176
020020
020010
020024
022572
022600
016204
016174
016210
066520
067344
066542
022532
022522
XWRITI
022536
XXDP.D
044706
XSALWA= 000000
X$FALS= 000040
X$0FFS= 000400
X$TRUE
000020
$BREG
045402
$ENDAD
067620
$SAV2
0706646
$S5AV3
070700
$SAV4
070716
$SAVS
C7073%

G
G

G
G
G
6
G