Digital PDFs

AH-F118A-MC

May 1979

133 pages

Original

66MB

view download

OCR Version

93MB

view download

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

OCR Text

RL11,RLV11

czriimo

comvaicnt 1570 SRORD
FICHE 1 OF 1

MADE IN USA

IDENTIFICATION

PRODULY

(ODE:

Al =F T 1GA=M(

PROLUCT

NAME

CIRUIAGC

TATE

CNEATED:

"ION.

TwE

(WiTW

DRIvE

ENGINEERING

AUTHOR:

MAY

APPEAR

DESCRIBED

LICENSE

INCLUSION OF

TEM, EXCEPT

PART

DEXNIS,

FOR

CAMPBEL(

IN THIS DOCUMENT IS SUBJECT TO CHANGE
CONSTRUED AS A COMM]TMENT BY DICITAL

DIGITAL EQUIPMENT
THAT

TEST

S5« JAN=79
DIAGNOSTIC

SOF TWARE

UNDER

RLOY/02

SEO

MAINTAINER:

TwE INFORMATION
SHOULD
NOT
Bt

ERRORS

WITHOUT NOTICE AND
EQUIPMENT CORPORA-

CORPORATION ASSUMES NO RESPONSIBILITY

IN THIS MANUAL.
IN

THIS

USE

ON A

DIGITAL'S

DOCUMENT

SINGLE

FURNISHED

COMPUTER

NOTICE)

SYSTEM

ONLY

THE

AND

FOR USE

FOR

ANY

PURCHASER

CAN BE

COPIED

IN SUCH SYS-

AS MAY OTHERWISt BE PROVIDED IN WRITING BY DIGITAL.

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

TOPYRIGHT

(C)

1979,

DIGITAL

EQUIPMENT

CORPORATION

0001

PAGE

it (D

el el
—

.3
3

p—

TABLE

rnoro

gele)
e.1.2
o2
.3
€s2e1
2s3:2

9
.6

GENERAL

CONTENTS

INFORMATION

PROGRAM

ABSTRACT

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNCSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS
OPERATING INSTRUCTIONS

HOW TO RUN THIS DIAGNOSTIC
THE SIX STEPS OF EXECUTION

SAMPLE RUN=-THROUGH
HOW TO CREATE A CHAINABLE

DETAILS OF

FILE

COMMANDS AND SYNTAX

TABLE OF

COMMAND VALIDITY

HARDWARE

PARAMETERS

COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE

SOF TWARE PARAMETERS

5.0

ERROR

4.0

PERFORMANCE

5.0

DEVICE

6.0

TEST

INFORMATION
AND PROGRESS REPORTS

INFORMATION TABLES

SUMMARIES

SEQ 0002

PAGE 3

1.0

GENERAL

1al

PROGRAM ABSTRACT

.10

STRUCIURE

INFORMATION

PROGRAM

THIS DIAGNOSTIC OCCUPIES

14.5K WORDS OF

MEMORY

AND

COMPATIBLE

WITH

BOTH XXDP AND ACT.
IT CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE CHAINED UNDER XXDP, ACT AND APT IN ACT MODE (SEE '‘CREATE CORE
IMAGE'' COM-

MAND
BELOW
FOR DETAILS
FROM THE STANDPOINT OF Th.

CHAINING PROCEDURE).
_IAGNOSTI!C USER,
BUT

IT
WE

IS A SINGLE PROGRAM
HAVE
INCORPORATED

INTO IT A CONTROL MODULE WHICH WILL LATER BE RELEASED INDEPENDENTLY AS A

DIAGNOSTIC SUPERVISCR.
WHEN THIS DIAGNOSTIC

IS STARTED AT ADDRESS 200,

THE
SUPERVISOR
PORTION,
WHICH
WILL ASK
ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER
PROMPT CHARACTER (DS B>).
AT COMMAND MODE

CONTROL

GOES

FIRST

T0O

CERTAIN ''HARD CORE'' QUESTIONS
COMMAND MODE, INDICATED BY
A
THE OPERATOR MAY ENTER ANY OF

SEVERAL COMMANDS AS DESCRIBED BELOW.
THE

SUPERVISOR CODING FOLLOWS

BUT

IMMEDIATELY

THE

DIAGNOSTIC

TEST

CODING,

THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL DISTRIBUTION.

A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE OF THE
SUPERVISOR
AESEHBLV
LISTING,
AND IT MAY BE CONSULTED IN EVENT OF A SOF TWARE PROB-

1.1.2

DlAGNOSTlC

INFORMATION

THIS PROGRAM TESTS AND EXERCISES RLO1/02
DiSK
DRIVES
RL11/RLV11
C(ONTROLLERS
(&
DRIVES
PER CONTROLLER).
THE ENTIRE PROGRAM IS RUN ON THE
FIRST DRIVE BEFORE STARTING ON THE SECOND.
THE PROGRAM STARTS BY
TEST-

ING THE

SIMPLEST FUNCTIONS FIRST USING THE LOGIC TESTED IN EARLIER TESTS

TO TEST MORE COMPLEX FUNCTIONS.
FACE
AND
BASIC
DRIVE LOGIC.
AND READ HEADER ARE

THE

ONLY

THIS PROGRAM TESTS THE
RLO1/02
INTERGET STATUS WITH RESET, GET STATUS, SEEK,

COMMANDS

EXECUTED

THE

PROGRAM,

ONLY

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

TESTS
TEST THE COVER OPEN AND WRITE LOCK STATUS.
THE DRIVE MUST BE LOADED AND UNLOADED TO TEST ALL THE CONDITIONS OF HEADS OUT,
BRUSH
HOME,
AND
DRIVE
STATES.
THE
PROGRAM CAN BE RUN IN AUTOMATIC MODE IN WHICH
CASE ALL TESTS RECUIRING MANUAL INTERVENTION ARE BYPASSED.

1.2

SYSTEM REOU]REHENYS

SEQ 0003

PAGE

1.2.1
*

PDP=11/LS1=11

PROCESSOR WITH

OR 2 RL11I/RLVIT

CONTROLLER\S)

OR MCRE

MEMORY

WITH:

1=-8 RL?}LgelVES WITH RLOTK

CARTRIDGES CONTAINING A

'BAD SECTOR

1=-8 RL?%LgelVES WITH RLOZ2K

CARTRIDGES CONTAINING A

'BAD SECTOR

KWi11P,

kW1'L

(OPTIONAL)

LINE PRINTER

(OPTIONAL)

SOF TWARE

REQUIREMENTS

CZRLIAO RLO1/02 DRIVE
(FORMERLY

1.3

16K

(LA30,LA36,V150,ETC.)

1.2.2

TEST PART

CZRL(B)

RELATED DOCUMENTS AND STANDARDS

RLO1 USERS MANUAL
XXDP USERS MANUAL

1.4

(EK=RLOY=-UG=PRE)
{

DIAGNOSTIC

HIERARCY

PREREQUISITES

THE RLO1/702 SUBSYSTEM SHOULD WAVE
GRAMS:

(VRLAAOD

(ZRLGAD
CZRLHAO

1.5

SUCCESSFULLY

RUN

THE

FOLLOWING

RLVIT RLOY DISKLESS TEST

(RLV11 ONLY)

THE

ASSUMED

RLT1/RLVIT
RLT11/RLVIT

RLO1/02 CONTROLLER TEST
RLO1/02 CONTROLLER TEST

(PART
(PART

PRO-

1)
2)

ASSUMPTIONS

LY.

TION

HARDWARE

FALSE

OTHER

THAN

ERRORS MAY BE

PROPERLY,

OPERATING

RLO1/02 SUBSYSTEM

REPORTED

THE

PROCESSOR,
:

TO WORK

ETC.,

PROPER-

DO NOT

INSTRUCTICNS
B

THE

2.0

SEQ 0004

HARDWARE REQUIREMENTS

* (ONSOLE DEVICE
*

FUNC-

PAGE

HOW TO RUN THIS DIAGNOSTIC

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

WHEN THIS DIAGNOSTIC

IS STARTED,

THE

PROCE=THE DI-

FOLLOWING STEPS WILL OCCUR:

IAR
RS RS 22

« STEP 1

I A2AR
E S

A SHORT

SERIES OF

""HARDCORE QUESTIONS'' WILL BE

QUESTION

L=CLK
P=CLK

S50MZ

LS]
LPT

MEM

(L)
(L)

MEANING

N?
N ?

IS THERE AN L-CLOCK?
i
"
P=(LOCK?

(L) N ?

(L) N ?
(L) N ?

(X)

(D)

IS THE POWER SO CYCLES (EUROPE)?

1S MACHINE AN LSI1?
IS THERE A LINE PRINTER?

HOW MANY

MEMORY

ARE

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE
RIAGE
RETURN.
IT
IS
POSSIBLE
THAT NOT ALL

ASKED:

P=CLOCK

FOR EXAMPLE,

QUESTION WILL

NOT

NEITHER P OR L

TYPE

ASKED:

YOU SAY
BE

'‘'YES''

THE

THERE?
SELECTED BY HITTING CAROF THE QUESTIONS wiLL BE

L=-CLOCK

QUESTION,

CLOCK ARE ANSWERED YES THE OPERATOR wiLL BE

TWO CHARACTERS

THE

ASKED.

SECONDS

APART.

ASKED

710

fEREREEREY

* STEP 2 »
FERRAAREEY

WHEN

ISSUE

YOU HAVE

ANSWERED ALL

THE PROMPT 'DS=-B>''.

THE

HARDCORE

QUESTIONS,

THE

DIAGNOSTIC

WILL

FROM THIS POINT UNTIL THE TIME WHEN YOU RES-

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

AT THIS POINT YOU WILL ENTER A ''START'® COMMAND.
THIS IS NOT THE SAME AS
THE
XXDP
''START'®
(COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO THE
XXDP DOT PROMPT,
THIS ''START'' COMMAND CAN TAKE A NUMBER OF SWITCHES AND
fLAGS
(ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET FORTH IN ''2.3 DE~TAILS OF

COMMANDS AND SYNTAX'',

HOWEVER,

IN ORDER

USE

THE

PROGRAM,

SEQ 0005

PAGE

ALL

YOU NEED

SAY

SOMETHING LIKE

THIS:

STA/PASS:1/FLAGS
:HOE
THINGS

TO NOTE

HERE:

ONLY

THE

FIRST

THREE

CHARACTERS OF

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

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

THIS OR ANY COMMAND

THE

A PASS

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

IN THE ABOVE EXAMPLE.

THE '"'FLAGS'' SWITCH MAY SPECIFY ANY OF

A NUMBER

THE MAIN USEFUL ONES ARE:

LOE

LOOP ON ERROR

1ER

INHIBIT

HOE

THE

HOE

MALT

FLAG

FLAGS,

BUT

ON ERROR

ERROR PRINTOUT

SPECIFIED

THE

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

SHORTLY.

222222282

STEP 3 »

FERANANNEY

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

NUMBER OF

A WORD OF

DEVICES

YOU WISH

WARNING HERE:

THE

TEST.

NUMBER OF

UNITS DEPENDS ON THE

TARGET

DEv-

ICE
OF THE DJAGNOSTIC.
FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED AT A
DISK DRIVE, THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF DRIVES TO BE
TESTED.
THEN THE

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

DEVICE
OF
A
DIAGNOSTIC
CAN
ALWAYS
BE
DETERMINED BY
"'HEADER'® STATEMENT NEAR THE BEGINNING OF THE SOURCE CODE.

22[82??% OF
N

THIS ""MEADER'' STATEMENT SHOULD BE

CONTROLLER,
THE TARGET

INSPECTING THE
ONE
OF
THE

THE DEVICE TYPE OF

THE DI~

SEQ 0006

PAGE

TR RRRTEORY

* STEP & *
TR EERERRTY

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

THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING.
IN
THE
FUTURE
WILL
NOT BE WRITTEN TO AUTOSIZE OR ASSUME
DRESSES:
INSTEAD, THEY WILL ASK THE OPERATOR FOR
ALL
THE
THEY NEED TO TEST THE DEVICE.

DIAGNOSTICS
STANDARD ADINFORMATION

TERARRREREY

* STEP 5 »
(282222222

AFTER

YOU HAVE

ANSWERED ALL

THE HARDWARE QUESTIONS

(SEC

2.5)

FOR ALL

THE

UNITS,
YOU
WILL
BE
ASKED
''CHANGE
SW?''
IF YOU WANT TO BE ASKED THE
SOF TWARE QUESTIONS THAT DETERMINE THE BEHMAVIOR
OF
THIS
PROGRAM,
TYPE
"Y',
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE ''N''.

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

THE

ANSWERS

WILL BE

PUT

INTO THE

SOF TWARE P-TABLE

IN THE

SERIES OF QUESTIONS WILL BE ASKED JUST ONCE, REGARDLESS OF
UNITS TO BE TESTED.

PROGRAM.

AND
THE

THE NUMBER OF

tERARERREY

* STEP 6 «
(222222222

AFTER

YOU HAVE

ANSWERED

THE

SOFTWARE

QUESTIONS,

THE

DIAGNOSTIC

WILL

BEGIN
TO EXECUTE THE HARDWARE TEST CODE.
THERE ARE SEVERAL THINGS THAT
(AN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE
ERROR
1S
ENCOUNTERED
AND
ALSO
ON
WHAT
SWITCH
CONSIDER THE POSSIBILITIES:

NO ERROR

ECUTE

{(PROMPT

THE

VALUES

]S ENCOUNTERED,

YOU

START

COMMAND,

THEN THE DIAGNOSTIC W l LL SIMPLY Ex=PASSES AND RETURN T 0 COMMAND MODE

DESIRED NUMBER OF

[S=-B>).

SELECTED ON THE

SEQ 0007

PAGE 8

AN ERROR IS ENCOUNTERED, THEN ONE OF

DEPENDING ON THE SETTINGS OF

THREE

THINGS

THE MOE AND LOE FLAGS.

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

HAPPENS,

CONSOLE AND THE

LOE SET:
THE DIAGNOSTIC WILL LOOP ENDLESSLY ON
CODE THAT DETECTED THE ERROR.

THE

SEQ 0008

BLOCK

DI~

NEITHER HOE NOR LOE SET:
THE ERROR WiLL
BE
REPORTED
ON
THE
gogégLE AND NORMAL EXECUTION WILL RESUME AS IF NO ERROR HAD OCU

g.1.2

SAMPLE RUN=THROUGH

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

RECALL

THAT

EN-

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

If AN ERROR 1S ENCOUNTERED, THE ERROR WILL BE REPORTED
AND
THE
PROMPT
WILL BE REISSUED (BECAUSE THE HOE FLAG 1S SET).
AT THIS POINT THERE ARE
FOUR DIFFERENT WAYS YOU CAN GET

THE PROGRAM GOING AGAIN:

ISSUE ANOTHER ''START'' COMMAND

5, 4, 5, AND 6 AGAIN)

(THUS GOING THRU ALL OF

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

THE

HARDWARE

QUESTIONS ARE

NOT

ASKED)

COMMAND

STEPS

EXCEPT

THAT

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

NING
OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS CONSIST
OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE
ERROR
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 ONLY

A HALT

THE MOST TYPICAL THING TO DO HERE 1S TO ISSUE THE PROCEED,
FERENT FLAG SETTINGS.
PROBABLY YOU WOULD WANT TO SAY:

BUT

WITH DIF~-

PRO/FLAGS: JER:LOE :HOE =0

A—

PAGE

THIS WILL

THE

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

RESUME

iER

(INHIBIT

ERROR PRINTOUT)

FLAG

THE HOE FLAG

EXECUTION AT

INSTRUCTION AFTER

ERROR

REPORT

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND
RE?221E2a0;"5n52282€ ??‘02°u52?8353?‘"‘°”' WILL OCCUR.
THUS YOU CAN STUDY

1CES:
1.

START

RESTART

CONTINUE

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

NING THE

DIAGNOSTIC.

YOU WOULD

AND WANT

10 FINISH RUN=-

TYPE

CON/FLAG
: IER=0:LOE=0
S:HOE
THIS WILL
TION
AT

RESTORE THE FLAGS
THE
BEGINNING OF

DOES NOT RECUR, THE
OR TO END OF PASS.

TO THEIR ORIGINAL
THE HWARDWARE TEST

VALUES AND
RESUME
EXECUYOU WERE IN.
IF THE ERROR

EXECUTION WILL FLOW RIGHT ON THRU TO THE

1F AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC

(HOICES:

START

RESTART

YOU WOULD CHOOSE ONE, CEPENDING ON WHETHER
HARDWARE QUESTIONS AGAIN,

YOU

AGAIN,

WANTED

YOU

MHAVE

ANSWER

ERROR

TwO

THE

SEQ 0009

—

PAGE

THE

FULL

PRINT=0UT

(0O=OPERATOR,

FROM

THE

ABOVE

DIALOGUE

MIGHT

D=DIAGNOSTIC):

WHOM

ENTERED:

R CZRLIA

CZRLI

L=CLK

SOHZ

LSl
LPT

MEM

(L)

N ?

(L) N ?

(L) N?
(L) N?
(k)

(D)

D.0

D
D

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

0.0

# UNITS

0.0

(L)

0.0

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
i
DRIVE TYPE = RLOT (L) v ?
BR LEVEL (0) 5 ?
UNIT 2

RLIV

(L)

BUS ADDRESS (0)

174400 ?

VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLOY
BR LEVEL (0) 5 ?
(HANGE

(L)

0,0
0,0
0,0
0.0
0.0

(L)

? N

D,
D
D
D
0
D

O00O000o

RLIT

UNIT

(D)

(N=RLO2)

CZRL]I HRD ERR 00004 TST 003 SuB 002 PC:004130
ERR HLT
DS=B>PRO/FLAGS: IER:LOE : HOE =0

0.0

TP
T R
RN
R RN RN
RN
TER
Y

THIS POINT

THE

DIAGNOSTIC

1S LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
THE ERROR UNTIL YOU HAVE LOCATED

YOU CAN SCOPE
IT, THEN *C OULT

e ReReRRtRRRRRERRRRNRRARORRRRRARRRRRRRRRRORRRRRORREY

LOOK

THIS

SEQ 0010

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

0.0

CHANGE SW (L)

0.0

? N

CZRL] EOP 1
*C

DS=B>RESTART/PASS:1

0.0

CHANGE

0.0

2.2

(L)

? N

HOW TO CREATE

THE

DIAGNOSTIC

A CHAINABLE

PAGE

RUN

FILE

AS RECEIVED FROM RELEASE

ENGINEERING

CANNOT

CHAIN
MODE.
THAT IS WHY IT BEARS THE EXTENSION "‘BIN'' INSTEAD OF
ég%flf IS A WAY, HOWEVER, TO CREATE A CHAINABLE PROGRAM FROM WHAT

''BIC'.
YOU'VE

IT CONSISTS OF 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 1T WOULD ORDINARILY BEGIN EXECUTION
OF THE HARDWARE TEST CODE.
AT THIS POINT YOU CAN DUMP THE PROGRAM AS IT

SITS IN CORE

HERE

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

IS A SAMPLE

.R UPD?2

RESTART:

XXXXXX

DIALOGUE

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

TO ACCOMPLISH

THIS:

SEQ 00N

PAGE

DS-B>CC(]
UNITS (D)

CHANGE SWw
PTAB END:
L AAAA A

? &

(L) ? N
60632

AR AR
22

*AT THIS POINT THE MACHINE HALTS AND+
*YOU MUST RESTART AT ADDRESS
XXXXXX*
L AAAAAAR
22 2]

*HICORE 60632

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

THE RfSUL! OF DOING THIS IS THAT YOU CAN NOW BUILD AN
CONTAINING THE XXDP COMMAND

XXDP

CHAIN

FILE

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

2.3

DETAILS OF

2.3.1

TABLE OF

COMMANDS AND SYNTAX

COMMAND VALIDITY

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE,
SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
HOW ENTERED

AND

DIFFERENT
;

LEGAL COMMANDS

OPERATOR ENTERED

'RUN DIAG'

Dl AGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START
PRINT
DISPLAY
FLAGS
ZFLAGS
START

RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START

RESTART

CONTINUE

DISPLAY
FLAGS

IFLAGS
AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START

RESTART
CONTINUE
PROCEED
PRINT

DISPLAY
FLAGS

ZFLAGS

2.3' 2
R

COMMAND SYNTAX
RN RN

RN RN RN RN RRRRRRRRRRRERRRROERRRRRREROERRRRRRRROERRORRRRRRRORRTY

STA(RY)/TESTS:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG=LIST/EOP:EOP-INCR
RN RN RN RN R RN R RN R AR RN

THE DIAGNOSTIC

IN CORE

RN R AR RN RN ER R RRRORRERRRRRRRRRRRRRORRRORRRRY

1S EXECUTED IN ACCORDANCE WITH THE SWITCHES SPE(C~-

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

THE START COMMAND MAY BE 1S~
IFIED.
Sgsguzfiffl DIAGNOSTIC COMMAND MODE MAS BEEN ENTERED VIA ONE OF
THE
FOL~:
A)
OPERATOR TYPED "RUN DIAGNOSTIC' B) DIAGNOSTIC FINISHED EXE~
L

SEQ 0013

PAGE

CUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET
D)
OPERATOR
ENTERED
CONTROL/C.:
AFTER THE OPERATOR RESPONDS TO ''# UNITS?'', THE HARDWARE DI]ALOGUE IS INITIATED.
WHEN IT 1S COMPLETED, THE QUESTIONS
‘‘CHANGE
Sw?''

ISSUED,

AND

THE

ANSWERS,

THE

SWITCH ARGUMENTS ARE

THEREFORE 1T IS NECESSARY
THE LOAD DEFAULTS.

TO RELOAD

GIVEN,

THE

DECIMAL NUMBERS

THE NUMBERS ARE

COLONS.

NUMBERS

THE

IN ORDER

NEW
TO

DEFAULTS.

RETURN

(1:2 ETC.) OR RANGES OF

DE-

AS FOLLOWS:

"TEST=LIST" IS A SEQUENCE OF

CIMAL

BECOME

PROGRAM

(1-5:8-10

ETC.)

SEPARATED BY

THAT SPECIFY THE TESTS TO BE EXECUTED.
THE NUMBERS RANGE FROM

THE

LARGEST
TEST
NUMBER
IN
THE DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY
ORDER.
TESTS WILL BE EXECUTED IN
NUMERICAL
ORDER
REGARDLESS
OF
THE
ORDER OF SPECIFICATION.
THE DEFAULT IS TO EXECUTE ALL TESTS.
"'PASS=CNT'’ 1S A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF

PASSES.

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

CUTION.

"'FLAG-LIST"

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

HALT

ON ERROR,

IS ENCOUNTERED

LOE LOOP ON ERRCR,

SEQUENCE

SEPARATED BY

WHERE

<FLAG> HAS ONE

CAUSING COMMAND MODE

TO BE

ENTERED WHEN AN

CAUSING THE DIAGNOSTIC

%251}HEON?z?hkggtlflgséaggg BLOCK OF

IER

INHIBIT ERROR REPORTING

IBE

INHIBIT BASIC ERROR REPORTS

IXE

INHIBIT EXTENDED ERROR REPORTS

PRI

DIRECT

PNT

ALL MESSAGES TO A LINE
NUMBER OF

ELEMENTS OF THE FORM <FLAG>,

COLONS,

ERROR

TO LOOP CONTINUOUSLY WITH-

CODING

(SEGMENT,

SUBTEST,

PRINTER

TEST BEING EXECUTED

BOE BELL ON ERROR

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL
ISR INHIBIT

THE

STATISTICAL REPORTS

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC

INTERVENTION TESTS

SEQ 0014

PAGE

SEQ 0015

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

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

"EOP=INCR'* 1S A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF PASSES)
IT

DESIRED THAT

THE END OF

\AAAAA

THE END OF

PASS MESSAGE BE PRINTED.

EVERY PASS.

AR ARl

THE DEFAULT

ARl 2222222222222
2R ]

REg;}AR};#!ESI:IEST-L]ST/PASS:PASS-CNI/FLAGS:FLAG-LlST/EOP:EOP-lNCR/UNlYS
U
‘AR A

AR ARttt
222222222222 2]

THE DIAGNOSTIC

IN CORE

ég;EDiRE ng:gVER.

NEW

IS EXECUTED

IN ACCORDANCE WITH THE

‘'P-TABLES''

ARE NOT BUILT.

SWITCHES

SPEC-

[INSTEAD, THE ONES IN

THE QUESTION "'CHANGE SW?'' IS ASKED AND THE ANSHERé 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 AS IN THE START COMMAND EXCEPT:
1.

"'UNIT=LIST" IS A SEQUENCE OF
1

THRU

(N = NUMBER OF

UNITS ARE TO BE TESTED.

LOGICAL UNIT NUMBERS RANGING

UNITS BEING TESTED)

FROM

SPECIFYING WHICH

THE LOGICAL UNIT NUMBER DESIGNATES THE

POSITION
OF
THE
P-TABLE
IN
CORE, ACCORDING TO THE ORDER IN
WHICH THEY WERE BUILT.
THE 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.

I AAAAARARR ARl
RRld

CONCTINUE) /PASS:<PASS=CNT/FLAGS:<FLAG=LIST>
(AR

RS20

COMMAND MODE MUST HAVE BEEN

CONTROL/C.
TEST

EFFECT OF

DIALOGUE

MAY

RRRRRRRRRR

ENTERED

NOT

C(HANGED.

DUE

HALT

ERROR

THE COMMAND IS TO GO TO THE BEGINNING OF

THAT WAS BEING EXECUTED WHEN THE

SOF TWARE

MAY

THE

HALT

CONTROL/C

OPTIONALLY BE RE-EXECUTED.

TOOK

THE

PLACE.

HARDWARE PARAMETERS

PAGE

THE

SWITCH ARGUMENTS ARE

IN THE

START

COMMAND EXCEPT:

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

UNSFECIFIED FLAG SETTINGS ARG UNCHANGED

FROM THE PREVI-

{
\ A AR
E]

PROCCEED)
/FLAGS : <FLAG=LIST>
freRRERRRRRRRRRRRORNRRORROROOEY

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

THE EFFECT

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

THE

SWITCH ARGUMENTS ARE

LA AA

AL AL

THE

SAME

AS THE

START

ERROR

COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

ARl ittt
22222222220

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

AR AR

AR ARl ARl
22222222220}

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR
DIALOGUE
AND
HALTS
AT
THE
HARDWARE
TEST
CODE.
NOW
THE OPERATOR CAN DUMP THE CORE IMAGE TO THE
MEDIUM WITH A BIC EXTENSION.

THE BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER 1T IS
RUN
MANUALLY
OR
IN
CHAIN
MODE.
IF RUN MANUALLY IT CAN BE INVOKED EITHER

WITH A "'START'" (IN WHICH CASE

IT WILL BEMAVE LIKE

'?ES!ARY“ (IN WHICH CASE
USED)
.

PRE-GENERATED

ANSWERS

THE

TO OPERATOR QUESTIONS WILL BE

THE

OPERATOR

BIN

FILE:

IGNORED)

ANSWERS

THE

OR WITH A

WILL

RUN IN CHAIN MODE, AUTOMATIC EXECUTION WILL COMMENCE !MMEDIATELY FROM

!HED XXDP COMMAND ‘‘.R DIAG''.
SU
2

THE

COMMAND PROMPT ''DS-B>'* WILL NOT

ANY SWITCHES SPECIFIED ON THE CCl COMMAND WILL CARRY OVER WHEN
FILE 1S RUN IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE)
NOT CARRY OVER WHEN IT IS RUN MANUALLY.

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

WORDS),

IS~

THE
BIC
BUT WILL

MACHINE

SIZE

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

SEQ 0016

PAGE

rETRERTRRRRRERRRRARAROROR
Y

DRO(P) /UNITS:UNIT=LIST
TEERRERRRRRRRRROEORNORNOEYDY

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE

OR
UNTIL
PROCEED.

START

COMMAND

GIVEN.

A DROP CANNOT BE

THERE 1S ALSO A "'DROP'' MACRO INTERNAL TO THE
FACILITY
OF AUTO-DROPPING.
THE DURATION OF
ONLY UNTIL THE NEXT START OR RESTART.

ADDED

BACK

FOLLOWED BY A

DIAGNOSTIC, WHICH GI!VES THE
A PROGRAM DROP, HOWEVER, IS

FERRERROROERARRRORNOEY

ADD/UNITS:UNIT=LIST
tTRERERRRRRRRRRRRNRR
Y

THE UNITS

DROPPED

SPECIFIED ARE

THE

DROP

FOLLOWED BY A PROCEED.

ADDED

BACK

{(OMMAND)

(THEY

TO THE

TEST

MUST

HAVE

SEQUENCE.

BEEN

PREVIOUSLY

AN ADD CANNOT BE

trteRe
Y

PRI(NT)
(A22222

ALL

STATISTICS

ISR

CINHIBIT

TABLES ACCUMULATED BY

STATISTICAL REPORTING)

THE

DiAGNOSTIC

ARE

PRINTED.

THE

FLAG IS CLEARED.

TR RREERERRRRRRRORRNORRRRNOAROERY

DIS(PLAY)/UNITS:<UNIT=LIST>
I AAAAARAR
RRd ] ]

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TES( ARE PRINTED
OUuT
IN
FORMAT
IN
WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPED BY

OPERATOR ‘‘DROP'' COMMAND ARE

SO DESIGNATED.

FLACGS)

THE
LA A

CURRENT

SETTINGS OF

AR AR}

IFL(AGS)
ALL

FLAGS ARE

CLEARED.

ALL

FLAGS ARE

PRINTED.

THE
THE

SEQ 0017

PAGE

2.4

EXTENDED P-TABLE DIALOGUE
THE

FULL

CAPABILITY

ING DISCUSSION OF

THE

HARDWARE

DIALOGUE

IS REVEALED 8Y

THE

FOLLOW-

WHAT HAPPENS INTERNALLY.

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

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

CORRESPONDENCE
BETWEEN
IN THE P-TABLE FORMAT,

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

MAY

THE

A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE).
1F
THE
VALUES REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANLATES TO THE

STRING 6,7,8,9,10 (AN INCREMENT OF 1).
IF THE VALUES ARE ADDRESSES,
SAMPLE RANGE TRANSLATES TO THE STRING 6,8,10 (AN INCREMENT OF 2).

THE

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

THE

DIALOGUE

FOR

THIS 8 RLOX DRIVE

SYSTEM.

THIS

SYSTEM HAS

TWO
(2) RL11 TYPE CONTROLLERS ALL TO BE SET AT "'BR LEVEL'" 5.
THE FIRST
?RDR1¥S§ ARE RLO1'S AND THE LAST & DRIVES ARE RLO2'S (ON THE SECOND CON-

OoLL

# UNITS

UNIT

RLIT

(L)

(D)

BUS ADDDRESS (0)
VECTOR (0) 160 ?
DRIVE
DRIVE

(0) 0 ? 0-3
TYPE = RLOTY

BR LEVEL

UNIT S
RLTT

(L)

(0)

5 ?

174400 ?
(L)

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

(L)

? N

SEQ 0018

S—

PAGE

THE FIRST
FOR
THE

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

(QUESTION #2),

THE

CONTROLLER VECTOR ASSIGNMENT

(QUESTION #3),

TYPE
(QUESTION
#5), AND THE ''BR LEVEL'' (QUESTION #6).
THE
NUMBERS OF THE RLO1'S FOR QUESTION #4 WAS ASSIGNED
O
THRU
FIRST & P-TABLE SLOTS.

THE DRIVE

ACTUAL UNIT
3
FOR
THE

THE SECOND TIME THRU THE P-TABLE QUESTIONS (FOR THE RLO2
ASSIGNMENT
ON
THE SECOND CONTROLLER), THE FIRST QUESTION DEFAULTED TO "'RLI1' TYPE CONTROLLER.
THE SECOND QUESTION WAS ANSWERED TO REFLECT THE CHANGE IN
CSR
ADDRESS
FOR THE RLO2 CONTROLLER (175400).
THE SECOND CONTROLLER'S VEC~TOR WAS ALSC CHANGED

164

IN QUESTION #3.

THE

RLO2

TEST

UNIT

NUMBERS

WERE
ASSIGNED
VALUES
O TO 3 IN QUESTION #4 AND THE DRIVE TYPE WAS SET
FOR RLO2'S FOR THE REMAINING & UNITS IN QUESTION #5.
THE LAST
QUESTION
WAS DEFAULTED USING THE ;“aR LEVEL'® FROM THE FIRST PASS.

SEQ 0019

PAGE 20

2.5

HARDWARE

THE

PARAMETERS

FOLLOWING QUESTIONS WILL BE

CATED TO THE LEFT OF

TAKEN ON A CARRIAGE

RLT1T

(L)

THE QUESTION MARK

BUS ADDRESS (0)

RETURN RESPONCE.

YOU HAVE

AN RL11

VALUE

THE

VALUE

LO-

THAT wILL BE

CONTROLLER,

NO(N)

YOU HAVE

AN RLV11

174400?

ANSWER WITH THE BUS ADDRESS OF

VECTOR (0)

160?

ANSWER WITH

THE

INTERRUPT

THE

VECTOR OF

CONTROLLER.

THE

CONTROLLER.

(0) 0?

ANSWER WITH THE

DRIVE

COMMAND.

IS THE DEFAULT

¥?

ANSWER YES(Y)
CONTROLLER.

DRIVE

ASKED ON A START

TYPE

ANSWER NO

BR LEVEL

DRIVE(S)

= RLO1
(N)

(0)

(L)
DRIVE

CONNECTED

TO THE

CONTROLLER

?
IS AN RLO2

ANSWER WITH THE

INTERRUPT

PRIORITY OF

THE

CONTROLLER.

SOF TWARE PARAME TERS

2.6

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START,
RESTART,
CONTINUE.
THEY
ALLOW FLEXABILITY IN THE WAY THE PROGRAM SEHAVES.

SOf TWARE PARAMETERS GIVE

THE
PARAMETERS
ANSWERING (Y)ES

THE PROGRAM FLEXIBILITY

CAN
BE
MODIFIED
ON
A START,
TO THE FOLLOWING QUESTION:

CHANGE

S.wW.

THE

RESTART,

WAY
OR

OR
THE
RUNS.

CONTINUE

A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER
QUESTIONS,
WITH
THE
PRESENT
DEFAULT
VALUE
PRINTED
70O THE LEFT OF THE QUESTION MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON
A
<(R>,

CONTRCL Z

(*Z) WILL DEFAULT ALL REMAINING QUESTIONS AND START

THE

TEST,

EXECUTE DRIVE SELECT TESTS (N)?
GRAM,

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

TESTS REQUIRE

MANUAL

INTERVENTION TO CHANGE

THE

PRO-

ADDRESS PLUGS

SEQ 0020

PAGE 21

AND REQUIRE

A FULL

COMPLEMENT

EXECUTE HEAD ALIGNMENT

IF "'YES'TM, TEST 11

ADDRESS PLUGS

SUPPORT

(0 =

3).

(N)?

1S EXECUTED IN THE FIRST PASS.

EXECUTE MANUAL INTERVENTION TESTS (N)?

1F "'YES', TESTS 1, 2, 3, AND & ARE EXECUTED TO TEST BASIC INTERFACE

OPERATIONS, HEAD LOADING, HEAD UNLOADING,
SPECIFY ERROR LIMIT

(DECIMAL)

AND ALL STATE CHANGES.

(20)?

THIS PARAMETER SPECIFIES THE
MAXIMUM
NUMBER
OF
ERRORS
ALLOWED.
THIS LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS.
IF THE ERROR LIMIT

IS EXCEEDED, THE DRIVE
DROP DRIVE

1S DROPPED FROM FURTHUR TESTING.
NO RESPONSE

(N)?

If THIS PARAMETER IS SPECIFIED AS YES, THE PROGRAM WILL CHECK
EACH
DRIVE
BEFORE
TESTING
STARTS TO DETERMINE IF IT IS READY OR IF IT WILL
RESPOND TO A GET STATUS.
IF IT IS NOT READY AND WILL NOT RESPUND
T0
A
GET STATUS, THE DRIVE 1S DROPPED AND A MESSAGE 1S PRINTED.

3.0

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

ERROR WITH RELEVENT

DATA,

THE
ERROR
INCLUDES
ERROR
INCLUDE REGISTERS BEFORE AND

SEQ 0021

PAGE 22

3.1

ERROR REPORTING
MOST

ERROR REPORTS HAVE

FOLLOWING FCRMAT,

(1)
(2)

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

(3)

TEST

OPERATION:

(6)

ADDRESS OF

RESULT:

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

UNIT

OP INIT
OP DONE
DRIVE

UNDER

RLCS

TEST

RLDA

RLBA

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

TOTAL

EXCEPTION

?E;g&éiblosv
H

ERR PC

DESCRIPTION

(4)

NUM

(ADDRESS)

(5)

THE

READ

THE

ABOVE

ERROR).

FORMAT

THEN

THE

PURE

RLMP

(]

(YYYYYY)

DATA

COMPARE

FORMAT DOES NOT

ERRORS

INCLUDE

(NOT

LINES 5

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

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

NUMBER
OF
TIMES
CONSEQUENTLY,
ON
(SUCH A

THE

INCREMENTAL

SUBTEST WiLL BE

A
A

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

SEEKS,

READ ALL

DESCRIPTIVE OF

HEADERS FROM

WHERE

IN THE

BOTH

TEST

A
TEST.
OPERATION

SURFACES,

ETC.)

THE ERROR OCCURRED.

THE ERROR P.C.
IS THE PHYSICAL MEMORY LOCATION WHERE THE .ERROR
REPORT
WAS INITIATED.
SINCE MANY FUNCTIONS ARE SUBROUTINED, AND ERRORS ARE REPORTED FROM SUBROUTINES, THE ERROR P.C.
IS NOT SUFFICIENT
TO
IDENTIFY

ggf LOCATION OF

THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE

LINE 2 IS THE ROUTINE TRACE SEQUENCE.

1S PROVID-

THE ERROR

CALL

INITIATED

THE FIRST ENTRY LISTED IS THE LOCATION WHERE

THME

FIRST

ROUTINE

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

TINE.

CALLED.

o—m

WAS

SEQ 0022

PAGE 23

LINE
THE

3 IS THE TEST DESCRIPTION AND 1S ROUGHLY

TEST BEING PERFURMED.

IDENTICAL TO THE

NAME

LINE & IDENTIFIES THE ACTUAL HARDWARE FUNCTION THAT IS BEING
PERFORMED.
ADDITIONAL
INFORMATION
ON
THIS LINE 1S DESCRIPTIVE OF SPECIFIC USE OF
THE

FUNCTION.

FOR EXAMPLE,

THE OPERATION LINE

WILL READ

‘'READ

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

MEADERS

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

ERROR, DRIVE STATE, ETC.), WHAT IT IS AND WHAT IT SHOULD BE.
BE REPEATED IF MORE THAN ONE TESTED ITEM IS FOUND IN ERROR.

LINE

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

5 MAY

OP-

ERATION INCOMPLETE, HWEADER CRC, ETC.
IN THIS CASE THE FIRST LINE PRINTED AS RESULT WiLL BE DETERMINED BY THE THREE ERROR
BITS
OPI,
HNF/DLT,
?:g EN(R(/DCR(.

THE

LINE

WILL BE

DETERMINED AS

IN THE

FOLLOWING TRUTH

le:

OPI

- D -t O -

MESSAGE

CO—=——=D

DCRC/MCRC
Ot
O =t

HNF/DLT

HDR NOT FND/HDR CRC/OP1
HDR CRC ERROR
HDR NOT FND ERROR

ERROR

DATA CRC ERROR
DATA LATE ERROR

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

THIS AD-

LINE 7 NAMES THE CONTROLLER REGISTERS (AND CYLINDER AND HEAD WHERE
ARE

APPLICABLE

IN THE

REPORT)

TO BE

LINE B PROVIDES THE CONTENTES OF
WAS

INITIATED.

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
OP
DONE MAY INDICATE THE ERROR WAS DETECTED BY A
READ HEADER.

POSITION

THE

REASON IS

HEADS

THE WRONG CYLINDER.

THAT

A SEEK WAS EXECUTED AND DID NOT

LINE

10 IS THE DRIVE STATUS.

LINE

11 AND LINE

THIS LINE

IS ONLY REPORTED if

GISTER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS.
OPERATION,

REPORTED FOR ALL

5.1 A

12 ARE REPORTED IF

EITHER

PROPER-

AND WHEN THE READ HEADER WAS DONE THE HEADS WERE ON

DATA

THE ERROR WAS DETECTED AS A

OR HEADERS.

READ ERRORS.

SPECIFIC OPERATION MESSAGES

THE RLMP RE~
(OMPARE

IN ADDITION, GOOD AND BAD DATA IS

SEQ 0023

PAGE 24

THE

OPERATION MESSAGE

(LINE &)

1S GENERATED

IN A DYNAMIC MANNER BASED ON

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

SEEK -

FROM (CYL NUM) DIFF
ARE GIVEN IN OCTAL.
WAS VERIFIED BY

ERROR.

(THE

(CYL DIFF) SGN (0O OR 1) WD (0 OR 1) WHERE THE VALUES
THIS MESSAGE 1S THE RESULT OF A SEEK OPERATION THAT

A READ HEADER AND

ACTUAL

THE

HEAD POSITION AFTER A SEEK

HEAD POSITION IN THIS ERROR SITUATION IS GIVEN IN

THE RESULT LINE, LINE 5.)

READ DATA -

IS A READ DATA OPERATION WHERE SOME FORM OF ERROR WAS

DETECTED

THE

READ

DATA

WAS

ACTUAL
READ
OPERATION.
THIS ERROR COULD BE HARDWARE DETECTED SUCH AS
DATA CRC, HEADER CRC, HEADER NOT FOUND, ETC.,
OR
A
SOFTWARE
DETECTED
ERROR SUCH AS DRIVE READY RESET AFTER A READ DATA COMPLETED.
READ DATA WITH DATA COMPARE IS AN ERROR THAT WAS DETECTED AS BAD DATA

DATA OPERATION.

IN THE

BUFFER

WHEN THIS OPERATION 1S REPORTED IT

AFTER

INDICATES THE ACTUAL

RSSDGDATA OPERATION COMPLETED WiTH NO DETECTED ERRORS BUT

THE

WRONG.

READ HEADER READ HEADER FOR 40 HEADERS =~
READ HEADER FOR 40 HEADERS WITH HEADER COMPARE HAVE THE SAME GENERAL MEANING AS THE READ DATA AND READ DATA
WITH
DATA
COMPARE.
MESSAGES
HAVING
THE OPERATION OF READ HEADER OR READ HEADER

FOR 40 HEADERS ARE THE RESULT OF ERRORS DETECIED IN THE ACTUAL OPERATION
WHILE
THE
READ
HEADER FOR 40 HEADERS WITH HEADER COMPARE INDICATES NO
ERROR IN THE ACTUAL OPERATION BUT THE HEADER DATA ITSELF WAS IN ERROR.

WRITE DATA RESET -

GET STATUS GET STATUS WITH RESET ARE

ALL BASIC OPERATIONS.

?szogA:EREgSRISO"uARE.
H

AS BEFORE,

THE

THE RESULT LINE

ERROR DETECTION CAN BE

EITHER

(LINE 5) WILL DEFINE THE REASON

LD DRv UNLD DRv =
ARE OPERATION MESSAGES THAT WILL APPEAR IN THE
LOAD AND UNLOAD SEQUENCE 1S BEING TESTED.

REPORT

WHEN

THE

DRIVE

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

SEQ 0024

PAGE 25

2, OVERWRITE TEST, AND THE ADJACENT CYLINDER INTERFERENCE TEST.
OPERATION
READ DATA WITH DATA COMPARE
READ DATA
WRITE DATA
.
READ HEADER

QUALIFIER
FOL O TO CC SEEK
FOL 255 TO CC SEEK
FOL WRITE (NO SEEK)
ADJ. CYL WRITTEN AFTER FWD Sk
ADJ. CYL WRITTEN AFTER REV SK
SK FWD, WRT=-SK REV, OVERWRT
SK REV, WRT=SK FWD, OVERWRT

THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY
OF
THE
QUALIFIERS.
THE QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO MAKE THE REPORT MORE MEsgagGFUL BY PROVIDING INFORMATION ABOUT THE SEQUENCE OF OPERATIONS BEING

THE QUALIFIERS ''FOL O TO CC SEEK'' AND '‘FOL 255 TO CC SEEK' | NDICATE
CA

THAT
THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF
THE CYLINDER WHERE THE TEST 1S BEING PERFORMED.

A GIVEN DIREC TION TO

THE "'FOL WRITE (NO SEEK)'' QUALIFIER MEANS THAT
THE
OPERATION WAS
DONE AFTER A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND READ.
THE QUALIFIER "ADJ CYL WRITTEN AFTER FWD SK'' AND ''ADJ
CYL
WRITTEN
AFTER REV
SK'' WILL BE REPORTED ONLY IN THE ADJACENT CYLINDER INTERFER=ENCE 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 CYLINDER WAS WRITTEN.

THE QUALIFIERS ''SK FWD, WRT-SK REV, OVERWRT'' AND ''SK
REV,
WRT=SK
FWD,
OVERWRT' WILL BE REPORTED ONLY IN THE OVERWRITE TEST.
TMESE QUALIFIERS DEFINE THE DIRECTION OF HEAD MOTION BEFORE THE INITIAL WRITE
AND
THE OVERWRITE.

THE QUALIFIER "'ON BAD SEC FILES'
WILL BE REPORTED WITHM
THE
WRITE °
1
DATA
COMMAND IF THE PROGRAM ABORTS THAT COMMAND BECAUSE THE WRITE WOULD
BE ON THE BAD SECTOR FILES.

5.1.2

SPECIFIC RESULT MESSAGES

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

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

ONLY THE FIRST ERROR SEEN IS REPORTED

THE GENERAL FORMAT FOR THE RESULT LINE

1S:

IN ALL CASES.

THE OPERA-

SEQ 0025

PAGE 26

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

CONT ERR
DRV ERR

NON-EXSTNT MEM
HDR CRC
DATA CRC
HDR NOT FND
DATA LATE
HDR NOT FND/HDR CRC/OPI
DRv RDY

SELECTED HEAD
VOL CHK
COVER OPEN
BRUSH HME

(HEADER NOT FOUND)

(ALL 3 BITS SET)
(DRIVE READY)

(VOLUME CHECK)
(BRUCH HOME)
(WRITE LOCK)

WRT LCK

HDS OUT
DRV SEL ERR
DRV STATE

(CONTROLLER ERROR)
(DRIVE ERROR)
(NON=EXISTANT MEMORY)
(HEADER CRC ERROR)

HDR/DAT ERR

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

HDR NOT FND/DAT LATE

(HDR NOT FOUND OR DATA LATE

(CYLINDER WHEN REPORTING A
SEEK ERROR)

SPIN TIMEOUT
WRT GAT ERR
SEEK TIMEOUT

CUR HEAD ERR

WRT DAT ERR

OP INCOMPLETE

BIT 11 OF CS REGISTER)

ERROR BIT 12 OF CS REGISTER)

VARIABLE 2 WILL BE A VALUE THAT DEFINES WHAT
THE
RESULT
ACTUALLY
IS,
THIS
CAN BE A 1 OR D TO INDI CATE A SET OF RESULT CONDITIONS, A NUMBER 0
T0 7 TO INDICATE THE DRIVE STATE, OR A NUMBER O TO 377 (OCTAL) TO IDENTIFY A CYLINDER NUMBER.

VARIABLE 3 DEFINES THAT THE VALUE GIVEN 1S VARIABLE 2 SHOULD BE.
THE
OPTIONAL QUALIFIER 1S PROVIDED WHEN IT 1S USEFUL TO KNOW WHEN THE ERROR
WAS DETECTED IN THE OPERATION BEING PERFORMED.
THIS QUALIFIER
IS USED
TO REPORT RESULTS SUCH AS:

BRUSH HME 1|

HEADS OUT |

DRV RDY
|
SELECTED HE
{
DRV RDY

1
I
l

0 IN CYCLE LP
STATE 5
SEEK W/0 MOTION
10M$
500ms
SSECONDS

SEQ 0026

B
m—_
T
—
e
T e i~
o, “——— i
S——— S— e
>

—

<
._m...

=
———

PAGE 27

L:EBE RESULTS,

WHEN SEEN WITH THE

OPERATION MESSAGE, WILL BE

SELF

EXPLA-

OTHER RESULT MESSAGES THAT

CAN BE PART CF

AN ERROR REPORT 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 STARTING A READ HEADER AND THEREFORE NOT
THE READ HEADER

IN 1MS.

COMPLETING

"FAIL TO RELOAD HEADS AFTER ERR CLEAR"
THIS

IS REPORTED WHEN AN ERROR CAUSES HEADS

ERROR

IS CLEARED THE HEADS DO NOT RELOAD.

UNLOAD

AND

AFTER

THE

DRIVE

STATE

THE BAD

SEC-

"'UNKN DRV STATE=NO RDY, NO ERR, HDS OUT"'
;?1? gS REPORTED WHEN THE
us.

PRCGRAM CANNOT DETERMINE

THE

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

PROGRAM ABORTS A WRITE

TO PROTECT

"'COULD NOT RETRIEVE DRIVE STATUS'
THIS

IS REPORTED

"'OP]1

SET=NO DRIVE RESPONSE"'

LY WHEN THE

THE

GET

STATUS COMMAND DOES NOT

STATUS 1S REQUIRED TO REPORT AN ERROR.

COMPLETE

SUCCESSFUL-

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

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

“ERR DID NOT C(LEAR"

COMPLETES

BUT

THE

C(ON-

SEQ 0027

PAGE 28

THIS

1S REPORTED WHEN THE RESET

ERRORS.

THE DRIVE

COMMAND DOES NOT

CLEAR

THIS IS A CONTROLER RELATED PROBLEM BUT

TEST

THE

CONTROLLER

IS REPORTED IF

PROGRAMS,

SEEN IN

"DRV ERR 1S NOT CLEARED"
THIS

1S REPORTED WHEN THE

DRIVE ERRORS.

|
GET

STATUS W/RESET

COMMAND DOES NOT

CLEAR

ALL

“'UNEXPECTED ERR"
IHIS
1S REPORTED WHEN THE

CONTROLLER SENSES AN ERROR BUT NO

ERROR

BITS

"“BAD SEC FILE FMT ERR"
THIS

1S REPORTED

EXPECTED FORMAT.

3.1 .3
OTHER

THE

CONTENTS OF

THE

FILES DO NO

CORRESPOND

(REFER TO DEC STANDARD 144 FOR FORMAT SPECIFICS.)

THE

OTHER MESSAGES
INFORMATION IS REPORTED UNDER VARIOUS CIRCUMSTANCES.

"BAD SEC FILES NOT STRD.
THIS MESSAGE IS
FILES
BUT THEY
TEST IS STARTED
FILES COULD NOT

THESE

ARE:

ALL SEC ASSUMED GOOD.'

PRINTED WHEN A PARTICULAR TEST REQUIRES THE
BAD
HAVE NOT BCEN STORED.
THIS SITUATION WiLL OCCUR
OUT OF THE NORMAL PROGRAM SEQUENCE OR IF THE BAD
BE READ.

SECTOR
IF THIS
SECTOR

“ERROR LIMIT EXCEEDED-UNIT DROPPED'’
THIS

1S REPORTED

NUMBER OF

ERRORS

(WITH THE UNIT NUMBER)

WHEN

(DEFAULT 20) HAVE OCCURED

IN ANY

THAN

THE

SINGLE PASS.

SPECIFIED

ERROR HALTS

ERROR MALTS ARE SUPPORTED PER DESCRIBED IN
/FLAG:HOE.

THERE

ARE NO OTHER MALTS.

PERFORMANCE

AND PROGRESS REPORTS

THE

SECTION

WITH

SEQ 0028

PAGE 29

6.1

PERFORMANCE REPORTS
THIS PROGRAM WILL NOT

6.2

ANY

PERFORMANCE

REPORTS.

PROGRESS REPORTS

THIS PROGRAM WILL NOT

DEVICE

GIVE

ANY PROGRESS REPORTS.

INFORMATION TABLES

THE RL11/RLVI1 CONTROLLER HAS THE
TROL OF THE SUBSYSTEM.

FOLLOWING FOUR(4)

BIT

N
A
DN B
B
B
LI I

—

NOO
SV

(Xxxxx0)

COMPOSITE ERROR.
DRIVE ERROR
NON EXISTANT MEMORY ERROR
HEADER NOT FOUND (WITH BIT 10 SET)
DATA LATE (WITH BIT 10 CLEAR)
HEADER CRC (WITH BIT 10 SET)

DATA CRC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE

= DRIVE SELECT

(0-3)

CONTROLLER READY
INTERRUPT ENABLE

EXTENDED BUS ADDRESS (BIT

-EXTENDED BUS ADDRESS (BIT

NOWVES
W
—-=O )

—

s b
e e
e s
e

4t —d —d — —4 —

-, WS
w

——

—

i
i

RLCS = CONTROL AND STATUS REGISTER

0D O 0O O O O

5.0

GIVE

FUNCTION CODE
= NOP (PDP=11) MAINT
WRITE CHECK

17) -

i6)

(LSI=11)

GET DRIVE STATUS
SEEK

READ HEADER
WRITE DATA
READ PATA
READ WITHOUT HEADER COMPARE

O = DRIVE READY

RLBA = BUS ADDRESS REGISTER

(XXXXX2)

BITS 15«1 BUS ADDRESS OF DATA TRANSFER
B11 O SHOULD BE 0

REGISTERS

FOR

CON-

SEQ 0029

PAGE

RLDA = DISK

ADDRESS REGISTER

(XXXXXx&)

NG
-

5=7 = CYLINDER ADDRESS FOR TRANSFER
= SURFACE FOR TRANSFER

=0 = SECTOR FOR TRANSFER (1-40.)

EEX FUNCTION
=7 = DIFFERENCE TO NEY CYLINDER
5 = MUST BE ZERO (0)

= SURFACE
=
=
=
=

OR GET

MUST
SEEK
MUST
MUST

(0=UPPER,

1=LOWER)

BE ZERO (0)
DIRECTION( 1=IN / 0=0UT
BE ZERD (0)
BE ONE (1)

)

STATUS FUNCTION

15=4 = IGNORED SHOULD BE ZERO (0)
3 = DRIVE RESET

2 = MUST BE ZERO (0)
1

= MUST BE ONE

0 = MUST BE ONE
RLMP = MULTIPURPOSE

BIT

(1)

(1)
REGISTER

15 = 0 = WORD COUNT

(TWO'S COMPLIMENT)

FOR READ HEADER FUNCTION

BIT

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

= HEADER CRC

FOR GET

(THIRD READ)

STATUS FUNCTION

HAS DRIVE

STATUS

BIT 15 = WRITE DATA ERROR
BIT 14 = (URRENT HEAD ERROR (CHME)
BIT 13 = WRITE LOCK STATUS (W)

SEQ 0030

PAGE

BIT
81T
BIT
BIT
BIT
BIT
BI1
BIT

12
11
10
9
8
7
6
5

BIT

3 = BRUSHES HOME

BIT

=
=
=
=
=
-

SEQ 0031

SCEK TIME OUT (SKTO)
SPIN ERROR (SPE)
WRITE GATE ERROR (WGE)
VOLUME CHECK (Vv()
DRIVE SELECT ERROR (DSE)
DRIVE TYPE 1S RLO2 IF SET
SURFACE (0=UPPPER, 1:=LOWER)
COVER OPEN

& = HEADS HOME

TEST

BASIC

LOAD

)
A
B
DN B
N
L

NO WV
WY—=0O

BIT1 2-0 -STATE BITS
= LOAD STATE
SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK = TRACK COUNTING
SEEK = LINEAR MODE
UNLOAD HEADS
SPIN DOWN

SUMMARIES

INTERFACE

TEST

(PART

IN DRIVE NUMBER.
DO GET STATUS WITH RESET.
DRIVE INTERFACE IS DEAD

OPl

SETS:

DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING

MARKER DETECTION FAILED

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

INTERRUPT WITH NO OPl,

AND BRUSH HOME

SHOULD BE

CHECK STATUS RECEIVED.

SET.

NOT:

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

LOCK

STATUS BIT

SET.

COVER

OPEN

‘
.

NOT:

BAD SWITC(H OR WRITE LOCK LOGIC
DRIVE COMMAND SHIFT REGISTER

(MECK

STATE FOR 0.

(MECK

VOLUME

IF NOT:

BAD STATE ROM
DRIVE COMMAND SHIFT REGISTER
(MECK RESET.

NOT:

BAD RESET DETECTION
BAD VOLUME (MECK LOGIC
DRIVE COMMAND SHIFT REGISTER

FE—

————————— )

——

PAGE

(HMECX DRIVE ERRGR RESET.

NOT:

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

THIS TEST 1S EXECUTED ONLY IF PROGRAM OPERATION MODE 2
1S SELECTED, MANUAL INTERVENTION TESTING 1S REQUESTED,

AND

TEST

BASIC

IS RUN

IN FIRST

INTERFACE

TEST

PASS ONLY.

(PART 2)

REQUEST OPERATOR TO CLOSE COVER AND RESET WRITE

DO GET

STATUS LOOP

CHECKING

COVER

OPEN

LOCK.

RESETS.
WAIT
15
SECONDS FOR BOTH TO CMANGE.
IF
ASK OPERATOR TO TYPE CR IF PROCEDURE WAS FOLLOWED.

WRITE

LOCK

NO CHANGE,

ONE CHANGED BUT NOT THE OTHER, REPCRT WHICH FAILURE:
WRITE LOCK SWITCH OR LOGIC
(OR) COVER OPEN SWITCM OR LOGIC
DRIVE COMMAND SHIFT REGISTER

NEITHER CMANGED, REPORT BOTM FAILURES.

NOTE:

THIS TEST

1S SELECTED, MANUAL

AND

TEST 3

1S EXECUTED ONLY

1S RUN IN FIRST

PROGRAM OPERATION MODE

INTERVENTION TESTING IS REQUESTED,

PASS ONLY.

WEAD LOADING TEST

REQUEST

OPERATOR

TO PRESS LOAD

SWITCH.

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

TYPING (R.

LOAD WAS PRESSED:

BAD STATE ROM
BAD LOAD SWITCH OR LOGIC

(WECK THAT STATE 1 REMAINS FOR LESS THAN 30 SECONDS.
SPINDLE NOT TURNING OR TO SLOW (AC SERVOD)
SECTOR PULSE DETECTION OR LOGIC BAD
BAD (LCCK SHIFT REGISTER IN SPEED CONTROL
BAD DISK ON SPEED LOGIC
BAD STATE RCM

1 NOT:

SEQ 0032

s—

PAGE

AND CHECK IF SPINUP TIMEOUT ERROR SET.

[IF NOT:

BAD STATE ROM
BAD TIMEOUT DETECTION LCGIC
(HECK

THAT

STATE

GOES TO 2.

NOT:

BAD STATE ROM
(HECK

1S 2.

THAT

BRUSH HOME

1S RESET

1F NOT:

5 SECONDS OR LESS

AFTER

STATE

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

30 SECONDS FOR BRUSH HOME TO SET.

NOT:

BAD AC SERVO
BAD SWITCH OR LATCH
(HECK

THAT

STATE HAS CHANGED

TO 3.

NOT:

BAD STATE ROM
AFTER STATE

IS 3,

BAD
B8AD
BAD
BAD
(HECK

VOLUME

CHECK HEADS OUT

CHECK

DRIVE

NOT:

SWITCH
SEEK CONTROL ROM
VELOCITY ROM
DC SERVOD
IS SET.

BAD VOLUME
(HECK

IS SET.

ERROR

NOT:

(HECK LOGIC

SET.

NOT:

BAD DRIVE ERROR LOGIC OR INTERFACE
WAIT

300 MS FOR STATE TO CHANGE

T0 4.

IT DOESN'T CHANGE:

STATE ROM BAD
SEEK ROM
VEL ROM
GUARD BAND DETECTION
WAIT

15 MS FOR STATE

TO CHANGE

TO 5.

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

I1F

NOT:

INTEGRATOR OR NULL DETECTION FAILURE

READY ONE

ENABLE

SHOT BAD

TIMEOUT W NOT SETTING OR COUNT LOGIC BAD

SEQ 0033

PAGE

NOTE:

THIS TEST

IS EXECUTED ONLY IF

1S SELECTED, MANUAL

AND

TEST

IS RUN

HEAD UNLOADING

IN FIRST

OPERATOR

LOOP ON GET
:
CHANGE

IS REQUESTED,

PASS ONLY.

TEST

(HECK DRIVE 1S READY.
DRIVE READY.
REQUEST

PROGRAM OPERATION MODE

INTERVENTION TESTING

NOT

REPORT

AND ASK OPERATOR

MAKE

TO UNLOAD DRIVE.

STATUS WAITING FOR STATE

TO CHANGE

TO STATE

BAD STATE ROM
BAD SWITCH
WAIT

300 MS FOR STATE

TO CHANGE

TO 7.

NO CHANGE:

BAD STATE ROM
AFTER STATE

:
I¥ NO CHANGE

WAIT

30 SEC

FOR STATE

TO CHANGE

NO BRAKING
BAD AC SERVO

:EggESY OPERATOR TO LOAD
'.

NOTE:

TEST

DRIVE.

WAIT

WUNTIL

DRIVE

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

DRIVE

SELECT

TEST

INSTRUCT THE OPERATOR TO REMOVE DRIVE ADDRESS PLUGS

DRIVES

EXCEPT

THE DRIVE UNDER TEST.

BE TYPED WHEN DONE.

ASK

THAT

DO GET STATUS TO ADDRESS OF DRIVE UNDER TEST.
ERRORS ARE REPORTED.
CHECK

BECOMES

THAT OP]

FROM

ALL

CARRIAGE RETURN

(HEEK THAT NO

DO GET STATUS TO ALL OTHER ADDRESSES AND

SETS FOR ALL OTHER ADDRESSES.

DO GET STATUS TO ADDRESS OF NEXT

THAT
NO
ERRORS
ARE
REPORTED.
ADDRESSES AND C(HECK THAT OP] SETS.

REPEAT FOR ALL DRIVE ADDRESSES
AFTER 3),

SEQUENTIAL
DO

GET

(0,1,2,3

ADDRESS.

C(HE(K

STATUS TO ALL OTHER

SEQUENTIAL

SEQ 0034

PAGE 35

NOTE:

THIS TEST

IS EXECUTED ONLY

PROGRAM OPERATION MODE 2

1S SELECTED, DRIVE SELECT TESTING 1S REQUESTED, AND IS

RUN IN FIRST PASS ONLY.

TEST 6

DRIVE

SELECT ERROR TEST

REQUEST OPERATOR INSERT IDENTICAL ADDRESS PLUGS IN TWO
DRIVES
(MUST
BE
IDENTICAL
TO
NUMBER
SPECIFIED EARLIER).
REQUEST
OPERATOR TYPE CARRIAGE RETURN WHEN READY.
PROCEDURE WILL BE

TO GET

STATUS AND

CHECK

FOR

DRIVE

SELECT

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

BOTH

DRIVES.

IFf

DRIVE SELECT ERROR DETECTION 1S BAD IN THAT DRIVE.
NOTE:

THIS TEST

IS EXECUTED ONLY

PROGRAM OPERATION MODE 2

1S SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS

RUN

IN FIRST

PASS ONLY.

RRRRROERRESY

STANDARD TESTS
If

THE PROGRAM OPERATION MODE

IS SELECTED,

THIS WILL BE

FIRST
TEST
EXECUTED.
THE
DRIVE(S)
TO
BE
PCWERED UP, HWEADS LOADED, AND WRITE LOCK RESET.
TEST

INITIAL STATE

THE

TESTED MUST BE

TEST

DO GET STATUS, WAIT FOR INTERRUPT,

IF OPI OCCURS:
.

DRIVE

INTERFACE

IS DEAD

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

I# INTERRUPT OCCURS WITHOUT OP], CHECK DRIVE READY.
&gglglzss
HEADS
ARE
LOADED
AND
ARE
TRACKING
KING).

IF MANUAL INTERVENTION TESTS WERE RUN, (HECK THWAT

READY SET
(POSITION
HEAD

SEQ 0035

PAGE

SELECIED.

1F NOT:
DRIVE

CYCLE UP DID NOT SELECT HEAD 0

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

RECEIVED.

HEADS

DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
HEADS OUT OR BRUSH HOME SWITCH OR ASSOCIATED
CIRCUITRY BAD

STATUS DATA BAD

IF MANUAL INTERVENTION TESTS WERE RUN AND THIS

PASS CHECK

THAT

VOLUME

CHECK AND DRIVE ERROR ARE

THE

FIRST

SET,

CHECK ALL ERROR BITS ARE 0.

CHECK STATE IS S.

IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD

TEST 8

INITIAL RESET STATE TEST

DO GET

STATUS HEAD SELECT = O, WAIT FOR

INTERRUPT,

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

DRIVE

RESET ERROR, OR VOLUME CHECK FLOP BAD

DRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECTED BIT

SHOULD STILL BE

ZERO.

NOT:

DRIVE COMMAND SHIFT REGISTER BAD

HEAD SELECT

TEST 9

DRIVE READY

SHIFT

TEST

DO SEEK
WITH O DIFFERENCE,
SIGN 0,
HEAD 0.
INTERRUPT,
GET STATUS.
C(HECK STATE 1S 5.
1IF NOT:

WAIT

FOR

DIFFERENCE COUNTER PICKING UP BITS

COUNTER CIRCUITRY 1S NOT INDICATING O DIFFERENCE

(HMECK DRIVE READY

IS RESET.

NOT:

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD
WAIT APPROX 8 MS FOR READY TO SET.
DOESN'T SET AT ALL:

TAKES

LONGER

SEQ 0036

PAGE 37

SEQ 0037

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

CHECK DRIVE ERROR DID NOT SET.

IT SET, DO GET

AND

DO
SEEXK
WITH
DIFFERENCE
O,
SIGN
1,
HEAD
0.
WAIT
INTERRUPT.
GET STATUS AND CHECK STATE IS 5.
1F NOT:

FOR

VERIFY HEAD SELECT
TEST

STATUS

REPORT WHICH ERROR.

IS ZERO.

10 SEEK SIGN SWITCH TEST

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

1S NOT READY

WAIT APPROX 8 MS FOR READY TO SET.

DOESN'T SET AT ALL:

TAKES

LONGER

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

COUNT ROM

VERIFY DRIVE ERROR DID NOT SET
VERIFY HEAD SELECT

IS ZERO.

DO SEEK WITH O DIFFERENCE,
ABOVE TESTS.
TEST

OPPOSITE

SIGN,

HEAD

REPEAT

PROGRAM 1S STARTED

ADDRESS

11 HEAD ALIGNMENT SUPPORT ROUTINE
THIS TEST

gggfi O:EAD

IS EXECUTED WHEN THE

ALIGNMENT

LY.

SUPPORT

IS REQUESTED, AND IN THE FIRST

THIS TEST SELECTS THE DRIVE UNDER TEST

AND

LOOPS

GET

STATUS WITH RESET.
THE WRITE LOCK BIT IS MONITORED AND WHEN
WRITE LOCK IS RESEYT HEAD O IS SELECTED AND WHEN WRITE LOCK
1S

SET

MHEAD

SELECTED.,

THIS WILL PERMIT THE HEADS TO BE

ALIGNED IN KEEPING WITH THE PRESENT HEAD

WITHOUT RETURNING TO THE CONSOLE.

ALIGNMENT

PROCEDURE

TYPING A CARRIAGE RETURN ON THE CONSOLE
WILL
TERMINATE
TEST
ON
THE
DRIVE UNDER TEST.
BEFORE TERMINATING, THE

WILL CHECK THAT WRITE LOCK 1S RESET,
WILL BE REQUESTED 10 RESET WRITE LOCKk,

NOT,

THE

THIS
TEST

OPERATOR

PAGE 38

TEST

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

FOR

DIFFERENCE COUNTER IS PICKING UP BITS
ASSCCIATED CIRCUITRY

VERIFY DRIVE READY RESET.

IS BAD

IF NOT:

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD
WAIT APPROX 8 MS FOR READY TO S‘T
DOESN'T SET AT ALL:

TAKES

LONGER

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

DRIVE CANNOT TRACK WITH THIS HEAD
VERIFY DRIVE ERROR DID NOT SET.
DO GET STATUS, CHECK HEAD SELECT

IS CORRECT.

1IF

NOT:

HEAD SELECT REGISTER BAD
DRIVE COMMAND SHIFT REGISTER BAD

?gs§gil WITH O DIFFERENCE,

TEST

13 READ HEADER TEST

(PART

SIGN

HEAD

REPEAT

ABOVE

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

WAIT FOR INTERRUPT

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

SET:

READ/WRITE BOARD BAD
READ DATA LINE BAD

E?Eas'lf BIT 6 OF WORD 1

1S SAME AS HEAD SELECY BIT IN STATUS.

HEADS ARE SWITCHED (CABLE)
HEAD SELECT LOGIC

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

SEQ 0038

PAGE 39

REPEAT TESTS USING HEAD 1.

CHECK THAT CYLINDER PORTION OF STORED HEADER
WORD
SAME AS HEADER WORD 1 OF THIS MEADER.
IF NOT:

THE

WAIT

FOR

HEADS ARE MISALIGNED

TEST

14 READ HEADER TEST

(PART 2)

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

SIGN

0O,

HEAD

ggASO CONSECUTIVE READ HEADER, STORE 3 HEADER WORDS AFTER EACH
CHECK ALL HEADERS FOR SEQUENCE AND CONTENT

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

(WORD 2

ALL

ZERO,

REPEAT ABOVE

TEST

IS 0).

1IF NOT:

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

DIFFERENCE OF

SEEK TEST

(PART

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

DO GET STATUS, WAIT FOR INTERRUPT.

CHECK STATE IS 4.

1IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD
DIFFERENCE REGISTER DROPPED BIT
STATE ROM FAILED
WAIT APPROX 5 MS.

STATE IS 5.

DO GET STATUS, WAIT FOR

1IF NOT:

INTERRUPT,

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

IN DC SERVO

NC TACH FEEDBACK
WAIT APPROX 5 MS LONGER.
FAILURE

IN READY LATCH OR

WAIT APPROX 5 MS LONGER,
FAILURE

TEST DRIVE READY.

TEST READY,

IN INTEGRATOR

1IF SET:

INTEGRATOR

|IF RESET:

(MECK

SEQ 0039

PAGE 40

UNEXYPECTED GUARD BAND DETECTED

DO SEEXK WITH DIFFERENCE

1, OPPOSITE SIGN, HEAD O.

TESTS AS ABOVE.

REPEAT

TEST

NOTE:

TEST

USING HEAD

THIS TEST

IS PERFORMED AT

DO READ HEADER, WAIT

ALL

IN
THE
DRIVE
WHEN
THE
SINGLE SURFACE WILL LIMIT
DIFFERENCE

REPEAT

SEEK

TEST

THE

CYLINDER POSITION

FOUND

TEST
EXECUTES.
CHOOSING*A
TESTING TO THAT SURFACE.

(PART

FOR INTERRUPT.

STORE WORD 1

HEADER.

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

FOR

INTERRUPT, WAIT

DO READ HEADER, WAIT
?EA%%?

WITH

FOR DRIVE READY.

FOR INTERRUPT.

CYLINDER OF

COMPARE CYLINDER OF

STORED HEADER

FOR DIFFERENCE

THIS

ONE.

EXPECTED.

COUNT LOGIC BAD
INTERGRATOR FAILED
(SECK

THAT HEADS MOVED FORWARD OR

NOT:

REVERSE

SEEK ROM FAILED

DO SEEX WITH DIFFERENCE OF
ALL

TESTS AS ABOVE.

REPEAT

NOTE:

TEST USING HEAD

THIS TEST

THE

1, OPPOSITE SIGN, HEAD

REPEAT

IS PERFORMED AT

DRIVE

WHEN

THE

SINGLE SURFACE WILL LIMIT

THE

CYLINDER POSITION

TEST

EXECUTES.

FOUND

CHOOSING A

TESTING TO THAT SURFACE.

SEQ 0040

CIRLIAQO-RLO1/2 DR TST
TABLE

- ol
b=

CONTENTS

*TEST

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

BASIC INTERFACE

BASIC

INTERFACE

(PART

SEQ 0041

3
=
1
1
. el
»
1
0=
35
il=
3§

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

3
&
5
6
7
8
9

HEAD LOADING
HEAD UNLOADING
DRIVE SELECT
DRIVE SELECT TEST
INITIAL STATE
INITIAL RESET STATE
DRIVE READY

1
1%
=
17=
18-

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

11
12
13
14
1%
16

HEAD ALIGNMENT SUPPORT
HEAD SWITCHING
READ HEADER (PART 1)
READ HEADER (PART 2)
DIFFERENCE OF 1 SEEK (PART 1)
DIFFERENCE OF 1 SEEK (PART 2)

19-

20-

3
3
3
1
1
1

*TEST

PARAMETER CODING

SEEK SIGN SWITCH

DIAGNOSTIC SUPERVISOR == LOW CORE SET UP

ASSEMBLY

ROUTINES

MACRO v03.01

9=FEB=79 19:14:22 PAGE

SEQ 0042
1

000001

PART1==1

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=79

NLIST

2 000000

19:14:22 PAGE

.ENABLE AMA

002000

.=2000

7 002000
8
9

000001
000001

SvC
SVYCTST=1
SVCSUB=1

10
1"

}2 002000
15 002000
17 002000
002000
002001
002002
002003
002004
002005
02006
002007
002010
002011

002034
002036
002040
002042
002044
002046
002050
002051
002052
002054
002056
002060
002062
002064
002066
002070
002072

000000
000000
013730
000000
000000
000000
002
002
000001
000001
000000
000000
000000
002114
000000
002112
002112

002102
002104

SVCTAG=0

POINTER BGNSW,BGNSFT,BGNDU
BGNMOD
HEADER

000000
013770

MDHEDR
CZRLI,A,0,1,1,1,RLO1
LASCIT /7C/
JASCIL 72/
LASCII /R/
LASCIT 7L/
LASCIL 71/
.BYTE
0
.BYTE
0
.BYTE
0
LASCIL
/A7
LASCIT
70/

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

0060000

000000
015256
000014

SVC

SVCBGL=1
SVCINS=0

000000

002012
002014
002016
002020
002022
002024
002026
002030

002074
002076
002100

LMCALL

000001
000000

103
132
122
114
m
000
000
000
101
060
000000
000001
032570
032734
013674
013712
033200
000000

002032

CND,MD,ME

.ENABLE ABS

.WORD

LWORD
.WORD
.WORD
.WORC
.WORD
LWORD
.BYTE
.BYTE
.WORD
.WORD
LWORD
WORD
LWORD
LWORD
LWORD
.WORD
.WORD

LWORD
.WORD
.WORD

.WORD
LWORD

O
1
L$HARD
L$SOFT
L$HW
L$SW
LSLAST
O
O
O
O
L$DISPATCH
O
O
O
CSREVISION
CSEDIT
1
1
O
O
O
LSDVTYP
O
L$DR
L$DRST
O
L$DU
14
0
L®INIT

SEQ 0043

ASSEMBLY ROUTINES

002106
22 002110
2% 002110
002110
264 002114
.

002114

002117
002122
002125

MACRO v03.01

9=FEB=79

015136

19:14:22 PAGE

FNDMOD

000000
1¢2

061
114
000

114

054
060

LWORD

LSCLEAN

DEVREG
LWORD

BLKW
DEVIYP

060

LASCIZ

122
062

2-!

SEQ 0044

<RLOV,RLO2>
/RLOY,RLO2/

.EVEN

;COPYRIGHT

;AT

27
28
29
30
31
22
33

(C)

1978,

1977

sTHIS SOFTWARE 1S FURNISHED UNDER LICENSE FOR USE ONLY
sON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
sTHE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS
;SOFTWARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED
;OR OTHERWISE MADE AVAILABLE TO ANY OT/ER PERSON EXCEPT
sFOR USE ON SUCH SYSTEM, AND TO ONE WHU AGREES TO THESE
sLICENSE TERMS. TITLE TO OWNERSHIP OF THE SOF TWARE SHALL
ALL TIMES REMAIN IN DEC.

36
37

;THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
;WITHOUT NOTICE AND SHALL NOT BE CONSTRUED AS A COMM]TMENT

sDEC

:BY DIGITAL EQUIPMENT CORPORATION.

;OF

ASSUMES NO RESPONSIBILITY

ITS

SOFTWARE

ON EQUIPMENT

FOR

WHICH

THE

USE

IS NOT

OR RELIABILITY
SUPPLIED BY

DEC.

43 002126

BGNMOD

GLBEQAT

45 002126
46

47
48
49
€0

EQUALS
2

OFFSETS

FOR

HARDWARE

P-TABLE

DRSB
(NT

=10
=12

OFFSET FOR SOFTWARE P-TABLE

HILIM

000000
000002
000004
000006

(SR
=0
VECT
=2
PRIOR
=4
TYPDR=6

55
56

000000
000002

MISW]
LOLIM

58
59

000006
000010

HEAD
ERLIM

]
=10

H
ALLCYL
ALLSEC
DRSELT
HDALIGN
AUTOSZ
HEADLM
HICYL

BIT ASSIGNMENT FOR SOF TWARE P-TABLE SWITCHES
=BI1100
JUSE ALL CYLINDERS
=BITO1
;USE ALL SECTORS

51
2%

5¢4

6?
6

62
63
64

65
66
67
¢8
69
70

000010
000012

000004
000012

000001
000002
000004
000010
000020
010000
020000
040000

DCLIM

LOCYL

=0
=2

=12

=B1102
=B1103
=Bl104
=BIT12
=BI113
=Bl114

;BUS ADDRESS
;VECTOR ADDRESS
;PRIORITY

;DRIVE SELECT BIT
sCONTROLLER TYPE

;SOF TWARE PARAMETERS SWITCHES
sCYLINDER LOWER LIMIT

:CYLINDER HIGH LIMIT

:SELECTED HEAD FOR RUNNING TES:S
;ERROR LIMIT

sDATA COMPARE ERROR LIM]T

JEXECUTE DRIVE SELECT TEST
;EXECUTE HEAD ALIGNMENT TEST
sAUTO SIZE FOR DRIVE=DROP 1F NO RESPONSE
HEAD LIMIT SPECIFIED FLAG
sHl LIMIT SPECIFIED FLAG
L0 LIMIT

SPECIFIED

ASSEMBLY

ROUTINES

MACRO V03.01

9-FEB=79

19:14:22 PAGE

2-2

SEQ 0045

100000

MITEST

=BIT1S

7%
75

000102
000104

(KDATA
GISTAT

SUBSYSTEM FUNCTIONS

77
78
79
80

000179
000112
000114
000116

RDHEAD
WIDATA
RDDATA
RDNOHR

73
76

81
83

85
86
87
88
89

000106

000100

NOOP

007777

COMPOP

=102
=104
=106
=110
=112
=114

;WRITE CHECK
:GET STATUS
S SEEK
:READ WEADER
:WRITE DATA
:READ DATA

=100

:NO OPERATION

=116

:READ DATA,

INTERVENTION TESTS

IGNORE HEADERS

OPERATION FLAGS

000002
000001
000004
000010
000020

HDRZMP
DATACMP
CYLUP
ULOAD
INOUTS

=B1T01
=B1T00
=BIT02
=BIT03
=BIT04

:HEADER COMPARE OPERATION
:DATA COMPARE OPERATION
:CYCLE UP OPERATION
:UNLOAD OPERATION
:IN-0UT SEEK OPERATION

000200
000400

REVSKS
FWDSKS

=B1T07
=B1T08

:REV SEEK SEQ (ADJ INTERFERENCE)
:FWD SEEK SEQ (ADJ INTERFERENCE)

90
91

000040
000100

001000

92
93

SEEK

;EXECUTE MANUAL

OUTINS
FOLWRT

REVSKO

=7777

=BIT0S
=BIT06

=BIT09

;COMPOSITE OPERATION FLAGS

:0UT-IN SEEK OPERATION
:FOLLOWING WRITE OPERATION
:REV SEEK

SEQ

(OVERWRITE)

95
96
97
98
99
100
101

002000
004000
010000
020000
040000
100000
003760

FWDSKO
BADADD
SEEKOP
RORWOP
RELDWT
HDR4O
MQUALS

=BIT10
:FWD SEEK SEQ (OVERWRITE)
=BIT11
:BAD DISK ADDRESS
=BIT12
:SEEK OPERATION
=BIT13
:READ OR WRITE OPERATION
=BIT14
RELOAD WAIT
=BIT1S
:40 HEADER OPERATION
=OUTINS!INOUTS'FOLWRT!REVSKS'FWDSKS'REVSKO'FWDSKO

104
105
106
107
108

000001
000002
000004
000010

;
fosLow
NOIRPT
CONHNG
NOCLR

ERROR FLAGS FROM SUBROUTINES
=B1100
;OPERATION TOOK TO LONG
=BITO1
NO INTERRUPT FROM OPERATION
=B1102
:CONTROLLER HUNG
=BITO3
:BAD CONTROLLER CLEAR

110
1M
112

000000
000002
000004

RLCS
RLBA
RLDA

=0
=2
=4

;

ANYERR
DRVERR
NXMERR
DLTERR
HNFERR

2100000
40000
=20000
210000
=10000

102

113

115

116

117
118
119
120
121

122
123
124
125
126
127

000006
000000

100000
040000
020000
010000
010000

004000
004000
002000
001400
000200
000100

;

RLMP
RLCSR

DCKERR
HCRCERR
OPIERR
DSMSK
CRDYMSK
INTEBL

;MESSAGE QUALIFIER BITS

=6
=0

=4000
=4000
2000
=1400
=200
=100

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

:MULT1-PURPOSE REGISTER

DEFINITIONS = CONTROL STATUS REGISTER

:CONTROL AND STATUS REGISTER

:ANY ERROR BIT
:DRIVE ERROR BIT
NON-EXISTANT MEMORY ERROR
:DATA LATE ERROR
:HEADER NOT FOUND ERROR

:DATA CHECK ERROR
:HEADER CHECK ERROR
:OPERATION INCOMPLETE ERROR
:DRIVE SELECT MASK
:CONTROLLER READY MASK
:INTERRUPT ENABLE MASK

000060
000001

BAMSK
DRDYMSK

000077
000100

SAMSK

MBSET0

000003
000010

GETSTAT

017777

WCMSK

000077
000100

HDSEC

et
b —d
et
b

OO0
NI NNNNNN
SN
—=O VDNV W

002144

002146

002150
002152
002154
002156
002160

005272
005221
005240
005337
005326
005370
005347

BIT DEFINITIONS = DISK ADDRESS FOR DATA XFER

;SECTOR ADDRESS MASK
sHEAD SELECT MASK

BIT DEFINITIONS = DISK ADDRESS FOR SEEK

;MUST BE SET, BIT 0
;DIRECTION BIT

sHEAD SELECT BIT

BIT DEFINITIONS = DISK ADDRESS FOR GET STATUS

;GET STATUS SETUP
;:DRIVE RESET MASK

~
~

BIT DEFINITIONS - MP FOR DATA XFER

:WORD COUNT MASK
;WORD COUNT

:SECTOR MASK
;HEAD SELECT MASK

HOSTAT

COSTAT
HSSTAT
DSESTAT
VCSTAT
oWGESTAT
SPDSTAT
STOSTAT
WLSTAT
HCESTAT
WDESTAT

E GISTER BIT
7
1

DEFINITIONS - MP FOR GET

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

STATUS

;STATE MASK
:BRUSH HOME STATUS

;HEADS OUT

STAMSK
BHSTAT

RANGE MASK

BIT DEFINITIONS = MP FOR READ HEADER

HDHSEL

ENDMOD
BGNMOD

000000
005163
005207
005134
005153
005175
005142

:BUS ADDRESS UPPER MASK

DRSET

WCRNG

SEQ 0046
;DRIVE READY MASK

DIRBIT
HDSEL

160000

002126
002126

2-3

HSMSK

000001
000004
000020

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

002126
002130
002132
002134
002136
002140
002142

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

=lelelele)

h
D el el
il
B el el
il
il
il

141

MACRC v03.01

o
(=4
o

ROUTINES

£ N NN NN (N NN N NN N
COONO
NS W=D Y00

ASSEMBLY

1 0000
2 0000
4 0000
1 00000

;WRITE LOCK

STATUS

;HEAD CURRENT ERROR STATUS

;WRITE DATA ERROR STATUS

GLBDAT
TABLE

OPMSGS: .WORD

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

OF OOPERAYlON MESSAGES

MWRCHK
MGTSTA
MSEEK
MREADH
MWRITE
MREAD
MWRSE T
MDATCP
MHDRCP
MCYLUP
MULOAD
MINOUT
MOUTIN

;FILLER

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

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

ASSEMBLY

ROUTINES

MACRO v03.01

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

2-4

SEQ 0047

[

T.DRIVE:
Jdd3
.WORD
HLMTW:
_.WORD

CLRBYT:
NXTHL:
GBND :
CAMSK:
DIRMSK:
HDCYL:

002300
002302
002304

004656
004660
004720
004760
005020
005026
005066
005070
005130
005132

002306
002310
002312
002314
002316
002320
002322
002324

000000
000000
000000
000000
000000
000000
000000
000000

:
PATTBL:

SNDRST

:NO DRIVE STATUS AVAILABLE

MWDERR

;WRITE DATA ERROR

SHCERR

sHEAD CURRENT ERROR

MSTERR
MSPERR
MWGERR
0
MDSERR

;SEEK TIMEOUT ERROR
;SPINDLE ERROR
;WRITE

GATE

ERROR

;:DRIVE SELECT ERROR

PATTERN TABLE
PATI
.WORD

.WORD
.WORD
.WORD

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

SUBSTK:

M&OHDR
.WORD

FOLLOWING WRITE

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

TABLE OF RESULT NAME MESSAGE ADDRESSES
.WORD
MCERR
;CONTROLLER ERROR
.WORD
MDRERR
:DRIVE ERROR
.WORD
MNEERR
:NON-EXISTANT MEMORY ERROR
MFLERR
.WORD
;HEADER NOT FOUND-DATA LATE
MHDERR
.WORD
;HEADER OR DATA ERROR
.WORD
MOPERR
;OPERATION INCOMPLETE

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

000000
010241

002262
002264
002266
002270
002272
002274
002276

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

MFOLWRT
MREVSK
MFWDSK
MRESKO
MFWSKO
MBADAD
OCOO0COOOOO

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

RESTBL:

)

[
—-

= OOV®NO
WV
N —o

NN
NN N ~N

200 002220
201
202
203 002222
204 002224
205 002226
206 002230
207 002232
208 002234
209 002236
002240
002242
002244
002246
002250
002252
002254
002256
002260

005413
005435
005470
005557
005523
005613
005256
000000
000000
000000

PAT2
PAT3
PAT4

PATS

PAT6

PAT7
PAT8
PAT9
PAT10

SUBROUTINE CALLING STA(CK
.WORD
:STACK
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
(elelelelele
el

185 002162
186 002164
187 002166
188 002170
189 002172
190 002174
191 002176
192 002200
193 002202
194 002204
195 002206
196 002210
-197 002212
198 002214
199 002216

1S 12 WORDS LONG

ASSEMBLY ROUTINES

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

SEQ 0048

262 002326
243 002330

000000
000000

265
246 002332
247 002334
248 002336
249 002340
250 002342
251 00234¢
252 002346
253 002350
256 002352
255 002354
256 002356

000002
000006
000011
000014
000021
000026
000033
000042
000051
000200
000377

259 002360
260 002362
261 002364
262 002366
263 002370
264 002372
265 002374
266 002376
267 002400
268 002402
269 002404

000004
000014
000022
000030
000042
000054
000066
000104
000122
000400
000777

264

.WORD
.WORD

0
0

;RLOYT TABLE OF CYLINDERS

i25TBL:

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

;RLO2 TABLE OF
725TB2: .WORD
"WORD
"WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD

2
6
9,
12.

;TABLE

82.
256.
511,

.BYTE
BYTE

.BYTE
.BYTE

.BYTE

:TABLE

.BYTE

CYLTBL:

16.
16.
— et et et e NDND OO NN O NN IS NN
N —
N
NN = OO ~N—H
NN
OWNNO S
~JdOWNODNJUe
& o ¢ & s & & s & & & = =

—a
—2
—d
e
el
b
D
e
e

002523
002524
002525
002526
002527
002530
002531
002532

.BLKW
.BLKW

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

USED

CYLINDERS
4
12.
18.
24.
34.
44,
54.
68.

1BT:

.BYTE
.BYTE

290 002522

291
292
293
294
295
296
297
298

002

NNV
NN - e
NO=S
O =W
N
—

279 002507
280 002510
281 002511
282 002512
283 002513
284 002514
285 002515
286 002516
287 002517
288 002520
289 002521

—

278 002506

1331BL:

TO BE

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

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

274 002406
275 002446

DIFFERENCES

;IN TEST 25

TO BUILD AND STORE

DEFAULT

CYLINDERS

THE

ASSEMBLY ROUTINES

MACRO v03.01

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

299 002533
300 002534
301 002535

302
303
304
305
(b

002536
002537
002540
002541

002542

307 002543
308 002544

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

O W NN (P IV
T ST ST ST VT ST N7 N7 ST ¥
ONO O S NN = 2 ONINNO VNS NN
—=O
oWV~ =N WSRO NNVWNO =SS NVONIWO

SEQ 0049

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

.BYTE
.BYTE

.BYTE

134.
139.

146.

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

152
157
164,
170.
177.
184.
189.
195
202.
207.
214,
220.
74
234,
241,
247.
253.
0
257.
262.
269.
275.
282.
293,
300.
307.
313,
320.
327.
332,
339.
346.
352.

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

363.
368.
37S.
382.
389.
394.
401.
407.
412.
419,

LWORD

444,

.WORD
.WORD
LWORD

.WORD
LWORD
LWORD
LWORD
.WORD
.WORD

425.
432.
439,
450.
457,
462.
469,
475.
482.

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB=79

19:14:22 PAGE 2-7

SEQ 0050

356 002670
357 002672
358 002674
359 002676
360 002700
361 002702
%g% 002704

000751
000760
000766
000774
000774
000000
0000C)

SSINDX:

364
365 002706
366 002710
367 002712
368 002714
369 002716

370 002720
371 002722
372 002724
g;z 002726

000000
000000
000000
000000
000000

000000
000000
000000
000000

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

ERRSWI:
BSFLAG:
WRTSWI:
TBLSTR:

.WORD
.WORD
.WORD
.WORD

0
0
0
0

:ERROR RETURN SWITCH
:BAD SECTOR FLAGS
;WRITE SWITCH
:TABLE STORAGE

375 002730
376 002732
g;g 002734

000000
000000
000000

RLBAS:
RLVEC:
RLDRV:

.WORD
.WORD
.WORD

O
0
O

;RL11 BASE ADDRESS
:RL11 VECTOR ADDRESS
;: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

.WORD
.WORD
.WORD
.WORD
.WORD
,WORD
,WORD

0
O
0
O
0
0
O

s CONTROLLER REGISTER STORAGE
;BEFORE OPERATION

000000
000000
000000

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

.WORD
.WORD
.WORD

0
0
0

ig} 002762

000000

T.STAT:

.WORD

393
394
395
396
gg;

002764
002766
002770
002772
002774

000000
000000
000000
000000
000000

RESPARM:

.WORD
.WORD
.WORD
.WORD

LWORD
0
O
0
0

399 002776
400 003000

000000
000000

DRVCNT:
DIFAUG:

.WORD
.WORD

O
0

;:DRIVE COUNT FOR DRIVES UNDER TEST
;:DIFFERENCE AUGMENT FOR SEEK

003006
003010
003012
003014
003016
003020
003022
003024
003026
003030

000000
000000

CURCYL:
DESDIF:
DESSGN:
DESHD:
DESSEC:
TEMPO:
TEMP1:
TEMP2:
TEMP3:
TEMP4:

.WORD
.WORD

O
O

s CURRENT CYLINDER
;DESIRED DIFFEREMNCE

.WORD

: TEMPORARY STORAGE

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

003002
003004

000000
000000

000000
000000
000000

000000

000000
000000
000000
000000

oLDCYL:
NEWCYL:

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

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
,WORD
.WORD
.WORD

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

O
O

0
O
O
O
0
0
O

: SUBROUTINE STACK INDEX POINTER
;OPERATION FLAGS
;OPERATION COMPLETE FLAG
;HEAD ALIGNMENT DCNE FLAG
;ADDRESS OF ERROR HEADER
:MORE THAN 1 COMPARE ERROR

s CONTROLLER REGISTFR STORAGE
:
AFTER OPERATION

;HEADER WORD STORAGE

—

;:DRIVE STATE STORAGE

:PARAM BLOCK FOR REASON REPORT

:0LD CYLINDER
:NEW CYLINDER

;DESIRED SIGN
;DESIRED HEAD
;DESIRED SECTOR
: TEMPORARY
: TEMPORARY
: TEMPORARY
: TEMPORARY

STARAGE
STORAGE
STORAGE
STORAGE

ASSEMBLY ROUTINES

413 003032
414 003034
415 003036
416 003040
228 003042
651
452 003044
453 003046
454 003050
455 003052
456 003252
457 003254
458 003256
459 003257
460 003260
225,003262
463
2gg 003264

000000
000000
000000
000000
000004

MACRO v03.01

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

TEMPS:
TEMP6:
TEMP7:
TEMP8:
ERRVEC:

.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
0
&

SEQ 0051
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TENPORARY STORAGE
;ERROR VECTOR USED WHEN AUTO SIZING

000000

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

000000

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

000000
000000
000000

000000

000000
000
000
000000

:PASS COUNTER (LOCAL TO A TEST)
:A COUNTER (LOCAL TO A TEST)
;ERROR POINTER
;ERROR COUNTER FOR PROGRAM
;PASS NUMBER FOR PROGRAM
:COUNTER FOR PARAMETER SET NUMBER IN USE
:LOCAL ERROR COUNTER
;INHIBIT ERROR COUNTING FLAG
sHARDWARE TRAP OCCURANCE
sPOWER FAILURE OCCURANCE

466 003266
22; 003462

SBSFIL:
FBSFIL:

.BLKW
.BLKW

76
76

: SOFTWARE BAD SECTOR FILE
;FACTORY BAD SECTOR FILE

469 003656
2;? 004256

IBUFF:
OBUFF:

.BLKW
.BLKW

200
200

: INPUT BUFFER
;:OUTPUT BUFFER

PAT1:
PAT2:

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

O
177772
177777
177777
052525
052525
052525
177777
177777

;PATTERN 1

472 004656
473 004660
474 004662
475 004664
476 004666
477 004670
478 004672
479 004676
480 004676

481

000000
177772
177777
177777
052525
052525
052525
177777
177777

004700

052525

490 004720
491 004722
492 004724

000003
000000
000000

482
483
484
485
486
487
Agg
4

004702
004704
004706
004710
004712
004714
004716

493 004726
496 004730
495 004732
496 004734
497 004736
4«98 004740
499 004742
500 004744
501 004746

052525
177777
052525
177252
177252
172765
172765

177777
177777
177777
000000
000000
177777
177777
000000
177777

.WORD

052525

.WORD
.WORD
.WORD

000003
000000
000000

.WORD
WORD
.WORD
.WORD
.WORD
LWORD
LWORD

PAT3:

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

052525
177777
052525
177252
177252
172765
172765

177777
177777
177777
000000
000000
177777
177777
000000
177777

(ALL ZEROS)

ASSEMBLY ROUTINES

502 004750
503 004752
504 004754
282 004756

000000
177777
000000
177777

507 004760
508 004762
509 004764
510 004766
511 004770
512 004772
513 004774
516 004776
515 005000
516 005002
517 005004
518 005
519 005010
520 005012
521 005014
g%% 005016

025252
0525¢5
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252
052525
125252
052525
125252

524 005020
525 005022
23? 005026

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

.WORD
JWORD
.WORD
WORD

000000
177777
000000
177777

PAT4:

.WORD
.WORD
WORD
WORD
.WORD
WORD
WORD
WORD
LWORD
LWORD
WORD
WORD
.WORD
.WORD
.WORD
<WORD

025252
052525
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252
052525
125252
052525
125252

155555
133333
066666

PAT5:

.WORD
.WORD
WORD

155555
133333
066666 .

528 005026
529 005030
530 005032
531 005034
532 005036
533 005040
536 005042
535 005044
536 005046
537 005050

121105
150442
064221
132110
055044
026442
013211
105504
042642
021321

PAT6:

.WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

121105
150442
064221
132110
055044
026442
013211
105504
042642
021321

539 005054
540 005056
541 005060
562 005062

044264
022132
011055
104426

WORD
.WORD
.WORD
LWORD

044264
022132
011055
104426

538 005052

110550

.WORD

;Lz 005064

042213

.WORD

042213

gaz 005066

177777

PAT7:

,WORD

177777

567 005070
548 005072
549 005074
550 005076
551 005100
552 005102
553 005104
554 005106
955 005110
556 005112
557 005114
558 005116

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

PAT8:

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

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

110550

SEQ 0052

ASSEMBLY ROUTINES

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

559 005120
560 005122
561 0051264
22% 005126

132264
055132
026455
113226

22; 005130

125252

gg? 005132

155555

WORD
.WORD
LWORD
.WORD

132264
055132
026455
113226

PAT9:

.WORD

125252

PAT10:

.WORD

155555

ggg 00513¢

ENDMOD

573 005134
574 005134
575 005142
576 005153
577 005163
578 005175
579 005207
580 005221
581 005240

BGNMOD GLBTXT
MSEEK:
.ASCIZ
MREAD:
.ASCIZ
MREADH: .ASCIZ
MWRCHK: .ASCIZ
MURITE: .ASCIZ
MGTSTA: .ASCIZ
MDATCP: .ASCIZ
MHDRCP: .ASCIZ

582 005256
583 005272
584
585
586
587

005306
005315
005326
005337

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

105
104
104
122
122
105
M
m
117
m
120
105
116
104
117

105
040
040
126
126
126
126
126
122
126
105
123
114
040
114

M4OHDR:
MWRSET:
MOPER:
MRSLT:
MULOAD:
MCYLUP:
MOUTIN:

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

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

NOPWR:

.ASCIZ

/DRv DID NOT REC'R FROM PWR FAIL/

588 005347
589 005370
590 005413
591 005435
592 005470
593 005523
594 005557
595 005613
596 005634
597 005664
598 005711
599 005732
600 005743
601 005750

106
106
101
101
123
123
117
103
102
124
102
104
116

117
117
104
104
113
113
116
101
101
117
125
122
117

114
114
112
112
040
040
040
116
104
040
123
126
040

MINOUT: .ASCIZ
MFOLWRT:
MREVSK: .ASCIZ
MFWDSK: .ASCIZ
MFWSKO: .ASCIZ
MRESKO: .ASCIZ
MBADAD: .ASCIZ
MBADSF: .ASCIZ
MFMTER: .ASCIZ
.ASCIZ
MTMBS:
BASADD: .ASCIZ
DRVNAM: .ASCIZ
DRVNAV: .ASCIZ

603 006027
604 006034
605 006041
606 006046

122
122
122
122

114
114
114
114

103
102
104
115

CSNAM:
BANAM:
DANAM:
MPNAM:

619 006301

111
i16
116
103
105
126
125
040
115

116

MISTST: ,ASCIZ

602 005767

607 006053
608 006066
609 006101
610 006107
611 006126
612 006146
613 006201
614 006215
615 006235
616 006256
617 006273

104

117
117
127

122

120
120
117

116
117
117
116
122
117
116
124
101

126

040
040
122
126
040
040
124
122
114
130
105

,ASCIZ
,ASCIZ
_ASCIZ
,ASCIZ

.ASCIZ
LAB1:
.ASCIZ
LAB2:
.ASCIZ
MWORD:
MTOSLOW:
MDRRES: .ASCIZ
MNOINT: .ASCIZ
MCONHNG:
MNOCLR: .ASCIZ
VCNRST: ,ASCIZ
UNXERR: .ASCIZ
TSTLAB: .ASCIZ

/FOL 255 TO CC SEEK/
LASCiZ /FOL WRT (NO SEEK)/
/ADJ CYL WRTTN AFTER REV SK/
/ADJ CYL WRTTN AFTER FWD SK/
/SK FWD,WRT = SK REV,OVERWRT/
/SK REV,WRT = SK FWD,OVERWRT/
/ON BAD SEC FILES/
/CAN'T GET BAD SEC FILES/
/BAD SEC FILE FMT ERR/
/TO MANY BAD SEC /
/BUS ADD=/
/DRv=/
/NO DRV FOR TST/
/RLCS/
/RLBA/
/RLDA/
/RLMP/

/OP INIT =/
/OP DONE = /
/WORD /
LASCIZ /INTRPT TC LATE/
/NO DRV RESPONSE/
/NO INTRPT ON CMND COMPLETE/
ASCIZ /CNTLR HUNG /
/ERR DID NOT CLR/
/VvOL CHK NOT RSET/
/UNXPCTED ERR/
/ TEST/

/MAN INTERVENT STAT/

SEQ 0053

ASSEMBLY ROUTINES

MACRO v03.01

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

SEQ 0054

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

123
123
106
11
104
104
1¢3
llg
12¢
122
127

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

101
116
111
111
126
126
105
0640
040
040
126

104

106

NSTACHG:
SPDERR: .ASCIZ
GSTER1: .ASCIZ
INITST: .ASCIZ
TO5SERR:
.ASCIZ
TO9ERR:
.ASCIZ
TI10ERR: .ASCIZ
TI12ERR:
.ASCIZ
TI13ERR: .ASCIZ
TI14ERR:
.ASCIZ
T16ERR:
.ASCIZ
P2TO1E:
P2T02E: .ASCIZ

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

SEEK/

ASSEMBLY ROUTINES

8 006572

MACRO v03.01

110

104

101

102

10 006631
11 006715
12 007500

103
110
124

14
15
16
17
18
19

127
163
103
120
120
120

13 007052

007077
007122
007200
007232
007246
007310

20 007343
21 007372
22 007411
23 007426
24 007474
26 007525
27 007544
28 007550
29 007560
30 007573
31 007610
32 007616
33 007623
34 007627
35 007634
36 007641
37 007647
38 007662
39 007705

«0 007716
4; 007772

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

123

131
105
13}

114
101
120

101
110
114
122
122
122

123
113
123
105
105
105

117

122
1M
1M1
M
122
122
117
17
125
123
104
123
110
123
103
106
040
122
104

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

115
123
040
123
114
123
040
040
104
126
106
116
040
103
114
117
131
125
126

104
103
110
104
110
104
110
104

122
117
104
101
104
101
104
122

102
124

101
17

HDMOVF:

.ASCIZ

/HDS FAILED TO MOVE IN 10 TRIES/

OPRO02:

.ASCIZ

/ABOVE CONDITIONS MET/

CYLPER:
HAMES1:
HAMES2:

OPROO3:
OPR1:
OPR2:
OPR3:
OPRS:
OPR6:

.ASCIZ
.ASCIZ
.ASCIZ

/CYL PORTION OF HDRS DIFFER WHEN READ FROM TRK 0 & 1/
/HEAD ALIGN. RSET WRT LCK TO SEL HD O, SET FOR WD 1/
/TYPE '"CTL C'* & ‘'CONT'' TO CONTINUE TESYING/

.ASCIZ
.ASCIZ
LASCIZ
ASCIZ
.ASCIZ
.ASCIZ

/WAS LOAD DEPRESSED/
/CHK DRV 1S UNLDED, COVER OPN, AND WRTE LCKED /
/CLSE COVER & RST WRT LCK /
/PRESS LOAD /
/PRESS LOAD & WAIT FOR LOAD LIGHT /
/PRESS LOAD & WAIT FOR RDY /

.ASCIZ
.ASCIZ

/BAD SEC FILES NOV STRD. ALL SEC ASSUMED OK./
/TOTAL CMP ERRS: /

104
126

OPR7:
OPRS8:
OPR9:
OPR10:
OPR11:
OPR12:
OPR1A:
OPR1B:
UNDTST:
OPROO4:
DIFWD:
SGNWD:
HDWD:
SECWD:
CyLwb:
FRMWD:
BYPSNM:
SEQMES:
STAMES:

BSNSTR:
TCERR:

.ASCIZ
/REMOVE ADD PLGS EXCPT /
.ASCIZ
/INSRT ADD PLG /
LASCIZ
/IN ALL DRvVS /
.ASCIZ
/INSUFFICIENT DRVS FOR DRV SEL ERR TST/
_ASCIZ
/RPLCE ADD PLGS AS BEFORE/
.ASCIZ
/RESET WRT LCK /
.ASCIZ
/ON /
.ASCIZ
/ON DRv /
.ASCIZ
/UNDER TEST/
.ASCIZ
/SET WRT LCK /
.ASCIZ
/DIFF /
.ASCIZ
/SGN /
.ASCIZ
/WD /
.ASCIZ
/SEC /
LASCIZ
/CvyL /
.ASCIZ
/FROM /
_ASCIZ
/ BYPASSED /
.ASCIZ /ROUTINE TRACE SEQ:/
.ASCIZ
/DRv STA1/

126
116
122
126
122
126
122
126

:
MDRDY:
MCERR:
MHCRC:
MDCRC:
MHNF:
MDLT:
MHFCRC:
MDRERR:

RESULI NAMES
.ASCIZ
/DRvV RDY /
.ASCIZ
/CONT ERR /

43
44 010013
45 010024
46
47
48
49

50
51
53
5¢

55
56
57
58
60
61
62
63
64
65
66
67
68

010036
010046
010057
010073

010105
010135
010146
010160

010171
010204
010217
010230
010241
010256
010271
010307
010324
010342
010360
010375
010405

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

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

114
114
126
125
124
123
126
126
111
1246
105
101
126
122
122

MHSTA:
MvOLCK:
MCOSTA:
MBHSTA:
MWLSTA:
MHOSTA:
MDSERR:
MDRVST:
MSPERR:
MWGERR:
MSTERR:
MHCERR:
MWDERR:
MOPERR:
MHDERR:

L.ASCIZ
.ASCIZ
JASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ
.ASCll
_ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ

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

B&HDR NOT FND/HDR CRC/OPIR
/DRvV ERR /
/SEL'D HD /
/vOL CHK /

/COVER OPN /
/BRUSH HME /
/WRT LCK /
/HWDS OUT /
/DRvV SEL ERR /
/DRvV STATE /
/SPIN TIMEOQUT /
/WRT GAT ERR /
/SEEK TIMEOUT /
/HEAD CUR ERR /
/WRT DAT ERR /
/OPR=INC/
BHDR/DAT ERR B

SEQ 0055

ASSEMBLY ROUTINES

MACRO v03.0%

9-FEB-79 19:14:22 PAGE

69 010422
70 010450
71 010461
72 010466

110
116
103
103

104
055
131
10§

122
130
116
116

74
75
76
77

010556
010617
010633
010673

106
1c7
040
040

207

101
122
117
105

80
81 010706
82 010712

3-1

MFLERR:
MNEERR:
MCYLOC:
MNDRST:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

B&HDR NOT FND/DAT LATE &
/N=X=MEM /
/CYL /
/CAN'T GET DRV STAT/

377

111
124
126
122

377

MRLFAL:
MWRTAB:
MEXERS:
MERRS:

BELL:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

/FAIL TO RELD HDS AFTER ERR CLEAR/
/WRT ABORTED/
/ OVER ERR LIMIT = UNIT DROPPED /
/ ERROR/

111
040

123
123

040
102

:
RESE3:
RESE&4:

RESULT SETTINGS
.ASCIZ
/1S /
.ASCIZ
/ SB /

84
85 010717
86 010724
87 010731
88 010741
89 010751
91 010761
93 011001
94 011012
95 011020
96 011031
gg 011042

040
040
123
123
123
123
061
065
103
104
065

1M
117
124
124
124
105
123
060
131
101
040

116
106
101
101
101
105
126
060
103
124
123

:
RESULT CONDITIONS
RESE5:
.ASCIZ
7/ IN/
RESE6:
.ASCIZ
/ OF /
STATE2: .ASCIZ
/STATE 2/
STATE3: .ASCIZ
/STATE 3/
STATES: .ASCIZ
/STATE 5/
CDRDY:
.ASCIZ
RSEEK W/0 MOTIONE
C10MS:
.ASCIZ
/1ST 3 MS/
(C500MS: .ASCIZ
/500MS/
CCYLUP: .ASCIZ
/CYCLE UP/
CAFDT:
.ASCIZ
/DATA XFR/
(CSSEC:
.ASCIZ
/5 SEC/

99 011050
100 011077
101 011121

045
045
045

116
116
116

045
045
045

FMTOP1:
FMTOP2:
FMTOP3:

.ASCIZ
.ASCIZ
.ASCIZ

/ANXTANXTXTR06XSXTX01XN/
/ANXTXO1ZS1XTXO1%N/
/ANXTROIXSIZTRTAN/

73 010511

;g 010702

102 011142

125

045

116

124

113

0645

MUNDEF:

FMT1:

.ASCIZ

_ASCIZ

/UNKN DRV STATE=NO RDY,NO ERR,HDS 0U1/

<207><377><377>

/XT1X1/

103
104
105
106

011147
011156
011161
011164

045
045
045
045

116
124
116
116

045
000
000
045

FMT1.1:
FMT2:
FMT3:
FMT4:

ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

/ANXTRT/
/%1/
/3IN/
/ANRTRTAN/

108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

011215
011257
011327
011361
011366
011374
011402
011446
011500
011534
011545
011567
01162i
011656
011706
011731
011765
012001
012006
012016

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

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

045
0645
0645
045
045
0645
045
045
045
045
061
045
045
045
045
045
0645
045
045
045

FMT6:
FMT7:
FMTB:
FMT9:
FMT11:
FMT12:
FMT13:
FMT14:
FMT15:
FMT16:
FMT17:
FMT18:
FMT19:
FMT20:
FMT21:
FMT22:
FMT23:
FMT24:
FMT25:
FMT26:

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

/ANXSTIRTASARTASAXRTASAXTRAS4RTAS2XT/
/ANXTR06%S2X06%52%06X52%06%S3X03%S2%01%N/
/ANXTR06XS2%06%S2%06X52%06/
/XNXT/
/%7%01/
/%7%03/
/ANXST11XTRO3XS1XTX03XS1XTX01XS1XT7%01/
/AINXTRTRD3XS1XTR06XS1XTX06/
/ANXS1IXTAD3XS1ATX06%S1XT206/
/ANXS5%06/
/XS10XTANXS11X06%N/
/ANXSTISRTRSSRTASAXTASSATAN/
/XTAS4AD6XSLADOXSLXDOXSLXDOAN/
/XTXS2AD6XS14XD6RS4XDOAN/
/XTXS12%D6XS14XD6AN/
/ANXS11XTRO3XAS1Z2TX01%S1X7%02/
/XTATRTRO1XN/
/%NXT/
/%NXD2RT/
/ANXSIRTADAXTATAD3AN/

107 011175

045

116

045

FMT5:

,ASCIZ

/ANXTR06X%S121%01/

SEQ 0056

ASSEMBLY

ROUTINES

128 012042
129 012061

MACRO v03.01

116
116

3-2

SEQ 0057

.ASCIZ
_ASCIZ

/INZTXD3XTID3IN/
/%INXTXTX1/

136 012072
137

BGNMOD
:

GLBERR
ERR1

R3 POINTS TO RESULT MESSAGE

140
}:;

ERR2

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

143

ERR3

R3 POINTS TO RESULT NAME

146
147
}‘3

;
;
:

ERRG

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

150
151

:
;

ERRS

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS

154
155

:
:

ERRG

158
159
160
}o;

3
:
;
;

ERR7

163

ERRS

165
}og

:
:

}gg

045
045

19:14:22 PAGE

FMT27:
FMT28:

}gg 012072

045
045

9-FEB-79

ENDMOD

}:g

RESULT:

(R3)

IS O SB 1

}gg

}g?

104

168

169
170
171

;
;
;

1;%
174

176
177
1;3

:
;
:

175

180
181 012072
182 012072

012076
012100
012104
012106
012112

188 012116

105737
001002
005277
010146
004737
012721

010321

(003257

170744
021604
000001

BGNMSG

1%:

RESULT ROUTINE
REPORTS ALL

(R&)

DETERMINES WHICH ERROR(S)

ARE

SET

RESULT: “ERROR' IS 1 SB 0
DRIVE STATE ERROR REPORT
R3 CONTAINS EXPECTED STATE
T.STAT CONTAINS BAD STATE
RESULT: DRIVE STATE IS (T.STAT)

(R3)

HEAD POSITIONING ERROR REPORT
NEWCYL CONTAINS EXPECTED

CYLINDER

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

ERR9

183
184
185
186
187

RESULT: (R3) IS 0 SB 1

UTILITY RESULT REPORT

R3 POINTS TO RESULT NAME
R4 POINTS TO VALUE 1
RS POINTS TO VALUE 2

RESULT:
ERR10-

(R3-NAME)

(R&=VALUE

BNE
INC
MOV
JSR
MOV

MOV

(RS5=VALUE

COMPARE ERROR REPORT

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

ERR!1
1518

NOERCT
1%
JERRPOINT
R1,-(SP)
PC,RPTOP
#1,(R1)+

R3,(R1)+

(RS)

;TEST IF ERROR COUNTING
:YES - SKIP
;ELSE BUMP ERROR COUNT
:STORE R1
:REPORT OPERATION
:SET PARAM NUMBER

INHIBITED

:INSERT MESSAGE ADDRESS POINTER

AND

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB-79

19:14:22 PAGE

3-3

5
SEQ 0058

189
190
191
192
193

012120
0121264
012130
012132
012136

004737
004737
012601
004737

- 012136

1040¢3

195
196
197
198
199

005277
010146
004737
012721

200
201
202
203
204
205
206
207

012136

012140
012140
012144
012146
012152

012156
012160
012164
012166
012172
012176
012200
012204
012204
208 012204

209 012206
210 012206.
211

012212

212 012214
215 012220
214 012224
215 012226
216 012230
217 012234
218 012240
219 012244
220 012246
221 012252
012252
222 012252

223 012254
226 012254
225 012260
226 012262
227 012266
228 012272
229 012274
230 012300
231 012302
232 012304
¢33 012310
234 012314
235 012316
236 012322
012322
012322

010321
012721
005021
004737
004737
012601
004737

022372
022600
;
0153¢¢

ENDMSG

L10000:
:

BGNMSG

170704
021604
000003

022372
02260C
015326

004737
012721
010321
005021
012721
004737
004737
012601
004737

021604
000003

010146

104023
005277
010146
004737
012721
010321
012721
005021

010411
004737
004737
012601
004737
104023

BGNMSG

170570

ENDMSG
L10002:

BGNMSG

021604
000004
000001

022372
022600
015326

C$MSG

ERR?
INC
. MOV
JSR
MOV

ENDMSG

L10003:

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

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

;REPORT RESULTS
;REPORT REMAINDER
;RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
;STORE R1
;REPORT OPERATION
:SET PARAM NUMBER

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

($MSG

ERR3
INC

dERRPOINT

:BUMP ERROR COUNT

JSR
MOv
MOV
CLR
MOV
JSR
JSR
MOV
JSR

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

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

EMT

($MSG

MOv

000001
022372
022600
015326

EMT

ENDMSG
L10001:
'
EMT

104023
170636

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

MOv
MOV
(LR
JSR
JSR
MOov
JSR

000001

005277

JSR
JSR
MOV
JSR

ERR&
INC
MOV
JSR
MOV
MOV
MOv
(LR
MOV
JSR
JSR
MOV
JSR
EMT

R1,=(SP)

dERRPOINT
R1,-(SP)
PC,RPTOP
¥4, (R1)+
R3,(R1)+
#1,(R1)+
(R1)+

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

: STORE

:BUMP ERROR COUNT
:STORE R
:REPORT OPERATION
:SET PARAM NUMBER
: INSERT NAME ADD POINTER
sSET IS VALUE
:SET SB VALUE

: INSERT ADD OF CONDITION PCINTER
sREPORT RESULTS
sREPORT REMAINDER
;RESTORE R!
;60 CHECK IF ERROR COUNT EXCEEDED

SSEMBLY ROUTINES

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

3-4

SEC 0059

238 012324
239 0123264
260 012330
261 012332
262 012336
c43 012342
244 012344
265 012346
246 012352
247 012354
248 012360
249 012364
250 012366
251 012372
012372
262 012372

253 012374
254 012374

255 012400
256 012402
257 012406
258 012410
259 012412
260 012414
261 012416
262 012422
263 012426
264 012434
265 012440
266 012444
267 0126450
2068 012454
269 012456
270 012464
271 012470
272 012474

273 012500
012500
012504
274 012506
275 012514
276 012516
277 012522
278 0125264
279 012530
280 012534
281 012540
282 012542
283 012546
284 012552
285 012556
286 012562
287 012564
288 012570
289 012572
290 012576

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

BGNMSG

170520
021604
000004
000001
022372
022600
015326

ENDMSG
L10004:

104023

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

012700
104027
032762
001003
012703

000413
016203
010337
113703
000402
113703
042703
013704
042704
050403
032703
001442
032703
001026

BGNMSG

003257
170442

021604
000003
000001
003026
002746
177761
000004
000003
000004
002734

17%:

000002

000004

000000

001000

9%:

000006
003026
003027

10%:

002755
177442
002746
001777

1$:
13%:
2%:

002000
010000

dERRPOINT
R1,=(SP)
PC,RPTOP
#4,(R1)¢
R3,(R1)¢
(R1)+
#1,(R1)+
R4, (R1)
PC,RPTRES
PC,RPTREM
(SP)+,R1
PC,CKERLM

EMT

C$MSG

ERR6
1S1B

;BUMP ERROR COUNT
;STORE R1
;REPORT OPERATION
:SET PARAM NUMBER
; INSERT NAME ADD POINTER
;SET IS VALUE
;SET SB VALUE
: INSERT ADD OF CONDITION POINTER
;REPORT RESULTS
;REPORT REMAINDER
;RESTORE R1
;60 CHECK IF ERROR COUNT EXCEEDED

BNE
INC
MoV
MOV
MOv
MOV
JSR
MoV
MoV
CLR
MoV
BIC
CMP
BEQ
MOV
MOV
BIS

NOERCT
;TEST IF ERROR COUNTING INHIBJTED
17%
;YES = SKIP
dERRPOINT
;ELSE BUMP ERROR COUNT
R1,-(SP)
;STORE R1
R3,=(SP)
;STORE R3
R4 ,=(SP)
;STORE R4
R5,=(SP)
:STORE RS
PC,RPTOP
:REPORT OPERATION
#3,(R1)+
:SET PARAM NUMBER
#1,2(R1)
s INSERT 1S VALUE
TEMP3
;CLEAR FOR STATUS STORAGE
T.CS,R3
;GET T.CS
#177761,R3
;AND CLEAR ALL BUT FUNCTION
#6 ,R3
;CHECK IF IT WAS GET STATUS
1%
;YES = STATUS IS IN T.MP, SKIP
#GETSTAT,RLDA(R2) ;ELSE DO GET STATUS
#6,R3
RLDRV,R3

WAITUS
MoV
EMT
BIT
BNE
MOV
BR
MOV
MOV
MOVB
BR
MOVB
BI1C
MoV
BIC
BIS
BIT
BEQ
BI1
BNE

#10.
;WAIT FOR CONTROLLER READY
#10.,R0
C(SWTU
#CRDYMSK,RLCS(R2)
:TEST IF READY
10%
:YES - SKIP
#BIT9,R3
;ELSE SET NO DRiVE STATUS BIT
2%
: IN MESSAGE WORD AND SKIP
RLMP(R2) ,R3
:STORE STATUS FOR REPORT
R3,TEMP3
TEMP3+1,R3
;:GET ERROR BITS IN PROPER POSITION
13%
'
T.MP+1,R3
:GET ERROR BITS FROM MP REG
#177442 ,R3
:CLEAR UNUSED BITS
T.CS,R&
:GET ERROR BITS FROM (S REG
#1777 ,R4
:CLEAR UNUSED BITS
R4 ,R3
:MAKE ONE WORD OF POSSIBLE ERRORS
#OP1ERR,R3
;TEST IF OP] SET
115%
:NO = SKIP
#HNFERR,R3
:TEST IF WDR NOT FOUND ERROR
107%
;YES = SKIP

MOV

000012

000200

ERRS
INC
MOv
JSR
MOV
MOv
(LR
Mov
MoV
JSR
JSR
MoV
JSR

R3,RLCS(R2)

ASSEMBLY ROUTINES

291
292
293
294

012600
012604
012606
012612
012612
012616
012620
012626
012630
012634
012636
012640
295 012644
296 012646
297 012652
298 012654
299 012660
300 012662
301 012666
202 012670
303 012674
304 012676

032703
001020
012704
012746
010446
012746
012746
012746
010600
104014
062706
000430
012704
000757
032703
001003
012704
000751
012704
000746
032703

305 012702
306 012704
307 012710
308 012712
309 012716
310 012720
311 012724
312 012726
313 012732
314 012734
315 012736
316 012740
317 012742
318 012744

001403
012704
000740
032703
001403
012704
000732
012705
005004
030503
001005
005724
000241
006005

320
321
322
323
324
325
326
327

000405
016411
004737
000766
004737
005737
003414

219 012746

012750
012752
012756
012762
012764
012770
012774
012776
012776
013002
013006
013012
013016
013020
013022
328 013026
229 013034

130 013036
331 013044
332 013046

MACRO Vv03.01

9-FEB=79

004000
010375

1008:

010673
005315
012061
000004
000012

010036

105%:

004000

010057
010105

004000
010046

107%:
.

“

109%:

115%:

010000

118%:

010073
100000

120%:
3%:
6%:

001372

013746
012746
012746
012746
010600
104014
062706

032737
001453
032737
001047
005037

19:14:22 PAGE

BIT
BNE
MOV
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD
BR
MOV
BR
BIT
BNE
MOV
BR
MOV
BR
BIT

BEQ
MOV
BR
BIT
BEQ
MOV
BR
MOV
CLR
BIT
BNE
187
CLC
ROR
BNE

002222
022372

6$:

022600
003026

7$:

003026
007705
011545
000003

000010
004000

002746

002000

002746

002716

15$:

BR
MOV
JSR
BR
JSR
ST
BEQ
PRINTB
MOV
MOV
MOV
MOV
MOV
EMT
ADD
BIT
BEQ

BIT
BNE
CLR

3-5

SEQ 0060

WHCRCERR,R3
;TEST IF HDR CRC ERR
1058
SYES = SKIP
#MOPERR R4
sSET OP]1 ALONE MESSAGE
WFMT28,#MRSLT,R4.,#MERRS ;REPORT ERROR
WMERRS.-(5P)
R&,=(SP)
#MRSLT ,=-(SP)
W#FEMT128,-(SP)
¥4 ,-(SP)
SP.RO
CSPNTB
#12,SP
1208
#MHCRC R4
1008

#HCRCERR,R3
109
WMHNF R4
1008
#MHFCRC ,RG
1008
#DCKERR,R3
1188
#MDCRC,R4
1008
#DLTERK,R3
1208
#MDLT,R4
1008
#BIT15,RS
R4
R5,R3
68
(R4)+
RS

:SKIP
sHDR CRC MESSAGE

;TEST IF HCRC WITH HDR NOT FND
SYES - SKIP
:MESSAGE HEADER NOT FOUND
sHNF AND HCRC MESSAGE
:SKIP
;TEST IF DATA CHECK SET, NOT OPI

INO - SKIP
;SET MESSAGE DATA CHECK
:SKIP
sTEST IF DATA LATE ERROR
INO - SKIP
:SET MESSAGE DATA | ATE
:SKIP
sSET BIT POINTER FOR TEST
sCLEAR R4 FOR TABLE COUNT
;TEST IF BIT IS SET
:YES = SKIP TO REPORT
;ELSE BUMP TABLE POINTER
sCLEAR CARRY
sSHIFT BIT POINTER 10 NEXT BIT
:LOOP IF

NOT 0

7%
:ELSE REPORT REMAINDER
RESTBL(R4),(R1) :INSERT NAME ADDRESS
PC,RPTRES
;REPORT RESULTS
43
:GET NEXT BIT
PC,RPTREM
:REPORT REMAINDER
TEMP3
STEST IF ANY NEW STATUS
15%
:NO - SKIP
#FMT17,#STAMES,TEMP3
TEMP3,=(SP)
WSTAMES,-(SP)
#EMT17,-(SP)
#3,-(SP)
SP,RO
CSPNTB
#10,5P
#DCKERR,T.CS
;TEST IF DATA CHECK ERROR
25%
INO = SKIP

WOPIERR,1.CS
258
MORECE

:TEST IF OPI SET
SYES = SKIP
sCLEAR COMPARE ERROR COUNT

NMHNN=OO0O0O
—_NNS SN
-

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

"WWNN—'—'—'OO?

oo~ ~
sfO00 oNOSSMNVO
OO SN O OSSNV rOO0O

002716

188:

000012

006101
011500
000007

NNV

002716

20$:
19%:

25%:

000200

000005

000014

015326

27%:

NN
et et s YOO N

NNWNNNN—-N
NN = PN NN S~

ENDMSG

L10005:

104023
[e=lelelelelelele
e
OOt
it cd O = O
S HrOownnSsOW

3250

004737

167572

021604

000003
010256
002762
022372

022600

BEG
(MP
BGT

198
MORECE,#10.
2 0s

MOV

#RESEL ,-(SP)

MOV
MOV
MOV
MOV
MOV

W#RESE3,-(SP)
R3,-(SP)
#MWORD ,~(SP)
#EMT15,-(SP)
#7,-(SP)

(WP

BGNMSG

(RS),(R&)

SEQ 0061

;SET COMPARE LENGTH
sSET WORD COUNT

:SET GOOD WORD POINTER
;SET TEST WORD POINTER
s CHECK WORD
;600D - SKIP
;TEST

COMPARE

sVES = SKIP

REACHED

(R4) ,-(SP)

SP,RO
CSPNTB
#20,SP
MORECE
(R5)+,(R4)+
R3
R1

PRINTB

#FMT27 ,#TCERR,MORECE ,#RESEG,R1
R1,-(SP)

BNE
181
BEQ
MOV

LIMIT

#FEMT15,#MUORD ,R3,#RESE3, (R4) ,#RESESL, (RS)
(R5) ,=(SP)

MOV
EMT
ADD
INC
CMP
INC
DEC

:BUMP ERROR COUNTER
:BUMP POINTERS
;BUMP COUNTER

;DEC LENGTH COUNT

18$
MORECE
27
#128.,RI

;LOOP IF NOT DONE
;TEST IF ANY COMPARE ERRORS
:NO = SKIP
:SET COMPARE LENGTH

MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD
MOV

#RESE6,-(SP)
MORECE ,~-(SP)
#TCERR,-(SP)
#EMT27,-(SP)
#5,-(SP)
SP.RO
CSPNTB
#14,SP
(SP)+,RS

;RESTORE R5, 4, 3, 1

MOV
MOV

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

MOV

010724
002716
007772
012042

210

#128..R1
#1,R3
WOBUFF.RS
WIBUFF.R4

MOV

010706

000020
002716

MOV
MOV
MOV
MOV

PRINTB
MOV

010712

-t

350

000200
000001
004256
003656

349

342
343
344
345
346
347
348

— — — — — — — — o — — — —
) o il il o o i el o el D e el s
W
W NN NI W N W NN NN N NN N NN
NN
NN
NN
== o
i
i i i i i i
D e
i e
D D e ol s

e e

o o

=leleleleleleleleleelelelelelelelelolelelololelelolelelelelelelelolelelaleleleleoleleolele]=) [=lelelelolelelele]e)

ASSEMBLY ROUTINES

MOV

(SP)+.Ré

JSR

PC,CKERLM

EMT

CSMSG

ERR?

INC
MOV

JSR

MOV
MOV
MOV
MOV
JSR
JSR

oERRPOINT
R1,=(SP)
PC.RPTOP

#3.(R1)+
WMDRVST,(R1)+
T.STAT,(R1)+
R3,(R1) ;INSERT
PU.RPTRES
PC,RPTREM

;G0 CHECK

ERROR COUNT EXCEEDED

:BUMP ERROR COUNT

: STORE R
:REPORT OPERATION

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

SB VALUE

;REPORT RESULTS
;REPORT

REMAINDER

ASSEMBLY ROUTINES

MACRO v03.01

9-FEB-79 19:14:22 PAGE

3-7

SEQ 0062

368 013312
369 013314
370 013320
013320
- 013320
372 013322
373 013322
3764 013326
375 013330
376 013332
377 013336
378 013342
379 013346
380 013352
381 013356
382 013360
383 013362
384 013364
385 013366
386 013370
387 013376
388 013400
389 013404
390 013406
391 013410
392 013414
013414
303 013414

394 013416
395 013416
396 013422
397 013424
398 013430
399 013434

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

013436
013440
013442
013446
013452
013454
013460

013460
013460

013462
013462
013464
013470
013472
013476
013502

013502
013504
013510
013514
013520

012601
004737

015326

104023

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

010421
010521
004737
004737
012601
004737

167522
021604
000003
010461
002754
000007

005046
153716
012746
013746
012746

BGNMSG

3%:

003004
022372
022600
015326
.

167426

ENDMSG
L10007:

BGNMSG

021604
000003

022372
022600
015326

104023
010146
005737
001051
005277
004737

ENDMSG
L10006:

ENDMSG
L10010:
BGNMSG

002716
167352
021604

002735
005743
002730
005732

MOV
JSR

(SP)+ ,R1
PC,CKERLM

EMT

CSMSG

;RESTORE R1
;G0 CHECK IF ERROR COUNT EXCEEDED
.

ERR8
INC
MoV
MOV
JSR
MoV
MOV
MOov
Mov
CLe
ROR
DEC
BNE
TST
MOV
JSR
JSR
Mov
Mov
JSR

dERRPOINT
R1,=(SP)
R3,=(SP)
PC,RPTOP
#3,(R1)+
PMCYLOC,(R1)+
HOWRD1, (R1)
#7,R3

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

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

;ALIGN -CHAR FOR PRINTING
:
AS IS VALUE
.
..

EMT

CSMSG

ERR9
INC
Mov
JSR
MOV
MOV

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

EMT

C$MSG

MCvV
MOV
JSR
JSR
MOv
JSR

ERR10
MoV
TST
BNE
INC
JSR
PRINTB

CLR
BISB
MOV
MOV
MOV

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

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

:BUMP ERROR COUNT
:STORE R1
:REPORT OPERATION
:SET PARAM NUMBER
: INSERT NAME ADD POINTER
;SET IS VALUE
:SET SB VALUE
:REPORT RESULTS
:REPORT REMAINDER
;RESTORE R1
:GO CHECK IF ERROR COUNT EXCEEDED

R1,=(SP)
:STORE R1
MORECE
;TEST IF 2ND BAD LINE
3%
:YES = SKIP
9ERRPOINT
:BUMP ERROR COUNT
PC,RPTOP
:REPORT OPERATION
#FMT5,#BASADD
,RLBAS ,#DRVNAM,<B,RLDRV+1> ;REPORT

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

ASSEMBLY ROUTINES

813524
13530
013534
013536
013540

012746
012746
010600
104014
062706

0135644
013546
013552
01355¢
013560

011546
012746
011446
012746
010346

614 013544

013562

013566
013572
013576
013602
—-013604
013606

615 013612
416 013614

417
418
419
420

013614
013616
013622
013624
013630
013632
013636
013642
013646
013650
013652

013656
013662
013664
013670

013670
013670
621 013672
422
423
424 013672
425 013672
013672
426 013674
427 013676
428 013700
429 013702
430 013704
431 013706
432 013710
013710
4;5 013710

012746

012746
012746
012746
010600
104014
062706
000421

011546
012746
011446
012746
010346
012746
012746
012746
010600
104014
062706

005237
012601
004737

013710
437 013712

000014
010712
010706
006101

000022

000QQ1

NEMTS,=(SP)
#5,-(SP)
SP,RO
CSPNTB
4,SP

MOV
MoV
MOV
]
MOV

(R5) ,=(SP)
#RESE4L,-(SP)
(R&4) ,=(SP)
#RESE3,-(SP)
R3,-(SP)

MOV

005315
011446
000010
o

MoV
MoV
MOV
MOov
Ae <
ADD

BR
PRINTB

3%:

MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MoV
EMT
ADD

010712

010706
006101
011500
000007
000020

002716

6%:

015326

ENDMSG
L10011:
ENDMOD
BGNMOD
BGNHW

]
ENDHW

3-8

MOV
MOV
MOV
EMT
ADD

PRINTB

000006

174400
000160
000240
000001
000000

9-FEB-79 19:14:22 PAGE

011175
000005

104023

SEQ 0063

WFMT14,#MRSLT,#MWORD
,R3,#RESE3, (R4) ,#RESESL, (RS)

#MWORD,
= (SP)

#MRSLT,=(SP)
FFEMT14,-(SP)
#10,-(SP)
SP,RO
CSPNTB
#22,5P

3]
#FMT15,#MWORD ,R3,#RESE3, (R4) ,#RESEL, (RS)

(R5) ,-(SP)
#RESESL,-(SP)
(R&) ,=(SP)
#RESE3,=-(SP)
R3,-(SP)
#MWORD
, =(SP)
#EMT15,-(SP)
#7,-(SP)
SP,RO
CSPNTB
#20,SP

INC
Mov
JSR

MORECE
(SP)+ ,R1
PC,CKERLM

EMT

CSMSG

;REPORT DATA

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

.EVEN
HPTCODE

.WORD

L10012-L$HW/2

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

174400
160
240
1
0

: (SR BASE ADDRESS DEFAULT
sVECTOR DEFAULT
:PRIORITY DEFAULT
:TYPE OF DRIVE
:DRIVE NUMBER DEFAULT

L10C13-L%Sw/2
O

:BIT 0 = USE ALL CYLINDERS

;RL11 CONTROLLER

L10012:
ENDMOD

434

435 013710
436 013710

MACRO v03.01

000006
000000

BGNMOD
BGONSW

MISWIW:

.SPTCODE

LWORD
.WORD

ASSEMBLY ROUTINES

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

3-9

438
439

SEQ 0064

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

440
641
642
643

;BIT
:BIT
;BIT
;BIT

3 = EXECUTE HEAD ALIGNMENT
& = DROP DRIVE IF NO RESPONSE
12 = HEAD SELECT SUPRLIED FLAG
13 = HILIMIT SPECIFIED FLAG
;BIT 14 = LO LIMIT SPECIFIED FLAG

LG4

445
446 013714
447 013716
448 013720
449 013722
450 013724
451 013726
013726
:gg 013726

454 013726
656 013726
013726
013730
013732
013734
013736
013740
013742
013744
013746
013750
013752
013754
013756
013760
013762
013764
013766
:2; 013770
463 013770
464 013770
465 013770

000000
000377
000000

000024
000012

013776

104051

014014
014020
472 014022
014022
473 014024
474 014032

.WORD
.WORD

BGNMOD DSPCODE
DISPATCH
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD
+WORD
.WORD
.WORD
.WORD
WORD
ENDMOD

000020
023064
023334
023536
024772
025600
026204
027056
027410
027474
027774
030316
030750
031266
031500
031754
032276

012700
104041

467 014000
014000,
468 014002
469
470 014010
471 014014

ERLIMW:
DCLIMW:
ENDSW

.WORD
.WORD
.WORD

O
255.
0
20.
10.

:BIT

15 = DO MANUAL INTERVENTION

;ERROR LIMIT
: COMPARE ERROR LIMIT

L10013:
ENDMOD

013770
013774

466 013776

LOLIMW:
HILIMW:
HEADW:

000340

100014

005037

002704

012700
104050

000034

000137

BGNMOD
INITCODE
BGNINIT
SETPR]
#340

103403
042737

103005
013737

002012
014444

MOV
EMT

#340,R0
C$SPRI

EMT

CSMAN]

MANUAL

013712

1$:

003262

16
16
T1
T2
T3
T4
T5
T6
17
T8
T9
T10
T11
T12
T13
T14
T15
T16

;CHECX IF MANUAL INTERVENTION ALLOWED

BCOMPLETE
1%
:YES = SKIP
BCS
1%
BIC
FMITEST!DRSELT!HDALIGN
MISWIW ;CLEAR ALL MANUAL
: INTERVENTION FLAGS
CLR
SSINDX
s CLEAR SUBROUTINE STACK INDEX
READEF
#EF .PWR
:POWER FAILURE

MOV
#EF .PWR,RO
EMT
CSREFG
BNCOMPLETE
4%
BCC
4%
MOV
LSUNIT,PWRFLG
JMP

PWCON

:NO, GO CHECK NEW PASS
;SET POWER FAIL FLAG
;60 SERVICE POWER FAIL

ASSEMBLY ROUTINES

484 014072
485 014074
486 014076
487 014104
488 014112
489 014120
490 014126
491 014130
492 014134
493 014136
496 014136
014136
0146142
495 014144
0146144

496 014146

497 014146
014146
014152
498 014154
014154

499

o oroNn

W Vs S

i cnd ad wd

» 5
~N NN

il
i
-t

SN =O

500 014156
014156
014162
501 014164
014164
502 014166
503 014166
504 014172
505 014174
506 014200
507 014206
508 014214
509 014222
5100 164226
5110
512
0
513
0
5164
0
0
0
0
0
516 0 014256

002776

RSTRT:

1%:

04000C

001002
005037
000432

013714

012700

000037

104050

003050
003254
002712
013712

012700
104050

LAB:

5%:

RESTART:

000036

000035

103403

005737

002776
003252
003050
002012
177777
003254
002776
000002
003254
002730

003262

sCHECK

START

PASS COUNT, AND ERROR COUNT.
MOV
LSUNIT,DRVCNT
;SET

CLR

MOV
MOV
CLR
DEC
BNE
MOv
MOV
MOV
BIT

BNE
CLR
BR

PASNUM

#ERRCNT,RO
#64. R
;?0)0

UP UNIT COUNT

:CLEAR PASS NUMBER

sGET A COUNT
:CLEAR A ERROR COUNTER STORAGE AREA

1%
:LOOP TILL ALL CLEARED
#ERRCNT-2 ,ERRPOINT ;INIT ERROR POINTER
#-1,PSETNM
#-1,HADONE

;SET PARAM SELECT TO INITIAL VALUE
:PRESET HEAD ALIGN DONE FLAG

5%
LOLIMY
SETDON

:YES = SKIP
;ELSE CLEAR LO LIMIT

FLOCYL MISWIW

CTEST

LO LIMIT

SET

sCHECK IF RESTART

READEF
MOV
EMT

#EF .RESTART

READEF
Mov

#EF .CONTINUE
;TEST
#EF .CONTIN,RO
UE

IF CONTINUE

READEF
Mov

#EF .NEW

:NO - SKIP

EMT
CSREFG
PWCON
BCOMPLET E
PWCON
¢
BCS
ON CONTI NUE PICK UP UNIT LAST UNDER TEST

103533

012700
104050

FEF .START

#EF .START,RO

#EF .RESTART,RO
CSREFG
RSTRT
BCOMPLET E
RSTRY
BCS
CONTINUE:

103743

OO WNINMINNN
NN —
NONNNNNNINW

481 014060
482 014064
483 014070

013737
005037
012700

READEF
MOV

SEQ 0065

EMT
CSREFG
BNCOMPLE TE
RESTART ;NO - SKIP
BCC
RESTART
ON START INITIALIZE TO START AT FIRST DRIVE, CLEAR INTERNAL

103034

O00O0O0O00O0O

480 014054

4%:

000040

479 014046

012700
1046050

O=
oo

475 014036
014036
016042
476 014044
014044
677
478

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

NXTPAS:

003050
002776
003254

003050

#EF .NEW,RO
EMT
CSREFG
PASNEW
BCOMPLET 3
PASNEW
BCS

187
BNE
PASNEW: INC

SETDON:

MOV
MOv
MOV

INC
DEC

DRVCNT
SETDON

PASNUM

187

STARTING NEW PASS

sTEST IF ALL UNITS CHECKED
:NO - SKIP
:ELSE BUMP PASS COUNT

#ERRCNT=2 ,ERRPOINT ;INIT ERROR POINTER

LSUNIT,DRVCNT
#-1,PSETNM
PSETNM
DRVCNT

#2 ,ERRPOINI
PSETNM,RO
#RLBAS ,R2
GPHARD RO,R1
CSGPHRD
EMT
RO,R1
Mov
7%
BCOMPLET ;‘
B(S

ADD
MOv
MOV

sCHECK

PWRFLG

;GET ALL DRIVES

:SET PARAM SELECT TO INITIAL
sNEXT SET OF PARAMETERS
:DOWN COUNT DRIVE TOTAL

;UPDATE THE ERROR POINTER
:SET UP TO GET PARAMETERS

:SKIP IF

GOOD PARAM

;RECENT POWER FAILURE

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

ASSEMBLY ROUTINES

7%:

177600
177000

002210
002204
002212
002214
002216
002220
002206

NN
NNNNNNN
WWWWHWWWWN
NNNNNNN

000377
000400
077600
077600
077600
000376
177400

002204
002212
002214
002216
002220
002210
002206

65%:

020000

013712

PWCON:

002204

013716

o WO
~ NN N
H H e £

000340
015270
002732
000003

OO00O0O00O0

[

ooo

014476
014502
014504
014510
014510
014514
014516

014444
014452
014454
014462
014462
014466
014472

000000

013702

002730

104041

MOv
MOV

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

65%

MOV
MOV
MOV
MOV

l177600 CAMSK
#177600,D1RMSK
lI??bOO.MDCVL
#177000,CLRBYT

BIT
BNE
MOV

FHICYL MISWIW
%
HLMTW, HILIMY

SETVEC

MOov
EMT
ADD
SETPRI
MOV
EMT
MOv

SYORE PARAMETERS (SR
VECTOR
BUHP PAST FRIORITY

PWCON

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

MOV
MOV

-ACCOUNT FOR DRIVE

#510. ,NXTHL
511, HLNTY
#512. ,GBND

MOV
MCV
MOV
MOV
MOV
MOV

MOV

1%:

(R1)+

CMP
BEQ

MOV

00010

012700

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

MOV
MOV
Mov

[

e e

000776
000777
001000
177600
177600

O00
—
O W
W=
ONON
WOW
NWN

002200

=y —t

014372
014400
014406
014414
014422
014430
014436

BEQ
DEC
BR
MOV
MOV

151

000001

OOO0O0

BNV WN—=O

VNN NN AW
W
WN NN W W

TM 12 bl X = P p—y

ONNNNNDNN =NV ~N
S NNNNNNNENS
oy
NWWWWWWWKRND
WD WO N
M'NNNNNNNOONNN—-NoN

OCO0OO0O0O0ODOO0OO0O0OO0O o

003262

SEQ 0066

#177400,CLRBYT

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

;SET UP VECTOR

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

#3,-(SP)
CS$SVEC
#10,SP
#0
#0,RO
($SPRI
RLBAS ,R2

;SET PRIORITY
;SET RL BASE ADDRESS POINTER

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

ERROR SETS ON GET STATUS.

003252

000020
003260

014560

000340
015262
003042
000003

013712

TST
BNE

BIT

BEQ

PASNUM,
22%

;TEST IF PASS 0
:NO - SKIP

22%

NO - SKIP

#AUTOSZ MISWIW

TEST IF DOING AUTO SIZE

;CHECK IF UNIBUS ADDRESS IS THERE BEFORE WE CHECK DRIVE READY
CLR

SETVEC

Mov
MoV
MOV
MOV

TRPFLG

: TRAP OCCURANCE

ERRVEC,NTRPHAN,#340

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

;SET TRAP VECTOR

ASSEMBLY ROUTINES

014564
014566
562 014572
563 014576
564 014602

565 014604
566 014610
567 014614
568 014620
569 014626
570 014630
571 014636
572 014642
573 014646
574 014652
014652
014656
575 014660
576 014666
577 014670
014670
014674
578 014676
014676
014702
014706
014712
014714
014716
579 014722
014722
014724
014730
014734
014740
014744
014750
01475
014756
014760
580 014764
014764
014770
014774
014776
015000
581 015004
015004
015010
582 015012
015012
583 015014
015014
015020
584 015022
586
587 015022

104037
062706
005762
005737
001032

013705
0527C5
010562
032762
001072
012762
052705
042705
010562

012700
104026
032762
001452

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

EMT

000010
000000
003260
002734
000200
000000
000001
000003
000004
000200
000000

000000

#10,SP
RLCS(R2)
sACCESS BUS
TRPFLG
;s TRAP OCCUR??
5%
sYES, DON'T INVESTIGATE FURTHER
RLDRV,RS
sGET DRIVE NUMBER
#CRDYMSK,RS
sINSERT CONT READY
RS,RLCS(R2)
sLOAD IN DRIVE NUMBER
#DRDYMSK,RLCS(R2) ;CHECK IF DRIVE IS READY

MOV
BIS
BIC
MOV

#GETSTAT,RLDA(R2) ;ELSE INSERT GET STATUS
#6 RS
sLOAD RS WITH GET STATUS FUNCTION
#CRDYMSK,RS
sCLEAR CONTROLLER READY
RS,RLCS(R2)
sLOAD CS REG

WAITMS

013700
104036

003042

012746
012746
012746
010600
104017
062706

005750
012001
000002

Mov
EMT
. BIT
BEQ
CLRVEC
MOV
EMT
PRINTF
MOV
MOV
MOV

000006

EMT
ADD

005046
153716
012746
013746
012746
012746
012746
010600
104017
062706

000004
00200C

5%:

MOV

108:

ER%NTF
L

002735
005743
002730
005732
011175
000095

011161
000001

013700
104053

003254

003042

22%:

JWAIT 4 MS

#4 RO
CSWTM
#OPIERR,RLCS(R2);TEST IF OPI
20%
;NO - SKIP
ERRVEC
'
ERRVEC,RO
C$CVEC
W#FMT24,#DRVNAV
#DRVNAV,=-(SP)
#EMT24,-(SP)
¥2,-(SP)
CSPNTF
#6,SP

l:g;?.‘BASADD,RLBAS,'DRVNAH,(B.RLDRV'1>
-

EMT
ADD

CEPNTF
#6,SP

MOV
EMT

PSETNM,RO
C$D0DU

EMT
CLRVEC
MOV
EMT
MANUAL

SET

SP.RO

CSPNTF
#14,SP
#FMT3
KFMT3,-(SP)
#1,-(SP)

DODU

20%:

¥4

EMT
ADD
PRINTF
MOV
MOV

DOCLN

104044

;YES - GO DO TEST

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

MOV

000004

20%

BISB
MOV
MOV
MOV
MOV
Mov
MOV

000014

012746
012746
010600
104017
062706

013700
104036

000000

CSSVEC

ADD
181
181
BNE
MOV
BIS
MOV
BIT

BNE

0Q9004

SEQ 0067

SP.RO

SP,RO

PSETNM

;DROP DRIVE

CSDCLN
ERRVEC
ERRVEC,RO
CSCVEC
sMANUAL

INTERVENTION ALLOWED

ASSEMBLY ROUTINES

LA
ARN LVdLWe LVe LVbLVe LVdLVdIV ]
—d e

NNN—‘—‘O°°8
T
e S
W

LA deo ol ¥ 1o

1871

106026

4%:

000000

(VAL AW AN
Vv

(U
LV LV LW
LV AW A ]
P S
G

=t e

OoONNOO

wabbuw W W ~

b
—
—

9%:

005301
001367
012746
012746

012746

010600
104017

062706
000673

18T

PASNUM

4%
8%

:NO

:YES, CHECK PASS NUMBER

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

000006

sNEEDED???

MOV
BIS
MOV
MOV
BIT
BNE

RLDRV,RS
;DRIVE SELECT
#CRDYMSK,RS
:SET CRDY
RS,RLCS(R2)
:SELECT DRIVE
#60. .R1
sSIXTY SECOND TIMER
#DRDYMSK,RLCS(R2)
:DRIVE UP YET
8%
;YES START TEST

WAITMS

#10.

;WAIT A SECOND

EMT
DEC

CSWTM
R1

;SIXTY GONE BY:

#10.,R0

BNE

MOV
MOV
MOV

#NOPWR ,=(SP)
#EMT24,-(5P)
#2,-(SP)

PRINTF

005767
012001
000002

PWRFLG

BEQ

MOV

W#FMT24,#NOPWR

MOV
EMT
ADD

SP,RO
CEPNTF
#6,SP

EMT

CSINIT

:NO, SKIP

:NO

108

8%:

L10014:

—_—
—_—

AN VWAL

ENDINIT

e e

s
-

BCC
BNE
BR

—

pu—y

s
—

000012

o©Oo

012700

OO0V O0CO0O0OCOO0O0OO0

002734
000200
000000
000074
000001

100

CSMANI

SEQ 0068

sCHECK 1F POWER FAILURE WAIT IS NEEDED

013705
052705
010562
012701
032762
001020

—

624
625

003252

003262

eleleleloeleloleleleleBlelegelelole]

622
623

103004

005737
001001
000437

EMT

BNCOMPLETE

005737
001434

608
609
610

104051

OOO0OO0OO

015022
588 015024
015024
589
590 015026
591 015032
592 015034
593
595
596
15036
597
598 15042
599
15044
600
15050
601
15054
602
603 15060
15064
604
15072
605
606
607
15074
5074

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

104011

ENDMOD
BGNMOD
BGNCLN

0 1 2746
0 1 2746
0 1 3746
0 1 2746
1 0 4037
062706

000340
015262
003042
000003

012700

000007

032762
001407

000200

104041

CLNCODE

SETVEC
MOV
MOV
MOV
MOV

gEmM1
ADD

000010

000000

2%:

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

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

SETPR] #7
;SET PRORITY 10 7
MOV
#7,.R0
EMT
($SPRI
BIT
#CRDYMSK,RLCS(R2)
:TEST IF CONTROLLER READY
BEQ
3%
sNO LOOP UNTIL READY

ASSEMBLY ROUTINES

626 015202
627 015210
628 015216
629 015220
015220
0152264
630 015226
015226
015232
631 01523¢
632 015240
633 015242
6346 015246
015246
015252
635 015254
015254
015254
636
637 015256
638 015256
639 015260
015260
015260
640
641 015262
642 015262
643
644 015262
645 015266

646

647 015270
648
649 015270
015270
650 015272
651

652
653
654
655
656

015276

015302
015306
015312
015320
015324
015324
015324

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

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

053762
032762
001003

00273&
000001

012700
104026

000003

013700
104036
005737
001402
005337

002732

013700
104036

000000
000000

BIS
BIT

3%:
5%:

003262

7%:

003042
&

ENDCLN

L10015:
BGNDU

000240

ENDDU

L10016:

104055

ENDMOD
BGNMOD

003260

TRPHAN:
BGNSRV

104021
012237

012237

012237
011237
012737
013702

002746
002750
002752
002754
177777

002730

ENDSRV

L10017:
:

165516

CKERLM:

RLDRV,RLCS(R2)
;SET DRIVE NUMBER
#ORDYMSK,RLCS(R2)
sTEST 1F DRIVE BUSY

5%
#3
#3,R0
CSWTM
RLVEC

CS$CVEC

PWRFLG
7$
PWRFLG

CLRVEC

ERRVEC

EMT

CSCVEC

MOV

EMT

010633
013722
012006

;RELEASE VEC

;PWR FAIL SET
:NO

ERRVEC,RO

CSCLEAN

NCP

EMT

C$DU

GLBSUB

INC

RTI

TRPFLG

INTHLR

INTERRUPT HANDLER. ABORTS WAIT TIMER AND STORES ALL RL!1 REGS

ABORTWAIT

EMT
MOV

C$ABRT
(R2)+,1.CS

;STORE RL REGISTERS

MOV

#-1,DONE

:SET DONE FLAG

MOV

(R2)+,1.BA
(R2)+,T.DA
(R2),T.MpP

RLBAS,R?

;RESTORE R2

RTI

ERROR LIMIT CHECKING ROUTINE

DROPS DRIVE IF ERROR LIMIT EXCEEDED
CMP

BLT

INLOOP

103451

:NO = SKIP
;WALT 300 mMS

RLVEC,RO

oERRPOINT ERLIMW
1%

CSINLP
EMT
BCOMPLETE
1%
BCS

04020

012746
013746
012746

013722

TST
BEQ
DEC

MOV
MOV
MOV

002710

000002

027737
002453

MOV
EMT

003262

104012

005237
000002

BNE
WAITMS
MOV
EM
CLRVEC

SEQ 0069

PRINTF

MOV
MOV
MOV

JTEST

;NO = SKIP

sCHECK

ERROR LIMIT EXCEEDED

IN ERROR LOOP

JYES = SKIP

WFMT25,ERLIMW,#MEXERS

FMEXERS,~(SP)
ERLIMW,=(SP)
FEMT25,-(SP)

WLV VTV IV W

012746
010600

000003

062706

000010

104017

¥
Lol
ol ol

i
i
e

10
14

679

680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697

CSPNTF
#10,SP

B1SB
MOV
MOv
MOV
MOV
MOV

000005

MOv
EMT

000014
011161
000001

013700~ 003254
104053

1623
1623
1623
1623
0020

NNNNN

1046044
000207

011646
005066
032762
001420

000000
000002
000004
000006

002746
002750
002752
002754

004737
005737
001433
012766
032737
001403
012766
000207

015466
002710

012700
104026
032762
001006
004737
012766
000762
005737

000003

000000

000002
002746

006126

000002

000200

000000

015466
006201

000002

002710

w4 ,SP

MOV
EMT

PSETNM,RO
C$DODU

RTS

WAITIN:

006107
002000

#5,-(SP)

SP,RO
CSPNTF

PSETNM

CSDCLN

:DROP DRIVE
:GO TO CLEAN UP

:
READ AND STORE ALL RL11 REGISTERS
READRL: MOV
RLCSR(R2),T7.CS
;GET (S REG
MOV
RLBA(R2),T.BA
;GET BUS ADDRESS REG
MOV
RLDA(R2),T.DA
;GET DISK ADDRESS
MOV
RLMP(R2),T.MP
;GET MULTI=-PURPOSE REG
3

000002
000200

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

ADD

DOCLN
EMT
RTS

1%:

ltg;?.IBASADD.RLBAS.JDRVNAH.<B.RLDRVO1>
-

ADD
PRINTF
MOV
MOV

DODU

SEQ 0070

SP,RO

SP,RO
CSPNTF
#14,SP
#FMT3
NEMT3,-(SP)
#1,-(SP)

MOV
EMT

000004

=i=d ===

669
670
671
672
673
674
675
676
677
678

EMT
ADD

ERéNIF

002735
005743
002730
005732
011175

—

668

#3,-(SP)

666

667

MOv

D o
)

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

665

ALY ALV AW LW LW LW LV

V] w

(=lelelolelelelelelelelel)]

ASSEMBLY ROUTINES

1%:

2%:
4%:

3%:

sRETURN

WAIT FOR CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUTINE
MOV

CLR
BIT
BEQ
JSR
187
BEQ
MOV
BIT
BEQ
MOV
" R1S
WAITMS
Mov
EMT
BIT
BNE
JSR
ggv

181

(SP) ,=(SP)

;MAKE

ROOM FOR ERROR POINTER

PC,READRL
DONE
5%

sREAD ALL RL REGS
sTEST IF INTERRUPT OCCURRED
sNO - GO SET NO INTERRUPT ERR FLAG

2(SP)
sCLEAR FOR POINTER
#CRDYMSK,RLCSR(R2)
sTEST IF CONTROLLER READY
4%
sNO = SKIP T0 WAIT

#MTOSLOW,2(SP)
#OPIERR,T.CS
2%
#MDRRES ,2(SP)
PC
#3

;ELSE SET TO
;TEST IF OP]
:NO - SKIP
sSET MESSAGE
:RETURN
;WAIT 300 MS

SLOW ERROR POINTER
SET

FOR NO DRIVE RESPONSE
FOR TIMEOQUT

#3,R0
CSWTM
#CRDYMSK,RLCS(R2)
sTEST IF READY NOW SET
3%
;YES - SKIP
PC,READRL
;READ RL REGS
SQCONHNG.Z(SP)
;gEIPHESSAGE FOR CONTROLLER HUNG
DONE

JELSE CHECK IF

INTERRUPT OCCURRED

ASSEMBLY ROUTINES

698 015634
699 015636

015642
015650

001345
004737
012766
000751

015652
015656
015662
015666

005037
105037
005037
000207

002706
003257
002716

TSTINT:

670

013746
012737
000412
013746
012737
000404
013746
005037
010346

003030
000013

003030

GSTATR: MOV

003030
000003

003030

o
o~
NS~

700
701
702
703
704
705
706
707

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

015466
006146

000002

003030
003030

5%:

GSTAT:

000004
000004
002704

002306
002306

000002
000010

002720
003030

040000

000000

000062
015720

739 016052
742 016060

747
748
749
750

001031

012700
104026

005301
001344
012703

000001

002746

000020

002754

144000

002754

040000

002706

040000

002746

000001

010511

;ELSE

:READ RL REGS
SET NO

;GO TO RETURN

INTERRUPT

FLAG

OPERATION AND TEST
CLR
OPFLAG
CLRB
NOERCT
CLR
MORECE
RTS
PC

INITIALIZE ROUTINE
:CLEAR OPERATION FLAGS
JRESET INHMIBIT ERROR COUNTING
;RESET MORE COMPARE ERRORS
'

GET

STATUS WITH RESET ROUTINE

STATUS AND GET

MOV

TEMP4 ,-(SP)
;STORE
#GETSTAT'DRSET,TEMPS

MOV

TEMPL , - (SP)
FGETSTAT,TEMP4

;STORE TEMPS
;SET FOR NO RESET

TEMPL , - (SP)
TEMPS

;STORE TEMP4
sSET FOR SAVE

49%
#3
#3,R0
CSWTM

:NO - SKIP
;WAIT FOR 300 MS FOR DRIVE

PC,GSTAT

MOV
CLR

MOV
BIT

BEQ
BIT
BEQ
WAITMS
MOV
EMT
MOV
ign

BIT

BNE
B!T
BNE
BIT

51%:

#MNOINT,2(SP)

MOV

MOV
181
MOV
SUB
MOV
MOV
MOV

49%:
50%:

JYES = SKIP TO SET 10 SLOwW

PC,READRL

GSTATG: MCV

002704

JSR

BR
GSTATC: MOV

000003
732 016020

BNE

SEQ 0071

GSTATG
GSTATG

TEMP4
:SET FOR RESET

L. AND T. REGS
R3,-(SP)
;STORE R3
SSINDX,R3
;GET SUBROUTINE INDEX
(R3)+
:BUMP IT FOR NEXT ENTRY
4(SP),SUBSTK\R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
;STORE 1T BACK
RO,-(SP)
:STORE RO
R1,-(SP)
:STORE R1
#2 ,ERRSWI
;SET FOR NO ERROR RETURN
#DRSET,TEMP4
sTEST IF DRIVE RESET
11%
;NO - SKIP
#DRVERR ,RLCS(R2) ;TEST IF DRIVE ERROR SET

#50. ,R1

:SET WAIT FOR S SEC
;GET

DRIVE

#DRDYMSK,T.CS

;TEST

STATUS

DRIVE READY

5%
sYES = GO DO CLEAR
#HOSTAT,T.MP
sELSE TEST IF HEADS Out
51%
;YES = BYPASS RELOAD WAIT FLAG SETTING
#SPDSTAT!HCESTAT!WDESTAT,T.MP ;TEST IF DRIVE HAS ERROR
: THAT

CAUSED HtADS

;UNLOAD

BEQ
BIS
BR
BIT
BNE

5%
W#RELDWT ,OPFLAG
5%
#DRVERR,T.CS

:NO - SKIP
;ELSE SET WAIT FLAG
;SKIP 10O CLEAR
;TEST IF DRIVE ERROR NOW
:YES = SKIP 10 CLEAR

EMT
DEC
BNE

(SWTM
R1
50%

:DEC WAIT COUNTER
;1F NOT DONE, LOOP

WAITMS
MOV

MOV

TO SETTLE

#1
#1,R0

#MUNDEF ,R3

sWAIT

FOR DRIVE

;MESSAGE

TO GET

ERROR,

FOR UNDEF INED STATE

RDY,

OR WO

ASSEMBLY ROUTINES

MACRO v03.01

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

3-17

SEQ 0072
751 016120

[=l=l~lolelelelelel]

752 016126
753 016130
16134
756
755
1 6136
756
1
757
1
758
1
759
1
1
760
1
761
762
1
763
764
765
766

767

768
769
770

n
772
773
774
775
776
777
778
779
780
781

782

783
784
785
786

787

788

789
790
791

792
793
794
795

104443
023421
012072
000554

005737
001033
012701
012703
014346
005301
001375
012737
000403
013737

ERRHRD
TRAP

093030

11%:

000004
002746

8%:

000003

002742

003030

002742

005037
013737
042737
052737
013762
013762

002710
002734
002000
000104
002742
002736

002736
002736
002736
000004
000000

012700

005737
001476
013737
042737
032737
001474
032737

104027

001424
012701
032762
001016

.WORD
.WORD
BR
1S1
BNE

MOV
MOV
MOV

DEC
BNE

MOV

5%:
6%:

MOV

CLR

MOV

BIC
BIS

SEXLT
sTEST

#4 R
#L.MP+2,R3

;SET SAVE COUNT
sSET ADDRESS OF FIRST

FGETSTAT,L.DA
6%
TEMP4,L.DA

SET FOR GET STATUS
:SKIP
s INSERT PRESET FOR STATUS

-(R3) ,=(SP)
R1
8%

;NO SKIP

SAVE

REGISTERS

DONE
RLDRV,L.CS
#B1710,L.CS

;CLEAR INTERRUPT FLAG
sSET UP T0 GET STATUS
sCLEAR FCR DRIVE & - 7 SPEC'D

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

:LOAD RL REGS
;LOAD (S REG

FGTSTAT,L.CS

LA
#1,RO

;WAIT

002710

18T

DONE

;CHECK

:NO = SKIP TO EXIT

EMT

002754
177770
000010

002762
002762
002742

040000

002706

001130
000001

000000

4%:

13%:

BEQ

MOv

BIC
BIT
BEQ
BIT
BEQ

MOV

BIT
BNE

WAITMS
MOV

005301
001367
004737
016464
012703

015720

EMT
DEC
BNE
JSR

010556

MOV

ERRHRD

104443

TRAP

023423
012072
000442

.WORD
.WORD

12%:

000012

WAITUS

MOV

EMT
JSR

015720
100000

002746

001000

002754

BIT

BEQ
BIT

SAVE

;PUT REG ON STACK
;sDEC COUNT
;LOOP UNTIL ALL SAVED

000001

012700
104027
004737
016464
032737
001432
032737

TEMP4

MCvV
MOV
WAITUS
MOV

012700
104026

10001., ,ERR1
TSERCODE
10001
ERR1
14%

(SWTu

100 US FOR

INTERRUPT

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

:SELDHI.OPFLAG

;TEST

sNC =

RELOAD WAIT

SKIP

FLAG SET

#600. ,R1
:SET WAIT COUNT FOR 60 SECONDS
#DRDYMSK,RLCS(R2) ;TEST IF DRIVE NOW READY
12%
;YES - SKIP
(A
sCALL WAIT
#1,RO
CSWTM
R1
sDEC COUNT

13%

PC,GSTAT

#MRLFAL,R3
10003., ,ERR]
TSERCODE
10003

ERRI

;LOOP IF NOT O
;GET

DRIVE

STATUS

;ERROR RETURN

sSET RESULT MESSAGE

14%
#10.
#10..,R0

;60 TO EXIT
;WAIT FOR 1MS

PC,GSTAT

sGET

#ANYERR,T1.(CS

sTEST IF ANY ERROR

#VCSTAT, T . MP

JCHECK

(swiv

DRIVE

iNO = SKIP
|F

POINTER

STATUS

VOLUME

(HECK

RESE!

ASSEMBLY ROUTINES
796 016406
797 016410
798 016414
799 016416
800 016424
801 016426
016426

016430
016432
802 016434
803 016436
804 016442
805 016444
806 016450
807 016452
016452
016456
016456
808 016460

001403
012703
000416
032737
001404

104443
023424
012374
000411
012703
000493
004737
012603
104443
023422
012072

005037
005737
001007
012703
012701
012623
005301
001375
162737
012601
012600

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

006235
040000

9%:

015520

1%:
2%:

002720
003030

012603
012637
005737
001403
063716

825 016544

017616

0001700

012737
000402

177777

R25 016550

827

000207

14%:
3%:

002736
000004

000002

20%:

002704

830 016552
831 016560

83z 016562
833 016566
834« 016570
835 016574
836 016576
837 016604
838 016612
839 016616
840 016620
841 016622

842 016624
843 016632
844

845 016636
846 016642

005037
010346
013703
005723
016663
162763
010337
010046
010146
010546

002720

003022

003022
002704

000002
000004
002704

012737
005037

000002
003000

004737

021114

017264

22%:

003030
002720

828

829

7%:

006256

809 016464
810 016470
811 016472
812 016476
813 016502
814 016504
815 016506
816 016510
817 016516
818 016520
819 016522
820 016524
821 016530
822 016534
823 016536
824 016542

002746

002306
002306

002720

BEQ
MOV
BR
BIT
BEQ
ERRHRD
TRAP

.WORD
.WORD
BR
MOV
BR
JSR
MOV
ERRHRD
TRAP
.WORD
.WORD
CLR

187
BNE
MOV
MOV
MoV
DEC
BNE
SUB
MOV
MOV
MoV
MOV
1871
BEQ
ADD
RTS

7%
#VCNRST ,R3
2%
#DRVERR,T.CS
9%
10004., ,ERRG
TSERCODE

10004
ERR6
14%
FUNXERR,R3
2%

PC,WAITIN
(SP)+,R3
10002.,.ERRI1
TSERCODE
10002
ERR1

ERRSWI
TEMP4
22%
#L.CS,R3
#4,R1
(SP)+,(R3)+
R1
20%
#2,SSINDX
(SP)+,R1
(SP)+,RO

;SET ERROR RETURN ADDRESS

SEEK ROUTINE

#-1,TEMP]
XSEEK1

MOV
MOV

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

JSR

65%

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

a(SP), (SP)

XSEEKT: MOV
BR

Mov
CLR

JEXIT
;SET REASON POINTER
JEXIT
;WAIT FOR INTERRUPT
;STORE REASON POINTER FOR RETURN

;RESTORE R3
;RESTORE TEMP4
;TEST IF ERROR RETURN
;YES - SKIP
;ADD IN ERROR RETURN

MoV

XSEEK: (LR
XSEEK1: MOV
MoV
18T
MOV
SUB
MOV
MOV

;YES SKIP
;SET REASON POINTER
JEXIT
;CHECK IF DRIVE ERROR
:NO - SKIP

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

99%:

RTS

SEQ 0073

;SET SPECIAL TIMING SEEK FLAG

;CLEAR SPECIAL SEEK FOR TIMING FLAG
TEMP1
;:STORE R3
R3,-(SP)
;:GET SUBROUTINE INDEX
SSINDX,R3
;BUMP IT FOR NEXT ENTRY
(R3)+
2(SP),SUBSTK(R3) ;INSERT THIS CALL
;ADJUST 1T TO CALLING LOCATION
#4,SUBSTK(R3)
;STORE 1T BACK
R3,SSINDX
RO,=(SP)
#2 ,ERRSWI
DIFAUG
PC,GETPOS

:STORE REG
;SET FOR NO ERROR RETURN

;CLEAR DIFFERENCE AUGMENT (FOR SEEKING

_PAST GUARD BAND)

;GET PRESENT POSITION

ASSEMBLY ROUTINES

R83 017066

orooNONOFOONNOO
SO N

—>
—t

D —>

NNNNNNNNNNNNNNNSNYN

NOOWVWVME
ST WWNINN = e e

884 017072
885 017076

YN N N D 4N N NN N N
-—NNNSNNNNNNY

(=]l delelele
P Helele]
Ot P ON =t d O ON =
O NINI N = N NN NN NN
S NNNSNNNNSNN

847 016644
848 016652
849 016660
850 016662
851 016670
852 016676
853 016704
854 016712
855 016714
856 016722
857 016730
858 016736
859 016740
860 016744
861 016746
862 016752
863 016760
864 016764
865 016770
866 016774
867 016776
868 017004
869 017006
870 017010
871 017014
872 017020
873 017024
876 017026
875 017034
876 017036
877
878 017044
879 017052
880 017054
881 017062
882 017062

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

005737

003006
003004

003002
002204

002204
003004
002204
000001

003004
003000
003004
002200

000001

002004
003012
003010

000001
000001

003004
003004
003004
003004
003006
003004
000001

MOv
CMP

BLE
SuB

MOv

Mov
(MP
BEQ
SUB

MOv
MOV

3%:
003000

181
BPL
NEG

MOV

6%:
003012

003012
003010
003000

13%:
14%:

CLR

MOV

SUB
BPL
MCv
NEG
BR
CLR
MOV
18T
BEQ
CMP
BNE

3-19

CURCYL,OLDCYL
?EHCVL,HLHIH
HLMTW, NEWCYL
NEWCYL,DIFAUG
HLMTW NEWCYL
#1,7.DRIVE

18%

NEWCYL

NEWCYL
NEWCYL,DIFAUG
NEWCYL

CURCYL RS

NEWCYL,RS

13%

#1,DESSGN

RS
14%
DESSGN
R5,DESDIF
DIFAUG
18%

012737

000001

003012

MOv

17%
#1,DESSGN

022737
001003
063737

000001

002200

003000

003010

CMP
BNE
ADD

#1,T.DRIVE
18%
DIFAUG,DESDIF

MOv
MOV

#L.CS,RS
#SEEK, (RS)
RLDRvV, (RS)
#BIT10,(RS)+
(RS)+
DESDIF, (RS)
#7,R0
(RS)
RO

002736
000196
002734
002000

003010
000007

BIS
BIC
CLR

21%:

003012

000004
003014

23%:

000020
000001

25%:

017610

002710
003022

MOv
MOov
ASL

DEC
BNE
1571
BEQ
BIS
187
BEQ
B1S
B1S
JSR

65%
(LR

181
BNF

:NO - SKIP

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

M1 NEWCYL
#1,DESSGN
#1,DESDIF

002204

012705
012715
053715
042725
005025
013715
012700
006315

;MOVE CURRENT TO OLD CYLINDER
;TEST IF NEW IS GREATER THAN 255

003004

17%:
18%:

SEQ 0074

NEWCYL ,HLMTW

21%

DESSGN

23%

#DIRBIT,(RS)
DESHD

25%

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

DONE

TEMPI
65%

;TEST

NEWCYL HAS NEGATIVE

:NO - SKIP
;ELSE MAKE IT POSITIVE
;AND STORE IT AS AUGMENT

VALUE

;AND SET NEWCYL TO 0
:COMPUTE DIFFERENCE AND NEW CYLINDER
:SUB NEWCYL FROM CURCYL
:1F DIFF IS POSITIVE = SKIP(REV SEEK)
;ELSE SET SIGN FOR FORWARD
:2:?; DIFFERENCE POSITIVE

:SET SIGN FOR REVERSE
:STORE DIFFERENCE
;1S THERE A DIFFERENCE AUGMENT
:NO - SKIP
;CHECK IF NEW CYL 1S 255.
:NO - SKIP
;ELSE FORCE SIGN FOR FORWARD

: CINNER GUARD BAND)

:GET L REG ADDRESS
:SET FOR SEEK
: INSERT DRIVE NUMBER
;CLEAR IF DRIVE 4 - 7 SPEC'D
:CLEAR BUS ADDRESS
:LOAD DIFFERENCE
;SET TO SHIFT DIFFERENCE
;LOOP UNTIL ALIGNED
;TEST SIGN

;SKIP IF 0
sELSE INSERT SIGN-

;TEST

IF HEAD 0

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

- ;CLEAR INTERRUPT FLAG -~
;CHECK IF SPECIAL SEEK FLAG SET
;YES = SKIP, DO NOT START SEEK

ASSEMBLY ROUTINES

904
905
906
907

017172
017176
017202
017206
017206
017212
908 017214
909 017220
910 017222
911 017226
912 017230
017230
017232
017234
913 017236
914 017242
915 017244
916 017250
917 017252
017252
017254
017256
918 017260
919 017264
920 017272
921 017274
922 017276
923 017300
924 017302
925 017306
926 017310
927 017314
928 017316
ggg 017322

104443
023426
012374
005037
162737
012605
012601
012600
012603
005737
001403
063716
000207
017616
000207

932
933
934
935
936

010346
013703
005723
016663
162763

017324
017326
017332
017334
017342

937 017350
938 017354
939 017356
940 017360
941 017366
942 017372
943 017374
944 017400
945 017404

014562
014562
014562

000004
000002
0000600

012700
104027

000012

005737
001011
004737
012603

104443
023425
012072
005037
000410
005737
100005

946 017410
947 017414

010337
010046
010446
012737
004737
017552
012704
012714
053714
042724
005024

949 017422
950 017426
951 017430
952 017432
953 017434

012703
006314
005303
001375
005737

948 017416

MACRO v03.01

013714

9-FEB-79 19:14:22 PAGE

30%:

002710
015520

002720
002746

002720
000002

32%:

002704

65%:

002720

002720
000000

99%:

002704
000002
000004

002306
0uU2306

000002
017610

002720

002704

SIMSEK: MOV
MoV
ST
MoV
SUB

002736
000106
002734
002000
003010

000007 -

003012

MOV
MOV
MOV
WAITUS
MoV
EM]
1ST
BNE
JSR
MOV
ERRHRD
TRAP
.WORD
.WORD
CLR
BR
181
BPL
ERRHRD
TRAP
.WORD
.WORD
CLRSuB
MOV
Mov
MOV
MoV
TST
BEQ
ADD
RTS
MoV
RTS

=(R5) ,RLDA(R2)
;LOAD RL REGISTERS
=(R5) ,RLBA(R2)
=(R5) ,RLCS(R2)
#10.
#10.,R0
.
CSwTU
DONE
;TEST IF INTERRUPT DONE
32%
;YES - SKIP
PC,WAITIN
;GO WAIT FOR INTERRUP1
(SP)+,R3
;GET RESULT MESSAGE POINTER
10005., ,ERR1
TSERCODE
10005
ERR1
ERRSW]
;CLEAR FOR ERROR ERROR RETURN
65%
T.CS
;TEST IF ANY ERROR
65%
:NO - SKIP
10006., ,ERR6
TSERCODE
10006
ERR6
ERRSWI
;CLEAR FOR ERROR ERROR RETURN
#2,SSINDX
;REMOVE ENTRY FROM SUBROUT STACK
(SP)+ RS
;RESTORE REGISTER
(SP)+,R1
(SP)+,RO
(SP)+ ,R3
;RESTORE R3
ERRSWI
;TEST IF ERROR RETURN
99%
;YES = SKIP
ERRSWI, (SP)
:ADD IN ERROR RETURN
PC
a(SP), (SP)
:SET ERROR RETURN ADDRESS
PC
R3,=(SP)
:STORE REGISTERS
SSINDX,R3
:GET SUBROUTINE INDEX
(R3)+
:BUMP IT FOR NEXT ENTRY
2(SP),SUBSTX(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION

MOV
MOV
Mov
Mov
JSR
65%
MOV
MOV
B1S
BIC
CLR

R3,SSINDX
RO,=(SP)
R4 ,=(SP)
#2 ERRSWI
PC,RDYCHK

:STORE IT BACK

#L.CS,RG
#SEEK, (R4)
RLORV, (R&)
#BIT10,(R4) ¢+
(R4)+

;GET POINTER TO L REGS
:SET FOR SEEK
; INSERT DRIVE NUMBER

MoV
ASL
DEC
BNE
181

#7,R3
(R&)
R3
3%
DESSGN

:SET COUNT FOR SHIFT TO ALIGN
;ALIGN DIFFERENCE IN DA

MOV

3%:

3-20

DESDIF, (R&4)

:SET FOR NO ERROR RETURN
:CHECK IF DRIVE READY

:CLEAR FOR DRIVE 4 = 7 SPEC'D
:CLEAR BUS ADDRESS
:LOAD DIFFERENCE

;TEST IF SIGN SET

SEQ 0075

ASSEMBLY ROUTINES

956 017440
955 017442
956 017446
957 017452
958 017454
959 017460
960 017464
961 017470

NNNNNNNN
VIV

OOO0O0O0O0O0O0Oo00O

962 017474
963 017500
964 017504
965 017510
966 017514
16

20
22
22
26

001402
052714
005737
001402
052714
052724
005037
012701
014462
014462
014462
005737
001016
005301
001404

17542
017544
974 017546

104443
023433
012072
005037

—

536

012700
104027
000767
004737
012603

532

975 017552
976 017552
977 017560
978 017562
979 017564
980 017566
981 017572
982 017574
983 017600
984 017602
985 017606

162737
012604
012600
012603
005737
001403
063716
000207
017616
000207

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

000004
003014

5%:

000020
000001
002710
000012
000004
000002
000000
002710

7%:

108:

DEC

BEQ

WAITUS

000001
015520

002720
000002

002704

65%:

002720
000000

99%:

13%

" ,RO
(SwTU
10%
PC,WAITIN

ERRHRD

10011, ,ERR1

MOV

(SP)+,R3

:NO - SKIP
; INSERT SIGN

;TEST IF HEAD 0

:YES - SKIP
: INSERT HEAD BIT
: INSERT MARKER BIT
sCLEAR INTERRUPT FLAG
;SET WAIT COUNT FOR 800uS
sLOAD RL REGISTERS
;CKECK IF INTERRUPTED
sYES = SKIP
sDEC WAIT COUNT
s1F 0 - SKIP

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

TSERCODE

.WORD
.WORD
CLR

10011
ERRI

ERRSWI

;CLEAR FOR ERROR ERROR RETURN

SUB

#2,SSINDX

MOV
MOV

1ST
BEQ
s?g

(SP)+ R0
(SP)+,R3
ERRSWI
99%
EERSUI.(SP)

;REMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGS
;TEST IF ERROR RETURN
:YES = SKIP
:ADD IN ERROR RETURN

MOv

a(SP), (SP)

;SET ERROR RETURN ADDRESS

MOV

RTS

(SP)+ R4

002704
000002
0000064
002704

002306
002306

— e

e (R et O

OO0 O0O0O0—=0000

elelelelelelalelelelelelelelelele]

14%:

002720

g
3334

)
— p—————
S
T
B

138:

5%
#DIRBIT,(R4)
DESHD
7%
#FHDSEL
, (R4)
#MBSETO, (R4)+
DONE
#10.,R1
=(R4) ,RLDA(R2)
=(R&4) ,RLBA(R2)
=(R4) ,RLCS(R2)
DONE
65%

MOV
EMT
BR
JSR

TRAP

1063

elelelelelelelelelele
-]
OO N NNNNNNNNNO
OCOV®YO
VNS WN
OV~ IONW

BEQ
BIS
187
BEQ
BIS
BIS
CLR
MOV
MoV
MOv
Mov
18T
BNE

SEQ 0076

000002

011610

002720

015720
000001
012700

000001

DRIVE READY TEST ROUTINE. CHECKS DEIVE 1S READY. IF NOT, WAIT
500MS FOR _READY TO SET.
RDYCHK: MOV
R3,-(SP)
:STORE REGS
MOV
SSINDX,R3
:GET SUBROUTINE INDEX
187
(R3)+
;BUMP IT FOR NEXT ENTRY
MOV
2(SP),SUBSTK(R3) ;INSERT THIS CALL
SUB
#4,SUBSTK (R3)
sADJUST IT TO CALLING LOCATION
MOV
R3.SSINDX
:STORE IT BACK
RO,=(SP)
MOV
MOV
R1,=(SP)
R4.=(SP)

MOV

#5000. ,R1

MOV
1$:

002746

MOV

ii"

BIT
BNE
WAITUS
MOV

#2 ERRSWI
PC,GSTAT

#DRDYMSK,T.CS
5%
#1
#1,R0

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

;TEST IF DRIVE READY

JYES = EXIT

ASSEMBLY ROUTINES

1081
1082
1083
1084
1085

017702

017704
017706
017710
017714
017720

017720
017722
0177264
1086 017726
1087 017732
1088 017736
1089 017740
1090 017746
1091 017750
017750
017756

1092
1093
1094
1095
1096

017756
017760
017762
017770
017772

017772
017774
017776

1097 020000
1098 020004
1099 020010
1100 020016
1101 020020
1102 020022
1103 020024
1104 020026
1105 020032
1106 020034
1107 020040
1108 020042

}}?8 020046
nmn
1112

1113
1114
1115
1116

020050
020054
020062
020064

}}}g 020072

1119
1120

1121
1122
1123
1124
1125
1126
1127
1128

020074
020102
020104
020110
020112
020120
020124
020126

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

104027

005301
001364
012703
012704

104443
023432
012324
012701
004737
020004
032737
001005

012700
104026

005301
001364
032737
001405

104443
023433
012374

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

000207

(005037
032737
0031403
013737

000207

032737
001011
005737
001006
012737
062716
000207
017616

EMT

DEC
BNE
MOV
MOV
ERRWRD

010013
011012

000062
015720
000001

;SET WAIT COUNT FOR 5 SECONDS
;GET DRIVE STATUS

#ORDYMSK,T.CS
3%
#1

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

DEC
BNE
BIT
BEQ
ERRHRD

R1
2%
#ANYERR,T.CS
4%
10011.,,ERRG

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

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

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

99%:

DEC
CLR
SuB
MoV
MoV
MOV
MOV
187
BEQ
ADD
RTS
MOV

:
:

CHOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD 1S
SELECTED BY SOFTWARE PARAMETER.

1$:

RTS

002746

000001

100000

003052
002720
000002

002746

3$%:

TRAP
.WORD
.WORD

002704

4%:
58:

002720
002720
000000

003014
010000

013712

013720

003014

010000

013712

003014
000001
000002

000000

003014

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

TSERCODE
10010
ERRS
#50.,R1
PC,GSTAT

2%:

TRAP
.WORD
.WORD
MoV
JSR
4%
BIT
BNE
WAITHS
MOV
EMT

CSWTU

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

SEQ 0077

RTS

CHOSHD: CLR
BIT
BEQ
MoV

#1.,R0
CSWTM

TSERCODE
10011
ERR6

DESHD
FHEADLM MISWIW
1%
HEADW,DESHD

. e
;TEST IF ERROR -RETURN
:YES = SKIP
;ADD IN ERROR RETURN
:SET ERROR RETURN ADDRESS

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

:
:

SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1
UNLESS HEAD O SPECIFICALLY SELECTED BY SOFTWARE PARAMETER.
SWAPHD: BIT
#HEADLM MISWIW
TEST IF HEAD SPECIFIED
BNE
2%
:YES = TAKE ABORT EXIT
181
DESHD
sTEST IF HEAD ONE USED
BNE
2%
:YES = TAKE ABORT EXIT
Mov
#1,DESHD
;ELSE SET FOR HEAD ONE

2%:

ADD
RTS
MoV

#2,(SP)
PC
a(SP), (SP)

:BUMP PAST ABORT RETURN
:RETURN
:GET ABORT DESTINATION

NN NN

(=]

Qv )
-1 BT

D il

b D -

F AR OR 2B ISIFIRARNISSELE
SR

) il i i
) - -

) - — — -

- - —

- —h - —

N
~

D ol

-l Dt —
D

003002

000001

003030

013703
005723
016663
162763
010337
010046
010146
010446
012737
005737
001007
012703
012701
014346
005301
001375
004737
020524
005037
012701
01371
042711
052721
005021
005021
014162
014162
014162

1 020362

3 020372
020372

020374
020376

1194 020400

000002
000004
002704

002306
002306

000002
003030

002720

002746
000004

MOV
1S7

MOV

002710
002736
002734
002000
000110

000012

005737
001455
032737
001033
012703
012704

002710
000001

010013
011031

MOV

#2 ERRSWI

5%:

PC,RDYCHK

CLR
Mov

DONE
#L.CS,R1

:CLEAR INTERRUPT FLAG
:GET ADDRESS OF LOAD REGS

2%
#L.MP+2 ,R3

DEC
BNE

R1
1%

MOv
MOv

65%

¥4 ,R1
=(R3),=(SP)

RLDRV, (R1)
#BI1T10,(R1)
#RDHEAD, (R1)+
(R1)+
(R1)+

MOV
MoV
MOV
WAITUS
MOv

=(R1) ,RLDA(R2)
=(R1) ,RLBA(R2)
=(R1) ,RLCSR(R2)
#10.
#10..RO

187

DONE

BEQ
BIT
BNE
MOV
MOV

ERRHRD
TRAP

000062

IT TO CALLING LOCATION

JSR

TEMP4

BNE
MOV

EMT

002746

R4 ,=(SP)

:ADJUST

sSTORE IT BACK

:SET FOR NO ERROR RETURN
;TEST IF REGISTERS TO BE SAVED
:NO - SKIP
;SET POINTER FOR REGS
:SET _COUNT
:SAVE REGISTER.
:DEC COUNT
:LOOP UNTIL ALLARE SAVED
;CHECK DRIVE READY

MOov
BIC
BIS
CLR
CLR

3%:

:SET FLAG TO BYPASS REG STORAGE
;G0 DO IT
sSET FLAG TO SAVE T. AMD L. REGS
R3,-(SP)
:STORE REGISTERS
SSINDX ,R3
:GET SUBROUTINE INDEX
(R3)+
;BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) ;INSERT THIS CALL

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

18T

2%:

000004
000002
000000

SuB
MOV
MOV
MOv
MOV

1%:

017610

SEQ 0078

READ HEADERS ROUTINE.
" ,TEMPS
BR
XRDHDG
CLR
TEMP4

XRDHDC: MOV

XRDHD:
XRDHDG- MOV

002704

012700
104027

8 020350
9 020352
0 020360
~N

-l —h —h —

s
-

003002
003004
003004

RTS

SWAP OLD CYLINDER AND NEW CYLINDER ROUTINE.
RO,-(SP)
RE
RO
:: STORE
MOV
oLDCYL,RO
sMOVE OLD TO RO
MOV
NEWCYL,OLDCYL
;MOVE NEW TO OLD
MOV
RO, NEWCYL
sPUT OLD IN NEW
MOV
(SP)+,RO
;RESTORE RO
RTS
PC

5~
~N

ONSWAP: MOV

gflg\fll‘ WN-=0O Y

020134

D - i

3%:

2 020220
3 020224

O O O O 0o 0o 0o

—

——
it —h
-

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

020132

O OO O

b - il

D il -

VWYV WL

D el el il il il

D ) i i il i i il D i

— e

ASSEMBLY ROUTINES

LWORD
.WORD

Mov

CSWTU

14%
#DRDYMSK,T.CS
10%
#MDRDY,R3
#CAFDT R4

10017., ,.ERRS

:LOAD DRIVE NUMBER

;:CLEAR FOR DRIVE & = 7 SPEC'D
: INSERT COMMAND
:CLEAR BA
:CLEAR DA
;LOAD RL11 REGS
;WAIT

1MS FOR INTERRUPT

;TEST

IN INTERRUPT

FLAG SET

:NO - SKIP
;TEST IF DRIVE READY
:YES = SKIP
:SET NO READY MESSAGE
;CONDITION OF AFTER DATA XFER

TSERCODE

10017
ERRS
#50. ,R1

;SET WAIT COUNT FOR 5 SECONDS

ASSEMBLY ROUTINES

004737
020520
032737
001403
005037
000410
005301
001364
012704

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

015720
000001

4%:

002746

002720
11%:

011042

1205
1206
1207
1208

020444
020446
020450
020454
020456
020456
020460
020462

100004

104443
023440
012374
000415
012701
016221
016221
000410
004737
012603

ERRHRD
TRAP

002746

108:

013705
000402
013705
010146
042705

.WORD
.WORD
BR
TST
BPL
ERRHRD
TRAP

002756
000006
000006

12%:

015520

14%:

.WORD
.WORD
BR

MOv
MOV
.
MOV

BR
JSR

MOV

ERRHRD

104443

023437
012072
005037
005737
001007
012703
012701
012623
005301
001375
162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

CLR
BR
DEC
BNE

MOv

104443

023436
012324
000424
005737

JSR

60%
BIT
BEQ

60%:
65%:

002720
003030

002736
000004

000002

20%:

002704

22%:

002720

TRAP
.WORD
.WORD«

CLR

18T
BNE
MOv
MOv
MOV

DEC
BNE
SUB

MOV
MOV
MOV
MOV

TST
BEQ

002720

ADD
RTS
MOV
RTS

000000

99%:

002754

POSHWI: MOV

002754

POSHSB:

177677

SEQ 0079

PC,GSTAT

;GET STATUS

#ORDYMSK,T.CS

;TEST IF DRIVE HAS COME READY
:NO - SKIP
;CLEAR ERROR SWITCH
: SKIP
;DEC WAIT COUNT .
;:LOOP UNTIL TIME DONE
;SET CONDITION AFTER 5 SECONDS

11%
ERRSWI
10%
R1
4%
#C5SEC,RG
10014., ,ERRS
TSERCODE
10014

ERRS
60%
1.CS

12%

10016., ,ERR6
TSERCODE
10016
ERRG

60%

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

65%

PC,WAITIN

(SP)+,R3
10015., ,ERR1

TSERCODE
10015

ERR1
ERRSWI
TEMP4

SEXIT
;CHECX FOR ANY ERRORS
:NO = SKIP
;REPORT ALL ERRORS

;GET POINTER
;:STORE LAST TWO HEADER WORDS
JEXIT
;WAIT FOR INTERRUPT
;GET RESULTS
:REPORT

sCLEAR FOR ERROR ERROR RETURN
sTEST IF REGISTERS WERE SAVED

;N0 - SKIP

:SET POINTER TO RESTORE REGS
sSET COUNT

20%

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

sRESTORE REGISTER

sDEC COUNT
;LOOP UNTIL ALL ARE RESTOREQ
;REMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGS

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

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

a(SP), (SP)

:SET ERROR RETURN ADDRESS

POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.
HDWRD1,R5
;:START FOR POS1iION HD BIT IN WD 1
: SKIP
POSHDO
BR

MOV

POSHDO: MOV
BIC

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

R1,=(SP)
W CHSSTAT,RS

:STORE R
:CLEAR ALL BUT HEAD SEL BIT

ASSEMBLY ROUTINES

012701
006205
005301
001375
012601
000207

38 020716
39 020720

40 020726
1 020730

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

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

000006

1%:

RDYWAIT:

002704
000002
000004
002704

002306
002306

000002
015720

002720

000001

002746

5%:

000001

012700
104026
005301
001364
012704

000062
015720

WAIT FOR READY ROUTINE. DURATION OF WAIT PASSED TO THE ROUTINE
FROM THE CALLING ROUTINE IN R1.
MOV
181
MOv
MOv
MOV
MOv
MOv
MOV

JSR
10$
BIT
BNE
DEC
BEQ
WAITUS

R3,-(SP)

SSINDX,R3

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

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

:SET FOR NO ERROR RETURN
:GET DRIVE STATUS

#DRDYMSK,T.CS

sCHECK

READY

;YES - SKIP
;DEC WAIT COUNT

;SKIP IF 0

EMT
BR

ERR3

6%:

002746

ERRHRD

10
BIT
BNE

WAITMS
MOov

011042

002746

8%:

11%:

10020., ,ERR3
TSERCODE
10020

;SET WAIT COUNT FOR 5 SECONDS
:GET DRIVE STATUS

#DRDYMSK,T.CS

;TEST IF DRIVE READY
:YES = SKIP

PC,GSTAT

CSWTM
R1

BIT
BEQ
ERRHRD

#ANYERR,T.CS

.WORD
.WORD
DEC

:SET NAME MESSAGE PTR
:REPORT READY ERROR

#50. ,R1

EMT
DEC
BNE
MOV
ERRHRD
TRAP
.WORD
.WORD

TRAP

003052

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

MOV

TRAP
.WORD
.WORD
MOv
JSR

012324

1361 021044

;RESTORE R1
:RETURN

#MDRDY ,R3

104443

104443
023446
012374
005337

R1
1%
(SP)+ ,R1
PC

MOV

00000

100000

7%:

023445

000407
032737
001405

sSET SHIFT COUNT
sSHIFT FOR RIGHT JUSTIFY

’6.R1

MOV

010013

000001

DEC
BNE
MOV
RTS

SuB

104443

023444
012206
012701
004737
021050
032737
001013

MOV
ASR

SEQ 0080

6%
#C5SEC,R4
10021., ,ERRS
T$ERCODE

;WAIT

100 MS

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

10021

ERRS
11%

10%
10022., ,ERR6
T$ERCODE
10022
ERR6
ERRCNT

JEXIT
;TEST IF ANY ERROR SET
:NO - SKIP
:REPORT ALL ERRORS

:DEC FOR DOUBLE ERROR REPORT

ASSEMBLY ROUTINES

1362 021050
1365 021054
1364 021062
1365 021064
1366 021066
1367 021070
1368 021072
1369 021076
1370 021100
1371 021104
1372 021106
}2;2 021112
1375
1376
1377
1378 021114
1379 021116
1380 021122
1381 021124
1382 021132
1383 021140
1384 021144
1385 021146
1386 021150
1387 021154
1388 021156
1389 021162
1390 021166
1391 021170
1392 021172
1393 021174
1396 021200
1395 021204
1396 021212
1397 021214
1308 021216
1399 021220
1400 021224
1401 021226
1402 021232
1403 021234
}282 021240
1434
1435

1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446

021242
021244
021250
021252
021260
021266
021272
021274
021276
021300
021306

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

010346
013703
005723
016663
162763
010337
010046
010546
004737
021204
013703
012705
006203
005305
001375
042703
010337
162737
012605
012600
012603
005737
001403
063716
000207
017616
000207

010346
013703
005723
016663
162763
010337
010046
010146
010446
012737
012701

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

002720
000002

002704

108:
9%:

002720

002720
000000

99%:

002704
000002
000004
002704

002306
002306

020170

002754
000007

177000
003006
000002

002704

002720
002720
000000

CLR
SuB
MOov
MOV
MOV
MOv
TS7
BEQ
ADD
RTS
MOV
RTS

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

SEQ 0081
;CLEAR FOR ERROR ERROR RETURN
sREMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGISTERS

;RESTORE R3
;TEST IF ERROR RETURN
;YES - SKIP
;ADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS

:
GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER
:
(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER
:
NUMBER IN _CURCYL.
GETPOS: MOV
R3,-(SP)
:STORE REGISTERS
MoV
SSINDX ,R3
:GET SUBROUTINE INDEX
18T
(R3)+
sBUMP IT FOR NEXT ENTRY
Mov
2(SP),SUBSTK(R3) ;INSERT THIS CALL
SuB
#4,SUBSTK(R3)
;ADJUST 1T TO CALLING LOCATION
MOV
R3,SSINDX
:STORE IT BACK
MoV
RO,=(SP)
MOV
R5,=(SP)
JSR
PC,XRDHD
;D0 READ HEADER
65%
.
MOV
HDWRD1,R3
:GET HEADER WORD
MoV
#7,R5
;SET SHIFT COUNT
4$:
ASR
R3
sSHIFT TO RIGHT JUSTIFY
DEC
R5
BNE
4%
BIC
#177000,R3
MoV
R3,CURCYL
:STORE AS CURRENT CYLINDER
65%:
SuB
#2,SSINDX
;REMOVE ENTRY FROM SUBROUT STACK
MOV
(SP)+,R5
;RESTORE REGISTERS
MOV
(SP)+,RO
MOV
(SP)+ ,R3
TST
ERRSWI
;TEST IF ERROR RETURN
BEQ
99%
:YES - SKIP
ADD
ERRSWI, (SP)
:ADD IN ERROR RETURN
RTS
PC
99%:
MOV
a(SP), (SP)
:SET ERROR RETURN ADDRESS
RTS
PC
H
:

READ ALL HEADERS ROUTINE. 40 HEADERS ARE READ AND STORED
- IN 1BUFF.,
RDALHD: MOV
R3,=(SP)
:STORE REGISTERS

002704
000002
000004
002704

002306
002306

000002
000050

002720

MOV
TST
MOV
SUB
Mov
MOV
Mov
MOV
Mov
Mov

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
RO,=(SP)
R1,=(SP)
R4 ,=(SP)
#2 ERRSWI
:SET FOR NO ERROR RETURN
#40. ,R1
;SET HEADER COUNT

ASSEMBLY ROUTINES

16447 021312
16448 021320
16449 021324
1450 021330
1651 021334
16452 021342
1453 021350
1454 021356

16455 021362
1456 021366
1657 021372
16458 021374
1459 021402
1460 021410
1461 021416
1462 021424
1463 021426
1466 021432
16465 021434
16466 021442
1467 021446
16468 021454
1469 021456
1470 021460
1471 021462
1472 021466
1473 021472
1474 021474

021474

1475
1476
1477
1478
1479

021502
021506
021510
021514
021512

1480 021524

1481
1482
1483
1484
1485
1486
1487

021530
021532
021534
021536
021540
021542
021544

1489
1490
1491
1492
1493
1494
1495

021554
021556
021560
021562
021566
021570
021574

1496 021576
1497 021602

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

002706

003656
002730
000006
000010
002734
002000
002749
002742
003014

002736
002736
002736

000020
002742
002740
000200

002742
000004
000002
000000

BIS

MOV
MOv
ADD
MOv

BIS
BIC
CLR
CLR
181

3%:

MOV
MOv

BIT
BNE
JSR

017610
002736
077777
000200

BEQ
B1S

000000

6%:

000000

7%:

65%

MOov
MOv
BIT

BNE
DEC
BNE
JSR
JSR

012603

MOV

104443
023451
012072
005037
000416

TRAP

005737
100006

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

ERRHRD

002720
8%:

002746

.WORD
.WORD
CLR
BR
18T
BPL
ERRHRD
TRAP

002720
12%:

.WORD
.WORD
CLR
BR
MOV
MOV
MOV

000002

002704

65%:

002720

MOV
MOv
MOV
MOV
181

BEQ

002720
000000

DEC
BNE
SuB

99%:

ADD
RTS
MOV
RTS

SEQ 0082

#HDR4LO,0PFLAG
#1BUFF ,R3
RLBAS R4

;SET 40 HDR OP FLAG
:SET POINTER TO STORE HDRS
;GET BASE ADDRESS

#RLMP R4

#10,L.CS
RLDRV,L.CS
#BIT10,L.CS
L.BA
L.DA
DESHD
3%

#HDSEL ,L.DA

L.DA,RLDA(RZ)
L.BA,RLBA(R2)

;MAKE

IT POINT

;ELSE INSERT HEAD 0

:LOAD RLDA REG
;LOAD RLBA

#CRDYMSK,RLCS(R2)

TO MP REG

:LOAD FOR READ HEADER, NO INTERRUPT
: INSERT DRIVE NUMBER
;CLEAR FOR DRIVE & - 7 SPEC'D
;CLEAR BA
:CLEAR DA
;TEST IF HEAD 0
:YES = SKIP

sTEST

sYES - SKIP

CONTROLLER READY

PC,RDYCHK

JELSE CHECK READY

L.CS,RLCS(R2)
#77777,R0

;LOAD RLCS REG
;SET COUNT FOR WAIT

sYES = SKIP

#CRDYMSK,RLCS(R2)

;CHECK

THAT OPERATION COMPLETED

RO
7%

sDEC COUNT
;SKIP IF NOT

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

sGET RESULT MESSAGE POINTER

PC,READRL
PC,WAITIN

YET O

;ELSE GET ALL REGISTERS
;ELSE WAIT FOR TIMEOUT

gggsu1

sCLEAR FOR ERROR RETURN

1.0
12%
10026., ,ERR6
T$ERCODE
10026
ERR6
gg:sux

;TEST FOR ANY ERRORS
;NO - SKIP

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

;STORE HEADER WORDS

;DEC HEADER COUNT

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

;REMOVE ENTRY FROM SUBROUT
sRESTORE REGISTERS

;CLEAR FOR ERROR RETURN

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

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

géSP).(SP)

:SET ERROR RETURN ADDRESS

STACK

:
:
:

#SEQMES ,~(SP)
#EMT9,-(SP)
#2,-(SP)

EMT
ADD
PRINTB
MOV
MOv
MOv

($PNTB
#6,SP
WFMT16,SUBSTK(R4)
SUBSTK(R&) ,=(SP)
NEMT16,-(SP)
#2,-(SP)

EMT
ADD
ADD
CMP
BLE

CSPNTB
¥6,5P
#2,R4
R&,SSINDX
3%

PRINTB

MOv

000006
~
o

OO ettt s

OO0
O—=0O0DOO0

R4 ,=(SP)

MOV
MOV
MOv

3%:

002306
011534
000002

MOV

000006
000002
002704
1%:

006273
002714
011164
000003
000010
030000
002736

002706

177741

010000
000012

002706

020000
000014

002706

020000

002706

002126
005306
011142
000003

022020
022024
022030
022034
022036
022040

000010

20%:
22%:

002742

WFMT9,#SEQMES

;TEST SUBROUTINE INDEX 0
;SKIP IF 0
sSET INDEXER TO FIRST ENTRY

;PRINT ''SUBROUTINE CALL SEQ"

SP,RO

:BUMP INDEX
;CHECK IF ALL PRINTED
;LOOP IF NOT ALL PRINTED YET

MOV
EMT

SP,RO
CSPNTB
#10,SP
#SEEKOP!RORWOP ,OPFLAG

#TSTLAB,=-(SP)
ERHEAD ,=(SP)
FEMTSL ,-(SP)
#3,-(SP)

ADD
BIC
MOv

L.CS,R]

(MP
BNE
BIS
CMP

#6,R1
;TEST IF SEEK
2%
:NO #SEEKOP ,OPFLAG
ELSE
#12,R1
;TEST

BNE
BIS
CMP
BNE
B1S
PRINTB
MOv
MOV
MOV
MOV
EMT
ADD
(MP
BNE
BI1

;PRINT CALLING LOCATION

SP,RO

W#FMT4 ,ERHEAD ,#TSTLAB

MOV

000010
000004

032737

2%:

SSINDX
1%
"2, R4

PRINTB

MOv
MOv
MOov
MOV

BIC

000006

021754
45 021756
Ll

i7 53 022044
17 54 022050
17 55 022052

MOV

007662
011361
000002

43 021750

50 022004
51 022006
52 022014
022014

REPORT OPERATION ROUTINE. PRINTS SUBROUTINE TRACE SEQUENCE AND
OPERATION BEING PERFORMED PORTION OF ALL
ERROR MESSAGES.

000002

021702
021706
021712
021716
021722
021724
021726
«0 021732
& 021740
L2 021744

021764
021770
021772
022000

SEQ 0083

187
BEQ
MOv

9 021702

46
747
7648
749

RPTOP:

3-28

002704

it
it
—

NNNN

—

021604
021606
021612
021614
021620
021620
021624
021630
021634
021636
021640
17 35 021644
021644
021650
021654
021660
021662
021664
6 021670
021674
8 021700

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

OO0

il il

ST WO O0ONO

SNNNNNNNNSS
WWWWWNI
NN O O

ASSEMBLY ROUTINES

177741 ,R1

;PRINT

ERROR HEADER

;CLEAR SK & RD OR WRT FLAG
:GET COMMAND EXECUTED
:STRIP ALL BUT FUNCTION CODE

OPERATION
SKIP
SET SEEK FLAG
IF WRITE

20%
:NO - SKIP
#RORWOP ,OPFLAG
;SET RD OR WRT FLAG
#14,R1
;TEST IF READ
22%
:NO - SKIP
#RORWOP ,OPFLAG
;SET RD OR WRT FLAG
#FMT1,#MOPER,OPMSGS(R1) ;PRINT OPERA!ION
OPMSGS(R1) ,-(SP)
#MOPER,
- (SP)
NEMTT,=(SP)
#3,-(SP)
SP,RO

($PNTB
#10,SP
R1,%4
4%
#DRSET,L.DA

;(HECK IF GET STATUS
:NO - SKIF
STEST IF RESET INCLUDED

ASSEMBLY

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

ROUTINES

3-29

BEQ

000016

—

o
o

007777

[={=lelolalelele]es]

SEQ 0084

016146
012746
012746
010600
106014
062706
032737

MOv

002706
000020
000001

100000

6%:

002706
:
9%

OO0 —=00000000
OWO O =t ittt et s
—orRoSONNNWN

~NOo

746

RO
LN WO W
NNNSNNNSN
S5
oocoocoo

OO0 O0O0O0OO0O0

424

746

003016
007627
003014
007623
003006
007634
011731
000007

MOv
PRINTB
MOV
MOv
MOV
MOv

EMT

002706

108:

002706

;TEST

#20,R1

:PRESET

#B1100,R4
6%
(R1)+
R&

ANY OTHER OPERATION

THE POINTER

;CHECK THE BIT
;1F SET - SKIP
;BUMP POINTER

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

SP,RO
CSPNTB

#6,5P

#HDR4LO,OPFLAG
;TEST IF 40 HEADER OPERATION
108
INO - SKIP
#50,R1
ELSE PRINT IT
#EMT2,0PMSGS
(R1)
OPMSGS (R1),=(SP)
#EMT2,-(SP)
#2,-(SP)

SP.RO
CSPNTB

#SEEKOP,OPFLAG

BEQ

;NO = SKIP
SET UP TO DETERMINE WHICH ONE

#FMT2 ,0PMSGS(RT)

BIT

EMT

15%:

#COMPOP,OPFLAG

8%
OPFLAG,R&

#6,SP

;NO - SKIP

sSET TO PRINT WITH RESET

ADD

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

00764
011402
000011

000024
020000

MOV
MOV

BIT
BEQ

003014
007623
003012
007616
003010
007610
003002

600
014

BNE
ST
ASR
BR
PRINTB

ADD

000006

010000

BIT

EMT

002126
011156
000002

1773
1774
1775
1776 022222

MOv
MOv

MOV
MOV

000050

022222
022226
022232
022236
022242
022246
022252
022256
022262
022266
022272
022274
022276
022302
022310
022312
022312
022316
022322
022326
022332
02336
022342
022346

BIT

BEQ

5%:

002126
011156
000002
000006

002706

;16.R1

15%

;SKIP
;TEST

SEEK

;TEST

READ OR WRITE

15%
sNO - SKIP
#EMT13, #FRMWD,OLDCYL ,#DIFWD,DESDIF ,#SGNWD ,DESSGN, #HDWD , DE SHD
DESHD,~-(SP)
#HDOWD
, - (SP)

DESSGN,-(SP)
#SGNWD ,~-(SP)

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

oLDCYL,=(SP)

#FRMWD,-(SP)

#EMT13,-(SP)

#11,-(SP)

SP,RO
C$SPNTB

ADD

#24,5P

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOv

#EMT22,#CYLWD,CURCYL
,#HDWD ,DESHD , #SECWD ,DESSEC
DESSEC,=-(SP)

BIT
BEQ

#RORWOP,OPFLAG

17%

#SECWD,=(SP)

DESHD,~=(SP)
#HDOWD ,=(SP)

CURCYL ,=(SP)

#C/LWD,=(SP)

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

iNO - SKIP

SET

ROUTINES

022372
022374
022376
022400
022404
022406
022406
022410
022414
022420
022424
022426
022430
1792 022634
1793 022440
1794 022442
1795 022446
1796 022452
1797 022454
1798 022460
1799 022462
1800 022464
022464
022466
022472
022474
022500
022502
022504
1801 022510
022510
022512
022516
022520
022524
022526
022530
1802 022534
1803 022540
1804 022542
022542
022544
022550
022554
022560
022562
022564
1805 022570

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

010600
104014

062706
004737
012604
000207

MOV

000620
023034

178:

:
:
RPTRES:

RTS

MOV

R3.=(SP)

MOV
MOV

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

000010
010466
011366
010461
011374

CSPNTB
#10,5P
(R1) ,#MNDRST
6%
#EMT11,RG
(R1)+,#MCYLOC
3%
FEMT12.R4

MOV

(R1)+,=(SP)

MOV

000003
000010

MOV
MOV
EMT
ADD

010712

MOV

000003

MOV

010717

MOV

011142

000003

6%:

#3.-(SP)
SP.RO
CSPNTB
#10,5P

SB VALUE

#3.-(SP)
SP.RO

CSPNTB
#10,5P
#2,R3
6%

:DEC PARAM COUNT
S1F 0 = EXIT

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

:REPORT

CONDITION

#RESES,=(SP)

MOV

SP.RO

MOV

:REPORT

R4 ,=(SP)

#EMTT,=(SP)

EMT
ADD

:TEST IF MESSAGE 1S NO DRV STATUS
*YES = SKIP REST OF REPORT
‘PRISET FOR FORMAT 11
:CHECK IF REPORTING CYLINDER LOC
‘NO - SKIP
SELSE CHANGE TO FORMAT 12
*DEC PARAM COUNT
S1F 0 = EXIT
:REPORT IS VALUE

#RESEL,-(SP)

MOV

000010

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

PRINTB
MOV

:PRINT NAME

#RESES,-(SP)

PRINTB
MOV

EMT
ADD
SUB
BEQ

000010
000002

R3
6%
R4, #RESE3,(R1)+
R4, =(SP)

MOV

SGET START OF PARAM
:GET NUMBER OF PARAM

SP.RO

MOV

*STORE R3

:STORE Ré&

(R1),=(SP)

EMT
ADD
CMP
BEQ
MOV
CMP
BNE
MOV

010706

FOR ALL ERROR REPORTS.
:STORE R1

#FMT1.1.#MRSLT,(R1)

#MRSLT,=(SP)
FEMTT.1,-(SP)
#3,-(SP)

DEC
BEQ
PRINTB

‘RESTORE Ré

R4 . =(SP)

MOV
MOV
MOV

MOV

:CLEAR PARAM TABLE

(SP)+,Ré&

REPORT REASON ROUTINE
PRINTS REASON PORTION
MOV
R1,=(SP)

PRINTB

SEQ 0085

SP,RO

CSPNTB
#20,5P
PC,CLRPARM

MOV

005315
011147
000003

3-30

EMT
ADD
JSR

MOV

002764

022352
022354
022356
022362
022366
022370

[ B

ASSEMBLY

#3,-(SP)
($PNTB
#10,5P

(SP)+,R&

:RESTORE REGS

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

ASSEMBLY ROUTINES

012603
012601
000207

MOv
MOV
RTS

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

SEQ 0086

;RETURN

REPORT PHYSICAL AODRESS OF DEVICE UNDER TEST

D00~

0o Jo 0o

=000 00—0O

NN~

o—=coO00O00000
Lo N o T
e L
SO
N

000014

—osr
s
~Soo

N~N

746
746

000020

746

002744
002740
002742
002736
006053
011327
000006

s~
oc

oS COCNNNNWWWW

L=
e e
—_ s
~sQrOoo00>r

746
746

706
oo

NNNNYN

746
s 00s

O—=0000000O0
OO =
e
e s

007623
007634
006046
006034
006041
006027
011215
000007

706

NN
WL W

e
——

022642
022642
022646
022652
022656
022662
022666
022672
022676
022702
022704
022706
022712
022712
022716
022722
022726
022732
022736
022742
022746
022750
022752
022756
022756
022762
022766
022772
022776
023002
023006
023012
023016
023022
023024
023026
023032

002735
005743
002730
005732
011175
000005

= lelelelelelelelele]

022634
022636

RFTREM:

000C1¢

003014
003006
002754
002750

002752
002746
006066
011257
000010
000022

AND ALL REGISTER CONTENTS.

PRINTB

CLR
BISB

MOV
MOV
MOV
MOV
MOV
MOV

EMT

OFH;S.IBASADD.RLBAS,IDRVNAH,<B.RLDRV01>

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

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

SP,RO
(SPNTB

"4 ,5P
ADD
REPORT RL11 REGISTERS
FEMT6,#CSNAM,
¥DANAM, ¥BANAM, FMPNAM, #CYLWD , #HDWD
PRINTB
#HOWD ,~(SP)
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

EMT

ADD

#CYLWD,=(SP)
= (SP)
#MPNAM,
#BANAM,=(SP)
#DANAM,-(SP)
#CSNAM,=(SP)
#EMT6,=-(SP)

#7,-(SP)

SP,RO

CSPNTB
#20,5P

PRINTB
MOV
MOV
MOV
MOv
MOv
MOV
MOV
MOV

#FMT8,#LAB1,L.CS,L.DA,L.BA,L.MP
L.MP,=(SP)
L.BA,=(SP)
L.DA,=(SP)
L.CS,=(SP)
#LAB1,-(SP)
#FEMT8,-(SP)

ADD
PRINTB
MOV
MOV
MOv
MOv
MOV
MOV
MOv
MOv
MOV
MOV

#16,5P

EMT

ADD
RTS

#6,-(SP)

SP,RO
CSPNTB

#FMT7,#LAB2,T.CS,T.DA,T.BA,
T .MP,CURCYL ,DESHD
DESHD,=(SP)
CURCYL,=(SP)
T.MP,=(SP)
T1.BA,=(SP)
T.DA,=(SP)

1.CS,=(SP)
#LABZ,-(SP)
#FEMT7,=-(SP)
#10,-(5P)

SP,RO
CSPNTB
#22,5P

(LEAR PARAMETER BLOCK FOR REPORTING

ASSEMBLY ROUTINES

1820 023034

1821 023036
1822 023042

1823 023046

1824
1825
1826
1827
}gsg

023050
023052
023054
023060
023062

1830 023064

010546

012701
012705

005021

005305
001375
0127C1
012605
000207

MACRO v03.01

002764
000005

9-FEB=-79

19:14:22 PAGE

CLRPARM:

2%:

002764

ENDMOD

MoV
Mov

CLR

DEC
BNE
MOV
MOV
RTS

3-32

MOV

SEQ 0087

RS,=(SP)

: STORE RS

#RESPARM, R
#5,R5

;GET ADDRESS OF BLOCK
:SET COUNT

(R1)+

;CLEAR WORD

RS
2%
#RESPARM,R1
(SP)+,R5
PC

;DEC COUNT
;LOOP UNTIL 0
;RESET POINTER
;RESTORE RS

CZRLIAQ RLO1/2 DR TST

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

LTITLE

CZRLIAO RLO1/2 DR

TST

—

BGNMOD
" LSBTTL

023064

BGNTST

003252

~N
W

023064

COONOWV

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

BNE

002714

2%:

104043

POND

b = e

s =t

—OVENOWVs
W

000404
004256
000120
007052
000001

23 023250
24 023252
25 023256
023256
023260
023262
26 023264
27 023272
28 023274
29 023300
023300
023302

005737
001740
004737
004737
023332
032737
001005
012703
104443
000145
012206
032737
001005
012703
104443
000146
012206

032737
001005
012703
104443

000147

:
100008

004256

015652
015704
000040

18T
BPL
MOV
PRINTF
CLR
BISB

MOv
MOV
MOV
MOV
MOv
MOV
MOV
MOV

000020
004256

~N
W

—

N =

002735
005743
002730
005732
007544
007122
011050
000007

1%:

002754

EMT
ADD
CLR
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD
TST

BEQ
JSR
JSR
65%
BIT

BNE
MOV

010171

ERRHRD
TRAP

000010

002754

7%:

010204

.WORD
.WORD
BIT
BNE

MOV

ERRHRD
TRAP

020000

010217

002754

9%:

BASIC INTERFACE

(PART 1)

;TESTO1
1§51

013712
006301

HRDWTST
*TEST 1

SEQ 0089

.WORD
.WORD
BIT
BNE

MOV

ERRHRD
TRAP

.WORD

PASNUM

65%

MISWIW

65%

i B ¥

sCHECK IF FIRST PASS
JEXIT IF NO
:CHECK IF MANUAL INTERVENTION
:NO = EXIT TEST
:LOAD ERR HEADER

#MISTST ,ERHEAD
#FMTOP1,#CPR1,#OPR1A,#BASADD
,RLBAS ,#DRVNAM,<B,RLDRV~1>
-(SP)

RLDRV+1,(SP)

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

#OPR1,-(SP)
#FEMTOP1,-(SP)
#7,-(SP)

SP,RO
CSPNTF

#20,SP
OBUFF

:CLEAR FOR RESPONSE
OPR002,0BUFF,1,NO
CSGMAN
10000%

OBUFF
T$CODE
?PROOZ
OBUFF

PC,TSTINT
PC,GSTATC
#COSTAT,T.MP

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

ERR3

#BHSTAT,T.MP

9%
#MBHSTA,R3
102., ,ERR3
TSERCODE
102

ERR3

FULSTAT,T.MP

1%
#MULSTA,R3
103., ,ERR3
TSERCODE
103

:TEST RESPONSE YES

- sYES = SKIP

s INITIALIZE TEST
;G0 GET STATUS (NO RESET)
;CHECK IF COVER OPEN SET
:YES = SKIP
:SET NAME POINTER

;TEST IF BRUSHES HOME
;YES - SKIP
sSET POINTER FOR BRUSH HOME ERROR

;TEST IF WRITE LOCK SET

sYES - SKIP

;SET NAME POINTER

(%gg%l? RLO1/2 DR TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 5-1
BASIC INTERFACE (PART 1)

023304
30 023306
31 023312
32 023314
33 023316
023316
023320
023322
34 023326
35 023330
36 023332
37 023332
023332
023332
38

012206
005737
001404
005003
104443
000159
013252
004737
023332

104001

002762

11%:

015670

15%:

65%:
ENDTST
L10020:

.WORD
151
BEQ
CLR
ERRHRD
TRAP
.WORD
.WORD
JSR
65%

ERR3
T.STAT
15%
R3
104.,,ERR7
TSERCODE
104
ERR7
PC,GSTATR

EMT

(SETST

SEQ 0090

;TEST IF STATE ZERO
sVES = SKiIP
;SET STATE EXPECTED

;00 DRIVE RESET

(%gg%lg RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 6
BASIC INTERFACE (PART 2)

SEQ 0091

W
-

.SBTTL

*TEST 2

BASIC INTERFACE (PART 2)

;TEST 2

BGNTST

VONO VS

005737

003252

187

BNE
18T
BPL

013712

—t

D e

006301

023422
023424

10
11 023430
12 023434

NON

b e

s b

- OV
YO VW

023434
023436

22 023512
23 023520
24 023522
25 023526
023526
023530
023532
26 023534
27 023534
023534
023534
28

002714

002735
005743
002730
005732
007564
007200

MOV

01105C

MOV
MOV
MOV
MOV
MOV

000020

ADD

004256

CLR
GMANIL
EMT
BR

000007

EMT

1046043
000404
004256
000120
007052
000001

005737
001740
004737
004737
023534
032737
001405
012703
104443
000311
012140

032737
001405
012703
104443
000312
012140

MOV
PRINTF
CLR
BISB
MOV
MOV

.WORD

10000$:

004256
015652
015670

000040

1%:

010217

65%

sNO - SKIP

65%

:NO = SKIP

MISWIW
#MISTST, ERHEAD

L10021:

sTEST IF MANUAL INTERVENTION

;SET ERROR HEADER
#FEMTOPT, #OPR2,#OPR1A,#BASADD
,RLBAS ,#DRVNAM,<B,RLDRV+1>
=(SP)
RLDRV+1, (SP)

sREQUEST CLOSE

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

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

#7,-(SP)
SP,RO
CSPNTF
#20,5P

:COVER AND RESET WRITE LOCK
OBUFF
:CLEAR FOR.RESPONSE
OPR0O02,0BUFF,1,NO
CSGMAN
10000%
OBUFF
T$CODE
?PROOZ

;TEST IF RESPONSE YES
:NO = SKIP"

BIT
BEQ

#COSTAT, T.MP

:TEST

MOV

#MCOSTA, :3

:SET NAME MESSAGE POINTER

TRAP
.WORD
.WORD

201
ERR2

PC,TSTIN 1
PC,GSTAT R

201., ,ER

s INITIALIZE TEST
;GET STATUS WITH RESET
IF

COVER OPEN RESET

:YES = SKIP

TSERCODE

BIT
BEQ

FULSTAT, T.MP

ERRHRD

202., ,ERR2

65%

FMULSTA, R3

T$ERCODE

TRAP
.WORD
.WORD

202
ERR2

EMT

CSETST

ENDTST
104001

12::

MOV

65%:

:TEST IF PASS 0

OBUFF

ERRHRD

002754

TST
BEQ
JSR
JSR

65%

002754

010171

020000

.WORD
.WORD

PASNUM

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

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

.SBTTL
BGNTST

NN
NN NN

005737
001003
005737

w
W
wn
~n

OCOO0O0O0O0O0O0O0OOO0O0O0O0O

NOWVESWN

*1EST 3

3556

—

23576

- 1004C2

104032
001214
004737

004737
024770
005737
001440

003252
013712
4%:

015652
015670

5%:

1%:

002735
005743
002730
005732
007544
007246
011050
000007

062706
005037

000020
004256

[elelelelele
P Helelelelelelele
o
O bt s s O ) b e e e s i s et \JN o
SHSrorornornrnsSsornrnNN
LN W
NNNNNNO O NNNNNNN NO
-y
orrsrrrrs e~
~ ocoocoorccorO> oo

L=
~N
w
o

—
o
—a

18T
BEQ
PRINTF
CLR

EMT

ADD

100008:

004256

2%:

002735
005743
002730
005732
007544
007232
011050
000007
000020
000004
000001
006324
000454
015704

.WORD
JSR
JSR

B1SB

007052
000001

06
37
03
37
01
37

EXIT
EMT

MOv
MOV
MOV
MOV
MOV
MOov
MOV
MOv

104043
000404
004256
000120

005737
001740

1871
BNE
151
BMI

1365%

002762

153716
012746
3746
2746
2746
2746
2746
2746

*TEST 3

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

BEQ

PRINTF

B1SB

MOv
MoV
MOV
Mov
MOV
MOv
MOV
MoV

EMT

002706
002714

3%:

ADD
MOV
Mov
MCv
Mov

JSR

SEQ 0092
HEAD LOADING

;TESTO3

PASNUM

MISVIv

181

:TEST IF PASS 0

13::

:NO SKIP
sTEST IF MANUAL INTERVENTION
;YES = SKiP

CSEXIT

L10022~-.

;INITIALIZE TEST

PC,TSTINT
PC,GSTATR

T.STAT

sTEST IF STATE ZERO
;YES - SKIP

:GET STATUS

#FMTOP7,#0PR5,#OPR1A,#BASADD
,RLBAS ,#DRVNAM,<B ,RLDRV+1> ;REQUEST DRIVE BE UNL
=(SP)

RLDRV+1,(SP)

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

#OPRS,=(SP)

#FEMTOP1,-(SP)

#7,-(SP)
SP.RO
CSPNTF
#20,SP
OBUFF
:CLEAR FOR RESPONSE
OPR00Z2,0BUFF ,1,NO
CSGMAN
10000%

ORUFF
T$CODE
?PROOZ

OBUFF
1%

;TEST IF RESPONSE YES
:NO = SKIP

#FMTOP1,#OPR3,#OPR1A,
#BASADD ,RLBAS , FDRVNAM, <B ,RLDRV* 1>
=(SP)

RLDRV+1, (SP)

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

#OPR1A,=(SP)
#OPR3,-(SP)
#FMTOP1,-(SP)
#7,-(SP)

SP,RO
CSPNTF

#20,5P

#CYLUP ,OPFLAG

#,R3

lNfiTAC:?.ERHEAD

#300.,

PC,GSTATC

:SET
;SET
:SET
;SET
;GET

CYCLE UP FLAG
EXPECTED STATE VALUE
ERROR HEADER
WAIT COUNT FOR 30 SECONDS
STATUS

CIRL 1AQ RLO1/2 D R TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 7-1
HEAD LOADING

*TES 13

26 024000
25 024002
26 024006
27 024010
28 024012
29 024014
024014
024020
30 0249022
31 02402¢
32 024030
024030
024032
024034
024036
024040
024042
024044
33 024044
34 024050
35 024052
36 024054
37 024060
38 024062
024062
024064
024066
39 024070
024070
024072

40 024074
41 024100
42 024104

43 024110

44 024112

45 024116
4% 024120
47 024122
026122
024124

024126

48 024130

024130
024132
49 024134
50 024136
51 024140
0246140
024144
2 024146
3 024150
024150
024152
024154
54 024156
55 024164
56 024166

024770
005737
001022
005301
001404

0127G9

104026
000764
005037

1365%

002762

181
BNE
DEC
BEQ

WAITMS
MOV

000001

004256

6%:

1046043
000404
004256
000120
007077
000001

005737
001004
000651
020337
001405

10001$:

004256
002762

108:

11%:

1046443
000455
013252
104032
000676
012701
012703

004737
024770
020337
001435

000454
000002
015704

13%:
14%:

002762

101005

104443

104032

000636
005301
001404
104026

TST

ENE
BR
CMP
BEQ

ERRHRD
TRAP
.WORD
.WORD

EXIT
EMT
.WORD

MOV
MOV

17%:
.000001

18%:

EMT
BR
ERRHRD
TRAP
.WORD

.WORD

" :NO - SKIP

IS STILL O

;DEC WAIT COUNT
SEXIT IF WAIT DONE

CSGMAN
10001%

OBUFF
T$CODE
?PROOS
OBUFF
11%
1%

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

;TEST IF RESPONSE YES
:YES = REPORT
;CHECX IF NOW STATE 1
:YES = SKIP

301
ERR7

TST
CSEXIT

L10022-.
#300. ,R1

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

;CHECK IF STATE 2
;YES - SKIP
;CHECK IF NO CHANGE - YES = SKIP

TSERCODE

302
ERR7
181

CSEXIT

L10022~-.
R1
18%

;DEC WAIT COUNT

JSKIP IF O

CSWTM
14%

303., ,ERR7

TSERCODE

303
ERR7

004000

002754

BIT

#SPDSTAT,T.MP

006336

002714

MOV

#SPDERR ,ERHEAD

BNE

STATE

20%
17%
302., ,ERR7

.WORD
.WORD
EXIT
EMT
.WORD
DEC
BEQ
WAITMS

OBUFF
;CLEAR FOR RESPONSE
OPRO0OZ,0BUFF,1,NO

CMP
BEQ
BHI
ERRHRD

1365%

;TEST

#1,R0
(SWTM

JSR

Mov

000756

#2,R3
PC,GSTATC

TRAP

000456
013252

012700

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

T.STAT
10%
R1

SEQ 0093

19%

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

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

57 024174
58 024200
024200
024202
024204
59 024206
024206
024210
60 026212
61 024220
62 024224
63 024230
66 024236
65 024240
024240
024242
024244
66 024246
024246
024250
67 024252
68 024256
69 024262
70 024264
71 024272
72 026274

73 024276

74 024300

024300
024304

75 024306
76 024310

024310
024312
024314
77 024316
024316
024320
78 024322
79 024326
80 024332

81 024334
8z 024342
83 024344
84 024346
85 024350
024350
024354
86 024356
87 024360
024360
024362
024364
88 024366
024366
024370
89 024372

012703

010271

19%:

104032

006301
010731
010204
000010

002714

20%:

002754

104032

22%:
23%:

000062
015704

000010

002754

024770
032737
001013
005301
001404
012700
104026

000001
26%:

27%:
28%:

000454
015704

000010

002754

000001

MOV

MOV
MOV

30%:

1064443

000463
012324
104032

006324

002714

32%:

304., ,ERR3

181

CSEXIT
L10022-.

#MISTST ,ERHEAD

#STATEZ2
R4
#MBHSTA,R3

FBHSTAT,T.MP

22%
305., ,ERRS

305
ERRS

JSR

PC,GSTATC

BIT
BEQ
DEC
BEQ

#BHSTAT,T.MP

1365%

EMT
BR
ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
.WORD

MOV

JSR

1S1
CSEXIT

27%
R1

26%

"
#1,R0
CSWTM

23%
306., ,ERRG

L10022~-.
#300. ,R1

;SET WAIT COUNT 30 SECONDS
;GET STATUS

#BHSTAT,T.MP

;TEST IF BRUSH HOME SET AGAIN
:YES - SKIP
;ELSE DEC WAIT COUNT

PC,GSTATC

CSWTM

Mov

;LOOP

306

EMT

.WORD
EXIT
EMT
.WORD

:TEST IF BRUSH HOME RESET
:YES = SKIP
;DEC WAIT COUNT
:SKIP IF ZERO

ERR4
18T
CSEXI1T

TRAP
.WORD

;SET WAIT COUNT FOR 5 SECONDS
:GET STATUS

TSERCODE

1365%
BIT
BNE
DEC
BEQ
WAITMS

ERRHRD

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

TSERCODE

L10022-.

MOV

;SET NAME MESSAGE POINTER

304
ERR3

.WORD
EX1T
EMT
.WORD

MOv

000763

000400
012737

EXIT
EMT
.WORD

WAITMS
MOV

104443
000462
012254

104032
000450
012701
004737

TSERCODE

TRAP
.WORD

012324

012700
106026
000763

TRAP
.WORD
.WORD

BIT
BNE
ERRHRD

104443
000461

000520
012701
004737
024770
032737
007413
005301
001404

#MSPERR,R3

ERRHRD

106443
000460
012206

000560
012737
012704
012703
032737
001005

MOV

SEQ 0094

32%

30%

;SKIP IF 0

28%
307., ,ERRS
TSERCODE

307
ERRS
181

CSEXIT
L10022-,

NSTACHG,ERHEAD

:SET ERROR HEADER

(%gg%kg RLO1/2 DR _TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 7-3
HEAD LOADING

90 024400
91 024404
92 024410
93 024412
94 024416

95 024420

012703
004737
024770
020337
001405

024420
024422
026424

013252

024430

106032
000340

96 024426
024426

012737
012704
012703
004737
024770
032737
001005

024466
024470
024472

106443
000465

024474
026476

104032
000272

105 024474

002762

ERRHRD
TRAP

006301
010741
010230
015704

002714

00002C

002754

012324

108 024510
109 024514

012703

010160

wub
b
=
-

S W
N

—

VR WN=0
00 YOo

—

—s —
s —l
s
—
—
—

NN
MNON s =

——

001007

024514
024516
024520

106443
000466
012324

024522
024524
024526
024534
024536
024542
024542
024544
024546
024550
024550
024552

104032
000244
032737
001007
012703

024554
024560
024566
024572
024576
024600
024604
024606
024610
024612
024612

040000

002754

38%:

40%:

010135

1046443

104032
000216

012701
012737
012703
004737
024770
020337
001413
005301
001404

005670
006324
000004
015704

012700

000001

002762

002714

42%:
43%:

*GET STATUS

STATE 3

;YES = SKIP

1871

MOV
MCv
MoV
JSR
1365%
81T
BNE
ERRHRD

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

;SET
:SET
;SET
;GET

FHOSTAT,T.MP
38%
309., ,ERRS

;YES = SKIP

.WORD

ERRS

.WORD
BIT

L10022-.
#VCSTAT,T.MP

ERROR HEADER
CONDITION MESSAGE POINTER
NAME MESSAGE POINTER
STATUS

;TEST IF HEADS QUT SET

TSERCODE
309

181
CSEX]T

BNE

40%

TRAP
.WORD
.WORD
EXIT
EMT
.WORD

TSERCODE
310
ERR5S
187
CSEXIT
L10022-.

;TEST IF VOLUME CHECK SET

#MVOLCK,R3
310., ,ERRS

:SET NAME MESSAGE POINTER

BIT
BNE
MOV
ERRHRD

#DRVERR,T.CS
42%
#MDRERR,R3
311.,,ERRS

;TEST IF DRIVE ERROR SET
;YES = SKIP
:SET NAME MESSAGE POINTER

.WORD
EXIT
EMT
.WORD

ERRS
187
CSEXIT
L10022-.

TRAP
.WORD

000467
012324

;CHECK IF

CSEXIT
L10022-.

MOV
ERRHRD

002746

R3,1.STAT
36%
308.,,FRR7
TSERCODE
308

EMT
.WORD

EXIT
EMT

001000

;SET EXPECTED STATE VALUE

ERR7

TRAP
.WORD

032737

110 024522

36$%:

#3,R3
PC,GSTATC

.WORD
.WORD

EXIT

106 024500

107 024506

MoV
JSR
1365%
CMP
BEQ

106443
000464

97 024432
98 024440
99 024444
100 024450
101 024454
102 024456
103 024464
104 024466

000003
015704

SEQ 0095

TSERCODE
311

MOV
Mov
Mov
JSR
1365%
(MP
BEQ
DEC
BEQ

R3,T.STAT
49%
R1
47%

MOV

#1,R0

WAITUS

#3000. ,R1
;SET WAIT COUNT FOR 300 MS
NSTACHG,ERHEAD :SET ERROR HEADER
#6,R3
;SET EXPECTED STATE VALUE
PC,GSTATC
;GET STATUS

sCHECK IF STATE &
JYES = S|P

:DEC WAIT COUNT
;SKIP IF O

CIZRLIAQ RLO1/2 DR _TST 1 MACRO v03.01
*TEST 3
HEAD LOADING

024616
126 024620
127 024622
024622

024630
024632
02463¢
024640
024644
024650
024652
024656
024660
024662

104032

wgwuquWN
NOWVESWN—-0OV

P
P
—

—

024664
024664

024670
024672

149
150
151
152
153

000136
012701
012703
004737
024770
020337
001413
005301
001404

012700
106027

104443
000471
013252

024702
024704

104032
000064
012701
004737

024706
024712
024716
024720
024726
024730
024732
024734

024734
024740

024742
024744
024752

024756
024762
024762
024764
024766

54
55 024770
56 024770
57 024770
024770

024770

000454
000005
015704

49%:

50%:

002762

024770
032737
001020
005301
001404

51%:

55%:
56%:

000120
015704

000001

002746

012700

000763
012737
012704
012703

002714

60%:

.WORD
.WORD
EXIT
EMT
.WORD

MOV
MOV

JSR
1365%
CMP
BEQ
DEC
BEQ

PC,GSTATC

R3,T.STAT
55%

MOV

TRAP

TSERCODE

EMT
BR
ERRHRD

.WORD
.WORD
EXIT
EMT
.WORD
MOV
JSR
1365%
BIT
BNE
DEC
BEQ
WAITUS

EMT
BR

MOV

MOV
MOV

TRAP
.WORD

000472
012324

R1
51%
"
#1,RO

ERRHRD

104443

;CHECK

STATE 5

JYES = SKIP
;DEC WAIT COUNT
JELSE SKIP

313
ERR7

187
CSEXIT

L10022-.
#80. ,R1

PC,GSTATC
#DRDYMSK,T.CS

62%
R1

60%
"

#1,RO
(Swiu
56%

#MISTST ERHEAD

#STATES
R4
#MDRDY ,R3

314, ,ERRS

TSERCCDE

.WORD

314
ERRS

EMT

CSETST

1365%:

104001

;SET WAIT COUNT FOR 30 MS

sSET EXPECTED STATE VALUE
;GET STATUS

(SwTu
50%

62%:

ENDTST
L10022:

SEQ 0096

TRAP

MOV

106027

7-4

EMY
BR
ERRHRD

WAITUS

000001

000764

024674
024676
024700

140 024702

7%:

1046443

000470
013252

139 024674

1641
162
143
146
145
146
147
148

104027
000764

024624
024626

128 024630

9-FEB-79 19:14:22 PAGE

;SET WAIT FOR 8 MS
;GET STATUS
;CHECK

DRIVE

JYES = SK]P
sDEC COUNT
sSKIP 1F

READY

:SET ERROR HEADER

:SET CONDITION MESSAGE POINTER
:SET NAME MLCSSAGE POINTER

NOVESsWwW

b pe

CIRL AD RLO1/2 DR TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 8
4
HEAD UNLOADING

024772
024772
024772
024776

LSBTTL
BGNTST

005737
001003
005737
1004C2

003252
013712
8%:

—

~N
A

O 0o

w
~N

~N
w

VS WNN-2O

ol el
e
D
el

000566

104002

012737
004737
004737
025466
032737
001040

108:
BGNSUB

006324
015652
015670

002714

000001

002746

—

N
W

025122
025124
025126
025130
025132
025134
025136

16 025136

005737
001740

004256

22 025144
2% 025152
025152
025154
025160
025164
025170
025174
025200
025204
025210
025214

052737

000010

20 025142

002735
005743
002730
005732
007544
007232
011050
000007

FIR5T PASS

151

MISWIW

sTEST

MANUAL

EMT

($BSUB

BNE
PRINTF
CLR
B1SB

MOV

MOV
MOV
MOV
MOV

EMT

ADD

10000%:

(LR
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

3%:

4%:

UNSTACHG,ERHEAD
PC,TSTINT

:NO - SK]P

JYES = SKIP

INTERVENTION

16.1:
;SET ERROR HEADER
sINITIALIZE

PC,GSTATIR

sGET STATUS

#DRDYMSK,T.CS

sCHECK

DRIVE

:YES = SKIP

TEST

READY

#FMTOP1,#0PR6,#OPR1A,#BASADD
,RLBAS ,#DRVNAM,<B ,RLDRy*1>
=(SP)
RLDRV+1,(SP)
#DRVNAM,-(SP)

RLBAS,-(SP)
#BASADD ,-(SP)
#OPR1A,=(SP)
#OPR6,=(SP)
#EMTOPY,~(SP)
#7,-(SP)

SP,RO
CSPNTE
#20,5P
OBUF ¥

;CLEAR FOR RESPONSE

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

?PROOZ

187

OBUFF
1%

B1S

SULOAD ,OPFLAG
:SET UNLOAD OPERATION
lfg;??l.lOPRS,lOPR\A,leASADD.RLBAs,oonvuAn,<a,aLpnv.1>

BEQ

002706

BM]
108
EXIT TST
EMT
(SEXIT
.WORD
L10023-.

MOV
MOv
MOV

000001

;TESTOG

BIT

000020
004256

HEAD UNLOADING
sTEST

JSR
JSR
1465%

1%:

SEQ 0097

PASNUM

MOV

002735
005743
002730
005732
007544
007310
011050
000007

17 025116
18 025122

*TEST &

1§71
BNE

106032

—

*TES

PRINTF

(LR

8158

MOV
MOv
MOv
MOv
MOv
MOV
MOV
MOV

:1ST RESPONSE
JNO = SKIP

YES

RLDRy+1,(SP)

#DRVYNAM,-(SP)

RLBAS,=(SP)

#BASADD,~=(SP)
#OPRIA,=(5P)

#OPRS,=(5P)

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

SP.RO

——————————

CIRLIAD RLO1/2 DR _TST

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

HEAD UNLOADING

025216
025220
025226
025230
025234
025240
025244
025246
025252
02525¢
025262
025264
025266
025270

104017

062706
012703
012704
012701
004737
025468
020337
001436
022737
001025
005304

012700
106027
000754
005037

005737
001706

5%:

002762
000005

000144
000001
004256

004256

002762

6%:

7%:

10001%:

000621
013252
104032

000126
012703
012701
004737
025466
020337
001413
005301
001404

012700

104027

000764

104443

000622

013252

025420

104032
000054

000007
005670
01570¢

JSR
1465%

(mp

:
9%

104447

ADD
MOV
MOV
MOV

BEQ

8%:

104043
000404
004256
000120
007077
000001
42
43

EMT

000020
000606
000144
001274
015704

001004

005301
001406
012704

SEQ 0098

11%:

12%:

002762

(MpP
BNE
DEC
BNE
DEC
BtQ

MOv

WAITUS
MOV

EMT
BR
(LR
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD
181

BEQ
ERRHRD
TRAP

.WORD
.WORD
ExlT
EMT
.WORD

MOV
MOV

JSR

T465%
(mp

BEQ
DEC
BEQ
WALTUS

000001

MOv

EMT

16%:

ERRHRD
TRAP
.WORD

.WORD
X1
EMT
.WORD

CSPNTF

#20,SP
#6,R3

#100. R4

#700. R
PC.GSTATC

R3,T.STAT
11%

sSET
;SET
;SET
;GET

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

;CHECK

STATE 6

;YES = SKIP

#5,1.5TAT
9%

;TEST

SKIP
ELSE ¢
:lF 2
};ELSE
3;WALT 1

IF NOT O
DEC IST LEVEL COUNT
-5 KIP TO QUESTION
RESET zno LEVEL
100
U

R
4 ]
#100..R4
LA
#1,R0

STATE

:NO = REPORT WRONG STATE
:DEC 2ND LEVEL COUNT

(Swiv
5%

OBUFF

;CLEAR FOR RESPONSE
OPROO3,0BUFF,1,NO
(SGMAN
10001%
OBUFf
1$CODE

?PROOS

OBUFF
6%
401., ,ERR7
TSERCODE

;TEST IF RESPONSE
sNO = SK]IP

YES

SELSE REPORT STATE (MANGE WRONG

401

ERR7

SuB
CSEX]T

L10024~.

#7,R3

#3000, ,R!

JSET EXPECTED STATE vALUE
:SET COUNT FOR 300MmS

PC,GSTATC

;GET STATUS

R3,T1.S1AT
18%

sCHECK 1F STATE 7
JYES = SK]P
;DEC WAIT COUNT

R1
16%
[ A

;SkIP 1F O

#1,R0

(Swiu
12%
402., .ERR?

TSERCODE
40?2

ERR7
SUB

($Ex1?

110026+,

;REPORT

WRONG

STATE

(MANGE

CIRLIAD RLOY/2 DR TST

«TEST

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

8
SEQ 0099

HEAD UNLOADING

58 025422
59 025424
60 025430
61 025434
62 025436
63 025442
64 025444
65 025446
66 025450
025450
025456
67 025456
68 025460
025460
025462
025464
69 025466
70 025466

005003
012701
004737
025466
005737
001411
0053C1
001404
012700
104026

73 025476

025476
025500
025504
025510
025514
025520
025524
025530
025534
025540
025542
025544

764 025550
75 025554

000001

MOV
EMT

000623
013252

000002

002720

R3
#600. ,R1

;SET EXPECTED STATE VALUE
;SET WAIT COUNT FOR 60 SECONCS

T.STAT
24%

sCHECK IF STATE 0
;YES - SKIP

22%

;SKIP IF O

PC,GSTATC

’n
#1,R0
(SWTM

20%
403., ,ERR7

;GET STATUS

;DEC WAIT

COUNT

22%:

BR
ERRHRD

.WORD
.WORD

T1465%:

MOV

#2 ,ERRSWI

EMT
PRINTF

li:;OP\.IOPPb.lOPR1A.ISASADD.RLBAS.IDRVNAH.<B,RLDRVO1> sREQUEST CYCLE uP

6%:

TRAP

TSERCODE
403

;REPORT WRONG STATE C(HANGE

ERR7

;INIT ERROR SWITCH

ENDSUB

L10024:

104003

005046
153716

012746
013746
012746
012746
012746
012746
012746
010600

106017
062706
005037
104043
000404

76 025570
77 025574
78 025576

005737

80 025576
025576
025576

WAITMS

106443

012737

CLR
MOV
JSR
16465%
187
BEG
DEC
BEQ

000764

025554
025556
025560
025562
025564
025566

025570

20%:

002702

72 025474

025474
025474

18%:

001130
015704

26%:

002735

005743
002730
005732
007544
007310
011050
000007

001740

MOV
MOV
MOV
MOV
MOV
MOV
MmNy
MJV
EMT

000020
004256

004256
000120
007052
000001

004256

CLR
BISB

ADD
CLR

GMANIL
EMT
BR

10000%:

29%:

.WORD
.WORD
.WORD
.WORD

(SESUB
=(SP)

RLDRV+1,(SP)

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

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

SP,RO
CSPNTF

#20,5P

OBUFF
;CLEAR FOR RESPONSE
,1,NC
0BUFF
OPRO0Z2,
CSGMAN
10000%
OBUFF
T$CODE
?PROOZ

BEQ

187

OBUFF
26%

EMT

(SETST

ENDTST

104001

L10023:

;TEST RESPONSE YES
:NO = SKIP

CIRLIAD RLOV/2 DR _TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 9

*TEST S

DRIVE SELECT

.SBTTL
BGNTST

000002
003252

002720

000004

013712

MOv
181

1%:

002735
005743
002730
005732
007544
007343
011050
000007

POPOUNONUNUND
=
it oo
it et e et =t

NN = O 000 “NO NI
W
-

9 025676
10 025702

025702
025704
025706
025710
025712
025714
025716
025716
025722
025724
025732
025736
025742
025744
025752
025756
025762
025766
025772
025774
025776
026002
026002
026006
026012
026014
026020
026024
026030
026034
026036
026040

27 026044

062706
005037
106043

004256

006436
015652
015704

002714

002734
002734
000004
000400
002000

003020

002734
007560
007550
002735
007372
011121
000005

3%:

4%:

5¢%:

EXT05

RLDRV+1,(SP)

#DRSELT,MISWIW

:SET FOR NO ERROR RETURN

STEST

FIRST PASS

:TEST

SELECT

INO - SKIP

TESTS

l:g;??l.IOPRT.IOPRIA.'BASADD.RLBAS,lDRVNAH,(B.RLDRV’I) ;REQUEST REMOVE ALL P
#DRVNAM,-(SP)
RLBAS,=(SP)
#BASADD,~(SP)

#OPR1A,=(SP)
#OPR7,-(SP)
#EMTOP1,-(SP)
#7,-(SP)

SP,RO
CSPNTF

ADD
CLR
GMANIL

#20,SP
OBUFF

.WORD
.WORD
.WORD

OBUFF
T$CODE
?PROOZ

187

OBUFF
1%
#TOSERR,ERHEAD

;: TEST RESPCNSE YES
:NO - SKIP
;SET ERROR HEADER MESSAGE

RLDRV, TEMPO
RLDRV,R1

;:STORE ORIGINAL DRIVE NUMBER
;PUT IT IN R1

.WORD

BEQ

MOV

JSR
JSR

1504%

LPT0S5:

#2 ,ERRSWI

PASNUM

B1SB

PRINTF
CLR

EMT
BR

10000%:

;TESTOS

EXTO05

EMT

000020
004256

DRIVE SELECT

BNE
BIT
BEQ

MOv
MOV
MoV
MOV
MOV
MOV
MOV
MOV

000404
004256
000120
007052
000001
005737
001740
012737
004737
004737
026124
013737
013701
012704
062701

*TEST 5

SEQ 0100

MoV
MoV
MOV
ADD
CMP
BNE

CLR

MOov
PRINTF
MOV
MOv

CLR
B1SB

MOv
MOV
MOv
MOV

EMT

:CLEAR FOR RESPONSE

OPR00Z2,0BUFF ,1,NO
CSGMAN

10000%

PC,TSTINT
PC,GSTATC

¥4 R4

:INITIALIZE TEST
:D0 SELECT AND GET STATUS

;SET

COUNT

FOR NUMBER OF

#400,R1
:BUMP TO NEXT DRIVE
#2000,R1
sCHECK IF TO LARGE
4%
:NO - SKIP
R1
;ELSE CLEAR TO DRIVE 0
R1,RLDRV
:PUT IT BACK IN RLDRvV
#FMTOP3,#OPR8,<B,RLDRV+1>,#OPR1B,#UNDTST
FUNDTST,-(SP)

#OPR1B,=(SP)

=(SP)
RLDRV+1, (SP)
#OPR8,~(SP)
#FMTOP3,-(SP)

#5,-(SP)
SP,RO
CSPNTF

000014

ADD

#14,5P

004256

CLR

OBUFF

: INSERT PLUG REQUEST
:CLEAR FOR RESPONSE

PLUGS

(%gg%lg) RLO1/2 DR TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 9-1
DRIVE SELECT

28 026050
026050
025052
026054
026056
026060
026062
026064
29 026064
30 026070
31 026072
026072
026072
32 026074
33 026100
34 026102

104043
000404
004256
000120
007052
000061
|
00573/
001744
104002
004737
026102
012757

36 026110
026110
026110
37 026112
38 026114
39 026116

104003
005304
001322
013737

026124
026130
026134
026140
026144
026146
026150

012746
012746
012746
012746
010600
104017
062706

026160
026162
026164
026166
026170
026172
026174

104043
000404
004256
000120
007052
000001

40 026124
41 026124

42 026156
43 026160

44
45
46
4«7
48

026174
026200
026202
026202
026202

026202

005037

005737
001751

104001

10001$:

004256

BGNSUB
015704

000002

002720

60S:
ENDSUB
110026

003020
007411
007372
011164
000003

002734
|

15048
4$:

000010
004256

004256

100008:
EXTOS:
ENDTST
L10025:

sEa 0101

GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

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

1ST
BEQ

OBUFF
5%

;TEST RESPONSE YES
IND = SKIP
15.1:

EMT
JSR
60
WOV

($SBSUB
PC,GSTATC

;GET STATUS = REPORT ANY ERROR

#2,ERRSI

;INIT ERROR SWITCH

EMT
DEC
BNE
MOV

CSESUB
R&
LPT0S
TEMPO,RLDRV

;DEC_COUNT
:LOOP IF NOT ZERO
:ELSE RESTORE RLDRV

PRINTF

#FMT4,#OPRS, #OPR9

MOV
MOV
MOV
MOV
MOV
EMT
ADD

NOPR9.=(SP)
#OPRS,=-(SP)
WEMT4,=(SP)
#3,-(5P)
SP,RO
CSPNTF
#10,5P

CLR
GMANIL

OBUFF
;CLEAR FOR RESPONSE
OPR002,0BUFF,1,NO

1ST
BEQ

OBUFF
48

EMT

CSETST

EMT
BR
.WORD
.WORD
.WORD
.WORD

CSGMAN
10000%
OBUFF
T$CODE
OPR002
1

;TEST RESPONSE
INO = SKIP

YES
-

CZRLIAO RLO1/2 DR TS 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 10
DRIVE SELECT TEST

*1EST 6

2 026204
026204
3 026204

& 026210

5 026212
6 02622
7 02622

026270

18 026272

026272
19 026274
20 026276
21 026302
22 026304
23 026310
24 026316
25 026324
26 026332
27 026340
28 026346
026346
026352
29 026354
30 026360
31 026362
32 026370
33 026372
34 026374
026374
026400
026404
026410
026412
026414
35 026420
%? 026424

38 026432
39 026436
40 026442

41 026446
42 026452

43 026456

.SBTTL
BGNTST

005737
001004
032737
0010G2
104032
000630
012737
004737
013703
023727
101450
005203
020337
101401
05003

003252
000004

187

013712
1%:

006372
015652
003254
002012

002714

4%:

000001
2%:

002012

010300
1046042
103370

002710
000104
000010
000013
002742
002736

012700

000003

005737

002710

106026

002730

100000

000730
012746
012746
012746
010600
104017
062706
000137
016437

007426
011361
000002

013700
013705
042700
042705
020527
001001

002734
003022
002000
002000
001400

000006
027054
000010

#GSTER1,ERHEAD
PC,TSTINT
PSETNM,R3

;SET ERROR HEADER
;INITIALIZE TEST
;GET PARAM SET NUMBER

BLOS
INC
CMP

5%
R3
R3,LSUNIT

:NO - SKIP
;BUMP PARAMETER SET NUMBER
sCHECK IF PAST VALID PARAMETER TABLE

CLR

;ELSE CLEAR TO POINT TO ENTRY 0

CMP

LSUNIT, #

MOV
JSR
MOV

GPHARD

;TEST IF MORE THAN 1 UNIT

:NO - SKIP

MOV

RO.R4

:PUT POINTER INTO R4

BNE

:NO - SKIP

(R&) ,RLBAS

;CHECK

SAME

CONTROLLER

CLR
MOV

DONE
#GTSTAT,L.CS

MOV
MOV
MOv

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

10(R4),L.CS

#3
#3,RO0
CSWTM

:CLEAR DONE FLAG
:LOAD GET STATUS

: INSERT DRIVE

;WAIT 300 MS

18T

DONE

;TEST

BIT

#ANYERR,T.CS

sTEST IF ANY ERROR SET

PRINTF
MOV
MOv
MOV
Mov
EMT

#FMT9,#0PR10
#OPR10,-(SP)
#EMT9,-(SP)
#2,-(SP)
SP,RO
CSPNTF

JMP

LCLEXT

BEQ
BR

7%:

Mov

9%:

MoV
MOV

20%:

R3,RO

FIRST PASS

:SKIP IF NOT AVAILABLE

ADD

003022

:NO - SKIP
;CHECK IF TEST DRIVE SELECT
;YES - SKIP

MOV
R3,R0
EMT
CSGPHRD
ggEOHPLEEE
2%

BEQ

5%:

TEST

sCHECK

WAITMS
MOV
EMT

002746

;TESTO6

1%
#ORSELT MISWIW
3
187
CSEXIT
L10027-.

BIS

002742
000004
000000

SELECT

PASNUM

CMP

002736
002736

DRIVE

BNE
Bl
BNE
EXIT
EMT
.WORD

BLOS
3%:

010004
021437
001364
005037
012737
056437
012737
013762
013762

*TEST 6

SEQ 0102

7%
2%

INTERRUPT

:NO - GO TEST
;ELSE CHECK NEXT DRIVE

;REPORT CAN'T FIND 2ND DRIVE

¥6,SP

10(R4) , TEMPY

RLDRV,RO
TEMP1,RS

BIC
BIC

#2000,R0
#2000,R5

BNE

21%

CMP

:NO - SKIP

RS ,#1400

:STORE WEW ADDRESS

sASK tOR PLUG CHANGE

:GET DRIVE UNDER TEST
:GET NEW ADDRESS

:CLEAR FOR ADDRESS 0 10 3
;TEST

IF DRIVE NUMBER 3

:NO = SKIP

CIR L 1A0 RLO1/2 D R TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 10-1
DRIVE SELECT TEST

*] ES 16

44 026460
65 026462
46 026466
47 026470
48 026472
49 026476
50 026502

026502
026504
026510
026514
026516
026522
026526
026532
026536
026540
026542
51 026546
52 026552
026552
026554
026556
026560
026562
026564
026566
53 026566
56 026572
55 026574
56 026600
026600
026600
57 026602
58 026610
59 026616
026616
026622
60 026624
61 026632
62 026640
63 026646
64 026652
65 026660
026660
026664
66 026666
67 026672
68 026674
69 026700
70 026702
71 026704
026704
026706
026710
026712
72 026714

21%:

000400

010562
005046
153716

000200
000000

CLR
BISB

003023
007550

MOV

CLR
B1SB

MOV
MOV
MOV
MOV

EMT

000014
004256

ADD

104043
000404

004256
000120
007052
000001

10000%:

004256

BGNSUB

002736
000000

000012

000104
000003
002742
002710
002736
000001

002710

015520
001406
104463

001131
006372
012072

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

BEQ

000012

002734
002736

CHP
BEQ
BIS

MOv
PRINTF

002735
007372
011077
000005

005737
001717
012704

CLR

ADD

002736
002742
000004
000000

3%:

MOV

EMT

MOV
MOV
WAITMS
MOV

EMT
BIS

MOV
MOV

CLR
MOV
WAITUS
MOV
EMT
187
BNE
JSR
MOV

BEQ
ERRHRD
TRAP

.WORD
.WORD
.WORD
EXIT

RS
#400,RS

SEa 0103
.

RS,RO
20%

:ELSE SET TO DRIVE NUMBER 0
:BUMP TO NEXT ADDRESS

:THIS EQUAL TO NEW ADDRESS?
:YES - SKIP

#CRDYMSK ,RS
*ELSE SET CONTROLLER READY BIT
RS,RLCS(R2)
:AND LOAD CS REG
l{g;?PZ.IOPR8.<B.RLDRV*l>.l0PR18.<B.TEHP101>
TEMP141,(SP)
#OPR1B,=(SP)
=(SP)
RLDRV+1,(SP)
#OPR8,=(SP)
#ENTOP2,-(SP)
#5,-(SP)

SP,RO
CSPNTF

#14,SP
OBUFF

:CLEAR FOR RESPONSE

OPR0O02,0BUFF ,1,NO
CSGMAN

10000%
OBUFF
T$CODE
?PROOZ

OBUFF
9%
#10..R4

C$BSUB
RLDRV,L.CS

L.CS,RLCSR(R2)

#10.
#10.,R0
CSWTM

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

;TEST IF RESPONSE YES
:NO - SKIP
sSET COUNT

16.1:
sSET UP TO SELECT MULTIPLE DRIVES

:DO IT

:SET GET STATUS

L.DA,RLDA(R2)

DONE
L.CS,RLCSR(R2)
#1
#1,R0
CSwTU
DONE
12%
PC,WAITIN
(SP)+ ,R3
12%

601.,GSTER1,ERR1
TSERCODE

601
GSTER
ERR1
SUB

;D0 GET STATUS

;WAIT FOR INTERRUPT
;CHECX

INTERRUPTED

sYES - SKIP

sWAIT FOR TIMEOUT

sGET ERROR POINTER
:SKIP IF O

CIRLIAO RLOY1/2 D R TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 10-2

*TEST &

DRIVE SELECT TEST

026714
026716
73 026720
026720
026724

74 026726
75 026732
76 026734
77 026742
78 026744
79 026750
026750
026752
026754
80 026756
026756
026760
81 026762
82 026766
83 026770
84 026772
85 027000
027000
027000
86 027002
027002
027006
027012
027016
027020
027022
87 027026
88 027032
027032
027034
027036
027040
027042
027044
027046

89 027046
90 027052
91 027054

104032
000062

012700

EMT
.WORD

12%:

000002

WAITHS

MoV
EMT
JSR
60%

015720
000400

012703

002754

BIT

BNE
MOv
ERRHRD
TRAP
.WORD
.WORD

010241

104443

001132
012206
104032
000020
010562
005304
001304
012737

00000C
000002

012746
012746
012746
010600

0C7474
011361
000002

062706
005037

000006
004256

104043
000404
004256
000120
007052
000001

005737
001753

16%:

002720

MOV
DEC
BNE
MOV

60%:

ENDSUB

L10030:

104003

104017

EX1T
EMT
.WORD

00425¢

15%:

EMT

PRINTF
MOv
MOv
MOv
MOV
EMT
ADD

10000%:

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

CSEXIT
L10030-.
"
#2,R0
CSWTh -

sWAIT FOR DSE TO SET

PC,GSTAT

:GET STATUS

#DSESTAT,T.MP

;TEST IF DRIVE SELECT ERROR SET

16%
#MDSERR ,R3

602.,,ERR3
TSERCODE

suB

CSEXIT
L10030-.
RS ,RLCS(R2)

sLOAD IN DIFFERENT ADDRESS

;LOOP IF NOT ZERO

#2 ERRSWI

(SESUB
#FMT9,#0PR11
#OPR11,-(SP)
#EMT9,-(SP)
#2,-(SP)
SP,RO
CSPNTF

¥6,SP
OBUFF

027054

104001

sDEC COUNT

sINIT ERROR SWITCH

;REQUEST PLUG CHANGE

;CLEAR FOR RESPONSE

CSGMAN
10000%

OBUFF
T1$CODE
?PROOZ

OBUFF
15%

" EMT

CSETST

92 027054

027054

;YES - SKIP
sSET NAME MESSAGE POINTER

602
ERR3

BEQ

181

SEQ 0104

:TEST RESPONSE YES
:NO = 5KIP

CZRLIAQ RLO1/2 DR TST 1 MACRO v03.01 9=FEB=79 19:14:22 PAGE 11
STEST 7
INITIAL STATE
1

2 027056
027056
3 027056
& 027064

LSBTTL

012737

:
006423

004737

015652

027070
027074
6 027076
7 027102
8 027104
9 027112
10 027114
11 027120
}; 027122

012763
104027
004737
027406
032737
001003
012703
000427
012703

000012

000001

14 027126

020337

002762

027134
027136
027140
17 027142
027142
027144
18 027146
19 027152
20 027156
21 027160
22 027164
23 027166
24 027172
25 027174

104443
001275
013252

5 027070

15 027132
16 027134

26 027200
027200
027202
0272064
27 027206
027206
027210
28 027212
29 027216
3G 027220
31 027224
32 027226
33 027232
34 027234

35 027240
36 027244
027244
0272646

027250
37 027252
027252

027254
38 027256
39 027262

001405

104032
000242
013701
032701
001003
012703
000405
032701
001007
012703

100034

005737
003031
032701

001411
(012703
012704

002714

002746

002754
000020

010230

000010
010204

013712

7%:

98 :

10%:

003252

000100

010146
011020

104032

000132
032701
001003

001000

13%:

;SET ERROR HEADER

#10.

SWALT 1 S

#DRDYMSK,T.CS
38
#MDRDY ,R3
9%
#5,R3

;CHECK IF DRIVE READY
SYES=SKIP
:SET NAME MESSAGE POINTER
160 REPORT
SSET EXPECTED STATE VALUE

CMP

R3,T1.STAT

;CHECK IF STATE 0K

TRAP
.WORD
.WORD
EXIT
EMT
.WORD
MOV
BIT
BNE
MOV
BR
BIT
BNE
MOV

T$ERCODE
701
ERR7
181
CSEXIT
L10031-.
T1.MP,R1
#HOSTAT,R1
7%
#MHOSTA,R3
9%
#BHSTAT,R1
108
#MBHSTA,R3

ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
.WORD
187
BPL
18T
BNE
BIT
BEQ
MOV

.WORD
BIT
BNE

5%
701.,.ERR7

702.,.ERR3
TSERCODE
702
ERR3
TST
CSEXIT
L10031-.
MISWIW

168

PASNUM
168
FHSSTAT,R1

138
#MHSTA,R3
#CCYLUP, RS
703.,.ERR4
TSERCODE
703
ERR&
TSI
CSEXIT
L10031-;
#VCSTAT,RI
158

JINITIALIZE

1::

#10.,R0
CSWTU
PC,GSTATC

.WORD
EXIT
EMT

012254

#INITST,ERHEAD

MOV
EMT
JSR
65%
BIT
BNE
MOV
BR
MOV

MOV
ERRHRD
TRAP
.WORD

104443
001277

INITIAL STATE

:TEST 07
PC,TSTINT

BEQ
ERRHRD

5%:

JSR

wAlTUS

010013
000005

«TEST

MOV

015704

104443
001276
012206
104032
000176
005737

BGNTST

SEQ 0105

TEST

:GET STATUS

SYES=SKIP
;ELSE REPORT STATE ERROR

JEXIT

;GET MP REG
.
SCHECK HEADS OUT
SYES-SKIP
SSET NAME MESSAGE PTR
160 REPORT
:CHECK BRUSH HOME SET
SYES=SKIP
;SET NAME MESSAGE PTR
*REPORT ERROR

GEXIT
sTEST .JF MANUAL INTERVENTION RUN

:NO-SKIP

SCHECK IF FIRST PASS
:NO-SKIP
“ELSE CHECK HD O SELECTED

SYES=SKIP
:SET NAME MESSAGE PTR
sSET CONDITION POINTER
;REPORT ERROR

CEXIT
|

;CHECK vOL CHECK SET
SYES=SKIP

C :g%l? RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
INITIAL STATE

11-1

SEQ 0106

40 027264
61 027270

&2 027272
43 027300
44 027302
45 027306

46
47
48
49

027310
027314
027316
027322
027322
027324
027326
50 027330
51 027334
52 027342
53 027344
56 027350
55 027352
56 027354
57 027356
58 027360
027360
027362
027364
59 027366
027366
027370
60 027372
61 027376
62 027402
63 027404
o4 027406
65 027406
66 027406
027406
027406

012703
000743
032737
001003
012703
000734
0327G1
001405
012703

104443
001301
012140
042701
023727
001404
022701
001410
000402
005701
001405

010160

040000

104001

15%:

010135

020000

16%:

010217

021177
002200

000001

17%:

000200
99%:
18%:

104443
001300
012374

104032
000016
013701
042701
005701
001365

002746

002746
141777

19%:

25%:
65%:
ENDTST
L10031:

MOV
BR
BIT
BNE
MCv
BR
BIT
BEQ
MOV
ERRHRD
TRAP

#MVOLCK,R3
9%

;ELSE SET NAME MESSAGE PTR
;GO REPORT

#MDRERR ,R3
9%
FULSTAT,RI
17%
#MULSTA,R3
705., ,ERR2
TSERCODE

;ELSE SET NAME MESSAGE PTR
;GO REPORT

#DRVERR,T.CS
16%

.WORD
.WORD
BIC
CMP
BEQ
CMP
BEQ
BR
TS1T
BEQ
ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
.WORD
MoV
BIC
18T
BNE

705
ERR?
#21177,R1
T.DRIVE,#1
99%
#200,R1
19%
18%
R1
19%
704., ,ERRG
TSERCODE
704
ERR6
187
CSEXIT
L10031-,
1.CS,R1
#161777,R1
R1
18%

EMT

CSETST

:EST DRIVE ERROR SET
s YES-SKIP

;CHECK WRITE LOCK STATUS
:SKIP IF RESET
;ELSE SET NAME MESSAGE PTR

;CLEAR STAUS EXCEPT FOR ERROR BITS

:NO-SKIP
;ELSE REPORT ALL ERRORS

JEXIT
;:GET (S REG
;CLEAR ALL BUT ERROR BITS
;TEST IF ANY ERROR SET
;YES=SKIP TO REPORT

CIRLIAQ RLOV/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 12
7

SEQ 0107

INITIAL STATE.

SN
-

LSBTTL
BGNTST

~N
N

VS W =000V

*1EST

012737
004737

006423
015652

004737
027472
005737
100016
005737
001013
032737
001407
012703
012704

015670

104443
001441
012254

002714

013712

000100

MCvV
JSR

#INITST ,ERHEAD
PC,TSTINT

g%:

PC,GSTATR

1St

MISWIW

002754

:NO=-SKIP

BEQ

sYES=SKIP

801.,,ERRS

:REPORT ERROR

PASNUM

#HSSTAT,T.MP

MOV
MOV

#MHSTA,R3
#CCYLUP,RG

TRAP

TSERCODE

ERRHRD

4%:

.WORD

801

EMT

CSETST

.WORD

ERR4

65%:

ENDTST

027472

104001

L10032:

:CHECK IF MAN INTERVENTION WAS RUN

BNE

BIT

010146
01102C

:GET STATUS WITH RESET
:NO=-SKIP

181

JINITIALIZE TEST

BPL

003252

INITIAL RESET STATE
;TEST 8

+TEST 8

:CHECK IF 1ST PASS

:CHECX WD SELECT STILL O

:SET NAME MESSAGE PTR
:SET CONDITION POINTER

~
w
&

oo NN
NN NN

SW
NO VY
VS NN =0V
NO
= OV

00000000000 OCO0OO0O0O000O

——
P
R
R
L I

.SBTTL
BGNTST

*~
-~

AO RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
INITIAL RESET STATE

012737
012701
005021
005021
005021
005011
004737
004737
027772
004737
010537
004737
027772
012703
012704
004737
027772
032737
001405

00645 1
003004

002714

000166
012701
004737
027772
012703
023703
001405

000121
015720

4%:

5%:

000005
002762

000747
027676
027700

104443

001607
012324

MOV
MOV

#MDRDY ,R3

.WORD
.WORD
EXIT
EMT
.WORD

010013
000001

002746

7%:

:STORE AS DESIRED HEAD

;SET
;GET

lgRDYHSK.1.(S

;TEST

901., ,ERR4
TSERCODE
901
ERR4
181

CSEXIT

L10033-.

SEEK

;:SET NAME MESSAGE PTR

#CDRDY R4
PC,GSTAT

SIMPLE

CONDITION POINTER
STATUS
READY

SET

:NO-SKIP
;REPORT READY ERROR

JEXIT

sSET WAIT COUNT
;GET STATUS

MOV

#5,R3

BEQ
ERRHRD

902., ,ERR7

;SET EXPECTED STATE VALUE
;CHECK STATE IS 5
: YES-SKIP
;ELSE REPORT

JSR

65%

.WORD
EXIT
EMT
.WORD

PC,GSTAT

T.STAT,R3
7%

TSERCODE
902

ERR7
187

CSEX]T

L10033-,

MOV

#MDRDY ,R3

BNE
DEC

12%
R1
9%

BIT

BEQ

WAlTUS

000001

RS ,DESHD

#81, ,R1

MOV

TRAP
.WORD

104032

104027

;EXECUTE

CMP

104443

012700

JSR

PC,SIMSEK

TRAP

001606
013252

000130
012703
032737
001013
005301
001404

;POSITION HEAD SELECTED BIT

ERRHRD

104032

;SET ERROR HEADER

PC,POSHSB

65%
BIT
BEQ

001605
012254

#TO9ERR ERHEAD

JSR

104443

;TEST 9

;GET POINTER TO DESIRED LOC
;CLEAR NEW CYL
;CLEAR CURRENT CyL
:
DIFFERENCE
:
SIGN
;INITIALIZE TEST
;GET STATUS WITH RESET

65%

002746

DRIiVE READY

NEWCYL,R]
(R1)+
(R1)+
(R1)+
(R1)
PC,TSTINT
PC,GSTATR

MOV

010013
010761
015720

SEQ 0108

CLR
CLR
CLR
CLR
JSR
JSR

65%

020616
003014
017324

000001

*TEST 9
MOV
MOV

015652
015670

#DRDYMSK,T.CS

;CHECK

READY

SET

s YES-SKIP
;ELSE DEC WAIT
(SKIP IF 0

COUNT

MOV

9%:

EMT
BR
ERRHRD
TRAP

;REPORT

READY

ERROR

CIRLIAQ RLOV/2 DR TST 1 MACRC v03.01 9-FEB=79 19:14:22 PAGE
9
DRIVE READY

6 027706
&5 027712
6 027714

027714
027716
027720

&7 027722

027722
027724

«8 027726

9 0277%2

S0 027736
51 027742
52 027744
53 027750
54 027752
027752
027754
027756
55 027760
027760
027762
56 027764
027764
027766
027770
57 027772
58 027772
59 027772
027772
027772

EXIT
EMT
.WORD

104032

000066

005737

100005

0027«6

12%:

187

104443

BPL
ERRHRD
TRAP

104032

EXIT
EMT

001610
012374
000046
012703
004737
020537
001413
005737
001405

.WORD
.WORD

010146
02061¢
003014

15%:

003014

ERRHRD
TRAP

104443

001611
012206
104032
000010
104443
001612
012140

.WORD
MOV
JSR
(Mp
BEQ
187
BEQ
.WORD
.WORD

17%:

20%:
65%:

E Xi1
0 033-.

LS
8

5$
904., ,ERRS

L10033:

;TEST 1F ANY ERROR
:NO=-SK]P

TSERCODE
904
ERRG
187

CSEXIT
L10033-,

PMHSTA RS

sSET NAME MESSAGE PTR

RS,DESHD
20%

sCHECK IF CORRECT HMEAD SELECTED
s YES-SKIP
;ELSE TEST IF 1 DESIRED

PC,POSHSB

DESHD

17%

TSERCODE
905

ERR3

EXIT
EMT
.WORD
ERRHRD
TRAP
.WORD
.WORD

906.,.ERR?
TSERCODF
906
ERR?

EMT

(SETST

187

CSEX]T
L10033-.

ENDTST

1064001

SEQ 0109

— P,

027702
027704

13-1

—

&2 027702

~ ey
-

«TEST

;POSITION HEAD SELECT BIT

:NO-REPORT SB 0

;ELSE REPORT SB 1

FOR TEST

CIRLIAD RLOY/2 DR TST 1 MACRO v03.01 9=FEB=79 19:14:22 PAGE
10
SEEK SIGN SwiT(H

«TESY

LSBTTL
BGNTST

2 027774
027774
3 027774

00646i
003004

&« 030002

5 030006

002714

6 030010
7 030012

8 030014
9 030020

030030
030034
030040
030042
030046
030050
030054

20 030060
21 030064
22 030066
2% 03007¢4
24 030076
030076
030100
030102
25 030104
030104
030106

;SEY ERROR HEADER

(R1)¢
{R1)+
(R1)¢

JSR
MOv

P(,POSKHSB

sCLEAR NEW CYL
sCLEAR CURRENT CYLINDER
sCLEAR DIFFERENCE
sSET FOR SIGN OF 1

030140
35 030142
030142

030 &
36 030140
37 030152
38 030160
39 030162

20 030164
&1 030166

030166
030172

&2 030174

ONEWC
YL R

#BIT0,(R1)

RS,(R1)e

($8SUB

GET SELECTED MEAD

sSET AS DESIRED HEAD
110.1:

PC,TSTINT
PC,GSTATR

:INITIALIZE TEST
;GET STATUS

017324

PC,SIMSEK

;D0 SEEK

010013
01076!
015720

#MDRDY ,R3

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

000001

#CDRDY
R4

PC,.GSTATY

002746

#DRDYMSK,T.(S

33
1001.,
. ERR4
TSERCODE
1001
ERRG
SUB

;(HECK READY RESET

sYES-SK]P
sREPORT

READY

ERROR

SEXIT SUBTEST

L10035~-.

030274
012703
020337
001405

000127
015720

4%:
5%:

000005
002762

cMp
BEQ

ERRHRD

106443
001752

TRAP

013252

104032

000130

012703
0327%7
001013
005301
001404

010013
000001

012700

000001

106027

000747

110::

015652
015670

CSEX]TY

27
28 030110

32 030126
33 0301%2
3¢ 030134
030134
030136

;TEST 10

#T10ERR ,ERHEAD

29 030114
30 030120
351 030122

SEEK SIGN SWIT(H

BGNSUB
OWNWO
O NW NWWO
VNSNS WS NS NN

13
14
15
16
17
18
19

030026
030026

1104%:

SEQ 0110

MOV
MOv
(LK

(LR
(LR
B1S

009001
020616

10 030024
11 030026
12 030026

*TEST

002746

7%:

.WORD
.WORD
Ex1T
EMT
.WORD

#81, R
PC,GSTAT

;SET WAIT COUNT
;GET STATUS

#5.,R3

;SET EXPECTED STATE

R3,T.STAT
7%
1002., ,ERR?7
TSERCODE
1002

ERR?7

;CHECK STATE

IS 5

:VES-SKIP
;REPORT STATE ERROR

SuB
CSEX]T

EXIT

MOV

#MDRDY ,R3

JSET NAME MESSAGF PTR

BNE
DEC
BEQ
WAl TUS

12%

MOV

EMT
B

L10035~-.

#DRDYMSK,T1.(S

#
#1,R0

($WwiU
5%

JCHECK READY

JYES=SKIP

SE7T

;00 WAIT COUNT
;SKIP IF O

CIRLIAD RLO1/2 DR TST

*TEST

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

SEEXK SIGN SWIT(H

63
&% 030176

030176

46 030210
«7 030214
4«8 030216

030216
030220
030222

4«9 030224
030224

030226

50
51 030230
52 030234
53 030240
5¢ 030244
55 030246
56 030252
57 030254

001753
012324

005737

104032
000010

030266
030270
030272

1064673

TRAP

.WORD
.WORD
Exl?
(1)
.WORD
181

ERRHRD
TRAP
.WORD
.WORD

EXIT
EMT
.WORD

000046

012703
004737
020537
001413
005737
001405

ERRHRD

BPL

104032

030262
030264

60
61 030274

12%:

001754
012374

104443
001755
012206

59 030266

002746

104443

030254
030256
030260

58 030262

SEQ@ 01
9%

106443

010146
020616
003014

14-1

15%:

003014

MOV
JSR
cmp
BEQ
187
BEQ
ERRHRD
TRAP

17%:

.WORD
.WORD
EXIT
EMT
.WORD
ERRHRD
TRAP

001756
012140

.WORD
.WORD

1003., ,ERRS

TSERCODE
1003

ERRS

;REPORT

READY ERROR

SuB

SEXLT

1.(S
15%

;TEST

;NO-SKIP

SuB

JEXIT

CSEXLT
L10035=.
1004.
, ,ERRG
TSERCODE
1004
ERRG

CSEX]T

;REPORT

ANY OTHER ERROR
ALL ERRORS

L10035-.
#MHSTA
RS
PC,POSHSB

RS,DESHD

1005., .ERR3

TSERCODE
1005

;SET NAME MESSAGE PTR
;GET SELECTED HEAD BIT

sCHECK

;REPORT

CORRECT

;YES = SKIP
;WAS IT SET
;NO=-SK]P

ERR3

SuB
CSEXIT

L10035~.

1006., ,ERR2
TSERCODE
1006

;REPORT SB 0

ERR2

20%:
60%:

62 030274
63 030274

ENDSUB

104003

005737
001404
005037
000137

L10035:

003012
003012
030026

EMT
181

25%:

BEQ
(LR
JMP

($ESUB
DESSGN

25%

DESSGN
T104%

ENDTST
104001

L1003:

EMI

(SETST

;CHECK IF BOTH SIGN USED
s YES=SKIP

;SET FOR SIGN OF 0
;D0 TEST AGAIN

CIRLIAO RLOV/2 DR TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 15

«TEST

BEEEBESANSS
NN
LN NN NN
SR
oAb
—
NSO
(=1~ s ngN—o-—-

SN
N=OOVBNOV

—_— s

SEQ 0112

SEEXK SIGN SWITCH

030352

.SBTTL
BGNTST

032737
0014i1
005737

000010

002712

030646

1%:

104032

000374
013737

Bl
BEQ
1§71
BNE

013712

003252

002734

002712

2%:

222 gzo022 g

PRINTF

EMT

000014

ADD

PRINTF

006715
011361
000002

MOV
MOV
MOV
MOV

EMT

000006

007000
011361
000002

015652
002710
002734
000104
000013
002742
002736

MOV

MOV
MOV
MOV
MOV
MOV
MOV

BGNSUB

3%:

002736
002736
002742
000004
000000

HEAD ALIGNMENT SUPPORT
STEST 1

FHDALIGN, MISWIW
1%
PASNUM
1%
RLORV,HADONE

2%
};}Si

;CHECK IF RUN HEAD AL IGNMENT
sNO-EXIT
sTEST IF PASS 0
sNO-EXIT
;TEST IF HEAD ALIGN DONE THIS DRIVE

:NO - SKIP
;60 CHECK WRITE LCCK

CSEXIT

L10036~.

RLDRV,HADONE
;SET HEAD ALIGN DONE FLAG
ltg;?,lBASADD.lLBAS.lDRVNAH,(B.RLDRV’l>
RLDRV+1,(SP)

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

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

#14,5P

, FHAMES]
FEMTO
#HAMEST,-(SP)
#FENT9,-(SP)

;TYPE

INSTRUCTIONS

#2,-(SP)

SP,RO
CSPNTF

ADD
PRINTF
MOv
MOV
MOV
MOV

#6,SP

ADD

#6,5P

EMT

00000¢

— et
\ N

16 030450

b
et

0600
4017

(P
BNE
JMP
EXIT
EMY
.WORD

rLR
BISB

002735
005743
002730
005732
011175
000005

15 030424

*TEST

FFEMTO, FHAMES?
#HAMES2 ,~(SP)
#ENT9,-(SP)
#2,-(SP)

SP,RO

CSPNTF
1.1

EMT
JSR
(LR

MOv

BIS

($B8SUB
PC,TSTINT
DONE
RLDRV,L.CS

#GTSTAT,L.CS

JINITIALIZE TEST
;CLEAR DONE
:SET UP FOR GET STATUS

MOV
MOV

#GETSTAT'DRSET,L.DA

WAL TMS

#50

sWALT FOR INTERRUPT

(SWTM
DONE

;CHECK

MOV

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

000062

MOV

#50. R0

002710

181

EMT

BEQ

;D0 GET STATUS

]F DONE

:NO=GO CLR CONTROLLER

(ZRLIAO RLO1/2 DR TST

*TEST

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

HEAD ALIGNMENT

SUPPORT

29
30 030560
31 030566
32 030574
33 030576
36 0306064
35 030612
36 030620
37 030626
38 03063«
030634
030640
39 030642

012737
032737
001003
042737
013737
052737
013762
013762

000021
020000

002742
002754

000020
002734
000106
002742
002736

002742
002736
002736
000004
000000

012700
104026
000715

000036

030644
030644

104003

030646

104002

40 030644
41 030644

&2 030646
43 030646
030646
46 030650
45 030654
46 030660
47 030662
48 030670
49 030672

030672
030676
030702
030706
030710
030712
50 030716
51 030722
030722
030724
030726
030730
030732
030734
030736
5¢ 030736
53 030742
54 030744
55 030744
56 030744
030744
030744
57 030746
58 030746
030746
030746

004737
004737
030744
032737
001425

012746
012746
012746
010600
104017
062706
005037

104003

104001

12%:

59%:
ENDSUB

L10037:

T115%:
BGNSUB
015652
015670
020000

007525
011361
000002

002754

18%:

000006
004256

104043
000404
004256
000120
007052
000001

005737
001753

108:

004256

10000%:

19%:
60%:
ENDSUB
L10040:
20%:
ENDTST
L10036:

15-1

MOV
BIT
BNE
BIC
MOV
BIS
MoV
MoV
WAITMS
MoV
EMT
BR

FULSTAT,T.MP
12%
#HDSEL,L.DA
RLDRV,L.CS
#SEEK,L.CS
L.DA,RLDA(R?)
L.CS,RLCSR(R2)
#30.
#30.,R0
CSWTH
3%

EMT

(SESUB

EMT

($8SUB

JSR
JSR
60%
BIT
BEQ
PRINTF

SEQ 0113

#HDSEL !MBSETO,L.DA;LOAD FOR HEAD

;CHECK IF WRITE LOCK SET
;YES-SKIP
;ELSE CLEAR TO HEAD 0
:LOAD IN DRIVE NUMBER
:SET FOR SEEK
;LOAD & EXECUTE SEEK

;WAIT FOR

INTERRUPT

;LOOP

111.2:

PC,TSTINT
PC,GSTATR

;INITIALIZE TEST
;CLEAR DRIVE
;CHECK WRITE LOCK RESET
:YES-SKIP

MoV
MOV
Mov
MoV
EMT
ADD
CLR
GMANIL
EMT
BR
.WORD
.WORD
.WORD
.WORD

FULSTAT,T.MP
19%
#FMT9,#0PR12

#OPR12,-(SP)
NEMTY,-(SP)
#2,-(SP)
SP,RO
CSPNTF
¥6,SP
OBUFF
;CLEAR FOR RESPONSE
OPRO02,0BUFF,1,NO
:GET RESPONSE
CSGMAN
10000%
OBUFF
T$CODE
OPR0O0Z2
1

181
BEQ

OBUFF
18%

:WAS ANSWER YES

EMT

(SESUB

EMT

(SETST

;REQUEST

WRITE

LOCK

:NO-REPEAT REQUEST

RESET

CIZRLIAD RLOY/2 D R TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 16

+TEST

HEAD ALIGNMENT SUPPORT

.SBTTL
BGNTST

012737
012761
005021
005021
005021
005021
012721

NN NN W NN NN

106002
004737

31044

031052
26 031054
031054
031056

27
28 031060
29 031064
30 031070

MOv
MOov

CLR
CLR
CLR
CLR

1124%:
BGNSUB

015652
01567C

012254
104032

000166

000121
015720

5%:
6%:

000005
002762

—-—-‘—-02
SO

012701
004737
031244
012703
020337
001405

012703
032737
001013
005301
001404

010013
000001

012700

000001

000130

104027

002746

7%:

#T12ERR,ERHEAD
NEWCYL ,RT

(R1)+
(R1)+
(R1)+
(R1)+
1 ,(R1)+

($BSUB

112

;SET ERROR HEADER
sGET POINTER TO DESIRED LOCATION
sCLEAR NEW CYLINDER
sCLEAR CURRENT CYL.
sCLEAR DIFFERENCE
;CLEAR SIGN
sSET FOR HEAD 1
T12.1:

JSR

PC,SIMSEK

;00 SEEK

MOV
MOV
JSR

#MDRDY ,R3

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

#CDRDY,R4

PC,GSTAT

#DRDYMSK,T.CS

5%
1201., ,ERR4

:CHECK IF READY
:NO-SKIP

ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
.WORD

TSERCODE
1201
ERRG
SuB
CSEXIT
L10042~-.

MoV

JSR

#81. ,R1

PC,GSTAT

:SET WAIT COUNT
;GET STATUS

MoV

#5,R3
R3,T.STAT
7%
1202., ,ERR7
T$ERCODE
1202

:SET EXPECTED STATE VALUE
;CHECK IF STATE IS 5
: YES-SKIP
;REPORT STATE ERROR

60%

CMP
BEQ
ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
.WORD

104032

;TEST 12

;INITIALIZE TEST
;GET STATUS WITH RESET

BIT
BEQ

104443
002261

HEAD SWITCHING

PC,TSTINT
PC,GSTATR

60%

002746

EMT
JSR
JSR

60%

010013
010761
015720

000001

Mov

60%

017324

& NN N
N NN —
SRVONNO

002714

000001

104443
002262
013252

D
e
D
—d
—
g
P

NN NN NN

[sleleleleleleleBleleTelelels)

NN NN

34 031104

004737
031244
004737
031244
012703
012704
004737
031244
032737
001405

006501
003004

*TEST

SEQ 0114

SuB
CSEXIT
L10042~-.

#MDRDY,R3

BNE
DEC

12%
R1
9%
"
#,RO
(Swiv

WAITUS
MOV

EMT

JEXIT

ERR7

MOV

BIT

:REPORT READY ERROR

#DRDYMSK,T.CS

;sSET NAME MESSAGE PTR
sCHECK DRIVE READY
sYES=SKIP
sDEC WAIT COUNT
;SKLg_lF 0

ClRLlAO RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 16-1
*TEST 12
HEAD SWITCHING
AS 031144

000747

LS 031146
031146

104443

031150
031152

002263
012324

031156
o7 031156

104032
000066

48 031160
49 031164
50 031166
031166
031170
031172
51 031174
031174
031176
52 031200
53 031204
56 031210
55 031214
56 031216

005737
100005

46 031154

57 031222
58 031224
031224
031226
031230
59 031232
031232
031234
60 031236
031236
031240
.t 031242

62 031244
63 031244
66 031244
031244
031244
65 031246
66 031252
67 031254
68 031260
69 031264
70 031264
031264
031264

9%:

12%:

104443
002264
012374
104032
000046
012703
004737
023705
001413
005737
001405

010146
020616
003014

15%:

003014

104443
002265
012206
104032
000010

17%:

104443
002266
012140

104003
005737
007404
005037
000137

104001

20%:
60%:
ENDSUB
L10042:

003014
003014
030776

25%:
ENDTST
L10041:

SEQ 0115

ERRHRD
TRAP

.WORD
.WORD

1203., ,ERRS
T$SERCODE
1203
ERRS

EMT
.WORD

SuB
CSEXIT

SEXIT

1 10042~-.

ST
BPL
ERRHRC

.CS
15%
1204., ,ERRG

;TEST IF ANY ERROR
:NO-SKIP

EXIT

002746

TRAP
.WORD
.WORD
EXIT
EMT
.WORD
MOV
JSR
CMP
BEQ
181
BEQ
ERRHRD
TRAP
.WORD
.WORD
EXIT
EMT
. WORD
ERRHRD
TRAP
.WORD
.WORD

EMT
187
BEQ
CLR
JMP

EMT

TSERCODE
1204
ERRG
SuB
CSEXIT

L10042~-.

#MHSTA,R3

PC,POSHSB

DESHD,R5
20%
DESHD

17%
1205., ,ERR3
TSERCODE
1205

ERR3
suB

CSEXIT
L10042~-.
1206., ,ERR2
TSERCODE
1206

;REPORT READY ERROR

sREPORT ALL ERRORS

:SET NAME MESSAGE PTR
sPOSITION HEAD SELECT BIT
:CHECK IF CORRECT HEAD SELECTED
s YES-SKIP
;WAS HEAD 0 SELECTED

: YES=-SKIP

;REPORT HEAD SB

JEXIT
;ELSE REPORT HEAD SB 0

ERR2

(SESUB

DESHD

25%

DESHD
1124%

CSETST

;CHECK IF HD 0O WAS DONE

;YES-SKIP
;ELSE SET TO HEAD 9
;REDO TEST

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

*TEST

xEAD SWITCHING

SEQ 0116

2
3
4 gg}ggg
5
6
7
8
9

031266
0312764
031300
031302
031304

10 031306
11 031310
12 031312
13 031312

031312
031312
16 031314
15 031320
16 031324
17 031326
18 031332
19 031334
20 031340
g; 031344
23 031346
26 031352
25 031354
26 031360
27 031364
28 031370
29 031372
031372
031374
031376
30 031400
031400
031402
31 031404
031404
031406
_ 031410

LSBTTL

BGNTST

012737
0127C1
005021
005021
005021

006513
003004

002714

005021
©05021

104002
004737
004737
031412
004737
031412
012701
004737
031412
004737
031412
012703
004737
020537
001410

T134%:
BGNSUB
015652
01567C
017324
000121

020646
020160

10%:

010146
020610
003014

104443
002425
012206
104032
000010

17%:

104443
002426
012140

33 031412
34 031412
35 031412
031412
031412
36 031414
37 031420
38 031422
39 031430
40 031436
41 031440
42 031446

104003
005737
001007
012737
013737
000725
042737
042737

44 031462

001405

43 031454

15%:
60%:
ENDSUB
L10044:
003014
000001
002754

003014
003020

000177
000177

003020
002754

023737 003020 002754

20%:

+TEST 13

READ HEADER (PART 1)
;TEST 13

13
T13::

MOV
MOV
CLR
CLR
CLR

FT13ERR,ERHEAD
#NEWCYL R
(R1)+
(R1)+
(R1)+

EMT
JSR
JSR
60%
JSR
60%
MOV
JSR
60%

($BSUB
PC,TSTINT
PC,GSTATR

sINITIALIZE TEST
sGET STATUS W/RESET

PC,SIMSEK

;D0 SEEK

#81. .R1

sSET WAIT COUNT

CLR
CLR

(R1)+
(R1)+

PC,.RDYWAIT

;SET ERROR HEADER
sGET ADDRESS OF DESIRED LOCATIONS
sCLEAR NEW CYL
sCLEAR CURRENT CYL
:CLEAR DIFF
sCLEAR SIGN
sCLEAR HEAD

_113.1:

sWAIT FOR READY

JSR
60%
MOV
JSR
CMP
BEQ
ERRHRD
TRAP
LWORD
.WORD
EXIT
EMT
LWORD
ERRHRD
TRAP
.WORD
.WORD

PC.,XRDHDC

;D0 READ HEADER

#MHSTA,R3
PC,POSHW
RS,DESHD
15%
1301.,.ERR3
TSERCODE
1301
ERR3
SuUB
CSEXIT
L10044~-.
1302.,.ERR2
TSERCODE
1302
ERRZ2

sSET NAME MESSAGE PTR
sPOSITION HS BIT IN HD WRD 1
sCHECK 1F HEAD CORRECT
sYES=SKIP
sREPORT SB 1

EMT
187
BNE
MOV
MOV
BR
BIC
BIC

CSESUB
DESHD
20%
#1,DESHD
HOWRD1,TEMPO
T134%
#177,TEMPO
#177 ,HDWRD1

sTEST IF HEAD 1 DONE
sYES=SKIP
sELSE SET TO HEAD 1
sSTORE HDR WORD 1
;D0 TEST AGAIN
sCLEAR ALL BUT CYLINDER IN 1ST HEADER
sCLEAR ALL BY CYL IN 2ND HEADER

BEQ

22%

JYES-SKIP

CMP

TEHPé.HDURDl

sREPORT SB 0

s COMPARE 1F EQUAL

CIRLIAD RLO1/2 D R TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 17-1

*TEST

READ WMEADER

45 031464
46 031470

031470
031472
031474

47 031476

48 031476
031476
031476

012703
104443
002432
012072

(PART

006631

22%:

#CYLPER,R3

MOV
ERRHRD
TRAP
.WORD
.WORD

1306., .ERR]
T$ERCODE
1306
ERR1

EMT

CETST

ENDTST
104001

L10043:

SEQ 0117

;SET NAME MESSAGE PTR
;REPORT HEAD ALIGNMENT PROBLEM

8 10

CIRLIAD RLOV/2 DR TST 1 MACRO v03.01 9-FEB=-79 19:14:22 PAGE 18
N

VWAV
WD

500

MRS Fe
S

COVONO VSN

SEa 0118

READ HEADER (PART 2)

*TEST

LSBTTL
BGNTST

012737
012701
005021
0050¢1
005021
005021

104002

s o

s e

004737
004737
031730
004737
031730
012701
004737

006527
003006

002714

1153%:
BGNSUB

015652
015670

=2
PONIN

031610
031614

H e

o~
nNOo

b
b
-—h

104443
002735
013462
005724
005203
005724
001405
022544

1646

1654

NI NN

1656
1660
1662

cnd

NN R

&»

b wd

NI N R

1664
1666
666

PC,SIMSEK

;D0 SEEK

#200. ,R1

:SET WAIT COUNT FOR 20 MS

JSR

PC,RDALHD

;D0 READ HEADER ALL HEADERS

CLR
BIS
CLR

MORECE

:CLEAR MORE COMPARE ERRORS FOR REPORT

R3
#1BUFF R4
#TEMPO,RS

:CLEAR FOR HDR COUNT
:GET POINTER FOR HDR TO BE CHECKED
:GET POINTER TO TEST AREA

60%
60%

003656
003020
000050

000100
003014

BIC
151
BEQ
BIS
CLR
(MP
BEQ

108:

TST

ERRHRD

13%:

104443

002735
013462
024524
005724
005203
005215
011500

JINITIALIZE
:CLEAR DRIVE

MOV
MOV
MOV
MoV

000100
000002

005744

RN W

elelelelelelelelelelelelslelele
el o

031616
031622
031626
031630
037634
031640
031642

15%:

134::

r$BSUB
PC,TSTINT
PC,GSTATR

JSR

002706

READ HEADER (PART 2)

EMT

(LR
ELR
CLR

MOV

021242

;TEST 14

#T1LERR,ERHEAD
#CURCYL,RI

JSR
60%
JSR
60%

000310
020646

MOv
MOv
CLR

JSR

017324

002716
000002

*TEST

TRAP
.WORD
.WORD
181
INC
1ST1
BEQ
(MP
ERRHRD
TRAP
.WORD

.WORD
(MP
187
INC
INC

MOV

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

PC,RDYWAIT

#HORCMP ,OPFLAG

#40. ,R1

(R4), (RS)

#HDHSEL
, (RS)

;SET ERROR HEADER
:GET ADDRESS OF DESIRED VALUE

;CLEAR
sCLEAR
:CLEAR
sCLEAR

CURRENT (YL
DESIRED DIFF
SIGN
DESIRED HEAD

1.1

TEST

;WAIT FOR READY

;SET HDR COMPARE FLAG

:SET HDR COUNT

:GET FIRST HEADER WORD

DESHD

;TEST IF HD O DESIRED

2(RS)
(RS),(R4)+

:CLEAR 2ND WORD OF TEST AREA
s COMPARE HEADER WORD

108
#HDHSEL , (RS)
13%
=(R&)
1501., ,ERR10
TSERCODE

sYES-SKIP
sELSF SET HEAD BIT

;SKIP IF 0K
:FLSE POSITION R4 TO BAD WORD
:REPORT ERROR

1501

ERR10
(R4)+

R3
(RG)+
15%
(RS)+,-(R4)
1501., ,ERR1O
TSERCODE

;BUMP R4 TO NEXT WORD

;BUMP WORD COUNT
sTEST 2ND WORD IS O
:YES = SKIP
:POSITION PTRS FOR REPORT
:REPORT ERROR

1501

ERR10
=(RS),(R4)¢+
(R4)+
R3
(RS)
(RS),RO

sREPOSITION POINTER

:POSITION R& PAST ECC WORD
;BUMP WORD COUNT
;BUMP SECTOR COUNT
sCHECZK JF SECTOR 1S PAST LAST

SECTOR

CIRLIAD RLO1/2

*1EST

49 031706

50 031712
51 031716
52 031720
53 031724
56 031726
55
56 031730

DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 18-1
READ HEADER

0462700
022700
001002
062715
005301
001344

(PART

177700
000050

000077

17%:

BIC
(MP
BNE
BIC
DEC
BNE

#*CHDSEC,RO
'40-.“0

17%

#HDSEC, (RS)

R1
108

SEQ 0119

:NO=-SKIP
;ELSE CLEAR SECTOR T0 0
;DEC HDR COUNT
s VES=SKIP

60%:

57 031730

031730
031730
58 031732
59 031736
60 031740
61 031746
62 031752
63 031 752
031752
031

c10

ENDSUB

104003
005737
001005

012737
000137

104001

L10046:

003014
000001
031522

EMT

003014
20%:
ENDTST
L10045:

($ESUB

DESHD

sCHECK IF HD 1 TESTED

MOv

#1,DESHD

sELSE SET TO HEAD 1
;REDO TEST

EMT

CSETST

1§71
BNE

JMP

20%.

T153%

sYES=-SKIP

(ZRLIAO RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE 19
DIFFERENCE OF 1 SEEK (PART 1)

SEQ 0120

*TEST 15

SNV NS NNNSN

SN
NNNNNNNNNN

WO OWNUIWWW

[(=l=lelelelelele]l-]
O ettt et N
O =t et

(=4
o

W
N

004737
032232

006553
000004
015652
015670

002714
003020

177777
003006
003004
020050

003024

1172%:
BGNSUB

021114

&~
~N

(=]

032064
26 032066
27 032074
28 032076
29 032100
30 032102
31 032110
32 032114
33 032120
34 032122
35 032126
36
37 032130
386 032134
39 032140
40 032142

012703
020337
001404

;TEST 15

#P2T01E ,ERHEAD
#4 ,TEMPO
PC,TSTINT
PC,GSTATR

;SET ERROR HEADER
;SET PASS COUNT
;INITIALIZE TEST

#-1,TEMP2

;SET =1 INTO DIFF AUGHENI FOR -1 SEEK

MOV

#NEWCYL
RS

#CURCYL ,RG

JSR

PC,CHOSHD

EMT

($BSUB

PC,GETPOS

60%

INLOOP

CSINLP
EMT
BNCOMPLETE
3%
3%
BCC
(R&4), (RS)
CMP
4%
BNE

020134
3%:

4L%:

002204
177777

003024
7%:

000001
003024
016562

003024

8%:
9%:

015720

002762

12%:

:60 CHOSE HEAD
T15.1:

;GET POSITION

;CHECK IF IN ERROR LOOP
:NO = SKIP

;CHECK IF CURRENT = NEW
;NG - SKIP

;ELSE SWAP OLD AND NEW

;SKIP TO SEEK

BNE
MOv
BR

#-1,TEMP2
8%

iNO - SKIP

:ng;AX CYL, MAKE NEXT SEEK REvV

8%
#1,TEMP2
TEMP2, (RS)
PC,XSEEK

:NO - SKIP
:AT CYL O, MAKE NEXT SEEK FWRD

PC,GSTAT

;GET STATUS

#4,R3
R3,T.STAT
10%
101., ,ERR7
T$ERCODE
101
ERR7
169
#5,R3
#50. ,R1
PC,GSTAT

;SET EXPECTED STATE
;CHECK IF STATE COUNT
:YES=-SKIP
;REPORT STATE ERROR

R3,T.STAT

;1S STATE 5?

HLMTW, (R4)

CMP

IST

BNE
MOv
ADD
JSR
60%
JSR
60%

TRAP

108:

;SET POINTERS

9%
TEMP2
(R4), (RS)

BEQ
ERRHRD

1046443

;GET STATUS

BR
NEG
MOV

MoV
CMP

000004
002762

000005
000062
015720

PC,ONSWAP

JSR

003024

T15::

MOV
MOV
JSK
JSR
11765%
MOv

JSR

103005
021415

001005
004737
000421
005437
011415
023714
001004
012737
000405
005714
001003
012737
063715
004737
032232
004737
032232

DIFFERENCE OF 1 SEEK (PART 1)

*TEST 15

MOv

104020

o
W

R
s s

3NNNNN—'-‘
—_
SFHNN=00V00
~N

104002

Oowns

WN=OOVONO
VST W

.SBTTL
BGNTST

.WORD
.WORD
BR
MOV
Mov
JSR
60%
(MP

BEQ
DEC

BEQ

(R&)

16%

14%

;CHANGE DIFF AUGMENT FOR OPPOSITE DIR

: MOV

CURRENT INTO OLD

;CHECK IF CURRENT AT 255
;

;TEST IF CURRENT AT 0

:ADD DIFF TO NEW CYL (+1 OR =-1)
;D0 SEEK

JEXIT TEST
;SET EXPECTED STATE

;SET WAIT COUNT FOR 5 MS
;GET STATUS

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

NN
NN NN

NNONNNNNNN
NN

CIRL 1A0 RLO1/2 DR TST 1 MACRO v03.01 9-FEB-79 19:14:22 PAGE
*TES 11 5
DIFFERENCE OF 1 SEEK (PART 1)

012700

1046027

000001

104443
000146
013252
012701
004737
032232
012737

14%:

000062
020646

000002

16%:

002720

104003

59
60 032252
61
62 032254
63 032262
64 032264
65 032270
66 032272
67 032274
68 032274
69 032274
032274
032274

104010
000030

005337
001410

003020

032737
001003
004737
032274
000654

000001

WAITUS

EMT

(SwTU
12%
102., ,ERR7

MOV

000764

60%:

ENDSUB
L10050:

ERRHRD

TRAP
.WORD
.WORD
MOV
JSR
60%
MOV

EMT
ESCAPE
EMT
.WORD

DEC
BEQ
003020

020074
23%:
24%:

19-1

TSERCODE
102

ERR7

L10047:

SEQ 0121

;REPORT

STATE

ERROR

PC,RDYWAILT

;SET WAIT COUNT FOR 5 MS
;GO WAIT FOR DRIVE READY

#2 ERRSWI

;INIT ERROR SWITCH

(SESUB

IF ERROR

TST

SEXIT TEST

TEMPO

;DEC PASS COUNT

(SESCAPE
L10047~,

24%

BIT
BNE
JSR
24%
BR

PC,SWAPHD

EMT

(SETST

#B110,TEMPO

23%

T172%

11765%:
ENDTST

104001

E 10

:SKIP IF 0-DONE

;TEST IF PASS=2

;sNO-SKIP

;G0 SWAP TO HEAD 1 OR END TEST
;ABORT RETURN

CIRLIAD RLOY/2 DR TST

«TEST

SEEK

NNNNNUVINNNN

O OO WO VIWWNW
VS
N NNS NNNN

NSNS NN

(=l=lelelelelelelel]
-ttt
DN O =t it

020050

177777
003004
003006
003002

002714
003020

11865%
JSR
MOV
MOV

T187%:
BGNSUB-

sNO

NN
N
oo
F R o

W
~N
F
~N

32372

021413
001005
004737
000421
005437
011413
023714
001004
012737
000405
005714
001003
012737
063713
004737
032522
012701
004737
0%.522
004737
032522
011501
161401

JSR

020134

3%:

(%:

002204

003024

8%:
9%:

000226
020646

022701
001403

000001

PC,CHOSHD
#-1,1EMP2
#NEWCYL,R3

#CURCYL
RS
#OLDCYL,RS

($BSuUB

PC,GETPOS

;SET DIFF AUGMENT TO -1 (REVERSE)
;GET ADDRESSES

T18.1:

sGET CURRENT POSITION

sCHECK IF

;sCHECK IF CURRENT = Niw

B8R

;

BNE

18T

TEMP2
(R4),(R3)
HLMTW, (R4)

#-1,TEMP2
(R&)

IN ERROR LOOP

:NO - SKIP

sNO - SKIP

sELSE SWAP OLD AND NEW
;SKIP TO SEEK
sCHANGE DIFF AUGMENT FOR OPPOSITE DIR
sMOV CURRENT INTO NEW

sCHECK IF CURRENT AT 255

;gll:Ax

CYL,

.AKE NEXT

SEEK

REvV

sTEST IF CURRENT AT 0
sNO - SKIP

MOV
ADD
JSR

#1,TEMP2
TEMP2, (R3)
PC,XSEEK

MOV
JSR

#150..R1
PC,RDYWALT

;SET WAIT COUNT FOR 15 MS
;WAIT FOR READY

PC,GETPOS

:STORE POSITION

(RS) ,R1
(R4) ,R1

:GET OLD POSITION
;SUBTRACT FROM NEW POINTER (FORWARD)
;CHECK IF SIGN FORWARD
;YES=SKIP, ELSE SUB FOR SEEKX REVERSE

60%

MOV

DESSGN

108

(R4) R

SUB
(mMpP
BEQ
ERRHRD

(RS) ,R1
#,R1
12%
201.,.ERR8

LWORD
.WORD

201
ERRS

TRAP

12%:

;GO0 CHOSE HEAD

PC,ONSWAP

T16::

;SET PASS COUNT
;INITIALIZE TEST
;GET STATUS, CLEAR DRIVE

BNE

BEQ
10%:

3%
3%
(R4),(R3)

(PART 2)

;SET ERROR HEADER

NEG
MOV
CMP

187

104443
000311

013322

#P2T02E ,ERHEAD
6, TEMPO
PC,ISTINT
PC,GSTATR

1 SEEX

60%
JSR
60%
MOV
SUB

021114

003012

s TEST 16

MOV

00302¢
7%:

000001
003024
016562

DIFFERENCE OF

BNE

JSR

003024

177777

SEQ 0122

60%
INLOOP
CSINLP
EMT
BNCOMPLETE

BCC
cmp

005737
001402
011401
161501

MOV
MOV

EMT

021114

103005

00O

s
—

~NoOw

MOV
JSR
JSR

104020

F ok ok
N=O
—“=OOVOONO

&~ wwugwuw\uwwNNNNNNNNNNd
VSR W=
0N
VWS W N=O00V

—

004737
032522

*TEST
MOV

003024

—

guNN-&—n
O8N

S WOV
NYNO VSN

.SBTTL
BGNTST

006553
000004
015652
015670

(PART 2)

DIFFERENCE OF

1046002

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

T$ERCODE

;AT

CYL O, MAKE NEXT

SEEK FWRD

sADD DIFF TO NEW CYL (+1 OR =1)
;D0 SEEK

;GET NEW CYLINDER
;SUBTRACT FROM OLD CyL

sCHECK IF

RESULT

IS DIFFERENCE OF

s VES=-SKIP
;ELSE REPORT ERROR

CIRLIAD RLOV/2 DR TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 20-1
16
DIFFERENCE OF 1 SEEK (PART 2)

610

{n;*ynvuflvfln&a
NNNOOON

OO OONN
NN
WN =00V
W

w
~

*TEST

012737

000002

002720

60%:

ENDSUB

MOv

L10052:

104003

(SESUB

104010

000039
005337
001410
032737
001003
004737
032564
000673

TEMPO

;DEC PASS COUNT
SEXIT IF DONE

#B110,TEMPO

;TEST IF PASS 1 OR 3
;YES-SKIP
;G0 SWAP TO HEAD 1 OR END TEST

20%

020074

PC,SWAPHD

20%:
30%:

T187%

11865%:
ENDTST

104001

£10051:

ENDMOD

EMT

;INIT ERROR SWITCH

SEXIT TEST IF ERROR

508

003020

SEQ 0123

181

(SESCAPE
L10051=,

003029
000001

#2 ERRSWI

(SETST

;ABORT RETURN
;LOOP

CZRLIAOD RLO1/2 DR TST

PARAMETER

CUDING

2 032566
5 032566
032566

& 032570

032570
032572
032574
5 032576
03257¢
032600
032602
0326064
6 032606
032606
032610
032612
032614
7 032616

032616
032620
032622
032624
032626
8 032630
032630
032632
032634
9 032636
032636
032640
032642
032644
" 032646
11

.SBTTL

000030
005130
0327¢4
000001

GPRML

CNTYPE,CNT,1,YES

GPRMA

001031
032661
000000
000776

GPRMD

004032
032716
003400
000000
000007

GPRML

003130
032701
000001

GPRMD

002032
032670
000340
000000
000007

ENDHRD

12 032650

L10053:
102

125

126

105

VECMSG:

.ASCIZ

/VECTOR/

040

BRMSG:

LASCIZ

/BR LEVEL/

111

DRTYPE:

.ASCIZ

/DRIVE

111
000

DRMSG:

.ASCIZ

/DRIVE/

C(NTYPE:

.ASCIZ

/RL1V/

124
000

032673
032676

114
105

032704
032707
032712
032715
17 032716
032721

126
075
114
000
104
126

105
040
060

040
122
061

122
105

032727

061

000

16 032701

18 032724

117

122

104

122

114

.EVEN

103

032664
032667

105
114

.WORD
TSCODE
.WORD
DRMSG
.WORD
3400
.WORD
TSLOLIM
LWORD
TSHILIM
DRTYPE,TYPDR,1,YES
.WORD
T$CODE
.WORD
DRTYPE
LWORD
1
BRMSG,PRIOR,0,340,0,7,YES
.WORD
T$CODE
.WORD
BRMSG
.WORD
340
.WORD
TSLOLIM
LWORD
TSHILIM

/BUS ADDR/

104
000

122

DRMSG,DRSB,0,3400,0,7,YES

.ASCIZ

101
122

102

.WORD
TSCODE
.WORD
CNTYPE
.WORD
1
(SRMSG,CSR,0,160000,177776,YES
.WORD
TSCODE
.WORD
CSRMSG
.WORD
TSLOLIM
.WORD
TSHILIM
VE(MSG,VECT,0,0,776,YES
.WORD
TSCODE
.WORD
VECMSG
.WORD
TSLOLIM
LWORD
TSHILIM

(SRMSG:

040
104

15 032670

.WORD L10053=LSHARD/2

123

032653
032656

14 032661

PARAMETER CODING

HRDPRM

GPRMA

000031
032650
160000
177776

SEQ 0124

BGNMOD
BGNHRD

032650C

13 032650

W10

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

126
000

061

= RLOV/

CZIRLIAO RLO1/2 DR TST 1 MACRO vO03.01 9-FEB=79 19:14:22 PAGE 21-1

PARAMETER CODING

SEQ 0125

19 032731

ENDMOD

22 032732
23 032732
% 032732

BGNMOD
BGNSFT

SFTPRM

GPRML

SELQ MISW],&,YES
.WORD
TSCODE
.WORD
SELQ
.WORD
&
ALGNQ,MISWI,10,YES
.WORD
TSCODE
.WORD
ALGNQ
.WORD
10
MANQ,MISWI1,100000,YES
.WORD
T$CODE
.WORD
MANQ
.WORD
100000

30 032734
032734
032736
032740
31 032742
032742
032744
032746
33 032750
032750
032752
- 032754
46 032756
032756

032760
032762
032764
032766
50 032770
032770
032772
032774
51 032776

000021
000130
032776
000004

GPRML

000130
033031
000010

GPRML

000130
033070
100000

3%:

004052
033125
000377
000000
000377

SELQ:

.ASCIZ

/EXECUTE DRIVE SELECT TESTS/

ALGNQ:

.ASCIZ

/EXECUTE HEAD ALIGNMENT SUPPORT/

.WORD
ERLIMQ
.WORD
377
.WORD
TSLOLIM
.WORD
TSHILIM
AUTOQ,MISWI,20,YES
.WORD
TS$CODE
.WORD
AUTOQ
.WORD
20

L10054:

58 032776
033001
033004
033007
033012
033015
033020
033023
033026

105
103
105
122
105
105
103
124
124

130
125
040
m
040
114
124
105
123

105
124
104
126
123
105
040
123
000

033034
033037
033042
033045
033050
033053
033056
033061
033064
033067
61 033070
033073
033076

103
105
105
040
1M
115
124
125
117
000
104
115
125

125
040
101
101
107
105
040
120
122

124
110
104
114
116
116
123
120
124

59 033031

ERLIMQ,ERLIM,D,377,0,377,YES
T$CODE

ENDSFT

52 032776

LWORD L10054~L%S0F1/2

GPRMD
.WORD

GPRML

000130
033147
000020

.EVEN

105

130

117
101
101

105

040
116
114

MANG:

.ASCIZ

/DO MANUAL

INTERVENTION TESTS/

CZRLIAD RLO1/2 DR TST

SEQ 0126

— —~.v-—|<

1‘72a<L50350-[[\¥¥Y9]].6147250

OrIOONJ—TeI—N—TIMNTPTN-—CNSV OAW~NOVNAO~4NN-M—1MONTr1=OeON—=1ONAN
.—e oo
=“wJ -on4d

PARAMETER CODING

J 10

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

—|~=o
—~

—

o> o-

o.
w—~L<
o~ao
ow4v[+

[+
4

74
75 033200
76 033200

033200

ENDMOD
LASTAD

LSLAST::

.EVEN
.EVEN

o o = v %) ~

CZRLIAO RLO1/2 DR TST 1 MACRO v03.01 9-FEB=79 19:14:22 PAGE 23

DIAGNOSTIC SUPERVISOR == LOW CORE

kK 10

SET UwP

.SBTTL

DIAGNOSTIC SUPERVISOR =- LOW CORE SET UP

SEQ 0127

ASSEMBLY ROUTINES
PWR.FAIL:
POWER

35 063774
36 063776
37 064000
38 064002
39

000000
000000
000000
000000
064006
000200

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

INTERRUPT ROUTINE

171

L 10
SEQ 0128

.WORD
0
.WORD
O
.WORD
0
.WORD
0
END.SUPV=,42
.END 200

;SPACE FOR USER POOL POINTER
:SI1ZE

*CHECKSUM (NOT CURRENTLY USED)

*SIZE OF W.W. PTAB. ALLOCATION

ASSEMBLY ROUTINES

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

ABOFLA
ABOPAS
ABO.FM
AFS1
ALGNG
ALLCYL=
ALLOC
ALLSEC=
ANYERR=
APT.ER
ASSEMB=
AUTOQ

033524 6
033442 6
036004
033232 6
033031
000001
054144
000002
100000
03513¢
000011
033147

BSFVAL
BSNSTR
BYPSNM
BSAAB
BSAAF
CAFDT
CALLPC=
CALLPS=
CALLSP=
CALLTC=
CAL.CL
CAL.TI

003264
007716
007647
042270
042202
011031
000022
000024
000026
000030
060666
060724 6

CURR.S
CURR.T
CYLPER
CYLTBL
CYLUP =
CYLWD
CSAAD
CSAAE
CSAAK
CSAAL
C$ABRT=
CSADR =

033206 G
033210 6
006631
002506
000004
007634
045546
045560
046556
046722
000021
000020

CSRPT =
C$SEFG=
C$SPR1=
CSSVEC=
L$TPRI=
CSuNBU=
CSWTM =
CSWTU =
cioms
C5SEC
C500Ms
DANAM

000025
000047
000041
000037
000013
000031
000026
000027
011001
011042
011012
006041

EF .RES=
EF.STA=
EFO1
=
EF02 =
EFO3 =
EF04
=
EFO5 =
EFO06 =
EFO7 =
EFO8 =
EFO9 =
EF10 =

ASAAV
ASAAW
ASAAX
ASAAY
ASAAZ
ASABA

040002
0460016
040030
040036
040052
040062

CCYLUP
CORDY
CHKLUP
CHKSTR
CHKTTY
CHK.MA

011020
010761
042304
054506
052574
0460444

C$BRK =
C$BSEG=
($8suB=
C$BUFF=
CSCEFG=
CSCLEA=

000022
000004
000002
000030
000046
000012

DCKERR=
DCLIM =
DCLIMW
DECMSG
DESDIF
DESHD

004000
000012
013724
052470
003010
003014

EF12
=
EF13 =
EF14
=
EF15
=
EF16 =
EMT.TR

G
G
G
6
6
G
6
6
G
G
G
6
6

ENVIRO
EOP.CH
EOP.FM
EOP.IN
ERHEAD
ERLIM =
ERLIMG
ERLIMW
ERRCNT
ERRFOR
ERRHAN
ERRPOI
ERRSWI
ERRVEC
ERR.HR
ERR.NU
ERR.SF
ERR1
ERR1FO
ERR10
ERR2
ERR3
ERR4
ERRS
ERRG
ERR?
ERR8
ERR9
ESC.PC
Ev.COU

033252 6
062454 6
036020
040164
002714
000010
033125
013722
003052
047000
045600
003050
002720
003042
046536
033202 6
046542
012072 G
047064
013462 6
012140 6
012206 G
012254 6
012324 6
012374 6
013252 6
013322 6
013416 6
045572
033204 G

SYMBOL TABLE

AUTOSZ= ©00020

BADADD= 004000
BAMSK = 000060
BANAM
006034
BASADD 005732
BELL
010702
BGN.SU= 033200
BHSTAT= 000010
BINMSG 052454
B1T0 = 000001 G
B1T00 = 000001 G
81701 = 000002 G
81702 = 000004 G
81703 = 000010 G
B1104 = 000020 G
B1105 = 000040 G
B1706 = 000100 G
B1707 = 000200 G
BITOR = 000400 G
B1709 = 001000 G
BIT1
= 000002 G

BIT10 = 002000 G
BIT11 = 004000 &
BIT12 = 010000 G
BI1T13 = 020000 6
BIT14 = 040000 6
BI1T115 = 100000 G
BIT2 = 000004 G
BIT3 = 000010 6
B1T4 = 000020 G
BIT5S = 000040 G
BIT6 = 000100 G
B117 = 000200 G
BIT8 = 000400 G
BIT9 = 001000 6
BLD.HW 040666
BLOCK
056300

BRMSG
BSFLAG

032670
002722

CAMSK

CHK.PC
CHK.SW
CHOSHD
CHRCNT
CH.FLA
CH.PAS
CKDATA=
CKERLM
CLEAR.
CLKACC
CLKBFR
CLKCNT
CLKJUM
CLKRES
CLKSER
CLKSON
CLK.SE
CLNCOD
CLRBYT
CLRPAR

CLR.MA
CNT
=
CNTYPE
CNVT
COMMAN
COMMTA
COMPOP=
CONHNG=
CONTCL
CONTIN
COSTAT=
COUNT
CRDYMS=
CRLF
CSNAM
CSR
=

CSRMSG
CURCYL

002214

045574
034634
020050
054026
040152
040170
000102
015326
041566
033440 6
060670
033436 6
061274 6
062276 6
062432 6
033476 6
040246
015136 6
002206
023034

040522
000012
032724
056744
033250 6
056560
007777
000004
062356 6
014146
000040
003046
000200
052656
006027
000000

032650
003006

CSAU

171-1

= 000054

CSCLP1= 000006
CSCVEC= 000036
CSDCLN= 000044
C$00DU= 000053
CSORPT= 000024
C$0U = 000055
C$EDIT= 000002
CSERDF= 000002
CSERHR= 000003
CSERSF= 000001
C$ERSO= 000004
CSESCA= 000010
CSESEG= 000005
CSESUB= 000003
CSETST= 000001
CSEX1T= 000032
CSGMAN= 000043
CSGPHR= 000042
CSGPR1= 000040
C$GTIM= 000052

C$INIT= 000011
C$INLP= 000020
C$KWOF= 000035
CSKWON= 000034
C$LOOP= 000100
CSMANI= 000051
CSMSG = 000023
CSPNTB= 000014
CSPNTF= 000017
CSPNTS= 000016
CSPNTX= 000015
CSPOIN= 000040
($Q10 = 000377
CSRDBU= 000007
CSREFG= 000050
CSREQT= 000045

CSRESE= 000033
C$REVI= 000002

SEQ 0129

DATACM= 000001

DESSEC
DESSGN
DEV.CO
DIAGMC=
DIAG.T
DIFAUG
DIFWD
DIRBIT=
DIRMSK
DLTERR=
DONE
DPDVD
DPMUL
DRDYMS=
DRMSG
DRSB =
DRSELT=
CRSET =
DRTYPE
DRVCNT

DRVERR=
DRVNAM
DRVNAV
DSESTA=
DSMSK =
DSPCOD
DUNIT.
DVC.FT
DSAAG
DSAAH
DSAAI
DSAAJ
DSAAK
DSAAL
DSAAM
EF .CON=

003016
003012
033212
000000
033532
003000
007610
000004
002216
010000
002710
063142
063030
000001
032716
000010
000004
000010
032701
002776

EF11

6
6

040000
005743
005750
000400
001400
013726 6
033446 6
046526
047432
047450
052216
052222
052240
052256
052266
000036 G

EF .NEW= 000035 G
EF .PWR= 000034 6

000037
000040
000001
000002
000003
000004
000005
000006
000007
000010
000011
000012

= 000013

000014
000015
000016
000017
000020
033530
END.OF
041554
END.SU= 064006

EXTO5
FBSFIL
FILL
FILL.C
FLAGS
FLAGS1

6
G
6
6
6

026202
003462
053324
000204 G
033244 G
033246 G

FREE
FRMWD

HADONE

HAMES
HAMES2

€00000
000011
000017
000012
000003
000005
000010

HCESTA=
HCORED
HCOREQ
HCORET
HCRCER=
HC.ADR
HC.DEF

HDALIG=
HDCYL

HDHSS%§
HDMO
HDR(MP= 000002

LAB1
LAB2
LCLEXT
LINE.F

LOAD.F
LOCERR
LoCYL =
LOGMSG
LOLIM =
LOLIMW
LPBFR
LPCNTR
LPT.AD
LPT.RE
LPTO5
LSI.RE
LUP
LUP.AD
LSAPT
LSAUT

013712 6
002014 6
002054 G
002052 6
002100 6
002012 6

L.CS

002062

S
S
QI
D
D
S
S

L10000
L10001
L10002
L10003

OCOO0O0O0O0O0O0COO0O0O0O

L.MP

LS$CCP
LSCLEA
L$CO
LSDEPO
LSDESC
LSDEVP
LSDISP
LSDR

LSDRCT
L$DRS
LSDRST
LSDTP
LSOV
LS$DUT
LSDVTY
LSEF
LSEFLG
LSEXP]
LSEXP2
LSEXP3
L$SHARD
LSHPCP
LSHPTP
| $HW
LS$ICP
LSINIT
LSLADP
LSLAST
LSMREV
LSNAME
LSREPP
LSREV
L$SOFT
LSSPL

002020 6
002024 6
002030 6

670

254

[

GSOFFS=
GSOFS]=
GSPRMA=
GSPRMD=
GSPRML=
GSRADA=
GSRADB=
GSRADD=
=
GSRADF
GSRADL=
GSRADO=
GSRADT=
GSXFER=
GSYES =

LSSPCP
LSSPTP
LSSTA
LSSV
LSTIML
LSTIMU
LSTIM
LS$TSTI
LSUNIT

KBPTR
KBUF
LAB

[T 2T~

e ettt
S S

FOLWRT=
FORM.T

GISTAT=

GSEXCP=
GSHILI=
GSLOLI=
GSNO =

100000

00007
0000
007623
HOWRD1
002754
HDWRD2 002756
HDWRD3 002760
HEAD
= 000006
HEADLM= 010000
HEADW
013720
HERTZ.
037612
HICYL = 020000
HILIM = 000004
HILIMY
013716
HLMTW
002204
HNFERR= 010000
HOLDSP= 000020
HOSTAT= 000020
HPTCOD
013672
HRDPRM
032566
HRDWTS
023064
HSMSK = 000100
HSSTAT= 000100
HW.ADR
033234
H$SAAB
057272
003656
1BUFF
033456
ININIT
INITCO 013770
INITIA
052504
INITST
006423
INIT.M 040570
033272
INIT.R
INOUTS= 000020
INPUTA 053432
INTEBL= 000100
INTFOR
046730
INTHLR
015270
037536
INVAL.
046566
INVINT
INV.SW 034570
IN. SUF
041540
1A
000041
IS$CLN
000041
18DV
000041
000041
1$HRD
ISINIT
000041
000041
1$MOD
000041
1$MSG
I1$PWR
000041
000041
I$RPT
1$SEG
000041
000041
18SFT
000041
1$SRY
000041
1$SUB
1
1878
000041
JJJ
002202
JOSJMP
000167

SEQ 0130

(alalalalalalalalalalalalalalalalalalAlalalalalalalalalalalalalalalal~Y
)

FMT7
FMT8
FMT9

HDR4O

HDSEC
HDSEL
HOWD

FMT6

001

F$SUB
000002
FS$SW
000014
FSTEST=
GARBAG
GBND
GETCHR
GETCMN
GETPAR
GETPOS
GETSTA=
GETSWI
GET.TW
GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GSTAT
GSTATC
GSTATG
GSTATR
GSTER1

oot

FMT4

FMTS

S aa

FMTOP1
FMTOP2
FMTOP3
FMTY
FMT1.1
FMT11
FMT12
FMT13
FMT14
FMT15
FMT16
FMT17
FMT18
FMT19
FMT2
FMT120
FMT21
FMT22
FMT23
FMT24
FMT25
FMT26
FM127
FMT28
FMT3

056476

(=l=lelelele

FLAGTA
FLAG.]
FLA.SE
FLG.MA

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

oo
oe

ASSEMBLY ROUTINES
SYMBOL TABLE

60
64

MAJ.IN
MAJ.LO
MAJ.US
MANQ
MAN.T]

MAP16

MASK .B
MASK .W

MBADAD

MBADSF
MBHSTA

MBSET0=
MCERR

MCONHN
MCOSTA
MCYLOC
MCYLUP
MDATCP
MDCRC
MDHEDR
MDLY
MDRDY
MDRERR
MDRRES
MDRVST

MDSERR
MEM.S]
MERRS
MEXERS
MFLERR
MFMTER
MFOLWR
MFWDSK
MFWSKO
MGTSTA
MHCERR
MHCRC
MHDERR
MHDRCP

MHF CRC

MHNF
MHOSTA
MHSTA
MINOUT
MIN.IN
MIN.US
MISTST
MIsSwi
MISWIW
MITEST=
MNDRST
MNEERR

MNOCLR
MNOINT
MODR

NO.PTA

NR~
=
NSTACH
NUMBIN
NUM.LA
NUM.NO

NUM.UN
NUNITS
NXMERR=
NXTFOR
NXTHL
NXTPAS

062742 6

0BUFF
0CTMSG

037772

000000
006324
047120
047266
033242

033650
042256
020000
056736
002210
014166
004256
052462

OPRO0O3
OPRO04

OPR1
OPR1A
OPR1B
OPR10
OPR11
OPR12
OPR2
OPR3
OPR5
OPR6

OPR7
OPR8
OPR9
OUTINS=
O0$APTS=
0%AU
=
0$BGNR=
C$BGNS=
o$oyU
=
O$GNSW=
O$POIN=

003002
020134
002706
002000
002126
007052
007077
007573
007122
007544
007550
007426
007474
007525
007200
007232
007246
007310
007343
007372
007411

PR104

PR10S
PR106
PRIO7

PRNTST
PRO.CM
PSETNM
PTAB.S
PUTCHR
PWCON
PWRFLG
PWR.FA
PWR.FL
PWR.MS
PWR.SA
PWR.UP
P.CLK.
P2TO1E

P2T02E

RDALHD
RDDATA=
RDHEAD=
RDNOHR=
RDYCHK
RDYWAI
READRL
READ.P
REGBAC
REGSAV
RELDWT=
REQN.P
REQN.T

000040
000000
000000
000000
060001
000001
000001
000001
PARSES
056172
PART1 = 000001
PAR.LA
052160

PASCNT
PASNEW
PASNUM
PASS.C
PATTBL

PATI1
PAT10
PAT2
PAT3
PAT4

PATS
PAT6
PAT7
PAT8
PAT9
POSHDO
POSHSB
POSHW1

003044
014174
003252
033214
002262
004656
005132
004660
004720
004760
005020
005026
005066
005070
005130
020622
020616
020610
054004
057312
000004
000000
000040
000100
000140

000200

oLDCYL
ONSWAP
OPFLAG
OPIERR=
OPMSGS
OPRO0Z2

MOPER
005306
MOPERR
010375
MORECE
002716
MOUTIN
005347
MPNAM
006046
MQUALS= 003760
MREAD
005142
MREADM
005153
MRESKO
005557
MREVSK
005435
MRLFAL
010556
MRSLT
005315
MSEEK
005134
M56.AD
033224
MSG.TY
033200
MSPERR
010271
MSTERR
010324
MTMBS
005711
MTOSLO
006107
ML
062676
MULOAD
005326
MUNDEF
010511
MVOLCK
010160
MWDERR
010360
MWGERR
0
MWLSTA
0
MWORD
O
MWRCHK
0
MWRITE
005
MWRSET
005272
MWRTAB
010617
M4OHDR
005256
NEWCYL
003004
NEWPRI
062422
NEXTAR
056662
NOCLR = 000010
NCERCT
003257
NOIRPT= 000002
NOOP
= 000100
NOPWR
005767
NO.CLK
037566
NO.FLA
056456
NO.LPT
053774

SEQ 0131

RESE3

RESE4

RESES

RESE6
RESPAR
RESTAR
RESTBL
REVSKO=
REVSKS=
RE.SET
RLBA
RLBAS
RLCS

RLCSR

6
6
G
6

RLDA
RLDRV
RLMP
RLVEC
RORWOP=
RPTOP
RPTREM
RPTRES
RSTACK
RSTRT

022600
022372
062624
014054
SAMSK = 000077

oooe

L10053
L1005¢4

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

ASSEMBLY ROgT INES

SYMBOL

035134
003266
054632
007627
000106
010000
033500
032776
007662
014222
040356
032732
007616
063462
017324
006336
004000
040072
013710 6
000400
002704
007705
000007
062352
STATEZ2 010731
STATE3 010741
STATES 010751
STOSTA= 010000
STRCHR
053364
STRT.T
040150
ST.SET
035002
SUBSTK
002306
SUNIT.
040154
SUPERV
036036
SUPFLA
033444
SUPV.T
033616
SUP.PR
034554
SVCBGL= 000001
SV{GBL= 000000
SVCHAN
062472
SVCINS= 000000
SvisuB= 000001
SVCTAG= 000000
SVCTST= 000001
SWAPHD
020074
SWCHAN
037764
SWITCH
056636
SW.ADR
033240
SW.PTA
037750
SYS.FT
046516
SSLSYM= 010000
TBLSTR
002726
187
002446
TCERR
007772
TEMPO
003020
TEMP1
003022
TEMP2
003024

SAVEDO=
SBSFIL
SEARCH
SECWD
=
SEEK
SEEKOP=
SEGSTA
SELQ
SEQMES
. SETDON
SET.MA
SFTPRM
SGNWD
SHIFT
SIMSEK
SPDERR
SPDSTA=
SPEC.U
SPTCOD
SPV.SE
SSINDX
STAMES
=
STAMSK
STARTC

064004
000000
ERRORS DETECTED:

2 O
o

wVwvwv

002762
006436
006451
023064 6
027774 6
006461

ON et
e O
—

wn
~n
~N

2024

2276 G
6543

000
001

VIRTUAL MEMORY USED:
20256 WORDS
( B0 PAGES)
DYNAMIC MEMORY AVAILAB LE FOR
70 PAGES
CZRLIA.BIN,CZRLIA=#SVCRT/M
PART1,C2HEAD ,CZRLIA,C2TAIL,DOCTOR

cn
SEQ 0132

002332
002360
023536
002406
024770
024772
025012
025466
025600
026072
026124
026204
026600
027056
027410
027474
000010
007560
033216
040074
006256
033460
033462
033720
034540
040204
006235

001000
032661
000002

015520
017777

(]

wrhoronN
WNWN Y
wwn o~
Hro FF
o

65%

=i=l=l=l=lelelelelelelelelelelolw-]
PNNWNWNWNIWNO WWNWNWWNWNO WWWO

P
k-]

P—V

PNN—=

OCOCO
GQNNOOOU\\&U\&;buwwWNNNN—G—l—'—'
HSse
M
Fo
Ne
Faxy

]
]
]
] ]
]
]
) ] ]
]
] o] ]
]
)
)
]
)
]
]
] el
)
)
)
)

=SSN

o —_ NN

o (=lelelelelelelelete]
- —h — — — — —
=1 —

~ j=l=lelelelelelelel]
~ =l=l=lelolelelelele]
w ATV e SV e A\ SV e
i \ )

]

. ABS.

ol o

.MP

(2]

w
g
=

—d

.DA

002746
002752
002200
002754

TAT

]

)

Nd—.d-‘—‘-‘fld-fldfldddd—‘—‘c—‘d-fl-fld-fl-fl—.—.ddd‘ oo

—t

o
o
o
o
o

w
H|

000000
000040
000377
000000
010000
177777
000000
000005
000002
177777
177777
000001
177777
010055
000000
000020
177777

) e

T$EXCP=
T$FLAG=
T$HiLl=
T$LOLi=
T$SLSYM=
TSNEST=
T$NSKO=
T$NSK1=
TSNSK2=
1$SAVL=
T$SEGL=
T$SUBN=
T$TAGL=
T$TAGN=
TSTEMP=
T$TEST=
T$TSTM=
—

TEMPY
003026
TEMPS
003030
TEMPS
003032
TEMP6
003034
TEMP7
003036
TEMP8
003040
TERM]
060662
TERML]
056464
TERMTA 052446
TEST.M 04010¢
TIMFLG 033434 G
TIN.CO 033266 G
TIM.OP 047072
T00.MA
052426
TOSLOW= 000001
TRPFLG 003260
TRPHAN 015262
TSTINT
015652
TSTLAB (06273
TST.AB 042414
1ST.70 034616
TYPDR = 000006
TYPEC
053022
TYPEPC
046716
TYPFLA 056340
TYPLIN
052720
TYPNUM 052302
TYPSTR
052740
TYP.ER
046546
TY.UNI
041560
T$ARGC= 000002
T$CODE= 000130
TSERCO= 000043
T$ERRN= 000311

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

pa—y

ASSEMBLY ROUTINES
SYMBOL TABLE

160000
100000

WGESTA= 002000
WIDTH
047466
WLSTAT= 020000

WRTSWI

WTDATA=
XEQDIA
XEQSUB
XEQ.CL
XEQ.CM
XEQ.IN
XEQ.LA
XEQ.OP
XEQ.PR
XEQ.TE
XRDHD
XRDHDC
XRDHDG
XSEEK
XSEEKT

XSEEK1
XTIME
XTIMEN
XTIMST

XXDP.D
XSALWA=
ASFALS=
%$OFFS=
X$TRUE=
$BREG

$ENDAD
$SAV2
$SAV3
$SAV4
$SAVS

002724
000112
062510 6
062476 G
042220
037530
041702
035772
041774
035174
042040
020170
020160
020174
016562
016552

016566

061362 6
062206
061404
037550
000000
000040
000400
000020
060244
062462 6
063526 6
063542 6
063560 6
063600 6