Digital PDFs

AH-F126A-MC

May 1979

137 pages

Original

5.9MB

view download

OCR Version

5.1MB

view download

Document:	CZRLKA0 RL11,RLV11 RL01,02 PERF EXER MAY 1979 bw
Order Number:	AH-F126A-MC
Revision:	000
Pages:	137
Original Filename:	CZRLKA0__RL11,RLV11__RL01,02_PERF_EXER__AH-F126A-MC__MAY_1979_bw.pdf

OCR Text

RL11,RLV11

Gzikao

corvmonn 1srs
FICHE 1 OF 1

SN0

IDENTIFICATION

SEQ 0001

®R0ODU(T

(ODE:

AC=F127A=-Mm(

PRODUCY

NAME.

(IRLKAD RLO1/02 PERFORMANCE

CATE

(REATED:

EXERCISER

S=JAN-79

MAINTAINER:

DIAGNGSTIC

ENGINECRING

AUTHOR:

DEKNIS,

CAMPBEL.

*nt INFORMATION IN THIS DOCUMENT IS SUB.ECT TO CHMANGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A (OMMITMENT BY DIGITAL EQUIP-

MENT

CORPORATION.

DIGITAL

SIBILITY FOR ANY ERRORS
Tut

SOF TWARE

DESCRIBED

EQUIPMENT

THAT
IN

MAY

THIS

CORPORATION

APPEAR

DOCUMENT

ASSUMES NO RESPON-

IN THIS MANUAL.
IS

FURNISHED

THE

PUR-

(HASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND (AN
Bt COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY
FOR
uSEDlé?IiU(N SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING
By
L.

DIGITAL EQUIPMENT
OR RELIAB!L]TV OF
DIGITAL,
(OPYRIGHT

(()

CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
11S SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

1979,

DIGITAL

EQUIPMENT

(ORPORATION

PAGE

TABLE

(]

1.1
1.2

1.3
1.4

1.5

2.0
2.1
2.1.1

2.1.2
2.2
2.%
2.%.1
2.%.2
2.4
2.5

l’lb

GENERAL

CONTENTS

INFORMATION

PROGRAM ABSTRA(!Y

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNCSTIC HIERARCHY PREREQUISITES
ASSUMPT]ONS
OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE SIX STEPS OF EXECUTION
SAMPLE RUN-THROUGH
HOW TO CREATE A CHAINABLE FILE

DETAILS OF
TABLE

COMMANDS AND

SYNTAX

COMMAND

VALIDITY

COMMAND SYNTAX
EXTENDED P-TABLE

D]ALOGUE

HARDWARE

SOF TWARE

PARAMETERS

3.0

ERROR

PERFORMANCE

5.0

DEVITIE
TEST

INFORMAT]ON
AND PROGRESS REPORTS

INFORMATION TABLES

SUMMARIES

SEQ 0002

GENERAL

1 A0

"H1S

STRUCTURE OF
DIAGNOSTIC

IMAGE'*

IS A SINGLE

Wt
HAVE
RELEASED

WHEN

PROGRAM

OCCUPIES

14.5Kk

ACT.
XxxDP,

WORDS

COMMAND BELOW FOR DETAILS OF

PROGRAM FROM THE

INCORPORATED
INDEPENDENTLY

THIS DIAGNOSTIC

A PROMPT

TOR MAY ENTER ANY OF
THE

MEMORY

SUPERVISOR

CODING

AND

(COMPATIBLE

JT CAN BE RUN STANDALONE UNDER XXDP, AND
ACT AND APT IN
ALT
MODE
(SEE
‘‘(REATE

STANDPOINT

(HAINING PROCEDURE).

THE

DIAGNOSTIC USER,

INTO 1T A CONTROL MODULE WHICH WILL
AS A DIAGNOSTIC SUPERVISOR.

STARTED AT

ADDRESS 200,

TO THE SUPERVISOR PORTION, WHICH WILL
TIONS ABOUT THE ENVIRONMENT.
THEN IT

DICATED

INFORMATION

WlTH
BOTH
XXDP &ND
(AN BE CHAINED UNDER

(ORE

1
PAGE

CHARACTER

SEVERAL

BUT

LATER BE

CONTROL GOES

FIRST

ASK CERTAIN '*HARD CORE'' QUESWILL ENTER COMMAND MODE,
IN-

(DS B>).

(OMMAND MODE

THE

OPERA-

COMMANDS AS DESCRIBED BELOW.

FOLLOWS

IMMEDJATELY

THE

DIAGNOSTIC

TEST

(OD-

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

DIAGNOSTIC

INFORMAT]ON

THE &LTT/RLVIT RLO1/02 EYERCISER IS A PDP=11
(LSI-11)
BASED
PROGRAM,
IT WiLL RANDOMLY EXERCISE UP 10O 2 CONTROLLERS AND B DRIVES.
AFTER AN INITIAL WRITE OF EACH RLO1/02,
THE
PI(KED AND GIVEN A RANDOM STRING FUNCTION OF:
1.

SEEK,

WRITE,

SEEK,

READ DATA,

I.
4,

ARE

RANDOMLY

WRITE-CHECK

DATA (COMPARE

SEEK, READ HEADERS, RFAd 1 SECTOP W/MO HEADER (OMPARE, GET

STATUS
SEEx,

READ,

READ

SYSTEM REQUIREMENTS

DRIVES

HARDWARE

REQUIREMENTS

SEaQ 0003

PAGE

POP=11/1LSI=11
CONSOLE
T

PROCESSOR WITH

DEVICE

16K OR MORE

MEMORY

(LA30,LA36,vISO,ETC.)

2 RUVI/RLVIT

(ONTROLLER(S)

WITH:

= 8 RLOY

= 8 RLO2 DRIVES WITH RLO2K

DRIVES WITH RLOIK

SECTOR FILE'

CARTRIDGES {ONTAINING

°BAD

CARTRIDGES

°'BAD

CONTAINING

SECTOR FILE'
KW'1P,

LINE

xwllL

(OPTIONAL)

PRINTER

(OPTIONAL)

SOF TWARE REQUIREMENTS

CZRLKAQ RLIT/RLVIY
(FORMERLY

RLOV/RLO2 PERFORMANCE EXERCISER

CZRLEBO)

RELATED DOCUMENTS AND

RLO1 USERS MANUAL
XXDP USERS MANUAL

1.4

(EK=RLO1-UG-PRE)

DIAGNOSTIC HIERARCY
THE

RLO1/02

STANDARDS

SUBSYSTEM

PREREQUISITES

SHOULD HAVE

SUCCESSFULLY

RUN

THE

FOLLOWING

PROGRAMS
-

(VRLAAQ

RLVIT

(IRLHAQ

RLI1/RLVIY

(ZRLGAOD

RLOY

RLT11/RLVIT

CIZRLIAQ
(ZRLJAOD

DISKLESS TEST

(RLV1Y ONLY)

RLO1/02 CONTROLLER TEST
RLO1/02 CONTROLLER TEST

RLO1/02 DRIVE TFST
RLO1/02 DRIVE TEST

(PART 1)
(PART 2)

(PART

ASSUMPT
] ONS

THE HARDWARE OTHER THAN THE
ERLY.
FALSE ERRORS MAY BE
FUNCTION PROPERLY.

(Jau

OPERATING

RLO1 SUBSYSTEM IS ASSUMED TO WORK PROPREPORTED IF THE PROCESSOR, ET(., DO NOT

INSTRUCTIONS

S¢Ea 0004

1
PAGE

HOW TO RUN THIS DJAGNOSTIC

THE

SIX STEPS OF

TH]S DIAGNOSTIC

(EDURES.

TuE

THE

DIAGNOSTIC

HAS

WHEN THIS DIAGNOSTIC

LOADED

AND

STARTED USING NORMAL

COMMAND SHOULD NOT

THE

PROPER

SEQ 0005

EXECUTION

SMOULD BE

START

TRANSFER ADDRESS

STARTED,

(AR R

SPEC]IFY

THE

XXDP PRO-

AN ADDRESS,

(ODED

INTO

FOLLOWING STEPS WILL

STEP

BECAUSE

IT.

OCCUR:

seRERNOERTEYN

A SHORT

SERIES OF

''HARDCORE

QUESTICN

L=C(LK
P=(LK

LPT

(L)
(L)

(L)

(k)

N2
(D)

ASKED:

MEANING

N?
N?
SOHZ (L) N?
LSl (L) N2

MEM

QUESTIONS' WiLL

1S
"

THERE AN L-CLO(K?
ot
P=(LRCK?
IS THE POWER 50 CYCLES
IS MACHINE AN LS]?

(EUROPE)?

IS THERE A LINE PRINTER?

HOW MANY

MEMORY

ARE

THERE?

‘

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY HITTING
(ARRIAGE RETURN.
IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS wiLL

THE

ASKED:

P=CLOCK

FOR EXAMPLE,

NEJTHER P OR L
TYPE

TWO

QUESTION WILL

C(LOCK

(HARACTERS

YOU SAY ''YES'' TO THE

NOT

ARE
&

ANSWERED

SECONDS

L-CLOCK

QUESTION,

ASKED.

YES

THE

OPERATOR wiLL

ASKED

APART,

12228208
N )

STEP 2 »

tRted
RO RY

WHEN

WiLL

YOU HAVE

ISSUE

YOU RESTART

THE

ANSWERED

ALL

THE

HARDCORE

TALKING

PROMPT *'DS=B>''.

XxDP,

YOU WILL

QUESTIONS,

THE

FROM THIS POINT UNTIL
TO

THE

DIAGNOSTIC,

WE WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING
(OMMAND MODE, AS OPPOSED 10O XXDP COMMAND MODE.

DIAGNOSTI]C

TIME WHEN

NOT

XXDP.

IN DIAGNOSTIC

AT THIS POINT YOU WILL ENTER A ''START'' (OMMAND.,
THIS
IS
NOT
THE
SAME
AS THE XXDP °''START'® (OMMAND, WHICH YOU ALREADY ISSUED IN RESFONSE TO THE XXDP DOT PROMPT.
THIS
‘'START'
(OMMAND
(AN
TAKE
A
NJIMBER
OF
SWITCHES
"HESE ARE SET FORTH

AND
FLAGS
(Al
L OPTIONAL) AND
[N
2.3
DETAILS
OF
(OMMANDS

THE DETAILS Of
AND
SYNTAX',

HOWEVER,

THING LICE

IN ORDER

TO USE

TH]S:

THE

PROGRAM,

ALL

YOU NEED

SAY

PAGE

SOME-

SYA/PASS: 1/FLAGS :HOE
THINGS

TC NOTE

ONLY

THE

THe

HERLFIRST

THRTE

(HARACTERS

"DS-B>"" LEVEL NEED 7O BE

THIS

ANY

(OMMAND

TYPED.

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

PASS

C(ONSISTS

RUNNING

UNITS BEING TESTED
PASS

SPECIFIED

THE

FULL

(TMIS WILL BE

IN THE

ABOVE

DIAGNOSTIC

EXPLAINED SHORTLY).

A NUMBER

THE MAIN USEFUL ONES ARE:
LOt

THE
WHY

ALL

ONE

EXAMPLE.

THE "'FLAGS'' SWITCH MAY SPECIFY ANY OF

BUT

AGAINST

FLAGS,

LOOP ON ERROR

HUE

HALT

IER

INHIBIT

HOE FLAG 1S
SHORTLY).

ON ERROR

ERROR PRINTOUT

SPECIFIED

THE

ABOVE

EXAMPLE

(WE'LL

SEE

fTeRSTRNOIROTSR

v STEP 3 »
teRRNORRNREYY

WHEN YOU HAVE

TYPED

TYPING

NUMBER OF

BACK
A

WORD

DEviCE

WITW

THE

IN A ''START'' COMMAND,

THE

WARNING HERE:

THE

DIAGNOSTIC WitLL

(OME

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

THE

DJAGNOSTIC.

CONTROLLERS.

YOU WISH

NUMBER

TEST.

UNITS

FOR EXAMPLE,

DEPENDS

THE

DIAGNOSTIC

TARCET

IS DI~

RECTED AT A DISK DRIVE, THEN THE
NUMBER
OF
UNITS
WOULD
BE
NUMBER
OF
DRIVES TO BE TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
RECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF
UN]TS
WwOULD

THE
DIBL

ThE

(AN

NUMBER

ALWAYS BE

DETERMINED BY

BEGINNING OF
STATEMENT

THE

SOURCE

SHOULD BE

THE

TARGEY

INSPECTING

CODE.

DEVICE

THE

ONE OF
TYPE

DEVICE

DIAGNOSTIC

''HEADER'' STATEMENT

THE OPERANDS OfF
THE

DIAGNOSTIC.

NEAR

THE

THIS ''HEADER"

SeEa 0006

PAGE

trRARRRTRRROY

WHEN YOu HAVE TYPED
NOSTIC Witl ASK YOU
QUESTIONS ARE USED

$€g¢EBES".

STEF 4

LA 2SR

IN THE NUMBER OF UNITS 0 BE TESTED, THE
DIAGTHE "'HARDWARE QUESTIONS''.
THE ANSWERS TO THESE
10O
BUILD
TABLES
IN
CORE,
C(ALLED
‘"HARDWARE

ONE HARDWARE P-TABLE WILL BE BLILT

THERE ARE SEVERAL HARDWARE QUEST]ONS
POSED N TIMES, WHERE N IS THE NUMBER
THIS

]

REPRESENTS

NEW

FOR EACH UNIT

AND THE ENTIRE
OF UNITS,

PHILOSOPHY

DEVICE.

TO BE

SERIES wiLL

DIAGNOSTIC

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

STEP 5

TeeENERNRREN

AFTER

YOU

HAVE

ALL
THE
ASKED THE

ANSWERED

ALL

THE

HARDWARE

QUESTIONS

(SEC

2.5)

UNITS,
YOU
WILL BE ASKED '‘CHANGE SW?'' IF YUU WANT
SOFTWARE QUESTIONS THAT DETERMINE THE
BEHAVIOR
OF

FOR

T0 BE
THIS

PROGRAM,
TYPE
“v''.
IF YOU WANT TO TAKE ALL THE DEFAULTS 10 THESE
QUESTIONS, TYPE ''N''.
IF
YOU
TYPE
°''v""
YOU
WILL
BE
ASKED
1THE
SOF TWARE
QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOf TWARE P-TABLE IN THE PROGRAM,
THE SERIES OF QUESTIONS
WIlLL
BE
ASKED

JUST

ONCE,

REGARDLESS

THE

NUMBER

UNITS

TO BE

TESTED.

reEeEPRERRRYE

STEP 6

NERENREANEN

AFTER

YOU HAVE

BEGIN

ANSWERED

TO EXECUTE

THE

SOFTWARE

HARDWARE

TEST

QUESTIONS,

CODF.

THE

THERE

DIAGNOSTIC

ARE

SEVERAL

WILL

THINGS

THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS
EN(OUNTERED
AND ALSO ON WHAT SWIT(CH VALUES YOU SELECTED ON THE START
(OMMAND.
CONSIDER THE POSSIBILITIES:

NO ERROR 1S ENCOUNTERED,

PLY
EXECUTE
(OMMAND MODE

THEN THE

THE
DESIRED
NUMBER OF
(PROMPT DS-B>).

DIAGNOSTIC WILL
PASSES

SIM-

AND RETURN

SEQ 0007

1
PAGE 8

AN ERRCP

PENS,

HOE
THE

1S ENCOUNTERED,

DEPENDING ON

SET:
THE ERROR
DIAGNOSTIC WILL

THE

THEN ONE

SETTINGS OF

THE

THREE
HOE

WILL BE REPORTED ON
THE
RETURN TO COMMAND MODE.

LOE SET:
TWE DJAGNOSTIC WitL LOOP ENDLESSLY
Of CODE THAT DETECTED THE ERROR.
NEITHER HOE
THE

NOR

CONSOLE

LOE

AND

THINGS

AND LOE

SET:

THE

NORMAL

ERROR WILL

EXECUTION

(ONSOLE

ON THE

WIIL

HAP-

FLAGS.

AND

BLOCK

REPORTED

RESUME

ON
NO

ERROR HAD OCCURED.

SAMPLE

RUN=-THROUGH

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

;gflsglggLE

TO RUN

THE

DIAGNOSTIC.

REQUESTED PASS WiLL BE

NO ERRORS

EXECUTED AND

ARE

THE

ENCOUNTERED,

PROMPT

WiLL BE

-1SSUED.

AN ERROR

1S ENCOUNTERED,

THE

ERROR

WILL

REPORTED

PROMPT
W]lLL
BE
REISSUED
(BECAUSE THE HOE FLAG IS
igi?l THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE
N:

ISSUE

ANOTHER °''START'' (OMMAND

STEPS 2,

3, 4,

AND 6 AGAIN)

ISSUE A ''RESTART'' (OMMAND

THAT

THE

HARDWARE

(SAME AS

QUEST]ONS

ARE

GOING

START

NOT

ASKED)

THE

THRU

ALL

(OMMAND

EXCEPT

ISSUE A "CONTINUE'® COMMAND (EXECUTION WILL RESUME
AT
THE
BEGINNING
OF
THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS

CONSIST

ERROR HALT

THE

(THUS

AND

SET).
AT THIS
PROGRAM
GOING

A NUMBER

OCCURED.

THESE)

THAT

WAS

IN WHEN

THE

NO QUESTIONS ASKED.

JSSUE A ''PROCEED'' COMMAND:
EXECUTION WILL R E SUME
AT
THE
INSTRUCTION
FOLLOWING THE ERROR REPORT (THI S ) A SPECIAL
COMMAND AND CAN BE ]SSUED ONLY AT A HALT

MOSY

TYPICAL

DIFFERENT

THING

FLAG SETTINGS.

DO HERE

PROBABLY

PRO/FLAGS: 1ER:LOE :HOE=0

ISSUE

THE

YOU WOULD WANT

PROCEED,

T0 SAvY:

BUT

WlTH

SeEQ 0008

PAGE

THIS WILL

STUDY

THE

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

RESUME

THE

FER

(INWIBIT

ERRGCR

PRINTOUT)

FLAG

THE HOE FLAG

EXECUTION AT

ERROR Ok SCOPE

INSTRUCTION AFTER

ERROR REPORT

OR WHATEVER.

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT (ONTROL/C.
THIS WILL TAKE YOU
OuY
OF
THE LOOP AND PUT YOU BACK INTO COMMAND MNDE.
YOU NOW HAVE
THREE

(HOICES:

START

RESTART

CONTINUE

LET'S SAY

YOU'VE REPAIRED THE

RUNNING THE

DIAGNOSTIC.

DEFECT

YOU WOULD

FOUND ABOVE

AND WANT

TO FINISH

TYPE

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

RESTORE

THE

FLAGS

THEIR

ORIGINAL

VALUES

AND RESUME

ECUTION
AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN.
IF
ERROR DCES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU 10

TwO

ERROR OR

END OF

CHOICES:

TO END

PASS

STARI

RESTART

PASS.

YOU WANT

TO RUN THE

YOU WwOULD CHOOSE ONE, DEPENDING
HARDWARE QUESTIONS AGAIN.,

DJAGNOSTIC

WHETHER

AGAIN,

YOU WANTED

YOU

TO ANSWER

EX-

THE
THE

HAVE

THE

SeQ 0009

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

ABOVE

DIALOGUE

MIGHT

LOOK

WHOM

ENTERED:

CZRLKA

CIRLK
L=CLK

LSl
LPT

MEM

D
(L)

(L) N ?

(L) N 2
(L) N ?

(X)

(D)

D.O

]
D

DS=-R>STA/PASS: 1/FLAGS : HOL

D.0

0.0

UNIT 1
RLTT (L) v ?
BUS ADDRESS (0)

D
0.0
0.0

UNITS

(D)

174400 °?

VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLO1
B8R LEVEL (0) S ?
UNIT 2
RLIYT

(L)

0,0
0.0
D,0
D,0

0,0

BUS ADDRESS (0, ‘74400 ?
VECTOKk (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLOY (L) ? N
BR LEVEL (0) 5 ?
(HANGE

(L)

0.0
D.O
0.0
D,0
D.O

? N

D.,O

(ZRLK HRD ERR 00004
ERR HLT

TST 003 SuB 002 PC:004130

DS=B>PRO/FLAGS: I1ER:LOE :HOE=0
R

THIS

POINT

ERROR W]THOUT
THE

DIAGNOSTIC

0.0
R

PRINTING ANYTHING,

ERROR UNTIL

setededed

YHE

(N=RLO2)

YOU HAVE

LOCATED

LOOPING ON

)

THE

YOU CAN SCOPE

IT,

THEN *C

OUT

dttdsR RO RERARREROSOSARRRNROUROYCSROORROTCSTRY

1
PAGE

THIS

SEQ 0010

B
—

“C

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

0.0

(HANGE

0.0

CIRLK
*C

EOP

(1)

? N

DS-B>RESTART/PASS:1

0.0

CHANGE

0.0

PAGE

(L)

? N

THE

DIAGNOSTIC

IN CHAIN MODE.

"BIC"'.

WHAT

THERE

AS RECEIVED

THAT

FROM RELEASE

1S WHY

IT CONSISTS OF
JSSUED
WHERE

PROMPT DS-B>.
THE QUESTIONS
CAN

HERE

.R UPD?

RESTART:
*(LR

SAMPLE

THE

PROGRAM AS

DIALOGUE

XXXXXX

*LOAD DIAG.BIN

XFER:200

THE

NEW EXTENSION °*BIC',
A

*START 200
L=CLK (L) N

CORE:0,60602
?

RUN

TO (REATE A (HAINABLE PROGRAM FROM

THIS COMMAND CAUSES
AND ANSWERS AND THEN

DUMP

WITH THE

RUNNING THE PROGRAM WITH THE SPECIAL
COMMAND
‘‘CCI"
YOU
WOULD
NORMALLY
JSSUE
A START COMMAND (TO THE

DINARILY BEGIN EXECUTION OF
YOU

CANNOT

BEARS THE EXTENSION "'BIN'' INSTEAD Of

IS A WAY, HOWEVER,

YOU'VE GOT.

ENGINEERING

THE DIAGNOSTIC TO
GO
TO HALT, JUST WHERE 11

HARDWARE
IT

SITS

ACCOMPLISH

TEST
IN

(ODE.

CORE

THIS:

AT
THE

THRU
ALL
WwOULD OR-

THIS

POINT

LOAD MEDIUM,

Sea 00N

—

DS-B8>(CCl
UNITS (D)

(HANGE

PTAB END:

PAGE

? &

(L,

2 N

60632

se0RCROROESORRESORORCECRRROTCOPTOROSOROEORCERARROPRORTRTRTY

*AT THIS POINT THE MACHINE MHALTS ANDe
*YOU MUST RESTART AT ADDRESS
XXXXXXe
CTCRCECRRSRRRNORCEORORPORCESORIOORPOROCEPRORROGROETROROCORTRTYE

*H](ORE 60632

CORE:
0,6063¢
*DUMP DKO: DIAG.BIC
THE RESULT OF DOING
FILE CONTAINING THE

THIS

XXDP

(OMMAND

R DIAG.BIC

AND

THE

ANSWERS

DIAGNOSTIC
THAT

WiLL

YOU

THAT

EXECUTE

GAVE

YOU

(AN

WITHOUT

WHEN

YOU

NOW

BUILD

MANUAL

DID

THE

XxXDP

(HAIN

INTERVENTION,

USING

(C1

COMMAND.

SEQ 0012

N
PAGE

2.5

DETAILS OF

2.%. \

TABLE

(OMMANDS AND SYNTAX

(OMMAND VALIDITY

THERE ARE FOULR WAYS OF ENTERING DJAGNOSTIC
FERENY SUBSETS OF THE DIAG COMMAND SET ARE
HOW ENTERED

COMMAND MODE,
AND
DIFAVAILABLE WITH EACH:
LEGAL

OPERATOR

ENTERED

'RUN DIAG'®

COMMANDS

START
PRINT
DISPLAY
FLAGS

IFLAGS

D TAGNOSTIC HAS FINISHED ALL
l 1S REQUESTED PASSES

STARY

RESTART
PRINT

DISPLAY
FLAGS

LFLAGS

OPERATOR

INTERRUPTED

DIAGNOSTIC

WITH

THE

START

CTRL/C

RESTART
CONTINUE

DISPLAY
FLAGS

LFLAGS
4.

AN ERROR

WAS

ENCOUNTERED

START

WITH

HOE

FLAG SET

RESTART
CONT INUE
PROCEED
PRINT
DISPLAY
FLAGS

THE

SET

IFLAGS

2.3. 2

COMMAND SYNTAX

PSSR PCRAESRRNRRE RN ERRRCENSRROCERRORERNCEROECETROEERNSEOEORROCSOSEROOSOECROERERNOETORTY

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

THE

CIAGNOSTIC

SCECIFIED.

MAY

THE

CORE

1S EXECUTED

ISSUED WHEN DIAGNOST]C

FOLLOWING:

JN ACCORDANCE

MESSAGE ''# UNJTS?'' IS PRINTED,
A)

COMMAND MODE

WITH

THE

SWITCHES

THE START COMMAND

HAS BEEN ENTERED

VIA ONE

OPERATOR TYPED ''RUN DIAGNOSTIC' B) DIAGNOSTIC

SEQ 0013

FINISHED EXECUTING ()

OPERATOR

UNITS?",

ENTERED

ERROR WAS ENCOUNTERED WiTH HOE

(ONTROL/(C.

THE HARDWARE DIALOGUE

THE
QUESTIONS
'"CHANGE
BECOME THE NEW DEFAULTS.

PROGRAM

THE

AFTER

IN ORDER

SWITCH

INITIATED.

FLAG

SET

OPERATOR RESPONDS

WHEN IT

10 ''#

IS COMPLETED,

Sw?'' 1S ISSUED, AND THE ANSWERS, IF GIVEN,
THEREFORE 1T 1S NECESSARY TO
RELOAD
THE

TO RETURN

ARGUMENTS

THE

PAGE

ARE

THE

LOAD

DEFAULTS.

FOLLOWS:

“TEST=LISTTM 1S A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)
OR
RANGES
OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS 10 BE EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE
NUMBERS
RANGE
FROM
1
10 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

SPECIFICATION.

THE

DEFAULT

TO EXE-

TESTS.

“'PASS=CNT'' IS A DECIMAL NUMBER

INDICATING

THE

DESIRED

NUMBER

PASSES.
A PASS 1S DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE
DEFAULT
IS

NON-ENDING
TEST
EXECUTION.
Of THE FORM <FLAG>, <FLAG=1>,
~HERE

<FLAG> HAS ONE

HOE

HALT

ON ERROR,

ERROR
LOE

THE

‘''FLAG=LIST'' 1S A SEQUENCE OF
OR
<FLAG=0>,
SEPARATED
BY

FOLLOWING

CAUSING

COMMAND MODE

TO BE

LOOP ON ERROR,

CAUSING THE

DIAGNOSTIC

WITHIN
THE SMALLEST DEFINED BLOCK OF
TEST, OR TEST) CONTAINING THE ERROR

INHIBIT

IBE

INMIBIT BASIC ERROR REPORTS

IXE

INHIB]T

PRI

DIRECT

PNT

BOE

BELL ON ERROR

UAM RUN

ENTEKED

WHEN

1S ENCOUNTERED

IER

ISR

VALUES:

ELEMENTS
C(OLONS,

CONTINUOUSLY

(SEGMENT,

SUB-

ERROR REPORTING

EXTENDED ERROR REPORTS
ALL MESSAGES TO A LINE

NUMBER OF

1EST

STATISTICAL

IDU INHIBIT DROPPING OF

PRINTER

BEING EXECUTED

N UNATTENDED MODE,

INHIBIT

TO LOOP

CODING

BYPASSING MANUAL

REPORTS

UNITS BY DIAGNOSTIC

INTERVENTION TESTS

SEQ 0014

THE

FLAGS NAMED OR

EQUATED

ARE

SET,

THOSE

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

"EOP=INCR'" 1S A DECIMAL NUMBER
PASSES)

DEFAULT
LA AA A

IS DESIRED

1S AT

THE

THAT

END OF

THE

EVERY

EQUATED

THE

RSl

R R

ARE

(IN

PASS MESSAGE

PASS.

FLAGS SWITCH

INDICATING HOW OFTEN
END

PAGE

TERMS

PRINTED.

RN E

SRR R

SEQ 0015

THE

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

UNITS:UNIT=-L]ST
LA AA AR

THE

SAS

ARl

DIAGNOSTIC

SPECIFIED.
ONES IN CORE

CORE

HOWEVER,
ARE USED.

NEW

NSl

EXECUTED

CONTROL/C.

THE

SWITCH

DJAGNOSTIC

ARGUMENTS

ARE

A R

R E R

IS
IN

THE

R E R

!N ACCORDANCE

‘"'P-TABLES'' ARE

THE QUESTION “CHANGE SW?'' 1S ASKED
NEW
DEFAULTS.
THE COMMAND MAY BE

ENTE:SD CVlA

NOT

RN E R

WITH

BUILT.

THE

SWITCHES

[INSTEAD,

THE

AND THE ANSWERS GIVEN BECOME THE
]SSUED WHEN COMAND MODE HAS BEEN

FINISHED
START

HALT

COMMAND

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.
THE
UNITS
SPEC]FIED
MUST NOT HAVE BEEN DROPPED BY THE OPERATOR DROP (OMMAND.
THE UNIT-LIST DEFAULTS TO ''ALL THAT HAVE
NOT
BEEN

DRCPPED BY OPERATOR COMMAND''.
LASTS UNTIL THE
RESET TO "ALL’")

| A2

NEXT
START
OR THE NEXT

THE EFFECT OF

(WHERE
RESTART,

THE UNIT=-LIST

AUTOMATICALLY

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

RS RAAAS

SRR

gaRal

(ONCTINUE) /PASS : <PASS=CNT/FLAGS
: <FLAG=LIST>
TS AP RO R

AR RPN R NN N ENRNRNEANNENNORRPERNOOROESY

(OMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT
ON
ERROR
OR
A
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING Of
THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C
TOOK
PLACE.
SOF TWARE DJALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE
PARAMETERS MAY NOT BE CHANGED.

]

THE

SWITCH

ARGUMENTS

ARE

THE

START

DEFALT FOR PASS=CNT 1S THE
PREVIOUS START OR RESTART

UNSFECIFIED FLAG SETTINGS ARE

PAGE

COMMAND EXCEPT:

UNSATISFIED PASS=CNT

FROM

THE

EF-

UNCHANGED

teveeRRECEROSRORROSROCRRORCORRRORATRTY

PROCCEED)
/FLAGS: <FLAG=L]IST>
teteteERROERRORORORTROYRERORRRORRND

COMMAND MODE MUST

HAVE

BEEN ENTERED VIA A HALT

ON ERROR,

FECT OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING
THE ERROR CALL.
NEITHER HARDWARE NOR SOf TWARE
PARAMETERS
MAY
BE
ALTERED.
THE

SWITCH

ARGUMENTS

ARE

UNSPECIFIED

(AR

THE

FLAG

ARl

SAME

SETTINGS

RdRl

THE

ARE

START

COMMAND

EXCEPT:

UNCHANGED

dRss

XEXE SRR

ERE

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

PR RS

THE

DIAGNOST!C

R R RN NN A RO RN NP A RN

EXECUTES

HARDWARE
TEST
(ODE.
THE MEDIUM WITH A BIC
THE BIC FILE MUST
RUN
MANUALLY
OR

RN ORI NNOEREOSEOERSIOERNERAROROECEROETY

THRU ALL
NOW

THE

OPERATOR
OPERATOR

THE

PRE-GENERATED

ANSWERS

1T WILL BEHAVE

TO OPERATOR

OR W]TH A ''RESTART'' (IN WHICH CASE

IN (HAIN MODE,

ANSWERS WiLL BE

RUN

FROM
THE
xXDP
NOT BE 1SSUED.
ANY

SWITCHES

AND HALTS
THE

CORE

THE

IMAGE

BE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS
IN CHAIN MODE.
IF RUN MANUALLY IT CAN BE INVOKED

NORED)
TOR

DUMP

EXTENSION.

EITHER WITH A ''START' (IN WHICH CASE
FILE:

DIALOGUE
CAN

JUSED).

AUTOMATI(

EXECUTION WILL

COMMAND ‘‘.R DIAG''.

SPECIFIED

THE

CC]

THE

PRE-GENERATED
COMMENCE

COMMAND PROMPT

COMMAND WILL

THE

QUESTIONS WwiLL

CARRY

ON A FuLL

SIZED DIAGNOSTIC

(14.5¢

|G-

OPERA-

IMMEDIATELY

OVER

WORDS),

BIN

''DS-B>"" WILL

WHEN

BIC FILE I5 RUN IN (HAIN MODE (EXCEPT THAT UAM |S ALWAYS SET
BUT WILL NOT CARRY OVER WHEN [T IS RUN MANUALLY.
TO DO A (C]

THE

THERE)
MACHINE

SIZ€ LARGER THAN 16K IS REQUIRED.
THE EXACT SIZE NEEDED DEPENDS ON
WHICHM UTICiTY IS USED TO EXECUTE THE DIAGNOSTIC AT (CI1 TIME,

SEQ 0016

PAGE

DRO(P)/UNLTS:UN
Y= |ST
TWE

UNITS

SPEL,r J1ED

ARE

BACK
OR UNMTi_. A START
BY A PROCEED.
THERE

DROPPED

COMMAND

IS ALSO A 'DROP'* MACRO

FROM

TESTING UNTIL

]S GIVEN.

THEY

AREL

ADDED

DIAGNOSTIC,

WHICH

A DROP (ANNCT BE

INTERNAL

BACK

MUST

THE

GIVES
TWE
FACILITY
OF
AUTO-DROPPING.
THE DURATION OF
DROP, MOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART,

FOLLOWED

A PROGRAM

ceeveoCROOROOSROPRROCROY

ADD/UNITS:UN]T-LIST

THE

UNITS

SPECIFIED

ARE

ADDED

OROPPED
BY
THt DROP (OMMAND)
Bt FOLLOWED BY A PROCEED.

(THEY

TD THE

TEST

MAVE

BEEN

SEQUENCE.

PREVIOUSLY

AN ADD

CANNOT

PR](NT)
eecseRTOTE

ALL

STATISTICS

THE

ISR

TABLES

CINMIBIT

ACCUMULATED

STATISTICAL

THE

REPORTING)

DIAGNOSTIC

FLAG

ARE

PRINTED.

CLEARED.

ceccdotdeotRRO
e ROROOERORTRRREY

DIS(PLAY)/UNJTS:<UN]T=L]IST>
seooeeROORERRCERSORRRRESRORRRTRY

THE
TME

B8Y

HARDWARE P-TABLES FOR ALL
FORMAT IN WHICH THEY WERE

UNITS UNDER TES( ARE PRINTED
ENTERED.
ANY UNITS THAT WERE

THE OPERATOR °‘‘DROP'' (OMMAND ARE

SO DESIGNATED.

eeodoee

FLACGS)

"ME

CURRENT

SETTINGS

teveneve

JFL (AGS)
ALL

FLAGS ARE

C(LEARED.

ALL

FLAGS

ARE

PRINTED.

OUT
IN
DROPPED

SEQ 0017

]

EXTENDED P-TABLE
Ttk

FULL

CAPABILITY

HARDWARE

WHAT

HAPPEMS

DIALOGUE

ARE

CORE

THE

BETWEEN

P=-TABLE

THE

FORMAT,

AND

HARDWARE

THERE

PARAMETER

FORMAT,

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

VALUES MAY
REPRESENT

STRING 6,7.8,9,10

INCREMENT OF

2).

ADDRESSES,

NOW LET

SET
ARE

OF
FIiVvE

Tmi

SEE

SAMPLE

HOW WE

FOLLOWING
TEM
HAS
(ON

RANGE

(OULD

USE

# UNITS

UNIT

RL1T

IN THE

DRIVE

SECOND

(D)

CONTROLLER):

TYPE

= RLOV

(L)

BR LEVEL
UNIT

SLOTS

IN THE

INTERVENING VALUES MAY
NAMED VALUE.

TRANSLATES

THESE

1).

THE

CAPABILITIES

THE

VALUES

STRING 6,8,10

(CONSTRUCT

IS THE DIALOGUE FOR THIS 8 RLOX DRIVE SYSTEM.,
TWwO (2) RL11 TYPE CONTROLLERS ALL 10 BE SET AT

(L)

THE

(AN

DIALOGUE).

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

RLTT

(AN INCREMENT

THE FIRST & DRIVES ARE RI01'S AND THE

THE

AND

THE P-TABLES

(ORRESPONDENCE

P-TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE
(5) HARDWARE PARAMETERS FOR EACH (S SLOTS IN THE
P-TABLE,

S HARDWARE QUESTIONS

THE

BE GIVEN AS A RANGE (6-10 FOR EXAMPLE).
1t
PURE NUMER]CAL DATA, THIS SAMPLE RANGE TRAN-

LATES TO THE
ARE

ALL OF

ONE-TO-ONE

QUESTIONS

(WITH THE NUMBER N),

IS ALLOCATED FUR °''N'" P-TABLES.

SAME

REVEALED

INTERNAILLY,

AS SOON AS THE QUESTION ''# UNITS?'" ]S ANSWERED

SPACE

DIALOGUE

THE

FOLLOWING DISCUSSION OF

PAGE

(0)

5 ?

(L)

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ? 164
DRIVE (0) 0 ? 0-3
DRIVF TYPE = RLOY
B8R LEVEL (O) 5 ?

(L)

175400
? N

1TMIS
SYS"BR LLVEL"

LAST & DRIVES ARE

RL02'S

Sea 0018

THE

FIRST

TIME

USED FOR THE

THRU

THE

TROLLER (QUESTION #2),
#3),
THE
DRIVE
TYPE

#6).

THE

P-TABLE

CONTROLLER TYPE

ACTUAL

UNIT

QUESTIONS

THE

SECOND

THt

TYPE

TIME

THRU

NUMBERS

CHANGE

THE

P-TABLE

SECOND CONTROLLER),

CONTROLLER.

THE

IN (SR ADDRESS

DEFAULT

VALUES

(SR ADDRESS OF

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

RLO1'S

SIGNED O THRUL 3 FOR THE FIRST & P-TABLE
ON

THE

(QUESTION #1),

THE

QUESTIONS

FIRST

THE

RLO2

(FOR

THE

ANSWERED

CONTROLLER

CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164

THE

ARE

(ON-

(QUESTION
(QUESTION

QUESTION #4

WAS

AS-

RLO2 ASSIGNMEN’

QUESTION DEFAULTED

SECOND QUESTION WAS

FOR

5LOTS.

PAGE

(1756400).

TO ''RLIT"

REFLECT

QUESTION

THE

#3.

THE

SECOND

THE

RLO2
TEST
UNIT NUMBERS WERE ASSIGNED VALUES O 70 3 IN QUESTION #¢
AND THE DRIVE TYPE WAS SET FOR RLOZ2'S FOR THE REMAINING & UNITS
[N
QUESTION
#5.
THE LAST QUESTION WAS DEFAULTED USING TME ''BR LEVEL"
FROM

THE

F]RST

PASS,

5eQ 0019

HARDWARE

THE

FOLLOWING

VALUE

LOCATED

THAT

WiLL

RLIT

(L)

QUESTIONS

TO THE

WILL

LEFT

TAKEN ON A

(0)

174400?

ANSWER WITH

THE

BUS

(0)

DRIVE

(0)

ANSWFR

W]TH

ASKED

QUESTION MARK

CARRJAGE

SYART

THE

(OMMAND.

DEFAULT

THE

VALUE

RETURN RESPONCE.

RL11

ADDRESS OF

CONTROLLER,

THE

NO(N)

YOU

HAVE

CONTROLLER.

THE

INTERRUPT

VECTOR

THE

DRIVE(S)

CONNECTED

THE

CONTROLLER.

TYPE

ANSWER NO

ANSWER

THE

160?

ANSWER WITH

BR LEVEL

Y¥?

BUS ADDRESS

DRIVE

PARAMETERS

ANSWER YES(Y) ]F YOU HAVE
RLVI1 CONTROLLER,

vECTOR

PAGE

= RLO1
(N)

(C)

WITH

THE

(L)

THE

CONTROLLER

THE

CONTROLLER.

DRIVE

INTERRUPT

SOF TWARE

AN RLO?

PRIORITY

PARAMETERS

THE

FOLLOWING

QUESTIONS

ARE

C(ONTINUE.

THEY

ALLOW

“'CHANGE

S.w.

ASKED

I1F

REQUESTED

FLEXABILITY

IN THE

WAY

START,

RESTART,

THE PROGRAM BE-

HAVES.
THE SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE
WAY
IT
RUNS.
THE PARAMETERS (AN BE MODJFIED ON A START, RESTART,
OR (ONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUEST]ION:

YES

WiTH
MARK.,

ANSWER

WILL

ASK

THE

FOLLOWING

SOF TWARE

PARAMETER

QUESTIONS,

THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULY IS
TAKEN

ON A <(R>,
(ONTROL
START THE TEST,

"RETRY LMT

(D)

TH]S

NUMBER

THE

(*7)

wilLL

TIMES

THE

DEFAULT

ALL

REMAINING QUESIIONS AND

2%
PROGRAM W]LL

ATTEMPT

(OMMAND

Bf-

SEQ 0020

——

FORE

Esaggf

QUITS AND REPORTS A HARD ERROR.

THE

RETRY

LIMIT

IS EXCEEDED

WILL

THE

RETRY

AND

PAGE

IS SUCCESSFUL

LOG

SOFfT

LIMITS O - 65,535
"'SEek RETRY LMY
THIS

THE

CYLINDER

FOR

(D)

NUMBER

2"
RETRYS

ON A M]S-SEEX.,

THAT

CYLINDER BUT

THAT

AFTcR RETRY

(ONTINUE

ATTEMPTIED

IS EXHAUSTED,

WwiTH A NEW

SEEXK

WILL NOT

TRY

(RC

CYLIMDER.

LIMITS 0 - 65,535
"DATA DMP ON DCK ERR
GIVES

ERROR.

THE

ABILITY

THE

TO SEE

RESULTS OF

ONE OF

TIRE

THIS

ERR
1S

THE

BUFFER

LIMITS
OF

SECTOR BUFFER

PRINTOUT

ONLY THOSE WORDS OF THE
WITH WHAT WAS EXPECTED.

(L)

DUMPED

Tmk

(D)

NUMBER

1ST

ARE

HAD

WERE

BAD

ARE

ONE OfF

SECTOR THAT

TWO WORDS

THAT

IS BAD

DATA

TwO POSSIBILTIES.

(USED TO KEY)

PRINTED

THE

EN-

DUMPED.

¥ OR N
128

MISCOMPARES

THAT

WILL

PRINTED.

LIMITS 0 - 128
"'TIME

BETW REPORTS

TH]IS

DRIVES
ALOG.

THE

(MIN)

INTERNAL

A CLOCK

(D)

BETWEEN

]S PRESENT

LIMITS

THE

ABILITY

ERROR

2*'

AUTOMATIC

STATISTIC

ALL

INITIAL

DI-

STOP TESTING ON A DRIVE ONCE

ONE

AND WAS ANSWERED

REPORTS

THE

- 65,535

‘DROP DR ON ERR LMTS REACHED
GIVES THE

120

(L)

TO AUTOMAT]CALLY

LIMITS HAVE

BEEN EXCEEDED

(SEEX,

DRIVE,

WARD,

JF THE ANSWER IS YES THEN THE
FOLLOWING
FOUR
QUESTIONS
ASKED, IF NO THEN THE NEXT QUESTION wlLL BE 2.3.13.11,

SOFT),

wlLL

SEQ 0021

LIMITS

"'WRD ERR LMT

(D)

PAGE

¥ OR N

3 2"

THIS 1S THE LIMIT OF HARD ERRORS THAT A DRIVE WiLL BE
DROPPED
A HARD ERROR ]S ONE ON WHICH THE RETRY HAS BEEN EXHAUSTED.

LIMITS
"'SF1

ERR LMT

(D)

10 ?"

A SOFT ERROR IS AN ERROR ON AN OPERATION
THE RETRY LIMIT,

LIMITS
"'DATA MISCOMPARE
IS

THE

LIMIT

DROPPED ON.

‘'SK ERR LMY

(D)

THIS

LIMIT

THE

THAT

WAS

DROPPED~ ON.

SUCCESSFUL

WITHIN

- 65,535
(D)

LIMITS

ON.

- 65,535

THIS 1S THE LIMIT OF SOFT ERRORS THAT A DRIVE WILL BE

THIS

10 ?**

CORE

M]SCOMPARES

THAT

THE

DRIVE

WwlLL

= 65,535

3
OF

MIS-SEEX

AND

TRACKING

ERRORS

THAT

A DRIVE

WiLL

DROPPED

ON.

DROPPED.

LiMITS
‘DR ERR LT

(D)

THIS

LIMIT

THE

- 65,535

DRIVE

LIMITS

ERRORS

TAIN

THE

ABILITY

DRIVE

(L)

(SEEK,

BITS

THE

TWO QUESTIONS

LIMITS Y OR N

WitL

THAT

TRANSFERRED).

DROPPED ONLY WHEN BOTH HAVE BEEN EXCEEDED.,
THEN

N ?''

10 STOP TESTING ON A DRIVE

OPERATION LIMITS

WliLL

= 05,538

“'DROP DR ON OPER LMTS REACHED
GIVES

THAT

ASKeD.

THE

HAS EXCEEDED
THE

DRIVE

ANSWER

(ER-

wliLL

YES

SEa 0022

"DATA XFER LMT

(=10(10))

THIS IS THE LIMIT
Tk DRIVE wlLL BE

(D)

(«10(3))

(D)

10000 ?*°

THIS

THE

SEEXK

witL BE

LIMIT

DO YOU WANT
THE

OPERATIONS

DROPPED.

LIMITS

NORMAL

TRIDGE,

AND BOTH

T0O CHANGE

OPERATION

- 65,535
SEEK,

1280 WORDS.

TO SFEK

THE

NORMAL

THE NEXT 8 PARAMETERS WILL

ANY (OgggGUOUS
TRANSF
.

YES ANSWER WILL

“'STIPULATE
THE

OfF

SECTION OF

MEMORY

THE

NORMALLY

(<28K)

BUFFER

LIMITS

REPRESENTS

(D)

WHICH

THE

DRIVE

ENTIRE

C(AR-

AND

TRANSFER

ALLOW THE

THE

(L)

N ?*

THE

(RLO2),

RANDOM

TO CONFINE

AND

CONTROL

SECTORS 0 -

BEIWEEN

THE

REPRESENTS

(D)

THE

USING

ALL

TWO

QUESTIONS.

N ?"
THE

TRANSFtR

SIZE

THIS QUESTION |F

VALUES

GIVEN

ANSWERED YES WILL

¥ OR N

MAXIMUM AMOUNT

THE

TESTING 10

SIZE

WORDS

TO READ OR WRITE

WORDS

TO READ OR

LIMITS 3 - 5120
‘MIN XFER

AND

THE

2560 ?*°

THE

13 QUEST]ONS.

MAXIMIZE

THOSE

511,

USER

CARTRIDGE

(«10(3))

(RLO1)

AVAILABLE.

QUESTION IS 2.3.13.19.

‘MAX XFER

THE

R/W XFER SIZE

PROGRAM WILL

RESTRICT

ASK

(+10(3))

R/W PARAMETERS

CYLINDERS O - 255.

SURFACES.

(*10(10))

- 65,535

'Sk LMT
IS

2
PAGE 23

25000 ?*

OF COMRINEN BITS READ/WRITTEN
DROPPED.

LIMITS

?*
MINIMUM AMOUNT

LIMITS 3 - 5120

WR]TE

SEQ 0023

'RD ONLY

(L)

LIMITS
(L)

N ?*

GIVES THE ABILITY TO iNHIBJT WRITING THE
INITIAL WRITE OF THE PACK FROM THE START

"RAN PAT

PAGE

PACK
WHILE
(OMMAND Wlct

TESTING,
THE
STIiL OCCUR.

¥ OR N

NORMAL OPERATION SHOULD BE YES, BUT THIS PARAMETER WILL
ALLOW
THE
WRITING OF ONLY ONE PATTERN OF EIGHT NORMAL PATTERNS.
THE PATTERNS

IN NEXT

QUESTION.
LIMITS

"WHICH ONE
1T

THE

(0)

Y OR N

1S NOW POSSIBLE

FOLLOWING EJGHT

TO CONTAIN
PATTERNS:

THE

EXERCISER

IN WRITING ONLY

0 -

ALL 0°S

V77772 ,077777,177777,52525,52525.52525

177777 ,177777,52525,52525,177777,52525
177252,177252,172765,172765

2 -

0.0.0, 177777 1277277 ,1277717
0.0,1727777,177777,0,177777,0,177777
0,177777

3 -

25252,52525,52525,125252,1252>2.125252

‘-

WORST CASE DATA
155555,133333,66666,155555,133333,66666

5 -

52525.52525,125252,125252,52525,125252
52525,125252,52525,125252

155555,133333,66666,155555,133333,606666
155555,133333,66666,155555
121105,150442,66221,132110,55044,206422
13211,105504,42642,21321,110550,44264

22132.11055, 10442642213
6 -

ALL

1°S

7 -

65513,122645,151322,64551,132264,5513%2

26655,113226,65513,122645,151322,64551
132264 ,55132,26655,113226

LIMI1S 0 - 7

ONE

SEQ 0024

"WORDS PER SECTOR (OMPARED ON KEAD

(D)

PAGE

NORMAL TRANSFERS ARE RANDOM BETWEEN 3 AND 1280 WORDS, THIS
PARAMETER WILL ALLOW YOU TO SPECIFY HOW MANY WORDS SHMOULD BE (OMPARED PER
SECTOR IN (ORE AFTER EACH READ.
IF TME VALUF SPECIFIED 1S
GREATER
THAN
THAT READ IN ONLY THE NUMBER READ [N ARE (OMPARED.
THE FEWER
WORDS COMPARED IN (ORF ON EACH READ THE FASTER THROUGHPI'T
THE
EX-

ERCISER WiLL HWAVE.
LIMITS 0 "'# OF

DATA ERR RP1'D PER BUF

THIS PARAMETER WILL

tD.

128

THE

LIM]T

PROGRAM WitLL

(D)

THE

NUMBER OF

CONTINUE

IN CORE

TO C(OMPARE

MISCOMPARES

F1ED BUT WILL INHIBIT THE PRINTOUT
ONCE
THIS
LIMIT
AFTER ALL WORDS ARE (MECKED A SUMMARY WILL BE PRINTED:

X WORDS BAD OUT OF

128 WORDS READ

LIMITS 0 ‘MAX HD

(D)

126

REPRESENTS MAXIMUM HEAD

TO USE

SEEX

OPERATIONS.

SEEK

OPERATIONS

LIMITS O -1
"MIN WD

(D)

REPRESENTS MINIMUM HEAD

TO USE

LIMITS 0 - 1
"CHANGE
IF

"MAX

VALUES OF

THEN THE

(YL

(D)

MXCYL

511

& MINCYL

(L)

TWO QUESTIONS WILL

SK]PPED

MAX]MUM INNER CYLINDER 1G BE USED IN SEEK OPERATIONS'
LiMITS 0 = 255.
"MIN

(YL

(D)

MINIMUM OQUTER

(RLOV) OR 511,

(RLO2)

2
CYLINDER

TO BE

USED

SEEx

PRINT-

AS MANY WORDS AS SPE(C]-

OPERATIONS.

REACHED.

SEQ 0025

LIMITS 0 = 255.
"WMAX

SEC

(D)

(RLOY)

OR S11,

2
PAGE

(RLO2)

0 2"

MAXIMUR SECTCR

TO START

TRANSFER

LIM]TS O - 39
‘MIN SEC

(D!

MINIMUR SECTOR TO START

TRANSFER ON

LIMITS 0 - 39
AFTER ANSWERING
THE TESTING.

"MK DRDY
ANY

LAST

DRIVES

THIS QUESTION
THAT

LIMITS
ERROR

PARAMETER

THE

PROGRAM WlLlL

START

DO NOT

]S ANSWERED YES
HAVE

DRIVE

READY

THE

PROGRAM

WwliL

NOT

HIGH,

Y OR N

[NFORMAT]ON

ALL ERRORS ARE
ERROR
NUPBER,

BEFORE

SOF TWARE

(L) N ?°'

ON START UP
TELT

THE

AND AT

PRINTEL v]A
(ONSOLE
DEVICE.
THE
ERROR
TYPE AND PROGRAM LOCATION.
ERRORS INCLUDE

ERROR WITH RELEVENT

DATA,

[NCLUDES
REGISTENS

SEQ 0026

————

. em—

PAGE

3.1 ERROR REPORTING
THE

FOLLOWING

NING.

*'SFY

ARE

A BRIEF

ERROR

HEADINGS

DESCRIPTION

THAT

MAY

THE

ERROR

IS GIVEN.

ENCOUNTERED wHILE

RUN-

ERROR"

AN ERPOR WAS DISCOVERED,

INFO GIVEN

1S ERROR,

BUT

RLCS,

ON RETRY

RLBA,

AND RLDA

DID

NOT

PERSIST,

“EXH'D RETRY ON SEEK'’
THE

NUMBER

GIVEN

RETRIES

TRA(K,

POSITION,

GIVEN HAVE

INFO GIVEN

AND DRIVE

STATUS

FA!LED

TO POSITION

IS RLCS,RLDA,RLBA,

LAST

DRIVE

THME

POSITION,PRESENT

"'VOL (MK WILL NOT RESET'
A

DRIVE

RESET

WlLL

NOT

RESET

VOLUME

CMECK

Bl7T

‘DID NOT REC'R FROM PWR ULP''
DRIVE

DID NOYT

(OME

BACK

UP AFTER A POWER FAILURE

"DATA DMP - DATA (HECK/GARBBLED DATA"
THE PROGRAM ENCOUNTERED A DATA (HECK ERROR BUT WAS UNABLE
T0O
MAKE
SENSE
OUT
OF
THE
FIRST TWO WORDS, WHICH ARE USED TO KEY OFF OF.
THEREFORE

2.3.13.21)

ALL

WORDS

“LIMITS EXCEEDED.
ANSWER

GIVEN

NOT

WITHIN LIM]TS

PROVIDED!''

CANNOT

“TLLEGAL
START,

SECTOR

ARE

DUMPED.(REFER

SECTION

HKIUM = X LOW - ¥''

"'NO DEFAULT
<(CR>

FOR

QUESTION.

THIS QUESTI]ON

COMMAND''

RESTART,

“ILL ENTRY

CONTINUE,

TYPED

IN WRONG FORM

IN P-TABLE"

ANSWERS IN HARDWARE
CONTROLLERS)

SECTION

THAT

ARE

NOT

LEGAL

(].E.

THAN

TWO

Y -~~~

—

SEQ 0027

PAGE 28

scQ 0028

"CAN'T READ FAUTORY BAD SECTOR FILE"
PROGRAM

1S UNABLE

TO READ

ANY

THE

FACTORY

FILES

“CAN'T READ FIELD BAD SECTOR FILE"
PROGRAM

"MORE

1S UNABLE

THE

FIFLD

FILES

THAN 16 BAD SECTORS''

PRO?S:? LIMITS

SEC

TO READ ANY

EXERCISING

CARTRIDGES

THOSE

WITH

LESS

THAN

16 BAD

"'NO DRIVES ENTERED"
EITHER NO DRIVES WERE ENTERED OR ALL DRIVES THAT WERE ENTERED
WERE
DROPPED
FOR
ONE
REASON
OR ANOTHER.
THE PROGRAM WILL LOOP AFTER
PRINTING

THE

ERROR,

WAITING

FOR

“C.

START

COMMAND

IS NOW

NECES-

SARY,

DRV NOT RDY w/0 DRV ERR"
ON (OMPLETION OF A COMMAND, DRIVE READY IS CHECKED FOR
A
POSSIBLE
TRACKING DRIFT PROBLEM.
IF THERE 1S NO DRIVE READY A GET STATUS IS
DONE TO VERIFY THAT THE DRIVE IS NOT IN PROCESS OF SEEXING.
[F
11
IS SEEXKING THE CONDITION IS LEGAL.
THIS TYPEOUT IMPLIES THERE WERE
NO DRIVE

ERRORS WHICH MAY

HAVE

CAUSED

DRIVE

READY

TN GO AWAY,

“TRCK ERR"
Th]S
ANY

ERROR

ERROR MEANS THAT THE DRIVE IS NO LONGER ON THE
SUBSEQUENT READ HEADER, READ OR WRITE COMMANDS

THE

TION
BEFORE
POSITION.

TRA(CK
THE

]S NOT

LAST

CORRECT.

SEEK,

THE

TRACK SELECTED.
WILL PRINT THIS

THIS ERROR WlLL PRINT

PRESENT

POSITION

AND

THE

THE POSI-

EXPECTED

"MIS=SK ERR'’
AFTER A SEEK WAS CONE, READ HEADER ]S DONE TO VERIFY THE SEEXK.
ERROR
PRINTOUT
WitL INCLUDE THE LAST POSTION BEFORE THE SEEK,
PRESENT POSITION AND THE EXPECTED POST]ON.

“DRv

STAT

THE
THE

ERR"

THE RESULT OF & GET STATUS CPERATION
BIT IS SET OR THE STATE IS WRONG

INCORRECT,

E]THER &

ERROR

. it
et
e

PAGt 29

"'HRD ERR'’
THE NUMBER Of RETRIES WERE EXHAUSTED WITH
OQUT
SUCCESS
THE
ERROR
FRIN;0U1
CONSISTS
OF
ALL REGISTERS BEFORE C(OMMAND AND AT TIME Of
ERROR .

“INIT WwR OF

SEC BAD'

WHILE WRITING THE PACK
WRITTEN
AND VERIFIED.

ONE

THE

INITIALLY, THE SECTOR INDICATED
THIS SECTOR WAS NOT IN THE BAD

FOLLOWING STEPS SHOULD BE

ISSUED:

STOP

CQULD NOT BE
SECTOR FILE.
THE EXERCISER

AND
(MANGE
CARTKIDGE,
B)
STOP THE EXERCISER AND VERIFY THE (ARTRIDGE (USE YHE BAD SECTOR FILE TOOL - CZRLMA) OR () IGNORE ALL ERRORS FROM THAT SECTOR.

ERROR HALTS
ERROR HALTS ARE
wlTH

/FLAG:HOE.

SUPPORTED PER DESCRIBED
THERE

ARE

NO OTHER

HALTS,

THE

SECTICN

SEQ 0029

4.0 PERFORMANCE

PAGE

AND PROGRESS REPORTS

PER? ORMANCE REPORTS ARE GIVEN AUTOMATICALLY (PER
SOF TWARE
PARAME:gga;f lgHEN A DRIVE IS OROPPED, OR AT OPERATOR REQUEST (PRINT) THE

vve RLOV

PERFORMANCE

TIME: HH:MM:SS
RLCS: XXXXX¥
¢+ RUNNING OR DROPPED DH:DM
PACK SERIAL #: DDDDDDDDDD
TOTAL SEEKS:
11111
WORDS READ:
JJJJIJ HIJJ
WORDS WRITTEN:
KKKKKKKKK

ERRORS
DRV-ER:

DiK:

HARD :

DLT:

DRIVE:

ees
Y

DRIVE

TYPE

RLOX

SEEK:

TRACK:

DATA:

HCRC:

NXM:

HNF :

SOFT:

REPORT

OPl:

:
WHERE
HH
MM

IS
IS

HOURS SINCE START/RESTART
MINUTES SINCE START/RESTARY

SS
XXXXXX

IS SECONDS SINCE START/RESTART
IS ADDRESS OF CONTROLLER

]

DM
DM

1S HOUR AT WHICH DRIVE WAS DROPPED
IS MINUTE AT WHICH DRIVE WAS DROPPED

JIJJ
KKKK
N

IS TOTAL NUMBER OF WORDS READ SINCE START TIMz 0:00:00
IS TOTAL NUMBER OF WORDS WRITTEN SINCE STARY TIME 0:00:00
1S NUMBER OF THAT TYPE ERROR SINCE START TIME 0:00:00

DRIVE

NUMBER

pOODDDDDDD - IS 10 DIGIT OCTAL SERJAL NUMBER OF PACK
1111
1S TOTAL NUMBER OF SEEKS SINCE START TIMe 0:00:00

THE

ONLY

5.0 DEVICE

PROGRESS

REPORT

THE

AUTOMATIC

PERFORMANCE

REPORT,

INFORMAT]ON TABLES

THE RLT1/RLVIY
(ONTROL OF THE

CONTROLLER HAS
SUBSYSTEM,

THE

FOLLOWING FOUR(&)

REGLSTERS

FOR

SEQ 0030

RLCS -

CONTPOL

AND

STATUS REGISTER

(Xxxxx0'

- (OMPOS]ITE ERROR
= DRIVE ERROR

= NON EXISTANT MEMORY ERROR
= HEADER NOT FOUND (W]TH BI 11 0 SET)
= DATA LATE (Wlin BIT 10 CL tAR )
= HEADER (RC (W]TH BIT 10 S ET)

=
=
9/8
7 =
6 5 =

- EXTENDED BUS ADDRESS
FUNC‘]ON CODE

NO VNS

NN —-O

DATA CRC (WITH BIT 10 0 CLE
CLEAR)
OPERATION INCOMPLETE
= DRIve SELECT (0-3)
(ONTROLLER READY
INTERRUPT ENABLE
EXTENDED BUS ADDRESS (BIT1 17)
= NOP (PDP=11) MAINT
WRITE CHECK
GET DRIVE STATUS
SEEK
READ HEADER
WRITE DATA
READ DATA
READ W]THOUT

BIT

0 - DRIVE READY

RLBA

= BUS

ADDRESS

DISk

ADDRESS

COMPARE

(Xxxx«2)

DATA TRANSFER

(XYXXX&)

15-7 - CYLINDER ADDRESS FOR TPANSFER

6 = SURFACE

tOR

‘EEK

BIT

16)

(LSI-11)

HEADER

BITS 15-1 BUS ADDRESS OF
BI1 O SHOULD BE O
RLDA

(BIT

FOR

TRANSFER

5-0 - SECTOR FOR TRANSFEF

(i=4C.)

FUNCT]ION

Bl7 157 = DIFFERENCF TO NEW CYLINDER
BIT1 6-5 - MUST BE ZERO ()
BI1 &4 = SURFACE (0=UPPER, |-LCwER)
BIT 3 - MUST BE ZERC (0)
BI1T 2 = SEEK DJRECTJONC t=IN /7 0=00T )

PAGE

SEQ 003

BIT
811

1 - MUST BE ZERD (0)
0 - MUST BE ONE (1)

FOR

GET

@ oo

O =PI
—

STATUS

—

1GNORED SHOULD BE

DRIVE RESET
MUST BE ZERO

]

N
Lol

et ot —

5-4 -

FUNCTI]ON

MUST
MUST

BE
BE

ONE
ONE

RLMP - MULTIPURPOSE

2ERO (0)

(0
(1)
(1)

coccocvcocncccsecarcensvoscaae

BIT

15 = 0 - WORD COUNT

FOR

READ

BIT

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

HEADER

FUNCTION

- HEADER

FOR

GEY

STATUS

RN BN |
R
B
R
DN B
D
D

CRC

(THIRD

READ)

FUNCTION

STATUS

WR]TE DATA ERROR
CURRENT HEAD ERROR ((HE)
WRITE LOCK STATUS (wWL)
SEEX TIME OUT (SKT0)
SPIN ERROR (SPE)
WRITE GATE ERROR (WGE)
VOLUME CHECK (v()

DRIVE

SELECT

ERROR

(DSE)

DRIVE TYPE IS RLOZ IF SET
SURFACE (0=UPPPER, 1-LOWER)

N
D

—
—
i
—
e
—

VO NBOO
=W
v
WH

COVER OPEN

HEADS

HOME

VE Y=

BRUSHES HOME
2=0 =STATE BITS
- LOAD STATE
SPIN UP
BRUSH C(YCLE
LOAD HEADS
SEEK = TRACK COUNTING
SEEK - LINEAR MODE
UNLOAD HEADS
[0 MV ¥ LRV

Bt Bt

ol ——
)

Bt Bt

)
e

Bt
Gt

]
]
i)
)
]

et Bt Bt Brmt
Bt
St D

] et o ]
—

s vReoRooRooRreNooRe
oo oRoo ook ooloolooRool

HAS DRIVE

(TW0'S C(OMPLIMENT)

READ)

PAGE

3¢

SEQ 0032

3
PAGt

7 = SPIN DOWN
6.7 TEST

SUMMARIES

PROGRAM DESCRIPTION

THE

PPOGRAM WILL

LECTION OF

READ

TRY

SIMULATE

A USER

ENVIRONMENT

DRIVES PERFORMING RANDOM OPERATIONS OF

AND WRITE.

INITIALLY

THE BAD SECTOR FILE

RECOVERED

WITH RANDOM

GET

FROM

STATUS,

EACH

SF-

SEFK,

DRIVE

STORED,
THEN
EACH
PACK
IS ENTIRELY WRITTFN RANDOMLY WITH ONE
E1GHT PREDETERMINED PATTERNS.
MAIN 1OOP

THEN STEP
RANDOMLY

(HECK

CONTINUOUS

SELECT

LAY

RANDOMLY

THE

ELSE

SELECTY

THE

FOLLOWING

STEPS

SELECTED DRIVE

STEP

FUNCTION

IS NOT

BUSY;

1
FOR

DRIVE

'F SEEK/WRITE/WRITE (HECK = THEN GOTO STEP S
IF SEEK/READ - THEN GOTO STEP 11
IF SEEK/READ/READ - THEN GOTO STEP 15
It SEEK/READ HDRS/READ W/NO HDR COMPARE/GET STATUS GOTO STEP 21
5.

GET

A RANDOM CYLINDER

SEEK

GET A RANDOM WORD COUNT FOR THE WRITE
THAT 1T WON'T OVERFLOW THE TRACK

GET

ISSUE

10.

ISSUE A WRITE
COMPARE
THE

TO THE

WRITE

GOTO STEFP #1
11,

GET

12.

SEEK

13,

GET

SELECTED

ADDRESS

(NOT

THE

BAD

CYLINDER AND WAIT

FUNCTION AND WAIT

NOT

COMPLETED
SLRE

TRACK POINTED

COMPLETED

SEEK

SELECTED CYLINDER AND WAIT

A RANDOM WORD

IT WwitL

fILE)

FUNCTION - MAKE

TILL

THEN

(HECK FUNCTION ON THE SAME DISKk
ADDRESS
10
DATA JUST WRITTEN BY THE WRITE FUNCTION THEN

A RANDOM CYLINDER # TOR THE

TO THE

SECTOR

TILL

A RANDOM DATA PATTERN TO WRITE ON THE
THE

A DRIVE

CONTROLLER OF

LOOP OF

AND

(OUNT

OVERFLOW THE

FOR

THE

TILL COMPLETED

READ FUNCTION - MAKE

SE.ECTED

TRA(K

SURE

SEQ 0033

16,

THE

PEAD FUNCTION AND WAIT

TILL

GET

16.

SEEXK

17.

GET

18.

ISSUE

19.

GET

20.

1SSUE A SECOND READ FUNCTION AND WAIT
GOTO STEP #1

21.

ISSUE

22.

ISSUE A READ HEADER FUNCTION AND WAIT

24.

A RANDOM CYLINDER FOR
AND WAIT

TILL

A READ

THE

A SEEK

FOR THE

(OMMAND AND WAIT

READ (OMMAND

TILL

FOR

COMPLETED

SAME

TRACK

TILL

ISSUE

A GET
STAY

ALL

TILL COMPLETED

SECTOR

WITHIN

THAT

MAIN

WHICH TIME

REGISTERS OF

LOOP

THE

CONTROLLER

UNTIL

INTERRUPT

THAT

INTERRUPTED

SERVICE

INTERRUPTED

CHECK FUNCTION WHICH CAUSED INTERRUPT

St P

Bt Bt Bt St

1F
YWY
Y
Y
Y TMY

NO ERROR SET;

GET

CHECK;

STATUS;

THEN STEP 3;

ELSE

STEP

AND

THEN STEP 3A

THEN STEP 5

SEEK;
THEN STEP 4A,
READ HEADER;
THEN STEP 7
READ;
THEN STEP 9
WRITE;
THEN STEP 3B

3A.

CLEAR WRITE

SET WRITE

RETRY

C(HECK NEEDED FLAG,

CHECK NEEDED FLAG IF
> O THEN REPORT

SOFT

THEN STEP &
REQUESTED THEN STEP &
ERROR,

ELSE

STEP &A

OQuT

ROUTINE

IMAGF
S

WRITE

COMPLETED

STATUS FUNCT]ON THEN GOTO STEP #1

BY A FUNCTION FINISHING AT
WiLL START EXECUTION.

READ

THEN

TILL COMPLETED

ISSUE A READ DATA WITH NO HEADER COMPARE
TILL

SELECTED

COMPLETED

TO A RANDOM CYLINDER AND WAIT

AND WAIT

|N-

DATA

SEEK

ANCTHER RANDOM WORD COUNT

WILL

...THE

COMPLETED

A RANDOM WORD COUNT

READ;

PROGRAM

‘.

COMPLETED

SERVICE
WILL INITIATE A DATA COMPARE ON THE
THE FUNCTION IS ENABLED) THEN GOTO STEP #1

15.

23.

THE

ISSUE

TERRUPT
READ (1F

PAGE

SAVE

SEQ 003«

GA.

EXI1

STATUS

THEN

REPORT

SET

FOR:

STEFP

STATUS

NO ERRORS
COVER C(LOSED
BRUSHES HOME
HEADS OUT
SEEK LINEAR/TRACKING
FELSE

STEP 6

ERROR;

VERIFICATION DONE

HEADER WORD
REPORT

TO MAIN PROGRAM

CHECK

PAGE

STEP 4A

FLAG COMPARE

PRESENT

ELSE

STEP 8

THEN STEP 4A;

M]S-SEEK,

DATA TO BE

SET

NEW POSIVTION;

COMPARED;

10;

ELSE

TWO WORDS;

THEN

(?ESK1¥ALIDITV
S
L

REPORT

12.

(HECK WORDS READ

13.

REPORT

14,

IFf

DRIVE ERROR;

15.

NXM;

THEN STEP 18;

ELSE

STEP

16.

OP];

THEN STEP 18;

ELSE

STEP

DLT;

THEN STEP

ELSE

STEP 20

RETRY < LIMIT

19,

REPORT

20.

MHCRC;

21,

DCRC,

22.

IF HNF,

23.

YOU

264.

IF DOING READ/WRITE
STEP 26

FIRST

GARBLED DATA;
IN

DATA ERROR,

25. (MECK

OKAY

THEN

STEP

12;

ELSE

18;

THEN STEF &4A,
CLEAR

THEN STEP 24;

THEN STEP 29;

THEN STEP 30;

STEP &4A ELSE

STEP

TO STEP ¢

THEN STEP 33;

SHOULD NEVER GET

STEP &

GO TO STEP &
IF

HARD ERROR;

WITH

STEP 4

THEN STEP

10.

POSITION

ELSE

FLAGS:;

ELSE

STEP 15

STEP

GO TO STEP 4A

STEP 21

STEP 22

ELSE STEP 23
HERE

THEN STEP 25

DOING READ HEADER THEN

DA 1S BAD SECTOR THEN STEP 4A;

ELSE

STEP 18,

SEQ 0035

26. READ 50 WEADERS,
7. REPORT

SOFT

28.

:éGURE

OUT

29.

(HECK

HMEADER

DA=Y

CHECK

32. REPORT

ALL GOOD THEN STEP 27;
(RC;

BAD HEADER

30. gEAD HEADER.
31.

ON CORRECT

SKT10

SPE
WGE
WDE
(HE

3, G0 10 STEP 4

IN FILE

TRACIKING:

33. ACT UPON:

IN FiLE

IN FILE
F1X

STEP 28

GO TO 4A

ELSE

3
PAGE

TWEN STEP 4A;

THEN STEP &A;
TRACK

POSITION,

STEP

ELSE

STEP

31;

ELSE

STEP

THEN STEP

THEN STEP &A,

ELSE

STEP &

STEP

SEQ 0036

CIRLKAQ RLOV/2 PERF
CCONTENTS

—_

27
173
266
382
582
631
659
958

EXER

MACRO *"3,01

9-FEB-79 19:33:19

SEQ 0037

BIT AND OFFSET DEFIN]TIONS
GLOBAL DATA AND CONSTANTS
GLOBAL MESSAGES
ERROR MESSAGES
SOF TWARE PARAMETERS
STATISTIC CODE
INITIALITATION CODE
GLOBAL

SUBROUTINES

REPORT ROUTINE
PROGRAM MAIN LOOP
ROUTINES TO SETUP AND JSSUE GET STATUS & SEEK
ROUTINE TO LOAD READ HEADER AND ISSUE IT.
ROUTINE TO LOAD WRITE DATA (OMMAND
ROUTINE TO LOAD READ DATA COMMAND

SETUP CONTROLLER AND DRIVE

ROUTINE

TO LOAD

FUNCTION

INFO FOR

INTERRUPT

PROCESSING

INTERRUPT SERVICE ROUTINES
CONTROLLER ERROR CHECK ROUTINE

COMMAND SERVICE

—

o w

YABLE

SEEK

INTERRUPT

ROUTINES

SERVICE

READ INTERRUPT SERVICE
READ HEADER INTERRUPT SERVICE

GET STATUS INTERRUPT SERVICE
WRITE INTERRUPT SERVICE

EXIT FOR INTERRUPT SERViC(E
ODRIVE ERROR INTERRUPT SERVICE
BUFFER GENERATION ROUTINE FOR
RETRY LIMIT ROUTINE
LIST OF FUNCTION ROUTINES
BAD SECTOR FILE ROUTINE
ROUTINE
ROUTINE
ROUTINE

GET

TO DROP DRIVE
TO CHECK DATA
TO WAIT FOR CONTROLLER

STATUS/DRIVE

KESET

ROUTINE

THE

'WRITE'

READY

ROUTINE TO WRITE PACKS INITIALLY
ROUTINE FOR SYSTEM (LOCK
HEADS HOME ROUTINE
RANDOM W( AND DA ROUTINE
ROUTINE TO DUMP BUFFER ON D(k
ROUTINE 1O CHECX FOR BAD SECTOR

DRIVE INFORMATION BUFFERS
DIAGNOSTIC SUPERVISOR == LOw CORE

SET

FUNCTION

EXER

WA= DO
OOV®NOF N

9-FEB-79

000000

000000
000000

ENXER

SvC

Sv(

SVCINS=0
SVCTAG=0

002000

POINTER ALL

002000
002000
002000
002001
002002
002003
002004
002005
002006
002007
002010
002011
002012
002014
002016
002020
002022
002024
002026
002030
002032
00203«
002036
002040
002042
002044
002046
002050
002051
002052
002054
002056
002060
002062
002064
002066
002070

103
132
122
114
113
000
000
000
101
060
000000
000000
030000
030154
010230
010246
032114
000000
000000
000001
000000
010350
000000
000000
000000
002
002
000000
000000
000000
000000
000000
002114
010352
002112

002074

012060

002072

.=2000
JMCALL

002000

19:33:19 PAGE

CJITLE
CIRLKAO RLOV/2 PERF
.ENABLE AMA
.ENABLE ABS
NLIST
Mg, (ND,MD

002000

MACRO v03.01

BOGNMOD

002112

MDHEDR
HEADER
LSCI
LASCIL
LASCIY
JASCIL
JASCIT

.BYTE
.BYTE
BYTE
LASCIY
LASCIL
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD

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

LWORD
.WORD
.WORD
.WORD
.WORD

CZRLKX,A,0,0,0,0,RL01,1

70/
72/
/R/
7L/
/x/
0
0

/A/

70/
0
0
LSHARD
LSSOFT
LSHW
L$SW
LOLAST

OO0OOOOCNMNMOOOM O—-OO
w »

NS WA —

(IRLKAQD RLOV/2 PERF

$DISPAT(H

LSDVIYP
LORPT
LS$DR
LSDRST
L$AU

SEQ 0038

(IRLKAD RLO1/2 PERF

002076
002100
002102
002104
002106

MACRO v03.01

9-1€B-79 19:33:19 PAGE

012144
000014
000000
010430
011714

.WORD
.WORD
.WORD
LWORD
WORD

002110

24 002110
70211¢

EXER

2
5

1-1

S€0 0039

LSDU
14
0
LSINIT
LSCLEAN

ENDROD
DEVREG

000000

.WORD
.BLKW
DEVIYP
LASCIZ

&
7

122
061

114
000

060
122

0
<RLOV,RLO2>

/RLOV,RLOZ/

062

.EVEN
.SBTTL

BIT

AND OFFSET

DEFINITIONS

;DEFINITICNS
002126

BGNMOD

002126

EQUALS

000000
000002

000004
000006

GLBEQAT

(sS=0
BA:=?2

000036
000040
000042
000044
000046
000050

000052

AND STATUS OFFSET

;BUSADDRESS OFFSET
:DISK ADDRESS OFFSET
MULT] PURPOSE OFFSET
;CONSTANT OFFSETS FOR INDIVDUAL DRIVE BUFFERS
THE ONLY POSITION THAT IS CRITICAL IS THAT Of

DA=4
MP-6

JUPRPOS
T
000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034

. (ONTROL

SKCNT=0

RXFR1=2
RXFR2=4
WXFR1=6

WXFRZ2=10

I MU S T

(MUST) BE

THE LAST ENTRY OF

;SEEK OPERATION COQUNT
READ OP‘RAilON (OUNT
URlIE

(BITS) LOW ORDER
'
H1GH ORDER
OPERAIION (OUN! (BI7S) LOW ORDER

ERR(NT=1?

.ERROR C(OUNT = HARD

SKECNT=16
DERCNT=20
DCRCER=22
HCRCER=24

;SEEX ERROR (NUNT
:DRIVE ERROR COQUNY
LOATA CRC ERROR C(OQUNT
;HEADER (RC ERROR COUNT

SFTCNT=14

DLTCNT=26

THE BUFFER

JERROR (OUNT

HIGH ORDER

- SOF1T

;DATA LATE ERROR COUNT

OPICNT=30
HNFERR=32
NXMCNT =34

;OPERATION INCOMPLETE ERROR (OUNT
JHEADER NOT FOUND ERROR (OUNY
JNON EXISTANT MEMORY ERROR COUNT

8DA=40
BMP=42

"
DISK ADDRESS CONTENTS
PRESENI MULTJPURPOSE CONTENTS

RETRY=36
FUNC=44

BCSADR:=46
LSTHDR=5C
RIYPE-S5?

PRESEN‘

JUAST

RETRY NUMBER

FUNCYION LOADED

;(SR IMAGE OF LAST COMMAND
JUASY POSITION ON DISK
JERROR ON WHI(M RECOVERY 1S BEING TRIET

..
o
S
——

SRR
. SR,

CIRLKAQ RLOV/2 PERF EXER
BIT AND OFFSET DEFIN]ITIONS

MACRO v03.01 9-FEB-79 19:33:19 PAGE

00005«

SR
- et

SKCNT1:=5¢4

;LOW SEEX COUNT

LSTDA=64
DIFWD-66

;015K ADDRESS AT SOFT ERROR
sLAST DIFFERENCE WORD OF SEEK
:HOUR OF DRIVE DROPPED

PRFLGS:=56
RXFR3:-60
WXFR3=62

72
7%

000079
000071

DPHOUR=T7Q
DPMIN=71

;MINUTE OF

DAT ER=74
DOWCK=76
SERNM1:100
SERNM2:=102
DCS=104
DRSEL=106
8BA=110

;DATA CMP ERRORS
;PERFORM WRITE CHECK
:SERIAL NUMBER OF CARTRIDGE
JSERIAL NUMBER OF CARTRIDGE
sCSR ADDRESS
;DRIVE SELECT B]TS(8.9.,10)
;PRESENT BUS ADDRESS CONTENTS

75
76
77
78
79
80
81

000072

TRERR=72

000074
000076
000100
000102
000104
000106
000110

SINTERNAL FLAGS
;THIRD ORDER READ (OuUNT
:THIRD ORDER WRITE COUNT

DRIVE DROPPED

;TRACKING ERRORS COUNT

82
83
84
85
86
g;

000112
000114
000116
000120
000122
000124

000001

91
92
93
94
95
96

000100
100000
040000
100000
040000
020000

INTEN=B] 16
ERR=BITI1S
DERR=BIT14
WDE=B]T15
HCE=B]T14
WL=BIT13

:INTERRUPT ENABLE
;COMPOSITE ERROR
;ORIVE ERROR
;WRITE DATA ERROR
JHEAD CURRENT ERROR
;WRITE LOCK

004000
002000
N01000
00400
020000
010000
004000

SPE=BIT11
WGE=BIT10
v(=B]19
DSE-BIT8
NXM=B]T13
DLT=BIT1?
DCRC=B] T

sSPINDLE TIMEQUT/UNDER/OVER
;WRITE GATE ERROR
JVOLUME CHECK
;DRIVE SELECT ERROR
JNON=-EXISTANT MEMORY ERROR
:DATA LATE
;DATA CRC ERROR

106
107

010000
002000

HNF=B]T12
oP1=BIT10

;HEADER NOT FOUND ERROR
JOPERATION INCOMPLETE ERROR

000020

98
99
100
101
102
103
104

105

108
109

m
112
113%
114
115

116
117
118

119
120

121

122

000001

010000

004000

BSECLPT=112
RSEEK=114
SOFT(S=116
TDR=120
WRIPG=122
PRPO3=124

SKDON=B1T10

DRDY=B]T10

SKT0=81T112

HCRC=BITI11

000200
000040

CRDY=BI117
BA17:=B]TS

00000°2
000004
000006
000010

WRCHK=B]T1
GSTAT=BIT?2
SEEK=BIT1'BIT?
RDHDR=B]T13

000012

000014
000013
000003
00000
000004

000020

000100

BA16=B]T14

WRITE=BIT3'BIT1

READ=B]T3'BIT?2
DRST=BiT3'BIT1'BI110
GSBIT=BI11!BI110
MK=B1T0
SIGN=B]T2

SKHS=BI] T4

HEAD=B]T16

SEQ 0040

000056
000060
000062
000064
000096

ceme-

¢4
1-2

67
68
69
70
71

AR,

;POINTER 10 BAD SECTOR FILE
JSEEXK IN PROCESS OF RECOVERY
sCSR OF SOfT ERROR
;WRITE IN PROGRESS FLAG
;PRESENT POSITION ON DISK

;DRIVE READY

:SEEK TIMEQUT ERROR

SPEED

sHEADER CRC ERROR

;CONTROLLER READY
;EXTENDED BUS ADDRESS B11

JEXTENDED BUS ADDRESS BIT

17
16

;WITE CHECX FUNCTION CODE
;GET DRIVE STATUS FUNCTION CODE
;SEEK FUNCTION CODE
;READ HEADER FUNCTION CODE
;WRITE FUNCTION CODE

;READ FUNCTION COME
;DRIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD
;GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD
sMARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET
;DIRECTION FOR SEEX(O=AWAY FROM SPINDLE)

sHEAD SELECT FOR SEEK
JHEAD SELECT

FOR READ,WRITE,GET

STATULS

STATUS)

— N

CZRLKAQ RLOV/
B11 AND JFFSE

MACRO v03.01

9-FEB-79 19:33:19 PAGE

000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070

D
e
i
d e
b
d
el
e
e
il

VI LYW

e
i
e
it e
e

alF ol plF ol o3V 3

e
d
d
—

XU IV ] AR 2E 2K

-l —
=

000009
000002
000004
000006
000010
000012
000014
000016
000020
000022
00002¢
000026
000030
000032
000034
000036
000040
000042

NTe

PoXo

)

[(VARV BV RV

—

4
1-3

SeEa@ oo

FOR HARDWARE P-TABLE

(SR=0
VECT=2

PRIOR=¢
TYPDR=6

DRBT=10
(NT=12

;OFFSET FOR SOF TWARE P-TABLE

RV RV

000010
000012

000000
000002
000004
0000CS

o3 o} AN AN AN N AN N LN LN AN N N0 N
T OQOODTMVO
NS NN = O VOO NO NN
OV

;OFFSET

000072

000074
000076

RLT=0
ELT=2
SET-4
DAT=6
SKT=1¢
1Y1=12
RDT=14

DDT=16
(HFLG=20
MXB=2?2
MXH=24
MNH=26
MxC=30

MN(=3?2
MXS=34
MNS=36

DCKFG=40
DRFLG=42

MNB=44

SEL=646

OPFLG=50
DET=52
ROF =54

RAN=56

PAT=60

SRLT=62
(LMT=64

AUTO=66

STIP=70
wiK=72

DCD=74

ANS=76

168

ENDMOD

002126
002126
002130
002132

000000
000000
000000

.SBTTL

GLOBAL DATA AND CONSTANTS

BGNMOD

GLBDAT

RECNT:
Rw(NT:

.WORD
.WORD

WHY :

LWOKD

0
0

;READ ERROR COUNT
:R/W ERROR COUNT

:REASON FOR DROPPING DR]VE

(IRLKAO R1.C1/2 PERF

EXER

GLOBAL DATA AND CONSTANTS

000000
000000
176543
123455

002156
002160
002162
002164
002166
002170
002172
002174

200
201
202 C02176
203 002200
204 002202
205 002204
206 002206
207 002210
[ASIANE
NI VIR VI, V] V1 N ] VY, V],V ~no
P
b ol md coh ad o o o o e (=]
OOV
NP WV
LN —=O 0

208 002212

221
22¢

223
224
225
226
227
228
229
230

002214
002216
002220
002222
002224
002226
002230
002232
002234

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

1 002270

2 002272
3 002274

4 002276
5 002300

6 002302

000177
000077
000000
000000
000000
000000
000000
000000
000000

DRUT:
DRPRS:

T.DRIVE:

SYSMSK:

HINUM:

.WORD

CyL:
SUR:
SEC:
REGEN:

.WORD
.WORD
.WORD

WRFPOS:

KILLDC:

SEQ 0042

:1YPE OF DRIVE FROM P-TABLE
;MASK FOR 0-7 DRIVES

.WORD

_WORD
.WORD
.WORD
.WORD
.WORD
.WORD

]

&
1-¢

;DORIVES PRESENT

.WORD

LONUM:
CYLMSK:
SECMSK:
(MSK:
SMSK :
WR NIT:

;COPY OF SELECTED DRIVE FOR TESTING
;DRIVES UNDER TESTY

.BYTE
.BYTt

;PRIME FOR RANDOM
+NUMBER GENERATOR
;MASK FOR CYLINDER ONLY
sMASK 0UT SECTOR BITS

;WRITE INIT
:WRITE UNIT

.WORD

FLAG
FLAG

:CYLINDER
sSURFACE #
sSECTOR #
:REGEN FLAG FOR BUFFERS
;INHIBIT DATA COMP FLAG

.WORD
.WORD

:THE FOLLOWING LOCATIONS ARE CLEARED AS A GROUP (DOWN TO 'STFLG')
;THEREFORE

174400
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000160
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

CNTLR1Y:
CNTLRZ:
LSTDR1:

LSTDRZ:

BCSR:
BVEC:
BPRIOR:
:
BDRSEL
HDRFND:

(HKSEC:
DECNT:
TEMPO:
TEMP1:
TEMP?:
TEMPY:
:
TEMP4
TEMPS:
TEMPG6:
TEMP7:
TEMPS:
TEMPY:

VECT:
VECT?:
PRIOR1:
PRIOR?:
GDDAT:
RNTEMP:

DON'T

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

.WORD
:
RVAL
INTE
LSTTIM: .WORD
SECOND: .WORD
MINUTE: .WORD
HOUR:
.WORD
E.CS:
.WORD
E.BA:
.WORD
.WORD
tE.DA.

INSERT

ANY

.WORD

(ONSTANTS

;CSR OF CONTROLLER 1 (LUN 0-3)
;SR OF CONTROLLER 2 (LUN &4-7)

174400

;BUFFER POINTER OF DRIVE
;BUFFER POINTER OF DRIVE
:CSR FROM P-TABLE

;VECTOR "'
;DRIVE
:FLAG

INDICATE

;SECTOR OF

:DATA ERROR

HDR

IN BAD LIST

ERROR = USED BY BAD SECTOR LOCATION
COUNT

: TEMP LOCAT]ON
; TEMP LOCATION

;TEMP LOCATION

“VECTOR OF FIRST CONTROLLER

189 00215¢

190
191
192
193
194
195
196
197
198
199

100177
100077

TSTDRV:

OOOC)O;OOOOOOOOOOOOOOOOOOOO

83 002140

000000
000
000

9-FEB-79 19:33:19 PAGE

SCOOOOOO

180 002134
181 002136
182 002137

MACRO v03.01

;VECTOR

2ND

.TIME BETWEEN REPORTS
;LAST TIME ON SYSTEM (LOCK
; SECONDS OF

SYSTEM CLOCK

;MINUTES OF SYSTEM (LODK
:HOURS OF SYSTEM (LOCK

s IMAGES OF REGISTERS
;ON INTERRUPT
[

EXER

MACRO v03.01

GLOBAL DATA AND CONSTANTS

BUF?Z:

MAXWC:

uut:

PWRFLG:
TRPFLG:

STFLG:

.WORD

_WORD
.WORD

.WORD
.WORD

.WORD

LWORD

.WORD

.WORD
.WORD

.WORD

1-5

SEQ 0043

s CURRENT HEADER - FOR ERROR REPORT
;FLAG INDICATING PRESENSE OF SYSTEM (CLOCK
FIRST (ONTROLLER
;sBUFFER FOR
;BUFFER FOR SECOND CONTROLLER

<MAX WORD COUNT DETERMINED BY
;NUMBER OF UNITS ON SYSTEM
.POWER FAIL INDICATOR
; TRAP OCCURANCE FLAG

;START FLAG

JEND OF MASS (LEAR

000000
000000
000000
000000
000000
000004
000034
000035
000000
000000

CNIFLG:

FASCII:
FASPNT:

DW(NT:

DWCNT1:
ERRVEC:
ST1:
ST2:

OPCALL:
INCALL:

.WORD

0
0
0

sPOINTER
;ERROR COUNT
;ERROR COUNT

34
35

JSTATES ALLOWED
sSTATES ALLOWED

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

;CONTINUE FLAG
;ASCI1 MESSAGE Of FUNCTION

JERROR

ENDMOD
.SBTTL

GLOBAL MESSAGES

BGNMOD

GLBTXT

—

—r

TIME:
MRLCS:

DIFMSG:
CART:

— —h d () b —d NN
- —
N
O N S WD

-l

—

050

104
102
IRR
040
116
129
123
123

050
07¢
050
050

—

104
120
116
104

1
122

126
040
040
076
040
040
040

QO
s —a
ST OO0

;GLOBAL TEXT

002476
002516
002526
002541
002567
00257%
002616
002630
002644
002666
002677

BUF1:

—

286
287
288
289
290
291
292
293
294
295
29¢

284
285 002465

(.HDR:
SYSCLK:

)

00¢360
002367
002377
002411
002427
002441
002453

E.MP:

E.MP1:
E.MP2:

. O et N = PO PO
— O
NN NWOINPNUND
N - —

277
278
279
280
281
28¢c
28%

000000

000000
000000
000000
000000
000000
0000C0
000000
000000
000000
000000
006000

—r

237 002304

238 002306
239 002310
260 002312
261 002314
242 002316
263 002320
264 002322
265 002324
266 002326
247 002330
248 002332
249
250
251
252 002334
253 002336
254 002340
255 002342
256 002344
257 002346
258 002350
259 002352
260 002354
261 002356
262
263 002360
264
265
266
267
268 002360
209
270
271
272

9-FEB=-79 19:33:19 PAGE
COOODOOOO0OOO0O

CIRLKAOQ RLO1/2 PERF

CRLCS:
MFUNC:
CRLBA:
CRLDA:
CRLMP:

NOCRDY:

DNRDY:

NORDY:
PRGER:
NWRTS:

SMSG:
EXHAUS:
UDEKR:
MSKER:
MSFER:

LASCIZ
.ASCIZ

.ASCIZ
LASCI2
.ASCI12
LASCIZ
LASCI1Z

" (RLCSY: Y
**>> FUNCTION:
** (RLBA): '
* (RLDAY: '
' (RLMP;- "'

.ASCI2
LASCI2

/DIF WD: /
/PACK SERJAL
/NO CRDY/
/DR NOT RDY/

LASCI?

.ASCIZ

_ASCI1Z
.ASCIZ
LAS(CIZ

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
AS(12

#¥:

IDR NOT RDY W/0 DR ERRYX
/BUG/
/INIT WR OF SEC BAD/
/ SECTOR: /
/NO GOOD WDR/
/UNDIAGNOSABLE ERR/
/SEEK ERR/

/SOFT

ERR ENC'D/

VECTOR

(ORE

040
040
124

9-FEB-79 19:33:19 PACE

DRVER:

MDERS:

MDSER:
MV(ER:
WGEST:
MRDER:
MDCER:
MMDER:

OMPDCK: .
TRACK:

ERLMTM:
SERLMT:
SFEMSG:
DCDOMSG:
DERMSG:
OVER:

.
.
.
.
.

SEXHAU:
UNLOAD:

.
.

REOQ:

NOLOAD:

SOPLMT:
NOREV:

MBDMSC: .
HWSEC:

SWSEC:

MPT:

JLLEG:
MVEC:

NODRIV: .

DRNM:
LPS:
EPS:

RPS:
NOPWR:

BUSAD:
ERT:

MST:

MST1:
RT1:
EXP:

DROP:

:
MTHNF

MTDCRC:
MIDLT:
MIOP]:
MINXM:
MIDRV:
MSTART:
MSWRPK:
NORDDC:

ERRHDR:

11/

/
/

/DRIVE DROPPED/
HNF
/
HCRC/
L

MTHCRC: .

SEQ 0044

/DR ERR/
/DR ERR WIlLL NOT RESET/
/DR STAT ERR/
/VOL CHK WILL NOT CLR/
/WR GATE ERR WILL NOT RESET/
/DR ERR - RECOVERED/
/DATA (MP ERR/
/HARD ERROR/
/DATA DUMP - D(X/
/TRACKING ERR/
/HRD ERR LMT EX(C'D/
/SK ERR LMT EXC'D/
JSFT ERR LMY EXC'D/
/DATA ERR LMT EXC'D/
/DR ERR LMT EXC'D/
/BUFFER CHOSEN 100 BiG - WAS
/REQ BY OPR/
JEXH'D RETRY ON SEEX/
/HDS NOT UNLD ON ERR/
/DR WLD NOT LD/
/OPER LMTS EXC'D/
/GARBBLED DATA - CAN'T (HECK
/MORE THAN 16 BAD SECTORS/
/NO FACTORY FILE/
/NO FIELD FILE/
/P-TABLE: /
/1LL P=-TABLE/
/ VECTOR: /
/NO DRIVES/
/ DRIVE: /
/ LST POS: /
/EXP POS: /
/ REC POS: /
/DR DID REC'R FROM PWR UF/
/AT BUS ADDR: /
/RETRYS: /
/ ERROR TYPE: /
/STATUS WAS: /
/ SHOULD BE: /
/ RETRIES ATTEMPTED/

/ EXP'D:
/ REC'D:

RCD:

&
1-6

DCK/
DLY/
OPl1/

NXM/
DRvV/
/TESTING STARTED/
S

b
—
—
=
—

= OIWO
= NO N

=l
o
——
—
—
e
il
)
o
)

O
—

MRT:

114

—r

o
e e
o
ol ol e el ol el e
i e
i o
d el
i
d e e
o e
e () e
e
s o
d il
)
)
e e e
e
e
ek
b e mh e
D
el e e et
el
— e

040
040
040

NO =PI
OO —=
FOW == NNVOO S NWO

N POWNE
O NS S OONMNINNIWS NN ETONO
SN N DN NININ = ONSOWNNN
— O wNN—*—‘SNNNNNx

MACRO v03.01

NONOO —=—=O0 —=—=NNONNNVNOONNININ
O =N =Nt = = ORNINIDWNONINIOO = NINO OO NN
— NN

OO NNNIOWVNMNES
S NWWO &S~ S O8N

d
e
e
s i o o
el o e
b e
il e
oD el el el
D e
e
d o e e

£tV

QD ol md

o (Vo
MV ]V)

N N

i AN
n oM

)

b ol e od

b e

OO0
~NO V(NN —

(W LV AV V. SV JV JV JV IV 1V "]

002716
002725
002753
002767
003014
003047
003072
003107
003122
003142
003157
003201
003222
003244
003267
003310
003345
003360
003404
003430
003446
003466
003525
003556
321 003576
003614
003626
003642
003654
003666
003677
003712
003724
003737
003770
00400¢
004017
004035
004052
004067
004112
004123
004134
004152
004157
004165
004172
0046177
004204
004211
004216
00423%6
004254
004334

EXER
=200 O—=O—=ONOOONN
—=NO =OONINNOOO

CIRLKAD RLOV/2 PERF
GLOBAL MESSAGES

.
.

/WRITING PACK /
/PACK NOT FULLY INIT'D,..DATA COMPARE
/CURRENT POSITION (HDR) = /

INHIBITTED/

STHIS LIST OF ASCI] TEXT IS USED AS A TABLE FOR PRINTING
;FUNCTIONS

IN ERROR MESSAGES

TABLE

IS "'MT(R = MIRD',

CIRLKAQ RLOV/2 PERF

GLOBAL MESSAGES

EXER

MACRO v03.01

154
355
156

;FILL

392
393
394 04464
395 004464
396 N04470
00447C
006472
006476
006502
004506
004512
0064516
004522
006526
004532
004536
004540
004542
397 004546
0046546

ol
il
el
)

049
040
040
040
040
040
040

—

363 004416
366 004426
365 006436
366 004446
367
368
369
370
371
372
373
377
378
379
380 004456
381
382
383
384 004656
389
386
387
388 004456
189 0044586
390 004462
004462
004662

1-7

SEQ 0045

BYTE

(TOTAL

B(EIGHT)

BYTES)

LONG.

USED

IN LINEI

SUBROUTlNE ......................................... .
Ao
O N
PO
~INU W~~~

362 0064406

19:33:19 PAGE

:THE ORDER IS IMPORTANT AS WELL AS THE LENGTH OF EACH
;ASCIZ STRING. EACH STRING IS SEVEN(10) BYTES PLUS ZERO

tg7

358
359
360 004366
361 004376

9-FEB-79

122
1264
105
104
122
105
106

MI(R:
MIGS:
MISK:
MIRNK:
MIWR:
MIRD:
MIRNH:

LASCIZ
ASCIZ
LASCIZ
.ASCIZ
LASCIZ
LASCI2
.ASCIZ

/7
/7
/7
/
/7
/
/

WRCHK /
GYSTAY/
SEEX
/
RDHDR /
WRITE /
READ
/
RD=-NHD/

CEND OF LIST NOW YOU CAN PUT ANY THING YOU WANT RERE

.EVEN
ENDMOD

.SBTTL

ERROR MESSAGES

BGNMOD

GLBERR

;GENERAL ERRUR REPORT

004737

005716

BGNMSG

L10000:

104023

ERR1

JSR

PC,LINES

Em1

C¥MSG

ENDMSL

sM]S=-SEEx EFROR REPOR!
004737
010146
012746
016446
012746
0164406
012746
016446
012746
012746
012746
010600
104014
0627006

00571¢

BGNMSG

ERR?
JSR

PC,LINES

MOV
MOV

#RPS,=(SP)
PRPOS (R&),=(SP)

Mov
MOV
MOv
MOV
MOV
MOV
MOV

#EPS,-(SP)
LSTHDR(R&) ,=(SP)
#LPS,=(SP)
DIFWD(R4),=(SP)
#D1FMSG,=(SP)
FEMTL,
- (SP)
#11,-(SP)

PRINTB
Mov

003724
000124
003712
000050
003677
000066
002665
006472
0000M

MOV

EMT

000026

£ 10001

ADD
ENDMSG

WFMTL,#DIFMSG,DIFWD(RG)
. #LPS, LSTHDR(RL) ,#EPS,PRPOS (R&) ,#RPS R
R1,=.SP)

sP,RO

($PNTB

826 ,5P

CIRLKAQD RLOV/?2 PERF
EKROR MESSAGES
598
399

0046546

400 004550

004550

N2 004554

004737

BGNMSG

005402

004636
004642
004646
004652
004656
0046662
004666
004670
004672
406 004676
0046676
004676

016446
012746
016446
012746

012746
012746
010600
1064014

062706

000020
000064
006076

JSR

ERI

002224

£10002:

]

&
1-8

SEQ 0046

($MSG

;SOFT.ERROR RECOVERABLE ERROR REPORT
PC.,LINEY
FEMT2A, #CRLCS,SOFTCS(RG) ,#CRLBA,3BBA(RG) ,#CRLDA,LSTDA(RSG)

LSTDA(RG) ,-(SP)

#CRLDA,=-(SP)

#BBA(RL) ,-(SP)
SCRLBA,-(5P)

SOFTCS(RG) ,=-(SP)

#CRLCS,-(SP)

SEMT2A,=(SP;
#7,-(S5P)

SP,RO
($PNTB

#20,5P

PRINTB
MCv
MOV
Mov
MOV
MOV
MoV
MOv

SEMTS,#MRT ,RETRY(R4G) ,#ERT ,RTYPE (R&)
RIYPE(R4) ,=(SP)
#ERT ,=(SP)
RETRY(R&) ,=(SP)
#MRT,=-(SP)

ADD

#14,5P

EMT

000014

19:33:19 PAGE

ADD
Mov

JSR

000052
004017
000036
004006
006525
000005

1064023

ERRY
PRINTB
MOv
Mov
MOV
MOV
MOV
MoV
Mov
MOv
MOv

002377
006323
¢.20007

004537

«Q7

tEmt

000064
002441
000110
002427
000116

404 004632

405 004636

9-FEB-79

104023

004554
QUSE0
004564
004570
004574
004600
004604

004610
004614
004616
00620
403 0066264

MACRO v03.01

EXER

ENDPMSG

EMT

LSTDA(RG) ,TFMPO .GEY THE ADDRESS 10 PRINT
RS,TELCYL
;CONVERT FOR PRINTING

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

SP,RO
(SPNTB

& L0

408

:GET STATUS tRROR REPORT

409

410 004700

004700
612 004704
004706
004710

005716

004714
004720
004724

004730
00473
004740
004742
004744
AR| 004750
004750
004750

AYA
615
&1¢
L17
4i8 004752

€19 004752

600

BUNMSG

002352
002350
004052
002304
004035
006541
000006

ERRG
JSR

E.MP,~(SP)

ADD

#16,5P

Ent

($MSG

EMt

000016

L10008%:

PC,LINES

PRINTB
MOV
MOv
MOv
MOV
MOv
Mov
MOv
MOV

SEMTG,AMST
E.MP, #MSTT ,STT,ST?

$12,-(SP)
ST1,-(SP)

MMST1,-(SP)
#MST ,-(SP)
#FM16,-(SP)
#6,-(SP)

SP,RO
(SPNTB

ENDMSG

JDATA ERROR SuMMARY

00&7%7

005606

BGNMSG

ERRO
JSR

PC,LINES

CIRLKAQ RLOV/? PERF
ERROR MESSAGES

EXER

620 004756
421 004762

MACRO v03.01

000042

004762
004764
004770
004774
005000
005002
005304

0022¢¢
006651
000003

L10004:

005010

623
L24
425
626 005012
4«27 005012

BGNMSG

004067
000036
006603
000003

6432
433
436
435
36
437

1-9

BRP(R4)
RO
W#FMT9A DECNT,RO

ADD
ENDMSG

#10,SP

(INSG

ERR7

SEQ 0047

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

(SPNTB

PRINTB
MOv
MOV

#FMIB,RETRY(R4)
,#KTI
#RT1,=-(SP)
RETRY(R4K) ,=(5P)

M7
ADD

(SPNTB
#10,sP

EMT

($MSC

MOV
MCv
Mov

000010
005716

428 005042
429 005046

&30
431

;NON RECOVERABLE ERROR REPOR1

005012
005016
005022
005026
005032
005034
005036

005046

19:33:19 PAGE

mov
PRINTB
MOV
MOV
mov
MOV
MOV

EMTY

000010

422 005010
005010

065046

9-FEB-79

L10005:

104023

JSR
ENDMSG

SFMT8,-(SP)
#3,-(SP)
SP,RO

PC,LINES

;BAD DATA (OMPARE ERROR REPORT
005050
005050
005054
005062
005066

005066

005070
005074
005100
005104
005170
005114
005120
005124
005130

005134
005136
005140

438 005144

005144
005146
005152
005156
005160
005162

4«39 005166

004737
016437
004537

005606
000040
006076

004123
002260
004112
000040
002441
000110
002427
006761
000011
300024
007032
000002

000006

BGNMSG
002224

ERRS8
JSR
MOV
JSR

PC,LINEZ
BDA(RL) ,TEMPO
RS, TELCYL

MOv
MOv
Mov

#FMNT10A,-(SP)
#11,-(SP)
SP,RO

PRINTB
MOV
Mov
MOv
MOv
MOV
MOV
MOV
MOv

EMT
ADD

PRINTB
MOv
MOv
MoV
MCv

EMT

ADD
ENDMSG

sREPORT THE (YL # & SECTOR/HEAD
#FMT10A,#CRLBA,BBA(RS)
,#CRLDA,BDA(RG) ,#EXP,GDDAT ,#R(D, (R2)
(R2),=(SP)
#RCD,-(SP)
GDDAT,-(SP)
#EXP,-(SP)
BDA(R4) ,=(SP)
S#CRLDA,=(SP)
8BBA(R4) ,=(SP)
#CRLBA,-(SP)

CSPNTB
N4 ,SP
#FMTI0B,R2

R2,=(SP)
#FMTI10B,-15P)
#2,-(SP)
SP,RO

($PN1B

#6,SP

CIRLKAD RLO1/2 PERF
EKROR MESSAGES

:2?

005166
005166

EXER

MACRO v03.01

L 10006:

104023

:a% 005170

BGNMSG

464 005170
465 005174

005174
005200
005206
005206
005212
005216
005222
005226
005226
446 005232
005232
005232

667

9-FEB=79 19:33:19 PAGE

004737

005716

016446
012746
010146
012746
(012746

000050
003677

012746
010600
104014
062706

EMT

000014

L10007:

104023

&
1-10

CSMSG

SEQ 0045

;DRIVE ERROR

ERR9
JSR
PRINTB

004035
007070
060005

PC,LINES
#FMT13,#MST R1,LPS,LSTHDR(RG)

MOV
MOV
MOV
MoV
MOV
MOV
MOV
EMT
ADD
ENDMSG

LSTHDR(R4) ,=(SP)
SLPS,=-(SP)
R1,-(SP)
#AST
- (SP)
#EMTi3,-(SP)
#5,-(5P)
SP,RO
CSPNTB
#14,SP

EMT

CIMSG

448
ng

;INVALID ENTRY

451 005234
452 005234

005234
005240
005246
005250
005256
005256
005262
005266
005272

005276
005276
453 005302
005302
005302
454

BGNMSG

013746
012746
013746
012746
010146
012746
012746
012746
010600
104014
062706

002210
003642
002206
002367
003614
007040
000007
000020
L10010:

104023

455
423 005304

BGNMSG

ERR10
PRINTB

#FMT11,#MPT,R1,#MRLCS,BCSR,
MMVEC ,BVEC

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

BVEC,~(SP)
AMVEC,-(SP)
BCSR,=(SP)
#MRLCS,-(SP)
R1,-(SP)
#MPT,-(SP)
FEMTI1,=(SP)
#7,-(SP)
SP,RO

EMT

CIMSG

EMT
ADD
ENDMSG

CSPNTB
#20,SP

EPR12

‘23 005304

004737

005716

JSR

PCLLINE3

«6C 005310

005310
| 005310

«62
463
464
«65

005312
005312
005316
005322

466 005330
005330

005334

L10011:

104023
004737
016403
016337

005716
000104
0000C6

012746

007150

012746

000001

BGNMSG

002304

ENDMSG

EMT

CEMSG

ERR13
JSR
MOV
MOV

PCLLINES
DCS(R4)
R
MP(R3) € .MP

MoV

#1,-(SP)

PRINTB
MOV

WFMT14C
FEMTI4( ,=(SP)

;GET HEADER
:CRLF

IN P-TABLE

REPORT

CIRLKAQ RLO1/2 PERF
ERROR MESSAGES

005340
005342
005344
667 005350
005350
005354
005360
005364
005370
005372
005374
468 005400
005400
005400

469

670 005402
671 005410

672
473
674
675
676
L77
478
679

EXER

106014

062706

005570
005574
005576
005600
482 005604

+83
L84 005606

000004

ADD
PRINTB
MOv
Mov
MOV
MOV
MOv

EMT

ADD

L10012:

104023

005046
156416

005560
005564

Ent

000010

0056446
005446
005450

005546
005550
481 005554
005554

MOv

002312
004334
007069
000003

005416
005424
005430
005434
005436
005444

005460
005464
005470
005474
005500
005504
005510
005514
005520
005522
005524
480 005530
005530
005534
005540
005544

9-FEB-79 19:33:19 PAGE

010600

016437
012737
042737
006237
005337
001404
062737
000771

005454

MACRO v03.01

012746

000044
004366
00010C
002340
002340

002340
002336
002340

000010

002336

LINET:

1R ¥

2%:

000107
003666
000104
002367
002270
002272
002274
002360
006725
000011

ENDMSG

#8.,FASCI!
1%

CLR
81s8
MOV

ADD
PRINTB
MOv
MOV
MOV
Mov
MOv

EMT

000010
LINEZ:

THE

MEADER MESSAGE

FERRHDR ,~(SP)

PRINTB

;PRINT

FENT12,-(SP)
#3,-(SP)
SP.RO
(SPN1B
#10,SP

Bl1C

EMT

002336
002411
006273
000003

#FEMT12 ,#ERRHDR,C.HDR
C.HDR,=(SP)

FUNC(RG) ,FASPNT
MMTCR,FASCII
#INTEN,FASPNT

EMT

000006

0, SP

MOV
MOV

ASR
DEC
BEQ
ADD

SEQ 0049

SP,RO
($PNTB

($MSG

ADD
PRINTB
Mov
MOV
MOV
MOV

006120
007552
000002

&
1-i1

EMT

MOV
MOV
MoV
MOV
Mov
Mov
Mov
MOV
MOV

000024

fFASPNT
fFASPNT
2%

JGET FUNCTION
JFIRST FUNCTION ASCIZ
;CLEAR INTERRUPT ENABLE

ALIGN - NOW = 1 10 7
;DOWN COUNT FUNCTION
JFOUND?

sNO NEXT ONE
;LOOP

#FMT10,#TIME,HOUR,MINUTE
,SECOND ,#MRLCS ,DCS(R4) ,#DRNM,<B,DRSEL+1(R4)>

=(SP)

DRSEL+1(R&),
(SP)

#DRNM,
- (SP)
DCS(R4) ,-(SP)

#MRLCS,-(SP)

SECOND,=(SP)
MINUTE,-(SP)
HOUR,
- (SP)
#TIME,-(SP)

NFENT10,-(SP}
#11,-(SP)
SP,RO
CSPNTB
#24,SP

#EMTDT,TOR(RS)
TDR(R&) ,=(SP)
#EMTDT ,-(SP)
#2,=(SP)

SP,RO
CSPNTB

¥6,5P
MFMTIA #MEUNC,FASCII
FASCI],=-(SP)
FMEUNC,=(SP)

FEMTIA,=(SP)
#3,-(SP)
SP,RO
(SPNTB
#10,SP

ADD
RTS

PRINTB

#FMT10,#TIME HOLR,MINUTE,SECOND,#MRLCS,DCS(RG)
,#DRNM <B,DRSEL*1 (RG>

CIRLKAQ RLOV/? PERF

ERROR MESSAGES

005606
005610
005614
005620
005624
005630
005634
005640
005644
005650
005654
005660
005662
005664

EXER

005046

491

000006

004737

005402

0164648

000042
002453
000040
002441
000110
002427
000046
002377
006302
000011

e e R

eI Y

OO et et
o
o
o
o

et a

012746

600

LINE3:

000207
013737

JSR

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

EMT

00002¢

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

002304
002457
002302
002441
002300
002427
002276
002377
006345
000011
000024

06062

492 006070
493 006074
494
495 006076

ADD

PRINTB
Mov
MOV
MOV
MOV
EM7
ADD
RTS

000120
007552
000002

006002
006006
006012
006016
006022
006026
006032
006036
006042
006046
006052
006054
006056

MOv
Mov
Mov
Mov
MOV
MoV
Mov
MOV
Mov
Mov
Mt

19:33:19 PAGE

1-12

002302
006076

002224

002164

#ORNM,
- (SP)

DCS(R&) ,-(SP)

#MRLCS,-(5P)

SECOND,-(SP)

MINUTE ,-(SP)
HOUR
, - (SP)
#TIME,~(SP)

#FAT10,-(SP)
f1,-(sP)

SP,RO
CSPNTB

¥4 ,SP
#FMIDT,TDR(R4)
TDR(R4) ,=(SP)

SEMTDT ,-(SP)

#2,-(SP)

SP,RO
CSPNTB

#6,5°P
PC

PC.,LINEN
#FMT2,#CRLCS,BCSADR(RS)
,#CRLBA,3BBA(R4) ,#CRLDA,BDA(RSL) ,#CRLMP ,BMP{R4&)
BMP(R4) ,-(SP)
#CRLMP,-(SP)

BDALRSL) ,=(SP)

#CRLDA,-(SP)

@BBA(R4) ,~(SP)
#CRLBA,=-(SP)

BCSADR(R4G) ,=(SP)
#CRLCS,-(SP)
#EMT2,=-(SP)
#1,-(SP)

SP,RO

CSPNTB

¥24,SP
WEMTS #CRLCS,E.CS,#CRLBA,E.BA,#CRLDA,E.DA,#(RLMP
E.MP
tE.MP,=-(SP)
#CRLMP,-(SP)

€E.DA,-(SP)

#CRLDA,=-(SP)

E.BA,-(SP)

#CRLBA,-(SP)

E.CS,-(SP)

#CRLCS,-(SP)

YEMTS,-(SP)
#11,-(SP)

JSR

JEXLT

MOV

TEMPO,CYL

sGET

ADD
MOV
RTS

TELCYL:

-(SP)

DRSEL+1(R&4),
(SP)

SP,RO
(SPNTB
024 ,5P
E.DA,TEMPO
RS,TELCYL

EMT

[

490 006002

CLR
8158

000107
003666
000104
002367
002270
002272
002274
002360
006725
000011
000024

005674
005700
005704
005706
005710

005722
005726
005732
005735
005742
005746
005752
005756
0057¢€2
005766
005772
005774
005776

9-FEB-79

SeQ 0050

4«85 005670
005670

486 005714
487
488 005716
«89 005722

MACRO v03.01

;GET ADDRESS TO PRINIT
;PRINT

THE

ADDRESS

MACRO v03.01

006174
006200
006204
006210
006214
006220

0137406
013746
013746
012746
012746
012746

002170
002166
002164
002716
006406
000005

006226
006230
006234

104014
062706
000205

045
045

045
065

el
ikl
il
)
i
i
it
il
D
et
el
il

1})
YL
TEMPO,SEC
#177700,SEC
SUR
#100,E.DA
2%

.ASC l
LASC l
[ASC l
<ASC
L ASC
+ASC }
ASC
<ASC l

{

.ASC l

CYLINDER BITS

;GET SECIOR #
;SAVE ONLY THE SECTOR BITS
sINIT 10 HEAD O
SHEAD 12
:NO

SP.RO

STATMENTS

55 007335
5¢6 007342

116

ONLY

;FORMAT

FMT5:

;SAVE

($PN1B
#14,5P
RS

FMT6:
.ASC l
FMI7:
.ASC l
FMIT8:
.AS( l
FMT9:
<ASC
FMTI9A:
L ASC
FMI10: .ASCl{
FMTI10A: .ASC
FMT10B8: .AS( l
FMTI1:
_ASC l
FMT12:
LASC l
FMTI3:
_AS( l
FMT13D: ,ASC l
FMT14:
ASC l
FMT14A: _ASC ]
FMTILC: LASC l
FMT14B: L ASC ]
FMT1S5:
[ ASC l
FRMI16: ,ASC l
FMT18:
,ASC ]
FMIXS:
L ASC l

045

SEQ 0051

Em
ADD
RTS

MCvV

045
045
066
045
066
045
045
066
045
045
045
045
045
066
000
127
105

045
065
045
045
045
045
045
045
045
045
045
045
045
045
045
045
045
045

0465

2%:

1-13

SUR
s YUP
#177776.,SUR
#FMT3A,#DRVER.CYL,SUR,SEC(
SEC,-(SP)
SUR,=-(SP)
CyL,=-(SP)
#ORVER,-(SP)
NEMT3A,-(SP)
#5,-(SP)

FMTY:
FMI17:
FMTI1A:
FMT2:
FMI2A:
FMI3:
FMTI3A:
FMT4:

006541
006567
006603
006613
006651
006725
006761
007032
007040
007060
007070
007105
007132
007141
007150
007153
007215
007273

002166

045
045
045
102
045
101
045
045

527
528
529
530
531
53¢
533
536
535
536
537
538
539
540
541
562
5¢3
544

526 006525

002302

BCC
INC
MOV
BIC
CLR
811
BEQ
INC
BIC
PRINTB
Mov
MoV
MoV
MOV
MoV
MOV

124
124
124
101
126
101
116
116

045
045
045
045
045
045
045
045

1$:

000014

520
521
522
523
524
525

006236
006260
006273
006302
006323
006345
006406
006472

002170
002170

#177,0vL
cvL

e g g g

002166
177776

010600

8IC
SWAB
cLe
ROL

g g g g g gP P

002164
002224
177700
002166
000100

005237
042737

006224

002164

507 006162
508 006166
509 006174

005237
013737
042737
005037
032737
001405

000177
002164

P P

006126
006132
006140
006146
006152
006160

042737
000337
000241
006137
103002

— et OQO st et =t NUNUNUNY = NN OO NNV
OOttt
YO SN

501
02
503
504
505
506

006104
006112
006116
006120
006124

—

696
697
498
499
500

19:33:19 PAGE

ERROR MESSAGES

9-FEB=79

g N P

EXER

g g Py Py g g P

PERF

P P P

{IRLKAD RLOY/2

IRTRI2XARI2%A:
%22/
/21%206%1X01/
/XTXTAN/
/XABEFORE ERRXTX06/
/RTX06XTX06XTX06XN/
/ZAAT ERR
LTX06XTX06XTX062TX06/
/INXTRIA ADDR = CYL: XZ3%A. SUR: XO1XA SECT:

XZ2XA.XN/
/ANXTRO6XTXO06ANXTR06XTX06XN/
/RTR06XTXTIN/
/RTX06%TX06XA OR XO06XN/
/RTRA = XTAIN/
/XD6RTAIN/
/RTRI2RA:R22%A:XZ2XTX06XTX0
1IN/
/XD6XA. WORDS BAD OUT OF XD6XA., WORDS READXN/
/RTRL2XA:R22%A:X22%1X0621%01/

/RTRO6XTRO6XINXTR06RTXO6XA AT BUS ADDRESS /
/R06XN/
/31202%TX06%7%03/
/RTR06XN/
/RTRO6XTRO6IN/
/RTVILXA NOW 1S XZ4LAN/
/ANXTAN/
/R06%A /
/AN/
7XAWORD XD3XA. S/B8 X06XA WAS X06IN?

/XAERROR(S) SET:XTANXARECOVERY BEING ATIEMPIED/
/XANOT TESTING (S- X06%A DR:= XOV1IN/
/AINYTY
/ANXAXFER S]/E
XZ6%A, WORDSIN/

fi.]

CIRLKAD RLO1/2 PERF

572
573
574
575
576
577
578

579
580
581
582
583
584 010244
585
586 010244
010244
587
588 010246
586
590
591
592
593

594
995
596

597
598

599

600
601
602
603

9-FEB=-79 19:33:19 PAGE

4
1-14

o
)
)
i
il
el
b
i

045
045
045
045
045
045
045
045
045
045
045

SEQ 0052

—

57 007401
58 007464
549 007504
5950 007537
591 007552
992 007603
593 007672
954 007727
995 010036
956 01007%
557 010166
558
562
563
564
565 010226
566
567 010226
568
569 010226
010226
570
571

MACRO v03.01
OCOO—=O0OON OO
-

ERROR P SSAGES

EXER

065
052
052
0645
060
126
127

045

110
106
106

FMIST:
FMISTA:
FMISIB:
FMIS2:
FMIDT:

_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

/ININXS10ZAeee RLOV-RLO2 PERFORMANCE
/%Aeee RUNNINGIN/
/XAeee DROPPED
X22%A:%22IN/
/%T1%05%05%IN/
/%A DRIVE TYPE = RLOXOVIN/

REPORT

FMTIS3:

_ASCIZ

/XINXAERRORSINIADRV-ER:XD6XA

ID6XA

FMIS2A:
FMIS2B:
FMTIS3A:
FMISG:
FMTISS:

_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ2
_ASCIZ

/XATOTAL SEEKS:
/ZAWORDS WRITTEN:
/XAHARD:
/7%ADCK:
/3ADLT:

XD6XA
A06XA
ID6IA

X06XZ3INXAWORDS READ:
XIDOXZGTZGIN/

SEEXK:

ID6IN/
XD6XA
NXM:
ID6ININ/

INOGLA

eeeININ/

XD6XI4LX74XN/

TRACK:

XDO6XA

HNF :

DATA:

ZXDoXN/

IDOHIN/

.EVEN
ENDMOD
BGNMOD

000006

BGONHW

174400
000160
000240
000001
000000
00000

HPTCODE

.WORD

L10013=L $HW/?

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

174400
160
240
1
0
1

ENDHW

£L10013:
ENDMOD

000040

000001
000003
000003
060650
023420
001320
000020
000003
000000
002400
000100
000000
177600
000000
000000
000000

LSBTTL

SOFTWARE PARAMETERS

BGNMOD

SPTCODE

BONSW

)

LWORD

LIMIT:

.WORD

ERLMT:
SELMT:
DALMT:
SKLMT:
TYINT:

CMRD:
DELMT:
XCHFLG:
T.MXB:
T.MXH:
T.MNH:
T.MXC:
T.MNC:
T.MXS:
T.MNS:

L10014-1L98SW/2
1

,WORD
.WORD
_WORD
_WORD

3
3
25000.
10000.

.WORD
.WORD
.WORD

16.
3
0

_WORD

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

720.

1280.
100
O
177600
0
0
0

JRETRY LIMIT

;ERROR LIMIT
JSEEXK ERROR LIMIT
;DATA XFER LIMIT («(10+3))
JSEEK LIMIT
;TIME

INTERVAL BETW/

(BITS)

STATISTICAL

;WORDS TO COMPARE ON READ
:ERRORS TO REPORT ON DATA (OMPARE
;CHANGE OTHER PARAMETERS
;MAXIMUM
JRAXIMUM
;MINIMUM
JMAXTMUM
JMINIMUM
;MAXIMUM
JMINIMUM

R/W TRANSFER BUFFER
HEAD SELECT
HEAD SELCCT
CYLINDER
CYLINDER
START SECTOR
START SECTOR

REPORT

(12 HWRS)

CIRLKAG RLOY/2 PERF EXER
SOF TWARE PARAMETERS

604
605
606
607
608
609
610
611
612
613
614
615

616
617
€18
619
620
621

010306
010310
010312
010314
010316
010320
010322
010326
010326
010330
010332
010334

010336
010340
010342
010344

000001
000001
CO00003
000012
000000
000003
0000GJ
000001
000004
000001
000200
000000

MACRO v03.0V

SFLMT:

T.STA:

DRLMT:
T.ROF:
T.RAN:
T.PAT:
T.5LT:
T.CLT:

T.AUT:

000000
000001
000012
000001

.ol

LR,

9-FEB-79

1.0(k:
T.DRP:
T.MNB:

T.5T1P:
T.W(K:
1.07D:
T.ANS:

010346
010346

622
623 010346
624
625 (10346
626
627 010346
010346
010350
628
629 010352
630
631
632
633 010352
634
635 010352
636

-l

19:33:19 PAGE

.WORD
.WORD
.WORD

1
1
3

_WORD

.WORD
.WORD
_WORD
.WORD
,WORD

0
1
4
1
128,

_WORD

.WORD

,WORD

.WORD
.WORD
.WORD
.WORD

ARy

VRS

AR
« ARy

SEQ 0053
;DATA DUMP ON DATA (HECK ERROR

10.

0
1
10.
)

;DROP ON LIMIT REACHED
;MINIMUM BUFFER TRANSFER SIZE
sSOFT ERROR Lim]7
;DROP DRIVE ON PERFORMANCE REACHED
sDRIVE ERROR LIMIT
SREAD ONLY FLAG
sRANDOM SELECT

PATTERNS

sONLY ONE PATTERN

& = WORST

sSEEK RETRY LIM]T
;NUMBER OF ERRORS ON DCX DUMP
;AUTO ON START UP
;RESTRICT

BUFFER

;D0 WRITE CHECK

SIZE

L10014:
ENDMOD

DISPAT(CH

000001
013152

DSPCODE

.WORD
.WORD

1
18

ENDMOD
.SBTTL

STATISTIC

BGNMOD

RPTCODE

CODE

BGNRPT

638

007401
000001

639
64? 010372
64

642
643
644
645
646
647
648
649
62?

010446

010374
010400
010404

012704
005764
001402

026514
000104

010606

004737

012442

0106412
010416
0106422

062704
020427
0C1366

000126

652 3106424

012604

027774

1$:

2%:

¢PRINT STATISTICAL HEADER

PRINTS
MOv
MOv
Mov

WFMTSI
#FMIST,-(SP)
#1,-(SP)
SP,RO

ADD

¥e,SP

MOv

R4 ,=(SP)

:SAVE PRESENT VALUE OF

MOV

#DRBUF ,R4

;START OF DR]IVE BUFFER

BEQ

EMT

000004

1§17

CSPNTS

DCS(R&)

JSR

PC,REPORT

ADD

#PRPOS+2
R4

BNE

(mp

MoV

1-19

ENDSW

BGNMOD

;1S

THERE

A DRIVE?

:NO, GET NEXT ONE

; TYPE OUT SUMMARY

;NEXT DRIVE

R4, #ENDBUF

;AT

(SP)+ R4

;RESTORE R&

;NO,

THE

END?

TRY NEXI

R¢

(CASE

OTM

CIRLKAQD RLOV/2 PERF
STATISTIC CODE

653
656
655 010426
010426
010426

656
657 010430
658
659
660
661 010430
662
663 010430

MACRO v03.01

EXER

666

010430
010434

667 010436
010436
668 010440
669 010444
670 610450
671 010454
672 010460
673 010466
674
675
676
677
678
679
680
681

682
683
684
685

010470
010474
010500
0
0
510
0
512
0
51¢
522
0
0
0
560
0
0
0
0
0
0

686
687
688
689 0
690 0
691 0
692

693
694
695
696
697
698

0
0
0
0
0

612
010616
699 0

1-16

SEQ 0054

ENDRPT

L10015:

106025

Ent

(SRP1

ENDMOD
.SBTTL

INITIALIZATION CODE

BGNMOD

INITCODE

;START

INITIALIZE

BON:N]T

664

665 010430

9-FEB-79 19:33:19 PAGE

012700

SETPR]I

000340

MOV

005037
005037
005037
005037

000050
002356
002332
002334

BRESET
EMT
CLR
CLR
CLR
CLR

012700

000034

[ [0}

106061

104033

104050

103076
005237
012704
012702
130237
001446

EMT

READEF

BCC

INC

MOV

11%:

000104

12%:

000012

012737
004537
000137

003737
021502
010626

004537
004537
005064
005064
005064
005064
005064

022406
023752
000056
000036
000076
000052
000114

002132

MOV

OPFLG
INCALL
STFLG
CNTFLG
#EF.PWR

WEF .PWK,RO
3%

PWRFLG

#DRBUF ,R4

#1,R2

[ [o]"]

DRSEL (R4) ,RO

13%

BIS
MOV

#200,R0
RO,aDCS(RG)

BIT
BNE

#1,aDCS(RG)
15%

MoV

#60. ,R1

WAITMS
MOv
EMY
DEC
BNE

#10.
#10.,RO
(SWTM
R1
12%

MOV

INOPWR ,WHY

JSR
JSR

RS, 1SDRST
RS ,HDHOME

CLR
CLR
(LR
(LR
(LR

CPU'S

; CLEAR CONT

R2,DRUT

BEQ

TO SEVEN

;FOR LSI-11

CSRESET

BI18B

JSR
JMP

15%:

;PRIORITY

($SPRI

EMY
CSREFG
BNCOMPLETE

002326
026514
000001
002136

000106
000200
000194
000074
000001

#340

#340,R0

RS ,DRDRV
13%

PRELGS (R4)
RETRY(R4)
DOWCK (R&)
RTYPE (R4)
RSEEX (R4)

;INDICATE POWER FAJL

CODE

CIRLKAQ RLOY/2 PERF
INITIALIZATION (ODE
010626
010632
010634
010636
010642
010644

010644
010650
706 010652
010652
707 010654

103323
005737
001406

002314

0127G)

000001

104034

002266
011712

010664
010670
010672
010672

012700

000036

010674
010700

005237
000137

002334
011236

004537
012737
012737
012700
005020
020027
001374

025256
176543
123456
002176

012704
012702
013703
010337
005001
005703
001524

026514
0256446
002012
002324

—-—

13¢:

4%:
3%:

103004

002144
002146

00233¢

1%:

1-17

#1,R0

REQTIM

EMT
MOV
JMP

READEF
MOV

CSKWON

CSREQTIM
RO,LSTTINM
POWER

W#EF .CONTINUE
#EF .CONTINUE
,RO

1%:

002254
002176
002250
002176

002210

002250

002316
012206

002226

2%:

;NO, CONTINUE W/ INIT CODE

(NTFLG
END

;YES SET (ONT FLAG, GO TO END OF

JSR

RS,CLEAR

;CLEAR ALL DRIVE BUFFERS
:PRIME RANDOM GENERATOR

#176543 ,HINUM
#123456,L0NUM
#CNTLRI,LRO
(RO)+
RO,#STFLG*?
CLRDAT

Mov

#DRBUF
R4

[ [0]]

R3,uUT

#BSECO,R?
LSUNIT,R3

R1
CLR
181
R3
BEQ
END
GPHARD
R1,RO
MOV
R1,RO
EMT
CSGPHRD
BNCOMPLETE
12%

BCC

002212
002206
002210
002206

:CONTINUE FROM CONSOLE?

INC
JMP

MOV
MOV

L
N =2 L A

#PRPOS+2,R4
R2
11%
SYSCLK
48
#1

[ [o]"]

MOV
MoV
MOV
2%:
CLRDAT: CLR
CMP
BNE

NN N —

NNO NN NNNN = NNNNNNN

NNOO\h\AwaNN——-Og
Yo o
[+ JaYe Yols Jal VP Y. ¥ JoP

OOO0OO0OOOODOOODOOOCOO

AN AN WY N = L Ll LN

ADD
ASLB
BCC
181
8EQ
CLKON

EMT
(SREFG
BNCOMPLETE
1%
8CC

104042

9-FEB-79 19:33:19 PAGE

EMY

010100

D
il
wd
il
e
el
i
il
i
el
il
il
e
—

104050

£SO = i =2 LN N AN U = N —2 N PO NN N
WMWNONONNNNONOOOOO
—

-l

—-—

OO0 NO NS (N —

gl o

NN NSNNN YN

747

000126

104045
010037
000137

708 010660
709 010664

745
746

MACRO v03.01

SEQ 0055

062704
106302

OOOOOOOOOOOOOOOOOOO0O
—

700
701
702
703
7064
705

EXER

MOV
MOV
MOV
MOV
MOV
TSt
BNE
MOV
MOV
MOV

C(Mp

BNE

12%

(RO)+,BCSR
(RO)+ ,BVEC
(R0O)+,BPRIOR
(RO)+,T.DRIVE
(RO) ,BDRSEL
(NTLRI
2%
BPRIOR,PRINRY
BCSR,CNTLRY
BVEC,VECTI

BCSR,CNTLRI
5%

(MpP

BVEC,VECT

MOV
JSR

#BUF
1, TEMPI
RS,FILING

BNE

10%

‘CLEAR f LAGS
TMASS CL EAR
sSETUP UP DRIVE BUFFER POINTER
;SETUP BAD SECTOR POINTER
;GET NUMBER OF UNITS
;SAVE LSUNIT
JINIT P- TABLE
P-TABLES LEFT?

s ANY

;NO,GO 1 0 END
;GET A P-TABLE

JGET (SR
:GET VEC TOR
;GET BPR I0R

;GET DRI VE
;D0 WE HAVE (SR 1 YET?
sYES,THE N SEE If IT7'S IT
;s NO,MAKE

THIS ONE

CSR

;MAKE THIS VECTOR VECT
1S THIS CSR (NTLR1?
;NO,GO C HECK AGAINST #2
;1S VECT OR PROPER?
;NO, REPORT ERROR
;FIRST

CONTROLLER/FIRST

JFILL BUFFER

BULFFER

INIT

CZRLKAQ RLOV/2 PERF EXER
INITIALIZATION (ODE

002200

762
763
764
765

011174
011202
011206
011210
011210
011212
011214
011216
011220
011224
011226
011230
011234

761 011172

766
767
768
769
770
77
772
773 011236
774
775 011236
776 011244
777 011252
778 011254
779 011262

780 011270

781 011272
782 011300

000240
003626
005234
005064
005201
005303
062702
000652

012737
023727
003012
052737
023727
003003
052737

011306

103006

011324
011324
011330
011332
011336
011340
011344
011350
011354
011354

1-18

002206
002210
002212
002206

002200
002252
002256
002200

002210

002252

002250

002320
012206

002226

6%:

;GO GET NEXT P-TABLE

6%
VECT1,BCSR
10%
BCSR,CNTLR?
BVEC,VECT?

;YES, CHECK THIS ONE AGAINST 1
;1S THIS VECTOR SAME AS CNTLRI1
:1FSO, DON'T ALLOW IT
;MAKE THIS ONE CSR 2
sSETUP SECOND VECTOR

(mpP

BCSR,CNTLR?

;1S THIS CSR ¥ 2?

(mp

BVEC,VECT?

MOv

#BUF2,TEMPI

;DOES |7 HAVE PROPER VECTOR
:NO, GO REPORT ERROR
;1S VECTOR OF FIRST EQUAL TO
:VECTOR OF SECOND, YES REPORT ERROR
sOTHER CNTLR/OTHER BUFFER
;LOAD BUFFER
SNEXT
:BAD P-TABLE

187

BNE
(mp
BEQ
MOv
MOV

MOV

BNE

BNE
(MP
8EQ

10%:

JSR
BR
ERRDF
TRAP

.WORD

WORD

000104

000042

.WORD

(NTLRZ

BPRIOR,PRIORZ

109
VECT2,VECTT
108
RS, FILINF
11%
160.,]LLEG,ERRIO
TSERCODE

WELL WE

CSR #2 YET?

DON'T

ALLOW 3

ILLEG

ERR10

DCS(R&)

ADD

#36. ,Re

MOv
(mpP
BGT
BIS
(mp
BGT

#177770,SYSMSK
uuT, #4
2%

READEF

#EF.START

sNO,

GOT

160

(LR

INC
DEC

;HAVE WE

R1
R3

;POINT TO NEXT
;DOWN COUNT
;NEXT BAD SECTOR FI.E
;DO WHILE

END:

012700

784 011310
785 011314
786 011320

002206

104462

01130¢
011304

783 011306

787
788
789
790
791
792
793
794
795
796

000406

002250

011112
011120
011122
011130
011136
011144
011152
011154
011162
011164

5%:

—_—

751
752
753
754
755
756
757
758
759
760

=t AN =2 NN
NN

750 011110

9-FEB-79 19:33:19 PAGE

SEQ 0056

i A

748 011102
7649 011104

MACRO v03.01

104050

002324

177770

002142
000004

000004
002324

002142
000002

000002

002142

000040

005237
005037
005037

002332
002160
002174

005737
001047
005737
001420
005037
005237
005037

002334

012746

004254

002160
002160
002174
010262

2%:

¥4 ,SYSMSK
uuT,#2

BIS

2%
#2,SYSMSK

MOv

MEF .START,RO

EMT
CSREFG
BNCOMPLETE

:MORE

EIGHT DRIVES
FOUR
MASK 1S OKAY
FOUR DRIVES

THAN TWO

JYES, IT°'S OKAY
JSET FOR ONE OR TWO
;START (OMMAND
sNO,

CHK

RESTART

BC((C

RESTARY

(LR
(LR

WRINIT
Kitedc

STFLG

;SET START INDICATOR
;CLEAR THE WRITE INIT rLAG ON START
;CLEAR DATA (OMP FLAG ON START ONLY

187

CNTFLG

151

WRINIT

sCONTINUING
;YES GO 10 3%

INC

RESTART:

RESTART

sSETUP FOR
;MORE THAN
JYES, THEN
;SETUP FOR

BNE

BtQ
CLR
INC

119
WRIN!T
KILLDC

MOV

#NORDDC,~(SP)

CLR
C.INTF

(MRD
#FMT18,8NCRDDC

:lg PROCESS OF
:N

INITTING THE

PA(K?

JYES = CLEAR THE FLAG
JINMIBIT DATA (OMPARES:
sAND SET DAY COMPARE 10 0 WORDS
JTELL OPR PACK NOT INjTTED YET

CIRLKAQ RLOY/2 PERF EXER
INITY IALIZAT]ION CODE

012746
012746
010600

104017
062706

MACRO v03.01

007335
000002

9-FEB-79 19:33:19 PAGE
Mov
MOV
MOv

NEMTI8,-(SP)
#2,-(SP)

ADD

#6,5P

EMt

000006

1-i9

SEQ 0057

SP,RO
CSPNTE

;LET®S CREATE INTERNAL BITMAP
000001
002137
026514
000104

11%:

CLRB

1%:

002137

011430

011434
011440

022704
001365

011442

113737

~NO

BUFFERS

:NO, NO DRIVE THEN
;INDJCATE DRIVE IN BITMAP
sNEXT POSITION
;NEXT DRIVE BUFFER
s DONE

;NO

DRPRS,DRUT

;SET UP DRIVES UNDER TEST

SETVEC

VECT1,#INTRT,PRIORI

;SET CONTROLLER 1'S VECTOR

002200

1§17
BEQ

CNTLR?

;RUNNING
:NO

TWO

013746
012746
013746

002256
015346
002252
000003

VECT2,#INTR2,PRIOR?

sYES

CONTROLLER

MOv
MOV
MoV
MOV

000010

ADD

CSSVEC
#10,SP

181

CNTFLG

012746
104037
062706

&5£0O

OSSOSO
SNS

DRIVE

005737
001412

W N T, N
LY

MOvB

#PRPOS+?2,R4
7§NDBUF.R4

(SR?

#10,SP

WM
ol o

002136

R1,DRPRS
R1

sSTART

ADD

012700

W 3V

(MP
BNE

:ANY

#DRBUF ,R&

000010

005737
001462

O NN

ADD

DCS(R4)

MOV
MOv
MOV
MOv

005737
007412

(W 2O TV LV LW

—

s
—ad el
el
-

—td
i e
b
s

—

OO0
OO0
COOO0OO0OO0O

151
BEQ
B1SB
ASL

;BIT MASK
;CLEAR OUT DRIVES PRESENT

002254
015336
002250
000003

(W RV ]

[

)

OOCO0OO0OOO

(U RU SV TN AV AV 1%

NN
=2 -2 OO

OO0

O 9o O O

A AN

827
828

Mov

f LRI
DRPRS

1%:

011450
011450
011454
011460
011464
011470
011472
OO

s aed e

0o 0o 0o 00 OO

011450

821
82¢
823
824
825
826

2%:

000126
027774

002137

Mov

1064034

106045

010037
000453

002334
002314

000001

002266

EM1

SETVEC

EMT

4%:

BEQ
151

130

PRIOR1,-(SP)
FINTR1,=(SP)

VECT1,=(SP)

#3,-(SP)

CSVEC

PRIORZ,=(SP)
#INTR2,-(SP)

sNO,

SYSCLK
POWER

;NO

(SREQTIM

;CONTINUE?

f INDBF

EM1

MOV

VECTOR

(LOCK

#3,-(SP)

"
’ RO

EMT
REQTIM

2'S

VECTZ2,-(SP)

MOV

CLKON

SET

CONTROLLERS?

GO PAST

;D0 WE HAVE SYSTEM (LO(K

;TURN CLK ON

($KWON
RO

JREQUEST T]ME

RO,LSTTIM

;MAKE

POWER

RESTART

PRESENT

;00 10 END

T[Mt

CIRLKAQ RLO1/2 PERF EXER
INITIALIZATION CODE

83
835
836
837
838
839
840

011564
011570
011572
011576
01147

012703
005001
005737
001402
012707

000050
)
002¢00
0000264
000024

011604
0116')
011610
011612
011614
011616
011616
011620
011624
011626
011630
011632

103411
005737
001601
005301
005301
162703

ggg 011640

000000

851
852
853
854
855
856
857

011642
C1l646
011650
011654
011660
011662
011664

042701
000301
010237
005737
001404
060102
010237

358 011672

010137

002322

012700

000001

841
842
843
844
845
846

ga; 011636

062701

MACRO v03.0'

010100
104030
010002

001364

9-FEB-79 19:33:19 PAGE

f INDBF: MOV
(LR
181
BEQ
MOV

1¢:
2%:

002200

000002

3%:

1-20

#60.,R3
R1
(NTLR?
1%
#20..R1

ADD
#20.,R1
BUFFER
RI1,R?
MOV
R1,RO
EM1
CSBUFt
MOv
RO,R2
BCOMPLETE
%
BCS
43
1S1
(NTLR?
8EQ
3
DEC
R1
DEC
R1
SUB
#2,R3

BNE

SEQ 0058

LMAXIMUM SECTOR 1S 40
;START W( AT ZERO
;TWO0 CONTROLLERS????
JNO, START WC AT 5120
:20 256 WORD BUFFERS (1

TRA(CKS WORTHN)
JMC TO S120 PLUS 5120 (1 TRK EA (ONTROLLER)
;GET BUFFER IF AVAILABLE

;WAS AVAILABLE,
;TWO
sNO
;ONE
;ONE
;256
JIF

THEN BR

CONTROLLERS???

256 WORD BUFFER LESS
MORE LESS
WORDS = 2 SECTORS

NOT

ZERD GO BA(K

858 011670

006201

HALT
177400

BIC
SWAB
MOV
1S1
BEQ
ADD
MOV

#177400,R1
R1
RZ,BUF1
(NTLR?
5%
R1,R?
R2,BUF?

5¢:

MOV

R1,MAXWC

:MAX WORD (OUNT

7%:

CLKON
MOV

#°
#1,R0

;TURN (LOCK ON?

002316
002200

002320

ASR

;GET BUFFER FOR FIRST
:TWO CONTROLLERS??
:NO
;SECOND'S BUFFER

C(ONTROLLER

:CORRECT WORD COUNT

10403«

865 011704

103002

86? 011706
86
868 011712

005237

EMm1

002314

870
871

’s 011712

104011

L10016:

g;z 011714
876 011714
877
878
879 011714
880
881

011714

BCC

POWER

INC

SYSCLK

POWER

JWAS

THERE

JYES,

SET

(LOCK?

FLAG FOR ONE.

POWER:

866

872 011712
011712

($XWON

BNCOMPLETE

ENDINIT
Emt

($IN]T

ENDMOD
BONMOD

(LNCODE
BONTLN
SETVEC

ERRVE(,BTRPHAN,#3G0

[

011702

Re4 001704

|S——

861
86?2
Bo3 011676
011676

CIRLKAQ RLOYV/2 PERF EXER
INITIALIZATION CODE

MACRO v03.01

011714
011720
0117264
011730
011734
011736
882 011742
011742
883 011746

012746
012746
013746
012746
104037
062706
012700
1040461

000009

884
885
886
887

011750
011756
011760
011766
011766
238 011772

032777
001774
042777

000200

170220

000100

170210

013700
104036

032250

889 011774
gg? 012000

005737
001412

00220C

892
893
894
895

012002
012010
G12012
012020
012020

032777
001774
042777

000200

170170

000100

170160

013700

002252

897 012026
898 012032
899 012036
012036
012042

005037
005037

002356
002354

013700
104036

002346

896 012024

104036

900 012046

005737

902 012052
012052
0% 012054

104035

901

012050

01205¢

904 012056

012056
905 012056

001401

9-FEB-79 19:33:19 PAGE

000340
012434
002346
000093
000010

1$:

2%:

002314

104033

L10017:

104012

906 012060
907
908
3?8 012060

BGNMOD

g}; 012060

BGNAU

913 012060
914 012064
915 012070
916
917
918
919
920

012072
012074
012076
012102
012104

SEQ 0059

#360,-(SP)
#TRPHAN,-(SP)
ERRVEC,=-(SP)
#3,-(SP)
CSSVEC
#0,SP
#PRIOO
#PR100,R0

811
8ta
BIC
CLRVEC
MoV
EMT

#CRDY,3CNTLRY
1%
#INTEN,SCNTLRY
VvELT
VECT1,RO
CSCVEC

;
JCLEAR INTERRUPT IF PENDING
JRELEASE VECTOR OF FIRST (ONTROLLER

TS7
BEQ

CNTLR?2
3%

:TWO CONTROLLERS
;NO

BIT
BEQ
BIC
CLRVEC
MOV

#CRDY,I(NTLR?
2%
NINTEN,CNTLR?
VEC(T?
VECT2,RO

JWALIT FOR OTHER CONTROLLER 0 FINISH
:
;CLEAR OUT INTERRUPT ENABLE
JYES, WELL RELEASE 1T1°'S VECTOR

(LR
(LR
CLRVEC
MOV
Em

INCALL
OPCALL
ERRVEC
ERRVEC,RO
COCVEC

8EQ

CLKOFF
EMT
BRESET

CSKWOFF

1S1

4%:

1-21

MoV
mov
Mov
MOV
EMT
ADD
SETPR]
MOV
EMT

Em1

3%:

T0 ZERO

($SPRI]
;WAIT

FOR CONTROLLER

TO FINISH

CS$CVEC

SYSCLK

EMT

(SRESET

tMT

(SCLEAN

ENDCLN

;PRICRITY

;TAKE

CARE OF

LSI-N

ENDMOD

012704
012701
910002

005700
001405
062704
006301
005300

026514
000001
1%:

000126

ADDCODE

MOV
MOV
MoV
151
BEQ
ADD
ASL
DEC

#DRBUF R4
#1,R1
RO,R?

RO
2%
#PRPOS*?,R4
R
RO

JSTART OF DRIVE BUFFERS
sMASK TO FIND DRIVE
;SAVE WHICH TO FIND
;THIS ONE
SYES
JNEXT
JNEXT MASK

CIRLKAQ RLOV/2 PERF
INITIALIZATION CODE
921 012106
922 012110
923 012114
012114
012116
012120
924 012122
925 012126
926 012132
927 01213¢
928 012136
929 012140
930 012142
911
932 012142
012142
012142
933
934 012144
935
936 012144
937
938 C12144
939
940 012144
941 012150
942 012152
943 012156
944 012160
945 012162
946 012164
947 012170

948

949 012172
950 012200
951 012204

EXER

000771
150137

MACRO v03.01

002136

2%:

010200
104042

010001
011164
012700
006200
00502¢
005300
001375

000104
000109
4%

5%:

104054

956
957
958
959
960
961
962
963
964
965
966

967
968
969
970

B8R
BiSB

1%
R1,DRUT
R2,R1
R2,RO

MoV
Mov
MOV
ASR
(LR
DEC
BNE

RO,R1
(R1) ,DCS(R4)

RO
4%

EMY

($AU

GPHARD
MOV
Eml

1-22

SEQ 0060

:INSERT

IN DRIVE UNDER TEST

CSGPHRD

#SERNM1
RO

;SETUP TO CLEAR STATS

(R4

ENDMOD
BGNMOD

DROPCODE

BGNDU

005737
001015
012704
005700
001404
005300
062704
000772

012737
004537

002356

187
BNE

026514

2%:

000126

003345
021476

MOV

151
BEQ

002132

1%:

3%:

INCALL

¥DRBUF
R4

RO
1%

DEC

ADD

953
954 012204
955

ENDAU

L10020:

952

012204
012204

9-FEB-79 19:33:19 PAGE

#PRPOS+2,R4

MOV
JSR

R5,0DRDRY

EM1

($0U

#REQ,WHY

ENDDU

L10021:

104055

012206

ENDMOD

012206

.SBTTL

GLOBAL

BGNMOD

GLBSUB

SUBROUTINES

:ROUTINE TO FILL DRIVE PARAMETER BUFFERS WITH INFO
012206
012214
012222

012224
01223%2
012240
012246

002214
000001

000106
002140

000002
002140
002206

002140
000120
000104
000110

002226

FILINF:

FILID:

MOV

(MP
BEN

MOv
MOV
MOv
MOv

BORSEL ,DRSEL (R&4)

;SET DRIVE SELECT BITS

FILTD

#2,1.0RIVE

JYES
:DRIVE IS AN RLO?

BCSR,DCS(RS)
TEMP1,BBA(R4)

;SET R/W BUFFER

M ,1.DRIVE

T.DRIVE,1DR(R4)

;DRIVE = RLO1?

;SET (SR

CIRLKAO RLOV/2 PERF

GLOBAL

SUBROUTINES

971 012254
972 012260

EXER

MACRO v03.01

9-FEB-79 19:33:19 PAGE

1-23

SEQ 0061

3;2 012264

010264
005737

001460

000112
010334

MOv
181
BEQ

R2 ,BSECPT(R4)
T.AUT
1%

;D0 WE AUTOSIZE?

975 012266
976 012272
012272
012276
012302
012306
012312
012314
977 012320
978 012326
979 012330
980 012332
981 012336
982 012342
983 012346
ggg 012354

005037

002330

012746
012746
013746
012746
104037
062706
005774
005737
001012
016400
052700
010074
032774
001021

000340
012434
002346
000003

CLR
SETVEC

TRPFLG
ERRVEC,#TRPHAN,#340

;CLEAR
TRAP FLAG
SETUP TO CATCH TRAP

986 012356
012356
012360
012364
012370
012574

005046
156416
016446
012746
012746

000107
000104
007273
000003

062706

000010

988 012410
989 012414
990 012420

005337
005064

002324
006104

002346

991

012626

013700
104036

062704

000126

1%:

994 012434
995 012440

005237
000002

012434

TRPHAN:

012400
012402
987 012404

012420
0124264

gg% 012432

010600
104017

000205

000010
000104
002330
000106
000200
000104
000001

000104
3%:

:NO,

SKIP

MOov
MOov
MOv
Mov
EM1
ADD
1S1
187
BNE
MOov
BIS
MOV
BIT
BNE

#340,-(SP)
#TRPHAN,-(SP)
ERRVEC,-(SP)
#3,-(SP)
CSSVEC
#10,sP
dDCS(R4)
TRPFLG
3%
DRSEL (R4) ,RO
#200,R0
RO,aDCS(R4)
#1,3DCS(R&)
2%

PRINTF
(LR
B1SB
MOV
MoV
MOv

#FRMT16,DCS(R4),<B,DRSEL+1(R4)>
-(SP)
DRSEL+1(R&4),
(SP)
DCS(R4) ,-(SP)
NFRMT16,-(SP)
#3,-(sP)

ADD

#10,sP

DEC
CLR
CLRVEC

uut
DCS(R4)
ERRVEC

;ONE LESS DRIVE NOW
;TAKE DRIVE OUT OF BUFFER
;RELEASE THE VECTOR

ADD

#PRPOS+2,R4

:UPDATE

MOV
EMT

2%:

sSETUP BAD SECTOR POINTER

MOV
EMT

RTS
IN(
RTI

;DID TRAP OCCUR
:YES IGNORE DRIVE
;YES, FIND OUT IF DR]VE
cHAS DRIVE READY POSTED
;1S DRIVE READY HIGH?
;YES, CHECK NEXT

SP,RO
CEPNTF

ERRVEC,RO
CSCVEC
RS

TRPHAN

POINTER

CIRLKAQ RLOV/? PERF

REPORY

ROUTINE

EXER

MACRO v03.01

9-FEB-79 19:33:19 PAGE

.SBTTL

REPORT ROUTINE

REPORT:

PRINTS
CLR
B1SB
Mov

5
SEQa 0062

000107
003666
000104
002367
002270
002272
002274
002360
006725
000011

MOov

MoV

MOov

MOV
Mov
Mov

il cd el

000024

b
)
) el
-l cd

)

-~ OV~

—

540
562
544
550

001417

005046
156416
005046
156416
012746
012746
010600

000010

1 2746
| 2746
1 0600
0 4016
6 2706

007464
000001

0 1 446
0 1 446
0 1 746
0 1 746
0 1 746
0 1 600
104016

000100
000102

S OO

062706
000410
O—=000

o
el
—

Hwer

104016

1$:

MOV
Mov

#2,-(SP)
SP,RO

ADD
151

#6,SP
DPHOUR (R4)

2%:

WFMIDT, .DR(R&)
TDR(R&4) ,=(SP)
#EMIDT,-(SP)

C$PNTS

;DO WE

sNO,

HAVE

#FMTS1B,<B,DPHOUR(R&)>,<B,DPMIN(R4)>
=(SP)

DPMIN(R4L), (SP)
=(SP)
DPHOUR(R4)
, (SP)
#EMTS1B,-(SP)
#3,-(SP)
SP,RO
CSPNTS
#10,SP

PRINTS
MOV
MOV

WFMTS1A
FEMTSIA,-(SP)
#1,-(SP)

ADD

N ,SP

PRINTS

#FMTS2 #CART,SERNM2(R4) ,SERNMI(R4)

Mov

NEMTS2,-(SP)

MOV
MOv
MOv

MOv

MOv
EMT

:PRINT

‘rev

RUNNING'

SP,RO
CSPNTS

SERNM1(R4) ,-(SP)
SERNM2(R4) ,-(SP)
#CART ,=(SP)
#6,-(5P)

SP,RO
CSPNTS

ANY

DROPPED

THEN PRINT RUNNING

THE TIME THE DRIVE WAS DROPPED FROM TESTING

MOv
EMT

000004

002476
007537
000004

#24,SP

BISB
CLR
B1SB
Mov
MOV
MOV
EMT
ADD

000076
007504
000033

SP,RO

ADD

PRINTS
(LR

000071

SECOND,-(SP)

MINUTE,-(SP)
HOUR,=(SP)
#TIME,-(SP)

CSPNTS

BEQ

:PRINT

#MRLCS,~(SP)

EMT

000006
000070

DCS(R&) ,=-(SP)

#EMT10,-(SP)
#1,-(SP)

PRINTS
MOV
MCv

000120
007552
000002

W#FMT10,#TIME,HOUR,MINUTE,SECOND
,#MRLCS,DCS(RS) ,#DRNM, <B,DRSEL*1(R&)>
=(SP)
DRSEL+1(R4),
(SP)
#ORNM,~(SP)

Mov
Mov

MOV

)

D o

el e

elelelololololololololalolalololololalolele
oY)

;ROUTINE TO PRINT STATISTICAL REPORT OF DRIVE(S)

TIME

CZRLKAQ RLO1/2 PERF

REPORT

ROUTINE

016446
016446

000002
000004
000060
000054
000000
007603
000006

VAL S NWNIANNININ
= s O

000012

000016

000006
000010
000062
007672
000004

NN o> OO

062706

Sf£00 HsNNOSOSrOSrOOC OSSO b

~N~ NN NNNNNNSNNNNSNNNNN

NI NI NI N

17 012670

000012

000074
000072
000016
000020
007727
000005

000

000014

20 013030

000014
000012
010036
000002
000010

21 013060
)

000032
000034
000024
000022
010073
000005

S BB RNNNVNN
=
= OO
SOOI OOOrNNOSO

D
el
—d
=l
ol
o
ol
el cwd
o
)

0
0
0
0
0
20
0
0
0
0
0
0
0

——

0
0
0

MACRO v03.01

EXER

000014

000030
000026
010166
000003
04016

000010

9-FEB-79 19:33:19 PAGE 2-1
ADD

#2,sp

PRINTS
MoV
MoV

#FMTS2A,SKCNT(R&L)
,SKCNTT1(R4) ,RXFR3(R&) ,RXFR2(R4) ,RXFRT(R4)
RXFR1(R&),~(SP)
RXFR2(R&4) ,-(SP)

Mov
mov
MOv
MOV

SKCNT(R4) ,=(SP)
FFEMTS2A,-(SP)
#6,-(SP)
SP,RO

ADD
PRINTS
Mov
Mov

#16,SP
W#FMTS2B,WXFR3(R4) ,WXFR2(R4G) ,WXFRT(R&)
WXFR1(R4),-(SP)
WXFR2(R&4),-(SP)

MOV
MOV
MOv

FFMTS28,-(SP)
¥6,-(SP)

MOv
MOV

EMT

MOV

EMT

ADD
PRINTS

MOV
MOV
MOV
MOV

MOV
MOV
MOv
EMt
ADD
PRINTS

RXFR3I(R4),-(SP)
SKCNT1(R4) ,-(SP)

CSPNTS

WXFRS(R4) ,-(SP)
SP,RO
CSPNTS

n2,SP
#FMIS3,DERCNT(R4),SKECNT(R4),TRERR(R4)
,DATCER(RS)
DATCER(R&L) ,=(SP)
TRERR(R4) ,-(SP)
SKECNT(RL) ,-(SP)
DERCNT(R4) ,=-(SP)

NFMTS3,-(SP)
#5,=(SP)
SP,RO
CSPNTS
#14,5P
#FMTS3A ERRCNT(R4) ,SFTUNT(RS)

Mov
MOV

SFTCNT(R4) ,=(SP)
ERRCNT(R4) ,=(SP)

MOV

¥EMTSL,=-{SP)

MOv
MOv
Mov
EMT
ADD
PRINTS
MOV
Mov
MOV
MOV

MOv
MOV
EMT
ADD
PRINTS
MOV
MOV

MOV
Mov
MOV
EMT
ADD

FFEMTS3A,=(SP)
#3,-(SP)
SP,RO
CSPNTS
#10,5P
WFMTS4&,DCRCER(RL)
,HCRCER(R4) ,NXMCUNT (R&) ,HNFERR(RG)
HNFERR(R4} ,-(SP)
NXMCNT(R4) ,=(SP)
HCRCER(R&L) ,-(SP)
DCRCER(R4L) ,-(SP)

¥5,-(SP)
SP,RO
CS$PNTS
#14,SP
W#FMTSS,DLTCNT(R&),OPICNT(R4)

OPJCNT(R4) ,-(SP)
DLTCNT(R4) ,=(SP)

NEMTSS,-(SP)
#3,-(SP)
SP,RO
C$PNTS
#10,5P

SEQ 0063

CIRLKAD RLO1/2 PERF

REPORY

ROUTINE

52 013150

25
gg 013192

EXER

000207

MACKO v03.01 9-FEB-79 19:33:19 PAGE 2-2

RTS

ENDMOD

SEQ 0064

CIRLKAG RLOV/2 PERF

PROGRAR MAIN LOOP

EXER

MACRO v03.01

9-FEB-79

.SBTTL
BONTST
STARS

2 013152
3 013152

19:33:19 PAGE

SEQ 0065

PROGRAM MAIN | OOP

:PROGRAP WiLL RANDOMLY PI1(K ONE OF THE DRIVES 10
;PERFORM AN OPERATION.
WE WILL ALWAYS PJCK ONE OF FOUR
;OR EIGHT DRIVES (ONE OR TWO CONTROLLERS) °'‘DRUT'' wliLL BE
;CHECKED 10 SEE IF DRIVE IS ON SYSTEM.
ONCE DRIVE 1S PICKED
;THEN A FUNCTION WILL BE SELECTED RANDOMLY FOR THAT
;DRIVE.
FUNCTIONS OF CONTROLLER RESET, GET STATUS, SEEK, READ, WRITE
JWILL BE SELECTED, EACH FUNCTION WILL MAVE IT°'S OWN ROUTINE

4
8

9
10
"
12 013152

g}gngf‘

PARAMETERS FOR THE

DRIVE.

:.""."."""""".""""'"'""'l.l'l"l"l."""""t"'

13
164
15
16
17
18
19

20
21
22
23
sg

013152
013152
013156
013160
013164
013170

00573%7
001407
01373¢
013701~
005237

013174
013176
013202
013206
013212

000410
012704
012701
010437
010137

26 013216
gg 013222
29 013224
30
31
32
33
36

PWR

Mov

WRINIT, RS

JYES - RESET

16%

MOV
INC

FAIL

WRPOS,R1
STFLG

;AND R1 POINTERS
JFAKE OUT THE START

JAND CONTINUE WRITE

DURING WRITE

fFLAG

INIT

#DRBUF R4
#1,R1
R&,WRIN]T
R1,WRPOS

;GET DRIVE BUFFERS
:MASK
;COPY THE R4 AND
;POINTERS

130137
001442

002136

16%:

8118

R1,DRUT

:DRIVE

UNDFR

012774

000200
000106
000G00

000104
000104

MOV

#200,aD0CS(RG)

;CHECK

DRIVE

THERE

000001

000104

FOR

DRIVE

TO BECOME

002132

002526
021502

004537
005064

020636
000056
000114
000122

001006

13%:

AFTER

;NO

MOV
MOV
Mov
MOV

0127%7
004537
000416

013304
013310
013314
013316
0133522

;HERE

161%

161%:

37 013260
318 013266
38 013272

6%
46
6«5
«6
ég

WRINIT

026514
000001
002160
002162

056474
012700
005300
001376
032774

41 013274
42 013300

157

B8tQ

002160
002162
002332

013232
013240
013244
013246
01325C

§S 013256
6

MTEST:

002160

005064
005754
001003
005737
001402

14%:

BEQ

JNO

BIS
MOV
DEC

DRSEL
(R4) ,aDC(S(R4)
#0.,R0
RO

JSTALL

817

#DRDY,aD(S(RG)

JWAIT

BNE

14%

JAFTER

THE

MOV

NONRDY ,WHY

;60 GEY

BAD

BNE

13%

JSR
BR

RS ,DRDRY
15%

JSR
(LR

RS,RDBDSC
PRFLGS(R4)
RSEEXK (R4)

(LR

151

WRIPG(R4G)

BEQ

19%

BNE
1581

002332

15%

99%
STFLO

SSEE

JJUMP

TEST

HEADS HOME

SET

IN PROGRESS FLAG SET

gg 013324

004537

022562

99% :

JSR

RS ,WRPACK

51 013330
52 01333«

062704
010437

000126
002160
002162

15%:

ADD
MOV

¥PRP0OS+2 R4
R&,WRINIT

JNEXT DRIVE
;SAVE (URRENT R4 POINTER

55 013346

10332%

;NO GO FOR NEXT ONE

5% 01330
54 01334

006337
106301

ASL
ASLB

B((

WRPOS
R1

JAND SHIFT
;DONE?

'READY'

COMMAND

SECTORS

IF WRITE
TF

CODE

COPY OF

POINTER

CIRLKAD RLO1/2 PERF

PROGRAM MAIN LOOP

EXER

MACRO v03.01

9-FEB-79 19:33:19 PAGE

3-1

SEQ 0066

cHERE WHEN ALL FINISHED WITH THE WRITE

372

005037

002160

012746
012746
012746
010600
106017
062706

004216
007132
000002

012700
104041
004537
013702
043702
012701
005702
001403
006301
005302
000773
105737
001005

000000

12%:

(LR
PRINTF
MOv

WRINIT
WFMT14,MMSTART
MMSTART,-(SP)

Mov
MOv
EMT

#2,-(SP)
SP,RO
CEPNTF

MOv

000006

022464
002146
002142
000001

MAIN:
PEROTH:

¥6,5P

MOV
EMT
JSR
Mov

#0,R0
($SPR]
RS,RAND
LONUM,
R2

1$:

2%:

002136

BIC

MOV
187

013452

000252
003654

013454

000137

026506

013460
013464
01346€

0061750
010137

130137

002136

002134

SYSMSK,R2

f,RY
R2
2%

;GET A DRIVE?(LUN)
;GET THE SELECTED DRIVE
;MASK

(W AV
NN

023630
002264

;LET'S SEE IF DRIVE IS THERE

1ST18

DRUT

;ANY

170.,NODRIV

;NC DRIVES

BNE

R
1%

TRAP

T$ERCODE

.WORD

NODRIV

JMF

ENDOF PROGRAM

4118
BEQ

R1,DRUT
MAIN
R1,TSTDRV

MOv

JSR
(mp
BLT

010260

002264

CLR

DORPT

104024

012704
013702
043702
005702
001404
062704
005302
000772
032774

026514
002146
002142

6%:

3%:

000126
000200

;DECREMENT DRIVE NUMBER
;GO CHECK NEW DRIVE NUMBER

4%:

DRIVES ON LINE

JYES, CHECK

170

R5,GETSYS
INTERVAL, TYINT
6%
INTERVAL

EMT

C$DRPT

MOV
MOV
BIC

#DRBUF ,R4
LONUM ,R2
SYSMSK ,R2

1S1
BEQ

R?
4%

DEC
BR
BT

ADD

000104

(LUN)

TO DRIVES ON SYSTEM

DEC
BR

FLAG

;PRIORITY TO ZERO

;1S THIS DRIVE PRESENT?
:NO, GO BACK TRY AGAIN
;COPY UNIT UNDER TEST FOR LATER CHECK

;WE NOW HAVE A DRIVE, CHECK TO SEE
:1S FREE BEFORE WE GO ANY FURTHER
004537
023737
002403
005037

INII

ASL

.WORD

5%:

sCLEAR THE WRITE

;HAVE WE GOT PROPER MASK YET
:YES, GO T0 2%
¢NO, SHIFT FOR NEXT DRIVE

BEQ

ERRSF

104421

CODE

FEMTIS,-(SP)

ACD

SETPRI

INIT

#PRPOS+2,R4

#B117,aDCS(R4)

IT'S CONTROLLER

:GET PRESENT TIME OF SYSTEM
;TIME TO PRINT REPORY
:NO, PERFORM “UNCTION
;YES, START INTERVAL OVER
;PRINT STATISTICAL REPORT

;GET START OF DRIVE BUFFERS
:GET RANCOM DRIVE BACK (LUN)
:MASK TO SYSTEM SYS
:00 WE HAVE BUFFER FOR THAT DRIVE
;YES, GO CHECK IT'S CONTROLLER
:NO, UPDATE FOR NEXT BUFFER
:DOWN COUNT DRIVE NUMBER (LUN)
;G0 BACK AND CHECX FOR FOUND
;CONTROLLER ASSOCIATED WITH DRIVE

CIRLKAO RLOY/2 PERF

PROGRAM MAIN LOOP

101 013552
102 013554

}82 013562

EXER

001715
032774

00131

MACRO v03.01

000100

BNE

6
3-?

MAIN
#BI1T16,3D0CS(R&)

MAIN

SEQ 0067

.BUSY
;INTERRUPT BEEN SERVICED?

;NO - WAIT FOR THE

INTERRUPT

:WE CAN NOW PROCEED IN GETYING A FUNCTION AND RELATED DATA
:FOR THE DRiVE RANDOMLY.
R4 HAS DRIVE BUFFER POINTER

108 013564
109 013564
110 013570
111 013572
112 013600
113 013602
116 013610
115 013612
116 013620
117 013622
118 013630
119 013632
120 013640
121 013642
122 013650
123 G13652
1264 013656

125 013662

126 013666

127
128
129
130

BEQ
BIT

000104

105
}89

9-FEB-79 19:33:19 PAGE

005737
001456
026437
103404
012737
000442
026437
103404
012737
000432
026437
103404
012737
000422
016401

066401

020137
103404

013670
013676
013700
013706

012737
000407
026437
103407

133 013716
134 013722

}g; 01371C¢

TAGX:

010310
000012

010250

003157

002132

000014

010316

003222

002132

000074

010342

003244

002°3¢

000016

9%:

10$:

1°08:

000072

010252
003201

002132

000020

010320

012737

003267

002132

004537
000137

021502
013406

187
BtQ
(mp
8LO
MOV
BR
(mp
BLO
MOV
BR
(mp
8LO
MCv
BR
MOV

T.DRP
GETENC
ERRCNT(R&L) ,ERLMT
9%
SERLMTM WHY
118
SFTCNT(RG),SFLMT
10%
FSFEMSG,WHY
1%
DATCER(R4),T1.DCD
110%
#OCDMSG,WHY
11%
SKECNT(R4)
,P1

R1,SELMT

MOV
BR
(MP
BLO

NFSERLMT ,WHY
11$
DERCNT(R4) ,DRLMT
GETFNC

;DRIVE ERROR REACHED?
;NO = TIME TO DO SOMETHING

JSR
JMP

RS,DRDRV
MAIN

;DROP THIS DRIVE!!!
;GO GET ANOTHER

ADD

BLO

7%:

MOV
11$:

:DROP ON ERROR LIMITS REACHED?
;NO
sHARD REACHED?

;SOFT

REACHED?

TRERR(R4)
,R1
7%

#DERMSG,WHY

CIRLKAQ RLOV/2 PERF

EXER

MACRO v03.01

9-FEB-79 19:33:19 PAGE &

750
754
760

014032

005737
001422

010316

026437
103416
016400
066400
020037
103407
012737
004537
000137

000000

003446
021502
013406

004537

022464

013702
042702
001001
005202
022702
001001
005302
006302
000172

002146

014036

SEQ 0068

;HERE

WVWEWN—=O VN

PNIPIPONININD
et = e et o ed b b s

VNN =O 000N

NS NR) —

PROGRAM MAIN LOOP

GETFNC:

8%:

010256

000060
000062
010254
002132

98%:

020620

6%:
5¢:

COMMANDS TO I1SSUE

181
BEQ

T.STA
98%

;00 WE WISH TO DROP ON OPR LIM]TS
:NO

(me
BLO
MOV
ADD
(MP
BLO

SKCNT(RL) ,SKLMT
98%
RXFR3(R4) RO
WXFR3(R4) ,RO
RO,DALMT
98%

;PAST THE SEEK LIMIT??
:NO, THEN GO TEST
;GET READ COUNT
:ADD IN WRITE COUNT
;LIMIT
REACHED??
:NO, THEN GO TEST

JSR
JMP

RS ,DRDRV
MAIN

:DROP THE DRIVE
;GO FOR ANOTHER DRIVE

JSR

RS ,RAND

;GET A RANDOM FUNCTION INDEX NUMBER

MoV
B1C
BNE
INC
cMp
BNE
DEC

LONUM,R?2
K177770,R2
6%
R2
N7 ,R2
5%
R2

;GET 17
;MASK 10 0-7
;1F 0, MAKE 1

MOv

177770

000007

1O GET A °"STRING' FUNCTION - LIST OF

ASL
JMP

FSOPLMT WHY

R2
aLIST(R?)

;0 & 7 ARE NOT LEGIT

SIS 1T 72
;1F 7, MAKE 6
SSHIFT LEFT (X2)
;GO TO FUNCTION ROUTINE

STARS
;:"tt.'t"t""""""""t"'t""'l!"l'.."'ll'!".".'t""

; SKWRT == [SSUE:
SEEK TO A CYLINDER
:

:
;
STARS

014036

WRITE
WRITE

DATA
CHECK

::!'t.."""""'t"'ttt"'t'""'l"t'llQtl"'tt't'.'t""tt"t

014036
014042
014046
014050
014052
014056
014062
014066
014072

004537
004537
000240
000240
004537
004537
004537
004537
000137

SKWRT:

JSR
JSR

RS,SKFNC
R5,0PROK

;RANDOM SEEK LOAD
;WAIT TILL DONE

JSR
JSR
JSR
JSR

RS,WRTFNC
RS,0PRCK
RS,WRTCKF
RS,0PROK

;WRITE DATA LOAD

NOP
NOP

JMP

MAIN

;FOR

DEBUGGING

;WRITE
;GET

CHECK LOAD

COMMAND

CIRLKAQ RLOV/2 PERF

PROGRAR MAIN LOOP

EXER

014076

MACRO v03.01

9-FEB-79 19:33:19 PAGE

STARS

(O LBV T

S, I A AR AR

014076

SEQ 0069
R

RN R

NN N

TO A CYLINDER

READ DATA

STARS

:SKRD == ]SSUE:
:
RANDOM SEEK

cald
—
il
el
)
e

W= O 000~

R
R
R N R
N R
A
A
R
Iy

014376
0146102
014106
014110
014112
014116
014122

004537
006537
000240
000240
004537
004537
000137

014126

SKRD:

OV~

RS,SKFNC
R5,0PROK

:LOAD SEEK

JSR
JSR
JMP

RS,RDDFNC
RS ,0PROK
MAIN

:LOAD READ DATA CMD

NOP
NOP

;GET

THE NEXT

:SKRDRD --

H
;
;

G14126

AR AR

ROUTINE

ARl

222

)]

TG DO:

SEEX TO A CYLINDER
READ (AND COMPARE DATA)
READ

(AGAIN)

STARS
R

014126
014132
014136
014140
016142
014146
014152
014156
014162

COMMAND

STARS
AR

N b ot et

JSR
JSR

004537
004537
000240
000240
004537
004537
0046537
004537
000137

SKRDRD:

JSR
JSR

RS, SKFNC
RS ,0PROK

:LOAD SEEK

JSR
JSR
JSR
JSR

RS ,RDDFNC
R5,0PROK
RS ,RDDFNC
RS ,0PROK

;sLOAD READ

NOP
NOP

JMP

MAIN

:LOAD READ
SEXLT

CIRLKAQ RLOYV/2 PERF
—

PROGRAR MAIN LOOP

EXER

MACRO v03.01

9-FEB-79

19:33:19 PAGE

SEQ 0070

014166

STARS
BRI

OPROK
STARS

016166

RN R

R I

== ROUTINE TO ISSUE THE FUNCTION AND WAIT FOR 'READY'...IF
ERROR RETRY IS NEEDED - THEN ISSUE THE FUNCTION AGAIN.

:;'!t"t"""'l"t"'""'""""""'.'.""."""""""I"

004537
0046537
133737
001003
005726
000137

0142464

005764
001403
004537
000757
005764
001403
004537
000751
000205

015226
022322
002134

OPROK:

002136

JSR

1$:

015174

2%:

000114

3¢:

014420
6%:

THE

FUNCTION

RS,WTRDY

;WAIT

BNE

;YUP - CONTINUE

181

000036

;ISSUE

JSR

Bl11B

013406

RS.LDFUNC

TSTDRV,DRUT
(SP)+

TILL READY

;DRIVE STILL AVAILABLE?
:NO = FIX

THE

STA(CK

JMP

MALIN

TS1

RETRY(R&)

sTHE STRING FUNCTION
;NEED TO RETRY FUNCTION?

BEQ
JSR
BR
1581
BEQ
JSR

3%
RS, 1SSUE
OPROK
RSEEK (R4)
3
RS,SKFNC

:NO
;YES - ISSUE THE FUNCTION AGAIN
;AND DO 17
:SEEK RETRY?
;NO = EXIT NOW
;00 A SEEK AGAIN

BR
RTS

OPROK
RS

;BACK TO THE MAIN LOOP - FORCED EXIT

;ISSUE
JEXTT

& EXECUTE

THE

SEEK

FROM

CIRLKAQ RLO1V/2 PERF

EXER

PROGRARM MAIN LOOP

MACRO v03.01

016246

9-FEB-79

19:33:19 PAGE

6G_6
7

SEQ 0071

STARS

~NC VS

NrL

;;""'Qt"t"""""'t'iQ""'Qt't't't'lttt"ttlt"tt""'t't't

:SKRH == ]1SSUE:

.
:

RANDOM SEEX
READ HEADERS

;
.

014246

READ DATA W/ND HDR (MPpP
OET STATUS

STARS

NE W= OOV

NONS NN

PORUPOPNIRNINA)
b et b et b e 0 s

= DO000

;;'t't"".!'"""""."'l""'ttt""l"tt"""t't.'.ttt.t"'

014246
014252
014256
0146262
0146264
014266
016272
0146276
014302
0146306
014312
014316
014322
0146326
014332

004537
004537
006537
000240
000240
004537
004537
0046537
004537
004537
004537
006537
004537
004537
000137

014420
015226
022322

SKRH:

JSR

RS.,SKFNC

;LOAD SEEK

JSR
JSR
JSR
JSR

RS ,RDHFNC
RS,LDFUNC
RS5,WTIRDY
RS,RDNHC

;LOAD READ HDRS
s 1SSUE

JSR
JSR
JSR
JSR

RS,WIRDY
RS,GSTENC
RS ,LDFUNC
RS,WIRDY

JSR
JSR

RS.LDFUNC
RS,WIRDY

NOP
NOP

015050
015226
022322
0146336
015226
022322
014400
015226
022322
013406

JSR

RS.,LDFUNC

JMP

014336

MAIN

; 1SSUE

;LOAD READ W/NO HDRS

; 1SSUE

;LOAD GET
; 1SSUE
;GET

THE

STATUS
NEXT

COMMAND

STARS

[og

;READ

27 014336

STARS

DATA W/NO HDR

RS RN R

SRR

COMPARE

wo
~N
&

014336
014344
014352

QOO
CY
=t
o

::'.!""t'.t'""'"t""""""""t'tl"l'I.I'."""'l"""

177600
000016
015174

000042
000044

0is356

RDNHC:

MOV

#-128. ,BMP(R4)

JMP

ISSut

MOov

#16,FUNC(RS)

;SET

FOR

;PROCESS

;LOAD THE

SFCTOR READ

COMMAND

STARS
::ll"""'"l"""""""'"""""'.'.'.'...""l'."'.""'

JWRTCKF

014356

- WRITE

CHECK

FUNCTIUN

STARS
‘:".".""'l'""t"""'l""'""'it."'...."""".l'.'l"'

014356
014362
014364

005737
001401
000205

010322

014366
0164374

012764
000137

000002
015174

WRT(KF:

000046

TST

1.ROf

;READ ONLY

SET?

RTS

SYES

= EXIT

NOW

MOV

#WRCHK ,FUNC(R&)

;SAVE

(MD

BEQ

JMP

1SSut

:NO - DO THE WRITE-CHECK FUNCTION

;PROCESS

CIRLKAD RLOV/2 PERF

EXER

ROUTINES TG SETUP AND

[SSUE

GF~

MACRO v03.01 9-FEB-79
STATUS 8 SEEK

19:33:19 PAGE

LSBTTL
STARS

TO SETUP

P4 0146400

3
A

AR AR

AR AR A

SGET STATUS FUNCTION

014400

SEQ 0072

AND

ISSUE
R

GET

STATUS &

SEEK
N

XX R

STARS
——~y~

wo o
~ e

onrnur

OO0

5
? 014400
014406
8 014412

ROUTINES

9
1 0 014420

000004
000003
015174

000044
000040

AAAA

GSTENC:

MOV

MOov

JMP

#GSTAT FUNC(RG)
#GSBIT ,BDA(RG)

1SSUE

;LOAD GET

]

STATUS

sSET GSBIT IN COMMAND WORD
:GO ISSUE FUNCTION

STARS

—

S —a

;:"""""l"'"'t"""'l""'""""".'.I"'."'."""'i'l

.SEEXK FUNCTION

016420

STARS

~NO WV S

POIPOROND
— 2ttt s s
s

;;.""""'t'.".'"!""""'"""l""".'l"l'."""'l""'

;WE WILL CALL ''RAND'' FOR A NEW DISK ADDRESS TO SEEK
ANY

TRACK

;11'S SEEK COUNT

= OV

014420
014424
014426
014432
016434
014440
24 014444

25
26
27
28
29
30
31

014450
0146454
014456
014462
014466
014472
016476

23
36
35
36
37
38

014500
014506
014510
014514
014520
014522

005764
001003
005764
001411
016401

016402

042701
042702
000546
004537
013702
043702
020264
001767
022764

40 014530
41 0145%2
42 014534

001006
042702
022702
001007
000403
022702
001003
000240
042702

&5
46
&7
B

010237
004537
005737
001340

36 014524

016540
014654«
014550
014554

000114

SKFNC:

000036
10%:

022464
002146
002156
000124

98%:

100000

077700

177700

0C0100

002220
025356
002216

981%:

982%:

96%:

RSEEK (R4)

LEGAL.

BI(C
(mMp
8EQ

R2,PRPOS(R4)
98%

MOV

980%:

BIC
BIC
BR
JSR

BEQ
MOV

MOV

000120

LAST

108
RETRY(R4)
98$
R
LSTHDR(R4)
PRPOS (R&) ,R?
#100,R1
#100,R2
4%
RS, RAND

BNE
1S1

000050
000124
000100
000100

000091

TS§7

BUT

(mp
BNE
BIC
(Mp
BNE
BR
CMp
BNE
NOP
BIC

MOV
JSR
191
BNE

LCNUM R?
SMSK,R2

#1,TDR(R4)

WILL

ALSO

INCREMENT

;TRYING TO RECOVER
:YES - DO IT
;RECOVERY FROM A 'DRIVE®'

:NO - NORMAL

EKROR?

SEEK REQUIRED

;YES SET UP FOR RESEEK

;70 CYLINDER
SHEAD SET IN LATER

;SK1P RANDOM PART

;GET A RANDOM NUMBER
.GET THE RANDOM NUMBER
;LEAVE CYL AND HEAD
;ON

THAT

TRACK

s YES - RESELECT

ALREADY

;THIS DRIVE AN RLO1?

981%
#BIT15,R2
#077700,R2
96%
982%
#177700,R2
96%

«NO = MUST

#HEAD ,R?

;POINT TO HEAD O LAST TRA(K

R2,CHKSEC
RS,(xBDTK

HDREND
98%

AN RLO?

;KILL UPPER BIT OF (YL ADDRESS
;POINTING TO THE BAD SEC FILF?
:NO = PROCEED
;YUP = CORRECT THE POSITION

;RLOZ2 BAD SECTOR FILE?
:NO - PROCEED
; TRAP

;SAVE THE ADDRESS FOR THE BAD SEC FILE (mEC(K
JSEE IF THIS ADDR IN BAD SECTOR FILE
JWAS
JYES

RESELECT

TME

ADDRESS

——

:10.

CIRLKAD RLO1/2 PERF

= OV

NO NS NN = OO0V~

NS NN —

ROUTINES

EXER

10 SETUP AND

014556
014560
014562
014566
014574
014576
014602
014610
014612
014616
014620
014626
016630
014632
014634
014640
014642
016646
01465C
014652
014656
014660
014662
014666
014670
014672
014674
014700
014704
016712
0164714
014720
014726
014732
014736
016744
016746
016752
014754
014762
016764

005003
010200
062700
023737
001011

013702
022764
001031
042702
000426
042702
023702
103010

005203
020327
001706
006202
062702
000763
023702
101406

005203
020327
001673
006302
000764
016401
042701
022764
001002
042702

016464
010264
0500064

023737
001912
005737

001004
042764
000403

052764

MACRO v03.01 9-FEB-79 19:33:19 PAGE
1SSUE GET STATUS & SEEK

90%:
177677

010276

010300

010276
000001

000120

BIC
(mMpP

95%:
94%:

0060012
00020C

91¢:

G10300

93%:

(mp
BNE
Bl1C
BR
BIC
cmp
BHIS
INC
(mpP
BtaQ

#1,TDR(R4)

(MP

BLOS
INC
(MP
BtQ

000012

ASL

000124
000177
000001
100000

000124
000124
00012¢
010272

92%:

000120
000050

25%:

MOV

BIC
CmMp
BNE
BIC

MOV
MOV

815
CMP
BNE

010274

010272

181

000100

000124

000100

000124

97%:

BNE
BlC
BR
BIS

T.MXC, T.MNC

95%

ASR
ADD

R3
R2,RO
#77677,R0

BNE

MOv

100000

000100
010276

CLR

MOV

T.MLC,R2

92%

#BIT15,R2

92%

#HEAD ,R2
1.MXC,R2

03¢

R3
R3,#10.
98%
R

SEQ 0073

;COPY ADDRESS - NO SECTOR YET
sLEAVE ONLY HEAD

;MIN AND MAX CYLINDERS THE SAME
;NO, BRANCH AND STAY IN LIMITS
;MAKE CYLINDER MAX/MIN

;:DRIVE = RLO1?

;NO
;FCRCE

CYL

TO PROPER LIMIT

;60 CALCULATE DIFF
;STRIP OUT H.S.

BIT

AND SEEK

;1S ADDRESS LESS/EQUAL THAN MAX

JYES,

CHECK

LOW END

;BUMP A TALLY COUNTER

;1F CAN'T FIND ADDRESS IN 10 TIMES THEN RESELECT
;RESELECT

sHALF

92%

JYES,

CALCULATE

PRPOS(R4)
,R1

;TIME TO RESELECT?
;YUP - DO IT NOW
;NO, DOUBLE IT
;6O CHECK MAX/MIN AGAIN
;GET PRESENT DISK POSITION

¥M1T17,R2

95%
T.MNC,R2

R3
R3,#10.
98%
R2
91$

#177,R1
#1,TDR(R&G)

25%

#BIT15,R2

AND

T.MXH,T.MNH
6%
T.MXH

97%
:QEAD,PRPOS(RA)
FHEAD ,PRPOS(R4)

AGAIN

DIFF

AND

SEEK

;RLOT=T

;BRANCH.. .MUST BE RLOZ
;CLEAR THE HIGH BIT FOR RLOZ CyL #

PRPOS (R4) ,LSTHDR(R4)
R2.PRPOS(R4)
:NEW HEADER

RO,PRPOS(R&)

CHECK

;JUST TO MAKE NON ZERO
:G0 BACK AND CMECK AGAIN
;1S MIN GREATER/EQUAL THAN ADDRESS

AFTER

SEEK

:SET IN RANDOM HEAD GCTTEN
;MIN AND MAX HEAD SELECT THE SAME
:NO, THEN WE CAN USE BOTHM SURFACES
;WHICH IS OUR SURFACE FOR USE
:TOP

SURFACE

BRANCH

;TOP

SURFACE

ONLY

;LOWER SURFACE ONLY

CIRLKAO RLOYV/2 PERF

ROUTINES

EXER

TG SETUP AND

ISSUE

GET

MACRO v03.01
STATUS &

1 014772

SEEK

N
VS
D el
i
el
D
el
el

NOWVES WOV~

6
SEQ 0074

AR A

AR AR

AR A

.CALCULATE THE DIFFERENCE WORD AND STORE
STARS

014772

—

STARS
M

014772
014774
014776
015000
015002
015006
015012
015020
015022
015026
015032
015036
015044

9-FEB-79 19:33:19 PAGE

160162
103002
005402
000402
052702
052702
032764
001402
052702
010264
010264
012764
000137

000004
000001
000100
000020
000040
000066
000006
015174

00012¢

1%:
2%:

3%:
000044

RN RN

SuB
BCC
NEG
BR
BIS
BIS
BIT
8EQ
BIS
MOv
MOov
MOV
JMp

NP RO RS C

XXX

]

IN BDA

R RO RN RPN OO R RN R NN RRRCRRNORRNRORROONPROEOTOTS

R1,R?
1%
R
2%
#S1GN,R?
MK, R2
#HEAD ,PRPOS(R4)
3%
#SKHS R2
R2,BDA(RS)
R2,DIFWD(R&)
FSEEX,FUNC(RG)
ISSUE

;SUBTRACT PRESENT FROM NEXT
;1F POSITIVE RESULT GO TO 1%
;NEG RESULT, NEGATE [T
;G0 SET DIRECTION OUT
:DIRECTION OUT, MARKER
sMARKER BIT
;WHICH SURFACE SELECTED?
;TOP, THEN 3%
;BOTTOM SET HEAD BIT
;POVE DIFFERENCE WORD T0 DA
;LOAD DIFFERENCE WORD
;LOAD SEEK

CIRLKAQ RLOYV/2 PERF

015050
015056

012764
000137

005737
001021
004537
005737
001404
005237

N=OOVONONL
NN = OO0 ~NO NI NP —

ROUTINE

EXER
MACRO v03.01
TO LOAD READ HEADER AND ISSUE 1T.

000010
01517«

000044

010322

SEQ 0075

.SBTTL

ROUTINE

TO LOAD READ HEADER AND

RDHFNC:

MOV

JMP

#RDHOR,FUNC(R4)
1SSUE

.SBTTL

ROUTINE

TO LOAD WRITE

WRTFNC:

151
BNE
JSR
151
BEQ
INC

1.ROF
RODFNC

026046
010262

002172

JSSUE

IT.

;LOAD READ HEADER

DATA COMMAND
;READ ONLY
s YES

RS,GWCDA
CMRD
1%
REGEN

;:GET WORD COUNT,DA
; COMPARE DATA ON A READ?
:NO - SO DON'T GEN A WRITE BUFFER
;YES - SET THE GENERATE DATA FLAG

:WE NOW HAVE SECTOR AND WOPD COUNT, LET'S WRITE BUFFER IN MEMORY

;10 WRITE OUT TO DISK

:
:FORMAT

WORD 1 - # OF WORDS IN SECTOR
WORD 2 - ADDRESS OF PATTERN WRITTEN ON SECTOR

NN
— O
oo

il el el

i
—

—

(U RV JV 3V}

OCOOO

WORD 3 - 127

004537
012764
012764
000137

020352
000012
000001
015174

000044
000122

1%:

.SBTTL

DATA PATTERN

JSR
MOV
MOV

RS ,WRBUF

JMP

#1 ,WRIPG(R4)
1SSUE

ROUTINE

TO LOAD READ DATA COMMAND

;THIS ROUTINE

FWRITE ,FUNC(RG)

WILL

FIRST

;WRITE BUFFER

012764
000137

RDDFNC:

sSET THE WRITE IN PROGRESS FLAG
;GO ISSUE FUNCTION

CLEAR OUT

THE

BUFFER AREA,

1%:

000044

THE

PRESENT

CYLINDER

TO READ

FROM

JSR

R5,GWCDA

;GET WORD COUNT,

BEQ

2%
BMP(R4) ,R?

:NO = SO SKIP THE CLEAR BUFFER CODE
;CLEAR OUT BUFFER AREA

181

000042
000110

001407
016402
017401
005021
005202
001375

024046
010262

004537
005737

—_
wo
—_

o
dh
il
il
d
el
el
wd
nd
—t

(W RV LV LV TV, LV LV RV LV RV, ]

;RANDOM SECTOR ON

INTO MEMORY

;LOAD WRITE

;SELECT A RANDOM NUMBER OF WORDS TO READ AND A

OO0 OOOOO000O

a9 1 ) WY .\ Qi

9-FEB=-79 19:33:19 PAGE

MOV
MOv

CMRD

aBBA(R4) ,R1

CLR
INC
BNE

(R1)+
R2
1%

JMP

1SSUt

MOV

#READ,FUNC(R4&)

:GOING TO COMPARE

;S0 WE KNOW READ

;WORKED
!!

;LOAD

READ

DATA AFTER READING?

CIRLKAQ RLOV/2 PERF EXER
SETUP CONTROLLER AND DRiVE

MACRO v03.01 9-FEB-79 19:33:19 PAGE
INFO FOR INTERRUPT PROCESSING

;

.SBTTL

.WE

;WE

6
SEQ 0076

SETUP CONTROLLER AND DRIVE

COME HERE BEFORE
(AN PRUPERLY

INFO FOR INTERRUPT PROCESSING

ISSUING ANY FUNCTION SO THAT ON INTERRUPT

PROCESS

THE

INTERRUPT.

WILL

;CONTROLLEP WE ARE WORKING W4ITH AND STORE OFF

;POINTER

8
9 015174
10 015202

11
12
13
14

015204
015210
015212
015216
}2 015224

026437
001003
0106437
000402
010437
052764
000205

0001064

002176

1SSUE:

002202
002204
000100

000046

17
18 015226

1$:
2%:
.SBTTL
STARS

IT'S

(MP
BNE
MOv
BR
MOV
81s
kTS
ROUTINE

CHECK

WHICH

THE DRIVE BUFFER

"'LSTOR"

DCS(R4) ,CNTLRT
1%

R4,LSTDRY
2%
R4 ,LSTDR?
FINTEN,FUNC(RG)

;DRIVE ON CONTROLLER 1?
¢NO, ASSUME ON CONTROLLER 2
sPUT BUFFER POINTER IN 1
;SKIP OVER NEXT INSTRUCTION
sPUT BUFFER POINTER IN 2
;ALLOW INTERRUPTS
JEXIT

TO LOAD FUNCTION

;""".'."".""""""'""tt""'tt't""l"ttttt.""""t'

;CALL

20
21
22 015226

JSR

RS, LDFUNC

;ALL INFORMATION MUST BE SET UP IN DRIVE BUFFER
:R6G HAS POINTER TO BUFFER
STARS
":"""""".""""""I!"t""'.'fit'l"t'l'tt"'.."'tt""

23
264 015226
25 015232
59 015236

016403
032713
001003

28 015240
0152640
015242
29 015244

104421
(€00310
00c567

30
31
12
33
34

017463
016463
016463
016464
056464

35
36
37
36
39

015246
015254
015262
015270
015276

015304
015312
015320
015326
015334

052764
042764
016463
042763
000205

000104
000200

000110
000040
000042
000044
000106

000201
002000
000046
000200

LDFUNC: MOV
BIT
BNE

000002
000004
000006
000046
000046

000046
000046
000000
000000

18:

DCS(R4) ,RY
#B117,(R3)
1%

;GET CSR FOR DR]VE
:CAN WE 1SSUE COMMAND?
:YES, GO ISSUE COMMAND

ERRSF
TRAP
.WORD
.WORD

200.,PRGER
TSERCODE
200
PRGER

:THIS ERROR SHOULD NEVER PRINT

MOV
MOV
Mov
MOV
BIS

8BBA(R4) ,BA(R3) ;LOAD BUS ADDRESS REGISTER
BDA(R4) ,DA(R3)
;LOAD DISK ADDRESS REGISTER
BMP(R4) ,MP(R3)
;LOAD MULT]-PURPOSE REGISTER
FUNC(R4) ,BCSADR(R4)
;GET FUNCTION
DRSEL (R4) ,BLSADR(RS)
;SET DRIVE SELECT BITS

BIS
61C
MOV
BIC
RTS

#CRDY!DROY ,BCSADR(R&)
#0P] ,BCSADR(R4)
BCSADR(R4) ,(S(R3)
#CRDY,CS(R3)
RS
JEXIT

;SET CRDY:DRDY [N ]MAGE
;WE'RE CLEAR BIT 10 FOR DRIVE 7-4 (OKAY?)
;LOAD CSR
¢ ISSUE FUNCTION

9-FEB-79 19:33:19 PAGE

.SBTTL

INTERRUPT

BGNSRV

INTR1

SEG 0077

SERVICE ROUTINES

ON INTERRUPT WE CHECK FOR ERRORS FIRST, IF NO ERRORS WE
?E(K FUNCTION PREFORMED. WE ACT ACCORDING IF FUNCTION IS:
WRITE CHECK = NOTHING IF NO ERROR
2~
GET STATUS - READ AND CHECK DRIVE STATUS
3SEEK =~ NOTHING RTI;
SET RD HDR AS NEXT COMMAND
4~
ROHOR - COMPARE HEADER TO PRESENT POSITION
9
WRITE - UPDATE XFER COUNT, EXIT
6~
READ - COMPARE DATA IF REQUESTED, UPDATE XFER COUNT,
7READ W/NO HDR COMPARE - UPDATE XFER COUNT, EXIT

EXIT

cALL SUCCESSFUL EXITS FROM INTERRUPT ROUTINE TEST RETRY
sLIMIT IF RETRY 1S LESS THEN LIMIT THEN LOG SOFT ERROR, CLEAR RETRY
'lF

RETRY = 0,

DO:

THEN NOTHING

DRIVE ERROR - UNDER NON-INTERRUPT
GET STATUS - INVESTIGATE ERROR TYPE
DRIVE RESET -

DRIVE ERROR

ERROR OCCURS AGAIN -

If NO ERROR, EXIT
IS LOGGED UNDER ALL CIRCUMSTANCES

FATAL

IF DCRC, HCRC, HNF CHECK BAD SECTOR LIST, IF
IGNORE ERROR EXIT AS NORMAL, IF NOT IN LIST
INCREMENT RETRY; IF RETRY LIMIT EXCEEDED
LOG HARD ERROR, ELSE RETRY FUNCTION

Ve T

Ve W Ve

Ve Ve

ON ERRORS 0O:

015336

MACRO v03.01

= OOV

NO N

PINY o et ot el o o

s et i

NN = OOV00 NN

NP —

CIRLKAO RLO1/2 PERF EXER
INTERRUPT SERVICE ROUTINES

IF
IF
If

OPI NXM INCREMENT RETRY CHECK RETRY LIMIT
RETRY EXCEEDED LOG HARD ERROR EXIT
RETRY NOT EXCEEDED RETRY FUNCTION

IN LIST

ERROR

CIRLKAQ RLOY/2 PERF EXER
INTERRUPT SERVICE ROUTINES
1 015336

2
3
&
5

6
7
8
9
10
11

12
13
14
15
16
17
18
19
20

21
22
23
26
25
26
27

015340
015344
015346
015350

015354
015360
015364
015370
01537¢
015600

0156404
0156410
015414
015420
01564264
015430
015434
019436
015440
015642

015444
0156450
015454
015462
015470
015476
015504
015512
015520
015524

29
30
31
32 015526

010446
013704
000403
010446
013704

013746
013746
013746
013746
013746
013746

013746
013746
013746
013746
013746
013746
010346
010246
010146

010046
005064
016403
016337
016337
016337
016337

016337

016337
005737
100402
000137

MACRO v03.01 9-FEB-79 19:33:19 PAGE
INTRY:

002202

INTRZ2:

002204
002276

SAVE:

002300
002302
002304
002306
002310

002220
002216
002226
002132
002354
002356

000122
000104
000000
000002
000004
000006
000006
000006
002276
016652

002276
302300
002302
002304
002306
002310

MOV
MoV
BR
MOV
MOV

R4 ,-(SP)
LSTDR1T,R4
SAVE
R4 ,-(SP)
LSTDR2,R4

MOV
Mov
MoV
MOov
MoV
MOV

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

MOV
MoV
Mov
MoV
Mov
MOV
MoV
MoV
MOV

CHKSEC,-(SP)
HORFND ,-(SP)
TEMP1,-(SP)
WHY,~-(SP)
OPCALL,=(SP)
INCALL,-(SP)
R3,-(SP)
R2,=(SP)
R1,-(SP)
RO,=(SP)

MoV
CLR
MOov
Mov
Mov
Mov
MOV

Mov

MOV
18T
BM]
JMP

WRIPG(R4)
DCS(R&) ,R3
CS(R3),E.CS
BA(R3) ,E.BA
DA(RZ) ,E.DA
MP(R3) ,E.MP
MP(R3) ,E.MP1
MP(R3) ,E.MP2
E.CS
1%
CHKENC

SEQ 0078
;SAVE PRESENY R4 VALUE

;GET THE DRIVE BUFFER OF
;GO SAVE RO-R3
;SAVE PRESENT R4 VALUE
;GET THE DRIVE BUFFER OF

INTERRUPTING DRIVE
INTERRUPTING DRIVE

;SAVE R3

:R2
:R1
;RO

;CLEAR THE WRITE IN PROGRESS FLAG
:GET CSR FOR INTERRUPT
;SAVE ALL REGISTERS NOW!'!

s ANY ERRORS?
:YES, GO SOLVE ERROR MYSTERY
;NO, GO SEE [F WE HAVE TO DO ANYTHING

.SBTTL

005264

015606
015610
015612
015614

104462
001750
002541
005170

20 015616

000137

017472

22
23
264
25
26

015622
015630
015632
015640
0156644

032737
001407
012764
005264
000137

020000

002276

004204
00003«
016256

000052

28 015650
29 015656

032737
001020

014000

002276

31 015660
32 01566€¢

032737
001006

002000

002276

015670
015672
015674

104461
000012
002644

e
e
s s
e
el
e
i
b

= O0V00

15602

013764
032757
001402
000137
032737
001017
004537
042701
020127
001410

ONO VNS WN

7
SEQ 0079

CONTROLLER ERROR CHECK ROUTINE

:?E HAVE SOME SORT OF ERROR LET'S FIND OUT WHICH ONE
532
540
566
550
55¢
562
564
570
5764
5600

015676
35 015700
015700
g? 015702

38
39 015704
40 015712

41 015716
&2
43

002302
040000

000064
002276

1%:

017636
000001

002276

2%:

000012

45
46 015720
Lg 015726

;GET RID OF HEAD

BEQ

;WAS 34 SKIP ERROR

ExiN

BIT
BEQ
MOV

#NXM E.CS
sNON-EX]ISTANT MEMORY?
38
:NO, KEEP (HECKING
FMINXM RTYPE(RL)
ERROR MESSAGE

NXMCNT (R4)
111

BIT
BNE

#BIT12!BIT11,E.CS
QUALIFING BITS SET?
5%
;YES, CAN'T BE OP] ALONE

BIT
BNE

#OP],E.CS
4%

:0P1 SET?
:YES, CONTINUE

10. ,UDERR ERR1

;WE HAVE AN UND]AGNOSABLE

TRAP

TSERCODE

.WORD

UDERR

.WORD
BPEAK
EMT

BR
&$%:

MOV
INC
BR

002000

002276

;CHECK

FOR EACH

5%:

Bl1
BNE

;LOG ERROR
;CHECK RETRY,

EXIT BACK

CONDITION, ONLY (OMPOSITE

ERRI

($BRK

33%

#MTOP] ,RTYPE(R&L);SET UP FOR "‘'OP]'" PRINT
OP1CNT(R4)
.LOG ERROR
111%
:CHECK RETRY EXIT BACK

;WE KNOW 1T7'S NOW EITHER DLT,
032737
001060

HARD ERROR

INC
JMP

.WORD

000052

TRACKING STATE

JMP

ERRSF

004177
000030

sALLOW ONLY SEEK

.WORD

33%:

R1,#34

ERRCNT (R4)
:INDICATE
1000.,NORDY ,ERR9
TSERCODE
1000
NORDY
ERR9

.WORD

3%:

;SAVE DA FOK SOFT ERROR PRINT
;DRIVE ERROR?
:NO, CONTINUE
;YES, GO CHECK DRIVE ERROR
;DRIVE READY THERE
;YES, CONTINUE CHECKING
:NO,GET DRIVE STATUS

#100,R1

TRAP

23%:

E.DA,LSTDA(RS)
#DERR,E.CS
2%
CKDERR
#DRDY,E.CS
23
RS,GETDST

8l(C

INC
ERRDF

104022
000776

000557

MoV
Bl
BEQ
JMP
BIT
BNE
JSR
(MP

004456

012764
005264

1S.

022372
000100
000034

#OP],E.CS
7%

DCRC,HNF,

OR HCRC

:Og
oY

FIER

SET?

I S HCRC OR KNE

SET

[o o P

MACRO v03.01 9-FEB-79 19:33:19 PAGE

NN -

CIRLKAO RLOV/2 PERF EXER
CONTROLLER ERROR CHECK ROUTINE

EXER

CONTROLLER ERROR C(MECK ROUTINE

MACRO v03.01

9-FEB-79

19:33:19 PAGE

16-1

CIRLKAQ RLO1/2 PERF

SEQ 0080

b
el
o
e
—

(P ALV LW LV LV )

;17'S NOW DOWN 1O DLT OR DCRC
032737
001406
012764
005264
000541

010000

002276

004172
000026

000052

013737
005364
005337
004537
005737
001117
005264
012764
022764
001001
000513

002302
000064
002220
025300
002216

002220

000022
0046165
000102

005737
001510

010306

003122
007132
000002

016056
016062

012746
012746
012746
010600
104017
062706
004537

016066

000473

000052
000044

BIT
BEQ

INC
BR

DLTCNT(R&)
1118

;LOG ERROR
:CHECK RETRY,

MOV

E.DA,(HKSEC
LSTDA(R&)
CHKSEC
RS,CKBDSC

+SET UP SECTOR TO LOOK FOR
;DOWN COUNT FOR PRINT OUT
;DOWN COUNT FOR LOOP ULP
;CHECK BAD SECTOR LIST

110%

: IGNORE ERROR, RETURN

#OLT,E.CS

Mov

6%:

HORF ND

INC

DCRCER(R4)

118%
111%

MoV
(Mp
BNE

118%:

1S1
BEQ

HCRC

;WAS HEADER

sACCOUNT

1.0CK
1118
NEMT14,#DMPDCK

DATA (RC

‘DLT''PRINT

EXIT

THERE?

FOR ERROR
FOR

''DCRC'' PRINT

;DUMP BUFFER?
;NO, EXIT

#DMPDCK ,=(SP)
#EMT14,-(SP)

#2,-(SF)

SP,RO
CSPNTF

EMT
ADD
JSR

¥6,5P

RS ,DMPBUF

;DUMP BUFFER

111%

JEXIT

;1TSS NOW EITHER HNF OR HCRC.
sIF

UP FOR

#MIDCRC,RTYPE(RL)
;SET UP
FINTEN!WRCHK,FUNC(RS)

PRINTE
MOv
MOV
Mov
MOV

000006
024354

;NO, MUST BE

FMIDLT ,RTYPE(RG);SET

DEC
DEC
JSR
181
BNE

117¢:

sDATA LATE?

AND RDMDR,

DETERMINE

CYLINDER

SEE

BAD SECTOR BY

DOING 40 RDHDRS

;1F HCRC AND R/W, CHECK IF DA IS IN BAD SECTOR FILE
;1F HNF READ HEADER TO VERIFY IF ON CORRECT CYLINDER

JTHEN

CORRECT

A BAD

SECTOR

;1F NOT ON CORRECY CYLINDER REPORT M]SSEEK, LOG M]SEEK
;AND PRESENT POSITION UPDATE.
076

032737
001470
012701
004537

010000

000051
022406
000106
000010
000104
000000
022322

000000
000006

002312

002276

7%:

8%:

BIT
BEQ

#HKF E.CS

¢HEADER NOT

JSR

#a1, R1
RS,1SDRST

;ALLOW FOURTY READ HEADERS

BIS

#RDHDR,R2

MOV

MOV
MOV

JSR
DEC
BEQ
187
BM]

MOv
MOv

112¢%

DRSEL(R&4) ,R2
DCS(R&) ,R3
R2,CS(R3)
RS,WIRDY

FOUND

SET?

;NO IT MUST BE HCRC

;FIND CYLINDER
;READ HEADER

R1
9%

. 1SSUE READ HEADFR
SWALT
:DONE 40 OF THESE?
;YES, GIVE UP WE DON'T

:YES,

(S(R3)

MP(R3) ,R1
R1,C.HDR

;1S ERROR SET?
GO DO

HAVE

IT AGAIN

;GET HEADER
:SAVE FOR ERROR REPORTING

ALL

DAY

CZRLKAD RLO1/2 PERF

EXER

CONTROLLER ERROR CHECK ROUTVINE

)

-t

016174
016176
016200
016202

(=]

e
el
D
sl
—

-t
QOO
N = OO0~

100 016156
101 016162
102 016166
103
104
105 016170
106 016174

MACRO v03.01

OOW®NT VL WNN=OOVWOWNO
VR WNSO 000N
VNS W

i
b e
D
D
D
e
D i

NI PO AU N =t et et b et et

d e
e
D e
i
enhh
o
D
)
i
e

AN W AN AN AN U PO N P RO RO R

N N

od
e

B> U

002156
000124

Bl
CMP
8ta

SMSK ,R1
R1,PRPOS(R4)
108

005264

000072

INC
E RRHRD

20.,TRACK,ERR2

020164
001415

104663
000024

TRAP
.WORD
.WORD
.WORD

00314¢
004464

000137

0i7160

JMP
9%

ERRHRD
TRAP

000036
002630
006456

.WORD
.WORD
.WORD

000410

16-2

Ne3701

104463

9-FEB-79 19:33:19 PAGE

TRERR(R4)

TSERCODE

SEa 0081
;MASK OUT SECTOR BITS
;1S CYLINDER HEAD CORRECT?
SYES, GO CHECK BAD SECTOR LIST

TRACKING DRIFT ERROR

TRACK

ERR?

SKRETRY

sF1IX

30. ,EXHAUS ,ERR1

;WE

TSERCODE

TRACKING ERKOR

CAN'T

FiND GOOD HEADER ON THIS TRA(K

EXHAUS

ERR1T

110$

016222
016230
016234
016240
016242

013737
004537
005737
001401
000577

002302
025356
002216

016244
016250
016256

005264
012764
000573

000032
004152

002220

10%:

110%:

000052

11%:
111$:

MOV
JSR
187
BEQ
B8R

INC
MOv

E.DA,CHKSEC

RS,CKBDTK

;60 CHECK BAD SECTOR FILE

11%
GOERRX

:NO, LOG IT
:YES IGNORE

HDRF ND

;WAS

THERE

EXIT
ERROR

HNFERR(R4)
;L0617
FMTHNF ,RTYPE(R4);SET UP FOR "'MNF'' PRINT
GOF IN
JEX]T

21T WAS A HEADER CRC ERROR, FIGURE OUT IF IT WAS
;ON A READ HEADER OR READ/WRI]TE

022764
001417

000110

013737
004537
005737
001401
000554

002302
025300
002216

005264
012764
000550

000024
004157

017401
012737
012702
056402

000110
000050
000010
000106

000044

112¢%:

002220

000052

002226

(mpP

BEQ

#INTEN'ROHDR,FUNC (R4G)
13%
sYES,

mov

E.DA,CHKSEC

JSR
181
BEQ
BR

12%:

13%:
14%:

sNO,

JREAD MEADER?
GO FIND OUT MORE

1T MUST BE R/W

RS.,CKBDSC

:BAD SECTOR SEARCH

12%
GOERRX

:NO, MUST BE LEGIT ERROR
;YES, IGNORE ERROR

HDRFND

:WAS QUR

MOV

HCRCER(R4)
.LOG ERROR
FMTHCRC ,RTYPE (RG)

GOF IN

MOV

3BBA(R4) R

;USE

DRSEL (R4) ,R?

INC

MOv

MOV

BIS

ABQUT

860, TEMPY
#RDHOR,R?

THERE?

1T°'S BUFFER TO STORE HWDRS

;40 CONSECUTIVE
;READ HEADER

KEADERS

CIRLKAO RLOY/2 PERF

EXER

CONTROLLER ERROR CHEC(K ROUTINE

OO ~NO N

i e

(S L%, RV IV IV IV, IV IV IV IV ]

NN —= O

016403
010263

MACRO v03.01

000104
000000
022322
000000
000006
000006
000006
002226

9-FEB-79 19:33:19 PAGE
MOv
MOV

JSR

MOv
MOv
MOV
MOv

DEC
BNE

16-3

SEa 0082

DCS(R&) ,R3

R2,CS(RY)
RS .WTRDY

CS(R3), (R1)+
MP(R3)
. (R1)+
MP{R3)
. (R1)¢
MP(R3).(R1)+
TEMPY
148

:WALT FOR READY

TREAD ALL REGISTERS

*DONE 40 YET?
'NO,

GO BACK

;WE HAVE 40 HEADERS NOW LETS SEE IF WE CAN VERIFY WHETHER

:OR NOT A BAD SECTOR CAUSED THE ERROR.
CHECK FIRST TO SEE
;1F WE HAVE ANY BAD SECTORS ON THIS TRACK.

016446

017402
012701
032712
001403
032712
001005
062702
005301
001366
000721

016450
016454

020274
001046

004000
000010

16%:

BIT
BEQ
BIT
BNE

ADD
DEC
BNE

000110

17%:

CMP
BNE

a@BBA(R4)
,R2
#40. ,R1
#OPI, (R2)
16%
MHCRC, (R2)

17%
#10,R2
R1
15%

;GET BUFFER START

;FOURTY HEADERS

;1S OP1 SET IN (S
sNO, WELL

CAN'T BE

HCRC

s INSURE HCRC wW/0P]
;FOUND GO SEE IF IT COMPARES

JNEXT

€S

JMAGE

;DONE 40

12%

RZ,aBBA(R4)

21%

;1S HEADER FIRST ONE?
;NO,

READ

JYES, WE'LL HAVE

;AND

CHECK

HEADER

10 GO THRU

OTHERS BEFORE

;CAN SAFELY CALCULATE

160301
100402
160302
000421

8tQ

BIT
BEQ
INC

MOV

19%:

#MBDMS( ,WHY

JSR
JMP

RS,DRDRV
EXITY

.DROP DRIVE DUE TO
:MORE THAN 16 BAD SECTORS

CLR
ADD
MOV
MOV

;CLEAR

THIS (S

¢MASK

ONLY

;BRANCH

TO C(HECK FILE

BIC
SUB
BM]
SUB
BR

002132

b -]

177700

(MP

BNE

;"'SUPPOSED'' BAD SECTOR

19%
R3
#15.,R3
18%

000017

PHCRC, (R1)

004000

000002

BIT

003525
021502
017472

ADD

9BBA(R4)
R
¥ ,R3
710,R1
#OPI, (R1)
19%

0127537
004537
000137

18%:

MOv
MOV

(e]
fen]

000110
000001
000010
002000

— =t

017401
012703
062701
032711
001416
03271
001413
005203
022703
001364

005012
062701
011102
010201
062702

203
204
205

15¢%:

Mov
MOV

192 016516
193 016524
194 016530

99%.

000110
000050
002000

WD~ -~
OO
W —INO DN
PO~
e
~ye
e
N
x
D ~NT
~ X~

016412
016416
016422
016426
016430
016434
016436
016442
016444

NODMNLD

ek
d
—t
d
ed
e
e
—

SNSNSNSNSNNNN

163
164
165
166
167
168
169
170
171

;GET IT'S HEADER ADDRESS
;GET HEADER
: SAVE HEADER
SECTOR

;BACK UP TO SECTOR WHICH IS BAD
;1F MINUS DO MAGIC
;NO THEN SUBTRACT [S LEGAL

CIRLKAQ RLO1V/2 PERF

EXER

CONTROLLER ERROR (HECK ROUTINE

160302
062702
000415

016572

005012

NN ~=O 000 ~NO NI

NN —

POPOPINIPIN)
ard o d ed ccid oo o ot

RURNI NP NI DN PO PO N N RO Y

206 016562
207 016564
208 016570

0165764
016600
016602
016604
016606
016612

162702
011201
00520
010102
042701
022701

226 016646

000137

002402
162702
010237
004537
005737
001664
000137

000006

9-FEB-79 19:33:19 PAGE

20%:

16-4

21%:

R3,R2

;THIS SUB PRODUCES WRONG ANSWER

B8R

22%

;GO CHECK FILE

CLR
SUB

;CLEAR THIS (S OuTt
;GET PREVIOUS HEADER

MQv

(R2)
”6,R2
(R2),
R1
R1,R2

CMP

#50. ,R1

SuB

ADD

MOv

INC

177700
000050

000050
002220
025300
002216

Sta 0083

BIC

22%:

BLT
SuB

MOV

JSR
187

017476

GOERRX:

BEQ
JMP

017600

GOF IN:

JMP

#50,R2

SEIX

#177700,R1

22%

#40, ,R?

R2,CHKSEC
RS,CKBDSC

HDRF ND

99%
ERREX

FINERR

016616
016620
0166264
016630
016634
016640
016642

00C050

MACRO v03.01

EXER
COMMAND SERVICE ROUTINES
N= OO~V
NN s OO
IS NN —

CIRLKAQ RLOY/2 PERF

7
SEQ 0084

COMMAND SERVICE ROUTINES

;THERE WAS NO ERROR SO
;NOW WE WILL FIND OUT WHICH FUNCTION WE DID TO CAUSE
: INTERRUPT AND ACT ACCORDINGLY.
016401
006201
042701
005301
001002
000137

016674
016676
016700
016702
016704
016706
016710
016712
23 016714

005301
001564
005301
001420
005301
001477
005301
001002
000137

9-FEB-79 19:33:19 PAGE

.SBTTL

016652
016656
016660
016664
016666
016670

[o ¥ 1 U

& Qi G

MACRO v03.01

016720
016722

005301
001431

016724
016726

005301
001437

016730
016730
016732
016734
016736
0167640

104421
000322
002567
000000
000137

000044

(HKFNC:

000040

BIC
DEC
BNE
JMP

017026
2%:

017354

MOV
ASR

DEC
BEQ
DEC
BEQ
DEC

FUNC(R4)
R

AFWRCK

R1
AGSTAT

sREAD?

:BRANCH

SO...FUNCTION #6

+READ W/NO HDR COMPARE?
;YES = TREAT AS IF WRITE

ERRSF

210. ,PRGER

.WORD
.WORD

210

JMP

EXIT

T$ERCODE

PRGER

HALT

XEX]T:

;GET STATUS?
;BRANCH IF SO...FUNCTION #2
: SEEK?
;BRANCH IF SO...FUNCTION #3

sFUNCTION #5

BEQ

017440

sFUNCTION m1

;BRANCH 1F SO...FUNCTION #4
;WRITE?
:NO, BRANCH

JMP
DEC
BEQ
DEC

TRAP

;WRITE CHECK??
:NO, BRANCH

s RDHDR?

BEQ
DEC
BNE

1%:

;GET FUNCTION OF DRIVE
;ALIGN THE FUNCTION CODE
;WIPE OUT INT. ENAB (SHIFTED)

; SHOULD NEVER GET MERE.!!

CHECK

CIRLKAQ RLOV/2 PERF

SEEXK

INTERRUPT

MACRO v03.01

EXER

SERVICE

& 016752
5 016756

6 016762

7 016770

8 016772
9 016776
10 017002

12
13
14 017006
19 017014

017014
017020

16 017022

17
18 017026

19 017032

052764
005064
005264
026427
0024C4
005264
005064
000137

000001
000114
000054
00005¢

000001

012700

000340

004537

021724

016401
005401
060164
022764

000042

20 017034
21 017040
22 017046
23 017050
24 017054
25 017062
26 017070
27 017072
28 017076
29 017104
10
31
32
33 017106
36 01711
15 037116
36 017322

013701
043701
026401
001442

002304
002156
000124

I8 017124
39 017132

032764
001407

000001

005264

000016

4«0
&Y 017134
&2 017140

017140
017142
017144
Ci7146

&3 017150
44

101016

005264
162764
022764
101005
005264
162764

000555

SEEX

ASEEK:

BIS

001750

99% :

17160

000067
003142
004404

104463

000056

000002
023420

000002

000004
023420
023420

000002
000004

000060
023420

000004

INTERRUPT SERVICE

#SKDON,PRFLGS(RG)

(LR

RSEEK (R4)

INC
cmp
BLT
INC
CLR

THE

RETRY FLAG

SKCNT1(R4)
; INCREMENT COUNT
SKCNT1(R4) ,#1000.
;10(3) REACHED
99%
<NO, EXIT
SKCNT(R4)
;YES, BUMP THOUSANDS
SKCNT1(R&)

EX1T

.SBTTL

READ

INTERRUPT

AFREAD:

BIC
SETPRI
Mov
EMT
JSR

#SKDON,PRFLGS(RG)
;CLEAR THE
#340
#340,R0
($SPRI
RS,CKDATA
;CHECK DATA

AFWR(K:

MOV

BMP (R4) ,R1

;BUMP UP

NEG

sMAKE

C(MP

#10000. ,RXFRI(R4)

:10(8) REACHED YET

#10000. ,RXFR2(R4)

:MAKE

ADD

SERVICE

R1.RXFR1(R&)

;ADD

COUNT

THE

BITS

2%:

EXIT

.SBTTL

READ HEADER

ARDHDR:

MOV
BIC

E.MP,RI
SMSK,R1

;GET HEADER
;MASK OUT SECTOR BITS

BEQ

JYES,

C(MP

000056

PRPOS(R&) ,R1

10¢(10) O

SERVICE

;1S HEADER CORRECT?
;1S

CONT]INUE

#SKDON,PRFLGS(RG)

;BRANCH IF

INC
ERRHRD

SKECNT(R4)
50. ,MSKER,ERR?

;ACCOUNT

BEQ

THIS M]IS-SEEX OR

TRACKING

TRACKING ERROR

FOR SEEK ERROR

TRAP

TSERCODE

.WORD
.WORD

MSKER
ERR?

:BRANCH AROUND TRACKING ERRCR REPOR!

INC
ERRHRD
TRAP

TRERR(RS)
55.,TRACK,ERR2
TSERCODE

ACCOUNT FOR TRACKING ERROR
;TRACKING ERROR

.WORD

TRACK

BR
’%:

CEXIT

INTERRUPT

FLAG

POSITIVE

:NO, EX]T
;BUMP 10(10)
#10000.,RXFR1(R4)
:START 10(8) AT O
#10000. ,RXFR2(R&)
;10(10) REACHED YE1
2%
;NO, EXIT
RXFR3(R&)
;YES BUMP 65k 10(10)

SuUB

2%
RXFR2(R&)

XFER

SEEK VERIFY

BHI
INC
SUB
(Mp
BH1
INC

.WORD

000072

;SET SEEK VERIFY NEEDED

;CLEAR

JMP

106463

005264

017162

.SBTTL

000062
002666
004464
000406

&5 017152
&6 017156

017156

000056

0CJ000
000054
017440

062764
104041

SEQ 0085

)

2
3 016744

9-FEB-79 19:33:19 PAGE

LWORD
.WORD

ERR?

CIRLKAD RLOV/2 PERF

INTERRUPT

SERVICE

MACRO v03.01

7166
7172
7200

005264
026437
101405

9-FEB-79 19:33:19 PAGE

000114
000114

010330

3%:

OO~ OCWVNE
WM —=O VN NS W OO0

roNoro PORNIPNIRNIAUNIND
—
bt et s el s s e

017250
017254
017260
017264
017266
017272
017276

013701
042701
005737
001402
042701
032701
001406

005264

106463

&0
4

350

000106
002753
004700

352

000432

000001
000114
000124

002304
000100
010322
020000
177400

000056
000056

6%:

1%:

SEXHAU
ERRZ

MOV

R1,LSTHDR(R4)

;SET

EXIT

JEXIT

CLR
MOV
BR

RSEEK (R4)
R1,PRPOS(R&)
EXIT

sMAKE
JEXIT

BIC

AGSTAT:

MOV

STATUS

BlC
181

BEQ

Bl1C

BIT
BEQ
INC

000034

000035
000012

1%:

#SKDON,PRFLGS(R4)

INTERRUPT

ALLOW SEEK

;SET

VERiF]CATION DONE

THIS HEADER PRESENT POSITION

SERVICE

E.MP,R1

#100,R1
1.ROF

fuL R1

;GET

STATUS

sCLEAR OUT HEAD SELECT
;READ ONLY

#177400,R1
1%

:ANY BITS WRONG
:NO, CONTINUE

ERRCNT(R4)

:STATUS BITS WRONG

ERRHRD

60. ,MDSER,ERR4

.WORD

TRAP

177700

333

#SKDON,PRFLGS(R4L)

BIC

GET

000012

UP RETRY

333.,SEXHAU,ERR?

.WORD
.WORD

.SBTTL

2%:

THEN RETRY

TSERCODE

000050
000001

:NO,

TRAP

.WORD

000074
002753
004700

005264

RSEEK(R&L)
;SET RETRY IN PROGRESS
RSEEK(RGL),T.SLT ;RETRY EXHAUSTED???2?7?

ERRHRD

104463

010102
042702
022702
001444
022702
001441

INC
(MP

BLOS

000515
003360
00464646
000406

17242

SKRETRY=,

1046463

010164
042764
000504
062764
005064
010164
000474

SEQ 0086

017166
—d
sl
el

NO NN
-

READ HEADER

EXER

TSERCODE

.WORD
.WORD

MDSER
ERR4

MOV

R1,R2

:COPY

STATUS WORD

BEQ

EXIT

JYES,

EXIT

JYES,

EXIT

BIC
(MP
(MP

BEQ

#177700,R2
#34 ,R2
#35,R2
EXIT

INC

ERRCNT (R4

TRAP

TSERCODE

.WORD
.WORD

MDSER
ERR&

Ex1t

ERRHRD

.WORD

70.,MDSER,ERRS

;GET STATE BITS
;COVER CLSD, HEADS OUT, BRUSHES HOME, SEEK TRACK COUNTING?
:COVER C(LSD, HEADS OUT, BRUSHES HOME,

SEEK LINEAR MODE

CIRLKAQ RLOV/2 PERF

WRITE

MACRO v03.01

SERVICE

9-FEB-79 19:33:19 PAGE

.SBTTL

042764

016401

005401
060164
022764

NN = O 000NN

(]

NN —

INTERRUPT

EXER

000010
023420
023420

000006
000010

005264

000062
023420

000010

005764
001414
026427
001406
005264

000036

Y
S
S

NO N

N
T S

=2 OOV

[ QU 1 Y W

000052

AWRITE: BIC

MOV

000006

162764

23
24 017472

000056

000006
023420

101016
005264
162764
022764
101005

017466
017470

000601
000042

NEG
ADD

(mp

BHl
INC

SuB
(Mp

BHI
INC

Sus

EXIT:

004211

000014

000036

181

BEQ
(mpP
BEQ
INC

1046464
000120
002677
004550

005064

WRITE

EXIT1:

1
SEQ 0087

INTERRUPT SERVICE
#SKDON,PRELGS(R4)

;CLEAR SEEK

VERIFY

BMP(R4) ,R1

sGET WORD COUNT

R1,WXFRT1(R4)

;ADD THE BITS

FLAG

;MAKE POSITIVE

#10000. ,WxXFR1(R&)
;10(5) YET?
EXIT
sNO - EXIT
WXFRZ(R4)
SYES BUMP 10(10)
#10000. ,WXFRI(R4)
;10(5) GOES TO ZERO
#10000. ,WwXFR2(R4)
;10(10) YET?
EXIT
;NO - EXIT
WXFR3(R4)
S INC 65k (10)(10)
#10000. ,WXFR2(R&)
;MAKE 10(10)
RETRY(R&)
: IN PROCESS OF
ERREX
:NO
RTYPE(RL) ,#MTDRY

RETRY]ING?

SFTCNT(RL)

ERROR

EXIT

sYES,

LOG

SOFT

T 80. ,MSFER,ERR3
ERRSOF
TRAP
TSERCODE
.WORD
80
MSFER
.WORD
.WORD
ERR3

;REPORT

(LR

;CLEAR RETRY

RETRY(R&)

SOFT

ERROR

i S

VNS WA =200V

NS NN —

S OVONO

[ U

K P~y

— 0
—r

[aal e

RLO1/2 PERF
INTERRUPT

EXER

SERVICE

MACRO v03.01

LSBTTL
476

042774
012600
012601
012602
0126C3
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012604

000100

000104

004537
000405
013764
000137
005264
104463

000132
003107
005312
000716

ERREX:

002356
002354
002132
002226
002216
002220
002310
002306
002304
002302
00230C
002276

FOR

81C

Mov
MOv
Mov
Mov
Mov
Mov
MoV
MOV
Mov
Mov
Mov
MOv
MOV
MOV
MOV
MoV

L10023:
020600

002276
017476
000012

EXIT

Mov

000002

9-FEB-79 19:33:19 PAGE

FINERR:

000116

ENDSRYV

SEa 0088

INTERRUPT SERVICE
FINTEN,30CS
(RG)

(SP)+,RO
(SP)+
R

(SP)+,R2
(SP)+ ,R3
(SP
, INCALL
)+
(SP)+,0PCALL
(SP)
¢ ,WHY

(SP)+ ,TEWP1

(SP)+ ,HDRFND
(SP)+,CHKSEC

(SP)+ E.NP2
(SP)+ E.NMP1

(SP)+ E.WP
(SP)+ E.DA
(SP)+ E.BA
(SP)+ E.CS
(SP)+ R4

R11

JSR
BR

MOV

1%:

K_7

JMP
INC

ERRHRD
TRAP
.WORD
.WORD
.WORD
BR

RS5.RCNT
1%
E.CS,SOFTCS(R4)
ERREX
ERRCNT (R&G)

;CHECK
;RETRY

TG SEE

LIMIT,

;NOT EXCEEDED EXIT
;INDICATE ERROR

90. .MHDER,ERR13 ;NON-RECOVERABLE
TSERCODE

MHDER

ERR13
ExIT1

WE HAVE EXCEEDED
SO 1$ AND REPORT HARD

ERROR

MACRO v03.01 9-FEB-79 19:33:19 PAGE
.SBTTL
:WE

017636
017642

017646
017646
017650
017652
017654

005264
004537

000020

b ek
e
b et ed cd vl e
PON)

DRIVE ERROR

HAVE

CXDERR:

022372

;REPORT

INC
JSK

DRIVE

1064463

TRAP
.WORD
.WORD
.WORD

000340
002716
005170

L7
22

INTERRUPT

A DRIVE ERROR,

ERRHRD

—= OOV NOFNEWNN=0O0

O N
& NN

CIRLKAQ RLOV/2 PERF EXER
ORIVE ERROR INTERRUPT SERVICE

Sea 0089
SERVICE

LEV'S GET

DERCNT(R4)
RS,GETDST

ERROR

THE

STATUS

sACCOUNT FOR ERROR
sGET DRIVE STATUS

224. ,DRVER,ERR9 ;DRIVE ERROR

TSERCODE
224

DRVER

ERR9

;ACT ACCORDINGLY TO DRIVE ERROR
017656
017662
017664
017670
017672
017676
017700
017704
017706
017712
017714
017720

017732
017740

032701
001027
032701
001070
032701
001130
032701
001003
004537
000431
004537
004537
032701
001422
012737
0004612

017742
017746
017752
01775¢
017760

004537
004537
032701
001407
012737

022406
022372
001000

017766
017772
017776
020004

004537
000137
032763
001004

021502
017472
000001

000000

020006
020014

012737
000764

002526

002132

017724
017730

020016
020016
020022
020026
020032
020034
020036
&4 020042
&5 020046
020052
&7 020056

001000
010000

817

BNE
Bl
BNE

144000

002000
022406
20%:

022406
022372

002000

003014

002767

003047
007132
000002

004537

BIT
BNE

000006
020300
017600
000004
022406

002132

:
108

101%:

12%:
13¢:

12%

#WDE 'HCE!SPE
R

15%

;WRITE DATA,

CURRENT

HEAD,

BIT
gea

RS, ISDRST
10%
RS, ISDKST
RS ,GETDST
MWGE R
10%

918

;DROP DRIVE

JSR
JSR
817
BEQ

RS, 1SORST
RS,GETDST
#MVCER,WHY

s 1SSUE RESET
;RESET WORK
:VOL CHK CLEAR
:YES, CHECK DRIVE READY
;DROP THE DRIVE

JSR
JMP
BIT
BNE

RS ,DRDRV
EXIT1
#DRDY,CS(R3)
1018

;YES,

MOV

#ONRDY ,WHY

20%

FWGEST ,WHY

#vC,R1
10%

;RESET WORK?

;WOE CLEAR
:YES GO CHECK DRIVE READY
;REPORT WGE DIDN'T (LR

;DRIVE READY POSTED?
PRINT

RECOVERED

91%

:NO,

PRINTB
MOv
MOov
MOV
MOV

NEMT14,#MRDER

;PRINT DR]VE RECOVERED

EMT
ADD
JSR
JMP

MOV

JSR

¥MRDER,=(SP)

SPINDLE?

;GO WAIT FOR HEADS TO UNLOAD
;WRITE GATE ERROR
RESET
;YES, ISSUE
s 1SSUE RESET
;G0 CHECK DRIVE READY
; 1SSUE RESET

NWGE ,R1

MOV

91$8:

#SXT10,R1

;VOLUME CHECK?
;YES, GO ISSUE RESET
;SEEK TIME OUT?
;YES, ISSUE RESET

BIT

BNE
JSR
BR
JSR
JSR

Mov

:
9%

#VC,RY

DROP DRIVE

NEMT14,-(SP)
#2,-(SP)

SP,RO
($PNTB

#6,SP

RS ,GHDR

:GET THE CURRENT DISK POSITION - HEADER

RS, ISDRST

;SEEK TIME Out
: 1SSUE DRIVE RESET

FINERR
#6,R2

CIRLKAQ RLOV/2 PERF EXER
ORIVE ERROR INTERRUPY SERVICE

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

(8
49 020062
020062
50 020066

012700
104027

51 020070
52 020076

032763
0010G6

000001

56 020104
gg 020112

012737
000725

002725

002132

59 020114
60 020122
61 020124
020124
020130
020134
020140
020142
020144
62 020150
22 020154

032763
001370

040000

000000

012746
012746
012746
010600
104014
062706
004537
000137

003047
007132
000002

53 020100
2g 020102

65
66
67
68
69

020160
020164
020170
020174
020176
020176
020202

.
035230

000017

75 020220
76 020224

004537

022406

77
786
79
80

032763
001321
012702

040000

020246
020252
020254
020262
020264
020266
020270
020276

012700
104026
032763
001314
005302
001367
012737
000633

0000!2

88
89 020300

012763

;} 020216

81
32
83
84
85
g?

020224
020230

020232
0202640
020242
020246

90 020306

BI
BNE

NDRDY,CS(R3)
14%

:DRIVE READY YET?
;YES, CHECK IF ERROR CLEARED

141%:

mov
BR

#MDERS ,WHY
91%

:YES, DROP DRIVE

14%:

811
BNE
PRINTB
Mov
MOV
MoV
MOV
EMT
ADD
JSR
JMP

#DERR,CS(R3)
141%
#FMT14,#MRDER
#MRDER,-(SP)
PFERTI4,-(SP)
#2,-(SP)
SP,RO
CSPNTB
#6,SP
RS ,GHDR
EXIT

;DRIVE ERROR SET STILL
;YES, DROP DRIVE

15%:
16%:

Mov
JSR
BIT
BEQ
WAITMS
rov
EMT

ne ,R2
RS ,GETDST
#B1T4,R1
17%
#15.
#5.,R0
CSWTM

:WAIT FOR HEADS TO UNLOAD
;GET STATUS
;UNLOAD STATE
;YES, CONTINUE W/ RECOVERY
;WAIT A WHILE

000000

000006
020300
017440

012700
104026
005302
001366
012737
000663

70 020204
71 020206
72 020210

#15000.
#150G0. ,R0
CSwTu

DEC
BNE

000004
022372
000020

012700
104026

056463

003404

002132

000001

18%:

000001

000000

003430

002132

000210

000000

000106

000000

GHDR:

:NO, HAVE WE DONE
JYET

IT FOUK TIMES

R2
169
#UNLOAD ,WHY

;WAIT LONG ENOUGH
:NO, GO BACK
;OROP DRIVE

JSR
WAITMS

RS, ISDRST
#1,

BIT
BNE
Mov
WAITMS

#DERR,CS(R3)
141%
r61. ,R2
#10.

:DORIVE ERROR CLEAR?
:NO, DROP DRIVE
:YES, WAIT 60 SECONDS
;FOR DRIVE READY TO

Mov
EMT

000000

R2
13%

DEC
BNE
Mov

BR
17%:

000075

;FOUR TIMES BEFORE
;DROPPING DRIVE

WAITUS
MoV
EMT

005302
001365

012702
004537
032701
001411

Sea 0090

91%

”.,RO
CSWTM

; 1SSUE RESET

MoV
EMT
Bl
BNE
DEC
BNE
MOV
BR

#10.,R0
CSWTM
#DRDY,CS(R3)
14%
R2
18%
#NOLOAD ,WHY
91%

MOV

#CRDY!RDHDR,(S(R3)

B1S

DRSEL(R&),CS(RY)

. (OME BA(K
;
«NO READY DROP DRIVE

CIRLKAQ RLOV/2 PERF

ODRIVE ERROR

91
92
93
9
95
96
97

EXER

INTERRUPT

020314
020322
020326
020332
020336
020342
020350

042763
004537
016301
043701
010164
012764
00020C5

SERVICE

000200
022322
000606
002156
000124
004211

MACRO v03.01

000000

81C
JSR

MoV

BIC

000052

9-FEB-79 19:33:19 PAGE 22-2

Mov
MoV
RTS

#200,CS(R3)
RS,WIRDY
MP(R3) ,R1
SMSK R
R1,PRPOS(R4)

l21DRV,RTYP[(R4)
R

SEQ 0091

;SETUP DRIVE ERROK

OOV
N

N—

CIRLKAQ RLO1/2 PERF EXER
BUFFER GENERATION ROUTINE

.SBTTL
STARS

020352

ARAA

$TARS

020352

?yvh““”v-fl—fi—hfl-fi—‘—hfl-d-‘
WN = OV
NO NS NN 2OV

020570
020572
020574

005737
001507
010346
010246
010146
010046
016402
005402
017401
020227
002015
020227
002005
062702
162764
010221
005302
010237
000405
012737
012721
005737
001003
013703
000406
004537

002172

AR
)

WRBUF
:

000042

00011C
000200

2%:

000003

000003
000003

000177
000200
01032¢

002240
5%:

010326
55%:

177770

56%:

026066

002242

002244

6%:

MOv
Mov
MOv
MOV
NEG
MOv

CMP
BGE

SuB
MOv
DEC
Mov
B8R
MOv
MOV
181

BNE

BR
JSR
MOv
BIC

ASL
ADD
MOV

DEC

Mov
MOv
MOv

DEC
BEQ
DEC

002244

012603

151
BEQ
MOV

MOv
MOV

002240

000200

MOV

022464
002146

002240
002242
000020

ADD

002240

BNE

8%:

8 PATTERNS.

BGE
3%:

== ROUTINE TO WRITE
ADDRESS FROM DRIve

cMP

000042

SEQ 0092

BUFFER GENERATION ROUTINE

URBUF

020352
020356
020360
020362
020364
020366
020370
020374
020376
020402
020406
020410
020414
020416
020622
020430
020432
25 020634
020440
020442
020450
020454
020460
020462
020466
020470
020474
020500
020504
020506
020512
020514
020520
020522
020526
020532
020540
020542
020546
020550
020554
020556
020560
020564
020566

MACRO v03.01 9-FEB-79 19:33:19 PAGE
FOR THE °'WRITE® FUNCTION

BR
SUB
BGT

MOv
MOV
MOV
MOv

9%
R3,-(SP)
R2,=(SP)

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

BMP(R4) ,R2

R2
aBBA(R4)
,R1
R2,#128.
3
R2,#3

’3,R2
#3,BMP(R4)
RZ2,(R1)¢
R2
R2,TEMP6

5%
"127.,TEMP6
#128.,(R1)¢
T.RAN

55%

T.PAT,R3

56%
RS ,RAND
LONUM,R3

#177770,R3
R3
#PATLST,R3
(R3),R3
R3,TEMP7
R3,(R1)+
TEMP6

TEMP?7 ,R2

#16.,TEMPB

(R3)¢,(R1)+

TEMP6

TEMPS
7%

N128.,R2

(SP)+,R0O
(SP)+ R
(SP)+ ,R?2
(SP)+,R3

THE
X

'WRITE'
R

FUNCTION
X

A BUFFER INTO MEMORY.
USES WORD COUNT AND BUS
BUFFER (R4).
WILL WRITE RANDOM FROM ONE OF

USED BY WRITE

REGEN

FOR

FUNCTION AND WRPACK ROUTINE.
R

SRRRR S

;REBUILD THE DATA BUFFER?
;NO --EXIT

: SAVE REGISTERS

:R2 HAS TOTAL WORDS TO SET UP FOR
;POSITIVE NUMBER
sWHERE BUFFER IS

;MORE THAN 128 WORDS

:YES, BRANCH
;OREATER THAN THREE WORDS
;YES,

BRANCH

JADD 3
;WC UP BY 3

;STORE W(
;ACCOUNT FOR WC
;LOAD DOWN COUNTER
:LOAD DOWN COUNTER
:RQ:DOH SELECT OF
M )

PATTERNS

sNO GET PATTERN OPERATOR

sWANTS

TO USE

;GET RANDOM ¥ FOR PATTERN
:SE; RANDOM PATTERN

;WORD OFFSET
JOET PATTERN LIST
;GET LIST ADDRESS
;STOR FOR RECALL
;LOAD I7
;ACCOUNT FOR 17
;PATTERN START

;16 ENTRIES
;STORE PATTERN
;DOWN COUNT
sDONE?
;DONE WITH PATTERN
:NO, GO BACK
;RESTART PATTERN

sANOTHER SECTOR
;YES GO BA(K

TO USE

sRESTORE REGISTERS

CIRLKAQ RLOYV/2 PERF EXER
BUFFER GENERATION ROUTINE

2? 020576

c.8

MACRO v03.01 9-FEB-79 19:33:19 PAGE 23-1
FOR THE °'WRITE' FUNCTION

000205

9%:

RTS

.SBTTL

RETRY LIMIT ROUTINE

¢0
gg

;RETRY BUMP,
:

63
64
65
66
gg

020600
020606
020610
020614
020616

026437
001403
005264
005725
000205

R(NT:

TWO RETURNS - CALL +2 - RETRY EXCEEDED
CALL +4 - CONTINUE RETRY

1%:

RETRY(R&) ,LIMIT
1%
RETRY (R4)
(RS)+
RS

CSBTTL

LIST OF

FUNCTION ROUTINES

;WE

764
75
76
77
78
79
80

010246

(Mp
BEQ
INC
181
RTS

000036

SEQ 0093

000036

GO THRU THIS LIST WHEN CALLED

;LIST

020620
020622
020626
020626
020630
020632
020634

000000
014036
014076
014246
014036
014076
014126

;LIMIT REACHED?
sYES TAKE FIRST RETURN
;ACCOUNT FOR RETRY
sNEXT RETURN
;RETURN

LIST:

IS IN NUMERICAL ORDER 1-6
WORD
SKWRT
SKRD
SKRH

SKWRT
SKRD

SKRDRD

;SEEK
;SEEK
;SEEK
sSEEK
;SEEK
; SEEK

IN "GETFNC"

= WRITE DATA - WRITE CHECK
- READ DATA
= READ HDR - READ W/NO HDR CMP - GET

- WRITE DATA - WRITE

- READ DATA
READ

DATA -

READ

CHECK

DATA

STATUS

CIRLKAQ RLOY/2 PERF EXER
BAD SECTCR FILE ROUTINE

MACRO v03.01

.SBTTL

020636

9-FEB-79 19:33:19 PAGE 24

STARS

8
SEQ 0094

BAD SECTOR FILE ROUTINE

:;"""""'""""""'"""""".'.""'."""""."""'

‘

}

:TRACK (CYLINDER 255. OR 511., SURFACE 1) AND READ [N THE FIRST SECTOR
:FOR FACTORY BAD, AND THE 20TH FOR FIELD BAD SECTORS.
R4 WILL CONTAIN

:THE BUFFER POINTER TO THE DRIVE WE WANT TO READ.

;

SCALL

JSR

RS,RDBDSC

;GET THE BAD SECT FILE ENTRYS

STHE BAD SECTOR FILE (BOTH FACTORY AND FIELD) LOOKS LIKE THIS:
SERTAL NUMBER LOW 5 DIGITS (OCTAL SERIAL NUMBER)

0°'s

ENTRY = CYLINDER # FROM O 10 1777 MAX (RLO2) OR 777 (RLO1)

ENTRY - HEAD & SECTOR

28
29
30 020636

:
:
STARS

-1
=1

}

ND NN = OO~

1
1

:RDBDSC -- ROUTINE TO RECOVER BAD SECTOR FILE AND SAVE IT FOR
: COMPARISON UPON ERROR ON READS/WRITES & FOR THE SEEXK FUNCTION. WE
;WILL ONLY RESERVE SPACE FOR 16 BAD SECTORS PER DRIVE AND 1 ENTRY FOR
:THE BAD SECTOR FILE AREA POINTER - LAST TRACK ON THE CARTRIDGE.
;WE WILL ISSUE A DRIVE RESET FIRST, READ HEADER, POSITION TO THE LAST

Ss
&
25

;
:
;

SERTAL

NUMBER WIGH

DIGITS

0's

ENTRY - HEAD & SECTOR NUMBER
ENTRY = (YL

...END OF ENTRYS
...70 WORD 256. (END OF

SECOND SECTOR IN PAJR)

.';tQt"t"l"t"""'t"t""'t"'llt"t'ttll"'tt'tt"".'t"'tt

b3
32
33
34
15
36
37
38
58

020636
020640
020662
020646
020646
020652
020660
020664

010046
010146
010246
010346
004537
012764
004537
0064537

RDBDSC:

020670
020674
020702
020704
020710
020714
020716
020722

016300
02276&
001005
043700
012701
000404
043700
012701

000006
000001

5C 00730

010164

(0000«0

022406
000010
015226
022322

000044

218

MOV
MOV
MoV
MoV
JSR
MOV
JSR
JSR

RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-.SP)
RS, 1SDRST
#RDHDR,FUNC
RS,LDFUNC
RS,WIRDY

MoV
(mp
BNE
BIC
MOV
BR
BIC
MOV

MP(R3),R0
#1,TDR(RG)
238
CYLMSK,RO
#77600,R1
25%
{MSx ,RO
#177600,R1

MOV

R1,BDA(RG)

:SAVE REGISTERS
:
;1SSUE A DRIVE RESET
(R&);:READ HEADER TQ FIND POSITION
;ON
DISK

1
62
3%
&4
&5
46
&7
«8

49 020726
S1
52
5%
S¢
55

0207%
020742
020750
020754
020760

160001

052764
012764
004537
004587
012764

000120

002150
077600

002154
177600

000025
000006
015226
022322
000010

23%:

25%:
000040
000044
000044

SuUB

BIS
MOv
JSR
JSR
MOV

:GET HEADER AND CALCULATE
:RLO2 TYPE DRIVE?
;JUMP IF RLO?2
;HERE FOR RLON

;HERE

FOR RLO?

RO,R1

FSKHS'SIGN'MK ,BDA(RG)
#SEEK,FUNC(R&)
RS,LDFUNC
JSEEK TO THE BAD SECTOR FILE AREA
RS,WIRDY
:WAIT FOR DRIVE READY
#ROHDR,FUNC(R4)

CIRLKAQ RLOV/2 PERF EXER
BAD SECTOR FILE ROUTINE

MACRO v03.01

56 020766
57 020772
58 020776
59 021002
60 021006
61 021014
62 021016
63 021022
64 021026
65 021032
66 021034
67 021040
68 0210642
69 021050
;? 021056

004537
004537
016300
042700
022764
001007
0227G)0
001311
012764
000406
022700
007302
012764
012764
012764

177700
177400
000014

72 021064

005037

002232

021106
021112

012722
005300

177777

80 021116
81 021122
82 021126

016402
016422
012700

004537
006537

015226
022322

86 021142
gg 021146

005774
100042

000104

89 021150
90 021154
91 021162

004537
062764
005737

022406
000004
002232

000040

93
94
95
96
97
gg

021170
021176
021204
021206
021214
021216

012737
022764
001011
022764
001346
000516

003576
000001

002132
000120

077750

000040

100
101
102
103
1064
105
106
107
108
109
110
111
112

021220
021226
021230
0212%
021240
021242
021250
021252

026427
000410
022764
(601335
000505
026427
001330
000500

000040

077724

5%:

177750

0000640

400%:

000040

177724

021254
021260
021264
021270

017401
012164
012164
02212

000710
000100
000102

73
74
75
76
77

021070
021076
021102

;g 021114

83 021132
gg 021136

92 021166

012737
016402
012700

015226
022322
000606
000077
000001

000120

077700
077700

000040

177700

003556
000112
000021

3008:
000040
000042
000044

555%:

002132
11%:

001374

001414

4%:

RS .LDFUNC
RS ,WIRDY
MP(R3) RO
277,R0
#1,TDR(R&)
300%
#77700,R0
213
#77700,BDA(R4)
555%
#177700,R0
21
#177700,BDA(R4)
#-256.,BMP(R4)
#READ,FUNC(R&G)

:RLO2 BSF AREA?
sNO - SEEK AGAIN
;YES - SAVE FOR THE READ COMMAND
;SETUP FOR A 2 SECTOR READ IN BSF
;GET THE READ FUNCTION #

(LR

TEMP3

sMANUFACTURING/FJELD FILE

3%:

;READ A HEADER ON THE BSF
;WAIT FOR DRIVE READY
;GET THE HEADER WORD READ
;CLEAR SECTOR NUMBER READ
;DRIVE = RLO1?
;NO - MUST BE AN RLOZ2
;YES - ON BSF AREA?
:NO = SEEK AGAIN
;SAVE THIS HEADER FOR READ COMMAND

SWITCH

MOV
MOV
MoV
MCv
DEC

FHWSEC,WHY
BSECPT(R4)
,R2
"M7.,R0
#-1,(R2)+
RO

11$

;NO - DO THE NEXT ONE

MOV
MOV
MOV

BSECPT(R4),R2
BDA(R4) ,(R2)¢+
#16.,R0

RS,LDFUNC
RS5,WIRDY

;GET POINTER TO LIST TO STORE BSF
;SAVE 1ST ENTRY AS BSF POINTER
;SIXTEEN ENTRIES

;READ THE BSF SECTOR PAIR
;WAIT FOR DRIVE READY

1ST
BPL

aDCS(R4)
3%

;WAS THE READ GOOD?
:YES

JSR
ADD
TST

RS, 1SDRST
#4 ,BDA(RG)
TEMP3

:NO - ISSUE A DRIVE RESET
;POINT TO NEXT SECTOR
sMANUFACTURING OR FIELD BAD

MOv
CMP
BNE
(MP
BNE
8P

NSWSEC,WHY
#1,TDR(R&)
400%
#77750,8DA(R4)
6%
6%

;F1ELD BAD
;ORIVE = RLO1?
:NO - MUST BE RLO?
;YES - AT END OF FIELD FILE?
:NO - CONTINUE
;DROP DRIVE AND EX]T

(MP
BR
(MP
BNE
BR
(mp
BNE
B8R

BDA(RGL) ,#777264
55%
#177750,BDA(R4)
4%
6%
BOA(RGL) ,#177724
4%
6%

MOV
MOV
MOV
(me

aBBA(R4) R
;START OF BSF ENTRY LIST
(R1)+ ,SERNMI(R4)
;GET LOW PART OF SERJAL #
(R1)¢ SERNM2(R4)
;GET HIGH PART OF SERIAL #
(R1)¢,(RY)
JSKIP PAST JUNK

JSR
JSR

BEQ

55%:

SEQ 0095

JSR
JSR
Mov
BIC
(mp
BNE
(mp
BNE
Mov
BR
(mp
BNE
MOv
MOV
MOV

BNE
000112
000040
000020

9-FEB-79 19:33:19 PAGE 24-1

;START WITH MANUFACTURING BAD
INITIALIZE LIST TO ALL 1'S
;SIXTEEN ENTRIES ¢+ 1 FOR BSF POINTER
;INIT STORAGE TO =1'S
:DONE?

;MANUFACTURING = 0

;AT END OF MANUFACTURING BAD
sSEE IF DONE
;AT END OF FIELD BAD FOR RLO2
:NO GO BACK FOR NEXT
:DROP THE DRIVE AND EXIT
;AT END OF MANUFACTURING BAD?
;BR IF NOT DONE
;YES - REPORT ERROR AND EXIT

ENTRYS

VNN =000~y
NS

3 021272
021276
021300
021306
021310
021312
021316
021320
021326
021332
021340
021346
021352
021356
021362
021370
021374
021376
021400

ol
ol
it
e
-

o 2¥
TP
Pl o3V ol SN S
N
[» " ENTo RV 9 FV

s oy —d

(VI

IV AV

VLV IV

NOD~NO
NS NN — OV

_.—.—d—‘-—.—.—a-‘—‘—.—‘—l—.—0—.—‘—‘-‘—.—.—.-—0—‘-—.—.—‘—‘

v V"] WNRINIANIN
PPN PNININD et acd bt ecd ek e

CIRLKAO RLOV/2 PERF EXER
BAD SECIOR FILE ROUTINE

021406

021410
021414
021416
021424
021426
021434

021436
021444
021452

012137
100444
012137
000337
000261
006037
1030C3
052737
013712
013737

062737

053712
006237
006237
062737
053722
005300
001335
012737
000422

005737
001021
022764

001004
012764
000403

012764
012737

000627

MACRO v03.01

002226
002430
0022¢6

100000

002226
002239
177700
002226
002230
002230
177677
002230

003525

002226
002226

111%:

0022206

002232

2%:

000001

000120

077724

000040

177724
000001

000040
002232

350%:
36%:

004537

021502

6%:
JHERE

021460
021464
021466
021470
021472
021474

004537
012603
012602
012601
012600
000205

023752

7$:

CYLINDER

JEND OF

sPUT

THE ENTRYS?

CYLINDER

IN HIGH BYTE

TEMP1

BCC
BIS

11
#BIT15,TEMPY

MOV

TEMP2 ,TEMPI

TEMP1,(R2)

JSTORE

81C

#177700,TEMPY

;LEAVE ONLY SECTOR

ASR

TEMP?2

TEMP1, (R2)

THE

JGET SECTOR
JSET

CYLINDER PART

IN SECTOR BITS

ASR
BIC

TEMP?2
#177677,1EMP2

;POSITION THE MEAD SELECT B1.
sCLEAR ALL OTHER BITS

DEC
BNE
MOV
BR

RO
1%
#MBOMSC ,wWHY
6%

;COUNT THIS ENTRY FROM BSF
sALLOW MORE ENTRYS?
:MORE THAN 16 BAD SECTORS
;OROP THE DRIVE & ERROR EXI]T

1ST
BNE
CMP
BNE
ng

TEMP3
7%
#1,TDR(RY)
3508
221724,BDA(R4)

;SWITCH TO FIELD BAD OR QUIT
;QUIT, 78
:DRIVE = RLO1?
;NO - MUST BE AN RLO?
sYES = POINT 10 FIELD BSF 1ST

MOV
MOV

#177724 ,BDA(RG)
#1,TEMP3

;POINT TO 1ST SECT IN FIELD FILE
sINDICATE NOW DOING FIELD BSF

BIS

002132

sNO = GET HEAD (0 OR 1) & SECTCR NUMBER

TEMPI

8IS

002230

(R1)e+,TENP?

EHQB

MOV

SEQ 0096
;GEY

ROK

24-2

(R1)+,TEMPI

BM]
L

;HERE
02145«

MOV

MoV

002226

14,9

150
151
152
i53
154
15%

1%:

9-FEB-79 19:33:19 PAGE

B8R

TEMP?2, (R2) ¢+

TO DROP THE DRIVE

JSR

RS ,DRDRvV

:SET IN HEAD

JSR

RS ,HDHOME

MOV
MOV

(SP)+
R
(SP)+,RO

RT1S

(SP)+ R3S
(SP)+ ,R2

FOR RLOZ2

sPROCESS THE FIELD BSF
THAN 16.

ENTRYS OR IF

;DROP THE DRIVE

TO PUT HEADS 'HOME® AND TO EXIT
MOV
MOV

SECTOR

;BRINGS HEADS HOME

CAN'T

FIND A BSF

CIRLKAQ RLOV/2 PERF
N

ROUTINE

EXER

MACRO v03.01

10 DROP DR]VE

9-FEB-79 19:33:19 PAGE

LSBTTL
STARS

021476

ROUTINE

SeEa 0097

TO DROP DRIVE

DRDRV == ROUTINE

TO DROP A DRIVE

IN "DRUT'’,

021476

6_8

STARS

R4 HAS BUFFER POINTER Of
CLEAR BIT

FROM RUNNING

DRIVE

NOT

TO DROP

'‘DRPRS'’

PANNSOOVONO
NS WA 2OV~

;:t'ttt""t'tt"""'t"""t"t't'ttttt'Q'ttttttttttt't't"t"'

005237
010146
010266
010346
005237
005003
012702
012701
020402
001405
005203
006301
062702
000771

021544
021550
021552
021552
021554
021556
021562
021566
021574
021602
021604
021610
021614
021614
021620
021624
021626
021630
34 021634
35 021640
021640
021644
021650
021654
021660
021662
021664
36 021670
021670
021674
021700
021702
021704

005737
001002

[N ] VYUY Y

02147¢
021502
021504
021506
021510
021514
021516
021522
021526
021530
021532
021534
021536
021542

00235¢

ODRDRV:

DRDRV:

002356

026514
000001

1$:

105264
140137

002354

2$:

002356
002354
002274
002272

6%:

000071
002136

007150
000001
000004
005606

002132
004134
006567
000003
000010

007401
000001
000004

MOV
MOV
CMP

000070
000071

R1,-(SP)
R2,-(SP)
R3,~(SP)
INCALL
R3

R1
#PRPOS+2,R2

:NO SHIFT MASK
;NEXT BUFFER

OPCALL
6%
R3
R3,RO

:CALLED VIA OPERATOR?
;YES - SKIP (ODE
;NO = CALLED BY DIAGNOSTIC

EMT
CLR
CLR

REGISTERS

:START OF DRIVE BUFFERS
:MASK
;1S THIS THE DRIVE?
;YES GO DROP 17

B8R

181
BNE
DODU
MOV

;SAVE

#DRBUF ,R2
LR
R4 ,R2

2%
R3

;G0 BACK

C$00DU
INCALL
OPCALL

MOvVB
MOvVB

HOUR,DPHOUR(R&) ;TIME AT WHICH 1T WAS DROPPED
MINUTE ,DPMIN(R4)
;HOUR/MINUTE

INCB

DPMIN(R&)

PRINTF
MOV
MOV
MOV

WFMT14C
FEMT14C,=(SP)
¥ ,-(SP)
SP,RO

BNE
3%:

OPCALL

BEQ
INC

ASL
ADD

000126

010300

104053
005037
005037
113764
113764
001002

INC

MOV
MOV
MOV
INC
CLR

BICR

EMT

;1F MINUTE O,

R1,DRUT

;CLEAR THE DRIVE FROM BIT MAP

CSPNTF

ADD

¥4 ,SP

Mov
MOV

WHY,=(SP)
#DROP ,~-(SP)

JSR
PRINTF

MOV
MOV
MOV
EMT
ADD
PRINTF
MOV
MOV
MOV

EMT

ADD

PC,LINE?2
WFMT7,#DROP,WHY
FEMT7,=(SP)
#3,-(SP)
SP,RO

CSPNTF
#10,SP
WFMTSH
#ENTST,=-(SP)
#1,-(SP)
SP,RO

COPNTF

#6,S5P

sMAKE 1,
:PRINT

A <CR> & <LF>

CIRLKAQ RLO1/2 PERF

ROUTINE

EXER
10 DROP DRIVE

37
38 021710
39
40 021714
021716
&2 021720
63
¥ 021722
1.1

004737

MACRO v03.01

9-FEB=79 19:33:19 PAGE

25-1
SEQ 0098

012442

JSR

PC,REPORT

012603
012602
012601

MOv
MOov
MOv

(SP)+,R2
(SP)+ R

000205

RTS

(SP)+ R}

;RESTORE REGISTLRS

CIRLKAQ RLO1/2 PERF
10 CHECK

MACRO v03.01

DATA

9-FEB-79 19:33:19 PAGE

.SBTTL

ROUTINE

;ROUTINE

021724
021730
021734
021736
021740
021744
021746

002172
010262

C(KDATA:

002174

10%:

000205

= OOV NN

ROUTINE

EXER

'}:NNNN—‘—‘-‘-‘-‘—‘
WN = O 0B ~NO U

021750
021750
021754
021756
021762
021770
021774
022002
022006
022014
022022
022024
022030
022032
25 022034

012700

000340

017402
016437
005437
013737
005037
013737
012737
012201
005337
0061522
005301
012237

000110
000042
002226
010264
002222
010262
000176

104061

97%:

002232
002224

96%:

022062
022066
022070
022070
022072
022074
022076
022100
022104

005237
024242

002172

022106
022110
022114
022120
022126

005301

022132
022134
022140
022142
022144

98%:

~NN

025070

002232
001416

99%:

002234

002226
000020
002226

SETPR]

2340
#340,R0

MOV
MOv
DEC
BEQ
DEC

PATTERN ADDRESS

MOV
MOV

(MP
BEQ
DEC
BNE

002236

DEC

1$:

MOV

TS1

BEQ
181

BEQ
181
BEQ

sNOPE

TO PROCEED

;BUFFER START

;WORDS READ IN
;MAKE POSITIVE
;¥ ERRORS TO BE

PRINTED

:INIT ERROR COUNT
:# WORDS

TO BE

;126 WORDS

COMPARED

:NON-2ERC WORDS

;PATTERN ADDRESS
LEGAL

#PATLST,RO
’8.,R3
(RO)+,TEMPS

99%
R3
98%

REGEN

- OK

:NO, EXIT

($SPR]

MCv

MOv

;YES - SEE IF FORCED EXIT
¢NO = EXIT NOW
;INHIBIT FLAG SET?

aBBA(R4)
,R2
BMP(R4) ,TEMPY
TEMP1
DELMT,TEMP?
DECNT
CMRD,TEMP]
#126.,TEMPO
(R2)+,R1
TEMP1
CEND
R1
(R2)+,TEMPS

INC
(MP
ERRHRD
TRAP
.WORD
.WORD
.WORD
JSR
RTS

106463

000264
003466
005304
004537
000205

RTS

SURE

;CLEAR THE REGENERATE DATA FLAG
;D0 WE WANT TO CHECK ANY?

KILLDC

MOV
;MAKE

026066
000010
002234

97%

CLR

002234

012700
012703
022037
001414
005303
001373

BEQ

EMT

002226

022040
022044
022050
022056
022056
022060

10%
RS

151

SEa 0099

DATA ON RFAD

RTS

MOv
MOV
NEG
MOV

002230

REGEN
(MRD

MoV

002226

1O CHECK DATA

TO CHECK

LR
181
BNE

=(R2),=(R2)
180. ,NOREV ,ERR12
TSERCODE
180

sGET LIST OF PATTERNS
;ONLY EJGMHT

;FOUND IT YET
JYES, CONTINUE

sNO, EXHAUST LIST YET
;NO, GO BACK

:SET

THE DATA REGENERATE FLAG

NOREV

ERR12
RS,STDMP

R1
TEMP4 ,R3
TEMPI
¥16.,TEMPS
TEMPI
CEND
TEMP3
CEND
R1

;ACCOUNT

FOR

PATTERN ADDRESS

;GET ADDRESS
;ACCOUNT ONCE AGAIN

;16 ENTRIES
;ANY

WORDS

TO PATTERN

READIN LEFT?

:NO, GO TO END

;HAVE WE EXHAUSTED
:YES GO TO END

COMPARE

LIM]T?

‘WE CHECKING PATTERN OR 2ERO FlLL?

;IERO FILL SKiP

CIRLKAQ RLO1/2 PERF

ROUTINE

EXER
10 CHECK DATA

022146
022150
022154
022156
022162
022170
022174
022200
022202
02220¢
022212
022214
022220
022226
022230
022234

MACRO v03.01

00223«
000020
002260
002236
002260
002260

DEC
181
BNE

002236

2%:
3%:

002172
002222
000074
002230

000271
003072
005050
005337

022252
022256
022260
022262
022266
022270
022274

005337
001407
005722
005337
001652
005337
000714

022276
022302
022304
022310
022310

005737
001406
005464

022320

000205

BR
(LR

cmp

BEQ
INC
INC
INC

ERRHRD
TRAP

.WORD
.WORD
.WORD
DEC

002230

002226

5%:

002224
002232
002¢22

CEND:

000042

DEC
BEQ

26-1
;PATTERN
;WITHIN PATTERN

TEMPS ,R3
¥6.,TEMPS
(R3)¢,GDDAT
lgHPS

:NO, START OVER
;16 ENTRIES
;GET PATTERN
;DOWN COUNT

GDDAT

SIERO FILL

;YES YES NEXT

GDDAT, (R2)
REGEN
DECNT
DATCER(R4)
TEMP2
5%

:YES SKIP

:CORRECT DATA
:NO - SET REGENERATE FLAG FOR WRT
:COUNT THE DATA ERROR
:COUNT ERROR FOR THIS DRIVE
;D0 WE WANT TO PRINT T
;NO,SK]P

MDCER

ERR8

TEMP?

;ACCOUNT

FOR PRINT

TEMPY
CEND

;WORDS READ

TEMP3
1%

;WORDS

181

DECNT
1%
BMP(R4)

;D0 WE WANT TO PRINT SUMMARY
:NO,EXI]T
;MAKE POSITIVE WORD COUNT

BEQ

OPZRATION

185. ,MDCER,ERR8
TSERCODE
185

(R2)¢
TEMPO
96%

ERRHRD

1%:

R1
TEMPS

187
DEC
BEQ
DEC
BR

NEG

104463

000276
003072
004752

MOv
MOV
MOov
DEC

TS1
BEQ

106463

022312
022314
022316

Sea 0100

002236

022236
022236
022240
022242
022244
022246

9-FEB=-79 19:33:19 PAGE

;NEXT WORD
TO CHECK

190. ,MDCER,ERR6 ;DATA ERROR SUMMARY

TRAP
.WORD
.WORD
.WORD

MDCER
ERRG

RTS

T$ERCODE

190

CIRLKAD RLOYV/2 PERF

ROUTINE

T0 WAIT

FOR

EXER

CONTROLLER

MACRO v03.01

READY

9-FEB-79 19:33:19 PAGE

— O000

R
— —

—

NON
NS NN

—

=S OV

.SBTTL

ROUTINE

Sta 0101

TO WAIT FOR CONTROLLER READY

:ROUTINE TO WAIT FOR CONTROLLER READY UNDER FLAG

USED IN INITIALIZE PORTION OF PROGRAM |.E.
;MODE.
:GETTING BAD SECTOR FILE, WRITING PACK INITIALLY

022322
022324
022326
022332
022332
022336
022340
022346
022350
022352

WIRDY:

001750

1%:

000002
000200

001752
002516
005304

022364
022366
022370

012601
012600
000205

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

MOv

'ZQ'RO
(swiv

MOV
WAITUS

EMT
811
BNE
DEC
BNE

000104

001367

022354
02235¢4
022356
022360
022362

Mov
Mov

ERRDF

106462

TRAP
.WORD
.WORD
.WORD

2%:

MOV
MOV

RTS

:;000.,R\

:SAVE REGISTERS

JWAIT A WHILE

#CROY,aDCS(R4)

;READY

R1
1%

;TIMED OUT?
:NO GO BA(K

SET?

(YES, EXIT

1002. ,NOCRDY ,ERR1?2
TSERCODE
1002
NOCRDY

ERR12

(SP)+ R
é%P)’,RO

;RESTORE

REGISTERS

MACRO v03.01

NP —

CIRLKAOQ RLOY/2 PERF EXER
GET STATUS/DRIVE RESET ROUTINE

.SBTTL

GET

8
SEQ 0102

STATUS/DRIVE RESET ROUTINE

:ROUTINE TO ISSUE DRIVE RESET
;ALSO GET STATUS, R1 HAS STATUS IF 6S

N
o e

VNS NN = OO0 N
= OOV

PUOND —t e ccd ced o s e e

9-FEB-79 19:33:19 PAGE 28

;USES R2, DOES NOT SAVE IT
022372
022376
022404
0226406
0226412
022420
022626
022434
0226442
022446
022454
0226456
022462

0164G3
012763
000405
016403
012763
012763
056463
042763
004537
022763
001402
016301
000205

000104
000003
000104
000013
000204
000106
000200
022322
000013
000006

022464

000004

000004
000000
000000
300000
000004

GETDST:

MOV
MOV
BR

ISDRST:

MOV

MOV
CSTUFF: MOV
BIS
8IC
JSR
cmp
8EQ
MOV
1%:

RTS

DCS(R4) ,R3
#GSBIT,DA(RY)
CSTUFF
DCS(R4) ,R3
#ORST ,DA(R3)
#CRDY!GSTAT ,(S(R3)
DRSEL(R4),CS(R3)
#CRDY,CS(R3)
RS ,WIRDY
#DRST,DA(R3)
19
MP(R3) ,R1
RS

STARS

2
3 022464

;?AND
STARS

ROUTINE

TO GENERATE

N N

Rty

A RANDOM NUMBER

;;'l."l""'""""""t"""'l"""t.t'll..'t""'.t""t".

25 022464
26 022466
27 022470

0
0
0

29
30
31
32
33
34
15
36
37
38
39
40
41
42
63
44
45
46
47

703
0
0 013701
012702
006303
006101
005202
001374
063703
005501
063701
062703
005501
062701
010337
010137
012603
012602
012601
000205

022472
022476
022502
022506
022510
022512
022514
022516
022522
022526
022530
022534
022536
022542
022546
022552
022554
022556
022560

RAND:

002146
002146
17771

002146
002144
001057
047401
002144
002146

1$:

MOV

R1,-(SP)

MOV
MOV

R2,-(SP)
R3,-(SP)

MOV
MOV
MOV
ASL
ROL

LONUM,R3
HINUM,R1
#-7,R2
R3
R1

ADC
ADD

R1
HINUM,R1

INC
BNE
ADD

R2
1%
LONUM,R3

ADD
ADC
ADD
MOV

#1057 ,R3
R1
67401 ,R1
R3,HINUM

MOV
MOV

(SP)+,R3
(SP)+,R2

[ (o]

MOV

RTS

R1,LONUM
(SP)+,R1

CIRLKAO RLOV/2 PERF EXER
-

ROUTINE

10 WRITE PACKS

INITIALLY

MACRO v03.01

.SBTTL
STARS

022562

9-FEB-79 19:33:19 PAGE 29
ROUTINE TO WRITE PACKS

~NOVNS N

MASAAAAAAAAA

ik
el
ol

W=DV

INITIALLY

222

RRE

:WRPACK == ROUTINE TO WRITE PACK WITH PATTERN, ALL TRACKS WILL BE
WRITTEN (EXCEPT BAD SECTOR TRACK)
FORMAT 1S # OF WORDS (WORD 1), PATTERN ALUXESS (WORD 2)
'

’

”
[

—b

SEQ 0103

’
.
[

PATTERN (WORDS 3 - 128)
WE WILL ATTEMPT TO WRITE MULTIPLE SECTORS AT A TIME
{MINIMUM 10 SECTORS) IF AN ERROR OCCURS WE WILL THEN

WRITE INDIVIDUAL SECTORS FOR
READS AND INCORE COMPARISONS

THAT TRACK.
10 VERIFY.

DO WRITES,

J
L

022562

S TARS

CALL:

JSR

RS,WRPACK

;WRITE

THE PACK

SELECTED

N=O0VBNOWVES

PORIN)
b ced cd ot e s

';t't"""t""'t"'"""'"t"""'t'l"t."l't'.t"""t"tl'

022562
022564
022566
022570
022572
022576
022602
022604
022606
022610
022614
022620
022622
022624
022630
022634
022640

010046
010146
010246
010346
016446
005764
001016
012746
012746
012746
010600
104017
062706
004537
004737
004537

WRPACK:

MOV
MOV

Mov
MOV
MOV
1S1

000110
000122

BNE

PRINTF

004236
007335
000002

Mov

Mov
MOV
MOV
EMT

000006
023630
005606
023752

ADD

1%:

JSR
JSR
JSR

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

R2,=(SP)
R3,-(SP)
BBA(R&) ,-(SP)
WRIPG(RG)

#FMT18, #MMSWRPK

: SAVE

REGISTERS

;SEE

;JUMP IF

WRITE

IN PROGRESS

DON'T WANT MESSAGE ON RECOVERY

#MSWRPK ,-(SP)

NFMT18,-(SP)
¥2,-(SP)
SP,RO
CSPNTF

#6,SP

RS,GETSYS
PC,LINE2
R5,HDHOME

:GET THE CURRENT RUN TIME
;PRINT TIME-RCLS & DRIVE ID
sHEADS HOME

INOW ACTUALLY WRITE DATA OUT ON PACK, WILL NOT WRITE LAST
; TRACK

022644
022650
022652

022660
022662
022666
022670
022674
022676
022700
0227064
022706
022712
022714
022720
022724
022726

022730

005037
005001
022764

001007
022701
001023
005737
001420
000406
022701
001014
005737
001411
004537
012664
012603
012602

012601

002226

000001

000120

CONWR:

077600

45%:

002226
023752

000110

ENDWR:

TEMPI
R1
#1,TDR(R4)

BNE

45%

B8R

ENDWR

CMP
BNE
181
BEQ

002226
177600

CLR
CLR
(MP

CMP
BNE
191
BEQ

JSR

MOV

MOV
MOV
MOV

; TEMP1=HEAD
sR1=CYL

#077600,R1
STWRY
TEMPI
STWRT

#177600,R1
STWRT
TEMP
STWRT

RS,HDHOME

(SP)+ ,BBA(RS)

(SP)+,R}3
(SP)+,R?
(SP)+
R

;NO GO WRITE TRA(K
JYES, CHECK IF HEAD =
JHEAD = 0 GO WRITE

;sHEADS HOME

CIRLKAQ RLO1/2 PERF

ROUTINE

EXER

10 WRITE PACKS

022732
022734

INITIALLY

MACRO v03.01

9-FEB-79 19:33:19 PAGE

012600
000205

MOV
RTS

29-1

(SP)+ RO

:THIS PORTION WILL WRITE

SEC 0104
JEND EXIT

THE

PACK

;ERROR CCCURS WE WILL GO TO 2% AND

022736
022740
0227646
02275¢
022760
022764
022770
022776
023002
023004
023012
023016
023020
023026
023032
023040
023044
023050
023054
023056
023062

005062
012764
012764
005237
004537
010164
053764
005764
001406
026464
001402
000137
050264
012764
012764
004537
004537
005774
100003
004537
000421

023064
023072
023076
023102
023106

012764
004537
004537
005774
100763

000002
015226
022322
000104

023110
023114
023120
023122

062702
022702
001321
000137

000012
000050

002316
175400
002172
020352
000040
002226
000122
000124
023424
000040
002316
000012
015226
(22322
000104

000110
000042

000040

STWRT:

JSR

201%:

Mov

762%:

TST
BEQ
cMp
8ta
JMP
BIS

000040

000110

(LR

Mov
Mov
INC

B1S

MOV
MCv

000044

JSR
JSR
1S1

022406

000044

205%:

BPL
JSR
BR

203%:

MOv

005002

023130
023136
023142
023150

012764
010164
053764
050264

177600
000040
002226
000040

000042

C23154
023162
023166
023172
023176
023204
023210

012764
004537
005037
005037
012764
004537
004537

002316
020352
002130
002222
000012
015226
022322

000110

2%:

000040

000044

3%:

WRIPG(R4)
762%

91%:
98¢:
96%:

;BUFFER START

;WRITE

IN PROGRESS?

;NO - JUMP OVER

PRPOS(R&) ,BDA(R4)

;YUP = ON CYLINDER NOW?

7629
952%

sYUP = WRITE THIS AREA
:NO - LOOK AT NEXT AREA ON DRIVE

FWRITE ,FUNC(R4)

;WRITE

R2,BDA(RL)
#BUF1,BBA(RG)

RS,LDFUNC
RS,WIRDY
aDCS(RG)

;SET UP TO WRITE

;WAIT FOR READY
;ERROR

2J3%

RS, ISDKST

#WRCHK ,FUNC (R&)

#10.,R2
#40.,R2

;ERROR

;YES GO DO SECTORS

201$
252%

:NO, GO BACK
sYES NEXT TRA(K
COME HERE AND DO THE

TRACK SECTOR

;R2 = SECTOR

MOv
MOV
BIS
BIS

#-128. ,BMP(R&)
R1,BDA(R4)
TEMP1,BDA(R4)
R2,BDA(R4)

;LOAD WORD COUNT
;SETUP DISK ADDRESS

JSR
CLR
(LR
MOV
JSR
JSR

#BUF1,BBA(RG)

RS,WRBUF

;WRITE

DECNT

;

RWCNT

INDIVIDUALLY

:NEXT GROUP
:DONE?

(LR

MOV

;10 SECTORS
;SET THE GENERATE BUFFER FLAG
¢WRITE BUFFER INTO MEMORY
;SET UP SECTOR

;1F AN ERROR OCCURS THEN WE
;B8Y SECTOR.

023126

#-1280.,BMP(R&)
REGEN
RS ,WRBUF
R1,BDA(R4)
TEMP1,BDA(R4)

ADD
(MP

BNE
JMP

0Q2342¢

SECTORS

SECTORS.

sINITIAL SECTOR 0

BMI

151

INDIVIDUAL

#BUF1,BBA(RL)

RS,LDFUNC
RS,WIRDY
a0CS(RG)
205%

JSR
JSR

USING MULTIPLE

A BUFFER

;CLEAR RETRYS OUT

#WRITE,FUNC(R4) :WRITE FUNCTION

RS, LDFUNC
RS.WIRDY

;WAIT

FOR WRITE

TO FINISH

CIRLKAO RLOV/2 PERF

10 WRITE PACKS

INITIALLY

023214
023220

005774

000104

023222
023230
023234
023240

016437
004537
005737
001050

000040
025300
002216

023242
023246
023254
023256
023262

005237
023727
001440
006537
000745

002222
002222

023264
023270
023276
023302

005037
012764
004537
0046537

002126
000002
015226
022322

023306
023312

005774
100025

000104

023314
023322
023326
023332

016437
004537
005737
001013

000040
025300
002216

023334

023340
023346
023350
023354

005237
023727
001403
004537
000745

002126
002126

023356
023362

004537
004537

023510
022406

023366
023372
023376
023400
023404
023406
023406
023412
023416
023420
023424

06270
020227
003002
000137

000012
000047

023424
023430

005737
001420

002226

023432

005037
062701
012764
012764
004537

002226
000200
000205
000006
015226

ocnwowbum—-oomwowrwmaoomwo\»rum—ao%mg
(P
VN
N
D OOV

—

ekl

—

oo [ RV IV IV SV LW LV TV TV 1V ]

— o dnd d

b s

b il e o

D sl il el i e s e

i il d D e

D oD s

AN AN AN AN AN N N N AN NN NI NI NI NI NI PO NIPIN et b it b b b b 2 =

e sl i e

ROUTINE

EXER

023436
023442
023450
023456

100021

005202
162702
020227
001402
000137

MACRO v03.01

002220

9-FEB-79 19:33:19 PAGE

000044

85%

:NO,

GO READ

MOv

BDA(R&) ,CHKSEC
RS,CKBDSC

;YES,

CHECK

002220

:NO, GIVE IT 3 TRYS TOTAL
;1T MAY HAVE BEEN NOJSE.
;BR IF AT RETRY LIMIT - BAD SECTOR
;RESET THE DRIVE & TRY AGAIN

RS, ISDRST
96%

CLR
Mov

JSR
JSR

RECNT
FWRCHK ,FUNC(R&)

RS,LDFUNC
RS,WIRDY

;CLEAR RETRY COUNT
;READ/VERIFY THE 1 SECTOR WRITTEN
;ISSUE A WRITE-CHECK FUNCTION
;WAIT FOR DRIVE READY

181
BPL

aDCS(RG)

;ERROR ON READ?
:BR IF OK ... GET THE NEXT SECTOR

MOV

BDA(RL) ,CHKSEC
RS, CKBDSC

802%

;CHECK IF SECTOR IS
;A KNOWN BAD SECTOR
;1T WAS THEN
;60 TO NEXT SECTOR

801%

95%

HDRF ND

;TRY

RECOVERY

AGAIN

CMP
BEQ
JSR
BR

RECNT

;GIVE

801%
R5,ISDRST
80%

;AND RETRY

801%:
802%:

JSR
JSR

RS, INBAD
RS, ISDRST

:REPORT THE BAD SECTOR
;RESET THE DRIVE FOR THE NEXT OPERATION

95¢%:

ADD

(MP
BGT
JMP

R2,#39.
951%

;NEXT SECTOR (OFFSET BY 10)
:DONE WITH TRA(K?
:YES NEXT TRACK
:NO GO BACK FOR NEXT SECTOR

INC
SuB
(MP
BEQ
JMP

R2
#40. ,R2
R2,#10.
952%

INC

022406

951%:

000050
000012
952%:

4%:

RECNT,#16.

1T ANOTHER CHANCE
;16 RE-READS BEFORE HARD ERROR
;REPORT ERROR IF AT RETRY LIMIT
;RESET THE DRIVE

;NEXT

AGAIN

SECTOR

;DONE WITH TRACK?

SYES

:NO

BtQ

TEMP1

:WHICH SURFACE?
“TOP (0), BRANCH

CLR

TEMPY
#200,R1
#205,BDA(RS)

:BOTTOM, SWITCH TO TOP WITH

1S1

000040
000044

SECTOR

JSR
BR

JSR

000020

023136

§02%

;BAD SECTOR FILE
;1F SET, 1T WAS
:YES GO TO NEXT SECTOR

DECNT
DECNT,#3.

181
BNE

023136

HORFND

;ERROR ON WRITE?

INC
CMp

BEQ

85%:
80%:

SEQ 0105

aDCS(R4)

181
BNE

022406

29-2

1S7
BPL

JSK

000003

ADD
MOV
MOV

JSR

NSEER,FUNC(RG)

RS ,LDFUNC

;SEEK, GO IN ALSO
;G0 SEEK

CIRLKAO RLOV/2 PERF

ROUTINE

EXER

TO WRITE PACKS

INITIALLY

MACRO v03.01 9-FEB-79 19:33:19 PAGE 29-3
SEQ 0106

;gg 023462

006537

022322

JSR

RS,WIRDY

}gg 023466

000137

022652

JMP

CONWR

168 023472

012737

000100

5%:

MOV

MOV
BR

#HEAD, TEWPI

#21,BDA(R4)
4%

172
173
176
175
176
177
178
179
180
181

010146
016403
016337
016337
016337
004537
004537
010137

000104
000000
000002
000004
023630
022372
002304

INBAD:

MOV
MOV
MOV
MOV
Mov
JSR
JSR
MOV
ERRHRD

R1,-(SP)
: SAVE R1
DCS(R4) ,R3
;GET THE CSR ADDRESS
(S(R3),E.CS
;GET THE ERROR INFO FROM (SR
BA(R3) ,E.BA
DA(R3) ,E.DA
RS ,GETSYS
:UPDATE THE RUN TIME
R5,GETDST
;GET THE CURRENT DRIVE STATUS
R1,E.MP
;SAVE 1T AS "(RLMP)'' DATA
199, ,NWRTS,ERR12

.WORD

NWRTS

INC
1ST
BEQ
(mp

ERRCNT(R4)
1.DRP
;ARE WE COUNTING ERRORS
2%
:NO
ERRCNT(R&4) ,ERLMT;PAST IT

MoV
JSR

NERLMTM, WHY
RS ,DRDRV

169 023500
};? 023506

182
183
184
185

023510
023512
023516
023526
023532
023540
023544
023550
023554

023556
023556
023560
023562

012764
000763

104463
000307
002573
005304

000021

002226

000040

002276
002300
002302

TRAP
.WORD

.WORD

(023564
023570
023574
023576

005264
005737
001413
026437

000012

010250

187 023606
188 023614

012737
004537

003157
021502

002132

186 023606

103407

}gg 023620

012705

191 0236264
192 023626

012601
000205

000012
010310

BLO

022714

2%:

;WAS TOP, MAKE BOTTOM.

TSERCODE
199

ERR1?2

MOV

#ENDWR,RS

MOV
RTS

(SP)+ R
RS

:NO

JRESET

C7RLKAQ RLOV/2 PERF

ROUTINE

FOR

EXER

MACRO v03.01

SYSTEM CLOCK

9-FEB-79 19:33:19 PAGE

oo~ OCWVNE

NN 2O 00D~

NS NN —

—

no N POPOINOPNIPORNINY
= b ed o b et e e et

0O~

VNN

.SBTTL

ROUTINE

9
Sea 0107

FOR SYSTEM CLOCK

;ROUTINE TO READ SYSTEM CLOCK

;USES 'REGTIM' FROM DIAGNOSTIC SUPERVISOR

023630
023634
023636
023636
023640
023642
023642
023644
023650
023652
023656
023662
023664
023670
023676
023700
023706
023712
023716
023724
023726
023734
023736
0237642
023750

005737
001062

002314

GETSYS:

BREAK
EMT

104022
000205

104045
020037
001437
013701
010037
160100
060037
022737
003024
162737
005237
005237
022737
003765
022737
003005
005237
162737
000205

151
BNE

002266

1%:

002266
002266
00227C
000074

002270

000074
002264
002272
000074

002270

000074

002272

002274
000074

2%:
7%:

002270

002272

RTS
REQTIM
EMT
CHP

BEQ

MOv
Mov
suB

ADD

CMp
861
SuB
INC
INC
CMP
BLE
CMP
BGT
INC
SUB

RTS

SYSCLK
6%

($BRK
RS
RO
CSREQTIM
RO,LSTTIM
3%
LSTTIM,RY
RO,LSTTIM
R1,RO
RO,SECOND
#60.,SECOND
3%
#60.,SECOND
INTERVAL

MINUTE
#60.,SECOND

7%
#60. ,MINUTE

HOUR
#60. ,MINUTE

;00 WE HAVE A (LO(K

SYES, GO SERVICE 17
:NO, CALL SUPER FOR

“(

JEXIT
;GET PRESENT TIME
;HAS

1T MOVED

;NO MOVEMEMT SINCE LAST CALL
;CALCULATE
:AND

DIFFERENCE

FIX ACCORDINGLY

:BUMP SECONDS
; SECONDS OVERFLOW

:TIME BETWEEN REPORTS
;BUMP MINUTES

CIRLKAQ RLOV/2 PERF

HEADS HOME

ROUTINE

EXER

MACRO v03.01

9-FEB-79 19:33:19 PAGE

9
SEQ 0108

.SBTTL

2 023752

STARS

HEADS HOME

ROUTINE

;;'ltlt't""tl't"'tt'"l'"tt"'t"ttItt"."""""""t"'it

;HDHOME -- ROUTINE TO BRING HEADS OVER TRACK O

4 023752

STARS

;"""tt'tttt"t't't"'t"l"""tt't""'ttl'tttltttt""'t'tt't

S
6 023752

010046

8 023762
18 023766

004537
004537

015226
022322

11
12
13
14
15
16
17
18
19

016300
042700
010064
010064
052764
012764
004537
004537
005064

000006
000177
000050
000040
000001
000006
015226
022322
000124

7 023754

023772
023776
0264002
0264006
024012
024020
026026
024032
024036

20 024042
21 0264044

012764

012600
000205

000010

000044

000040
000044

HDHOME: MOV

RO,~(SP)

:SAVE RO

JSR
JSR

RS ,LDFUNC
RS,WIRDY

;G0 0O IT,

MOV
BIC
MOV
MOV
BIS
MOV
JSR
JSR
CLR

MP(R3),RO
#077.R0
RO,LSTHDR(R4)
RO,BDA(RG)
#MK ,BDA(RS)
NFSEEK,FUNC(R4)
RS,LDFUNC
RS,WIRDY
PRPOS (R4)

MOV

MOV
RTS

#ROHDR,FUNC(RG)

(SP)+,R0O
RS

;READ HEADER

:GET

HEADER

sONLY CYLINDER
JSAVE THIS CYL # AS THE LAST POSITION
JMOVE 17 TO BUFFERED DA
:SET MARKER FOR SEEK T0 000
;LOAD SEEK
; SEEK!
cWALT,
JSET BUFFER TO HOME CYLINDER (000)

CIRLKAO RLOY/2 PERF
N

RANDOM WC

EXER

MACRO v03.01

AND DA ROUTINE

9-FEB-79

5?2;;L

024046

19:33:19 PAGE

RANDOM WC

SEQ 0109

AND DA ROUTINE

—

OV
NOC NS W

M 'lt"'"""""""""'""""'"Qll"""'.'.t"""'.'i"'

:GWCDA -- ROUTINE

:
:
:
:

éTARS

024046

TO GET

RANDOM SECTOR AND WORD

COUNT

FOR R/W TRANSFER.

SECTOR 1S CHOSEN BETWEEN MIN/MAX LIMITS, WORD COUNT
MIN/MAX WORD COUNT. WORD COUNT WILL BE ADJUSTED NOT
TRACK OVERFLOW 1F HIGH SECTORS ARE CHOSEN....
R4 HAS BUFFER OF DRIVE WE'RE WORKING WITH
ON EXIT

- BMP(R4)
- BDA(R&)

|S BETWEEN
TO CAUSE

HAS WORD COUNT
HAS DISK ADDRESS

NN —

;;t"t"""tl"tt'"'""Q"'"""""'i"""l"tf'l.l"""l.

NN=OW

PUOPNIN) =t od

d et e e

0264046
024054
024056
024062
024064
024070
024074
024100
024104
0264106
024110
23 0264112
24 024114
25 026120

26 024122
27 026124

023737
001003
013702
000421
004537
013702
042702
023702
103003

006202
005202
000770
020237
103002
06102
000763

010302

010304

GWCDA:

010302

022464
002146
177700
010302

99%:
1%:

010304

3%:

33 026132
36 0264134

15 024142
36 024150

OO0O—=OO00O0O0COo

95%:

00232¢
010270
003310
007105
000004

41 024214
42 024222
63 024224

OO0

002322
002322

010270

45 0242%2
46 0246236

OO0

38 024152
024152
0264156
024162
024166
024172
024176
0246200
024202
39 024206

5%:

010270

47 024240

INC
BR
(MP
BHIS

010270

010312

BHIS

RANDOM # FOR SECTOR

SHALF

R
1%
R2,T.MNS
5%

;0=77 ONLY
:R2 LOWER THAN MAX

;BRANCH IF

;INC

YES

SO NCT O

:MIN OKAY

COUNT

MAXWC,T.MXB

;RESTRICT THE
;BR IF YES
:NO - MAKE

MAXWC

= BIGEST

#FMT13D,#OVER,T.MXB,MAXW(

MOv

¥4 ,-(SP)

NEMT13D,-(SP)
SP,RO

CEPNTF
#12,SP

Mov

MAXWC,
T .MXB

(MP
867

T.MXB,T.MNB
6%

;MIN MAX EQUAL

T.MXB,R3

JYES SET WC

BR
JSR

XFER SIZE?

97%

MAXWC,=~(SP)
T.MXB,=(SP)
#OVER,-(SP)

MOv

ONE

MOv
MOV
MOV

MOv

6%:

sGET

MAXWC,T.MXB

EMT
ADD

97%:

R5,RAND
LONUM,R2
#177700,R2
1.MXS,R2

(MP

MOv

010312

;LOAD SECTOR
.60 GET Ww(

CALCULATE

1.S5T1P
95%

MOV

SECTORS EQUAL

:NO,

187
BNE

MOv

010270

022464

WORD

PRINTF

000012
002322

T1.MXS,R2
5%

ASR

010336

:MIN MAX

JSR
MoV
BIC
cMp

MoV
BR

ROL

005737
001003
013737
023737
103021

T.MXS,T.MNS

99%

BHIS

sNOW GET

32 024126

(MP

BNE

T.MXB,T.MNB

9%
RS ,RAND

;GET

RANDOM WORD COUNT

XFER

SIZE

AVAIL.

CIRLKAO RLOY/2 PERF

RANDOM WC(

MACRO v03.01

AND DA ROUTINE

48 024264

49 024250

50
51
52
53
56
55
56
57
58

EXER

024254
024260
024262
024264
024266
024270
024274
02427¢
024300

013703

042703

023703
103003
006203
005203
000779
020337
103002
006103
000763

9-FEB-79

19:33:19 PAGE

67 024314
68 024316
69 024322
70
71
72
73
74
75
76

024324
024326
0264330
0264332
0264340
024346
0264352

012701
005403
010364

005301
062703
100774

020201
101401
010102
016464
042764
050264
000205

32-1
SEa 0110

002146

7%:

160000

01070

MOv

81C
(mp
BHIS

LONUM,R3

#160000,R3
1.MxB,R3

H 1)SRRR

ASR

010312

8%:

INC
BR

(MP

BHIS
ROL

BR
;NOW WE

HAVE

9%:

Mov
NEG
Mov

SECTOR

AND WORD

J1F NOT LOWER SECTOR START

64 0264302
65 024306
66 0264310

6.9

000050

000042

11%:

000200

DEC

ADD
BMI]

CMP
BLOS

000124
000077
000040

000040
000040

129%:

MOov
MOV
BIC

B1S
RTS

#40. ,R1

R3
R3,BMP(R4)
R1
#128.,R3
11%

R2.R1
12%
R1,RZ

(OUNT,

THAT

WORD

;SETUP FOR FOURTY

COUNT

WiLL

FIT

SECTORS

;MAKE WORD COUNT NEGATIVE
;LOAD WORD COUNT

;DOWN COUNT MINIMUM START SECT
sONE SECTOR'S WORTH
;STILL NEED ANOTHER SECTOR

;DID RANDOM SECTOR SUFFICE
;BRANCH [F SUFFICED
;NO, THEN MAKE IT FIT

PRPOS
(k&) ,BDA(RY)

#77,BDA(RG)
RZ2.BDA(RSG)

CHECK

NEEDED

SECTOR

CIRLKAQ RLOY/2 PERF
N

ROUTINE

EXER

TO DUMP BUFFER O N DCK

MACRO v03.01

§?2;gL

02435¢

9-FEB-79 19:33:19 PAGE

DHPBUF
,‘

026354

STARS

ROUTINE

9
SEa 01N

TO DUMP BUFFER ON DCK

==~ ROUTINE TO DUMP BUFFER ON DCK
ONE WHERE WE CAN COMPARE WHAT [1

WHEN WE

CAN'T.

ITT

ERROR, TwO DUMPS ARE POSSIBLE
SHOULD BE AND THE OTHER

02435¢L

005716

DMPBUF: JSR

N=—=OQOOV
W
OO0~y

";"""""""""'"""""""""'t""l""'"""I"'t".

ot e

:CALCULATE
024360

024366

016400

026372
024376
024402
0246406
026410
024412
0264414
024416
23 0246422
024424
024426
024432
024434
0246436
024440
e

000200

45
Lt

93%:

94%:

002300

STARTING BUS ADDRESS

MOV

E.DA,R1

;GET

PRESENT

MOV
MCV
SUB
CLR

RO,R2
R1,R3
R2,R3
R2

;SAVE A (COPY
:SAVE ANOTHER
sGET DIFF OF SECTORS
;CALCULATE WORD COUNT

BMP(R4) ,R3

;GET

WORD

JGET

SECTOR DIFF

003770
007070
000005

1%:

#177700,R0
#177700,R1

ADD
DEC
BNE

#128..,R?2
R3
93%

NEG
(MP
BGT
MOV
SuB
BR

R3
R2,R3
949
E.BA,R?2
¥400,R2
96%

SuB
MOV

MOV
96%:

000014
026066
000010
000002

JGET

SUB
MOV
ASL

002344

0
0
0
0
0
0
0
1
0
0
0
0
0
0
0

BDA(RG) ,RO

MOV

002300
000400

#128.,DWCNTT

COMPARE

MoV

BIC
BIC

000042

000200

THE STARTING BUS ADDRESS FOR THE

Mov

17770C
177700

PORIND =t el ot o

40
41
42
43

002346

002302

0246444
024450
024452
024454
024460

024462
024466
024470
024474
024476
024476
024502
024506
024510
024514
0264520
024524
024526
024530
024534
024540
0246544
024550
024552
024554

000200
000040

PC,LINE3

SUB

PRINTB
MOV
MoV

MOV
MOV
MOV
MOV
MOV
EMT
ADD
MOV
MOV
cmp

BEQ
DEL
BNE

R3,R?
#128.,R0

;SAVE
:

DISK

SECTOR BITS

ADDRESS

JONE SECTORS WORTH
; DONE
;NO
COUNT

:MAKE IT POSITIVE
JWORKING WITH FULL SECTOR
JNO, GO CALC PARTIAL SECTOR
sPRESENT BUS ADDRESS
;START OF COMPARE
;GO COMPARE BUFFER

R2,RO
RO,DWINTT
RO
E.BA,R?

RO,R?2

WFMT13,#BUSAD,R2.¥#CRLDA,CHKSEC
CHKSEC,~(SP)
#CRLDA,-(SP)

R2,-(SP;
#BUSAD ,=-{SP)
#FEMT13,=(S5P)
#5,-(SP)
SP,RO
(SPNTB
#14,5P
#PATLST,RO
#8. R
(RO)+,2(R2)

2%
R
1%

sCHECK PATTERN L1IST

CZRLKAQ RLOV/Z PERF

ROUT INE

EXER
10 DUMP BUFFER ON D(K

&7 026556

026556
024562
0264566
024572
026574
0264576
024602

012746
012746
012746
010
10
062765
000532

003466
007132
000002

02460
026610
0264612
024616

021227
101362
005037
013701

000200
002222
010332

024622
0264626

012237
013737

002224
002224

9-FEB-79 19:33:19 PAGE

PRINTB

002342
002226
000002
000002
002226
000020
002224

#NOREV,-(SP)

ADD

#6,5P

024754
024760
024762
024764
024766
024766
024770
0264774
025000
025004
025010
025012
025014

005237
005701
001416
005301

025020
025024
025026
025034
025036
025036

005237
005722
023737
003716

002230

013746

002230

2%:

CMP
BHI
CLR

MOV

MOV
MOV
NEG
Mov

002342
002224
002230
002236

SuB

4%:

002224
002236

000020
002226
002260
002236

MOV
MOV
MOv
187

BEQ
DEC
1ST

BNE

002236
5%:

002260
002342
002260

6%:
7%:

002222

0060012
8%:

002344

SP,RO

CSPNTB

Stomp

(R2),#128.

DECNT
T.CLT,RY
(R2)+,TEMPO
TEMPO,DWCNT
DWCNT
(R2)+,TEMP1
#2,TEMPO
#2,TEMP2
TEMP1,R3
¥16.,TEMPS
TEMPO
6%
TEMPO
TEMPS

#16.,TEMPS
TEMP1,R3
(R3)+,GDDAT
TEMPS
7%
GDDAT
CWONT
(R2) ,GDDAT
8%

INC

PECNT
R1

BR
CLR
INC
cMp
BEQ
1S1

002260
002230
007153
000004

SENTI4,-(SP)
#2,-(SP)

MOV
MOV
MOV
DEC

BEQ
DEC

002230

33-1

FEMT14,ANOREY

Mov
MOV
MoV
MOV

005437
012237
162737
012737
013703
012737
005737
001417
005337
005737
001005
012737
013703
012337
005337
000402
005037
005237
021237
001422

1.9

SEQ 0112

000006

024634
024640
024644
024652
024660
024664
024672
024676
024700
024704
024710
024712
024720
0247264
024730
024734
024736
024742
024746
024752

011246
013746
013746
012746
012746
010600
104014
062706

MACRO v03.01

INC
181
(MP

TEMP2
(R2)¢
TEHPZ,DUCN11

MOV

SWITHIN LIST

R1
#EMT14B,TEMP2,GDDAT,
(R2)
(R2) ,=(SP)
GODAT,=(SP)
TEMP2,=(SP)
#FMT14B,-SP)

#12,sP

PRINTB

;WORD
:PATTERN ADDRESS
;16 ENTRIES
:ZERO OR PATTERN
: LERO BRANCH

8¢

PRINTB
MOv
MOV
MOv
MOV
MOv
MOv
EMT
ADD

BLE

;NONZERO WORD COUNT

#6,-(SP)

SP,RO
CSPNTB

#FMTOA DECNT, TEMP?
TEMP2,=(SP)

CIRLKAQ RLOV/2 PERF

ROUTINE

EXER

10 DUMP BUFFER ON D(K

025042
025046
025052
025056
025060
025062

062706

025066

000205

013746
012746
012746
010600
106014

MACRO v03.01

9-FEB-79 19:33:19 PAGE

002222
006651
000003

Mov
MOV
Mov
Mov

DECNT,-(SP)
FEMTOA,-(SP)
#3,-(SP)

ADD

#10,sP

RTS

000010

33-2

SEQ 0113

SP,RO
CSPNTB

02525¢4

fol
(9]

637

O©O0O0—-00O0Oo

—r et OO b e e et
NN
ONNW
NNOO N~
OCO—=Or
2k
X =Te ¥ g

737

746

000

025070
025076
025102
025110
025110
025114
025120
025124
025126
025130
99 025134
100 025140
101 025144
025144
025146
025152
025156
025160
025162
102 025166
103 025170
104 025172
105 025174
025174
025200
025204
025206
025210
025214
025220
025224
025226
025230
025232
025234
025234
025240
025244
025246
025250

COD
Yo

;ROUTINE TO DUMP THE CONTENTS OF THE READ BUFFER ON ERROR DETEDTED
;WILL ALSO TELL HOW MANY WORDS WERE IN THE XFER
000042
002226
0002C0

002224

STOMP:

002344

002224
007342
000002
000006
010332
000012

1%:

007141
000002

EMT
ADD
187
DEC
BNE
PRINTB
MOv

001012
007150
000091

012746
012746
010600

007150
000001

062706
000205

000004

104014

000004
000012
002344

EMT
ADD
MOV
MOov
PRINTB
MOv
MOV

Mov
MOV

000006

012746
012746
010600
104014
062706
012703
005337
001001
000402
005301
001344

MOV
NEG
MOv
PRINTB
MOV
MOv
MOV
Mov

MoV
MOV

EMT

2%:

3%
4%:

ADD
MOv

DEC
BNE
BR
DEC
BNE
PRINTB

MOv
MOV
MOV

EMT

ADD
RTS

BMP(R4) ,TEMPO
TEMPO
#128.,DWCNTY
NFEMTXS, TEMPO
TEMPO,
- (SP)

sGET NEGATIVE WORD COUNT

sMAKE

THE

sTELL

TRANSFER

¥ POSITIVE

;SET THE SIZE OF

SECTOR

SIZE

FEMTXS,=(SP)

#2,-(SP)

SP,RO
C$PNTB
#6,5P
T.CLT,R1
#0.,R3

FEMTI14LA,R2)
(R2),=(SP)
#EMTILA,-(SP)
N2,-(SP)

;GET THE PRINT LIM]T
;SETUP LINE LIMIT

:PRINT

A DATA WORD

SP,RO
CSPNIB

r6,SP

(R2)+
R3
2%

FEMT14C
#EMT14C,-(SP)
#,-(SP)

sPOINT TO THE NEXT DATA WORD
JOONE WITH THE LINE?
JBR IF NO
JiES

= PRINT

<(R>

SP,RO
CSPNTB

¥4 ,5P

JRESET THE LINE LIM]T
:END OF SECTOR?
:BR

;AT

JYES = EXIT

1%
NEMT14(
NEMT14C,-(SP)

;BR IF NO
JPRINT

¥1,-(SP)

SP,RO
($PNTB

04, SP

seXlT

LIM]T?

<(CR>

CIRLKAO RLO1/2 PERF

ROUTINE

EXER

TO DUMP BUFFER ON DCK

MACRO v03.01

9-FEB-79 19:33:19 PAGE

9
33-3

SEQ 0114

;ROUTINE TO CLEAR ALL DRIVE INFO, USED ON START OR
:RESTART IF CALLED.
CAN BE USED TO CLEAR INDIVIDUAL DRIVE
:INFO BY BITMAP FOLLOWING CALL
-

025256
025260

7 02526¢

8 025266
9 025272
0 025274
1

025276

0104406
012704

005024

020427
001374
(012604

000205

026514
027774

s CALL

JSR

CLEAR:

MOv
MOv

2%:
(9:

CLR
CMP
BNE

MOV
RTS

RS,CLEAR

R4 ,-(SP)

#DRBUF ,R4
- (R4 ¢+

R& , JENDBUF

(SP)+ R4

s SAVE

Ré

:GET BUFFER
:CLEAR

;AT

END OF

STARTS

BUFFERS

:NO, GO TC 2%
sRESTORE

JEXIT

CURRENT BUFFER POINTER

CIRLKAQ RLOV/2 PERF
NU—

ROUTINE

10 CHECK

EXER

FOR BAD

SECTOR

MACRO v03.01

9-FEB-79 19:33:19 PAGE
ROUTINE

SYARS

PONINY =

b o ot et e ed

s et

NN=O VOO NS NN =O0VONO

025300
025304
025306
025310
025314
025320
0253¢é4
025326
025332
025334
025336
025340
025342

005037
010046
010246
012700
016402
022712
001411
023712
001404
005722
005300
001367
000402

025344

005237

025350
025352
025354

012602,
012600
000205

002216

(xBDSC:

77777

CLR

cmMp
BEQ
cmMp
BEQ
181
DEC

002220

AR A

X A

HORFND

RO,-(SP)
R2,-(SP)

#7.,RO0

BSECPT(R4)
,R?
f-1,(R2)
3
(HKSEC,(R2)

)

;CLEAR FLAG
;SAVE RO
R?
;SAVE
;16 ENTRIES ¢ BSF POINTER
;GET WHERE WE'RE LOOKING
JEND OF ENTRY LIST?
;BRANCH IF END
sHAVE WE GOT A MATCH

;THEN GO SE7

(R2)+
RO
2%
6%

3%:

INC

HDRFND

;SET FLAG FOUND

MOV
MOv
RTS

(SP)+,R2
(SP)+ KO
RS

BNE

025356

== ROUTINE TO MATCH BAD SECTOR..... BDA(R4) IS SECTOR WE ARE LOCKING
FOR IN LIST PCINTED TO BY BSECPT(R&)...... HDRFND IS SET IF WE FIND IT.

MOV
MoV
MOV
Mov

000021
000112

002216

TO CHECK FOR BAD SECTOR

AAR AR

(KBDSC

025300

SEQ 0115
.SBTTL
STARS

025300

INDICATOR,

ELSE

STARS
':.t"""""'""""""l'.'l""'..'..t"."..""."'.""l'

:(KBDTK == HERE

025356

STARS

10 CHECK IF

CYLINDER & HEAD SELECTED IS IN THE BAD SECTOR FILE

:;l.i"""'t't".!"C""""'t'l'."".."""""lt'l."".."

025356
025362
025364
025366
025370
025374
025400
025404
025406
025410
025414
025420
025422
025424
025426
025430

005037
010046
010146
010246
012700
016402
022712
001414
011201
043701
023701
001404

025432

005237

025436
025440
025442
025444

012602
012001

002216

(K8DTK:

MOV
MOV
MOV
MOv
CMP

8EQ

MOV

002156
002220

BIC
(MP
BEQ

005722
005300
001364
000402

012600
000205

CLR

Mov

HDRFND

RO,-(SP)
R1,=-(SP)
R2,-(SP)
'17.0R0
,R2
BSECPT(R4)

#-1,(R2)
4%
(R2) ,R1

SMSK ,R1

gHKSEC.R1

1§71

;CLEAR FLAG

:SAVE RO
;SAVE R1
:SAVE R?2
:16 ENTRIES + BSF POINTER
;GET WHERE WE'RE LOOKING
JEND OF

L]ST?

;BRANCH IF END
;GET THE ENTRY FROM BAD SECT FILE

sLEAVE ONLY CYL # & HEAD
;HAVE WE GOT
;THEN GO SET

A MATCH
INDICATOR,

DEC
BNE
BR

C02216

INC

HDRFND

4%:

MOv
MOv
MOV
RTS

(SP)+,R2
(SP)+ ,R1
(5P)+,RO
RS

¢SET FLAG FOUND

ELSE

CIRLKAQ RLO1/2 PERF EXER

ROUTINE

T0 CHECK

FOR BAD SECTOR

025446

NO VNS
b

= OO0

—nd
v
—

STARS
LI

RN R

¢BUFFER TO STORE BAD SECTOR LISTS
025446
025510
025552
025614
025656
025720
025762
026024

BSECO:
BSEC1:
BSEC2:
BSEC3:

.BLKW
.BLkWw
.BLKW
.BLKW

17.
17,
17.
17.

BSECS:
BSEC6:
BSEC7:

.BLKW
.BLKW
.BLKW

17.
17.
17.

BSECL:

026066

.BLKW

STARS
AL

SEQ 0116

STARS
I

no9
35

MACRO v03.01 9-FEB-79 19:33:19 PAGE

026066

17.

STARS

N=OOV~NO
W

PONIRY
b e o e
n

;:l'""""""""""""""l"""'.'.'t.li'.""l.'."".i.

;LIST OF PATTERNS USED IN WRITING

026066
026070
026072
026074
026076
026100
23
026102
026104

026106
026146
026206
026246
026306
026346
026406
026446

PATLST:

026106
026110
026112
026114
026116
026120
026122
026124
026126
026130
026132
026134
026136
026140
026142
026144

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

PATO:

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

026146
026150
026152
026154
026156
026160
026162
026164
026166
02617C

177777
177777
177777
052525
052525
052525
177777
177777
052525
052525

PAT1:

.WORD
.WORD
.WORD

PAT0
PATI
PAT?
PAT3

sALL 0'S
;=1'S 10 ALT BITS
;0'S TO ALY BITS

PATS
PAT6
PAT7

sSTRANGE DATA
sALL 1'S
;STRANGE DATA

ROV
N~~~
S ANNANN
NN
NN N

NN NN
NI NI N

OOOCOOOOOOCOOOOODOO
=t OO
b i
N NN
NI NI~
~NNNN
N ~NNN
RO

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

sWORST

PATS

sSHIFTING ALT BITS
CASE

DATA

N~~~
N~~~

~N~~
~N~N~

~
~

NN
N NN
NN~
NSNS

[ N o RV, 1V, 1, VL ¥

b e ot i (O et

(S AV IV TV LV IV TV IV TV V. YV TV YW IV, IV.1 . ¥}
O
O N
N
N

[pS 1201,
¥]

N
N
~No
~no

)
¥
o
[PV
Yo RV IV 1o RV LV To RV TV To XV IV

(M W

[SAXV
Yo MV TV 10 NV
TV
1 RV IV Te RV TV 1o YV, ]
a1 ST V1, S, UL, 1 ,V],0]1,¥] N7, VT N1 VY NY STV ]
(ST
T MV
IV
10 W IV T SV TV Te RV TV e RV BNV, IV IV TV, TV IV, IV IV JV YV IV IV IV TV IV 1 N

155555

.WORD
.WORD
.WORD
.WORD

133333
155555
066666
133333

~N~-~

.WORD
.WORD
.WORD
.WORD
LWCRD
.WORD
.WLRD
.WOKrD
.WORD
.WORD
.WORD

OOO=—=mOOO

155555
066666
133333
155555
066666
133333
155555
066666
133333
155555
066666

.WORD

NN
N~

026306
026310
026312
026314
026316
026320
026322
026324
026326
026330
026332
02633«
026336
026340
026342
110 026364

.WORD
.WORD

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

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

b \ VN e ek e \ W)

026246
026250
026252
026256
026256
026260
026262
026264
026266
026270
026272
026274
026276
026300
026302
026304

.WORD

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

— ALY =2 AN =2 AV =2

.WORD
.WORD
.WORD
.WORD
.WORD

N V1, V1 VT, V1 ,V], V], V1, VY, VT, ¥7, VT, VT, VY, VY, VIV,]

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
000000
177777

026206
026210
026212
026214
026216
026220
026222
026224
026226
026230
026232
026234
026236
026240
026242
G26244

) et =

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

b et

177777
052525
177252
177252
172765
172765

026172
026174
026176
026200
026202
026204

(O et et ) et e

TO CHECK FOR BAD SECTOR

9-FEB-79 19:33:19 PAGE

—t e

ROUT INE

MACRO v03.01

(O 1V Yo RV
TV
e JVU TV Te RV TV
e JV TV To XV

CZRLKAD RLOV/2 PERF EXER

35-1

SEQ 0117

026502
026504

113226

026506

000240

026510

.WORD

ENDUFPROGRAM:
ENDTST

L10022:

SNNTNSNSNSNSNSNSNSNSNSN
NSNS

~ =~

et BRIV To SV, ], GW o]
WOV
SN =y
o

RSN

NNO =N
=t 2 PO N
NSO
=PI
WO

NNNN~N~N

SNSNSNSN~N ~

NNNNN~N

row

— PN SN

= NN NN NOS —

VIV Y- N

= POIAN S —= NN =W

- —
—d

Y Y SN

) —
=

N N N

o
—l o

e TM

=l
il
il

NOP

026476
026500

PO Po = PO

NN — o0
NN
NN = OO
N S

b
b
ol codh cad
)
md
)
el
el
) el e
—

026454
026456
026460
026462
026464
026466
026470
026472
026474

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

NINNANPNO NN

PAT/:

NS = PO

026446

NSNS

026436
026440
0¢6442
026444

—

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

026432
026434

166 026510

.WORD
.WORD
.WORD
.WORD
.WORD

PAT6:

121105
150442

RNV

106426

026406
026410
026412
026414
026416
026420
026422
026424
026426
026430

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

.WORD
.WORD
.WORD
.WORD

042213

147 026450
148 026452
o (e o ¥ e Mo Yo SVTV IV TV T IV IV IV IV | W

PATS:

et PO AN et O e

12110%
150442
064221
132110
055044
0264c2
01321
105504
062642
021321
110550
044264
022132
011055

NN = O WNWNES

026346
026350
026352
026354
026356
026360
026362
026364
026366
026370
026372
026374
026376
026400
026402
026404

FOR RAD SECTOR

9-FEB-79 19:33:19 PAGE

=t O =t S

10 CHECK

MACRO v03.01

S P AN

d ced

moh

—

el b —.—.—.—.—‘—.-‘—.—.—‘—.—J—.—‘-fl—‘.‘—‘—.—l-‘—‘—._‘

EE 2k 2k 2R 2K 2P V)AP NN N NN AN AN N NI PO NI NI PV PO PO RO NI N ot b ot b ed i o b s
VB W00 CONOWVNE
NN —=OOV0ON
NS NN = OV~
NS NN —

ROUTINE

EXER

—_ NI

CZRLKAQ RLO1/2 PERF

8 .10

35-2

SEQ Y118

CZRLKAQ RLO1/2 PERF EXER

ROUTINE

T0 CHECK FCR BAD SECTOR

NNy — OO0
NN

d wtd i ond
d
M) et

NN NNNNN~N ~o o

—

026510
167 026512

026514
026514
026516
026520
026522
026524
026526
026530
026532

026534
026536
026540

026542
026544
026546

026550
026552
026554
026556
026560
026562
026564
026566
026570
026572
026574
026576
026600
026602
026604
026606
026610
026612
026614
026616
026620
026622
026624
026626
026630
026632
026634
026636
026640

MACRO v03.01

9-FEB-79 19:33:19 PAGE

104001
000000

000010
000000
000002
000004
000006
000010

000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106

000110
000112
000114
000116
000120
000122
000124

EMT

HALT

DRIVE

:DRIVE

INFORMATION BUFFER

LLIST

:
DRBUF
.REPT

SKCNT]

PRFLGS

RXFR3
WXFR3
LSTDA
DIFWD

DPHOUR
TRERR
DATCER
DOWCK

SERNM]
SERNM2

DCS
DRSEL
BBA
BSECPT
RSEEK

SOFTCS
TOR
WR1PG
PRPOS

35-3

SEa 0119

(SETST

.SBTTL

SKCNT
RXFR1
RXFR?
WXFRT
WXFR2
ERRCNT
SFTCNT
SKECNT
DERCNT
DCRCER
HCRCER
DLTCNT
OP1CNT
HNF ERR
NXMONT
RETRY
BDA
BMP
FUNC
BCSADR
LSTHDR
RTYPE

c.10

INFORMATION BUFFERS

;SEEX OPERATION COUNT
READ OPERATION COUNT
HRITE

OPERATION

,ERDOR

COUNT

COUNI

- HARD

(BITS)

LOW ORDER

HIGH ORDER

(BITS)

LOW ORDER

;ERROR COUNT - SOF1T
; SEEK ERROR COUNT
;DRIVE ERROR COUNY
:DATA CRC ERROR COUNT
;HEADER CRC ERROR COUNT
:DATA LATE ERROR COUNT
;OPERATION INCOMPLETE ERROR COUNT
;HEADER NOT FOUND ERROR COUNT

;NON EXISTANT MEMORY ERROR COUNT
PRESENT

RETRY NUMBER

:PRESENT

MULTIPURPOSE

;LAST

DISK ADDRESS CONTENTS

FUNCTION LOADED

CONTENTS

:CSR IMAGE OF LAST COMMAND
;LAST POSITION ON DISK
;ERROR ON WHICH RECOVERY [S IN PROGRESS
: SEEX. COUNT LOW ORDER
;PROGRAM INTERNAL FLAGS
:READ COUNT THIRD
;WRITE COUNT THIRD
:DISK ADDRESS OF SOFT ERROR
;LAST DIFFERENCE WORD OF SEEKX
:TIME DRIVE WAS DROPPED
: TRACKING ERROR

COUNT

;WRITE CHECK NECESARY
:SERIAL NUMBER OF CARTRIDGE
;SERIAL NUMBER Of (ARTKIDGE
; CSR ADDRESS
;ORIVE SELECT B]7S(8,9,10)
;PRESENT BUS ADDRESS CONTENTS

;POINTER TO BAD SECTOR FILE

;CSR AT TIME OF SOFT ERROR
;ORIVE TYPE FLAG (RLO2 =1)
:WRITE [N PROGRESS FLAG
;PRESENT POSITION ON DISK

CIRLKAO RLOY/2 PERF

DRIVE

EXER

INFORMATION BUFFERS

026642
026644
026646
026650
026652

000000
000002
000004
000006
000010

026654
026656

000012
000074

026662

000020

026660
026664
026566
026670
026672
026674
026676
026700
026702
026704
026706
026710
026712
026714
026716
026720

000016

000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056

026722
026724
026726
026730
026732
026734
026736
026740

000060
000062
000064
000006
000070
000072
000074
000076

026750
026752
026754
026756
026760
026762

000106
000110
000112
000114
000116
000120

026742
026744
026746

026764
026766

026770
026772

026774
026776
027000
027002
027004
027006
027010
027012
027014
027016
027020

000100
000102
000104

000122
000124

000000
000002

000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030

MACRO v03.01

9-FEB-79

19:33:19 PAGE

0D_10

35-4

SEQ 0120
SK(NT

RXFR1
RXFR?2
WXFR1

WXFR?
ERKRCNT
SFTCONT
SKECNT
DERCNT
DCRCER
HCRCER

DLTCNT
OPICNT

HNF ERR
NXMCNT
RETRY
BDA
8Mp
FUNC

BCSADR
LSTHDR
RIYPE
SKCNII
PRFLGS

RXFR3
WXFR3
LSTDA
DIFWD
DPHOUR
TRERR

DATCER
DOW(K
SERNMI]
SERNM?
D(CS
DRSEL
BBA
BSECPT
RSEEX

;SEEK OPERATION (OUNT
READ OPERATION

URITE

COUNT

(BITS)

OPERATION COUNT

HIGH ORDER

(BITS)

.ERROR COUNT = HARD
;ERROR COUNT - SOFT
; SEEX ERROR COUNT
;DRIVE ERKROR COUNT
:DATA CRC

ERROR (OUNT

;PRCGRAM

[NTERNAL

;TRACKING

ERROR

FLAGS

;READ COUNT THIRD
;WRITE COUNT THIRD
:DISK ADDRESS OF SOFT ERROR
;LAST DIFFERENCE WORD OF SEEK
:TIME DRIVE WAS DROPPED
COUN)

;WRITE CHECK NECESARY
;SERIAL NUMBER OfF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE
:CSR ADDRESS
;DRIVE SELECT BIT5(8,9,10)
;PRESENT BUS ADDRESS (O TENTS

;POINTER

TO BAD

SECTOR

FILE

;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLOZ =1)

SKCNT
RXFRY
RXFR?

.>EEK OPERATION COUNT

;WRITE

IN PROGRESS FLAG

;PRESENT POSITION ON DISK

READ

OPERAYION COUNT

WXFR1
WXFR2
ERRCNT
SFTCNT
SKECNT
DERCNT
DCRCER

URIYE

DLTCNT
OPICNT

;DATA LATE ERROR C(OUNT

HCRCER

LOW ORDER

;HEADER CRC ERROR COUNT
:DATA LATE ERROR COUNT
;OPERATION INCOMPLETE ERROR (OUNT
;HEADER NOT FOUND ERROR COUNT
;NON EXISTANT MEMORY ERROR COUNT
;PRESENT RETRY NUMBER
"
DISK ADDRESS CONTENTS
;PRESENT MULTIPURPOSE CONTENTS
;LAST FUNCTION LOADED
;CSR _IMAGE OF LAST COMMAND
:LAST POSITION ON DISK
;EKROR CON wHICH RECOVERY (S IN PROGRESS
;SEEX COUNT LOW CRDER

SOFT(CS
1DR
WRIPG
PPPOS

LOW ORDER

HIGH ORDER

*
H1GH ORDER
(BI1S) LOwW ORDER

OPERATION (OUNT

.ERROR COUNT = HARD
;ERROR COUNT = SOF1
;SEEX ERROR COUNT
;DRIVE ERROR COUNT
;DATA (RC ERROR COUNT
;HEADER

(BITS)

C(RC

;OPERATION

ERROR

(OUNI

INCOMPLETE

ERROR

(OUN’

000060
000062

DISK ADDRESS CONTENTS

CONTENTS

:CSR IMAGE OF LAST COMMAND
POSITION ON DISK

——

:ERROR ON WHICH RECOVERY IS IN PROGRESS
:SEEK COUNT LOW ORDER
;PROGRAM INTERNAL FLAGS
;READ COUNT THIRD
;WRITE COUNT THIRD
;DISK ADDRESS OF SOFT ERROR
;LAST DJFFERENCE WORD OF SEEK
;TIME DRIVE WAS DROPPED
: TRACKING ERROR COUNT

;DATA LATE

ERROR

SR
S
AL
IR

COUNT

.OPERATION INCOMPLETE ERROR COUNT
;HEADER NOT FOUND ERROR COUNT
;NON EXISTANT MEMORY ERROR COUNT
PRESENT

RETRY

BMP

:PRESENT

MULTIPURPOSE

BCSADR
LSTHDR

:CSR IMAGE OF LAST COMMAND
;LAST POSI!TION ON DISK
;ERROR ON WHI(CH RECOVERY IS IN PROGRESS
;SEEX COUNT LOW ORDER

f UNC

RTYPE

SKCNTY

PRFLGS

RXFR3
WXFRY

sLAST

NUMBER

DISK ADDRESS CONTENTS

FUNCT]ION LOADED

;PROGRAM

[NTERNAL

;READ COUNT THIRD

;WRITE

COUNT

THIRD

CONTENTS

FLAGS

ST
U
TR
FUN
SUR
FWR
SR

;ERROR COUNT = SOFT
; SEEK ERROR COUNT
:DRIVE ERROR COUNI
:DATA CRC ERROR COUNT
;HEADER CRC ERROR COUNT

HIGH ORDER

- HARD

AOR

COUNT

.ERROR

LOW ORDER
HIGH ORDER
(BITS) LOW ORDER

OPERATION COUNT

(B11S)

URITE

ORGSR

FLAG

IN PROGRESS

:WRITE

:SEEK OPERATION COUNT
READ OPERATION COUNT

HNFERR
NXMCNT
RETRY
BDA

mfe

SOFT ERROR
(RLOZ =1)
FLAG
;DRIVE TYPE
:CSR AT TIME OF

SKCNT
RXFRI1
RXFR2
WXFR1
WXFR2
ERRCNT
SFTCNT
SKECNT

DLTCNT
OPICHY

;ORIVE SELECT BJT1S(8,9,10)
:PRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE

;PRESENT POSITION ON DISK

HCRCER

CARTRIDGE
CARTRIDGE

;SERIAL NUMBER OF
; SERIAL NUMBER OF
; CSR ADDRESS

———

NECESARY

CHECK

Swm

;WRITE

PRPOS

DERCNT
DCRCER

—

sLAST

DCS
DRSEL
BBA
BSECPT
RSEEK
SOFTCS
TDR
WRI1PG

:PRESENT MULTIPURPOSE
;LAST FUNCTION LOADED

027150
027152
027154
027156
027160
027162
027164
027166
027170
027172
027174
027176
027200

SERNM1
SERNM?

;HEADER NOT FOUND ERROR COUNT
;NON EXISTANT MEMORY ERROR COUNT
PRESENT RETRY NUMBER

CEA

000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056

000014
000016

DIfFWD
DPHOUR
TRERR
DATCER
DOWCK

SEQ 0121

027136
027140
027142
027144
027146

027132
027134

RXFR3
WXFR3
LSTDA

35-5

000000
000002
900004
000006
000010
000012

BDA
BMP
FUNC
BCSADR
LSTHDR
RTYPE
SKCNT1
PRFLGS

E 10

FWA

02711027120
027122
027124
02712¢
027130

HNFERR
NXMONT
RETRY

19:33:19 PAGE

000032
000034
00003¢
000040
000942
000044
000046
000050
000952
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

9-FEB-79

027022
027026
027026
027030
027032
027036
027036
027040
027042
0270644
0270646
027050
027052
027056
027056
027060
027062
027064
027066
027070
027072
027074
027076
027100
027102
027104
027106
027110
027112
027114

MACRO v03.01

———

CZRLKAO RLO1/2 PERF EXER
ODRIVE INFORMATION BUFFERS

CIRLKAQ RLOYV/2 PERF EXER
DRIVE INFORMATION BUFFERS

027202
027204
027206
027210
027212
027214
027216
027220
027222
02722¢
027226
027230
027232
027234
027236
027240
027242

000064
000066
000070
000072
000074
000076
0001G)
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

027244
027246
027250
027252
027254
027256
027260
027262
027264
027266
027270
027272
027274
027276
027300
027302
027304
027306
027310
027312
027314
027316
027320
027322
027324
027326
027330
027332
027334
027336
027340
027342
027344
027346
027350
027352
02735
027356
027369

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114

MACRO v03.01

9-FEB-79
LSTDA

NIfWD

DPHOUR
TRERR
DATCER
DOWCK

SERNMI
SERNM?

DCS
DRSEL
BBA
BSECPT
RSEEK

SOFTCS

TDR
WRIPG
PRPOS

SKCNT
RXFR1
RXFR2
WXFR1
WXFRZ
ERRCNT
SFTONT
SKECNT
DERCNT

DCRCER
HCRCER

DLTCNY
OP1CNT

HNFERR
NXMCNT
RETRY
BDA

19:33:19 PAGE

35-6

SEa 0122

:DISK ADDRESS OF SOFT ERROR
sLAST DIFFERENCE WORD OF SEEK

:TIME DRIVE WAS DROPPED
s TRACKING ERROR COUNT

SWRITE CHECK NECESARY
;SERJAL NUMBER OF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE
:CSR ADDRESS

;DRIVE SELECT BJT1S5(8,9,10)
;PRESENT BUS ADDRESS

CONTENTS

;CSR AT

ERROR

;POINTER TO BAD SECTOR FILE
TIME

SOFT

;DRIVE TYPE FLAG (RLOZ2 =1)

SWRITE IN PROGRESS FLAG
;PRESENT POSITION ON D]SK

;SEEK OPERATION COUNT
READ OPERATION COUNI
uRlIE

OPERATION COUNT

.ERROR COUNT - HARD
;ERROR COUNT - SOFT
; SEEK ERROR COUNT
:DRIVE ERROR COUNT

(BITS)

HIGH ORDER

(BITS)

:NON EX]STANT MEMORY ERROR
PRESENT RETRY NUMBER

BCSADR
LSTHDR

:CSR IMAGE OF LAST COMMAND
;LAST POSITION ON DISK
;ERROR ON WHICH RECOVERY IS
;SEEX COUNT LOW ORDER
:PROGRAM INTERNAL FLAGS
;READ COUNT THIRD

SKCNT1

PRFLGS

RXFR3
WXFR3
LSTDA
DIFWD
DPHOUR
TRERR

DATCER
DOWCK
SERNM]

SERNM?

DCS
DRSEL

BBA
BSECPT
RSEEK

;LAST

COUNT

DISK ADDRESS CONTENTS

PRESENT

RTYPE

LOW ORDER

:DATA CRC ERROR COUINT
;HEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT
;OPERATION INCOMPLETE ERROR COUNT
;HEADER NOT FOUND ERROR COUNT

BMP

FUNC

LOW ORDER

MULTIPURPOSE

FUNCTION LOADED

CONTENTS

IN PROGRESS

;WRITE TOUNT THIRD
:D1SK ADDRESS OF SOFT ERROR
SLAST DIFFERENCE WORD OF SEEK
:TIME DRIVE WAS DROPPED
: TRACKING ERROR

COUNT

;WRITE CHECK NECESARY
: SERIAL NUMBER OF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE
: (SR ADDRESS

;ORIVE SELECY B]71S(8,9,10)

;PRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTYOR FILE

CIRLKAQ RLOV/2 PERF

DkIVE

EXER

INFORMATION BUFFERS

027362
027364
027366
027370

000116
000120
000122
000124

027372
027374
027376
027400
027402
027404
027406
027410
027412
027414
027416
027420
027422
027424
027426
027430
027432
027434
027436
0276440
027442
027444
027446
027450
02452
027454
027456
027460
027462
027464
027466
027470
027472
027474
0276476
027500
027502
027504
027506
027510
027512
027514
027516

000000
0000G2
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

027520
027522
027524
027526
027530
027532

000000
000002
000004
000006
000010
000012

02753
027536

000014
000016

MACRO v03.01

9-FEB-79 19:33:19 PAGE

6 10

35-7

SEQ 0123

;CSR AT TIME OF SOFT ERROR
:DRIVE TYPE FLAG (RLOZ -=1)
;WRITE IN PROGRESS FLAG

SOFTCS

TDR
WRIPG
PRPOS

;PRESENT

SK(NT
RXFR1
RXFR2
WXFR1
WXFR2
ERRCNT
SFYCNT
SKECNT
DERCNT
DCRCER

:SEEK OPERATION COUNT
READ OPERATION COUNT
URIYE

DLTCNT
OPICNT
HNFERR
NXMCNT

BDA
BMP

:PRESENT

FUNC

SKCNT?

PRFLGS

RXFR3
WXFR3
LSTDA
DIFWD
DPHOUR
TRERR

DATCER
DOWCK
SERNM1
SERNM2
DCS
DRSEL
BBA
BSECPT
RSEEK

OPERATION COUNT

;LAST

HIGH ORDER

LOW ORDER

COUNT

CONTENTS

FUNCTION LOADED

:CSR IMAGE OF LAST COMMAND
;LAST POSITION ON DI]SK
;ERROR ON WHICH RECOVERY IS IN PROGRESS
;SEEX COUNT LOW ORDER

: PROGRAM

INTERNAL

FLAGS

;READ COUNT THIRD
;WRITE COUNT THIRD
:D1SK ADDRESS OF SOfT ERROR
;LAST DIFFERENCE WORD OFf SEEK
;TIME DRIVE WAS DROPPED
: TRACKING ERROR
;WRITE

CHECK

COUNT

NECESARY

;SERIAL NUMBER OfF
;SERIAL NUMBER OF
: (SR ADDRESS

CARTRIDGE
CARTR]DGE

;DRIVE SELECT BITS(8,9,10)

:PRESENT BUS ADDRESS CONTENTS

;POINTER

TO BAD

SECTOR

FILE

SOFT ERROR

;CSR AT TIME OF

SKCNY
RXFR1
RXFR2
WXFRI1
WXFRZ2

;SEEK OPERATION COUNT

ERRCNT
SFTCNT
SKECNT

HIGM ORDER

DISK ADDRESS CONTENTS

MULTIPURPOSE

SOFTCS
TDR
WRIPG
PRPOS

LOW ORDER

(BI1TS)

;NON EXISTANT MEMORY ERROR
PRESENT RETRY NUMBER

RETRY

RTYPE

(BITS)

.ERROR COUNT - HARD
;ERROR COUNT - SOFT
; SEEK ERROR COUNT
:DRIVE ERROR COUNT
:DATA CRC ERROR COUNT
;HEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT
;OPERATION INCOMPLETE ERROR COUNT
;HEADER NOT FOUND FRROR COUNT

HCRCER

BCSADR
LSTHDR

POSITION ON DISK

;ORIVE TYPE FLAG (RLOZ2 =1)
;WRITE

IN PROGRESS FLAG

;PRESENT POSITION ON DISK
READ OPERATION COUNT

URlTE OPERATION COUNT

.ERROR COUNT = HARD
;ERRGR COUNT - 350F1
;SEEX ERROR COUNT

(BI1S)

LOW ORCER

hiGH ORDER

(BITS) LOW ORDER
"
HIGH ORDER

CIZRLKAD RLOY/2 PERF

DRIVE

EXER

INFORMATION BUFFERS

027540
027542
027544
027546
027550
027552
027554
027556
027560
027562
027564
027566
027570
027572
027574
027576
027600
027602

027604
027606
027610
027612
027614
027616
027620
027622
027624

027626

000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062

000064
000066
000070
000072
000074
000076
000100
000102
000104

000106

027630
027632
027634
027636
027640
027642
027644

000110
000112
000114
000116
000120
000122
000124

027646
027650
027652
027656
027656
027660
027662
027664
027666
027670
027672
027674
027676
027700
027702
027704
027706
027710
027712
027714
027716

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050

MACRO v03.01

9-FEB-79 19:33:19 PAGE
DERCNT
DCRCER

HCRCER

DLTCNT
OP1CNT

HNF ERR
NXMCNT
RETRY

BDA
BMP

FUNC

BCSADR
LSTHDR
RTYPE

SKCNT!

PRFLGS

RXFR3
WXFR3
LSTDA
DIFWD
DPHOUR
TRERR

DATCER
DOWCK

SERNM]
SERNM2
DCS
DRSEL
BBA
BSECPT
RSEEK

SOFTCS

TDR
WR1PG
PRPOS

SKCNT
RXFR1
RXFR2

WXFR1
WXFRZ
ERRCNT
SFTCNT
SKECNT
DERCNT
DCRCER
HCRCER

DLTCNY
OPICNT
HNFERR
NXMCNT
RETRY

BDA
BMP

FUNC

BCSADR
LSTHDR

H 10
35-8

SEQ 0124

:DRIVE ERROR COUNT
;DATA CRC ERROR COUNT
;HEADER CRC ERROR COUNT
;DATA LATE ERROR COUNT
;OPERATION INCOMPLETE ERROR COUNT

;HEADER NOT FOUND ERROR (OUNT
:NON EX]STANT MEMORY ERROR COUNT
;PRESENT RETRY NUMBER

:PRESENT

;LAST

DISK ADDRESS CONTENTS
MULTIPURPOSE

FUNCTION LOADED

CONTENTS

.CSR IMAGE OF LAST COMMAND
;LAST POSITION ON DISK
;ERROR ON WHICH RECOVERY IS IN PROGRESS
;SEEK COUNT LOW ORDER

;PROGRAM

[NTERNAL

FLAGS

;READ COUNT THIRD
;WRITE COUNT THIRD
;DISK ADDRESS OF SOFT ERROR
;LAST DIFFERENCE WORD OF SEEK

.TIME DRIVE WAS DROPPED
: TRACKING ERROR COUNT

;WRITE

CHECK

NECESARY

:SERIAL NUMBER OF
:SERIAL NUMBER OF
:CSR ADDRESS

CARTRIDGE
CARTRIDGE

;DRIVE SELECT BI15(8,9,10)

;PRESENT BUS ADDRESS CONTENTS

;POINTER

TO BAD

SECTOR

FILE

(SR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLOZ =1)

;WRITE

IN PROGRESS

FLAG

;PRESENT POSITION ON DISK
;SEEK OPERATION COUNT
READ

URITE

OPERATION

COUNT
COUNT

(BITS)

LOW ORDER

HIGH ORDER

(BITS)

LOW ORDER

.ERROR COUNT = HARD
;ERROR COUNT = SOFT
;SEEX ERROR COUNT
;DRIVE ERROR COUNT
:DATA CRC ERROR COUNT
;HEADER CRC ERROR (OUNT
;DATA LATE ERROR COUNT
;OPERATION INCOMPLETE ERROR COUNT
;HEADER NOT FOUND ERROR COUNT
:NON EXISTANT MEMORY ERROR COUNT
PRESENT RETRY NUMBER

PRESENT

;LAST

DISK ADDRESS CONTENTS

MULTIPURPOSE

FUNCTION LOADED

CONTENTS

(SR IMAGE OF LAST COMMAND
;LAST POSITION ON DISK

CIRLKAO RLOV/2 PERF

DRIVE

EXER

INFORMATION BUFFERS

027720
027722
027724
027726
027730
027732
027734
027736
027740
027742
027744
027746
027750
027752
027754
027756
027760
027762
027764
027766
027770
027772

000052
00005¢4
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

225 027774
226
227 027776
228 027776
027776
229
230 030000
030000
030002
030004
231 030006
030006
030010
030012
030014
232 030016
030016
030020
030022
030024
233 030026
030026
030030
030032
030034
030036
4
23 030040
030040
030042
030044
235 030046
030046
030050

000000

223

000030
005130
030060
000001

000031
030065
160000
177776
001031
030134
000000
000776

004032
030143
003400
000000
000007

003130
030112
000001
002032
030101

MACRO v03.01

9-FEB-79 19:33:19 PAGE

110

35-9

SEQ 0125
RTYPE

SKCNTY

;ERROR ON WHICH RECOVERY IS IN PROGRESS
;SEEX COUNT LOW ORDER

RXFR3
WXFR3

sREAD COUNT THIRD

PRFLGS

:PROGRAM INTERNAL FLAGS

;WRITE

LSTDA
DItwD
DPHOUR
TRERR
DATCER
DOWCK
SERNMI
SERNM?
DCS
DRSEL
BBA
BSECPT

COUNT

THIRD

;DISK ADDRESS OF SOFT ERROR
;LAST DIFFERENCE WORD OF SEEK

;TIME DRIVE WAS DROPPED
; TRACKING ERROR COUNT

;WRITE CHECK NECESARY
;SERIAL NUMBER OF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE
:CSR ADDRESS

;DRIVE SELECT BIT1S(8,9,10)
;PRESENT BUS ADDRESS CONTENTS
¢POINTER

RSEEK

TO BAD

SOFTCS
TDR

:CSR AT TIME OF
;WRITE

.NLIST

WRIPG
PRPOS
ME

:
ENDBUF

.WORD

BGNMOD

HRDPRM

SOFT ERROR
:DRIVE TYPE FLAG (RLOZ2 =1)
IN PROGRESS

FLAG

;PRESENT POSITION ON DISK

BGNHRD
.WORD L10024-L$HARD/2
GPRML
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD

SECTOR FILE

CNTYPE,CNT,1,YES
T$CODE

%NTYPE

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

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

DRMSG,DRBT,0,03400,0,7,YES

T$CODE
DRMSG

03400

TSLOLIM
TSHILIM

DRTYPE,TYPDR,1,VES

T$CODE

?RYYPE

BRMSG,PRIOR,G,340,0,7,YES
T$CODE
BRMSG

CIRLKAD RLOY/2 PERF EXER
DRIVE INFORMATION BUFFERS

030052
030054
>34 030056

MACRO v03.01

9-FEB-79 19:33:19 PAGE

000340
000000
000007

.MORD
.WORD
.WMORD

237 030060

238

242

243
2644
245
2646
247

g:g 030143

L10024:

122
102
102
104
126
104

253
254
255
Sgg 030152

262 030154
030154
030156
030160
0301062
030164
203 030166
030166
030170
030172
030174
030176
264 030200
030200
030202
030204
265 030206
030206
266 030210
030210
030212
030214
030216
030220

267 030222
030222

030224
030226
030230
030232
268 030234

114
125
122
122
105

122

061
123
0640
111
103
111

(NTYPE:
(SRMSG:
BRMSG:
DRTYPE:
VECMSG:

340
T$L0LIM
TSHILIM

DRMSG:

.EVEN

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/RL1V/
/BUS ADDRESS/
/BR LEVFL/
/DRIVE TYPE = RLO1/
/VECTOR/
/DRIVE/

ENDMOD
BGNMOD

000052
031061
177777
000000
177777
031052
030704
177777
000000
177777

020130
031410
000001
000044
032052
030723
177777
000000
000200

005052
031171
177777
000001
177777

SFTPRM
BGNSFT
.WORD L10025-L%S0OF1/2

000220

5% :

GPRMD
.WORD
.WORD
LWORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
LWORD
GPRML
.WORD
.WORD
.WORD
XFERF
.WORD
GPRMD
.WORD
.WORD
LWORD
LWORD
LWORD

GPRMD
.WORD
LWORD
LWORD
.WORD
LWORD
GPRML

RTMSG,RLY,D,177777,0,177777,YES
T$C0DE
RTIMSG
177777
TSLOLIM
TSHILIM
SRTMSG,SRLY,D,1772777,0,177777,YES
T$CODE
SRTMSG
177777
TSLOLIM
TSHILIM
FDCHK,DCKFG,?,YES
T$CODE
FDCHK
1
b} 3
T$CODE
CHKLMT,(LMY,D,177777,0,128.,YES
T$CODE
CHKLMT
177777
TSLOLIM
TSHILIM

INMSG,TYY,0,177272
1 ,1772777,YES
T$CODE
INMSG
177777
TSLOLIM
TSHILIM
DRPMS,DRFLG,1,YES

R
SEQ 0126

.EVEN

Sgg 030152
260 030152
261 030152

35-10

ENDHRD

030060

030060
030065
03010
030112
030134

J 10

CIRLKAQ RLOY/2 PERF

ODRIVE

EXER

INFORMATION BUFFERS

030234
030236
030240
269 030262
030242
270 030244
030244
030246
030250
030252
03025¢4
271 030256
030256
030260
030262
030264
030266
272 030270
030270
030272
030274
030276
030300
273 030302
030302
030304
030306
030310
030312
274 030314
030314
030316
030320
030322
030324
275 030326
030326
030330
030332
276 030334
030334
277 030336
030336
030340
030342
030344
030346
278 030350
030350
030352

030354
030356
030360
279 030362
030362
030364
030366

MACRO v03.01

021130
031471
000001
032044
001052
030775
177777
000000
177777
023052
031011
177777
000000
177777

036052
031525
177777
000000
177777

002052
031073
177777

000000
177777

025052
031106
177777

000000
177777

024130
031434

000001

003052
031121
177777
000001
177776

010130
031221
000001

-WORD
.WORD
.WORD
XFERF
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
XFERF

013044

004052
031151
177777
000001
177776

9-FEB-79 19:33:19 PAGE

2%:

.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD

K 10

35-11

T$CODE

?RPHS

T$CODE
ERMSG,ELY,D,177777,0,177777,YES
T$CODE
ERMSG
177777
TSLOLIM
TOHILIM
SFTMSG,SEL,D,V77777,0,177777
,YES
T$CODE
SFIMSG
177777
TSLOLIM
TOHILIM
DERPMS,DCD,D,177777,0,177777,YES
T$CODE

DERPMS

177777
TSLOLIM
TOSHILIM
SEMSG,SET,D,177777,0,177777,YES
T$CODE
SEMSG
177777
TSLOLIM
TOHILIM
DREMSG,DETY,D,V77777,0,177777,YES
T$CODE
DREMSG
177777

TSLO!
1M

TOSHILIM
STLMT,0OPFLG,1,YES
T$CODE
?ILHI

T$CODE

DAMSG,DAT,D,
1727777 ,1,177776,YES
T$CODE
DAMSG

177777
TSLOLIM
TSHILIM

SKMSG,SkT,D,
1777277 ,1,177776,YES
T$CODE
SKMSG

177717

TSLOLIM
TOHILIM

CHANGE ,CHFLG,1,YES
18700E

guANGE

SeEQ 0127

CIZRLKAO RLOV/2 PERF

DRIVE

EXER

INFORMATION BUFFERS

280 030370
030370
81 030372
030372
030374
030376
282 030400
030400
283 030402
030402
030404
030406
030410
030412
284 030414
030414
030416
030420
030422
030424
285 030426
030426
030430
030432
286 030434
030434
030436

030440
287 030442
030442
288 030444
030444
030446
030450
030452
030654
289 030456
030456
030460
030462
030464
030466
290 030470
030470
030472
030474
030476
030500
291 030502
03C502
030504
030506
030510
030512
292 030514
030514
030516

MACRO v03.01

107044

0346130
030654
000001

013044
011052

031255
177777
000003
012000

022052
031266
177777
000003
012000
026130
030743
000001

6%:

027130
030753
000001

006024

030032
030763
000017

000000
000007

006052
031553
177777
000000
000200
007052
031025
177777
000000
000175
012052
031277
000100
000000
000001

0130952
031306

’%:

9-FEB-79 19:33:19 PAGE
XFERF
.WORD
GPRML
.WORD
.WORD
.WORD
KFERF
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
.WORD
XFERT
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD

.WORD

GPRMD
.WORD
.WORD

.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD

L 10

35-12

1%
1$CODE
STIPMS,STIP,1,YES
T$CODE

?IXPHS

6%
T$CODE
MXBUF ,MxB,D,177777,3,5120..YES
T$CODE
MxBut

177777
TSLOLIM
TSHILIM
MINBUF ,MNB,D,177777,3.,5120.,YES
T$CODE

MINBUF

177777
TSLOLIM
TSHILIM
ROONLY
,ROF ,1,YES
T1$CODE
?DONLY
RANPAT ,RAN,1,YES

T1$CODE
?ANPAT

T1$CODE

ONLONE ,PAT,0,17,0,7,YES
T$CODE
ONLONE
17
TSLOLIM
TSHILIM
(MMSG,RDT,D,377777,0,128.,YES
T$CODE
CMMSG

177777
TSLOLIM
TSHILIM
DEMSG,D0Y,D,177777,0,175,YES
T$CODE
DEMSG
177777
TSLOLIM
TSHILIM
MXHD ,MxXH,D,100,0,1,YES
T$CODE

MXHD

100
TSLOLIM
TEHILIM
MINHD ,MNH,D,100,0,1,YES
T$(ODE

MINHD

SEQ 0128

CIRLKAQO RLO1/2 PERF EXER
DRIVE INFORMATION BUFFERS

030520
030522
030524
293 030526
030526
030530
030532
294 030534
030536
295 03053¢
030536
030540
030542
030544
030546
296 030550
030550
030552
030554
030556
030560
297 030562
030562
030564
030566
030570
030572
298 030574
030574
030576
030600
030602
299 030604

017052
031356
000077
000000
000047

300 030606
03060¢
030610
301 030612

033130
031377
000001

MACRO v03.01 9-FEB-79 19:33:19 PAGE

00010C
00000,
000071
037130
030614
0000CY
013044
014052
031315
177600
000020
000777
015052
031325
177600
000000
000777

15%:

016052
031335
000077
000000
000047

1%:

302 030614

303

310
311
312
313
314
315
316

317
318
319
320

030654
030704
030723
030743
030753
030763
030775

031011
031025
031061
03107%

GPRML
.WORD
.WORD
LWORD

SEQ 0129

100
TSLOLIM
TSHILIM
ASK,ANS,1,YES
T$CODE
ASK
1
15%
T$CODE
MXCvyL ,Mx(C,D,177600,0,511.,YES
T$CODE
MX(CYL
177600
TSLOLIM
TSHILIM
MINCYL,MNC,D,177600,0,511.,YES
T$CODE
MINCYL
177600
TSLOLIM
THHILIM
MXSEC,.MXS,D,77.0,39.,YES
T$CODE
MXSEC
77
TSLOLIM
TSHILIM
MINSEC,MNS,D,77,0,39.,VES
TS$CODE
MINSEC
77
TSLOLIM
TSHILIM
AUTOMS,AUTO,1,YES
T$CODE
AUTOMS
1

ENDSFT

030614

309 030614

LWORD
.WORD
LWORD
GPRML
.WORD
WORD
.WORD
XFERF
.WORD
GPRMD
LWORD
LWORD
.WORD
.WORD
.WORD
GPRMD
.WORD
.WORD
LMWORD
.WORD
LWORD
GPRMD
.WORD
.WORD
.WORD
LWORD
LWORD
GPRMD
.WORD
.WORD
LWORD
.WORD
.WORD

M 10
35-13

L10025:

103

123
123
043
122
122
127
110

123
043
122
123

110

124
105
04)
104
101
110
122

106
040
105
113

101

111
105
117
040
116
111
106

124
117
124
0640

.EVEN

ASK:

JASCIZ

SFTMSG:
DEMSG:
RTMSG:
SEMSG:

.ASC12
.ASCIZ
LASCIZ
.ASCIZ

STIPMS:
SRTMSG:
CHKLMT:
RDONLY:
RANPAT:
ONLONE:
ERMSG:

._ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASC1Z
LASCIZ

/CHANGE VALUES OF

MXCYL & MINCYL/

XSTIPULATE R/W XFER SJ]ZEX
/SEEK RETRY LMY/
/# OF ERR DUMPED/
/RD ONLY/
/RAN PAT/
/WHICH ONE/
/HRD ERR LMT/

/SFYT ERR LMT/
/# OF DATA ERR RPI'D PER BUF/
/RETRY (MI/
/SK ERR LM1/

CIRLKAQ RLO1/2 PERF

DRIVE

EXER

MACRO v03.01

INFORMATION BUFFERS

321 031106
322 031121
323 031151
324 031171
325 031221
326 031255
327 031266
328 031277
329 031306
330 031315
331 031325
332 031335
333 031356
334 031377
335 031410
336 031634
337 031471
338 031525
gSg 031553
4

104
104
123
124
103
115
135
15
15
115
115
123
123
103
104
104
104
104
127

361
342
346
347
348 031616
350

351 032114

032114

9-FEB-79 19:33:19 PAGE

N 10
35-14
SEQ 0130

122
101
13
1M
110
101
1M
101
1M1
101
N1
124
126
110
101
122
122
101
117

040
126
040
115
101
130
116
130
116
130
116
101
101
113
124
117
117
126
122

DREMSG:
DAMSG:
SKMSG:
INMSG:
CHANGE:
MXBUF:
MINBUF:
MXHD:
MINHD:
MXCYL:
MINCYL:
MXSEC:
MINSEC:
AUTOMS:
FDCHK:
STLMT:
DRPMS:
DERPMS:
(MMSG:

.ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
.ASCIZ
.ASC1Z
_ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

/DR ERR LM1/
/DATA XFER LMT (*10(10))/
/5K LMT (*10(3))/
/TIME BETW REPORTS (MIN)/
XCHANGE SEEK, R/W PARAMETERSY
/MAX XFER/
/MIN XFER/
/MAX WD/
/MIN WD/
/MAX CYL/
/MIN CYL/
/STARTING MAX SEC/
/STARTING MIN SEC/
/CHK DRDY/
/DATA DMP ON DCKX ERR/
/DROP DR ON OPER LMTS REACHED/
/DROP DR ON ERR LMTS REACHED/
/DATA MISCOMPARE LIMIT/
/WORDS PER SECTOR (OMPARED ON READ/

.EVEN

ENDMOD
032114

.=32114

;THIS CORRECTYS FOR

LASTAD

LSLAST::

.EVEN

‘APT'

MAILBOX

CIRLKAQ RLO1/2 PERF EXER
MACRO v03.01
DIAGNOSTIC SUPERVISOR -- LOw CORE SET UP
1

9-FEB-79 19:33:19 PAGE
LSBTTL

DIAGNOSTIC

B n
37

SUPERVISOR =-- LOw CORE

SEQ 0131
SET

ASSEMBLY ROUTINES
PWR FALIL:
POWER

35
36
37
38
19

062710
062712
062714
062716

000000
000000
000000
000000
062722

000200

MACRO v03.01 9-FEB-79
INTERRUPT ROUTINE

19:33:19 PAGE

185

cn
SEQ 0132

.WORD
0
.WORD
0
.WORD
0
.WORD
0
END.SUPY=,
42
LEND 200

:SPQCE FOR USER POOL POINTER
;SIZE
sCHECKSUM (NOT CURRENTLY USED)
;SIZE

M.W.

FTAS,

ALLOCATION

ASSEMBLY

ROUTINES

SYMBOL

TABLE

ABOFLA
ABOPAS
ABO.FM
ADDCOD
AFREAD
AFS]
AFWR(K
AGSTAT
ALLOC
ANS
=
APT.ER

032440
032356
034720
012060
017006
032146
017026
017250
053060
000076
034050

ARDHDR

ASEEK
ASK
ASSEMB=
AUTO
=
AUTOMS
AWRITE
ASAAV
ASAAW
ABAAX
ASAAY
ASAAl
ASABA

BA
=
BA16
=
BA17
=
BBA
=
B8CSADR=
BCSR
BDA
=
BDRSEL
BGN.SU=
BINMSG

B110
BI1100
BI101
B1102
81103
61104
BI1T05
81106
81107
81708
B1109
8111
81110
BITI1
817112

81113
BIT14
81115
BI12
8113
BIT&
8115
Bit6e

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

=
=
=
=
=
=
=
-

G
G
G

020000
040000
100000
000004
000010
000020
000040
000100

8117
=
BI118
=
8119
=
BLD.WW
BLOCK
BMP
=
BPRIOR
BRMSG
BSECPT=
BSECO
BSEC1

BSECZ2

016744
030614
0000
000066
031377
017354
036716
036732
036744
036752
036766
036776

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

9-FEB-79

19:33:19 PAGE

185-1

SEQ 0133

017106

000002
000020
000040
000110
000046
002206
000040
002214
032114
051370

MACRO v03.01

BSEC3
BSEC4
BSECS
BSEC6
BSEC7
BUF 1
BUF 2
BUSAD
BVEC
B$SAAB
BSAAF
CALLPC=

G
G
G
G
G
6
G
G
6
G
G
G
6
6
G

G
6
6
G
G
&
G
G

CALLPS=
CALLSP=
CALLTC=
CAL.CL
(AL.TI
CARTY
CEND
CHANGE
(HFLG =
CHKFNC

CHKLMT
CHKLUP
(HKSEC
CHKSTR
CHKTITY
(HK.MA
(HK.PC
(HK.SW
CHRCNT
CH.FLA
(H.PAS
(kBDSC
(kBDTK
(KDATA
CKDERR

CLEAR
CLEAR,
CLKACC
CLKBFR
CLKCNT
(LkJuMm
(LKRES
(LKSER

000200 G
000400 G
001000 G
037602
055214
000042
002212
030101
000112
025446
025510

025552

025614
025656
025720
025762
026024
002316
002320
003770
002210
041204
041116
000022

000024
000026
000030
057602
057640 6
002476
022276
031221
000020
016652

030723
041220
002220
053422
051510
037360
044510
033550

052742
037066

037104
025300
025356
021724
017636

025256
040502
03235
057604
032352
060210
061212
06136

G
6
G
G
6

CLKSON
(LK.SE
CLMT
=
(LNCOD
CLRDAT
CLR.MA
(MMSG
CMRD
CMSK
CNT
=
CNTFLG

CNTLRY

(NTLR2
(NTYPE
CNVT
COMMAN
COMMTA
CONTCL
CONWR
CRDY
=
CRLBA
CRLCS
CRLDA
CRLF

CRLMP
(s
=
(SR
=
(SRMSG
(STUFF
CURR.S
CURR.T
cyL
CYLMSK
CSAAD

CSAAE
(SAAK
(SAAL
($ABRT=
C$ADR =
($AU
=
($BRK =
($B8SEG=
csB8suB=
($BUFF=
($CEFG=
C$CLEA=
C$CLP1=
($CVEC=
CSDCLN=

($00DU=
($DRPT=
($0U
=
C$EDIT=
(SERDF=
($ERHR=
($ERSF=
($ERSO-

032412 6
037162
000064
O0117V4 G
010730
037436
031553
010262
002154
000012
002334

C$INIT= 00001
CSINLP= 000020

DNRDY
DOWCK

002200
030060
055660
032164 G
(055474
061272 G
022652
000200
002427
002377
002441
051572

(SKWON=
cCeLOOP=
CSMAN]I=
C$MSG =
C$PNTB=
C$PNTF=
CSPNTS=
C$PNTX=
C$POIN=
($Q10 =
C$RDBU=
(SREFG=

DPHOUR=
DPMIN =
DPMUL
DRBT
=
DRBUF
DRDRYV
DRDY
=
DREMSG
DRFLG =
DRLMT
DRMSG
DRNM

002176

002453
000000
000000
030065
022420
032122 G
032124 G
002164
002150
044462

0444674
045472
045636
000021
000020
000054
000022
000004
000002
000030
000046
000012
000006
000036
000044

000053

000024
000055
000002
000002
000003
000001
000004

CSESCA=
($ESEG=
CSESUB=
CSETST=

000010
000005
000003
000001

DEV.CO
DIAGMC=
DIAG.T
DIFMSG

032126 G
000000
032446 G
002465

CSEXIT=
CSGMAN=
CSGPHR=
C$GPRI=
C$GTIM=

000032
000043
000042
000040
000052

DIFWD =
pLT
=
DLTCNT=
DMPBUF
DMPDCK

000066
010000
000026
024354
003122

C$xWOF= 000035

C$REQT=
CSRESE=
C$REVI=
CSRPT =
($SEFG=
C$SPRI=
C$SVEC=
C$TPRI=
CSUNBU=
(SWTM =

(SWTU =
C.HDR
CA
=
DALMT
DAMSG
DAT
=
DATCER=
DCOD
=
DCOMSG
DCKFG =
DCRC
=
DCRCER=
DCS
=
DOT
=
DECMSG

DECNT
DELMY
DEMSG
DERCNT=
DERMSG
DERPMS
DERR
=
DET
-

000034
000100
000051
000023
000014
000017
000016
000015
000040
000377
000007
000050

000045
000033
000002
000025
000047
000041
000037
000013
000031
000026

000027
002312
000004
010254
031121
000006
000074
000074

003244
000040

004000
000022
000104
000016
051409

00222¢
010264
031025
000020
003267
031525
040000
000052

DPDVD

002526
= 000076

DROP
DROPCO
DRPMS
DRPRS
DRSEL =
DRST
=
DRTIYPE
CRUT
DRVER
DSE
=

DSPCOD
DUNIT.
OVC.FT
DWCNT
DWCNTY
DS$AAS
DSAAH
DSAAl
D$SAA)
DSAAK
DSAAL
DSAAM
Ef.CON=
EF .NEW=
EF .PWR=

EfF.RES=
EF.STA=
eFOY
=
EF02
=
EF03
=
EFQ4
=
EFOS
=
EF06
=

062056 G

000070
000071
061744 G
000010
026514
021502
000001
031106
000042
010320
030143
003666

004134
012144 G
031471
002137
000106
000013
030112
002136
002716
000400

010346
032362
0645442
002342
002344
046346
046364
051132
051136
051154
051172
051202
000036
000035
000034

000037
Q00040
00000V
000002
000003
000004
000005
000006

6
G

G
6
G

G
G
G
G
C
G
G

FMTSS

FMTXS

FMTI
rMT1A

010036
010073
010166
007342
006236
006273
006725
006761
007032
007040
007060
007070
007105
007132
007141
007153
007150
007215
006260
007335
006302
006323
006345
006406
006472
006525
006541
006567
006603
006613

GSRADD=
GSRADF
=
GSRADL=
GSRADO=

000040
000200
000120
000020
000100
000004
000010
040000
036656
036566
032402
004000
000024
032152
032144
032142
023752
002216
000100
036526

002144
010000
HNFERR= 000032
HOLDSP= 000020
HOUR
002274
HPTCOD
010226
HRDPRM
027776

HWSEC
HW.ADR
HSAAB
ILLEG

003556
032150

056206
003626
023510
N0235¢
03¢37°
0104350
051420
037504
032206

INBAD
INCALL
ININIT
INITCO
INITIA
INIT.M
G
INIT.R
INMSG
031171
INPUTA
052346
INTEN =
INTERY
INTFOR
INTR1

INTRZ2

INVAL,
INVINT
INV.SW
IN.SUF
ISDRST
1SSUE

1$AU
1$CLN
180U
J$HRD
I1$INIT=
[$MCD - 000041

000041
000041
000041
000041
000041
000041
000041
000041
000167
KBPIR
032224
KBUF
032226
KILLDC
002174
015226
LDFUNC
LIMIT
010246
LINE.F
032442
LINE1
005402
LINEZ2
005606
LINES
005716
LIST
020620
LOAD.F
037102
LOGMSG
051412
LONUM
002146
LPBFR
032222
032220
LPCNTR
LPS
003677
LPT.AD
036544
LPT.RE
036540
LSI.RE
036534
LSTDA = 000064
LSTDRI
002202
LSTDR?
002204
LSTHDR= 000050
LSTTIM
002266
LUP
057506
LUP.AD
044512
LSAPT
002036
012060
LSAU
LSAUT
002074
L$CCP
002106
LSCLEA
011714
L$CO
002032
LSDEPO
002011
LSDESC
002102
LSDEVP
002064
LSDISP
010350
LSDR
002112
L$DRCT
002070
L$DRS
002072
LSCRST
002112
LSDIP
002040
L3DU
012144
LSDUT
002076
LSOVTY
002114
LSEF
002056
LSEFLG
002034
LIEXP
002042
LSEXP?
002046
I$MSG
I $PWR
1$RPT
1$SEG
[1$SFT
1$SRYV
1$5UB
18787
JSJMP

[AX ANl

006651
066010
053316
FRMT16
007273
FUNC
000044
FSAY
000015
t $BGN
000040
FSCLEA
000007
F$OU
000016
FSEND
000041
FSHARD
000004
FSHW
000013
FOINIT
000006
F$IMP
000050
F$MOD
000000
FSMSG
000011
FSPWR
000017
FSRPT
000012
F$SEG
000003
F$SOF
T
000005
FSSRV
000010
F$SUB
00000¢
FSW
000014
FOTEST= 000001
GARBAG
052744
GDDAT
002260
GETCHR
051450
GETCMN
055034
GETDST
022372
GETENC
013726
GETPAR
046526
GETSWI
054030
GETSYS
023630
GET.Tw
053600
GHDR
020300
GLBDAT
002126
GLBEQA
002126
GLBERR
004456
GLBSLB
012205
GLBTXT
002360
GOERRX
016642
GOf IN
016646
000003
6SBIT
GSTAT
000004
GSTENC
014400
026046
GWCDA
GSEXCP= 000400
GSHILI= 000002
GSLOL]= 000001
= 000000
GSNO
GSOFFS= 000400
GSGFSI= 000376
GSPRMA= 000001
GSPRMD= 000002
GSPRML
= 000000
GSRADA= 000140
GSRADB= 000000

[
X~

007401
007464
007504
007537
007603
007672
007727

FMT9A

FORM.
T
FREE

M alAANATATAYAYANATaANATATATATANAT
AN AN AN A

004752
005012
005050
005170
004017
044500
032120
002630
017440
017472
004112
002300
00227¢

FMTS4

002302
002304
002306
002310
002336
002340
031410
012206
052240
000204 G
012232
011564
017600
032160 G
032162 6
055412
037146
055360
037106
007552

004456
046000
005234
005304
005312
004464
004550
004700

185-2

(AN AT AT AN A

FMT1S2
FMIS2A
FMTS2B
FMI1S3
FMTS3A

B~ TN 2

04545¢€

9-FEB-79 i19:33:19 PAGE

SEQ 0134

FLAGTA
fFLAG.!]
FLA.SE
FLG.MA
FMIDT
FMTS
FMTST1A
FMTSIB

100000

000012
017476
065714
064514
004334
002346
0465452
032116

MACRO v03.01

[A B ANARAIATAYANAY
QY AT A

000007
000010
000011
000012
000013
000014
000015
000016
000017
000020
000002
032444
011236
027774
026506
022714
040470
062722
032166
061370
034734
037100
003712
010250
003157
030775

[AYAT AT AN AT AT AX AN AN 2

wtew

ASSEMBLY ROUTINES
SYMBOL TABLE

L.CLK,

L 10000
L 10001
110002
L 10003
L 10004
L 10005
L 10000
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016

L10017
L 10020
L 10021
L10022
L10023
L 10024
L 10025

MAIN
MAJ.IN
MAJ.LO
MAJ.US
MAN.T]

MST1

MSWRPK
MT(R
MTDCRC
MIDLT
MTDRYV
MTEST
M1GS
MTHCRC
MTHNF
MTNXM
MTOP]
MTRD
MTRH
MTRNH
MTSK
MTWR
ML
MVCER

MVE
(

MAP16

MASK .B
MASK
.W
MAXW(

002322

MXB
MXBUF
Mx(
MxCyL
MXH

002767
003642
000022
031255
000030
031315
000024

031277
000034
031335
061336
055576
002516
003654
003430
003737
004254
002541
003466
036502
055372
052710
036706
000000
046034
0466202
032156
032564
061172
002573
020000
000034
055652
051376
ODRDRV
021476
ONLONE
030763
OPCALL
002354
OPFLG = 000050
OP1
= 002000
000030
014166
003310
000001
000001
000001
000001
000001
000001
000001
000001
PARSES
055106
PAR.LA
051074
PASS.C
032130 6
PAT
= 000060
PATLST
026066
PATO
026106
PATI
026146
MXHD
Mxs
=
MXSEC
NEWPR]
NEXTAR
NOCRDY
NODRIvV
NOLOAD
NOPWR
NORDDC
NORDY
NOREV
NO. (LK
NO.FLA
NO.LPT
NO.PTA
NR
=
NUMBIN
NUM.LA
NUM.NO
NUM.UN
NUNITS
NWRTS
NXM
=
NXMCNT
=
NXTFOR
0CTMSG

PAT?

PAT3
PAT4

PATS
PAT6
PAT7

PEROTH

026206
026246
026306
026346
026406
026446
013416

SEQ 0135
011712
000056
002567
052720
056226
000004
002254
002256
000000
PRIO1
000040
PR102
000100
PRIO3
000140
PR104
000200
PR10S
000240
PRI06
000300
PRIO7
000340
PRNTST
052610
PRO.CM
037060
PRPOS = 000124
PTAB.S
032400
PUTCHR
051424
PWRFLG
002326
PWR.FA
062550
POWER
PRFLGS=
PRGER
PRINTC
PRINTF
PRINR =
PRTOR!
PRIOR2
PRI00

PWR.FL
PWR
. MS
PWR.SA
PWR.UP
P.CLK.
RAN
=
RAND
RANPAT
RCD
RCNT
RDBDSC
RDDFNC
RDHDR =
RDHFNC
RONHC
RDONLY

032204
062676
062672
062674

036520
000056
022464
030753

006123
020600
020636
015132
000010
015050
014336
030743
ROT
= 000014
READ
= 000014
READ.P
057610

RECNT
REGBAC
REGEN
REGSAV
REPORT
REQ
REQN.P
REQN.T
RESTAR
RETRY =
RE.SET
RL”
=
RNTEMP
ROF
=
RPS

RPTCOD

RSEEK =
RSTACK
RTMSG
RTYPE

RT1

RWCNT
RXFR1

RXFR2
RXFR3
SAVE
SAVEDO-=
SEARCH
SEC
SECMSK
SECOND
=
SEEK
SEGSTA
SEL
=
SELMT
SEMSG
SERLMT

SERNM1=
SERNM?2
=
=
SET
SET.MA
SEXHAU
SFEMSG
SFLMT
SFTCNT=
SFIMSG
SFTPRM
SHIFT
SIGN
SKCNT
SKCNTI

SMSK

900054
003726

MF UNC
MHDER
MINBUF
MINCYL
MINHD
MINSEC
MINUTE
MIN.IN
MIN.US
MK
MNB
MNC
MNH
MNS
MODR
Mp
MPT
MRDER
MRLCS
MRT
MSFER
MSG. AD
MSG.TY
MSKER
MST
MSTART

003525
003072
002725
002000 6
002753
036554
002411
003107
031266
031325
031306
031356
002272
032172
032174
000001
000044
000032
000026
000036
061656
000006
003614
003047
002367
004006
002677
032140
032114
002666
004035
004216
004052
004236
004366
0046165
004172
004211
013152
004376
004157
004152
004204
004177
006436
004416
004446
004406
004426
061612 6

185-3

MBDMS(
MDCER
MDERS
MDHE DR
MDSER
MEM.S]

002046
030000
002016
002022
0102390
002104
010430
002026
032114
002050
002000
002066
002010
010352
030154
002062
002020
002024
002030
010246
002014
002054
002052
002100
002012
036512
004462
004546
004676
004750
005010
005046
005166
005232
005302
005310
005400

19:33:19 PAGE

LSEXP3
LSHARD
LOHPCP
LSNPTP
LN
LeICP
LSINIT
LSLADP
LOLAST
LSMREV
LENAME
LSREPP
LSREV
LSRPT
T
LSSOF
LSSP(
LSSPCP
LSSPIP
LSSTA
LSS
LSTIML
LSTIMy
LSTIM
LSTST]
LSUNIT

9-FEB-79

[T A I AT AT AN AN AN A

MACRO v03.01

Al alal Al aAYAlal Al AYAaAlATAY A AY AYAYARAY A Y AY A Y AY A

ASSEMBLY ROUTINES
SYMBOL TABLE

010352 6
000114
061540 6
031061
000052
004067
002130
000002
000004
000060
015354
034050
053546
002170
002152
002270
000006
032414
000046
010252
031073
003201
000100
000102
000004
037272
003360
003222
010314
000014
03101
030152
062376
000004
000000

SOFTCS=
SOPLMY
SPE
=
SPEC.U
SPTCOD
SPv.SE
000400

ASSEMBLY ROUTINES
SYMBOL TABLE

MACRO v03.01

SRLT
=
SRIMSG
STARTC
STOMP
STFLG
STIP
=
STIPMS
STLMT
STRCHR
STRT.T
STWRT
ST.SET
ST
ST2
SUNIT.
SUPERV
SUPFLA
SUPV.T
SUP.PR

000062
030704
061266 G
025070
002332
000070
030654
031434
052300
03706¢
022736
033716
002350
002352
037070
034752
032360 6
032532 ¢
033470

TEMPO
TEMPY
TEMP2
TEMP3
TEMP4
TEMPS
TEMP6
TEMP?
TEMP8
TEMP9
TERMI
TERML]
TERMTA
TEST.M
TIME
TIMFLG
TIM.CO
TIM.OP
T00.MA

SVCINS=
Sv(SuB=
SVC(TAG=
SVCIST=
SWCHAN
SWITCH
SWSEC
SW.ADR
SW.PTA
SYSCLK
SYSMSK
SYS.FT
SSLSYM=

000000
177777
000000
177777
036700
055552
003576
032154 G
036664
002314
002142
045432
010000

TRACK
TRERR =
TRPFLG
TRPHAN
ISTDRV
TST.AB
TST.T0
TYINT
TYPDR =
TYPEC
TYPEPC
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER

013564
000120
006076

062720
000000
ERRORS DETECTED:

19:33:19 PAGE

185-4

SEQ 0136

SUR
002166
Sv(GBL= 000000
SVCHAN
041406

TAGX
TDR
TELCYL

9-FEB-79

002224
002226
002230
002232
002234
002236
002240
002242
002244
002246
057576
055400
051362
037020
002360
032350 G
032202 6
046006
051342
003142
000072
002330

012434
002134
041330
033532
010260
000006
051736
045632
0552564
051634
051216
051654
045462

TYyr
= 000012
TY.UNI
040474
T$ARGC= 000001

ABS.

000
001

VIRTUAL MEMORY USED:
19984 WORDS
( 79 PAGES)
DYNAM]( MEMORY AVAILABLE FOR
70 PAGES
CIRLKA.BIN,CZRLKA=#SY(RT/M,C2RLKA,DOCTCR

T$CODE=
T$ERCO=
TSERRN=
T$EXCP=
TSHILL=
T$L0L1=
T$LSYM=
TSNEST=
T$NSKO=
TONSK1=
T8SAvL=
T$SEGL=
T$SUBN=
TSTAGL=
TSTAGN=
T$TEMP=
T$1EST=
T$1STM=
T$7S71S=

033130
000063
000307
000000
000047
000000
010000
177777
000000
000005
177777
177777
000000
177777
010026
000000
000001
177777
000001

T$SHAR=
T$$HW =
T$$INI=
T$$MSG=
T$$RPT=
T$$S0F=
T$$SRV=
T$8SW =
T$$TES=
T.ANS
T.AUT
T.CLT
1.0C0

010024
010013
GH001E:
010012
010015
010025
010023
010014
C10022
010344
010334
010332
010342

1$8AU = 010020
T$$CLE= 010017
1$$0U = 010021

T.0Ck
T.DRIV
T.DRP

010306
002140
010310

T.MNB
T.MNC
T.MNH
T.MNS
T.MxB
T.MxC
T.MxH
T.mxs
T.PAT
T.<AN
T.ROF
T.SLT
T.STA
1.STIP
T.Wwlk
m
UDERR
UNIT.D
UNI.MA

010312
010300
010274
010304
010270
010276
010272
010302
010326
010324
010322
010330
010316
010336
010340
013152 6
002644
032132 G
037010

WRBUF
WRCHK =
WRINIT
WRIPG =
WRITE =
WRPACK
WRPOS
WRTCKF
WRTENC
WIRDY
WXFR1 =
WXFR2 =
WXFR3 =
XCHFLG
XEQDIA
XEQSUB
XEQ.CL
XEQ.CM
XEQ.IN

020352
000002
002160
000122
000012
022562
002162
014356
015062
022322
000006
000010
000062
010266
061424 6
061412 6
041134
036444
040616

uut
VALID.
VAL.LA
VAL.SW
v(
=
VECMSG
VECT
=
VECTT
VECT2
Wk
=
WDE
=
WwGE
=
WGEST

002324
032634
033454
(37120
001000
030134
000002
002250
002252
000072
100000
002000
003014

XEQ.TE
XEXIT
XTIME
XTIMEN
XTIMST
XXDP.D
X$SALWA=
X$FALS=
X$OFFS=
X$TRUE=
$BREG
$ENDAD
$SAV2

040754
016740
060276 G
061122
060320
036464
000000
000040
000400
000020
037160
061376 G
062442 G

UNLOAD
USER.P
USER.T

WHY
WIDTH
Wi

003404
032374 6
032376 G

002132
046402
020000

XEQ.LA
XEQ.OP
XEQ.PR

$SAV3
$SAVL
$SAVS

034706
040710
034110

062456 G
062474 6
062514 G