Digital PDFs

AH-F122A-MC

May 1979

149 pages

Original

83MB

view download

OCR Version

127MB

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

OCR Text

RL11,RLVIT

&05"

e
FICHE 1 OF 1

MADE IN USA

JDENTIFICATION

PRODUCT CODE:

AC=F123A=M(

PRODUCT

(ZRLJAD

DATE

THE

NAME:

(REATED:

RLOV/02

SEG 000!

DRIVE

DIAGNCSTIC

ENGINEERING

AUTHOR :

THIS

PART

S=JAN=79

MAINTAINER:

INFORMATION

TEST

DEKNIS,

DOCUMENT

CAMPBELL

SUBJECT

CHANGE

WITHOUT

NCTICE

SHOULD
NOT
BE
CONSTRUED AS A COMM]ITMENT BY DIGITAL EQUIPMENT
TION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE

SOF TWARE

DESCRIBED

THIS

DOCUMENT

FURNISHED

THE

AND

(ORPORAFOR
ANY

PURCHASER

UNDER
A
LICENSE
FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(W]TH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE
OR
RELIABILITY
OF
TS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.

(OPYRIGHT

({)

1979,

DIGITAL

EQUIPMENT

CORPORATION

‘

TABLE

1.0

GENERAL

.
.

SYSTEM REQUIREMENTS

DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT IONS

o
==
N

—

.
.
.

-2

OPERATING

W W

.
.

LAV AN

INFORMATION

RELATED DOCUMENTS AND

RLO1702 USERS MANUAL
XXDP USERS MANUAL

DIAGNOSTIC

THE RLO1/702
GF AMS :

(FORMERLY

C(ZRLDBO)

STANDARDS

HIERAR(V

SUBSYSTEM

PREREOU]SITES

SHOULD HAVE

SUCCESSFULLY

RUN

THE

CVRLAAQD

RLV1T RLOT DISKLESS TEST

(ZRLHAQ
CZRLIAO

RLTT1/RLVIT RLO1/02 CONTROLLER
RLO1/02 DRIVE TEST (PART 1)

RLTT1/RLVIY

FOLLOWING

(RLVIY ONLY)

RLO1/02 CONTROLLER TEST
TEST

(PART
(PART

PRO-

ASSUMPT JONS
THE

HARDWARE
FALSE

OTHER

ERRORS

THAN THE
MAY

RLO1/02 SUBSYSTEM

REPORTED

TION PROPERLY.

2.0

(EK=RLO1/02-PG=-PRE)

CZRLGAD

1.5

SOF TWARE REQUIREMENTS

CZRLJAO RLO1/02 DRIVE
1.3

MEMORY

gfllvES WITH RLOIK

LE"®

(LA3D,LA36,VI50,ET1C.)

2 RLTIT/RLVIY

OPERAIING INSTRUCT]JONS

THE

IS ASSUMED TO WORK PROPER=-

PROCESSOR,

ETC.,

DO NOT

FUNC=-

SEQ 0004

PAGE

SEQ 0005
.

HOW TO RUN THIS DIAGNOSTIC

THE

SIx STEPS OF

EXECUTION

THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING

NORMAL

AGNOSTIC

IT.

DURES.

THE

HAS

START
THE

(OMMAND SHOULD NOT

PROPER

TRANSFER

SPECIFY

ADDRESS

XXDP

PROCE-

AN ADDRESS, BECAUSE

CODED

INTO

THE

D|-

WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS wlLL OCCUR:
(A A

SR AR

AR RS

A SHORT

L=CLK
P=CLK

(L)
(L)

N
N

S50HZ (L) N ?
LSl (L) N ?
LPT (L) N ?

MEM
THE

(k)

°?
?

1S
"

THERE AN L=CLOCK?
"
P=CLOCK?

HOW MANY
AFTER

FOR EXAMPLE,

QUESTION WILL

TWO

ASKED:

IS THE POWER S50 CYCLES (EUROPE)?
IS MACHINE AN LSI1?
1S THERE A LINE PRINTER?

(SHOWN

NEITHER P OR L

TYPE

MEANING

RETURN.

P=CLOCK

(D)

DEFAULTS

ASKED:

SERIES OF ~''HARD(ORE QUESTIONS'' wlLL BE
QUESTION

RIAGE

]

SIEP

EACH

YOU SAY

NOT

MEMORY

QUESTION)

POSSIBLE

(LOCK ARE

CHARACTERS

THAT

°‘'YES''

CAN

NOT

ARE

ALL

THE

THERE?

SELECTED

THE

HITTING

GUESTIONS

L-CLOCK

CAR-

wWiLL

QUESTION,

THE

ASKED.

ANSWERED

SECONDS

YES THE

OPERATOR WwiLL

ASKED

APART.

IAR
RS

STEP 2

TR ERRERYE

WHEN

ISSUE

YOU HAVE

ANSWERED ALL

THE PROMPT *'DS=B>'',

THE

TART XXDP,
REFER
TO

MODE,

THE

XXDP

YOU WILL

"'START'"

ENTER A "'START'' COMMAND.

(OMMAND,

WHICH

XXDP DOY

PROMPT,

TAILS OF

(OMMANDS AND SYNTAX',

ALL

QUESTIONS,

THE

DIAGNOSTIC

WlLL

TIME WHEN YOU RES-

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

THIS POINT

FLAGS

HARDCORE

FROM THIS POINT UNTIL THE

YOU ALREADY

THIS ''START'' COMMAND CAN

(ALL OPTIONAL) AND THE DETAILS OF

YOU NEED

T0O

SAY

HOWEVER,

SOMETHING LIKE

TAKE

THESE

THIS

ISSUED

THE

IN RESPONSE

A NUMBER OF

SAME
TO

THE

SWITCHES AND

ARE SET FORTH IN ''2.3 DE-

IN ORDER

THIS:

IS NOT

USE

THL

PROGRAM,

PAGE

STA/PASS: 1/7FLAGS :HOE
THINGS

TO NOTE

ONLY

HERE:

THE

FIRST

THREE

C(MARACTERS OF

*DS=8>"" LEVEL NEED TO BE

ABOVE

THE

MAIN USEFUL

ONES

HALT

SPECIFY ANY OF

THE HOE FLAG
SHORTLY)
.

1S SPECIFIED

THE
OF

TYPED

FLAGS,

EXAMPLE

(Wwi'(L

AR AR R

STEP

DIAGNOSTIC

WiL.

ABOVE

80T

YOU WISH

HERE:

THE

5EF

why

3 »
THE

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

DEVICES

WARNING

IN THE

IN A "'START'' (OMMAND,

QUESTION

NUMBER

(0OF

ON ERROR

([ A A

YOU HAVE

A NUMBER

ARE:

INHIBIT ERROR PRINTOUT

1ER

WORD

A PASS

LOOP ON ERROR

LOF

THE

EXAMPLE.

THE "'FLAGS'TM SWITCH MAY

HOE

THE

THE "'PASS' SWITCM SPECIFIES HOW MANY PASSES YOU DESIRE.,

WiTH

Ts]S OR ANY COMMAND

CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL UNITS BEING
TESTED (THIS WILL BE EXPLAINED SHORTLY).,
ONE PASS [S SPECIFIED

IN THE

WHEN

TYPED.

COME

BA‘«x

TYPING

TEST.

NUMBER

UNITS

DEPENDS

THE

TARGET

DEve-

ICE
OF TwF DIAGNOSTIC.
FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED AT A
DISK DRIVE, THEN THE NUMBER OF UNITS wOuLD BE THE NUMBER OF DRIVES T0 BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE DISKk CONTROLLER,
THEN

THE

NUMBER OF

UNITS WOULD BE

THE

NUMBER

C(ONTROLLERS.

DEVICE
OF
A
DIJAGNOSTIC
(AN
ALWAYS
BE
DETERMINED BY
""MEADER'® STATEMENT NEAR THE BEGINNING OF THE SOURCE CODE.

OPERANDS OF
AGNOSTIC,

THIS "'MEADER'" STATEMENT

SHOULD BE

TwF

DEVICE

THE

TARGE?

INSPECTING THME
ONE
OF
THKE

TYPE

TME

DI-

SEQ 00Ce

PAGE

tTReRERRERERY

4
STEP

treeReRRT
Y

WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS 70 BE TESTED, THE
DIAGNCSTIC
WiLL
ASK
YGU THE ''4ARDWARE QUESTIONS''.
THE ANSWERS TO THESE QUESTIONS
ARE USED T0 BUILD TABLES
IN
(ORE,
CALLED
HARDWARE P-TABLE WiLL BE BUILT FOR EACH UNIT

''MARDWARE
P-TABLES''.
TO BE TESTED.

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

ENTIRE

THIS

REPRESENTS

IN
THE
DRESSES:
THEY

NEED

POSED

ENGINEERING.

DIAGNOSTICS

STANDARD ADINFORMATION

TEST

THE

IN DIAGNOSTIC

SERIES wliL

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

A NEW PHILOSOPHY

THE

ONE

DEVICE.

RN AERRY

¢« STEP 5 »
I A SRS
RS

AFTER

YOU

UNITS,

SOF TWARE
"y,
1F

HAVE

YOU

ANSWERED

WiLL

ALL

THE

ASKED

HARDWARE

‘''CHANGE

QUESTIONS THAT DETERMINE
YOU WANT 1D TAKE ALL THE

QUESTIONS

SW?'"

(SEC

YOU WANT

THE BEHAVIOR
OF
DEFAULTS TO THESE

2.5)

FOR

TO BE

ALL

THIS
PROGRAM,
QUESTIONS, TYPE

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

THE
ANSWERS
WILL BE PUT INTO THE SOFTWARE P-TABLE IN THE
SERIES OF QUESTIONS WIlLL BE ASKED JUST ONCE, REGARDLESS OF

UNITS

TO BE

TESTED.

THE

ASKED THE
TYPE
''N'',

AND

PROGRAM.
THE
THE NUMBER CF

AR
ER RS

STEP 6

fERRRETRERY

AFTER

YOU HAVE

BEGIN

ANSWERED

T0 EXECUTE

THE

SOFTWARE

THE HARDWARE

TEST

QUESTIONS,

CODE.

THERE

THE

DIAGNOSTIC

ARE SEVERAL

THINGS

WILL

THAT

CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE
ERROR
IS
ENCOUNTERED
AND
ALSO
ON
WHAT
SWITCH
VALUES
YOU
SELECTED ON THE START COMMAND.
CONSIDER THE POSSIBILITIES:

IF NO ERROR ]S ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY Ex=ECUTE
THE
DESIRED NUMBER OF PASSES AND RETURN TO COMMAND MODE
(PROMPT

DS=B>).

SEQ 0007

PAGE 8

1F AN ERROP 1S ENCOUNTERED, THEN ONE OF

DEPENDING ON THE

WOE SET:
(ODE

THE

HOE

THINGS

HAPPENS,

FLAGS.

SET:

THAT

RETURN TO COMMAND MODE
.

THE DIAGNOSTIC WILL LOOP ENDLESSLY ON

DETECTED

THE

ERROR.

NEITHER HOE NOR LOE SET:
THE ERROR WILL
EO:EgLE AND NORMAL EXECUTION WILL RESUME
URED.

2.1.2

THREE

AND LOE

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

AGNOSTIC WiLL

LOE

SETTINGS OF

THE

BLOCK

BE
REPORTED
ON
THE
AS IF NO ERROR HAD OC-

SAMPLE RUN=THROUGH

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

THE

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

WAY TO RUN THE DIAGNOSTIC.
IF NO ERRORS ARE
QUESTED PASS WILL BE EXECUTED AND THE PROMPT

RECALL

THIS WOULD BE

THAT

A VERY

EN-

TYPICAL

ENCOUNTERED, THE SINGLE
WILL BE RE-ISSUED.

RE-

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

1SSUE

3, 4,

ANOTHER “'START'' COMMAND

5, AND 6 AGAIN)

ISSUE A "'RESTART'' COMMAND

THE

HARDWARE

QUESTIONS

ARE

(THUS GOING THRU ALL

(SAME
NOT

AS START

ASKED)

(OMMAND

STEPS

EXCEPT

ISSUE A ""CONTINUE'' COMMAND (EXECUTION W!LL RESUME AT

THAT

THE BEGIN-

NING
OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS CONSIST
OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE
ERROkR
HALT
OC-

CURED.

NO QUESTIONS ASKED.

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

AND

CAN BE

ISSUED

THE MOST TYPICAL THING
FERENT FLAG SETTINGS.

ONLY

A HALT

TO DO HERE 1S TO ISSUE THE
PROBABLY YOU WOULD WANT TO

PRO/FLAGS: JER:LOE :HOE=0

PROCEED,
SAY:

BUT

WITH

DIf-

SEQ 0008

PAGE

WIS WILL DO THE

FOLLOWING:

TUKN ON THE

iER

CINWIBIT ERROR PRINTOUT)

FLAG

2. TURN ON THE LOE FLAG

THE

TURN OFF

RESUME

THE HOE FLAG

EXECUTION AT

ERROR OR 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.

START

RESTART

CONTINUE

LET*S SAY
NING

THE

YOU'VE

REPAIRED THE

DIAGNOSTIC.

DEFECT

YOU WOULD

TYPE

FOUND ABCVE

THIS WILL TAKE YOU
OUT
YOU NOW WAVE TWREE CHO-

AND WANT

10 FINISH RUN-

CON/FLAGS:HOE:1ER=0:L0E=0
THIS WILL
TION
AT

RESTORE THE FLAGS
THE
BEGINNING OF

DOES NCT RECUR, THE
OR TO END OF PASS.

TO THEIR ORIGINAL
THE HARDWARE TEST

EXECUTION WILL

FLOW RIGHT

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

IF AY.END OF PASS YOU WANT 10 RUN THE DIAGNOSTIC

(HOICES:
1.

START

RESTART

YOU WCULD CHOOSE ONE, DEPENDING
HAKDWARE QUESTIONS AGAIN,

ON WHETHER

YOU

THRU

TO THE

AGAIN,

WANTED

YOU

ERROR

MAVE

TwO

ANSWER

ThE

SEa 0009

——

PAGE

THE FULL
PRINT=0UT
FROM
THE
(0O=OPERATOR, D-DIAGNOSTIC):

ABOVE

DIALOGUE

MIGHT

WHOM

ENTERED:

R CIRLJA

17440C ?

160 ?’

DRIVE (0) 0 ?
DRIVE TYPE = RLOT
BR LEVEL (D) 5 ?
UNIT 2
RLIT

(L)

s
.

? N

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 2?2 1
DRIVE TYPE = RLO1 (L) ? N
BR LEVEL (0) 5 ?
(HANGE

(ZRLJ HRD ERR 00004

ERR HLT

o
©

olejloelalofs]

VECTOR (0)

OO00000o

BUS ADDRESS (G)

(L)

UNIT

RLIT

(D)

¥ UNITS

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

O0OO0OO0OC0OC

O00O0O0O0D0

S50HZ (L) N ?
LS] (L) N?
LPT (L) N?
MEM (x) (D) 16

(L)

L=CLK

CZRLJ

(N=RLO2)

TST 003 suB 002 PC:004130

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

0.0

THIS

POINT

ERROR WITHOUT
THE

THE

ERROR UNT]L

sedetttRer

DIAGNOSTIC

PRINTING ANYTHING.
YOU HAVE

LOCATED

LOOPING ON

THE

YOU CAN SCOPE

1T,

THEN *C

OUT

Rttt RRRRRRRRRRRARRARRRRRORRETY

LOUK

THIS

SEQ 0010

]

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

0.0

CHANGE

0.0

(L)

CI8%LJ EOP
.¢

? N

RUN

DS=B>RESTART/PASS:1
(HANGE

PAGE

(L)

0.0

? N

D.0

2.2
THE

DIAGNOSTIC

(HAIN

ISERE
GOT.

MODE.

AS RECEIVED

THAT

A WAY,

CONSISTS OF

IS WHY

HOWEVER,

FROM RELEASE

BEARS

TO CREATE

THE

ENGINEERING

CANNOT

EXTENSION ''BIN'' INSTEAD OF

CHAINABLE

PROGRAM FROM WHAT

"'BIC".

YOU'VE

RUNNING THE PROGRAM WITH THE SPECIAL COMMAND ‘''CCI'" ISSUED

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

SITS

IN CORE

HERE

.R UPD2

RESTART:
*(LR

TO THE

SAMPLE

LOAD MEDIUM, WITH THE NEW EXTENSION ''BIC".

DIALOGUE

XXXXXX

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

*START 200

L=CLK

(L)

TO ACCOMPLISH

THIS:

SEQ 0011

PAGE

DS=B>CC(]

UNITS

(D)

CHANGE SW
PTAB END:

? &

(L) ? N
60632

L AAAAARASRRl
RR]

*AT

THIS POINT

*YOU MUST
I AAAAASS

THE MACHINE

RESTART

SRR

HALTS AND+

ADDRESS

XXXXXX*

*H1CORE 60632

CORE:
0,60632
*DUMP DKO: DIAG.BIC
THE

RESULT

DOING

CONTAINING THE

THIS

THAT

YOU CAN NOW BUILD AN

XXDP

(HAIN

FILE

XXDP COMMAND

.R DIAG.BIC
AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE 1T WHEN YOU DID THE CCI COMMAND.

USING

THE

SEQ 0012

PAGE

DETAILS OF

2.3.1

TABLE OF

THERE

ARE

COMMANDS AND SYNTAX

COMMAND VALIDITY

FOULR WAYS OF

SUBSETS OF

ENTERING DIAGNOSTIC

THE DIAG COMMAND SET ARE

COMMAND MODE,

LEGAL

OPERATOR ENTERED

AND

DIFFERENT

AVAILABLE WITH EACH:

HOW ENTERED

'RUN DIAG'

COMMANDS

START

DISPLAY
FLAGS

ZFLAGS

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE

START

DIAGNOSTIC WITH CTRL/C

RESTART

CONTINUE

PRINT
DISPLAY
FLAGS

LFLAGS
4.

START
RESTART
CONTINUE
PROCEED
PRINT
DISPLAY

AN ERROR WAS ENCOUNTERED
WiTH THE HOE FLAG SET SET

FLAGS

IFLAGS

COMMAND SYNTAX

AP RN R

RN R RN RN RN RN R RN AR NRRRRRRERRRERNEIRTERERRRRERRIRRRRRERRRARNOETROREY

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

RRE RN R NP RN R AR R RRNRTRRRRNRRNTRRREARRRRRRNRRERRRRRRRRERNRRRERRRNRRERERRTIRRNORERY

THE

DIAGNOSTIC

IN CORE

IS EXECUTED

IN ACCORDANCE WITH
THE START

1#1ED.

THE MESSAGE ''# UNITS?" IS PRINTED.

(OWING:

THE SWITCHES SPECCOMMAND MAY BE !S-

SUED WHEN DJAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF

THE

FOL-

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

SEQ 0013

PAGE

(UTING () ERROR WAS ENCOUNTERED WiTW HOE FLAG SET
D)
OPERATOR
ENTERED
CONTROL/C.
AFTER THE OPERATOR RESPONDS 10 “'# UNITS?"', THE WARDWARE D|ALOGUE IS INITIATED.
WHEN 17 IS COMPLETED, THE QUESTIONS
‘‘CHANGE
Sw?"
1S
135SUED,
AND
THE
ANSWERS,
1F
GIVEN,
BECOME
THE
NEW
DEFAULTS.
THEREFORE 1T IS NECESSARY
THE L OAD DEFAULTS.

THE

SWITCH ARGUMENTS

ARE

TO RELOAD

THE

PROGRAM

DECIMAL NUMBERS

THE

COLONS.

NUMBERS

NUMBERS ARE

(1-5:8-10

RETURN

(1:2 ETC.) OR RANGES OF

DE-

FOLLOWS:

UTEST=LIST' IS A SEQUENCE OF

CIMAL

IN ORDER

ETC.)

SEPARATED BY

THAT

SPECIFY

THE

TESTS TO BE EXECUTED.

NUMBERS RANGE

FROM

THE

LARGEST
TEST
NUMBER
IN
THE DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY
ORDER.
TESTS WlLL BE EXECUTED IN
MNUMERICAL
ORDER
REGARDLESS
OF
THE
ORDER OF SPECIFICATION.
THE DEFAULT IS TO EXECUTE ALL TESTS.
"'PASS=CNT'" IS A DECIMAL NUMBER

INDICATING THE

DESIRED NUMBER OF

PASSES.

A
PASS 1S DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC (ALL SELECTED
TESTS) AGAINST ALL UNITS SUBMITTED.
THE DEFAULT IS NON-ENDING TEST EXE-

CUTION,

"FLAG=LIST'

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

HOE

HALT

ON ERROR,

SEQUENCE

SEPARATED

CAUSING

ELEMENTS OF

THE

FORM <FLAG>,

COLONS,

WHERE

<FLAG> HAS

ONE

COMMAND MODE

TO BE

ENTERED WHEN AN

THE

ERROR

IS ENCOUNTERED
LOE

LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP CONTINUOUSLY W]lTHIN
THE
SMALLEST
DEFINED BLOCK OF CODING (SEGMENT, SUBTEST, OR
TEST)

CONTAINING

THE

ERROR

IER

INHIBIT ERROR REPORTING

IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT EXTENDED ERROR REPORTS

PR1

DIRECT

PNT

BOE

BELL

UAM RUN

ISR

ALL

MESSAGES

NUMBER OF

TEST

LINE

PRINTER

BEING EXECUTED

ON ERROR

IN UNATTENDED MODE, BYPASSING MANUAL

INMIBIT

STATISTICAL

IDU INWMIBIT DROPPING OF

REPORTS
UNITS BY DIAGNOSTIC

INTERVENTION TESTS

SEQ 0014

PAGE

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

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

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

THE

DESIRED THAT

END OF

\LAAAAL AL AR RS

EVERY
AR

THE

END OF

PASS,
R

PASS MESSAGE

R R R

PRINTED.

THE

PASSES)

DEFAULT

RES}}AR};4TES!:YEST-LlSY/PASS:PASS-(N!/FLAGS:FLAG-LlSY/EOP:EOP-lN(R/UNlTS
:UNIT=L
EE R RN R RN R R R PR R R R R RN R PR R R RN AR R AR RN RRRRORORTRTERRTOEROERRERROERRRETRNOEROETEROERRRRETR

THE

DIAGNOSTIC

CORE

ARE USED.

IFIED.

HOWEVER,

CORE

NEW

IS EXECUTED

IN ACCORDANCE

''P-TABLES''

WITH

ARE NOT BUILT.

THE

SWITCHES

[INSTEAD,

SPEC-

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 C) CONTROL/C.
THE

SWITCH

ARGUMENTS

ARE

THE

START

"UNIT=LIST" IS A SEQUENCE OF
1

THRU

UNITS ARE

TO BE

NUMBER OF

TESTED.

EXCEPT:

LOGICAL UNIT NUMBERS RANGING

UNITS BEING

THE

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

COMMAND

TESTED)

LOGICAL UNIT

FROM

SPECIFYING WHICH

NUMBER DESIGNATES THE

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

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

ALL UNSPECIFIED FLAG SETTINGS ARE

UNCHANGED.

FERRR R RRPRRRRRRRRROERRRRRRRRRNRRRNRAERNROTERRRRRRY

(ONCTINUE) /PASS . <PASS=CNT/FLAGS :<FLAG=LIST>
fetsRRRRRRRRRRRRRRRRRRRRARRRRRRRARRNRRRRORORORY

COMMAND MODE MUST HAVE BEEN
ENTERED
DUE
TO
A
HALT
ON
ERROR
OR
A
(ONTROL/C,
THE
EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF THE
TEST THAT WAS BEING EXECUTED WHEN THE
HALT
OR
CONTROL/C
TOOK
PLACE.
SOF TWARE
DIALOGUE
MAY
OPT]ONALLY BE RE-EXECUTED.
HARDWARE PARAMETERS

MAy

NOT

(HANGED.

SEQ 0015

PAGE

THE

SWITCH

1.
2.

ARGUMENTS

ARE

DEFALT FOR PASS=CNT

OUS START

OR RESTART

THE

START

COMMAND EXCEPT:

1S THE UNSATISFIED PASS=CNT FROM THE

UNSFECIFIED FLAG SETTINGS ARE

PREV]-

UNCHANGED

trsRR R RERRRRRRRRCRRRRRNRORR
RS

PROCCEED)
/FLAGS : <FLAG=LIST>
TR RRERRRRRRRNRRNRRRRROARORRR
RS

(OMMAND MODE MUST
THE
COMMAND
1S

CALL.
.THE

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

NEITHER HARDWARE NOR SOF TWARE

SWITCH ARGUMENTS ARE
1.

AN R

THE

SAME

PARAMETERS MAY BE
THE

UNSPECIFIED FLAG SETTINGS ARE

R R R R P R NN R RN

R R RN R

R R R R R R R

RN RA

START

ALTERED.

COMMAND EXCEPT:

UNCHANGED

RN RO ARRRROERRRERERIRRRNREROEROERTY

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

R RN RN RN R R

R N R R R R R R TR R PR AN AR

THE DIAGNOSTIC EXECUTES THRU
HARDWARE
TEST
(ODE.
NOW
MEDIUM WITH A BIC EXTENSION.
THE BIC FILE MUST
MANUALLY
OR
iN

RN AR RARRRRRRRERRRRPOERRRRERERERTY

ALL
THE

OPERATOR
OPERATOR

DIALOGUE
AND
HALTS
AT
CAN DUMP THE CORE IMAGE TO

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

WITH A "'START"" (IN WHICH CASE

IT WILL BEHAVE LIKE

"RESTART'" (IN WHICH CASE
.
USED)

PRE-GENERATED

THE
THE

ANSWERS

TO OPERATOR QUESTIONS WILL

THE

OPERATOR

BIN

FILE:

IGNORED)

ANSWERS

THE

WITH

WILL

IF RUN IN CHAIN MCDE, AUTCMATIC EXECUTION WILL COMMENCE IMMEDIATELY FROM
THE
XXDP (OMMAND ‘‘.R DIAG''.
THE COMMAND PROMPT ''DS-B>'" WILL NOT BE 1SSueD.
ANY SWITCHES SPECIFIED ON
FILE IS RUN IN CHAIN MODE

NOT

CARRY OVER WHEN

THE CCI
(EXCEPT

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

THE
BUT

BIC
WwlLL

1S RUN MANUALLY.

T0O DO A CC] ON A FULL SIZED DIAGNOSTIC (14.5k
WORDS),
A
MACHINE
SIZE
LARGER
THAN
16K
IS
REOUIRED.
THE EXACT SIZE NEEDED DEPENDS ON WHITH
UTILITY 1S USED TO EXECUTE THE DIAGNOSTIC AT (CI TIME,
.

SEQ 0016

PAGE

feeRRRERTRRRRRARRERNRRRSER
R Y

DROCP) /UNITS:UNIT=LIST
trsPRRREROERRRRRORROERRER
R DY

THE UN1TS SPECIF] ED

OR
UNTIL
PROCEED.

START

ARE

DROPPED FROM TESTING UNTIL

(OMMAND

GIVEN.

A DROP

THERE IS ALSO A "'DROP'* MACRO INTERNAL TC THE
FACILITY
OF AUTO-DROPPING.
THE DURATION OF
ONLY UNTIL THE NEXT START OR RESTART,

THEY

CANNOT

ARE

ADDED

BACK

FOLLOWED BY

DIAGNOSTIC, WHICH GIVES THE
A PROGRAM DROP, HOWFVER, IS

tretRRERRRRERARRRAOR
R R

ADD/UNITS:UNIT=LIST
tTRRRRRRRRRNRIRROERRE
Y

THE

UNITS

SPECIFIED

DROPPED
BY
FOLLOWED BY

ARE

THE
DROP
A PROCEED.

ADDED

BACK

{(OMMAND)

(THEY

THE

MUST

TEST

HAVE

SEQUENCE.

BEEN

AN ADD

PREVIOUSLY

CANNCT

TR
RY

PRI(NT)

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC
ISR

CINHIBIT

STATISTICAL REPORTING)

FLAG

IS CLEARED.

ARE

PRINTED.

THE

ETRRERRONRRRROERNRRRORERROERRRRRES

DIS(PLAY)/UNITS:<UNIT=LIST>
feR R RRERRRERRERRRRRRRRROARRRRY

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

OPERATOR '"'DROP'' (OMMAND ARE

SO DESIGNATED.

TES( ARE FRINTED
OUT
IN
UNITS THAT WERE DROPPED BY

FLACGS)
(AR
R R RS}

THE

CURRENT

LA AR R

SETTINGS

7FL (AGS)

FLAGS

ALl

ARE

C(LEARED.

ALL

FLAGS

ARE

PRINTED.

THE
THE

SEQ 0017

FAGE

EXTENDED P-TABLE
THE

FuLL

CAPABILITY

ING DISCUSSION OF
AS

SOON AS

SPACE

THE

IN CORE

THE SAME
HARDWARE

DIALOGUE

THE

HARDWARE

WHAT HAPPENS

DIALOGUE

INTERNALLY.

QUESTION "'# UNITS?'

1S REVEALED 8Y

ANSWERED

THE

FOLLOW-

NUMBER

N),

CORRESPONDENCE
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 Of

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

MAY

THE

STRING OF

VALUES MAY BE

VALUES REPRESENT

GIVEN AS A RANGE

PURE NUMERICAL

DATA,

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

SAMPLE RANGE

TRANSLATES

TO THE

1).

THIS

(6-10 FOR EXAMPLE).

SAMPLE

RANGE

TRANLATES

THE VALUES ARE

STRING 6,8,10

(AN

INCREMENT

ADDRESSES,
OF

2).

THE

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

THE

DIALOGUE

FOR

THIS

TWO
(2) RLI1 TYPE CONTROLLERS ALL
& DRIVES ARE RLO1'S AND THE LAST &
TROLLER):

# UNITS

UNIT

RLIT

(D)

1
(L)

BUS ADDDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 0=3
DRIVE TYPE = RLOT (o) v ?
BR LEVEL (0) 5 ?
UNIT

RLTY

(L)

BUS ADDRESS (0) 174400 ?
VECTOR (D) 160 ? 164
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOY
BR LEVEL (0) 5 ?

(L)

175400
? N

RLOX

DRIVE

SYSTEM.

THIS

SYSTEM MAS

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

SEQ 0018

EU
PAGE

THE
FOR

FIRST
THE

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

VALUES
OF TWE

ARE
USED
CONTROLLER

(QUESTION #2), THE CONTROLLER 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
THE
THE

& P=-TABLE

(FOR THE RLO2
ASSIGNMENT
ON
DEtAULTED TO "'RL11"" TYPE (ONTROLLER.
THE SECOND QUESTION WAS ANSWERED TO REFLECT THE (HANGE IN
(SR
ADDRESS
FOR THE RLO2 CONTROLLER (175400).
THE SECOND CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION #3.
THE RLOZ2 TEST UNIT
NUMBERS

WERE

SECOND
SECOND

SLOTS.

TIME THRU THE P=TABLE QUESTIONS
CONTROLLER), THE FIRST QUESTION

ASSIGNED

FOR RLO2'S

FOR

VALUES

THE

REMAINING &

WAS DEFAULTED USING THE

IN QUESTION #4

UNITS

AND

IN QUESTION

"BR LEVEL' f”M

THE

FIRST

THE

#5.,

DRIVE
THE

PASS,

TYPE

LAST

WAS

SET

QUESTION

SEa 0019

PAGE

2.5

HARDWARE

THE

PARAME TERS

FOLLOWING QUESTIONS WiLlL

CATED 10 THE

TAKEN ON A

RLIT

(L)

ANSWER

LEFT OF

CARRJAGE

THE

ASKED

QUESTION MARK

ON A

START

[S T4F

RETURN RESPONCE.

(OMMAND.

DEFAULT

VALUE

THE

VALUE

LO-

THAT wiLL BE

¥?

YESC(Y)

YOU HAVE

RL11

(ONTROLLER,

NO(N)

YOU HAVE

AN RLVI

CONTROLLER.

BUS ADDRESS

(0)

174400?

ANSWER WITH

THE

BUS

THE

VECTOR

(0)

160?

ANSWER

WITH

THE

INTERRUPT

VECTOR

DRIVE

(0O)

ANSWER

WITH

THE

DRIVE(S)

CONNECTED

DRIVE

BR LEVEL
ANSWER

= RLOY
(N)

(0)

WITH

THE

(L)

THE

CONTROLLER.

THE

CONTROLLER

THE

CONTROLLER.

DRIVE

INTERRUPT

SOF TWARE

CONTROLLER.

TYPE

ANSWER NO

ADDRESS

AN-RLO?

PRIORITY

PARAMETERS

FOLLOWING QUESTIONS

ARE

ASKED

REQUESTED ON

START,

RESTART,

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

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

(HANGE

S.w.

A YES ANSWER WILL ASK
THE
PRESENT
DEFAULT
(THE

LAST

(ONTROL

ANSWER

(*7)

USE

witt

ALL

EVERY

CONTINUE

1S.THE

DEFAULT

CYLINDERS

"'YES', THOSE

TEST

THE FOLLOWING SOF TWARE PARAMETER
QUESTIONS,
WITH
VALUE
PRINTED
TO THE LEFT OF THE QUESTION MARK,

GIVEN

WILL

RESTART,

DEFAULT)

ALL

THE

DEFAULT

REMAINING QUESTIONS

TAKEN

AND START

THE

<(R>,

TEST,.

(N)?

TESTS THAT NORMALLY USE A SELECTED SET OF

CYLINDER ON

THE

CARTRIDGE.

C(YLINDERS

SEQ 0020

USt

ALL

“'YES'',

SECTORS

THOSE

GIVEN
OPERATION
SECTOR WEADER.

TEST

(N)?

TESTS THAT NORMALLY USE A SINGLE SELTOR 10

(SUCH

EXECUTE MANUAL

PAGE

SEEK DESTINATION)
:

INTERVENTION TESTS

WILL

READ AND VERIFY

EVERY

(N)?

IF "'YES', SEEK TIMING, ROTATIONAL TIMING, AND WRITE LOCK ERROR

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

AUTOMATICALLY

AFTER WAITING

THE
LOCK

SECONDS

LOWER SEEK LIMIT (N)?

ONLY
TEST

FOR

AND

TEST TWAT ACTUALLY RE=
AND THAT TEST WILL BY=

WRITE

LOCK

10 BE

SET.

IF “'YESTM, THE NEXT PARAMETER 15 REQUESTED.
ENTER VALUE (DECIMAL) (0)?
NOT

THIS
DONE

LIMIT 1S IMPOSED ON ALL SEEK OPERATIONS SUCH THAT
TESTING
BELOW
THAT
LIMIT.
IN ADDITION, SETTING THIS LIMIT (OR

UPPER LIMIT,

SEE

BELOW)

CAUSES

THE

FORWORD AND REVERSE

OSCILLATING

1S
THE

SEEK

TESTS TO PERFORM DIFFERENTLY (SEE TEST DESCRIPTION).
TESTS THAT REQUIRE
ACCESS T0 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

THE LOWER SEEK
TER REQUEST.

LIMIT.

ENTER VALUE

(DECIMAL)

USE

SURFACE

ONLY

"WESTM,

WHICHEVER

WILL

C(AUSE

ONE

(N)?

THE NEXT PARAMETER 1S REQUESTED.
SURFACE
SURFACE

PROGRAM.

ANY

(0 OR
1S

TEST

(DECIMAL)

SPECIFIED

THAT

SPECIFY ERROR LIMIT
THIS
LIMIT

PARAMETER
IS

IS EXCEEDED,
DATA

FOLLOWING PARAME=

(255)?

THE

IS DESIGNED

(0)?
ONLY

THE

(DECIMAL)

SPECIFIES
PER

DRIVE

(OMPARE

DRIVE

THE

[ JM]IT

THE

ANY

NUMBER

SINGLE

(DECIMAL)

TESTED

OTHER SURFACE
INDICATION

THAT

1S DROPPED FROM FURTHUR

ERROR

(20)?

MAXIMUM

BASIS

SURFACE

TO TEST

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

TWIS

THE

SPECIFY
ENTIRE

A “YES'* RESPONSE

PASS.

ERRORS
If

TESTING.

(20)?

THE

ALLOWED.

ERROR

LIM]

SEQ 0021

PAGE

THIS

witt

PARAMETER

ACHED,

;:;E

LISTED

THE

END

THE

ARE

READY

NUMBER

COMPARE

NOT

DATA FIELD.

TOTAL

BUT

ERROR

ALL

ERRORS

THE

CIMIT

C(ONTINUES

eND OF

THE

THAT

RE-

UNTIL

(OM-

(N)?

WiLL

RESPOND

THE
A

PROGRAM

GET

wiLL

CHECK

RESPOND

0 A

GfT

STATUS

AND WILL NOT
1S PRINTED.

BEFORE

TESTING

INFORMATION

ARE

PRINTED

NUMBER,

TYPE

AND

WITH

RELEVENT

ERROR

(OMPARE

AFTER

COMPARE

REPORTED

STARTS ON THAT DRIVE.
IF IT IS NOT READY
STATUS THE DRIVE IS DROPPED AND A MESSAGE

3.0

THE

|S SPECIFIED AS YES,

DATA

OPERATION.

PRINTED

NO RESPONSE

THIS PARAMETER

DRIVE

THE

A GIVEN

DATA ERRORS

DROP DRIVE

THE

SPECIFIES

FGR

VvIA

CONSOLE

DEVICE.

PROGRAM LOCATION.

ERRORS

THE

ERROR

INCLUDE

INCLUDES

ERROR

REGISTERS BEFORE

AND

DATA,

ERROR REPORTING

THE

OPERATION

THE

MESSAGE

(LINE &)
FUNCTION BEING

SUBSYSTEM

STATE

THE

FLAGS

ATION MESSAGES

SEEK

ARE

= FROM

IN THE

1S GENERATED IN
EXECUTED AT THE

LOCATION

DYNAMI( MANNER BASED ON
TIME OF THE ERROR AND THE

TAGGED "'OPFLAGS'.

THE

POSSIBLE

OPER-

GIVEN BELOW.

(CYL NUM)

DIFF

(CyL

DIFF)

SGN

(O OR

(0O

READ DATA = |S A READ DATA OPERATION WHERE SOME FORM OF
ERROR
DETECTED IN THE ACTUAL READ OPERATION.
THIS ERROR COULD BE HARDWARE

WAS
DE=-

WHERE
THE
VALUES
ARE GIVEN IN OCTAL.
THIS MESSAGE 1S THE RESULT OF A
SEEX OPERATION THAT WAS VERIFIED BY A READ HEADER AND THE HEAD
POSITION
AFTER A SEEK IS IN ERROR.
(THE ACTUAL HEAD POSITION IN THIS ERROR SI1Tu-

ATION

1S GIVEN

TECTED

SUCH

SOF TWARE

PLETED.

IN THE

DATA

RESULT

(RC,

DETECTED ERROR

READ DATA WITH DATA

'DATA IN THE BUFFER AFTER
(ATES

BUT

LINE,

HEADER

LINE

(RC,

SUCH AS DRIVE

(COMPARE

5.)

HEADER

READY

NOT

RESET

AN ERROR

FOUND,

ETC.,

THAT

WAS DETECTED

BAD

A READ DATA OPERATION.
WHEN THIS OPERATION IS
REPORTED
IT
INDI~THE
ACTUAL READ DATA OPERATION (OMPLETED WITH NO DETECTED ERRORS

THE

DATA WAS WRONG.

READ MEADER - READ HEADER FOR 40
MEADERS
READ
HEADER
HEADERS
WITH HEADER (OMPARE = HAVE THE SAME GENERAL MEANING AS

DATA AND READ DATA WITH DATA (OMPARE.
READ

AFTER A READ DATA (OM-

HEADER

FOR
40
THE READ

MESSAGES HAVING THE OPERATION

OR READ HMEADER FOR 40 HEADERS ARE

THE

RESULT

ERRORS DE=

SEQ 0022

PAGE

TECTED
HEADER

DATA

IN THE ACTUAL OPERATION WHILE
(OMPARE INDICATES NO ERROR IN

JTSELF
WRITE

WAS

DATA = RESET
THE

= GET

WHEN

THE

STATUS = GET

AS BEFORE,

RESULT

DRIVE

THE

LINE

LD DRV = UNLD DRV = ARE

REPORT

READ HEADER FOR 40 HEADERS WITH
ACTUAL OPERATION BUT THE HEADER

IN ERROR.

BASIC OPERATIONS.
g:pgg%!ukfif.

THE
THE

LOAD

STATUS WITH RESE!

ARE

ALL

REASON

FOR

THE

ERROR DETECTION CAN BE EITHER HARDWARE

(LINE

WILL

DEFINE

THE

OPERATION MESSAGES THAT WILL

AND UNLOAD

SEQUENCE

IS BEING

APPEAR

TESTED.

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

OFERATION

READ

DATA WITH

QUALIFIER

DATA

(OMPARE

FOL

READ DATA
WRITE DATA
READ HEADER

SEEK

FOL 255 1O CC SEEK
FOL WRITE (NO SEEK)
ADJ. CYL WRITTEN AFTER FWD
ADJ. CYL WRITTEN AFTER REV

]

Sk
SK

FWD, WRT=-SK REV, OVERWRT

REV,

WRT=SK

FWD,

OVERWRT

THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY OF
THE
QUALIFIERS
IN
THESE TESTS ARE AN ATTEMPT TO MAKE THE

QUALIFIERS.
REPORT MORE

THE
MEAN-

XNG:UL BY PROVIDING

OPERATIONS

BEING

DONE

THE

QUALIFIERS "'FOL O TO CC

THAT
THE SEQUENCE
THE CYLINDER WHERE

DONE

INFORMATION ABOUT

THE

SEQUENCE OF

SEEK' AND ''FOL 255

OF OPERATIONS INCLUDED A SEEK
THE TEST IS BEING PERFORMED.

TO (C
A

SEEK'' | NDICATE
10

GIVEN DIREC TION

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

WAS

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

fWwD,

CYLINDER WAS WRITTEN.

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

IFIERS gEFI?E

THE

OVERWRITE.

THE DIRECTION OF

HEAD MOTION BEFORE

THE

REV,
WRT=-SK
THESE QUAL~-

INITIAL WRITE

AND

THE QUALIFIER ''ON BAD SEC FILES' WwiLL BE REPORTED
WITH
THE
WRITE
DATA
(OMMAND IF THE PROGRAM ABORTS THAT (COMMAND BECAUSE THE WRITE WwOULD
BE ON THE BAD SECTOR FILES.

SEQ 0023

PAGE

SPECIFIC RESULT MESSAGES

THE RESULT MESSAGE (LINE 5) 1S GENERATED DYNAMICALLY BASED
ON
THE
ExXPECTED RESULT OF THE OPERATION BEING TESTED.
SINCE OPERATIONS ARE MON]TORED DURING EXECUTION THE RESULT MESSAGE MAY REPORT AN
ERROR
DETECTED
DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT THE END OF THE OPtRATION.
ONLY THE FIRST ERROR SEEN 1S REPORTED iN ALL CASES.
THE

GENERAL

RESULT: (VAR

WHERE

FORMAT

FOR

THE

(VAR

(AN BE

VARIABLE

CONT ERR
DRV ERR
NON=-EXSTNT MEM
HDR CRC
DATA CRC
HDR NOT FND
DATA LATE
HDR NOT FND/HDR
DRV RDY
SELECTED HEAD
VvOL (HK
COVER OPEN
BRUSH HME
WRT L(K

RESULT
SB

ONE

(VAR

THE

FND/DAT

QUALIFIER)

(HEADER NOT

CRC/OP]

FOUND)

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

ChECK)

(BRUCH HOME)
(WRITE

LOCK)

(HEADER 0UT)
(DRIVE SELECT ERROR)
(DRIVE STATE)
(SPINDLE TIMEOUT SPD ERROR)
(WRITE GATE ERROR)
(SKTO ERROR)
(CURRENT [N HEAD ERROR)
(WRITE DATA ERROR)
(OP] ERROR)
(HDR CRC OR DATA CRC ERROR

BIT

LATE

11 OF

(HDR NOT

CS REGISTER)

FOUND OR DATA LATE

ERROR BIT 12 OF (S REGISTER)

(CYLINDER WHEN REPORTING A

SEEK ERROR)

VARIABLE 2 WILL BE A VALUE
CAN BE

(OPTIONAL

FOLLOWING:

(NON=EXISTANT MEMORY)
(HEADER CRC ERROR)

cyL

THIS

1S:

(CONTROLLER ERROR)
(DRIVE ERROR)

HDS OUY
DRV SEL ERR
DRV STATE
SPIN TIMEOUT
WRT GAT ERR
SEEK TIMEOUT
(UR HEAD ERR
WRT DAT ERR
OP INCOMPLETE
HDR/DAT ERR
HDR NOT

LINE

T0 7 TO INDICATE

OR O TO

THAT DEFINES WHAT

INDICATE

A SET OF

THE

RESULT

THE DRIVE STATE, OR A NUMBER O TO 377

TIFY A CYLINDER NUMBER.

ACTUALLY

CONDITIONS,

(OC1AL)

IS,

A NUMBER 0

IDEN-

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

SEQ 0024

PAGE 25

TO REPORT

RESULTS SUCH AS:

BRUSH HME 1S 1 SB O IN STATE 2
HEADS OUT IS O SB 1 IN STATE 3
DRV RDY
IS O SB 1 IN DATA XFER
SELECTED HEAD IS 1 SB O IN CYCLE uP
DRV RDY
IS O SB 1 IN STATE 5
DRV RDY
IS 1 SB 0 IN SEEK W/0 MOTION
DRV RDY
IS O SB 1 IN 10MS
DRV RDY
IS 0 SB 1 IN 500MS
DRV RDY
IS 0 SB 1 IN SSECONDS
THESE RESULTS, WHEN SEEN WITH THE OPERATION MESSAGE,
NATORY,

OTHER RESULT MESSAGES THAT

CAN BE PART OF

WILL

AN ERROR REPCRT

SELF

EXPLA-

ARE:

"'INTERRUPT TO LATE"
WHICH INDICATES THAT THE OPERATION BEING PERFORMED DID NOT
COMPLETE
IN
THE
EXPECTED
AMOUNT
OF
TIME.
THIS RESULT CAN BE CAUSED BY THE DRIVE

LOOSING READY BEFORE
THE READ HEADER

“FAIL
THIS

ERROR

STARTING A READ HEADER AND THEREFORE NOT

1MS.

TO RELOAD HEADS AFTER ERR CLEAR'
1S REPORTED WHEN AN ERROR

CAUSES HEADS

]S CLEARED THE HMEADS DO NOT

UNLOAD

§iS REPORTED WHEN

AND

AFTER

THE

DRIVE

STATE

BAD

SEC~-

RELOAD.

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

COMPLETING

THE

PROGRAM CANNOT

DETERMINE

THE

PROGRAM ABORTS

A WRITE

THE

STATUS.

"WRITE ABORTED"
THIS 1S REPORTED WHEN
TOR FILES.

"'COULD NOT RETRIEVE DRIVE
iF

THE

1S REPORTED

GET

"OP1

SET=NC DRIVE RESPONSE'’

THIS

1S REPORTED AS

STATUS

COMMAND DOES NOT

STATUS IS REQUIRED TO REPCRT AN ERROR.

THE

STATUS"

THIS

LY WHEN THE

TO PROTECT

RESULT

WHEN THE

GET

COMPLETE

STATUS COMMAND

SUCCESSFUL-

TIMED

OQul

SEQ 0025

PAGE 26

(OP1
SETS)
WHEN THAT
THE DRIVE INTERFACE.

COMMAND

IS BEING USED

THE

EARLY

TESTS

TO CHECK

"'NO INTERRUPT ON CMND COMPLETE"
THIS IS REPORTED WHEN THE COMMAND SUCCESSFULLY
TROLLER HAS NOT GENERATED AN INTERRUPT.

"ERR DID NOT
THIS

RESET

COMMAND DOES NOT

THIS IS A CONTROLER RELATED PROBLEM BUT
TEST PROGRAMS.

"DRvV ERR 1S NOT
THIS

BUT

THE

(ON-

CLEARTM

1S REPORTED WHEN THE

ERRORS.
THE DRIVE

COMPLETES

C(LEAR

THE

CONTROLLER

1S REPORTED

SEEN

CLEARED"

1S REPORTED WHEN

THE

GET

STATUS W/RESET

COMMAND DOES NOT

CLEAR

ALL

DRIVE ERRORS.

"UNEXPECTED ERR"
Igéssé? REPORTED WHEN THE

CONTROLLER SENSES AN ERROR BUT NO

ERROR

BITS

"BAD SEC FILE FMT ERR"
THIS

IS REPORTED

EXPECTED FORMAT

2.1.5
OTHER

YHE

CONTENTS OF

KEFER TO DEC

FILES

STANDARD

DO NO

CORRESPOND

144 rOR FORMAT

THE

SPECIFICS.)

OTHER MESSAGES
INFORMATION

IS REPORTED UNDER VARIOUS CIRCUMSTANCES.

"BAD SEC FILES NOT STRD.
THIS MESSAGE

FILES

THE

BUT

THESE

ARE:

ALL SEC ASSUMED GOOD."'

IS PRINTED WHEN A PARTICULAR

THEY HAVE NOT BEEN STORED.

TESY

REQUIRES

THE

BAD

THIS SITUATION WILL OCCUR

TEST IS STARTED OUT OF THE NORMAL PROGRAM SEQUENCE OR
FILES COULD NOT BE READ,

THE

BAD

SECTOR

THIS

SECTOR

"ERROR LIMIT EXCEEDED=-UNIT DROPPED"
TMIS

1S REPORTED

NUMBER OF

ERRORS

(WITH

THE

UNIT NUMBER)

WHEN

(DEFAULT 20) HAVE OCCURED

IN ANY

THAN

THE

SINGLE PASS,

SPECIFIED

SEQ 0026

MOST

ERROR

wAVE

THE

(1)

PROG NAME

ROUTINE

(%)

TEST DESCRIPTION

OPERATION:

(6)

ADDRESS OF

RESULT:

(7)
(8)
(9)
(10)
a1
(12)
ONLY

HROUGH

UNIT

UNDER

NUM

TEST

RLDA

RLBA

TOTAL

EXCEPTION

READ

THE

ABOVE

ERROR).

FORMAT

THEN

IS THE ERROR HEADER AND

A
A

THE

ERROR

THE

WAS

INITIATED.

SINCE

ggf

LOCATION OF

THE

(SUCH A INCREMENTAL
THE SUBTEST WiLL BE

FROM

NUM

ERR

RLMP

CYL

(YYyYyyy)

PURE

DATA

FORMAT

COMPARE

DOES NOT

ERRORS

INCLUDE

(NOT

LINES 5

NUMBER
OF
TIMES
CONSEQUENTLY,
ON

LINE

THE

WITH

1S PROVIDED BY
THE

NUMBER OF

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

PORTED

SUBTEST

STATUS
WORD NUM IS (XXXXXX) SB
COMPARE ERRS: (221) OF (128)

GRAM IS IDENTIFIED BY NAME
BEING EXECUTED.
THE
T0

TEST

FORMAT,

(IN SEQ CALLED)

RLCS

OP INIT
OP DONE
DRIVE

%E;E(TED1OBV

SEQ

(ADDRESS)

(4)

LINE

FOLLOWING

ERR NUM

TRACE

(ADDRESS)
(ADDRESS)

(5)

THE

REPORTS

PAGE

P.C.

FROM

SEEKS, READ
DESCRIPTIVE

SUPEKVISOR.
AND

THE

SUBTEST

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

ERROR

TEST

MEMORY

LOCATION WHERE

FUNCTIONS ARE

THE

ERROR

CALL

TRACE

PRO-

PRESENTLY

A
TEST,
OPERATION

ALL HEADERS FROM
BOTH
SURFACES,
ETC.)
OF WHERE IN THE TEST THE ERROR OCCURRED.

PHYSICAL

MANY

1S THE ROUTINE
THE

TEST

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

SUBROUTINES,

WITHIN

THE

AND

P.C.

THE

SEQUENCE.

(AS OPPOSED

SUBROUTINED,
IS

NOT

ROUTINE

THE

ERROR

AND ERRORS ARE

SUFFICIENT

TRACE

THE ERROR

REPORT

SEQUENCE

CALL

TO WITHIN A ROUTINE),

RE-

IDENTIFY

IS PROVID-

INITIATED

THIS PORTION OF

THE REPORT IS OMITTED.
IF THE CALL IS INITIATED FROM A
ROUTINE
(WHICH
MAY
BE
CALLED
BY ANOTHER ROUTINE, WHICH MAY BE CALLED BY ANOTHER ROUTINE, ETC,
SEVERAL LEVELS DEEP) THE ROUTINE TRACE SEQUENCE
PROVIDES
A
TRAIL

THE

ACTUAL

TINE.
THE FIRST
WAS CALLED,

LINE
TME

1S THE

TEST

BEING

LOCATION WITHIN

ENTRY

TEST

LISTED

THE

DESCRIPTION AND

PERFORMED,

THE

TEST

THAT

LOCATION WHERE

1S ROUGHLY

CALLED

THE

IDENTICAL

THE

FIRST

TO THE

ROuU-

ROUTINE

NAME

SEQ 0027

PAGE

LINE

IDENTIFIES THE

ACTUAL HARDWARE

FUNCTION THAT

S BEING

PERFORMED.

ADDITIONAL
INFORMATION
ON
THIS LINE 1S DESCRIPTIVE OF SPECIFIC USE OF
THE FUNCTION.
FOR EXAMPLE, THE OPERATION LINE WILL READ
‘‘READ
HEADERS

FOR 40 HMEADERS'® WHEN ALL HEADERS ARE BEING READ FROM A TRA(CK.

LINE 5 IDENTIiFIES THE ERROR THAT HAS BEEN DETECTED.
THE CONTENT OF LINE
S
IDENTIFIES
WHAT
WAS
BENG
TESTED
(SUCH AS DRIVE READY, CONTROLLER
ERROR,

DRIVE

REPEATED

STATE,

ETC.),

WHAT

THAN ONE

TESTED

AND WHAT

ITEM

IS FOUND

SHOULD BE.

LINE

MAY

IN ERROR.

IN ADDITION LINE 5 WILL REPORT ANY HARDWARE DETECTED ERRORS SuCH AS
OPERATION INCOMPLETE, HEADER CRC, ETC.
IN THIS CASE THE FIRST LINE PRINT=ED AS RESULT WiLL BE DETEPMINED BY THE THREE ERROR
BI1TS
OPIl,
HNF/DLT,
?:g EH(R(/D(R(.

THE

LINE

WILL

DETERMINED

THE

FOLLOWING

TRUTH

DCRC/HCRC

0Pl

0
0

MESSAGE

1
1
1

—t =

TM
X as I

HNF /DLT

O =

LES

HDR NOT FND/HDR CRC/0P1
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.
DREES IS BY UNIBUS ADDRESS OF THE CONTROLLER AND DRIVE NUMBER.

LINE
ARE

7 NAMES THE

APPLICABLE

CONTROLLER REGISTERS
THE

LINE 8 PROVIDES THE

WAS

INITIATED.

REPORT)

TO BE

CONTENTES OF

THIS AD-

(AND CYLINDER AND HEAD WHERE

REPORTED.

THESE

CONTROLLER REGISTERS WHEN THE OPERATION

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

THE

HEADS

THE

LINE

POSITION

WRONG

REASON

CYLINDER.

10 15 THE DRIVE

GISTER DOES NOT

THAT

AND WHEN THE

STATUS.

(ONTAIN THE

SEEK

THIS LINE

ACTUAL

WAS

EXECUTED

AND DID NOT

READ HEADER WAS DONE

DRIVE

1S ONLY REPORTED IF
STATUS.

THE

LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS A
OPERATION,

REPORTED

FOR

EJTHER
ALL

DATA

READ

OR HEADERS.

ERRORS.

IN ADDITION,

PROPER=-

THE HEADS WERE

RLMP RE
:

COMPARE

GOOD AND BAD DATA

|[S

ERROR HALTS

fkkOR HALTS ARE

SUPPORTED PER DESCRIBED

THE

SECTION

WiTH

SEQ 0028

/FLAG:HOE
.

THERE

APE

PERFORMANCE

THIS PRCGRAM WILL

6.2

PROGRESS

DEVICE

NO OTHER HALTS.

AND PROGRESS REPORTS

TM71

GIVE

ANY

PERFORMANCE

NOT

GIVE

ANY

PROGRESS REPORTS.

INFORMATION TABLES

THE RL11/RLVI1 CONTROLLER HAS
TROL OF THE SUBSYSTEM.

C ONTROL

DDODD

RLCS =

D©®

THE

FOLLOWING

FOUR(4)

AND STATUS REGISTER

(xxxxx0)

(OMPOSITE ERROR
DRIVE ERROR
NON EXISTANT MEMORY ERROR
HEADER NOT FOUND (WITH BIT

10 SET)

DATA LATE

HEADER CRC

[
—

e
e e
e

DOTODDDD®®

REPORTS.

REPORTS

THIS PROGRAM WiLL

DATA CRC

OPERATION

(WITH BIT

10 CLEAR)

(0-3)

CONTROLLER READY
INTERRUPT ENABLE
EXTENDED BUS ADDRESS

EXTENDED BUS ADDRESS

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

= WRITE

READ

10 SET)

10 CLEAR)

INCOMPLETE

- DRIVE SELECT

(BIT
(BIT

(HECK

¢ = GET DRIVE
3 - SEEK

17)
16)

(LSI=11)

STATUS

HEADER

S = WRITE DATA

6 = READ DATA
¥

()

READ WITHOU!

PRIVE

READY

HEADER

COMFPARE

REGISTERS

FOR

(ON=-

SEQ 0029

PAGE

RLBA = BUS ADDRESS REGISTER

BITS 15=1 BUS ADDRESS OF
BIT G SHOULD BE C
RLDA

DISK

ADDRESS

(XxxxXx2)

DATA TRANSFER

(xXXXX&)

BIT

15=7 = CYLINDER ADDRESS FOR TRANSFER

BIT

5=0 = SECTOR FOR TRANSFER

FOR

SEEK

BIT 6 = SURFACE

FOR

TRANSFER

(1=-40.)

FUNCTION

7 = DIFFERENCE
= MUST

SURFACE

MUST

ZERO

TO NEW CYLINDER
(0)

(0=UPPER,

ZERO

(0)

1=LOWER)

SEEK DIRECTIONC 1=IN 7
MUST BE ZERO (0)
MUST BE ONE (1!
FOR

GET

STATUS

= MUST

ONE

0 = MUST BE ONE
RLMP

MULTIPURPOSE

(0)

(1)

G-

15 = 0 - WORD COUNT

FOR

READ

811

15«0 - DISK HEADER OF

HEADER

= HEADER
STATUS

(TWQ'S COMPLIMENT)

FUNCTION

= JERC WORD

GET

ZERO

(1)

BIT

FOR

)

FUNCTION

15=4 = JGNORED SHOULD BE
3 - DRIVE RESET
2 = MUST BE ZERO (0)
1

0=0UT

(RC

SECTOR (FIRST READ)

(SECOND READ)
(TWIRD READ)

FUNCTION

SEQ 0030

PAGE

#AS

DRIVE

BIT
BIT
Bi1
BIT
81T
BIT
BIT
B1T
B1T
BIT
BIT

15
14
13
12
11
10
9
B
7
&
5

BIT

=
=
=
=
=
=~
=
=
=
=

STATUS

WRITE DATA ERROR
CURRENT HEAD ERROR ((HE)
WRITE LOCK STATUS (wL)
SEEK TIME QUT (SKTQ)
SPIN ERROR (SPE)
WRITE GATE ERROR (WGE)
VOLUME CHECK (v()
DRIVE SELECT ERROR (DSE)
DRIVE TYPE 1S RLOZ2 IF SE7
SURFACE (0O=UPPPER, 1-LOWER)
COVER OPEN

& - HEADS HOME
NOWVESs
W
—=O

BIT
3 = BRUSHES HOME
BIT 2=0 =STATE BITS

TEST

- LOAD STATE
SPIN UP

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

SUMMARIES

GUARD

BAND

DETECTION

DC READ HEADER,

WAIT

FOR

OUTER

NOT,

REACHED.
TRIES:

SEEx REVERSE
IF

ANY

REVERSE

INTERRUPT,

CYLINDER AT

DETECTION OF

SEEK

DO READ HEADER,
It

NOT:

CYLINDER O
IN

O,
1S
10

1, SIGN C,
HEAD
READY SHOULD SET

0.
IN

UNTIL
THE

CYLINDER

HEADS

FOR

GUARD BAND

INTERRUPT,

FAILED TO SEEK BACK
DO SEEX

TO MOVE

DIFFERENCE OF
FOR
READY.

TO DETECT

WAIT

FAILS

(HECK

A TIME

GUARD BAND PREMATURE.

WHEN AT CYLINDER O, DC SEEK
wAlT
FOR
INTERRUPT,
WAIT
NOT:
IF
20MS>T>15MS,
FAILED

TEST

WlTH DIFFERENCE OF

(HWECK

FOR

C(YLINDER

TO ZERD

SIGN O, WEAD

SAME

TESTS

SEQ 0031

PAGE

ABOVE

WwiTH

REGARD

TO READY

TIME

AND

CYLINDER

#OUND

HEADER,

NOTE:

TEST

(HOOSING A SINGLE
THAT SURFAC(E.

INCREMENTAL

FORWARD

SURFACE

SEEX

WILL

HEAD

LIMIT

THE

TESTING

TEST:

LA A AR
A J

POSITION
HEADS
AT
CYLINDER
DIFFERENCE OF ONE, HEAD O.

‘'“LOLIMIT"

USING

SEEKS

DO SEEK WITH DIFFERENCE OF
1,
SIGN
1,
HEAD
0.
INTERRUPT, WAIT FOR DRIVE READY.
(HECK READY IS SET
I NOT:
POSITIONING PROBLEM AT A
MECHANICAL OBSTRUCTION

(HECK

THAT

THIS

CYLINDER

DI+FERENCE
TRACK

REPEAT

NOTE

SEEKS

AND

COUNT

1.,

[IF

LOGIC

READS UNTIL

CYLINDER

READ

NOT:

FAILURE

"'WILIMITTM,

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

VERIFY),

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

SURFACE
5

IF THE "'USE ALL
"y,
THE
TEST

TEST

CYLINDER

WwAlT
FOR
[N 15 MS,

CYLINDER

CROSSIN DETECTION FAILURE

(CARTRIDGE

NOTE

IS OLD

SPECIFIC

WiTH

INCREMENTAL

SURFACE.

1S CHOSEN.

REVERSE

POSITION
HEADS
DIFFERENCE OF 1,

THIS

SEEK

AT
CYLINDER
HEAD 0.

HEAD

TEST

WwliLL

BYPASSED

TEST

‘HILIMIT"

USING

SEEKS

WITH

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

DO READ HEADER, WAIT

IS OLD CYLINDER = 1.,

FOR

INTERRUPT.

IF NOT:

SPECIFIC

(HECK

THAT

DIFFERENCE REGISTER OR COUNT LOGIC
TRACK

(ROSSING

DETECTION FALLURE

CYLINDER

THIS CYLINDER

FAILURE

SEQ 0032

PAGE 33

REPEAT

SEEX

NOTE:

AND

CMECKS UNTIL

if THE ""USE ALL
"y,
THE
TEST
(CARTRIDGE

NOTE:

THAT

SURFACE
TEST

INCREMENTAL

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

DONE

BETWEEN UPPER

SURFACE.

IS C(HOSEN.

FORWARD

WITH DIFFERENCE

INTERRUPT,

WAIT

FOR

THIS

TEST

HEAD

SEEK

DRIVE

WiLL

TESTING

BYPASSED

TEST

‘“'MILIMIT"

READY.

CYLINDER

SIGN

C(HECK

USING

HEAD

READY

SEEKS

SET

WlTH

WwAIT
IN

FfOR

MS,

NOT:
POSITIONING

DO READ MEADER, WAIT
IS OLD CYLINDER + 1.
TRACK

REPEAT

NOTE

SEEKS

AND

THE

SURFACE

C(HECK

COUNT

ALL

SECTORS''
WILL

LOGIC

THIS

(YLINDER

FAILURE

FAILURE
READ

AND

"MILIMIT'",

TEST

SPECIFIED

ALL 40 HEADERS

VERIFY),

DONE

SURFACE.

CYLINDER

THAT

PARAMETeR

READ

BETWEEN UPPER AND LOWER

(HOOSING A SINGLE

THAT

SPECIFIC

UNTIL-CYLINDER

TEST

TESTING WILL

LIMITS,
TO

READS

(CARTRIDGE

NOTE

CROSSING DETECTION

THE "USE

vy,

PROBLEM AT

FOR INTERRUPT,
IF NOT:

DIFFERENCE

TEST

AND LOWER

(HOOSING A SINGLE SURFACE WILL LIMIT

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

IS 'LouLimit',

VERIFY).

TESTING witLL

LIMITS.,

CYLINDER

THIS

SURFACE

TEST

WiLL

WILL
BE

LIMIT

CYLINDER

TESTING

BYPASSED

IS CHOSEN.

INNER GUARD BAND CETECTION TEST

POSITION HEADS AT
OF 1, HEAD 0.

WHEN AT MAX
HEAD

SHOULD

SET

CYLINDER "“WILIMIT' USING SEEK

CYLINDER,

WAIT

FOR

DO SEEK WITH DIFFERENCE
INTERRUPT,

WAIT

[N 20MS>T>15MS,

FAILED

GUARD BAND

TO DETECT

NOT:

FOR

DRIVE

WITH DIFFERENCE

SIGN

READY,

READY

SEQ 0033

PAGE

?? :E?D HEADER.

WAIT

FAILED

FOR

INTERRUPT.

SEEK

DO SEEXK

WwITW DIFFERENCE

NOTE:

(HOOSING A SINGLE
THAT SURFACE.

AS ABOVE.

TEST

INCREMENTAL

POSITION

REVERSE

HEADS

DIFFERENCE OF

BACK

TO MAX

SIGN

SURFACE

SEEK

MEAD

CYLINDER

HEAD 0.

(MECK

CYLINDER

HEAD

WILL

FCR MAX.

L IMIT

SAME

TESTS

THE

TESTING

TEST

“MILIMIT"

USING

SEEKS

WITH

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

DO READ HEADER, WAIT
IS OLD CYLINDER = 1.

REPEAT

SEEK

AND

THAT

LOGIC

CHECKS UNTIL

CYLINDER

THIS

IS “‘LOLIMIT",

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

NCTE

TESTING WILL BE

LIMITS,

DONE

TEST

SEEX

ALL
WILL

SECTORS'
READ AND

BETWEEN UPPER AND LOWER

CYLINDER

CHOOSING A SINGLE

THAT

SURFACE.

CYLINDER

FAILURE

CROSSING DETECTION FAILURE

SURFACE O IS CHOSEN.

(HECK

CYLINDER

NOTE

LR R

SPECIFIC

FOR INTERRUPT.
IF NOT:

DIFFERENCE
TRACK

THIS

SURFACE WILL LIMIT

TEST

WlLL

TESTING

BYPASSED

TESTS

POSITION
HEADS
DIFFERENCE OF 1,

AT
CYLINDER
HMFAD 0.

DO READ HEADER,

RECORD POSITION.

(MAX
(HE(K

DISTANCE
AT
NEW CYLINDER
TRACK

"'LOLIMIT'

USING

DO SEEK WITH DIFFERENCE

3
IPS),
SIGN 1, HEAD 0.
IS OLD CYLINDER ¢ DISTANCE.

CROSSING DETECTION

DIFFERENCE

SEEKS

FAILURE

COUNTER FAILURE

(OUNT PULSE GENERATION FATLURE
VELOCITY ROM FA]LURE

WITH
OF

DO READ HEADER,
IF NOT:

SEQ 0034

PAGE

22PEA1

ABOVE

UNTIL

OLD

CYLINDER

DISTANCE

MAX.

POSITION

DO READ HEADER,
(MAX
(HECK

RECORD POSITION.

DISTANCE
AT
NEW CYLINDER
TRACK

REPEAT

ABOVE

UNTIL

OuLD

REPEAT

ALL

WITH DIFFERENCE

DO READ HEADER,
IF NOT:

CROSSING DETECTION FAILURE
CYLINDER

USING HEAD

DO SEEX

3
[PS),
SIGN O, HEAD 0.
1S OLD CYLINDER = DISTANCE.

DISTANCE

REPEAT

ALL

THE

ABOVE

TESTS

USING

THE

FOLLOWING

DISTANCES:

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

SPECIFIED BECAUSE THEY REPRESENT THE MAXIMUM DISTANCE
VELOCITY LEVEL USED IN THE DRIVE.

FOR EACH

NOTE:

CYLINDER

TESTING WILL BE

LIMITS,

TO THAT

TEST

DONE

BETWEEN UPPER AND LOWER

(HOOSING A SINGLE

SURFACE.

8 FORWARD OSCILLATING SEEK

SURFACE WILL LIMIT

TESTING

TEST

rePRYY

POSITICN HEADS

CYLINDER 0.

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

AND

REPEAT

USING HEAD

NOTE:

TEST

VERIFY

IF EITHER CYLINDER LIMIT IS SPECIFIE D, THE
TEST
wlLL
SEEK
BLTWEEN UPPER AND LOWER LIMITS FOR EACH SURFACE.
T0O
THAT
(HOOSING A SINGLE SURFACE WILL LIMIT TESTING
SURFACE.
NOTE
THAT
LOOPING ON TES 1 THEN PROVIDES A

FIXED DISTANCE

TEST

POSITION.

9 REVERSE

SEEK

CSCILLATING SEEK

LOOP.

TEST

(AR AR A}

POSITION HEADS

HEAD 0.

(IF

RLO1

MAX

CYLINDER.

SEEK FROM 255

255,....255 10 0 1O 255.) AFTER
VERIFY POSITION.

REPEAT

NOTE:

TEST

USING HEAD

OSCILLATING

TO 254 T0 255,

EA(CH

SEEK

255 10

READ

253

HEADER

USING

AND

IF EITHER CYLINDER LIMIT IS SPEC IF1ED, THE
TEST
wWlLL
SEEK
BETWEEN UPPER AND LOWER LI MITS FOR EACH SURFACE.

SEQ 0035

PAGE

(HOOSING A SINGLE SURFACE w Ite LIMIT
T ESTING
TO
THAT
Ll
SURFACE.
NOTE
THAT
LOOPING ON TEST THEN PROVIDES A

FIXED DISTANCE

10 SEEK

TIMING

POSITION HEADS AT

CYLINDER 0.

DO 64 SEEKS FROM O TO 1
FOR

LOOP.

EACH

SEEK.

INDEPENDENTLY)

AND

AVERAGE

THE

TO O, MEASURING
SEEK

TIMES

THE

SEEK

(FORWARD

AND REPORT.

REPEAT

ABOVE

SEEKING BETWEEN CYLINDER

AND 255 TO 256 AND 256 1O 511

127 T0

FOR RLO2.

REPEAT

ABOVE

SEEKING BETWEEN

CYLINDER

127 AND

REPEAT

ABOVE

SEEKING BETWEEN

CYLINDER

AND

255 FOR RLO1

FOR RLO1
TO 511

AND CYLINDER O TO 256 AND 256 TO 511

AND

254

128

FOR RLO2.

255

10 256

FOR RLOY

AND

FOR RLOZ2.

SEEXK

TIMES

:E:E?R58
v

WILL

FROM

REPORTED

START

SEEK

SHOWN

BELOW.

COMMAND UNTIL

THE

TIME

INTERRUPT

(YL REV
CyL
CyL
CYL
CYL

THE

MIDDLE

OUTER

X
X
X

FWD
REV
FWD
REvV

X
*
X

INDICATES WHERE

THE

EACH

EXPECTED

MID
MID
MAX
MAX

INNER

FWD

CyL

NOTE :

128

THE

TIME

AND REVERSE

ABOVE

REPORT

DRIVE

TIME

TEST

SEEK

WILL

WILL BE

UNDER

TEST

REPORTED.

PRINTED

MANUAL

THE

FIRST

PASS

FOR

INTERVENTION TESTS

WERE RUN.
THE EXPECTED TIMES ARE FOR USER
COMPAR]SON
ONLVé
THE
PROGRAM
WILL
NOT REPORT DPEVIATION AS AN
ERROR.

TEST

BASIC

READ

POSITION HEADS

DATA

TEST

MAX

DO READ DATA, HEAD 1.
ERROR,
READ
SECTOR
REPORT
(AN BE

CYLINDER.

(HECK FOR ANY ERRORS
THROUGH
19 UNTIL

ALL ERRORS BUT DC NOT INCREMENT
READ, SUCCESSFULLY, REPORT THAT

AND
REPORT,
IF
NO ERROR ON READ,

ERROR COUNT,
IF
NONE
FACTORY BAD SECTOR FILE

SEQ 0036

PAGE

CANNOT BE READ,
SECTOR 20.

INCREMENT

ERROR COUNT

AND PROCEED WITH READ OF

ON SECTOR WITH NG CRC ERROR, VERIFY DATA FORMAT (WORD O AND
1
ARE
NOT O, WORD 2 AND 3 ARE O, LOCATE FIRST WORD OF ALL ONE'S
a:?AIHAI @ORD TO WORD 127 ARE ALL
ONE'S.)
STORE
BAD
SECTGR

READ DATA,

HEAD CONE,

SECTOR

20.

CHECK

FOR

ANY

ERRORS

AND

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

ON SECTOR WITH NO CRC ERROR,
SECTOR DATA.
NOTE:
TEST
IR A

SURFACE

12 WRITE/READ DATA

VERIFY DATA AS ABOVE.

IS SELECTED THIS
TEST

(PART

TEST

WILL Bt

STORE

BAD

BYPASSED.

RSAR}

POSITION HEADS AT

WRITE

PATTERN

READ HEAD O,
REPEAT

CYLINDER O

ON HEAD O,

SECTOR 0.

CHECK

FOR

FOR OTHER DATA PATTERNS

CHECK

CRC

FOR ANY ERROR.

ERROR.

COMPARE

DATA.

THROUGH 8).

(HECK TF 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 IT IS LISTED AS
BAD,
LOCATE
FIRST
SECTOR
O,
TRACK

NOTE :

TEST

THAT

IS GOOD

CYLINDER

AND

LIMITS

DO ABOVE

ARE

TESTS.

IGNORED,

TESTING

CYLINDER
0.
HOWEVER, CHOOSING A SINGLE
LIM.T TESTING TO THAT SURFACE.

13 SPINDLE

TIMING

POSITICN HEADS

SURFACLE WILL

TO CYLINDER 0.

HEAD

DO WRITE DATA TO CYLINDER O, HEAD 0O,
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 38

TIME.

THE

NOTE:

TEST

TIME

THIS

REPORYED

TEST

MANUAL

WILL BE

IS CURRENT

100'S OR MICROSECONDS.

RUN ONLY

IN THE

FIRST

INTERVENTION TESTS WERE RUN.

14 WRITE/READ TEST

LET

(PART

PASS AND

ONLY

CYLINDER SELECTED FROM SET.

SELECTED CYLINDER SET BE AS DEFINED IN PARAGRAPH 4.3.

SEEK FORWARD TO CC.
TIMES ON HEAD 0.

WRITE PATTERNS 1

READ/COMPARE

THROUGH

ALL DATA.

REPEATED

SEEK REVERSE TO "'LOLIMIT''.
ALL
DATA.,
SEEK
FORWARD

SEEK FORWARD TO CC.
READ/COMPARE
TO "MILIMIT".
SEEK REVERSE TO (C.
REWRITE
DATA
PATTERNS
1
THROUGH
8

READ/COMPARE ALL DATA.
REPEATED 5 TIMES ON HEAD 0.

SEEK FORWARD TC ''HILIMIT'.
ALL

DATA,

SEEK

REVERSE

READ COMPARE ALL DATA.

SEEK REVERSE TO CC.
TO 'LOLIM!T".

SEEK

READ/COMPARE

FORWARD TO CC.

READ/COMPARE

ALL DATA,.

REPEAT

ABOVE

TEST

FOR HEAD

REPEAT

ABOVE

TESTS

FOR ALL

ANY OF

THE "'USE ALL CYLINDERS'' PARAMETER IS SPECIFIED

NOTE

NCTE 3:

ARE

THE

1.
CYLINDERS

IN SELECTED CYLINDER

SECTORS IN THE

LISTED AS BAD,

THAT

SELECTED

SET.

CYLINDER

SET

SECTOR WILL BE BYPASSED.

"y*',
THE
TEST
WILL
INCLUDE
SELECTED PARAMETER SET.

ALL

CYLINDERS

IN THE

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

CYLINDER SET.
THE

TABLE.

THOSE USED WILL BE EVERY BTH

THE

ENTRY

SECOND AND SUBSEQUENT PASSES ALL

ENTRIES IN THE SELECTED CYLINDER SET ARE USED.
NOTE 4:

DONE BETWEEN UPPER AND
LOWER
LI ITS
CYLINDERS IN THE CYLINDER SET BEYOND THESE LIMITS WiLL
NOT BE TESTED.
CHOOSING A SINGLE SURFACE
WILL
L IM]
TESTING WILL BE

TESTING TO THAT

TEST
(A AR A

15 WRITE
A2

LOCK

SURFACE.

ERROR AND DATA PROTECTION TEST

]

DO WRITE DATA PATTERN O AT SECTOR 0.
ASK OPERATOR

WRITE

LOCK

10 WRITE

IS SET.

LOCK DRIVE.

1F NOT SET

READ DATA AND VERIFY,

DO GET

STATUS

LOOP

UNTIL

IN 30 SECONDS, ABORT THE TEST.

SEQ 0038

PAGE 39

WHEN WRITE LOCK
REPORT
FAILURE

ERROR SETS.
THAT

SEQ 0039

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

(CLEAR ERROR AND READ DATA

DATA HAS NOT BEEN DISTURBED.

REQUEST GPERATOR
?NglkE:Ségg LOCK

TO RESET WRITE
LOCK.
IS, RESET
IF NOT RESET

SECTOR

CHECK

DO
GET
STATUS
LOGP
IN 30 SECONDS, REPEAT

NOTE:
TEST

THIS TEST 1§ kXECUTED ONLY IF

THE

REQUESTED,

PASS CNLY.

MODE

16 ADJACENT

SELECTED,

AND

CYLINDER

CC_IS CURRENT

IS RUN

MANUAL

IN FIRST

INTERFEREMNCE

PROGRAM OPERATION

INTERVENTION TESTING IS

TEST

CYLINDER SELECTED FROM SET

“LET SELECTED CYLINDER SET BE AS DEFINED IN PARAGRAPH 4.3.

DATA PATTERN 1S 155555.

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

WRITE

PATTERN ON

TRACK

SEEK FORWARD TO

SEEK

REVERSE

(C-1.

‘"WILIMIT",

PATTERN.
SEEK
WRITE PATTERN.

ADJACENT

CYLINDERS.

NOTE ADJACENT

SEEK REVERSE TO ''LOLIMIT',
FROM

ATTRIBUTED

ALL

WRI

FORWARD
T0
“MILIMIT".
SEEK REVERSE TO C
(THIS HAS BRACKETED ORIGINAL WRITE WITH WRIT

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

DATA

710

ALL

CYLINDERS WERE WRITT
DIRECTION

SEEK FORWARD TO CC.

SECTORS.

TO ADJACENT

REVERSE

ANY

ERRORS

CYLINDER

SEEK FORWARD TO "‘WILIMIT''.,

WHICH

READ/COMPARE

(READ OR COMPARE)

INTERFERENCE.

SEEK REVERSE TO

(C.

WRITE

ARE

DATA

PATTERN.,
SEEK
REVERSE
T0 ''LOLIMIT''.
SEEXK FORWARD TO CC-1,
WRITE PATTERN.
SEEK REVERSE TO
‘''LOLIMIT'',
SEEK
FORWARD
T10
C(C+1,
WRITE PATTERN.
SEEK FORWARD TO "'WILIMIT'', SEEX REVERSE
T0 CC.

COMPARE)
REPEAT

NOTE

NOTE 2:

NOTE

READ/COMPARE

ARE

ABOVE

DATA

IN ALL

SECTORS.

ATTRIBUTED TO ADJACENT
TESTS ON HEAD

ANY

CYLINDER

ERRORS

ANY

THE "'USE ALL CYLINDERS'' PARAMETER IS

THAT

SECTOR ON A SELECTED CYLINDER

SECTOR WILL

“y*', THE
MAX CYL)

IN THE

EXECUTED
CYLINDER

BE BYPASSED.

TEST WILL INCLUDE ALL CYLINDERS
IN THE SELECTED PARAMETER SET.

FIRST

SET.

PASS

ONLY

(READ OR

INTERFERENCE.

THOSE

THE

PROGRAM

LISTED

SPECIFIED
(EXCEPT

THIS

wiLL

THE

O AND

EST

THE CYLINDERS ll B

USED

BAD,

FIRS

TH{NYQFIRS!,

AND FORTYFIRST ENTRIES IN THE TABLE.

SECOND AND SUBSEQUENT
ENTRY wiLL BE TESTED.
NOTE

TESTING wiLL

DONE

PASSES EVERY

FOURTHM CYLINDER

BETWEEN UPPER

AND

LOWER

L1 MITS.

ALL

SECTORS,

CYLINDERS IN THE CYLINDER SET BEYOND THESE
NOT BE TESTED.
C(HOOSING A SINGLE SURFACE
TESTING

TEST

17 OVERWRITE

THAT

SET

LIMITS Wit
WwILL
L inp

SUKFACE.

TEST

CC IS CURRENT CYLINDER SELECTED FROM SET
SELECTED CYLINDER SET DEFINED IN PARAGRAPH 4.3.
PATTERN A = 125252
PATTERN B = 00000C
SEEX FORWARD TO CC.
WRITE DATA OF
HEAD O.
READ/COMPARE DATA,

SEEK FORWARD TO "*MILIMIT',
B.
SEEK
REVERSE
T0
READ/CCMPARE

SEEK REVERSE
"LOLIMIT',

PATTERN
A,
SEEx FORWARD

"MILIMIT'" SEEK

SEEK REVERSE

REVERSE

TO (CC.

NOTE

TESTS ON HEAD

ARE

PATTERN
T0
(C,

THE

WRITE

DATA

DATA.

ATTRIBUTED

""USE ALL

OVERWRITE

CYLINDERS'' PARAMETER

"y,
THE
TEST
WILL
INCLUDE
SELECTED PARAMETER SET.

ALL

IS LISTED AS BAC,

SPECIFIED

CYLINDERS

THE

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

TWENTYFIRST,

AND

THOSE

USED

FORTYFIRST

SECOND AND SUBSEQUENT
ENTRY WILi BE TESTED.
4:

(C.

IF ANY SECTOR ON A SELECTED CYLINDER
THAT SECTOR WiLL BE BYPASSED.

CYLINDER

NOTE

710

READ/COMPARE

FROBLEM,

NOTE

70 ((.
WRITE
SEEK
FORWARD

READ/COMPARE
DATA.
SEEK REVERSE TO "‘LOLIMIT",
10
(C.
WRITE
PATTERN
B.
SEEK
FORWARD
T0

ANY FATLURES (READ
OR COMPARE)
ABOVE

DATA,

SEEK FORWARD TO "WILIMIT'',

REPEAT

PATTERN A

wilLL

ENTRIES

PASSES EVERY

THE

FIRST,

TABLE.

FOURTH CYLINDER SET

TESTING WILL BE DONE BETWEEN UPPER AND
LOWER
LIMITS,
CYLINDERS IN THE CYLINDER SET BEYOND THESE LIMITS WwiLL

NOT BE TESTED.
TESTING TO THAT

(HOOSING
SURFACE,

SINGLE

SURFACE

wiLL

LIMIT

SEQ 0040

» 1

PAGE

c——

5(0 0041

PAGE

CIRLJAG RLOT/2 DR TST
1.
L=

79-

10M12+

13-

1415=
16=
17=
18-

19-

20=
2=

CONTENTS

et
I
= e
—— ']

TABLE

2 MACRO v03.01

*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
*TEST
«TEST
*TEST

1
2
3
&
S
6
7
8
9
10
N
12
13
14
1%

*TEST

DIAGNOSTIC

SEQ 0042

**QUTER GUARD BAND DETECTION
*+ INCREMENTAL FORWARD SEEK HEAD C
** INCREMENTAL REVERSE SEEX HEAD 0
**INCREMENTAL FORWARD SEEK MEAD 1
*+* [NNER GUARD BAND DETECTION
*+ INCREMENTAL REVERSE SEEK HEAD 1
*+SEEK TESTS
*+*FORWARD OSTILLATING SEEK
*+*REVERSE OSCILLATING SEEK
*+»SEEK TIMING
*+BASI( READ DATA (BAD SECTOR FlLE)
*+*WRITE/READ DATA (PART 1)
*+SPINDLE TIMING TEST
*+*WRITE/READ DATA (PART ?2)
*+*WRITE LOCY ERROR AND DATA PROTECTION
*+ADJACENT

PARAMETER

9=FEB=79 19:23:55

CODING

*+OVERWRITE

CYLINDER

SUPERVISOR == LOW CORE

INTERFERENCE

SET

RSSEMBLY

ROUTINES

MACRO v03.01

9=FEB=79

19:23:55

PAGE

SEQ 0043
1

000001.

PARTZ::1

ASSEMBLY

N NN
-

ROUTINES

002000

=2 DO
OV

9-FEB=/9

000000

|o W R
—

MACRO v03.01

002600

002052
002054
002056
002060
002062
002064
002066
002070
002072
002074
002076
002100
002102
002104

NLIST
.ENABLE
LENABLE

ABS
AMA

<MCALL

Sv(

Sv(
S¥L1st= 1
SV(SuB= 1
SV(BGL
=1

SVCINS=0

SVCTAG=0
POINTER BGNSW,BGNSFET ,BGNDU
BGNMOD
HEADER

MDHEDR
(ZRLJ,A,0,30000,30000,300,RL01
LASCI] /C/
LASCII /7
LASCII /R/
LASCII /Ll
LASCII /J1
.BYTE
.BYTE
.BYTE
LASCII
LASCII
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
$DISPAT(H
.WORD
.WORD
.WORD
.WORD

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

000000
013426

CND TMMD, ME

.=2000

000001
000001
000001
000000
000020

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

19:23:55 PAGE

.WORD
.WORD
.WORD
.WORD
. WORD

(SREVISION
(SEDIT
30000
30000

0
0
LSDVTIYP
0
L$DR
L$DRST

L$DU
14

0
LEIN!

SEQ 0044

ASSEMBLY

MACRO v03.01

ROUTINES

9=FEB=79

19:23:55 PAGE

ro~No
W

SEQ 0045

002106
002110
002110
002110

014560

ENDMCD

000000
1c2

061

114

00C

114

056
060

.WORD

LSCLEAN

DEVREG

.WORD
BLKW
DEVIYP
LASCIZ

060

122
062

0
<RLOT,RLO2>
/RLOY,RLOZ2/

.EVEN

;COPYRIGHT

(C)

1978,

;SCFTWARE,

OR ANY

1977

;THIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY
;ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
:THE INCLUSION OF THE ABOVE CQOPYRIGHT NOTICE. THIS
COPIES THEREOF,

MAY NOT BE

PROVIDED

:OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT

;FOR USE

SUCH SYSTEM,

;LICENSE TERMS. TITLE

;AT

ALL

TIMES

REMAIN

AND

TO ONE

WHO AGREES

TO OWNERSHIP OF

IN DEC.

THE

THESE

SOF TWARE SHALL

STHE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
:WITHOUT

NOTICE

AND

SHALL

NOT

CONSTRUED AS

A COMM]TMENT

:BY DIGITAL EQUIPMENT CORPORATION.

;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
;OF

OFFSETS

0
2

VECT

HEADLM

HICYL
LOCYL

SUPPLIED By

DEC.

;BUS ADDRESS
;VECTOR ADDRESS

:DRIVE

— N
TM

FSET

FOR

SOF TWARE

P-TABLE

: SOF TWARE

TYPE

PARAMETERS SWITCMES

:CYLINDER LOWER LIMIT

SELECT BIT

:CONTROLLER

sCYLINDER HIGH LIM]T

;SELECTED HEAD FOR RUNNING TES:S

]
]
]

;ERROR LIMIT
:DATA COMPARE

TR T«
+)

DRSELT

HDA
! GN
L
AUTOSZ

IS NOT

P=-TABLE

ERLIM
DCLIM

FOR HARDWARE

;PRIORITY

ALLLYL
ALLSEC

HILIM
HEAD

000001
000002
000004
000010
000020
010000
020000
0640000

LOLIM

MISw]

“w

000000
000002
000004
000006
000010
000012

“”

DRSB
CNT

WHICH

“
n

PRIOR
TYPDR=6

]

(SR

00 0 0o 0O 00 00 00 0 »—

000000
000002
000004
000006
000G10
000012

]

EQUALS

)

45 002126

ON EQUIPMENT

GLBEQAT

-t e OO OO0
P>
SN W
= OV

BGNMOD

]

63 002126

ITS SOFTWARE

SIGNMENT

FOR SOFTWARE

P=-TABLE

ERROR LIM]T

SWITCHES

sUSE ALL CYLINDERS
;USE ALL SECTORS

JEXECUTE

DRIVE

SELECTY

TEST

JEXECUTE MEAD ALIGNMENT TEST
sAUTO SIZE FOR DRIVE=DROP IF NO RESPONSE
JHEAD LIMIT SPECIFIED FLAG
ML LIMIT SPECIFIED FLAG
L0 UIMIT SPECIFIED

RLCSR
ANYERR

040000
020000
010000
010000
004000
004000
002000
001400
000200
000100

DRVERR
NXMERR
DLTERR
HNFERR
-

W
W

COMPARE

:DATA COMPARE

2
3

HEADERS

OPERATION

;CYCLE UP OPERATION
;UNLOAD OPERATION

|
el el e et

;HEADER

) e

INTEBL

IGNORE

:COMPOSITE OPERATION FLAGS

) e e

] et

DCKERR

HCRCERR
OPIERR
DSMSK
(RDYMSK

DATA
DATA,

;NO OPERATION

6
7

000000

;READ
sREAD

: IN=OUT

SEEK

OPERATION

;0UT=IN SEEK OPERATION

;FOLLOWING WRITE OPERATION
;REV SEEX SEQ (ADJ INTERFERENCE)

8
9
0

;FWD SEEK
;REV SEEXK
;FWD SEEK

2
3

;SEEX OPERATION
;READ OR WRIiTE OPERATION

;40 HEADER OPERATION

:BAD DISK

;RELOAD

SEQ
SEQ
SEQ

(ADJ INTERFERENCE)
(OVERWRITE)
(OVERWRITE)

ADDRESS

WAIT

NS!INOUTS!FOLWRT!REVSKS'!FWDSKS!REVSKO!FWDSKO

;MESSAGE QUALIFIER BITS

— ot ——
O
OO0
TM
wWho
— O

RLCS
RLBA
RLDA
RLMP

100000

ODTTDDODDDDETTDODDOD®~ND
CC ot et et et et et Bt et Bt Bt Bt Bt et Bt Bt Bty TV

000000
000002
000004
000006

NOIRPT
CONHNG
NOCLR

TOSLOW

000001
000002
000004
000010

MQUALS

003760

;WRITE DATA

FLAGS

HDR4O

JWRITE CHECK
;GET STATUS

SSEER

RORWOP
RELDWT

INTERVENTION TESTS

sREAD HEADER

O SVO

BADADD
SEEKOP

T+]

100000

REVSKS
FWDSKS
REVSKO
FWDSKO

000400
001000
002000
004000
010000
020000
040000

INOUTS
OUTINS
FOLWRT

000100
000200

CYLUP
ULOAD

000020
000040

DATACMP

N E
DO
N

o e

000001
000004
000010

NN —-OD O oo

il
e
il

il nlh e

sl
it

s it e

ol —

107

COMPOP
HDRZMP

106

007777
000002

105

NOOP

RDNOHR

103
104

000116
000100

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

WIDATA
RDDATA

80
81
82
83
B4
85
86
87
88
89
90

RDHEAD

77
78
79

BSYSTEM FUNCTIONS

CKDATA
GISTAT
SEEK

SEQ 0046

;EXECUTE MANUAL

e s el el et e et
Ottt
OCS
OO SENNOISN

000102
000104
000106
000130
000112
000114

2-2

=BIT15

e b

MITEST

19:23:55 PAGE

— et

100000

9=FEB=79

72
72

MACRO v03.01

—_-Y) = NS =N
—=OmM

AGSEMBLY ROUTINES

GISTER BIT

00000
0009
0000
0000
0000
000
000
000
400
00
00

FROM SUBROUTINES

;OPERATION TOOK TO LONG

sNO

INTERRUPT

FRCM OPERAT]ON

: CONTROLLER HUNG
;BAD CONTROLLER CLEAR

;CONTROL AND STATUS REGISTER
:BUS ADDRESS REGISTER
;D1SK ADDRESS REGISTER

;MULTI=-PURPOSE REGISTER

DEFINITIONS - CONTROL STATUS REGISTER
;CONTROL

AND

STATUS REGISTER

:ANY ERROR BIT
;DRIVE ERROR BIT
sNON=-EXISTANT MEMORY ERROR
;DATA LATE ERROR
sHEADER NOT FOUND ERRCOR
;DATA (HECK ERROR
sHEADER CHECK ERROR
sOPERATION INCOMPLETE ERROR
;DRIVE SELECT MASK
:CONTROLLER READY MASK
;INTERRUPT ENABLE MASK

BAMSK
DRDYMSK

000077
000100

SAMSK

il
il
il

MBSET0

000003
000010

GETSTAT

DRSET

017777

WCMSK

DIRBIT

160000

WCRNG

000077
000100

HDSEC

[

——

O
o
-

DEFINITIONS = DISK ADDRESS FOR DATA XFER

ISTER BIT

DEFINITIONS = DISK ADDRESS FOR

100000

002126
002126

002126

> 002130
002132

002134
002136
002140

002142
002144
002146

002150

002152

002154
002156
002160

005330
005427
005416
005460
005437

;MUST BE SET, BIT 0
;DIRECTION BIT
;HEAD

STOSTAT

WLSTAT
HCESTAT
WDESTAT

OPMSGS:

BIT

DEFINITIONS = DISK ADDRESS FOR GET

BIT

DEFINITIONS = MP FOR DATA XFER

;GET STATUS SETUP
;DRIVE RESET MASK
;WORD COUNT MASK

;WORD

BIT

RANGE

;SECTOR MASK
;HEAD

BIT

COUNT

STATUS

MASK

DEFINITIONS = MP FOR READ HEADER
SELECT

MASK

DEFINITIONS - MP FOR GET
;STATE MASK

:BRUSH HOME

;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

STAMSK
BHSTAT
HOSTAT
COSTAT
HSSTAT
DSESTAT
VCSTAT
WGESTAT
SPDSTAT

SELECT

SEEK

BIT

HDHSE
L

ENDMOD
BGNMOD

000000
005252
005277
005224
005243
005265
005232
005362
005311

;SECTOR ADDRESS MASK
JHEAD SELECT MASK

. — ol — —

sl —ll ol il il

000007
000010
000020
000040
000100
000400
001000
002000
004000
010000
020000
040000

SEQ 0047

ISTER BIT

B o

B ol e

HDSEL

el il

el
il
s - —

000001
000004
0C0020

W
n
NS —TMm
o
o

HSMSK

2-3

;BUS ADDRESS UPPER MASK
;DRIVE READY MASK

19:23:55 PAGE

9=FEB=79

000060

000001
WWXPOWWNNNNNNNNNNOCOCCTOCOTTOOCOCOO
NN NNV
NNES S SN Pl ol ol o o WIWNWWNWNWNN
N
FPANNV—=DOD OV VNS W V=D 0N VNI W
—=O VN NS W=D 0D~y S Nre 2O OO~NO
N
N

MACRO v03.01

nn o
——y
7Y
o~Ne
o

ROUTINES

—

ASSEMBLY

GLBDAT
TABLE

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

Of OOPERATION MESSAGES
MWRCHK
MGTSTA
MSEEK
MREADH
MWRITE
MREAD
MWRSET

MDAT(CP
MHDR(P
MCYLUP
MULOAD

MINOUT

MOUTIN

sFILLER

sMESSAGE
:
3
3
:
:

:
:
:
3

:
:

FOR WRITE (HECK
GET STATUS
SEEK
READ HEADER
WRITE DATA
READ DATA
WITH RESET

WITH DATA COMPARE

WITH HEADER C(OMPARE
LOAD HEADS
UNLOAD HEADS

IN=OUT SEQ

Out=IN SEQ

PR TSRS

ASSEMBLY

ROUTINES

185 002162

.WORD

MFWDSK

000000
000000

T.DRIVE:
JJJ:
.WORD

.WORD
0

005647
005613
005703
005346

194
195
196
197
198
199
gg?

002204
002206
002210
002212
002214
002216
002220

205 002226

206 002230
207 002232

208 002234
209 002236
210 002240
211 002242
212 002244
213 002246
214 002250
215 002252
216 002254
217 002256
S:g 002260
220
221

222
223
224
225
226
227
228
229
Sg?
232

233
234
235
236
237
238
239
240
241

2-4

005560

002170
002172
002174
002176

202
203 002222
204 002224

19:23:55 PAGE

MFOLWRT

188
189
190
191

192 002200
193 002202

9-FEB=79

.WORD

005525

187 002166

MACRO v03.01

005503

186 002164

.WORD

.WORD
.WORD
.WORD
.WORD

000000
000000
000000

(000000

000000
000000
000000

007572
007703
010123

SEQ 0048

MREVSK

MRESKD
MFWSKO
MBADAD
M4OHDR

:
:

FWD SEEK

:
:
:
:

REV SEEK
FWD SEEK
BAD DISK ADD FOR WRITE
40 HEADER OPERATION

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

:
RESTBL:

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

010050
010141
000000
010033
010015
000000
007777
007744
007762
000000
007714

‘

O
O
O
O
O
0
O

.WORD

MNEERR

;NON-EXISTANT MEMORY ERROR

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

MOPERR
MNDRST
0
MWDERR
MHCERR
0
MSTERR
MSPERR
MWGERR
0
MDSERR

;OPERATION INCOMPLETE
:NO DRIVE STATUS AVAILABLE

.WORD
.WORD

MFLERR
MHDERR

;HEADER NOT FOUND-DATA LATE
;HEADER OR DATA ERROR

:WRITE DATA ERROR
sHEAD CURRENT ERROR
;SEEK TIMEOUT ERROR
:SPINDLE ERROR
;WRITE GATE ERROR
;DRIVE

SELECT

ERROR

PATTERN TABLE

004746

PATTBL:

.
002306
002310
002312
002314
002316
002320
002322
002324

000000
000000
000000
000000
000000
000000
000000
000000

3
SUBROUTINE CALLING STAC(K
SUBSTK: .WORD
0
;STACK
LWWD
0
.WORD
0
.WORD
0
.WORD
0
.WORD
0
LWORD
0
JWuRb
U

REV SEEK

HLMTW:
CLRBYT:
NXTHL:
GBND :
(AMSK:
DIRMSK:
HDCYL:

010075
010060

004750
005010
005050
005110
005116
005156
005160
005220
005222

FOLLOWING WRITE

002262

002264
002266
002270
002272
002274
002276
002300
002302
002304

.WORD

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

PATI

PAT?
PAT3
PAT4
PATS
PAT6
PAT7
PATS
PAT9
PAT10

1S 12 WORDS LONG

ASSEMBLY

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

ROUTINES

262 002326
263 002330
264
265
246 002332
2467 002334
268 002336
249 002340
250 002342
251 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 002576
002400
002402
002404

000000
000000

000002
000006
000011
000014
000021
000026
000033
000042
000051
000200
000377
000004
000014
000022
000030
000042
000054
000066
000104
000122
000400
000777

.WORD
.WORD

;RLOT TABLE OF
1251BL: .WORD
.WORD
.WORD

LYORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

2-5

SEQ 0049

0
0
CYLINDERS
2
6
9.

;TABLE OF DIFFERENCES
:IN TEST 25

17,
22.
27.
34.
41,
128.
255.

sRLO2 TABLE OF CYLINDERS

1251B2:

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

4
12.
18.
24,
34,
44,
54.
68.
82.
256.
511,

TABLE

CYLINDERS TO BE USED

002406
002446

T331BL:

.BLKW

002506
002507
002510
002511
002512
002513
002514
002515
002516

CYLTBL:

1BT:

.BLKW

—a
s
—
s
D
b
b

NNV
NN D
NO =P O =W O
—

USED

IN TEST

33 AND

IN THE

T0 BUILD AND

STORE

TEST.

16.
16.

.BYTE
.BYTE
.BYTE

2
7.
14.

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

52.
58.
65.
72.
77.
B84,
91.
97.
102.
108.
113.
120,
127,

.BYTE
.BYTE
.BYTE
.BYTE

—, —

TO BE

002517
002520
002521
002522
002523
002524
002525
002526
002527
002530
002531
002532

TO BE USED

20.
5
33.
38.

:TABLE OF

DEFAULT

CYLINDERS

THE

337
338
339
340

346
347
349
350

353
355

002622
002624
002626
002630
002632
002634
002636
002640
002642
002644
002646
002650
002652
002654
002656
002660
002662
002664
002666

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

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

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

000742

.WORD

e
"
"
8
8
"
&
&
&
&
8
&
®

Ll
.
.
.
o

il
il

N N NN N NN W
N

OOV
NN -

309 002545
310 002546
002547
002550
002551
002552
002553
002554
002555
002556
002557
002560
002562
002564
323 002566
002570
002572
326 002574
002576
328 002600
329 002602
330 002604
002606
002610
333 002612
002614
002616
336 002620

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

Vi
N

299 002533
300 002534
301 002535
302 002536
303 002537
304 002540
305 0025¢41
306 002542
307 002543
308 002544

VWSS NN =00 0V0000 N~
WS NN
O WN=IFNOSSFNNOVOSNNOIS-~
N
O S

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

MACRO v03.01

ROUTINES

PNOOPVNURUNURUNU
N PO N —
it e e el e o o e

ASSEMBLY

SEQ 0050

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB-79

19:23:55 PAGE

2-7

SEQ 0051

356 002670
357 002672
358 002674
359 002676
360 002700
361 002702
gg% 002704
364
365
366
367
368
369
370
371
372
g;z

002706
002710
002712

000751
000760
000766
000774
000774
000000
0000GY

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

489.
496.
502.
508.
508.
0
0

SSINDX:

000000
000000
000000

:
OPERATIONAL FLAGS
OPFLAG: .WORD
0
DONE:
.WORD
O
HADONE: .WORD
O

:SUBROUTINE STACK INDEX POINTER

;OPERATION FLAGS
;OPERATION COMPLETE FLAG
;HEAD ALIGNMENT DCNE FLAG

002714
002716
002720
002722
002724
002726

000000
000000
000C00
000000
000000
000000

ERHEAD:
MORECE:
ERRSWI:
BSFLAG:
WRTSWI:
TBLSTR:

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

0
0
O
0
0
O

:ADDRESS OF ERROR HEADER
;MORE THAN 1 COMPARE ERROR
;ERROR RETURN SWITCH
;:BAD SECTOR FLAGS
;WRITE SWITCH
; TABLE STORAGE

375 002730

000000

RLBAS:

.WORD

;RL11 BASE ADDRESS

g;g 002734

000000

RLDRV:

.WORD

;:DRIVE NUMBER UNDER TEST

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

000000
000000
000000
000000
000000
000000
000000

376 002732

000000

RLVEC:

.WORD

;RL11

VECTOR ADDRESS

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

O
O
O
O
O
O
O

;CONTROLLER REGISTER STORAGE
:BEFORE OPERATION

000000
000000
000000

L.CS:
L.BA:
L.DA:
L.MP:
T.(S:
T.BA:
T.DA:
T.MP:
HDWRD1:
HDWRD2:
_HDWRD3:

.WORD
.WORD
.WORD

0
0
0

;HEADER WORD STORAGE

23; 002762

000000

T.STAT:

.WORD

:DRIVE STATE STORAGE

393
394
395
396
ggg

002764
002766
002770
002772
002774

000000
00000C
000000
000000
000000

RESPARM:

.WORD
.WORD
.WORD
.WORD

LWORD
0
0
0
0

399 002776

000000

DRVCNT:

.WORD

;:DRIVE COUNT FOR DRIVES UNDER TEST

DESHD:
DESSEC:
TEMPO:
TEMP1:
TEMP2:
TEMP3:
TEMP4:

.WORD
.WORD
.WORD
.WORD
LWORD
_.WwORD
,WORD

0
0
0
0
0
0
0

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

400
401
402
403
404
405

406
407
408
409
410
411
412

003000
003002
003004
003006
003010
003012

003014
003016
003020
003022
003024
003026
003030
\

000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000

DIFAUG:
OLDCYL:
NEWCYL:
CURCYL:
DESDIF:
DESSGN:

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

O
O
O
O
O
0

;CONTROLLER REGISTFR STORAGE
:
AFTER OPERATION

;PARAM BLOCK FOR REASON REPORT

;DIFFERENCE AUGMENT FOR SEEK
:0LD CYLINDER
:NEW CYLINDER
: CURRENT CYLINDER
;DESIRED DIFFERENCE
;DESIRED SIGN

ASSEMBLY ROUTINES

413 003032

414
415
416
618
419
420
421

000000

MACRO v03.01

9-FEB-79 19:23:55 PAGE

TEMP5:

003034
003036
003040

000000
000000
000000

003042
003044
003046

000000
0000G)
000000
000000
000000
000000
000000
000000
000000
000000
000000
9000000
000000
000000
000000
00C.J0
000000
000000
000000
000000
000000
0000CO

OFMIDU:
OFOUT:
OFOUTU:
ORIN:
ORINU:
ORMID:
ORMIDU:
OROUT:
OROUTU:
HFIN:
HFINU:
HFOUT:
HFOUTY:
HRIN:
HRINU:
HROUT:
HROUTU:
AFMID:
AFMIDU:
ARMID:
ARMIDU:

003122
003124
003126
003130
003132

000226
001046
001750
000372
000004

EXOCYL:
EXHCYL:
EXACYL:
EXROT:
ERRVEC:

003134
003136
003140
003142
003342
003344
003346

000000
000000
000000

422 003050
423 003052
424 003054
425 003056
426 003060
427 003062
428 003064
429 003066
430 003070
431 003072
432 003074
433 003076
434 003100
435 003102
436 003104
437 003106
438 003110
439 003112
440 003114

441 003116
42% 003120

000000
000000

TEMP6:
TEMP7:
TEMP8:
;
OFIN:
OFINU:
OFMID:

.WORD

2-8

.WORD
0
.WORD
O
.WORD
0
TIMER STORAGE
.WORD
0
.WORD
O
.WORD
O

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

SEQ 0052
; TEMPORARY STORAGE

: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
;ONE CYLINDER FORWARD INNER
:
UPPER
;ONE CYLINDER FORWARD MIDDLE

.WORD
.WORD

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

0
0

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

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

.WORD
.WORD
.WORD
.WORD
.WORD

150.
550.
1000.
250.
&

SEXPECTED TIME ONE
;EXPECTED TIME 128
;EXPECTED TIME 256
;EXPECTED ROTATION
;ERROR VECTOR USED

FORWARD OUTER
REVERSE

INNER

REVERSE MIDDLE
REVERSE OUTER
FORWARD INNER

FORWARD OQUTER
REVERSE

INNER
;
REVERSE OUTER
FORWARD

;256 CYLINDER REVERSE
:
UPPER

444
445
446
447
ng

CYLINDER
CYLINDER
CYLINDER
TIME
WHEN AUTO SIZING

&%
452
453
454
455
456
457
458

459 003347
460 003350
46; 003352

463
ng 003354
46

000000
000000
000
000
000060
000000

:
MISCELLANEOUS COUNTERS
PASCNT: .WORD
0
COUNT:
.WORD
O
ERRPOINT: .WORD 0
ERRCNT: .BLKW
64.
PASNUM: .WORD
O
PSETNM: .WORD
0
LOCERR: .BYTE
0

NOERCT:
TRPFLG:
PWRFLG:

.BYTE
.WORD
.WORD

0
O
O

;PASS COUNTER (LOCAL TO A TEST)
:A COUNTER (LOCAL TO A TEST)
;ERROR POINTER
;ERROR COUNTER FOR PROGRAM
:PASS NUMBER FOR PROGRAM
:COUNTER FOR PARAMETER SET NUMBER
:LOCAL ERROR COUNTER

:INHIBIT ERROR COUNTING FLAG
:HARDWARE TRAP OCCURANCE
:POWER FAILURE OCCURANCE

000000

:
BAD SECTOR TABLES AND POINTERS
BSFVAL: .WORD
O
:BAD SECTORS FILES VALID FLAG

466 003356
ng 003552

SBSFIL:
FBSFIL:

.BLKW
.BLKW

76
76

: SOFTWARE BAD SECTOR FILE
;FACTORY BAD SECTOR FILE

469 003746
470 0043406
ya

IBUFF:
OBUFF:

.BLKW
.BLkW

200
200

: INPUT BUFFER
;OUTPUT BUFFER

IN USE

PACRO v03.01

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

PATS:

.WORD
.WORD
.WORD

133333
066666

PATE:

.WORD

12110%

005116

121105

D RO VDYWLV

rowvRoYRO
RO NV
RO D R
YUY RO
N

rowvrowYT
RO DR RO WY UDYRO RO RO WYY
vt
RO VYYD RO RO W

—_, D —_, O -

133333
066666

Rowvrhowvi
wrowvwrRowvro
W
W
N

005112
005114

oYU RDwDYWIRO

025252

rRowurRowv

177777

000003
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
000000
177777
ViYWV
ROV YOO RO WY

NN ND

177777

000000

cd ah i

DOV

NNV NI NNV

177777

000000

RV AV RV RN LV AN LV w

LN L
ot
(O AN R

005110

~ NNV

000000

NNWVINWVMOI NNV
NI~
NN
SN
SN NN
VSNV
SNINWVVWNY NN~
NN
N NNINON
NN~
VSNV WIS
NI~

PATG:

177777
177777

il il il it f=
NS WN—=O 0

507 005050
508 005052
005054
005056
005060
005062
0605064
005066
005070
005072
005074
005076
005100
005102
005104
00510e

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

506

PAT3:

500
501
502
503
504
505

000003
000000
000000
177777
177777
177777
000000
000000

498
499

005012
005014
005016
005020
005022
005024
005026
005030
005032
005034
005036
005040
005042
005044
005046

2-9

o WMV
NN NI NN
NN NO
w NN NN N NNV
NNNO

49
49?2
493
494
495
496
497

19:23:55 PAGE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

RcvrROWYROWVYRO
N
RO wRuU Do YUY
w0V

4«88 005006
(89
490 005010

9=FEB=-79
PATY:
PAT?:

wn
wn
wn

4«81
482
483
48B4
485
4,86
487

004746
004750
004752
004754
004756
004760
004762
004764
004766
004770
004772
004774
004776
005000
005002
005004

—‘—a—-c_aoo_-_‘coo_o—n.ao
~ NNWVWNWVWANNWVNNYNINO

672
6473
674
675
(74
&77
478
479
480

no NNNNNNNNNININ
NN ND

ASSEMBLY ROUTINES

SEQ 0053
;PATTERN

(ALL

ZEROS)

ASSEMBLY

ROUTINES

529 005120
530 005122"
531 005126
5§32 005126
533 005130
§34 005132
5§35 005134
536 005136
37
538
539
540
541

MACRO v03.01

9=FEB=79

19:23:55

150442
064221
132110
055044
026442
013211
1055C4
062642

JWORD
WORD
.WORD
JWORD
.WORD
“WORD
WORD
JWORD
.WORD
.WORD
JWORD
WORD.WORD
WORD
WORD

PAGE

2-10

150442
064221
132110
055044
026442
013211
105504
042642

005140
005142
005144
005146
005150

021321
110550
044264
022132
011055

g«z 005156

177777

PAT7:

.WORD

177777

045513
122645
151322
064551
132264
055132

PATB:

.WORD
JWORD
JWORD
.WORD
WORD
WORD
WORD
JWORD
JWORD
WORD
WORD
JWORD
JWORD
WORD
JWORD
JWORD

045513
122645
151322
064551
132264
055132

055132
026455
113226

5642 005152
2:2 0051564

104426
042213

SEQ 0054

021321
110550
044264
022132
011055

104426
042213

547
548
549
5§50
5§51
§52

005160
005162
005164
005166
005170
005172

553 005176
554 005176
555 005200
556 005202
557 005206
558 005206
§59 005210

026455
113226
045513
122645
151322
064551
132264

560 005212
561 005214
502 005216

055132
026455
113226

364 005220

125252

PAT9:

.WORD

125252

155555

PAT10:

.WORD

155555

6
£

§°? 005222
.

2°3 005224
6

573
574
575
576
577
578
579
580
581
582
583
584
585
584

005224
005224
005232
005243
005253
005265
005277
005311
005330
005346
005362
005376
005405
005616

587 005627
588 005437

ENDMOD
123
122
122
127
127
107
127
127
106
127
117
122
125

114
106

105
104
104
122
122
105
11
111
117
11
120
105
116

104
117

105
040
040
124
126
124
124
124
122
1264
105
123
114

040
114

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

MCYLUP:
MOUTIN:

.ASCIZ
.ASCIZ

/SEEK /
/RD DATA /
/RD HDR /
/WRT CHECK/
/WRT DATA /
/GET STAT /
/WITH DATA (MP /
/WITH HDR (MP /
/FOR 40 HDRS/
/WITH RESET /
/OPER: /
/RESULT:
/
/UNLD DRV/

/LD DRV /
/FOL O 10 CC

SEEK/

ASSEMBLY ROUTINES

MACRO v03.01

9=FEB=79

19:23:55 PAGE

2-11

SEQ 0055
589 005460
590 005503
591 005525
592 005560
593 005613
594 005647
595 005703
596 005724
597 005754
598 00600!
599 006022
600 006023
601 006040
602 006057
603 006117
604 006124
605 006131
606 006136
607 006143
608 006156
609 006171
610 006377
611 006216
612 006236
613 006271
614 006305
615 006325
616 006346
617 006363
635 006371
636 006407
637 006431
638 006453
639 006475
640 006513
641 006535
642

006542

106
106
101
101
123
123
137
103
102
124
102
104
116
104
122
122
122
122
117
117
127
m
116
116
103
105
126
125
040
117
111
m
11
M
1M1
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
112
112
0640
0640
040
116
106
040
123
126
040
126
103
102
106
115
040
040
122
126
040
040
124
122
114
130
105
126
103
103
103
116
103
105

MINOUT: _ASCIZ
MFOLWRT:
MREVSK: .ASCIZ
MFWDSK: .ASCIZ
MFWSKO: .ASCIZ
MRESKO: .ASCIZ
MBADAD: .ASCIZ
MBADSF: .ASCIZ
MFMTER: .ASCIZ
MTMBS:
.ASCIZ
BASADD: .ASCIZ
DRVNAM: _ASCIZ
DRVNAV: .ASCIZ
NOPWR:
,ASCIZ
CSNAM:
_ASCIZ
BANAM:
_ASCIZ
DANAM:
_ASCIZ
MPNAM:
_ASCIZ
LAB1:
LASCIZ
LABZ2:
.ASCIZ
MWORD:
.ASCIZ
MT0SLOW:
MDRRES: .ASCIZ
MNOINT: .ASCIZ
MCONHNG:
MNOCLR: .ASCIZ
VCNRST: ,ASCIZ
UNXERR: .ASCIZ
TSTLAB: .ASCIZ
P2T03E: .ASCIZ
P2TO4E: .ASCIZ
P2TO05E: .ASCIZ
P2TO6E: .ASCIZ
P2TO7E: .ASCIZ
P2T08E: .ASCIZ
P2T09E: .ASC1Z
P2TI10E:

.ASCIZ

/FOL 255 1O CC SEEK/
LASCIZ
/FOL WRT (NO SEEK)/
/ADJ CYL WRTTN AFTER REV SK/
/ADJ CYL WRTTIN AFTER FWD SK/
/SK FWD,WRT = SK REV,OVERWRT/
/SK REV,WRT = SK FWD,OVERWRT/
/ON BAD SEC FILES/
/CAN'T GET BAD SEC FILES/
/BAD SEC FILE FMT ERR/
/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 /
LASCIZ
/INTRPT TO LATE/
/NO DRV RESPONSE/
/NO INTRPT ON CMND COMPLETE/
LASCIZ
/CNTLR HUNG /
/ERR DID NOT CLR/
/vOL CHK NOT RSET/
/UNXPCTED ERR/
/ TEST/
/0UT GRD BAND /
/INC SEEK FWD HD 0/
/INC SEEK REV HD 0/
/INC SEEK FWD HD 1/
/INN GRD BAND /
/INC SEEK REV HD 1/
/SEEK/

643
644
645
646
647
6686
649
650
651
652
653
654
655

006557
006574
006610
006626
006647
006672
006713
006745
006772
007002
007016
007040
007064

122
123
102
127
123
127
127
101
117
123
123
050
101

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

126
105
123
126
111
126
126
112
105
105
111
116
120

P2T11E:
P2T12E:
P2T13E:
P2T14E:
P2T15€:
P2T16E:
P2T17€:
P2T18BE:
P2T19E:
SKTMES:
SRTMES:
VALDES:
MAPROX:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASC17
.ASC!Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ

/REV 0SC SEEK/
/SEEK TIMING/
/BASIC RD DATA/
B&WRT/RD DATA (P1)R
/SPINDLE ROT TIMING/
BWRT/RD DATA (P2)R
/WRT LCK ERR AND DATA PROT/
/ADJ CYL INTERFERENCE/
/OVERWRT/
/SEEK TIMES /
/SPINDLE ROT TIME /
/(CIN 100'S OF U=SEC()/
/APPROX /

657 007102
658 07111
659 007117

115
117
105

1M
125
130

104
1264
120

LABMID:
LABOUT:
LABEXP:

,ASCI1Z
,ASCI1Z
,ASCIZ

/MIDDLE/
/OUTER/
/EXPECTED/

127

116

1064

116

LABIN:

LASCIZ

/FWD OSC

SEEK/

/INNER/

|SR—

656 007C7¢4

106

ASSEMBLY

ROUTINES

007130

2 007142
3 007154

& 007170
5 007204

6
8
26
27

007220
007234
007273
007312

30
31
32
33
34
35
36
37
38
39

MACRO v03.G1

061

040

115
119
115
170
122

113
101
101
104
105

061
11§

040
m

007341
007356
007364
007371
007375
007402
007407
007415
007430
007453

117
117
125
123
104
123
110
123
103
106
040
122
104

116
116
116
105
m
107
104
105
13
122
102
117
122

007561
007572
007604
007614
007625
007641

104
103
110
104
110
104

122
117
104
101
104
101

010123
010134
010141
010164
01023%1
010272
010308
010346

116
103
i03
125
100
127
040
040

055
13
101
116
101
122
117
105

81 010361

IRB

28 007316
29 007326

40 007464
a; 007540

102
124

101
117

9=FEB=79

19:23:55

103

LABOCF:

1064
130

LABHCR:
LABA(F:

103
106

.ASCIZ

PAGE

CYL

SEQ 0056
FwD/

LABOCR:
LABHCF:

.ASCIZ
.ASCIZ

/1 CYL REv/
/MID CYL FwD/

LABACR:
HDMOVF:
OPR12:
OPR1A:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ

/MAX CYL REv/
/HDS FAI'ED TO MGVE
/RESET WRI LCk /
/ON /

106
126

OPROO4:
DIFWD:
SGNWD:
HDWD:
SECWD:
CyLwD:
FRMWD:
BYPSNM:
SEQMES:
STAMES:

BSNSTR:
TCERR:

.ASCIZ
/SET WRT LCK |
.ASCIZ
/DIFF /
.ASCIZ
/SGN /
LASCIZ
/WD /
L.ASCIZ
/SEC /
LASCIZ
/CyL /
_ASCIZ
/FROM /
_ASCIZ
7/ BYPASSED /
.ASCIZ /ROUTINE TRACE SEQ:/
.ASCIZ
/DRv STA1/

126
116
122
126
122
124

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

MNEERR:
MCyLOC:
MNDRST:
MUNDEF:
MRLFAL:
MWRTAB:
MEXERS:
MERRS:

RESULT NAMES
.ASCIZ
/DRv RDY /
.ASCIZ
/CONT ERR /
.ASCIZ
/KDR CRC/
.ASCIZ
/DATA CRC/
.ASCIZ
/HDR NOT END/
.ASCIZ
/DATA LATE/
.ASCIZ
BRHDR NOT FND/HDR CRC/OPIR
.ASCIZ
/DRV ERR /
.ASCIZ
/DRv SEL ERR /
.ASCIZ
/DRvV STATE /
.ASCIZ
/SPIN TIMEOUT /
.ASCIZ
/WRT GAT ERR /
.ASCIZ
/SEEK TIMEOUT /
.ASCIZ
/HEAD CUR ERR /
.ASCIZ
/WRT DAT ERR /
,ASCIZ
/OPR=INC/
.ASCIZ
BRHDR/DAT ERR &
,ASCIZ
BRHDR NOT FND/DAT LATE B
.ASCIZ
/N=X=MEM /
.ASCIZ
/7CwL ¢/
.ASCIZ
/CAN'T GET DRV STAT/
.ASCIZ
/UNKN DRV STATE=NO RDY,NO ERR,HDS OUT/
.ASCIZ
/FAIL TO RELD HDS AFTER ERR CLEAR/
,ASCIZ
/WRT ABORTED/
.ASCIZ
/ OVER ERR LIMIT = UNIT DROPPED /
.ASCIZ
/ ERROR/

RESULT

RESE4:

LASC12

130
123
123
040

040
106
126
106
116
040
103
114
117
131
125
126

OPRIB:
UNDTST:

.ASCIZ
_ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
LASCIZ

/MID CYL REvV/
/MAX CYL fWD/

IN 10 TRIES/

/ON Dk, /
/UNDER TE5T/

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

=
STRD.

ALL

SEC

ASSUMED OK./

43
44
45
46
47
48
49
50
51
60
61
62
£3
64
65
66
67
68
69
70
71
72
73
74
7%
76
77

007653
007703
007714
00773%1
007744
007762
007777
010015
010033
010050
010060
010075

;g 010355

B2 010%5

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

207

040

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

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

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

377

BELL:

123%

040

123

130
14
116
113
111
1246
126
122

102

RESE3:

JASCIZ

LASCIZ

<207><377><377>

SETTINGS

/1S ¢
/

SB /

ASSEMBLY

ROUTINES

MACRO v03.01

9=FEB=79

19:23:55 PAGE

3=t

SEQ 0057
B¢
BS
86
B7
B8
B9
93

94
95
96
3;

010372
010377
010404
010414
010424
010434

040
040
123
123
123
061

BE |
117
124
1264
124
123

116
106
101
101
101
126

:
RESULT CONDITIONS
RESES:
.ASCIZ
7/ IN/
RESEG6:
ASCIZ
/ OF /
STATEZ2:
.ASCIZ
/STATE 2/
STATE3:
.ASCIZ
/STATE 3/
STATES:
.ASC1Z
/STATE 5/
CI10MS:
ASCIZ
/1ST 3 mS/
C500MS:
CCYLUP:
CAFDT:
(SSEC:

.ASCIZ
.ASCIZ
ASCIZ
ASCIZ

/500mMS/
/CYCLE up/
/DATA XFR/
/5 SEC/

010445
010453
010464
010475

065
103
104
065

069
13
101
040

060
103
1264
123

99 010503
100 010532
101 010554
102 010575
103 010602
104 010611
105 010614
106 010617
107 010630
108 010650
109 010712
110 010762
111 011014
112 011021
113 011027
114 011035
115 011101
116 011133
117 011167
118 011200
119 011222
120 011254
121 011311
122 01134}

045
045
045
045
045
045
045
045
045
045
045
045
045

116
116
116
124
116
124
116
116
116
116
116
116
116
124
124
116
116
116
116
123
116
124
124
124

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

FMIOP1:
FMTOP2:
FMTOP3:
FMT1:
FMT1.1:
FMT2:
FMT3:
FMT4:
FMTS:
FMT6:
FMT7:
FMI18:
FMT19:

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

/ANXTANXTXTZ06%SATX01AN/
/ANXTXO1XS1%TZ012%N/
/ANXTXOIXSIZTRTAN/
/%1317
/ANXTX1/
/%17
/%N/
/ANRTRTAN/
/ANXTX06%S1%1%01/
ZANRSTIRTRASARTASARTASLRTRSLRTRS2RT/
/ANZTRO6XS2%06%S2%06%XS2%X06%S3%03%XS2%01
AN/
/ANZTRO6%XS2%06%S2%06%52%06/
/7%NRT/

045
045
045
045
061
045
045
045
045

FMT13:
FMT14:
FMT15:
FMT16:
FMT17:

FMT18:
FMTI19:
FMT20:
FMT21:

ASCIZ
_ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ
ASCIZ
ASCIZ

/ENXSTIRTXO3XSIATRO3%S1RTX01%S1%T%01/
/ANXTRTAD3XS1XTZ06%S1%7206/
/ENXSTIXTXD3XSIXAT%06%S1%7%06/
/ANZS5%06/
/%STOXTANXST1X06%N/

/ANXSTISXTRSSRATASLXTASSATAN/
/RTXSAXDOXSLADOASLADORSLADOEN/
/XTXS2XD6XRS14XDAERSLRDOEAN/
/%TXS12%D6%S14%D6XN/

045
045

045
045
045
045
045
045
045
045
045

0645
045

FMT11:
FMT12:

_ASCIZ
LASCIZ

/%1%01/
/%T%03/

123 011364

045

FMT22:

ASCIZ

/XNXSTIXTXO3XS1XTX01%S1%7%02/

1264 011420

045

124

045

FMT23:

ASCIZ

/%TXTXTXOV%N/

126
127
128
126

045
045
045
045

116
11¢
116
116

045
045
045
0645

FMT25:
FMT26:
FMT27:
FMT28:

ASCIZ
ASCIZ
LASCIZ
LASCIZ

/ANXD2%T/
/XANXSIXTADAXTXTXD3AN/
/%NXTXD3XTZD3AN/
/ANXTRIXT/

136 011526
137
133

BGNMOD
3
2

GLBERR
ERR1

140

ERRZ

R3 POINTS TO RESULT

2
:

ERR3

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

ERR4

R3 POINTS

125 011434

011441
011451
011475
011514

:%2 011525

139

141

14?2

143
144

145
14¢

147

045

116

045

FM124:

ENDMOD

ASCIZ

/%NRT/

R3 POINTS TO RESULT MESSAGE
RESULT: (RY)

RESULT:

(R3)

IS 1

NAME

SB O

70 RESULT

NAME

R4 POINTS TC RESULT CONDITIONS

MACRO v03.01

ROUTINES

9-FEB=79 19:23:55 PAGE

3=?

RESULT:

ERRS
NN

tRR6

(R3)

SB 0

ERR7

ERRB

R3 POINTS 70 RESULT NAME

RESULT ROUTINE
REPORTS ALL

DETERMINES WHICH ERROR(S)

CYLINDER

(HDWRD1)

POINTS

TO VALUE

1612
201 011614
202 011620

o
o

oSO SrNONVE RO D
ors

VNN
NN NN N Y NN
NNNOCOOO
VWS SN
(o SV RN ]
OoO~N~N

—
—

il el
il
i
il
il

il —® o
—
—
—

il
il

. —
—.

it
il

—
]
e
e
eI

[=lelvleleleelelelelelelolelelele
oo Lol

602
606

001002

003347
171600

023422
000001

014750

POINTS

012721
005021

ENDMSG

023422
000003
600001

BGNMSG

(R&=VALUE

JSR

PC,RPTRES
PC,RPTREM
(SP)+ R}
PC,CKERLM

EMT

($MSG

JSR

MOV
MOV
MOV

(LR

(RS=VALUE

?2)

TO BAD WORD

(RS)

;REPORT OPERATION
:SET PARAM NUMBER

R3,(R1)+

MOV

PC,RPTOP
#1,(R1)+

MOV
MOV

ERR?
INC

(NEWCYL)

;TEST IF ERROR
;YES = SKIP

dERRPCINT
R1,=(SP)

MOV

NOERCT
1%

MOV

JSR
JSR

L10000:

171340

BNE
INC

JSR

024210
024416

104023

005277
010146
004737
(012721
010321

1%:

1S1B

(R3)

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

ERR1

COMPARE ERROR REPORT
R3 CONTAINS THE BAD WORD NUMBER

BGNMSG

AND

UTILITY RESULT REPORT
R3 POINTS TO RESULT NAME

RS POINTS TO VALUE 2
RESULT: (R3=NAME) IS

105737

SET

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

ERR10

ARE

SB 0

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

RESULT:

ERR9

(R&)

R4 PCINTS TO RESULT CONDITIONS
RESULT: (R3) IS 0 SB 1 (R&)

RESULT: "ERROR" 1S 1

~NO

il ol ——
—

152

SEQ 0058

9ERRPOINT
R1,=(SP)
PC,RPTOP,

#3,(R1)¢
R3,(R1)
#1,(R1)e
(R1)e

COUNTING

INWIBITED

;ELSE BUMP ERROR COUNT
;STORE R
: INSERT MESSAGE

ADDRESS POINTER

;REPORT RESULTS
;REPORT REMAINDER
;RESTORE R!
;60 (HECK JF ERROR

COUNT

ExXCEEDED

;BUMP ERROR COUNT
;STORE R1
:REPORT

OPERATION

;SET PARAM NUMBER
; INSERT NAME ADD POINTER
(SET 1S vALUE
;SET SB vALUE
|PR

RSSEMBLY

ASSEMBLY

ROUTINES

203 011622

204 011626

205 011632
206 01163
207 011640
208
209
210
211
212
213
216
215
216
217
218
219
220
221
222
22%
224
225
226
227
228
229
230
231
232
233
23

011640
011640

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

011710
011710
011714
011716
011722
011726
011730
011734
01173%6
011740
011744
011750

235 011752

2% 011756
011756
011756
237
238 011760
236 011760
260 011764
261 011766

262
26%
244
245
246
247

248
249
250
251

011772
011776
012000
012002
012000
012010

012014
012020
012022
012026
012026
012026

004737
004737
012601

004737

MACRO v03.01

024210
026416
014750

171272

10602%

JSR

EMl

($MSG

BGNMSG

ERR3
INC

MOV

JSR

MOV
MOv

aERRPOINT
R1,=(S5P)
PC,RPTOP
#3,(R1)+

R3,(R1)+

000001
024210
024416

MOV

014750

JSR

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

EMT

($MSG

CLR

JSR
JSR

MOV

ENDMSG

L10002:

171224

BGNMSG

JSR

MOv

MOV
Mov

000001

(LR

MOV

024210
024416

014750

JSR
JSR

ENDMSG

L10003:

171154

ERRG
INC

MOV

023422
000004

104023

005277
010146
004737
012721
010321
005021
012721
010411
004737
004737
012601
004737

ENDMSG

3-3

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

MOv

023622
000003

104023

005277
010146
004737
012721
010321
012721
005021
010411
004737
004737
01260!
004737

JSR
JSR

L10001:

10403

005277
010146
004737
012721
010321
005021
012721
004737
004737
012601
004737

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

BGNMSG

($MSG

ERRS
INC

000001

MOV
MOV

(LR

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

R3,(R1)+
(R1)¢

#1,(R1)+
R4, (RY)

JSR
JSR

PC,RPTRES
PC,RPTREM

JSR

PC,CKERLM

EMT

($MSG

MOv

L10004:

PC,RPTRES

EMT

000004

ENDMSG

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

JSR

MOV
MOv

014750

R3,(R1)+

MOv

JSR

024210
024416

PC,RPTOP
¥4, (R1)+

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

MOV

023422

aERRPOINT
R1,=(SP)

(SP)+,R1

SEQ 0059
;REPORT
;REPORT

RESULTS
REMAINDER

;RESTORE R1
;G0 CHECK JF

ERROR COUNT

EXCEEDED

;BUMP ERROR COUNT

;STORE R
;REPORT OPERATION
;SET

PARAM NUMBER

s INSERT NAME ADD POINTER
SET IS VALUE
;SET SB VALUE
;REPORT
;REPORT

RESULTS
REMAINDER

;RESTORE R1
;G0 CHECK

ERRCR COUNT EXCEEDED

;BUMP ERROR COUNT
:STORE R1

:REPORT

OPERATION

(SET IS
*SET SB
:INSERT
:REPORT
:REPORT

VALUE
VALUE
ADD OF CONDITION POINTER
RESULTS
REMAINDER

:SET PARAM NUMBER
:INSERT NAME ADD POINTER

:RESTORE R
160 CHECK IF ERROR COUNT EXCEEDED

;:BUMP ERROR COUNT

:STORE R
;REPORT

OPERATION

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

; INSERT ADD OF CONDITION PGINTER
;REPORT RESULTS
;REPORT

;RESTORE

REMAINDER-

;60 (HECK

JF ERROR COUNT EXCEEDED

——

ASSEMBLY

ROUTINES

MACRO

v03.01

9=FEB=79

19:23:55

PAGE

3=4

5
SEQ 0060

252
25% 012030
2564 012030
255 012034
256 012036
257 012042
258 012044
259 012046
260 012050
261 012052
262 012056
263 012062
264 012070
265 012074
266 012100
267 012104
268 012110
269 012112
270 012120
271 012124

272 012130

273 012134
012134
012140
2764 012142
275 012150

105737
001002
005277
010146
01034%
010446
010546
004737
012721
012761
005037
013703
042703
022703
001432
012762
012703
053703

010362

01270C
104027
032762
001003

276 012152
277 012156
278 012160
279 012164
280 012170
281 012174
282 012176

012703
000413
016203
010337
113703
000402
113703

284 012206
285 012212

283 012202

286 012216

287
288
289
290
291
29¢
293

012220
012224
012226
012232
012234
012240
012242

294 012246

012246
012252
012256
012260
012264
012270
012272

295
296
297
298

012276
012300
012302
012306
012310

BGNMSG

003347
;
171076

023422
000003
000001
003026
002746
177761
000004
000003
000004
002734

17%:

000002

i
000004

000000

000200

000000

001000

9% :

000006
003026
003027

10%:

002755

1%:

Ci3704
042704

002746
001777

2%:

032703
001442
032703
001026
032703
001020
012704

002200

012746
010446
012746
012746
012746
010600
104014

010346

042703
050403

062706
000430
0127064
000757
032703

177442

13%:

010050

WAITUS
MOV
EMT
BIT
BNE

#10.
;WAIT FOR CONTROLLER READY
#10.,.R0
(& I V]
#CRDYMSK,RLCS(R2)
:TEST 1F READY
10%
:YES = SKIP

3
100%:

005405

011514
000004

000012
007604

105%:

004000

107%:

NOERCT
17%
oERRPOINT
R1,=-(SP)
R3,-(SP)
R4 ,=(SP)

#B1T19,R3
2%
RLMP(R2),R3
R3,TEMP3
TEMP3+1,R3
13%
T.MP+1,R3

MOV
BIC

T.CS,.R4
#1777 ,R4

BIC

Bl
BEQ
BIT
BNE
BIT
BNE
MOV

PRINTB

MOV
MOV
MOV
MOV
MOV
MOV
EMT

ADD
BR
MOV
BR
Bl

:TEST IF ERROR COUNTING INMIBITED
;YES = SKIP
;ELSE BUMP ERROR COUNT
;STORE R1
:STORE R3
;STORE R4

R3,RLCS(R2)

MOV
BR
MOV
MOV
MOVB
BR
MOVB-

BIS

010000
004000

RS,=(SP)
;STORE RS
PC.RPTOP
;REPORT OPERATION
#3,(R1)+
:SET PARAM NUMBER
#1,2(R1)
s INSERT IS VALUE
TEMP3
;CLEAR FOR STATUS STORAGE
1.CS,R3
;GET T.CS
#177761,R3
sAND CLEAR ALL BUT FUNCTION
¥4 ,R3
;CHECK IF IT WAS GET STATUS
1%
sYES - STATUS IS IN T.MP, SKIP
#GETSTAT,RLDA(R2) ;ELSE DO GET STATUS
#4,R3
RLDRV,R3

MCvV

000012

ERR6
1STB
BNE
INC
MOV
MOV
MOV
MOV
JSR
MOV
MOV
CLR
MOV
BIC
(MP
BEQ
MOV
MOV
BIS

#1774642 ,R3
R4 ,R3

#OPIERR,R3
115%
#HNFERR,R3
107%
#HCRCERR,R3
105%
#MOPERR ,R&

JELSE SET NO DRIVE STATUS BIT
s IN MESSAGE WORD AND SKIP
;STORE STATUS FOR REPORT

sGET ERROR BITS IN PROPER POSITION
sGET ERROR BITS FROM MP REG

;CLEAR UNUSED BITS

;GET ERROR BITS FROM (S REG
;CLEAR UNUSED BITS

;MAKE

ONE WORD OF

#12,5P
120%
#MHCRC,RG
100%
#HCRCERR,R?

ERRORS

;TEST 1F OP1 SET
;NO = SKIP
sTEST IF HDR NOT FOUND ERROR
YES = SKIP
;TEST IF HDR CRC ERR
;YES = SKIP
;SET OP] ALONE MESSAGE

WFMT28,#MRSLT,
R4 ,#MERRS

#MERRS,=(SP)
R4 ,=-(SP)
#MRSLT,=(SP)
#EMT28,=-(SP)
#4,-(SP)
SP,RO
($PNTB

POSSIBLE

;REPORT ERROR

:SKIP
sHDR CRC MESSAGE

sTEST 1F WHCRC WITH MDR NOT END

——

ASSEMBLY

ROUTINES

299 012314
300 012316
301 012322
302 012324
303 012330
3064 012332
305 012336
306 012340
307 012344
308 012346
309 012352
310 012354

311
312
313
314
315
316
317
318
319
320
321
322

012360
012362
012366
012370
012372
012374
012376
012400
012402
012404
012406
012412

323 012416
324 012420
325 012424
326 012430
327 012432
012432
0126436

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

MACRO v03.01

007625
007653

109%:

004000

115%:

012564

023727
003021
011546
012746

011446
012746
010346
012746

012746

:SET COMPARE LENGTH

(R5),(R&4)

: CHECK WORD

BEQ

19%

6%:

:
6%:

002222
024210
024416
003026

001427

339 012532
340 012540
341 012542
012542
01254
012550
012552
01255¢
012560

#128.,.R1

#,R3
#OBUFF RS
#1BUFF R4

120%:
3%:

338 012530

021514

;YES = SKIP
;MESSAGE HEADER NOT FOUND

MOv
MOV
MOV

100000

012703
012705
012704

337 012526

109%
¥MHNF ,RG
100%
#MHFECRC R4
100%
#DCKERR,R3
118%
#MDCRC,R4
100%
#DLTERR,R3
120%
#MDLT ,R&
100%
#BIT15,RS
R4
R5,R3
6%
(RG)+

000001
004346
003746

118%:

007641

336 012512
335 012516
336 012522

012701

SEQ 0061

002716

010000

012442
012446
012452
012454
012456
012462
012470
012472
012500
012502

333 012506

BNE
MOV
BR
MOV
BR
BI
BEQ
MOV
B8R
BIT
BEQ
MOV

3-5

BEQ
BIT
BNE
(LR

007614

003026
007453
011200
000003

329
330
331
332

19:23:55 PAGE

sHNF AND HCRC MESSAGE
;SKIP
;TEST IF DATA CHECK SET, NOT OPI
:NO = SKIP
;SET MESSAGE DATA (HECK
:SKIP
;JEST IF DATA LATE ERROR
:NO - SKIP
;SET MESSAGE DATA LATE
:SKIP
:SET BIT POINTER FOR TEST
;CLEAR R4 FOR TABLE COUNT
;TEST IF BIT IS SET
;:YES = SKIP 7O REPORT
;ELSE BUMP TABLE POINTER
;:CLEAR CARRY
RS
;SHIFT BIT POINTER TO NEXT BIT
3%
.
:LOOP IF NOT 0
7%
;ELSE REPORT REMAINDER
RESTBL(R4),(R1) ;INSERT NAME ADDRESS
PC,RPTRES
;REPORT RESULTS
4%
;GET NEXT BIT
PC,RPTKEM
;REPORT REMAINDER
TEMP3
;TEST IF ANY NEW STATUS
15%
:NO_ - SKIP
WFMT17 ,#STAMES,TEMP3
TEMP3,=(SP)
#STAMES ,-(SP)
NEMT17,-(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,SP
#DCKERR,T.CS
;TEST IF DATA CHECK ERROR
25%
:NO = SKIP
#OPIERR,T.(S
;TEST IF OP] SET
25%
sVES = SKIP
MORECE
;CLEAR COMPARE ERROR COUNT

013746
012746
012746
012746
010600
104014
062706
032737
001453
032737
001047
005037

328

9=-FEB=79

7%:

000010
004000

002746

002000

002746

15%:

000200

002716

010365

010361
006171

011133

BR
MOV
(LR
BIT
BNE
187
Lc
ROR
BNE
BR
MOv
JSR

BR
JSR
18T
BEQ
PRINTB
MOV
MOv

MOV
MoV
MOv
EMT
ADD
BIT

MOv

18%:
000012

(MP

CMP
BGT
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV

:SET WORD COUNT
;SET GOOD WORD POINTER
;SET TEST WORD POINTER
:GO0D - SKIP

MORECE ,#10.
;TEST IF COMPARE LIMIT REACHED
20%
;YES = SKIP
#FMT15,#MWORD
,R3, #RESE3, (R4) ,#RESEL, (RS)
(RS),=(SP)
WRESESL,-(SP)
(R4) ,=(SP)
#RESE3,~(SP)
R3,=(SP)
#MWORD
, = (SP)
#EMTLS,=(SP)

ASSEMBLY

342
343
344
345
346
347
348
349
350

ROUTINES

012604
012610
012612
012614
012616
012620
012624
012626
012632
012632
012634
012640
012644
012650
012654
012660
012662

012746
010600
104014
062706
005237
022524
005263

012601
004737

D el
el
s
e

VP
O
&» Ll
o oo

e
e

ADD
INC

#20,SP
MGRE CE

000200

1S1
BEQ
MOV

MORE CE
218
#128. R

010377
002716
007540
011475
000005

MOv
MOV
MOV
MOV
MOV

#RESE6,-(SP)
MORECE ,~-(SP)
#TCERR,=(SP)
WEMT27,-(SP)
#5,-(SP)

MOv

(SP)+,RS

000020
002716

208:

002716

25%:

198:

002

(Mp
INC
DE(
BNE

PRINTB
MOv

27%:

MOV
EMT
ADD

MOv

MOV

014750

MOV

ENDMSG

L10005:

170226

BGNMSG

023422
000003
00773
002762

014750

ENDMSG

L10006:

104023

170156

BGNMSG

000003
010134
002754
000007

INC
MOV

SP,RO
($PNTB
#14,SP

(SP)+ R4

dERRPOINT
R1,-(SP)

JSR
JSR
MOV
JSR

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

MOV
MOV
MOV
MOV
(e

ANY

COMPARE

ERRORS

;RESTORE

RS,

;60 CHECK

(SP)+,R3

(SP)+
k1

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

ERR8
INC

;SET COMPARE LENGTH

JSR
MOV
MOv
MOv

EMT

;TEST

WFMT127 ,#TCERR,MORECE ,#RESEG6,R1
R1,-(5P)

($MSG

ERR7

;:BUMP ERROR COUNTER
;BUMP POINTERS
:BUMP COUNTER
;DEC LENGTH COUNT
;LOOP IF NOT DONE
:NO - SKIP

EMT

Mov
JSR

3%:

(RS)+, (R&)+
RS
R
18%

PC,CKERLM

Mov

023422

SP,RO
CSPNTB

JSR

MOV

024210
024416

d
d
e
e

SEQ 0062

#7,-(SP)

w0y
EMT

—

Qo
= OOVW®WNO VS WY -

005277
010146
0046737
012721
012721
013721
010311
004737
004737
012601
004737

3-6

MOV

104023

[=leleleleolalelelelelleleleleleleleleleleleleolalele B elelelel-]

OWNINNNNNNNN

N NN N N NN N N NN

000007

000014

351 G12670

356

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

R3,(R1)

ERROR COUNT EXCEEDED

:BUMP ERROR COUNT

:STORE R
:REPORT

OPERATION

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

;INSERT SB VALUE

:REPORT RESULTS
;REPORT REMAINDER
;RESTORE R
;60 CHECK IF ERROR COUNT EXCEEDED

($MSG
dERRPOINT
R1,-(SP)
R3,=-(5P)

PC,RPTOP
#3,(R1)+
#MCYLOC,(R1)¢+
HDWRD1, (R1)
#7,R3

:BUMP ERROR COUNT

: STORE R}
;STORE R3

;REPORT OPERATION

:SET PARAM NUMBER
: INSERT NAME ADD POINTER
:GET HEADER WORD
:SET SHIFT COUNT

ASSEMBLY ROUTINES

MACRO V03.01

9=FEB=79 19:23:55 PAGE

3-7

SEQ 0063

382 013014
383 013016
384 013020
385 013022
386 013026
387 013030
388 013034
389 013040
390 013042
391 01304&
392 013050
013050
go5 013050
394
395
396
397
398
399

400
401
402
403
404
405
406

013052
013052
013056
013060
013064
013070

006011
005303
001374
005721
013711
004737
004737
012603
012601
004737

014750

104023

005277
010146
004737
012721

010321

013072
013074
013076
013102
013106
013110
013114

010421
010521
004737
004737
012601
004737

013114
407 013116
408 013116

104023

013114

003004
024210
024416

170062
,
023422

013124
013126
013132
013136

024210
024416
014750

013136
013140
013144
013150
013154
013160
013164
013170
013172
013174

005046
153716
012746
013746
012746
012746
012746
010600
104014
062706

013200

011546

414 013200

BGNMSG

170006

023422

002735
006033
002730
006022
010630
000005
000014

013202

012746

010365

013210
013214
013216
013222
013226
013232
013236

012746
010346
012746
012746
012746
012746
010600

010361

013206

011446

ENDMSG

L10010:

010146

001051
005277
004737

BGNMSG

000003

409 013120 005737 002716
410
411
412
413

ENDMSG
L10007:

006171
005405
011101
000010

ROR
DEC
BNE
1S1
MOV
JSR
JSR
MOV
MOV
JSR

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

EMT

CSMSG

ERR9
INC
MOV
JSR
MOV
MOV

:BUMP ERROR COUNT
:STORE R1
:REPORT OPERATION

R3.(R1)+

:INSERT NAME ADD POINTER

#3.(R1)+

Ré.(R1)+
RS.(R1)+
PC.RPTRES
PC.RPTREM
(SP)+,R1
PC,CKERLM

EMT
ERR10
MOV

CSMSG
R1,-(SP)

1S1

MORE CE

(LR
BISB
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

=(SP)
RLDRV*1,(SP)
#DRVNAM,=(SP)
RLBAS,=(SP)
#BASADD,-(SP)
WEMTS,=-(SP)
#5,-(SP)
SP.RO
C$PNTB
#14,SP

PRINTB

MOV

:SET PARAM NUMBER

:SET IS VALUE
:SET SB VALUE
*REPORT RESULTS
*REPORT REMAINDER
:RESTORE R1
G0 CHECK 1F ERROR LOUNT EXCEEDED

:STORE R1

STEST IF 2ND BAD LINE

38
YES = SKIP
QERRPOINT
:BUMP ERROR COUNT
PC,RPTOP
:REPORT OPERATION
#FMTS,#BASADD,RLBAS, #DRVNAM,<B,RLDRV+1>

;REPORT

#FMT14, #MRSLT,#MWORD,R3,#RESE3,
(R4) ,#RESEL, (RS)

(R5) ,={SP)

MOV

WRESE4,=(SP)

MOV
MOV
MOV
MOV
MOV
Moy
MOV

WRESE3,=(SP)
R3,=-(SP)
#MWORD,=(SP)
WMRSLT.=(SP)
WFMTT4.=(SP)
#10,=($P)
SP,RO

MOV

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

@ERRPOINT
R1,=(SP)
PC.RPTOP

MOV
MOV
JSR
JSR
MOV
JSR

BNE
INC
JSR
PRINTB

:ALIGN CHAR FOR PRINTING
:
AS 1S VALUE

(R4) ,=(SP)

ASSEMBLY ROUTINES

013240
013242

415 013246
416 013250

013250
013252
013256
013260
013264
013266
013272

417
418
619
420

013276
013302
013304
013306

013312
013316
013320
013324
013324
013324
421 013326
422
423
424 013326
425 013326
426
427
428
429
430
431
432

013326

013330
013332
013334
013336
013340
013342
013344

104014
062706
000421
)

011546
012746
011446
012746
010346
012746
012746

012746
010600
104014
062706

005237
012601
004737

104023

000006

174400
000160
000240
000001
000000
000001

013344

MACRO v03.01

9-FEB-79

19:23:55 PAGE

EMT
ADD

000022
4
010365

3%:

010361
006171
011133
000007
000020
002716
01475C

4%:
ENDMSG
L10011:
ENDMOD

BGNMOD
BGNHW

ENDHW

CSPNTB
#22,SP

48
WFMT15,#MWORD ,R3,#RESE3, (RG) ,#RESESL, (RS5)

MOV
MOV
EMT
ADD

#7,-(SP)
SP.RO
CSPNTB
#20,5P

MOV
MOV
MOV
MOV
MOV
MOV
MOV

(RS),-(SP)
WRESE4,-(SP)
(R4), -(SP)
WRESE3,=-(SP)
R3,-(5P)
#MWORD ,~(SP)
NEMT1S5.-(SP)

INC
MOV

JSR

MORECE
(SP)+,R1
PC,CKERLM

EMT

CSMSG

JWORD

.WORD
_WORD
.WORD
"WORD
"WORD
.WORD

L10012-L$HW/2

174400
160
240
1
0
1

SPTCODE

MISWIW:

.WORD

000006

000000

WORD

L10013-L$SW/2
0

461

013352
013354
013356
013360
013362

013362

452 013362

sCSR BASE ADDRESS DEFAULT
VECTOR DEFAULT
sPRIORITY DEFAULT
:TYPE OF DRIVE
:DRIVE NUMBER DEFAULT
sRL1T CONTROLLER

L10012:

BGNMOD
BGNSW

4.7
448
449
450
451

;s INC COMPARE ERROR COUNT
sRESTORE RI1
;GO CHECK IF ERROR COUNT EXCEEDED

HPTCODE

435 013344
43¢ 013344

442
443
Py
445
446 013350

;REPORT DATA

.EVEN

ENDMOD

013344

SEQ 0064

BR
PRINTB

433 01334

437 013346
438
439
440

3-8

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

000000
000377
000000
000024
000012

LOLIMW:
WILIMW:
HEADW:
ERLIMW:
DCLIMW:
ENDSW

L10013:
ENDMOD

.WORD
.WORD
.WORD
.WORD

.WORD

0
255.
O
20.

10,

:BIT
:BIT
:BIT
“BIT

4 = DROP DRIVE

12
13
14
15

=
=
=
=

NO RESPUNSE

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

SERROR LIMIT
:COMPARE ERROR LIMIT

ASSEMBLY ROUTINES

465 013426

013426
013432

466 013434
013434
467 013436
013436

468 013440
469
470 013446
471 013452

472 013460

473 013462
474 013470
475
476

012700
104041

000340

103403

042737

100014,

005037

002704

012700

000034

104050

103005

013737
000137

002012
014102

012700
104050

000040

013346
1%:

003352
4%:

N == NN
N UV N
NWWONNON
WNONOO
W
NN = O =0 N~

002012
003342
003142
000120

002776

003140

RSTRT:

1%:

] e
]
]
)

SEQ 0065

NS NN
O

e
] e
) e
) ol

— e e e e it et et D OO
NOWVMS
NN —=O

) ol o

3-9

INITCODE
SETPRI
MOv
EMT

MANUAL

104051

(mlelelelelelele]
= OO
== O —

N NN
NN

A
——

(elelelelelelele]

o 000000 v~
W
=« OO

P ol ol o
&~

BGNMOD
BGNINIT

103034

677

486

000021
024702
025114
0253¢4
025534
025760
026160
026406
026716
027214
027512
031350
032060
032274
033020
034130
035122
036336

e
el
)
)
)
)
- — —
) —d
—

461 013426
462
463 013426
464 013426

484

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

453
654
459

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

#340
#340,R0
C$SPRI

;CHECK

MANUAL

INTERVENTION ALLOWED

EMT
CSMAN]
BCOMPLETE
1%
;YES - SKIP
1%
BCS
BIC
WMITEST!DRSELT!HDALIGN,
MISWIW ;CLEAR ALL MANUAL
: INTERVENTION FLAGS
CLR
SSINDX
;:CLEAR SUBROUTINE STACK INDEX
READEF
MOv

WEF.PWR
NEF .PWR,RO

;POWER FAILURE

EMT
CSREFG
gg%OHPLEIE
4%

:NO, GO CHECK NEW PASS

MOV
JMP

LSUNIT,PWRFLG
PWCON

;SET POWER FAIL FLAG
;GO SERVICE POWER FAIL

EMT

CSREFG

READEF
MOV

WEF .START
#EF .START,RO

sCHECK

START

BNCOMPLETE
RESTART ;NO = SKIP
RESTART
BCC
ON START INITIALIZE TO START AT FIRST DRIVE,
PASS COUNT, AND ERROR COUNT.
MOV
LSUNIT,DRVCNT
;SET UP UNIT COUNT
CLR
PASNUM
;CLEAR FASS NUMBER
MOV
#ERRCNT RO
'

MOV
St?

BNE

MOV

vo4, R

;GET A COUNT

;?0)0

C_LEAR

INTERNAL

;CLEAR A ERROR COUNTER STORAGE

;LOOP TIiL ALL CLEARED

PERRCNT=2,ERRPOINT

;INIT

ERROR POINTER

AREA

ASSEMBLY

LB7
t88
489
490
491
492
493
494

ROUTINES

013542
013550
013556
013564
013566
013572
013574
01357¢

01357¢
013600

012737
0127%7
032737
001002
005037
000432

012700
104050

495 013602
013602
496 013604
497 013604
013604
013610

012700
104050

013612

103533

498 013612
499

500 013614

501
502
503
504
505
506
507
508
509
510
511
512
513

013614
013620
C13622
013622
013624
013624
013630
013632
013636
013644
013652
013660
013664
013670
013676
013702

514 013706

515
516
5i7
518

013706
013710
013712
013712
013714
013720
013722

519 013726
520 013730
521 013732

522 01373

523
5264
525
526
527

528
529
530
531

013736
013742
013744
013752
013756

013762
013770
013776
0140064

MACRO v03.01

177777
177?77
04UGCC

9-FEB-79

003344
007712
213346

013350

000037

000736
012122
012122

005721

012137
012122
022737
001426
012737
012737
012737
012737

012737

3-10

#-1,PSETNM
#-1,HADONE
#LOCYL MISWIW
5%
LOL 1MW
SETDON

READEF #EF .RESTART

#EF .RESTART,RO
(SREFG

000C36

BCOMPLETE

000035

NXTPAS:

PWCON

READEF

WEF .NEW

ON CONTINUE

;SET PARAM SELECT TO INITIAL VALUE
sPRESET HEAD ALIGN DONE FLAG
STEST IF LO LIMIT SET
;YES - SKIP
;ELSE CLEAR LO LIMIT
:CHECK

RESIART

003140
002776
003344
003140

GPHARD

PWCON

PICK UP UNIT

#EF .NEW,RO
CSREFG

BCOMPLETE
BCS
PASNEW

157
BNE
PASNEW: INC
MOV
MOV
MOV
SETDON: INC
DEC
ADD
MOV
MOV

003352
7% :

002200
000001

002200

000776
000777
001000
177600

002210
002204
002212
002214

002216

TEST.

STARTING NEW PASS

RO,R1

NXTPAS
(R1)+,(R2:+
(R1)¢,(R2)+

MOV
MOV
(MP
BEQ
Moy
Mov
MOV
MOV

(R1)+,T.DRIVE
(R1)+,(R2)+
#1,7.DRIVE
65%
#510. ,NXTHL
#511, .NLMIU
#512. ,GBND
#177600,CAMSK

MOV

UNDER

‘

DRVCNT
sTEST IF ALL UNITS CHECKED
SETDON
sNO - SKIP
PASNUM
:ELSE BUMP PASS COUNT
FERRCNT=2 ,ERRPOINT ;INIT ERROR POINTER
LSUNIT,DRVCNT
;GET ALL DRIVES
#-1,PSETNM
sSET PARAM SELECT TO INITIAL
PSETNM
sNEXT SET OF PARAMETERS
DRVCNT
;DOWN COUNT DRIVE TOTAL
#2 ,ERRPOINT
;UPDATE THE ERROR POINTER
PSETNM,RO
;SET UP TO GET PARAMETERS
#RLBAS,R2

BR
MOV
MOV

1871

LAST

:CHECK

PASNEW

EMT
C$GPHRD
MOV
RO,R1
BCOMPLETE
7%
BCS
7%
187
PWRFLG
BEQ
NXTPAS
;NO
DEC
PWRFLG

003352

177600

BCS

MCV
EMT

002776
003342
003140
002012
177777
003344
002776
000002
003344
002730

SEQ 0066

BCOMPLETE
RSTRT
:NO = SKIP
BCS
RSTRT
CONTINUE:
READEF- WEF .CONTINUE
;TEST 1F CONTINUE
MOV
#EF .CONTINUE
,RO
EMT
CSREFG

104042
010001
103406
005737
001741
005337

MOV
MOV
BIT
BNE
(LR
HR

MOV
EM1

103403
005737
001013
005237
012737
013737
012737
005237
005337
062737
013700
012702

(AB:
5%:
RESTART:

103743

012700
104050

19:23:55 PAGE

(R1)+

#177600,D1RMSK

;SKIP IF

GOOD PARAM

;RECENT POWER FAILURE

:ACCOUNT FOR DRIVE
SIORE PARAMETERS (SR
VECTOR

BUMP PAST PRIORITY

ASSEMBLY ROUTINES

DWW
v~

NNNNNNN

WNOW
NWN

NNN

&~ £ 8

o oo

rRwrorno
~

[

OO0D
OCOO0O

WWWWUIWW
NNNNNNSN

020000

NON

T —

OOoOo

— el ol ol i il

o
o
o>

—

538 014044
539 014052

000377
000400
077600
077600
077600
00376

OO0OO0O0CO0OO

014030

7 014036

17
177000

- O W

014012
014020
014026

HA(R? v03.01

014140
014142

104037
062706

014146
014152
549 014154
550
551
552
553
554
555 014160
556 014164
557 0141606
558 014174
559

012700
104041
013702

548 (14146

5¢9 014176
561 014202
0164202

014206
0164212
014216
014222
014224
562 014230
563 014234
564 014240

565
566
567
568
569
570
571
572

014242
014246
014252
014256
014264
014266
014274
014300

573 014304
574 014310

002220
002206
65%:

1.7400

002204
002212
002214
002216
002220
002210
002206
013346

PW(ON:

002204

013352

000340
014712
002732
000003

MOV
MOV

1%:

005037

003350

0
0
0
0

000340
014704
003132
000003

000020

sCHECK

002734
000200
000000
000001
000003
000004
000200
000000

HLMTW, HILIMW
RLVEC,#INTHLR,#340

MOV
MOV

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

MOV

MISWIW

JSET

#340,-(SP)

UP VECTOR

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

:SET

C$SPRI
RLBAS,K?2

;SET RL BASE ADDRESS POINTER

#0,R0

PASNUM

BIT
BEQ

NAUTOSZ ,MISWIW
22%

PRIORITY

22%

sTEST

NOT READY AND

PASS O

;NO - SKIP

;TEST IF DOING AUTO SIZE
sNO - SKIP
]F UNIBUS ADDRESS 1S THERE BEFORE WE CHECK DRIVE READY
CLR

TRPFLG

;s TRAP OCCURANCE

SETVEC
MOV

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

MOV

ERRVEC,-(SP)

1ST

BNE

MOV

000004

1 3

1ST

MOV
EMT
ADD
1ST

000000

#1776400,CLRBYT

CHECK ]1F DOING AUTO SIZE AND DROP DRIVE
ERROR SETS ON GET STATUS.

MOV

000010
200000
003350

#255. HLMTW

MOV
SETVEC

BNE

013346

PWCON

FHICYL

EMI
MOV

:
:

#177600,HDCYL
#177000,CLRBYT

BIT

BNE

MOV

002730

SEQ 0067

#256.,GBND
#77600, CAMSK
#77600,DIRMSK
#77600,HDCYL
#254. NXTHL

MOV
EMT
ADD
SETPR]

000000

003342

MOV

3-11

MOV
MOV
MOV
MOV
MOV

MOV

000010

005737
001135
032737
001531

104037
06
005762
005737
001032
013705
052705
010562
032762
001072
012762
052705
042705
010562

9-FEB=79 19:23:55 PAGE

BIS
MOV
BI1

BNE
MOV

B1S
BIC

MOV
WALTMS

:SET

TRAP VECTOR

#TRPHAN,-(SP)

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

sACCESS BUS

sYES, DON'T

TRPFLG

RLDRV,RS

#CRDYMSK,RS
RS,RLCS(R2)

:TRAP OCCUR??

INVESTIGATE FURTHER

;sGET DRIVE NUMBER

s INSERT CONT READY

;LOAD IN DRIVE NUMBER

#DRDYMSK,RLCS(R?)

;CHECK

DRIVE

1S READY

20%
;YES = GO DO TEST
#GETSTAT,RLDA(R?2) ;ELSE INSERT GET STATUS

¥4 ,RS
#CRDYMSK,RS
RS,RLCS(R?)
#4

;LOAD RS WITH GET STATUS FUNCTION
sCLEAR CONTROLLER READY
;LOAD (S REG
;WALT 4 MS

———

MACRO v03.01

ROUTINES

ASSEMBLY

000004

032762
001452

0020600

013700
106038

003132

012746

006040
011434
000002

104026

—

L)
R
R
(o lew B

581
582

‘83

584 014460
595
596

597 014460
598 014464
599
600 014466
601 014472
602 014476
603 014502
604 014500
605 014514

580

5%:

013700
104053

104036

005737
001434

ADD
PRINTF

(LR
BISB

EMT

ADD
PRINTF
MOV
MOV

010614
000001

MOV

EMT

000004

ADD

003344

MOV

DODU

20%:

003132

22%:

003352
002734
000200
000000
000074
000001

000012
001367

ERRVEC
ERRVEC,RO
CSCVEC
#EMT24 ,#DRVUNAY

MOv
MOV
MCv
MOv
MOV

104044

013700

CLRVEC
MOV
EMT
PRINTF

BIT
BEQ

MOV

000014

EMT
DOCLN
EMT
CLRVEC

MOV

EMT

(SWTM

#OPIERR,RLCS(R2);TEST
IF OP]

20%

:NO = SK]P

SET

#DRVNAV,=(SP)

#EMT24,-(SP)
#2,-(SP)

SP,RO
CEPNTF

#6,SP

lig;?,'BASADD,RLBAS,IDRVNAH,<B,RLDRV’1>

RLDRvV+1,(SP)

#DRVNAM,-(SP)

RLBAS,-(SP)

#BASADD ,-(SP)

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

SP,RO
CSPNTF

#14,SP

#FEMT3

#FEMT13,-(SP)
#1,-(SP)

SP,RO
COPNTF

#o,SP
PSETNM
PSETNM,
R0

;DROP DRIVE

C$D0ODU

($DCLN

ERRVEC

ERRVEC,RO
CSCVEC

POWER FAILURE WAIT

;(HECK

4%:

181
BEQ

PWRFLG

MOv

RLDRV,RS
;DRIVE SELECT
#CRDYMSK RS
:SET CRDY
R5,RLCS(R2)
sSELECT DRIVE
#60.,R1
;SIXTY SECOND TIMER
#DRDYMSK,RLCS(R2)
;DRIVE UP YET

BNE

sYES START

WAL TMS

#10.

;WAIT

EMT
DEC
BNE

(SWiMm

BIS

000000

SEQ 0068

#4,R0

EMT

10%:

3-12

MOV
EMT

MOV
MOV
MOV
MOV

002735
006033
002730
006022
010630
0000905

606

607 014516
014516
014522
608 014524
609 014526

000000

000006

579

O—=000000O0—=0O

OO -

O—O0O0OO

578

012700

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

9%:

MOv
MOv

MOV

#10,,R0
R1
9%

IS NEEDED
sNEEDED???

:NO,

SKIP

;SIXTY
sNO

TEST

A SECOND
_

GONE

ASSEMBLY

ROUTINES

610 014530
014530
014534
014540
0146544
014546
014550
611 014554

MACRO v03.01

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

006057
011634
000002

612
613 014556

ENDINIT
L10014:

104011

ENDMOD
BGNMOD
BGNCLN

619 014560

620
621 014560
014560
014564
014570
014574
014600
014602

622
623 014606
014606
014612
624 014614
625 014622
626 014624
627 014632
628 014640
629 014642
014642
014646
630 014650
014650
014654
631 014656
63¢ 014662
633 014664
634 014670
014670

014674
635 014676
014676
0146706
636
637 014700
638 014700
639 014702
014702
014702
64l

#FEMT24,#NOPWR

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

EM]
ADD
4R

CSPNTF
#6,SP
10%

EMT

($INIT

SP,RO

8%:

614

615 014556
014556
014556
616 014560
617
618 014560

SEQ 0069

MOV
MOV
MOV

MGV

000006

3-13

CLNCODE

SETVEC
MOV
MOV
v MOV
MOV
EMT
ADD

000340
014704
003132
000003
000010
:
000007

001003

000200

000000

002734

000000

000001

012700

000003

013700
104036
005737
001402
005337

002732

013700

0C3132

104026

104036

003352
003352

2%:

000000

000240

104055

BEQ
BIS

#7
.
:SET PRORITY 10 7
#7,R0
($SPRI]
#CRDYMSK,RLCS(R2)
:TEST IF CONTROLLER READY
3%
sNO LOOP UNTIL READY
;
RLDRV,RLCS(RZ2)
;SET DRIVE NUMBER

BNE
WAITMS
MOV
EMT

5%
#3
#3,R0
(SWTM

MOV
EMT

RLVEC,RO
C$CVEC

BIT

3%:
5%:

CLRVEC

1581

:
’%:

ENDCLN

104012

SETPR]
MOV
EMT
817

L100i5:
BGNDU

ENDDU

L10016:

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

#DRDYMSK ,RLCS(R?2)

JTEST IF DRIVE BUSY

RLVEC

VEC

PWRFLG

+NO - SKIP
:WALIT 300 MS
sRELEASE

;PWR FAIL

BEQ
DEC

7%
PWRFLG

MOV

ERRVEC,K0

EMT

(SCLEAN

CLRVEC

EMT

ERRVEC

COCVEC

NOP

EMT

($0U

SET

“ N0

ASSEMBLY

MACRO v03.01

ROUTINES

9=FEB=79

19:23:55.PAGE

3-14

SEQ 0070
6461 014704
642 014704

646

647 014712
6LB
649 014712
014712
650 014714
651 014720
652 014724
653 014730
654 014734
655 014742
656 014746
014746
014746
657
658
659
660 014750
661 014756
662 014760
014760
663 014762
014762
664 014764
014764
0164776
014774
015000
0150064
015006
015010

#£5 015014

015014
015016
015022
015026
015032
015036
015042
015046
015050
015052
666 015056
015056
015062
015066
01

005237
000002

0
1

1
1
1
1
1

W
= RruronNo
&~
NN
RONNO
O NN NN NN
NNNNNN
-

645 014710

OCOODOoO
=

643
644 014704

ENDMOD
BGNMOD

027737
002453

o 5076
01 510¢

002746
002750
002752
002754
177777
002730

1661664

INTHLR
INTERRUPT HANDLER.

ABORTS WAIT

($ABRT
(R2)+,T1.(CS

;STORE

TRPFLG

EMT
MOV

002710
ENDSR

013356

CKERLM:

MOV
MOV
MOV
MOV
MOV

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

000014
010614
000001

000004

003344

RL11

REGS

REGISTERS

;SET DONE FLAG
;RESTORE R2

ERROR LIMIT CHECKING ROUTINE
DROPS DRIVE IF ERROR LIMIT EXCEEDED
CMP
QERRPOINT ERLIMW
JTEST

BLT

EMT

C$INLP

BCS

PRINTF
MOV
MOV

002735
006033
002730
006022
010630
000005

TIMER AND STORES ALL

RTI

BCOMPLETE

012746
013746
012746
012746
010600
104017
062706

013700
104053

BGNSRvV

INLOOP

103451

012746
012746
010600

INC
RTI

L1001

104020

005046
153716
012746
013746
012746
012746
012746
010600
104017
062706

TRPHAN:

ABORTWALT

'
000002

667 01

003350

GLBSUB

;NO = SKIP

:CHECK IF
1%

ERROR LIMIT

IN ERROR tO00P

JYES - SKIP

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

MOV
#EMT25,-(SP)
MOV
#3,-(SP)
MOV
SP,RO
CSPNTF
EMT
ADD
#10,5P
PRINTF #FMTS5,#BASADD ,RLEAS,#DRVNAM,<B ,RLDRV+1>
(LR
=(SP)

B1SB

RLDRvV+1,(SP)

MOV
MOV
MOV

MOV
MOV

#EMTS,-(SP)
#5,-(SP;
SP,RO
CSPNTF
¥4 ,5P
#FMT3
#FEMT3,-(SP)
#1,-(SP)
SP,RO

ADD

¥4 ,SP

MOV

PSETNM,RD

MOV
MOV
MOV

EMT

ADD

PRINTF
MOv

EMI

00DbU
EMT

DOCLN

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

CEPNTF

PSETNM
($D0DU

;DROP DRIVE
;60

10 CLEAN P

EXCEEDED

RSSEMBLY

MACRO v03.01

ROUTINES

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

3=15

SEQ 0071

015104
669 015106
670
671
672
673
674

104064

000207
000000
000002
000004
000C0s

~sO0S
0 (=]
e lo Yo

015110
002710

000207

(00002
002746

006216

(000002

012700

000003

032762
001006
004737
012766
000762
005737
001345
004737
012766
000751

000200

000000

015110
006271

000002

104026

002710
015110

003030
000013

NN
WO NWNO N WO N
N NN o~
oorNO
S we s
HNNNNO ~NOo

SO N
oo SOV ONo

002706
003347
00271¢

404

1%:

2%:
0%:

(000002

5%:

003030
000003

003030

TIMEOUT TO FORCE INTERRUPT ROUTINE
;MAKE ROOM FOR ERROR POINTER

MOV
EMT
BIT
BNE
JSR
;gv

#3,R0
~
(SWTM
#CRDYMSK,RLCS(R2)
;TEST IF READY NOW SET
3%
;VES - SK]P
PC,READRL
;READ RL REGS
;:CONnNG,Z(SP)
;SE}PHESSAGE FOR CONTROLLER HUNG

181
BNE

DONE
%

MOV
BR

#MNOINT,2(SP)
2%

JSR

PC
#3

+RETURN
;WAIT 300 MS

PC,READRL

OPFLAG
NOERCT
MORECE

GET

STATUS AND GET

GSTATG

GSTATR: MOV
MOv
BR
GSTATC: MOv
MOV

MOy
151

MOV
SuB

AND

FOR

TIMEOUT

: SK

(LR
(LRB
(LR

MOV
(LR
GSTATG: MOV

002306
002306

;RETURN

2(SP)
;CLEAR FOR POINTER
#CROYMSK,RLCSR(R2)
;TEST IF CONTROLLER READY
3
;NO = SKIP TO WAIT
PC,READRL
;READ ALL RL REGS
DONE
~
STEST IF INTERRUPT OCCURRED
5%
:NO = GO SET NO INTERRUPT ERR FLAG
MTOSLOW,2(SP). ;ELSE SET TO SLOW ERROR POINTER
#OPIERR,T.CS
- ;TEST IF OP] SET
2%
sNO = SKIP
#MDRRES,2(SP)
;SET MESSAGE FOR NO DRIVE RESPONSE

OPERATION

GSTAT:

002704

CONTROLLER
(SP),=(SP)

TSTINT:

003030

FOR

REGISTERS
;GET (S REG
;GET BUS ADDRESS REG
;GET DISK ADDRESS
;GET MULTI=-PURPOSE REG

(LR
8l
BEQ
JSR
151
BEQ
MOV
BIT
BEQ
MOV

RTS

003030
003030

000004
000006

WAIT
MOV

RTS
WALTMS

3%:

006236
-

005037
105037
005037
000207
= OO0 O0OO0O0OO0OOTSOO

oOroOs

WNN Wt
- OO~

gwwwvawwu«www
CPNINE S S wWON
= ~

e
—

(UL
RV LW
OV
LV L
(RN RO LV TV LV RN RV LV R

OSOO0O

et
—

RTS

000000

006177
002000

(SDCLN
PC

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

000002
000200

NN
N oo
NR
wnrhoror == OO

il
il
il il
il
il
il il
il
il
il
il A
il
D

Al oW LV LW LW LW LW LW IV IV IV IV IV W IV ]
b

-l —ll il
—
-

236
242
250

002746
002750
002752
002754

slelelelolelelelelelele
-]

676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691

(eleljelsloleleloleleloleloleolelaoleleleolelelelole)

675

EMT
RTS

1%:

TEST

JELSE CHECK IF INTERRUPT OCCURRED
sYES = SKIP TO SET TO SLOW
sREAD RL REGS
ELSE SET NO INTERRUPT FLAG
;GO0 TO RETURN

INITIALIZE

ROUTINE

;CLEAR OPERATION FLAGS
;RESET INHIBIT ERROR COUNTING
;RESET MORE COMPARE ERRORS
STATUS WwiTH4 RESET ROUTINE

TEMP4 ,=(5P)
: STORE TEMP4
#GETSTAT!DRSET,TEMPS
;SET FOR RESE?
GSTATG
:
TEMP4 = (SP)
;STORE TEMP4
#GETSTAT, TEMP4
;SET FOR NO RESET
TEMP4 ,=(SP)
TEMP4
R3,=(SP)

;STORE TEMP4
;SET FOR SAVE
;STORE R3

(R3)+

JBUMP

SSINDX,R3

L. AND T, REGS

;GET SUBROUTINE
IT

INDEX

FOR NEXT

ENTRY

4(SP),SUBSTK(R3) ;INSERT TMIS CALL
#6,5UBSTR(R2)
SADJUST IT 10 CALLING LOCATION

ASSEMBLY

748
749
750
751

752

753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770

9=FEB=79

001403

19:23:55 PAGE

MOV

SEQ 0072

R3,SSINDX

MOV

RO,=(SP)

MOV

3-16

;STORE

R1,=(SP)

000002
000010

002720
003030

MOV
ggT

#2 ,ERRSWI
:D:SEI.TEHPL

040000

000000

BI1T

#DRVERR ,RLCS(R2)

000003

000062
015342

]

BEQ
WALTMS

49%:
50%:

000001

002746

000020

002754

1644000

002754

MOV
EMT
MOV
iifi
BIT
BNE
BIT
BNE
BIT

49%
#3

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

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

1T BAC(K

;STORE RO
;STORE R1
:SET

FOR NO ERROR RETURN

;TEST IF DRIVE RESET

sNO - SKIP
sTEST IF DRIVE
sND = SKIP

;WAIT

FOR

ERROR

SET

300 MS FOR DRIVE

502
504

orrNoSN

532

001031

012700
106026

005301
001344
012703

040000

002706

040000

002746

51%:

;TEST

DRIVE

READY

:YES = GO DO CLEAR
;ELSE TEST iF HEADS OuT

:YES = BYPASS RELOAD WAIT FLAG SETTING
#SPDSTAT HCESTAT ‘WDESTAT,T.MP ;TEST IF DRIVE HAS ERROR

005037

. 013737
042737
052737
013762
013762

012700
104027

5%
;:ELDUT.OPFLAG

BIT
BNE

#DRVERR,T.(CS
5%

WALTMS

000001

010164

104443
023421
011526

000554
005737
001013
012701
012703
014346
005301
001375
012737
000403
013737

BEQ
BIS
BR

003030

11%:

000004
002746

8%:

000003

002742

003030

002742

002710
002734
002000
000104
002742
00273

002736
002736
002736
000004
000000

000001

g::

CAUSED

;NO - SKIP
SELSE SET WAIT FLAG
:SKIP T0 (LEAR

;TEST IF DRIVE ERROR
sYES = SKIP TO CLEAR

;WAIT

FOR DRIVE

TO GET

ERROR,

.WORD
.WORD
BR
1S1
BNE
MOV
MOV
MOV
DEC
BNE
sgv

10001
ERR1
14%
TEMP4
5%
#4,R1

#L.MP+2 ,R3
-(R3),=(SP)
R1
8%
ngTSIA1,L.DA

;SET SAVE COUNT
JSET ADDRESS OF FIRST SAVE
;PUT REG ON STACK
sDEC COUNT
sLOOP UNTIL ALL SAVED
sSET FOR GET STATUS

MOV

TEMP4,L.DA

s INSERT PRESET FOR STATUS

CLR
MOV
BIC
BIS
MOV
MOV

DONE
RLDRV,L.CS
#B1110,L.CS
#GTSTAT,L.CS
L.DA,RLDA(R?)
L.CS,RLCSR(R2)
#)
#1,R0
($WTU

MOV
EMT

NOW

#1,R0
(SWTM
R1
50%
#MUNDEF ,R3
10001.,,ERR1

WAITUS

MEADS

;UNLOAD

MOV
EMT
DEC
BNE
MOV
ERRHRD
TRAP

TO SETTLE

;SET WAIT FOR 5 SEC
;GET DRIVE STATUS

: THAT

LV AV LV LV LV RV ]

765
746
747

MACRO v03.01

002704

01543¢
015440
015442
015446
015452
015454
015462
015464
015472
015474

AR ARV ALV LV RV ]
WRNUNUNY
= -

740
761
762
763
744

015424
015432
015434

AR AR AR AR

732
733
734
735
736
737
738
739

015376
015402
015404
015406
015414
015422

sleleleleleleleleleloleleleleleleleleleoleleleleoleloleleloloclelelelelele)]

723
724
725
726
727
728
729
730
731

ROUTINES

RDY,

OR MO

;DEC WAIT COUNTER
;1F NOT DONE, LOOP
;MESSAGE FOR UNDEFINED STATE

T$ERCODE

JEXIT
;TEST IF

sNO SKIP

SAVE REGISTERS

;SKIP

;CLEAR INTERRUPT FLAG
:SET UP TO GET STATUS
;CLEAR FOR DRIVE & = 7 SPEC'D
;LOAD RL REGS

;LOAD (S REG
;WALIT

100 US FOR

INTERRUPT

e e &

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=79 19:23:55 PAGE

3-17

789
790

791
792
793

RV IV LV RV W IV LV W IV IV IV IV IV IV )

SRNNIN = 200NN
ONNO SO
OND

ococoow [ VB S
ooNO
S~ N oo

NNNNN ~ NNNNNNNNNNNNOO

783
784
785
786
787
788

664

bbb T " W AV LV N

44
772
773
774
775
776
77
778
779
780
781
782

Pt
"
——————

SEQ 0073

770
772

005737
001476
013737
042737
032737

001474

002710

002754
177770
000010

002762
002762
002742

040000

002706

032737
001424
012701
032762

001130
000001

012700

000001

001016
104026

005301
001367
004737

016106
012703

000000

4%:

BIC
BIT
BEG
BIT

13%:

MOV

BIT

BNE
WAL TMS
MOV
EMT

DONE
;CHECK IF INTERRUPT OCCURRED
1%
:NO = SKIP
T.MP,T.STAT
;STORE MP REGISTER
W C<STAMSK>,T.STAT ;CLEAR ALL BUT STATE
#DRSET,L.DA
;TEST IF RESET WAS SPECIFIED

:NO = SKIP T0O EXIT

12%
#600. ,R1

;NO - SKIP
;SET WAIT COUNT

12%

;YES = SKIP

WRELDWT ,OPFLAG

;TEST

#DRDYMSK ,RLCS(R2)

;TEST

RELOAD WAIT

DRIVE

NOW READY

sCALL WAIT

;DEC

TOUNT

015342

DEC
BNE
JSR

PC,GSTAT

;GET

DRIVE

STATUS

010231

MOV

#MRLFAL,R3

;SET

RESULT

MESSAGE

ERRMRD
TRAP

.WORD

012700

000012

004737
016106
032737
001432
032737
001403
012703
000416
032737
001404

015342

12%:

100000

002746

0019000

002754

3%
BIT

BEQ
BIT
BEQ

006325
040000

WAITUS
MOV
EMT
JSR

MOV

002746

7%:

104443

BR
BIT
BEQ
ERRHRD
TRAP

006346

9%:

015142

1%:

2%:

104443

002720
003030
002736
000004

14%:

3%:

20%:

.WORD
.WORD
BR

MOV

BR
JSR

MOV

ERRHRD
TRAP

.WORD
.WORD
CLR

181
BNE
MOV
MOV
MOV

DEC

(SWTM
13%

10003., ,ERR]
TSERCODE
10003
ERR1
14%
#10.
#10.,R0
(SWTU

;LOOP IF

NOT O

;ERROR RETURN

;GET DRIVE STATUS

#ANYERR,T.CS

;TEST

FVCSTAT,T.MP

+CHECK

JEXIT

7%
#VCNRST,R3

#DRVERR,T.CS

9%
10004., ,ERRG
TSERCODE
10004
ERR6
14%
#UNXERR,R3
2%
PC,WAITIN

(SP)+,R3
10002., ,ERR1

POINTER

;60 TO EXIT
;WAIT FOR 1MS

PC,GSTAT

FLAG SET

FOR 60 SECONDS

"
#1,R0

023425
01152¢
000442

023424
012030
000411
012703
000403
004737
012603

MOV

BEQ

104443

104027

181
BEQ

ANY

:NO = SKIP

ERROR

VOLUME

DRIVE

CHECK

JYES SKIP
:SET REASON POINTER
;CHECK

;NO - SKIP

RESET

ERROR

JEX]T
;SET REASON POINTER
JEXIT
sWAIT

FOR

INTERRUPT

;STORE REASON POINTER FOR RETURN

TSERCODE

10002
ERRI
ERRSWI]

sCLEAR FOR ERROR RETURN

22%

:NO - SKIP

TEMP4

#L.CS,R3
#s,R1
(SP)+,(R3)+
R1

sTEST

REGISTERS WERE

;SET POINTER TO RESTORE
:SET REGISTER COUNT
;RESTORE REG
;DEC COUNT

SAVED

—————

ASSEMBLY

ROUTINES

826 016172

830 016174
831 016202
832 016204
833 016210
834 016212
835 016216
836 016220
837 016226
838 016234
839 016240
840 016242
841 016244
842 016246
843 016254
844
845 016260

00137%
162737
012601
012600
012603
012637
005737
001403
063716
000207
017616
000207

012737
000402
005037
010346
013703

848 016274
84S 016302
850 016304
016312

852 016320
853 016326
1
854 016334
1
855 016336
1
856 016344
857 0 1
858 0 1
859 0 }6362
860 0
861 0 1

22%:

003030
002720
002720
000000

177777

99%:

003022

864 0 1

MOv
1S1
BEQ
ADD

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

MOv

a(SP),(SP)

MOV
MOV
MOv

RTS

002306
002306

000202
0030)0

002720

SEEK

ROUTINE

MOV

000002
000004
002704

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

RTS

002704

MOV

#-1,TEMP]
XSEEK]
TEMP]
R3,=-(SP)

SSINDX,R3

égz

PC,GETPOS
CURCYL,OLDCYL
gEUCVL.HLHTU

003004
003000
003004
002200

00000%
000001
000001

003004
003012
003010

6%:

SUB
MOV
MOV
CMP
BEQ
SuB
MOV
MOV
BR
187
BPL
NEG
MOV
CLR
MOV

HLMTW, NEWCYL
NEWCYL,DIFAUG
HLMTW, NEWCYL
#1,7.DRIVE
6%
#1, NEWCYL
#1,DESSGN
#1,DESDIF
18%
NEWCYL
6%
NEWCYL
NEWCYL,DIFAUG
NEWCYL
CURCYL,RS

NEG

13%:
14%:

BR
(LR
MOV

003012
003010

;TEST

ERROR RETURN

;YES = SKIP
;ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

sSET SPECIAL TIMING SEEK FLAG
;CLEAR SPECIAL SEEK FOR TIMING FLAG
;:STORE R3

#2 ,ERRSWI
DIFAUG

002204
003004
002204
000001

003012

sRESTORE TEMP4

MOV
CLR

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

MOV
gn:

003000

;RESTORE R3

(R3)+

003002
092204

3$:

;LOOP UNTIL ALL ARE RESTORED
;REMOVE ENTRY FROM SUBROUT STACK
;RESTORE R1

MOV
SUB
MOV

MOV
MOV
MOV

SUB
BPL
MOV

SEQ 0074

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

1S7

003006
003004

000001

010537

20%
#2,SSINDX

003022

XSEEK1:

3-18

BNE
SUB

XSEEKT: MOV
BR
XSEEK:
CLR

003004
003004
003004
003006
003004

863 0 1
0
016416
016420
016426
016430
016432
016436

002704

003004

862 0 1

865
866
867
868
869
870
B71

000002

021274

846 016264
847 016266

RS1

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

NEWCYL,RS
13%
#1,DESSON
14%
DESSGN
RS,DESDIH

:STORE

REG

:SET FOR NO ERROR RETURN

sCLEAR DIFFERENCE AUGMENT

PAST GUARD BAND)
:
:GET PRESENT POSITION

sMOVE
;TEST
:NO ;ELSE

(FOR SEEKING

CURRENT TO OLD CYLINDER
IF NEW IS GREATER THAN 255
SKIP
SUBTRACT 255.

;STORE DIFFERENCE

AS AUGMENT

sSET NEWCYL AS 255.

sTEST

NEWCYL HAS NEGATIVE

sNO = SKIP
JELSE MAKE IT POSITIVE
sAND STORE 1T AS AUGMENT

VALUE

sAND SET NEWCYL T0 @
sCOMPUTE DIFFERENCE AND NEW CYLINDER
;SUB NEWCYL FROM CURCYL
1F DIFF 1S POSITIVE = SKIP(REYV SEEK)
sELSE SET SIGN FOR FORWARD
;:ATE DIFFERENCE
.

POSITIVE

sSET SIGN FOR REVERSE
STORE DIFFERENCE

SN R R———

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

ASSEMBLY ROUTINES

016504
016504
016510
016514
016520
016524
016526
016532

1ST
BEQ
CMP
BNE

003G04

002204

000001

003012

MOV

#1,DESSGN

002200

#1,T.DRIVE

003000

003010

(MP
BNE

NEWCYL

17%

HLMTW

000001

ADD

DIFAUG,DESDIF

002736
000106
002734
002000

MOV
MOV

#L.CS,RS
#SEEK, (RS)
RLDRV, (RS)

003010
000007

MOv
MOV
ASL

17%:

BIS
BIC
(LR

21%:

003012

000004
003014

23%:

000020
000001
017306

25%:

014562

000004
000002
000000

012700

000012

005737
001011
004737
012603

002710

106027

100005

.WORD
.WORD
(LR

104443

023426
012030
005037
162737

012605

002720
000002

002704

65%:

65%

#10.,RO
(SwWTU
DONE

1RAP

32%:

25%

EMT

MOv
WAITUS
MOv

ERRHRD

002740

23%

#DIRBIT, (RS)
DESHD

=(R%) ,RLDA(R2)
=(R5) ,RLBA(R2)
=(R5) ,RLCS(R2)

MOV

002720

DESSGN

MOv

BNE
JSR

104443

023425
011526
005037
000410
005737

#7,R0
(RS)
RO

DONE
TEMP1

18T

015142

(RS)+

DESDIF, (RS)

TST

BNE

308:

#BIT10,(RS)+

#HDSEL, (RS)
#MBSETO,(RS)+
PC,RDYCHK

MOv

TS7T
BPL
ERRHRD
TRAP

.WORD
.WORD
(LR
SUB

MOV

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%

DEC
BNE
187
BEQ
BIS
181
BEQ
BIS
BIS
JSR

65%
CLR

002710
003022

0 016714

DIFAUG
18%

881
882
883
884
885
886
887
888

003000

[V, pr—)

872 016442
873 016446
874 016450
875 016456
876 016460
877
878 016466
879 016474
880 016476

3-19

32%

PC,WAITIN

(SP)+,R3
10005., ,ERR1
TSERCODE
10005

ERRI]

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

;LOOP UNTIL ALIGNED
;TEST SIGN

;SKIP IF O

JELSE

;TEST

INSERT SIGN

HEAD 0

;YES = SKIP
JELSE SET HEAD BIT
:INSERT MARKER BIT
sCHECK IF DRIVE READY

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

;TEST IF INTERRUPT DONE
;YES = SKIP
;GO WAIT FOR INTERRUPT
;GET RESULT MESSAGE POINTER

ERRSWI

;CLEAR FOR ERROR ERROR RETURN

1.CS

:TEST 1F ANY ERROR

65%

65%
10006., .ERRG
TSERCODE
10006
ERR6
ERRSWI
#2,SSINDX
(SP)+,RS

sNO - SKIP

:CLEAR FOR ERROR ERROR RETURN
;REMOVE

ENTRY

FROM SUBROUT

;RESTORE REGISTER

STACK

ASSEMBLY ROUTINES
921 016716
922 016720
923 016722
924 0167264
925 016730

012601
012600
012603
005737
001403

928 016740
929 016744

017616
000207

926 016732
927 016736

387

989
990

991 016746

992 016750
993 016754
994 016756
995 016764
996 016772
997 016776
998 017000
999 017002
1000 017010
1001 017014
1002 017016
1003 017022

063716
0002C7

010346

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

017022

104004

017024
1005 017026
017026

104020

1006 017024

1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024

103012

017030
017034
017036
017044
017046
017052
01705«
017062
017066
017070
017072
017076
017100
017104
017110
017112
017116
017122
017124

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

017132
01713
017136

104443
023430
012030

1028 017144

000440

1025 017130
1026 017132

1027 017140

100006

005037

MACRG, v03.01 9-FEB=79 19:23:55 PAGE 3-20

:
002720
002720

000000

99%:

:
:

000002
000004
002704

002306
002306

000002

002720

000012

BGNSEG
1$:

)
021274

003006

003004

017632
003006
003006

003002

5%:

003004
003004
016204
005670
021026
002746

002720

7%:
8%:

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

:RESTORE R3
:TEST IF ERROR RETURN
:YES = SKIP
:ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

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

POSHDS: MOV

002704

021274

MOV
MOV
MOV
181
BEQ
ADD
RTS
MOV
RTS

SEQ 0076

MOV
181
MOV
SUB
MOV
MOV
MOV
MOV
JSR
PH65S
MOV

R3,-(SP)

:SAVE REGS

#10.,R4

:SET RETRY COUNT

EMT

C$BSEG

INLOOP

SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
:BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) :INSERT THiS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE 1T BACK
R3,-(SP)
R4 ,=(SP)
#2 ,ERRSWI
;SET FOR NO ERROR RETURN
PC,GETPOS
:GET CURRENT POSITION

EMT
CSINLP
BNCOMPLETE
BCC
5%

;CHECK

IN ERROR LOOP

:NO - SKIP

JSR
60%
CMP
BNE
JSR
ER
MOV
CMP
BEQ
BGT
INC
BR
DEC
JSR
60%
MOV
JSR
60%
181

PC,GETPOS

:ELSE GET POSITION

CURCYL,NEWCYL
8%
PC,ONSWAP
8%
CURCYL,OLDCYL
CURCYL,RS
60%
7%
NEWCYL
8%
NEWCYL
PC,XSEEK

;CHECK IF AT INTENDED POSITION
:NO - SKIP
:SWAP OLDCYL AND NEWCYL
:SKIP
;IN NOT LOOPING, STORE CURCYL AS OLDCYL
:CHECK IF HDS AT FINAL POSITION
;YES - GO TO EXIT
:1F CURCYL > FINAL POSITION - SKIP
;ELSE BUMP NEWCYL (MOVE HDS IN)
:SKIP
:DEC NEWCYL (MOVE HDS OUT);00 SEEK

#3000. ,R1
PC,RDYWALT

;SET WAIT COUNT 300 MS
;WAIT FOR DRIVE READY
:TEST IF ANY ERROR
:NO = SKIP

TRAP
.WORD
.WORD

1.CS
10%
10008.,.ERR6

TSERCODE
10008
ERR6

60%

ERRSWI]

:CLEAR FOK ERROR ERROR RETURN

BPL
ERRHRD

CLR

ASSEMBLY ROUTINES

1029 017146
1030 017152
1031 017154

004737
017246
023737

1034 017170
1035 017172

000715
005737

1032 017162
1033 017164

001003
012704

1036 017176
1037 017200
1038 017206
1039 017210
1040 017212
1041 017214

001016
023737
003366
005304
001334
012703

017220
017222
017224
1043 017226
1044 017232

104443
023431
011526
005037
000405

1042 017220

10645 017234
1046 0172642
1047 017244
1048 017246
1049 017246
1050 017246

1051
1052
1053
1054
1055
1056
1057
1058
1059

017246
017246

017250
017256
017260
017262
017264
017270
017272
017276
017300

;82? 017304

1063
1064
1065 017306
1066 017310
1067 017314

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

017316
017324
017332
017336
017340
017342
017344
017352
017356
017362
017364
017372
017374

017374

023737
002750
000761

104005

162737
012604
012600
012603
005737
001403
063716
000207
017616

000207

010346
013703
005723
016663
162763
010337
010046
010146
010446
012737

012701
004737

017502
032737

001045

012700

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

021274
003006

108:
003004

000012

14%:

003012

15%:

003006

003004
16%:

007234

003004

17%:

20%:
608%:
ENDSEG

10000%:

000002

002704

PH65%:

002720
002720
000000

99%:

CURCYL NEWCYL
15%

;CHECK IF ARRIVED AT DESIRED PLACE
:NO - SKIP

%
DESSGN

;G0 DO NEXT SEEK
;TEST IF GOING IN

BNE
CMP
BGT
DEC
BNE
MOV

17%
CURCYL NEWCYL
149
R4
8%
#HDMOVF ,R3

TRAP
.WORD
.WORD
CLR
BR

TSERCODE
10009
ERR1
ERRSWI
60%

CMP
BLT
BR

EMT

SUB
MOV
MOV
MOV
TST
BEQ
ADD
RTS
MoV

RTS

10009., ,ERR1

CURCYL ,NEWCYL
14%
16%

(SESEG

#2,SSINDX
(SP)+ R4
(SP)+,RO
(SP)+,R3
ERRSWI
99%
ERRSWI, (SP)
PC
a(SP), (SP)

;ELSE INIT RETRY COUNT

;YES - SKIP
;CHECK IF HEADS DID NOT MOVE IN
;YES = SKIP
;DEC RETRY COUNT
;D0 ANOTHER SEEK IF NOT 0
;ELSE SET RESULT MESSAGE POINTER

;CLEAR FOR ERROR ERROR RETURN
;HDS SHOULD MOVE OUT, CHK THEY DID
;YES = SKIP
;ELSE GO DEC AND RETRY

;REMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGISTERS
;TEST IF ERROR RETURN
:YES - SKIP
;ADD IN ERROR RETURN
:SET ERROR RETURN ADDRESS

:
DRIVE READY TEST ROUTINE. CHECKS DEIVE IS READY.
:
500MS FOR _READY TO SET.
RDYCHK: MOV
R3,-(5P)
:STORE REGS

002704

000002
000004
002704

002306
002306

000002
011610
015342

002720

000001

002746

000001

;:GET POSITION

#10.,R4

BR
1S7T

SEQ 0077

PC,GETPOS

BNE
MOV

ERRHRD

00272C
003006

JSR
60%
(mP

3-21

MOV
18T

1$:

MoV
SUB
MOV
Mov
MoV
MoV
MOV
Mov
JSR
4%
BIT
BNE
WAITUS

Mov

SSINDX,R3
(R3)+

:GET SUBROUTINE INDEX
:BUMP IT FOR NEXT ENTRY

#ORDYMSK,T.CS
5%
#

;TEST IF DRIVE READY
JYES = EXIT

IF NOT, WAIT

2(SP),SUBSTK(R3) ;INSERT THIS CALL
#4 ,SUBSTK(R3)
;ADJUST IT 7O CALLING LOCATION
R3,SSINDX
:STORE 1T BACK
RO,=(SP)
R1,=(SP)
R4 ,=(SP)
#2 ERRSWI
:SET FOR NO ERROR RETURN
#5000.,R1
:SET WAIT COUNT
PC.GSTAT
:GET DRIVE STATUS

#1,R0

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

NS
-

=N S

027

OO0O0O0O—

-l OO0

ASSEMBLY ROUTINES

704

EMT
DEC
BNE

007561
010445

1086 017426
1087 017430
1088 017434
1089 017436
1090 017444
1091 017446

017446
017452
1092 017454
1093 017456
1094 017460
1095 017466
1096 017470

017470
017472

NNUNLNUNININININ
=
b et et et et = = O D OODOOOO0O
WNO VN
W= OO0V
YOT VIR W =O VBNV
WN -

il
-

e
h

i
B

d
D
D

it
D el
—

—
—

—

D e

—
—

s =D

—
—

e
e

—
-

D
e

-t —

D e
d

—
-

—

il ol

017474
1097 017476
1098 017502

o ODO00O0O0—~
o Wt Ot et VO
ey ¥ NN =N
o~
NN~
oW
WO oW
w~
N—-—-0ON

443

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

000062
015342

000001

2%:

002746

100000

#MDRDY,R3
#C500MS,R4

TRAP

TSERCODE

.WORD
.WORD
MOv
JSR
4%
BIT

BNE

000001

002746

002704

000000

99%:

003014
010000

013346

013354

003014

CHOSHD:
1%:

10010
ERRS
#50. ,R1

#DRDYMSK,T.CS

.WORD
DEC
CLR

ERR6
ERRCNT
ERRSW]

SUB

MOV

10011.,,ERR6

010000

013346

000000

DRIVE READY

;WAIT

FOR

100MS

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

;REPORT ALL ERRORS

:REDUCE ERROR COUNT FOR DUAL ERRORS
:CLEAR FOR ERROR RETURN
:REMOVE ENTRY FROM SUBROUT STACK

#2,SSINDX
(SP)+ R4

;RESTORE

REGS

187

ERRSWI

sTEST

ERROR RETURN

3?2

EgRSHl.(SP)

:ADD

IN ERROR RETURN

:SET

ERROR RETURN ADDRESS

MOV
RTS

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

99%

;YES = SKIP

a(SP), (SP)
PC

CHOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD
SELECTED BY SOFTWARE PARAMETER.
CLR
DESHD
;CLEAR TO HEAD 0
BIT
#HEADLM MISWIW
TEST IF HEAD SPECIFIED
BEQ
%
:NO = SKIP
.
:?g

gEADU.DESHD

s INSERT

SPECIFIED HEAD

CHANGES SELECTED HEAD TO HEAD |

UNLESS HEAD O SPECIFICALLY SELECTED BY SOF TWARE PARAMETER.

QUAPHD: BIT

BNE

003014
000001
000002

;TEST

;YES - SKIP

10011

SWAP HEAD ROUTINE.

032737
001011
005737
001006
012737
062716
000207
017616

;SET CONDITION MESSAGE POINTER

;SET WAIT COUNT FOR 5 SECONDS
;:GET DRIVE STATUS

PC,GSTAT

TSERCODE

BEQ

002720

10010., ,ERRS

TRAP

MOV
MOV
MOv

002720

;SET RESULT MESSAGE POINTER

#1
#1,R0
(SWTM
R1
2%
#ANYERR,T.CS
6%

.WORD

4%:
5%:

;DEC WAIT COUNT
;LOOP IF NOT 0

WAITMS
MOV
EMT
DEC
BNE
BIT
BEQ

ERRHRD

003142
002720
000002

(SwTu
R1
1%

MOv
MOv

ERRHRD

SEQ 0078

181

BNE

003014

MOV
ADD

2%:

RTS
MOV

#HEADLM MISWIW

TEST

HEAD SPECIFIED

DESHD

;TEST

HEAD ONE USED

#1,DESHD
#2,(SP)

PC
a(SP),(SP)

:YES = TAKE ABORT EXIT
:YES = TAKE ABORT EXIT
;ELSE SET FOR HEAD ONE

:BUMP PAST ABORT RETURN
:RETURN

;GET ABORT DESTINATION

ASSEMBLY ROUTINES

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

3%:

003002

020010
020016
020020
020024
020026
020032
020034
020042
020050
020054
020056
020060
020062

003354

012746,
012746
012746
010600
106017
062706

605737
001051

MOV
MOV
MOV

RO,=(SP)

oLDpCYL RO
NEWCYL,OLDCYL
RO,NEWCYL
éEP)O,RO

BSFVAL
5%

007464
011014
000002

MOv
MOV
MOV

KBSVD:

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

000006

ADD
ERANTF

PRINTF

MOv
EMT

BISB
MOv
MOv
MOV
MOv
MOV
MOov
EMT

000014

003356
003552

000001

003030

000002
000004
002704

002306
002306

000002

002720

;RESTORE

CHECKS

If BAD SECTOR

REPORT

AND FORCE

;TEST IF BAD SECTORS STORED
;YES = EXIT

;REPORT

SP,RO
CSPNTF
#6,5P
#ig;?,lBASADD.RLBAS,!DRVNAH,(B,RLDRV'1>
-

RLDRV+1,(SP)
#DRVNAM,-(SP)
RLBAS,-(SP)
#BASADD,-(SP)
NEMTS,=(SP)
¥5,-(SP)
SP,RO
CSPNTF

5%:

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

READ HEADERS ROUTINE.

;FORCE

FILES TO NO ENTRIES

XRDHDC: MOV

#1,TEMP4

;SET FLAG TO BYPASS REG STORAGE

XRDHD:

TEMP4

;SET FLAG TO SAVE T. AMD L. REGS

(R3)+

;BUMP IT FOR NEXT ENTRY

(LR

XRDHDG: MOV
MOV

002704

#FMT9,#BSNSTR

ADD
PRINTr
MOv
MOv
MOv
EMT
ADD
MOV
MOv
RTS

010614
000001
000004
177777
177777

;sMOVE OLD TO RO
:MOVE NEW T0 OLD
;PUT OLD IN NEW

FILES HAVE BEEN READ AND STORED. IF NOT,
FORCE FILES TO LOOK LIKE ALL SECTORS OK.

TST
BNE

002735
006033
002730
006022
010630
000005

:STORE RO

BAD SECTOR FILES VALID CHECK ROUTINE.

Lo aloalieale e e
e
AW LW TV TV B
AV Al LV L
PN B NN =O 0NN
WN—=0O V0

il ol ol el

— ——h —
ol

el
e
)

—
il
—

et
el

il
il

el el

s —

el
e
e
it
—

Dt —lh —

017656
017662
017664
017664
017670
017674
017700
017702
017704
G17710
017710
017712
017716
017722
017726
017732
017736
017742
017744
017746
017752
017752
01775¢
017762
017764
017766
017772
020000
020006

;

SEQ 0079

SWAP OLD CYLINDER AND NEW CYLINDER ROUTINE.

MOV

:?g

003002
003004
003004

ONSWAP:

RTS

3-23

TST

MOV
SUB
MOV

XRDHDG

R3,=-(SP)
SSINDX,R3

:STORE REGISTERS
:GET SUBROUTINE INDEX

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

“MOvV
MOV

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

MOv

#2 ,ERRSWI

MOV

:60 DO IT

R4 ,=(SP)

;SET FOR NO ERROR RETURN

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB=79 19:23:55 PAGE

3-2¢

POPOOPOO®NNNNNNNNNNOTOT
O
VSR WN =200V NO VW
=D 000~N

il il el
il il

-l -l —l
il

il il

il
ek

—
—

il
il

O O O O 0o 0o OO
WN—=O 000~

il —

il
il
B

pe—

il el

. — —

B e

SEQ 0080
020070
020074
020076
020102
020106
020110
020112
020114
020120
020122
020126
020132
020136
020142
020146
020150
020152
020156
020162
020166
020166
020172
(20174
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

020306
020306
020310

020312
020314
020316

020322

020326

003030

181

BNE

002746
000004

1%:

2%:

017306
002710
002736
002734

014162
014162

012700

200012

005737
001455
032737
001033
012703
012704

002710

106027

000001

3%:

002746

5%:

007561
010464

100004

EMT
1§71
BEQ
BIT
BNE

ERRHRD
TRAP

000062
015342

000001

4%:

002746

002720
11%:

010475

ERRHRD
.WORD
.WORD

10%:

18T
BPL

ERRHRD
TRAP

002756
000006
000006

12%:

.WORD
.WORD
BR

MOV
MOv
MOV

SAVED

:SET POINTER FOR REGS
:SET COUNT
:SAVE REGISTER
;DEC COUNT
;LOOP UNTIL ALL ARE SAVED
;CHECK DRIVE READY

#10.
#10..,R0
(swiv
DONE
14%
#DRDYMSK,T.CS
10%
#MDRDY,R3
#CAFDT
R4

;WAIT

1MS FOR

;TEST

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

10017., ,ERRS
TSERCODE
10017

PC,GSTAT

BEQ
CLR
BR
DEC
BNE

TO BE
d

;CLEAR INTERRUPT FLAG
;GET ADDRESS OF LOAD REGS
:LOAD DRIVE NUMBER
;:CLEAR FOR DRIVE &4 = 7 SPEC'D
s INSERT COMMAND
;CLEAR BA
;CLEAR DA
:LOAD RL11 REGS

JSR

60%
BIT

;TEST IF REGISTERS
:NO = SKIP

DONE
#L.CS,RI
RLDRV, (R1)
#B1710,(R1)
#RDHEAD,(R1)+
(R1)+
(R1)+

ERRS

MOv

TRAP

002746

#L.MP+2 ,R3
4 ,R1
=(R3),=(SP)
R1
1%
PC,RDYCHK

.WORD
.WORD

MOV

104443

023440
012030
000415
012701
016221
016221

CLR
MOv
MOv
MOV
WAITUS
MCv

MOv
MOV

104443

023436
011760
000424
005737

65%

BIC
BIS
(LR

104443

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

DEC
BNE
JSR

CLR
MOV
MOV

002000
000110

000004
000002
000000

MOv
MOV
MOV

TEMP4

INTERRUPT

:NO - SKIP
sYES =

SKIP

;SET NO READY MESSAGE
;CONDITION OF AFTER DATA XFER

;SET WAIT

#DRDYMSK,T.CS
11%

;TES1

#CSSEC,R4
10014., ,ERRS
TSERCODE
10014

ERRS
60%
1.CS

COUNT

;GET STATUS
IF

DRIVE

FOR 5
HAS

SECONDS

COME

READY

:NO - SKIP
:CLEAR ERROR SWITCH
:SKIP
:DEC WAIT COUNT
;LOOP UNTIL TIME DONE
:SET CONDITION AFTER 5 SECONDS

JEXLT
;sCHECK FOR ANY ERRORS

12%
10016., ,ERR6
TSERCODE
10016
ERRG

sNO - SKIP

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

;GET POINTER

60%

FLAG SET

;TEST IF DRIVE READY

#50..R1

ERRSWI
10%
R1

INTERRUPT

;REPORT

:STORE

ALL

LAST

ERRORS

TWO HEADER WORDS

SRR
et

W
PVONFT

D it it
il i il D il il i
e
s

—=O VBN

WNWWIWWWIWNWIWWNI
N NN NN RO N NN b e

NS WN—=O L0~

13
14
15
16

At La AN LN T N1 VY ST, ST ST ST ST STNT ST VT, ¥ rororn

1
1
1
1

ASSEMBLY

ROUTINES

020332
020334
020340
020342

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

020412
020414
020416
020422

020424
020430

020432
020436

1239
1240 020440

1241
12642
12643
1264
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264

000410
004737
012603

104443
023437
0115¢%
005037
005737
001007
012703
012701
012623
005301
001375
162737
012604
012601

012600
012603
005737
001403

063716
000207

017616
000207

010346

020442
020446
020450
020456
020464
020470
020472
020474
020476
020500
020506
020514
020520
020524
020530
020532
Q20534
020536
020542
020546
020550
020552
020554
020560

013703
005723
016663
162763
010337
010046
010146
010446
010546
012737
052737
005037
012704
012705
005003
011415
011401
042701
(12700
006201
005300
001375
020137
001406

020562
020564

104443
023%4?

1265 020562

MACRO v03.01

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

015142

14%:

BR
JSR

MOV

EPRHRD

60%:

003030

65%:

002736
000004

000002

20%:
002704

22%:

000000

99%:

1S1
BNE
MOV
MOV
MOV

TEMPS
22%
#L.CS,R3
"4 ,R1
(SP)+,(R3)+

000004
002704

000002
000002
002716
003746
003020

003004

ERRSWI

DEC
BNE
Sus

R1
20%
#2,SSINDX

MOV

(SP)+,R4

RTS

MOV

RTS

TST

002306

MOV

002306

SUB
MOV
MOV

MOV
MOV
MOV

002720
002706

MOV
BIS
CLR
MOV
MOV
CLR
MOV
MOV

000177

000007

10015

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

BIC

1%:

MOV

REGISTERS WERE

SAVED

:NO - SKIP
;SET POINTER TO RESTORE REGS
:SET COUNT
;RESTORE REGISTER
;:DEC COUNT
;LOOP UNTIL ALL ARE RESTORED
;REMOVE

ENTRY

;RESTORE REGS

FROM SUBROUT

;TEST

a(SP), (SP)

;SET ERROR RETURN ADDRESS

ERROR

:YES = SKIP
:ADD

IN ERROR

STACK

RETURN
RETURN

COMPARES 40 HEADERS FOR CONTENT

;STORE REGS
;GET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(RI)
;ADJUST 1T TO CALLING LOCATION
R3,SSINDX
RO,=-(SP)

:STORE

#2 ,ERRSWI
#HDRCMP ,OPFLAG
MORECE
#1BUFF
R4
#TEMPO,RS
R3
(R&), (RS)

;SET FOR NO ERROR RETURN
:SET HEADER COMPARE FLAG
:CLEAR MORE ERRORS FLAG
:SET POINTER TO HEADERS
:SET POINTER TO WORK AREA
;CLEAR FOR WORD COUNTER
:MOVE HDR WORD TO WORK AREA
:PUT WORD IN REG 1

R1,=-(SP)
R4 ,-(SP)
RS,=(SP)

(R4) ,R1
#177 ,R1

#7,R0

R1
RO

;CLEAR ALL

ASR
DEC
BNE
(MP
BEQ
ERRHRD

3%
R1,NEWCYL
4%
10018.,,ERRI0

LWORD

10018

TRAP

:CLEAR FOR ERROR ERROR RETURN

;TEST

ERRSWI
99%
ERRSWI, (SP)

:
VERIFY HEADERS ROUTINE.
SEQUENCE.
:
VERHDR: MOV
R3,-(SP)
MOV
SSINDX,R3

002704

000002

10015., ,ERRI

ERR1

CLR

INTERRUPT

(SP)+ ,R3

.WOkD

TST
BEQ
ADD

002720

65%
PC,WAITIN
TSERCODE

MOV
MOV
MOV

002720

SEQ 0081

TRAP

LWORD

0027290

3-25

TSERCODE

BUT

BACK

CYLINDER

sSET SHIFT COUNT
;SHIFT
sDEC
;LO0P
sCHECK

CYLINDER PART

JYES = SKiP
;REPORT ERROR

GOOD

AND

ASSEMBLY

ROUTINES

020566

1266 020570

WN—=O
NV

it
sl
b —
—h
—
—

NN
Y
NNNNNNN~N

1267 020574
1268 020576
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
020702
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
062715
005737
001462
052715
005065
021524
001407
005744

MACRO v03.01

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

002720

000050
000100
003014

000100
000002

5%:
6%:

104443
023442
013116
005037

024524

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

TRAP

002720
8%:

002720
12%:

000077

000002

013705
000402

002754

002720
000000

002754

15%:

002704

65%:

;SET HEADER COUNT
;CLEAR HEAD SELECT AND O BIT

;ARE WE USING HD 0?

#HDHSEL, (RS)

; INSERT HEAD BIT

2(RS)

(RS),(R4)+
8%
-(R4)

10018., ,ERR10
T$ERCODE
10018

BEQ
CMP
ERRHRD

12%
(R5)+,=(R4)
10018., ,ERR0

.WORD
.WORD
CLR
CMP
181
INC
INC

BIC
CMP
BNE
BIC
INC
DEC
BNE
SUB

MOV
MOV
MOV
MOV
MOV

BEQ
G9%:

#40. ,R1
#HDHSE
, (RS)
L
DESHD

1S1

151

;CLEAR FOR ERROR ERROR RETURN

65%

INC

1S1

SEQ 0082

ERRSWI

ERR10

MOV

177700
000050

" ERR10

.WORD
.WORD
CLR

TRAP

002720

010146

CLR
CMP
BEQ

ERRHRD

005737
001403
063716
000207
017616
000207

013705

MOV
BIC
151
BEQ
BIS

1ST

104443

023442
013116
005037
005724
005203
005724
001407
022544

.WORD
(LR
BR

3-26

ERRSWI
(R4)+

(R4)+

TSERCODE

10018
ERR10
ERRSWI
=(RS),(R4)+
(R4)+

R3
(RS)
(RS),RO

;YES = SKIP

;CLEAR 2ND WORD OF WORK AREA
;TEST FIRST WORD OK
;YES - SKIP

;ELSE SET POINTER FOR ERROR
;REPORT

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

;TEST 2ND WORD 1S O

;YES

SKIP

:ADJUST POINTERS FOR REPORT
;REPORT

;CLEAR FOR ERROR RETURN
;RESET POINTERS
:BUMP PAST ECC WORD
;BUMP WORD COUNTER
;BUMP SECTOR OF EXPECTED HEADER
;MOVE EXPECTED HDR 10 RO

#*CHDSEC,RO
#40. ,R0O

;CLEAR ALL BUT SECiOR

#HDSEC, (RS)

;:CLEAR SECTOR T0 0
:BUMP HDR WORD COUNTER
;DEC HEADER COUNT
;LOOP IF NOT YET DONE

(SP)+,RS

;RESTORE REGISTERS

15%

#2,SSINDX
(SP)+ R4

;TEST 1F AT SECTOR 40
:NO - SKIP

;REMOVE

ENTRY

FROM SUBROUT

STAC(K

(SP)+,r1
(SP)+,R0O

(SP)+,R3}

ERRSWI
99%
ERRSW!, (SP)

sTEST IF ERROR
+YES = SK]P

a(SP), (SP)

;SET

ADD
RTS

MOV
RTS

RETURN

sADD IN ERROR RETURN
ERROR RETURN ADDRESS

POSITION HEAD BIT1 FROM HEADER OR MULTIPURPOSE REGISTER T0 LSB.
HDWRD1,RS
START FOR POSITION HD BIT IN WD !
MOV
POSHDO
;SKIP
BR
POSHSB: MOV
T.MP,RS ;START FOR POSITION HD BIT IN MP
R1,=(SP)
POSHDO: MOV
;STORE R

POSHW!:

ASSEMBLY

1317
1318
1319
1320
1321
1322

ROUTINES

021004
021010
021014
021016
021020
021022

:%gz 021024

£1325
1326

1327 021026
1328 021030

1329 021034
1330 021036

1331
1332
1333
1334

021044
021052
021056
021060

042705
012701
006205
005301
001375
012601

010346
013703

005723
016663

162763
010337
010046
010146

010446

1337 021072

004737

1338
1339
1340
1341
1342
1343

021076
G21100
021106
021110
021112
021114

021114
021120

1344 021122
1345 021124
1346 021130

1347
12,8
1349
1350
1351
1352

1353
1356
1355
1356

1357
1358
1359
1360

021130
021132
021134

02113¢
021142
021146
021150
021156
021160

021160
021164

021166
021170
021172
021176
021176

027200
021202
021204
021206
021214
021216

021216
021220
021222

9=FEB=-79

177677
000006

19:23:55 PAGE

B1C
MOv
ASR
DEC
BNE
MOV

1%:

0002G7

1335 021062

1336 021064

MACRO v03.01

012737

021230
032737
001052
005301
001404

012700
104027

000763
012703

104443
023444
071642

RTS

:
S

000002

002306

000002

002720

015342

000091

002746

000001

7%:

000062
015342

012700
104026
005301

000001

010475

6%:
002746

104443

000407
032737
001405

104443
023440
012030

;ADJUST IT TO CALLING LOCATION
:STORE IT BA(K

MOV

#2 ,ERRSWI

;:SET

#DRDYMSK,T.C(S

;CHECK

JSR

100000

002746

B8$%:

:STORE R3
SUBROUTINE INDEX

(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ; INSERT THIS CALL

R4 ,=(SP)

PC,GSTAT

FOR NO ERROR RETURN

;GET DRIVE

STATUS

10%
BIT
BNE
DEC
BEQ
WAITUS

9%
R1
7%
#1

BR
MOV
ERRHRD

5%
#MDRDY,R3
10020., ,ERR3

;SET NAME MESSAGE PITR
;REPORT READY ERROR

MOv
JSR
10%
BIT
BNE
WAITMS

#50. ,R1
PC,GSTAT

SET WAIT COUNT FOR S5
;GET DRIVE STATUS

#DRDYMSK,T.CS
8%
#1

;TEST IF DRIVE
;VES = SKIP
SWAIT 100 MS

BNE
MOV
ERRHRD

6%
#CSSEC,RG
10021., ,ERRS

.WORD
.WORD

10021
ERRS

TRAP
LWORD
.WORD

TSERCODE
10022
ERR®

TRAP

023445
011760

WAIT PASSED TO THE ROUTINE

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

MOV
EMT
DEC

+RETURN

SUB
MOV
MOV
MOv

TRAP
.WORD
.WORD

;RESTORE R1

MOV
R3,-(SP)
SSINDX,R3
;GET

MOV
EMT

007561

;CLEAR ALL BUT HEAD SEL BIT
sSET SHIFT COUNT
sSHIFT FOR RIGHT JUSTIFY

MOv

MOV
5%:

#ACHSSTAT,RS
#6,R1
RS
R1
1%
(SP)+ ,R1

SEQ 0083

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

ST
MOV

002306

000004
002704

012701
004737
021230
032737
001013

001364
012704

RDYWAIT:

002704

3-27

BR
Bl
BEQ
ERRHRD

#1,R0
(SWTU

TSERCODE
10020
ERR3

¥ ,RO
(SWTM
R1

READY

;YES = SKIP
;DEC WAIT COUNT
;SKIP IF 0

‘

READY

;DEC WAIT COUNT
;LOOP UNTIL TIME DONE
;SET CONDITION AFTER 5 SECDS

TSERCODE

11%
FANYERR,T.(S
109
10022.,.ERR6

SECONDS

JEX]Y
sTESY IF ANY ERROR SET
:NO = SKIP
.
;REPORT ALL ERRORS

ASSEMBLY

ROUTINES

1361 021224

1362 021230

1363
1364
1365
1366

1386
1387
1388
1389
1390
1391
1392
1293

1394
1395

1396
1207
1398
1399
1400
1401
1402
1403
1404
1405
1407
1408

021264
021266
021272

012604
012601
012600
0126C3

005737

001403
063716
000207
017616
000207

003142
002720
000002

9-FEB=79 19:23:55 PAGE

11%:
108:
9%:

002704

002720
002720
000000

99%:

021274

021276
021302
021304

021312
021320
021324
021326

021330

010346
013703
005723
016663
162763

010337
010046
010546
004737
021364
013703

021334
021336
021342 ~012705
021346 006203
021350 005305
021352
001375
021354 042703
021360 010337
162737
021364
021372 012605
012600
021374
021376
012603
021400 005737
021404
001403
021406
063716
021412 000207
021414
017616
021420
000207

021424
021430
021432
021440
021446

1415
AL 021452

1417 021460
1418 021464

000002
000004
002704

002754
000007

6%:

002704

65%:

EgRSUl,(SP)

MOV

RTS

(WHERE

002306
N

000002

002720,

99%

a(SP), (SP)

ERROR RETURN

:YES = SK}P

;ADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS

PRESENTLY

IN CURCYL.
R3,-(SP)
SSINDX,R3

POSITIONED)

AND

STORES

CYLINDER

:STORE REGISTERS
;:GET SUBROUTINE INDEX

(R3)+

;BUMP

FOR NEXT

ENTRY

PC.,XRDHD

;DO READ HEADER

MOv
MOV

HOWRD1,R3
#7,RS

;GET HEADER WORD
:SET SHIFT COUNT

DEC
BNE

RS
4%

SUB
MOv

#2,SSINDX
(SP)+,RS

;STORE AS CURRENT CYLINDER
;REMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGISTERS

ERRSWI

;TEST

EgRSUI.(SP)

;ADD IN ERROR RETURN

ASR

BIC
MOV

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

;SHIFT

#177000,R3
R3,CURCYL
(SP)+,RO
(SP)+,R3

TO RIGHT

JUSTIFY

ERROR RETURN

99%:

MOV

a(SP), (SP)

VERIFY POSITION ROUTINE. READS A HEADER (USING GETPOS) AND

RTS

CHECKS HEADS ARE

;TEST

égz

MOV

;RESTORE

2(SP),SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
sADJUST 1T TO CALLING LOCATION
R3,SSINDX
;STORE IT BACK

VERPOS: MOV
MOV
1571
MOV
SUB
MOV

000002
000004
002704

REGISTERS

99%

3
002306

;RESTORE

MCV
SUB
MOV

:?2

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

BEQ

002720
000000

;DEC FOR DOUBLE ERROR REPORT
sCLEAR FOR ERROR ERROR RETURN
;REMOVE ENTRY FROTMM SUBROUT STACK

“GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER

18T

021274

3?2

MOV
MOV

002720

002704

ERRSWI

MOV
MOV

020020

177000
003006
000002

1871

MOv
MOV
MOV
MOY

151

002306
002306

SEQ 0084

ERRCNT
ERRSWI
#2,SSINDY

.
NUMBER
GETPOS: MOV
MOv

002704

3-28

DEC
(LR
SUB

BEQ

1409 021422

1410
16411
1412
1413
1414

162737

D00
O=-0000
N
—rN
ONNOWVWNO
WWNSN
WO NN
e
eL
R, 1= s S T
ONN
NWWWwWwWOo

W-

gwwwwwwwwwwww
OO

e
i
il enlh
D
il
il
D
il
il
il
il

W W N=0O 0~V

0o Co

w
NNNNNNNN N~

021234
021242
021244
021246
1367 021250
1368 021252
1369 021256
021260

005337
005037

MACRO v03.01

;YES = SKIP

;SET ERROR RETURN ADDRESS

POSITIONED AT

NEW CYLINDER

(CURCYL

= NEWCYL),

R3,=(SP)
;STORE R3
SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
sADJUST 1T TO CALLING LOCATION
R3,SSINDX
;STORE 1T BACK

#2,ERRSW]

PC,GETPOS

:SET FOR NO ERROR RETURN
;GET

POSITION

ASSEMBLY

MACRO v03.01

ROUTINES

9=FEB=79

19:23:55 PAGE

3-29

737

701
737
703
704
704

021772

000002
000004
002704

002306
002306

000002
000050

002720

100000

003746
002730
000006
000010
002734
002000
002740

000020
002742
002740
000200

002706

002736
002736
002736

002742
000004
000002
000000

—

012603

002736
077777
000200

SUB

#2,SSINDX

MOv
1S1

ADD
RTS
MOV
RTS

7%:

;CLEAR FOR ERROR ERROR RETURN
;REMOVE

ENTRY

FROM SUBROUT

sADD

IN ERROR RETURN

a(SP), (SP)

;:SET

ERROR RETURN ADDRESS

ggRSUl.(SP)

BIS

#HDSEL ,L.DA

MOV
MoV

JSR

000000

IS NEW (YL

;RESTORE R3
;TEST IF ERROR RETURN
;YES = SKIP

181

BIT

6%:

(YL

(SP)+ ,R3
ERRSWI
99%

L.BA
L.DA
DESHD

BNE

000000

ERRS

;CHECK TF CURRENT
sYES = SKIP

STACK

TSA?BA%% HEADERS ROUTINE. 40 HEADERS ARE READ AND STORED
UFF.,
MOV
R3,=-(SP)
;STORE REGISTERS
MCv
SSINDX,R3
;GET SUBROUTINE INDEX
151
(R3)+
;BUMP IT FOR NEXT ENTRY
MOv
2(SP),SUBSTK
(R3) ;INSERT THIS CALL
#4 ,SUBSTK(R3)
SUB
;ADJUST IT TO CALLING LOCATION
MOV
R3,SSINDX
;STORE IT BACK
MOV
RO,=(SF)
MOV
R1,=(SP)
Mov
R& ,=(SP)
MOV
#2 ,ERRSWI
:SET FOR NO ERROR RETURN
MOV
#40. ,R1
:SET HEADER COUNT
:
#HDR4O ,OPFLAG
;SET 40 HDR OP FLAG
BIS
#1BUFF ,R3
;SET POINTER TO STORE HDRS
MOV
MOV
RLEBAS R4
;GET BASE ADDRESS
ADD
#RLMP R4
;MAKE 1T POINT TO MP REG
MOV
#10,L.CS
:LOAD FOR READ HEADER, NO INTERRUPT
RLDRV,L.CS
: INSERT DRIVE NUMBER
BIS
#B1110,L.CS
;CLEAR
FOR DRIVE & = 7 SPEC'D
BIC

BEQ

3%:

10022., ,ERRR
TSERCODE
10022

ERRSWI

CLR
(LR

017306

1466 021742

021746
021754
021756
021760
021762
021766

RDALHD:

002742
003014

1464 0217%2
1465 021734
1467
1468
1469
1470
1471
16472
1473

99%:

002704

021542
021544
021550
021552
1440 021560
1441 021566
1442 021572
1443 021574
1444 021576
1445 021600
1446 021606
1447 021612
16448 021620
1449 021626
1450 021630
1451 021634
1452 021642
1.3 021650
1454 021656
1455 021662
1456 021666
1457 021672
1458 021674
1459 021702
1460 021710
1461 021716
1462 021724
1463 021726

000000

1435
16436
16437
1438
1439

01766
000207

NEWCYL,CURCYL
1%

.WORD
(LR

BEQ

002720

Fp—

143%2
143

021540

002704

002720

LRl

1431

000002

012603
005737
001403
063716
000207

1426
1427
1428
1429
1430

162737

1%:
65%:

1425

(MP
BEQ

TRAP
.WORD

002720

1424

003006

ERRHRD

023446
012756
005057

1423

003004

104443

1422

021476
021500
021502
021504
021510
021510
021516
021520
021524
021526
021532
021534

023737
001405

N NWNNNINOOOONO NVWD

619 021466
620 021474
62\ 021476

jelelelelsleoleleleleloPHelelele]

—

SEQ 0085

65%

MOV
MoV

BIT
BNE
DEC

BNE
JSR
JSR

MOV

;CLEAR BA
;CLEAR DA
;TEST IF HEAD 0

L.DA,RLDA(R?)
L.BA,RLBA(R?)

:YES = SKIP
JELSE INSERT HEAD 0
:LOAD RLDA REG
;LOAD RLBA

(YES = SKIP

L.CS,RLCS(R2)

;LOAD RLCS REG

#CRDYMSK,RLCS(R2)

PC,RDYCHK

#77777.R0

:ELSE

CONTROLLER READY

CHECK READY

SSET COUNT FOR WAIT

#CRDYMSK,RLCS(R2)

sTEST

;CHECK

THAT

;VES = SKIP

OPERATION COMPLETED

RO
7%

:DEC COUNT
SSKIP IF NOT

(SP)+ R}

;ELSE WAIT FOR TIMEOU!
;GET RESULT MESSAGE POINTER

PC,READRL
PC,WALITIN

TELSE

GET

YET 0

ALL REGISTERS

NPT

RSSEMBLY

ROUTINES

1474 021774

1475
1476
1477
1478
1479

021774
021776
022000

022002
022006
022010
022014
022016

022016
022020

1480 022024

1481 022030
1482 022032
1483 022034

1484
1485
1486
1487

~
~N

FORURNURNUNY
R
b ittt et s et et et et O (==
VWE W=D
OO0
NO VWS W -0
0 oo~

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

ERRHRD

104443

023451
011526
005037
000416
005737
100006

104443
023452
012030
005037
00040%
011423
011423
011423

005301
001334

162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

TRAP

002720

002746

8%:

002720
12%:

000002

002704

65%:

002720
002720
000000

99%:

10025
ERR1
ERRSW]
65%

1.CS
12%
10026., .ERRG

T$ERCODE

.WORD

ERRG

ERRSWI
65%

MOV
DEC
BNE
SUB

(R&4),(R3)+
R1

MOV
MOV

MOV
MOV
MOV
MOV

R1S

MOV

RTS

;CLEAR FOR ERROR RETURN
;TEST

FOR ANY ERRORS

. iND = SKIP

10026

CLR
BR

GENERATE

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

6%
#2,SSINDX
(SP)+ R4
(SP)+,R1
(SP)+,RO
(SP)+ ,R3

;CLEAR FOR ERROR RETURN

;:STORE HEADER WORDS
;DEC HEADER COUNT
;REMOVE ENTRY FROM SUBROUT STA(K

sRESTORE

REGISTERS

ERRSWI
99%
ERRSW], (SP)

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

a(SP),(SP)

;SET ERROR RETURN ADDRESS

DATA ROUTINE.

PATTERN TO BE

GENERATED

IS GIVEN

IN THe WORD FOLLOWING THE CALL. 128 WORDS ARE GENERATED
IN OBUFF.
3
DATGEN: MOV
R1,=(Sk)
;STORE REGISTERS
004346

R3,-(SP)

MOV

#OBUFF
R

ASL

MOV

(R3),(R1)+

MOV

R4 ,=(SP)

(RS)+,R4

PATTBL (R4) ,R3

BEQ

BEQ
(mp
BEQ

5%
RG,#8.
3%

3%:

BLT
181

6%
(R3)+

5%:

MOV
MOV
o
MOV

#13, ,Ré
#OBUFF ,R3
8%
#OBUFF RS

(mMp

0000290

(mp

000015
004346
004346

MOV

002262

—

SEQ 0086

10025.
., ERR1

TSERCODE-.

TRAP

181
BEQ
ADD

000010
o

.WORD
.WORD
(LR
BR
1s1
BPL
ERRHRD
LWORD

127777

~N
~N

—

- —
il
-

RN LW RN LW AN RN AW

1
1

i
il
D
il
s

AR Al ARV LN RN LN LN
b

022036
022040
022042
022044
1488 022052
1489 022054
1490 622056
1491 022060
1492 022062
1493 022066
1494 022070
16495 022074
1496 022076
1497 022102
1498
1499
1501
1502
1503
1504 022104
18G5 022106
1506 022}

MACRO v03.01

———— --—1‘

MOV
MOV

(R3),#-1

R4, %16,
(R3)+,(R1)+
(R3)+,(R1)+

:SET POINTER TO OBUFF
;GET DATA PATTERN SELECTOR
;ADJUST IT FOR INDEXING
;GET ADDRESS OF PATTERN
;MOVE FIRST PATTERN WORD

sSKIP IF

PATTERN IS O

;CHECK IF PATTERN IS ALL 1'S
;YES = SKIP
;TEST IF PATTERN 5
:YES = SKIP
;(HECK ]F PATTERN 9 OR 10
:NO = SKIP
:BUMP SOURCE POINTER
;MOVE

TWO MORE

WORDS

FORM SOURCE

:SET COUNT
JRESET POINTER
JELSE

SET OBUFF

AS PATTERN SOURCE

e -

megm—

ASSEMBLY ROUTINES

1526 022200
1527 022202
1528 022204
1529 022210
1530 022212
1531 022214
1532 022216
1533 022222
1534 022226
1535 022230
1536 022232
1537 022234
1538 022236
1539 022240

15640 022242
1541
1562

108:

BR
181
MOV
MOV
DEC

BNE
MOV
MOV
MOV
DEC

BNE

MOV

MOV
MOV
RTS

000205

012701
022425
001052

1568 022366

6% :
7% :
8% :

004346
000160

010446
010546
052737
005037
012705
012704
012703

022344
022346
022354
022360
022362

9-FEB-79 19:23:55 PAGE

000617

010346
013703
005723
016663
162763
010337
010146

1563
1564
1565
1566
1567

MACRO v03.01

;
;

002704
-

000002

000004
002704

000001
002716
004346
003746
000001
000200

002306

MOV

SUB
MOV
MOV

5%:
7%:

000001
002720

002706

9%:

000200

000014
000002

:SET SOURCE TO TOP OF OBUSF
“SET COUNT FOR REST OF BUFFER

(R3)+,(R1)+
R4

108

(SP)+,P4

(SP)+.R3
(SP)+.R1
RS

*REPEAT

:RESTORE

PATTERN

IN BUFFER

REGISTERS

:RETURN

AND OBUFF.

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

:STORE R3
:GET SUBROUTINE STACK INDEX
:BUMP INDEX TO NEXT ENTRY

#4,SUBSTK(R3)
R3.SSINDX

:;ADJUST IT TO CALLING LOCATION
:STORE 1T BACK

26¢SP) ,SUBSTK(R3) ;INSERT THIS CALL
R1.=-(SP)

:STORE OTHER REGISTERS

MORE CE
#OBUFF ,RS
#1BUFF R4
#1,R3
#128. .R1

FLAG
:CLEAR MORE ERROR FLAG
:SET POINTERS TO DATA FOR COMPARE
.
;SET WORD COUNTER
:SET COMPARE COUNT

BNE

108

*ERROR = SKIP TO REPORT

CMP
INC

RS.=(SP)
#DATACMP,OPFLAG :SET DATA COMPARE

(RG)+.(RS)+

DEC
BNE
BIC
181
BNE
MOV

R1
5%
#DATACMP,OPSLAG
ERRSWI
15%
#128. R

MOV

R1,=-(SP)

MOV

15%:

8%
#OBUFF ,R3
#112. R4

CLR
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV

002704

;60 10 FILL
:BUMP SOURCE POINTER
:SET MOVE COUNT
“MOVE 15 WORDS INTO BUFFER

R4, =(SP)

PRINTB

010377
002716
007540
011475
000005

7%
(R3)+
#15. R4
(R3)+,(R1)+

MOV

MOV
BIS

002706

SEQ 0087

DATA COMPARE ROUTINE. COMPARES THE CONTENTS OF IBUFF
ERROR REPORTING 1S LIMITED BY SOFTWARE PARAMETER.

DATCOM: MOV
MOV
1s1

002306

3-31

:BUMP WORD COUNT

:DEC COMPARE COUNT
:LOOP IF NOT 0
:CLEAR DATA COMPARE FLAG
STEST IF ANY COMPARE ERRORS
INO = SKIP
:SET REPORT VALUE

WFMT27,#TCERR,MORECE ,#RESE6,R1

#RESEG,=(SP)
MORECE ,=(SP)
#TCERR.=(SP)

#FMT27.=(SP)
#5,=(SP)
SP,RO

EMT
ADD
SUB
MOV

CSPNTB
#14,5P
#2,5SINDX
(SP)+,RS

MOV
MOV

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

MOV

:COMPARE DATA

(SP)+.R&4

:REMOVE ENTRY FROM SUBROUT STACK
*RESTORE REGS

i
il
it
D
i
s
— o

4
5
6
7

NN NN N AN
OO0 NNNNN~N
~N [+ ]

ASSEMBLY ROUTINES

022642
022446
022450
022454
022456
9 022462
022464
022472
022474
3 022476
022476
022500
022502

1584
1585
1586
1587
1588
1589
1590
1591

022504
022510
022512
022514
022520

005737
001403
063716
000207
017616
000207
023757
002010
024445

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

002720
002720
000000
002716

104443

023463
013116
005037
022425
000712
005237
000707

022522
012737
1592 022530 000402
1593 022532
005037
1594 022536 012737
1595 022544
023737
1596 022552 001006
1597 022554
005737
1598 022560 001403
1599 022562
052737
1600 022570
000403
1601 022572
012737
1602 022600
010346
1603 022602
013703
1604 022606
005723
1605 022610 016663
1606 022616
162763
1607 022624
010337
1608 022630
1609 022632
1610 022634
1611 022636
1612 022642
1613 022644
1614 022650
1615 022654
1616 022660
1617 022664
1618 022670
1619 022672
1620 022676
1621 022700
1622 022704
1623 022710
1624 022714
1625 022716
1626 022720
1627 022722

99%:
013360

10%:

002720
002716

177777

003022
000112
002204

ERRSWI
99%
ggRSUl.(SP)

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

:?g

2éSP).(SP)

;SET ERROR RETURN ADDRESS

(MP

MORECE ,DCLIMW

;TEST

CMP
ERRHRD

=(R4) ,=(RS)
10035.,,.ERR10

;SET PTRS BACK TO ERROR WORDS
;REPORT ERROR

BGE

.WORD
.WORD

,
’

003022

13%:
:

(LR
(MP
BR
INC
BR

004000

002706

000114

003036

XREAD:

003014

002704
000002
000004
002794

10035
ERR10
ERRSWI
(R4)+,(RS)+
7%
MORECE
7%
l-;i}EHPI
Xw

TEMP1
#WIDATA,TEMP7
HLMTW,CURCYL
1%
DESHD
1%
#BADADD ,OPFLAG
#RDDATA,TEMP7

;CLEAR ERROR SWITCH
;:BUMP PTRS PAST ERROR WORDS
;00 NEXT COMPARE
;BUMP ERROR COUNTER
;D0 NEXT COMPARE
;SET

SPECIAL WRITE

FOR TIMING FLAG

sCLEAR SPECIAL WRITE FLAG
;SET FOR WRITE
;TEST IF CYLINDER 255 (BAD SEC)
:NO = SKIP
;TEST IF HEAD 1 (BAD SECTOR FILES)
:NO = SKIP
;SET BAD ADDRESS FLAG

XREADG:

MOV

R3,=(SP)

181
Mov

(R3)+
:BUMP TO NEXT STACK ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL

MOV
MOv
MOV

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

002306
002306

MOV

MOv
SUB
MOv

zg:

002009
000004

3%:
4%:
5%:

SSINDX,R3

#4,SUBSTK(R3)
R3,SSINDX

;SKIP TO EXECUTE

;SET FOR _READ

;STORE R3

:SET SUBROUTINE INDEX

;ADJUST TO POINT TO CALL
;STORE 1T BACK
;STORE OTHER REGISTERS

PC.RDYCHK

:CHECK IF DRIVE READY

MOv
MOV
BIS

#L.CS,R3
TEMP7, (R3)
RLDRV, (R3)

;GET ADDRESS OF LOAD REGS
:SET COMMAND
s INSERT DRIVE NUMBER

MOV
MOV
MOV
ASL

#OBUFF ,(R3)+
CURCYL, (R3)
#7,R4
(R3)

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

BNE
181

5%
DESHD

BIC
BIT
BEQ
ggv

003746

XREADG

COMPARE ERRORS LIMIT EXCEEDED

002736
003036
002734

003014

TSERCODE

;YES = SKIP

1%:

017306

004346
003006
000007

13%

WRITE AND READ DATA ROUTINE.

XWRITT: :gv

XWRITE: CLR
XWRIT1: MOV
(MP
BNE
187
BEQ
BIS

003036
003006

SEQ 0088

187
BEQ
:?2

TRAP

3-32

DEC

#B1T10,(R3)
#BIT2,(R3)+
3%
:}BUFF.(RS)*

:CLEAR FOR DRIVE 4 = 7 SPEC'D
;TEST IF WRITE DATA
;YES = SKIP
;ELSE SET BA FOR READ

Ré&

;TEST

1F HEAD 0

MACRO v03.01

ASSEMBLY ROUTINES

1628 022726
1629 022730
1630 022734
1631 022740
1632 022744
1633 022750
1636 022752

1635
1636
1637
1638
1639

022756
022764
022766
022774
023000
023000
023002
023004

1640 023006
1641 023012
1642 023014
1643 023020
1644 023024
1645 023026
1646 023032
1647 023036
1648 023042
1649 023046

00 1
2
3
2
005
001
2
2
1

2
2

014362

104443
023456
011526
000443
032737
001031
012703
012704

1660 023120

1661
1662
1663
1664
1665
1666
1667
1668
1669

023120
023122
023124
023126
023132
023136
023140
023146
023150
023152
023154
023160
1
023160
023 1 62

023 16

1670 023166

177777
004000

002706

173777

002706

010272

00271¢C
003022

023070
023072
023074
1655 023076

1659 023114

7%:

8%:

2%:

000006
000004
000002
000000

108:

005670
002710
015142

7%
FHSMSK , (R3)
DESSEC, (R3)+
#177600,(R3)
TEMP1
8%
#177777,(R3)
#BADADD ,OPFLAG
2%

:YES = SKIP
;SET FOR HEAD 1
s INSERT DESIRED SECTOR
: INSERT WORD COUNT
;CHECK IF SPECIAL WRITE FOR TIMING
:NO - SKIP
;ELSE SET FOR 1 WORD TRANSFER
;TEST IF BAD ADDRESS FLAG SET
:NO - SKIP

MoV
ERRHRD

#MWRTAB,R3
10032.,,ERRI

;SET RESULT MESSAGE POINTER

002746

14%:

007561
010464

104443
023460

011760
012701
004737
023206
032737
001011
005301
001367
012704
104443
023461
011760
005037

BNE
MCv
MOv
MOV
MOv

65%
(R3) ,RLMP(R2)
=(R3),RLDA(R2)
=(R3) ,RLBA(R2)
=(R3) ,RLCS(R2)

CLR
1§71

000001

010475

17%:
002746

THIS FLAG

;CLEAR ALL FLAGS

DONE
TEMP1

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

WAITUS

#3000.

;WAIT 300MS FOR INTERRUPT

EMT
181
BNE
JSR
MOV
ERRHRD

(SwTU
DONE
14%
PC,WAITIN
(SP)+,R3
10030., ,ERRT

sCHECK IF INTERRUPT
:YES - SKIP
;WAIT FOR INTERRUPT
:GET RESULT MESSAGE

.WORD
.WORD
BR
BIT
BNE
MOV
MOV
ERRHRD

10030
ERRI
64%
#DRDYMSK,T.CS

;TEST IF DRIVE READY

#CAFDT R4

:SET RESULT MESSAGE
;CONDITION AFTER DATA XFER

.WORD

10032
ERRS
#50. ,R1
PC,GSTAT

MOV

.WORD
Mov
gzg
BIT
BNE
DEC

BNE
MOV
ERRHRD
TRAP

002720

;CLEAR ALL BUT

TSERCODE

10032
ERR1
OPFLAG
64%

TRAP

000062
015342

#*CBADADD,OPFLAG

.WORD
.WORD
CLR
BR

TRAP

000001

SEQ 0089

BEQ
BIS
BIS
MOv
TST
BEG
MOv
BIT
BEQ
BIC

002706

012700
104027
005737
001007
004737
012603

1656 023100
1657 023106
1658 023110

000100
003G16
177600
003022

TRAP

023046
023052
1650 023054
1651 023060

1652 023062
1653 023066
1654 023070

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

.WORD
.WORD
CLR

#3000.,R0O

TSERCODE

20%
#MDRDY ,R3

10032.,,ERRS

:YES =

SKIP

TSERCODE

#DRDYMSK,T.CS
20%
R1
17%
#C5SEC,R4
10033., ,ERRS
TSERCODE

10033
ERRS
ERRSWI

;SET WAIT COUNT FOR 5 SECDS
:GET DRIVE STATUS
;TEST IF DRIVE READY NOW
:YES - SKIP
:DEC WAIT COUNT
:LOOP IF NOT TIME DONE
;SET CONDITION 5 SECONDS

;CLEAR ERROR SWITCH

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB-79

19:23:55 PAGE

3-34

SEQ 0090
1671 023172
1672 023176
1673 023200

023200
023202
023204

005737
100005

104443
023457
012030

1676 023206
1675 023212
1676 023220
1677 023222
1678 023224
1679 023226
1680 023230

005037
162737
012604
012601
012600
012603
005737

1682 023236
1683 023242
1684 023244

063716
000207
017616

1681 023234

}ggz 023250

1687
1688

001403

000207

1689 023252
1690 023254
1691 023256
1692 023260
1693 023264
1696 023270
1695 023274
1696 023276
1697 023302
1698 023306
1699 023310
1700 023314
1701 023320
1702 023322
1703 023324
1704 023326

001431
013700
012701
006300
005301
001375
005737

1707
1708
1709
1716
1711
1712
1713
1714
1715
1716
1717
1718

053700
022300
001402
101005
000774
012737
000403
020327
003342
012603
012601
012600

1705 023332
1706 023334

1719
1720
1721
1722
1723
1724

023340
023344
023346
023350
023352
023354
023362
023364
023370
023372
023374
023376

023400
023404
023406
023412
023414
023420

010046
010146
010346
005037
012703
022713
001005
012703
022713

001402
052700

005737
001003
062716
000207
017616
000207

002746

002720
000002

20%:

002704

TST
BPL
ERRHRD

1.CS
65%
10031.,,ERR6

;CHECK IF ANY ERROR
:NO - SKIP

(LR
SUB
MoV
MoV
MOV
MOV
1ST

ERRSWI
#2,SSINDX
(SP)+,R4
(SP)+,R1
(SP)+,RO
(SP,+,R3
ERRSWI

;CLEAR ERROR SWITCH
;REMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGISTERS

99%:

ADD
RTS
MOV

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

:
:

BAD SECTOR CHECK ROUTINE. CHECKS IF SECTOR SPECIFIED IN CURCYL,
DESHD, AND DESSEC IS LISTED AS BAD IN THE BAD SECTOR FILES.

64%:
658:

002720

BEQ

002720
000000

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

TRAP
.WORD
.WORD

99%:

RTS

TSERCODE
10031
ERR6

99%

MOV
MOV
MoV
CLR
MOV
CMP
BNE
Mov
CMP
BEQ
MOV
MOV
ASL
DEC
BNE
187

RO,=(SP)
R1,=(SP)
R3,=-(SP)
BSFLAG
#FBSFIL,R3
#-1,(R3)
4%
#SBSFIL,R3
#-1,(R3)
20%
NEWCYL RO
#7.R1
RO
R1
5%
DESHD

B1S
CMP
BEQ
BHI
BR
MoV
BR
(MP
BGT
MOV
MOV
MOV

DESSEC,RO
(R3)+,R0
12%
15%
8%
#1,BSFLAG
20%
R3,#FBSFIL
2%
(SP)+ ,R3
(SP)+ ,R1
(SP)+,RO

BEQ
BIS

1§71
BNE
ADD
RTS
MOV
RTS

7%
#B176,R0

BSFLAG
99%
#2,(SP)
PC
a(SP), (SP)
PC

;TEST IF ERROR RETURN
;YES = SKIP

;ELSE ADD IN ERROR RETURN
;ADJUST FOR ERROR RETURN

:STORE REGISTERS

;CLEAR FLAG
;GET POINTER TO FACTORY FILE
;CHECK 1F ALL ONES
;NO SKIP TO TEST
;ELSE SET POINTER TO SOFTWARE FILE
;CHECK IF ALL ONES
:YES = EXIT
;BUILD HEADER OF ADDRESS IN QUESTION
;POSITION CYLINDER

;CHECK IF

HEAD 0

:YES - SKIP
: INSERT HEAD 1

: INSERT SECTOR
sCHECK THIS WORD IN FILE
:YES = EXIT,ERROR
;EXIT= NO ERROR
:SET ERROR FLAG
:G0 TO EXIT
;DONE BOTH FILES?
:NO GO DO SOFTWARE FILE
;ELSE RESTORE REGISTERS

: CHECK IF ERROR
;YES - SKIP
;ELSE BUMP ERROR RETURN
;:SET FOR ERROR RETURN

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

SEQ 0091

VeN
W~

—
o

£
=

020437
003761

000002

062706
042737
013701
042701
022701
(01003
052737
022701

000010
030000
002736
177741
000006

PRINTB

W#FMT9 _#SEQMES

MOV
MOv
MOV
EMT
ADD
PRINTB

NEMT9,-(SP)
#2,-(SP)
SP,RO
C$PNTB
¥6,5P
#FMT16,SUBSTK(R4)

MOV
MOV
MOV

#EMT16,-(SP)
#2,-(SP)
SP,RO

ADD

#6,5P

MOV

ADD
CMP

1%:

BLE

PRINTB
MOV
MOv
MOV

MOV
MOv

EMT

002706

020000
000014

002706

020000

002706

002126
0605376
010575
600003

20%:
22%:

002742

INDEX 0

;SKIP IF 0
;SET INDEXER TO FiRST ENTRY
;PRINT ''SUBROUTINE

#SEQMES ,-(SP)

;PRINT

SUBSTK(R&) ,=(SP)

C$PNTB

CALL

SEQ"

CALLING LOCATION

#2.R4
R4, SSINDX

:BUMP INDEX
;CHECK IF ALL PRINTED

;LOOP IF NOT ALL PRINTED YET

#FMT4 ,ERHEAD ,#TSTLAB
#TSTLAB,-(SP)
ERHEAD,-(SP)
FEMTL ,-(SP)

;PRINT

ERROR HEADER

#3,-(SP)
SP.RO

CSPNTB

(MP

#6,R1

#17774641,R1
2%

;TEST

BIS
(MP

#SEEKOP ,OPFLAG
#12,R1

BIS

#RORWOP ,OPFLAG

BNE

CMP
BNE
BIS

PRINTB

20%

14, ,R1
22%

#RORWOP ,OPFLAG

OPMSGS(R1) ,=(SP)

MOV

#3,-(SP)

SP,RO
($PNTB
#10,SP

BIT

#DRSET,L.DA

BEQ

SEEK OPERATION

;NO - SKIP

ELSE SET SEEK FLAG
;TEST IF WRITE

:NO = SKIP

;SET RD OR WRT

;TEST IF READ
:NO - SKIP

FLAG

:SET RD OR WRT FLAG

;PRINT OPERATION

#MOPER ,=(SP)
#FMT1,=(SP)

MOV
EMT
ADD

(MP
BNE

#STRIP ALL BUT FUNCTION CODE

#FMT1,#MOPER,OPMSGS(R1)

MOv
MOv
MOv

000010
000004

SUBROUTINE

SEQUENCE

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

BNE
2%:

;TEST

1%
#2,Ré

TRACE

ALL

ADD
BIC
MOV

BIC

010000
000012

000010

R4 ,=(SP)
SSINDX

EMT

000006
000002
002704
006363
002714
010617
000003

104014

3%:

002306
011167

012746
013746
012746
012746
010600

MOv
151

MOv

000006

PRINTS SUBROUTINE

OPERATION BEING PERFORMED PORTION OF
ERROR MESSAGES.

BEQ
MOv

007430
011014
000002

[0 ) o PO R
b

RPTOP:

002704

000002

O—=DO0O

00O

-o

010446

—

——

d e

023422
023424
023430
023432
023436
023436
023442
023446
023452
023454
023456
1735 023462
023462
023466
023472
023476
023500
023502
023506
023512
023516
023520
023520
023524
023530
023534
023540
023542
023544
1740 023550
1741 023556
1742 023562
1743 023566
1744 023572
1745 023574
1746 023602
1747 023606
1748 023610
1745 023616
1750 023622
1751 023624
1752 023632
023632
023636
023642
023646
023652
023654
023656
1753 023662
175 023666
17
1756 023676

3-35

REPORT OPERATION ROUTINE.

OCO

S NNN—=O
000 ~NWn

D e

NNNNNNNNN
WWWWWNI
NN N

ASSEMBLY ROUTINES

R1,#64
4%

sCHECK TF GET STATUS
!NO = SK]P

:NO = SK]IP

;TEST

RESET

INCLUDED

FLAG

AND

ASSEMBLY

ROUTINES

700
704
706
714
716
722
726

012701
000436
032737
001424
013704
012701
032704

001003
005721
006204
000772
016146
012746
012746
010600
104014

1769 023766

1773
1774
1775
1776

024002
024006
024012
024016
024020
024022

024026
024030
024036
024040

024040
024044
024050
024054
024060
024064
024070
024074
024100
024104
024110
024112
024114
1777 024120

007777

MOv

002706

002706
000020
000001

0
0O
0
0

5%:

6%:

002126
010611
000002
000006

002126
010611
000002

010000

10%:

007371
003006
007402
011364
000007

PRINTB
MOv
MOV
MOv
MOV

MOV
PRINTB
MOV
MOv
MOV
MOV
EMT
ADD
BR

BIT
BEQ

PRINTB
MOv
MOv
MOv
MOV
MOv
MOv
MOv
MOV
MOv
MOv
MOv

007364
003010
007356
003002
007407
011035
000011

003016
007375
003014

~ASR
BR

BIT
BEQ

003014
007371
003012

000024
020000

01
01
01
01
01
01
01
01

002706

EMT

002706

15%:

#COMPOP ,OPFLLAG

;TEST

#B1100,R4

;CHECK

EMT

9%:

;SET

BNE

BIT

ADD

Bl
BEQ

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOv
MOv

SEQ 0092

;;6,R1

MOV

ADD

002706

3-36

8%
OPFLAG,R4
#20,k1

181

000006

01
01
01
01
01
01
01
01
01
01
01

BR
BIT
BEQ

MOV

000050

1778 024126
1779 024130

024130
024134
024140
024144
024150
024154
024160
024164
0264170

000016

100000

1770 023774
1771 023776

1772 024002

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

TO PRINT WITH RESET
IF

ANY

OTHER OPERATION

:NO = SKIP
;SET UP TO DETERMINE WHICH- ONE
;PRESET THE POINTER
THE

BIT

s1v SEY - SKiP
;BUMP POINTER

#EMT2 ,0PMSGS (R}
OPMSGS(R1) ,=(SP)
#EMT2,=(SP)
#2,-(SP)
SP,RO
($PNTB

#6,SP
#HDR4O,OPFLAG
;TEST IF 40 HEADER OPERATION
108
:NO - SKIP
:
#50,R1
;ELSE PRINT [T
#FMT2 ,0PMSGS(RT)

OPMSGS(R1) ,=(SP)
NEMT2,-(SP)
#2,-(SP)
SP,RO
C$PNTB

#6,SP

15%

WSEEKOP,OPHLAG

:SKIP
;TEST

SEEK

;TEST

READ

15%
;NO - SKIP
#EMT13, #FRMWD,OLDCYL ,#DIFWD ,DESDIF ,#SGNWD ,DESSGN, #HDWD ,DE SHD
DESHD,=(SP)
#HOWD
, = (SP)

DESSGN,=(SP)
"#SGNWD ,-(SP)
DESDIF ,=(SP)
#DIFWD,=(SP)

oLoCYL,=(SP)

¥FRMWD ,~(SP)

#FEMT13,-(SP)
#11,-(SP)

SP,RO
($PNTB

'24.59

#RORWOP ,OPFLAG

OR WRITE

SET

17%
:NO = SKIP
#FMT22 ,#CYLWD,CURCYL
, #HDWD ,DESHD ,#SECWD ,DESSEC
DESSEC,-(SP)
#SECWD,-(SP)

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

CURCYL ,=(SP)

#CYLWD,=(SP)

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

SP,RO

ASSEMBLY ROUTINES

024172
026174
024200
024204
024206

MACRO v03.01

104014

062706
004737
012604
000207

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

000020
024652

17%:

PNNOOO
=S ONNNN
=

RPTRES:

~
o~

346

103

146
746
746

NOO~N
O—=Or
osroo

ONOO =ttt

DoOoC0COo

146

OO0 —=00000

024210
024212
0246214
024216
024222
026224
024224
024226
024232
024236
024242
024244
024246
1792 024252
1793 024256
1794 024260
1795 024264
1796 024270
1797 024272
1798 024276
1799 024300
1800 024302
024302
024304
024310
024372
024316
024320
024322
1801 024326
024326
024330
024334
024336
024342
024344
024346
1802 024352
1803 024356
1804 024360
024360
024362
024366
024372
024376
024400
024402
1805 024406
1806 024410

——y

127

002764

005405
010602
000003
000010
010141

011021
010134

011027

MOV
RTS

.
3%:

EMT
ADD
CMP
BEQ

#10,SP
(R1) ,#MNDRST

MOV
CMP
BNE

MOV

DEC
BEQ

SP,RO
CSPNTB

MOV

#10,SP
R4, #RESEL, (R1)+
(R1)+,=(SP)

EMT
ADD
SUB
BEQ

CSPNTB
#10,SP

MOV
MOV
MOV

#RESES,=(SP)
#EMT1,-(SP)
#3,-(SP)
SP,RO
($PNTB
#10,SP

MOV

EMT
ADD
MOV

MOV

;REPORT SB VALUE

WRESEL ,-(SP)
R4 ,=(SP)

#3,-(SP)

PRINTB
MOV

6%:

#3,-(SP)

MOV

)

(R1)+,-(SP)
#RESE3,-(SP)

MOV

010372
010575
000003

;TEST IF MESSAGE IS NO DRv STATUS
:YES = SKIP REST OF REPORT
FEMT11,R4
;PRISET FOR FORMAT 11
(R1)+,#MCYLOC
;CHECK IF REPORTING CYLINDER LOC
3%
:NO = SKIP
NEMT12,R4
;ELSE CHANGE TO FORMAT 12
R3
:DEC PARAM COUNT
6%
J1F 0 = EXIT
R4, #RESE3, (R1)+
:REPORT IS VALUE
6%

R&,=(SP)

-PRINTB
MOV

000010
000002

sCLEAR PARAM TABLE
;RESTORE Ré

SP,RO
(SPNTB

MOV

EMT
ADD

000003

(SP)+,R4
PC -

#3,-(SP)

MOV

010365

PC,CLRPARM

MmNy

MOV

000010

($PNTB

#20,5P

PRINTS REASON PORTION FOR ALL ERROR REPORTS.
R1,=-(SP)
MOv
;STORE R1
MOV
R3,=(SP)
;STORE R3
MOV
R4 ,=(SP)
;STORE R4
MOV
#RESPARM,R1
;GET START OF PARAM
MOV
(R1)+,R3
;GET NUMBER OF PARAM
FEMTT1.1,#MRSLT,
PRINTB
(R1)
sPRINT NAME
MOV
(R1),=(SP)
MOV
FMRSLT,=(SP)
FEMT1.1,-(SP)
MOV

PRINTB
MOV

000003

SEQ 0093

REPORT REASON ROUTINE

MOV

010361

000010

ADD
JSR

3-37

SP,RO

;DEC PARAM COUNT

J1F O = EXIT
sREPORT CONDITION

WEMT1,#RESES, (R1)+
(R1)+,=(SP)

(SP)+ R4

(SP)+,R3

;RESTORE

REGS

ASSEMBLY

ROUTINES

1807 024412
1808 024414
1809
1810
1811
1812 024416
024616
024420
026426
0264430

024460

012746

RTS

012746
012746

RPTREM:

002735
006033
002730
006022
010630
000005

007371
007402
006136
006124
006131
006117
010650
000007

012746
012746
012746
012746
012746
010600
104014
062706

0264530
024534
024540
024544
024550
024556
024560
024564
024566
024570

013746
013746
013746
013746
012746
012746
012746
010600
104014
062706

002744
002740
002742
002736
006143
010762
000006

024574
024600
024604
024610
024614
024620
024624
024630
024634

013746
013746
013746
013746
013746
013746
012746
012746
012746

003014
003006
002754
002750
002752
002746
006156

1216 024574

024640
024642

010600
104014

1817 024650
1818
1819

000207
3

024644

1820 024652

062706

010546

(SP)+,R1

SEQ 0094
;RETURN

PRINTB

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

(LR

-(SP)

MOV

000014

3-38

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

024474
024500
0264504
0264510
0264514
024520
* 024522
024524

1815 024530

19:23:55 PAGE

MOV

:
;

024634
024440
024444
024450
024452
024454

024464
024470

9-FEB=-79

012601
000207

005048
153716
012746
013746
012746
012746
012746
010600
104014
062706

1813
1814 024460

MACRO v03.01

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

EMT
ADD

CSPNTB
#14,5P

PRINTB

WFMT6,#CSNAM,
#DANAM, #BANAM , SMPNAM, #CYLWD , #HDWD

REPORT RL11 REGISTERS

MOV
MOV
MCV
MOV
MOV
MoV
MOV
MOV
MOV

#HDWD
, - (SP)
#CYLWD,=(SP)
#MPNAM,
- (SP)
#BANAM,-(SP)
#DANAM,=(SP)
#CSNAM,-(SP)
#EMT6,-(SP)
#7,-(SP)
SP,RO

ADD

#20,SP

EMT

000020

PRINTB

EMT
ADD
PRINTB
MOV
MOV

C$PNTB
#16,SP

010712
000010

MOV
MOV
MOv
MOV
MOV
MOV
MOV

000022

EMT
ADD

MOV

‘

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

L.MP,=(SP)
L.BA,=(SP)
L.DA,=(SP)
L.CS,=(SP)
#LAB1,-(SP)
#FEM1B,-(SP)
#6,-(SP)

MOV

000016

C$PNTB

MoV
MOV
MOV
MOV
MOV
MOV
MOV

RTS

——

SP,RO

WFMT7,#LAB2,T1.CS,T.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)

NEMT7,=(SP)
#10,-(SP)
SP,RO

($PNTB
#22,5P
PC

>
CLEAR PARAMETER BLOCK FOR REPORTING
(LRPARM:
MOy
RS,=(SP)
:STORE

ASSEMBLY

1821
1822
1823
1824

1825
1826
1827
1828
1829
8B30

ROUTINES

024654
024660
024664
024666

024670
024672
024676

MACRO v03.01

9=FEB=79 19:23:55 PAGE

002764

000005

MOV

’2%:

002764

ENDMOD

F#RESPARM,RI1

CLR

’5,RS
(R1)+
RS

MOV

#RESPARM,
R

DEC
BNE

MOV
RTS

024700

024702

MOV

3-39

(SP)+ RS
PC

SEQ 0095

;GET ADDRESS OF BLOCK
;SET C(OUNT
;CLEAR WORD
;DEC COUNT
;LOOP UNTIL O

SRESCT POINTER
;RESTORE RS

CIRLJAG RLO1/72 DR

TST

2 MACRO v03.01

9=fEB=79

19:23:55 PAGE

&
SEQ 0096

TITLE

CZRULJAD RLO1/2 DR

TST

SaE

CIRLJAGC RLOV/2 DR TST
1

& 024702

5 0264710
6 026714

13
164
15
16
17
18
19

20
21
22
23

24
25
26
27

0264720
024722
024726
024730
024736
02473%6

024736
024736

0264740
0264746
024752
024754
024760
024766
024770

BGNMOD

+SBTTL
8GNTS?T

012737

004737
0047357

025112
004737
005005
004737
025112

104002

012737
004737
025066
012701
032762
001413
004737

024774
025066
024776 012703
025002 012704
025006
025006
104443
025010 000455
025012 011710,
025014
000424
025016 005301
025020 001404
025022

025022
025026

§7 025060
025060
025062
025064
I8 025066
19 025066

&0 025074

177777
016204
000003
000001

JSR
JSR °

11965%
JSR
(LR

JSR
11965%

SEQ 0097

*+QUTER GUARD BAND DETECTION
TR ST 9
#P2103E ,ERHEAD

;SET

000000

8%:

007561
010434

004737
025066

021274

005737
001403

003004

9% :

12%:

021026

003006

012756

012737

104003

02076
0295100
6/ 025102

104010
000012
004737

000002

MOV
JSR
60%
MOV
BIT
BEQ
JSR

60%
MOV
MOV
ERRHRD
TRAP
.WORD
.WORD
BR
DEC
BEQ
WAITUS

ERROR HEADER

PC,TSTINT
PC,GSTATR

JINITIALIZE TEST
;CLEAR DRIVE

PC,CHOSHD
RS
PC,POSHDS

;GO0 CHOSE HEAD
;CLEAR FOR POSITION TO O
;POSITION HEADS

002720

15%:
60%:

ENDSUB

L10021:

;SET

PC,XSEEK

;D0 SEEK

”

#MDRDY,R3
#CT10MS R4
301.,,FERR4
TSERCODE
301
ERR4
60%
R1
12%
#10.

MOV

#150..,R1

JSR
60%

FOR GUARD BAND

SEEK

SEXIT TEST
;DEC WAIT COUNT
SKIP IF O

:LOOP

PC,RDYWALT

;WAIT FOR READY & REPORT

JSR
60%

PC,GETPOS

ERRHRD
TRAP
LWORD
.WORD

302.,.ERRB
T$ERCODE
302

ERRS

MOy

#2,ERRSWI

($ESUB

EM1
LWORD
JSR

(SESCAPE
L10020=-,
PC,SWAFHD

CURCYL
15%

1817

;SET NAME MESSAGE PTR
JSET CONDITION MESSAGE PIR
sREPORT READY ERROR

;SET WALIT

COUNT

FOR

;GET POSITION
:

15 MS

NOT READY

sCHECK 1F HEADS STILL AT O
JYES=SK]P
JELSE REPORT

CYLINDER ERROR

;INIT ERROR SWIT(H

EXIT

TEST

ERROR

;G0 SWAP TO WEAD

.1:

#3.,R1
;SET WAIT COUNT FOR 3MS
#DRDYMSK,RLCS(R2) ;TEST IF DRIVE READY
9%
sNO-SKIP
PC,GYTAT
sGET DRIVE STATUS

#10.,R0
($WTU

ESCAPE

017872

($BSUB

#-1 ,NEWCYL

MOV
EMT

1871
BEQ

104443
000456

T1::

EMT

015347

000226

025074
0250764

025076

MOV

v
1197%:

016746

012701

004737
025066

35 025052
36 02505¢

002714

017546

0uu012

30 025036
;; 025042

33 025044
34 025050

015274
015312

012700
104027

000753

2% 025032

006371

HRDWITST

*=TEST

BGNSUB

28 02503C

9=FER=79 19:23:55 PAGE

024702

2
3 024702
024702

7
8
9
10
11
12

2 MACRO v03.01

OR END TEST

CIRLJAD RLGY/Z DR TST

*TEST

2 MACRO v03.01

9=FEB=79 19-23:55 PAGE

*+OUTER GUARD BAND DETECTION

«3 025106
44 025110

65 025112
&6 025112

&7 025112
025112
025112

025112
000706

104001

17%:
11965%:

ENDTST
L10020:

17%
B

1197%

EMm?

(SETST

———

SEQ 0098
:ABORT RE TURN
SREDO TEST

15 025166
16 025172
17 025174

SBTTL

BOGNTST
oOoOoo

025322
104002

004737

025312

025176

103007

19 025200

013350
016746

BGNSUB

023737
001003
004737
000405
013737
005237

003006

016204

30 025246

004737
025312
012701
004737
025312

32 025250
33 025254

35 025256
36 025264
57 025266
38 025272

59
4«0
41
42
&3
&6

025274
025300
025302
025302

025310

025312
45 025320

025320
025320

46 025322
&7 025322

025%2¢

Eida

2%:

021274

*TEST

MOV
JSR
JSR
12065%
JSR
1S1

0 301

104020

20 025206
21 025210
22 025214
23 025216
24 025224
25 025230
26 025230
27 025234
28 025236
29 025242

002714

1 7 46

025174

18 025176

wru S~

0 6 07
| 5 74
1 5 12
O\I‘

025114
025114
025114
025122
025126
025132
025134
025140
025144
025146
025146
025150
025152
025156
025162
025164
025164
025164

~NO

S mro
=

—_—

—a

OOWONO
VNI W

-t

~ o

RLOV/2 DR TST 2 MACRO v03.01 9-FEB=79 i19:23:55 PAGE
*+INCREMENTAL FORWARD SEEK HEAD 0

1206%:

BEQ
EXIT
EMT
.WORD

SEQ 0099

*+INCREMENTAL FORWARD SEEK HEAD 0

s 88V &

#P2104E ,ERHEAD
PC,TSTINT
PC.GSTATR
PC,CHOSHD
DESHD

2%
1ST
CSEXIT
L10022-.

MOV
JSR
12065%

LOL IMW,RS
PC,POSHDS

EMT
JSR

($BSUB
PC,GETPOS

6C%

INLOOP
EMT
COINLP
BNCOMPLETE
5%
B(C
5%
cmp
CURCYL ,NEWCYL
5%
BNE

003004

14:1

;SET ERROR HEADER
SINITIALIZE TEST
;CLEAR DRIVE
;G0 CHOSE HEAD

sTEST IF THIS
;YES = SKIP

IS HEAD 0

;ELSE EXIT TEST

;CLEAR TO POSITION HEADS TO LOLIMIT

;POSITION HEADS

12.1:

;GET POSITION

;CHECK IF

IN ERROR LOOP

:NO = SKIP

;CHECK IF POSITIONED AT DESIRED LOC
:NO - SKIP
;gL?E SWAP NEW AND OLD CYLINDERS
: 5K
;

INC

NEWCYL

:BUMP FOR ONE CYLINDER SEEK

JSR

PC,XSEEK

;D0 SEEK

000226
021026

MOV
JSR

£150..R1
PC,RDYWAIT

;SET WAIT

004737
025312

021422

JSR
60%

PC,VERPOS

;GO VERIFY POSITON

032737
001406
004737
025312
004737
025312

000002

BIT
BEQ

WALLSEC MISWIW
11%

sNO=SK]P

JSR
60%

PC,VERHDR

:60 VERIFY HEADER

(mp

HILIMW NEWCYL

JCHMECK

MOV

#2 ERRSWI]

EMT

($ESUB

017632
003006
003004

003004

5%:
7%:

JSR

PC,ONSWAP

MOV

CURCYL ,NEWCYL

60%
60%

0133486

021542

JSR

60%

020440

013352

003004

000002

002720

11%:

60%:
ENDSUB

L10023:

12065%:
ENDTST

L10022:

BLO

PC,RDALMD

1206%

sPLACE

;WAIT

CURRENT

TIME

FOR READY

INTO NEW

15 MS

sTEST IF CHECK ALL SECTORS
;G0 READ ALL MEADERS

WILIMIT

:NO=LOOP
:INIT ERROR SWITCH

REACHED

CIRLJAC RLO1/72 DR TST 2 MACRO v03.01 9=FEB=79 16:23:55 PAGE
*TEST 2
*+INCREMENTAL FORWARD SEEK HEAD 0

025%22

104001

EmI

6=!

($ETST

SEQ 0100

CZRLJAD RLOY/2 DR TST 2 MACRO v03.01 9<FEB=79 19:23:55 PAGE
*TEST 3
*+ [NCREMENTAL REVERSE SEEK MEAD 0
1

LSBTTL

2 025324
025324
3 025324

012737

006437

5 025336
6 025342

004737
025532

015312

4 025332

7
8
9
10
11
12
13
14

025344
025350
025354
025356

025356
025360

025362
025366
025372
025374

025374
025374

15 025376
16 025402
17 025404

BGNTST
006?37

004737
005737
001402

104032
000152

013795
004737
025532

104002

004737
025522

025404

104020

025406

103007

18 025406

19 025410

023737

015274

002714

017546
003014

013352
016746

2%:

BGNSUB
021274

1216%:

003006

003004

31 025460
;g 025464

004737
025522

021422

34 025466
35 025474
36 025476
37 025502
38 025504
39 025510

032737
001406
004737
025522
004737
025522

000002

41 025512

023757

013350

003004

000002

002720

025530
025530
65 0255%2

103726
012737

104003

4«6 025532

0255%2
025532

:1FCY §

;SET ERROR HEADER

PC,GSTATR

:CLEAR DRIVE

PC,TISTIN?

JSR
181
BEQ
EXIT

PC,CHOSHD
DESHD
2%
1S7
CSEXIT
L10024~-.

EMT
LWORD

MOV
JSR
12165%

HILIMW,RS
PC,POSHDS

EMT

($BSUB

JSR
60%
INLOOP

003006
003004
016204

003004

5%:
7%:

000226
021026

002706

021542

020440
11%:

JINITIALIZE TEST

;G0 CHOSE HEAD
;TEST IF HEAD O SELECTED
JYES = SKIP
JELSE EXIT TEST
sSET TO POSITION HDS TO HILIMIT
;POSITION HEADS

135.1:

PC,GETPOS

sGET POSITION
sCHECK

IN ERROR LOOP

CSINLP

BCC

BNE
JSR
MR

5%
PC,ONSWAP
7%
CURCYL,NEWCYL
NEWCYL
PC,XSEEK

;PUT CURRENT INTO NEW
sDEC FOR ONE CYLINDER REVERSE SEEK
;SEEK TO IT

#150. ,R1
PC,RDYWAILT

:SET WALIT FOR 15 MS
;WALIT FOR READY

JSR
60%

PC,VERPOS

:VERIFY POSITION

BIT
BEQ
JSR
60%
JSR
60%

WALLSEC,OPFLAG
11%
PC,RDALHD

;TEST IF USE ALL SECTORS
:NO=SK]P
JELSE READ ALL THE HDRS

PC,VERHDR

sVERIFY THE HEADERS

cmMp

LOL MW, NEWCYL

sCHECK IF REACHMED LOLIMIT

MOV
DEC
JSR
60%
MOV
JSR
60%

EMT

CURCYL NEWCYL

1216%
#2 ,ERRSWI

($ESUB

END1ST

104001

13::

EMT

BLO
60%:
MOV
ENDSUB
L10025:
EMT
12165%:

L10024:

SEEK HEAD 0

#P2T0SE ,ERHEAD

JSR

CMP

017632

SEQ 0101
*+INCREMENTAL REVERSE

BNCOMPLETE

001003
004737
000405
013737
005337
004737
025522
012701
004737
025522

42 025520
4% 025522
46 025530

MOV
JSK
12165%

20 025416
21 025420
22 025424
23 025426
24 025434
25 025440
26 025444
27 025446
28 025452
gg 02545¢

40 025512

«TEST

(BETST

sNO - SKIP

;CHECK

POSITIONED AT DES LOC

:NO = SKIP
JELSE SWAP OLD AND NEW CYLINDERS
:SK1P

:NO = LOOP
sINIT ERROR SWITCH

RLOY/2 DR TST
V-

2 MACRO v03.01 9-FEB-79 19:23:55 PAGE 8
*+INCREMENTAL FORWARD SEEK HEAD 1

s
s
>
s
e
—_—

£~

L
wn

12737

VNS WN~“O VNV

.SBTTL
BGNTST

004737
004737
0257586
005037
013705
004737
025756
012737
032737
001405
005737
001002

006453
015274
0153i2

002714

003014
013350
016746
000001
019000

003014
013346

104032

004737

2%:
BGNSUB

021274

1227%:

104020
103007

023737
001003
004737
000405
013737
005237

35 025710

37 025712
025720
39 025722
02572¢

41 025730

025734
025736
025736
025744
46 025746
47 025754
025754
025754
48 025756

003006

004737
025746
012701
004737
025746
004737
025746

016204

032737
001406
004737
025746
004737
025746

000002

003004

5%:
7%:

;SET HEAD TO0 0

12265%
MOV
BIT

PC,POSHDS

sCLEAR FOR POSITION HDS TO LOLIMIT
;POSITION HDS

#1,DESHD
#HEADLM MISWIW

;TEST

HEAD SPECIFIED

187

HEADW

STEST

EMT

($BSUB

BNE
EXIT
EMT
LWORD

JSR
INLOOP

021422
013346

020440

000002

002720

PC,GETPOS

9%:

60%:

ENDSUB

L10027:
12265%:

CURCYL ,NEWCYL
5%

IS HEAD 0

:NO - SKIP
;ELSE EXIT TEST

T4.1:

:GET CURRENT POSITION

;CHECK

IN ERROR LOOP

:NO - SKIP

sCHECK IF AT DESIRED LOCATION
sNO - SKIP
:gU?: OLD AND NEW CYLINDER

MOV

INC

CURCYL ,NEWCYL

NEWCYL

sMOVE CURRENT INTO NEW
;BUMP NEWCYL FOR ONE CYL FWRD SEEK

JSR

PC,XSEEK

;D0 SEEK

MOV
JSR
60%
JSR
60%

#150. ,R1
PC,RDYWAILT

;SET WAIT COUNT 15 MS

PC,VERPOS

;VERIFY POSITION IS CORRECT

FALLSEC MISWIW

;

;WAIT

FOR READY

BEQ

60%
JSR
60%

PC,RDALHD

sCHECX 1F USE ALL SECTORS
;NO-SKIP
;ELSE READ ALL HEADERS

PC,VERHDR

sVERIFY HEADERS

CMP

HILIMW, NEWCYL

MOV

#2,ERRSWI

:CHECK 1F DONE
:NO = LOOP
sINIT ERROR SWIT(H

EMT

($ESUB

JSR

003004

2%
1871
CSEXIT
L10026~-.

:NO - SKIP

PC ,ONSWAP

BIT

021542

013352

;SET TO HEAD 1

JSR

60%

000226
021026

T4::

DESHD
LOLIMW,RS

CmMP
BNE

003004

;SET ERROR HEADER
sINITIALIZE TEST
;CLEAR DRIVE

CSINLP
EMT
BNCOMPLETE 5%
BCC
5%

017632

003006
003004

*+* INCREMENTAL FORWARD SEEK HEAD 1

$TEST

#P2106E ,ERHEAD
PC,TSTINT
PC,GSTATR

BEQ

013354

MOV
JSR
JSK
12265%
CLR
MOV
JSR

000136

106002

«TEST

SEQ 0102

BH!

1227%

CZRLJAD RLO1/2 DR TST

*TEST

2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 8-1

*+INCREMENTAL

49 025756

025756
025756

FORWARD SEEK HEAD

SEQ 0103

ENDTST

104001

L10026:

EMT

(SETST

N -8

s
—

WN=O
0V
NOWVI~NWw

PONININD
= it
s b s s et

= OOVWONOVITW

N—

(%RLJAO RLO1/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE 9
*TEST 5
**INNER GUARD BAND DETECTION

24
25
26
27
28

29
-30
31

.SBTTL
BGNTST

26004

012737
004737
004737
026156
004737
013705
004737
026156
104002

026034
026040
026046
026050
026054
026056
026062
026066
026066
026070
026072
026074
026076
026100
026102
026102
026106
026110
026112
026116
026122

006475
015274
015312

002714

017544
002204
016746

002212
016204

032762
001413
004737
026132
012703
012704

000001

1233%:

003004

PC,CHOSHD

;G0 CHOSE HEAD
:SET FOR POSITION TO 255.
;POSITION HEADS

HLMTW,RS

PC,POSHDS

EMT

($BSUB
GBND ,NEWCYL

:CLEAR DRIVE

312

MOv

#3..R1

;SET WAIT COUNT 3 MS

015342

BIT
Bt
JSR

;QRDYHSK.RLCS(RZ) :CHECK IF READY
:NO-SKIP
PC,GSTAT
;:GET DRIVE STATUS

007561
010434

MOV
MOV

#MDRDY ,R3
#C10MS R4
701., ,ERR4
TSERCODE
701
ERR&
60%

60%

000000

7%:

60%
ERRHRD

000226
021026

11%:

002720

60%:
ENDSUB

L10031:

104003

BEQ
WAITUS

MOV

021422
000002

TRAP
.WORD
.WORD
BR
DEC

READY

ERROR

SEXIT TEST
;DEC WAIT COUNT
;SKIP IF

sWALIT

100 vuS

PC,RDYWALT

;GO WAIT FOR READY

JSR

PC,VERPOS

;G0 VERIFY POSITION IS 255

MOv

#2,ERRSW]

;INIT ERROR SWITCH

(SESUB

JSR
60%

60%

39 026152

000713

026156
026156

104001

EM1

017572

#10.,RO

:REPORT

MOV

000012
004737
026156

104010

R1
11%

:SET NAME MESSAGE PTR
;SET CONDITION MESSAGE PTR

(SwTv
7%
#150. K1

EMT
BR

EMT
ESCAPE
EMT
.WORD
JSR
15%
BR

026154
026156
026156
026156

sSET ERROR HEADER
sINITIALIZE TEST

JSR
12365%

MOv

000003

000753
012701
004737
026132

40
41
42
6%

9::

#P2T07E ,ERHEAD
PC,TSTINT
PC,GSTATR

;SET FOR INNER GUARD BAND SEEK
D0 IT

000012

004737
026132
012737

MOov

*+NNER GUARD BAND DETECTION
JTEST 5

PC,XSEEK

012700

33 026124
34 026130
35 026132
36 026140
026140
026140
37 026142
026142
026144
38 026146

JSR
JSR
12365%
JSR

JSR

1046443
001275
011710
000416
005301
001404
104027

MOV

BGNSUB

013737
004737
026132
012701

*TEST

SEQ 0104

181

(SESCAPE

L10030~-.

;SET WAIT COUNT 15 MS

SEXIT TEST

IF ERROR

PC,SWAPHD

;GO SWAP T0 HEAD

1233%

;REPEAT

($ETST

;ABORT RETURN
THE

TESTS

OR END TEST

N
VT W=D
NO NS W

.
il
it
il
il
il
—

TMo

RLOV/2 DR

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
026259
026254
026256
026256
026260
026260
026262
026270
026272
026276
026300
026306
026312
026316
026320
026324
026330
026332
026336
026340
026346
026350
026354
026356
026362
026364
026364
026372
026374
026402
026402
026402
026404
026404

LSBTTL
BGNTST

002714

012737
004737
004737

02640C4
005037
013705
004737
026404

012727
032737
001405
005737
001002

*TEST

1064032

000140

2%:

SEQ 0105
*+INCREMENTAL REVERSE

STEST

!
16::

;SET ERROR HEADER
SINITIALIZE TEST
;GET STATUS & CLEAR

DESHD
HILIMW,RS
PC,POSHDS

;SET TO HEAD 0
;SET TO POSITION HDS AT HILIMIT
;POSITION HDS

#1,DESHD
#HEADLM MISWIW

181

HEADW

EMT

($BSUB

BNE
EXIT
EMT
.WORD

SEEK HEAD

#P2T108E ,ERHEAD
PC,TISTINT
PC,GSTATR

MOV
JSR
JSK
12465%
CLR
MOV
JSR
12465%
MOV
BIT

BEQ

013354

;SET TO SELECT HD 1

TEST
:NO -

IF HEAD
SKIP

SPECIFIED

;TEST IF HEAD SPECIFIED IS O
:NO = SKIP
JESLE EXIT TEST

2%
1S1
CSEXIT
L10032~-.

BGNSUB

104002

004737
.
02637

021274

1247%:

023737
001003
004737
000405
013737
005337
004737
026374
012701
004737
026374
004737
026374
032737
001406

003006

003006
003004
016204

003004

5%:
7$:

000226
021026

021422
000002

013346

021542

023737

013350

003004

012737

000002

002720

104003

BNE

017632

004737
026374
004737
026374

103726

(MP

003004

020440

:
9%

60%:
ENDSUB

L10033:

12465%:
ENDTST

;GET CURRENT POSITION

PC,GETPOS

INLOOP
EMT
CSINLP
BNCOMPLE TE
5%
BCC

10402)

103007

JSR

60%

:NO =

CURCYL ,NEWCYL

JSR

P(,ONSWAP

MOV
DEC

CURCYL ,NEWCYL
NEWCYL

B8R

JSR
60%
MOV
JSR
60%
JSR

60%
BIT
BEQ
JSR
60%
JSR
60%

IN ERROR LOOP

:CHECK 1F

SKIP

;CHECK IF POSITIONED AT DESIRED LOC
:NO - SKIP
:gL?E SWAP OLD AND NEW CYLINDER
:

sMOV

CUR

TO NEW

;DEC 'NEWCYL FOR 1

PC,XSEEK

;D0 SEEK

#150.,R1
PC,RDYWAIT

:WAIT

PC,VERPOS

VERIFY POSITION

#ALLSEC MISWIW
9%
PC,RDALHD

STEST

PC,VERHDR

C¥L REV SEEK

:SET WAIT FOR 15 MS

FOR READY

ALL

SECTORS.

NO-EXIT
READ ALL HEADERS

VERIFY HEADER

CMp

LOLIMW NEWCYL

SCHECK IF AT LOLIMIT°

MOV

#2 ,ERRSWI

;INIT ERROR SWITCH

EMT

($ESUB

BLO

1247%

:NO = LOOP

CZRLJAD RLOT/2 DR TST

*TEST

2 MACRO v03.01

*+ INCREMENTAL

(26404
026404

104001

REVERSE

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

HEAD

L10032:

EMT

10-1

(SETST

SEQ 0106

JAQ RLO1/2 DR

TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 11

PONY = o

ad e

d e

s i

= OOV NOWVNITWN~=OOVONOVSW

+eSEEK

026406
026406
026406
026414
026420
026424
026426
026432
026436
026442
026444
026450
026452
026460
026464
026472
026474
026500
026502
026506
026512
026514
026516
026522
026530

22
23
24
25
26
27 026532
28 026540
29 026542
30 025550
31 026552
32 026560
33 026560
026560
026560
24 026562
026562
35 026564
026564
36 026566
37 026572
38 026574
39 026602
40 026604
41 026610
42 026614

J 43 026616
- 44 026622

45
46
47
4«8
49

026626
026630
02663%
026636
026644

026644
- 026644
50 026646

TESTS

.SBTTL
BGNTST
1002714

«TEST

MOV
JSR

JSKR

12565%
JSR

MoV
“ JSR
1256%:

703006

003004

000001

002200

002332

001402
012704

012405
013701

163701
021401
101073
060537
023737
002004

013737
000407
023737
003403
013737

1258%:

00236C

125888%: MOV

013352
013350

MCV

SUB

cMp

003004
003004

013350

003004

013352

003004

1257%:

G%:
11%:
BGNSUB

104003

005670
021026
021422

002720

60%:

ENDSUB

L10035:

TESTS

17::

#P2T09E ,ERHEAD
PC,ISTINT

PC,GSTATR

;SET ERROR HEADER
sINITIALIZE TEST
;CLEAR DRIVE

PC,CHOSHD
LOLIMW,RS
PC,POSHDS

;60 CHOSE HEAD
;SET TO POSTION HEADS TO LOLIMIT
;POSITION HDS TO LOWLIMIT

PC,GETPOS

;:GET CURRENT POSITION

CURCYL ,NEWCYL
#1251BL,R&
#1,T.DRIVE

#1251B2.,R4

:PUT CURRENT INTO NEW
;SET POINTER TO TABLE OF SEEK DIFF FOR RLO1
:CHECK TYPE OF DRIVE
:BRANCH IF RLO1
;POINT TO THE RLO2 TABLE OF CYLINDERS

(R4)+ RS

;PUT FIRST

IN RS

sNO =

SKIP

TEST

;NO -

SKIP

12588%

HILIMW,
R

LOL IMW,R1
(R&) ,R1

12517%%

sGET HILIMIT
L SUBTRACT LOLIMIT
sCHECK IF NEW DIFFERENCE

IS IN BOUNDS

sADD TO PRESENT POSITION
sCHECK IF AT OR PAST LOLIMIT

RS,NEWC
YL
NEWCYL,LOL
1MW

MOV

LOLIMW,NEWCYL

sELSE SET TO LOLIMIT

CMP

NEWCYL ,HILIMW

MOV

HILIMW,NEWCYL

;CHECK IF AT HILIMIT OR GREATER
:NO = SKIP
:ELSE SET FOR HILIMIT

EMT
INLOOP
EMT

($BSUB

JSR

PC,GETPOS

:GET CURRENT POSITION

CMP

CURCYL ,NEWCYL

JSR
JSR
60%
MOV
JSR
60%
JSR
60%
MOV

PC,ONSWAP
PC,XSEEK"

;CHECK 1F HEADS AT DESIRED PCSITION
:NO = SKIP
:ELSE SWAP CURRENT AND NEW CYL:NDERS
;DO SEEK

EMT

($ESUB

BLE

BNE

13%:

++SEEK

ADD
CMP

60%

003004

017632
016204

000002

TEST 7

CSINLP

BNCOMPLETE
BCC
13%

021274

003006

BHI

BGE

104020

004737
026636
023737
001002
004737
004737
026636
012701
004737
026636
004737
026636
012737

BEQ

MOV

104002

103011

12565%
JSR
12565%
MOV
MOV
CMP

SEQ 0107

ESCAPE

17.1:

;CHECK IF

13%

;NO =

IN ERROR LOOP

SKIP

#3000. ,R1
PC,RDYWALT

:SET WAIT COUNT

PC,VERPOS

;VERIFY POSITION

#2 ,ERRSWI

s INITIALIZE ERROR SWITCH

181

;WAIT

JEXIT

FOR READY

TEST

ERROR

RLO1/2 DR TST 2 MACRO v03.01
«+SEEK TESTS

026646

104010

026650
026652
026660
026662
026664
026666
026674
026676
026702

000044
023737
001002
005405
000714
023737
001310
021437
001276

026710
026712
026714

026714
000654

026704

026714
026714
026714

9-FEB79 19:23:55 PAGE

004737

104001

EMT

013352

003004

013350

003004

15%:

002204
017572

12517%:

12565%:
ENDTST
L10034:

LWORD
cmMpP
BNE
NEG
BR
(MP
BNE
CMpP
BNE
JSR

12565%
BR

11-1

SEQ 0108

(SESCAPE

L10034~-.
HILIMW NEWCYL
15%
RS
1257%
LOL IMW, NEWCYL
1257%
(RG) ,HLMTW
12588%

;TEST IF LAST SEEK WAS 10 LOLIMIT
:NO = GO DO SEEK TEST
:
;CHECK 1F ALL TABLE DIFF USED
NO - SKIP

1256%

:ABORT RETURN
;REPEAI TEST HEAD

PC,SWAPHD

;CHECK IF SEEK WAS TO HILIM]T
;NO = SKIP
JELSE SET RS TO REPEAT DIFF IN REVERSE

;G0 SWAP TO HEAD

'
EMT

($ETST

OR END

TEST

N -

CIRLJAD RLOV1/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE
*+FORWARD OSCILLATING SEEK
*TEST 8

41
4«2
0%
46
45
46
&7

027122
027126
02713%
027136
027144
027146
027154

SFAHENNV=O
OV
NN

NNNNN—.—‘—.—.—.—;—I—Q_J—.

W=D OVONO VT W

27
28
29
30
31
12
33
34
35
36
37
36
39

026716
026716
026716
026724
026730
026734
026736
026742
026746
026754
026756
026762
026766
026774
026776
027004
027010
027012
027016
027022
027024
027030
027032
027036
027036
027036
027040
027040
027042
027042
027044
027050
027052
027060
027062
027066
027072
027074
027100
027104
027106
027112
027114

25
26

&0 027120

006542
015274
015312

0175456
000001
020000

002714

013346

013352
003004
040000

013346

013350

003004

016204

MOV
JSR
JSK
12665%
JSR
MOV
BIT

1266%:

BEQ

283

5%:

021274
010537

003004

BGNSUB

104002

004737
004737
027146
012701
004737
027146
004737
027146
005737
001412
005037
032737
001754
013737
000750
012737
104003

027156
027160

000032

1064010

021274

SEEK

Y8:

#P2T10E ,ERHEAD
PC,TSTINT
PC,GSTATR

;SET ERROR HEADER
sINITIALIZE TEST

PC,CHOSHD

;60 CHOSE HEAD

SHICYL
2%

MISWIW

#LOCYL
5%

MISWIW

;TEST IF HI CYLINDER SPECED
:NO - SKIP
;ELSE SET UPPER LIMIT
;SET TO SEEK TO CvyL O
;CHECK IF LO CyL SPEC'D
:NO - SKIP

#1,RS

:CLEAR DRIVE

;LOAD R5 FOR FIRST SEEK

MOV

LOL IMW NEWCYL

JELSE SET LOWER LIMIT
;D0 SEEK

#3000..,R1
PC,RDYWAILT

;SET WAIT COUNT FOR 120 MS

PC,XSEEK

;WAIT

FOR

READY

12665%
MOV

PC,GETPOS

;GET HEAD POSITION

RS NEWCYL

;LOAD NEW CYLINDER INTO NEWCYL

EMI

C$BSUB

INLOOP*
COINLP
EMT
BNCOMPLETE
BC(
18%

104020

103011
004737
027146
023737
001002

*+FORWARD OSCILLATING

:TEST 8

HILIMW,RS
NEWCYL

JSR
12665%
MOV
JSR
12665%
JSR

1267%:

SEQ 0109

MOV
(LR

Bl1
BEQ

005670
021026

027154
027154

4B 027156

+TEST 8

.SBTTL
BGNTST

18.1:
sCHECK

18%

IN ERROR LOOP

sNO = SKIP

JSR

PC,GETPOS

;GET POSITION

(MP

CURCYL ,NEWCYL

JSR
JSR

PC,ONSWAP
PC,XSEEK

;CHECK IF HEADS AT DESIRED LOC
:NO = SKIP

#3000.,R1
PC,RDYWALT

;SET WAIT COUNT 120 MS

021422

MOV
JSR
60%
JSR

PC,VERPOS

;VERIFY HEAD POSITION

003012

187

DESSGN

003006

60%

003004

017632
016204

BNE
18%:

005670
021026

60%

18%

;D0 SEEK
;WAIT

;TEST

;SWAP OLD

FOR READY

IF JUST SEEK REV

BEQ

60%

#LOCYL MISWiW

sELSE SET TO SEEx 10 O
sCHECK 1F LO LIMIT SPEC'D
JELSE SET LOW LIMIT FOR SEEK

s YES

SKIP

003004
040000

013346

BIT

013350

003004

MOV

LOLIMW NEWC YL

000002

002720

MOV

#2,ERRSWI

s INIT ERROR SWITCH

EMT
ESCAPE
EMT

($ESUB
157
(SESCAPE

JEXIT

(LR

BEQ
60%:
ENDSUB

L10037:

AND NEW

LWORD

NEWCYL

18%

L10036-

sNO =

SKIP

TEST

ERROR

CIRLJAD RLO1/2 DR TST

«TEST

2 MACRO v03.01

*+FORWARD OSCILLATING

027162
027170

03273Z
0010
005205
020537
001311
004737
0272i2
000654

104001

020000

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

013346

017572

SEQ 0110
BIT

002212

20%:
12665%:

ENDTST
L10036:

12-1

BNE
INC
(MP
BNE
JSK
12665%
BR

EMT

PHICYL

20%

MISWIW

RS
RS,GBND ;ALL
1267%

sTEST IF UPPER LIMIT SPEC'D

JYES =

SKIP

:BUMP RS

CYLINDERS DONE

PC,SWAPHD

:NO = GO DO NEXT CYLINDER
;G0 SWAP TO MEAD 1 OR END TEST

1266%

;G0 DO TESTS

($ETST

;ABORT

RETURN

0172 DR TST 2 MACRO v03.01 9-FEB=79
**REVERSE OSCILLATING SEEK

——~

1754

002714

(s N

1
1

027226
027232
027234
027240
027246
027254
027256
027264
027270
027276
027300
027304
027310
027312
027316
027322
027324
027330

~N
VSwvo
WO

OoOOoD

027222

027332
027336
027336
027336
027340
027340
027342
027342
027344
027350
027352
027360
027362
027366
027372
027374
027400
027404
027406
027412
027414
027420
027422
027430
02743%6
027440
027440
027450
027456
027456
027456
027460
027460
027462

19:23:55 PAGE

.SBTTL
BGNTST

027214
027214
027214

POPUNUNUND
b o it it ot et et et e
S
- OO
NO NS NN =OOONPF
NN

CZRLJA

«TEST

002204
020000

003004
013346

013352
002210
040000

003004
013346

013350
016204

1275%:

005670
021026
1276%:

003004

BGNSUB

104002

004737
027450
023737
001002
004737
004737
027450

021274

MOV
BIT
MOV

JSR
12765%
MOV
JSR
12765%
JSK
12765%
MOV

"REVESSE

s TEST

003006

003004

017632
016204

005670
021026

;SET ERROR HEADER
sINITIALIZE TEST
sCLEAR DRIVE

PC,CHOSHD

;G0 CHOSE HEAD
;SEEK OUT T0 255.
sTEST IF UPPER LIMIT SPEC'D
;NO - SKIP
JELSE SET UPPER LIMIT
sSET RS FOR FIRST SEEKS
sCHECK IF LO LIMIT SPEC'D
sNO = SKIP
sSET LOWER LIMIT
;D0 SEEK

HLMTW,NEWCYL

FHICYL MISWIW
2%

HILIMW, NEWCYL

NXTHL RS
WLOCYL ,MISWIW

LOLiMW,RS

PC,XSEEK

#3000.,R1
PC,RDYWALT

;SET WAIT TO 120 MS

PC,GETPOS

;GET POSITION

RS,NEWCYL

sSET

003004

000002

002720

L10041:

SEEK
19.1:

sCHECK IF
18%

IN ERROR LOOP

sNO - SKIP

JSR
JSR

PC,ONSWAP
PC,XSEEK

MOV
JSR

#3000. ,.R1
PC,RDYWALT

;SET WAIT FOR 120 MS
;WAIT FOR READY

JSR

PC,VERPOS

;VERIFY POSITION

DESSGN

sCHECK 1F JUST
JYES = SKIP

60%

18%

BNE

60%

FHICYL MISWIW

SEEK

FWD

MOV

HILIMW, NEWCYL

JELSE SEEK TO 10 255
sTEST IF WILIMIT SPEC'D
sNO = SKIP
SET 10 UPPER LIM]T

MOV

#2 ,ERRSWI

;INIT ERROR SWITCH

EM1
ESCAPE
EMT

(SESUB
T1S1
(SESCAPE

SEXIY TEST

BEQ

ENDSUB

FOR NEXT

READY

sCHECK IF AT DESIRED CvL
sNO = SKIP JELSE SWAP OLD AND NEW CvL
;DO SEEK

MOV

60%:

FOR DRIVE

CURCYL ,NEWCYL

1517

013352

18%

;WAIT

CMP

60%
003004
013346

19::

#P2T11E ,ERHEAD
PC,TSTINT
PC,GSTATR

JELSE GET POSITION

60%

002204
- 020000

SEEK

PC,GETPOS

BNE
18%:

OSCILLATING

JSR

60%

003012

104010
000026

MOV

BCC

021422

104003

MOV
JSR
JSR
12765%
JSR
MOV
BIT

EMT
($BSUB
INLOOP
COINLP
EMT
BNCOMPLETE

134020
103011

+TEST

BEQ

5%:

021274

SEaQ 011

BEQ

2%:

LWORD

HLMTW, NEWCYL

18%

L10040=,

IF ERROR

CIRLJAD RILO1/2 DR TST 2 MACRO v03.01 9=FEB=79
*TEST 9
**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

i9:23:55 PAGE

013346

SEQ 0112
BIT

20%:
12765%:
ENDTST

L10040:

13=1

BNE
DEC
BPL

JSR

12765%
BR

Em1

FLOCYL

20%

RS
1276%

MISWIW

PC,SWAPHD
1275%

(SETST

;TEST IF LOLIMIT SPEC'D
;YES = S5KIP
sDEC CYLINDER COUNT
s1F STILL POSITIVE, DO SEEKS AGAIN

;G0 SWAP TO MEAD 1 OR END TEST

;ABORT

RETURN

;LOOP AGAIN

"""""" T
r

CIRLJAD RLOV/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE

«TEST

TIMING

002714

4%:

CLR
CLR
JSR

o
N
w
wn

41 027734

&2
3
46
45
46

02773
027740

027742
027746
027750
027754
027756

027756
027760
027762
&7 027764
48 027770
49 027774

S0 027776
027776

002742
002736

9%:

(RO)+
R1

;GO CHOSE HEAD

#OROUT ,R3

MOV
MOV
MOV

#1 NEWCYL
#128.,COUNT
#RDHEAD ,TEMPS

sSET NEwCYL TO CvL 1
;SET COUNTER FOR SEEX LOOP
;BUILD READ HEADER COMMAND

JSR

PC,XSEEKT

:D0 SEEK BUILD BUT DO NOT START

L.DA,RLDA(R2)
L.CS,RLCS(R2)
RO,-(SP)
#10.
#10..R0

RL REGISTERS
:LOAD

;TEST IF INTERRUPT
:YES - SKIP

BIS
BIC

65%

#OROUTU
R4

RLDRvV,TEMPS
#BI1T10,TEMPS

187

DONE

MOV

(SP)+ ,R3

EMT

BNE
JSR

ERRHRD

100005
1044453

TRAP

031346
002746

17%:

:CLEAR PASS COUNTER

PC,CHOSHD
#OFOUT RO
#OFOUTU,RI

002710

104443
002261

;GET ADDRESS OF 1ST TIME VALUE
sSET COUNT FOR CLEAR
;CLEAR TIMER STORAGE

JSR
MOV
MOV
MOV

005737
001010
004737
012603

015142

RUN

;VERIFY POSITION

000012

104027

TESTS WERE

PC,VERPOS

012700

010046

MANUAL

JSR

65%

PC,RDYWALT

MOV
MOV
MOV
WAITUS
MOV

000004
000000

;YES = SKIP
JELSE EXIT TEST
sINITIALIZE TEST
;CLEAR DRIVE

;SET WAIT FOR 300 mS

MOV

8%:

#OF IN,RO
#24. R

sTEST

#3000. ,R1

65%

003004
003136
003040
003040
003040

1%
65%

;POSITION HEADS AT 0
;D0 SEEK

JSR

:SET ERROR HEADER
;TEST IF PASS 0
:NO = SKIP

PASCNT
NEWCYL
FC,XSEEK

65%
MOV

021422

027674
35 027702
6 027710
37 027714
38 027716
39 027724
4«0 027732

PC,TISTINT
PC,GSTATR

BNE

005670
021026

017546
003052
003054
003066
003070
000001
000200
000110
002734
002000
016174

JSR
JSR

CLR
DEC

003134
003004
016204

22 027612

MISWIW

MOV
MOV

TIMING

;TEST 10

1S1

65%

003042
000030

*+SEEK

#P2T12E ,ERHEAD
PASNUM

BMI
JMP

031346
015274
015312

MOV
1S1

BNE

013346

= OOVENOVS
WV =200V
YNORT VW

«TEST

LSBTTL
BGNTST

006574
003342

14
SEG 0113

*+*SEEK

(% 7 (V)

17%
PC,WAITIN

1201.,.ERR]

1200
ERRI
65%

BPL
ERRMRD

14%
1202...ERR6

TRAP

FOR READY

;SET PTRS FOR 1 CYI

;STORE RO
;WAIT

FOR

INTERRUPT

;WAIT FOR INTERRUPT
sGET MESSAGE POINTER

TSERCODE

LWORD
LWORD
JMP
181

;WAIT

1.CS

T$ERCODE

sCHECK IF ANY ERRORS

sNO = SKIP

FWD OUTER TIMER

CZRLJAD RLO1/2 DR TST 2 MACRO v03.01 9-FEB=-79 19:23:55 PAGE
«TEST 10
*+SEEK TIMING

55 030030

030030
030032
56 030034
57 030036
58 030044
59 030050
60 030052
61 030056
62 030060
63 030062
64 030064

65 030066

66
67
68
¢9

030070
030072
030076
030100

70 030104
71 030106
72 030112
73 030116
74 030122
75 030124
76 030126
77 030130
78 030132
79 030134

80 03013¢
21 030140
82 030142
83 030146
84 030154
85 030156
86 030164
87 030172
88 030174
89 030202
90
91
92
93
94

98
99
100
101

030206
030210
030214
030220
030222

030240
030244
030250
030256

002262
012030
000137
005037
013762

031346
002710
003040

012760

003720

104027

000000

14%:

012600
013737
004737
031346
005737
001403

060510
005511
000402
060513
005514
005337
001403
004737
000701

162710
162713
012705
000241
006011
006010
000241
006014

006013
005305
001370
005237
022737
001051
012737
022737
001403
012737
004737
031346
012701
004737
031346

004737
031346
012700
012701
012703
012704
012737
022737

003040
021422
003012

15%:
003136

16%:

017632
000470
000470
000006

18%:

10%:

003134
000001

003134

000177
000001

002004
002200

000377
016204

003004

005670
021026

021422
003046
003050
003062
003064
000200
000001

1202
ERR6
65%
DONE
TEMP8,RLCS(R2)

MoV

#2000.,R0O

EMT

002736

003004
002200

1018:

.WORD
.WORD
JMP
(LR
MOV

WAITUS

104052
010005

14-1

GETTIM
EMT
MOV
MoV
MoV
JSR
65%
181
BEQ
ADD
ADC
BR
ADD
ADC
DEC
BEQ
JSR
BR
SuB
SUB
MoV
(L
ROR
ROR
CLe
ROR
ROR
DEC
BNE
INC
(MP
BNE
MOV
(MP
BEQ
MOV

JSR
65%
MOV
JSR
65%
JSR
65%
MOV
MoV
MOV
MOV
MOV
CMP

#2000.

(SwTu

RS
($GTIM
RO,RS
(SP)+,RO
TEMP8,L.CS
PC,VERPOS

9
SEQ 0114

sCLEAR INTERRUPT FLAG
;LOAD RL REGISTER
;WAIT

FOR

INTERRUPT

;GET TIME USED

;RESTORE RO
:SET IF ERROR TO REPORT
;VERIFY POSITION

DESSGN

sCHECK WHICH SEEK DIRECTION

RS, (RO)
(R1)
16%
R5,(R3)
(R&)
COUNT
18%
PC,ONSWAP
9%

sADD TO FORWARD TOTAL
sADD IN OVERFLOW

15%

#312.,(R0O)
#312.,(R3)
#6,R5

(R1)
(RO)
(R&)
(R3)
RS
10%
PASCNT
#1,PASCNT
24%
#127. NEWCYL
#,T.DRIVE
101%
#255. NEWCYL

PC,XSEEK

sREVERSE - SKIP

;SKIP

sADD TO REVERSE TOTAL
sADD IN OVERFLOW
sDEC SEEK COUNT

;SKIP IF 0
JELSE SWAP OLD AND NEW CYL

sREDO SEEK LOOP
;SUB CONSTANT FOR READ HEADER TIME
;SET SHIFT COUNT TO DIVIDE BY 64

:DIVIDE BOTH TOTALS BY 64

;BUMP PASS COUNT
:TEST IF PASS 1
|
iNO = SKIP
:ELSE SET TO POSITION HDS T0 127
:DRIVE = RLO1?
S YUP
iNO = SET FOR A MID POS SEEK RLO2
:D0 SEEK

#3000. ,R1
PC,RDYWALT

;SET WAIT COUNT FOR 300 mS

PC,VERPOS

;VERIFY POSITION

#OFMID,RO
#OFMIDU,RT
#ORMID,R3
#ORMIDU,R4
#128, NEWCYL
#1,7.DRIVE

;SET PTRS FOR TIMING 1 CyL Sk AT 127

:WAIT

FOR READY

:SET NEWCYL T0 128
sRLOV?

CZRLJAD RLOV/2 DR TST 2 MACRO v03.01 9-FEB=-79 19:23:55 PAGE 14<2

*1EST

++SEEK TIMING

——h — — — — —

s "

s - il

D il il il il -l -

- -

guwuu-----—-——--—-—-a—o-a—-ooog
WN=O VN VS WN =00V NO VS WN =000~

D il D il il D i il il il i i il

012737

o0
oo

(=l=lelelelele]l]

141 030514
142 030516
143 030524
144 030532
145 030534
146 030542
147 030546
148 030550
149 030554
150 030560
151
30562
152
30566
153
30570
154
30574
155
156
157
30610
158
030616

000400
027660
000002

003004
003134

BEQ'

102%:

MOV

NXTHL ,NEWCYL
PC,XSEEK

;SET UP TO TIME
:
LIMIT

MOV

#3000.,.R1

:SET WAIT COUNT FOR 300 MmS

PC,VERPOS

JVERIFY POSITION

#OFIN,.RO

;SET POINTERS

002210
016204

012701
004737

005670
021026

004737

021422

2700
2701
2703
2704
3737
000137
022737

003042
003044
003056
003060
002204
027660
000003

005037
004737

003004
016204

012701
004737

005670
021026

004737

021422

2700
2701
2703
2704
2737
2737

003076
003100
003106
003100
000177
000001

003004
002200

012737

000377

003004

022737

000004

003134

012737
022737

000200
000001

003004
002200

012737
004737

000400
016204

003004

012701
004737

005670
021026

MOv

004737

021422

2700
2701
2703
2704
3737

003072
003074
003102
003104
002204

65%
JSR

65%

003004
003134

28%:

MOv
MOV
MOv
MOV
MoV
JMP
CMP
BNE

CLR
JSR
65%

#0OF INU, R

sLOAD NEW CYLINDER
;D0 SEEK LOOP

328

:NO - SKIP

NEWCYL

PC,XSEEK

sTEST

PASS 3

sELSE SET UP TO TIME
.

AT OUTER LIMIT

128 CYL SEEK

#3000..R1

;SET WAIT COUNT FOR 300 MS

JSR

PC,VERPOS

sVERIFY POSITION

MOV
MOV
MOv
MOV
MOv

#HFOUT ,RO
#HFOUTU,RT

sSET

CMP
BEQ

MOV

BR
CMP
BNE

MOv
CMP

BEQ

MOV

JSR

65%

sWAIT

FOR DRIVE

READY

POINTERS

#HROUT,R3

#HFOUTU,RG

#127. NEWCYL
#1,T.DRIVE

sLOAD NEWCYL FOR
:RLOY?

#4 ,PASCNT

sTEST

#128. NEWCYL

JELSE

SET UP TO TIME

INNER LIMIT

39%
;gzs..NEHCYL
36%

#1,1T.DRIVE
321%
#256. NEWCYL
PC,XSEEK

128 CyL SEEK

; YUP
:NO = SET FOR RLQ2
PASS &

sNO - SKIP

;RLOYV?
:YES
sNO = SET FOR RLOZ
AT

128 CyL SEEK

#3000.,R1

;SET WAIT COUNT FOR 300 mS

JSR

PC,VERPOS

;VERIFY POSITION

MOv

#HFIN,RO

sSET POINTERS

JSR

65%
65%

MOV
MOV
MOV
MOV

INNER

HLMTW, NEWCYL
8%
#3,PASTNT

SEEK AT

;WAIT FOR READY

#ORIN,R3

#ORINU,RS

CyL

PC,RDYWALT

65%

003004

PC,RDYWAILT

MOov
JSR

65%

321%:

s YUP
;SET FOR RLOZ2
;D0 SEEK LOOP
:TEST IF PASS 2
;NO -~ SKIP

JMP
(MP
BNE
MOV
JSR

004737

003004

102%
#256. NEWCYL
8%
#2 ,PASCNT
28%

SEQ 0115

PC,RDYWAIT

#HF INU,RY

sWAIT

FOR READY

#HRIN,RY

#HRINU,
R4

HLMTW NEWCYL
39%

sSET NEWCYL TO 255 FOR 128 (yL SEEK
;D0 TIMING LOOP

CZRLJAD RLOV/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
10
*+SEEK TIMING

*1EST

&~
~

o
o

o~
o

1
1
1
1
1
1
1
1
1
1
1
1

NNNNNyoOoOrOrOrO» o
VB WN=O0VO~NONWD &~

159 030620
160 030626
161 030630
162 030634
163 030640

022737

000005

005037
004737
031346
012701
004737
031346
004737
031346
012700
012701
012703
012704
013737
000137

003004
016204

001032

176 030744

N N N N

i
e
i
i
—

WNWNWWN NN

NI N N

178

elelelelelelelelelelelelelelelelelele
o)

177 031006

021422
003112
003114
003116
003120
002204

027660
007040
007002
010602
000003

062706

000010

005046
153716
012746
013746
012746
012746
012746
010600

002735
006033
002730
006022
010630
000005

062706

000014

012746
012746
012746
012746
012746
012746
010600
104017
062706

007117
007111
007102
007074
011222
000005

013746
013746
013746
013746
012746

003122
003052
003046
003042
007130

106017

012746
012746
010600

104017

062706

36%:

005670
021026

012746
012746
012746
012746
010600
104017

003134

398:

408:

lgiPASCNT

SEQ 0116
;TEST

PASS 5

:NO - SKIP

CLR
JSR
65%
MOV
JSR
65%
JSR
65%
MOV
MOV
MOV
MOV
MOV
JMP

NEWCYL
PC.XSEEK

;ELSE SET UP TO TIME 256 CvL SEEK

#3000. ,R1
PC,RDYWALT

;SET WAIT COUNT FGR 300 MS

PC,VERPOS

;VERIFY POSITION

#AFMID,RO
#AFMIDU,R1
#ARMID ,R3
#ARMIDU,R4
HLMTW, NEWC YL

:SET POINTERS

MOV
MOV
MOV
MOV
MOV

#VALDES,=(SP)
#SKTMES,=(SP)
#EMT1.1,-(SP)
#3,-(SP)
SP,RO

ADD

#10,SP

CLR
BISB
MOV
MOV
MOV
MOV
MOV
MOV

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

ADD
PRINTF
MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD
PRINTF
MOV
MOV
MOV

#4,SP
WFMT18,#LABIN,#LABMID
,#LABOUT ,#LABEXP
#LABEXP,=(SP)
#LABOUT,=(SP)
#LABMID,=(SP)
#LABIN,=(SP)
#EMT18,-(SP)
#5,=(SP)
SP,RO
CSPNTF
#14,SP
#FMT19,#LABOCF
,OF IN,OFMID,0FOUT ,EXOCYL
EXOCYL,=(SP)
0FOUT,=(SP)
OFMID,=(SP)

PRINTF

EMT

;

OVER ALL SURFACE

:WAIT

FOR DRIVE READY

sSET NEWCYL

WFMT1.1,#SKTMES,#VALDES

CSPNTF

PRINTF #FMT5,#BASADD ,RLBAS,#DRVNAM,<B ,RLDRV+1>

EMT

000014

011254
000006
000016

003004

cMP

BNE

14-3

MOV
MOV
MOV
MOV
MOV
EMT

ADD

PRINTF

CSPNTF

OF IN,=(SP)
#LABOCF
= (SP)
#FMT19,=(SP)
#6,=(SP)
SP,RO
CSPNTF

#16,SP

lFHi19,'1A80(R,ORIN,ORH]D.OROU!.ElO(YL

CIRLJAD RLOV/2 DR TST 2 MACRO v03.01 9=FEB=79 19:23:55 PAGE 14-4
10
«+SEEK TIMING

s il il il

N NV N

) il

) il il i

i o

il il il il

i ol i il el i

il il

S WANNIN o st s s OO NNO O NN
S N NN N = s
NONONOCOCNOO
NN NOOTNOO NN NO N

N LN LN U

N W

PONURNINU NP NI N

181

mdelelelololelelelelelelelelelololeleleleleloleleolelaTe]

180

NN N N N NN NN NN N N NN NN NN NN

«TEST

SEHEPEFENWHEHNN ==
ocoonooNnOoNONNNO

LN LN

185

104017
062706

013746
013746
013746
012746
012746
012746
010600
104017
062706
013746
013746
013746
012746
012746
012746
010600
104017
062706

003122
003066
003062
003056
007142
011254
000006
000016

000014

013746
013746
012746
012746
012746
010600
104017
062706

003126
003116
007220
011341
000004

104001

MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

EXHCYL,=(SP)
HFOUT,=(SP)
HFIN,=(SP)
#LABHCF ,=(SP)
#FMT20,-(SP)
#5,-(SP)
SP,RO
CSPNTF
#14,S5P

MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

EXHCYL,=(SP)
HROUT ,=(SP)
HRIN,=(SP)
#LABHCR,=(SP)
#FEMT20,-(SP)
#5,-(SP)
SP,RO
CEPNTF
#14,SP

65%:
ENDTST
L10042:

CSPNTF
#16,SP

WFMT20,#LABHCF
,HF IN,HFOUT ,EXHCYL

W#FMT20,#LABHCR,HRIN,HROUT
,EXHCYL

PRINTF

WFMT21,#LABACF
,AFMID, EXACYL

PRINTF

#FMT21,#LABACR,ARMID,EXACYL

MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

000012

EXOCYL,=(SP)
OROUT ,=(SP)
ORMID,=-(SP}
ORIN,=(SP)
#LABOCR,=-(SP)
#FEMT19,-(SP)
#6,-(SP)
SP,RO

PRINTF

003124
003106
003102
007170
011311
000005

003126
003112
007204
011341
000004

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

PRINTF

003124
003076
003072
007154
011311
000005

013746
013746
012746
012746
012746
010600
104017
062706

N U

183

NN W W

182 031256

013746
013746
013746
013746
012746
012746
0127485
010600

MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

EXACYL,=(SP)
AFMID,=(SP)
#LABACF ,-(SP)
#EMT21,-(SP)
#4,-(SP)
SP,RO
CSPNTF
#12,SP
EXACYL,=(SP)
ARMID,=(SP)
#LABACR,=(SP)
#EMT21,-(SP)
#4,-(SP)
SP,RO
CEPNTE
#12,5P

($ETS?

SEG 0117

LIRLJAD RLOY/2 DR TST

*TEST

2 MACRO v03.01

«+BASIC

READ DATA

9-FEB=79 19:23:55 PAGE

(BAD SECTOR FILE)

2 031350
031350
3 031350

& 031356

5 031362
6 031366
7 031370

8 031376
9 031404

10 031406
11 031412
12 031414

13
16
15
16
17
18
19

20
21
22
23
24

031414
031416

031420
031426
031432
031434
031440
031444
031446

031452
031454
031460
031466
031474

25 031502
26 031506
27 031512
28 031516
29 031522
30 031526
31 031534
32
33
24
35
36

031540
031542
031544
031546
031550

40
41
42
43
44
45
46
47
48
49

031560
031562
031566
031570
031576
031600
031604
031600
031610
031614

031620

37 031552
38 031554
39 031556

50 031616

52 031622
53 031626
56 031630

LSBTTL
BGNTST

012737
004737
004737
032030
012737
032737
001405
005737
001002

006610
015274
015312

002714

000001
010000

003014
013346

MOV
JSR
JSK
65%
MOV
Bi1
BEQ
151
BNE

013354

EXIT
EMT

104032

000440
013737
004737
032030
012701
004737
032030
004737
032030
005037
012737
012737
112737
105037
005037
013701
013700
012703
012737
004737
031712
005723
100515
005723
100513
005723
0011 M

002204
016204

003004

2%:

005670
021026
021422
003016
003552
000020
000001
003346
003026
003032
003034
003746
000002
022572

003032
003034

003347

4%:

002720

7%:

005723

001107
0231327
001004
012737
000403

005737
001075
012311
012705
006311
005305
001375
032713
001402
052711

«TEST

.WORD
MOV
JSR
65%
MOV
JSR
65%
JSR
65%
CLR
MOV
MoV
MOVB
(LRB
(LR
MOV
MOV
MOV
MOV
JSR
39%
181
BMI]
st
BMI
1S1
BNE

187

177777
000001

003026
000007

000400
000100

8%:
003026

10%:

BNE
(Mp
BNE
MOV
Bk

ST
BNE
11%:
MOV
MUV
12%:
ASL
DEC
BNE
\
BIT
“ @ BEQ .
X " 818

B 10

SEQ D118
11

SIEst

teBAS|( READ DATA

(BAD

SECTOR

Tile:

#P2113E ,ERHEAD
PC,TSTINT
PC,GSTATR

;SET ERROR HEADER
JINITIALIZE TEST

#1,DESHD
FHEADLM MISWIW
2%
HEADW
2%

;SET TO HEAD 1
;TEST IF HEAD SPEC'D
sNO = SKIP
;TEST IF HEAD O

sNO -

L10043-.
HLMTW, NEWCYL
PC,XSEEK

;POSITION HEADS AT 255
;D0 SEEK

181
CSEX]T

FILE)

;CLEAR DRIVE

SKIP

TEST

JELSE EXIT

#3000.,R1
PC,RDYWALT

;SET WAIT COUNT FOR 300 MS

PC,VERPOS

;VERIFY POSITION

DESSEC
NEBSFIL,TEMPS
#16.,TEMPE
#1,NOERCT
LOCERR
TEMP3
TEMPS R
TEMP6,R0
#1BUFF ,R3
#2 ,ERRSWI
PC,XREAD

;SET FOR SECTOR 0
;SET TEMP STORAGE FOR FACTORY BS FILE

(R3)+

45%

(R3)+

45%
(R3)+
45%

(R3)+

45%
(R3) ,#=1
108
#1,1EMP3
11%

TEMP3
45%
(R3)+,(R1)
#7,RS
(R1)
RS
12%
#B118,(R3)
15%
#B1T6, (RD)

;WAIT

FOR

INTERRUPT

;SET MAX SECTOR COUNT
;SET FOR NO ERROR COUNTING
;CLEAR LOCAL ERROR COUNTER
;CLEAR ONES DETECTED FLAG
;INIT POINTERS

;INIT ERROR SWITCH
;00 READ

;TEST IF WORD O NOT NEG
:YES, BAD FMT ERROR
;ELSE TEST WORD 1 NOT NEG
;YES = BAD FMT ERROR REPORT

;TEST WORD 2 IS O
:NO = SKIP TO FMT ERROR RPT

;TEST WORD 3 IS O

:NO = SKIP TO FMT ERROR RPT

;TEST

:NO

IF NEXT WORD 1S ALL 1'S

= SKIP

;ELSE SET 1'S DETECTED FLAG

;SKIP

»TEST

:YES =

IF ONES HAVE BEEN DETECTED
SK]P

TO FMT

ERROR RPT

:STORE CYLINDER WORD
SALIGN IT TO LOOK LIKE HEADER

STEST IF HEAD |
:NO =

SKIF

s INSERT HEAD BT

005

NN NNN=NNNY
(N

*TEST

CIRLJAQ RLO1/2

MACRO v03.01
READ DATA

9-FEB-79 i?:g?:SS PAGE

(BAD SECTOR FIL

177400

15%:

004346

BEG

000044

003034

003356
000044
000024

003032
003034
003016

37%:

151106

40%:

177777

39%:

104020

103667

023737
001014

012703
005237

104443
002425
011526
022737
001421
000737
062737
000643
012703

(MP
BEQ
MOV
MOV
MOV
BR
INC

MOV
INLOOP
EMT

SEQ 0119
#177400,(R3)
(R3)+,(R1)+

003016

003034

41%:

005724
003346

;CHECK IF IBUFF EMPTY
sNO GET NEXT CYLINDER
;ELSE TEST IF 1°'S DETECTED

#36.,TEMPE
65%
#SBSFIL,TEMPS
#36.,1EMPE
#20.,DESSEC
4%
LOCERR

:CHECK IF SOF TWARE BAD READ
JYES - SKIP
;ELSE CHANGE POINTERS
5
MAX SECTOR NUMBER
;
SECTOR NUMBER START
;00 READ
;BUMP LOCAL ERRCR COUNTER

4L8%

#-1,3TEMPS

CSINLP

003356

003032

000004

003016

005754

&3%:
45%:

4LB%:

.WORD
.WORD
CMP
BEQ
BR .
ADD
BR
MOV
ERRHRD

1301
ERR1
#SBSFIL,TEMPS
65%
37%
#4 ,DESSEC
4%
#MFMTER,R3
1302.,.ERR]

.WORD
.WORD
BR

1302
ERR1
39%

ERRHRD

1303.,.ERR!

MOV

000002
000001
003346
003142

002720
003354

65%:

66%:

104001

L10043:

sCHECK IF ALL SECTORS READ
:NO - SKIP
sSET RESULT MESSAGE POINTER
;BUMP LOCAL ERROR COUNTER

;TEST IF SOFTWARE FILES CHECKED
JYES = EXIT
JELSE GO CHECK SOFTWARE FILES
;BUMP TO NEXT SECTOR
;GO DO READ
sSET RESULT MESSAGE POINTER

;G0 CHECK FOR LOOP

#MTMBS,R3

.WORD
BR
MOV

ERRI
40%
#2 ,ERRSWI

EMT

(SETST

:SET RESULT MESSAGE PTR

1303

#1,BSFVAL
LOCERR
66%
ERRCNT

ENDTST

032056

1'S INTO FILE STORAGE
IF IN ERROR LOOP

TSERCODE

MOV
1S1B
BEQ
INC

s MOV
;CHECK

TSERCODE

TRAP

.WORD

:T0 MANY ERRORS = REPORT

;YES = GO DO READ

DESSEC, TEMP6
43%
#MBADSF ,R3
LOCERR
1301.,,ERR]

TRAP

006001

CMP
BNE
MOV
INC
ERRHRD
TRAP

sCLEAR ALL BUT SECTOR
s INSERT SECTOR NUMBER

R3,#IBUFF+256.
8%
TEMP3

gEgHPLEYE‘

104443

002426
011526
000737
012703

BIC
BIS

CMP
BNE
151

003026

003346

15-1

;

:G0 CHECK FOR LOOP
:INIT ERROR SWITCH
;SET BAD SECTOR FILES VALID FLAG
sTEST IF LOCAL ERRORS
;NO = SKIP
JELSE BUMP ERROR COUNT

CZRLJAO RLO1V/2 DR

*TEST

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

**WRITE/READ DATA

(PART

006626
017656
015274
015312

002714

b
s e

s ed
it s o

005670
021026

021422

PONY =

005037

104002

004537
000000
004737
032210
004737
032210
004737
032210
012737

1306%:

1307%:
BGNSUB

022104

1310%:

022532

022244

002720

032272
005037
004737
032264
000720
005237
000771

104001

000010

032164

(PART

T12::

PC,CHOSHD
DESSEC
NEWCYL

PC,XSEEK

;GO CHOSE HEAD
SECTOR 0
:
:
CYLINDER 0
;CLEAR PATTERN SELECT
;POSITION HEADS

#3000. ,R1

;SET WAIT COUNT FOR 300 MS

PC,VERPOS

;VERIFY POSITION

13108

;CLEAR PATTERN SELECTOR

EMT
JSR
.WORD
JSR

($BSUB
SS,DATGEN
PC.XWRITE

sGENERATE DATA
;PATTERN SELECT WORD
;DO WRITE DATA

JSR
60%

PC,XREAD

;DO READ DATA

JSR

PC,DATCOM

: COMPARE DATA

MOV

#2,ERRSWI

;INIT ERROR SWITCH

EMT
ESCAPE
EMT
.WORD
(MP
BEQ
INC

($ESUB

60%

1310%

PC,RDYWALT

181

(SESCAPE
L10044~,

#8.,1310%

10%
1310%
1307%

FOR READY

11250

SEXIT TEST i+ ERROR

:WAS DATA PAT 8 USED?

JYES = SKIP
JELSE BUMP TO NEXT PATTERN
;D0 TEST WITH NEW PATTERN

1310%

1306%

JYES RETURN = SKIP T0O 13%
sNO RETURN = DO TEST THIS SECTOR

10%:

025282

11%:

JSR
13065%
CLR
JSR

003004

13%:

BR
INC

NEWCYL

EM1

(SETST

13%

;WAIT

;GO SWAP TO HEAD 1 OR END TEST
:ABORT RETURN
;SET PATTERN SELECT 10 0

017572

13065%:
ENDTST
L10044:

*+*WRITE/READ DATA

JSR
CLR
CLR
CLR
JSR
13065%
MOv
JSR
13065%
JSR
13065%
CLR

ENDSUB

L10045:

104003

104010
000050
022737
001403
005237
000746
004737

60%:

;TEST 12

SEQ 0120

;sSET ERROR HEADER
;G0 CHECK 1F BAD SECTOR FILES VvALID
JINITIALIZE TEST
;CLEAR DRIVE

60%

022572

#P2T14E ,ERHEAD
PC,CKBSVD
PC,TSTINT
PC,GSTATR

MOv
JSR
JSK

13065%

032164

000002

*TEST

JSR

017546
003016
003004
032164
016204

032272

.SBTTL
BGNTST.

032060
032060
032060

= OVONO VN WN—=OOVOINOT
VST W

N—

D 10

PC,SWAPHD

PC,BSCHK

CHECK

SECTOR BAD

;BUMP TO NEXT CYLINDER
:CHECK IF THIS ONE BAD

.SBTTL
BGNTST

(= Telelelelels
e

O~NO
VST W

CIZRLJAD RLOV/2 DR TST 2 MACRO v03.01 9=FEB=79 19:23:55 PAGE
*1EST 13
*+SPINDLE TIMING TEST

012737
005737
001003
005757
100402

006647
003342

002714

2%:

b o

b
Eo

W
o
W

s e

s i

= OVONOT VST W=V

PUOND =

000476
005003
005004
004737
004737
033010
004537
000000
005037
004737
013737
004737
033010
012701
004737
033010
004737
033010
012701
012705
004737
033010
011562
014562
‘014562
014562

006006
000004
000002
000000

012700

005670

104027
005737
001010

004737
012603

104443
002735
011526
000137
005737
100005

MOv
181

013346

104032

1%:

015274
015312

60%
JSR
0
CLR
JSR

003004

022522

002736
012030
000137
01270%
005037

MANUAL

sYES = SKIP
JELSE SKIP TEST

TST

CSEXIT
L10046~-.
R3

TESTS WERE

JSR

.WORD
JMP

181
BPL
ERRHRD
TRAP
.WORD
.WORD
JMP

MOv

(LR

RUN

;CLEAR FOR TIMING STORAGE

R&
PC,TSTINT
PC,GSTATR

;INITIALIZE TEST
;CLEAR DRIVE
:GENERATE DATA

R5,DATGEN

;PATTERN 0

#64. ,R1 ;SET
#L.MP,RS
PC,XWRITT

MOV

4%:

sTEST

MOv
MOV

TRAP
.WORD

033010
002744
002710

MISWIW

sVERIFY POSITION

WAITUS
MOv
EMT
181
BNE
JSR

104443

PASS 0

PC,VERPOS

MOV
MOv
MOV
MOv

6%:

;NO - SKIP

JSR

ERRHRD

033010
002746

;TEST

115::

;SET ERROR HMEADER

#P2T115E ,ERHEAD
PASNUM

;SET WAIT FOR 3C0 MS

60%

015142

TIMING TEST

#3000.,R1

60%

002710

*+SPINDLE

MOV
JSR

60%

5%:

;TEST 13

PC,XSEEK

JSR
60%

021422

SEQ 0121

;CLEAR TO SECTOR 0
;60 SELECT HEAD
;SET FOR CYLINDER
;D0 SEEK

MCv

005670
021026

000100
002744

BNE
18T
BMI]
EXIT
EMT
.WORD
CLR
CLR
JSR
JSR

022104
003016
017546
013350
016204

«TEST

E 10

DESSEC

PC,CHOSHD

LOLIMW NEWCYL

;WAIT

PC,RDYWAIT

LOOP

(R5) ,RLMP(R2)
=(R5) ,RLDA(R2)
=(R5) ,RLBA(R2)

FOR READY

COUNTER

;SET A POINTER
;00 FIRST WRITE

:LOAD RL REGISTERS

=(R5J,RLCS(R2)

#3000.

#3000.,RO
(SWTU
DONE
6%
PC,WAITIN

(SP)+ ,R3
1501., ,ERR
TSERCODE
1501

ERR1
60%

T.CS

4%
1502., ,ERRE
T$ERCODE
1502
ERRG

60%

#L.MP,RS
DONE

;TEST 1F INTERRUPT
;YES = SKIP
;ELSE WAIT FOR TIMEOQUT
;GET MESSAGE POINTER

:TEST
:NO =

IF ANY
SKIP

ERRORS

sSET POINTER 10 RL LOAD REGS
;CLEAR

INTERRUPT

INDICATQOR

CIRLJAD RLOV/2 DR TST 2 MACRO v03.01

*TEST

&7
48
49

50
5

«+SPINDLE

TIMING TEST

9-FEB=79 19:23:55 PAGE

011562
014562
014562
014562

000006
000004
000002
000000

MOV
MOV
MOV
MOV

012700

005670

MOV

104027

104052

005737
001007
004737
012603
106443
002737
011526
000500
005737
100004

WAL TUS

EMT
GETTIM
EMT

002710

1S
BNE
JSR
MOV

015142

ERRHRD

002746

104443

002740
012030
000471
060003
005504
005301
001270
012701
000241
006004
006003
005301
001373

007040
007016
010602
000003

062706

000010

005046
153716
12746

002735
006033

013746
012746
012746
012746
010600
75

000006

012746
012746
012746
012746
010600

104017

764 032704

8% :

002730
006022
010630
000005

104017
062706

000014

013746
012746

003130
007064

108:

TRAP
.WORD
-WORD
BR
1S

BPL
ERRHRD
TRAP

.WORD
-WORD
BRADD
ADC
DEC
BNE
MOV
CLC
ROR
ROR
DEC
BNE

PRINTF

MOV
MOV
MOV
MOV
MOV
EMT

ADD

PRINTF

(LR
BISB
MOV

MOV
MOV
MOV
MOV
MOV

17-1

SEQ 0122

(RS) ,RLMP(R?2)

=(RS),RLCA(R2)
=(RS) ,RLBA(R?)
=(RS) ,RLCS(R2)
#3000.
#3000.,R0
(SWTU
RO
C$GTIM
DONE
7$
PC,WAITIN

(SP)+,R3
1503., ,ERR]
TSERCODE
1503
ERR1
60%

;LOAD RL REGISTERS FOR 2ND WRITE

;WAIT
sGET

FOR

INTERRUPT

TIME WAITED

sTEST IN INTERRUPT OCCURRED
sYES = SK]P
;G0 WAIT

FOR

INTERRUPT

;GET MESSAGE POINTER
;REPORT

TalN

;TEST

1504., ,ERRG
T$ERCODE
1504
ERR6

:REPORT

IN ANY

:NO = SKIP

60%

ERROR

ERRORS

RO,R3

;ADD

R1
5%

;DEC LOOP COUNTER
;LOOP UNTIL O

IN TIME

;DOUBLE

#6,R1

USED

PRECISSION

;SET

DIVIDE

;CLEAR CARRY FOR DIVIDE
;DIVIDE SUM By 100(8)

sDEC

DIVIDE

10%
;LOOP UNTIL
#FMT1.1,#SRTMES,#VALDES

COUNT

DONE

#VALDES,-(SP)
#SRTMES ,-(SP)

#EMT1.1,-(SP)

#3,-(SP)
SP,RO
CSPNTF

;

#10,SP
lfg;?.lBASADD.RLBAS.IDRVNAH.<B.RLDRV°1>
-(
:
RLDRV+1,(SP)
#DRVYNAM,=-(SP)
RLBAS,~-(SP)
#BASADD,=(5P)

#FEMTS5,-(SP)

#5,-(SP)

SP,RO

EMT
ADD

#14,SP

MOV
MOV

EXROT,=(SP)
#MAPROX ,=(SP)

PRINTF

CSPNTF

BFMT26 , #RESEZ, RT3, #RESES , #MAPROX E XRO!T

CIRLJAD RLOV/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE
*TEST 13
*+*SPINDLE TIMING TEST

=lolelelelelelelo]lelole]

32756
32762
32764
32770
32774
33000
33002

03
3
3

010365

MOv
MOV
MOV
MOV
MOV
MOV

010361
011451
000006
000014
000002

EMT

00272C

ADD

MOV
¢€0%:
ENDTST
L10046:
EMT

17-2

6 10
SEQ 0123

#RESEL ,-(SP)

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

#EMT26,-(SP)
#6,-(SP)

SP,RO
CSPNTF

#16,5P
#2 ,ERRSWI

C$ETST

;INITIALIZE ERROR SWIT(H

CZRLJAD RLOV/2 DR TST

**WRITE/READ DATA

WWWNWNO
WO

NNNWN
=
-

—o
~N e
~NO
SO
WWW =N
NNNWWNNYN

006672
017656
015274
015312

002714

177776

MOV
1ST

003342
000001

013346

177760

002406
00001C
013350
002202

013352
013352
013352
000002
000001

000016
000001

002202

002412
002414
002416

013346

2%:

13100%:

002200

3%:

000122

016537
043737

002506
002206

103007

001773

446%:

002202
002202

034126
013352

4%:

5%:

002202
002202

013350

002202

013352

002446
002202
002202
002202
002202
002202
002202
002726

69%:

000002
000004
000006
000010
000012

8%:

**WRITE/READ DATA
sTEST 14
#P2T16E ,ERHEAD
PC,CKBSVD
PC,TSTINT

sCLEAR PASS 10 0
;SET
;TEST IF FIRST PASS

#-16..RS

MOV
MOV
MOV
DEC

#1331BL.R1
#10,JJJ
LOLIMW,(R1)+
JJJ

BNE
181
BNE
ADD
(MP

BEQ
(MP
BHIS
BR
CMP
BHIS
MOV
BIC
BNE
JMP
(MP
BEOQ
MOV
(MP
BLO
(MP
BH]
MOV
MOV
MOV

MOV
MOv
MOV
MOV
MOV

114::
;SET ERROR HEADER
;60 CHECK IF BAD SECTOR FILES VALID
sINITIALIZE TEST

PASCNT
#-2 RS
PASNUM

MOV

;CLEAR DRIVE

SALLCYL

MOV
MOV
MOv
ADD

(PART

FC,GSTATR

BNE
BIT
BNE

BNE

000244
020527

*TEST

JSR
JSK
JSR
13165%
CLR

003134

H 10

SEQ 0124

MOv

003342

WO
OO =ON W
NWWWWWNWWW
S YO NN

LN LN
N U U
N UM

o=l

AN UM

VWS W

VANV
S S

=O 0N

il
lnlelelelelelelelelel

NN w

36 033216

012737
004737
004737
004737
034126
005037
012705
005737
001006
032737

WNNNNNNNWN NNW

22 033130
23 033136
26 033144
25 033150
26 033156
27 033160
28 033164
29 033166
30 033172
31 033200
32 033202
33 033206
34 033210
35 033212

(PAR}

BONTST

033072
033076
033076
033102
033110
033114
033120
033122

9-FEB=79 19:23:55 PAGE

% LSBTTL

— s s D ) e clt

0 33020
0 33020
0 33020
0 33026
0 33032
0 33036
0 33042
0 33044
0 33050
0 33054
033060

OCOO0OO0O0O0O0O0O

[

I I
—

—‘OOONO‘\APWNJOO@‘NOV‘PA‘W ~n —

elelelelelelele
P el el
—
it s it s s
PO CONY
O WWHNWN N NN
= NWWWO

«TEST

2 MACRO v03.01

MISWIW

sNO - SKIP
TEST

USE

ALL

sYES = SKIP

sELSE

SET

(QUICK

VERIFY)

CYLINDERS

PEOPLE

TO NEG 8

sGET ADDRESS OF WORK TABLE
sSET CLEAR COUNT
sCLEAR LOCATICNS TO LO LIMIT
sDEC COUNT

2%
;LOOP UNTIL O
HILIMW,T33TBL+4 ;INSERT HILIMIT
HILIMW,T33TBL+6 ;INTO APPROPRIATE LOCATIONS
HILIMW,T33TBL+10
#2,RS

NALLCYL

;BUMP RS By

MISWIW

PASNUM

TEST

USE

ALL

;TEST

FIRST

;ELSE
;RLOY

BUMP CYLINDER POINTER BY
OR RLO2?THAT IS THE Q

JYES = SKIP

CYLINDERS

PASS

(QUICK

sNO - SKIP

649
RS,#164.,
4%
69%

sANS

;TEST PAST TABLE-YES EXI17

;TES PAST

#16,RS
#1,T.DRIVE

CYLTBL(RS),JJJ

VERIFY)

IS RLO1

THE

TABLE

;GET NEXT TABLE ENTRY

gtRBVT.JJJ

:CLEAR UPPER BYTE

13165%
HILIMW,RS

SEXIT
:TEST

RS,JJJ
JJJ,LOL 1My

;USE RS AS NEXT CYLINDER
:CHECK IF LOWER THAN LOLIMIT

131008

JJJ MILIMY
131008
#1BT,R3

JJJ,(R3)
JJJ,2(R3)
JJJ,6(R3)
JJJ,6(R3)
JJJ,10(RY)
JJJ,12(R3)
R3,TBLSTR

TEST
IF ALL CYLINDERS USED

(YES = EXIT

TEST

SYES = SKIP

:CHECK 1F HIGHER THAN WILIMIT
(YES = SKIP

;STORE

TABLE

ADDRESS

CIRLJAD RLOY/Z2 DR TST 2 MACRO v03.01
14

**WRITE/READ DATA

004737

104002

37¢

400
602

33416

3576

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
042737
004537
000000
032737

9-FEB=79 19:23:55 PAGE

(PART

017546

131018%:
BGNSUB

003760
003134

002706

003134

000003

000003
000020

003134
002706

003134
000040
000003
002726
002406
002446
003016
003004
016204

002706
002724

SEQ. 0125
JSR

PC,CHOSHD

EMT

($BSUB

1S1

PASCNT
1%

BIC

BEQ

(mMp
BEQ

BLT

10%:
11%:
12%:

15%:

18-1

MOV

BIS
BR
(LR
BIS

;GO CHOSE HEAD
114.1:

#MQUALS ,OPFLAG

PASCNT ,#3
10%
1%
#3,PASONT

#INOUTS ,OPFLAG

12%

PASCNT
#OUTINS ,OPFLAG

#3,WRTSWI
TBLSTR,R3
#T1331BL
R
#1BT,R3
DESSEC
(R1)+ NEWCYL

;CLEAR ALL MESSAGE QUALIFIERS

;TEST

PASS 0

;{EST

PASS 3

;CHECK

;YES = SKIP

LESS THWAN 3,

;ELSE SET 10 3
sSET MESSAGE QUAL
;SKIP
;SET PASS COUNT T0 0
:SET MESSAGE QUAL
:SET READ AND WRITE SWIT(H
;GET STORED TABLE ADDRESS

;D0 SEEK

#3000. ,R1

;SET WALT COUNT FOR 300 msS
;WAIT FOR READY

PC,XSEEK

(R3)+ NEWCYL

JGET NEXT
;D0 SEEK

005670
021026

#3000. ,R1

;SET WAIT COUNT FOR 300 mS

021422

PC,VERPOS

;VERIFY POSITION

PC,BSCHK

:CHECK

005670
021026

PC.RDYWALT

003004
016204

PC,RDYWALT

023252

16%:

003016
177770
022104

033564
033564

000001

00272

DESSEC,25%

¢5%:

003016

000069
000001
000100
003016

002706
002724
002706

000002

002724

022572

#B1T0,WRTSWI

29%

022532
003016
000050

#177770,25%
RS ,DATGEN

YES CLEAR T0 0

;CLEAR TO SECTOR 0
SGET NEXT TABLE ENTRY

PC,XSEEK

«TEST

110

;WAIT

TABLE ENTRY

FCR READY

FOR BAD SECTOR

:""YES'' RETURN
;SET DATA PATTERN = TO SECTOR NUMBER
;CLEAR ALL BUT LSP
;GO GENERATE DATA
TEST IF WRITE
sNO = SKIP

THIS PASS

PC.XWRITE

;D0 WRITE

DESSEC
#40. ,DESSEC
-16%

: INC SECTOR

#B1T0,WRTSWI

;CLEAR WRITE REQUIRED SWIT(H
sSET FOLLOWING WRITE QUALIFIER

;TEST IF ALL SECTORS USED
:NO - SKIP
#INOUTS!OQUTINS,OPFLAG ;CLEAR QUALIF JERS

FFOLWRT ,OPFLAG

DESSEC
16%

29%:

#BITT

31%:

PC,XREAD

53%

WRTSWI

JCLEAR T0 SECTOR 0
:SKIP
;TEST
sNO =

IF READ
SKIP

;ELSE DO READ

THIS PASS

JILFFE

N NN N
~

gONN
orNn

i
i

il
i

N N

il
il

i
i
i
il

33750
33752

022244

003G16

000050

003016

32%:

PC,DATCOM

INC
(MP
BNE
(LK
(LR
INC
BIC
cmp

DESSEC
#40. ,DESSEC
16%
DESSEC
WRTSWI
PASCNT

0427
0237

000003

0237

003134

000006

000002
003134

002724
000001

003134

000005

002000

002706

37%:

#FWDSKO,CPFLAG

- 000020

002706

29%:

¥ INOUTS ,OPFLAG

000040
033454
000002

002706

40%:

#OUTINS ,OPFLAG

il
il
it il
it

012737
034042

104003

034044
034046

104010

1
1
1

104001

cococoonvo

NN
-

000060
012737
023727
001004
012737
000410
005037
004737
033144
012737
062703
000137

FEFFER

1
1
1

034050
034056
034064
034066
034074
034076
034102
034106
034110
1
1
j=l=lelelle]

140
141
162
143
144
145
146
147
148
149

J 10

003016
002724
003134
003760
003134

33766
33770

139 034044

18-2

JSR

60%

33%:

002706

002720

#MQUALS ,OPFLAG

BEQ

PASCNT,#3
60%

BEQ

60%

(MpP

MOV

CMpP
BEQ

PASCNT ,#6

#BIT1,WRTSWI
PASCNT
.,

40%
PASCNT
, #5
40%

39%

004737

666

\:gWWWWWUNNNNNNNNNN-‘—‘—‘—‘4-“—‘
VB WN=O 00NV
NN =000~
N8 Wy

CZRLJAD RLO1/2 DR TST 2 MACRO v03.01 9=FEB=79 19:23:55 PAGE
*TEST 14
«*WYRITE/READ DATA (PAKT 2)

36%

36%:
60%:

15%

#2 ,ERRSWI

ENDSUB

L10050:

(SESUB
181

(SESCAPE

000003
003134

002724
000003

002414

002726

003134
017572
002406
000006
033352

; COMPARE DATA

;BUMP SECTOR

;TEST

1S PASS 3

ALL

SECTORS USED

:NO - LOOP
;CLEAR DESIRED SECTOR
;CLEAR WRITE/READ SWITCH
;BUMP PASS COUNT
sCLEAR ALL QUALIFIERS

;YES = SKIP

;TEST IF PASS 6
:YES = SKIP

;SET READ REQUIRED BIT
sTEST IF PASS 1
;YES = SKIP
;TEST IF PASS &
;YES = SKIP
;SKIP
;SET FWD QUALIFIER
;GO DO NEXT PASS
;SET QUALIFIER
;SKIP
;SET MESSAGE QUALIFIER
;GO DO NEXT PASS
;INIT ERROR SWITCH

SEXIT TEST

IF ERROR

L10047~-.

MOV

45%:

002726

SEQ 0126

CLR

131008

48%:

13165%:
ENDTST
L10047:

#3,WRTSWI
;SET FOR READ AND WRITE REQ.
PASCNT,#3
;TEST 1F PASS 3
45%
:NO - SKIP
#T133T8L+6,TBLSTR :STORE MID POINT IN TABLE
48%
;G0 START PASS &
PASCNT
PC,SWAPHD

ADD

JMP

#T331BL,TBLSTR
#6,R3
13101%

EMT

(SETST

MOV

:CLEAR TO PASS 0
;GO SWAP TO HEAD 1 OR END TEST
;ABORT RETURN
;STORE START OF TABLE

[

= OV

NO VNS WNN—=O

e S
—

VONOVST
W

CZRLJIAD RLO1/2 DR TST 2 MACRO v03.01 9-FEB-79 19:23:55 PAGE
«TEST 15
**WRITE LOCK ERROR AND DATA PROTECTION

034130
034130
034130
034134
034136
034142
034144
034150
034150
034150
034150
034152
034160
034164
034170
036172
034176
034202
034206
034212
034214
034220
034224
034226
034232
034234
034242
034244
034250
034252
034256
034260
034264
034266
034272
034274
034274
034276
034302
034306
034312
034316
034322
034326
034332

.SBTTL
BGNTST

005737
001003
005737
1004C2
000137

003342
013346
035120

%::

«TEST

151
BNE
151
BMI
JMP

kK 10

SEQ 0127
«+WRITE LOCK ERROR AND DATA PROTECTION

sTEST

PASNUM

;TEST

FIRST

MISWIW

sTEST

RUN MANUAL

3%
13265%

115::

PASS

:NO = SKIP

;YES - SKIP
JEXIT TST

INTERVENTION

BGNSUB
104002

012737
004737
004737
034772
005037
005037
005037
004737
034772
0127071
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

006713
015274
015312

002714

MOV
JSR
JSR
60%
CLR
CLR
CLR
JSR
60%
MOV
JSR
60%
JSR
60%
BIT
BNE
JSR
7
JSR
60%
JSR
60%
JSR
60%

003014
003016
003004
016204
005670
021026
021422

020000

002754

022104

022532
022572
022244

PRINTF

CLR
B1SB
MOV

002735

006033
002730
006022
007312
007341
010503
000007

062706
012701

000020
000006

012700

000062

004737
034772
032737
001037

015312

104026

EMT

020000

MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT

5%:

#P2T17E ,ERHEAD
PC,TSTINT
PC,GSTATR

;SET ERROR HEADER
JINITIALIZE TEST
;CLEAR DRIVE

DESHD
DESSEC
NEWCYL

:SET T0 HEAD O
sSET TO SECTOR 0
sCLEAR TO CYLINDER 0

#3000.,.R1

;SET WAIT FOR 300 MS

PC,VERPOS

:VERIFY POSITION

PC,XSEEK

PC,RDYWALT

FULSTAT,T.MP

;D0 SEEK

:WA1T

FOR READY

sTEST

PC.XWRITE

sWRITE

DATA

PC,XREAD

;READ DATA

PC,DATCOM

;CHECK DATA

7%
RS.DATGEN

WRITE

LOCK

sYES = SKIP
:GENERATE DATA
;PATTERN 7

SET

#FMTOP1,#0PROO4
,#OPR1A ,#BASADD ,RLBAS , #DRYNAM,<B ,RLDRY+*1> ;REQUEST
=(SP)

RLDRV+1,(SP)

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

#OPR1A,=(SP)
#OPRO04 ,~(SP)
#FEMTOP1,-(SP)
#7,-(SP)

SP.RO
CSPNTF

ADD
MOV
WAITMS
MCv

#20,SP

JSR
60%
Bl
BNE

PC,GSTATR

;GET

FWLSTAT,T MP

sCHECK

EMT

002754

($BSUB

115.)¢

#6. . .R1

#50.
#50.,R0

(WM

:SET WAIT COUNT FOR 30 SECONDS
sCALL WALT

STATUS
17

WRITE

JYES = SKIP

LOCK

SET

WRT

CZRLJAQO RLOV/2

*TEST

MACRO v03.01 9-FEB-79 19:23:55 PAGE
LOCK ERROR AND DATA PROTECTION

41 034376

034376
034402
034406
034412
034414
034416

43 034424
46 034426
034426
034430
034434
034440
034444
034450
034454
034460
034462
034464
45 034470
034470
034472

46
47
48
49

034474
034500
034502
034506

50 034512
51 034516
52 034522
53 034526
54 034530
55 034534
56 034540
57 034544
58 034550

59 034554
60 034560
61 034564
034564
034570
62 034572
63 034576
64 034600
65 034602
66 034604
67 034610
68 034612
034612
034614
034616
69 034620
034620
034622
70 034624
71 034630
72 034632

012700
104027
005737
001012
005301
001370

004737
012603

;RING BELL

SP,RO
CSPNTF

R1
:DEC COUNT
5%
;:SKIP IF NOT 0
lt2;§3,0P2117E.IBVPSNH,IOPRIA.<8.RLDRV01> :RPT BYPASSED

#P2T17E,-(SP)
#EMT23,-(SP)
#5,-(SP)

ADD
EXIT

#14,SP
181

{SR

R5,DATGEN

002736
000112
002734
002000
004346

MOV
MOV
B1S
BIC
MOV

ML.CS,RS

;GENERATE DATA
sPATTERN 1
;:GET ADDRESS OF

RLDRV, (RS)

: INSERT DRIVE NUMBFR

#OBUFF , (R5)+

:LOAD BUS ADDRESS

177600
000454

MOV
MOV

MOV
EMT

022104

7%:

EMT
.WORD

CLR

002710
000006
000004
000092
000000

10%:

000001

CLR
MOV
MOV
MOV
MOV

WAITUS

MOV
EMT

002710

181

BNE
DEC
BNE

015142

JSR

MOV

ERRHRD

104443
003245
011526

TRAP

.WORD
.WORD
EXIT
EMT

104032

000156
004737
034772
032737

SEQ 0128

BISB
MOV
MOV
MOV
MOV
MOV

104032

014562

#6,SP

PRINTF
CLR

000014

014562

ADD

DEC
BNE

002735
007312
007415
006713
011420
000005

000426
004537
000001
012705
012715
053715
042725
012725
005025
012725
012701
005037
014562
014562

NEMT2 ¥BELL
#BELL,~(SP)
WEMT2,-(SP)
#2,-(SP)

MOV
EM]

000006

42 034422

MOV
MOV
MOV

PRINTF

010355
010611
000002

19-1

015342
040000

14%:
002746

JSR
60%
BIT

RLDRV+1,(SP)
#OPR1A,=(SP)

#BYPSNM,-(SP)

SP,RO
CSPNTF

CSEXIT
L10051~,

#WTIDATA, (RS)
#BIT10,(R5)+

(R5)+
#177600,(R5)+
#300.,R1
DONE
=(R5) ,RLMP(R2)
=(RS) ,RLDA(R2)

L REGS

:LOAD WRITE COMMAND

:CLEAR FOR DRIVE & = 7 SPEC'D

:CyL 0, HD O, SECTOR 0
;128 WORDS
:SET WAIT COUNT FOR 30 MS
;CLEAR INTERRUPT FLAG
;LOAD RL REGS

=(R5) ,RLBA(R2)

=(R5) ,RLCS(R2)
"
#1,RO
(SWTU
DONE
14%
R1

;CHECK IF INTERRUPT
;YES - SKIP
;DEC WAIT COUNT

PC,WAITIN

:WAIT

FOR

PC,GSTAT

;GET

STATUS

#DRVERR,T.CS

;TEST

10%

(SP)+,R3
1701., ,ERR1
TSERCODE
1701

;:LOOP IF NOT O

INTERRUPT

;GET RESULT MESSAGF

ERR1

SuB
CSEXIT

L10052~-.

ANY ERROR SET

CIRLJAQ RLOV/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 19-2
*TEST 15
**WRIT 3 LOCK ERROR AND DATA PROTECTION
73 034640

001005
012703

034646
034650
034652

104443

035000
035000
28 035002
99 035010
035010
035012
035016
035022
035026
035032
035036
035042
035046

062737
042737
032737
001004
032737
001404

BNE

007703

002000

MOV

002754

003247
012030
000414
004737
034772
004537
000007
004737
034772
004737
034772
012737
104003
012737

005046
153716
012746

017

15%:

007762

ERRHRD
TRAP
.WORD
-WORD
BIT
BNE

MOV

ERRHRD
TRAP

.WORD

040000
002000
157400

002746
002754
002754

03600C

002746

18%:

015312

BIT

178:

022104

022572
022244
000002

002720

60$:

ENDSUB

L10052:
000002

002720

-WORD

BIC
BIC
glg
N

16$:

104443

96 034772
97 035000

104443
003250
011642

ococoooo

034670
034672
034674
80 034676
81 034704
82 034712
83 034720
84 034722
85 034730
86 034732
034732
034734
034736
034740
034742
034746
034750
034754
034756
034762
034764
034770

SNNNNYN

034654
034662
034664
034670

OO0—-=0000000
L, POt
NS ONNNMN

76
77
78
79

003246
011642
032737
001005
012703

OO0 —=0O
WNO
O —
rownwes SN

764 034642
75 034646

BEQ
ERRHRD
TRAP
.WORD
-WORD
BR

JSR
60$
ISR

JSR
60
JSR
60$
MOV
EMT

T13204%: MOV

PRINTF
CLR

002735
006033
002730
006022
007312
007273
010503
000007

BISB
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000020
000454

EMT
ADD
MOV
WAITMS

MOV

168:

000001

EMT

015312

020000

MOV

002754

15%
#MDRERR ,R3
1702.,,ERR3
TSERCODE
1702

ERR3

FUGESTAT,T.MP

18%

#MWGERR ,R3

1704., ,ERR3
TSERCODE
1704

ERR3

#DRVERR,T.CS
#WGESTAT,T.MP

10
SEQ 0129

sYES - SKIP
sSET RESULT MESSAGE POINTER
JREPORT ERROR NOT SET

;TEST

WGE

;YES = SKIP

:SET MESSAGE

FOR WGE NOT

#157400,7.MP
16%
#36000,7.CS
17%
1703., ,ERRG
TSERCODE
1703
ERRG
60%

SEXIT TEST

R5.DATGEN

;GO GENERATE DATA

PC,XREAD

:READ DATA

PC,GSTATR

SET

:CLEAR DRIVE ERROR BIT
;CLEAR WGE BIT
;TEST

ANY OTHER ERRORS

:YES = GO REPORT

;TEST ANY ERRORS

:NO - SKIP
;REPORT ERRORS

:GET

IN (S REG

STATUS AND RESET

ERROR

;PATTERN 7

PC,DATCOM

: COMPARE DATA

#2 ,ERRSWI

sINIT

ERROR SWITCH

($ESUB

#2 ERRSWI
;INIT ERROR SWITCH
ltgg?Pl.lOPRlZ.lOPR1A,#BASADD,RLBAS,IDRVNAH,<B,RLDPV01>

RLDRV+1, (SP)

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

#OPR1A,=(SP)
#OPR12.=(SP)

#FEMTOPT,=(SP)

#7,-(SP)

CSPNTF

#20,5P
#300. ,R1
#

;SET WAIT FOR 30 SEC

JSR

COWTM
PC,GSTATR

;GET STATUS

BIT

PULSTAT,T.MP

;CHECK

132048

SET

WRITE LOCK RESET

+REQ RESET

WRT

LCK

[ N

oorSrrNVO

i
e
i

001403
005301
001364
000731

[

—“O0000
ooawgm

*+*WRITE LOCK ERROR AND DATA PROTECTION

=lelelelelelele

EST

CIRLJAD RLO1/2 DR TST 2 MACRO v03.0' 9-FEB=79 19:23:55 PAGE

104001

13265%:
ENDTST
L10051:

19-3

NT0

SEQ 0130

BEQ
DEC
BNE
BR

13265%
R1
16%
13204%

EMT

CSETST

;DEC WAIT COUNT
;LCOP iF NOT 0
;ELSE REPEAT MESSAGE

CIRLJAG RLOV/Z2 DR TST 2 MACRO v03.01 9=-FEB=-79 19:23:55 PAGE
«1EST 16
*oADJACENT CYLINDER INTERFERENCE
1

2 035122
035122
3 035122

LSBTTL

BGNTST
012737

006745

5 035134
6 035140

004?}7
004757

8 035146
9 035152

005037
012705

& 035130
7 035144

10
11
12
13
14
1%
16
17
18
19

035156
035162
035164
035172
035174
035200
035202
035206
035212
035220

20 035224
21 035230

004737

036334

005737
001007
032737
001003
012705
000402
01@705
01°"01
012737
013721

005337
001373

22
2%
24
25
26
27
Sg

035232
035236
0352640
035246
035254
035262
035270

004537
000011
013737
013737
013737
013737
062705

30
31
32
33
4
35
15

075274
035302
035304
035310
035312
03531¢
035320

032737
001034
005737
001403
062705
000402
062705

38 035332

001404

40 035340
41 035342

103013
000403

37 035324

39 035334

43 035344

4; 035350

022737

**ADJACENT

:TEST

CYLINDER

INTERFERENCE

#P2T18E ,ERHEAD

;SET ERROR HEADER

015274
015312

JSK
JSR

PC,TISTINT
PC,GSTATR

JINITIALIZE TEST
:CLEAR DRIVE

003134
177776

(LR
MOV

PASCNT
#-2,RS

JSR

13365%

003342
000001

013346

177730

177770
002406
000010
013350

002202

002202
022104
013352
013352
013352
013352
000002

002410
002412
002416
002424

000001

013346

1%:
9% :
2%:

000006

000044

000001

000244

020527

000122

016537
043737
001013
000137

002506
002206

002200

181
BNE
BIT
BNE
MOV
BR
MOV
My
MOV
MOV

DEC

JSR
9.
MOV
MOV
MOV
MOV
13300%: ADD

003342

020537

103007

SEQ 0131

MOV

017656

002714

«TEST

8 N

3%:

e6%:

PASNUM
1%
FALLCYL, MISWIW
1%
#-40. RS
9%
#-10,RS
#¥1331BL,R1
#10,J0J
LOLIMW, (R1)+

JJJ

BNE

WALLCYL, MISWIW
5%
PASNUM
3%
#6,RS
6%
#36.,R5

BEQ

449

BHIS
BR

4%
69%

(MP

#1,7.DRIVE

BAD SECTOR FILES VALID

;CLEAR PASS T0 0
:SET RS

sTEST IF FIRST PASS (QUICK VERIFY)
:NO - SKIP
TEST IF USE ALL CYLINDERS
JYES = SKIP
sELSE SET RS TO NEG 20
;SKIP
JELSE SET FOR NEG &
;GET ADDRESS OF WORK TABLE
;SET CLEAR COUNT
sCLEAR LOCATIONS
10 LOLIMIT

:DEC COUNT
2%

;LOOP UNTIL O

TEST IF USE ALL CYLINDERS
;YES = SKIP
sTEST IF FIRST PASS (QUICK VERIFY)
:NO - SKIP
;ELSE BUMP CYLINDER POINTER BY 3
:SKIP
;BUMP TO NEXT ENTRY

RS,164.

(MP

RS,#82.

MOV
BIC
BNE
JMP

CYLTBL(RS) ,JJJ
CLRBYT,JJJ
8%
13165%

BHIS

;G0 CHECK

RS,DATGEN
=G0 GENERATE DATA
.
;PATTERN 9
HILIMW,T33TBL+2 ;INSERT HILIMIT
HILIMW,T33TBL+4 ;INTO APPROPRIATE LOCATIONS
HILIMW,T331BL+10
HILIMW,T331BL+16
#2,RS

BIT
BNE
181
BEQ
ADD
BR
ADD

(MpP

L46%:

PC,CKBSVD

116::

46
47
48
49

50
51
52
5%
56
55
56

035352
035360
035366
035370

035374
035376
035400
035404
035410
035612
03%16

005705
001002
062705
023705
001767
010537
023737

002202
002202

69%:

034126

4%:

000002
002204

7%:

002202
002202

5% :

013350

8%:

181
BNE
ADD
(MP
BEQ
MOV
(MP

RS
7%
#2,RS
HLMTW,RS
4%
RS,JJJ
JJJ, L0 MW

TEST IF RS O
:NO = SKIP

sTEST IF ALL CYLINDERS USED
JYES = EXIT TEST
;USE RS AS NEXT CYLINDER
JCHECK 1F LOWER THAN LOL IMIT

CIRLJAOD RLOY/2 DR

*TEST

57 035424

58 035426

59 035434
60 035436
61 035442
62 035446
63 035454
64 035462
65 035470
66 035476
67 035504
68 035512
69 035520

70
71
72
73
74
75

76
77
78
79

035526
035534
035542
035546
035552
035552

035552
035552

035554
035562
035566
035570

JST 2 MACRO v03.01

*+ADJACENT

103721

023737

101315
012703
013713
013763
013763
013763
013763
162737
013763
013763
062737

013763
013763
010337
004737

104002
042737
005737
001414
023727
001404
002407

CYLINDER

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

013352

002446
002202
002202
002202
002202
002202
000001
002202
002202
000002

000006
000010
000012
000016
002202
000002
000012
002202

002202
002202
002726
017546

003134

000004

000004
000020

003134
002706

052737

003134
000040

002706

88 035640
89 035644
90 035650

012701
012703
005037

002406
002446~
003016

93
94
95
96
97
98
99

036242
012701
004737
036242
012337
004737
036242

87 035632

21 035654
92 035660

100
101
102
103
106
105

035664
035666
035672
035676
035700
035704
035710

035712
035716
035722
035726
035730
035732

106 035736

107 035740

108 035746
109 035750
110 035754

1119035756

012737

012137
004737

000003

L
10%:

000001

:YES = SKIP

JJJ,4(R3)
JJJ,14(R3)
R3,TBLSTR
PC,CHOSHD

($BSUB
#MQUALS,OPFLAG
PASCNT
1%
PASCNT, #4
108
1%

12%:

MOV

#3, WRTSWI

BIS

MOV
MOV
CLR

16%:

WOUTINS,OPFLAG

#1331BL,R!
#1BT,R3
DESSEC

;CHECK IF HIGHER THAN HILIMIT

;60 CHOSE HEAD

T16.1:
;CLEAR ALL MESSAGE QUALIFIERS
:TEST IF PASS 0
:YES = SKIP
:TEST IF PASS &

:YES = SKIP
:CHECK IF LESS THAN &,
;ELSE SET T0 4
;SET MESSAGE QUAL
:SKIP
:SET PASS COUNT TO 0
;SET MESSAGE QUAL

;CLEAR TO SECTOR 0
:GET NEXT TABLE ENTRY
;D0 SEEK

#3000. ,R1
PC,RDYWALT

:SET WAIT COUNT FOR 300 MS
:WAIT FOR READY

(R3)+ NEWCYL
PC,XSEEK

:GET NEXT
;DO SEEK

#3000, ,R1
PC,RDYWALT

:SET WAIT COUNT FOR
:WALT FOR READY

PC,VERPOS

:VERIFY POSITION

PC,BSCHK

;:CHECK FOR BAD SECTOR

BIT

#B110,WRTSWI]

;TEST IF WRITE THIS PASS

INC

DESSEC

JSR
60%
MCV
JSR
60%
JSR
60%
JSR

32%

BEQ
JSR
60%

29%
PC,XWRITE

YES CLEAR T0 0

:SET READ AND WRITE SWITCH

(R1)+,NEWCYL
PC,XSEEK

MOV
JSR

60%
MOV
JSR
60%
MOV

002724

13300%
#1BT,R3
JJJ,(R3)
JJJ,6(R3)
JJJ,10(R3)
JJJ,12(R3)
JJJ,16(R3)
#,JJJ
JJJ,2(R3)
JJJ,12(RY)
#2,JJ)

11%:

15%:

023252

003016

EMT
BIC
181
BEQ
CMP
BEQ
BLT

(YES = SKIP

#4 ,PASCNT
#INOUTS,OPFLAG
12%
PASCNT

021422

022532

MOV
MOV
MOV
JSR

SEQ 0132

13300%

JJJ, HILIMW

MOV
BIS
BR
CLR

003004
016204

032737

005237

BHI
MOV
MOV
MoV
MCV
MOV
MOV
SUB
MOV
MOV
ADD

005670
021026

001425
004737
036242

002724

003004
016204

012701
004737
036242
004737
036242
004737

036046

CMP

13301%:
BGNSUB
002706

012737
052737
000405
005037

BLO

000004
000014

003760
003134

80 035576
81 035600
82 035602
83 035610
84 035616
85 035620
86 035624

INTERFERENCE

002202

—

TABLE ENTRY

:"'YES'' RETURN
:NO-= SKIP
:D0 WRITE

INC SECTOR

300 MS

DR TST 2 MACRO V03.01 9-FEB=79 19:23:55 PAGE 20-2
++ADJACENT

022737
001360
062737
062737
052737
005037
000744
032737
001414
004737
036242
004737
036242
005237
022737
001324
005037
005037

005237
042737
023727
001453

023727
001447

000772
052737
000403
052737
012737
000757
012737

CYLINDER

INTERFERENCE

000050

003016

000060
000001
000100

002706
002724
002706

000002

002724

003016

31%:

022573
022244

003016
000050

003016

036314

012737
023727
001004
012737
000410
005037
004737
035270

32%:

33%:

(MP
BNE
B1C
BIC
BIS
CLR
BR

#40. ,DESSEC
169

;TEST IF ALL
;NO
= SKIP

SECTORS USED

#B1T0,WRTSWI

;CLEAR WRITE

REQUIRED SWITCHM

DESSEC
16%

:CLEAR TO SECTOR 0
:SKIP

BEQ
JSR

33%

PC,XREAD

:NO - SKIP

JSR

PC,DATCOM

: COMPARE

INC
(mpP
BNE
CLR

DESSEC
#40. ,DESSEC
16%
DESSEC
WRTSWI

:BUMP SECTOR
;TEST IF ALL SECTORS USED
;NO - LOOP
;CLEAR DESIRED SECTOR
;CLEAR WRITE/READ SWITCH

60%
PASCNT,#8.
60%
PASCNT,#3

;YES - SKIP
:TEST 1F PASS 8.
:YES = SKIP
:TEST 1F PASS 3

:TEST 1F PASS 7
(YES = SKIP
:SET WRITE REQUIRED
;TEST 1F PASS 1

:TEST

BIT

60%
60%

#INOUTS'OUTINS,OPFLAG
#FOLWRT,0PFLAG

#BIT1,WRTSWI]

003016
002724
003134
003760
003134

002706
000004

003134

000010

003134

000003

003134

000007

000001
003134

002724
000001

PASCNT , #7
40%
#BIT0,WRTSWI]
PASCNI "

003134

000002

PASCNT, #2

000040
035650
000020

002706
002706

36%:
37%:

000200

002706

000400
000002

000002

(LR
INC
BIC

39%

37%
37%

#OUTINS,OPFLAG

FOLLOWING WRITE

QUALIFIER

:TEST IF READ THIS PASS

:ELSE

DO READ

DATA

:BUMP PASS COUNT
;CLEAR ALL QUALIFIERS
:TEST 1S PASS &

JYES - SKIP

:YES - SKIP
IF

PASS 2

JYES = SKIP

;GO DO NEXT PASS
;SET MESSAGE QUALIFIER

MESSAGE

QUALIFIER

39%:

:?EVSKS.OPFLAG

:SET MESSAGE

QUALIFIER

002706
002724

40%:
41%:

#FWDSKS,OPFLAG
;g}t\.un1su1

;SET
:SET

002720

60%:

#2 ,ERRSWI

:INIT

ERROR SWIiCH

;EXIT

TEST

ENDSUB

L10054:

EMT
ESCAPE
EMT
.WORD

L10053~.

(MP

PASCNT, #4

000003
003134

002724
000004

MOV

002416

002726

MOV

003134
017572

PASCNT
#MQUALS,OPELAG
PASCNT, #4

:SET

;CLEAR QUALIFIERS

15%
gé:OUTS.OPFLAG

104003

104010
000060

29%:

SEQ 0133

BNE

45%:

BR
(LR
JSR
133008

($ESUB
181

CSESCAPE

#3,WRTSWI

;SET

MESSAGE QUALIFIER
READ REQUIRED

ERROR

:SET FOR READ MND WRITE REQ.
;TEST

PASS 4

45%
INO = SKIP
#1331BL+10,TBLSTR ;STORE MID POINT
48%
:GO START PASS 4

IN TABLE

PC,SWAPHD

PASCNT

;CLEAR TO PASS 0
160 SWAP TO MEAD
;ABORT RETURN
)

END

TEST

CIRLJAD RLQ1/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 20-3

«TEST

165 036316
166

167 03632¢
168 036330
169 036334

*+*ADJACENT

012737

0024C6

062773
000137

000C10
035552

170 026334

036334
03633

CYLINDER

104001

INTERFERENCE

002726

4«8%:
13365%:
ENDTST

L10053:

SEQ 0134

MOV

#1331BL,TBLSTR

ADD

#10,R3

EMT

(SETST

JMP

;STORE START OF

TABLE

13301%

———
e e
et

CIRLJAC RLOY/2 DR
17

2 MACRO v03.01

*+OVERWRITE

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

003134

002714

JSR
JSK
JSR
13465%
CLR

w
~

NNNNWWNSN

WWWW
N WO W

012701

COO0OO0O0OO
Ot
et it OO = s
NN NN = NN

= OOV

22 036446

MOv
1S1

003342
000001

BNE
BIT
BNE

013346

177730

MOV

177770
002406
000010
013350
002202

MOv
MOv
MOv
MOV

013352
013352
013352
000002
000001

002202

002410
002414
002420

013346

DEC
BNE

13400%:

000046

000006
000001

002290

000122

i%:
6%:

4449

002202
002202

037526

WNAWWNN
N -y~

= O —

NNNWNNNWT

56 036646

COO—=0—=00
SIS lonor—

001767

669%:
4%:

5%:

000002

002204

7%:

002202
002202

013350

002202

013252

002446
002202
002202

BIT

ADD

000244

00250¢
002206

MOv
MOV
MOV
ADD

BNE
151
BNE

003342

*TEST

MOv

177776

NO N

T
—

W= OO

SBTTL
BGNTST

006772
017656
015274
015312

SEQ 0135

N —s

«TEST

TST

e
g

000002

ADD

(MP
BEQ

(MP
BHIS
BR
(MP
BHIS

MOV

BIC
BNE
JMP
181
BNE
ADD

(MP
BEQ

MOV

(MP
BLO

*+*OVERWR]TE
TEST 17
#P2T19E ,ERHEAD

;SET

PASCNT
#-2,RS

:CLEAR PASS
;SET RS

;NO - SKIP

PC,CKBSVD
PC,TSTINT
PC,GSTATR

PASNUM

WALLCYL,MISWIW

1%
#-40.,RS
9%
#-10,R5
#73318L,R1
#10,0J)
LOLIMW, (R1)+
JJJ

;G0 CHECK IF BAD
JINITIALIZE TEST
sCLEAR DRIVE

117
SECTOR

;TEST

FIRST

;TEST

USE

PASS

ALL

;TEST

USE

PASNUM

;TEST

FIRST

3%
#38..RS
6%

#6,R5
#1,1.DRIVE
4448
RS, #164,
4%

669%

(QUICK

VERIFY)

CYLINDERS

JYES = SKIP

ALL

LOCATIONS
CYLINDERS

PASS

(QUICK

VERIFY)

NO = SKIP
sELSE BUMP CYLINDER POINTER BY
;SKIP

;BUMP CYLINDER POINTER BY

;FOR

INF,

SEE

TEST

RS,#82.
4%

CYLTBL(RS),JJJ
CLRBYT,uJJ
8%
13465%
RS
7%
#2.,R5
#HLMTW,RS
4%
R5,J0J
JJJ,LOLIMY

13400%

JJJ HILIMW

MCv
MOV
MOv

#1B1,R3

13400%

JJJ,(RY)
JJJ,2(RY)

VvALID

sYES - SKIP
sELSE SET RS 1O NEG 20
:SKip
sSET FOR NEXT ENTRY
;
;GET ADDRESS OF WORK TABLE
sSET CLEAR COUNT
y
sCLEAR LOCATIONS TO LOLIMIT
sDEC COUNT

#2,RS
MALLCYL ,MISWIW

FILES

10 0

2%
sLOOP UNTIL O
HILIMW,T33TBL+2 ;INSERT HILIMIT
HILIMW,T33TBL+6 ;INTO APPROPRIATE
HILIMW,T33TBL+12

(mp

BHI

ERROR HEADER

sEX1T TES?
sTEST IF RS O
:NO = SKIP
sTEST IF ALL CYLINDERS USED
JYES = EXIT TEST
sUSE RS AS NEXT CYLINDER
sTEST IF PAST LO LIM]T

JYES = SKIP

JTEST

1F PAST MWILIMIT

JYES = SKIP

CZRLAD RLOY/2 DR TST 2 MACRO v03.01
«TEST 17
+*+OVERWRITE

036670
036676
036704
036710
036714
036714
036714
03671¢
036716
036724
036730
036732
036740

65
66
67
68
69
70 036742
71
72
73
764
75
76
77
78
79

036744
036752
036760
036762
036766
036774
037002
037006
037012

oo
8o

nNEBEOONONO
SO SFO0O

Ni@\l‘\h\fib

e
el
el
el
e
h

S WO, — —

e
D
e
el
e

NNNNNNNNNNNNNNNSN ~

80 037016
81 037022
82 037026
83 037030
84 037034
85 037040
86 037042
87 037046

NNW

59
60
61
2
63
64

013763
1 3763
13 763
13 76
10 33
04 73

oOoOoOoC

57 036654

58 036662

002202
002202

002202

002726
017546

106002

042737 003760
005737 003134
001414
023727 003134
001404
002407
012737 000003
052737 00002C
000405
005037 003134
052737 000040
012737 000003
012701
002406
012703 002446
005037 003016
012137 003004
004737 016204
037434
012701
005670
004737 021026
037434
012337 003004
004737 016204
037434
01270
005670
004737 021026
037434
004737 021422
037434
004737 023252
037250
005737 003134
001407
0227%7 000003
001403
005037 037140
0004C3
012737 000010
004537 022104
000000
032737 000001
001425
004737 022532

037434
005237
0227%7
001340

003016
000050

9=FEB=79 19:23:55 PAGE

SEQ 0136

000004
000006
000010
000012

MGy
MOV
MOv
MOV
MOV

13401%:
BGNSUB

0027006

002706
002724

EMT
BIC
151

($BSUB

(MP

11%:

12%:

15%:

MOV

BIS
(LR
BIS

MOV
MOV
MOV

CLR

MOV

002724

003016

PASS 0

STEST

PASS

1%
PASCNT,#3
10%
1%
#3,PASONT

JYES - SKIP

12%

IsK1p
:SET PASS COUNT 10 0
:SET MESSAGE QUAL
:SET READ AND WRITE SWITCH

#INOUTS ,OPFLAG

PASCNT
#OUTINS,OPFLAG

#3 WRTSWI
#T331BL,R1
#1BT,R3
DESSEC
(R1)+ NEWCYL

;CHECK

LESS THAN 3,

:ELSE SET 10 3

;GET

TABLE

:D0 SEEK

ENTRY

;SET WAIT COUNT FOR 300 MS
FOR

READY

JSR

PC,XSEEK

(R3)+ NEWCYL

;GET NEXT TABLE ENTRY
;D0 SEEK

MOV

#3000. ,R1

PC,RDYWALT

;SET WAIT COUNT FOR 300 MS
;WAIT FOR READY

PC,VERPOS

sVERIFY POSITION

JSR

PC,BSCHK

;CHECK

FOR BAD

TS1
BEQ
(MP
BEQ
(LR
BR

PASCNT
17%
#3,PASCNT

;TEST

PASS 0

;TEST

PASS

60%
JSR
60%

32%

17%

25%

MOV

18%
#8.,25%

#BI10,WRTSWI]

JSR
.WORD

BEQ
JSR

60%
INC

(MP
BNE

SS.DA1GEN

29%

PC,XWRITE

DESSEC

#60, ,DESSEC

168

YES CLEAR T0 O

SET MESSAGE QUAL

JWAIT

#3000. ,R1

:YES - SKIP

PC.RDYWALT

JSR

17%:
18%:

;CLEAR ALL MESSAGE QUALIFIERS

;TEST

JSR
60%

60%

037140

T17.1:

PC,XSEEK

MOV

003134

#MQUALS ,OPFLAG,
PASCNT

;60 CHOSE HEAD

JSR
60%

MOV

16%:

R3,TBLSTR

PC,CHOSHD

BEQ
BL1

108:

JJJ,GL(RDY)
JJJ,6(R3)
JJJ,10{R})
JJJ,12(RY)

JSK

BEQ

000003
003134
002706

21-1

SECTOR

:""YES'' RETURN
;YES = SKIP

:YES = SKIP
ELSE CLEAR DATA PATTERN SELECTOR

:SET DATA PATTERN SELECIOR 10
8
:60 GENERATE DATA

sTEST IF WRITE
sNO = SKIP

TMIS PASS

;D0 WRITE

+INC SECTOR

STEST

ALL

NO = SKIP

SECTORS

USED

—h il

s il il il il il il il A el Al el

il il il

il il il ol

S WNWWNWWWIWWWNIWNWNN
NN NN NV RO NI N = b ot b ot et b en
o0 N NS WO OO NT VN
WN =000~
NS NN

CIRLJAD RLOY/2 DR TST 2 MACRO v03.01
«TEST 17
*+*QVERWRITE

—

Pk
al o
S o

141

145

146

147

148

149
150
151 037442

37450

N NN
L

~ NN
W WA

VLo
Dol

000002

002706
002724
002706
002724

022572

003016

002706
000003

003134

000006

003134

000001

003134

000004

000002
003134

002724
000002

001000
037012
002000

002706

162
037516
163 037522
164 037526

000060
012737
023727
001004
012737
000410
005037
004737
036470
012737
062703
000137

31%:

PC.XREAD

sNO - SKIP
;ELSE DO READ

PC,DATCOM

: COMPARE DATA

DESSEC
#60. DESSEC
16%
‘
DESSEC
WRTSWI
PASCNT

;BUMP SECTOR
sTEST IF ALL SECTORS USED
sNO - LOOP
sCLEAR DESIRED SECTOR
;CLEAR WRITE/READ SWITCH
;BUMP PASS COUNT
sCLEAR ALL QUALIFIERS

32%:

33%

#MQUALS ,OPFLAG

PASCNT ,#3
60%

PASCNT ,#6

60%

PASCNT
, #1

39%

, #4
PASCNT

40%
#BIT1,WRTSWI]
PASCNT ,#2

37%

#REVSKO,0PFLAG

002706

16%:
37%:

#FWDSKO,0PFLAG

000020

002706

39%:

#INOUTS ,OPFLAG

000040
000091

002706
002724

40%:
41%:

000002

002720

60%:
ENDSUB
L10056:

15%

36%

41%

#OUTINS ,OPFLAG
#BIT0,WRTSWI

36%

#2 ,ERRSWI

($ESUB
181

(SESCAPE

000003
003134

002724
000003

002414

002726

003134
017572
002406
000006
036714

;SKIP
:TEST IF

sTEST

READ

THIS PASS

1S PASS 3

JYES = SKIP

;TEST 1F PASS 6
sYES = SKIP
:TEST IF PASS 1

JYES - SKIP

;TEST

PASS &

;TEST

PASS 2

[

JYES = SKIP
;SET WRITE REQUIRED BIT
sYES = SKIP

;SET REVERSE QUALIFIER
;G0 DO NEXT PASS
sSET FWD QUALIFIER
;G0 DO NEXT PASS
:SET QUALIFIER
;SKIP
sSET MESSAGE QUALIFIER
;SET WRITE REQUIRED BIT
;G0 DO NEXT PASS
:INIT ERROR SWITCH

SEXIT

TEST

ERROR

L10055=.

45%:

002720

;CLEAR TO SECTOR 0

29%:

33%:

003016
002724
003134
00376C
003134

SEQ 0137

DESSEC
16%
#BIT1, WRTSW!

022244

003016
000050

#INOUTS'OUTINS,OPFLAG ;CLEAR QUALIFIE
#BIT0,WRTSW!]
;CLEAR WRITE REQUIRED
#FOLWRT ,OPFLAG
sSET FOLLOWING WRITE

104010

[elelolelelelelelele]

W W)

AN
VWA WA

000060
000001
000100
003016

104003

15¢
1
1
1
1
1
1
1
160
161

062737
062737
052737
005037
000724
032737
001474
004737
037434
004737
037434
» 005237
022737
001304
005037
005037
005237
062737
023727
001447
023727
001443
023727
001424
023727
001424
012737
023727
001405
052737
000137
052737
000772
052737
000403
052737
012737
000757
012737

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

48%:

13465%:

#3,WRTSWI
:SET FOR READ AND WRITE REQ,
PASCNT,#3
STEST IF PASS 3
45%
:NO - SKIP
lg53‘8L°6JBLSTR ;STORE MID POINT IN TABLE
:GO START PASS &
PASCNT
;CLEAR TO PASS 0
PC,SWAPHD

#1331BL,1BLSTIR
#6,R3
13401%

GO SWAP T0 WEAD ONE OR ABORT

;ABORT RETURN

;STORE

START

TABLE

TES!

CIRLJAD RLOYT/2 DR TST 2 MACRO v03.01
*TEST 17
**OVERWRITE
165 037526

037526
037526

166 037530

9=FEB=79 19:23:55 PAGE

21-3

L TR

SEG 0138

ENDTST
104001

L10055:
ENDMOD

EMT

($ETST

—

CZRLJAD RLO1/2 DR TST 2 MACRO v03.01 9-FEB=-79 19:23:55 PAGE 22
CODING

PARAMETER

J N

7530

000030

7532
7534
7536

005130
037668
000001

037540
0375642
037544
037546

000031
037612
160000
177776

037550
037552
037554
037556

001031
037623
000000
000776

037560
037562
037564
037566
037570

004032
037660
003400
000000
000007

037572
037574
037576

003130
037643
000001

037600
037602
037604
037606
037610

002032
037632
000340
000000
000007

10
11 037612

LSBTTL
BGNMOD
BGNHRD

GPRML

GPRMA

GPRMD

GPRML

GPRMD

L10057:

LASCIZ

/DRIVE = RLOV/

DRMSG:

LASCIZ

/DRIVE/

(NTYPE:

LASCIZ

/RLYYVY/

NV -a

wb
i
i

DRTYPE:

—Ornonrn

/BR LEVEL/

061

037671

12¢

122

/BUS ADDR/

ASCIZ

037663

18 037666

(EVEN

BRMSG:

126
075
114
000
104

340

YSLOLIM
TSHILIM

LASC12 /ve€xQF/

037646
037651
037654
037657

17 037660

DRTYPE

LWORD
1
BRMSG,PRIOR,0,340,0,7,YES
.WORD
TSCODE
.WORD
BRMSG

VE(MSG:

104

.WORD

3400
TSLOLIM
TSHILIM
DRYYPE,TYPDR,1,YES
.WORD
T$CODE

ASC1Z

L T

16 037643

102

DRMSG

.WORD
.WORD
LWORD

(SRMSG:

et et et =

037635
037640

114
105

15 037632

.WORD

OO
—=ON
COWwMMRLES
BN

040
104
126
1264
000

DRMSG,DRSB,0,3400,0,7,YES
.WORD
TSCODE

OC=ON
OH vy

102

037615
037620
14 037623
037626
037631

.WORD L10057=L$HARD/2

CNTYPE,CNT,1,YES
.WORD
T$CODE
.WORD
CNTYPE
.WORD
1
(SRMSG,CSR,0,160000,177776,YES
.WORD
TSCODE
.WORD
CSRMSG
.WORD
TSLOLIM
.WORD
TSHILIM
VECMSG,VECT,0,0,776,YES
.WORD
T$CODE
.WORD
VECMSG
TSLOLIM
.WORD
TSHILIM
LWORD

.WORD

037612

12
13 037612

PARAMETER CODING

HRDPRM

.WORD
LWORD
ENDHRD

SEQ 0139

————

——————

CZRLJAD RLO1/2 DR TST

PARAMETER CODING

26 037676
037676
037700
037702
27 037704
037704
037706
037710
33 037712
037712
037714
" 037716
36 037720
037720
037722
037724
37 037726
037726
38 037730
037730
037732
03773«
037736
037740
39 037742
037742
037744
03774¢

40 037750
4

37750
3
37752
37754
37756
37760
37762
0%
37764
37766
§7770

ENDMOD

000061
000130
040040
000001
000130
040054
000002
000130
040071
100000
000130
040126
040000

001052
040145
000377
000000
006375
000130
040153
020000

002052
040145
000377
000000
000377
000130
040174
010000

037774
037776
040000
040002
040,04

003052
040216
000017
000000
000001

.EVEN
SFTPRM

GPRML

CYLQ,MISWI,1,YES
.WORD
T$CODE
LWORD
(CYLO
.WORD
1
SECQ,MISW],2,YES
.WORD
T1$CODE
.WORD
SECQ
.WORD
2
MANQ,MISW1, 100000, YES
.WORD
TSCODE
MANOQ
.WORD

GPRML

LWORD L10060-L$SOFT/2

.WORD

GPRML

1%:

LWORD
GPRML
.WORD

TSHILIM
HILIMQ,MISW],20000,YES
TSCODE

HILIMQ

XFERF

.WORD
GPRMD
.WORD
LWORD

LWORD
LWORD
.WORD
GPRML
.WORD

.WORD

20000

T$CODE
LIMVAL ,HILIM,D,255.,0,255.,YES
T$CODE
LIMVAL

255.
TSLOLIM
TSHILIM
HEADQ,M]1SW],10000,YES
T$CODE

HEADQ

XFERF

10000
3

GPRMD
.WORD

HEADV,HEAD,D,17,0,1,YES
T$CODE

.WORD
LWORD
LWORD
GPRMD

17
TSLOLIM
TSMILIM
ERLIMQ,ERLIM,D,3%77,0,377,¥ES

.WORD

i%:

255.
TSLOLIM

.WORD

LWORD

2%:

100000

LCLIMQ,MISW] 40000, YES
.WORD
T$CODE
LOLIMQ
.WORD
.WORD
40000
XFERF
1%
.WORD
TSCODE
GPRMD
LIMVAL,LOLIM,D,255..0,253..YES
.WORD
T$CODE
.WORD
LIMVAL

.WORD
LWORD

006044

46 040006

(SRR

BGNMOD
T
BGNSF

006044

037772

L4 037774

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

SEQ 0140

19 037673

20
2l
22 037674
23 037674
a 03767¢

2 MACRO v03.01

ltCODE

HEADV

L N

CZRLJAD RLO1/2 DR TST 2 MACRO v03.01 9=FEB=79 19:23:55 PAGE 22-2

PARAMETER CODING

040006
040010
040012
040014
040016

00405¢
040241
000377
000000
000377

040020
040022
040024
040026
040030
50 040032
040032
040034
040036
51 040040

005052
040313
000377
000001
000377

48 00020

.WORD

.WORD
.WORD

.WORD
GPRMD
.WORD
.WORD

GPRML

000130
040263
000029

ENDSF1T

L10060:

D -t D) =2 D) -t

=S VOO OoOHfOoOVOoOUVNY

-t it et D)

040167
040172
66 040174
040177
040202
040205
040210
040213

[ TETEY
o T
ONO
S~ —=O
oOWwVVnoO oW

040164

TSCODE

ERLIMQ

/SLOLIM

TSHILIM
DCLIMQ,DCLIM,D,377,1,377,YES
TSCODE
DCLIMQ

377

AUTOQ

LEVEN

(yLo:

LASCIZ

/USE

ALL

CYL/

SECQ:

JASCIZ

/USE

ALL

SECT/

MANQ :

LASCI1Z

/DO MANUAL INTERVENTION TESTS/

LOLIMQ:

,ASCIZ

/LOW SEEK

LIMVAL:

.ASCIZ

/VALUE/

HILIMQ:

.ASCIZ

/UPPER SEEKX

HEADG:

,ASCIZ

/USE

S NoOoNvoe
s

— D) -ttt
O it

OoOroOoNN=~ON
WO = WO
—=w

040131
040134
040137
040142
64 040145
040150
65 040153
040156
040161

—
s s () s ) it il it i s s s it it s ) it ) it lh i il il lh it
ON = N=NO
=S ONNNOON
= =N —=ONH =00 =00 —
WO = JWWOVOWNIOWM
=
= (NWNO
WO =Vt s a

04011¢
040121
040124
63 040126

et Ot e (O =
2 3 e —a o —a s
2 () — —
NS = a PN = = NVONNIN
= = O —=NO
NONS
OV
“
WOV INDR BN
Oo S unewm

040077
040102
040105
040110
040113

.WORD

SEQ 0141

TSLOLIM
TSHILIM
AUTOQ,MISWI,20,YES
.WORD
TSCODE
.WORD

040040

52
56 040040
0460043
040046
040051
55 040054
040057
040062
040065
040070
61 040071
040074

.WORD
LWORD
LWORD

LIMIT/

ONLY ONE

SURF/

CIZRLJAD RLO1/2 DR TST 2 MACRO v03.01 9-FEB=79 19:23:55 PAGE 22-3

75 040336
76 040336

040336

‘\

LASCIZ

/WHAT

SURF

ERLIMQ:

LASCIZ

/INPUT

ERROR LIMIT/

AUTOQ:

LASCIZ

/DROP DRV

DCLIMQ:

LASC1Z

/DATA CMP ERR LIMIT/

Voo NNO

—=NNO
O WN—

HEADV:

—

s D) s D) et O

O=O—=frNeHsn

—

i i i
i i e

SEQ 0142

S NOVOoONVO
O

040316
040321
040324
040327
040332
040335

= HENNOO—=NNWVINOCONS
=N

72 040313

11
040
122
050
117
061
e TM Rl
TM R
L e ——
= AN OO —=O—=OMN
IS NN =NININ —

040271
040274
040277
040302
040305
040310

069

70 040263
040266

040
040

it e e e e e e

040247
040252
040255
040260

125

040

O=Sf O—=0OO0ONNIV=
= NIND = - awOr ——
OVOWUVWN
N UWONDG —=NO
N =S~y s

69 040241
040244

127
124

O =t O o

67 040216
040221
040224
040227
040232
040235
040240

PARAMETER CODING

ENDMOD
LASTAD

LSLAST::

.EVEN
.EVEN

(0 OR

1)/

NO RESPONSE/

CZRLJAD RLOYT/2 DR TST 2 MACRO v03.01 9=FEB=79 19:23:55 PAGE 24
LAGNOSTIC SUPERVISOR == LOW CORE SET uP

.SBTTL

DIAGNOSTIC SUPERVISOR == LOW CORE SET UP

-4

SEQ 0143

ASSEMBLY ROUTINES

PWR.FAIL:

35 071132
36 071134
37 071136

POWER

38 071140

000000
000000
000000
000000

000200

071144

MACRO v03.01

INTERRUPT

9-FEB=79 19:23:55 PAGE

ROUTINE

.WORD
.WORD
.WORD
.WORD

0
0
0
O

END.SUPY=
42
LEND 200

172

B 12
SEQ 0144

:SP;EE FOR USER POOL POINTER

351

;CHECKSUM (NOT CURRENTLY USED)
:SIZE OF M.W. PTAB, ALLOCATION

ASSEMBLY ROUTINES

SYMBOL

TABL

ABOFLA
ABOPAS

040662 G
040600 G

DSPCOD
DUNIT,
DVC.FT
DSAAG
DSAAH
DSAA]

[alaalalalaaialalalalalalalalalalalalalalal

o
P

—_

= LY Y VR VY VY VR MY MY MY MY ML T M MY WMy
e e e e et ekt ek D OOOOOOOOD
OWVES NN = O VRN
WV
NN —

ERR]
ERRIFO
ERR10
ERR2
ERR3
ERR4

ERRS

ERRG

ERR?
ERR8
ERR9

ESC.PC

oo
o
oo

002776
0460000
006033
006040
000400
001400
013362 G
040604 6
053664
054570
054606
057354

000043
000042
000040
000052
000011
000020
000035
= 000034
000100
000051
000023
000014
000017
000016
000015
000040
000377
000007

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
R el
¥ A

G
G
G
G
G
G
G
G
G
6
G
G
G
G
G
G
G
G
G

061644
057732
045602
052732
041772
017546
061164
045310
045326
017656
000102
014750
046724
040576
066026
0460574
066432
067434
067570
040634
045404
014560
002206
024652
045660
000012
037666
064102
040406
063716
007777
000004
CONTCL
067514
CCONTIN
013604
COSTA1= 000040
COUNT
003136
(RDYMS= 000200
(RLF
060014

DATCOM
DATGEN
DCKERR=
DCLIM =
DCLIMQ
DCLIMW
DECMSG
DESDIF
DESHD
DESSEC
DESSGN
DEV.CO
DIAGMC=
DIAG.T
DIFAULG
DIFWD
DIRBIT=
DIRMSK
DLTERR=
CONE
DPDVD
DPMUL
DRDYMS=
DRMSG
DRSB
DRSELT
DRSET
DRTYPE
DRVCNT
DRVERR=
DRVNAM
DRVNAY
DSESTA=
DSMSK =

POWNNUNUND
= b s s N B
NONNON~NO
WV —N
WO NOWO — S~ —
onvVoO oo~

000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
0466024

G
G
G
G
G
G
G

000026
000030
066024
066062
002214
010453
047442

[

BI1T06 =
BI107 =
B1108 =
B1109 =
BIT1
=
BI1110 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT1S =
BI12
=
BI113 =
BIl14
=
Bi1S =
Bl116 =
B117 =
B118 =
B119 =
BLD. MW

004000
000060
006124
006022
010355
040336
000010
057612
000001
000001
000002
000004
000010
00002C
000040

CALLSP=
CALLTC=
CAL.CL
CAL.TI
CAMSK
CCYLUP
CHKLUP
CHKSTR
CHKTTY
CHK.MA
(HK.PC
CHK.SW
CHOSHD
CHRCNT
CH.FLA
CH.PAS
(KBSVD
CKDATA=
CKERLM
CLEAR,
CLKACC
CLKBFR
CLKCNT
CLKJUM
CLKRES
CLKSER
CLKSON
CLK.SE
CLNCOD
CLRBYT
CLRPAR
CLR.MA
H
CNT
CNTYPE
CNVT
COMMAN
COMMTA
COMPOP=
CONHNG=

000050
000045
000033
000002
000025
000047
000041
000037
000013
000031
000026
000027
010434
010475
010445
006131
000001
022244
022104
004000
000012
040313
013360
057626
003010
003014
003016
003012
040350
000000
040670
003000
007356
000004
002216
013000
002710
070300
070166
000001
037660
000010
000004
000010
037643

m mmmmmmmmmmmmmmmmm

BADADD=
BAMSK =
BANAM
BASADD
BELL
BGN.SU=
BHSTAT=
BINMSG
BI110
=
81100 =
BI1101 =
BI1102 =
BI1103 =
B1104 =
BI1T0S =

000002
100000
042272
003116
003120
000011
040263
000020
045140
045154
045166
045174
045210
045220

006117
000000
037612
003006
040344
040346
040040
002506
000004
007402
($AAD
052704
CSAAE
052716
($AAK
053714
054060
000021
000020
000054
000022
= 000004
000002
000030
000046
000012
000006
000036
000044
000053
000024
000055
000002
000002
000003
000001
000004
000010
000005
000003
000001
000032
CSNAM
=
(SR
CSRMSG
CURCYL
CURR.S
CURR.T
cvea
CYLTBL
CYLUP =
CYLWD

061302

063436
037632
023252
002722
003354
007464
007415
B$AAB
047426
BSAAF
047340
CAFDT
010464
CALLPC= 000022
CALLPS= 000024
BLCCK
BRMSG
BSCKK
BSFLAG
BSFVAL
BSNSTR
BYPSNM

ALLOC

AFMIDU
003114
AFS1
040370 6
ALLCYL= 000001

ALLSEC=
ANYERR=
APT.ER
ARMID
ARMIDU
ASSEMB=
AUTOQ
ALUTOSZ=
ASAAV
ASAAW
ASAAX
ASAAY
ASAAZ
ASABA

172-1

SEQ 0145

043142
003112

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

ABO.FM
AFMID

MACRO v03.01

s
s
e

002011
002102
002064
013364

044674
053724
041726

LSAPT
L$AUT
LSCCP
LSCLEA
L$CO
LSDEPO
LSDESC
L $DEVP
LSDISP

L10000
L 10001
110002
L10003
L10004
L10005
L10006
L1007
L10010

INVAL.,
INVINT
INV.SW

LSI.RE
LUP
LUP.AD

L.BA
L.CLK.
L.LS
L.DA
L.MP

INTEBL= 000100
INTFOR 054066
INTHLR 014712 G

LPT.AD
LPT.RE

002112
002070
002072
002112
002040
014700
002076
002114
002056
002034
002042
002044
002046
037532
002016

002022
013330
002104
013426
002026
040336
002050
002600
002066
002010

037676

002062
002020
002024
002030
013346
002014
002054
002052
002100
002012

026

050

670

[alalaialalalalalalalalalalnalalalafalalalalalalalalalalalalalalalalalalal

013556
007204
007220
007117
007154
007170
007074
007102
007130
007142
007111
006143
006156
040145
040664
045324
003346
040000
057634
000002
040126
013350
040444
040442
044766
044762
044756
065730
052734
002036
002074
002106
014560
002032

LSICP
LSINIT
LSLADP
LSLAST
LSMREV
L SNAME
LSREPP
LSREV
LSSOFT
L$SPC
L$SPCP
LS$SPTP
L$STA
LSSW
LSTIML
LSTIMU
LS$TIM
L$TST]
LSUNIT

JNO
NS NN —-

LABACF
LABACR
LABEXP
LABHCF
LABHCR
LABIN
LABMID
LABOCF
LABOCR
LABOUT
LAB1
LAB2
L IMVAL
LINE.F
LOAD.F
LOCERR
LoCYL =
LOGMSG
LOLIM =
LOLIMQ
LOL MW
LPBFR
LPCNTR

040446
040450

G
G

KBPTR
KBUF
LAB

HCORET
040624 6
HCRCER= 004000
HC.ADR
040374 G

J$JMP

HCESTA= 040000
HCORED 045100
HCOREQ
045010

HROUTU 003110
HSMSK
‘= 000100
HSSTAT= 000100
HW.ADR 040372
H$AAB
064430
IBUFF
003746
ININIT
040614
INITCO 013426
INITIA 057642
INIT.M 045726
INIT.R 040430
INOUTS= 000020
INPUTA 060570

JJJ

LSEXP3
LSHARD
LSHPCP
LSHPTP
LSHW

000001
000002
000000
000140
000000
000040
000200
000120
000020
000100
000004
000010
002712

002760
000006
010000
0460174
040216
013354
044750
003072
003074
003076
003100
020000
000004
040153
013352
002204
010000
000020
000020
013326 6
037530 6
024702 G
003102
003104
003106

LSEF
LSEFLG
LSEXP1
LSEXP2

000100
054232
061540
007407
002000
000400
000015
000040
000007
000016
000041
000004

G
G
&
G
G

HDWRD3
HEAD
=
HEADLM=
HEADQ
HEADV
HEADW
HERTZ.
HF IN
HFINU
HFOUT
HFOUTU
HICYL =
. HILIM =
HILIMG
HILIMW
HLMTW
HNFERR=
HOLDSP=
HOSTAT=
HPTCOD
HRDPRM
HRDWTS
MRIN
HRINU
HROUT

ISINIT
1$MOD
1$MSG
1$PWR
I$RPT
1$SEG
I8SFT
1$SRV
1$SUB
I$TST

LSDR
LSDRCT
L$DRS
LSDRST
LSDTP
L$DU
LSDUT
LSDVTY

066676
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
000041
002202
000767

FOLWRT=
FORM.T
FREE
FRMWD
FWDSx0=
FWDSKS=
FSAU
=
FSBGN =
FSCLEA=
FSDU
=
FSEND =
F$HARD=

011014

GSPRMA=
G$PRMD=
GSPRML=
GSRADA=
G$SRADB=
GSRADD=
GSRADF=
GSRADL=
G$RADO=
GSRADT=
GSXFER=
GSYES =
HADONE

061166
002212
0575672
063256
054750
021274
000003
062252
062022
002126
002126
011526
014704
005224
015342
015326
015352
015312
000104
000400
000002
000001
000000
000400
000376

040366 G
040364 G
000010
002220
000100
007234
000002
100000
000077
000020
007371
002754
002756

FMT19

GARBAG
GBND
GETCHR
GETCMN
GETPAR
"GETPOS
GETSTA=
GETSW]
GET.TW
GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GSTAT
GSTATC
GSTATG
GSTATR
GTSTAT=
GSEXCP=
GSHILI=
G$LOLI=
GSNO
=
G$OFFS=
G$0FSI=

HC.DEF
HC.DIA
HDALIG=
HDCYL
HDHSEL=
HOMOVF
HDRCMP=
HDR4&O =
HDSEC =
HDSEL =
HDWD
HDWRD1
HDWRDZ2

FBSFIL
003552
FILL
060462
FILL.C
000204 G
FLAGS
0460402 G
FLAGSY1
04040¢ G
FLAGTA
063634
FLAG.1
045370
FLA.SE
063602
FLG.MA
045330
FMTIOP1
010503
FMTIOP2
010532
FMTOP3
010554
FMT
010575
FMT1.1
010602
FMT1I1
01100
FMI12
011027
FMT13
011035
FMT14
011101
FMT1S
011133
FMI16
011167
FMT17
- 011200
FMTI18 . 011222
FMT19
011254
FMT2
010611
FMTI20
011311
FMT21
011341
FM122
011364
FM123
011420
FMT264
011434
FMT2S
011441
FMT26
011451
FMI27
011475
FM128
011514
FMT3
010614
FMTS
010617
FMTS
010630
FMTH
010650
FM17
010712
FMT8
010762

000013
000006
000050
000000
000011
000017
000012
000003
000005
000010
000002
000014
000001

SEQ 0146

=l=d=l=lelel=]
=l=l=l=lelele

FSHW
=
F$INIT=
FSJMP =
F$MOD =
F$MSG =
FSPWR =
FSRPT =
F$SEG =
F$SOFT=
F$SRV =
F$SUB =
F$SWw
=
FSTEST=

04032 G
003126
003124
003122
003130

172-2

~—reeere

Ev.COU
EXACYL
EXHCYL
ExoCyL
EXROT

9-FEB=79 19:23:55 PAGE

MACRO v03.01

(AlAol
Al Al AT~

ASSEMBLY ROUTINES
SYMBOL TABLE

MAP16
MASK.B
.W
MASK
MBADAD
MBADSF

005724
MBSET0= 000001
MCEPR
007572
MCONMKN
006271
MCYLOC
010134
MCYLUP
005427
MDATCP
005311
MDCRC
007614
MDHEDR
002000
MDLY
007641
MDRDY
007561
MDRERR
007703
MDRRE
006216
S
MDRYST

0077%1

MITEST= 100000
MNDRST
010141
MNEERR
010123

MNOCLR
MNOINT
MODR
MOPER
MOPERR
MORECE
MOUTIN

006305
006236
070100
005376
010050

MREADH
MRE SKO
MRE VSK
MRLFAL
MRSLT
MSEEK
MSG.AD
MSG.TY
MSPERR
MSTERR
MTMBS
MTOSLO
MUL
MULOAD
MUNDEF
MWDERR
MWGERR
MWORD
MWR (MK

005243
005647
005525
010231
005405
005224

002716
005437
MPNAM
006136
MQUALS= 003760
MREAD
005232

MWRITE
MWRSET
MWRTAB
M4OHDR

040362
040336
007744
007777
006001
006177
070034
005416
010164
010033
007762
006171
005253
005265
005362
010272
005346

003004
067560
064020
000010
003347
000002
000100
006057
NO.CLK
044724
NO.FLA
063614
NO.LPT
061132
NO.PTA
045130
NR
= 000000
NUMBIN
054256
NUM.LA
054424
NUM.NO
040400
NUM.UN
041006
NUNITS
047414
~ NXMERR= 020000
NXTFOR
064074
NXTHL
002210
NXTPAS
013624
OBUFF
004346
0CTMSG
057620
003042
OF IN
OF INU
003044
OFMID
003046
OFMIDU
003050
OFOUT
003052
CFOUTU
003054
003002
oLDCYL
ONSWAP
017632
OPFLAG
002706
OPIERR= 002000
OPMSGS
002126
0PRO0O&
007341
OPR1A
007312
OPR1B
007316
OPR12
007273
ORIN
003056
ORINU
003060
ORMID
003062
ORMIDU
003064
003066
OROUT
OROUTUY
003070
OUTINS= 000040
O$APTS= 000000
OSAU
= 000000
0$BGNR= 000000
0$BGNS= 000001
ooV
= 000001
O$GNSW= 000001
O$POIN= 000001
NEWCYL

NEWPRI
NEXTAR
NOCLR =
NOERCT
NOIRPT=
NOOP
=
NOPWR

PARSES

PASNEW
PASNUM
PASS.C
PATTBL
PATI

PATI10
PAT2
PAT3
PATSL

PATS

PAT6

“PAT7
PAT8
PAT9

PH65S

POSHDS

POSHDO

POSHSB
POSHW1
PRINTC
PRINTF
PRICR

PR100
PRIO1
PR102
PRIO3
PR10&
PRIOS
PRI06
PR107

PRNTST
PRO.CM
PSETNM
PTAB.S
PUTCHR
PWCON
PWRFLG
PWR.FA

PWR.FL
PWR
. MS
PWR,SA
PWR.UP
P.CLK.
P2103€E

P2T04E
P2T05E
P2T06E
P2T07E
P2T08E
P2109E

063330

PART? = 00001 6
PAR.LA
057316
PASCNT
003134

P2T17E
P2T18E
P2T19E

013632
003342
040352
002262
004746

006672

006713
006745
006772
RDALHD
021542
RDDATA= 000114
RDHEAD= 000110
RDNOHR
= 000116
RDYCHK
017306
RDYWAI
021026
READRL
015110
READ.P
066032
REGBAC
070522
REGSAV
070506
RELDWT= 040000
REQN.P
040412
REQN.T
045304
RESE3
010361
RESES&
010365
RESES
010372
RESE6
010377
RESPAR
002764
RESTAR
013574
RESTBL
002222
REVSKO= 001000
REVSKS= 000200
RE.SET
042074
RLBA
000002
RLBAS
002730
RLCS
000000
RLCSR
000000
RLDA
000004
RLDRV
002734
RLMP
000006
RLVEC
002732
RORWOP= 020000
RPTOP
023422
RPTREM
024416
RPTRES
024210
RSTACK
067762
RSTRT
013512
=
SAMSK
000077
SAVEDO= 042272
SBSFIL
003356
SEARCH
061770
SECQ
040054
SECWD
007375
= 000106
SEEK
SEEKOP= 010000
SEGSTA 040636
SEQMES
007430
SETDON
033660
SET.MA
SFTPRM
SGNWD
SHIFT
SKTMES
SPDSTA=

045514
037674
007364
070620
007002
004000

MAJ.IN
MAJ.LO
MAJ.US
MANQ
MAN.TI
MAPROX

026404
026402
026714
026644
027212
027154
027510
027456
031346
032056
032272
032216 033016
034126
034042
035120
035000
036334
036250
037526
037442
037612
040040
040420 6
066030
040422
040071
001244
007064
070536
047440
047436
005703

007714
044776
010346
010306
010075
005754
005503
005560
005613
005277
010015
007604
010060
005330
007653
007625
005460
040414
040416
000000
013346

L10032
L10033
L10034
L10035
L10036
L10037
L 10040
L10041
L 10042
L10043
L10044
L10045
L10046
L10047
L 10050
L10051
L10052
L10053
L 10054
L10055
L 10056
L10057
L10060

MDSERR
MEM.SI
MERRS
MEXERS
MFLERR
MFMTER
MFOLWR
MF WD SXK
MFWSKO
MGTSTA
MHCERR
MMCRC
MHDERR
MHDRCP
MHF CRC
MHNF
MINOUT
MIN.IN
MIN.US
MISW] =
MISWIW

SEQ 0147

10031

025112
025074
025322
025320
025532
025530
025756
025754
026156
026140

172-3

L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10027
L10030

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

ASSEMBLY ROUTINES

SYMBOL TABLE

ASSEMBLY

SYMBOL

ROUTINES

MACRO V03.01

TABLE

SPEC.U
045230
SPTCOD 013344 G
SPV.SE
000400
SRTMES 007016
SSINDX
002704
STAMES 007453
STAMSK= 000007
STARTC
067510 G
STATE2 010404
STATE3 01041%
STATES 0104624
ST0STA= 010000
STRCHR
060522
STRT.T
045306
ST.SET
042140
SUBSTK
002306
SUNIT.
045312
SUPERV 043174
SUPFLA
040602 G
SUPV.T
04075 G
SUP.PR 041712
SVCBGL= 000001
SVCGBL= 000000
SVCHAN 047630
SVCINS= 000000
SVCSUB= 000001
SVCTAG= 000000
SVCTST= 000001
SWAPHD
017572
SWCHAN 045122
SWITCH 063774
SW.ADR
040376 G
SW.PTA 045106
SYS.FT
05365
SSLSYM= 010000
TBLSTR
181
TCERR
TEMPO
TEMPT
TEMP2
TEMP3
TEMPL
TEMPS

TEMPS
TEMP7
TEMPB
TERMI
TERMCT

00272€
002446
007540
003020
003022
003024
003026
003030
003032

TERMTA
TEST.M
TIMFLG
TIM.CO
TIM.CP
T00.MA
10SLOW=
TRPFLG
TRPHAN

TSTINT
TSTLAB

TST.AB"
1S1.70
TYPDR =
TYPEC
TYPEPC
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER
TY.UNI
TSARGC=
T$CODE=
TSERCO=
1SERRN=
* TSEXCP=
T$FLAG=
TSHIL1=
TSLOLI=
TSLSYM=
TSNEST=
TSNSKO=
TSNSK1=
TSNSK2=
1$SAVL=
1$SEGL=
1$5EK0=
T$SUBN=
1$1AGL=
T$TAGN=
TSTEMP=
T$TEST=

003034
003036
003040
066020
063622

071162
000000
ERRORS DETECTED:

T$1573=
T$$CLE=
1$$0U =
T$$HAR=
T$$HW =

19:23:55 PAGE

‘

172-4

057604
045242
040572 G
040424 G
054230
057564
000001
003350
014704

T$$IN1= 010014
T$SMSG= 010011
1$$SEG= 010000
18850= 010060
T$$SRV= 010017
1$3508= 010056
185w = 010013
T$$TES= 010055
1.BA
002750

047552
041754
000006
060160
054054
063476
060056
057440
060076
053704
046716
000007
000130
000043
003247
000000
000040
000377
000001
010000
177777
000000
000005
000002
177777

T.0RIV
T.MP
T.STAT
1]
1.1
110
111
112
112.1
1137
14
T14.1
115"
115.1
116"
116.1
1177
117.1
119658
11978
12
12.1
12068
120658
12168

002200
002754
002762
024702
024736
027512
031350
032000
032156
032274
033020
033352
034130
034150
035122
035552
036336
036714
025112
024726
025114
025164
025166
025322
025376

T257BL
125182
125178
12568
125658
12578

002332
002360
026704
026444
026714
026516

015274
006363

177777
010000
000001
177777
010061
000000
000021
1$1STM= 177777

. ABS.

9-FEB-79

000001
010015
010016
010057
010012

1.5
T.DA

121658
122658
12278
12338
123658
124658
12478

000
001

SEQ 0148

12588
125888
12668
126658
12678
12758
12768
127658
13

002746
002752

025532
025736
025624
026004
026156
026404
026250

F 1

6
6
6
6
G
6
6
6

13.1
13068
130658
13078
13108
131008
131018
131658
132048
132658
1331BL
133008
133018
133658
134008
134018
134658
14
6.1
15
15.1
16
16.1
17
7.1
18

18.1
19
19.1
ULOAD =
UNDTST
UNIT.D
UNI.MA
UNXERR
USER.P

USER.T
VALDES
VALID,
VAL.LA
VAL.SW

026464
026500
026742
027212
027024
027240
027324
027510
025324 G

025374
032124

032272
032156
032164
033144
033352
034726
035002
035120
002406
035270
035552
036334
036470
036714
037526
025534
023622
025760
026016
026160
026246
026466
026560
026716
027036

6
6

G
G

027214 6
027336
000010
007326
049354 G
045232
006346

040616 G
040620 6
007040
041056
041676
045342

VCNRST
VCSTAT=
VECMSG
VECT
=
VERHDR
VERPOS
AITIN
WCMSK =
WCRNG =

006325
001000
037623
000002
020440
021422
015142
017777
160000

WIDTH
WLSTAT=
, WRTSWI
* WIDATA=
XEQDIA
XEQSUB
XEQ.CL
XEQ.CM
XEQ.IN
XEQ.LA
XEQ.OP
XEQ.PR
XEQ.TE
XRDHD
XRDHDC
XRDHDG
XREAD
XREADG
XSEEK_
XSEEKT
XSEEK1
XTIME
XTIMEN
XTIMST
XWRITE

054624
020000
002724
000112
067646 G
067634 G
047356
044666
047040
043130
047132
042332
047176
020020
020010
020024
022572
022600
016204
016174
016210
066520 G
067344
066542
022532

WDESTA= 100000
WGESTA= 002000

XWRITT
XWRIT1
XXDP.D
X$ALWA=
X$FALS=
X$OFF$=
X$TRUE=

$BREG
SENDAD
$SAV2
$SAV3
$SAV4
$SAVS

022522
022536
044706
000000
000040
000400
000020

045402
067620
070664
070700
070716
C70736

G
G
G
G
G

CE—

VIRTUAL MEMORY USED:
20928 WORDS
( B2 PAGES)
DYNAMIC MEMORY AVAJLABLE FOR
70 PAGES
(IFLJA.BIN,CZRLJA=OSVCRT/M
PART2 ,C2HEAD ,CZRLJA,C2TALIL,DOCTOR