Digital PDFs

AH-F130A-MC

May 1979

86 pages

Original

3.4MB

view download

OCR Version

2.9MB

view download

Document:	CZRLLA0 RL11,RLV11 RL01-02 DRIVE CPT MAY 1979 bw
Order Number:	AH-F130A-MC
Revision:	000
Pages:	86
Original Filename:	CZRLLA0__RL11,RLV11__RL01-02_DRIVE_CPT__AH-F130A-MC__MAY_1979_bw.pdf

OCR Text

R L1 1

R LV1 1

RLO1,02 DRIVE CPT

CZRLLAO

AH-FT30A-MC

MAY 1979

FICHE 1 OF 1

MADE IN USA

E!HEIIEII

]
SEQ 0001

PRODUCT

(ODE:

AC=F131A=M(

PRODUCT NAME:

(ZRLLAO RLO1/02 DRIVE

DATE

S=JAN-79

(REATED:

MAINTAINER:

DIAGNOSTIC

ENGINEERING

AUTHOR:

DEKNIS,

(OMPATABI{ITY

TEST

CAMPBELL

THE INFORMATION IN THIS DOCUMENT IS SUBJECT 1O CHANGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DIJGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-

SIBILITY FOR ANY ERRORS THAT
THE

SOF TWARE

DESCRIBED

MAY APPEAR

THIS

DOCUMENT

IN THIS MANUAL.
IS

FURNISHED

([®E

PUR-

(MASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND (AN
Bt C(GPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICEL)
ONLY
FOR
Ust 11?1SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING
By DIGITAL.

DIGITAL EQUIPMENT
OR RELIABILITY OF
DIGITAL,
(GPYRIGHT

(C)

CORPORATION ASSUMES NO RESPONSIBILITY
115 SOfTWARE ON EQUIPMENT THAT IS NOT

1979,

DIGITAL

EQUIPMENT

(ORPORATION

FOR THE USE
SUPPLIED BY

TABLE

—

o
o

PSS

e
s
s

DIAGNCSTIC HIERARCHY PREREGUISITES
ASSUMPT]ONS

NJ —
[QWY

—

N AN

.
«

O N PORONMPNIND
R —

CONTENTS

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

e
«
.
.
.

(2]
o V]

[aV]

rorono

OPERATING INSTRUCTIONS
HOW TO RUN THIS DJAGNOSTIC
THE SIX STEPS OF EXECUTION
SAMPLE RUN-THROUGH
HOW TO CREATE A CHAINABLE FILE

DETAILS OF

COMMANDS AND SYNTAX

TABLE OF COMMAND VALIDITY
COMMAND SYNI1AX

EXTENDED P-TABLE

HARDWARE

SOf TWARE

DJALOGUE

FARAMETERS

PARAMETERS

3.0

ERROR

4.0

PERFORMANCE

5.0

DEVICE

&.U

TEST

INFORMATION
AND

PROGRESS

INFORMATION TABLES

SUMMARIES

REPORTS

PAGE

SEa 0002

GENERAL

. .

STRUCTURE OF

THIS

BOTH

SEQ 0003

PROGRAM

OCCUPIES

XXDP AND ACT.

14.5K

WORDS

CAN BE

MEMORY

AND

RUN STANDALONE

CAN BE CHMAINED UNDER XXDP, ACT AND APT IN ®ACT

(ORE
]MAGE'
C(OMMAND BELOW FOR DETAILS OF
1S A SINGLE PROCRAM FROM THE STANDPOINT OF

Wt
HAVE
RELEASED

INFORMATION

DIAGNOSTIC

WITH

PAGE

MODE

UNDER

COMPATIBLE

(SEE

XXDP,

AND

‘'CREATE

CHAINING PROCEDURE).
IT
THE DIAGNOSTIC USER, BUT

INCORPORATED INTO 1T A CONTROL MODULE WHICH WILL
INDEPENDENTLY AS A DJAGNOSTIC SUPERVISOR.

LATER BE

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES
FfIRST
TO THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN ''HARD CORE'' QUESTIONS ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE,
INDICATED
BY A PROMPT (HARALTER (DS B>).
AT COMMAND MODE THE OPERATOR MAY ENTER ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW.
THE

SUPERVISOR

CODING

FOLLOWS

IMMEDIATELY

THE

DIAGNOSTIC

TEST

(OD-

ING,
BUT
THE
SUPERVISOR
LISTING HAS BEEN SUPPRESSED FOR GENERAL
DISTRIBUTION.
A LIMITED DISTRIBUTION HAS BEEN MADE 10
FIELD
SERVICE OF THE SUPERVISOR ASSEMBLY LISTING, AND [T MAY BE CONSULTED IN
EVENT OF A SOf TWARE PROBLEM.
1 .1 .2

DIAGNOSTIC

THE RLO1 DRIVE
GRAM THAT WILL
Tt

TEST

WRITES
1.2

INFORMATION

COMPATABILITY TEST |S A PDP-11 (LSI-11)
BASED
PROTEST INTERCHANGABILITY OF CARTRIDGES BETWEEN DRIVES.

PERFORMS

TO PRCVE

WRITES,

READS,

OVERWRITES,

ADJACENT

CYLINDER

C(OMPATABILITY.

SYSTEM REQUIREMENTS

ol
e

PDP=11/,5]1=11
TONSOLE
e

DevICE

PROCESSOR WITH

16K

OR MORE

MTMORY

(LA3O,LA36,VISO,ETC.)

Ok 2 RLYIT/RLVTY (ONTROLLER(S) WlTH:
1 = 8 RLOT DRIVES W]TH RLOIK CARTRIDGES

C(ONTAINING

SECTOR FILE'
« B RLOZ2 DRIVES WITH RLOZK CARTRIDGES C(ONTAINING
SECTOR FILE"

°'BAD

'BAD

PAGE

xwll1P,

* LINE

1.2.2

KW11L

(OPTIONAL)

PRINTER

(OPT]ONAL)

SOf TwARE REQUIREMENTS

CZRLLAD RLO1/C2 DRIVE
(FORMERLY

1.3

CZRLEB)

(OMPATABILITY

RELATED DOCUMENTS AND
RLOY USERS MANUAL
XXDP USERS MANUAL

‘.G

STANDARDS

(EK=-RLO1-UG-PRE)

DIAGNOSTIC HIERARCY PREREQUISITES
THE

RLO1/02

SUBSYSTEM SHOULD HAVE

SUCCESSFULLY

RUN

THE

FOLLOWING

PROGRAMS
:

CVRL AAQ
CZRLGAQ

RLV1T RLO1/02 DISKLESS TEST (RLV11
RLTT1/RLVIT RLO1/02 CONTROLLER TEST

C(ZRLHAQ
CZRLIAQD

RLO1/02 DRIVE TEST (PART 2)
RLT1/RLVTT RLO1/02 PERFORMANCE

EXERCISER

ASSUMPTIONS
ThE

HARDWARE

PROPERLY.

NOT

2.0

RLT11/RLVIT RLO1/02 CONTROLLER TEST (PART 2)
RLO1/02 DRIVE TEST (PART 1)

CIRLJAD
CZRLKAD
1.5

ONLY)
(PART

OTHER
FALSE

THAN

THE

ERRORS MAY

FUNCTION PROPERLY.

OPERATING INSTRUCTIONS

RLO1/02
BE

SUBSYSTFM

REPORTED

THE

ASSUMED
PROCESSOR,

WCRK

ETC.,

SEQ 0004

1
PAGE

2.1

HOW TO RUN

2.1
THIS

THE SIX STEPS OF

tXECUTION
coceceecees

DIAGNOSTIC

CEDURES.
THE

THIS DIAGNOSTIC

cos

THE

SHOULD

START

DIAGNOSTIC

HAS

THE

WHEN THIS DIAGNOSTIC

LOADED

AND

STARTED USING NORMAL

COMMAND SHOULD NOT
PROPER

iRANSFER

STARTED,

THE

XXDP

PRO-

SPECIFY AN ADDRESS, BECAUSE

ADDRESS

(ODED

FOLLOWING

INTO

IT.

STEPS wiLL

OCCUR:

seeROCOERNOTOSTYR

A SHORT

SERIES OF

''MARDCORE

QUESTION

L=CLk
P=CLK

(L)
(L)

N
N

SOHZ (L) N ?
LSI (L) N2

LPT

MEM
THE

(L)

(k)

DEFAULTS

(ARRJAGE

(D)

?
?

ASKED:

NE]JTHER P OR L

TYPE

TWO

QUESTIONS'' wltL

ASKED:

1S THERE AN L-(LOCK?
"
ot
P=(LOCK?
1S THE POWER S0 (YCLES (EURCPE)?
IS MACHINE AN LSI?
IS THERE A LINE PRINTER?

(SHOWN

RETURN,

P=(LOCK

STEP

AR EARN
R ]

MEANING

THE

HOW MANY
AFTER

QUESTION WlLL

CLOCK

(HARACTERS

MEMORY

EACH QUESTION)

IS POSSIBLE

FOR EXAMPLE,

THAT

ARE

CAN BE

NOT

ALL

YOU SAY "'YES' TO THE

NOT

ARE

ASKED.

ANSWERED

SECONDS

THERE?

SELECTED BY

THE

HITTING

QUESTIONS WILL

L-CLOCK

QUESTION,

YES THE OPERATOR JILL BE

APART,

ASKED

tee
A
ERRAONR

STEP 2

TREEARRSTESR

wHEN YOU HAVE

WwiLt

JSSUE

YOU RESTART

ANSWERED

ALL

THE

THE PROMPT ''DS=-B>''.,
xxXDP,

YOU WILL BE

COMMAND MODE,

WiLL

REFER TO THE PRESENCE
AS OPPOSED

THIS POINT

YOU WiL.

HARD(CORE

QUESTIONS,

THE

FROM THIS POINT UNTIL THE

TALKING

TO THE

THIS PROMPT

DIAGNOSTIC,

AS BEING

TO xXDP C(OMMAND MODE.

ENTER A *'START'' COMMAND.

THIS

DIAGNOSTIC

TIME WHEN

NOT

XXDP,

IN DIAGNOSTIC
IS

NOT

THE

SOME-

SAME
AS THE XXDP ''START'' (OMMAND, WH](H YOU ALREADY ISSU*D IN RE>PONSE TO THE XXDP DOT PROMPT.
THIS
''START'
(OMMAND
(AN
TAKE
A
NUMBER
OF
SW]TCHES
AND
FLAGS
(ALL OPTIONAL) AND THE DETAILS Of
TMESE ARE SET
- FORTH
IN
2.3
DETAlLS
OF
COMMANDS
AND
SYNTAX',
HOWEVER,

[N ORDER

TO USE

THE

PROGRAM,

ALL

YOU NEED

TO SAY

SEQ 0005

PAGE

THING LIKE

TH]S:

STA/PASS:
1/7F LAGS : HOE
THINGS

10 NOTE

MERE:

ONLY THE FIRST

THMREE

THE "DS=-B>"" LEVEL

C(HARACTERS OF

NEED

TO BE

TYPED.

THIS OR ANY COMMAND

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

PASS

CONSISTS

UNITS BEING TESTED

PASS

SPECIFIED

RUNNING

THE

FULL

(THIS wiiLt BE

THE

ABOVE

THE
WHY

AGAINST

EXPLAINED SHORTLY).

A
ALL

ONE

EXAMPLE.

THE "'FLAGS' SWITCH MAY SPECIFY
BUT THE MAIN USEFUL ONES ARE:
LOt

DIAGNOSTIC

ANY OF

A NUMBER

FLAGS,

LOOP ON ERROR

HOE

HALT

1ER

INHIBIT ERROR PRINTCUT

HCE FLAG 1S
SHORTLY),

ON ERROR

SPECIFIED

I A A A2 RR

THE

ABOVE

EXAMPLE

(WE°'LL

SEE

* STEP 3 o
sRCSRTEROEREY

WHEN YOU HAVE

TYPED

TYPING

NUMBER

EACK
A

WORD

DtviCE

WlTH

THE

IN A "START'' COMMAND,

THE

WARNING HERE:

THE

DIAGNOSTIC WILL

(OME

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

THE

DEVICES
THE

YOU WISH

NUMBER

DIAGNOSTIC.

TeST.

UNITS

FOR EXAMPLE,

DEPENDS

THE

THE DIAGNOSTIC

TARGET

15 CI-

RECTED AT A DISKk DRIVE, THEN THE
NUMBER
OF
UNITS
WOULD
BE
THE
NUMBER
OFfF
DRIVES TO BE TESTED.,
WHEREAS |F THE DIAGNOSTIC WAS D]RECTED AT THE D,SK CONTROLLER, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF CONTROLLERS,
ThE TARGET DEVICE OF A DIAGNOSTIC (AN
A WAYS BE DETERMINED BY INSPECTING THE ''HEADER'' STATEMENT NEAR
THE

BEGINNING OF
STATEMENT

THE

SOURCE (ODE.

SHOULD BE

THE

DEVICE

ONE OF
TYPE

THE

OPERANDS OF

DIAGNOSTIC.

THIS "'HEADER"

SEa 0006

1
PAGE

teeROEROOETRYS

&
STEP

tevRERRREERESS

WHEN YOU HAVE

TYPED

THE

NUMBER OF

QUESTIONS

USED

BUILD

70 BE

TESTED,

(ORE,

C(ALLED

QUESTIONS''.

DIAG-

?Eg?EBES".

ONE HARDWARE P-TABLE WiLL BE BUILT FOR EACH UNIT

TABLES

THE

THEL

ASK

ARE

YOU THE ''HARDWARE

UNITS

NOSTIC WILL

ANSWERS TO THESE

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS,
THIS

REPRESENTS

NEW

PHILOSOPHY

‘‘HARDWARE

TO BE

SERIES wiLL

DJAGNOSTIC

ENGINEERING.

DIAGNOSTICS IN THE FUTURE WiLL NOT BE WRITTEN TO AUTOSIZE OR ASSUME
STANDARD ADDRESSES:
INSTEAD, THEY WILL ASK THE
OPERATOR
FOR
ALL
THE

INFORMATION

THEY

NEED

TEST

THE

DEVICE.

rERNRRORRERNDN

STEP S5

THRAPTRERNY

AFTER

YOU HMAVE

ANSWERED

ALL

THE

HARDWARE

QUESTIONS

(SEC

2.5)

FOR

ALL
THE
UNITS,
YOU
WILL BE ASKED ''CHANGE SW?'* 1f YOU WANT T0 BE
ASKED THE SOFTWARE QUESTIONS THAT DETERMINE THE
BEHAVIOR
OF
THIS
PROGRAM,
TYPE
°‘'Y''.,
If YOU WANT T0O TAKE ALL THE DEFAULTS T0 THESE
QUESTIONS, TYPE 'N''.
IF
YOU
TYPE
'Y
YOU
WILL
BE
ASKED
THE

SOF TWARE
OQUESTICNS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOF TWARE P-TABLE IN THE PROGRAM,
THE SERIES OF QUESTIONS
WwILL
Bt

ASKED

JUST

ONCE,

REGARDLESS

THE

NUMBER OF

UNITS

10O BE

TESTED.

reeEORNRRRESE

STEP 6

TRePROEOOERNSY

AFTER

BEGIN
THAT

YOU HAVE

ANSWERED

TO EXECUTE

(AN HAPPEN NEXT,

(CUNTERED
(OMMAND.

THE

NO ERROR

PLY
EXECUTE
(OMMAND MODE

TEST

QUESTIONS,

CODF.

DEPENDING ON WHETHER

AND ALSC ON WHAT

C(ONSIDER

SOFTWARE

THE HARDWARE

SWITCH VALUES

POSSIBILITIES:

]S ENCOUNTERED,

THE

THERE

DIAGNOSTIC

ARE

HARDWARE

SEVERAL
ERROR

YOU SELECTED ON THE

THEN THE

THE
DESIRED
NUMBER Of
(PROMPT DS~-B>).

DJAGNOSTIC WiLL
PASSES

WILL

THINGS

EN-

STARY

SIM-

AND RETURN

SEQ 0007

1
PAGE 8

AN ERROP

PENS,

HOE
THE

LOE

1S ENCOUNTERED,

DEPENDING ON

THE

THEN ONE

SETTINGS

THE

THREE

HOE

SET:
THE ERROR WILL BE REPORTED ON
THE
DIAGNOSTIC WIti RETURN TO COMMAND MODE.

SET:

(ODE

THE

THAT

NE]THER HOE
THE

THINGS

HAP-

(CONSOLE

AND

AND LOE

FLAGS.

DJAGNOSTIC WiLL LOOP ENDLESSLY ON THE

DETECTED

NOR

CONSOLE

LOE

AND

THE

BLOCK

ERROR.

SEY:

THE

NORMAL

ERROR WiLL

EXECUTION

WILL

REPORTED

RESUME

ERROR HAD OCCURED.

SAMPLE RUN-THROUGH

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.
RECALL
THAT
WF
ENTERED
THE
COMMAND °'STA/PASS:1/FLAGS:HOE''.
THIS WOULD BE A VERY
TYPICAL

WAY

TO RUN

THE

DIAGNOSTIC.

PASS WILL BE

EXECUTED

ggEnglggLE
-15SueD.

REQUESTED

1S ENCOUNTERED,

AN ERROR

PROMPT

POINT

WILL

THERE

ARE

THE

REISSUED

ERROR

(BECAUSE

FOUR DJFFERENT

WAYS

ERRORS

WILL

THE

HOE

ARE

ENCOUNTERED,

AND

THE

REPORTED

FLAG

YOU CAN GET

PROMPT

SET).

WIiLL

AND

THE

PROGRAM

GOING

THRU

THIS

GOING

AGAIN:

1SSUE

ANOTHER

STEPS 2,

ISSUE

THAT

''START'' (OMMAND

AND 6 AGAIN)

A ''RESTART'' COMMAND

THE

HARDWARE

(SAME

QUESTIONS

ARE

(THUS

START

NOT

ASKED)

COMMAND

ISSUE A "'CONTINUE'' COMMAND (EXECUTION WILL RESUME
BEGINNING
OF
THE PARTICULAR HARDWARE TEST (MOST
T1(S

CONSIST

ERROR HALT
4.

ISSUE

A NUMBER OF

OCCURED.

THESE)

THAT

WAS

MOST

A “'PROCEED'' (OMMAND:

TYPICAL

THING

T0O DO HERE

FLAG SETTINGS.

EXCEPT
AT
THE
DIAGNOS-

IN WHEN

THE

NO QUESTIONS ASKED.
EXECUTION WILL

RESUME

THE

PROCEED,

BUT

WITH

INSTRUCTION
FOLLOWING THE ERROR REPORT (THIS
COMMAND AND CAN BE ISSUED ONLY AT A HALT

CIFFFRENT

ALL

PROBABLY

PRO/FLA
TER: L OFGS:
: HOE-0

ISSUE

THE

YOU WOULD WANT

[S A SPECIAL

T0 SAY:

SEQ 0008

PAGE

THIS WILL

THE

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

STUDY

RESUME

THE

JER

C(INFIBIT

ERROR PRINTOUT)

FLAG

THE HOE FLAG

EXECUTION AT

ERROR OR SCOPE

INSTRUCTION AFTER

ERROR REPORT

OR WHATEVER.

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WitL TAKE YOUu
OuT
OF
THE LOOP AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE
THREE

C(HOICES:

START

RESTART

CONTINUE

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

THE

DIAGNOSTIC.

YOU WOULD

AND WANT

10 FINISH

TYPE

CON/FLAGS:HOE: JER=0:LOE=0
THIS WILL

RESTORE

THE

FLAGS

THEJR ORIGINAL

VALUES

AND RESUME

ECUTION
AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN.
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON ThRU
NEXT ERROR OR TO END OF PASS.

TwO

AT END OF

(HOICES:

PASS YOU WANT

START

¢.

RESTART

T0O RUN THE DIAGNOSTIC

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHEP
HARDWARE QUESTIONS AGAIN,

AGAIN,

YOU WANTED

IF
TO

YOU

TO ANSWER

FX-

ThHE
THE

HAV{

THE

SEa 0009

—

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

ABOVE

DIALOGUE

LSl

(L)

N 2

MEM

(K)

(D)

LPT

(L) N ?

OOUoo

UNIT 2
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLO! (L) ? N
(HANGE

(L)

UNIT 1
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLOT (L) Y ?

O00O0o

OCOO0O0O0T

(D)

& UNITS

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

OO0 0

(L)

(L) N

S0HZ

T CIRLL
L=CLK

? N

(ZRLL HRD ERR 00004 T1ST
ERR HLT

RNEOSO

(N=RLO2)

003 suB 002 PC:004130

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

L OO

LOOK

R CZRLLA

MIGHT

0.0

RO PR RSP RRERRCRER OO RNRNRNROENORNSSEOTEOSERIOSOETRTTYTY

TH]S POINT

THE

ERROR UNTIL

DJAGNOSTIC

IS LOOPING ON

ERROR WITHOUT PRINTING ANYTHING.
ceQeCeCsdeve

YOU HAVE

LOCATED

THE

YOU CAN SCOPE

IT,

THEN

“C

OUT

R RO BRORORORURRRORSROSRRRSORRRCERRRNRORSOSSEROSTTY

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

0.0

PAGE

THIS

SEQ 0010

CHANGE

CZRLL
“

EOP

(L)

2 N

PAGE

D.O

DS=B>RESTART, PASS: 1

0.0

(HANGE

D..

(1)

2.2
THE

DIAGNOST]C

RECEIVED

FROM RELEASE

ENGINEERING

CANNOT

RUN

IN (HAIN MODE.
THAT S WHY 1T BEARS THE EXT-NSION “BIN'' INSTEAD Of
"BIC"'.
THERE IS A WAY, HOWEVER, "0 (REATE A (HAINABLE PROGRAM fROM

WHAT

YOU'VE

GOT.

CONSISTS OF

ISSUED

PROMPT

WHERE

DS-B>.

RUNNING THE PROGRAM WITH THE
YOU

THIS

WOULD

COMMAND

NORMALLY
CAUSES

JSSUE

THE

DIAGNOSTIC

THE QUESTIONS AND ANSWERS AND THEN TO HALT,

DINARILY BEGIN EXECUTION OF
YOU

(AN

HERE

DUMP

THE

PROGRAM AS

WITH THE NEW EXTENSION ‘BIC'.

R UPD?2

RESTARTM:

SAMPLE

DIALOGUE

XXXXXX

«(LR
*{ 0AD DIAG.BIN

XFER:200
CORE:0,60602
*START 200
L=CLK (L) N ?

HARDWARE
IT

SITS

ACCOMPLISH

SPECIAL

A START

JUST WHERE

TEST

COMMAND

(ODE.

CORE

THIS:

THE

“'CCI"

(10 THE

THRU

ALL

17 WOULD ORTHIS

POINT

LOAD MED]UM,

SEQ 0011

—

1
PAGE

DS-B>(C(1]
UNITS (D)

(HANGE SW
P1AB END:

? &

(L) ? N
60632

TR ERNEET QRN RRCRRRRERNOETROEROPOEROEPRROERNS

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

ARAR

NEN

*HICORE 60632

CORE:

0,60632

*DUMP DKO:

DIAG.BIC

THE RESULT OF DOING THIS
FILE CONTAINING THE XXDP

IS THAT
(OMMAND

YOU

CAN NOW BUILD

xXDP

CHAIN

THE DIAGNOSTIC WiLL EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE 1T WHEN YOU DID THE CCl1 COMMAND.

USING

.R DIAG.BIC
AND
THE

SeEa 0012

——

N
PAGE

DETAILS OF

TABLE OF

C(OMMANDS AND SYNTAX

COMMAND VALID]TY

THERE ARE FOULR WAYS OF ENTE~ING DIAUNOSTIC
FERENT SUBSETS OF THE DIAG (OMMAND SET ARE
HOW ENTERED

COMMAND MODE,
AVAILABLE WITH
LEGAL

OPERATOR ENTERED

'RUN DIAG®

AND
DIfEACH:

COMMANDS

START
PRINT

DISPLAY
FLAGS

.
Z.

IFLAGS

D JAGNOSTIC HAS FINISHED ALL
l TS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY
FLAGS

LFLAGS

OPERATOR

INTERRUPTED THE

WAS

ENCOUNTERED

START

HOE

FLAG

RESTART
CONTINUE
PROCEED
PRINT

DIAGNOSTIC

ERROR

WilH

THE

START

WITH CTRL/C

SET

RESTART
CONTINUE
PRINT
DISPLAY
FLAGS
LFLAGS

SET

DISPLAY
FLAGS

IFLAGS

.2
|

(OMMAND SYNTAX
AR AR R

RXN,]

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

AR A

THE

CIAGNOSTIC

MAY

SFECIFIED.

THE

AR AR RSS20l
NERE]

THE

ISSUED WHEN

FOLLOWING:

CORE

IS EXECUTED

MESSAGE

DJAGNOSTIC

iN ACCORDANCE

°'# UNITS?'' IS PRINTED.

OPERATOR

COMMAND MODE

WITH

THE

START

HAS BEEN ENTERED

TVYPED “'RUN DIAGNOSTIC' B)

SWITCHES

COMMAND
VIA ONE

DIAGNOSTIC

SEQ 0013

FINISHED

EXECUTING

OPERATOR

ENTERED

()

ERROR

WAS

(ONTROL/C.

UNITS?", THE HARDWARE DIALOGUE
THE

QUESTIONS

BECOME

PROGRAM

THE

'"'CHANGE

THME NEW DEFAULTS,
[N ORDER

SWITCH

AFTER

ISSUED,

THEREFORE
TO

THE

IS INITIATED.

SW?'' IS

TO RETURN

ARGUMENTS ARE

ENCOUNTERED

THE

LOAD

WITH

HOE

FLAG

PAGE

SET

OPERATOR RESPONDS

WHEN IT

AND

THF

IS COMPLETED,

ANSWERS,

IS NECESSARY

10 ''#

IFf

GIVEN,

RELOAD

THE

DEFAULTS.

FOLLOWS:

UTEST=LIST' IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ET(.)
OR
RANGES
OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY TME TESTS TO BE EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE
NUMBERS
RANGE
FROM
1
T0 THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.
THEY MAY BE
SPECIFIED IN ANY ORDER.
TESTS WiLL BE EXECUTED IN NUMERICAL
ORDER
REGARDLESS

CUTE

ALL

THE

ORDER OF

SPECIFICATION.

THE

DEFAULT

TO EXE-

TESTS.

“'PASS=CNT'* IS A DECIMAL NUMBER INDICATING
THE
PASSES.
A PASS 1S DEFINED AS THE EXECUTION OF

DESIRED
NUMBER
Of
THE FuLL DIAGNOSTIC

(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE
DEFAULT
IS
NON-ENDING
TEST
EXECUTION.
‘'FLAG=-LIST'' IS A SEQUENCE OF ELEMENTS
OfF THE FORM <FLAG>, <FLAG=1>, OR
<FLAG=0>,
SEPARATED
BY
COLONS,
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:
HOE

HALT

ON ERROR,

ERROR

CAUSING

COMMAND MODE

TO BE

LOE

LOOP ON ERROR, CAUSING THE DJAGNOSTIC
WITHIN
THE SMALLEST DEFINED BLOCK OF
TEST, OR TEST) CONTAINING THE ERROR

IER

INHIB]T

IBE

INMIBIT BASIC ERROR REPORTS

IXt

INHIBJT

PR]

DIRECT

PNT

WHEN

EXTENDED ERROR REPORTS
ALL MESSAGES

NUMBER OF

iEST

TO A LINE

UAM RUN

[N UNATTENDED MODE,

STATISTICAL

IDU INHIBIT DROPPING OF

PRINTER

BEING EXECUTED

ON ERROR

INHIBIT

TO LOOP
CONTINUOUSLY
CODING (SEGMENT, SUB-

ERROR REPORTING

BOE BELL

ISR

ENTERED

IS ENCOUNTERED

BYPASSING MANUAL

REPORTS

UNITS BY DIAGNOSTIC

INTERVENTION TESTS

SEQ 0014

THE

FLAGS NAMED OR

EQUATED

ARE

CLEARED,
A FLAG NCT SPECIFIED IS
NOT GIVEN ALL FLAGS ARE CLEARED.

“EOP=INCR'* IS A DECIMAL NUMBER
PASSES)

DEFAULT

1S AT

\AAAAAR AL

IS DESIRED

THE

SRS

THAT

END OF

SET,

THOSE

CLEARED.

FEQUATED

THE

END OF

EVERY

ARE

FLAGS SWITCH

INDICATING HOW OFTEN

THE

PAGE

PASS MESSAGE

(IN

TERMS

PRINTED.

SEQ 0015

THE

PASS.

X XN R

RESCTART) /TEST:TEST=LIST/PASS:PASS=(NT/FLAGS:FLAG-LIST/EOP:EOP=-INCR/

UNITS:UNIT=-LIST
(A

THE

ARl

DIAGNOSTIC

SPECIFIED.

ONES

THE
NEW

IN CORE

CORE

HOWEVER,

ARE

USED.

QUESTION ""CHANGE
DEFAULTS.

ENY%:SD (VIA
SWIT(H

THE

(ONTROL/C.

THE

EXECUTED

NEw

SW?'' ]S ASKED AND

DIAGNOSTIC
ARE

EZ F

ACCORDANCE

WITH

IS
IN

THE

START

RN R

SWITCHES

THE

ANSWERS GIVEN BECOME

THE

ISSUED WHEN COMAND MODE

FINISHED

[INSTEAD,

HALT

COMMAND

HAS BEEN

ERROR

()

EXCEPT:

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

10 THE ORDER IN WHICH THEY WERE BUILT.
F1ED
MUST NOT HAVE BEEN DROPPED BY THE

MAND.

THE

UNIT-LIST

DEFAULTS

DROPPED BY OPEFATOR COMMAND''.

TO ''ALL

ALL

THE
UNITS
SPECIOPERATOR DROP (OM-

THAT

HAVE

THE EFFECT OF

LASTS UNTIL THE NEXT
START
(WHERE
RESET TO ""ALL'') OR THE NEXT RESTART,

‘''P-TABLES'® ARE NOT BUILT.

COMMAND MAY

ARGUMENTS

UNSPECIFIED FLAG SETTINGS ARE

NOT

BEEN

THE UNIT=-LISI

AUTOMATICALLY

UNCHANGED.

teesosdstee
RO RROCSTRRCRROSRROROCRRSRTRROTORORORTYRTE

(ONCTINUE) /PASS : <PASS=(NT/FLAGS:<FLAG=L]ST>
sressdeRORERRRSRRROTRRARCSROORRORRRRNRRROEREROARRYRTCEOROPY

(OMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT
ON
ERROR
OR
A
(ONTROL/C.
THE EFFECT OF THE COMMAND IS TG GO 10 THE BEGINNING OF
THE TEST THAT WwAS BEING EXECUTED WHEN THE HALT
OR
(ONTROL/C
TOOKX
PLACE,
SOf TWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE
PARAMETERS

MAY

NOT

(HANGED.

)

THE

SWITCH

ARGUMENTS

ARE

THE

START

DEFALT FOR PASS=(NT 1S THE
PREVIOUS START OR RESTART

UNSFECIFIED FLAG SETTINGS ARE

PAGE

COMMAND EXCEPT:

UNSATISFIED

PASS=(NT

FROM

THE

UNCHANGED

st ROERROCROEROSROCSRRRSRRNORSOEOTTORTYRTY

PROCCEED)
/FLAGS: <FLAG=LiST>
teedeedRteeRRERRORRTRROOOSOROROTORY

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR,
THE
EFFECT OF THE COMMAND S TO BEGIN EXEZUTION AT THE LOCATION FOLLOWING
THE ERROR (ALL.
NE]JTHER HARDWARE NOR SOF TWARE
PARAMETERS
MAY
BE
ALTERED.
THE

SWITCH

ARGUMENTS

UNSPECIFILD

ARE

THE

FLAG

SAME

SETTINGS

THE

ARE

START

COMMAND

EXCEPT:

UNCHANGED

AP RRRRORNRRRNERORNRORRRNSRARTRSRRRNSTOARRORARORORNERRROOEOROCORROROROCSROORCTEROROEORTEOEY

CCI/TEST:TEST=LIST/PASS:PASS=(N"/FLAGS:FLAG=LIST/EOP:EOP-INCR
TR CRNRE R R R RO

RN T RERNERNNARRNORNREOERAROERNRONOPROEOTEROPPCESOEROPROSEOOEROROOETTRY

THE DJAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT THE
HARDWARE
TEST
(ODE.
NOW THE OPERATOR CAN DUMP THE CORE IMAGE 10
THE MEDJUM WITH A BIC EXTENSION,
THE BI1C FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER T S
RUN
MANUALLY
OR IN CHAIN MODE.
1F RUN MANUALLY IT CAN BE INVOKED

EITHER WITH A "'START'' (IN WHICH (ASE
FILE:

NORED)
TOR

THE

PRE-GENERATED ANSWERS

17 WILL BEHAVE

OR WITH A "'RESTART'" (IN WHICH CASE

ANSWERS WiLL

USED).

THE

TO OPERATOR QUESTIONS wiLL

THE

PRE-GENERATED

BIN
1G-

OPERA-

IF RUN IN CHAIN MODE, AUTOMATIC EXECUTION WILL COMMENCE IMMEDIATELY
FROM
THE
XXDP COMMAND ‘‘.R DIAG''.
THE COMMAND PROMPT "'DS-B>'" WILL

NOT

ANY

SWITCHES SPECIFIED ON THE

1SSUED.

BIC FILE

IS5 RUN IN (HAIN MODE

CCI

COMMAND WILL CARRY OVER WHEN

(EXCEPT THAT UAM IS ALWAYS SET

BUT WILL NOT CARRY OVER WHEN IT

IS RUN MANUALLY.

THE

THERE)

TO DO A CC] ON A FULL SIZED DJAGNOSTIC
(14,5
WORDS),
A
MACHINE
SIZF LARGER THAN 16K IS REQUIRED.
THE EXACT SIZE NEEDED DEPENDS ON
WHICH UTILITY ]S USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME.
DRO(P)/UN]JTS:UN]T=L]ST
[

XSRN
RN NN

SEQ 0016

THE

UNITS

SPECIFIED

SA(: PSS(?:;!L
Y

ARE

START

DROPPED

COMMAND

FROM

TESTING UNTIL

IS GIVEN.

THEY

A DROP CANNOT

ARE

PAGE

ADDED

FOLLOWED

THERE IS ALSO A ''DROP'® MACRO
INTERNAL
TO
THE
DIAGNOSTIC,
WHICH
GIVES
THE
FACILITY
OF
AUTO-DROPPING.
THE DURATION OF A PROGRAM
DROP, HCWEVER, 1S ONLY UNTJL THE NEXT START OR RESTART.
teeeRORSORPIORRIOCORCRRY

ADD/UNITS:UNIT=L]ST
teNsRERRCTROSORRRRRRSNY

THE

UNITS

SPECIFIED

ARE

ADDED

UROPPED
BY
THE DROP COMMAND)
Bt FOLLOWED BY A PROCEED.
TR

BACK

(THEY

TH4E

MUST

TEST

WAVE

BEEN

SEQUENCE.

PREVIOUSLY

AN ADD

CANNO?

ReR

PRI(NT)
sedRROT
Y

ALL
THE

STATISTICS TABLES ACCUMULATED BY THE
DIAGNOSTIC
ARE
ISR C(INHIBIT STATISTICAL REPORTING) FLAG IS C(LEARED.

PRINTED.

seeRPRERRESERORORROROSRORCERRNRRORNOROTY

DIS(PLAY)/UN]ITS:<UN]T=-L]ST>
seeeCseRRRRRSROSROSOSORROPRRORRNRRSY

THE
THE

HARDWARE P-TABLES FOR ALL
FORMAT IN WHICH THEY WERF

UNITS UNDER TEST ARE PRINTED
ENTERED.
ANY UNITS THAT WERE

BY THE OPERATOR ‘‘DRCP’’ (OMMAND ARE

SO DESIGNATED.

*eeocee

FLACGS)

THE

CURRENT

SETTINGS OF

eceoseRe

2FL(AGS)
ALL

FLAGS ARE

(LEARED.

ALL

FLAGS

ARE

PRINTFD.

OUT
IN
DROPPED

Sea 0017

2.6

EXTENDED P-TABLE
THE

FULL

CAPABILITY

FOLLOWING DISCUSSION OF
AS SOON AS
SPACE
IN
ARE

BETWEEN
P=TABLE

THE

SAME

FORMAT,

HARDWARE

THE

HARDWARE

WHAT

HAPPENS

DIALOGUE

AND

THERE

PARAMETER

THE

(W1TH THE NUMBER N),
ALL OF THE P=TABLES

ONE-TO-ONE

QUESTIONS

AND

(ORRESPONDENCE

“HE

SLOTS

[N THE

FORMAT,

A STRING OF

VALUES MAY BE

VALUES

REPRESENT

GIVEN AS A RANGE

PURE

NUMERICAL

LATES TO THE

STRING 6,7,8,9,10

INCREMENT OF

2).

ARE

REVEALED

INTERNAI LY,

IN GIVING A STRING OF VALUES, COMMAS W]THOUT
Bt USED TO INDICATE A REPETITION OF THE LAST
THE

DIALOGUE

THE QUESTION ''# UNITS?'" IS ANSWERED
CORE 1S ALLOCATED FUR '"'N'° P=-TABLES.

THE

2
PAGE

ADDRESSES,

THE

SAMPLE

RANGE

DATA,

INTERVENING VALUES MAY
NAMED VALUE.

(6-10 FOR EXAMPLE).
THIS

(AN INCREMENT OF
TRANSLATES

SAMPLE

1).

THE

RANGE

THE

It
TRAN-

VALUES

STRING ¢,8,10

(AN

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO
(ONSTRUCT
A
SEY
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,

S HARDWARE QUESTIONS IN THE DIALOGUE).

FOLLOWING 1S THE DIALOGUE FOR THIS 8 RLOX DRIVE SYSTEM,
TEM
HAS
TWO (2) RL1V TYPE CONTROLLERS ALL 70O BE SET AT

(ON

THIS
Svs“BR LEVEL"

THE FIRST & DRIVES ARE RiO1'S AND THE LAST & DRIVES ARE
THE

¥ UNITS

SECOND

(D)

CONTROLLER):

UNIT 1
BUS ADDDRESS (0)
VECTOR (0) 160 ?

DRIVE
DRIVE

(Q0) 0 ? 0-3
TYPE = RLOY

174400 ?
(L)

UNIT S
BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (0) 0 ? 0=-%
DRIVE TYPE - RLOY (L) ¥ ? N

RLO2'S

SEQ 0018

PAGE

THt FIRST TIME THRU THE P-TABLE QUESTIONS THE
DEFAULT
VALUES
ARE
USED FOR THE CONTROLLER TYPE (QUESTION #1), (SR ADDRESS OF THE (ONTROLLER (QUESTION #2),
#3),
TWt
DRIVE
TYPE
#6).

THE

ACTUAL

UNIT

THE C(ONTROLLER VECTOR
ASSIGNMENT
(QUESTION
(QUESTION #5), AND THE ''BR LEVEL' (QUESTION

NUMBERS

SIGNED O THRL 3 FOR THE
THE

TYPE

SECOND

THE

TIME

THRU

THME

THE

RLO1'S

FIRST & P-TABLE
P~TABLE

SECOND CONTROLLER),

(ONTROLLER.

THE

QUESTION #4

WAS

AS-

SLOTS.

QUESTIONS

FIRST

FOR

(FOR

THE

RLOZ2 ASSIGNMENT

QUESTION DEFAULTED 70 "'RLI11"’

SECOND QUESTION WAS

ANSWERED

REFLECT

THE

(HANGE IN (SR ADDRESS FOR THE RLO2 CONTROLLER (175400).
THE SECOND
(ONTROLLER'S VECTOR wAS ALSO CHANGED TO 164 IN
QUESTION
@5,
THE

RLO2

TEST

AND THE

QUESTION
FROM

TME

UNIT

DRIVE

#5,

FIRST

NUMBERS WERE

TYPE

THE

WAS

LAST

PASS,

SET

ASSIGNED

VALUES O

FOR RLOZ2'S FOR

THE

IN QUESTION #4

REMAINING & UNITS

QUESTION WAS DEFAULTED USING THE "'BR LEVEL"

SEQ 0019

2.9

HARDWARE

THE

PAGE

PARAMETERS

FOLLOWING QUESTIONS

WILL,BE

ASKED

START

(OMMAND.

THE

TWAT WILL BE TAREN N A (ARRIAGE RETURN RESPONCE: | Lo bt VAL
BUS ADDRESS

(0)

174400?

ANSWER W1TH

THE

BUS

ADDRESS OF

VECTOR

(0)

160?

ANSWER

WlTH

THE

INTERRUPT

ORIVE

(0)

THE

DRIVE(S)

ANSWER

2.6

= RLOV
(N)

SOF
THE
OR

-e

TYPE

VECTOR OF

THE

CONTROLLER.

THE

CONTROLLER

DRIVE

TWARE

CONNECTED

AN RLO?

PARAMETERS

FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A
CONTINUE.
THEY
ALLOW
FLEXABILITY IN THE WAY

HAVES.

THE

SOF TWARE

WAY
1T
RUNS.
OR (ONTINUE BY

PARAMETERS

THE PARAMETERS
ANSWERING (Y)ES

"LHANGE
A YES
Wil
MARK.,

THERE

ARE

3.0

THE

PROGRAM

FLEXIBILITY

MODIFIED ON A START,
FOLIOWING QUESTION:

THE

RESTART,

(*1)

wiLL

DEFAULT

ALL

REMAINING QUESTIONS

AND

PARAMETERS,

INFORMATION

REGISTERS

vOLVED

NO SOF TWARE

ERROR
ERROR

S.wW.

GIVE

(AN BE
TO THAE

START, RESTART,
THE PROGRAM BE-

ANSWER WILL ASK THE FOLLOWING SOF TWARE
PARAMETER
QUESTIONS,
THE PRESENT DEFAULT VALUE PRINTED TG THE LEFT OF THE QUESTION
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN

ON A <CR>,
(ON.ROL
START THME TEST.

ALL

CONTROLLER.

ANSWER W1TH

DRIVE

THE

IN ERROR,

IS (OMPLETE

ARE

GIVEN

IN GIVING ALL

AS WELL

INFORMATION

TRA(Kk,

SECTOR

NECESSARY,

AND DRIVES

IN-

SEQ 0020

PAGE

ERROR REPORTING

]

ALL

ERROR

PORTS

ARE

INFORMATION
AIMED

DZRLL

PRINTED

BEING

XXX

SELF

ERR

THE

CONSOLE

EXPLANATCRY.

Yvyyy

1sT

THE

DEVICE.

c¢RROR

GENERAL

FORMAT

[S:

P(:

RRRRRR

SUB

PPP

RE-

WHERE
:

?
XXX

1S PROGRAM LETTER
IS SFT - SOFY ERROR
HRD - HARD ERROR

Dv FAT
SYS FAT

YYYYY

111

PPP
RRRRRR

ERRORS GIvE THE
wiTH A ONE LINE

THE

IS
IS

THE
THE

- DEVICE FATAL
= SYSTEM FATAL

ERROR
ERROR

ERROR NUMBER

TEST NUMBER

SUBTEST NUMBER
PROGRAM LISTING LOCATION

AND AFTER
DATA,

THE

ERROR

ALONG

SECTOR

AFTER

EXAMPLE:

ONE LINE DESCRIPTION
(OPTIONAL SECOND LINE)
(OPTIONAL

BEFORE
AFTER

THIRD

LINE)

CS:XXXXXX BA:XXXXXX
CSoXXXXXX

OTHER PERTINENT

BA:ZXXXXXX

DA:XXXXXX MP:XXXXXX
DA:XXXXXX

INFORMATION

MP:XXXXXX

IS GIVEN AT

(AN BE

FOUND

THIS

TIME.

IN SECTION 5.0.

FRROR DESCRIPTIONS:

"ERROR READING SECTOR"
ERROR WAS ENCOUNTERED WHILE TRYING TO READ VERIFY
17T WAS WRITTEN BY THE SAME DRIVE.
“MINIMUM Of
THE

PROGRAM REQUIRES

‘MAXIMUM OF
THE

TWU DRIVES
AT

REQUIRED"
LEAST

TWO DRIVES

TO PROVE

FOUR DRIVES ALLOWED''

PROGRAM ONLY

ALLOWS

THE

A MAXIMUM OF

FOUR

DRIVES.

COMPATABILIlY,

SEa 0021

“'CAN'T FIND FIVE

ADJACENT

TRACKS'

THE PROGRAM REQUIRES EN SETS OF
MINED SPOTS ACROSS THE PACK.
11

GOOD ADJACENT

TRACKS

PAGE 22

THE

FIVE ADJACENT TRACKS AT
WAS UNABLE T0 FIND FIVE

PREDETERCOMPLETELY

LIMITS GIVEN.

“ERROR WRITING SECTOR"
AN

ERROR

WAS

ENCOUNTERED

WHILE

TRYING

WRITE

THE

710

READ

GIVEN

SECTOR.

DATA

AFTER

"'OVERWRITE ERROR''
AN ERROR WAS

ENCOUNTERED

OVERWRITE BY ONE DRIVE.

WHILE

TRYING

BOTH DRIVES

INVOLVED ARE

GIVEN.

‘‘READ RECOVERY ERROR'’
s:‘ERROR WAS

“ADJACENT

ENCOUNTERED

TRACK

WHILE

RECOVER

ANOTHER

DRIVES

TEST'

AN ERROR WAS ENCOUNTERED WHILE
DESCRIPTION IS GJVEN.

3.2

TRYING

THF

ADJACENT

TEST

PART,

FURTHER

ERROR HALTS

ERROR HALTS ARE
WITH /FLAG:HOE.

«.0

SUPPORTED PER DESCRIBED
IN
THERE ARE NO OTHER HALTS.

PERFORMANCE

AND

PROGRESS

REPORTS

crooscocsrone

coee

ecoscoees

woeceeoee

TH1S5 PROGRAM WiLL

6,2

NOT

GIVE

ANY

PERFORMANCE

ANY

PROGRESS

THE

REPORTS.

PROGRESS REPORTS

THIS

PROGRAM WwiLL

NOT

GIVE

REPORTS,

SECTION

SEQ 0022

5.0

DEVICE
RLTT/RLVIT

CONTROL OF

THE

INFOPMATION TABLES
(ONTROLLER HAS

CONTROL

(XXXxXXQ)

= NON EX]STANT MEMORY ERROR
= HEADER NOT FOUND (WITH BIT

AND

STATUS

10 SET)

NO WV NN )

9/8
7 =
6 5 =
& - EXTENDED BUS ADDRESS
FUNCTION CODE

SEEK
READ HEADER
WRITE DATA
READ DATA
READ W]THOUT

0O - DRIVE

FOR

HEADER

DISK

16)

(LSI-11)

C(OMPARE

READY

BITS 15-1 BUS ADDRESS OF
BIT 0 SHOULD BE O
=

(BIT

= NOP (PDP=11, MAINT
WRITE CHECK
GET DRIVE STATUS

RLBA = BUS ADDRESS REGISTER

RLDA

REGISTERS

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 (BIV 17)

B
RS S
I
RN I
I

FOLLOWING FOUR(«)

L
B

THE

SUBSYSTEM,

G Pl G Puett Puunt

DODDDDODE®

P P

BIT

SEQ 0023

- COMPOS]ITE ERROR
- DRIVE ERROR

O @
@D T

e ]

RLCS =

—

THE

2
PAGE 23

ADDRESS

(XXXXXZ)

DATA TRANSFER

(XXX¥X&)

811 15«7 = CYLINDER ADDRESS FOR TRANSFER
BI® 6 = SURFACE FOR TRANSFER

BIT1 5-0 = SECTCR FOR TRANSFER (1-40.)
FOR

SEEXK

FUNCTION

———
.
e
4

=7 - DIFFERENCE

5
=
-

- MUST
- MUST
FOR GET

TO NEW CYLINCER

- MusSi BE ZERO (0)
SURFACE (0=UPPER, 1=LOWER)
MUST BE ZERO (0)
SEEK DIRECTIONC 1=IN /7 0-0UT
BE
BE

STATUS

ZERO (0)
ONE (1,

FUNCTION

BIT
BIT

15-4 -~ JGNORED SHOULD BE
3 - DRIVE RESET
BIT 2 - MUST BE ZERO (0)
BIT 1 - MUST BE ONE (1)
BIT O - MUST BE ONE (1)
RLMP

- MULTIPURPOSE

ZERO (0)

BIT

15 = 0 - WORD COUNT

fOR

READ HEADER

BlT

15-0 - DISK HEADER OF

(TWO'S COMPLIMENT)

FOR

GET

HAS

DRIVE

BIT
BIT
BIT
BlT
BI'
BIT
BIT
BT
BIT
BI1
811
BT
Bl1
Bl

15 - WRITE DATA ERROR
14 - CURRENT HEAD ERROR (CHE)
13 - WRITE LOCK STATUS (WL)
12 - SEEK TIME OUT (SKTO)
11 = SPIN ERROR (SPE)
10 - WRITE GATE ERROR (WGE)
9 - vOLUME CHE(K (v()
8 - DRIVE SELECT ERROR (DSE)
7 - DRIVE TYPE ]S RLO2 If SE1
6 = SURFACE (0-UPPPER, 1-LOWER)
5 - COVER OPEN
& = HEADS HOME
3 - BRUSHES HOME
2=0 =STATE BITS
0 - LOAD STATE

FUNCTION

SECTOR

(FIRST

= IERO WORD (SECOND READ)
= HEADER CRC (THIRD READ)

STATUS

)

FUNCTION

STATUS

READ)

PAGE

)

SEQ 0024

6.0 TEST
THE

]
B
B
I
I
| 2O I

—

2
PAGE 25

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

SUMMARIES
FOLLOWING

A BRIEF

DESCRIPTION OF

THE

WAY

THE

PROGRAM

GRAM
WwlLL ASK THE OPERATOR TO SEQUENCE
GIVEN IN THE FOLLOWING MANNER.

THE

PACK BETWEEN THE

EXE-

CUTES.
THE
PROGRAM WILL CHECK COMPATIBILITY BETWEEN 2 - & DRIVES
USING THE SAME RLOIK CARTRIDGE GR SAME RLOZ2K CARTRIDGE.
THE
PRO-

PLACE

PACK

IN DRIVE

UNLOAD DRIVE
PLACE

PACK

N ON CONTROLLER

IN DRIVE

UNLOAD DRIVE N+1

THE

PROGRAM WILL

HARDWARE

SEQUENCE

QUESTIONS.

N ON CONTROLLER

N+¢1

DRIVES

AND LOAD

ON CONTROLLER

AND LOAD

ON CONTROLLER X

THE

ORDER

THAT

WAS

GIVEN

THE

1.E.

DRIVE

? 0,1,2.3

PROGRAM W]lLL

DRIVE

SEQUENCE

0,1,2.3,2.1.,0

? 1,0,3.2

PROGRAM wlLL

SEQUENCE

1,0,3,2.3.0.1

WHEN THE FIRST DRIVE 1S LOADED THE PROGRAM WILL ATTEMPY TO FIND TEN
SETS OF FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS THAT CONTAIN NO

BAD SECTORS USING THE BAD SECTOR FILE.
SURFACES,
AFTER THIS

OVERWRITE)

THE

PACK

THE

10 SPOTS ARE:

BOTH

FOLLOWIN. CHECKS ARE

MADE:

INNER,
OUTER,
MIDDLE,
ONE QUARTER AND THREE QUARTERS.
1S DONE THE OVERWRITE TEST IS PREPARED(FIRST DRIVE CAN'1T

AS WELL

THE

ADJACENT

TEST.

1S CYCLED BETWEEN DRIVES

EACH DRIVE

THE

CAN OVERWRITE EACH OTHER DRIVE

EACH DRIVE CAN RECOVER EACH OTHERS DATA
EACH DRIVE

(AN Wwx]TE ADJACENT

TO EVERY OTMER

SEQ 0025

DRIVE WITHOUT
READS

DISTURBING THE OTHER'S DATA,

AND WRITES

BOTH DIRECTIONS.
ADJACENT
TESTS

ARE

PAGE 26

WRJTES

TAKE

PERFURMED

PLACE

PLACE
AT

ALL

AFTER

SEEKS FROM

TO BOTH

SIDES OF

TEN

SPOTS

ACROSS

EACH WRITE
THE

PACK.

SEQ 0026

CIRLLAO RLOY/2 DRIVE

TABLE

11=
‘L=

S-

13-

52-

CCNTENTS

MACRO v03.01

9-FEB=79

GLOBAL EQUATES SE(CTION
GLOBAL DATA SECTYION

GLOBAL
GLOBAL

TEXT SECTION
ERROR REPORT SE(TION

GLOBAL

SUBROUTINES

INITIALIZATION SECT]ION

CIAGNOSTIC

SECT]ION

SUPERVISOR == (0w (ORt

19:41:4¢

SEa 0027

CIRLLAO RLOY/2 DRIVE

(PY

MACRO v03.01

9-FEB=79 19:41:44 PAGE

000000

006000
000000

SV(
SVCINS 0
SVCTAG 0
T

.-2000

002000

POINTER NONE

002016
002020
00202¢
002024

002026

002030
002032
002034
002036
002040
002042
002044
002046
002050
0C N5
002052

002054

002056

002060
002062
002064
002066
002070
002072

002074
002076
002100
002102
002104

060
000000
000000

032622

000000
022132
000000
033114
000000
0060000
000000
000000
022144
000000
000000
000000
002
002

000000
000000
000000
000000
000000
002114
000000
002112
002112
000000
000000
000014
000060
022146

HEADER

LASCI]
LASCI]
JASCL]
<ASCL]
LASCLI
BYTE
.BYTE
.BYTE
<ASCII
LASCII
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD

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

(ZRLL,A,0,0,0,0,RL0ON

/C/

11/

/R/
L/
L/

0
0
0

/A/

10/

0
0
LSHARD

OOO0ON OoOro

002000
002001

MDMEDR

SHW

$: AST

$DISPAT(H

MNAMOOO

BGNMOD

SREVISION
$EDIT

OO0

1 5 002000
16 062000

002002
002003
002004
002005
(02006
002007
002010
002011
002012
00201¢

(P!

002000

002069

LTITLE
CIZRLLAO RLOV/2 DRIVE
.ENABLE AMA
.ENABLE ABS
NLIST
ME,(ND, mo
JMCALL
SvC

f B

1
1
1
1

T Ve
R o No - B NTe W IV L W]

SEQ 0028

CIRLLAQ RLOV/2 DRIVE

(PT

MACRO v03.01

9-FEB-79 19:41:44 PAGE

1=}

SEQ 2029

002106

17 002110
18

023562

.WORD

LSCLEAN

LMORD

DEVIYP
LASCIZ

<RLOV,RLO02>
/RLOV,RLO2/

ENDMOD
DEVREG

000000

BLKW

[ I

Q= OO~
Q=N

LEVEN

.SBTTL GLOBAL

EQUATES SECTION

;DEFINITIONS
002126

BGNMOD

002126

GLBEQAT
EQUALS

000000
000002
000004
000006

(s-0
BA-2

DA=4
MP=6

;CONTROL AND STATUS OFFSET
;BUSS ADDRESS OFFSET
;DISK ADDRESS OFFSET
;MULTI PURPOSE OFFSET

sCONSTANT OFFSETS FOR INDIVDUAL DRIVE BUFFERS
000000
000002
000004
000006

000001
000100
100000

040000
020000
010000
004000
004000
010000
002000

000200

000040
000020
000002
000004
000006
000010

000012
000014
000013
000003
000001

(SR=0
VE(=2
DSB=¢4

;CONTROLLER ADDRESS
;VECTOR OF CONTROLLER
;DRIVE SELECT

DRDY=BIT0
INTEN=BIT6
ERR=BIT15
DERR=BIT14
NXM=B]T13
DLT=BIT12
DCRC=BITI1

;DRIVE READY
; INTERRUPT ENABLE
:(COMPOS]TE ERROR
;DRIVE ERROR
;NON=EX]STANT MEMORY ERROR
.DATA LATE
;DATA CRC ERROR

OP1=8B]T10

;OPERATION INCOMPLETE ERROR

PAT=6

HCRC=BITI
HNF=BIT12

CRDY=B]T7
BAI7=BITS
BA16=BlT4
(RSET=B]T1

GSTAT=B]T1?2
SEEK=BIT1:!BI12
RDHDR=B]T3

WRITE=BIT13!B]'1
READ=BIT3!Bi12

DRS1-B]T3!8111.8B110
6SBIT=BIT1.BIT0

Mx-BIT0

PATTERN UNIQUE

uRIVE

;HEADER CRC ERROR
;HEADER NOT FOUND ERROR

;CONTROLLER READY
;EXTENDED BUS ADDRESS BIT 17
;EXTENDED BUS ADDRESS BIT 16
:CONTROLLER RESET FUNCTION CODE

;GET DRIVE STATUS FUNCTION CODE
;SEEK FUNCTION CODE
;READ HEADER FUNCTION (ODE

;WRITE FUNCTION CODE
;READ FUNCTION CODE

;DRIVE RESET COMMAND C(ODE FOR DRIVE COMMAD WORD

;GET

STATUS COMMAND CODE

;MARKER BIT1

FOR DRIVE

C(OMMAND W(CRD

C(OMMAND WORD(SEEKX ,GET

STATCS)

000004
000020
000100

000063
000002
000004
000006

002126

000000

N - OO
"N = DOV® NN

—
=l

ot ekt (D)

D
il
—

et et e

—t
ol
il
gl

b et il e

il
)
il —mdh

PURNON

002224

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

SEG 0030 l

HEAD=BIT6

SHEAD

JHEAD SELECT

;OFFSET

FOR HARDWARE

(SR=
VECT=

0
2

TYPDR=

HDORFND:

.WORD

STATUS

P-TABLE

]S THE LIST OF

.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
_WORD
.WwORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD

MID30:
MID40:

.WORD
.WORD

.WORD

.WORD
.WORD
LWORD
.WORD
.WORD
.WORD

,WwORD

HEADER

IN BAD

TRACKS 10 USE FOR TMIS TES?

ENTERED BY

oUT10:
0uT20:
outT30:
ouUT&60:
oUTS0:
OUT11:
ouT21:
OuUT31:
OUT4&l:
OUTS1:
oaut0:
0QuU20:
0QuU30:
0QuU40:
0QuS0:
CQultl:
0QuU21:
oQul3l:
0Qu&l:
0QusS1:
MIDI0:

TQU10:

FOR READ ,WRITE,GET

ENDMOD
GLOBAL DATA SECTION

GLBDAT

MIDSO:
MID11:
MID21:
MID31:
MID4&1:
MIDS1:

FOR SEEK

BGNMOD

Mip20:

SELECT

ODRBT=

:TRACKS ARE

000000
000060
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

1-2

;DIRECTION FOR SEEK(Q AWAY FROM SPINDLE)

SKHS=B] 14

SHERE
002130
002132
002134
002136
002140
002142
002144
002140
002150
00215¢
002154
002156
002160
002162
002164
002166
108 002170
002172
002174
002176
002200
002202
002204
002206
002210
002212
002214
002216
002220
002222

£E

SIGN=BIT?

<SBTTL

002126
002126

MACRO v03.01 9=FEB=79 19:41:44 PAGE

ODOOOOOOOOOOOCODOODODOOOOOCOOOOOOOOOOO

CZRLLAQ RLOY/2 DRIVE (P
GLOBAL EQUATES SECTION

'FNDTRK'

ROUTINE

:OUTER

TRK HEAD O

'FIXTRK®

;OUTER TRX HEAD 1

:1ST

QUARTER

:1ST QUARTER

TRK

SECTOR LIST

HEAD

TRK MEAD

;MIDDLE

TRK HWEAD O

:MIDDLE

TRx HEAD

sSRD QUARTER TRX mEAD 0

ROUTINE

—

CIZRLLAD RLO1/2 DRIVE (PT

GLOBAL DATA SECTION

—=OV0o~

U N

OO NO VNS W

o
el

)
o

il
i

N
N

el
el

el
—

AN LN

123
124
125
126

002226
002230
002232
002234
002236

002240
002242
002244
002246
002250
002252
002254
002256
002260
002262
002264
002266

140 002270
141 002272

000000
000000
000000
000000
000000
000000
0000G?
000000
000000
000300
000000
000000
(00000
000000
000000
000000
000000
000000

000000

MACRO v03.01

9-FEB-79

TQu20:
1QU30:
TQU&O:
1QUS50:
TQUlY:
TQull:

19:41:44 PAGE

.WwORD
.WORD
.WORD
.WwORD
.WORD
.WORD
.WORD
.WORD
.WORD

T0U31:

TQU4Y:
TQUSY:

INN10:
INN2O:
INN30:
INNGO:
INNSO:

INN'1:

.WORD
.WORD
.WORD
.WORD
.WORD

0
O
O
0
0

_WORD
_WORD
_WORD
.WORD

O
O
O
0

_WORD

INN21:
INN3YT:
INNG1:
INNS1:
.EVEN

O
O
0
O
0
0
0
0
0

1-3

SEa 0031

;3RD QUARTER

TRK

HEAD

INNER TRX HEAD O

;INNER

TRK

HEAD

;SECTOR LIST FOR LASY DRIVE WRITTEN
;MAP Of 16 SECTOR DRIVE BITS
147 002274

SECLST:

.BLKW

16.

JBUFFER TABLE FOR 24 X 5 MATRIX USED FOR ADJACENT CYLINDER TESTING.
151

002334

SECBUF:

.BLKW

;LIST OF
FIRST

5024,

TRA(KS USED TO OVERWRITE

FIVE

ARE

TEST,

CYLINDER ADDRESSES OF

TOP

SURFACE.

SLAST FIVE ARE CYLINDER ADDRESSES OF BOTTOM SURFACE.

1€9
160
161
162
163
166
165
166

002714
00271¢

062720
002722
002724
002726
002730
002732
002734
00273%6

168 002740
169 002742
170 002744
171

002746

002134

002160
002204
002230
002254
002146

OVWIRK: OUT30
oau30
mip30
Tou30

INN3O
ouri
oaul

002172
002216

mip3

TeuY

002242
002266
1525295
133333

0660666
1555%%§

INN3Y

PATLST:

.WORD

152525

WORD

066666

.WORD
.WORD

133333
1555459

DATA SECTION

[A N § o O I

= OOVBNO N

PSP

NN = OO0~

GLOBAL

22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
17
I8
39

«0
41
«2
43

002750
002752
002754
002756

002760
002762
002764
002766
002770
002772
002774
002776
003000
003002
003004
003006
003010
003012
003014
003016
003020
003022
003024
003026
003030
003032
003034
003036
003040
003042
003044
003046
003050
003052
003054
003056
003060
003062
003064
003066
003070
003072
003074

56
§7 017124

000000
000000
000000
000000
000000
000000
0000G)
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

MACRO v03.01

9-FEB=79 19:41:44 PAGE

TEM:
.WORD
T.DRIVE: .WORD
FOWR:
.wORD
fFADY:
.WORD
TEMP:
.WORD
LSTCLR: .WORD
REASON: .WORD
ERFLG:
.WORD
STFLG:
.WORD
ADJLOC: .WORD
ADJFLG: .WORD
ADJDIR: .WORD
DRSTAT: .WORD
HSFLG:
.WORD
OSECT:
.WORD
HEADO1: .WORD
DIRC:
.WORD
SURF:
.WORD
CYL:
.WORD
REVSK:
.WORD
fFORSK:
.WORD
uut:
.WORD
SECT:
.WORD
LSTDRV: .WORD
GDATA:
.WORD
BDATA:
.WORD
: .WORD
WCOUNT
SECWRD: .WORD
OFFSET: .WORD
LSTIRK: .WORD
FRTTRK: .WORD
PRSTRK: .WORD
SURFACE: .WORD
TRKEND: .WORD
TRKCNT: .WORD
E.CS:
.WURD
E.BA:
.WORD
.WORD
£.DA:
E.MP:
.WORD
E.MP1:
.WORD
E.MP2:
.WORD
S:
B(
.WORD
BBA:
.WORD
.WORD
BDA:
BMP:
.WORD

SERNMI:
SERNM?:

ADJTRK:
ADJLUT:

ADJL(?2:
ADJLCS:
ADJLCG:

STSECY:
STSEC:
BUF:
:
DRBUF

.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
LWORD
.WORD
.WORD
BLKW

WO OO0 OOOOODOOODOULUTDOOOOOOOOOOODOOOOODOOOOOOOOOOOOOOOOOOODOO

CZRLLAQ RLOY/2 DRIVE

072.

SEaQ 0032

sLAST

CONTROLLER

;DRIVE ERROR REASON
;ERROR FLAG

:PFROGRAM START

FLAG

:TRACK INDEX FOR ADJ. CvL TEST
;FLAG FOR ADJ. STORE OR RETRIEVE
;ADJACENT SEEKX DIRECTION

;SURFACE FLAG
;DIRECTION OF SEEK
;REVERSE

SEEK

; FORWARD

SEEK

;UNIT UNDER TEST
;SECTOR
;LAST DRIVE

:6O0D DATA
;BAD DATA

;WORD COUNT
;SECTOR WORD
; INCREMENT

sLAST

TRACK OF

;FIRST TRACK OF
;PRESENT

s SURFACE

; TRACK

: TRACK

; IMAGE
; IMAGE
: IMAGE
; IMAGE

TRACK

SEAR(H

FOUND

COUNT

OF (SR
OF BUS ADDRESS
OF DISK ADDRESS
OF MULTI-PURPOSE WORD !

: COMMAND LOADED
:BUS ADDRESS LOADED
:DISK ADDRESS LOADED
:WORD COUNT LOADED
:SERIAL NUMBER OF

CATRIDC:

YINSIDE/OUTSIDE FLAG

:UUT FOR ""ADJCYL"
:TEMP LOC FOR “"ADJCYLTM

:SECTORS 10 WRITE “‘ADJCYL"

CBUFFSR FOR 24 SECTOR READS
:DRIJE

INFORMATION BUFFERS

2
3

AN AV

CIRLLAD RLOY/2 DRIVE
GLOBAL DAYA SECTION

(P?

000004

0171264
017126
) 7130
01 7132

000000
000002

01713¢
01713¢
017160
0171642

000000
000002

017144
017146
017150
017152

017154

MACRO v03.01

9-FEB-79 19:41:44 PAGE

.REPT

000004
0000Cs

000004
000006

000002
000004
000006

8}7166

0000G0

;CONTROLLER ADDRESS
;VECTOR
;DRIVE SELECT BITS

(SR
VEC
DSB

:CONTROLLER ADDRESS
;VECTOR
;DRIVE SELECT BITS

(SR

: CONTROLLER ADDRESS
;VECTOR
;DRIVE SELECT BITS

;PATTERN UNJQUE

;PATTERN UNIQUE

DSB
PAT

000000

G17156
017160
017162

;PATTERN UN]QUE

.WORD
ENDMOD

TO DRIVE

TG DRIVE

TO DRIVE

ER ADDRESS
; CONTROLL
;VECTOR
;DRIVE SELECT BITS

(SR
VEC
DSB8
PAT

:
ENDBUF

SEQ 0033

(SR
vE(
DSH
PAT

VE(

000006

PAT

000000
000002
000004

;PATTERN UNIQUE

JEND OF

TO DRIVE

DRIVE BUFFFRS

CIRLLAG RLO1/2 DRIVE

GLOBAL

TEXY

SECYION

MACRO v03.01

l
9-FEB-79 19:41:44 PAGE &

LSBTTL GLOBAL TEXT SECTION

g 017166

BGNMOD

;GLOBAL TEXT

11 017166

1083

17 017462
18 017515
19 017563

124
124
103

12
13
16
15
16

20
21
22
23
24
25
26
27
sg

017213
017278
017313
17352
017411

017623
017643
017667
01\
7
017736
017746
G17756
020003
020030

109
105
115
115
124

117
122
105
115
104
122
105
105
101

117

17%¢

122
122
101

131
131
116

122
122
IRR
0
105

126
105
122
111
117
105
122
122
104

30
3
32
36
37
38
38 020060

122
122
110
130
123

105
101
122
123
122
126
122
122
112

GLBTXT

C(NTYQT:

_ASCIZ

OVMES:
RECMS:
ERRFND:

.ASCIZ
LASCIZ
.ASCIZ

INITWR:
DCKER:
FfEw:
MANY:
NONE:

OVWER:
RECER:
FUNERR:
SKER:
FuWD:
REV:
WRIT1:
READV:
ADJYIXT:

_ASCIZ
_ASCIZ
LASCIZ
LASCIZ
LASCIZ

,ASCIZ
.ASC1Z
_ASCIZ
LASCIZ
LASCIZ
LASCIZ
_ASCIZ
_ASCIZ
_ASCIZ

/CONTROLLER TIMED OULT/

/ERROR ON RECOVERING INITIAL WRITE BY FIRST DRIVE
/ERROR ON READ/
/MINIMUM OF TWO DRIVES REQUIRED/
/MAXIMUM OF FOUR DRIVES ALLOWED/
/TEST ABORTED = CAN'T FIND ANY GOGD SPOTS/
/TRYING TO OVERWRITE DRIVE /
/TRYING 1O READ DATA WRITTEN BY DRIVE
/CAN'T FIND FIVE ADJACENT TRACKS/

/OVERWRITE ERROR/
/READ RECOVERY ERROR/
/ERROR IN SEEX OPERATION/
/M]S SEEK ERROR/
/FORWARD/
/REVERSE/
/ERROR WRITING SECTOR/
/ERROR READING SECTOR/
/ADJACENT CYLINDER TEST/

LEVEN
ENDMOD

.SBTTL

a% 020060

BONMOD

GLBERR

GLOBAL

BGNMSG

ERRI

ERROR

REPORT

SECVION

ag 020060
4

46 020060

#FRMIO,FRTYTRK,LSTTRK,SURFACE

MOV

#FRM10,-(SP)

013746
013746
013746

003050
003042
003044

MOV
MOV
MOV

020100
020104
020106
, 020110

012746
010600
104014
062706

000004

MOV
MOV
EMT
ADD

012746

021365

000012

48 020114

PRINTB

020060
020064
020070

020074

020114
9 020114

SO 00116
51 020116
020116
020120

SEQ 0034

1 10000:

104023

BGNMSG
005046
156416

000005

SURFACE,=(SP)
LSTIRK,=(SP)
FRYTRK,=(SP)
#4,-(SP)
SP,RO
($PNTB
212,5P

ENDMSG

EMT

CIMSG

ERR?
PRINTB
(LR
B1S8

#FRM4,(SR(RL) ,<B,DSB+Y (R4 >
-(SP)
DSB+1(R&),
(SP)

CZRLLAO RLOY/2 DRIVE

GLOBAL

ERRCR REPORT

020126

020130
020134

020140
020142
020144
52 020150
53 020154
020154
o 020154
55 020156
56 020156
020156
020160
020164
020170
020174
020200
020202
020204
57 020210
58 020214
020214
020220
020225
020230

020234

020240
020242
0202644
59 020250
020250
020252
020256
020262
020266
020272
020274
0 020276
6

020302
020302
> 020302

SECTION

016446

012746
012746
010600
104014
062706
004757

000000

MOv
Mov

L10001:
BGNMSG

005046
1564'6
016446
012746
012746
010600
104014
062706
004737

013746
013746
013746
012746

012746

010600
104014
062706
005046
156316
016346
012746
012746
010600
104014
062706

000005
000000
021066
000003
000010
025506

003024
003014
003012
021127
000004

000005
000000
021716
000033

000010
L10002:

104023

63 020304

BGNMSG

005046
156416
016446

012740
012746
010600
104014
062706
004737

000005
000000
021066

000003
000010
025506

3
SEG 0035

(SR(R&) ,-(SP)

JERML
- (SP)
#3,-(SP)

MoV
EMY
ADD
JSR
ENDMSG

SP,RO
($PNTB
#Mo,sP
PC,REGDMP

EMT

($MSG

ERR3
PRINTB
CLR
B81S8
Mov
MOV
MOV
MOv
Mt
ADD
JSR
PRINTB
MOv
MOv
Mov
MOV

W#FRM4,CSR(RG) ,<B,DSB*1(R&)>
-(SP)
DSB¢+1(R&),
(SP)
(SR(R&) ,=(SP)
#ERMG,
= (SP)
#3,-(SP)
SP,RO
($PNTB
#10,SP
PC,REGDMP
¢REGISTER DUMP ROUTINE
#FRMS5,<SURF>,<CYL>,SECT
SECT,=(SP)
cyL,-(SP)
SURF ,=(SP)
#FRMS,-(SP)

MOV
EMT
ADD
PRINTB
(LR
B1SB
MOv
MOV
MOV
MOv
EMT
ADD

SP,RO
($PNTB
#12,5P
#FRM16,CSR(R3),<B,DSB*1(R3)>
=(SP)
DSB¢1(R3),
(SP)
(SR(R3) ,-(SP)
#iRM16,-(SP)
#3,-(SP)
SP,RO
($PNTB
#10,sP

MOv

000012

020316
020322
020326
020330
020332
66 020336

MOov

000010
02550%

104023

9-FEB-79 19:41:44 PAGE &=

021066
000003

65 020304
020304
020306
020312

MACRO v03.01

;REGISTER DUMP ROUTINE

N6, =(SP)

ENDMSG
EMT

($MSG

ERR4

PRINTB
(LR
B1SB
MOv

MOV
MOV
MOv
EMT
ADD
JSR

WFRM4,(SR(R&L) ,<B,DSB+1(R&)>
=(SP)
DSB+i(R&),
(SP)
(SR(RL) ,=(SP)

FERMG,-(SP)
#3,-(SP)
SP,RO
($PNTB
#10,5P
PC,REGDMP

¢REGI.TER DUMP ROUTINE

——

—— o e4

CZRLLAO RLOV/2

DRIVE

GLOBAL ERRCR REPORY

(PT

SECTION

67 020342
020342
020346
020352
020356
020362
020366
020370
020372
68 020376
0¢0376
020402
020406
020412
020416
020622
020426
020430
020432
69 020436
020436
020442
(20446
020452
020454
020456

003024
003G14
003012

73 020464
74 020464
020464
020466

020472
020476
020502
020506
020510
020512

75 020516
76 020522

020522
020522

77
78 020524
79 020524

EMT

003010
021217
000002

L10003:
BGNMSG

156416

016446
012746
012746
010600
106014

062706
004737

104014

062706
004737

SP,RO
(SPNTB

ADD

¥6,SP

NERM7 ,-(SP)

#2,-(SP)

SP,RO
($PNITB

ENDMSG
EMT

ERRS

PRINTB

($MSG
FFRMG,(SR(RG) ,<B,DSB+1(R4)>
=(SP)

(SP)
DSB+1(R4),
CSR(R4) ,=(SP)

021066
000003
000010
025506

EMT
ADD
JSR
ENDMSG

¥10,5P
PC,REGDMP

EMT

C($MSG

L10004:
BGNMSG

012746
010600

¥ .-(SP)

MOv
Mov
MOv
MOv

104023

020546
020550

REASON,~(SP)

#ERM6,-(SP)

¥14,5P
#FERM7,DIRC
DIRC,~(SP)

CLR
B1SB

000005
000000

LSTCLR,=(SP)
LSTDRV,=(SP)

ADD
PRINTB
MCv
MOV
MOV
MOV

EMT

000006

005046

000005
000000
021066
000003

000010
025506

4-2

#FRMS,<SURF>,<CYL>,SECT
SECT,=(SP)
MOv
CYL,=(SP)
Mov
SURE ,=(SP)
NERMS,-(SP)
Mov
MOv
#s ,-(SP)
MOov
SP,RO
Ml
($PNTB
ADD
#12,SP
FERM6,REASON,LSTDRV,LSTCLR,LSTDRY
PRINTB
MOv
LSTDRV,=(SP)

MOV
Mov
Mov
MoV
MOV
MOV

000014

104023

MOV

003026
002762
003026
002764
021176
000005

005046
156416
016446
012746

020552
80 020556

PRINTB

000012

020524
020526
020532
020536

020542

9-FEB-79 19:41:44 PAGE

021127
000004

70
7 020462

020462
020462

MACRO v03.01

ERRO

PRINTB

(LR
B1S8

MOv
MOV
MOv
MOV

EMt

ADD

JSR

#ERMG
, - (SP)

#3,-(SP)

SP,RO

(SPNTB

#FRML,CSR(RG) ,<B,DSB+1(R&)>
=(SP)

(SP)
DSB+i(R&),
(SR(R&) ,=(SP)

FERMG,
- (SP)

#3,-(SP)

SP,RO
C$PNTB

#10,5P
PC,REGDMP

SEa 0036

CZRLLAD RLOYV/2 DRIVE

GLOBAL ERROR REPORT

SECTION

000019

e
e
d
e
i
e
e
el
i
D
e
i
e
e
b
o
—

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

L10005:

045
045
045
103
110
045
123
127
063
102

045

102

045
045
045
101
105
045
045

NERM17,-(ST)

MOV
MOv
MOV
EMT
ADD
ENDMSG

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

EMT

& L N¢

STATMENTS

FRM:
FRM2:
FRM3:

<ASCIZ
.ASCIZ
LASCIZ

FRMS:

+ASCIZ

LASCIZ

FRM6:

.ASC1Z

FRM8:
FRM9:
FRM10:
FRM11:
FRM12:

<ASCIZ
+ASCIZ
.ASCIZ
,ASCIZ
(ASCIZ

FRM14:
FRM15:
FRM16:

_ASCIZ
LASCIZ
.ASCIZ

FRM18:
ENDPAS:

LASCIZ
.ASCIZ

FRM7:

FRM13:

FRM17:

.ASCIZ

_ASCIZ

ASCIZ

SEQ 0037

#ERM17,R1,E.MP
E.MP,-(SP)
RY,-(SP)

;FORMAT

FRMS :

4-3

/ANXZAUNLOAD DRIVE XO1XA ON (ONTROLLER XO6%A AND REMOVE PACKXIN/
/AINXAPLACE PACK IN DRiVE Z01XA ON CONTROLLER XO6XA AND LOAD [TIN/
!XANXAWRONG PACK
¥ IS XO5%05XA # S/B X05X05XNAN!
/XACONTROLLER: XO6%A DRIVE: X01XIN/
/%AHEAD: XO1XA CvL: XZ3XA SECTOR: XZ2%N/
/XTX01%A ON X06XN/
/XASEEK DIRECTION: XTINXADATA:XIN/

!XAWORD: X23X%A S/B: X06XA WAS: X06IN!
/XD3XA WORDS BAD OUT OF 128 READIN/
/XABETWEEN XZ3%A - %Z3%A HEAD: ¥01XN/
/ANXAPWR FAIL NOT SUPPORTEDXN/
/%ABEFORE CS: X06XA BA: X06XA DA: X06X%A MP: %06/
/ANXAAFTER
(S: Z06XA BA: X06XA DA: X06%A MP: X06IN/
/ANXA DRIVE STATUS: %06/
/ANXACAN'T FIND BAD SECTOR FILE/
/%AADJACENY WRITTEN BY C(ONTROLLER: X06XA DRIVE: XO1IN/
/XAEXP'D: X06%A REC'D: X06XN/
/XNXAUNLOAD ALL DRIVES TO BE USEDIN/
/XNXA END OF

PASSANXN/

ENDMOD

WVMB

V1o g
Pele

i ——

)
e

022003
000003

022130

rORONO
RO

PRINTB

Mov
Mov

.EVEN

022130
022130
022130
022132
022134
022136
022140
130 022142
022142

9-FEB-79 19:41:44 PAGE

003064

=t OO = = = O —=OO0OOOONOO
— — —
0O —==0 00—
=S~ 20000

W= OO
—-O

D o
e B
i
i
it
il
i

POPNOPROPNONINAD
=2t et et et

81 020562
020562
020566
020570
020574
020600
020602
020604
020610
020610
020610

020612
020707
021007
021066
021127
021176
021217
021257
021323
021365
021431
021466
021545
021630
021657
021716
022003
022037
022102

MACRO v03.07

131
132 02242

000004

i 74400

000160
000001
000000

BGNMOD
HPTCODE
BGNAW
.WORD
L 0006-L%HW/2
1
; (SR
.WORD
;VECTOR
1 0
.WORD
]
;RLOY OR RLO2
.WORD
;DRIVE #
0
.WORD
W
ENDM
L10006:
ENDMOD

(RLOY1=1)

—

CIRLLAO RLO1/2 DRIVE (P

GLOBAL ERROR REPORT

133
134
135 0221642
136
137 022142
138

022142
0221464

139 022146

SECTION

n3
MACRO v03.01 9-FEB-79 19:41:44 PAGE 4-6
SEQ 0038

BGNMOD

000001
031659

DISPATCH

DSPCODE

LWORD

.WORD

ENDMOD

O NN
s

CIRLLAQ RLOY/2 DRIVE (PT
INITIALIZATION SECTION

MACRO v03.01

LSBTTL
BGNMOD

022146
022146
0127G)
104041

000340

02215¢
022162

023727
002005

002012

022164
022164
022166
022170
022172

000023
C17313
000137

022176
022204

023727
003405

022220
022226
022230
022234
022240
022244
022246
022246
022250
022252
022256
022262
022266
022272
022276

022300
022302
022306
022312
022314
022322
022326
022332
022336
022336
022342
022344
022344
22346
022346

3
SEQ 0039

INITIALIZATION SECTION
INITCODE
BGNINIT

022146
022146
022152

022206
022206
022210
022212
022214

9-FEB=-79 19:41:44 PAGE

SETPR]

000002

023536
002012

000004

90%:

013737

002012

003022

017124
002740
003022

91s:

20. ,MANY

.WORD

MOv
(LR

LSUNIT, LUt
R1

003022
000010
002012
017124
002756
002754

012709

000034

103010

021631

003022

END:”

;MORE THAN FOUR
sNO,

OKAY

;CLEAN CODE WHEN > & DRIVES

#ORBUF ,R4

#PATLST ,R2

uu1

R1,RO

MOV
MOv
MoV
Mv
mOov
181

(RO)+,CSR(RG)
(RO)+,VEC(RG)
(RO)+,T.DRIVE
(RO) ,DSB(R4)
(R2) ,PAT(R4)
(R2)+

CSGPHRD

R1
uu1t
#PAT+2
R4
1%

MOv
MOV
(LR
(LR
READEF
MOV

LSUNIT, uuT
#DRBUF ,R&
FADJ
FOWR
W#EF .PWR
#EF .PWR,RO

B((
PRINTF
MOV

SETUP
#FRM1}
SERMYI,«(SP)

EMT
(SREFG
ETE
BNCOMPL

;GET NUMBER OF UNITS
;INIT P-TABLE
;SET UP DRIVE BUFFER
JGET LIST OF PATTERNS

s ANY

P-TABLES

:NO,GO TO END
;GET A P-TABLE

END

MOv

INC
DEC
ADD
BR

WHEN < 2 DRIVES

TSERCODE

MANY
CMPENA

1581

TWO

;CLEAN CODE

.WORD
JMP

EMT

000000
000002
002752
000004
000006

012704
005037
005037

012746

ERRSF

GPHARD

010100

104050

44
LOUNIT,
91%

BEQ

THAN
OKAY

19, ,FEW

(mp
BLE

MOV

;MORE
;YES,

TSERCODE

19
FEW
CMPENA

MOV

1%:

90%

.WORD
.WORD
JMP

TRAP

023536

106042

LSUNIT,
#2

TRap

000024
017352
000137

012064
012064
012037
011064
011264
005722
005201
005337
062704
000752
013737

(MpP

ERRSF

106421

005001
012704
012702
005737
001423

#340,R0
($SPRI

BGE

104421

#340

MOV
3

SETUP

:GET (SR
;GET VECTOR

;RLO1/2 TYPE

+GET DRIVE

JNEXT
;NEXT

...

LEFT?

RLOT

P TABLE
DRIVE

+OET BEGINNING OF BUFFER
;CLEAR ADJ. TEST FLAG
;CLEAR OVERWRITE

FLAG

e B

L0172 DRIVE (P1
AVION SECTION
t

0 12746
10600

\ 06017
062706

MACRO v03.01

9-FEB=79 19:41:44 PAGE

5=}

SEQ CO040
000001

0000vs

MOv

#1,-(SP)

Ent

($PNTH

MmOV
ADD

SPLRO

#84,5P

CIRLLAC RLOYV/2 DRIVE

MACRG v03.01

S8l
s

P
INITIALIZATION SECT] ON

SINITIALIZE ROUTINE
Wt ATTEMPT 10 LOCATE
;ACROSS THE PA(K,
:THE

SPOTS ARE:

SEQ 0041

S5 PERFECT ADJACENT

TRACKS AT 5 SPOTS

(EACH SURFA(CE)

TOUTER = TRACK 0 - 16 (BOTH RLO1 & RLO2)

JINNER = TRACK 238 = 254 (R10QV) GR 494 - 510 (RLOZ2)
JMIDDLE = TRACK 120 = 136 (RLOY) OR 248 - 264 (RLO?2)
sONE QUARTER = TRACK 56 = 72 (R_01) OR 120 - 136 (R102)

NNt OO
L
WNOP

9=FEB=79 19:41:44 PAGE

022366
022372
022400
022406
022406
0226412
022416
0226420
(22422

002770

177777
177777

01
0127
01
1040

19 022426

20 022432
21 022436
22 022642
23 022446
26 022452
25 022456
26 022460

003102
003104

sTHREE

QUARTER -

J1F

FIND ANY BAD SPOTS,

SETUP:

022037
000001
000004
031260
030512
027766
002130
000062
177777

ADD

#4,SP

SU...evees rees

:INDICATE

ZTAR!

(OMMAND

RS ,MERGE

sMERGE

MOV
MOV
MOV

#0UTI0, R
#50.,R0
#177777,(R1)
e

DEC
B8NE

RO
1%

JSR

RS,ENDTRK

33 022476

000000
0000 00

000020
00002C

LWORD
.WORD

0,1%¢.
0,'s.

35 022502

0057 57

003052

191

TRKEND

36 022510
022510
022512
022514

1044 63
0000 12

022516
58 022520

0175 63
0200 60
0004 04

&1 022522
&2 022%2¢6

0127 00
0044 37

BNE
EPRHRD

:GET SERJAL NUMBER

BAD SECTOR FILES

JINITIALIZE

DTRY

ALL

TRACKS

TO FIND FIvE

s INWARD SEAR(CH

TRACKS

;:TOP SURFACE

P4 3

10.,ERREND,ERRY

TRAP

TSERCODE

.WORD

ERRFND

.WORD

(RLOZ2)

JSR

12 022472

030456

392

;TELL OPERATOR T0 LOAD

RS5,SERNUM

002130

REPORT

376 -

RS,LOAD

030214

0010 05

WiLL

JSR

0045 37
0000 01
0000 00

36 022506

(RLO1)

($PNTF

28 022462
29 0224666

30 022470

STFLG
#-1,SERNMT
¥-1,SERNM?
#FRMI8
NERMI8,=(SP)
#1,-(5F)
SP,RO

JSR

0013 76

184 - 200

IN(C
Moy
MOV
PRINTF
MOV
MOV
MCV

Eml

1%:

TRACK

;WAS

JYES

SEARCM

SUCCESSFUL??Y)?

:NO "RACKS

.WORD
BR

ERR1
11

MOV
JS5R

#0UTIO,RD
RS, FINCYL

JSTORE AWAY TRACKS FOUND

022532
022536
022540
022542
022546

000001
000000
000000

0225%2
022556

005757
001005

022560
022560
022562
022564
022566
022570

004537
000001

022622
022626

005737
001005

022630
022630
022632
022634
022636
022640

104463
000012
017563
020060
000404

27 022642

012700

2B 02266t

030214

004537

19:41:44 PAGE

{SR

RS,FNDTRK

0000¢C
000020

1
.WORD
.WORD

0,16.
0,16,

003052

1S1

TRKFND

BNE

ERRHRO
TRAP

020060
0004904

012700
004537
004537
177777
000000
000376
000776

9-FEB=-79

SEQ 0042

104463
000012
017563

022572
022576
022602
022606
022610
022612
G22616

¢S

MACRO v03.01

002142
03045¢
0350214

A ¥

5¢:

ERRI
5%

Mov

#OUT11,RO

000356
000756

LWORD
L.WORD

003052

6%:

FIVE

SEAR(HK

s WAS

JYES
;NO

TRA(KS

SUCCESSFLUL?M?

TRA(CKS

10
ERREND

:STORE

RS,FIXCYL
RS,FNDTRK

TRACKS AWAY

;FIND NEXT 5 TRACK
;OUTWARD SEAR(H
:TOP SURFACE

254.,238.

:TRACK

TRKFND

;WAS
JYES

510.,494.

ERRHRD
TRAP
.WORD
.WORD
.WORD

10.,ERREND,ERR!
TSERCODE
ERREND
ERR1

JSK]P

Mov
JSR

#INN10,RO
RS,FIXCYL

:STORE

;NO

RANGE

BNE

B8R
002250
030456

10.,ERREND,ERR1

T$ERCODE

T0 FIND

; INWARD SEARCH
.BOTTOM SURFAC(E

LWORD
.WORD
.WORD
BR
JSR
J?R

;TRY

SUCCESSFUL?

TRAC(KS

AWAY

TRACKS

FOUND

—

N2
OO
O P NA

POPUROUNINY
it s et s e s —ol b et

—

N> S NN

CIRLLAO RLOV/2 DRIVE (P1V
INITIALIZATION SECTION

——

OO
N NI

rIRULAG RLOY/2 DRIVE (P1
INITIALIZATION SECTION

004537

MACRD v03.01

022652
022656
022660
022662
022666

000376
000776

00035%¢
000756

022672
022676

005757
001005

003052

022700
022700

106463

127777
000001

030214

000012
017563
020060
000404

022712
022716

012700
004537

002262
03045¢

022722
022726
022730
022732
022736

004537
000001
000000
000176
0600376

030214

22 022742
23 022746

005737
001020

003052

25
26
27
28
29
30
31

004537

030214

000202
000402
005737
001005

000170
000370
003052

J?R
1

.WORD
.WORD

151

RS,FNDTRK

SNEXT SET

;OUTWARD SEARCH
;BOTTOM SURFACE

254.,238.
510.,494.
TRKFND

BNE

ERRHRD
TRAP

10.,ERRFND,ERRT
TSERCODE

.WORD
.WORD

ERRFEND
ERRI

.WORD

SEQ 0043

s SEARCH SUCCTESSFUL?
SYES
;NO

TRACKS

8%:

MOV
JSR

#INNTT RO
RS, FIXCYL

;STORE

9% :

{SR

RS,FNDTRK

SNEXT SET
: INWARD SEARCH

AWAY

TRACKS FOUND

—

no [ o I

D S

NG NN
—

022702
022704
022706
022710

7%:

9=FEB=-79 19:41:44 PAGE

022750
02275¢4
022756
022760
022764
022770
022774

13 022776

177777
000000

022776
023000
023002
023004
34 023006

104463
000012

36 023010

012700
004537

57 023014

000210
000410

LWORD
.WORD

126.,136.
254.,264.

187

TRKFND

J?R

RS5,FNDTRK

BNE

.WORD
.WORD

130.,120.
258.,248.

BNE

10%

181

ERRHRD

002200
G30456

10%:

TRKFND

10.,ERRFND,ERRY

TRAP

TSERCODE

.WORD

ERREND

.WORD

017563
020060
000404

108

:DID wE FIND A SET
s VES
JNEXT

SET

(OTHMER SIDE)

;OUTWARD SEARCH

s TOP SURFACE
; TRACK RANGE

:DID WE FIND A SET

:YES

:NO TRA(KS

.WORD
B8R

ERRI
11%

Moy

#MID10,R0

JSR

;TOP SURFACE
; TRACK RANGE

RS,FIXNCYL

;STORE

AwWAY

023020
02302¢
023026
023030
02303¢

004537
000001
000001
000176
00G376

023040
023044
023046
023052
023054
023056
023062
023066
023072

005737
001005

65
4t

030214

11%:

9-FEB=-79

19:41:44 PAGE

4
SEQ 0044

RS,FNDTRK

SNEXT

00021C
000410

.WORD
.WORD

254.,264.

126.,136.

;s RANGE

005757
001020

003052

TS1
BNE

TRKEND

004537

030214

RS,FNDTRK

000001
000202
000402

000170
000370

JSR
-1
1
.WORD
.WORD

003052

151

TRKEND

177777

—
—

12%

130.,120.

SET

J INWARD SEARCH
;BOTTOM SURFACE

JSUCCESS?

:YES

;LOOK THE
:OUTWARD

OTHER SIDE

;BOTTOM SURFACE

258.,248.

BNE

12%

ERRHRD

10.,ERRFND,ERPT
TSERCODE
10
ERREND

;s SUCCESS?

;YES

023074
023074
023076
023100
G23102
023104

000012
017563
020060
000404

023106
023112

012700
004537

002212
030456

MOV

JSR

MIDTT RO
RS,FIXCYL

023116
023122
023124
023126
023132

004537
000001
000000
000076
000176

030214

R5.FNDTRK

000110
000210

.WORD
.WORD

62.,72.

: INWARD
;TOP SURFACE
:RANGE

023136
023142

005737
001020

003052

151
BNE

TRKEND

sSUCCESS?

023144
023150
023152
023154
023160

004537

030214

RS,FNDTRK

000000
000102
000202

JSR
-1

;LO0OK OTHER SIDE
:OUTWARD

000070
000170

.WORD
.WORD

t£6..56.

023164
023170

005737
001005

003052

181
BNE

TRXFND

023172
023172

106463

ERRHRD

10.,ERRFND,ERRY
TSERCODE
10
ERRFND

023174
02%17¢

MACRO v03.01

0232C0
023202
023204

&7 02%2'0

104463

177777

TRAP

.WORD
.WORD
.wORD
BR

—
SN
N
PN —= DO
NS
VDY

—r

—

0 RLO1/2 DRIVE (PT
L 1ZATION SECTION

TRAP

000012
01756%
020060

.WORD
.WORD
.WORD
B8R

000404

012700
004537

002154
030456

149%:

MOV

JSR

:NO TRA(KS

ERRI
13%

126.,136.
14%

130.,120.
14%

;STORE

sNEXT

AWAY

THE

TRAIKS FOUND

SET

;YES

;TOP SURFACE

:RANGE

:SUCCESS?

;YES
:NO TRA(KS

ERRI
15%

#0QU0,R0

RS,FIXCyL

;STORE

AWAY

SE7

OO ~NO NS

= OO 00 N

(IRLLAD RLOV/2 DRIVE (PY
INITIALIZATION SECTION

MACRO v03.01

023214
023220
023222
023224
023230

004537
000001
000001
000076
000176

030214

023236
023240

005737
001020

003052

023242
023246
023250
023252
023256

004537

030214

000001
000102
000202

000070
600170

005737

003052

023262
023266

V77777

001005

15%:

9-FEB-79

19:41:44 PAGE

{SR

RS,ENDTRK

000110
000210

SEQ 0045

:LOOK FOR NEXT SET
: INWARD

;BOTTIOM

LWORD
LWORD

62.,72.
126.,136.

;RANGE

191

TRKFND

JSUCCESS?
JYES

J?R

RS,FNDTRK

;,LOOK FOR ANOTHER SET
;OUTWARD
;B0TTOM
s RANGE

BNE

16%

.WORD
.WORD

66.,56.
130.,120.

TRKFEND

BNE

s SUCCESS?

16%

JYES

023270
023270
023272
023274
023276
20 023300

0175¢3
020060
000404

22 023302
23 023306

012700
004537

002166

16%:

MOV

JSR

RS,FIXCYL

#0QU11,R0

;STORE

004537

030214

17%:

{sn

RS,FNDIRK

000276
000576

000310
000610

0
.WORD
.WORD

JNEXT SET OF
: INWARD

190.,200.
382.,392.

31 023332
32 02333¢

005737

003052

191

TRKFND

023340
023344
023346
023350
023354

004537

030214

25
26
27
28
29

34
35
36
37
38

023312
023316
023320
023322
023326

40 023360
&1 023364

4% 023366

023366
023370
023372

023374

4“6 023370
45
4«6 023400
&7 023404

ERRHRD

106463
000012

000001
000000

001020
177777

000000
000302

000602
005737
001005

.WORD

ERREND

.WORD
BR

BNE

J?R
0
.WORD

000270
000570
003052

002224
030456

18%:

TRA(CKS

;TOP SURFACE
; RANGE

sSUCCESS?

RS,FNDTRK

;LOOK OTHER SIDE

18%

10.,ERREND,ERR]

TRAP

TSERCODE

.WORD
.WORD

ERREND
ERR1

MOV

#12U10,R0

JSR

TRA(KS

JYES

TRKFND

B8R

AWAY

18%

181

.WORD

TRACKS

ERRI
17%

194,184,
386.,376.

ERRHRD

:NO

.WORD

BNE

104463
000012
017563
020060
000404

012700
004537

T$ERCODE

.WORD

030456

10.,ERREND,ERRI

TRAP

;OUTWARD SEARCH
JT10P

s SUCCESS
JYES
:NO TRA(KS

19%

RS,FIXCYL

sSTORE TRA(KS AwAy

CIRLLAD RLOV/2 DRIVE (P1
INITIALTIZATION SECTION

000 N

023430
023434

005757
001020

003052

023436
023442
023444
023446
023452

004537
177777
000001
000302
000602

030214

023456
023462

005737
001005

e
i
rih
i

—
NP

004537
000001
000001
000276
000576

030214

002236
030456

25
26
27
28
29
30
31

012700
012701
022720
001016
00530
001373

002130
000062
177777

012700
004537

35
36
37
38

023560
023560

&2 028562

21%:

22%:

:RANGE

20%

ERRHRD
TRAP

10.,ERRFND,ERRI
T$ERCODE

.WORD

ERRFND

;SUCCESS

JYES
:NO

TRA(CKS

.WORD
BR

ERR1
21%

MOV
JSR

#T0011,R0
RS,FIXCYL

:STORE

SET AWAY

#0UT10,.R0O

;01D WE

FIND ANY AT

MOV

£50. ,R1

BNE
DEC

ExIY
R1

(mMp

.WORD
(LR
MOV
DODU
MOV

DOCLN

EmY

L10007:

:OUTWARD
;BOTTOM SURFACE

TRKFND

BNE

EM1
INC
DE(
BNE

ExlY:
104011

194.,18¢4,
386.,3/76.

.WORD

269

;RANGE

JOTHER SET

TRAP

CMPENA:

190.,200.
382.,392.

RS ,FNDTRK

BNE
ERRSF

002012

JNEXT SET
; INWARD
;BOTTOM SURFACE

J?R

1S1

20%:

RS,ENDTRK

s SUCCESS?
JYES

.WORD
.WORD

104044

40 023560
41 023560

TRKEND

.WORD

000003
0176411

7010100
104053
005201
005309
001373

20%

104421

005001

BNE

151

003052

22 023476
23 023502

{SR

.WORD
.WORD

104463

013700

19:41:44 PAGE

000270
000570

000012
017563
020060
000404

32
33
34

19%:

000310
000610

023464
023464
023466
023470
023472
20 023474

023506
023512
023516
023522
023524
023526
023530
02353C
023532
023534
023536
023540
023544
023544
023546
023550
023552
023554
023556
025556

9-FEB-79

SEQ 0046

023610
023414
023416
023420
0234264

VOO N

ol e

MACRO v03.01

#-1,(RO)

27%
3. .NONE

T$ERCODE

NONE
R
LSUNIT,RO
R1
R1,R0

($D00U
R
RO
24%

($DCLN

ENDINIT

Emy

ENDMOD

($IN]Y

;DO DROP UNIT

ALL

ot
o
—

AR~ OO0D~)

AN
-

CIZRLLAD RLOY/2 DRIVE (PY
INITIALIZATION SECTION

023562
023562
023962

023564
023564
023564
023566

BGNMOD

000240

104012

023566

023566
023566
023570
023570
023570

13 023572

MACRO v03.01 9=FEB=-79 19:41:44 PAGE

NOP

L10010:

BGNMOD

000240
104055

CLNCODE
BONCLN

ENDTIN

Emt
ENDMOD

(SCLEAN

DRPCODE
BGNDU
NOP

L10011%:

ENDDU

Emy
ENDMOD

($DU

SEQ 0047

MACRO v03.01

OO0
NS NN

POPORNIPUNY
= et od cd b e el el b

;CALL:

JSR

RS,OVWPER

OVWPER:

MOV
MOV

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

.
.
023572
02357¢
023576
023600
023602

010046
01014¢
010246
010346
005000

003020
003016

023614
023620
023622
023626

012701
011102
021227
001500

002714

023630
023634
023640
25 023644
023646
023652
023656
023662
023666
023672
023676
023702
02370«
023712
02371¢
023722
023726
023734
023736
023744
023746
023754
023760
023764
023770
023774

005037
005037
020027
002402
005237
004537
005037
051237
004537
013703
004537
000034
012737
004537
004537
005037
022737
001004
052737
000403

003014
003012
000005

024000
024004
024010
024012
024020
0246024

013703
004537
000034
0127%7
004537
004537

024030
0240352

005721
005200

SEQ 0048

sROUTINE TO PERFORM QVERWRITE

012537

023604
023610

E NN

OOV

9-FEB=-79 19:41:44 PAGE

-SBTTL GLOBAL SUBROUTINES SECTION
BGNMOD
GLBSUB

023572

CZRLLAO RLOV/2 DRIVE (PY
GLOBAL SUBROUTINES SECTION

012537

052737

004537
005037

005037
051237
004537

1%:

MoV
MoV

(RS)e FORSK
(RS)+ ,REVSK

MOV
MoV

(MpP
BEQ

(MP

8LT
2%:

003016
024054

RO<S.

;USE TOP SURFACE, IF RO>S.
;USE BOTTOM SURFACE, IF RO>1
;DONE.
;GET START OF LIST OF TRACKS
;GET POINTER T0 TRA(K
:NO,

EXIT

JCLEAR CYLINDER/HEAD FOR SEEKX

;TOP/BOTTOM

: TOP,

BRANCH

;BOTTOM SURFACE
;SEEX TO CYLINDER

;SEEXK T0O PROPER CYLINDER
;SECTORS TO WRITE
.GO WRITE SECTORS

RS,VEROW
RS,VEROD

;SET FORWARD DIRECTJON
;VERIFY OVERWRITE
SsVERIFY OTHER DRIVES DATA

#1,1.DRIVE

;RLOV?

#FWD,DIRC

cyL

BNE
BIS
BR
B1S

50%
#377.,CYL
51%
#777,0YL

(LR

SURF

JSR
(LR

RS,SKCYL
(yL

:NO

;SET T0 GO TO MAX (YL
sMAX CYL FOR RLOZ
;SEEK TO MAX CYLINDER ON DRIVE

BIS
JSR

(R2),CYL
RS,SKCLYL

MOV

REVSK,R3

;SECTORS TO WRITE
JWRITE THEM

MOV

#REV,DIRC
RS ,VEROW
RS.VEROD

;SET DIRECTION
SVERIFY OVERWRITE
VERIFY OTHER DRIVES DATA

(R1)¢

s INCREMENT TO NEXT TRACK

JSR
JSR

3%:

JSR
JSR

JSR
.WORD

003010

(R2),CYL
RS,SKCYL

;RO HAS COUNT

RS,WRSEC
28.

(LR

50%:

.SAVE RO, R1, R2, R}

JSR
.WORD

c(Mp

51¢:

(vi
SURF
RO, #S

FORSK RS

002752

003014

(R2),#-1
131

MOV

000777
025240
003014
003012
003014
025240

#OVWTRK
,R1
(R1),R2

SURF
RS,SKCYL
cYL

003010

003014

R3,-(SP)
RO

INC
JSR
CLR

B1S
JSR

000377

017746
026164
026550

R2,=(SP)

CLR
(LR

003012
025240
003014
003014
025240
003020
024054
026164
026550
003014
000001

MOV

MOV
(LR

127777

017736

SECTORS T0 WRITE FORWARD
SECTORS TO WRITE REVERSE

161
IN(

RS ,WRSEC
28

;DN ANOTHER SEEK

;ACCOUNT

FOR

CIRLLAQ RLOY/2 DRIVE

GLOBAL

SUBROUTINES

SECTION

58 026036
58 024040

020027
001267

61
62
63
64
65

012603
012602
012601

026062
024044
024046
024050
024052

C12600
000205

000012

MACRO v03.01 9-FEB-79 19:41:44 PAGE

13-1
SEQ 0049

(mp
BNE

RO,#10.
1%

:NO,

Mmov
MOV
MOV
MOv
RS

(SP)+,R}Y
(SP)s ,R?
(SP)+ R
(SP)+ RO

:RESTORE

;DONE?

SEX]T

GO BA(K
REG.

oo
N
[V PoV] N=OOVDNO
WV WA = O0V00
NN —

CZRLLAQ RLOY/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

10
11
12
13
14
15
16

}

SEQ 0050
;ROUTINE

TO WRITE

SECTORS

TEST:ADJACENT CYLINDER TEST

RS ,WRSEC
JSR
.WRD
;STARTING SECTOR
:R3 HAS B1TMAP OF SECTORS TO WRITE
;R4 HAS DRIVF BUFFER POINTER
sCALL

024054
0264056

026060
0264062
024066
024072
024076
0264100
0264102

27 026146
29
30
31
32
33
34

024150
024154
0264162
024166
0264172
024176

36
17
38
39
40

0264206
024212
024220
024224
024230

35 0264202

024232
024236
0242640
024244
0242646

024246
024250
024252
024254

46 024256
&7 024262
48 024264

024264
024266
024270
9 024272

9-FEB-79 19:41:44 PAGE

;USED IN OVERWRITE

024106
024114
|
026120
2
0264122
2
024126
024130
G24134
024136
02641642
26 024144

41
42
43
44
45

MACRO v03.01

010046
010146

010246
012701
012702
016421
005302
001374
012701

012737
053702
006302
005337
001374
005737
001402
052702
052502
030103

WRSE(:

003124
000200
000006

100000

000007
003014

2%:

120%:

003012
000100

3%:

4%:

001452
005037
012737
010237
010237
042702
020227

003002
177600
003076
002760
177700
000047

162737
012737
013702
004537
000012
005737
001416
005737
001007

000050
003124
002760
031360

003403

104464
000144
017756
020116

005237
000760

104463
000156
017756
020116

MOv
MOV

002750

BIS
ASL

DEC
BNE
187
BtQ
BIS
BIS
BIT

BEQ
CLR

003100

003076
003074

MOv
Mov
MOv
MOV
MOv
MOv
DEC
BNE

MOV
MOV
MOV

6%:
11%:

002766

003002

10%:

B1C
CMP
BLE
SuB

Mov
MOv
JSR
WRITE
1587

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

;SAVE RO
:SAVE R1

R2,-(SP)
#BUF R
#128.,R2
PAT(RL),(RY)
R?

;SAVE R?2
;WRITE PATTERN INTO
:MEMORY THAT WE
;WiLL WRITE ONTO
;PACK FOR THIS

#100000,R1
#7,TEM

;MASK

;DRIVE

FOR BIT MAP

CYL,R?

R2
TEM
120%
SURF

3
#HEAD,R?2

(RS)+,R2
R1,R3

HSFLG
#-128. ,8Mp

R2,BDA

RZ2,TEMP

#177700,R2
R2.,#39.

:0, SKIP
:SET BOTTOM HEAD
JSTART
JWRITE

:NO

AY SECTOR 28.
THIS SECTOR?

;LOAD WORD COUNT
JLOAD DISK ADDRESS

:SAVE DISK ADDRESS

#640.,BDA
#BUF ,BBA

TEMP,R2
RS,LDFUNC

;LOAD BUS

ADDRESS

;RESTORE DISK ADDRESS
;G0 WRITE

ERFLG
JERROR IN WRITING
5%
sNO,OKAY
BEQ
HSFLG
181
108
BNE
T 100. ,WRIT1,ERR?
ERRSOF
TSERCODE
TRAP
100
.WORD
WRIT1
.WORD
.WORD
ERR2
HSFLG
INC
11¢
B8R
110.,WRITT,ERR?
ERRHRD
TRAP
T$ERCODE
110
.WORD
wRIT
.WORD
.WORD
ERR?

CZRLLAO RLOV/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

50
51
5¢
53

56
55
56
57

024276
024276
024300
024302

024304
024306
024310
024312

005200
000261
006001
103320

012602
012601
0126069
(0002C5

MACRO v03.01

5¢:

9-FEB-79

INC
Lc
ROR

BC(C

MOV
Mov
Mov
RIS

19:41:466 PAGE

R
R1
69
(SP)
¢+ ,R?
(SP)+,R1
{SP)+ RO
RS

o4
141

SEQ 0051
SNEXT

SECTOR

:CLEAR CARRY BIT
;DONE?
:NO GO BACK
;REGISTERS AND [XIT

CIRLLAO RLO1/2 DRIVE (P

GLOBAL.

SUBROUTINES SECTION

0264314

005037

00310¢

2 024320
3 024324

005037
012737

003006
00000

S 024336
6 0264342

012537
001003

002772

6 026332

012701

7 026344
8 024350
9 0264352

005037
000205
012537

}2 024372

012737

}2 024400

010102

17 024402
}g 024404

005300
001414

20
21
22
23
24

005722
062737
022737
003366
162737

10 0264356
11 024362
12 024366

024406
024410
024416
(24424
024426

012537
212537
113700

MACRO v03.01

002130

ADJCYL:

003110

21s:

20%:

002776
003112
003114
003116
002772
000020

9-FEB-79 19:41:44 PAGE

1$:

003122

2%:

3%:

000042
000050

003122
003122

000050

003122

CLR

ADJTRK

&
SEQ 0052

;INSIDE/OUTSIDE

HEADO1
#1,ADJUUT

;INIT TO TOP SURFACE
:START OF TRACK LIST

MOV
BNE

(RS)+,ADJLOC
1%

:PICK UP TRACK OFFSET
;1S THERE ONE?

MOV

#0UT10,R1

(LR
RTS
MOV

ADJDIR
RS
(RS)+,ADJLCZ2

MoV

#16.,STSEC

MoV

R1,R2

:GET

DEC
BEQ

RO
4%

;DOWN COUNT OFFSET
:FOUND 12

1s1
ASD
cMp
8G7
SUB

(R2)+
#36.,STSEC
#40. ,STSEC
3t
#60. ,STSEC

:INDEX (R2)
:NO, NEXT SECTOR

;BACY FOR NEXT

(MP
BNE

(R2) ,#-1
5%

sLESAL TRAC(K?
;YES, CONTINUE

JMP

13%

;NO P.CK UP NEXT SET

CLR
(LR

SURF
(vt

sSET UP FOR OUTER TRA(K

1S7
BEQ

HEADO1
6%

:WHICH HEAD?
:10P, SKIP

BIS

#1,SURF :LOWER HEAD, SET IT!

JSR

RS,SKCYL

;SEEXK

MOV
MoV
MOvB

sSTARTING SECTOR 1S 1o
START

INTO R2

021227
001002

1177777

g? 024446

000137

025112

32 024450
§5 02445«

005037
005037

003012
003014

35 024460
;g 024464

005737
001403

003006

gg 026466

052737

©$00001

4? 024474

004537

025240

011237

003014

MOV

(R2),CYL

;GET

004537
012737

025240
017736

JSR
MoV

RS,SKCYL
#FWD,DIRS

;SEEK 10 |7
;SEEK DIRECTION

003012
6%:

INFO

;GET OFFSET

27 024436
gg 024442

B8R

(RS)+,ADJLCY
(RS)+,ADJLCSG
ADJLOC,RO

:NO EXIT
JYES, GET REST OF

000762

5%:

TO OUTER TRACK

4% 024500

DESIRED

TRACK

L& 026504
65 024510

46 024516
647 024522
Lg 024524

113703
000303
042703

002773

003010

MOVB
SWAB
8IC

000377

ADJLOC+1,P3
R3
#377,R3

:GET SECTORS 10 WRITE
JALIGN 1T
:CLEAR QOUT HIGH BYTE

50 024530

022737

000047

003122

5% 024540
25 024546

162737
013737

000050
003122

003122
(24560

004537
000000

024054

g; 024536

56 0264554
57 024560

002003

FLAG

Sg 024434

4%:

TRACK

(LR
MOV

(Mp

#39.,STSEC

;OVER FORTY?

BGE

I4 3

;NO, CONTINUE

7%:.

SUB
MOV .

#40,,STSEC
STSEC,8%

;YES BACK 1T uP
;STARTING SECTOR

8¢

JSR
LWORD

RS ,WRSEC
N

;WRITE Sc(CTORS

CIRLLAD RLOYV/?2 DRIVE

GLOBAL

SUBROUTINES

SECTION

58 (026562
59 024570
60 0264574
61 024576

013737
004537
000000
013737

63 0264610
64 024612
6S 024620

000000
013737
062737

bg 0264634

002003

62 0264606

004537

MACRO v03.01

026560
027076

024574

024610

027342

022737

003122
000010
000047

003120
003120
003120

98 026636

162737

000050

003120

i} 024644

(013703

003312

013737

003120

004537
000000
013737
004537
000000

024054

66 024626

108%:
208%:

9-FEB-79 19:41:44 PAGE
MOV
JSR

8¢%,108%
RS,VAJWR

LMWORD
MOV

O
108%,208%

MWORD
MOV
ADD

0
STSEC,SVSECT
#8.,S1SECT

JSR

15-1

SEQ 0053

JVERIFY

THIS WRITE

RS,BSVWR

8GE

;GET OTHER SECTORS TO WRITE
;8 SECTORS GONE BY
:GONE PAST 40?
;NO, OKAY

SuUB

#60.,STSEC

JYES BACK

MOV

ADJLCZ,R3

;GET

MOV

STSECY,108

;STARTING SECTORS

JSR

RS ,WRSEC

;WRITE

.WORD
Mov
JSR
.WORD

0
10,1108
RS,VAJWR
0

(mMp

9% :

#39,,S1SECT

T UP

SECTORS

TO WRITE

{

;3 024650

024662

75
76
77
78
79

80
81
82
83
84
85
g?

024656
024662
024664
024672
024676

024662
027076

024676

C24700
0264706
024712
024714
024722
024724
024732

013737
004537
000000
022737
001004
012737
000403

024676
027342

J24712

000001

002752

000377

003014

gg 024734

012737

000777

0030'4

3? 024742

004537

025240

3% 024746

011237

003014

04 024752
95 024756

004537
012737

02524C
017746

98 024770
99 024772
;g? 024776

000303
042703
013737

000377
003122

102 025004
}83 025010

004537
000000

024054

025012
025020
62502«
025026

01373%7
004537
000000
013737

025010
027076

025024

025040

110 025040

000000

g? 024764

113703

CO03115

10%:

110%:

SECTORS

SVERIFY

THIS WRITE

MOV
JSR
.WORD
(MP
BNE
MOV
BR

110%,210%
RS,BSVWR
0
#1,1.DKIVE
77%
#377,0vL
88%

77%:

MOV

N777.,CYL

88%:

JSR

RS,SKCYL

MOV

(R2),CYL

JSEEK BACK

003010

JSR
MOV

RS,SKCYL
#REV,DIRC

;SEEK
sSEEK

025010

SWAB
BIC
MOV

R3
#377 ,R3
STSEC,11%

ALIGN 7
;CLEAR OUT

JSR
.WORD

RS,WRSEC

;WRITE

PROPER SFCTOR

MOV
JSR
LWORD
MOy

11¢,111¢
RS,VAJWR
0
111¢,211¢

JVERIFY

THIS WRITE

LWORD

ADJLCL,RY
STSE(Y,12¢

;6E1
SGET

JSR

RS ,wRSEL

;WRITE

210%:

MOVB

11%:

ADJLC3+1,R3

VERIFY ADY

sGET

CYL

¢+

TO PROPER TRA(K

10 PROPER CYLINDER
DIRECTION

SECTORS TQ WRITE
MIGH BYTE

['A

109 025034

111 025042
11% 025046
"

114 005054

004537

027342

013703
013737

00311¢
00%120

004587

024054

111%:

PARE ¥
025060

JSR

MOV
MOy

RS,BSVWR

SECTIORS
SECTORS 10 wwli't
PROPER

SECTORS
[

105
106
107
108

CIRLLAD RLOY/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

025060

MACRO vO03.0V

9=FEB=-79

12%:

LWORD

000000

013737
004537
000000

025060
027076

025074

025976
02510¢

013737
004537

025074
027342

02511C

025112
025116
025120
025124
025126
025132
025136
025142
025144

005737
001003
005237
000402
005037
062701
020127
002002
000137

003006

025110

000000

“0v

112%:

212%:
13%:

141

025154

142
1643
1446
145
1646
147
148

025156
025162
025164
025170
025172
025176
025202

149 025206

150 025212

1€1
152
153
154
15%
15¢

025220
0268227
025226
025780
025232
0252%¢

005737
001403
005037
000421
005737
001004
005237
000137
005037
005237
023737
001402
000137
005725
001376
005037
000205

18¢:

002756

00277¢

15¢:

16%:

003022
17%:

SEQ 0054

JVERIFY

THIS WRITE

RS,BSVWR
0

SVERIFY ADJ (YLINDERS + 1

1s1

HEADO

;WHICH HEAD WERE

1S17
BEQ
(LR

003106

026332

END

15-¢

JSR
.WORD

14%
HEADO1

99¢

HEADO!
#10..R!
RY1,#INNST

18%

JMpP

002756

003106
024332
003106
003110
003110

112%,212¢%

BGE
JAT

140 025150

mMov

(LR
ADD
(mp

024366

12%,112%

RS,vAJWR
0

B8R

14%:
99%:

()

JSR
.WORD

BNE
INC

003006

00300¢
000012
002272

19:41:44 PAGE

1S1

BNE
INC
JMp
(LR
INC
(mp
BEQ

2%
TRACK

LIST

17%

16%
ARJTRK
213
ADJTRK
ADJLUT
ADJULT ,LUT

17%

218

BNE

17¢%

191

(LR
R1S

fFADJ

JMpP

(R5)¢

ADJDIR
RS

JNEXT

SET

DOING?

TRACKS

LIST
TRA(K LIST

;END OF
;END OF

sNO 6O BA(K

FADJ
15%
ADJTRK

JNEXT SET OF

GROUP OF

WRITES

JFIRSY

SET?

sNO, CONTINUE
JYES, CLEAR FIRST

SEXTT

;DONE BOTH INSIDE OUISIDE
;TRACKS,

YES

16%

sNO, SET INSIDE FLAG
;G0 DO INSIDE TRACK
;BACK T0 QUTSIDE TRACK
;DONE WITH ANOTHER
;DONE TABLE FOR ALL UUT?
JYES, FOR EXIT
:NO, GO BACK FOR NEXT
;BUMP EXIT TQ END OF
;TA?%E

JEX

FOR

PROPER

RETURN

NNV =C

025250
025254

005737
001104

025260

025256

005001
012737

S
R
| A ) o

= OOV

PP S

010146
006557
000010

025266

053701

025272
025274
025300
025302
025310
025314
025316
025320
025322
025326

006301
005337
001374
0462737
163701
103002

025340
025344
025350
025354

005401
000402
052701
052701
005737
001402
052701
010137
004537
000006

34 025350
35 025362

005737
001041

7?7
I8
39
40

025332

02533%6

025364
025370
025372
025376

19:41:44 PAGE

1O SEEK

SFQ 0055

TO A DESIRED CYLINDER

sCALL:

JSR

RS,SKCYL

SK{YL:

MOV

R1.=-(SP)

RS,LDFUNC

; SAVE R1
;GET PRESENT POSITION

ERFLG

;ERROR FLAG SET

90%:

JSR

RDHDR

002766

000007
003014

161

BNE

002750
120%:

00275C
000177
003064

2%:

000020
003076
031360

3% :

1%:

52 025450

001414

8¢ 029452
025452
025454
025656

104482
000014

0127217

120%
#177,E.MP

tE.MP,R]

NEG
BR

R1
2%

BIS

MK R

:SET MARKER BIT

Bta
BIS
MOV
JSR

1%
#SKHS R
R1,8DA
RS, LDFUNC

:10P

JEXECUTE SEEK

1S1

ERFLG

;ERROR?

RS,LDFUNC

;VERIFY POSITION?

JSR

000007
003014

002750

#S1GN,R1
SURf

DEC

5¢
#77,6.mP

8E0
B1S

A3
#HEAD R

BEQ

ERRDF
TRAP

.WORD
.WORD

:BOTTOM

:LOAD DIFFERENCE WORD

;sYES,

SKIP

;VERLIFY POSITION

SURF

R1,E.MP

12.,.S5KER,ERRG

TSERCODF

12
SKFR

DIFFERENCE

WORD

:IF POSITIVE SET DIRECTION
JNEGATE
:SKIP SETTING DIRECTION
sSET FOR FCRWARD SEEK

TEM

220%

(mp

s CALCULATE

P77 ,TEM
(v. .M
R1

BNE
151

ERFLG

MOV
BIS
ASL

6%:

TEM

RDMHOR
1S1

BNE
BIC

220%:

;GET THE SELECTED CYLINDER NUMBER

BNE
BIC
SuB

BNE

003064

SK]P

SEEK

000077

#7,7EM

JYES,

ASL

18T

002766

000100
003064

{vL R

BIS

003012

50 025440

BIS

BC(C

000004
000001
003012

002750

DEC

003064

5¢

CLR

MOV

002766

025416
025422
025424
025430
025432
025436

$1 025444

031360

%1
025400
42 025406
43 025410

46
&5
«6
47
«8
«9

9=FEB-79

;ROUTINE HAS DESIRED CYLINDFR IN LOC "'CyL"

025240
025242
025246

22
¢3
24
25
26
27
28
29
30
31
32

MACRO v03.01

;ROUTINE

NONE

YO ~N
NN
e

CZRLLAD RLOY/2 DRIVE CPT
GLOBAL SUBROUTINES SECTION

sSEEF

ERRUn

TIRLLAOD RLO1/2 DRIVE

GLOBAL

(PY

SUBROUTINES SECTION

0295660
55 025462
56

020524
000137

025466
025470
025672
025474
S8 02%476
59 025502
60 025504

104462

57 025666

000015
017667
020464
000137
012601
000205

MACRO v03.01

025242

5%:

025242

6%:

9<FEB=79 19:41:44 PAGE

16-1

SEQ 0056

.WORD
JMP

ERRG
908

ERRDF

13, ,FUNERR ERRS ;FUNCTION ERROR IN SEEK
I%ERCODE

TRAP

.WORD
.WORD
.WORD
JAP

Mov
RIS

FUNE PR

ERRS

90%
(SP)+ R1
RS

:CANT
LYt

GET

THERE

CZRLLAD RLOV/2 DRIVE

GLOBAL

MACRO v03.01 9-FEB=79 19:41:44 PAGE

SUBROUTINES SECTION

)

2
5 025506
025506
025512
025516
025522
025526
025532
02553¢
025540
025562

& 025546

025566
025552
025556
025562
025566
025572
025576
025600
025602
5 0625606
6 025614

+ROUTINE

013746
013746
013746
013745
012746
012746
010600
104014
062706

0031uC
003076
003074
003072
021466
000005

013746
013746
013746
013746

003064
003062
003060
003056

012746
012746
010600
104014
062706
032737
001437

7 025616

016403

9 025630
10 025636

012737
056437

B 025622

000014
040000
000000

01276%

(00013

11 025646
12 025652

013763
032763

003072
000200

14 025662
15 025670

016337

000006

025670
025674
025700
0.5704
025706

013746

025710

012746
012746
010600
104014

003000

062706

000006

13 025660

16 025714

001774

000207

PRINTB

021545
000005

000004
000004

000004

003072
003072

00C000
000000

003000

MOV

(SR(R&) ,R3

021630
000002

'
'$:

FERM13,=(SP)
#5,-(SP)
SP,R(
($PNTB
"6,SP
#BIT14,E.CS
1%

MOV

#13,DA(RY)

MOV
BIT
Bta
MOV

B8CS,CS(R3)
#200,CS(R3)
2%
MP(R3) ,DRSTAT

06 ,BCS
DSB(R&4) ,BCS

PRINTB

W#FRM14 ,DRSTAT

MOV
MOV
MOv
EMY

NERMIL,-(SP)
Nl ,=(SP)
SP,RO
($PNTB

MOV

ADD
RTS

SEQ 0057
DUMP

WFRM13,E.CS,F.BA,E.DA,E.MP

E.MP, -{SP)
E.DA,=(5P)
E.BA,=-(5P)
£E.CS,=(5P)

MOV
BIS

2%:

PC,REGDMP
#FRM12,B(S,RBA,BDA,BMP
BMP,
= (SP)
BDA,-(SP)
BBA,-(SP)
B(S,=(5P)
#ERM12,-(SP)
#5,-(SP)
SP,RO
(SPNTB
#14,SP

MOv
MOV
MOV
Mov

MCv
MOV
MOV
Em1
ADD
Bl
BEQ

003056

10 PERFORM REGISTER PRINTOUT

JCALL:
JSR
REGDMP: PRINTB
MOv
MOv
Mov
MOov
MOV
MOv
MOv
tEnt
ADD

000014

DRSTAT,=(SP)

”6,5P
4

CIRLLAO RLOY/2 DRIVE (PT
GLOBAL SUBROUTINES SECYION

MACRO v03.01

9-FEB=79 19:41:44 PAGE

JROUTINE

3
&

JENTER WITH RO = SECTOR REQUEST
SEXIT WITH RO = ADJACENT CYLINDER DRIVE

JCALL

JEXIT WITH RO = O

4
8

:
:CALL
02571¢
025720
025722
025726
025730

010146
010246
010346
(042700
012537

15 02573
16 025740

012701
012702

18 025750
19 025754

123701
001413

17 025744

20
21
22
23
26
25
26
27

012703

025756
025760
025764
025770
025774
025776
026002
026004

005201
062702
062703
020327
002765
162703
000762
012701

30 0260164
31 026016
32 026020

005722
005203
020327

34 026026
35 026032

162703
005301

28 026010
29 026012

33 026024

36 026034
17 026036

38 026040
39 026042

40 026046
61 026050

42 026052

&3
&6
&%
«6

ADJACENT

CYLINDER

;INFORMATION FROM THE 264X5 ‘'SECLST' BUFFER.

)

10
11
12
13
164

OR RETRIEVE

SEQ 0058

1O STORE

026056
026056
026060
026062

020003
001413

00340¢

177700
002774
00000
002334

000020
002772

000060
000042
000050
000050
000030

005737
001401
010412

011200

012603
012602
012601
000205

000047
000050

002774

5¢:
6%:
7$:

LWORD

R1,-(SP)
RZ2,=(SP)
R3Y,-(SP)
#177700,R0
(RS)e ,ADJFLG

mMov

#16.,R3

(MPB
BEO

[N BUFFER MAP

;RETRIEVE

MOV
Moy
MOV
BIC
MoV

INFORMATION FOR SECTOR

IS NOT

.WORD
0
JSR RS5,RSADJS

MOV
MOV

1$:

SECTOR REQUESTED

JSR RS,RSADJS

RSADJS:

001365
005000

000405

SECTOR DR]vVE

SECTOR

INFO.

;STORE SECTON INFO.

fLRY
#SECBUF ,R2

:SAVE SECTOR BI1S
JSAVE RETRIEVE/STORE FLAG
;START WITH TRACK (N=2)
;START OF 24XS BUFFER

ADJLOC,RY
2%

;CHECK
;

;SECTOR 16 START FOR (N=2)
TRACK

INDEX

TRACK

INC
ACD
ADD
(mp
BLT
SUB
BR
MOV

R1
848, ,R?
34, ,R3
R3,840.
1%
#40,,R3
1%
024, R

:
;SET

151
INC
(mp

(R2)¢
R3
R3, 439,

;INDEX SECLSY BUFFER IN WORD FORMAT
:INDEX SECTOR COUNT
:COMPARE SECTOR COUNT FOR <40

(MP
BEQ

RO,R3
5%

BLE

BNE
(LR

3%
RO

SuB
DEC

B8R

:INDEX TRACK REFERENCE
;UPDATE BUFFER TO NEXT TRA(K REF,
;UPDATE SECTOR START FOR NEXT TRACK

COUNTER FOR 24 SECTORS

:COMPARE SECTOR TO SECTOR TABLE
:YES,STORE OR RETRIEVE SECTOR INFO.

#40.,R3
R1

:KEEP SECTOR COUNT<4D
;PASSED 24 SECTORS?

SEXIT ROUTINE,SECTOR NCT FOUND

ADJFLG

:COMPARE NEXT SECTOR
SETUP RO FOR EXIT
:FLAG=0 FOR RETRIEVE

BEQ
MOV

6%
R4, (R2)

:STORE

MOV
MOy
MOV
RTy

(SP)+ ,R3
(SP)e+ R
(SPYe R1
RS

JExXT

MOV

(R2),RO

DRIVE

;SAVE DRIVE

INFO.

INTO BUFFER

INTO RO FOR Ex]7

CZRLLAO RLOY/2 DRIVE (P

YOO
N A AURUNY

b ot

(VI SN N2 O O0VONP NS

b td et e et e

= OO

NO N NN
—

GLOBAL SUBROUTINES SECTION

MACRO v03.01

9=FEB=-79 19:41:644 PAGE

;ROUTINE

10 SET DRIVE

010146

026066
026072
026074
026100
026104

1627G)
100002

026106
026110
026112
026114
026116
026120
026122

062700
012701
005700
001403
005300
005721
000773
010411
012601
000205

S
SEQ 0059

IN SECTOR (57

JSR

RS,SETLSY

;RO HAS SECTOR

SETLST:

MOV

R1,=(SP)

;SAVE

SUB
BPL

#28..R0
3%

JSTART

NSECLST, R
RO
2%
RO

JBEGINNING OF SECTOR L1ST
;FOUND SECTOR?
:BRANCH ]F YES
:DECREMENT SECTOR

00C03¢4
000050
002274

sCALL:

SDRIVE GOVTEN FROM RS
026064

1%
1%:

ADD

#40. RO

181
BR
MOV
Mov
RTS

(R1)
1%
R4, (RY)
(SP)+ ,R1
RS

MOV
181
8ta
DEC

L]IST

SNEXT ENTRY [N LIST
;60 BACK
;STORE DRIVE BITS IN (ST
;RESTORE R

;ROUTINE T0O LOCATE DRIVE THAT WROTE SECTOR LAST
;CALL:
JSR
RS ,FNDDRyY
;RO-CONTAINS SECTOR

:ON EXIT RO=DRIVE

026124
026126
026132
026134
026140
026144
026146
026150
026152
026154
026150
026160
026162

010146
162700
100002

062700

012701
005700

001403
005300
005721
000773
011100
01260!
000205

000034

000050
002274

FNDDRV:

MOV

#28.,R0

ADD

#40. R0

151

BPL
3%:

B ¥

R1,=(SP)

SuB

MOV

B8EQ

DEC
1587
B8R
Mov

MOV

RYS

;SAVE

;START

L]JST

AT O

#SECLST,RI

:STARY QOF

JYES, GET DRIVE #, EXIT

;FOUND

L1ST

SECTOR?

RO
(R1)e
1%
(R1),R0

:NO, DOWN COUNT SE(CTOR
JNEXT ENTRY IN L]ST
;60 BA(K
JGET DRIVE BUFFER POINTER

dEXLT

(SP)+ R}

;RESTORE

CIRLLAQ RLOY/2 DRIVE (PY
GLOBAL SUBROUTINES SECTION

MACRO vO3.01

SEQ 0060

;PREVIOUS DATA ON THE PACK,

E(ALL:

JSR

RS, VEROW

USES R3 AS BIT MAP OF

(HECK.

SECTORS 10

R3 IS LOADED PRIOR TO

wRITING SECTORS.

026164
026166
026170
026172
026200
026204

026212
026220
026226
026234
026242
026244
026246
026252

VEROW:

000034

003024

000006

003030

177600

003100
003074
00307¢
003076

100000

003124
000077
0030¢4

00001¢

Mo
MOV

MOv

Mov
MOV
MOv

1%:

2%:

031360

Mov
Mov

002754

TST

012737
016437
016437
000415
G12737
013700
004537
016037

017213
000000
000005

63 026372

026376

45 026400

46 026404

026404
026406

026412
026416
026422
026426
026430

10464662

000015
017623
020304
005037

0050%7
012702
023712

001417
005237

003034
003036
003124
003030
003034

003030
003036
021257
000004

¢SET

UP READ-ONE

:BUS

ADDRESS

BEQ

MOv
MOV
MOV

002762
003026
002764
002762
003026

21%:

MOV
MOV

JSR

27%:

MOV
MOvB

ERRDF
TRAP

.WORD
.WORD
.WORD
(LR
(LR

3%:

MOV

(mMp
BtQ
INC

PRINTF
MOV
MOv
Mav
MOV
MOv
MOV

Ent

SECTOR

#77,8DA

;CLEAR QUT SECTOR BITS

:NO, BRANCH

;ERROR
+NO (ONTINUE

005737

116037

#-128. ,BwP
#BUF ,BBA

E.CS
3

026267
026266
026270
026276
026304
026312
026314«
026322
02632¢
026332
026340
026346
026346
026350
026352
026354
<0 026356
qi 026362
&2 026366

017462
00302¢
006124
000030
000005

PAT(RL) ,GDATA

;START VERIFY AT SECTOR 28
MASK FOR VERIFICATION
PATTERN FOR THIS DRIVE

JREAD

151
BPL

002764

RS,LDFUNC

003056

001412

sSAVE

;BIT
;GET

SECT,BDA
R1,R3

READ

005737
100107

RO,=(SP)
R1,-(SP)
R2,=(SP)
#28.,SECT
#100000,R1

BIC
BIS
Bl
Bta
JSR

026254
026260

1.5

ZROUTINE TO VERIFY THAT THE OVERWRITE DID ACTUALLY OVERWRITE THE

PN
OOW

NO
N
e w QOB

NP NV

POROPUNUPURNUPUND
b ot s el ot cod e ol e s

9-FEB-79 19:41:44 PAGE

fFOWR

21%

#INITWR,REASON

;SET SECTOR
;DO WE READ

THIS ONE?

INITIAL WRITE

:NO

SETUP

INITIAL

WRITE

SECTOR

CSR(R&) ,LSTCLR

DSB¢1(R&),LSTDRY
22%
#OVMES ,REASON

SECT,RO

RS,FNDDRV

;SET

MESSAGE

sFIND DRIVE
;SECTOR

FOR

OVERWR]TE

THAT (AST WRO'E

CSR(RO) ,LSTCLR
:GET IT'S (SR
;GET THE DRIVE
DSB+1(RO),LSTDRV
13..0VWER,EQRG
:PRINT ERROR

TSERCODE
13
OVWER

ERRSG

WwCOUNT

;CLEAR BAD WORD COUNT W/IN SECTOR

#BUF ,R?

;GET

SECWRD

GDATA,(R2)
31%
WCOUNT

JCLEAR WORD

;1S DATA (ORRECT?
SYES (HECK NEXT

;NO ACCOUNT
#FRMB,SECWRD ,GDATA, (R2)
(R2),=(SP)
GDATA,=(SP,
SECWRD,=(SP)
JFRMB,
= (SP)

04,-(SP)

SP,RO
(OPNTH

IN SECTOR

BUFFER START

FOR

C2RLLAD RLOY/2 DRIVE

GLOBAL

(P1

SUBROUTINES SECTION

026632

67
48 026436
49 026440

50 026444
51 026452
52

062706

000012

N05722
005237
023727
001347

00307%¢
003C36

53 026454
026454
026460

9-FEB-79

19:41:44 PAGE

20-1

SEQ Q0061

31%:

000200

ADD

#12,SP

151
INC
(mp
BNE

(R2)+
SECWRD

PRINTH

003034
021323
00000¢

026464
026470
026472
026474

54
55 026500
56 226504
57
58 026510
59 026514
60 026522
61 026524
62 626532
63 026534
64 026536
65
66 026540
67 026542
68 026546
69 026546

MACRO v03.01

Mov

MOv
MOV

Mov

000006

013700
004537

003024
026064

005237
023727
001003
162737
000261
006001

003024
003024

000050

003024

6%:

SECWRD,#128.
3%
#FRM9,WCOUNT
WCOUNT ,=(SP)
#FRM9
, - (SP)
#2,-(SP)

JNEXT

:DONE WITH SECTOR?
:NO GO BA(K
sPRINT

SUMMARY

SP,RO
CSPNTF

ADD

§6,SP

Mov

JSR

SECT,RO

RS,SETLST

sSET SECTOR IN LIST TO THE
;CREDIT OF THIS DRIVE

INC
(mp
BNt
SuB
L(
RGOR

SECT

SNEXT SECTOR

SECT,#s0,
6%

#40.,5€C7

103225

8CC

R
1%

012602
012601
0126C0
0060205

Mov
MoV
MOv
RTS

(SP)e ,R?
(SP)+ R}
(SP)+,R0
RS

;CLEAR CARRY

SNEXT BIT
s1F CLEAR NEXT

;RESTORE

R2-RO,

EX]T

CIRLLAO RLO1/2 DRIVE (PY
GLOBAL SUBROUTINES SECTION

MACRO v03.01

9-FEB=79 19:41:44 PAGE

SEQ 0062

;ROUTINE

2
3

E(ALL:

TO VERIFY

JSR

THAT

A DRIVE

RS,VEROD

8 026550
9 026552

010046
010146

02655¢
026556
026562
026570

010246
012701
012737
005737

16 026576
17 0266064
18 026612

012737
012737
042737

20 026626
g; 026630

030103
001103

}g 026574

19 026620

23
26
25
26
27

001134

053737

VEROD:
100000
000034
002754

003024

177600
003124
000077
003024

003100
003074
003076
003076

013700
0064537
016037
116037
016037

003024
026124
000000
000005
000006

29 026664
30 026670

004537
000014

031360

32
33
34
35

026672
026676
026700
026706
026706
026710
026712
026714

005737
100060
012737

003056

37 026716
38 026722

005037
005037

003034
003036

40 026732
41 026736

023712
001417

003030

36 026726

43 026740
44 026744

026744
026746
026752
02675¢
026762
026766

026770
026772

1%:

2%:

USES R3 AS BJT

CHECK,

017515

MoV
MOV

#-128.,BMP

:SET

UP READ

#BUF ,BBA

;BUS

ADDRESS

003034

011246
013746
013746
012746
012746
010600

003030
003036
021257
000004

00001¢

OVERWRITE

(ONE

SECTOR)

Mov
MOv
MOvB
MOv

SECT,RO
;FIND DRIVE THAT WROTE
RS,FNDDRV
:SECTOR LAST
CSR(ROY,LSTCLR
;GET (SR OF DRIVE
DSB+1(kQ),LSTDRV
;GET DRIVE
PAT(RO),GDATA
;GET PATTERN

JSR

RS,LDFUNC

:READ

187
BPL

E.CS

;ERROR?

ERRDF

(LR
(LR

FIRST

#77,8DA
SECT,BDA
R1,R3
5%

.WORD
.WORD
.WORD

003124

MASK FOR SECTORS
;START WITH SECTOR 28
FOR

Mov

(mMp
BEQ

INC

PRINTF
Mov
MOV
Mov
Mov
Mov
MOv
Eml
ADD

;CLEAR SECTOR BITS
;SET IN SECTOR BITS
;CHECK THIS SECTOR?
:NO BRANCH

:NO, NEXT

14. ,RECER,ERRG
TSERCODE
14

;REPORT

#RECMKS ,REASON

;SET

READ

SECTOR

RECOVERY

ERROR

MESSAGE

RECER

ERRS

WCOUNT
SECWRD
#BUF ,R2

: CLEAR BAD WORD COUNT
;CLEAR WORD W/1 SECTOR
;START OF BUFFER

SYES,

GDATA, (R2)

.DATA COMPARE

CHECK NEXT

WCOUNT
. ACCOUNT
#FRMB,SECWRD,GDATA,
(R2)
(R2),=(SP)
GDATA,=(SP)
SECWRD,=(SP)

#FRMB,-(SP)
¥4 ,-(SP)

SP,RO
CSPNTF

n2,SP

FOR ERROR
;PRINT ERROR

(WE

RO-R?2

BIC
BIS
BIT

TRAP

005237

104017
062706

:CHECK

MOV

104462
000016
017643
020304

012702

FQHR
6

;BIT

DATA.

SECTORS

R3 COMPLIMENTED.

151
BNE

READ

002764_

MAP OF

R3 IS5 LOAD BY WRSEC

;SAVE

JSR

002762
003026
003030

ANCTHER DRIVE'S

RO,-(SP)
R1,=(5P)
R2,=(SP)
#100000,R1
#28.,SECT

MOov
MOv
MOv
MOV
mMov

BNE

G26632
026636
026642
026650
026656

CAN RECOVER

USE

10
11
12
13

46
&7
48
49
50

SUBROUTINES SECTION

026776
027000
027004
027012
027014
027014

027020
027026
027930

027032
027034

52
53
54
55
56
57
58

027040
027044
027052
027054
027060
027062
027064

60
61
62
63

027066
027070
027072
027074

005722
005237
023727
001347

003036
003036

013746
012746
012746

003034
021323
000002

010600
104017
062706
005237

023727

001002
005037
000241
006001

MACRO v03.01 9-FEB-79 19:41:44 PAGE

SEQ 0063
4%:

000200

003024

000050
7%:

103244

012602
012601
012600
000205

181
INC
Cmp

BNE

000006
003024
003024

L5
21-1

6%:

(R2)+
SECWRD

SECWRD,#128.
3%

#ERM9 ,WCOUNT
WCOUNT,~(SP}
#ERM9 ,-(SP)
#2,-(SP)

sNEXT

;NEXT WORD

;DONE?

:NO
;PRINT

IN SECTOR

PRINTF
MOV
MOv
MOV
MOV
EMi
ADD

#6,5P

INC
(mMp
BNE
(LR

SECT
SECT,#40.
7%
SECT

JNEXT

SECTOR

o —

GLOBAL

(PT

SNEXT

BIT

(e
ROR
BCC

MCv
MOV
MOV
RTS

SUMMARY

SP,RO
CSPNTF

R
1
(
(
(

P)+,R2
P)+ ,RI
P)¢+ RO

(WA RV RV NV,

CIRLLAOQ RLO1/2 DRIVE

;RESTORE

MAP

R2-RO,

EX]7

—_

old e

N =2 OV
NN

PIPON) =0 o

65
LY!

&7
48
&9

MACRO vO03.C1

9-FEB-79 19:41:44 PAGE

;ROUTINE TO VERIFY THE ADJ.

"S5
22

SEQ 0064

(YL. WRITE

;USES R3 AND WORD FOLLOWING CALL

:1F WRITE WAS GOOD,SECTOR WILL BE
;USING RSADJS/.WORD 1
027076
027100
027102
027104
027110

VAJWR:
100000

027112
027114
027120

003014
000007

o e

= OO0~
N
NN =

CIRLLAO RLO1/2 DRIVE (PTY
GLOBAL SUBROUTINES SECTION

027126
027130
027134
027136
027142
027144
027150
027152
G27154
027156
027164
027170
027174
027200
027204
027206
027214
027222
027230
027234
027240
027244
027246
027252
027254
027260
027262
027262
027264
027266
027270
027272
027276
027300
027300
027302
027304
027306
027310
027312
027316
027320
027322

002750

003012
000100

3s:

4%:

177600

003076
002760

0u3100

177700

000050
000050
00312¢
003002
002760
031360

003076
002760
003074

6%:
10%:

002766
001007

003002

005200

;STARTING SECTOR

ASL

DEC
BNE

1S1
BEQ
BIS
BIS
811
BtQ
MOV

BlC
(MP
BLE
SuB
SuB
MOV
CLR

.WOPD
.WORD

11%:

025716

7%:

INC
BR
ERRHRD
TRAP

.WORD
.WORD
.WORD

Mov

JSR

.WUORD

5¢%:

#HEAD ,RO
R2,RO
R1,R3

#-128.,8MP
RO,BDA
RO, TEMP
#177700,R0

RO,#39.
6%

#40.,BDA
¥40.,TEMP

#BUF ,BBA

HSFLG

ERFLG
7%

.WORD

MOV

INC

;BT MASK FOR (YLINDER

TEM

BEQ

REGISTERS

n7LTEM

TEMP RO
RS ,LDFUNC

BNE
ERRSOFY

003002

R1,-(SP)
R2,=(SP)
#100000,R1

JSR

Mov

TRAP

106463

000202
020003
020116
010046
004537
000001
012600

CLR
8IS

(R5)+,R2
RO
CYL,RO

151

104464
000170

020003
020116
005237
000760

;SAVE

MOV
MOv

000047

STORED IN MAP

RO,-(SP)

MOV
MOov
MOov
Mov
Mov

MOv

2%:

002750

IS GOOD

;READ

FUNCTION

HSFLG
11%

120.,READ1,ERR?
TSERCODE
120
READ1

ERR?

HSFLG

130. ,RFADT,ERR?
TSERCODE
130
READ1

ERRZ

RO,=(SP)

?5.RSADJS

:STORE

(SP)+,RO

;RESTORE RO

ADJ.

(VL.

SECTOR

INFO.

50 027324
51 027326
52 027330
93 027332

56 027334

55 027336
56 027340

0002641
006001
103310
012602
012601
012600
000265

MACRO v03.01

9-FEB-79

19:41:44 PAGE

22-1

SEQ 0065
c
(e

ROR

8CC

Mov
MOv
MOv
RS

6%
(SP)+,R2
¢+ ,R1
(SP)
(SP)+ RO
RS

[ Fan)

CIRLLAQ RLOY/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

] CIRLLAD RLOY/2 DRIVE

(PY

GLOBAL SUBROUTINES SECTION

MACRO v03.01

9-FEB=79

sROUTINE

19:41:44 PAGE

TO VERIFY

SWRITTEN BY OTHER DRIVES.

g
027344
027346
027350
027354
027360
0273%6¢
027370
027372
027376
027400

20 027404
21 027412
22 0276414
23 027420
26 027424
25 027430
26 027434
27 027440
28 027444
29 027450
30 0276452
31 027456
32 027462
13 027464
36 027470
35 027476
36 027500
17 0275064
38 027510
39 027514

40 027520
&1 027524
62 027526

63 027532
46
65
&6
&7
LB

sCALL

JSR RS,BSVWR

JUSES

"'ADJLOC' 10O GET

.WORD

6
SEQ 0066
DID NOT DISTURB ADJACENT

TRA(CKS

JSTARTING SECTOR
¢1/-=1

CYLINDER OFFSET

sUSES R3 FOR SECTOR MAP, USES MAF AT ‘'SECBUF'' FOR INFO

9 027342

10
11
12
13
164
15
16
17
18
19

THAT WRITE

0275%
027540
027542
027544
027550

010046

010146
010246
013746
013746
012546
123727
001455
162716
100002
062716

123727
001412
105337
005337
(004537
005237
105237
062716
021627
002407
162716
021627
002402
162716
123727
001412
105237
005237
004537
105337
005337
005726
012637

012637

012602
012601
012600
004537
000205

BSVWR:
003014
003012
002772

000003

000042

000050

002772

000001

002772
003014
027552
003014
002772
000104
000050

1%:

INAWR:

000050
000050
000050
002772

000005

1$:

002772
003014
027552
002772

003014

003012

003014

025240

BSEX]IT:

NCHECK:

MOV

MoV
MOV
MOV
MOV
MOV
(MPB
BEQ
Sus
BPL
ADD

RO,=(SP)

R1,=(SP)
R2,-(SP)
CyL,=-(SP)
SURF ,=(SP)
(RS)+,=(SP)
ADJLOC,#3
BSEXIT
#34,,(5P)
1%
#40.,(SP)

(MPB
BEQ
DE(B
DEC
JSR
INC
INCB
ADD
CMpP
BLT
SuB
CMP
BLT
SuB
(MPB
BEQ
INCB
INC
JSR
DECB

ADJLOC ., #1
INAWR
ADJLOC
(ve
RS,CHECK
cvL
ADJLOC
#68.,(SP)
(SP), 440,
1%
#40., (SP)
(SP),#40.
1%
#40.,(SP)
ADJLOC,#S
BSEXIT
ADJLOC
cye
RS, CHECK
ADJLOC

DEC
TS
MOV

YL
(SP)¢
(SP)
¢+, SURF

MOV
MOV
MOV
JSR
noo

(SP)+ ,R?
(SP)+ R
(SP)+,R0O
RS, k(YL
re

MOV

sSAVE REGISTERS

;GET STARTING SECTOR
sON MIDDLE TRA(K???
sYES, THEN NO CHECK
JSETUP SECTOR START
;1F POSITIVE OKAY ELSE FIX
SEIX T

;ON OUTER LIM]T?2?2?
JYES,SKIP CHECK
;OUTER ADJ TRA(CK
;60 CHECK ADJ
;F1X BACK

SECTORS

:INNER SECTOR START
JWITHIN LIMITS?2?2?
;YES, OKAY
;FIX SECTOR

s INNER LIMIT??
JYES,SKIP CHECK
sFIX FOR INNER

:
;60 CHECK ADJ
JFIX BACK
:
s THROW OFF

(SP)+, (Yt

;SEEK BALK
:RETURN

SECTORS

SECTOR

FOR OQUISIDE

CIRLLAD RLOY/2 DRIVE (PY
GLOBAL SUBROUTINES SELTION

MACRO v03.0V

9-FEB=-79 19:41:44 PAGE

;ROUTINE

TO VERIFY

:CALLED FROM BSVWR

264

AN ADJACENT

SEQ 0067
SECTOR

027552

01270Y

7 027562

0050C2

6 027556
8 027564

9
10
11
12
13
16
15
16
17
18
19

006537

025240

053702

003014

027570
027576
027600
027604

012737
006302
005337
001374

027614
027620
027624
027626
027630

052702
056602
030103
001452
010200

027606
027612

20
21
22
23
24
25
26
27
2B

027632
027636
027642
027644
027650
027654
027660
027662
027664

30
31
32
33

027672
027700
027704
027706

103000

005737
001402

042700
020027
002404
162700
162702
004537
000000
005700
001433

29 027666

010237

;g 027772

001420

012737
004537
000014
005737

000007

000100
000002

177700
000050

003076

177600
031360

0C3024

o0 027724
&1 02778%2

062737

177700

&2 027742
4% 027744

&5
&6
&7
&8

104463
000156
(20003
020116

027756
027756
027760
027762

005202
000241
00600!
103320

000209

#100000,R 1

;SECTOR MASK

(LR

:CREATE

JSK

MOV
ASL
DEC
BNE

151
ata
BIS
B1S
Bl
BEQ
MOV

TO DESIRED CYLINDER
ADDRESS

07,7EM
R?
TEM
’%
SURF
1%

#HEAD,R?
2(SP),R?2
K1,R3
5%
R2,R0

;NO

:SET IN SECTOR
;THIS SECTOR IN LIST?2??
:NO, NEXT
; COPY SECTOR

sONLY SECTOR LEFT
OKAY???
:YES

MOV
JSR
READ
187

#-128, .8MP
RS,LDFUNC

;LOAD W
;LOAD

ERFLG

;WAS READ GOOD

MoV

R2,BDA

5¢%

;FIX SECTOR
:FIND IF SECTOR PREVIOUSLY WRITTEN
;WAS
:NO

1172?

;LOAD DISK ADDRESS

R3,-(SP)

MOV
MOV

RZ2,SECT
RO,R3

BIC
LRRHRD

#177700,S€CT
140.,ADJTXT ERR3

.WORD

ERRS

TRAP
.WORD
.WORD
.WORD

TSERCODF
110
READ1
ERR?

INC
LC
ROR
BiC

SNEXT

k1
'8Y
RS

JSHLIFT MASK

TRAP
.WORD
.WORD

MOV
ERRNMRD

5¢:

Cvt R?

;GET

#177700,R0
RO,#40. ;SECTOR
6%
#40,,R0
#40, R?
RS,RSADJS
0
RO
5¢

BEQ

0030<4

RS,SKCYL

BIC
cmp
BL1
SUB
SUB
JSR
.WORD
181
Bta

MOV

Q03100

104463
000214
020030
020156
012603

027744
0277646
027750
027752

&9 027764

6%:

002766

010237
010003

027740

2$:

3%:
6%

000050
000050
025716

MOV

BIS

003012

010346

027732
0277%
0277%

9002750

002750

3¢ 027714

17 027716
gg 027722

(HECK:

R1S

TSERCQODE
140
ADJTXT

(5P)¢+ RS
110, ,READ1T,ERR?

SECTIOR

36
57
38
40
41
&°
43
44

48
49
50

MACRO v03.01

9<-FEB=-79 19:41:44 PAGE

;ROUTINE
;ENTRY

6
SEQ 0068

1O MERGE BAD SECTOR FILES

INTO THIS ROUTINE WiLL OCCUR AFTER THE ''SERNUM’' ROUTINE

;1S PERFORMED. THE FACTORY BAD SECTOR FILE wWiLL BE LOCATED IN
;FIRST 400(8) LOCATIONS.
;THIS RCUTINE WILL STORE THE FIELD BAD SECTORS INTO THE NEXT

;400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE

;WITH THE
;FACTORY

FIELD BAD fILE.

BAD

027766
027770
027772
027774
030002
030010
030012
030020
030022

A ON) —b ek et —o

;FIELD BAD AT

-t O

(VRV} (R TVIO
VT N) ~ A PONUPOPUNUND
0 el b ot et b s = rh

V.
o W)
— OO 0o ~O (AR 2NV ) N=OOVBONO
NS NNt OO0W~ O SN
-

CIRLLAO RLOYV/2 DRIVE (P1
GLOBAL SUBROUTINES SECTION

030030
(30036
030042
030044
030050
030052
030060
020066
030070
030076

001357

030100
030100
30114

MERGE
:

003074
002752

077724

003076

177726

00307¢

55%:

(MP
BNE
MOV
BR
MOV

177400

003100

66%:

MOov

97%:

000004
000001

003076
002752

077750

003076

022737
001353

177750

003076

012746
012746
010600

021657
000091

000004

000776
012701
012702
005721

003134
000176

100404

005721
005302
001373
000401
005741
012703
012702
012221
100403
012221

000176

00353«

98%:

1%:

2$:
1%:
3 ¥

R1,-(SP)
R2,=(SP)
R3,-(SP)

#BUF +400,BBA
M ,T.DRIVE

#s ,BDA

¥ ,1.DRIVE

#177750,BDA
97%
FERMIS
#FERMIS,=(SP)

151

BM]
181
DEC
BNE

ami

:TEST ERROR FLAG

;YES;MERGE BAD SECTOR FILES
:TRY NEXT FIELD BAD SECTOR FILE

:NO,DO NEXT

FIELD BAD

SECTOR

SP,RO
CEPNTF

06 ,SP

($BRK
999%
#BUF+10,R1
#126. ,R?
(R1)¢

;GET PAST

JPAX =

126

ID ETC.

:SECTOR OR END
JEND, GO GET FIELD
sREST OF SECTOR

;MAX REACHED
sNO, KEEP GOING

JYES, SKIP BACK uP

:BACK UP PAST

151
MOV

MOV

;LOAD READ FUNCTION

M, -(SP)

MOv
MOv

FOR FIELD BAD

#177724,B0A

(MpP
BNE
PRINTF

MOov
MOV

START

66%

400%
#77750,8DA
G7%

BRE AK
EMT
8p

;BUFFER

59%

BNE
(MP
BNE

ADD

;SAVE RY, R2, R}

#77724,BDA

ERFLG
98%

EMT

104022

512.

BEQ

MOV
MOV
MOV

999%:

2-256.,8MP
RS, LDFUNC

ADD
CMP

400%:

BUF

JSR

READ
1S1

002766

104017
062706

MOV
MOv
MOov
Mov

003524
000001

031360

JSET 126 MAX

(R2)e,(R1)¢

(R2)e, (R1)e

TERMINAIOQR

JGET FIELD SECTORS
sMERGE AT END OF FACTORY
:DONE?

JNO, MERGE

REST OF

SECTOR

CZRLLAQ RLOV/2 DRIVE (P
GLOBAL SUBROUTINES SECTION

52
53
5%
55

030200
030202
(30204
030206

5¢ 030210
57 030212

MACRO v03.01

6
25-1
SEQ 0069

005303

001373
012603
012602
012601
000205

9-FEB=79 19:41:44 PAGE

5¢:

DEC
BNE

mov
Mov
Mov
RTS

4%
(SP)+ ,RY
(SP)+ R?
(SP)e+ ,R1
RS

s DONE

:NO, GO BA(Kx
;RESTORE R3,

JEXLT

R2,

PUNY =

S OV

D et

b e

030214
030220
030226
030232
030234
030236
030240
030244
030250
030254
030260
030206
030266
030272
030276
030300
030304
030306
030312
030320
030322
030326
030334
030336

030342
030344
030352
030354
030356
030364

M
M
YO

[Va
X )

MDD

TION

Q [=] OOO00O0OO0CC0OCO
o (=] — et NI O OOON) = s
VNN
O = NINIRND
NOOWWNWMEO~NWVWVY
W
WNWWNWUIN
OO WWWLW
NONNNNNWVN
gy~

NS NN

et el et o

= D000~ N NP
—

CIRLLAQ RLOY/2 D
GLOBAL SUBROUTIN

0045
005737
001G03
005237
000402
005037
023727
001011
005237

022737

001002
062705
000205

0237%7
001001

000205
063737
000740

003040
003050
000601

003044
003042
003052
003054
003044

MACRO v03.01

FNDTRK:

002752
80%:
90%:

003040

030366
002126

1%:

Mov
JSR
181
BNE
INC

003054
003054

000005

003052
000001

002752

2%:
3%:

003042

03046

BR
(LR

81%:
“%:

(R5)¢ ,OFFSET

(R5)+,SURFACE
#1,T.DRIVE

SEQ CO70

:GET INCREMENT/OECREMENT
;GET HEAD (SURFACE)

80%

90%
(RS)+,(RS)
{(RS)+ FRYTRK
(R5)+ LSTTRK

TRKEND
TRKCNT
FRTIRK,PRSTRK

RS,FNDBS(
HDRFND

TRKCNT

;CLEAR OUT FLAG FOUNC
sCLEAR OUT TRACK COUNT
;GET FIRST TRACK
;1S TRACK

TRKEND
#1,1.DRIVE

SYES,

ADD

¥4 ,R5

RTS

RTS
ADD

TRK(NT

;NO, INDICATE GOOD TRACK
; CONTINUE
;START COUNT OvER

JFIND S

(mp

IN BAD SECTOR FILE

JWAS [ T1?
sYES, CLEAR

TRKCNT
, #5
(%

BNE
:
5%

19:41:44 PAGE

CMp
BNE
INC
cMp

BNE

000004

003040

MOv
MOv
0.]14
BNE
BR
(mp
MOv
MOov
CLR

(LR

003054

003046

9-FEB=-79

TRACKS

sNO, CONTINUE
EXIT

YET?

WITH GOOC

81%

PRSTRK ,LSTIRK

RS
OFFSET,PRSIRK
1R)

;ARE

DONE?

:NO, KEEP LOOKING
SEXIYT WITH NOT FQUND

JNEXT

TRA(CK

FiLAG

SEQ 0071

0320436
030440
030442
030446
030450
24 030452
25 030454

005721
005202
020227
001355
012601
012602
000205

27 030456
28 030462
29 030466

01%/01
005737

030474
030500
030502
03050«
030506
030510

012702
010120
00520}
005302
001374
00020%

1S18
(MPB
BtQ
1STB

003050

002126

e
emhR

JNO,

SURFACF,(R1)

49
-(R4)

END,

M
L

;CYLINDER CORRECT?

EXIT

;UPPER HALF OF WORD
;CORRECT SURFACT

INC
BR

HDRFND

;SET FOUND

151
INC
(MP

(R1)+
R
R2,#250.
%
R
(SP)+
(SP)+ ,R?
RS

sNEXT WORD
;ACCOUNT FOR

PRSTRK ,R1
OFFSET
1%
¥R
"5 .R2
Ri,(R])

;OGET TRACK WHICH IS GOOD
;WHICH WAY WERE WE LOOKING

emmh

MINUS

;1F

(RG)

FILE

:EsggP FCR BEGINNING OF

PRSTRK, (R1)e

JINITIALIZE PLAG
:SAVE R1, R?

GEER

BNE

HOREND
R1,=-(SP)
R2,-(SP)
#BUF+10,.R
{(R1)

003046

IN FILE

MOV
MOV
RTS

:NO,

GEh
SED
TER

KEEP

(HECKING

;RESTORE R2, R1, EXIT

WER

.DONE?

TER

2%:

BNE

000374

P
PPN
PN
PPN
PPN
PN
PN
S
SN
SR
.
S

WD/PER

THEM 1

RIS

:GOING STORE AWAY S5 TRA(KS

;STORE

INC
DEC
BNE

R1
RS

JBACK 1T UP BY FOUR

MOv
MOV

;IN WORD, BRANCH

1$:
’%:

151
BMl
SuB

000004
000005

MOv

31
32
33
34
35
3¢

100402
162701

FIXCYL:

30 030470

003046
003040

SRR

030434

1%:

CLR

MOV
Mov
MOv
151
BM]
(MpP

TRACK

SEEL

‘\

(=]

105724
123711
001402
105764

FNDBSC:

TO FIND BAD

100421

023721
001011

003134

6.6
27

= OO0~

010246
012701
005731

002126

19:41:44 PAGE

005037
010146

000403
005237
000405

= OOV

9=FEB-79

;ROUTINE

PNORUPONY
— =2 et et et et ot et et e

MACRO v03.01

—

CIRLLAD RLOV/2 DRIVE (PI
GLOBAL SUBROUTINES SECTION

F AN

10 GET

SERIAL

StaQ 0072

NUMBER

;ROUTINE

19:41:44 PAGE

orn

9-FEB-79

MACRO v03.01

030616
030620
030624
030632
030636
030640
030644
030646
030652
030660
030662
03066¢C
03067C

004537
000010
013700
022737
001003
022700
000402
022700

010674
030676

022737

030704
030706
030714

030716

160001
010137
072737

004537
000006

103321

001904
012737
000403

012737
012737
0127%7
0045%7
000014
005737
001421
062737
022737
001009
022737
001351
000453

BEO

*77700

32%:

177600

003076
000025
031360

33%:

003076

003064
000001

077700
177730

000001

002752

077700

003076

177700

003076
003074
003100

003124
177400
031360

(mMP

MCv

#77600,R1

000004
000001

003076
002752

077724

003076

RS,LDFUNC

VERIFY POSIVTION

E.MP,RO

:GET HEADER

RS,LDFUNC

#1,1.DRIVE

BNE
(MpP
BR
(mMp

629
#77700,R0
439
#177700,R0

BHIS

1%
#1,1.DRIVE

MOV

#77700,B0A
97%

JSET UP DIFf WORD

: SEEK

IN, HEAD

52%

#177700,80A

JSR

#BUF ,BBA
=256, ,BMP
RS,LDFUNC

JREAD

BEQ

ERFLG
98%

;TEST ERROR FLAG
;YES,COMPARE SER[AL

ADD

(MP

BNE

(mp

BNE
BR

;SEEK

Mov
MOV
MOV

W
MNP

33%

RO.R1
R1,8DA
#25,BDA

002766

329

Sus

MOV

52%:

:CLEAR HEAD

#1776C0,R1

(mMp
BNE

97%:

Mov

RDHOR
MOV
TMP

002752

23%
RO, #77700
2%

#100,R0
¥ ,T.0RiVE

BIS
JSR
SEEX
JSR

031360

;GET THE MEALER
CLEAR SECTOR BITS

#77,R0O
M, T.DRIVE

RO,#177700

BNE

077600

t.MP,RO

(MP

BEQ
BIC

002752

sREAD HEADER

NPT

BNt
(MpP

077700

00010C
0000C1

81C
(mp

RS.LDFUNC

002752

1%:

SGET STATUS

003064
000077
000001

RDHDR
MOV

#13,8DA

RS, LDFUNC

MDA

031369

SERNUM: MOv
JSK
GSTAT
JSR

003076

013700
042700
022737
001003
020027
001446
020027
001443
042700
022737
001003
012701
000402
012701

000013
031360

030524
030526
030532
03053«
030540
030544
030552
030556
030560
030562
030566
030570
030574
030602
030604
030610
G30612

012737
004537
0000C4
006537
000010

RS, SERNUM

030512
030520

JSR

(AMAAILAIAINAIALAIA

s CALL

—~ O«

WP —= OO0
O W~ NS

O NNl — OO ~NO

Vv~ W~ D OB

o B PP
MM N N N N NN (UVIV
1 V) ] (oW 4V ia V] o) PORINUND
amd b ot s ot e el e
e

= OO~

CIRLLAQ RLOY/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

26 ,BDA
#1,7.DRIVE

6 2%

877724 ,BDA
97%
99%

JNO,SETUP FOR NEXT

NUMBERS

FACTORY BAD SELTOR

CIRLLAQ RLOV/2 DRIVE (P
GLOBAL SUBROUTINES SECTION

58
59
60
61

031004
031012
031014
031016

0227%7
001344
000446
012701

+3
64
65
66
67
68
69

031026
031030
031034
031042
031046
031050
031056

100005
011137
016137
021137
001004
026137
001437

031060
031064
031070
031072
031076
031102
031106
031110
031112

013746
0137«6
011146
016146
012746
012746
010600
104017
062706

72 031122

004537

62 031022

70 031060

G31116

73 031126
74 031132

005737

003104

000002

00310«

003102
003104

000776
000205

6%:

9-FEB=79

BPL
MOv
MOV
(MP
BNE
(mpP
BtQ

3%
{R1) SERNTM1
2(R1) ,SERNM?
(R1),SERNMT
6%
2(R1),SERNM?
5%

;YES, BRANCH
:NO, CALL THIS ONE
:
; SERNUM OkKAY
;NO, PRINT ERROR
;OTHER HALF OKAY
JYES, EXIT

151

PRINTF

JSR

000004

95$:

SEQ 0073

;GET NEXT FACTORY BAD SECTOR
:REPORT ERROR
. COMPARE SERIAL NUMBERS

031260

021657
00000)

1_6
2B8-1

#177724,8DA
97%
99%
#BUF ,R1

000014

000002
021007
000005

19:41:44 PAGE

(mp
BNE
BR
MOv

MOv
MOv
MOV
Mov
MOov
MOov
MOv
EMT
ADD

030512

104022

62%:
98$%:

003102
000002
003102

000137

031152

76 03115
77 031156

0031¢«

031160

012746
012746
010600
104017
062706

003076

003102

004537

031132
031136
031142
031144
031146

75 031152

177726

MACRO v03.01

SERNM1

;HAVE

SERNM1,-(SP)
SERNM? ,-(SP)
(R1),=(SP)
2(R1),-(SP)
NERM3,
- (SP)
#5,-(SP)
SP,RO
CSPNTF
#14,5P

RS,UNLOAD

;LET

JMP
PRINTF

SERNUM
#FRM1S

;60 (HECK
s MESSAGE

999%:

BREAK

5%:

BR
RTS

Em1

ONC

TO C(OMPARE

#FRM3 2(Ri),(R1),SERNMZ,
SERNMI

JSR

MOv
MOV
Mov
EMT
ADD

GO1

RS5,LOAD

NERM1S,-(SP)
#,-(SP)
SP,RO
CSPNTF
#,SP
($BRK

999%
RS

s PACK

OPERATOR
T

CHANGE
AGAIN,

CIRLLAQ RLO1/2 DRIVE

GLOBAL SUBROUTINES SECTION

MACRO v03.01

9-FEB=-79 19:41:44 PAGE

6
SEQG 0074

;

;ROUTINE UNLOAD

;CALL

JSR

RS ,UNLOAD

UNLOAD:

#FRM1,<B,0SB*1(R&)>,(SR(R&)
CSR(RG) ,=(SP)
-(SP)
DSB+1(R4),
(SP)
FERMY,-(SP)
#3,-(SP)
SP,RO
CSPNTF
#10,5°P
#60.,R1
;SETUP 60 SECOND TIMER

DSB(R4) ,RO

5 031160
031160
031164
031166
031172
03117¢
031202
031204
031206
6 031212

016446
005048
156416
012746
012746
(10600
104017
062706
012701

000010
000074

PRINTF
MoV
(LR
BISB
MOV
MoV
MoV
Emt
ADD
MoV

8 031222

056400

000004

8IS

7 031216

9 031226
16 031232

012700

000000
000005
020612
000007

000200

010076
032774

000000
000001

031242
031246
13 031250

012700
104026
005301

000012

15 0312564

000741

11 031240

12 031242

14 031252

}g 031256

001406

MOV

000C0O0

28%:

MoV
BIT

BEQ

WAITMS

001367

3%:

RO,3(SR(R&)
#DRDY,aCSR(R4L)

:CHECK

#10.

:WAIT

113

MCV
EMT
DEC

#10.,R0
(SWTM
R1

B8R

UNLOAD

BNE

000205

#200,R0

RTS

DRDY

FOR

:PACK UNLOADED
1

ZERO

SECOND

;HAS 60 SEC PASSED?
:NO, RETEST DRDY, CONTINUE

:RETURN WITH PACK UNLOADED

:RCUTINE LOAD

;CALL

JSR

RS5,L0AD

22 031260
031260
63126«
031266
031272
031276
031302
031304
031306
2% 031312

LOAD:

PRINTF
MOy
(LR
B1SB
MOV
MOV
MoV
EMT
ADD
MoV

W#FRM2,<B,DSB+1(R&4)>,(SR(R&)
CSR(R&G) ,=(SP)
-(SP)
DSB+1(R4),
(SP)
SFRM2,-(SP)
#3,-(SP)
SP,RO
CSPNTF
#10,5P
#120.,R!
(SETUP 120 SEC

LCAD

26
25
26
27
28
29

031316
031322
031326
031332
031%0
031342
031362
03136
30 031350
31 031152

016446
005046
156416
012746
012746
010600
104017
062706
012701

012700
056400
010076
032774«
001006

gg 03135¢

012700
104026
005301
001367
000741

T, 0831356

000205

000000
000005
020707
000093
000010
000170

000200
000004
000000
000001

002000

2%:

000012

1 ¥

MOV
BIS
MOV
BIT
BNE
WAlTMS
MOV
M1
DE C
BNE
RTS

#200,R0
DSB(R&) ,RO
RO,3CSR(R&)
#DRDY,SCSR(R4)
113
#10.
#10.,R0
($uTM
R1
2%
RS

WA]T

SYES, REPEAT MESSAGE CONTINUE wAll

"IM[R

:SETUP (ONTROLLER READY B
:SELECT DRIVE

MACRO v03.01

CIRLLAD RLOY/2 DRIVE (PT
GLOBAL SUBROUTINES SECTION

NS WY
= OOV

POR)
= amd et

h et

NS NN

s e

= OOV

LDFUNC:

001034
106027

002766
000009
003100
003076
003074
003072
0C0004
000031
000209
003072
000000
00020C
000200

h
th
el
it
i
il
il
)
el
e
—t

016337
016337
016337

(LR

000006
000004
000002

003072

003072
000000
003072
000000
000000

BIS

MOV

8IS

MOV
Mov

1%:

000144

016337

016337
016337

000002
00000¢

000006
000006
000006

031624

031632

003056
002766

50 031656

ERRDE

000205

2%:

L%:
3¢

BCS,(S(RY)
CS(R3),BCS

#200,CS(RY)
#200,CS(RY)

(S(R3) ,E.CS

.WORD
.WORD
.WORD
BR

003056
003060
003062
003064
003066
003070

#25..R1
#200,8(S

MOv
MOv
MOV
Mov
Mov

000425

{SR(R&) ,R3
BMP ,MP(R3)
BDA,DA(RY)
BBA,BA(R3)
(RS),BCS
DSB(R&) ,B(S

MOV

MOv

017166

RO,=(SP)
R3,=(SP)
R1,=(SP)
ERFLG

#100.
#100.,R0

TRAP

000000
00000¢
000004
000006
000006
000006

031650
031652
«8 031654

003056
003060
003062
003064
003066
003070

020464

0316%6
031640
L 031644
&5 031646

BI1C
8l
BNE
WAl TUS
EMT
DEC
BNE

104462
000322

34
35
36

000000

mMov
Mov
MOv

Mov
MOov
MOV
MOV
MOV

005301
001367

38
39
&0
6!
&2
&3

SEQ 0C79

;ROUTINE LDFUNC
RS,LDFUNC
JSR
s CALL

012700

9-FEB-79 19:41:44 PAGE

MOV
MOv
mov
MOV
MOV
MOv

TS1
8PL
INC

151
mov
MOV
Moy
RTS

ENDMOD

;CLEAR ERROR FLAG

JGET (SR
;LOAD MULT]JPURPOSE
;LOAD DISK ADDRESS
:LOAD BUS ADDRESS
:GET

FUNCTION TO LOAD

;SELECT BITS

;SET WATCHDOG TO 250MS
;LOAD FUNCTION
sCNTLR READY?

JYES, GO

SWALT

10 MILLISECONDS

;READ

ALL

(SWTy
R1
1%

BA(R3) E.BA

REGISTERS

DA(R3Y) ,E.DA
MP(R3) ,E.MP

MP(R3) ,E.MPI
MP(R3) ,E.MP?

210.,CNTTQT
ERRS; (NTLR TIMEQUT

TSERCODE
210
(NTTOT
ERRS

(S(R3),E.CS

BA(R3) E.BA

;READ ALL REGISTERS

DA(R3) ,E.DA

MP(R3) ,E.MP
MP(R3) ,E.MP!
MP(R3) ,E.MP?
E.CS

3%
ERFLG
e
(RS)

(SP)+ ,RI

(SP)e+ RS
(SP)+ R0

«ANY ERRORS?
JYES, GO SERvICE

CIRLLAD RLOY/2 DRIVE
SUBROUTINES

MACRO v03.01

SECTION

9-FEB-79 19:41:446 PAGE

SEQ 0076

031656

BGNTST

012701
012700
005021
005300
001375
005237
004557

~
W

—

177400

000377
005037
005237
005237
004537
03
170000
003
007777
000000
004537
062704

004537
004537
004537

000360
000017
005237
004537
002
000000

002334
000170

COMPAT: MOov

002754
025572

(LR
INC
INC
JSR
.BYTE
.WORD
.BYTE
.WORD
.WORD
JSR

000

031160
000010
031260
030512
023572

ADD

JSR
JSR

JSR

360
17
INC

002776
024314
560

JSR

017

360
017

032454
000010
031260
039512
023572

5¢ 032100
57 032102

170000

002776
024314
000

(LR
DEC
BNt
INC
JSR
177400

377

00275¢4
00275¢
002776
02«314
377

031160
003022

MOov

000002
10$:

.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.WORD
JSR
(mMp
BNE
JMP
ADD
JSR
JSR
JSR

6014

1403
INC
JSR
BYTE
.WORD

¢SECBUF
R

#120. ,RO
(R1)+
R)

L%
fFOJR
RS .,OVWPER

F OWR
FADJ
ADJDIR

RS,ADJ(
YL

-t

;ADJ. CYLINDER BUFFER
;ADJ. CYLINDER BUFFER (OUNT
;CLEAR ADJ. (YL. BUFFER AT STARTUP
;BUFFER CLEARED?
;CLEAR NEXT BUFFER WORD
;S5ET FIRST OVERWRITE HLAG
;PERFORM OVERWRITE

ON fIRST

DRIVE

sCLEAR FIRST OVERWRITE
;SET F%RSI ADJ. FLAG

JUP =

: TRACK

AND

SECTORS

FOR

; TRACK

AND

SECTORS

FOR

: INWARD SEEK

;OUTWARD SEEK

; TERMINATOR

#PAT+2
R4

R5,LOAD
RS, SERNUM
RS,0VWPER

UNLOAD PACK FROM DRIVE UNIT
;UPDATE

POINTER FOR NEXT DR]VE

;LOAD INTO SECCND DRIVE UNIT

;(HECK

FACK

SERIAL

NUMBER

;PERFORM R/W OVERWRIIE

ADJDIR

RS,ADJCYL

2,360

OQOHr,orCcrnNO

—

(V]

sCONTROL SECTION TOMPATABILITY PROGRAM
:PRINT UNLOAD AND LOAD DRIVE MESSAGES
;PERFORM SERIAL CHECK ROUTINE
;PERFORM READ/WRITE CHECKS ON DRIVES

ANIPNOPORORNINUNINAD
ot b ot b b et et et et e

N N=OOVONP
NS NN = OO0~
N
NN e

GLOBAL

(PT

JIN 170 OUTSIDE
;0uUT

1/0 OUTSIDE

4,360

;IN 170 INSIDE

6,17

;0UT

RS,UNLOAD
uuT,#2

;UNLOAD PACK FROM DRIVE UNIT
;(HECK FOR > 2 DRIVES

SPAT+2
R4

RS,LOAD
RS, SERNUM
RS ,OVWPER

1/0 INSIDE

;YES,GO TO NEXT

;GO TO FIRST DRIVE

;UPDATE DRIVE BUFFER FOR THIRD DRIVE
+LOAD PACK FOR THIRD DR]VE
¢(HECK SERJAL NUMBERS

;PERFORM R/W OVERWRITE

ADJOIR

RS,ADJC YL

2.0
170000

DRIVE

JINC2/70 QUISIDE

THIRD

DRIVE

200
100

S
030512
023572

g
000

000
009
000
040
020
040

020
000

000
000
000

320

020000

031160
000010
031260
030512
023572

000003

ADD

JSR
JSR
JSR
1042
621
INC
JSR
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.WORD
JSR
SUB
JSR
JSR

JSR
20000

OOWVOWVNO
—=C =&
=~y
P2XY
[
> TR TN
pt
pit NOOOOOO
o
[
[ (= N - ]
o
o
o
o
(=4
o

000

.200

RS,UNI OAD

vutT,#3

1%
#PAT+2
R4
RS,LOAD
RS, SERNUM
RS ,OVWPER

6
31-1

SEQ 0077

:0UT 2/0 OUTSIDE
;IN 2/0 INSIDE

:0UT 2/0 INSIDE

;IN 2/ OUTSIDE

;0UT 2/1 QUTSIDE

;IN 2/1

INSIDE

;0UT 2/1

INSIDE

: TERMINATOR

:UNLOAD PACK ON THIRD DRIVE
:CHECK FOR > 3 DRIVES

:NO, GO TO 2ND DRIVE

:UPDATE DRIVE BUFFER FOR 4TH DRIVE
:LOAD PACK ON &TH DRIVE
sCHECK PACK ON FOURTH DRIVE

PERFORM R/W OVERWRITE

ADJDIR

R56ADJ(VL

360

N
— [aV]
~Js
O~
-~js
OO0
o

¢00

.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYIE
.WORD
.BYTE
.WCRD
.BYTE
.WORD
.WORD
JSR
CMP
BEQ

000000
005
000000

000

19:41:44 PAGE

= =2 aONOWNO

67 03212¢
68 032130
69 032132

002
007400
004
170000
004
007400
061
000000
001

9-FEB=79

NVa N

58 032106
59 032106
60 032110
61 032112
62 032114
63 032116
64 032120
65 032122
66 032124

MACRO v03.01

CZRLLAQ RLOV/2 DRIVE (P
GLOBAL SUBROUTINES SECTI ON

RS ,UNLOAD

#PAT+?
R4

RS,LOAD
RS,SERNUM
RS,0VWPER

;IN 3/0 OUTSIDE
;0UT

3/0 OUTSIDE

:IN 3/0 INSIDE
;0UT 370 INSIDE
;IN 3/1 OUTSIDE
;0UT

371

OQUTSIDE

;IN 3/1

INSIDE

;0UT 3/1

INSIDE

:IN 3/2 OUTSIDE
;0UT 3/2 OUTSIDF

;IN 3/2 INSIDE
;0UT 3/2 INSIDE
; TERMINATOR

;UNLOAD PACK FROM &TH DRIVE

;SET DRIVE BUFFER FOR 3RD DRIVE
;LOAD PACK ON 3RD DRIVE
;CHECK

FOR

FPACK

SER]IAL

NUMBER

;PERFGRM R/W CVERWRITE ON 3RD DRVt

CIRLLAO RLOY/2 DRIVE (PT

MACRO v03.01

GLOBAL SUBROUTINES SECTION

115 032322
116 032324
117 032330

010000
004537
001

119 032334
120 032336

001
000100

118 032332

121 032340

000200

000

005

000

000200

124 032346

000100

125 032350

000000

126
127
128
129
130
131
132
133
134
135
136
137
138
139

032352
032356
032362
032366
032372
032376
032400
032402
032406
032410
032412
032614
032416
032620

004537
162704
004537
004537
004537
004040
002020
004537
001
020000
901
010000
005
020000

141
162
143
144
145
146
147

032424
032426
0326430
032432
032434
032436
032440

010000
001
000040
001
010020
005
000040

149
150
181
152
153
156

032444
032446
032450
032454
032460
032464

0060020
000000
004537
162704
004537
004537

156
157
158
159
160
161

032474
032476
032500
032504
032506
032510

001042
000421
004537
001
000000
001

140 032422

148 032442

155 032470

162
163
164
165
166
167
168
169

032512
032514
032516
032520
032522
032524
032526
032530

170 032532

171

0%25%4

005

004537

000000
005
000000
005
000000
001
004000
001

002000
005

031160
000010
031260
030512
023572

1%:

000

000
000
000

;1IN 2/3 OUTSIDE
:0UT

2/3 OUTSIDE

;0UT 2/3 INSIDE

; TERMINATOR

100

RS,ADJCYL
1.0
20000
1.0
10000
5.0
20000

"WORD
BYTE
"WORD
BYTE
WORD
BYTE
WORD

10000
1,0
40
1.0
20
5.0
40
5.0

:0UT

JWORD
.WORD
JSR
SUB
JSR
JSR

20
0
RS,UNLOAD
¥PAT+2 R4
RS,LOAD
RS, SERNUM

;TERMINATCR
:UNLOAD PACK FROM 2ND DRIVE
SSET DRIVE BUFFER FOR 1ST DRIVE
;LOAD PACK INTOQ FIRST DRIVE UNIY
;CHECK SERJAL NUMBER

1042
421
JSR
BYTE
WORD
LBYTE

RS,ADJCYL
1,10
0
1.4

JSR

RS ,UNLOAD
#PAT+2 R4
R5,L0AD
RS, SERNUM
RS ,0VWPER

JSR
SUB
JSR
JSR
JSR
4040
2020
JSR
BYTE
"WORD
BYTE
"WORD
BYTE
JWORD

5.0

RS,OVWPER

000
000

BYTE

5.0

600

SEQ 0078

5.0

"WORD

0
- 5,10
0
5.4
0
1,0
4000
1,0

004

31-2

;IN 2/3 INSIDE

"WORD
BYTE
"WORD
BYTE
JWORD
BYTE
JWORD
BYTE

010

5,0

200

BYTE

2%:

200

"WORD

.BYTE

000

004

1,0
100

WORD

000

024314
010

BYTE
‘woRD

BYTE

000

023572

RS, ADJCYL
1.0

BYTE

024314
000

031160
000010
031260
030512

10000
JSR
BYTE

WORD

000

0G5S

122 032342

123 032344

024314
600

9-FEB-79 19:41:44 PAGE

"worD

2000

:UNLOAD PACK FROM 3RD DRIVE
:SET DRIVE BUFFER FOR 2ND DRIVE
;LOAD PACK ON THIRD DRIVE
;CHECKX PACK SERIAL NUMBER
:PERFORM R/W OVERWRITE ON 2ND DRIVE

:IN
:0uT
;1IN
:0UT

;IN

;0UT
;1IN

1/2 OUTSIDE
1/2 OUTSIDE
172
172

INSIDE
INSIDE

173 OUTSIDE

1/3 OUTSIDE
173
1/3

INSIDE
INSIDE

;PERFORM R/W OVERWRITE

:IN 071
:0UT

071

;1IN 071

:0UT 0/1

OUTSIDE
OUTSIDE

INSIDE

;1IN 0/2 OUTSIDE

:0uT 0/2 OUTSIDE
JIN 072

INSIDE

CIRLLAQ RLOY/2 DRIVE (P

GLOBAL

SUBROUTINES SECT] ON

e
o
D
ekl
il
o
) el
e
it

(=]
(=]
(=]

9-FEB-79 19:41:44 PAGE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTF
.WORD
LBYTE
.WORD
BYTE
.WORD
.WORD

000
000

000

009
000

032566
032572
032576
032602
032604
032606

186 032612

032612

187 032614
188
189
190
191 032616

032616
032616

192
193 032620
196 032620

004000
005

Q
o

w
[
~s

N
[a V]

000000000000~~~
~~ ~
W
WA= OO0~V »

172 032536
173 032540

—

MACRO v03.01

032620

004537
012746
012746
010600
104017
062706

031160

JSR
PRINTF

i
000004

MOV
MOV

Mov

EMt

1%:

032642
032644
032646
032650
032652

003032
032727
003400
000000
000007

032654
032656
032660
200 032662

002130
032676
00000

032662

;IN 073 INSIDE

2.0

:0UT 0/3 INSIDE

JTERMINATOR

NENDPAS

JEND OF

RS ,UNLOAD

;IN 073 OUTSIDE

sUNLOAD PAC(CK

PASS

#ENDPAS ,-(SP)

®1,-(SP)

SP,RO
CSPNTF

86 ,5P

HRDPRM

BGNHRD

.WORD L10013-L$HARD/?2

000020

001031
0327¢0
000000
000776

201

?60

(SETST

03263
032634
032636
032640

199 032654

;0UT 0/% OQUTSIDE

Emi

032622
032624
032626
032063

198 032642

1,0

104001

0G003
032662
160000
177776

197 032632

;0UT 072 INSIDE

($BRK
1%

BGNMOD

SEa 0079

5.0
2000
}60

000776

104022

31-3

4000

BRE AK
34!
BR

196 032622

ADD

GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMD

(1013

.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
ENDHRD
LEVEN

CSRMSG,CSR,0,160000,177776,YES
T$CODE
CSRMSG
TSLOLIM
TOHILIM

VECMSG,VECT,0,0,776,YES
T$CODE
VECMSG
TSLOLIM
TOHILIM

DRMSG,DRBY,0,03400,0,7,YES
1$C00¢
DRMSG
03400

TSLOLIM
TOHILIM

DRYYPE,TYPDR,1,YES
1$C0DE
?R]vPE

CZRLLAOQ RLOY/2 DRIVE

GLOBAL

SUBROUTINES

202 032662
032665
032670
032673
203 032676
032701
032704
032707
032712
032718
204 032720
032723
032726
205 032727
032732
206
207 03273%6
208
209 033114
033114

(PT

MACRO v03.01

SECTION

102
040
104
123
104
126
1¢4
105
040
060
126
124
000
104
126
033114

125
101
122
1¢3
122
105
131
049
122
061
105
117

123
104
105
000
111
040
120
075
114
0060
103
122

122
105

111
000

9-FEB=79 19:41:44 PAGE

¢C

31-4

(5RMSG:

.ASCI?

/BUS ADDRESS/

DRIYPE:

,ASCIZ

/DRIVE

VE(MSG:

.ASCIZ

/VECTOR/

DRMSG:

.ASCIZ

/DRIVE/

EVEN
233114
LASTAD
LSLAST::

ENDMOD
LEVEN

:THIS

TYPE

SEQ 0080

= RLOV/

IS A FIX FOR THE

“APT'

MA]LBOX

CIRLLAO RLOY/2 DRIVE (PT
MACRO v03.01
DIAGNOSTIC SUPERVISOR == LOW CORE SET uP
1

9-FEB=-79 19:41:44 PAGE

7
SEqQ 0081

.SBTTL

DIAGNOSTIC

SUPERVISOR == LOW (ORE

SET

ACSEMBLY ROUTINES
PWR.FAIL:
POWER

89S
36
37
I8
1y

“

063710
063712
063714
063716

000000
000000
000000
000000
063722

000200

MACRO v03.01 9=FEB=79
INTERRUPT ROUTINE

1G:461:44

PAGE

.WORD
.WORD
.MWORD
LWORD

0
0
0
0

END.SUPY:=,
2

LEND 200

SEQ

:SPACE FOR USEX POOL POINTER
;SI1ZE
;CHECKSUM (NOT CURRENTLY USED)
:SIZE OF M.w. PTAB, ALLOCATION

0082

003014
065462
045474
066472
(SAAK
(SAAL
046636
(SARRT- 000021
(vL

(SAAD
(SAAE

017275

004000

ENDBUF
ENDPAS
OF
EN. D
END.SU=
ENVIROD
H
EOP,. .

v00001
032727
0235566
000013
003000
032676
000004
022142
033362
04646442
047346
047364
052132
052136
052154
052172
052202
000036
000035
00003«
000037
000040
000001
000002
000003
000004
v00005
000006
000007
000010
000011
000012
000013
000014
000015
000016

ERRFND
ERRFOR
ERRHAN
ERR.HR
ERR.NU
ERR.SF

ERR1
ERRIFO
ERRZ
ERR3
ERRG

ERRS

ERR6
ESC.PC
Ev.COU

EXIT
£.BA
E.CS

E.DA
E.MP

E.MP1
E.MP2

FADJ
FEW
FlLt
Flue .
FIXCyL
FLAGS
FLAGST
FLAGTA
FLAG.]
FLA.SE
FLG.MA,

FNDBSC
FNDDRV

FNDTRK
T
FORM,
FORSK
FOWR
FREE
FRMI

FRM10
FRM1
FRM12
FRM1Z
FRM14
FRM1S
FRM16
FRM17
FRM18
FRM2
FRM3
FRMG

100000

017563
066714
045514
046452
033116
046456
020060
047000
020116
020156
020304
020464
020524

045506

033120
023560

003060
003056
003062
003064
003066
003070
002756

017313
053240

000204
030456
033160
033162
056412
040146
056360
0640106
030366
026124
03021¢
067010
003020
002754
054316
020612
021365
0214
021466
021545
021630
021¢57

021716
022003
022037
020707
021007
021066

T~ B

ERR

035734
040100
002766

[ARAN
AN AN~

r43056
be 744
+~u006
217124

EOP.FM
EOP.IN
ERFLG

(2K~}

052404
040000
033126
000000
033446
003010
010000

[AXAaNalaYakalalalalalaaKalalalaNaRaNAXAYAN
A

>»

—

f
f
f
f
f
f
f

—

P-4

f
f
F
f
f
f
f
f
f

2 2 2 OO OOOOOOO
WNI = OV
~NO N
W, -0

($RDBU=
(SREFG=
(SREQT=
($RESE=
(SREV]
($RPT

DRPCOD
=
DRST
DRSTAT
DRTYPE
0SB
=
DSPCOD
DUNIT.
DVC.FT
DSAAG
D$AAH
DSAAIL
DSAAY
D$AAK
DSAAL
DSAAM
EF.CON=
EF.NEW=
EF .PWR=
EF.RES=

OOWVMES

000023
000014
000017
000016
000015
000040
000377
000007
000050
000045
000033
000002
000025
000047
000041
000037
000013
000031
000026
000027
000004

DRBU
DRDY
DRMSG

($GTIM= 000052
($INIT= ooooN
($INLP= 000020
($KWOF
= 000035
= 000034
000100
000051

DECMSG
=
DERR
DEV.CO
DIAGMCDIAG.1T
DIRC
OLYT
=
DPDVD
DPMUL
DRBT

Z X

000020
000054
000022
000004
000002
000030
000046
000012
000006
000036
000044
000053
000024
000055
000002
000002
000003
000001
000004
000010
000005
000003
000001
000032
000043
000042
000040

D — ettt

($ADR
(AU
($BRK
($BSEG
($BSUB-=
(SBUFF
(SCEFG=
CSCLEA=
($CLPI=
(BCVEC=
CSDCLN=
($00DU=
($DRPT=
($0U
=
($EDIT=
=
(SERDF
(SERHR=
=
(SERSF
($ERSO=
($ESCA=
($ESEG=
($ESUB=
($ETST=
(SEX]T=
($GMAN=
($GPHR=
($GPR]
=

[aalasl MMM MMM
MM
Mo
m

. HW
BLD
8LO(K
BMP
BSEX]T
BSVWR
BUF
B$AAB

000200
000400

A AT AT A

000040
000100

A A

000010
000020

[

T
T
Y
TR
LI
T Y
T
O
T O
T
L

aflowbwr\a—--a—--——-ooooa
NN =D
O
~NO

bttt

—t

—d

ek —t

et =t

T I

[

BGN.SU
BINMSG

ARAYAFAYATAT AT ANANANAXAY AYAR AT AN AN Al

003072

003076
003032
033114
052370
000001
000001
00002
000004
000010
000020
000040
000100
000200
000400
001000C
000002
002000
004000
010000
020000
040000
100000
01,0004

= 001000 G
040602
056214
003100
027524
027342
003124
042204
BYSAAF
062116
CALLPC- 000022
CALLPS: 000024«
CALLSP- 000026
CALLTC: 000030
CAL.CL
06060°2
CAL.T]
060640
027552
(HECK
(HKLUP
042220
(HKSITR
054422
(HKTTY
05251C
. MA
CHK
0640360
045510
(HK.PC
(MK, SW
034550
(HR(NT
053742
CH.FLA
040066
(H.PAS
0640104
CLEAR.
0641502
CLKACC
033354
(LKBFR
060604
CLKONT
033352
CLKJUM
061210
062212
CLKRES
CLKSER
062346
033412
(LKSON
(LK.SE
060162
(LNCOD
023562
CLR.MA
040436
CMPENA
023536
(NTTOT
017166
CNVT
056660
( OMMAN
033164
COMMTA
056474
(OMPAT
031656
CONTCL
0¢2272
CRDY
000200
052572
(RLF
(RSEY
000002
(S
000000
000000
(SR
(SRMSG
032662
CURR.S
033122
CURR.T
033124
gl119

BBA
8CS
BDA
BDATA

002772
003106
020030
003110
033146
054060
035050
000011
037716
037732
037744
037752
037766
000002
000020
000040
003074

BA17

033440 6
033356 6
035720
024314
002776
002774
003112
003114
003116

37776

BA
BA16

181-1

SEQ 0083

ASAAY
ASAAW
ASAAX
ASAAY
ABAAZ
ASABA

19:41:44 PAGE

ADJLCS

ADJLCL
ADJLOC
ADJTRK
ADJTXT
ADJULT
AFS]
ALLOC
APT_ER
ASSEMB=

9=FEB=79

ADJLC2

MACRO v03.01

h 4

ABOF LA
ABOPAS
ABO.tM
ADJCYL
ADJDIR
ADJFLG

8110
81100

ROUTINES

TABLE

[A NN AT AN AYAN~

ASSEMBLY

SYRBOL

ASSEMBLY

ROUTINES

MACRO v03.01

9-FEB=-79

19:41:44

SYMBOL

TABLE

FRMS
FRMG

021127
021176

GSXFER=
GS$YES =

000004
000010

JYIMP
KBPTR

FRMB
FRM9
FRTTIRK
FUNERR

021257
021323
003044
017667

HCOREQ
HCOREY
HCRC
=
HC.ADR

037566
033402 G
0046000
033152 6

FSAU
=
FSBGN =
FSCLEA=
F$OU
=
FSEND =

000015
000040
000007
000016
000041

HC.DIA
HDRFND
HEAD
=
HEADO1
HERTZ.

feHw
=
FSINIT=
FSIMP =
F$MOD =

000013
000006
000050
000000

FRRM7

FwD

021217

F$SEG = 000003

002126
00212¢
020060
023972
017166
000003
000004
000400

055030
054600

G8HiL]= 000002

GSLOL
1= 000001
OGSNO = 000000
G80FFS= 000400
6$0FS1= 000376
GSPRMA= 000001
GSPRMD= 000002
GS$PRML= 000000
GSRADA= 000140
G$RADB= 000000
GSRADD:= 000040
GBRADF= 000200
GSRADL= 000120

GERADO:= 000020
GORADT
000100

031360
033442 G
031260
040102

LSUNIT
tL.CLK,
L10000
L10001

002012 G
037512
020114
020154

NXM
=
NXTFOR
0CTMSG
OSFSET

020000
056652
052376
003040

033142 6
002126
000100
003006
037526

LPBFR
LPCNTR
LPT_AD
LPT.RE
LSI.RE

033222 G
033229 G
037544
037540
037534

L10003
L10004
L10005
L10006
L10007

020462
020522
020610
022142
023560

oQulo
oaut1
oaQu20
oau1
oaQu30

002154
002166
002156
002170
002160

HOLDSP=
HPTCOD
HRDPRM
HSFLG

000020
022130 6
032620 G
003002

LSTDRV
LSTIRK
LUP
LUP.AD

003026
003042
060506
045512

L10011
L10012
L10013
MAJ.IN

023570
032616
032662
033176 G

oQusaC
oQue |
0QUS0
oau

INAWR

027440

L$CCP

002106 G

MANY

017352

([TARN

6
6
6
6
6

033144 6

= 010000

INITCO

000010
000002
000014
000001

GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTIXT
GSBIT =
GSTAT =
GSEXCP=

GETSW!
GET.TW

LDFUNL
LINE.F
LOAD
LOAD.F

ININIT

F$SOF
1= 000005

053744
003030
052450
056034
047526

033156 G
033564

HW.ADR
H$SAAB

FSRPT = 000012

GARBAG
GDATA
GETCHR
GET(MN
GETPAR

NUM.NO
NUM.UN

HNF

FEMSG = 000011
FSPWR = 000017

F&SRV =
FeSUB =
FeSW
=
FSIEST=

00205’ 6
002052 6

HC.DEF

f $HARD= 000004

SEQ 0084
LS$TIMU
L$TIMY

037656

INITIA
INITWR
IN]IT.M
INIT.R

033150 6
057206

033372 6

022146 G

052420
017213
040504
033206 6

KBUF

LOGMSG

LSTCLR

LSAPT
LSAUT

LSCLEA

181-2

000167
033224 G

HCOKED

01773%6

PAGE

033226 G

052412

002762

002036 G
002074 G

023562 G

L$TSTI

L10002

060606
033200 G

MAN.TI

MAP16

G
G
G
G

023564

MAJ.LO
MAJ.US

002032 G
002011
002102
002064
022144

020302

L10010

L$CO

L$DEPO
LSDESC
LSDEVP
LEDISP

002100 6

001244

063314 G

MASK.B
MASK.W
MDHEDR
MEM.S1

G
G
G
G
G

MERGE
MIDI0O
mioN
MiD20
M1D21

027766
002200
002212
002202
002214

INNG
INNSO
INNST
INPUTA
INTEN =
INTFOR
INVAL.
INVINT

002270
002260
002272
053346
000100
046644
037452
046502

LSOVIY
LSEF
LSEFLG
LSEXP1
LSEXP2
LSEXPY
LSHARD
LSHPCP

002114
00¢056
002034
002042
002044
002046
032622
002016

G
G
G
G
G
G
G
G

MID4O
M1D41
MIDSO
MIDST
MIN.IN
MIN.US
MK
=
MODR

002206
002220
002210
002222
033172 G
033174 G
000001
062656 G

022132
002104
022146
002026
033114
002050
00200C
002066
002010
002062
002020
002024

¢
G
G
G
¢
G
G
G
G
G
G
G

MSG.AD
MSG.TY
MUL
NCHECK
NEWPRI
NEXTAR
NONE
NO.CLK
NO.FLA
NO.LPT
NO.PTA
NR
=

033140
033114
062612
027536
062336
056576
017411
037502
056372
053710
037706
000000

INV.SW

IN.SUF
18AU
=
I$CLN =
180U
=
1$HRD =
I$INIT=
1$M0D =
1$MSG =
J$PWR =
I$RPT =
[$SEG =
I1$SRV =

034504

041454
000041
000041
000041
000041
000041
000041
000041
000041
0C004!
000041
000041

19SUB = 000041
18187
000041

L$HPTP

LSHW
L$ICP
LOINIT
LSLADP
LSLAST
LOMREV
LSNAME
LSREPP
LSREV
L$SeC
L$SPCP
LS$SPTP

L$STA
LOTIML

002022 G

002030 6
002014 G

MID30
LADEY

mMP

= 000006

NLMBIN
NUM
A

oau31t

002172
002162
002174
00¢2164
0C2176

0SECT
outT10

003004
002130

ouT2C

002132

JIAPA|

002142
002144

OVWTIRK 002714
0%$APTS= 000000

002112
002070
002072
002112
002040

023566 6
002076 G

= 002000

002204
002216

L$DR
LS$DRCT
L$ORS
L$DRST
LSDTP

L$DU
LSOUT

oP]

QuT30
ouT 3
ouT40
ouT4l

(002250
002262
002252
002264
002254

002266
002256

042172

042216
042214
002000 G
037554

INN10
INNTI
INNZO
INN21
INN30

INN31T
INNGO

NUNITS

047034
(047202

G
G
G
6

002136
002146
002136
002150

ouTS0
ouTH
OVMES
OVWER
OvwPER

002140
002152
017462
017623
023572

0%AU
=
0$BGNR=
0$BGNS=
osou
=
0$GNSW=
0$POIN=
0%PWR =
PARSES

000000
000000
000000
000000
000000
00000
000000
056104

PASS.C
PAT
=
PATLST
PRINTC
PRINTF
PR100 =
PRIOY =
PRI02 =
PRIO3 =
PRI0& =
PRIOS =
PR106 -

033130
000006
(02740
053720
(057226
000000
000040
000100
000140
000200
000240
000300

PAR.LA

(052074

G
G
G
G
G
G
o

PRIO7 - 00030 ¢
PRNTST
Q83610

MACRO v03.01

ROUTINES

TABLE

PRO.CM

PRSTIRK
P1AB.S
PUTCHR
PWR.FA
PIR.FL
PWR.MS
PWR.SA
PUR.UP
P.CLk.

060060

003046
03300 G
052424
063550 G
033204 G
063676
063672
063674
037520

RDMDR = 000010
READ
= 000014
READ.P
060610 G

9-FEB~-79 i9:41:44 PAGE

SERNM?

003104

SERNUM
SETLST
SETUP
SET.MA
SHIFT
SIGN
=
SKCYL
SKER
SKHS
-

030512
026064
0223¢¢
040272
063376 G
000004
025240
01\7717
000020

SPEC.U
SPv.SE
STARTC

0400006
000400
062266 G

READ1
REASON
RECER
RECMS
REGBAC
PEGOMP
REGSAV
REQON.P
REON.T
REV

020003
002764
017643
017919
063300 G
025506
063264 6
033170 G
040062
C17746

5TFLG
STRCHR
STRT.T
STSEC
STSECY
ST.SET
SUNIT.
SUPERY
SUPFLA
SUPV.T

002770
053300
0640064
003122
003120
034716
.040070
035752
033360 6
033532 6

RE.SET
RSADJS

034652
025716

SURF
SURFAC

003012
003050

RE VSK

RSTACK

003016

062540 G

SAVEDO=
SEARCH
SEC(BUF
SECLSY
SECY
SECWRD

035050
054546
00233«
002274
003024
003036

SEGSTA
SERNMY

033414 G
008102

SEEx

SUP.PR

Sv(GBL=

SVCHAN
SVCINS=
SvesuB=:
SVCTAG=
SVCIST=
SWCHAN
SWIT(H
SW.ADR
SW.PTA

= 000006

l. ABS. 0e3720

000000

ERRORS DETECTED:

034470

000000

042406
0600000
177777
000000
17272777
037700
056552
033154 G
037664

000
O

001

VvIRTUAL MEMORY USED:

17720 WORDS

(

70 PAGES!

70 PAGES
DYNAM]( MEMORY AVA]LABLE FOR
CIRLLABIN,(IRLLA-8SVIRT/M, (JRLLA,DOCTOK

181-3

SYS.FY
066432
SSLSYM: 010000
TEM
002750
TEMP
002760
TERM]
06057¢
TERM]
056400
TERMTA
052362
TEST .M
040020
TIMFLG
033350 G
TIM.CO
033202 6
TIM.0P
047006
100.MA
052342
1QU10
002224
Taun
002236
1au20
002226

Tau21
Taudlo
TQu3l
Tau40
TQual
1QusS0
T1QUS1

SEQ 0085
1$C0ODE
=
T$ERCO=
TSERRN=
TSEXCP=
TSHILI-=
T$L0LI=
TSLSYM=
TONEST=
TENSKO-=
TONSK 1=
T$SAVL=
T$SEGL
-

T$SUBN=
T$TAGL:
TS TAQN=

002240
002230
002242
002¢32
002244
002234
002246
TRK(NT
003054
TRKFND
003052
YST.AB
042330
1$7.10
034532
TYPDR = 000004

TSTEMP=
TS$TEST=
T$T1STM=
181518+
TSSCLE=
T80V =
TOEHAR=
TSSHW =
T$$IN]=
TOSMSG
TS$STES-

046632
05625¢4
052634
052216
052654
066462
041474
TSARG(- 000001

UNIT.D
UN].MA
UNLOAD
USER.P
USER.T
vut
VAJWR
VALID.

TYPEC(
TYPEPC
TYPELA
TYPLIN
TYPNUM
TYPSTR
TYP.ER
TY.UNI

052736

T.DR]vV

002130
000062

000322
000000
000007
000000
010000
177777
000000
000004
177777
177777
000000
177777
010014
000000
000001
177777

VAL.LA
VAL.SW

VEC(

= 000002
032720

VECMSG
=
VECT
VEROD
VEROW
WCOUNT
WIDTH
WRITE =
WRITI
WRSEC
XEQDIA
XEQSUB
XEQ.CL
XEQ.(CM
XEQ.IN
XEQ.LA
XEQ.OP
XEQ.PR
XEQ.TE
XTIME
XTIMEN
XTIMST
XXDP.D

XSA;UA:
X$FALS=
X$0FFS=
X$TRUE
=
$B8RFG
$SENDAD
$5AY?2

$SAVS

$SAVSL

$5AYVS

034454
040120

00000¢2
026550
0261064
003034
047402
000012
017756
024054
0624264
062412

042134
037444
061616
035706
041710
035110
041754
061276
062122

061320
037464
000000
000040

000400

000020
040160
062376
063442
063456
063474
063514

[AX AR AN AN A

ASSEMBLY

SYRBOL